89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
+
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
-
+
+
|
set ch [open $src]
puts -nonewline [read $ch]
close $ch
}
proc listPlugins {} {
set dirs [PluginSearchPath]
set result {}
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
set done($file) 1
set ch [open $file r]
set data [read $ch 200]
close $ch
set result([file rootname [file tail $file]]) $descr
}
set root [file rootname [file tail $file]]
dict set result $root descr $descr
dict set result $root file 0
dict set result $root dir 0
# Load it all for inspection
append data [read $ch]
if {[string first "proc PreProcess " $data] >= 0} {
dict set result $root file 1
}
if {[string first "proc FileCompare " $data] >= 0} {
dict set result $root dir 1
}
}
close $ch
}
}
set resultSort {}
foreach elem [lsort -dictionary [array names result]] {
lappend resultSort $elem $result($elem)
foreach elem [lsort -dictionary [dict keys $result]] {
dict set resultSort $elem [dict get $result $elem]
}
return $resultSort
}
proc printPlugins {} {
set plugins [listPlugins]
if {[llength $plugins] == 0} {
puts "No plugins found."
return
}
puts "Available plugins:"
foreach {plugin descr} $plugins {
foreach {plugin info} $plugins {
set descr [dict get $info descr]
puts "Plugin \"$plugin\" : $descr"
}
}
proc preparePlugin {top} {
#FIXA: plugin miffo
disallowEdit $top
|
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
|
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
|
-
+
+
|
}
if {![info exists ::eskil($top,plugininfo)]} {
set ::eskil($top,plugininfo) ""
}
set ::eskil($top,edit,pluginname) $::eskil($top,pluginname)
set ::eskil($top,edit,plugininfo) $::eskil($top,plugininfo)
set t 0
foreach {plugin descr} $plugins {
foreach {plugin info} $plugins {
set descr [dict get $info descr]
ttk::radiobutton $w.rb$t -variable ::eskil($top,edit,pluginname) -value $plugin -text $plugin
ttk::label $w.l$t -text $descr -anchor "w"
grid $w.rb$t $w.l$t -sticky we -padx 3 -pady 3
incr t
}
ttk::radiobutton $w.rb$t -variable ::eskil($top,edit,pluginname) -value "" -text "No Plugin"
grid $w.rb$t -sticky we -padx 3 -pady 3
|