15 lines
541 B
Tcl
15 lines
541 B
Tcl
|
# Index file to load the TDBC MySQL package.
|
||
|
|
|
||
|
|
if {![package vsatisfies [package provide Tcl] 8.6-]} {
|
||
|
|
return
|
||
|
|
}
|
||
|
|
if {[package vsatisfies [package provide Tcl] 9.0-]} {
|
||
|
|
package ifneeded tdbc::mysql 1.1.3 \
|
||
|
|
"[list source [file join $dir tdbcmysql.tcl]]\;\
|
||
|
|
[list load [file join $dir libtcl9tdbcmysql1.1.3.so] [string totitle tdbcmysql]]"
|
||
|
|
} else {
|
||
|
|
package ifneeded tdbc::mysql 1.1.3 \
|
||
|
|
"[list source [file join $dir tdbcmysql.tcl]]\;\
|
||
|
|
[list load [file join $dir libtdbcmysql1.1.3.so] [string totitle tdbcmysql]]"
|
||
|
|
}
|