RussellInterp.mesa
The Russell84 expression evaluator.
Last Edited by: Demers, March 9, 1984 12:50:29 pm PST
DIRECTORY
IO USING [STREAM],
RussellRuntime USING [RTValue, RTTuple],
RussellICode USING [ICExp, ErrMsgProc] ;
RussellInterp: CEDAR DEFINITIONS
= BEGIN
ICExp: TYPE = RussellICode.ICExp;
ErrMsgProc: TYPE = RussellICode.ErrMsgProc;
[errPos: INT, errMsg: Rope.ROPE, severe: BOOL ← TRUE]
RussellParse: PROCEDURE [source: IO.STREAM, errMsgProc: ErrMsgProc] RETURNS [ICExp] ;
RTValue: TYPE = RussellRuntime.RTValue;
RTTuple: TYPE = RussellRuntime.RTTuple;
RussellEval: PROCEDURE [env: RTTuple, ip: ICExp] RETURNS[RTValue] ;
RussellMkInitEnv: PROCEDURE [in: IO.STREAM, out: IO.STREAM] RETURNS[RTTuple] ;
END .