swfc manual- initial revision.

[swftools.git] / doc / codebeautifier.pl

diff --git a/doc/codebeautifier.pl b/doc/codebeautifier.pl
new file mode 100644 (file)
index 0000000..094c523
--- /dev/null
+++ b/doc/codebeautifier.pl
@@ -0,0 +1,37 @@
+while(<stdin>)
+{
+    if(/\[CALLPERL .*left\]/ ... /\[CALLPERL end\]/) {
+       $code .= $_ if(!/CALLPERL/);
+       $name = $1 if(/.swf.*name=([^&][^ ]*)/);
+       $name = $1 if(/.swf.*name=&quot;([^&]*)&quot;/);
+    } 
+    elsif(/\[CALLPERL .*right\]/ ... /\[CALLPERL end\]/) {
+       $highlight .= $_ if(!/CALLPERL/);
+    }
+    elsif ($code ne "") {
+       $code =~ s/&quot;/"/g;
+       open(fi, ">tmp.sc");print fi $code;close(fi);
+       system("swfc tmp.sc");
+       ($embed = `swfdump -e $name`) =~ /WIDTH="([^"]*)"/;
+       $width = $1;
+       print "<td bgcolor=\"#ffffff\" width=\"$width\">";
+       print $embed;
+       print "</td>";
+       $code="";
+       print;
+       unlink "tmp.sc";
+    }
+    elsif ($highlight ne "") {
+       $highlight =~ s/^\n\s*//g;
+       $highlight =~ s/\s*\n$//g;
+       print "<pre>\n";
+       # todo: apply syntax highlighting.
+       print $highlight."\n";
+       print "</pre>\n";
+       $highlight="";
+       print;
+    }
+    else {
+       print;
+    }
+}