automate makeDieImageMap.py processing

[senf.git] / site_scons / lib / filter.pl

diff --git a/site_scons/lib/filter.pl b/site_scons/lib/filter.pl
index 14ad930..c35ae81 100755 (executable)
--- a/site_scons/lib/filter.pl
+++ b/site_scons/lib/filter.pl
@@ -1,8 +1,7 @@
 #!/usr/bin/perl -n
 
 BEGIN {
-    ($topdir=$0) =~ s{doclib/.*$}{};
-    print $topdir,"\n";
+    ($libdir=$0) =~ s{/[^/]*$}{};
 }
 
 s/\s*$//;
@@ -16,6 +15,11 @@ elsif (s/^(\s*)<pre>$/$1<pre class="fragment">/ .. /<\/pre>/ && !/^$/) {
     $i=length($1) if /^(\s*)<pre class="fragment">$/;
     print substr($_,$i),"\n";
 } 
+elsif (/\\diaimage\s+(\S+)/) {
+    $dia=$1;
+    ($png=$dia)=~s/\.dia$/.png/;
+    system("python $libdir/makeDiaImageMap.py $dia");
+}
 else {
     print $_,"\n";
 }