DIRECTORYCD,CDBottomUp,CDDirectory,CDEvents,CDProperties;CDBottomUpImpl: CEDAR MONITORIMPORTS CDDirectory, CDEvents, CDPropertiesEXPORTS CDBottomUp =BEGIN OPEN CDBottomUp; registration: LIST OF REF ANY _ NIL;PrivateRec: TYPE = RECORD [lastInvocation: REF_NIL, lastVal: REF_NIL, originalInvocation: REF_NIL];MakeHandle: PUBLIC PROC [class: Class, design: CD.Design, data: REF_NIL, invocation: REF_NIL] RETURNS [handle: Handle] =BEGINhandle _ NEW[HandleRec_[class: class,design: design,data: data,invocation: IF invocation#NIL THEN invocation ELSE NEW[INT]]];END;Register: PUBLIC PROC[do: DoProc, reUse: ReUseProc_NIL, key: REF_NIL, reRegistrationKey: REF_NIL] RETURNS [class: Class] =BEGINRegisterProtected: ENTRY PROC [] = {ENABLE UNWIND => NULL;registration _ CONS[key, registration];};IF key=NIL THEN key _ NEW[INT];class _ NEW[ClassRec_[do, reUse, key]];[] _ CDProperties.RegisterProperty[key, reRegistrationKey]; RegisterProtected[];END;GetPrivate: ENTRY PROC [key: REF, ob: CD.Object] RETURNS [h: REF PrivateRec] =BEGIN ENABLE UNWIND => NULL;WITH CDProperties.GetPropFromObject[ob, key] SELECT FROMp: REF PrivateRec => h _ p;ENDCASE => CDProperties.PutPropOnObject[ob, key, (h_NEW[PrivateRec])];END;ObChanged: CDEvents.EventProc =BEGIN ENABLE UNWIND => NULL;WITH x SELECT FROMob: CD.Object => FOR list: LIST OF REF ANY _ registration, list.rest WHILE list#NIL DOCDProperties.PutPropOnObject[ob, list.first, NIL];ENDLOOP;ENDCASE => NULL;END;DoRecurse: PUBLIC PROC [handle: Handle, ob: CD.Object] RETURNS [val: REF_NIL, new: BOOL_FALSE] =BEGINEachChild: CDDirectory.EnumerateObjectsProc = {IF me.class.inDirectory THENIF DoRecurse[handle, me].new THEN new _ TRUE;};p: REF PrivateRec;IF ob=NIL THEN ob _ NEW[CD.ObjectRep_handle.design.actual.first.dummyCell.ob^]; --copy, so will not find property again ?p _ GetPrivate[handle.class.key, ob];IF handle.invocation=p.lastInvocation THEN RETURN[p.lastVal, handle.invocation=p.originalInvocation];CDDirectory.EnumerateChildObjects[me: ob, p: EachChild, x: handle];new _ new OR p.lastInvocation=NIL;IF ~new AND handle.class.reUse#NIL THEN { new _ handle.class.reUse[handle, ob, p.lastVal].shouldDoAain};IF new THEN {p.lastVal _ handle.class.do[handle, ob];p.originalInvocation _ handle.invocation;};p.lastInvocation _ handle.invocation;RETURN[p.lastVal, new];END;CDEvents.RegisterEventProc[$AfterCellReplacement, ObChanged];END.  :  CDBottomUpImpl.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Jacobi, December 13, 1985 5:49:59 pm PSTJacobi, December 13, 1985 5:50:01 pm PST--these properties must be removed when objects change--passed through invocations are never NIL: a NIL invocation means value not yet computedЭ╩2  Ш JШ codeЩKЪЬ
╧mЬ1Щ<KЩ(KЩ(KШ ЧЪ╧k	Ш	KЪЮЬШKШKШKЪЬ	Ш	KЪЬШЧKШ Ъ╨blЬЮЬЮШKЪЮЬ$Ш+KЪЮЬШЧKЪЮ
ЬШKШ ЪЬЮЬЮЬЮЬЮЬЮЬШ$KЪЬ6Щ6ЧKШ ЪЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШcKЪЬYЩYЧKШ Ъ╧n
ЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШxJЪЮШЪЬ	ЮЬШJЪЬШJЪЬШJЪЬШJЪЬЮЬЮЬЮЬЮЬЮЬЮЬШ;JШЧJЪЮЬШKШ ЧЪаЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШzKЪЮШЪаЬЮЬЮЬШ$KЪЮЬЮЬЮЬШKЪЬЮЬШ'KШЧKЪ
ЮЬЮЬЮЬЮЬЮЬШKЪЬЮЬШ'KЪЬ<Ш<KЪЬШKЪЮЬШЧKШ Ъа
ЬЮЬЮЬЮЬЮЬ	ЮЬЮЬШNKЪЮЬЮЬЮЬЮЬШЪЮЬ)ЮЬЮШ8KЪЬЮЬШKЪЮЬ-ЮЬШFЧKЪЮЬШЧKШ Ъ╧b	ЬШKЪЮЬЮЬЮЬЮЬШЪЮЬЮЬЮШЪЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮШVJЪЬ-ЮЬШ2JЪЮЬШЧJЪЮЬЮЬШЧKЪЮЬШЧKШ KШ Ъа	ЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ`KЪЮШKШ Ъб	Ь&Ш/ЪЮЬЮШKЪЮЬЮЬЮЬШ-ЧKЪЬШЧKШ KЪЬЮЬШЪЮЬЮЬЮЬШKЪЬЮЬЮЬ5╧c*ШjЧKЪЬ%Ш%ЪЮЬ$ЮЬШ+KЪЮЬ4Ш:ЧKЪЬCШCKЪЬ
ЮЬЮШ"ЪЮЬЮЬЮЬЮЬШ*KЪЬ<Ш<KШЧЪЮЬЮЬШKЪЬ(Ш(KЪЬ)Ш)KШЧKЪЬ%Ш%KЪЮЬШKЪЮЬШЧKШ KЪЬ=Ш=JЪЮЬШЧ ЕЧ    	Ю  
  