1
2
3
4
5
6
7
8
9
10
11
12
| 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]
| |
|
| 1
2
3
4
5
6
7
8
9
10
11
12
| 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
}
set tlsTclInitScript [file join $dir tls.tcl]
if {[file exists $tlsTclInitScript]} {
source $tlsTclInitScript
}
}} $dir]] "; "]
|
