<> <> <> 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 .