home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / todos.tcl < prev    next >
Text File  |  2003-04-15  |  355b  |  17 lines
  1. # This re-writes a file, which in the process converts all
  2. # the end-of-line characters to Windows-style cr-lf.
  3.  
  4. proc ToDos {pat} {
  5.     # pat is a glob pattern
  6.     foreach f [glob $pat] {
  7.     puts $f ; update
  8.     set in [open $f]
  9.     set X [read $in]
  10.     close $in
  11.     set out [open $f w]
  12.         fconfigure $out -trans crlf
  13.     puts -nonewline $out $X
  14.     close $out
  15.     }
  16. }
  17.