1
2
3
4
5
6
7
8
9
10
11
12
| 1
2
3
4
5
6
7
8
9
10
11
12
13
14
| +
-
-
-
-
-
-
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
+
| if {[package vsatisfies [package present Tcl] 8.5]} {
package ifneeded tls @[email protected] [join [list [list package require Tcl 8.5] [list apply {{dir} {
if {{@[email protected]} eq "static"} {
load {} Tls
} else {
load [file join $dir [email protected]@] Tls
}
package ifneeded tls @[email protected] [list apply {{dir} {
if {{@[email protected]} eq "static"} {
load {} Tls
} else {
load [file join $dir [email protected]@] Tls
}
set tlsTclInitScript [file join $dir tls.tcl]
if {[file exists $tlsTclInitScript]} {
source $tlsTclInitScript
}
}} $dir]] "; "]
set tlsTclInitScript [file join $dir tls.tcl]
if {[file exists $tlsTclInitScript]} {
source $tlsTclInitScript
}
}} $dir]
}
|
