DIRECTORYProcess USING [Detach],Rope USING [Concat, Equal, ROPE],TEditDocumentsCache,TEditDocumentPrivate,TEditInput USING [FreeTree],TEditProfile USING [unsavedDocumentCacheSize],TextNode USING [pZone, Ref];TEditDocumentsCacheImpl: CEDAR MONITORIMPORTS Process, Rope, TEditDocumentsCache, TEditInput, TEditProfile, TextNodeEXPORTS TEditDocumentsCache, TEditDocumentPrivate =BEGIN OPEN TEditDocumentsCache, TEditDocumentPrivate;list: LIST OF UnsavedDocumentInfo;UnsavedDocumentInfo: TYPE = REF UnsavedDocumentInfoRec;UnsavedDocumentInfoRec: TYPE = RECORD [fileName: ROPE, root: TextNode.Ref];GetList: PUBLIC ENTRY 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 _ TextNode.pZone.NEW[UnsavedDocumentInfoRec _ [fileName, root]];list _ TextNode.pZone.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] };END.   ▓  TEditDocumentsCacheImpl.mesa; Edited by Paxton on October 20, 1982 8:39 amLast Edited by: Maxwell, January 6, 1983 11:10 amLast Edited by: Plass, March 16, 1983 11:59 amЭ╩Т  Ш JЪ╧cJЩJJЪ╧k1Щ1JЩ.ЪЮ	Ш	JЪЬЮЬ
ШJЪЬЮЬЮЬШ!JЪЬШJШJЪЬЮЬШJЪЬЮЬШ.JЪЬ	ЮЬШJШ ЧJЪЬЮШ&JШ JЪЮЬGШNJЪЮЬ*ЮЬШ3JШ JЪЮЬЮЬ+Ш5JШ JЪЬЮЬЮЬШ"JШ JЪЬЮЬЮЬШ7JЪЬЮЬЮЬЮЬШKJШ Ъ╧nЬЮЬЮЬЮЬЮЬЮЬШ3ЪЮЬЮЬЮЬ$ЮЬЮЬЮШ@JЪЬ>Ш>JЪЮЬШ
ЧЧJШ ЪЯЬЮЬЮЬШQJЪЮЬЮЬЮЬШЪЯЬЮЬЮЬЮЬШ&JШ	JЪЮЬЮЬЮЬЮЬШЪЮЬЮЬЮЬ$ЮЬЮЬЮШ@JЪЬШJЪЮЬШ
ЧЧJЪЬШJЪЬШЪЮЬ$ЮЬЮЬЭ!ШPJШЧJЪЬЮЬ,ШEJЪЬЮЬШ'JЪЮЬ
ЮЬ+ЮЬЮЬШYJЪЮЬЮЬШ*ЧJШ ЪЯЬЮЬЮЬШ7JЪЮЬШ JЪЮЬЮЬЮЬШJЪ
ЮЬ!ЮЬЮЬЮЬЮЬШVЧJШ ЪЯЬЮЬШJЪЮЬЮЬЮЬЮЬШЪЮЬЮЬЮЬ$ЮШ4JЪ	ЮЬ
ЮЬЮЬЮЬЭ%Ш@JШ2JЪЮЬШJЪЮЬШ
ЧЧJШ Ъ	Я
ЬЮЬЮЬЮЬЭШZJЪЬЮЬЮЬШ"JЪ
ЮЬЮЬЮЬЮЬЮЬШЪЮЬ+ЮЬЮЬШ:JШJШJЪЮЬШ	ЧJШЪЮЬЮЬЮЬ)ЮЬЮЬЮШEЪЮЬ(ЮЬЮЬШ7JШJЪЬШJЪЮЬШ	ЧJШ	JЪЮЬШЧЪЮЬЮЬШJШ ЧЧJШ JЪЮЬШJШ Ч ЕЧ    	t  ╕  