blob: 3a299568ccdc70ae76f20745aaa2d4eab0c122d4 (
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
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
|
#!/bin/sh
usage() {
cat <<EOF
Usage: $( basename $0 ) [diff-opts] [-- listbas-opts] file1.bas file2.bas
Diff two tokenized Atari BASIC programs, using listbas(1) and diff(1).
[diff-opts] is passed through as-is to diff.
[listbas-opts] is passed through as-is to listbas.
EOF
exit "$1"
}
cleanup() {
if [ "$dir" != "" ]; then
cd
rm -rf "$dir"
fi
}
if [ "$1" = "-h" -o "$1" = "--help" -o "$1" = "" ]; then
usage 0
fi
for i in "$@"; do
if [ -f "$i" ]; then
if [ "$file1" = "" ]; then
file1="$( realpath $i )"
base1="$( basename $i )".lst
elif [ "$file2" = "" ]; then
file2="$( realpath $i )"
base2="$( basename $i )".lst
else
usage 1
fi
elif [ "$i" = "--" ]; then
opts="listbasopts"
elif [ "$opts" = "listbasopts" ]; then
listbasopts="$listbasopts $i"
else
diffopts="$diffopts $i"
fi
done
dir="$( mktemp -d -t diffbas.XXXXXXXXXX )"
[ -d "$dir" ]
cd "$dir"
trap cleanup EXIT
listbas $listbasopts "$file1" > $base1
listbas $listbasopts "$file2" > $base2
diff $diffopts $base1 $base2
exit 0
|
