# SYNOPSIS # source Source.w # ... # Source Help.w # Source Dbg.w # # AUTHOR # John Chambers # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # Here's our routine for loading a file from wherever it happens to # # be in the search PATH. We declare a number of common globals. # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # proc Source {f} { global D me argc argv env opt foreach d [split $env(PATH) :] { if [file exists $d/$f] { if {$D>1} {puts "$me/Source: $d/$f"} source $d/$f break } } }