Posted to tcl by Colin at Sun Apr 22 00:26:21 GMT 2007view raw
- after idle [list ::Httpd::transfer $tid $sock $args $config]
- ----
- # transfer - transfer control to a worker thread
- proc transfer {tid sock request vars} {
- if {[catch {
- Debug.socket "Transferring $sock to $tid"
- ::thread::transfer $tid $sock
- ::thread::send -async $tid [list connect $request $vars $sock]
- } result eo]} {
- Debug.error {Transfer Error: $result ($eo)}
- } else {
- Debug.socket {Transferred: $result $eo}
- }
- }