class ChitChat::Grammar::Actions;

method TOP($/) { my $past := PAST::Block.new( :blocktype('declaration'), :node( $/ ) ); for $<exprs> { $past.push( $( $_ ) ); } make $past; }

method exprs($/) { my $past := PAST::Stmts.new(); for $<expr> { $past.push( $( $_ ) ); } make $past; }

method expr($/) { make $( $<expr2> ); }

method expr2($/) { make $( $<msgexpr> ); }

method msgexpr($/,$key) { make $( $/{$key} ); }

method keyexpr($/) { my $past := PAST::Op.new( :pasttype('callmethod') ); $past.push( PAST::Var.new( :name(~$<keyexpr2>), :scope('package') ) ); my @args := $( $<keymsg> ); my $name := ''; while +@args { $name := $name ~ ~@args.shift(); $past.push( @args.shift() ); } $past.name($name); make $past; }

method keyexpr2($/) { make $( $<primary> ); }

method keymsg($/) { my @past; my $num := +$<keysel>; my $i := 0; while $i < $num { @past.push( ~$<keysel>[$i] ); @past.push( $($<keyexpr2>[$i]) ); $i++; } make @past; }

method binaryexpr($/) { $/.panic('binary expressions not yet implemented'); }

method unaryexpr($/) { $/.panic('unary expressions not yet implemented'); }

method primary($/) { make $( $<unit> ); }

method unit($/,$key) { if $key eq 'literal' { make $( $/{$key} ); } else { make ~$/; } }

method literal($/,$key) { make $( $/{$key} ); }

method string($/) { make PAST::Val.new( :value(~$<text>), :returns('String') ); }

# Local Variables: # mode: cperl # cperl-indent-level: 4 # fill-column: 100 # End: # vim: expandtab shiftwidth=4: