Posted to tcl by Bradipo at Fri Mar 08 15:32:31 GMT 2024view raw

  1. % set fd [open file r]
  2. file3
  3. % fconfigure $fd
  4. -blocking 1 -buffering full -buffersize 4096 -encoding iso8859-1 -eofchar {} -translation auto
  5. % fconfigure $fd -translation binary
  6. % fconfigure $fd
  7. -blocking 1 -buffering full -buffersize 4096 -encoding binary -eofchar {} -translation lf
  8.