Smalltalk › Squeak › Squeak - Dev

[ExperimentalCoreRelease] Best way of the attached - Contest

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

1 message

Edgar De Cleene

[ExperimentalCoreRelease] Best way of the attached - Contest

[ExperimentalCoreRelease] Best way of the attached - Contest Folks:

I meet Travis when he comes to Smalltalks 2009 , but unlucky don’t share pizza and beer with he.
Here some old I wish have, give to all opportunity for have the same better.

'From MinimalMorphic of 8 December 2006 [latest update: #7246] on 9 March 2010 at 8:15:47 pm'!

!CompiledMethod methodsFor: 'printing' stamp: 'edc 10/6/2008 09:54'!
author
self timeStamp isEmpty ifFalse: [^self timeStamp substrings first] ifTrue:[^'unknown']

    ! !

!Utilities class methodsFor: 'identification' stamp: 'edc 10/6/2008 09:58'!
methodsWithInitials: targetInitials inClass: aClass
    "Based on a do-it contributed to the Squeak mailing list by G&brkbar;É¬ran Hultgen:
Browse methods whose initials (in the time-stamp, as logged to disk) match the given initials.
Print out the complete time-stamp table to the Transcript.
Answer a list of (initials -> count) associations.

CAUTION: It may take several minutes for this to complete."

    "Time millisecondsToRun: [Utilities methodsWithInitials: 'bf']"
    | methodList methodListClass |
    methodList := aClass methodDict select:[:cm|
        cm author = targetInitials].
    methodListClass := aClass class methodDict select:[:cm| cm author = targetInitials].
        ^methodList,methodListClass
    ! !

What for I wish:
Create a new ChangeSet
Utilities methodsWithInitials: 'edc' inClass: Object . " hacer inspect "
self keysAndValuesDo:[:k :v | ChangeSet current adoptSelector: k forClass: v methodClass ].

fileout of .image number one .
Filein in .image number two. (SqueakCore)

Run Levente test in .image number two.
If all works , go to trunk.

This model of work satisfy you?

Edgar