260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
|
}
set files $files2
}
}
set files2 {}
foreach file $files {
# Apply filters
if {[FileIsDirectory $file]} {
if {$Pref(nodir)} continue
if {[llength $Pref(dir,incdirs)] == 0} {
set allowed 1
} else {
set allowed 0
foreach pat $Pref(dir,incdirs) {
if {[string match $pat $file]} {
|
>
|
|
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
|
}
set files $files2
}
}
set files2 {}
foreach file $files {
set full [file join $dir $file]
# Apply filters
if {[FileIsDirectory $full]} {
if {$Pref(nodir)} continue
if {[llength $Pref(dir,incdirs)] == 0} {
set allowed 1
} else {
set allowed 0
foreach pat $Pref(dir,incdirs) {
if {[string match $pat $file]} {
|