Posted to tcl by kostix at Wed May 07 00:24:55 GMT 2008view pretty
package require ceptcl set s [cep -domain local /tmp/dbus_test] fconfigure $s -translation binary -buffering none -blocking no proc foo chan { set n [gets $chan] if {$n < 0} { close $chan puts "unexpected remote disconnect" } } fileevent $s readable [list foo $s] puts $s hey! vwait forever