92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
+
+
+
|
proc printPlugins {} {
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
set done($file) 1
set ch [open $file r]
set data [read $ch 100]
close $ch
if {[regexp {^\#\#Eskil Plugin :(.*?)(\n|$)} $data -> descr]} {
puts "Plugin \"[file rootname [file tail $file]]\" : $descr"
}
}
|