Tcl Source Code: Artifact [56c1093e95]

Artifact 56c1093e95cf30461d3844480d5c590d0d4b86a6:

Attachment "buffer.tcl" to ticket [427196ffff] added by dgp 2001-05-25 13:32:50.

set chan [open [info script] r]
fconfigure $chan -buffersize 10
set var [read $chan 2]
fconfigure $chan -buffersize 32
append var [read $chan]
close $chan