git.asbjorn.biz
/
swftools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
30dac8e
)
support for python and shellscript
author
kramm
<kramm>
Tue, 1 Apr 2008 16:14:10 +0000
(16:14 +0000)
committer
kramm
<kramm>
Tue, 1 Apr 2008 16:14:10 +0000
(16:14 +0000)
doc/codebeautifier.pl
patch
|
blob
|
history
diff --git
a/doc/codebeautifier.pl
b/doc/codebeautifier.pl
index
517bd69
..
169b23c
100644
(file)
--- a/
doc/codebeautifier.pl
+++ b/
doc/codebeautifier.pl
@@
-1,3
+1,4
@@
+$nr = 1;
while(<stdin>)
{
if(/\[CALLPERL\s+(.*)\s+left\]/ ... /\[CALLPERL end\]/) {
while(<stdin>)
{
if(/\[CALLPERL\s+(.*)\s+left\]/ ... /\[CALLPERL end\]/) {
@@
-28,6
+29,18
@@
while(<stdin>)
print;
unlink "tmp.sc";
}
print;
unlink "tmp.sc";
}
+ elsif ($code ne "" && ($lang eq "python" or $lang eq "shell")) {
+ $code =~ s/"/"/g;
+ if($lang eq "python") {
+ open(fi, ">$nr.py");print fi $code;close(fi);
+ $nr = $nr + 1;
+ }
+ print "<td bgcolor=\"#ffffff\" width=\"$width\">";
+ print $embed;
+ print "</td>";
+ $code="";
+ print;
+ }
elsif ($code ne "") {
$code="";
}
elsif ($code ne "") {
$code="";
}