allow the use of $(...) in P6Regex

Raku · Jan 24, 2013 · b8a381e · b8a381e
1 parent 82c2a06
commit b8a381e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -178,6 +178,10 @@ class QRegex::P6Regex::Actions is HLL::Actions {
         make QAST::Regex.new( :rxtype<anchor>, :subtype<bol>, :node($/) );
     }
 
+    method metachar:sym<$( )>($/) {
+        make $<nibbler>.ast
+    }
+
     method metachar:sym<$>($/) {
         make QAST::Regex.new( :rxtype<anchor>, :subtype<eos>, :node($/) );
     }

diff --git a/src/QRegex/P6Regex/Grammar.nqp b/src/QRegex/P6Regex/Grammar.nqp
@@ -178,6 +178,7 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
     token metachar:sym<ws> { <.normspace> }
     token metachar:sym<[ ]> { '[' <nibbler> ']' }
     token metachar:sym<( )> { '(' <nibbler> ')' }
+    token metachar:sym<$( )> { '$(' <nibbler> ')' }
     token metachar:sym<'> { <?[']> <quote_EXPR: ':q'> }
     token metachar:sym<"> { <?["]> <quote_EXPR: ':qq'> }
     token metachar:sym<.> { <sym> }