Posted to tcl by steveb at Thu Oct 18 16:00:20 GMT 2012view raw

  1. http://pubs.opengroup.org/onlinepubs/009695399/
  2.  
  3. if {$Url(thread,$prefix)} {
  4. Count UrlToThread
  5. Thread_Dispatch $sock \
  6. [concat $Url(command,$prefix) [list $sock $suffix]]
  7. } else {
  8. Count UrlEval
  9. eval $Url(command,$prefix) [list $sock $suffix]
  10. }
  11. } error] == 1} {