27 lines
826 B
Tcl
27 lines
826 B
Tcl
# -*- tcl -*-
|
|
# Tcl package index file, version 1.1
|
|
#
|
|
# Make sure that TDBC is running in a compatible version of Tcl, and
|
|
# that TclOO is available.
|
|
|
|
if {![package vsatisfies [package provide Tcl] 8.6-]} {
|
|
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]
|
|
}
|
|
if {[package vsatisfies [package provide Tcl] 9.0-]} {
|
|
package ifneeded tdbc 1.1.3 \
|
|
"package require TclOO;\
|
|
[list load [file join $dir tcl9tdbc113t.dll] [string totitle tdbc]]\;\
|
|
[list source $libraryfile]"
|
|
} else {
|
|
package ifneeded tdbc 1.1.3 \
|
|
"package require TclOO;\
|
|
[list load [file join $dir tdbc113t.dll] [string totitle tdbc]]\;\
|
|
[list source $libraryfile]"
|
|
}
|
|
}} $dir
|