Fix /< foo bar >/

sorear · May 27, 2011 · 18545a8 · 18545a8
1 parent b084a1e
commit 18545a8
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/niecza b/src/niecza
@@ -58,6 +58,14 @@ augment class Op::CallMethod { #OK exist
 }
 
 augment class NieczaActions {
+method metachar:qw ($/) {
+    my $cif = $<circumfix>.ast;
+    my @words = $cif.^isa(::Op::Paren) ?? @( $cif.inside.items ) !! $cif;
+    @words = map *.text, @words;
+
+    make ::RxOp::Alt.new(zyg => [ map { ::RxOp::String.new(text => $_,
+            igcase => %*RX<i>, igmark => %*RX<a>) }, @words ], dba => %*RX<dba>);
+}
 method dotty:sym<.*> ($/) {
     if $<sym> eq '.=' {
         make $<dottyop>.ast.meta_assign;