blob: ab541acb7710f33d353d1063bda0d3e005e4a58d (
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.1 \
"package require TclOO 1.0-;\
[list load [file join $dir tdbc111.dll] tdbc]\;\
[list source $libraryfile]"
}} $dir
|