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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#!/bin/sh
digest()
{
local fn bn
fn=$1
bn=${fn#./}
if test -d "$fn"
then
echo "D $bn"
return
fi
prm=`grep "@@purpose" $fn`
if test -z "$prm"
then
tags=`awk '
/^##/ {
tag=$0
sub("^##","", tag)
printf " %s", tag
}
' < $fn`
echo "S $bn $tags"
else
tags=`awk '
/^@@tag/ {
tag=$0
sub("^@@tag *","", tag)
printf " %s", tag
}
' < $fn`
echo "P $bn $tags"
fi
}
(
cd ../../footprint
for n in `find .`
do
case $n in
*.svn*) ;;
.) ;;
*)
digest $n
esac
done
)
|
