gistfile1.txt

pmichaud@kiwi:~/p6/nqp$ cat eek.nqp
use NQPHLL;

class thing::Grammar is HLL::Grammar {
    token TOP { <command> } 

    token command { 'eek' }
}

class thing::Actions is HLL::Actions {
    method TOP($/) { 
        make QAST::CompUnit.new(QAST::Block.new($<command>.ast)); 
    }

    method command($/) {
        make QAST::IVal.new( :value(3) )
    }  
}

class thing::Compiler is HLL::Compiler {}

sub MAIN(*@ARGS) {
        my $compiler := thing::Compiler.new();

        $compiler.language('thing');
        $compiler.parsegrammar(thing::Grammar);
        $compiler.parseactions(thing::Actions);
        $compiler.command_line(@ARGS);
}
pmichaud@kiwi:~/p6/nqp$ ./nqp eek.nqp
> eek
3
>