squaak: parse sub calls as expressions

parrot · Dec 5, 2011 · cf36033 · cf36033
1 parent 4248232
commit cf36033
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/examples/languages/squaak/src/Squaak/Actions.pm b/examples/languages/squaak/src/Squaak/Actions.pm
@@ -365,6 +365,7 @@ method quote:sym<'>($/) { make $<quote_EXPR>.ast; }
 method quote:sym<">($/) { make $<quote_EXPR>.ast; }
 
 method circumfix:sym<( )>($/) { make $<EXPR>.ast; }
+method postcircumfix:sym<( )>($/) { make $<arguments>.ast }
 
 method named_field($/) {
     my $past := $<EXPR>.ast;

diff --git a/examples/languages/squaak/src/Squaak/Grammar.pm b/examples/languages/squaak/src/Squaak/Grammar.pm
@@ -159,6 +159,7 @@ token quote:sym<"> { <?["]> <quote_EXPR: ':qq'> }
 ## Operators
 
 INIT {
+    Squaak::Grammar.O(':prec<x>, :assoc<unary>', '%methodop');
     Squaak::Grammar.O(':prec<w>, :assoc<unary>', '%unary-negate');
     Squaak::Grammar.O(':prec<v>, :assoc<unary>', '%unary-not');
     Squaak::Grammar.O(':prec<u>, :assoc<left>',  '%multiplicative');
@@ -169,6 +170,9 @@ INIT {
 }
 
 token circumfix:sym<( )> { '(' <.ws> <EXPR> ')' }
+token postcircumfix:sym<( )> {
+    <arguments> <O( '%methodop, :pasttype<call>' )>
+}
 
 rule circumfix:sym<[ ]> {
     '[' [<EXPR> ** ',']? ']'