DIRECTORY
SiroccoCGDef,
SiroccoATDef;

SiroccoAG2Def: CEDAR DEFINITIONS = 
BEGIN
OPEN SiroccoCGDef, SiroccoATDef;


ConstantderefProdData:	TYPE = REF ConstantderefProdDataBody;
ConstantderefProdDataBody:	TYPE = RECORD[
id: idNode];

ConstantderefProdProcs:	ConstantNodeProcs;

BuildConstantderefProdNode:	PROC[position: INT, length: INT, id: idNode]
RETURNS[ConstantNode];

ConstantderefProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstantimportProdData:	TYPE = REF ConstantimportProdDataBody;
ConstantimportProdDataBody:	TYPE = RECORD[
idinterface: idNode, iditem: idNode];

ConstantimportProdProcs:	ConstantNodeProcs;

BuildConstantimportProdNode:	PROC[position: INT, length: INT, idinterface: idNode, iditem: idNode]
RETURNS[ConstantNode];

ConstantimportProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstantemptyProdData:	TYPE = REF ConstantemptyProdDataBody;
ConstantemptyProdDataBody:	TYPE = RECORD[
];

ConstantemptyProdProcs:	ConstantNodeProcs;

BuildConstantemptyProdNode:	PROC[position: INT, length: INT]
RETURNS[ConstantNode];

ConstantemptyProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstantfalseProdData:	TYPE = REF ConstantfalseProdDataBody;
ConstantfalseProdDataBody:	TYPE = RECORD[
];

ConstantfalseProdProcs:	ConstantNodeProcs;

BuildConstantfalseProdNode:	PROC[position: INT, length: INT]
RETURNS[ConstantNode];

ConstantfalseProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstanttrueProdData:	TYPE = REF ConstanttrueProdDataBody;
ConstanttrueProdDataBody:	TYPE = RECORD[
];

ConstanttrueProdProcs:	ConstantNodeProcs;

BuildConstanttrueProdNode:	PROC[position: INT, length: INT]
RETURNS[ConstantNode];

ConstanttrueProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstantunboundedProdData:	TYPE = REF ConstantunboundedProdDataBody;
ConstantunboundedProdDataBody:	TYPE = RECORD[
];

ConstantunboundedProdProcs:	ConstantNodeProcs;

BuildConstantunboundedProdNode:	PROC[position: INT, length: INT]
RETURNS[ConstantNode];

ConstantunboundedProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstantinvertedProdData:	TYPE = REF ConstantinvertedProdDataBody;
ConstantinvertedProdDataBody:	TYPE = RECORD[
Number: NumberNode];

ConstantinvertedProdProcs:	ConstantNodeProcs;

BuildConstantinvertedProdNode:	PROC[position: INT, length: INT, Number: NumberNode]
RETURNS[ConstantNode];

ConstantinvertedProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstantnumberProdData:	TYPE = REF ConstantnumberProdDataBody;
ConstantnumberProdDataBody:	TYPE = RECORD[
Number: NumberNode];

ConstantnumberProdProcs:	ConstantNodeProcs;

BuildConstantnumberProdNode:	PROC[position: INT, length: INT, Number: NumberNode]
RETURNS[ConstantNode];

ConstantnumberProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstantstringProdData:	TYPE = REF ConstantstringProdDataBody;
ConstantstringProdDataBody:	TYPE = RECORD[
rope: ropeNode];

ConstantstringProdProcs:	ConstantNodeProcs;

BuildConstantstringProdNode:	PROC[position: INT, length: INT, rope: ropeNode]
RETURNS[ConstantNode];

ConstantstringProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstantchoiceProdData:	TYPE = REF ConstantchoiceProdDataBody;
ConstantchoiceProdDataBody:	TYPE = RECORD[
id: idNode, Constant: ConstantNode];

ConstantchoiceProdProcs:	ConstantNodeProcs;

BuildConstantchoiceProdNode:	PROC[position: INT, length: INT, id: idNode, Constant: ConstantNode]
RETURNS[ConstantNode];

ConstantchoiceProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstantconstructorProdData:	TYPE = REF ConstantconstructorProdDataBody;
ConstantconstructorProdDataBody:	TYPE = RECORD[
Constructor: ConstructorNode];

ConstantconstructorProdProcs:	ConstantNodeProcs;

BuildConstantconstructorProdNode:	PROC[position: INT, length: INT, Constructor: ConstructorNode]
RETURNS[ConstantNode];

ConstantconstructorProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstantgroupingProdData:	TYPE = REF ConstantgroupingProdDataBody;
ConstantgroupingProdDataBody:	TYPE = RECORD[
Grouping: GroupingNode];

ConstantgroupingProdProcs:	ConstantNodeProcs;

BuildConstantgroupingProdNode:	PROC[position: INT, length: INT, Grouping: GroupingNode]
RETURNS[ConstantNode];

ConstantgroupingProdBuildAbstractValue:	BuildAbstractValueProcType;


EnumerationoneProdData:	TYPE = REF EnumerationoneProdDataBody;
EnumerationoneProdDataBody:	TYPE = RECORD[
id: idNode, Constant: ConstantNode];

EnumerationoneProdProcs:	EnumerationNodeProcs;

BuildEnumerationoneProdNode:	PROC[position: INT, length: INT, id: idNode, Constant: ConstantNode]
RETURNS[EnumerationNode];

EnumerationoneProdBuildTGN:	BuildTGNProcType;


EnumerationmoreProdData:	TYPE = REF EnumerationmoreProdDataBody;
EnumerationmoreProdDataBody:	TYPE = RECORD[
Enumerationvalue: EnumerationNode, Enumerationnext: EnumerationNode];

EnumerationmoreProdProcs:	EnumerationNodeProcs;

BuildEnumerationmoreProdNode:	PROC[position: INT, length: INT, Enumerationvalue: EnumerationNode, Enumerationnext: EnumerationNode]
RETURNS[EnumerationNode];

EnumerationmoreProdBuildTGN:	BuildTGNProcType;


UniononeProdData:	TYPE = REF UniononeProdDataBody;
UniononeProdDataBody:	TYPE = RECORD[
NameList: NameListNode, Type: TypeNode];

UniononeProdProcs:	UnionNodeProcs;

BuildUniononeProdNode:	PROC[position: INT, length: INT, NameList: NameListNode, Type: TypeNode]
RETURNS[UnionNode];

UniononeProdBuildTGN:	BuildTGNProcType;


UnionmoreProdData:	TYPE = REF UnionmoreProdDataBody;
UnionmoreProdDataBody:	TYPE = RECORD[
Unionvalue: UnionNode, Unionnext: UnionNode];

UnionmoreProdProcs:	UnionNodeProcs;

BuildUnionmoreProdNode:	PROC[position: INT, length: INT, Unionvalue: UnionNode, Unionnext: UnionNode]
RETURNS[UnionNode];

UnionmoreProdBuildTGN:	BuildTGNProcType;


FieldListemptyProdData:	TYPE = REF FieldListemptyProdDataBody;
FieldListemptyProdDataBody:	TYPE = RECORD[
];

FieldListemptyProdProcs:	FieldListNodeProcs;

BuildFieldListemptyProdNode:	PROC[position: INT, length: INT]
RETURNS[FieldListNode];

FieldListemptyProdBuildTGN:	BuildTGNProcType;


FieldListoneProdData:	TYPE = REF FieldListoneProdDataBody;
FieldListoneProdDataBody:	TYPE = RECORD[
NameList: NameListNode, Type: TypeNode];

FieldListoneProdProcs:	FieldListNodeProcs;

BuildFieldListoneProdNode:	PROC[position: INT, length: INT, NameList: NameListNode, Type: TypeNode]
RETURNS[FieldListNode];

FieldListoneProdBuildTGN:	BuildTGNProcType;


FieldListmoreProdData:	TYPE = REF FieldListmoreProdDataBody;
FieldListmoreProdDataBody:	TYPE = RECORD[
FieldListvalue: FieldListNode, FieldListrest: FieldListNode];

FieldListmoreProdProcs:	FieldListNodeProcs;

BuildFieldListmoreProdNode:	PROC[position: INT, length: INT, FieldListvalue: FieldListNode, FieldListrest: FieldListNode]
RETURNS[FieldListNode];

FieldListmoreProdBuildTGN:	BuildTGNProcType;


GroupingoneProdData:	TYPE = REF GroupingoneProdDataBody;
GroupingoneProdDataBody:	TYPE = RECORD[
Constant: ConstantNode];

GroupingoneProdProcs:	GroupingNodeProcs;

BuildGroupingoneProdNode:	PROC[position: INT, length: INT, Constant: ConstantNode]
RETURNS[GroupingNode];

GroupingoneProdBuildAbstractValue:	BuildAbstractValueProcType;


GroupingmoreProdData:	TYPE = REF GroupingmoreProdDataBody;
GroupingmoreProdDataBody:	TYPE = RECORD[
Constant: ConstantNode, Grouping: GroupingNode];

GroupingmoreProdProcs:	GroupingNodeProcs;

BuildGroupingmoreProdNode:	PROC[position: INT, length: INT, Constant: ConstantNode, Grouping: GroupingNode]
RETURNS[GroupingNode];

GroupingmoreProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstructoroneProdData:	TYPE = REF ConstructoroneProdDataBody;
ConstructoroneProdDataBody:	TYPE = RECORD[
Binding: BindingNode];

ConstructoroneProdProcs:	ConstructorNodeProcs;

BuildConstructoroneProdNode:	PROC[position: INT, length: INT, Binding: BindingNode]
RETURNS[ConstructorNode];

ConstructoroneProdBuildAbstractValue:	BuildAbstractValueProcType;


ConstructormoreProdData:	TYPE = REF ConstructormoreProdDataBody;
ConstructormoreProdDataBody:	TYPE = RECORD[
Binding: BindingNode, Constructor: ConstructorNode];

ConstructormoreProdProcs:	ConstructorNodeProcs;

BuildConstructormoreProdNode:	PROC[position: INT, length: INT, Binding: BindingNode, Constructor: ConstructorNode]
RETURNS[ConstructorNode];

ConstructormoreProdBuildAbstractValue:	BuildAbstractValueProcType;


BindingProdData:	TYPE = REF BindingProdDataBody;
BindingProdDataBody:	TYPE = RECORD[
NameList: NameListNode, Constant: ConstantNode];

BindingProdProcs:	BindingNodeProcs;

BuildBindingProdNode:	PROC[position: INT, length: INT, NameList: NameListNode, Constant: ConstantNode]
RETURNS[BindingNode];

BindingProdBuildAbstractValue:	BuildAbstractValueProcType;


NameListemptyProdData:	TYPE = REF NameListemptyProdDataBody;
NameListemptyProdDataBody:	TYPE = RECORD[
];

NameListemptyProdProcs:	NameListNodeProcs;

BuildNameListemptyProdNode:	PROC[position: INT, length: INT]
RETURNS[NameListNode];

NameListemptyProdBuildTGN:	BuildTGNProcType;


NameListoneProdData:	TYPE = REF NameListoneProdDataBody;
NameListoneProdDataBody:	TYPE = RECORD[
id: idNode];

NameListoneProdProcs:	NameListNodeProcs;

BuildNameListoneProdNode:	PROC[position: INT, length: INT, id: idNode]
RETURNS[NameListNode];

NameListoneProdBuildTGN:	BuildTGNProcType;


NameListmoreProdData:	TYPE = REF NameListmoreProdDataBody;
NameListmoreProdDataBody:	TYPE = RECORD[
id: idNode, NameList: NameListNode];

NameListmoreProdProcs:	NameListNodeProcs;

BuildNameListmoreProdNode:	PROC[position: INT, length: INT, id: idNode, NameList: NameListNode]
RETURNS[NameListNode];

NameListmoreProdBuildTGN:	BuildTGNProcType;


NumberdecimalProdData:	TYPE = REF NumberdecimalProdDataBody;
NumberdecimalProdDataBody:	TYPE = RECORD[
decimal: decimalNode];

NumberdecimalProdProcs:	NumberNodeProcs;

BuildNumberdecimalProdNode:	PROC[position: INT, length: INT, decimal: decimalNode]
RETURNS[NumberNode];

NumberdecimalProdBuildAbstractValue:	BuildAbstractValueProcType;


NumberhexProdData:	TYPE = REF NumberhexProdDataBody;
NumberhexProdDataBody:	TYPE = RECORD[
hex: hexNode];

NumberhexProdProcs:	NumberNodeProcs;

BuildNumberhexProdNode:	PROC[position: INT, length: INT, hex: hexNode]
RETURNS[NumberNode];

NumberhexProdBuildAbstractValue:	BuildAbstractValueProcType;


NumberoctalProdData:	TYPE = REF NumberoctalProdDataBody;
NumberoctalProdDataBody:	TYPE = RECORD[
octal: octalNode];

NumberoctalProdProcs:	NumberNodeProcs;

BuildNumberoctalProdNode:	PROC[position: INT, length: INT, octal: octalNode]
RETURNS[NumberNode];

NumberoctalProdBuildAbstractValue:	BuildAbstractValueProcType;
END..

æSiroccoAG2Def.mesa
Copyright Ó 1987 by Xerox Corporation.  All rights reserved.
Generated by BJackson.pa at August 26, 1987 3:38:08 pm PDT
using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT
ConstantderefProd
ConstantimportProd
ConstantemptyProd
ConstantfalseProd
ConstanttrueProd
ConstantunboundedProd
ConstantinvertedProd
ConstantnumberProd
ConstantstringProd
ConstantchoiceProd
ConstantconstructorProd
ConstantgroupingProd
EnumerationoneProd
EnumerationmoreProd
UniononeProd
UnionmoreProd
FieldListemptyProd
FieldListoneProd
FieldListmoreProd
GroupingoneProd
GroupingmoreProd
ConstructoroneProd
ConstructormoreProd
BindingProd
NameListemptyProd
NameListoneProd
NameListmoreProd
NumberdecimalProd
NumberhexProd
NumberoctalProd
�Ê
š˜š
œ™Jš
œ<™<Jš
œ:™:Jš
œ:™:—J˜š
Ïk	˜	J˜
J˜
—J˜JšÏn
œ�œ
�œ˜#Jš
�˜Jš�œ˜ J˜Jš
œ™J˜Jšœ�œ�œ˜<Jšœ�œ�œ
˜)J˜J˜Jšžœ˜*J˜šžœ�œ�œ
�œ
˜HJš�œ˜—J˜Jšž#œ˜@J˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*J˜%J˜Jšžœ˜+J˜šžœ�œ�œ
�œ&˜bJš�œ˜—J˜Jšž$œ˜AJ˜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š
œ™J˜Jšœ�œ�œ˜:Jšœ�œ�œ
˜(J˜J˜Jšžœ˜)J˜šžœ�œ�œ
�œ
˜;Jš�œ˜—J˜Jšž"œ˜?J˜Jš
œ™J˜Jšœ�œ�œ˜DJšœ�œ�œ
˜-J˜J˜Jšžœ˜.J˜šžœ�œ�œ
�œ
˜@Jš�œ˜—J˜Jšž'œ˜DJ˜Jš
œ™J˜Jšœ�œ�œ˜BJšœ�œ�œ
˜,Jšžœ˜J˜Jšžœ˜-J˜š
žœ�œ�œ
�œžœ
˜SJš�œ˜—J˜Jšž&œ˜CJ˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*Jšžœ˜J˜Jšžœ˜+J˜š
žœ�œ�œ
�œžœ
˜QJš�œ˜—J˜Jšž$œ˜AJ˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*J˜J˜Jšžœ˜+J˜šžœ�œ�œ
�œ˜MJš�œ˜—J˜Jšž$œ˜AJ˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*Jšœžœ˜$J˜Jšžœ˜+J˜š
žœ�œ�œ
�œžœ˜aJš�œ˜—J˜Jšž$œ˜AJ˜Jš
œ™J˜Jšœ�œ�œ!˜HJšœ!�œ�œ
˜/Jšžœ˜J˜Jšžœ˜0J˜š
ž œ�œ�œ
�œžœ˜`Jš�œ˜—J˜Jšž)œ˜FJ˜Jš
œ™J˜Jšœ�œ�œ˜BJšœ�œ�œ
˜,Jšžœ˜J˜Jšžœ˜-J˜š
žœ�œ�œ
�œžœ˜WJš�œ˜—J˜Jšž&œ˜CJ˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*Jšœžœ˜$J˜Jšžœ˜.J˜š
žœ�œ�œ
�œžœ˜aJš�œ˜—J˜Jšžœ˜-J˜Jš
œ™J˜Jšœ�œ�œ˜@Jšœ�œ�œ
˜+Jšžœžœ˜EJ˜Jšžœ˜/J˜šžœ�œ�œ
�œžœžœ˜ƒ
Jš�œ˜—J˜Jšžœ˜.J˜Jš
œ™J˜Jšœ�œ�œ˜2Jšœ�œ�œ
˜$Jšžœžœ˜(J˜Jšžœ˜"J˜šžœ�œ�œ
�œžœžœ˜_Jš�œ˜—J˜Jšžœ˜'J˜Jš
œ
™
J˜Jšœ�œ�œ˜4Jšœ�œ�œ
˜%Jšž
œ
ž	œ
˜-J˜Jšžœ˜#J˜šžœ�œ�œ
�œž
œ
ž	œ˜eJš�œ˜—J˜Jšžœ˜(J˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*J˜J˜Jšžœ˜,J˜šžœ�œ�œ
�œ
˜=Jš�œ˜—J˜Jšžœ˜-J˜Jš
œ™J˜Jšœ�œ�œ˜:Jšœ�œ�œ
˜(Jšžœžœ˜(J˜Jšžœ˜*J˜šžœ�œ�œ
�œžœžœ˜cJš�œ˜—J˜Jšžœ˜+J˜Jš
œ™J˜Jšœ�œ�œ˜<Jšœ�œ�œ
˜)Jšžœž
œ˜=J˜Jšžœ˜+J˜šžœ�œ�œ
�œžœž
œ˜yJš�œ˜—J˜Jšžœ˜,J˜Jš
œ™J˜Jšœ�œ�œ˜8Jšœ�œ�œ
˜'Jšžœ˜J˜Jšžœ˜(J˜š
žœ�œ�œ
�œžœ˜RJš�œ˜—J˜Jšž!œ˜>J˜Jš
œ™J˜Jšœ�œ�œ˜:Jšœ�œ�œ
˜(Jšžœžœ˜0J˜Jšžœ˜)J˜šžœ�œ�œ
�œžœžœ˜kJš�œ˜—J˜Jšž"œ˜?J˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*Jšžœ˜J˜Jšžœ˜.J˜š
žœ�œ�œ
�œžœ˜SJš�œ˜—J˜Jšž$œ˜AJ˜Jš
œ™J˜Jšœ�œ�œ˜@Jšœ�œ�œ
˜+Jšžœžœ˜4J˜Jšžœ˜/J˜šžœ�œ�œ
�œžœžœ˜rJš�œ˜—J˜Jšž%œ˜BJ˜Jš
œ™J˜Jšœ�œ�œ˜0Jšœ�œ�œ
˜#Jšžœžœ˜0J˜Jšžœ˜#J˜šžœ�œ�œ
�œžœžœ˜fJš�œ˜—J˜Jšžœ˜:J˜Jš
œ™J˜Jšœ�œ�œ˜<Jšœ�œ�œ
˜)J˜J˜Jšžœ˜*J˜šžœ�œ�œ
�œ
˜<Jš�œ˜—J˜Jšžœ˜,J˜Jš
œ™J˜Jšœ�œ�œ˜8Jšœ�œ�œ
˜'J˜J˜Jšžœ˜(J˜šžœ�œ�œ
�œ
˜FJš�œ˜—J˜Jšžœ˜*J˜Jš
œ™J˜Jšœ�œ�œ˜:Jšœ�œ�œ
˜(Jšœžœ˜$J˜Jšžœ˜)J˜š
žœ�œ�œ
�œžœ˜_Jš�œ˜—J˜Jšžœ˜+J˜Jš
œ™J˜Jšœ�œ�œ˜<Jšœ�œ�œ
˜)J˜J˜Jšžœ˜(J˜šžœ�œ�œ
�œ˜RJš�œ
˜—J˜Jšž#œ˜@J˜Jš
œ
™
J˜Jšœ�œ�œ˜4Jšœ�œ�œ
˜%J˜J˜Jšžœ˜$J˜šžœ�œ�œ
�œ˜FJš�œ
˜—J˜Jšžœ˜<J˜Jš
œ™J˜Jšœ�œ�œ˜8Jšœ�œ�œ
˜'J˜J˜Jšžœ˜&J˜šžœ�œ�œ
�œ˜LJš�œ
˜—J˜Jšž!œ˜>Jš�œ˜J˜—…—)9š