Posted to tcl by rmax at Fri Nov 28 11:02:18 GMT 2014view raw
- set script ""
- append script "proc manyifs {} {"
- # The global state variables that are needed by the ifs.
- append script "global foo bar baz"
- foreach file $files {
- set fd [open $file]
- append script [gets $file] "\n"
- close $fd
- }
- append script "}"
- eval $script
- manyifs