Perl6：使用俚语添加印记

我正在尝试添加“€”作为“$”标量的别名，我认为使用俚语来实现这一点是可行的。但 perl6.doc 根本没有提到俚语。

我已阅读以下内容：

• https://perlgeek.de/en/article/mutable-grammar-for-perl-6 https://perlgeek.de/en/article/mutable-grammar-for-perl-6（2008年起）
• https://mouq.github.io/slangs.html https://mouq.github.io/slangs.html

并查看了 Slang::Roman 和 Slang::Tuxic 模块。

结果是这个文件（ScalarEU.pm6）：

use nqp;

unit module ScalarEU2;

sub EXPORT(|)
{
  my role Euscalar
  {
    token sigil:sym<$> { '€' | '$' }
  }

  my Mu $MAIN-grammar := nqp::atkey(%*LANG, 'MAIN');
  my $grammar := $MAIN-grammar.HOW.mixin($MAIN-grammar, Euscalar);

  $*LANG.define_slang('MAIN', $grammar, $*LANG.actions);

  {}
}

然后是一个使用它的程序（称为 hello）：

use lib "lib";

use ScalarEU;

sub MAIN ($name)
{
  say "Hello, €name!";
}

但它不起作用，或者更确切地说，没有做它应该做的事情：

$ ./hello Tom
Hello, €name!

（我这样写程序是为了让它不会崩溃。）

我还没有添加动作类，但是“令牌印记”的设置方式不应该要求这样做吗？但这个假设是基于 11 年的一篇文章，可能是错误的。

Also, https://github.com/rakudo/rakudo/issues/2404 https://github.com/rakudo/rakudo/issues/2404说 $*LANG 已过时，并使用 $?LANG 代替。 REPL 同意：

> $*LANG
Dynamic variable $*LANG not found

> $?LANG
(low-level object `Perl6::Grammar`)

但程序可以同时使用两者，而不会出现错误。 （我努力了。）

Briefly:你必须改变$!target的字符串ParseSharednqp 对象，这会在解析时更改代码。

Why: The sigil令牌不再是原型，而是已定义的rakudo/src/Perl6/Grammar.nqp https://github.com/rakudo/rakudo/blob/aa5154e02783c7e1a4c5f7a210f622d1908eef31/src/Perl6/Grammar.nqp#L1840作为交替。

所以作为一个最小的解决方案：token sigil { <[$@%&€]> }但新的问题来了：返回值可以是€并用于其他语法中。

Where:所以你必须改变$<sigil>.Str定义于nqp/src/QRegex/Cursor.nqp https://github.com/Raku/nqp/blob/57a4d5eacbb7da72e68c08da99d6bfe86cab0506/src/QRegex/Cursor.nqp#L90 as:

method Str()       {
   $!pos >= $!from
        ?? nqp::substr(nqp::getattr_s($!shared, ParseShared, '$!target'),
            $!from, nqp::sub_i(self.to, $!from))
        !! '' }

The string in target between from and to if pos is not so low.

-> 所以我们必须改变$!target之间$!from and $!to in a NQPMatch.

Demo:以下是嵌入俚语语法的代码：

token sigil {
    | <[$@%&]>
    | <nogil> { say "Nogil returned: ", lk($/, 'nogil').Str; }
}

method nogil {
    # The object to return
    my $cursor := self.nogil-proxy;

    # Get from cursor
    my $shared := nqp::getattr($cursor, NQPMatch, '$!shared');
    my $from = nqp::getattr_i($cursor, NQPMatch, '$!from');
    my $target = $cursor.target;

    # Replace in target current character (€) by $
    $target.substr-rw($from, 1) = '$';

    # Set in cursor
    nqp::bindattr_s($shared, $shared.WHAT, '$!target', $target);

    # Return the "created by proxy" and modified NQPMatch
    return $cursor;
}

token nogil-proxy { '€' }

单独说：_它应该适合您的情况。在我的中，（没有印记）我仍然有问题，因为尺寸在$!target修改搞乱了to and from其他光标。在这种情况下：

1. I must 覆盖NQPMatch.Str函数 https://stackoverflow.com/posts/60982963（希望这是可能的）。
2. 我必须列出光标（如果可能）并更改它们$!from and $!to明智地归因以恢复银河系的和平或至少在客户端代码中恢复和平。