Re: [Pharo-project] getting crazy with ImageSegment code

Jan. 6, 2010


      I extracted some old code and adapted it slightly (see below). I've  
not executed this but just typed it in Mail. And I have not completely  
read/understood your code but maybe it does what you need :)

Cheers,
Adrian


	symbols := Symbol allSymbols.
	groups := Dictionary new.
	SystemOrganization categories do: [ :cat |
		groups
			at: cat
			put: ((SystemOrganization superclassOrder: cat) select: [:c |
				aCollection includes: c]) asArray ].
	groups keys do: [ :cat |
		roots := groups at: cat.
		roots := roots reject: [ :each | unused includes: each ].
		roots := roots , (roots collect: #class).
		(ImageSegment new
			copyFromRoots: roots
			sizeHint: 0
			areUnique: true)
				extract;
				writeToFile: cat ]

On Jan 6, 2010, at 15:44 , Mariano Martinez Peck wrote:
...
Hi folks. I will pay a beer in next ESUG to the person that helps me  
to
refactor this piece of code of ImageSegments:
The idea is that I have a list of classes that were inactive and I  
want to
group them by category (actually, seeing the code I think it is  
package) and
to to create an ImageSegment per category (or package).
This is the code (ONLYYYYY a piece...I cut all the rest)
unused := self inactiveClassesDuringDiscovery.  "These are the  
classes that
were not used"
   groups := Dictionary new.
   SystemOrganization categories do:
       [:cat |
       i := (cat findLast: [:c | c = $-]) - 1.
       i <= 0 ifTrue: [i := cat size].
       groups at: (cat copyFrom: 1 to: i)
           put: (groups at: (cat copyFrom: 1 to: i) ifAbsent: [Array  
new])
,
           ((SystemOrganization superclassOrder: cat) select: [:c |
               unused includes: c]) asArray].
   groups keys do:
       [:cat | roots := groups at: cat.
       Transcript cr; cr; show: cat; cr; print: roots; endEntry.
       roots := roots , (roots collect: [:c | c class]).
       "There seems to be a problem with these packages, thus they are
excluded."
       ((cat beginsWith: 'Sys') or: [cat beginsWith: 'Multilingual']  
or:
[cat beginsWith: 'Kerne'] ) ifFalse:
           [(ImageSegment new copyFromRoots: roots sizeHint: 0)  
extract;
               writeToFile: cat].
       Transcript cr; print: Smalltalk garbageCollect; endEntry]
Can someone help me tu rewrite this? I think I could use  
PackageOrganizer or
PackageInfo  but I have no idea.
Thanks!
Mariano
_______________________________________________
Pharo-project mailing list
Pharo-project@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Re: [Pharo-project] getting crazy with ImageSegment code

Adrian Lienhard