如何为语法的action类添加默认方法？

Question

最近，我尝试了一些语法来修改文件的小部分。在这些测试用例中，我会保持大部分文件的原样，只是在这里和那里修改一些小的部分，请参见这个回顾问题的示例。

因此，我需要一个（或几个）动作方法（即语法的action类中的方法），在这里我将使用make方法将文件的修改部分附加到match对象。问题是语法本身会有更多的标记/规则/正则表达式，并且嵌套复杂。因此，需要（通过依次调用make（））将小更改（当前附加到令牌的匹配对象）传播到action类中的TOP（）方法，以便文件中的所有其他内容（所有其他令牌/规则/正则表达式）在语法的返回的结果中保持不变。parse（）调用。

因此，action类中的所有方法（除了一个）都是完全相同的形式：

method make-data ($match-data) {
    $match-data.make( [~] $match-data.chunks.map: {$_.value.?made // $_.value} );
}

现在，在我看来，对所有动作方法显式重复相同的代码似乎非常冗长，而且也违反了干式编程原则。

有没有办法告诉语法类，如果没有指定操作方法（对应于语法中的令牌），它将默认为上面的make-data方法（或类似的方法）？

因此，在本例中，我设想action类中有一个DEFAULT（）方法：

method DEFAULT ($match-data) {
    $match-data.make( [~] $match-data.chunks.map: {$_.value.?made // $_.value} );
}

如果语法类中的令牌在操作类中没有相应的方法，则调用该方法。

Answer 1

Perl 6的类型系统将调用一个回退方法，如果它存在于类中，并且进行了未知的方法调用。

以下解决方案将默认构造方法添加到Calculationsactions类中。

grammar Calculator {
    token TOP { [ <add> | <sub> ] }
    rule  add { <num> '+' <num> }
    rule  sub { <num> '-' <num> }
    token num { \d+ }
}

class Calculations {
    method ws($) {}
    method FALLBACK($token, $match-data) {
        $match-data.make( [~] $match-data.chunks.map: {
            $_.value.?made // $_.value;
        } );
    }
}

say Calculator.parse('2 + 3', actions => Calculations).made;