Posted to tcl by patthoyts at Fri Oct 02 14:33:39 GMT 2009view raw

  1. proc getlocations {locations} {
  2. if {[llength $locations] > 0} {
  3. foreach {lat long} $locations break
  4. set locations [lrange $locations 2 end]
  5. set q [http::formatQuery lat $lat long $long]
  6. http::geturl $url -query $q -command [list Handle $locations]
  7. } else {
  8. set ::forever 1
  9. }
  10. }
  11. proc Handle {locations $tok} {
  12. # handle the response in $tok
  13. getlocation $locations
  14. }
  15. vwait forever