DIRECTORY
SiroccoCGDef,
SiroccoATDef;

SiroccoAG1Def: CEDAR DEFINITIONS = 
BEGIN
OPEN SiroccoCGDef, SiroccoATDef;


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;


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

ImportListemptyProdProcs:	ImportListNodeProcs;

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

ImportListemptyProdBuildRIB:	BuildRIBProcType;


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;


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;


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

DeclarationListemptyProdProcs:	DeclarationListNodeProcs;

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

DeclarationListemptyProdBuildItemTable:	BuildItemTableProcType;
DeclarationListemptyProdBuildTypeGraph:	BuildTypeGraphProcType;


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;


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;


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;


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

TypealiasProdProcs:	TypeNodeProcs;

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

TypealiasProdBuildTGN:	BuildTGNProcType;


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;


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

TypeboolProdProcs:	TypeNodeProcs;

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

TypeboolProdBuildTGN:	BuildTGNProcType;


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

Typecard16ProdProcs:	TypeNodeProcs;

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

Typecard16ProdBuildTGN:	BuildTGNProcType;


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

Typecard32ProdProcs:	TypeNodeProcs;

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

Typecard32ProdBuildTGN:	BuildTGNProcType;


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

Typeint16ProdProcs:	TypeNodeProcs;

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

Typeint16ProdBuildTGN:	BuildTGNProcType;


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

Typeint32ProdProcs:	TypeNodeProcs;

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

Typeint32ProdBuildTGN:	BuildTGNProcType;


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

TypesinkProdProcs:	TypeNodeProcs;

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

TypesinkProdBuildTGN:	BuildTGNProcType;


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

TypesourceProdProcs:	TypeNodeProcs;

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

TypesourceProdBuildTGN:	BuildTGNProcType;


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

TypestringProdProcs:	TypeNodeProcs;

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

TypestringProdBuildTGN:	BuildTGNProcType;


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

TypeunspecProdProcs:	TypeNodeProcs;

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

TypeunspecProdBuildTGN:	BuildTGNProcType;


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;


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;


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

TypeenumProdProcs:	TypeNodeProcs;

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

TypeenumProdBuildTGN:	BuildTGNProcType;


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

TypeerrorProdProcs:	TypeNodeProcs;

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

TypeerrorProdBuildTGN:	BuildTGNProcType;


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

TyperecordProdProcs:	TypeNodeProcs;

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

TyperecordProdBuildTGN:	BuildTGNProcType;


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

TypenullProdProcs:	TypeNodeProcs;

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

TypenullProdBuildTGN:	BuildTGNProcType;


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;


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

‚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
ProgramexportProd
ImportListemptyProd
ImportListmoreProd
ImportinterfaceProd
DeclarationListemptyProd
DeclarationListmoreProd
DeclarationtypeProd
DeclarationconstantProd
TypealiasProd
TypeimportProd
TypeboolProd
Typecard16Prod
Typecard32Prod
Typeint16Prod
Typeint32Prod
TypesinkProd
TypesourceProd
TypestringProd
TypeunspecProd
TypearrayProd
TypeseqProd
TypeenumProd
TypeerrorProd
TyperecordProd
TypenullProd
TypeprocProd
TypechoiceProd
�Ê`˜š
œ™Jš
œ<™<Jš
œ:™:Jš
œ:™:—J˜š
Ïk	˜	J˜
J˜
—J˜JšÏn
œ�œ
�œ˜#Jš
�˜Jš�œ˜ J˜Jš
œ™J˜Jšœ�œ�œ˜<Jšœ�œ�œ
˜)JšœHž
œžœ˜Š
J˜Jšžœ˜)J˜šžœ�œ�œ
�œJž
œžœ˜Æ
Jš�œ˜—J˜Jšž œ˜:J˜Jš
œ™J˜Jšœ�œ�œ˜@Jšœ�œ�œ
˜+J˜J˜Jšžœ˜.J˜šžœ�œ�œ
�œ
˜>Jš�œ˜—J˜Jšžœ˜.J˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*Jšž
œžœ˜0J˜Jšžœ˜-J˜šžœ�œ�œ
�œž
œžœ
˜mJš�œ˜—J˜Jšžœ˜-J˜Jš
œ™J˜Jšœ�œ�œ˜@Jšœ�œ�œ
˜+J˜KJ˜Jšžœ˜*J˜šžœ�œ�œ
�œL˜‰
Jš�œ
˜—J˜Jšžœ˜2J˜Jš
œ™J˜Jšœ�œ�œ"˜JJšœ"�œ�œ
˜0J˜J˜Jšžœ˜8J˜šž!œ�œ�œ
�œ
˜CJš�œ˜—J˜Jšž&œ˜?Jšž&œ˜?J˜Jš
œ™J˜Jšœ�œ�œ!˜HJšœ!�œ�œ
˜/Jšžœžœ˜DJ˜Jšžœ˜7J˜šž œ�œ�œ
�œžœžœ˜†
Jš�œ˜—J˜Jšž%œ˜>Jšž%œ˜>J˜Jš
œ™J˜Jšœ�œ�œ˜@Jšœ�œ�œ
˜+Jšœžœ˜J˜Jšžœ˜/J˜š
žœ�œ�œ
�œžœ˜ZJš�œ˜—J˜Jšžœ˜0Jšž!œ˜:J˜Jš
œ™J˜Jšœ�œ�œ!˜HJšœ!�œ�œ
˜/Jšœžœžœ˜4J˜Jšžœ˜3J˜šž œ�œ�œ
�œžœžœ˜vJš�œ˜—J˜Jšž œ˜4Jšž%œ˜>J˜Jš
œ
™
J˜Jšœ�œ�œ˜4Jšœ�œ�œ
˜%J˜J˜Jšžœ˜"J˜šžœ�œ�œ
�œ
˜DJš�œ˜—J˜Jšžœ˜(J˜Jš
œ™J˜Jšœ�œ�œ˜6Jšœ�œ�œ
˜&J˜%J˜Jšžœ˜#J˜šžœ�œ�œ
�œ&˜^Jš�œ˜—J˜Jšžœ˜)J˜Jš
œ™J˜Jšœ�œ�œ˜2Jšœ�œ�œ
˜$J˜J˜Jšžœ˜!J˜šžœ�œ�œ
�œ
˜7Jš�œ˜—J˜Jšžœ˜'J˜Jš
œ™J˜Jšœ�œ�œ˜6Jšœ�œ�œ
˜&J˜J˜Jšžœ˜#J˜šžœ�œ�œ
�œ
˜9Jš�œ˜—J˜Jšžœ˜)J˜Jš
œ™J˜Jšœ�œ�œ˜6Jšœ�œ�œ
˜&J˜J˜Jšžœ˜#J˜šžœ�œ�œ
�œ
˜9Jš�œ˜—J˜Jšžœ˜)J˜Jš
œ
™
J˜Jšœ�œ�œ˜4Jšœ�œ�œ
˜%J˜J˜Jšžœ˜"J˜šžœ�œ�œ
�œ
˜8Jš�œ˜—J˜Jšžœ˜(J˜Jš
œ
™
J˜Jšœ�œ�œ˜4Jšœ�œ�œ
˜%J˜J˜Jšžœ˜"J˜šžœ�œ�œ
�œ
˜8Jš�œ˜—J˜Jšžœ˜(J˜Jš
œ™J˜Jšœ�œ�œ˜2Jšœ�œ�œ
˜$J˜J˜Jšžœ˜!J˜šžœ�œ�œ
�œ
˜7Jš�œ˜—J˜Jšžœ˜'J˜Jš
œ™J˜Jšœ�œ�œ˜6Jšœ�œ�œ
˜&J˜J˜Jšžœ˜#J˜šžœ�œ�œ
�œ
˜9Jš�œ˜—J˜Jšžœ˜)J˜Jš
œ™J˜Jšœ�œ�œ˜6Jšœ�œ�œ
˜&J˜J˜Jšžœ˜#J˜šžœ�œ�œ
�œ
˜9Jš�œ˜—J˜Jšžœ˜)J˜Jš
œ™J˜Jšœ�œ�œ˜6Jšœ�œ�œ
˜&J˜J˜Jšžœ˜#J˜šžœ�œ�œ
�œ
˜9Jš�œ˜—J˜Jšžœ˜)J˜Jš
œ
™
J˜Jšœ�œ�œ˜4Jšœ�œ�œ
˜%Jšžœžœ˜(J˜Jšžœ˜"J˜šžœ�œ�œ
�œžœžœ˜`Jš�œ˜—J˜Jšžœ˜(J˜Jš
œ™J˜Jšœ�œ�œ˜0Jšœ�œ�œ
˜#Jšžœžœ˜(J˜Jšžœ˜ J˜šžœ�œ�œ
�œžœžœ˜^Jš�œ˜—J˜Jšžœ˜&J˜Jš
œ™J˜Jšœ�œ�œ˜2Jšœ�œ�œ
˜$Jšžœ˜J˜Jšžœ˜!J˜š
žœ�œ�œ
�œžœ˜UJš�œ˜—J˜Jšžœ˜'J˜Jš
œ
™
J˜Jšœ�œ�œ˜4Jšœ�œ�œ
˜%Jšž	œ˜J˜Jšžœ˜"J˜š
žœ�œ�œ
�œž	œ˜RJš�œ˜—J˜Jšžœ˜(J˜Jš
œ™J˜Jšœ�œ�œ˜6Jšœ�œ�œ
˜&Jšž	œ˜J˜Jšžœ˜#J˜š
žœ�œ�œ
�œž	œ˜SJš�œ˜—J˜Jšžœ˜)J˜Jš
œ™J˜Jšœ�œ�œ˜2Jšœ�œ�œ
˜$J˜J˜Jšžœ˜!J˜šžœ�œ�œ
�œ
˜7Jš�œ˜—J˜Jšžœ˜'J˜Jš
œ™J˜Jšœ�œ�œ˜2Jšœ�œ�œ
˜$Jšžœžœžœ˜RJ˜Jšžœ˜!J˜šžœ�œ�œ
�œžœžœžœ˜‰
Jš�œ˜—J˜Jšžœ˜'J˜Jš
œ™J˜Jšœ�œ�œ˜6Jšœ�œ�œ
˜&Jšžœžœ
˜"J˜Jšžœ˜#J˜šžœ�œ�œ
�œžœžœ˜[Jš�œ˜—J˜Jšžœ˜)Jš�œ˜J˜—…—#Š2l