Creare un dichiaratore personalizzato

Diciamo che uso un certo set di boilerplate abbastanza regolarmente:

class Foo {

  method abc($a: $b, $c, +@d) is pure {
    use Slang::Bar;
    …
  }

  method xyz($a: $b, $c, +@d) is pure {
    use Slang::Bar;
    …
  }

  method blarg($a: $b, $c, +@d) is pure {
    use Slang::Bar;
    …
  }

}

Preferirei solo poter dire:

class Foo is/does Bar {
  bar  abc   { … }
  bar  xyz   { … }
  bar  blarg { … }
}

E da qualche parte in Bar, imposta la dichiarazione per bar (o, dal momento che la classe Foo stessa userà il proprio dichiaratore, potrebbe andare da qualche altra parte e non deve essere estratta in un Tipo separato). Come potrei farlo?

-1. Limitazioni (solo per i pacchetti)

Il metodo EXPORTHOW chiama .set_how al momento $?LANGaggiungendo un gergo a quest'ultimo.
Quindi aggiunge_package_declarator al MAIN $?LANGquale aggiunge un package_declaratormetodo alle sue azioni e grammatica. È, credo, l'unico "gergo dinamico" (in World.nqp).

Se quello che vuoi è sovrascrivere routine_declarator . Quindi devi scrivere un gergo che imita la catena appena citata. Se accetti di mantenere la parola chiave del metodo e fai la firma automatica nella classe, ad esempio in base al nome del metodo, ecco un modo:

Nota: un pacchetto è un contenitore (pacchetto, grammatica, modulo, ruolo, know-how, enum, classe, sottoinsieme). Se inserisci il codice come un metodo, questo viene eseguito (l'ho appena provato):

0. Descrizione (EXPORTHOW)

Userei EXPORTHOW non documentato e DECLAREin un modulo perché non ho trovato un modo con Phaser . Apparentemente è troppo tardi anche a BEGIN.

L'esempio che do, è decorare ogni metodo in una classe (anche BUILDALL).

1. Lib ( decorator.rakumod)

class DecoratedClassHOW is Metamodel::ClassHOW {
    method add_method(Mu $obj, $name, $code_obj) {
        sub wrapper ($obj, $a, $b) {
            say "Before $name";
            my $res = $code_obj($obj, $a, $b);
            say "After $name";
            return $res;
        }
        my $res = callwith($obj, $name, &wrapper);
        return $res;
    }
}

my module EXPORTHOW {
    package DECLARE {
        constant decorated = DecoratedClassHOW;
    }
}

2. eseguibile

use lib '.';
use decorator-lib;

decorated Foo {
  method abc($a, $b) {
      say "In abc: $a:$b";
  }
}

my $f = Foo.new;
$f.abc(1, 2);

3. Uscita

Before BUILDALL
After BUILDALL
Before abc
In abc: 1:2
After abc

4. Fonti

• Grammatica :: Debugger : esportazione di un simbolo (grammatica) che sostituisce find_method e add_method
• E NQPTraceHOW di npq :: trace-on : fare un ciclo con la for $_.HOW.method_table($_)creazione di un nuovo hash sovrascrivendo la cache del metodo con il (ben noto ) nqp::setmethcache.
• Per automatizzare la firma, gioca con .signature
• Jnthn articolo su EXPORTHOW
• Quindi pubblica su EXPORTHOW impossibile con il ruolo