Add <before> builtin subrule.

perl6 · Oct 14, 2009 · 9ca78a9 · 9ca78a9
1 parent 3af996e
commit 9ca78a9
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/src/Regex/Cursor-builtins.pir b/src/Regex/Cursor-builtins.pir
@@ -11,6 +11,20 @@ Regex::Cursor-builtins - builtin regexes for Cursor objects
 
 .namespace ['Regex';'Cursor']
 
+.sub 'before' :method
+    .param pmc regex           :optional
+    .local pmc cur
+    .local int pos
+    (cur, pos) = self.'!cursor_start'()
+    if null regex goto fail
+    $P0 = cur.regex()
+    unless $P0 goto fail
+    cur.'!cursor_pass'(pos, 'before')
+  fail:
+    .return (cur)
+.end
+
+
 .sub 'ident' :method
     .local pmc cur
     .local int pos, eos

diff --git a/t/p6regex/01-regex.t b/t/p6regex/01-regex.t
@@ -77,7 +77,7 @@ Description of the test.
     push test_files, 'rx_backtrack'
     push test_files, 'rx_charclass'
     push test_files, 'rx_subrules'
-    # push test_files, 'rx_lookarounds'
+    push test_files, 'rx_lookarounds'
     push test_files, 'rx_captures'
     push test_files, 'rx_modifiers'
     # push test_files, 'rx_syntax'