implement wantarray, so /@<foo>=./ is about arrays

Now $<foo> will contain an Array of Match objects, as if it had a quantifier applied on it. This is useful if you want to have consistant match structures for different inputs.
Raku · Sep 24, 2015 · ada83f2 · ada83f2
1 parent dadb7bc
commit ada83f2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -274,8 +274,9 @@ class QRegex::P6Regex::Actions is HLL::Actions {
             if ($qast.rxtype eq 'quant' || $qast.rxtype eq 'dynquant') && $qast[0].rxtype eq 'subrule' {
                 self.subrule_alias($qast[0], $name);
             }
-            elsif $qast.rxtype eq 'subrule' { 
-                self.subrule_alias($qast, $name); 
+            elsif $qast.rxtype eq 'subrule' {
+                self.subrule_alias($qast, $name);
+                $qast := QAST::Regex.new( :rxtype<quant>, :min(0), :max(-1), $qast) if $<wantarray>;
             }
             else {
                 $qast := QAST::Regex.new( $qast, :name($name), 

diff --git a/src/QRegex/P6Regex/Grammar.nqp b/src/QRegex/P6Regex/Grammar.nqp
@@ -316,6 +316,7 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
 
     token metachar:sym<var> {
         [
+        | $<wantarray>=['@'] '<' $<name>=[<-[>]>+] '>'
         | '$<' $<name>=[<-[>]>+] '>'
         | '$' $<pos>=[\d+]
         ]