Posted to tcl by steveb at Thu Oct 18 16:00:20 GMT 2012view raw
- http://pubs.opengroup.org/onlinepubs/009695399/
- if {$Url(thread,$prefix)} {
- Count UrlToThread
- Thread_Dispatch $sock \
- [concat $Url(command,$prefix) [list $sock $suffix]]
- } else {
- Count UrlEval
- eval $Url(command,$prefix) [list $sock $suffix]
- }
- } error] == 1} {