Posted to tcl by mjanssen at Sat May 26 17:34:13 GMT 2007view raw
- 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