Posted to tcl by mjanssen at Sat May 26 17:34:13 GMT 2007view pretty
namespace eval bistd { namespace ensemble create -map {initialize i watch wa read r write wr finalize f} proc i {chan mode} { return {initialize finalize watch read write} } proc f {chan} { return {} } proc wa {args} {puts $args} proc r {chan count} {puts "read $count" ; return [read stdin $count] } proc wr {chan data} {puts write ;puts -nonewline stdout $data} } set s [chan create {read write} bistd] package require tls tls::import $s