home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 5 / hacker05 / 05_HACK_05.ISO / programacao / freewrap / TCLLIBsampleApp.exe / sample / tcllib / tcllib1.0 / pkgIndex.tcl
Encoding:
Text File  |  2001-08-17  |  1.2 KB  |  40 lines
  1. if { [lsearch $auto_path $dir] == -1 } {
  2.     lappend auto_path $dir
  3.     if {![catch {package vcompare [info patchlevel] [info patchlevel]}]} {
  4.         if {![package vsatisfies [info patchlevel] 8.3.1]} {
  5.             foreach tlf [glob -nocomplain [file join $dir * pkgIndex.tcl]] {
  6.                 set dir [file dirname $tlf]
  7.                 source $tlf
  8.             }
  9.             catch {unset tlf}
  10.         }
  11.     }
  12. }
  13. package ifneeded tcllib 1.0 {
  14.     catch {package require base64}
  15.     catch {package require cmdline}
  16.     catch {package require csv}
  17.     catch {package require counter}
  18.     catch {package require struct}
  19.     catch {package require fileutil}
  20.     catch {package require ftp}
  21.     catch {package require ftpd}
  22.     catch {package require javascript}
  23.     catch {package require html}
  24.     catch {package require math}
  25.     catch {package require md5}
  26.     catch {package require mime}
  27.     catch {package require ncgi}
  28.     catch {package require nntp}
  29.     catch {package require pop3}
  30.     catch {package require profiler}
  31.     catch {package require textutil}
  32.     catch {package require uri}
  33.     catch {package require log}
  34.     catch {package require htmlparse}
  35.     catch {package require report}
  36.     catch {package require sha1}
  37.     catch {package require smtp}
  38.     package provide tcllib 1.0
  39. }
  40.