Mercurial > repos > rliterman > csp2
annotate CSP2/CSP2_env/env-d9b9114564458d9d-741b3de822f2aaca6c6caa4325c4afce/lib/tdbc1.1.5/pkgIndex.tcl @ 68:5028fdace37b
planemo upload commit 2e9511a184a1ca667c7be0c6321a36dc4e3d116d
| author | jpayne |
|---|---|
| date | Tue, 18 Mar 2025 16:23:26 -0400 |
| parents | |
| children |
| rev | line source |
|---|---|
| jpayne@68 | 1 # -*- tcl -*- |
| jpayne@68 | 2 # Tcl package index file, version 1.1 |
| jpayne@68 | 3 # |
| jpayne@68 | 4 # Make sure that TDBC is running in a compatible version of Tcl, and |
| jpayne@68 | 5 # that TclOO is available. |
| jpayne@68 | 6 |
| jpayne@68 | 7 if {![package vsatisfies [package provide Tcl] 8.6-]} { |
| jpayne@68 | 8 return |
| jpayne@68 | 9 } |
| jpayne@68 | 10 apply {{dir} { |
| jpayne@68 | 11 set libraryfile [file join $dir tdbc.tcl] |
| jpayne@68 | 12 if {![file exists $libraryfile] && [info exists ::env(TDBC_LIBRARY)]} { |
| jpayne@68 | 13 set libraryfile [file join $::env(TDBC_LIBRARY) tdbc.tcl] |
| jpayne@68 | 14 } |
| jpayne@68 | 15 if {[package vsatisfies [package provide Tcl] 9.0-]} { |
| jpayne@68 | 16 package ifneeded tdbc 1.1.5 \ |
| jpayne@68 | 17 "package require TclOO;\ |
| jpayne@68 | 18 [list load [file join $dir libtcl9tdbc1.1.5.so] [string totitle tdbc]]\;\ |
| jpayne@68 | 19 [list source $libraryfile]" |
| jpayne@68 | 20 } else { |
| jpayne@68 | 21 package ifneeded tdbc 1.1.5 \ |
| jpayne@68 | 22 "package require TclOO;\ |
| jpayne@68 | 23 [list load [file join $dir libtdbc1.1.5.so] [string totitle tdbc]]\;\ |
| jpayne@68 | 24 [list source $libraryfile]" |
| jpayne@68 | 25 } |
| jpayne@68 | 26 }} $dir |