DIRECTORY GlobalRunDefaults, Commander, IO, Rope;

GlobalRunDefaultsImpl: CEDAR MONITOR
IMPORTS Commander, IO, Rope
EXPORTS GlobalRunDefaults
~ {

globalDefaultSwitches: Rope.ROPE м "-";

GetGlobalRunDefaults: PUBLIC ENTRY PROCEDURE [] RETURNS [Rope.ROPE] ~ {
RETURN [globalDefaultSwitches];
};

SetGlobalRunDefaults: PUBLIC ENTRY PROCEDURE [defaults: Rope.ROPE] 
RETURNS [old: Rope.ROPE] ~ {
old м globalDefaultSwitches;
globalDefaultSwitches м defaults;
RETURN [old: old];
};

RunGlobalDefaultsCmd: Commander.CommandProc ~ {
{	-- extra scope to contain EXITS.
cmds: IO.STREAM ~ IO.RIS[cmd.commandLine];
switches: Rope.ROPE ~ GetCmdToken[cmds
! QuotedStringError => {
msg м "Mismatched quotes";
GO TO Failure;
}];
IF Rope.Size[switches] > 0 AND Rope.Fetch[switches, 0] = '- THEN {
[] м SetGlobalRunDefaults[defaults: switches];
};
EXITS
Failure => {
result м $Failure;
};
};
msg м Rope.Concat["Global default switches for Run are ", GetGlobalRunDefaults[]];
RETURN [result: result, msg: msg];
};

QuotedStringError: ERROR ~ CODE;

CmdTokenBreak: PROCEDURE [char: CHAR] RETURNS [IO.CharClass] = {
IF char = '" THEN RETURN [break];
IF char = '  OR char = '\t OR char = ', OR char = '\l OR char = '\r THEN RETURN [sepr];
RETURN [other];
};

GetCmdToken: PROCEDURE [stream: IO.STREAM] RETURNS [token: Rope.ROPE м NIL] ~ {
token м IO.GetTokenRope[stream, CmdTokenBreak ! IO.EndOfStream => CONTINUE].token;
IF Rope.Equal[token, "\""] THEN {
ref: REF;
IO.Backup[self: stream, char: '"];
ref м IO.GetRefAny[stream ! IO.Error, IO.EndOfStream => ERROR QuotedStringError];
WITH ref SELECT FROM
rope: Rope.ROPE => token м rope;
ENDCASE => ERROR QuotedStringError;
};
RETURN [token: token];
};

RegisterWithCommander: PROCEDURE [] RETURNS [] ~ {
Commander.Register[
key: "RunGlobalDefaultSwitches", 
proc: RunGlobalDefaultsCmd, 
doc: "Set global default switches for the Run command"];
RETURN;
};

RegisterWithCommander[];

}.
     
GlobalRunDefaultsImpl.mesa
Copyright ╙ 1990, 1991 by Xerox Corporation.  All rights reserved.
Peter B. Kessler, August 20, 1990 1:53 pm PDT
Willie-s, June 25, 1992 12:02 pm PDT
Christian Jacobi, July 21, 1992 5:55 pm PDT

This is the global data protected by the monitor.
 Э╩н  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ
╧eЬ7ЩBKЩ-KЩ$KЩ+KЩ ЧKЪ╧k	ЬЮЬШ1KШ unitЪ╨lnЬЮЬЮШ$KЪЮЬЮЬШKЪЮЬШKШKШ ЪЬЮЬШ'KЩ1KШ ЧЪ╧nЬЮЬЮЬЮ	ЬЮЬЮЬШGKЪЮЬШKШKШ ЧЪаЬЮЬЮЬЮ	ЬЮЬЮЬЮЬШ`KЪЬШKЪЬ!Ш!KЪЮЬШKШKШ ЧЪаЬШ/ЪЬ╧c Ш"KЪ	ЬЮЬЮЬЮЬЮЬШ*ЪЬЮЬШ&ЪЬШKЪЬШKЪЮЬЮЬ	ШKЪЬШЧЧЪЮЬЮЬЮЬШBKЪЬ.Ш.KЪЬШЧЪЮШЪЬШKЪЬШKШЧЧKЪЬШЧKЪЬRШRKЪЮЬШ"KШKШ ЧЪаЬЮЬЮЬШ KШ ЧЪ
аЬЮ	ЬЮЬЮЬЮЬШ@KЪЮЬЮЬЮЬ	Ш!KЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬШWKЪЮЬ	ШKШKШ ЧЪаЬЮ	Ь
ЮЬЮЬЮЬЮЬЮЬШOKЪЬЮЬ&ЮЬЮЬШRХStartOfExpansion6[pattern: ROPE, object: ROPE, case: BOOL _ TRUE]ЪЮЬЮЬШ!KЪЬЮЬШ	KЦ[self: STREAM, char: CHAR]ЪЮЬ Ш"KЪ	ЬЮЬЮЬЮЬЮЬШQЪЮЬЮЬЮШKЪЬЮЬШ KЪЮЬЮЬШ#ЧKЪЬШЧKЪЮЬШKШKШ ЧЪаЬЮ	ЬЮЬШ2ЪЬШKЪЬ!Ш!KЪЬШKЪЬ8Ш8ЧKЪЮЬШKШKШ ЧШKШ ЧKЪЬШЧЧ ЕЧ    |  A  