Posted to tcl by Colin at Sun Apr 22 00:26:21 GMT 2007view raw

  1. after idle [list ::Httpd::transfer $tid $sock $args $config]
  2.  
  3. ----
  4.  
  5.  
  6. # transfer - transfer control to a worker thread
  7. proc transfer {tid sock request vars} {
  8. if {[catch {
  9. Debug.socket "Transferring $sock to $tid"
  10. ::thread::transfer $tid $sock
  11. ::thread::send -async $tid [list connect $request $vars $sock]
  12. } result eo]} {
  13. Debug.error {Transfer Error: $result ($eo)}
  14. } else {
  15. Debug.socket {Transferred: $result $eo}
  16. }
  17. }
  18.