Changeset 22821 for src

Timestamp:

10/29/08 21:29:15 (2 months ago)

Author:

azawawi

Message:

[STD_syntax_highlight] updates to pod docs... --redspans-html=filename option
[STD_syntax_highlight] redspans-mode is not ready yet ... working on it...

Files:

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

src/perl6/STD_syntax_highlight

@@ -31 +31 @@
 
     # write only simple html/css to simple.html
-    STD_syntax_highlight --simple-html=simple.html foo.pl
+    STD_syntax_highlight --simple-html=foo.simple.html foo.pl
+
+    # write redspans output to foo.redspans.html
+    STD_syntax_highlight --redspans-html=foo.redspans.html foo.pl
 =head1 SUBROUTINES
 
@@ -40 +43 @@
 #process the command line
 my ($clean_html,$help) = (0,0);
-my ($simple_html,$full_html) = (0,'-');
+my ($simple_html,$full_html,$redspans_html) = (0,'-',0);
 GetOptions(
     "clean-html"=>\$clean_html,
     "simple-html=s"=>\$simple_html,
     "full-html=s"=>\$full_html,
+    "redspans-html=s"=>\$redspans_html,
     "help"=>\$help
 );
@@ -59 +63 @@
 
     --simple-html=filename
-        simple mode output filename (disabled by default, - for STDOUT)  
+        write simple-mode html to filename (disabled by default, - for STDOUT)  
 
     --full-html=filename   
-        full mode output filename (enabled by default, - for STDOUT)
+        write full-mode html to filename (enabled by default, - for STDOUT)
+ 
+    --redspans-html=filename   
+        write redspans-mode html to filename (enabled by default, - for STDOUT)
     
 HELP
@@ -107 +114 @@
             open FILE, ">$full_html" or
                 die "Cannot open $full_html for writing: $OS_ERROR\n";
+            print FILE $output;
+            close FILE;
+        }
+    }
+    if($redspans_html) {
+        my $output = highlight_perl6_redspans();
+        if($redspans_html eq '-') {
+            print $output;
+        } else {
+            open FILE, ">$redspans_html" or
+                die "Cannot open $redspans_html for writing: $OS_ERROR\n";
             print FILE $output;
             close FILE;
@@ -302 +320 @@
 }
 
+=item highlight_perl6_redspans
+
+This is same as C<highlight_perl> when --redspans 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 {
+   # my ($orig,$events,$opt) = @_;
+}
+
 =item escape_html
 
@@ -330 +358 @@
 The initial STD tree traversal code was written by Paweł Murias (pmurias).
 
+The redspans traversal code was written by Larry Wall (TimToady).
+
 The browser code was written by Ahmad M. Zawawi (azawawi)
 =cut