Implement m// and rx//

sorear · Feb 19, 2011 · 4333201 · 4333201
1 parent 7caeccd
commit 4333201
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/TODO b/TODO
@@ -26,7 +26,7 @@ EASY
 
    Stuff spectests are blocking on: "Block", "&hash", "writable $_",
    "closure for", "ranges of chars", "gather for",
-   "my regex / <&foo>", "m//",
+   "my regex / <&foo>",
 
    At least parsing Int et al on my-decls would help a lot
 

diff --git a/src/niecza b/src/niecza
@@ -23,6 +23,16 @@ use NieczaActions;
 use OpHelpers;
 use Operator;
 
+augment class NieczaActions {
+method quote:rx ($/) { make self.op_for_regex($/, $<quibble>.ast); }
+method quote:m  ($/) {
+    make mkcall($/, '&prefix:<?>',
+        ::Op::CallMethod.new(|node($/), name => 'ACCEPTS',
+            receiver => self.op_for_regex($/, $<quibble>.ast),
+            args => [ mklex($/, '$_') ]));
+}
+}
+
 my $usage = q:to/EOM/;
 niecza -- a command line wrapper for Niecza