DIRECTORY
BasicTime USING [GMT, Now, Period, Update, nullGMT],
Commander USING [CommandProc, Handle, Register],
CommanderOps USING [DoCommand, ArgumentVector, Failed, Parse],
Convert USING [Error, IntFromRope],
IO USING [PutF, PutRope],
List USING [Assoc],
Process USING [Pause, SecondsToTicks],
ProcessProps USING [GetPropList],
Rope USING [Cat, Concat, ROPE],
RepeatCommand,
Tempus USING [Parse, Unintelligible];

RepeatCommandImpl: CEDAR PROGRAM 
IMPORTS BasicTime, Commander, CommanderOps, Convert, IO, List, Process, ProcessProps, Rope, Tempus
EXPORTS RepeatCommand
~ BEGIN 
OPEN RepeatCommand;

ROPE: TYPE = Rope.ROPE;

repeatCommandDoc: ROPE = "\"Command line to be performed\" [period [\"Start time interpretable by Tempus\" [nTimes]]] [&]
	period defaults to 24*60*60 (one day)
	startTime defaults to BasicTime.Now[]
	nTimes defaults to LAST[INT]
	use the & (as usual) if you want this forked";

atCommandDoc: ROPE = "\"Start time interpretable by Tempus\" \"Command line to be performed\" [&]
	use the & (as usual) if you want this forked";

Repeat: PUBLIC PROC [cmd: ROPE, period: INT м Days, start: BasicTime.GMT м Immediately, nTimes: INT м Forever] ~ {
aborting: BOOL м FALSE;
nextTime: BasicTime.GMT м IF start = BasicTime.nullGMT THEN BasicTime.Now[] ELSE start;
parent: Commander.Handle = NARROW[List.Assoc[$CommanderHandle, ProcessProps.GetPropList[]]];
FOR i: INT IN [0..nTimes) WHILE NOT aborting DO
parent.out.PutF["-- Waiting until %g to execute: %g\n", [time[nextTime]], [rope[cmd]]];
IF WaitForTime[nextTime] THEN {
[] м CommanderOps.DoCommand[commandLine: cmd, parent: parent];
nextTime м BasicTime.Update[nextTime, period];
}
ELSE aborting м TRUE;
ENDLOOP;
parent.out.PutRope[IF aborting THEN "... aborting command.\n" ELSE "Done.\n"];
};

WaitForTime: PROC [time: BasicTime.GMT] RETURNS [ok: BOOL] ~ {
ENABLE {
ABORTED => GOTO AbortRequested;
};
timeLeft: INT;
WHILE (timeLeft м BasicTime.Period[ from: BasicTime.Now[], to: time ]) > 0 DO
Process.Pause[Process.SecondsToTicks[MIN[timeLeft, 1000]]];
ENDLOOP;
RETURN[TRUE];
EXITS
AbortRequested => RETURN[FALSE];
};

RepeatCommandProc: Commander.CommandProc = {
argv: CommanderOps.ArgumentVector м CommanderOps.Parse[cmd: cmd
! CommanderOps.Failed => {msg м Rope.Concat[ "usage: ", repeatCommandDoc]; GO TO failed}];
argc: NAT м argv.argc;
commandLine: ROPE;
startTime: BasicTime.GMT м BasicTime.nullGMT;
period: INT м Days;
nTimes: INT м LAST[INT];

IF argc < 2 THEN {msg м Rope.Concat[ "usage: ", repeatCommandDoc]; GO TO failed};
commandLine м argv[1];
IF argc >= 3 THEN period м Convert.IntFromRope[argv[2] ! Convert.Error => {
msg м Rope.Cat[ "Can't Parse \"", argv[2], "\" as an INT"]; GO TO failed}];
IF argc >= 4 THEN startTime м Tempus.Parse[argv[3] ! Tempus.Unintelligible => {
msg м Rope.Cat[ "Can't Parse \"", argv[3], "\" as a time"]; GO TO failed}].time;
IF argc >= 5 THEN nTimes м Convert.IntFromRope[argv[4] ! Convert.Error => {
msg м Rope.Cat[ "Can't Parse \"", argv[4], "\" as an INT"]; GO TO failed}];

Repeat[commandLine, period, startTime, nTimes];

EXITS
failed => {result м $Failure};

};

AtCommandProc: Commander.CommandProc = {
argv: CommanderOps.ArgumentVector м CommanderOps.Parse[cmd: cmd
! CommanderOps.Failed => {msg м Rope.Concat[ "usage: ", atCommandDoc]; GO TO failed}];
argc: NAT м argv.argc;
commandLine: ROPE;
startTime: BasicTime.GMT м BasicTime.nullGMT;

IF argc # 3 THEN {msg м Rope.Concat[ "usage: ", atCommandDoc]; GO TO failed};
startTime м Tempus.Parse[argv[1]
! Tempus.Unintelligible => {
msg м Rope.Cat[ "Can't Parse \"", argv[1], "\" as a time"]; GO TO failed};
].time;
commandLine м argv[2];

Repeat[commandLine, 0, startTime, 1];

EXITS
failed => {result м $Failure};

};

Commander.Register[
key: "Repeat",
proc: RepeatCommandProc,
doc: repeatCommandDoc,
clientData: NIL,
interpreted: TRUE
];

Commander.Register[
key: "At",
proc: AtCommandProc,
doc: atCommandDoc,
clientData: NIL,
interpreted: TRUE
];

END.

   N  
RepeatCommandImpl.mesa
Copyright ╙ 1986, 1987, 1988, 1990, 1991, 1992 by Xerox Corporation.  All rights reserved.
Carl Hauser, February 3, 1987 11:02:30 am PST
Wes Irish, May 25, 1988 11:08:38 am PDT
Willie-s, February 7, 1992 6:25 pm PST

[cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]
When parsing the command line, be prepared for failure.  The error is reported to the user.
[cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]
When parsing the command line, be prepared for failure.  The error is reported to the user.
Initialization
Carl Hauser, February 3, 1987 11:02:02 am PST
Register command in current working directory rather than ///Commands/

Wes Irish, May 19, 1988 11:07:16 pm PDT
Added "At" command
Added the ability to abort pending commands and "Waiting until ..." message

Э╩ё  ХNewlineDelimiter
Ц(cedarcode) styleЩ ЩIcodeЪЬ	╧eЬNЩZKЪЬ*╧kЩ-KЪЬ'Щ'KЩ&JЩ ЧЪЮ	Ш	KЪЬ
ЮЬЮЬ Ш4KЪЬ
ЮЬ!Ш0KЪЬЮЬ,Ш>KЪЬЮЬШ#KЪЮЬЮЬШKЪЬЮЬ	ШKЪЬЮЬШ&KЪЬЮЬШ!KЪЬЮЬЮЬШKЪЬШKЪЬЮЬШ%KШ ЧЪ╧nЬЮЬЮЬШ!KЪЮЬ.ЮЬ+ШbKЪЮЬШKЪЬЮЬШKЪЮЬШKШ ЧЪЮЬЮЬЮЬШKШ ЧKЪЬЮЬ ШХKШ KЪЬЮЬШСKШ ЪЯЬЮЬЮЬЮЬ
ЮЬЮЬЮЬШrKЪЬ
ЮЬЮЬШKЪ	ЬЮЬЮЬЮЬЮЬШWKЪЬЮЬ;Ш\ЪЮЬЮЬЮЬЮЬЮЬ
ЮШ/KЪЬWШWЪЮЬЮЬШKШ>KШ.KШKЪЮЬЮЬШЧKЪЮЬШЧKЪЬЮЬ
ЮЬЮЬШNKШKШ ЧЪ
╨bnЬЮЬЮЬЮЬЮЬШ>ЪЮЬШKЪЮЬЮЬШKШЧKЪЬ
ЮЬШЪЮЬFЮШMKЪЬ%ЮЬШ;KЪЮЬШЧKЪЮЬЮЬШЪЮШKЪЬЮЬЮЬШ ЧKШKШ ЧХStartOfExpansionL -- [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]ЪЯЬШ,KЪЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЩHЦI[cmd: Commander.Handle, starExpand: BOOL _ FALSE, switchChar: CHAR]Ш?KЪЬKЮЬЮЬ
ШZKЪЬ[Щ[ЧKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШ-KЪЬЮЬШKЪЬЮЬЮЬЮЬШKШ KЪЮЬ
ЮЬ3ЮЬЮЬ	ШQKШЪЮЬЮЬ:ШKKЪЬ<ЮЬЮЬ
ШKЧЪЮЬЮЬ>ШOKЪЬ<ЮЬЮЬШPЧЪЮЬЮЬ:ШKKЪЬ<ЮЬЮЬ
ШKЧKШ KШ/KШ ЪЮШKШЧKШ KШKШ ЧЦL -- [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]ЪЯЬШ(KЪЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЩHЦI[cmd: Commander.Handle, starExpand: BOOL _ FALSE, switchChar: CHAR]Ш?KЪЬGЮЬЮЬ
ШVKЪЬ[Щ[ЧKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШ-KШ KЪЮЬ
ЮЬ/ЮЬЮЬ	ШMШ ЪЬШKЪЬ<ЮЬЮЬ	ШJЧKЪЬШЧKШKШ KЪЬ%Ш%KШ ЪЮШKШЧKШ KШKШ ЧheadЦx[key: ROPE, proc: Commander.CommandProc, doc: ROPE _ NIL, clientData: REF ANY _ NIL, interpreted: BOOL _ TRUE]ЩЪЬШKЪЬШKЪЬШKЪЬШKЪЬЮЬШKЪЬЮШKЪЬШKШ ЧЪЬШKЪЬ
Ш
KЪЬШKЪЬШKЪЬЮЬШKЪЬЮШKЪЬШKШ ЧЧKЪЮЬШЪЬ*ЮЩ-KЩFЧKЩ ЪЬ$ЮЩ'KЩKЩKЧKЩ Ч ЕЧ    `  Я  