bootstrap.tcl

   1 # Minimal support for package require
   2 # No error on failure since C extensions aren't handled
   3 proc package {cmd pkg} {
   4         if {$cmd eq "require"} {
   5                 foreach path $::auto_path {
   6                         if {[file exists $path/$pkg.tcl]} {
   7                                 uplevel #0 [list source $path/$pkg.tcl]
   8                                 return
   9                         }
  10                 }
  11         }
  12 }