pkgIndex.tcl.in

#
# Tcl package index file - generated from pkgIndex.tcl.in
#

package ifneeded @PACKAGE_NAME@ @PACKAGE_VERSION@ \
    [list apply [list {dir} {
        package require platform
        set package_ns ::@PACKAGE_NAME@
        set initName [string totitle @PACKAGE_NAME@]
        if {[package vsatisfies [package require Tcl] 9]} {
            set fileName "@PKG_LIB_FILE9@"
        } else {
            set fileName "@PKG_LIB_FILE8@"
        }
        set platformId [platform::identify]
        set searchPaths [list [file join $dir $platformId] \
                             {*}[lmap platformId [platform::patterns $platformId] {
                                 file join $dir $platformId
                             }] \
                             $dir]
        foreach path $searchPaths {
            set lib [file join $path $fileName]
            if {[file exists $lib]} {
                uplevel #0 [list load $lib $initName]
                # Load was successful
                set ${package_ns}::dll_path $lib
                set ${package_ns}::package_dir $dir
                return
            }
        }
        error "Could not locate $fileName in directories [join $searchPaths {, }]"
    }] $dir]