summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/tdbc1.1.1/pkgIndex.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tdbc1.1.1/pkgIndex.tcl')
-rw-r--r--Master/tlpkg/tltcl/lib/tdbc1.1.1/pkgIndex.tcl18
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