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