
DIRECTORY 
Atom, Commander, CommanderBackdoor, CommanderOps, IO, ProcessProps, Rope, X11EvalServer;

X11CommanderServer: CEDAR PROGRAM
IMPORTS Commander, CommanderBackdoor, CommanderOps, IO, ProcessProps, Rope, X11EvalServer ~ 
BEGIN

CreateListenerCommand: Commander.CommandProc ~ {
success: BOOL; message: Rope.ROPE;
display: Rope.ROPE м NIL;
selection: Rope.ROPE м "CedarCommander";
DO
arg: Rope.ROPE м CommanderOps.NextArgument[cmd];
IF arg=NIL THEN EXIT;
SELECT TRUE FROM
Rope.Equal[arg, "-display", FALSE] => display м CommanderOps.NextArgument[cmd];
Rope.Equal[arg, "-selection", FALSE] => selection м CommanderOps.NextArgument[cmd];
ENDCASE => CommanderOps.Failed["unknown argument"];
ENDLOOP;
[success, message] м X11EvalServer.Create[server: display, selection: selection, proc: CommandProc];
IF success 
THEN msg м "ok"
ELSE {
msg м Rope.Concat["selection ownership not established ", message];
result м $Failure
};
};

NoPrompt: PROC [cmd: Commander.Handle] ~ {
};

CommandProc: PROC [in: Rope.ROPE, environment: REF] RETURNS [out: Rope.ROPE м NIL, result: REF м NIL] = {
inStream: IO.STREAM м IO.RIS[in];
outStream: IO.STREAM м IO.ROS[];
Inner: PROC = {
commander: Commander.Handle = CommanderOps.CreateFromStreams[in: inStream, out: outStream];
CommanderBackdoor.GetCommandToolData[commander].Prompt м NoPrompt;
[] м CommanderOps.ReadEvalPrintLoop[commander];
};
ProcessProps.AddPropList[LIST[NEW[Atom.DottedPairNode м ["", ""]]], Inner];
out м IO.RopeFromROS[outStream];
};

Commander.Register["X11CommanderServer", CreateListenerCommand, "create an interop listener"];
END.

   ╝  X11CommanderServer.mesa
Copyright ╙ 1991, 1992 by Xerox Corporation.  All rights reserved.
Christian Jacobi, April 24, 1991 5:26 pm PDT
Christian Jacobi, May 10, 1991 12:22 pm PDT

 Э╩(  Ц(cedarcode) styleХNewlineDelimiter
Ш codeЪЬЩKЪЬ
╧eЬ7ЩBKЩ,KЩ+KЩ ЧЪ╧k	ЬШ
KЪЬXШXKШ ЧЪ╧nЬЮЬЮШ!KЪЮЬUШ\ЧЪЮШKШ ЧЪЯЬШ0KЪЬ	ЮЬЮЬШ"KЪЬЮЬЮЬШKЪЬЮЬШ(ЪЮШKЪЬ
ЮЬ"Ш0KЪЮЬЮЬЮЬЮЬШЪЮЬЮЬЮШKЪЬЮЬ.ШOKЪЬЮЬ0ШSKЪЮЬ,Ш3ЧKЪЮЬШЧKШdЪЮЬ	ШKЪЮЬШЪЮЬШKШCKШKЪЬШЧЧKШЧKШ ЪЯЬЮЬШ*KЪЬШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬШiKЪ	Ь
ЮЬЮЬЮЬЮЬШ!KЪ	ЬЮЬЮЬЮЬЮЬШ ЪЯЬЮЬШKЪЬ[Ш[KШBKШ/KЪЬШЧKЪЬЮЬЮЬ*ШKKЪЬЮЬШ KШЧKШ KЪЬ^Ш^KЪЮЬШKШ Ч ЕЧ    8  	  