Brought up to date
[swftools.git] / doc / codebeautifier.pl
1 while(<stdin>)
2 {
3     if(/\[CALLPERL .*left\]/ ... /\[CALLPERL end\]/) {
4         $code .= $_ if(!/CALLPERL/);
5         $name = $1 if(/.swf.*name=([^&][^ ]*)/);
6         $name = $1 if(/.swf.*name=&quot;([^&]*)&quot;/);
7     } 
8     elsif(/\[CALLPERL .*right\]/ ... /\[CALLPERL end\]/) {
9         $highlight .= $_ if(!/CALLPERL/);
10     }
11     elsif ($code ne "") {
12         $code =~ s/&quot;/"/g;
13         open(fi, ">tmp.sc");print fi $code;close(fi);
14         system("swfc tmp.sc");
15         ($embed = `swfdump -e $name`) =~ /WIDTH="([^"]*)"/;
16         $width = $1;
17         print "<td bgcolor=\"#ffffff\" width=\"$width\">";
18         print $embed;
19         print "</td>";
20         $code="";
21         print;
22         unlink "tmp.sc";
23     }
24     elsif ($highlight ne "") {
25         $highlight =~ s/^\n\s*//g;
26         $highlight =~ s/\s*\n$//g;
27         print "<pre>\n";
28         # todo: apply syntax highlighting.
29         print $highlight."\n";
30         print "</pre>\n";
31         $highlight="";
32         print;
33     }
34     else {
35         print;
36     }
37 }