Posted to tcl by crshults at Mon Jun 15 18:26:04 GMT 2015view raw
- set port 9000
- proc read_data {sock} {
- puts [read $sock]
- if {[chan eof $sock]} {
- puts "chan is eof"
- chan event $sock readable {}
- chan close $sock
- }
- }
- proc uniform {str} {
- global port
- set sock [socket localhost $port]
- chan configure $sock -translation binary -buffering none -blocking no
- set msg "RCTL\nBEGIN\n${str}\nEND"
- chan event $sock readable "read_data $sock"
- chan puts $sock $msg
- }
- uniform "some task"