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