mirror of
https://github.com/Gator96100/ProxSpace.git
synced 2025-07-31 03:50:15 -07:00
18 lines
551 B
Tcl
18 lines
551 B
Tcl
# 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 libtdbc1.1.1.dll] tdbc]\;\
|
|
[list source $libraryfile]"
|
|
}} $dir
|