oops, should have implemented <|w> in qregex right away. With basic tests this time

Author: moritz

src/QRegex/P6Regex/Actions.nqp

@@ -327,6 +327,22 @@ class QRegex::P6Regex::Actions is HLL::Actions {
         make $qast;
     }
 
+    method assertion:sym<|>($/) {
+        my $qast;
+        my $name := ~$<identifier>;
+        if $name eq 'c' {
+            # codepoint boundaries alway match in
+            # our current Unicode abstraction level
+            $qast := 0;
+        }
+        elsif $name eq 'w' {
+            $qast := QAST::Regex.new(:rxtype<subrule>, :subtype<method>,
+                                     :node($/), PAST::Node.new('wb'), 
+                                     :name('') );
+        }
+        make $qast;
+    }
+
     method assertion:sym<method>($/) {
         my $qast := $<assertion>.ast;
         $qast.subtype('method');

src/QRegex/P6Regex/Grammar.nqp

@@ -176,6 +176,7 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
 
     token assertion:sym<?> { '?' [ <?before '>' > | <assertion> ] }
     token assertion:sym<!> { '!' [ <?before '>' > | <assertion> ] }
+    token assertion:sym<|> { '|' <identifier> }
 
     token assertion:sym<method> {
         '.' <assertion>

t/qregex/rx_subrules

@@ -66,5 +66,7 @@ a<!wb>			abc\ndef\n-==\nghi	y	\w\w nonword boundary
 <+alpha-[Jj]>+	abc				y	character class with no j
 <+ alpha - [ Jj ]>	abc			y	character class with no j with ws
 ^<+alpha-[Jj]>+$	aJc			n	character class with no j fail
+^a<|w>				a/			y	<|w> matches
+^a<|w>				ab			n	<|w> without match
 
 ## vim: noexpandtab tabstop=4 shiftwidth=4