Posted to tcl by apn at Sat Mar 02 06:56:43 GMT 2019view raw

  1. apply {
  2. {package_name dir} {
  3. set filename $package_name[info sharedlibextension]
  4. set ident [platform::identity]
  5. set subdirs [list $ident \
  6. [platform::generic] \
  7. {*}[platform::patterns $ident]]
  8. foreach subdir $subdirs {
  9. set path [file join $dir $subdir $filename]
  10. if {[file exists $path]} {
  11. package ifneeded binpkg 1.0 [list load $path]
  12. return
  13. }
  14. }
  15. }
  16. } binpkg $dir
  17.