1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/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/</</g;
s/>/>/g;
s/(\[)([+\-=])(.*?)([+\-=])(\])/<font color="green">[$2$3$4]<\/font>/g;
s/(<%.*?%>)/<font color="green">$1<\/font>/g;
s/($keyre)/<b>$1<\/b>/ig;
' < $i >> sources/$o
echo '</pre>' >> sources/$o
done
|
