/usr/lib/blt2.4/pkgIndex.tcl is in blt 2.4z-7ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | # Tcl package index file, version 1.0
proc LoadBLT { version dir } {
set prefix "lib"
set suffix [info sharedlibextension]
regsub {\.} $version {} version_no_dots
# Determine whether to load the full BLT library or
# the "lite" tcl-only version.
if {[package vcompare [info tclversion] 8.2] < 0} {
set taillib ${version}.so.8.0
} elseif {[package vcompare [info tclversion] 8.3] < 0} {
set taillib ${version}.so.8.2
} elseif {[package vcompare [info tclversion] 8.4] < 0} {
set taillib ${version}.so.8.3
} elseif {[package vcompare [info tclversion] 8.5] < 0} {
set taillib ${version}.so.8.4
} elseif {[package vcompare [info tclversion] 8.6] < 0} {
set taillib ${version}.so.8.5
} else {
set taillib ${version}.so.8.6
}
if { [info commands tk] == "tk" } {
set name ${prefix}BLT.${taillib}
} else {
set name ${prefix}BLTlite.${taillib}
}
global tcl_platform
if { $tcl_platform(platform) == "unix" } {
if { [info commands tk] == "tk" } {
set library libBLT.${taillib}
} else {
set library libBLTlite.${taillib}
}
if { ![file exists $library] } {
# Try the parent directory.
set library [file join [file dirname $dir] $name]
}
if { ![file exists $library] } {
# Default to the path generated at compilation.
set library [file join "/usr/lib" $name]
}
} else {
set library $name
}
load $library BLT
}
set version "2.4"
set libdir "/usr/lib"
package ifneeded BLT $version [list LoadBLT $version $dir]
# End of package index file
|