summaryrefslogtreecommitdiff
path: root/bootstrap.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'bootstrap.tcl')
-rw-r--r--bootstrap.tcl12
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
+ }
+ }
+ }
+}