ref: 7d06d1d348ce9fb9dc585d81f146e12193be85e4
dir: /src/cmd/as/mktbl.awk/
BEGIN {
nvar=0
printf "#include <scc/scc.h>\n"\
"#include \"../../as.h\"\n"\
"#include \"../" family "/proc.h\"\n"
rules = "target/" family "/opers.dat"
while (getline < rules > 0) {
regex[++nregs] = $1
value[nregs] = $2
}
close(rules)
}
{sub(/#.*/,"")}
$7 !~ cpu {next}
/^$/ {next}
{
if (op[$1] == 0) {
op[$1] = 1
opstart[$1] = nvar
opnames[nop++] = $1
}
opcount[$1]++
opargs[nvar] = $3
opsize[nvar] = $4
opbytes[nvar] = ($5 == "none") ? "" : $5
opformat[nvar++] = $6
formats[$6] = 1
}
END {
for (i in formats)
printf "Format %s;\n", i
printf "int nr_ins = %d;\n\n", nop
print "struct ins instab[] = {"
for (i = 0; i < nop; i++) {
n = opnames[i]
start = opstart[n]
end = start + opcount[n]
printf "\t{.str = \"%s\", .begin = %d, .end = %d},\n",
n, start, end | "sort"
}
close("sort")
printf "};\n\n"
print "struct op optab[] = {"
for (i = 0; i < nvar; i++) {
printf "\t/* %d */\n", i
printf "\t{\n" \
"\t\t.size = %d,\n"\
"\t\t.format = %s,\n",
opsize[i], opformat[i]
if (opbytes[i] != "")
printf "\t\t.bytes = (unsigned char [%d]) {%s},\n",
opsize[i],
opbytes[i]
a = str2args(opargs[i])
if (a != "")
printf "\t\t.args = (unsigned char []) {%s}\n", a
print "\t},"
}
print "};"
}
function str2args(s, args, i, j, out, n, found)
{
n = split(s, args, /,/)
if (n == 0 || args[1] == "none")
return ""
for (i = 1; i <= n; i++) {
a = args[i]
found = 0
if (a ~ /\?$/)
out = out "AOPT ,"
else if (a ~ /\+$/)
out = out "AREP ,"
for (j = 1; j <= nregs; j++) {
if (match(a, "^" regex[j])) {
out = out value[j]
found = 1
break
}
}
if (!found) {
print FILENAME ":" NR ":" \
$0 ":wrong arg in opcode list", a > "/dev/stderr"
exit 1
}
a = substr(a, RLENGTH+1)
sub(/\?$/, "", a)
sub(/\+$/, "", a)
if (a != "") {
print FILENAME ":" NR ":" \
$0 ": trailing chars: ", a > "/dev/stderr"
exit 1
}
out = out ","
}
out = out "0"
return out
}