DIRECTORY UnixSpawn, UnixErrno, Rope, UXStrings, UnixSysCalls, UnixTypes, PFS, PFSNames, PFSPrefixMap, Commander, CommanderOps, IO;

UnixCommandsImpl: CEDAR PROGRAM
IMPORTS UnixSpawn, UnixErrno, Rope, UXStrings, UnixSysCalls, PFS, PFSNames, PFSPrefixMap, Commander, CommanderOps, IO
~ BEGIN

PATH: TYPE ~ PFS.PATH;
ROPE: TYPE ~ Rope.ROPE;

ux: PATH ~ PFS.PathFromRope["-ux:/"];

vux: PATH ~ PFS.PathFromRope["-vux:/"];

dirMode: UnixTypes.Mode м [fmt: dir, owner: [true, true, true], group: [true, true, true], others: [true, false, true]];

ForceLower: PROC [old: CHAR] RETURNS [CHAR] ~ {
RETURN [IF old IN ['A..'Z] THEN 'a+(old-'A) ELSE old]
};

UnixName: PROC [rope: ROPE, checkexist: BOOL м FALSE, vuxOK: BOOL м FALSE] RETURNS [ROPE] ~ {
path: PATH ~ PFS.AbsoluteName[PFS.PathFromRope[rope]];
nodir: PATH ~ PFSNames.SubName[name: path, start: 0, absolute: TRUE, directory: FALSE];
translated: PATH ~ PFSPrefixMap.Translate[nodir];
s: PATH ~ PFSNames.SubName[name: translated, start: 0, absolute: TRUE, directory: FALSE];
uxP: BOOL ~ PFSNames.IsAPrefix[ux, s].isa;
vuxP: BOOL ~ NOT uxP AND PFSNames.IsAPrefix[vux, s].isa;
IF (uxP OR (vuxOK AND vuxP)) AND (NOT checkexist OR PFS.FileLookup[translated, NIL]#NIL)
THEN {
name: ROPE м PFS.RopeFromPath[translated, slashes];
colon: INT ~ Rope.Find[name, ":"];
IF colon >= 0 THEN name м Rope.Substr[name, colon+1];
IF vuxP THEN name м Rope.Translate[base: name, translator: ForceLower];
RETURN [name]
}
ELSE {
ERROR CommanderOps.Failed[Rope.Concat[
"Not a valid unix file system working directory: ",
PFS.RopeFromPath[translated]
]]
};
};

DirCommand: Commander.CommandProc ~ {
mk: BOOL ~ cmd.procData.clientData = $mk;
FOR token: ROPE м CommanderOps.NextArgument[cmd], CommanderOps.NextArgument[cmd] UNTIL token = NIL DO
name: ROPE м UnixName[token];
IF mk
THEN {
IF UnixSysCalls.MkDir[path: UXStrings.Create[name], mode: dirMode] = failure THEN {
ERROR CommanderOps.Failed[IO.PutFR["MkDir[\"%g\"] failed (errno=%g)", [rope[name]], [cardinal[LOOPHOLE[UnixErrno.GetErrno[]]]]]]
};
}
ELSE {
IF UnixSysCalls.RmDir[path: UXStrings.Create[name]] = failure THEN {
ERROR CommanderOps.Failed[IO.PutFR["RmDir[\"%g\"] failed (errno=%g)", [rope[name]], [cardinal[LOOPHOLE[UnixErrno.GetErrno[]]]]]]
};
};
ENDLOOP;
};

UnixCommandData: TYPE ~ REF UnixCommandDataRep;
UnixCommandDataRep: TYPE ~ PACKED RECORD [
commandPrefix: ROPE,
uxOnly: BOOL м TRUE, 
input: ROPE м NIL,
output: ROPE м NIL,
exec: BOOL м FALSE,
tty: BOOL м FALSE,
debug: BOOL м FALSE,
vuxOK: BOOL м FALSE,
wd: ROPE м NIL
];

DoUnixCommand: Commander.CommandProc ~ {
data: UnixCommandData ~ NARROW[cmd.procData.clientData];
wd: ROPE ~ IF data.wd = NIL THEN UnixName[".", TRUE, data.vuxOK] ELSE data.wd;
ans: UnixSpawn.SpawnResult м [0, 0, NIL];
IO.PutF1[cmd.out, "%l", [rope["f"]]];
ans м UnixSpawn.Spawn[
command: Rope.Cat[IF data.exec THEN "" ELSE "stty -echo -onlcr; ", data.commandPrefix, cmd.commandLine],
wd: wd,
stdin: IF data.input # NIL THEN data.input ELSE cmd.in,
stdout: IF data.output # NIL THEN data.output ELSE cmd.out,
stderr: cmd.err,
exec: data.exec,
tty: data.tty,
debug: data.debug
];
IF ans.res # 0 THEN {
IF ans.errno = ORD[UnixErrno.Errno.EABORTED] THEN ERROR ABORTED;
result м $Failure;
msg м IO.PutFR["Failed: (res=%g, errno=%g)", [integer[ans.res]], [integer[ans.errno]]];
CommanderOps.PutProp[cmd, $FailureDetails, ans.details];
};
IO.PutF1[cmd.out, "%l", [rope["F"]]];
};

unixCommandUsage: ROPE ~ "Usage: UnixCommand [ switch ... ] commanderName [ unixCommandPrefix ]
unixCommandPrefix defaults to be the same as commanderName
switches:
  -e        		exec the command
  -t        		pass -t tty and -p pty arguments to command
  -in fname		get stdin from named file
  -n        		get stdin from /dev/null (good for commands that don't read)
  -out fname 	redirect stdin to named file
  -d         		print debugging information about spawning
  -v         		allow a vux working directory
  -w dirname	execute the command in this directory instead of the current one
";

UnixCommand: Commander.CommandProc ~ {
commandName: ROPE м NIL;
wd: ROPE м NIL;
data: UnixCommandData м NEW[UnixCommandDataRep м []];
i: NAT м 0;
FOR arg: ROPE м CommanderOps.NextArgument[cmd], CommanderOps.NextArgument[cmd] UNTIL arg = NIL DO
SELECT TRUE FROM
Rope.Match["-e", arg, FALSE] => data.exec м TRUE;
Rope.Match["-t", arg, FALSE] => data.tty м TRUE;
Rope.Match["-in", arg, FALSE] => data.input м CommanderOps.NextArgument[cmd];
Rope.Match["-n", arg, FALSE] => data.input м "/dev/null";
Rope.Match["-out", arg, FALSE] => data.output м CommanderOps.NextArgument[cmd];
Rope.Match["-d", arg, FALSE] => data.debug м TRUE;
Rope.Match["-v", arg, FALSE] => data.vuxOK м TRUE;
Rope.Match["-w", arg, FALSE] => wd м CommanderOps.NextArgument[cmd];
Rope.Match["-*", arg, FALSE] => ERROR CommanderOps.Failed[unixCommandUsage];
ENDCASE => {
SELECT i FROM
0 => commandName м data.commandPrefix м arg;
1 => data.commandPrefix м arg;
ENDCASE => ERROR CommanderOps.Failed[unixCommandUsage];
i м i + 1;
};
ENDLOOP;
IF i=0 THEN ERROR CommanderOps.Failed[unixCommandUsage];
IF wd # NIL THEN data.wd м UnixName[wd, TRUE, data.vuxOK];
Commander.Register[commandName, DoUnixCommand, Rope.Concat["Unix ", data.commandPrefix], data];
};

Commander.Register["MkDir", DirCommand, "Make a Unix directory", $mk];
Commander.Register["RmDir", DirCommand, "Remove a Unix directory", $rm];

Commander.Register["UnixCommand", UnixCommand, Rope.Concat["Declare a Unix command to be accessible through the Commander\n", unixCommandUsage]];

END.

   О  
UnixCommandsImpl.mesa
Copyright ╙ 1990, 1991 by Xerox Corporation.  All rights reserved.
Michael Plass, October 16, 1992 4:50 pm PDT

 Э╩▐  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬ7ЩBKЩ+KЩ ЧKЪ╧k	ЬAЮЬ3ЮЬШГKШ KЪ╧nЬЮЬЮШKЪЮЬ6ЮЬ3ЮШuЪЬЮШKШ KЪЮЬЮЬЮЬЮЬШЪЮЬЮЬЮЬШKШ ЧЪЬЮЬЮЬШ%KШ ЧЪЬЮЬЮЬШ'KШ ЧЪЬxШxKШ ЧЪ
Я
ЬЮЬЮЬЮЬЮЬШ/KЪ
ЮЬЮЬЮЬ
ЮЬЮЬШ5KЪЬШKШ ЧЪЯЬЮЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШ]KЪЬЮЬЮЬЮЬШ6KЪЬЮЬ4ЮЬЮЬШWKЪЬЮЬ!Ш1KЪЬЮЬ:ЮЬЮЬШYKЪЬЮЬ!Ш*KЪЬЮЬЮЬЮЬ Ш8ЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШXЪЮЬШKЪЬЮЬЮЬ#Ш3KЪЬЮЬШ"KЪЮЬЮЬ#Ш5KЪЮЬЮЬ;ШGKЪЮЬШKШЧЪЮЬШЪЮЬ!Ш&KЪЬ3Ш3KЪЮЬШKЪЬШЧKЪЬШЧЧKЪЬШKШ ЧЪЯ
ЬШ%KЪЬЮЬ!Ш)Ъ	ЮЬЮЬBЮЬ	ЮЬЮШeKЪЬЮЬШЪЮЬШЪЮЬШЪЮЬKЮЬШSKЪЮЬЮЬBЮЬШАKЪЬШЧKЪЬШЧЪЮЬШЪЮЬ<ЮЬШDKЪЮЬЮЬBЮЬШАKЪЬШЧKЪЬШЧЧKЪЮЬШЧKЪЬШKШ ЧKЪЬЮЬЮЬШ/ЪЬЮЬЮЬЮЬШ*KЪЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮШKЪЬШKШ ЧЪЯЬШ(KЪЬЮЬШ8KЪЬЮЬЮЬЮЬЮЬЮЬЮЬ	ШNKЪЬ$ЮЬШ)KЪЮЬ#Ш%ЪЬШKЪЬЮЬЮЬЮЬ=ШhKЪЬШKЪ	ЬЮЬЮЬЮЬЮЬШ7KЪ	ЬЮЬЮЬЮЬЮЬ	Ш;KЪЬШKЪЬШKЪЬШKЪЬШKЪЬШЧЪЮЬЮЬШKЪЮЬЮЬЮЬЮЬЮЬЮЬШ@KШKЪЬЮЬOШWKЪЬ8Ш8KЪЬШЧKЪЮЬ#Ш%KЪЬШKШ ЧЪЬЮЬIШ_KЪЬ:Ш:KШ	KЪЬШKЪЬ9Ш9KЪЬ&Ш&KЪЬJШJKЪЬ*Ш*KЪЬ9Ш9KЪЬ,Ш,KЪЬMШMЪЬШKШ ЧЧЪЯЬШ&KЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬШ5KЪЬЮЬШЪ	ЮЬЮЬBЮЬЮЬЮШaЪЮЬЮЬЮШKЪЬЮЬЮЬШ1KЪЬЮЬЮЬШ0KЪЬЮЬ1ШMKЪЬЮЬШ9KЪЬЮЬ2ШOKЪЬЮЬЮЬШ2KЪЬЮЬЮЬШ2KЪЬЮЬ)ШDKЪЬЮЬЮЬ'ШLЪЮЬШЪЮЬЮШKЪЬ,Ш,KЪЬШKЪЮЬЮЬ'Ш7ЧKЪЬ
Ш
KЪЬШЧЧKЪЮЬШЧKЪЮЬЮЬЮЬ'Ш8KЪЮЬЮЬЮЬЮЬШ:KЪЬ_Ш_KЪЬШKШ ЧKЪЬFШFЪЬHШHKШ ЧЪЬСШСKШ ЧЧKЪЮЬШKШ Ч ЕЧ    О  ·  