Differences From Artifact [31e07a1be4]:
- File src/plugin.tcl — part of check-in [ef2a6449e0] at 2011-05-27 06:09:19 on branch trunk — Cleanup of global variable usage. (user: peter.spjuth@gmail.com size: 7847)
To Artifact [8a027cad80]:
- File src/plugin.tcl — part of check-in [2ef67553ab] at 2011-10-14 23:51:50 on branch trunk — Normalize searchpath to find plugins in VFS. (user: peter.spjuth@gmail.com size: 7885)
| ︙ | |||
90 91 92 93 94 95 96 97 98 99 100 101 102 103 | 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 | + |
close $ch
}
proc listPlugins {} {
set dirs [PluginSearchPath]
foreach dir $dirs {
set dir [file normalize $dir]
set files [glob -nocomplain [file join $dir *.tcl]]
foreach file $files {
set file [file normalize $file]
if {[info exists done($file)]} continue
if {![file exists $file]} continue
if {![file isfile $file]} continue
if {![file readable $file]} continue
|
| ︙ |