6

...或者如何从匹配的文本$<sigil>.Str中独立地更改值。是的，我在问如何欺骗上面的语法（即打电话给我）。token sigil { ... }

我正在尝试为没有 sigil 的 Raku 写一个俚语。

所以我想要nogil令牌，匹配任何东西<?>以返回字符串化的 NqpMatch：$<sigil>.Str到'$'。

目前，我的令牌印记看起来像这样

token sigil {
    | <[$@%&]>
    | <nogil> { say "Nogil returned: ", lk($/, 'nogil').Str; # Here It should print "$"
              }
}
token nogil-proxy {
    | '€'
    | <?>
    {log "No sigil:", get-stack; }
}

并且该方法应该返回一个被覆盖的NQPMatch方法Str

method nogil {
    my $cursor := self.nogil-proxy;
    # .. This si where Nqp expertise would be nice
    say "string is:", $cursor.Str;    # here also it should print "$"
    return $cursor;
}

尝试失败：

$cursor.^cache_add('Str', sub { return '$'; } );
$cursor.^publish_method_cache;
for $cursor.^attributes { .name.say };
for $cursor.^methods { .name.say };
say $cursor.WHAT.Str;
nqp::setmethcacheauth($cursor, 0);

目前，我的大部分测试都有效，但我在没有我的 (with no strict)的情况下在声明中遇到问题，my-var = 42;因为它们被视为方法调用。

@Arne-Sommer 已经发表了一篇文章和一篇文章。这是密切相关的。但这个问题的目的是：

我们如何自定义编译时令牌的返回值，而不是如何声明它。

4

1 回答 1

6

简介： @JonathanWorthington 指出的答案：

简介：使用mixin元函数。（而不是但需要的方法。）compose

演示：

  1. 通过检索另一个令牌创建一个 NQPMatch 对象：这里是sigil-my由 调用的令牌self.sigil-my。
  2. ^mixin与角色一起使用
method sigil { return self.sigil-my.^mixin(Nogil::StrGil); }

上下文：完整的可重现代码：

sigil-my所以你可以看到和是什么类型Nogil::StrGil。但我告诉过你：令牌（不仅仅是方法）和角色（不可实例化的类）。

role Nogil::StrGil {
    method Str() {
        return sigilize(callsame);
    }
}


sub EXPORT(|) {

# Save: main raku grammar
my $main-grammar = $*LANG.slang_grammar('MAIN');
my $main-actions = $*LANG.slang_actions('MAIN');

role Nogil::NogilGrammar {
    method sigil {
        return self.sigil-my.^mixin(Nogil::StrGil);
    }
}

token sigil-my { | <[$@%&]> | <?> }

# Mix
my $grammar = $main-grammar.^mixin(Nogil::NogilGrammar);
my $actions = $main-actions.^mixin(Nogil::NogilActions);
$*LANG.define_slang('MAIN', $grammar, $actions);

# Return empty hash -> specify that we’re not exporting anything extra
return {};

}

注意：这为解决更多问题打开了大门（jnthn 问题评论也指出了这一点）-> -0fun ！

于 2020-04-02T20:49:42.410 回答