DIRECTORYMenus USING [ChangeNumberOfLines],Process USING [Detach],Rope USING [Concat, Equal, Map, ROPE, Size],TEditDocumentsCache USING [],TEditDocumentPrivate USING [],TEditInput USING [FreeTree],TEditProfile USING [showUnsavedDocumentsList, unsavedDocumentCacheSize],TextNode USING [Ref],ViewerClasses USING [Viewer],ViewerOps USING [CreateViewer, DestroyViewer, EstablishViewerPosition, PaintViewer];TEditDocumentsCacheImpl: CEDAR MONITORIMPORTS Menus, Process, Rope, TEditInput, TEditProfile, --TiogaAccess, --ViewerOpsEXPORTS TEditDocumentsCache, TEditDocumentPrivate= BEGINROPE: TYPE ~ Rope.ROPE;UnsavedDocumentInfo: TYPE = REF UnsavedDocumentInfoRec;UnsavedDocumentInfoRec: TYPE = RECORD [fileName: ROPE, root: TextNode.Ref];list: LIST OF UnsavedDocumentInfo;viewer: ViewerClasses.Viewer;GetList: PUBLIC ENTRY PROC RETURNS [ROPE] = {RETURN [GetListInternal[]]};GetListInternal: INTERNAL PROC RETURNS [rope: ROPE] = {FOR l: LIST OF UnsavedDocumentInfo _ list, l.rest UNTIL l=NIL DOrope _ Rope.Concat[rope, Rope.Concat["\n", l.first.fileName]];ENDLOOP;};RecordUnsavedDocument: PUBLIC ENTRY PROC [fileName: ROPE, root: TextNode.Ref] = {ENABLE UNWIND => NULL;Size: PROC RETURNS [size: INTEGER] = {size _ 0;IF list=NIL THEN RETURN;FOR l: LIST OF UnsavedDocumentInfo _ list, l.rest UNTIL l=NIL DOsize _ size+1;ENDLOOP;};info: UnsavedDocumentInfo;oldRoot: TextNode.Ref;IF (oldRoot _ SearchList[fileName]) # NIL THEN -- discard previous entry, if anyTEditInput.FreeTree[oldRoot];info _ NEW[UnsavedDocumentInfoRec _ [fileName, root]];list _ CONS[info, list];WHILE Size[] > MAX[TEditProfile.unsavedDocumentCacheSize, 0] DODiscardOldest[];ENDLOOP;TRUSTED { Process.Detach[FORK Update[]] };};FindUnsavedDocument: PUBLIC ENTRY PROC [fileName: ROPE] RETURNS [root: TextNode.Ref] = {ENABLE UNWIND => NULL;IF (root _ SearchList[fileName]) # NIL THEN TRUSTED {Process.Detach[FORK Update[]] }};DiscardOldest: PROC = {IF list=NIL THEN RETURN;FOR l: LIST OF UnsavedDocumentInfo _ list, l.rest DOIF l.rest # NIL THEN LOOP; -- spin until get to the oldest entryTEditInput.FreeTree[SearchList[l.first.fileName]];RETURN;ENDLOOP;};SearchList: PROC [fileName: ROPE] RETURNS [root: TextNode.Ref] = { -- if find, then removeprev: LIST OF UnsavedDocumentInfo;IF list=NIL THEN RETURN [NIL];IF Rope.Equal[list.first.fileName, fileName, FALSE] THEN {root _ list.first.root;list _ list.rest;RETURN;};prev _ list;FOR l: LIST OF UnsavedDocumentInfo _ list.rest, l.rest UNTIL l=NIL DOIF Rope.Equal[l.first.fileName, fileName, FALSE] THEN {root _ l.first.root;prev.rest _ l.rest;RETURN;};prev _ l;ENDLOOP;RETURN [NIL];};Update: PUBLIC ENTRY PROC = {ENABLE UNWIND => NULL;rope: ROPE _ GetListInternal[]; -- this is monitored, so get consistent listviewerName: ROPE = "Unsaved Documents List";ViewerOk: PROC RETURNS [BOOL] = {RETURN [viewer # NIL AND NOT viewer.destroyed AND viewer.file=NIL ANDRope.Equal[viewer.name, viewerName]] };format: ATOM _ NIL;comment: BOOL _ FALSE;deltaLevel: INT _ 1;IF NOT TEditProfile.showUnsavedDocumentsList THEN RETURN;IF Rope.Size[rope] = 0 THEN {IF ViewerOk[] THEN ViewerOps.DestroyViewer[viewer];RETURN };IF NOT ViewerOk[] THEN {viewer _ ViewerOps.CreateViewer[flavor: $Text, info: [name: viewerName,iconic: TRUE], paint: FALSE];viewer.class.set[self: viewer, data: NIL, op: $ReadOnly];Menus.ChangeNumberOfLines[viewer.menu, 0]; -- don't let user mess with itViewerOps.EstablishViewerPosition[viewer, viewer.wx, viewer.wy, viewer.ww, viewer.wh];ViewerOps.PaintViewer[viewer, all] }; format _ $note;format _ $lead;deltaLevel _ 0;viewer.newVersion _ TRUE; -- set edited bitViewerOps.PaintViewer[viewer, caption] }; -- repaint the captionEND.     TEditDocumentsCacheImpl.mesaCopyright ╙ 1985, 1988 by Xerox Corporation.  All rights reserved.Edited by Paxton on October 20, 1982 8:39 amLast Edited by: Maxwell, January 6, 1983 11:10 amLast Edited by: Plass, April 10, 1985 10:17:55 am PSTMichael Plass, October 19, 1987 10:37:13 am PDTDoug Wyatt, February 19, 1988 11:12:04 am PSTTiogaAccess USING [Create, Looks, Put, Writer, WriteViewer],writer: TiogaAccess.Writer ~ TiogaAccess.Create[];looks: TiogaAccess.Looks _ ALL[FALSE];Put: PROC [rope: ROPE] ~ {action: PROC [c: CHAR] RETURNS [quit: BOOL _ FALSE] ~ {TiogaAccess.Put[writer, [charSet: 0,char: c,looks: looks,format: format,comment: comment,endOfNode: (c = '\n),deltaLevel: deltaLevel,propList: NIL]];};[] _ Rope.Map[base: rope, action: action];};Put["The following files were edited but not saved.  They may still be restored with edits intact simply by loading them.  If you really want to get rid of the edits, load the file and hit Reset.\n"];Put[rope];Put["\n"];TiogaAccess.WriteViewer[writer, viewer];Э╩┤  Ш ЪЬЩIcodeЪЬBЩBJЪЬ,Щ,JЪЬ1Щ1JЪЬ5Щ5KЩ/JЪЬ-Щ-JЩ ЧЪ╧k	Ш	JЪЬЭЬШ"JЪЬЭЬ
ШJЪЬЭЬЭЬШ,JЪЬЭЬШJЪЬЭЬШJЪЬЭЬШKЪЬЭЬ6ШHJЪЬ	ЭЬШKЪЬЭЬ+Щ<KЪЬЭЬ
ШKЪЬ
ЭЬEШTKШ JШ ЧKЪ╨blЬЭЬЭШ&JЪЭЬKШRJЪЭЬ*Ш1ЪЬЭШJШ JЪЭЬЭЬЭЬШJЪЬЭЬЭЬШ7ЪЬЭЬЭЬЭЬШKJШ ЧJЪЬЭЬЭЬШ"ШJШ ЧЪ╧nЬЭЬЭЬЭЬЭЬЭЬШ-KЪЭЬШJШJШ ЧЪ
ЯЬЭЬЭЬЭЬЭЬШ7ЪЭЬЭЬЭЬ$ЭЬЭЬЭШ@JШ>JЪЭЬШЧJШJШ ЧЪ
ЯЬЭЬЭЬЭЬЭЬШQJЪЭЬЭЬЭЬШЪЯЬЭЬЭЬЭЬШ&JШ	JЪЭЬЭЬЭЬЭЬШЪЭЬЭЬЭЬ$ЭЬЭЬЭШ@JШJЪЭЬШЧJШЧJШJШЪЭЬ$ЭЬЭЬ╧c!ШPJШЧJЪЬЭЬ,Ш6JЪЬЭЬШЪЭЬ
ЭЬ+ЭШ?JЪЬШJЪЭЬШЧJЪЭЬЭЬШ*JШJШ ЧЪЯЬЭЬЭЬЭЬЭЬЭЬШXJЪЭЬЭЬЭЬШJЪ
ЭЬ!ЭЬЭЬЭЬЭЬШTJШJШ ЧЪЯЬЭЬШJЪЭЬЭЬЭЬЭЬШЪЭЬЭЬЭЬ$ЭШ4JЪ	ЭЬ
ЭЬЭЬЭЬа%Ш@JШ2JЪЭЬШJЪЭЬШЧJШJШ ЧЪ	Я
ЬЭЬЭЬЭЬаШZJЪЬЭЬЭЬШ"JЪ
ЭЬЭЬЭЬЭЬЭЬШЪЭЬ+ЭЬЭЬШ:JШJШJЪЭЬШJШЧJШЪЭЬЭЬЭЬ)ЭЬЭЬЭШEЪЭЬ(ЭЬЭЬШ7JШJШJЪЭЬШJШЧJШ	JЪЭЬШЧJЪЭЬЭЬШJШЧJШ ЪЯЬЭЬЭЬЭЬШKЪЭЬЭЬЭЬШKЪЬЭЬа,ШLKЪЬЭЬШ,ЪЯЬЭЬЭЬЭЬШ!ЪЭЬЭЬЭЬЭЬЭЬЭЬЭШEKШ%ЧKШЧKЪЬ2Щ2KЪЬЭЬЭЬЩ&KЪЬЭЬЭЬШKЪЬ	ЭЬЭЬШKЪЬЭЬШЪЯЬЭЬЭЬЩЪЬЭЬЭЬЭЬЭЬЭЬЩ7ЪЬЩJЪЬЩJЪЬЩJЪЬЩJЪЬЩJЪЬЩJЪЬЩJЪЬЩJЪЬ
ЭЩJЪЬЩЧJЪЬЩЧJХStartOfExpansionT[base: ROPE, start: INT _ 0, len: INT _ 2147483647, action: Rope.ActionType]ЪЬ*Щ*JЪЬЩЧKЪЭЬЭЬ'ЭЬЭЬШ9ЪЭЬЭЬШKЪЭЬЭЬ!Ш3KЪЭЬШKШЧЪЭЬЭЬЭЬШШGKЪЬЭЬ
ЭЬШЧKЪЬ%ЭЬШ9KЪЬ+аШIKШVKШ#KШЧKШKЪЬ╚Щ╚KШKЪЬШKЪЬ
Щ
KЪЬ
Щ
KЪЬ(Щ(KЪЬЭЬаШ+KШ'KЪЬаШKШ ЧJЪЭЬШЧJШ Ч ЕЧ    ╕  И  