DIRECTORY
SaffronAG7Def,
SaffronGenericDef,
SaffronATDef;

SaffronAG7Impl: CEDAR PROGRAM IMPORTS SaffronAG7Def EXPORTS SaffronAG7Def= 
BEGIN
OPEN SaffronAG7Def, SaffronGenericDef, SaffronATDef;


AccessemptyProdProcs: PUBLIC AccessNodeProcs _
NEW[AccessNodeProcsBody _ [AccessemptyProdfoo]];

BuildAccessemptyProdNode: PUBLIC PROC[position: INT, length: INT]
RETURNS[AccessNode] =
BEGIN
RETURN[NEW[AccessNodeBody_[position, length, AccessemptyProdProcs, NIL]]];
END;



AccesspublicProdProcs: PUBLIC AccessNodeProcs _
NEW[AccessNodeProcsBody _ [AccesspublicProdfoo]];

BuildAccesspublicProdNode: PUBLIC PROC[position: INT, length: INT]
RETURNS[AccessNode] =
BEGIN
RETURN[NEW[AccessNodeBody_[position, length, AccesspublicProdProcs, NIL]]];
END;



AccessprivateProdProcs: PUBLIC AccessNodeProcs _
NEW[AccessNodeProcsBody _ [AccessprivateProdfoo]];

BuildAccessprivateProdNode: PUBLIC PROC[position: INT, length: INT]
RETURNS[AccessNode] =
BEGIN
RETURN[NEW[AccessNodeBody_[position, length, AccessprivateProdProcs, NIL]]];
END;



DefaultemptyProdProcs: PUBLIC DefaultNodeProcs _
NEW[DefaultNodeProcsBody _ [DefaultemptyProdfoo]];

BuildDefaultemptyProdNode: PUBLIC PROC[position: INT, length: INT]
RETURNS[DefaultNode] =
BEGIN
RETURN[NEW[DefaultNodeBody_[position, length, DefaultemptyProdProcs, NIL]]];
END;



DefaultgetsProdProcs: PUBLIC DefaultNodeProcs _
NEW[DefaultNodeProcsBody _ [DefaultgetsProdfoo]];

BuildDefaultgetsProdNode: PUBLIC PROC[position: INT, length: INT]
RETURNS[DefaultNode] =
BEGIN
RETURN[NEW[DefaultNodeBody_[position, length, DefaultgetsProdProcs, NIL]]];
END;



DefaultgetsexpProdProcs: PUBLIC DefaultNodeProcs _
NEW[DefaultNodeProcsBody _ [DefaultgetsexpProdfoo]];

BuildDefaultgetsexpProdNode: PUBLIC PROC[position: INT, length: INT, Exp: ExpNode]
RETURNS[DefaultNode] =
BEGIN
data: DefaultgetsexpProdData _
NEW[DefaultgetsexpProdDataBody_[
Exp]];
RETURN[NEW[DefaultNodeBody_[position, length, DefaultgetsexpProdProcs, data]]];
END;



DefaultgetstrashProdProcs: PUBLIC DefaultNodeProcs _
NEW[DefaultNodeProcsBody _ [DefaultgetstrashProdfoo]];

BuildDefaultgetstrashProdNode: PUBLIC PROC[position: INT, length: INT]
RETURNS[DefaultNode] =
BEGIN
RETURN[NEW[DefaultNodeBody_[position, length, DefaultgetstrashProdProcs, NIL]]];
END;



DefaultgetsexportrashProdProcs: PUBLIC DefaultNodeProcs _
NEW[DefaultNodeProcsBody _ [DefaultgetsexportrashProdfoo]];

BuildDefaultgetsexportrashProdNode: PUBLIC PROC[position: INT, length: INT, Exp: ExpNode]
RETURNS[DefaultNode] =
BEGIN
data: DefaultgetsexportrashProdData _
NEW[DefaultgetsexportrashProdDataBody_[
Exp]];
RETURN[NEW[DefaultNodeBody_[position, length, DefaultgetsexportrashProdProcs, data]]];
END;



IdentidProdProcs: PUBLIC IdentNodeProcs _
NEW[IdentNodeProcsBody _ [IdentidProdfoo, IdentidProdInsertDescriptor, IdentidProdReplaceDescriptor, IdentidProdAddToNamedFieldList, IdentidProdProcessDecls]];

BuildIdentidProdNode: PUBLIC PROC[position: INT, length: INT, id: idNode]
RETURNS[IdentNode] =
BEGIN
data: IdentidProdData _
NEW[IdentidProdDataBody_[
id]];
RETURN[NEW[IdentNodeBody_[position, length, IdentidProdProcs, data]]];
END;



IdentidpositionProdProcs: PUBLIC IdentNodeProcs _
NEW[IdentNodeProcsBody _ [IdentidpositionProdfoo, IdentidpositionProdInsertDescriptor, IdentidpositionProdReplaceDescriptor, IdentidpositionProdAddToNamedFieldList, IdentidpositionProdProcessDecls]];

BuildIdentidpositionProdNode: PUBLIC PROC[position: INT, length: INT, id: idNode, Position: PositionNode]
RETURNS[IdentNode] =
BEGIN
data: IdentidpositionProdData _
NEW[IdentidpositionProdDataBody_[
id, Position]];
RETURN[NEW[IdentNodeBody_[position, length, IdentidpositionProdProcs, data]]];
END;



PositionProdProcs: PUBLIC PositionNodeProcs _
NEW[PositionNodeProcsBody _ [PositionProdfoo]];

BuildPositionProdNode: PUBLIC PROC[position: INT, length: INT, Exp: ExpNode, OptBits: OptBitsNode]
RETURNS[PositionNode] =
BEGIN
data: PositionProdData _
NEW[PositionProdDataBody_[
Exp, OptBits]];
RETURN[NEW[PositionNodeBody_[position, length, PositionProdProcs, data]]];
END;



OptBitsabsentProdProcs: PUBLIC OptBitsNodeProcs _
NEW[OptBitsNodeProcsBody _ [OptBitsabsentProdfoo]];

BuildOptBitsabsentProdNode: PUBLIC PROC[position: INT, length: INT]
RETURNS[OptBitsNode] =
BEGIN
RETURN[NEW[OptBitsNodeBody_[position, length, OptBitsabsentProdProcs, NIL]]];
END;



OptBitspresentProdProcs: PUBLIC OptBitsNodeProcs _
NEW[OptBitsNodeProcsBody _ [OptBitspresentProdfoo]];

BuildOptBitspresentProdNode: PUBLIC PROC[position: INT, length: INT, Bounds: BoundsNode]
RETURNS[OptBitsNode] =
BEGIN
data: OptBitspresentProdData _
NEW[OptBitspresentProdDataBody_[
Bounds]];
RETURN[NEW[OptBitsNodeBody_[position, length, OptBitspresentProdProcs, data]]];
END;



IdentListoneProdProcs: PUBLIC IdentListNodeProcs _
NEW[IdentListNodeProcsBody _ [IdentListoneProdfoo, IdentListoneProdProcessDecls, IdentListoneProdInsertDescriptor, IdentListoneProdReplaceDescriptor, IdentListoneProdAddToNamedFieldList]];

BuildIdentListoneProdNode: PUBLIC PROC[position: INT, length: INT, Ident: IdentNode]
RETURNS[IdentListNode] =
BEGIN
data: IdentListoneProdData _
NEW[IdentListoneProdDataBody_[
Ident]];
RETURN[NEW[IdentListNodeBody_[position, length, IdentListoneProdProcs, data]]];
END;



IdentListmanyProdProcs: PUBLIC IdentListNodeProcs _
NEW[IdentListNodeProcsBody _ [IdentListmanyProdfoo, IdentListmanyProdProcessDecls, IdentListmanyProdInsertDescriptor, IdentListmanyProdReplaceDescriptor, IdentListmanyProdAddToNamedFieldList]];

BuildIdentListmanyProdNode: PUBLIC PROC[position: INT, length: INT, IdentListhead: IdentListNode, IdentListtail: IdentListNode]
RETURNS[IdentListNode] =
BEGIN
data: IdentListmanyProdData _
NEW[IdentListmanyProdDataBody_[
IdentListhead, IdentListtail]];
RETURN[NEW[IdentListNodeBody_[position, length, IdentListmanyProdProcs, data]]];
END;



TagidentProdProcs: PUBLIC TagNodeProcs _
NEW[TagNodeProcsBody _ [TagidentProdfoo]];

BuildTagidentProdNode: PUBLIC PROC[position: INT, length: INT, Ident: IdentNode, Access: AccessNode, TagType: TagTypeNode]
RETURNS[TagNode] =
BEGIN
data: TagidentProdData _
NEW[TagidentProdDataBody_[
Ident, Access, TagType]];
RETURN[NEW[TagNodeBody_[position, length, TagidentProdProcs, data]]];
END;



TagcomputedProdProcs: PUBLIC TagNodeProcs _
NEW[TagNodeProcsBody _ [TagcomputedProdfoo]];

BuildTagcomputedProdNode: PUBLIC PROC[position: INT, length: INT, TagType: TagTypeNode]
RETURNS[TagNode] =
BEGIN
data: TagcomputedProdData _
NEW[TagcomputedProdDataBody_[
TagType]];
RETURN[NEW[TagNodeBody_[position, length, TagcomputedProdProcs, data]]];
END;



TagoverlaidProdProcs: PUBLIC TagNodeProcs _
NEW[TagNodeProcsBody _ [TagoverlaidProdfoo]];

BuildTagoverlaidProdNode: PUBLIC PROC[position: INT, length: INT, TagType: TagTypeNode]
RETURNS[TagNode] =
BEGIN
data: TagoverlaidProdData _
NEW[TagoverlaidProdDataBody_[
TagType]];
RETURN[NEW[TagNodeBody_[position, length, TagoverlaidProdProcs, data]]];
END;



TagTypestarProdProcs: PUBLIC TagTypeNodeProcs _
NEW[TagTypeNodeProcsBody _ [TagTypestarProdfoo]];

BuildTagTypestarProdNode: PUBLIC PROC[position: INT, length: INT]
RETURNS[TagTypeNode] =
BEGIN
RETURN[NEW[TagTypeNodeBody_[position, length, TagTypestarProdProcs, NIL]]];
END;



TagTypetypeexpProdProcs: PUBLIC TagTypeNodeProcs _
NEW[TagTypeNodeProcsBody _ [TagTypetypeexpProdfoo]];

BuildTagTypetypeexpProdNode: PUBLIC PROC[position: INT, length: INT, TypeExp: TypeExpNode]
RETURNS[TagTypeNode] =
BEGIN
data: TagTypetypeexpProdData _
NEW[TagTypetypeexpProdDataBody_[
TypeExp]];
RETURN[NEW[TagTypeNodeBody_[position, length, TagTypetypeexpProdProcs, data]]];
END;



VariantListoneProdProcs: PUBLIC VariantListNodeProcs _
NEW[VariantListNodeProcsBody _ [VariantListoneProdfoo]];

BuildVariantListoneProdNode: PUBLIC PROC[position: INT, length: INT, VariantItem: VariantItemNode]
RETURNS[VariantListNode] =
BEGIN
data: VariantListoneProdData _
NEW[VariantListoneProdDataBody_[
VariantItem]];
RETURN[NEW[VariantListNodeBody_[position, length, VariantListoneProdProcs, data]]];
END;



VariantListmoreProdProcs: PUBLIC VariantListNodeProcs _
NEW[VariantListNodeProcsBody _ [VariantListmoreProdfoo]];

BuildVariantListmoreProdNode: PUBLIC PROC[position: INT, length: INT, VariantList: VariantListNode, VariantItem: VariantItemNode]
RETURNS[VariantListNode] =
BEGIN
data: VariantListmoreProdData _
NEW[VariantListmoreProdDataBody_[
VariantList, VariantItem]];
RETURN[NEW[VariantListNodeBody_[position, length, VariantListmoreProdProcs, data]]];
END;



VariantItemProdProcs: PUBLIC VariantItemNodeProcs _
NEW[VariantItemNodeProcsBody _ [VariantItemProdfoo]];

BuildVariantItemProdNode: PUBLIC PROC[position: INT, length: INT, IdList: IdListNode, RecList: RecListNode]
RETURNS[VariantItemNode] =
BEGIN
data: VariantItemProdData _
NEW[VariantItemProdDataBody_[
IdList, RecList]];
RETURN[NEW[VariantItemNodeBody_[position, length, VariantItemProdProcs, data]]];
END;



PackedyesProdProcs: PUBLIC PackedNodeProcs _
NEW[PackedNodeProcsBody _ [PackedyesProdfoo]];

BuildPackedyesProdNode: PUBLIC PROC[position: INT, length: INT]
RETURNS[PackedNode] =
BEGIN
RETURN[NEW[PackedNodeBody_[position, length, PackedyesProdProcs, NIL]]];
END;



PackednoProdProcs: PUBLIC PackedNodeProcs _
NEW[PackedNodeProcsBody _ [PackednoProdfoo]];

BuildPackednoProdNode: PUBLIC PROC[position: INT, length: INT]
RETURNS[PackedNode] =
BEGIN
RETURN[NEW[PackedNodeBody_[position, length, PackednoProdProcs, NIL]]];
END;

END..

|SaffronAG7Impl.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
�Êh˜š
œ™Jš
œ<™<Jš
œ:™:Jš
œ<™<—J˜š
Ïk	˜	J˜J˜J˜
—J˜Jš
Ïnœ�œ
�œ
�œ�œ˜KJš
�˜Jš�œ0˜4J˜Jš
œ™J˜šžœ�œ˜.Jš�œ-˜0—J˜š
žœ�œ
�œ�œ
�œ
˜Aš�œ˜Jš
�˜Jš�œ
�œ9�œ˜JJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜/Jš�œ.˜1—J˜š
žœ�œ
�œ�œ
�œ
˜Bš�œ˜Jš
�˜Jš�œ
�œ:�œ˜KJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜0Jš�œ/˜2—J˜š
žœ�œ
�œ�œ
�œ
˜Cš�œ˜Jš
�˜Jš�œ
�œ;�œ˜LJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜0Jš�œ/˜2—J˜š
žœ�œ
�œ�œ
�œ
˜Bš�œ˜Jš
�˜Jš�œ
�œ;�œ˜LJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜/Jš�œ.˜1—J˜š
žœ�œ
�œ�œ
�œ
˜Aš�œ˜Jš
�˜Jš�œ
�œ:�œ˜KJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜2Jš�œ1˜4—J˜šžœ�œ
�œ�œ
�œžœ
˜Rš�œ˜Jš
�˜˜Jš�œ˜ J˜—Jš�œ
�œE˜OJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜4Jš�œ3˜6—J˜š
žœ�œ
�œ�œ
�œ
˜Fš�œ˜Jš
�˜Jš�œ
�œ?�œ˜PJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜9Jš�œ8˜;—J˜šž"œ�œ
�œ�œ
�œžœ
˜Yš�œ˜Jš
�˜˜%Jš�œ$˜'J˜—Jš�œ
�œL˜VJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜)Jš�œœ
˜Ÿ
—J˜š
žœ�œ
�œ�œ
�œ
˜Iš�œ
˜Jš
�˜˜Jš�œ˜J˜—Jš�œ
�œ<˜FJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜1Jš�œÄ
˜Ç
—J˜šžœ�œ
�œ�œ
�œžœ˜iš�œ
˜Jš
�˜˜Jš�œ˜!J˜—Jš�œ
�œD˜NJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜-Jš�œ,˜/—J˜šžœ�œ
�œ�œ
�œžœžœ˜bš�œ˜Jš
�˜˜Jš�œ˜J˜—Jš�œ
�œ@˜JJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜1Jš�œ0˜3—J˜š
žœ�œ
�œ�œ
�œ
˜Cš�œ˜Jš
�˜Jš�œ
�œ<�œ˜MJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜2Jš�œ1˜4—J˜šžœ�œ
�œ�œ
�œžœ
˜Xš�œ˜Jš
�˜˜Jš�œ˜ J˜	—Jš�œ
�œE˜OJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜2Jš�œ¹
˜¼
—J˜šžœ�œ
�œ�œ
�œžœ˜Tš�œ˜Jš
�˜˜Jš�œ˜J˜—Jš�œ
�œE˜OJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜3Jš�œ¾
˜Á
—J˜šžœ�œ
�œ�œ
�œž
œž
œ˜š�œ˜Jš
�˜˜Jš�œ˜J˜—Jš�œ
�œF˜PJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜(Jš�œ'˜*—J˜šžœ�œ
�œ�œ
�œžœ
žœžœ˜zš�œ˜Jš
�˜˜Jš�œ˜J˜—Jš�œ
�œ;˜EJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜+Jš�œ*˜-—J˜šžœ�œ
�œ�œ
�œžœ˜Wš�œ˜Jš
�˜˜Jš�œ˜J˜
—Jš�œ
�œ>˜HJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜+Jš�œ*˜-—J˜šžœ�œ
�œ�œ
�œžœ˜Wš�œ˜Jš
�˜˜Jš�œ˜J˜
—Jš�œ
�œ>˜HJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜/Jš�œ.˜1—J˜š
žœ�œ
�œ�œ
�œ
˜Aš�œ˜Jš
�˜Jš�œ
�œ:�œ˜KJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜2Jš�œ1˜4—J˜šžœ�œ
�œ�œ
�œžœ˜Zš�œ˜Jš
�˜˜Jš�œ˜ J˜
—Jš�œ
�œE˜OJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜6Jš�œ5˜8—J˜šžœ�œ
�œ�œ
�œžœ˜bš�œ˜Jš
�˜˜Jš�œ˜ J˜—Jš�œ
�œI˜SJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜7Jš�œ6˜9—J˜šžœ�œ
�œ�œ
�œžœžœ˜�
š�œ˜Jš
�˜˜Jš�œ˜!J˜—Jš�œ
�œJ˜TJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜3Jš�œ2˜5—J˜šžœ�œ
�œ�œ
�œžœžœ˜kš�œ˜Jš
�˜˜Jš�œ˜J˜—Jš�œ
�œF˜PJš�œ
˜——J˜J˜Jš
œ
™
J˜šžœ�œ˜,Jš�œ+˜.—J˜š
žœ�œ
�œ�œ
�œ
˜?š�œ˜Jš
�˜Jš�œ
�œ7�œ˜HJš�œ
˜——J˜J˜Jš
œ™J˜šžœ�œ˜+Jš�œ*˜-—J˜š
žœ�œ
�œ�œ
�œ
˜>š�œ˜Jš
�˜Jš�œ
�œ6�œ˜GJš�œ
˜——J˜Jš�œ˜J˜—…—$È3¬