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