X11EvalServer.mesa
Copyright Ó 1991, 1992 by Xerox Corporation. All rights reserved.
Christian Jacobi, May 7, 1991 10:46:26 am PDT
Christian Jacobi, May 10, 1991 11:56 am PDT
This is a little hack which still has to prove its usefulness...
If it should prove useful I might make a version which does not show X dependency
DIRECTORY Rope;
X11EvalServer: CEDAR DEFINITIONS
~ BEGIN
CommandProc: TYPE = PROC [in: Rope.ROPE, environment: REF] RETURNS [out: Rope.ROPE ¬ NIL, result: REF ¬ NIL];
Only a very limited range of results is passed back to callers. (NIL is success; $Failure is failure).
It is ok to crash.
DataProc: TYPE = PROC [data: REF];
Create: PROC [server: REF, selection: Rope.ROPE, proc: CommandProc, environment: REF ¬ NIL, lost: DataProc ¬ NIL, lostData: REF ¬ NIL] RETURNS [ok: BOOL, explanation: Rope.ROPE];
END.