home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume26 / tclx / part01 / extended / tclsrc / forfile.tcl < prev   
Encoding:
Text File  |  1991-11-19  |  195 b   |  12 lines
  1. #@package: forfile for_file
  2.  
  3. proc for_file {var filename code} {
  4.     upvar $var line
  5.     set fp [open $filename r]
  6.     while {[gets $fp line] >= 0} {
  7.         uplevel $code
  8.     }
  9.     close $fp
  10. }
  11.  
  12.