#!/bin/sh

rm -rf sources

for i in `find . -type d | egrep -v '(sources|CVS|~)'`; do
  i=`echo $i | sed -e 's/.//'`
  [ -d "sources$i" ] || mkdir sources$i
done

for i in `find . -type f -o -type l | egrep -v '(sources|CVS|gif|~)'`; do

  i=`perl -e '$_=$ARGV[0]; s/^\.\///; print $_' $i`
  o=`perl -e '$_=$ARGV[0]; s/(\.psp)?$/.psp/; print $_' $i`
  echo "$i -> sources/$o..";
  echo '<font size="+3"><b>'$i'</b></font><hr><pre>' > sources/$o
  perl -npe '
	BEGIN { $keyre =
  "\\bpsp:((use_)?fieldspace|form|group|define|submit|verify|list|if|else|script|dynamicdisplay|include|input|display|handle|errorreport)\\b|vinstantiated|vverify|vfield"; }
  s/</&lt;/g;
  s/>/&gt;/g;
  s/(\[)([+\-=])(.*?)([+\-=])(\])/<font color="green">&#091;$2$3$4&#093;<\/font>/g;
  s/(<%.*?%>)/<font color="green">$1<\/font>/g;
  s/($keyre)/<b>$1<\/b>/ig;
' < $i >> sources/$o
  echo '</pre>' >> sources/$o
done

