DIRECTORY IPInterpreter USING [--ZeroVec, topFrameSize,-- Ref, Cardinal], IPMaster USING [Vector, Node, Preamble], Interpress USING [Master, LogProc]; IPExecute: CEDAR DEFINITIONS ~ BEGIN defaultMaxStackLength: IPInterpreter.Cardinal ~ 1000; Master: TYPE ~ Interpress.Master; LogProc: TYPE ~ Interpress.LogProc; Ref: TYPE ~ IPInterpreter.Ref; ExecutePreamble: PROC [self: Ref, preamble: IPMaster.Preamble, frame, env: IPMaster.Vector, log: LogProc]; DoInstructions: PROC [master: Master, log: LogProc]; DoTopAction: PROC [self: Ref, action: PROC, log: LogProc]; CallNode: PROC [self: Ref, node: IPMaster.Node, frame, env: IPMaster.Vector]; CallPreamble: PROC [self: Ref, preamble: IPMaster.Preamble, frame, env: IPMaster.Vector]; END. €IPExecute.mesa Copyright Σ 1984, 1985, 1986, 1987 by Xerox Corporation. All rights reserved. Allan Wax: January 13, 1987 1:03:07 pm PST emptyVec: READONLY IPMaster.Vector -- ~ IPInterpreter.ZeroVec[0]-- ; topFrame: READONLY IPMaster.Vector -- ~ IPInterpreter.ZeroVec[IPInterpreter.topFrameSize]-- ; topEnv: READONLY IPMaster.Vector -- ~ emptyVec-- ; -- empty vector, for now Κ+˜codešœ^™^K™*K™—šΟk ˜ KšœœΟcœ˜?Kšœ œ˜(Kšœ œ˜#K˜—KšΡbln œœ œ˜Kš˜˜Kšœ œžœ™DKšœ œž8œ™]Kšœœžœž™KK˜K˜5K˜Kšœœ˜!Kšœ œ˜#Kšœœ˜K˜KšΟnœœU˜jKš œœ ˜4Kš  œœœ˜:Kš œœ?˜MKš  œœG˜Y—K˜Kšœ˜—…—ζ‘