Как вызвать Perl 6 из Java?

Question

Регулярные выражения / грамматики Perl 6 намного лучше структурированы, более мощные и читаемые, чем Perl 5 или связанные с ним Perl-совместимые регулярные выражения везде, включая регулярные выражения в Java. Я ищу способ выполнить код Perl 6 с этим кодом регулярного выражения / грамматики из Java.

Вот типичный пример, который я хочу сделать:

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␤» 

Может быть, я должен написать Class в Perl 6 и должны скомпилировать это для байт-кода JVM, а затем я могу вызвать это. Это решение или нет? Или это невозможно?

Может быть, слишком сложно вызвать Perl 6 из Java. Есть и другое направление. В Perl 6 множество модулей Inline, таких как Inline:: Python, Inline:: Perl5 и так далее. Существует также способ запуска кода Java в Perl 6. Вот пример, который я нашел:

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.

Как мне сделать это профессионально?

Answer 1

Я делюсь результатами собственных экспериментов и наблюдений, в надежде, что они будут полезны, даже если мой вывод на данный момент не очень положительный. Мой краткий ответ на вопрос ОП: по состоянию на май 2019 года это еще невозможно.

Теперь длинный ответ: в последних выпусках Rakudo Star внутренняя поддержка JVM Perl6 еще не находится в стабильном и готовом к использованию состоянии: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)

Answer 2

Я не думаю, что компиляция кода perl6 в байт-код JVM сразу поможет вам, но есть "Eval Server", который использует набор тестов, чтобы не запускать JVM с нуля для каждого из множества тестов. файлы в тестовом наборе спецификаций.

Вы можете найти исходный код сервера eval здесь и, вероятно, украсть у него несколько вещей: https://github.com/perl6/nqp/blob/master/src/vm/jvm/runtime/org/perl6/nqp/tools/EvalServer.java