1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#checker -scope global exclude warnUndefinedVar
# var in question is 'dir'.
if {![package vsatisfies [package provide Tcl] 8.5 9]} {
# PRAGMA: returnok
return
}
# The package below is a backward compatible implementation of
# try/catch/finally, for use by Tcl 8.5 only. On 8.6 it does nothing.
package ifneeded try 1.1 [list source [file join $dir try.tcl]]
# The package below is a backward compatible implementation of
# "throw", for use by Tcl 8.5 only. On 8.6 it does nothing.
package ifneeded throw 1.1 [list source [file join $dir throw.tcl]]
# The package below is a backward compatible implementation of
# "file home", for use by Tcl 8.x only. On 9+ it does nothing.
if {[package vsatisfies [package provide Tcl] 9-]} {
package provide file::home 1
return
}
package ifneeded file::home 1 [list source [file join $dir fhome.tcl]]
|
