Parrot Parrot Compiler Toolkit #38

Example: if_stmt (cont'd)

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

...

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

"make $past" sets the AST representation for the <if_stmt> node just parsed

==> That's it!

Copyright © 2008 Patrick R. Michaud
http://www.pmichaud.com/2008/pres/