proc get_package_load_command {name} {
    # Get the command to load a package without actually loading the package
    #
    # package ifneeded can return us the command to load a package but
    # it needs a version number. package versions will give us that
    set versions [package versions $name]
    if {[llength $versions] == 0} {
        # We do not know about this package yet. Invoke package unknown
        # to search
        {*}[package unknown] $name
        # Check again if we found anything
        set versions [package versions $name]
        if {[llength $versions] == 0} {
            error "Could not find package $name"
        }
    }
    return [package ifneeded $name [lindex $versions 0]]
}

if {![package vsatisfies [package provide Tcl] 8.5]} {return}

if {0 != [string length [info script]]} {
   # Note that we must take care that we do not source this file recursively.
   # Therefore we can't start with the directory containing this script.
   set dirs [glob -nocomplain -directory [file dirname [info script]] -types d *]
   # Loop through directories sourcing all libraries
   while {0 != [llength $dirs]} {
      # Get next directory and remove it from list
      set dir [lindex $dirs 0]
      set dirs [lreplace $dirs 0 0]
      # Work with current directory selection here.
      # We want to source all packages within the directory tree.
      # We stop diving deeper into the directory tree
      # as soon as there is a pkgIndex.tcl file.
      catch {
         if {[file exists [file join $dir "pkgIndex.tcl"]]} {
            # The script sourced expects $dir to be its location directory
            source [file join $dir "pkgIndex.tcl"]
         } else {
            # There is no pkgIndex.tcl file in current directory.
            # Continue checking all subdirectories of current directory.
            set dirs [concat $dirs [glob -directory $dir -types d *]]
         }
      }
   }
   unset dirs
}