-- ThreeC4PrimImplDefs.mesa: October 18, 1985 10:24:58 am PDT -- Sturgis, November 4, 1985 5:24:35 pm PST DIRECTORY ThreeC4BaseDecl1Def USING[FileSeqNode, IdentifierNode, IntegerNode, MesaCodeNode, NameNode, NameListNode, TypeNode, TypeListNode], ThreeC4BaseDecl2Def USING[ContextNode], ThreeC4BasicAbTypesDef USING[WholeFileNode], IO USING[STREAM], Rope USING[ROPE]; ThreeC4PrimImplDefs: CEDAR DEFINITIONS = BEGIN OPEN ThreeC4BaseDecl1Def, ThreeC4BaseDecl2Def, ThreeC4BasicAbTypesDef; -- these first items are for non functional users, e.g. the driver -- the following items are for intercommunication between the different prim impl files -- first some from ThreeC4PrimImpl1 GetIntegerData: PUBLIC PROC[IntegerNode] RETURNS[INT]; GetNameCodeText: PROC[NameNode] RETURNS[Rope.ROPE]; GenNames: PROC[NameListNode, PROC[NameNode]]; GenTypeList: PROC[TypeListNode, PROC[TypeNode]]; GenNameTypePairs: PROC[NameListNode, TypeListNode, PROC[NameNode, TypeNode]]; GetNameIds: PROC[NameNode] RETURNS[id1, id2: IdentifierNode]; BuildType: PROC[REF ANY] RETURNS[TypeNode]; GetTypeInfo: PROC[TypeNode] RETURNS[REF ANY]; CopyTypeList: PROC[TypeListNode] RETURNS[TypeListNode]; EqualNames: PROC[NameNode, NameNode] RETURNS[BOOLEAN]; GetNameInfo: PROC[NameNode] RETURNS[text: Rope.ROPE, key: INT]; ShowName: PROC[name: NameNode, on: IO.STREAM]; ShowNameList: PROC[nameList: NameListNode, on: IO.STREAM]; ShowNamePosition: PROC[name: NameNode, on: IO.STREAM]; PutNameR: PROC[name: NameNode] RETURNS[Rope.ROPE]; -- then some from ThreeC4PrimImpl2 RopeFromCode: PROC[MesaCodeNode] RETURNS[Rope.ROPE]; ShowCode: PROC[code: MesaCodeNode, on: IO.STREAM]; WriteFiles: PROC[FileSeqNode, Rope.ROPE]; -- then some from ThreeC4PrimImpl3 GetTypeCodeName: PROC[TypeNode] RETURNS[MesaCodeNode]; RecordParseTree: PROC[ContextNode, NameNode, WholeFileNode] RETURNS[ContextNode]; -- then some from ThreeC4PrimImpl4 HashTable: TYPE = REF HashTableBody; HashTableBody: TYPE; CreateHashTable: PROC[CARDINAL] RETURNS[HashTable]; MakeEntry: PROC[HashTable, NameNode, REF ANY]; FindExistingEntry: PROC[table: HashTable, name: NameNode] RETURNS[REF ANY]; FindEntry: PROC[table: HashTable, name: NameNode] RETURNS[REF ANY]; EnumerateHashTable: PROC[table: HashTable, for: PROC[info: REF ANY, name: NameNode]]; -- finally from ThreeC4PrimImpl5 SetMode: PROC[targetFilesNamePrefix: Rope.ROPE, sourceFilesNameSuffix: Rope.ROPE]; ReadModeInfo: PROC RETURNS[ targetFilesNamePrefix: Rope.ROPE, sourceFilesNameSuffix: Rope.ROPE]; ClearMode: PROC; ReportError: PROC[msg: Rope.ROPE]; END.. ʬ˜J˜=J˜+J˜J˜ J˜‚J˜'J˜,J˜J˜J˜˜)J˜LJ˜J˜BJ˜J˜J˜W˜J˜#J˜JšÏbœ(˜6Jšœ$˜3Jšœ%˜-Jš œ%˜0Jšœ=˜MJš œ3˜=Jš œ"˜+Jš œ"˜-Jš œ+˜7Jš œ,˜6Jš œ4˜?Jšœ&˜.Jš œ.˜:Jšœ&˜6Jšœ*˜2J˜J˜J˜"J˜Jš œ(˜4Jšœ*˜2Jš œ˜)J˜J˜"J˜Jšœ'˜6JšœB˜QJ˜J˜"J˜Jš œ˜$J˜Jšœ$˜3Jš œ%˜.Jšœ:˜KJš œ:˜CJšœC˜UJ˜J˜ J˜JšœK˜Rš œ˜Jšœ'˜'Jšœ(˜(—Jš œ˜J˜Jš œ˜"J˜J˜—J˜——…—  Â