106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
if {![file readable $file]} continue
set done($file) 1
set ch [open $file r]
set data [read $ch 200]
if {[regexp {^\#\#Eskil Plugin :(.*?)(\n|$)} $data -> 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 [dict keys $result]] {
|
|
|
|
|
|
|
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
if {![file readable $file]} continue
set done($file) 1
set ch [open $file r]
set data [read $ch 200]
if {[regexp {^\#\#Eskil Plugin :(.*?)(\n|$)} $data -> 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 [dict keys $result]] {
|