<> <> <> <> DIRECTORY SaffronAG6Def, CedarBaseMisc, ThreeC4Support, SaffronATDef, CedarBaseType; SaffronInsertElementImpl: CEDAR PROGRAM IMPORTS CedarBaseMisc, ThreeC4Support, CedarBaseType EXPORTS SaffronAG6Def= BEGIN OPEN SaffronAG6Def, CedarBaseMisc, ThreeC4Support, SaffronATDef, CedarBaseType; ElementidProdInsertElement: PUBLIC PROC[ref: REF ANY, eltList: EltList] RETURNS[temp0: EltList] = BEGIN tree: ElementNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: ElementidProdData _ NARROW[tree.data]; BEGIN assert: BOOLEAN; eltList1: EltList; ok: BOOLEAN; [eltList1, ok] _ EltListInsert[eltList, treeData.id]; assert _ Assert[ok, "multiply defined identifier", BotchAction.quit]; temp0 _ eltList1; END; END END; END..