
DIRECTORY PFS, PFSNames, Rope, Process, ViewerEvents, ViewerClasses, MessageWindow;

MaintainLatestImpl: CEDAR MONITOR
IMPORTS PFS, PFSNames, Rope, Process, ViewerEvents, MessageWindow
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;
PATH: TYPE ~ PFSNames.PATH;
Component: TYPE ~ PFSNames.Component;
copier: PROCESS м NIL;
queueHead: LIST OF ROPE м LIST[NIL];
last: LIST OF ROPE м queueHead;
Enqueue: ENTRY PROC [filename: ROPE] ~ {
last м last.rest м LIST[filename];
IF copier = NIL THEN Process.Detach[copier м FORK Copier];
};

Dequeue: ENTRY PROC RETURNS [filename: ROPE м NIL] ~ {
first: LIST OF ROPE м queueHead.rest;
IF first = NIL THEN {
copier м NIL;
RETURN [NIL];
};
queueHead.rest м NIL;
queueHead м first;
filename м first.first;
first.first м NIL;
IF filename = NIL THEN filename м "";
};

Died: ENTRY PROC ~ {
copier м NIL;
IF queueHead.rest # NIL THEN Process.Detach[copier м FORK Copier];
};
latest: PFS.PATH ~ PFS.PathFromRope["/Latest/foo"];
maxFileSize: INT м 111111;

ShortName: PROC [name: PATH] RETURNS [shortName: Component] ~ {
shortName м PFSNames.ShortName[name];
shortName.version м [none];
};

Copier: PROC ~ {
ENABLE UNCAUGHT => { Died[]; REJECT };
FOR filename: ROPE м Dequeue[], Dequeue[] UNTIL filename = NIL DO
MessageWindow.Append["Save Event for ", TRUE];
MessageWindow.Append[filename, FALSE];
MessageWindow.Append[" ... ", FALSE];
BEGIN ENABLE PFS.Error => {MessageWindow.Append[error.explanation, FALSE]; CONTINUE};
path: PFS.PATH ~ PFS.PathFromRope[filename];
dest: PFS.PATH м PFSNames.ReplaceShortName[latest, ShortName[path]];
size: INT ~ PFS.FileInfo[path].bytes;
IF size <= maxFileSize THEN {
MessageWindow.Append[Rope.Cat[PFS.RopeFromPath[dest], " := ", PFS.RopeFromPath[path]], TRUE];
PFS.Copy[from: path, to: dest, confirmProc: NIL];
MessageWindow.Clear[];
};
END;
ENDLOOP;
};
disabled: BOOL м FALSE;
Disable: PROC RETURNS [INTм1] ~ {disabled м TRUE};

AddEvent: ViewerEvents.EventProc = {
filename: ROPE м viewer.file;
IF NOT (disabled OR filename.Size=0 OR Rope.Match[".*", filename] OR Rope.Match["*~", filename]) THEN {
Enqueue[filename];
};
};

regProc: REF м ViewerEvents.RegisterEventProc[proc: AddEvent, filter: $Text, event: save, before: FALSE];


END.

PcrCmd eval [ MaintainLatestImpl.Disable ]
   ╠  
MaintainLatestImpl.mesa
Copyright ╙ 1991, 1992 by Xerox Corporation.  All rights reserved.
Michael Plass, May 3, 1991 0:34 am PDT
Monitored State 
Entry Procs
Background Process
Event Registration
Э╩  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ
╧eЬ7ЩBKЩ&ЧKШ Ъ╧k	ЬЮЬFШSKШ ЧЪ╧nЬЮЬЮШ!KЪЮЬЮЬ6ШAЪЬЮШKШ ЧKЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬШKЪЬЮЬШ%ЧheadЩKЪЬЮЬЮЬШKЪЬЮЬЮЬЮЬЮЬЮЬШ$KЪЬЮЬЮЬЮЬШЧЩЪЯЬЮЬЮЬЮЬШ(KЪЬЮЬШ"KЪЮЬ
ЮЬЮЬЮЬ	Ш:KЪЬШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШ6KЪЬЮЬЮЬЮЬШ%ЪЮЬ	ЮЬЮЬШKЪЬ	ЮЬШKЪЮЬЮЬШKЪЬШЧKЪЬЮЬШKШKШKЪЬЮЬШKЪЮЬЮЬЮЬШ%KЪЬШKШ ЧЪЯЬЮЬЮЬШKЪЬ	ЮЬШKЪЮЬЮЬЮЬЮЬ	ШBKЪЬШЧЧЩKЪЬЮЬЮЬЮЬШ3ЪЬЮЬ
ШKШ ЧЪЯ	ЬЮЬЮЬЮЬШ?KШ%KШKЪЬШKШ ЧЪЯЬЮЬШKЪЮЬЮЬЮЬШ&Ъ	ЮЬЮЬЮЬЮЬЮШAKЪЬ(ЮЬШ.KЪЬЮЬШ&KЪЬЮЬШ%Ъ
ЮЬЮЬЮЬ3ЮЬЮ	ЬШUKЪЬЮЬЮЬЮЬШ,KЪЬЮЬЮЬ6ШDKЪЬЮЬЮЬШ%ЪЮЬЮЬШKЪЬЮЬЮЬЮЬШ]KЪЮЬ)ЮЬШ1KЪЬШKЪЬШЧKЪЮЬШЧKЪЮЬШЧKЪЬШЧЧЩKЪЬ
ЮЬЮЬШЪ
ЯЬЮЬЮЬЮЬЮЬШ2KШ ЧЪЯЬШ$KЪЬ
ЮЬШЪЮЬЮЬЮЬЮЬЮЬЮЬШgKЪЬШKЪЬШЧKЪЬШKШ ЧKЪЬ	ЮЬVЮЬШiKШ ЧKШ KЪЮЬШШ KЪЬ*Ш*ЧЧ ЕЧ    ╛  Ш  