summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/tdbc1.1.2/pkgIndex.tcl
blob: 6b0204ae868f34633a224e2391a9dd7065a5f2a0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.2 \
	"package require TclOO 1.0-;\
	[list load [file join $dir tdbc112.dll] tdbc]\;\
	[list source $libraryfile]"
}} $dir