mirror of https://gitlab.com/QEF/q-e.git
27 lines
884 B
Tcl
27 lines
884 B
Tcl
# 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]
|