カスタム宣言子を作る

特定のボイラープレートのセットをかなり定期的に使用するとします。

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自体が最終的に独自の宣言子を使用するため、別の場所に移動でき、別のTypeで引き出す必要はありません）。どうすればいいですか？

-1。制限（パッケージのみ）

メソッドEXPORTHOWは、現在のスラングを後者に追加するときに.set_howを呼び出します$?LANG。
次に、アクションと文法にメソッドを追加するにadd_package_declaratorをMAIN $?LANG追加しますpackage_declarator。私は、これが唯一の「動的スラング」（World.nqp内）だと思います。

あなたが望むのは、routine_declaratorを上書きすることです。次に、引用したチェーンを模倣したスラングを記述する必要があります。methodキーワードを保持し、メソッド名に従ってクラスで自動署名を行うことに同意した場合、次の方法があります。

注： パッケージはコンテナです（パッケージ、文法、モジュール、ロール、ノウハウ、列挙型、クラス、サブセット）。メソッドのように内部にコードを置くと、これが実行されます（私は試してみました）：

0.説明（EXPORTHOW）

私はPhaserで方法を見つけられなかったので、文書化されていないEXPORTHOWとモジュールを使用しDECLAREました。どうやらBEGINでも手遅れです。

私が与える例は、クラスのすべてのメソッドを装飾しています（も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.ソース

• Grammar :: Debugger：find_methodおよびadd_methodをオーバーライドするシンボル（文法）のエクスポート
• そして、npqのNQPTraceHOW :: trace-on：for $_.HOW.method_table($_)新しいハッシュを作成してループし、メソッドキャッシュを（適切な名前の）で上書きしますnqp::setmethcache。
• 署名を自動化するには、.signatureを操作します
• Jnthn 記事 EXPORTHOWに
• したがって、EXPORTHOWにロールで投稿することはできません