blob: d3465ee92b1891e37651065aa337079718f93501 (
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
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
|
#!/bin/sh
# this is supposed to be POSIX sh compliant. their getopts docs:
# https://pubs.opengroup.org/onlinepubs/9699919799/utilities/getopts.html
SELF="$( echo $0 | sed 's,.*/,,' )"
die() {
echo "$SELF: $1" >& 2
exit 1
}
checkbin() {
if ! which "$1" >/dev/null 2>/dev/null; then
die "$1 not found on PATH, can't continue"
fi
}
print_help() {
cat <<EOF
$SELF: convert tokenized Atari BASIC to HTML
B. Watson <urchlay@slackware.uk>, WTFPL
Usage: $SELF -a<aha-options> -b<basver> -m input.bas <output.html>
-a next option is passed to aha(1). may be used multiple times.
-b set BASIC dialect. default is autodetection. valid dialects:
-ba Atari 8K BASIC
-ba+ OSS BASIC/A+
-bm Atari Microsoft BASIC
-bt Turbo BASIC XL
-bxl OSS BASIC XL
-bxe OSS BASIC XE
-bic OSS Integer BASIC (cartridge version)
-bid OSS Integer BASIC (disk version)
-m monochrome: disable color syntax highlighting.
if output filename is missing, it defaults to the input filename, with
the extension changed to .html (e.g. FOO.BAS => FOO.html).
EOF
exit $1
}
# main()
if [ "$*" = "--help" ]; then
print_help 0
fi
while getopts ":hb:a:mMn" opt; do
case "$opt" in
b) BASVER="$OPTARG" ;;
a) AHA_OPTS="$AHA_OPTS $OPTARG" ;;
m|M|n) MONO="1" ;;
h) print_help 0 ;;
*) die "invalid option -$OPTARG" ;;
esac
done
shift $(($OPTIND - 1))
if [ -z "$1" ]; then
die "no input file given (try -h)"
else
infile="$1"
fi
if [ -n "$2" ]; then
outfile="$2"
else
outfile="$( echo "$infile" | sed 's,\.[^.]*$,.html,' )"
if [ "$infile" = "$outfile" ]; then
outfile="$infile".html
fi
fi
if [ "$BASVER" = "" ]; then
checkbin whichbas
whichbas -s "$infile"
case "$?" in
3) BASVER="a" ;;
4|7|8|9) BASVER="t" ;;
5) BASVER="xl" ;;
6|12) BASVER="xe" ;;
11) BASVER="m" ;;
14) BASVER="a+" ;;
15) BASVER="ic" ;;
16) BASVER="id" ;;
*) die "can't detect BASIC dialect; use -b<xx> option" ;;
esac
fi
case "$BASVER" in
m) LISTER=listamsb ; BASVER="" ;;
a|t|xl|xe|a+|id|ic) LISTER=listbas ; BASVER="-b$BASVER" ;;
*) die "$BASVER not a valid BASIC dialect" ;;
esac
checkbin $LISTER
checkbin aha
if [ "$LISTER" = "listamsb" ]; then
if [ "$MONO" = "1" ]; then
MONO_OPT="-M"
else
checkbin colorize-amsb
fi
else
if [ "$MONO" = "1" ]; then
MONO_OPT="-n"
fi
fi
exec $LISTER $BASVER $MONO_OPT "$infile" | aha -t "$infile" $AHA_OPTS > "$outfile"
|
