doclib/filter.pl

   1 #!/usr/bin/perl -n
   2
   3 if (/^\s*\\code\s*$/ .. /\\endcode/) {
   4     $i=length((/^(\s*)/)[0]) if /^\s*\\code\s*$/;
   5     print substr($_,$i);
   6 } else {
   7     print;
   8 }