DIRECTORY IPInterpreter USING [PopVector, Ref], Interpress USING [LogProc], IPExecute USING [CallPreamble, DoTopAction], IPMaster USING [Vector, Preamble]; IPExecuteImpl: CEDAR PROGRAM IMPORTS IPExecute, IPInterpreter EXPORTS IPExecute ~ { ExecutePreamble: PUBLIC PROC [self: IPInterpreter.Ref, preamble: IPMaster.Preamble, frame, env: IPMaster.Vector, log: Interpress.LogProc] ~ { action: PROC ~ { IPExecute.CallPreamble[self: self, preamble: preamble, frame: frame, env: env]; self.topFrame _ IPInterpreter.PopVector[self]; self.topEnv _ IPInterpreter.PopVector[self]; }; IPExecute.DoTopAction[self, action, log]; }; }. nIPExecuteImpl.mesa Copyright Σ 1984, 1985, 1986, 1987 by Xerox Corporation. All rights reserved. Allan Wax: January 13, 1987 12:57:28 pm PST emptyVec: PUBLIC IPMaster.Vector _ IPInterpreter.ZeroVec[0]; topFrame: PUBLIC IPMaster.Vector _ IPInterpreter.ZeroVec[IPInterpreter.topFrameSize]; topEnv: PUBLIC IPMaster.Vector _ emptyVec; -- empty vector, for now Κώ˜codešœb™bKšœ+™+—K˜šΟk ˜ Kšœœ˜%Kšœ œ ˜Kšœ œ˜,Kšœ œ˜"K˜—šΟn œœ˜Kšœ˜ Kšœ ˜K˜K˜Kšœ œ,™