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 } else {
  10     print $_,"\n";
  11 }