639003_de-DE

liliconcom

Übergabe von Nachrichten an „this“ innerhalb der Klassendefinition

Ist es möglich, aus einer Methode heraus eine Nachricht an die Instanz einer Klasse zu übergeben?

 

Hier ist ein Beispiel dafür, was ich versuche:

 

Define Class(
 "example",
 x=1;
 test = Method( {name, method},
  << Insert(name, method);
 );
 
);

t = New Object( example());
// This fails to insert the blah method
t:test("blah", Method({y}, show("Blah " || char(x) || char(y))));
t:blah(6);

//This succeeds in inserting and calling the blah method
t << Insert("blah", Method({y}, show("Blah " || char(x) || char(y))));
t:blah(6);

Ich vermutete, dass ich möglicherweise explizit „this << Insert“ schreiben muss, aber das führt zu einem anderen Fehler:

Define Class(
 "example",
 x=1;
 test = Method( {name, method},
  <STRONG>this << Insert(name, method);</STRONG>
 );
 
);

t = New Object( example());

// This fails because "send expects scriptable object"
t:test("blah", Method({y}, show("Blah " || char(x) || char(y));));
t:blah(6);

Ich habe auch darüber nachgedacht, Send explizit aufzurufen (die Methode kann nicht hinzugefügt werden) und this:Send (der Name Send kann nicht aufgelöst werden).

Ich habe auch darüber nachgedacht, Folgendes direkt aufzurufen:Insert (kann den Namen „Insert“ nicht auflösen) und „Insert“ (fügt die Blah-Methode erfolgreich hinzu, kann den Aufrufmechanismus jedoch nicht richtig ausloten, sodass keine Argumente an die Methode übergeben werden).

 

Motivation:

Ich mache das, weil ich versuche, automatisch Getter- und Setter-Methoden für eine Liste von Klasseneigenschaften zu erstellen.Im Idealfall kann ich Folgendes tun:

Define Class(
 "example",
 _init_ = Method( {assocArray},
  For Each({property, updateMethod}, assocArray,
   Insert(key, Eval Expr(Method({value}, TrySetProperty(Expr(property), value, Expr(updateMethod)))));
  );
 );
 
 TrySetProperty=Method({parameter, value, expressionIfChanged},
        match(value,
            .,                                  .,  //Do nothing if missing value
            this << Get Value(parameter),       .,  //Do nothing if unchanged value
            this << Insert(parameter, value);       //Otherwise update the value 
            Eval(expressionIfChanged);    //and eval the expression
        );
    );
 
);

properties = Associative Array({{"prop1", Expr(ThingToDoOnUpdate1)},{"prop2", Expr(ThingToDoOnUpdate2)}});
t = New Object( example(properties));

 

Automatisierung und SkripterstellungSkripterstellung