DIRECTORYCD, CDCells, CDCleanUp,CDDirectory,CDExtras,CDMenus,CDProperties,CDSequencer,TerminalIO;CDCleanUpImpl: CEDAR PROGRAM IMPORTS CDDirectory, CDCells, CDExtras, CDMenus, CDProperties, TerminalIOEXPORTS CDCleanUpSHARES CD, CDDirectory =BEGINEnumeratePossibleRoots: PROC [design: CD.Design, proc: CDDirectory.EnumerateObjectsProc, x: REF_NIL, inclDir: BOOL_TRUE] =BEGINEachEntry: CDDirectory.EachEntryAction = {proc[ob, x]};FOR pushed: LIST OF CD.PushRec _ design.actual, pushed.rest WHILE pushed#NIL DOFOR list: LIST OF CD.Instance _ pushed.first.specific.contents, list.rest WHILE list#NIL DOproc[list.first.ob, x]; ENDLOOP;ENDLOOP;IF inclDir THEN [] _ CDDirectory.Enumerate[design, EachEntry];END;ReplaceFunnys: PUBLIC PROC [design: CD.Design, key: REF_NIL] =BEGINrealKey: REF ~ IF key=NIL THEN NEW[INT] ELSE key;DirtyExpand: PROC [ob: CD.Object] = {WHILE ob.class.internalWrite=NIL DOnew: CD.Object _ CDDirectory.ExpandHard[ob, NIL, NIL];own: REF _ CDProperties.GetPropFromObject[ob, $OwnerDesign];IF new=NIL THEN EXIT; CDProperties.AppendProps[looser: new.properties, winner: ob.properties, putOnto: new];ob^ _ new^; --real dirty--CDProperties.PutPropOnObject[ob, $OwnerDesign, own];ENDLOOP;};DoIt: CDDirectory.EnumerateObjectsProc = {IF me.class.inDirectory AND CDProperties.GetPropFromObject[me, realKey]#x THEN { CDProperties.PutProp[me, realKey, x];DirtyExpand[me];CDDirectory.EnumerateChildObjects[me, DoIt, x];};};EnumeratePossibleRoots[design, DoIt, NEW[INT]];IF key=NIL THEN CDExtras.RemoveProperties[design, realKey];END;PreTag: PROC [design: CD.Design, tag: REF, key: REF] =BEGINDoIt: CDDirectory.EnumerateObjectsProc = {IF me.class.inDirectory AND CDProperties.GetPropFromObject[me, key]#x THEN { CDProperties.PutProp[me, key, x];IF CDProperties.GetPropFromObject[me, $OwnerDesign]=NIL THEN {[] _ CDDirectory.Include[design, me];}ELSE IF CDDirectory.Fetch[design, CDDirectory.Name[me]].object#me THEN {new: CD.Object _ CDDirectory.Another[me, NIL, design];IF new=NIL THEN new _ CDDirectory.ExpandHard[me, NIL, design];CDProperties.PutProp[me, tag, new];IF new#NIL THEN me _ new ELSE TerminalIO.WriteF["**** %g is fishy\n", [rope[CDDirectory.Name[me]]]];};CDDirectory.EnumerateChildObjects[me, DoIt, x];};};EnumeratePossibleRoots[design, DoIt, NEW[INT]];END;ReplaceTaggedOneLevel: PROC [design: CD.Design, ob: CD.Object, tag: REF] = {ForCells:  PROC [cell: CD.Object, tag: REF] = INLINE {FOR list: LIST OF CD.Instance _ NARROW[cell.specificRef, CD.CellPtr].contents, list.rest WHILE list#NIL DOWITH CDProperties.GetPropFromObject[list.first.ob, tag] SELECT FROMob: CD.Object => list.first.ob _ ob;ENDCASE => NULL;ENDLOOP;}; --ForCellsForNonCells: PROC [design: CD.Design, ob: CD.Object, tag: REF] = {replaces: CDDirectory.ReplaceList _ NIL;FindReplaces: CDDirectory.EnumerateObjectsProc = {WITH CDProperties.GetPropFromObject[me, tag] SELECT FROMnew: CD.Object => {replaces _ CONS[NEW[CDDirectory.ReplaceRec_[old: me, oldSize: me.size, new: new, newSize: new.size, off: [0, 0]]], replaces];};ENDCASE => NULL;}; --FindReplacesCDDirectory.EnumerateChildObjects[ob, FindReplaces, NIL];IF replaces#NIL THEN [] _ CDDirectory.ObToDirectoryProcs[ob].replaceDirectChilds[ob, design, replaces];}; --ForNonCellsIF CDCells.IsCell[ob] THEN ForCells[ob, tag] ELSE ForNonCells[design, ob, tag];}; --ReplaceTaggedOneLevelReplaceTagged: PUBLIC PROC [design: CD.Design, replaceBy: REF, key: REF_NIL] =BEGINmyVal: REF ~ NEW[INT];realKey: REF ~ IF key=NIL THEN NEW[INT] ELSE key;DoChilds: CDDirectory.EnumerateObjectsProc = {IF me.class.inDirectory AND CDProperties.GetPropFromObject[me, realKey]#x THEN { CDProperties.PutProp[me, realKey, x];ReplaceTaggedOneLevel[design, me, replaceBy];CDDirectory.EnumerateChildObjects[me, DoChilds, x];};}; --DoChildsEachEntry: CDDirectory.EachEntryAction = {WITH CDProperties.GetPropFromObject[ob, replaceBy] SELECT FROMnew: CD.Object => {removed: BOOL _ CDDirectory.Remove[design, name, ob];IF ~removed THEN DoChilds[ob, myVal];[] _ CDDirectory.Include[design, new];ob _ new;};ENDCASE => NULL;DoChilds[ob, myVal]; }; --EachEntryFOR pushed: LIST OF CD.PushRec _ design.actual, pushed.rest WHILE pushed#NIL DOFOR list: LIST OF CD.Instance _ pushed.first.specific.contents, list.rest WHILE list#NIL DOWITH CDProperties.GetPropFromObject[list.first.ob, replaceBy] SELECT FROMob: CD.Object => {list.first.ob _ ob;DoChilds[ob, myVal];}ENDCASE => NULL;ENDLOOP;ENDLOOP;[] _ CDDirectory.Enumerate[design, EachEntry];IF key=NIL THEN CDExtras.RemoveProperties[design, realKey];END; --ReplaceTaggedCleanUp: PUBLIC PROC [design: CD.Design] =BEGINmyKey: REF ~ NEW[INT];replaceBy: REF ~ NEW[INT]; design.actual.first.deletedList _ NIL; --so deleted unclean objects can not be undeletedReplaceFunnys[design, myKey];PreTag[design, replaceBy, myKey];ReplaceTagged[design, replaceBy, myKey];CDExtras.RemoveProperties[design, myKey];CDExtras.RemoveProperties[design, replaceBy];END;CleanupCommand: PROC [comm: CDSequencer.Command] =BEGINn: INT;TerminalIO.WriteRope["cleanup directory\n"];n _ comm.design.cellDirectory.size;CleanUp[comm.design];IF n = comm.design.cellDirectory.size THEN TerminalIO.WriteF["design was ok; has %g entries in directory\n", [integer[n]]]ELSETerminalIO.WriteF["design was not ok; previously had %g; now has %g entries in directory\n", [integer[n]], [integer[comm.design.cellDirectory.size]]];END;CDMenus.ImplementEntryCommand[$SpecialMenu, "check directory", CleanupCommand];END.   f  CDCleanUpImpl.mesa Copyright (C) 1986 by Xerox Corporation.  All rights reserved.by Ch. Jacobi, January 29, 1986 5:31:20 pm PSTlast edited Ch. Jacobi, March 11, 1986 1:18:07 pm PST--real dirty, but it never happens because internalWrite is never NIL, except... --uses globals: realKey--figures out whether objects should be replaced because they are in different designs:--such objects will be taken or copied, included in the directory and put onto the tag property--uses globals: design, tag, key--ForNonCells--ReplaceTaggedOneLevel--globals: design, realKey--x: visit key --ReplaceTagged Э╩у  Ш ЪЬЩIcodeЪЬ>Щ>KЪЬ.Щ.KЪЬ5Щ5ЧJШ Ъ╧k	Ш	KЪЭЬШKЪЬ	Ш	KЪЬ
Ш
KЪЬШKШ	KЪЬШKШKЪЬШKЪЬШЧKШ Ъ╨blЬЭЬЭЬШKЪЭЬBШIKЪЭЬ
ШKЪЭЬЭЬШЧKЪЭШKШ Ъ╧nЬЭЬ
ЭЬ4ЭЬЭЬЭЬЭЬШzKЪЭШJЪ╧b	Ь.Ш7ЪЭЬ	ЭЬЭЬЭЬ&ЭЬЭЬЭШOЪЭЬЭЬЭЬЭЬ6ЭЬЭЬЭШ[JЪЬШJЪЭЬШЧJЪЭЬШЧJЪЭЬ	ЭЬ/Ш>KЪЭЬШЧJШ ЪЯЬЭЬЭЬ
ЭЬЭЬЭЬШ>JЪЭШJЪЬ	ЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ1JШ ЪЯЬЭЬЭЬШ%ЪЭЬЭЬЭШ#JЪЬQЩQJЪЬЭЬ%ЭЬЭЬШ6JЪЬЭЬ4Ш<JЪЭЬЭЬЭЬЭЬШJЪЬVШVJЪЬ╧cШJЪЬ4Ш4JЪЭЬШЧJШЧJШ ЪаЬ&Ш*JЪЬЩЪЭЬЭЬ/ЭЬШQJЪЬ%Ш%JЪЬШJЪЬ/Ш/JЪЬШЧJШЧJШ JЪЬ%ЭЬЭЬШ/JЪЭЬЭЬЭЬ,Ш;JЪЭЬШKЩ ЧЪ
ЯЬЭЬ
ЭЬЭЬЭЬШ6KЪЬWЩWKЪЬ_Щ_KЪЭШJШ ЪаЬ&Ш*JЪЬ Щ ЪЭЬЭЬ+ЭЬШMJЪЬ!Ш!ЪЭЬ2ЭЬЭЬШ>KЪЬ%Ш%KШЧЪЭЬЭЬ;ЭЬШHKЪЬЭЬ"ЭЬ
Ш6KЪЭЬЭЬЭЬ"ЭЬ
Ш>JЪЬ#Ш#KЪЭЬЭЬЭЬ
ШKЪЭЬGШKKШЧJЪЬ/Ш/JЪЬШЧJШЧJШ JЪЬ%ЭЬЭЬШ/KЪЭЬШЧKШ Ъ
ЯЬЭЬ
ЭЬЭЬЭЬШLKШ Ъ
ЯЬЭЬЭЬЭЬЭЬШ6ЪЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭШjЪЭЬ4ЭЬЭШCKЪЬЭЬШ$KЪЭЬЭЬШЧKЪЭЬШЧKЪЬб
ШKШ ЧЪ
ЯЬЭЬ
ЭЬЭЬЭЬШBKЪЬ$ЭЬШ(KШ ЪаЬ&Ш2ЪЭЬ)ЭЬЭШ8ЪЬЭЬШKЪЬЭЬЭЬjШ}KШЧKЪЭЬЭЬШЧKЪЬбШЧJЩ KЪЬЩKЪЬ4ЭЬШ9ЪЭЬ
ЭЬЭЬШKЪЬRШRЧKЪЬбШЧKШ KЪЬЩKЪЭЬЭЬЭЬШOKЪЬбШЧKШ ЪЯЬЭЬ
ЭЬЭЬЭЬЭЬШNKЪЭШKЪЬЭЬЭЬЭЬШJЪЬ	ЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ1KШ ЪаЬ&Ш.KЪЬЩKЪЬЩЪЭЬЭЬ/ЭЬШQKЪЬ%Ш%KЪЬ-Ш-KЪЬ3Ш3KЪЬШЧKЪЬб
ШЧKШ Ъа	Ь!Ш*ЪЭЬ/ЭЬЭШ>ЪЬЭЬШKЪЬ	ЭЬ(Ш5KЪЭЬ
ЭЬШ%KЪЬ&Ш&KШ	KШЧKЪЭЬЭЬШЧKЪЬШKЪЬбШЧKШ JЪЬЩЪЭЬ	ЭЬЭЬЭЬ&ЭЬЭЬЭШOЪЭЬЭЬЭЬЭЬ6ЭЬЭЬЭШ[ЪЭЬ:ЭЬЭШIЪЬЭЬШKЪЬШKЪЬШKШЧKЪЭЬЭЬШЧKЪЭЬШЧKЪЭЬШЧKЪЬ.Ш.JЪЭЬЭЬЭЬ,Ш;KЪЭЬбШKЩ ЧЪЯЬЭЬ
ЭЬ
Ш*JЪЭШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШKЪЬ'б1ШXJЪЬШJЪЬ!Ш!JЪЬ(Ш(JЪЬ)Ш)JЪЬ-Ш-JЪЭЬШJШ ЧЪ╨bnЬЭЬШ2KЪЭШKЪЬЭЬШKЪЬ,Ш,KЪЬ#Ш#KЪЬШЪЭЬ$ЭЬШ+KЪЬOШOЧЪЭШKЪЬЦШЦЧKЪЭЬШЧKШ KЪЬOШOJЪЭЬШJШ JШ JШ Ч ЕЧ    р   )  