Re: [squeak-dev] 3.10 image

Guess we all have our own cleanup scripts ;-)

> -----Original Message-----
> From: squeak-dev-bounces@...

> [mailto:squeak-dev-bounces@...]On Behalf Of Ramon
> Leon
> Sent: 25 February 2008 4:13 PM
> To: 'The general-purpose Squeak developers list'

> Subject: RE: [squeak-dev] 3.10 image
>
>
> > Behalf Of Damien Cassou
> > Sent: Monday, February 25, 2008 8:07 AM
> > To: The general-purpose Squeak developers list
> > Subject: Re: [squeak-dev] 3.10 image
> >
> > Ok, future versions will be much smaller. Thanks.
>
> Here's what I run when saving a clean image, usually gets me to
> around 30meg
> with all the dev tools loaded.
>
> customGarbageCollect
>       | tasks |
>       tasks := OrderedCollection new
>               add: [ EventManager cleanUp ] ;
>               add: [ SmalltalkImage cleanUp ] ;
>               add: [ MCMethodDefinition cleanUp ] ;
>               add: [ MCFileBasedRepository flushAllCaches ] ;
>               add: [ WARegistry clearAllHandlers ] ;
>               add: [ SMSqueakMap default clearCaches ] ;
>               add: [ Smalltalk removeEmptyMessageCategories ] ;
>               add: [ Utilities cleanseOtherworldlySteppers ] ;
>               add: [ Workspace allSubInstancesDo: [ : each | each
> setBindings: Dictionary new ] ] ;
>               add: [ Undeclared removeUnreferencedKeys ] ;
>               add: [ Categorizer sortAllCategories ] ;
>               add: [ Symbol compactSymbolTable ] ;
>               add: [ ReleaseBuilderDeveloper new fixObsoleteReferences ] ;
>               add: [ Smalltalk garbageCollectMost ] ;
>               yourself.
>       Utilities informUserDuring:
>               [ : bar |
>               tasks do:
>                       [ : block |
>                       bar value: block printString.
>                       [ block value ]
>                               on: Error
>                               do:
>                                       [ : error |
>                                       Transcript
>                                               show: error ;
>                                               cr ] ] ].
>       SystemNavigation default obsoleteClasses isEmpty
>               ifTrue: [ SmalltalkImage current saveSession ]
>               ifFalse:
>                       [ (self confirm: 'PointerFinder on obsolete
> classes') ifFalse: [ ^ self ].
>                       SystemNavigation default obsoleteClasses do:
>                               [ : each |
>                               [ PointerFinder on: each ]
>                                       on: Error
>                                       do:
>                                               [ : error |
>                                               Transcript
>                                                       show: error ;
>                                                       cr ] ] ]
>
> Ramon Leon
> http://onsmalltalk.com
>
>