site_scons/lib/filter.pl

   1 #!/usr/bin/perl -n
   2
   3 BEGIN {
   4     ($libdir=$0) =~ s{/[^/]*$}{};
   5 }
   6
   7 s/\s*$//;
   8 while (s/\t/' 'x(8-length($`)%8)/e) {}
   9
  10 if (/^\s*\\code$/ .. /\\endcode/ && !/^$/) {
  11     $i=length($1) if /^(\s*)\\code$/;
  12     print substr($_,$i),"\n";
  13 }
  14 elsif (s/^(\s*)<pre>$/$1<pre class="fragment">/ .. /<\/pre>/ && !/^$/) {
  15     $i=length($1) if /^(\s*)<pre class="fragment">$/;
  16     print substr($_,$i),"\n";
  17 }
  18 elsif (/\\diaimage\s+(\S+)/) {
  19     $dia=$1;
  20     ($png=$dia)=~s/\.dia$/.png/;
  21     system("python $libdir/makeDiaImageMap.py $dia");
  22 }
  23 else {
  24     print $_,"\n";
  25 }