As JSON results may vary a lot, it seems there will be customization for every kind of result. Roughly, there will be a combination of "array sets" and "foreaches", which can be put into a recursive ad_proc.
Not sure if that will solve all cases, but at least it works for GoogleMapsAPI :: nearbies places.
Best wishes,
set parsed_result [util::json::parse $json]
array unset json_hash
array set json_hash [lindex $parsed_result 1]
array set json_hash $json_hash(results)
...
if {[info exists json_hash(_array_)]} {
set json_array $json_hash(_array_)
foreach array_elem $json_array {
set obj [lindex $array_elem 0]
set json_list [lindex $array_elem 1]
if {$obj eq "_array_" } {
# here it goes a recursive call
...
}
}
}
