a sample nqp compiler

gistfile1.txt

use NQPHLL;

grammar Calc::Grammar is HLL::Grammar {
    token TOP { ^ <statement> $ }
    rule statement { <term> [ <addop> <term> ]* }
    rule term { <value> [ <mulop> <value> ]* }
    token value { \d+ }
    token addop { '+' | '-' }
    token mulop { '*' | '/' }
}

class Calc::Actions is HLL::Actions {

    method TOP($/) {
        make QAST::CompUnit.new(
                QAST::Block.new( $<statement>.ast )
             );
    }

    method statement($/) {
        make QAST::Op.new( 
                :op($<addop> eq '+' 
                      ?? 'add_i' 
                      !! 'sub_i'
                ),
                $<value>[0].ast,
                $<value>[1].ast
             );
    }

    method value($/) {
        make QAST::IVal.new( :value( +$/ ) );
    }

}


class Calc::Compiler is HLL::Compiler { }

sub MAIN(*@ARGS) {
    my $calc := Calc::Compiler.new();
    $calc.language('calc');
    $calc.parsegrammar(Calc::Grammar);
    $calc.parseactions(Calc::Actions);
    $calc.command_line(@ARGS);
}