4 ($topdir=$0) =~ s{doclib/.*$}{};
9 while (s/\t/' 'x(8-length($`)%8)/e) {}
11 if (/^\s*\\code$/ .. /\\endcode/ && !/^$/) {
12 $i=length($1) if /^(\s*)\\code$/;
13 print substr($_,$i),"\n";
15 elsif (s/^(\s*)<pre>$/$1<pre class="fragment">/ .. /<\/pre>/ && !/^$/) {
16 $i=length($1) if /^(\s*)<pre class="fragment">$/;
17 print substr($_,$i),"\n";