Changeset 22840 for src

Timestamp:

10/31/08 18:50:45 (2 months ago)

Author:

azawawi

Message:

[STD_syntax_highlight] changed the redspans* to simple*

Location:

src/perl6

Files:

• ETOOMUCHTIME (modified) (3 diffs)
• STD_syntax_highlight (modified) (6 diffs)

src/perl6/ETOOMUCHTIME

@@ -42 +42 @@
     my $myfile = $file;
     $myfile =~ s/^\.\.\/\.\.\/t\/spec/html/;   
-    my ($redspans_html,$full_html) = ("$myfile.simple.html", "$myfile.html");
+    my ($simple_html,$full_html) = ("$myfile.simple.html", "$myfile.html");
     my ($html_filename,$html_path,$html_suffix) = fileparse($full_html);
     mkpath $html_path;
@@ -51 +51 @@
 $file
     -> $full_html
-    -> $redspans_html
+    -> $simple_html
 OUT
     my $t0 = new Benchmark;
     my $cmd = "./$HILITE --clean-html " .
-            "--redspans-html=$redspans_html " .
+            "--redspans-html=$simple_html " .
             "--full-html=$full_html $file";
     my $log = `$cmd 2>&1`;
@@ -84 +84 @@
 </pre></body></html>
 ERROR
-        open REDSPANS_HTML, ">$redspans_html"
-            or die "Could not open $redspans_html for writing: $OS_ERROR\n";
-        print REDSPANS_HTML $error_html;       
-        close REDSPANS_HTML;
+        open SIMPLE_HTML, ">$simple_html"
+            or die "Could not open $simple_html for writing: $OS_ERROR\n";
+        print SIMPLE_HTML $error_html;       
+        close SIMPLE_HTML;
         open FULL_HTML, ">$full_html"
             or die "Could not open $full_html for writing: $OS_ERROR\n";

src/perl6/STD_syntax_highlight

@@ -30 +30 @@
     STD_syntax_highlight foo.pl statementlist
 
-    # write redspans output to foo.redspans.html
-    STD_syntax_highlight --redspans-html=foo.redspans.html foo.pl
+    # write simple output to foo.pl.html
+    STD_syntax_highlight --simple-html=foo.pl.html foo.pl
 
 =head1 SUBROUTINES
@@ -40 +40 @@
 
 my ($clean_html,$help) = (0,0);
-my ($full_html,$redspans_html) = (0,'-');
+my ($full_html,$simple_html) = (0,'-');
 my ($file, $parser, $src_text); 
 
@@ -56 +56 @@
         "clean-html"=>\$clean_html,
         "full-html=s"=>\$full_html,
-        "redspans-html=s"=>\$redspans_html,
+        "simple-html=s"=>\$simple_html,
         "help"=>\$help
     );
@@ -73 +73 @@
         write full-mode html to filename (disabled by default, - for STDOUT)
 
-    --redspans-html=filename   
-        write redspans-mode html to filename (enabled by default, - for STDOUT)
+    --simple-html=filename   
+        write simple-mode html to filename (enabled by default, - for STDOUT)
 
 HELP
@@ -124 +124 @@
         write_html_file $full_html, $html;
     }
-    if($redspans_html) {
-        my $html = highlight_perl6_redspans();
-        write_html_file $redspans_html, $html;
+    if($simple_html) {
+        my $html = highlight_perl6_simple();
+        write_html_file $simple_html, $html;
     }
 }
@@ -243 +243 @@
 }
 
-=item highlight_perl6_redspans
-
-This is same as C<highlight_perl6_full> when --redspans is used.
+=item highlight_perl6_simple
+
+This is same as C<highlight_perl6_full> when --simple-html is used.
 No more javascript tree viewer or anything fancy. 
 Only nodes that have a color are printed. Not optimal but works ;-)
 =cut
-sub highlight_perl6_redspans {
+sub highlight_perl6_simple {
     my $str = "";
     my %colors = ();