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