8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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 .dylib .so]} {
load [file join $dir @PKG_LIB_FILE8@] [string totitle @PACKAGE_NAME@]
} else {
load {} [string totitle @PACKAGE_NAME@]
}
set initScript [file join $dir @[email protected]]
if {[file exists $initScript]} {
source -encoding utf-8 $initScript
}
}} $dir]
|
>
>
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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 .dylib .so]} {
# Load dynamic library
load [file join $dir @PKG_LIB_FILE8@] [string totitle @PACKAGE_NAME@]
} else {
# Static library
load {} [string totitle @PACKAGE_NAME@]
}
set initScript [file join $dir @[email protected]]
if {[file exists $initScript]} {
source -encoding utf-8 $initScript
}
}} $dir]
|