z.pl6

use nqp;
use Perl6::Grammar:from<NQP>;
use Perl6::Actions:from<NQP>;
use Perl6::Compiler:from<NQP>;


my $self   = $?FILE.IO;

sub compile(*@files, Bool :$moar, Bool :$jvm, :$encoding, :$output, |c) {
    for <moar jvm> -> $backend {
        next if $backend eq 'jvm'  && !$jvm;
        next if $backend eq 'moar' && !$moar;

        my ($target, $ext) = $backend.starts-with('moar')
            ?? ('mbc','moarvm')
            !! $backend.starts-with('jvm')
                ?? ('jvm', 'jar')
                !! ('ast', 'ast');

        for @files -> $file {
            my $output   = "{$file}.{$ext}";
            my $grammar  = Perl6::Grammar.new;
            my $actions  = Perl6::Actions.new;
            my $compiler = Perl6::Compiler.new;
            $compiler.parseactions($actions);
            $compiler.parsegrammar($grammar);
            $compiler.compile($file, :$output, :$target, :$encoding, |c);
        }
    }
}


compile($self.IO.basename, :moar, :ll-exception(1), :encoding('utf8'));

nickl@localhost:~/perl6$ perl6 z.pl6
===SORRY!=== Error while compiling z.pl6
Undeclared routine:
    z used at line 1