Changeset 22842 for src

Timestamp:

10/31/08 20:07:06 (2 months ago)

Author:

azawawi

Message:

[STD_syntax_highlight] --simple-html=- is enabled by default if no other option is found

Files:

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

src/perl6/STD_syntax_highlight

@@ -44 +44 @@
 
 my ($clean_html,$help) = (0,0);
-my ($full_html,$simple_html,$ansi_text) = (0,'-',0);
+my ($full_html,$simple_html,$ansi_text) = (0,0,0);
 my ($file, $parser, $src_text); 
 
@@ -76 +76 @@
 
     --full-html=filename   
-        write full-mode html to filename (disabled by default, - for STDOUT)
+        write full-mode html to filename (- for STDOUT)
 
     --simple-html=filename   
-        write simple-mode html to filename (enabled by default, - for STDOUT)
+        write simple-mode html to filename (defaults to STDOUT if no other 
+        option is selected, - for STDOUT)
 
     --ansi-text=filename   
-        write simple-mode ansi color text to filename (enabled by default, - for STDOUT)
+        write simple-mode ansi color text to filename (- for STDOUT)
 
 HELP
+    }
+
+    #default is --simple-html=- if no option is selected
+    if(!($ansi_text || $full_html) && !$simple_html) {
+        $simple_html = '-';    
     }