SaffronDoTopImpl.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
CedarBaseContext,
SaffronAG1Def,
CedarBaseMisc,
ThreeC4Support,
SaffronATDef,
CedarBaseType;
SaffronDoTopImpl: CEDAR PROGRAM IMPORTS CedarBaseContext, CedarBaseMisc, ThreeC4Support, CedarBaseType EXPORTS SaffronAG1Def=
BEGIN
OPEN CedarBaseContext, SaffronAG1Def, CedarBaseMisc, ThreeC4Support, SaffronATDef, CedarBaseType;
TopscopeProdDoTop: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: BOOLEAN] =
BEGIN
tree: TopNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TopscopeProdData ← NARROW[tree.data];
BEGIN
contextTree: ContextTree;
typeGraph: TypeGraph;
[contextTree, typeGraph] ← treeData.Scope.procs.NewScope[treeData.Scope, CreateRibContext[], CreateTypeGraph[]];
temp0 ← True[];
END;
END
END;
END..