SaffronMakeEltListImpl.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Generated by BJackson.pa at April 27, 1987 11:24:12 pm PDT
using ThreeCasabaFour [1.1] of April 14, 1987 6:34:07 pm PDT
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..