InterpGlue.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Demers, January 29, 1990 1:11:53 pm PST
Willie-s, January 7, 1992 2:01 pm PST
DIRECTORY
CStrings;
InterpGlue: CEDAR DEFINITIONS
~ {
Handle: TYPE ~ REF;
Handle to an interpreter
PutProc: TYPE ~ PROC [msg: CStrings.CString];
Interpreter calls one of these (repeatedly) with its output.
MakeInterpHandle: PROC RETURNS [Handle]
~ TRUSTED MACHINE CODE { "XR←MakeInterpHandle" };
Create a new interpreter handle.
Interp: PROC [h: Handle, dummy: CARD32, proc: PutProc, callTimeoutMsec: CARD32, cmd: CStrings.CString] RETURNS [INT] ~ TRUSTED MACHINE CODE { "XR←Interp" };
Interpret the command, return the result (which is probably uninteresting).
If proc is NIL, the output goes on the PCR system console, wherever that is ...
}.