Changeset 22816 for src

Timestamp:

10/29/08 19:01:40 (2 months ago)

Author:

azawawi

Message:

[redspans] Improved output to be more user-friendly, TimToady?++

Files:

• src/perl6/redspans (modified) (1 diff)

src/perl6/redspans

@@ -21 +21 @@
     STD->parsefile($file);
 
+    my ($last_tree,$buffer) = ("","");
     for my $i (0 .. @loc-1) {
-        say("Undefined $i"),next unless defined $loc[$i];
-        my $c = substr($txt,$i,1);
-        $c = '\n' if $c eq "\n";
-        $c = '\t' if $c eq "\t";
-        say "$i\t$c\t@{$loc[$i]}";
+        say("Undefined $i"),next unless defined $loc[$i];
+        my $c = substr($txt,$i,1);
+        my $tree = "@{$loc[$i]}";
+        if($tree ne $last_tree) {
+            say "\n'$buffer'\n$last_tree";
+            $buffer = $c;
+        } else {
+            $buffer .= $c;
+        }
+        $last_tree = $tree;
     }
 }