Add variable assertions.

rakudo · May 25, 2010 · f9a12d2 · f9a12d2
1 parent 3362b1a
commit f9a12d2
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2576,6 +2576,11 @@ class Perl6::RegexActions is Regex::P6Regex::Actions {
                               :pasttype<pastnode>, :node($/) );
     }
 
+    method assertion:sym<var>($/) {
+        make PAST::Regex.new( '!INTERPOLATE_REGEX', $<var>.ast,
+                              :pasttype<subrule>, :subtype<method>, :node($/));
+    }
+
     method codeblock($/) {
         my $block := $<block>.ast;
         $block.blocktype('immediate');

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1818,6 +1818,10 @@ grammar Perl6::Regex is Regex::P6Regex::Grammar {
         $<zw>=[ <[?!]> <?before '{'> ] <codeblock>
     }
 
+    token assertion:sym<var> {
+        <?[$@]> <var=.LANG('MAIN', 'variable')>
+    }
+
     token codeblock {
         <block=.LANG('MAIN','block')>
     }