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