blob: 6b0204ae868f34633a224e2391a9dd7065a5f2a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Index file to load the TDBC package.
# Make sure that TDBC is running in a compatible version of Tcl, and
# that TclOO is available.
if {[catch {package present Tcl 8.5-}]} {
return
}
apply {{dir} {
set libraryfile [file join $dir tdbc.tcl]
if {![file exists $libraryfile] && [info exists ::env(TDBC_LIBRARY)]} {
set libraryfile [file join $::env(TDBC_LIBRARY) tdbc.tcl]
}
package ifneeded tdbc 1.1.2 \
"package require TclOO 1.0-;\
[list load [file join $dir tdbc112.dll] tdbc]\;\
[list source $libraryfile]"
}} $dir
|