3 if(/\[CALLPERL\s+(.*)\s+left\]/ ... /\[CALLPERL end\]/) {
5 $code .= $_ if(!/CALLPERL/);
6 $name = $1 if(/.flash.*name=([^&][^ ]*)/);
7 $name = $1 if(/.flash.*name="([^&]*)"/);
10 elsif(/\[CALLPERL .*right\]/ ... /\[CALLPERL end\]/) {
11 $highlight .= $_ if(!/CALLPERL/);
13 elsif ($code ne "" && ($lang eq "swfc" || $lang eq "sc")) {
14 $code =~ s/"/"/g;
16 # print stderr "Warning: ttf->swf\n" if($code =~ s/Arial.ttf/Arial.swf/g);
18 open(fi, ">tmp.sc");print fi $code;close(fi);
19 print stderr "[$lang] swfc tmp.sc ($name)\n";
20 system("../src/swfc tmp.sc >&2");
21 ($embed = `swfdump -e $name`) =~ /WIDTH="([^"]*)"/;
22 system("cp $name data");
24 print "<td bgcolor=\"#ffffff\" width=\"$width\">";
34 elsif ($highlight ne "") {
35 $highlight =~ s/^\n\s*//g;
36 $highlight =~ s/\s*\n$//g;
38 # todo: apply syntax highlighting.
39 print $highlight."\n";