git.asbjorn.biz
/
swftools.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added some dependencies.
[swftools.git]
/
doc
/
codebeautifier.pl
diff --git
a/doc/codebeautifier.pl
b/doc/codebeautifier.pl
index
094c523
..
8ecfc29
100644
(file)
--- a/
doc/codebeautifier.pl
+++ b/
doc/codebeautifier.pl
@@
-2,17
+2,23
@@
while(<stdin>)
{
if(/\[CALLPERL .*left\]/ ... /\[CALLPERL end\]/) {
$code .= $_ if(!/CALLPERL/);
{
if(/\[CALLPERL .*left\]/ ... /\[CALLPERL end\]/) {
$code .= $_ if(!/CALLPERL/);
- $name = $1 if(/.swf.*name=([^&][^ ]*)/);
- $name = $1 if(/.swf.*name="([^&]*)"/);
+ $name = $1 if(/.flash.*name=([^&][^ ]*)/);
+ $name = $1 if(/.flash.*name="([^&]*)"/);
+ chomp $name;
}
elsif(/\[CALLPERL .*right\]/ ... /\[CALLPERL end\]/) {
$highlight .= $_ if(!/CALLPERL/);
}
elsif ($code ne "") {
$code =~ s/"/"/g;
}
elsif(/\[CALLPERL .*right\]/ ... /\[CALLPERL end\]/) {
$highlight .= $_ if(!/CALLPERL/);
}
elsif ($code ne "") {
$code =~ s/"/"/g;
+
+# print stderr "Warning: ttf->swf\n" if($code =~ s/Arial.ttf/Arial.swf/g);
+
open(fi, ">tmp.sc");print fi $code;close(fi);
open(fi, ">tmp.sc");print fi $code;close(fi);
- system("swfc tmp.sc");
+ print stderr "swfc tmp.sc ($name)\n";
+ system("../src/swfc tmp.sc >&2");
($embed = `swfdump -e $name`) =~ /WIDTH="([^"]*)"/;
($embed = `swfdump -e $name`) =~ /WIDTH="([^"]*)"/;
+ system("cp $name data");
$width = $1;
print "<td bgcolor=\"#ffffff\" width=\"$width\">";
print $embed;
$width = $1;
print "<td bgcolor=\"#ffffff\" width=\"$width\">";
print $embed;