File: pkgIndex.tcl.in

package info (click to toggle)
tdbc 1.1.1-1
  • links: PTS
  • area: main
  • in suites: bullseye, sid
  • size: 928 kB
  • sloc: sh: 2,256; tcl: 1,146; ansic: 886; makefile: 61
file content (18 lines) | stat: -rw-r--r-- 630 bytes parent folder | download | duplicates (2)
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 @TCL_VERSION_REQ@}]} {
    return
}
apply {{dir} {
    set libraryfile [file join $dir @PACKAGE_NAME@.tcl]
    if {![file exists $libraryfile] && [info exists ::env(TDBC_LIBRARY)]} {
	set libraryfile [file join $::env(TDBC_LIBRARY) @PACKAGE_NAME@.tcl]
    }
    package ifneeded @PACKAGE_NAME@ @PACKAGE_VERSION@ \
	"package require TclOO @TCLOO_VERSION_REQ@-;\
	[list load [file join $dir @PKG_LIB_FILE@] @PACKAGE_NAME@]\;\
	[list source $libraryfile]"
}} $dir