Создание собственного декларатора

Допустим, я использую определенный набор шаблонов довольно регулярно:

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;
    …
  }

}

Я бы предпочел просто сказать:

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

И где-то в Bar, установите объявление для bar (или, поскольку класс Foo сам в конечном итоге будет использовать свой собственный декларатор, он может пойти куда-нибудь еще и его не нужно извлекать в отдельный тип). Как бы я поступил так?

-1. Ограничения (только для пакетов)

Метод EXPORTHOW вызывает .set_how для текущего $?LANGдобавления сленга к последнему.
Тогда add_package_declarator к MAIN $?LANGкоторой добавляется package_declaratorметод его действий и грамматике. Я думаю, это единственный «динамический сленг» (в World.nqp).

Если вы хотите перезаписать рутинный_декларатор . Затем вы должны написать сленг, имитирующий только что процитированную цепочку. Если вы согласны сохранить ключевое слово метода и сделать автоматическую подпись в классе, скажем, в соответствии с именем метода, вот способ:

Примечание. Пакет - это контейнер (пакет, грамматика, модуль, роль, ноу-хау, перечисление, класс, подмножество). Если вы поместите код внутри как метод, он будет выполнен (я только что попробовал):

0. Описание (EXPORTHOW)

Я бы использовал недокументированный EXPORTHOW и DECLAREв модуле, потому что я не нашел пути к Phaser . Видимо, уже поздно, даже в НАЧАЛЕ.

Пример, который я привожу, украшает каждый метод в классе (даже 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. Исполняемый файл

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. Выход

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

4. Источники

• Грамматика :: Отладчик : экспорт символа (грамматики) с переопределением find_method и add_method
• И nqq's NQPTraceHOW :: trace-on : Цикл с for $_.HOW.method_table($_)созданием нового хэша, перезаписывающего кэш метода с (хорошо названным) nqp::setmethcache.
• Чтобы автоматизировать подпись, играйте с .signature
• Jnthn статья на ЭКСПОРТ-ХОУ
• Поэтому пост на EXPORTHOW невозможен с ролью