1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# -*- tcl -*-
# Tcl package index file, version 1.1
#
if {[package vsatisfies [package provide Tcl] 9.0-]} {
package ifneeded @PACKAGE_NAME@ @PACKAGE_VERSION@ \
[list load [file join $dir @PKG_LIB_FILE9@] [string totitle @PACKAGE_NAME@]]
set initScript [file join $dir @PACKAGE_NAME@.tcl]
if {[file exists $initScript]} {
source $initScript
}
} else {
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
package ifneeded @PACKAGE_NAME@ @PACKAGE_VERSION@ [list apply {{dir} {
if {[string tolower [file extension @PKG_LIB_FILE8@]] in [list ".dll" ".so"]} {
load [file join $dir @PKG_LIB_FILE8@] [string totitle @PACKAGE_NAME@]
} else {
load {} [string totitle @PACKAGE_NAME@]
}
set initScript [file join $dir @PACKAGE_NAME@.tcl]
if {[file exists $initScript]} {
source $initScript
}
}} $dir]
}
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# -*- tcl -*-
# Tcl package index file, version 1.1
#
if {[package vsatisfies [package provide Tcl] 9.0-]} {
package ifneeded @PACKAGE_NAME@ @PACKAGE_VERSION@ \
[list load [file join $dir @PKG_LIB_FILE9@] [string totitle @PACKAGE_NAME@]]
set initScript [file join $dir @PACKAGE_NAME@.tcl]
if {[file exists $initScript]} {
source -encoding utf-8 $initScript
}
} else {
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
package ifneeded @PACKAGE_NAME@ @PACKAGE_VERSION@ [list apply {{dir} {
if {[string tolower [file extension @PKG_LIB_FILE8@]] in [list ".dll" ".so"]} {
load [file join $dir @PKG_LIB_FILE8@] [string totitle @PACKAGE_NAME@]
} else {
load {} [string totitle @PACKAGE_NAME@]
}
set initScript [file join $dir @PACKAGE_NAME@.tcl]
if {[file exists $initScript]} {
source -encoding utf-8 $initScript
}
}} $dir]
}
|