blob: 6f49ad1bd4397c3b56708b2d4cfe35cb0671da10 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
testfile()
{
filename=$1
echo $filename
echo `pwd`
perl parser.pl $filename > $filename.gv
unflatten -f -l 10 -c 10 -o $filename1.gv $filename.gv
dot -Tpng $filename1.gv > $filename.png
rm $filename.gv $filename1.gv
}
if [ $# -eq 0 ]
then
for entry in t/*.txt
do
testfile $entry
done
else
for entry in $@
do
testfile $entry
done
fi
|