Add debugging output to <alpha>.

perl6 · Sep 1, 2010 · 29ce78f · 29ce78f
1 parent 71b25e6
commit 29ce78f
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/Regex/Cursor-builtins.pir b/src/Regex/Cursor-builtins.pir
@@ -144,6 +144,11 @@ Regex::Cursor-builtins - builtin regexes for Cursor objects
     .local int pos
     .local string tgt
     (cur, pos, tgt) = self.'!cursor_start'()
+    .local pmc debug
+    debug = getattribute cur, '$!debug'
+    if null debug goto debug_1
+    cur.'!cursor_debug'('START', 'alpha')
+  debug_1:
     $I0 = is_cclass .CCLASS_ALPHABETIC, tgt, pos
     if $I0 goto pass
 
@@ -155,7 +160,13 @@ Regex::Cursor-builtins - builtin regexes for Cursor objects
   pass:
     inc pos
     cur.'!cursor_pass'(pos, 'alpha')
+    if null debug goto done
+    cur.'!cursor_debug'('PASS', 'alpha')
+    goto done
   fail:
+    if null debug goto done
+    cur.'!cursor_debug'('FAIL', 'alpha')
+  done:
     .return (cur)
 .end