Add --rxtrace option, temporarily disable .lineof calculation for now.

Raku · Jun 30, 2011 · 6d9b526 · 6d9b526
1 parent e00bafe
commit 6d9b526
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
@@ -57,7 +57,7 @@ class HLL::Compiler {
         @!stages     := pir::split(' ', 'parse past post pir evalpmc');
 
         # Command options and usage.
-        @!cmdoptions := pir::split(' ', 'e=s help|h target=s dumper=s trace|t=s encoding=s output|o=s combine version|v show-config stagestats ll-backtrace nqpevent=s');
+        @!cmdoptions := pir::split(' ', 'e=s help|h target=s dumper=s trace|t=s encoding=s output|o=s combine version|v show-config stagestats ll-backtrace nqpevent=s rxtrace');
         $!usage := "This compiler is based on HLL::Compler.\n\nOptions:\n";
         for @!cmdoptions {
             $!usage := $!usage ~ "    $_\n";

diff --git a/src/Regex/Cursor.pir b/src/Regex/Cursor.pir
@@ -773,18 +773,20 @@ Log a debug message.
     fmt = new ['ResizablePMCArray']
     from = repr_get_attr_int self, cur_class, '$!from'
     orig = getattribute self, cur_class, '$!target'
-    $P0 = get_hll_global ['HLL'], 'Compiler'
-    line = $P0.'lineof'(orig, from, 'cache'=>1)
+    # $P0 = get_hll_global ['HLL'], 'Compiler'
+    # line = $P0.'lineof'(orig, from, 'cache'=>1)
+    line = box -1
 
     $P0 = getinterp
     $P1 = $P0.'stderr_handle'()
 
     $N0 = time
     push fmt, $N0
     push fmt, from
-    push fmt, line
+    # push fmt, line
     push fmt, tag
-    $S0 = sprintf "%.6f %d/%d %-8s ", fmt
+    # $S0 = sprintf "%.6f %d/%d %-8s ", fmt
+    $S0 = sprintf "%.6f %d/... %-8s ", fmt
     print $P1, $S0
     $S0 = join '', args
     print $P1, $S0