16 lines
503 B
Awk
16 lines
503 B
Awk
# This file and how to use it are described in the manual.
|
|
# Therefore, we respectfully advise you to Read The Fine Manual
|
|
# for more information.
|
|
|
|
function process_array(arr, name, process, do_arrays, i, new_name)
|
|
{
|
|
for (i in arr) {
|
|
new_name = (name "[" i "]")
|
|
if (isarray(arr[i])) {
|
|
if (do_arrays)
|
|
@process(new_name, arr[i])
|
|
process_array(arr[i], new_name, process, do_arrays)
|
|
} else
|
|
@process(new_name, arr[i])
|
|
}
|
|
}
|