-- SaffronMakeElementListImpl.mesa
 -- Copyright Ó 1987 by Xerox Corporation.  All rights reserved.
 -- Generated by hederman.pa at August 17, 1987 6:59:36 pm PDT
 --  using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT

DIRECTORY
	SaffronAG6Def,
	SaffronGenericDef,
	ThreeC4Support,
	SaffronBaseDef,
	SaffronATDef;

SaffronMakeElementListImpl: CEDAR PROGRAM IMPORTS ThreeC4Support, SaffronBaseDef EXPORTS SaffronAG6Def= 
BEGIN
OPEN SaffronAG6Def, SaffronGenericDef, ThreeC4Support, SaffronBaseDef, SaffronATDef;
ElementListemptyProdMakeElementList:	PUBLIC PROC[ref: REF ANY, localContext: LocalContextNode, machineDependent: BOOLEAN] RETURNS[temp0: LocalContextNode, temp1: TypeGraphNodeNode] =
BEGIN
tree:	ElementListNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
[temp0, temp1] _ CreateEmptyEnumTypeTGN[localContext, machineDependent];
END
END;

ElementListmoreProdMakeElementList:	PUBLIC PROC[ref: REF ANY, localContext: LocalContextNode, machineDependent: BOOLEAN] RETURNS[temp0: LocalContextNode, temp1: TypeGraphNodeNode] =
BEGIN
tree:	ElementListNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ElementListmoreProdData _ NARROW[tree.data];
BEGIN
localContext1:	LocalContextNode;
localContext2:	LocalContextNode;
tgn:	TypeGraphNodeNode;
elementName:	IdNode;
rep:	ExpPTreeNode;
[elementName, rep] _ treeData.Element.procs.ElementInfo[treeData.Element];
[localContext2, tgn] _ treeData.ElementList.procs.MakeElementList[treeData.ElementList, localContext, machineDependent];
localContext1 _ AppendElementToEnumTypeTGN[localContext2, tgn, elementName, rep];
temp1 _ tgn;
temp0 _ localContext1;
END;
END
END;

END..