1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Tcl package index file, version 1.1
# All tcllib packages need Tcl 8 (use [namespace])
if {![package vsatisfies [package provide Tcl] 8]} {return}
# Extend the auto_path to make tcllib packages available
if {[lsearch -exact $::auto_path $dir] == -1} {
lappend ::auto_path $dir
}
# For Tcl 8.3.1 and later, that's all we need
if {[package vsatisfies [package provide Tcl] 8.4]} {return}
if {(0 == [catch {
package vcompare [info patchlevel] [info patchlevel]
}]) && (
[package vcompare [info patchlevel] 8.3.1] >= 0
)} {return}
# For older Tcl releases, here are equivalent contents
# of the pkgIndex.tcl files of all the modules
if {![package vsatisfies [package provide Tcl] 8.0]} {return}
set maindir $dir
set dir [file join $maindir cmdline] ; source [file join $dir pkgIndex.tcl]
set dir [file join $maindir fileutil] ; source [file join $dir pkgIndex.tcl]
|
