Version 0 of for_file

Updated 2003-08-07 16:05:16

for_file var filename code

(TclX) This procedure implements a loop over the contents of a file. For each line in filename, it sets var to the line and executes code.

Here's how to redo it in pure-Tcl:

 proc for_file {varName filename body} {
    upvar 1 $varName var
    set fp [open $filename]
    while {[gets $fp var]>=0} {
       upvar 1 $body
    }
    close $fp
 } ;#

break and continue support would need some extra action, compare do...until in Tcl.