Perl6：用俚语添加印记

Question

我正在尝试添加«€»作为«$»标量的别名，我认为使用俚语是这样做的。但是 perl6.doc 根本没有提到俚语。

我已阅读以下内容：

• https://perlgeek.de/en/article/mutable-grammar-for-perl-6（从 2008 年开始）
• 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 年的文章，可能是错误的。

另外，https://github.com/rakudo/rakudo/issues/2404 表示 $*LANG 已过时，应改为使用 $?LANG。 REPL 同意：

> $*LANG
Dynamic variable $*LANG not found

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

但是程序可以同时使用这两种方法，而不会出错。 （我试过了。）

Answer 1

简而言之：您必须更改ParseShared nqp 对象的$!target 字符串，这会在解析时更改代码。

为什么： sigil 令牌不再是原型，而是将 rakudo/src/Perl6/Grammar.nqp 定义为替代。

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

地点： 所以你必须将nqp/src/QRegex/Cursor.nqp中定义的$<sigil>.Str改成：

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.

-> 所以我们必须在NQPMatch 中在$!from 和$!to 之间更改$!target。

演示： 这是嵌入俚语语法的代码：

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 和 from。在这种情况下：

1. 我必须overwrite NQPMatch.Str function（希望有可能）。
2. 我必须列出游标（如果可能）并明智地更改它们的$!from 和$!to 属性，以恢复银河系或至少在客户端代码中的和平。