<<>> <> <> <> <> <<>> <> <<(Without implied use of Tcl for interpretation.)>> <<>> DIRECTORY Rope, Xl; X11Tcl: CEDAR DEFINITIONS ~ BEGIN TclCode: TYPE = MACHINE DEPENDENT {ok(0), error(1), return(2), break(3), continue(4), noInterpreter(CARD32.LAST-1), timeout(CARD32.LAST)}; <> ListenerProc: TYPE = PROC [c: Xl.Connection, interpreterName: Rope.ROPE, command: Rope.ROPE, clientData: REF] RETURNS [code: TclCode ¬ ok, reply: Rope.ROPE ¬ NIL]; <> <> <<>> UnregisterNotifyProc: TYPE = PROC [c: Xl.Connection, interpreterName: Rope.ROPE, clientData: REF]; <> <> RegisterInterpreter: PROC [c: Xl.Connection, interpreterName: Rope.ROPE, listener: ListenerProc, unregisterNotify: UnregisterNotifyProc ¬ NIL, clientData: REF ¬ NIL, thread: Xl.TQ ¬ NIL, overwrite: BOOL ¬ FALSE, replyOnPing: BOOL ¬ TRUE, refCounting: BOOL ¬ FALSE] RETURNS [ok: BOOL]; <> <> <> <> <> <> <> <> <> <<>> Send: PROC [c: Xl.Connection, interpreterName: Rope.ROPE, command: Rope.ROPE ¬ NIL, timeout: INT ¬ 4000] RETURNS [replyCode: TclCode, reply: Rope.ROPE]; <> <> END.