home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 12_1.tcl < prev    next >
Text File  |  2003-04-16  |  563b  |  32 lines
  1. #
  2. # Example 12-1
  3. # Maintaining a tclIndex file.
  4. #
  5.  
  6. proc Library_UpdateIndex { libdir } {
  7.     set index [file join $libdir tclIndex]
  8.     if {![file exists $index]} {
  9.         set doit 1
  10.     } else {
  11.         set age [file mtime $index]
  12.         set doit 0
  13.         # Changes to directory may mean files were deleted
  14.         if {[file mtime $libdir] > $age} {
  15.             set doit 1
  16.         } else {
  17.             # Check each file for modification
  18.             foreach file [glob [file join $libdir *.tcl]] {
  19.                 if {[file mtime $file] > $age} {
  20.                     set doit 1
  21.                     break
  22.                 }
  23.             }
  24.         }
  25.     }
  26.     if { $doit } {
  27.         auto_mkindex $libdir *.tcl
  28.     }
  29. }
  30.  
  31.  
  32.