bootstrap.tcl

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