doc/codebeautifier.pl

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