Author: pmichaud
Date: Sun Dec 28 22:52:58 2008
New Revision: 34557
Modified:
branches/rvar/languages/perl6/src/parser/actions.pm
branches/rvar/languages/perl6/src/parser/grammar.pg
Log:
[rakudo]: Do something reasonable with the 'returns' trait.
Modified: branches/rvar/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rvar/languages/perl6/src/parser/actions.pm (original)
+++ branches/rvar/languages/perl6/src/parser/actions.pm Sun Dec 28 22:52:58 2008
@@ -909,6 +909,12 @@
}
make PAST::Op.new( :name('list'), 'trait_auxiliary:' ~ $sym, $trait );
}
+
+
+method trait_verb($/) {
+ my $sym := ~$<sym>;
+ make PAST::Op.new( :name('list'), 'trait_verb:' ~ $sym, 'XXX' );
+}
method signature($/, $key) {
Modified: branches/rvar/languages/perl6/src/parser/grammar.pg
==============================================================================
--- branches/rvar/languages/perl6/src/parser/grammar.pg (original)
+++ branches/rvar/languages/perl6/src/parser/grammar.pg Sun Dec 28 22:52:58 2008
@@ -404,8 +404,11 @@
}
rule trait_verb {
+ [
| $<sym>=[of|returns] <typename>
| $<sym>=[handles] <EXPR>
+ ]
+ {*}
}
token capterm {
