Changeset 22830 for src

Timestamp:

10/30/08 19:05:44 (2 months ago)

Author:

azawawi

Message:

[STD_syntax_highlight] #-comments support in --redspans

Files:

• src/perl6/STD_syntax_highlight (modified) (2 diffs)

src/perl6/STD_syntax_highlight

@@ -387 +387 @@
             @rules = reverse(split / /,$last_tree) if $last_tree ne '';
             for $rule (@rules) {
-                if($colors{$rule} && $buffer ne '') {
+                if($rule eq 'unv') {
+                    $rule_to_color = '_comment';
+                    last;
+                } elsif($colors{$rule} && $buffer ne '') {
                     $rule_to_color = $rule;
                     last;
@@ -399 +402 @@
                         $str .= qq{<span class="_routine">$buffer</span>};
                     } else {
-                        $str .= qq{<span class='$rule_to_color'>$buffer</span>};
+                        $str .= qq{<span class="$rule_to_color">$buffer</span>};
                     }
                 } else {              
-                    $str .= qq{<span class='$rule_to_color'>$buffer</span>};
+                    $str .= qq{<span class="$rule_to_color">$buffer</span>};
                 }
             } else {