Làm một khai báo tùy chỉnh

Giả sử tôi sử dụng một bộ nồi hơi nhất định khá thường xuyên:

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

}

Tôi chỉ muốn nói:

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

Và ở đâu đó trong Bar, hãy thiết lập khai báo cho thanh (hoặc, vì lớp Foo cuối cùng sẽ tự sử dụng công cụ khai báo của riêng mình, nó có thể đi đến một nơi khác và không cần phải rút ra trong một Loại riêng). Làm thế nào tôi sẽ đi về làm điều đó?

-1. Hạn chế (chỉ dành cho gói)

Phương thức EXPORTHOW gọi .set_how trên hiện tại $?LANGthêm một tiếng lóng vào sau.
Sau đó, nó add_package_declarator để MAIN $?LANGthêm package_declaratorphương thức vào Hành động và Ngữ pháp của nó. Theo tôi, đó là "tiếng lóng động" duy nhất (trong World.nqp).

Nếu những gì bạn muốn là ghi đè lên Rout_declarator . Sau đó, bạn phải viết một tiếng lóng bắt chước chuỗi vừa trích dẫn. Nếu bạn chấp nhận giữ từ khóa phương thức và tạo chữ ký tự động trong lớp, hãy nói theo tên phương thức, đây là một cách:

Lưu ý: Gói là một thùng chứa (gói, ngữ pháp, mô-đun, vai trò, bí quyết, enum, lớp, tập hợp con). Nếu bạn đặt mã bên trong giống như một phương thức, điều này sẽ được thực thi (Tôi vừa thử):

0. Mô tả (XUẤT KHẨU)

Tôi sẽ sử dụng EXPORTHOW không có giấy tờ và DECLAREtrong một mô-đun vì tôi không tìm thấy đường nào với Phaser . Rõ ràng là đã quá muộn ngay cả tại BEGIN.

Ví dụ tôi đưa ra, là trang trí mọi phương thức trong một lớp (chẵn BUILDALL).

1. Thiên Bình ( 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. Thực thi

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. Đầu ra

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

4. Nguồn

• Grammar :: Debugger : xuất một ký hiệu (ngữ pháp) ghi đè find_method và add_method
• Và NQPTraceHOW :: track-on của npq : Looping với for $_.HOW.method_table($_)việc tạo một hàm băm mới ghi đè lên bộ đệm phương thức bằng (được đặt tên tốt) nqp::setmethcache.
• Để tự động hóa chữ ký, hãy chơi với .signature
• Jnthn bài viết trên EXPORTHOW
• Vì vậy, đăng trên EXPORTHOW không thể với vai trò