Changeset 22823 for src

Timestamp:

10/29/08 22:48:07 (2 months ago)

Author:

azawawi

Message:

[STD_syntax_highlight] redspans is now working... htmls are cool.
[STD_syntax_highlight] They're like --simple but way faster...

Files:

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

src/perl6/STD_syntax_highlight

@@ -337 +337 @@
 =cut
 sub highlight_perl6_redspans {
-   # my ($orig,$events,$opt) = @_;
     my $str = "";
     my %colors = ();
@@ -358 +357 @@
     close CSS_FILE;
 
-    # slurp libraries and javascript to inline them
+    # slurp css inline it
     my $css = qq{<link href="../$CSS" rel="stylesheet" type="text/css">};
     if(!$clean_html) {
@@ -386 +385 @@
         my $tree = "@{$loc[$i]}";
         if($tree ne $last_tree) {
-            $str .= "\n'$buffer'\n$last_tree\n" if $buffer ne '';
+            my $rule;
+            my $rule_to_color = 0;
+            $buffer = escape_html($buffer);
+            my @rules = ();
+            @rules = reverse(split / /,$last_tree) if $last_tree ne '';
+            for $rule (@rules) {
+                if($colors{$rule} && $buffer ne '') {
+                    $rule_to_color = $rule;
+                    last;
+                }
+            }
+            if($rule_to_color) {
+                $str .= qq{<span class='$rule_to_color'>$buffer</span>};
+            } else {
+                $str .= qq{$buffer};
+            }
             $buffer = $c;
         } else {