639003_fr-FR

liliconcom

Passer des messages à "ceci" dans la définition de classe

Est-il possible de passer un message à l'instance d'une classe depuis une méthode ?

 

Voici un exemple de ce que j'essaye de faire :

 

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);

Je soupçonnais que j'aurais peut-être besoin d'écrire explicitement "this << Insert", mais cela génère une erreur différente :

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);

J'ai également envisagé d'appeler explicitement Send (ne parvient pas à ajouter la méthode) et this:Send (ne parvient pas à résoudre le nom Send).

J'ai également envisagé d'appeler directement this:Insert (ne parvient pas à résoudre le nom Insert) et Insert (ajoute avec succès la méthode blah, mais ne parvient pas à sonder correctement le mécanisme d'appel, donc aucun argument n'est transmis à la méthode).

 

Motivation:

Je fais cela parce que j'essaie de créer automatiquement des méthodes getter et setter pour une liste de propriétés de classe.Idéalement, je serai capable de faire ce qui suit :

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));

 

Automatisation et scriptScript