home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / lib / tcllib1.1 / pkgIndex.tcl
Encoding:
Text File  |  2001-10-22  |  1.2 KB  |  42 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.1 {
  14.     catch {package require base64}
  15.     catch {package require cmdline}
  16.     catch {package require comm}
  17.     catch {package require control}
  18.     catch {package require csv}
  19.     catch {package require counter}
  20.     catch {package require struct}
  21.     catch {package require fileutil}
  22.     catch {package require ftp}
  23.     catch {package require ftpd}
  24.     catch {package require javascript}
  25.     catch {package require html}
  26.     catch {package require math}
  27.     catch {package require md5}
  28.     catch {package require mime}
  29.     catch {package require ncgi}
  30.     catch {package require nntp}
  31.     catch {package require pop3}
  32.     catch {package require profiler}
  33.     catch {package require textutil}
  34.     catch {package require uri}
  35.     catch {package require log}
  36.     catch {package require htmlparse}
  37.     catch {package require report}
  38.     catch {package require sha1}
  39.     catch {package require smtp}
  40.     package provide tcllib 1.1
  41. }
  42.