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
DIRECTORY
SaffronAG7Def,
SaffronGenericDef,
SaffronATDef;
SaffronAG7Impl: CEDAR PROGRAM IMPORTS SaffronAG7Def EXPORTS SaffronAG7Def=
BEGIN
OPEN SaffronAG7Def, SaffronGenericDef, SaffronATDef;
AccessemptyProd
AccessemptyProdProcs:
PUBLIC AccessNodeProcs ←
NEW[AccessNodeProcsBody ← [AccessemptyProdfoo]];
BuildAccessemptyProdNode:
PUBLIC
PROC[position:
INT, length:
INT]
RETURNS[AccessNode] =
BEGIN
RETURN[NEW[AccessNodeBody←[position, length, AccessemptyProdProcs, NIL]]];
END;
AccesspublicProd
AccesspublicProdProcs:
PUBLIC AccessNodeProcs ←
NEW[AccessNodeProcsBody ← [AccesspublicProdfoo]];
BuildAccesspublicProdNode:
PUBLIC
PROC[position:
INT, length:
INT]
RETURNS[AccessNode] =
BEGIN
RETURN[NEW[AccessNodeBody←[position, length, AccesspublicProdProcs, NIL]]];
END;
AccessprivateProd
AccessprivateProdProcs:
PUBLIC AccessNodeProcs ←
NEW[AccessNodeProcsBody ← [AccessprivateProdfoo]];
BuildAccessprivateProdNode:
PUBLIC
PROC[position:
INT, length:
INT]
RETURNS[AccessNode] =
BEGIN
RETURN[NEW[AccessNodeBody←[position, length, AccessprivateProdProcs, NIL]]];
END;
DefaultemptyProd
DefaultemptyProdProcs:
PUBLIC DefaultNodeProcs ←
NEW[DefaultNodeProcsBody ← [DefaultemptyProdfoo]];
BuildDefaultemptyProdNode:
PUBLIC
PROC[position:
INT, length:
INT]
RETURNS[DefaultNode] =
BEGIN
RETURN[NEW[DefaultNodeBody←[position, length, DefaultemptyProdProcs, NIL]]];
END;
DefaultgetsProd
DefaultgetsProdProcs:
PUBLIC DefaultNodeProcs ←
NEW[DefaultNodeProcsBody ← [DefaultgetsProdfoo]];
BuildDefaultgetsProdNode:
PUBLIC
PROC[position:
INT, length:
INT]
RETURNS[DefaultNode] =
BEGIN
RETURN[NEW[DefaultNodeBody←[position, length, DefaultgetsProdProcs, NIL]]];
END;
DefaultgetsexpProd
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;
DefaultgetstrashProd
DefaultgetstrashProdProcs:
PUBLIC DefaultNodeProcs ←
NEW[DefaultNodeProcsBody ← [DefaultgetstrashProdfoo]];
BuildDefaultgetstrashProdNode:
PUBLIC
PROC[position:
INT, length:
INT]
RETURNS[DefaultNode] =
BEGIN
RETURN[NEW[DefaultNodeBody←[position, length, DefaultgetstrashProdProcs, NIL]]];
END;
DefaultgetsexportrashProd
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;
IdentidProd
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;
IdentidpositionProd
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;
PositionProd
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;
OptBitsabsentProd
OptBitsabsentProdProcs:
PUBLIC OptBitsNodeProcs ←
NEW[OptBitsNodeProcsBody ← [OptBitsabsentProdfoo]];
BuildOptBitsabsentProdNode:
PUBLIC
PROC[position:
INT, length:
INT]
RETURNS[OptBitsNode] =
BEGIN
RETURN[NEW[OptBitsNodeBody←[position, length, OptBitsabsentProdProcs, NIL]]];
END;
OptBitspresentProd
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;
IdentListoneProd
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;
IdentListmanyProd
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;
TagidentProd
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;
TagcomputedProd
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;
TagoverlaidProd
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;
TagTypestarProd
TagTypestarProdProcs:
PUBLIC TagTypeNodeProcs ←
NEW[TagTypeNodeProcsBody ← [TagTypestarProdfoo]];
BuildTagTypestarProdNode:
PUBLIC
PROC[position:
INT, length:
INT]
RETURNS[TagTypeNode] =
BEGIN
RETURN[NEW[TagTypeNodeBody←[position, length, TagTypestarProdProcs, NIL]]];
END;
TagTypetypeexpProd
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;
VariantListoneProd
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;
VariantListmoreProd
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;
VariantItemProd
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;
PackedyesProd
PackedyesProdProcs:
PUBLIC PackedNodeProcs ←
NEW[PackedNodeProcsBody ← [PackedyesProdfoo]];
BuildPackedyesProdNode:
PUBLIC
PROC[position:
INT, length:
INT]
RETURNS[PackedNode] =
BEGIN
RETURN[NEW[PackedNodeBody←[position, length, PackedyesProdProcs, NIL]]];
END;
PackednoProd
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..