Blame test/typeof4.awk

Packit 575503
BEGIN{ a["x"]["y"]["z"]="scalar" ; walk_array(a, "a")}
Packit 575503
function walk_array(arr, name, i,	r)
Packit 575503
{
Packit 575503
	for (i in arr) {
Packit 575503
		r = typeof(arr[i])
Packit 575503
#		printf("typeof(%s[%s]) = %s\n", name, i, r) > "/dev/stderr"
Packit 575503
		if (r == "array") {
Packit 575503
			walk_array(arr[i], name "[" i "]")
Packit 575503
		} else {
Packit 575503
			printf "%s[%s] = %s\n", name, i, arr[i]
Packit 575503
		}
Packit 575503
	}
Packit 575503
}