-- 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..