DIRECTORYCD, CDCells, CDCleanUp,CDDirectory,CDExtras,CDMenus,CDOps,CDProperties,CDSequencer,TerminalIO;CDCleanUpImpl: CEDAR PROGRAM IMPORTS CDDirectory, CDCells, CDExtras, CDMenus, CDOps, CDProperties, TerminalIOEXPORTS CDCleanUpSHARES CD, CDDirectory =BEGINReplaceFunnys: PUBLIC PROC [design: CD.Design, key: REF_NIL] =BEGINmyVal: REF ~ NEW[INT];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];};};EachEntry: CDDirectory.EachEntryAction = {DoIt[ob, myVal]};IF design^.actual.rest#NIL THEN CDExtras.PopToTopLevel[design];FOR list: LIST OF CD.Instance _ CDOps.InstList[design], list.rest WHILE list#NIL DODoIt[list.first.ob, myVal]; ENDLOOP;[] _ CDDirectory.Enumerate[design, EachEntry];IF key=NIL THEN CDExtras.RemoveProperties[design, realKey];END;PreTag: PROC [design: CD.Design, replaceBy: REF, key: REF] =BEGINmyVal: REF ~ NEW[INT];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, replaceBy, new];IF new=NIL THEN TerminalIO.WriteRope["**** something is fishy\n"]ELSE me _ new;};CDDirectory.EnumerateChildObjects[me, DoIt, x];};};EachEntry: CDDirectory.EachEntryAction = {DoIt[ob, myVal]};FOR list: LIST OF CD.Instance _ CDOps.InstList[design], list.rest WHILE list#NIL DODoIt[list.first.ob, myVal]; ENDLOOP;[] _ CDDirectory.Enumerate[design, EachEntry];END;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 = {DoCell: PROC [cell: CD.Object] = {FOR list: LIST OF CD.Instance _ NARROW[cell.specificRef, CD.CellPtr].contents, list.rest WHILE list#NIL DOWITH CDProperties.GetPropFromObject[list.first.ob, replaceBy] SELECT FROMob: CD.Object => list.first.ob _ ob;ENDCASE => NULL;ENDLOOP;}; --DoCellDoHard: PROC [ob: CD.Object] = {replaces: CDDirectory.ReplaceList _ NIL;FindReplaces: CDDirectory.EnumerateObjectsProc = {WITH CDProperties.GetPropFromObject[me, replaceBy] 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]}; --DoHardIF me.class.inDirectory AND CDProperties.GetPropFromObject[me, realKey]#x THEN { CDProperties.PutProp[me, realKey, x];IF CDCells.IsCell[me] THEN DoCell[me] ELSE DoHard[me];CDDirectory.EnumerateChildObjects[me, DoChilds, x];};}; --DoChildsEachEntry: CDDirectory.EachEntryAction = {WITH CDProperties.GetPropFromObject[ob, replaceBy] SELECT FROMnew: CD.Object => {[] _ CDDirectory.Remove[design, name, ob];[] _ CDDirectory.Include[design, new];ob _ new;};ENDCASE => NULL;DoChilds[ob, myVal]; }; --EachEntryIF design^.actual.rest#NIL THEN CDExtras.PopToTopLevel[design];FOR list: LIST OF CD.Instance _ CDOps.InstList[design], 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;[] _ 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];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.   Ў  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, February 20, 1986 4:03:34 pm PST--real dirty, but it never happens because internalWrite is never NIL, except... --figures out whether objects should be replaced because they are in different designs--such objects will be copied and put onto the replaceBy property--uses globals design and realKey--DoHard--DoChilds--ReplaceTagged Э╩a  Ш ЪЬЩIcodeЪЬ>Щ>KЪЬ.Щ.KЪЬ8Щ8ЧJШ Ъ╧k	Ш	KЪЭЬШKЪЬ	Ш	KЪЬ
Ш
KЪЬШKШ	KЪЬШKЪЬШKШKЪЬШKЪЬШЧKШ Ъ╨blЬЭЬЭЬШKЪЭЬIШPKЪЭЬ
ШKЪЭЬЭЬШЧKЪЭШKШ Ъ╧nЬЭЬЭЬ
ЭЬЭЬЭЬШ>JЪЭШJЪЬЭЬЭЬЭЬШJЪЬ	ЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ1JШ ЪЯЬЭЬЭЬШ%ЪЭЬЭЬЭШ#JЪЬQЩQJЪЬЭЬ%ЭЬЭЬШ6JЪЬЭЬ4Ш<JЪЭЬЭЬЭЬЭЬШJЪЬVШVJЪЬ╧cШJЪЬ4Ш4JЪЭЬШЧJШЧJШ Ъ╧bЬ&Ш*ЪЭЬЭЬ/ЭЬШQJЪЬ%Ш%JЪЬШJЪЬ/Ш/JЪЬШЧJШЧJШ JЪб	Ь2Ш;JШ JЪЭЬЭЬЭЬ Ш?ЪЭЬЭЬЭЬЭЬ.ЭЬЭЬЭШSJЪЬШJЪЭЬШЧJЪЬ.Ш.JЪЭЬЭЬЭЬ,Ш;JЪЭЬШKЩ ЧЪ
ЯЬЭЬ
ЭЬЭЬЭЬШ<KЪЬVЩVKЪЬAЩAKЪЭШKЪЬЭЬЭЬЭЬШJШ ЪбЬ&Ш*ЪЭЬЭЬ+ЭЬШMJЪЬ!Ш!ЪЭЬ2ЭЬЭЬШ>KЪЬ%Ш%KШЧЪЭЬЭЬ;ЭЬШHKЪЬЭЬ"ЭЬ
Ш6KЪЭЬЭЬЭЬ"ЭЬ
Ш>JЪЬ)Ш)KЪЭЬЭЬЭЬ2ШAKЪЭЬ
ШKШЧJЪЬ/Ш/JЪЬШЧJШЧJШ JЪб	Ь2Ш;JШ ЪЭЬЭЬЭЬЭЬ.ЭЬЭЬЭШSJЪЬШJЪЭЬШЧJЪЬ.Ш.KЪЭЬШЧKШ ЪЯЬЭЬ
ЭЬЭЬЭЬЭЬШNKЪЭШKЪЬЭЬЭЬЭЬШJЪЬ	ЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ1KШ ЪбЬ&Ш.KЪЬ!Щ!KШ ЪЯЬЭЬЭЬШ"ЪЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭШjЪЭЬ:ЭЬЭШIKЪЬЭЬШ$KЪЭЬЭЬШЧKЪЭЬШЧKЪЬа	ШЧKШ ЪЯЬЭЬЭЬШ KЪЬ#ЭЬШ(KШ ЪбЬ&Ш2ЪЭЬ/ЭЬЭШ>ЪЬЭЬШKЪЬЭЬЭЬjШ}KШЧKЪЭЬЭЬШЧKЪЬаШЧJЩ JЪЬЩKЪЬ4ЭЬШ9ЪЭЬ
ЭЬЭЬШKЪЬQШQЧKЪЬаШЧKШ JЪЬ
Щ
ЪЭЬЭЬ/ЭЬШQKЪЬ%Ш%KЪЭЬЭЬЭЬШ6KЪЬ3Ш3KЪЬШЧKЪЬа
ШЧKШ Ъб	Ь!Ш*ЪЭЬ/ЭЬЭШ>ЪЬЭЬШKЪЬ*Ш*KЪЬ&Ш&KШ	KШЧKЪЭЬЭЬШЧKЪЬШKЪЬаШЧKШ JЪЬЩKЪЭЬЭЬЭЬ Ш?ЪЭЬЭЬЭЬЭЬ.ЭЬЭЬЭШSЪЭЬ:ЭЬЭШIЪЬЭЬШKЪЬШKЪЬШKШЧKЪЭЬЭЬШЧKЪЭЬШЧKЪЬ.Ш.JЪЭЬЭЬЭЬ,Ш;KЪЭЬаШKЩ ЧЪЯЬЭЬ
ЭЬ
Ш*JЪЭШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬШJЪЬ!Ш!JЪЬ(Ш(JЪЬ)Ш)JЪЬ-Ш-JЪЭЬШJШ ЧЪ╨bnЬЭЬШ2KЪЭШKЪЬЭЬШKЪЬ,Ш,KЪЬ#Ш#KЪЬШЪЭЬ$ЭЬШ+KЪЬOШOЧЪЭШKЪЬЦШЦЧKЪЭЬШЧKШ KЪЬOШOJЪЭЬШJШ JШ JШ Ч ЕЧ    \  │  