-
Notifications
You must be signed in to change notification settings - Fork 305
/
genassym.sh
71 lines (64 loc) · 1.1 KB
/
genassym.sh
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
#!/bin/sh
usage()
{
echo "usage: genassym [-o outfile] objfile"
exit 1
}
work()
{
${NM:='nm'} ${NMFLAGS} "$1" | ${AWK:='awk'} '
/ C .*sign$/ {
sign = substr($1, length($1) - 3, 4)
sub("^0*", "", sign)
if (sign != "")
sign = "-"
}
/ C .*w0$/ {
w0 = substr($1, length($1) - 3, 4)
}
/ C .*w1$/ {
w1 = substr($1, length($1) - 3, 4)
}
/ C .*w2$/ {
w2 = substr($1, length($1) - 3, 4)
}
/ C .*w3$/ {
w3 = substr($1, length($1) - 3, 4)
w = w3 w2 w1 w0
sub("^0*", "", w)
if (w == "")
w = "0"
hex = ""
if (w != "0")
hex = "0x"
sub("w3$", "", $3)
# This still has minor problems representing INT_MIN, etc.
# E.g.,
# with 32-bit 2''s complement ints, this prints -0x80000000,
# which has the wrong type (unsigned int).
printf("#define\t%s\t%s%s%s\n", $3, sign, hex, w)
} '
}
#
# MAIN PROGRAM
#
use_outfile="no"
while getopts "o:" option
do
case "$option" in
o) outfile="$OPTARG"
use_outfile="yes";;
*) usage;;
esac
done
shift $((OPTIND - 1))
case $# in
1) ;;
*) usage;;
esac
if [ "$use_outfile" = "yes" ]
then
work "$1" 3>"$outfile" >&3 3>&-
else
work "$1"
fi