DIRECTORYTioga,TiogaPrivate;EditNotifyImpl: CEDAR MONITOR LOCKS data USING data: EditNotifyDataEXPORTS TiogaPrivate= BEGIN OPEN Tioga, TiogaPrivate;EditNotifyData: TYPE ~ REF EditNotifyDataRep;EditNotifyDataRep: PUBLIC TYPE ~ MONITORED RECORD [beforeProcs: NotifyArray,afterProcs: NotifyArray,unlocked: CONDITION,lockCount: INTEGER _ 0];NotifyList: TYPE = REF NotifyListBody;NotifyListBody: TYPE = RECORD [next: NotifyList,action: EditNotifyProc,changeSet: ChangeSet];NotifyArray: TYPE = ARRAY Priority OF NotifyList;Lock: ENTRY PROC [data: EditNotifyData] = {data.lockCount _ data.lockCount+1;};Unlock: ENTRY PROC [data: EditNotifyData] = {data.lockCount _ data.lockCount-1;IF data.lockCount <= 0 THEN { data.lockCount _ 0; BROADCAST data.unlocked };};InternalRemove: PROC [data: EditNotifyData, proc: EditNotifyProc, time: When] = {FOR p: Priority IN Priority DOprev: NotifyList _ NIL;list: NotifyList _ IF time=before THEN data.beforeProcs[p]ELSE data.afterProcs[p];IF list=NIL THEN LOOP;UNTIL list=NIL DOIF list.action = proc THEN EXIT;prev _ list; list _ list.next;REPEAT FINISHED => LOOP; -- proc not found on this listENDLOOP;IF prev#NIL THEN prev.next _ list.nextELSE IF time=before THEN data.beforeProcs[p] _ list.nextELSE data.afterProcs[p] _ list.next;ENDLOOP;};EntryAdd: ENTRY PROC [data: EditNotifyData, proc: EditNotifyProc, time: When, priority: Priority, changeSet: ChangeSet] = {ENABLE UNWIND => NULL;WHILE data.lockCount > 0 DO WAIT data.unlocked; ENDLOOP;InternalRemove[data, proc, time];IF time=before THENdata.beforeProcs[priority] _NEW[NotifyListBody _ [data.beforeProcs[priority], proc, changeSet]]ELSE data.afterProcs[priority] _NEW[NotifyListBody _ [data.afterProcs[priority], proc, changeSet]];};EntryRemove: ENTRY PROC [data: EditNotifyData, proc: EditNotifyProc, time: When] = {ENABLE UNWIND => NULL;WHILE data.lockCount > 0 DO WAIT data.unlocked; ENDLOOP;InternalRemove[data, proc, time];};AddEditNotifyProc: PUBLIC PROC [world: World, proc: EditNotifyProc, time: When _ after, priority: Priority _ normal, changeSet: ChangeSet _ defaultChangeSet] ~ {data: EditNotifyData ~ world.editNotify;EntryAdd[data, proc, time, priority, changeSet];};RemoveEditNotifyProc: PUBLIC PROC [world: World, proc: EditNotifyProc, time: When _ after] ~ {data: EditNotifyData ~ world.editNotify;EntryRemove[data, proc, time];};GetList: PROC [data: EditNotifyData, p: Priority, time: When] RETURNS [NotifyList] = {RETURN [IF time=before THEN data.beforeProcs[p] ELSE data.afterProcs[p]]};EditNotify: PUBLIC PROC [world: World, change: REF READONLY Change, time: When] = {data: EditNotifyData ~ IF world=NIL THEN NIL ELSE world.editNotify;IF data#NIL AND change#NIL THEN {ENABLE UNWIND => Unlock[data];kind: ChangeType ~ change.kind;Lock[data];FOR p: Priority IN Priority DOFOR lst: NotifyList _ GetList[data, p, time], lst.next UNTIL lst=NIL DOIF lst.changeSet[kind] THEN lst.action[change];ENDLOOP;ENDLOOP;Unlock[data];};};CreateEvent: PUBLIC PROC RETURNS [Event] = {RETURN [NEW[EventBody _ [subevents: NIL]]];};NoteEvent: PUBLIC PROC [world: World, undoProc: UndoProc, undoRef: REF Change] = {event: Event ~ IF world=NIL THEN NIL ELSE world.currentEvent;IF event = NIL THEN RETURN;event.subevents _ NEW[SubEventBody _[next: event.subevents, undoProc: undoProc, undoRef: undoRef]];};UndoEvent: PUBLIC PROC [world: World, undoEvent: Event] = {sub: SubEvent;IF undoEvent=NIL THEN RETURN;sub _ undoEvent.subevents; undoEvent.subevents _ NIL;UNTIL sub=NIL DO sub.undoProc[world, sub.undoRef]; sub _ sub.next; ENDLOOP;};ResetEvent: PUBLIC PROC [event: Event] = {IF event # NIL THEN event.subevents _ NIL;};EmptyEvent: PUBLIC PROC [event: Event] RETURNS [BOOL] = {RETURN [event=NIL OR event.subevents=NIL];};END.   ╥  EditNotifyImpl.mesaCopyright c 1985, 1986 by Xerox Corporation.  All rights reserved.written by Bill Paxton, March 1981last edit by Bill Paxton,  October 18, 1982 10:42 amMichael Plass, March 29, 1985 2:31:39 pm PSTDoug Wyatt, September 23, 1986 5:51:39 pm PDTEditNotifyremove proc from list of notification procedurescall notification proceduresUndoEventcalls undoProc[undoRef] for each subevent in reverse order that subevents originally happenedЭ╩╖  Ш codeЪЬЩKЪЬ
╧mЬ7ЩBKЪЬ"Щ"KЪЬ4Щ4KЩ,KЩ-ЧKШ Ъ╧k	Ш	KЪЬШKЪЬШЧKШ KЪ
╤blnЬЮЬЮЬЮЬЮЬШCKЪЮЬШKЪЬЮЬЮЬШ!headЩ
KЪЬЮЬЮЬШ-Ъ	ЬЮЬЮЬЮ	ЬЮЬШ3KШKШKЪЬ
Ю	ЬШKЪЬЮЬШKШЧKШ KЪЬЮЬЮЬШ&ЪЬЮЬЮЬШKШKШKШKШЧKЪЬЮЬЮЬ
ЮЬШ1KШ Ъ╧nЬЮЬЮЬШ+KЪЬ"Ш"KЪЬШKШ ЧЪаЬЮЬЮЬШ-KЪЬ"Ш"KЪЮЬЮЬЮ	ЬШLKЪЬШKШ ЧЪаЬЮЬ=ШQЪЮЬЮЬ
ЮШKЪЬЮЬШЪЬЮЬЮЬШ:KЪЮЬШЧKЪЮЬЮЬЮЬЮЬШЪЮЬЮЬЮШKЪЮЬЮЬЮЬШ KШKЪЮЬЮЬЮЬ╧cШ7KЪЮЬШЧKЪЮЬЮЬЮЬШ&KЪЮЬЮЬЮЬ Ш8KЪЮЬ Ш$KЪЮЬШЧЪЬШKШ ЧЧЪаЬЮЬЮЬgШ{KЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШ8KШ!ЪЮЬЮШШKЪЮЬ@ШCЧЧЪЮЬШ KЪЮЬ@ШCЧЪЬШKШ ЧЧЪаЬЮЬЮЬ=ШTKЪЬ0Щ0KЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШ8KШ!KШKШ ЧЪаЬЮЬЮЬДШвKЪЬ(Ш(KШ0KШKШ ЧЪаЬЮЬЮЬ=Ш^KЪЬ(Ш(KЪЬШKШKШ ЧЪаЬЮЬ1ЮЬШVKЪЮЬЮЬЮЬЮЬШHKЪЬШKШ ЧЪ
а
ЬЮЬЮЬЮЬЮЬШSKЪЬЩKЪЬЮЬЮЬЮЬЮЬЮЬШCЪ
ЮЬЮЬЮЬЮЬЮЬШ!KЪЮЬЮЬШKШKШЪЮЬЮЬ
ЮШЪЮЬ4ЮЬЮЬЮШGKЪЮЬЮЬШ/KЪЮЬШЧKЪЮЬШЧKЪЬШKШЧKЪЬШKШ ЧЧЩ	ЪаЬЮЬЮЬЮЬШ,KЪЮЬЮЬЮЬШ+KЪЬШЧKШ Ъа	ЬЮЬЮЬ-ЮЬШRKЪЬЮЬЮЬЮЬЮЬЮЬШ=KЪЮЬ	ЮЬЮЬЮЬШЪЬЮЬШ$KШ?ЧШKШ ЧЧЪа	ЬЮЬЮЬ%Ш;KЪЬ*Щ*KЪЬ3Щ3KШKЪЮЬЮЬЮЬЮЬШKЪЬ1ЮЬШ5KЪЮЬЮЬЮЬ3ЮЬШKKЪЬШKШ ЧЪа
ЬЮЬЮЬШ*KЪЮЬ	ЮЬЮЬЮЬШ*KЪЬШЧKШ Ъ
а
ЬЮЬЮЬЮЬЮЬШ9KЪЮЬЮЬЮЬЮЬШ*KЪЬШKШ ЧЧKШ KЪЮЬШЧ ЕЧ      Л  