jpayne@68: # -*- tcl -*- jpayne@68: # Tcl package index file, version 1.1 jpayne@68: # jpayne@68: # Make sure that TDBC is running in a compatible version of Tcl, and jpayne@68: # that TclOO is available. jpayne@68: jpayne@68: if {![package vsatisfies [package provide Tcl] 8.6-]} { jpayne@68: return jpayne@68: } jpayne@68: apply {{dir} { jpayne@68: set libraryfile [file join $dir tdbc.tcl] jpayne@68: if {![file exists $libraryfile] && [info exists ::env(TDBC_LIBRARY)]} { jpayne@68: set libraryfile [file join $::env(TDBC_LIBRARY) tdbc.tcl] jpayne@68: } jpayne@68: if {[package vsatisfies [package provide Tcl] 9.0-]} { jpayne@68: package ifneeded tdbc 1.1.5 \ jpayne@68: "package require TclOO;\ jpayne@68: [list load [file join $dir libtcl9tdbc1.1.5.so] [string totitle tdbc]]\;\ jpayne@68: [list source $libraryfile]" jpayne@68: } else { jpayne@68: package ifneeded tdbc 1.1.5 \ jpayne@68: "package require TclOO;\ jpayne@68: [list load [file join $dir libtdbc1.1.5.so] [string totitle tdbc]]\;\ jpayne@68: [list source $libraryfile]" jpayne@68: } jpayne@68: }} $dir