Posted to tcl by Colin at Sun Apr 22 00:26:21 GMT 2007view pretty
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} } }