Wie kann ich einer Klasse zur Laufzeit in Smalltalk Methoden hinzufügen?

Question

Ich baue eine Smalltalk-API zu einem XML-basierten Webdienst. Der XML-Dienst ist so regelmäßig, dass ich, anstatt die Methoden von Hand zu schreiben, einfach #doesNotUnderstand: überschreiben würde, um Methoden dynamisch über MyApi class>>compile: hinzuzufügen, dann alle Methoden einmal in einem Arbeitsbereich aufzurufen, dann die DNU zu entfernen und meine nette API zu haben .

Das funktioniert gut, aber eine riesige Zeichenfolge zu #compile: passiert nur fühlt sich wirklich falsch zu mir; In Python und anderen Sprachen wäre es mir möglich, ein schön Syntax-geprüftes Lambda an eine Klasse anzuhängen, um einen ähnlichen Effekt in einer sichereren Weise zu erzielen. Z.B .:

def himaker(name): 
    def hello(self, times): 
     for x in xrange(times): 
      print "Hi, %s!" % name 
    return hello 
class C(object): pass 
C.bob = himaker('Bob') 
C.jerry = himaker('Jerry') 
a = C() 
a.bob(5) 

gegen

SomeObject>>addHello: name 
    | source methodName | 
    methodName := 'sayHello', name, 'Times:'. 
    source := String streamContents: [ :s | 
     s nextPutAll: methodName, ' count'. 
     s nextPut: Character cr. 
     s nextPut: Character tab. 
     s nextPutAll: 'count timesRepeat: [ Transcript show: ''Hi, ', name, '!'' ].' ] 
    SomeObject class compile: source 

Es muss doch etwas so sauber wie der Python-Version sein?

Answer 1

Wenn Sie nur die Quellzeichenfolge, um deutlicher die Methode zu reflektieren:

SomeObject>>addHello: name 
    | methodTemplate methodSource | 
    methodTemplate := 'sayHello{1}Times: count 
    count timesRepeat: [ Transcript show: ''Hi, {1}!'' ].'. 
    methodSource := methodTemplate format: { name }. 
    self class compile: methodSource. 

Wenn Sie die Quelle wollen Syntax-geprüft werden, können Sie mit einer Vorlage Methode wie folgt beginnen könnte:

sayHelloTemplate: count 
    count timesRepeat: [ Transcript show: 'Hi, NAME' ]. 

Und dann füllen die Vorlage entsprechend, wie:

addHello2: name 
    | methodTemplate methodSource | 
    methodTemplate := (self class compiledMethodAt: #sayHelloTemplate:) decompileWithTemps. 
    methodTemplate selector: ('sayHello', name, 'Times:') asSymbol. 
    methodSource := methodTemplate sourceText copyReplaceAll: 'NAME' with: name. 
    self class compile: methodSource. 

natürlich all dies wäre klarer, wenn einige Methoden extrahiert wurden :)

Answer 2

Angenommen, Sie Template-Methode haben:

SomeClass>>himaker: aName 
    Transcript show: 'Hi ...' 

Dann können Sie es auf andere Klasse kopieren, nur nicht vergessen, die Selektor-und-Klasse festlegen , wenn Sie don Ich möchte den Systembrowser nicht verwirren. Oder wenn es Ihnen egal ist, installieren Sie einfach die Kopie im Method Dictionary.

| method | 

method := (SomeClass>>#himaker:) copy. 

method methodClass: OtherClass. 
method selector: #boo: . 
OtherClass methodDict at: #boo: put: method. 

method := method copy. 
method selector: #bar: . 
method methodClass: OtherClass2. 
OtherClass2 methodDict at: #bar: put: method. 

Answer 3

Nun, kompilieren: nimmt einen String. Wenn Sie etwas mehr typsicher möchten, können Sie einen Partree erstellen und diesen verwenden.

Answer 4

Ich würde Block verwenden:

himaker := [:name | [:n | n timesRepeat: [Transcript show: 'Hi , ', name, '!']]] 
hibob = himaker value: 'bob'. 
hialice = himaker value: 'alice'. 
hialice value: 2 

Sie können immer noch ein Verfahren

himaker: name 
    ^[:n | n timesRepeat: [Transcript show: 'Hi, ', name, '!']]