InterpreterToolPrivate.mesa
Paul Rovner, December 16, 1983 3:28 pm
DIRECTORY
AMEvents USING [Event, BreakID],
AMModel USING [Context, Section],
IO USING [STREAM],
MBQueue USING [Queue],
SymTab USING [Ref],
TypeScript USING [TS],
WorldVM USING [World];
InterpreterToolPrivate: DEFINITIONS
= BEGIN
Handle: TYPE = REF InterpreterObject; -- one per viewer
InterpreterObject: TYPE =
MONITORED RECORD [
remoteWorld: WorldVM.World, -- NIL => local only in this nest
context: AMModel.Context ← NIL,
globalContext: AMModel.Context ← NIL,
event: AMEvents.Event ← NIL,
nestingLevel: NAT ← 0,
symTab: SymTab.Ref ← NIL,
nextVarIndex: INT ← 0,
ts: TypeScript.TS ← NIL,
tsInStream: IO.STREAM ← NIL,
tsOutStream: IO.STREAM ← NIL,
Stuffable: CONDITION,
menuHitQueue: MBQueue.Queue ← NIL,
terminateRequested: BOOL ← FALSE,
proceedRequested: BOOL ← FALSE,
abortRequested: BOOL ← FALSE,
stopRequested: BOOL ← FALSE,
bootReturnRequested: BOOL ← FALSE,
bootedWorld: WorldVM.World ← NIL,
stuffAble: BOOL ← TRUE,
readEvalPrintProcess: PROCESS ← NIL
];
Break: TYPE = REF BreakObject;
BreakObject: TYPE = RECORD[
index: BreakIndex,
breakID: AMEvents.BreakID,
world: WorldVM.World,
section: AMModel.Section];
BreakIndex: TYPE = INT;
nullBreakIndex: BreakIndex = 0;
nextBI: BreakIndex; -- BEWARE that these guys aren't protected
END.