Support contextualizers; passes 35-prefix-sigil.t.

perl6 · Oct 30, 2009 · 0bee741 · 0bee741
1 parent 0772654
commit 0bee741
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -498,6 +498,15 @@ method circumfix:sym<ang>($/) { make $<quote_EXPR>.ast; }
 
 method circumfix:sym<{ }>($/) { make $<pblock>.ast; }
 
+method circumfix:sym<sigil>($/) {
+    my $name := ~$<sigil> eq '@' ?? 'list' !!
+                ~$<sigil> eq '%' ?? 'hash' !!
+                                    'item';
+    make PAST::Op.new( :pasttype('callmethod'), :name($name), $<semilist>.ast );
+}
+
+method semilist($/) { make $<statement>.ast }
+
 method postcircumfix:sym<[ ]>($/) {
     make PAST::Var.new( $<EXPR>.ast , :scope('keyed_int'),
                         :viviself('Undef'),

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -295,6 +295,9 @@ token quote:sym<Q:PIR> { 'Q:PIR' <.ws> <quote_EXPR> }
 token circumfix:sym<( )> { '(' <.ws> <EXPR> ')' }
 token circumfix:sym<ang> { <?[<]>  <quote_EXPR: ':q', ':w'>  }
 token circumfix:sym<{ }> { <?[{]> <pblock> }
+token circumfix:sym<sigil> { <sigil> '(' ~ ')' <semilist> }
+
+rule semilist { <statement> }
 
 ## Operators