Tcl Source Code

Artifact a71ccfe0f29dc30d2b213269edc14ed13a7e464d:

Attachment "trial.tcl" to ticket [2895565fff] added by andreas_kupries 2009-11-12 07:49:57.

---

set in [open input r];# input contains UTF-8 data.
fconfigure $in -translation binary

set out [open output w]
fconfigure $out -encoding cp1252 -translation crlf

fcopy $in $out -size 4096

close $in
close $out
exit