make [expr] support parens

partcl · Jul 26, 2010 · 69a50b8 · 69a50b8
1 parent 5768bc2
commit 69a50b8
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 1 deletion.
diff --git a/src/Partcl/Actions.pm b/src/Partcl/Actions.pm
@@ -234,6 +234,9 @@ method term:sym<false>($/) { make $/.Str }
 
 method term:sym<variable>($/) { make $<variable>.ast; }
 method term:sym<integer>($/) { make $<integer>.ast; }
+
+method term:sym<( )>($/) { make $<EXPR>.ast; }
+
 method term:sym<[ ]>($/) { make $<script>.ast; }
 method term:sym<" ">($/)  { make concat_atoms($<quoted_atom>); }
 

diff --git a/src/Partcl/Grammar.pm b/src/Partcl/Grammar.pm
@@ -145,6 +145,8 @@ token term:sym<false> {
     )
 }
 
+token term:sym<( )> { '(' <EXPR> ')' }
+
 token term:sym<[ ]> { '[' ~ ']' <script> }
 token term:sym<" "> { '"' <quoted_atom>* '"' }
 

diff --git a/t/cmd_expr.t b/t/cmd_expr.t
@@ -115,7 +115,7 @@ is [
 
 # precedence
 eval_is {expr 2*3+4*2} 14 {precedence}
-eval_is {expr 2*(3+4)*2} 28 {parens} {TODO NQPRX}
+eval_is {expr 2*(3+4)*2} 28 {parens}
 
 
 is [expr {1 ? 14 : [expr {}]}] 14 \