Add circumfix: .

perl6 · Oct 19, 2009 · 29c3519 · 29c3519
1 parent 7574241
commit 29c3519
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 0 deletions.
diff --git a/src/HLL/Actions.pm b/src/HLL/Actions.pm
@@ -36,6 +36,7 @@ method termish($/) {
 }
 
 method noun:sym<term>($/) { make $<term>.ast }
+method noun:sym<circumfix>($/) { make $<circumfix>.ast }
 
 method integer($/) {
     make $<decint> 

diff --git a/src/HLL/Grammar.pm b/src/HLL/Grammar.pm
@@ -10,8 +10,10 @@ grammar HLL::Grammar;
     proto token infix { <...> }
     proto token prefix { <...> }
     proto token postfix { <...> }
+    proto token circumfix { <...> }
 
     token noun:sym<term> { <term> }
+    token noun:sym<circumfix> { <circumfix> }
 
     token infixish { <infix> }
     token prefixish { <prefix> }

diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -12,6 +12,8 @@ method TOP($/) { make $<EXPR>.ast; }
 
 method term:sym<value>($/) { make $<value>.ast; }
 
+method circumfix:sym<( )>($/) { make $<EXPR>.ast; }
+
 method value($/) {
     my $past := PAST::Val.new( 
                     :value($<integer> 

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -19,6 +19,7 @@ token prefix:sym<--> { $<sym>=['--'] <O('%autoincrement')> }
 
 token postfix:sym<++> { $<sym>=['++'] <O('%autoincrement')> }
 
+token circumfix:sym<( )> { '(' <EXPR> ')' }
 
 token value {
     | <integer>