diff options
Diffstat (limited to 'bootstrap.tcl')
-rw-r--r-- | bootstrap.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/bootstrap.tcl b/bootstrap.tcl new file mode 100644 index 0000000..f6c404f --- /dev/null +++ b/bootstrap.tcl @@ -0,0 +1,12 @@ +# Minimal support for package require +# No error on failure since C extensions aren't handled +proc package {cmd pkg} { + if {$cmd eq "require"} { + foreach path $::auto_path { + if {[file exists $path/$pkg.tcl]} { + uplevel #0 [list source $path/$pkg.tcl] + return + } + } + } +} |