diff options
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tdbc1.1.1/pkgIndex.tcl')
| -rw-r--r-- | Master/tlpkg/tltcl/lib/tdbc1.1.1/pkgIndex.tcl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/Master/tlpkg/tltcl/lib/tdbc1.1.1/pkgIndex.tcl b/Master/tlpkg/tltcl/lib/tdbc1.1.1/pkgIndex.tcl new file mode 100644 index 00000000000..ab541acb771 --- /dev/null +++ b/Master/tlpkg/tltcl/lib/tdbc1.1.1/pkgIndex.tcl @@ -0,0 +1,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 |