90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
close $ch
}
proc listPlugins {} {
set dirs [PluginSearchPath]
foreach dir $dirs {
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
|
>
|
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
|