summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/tdbc1.1.1/pkgIndex.tcl
blob: ab541acb7710f33d353d1063bda0d3e005e4a58d (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.1 \
	"package require TclOO 1.0-;\
	[list load [file join $dir tdbc111.dll] tdbc]\;\
	[list source $libraryfile]"
}} $dir