/usr/lib/vtk-5.8/pkgIndex.tcl is in tcl-vtk 5.8.0-5.
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 59 60 | # Visualization Toolkit (VTK) Tcl package configuration.
package ifneeded vtkinit {5.8} {
namespace eval ::vtk::init {
proc load_library_package {libName libPath {libPrefix {lib}}} {
set libExt [info sharedlibextension]
set currentDirectory [pwd]
set libPath /usr//lib//
set libFile [file join $libPath "$libPrefix$libName$libExt"]
if {[catch "cd {$libPath}; load {$libFile}" errorMessage]} {
puts $errorMessage
}
cd $currentDirectory
}
proc require_package {name {version {5.8}}} {
if {[catch "package require -exact $name $version" errorMessage]} {
puts $errorMessage
return 0
} else {
return 1
}
}
set version {5.8}
set kits {}
foreach kit { base Common Filtering IO Imaging Graphics
Rendering VolumeRendering
Hybrid Widgets
Parallel Geovis
Infovis Views} {
lappend kits [string tolower "${kit}"]
}
}
package provide vtkinit {5.8}
}
foreach kit { Common Filtering IO Imaging Graphics
Rendering VolumeRendering
Hybrid Widgets
Parallel Geovis
Infovis Views} {
package ifneeded "vtk${kit}TCL" {5.8} "
package require -exact vtkinit {5.8}
::vtk::init::load_library_package {vtk${kit}TCL} {[file dirname [info script]]}
"
package ifneeded "vtk[string tolower ${kit}]" {5.8} "
package require -exact vtkinit {5.8}
if {\[catch {source \[file join {[file dirname [info script]]/tcl} {vtk[string tolower ${kit}]} {vtk[string tolower ${kit}].tcl}\]} errorMessage\]} {
puts \$errorMessage
}
"
}
foreach src {vtk vtkbase vtkinteraction vtktesting} {
package ifneeded ${src} {5.8} "
package require -exact vtkinit {5.8}
if {\[catch {source \[file join {[file dirname [info script]]/tcl} {$src} {$src.tcl}\]} errorMessage\]} {
puts \$errorMessage
}
"
}
|