Blame test/arrdbg.awk

Packit 575503
function check(x, exptype,   f) {
Packit 575503
	f[x]
Packit 575503
	printf "array_f subscript [%s]\n", x
Packit 575503
	printf "array_f subscript [%s]\n", x > okfile
Packit 575503
	adump(f, -1)
Packit 575503
	printf "    array_func: %s_array_func\n", exptype > okfile
Packit 575503
}
Packit 575503
Packit 575503
BEGIN {
Packit 575503
	check(3.0, "cint")
Packit 575503
	check(-3, "int")
Packit 575503
	check("3.0", "str")
Packit 575503
	split(" 3", f, "|")	# create a maybe_num value
Packit 575503
	check(f[1], "str")
Packit 575503
	check("0", "cint")
Packit 575503
	check("-1", "int")
Packit 575503
}