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