1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# $Id: plugins.tcl,v 1.10 2006/02/25 19:57:36 aleksey Exp $
namespace eval plugins {}
proc plugins::load {dir args} {
set dir [fullpath $dir]
set uplev 0
foreach {attr val} $args {
switch -- $attr {
-uplevel {set uplev $val}
}
}
foreach file [glob -nocomplain $dir/*.tcl] {
debugmsg plugins "Loading plugin from $file"
if {$uplev} {
uplevel [list source $file]
} else {
source $file
}
}
}
proc plugins::load_dir {plugins_dir} {
foreach dir [lsort [glob -nocomplain -type d [file join $plugins_dir *]]] {
set file [file join $dir [file tail $dir].tcl]
if {[file exists $file]} {
debugmsg plugins "Loading plugin from $file"
source $file
} else {
debugmsg plugins "Can't load plugin from $file"
}
}
}
|
