53 lines
1.5 KiB
Awk
53 lines
1.5 KiB
Awk
# Script used in producing headers of assembly constants from C expressions.
|
|
# The input to this script looks like:
|
|
# #cpp-directive ...
|
|
# NAME1
|
|
# NAME2 expression ...
|
|
# The output of this script is C code to be run through gcc -S and then
|
|
# massaged to extract the integer constant values of the given C expressions.
|
|
# A line giving just a name implies an expression consisting of just that name.
|
|
|
|
BEGIN { started = 0 }
|
|
|
|
# cpp directives go straight through.
|
|
/^#/ { print; next }
|
|
|
|
NF >= 1 && !started {
|
|
if (test) {
|
|
print "\n#include <stdio.h>";
|
|
print "\nstatic int do_test (void)\n{\n int bad = 0, good = 0;\n";
|
|
print "#define TEST(name, source, expr) \\\n" \
|
|
" if (asconst_##name != (expr)) { ++bad;" \
|
|
" fprintf (stderr, \"%s: %s is %ld but %s is %ld\\n\"," \
|
|
" source, #name, (long int) asconst_##name, #expr, (long int) (expr));" \
|
|
" } else ++good;\n";
|
|
}
|
|
else
|
|
print "void dummy(void) {";
|
|
started = 1;
|
|
}
|
|
|
|
# Separator.
|
|
$1 == "--" { next }
|
|
|
|
NF == 1 { sub(/^.*$/, "& &"); }
|
|
|
|
NF > 1 {
|
|
name = $1;
|
|
sub(/^[^ ]+[ ]+/, "");
|
|
if (test)
|
|
print " TEST (" name ", \"" FILENAME ":" FNR "\", " $0 ")";
|
|
else
|
|
printf "asm (\"@@@name@@@%s@@@value@@@%%0@@@end@@@\" : : \"i\" ((long) %s));\n",
|
|
name, $0;
|
|
}
|
|
|
|
END {
|
|
if (test) {
|
|
print " printf (\"%d errors in %d tests\\n\", bad, good + bad);"
|
|
print " return bad != 0 || good == 0;\n}\n";
|
|
print "#define TEST_FUNCTION do_test ()";
|
|
}
|
|
else if (started) print "}";
|
|
}
|