Lines Matching refs:fd

228 proc accept_test_clients {fd addr port} {
229     fconfigure $fd -encoding binary
230     fileevent $fd readable [list read_from_test_client $fd]
246 proc read_from_test_client fd {  argument
247     set bytes [gets $fd]
248     set payload [read $fd $bytes]
256         signal_idle_client $fd
258         set elapsed [expr {[clock seconds]-$::clients_start_time($fd)}]
264         signal_idle_client $fd
265         set ::active_clients_task($fd) DONE
270         set ::active_clients_task($fd) "(OK) $data"
275         set ::active_clients_task($fd) "(ERR) $data"
282         set ::active_clients_task($fd) "(IN PROGRESS) $data"
321 proc signal_idle_client fd {  argument
324         [lsearch -all -inline -not -exact $::active_clients $fd]
332             set ::active_clients_task($fd) "ASSIGNED: $fd ([lindex $::all_tests $::next_test])"
334         set ::clients_start_time($fd) [clock seconds]
335         send_data_packet $fd run [lindex $::all_tests $::next_test]
336         lappend ::active_clients $fd
339         lappend ::idle_clients $fd
387 proc send_data_packet {fd status data} {
389     puts $fd [string length $payload]
390     puts -nonewline $fd $payload
391     flush $fd