DIRECTORY
SaffronTreeBucketDef,
SaffronTreeDeclsDef,
SaffronGenericDef,
SaffronATDef;

SaffronAG7Def: CEDAR DEFINITIONS = 
BEGIN
OPEN SaffronTreeBucketDef, SaffronTreeDeclsDef, SaffronGenericDef, SaffronATDef;


AccessemptyProdData: TYPE = REF AccessemptyProdDataBody;
AccessemptyProdDataBody: TYPE = RECORD[
];

AccessemptyProdProcs: AccessNodeProcs;

BuildAccessemptyProdNode: PROC[position: INT, length: INT]
RETURNS[AccessNode];

AccessemptyProdfoo: fooProcType;


AccesspublicProdData: TYPE = REF AccesspublicProdDataBody;
AccesspublicProdDataBody: TYPE = RECORD[
];

AccesspublicProdProcs: AccessNodeProcs;

BuildAccesspublicProdNode: PROC[position: INT, length: INT]
RETURNS[AccessNode];

AccesspublicProdfoo: fooProcType;


AccessprivateProdData: TYPE = REF AccessprivateProdDataBody;
AccessprivateProdDataBody: TYPE = RECORD[
];

AccessprivateProdProcs: AccessNodeProcs;

BuildAccessprivateProdNode: PROC[position: INT, length: INT]
RETURNS[AccessNode];

AccessprivateProdfoo: fooProcType;


DefaultemptyProdData: TYPE = REF DefaultemptyProdDataBody;
DefaultemptyProdDataBody: TYPE = RECORD[
];

DefaultemptyProdProcs: DefaultNodeProcs;

BuildDefaultemptyProdNode: PROC[position: INT, length: INT]
RETURNS[DefaultNode];

DefaultemptyProdfoo: fooProcType;


DefaultgetsProdData: TYPE = REF DefaultgetsProdDataBody;
DefaultgetsProdDataBody: TYPE = RECORD[
];

DefaultgetsProdProcs: DefaultNodeProcs;

BuildDefaultgetsProdNode: PROC[position: INT, length: INT]
RETURNS[DefaultNode];

DefaultgetsProdfoo: fooProcType;


DefaultgetsexpProdData: TYPE = REF DefaultgetsexpProdDataBody;
DefaultgetsexpProdDataBody: TYPE = RECORD[
Exp: ExpNode];

DefaultgetsexpProdProcs: DefaultNodeProcs;

BuildDefaultgetsexpProdNode: PROC[position: INT, length: INT, Exp: ExpNode]
RETURNS[DefaultNode];

DefaultgetsexpProdfoo: fooProcType;


DefaultgetstrashProdData: TYPE = REF DefaultgetstrashProdDataBody;
DefaultgetstrashProdDataBody: TYPE = RECORD[
];

DefaultgetstrashProdProcs: DefaultNodeProcs;

BuildDefaultgetstrashProdNode: PROC[position: INT, length: INT]
RETURNS[DefaultNode];

DefaultgetstrashProdfoo: fooProcType;


DefaultgetsexportrashProdData: TYPE = REF DefaultgetsexportrashProdDataBody;
DefaultgetsexportrashProdDataBody: TYPE = RECORD[
Exp: ExpNode];

DefaultgetsexportrashProdProcs: DefaultNodeProcs;

BuildDefaultgetsexportrashProdNode: PROC[position: INT, length: INT, Exp: ExpNode]
RETURNS[DefaultNode];

DefaultgetsexportrashProdfoo: fooProcType;


IdentidProdData: TYPE = REF IdentidProdDataBody;
IdentidProdDataBody: TYPE = RECORD[
id: idNode];

IdentidProdProcs: IdentNodeProcs;

BuildIdentidProdNode: PROC[position: INT, length: INT, id: idNode]
RETURNS[IdentNode];

IdentidProdfoo: fooProcType;
IdentidProdInsertDescriptor: InsertDescriptorProcType;
IdentidProdReplaceDescriptor: ReplaceDescriptorProcType;
IdentidProdAddToNamedFieldList: AddToNamedFieldListProcType;
IdentidProdProcessDecls: ProcessDeclsProcType;


IdentidpositionProdData: TYPE = REF IdentidpositionProdDataBody;
IdentidpositionProdDataBody: TYPE = RECORD[
id: idNode, Position: PositionNode];

IdentidpositionProdProcs: IdentNodeProcs;

BuildIdentidpositionProdNode: PROC[position: INT, length: INT, id: idNode, Position: PositionNode]
RETURNS[IdentNode];

IdentidpositionProdfoo: fooProcType;
IdentidpositionProdInsertDescriptor: InsertDescriptorProcType;
IdentidpositionProdReplaceDescriptor: ReplaceDescriptorProcType;
IdentidpositionProdAddToNamedFieldList: AddToNamedFieldListProcType;
IdentidpositionProdProcessDecls: ProcessDeclsProcType;


PositionProdData: TYPE = REF PositionProdDataBody;
PositionProdDataBody: TYPE = RECORD[
Exp: ExpNode, OptBits: OptBitsNode];

PositionProdProcs: PositionNodeProcs;

BuildPositionProdNode: PROC[position: INT, length: INT, Exp: ExpNode, OptBits: OptBitsNode]
RETURNS[PositionNode];

PositionProdfoo: fooProcType;


OptBitsabsentProdData: TYPE = REF OptBitsabsentProdDataBody;
OptBitsabsentProdDataBody: TYPE = RECORD[
];

OptBitsabsentProdProcs: OptBitsNodeProcs;

BuildOptBitsabsentProdNode: PROC[position: INT, length: INT]
RETURNS[OptBitsNode];

OptBitsabsentProdfoo: fooProcType;


OptBitspresentProdData: TYPE = REF OptBitspresentProdDataBody;
OptBitspresentProdDataBody: TYPE = RECORD[
Bounds: BoundsNode];

OptBitspresentProdProcs: OptBitsNodeProcs;

BuildOptBitspresentProdNode: PROC[position: INT, length: INT, Bounds: BoundsNode]
RETURNS[OptBitsNode];

OptBitspresentProdfoo: fooProcType;


IdentListoneProdData: TYPE = REF IdentListoneProdDataBody;
IdentListoneProdDataBody: TYPE = RECORD[
Ident: IdentNode];

IdentListoneProdProcs: IdentListNodeProcs;

BuildIdentListoneProdNode: PROC[position: INT, length: INT, Ident: IdentNode]
RETURNS[IdentListNode];

IdentListoneProdfoo: fooProcType;
IdentListoneProdProcessDecls: ProcessDeclsProcType;
IdentListoneProdInsertDescriptor: InsertDescriptorProcType;
IdentListoneProdReplaceDescriptor: ReplaceDescriptorProcType;
IdentListoneProdAddToNamedFieldList: AddToNamedFieldListProcType;


IdentListmanyProdData: TYPE = REF IdentListmanyProdDataBody;
IdentListmanyProdDataBody: TYPE = RECORD[
IdentListhead: IdentListNode, IdentListtail: IdentListNode];

IdentListmanyProdProcs: IdentListNodeProcs;

BuildIdentListmanyProdNode: PROC[position: INT, length: INT, IdentListhead: IdentListNode, IdentListtail: IdentListNode]
RETURNS[IdentListNode];

IdentListmanyProdfoo: fooProcType;
IdentListmanyProdProcessDecls: ProcessDeclsProcType;
IdentListmanyProdInsertDescriptor: InsertDescriptorProcType;
IdentListmanyProdReplaceDescriptor: ReplaceDescriptorProcType;
IdentListmanyProdAddToNamedFieldList: AddToNamedFieldListProcType;


TagidentProdData: TYPE = REF TagidentProdDataBody;
TagidentProdDataBody: TYPE = RECORD[
Ident: IdentNode, Access: AccessNode, TagType: TagTypeNode];

TagidentProdProcs: TagNodeProcs;

BuildTagidentProdNode: PROC[position: INT, length: INT, Ident: IdentNode, Access: AccessNode, TagType: TagTypeNode]
RETURNS[TagNode];

TagidentProdfoo: fooProcType;


TagcomputedProdData: TYPE = REF TagcomputedProdDataBody;
TagcomputedProdDataBody: TYPE = RECORD[
TagType: TagTypeNode];

TagcomputedProdProcs: TagNodeProcs;

BuildTagcomputedProdNode: PROC[position: INT, length: INT, TagType: TagTypeNode]
RETURNS[TagNode];

TagcomputedProdfoo: fooProcType;


TagoverlaidProdData: TYPE = REF TagoverlaidProdDataBody;
TagoverlaidProdDataBody: TYPE = RECORD[
TagType: TagTypeNode];

TagoverlaidProdProcs: TagNodeProcs;

BuildTagoverlaidProdNode: PROC[position: INT, length: INT, TagType: TagTypeNode]
RETURNS[TagNode];

TagoverlaidProdfoo: fooProcType;


TagTypestarProdData: TYPE = REF TagTypestarProdDataBody;
TagTypestarProdDataBody: TYPE = RECORD[
];

TagTypestarProdProcs: TagTypeNodeProcs;

BuildTagTypestarProdNode: PROC[position: INT, length: INT]
RETURNS[TagTypeNode];

TagTypestarProdfoo: fooProcType;


TagTypetypeexpProdData: TYPE = REF TagTypetypeexpProdDataBody;
TagTypetypeexpProdDataBody: TYPE = RECORD[
TypeExp: TypeExpNode];

TagTypetypeexpProdProcs: TagTypeNodeProcs;

BuildTagTypetypeexpProdNode: PROC[position: INT, length: INT, TypeExp: TypeExpNode]
RETURNS[TagTypeNode];

TagTypetypeexpProdfoo: fooProcType;


VariantListoneProdData: TYPE = REF VariantListoneProdDataBody;
VariantListoneProdDataBody: TYPE = RECORD[
VariantItem: VariantItemNode];

VariantListoneProdProcs: VariantListNodeProcs;

BuildVariantListoneProdNode: PROC[position: INT, length: INT, VariantItem: VariantItemNode]
RETURNS[VariantListNode];

VariantListoneProdfoo: fooProcType;


VariantListmoreProdData: TYPE = REF VariantListmoreProdDataBody;
VariantListmoreProdDataBody: TYPE = RECORD[
VariantList: VariantListNode, VariantItem: VariantItemNode];

VariantListmoreProdProcs: VariantListNodeProcs;

BuildVariantListmoreProdNode: PROC[position: INT, length: INT, VariantList: VariantListNode, VariantItem: VariantItemNode]
RETURNS[VariantListNode];

VariantListmoreProdfoo: fooProcType;


VariantItemProdData: TYPE = REF VariantItemProdDataBody;
VariantItemProdDataBody: TYPE = RECORD[
IdList: IdListNode, RecList: RecListNode];

VariantItemProdProcs: VariantItemNodeProcs;

BuildVariantItemProdNode: PROC[position: INT, length: INT, IdList: IdListNode, RecList: RecListNode]
RETURNS[VariantItemNode];

VariantItemProdfoo: fooProcType;


PackedyesProdData: TYPE = REF PackedyesProdDataBody;
PackedyesProdDataBody: TYPE = RECORD[
];

PackedyesProdProcs: PackedNodeProcs;

BuildPackedyesProdNode: PROC[position: INT, length: INT]
RETURNS[PackedNode];

PackedyesProdfoo: fooProcType;


PackednoProdData: TYPE = REF PackednoProdDataBody;
PackednoProdDataBody: TYPE = RECORD[
];

PackednoProdProcs: PackedNodeProcs;

BuildPackednoProdNode: PROC[position: INT, length: INT]
RETURNS[PackedNode];

PackednoProdfoo: fooProcType;
END..

|SaffronAG7Def.mesa
Copyright Ó 1987 by Xerox Corporation.  All rights reserved.
Generated by BJackson.pa at April 27, 1987 10:51:22 pm PDT
using ThreeCasabaFour [1.1] of April 14, 1987 6:34:07 pm PDT
AccessemptyProd
AccesspublicProd
AccessprivateProd
DefaultemptyProd
DefaultgetsProd
DefaultgetsexpProd
DefaultgetstrashProd
DefaultgetsexportrashProd
IdentidProd
IdentidpositionProd
PositionProd
OptBitsabsentProd
OptBitspresentProd
IdentListoneProd
IdentListmanyProd
TagidentProd
TagcomputedProd
TagoverlaidProd
TagTypestarProd
TagTypetypeexpProd
VariantListoneProd
VariantListmoreProd
VariantItemProd
PackedyesProd
PackednoProd
�Ê_˜š
œ™Jš
œ<™<Jš
œ:™:Jš
œ<™<—J˜š
Ïk	˜	J˜J˜J˜J˜
—J˜JšÏn
œ�œ
�œ˜#Jš
�˜Jš�œL˜PJ˜Jš
œ™J˜Jšœ�œ�œ˜8Jšœ�œ�œ
˜'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šžœ˜(J˜šžœ�œ�œ
�œ
˜;Jš�œ˜—J˜J˜!J˜Jš
œ™J˜Jšœ�œ�œ˜8Jšœ�œ�œ
˜'J˜J˜Jšžœ˜'J˜šžœ�œ�œ
�œ
˜:Jš�œ˜—J˜J˜ J˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*Jšžœ˜J˜Jšžœ˜*J˜š
žœ�œ�œ
�œžœ
˜KJš�œ˜—J˜J˜#J˜Jš
œ™J˜Jšœ�œ�œ˜BJšœ�œ�œ
˜,J˜J˜Jšžœ˜,J˜šžœ�œ�œ
�œ
˜?Jš�œ˜—J˜J˜%J˜Jš
œ™J˜Jšœ�œ�œ#˜LJšœ#�œ�œ
˜1Jšžœ˜J˜Jšžœ˜1J˜š
ž"œ�œ�œ
�œžœ
˜RJš�œ˜—J˜J˜*J˜Jš
œ™J˜Jšœ�œ�œ˜0Jšœ�œ�œ
˜#J˜J˜Jšžœ˜!J˜šžœ�œ�œ
�œ
˜BJš�œ˜—J˜J˜Jšžœ˜6Jšžœ˜8Jšžœ˜<Jšžœ˜.J˜Jš
œ™J˜Jšœ�œ�œ˜@Jšœ�œ�œ
˜+Jšœžœ˜$J˜Jšžœ˜)J˜š
žœ�œ�œ
�œžœ˜bJš�œ˜—J˜J˜$Jšž#œ˜>Jšž$œ˜@Jšž&œ˜DJšžœ˜6J˜Jš
œ™J˜Jšœ�œ�œ˜2Jšœ�œ�œ
˜$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˜š
žœ�œ�œ
�œžœ
˜QJš�œ˜—J˜J˜#J˜Jš
œ™J˜Jšœ�œ�œ˜:Jšœ�œ�œ
˜(Jšžœ
˜J˜Jšžœ˜*J˜š
žœ�œ�œ
�œžœ˜MJš�œ˜—J˜J˜!Jšžœ˜3Jšž œ˜;Jšž!œ˜=Jšž#œ˜AJ˜Jš
œ™J˜Jšœ�œ�œ˜<Jšœ�œ�œ
˜)Jšž
œž
œ˜<J˜Jšžœ˜+J˜šžœ�œ�œ
�œž
œž
œ˜xJš�œ˜—J˜J˜"Jšžœ˜4Jšž!œ˜<Jšž"œ˜>Jšž$œ˜BJ˜Jš
œ™J˜Jšœ�œ�œ˜2Jšœ�œ�œ
˜$Jšžœ
žœžœ˜<J˜Jšžœ˜ J˜šžœ�œ�œ
�œžœ
žœžœ˜sJš�œ
˜—J˜J˜J˜Jš
œ™J˜Jšœ�œ�œ˜8Jšœ�œ�œ
˜'Jšžœ˜J˜Jšžœ˜#J˜š
žœ�œ�œ
�œžœ˜PJš�œ
˜—J˜J˜ J˜Jš
œ™J˜Jšœ�œ�œ˜8Jšœ�œ�œ
˜'Jšžœ˜J˜Jšžœ˜#J˜š
žœ�œ�œ
�œžœ˜PJš�œ
˜—J˜J˜ J˜Jš
œ™J˜Jšœ�œ�œ˜8Jšœ�œ�œ
˜'J˜J˜Jšžœ˜'J˜šžœ�œ�œ
�œ
˜:Jš�œ˜—J˜J˜ J˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*Jšžœ˜J˜Jšžœ˜*J˜š
žœ�œ�œ
�œžœ˜SJš�œ˜—J˜J˜#J˜Jš
œ™J˜Jšœ�œ�œ˜>Jšœ�œ�œ
˜*Jšžœ˜J˜Jšžœ˜.J˜š
žœ�œ�œ
�œžœ˜[Jš�œ˜—J˜J˜#J˜Jš
œ™J˜Jšœ�œ�œ˜@Jšœ�œ�œ
˜+Jšžœžœ˜<J˜Jšžœ˜/J˜šžœ�œ�œ
�œžœžœ˜zJš�œ˜—J˜J˜$J˜Jš
œ™J˜Jšœ�œ�œ˜8Jšœ�œ�œ
˜'Jšžœžœ˜*J˜Jšžœ˜+J˜šžœ�œ�œ
�œžœžœ˜dJš�œ˜—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˜—…—"/í