<> <> <> <> DIRECTORY SaffronAG6Def, ThreeC4Support, SaffronATDef, CedarBaseType; SaffronMakeEltListImpl: CEDAR PROGRAM IMPORTS ThreeC4Support, CedarBaseType EXPORTS SaffronAG6Def= BEGIN OPEN SaffronAG6Def, ThreeC4Support, SaffronATDef, CedarBaseType; ElementListemptyProdMakeEltList: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: EltList] = BEGIN tree: ElementListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ BuildEmptyEltList[]; END END; ElementListmoreProdMakeEltList: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: EltList] = BEGIN tree: ElementListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: ElementListmoreProdData _ NARROW[tree.data]; BEGIN eltList: EltList; eltList _ treeData.ElementList.procs.MakeEltList[treeData.ElementList]; temp0 _ treeData.Element.procs.InsertElement[treeData.Element, eltList]; END; END END; END..