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