Perl 6 on Parrot Rakudo Perl - Perl 6 on Parrot #32

Example: if_stmt

rule if_stmt { 'if' <expression> 'then' <statement> }

Add an action token to the rule:

rule if_stmt { 'if' <expression> 'then' <statement> {*} }

Add method to src/parser/actions.pm to generate PAST:

method if_stmt($/) {
    my $past := PAST::Op.new( $($<expression>),
                              $($<statement>),
                              :pasttype('if') );
    make $past;
}
Copyright © 2008 Patrick Michaud