libload.tcl

   1 set file libmysqltcl3.052
   2
   3 if {[file exists ./${file}[info sharedlibextension]]} {
   4     load ./${file}[info sharedlibextension]
   5 } else {
   6     load ../${file}[info sharedlibextension]
   7 }
   8