home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 12_2.tcl < prev    next >
Text File  |  2003-04-16  |  542b  |  24 lines
  1. #
  2. # Example 12-2
  3. # Loading a tclIndex file.
  4. #
  5.  
  6. # This is a simplified part of the auto_load_index procedure.
  7. # Go through auto_path from back to front.
  8. set i [expr [llength $auto_path]-1]
  9. for {} {$i >= 0} {incr i -1} {
  10.     set dir [lindex $auto_path $i]
  11.     if [catch {open [file join $dir tclIndex]} f] {
  12.         # No index
  13.         continue
  14.     }
  15.     # eval the file as a script. Because eval is
  16.     # used instead of source, an extra round of
  17.     # substitutions is performed and $dir gets expanded
  18.     # The real code checks for errors here.
  19.     eval [read $f]
  20.     close $f
  21. }
  22.  
  23.  
  24.