
<<SiroccoAG1Def.mesa>>
<<Copyright Ó 1987 by Xerox Corporation.  All rights reserved.>>
<<Generated by BJackson.pa at August 26, 1987 3:38:07 pm PDT>>
<<using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT>>

DIRECTORY
SiroccoCGDef,
SiroccoATDef;

SiroccoAG1Def: CEDAR DEFINITIONS = 
BEGIN
OPEN SiroccoCGDef, SiroccoATDef;

<<ProgramexportProd>>

ProgramexportProdData:    TYPE = REF ProgramexportProdDataBody;
ProgramexportProdDataBody:    TYPE = RECORD[
idexport: idNode, decimalpgm: decimalNode, decimalversion: decimalNode, ImportList: ImportListNode, DeclarationList: 
DeclarationListNode];

ProgramexportProdProcs:    ProgramNodeProcs;

BuildProgramexportProdNode:    PROC[position: INT, length: INT, idexport: idNode, decimalpgm: decimalNode, decimalversion: 
decimalNode, ImportList: ImportListNode, DeclarationList: DeclarationListNode]
RETURNS[ProgramNode];

ProgramexportProdMakeSymbolTable:    MakeSymbolTableProcType;

<<ImportListemptyProd>>

ImportListemptyProdData:    TYPE = REF ImportListemptyProdDataBody;
ImportListemptyProdDataBody:    TYPE = RECORD[
];

ImportListemptyProdProcs:    ImportListNodeProcs;

BuildImportListemptyProdNode:    PROC[position: INT, length: INT]
RETURNS[ImportListNode];

ImportListemptyProdBuildRIB:    BuildRIBProcType;

<<ImportListmoreProd>>

ImportListmoreProdData:    TYPE = REF ImportListmoreProdDataBody;
ImportListmoreProdDataBody:    TYPE = RECORD[
ImportList: ImportListNode, Import: ImportNode];

ImportListmoreProdProcs:    ImportListNodeProcs;

BuildImportListmoreProdNode:    PROC[position: INT, length: INT, ImportList: ImportListNode, Import: ImportNode]
RETURNS[ImportListNode];

ImportListmoreProdBuildRIB:    BuildRIBProcType;

<<ImportinterfaceProd>>

ImportinterfaceProdData:    TYPE = REF ImportinterfaceProdDataBody;
ImportinterfaceProdDataBody:    TYPE = RECORD[
idinterface: idNode, decimalpgm: decimalNode, decimalversion: decimalNode];

ImportinterfaceProdProcs:    ImportNodeProcs;

BuildImportinterfaceProdNode:    PROC[position: INT, length: INT, idinterface: idNode, decimalpgm: decimalNode, decimalversion: 
decimalNode]
RETURNS[ImportNode];

ImportinterfaceProdBuildScope:    BuildScopeProcType;

<<DeclarationListemptyProd>>

DeclarationListemptyProdData:    TYPE = REF DeclarationListemptyProdDataBody;
DeclarationListemptyProdDataBody:    TYPE = RECORD[
];

DeclarationListemptyProdProcs:    DeclarationListNodeProcs;

BuildDeclarationListemptyProdNode:    PROC[position: INT, length: INT]
RETURNS[DeclarationListNode];

DeclarationListemptyProdBuildItemTable:    BuildItemTableProcType;
DeclarationListemptyProdBuildTypeGraph:    BuildTypeGraphProcType;

<<DeclarationListmoreProd>>

DeclarationListmoreProdData:    TYPE = REF DeclarationListmoreProdDataBody;
DeclarationListmoreProdDataBody:    TYPE = RECORD[
DeclarationList: DeclarationListNode, Declaration: DeclarationNode];

DeclarationListmoreProdProcs:    DeclarationListNodeProcs;

BuildDeclarationListmoreProdNode:    PROC[position: INT, length: INT, DeclarationList: DeclarationListNode, Declaration: 
DeclarationNode]
RETURNS[DeclarationListNode];

DeclarationListmoreProdBuildItemTable:    BuildItemTableProcType;
DeclarationListmoreProdBuildTypeGraph:    BuildTypeGraphProcType;

<<DeclarationtypeProd>>

DeclarationtypeProdData:    TYPE = REF DeclarationtypeProdDataBody;
DeclarationtypeProdDataBody:    TYPE = RECORD[
id: idNode, Type: TypeNode];

DeclarationtypeProdProcs:    DeclarationNodeProcs;

BuildDeclarationtypeProdNode:    PROC[position: INT, length: INT, id: idNode, Type: TypeNode]
RETURNS[DeclarationNode];

DeclarationtypeProdBuildItem:    BuildItemProcType;
DeclarationtypeProdBuildNamedItem:    BuildNamedItemProcType;

<<DeclarationconstantProd>>

DeclarationconstantProdData:    TYPE = REF DeclarationconstantProdDataBody;
DeclarationconstantProdDataBody:    TYPE = RECORD[
id: idNode, Type: TypeNode, Constant: ConstantNode];

DeclarationconstantProdProcs:    DeclarationNodeProcs;

BuildDeclarationconstantProdNode:    PROC[position: INT, length: INT, id: idNode, Type: TypeNode, Constant: ConstantNode]
RETURNS[DeclarationNode];

DeclarationconstantProdBuildItem:    BuildItemProcType;
DeclarationconstantProdBuildNamedItem:    BuildNamedItemProcType;

<<TypealiasProd>>

TypealiasProdData:    TYPE = REF TypealiasProdDataBody;
TypealiasProdDataBody:    TYPE = RECORD[
id: idNode];

TypealiasProdProcs:    TypeNodeProcs;

BuildTypealiasProdNode:    PROC[position: INT, length: INT, id: idNode]
RETURNS[TypeNode];

TypealiasProdBuildTGN:    BuildTGNProcType;

<<TypeimportProd>>

TypeimportProdData:    TYPE = REF TypeimportProdDataBody;
TypeimportProdDataBody:    TYPE = RECORD[
idinterface: idNode, iditem: idNode];

TypeimportProdProcs:    TypeNodeProcs;

BuildTypeimportProdNode:    PROC[position: INT, length: INT, idinterface: idNode, iditem: idNode]
RETURNS[TypeNode];

TypeimportProdBuildTGN:    BuildTGNProcType;

<<TypeboolProd>>

TypeboolProdData:    TYPE = REF TypeboolProdDataBody;
TypeboolProdDataBody:    TYPE = RECORD[
];

TypeboolProdProcs:    TypeNodeProcs;

BuildTypeboolProdNode:    PROC[position: INT, length: INT]
RETURNS[TypeNode];

TypeboolProdBuildTGN:    BuildTGNProcType;

<<Typecard16Prod>>

Typecard16ProdData:    TYPE = REF Typecard16ProdDataBody;
Typecard16ProdDataBody:    TYPE = RECORD[
];

Typecard16ProdProcs:    TypeNodeProcs;

BuildTypecard16ProdNode:    PROC[position: INT, length: INT]
RETURNS[TypeNode];

Typecard16ProdBuildTGN:    BuildTGNProcType;

<<Typecard32Prod>>

Typecard32ProdData:    TYPE = REF Typecard32ProdDataBody;
Typecard32ProdDataBody:    TYPE = RECORD[
];

Typecard32ProdProcs:    TypeNodeProcs;

BuildTypecard32ProdNode:    PROC[position: INT, length: INT]
RETURNS[TypeNode];

Typecard32ProdBuildTGN:    BuildTGNProcType;

<<Typeint16Prod>>

Typeint16ProdData:    TYPE = REF Typeint16ProdDataBody;
Typeint16ProdDataBody:    TYPE = RECORD[
];

Typeint16ProdProcs:    TypeNodeProcs;

BuildTypeint16ProdNode:    PROC[position: INT, length: INT]
RETURNS[TypeNode];

Typeint16ProdBuildTGN:    BuildTGNProcType;

<<Typeint32Prod>>

Typeint32ProdData:    TYPE = REF Typeint32ProdDataBody;
Typeint32ProdDataBody:    TYPE = RECORD[
];

Typeint32ProdProcs:    TypeNodeProcs;

BuildTypeint32ProdNode:    PROC[position: INT, length: INT]
RETURNS[TypeNode];

Typeint32ProdBuildTGN:    BuildTGNProcType;

<<TypesinkProd>>

TypesinkProdData:    TYPE = REF TypesinkProdDataBody;
TypesinkProdDataBody:    TYPE = RECORD[
];

TypesinkProdProcs:    TypeNodeProcs;

BuildTypesinkProdNode:    PROC[position: INT, length: INT]
RETURNS[TypeNode];

TypesinkProdBuildTGN:    BuildTGNProcType;

<<TypesourceProd>>

TypesourceProdData:    TYPE = REF TypesourceProdDataBody;
TypesourceProdDataBody:    TYPE = RECORD[
];

TypesourceProdProcs:    TypeNodeProcs;

BuildTypesourceProdNode:    PROC[position: INT, length: INT]
RETURNS[TypeNode];

TypesourceProdBuildTGN:    BuildTGNProcType;

<<TypestringProd>>

TypestringProdData:    TYPE = REF TypestringProdDataBody;
TypestringProdDataBody:    TYPE = RECORD[
];

TypestringProdProcs:    TypeNodeProcs;

BuildTypestringProdNode:    PROC[position: INT, length: INT]
RETURNS[TypeNode];

TypestringProdBuildTGN:    BuildTGNProcType;

<<TypeunspecProd>>

TypeunspecProdData:    TYPE = REF TypeunspecProdDataBody;
TypeunspecProdDataBody:    TYPE = RECORD[
];

TypeunspecProdProcs:    TypeNodeProcs;

BuildTypeunspecProdNode:    PROC[position: INT, length: INT]
RETURNS[TypeNode];

TypeunspecProdBuildTGN:    BuildTGNProcType;

<<TypearrayProd>>

TypearrayProdData:    TYPE = REF TypearrayProdDataBody;
TypearrayProdDataBody:    TYPE = RECORD[
Constant: ConstantNode, Type: TypeNode];

TypearrayProdProcs:    TypeNodeProcs;

BuildTypearrayProdNode:    PROC[position: INT, length: INT, Constant: ConstantNode, Type: TypeNode]
RETURNS[TypeNode];

TypearrayProdBuildTGN:    BuildTGNProcType;

<<TypeseqProd>>

TypeseqProdData:    TYPE = REF TypeseqProdDataBody;
TypeseqProdDataBody:    TYPE = RECORD[
Constant: ConstantNode, Type: TypeNode];

TypeseqProdProcs:    TypeNodeProcs;

BuildTypeseqProdNode:    PROC[position: INT, length: INT, Constant: ConstantNode, Type: TypeNode]
RETURNS[TypeNode];

TypeseqProdBuildTGN:    BuildTGNProcType;

<<TypeenumProd>>

TypeenumProdData:    TYPE = REF TypeenumProdDataBody;
TypeenumProdDataBody:    TYPE = RECORD[
Enumeration: EnumerationNode];

TypeenumProdProcs:    TypeNodeProcs;

BuildTypeenumProdNode:    PROC[position: INT, length: INT, Enumeration: EnumerationNode]
RETURNS[TypeNode];

TypeenumProdBuildTGN:    BuildTGNProcType;

<<TypeerrorProd>>

TypeerrorProdData:    TYPE = REF TypeerrorProdDataBody;
TypeerrorProdDataBody:    TYPE = RECORD[
FieldList: FieldListNode];

TypeerrorProdProcs:    TypeNodeProcs;

BuildTypeerrorProdNode:    PROC[position: INT, length: INT, FieldList: FieldListNode]
RETURNS[TypeNode];

TypeerrorProdBuildTGN:    BuildTGNProcType;

<<TyperecordProd>>

TyperecordProdData:    TYPE = REF TyperecordProdDataBody;
TyperecordProdDataBody:    TYPE = RECORD[
FieldList: FieldListNode];

TyperecordProdProcs:    TypeNodeProcs;

BuildTyperecordProdNode:    PROC[position: INT, length: INT, FieldList: FieldListNode]
RETURNS[TypeNode];

TyperecordProdBuildTGN:    BuildTGNProcType;

<<TypenullProd>>

TypenullProdData:    TYPE = REF TypenullProdDataBody;
TypenullProdDataBody:    TYPE = RECORD[
];

TypenullProdProcs:    TypeNodeProcs;

BuildTypenullProdNode:    PROC[position: INT, length: INT]
RETURNS[TypeNode];

TypenullProdBuildTGN:    BuildTGNProcType;

<<TypeprocProd>>

TypeprocProdData:    TYPE = REF TypeprocProdDataBody;
TypeprocProdDataBody:    TYPE = RECORD[
FieldListarg: FieldListNode, FieldListres: FieldListNode, NameList: NameListNode];

TypeprocProdProcs:    TypeNodeProcs;

BuildTypeprocProdNode:    PROC[position: INT, length: INT, FieldListarg: FieldListNode, FieldListres: FieldListNode, NameList: 
NameListNode]
RETURNS[TypeNode];

TypeprocProdBuildTGN:    BuildTGNProcType;

<<TypechoiceProd>>

TypechoiceProdData:    TYPE = REF TypechoiceProdDataBody;
TypechoiceProdDataBody:    TYPE = RECORD[
Type: TypeNode, Union: UnionNode];

TypechoiceProdProcs:    TypeNodeProcs;

BuildTypechoiceProdNode:    PROC[position: INT, length: INT, Type: TypeNode, Union: UnionNode]
RETURNS[TypeNode];

TypechoiceProdBuildTGN:    BuildTGNProcType;
END..