cj.nqp

use QASTJVM;

# Build a simple QAST tree.
my $cu := QAST::CompUnit.new();
my $b := QAST::Block.new(
    QAST::Op.new(
        :op('say'),
        QAST::SVal.new( :value('JVM compiles QAST to JVM') )
    ));
$cu.push($b);
$cu.main(QAST::Op.new(
    :op('call'),
    QAST::BVal.new( :value($b) )
));

# Compile it.
my $jast := QAST::CompilerJAST.jast($cu, :classname('JVMOnJVM'));
say($jast.dump);

output

$ nqp nqp-jvm-cc.nqp cj.nqp > JVMOnJVM.dump

$ java -cp bin;3rdparty/bcel/bcel-5.2.jar org/perl6/nqp/jast2bc/JASTToJVMBytecode JVMOnJVM.dump JVMOnJVM.class

$ java -cp .;bin;3rdparty/bcel/bcel-5.2.jar JVMOnJVM
JVM compiles QAST to JVM