home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 10_5.tcl < prev    next >
Text File  |  2003-04-15  |  233b  |  15 lines
  1. #
  2. # Example 10-5
  3. # The File_Process procedure applies a command to each line of a file.
  4. #
  5.  
  6. proc File_Process {file callback} {
  7.     set in [open $file]
  8.     while {[gets $in line] >= 0} {
  9.         uplevel 1 $callback [list $line]
  10.     }
  11.     close $in
  12. }
  13.  
  14.  
  15.