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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
#! /bin/sh
# -*- ksh -*-
: ${SRCDIR=.}
. $SRCDIR/defs || exit 1
# This program compares what produces two distinct versions of the program
# Same but with -g
GREF_DIR=$srcdir/gps-ref
GCHK_DIR=$builddir/gps-chk
# Here are stored the diff of outputs by both programs
DIFF=$builddir/ps-diff
GDIFF=$builddir/gps-diff
# Just used for the banner
whites=" "
# Remove trash
/bin/rm -f $TST_DIR/*~ $PS_DIFF $GPS_DIFF 2> /dev/null
# Make sure the directories exist
for dir in $GREF_DIR $GCHK_DIR $DIFF $GDIFF
do
test -d "$dir" || mkdir $dir
chmod u+wrx $dir
done
echo "-------------------------------------"
echo " Comparing generated PostScript"
echo "-------------------------------------"
# We explicitely give the style sheet to use, because:
# - it avoids the problems with broken file(1)
# - it is not the purpose of this test to test automatic style selection
# - some languages share the same suffix
for pair in $TEST_FILES
do
filename=`echo $pair | sed "s/:.*//"g`
lang=`echo $pair | sed "s/[^:]*://"g`
bannerfile=`echo "$filename$whites" | sed -e 's/^\(.\{18\}\).*/\1/'`
bannerlang=`echo "($lang)...$whites" | sed -e 's/^\(.\{16\}\).*/\1/'`
echo $echo_n "$bannerfile$bannerlang$echo_c"
if [ ! -f "$TST_DIR/$filename" ]; then
echo $ac_t "is not a test file"
continue
fi
# If the file has a `.', then sed the suffix to ps
# Otherwise, add `.ps'
if echo "$filename" | grep \\. >/dev/null; then
psfilename=`echo $filename | sed -e 's/\..*/.ps/g'`
else
psfilename=$filename.ps
fi
# The name of the input file.
file=$TST_DIR/$filename
# What produces this tested program?
$CHK -E$lang -P awkout $file > $CHK_DIR/$psfilename 2>&5
$CHK -Cgs2 -E$lang -P awkout $file > $GCHK_DIR/$psfilename 2>&5
# Build the references if missing, and protect them.
if [ ! -r "$REF_DIR/$psfilename" ]; then
$REF -E$lang -P awkout $file > $REF_DIR/$psfilename 2>&5 || :
fi
if [ ! -r "$GREF_DIR/$psfilename" ]; then
$REF -Cgs2 -E$lang -P awkout $file > $GREF_DIR/$psfilename 2>&5 || :
fi
# Compute the diffs. In a subshell and with `:' to avoid set -e
# catches the exit status of diff.
if (cmp $REF_DIR/$psfilename $CHK_DIR/$psfilename) >/dev/null 2>&1; then
# Identical.
rm -f $DIFF/$filename
nbdiff=0
else
# Different.
(diff $REF_DIR/$psfilename $CHK_DIR/$psfilename > $DIFF/$filename || :)
nbdiff=`wc -l <$DIFF/$filename`
fi
if (cmp $GREF_DIR/$psfilename $GCHK_DIR/$psfilename) >/dev/null 2>&1; then
# Identical.
rm -f $GDIFF/$filename
nbdiffsym=0
else
# Different.
(diff $GREF_DIR/$psfilename $GCHK_DIR/$psfilename > $GDIFF/$filename || :)
nbdiffsym=`wc -l <$GDIFF/$filename`
fi
case "$nbdiff$nbdiffsym" in
00) echo "Ok";;
*) echo "Bad: -ng -> $nbdiff, -g -> $nbdiffsym";;
esac
done
# Sumary of the diff's. Protect with `||:' the commands that may
# exit != 0 (because of set -e).
cd $DIFF
# I don't use `echo *`, since I don't know how the various shells behave
# when there are no files.
if test -n "`ls`"; then
(wc -l `ls` | sort -u | grep -v "^[ \t]*0"||:) > \
$builddir/sum-ps-diff
echo " There are differences with reference PostScript files:"
cat $builddir/sum-ps-diff
failure=1
fi
cd $GDIFF
if test -n "`ls`"; then
(wc -l `ls` | sort -u | grep -v "^[ \t]*0"||:) > \
$builddir/sum-gps-diff
echo " There are differences with reference PostScript files (with -g):"
cat $builddir/sum-gps-diff
failure=1
fi
exit $failure
|