Get ~ goal matching syntax working again; Cursor.FAILGOAL is missing …

…yet, so the error sucks, but otherwise it seems to do the right thing.
Raku · Nov 18, 2011 · 5a3575c · 5a3575c
1 parent 5523be6
commit 5a3575c
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -201,6 +201,19 @@ class QRegex::P6Regex::Actions is HLL::Actions {
         make $qast;
     }
 
+    method metachar:sym<~>($/) {
+        make QAST::Regex.new(
+            $<EXPR>.ast,
+            QAST::Regex.new(
+                $<GOAL>.ast,
+                QAST::Regex.new( PAST::Node.new('FAILGOAL', ~$<GOAL>),
+                                  :rxtype<subrule>, :subtype<method> ),
+                :rxtype<altseq>
+            ),
+            :rxtype<concat>
+        );
+    }
+
     method backslash:sym<s>($/) {
         make QAST::Regex.new(:rxtype<cclass>, '.CCLASS_WHITESPACE', 
                              :subtype($<sym> eq 'n' ?? 'nl' !! ~$<sym>),