Mercurial > repos > rliterman > csp2
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 67:0e9998148a16 | 69:33d812a61356 |
|---|---|
| 1 # -*- tcl -*- | |
| 2 # Tcl package index file, version 1.1 | |
| 3 # | |
| 4 # Make sure that TDBC is running in a compatible version of Tcl, and | |
| 5 # that TclOO is available. | |
| 6 | |
| 7 if {![package vsatisfies [package provide Tcl] 8.6-]} { | |
| 8 return | |
| 9 } | |
| 10 apply {{dir} { | |
| 11 set libraryfile [file join $dir tdbc.tcl] | |
| 12 if {![file exists $libraryfile] && [info exists ::env(TDBC_LIBRARY)]} { | |
| 13 set libraryfile [file join $::env(TDBC_LIBRARY) tdbc.tcl] | |
| 14 } | |
| 15 if {[package vsatisfies [package provide Tcl] 9.0-]} { | |
| 16 package ifneeded tdbc 1.1.5 \ | |
| 17 "package require TclOO;\ | |
| 18 [list load [file join $dir libtcl9tdbc1.1.5.so] [string totitle tdbc]]\;\ | |
| 19 [list source $libraryfile]" | |
| 20 } else { | |
| 21 package ifneeded tdbc 1.1.5 \ | |
| 22 "package require TclOO;\ | |
| 23 [list load [file join $dir libtdbc1.1.5.so] [string totitle tdbc]]\;\ | |
| 24 [list source $libraryfile]" | |
| 25 } | |
| 26 }} $dir |