# SYNOPSIS # source LoadFile.w # ... # LoadFile Help.w # LoadFile Dbg.w # # AUTHOR # John Chambers # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # Here's our routine for loading a file from wherever it happens to # # be in the search PATH: # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # proc LoadFile {f} { global env foreach d [split $env(PATH) :] { if [file exists $d/$f] { source $d/$f break } } }