java - 如何从 Java 调用 Perl 6？

Question

Perl 6 正则表达式/语法比 Perl 5 或相关的 Perl 兼容正则表达式(包括 Java 中的正则表达式)结构更好、更强大和可读。我正在寻找一种使用来自 Java 的正则表达式/语法代码执行 Perl 6 代码的方法。

这是一个类似我想做的常见例子:

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

class Calculations {
    method TOP ($/) { make $<add> ?? $<add>.made !! $<sub>.made; }
    method add ($/) { make [+] $<num>; }
    method sub ($/) { make [-] $<num>; }
}

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

# OUTPUT: «5␤» 

也许我必须在 Perl 6 中编写一个 Class 并且必须为 JVM 字节码编译它然后我可以调用它。这是一个解决方案吗？或者这是不可能的？

也许从 Java 调用 Perl 6 太难了。还有另外一个方向。在 Perl 6 中有很多内联模块，如 Inline::Python、Inline::Perl5 等等。还有一种方法可以在 Perl 6 中运行 java 代码。这是我找到的一个示例:

use java::util::zip::CRC32:from<java>;

my $crc = CRC32.new();
for 'Hello, Java'.encode('utf-8') {
    $crc.'method/update/(B)V'($_);
}
say $crc.getValue();

这是从 Perl 6 开始然后将大量 Java 代码绑定(bind)到一个项目的可能方法吗？但是如何从 Java 返回到我的 Perl 6 代码呢？对于 Perl 5，我可以找到 Inline::Java::Callback 模块，但不能找到 Perl 6。

我应该如何以专业的方式做到这一点？

Answer 1

我分享自己的实验和观察结果，希望它有用，即使我的结论目前不是很积极。我对 O.P. 问题的简短回答是:截至 2019 年 5 月，还不可能。

现在长话短说:在 Rakudo Star 的最新版本中，Perl6 的 JVM 后端支持尚未处于稳定、随时可用的状态:https://rakudo.org/post/announce-rakudo-star-release-2019-03

无论如何，如果你想试试运气，这里有一个来自 rakudo-star/nqp/examples 的例子(有一个小补丁，因为 rakudo-star-2019.03 的原始代码不会开箱即用).对原始示例的改进还包括命令行参数的文档和基本控制:

package examples;
import org.perl6.nqp.runtime.*;
import static org.perl6.nqp.runtime.CallSiteDescriptor.*;
import org.perl6.nqp.sixmodel.*;

public class CallFromJava {
    private GlobalContext g;
    private ThreadContext t;
    private SixModelObject nqpComp;

    private CallFromJava(String bytecode, String hll) {
        g = new GlobalContext();
        t = g.getCurrentThreadContext();

        Ops.loadbytecode(bytecode, t);
        nqpComp = Ops.getcomp(hll, t);
    }

    private SixModelObject eval(String nqp) {
        Ops.invokeDirect(t, Ops.findmethod(nqpComp, "compile", t),
                new CallSiteDescriptor(new byte[] { ARG_OBJ, ARG_STR }, null),
                new Object[] { nqpComp, nqp });

        Ops.invokeDirect(t, Ops.result_o(t.resultFrame()), Ops.emptyCallSite, Ops.emptyArgList);
        return Ops.result_o(t.resultFrame());
    }

    public static void main(String[] args) {
        if (args.length != 3) {
            System.err.printf("usage: java CallFromJava <jarfile> <dialect> <expression>\n");
            System.err.println("<jarfile>: path to nqp.jar or perl6.jar");
            System.err.println("<dialect>: nqp or perl6");
            System.err.println("<expression>: a nqp or perl6 expression");
            System.exit(1);
        }

        String jarFile = args[0];
        String dialect = args[1];
        String expression = args[2];
        CallFromJava nqp = new CallFromJava(jarFile, dialect);

        nqp.eval(expression);
    }
}

如果您从 Rakudo Star 包(撰写本文时版本 2019-03)中获取原始代码，请确保应用以下更正(已在上例中修复):

<         Ops.invokeDirect(t, Ops.findmethod(t, nqpComp, "compile"),
---
>         Ops.invokeDirect(t, Ops.findmethod(nqpComp, "compile", t),

构建和测试示例:

使用 NQP(不完全是 Perl):

cd rakudo-star-yyyy-mm/nqp
javac -cp bin/ examples/CallFromJava.java
java -cp nqp-runtime.jar:3rdparty/asm/asm-4.1.jar:3rdparty/asm/asm-tree-4.1.jar:. examples.CallFromJava nqp.jar nqp 'say(2+2)'
4

问题是 NQP 只是 Perl6 的一个子集，不适合 Perl6 开发人员直接使用。使用完整的 Perl6，大概可以做如下事情:

export PERL6_PREFIX=/usr/local/perl6 # or whatever your perl6 installation prefix is
cd rakudo-star-yyyy-mm/nqp
javac -cp bin/ examples/CallFromJava.java
java -cp $PERL6_PREFIX/share/nqp/runtime/asm-4.1.jar:$PERL6_PREFIX/share/nqp/runtime/asm-tree-4.1.jar:$PERL6_PREFIX/share/nqp/runtime/nqp-runtime.jar:$PERL6_PREFIX/share/perl6/runtime/rakudo-runtime.jar:$PERL6_PREFIX/share/perl6/runtime/perl6.jar:. examples.CallFromJava $PERL6_PREFIX/share/perl6/runtime/perl6.jar perl6 'say 2 + 2'

但到目前为止我没能成功

Unhandled exception: java.nio.file.NoSuchFileException: Perl6/Grammar
  in <anon> (src/vm/jvm/ModuleLoader.nqp:76)
  in load_module (src/vm/jvm/ModuleLoader.nqp:58)
  in <anon> (gen/jvm/main.nqp)