Posted to tcl by apn at Sat Mar 02 06:56:43 GMT 2019view pretty
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