DIRECTORY Booting, Commander, CommandTool, FS, IO, List, MessageWindow, ProcessProps, Rope, UserCredentials, ViewerClasses, ViewerOps;RollbackAndAnything: CEDAR MONITORIMPORTS Booting, Commander, CommandTool, FS, IO, List, MessageWindow, ProcessProps, Rope, UserCredentials, ViewerOps=BEGINROPE: TYPE = Rope.ROPE;Viewer: TYPE = ViewerClasses.Viewer;enabled: BOOL _ TRUE;Able: ENTRY PROC RETURNS [able: BOOL] = {able _ enabled;enabled _ FALSE};AnythingWork: PROC [ctv: Viewer] = {looking: BOOL;from: IO.STREAM _ NIL;cmd: ROPE;sourceFileName: ROPE _ CmdFileName[];copyFileName: ROPE _ CopyFileName[];FindOne: PROC [v: Viewer] RETURNS [BOOL _ TRUE] --ViewerOps.EnumProc-- =BEGINIF v.name.Find["CommandTool: "] = 0 AND v.class.flavor = $TypescriptTHEN {ctv _ v; looking _ FALSE};RETURN [looking];END;IF NOT Able[] THEN RETURN;from _ FS.StreamOpen[sourceFileName !FS.Error => {from _ NIL; CONTINUE}];IF from = NIL THEN RETURN;cmd _ from.GetTokenRope[AllOther].token;from.Close[];FS.Rename[from: sourceFileName, to: copyFileName];IF cmd.Length[] = 0 THEN RETURN;looking _ ctv = NIL OR ctv.destroyed;IF looking THEN ViewerOps.EnumerateViewers[FindOne];IF looking THEN MessageWindow.Append[" RollbackAndAnything couldn't find a CommandTool"]ELSE ctv.class.notify[ctv, LIST[cmd]];};AllOther: PROC [char: CHAR] RETURNS [cc: IO.CharClass] --IO.BreakProc-- ={cc _ other};CmdFileName: PROC RETURNS [fileName: ROPE] = {userName: ROPE _ UserCredentials.Get[].name;fileName _ Rope.Cat["///Users/", userName, "/ToDoWhenRollback"]};CopyFileName: PROC RETURNS [fileName: ROPE] = {userName: ROPE _ UserCredentials.Get[].name;fileName _ Rope.Cat["///Users/", userName, "/DidWhenRollbacked"]};UponRollback: PROC [clientData: REF ANY] --Booting.RollbackProc-- ={AnythingWork[NIL]};DoRollbackStuff: PROC [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL] --Commander.CommandProc-- ={AnythingWork[CommandTool.GetViewer[cmd]]};RollbackAnd: PROC [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL] --Commander.CommandProc-- = {to: IO.STREAM = FS.StreamOpen[CmdFileName[], create];wDir: REF ANY = List.Assoc[$WorkingDirectory, ProcessProps.GetPropList[]];IF wDir # NIL THEN {WITH wDir SELECT FROMx: ROPE => to.PutF["cd %g; ", [rope[x]]];x: REF TEXT => to.PutF["cd %g; ", [text[x]]];ENDCASE => to.PutF["abort because wDir (%g) isn't a ROPE or REF TEXT; ", [refAny[wDir]]];}ELSE to.PutRope["cdr; "];to.PutRope[cmd.commandLine];to.Close[];RETURN[$Failure, Booting.Boot[[self[]], [r: TRUE]]];};Booting.RegisterProcs[r: UponRollback];Commander.Register[key: "DoRollbackStuff", proc: DoRollbackStuff, doc: "Execute commands saved for execution upon rollback"];Commander.Register[key: "RollbackAnd", proc: RollbackAnd, doc: "Rollback, then execute rest of command line", interpreted: FALSE];END.   └  RollbackAndAnything.MesaLast Edited by: Spreitzer, May 24, 1985 1:48:55 pm PDTMike Spreitzer November 3, 1986 11:11:03 pm PSTCopied from CommandToolFix.InitialCommandsImpl.Rollback: Э╩у  Ц"cedar" styleШ IcodeЩЪЬ3╧kЩ6KЩ/ЧKШ KЪЭ	Ь"ЭЬЭЬUШЖKШ Ъ╤bnxЬЭЬЭШ"KЪЭЬ"ЭЬЭЬEШtKЪЬШЧKШ KЪЭШKШ KЪЭЬЭЬЭЬШKЪЬЭЬШ$KШ KЪЬ	ЭЬЭЬШKШ Ъ
╧nЬЭЬЭЬЭЬЭЬШ)KШKЪЬ
ЭЬШЧKШ ЪЯЬЭЬШ$KЪЬ	ЭЬШKЪЬЭЬЭЬЭЬШKЪЬЭЬШ
KЪЬЭЬШ%KЪЬЭЬШ$ЪЯЬЭЬЭЬЭЬЭЬ╧cЬШHKЪЭШЪЭЬ"ЭЬШDKЪЭЬЭЬШ ЧKЪЭЬШKЪЭЬШЧKЪЭЬЭЬЭЬЭЬШKЪ	ЬЭЬЭЬЭЬЭЬШIKЪЭЬЭЬЭЬЭЬШKШ(KШKЪЭЬ0Ш2KЪЭЬЭЬЭЬШ KЪЬЭЬЭЬШ%KЪЭЬ	ЭЬ%Ш4KЪЭЬ	ЭЬIШXKЪЭЬЭЬШ&KШЧKШ ЪЯЬЭЬЭЬЭЬЭЬаЬШIKШЧKШ ЪЯЬЭЬЭЬЭЬШ.KЪЬ
ЭЬШ,KЪЬAШAЧKШ ЪЯЬЭЬЭЬЭЬШ/KЪЬ
ЭЬШ,KЪЬBШBЧKШ Ъ
ЯЬЭЬЭЬЭЬаЬШCKЪЬЭЬШЧKШ ЪЯЬЭЬЭЬ
ЭЬЭЬЭЬЭЬЭЬаЬШzKЪЬ+Ш+ЧKШ ЪЯЬЭЬЭЬ
ЭЬЭЬЭЬЭЬЭЬаЬШxKЪЬЭЬЭЬЭЬ#Ш5KЪЬЭЬЭЬ=ШJЪЭЬЭЬЭЬШЪЭЬЭЬЭШKЪЬЭЬ"Ш)KЪЬЭЬЭЬ"Ш-KЪЭЬRШYЧKЪЬШЧKЪЭЬШKШKШЪЬ8Щ8KЪЭЬ&ЭЬШ4ЧKШЧKШ KЪЬ'Ш'KШ}KЪЬ{ЭЬШВKШ KЪЭЬШЧ ЕЧ    D  ч  