Changeset 22881 for src

Timestamp:

11/04/08 20:32:32 (2 months ago)

Author:

azawawi

Message:

[STD_syntax_highlight] implemented --yaml, [particle]++

Files:

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

src/perl6/STD_syntax_highlight

@@ -12 +12 @@
 use File::Slurp;
 use Term::ANSIColor;
+use YAML::Dumper;
 
 # And finally our modules
@@ -40 +41 @@
     STD_syntax_highlight --ansi-text=- foo.pl
 
+    # write yaml output to STDOUT (can be useful to build filters)
+    STD_syntax_highlight --yaml=- foo.pl
 =head1 SUBROUTINES
 
@@ -47 +50 @@
 
 my ($clean_html,$help) = (0,0);
-my ($full_html,$simple_html,$snippet_html,$ansi_text) = (0,0,0,0);
+my ($full_html,$simple_html,$snippet_html,$ansi_text,$yaml) = (0,0,0,0,0);
 my ($file, $parser, $src_text); 
 
@@ -66 +69 @@
         "snippet-html=s"=>\$snippet_html,
         "ansi-text=s"=>\$ansi_text,
+        "yaml=s"=>\$yaml,
         "help"=>\$help
     );
@@ -93 +97 @@
         write simple-mode ansi color text to filename (- for STDOUT)
 
+    --yaml=filename
+        writes a dump of redspans to filename (- for STDOUT)
 HELP
     }
 
     #default is --simple-html=- if no option is selected
-    if(!($ansi_text || $full_html || $snippet_html) && !$simple_html) {
+    if(!($ansi_text || $full_html || $snippet_html || $yaml) && !$simple_html) {
         $simple_html = '-';    
     }
@@ -158 +164 @@
         my $text = highlight_perl6_ansi();
         write_output $ansi_text, $text;
+    }
+    if($yaml) {
+        my $text = highlight_perl6_yaml();
+        write_output $yaml, $text;
     }
 }
@@ -385 +395 @@
     $str;
 }
+
+
+=item highlight_perl6_yaml
+
+Spits out YAML that can be useful for the future
+=cut
+sub highlight_perl6_yaml {
+    my $str = "";
+    my %colors = ();
+
+    my $ANSI = "STD_syntax_highlight.ansi";
+    open ANSI_FILE, $ANSI
+        or die "Could not open $ANSI: $OS_ERROR\n";
+    my $line;
+    while($line = <ANSI_FILE>) {
+        if($line =~ /^(\w+)=(.+)$/) {
+            $colors{$1} = $2;
+        }
+    }
+    close ANSI_FILE;
+
+    my @yaml = ();
+    local *spit_yaml = sub {
+        push @yaml, @ARG;
+    };
+
+    redspans_traverse(\&spit_yaml,%colors); 
+
+    my $dumper = YAML::Dumper->new;
+    $dumper->indent_width(4);
+    $str .= $dumper->dump(@yaml);
+
+    $str;
+}
+
 
 =item redspans_traverse