Posted to tcl by patthoyts at Fri Oct 02 14:33:39 GMT 2009view pretty
proc getlocations {locations} { if {[llength $locations] > 0} { foreach {lat long} $locations break set locations [lrange $locations 2 end] set q [http::formatQuery lat $lat long $long] http::geturl $url -query $q -command [list Handle $locations] } else { set ::forever 1 } } proc Handle {locations $tok} { # handle the response in $tok getlocation $locations } vwait forever