
DIRECTORY
Commander USING [CommandObject, Handle, Register],
CommandTool USING [DoCommand],
IO USING [CharClass, EndOf, GetTokenRope, PutFR, RIS, SkipWhitespace, STREAM],
Process USING [CheckForAbort],
Rope USING [ROPE];

MakeDoCmdsAliases: CEDAR PROGRAM
IMPORTS Commander, CommandTool, IO, --List, ProcessProps,-- Process
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;


Break: PROC [char: CHAR] RETURNS [cc: IO.CharClass] = {
cc _ SELECT char FROM
IN [0C .. ' ] => sepr,
ENDCASE => other;
};

MakeSlices: PROC [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL] ~ {
clientData: REF ANY ~ cmd.procData.clientData;
in: IO.STREAM _ IO.RIS[cmd.commandLine];
FOR i: INT _ in.SkipWhitespace[], in.SkipWhitespace[] WHILE NOT in.EndOf[] DO
MakeCommandRope: PROC [clientData: REF ANY, package: ROPE] RETURNS [cmd: ROPE] ~ {
SELECT clientData FROM
$MakeDo4 => cmd _ IO.PutFR["MakeDo -df %g-Source.df -df %g-PCR.df -df %g-Sun4.df", [rope[package]], [rope[package]], [rope[package]]];
$MakePrediction4 => cmd _ IO.PutFR["MakePrediction -df %g-Source.df -df %g-PCR.df -df %g-Sun4.df", [rope[package]], [rope[package]], [rope[package]]];
$MakeVerify4 => cmd _ IO.PutFR["MakeVerify %g-Source.df %g-PCR.df %g-Sun4.df", [rope[package]], [rope[package]], [rope[package]]];
$MakeDo4O3 => cmd _ IO.PutFR["MakeDo -df %g-Source.df -df %g-PCR.df -df %g-sun4O3.df", [rope[package]], [rope[package]], [rope[package]]];
$MakePrediction4O3 => cmd _ IO.PutFR["MakePrediction -df %g-Source.df -df %g-PCR.df -df %g-sun4O3.df", [rope[package]], [rope[package]], [rope[package]]];
$MakeVerify4O3 => cmd _ IO.PutFR["MakeVerify %g-Source.df %g-PCR.df %g-sun4O3.df", [rope[package]], [rope[package]], [rope[package]]];
$MakeDo0 => cmd _ IO.PutFR["MakeDo -df %g-Source.df -df %g-PrincOps.df", [rope[package]], [rope[package]]];
$MakePrediction0 => cmd _ IO.PutFR["MakePrediction -df %g-Source.df -df %g-PrincOps.df", [rope[package]], [rope[package]]];
$MakeVerify0 => cmd _ IO.PutFR["MakeVerify %g-Source.df %g-PrincOps.df", [rope[package]], [rope[package]]];
ENDCASE => ERROR;
};
package: ROPE ~ in.GetTokenRope[Break].token;
commandRope: ROPE ~ MakeCommandRope[clientData, package];
[] _ CommandTool.DoCommand[commandRope, cmd];
Process.CheckForAbort[];
ENDLOOP;

};


Init: PROC [] ~ {
Commander.Register[key: "MakeDo4", proc: MakeSlices, doc: "Slice for Sun4", clientData: $MakeDo4];
Commander.Register[key: "MakePrediction4", proc: MakeSlices, doc: "Slice for Sun4", clientData: $MakePrediction4];
Commander.Register[key: "MakeVerify4", proc: MakeSlices, doc: "Slice for Sun4", clientData: $MakeVerify4];

Commander.Register[key: "MakeDo4O3", proc: MakeSlices, doc: "Slice for Sun4O3", clientData: $MakeDo4O3];
Commander.Register[key: "MakePrediction4O3", proc: MakeSlices, doc: "Slice for Sun4O3", clientData: $MakePrediction4O3];
Commander.Register[key: "MakeVerify4O3", proc: MakeSlices, doc: "Slice for Sun4O3", clientData: $MakeVerify4O3];

Commander.Register[key: "MakeDo0", proc: MakeSlices, doc: "Slice for PrincOps", clientData: $MakeDo0];
Commander.Register[key: "MakePrediction0", proc: MakeSlices, doc: "Slice for PrincOps", clientData: $MakePrediction0];
Commander.Register[key: "MakeVerify0", proc: MakeSlices, doc: "Slice for PrincOps", clientData: $MakeVerify0];
};

Init[];

END.
  \  
MakeDoCmdsAliases.mesa
Copyright س 1989 by Xerox Corporation.  All rights reserved.
Eduardo Pelegri-Llopart March 22, 1989 6:13:55 am PST
Last tweaked by Mike Spreitzer on October 26, 1989 3:34:34 pm PDT

Knowledge about slices. 

List USING [AList, PutAssoc],
ProcessProps USING [AddPropList, GetProp],
wDir: ROPE;
ExecuteACommand: PROC [commandRope: ROPE] RETURNS [ok: BOOL] ~ {
Execute a bridgeload file for the command cmdName. Ok indicates if the file could be found and executed properly.

result: REF;
handleList: List.AList ~ NIL;
handle: Commander.Handle;
processList: List.AList ~ List.PutAssoc[$WorkingDirectoryStack, wDir, List.PutAssoc[$WorkingDirectory, wDir, NIL]];
InnerExecute: PROC ~ {
result _ CommandTool.DoCommand[commandRope, handle];
};

handle _ NIL;

ProcessProps.AddPropList[processList, InnerExecute];
RETURN [ok: result = NIL];
};
Commander.CommandProc
Slice 4
Slice 4O3
Slice 0
Init: PROC ~ {
ok: BOOL;
wDir _ NARROW [ProcessProps.GetProp[$WorkingDirectory]];
ok _ ExecuteACommand["alias MakeDo4(package) MakeDo -rgom package-Source.df -rgom package-PCR.df -rgom package-Sun4.df"];
ok _ ExecuteACommand["alias MakePrediction4(package) MakePrediction -rgom package-Source.df -rgom package-PCR.df -rgom package-Sun4.df"];
ok _ ExecuteACommand["alias MakeVerify4(package) MakeVerify package-Source.df package-PCR.df package-Sun4.df"];
};

‌ت—  •NewlineDelimiter
™ ڑœ™Icode™<K™5K™AJ™ J™—J™ Kک ڑدk	ک	Kڑœ
‌œ#ک2Kڑœ‌œکKڑ‌œ‌œ)‌œ‌œکNKڑœ‌œ™Jڑœ‌œکKڑœ‌œ™*Kڑœ‌œ‌œکKک —Kڑذblœ‌ک Kڑ‌œ‌œ!کCڑœ‌کKک Kڑœ‌œ™Kڑ‌œ‌œ‌œکKک ڑ
دnœ‌œ‌œ‌œ‌œ™@Kڑœ*دeœ@™q™ Kڑœ‌œ™Kڑœ‌œ™Kڑœ™Kڑœm‌œ™sڑںœ‌œ™Kڑœ4™4K™K™ —Kڑœ	‌œ™K™ Kڑœ4™4Kڑ‌œ‌œ™—K™—Kک ڑ
ںœ‌œ‌œ‌œ‌œک7ڑœ‌œ‌کKڑ‌œکKڑ‌œ
ک—KکKک —ڑں
œ‌œ‌œ
‌œ‌œ‌œ‌œ‌œک]Kڑدc™Kڑœ‌œ‌œک.Kڑ	œ‌œ‌œ‌œ‌œک(ڑ	‌œ‌œ,‌œ‌œ‌کMڑںœ‌œ‌œ‌œ‌œ‌œ‌œکRڑ‌œ‌کK™Kڑœ‌œrک†Kڑœ‌œzک–Kڑœ‌œjک‚K™	Kڑœ‌œtکٹKڑœ‌œ|کڑKڑœ‌œlک†K™Kڑœ‌œWکkKڑœ‌œ_ک{Kڑœ‌œSکkKڑ‌œ‌œک—Kک—Kڑœ	‌œ ک-Kڑœ‌œ(ک9Kک-KکKڑ‌œکKک —KکKک —ڑںœ‌œ™Kڑœ‌œ™	Kڑœ‌œ+™8K™yK™‰K™oK™—Kک ڑںœ‌œکKکbKکrKکjKک KکhKکxKکpKک KکfKکvKکnKکKک —Kک—Kک Kڑ‌œکJ™ — …—    ج  ؟  