ALPHALINUX5/util/ALPHALINUX5/lib/blt2.4/pkgIndex.tcl

   1 # Tcl package index file, version 1.0
   2
   3 proc Blt_MakePkgIndex { dir } {
   4     set suffix .so.2.4
   5     set soext [lindex [split $suffix "."] 1]
   6     set library libBLT$suffix
   7     foreach lib { /home/people/tkys/Eos/util/lib/libjpeg  } {
   8         catch { load $lib.$soext BLT }
   9     }
  10     set path [file dirname $dir]
  11     package ifneeded BLT 2.4 [list load [file join $path $library] BLT]
  12 }
  13
  14 Blt_MakePkgIndex $dir
  15 rename Blt_MakePkgIndex ""