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
DIRECTORY
SiroccoCGDef,
SiroccoATDef;
SiroccoAG2Def: CEDAR DEFINITIONS =
BEGIN
OPEN SiroccoCGDef, SiroccoATDef;
ConstantderefProd
ConstantderefProdData: TYPE = REF ConstantderefProdDataBody;
ConstantderefProdDataBody: TYPE = RECORD[
id: idNode];
ConstantderefProdProcs: ConstantNodeProcs;
BuildConstantderefProdNode:
PROC[position:
INT, length:
INT, id: idNode]
RETURNS[ConstantNode];
ConstantderefProdBuildAbstractValue: BuildAbstractValueProcType;
ConstantimportProd
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;
ConstantemptyProd
ConstantemptyProdData: TYPE = REF ConstantemptyProdDataBody;
ConstantemptyProdDataBody: TYPE = RECORD[
];
ConstantemptyProdProcs: ConstantNodeProcs;
BuildConstantemptyProdNode:
PROC[position:
INT, length:
INT]
RETURNS[ConstantNode];
ConstantemptyProdBuildAbstractValue: BuildAbstractValueProcType;
ConstantfalseProd
ConstantfalseProdData: TYPE = REF ConstantfalseProdDataBody;
ConstantfalseProdDataBody: TYPE = RECORD[
];
ConstantfalseProdProcs: ConstantNodeProcs;
BuildConstantfalseProdNode:
PROC[position:
INT, length:
INT]
RETURNS[ConstantNode];
ConstantfalseProdBuildAbstractValue: BuildAbstractValueProcType;
ConstanttrueProd
ConstanttrueProdData: TYPE = REF ConstanttrueProdDataBody;
ConstanttrueProdDataBody: TYPE = RECORD[
];
ConstanttrueProdProcs: ConstantNodeProcs;
BuildConstanttrueProdNode:
PROC[position:
INT, length:
INT]
RETURNS[ConstantNode];
ConstanttrueProdBuildAbstractValue: BuildAbstractValueProcType;
ConstantunboundedProd
ConstantunboundedProdData: TYPE = REF ConstantunboundedProdDataBody;
ConstantunboundedProdDataBody: TYPE = RECORD[
];
ConstantunboundedProdProcs: ConstantNodeProcs;
BuildConstantunboundedProdNode:
PROC[position:
INT, length:
INT]
RETURNS[ConstantNode];
ConstantunboundedProdBuildAbstractValue: BuildAbstractValueProcType;
ConstantinvertedProd
ConstantinvertedProdData: TYPE = REF ConstantinvertedProdDataBody;
ConstantinvertedProdDataBody: TYPE = RECORD[
Number: NumberNode];
ConstantinvertedProdProcs: ConstantNodeProcs;
BuildConstantinvertedProdNode:
PROC[position:
INT, length:
INT,
Number: NumberNode]
RETURNS[ConstantNode];
ConstantinvertedProdBuildAbstractValue: BuildAbstractValueProcType;
ConstantnumberProd
ConstantnumberProdData: TYPE = REF ConstantnumberProdDataBody;
ConstantnumberProdDataBody: TYPE = RECORD[
Number: NumberNode];
ConstantnumberProdProcs: ConstantNodeProcs;
BuildConstantnumberProdNode:
PROC[position:
INT, length:
INT,
Number: NumberNode]
RETURNS[ConstantNode];
ConstantnumberProdBuildAbstractValue: BuildAbstractValueProcType;
ConstantstringProd
ConstantstringProdData: TYPE = REF ConstantstringProdDataBody;
ConstantstringProdDataBody: TYPE = RECORD[
rope: ropeNode];
ConstantstringProdProcs: ConstantNodeProcs;
BuildConstantstringProdNode:
PROC[position:
INT, length:
INT, rope: ropeNode]
RETURNS[ConstantNode];
ConstantstringProdBuildAbstractValue: BuildAbstractValueProcType;
ConstantchoiceProd
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;
ConstantconstructorProd
ConstantconstructorProdData: TYPE = REF ConstantconstructorProdDataBody;
ConstantconstructorProdDataBody: TYPE = RECORD[
Constructor: ConstructorNode];
ConstantconstructorProdProcs: ConstantNodeProcs;
BuildConstantconstructorProdNode:
PROC[position:
INT, length:
INT,
Constructor: ConstructorNode]
RETURNS[ConstantNode];
ConstantconstructorProdBuildAbstractValue: BuildAbstractValueProcType;
ConstantgroupingProd
ConstantgroupingProdData: TYPE = REF ConstantgroupingProdDataBody;
ConstantgroupingProdDataBody: TYPE = RECORD[
Grouping: GroupingNode];
ConstantgroupingProdProcs: ConstantNodeProcs;
BuildConstantgroupingProdNode:
PROC[position:
INT, length:
INT,
Grouping: GroupingNode]
RETURNS[ConstantNode];
ConstantgroupingProdBuildAbstractValue: BuildAbstractValueProcType;
EnumerationoneProd
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;
EnumerationmoreProd
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;
UniononeProd
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;
UnionmoreProd
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;
FieldListemptyProd
FieldListemptyProdData: TYPE = REF FieldListemptyProdDataBody;
FieldListemptyProdDataBody: TYPE = RECORD[
];
FieldListemptyProdProcs: FieldListNodeProcs;
BuildFieldListemptyProdNode:
PROC[position:
INT, length:
INT]
RETURNS[FieldListNode];
FieldListemptyProdBuildTGN: BuildTGNProcType;
FieldListoneProd
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;
FieldListmoreProd
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;
GroupingoneProd
GroupingoneProdData: TYPE = REF GroupingoneProdDataBody;
GroupingoneProdDataBody: TYPE = RECORD[
Constant: ConstantNode];
GroupingoneProdProcs: GroupingNodeProcs;
BuildGroupingoneProdNode:
PROC[position:
INT, length:
INT,
Constant: ConstantNode]
RETURNS[GroupingNode];
GroupingoneProdBuildAbstractValue: BuildAbstractValueProcType;
GroupingmoreProd
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;
ConstructoroneProd
ConstructoroneProdData: TYPE = REF ConstructoroneProdDataBody;
ConstructoroneProdDataBody: TYPE = RECORD[
Binding: BindingNode];
ConstructoroneProdProcs: ConstructorNodeProcs;
BuildConstructoroneProdNode:
PROC[position:
INT, length:
INT,
Binding: BindingNode]
RETURNS[ConstructorNode];
ConstructoroneProdBuildAbstractValue: BuildAbstractValueProcType;
ConstructormoreProd
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;
BindingProd
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;
NameListemptyProd
NameListemptyProdData: TYPE = REF NameListemptyProdDataBody;
NameListemptyProdDataBody: TYPE = RECORD[
];
NameListemptyProdProcs: NameListNodeProcs;
BuildNameListemptyProdNode:
PROC[position:
INT, length:
INT]
RETURNS[NameListNode];
NameListemptyProdBuildTGN: BuildTGNProcType;
NameListoneProd
NameListoneProdData: TYPE = REF NameListoneProdDataBody;
NameListoneProdDataBody: TYPE = RECORD[
id: idNode];
NameListoneProdProcs: NameListNodeProcs;
BuildNameListoneProdNode:
PROC[position:
INT, length:
INT, id: idNode]
RETURNS[NameListNode];
NameListoneProdBuildTGN: BuildTGNProcType;
NameListmoreProd
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;
NumberdecimalProd
NumberdecimalProdData: TYPE = REF NumberdecimalProdDataBody;
NumberdecimalProdDataBody: TYPE = RECORD[
decimal: decimalNode];
NumberdecimalProdProcs: NumberNodeProcs;
BuildNumberdecimalProdNode:
PROC[position:
INT, length:
INT, decimal: decimalNode]
RETURNS[NumberNode];
NumberdecimalProdBuildAbstractValue: BuildAbstractValueProcType;
NumberhexProd
NumberhexProdData: TYPE = REF NumberhexProdDataBody;
NumberhexProdDataBody: TYPE = RECORD[
hex: hexNode];
NumberhexProdProcs: NumberNodeProcs;
BuildNumberhexProdNode:
PROC[position:
INT, length:
INT, hex: hexNode]
RETURNS[NumberNode];
NumberhexProdBuildAbstractValue: BuildAbstractValueProcType;
NumberoctalProd
NumberoctalProdData: TYPE = REF NumberoctalProdDataBody;
NumberoctalProdDataBody: TYPE = RECORD[
octal: octalNode];
NumberoctalProdProcs: NumberNodeProcs;
BuildNumberoctalProdNode:
PROC[position:
INT, length:
INT, octal: octalNode]
RETURNS[NumberNode];
NumberoctalProdBuildAbstractValue: BuildAbstractValueProcType;
END..