1# Tcl package index file, version 1.1 2# This file is generated by the "pkg_mkIndex -direct" command 3# and sourced either when an application starts up or 4# by a "package unknown" script. It invokes the 5# "package ifneeded" command to set up package-related 6# information so that packages will be loaded automatically 7# in response to "package require" commands. When this 8# script is sourced, the variable $dir must contain the 9# full path name of this file's directory. 10 11package ifneeded xotcl::store 0.84 [list source [file join $dir Storage.xotcl]] 12package ifneeded xotcl::store::jufgdbm 0.81 [list source [file join $dir JufGdbmStorage.xotcl]] 13package ifneeded xotcl::store::mem 0.84 [list source [file join $dir MemStorage.xotcl]] 14package ifneeded xotcl::store::multi 0.9 [list source [file join $dir MultiStorage.xotcl]] 15package ifneeded xotcl::store::persistence 0.8 [list source [file join $dir Persistence.xotcl]] 16package ifneeded xotcl::store::tclgdbm 0.84 [list source [file join $dir TclGdbmStorage.xotcl]] 17package ifneeded xotcl::store::textfile 0.84 [list source [file join $dir TextFileStorage.xotcl]] 18set __store_dir__ $dir 19foreach index [glob -nocomplain [file join $dir * pkgIndex.tcl]] { 20 set dir [file dirname $index] 21 #puts subdir=$dir,index=$index 22 source $index 23} 24set dir $__store_dir__ 25unset __store_dir__ 26 27 28