【问题标题】:How to call Perl 6 from Java?如何从 Java 调用 Perl 6?
【发布时间】:2018-09-13 08:13:29
【问题描述】:

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 代码绑定到一个项目的可行方法吗?但是如何从 Java 回到我的 Perl 6 代码呢?对于 Perl 5,我可以找到模块 Inline::Java::Callback 但不适用于 Perl 6。

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

【问题讨论】:

  • 你真的想避免这种情况。为什么你认为你不能用 java 编写 perl 代码?
  • “更好”是什么意思?如果要运行 Java 代码,为什么不使用 Java 的现有功能?
  • 回答上述所有三个 cmets。 Java 正则表达式基于 Perl 正则表达式(过去 20 年来几乎所有语言都是如此)。 Perl6 对正则表达式进行了重大改写,使其更易于阅读且功能更强大。
  • @NicoHaase 解释如何通过 P6 功能获得哪些功能,这些功能看起来像“正则表达式”(但更易于读写和任意扩展)和 可以参考 因为“正则表达式”(但在技术上属于"unrestricted grammar" 类,而不是"regular expression" 类)比正则表达式更好,ANTLR、Canopy 和堂兄弟组合起来会比a book 更多。可以说,并非所有工具都是可替代的。
  • 嗨史蒂芬。我代表那些试图保持对新来者如此欢迎的人,向他们道歉。从我的角度来看,您的标题很明确,您的身体详细说明了您想要什么以及您遇到的问题。我投票决定重新开放。标签吸引标签观察者。 perl6 的观察者往往比较耐心,而像 java 这样的高流量标签的观察者往往会草率下结论并且相对不友好。 Imo TungstenX 的 JNI 中断是唯一有用的信息。 P6 可能真的需要一个基于 JNI 的适配器。同时,timotimo 的答案及其解决方案有望满足您的迫切需求。

标签: java raku


【解决方案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)

【讨论】:

    【解决方案2】:

    将 perl6 代码编译为 JVM 字节码不会立即帮助您,我不认为,但是测试套件使用了一个“评估服务器”,因此它不必为每个测试套件从头开始启动 JVM规范测试套件中的许多测试文件。

    你可以在这里找到 eval 服务器的源代码,并可能从中窃取一些东西:https://github.com/perl6/nqp/blob/master/src/vm/jvm/runtime/org/perl6/nqp/tools/EvalServer.java

    【讨论】:

      猜你喜欢
      • 2016-10-12
      • 2011-03-07
      • 1970-01-01
      • 1970-01-01
      • 2014-08-07
      • 1970-01-01
      • 1970-01-01
      • 1970-01-01
      • 1970-01-01
      相关资源
      最近更新 更多