DIRECTORYCedarSnapshot,FileIO,IO,Process,Rope,MessageWindow,UserExec,ViewerClasses,ViewerEvents;MaintainFilesList: CEDAR MONITORIMPORTS CedarSnapshot, FileIO, IO, Process, Rope, MessageWindow, UserExec, ViewerEvents = {regProc: REF;filesList: Rope.ROPE;userName: Rope.ROPE = UserName[];fileName: Rope.ROPE = Rope.Concat[userName, ".List"];UserName: PROC RETURNS [name: Rope.ROPE] = {dot: INT;name _ UserExec.GetNameAndPassword[].name;dot _ Rope.Find[name, "."];IF dot > 0 THEN name _ Rope.Substr[name, 0, dot] };Add: ViewerEvents.EventProc = TRUSTED { Process.Detach[FORK AddToFilesList[viewer.file]] };AddToFilesList: ENTRY PROC [name: Rope.ROPE] = {ENABLE UNWIND => NULL;AlreadyThere: PROC RETURNS [BOOL] = {pos: INT _ 0;len: INT = Rope.Size[name];fileLen: INT = Rope.Size[filesList];blank: CHAR = ' ;WHILE (pos _ Rope.Find[filesList, name, pos, FALSE]) # -1 DO -- look for adjacent blanksIF (pos>0 AND Rope.Fetch[filesList, pos-1] # blank) OR(pos+len < fileLen AND Rope.Fetch[filesList, pos+len] # blank)THEN { pos _ pos+len; LOOP };RETURN [TRUE];ENDLOOP;RETURN [FALSE] };IF Rope.Size[name]=0 THEN RETURN;IF Rope.Equal[name, fileName, FALSE] THEN { -- record hand change to file holding listGetFilesList[]; RETURN };IF AlreadyThere[] THEN RETURN;MessageWindow.Append["Adding ", TRUE];MessageWindow.Append[name];MessageWindow.Append[" to "];MessageWindow.Append[fileName];filesList _ Rope.Concat[filesList, Rope.Concat[" ", name]];WriteFilesList[];};WriteFilesList: PROC = { OPEN IO;ENABLE UNWIND => NULL;s: STREAM _ FileIO.Open[fileName, overwrite];PutRope[s, filesList];Close[s] };AfterRollback: PROCEDURE [when: CedarSnapshot.After] = {IF when=checkpoint THEN RETURN;GetFilesList[] --update cached copy-- };GetFilesList: PROC = {s: IO.STREAM = FileIO.Open[fileName, read !FileIO.OpenFailed => {IF why=fileNotFound THEN GOTO Quit}];len: INT = IO.GetLength[s];readChar: SAFE PROC RETURNS [CHAR] = { RETURN [IO.GetChar[s]] };filesList _ Rope.FromProc[len, readChar];IO.Close[s];EXITS Quit => filesList _ NIL;};UnReg: ENTRY PROC = {ENABLE UNWIND => NULL;IF regProc # NIL THEN ViewerEvents.UnRegisterEventProc[regProc, save];regProc _ NIL;filesList _ NIL };Reg: ENTRY PROC = {ENABLE UNWIND => NULL;IF regProc # NIL THEN ViewerEvents.UnRegisterEventProc[regProc, save];regProc _ ViewerEvents.RegisterEventProc[Add, save];GetFilesList[] };Reg[];TRUSTED {CedarSnapshot.Register[r: AfterRollback]};}...   ╝  --MaintainFilesList.mesa-- Last changed by Paxton, August 31, 1982 4:16 pm-- Last changed by McGregor, September 10, 1982 2:21 pmLast Edited by: Maxwell, January 6, 1983 12:19 pmЭ╩С  Ш JЪ╧cЩJЪЭ2Щ2JЪЭ7Щ7JЩ1JЪ╧k	Ш	JШJЪЮШJЪЮЬШJШJШJШJШ	JШJШJШ JЪЬЮШ JЪЮЬЮЬЮЬ:Ш[JШ JЪЬ	ЮЬШJЪЬЮЬШJЪЬЮЬШ!JЪЬЮЬ"Ш5JШ Ъ╧nЬЮЬЮЬЮЬШ,JЪЬЮЬШ	JШ*JШJЪЮЬ	ЮЬ$Ш3JШ ЧJЪЬЮЬЮЬ Ш[JШ ЪЯЬЮЬЮЬЮЬШ0JЪЮЬЮЬЮЬШЪЯЬЮЬЮЬЮЬШ%JЪЬЮЬШJЪЬЮЬШJЪЬ	ЮЬШ$JЪЬЮЬШЪЮЬ(ЮЬЮЬЭШXЪЮЬЮЬ'ЮШ6JЪЬЮЬ(Ш>JЪЮЬЮЬШЧJЪЮЬЮЬШJЪЮЬШЧJЪЮЬЮЬШЧJЪЮЬЮЬЮЬШ!ЪЮЬЮЬЮЬЭ*ШVJЪЬЮЬШЧJЪЮЬЮЬЮЬШJЪЬ ЮЬШ&JШJШJШJШ;JЪЬШJШJШ ЧЪЯЬЮЬЮЬЮЬШ!JЪЮЬЮЬЮЬШJЪЬЮЬ$Ш-JШJШJШ ЧЪЯЬ+Ш8JШJЪЬ(Ш(JШ ЧЪЯЬЮЬШЪЬЮЬЮЬШ+JЪЬЮЬЮЬЮЬШ;ЧJЪЬЮЬЮЬШJЪЬ
ЮЬЮЬЮЬЮЬЮЬЮЬШ@JШ)JЪЮЬ
ШJЪЮЬЮЬШJШJШ ЧЪЯЬЮЬЮЬШJЪЮЬЮЬЮЬШJЪЮЬЮЬЮЬ1ШFJЪЬ
ЮЬШJЪЬЮЬШJШ ЧЪЯЬЮЬЮЬШJЪЮЬЮЬЮЬШJЪЮЬЮЬЮЬ1ШFJШ4JШJШ ЧJШJЪЮЬ,Ш3JШ JШЧ ЕЧ    	╕    