Posted to tcl by apn at Sat Mar 02 06:56:43 GMT 2019view raw
- apply {
- {package_name dir} {
- set filename $package_name[info sharedlibextension]
- set ident [platform::identity]
- set subdirs [list $ident \
- [platform::generic] \
- {*}[platform::patterns $ident]]
- foreach subdir $subdirs {
- set path [file join $dir $subdir $filename]
- if {[file exists $path]} {
- package ifneeded binpkg 1.0 [list load $path]
- return
- }
- }
- }
- } binpkg $dir