doclib/filter.pl

   1 #!/usr/bin/perl -n
   2
   3 s/\s*$//;
   4 while (s/\t/' 'x(8-length($`)%8)/e) {}
   5
   6 if (/^\s*\\code$/ .. /\\endcode/ && !/^$/) {
   7     $i=length($1) if /^(\s*)\\code$/;
   8     print substr($_,$i),"\n";
   9 } elsif (s/^(\s*)<pre>$/$1<pre class="fragment">/ .. /<\/pre>/ && !/^$/) {
  10     $i=length($1) if /^(\s*)<pre class="fragment">$/;
  11     print substr($_,$i),"\n";
  12 } else {
  13     print $_,"\n";
  14 }