4 ($libdir=$0) =~ s{/[^/]*$}{};
8 while (s/\t/' 'x(8-length($`)%8)/e) {}
10 if (/^\s*\\code$/ .. /\\endcode/ && !/^$/) {
11 $i=length($1) if /^(\s*)\\code$/;
12 print substr($_,$i),"\n";
14 elsif (s/^(\s*)<pre>$/$1<pre class="fragment">/ .. /<\/pre>/ && !/^$/) {
15 $i=length($1) if /^(\s*)<pre class="fragment">$/;
16 print substr($_,$i),"\n";
18 elsif (/\\diaimage\s+(\S+)/) {
20 ($png=$dia)=~s/\.dia$/.png/;
21 system("python $libdir/makeDiaImageMap.py $dia");