blob: b65f2d244ff7c611abae2394e1c39bf078790c4f (
plain) (
blame)
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
|
#!/bin/sh
QBE=./lisc
CC=cc
TMP=/tmp/qbe.zzzz
DRV=$TMP.c
ASM=$TMP.s
BIN=$TMP.bin
OUT=$TMP.out
cleanup() {
rm -f $DRV $ASM $BIN $OUT
}
extract() {
WHAT="$1"
FILE="$2"
awk "
/^# >>> $WHAT/ {
p = 1
next
}
/^# <<</ {
if (p)
p = 0
}
p
" $FILE \
| sed -e 's/# //' \
| sed -e 's/#$//'
}
once() {
T="$1"
if ! test -f $T
then
echo "invalid test file $T" >&2
exit 1
fi
printf "$T... "
if ! $QBE $T -o $ASM 2> /dev/null
then
echo "[qbe fail]"
return 1
fi
extract driver $T > $DRV
extract output $T > $OUT
if test -s $DRV
then
LNK="$DRV $ASM"
else
LNK="$ASM"
fi
if ! $CC -o $BIN $LNK
then
echo "[cc fail]"
return 1
fi
echo "[ok]"
}
#trap cleanup TERM QUIT
case $1 in
"all")
F=0
for T in test/*
do
once $T
F=`expr $F + $?`
done
if test $F -ge 1
then
echo
echo "$F test(s) failed!"
else
echo
echo "All is fine!"
fi
;;
*)
once $1
exit $?
;;
esac
|
