Add regex parameters to named assertions.

perl6 · Oct 14, 2009 · 3af996e · 3af996e
1 parent b9ea370
commit 3af996e
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -277,7 +277,12 @@ method assertion:sym<method>($/) {
 method assertion:sym<name>($/) {
     my $name := ~$<longname>;
     my $past;
-    if $<assertion> {
+    if $<nibbler> {
+        my $subpast := buildsub($<nibbler>[0].ast);
+        $past := PAST::Regex.new( $name, $subpast, :name($name),
+                                  :pasttype('subrule'), :subtype('capture') );
+    }
+    elsif $<assertion> {
         $past := $<assertion>[0].ast;
         $past.name($name);
     }

diff --git a/src/Regex/P6Regex/Grammar.pm b/src/Regex/P6Regex/Grammar.pm
@@ -113,6 +113,7 @@ grammar Regex::P6Regex::Grammar is PCT::Grammar;
         $<longname>=[\w+]
             [
             | <?before '>'>
+            | <.normspace> <nibbler>
             | '=' <assertion>
             ]?
         {*}