X11Eval.mesa
Copyright Ó 1991, 1992 by Xerox Corporation. All rights reserved.
Christian Jacobi, May 7, 1991 10:46:26 am PDT
Christian Jacobi, May 9, 1991 3:21 pm 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
X11Eval: CEDAR DEFINITIONS
~ BEGIN
Result:
TYPE = {noServer, noSelection, timeout, badProtocol, crashed, failed, success};
noServer: server not up, not found, denied access
noSelection: selection not claimed, not working
timeout: of communication, or, of service
badProtocol: something internally wrong, e.g. server uses other protocol
crashed: eval procedure crashed
failed: eval procedure claims failure
success: eval procedure claims success
Query:
PROC [server:
REF, selection, text: Rope.
ROPE, timeout:
INT ¬ 5]
RETURNS [state: Result, answer: Rope.
ROPE];
Asks some eval server.
answer depending of state
END.