First implementation of senfutil.Doxygen

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

diff --git a/site_scons/lib/filter.pl b/site_scons/lib/filter.pl
new file mode 100755 (executable)
index 0000000..14ad930
--- /dev/null
+++ b/site_scons/lib/filter.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -n
+
+BEGIN {
+    ($topdir=$0) =~ s{doclib/.*$}{};
+    print $topdir,"\n";
+}
+
+s/\s*$//;
+while (s/\t/' 'x(8-length($`)%8)/e) {}
+
+if (/^\s*\\code$/ .. /\\endcode/ && !/^$/) {
+    $i=length($1) if /^(\s*)\\code$/;
+    print substr($_,$i),"\n";
+} 
+elsif (s/^(\s*)<pre>$/$1<pre class="fragment">/ .. /<\/pre>/ && !/^$/) {
+    $i=length($1) if /^(\s*)<pre class="fragment">$/;
+    print substr($_,$i),"\n";
+} 
+else {
+    print $_,"\n";
+}