diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/lib/tdbc1.1.3/pkgIndex.tcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/lib/tdbc1.1.3/pkgIndex.tcl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/lib/tdbc1.1.3/pkgIndex.tcl b/systems/texlive/tlnet/tlpkg/tltcl/lib/tdbc1.1.3/pkgIndex.tcl new file mode 100644 index 0000000000..d8c2515c3d --- /dev/null +++ b/systems/texlive/tlnet/tlpkg/tltcl/lib/tdbc1.1.3/pkgIndex.tcl @@ -0,0 +1,26 @@ +# -*- 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 tcl9tdbc113.dll] [string totitle tdbc]]\;\ + [list source $libraryfile]" + } else { + package ifneeded tdbc 1.1.3 \ + "package require TclOO;\ + [list load [file join $dir tdbc113.dll] [string totitle tdbc]]\;\ + [list source $libraryfile]" + } +}} $dir |