
DIRECTORY Atom, Commander, CommanderOps, IO, Process, ProcessProps, Rope, UXIO;

CommanderOnStandardStreamsImpl: CEDAR PROGRAM
IMPORTS Atom, CommanderOps, IO, Rope, Process, ProcessProps, UXIO
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;
firstTime: BOOL м TRUE;

RunCommander: PROC ~ {
cmd: Commander.Handle ~ CommanderOps.CreateFromStreams[
in: UXIO.CreateStandardStream[input],
out: UXIO.CreateStandardStream[output]];
Inner: PROC ~ {
result: REF м $Failure;
msg: ROPE м NIL;
hadFailure: BOOL м FALSE;
persist: BOOL м FALSE;
IF initial # NIL THEN {
[result: result, msg: msg] м CommanderOps.ExecuteCommand[cmd, initial];
};
IF msg # NIL THEN {
IO.PutRope[cmd.out, msg];
IO.PutRope[cmd.out, "\n"];
};
IF result=$Failure THEN {
IO.PutRope[cmd.out, "[[COMMANDER_INITIAL_COMMAND="];
IO.PutRope[cmd.out, initial];
IO.PutRope[cmd.out, "]]\n"];
};
hadFailure м CommanderOps.ReadEvalPrintLoop[cmd];
persist м Rope.Size[GetEnv[cmd, "COMMANDER_INITIAL_PERSIST"]] > 0 OR Atom.GetProp[$CommanderOnStandardStreams, $DontExit]#NIL;
IF NOT persist THEN IO.PutRope[cmd.out, " Exiting Initial Commander\n"];
IF hadFailure THEN {IO.PutRope[cmd.err, " (some commands failed)\n"];};
WHILE persist DO Process.Pause[400000] ENDLOOP;
};
initial: ROPE ~ IF firstTime THEN GetEnv[cmd, "COMMANDER_INITIAL_COMMAND"] ELSE "";
firstTime м FALSE;
ProcessProps.AddPropList[LIST[NEW[Atom.DottedPairNode м ["",""]]], Inner]; -- dummy prop list so SetProcessProperty has a chance to work.
};

GetEnv: PROC [cmd: Commander.Handle, key: ROPE] RETURNS [ROPE] ~ {
WITH CommanderOps.GetProp[cmd, Atom.MakeAtom[key]] SELECT FROM
rope: ROPE => RETURN [rope];
ENDCASE => RETURN [NIL];
};

RunCommander[];

END.
  Ю  
CommanderOnStandardStreamsImpl.mesa
Copyright ╙ 1989, 1990, 1991, 1992 by Xerox Corporation.  All rights reserved.
Michael Plass, June 23, 1992 1:25 pm PDT
Chauser, September 13, 1991 3:40 pm PDT
Christian Jacobi, April 2, 1992 6:53 pm PST
Willie-s, January 26, 1993 3:30 pm PST
NOTE: RunCommander should be first so we can make a good guess about its c-name
--Hack to prevent X11Viewers from disappearing
 Э╩╚  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬ#Щ#KЪЬ
╧eЬCЩNKЩ(KЩ'KЩ+KЩ&ЧKШ Ъ╧k	Ь ЮЬЮЬШOKШ ЧKЪ╧nЬЮЬЮШ-KЪЮЬЮЬЮШAЪЬЮШKШ KЪЮЬЮЬЮЬШЪЬЮЬЮЬШKШ ЧKЪЬЯЬ=ЩOЪЯЬЮЬШЪЬ7Ш7KЪЬЮЬШ%KЪЬЮЬШ(ЧЪЯЬЮЬШKЪЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬ	ЮЬЮЬШЪЮЬЮЬЮЬШKЪЬGШGKЪЬШЧЪЮЬЮЬЮЬШKЪЮЬШKЪЮЬШKЪЬШЧЪЮЬЮЬШKЪЮЬ2Ш4KЪЮЬШKЪЮЬШKЪЬШЧKЪЬ1Ш1KЪЬBЮЬ6ЮЬШ~KЪЮЬЮЬ	ЮЬЮЬ2ШHKЪЮЬЮЬЮЬ1ШGKЪЬ.Щ.KЪЮЬ	ЮЬЮЬШ/KЪЬШЧKЪ	Ь	ЮЬЮЬЮЬ*ЮЬШSKЪЬЮЬШKЪЬЮЬЮЬ*╧c>ШЙKЪЬШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШBЪЮЬ/ЮЬЮШ>KЪЬЮЬЮЬШKЪЮЬЮЬЮЬШЧKЪЬШKШ ЧKЪЬШЧKШ KЪЮЬШЧ ЕЧ    |  
т  