Здравствуйте, добрые люди!
Написал такоую конструкцию:
package require fileutil
proc exact_match { name } {
return [ string match qmake [ ::file tail $name ] ]
}
proc is_qmake { name } {
return [ exact_match $name ] && [ ::file isfile $name ]
}
set files [ ::fileutil::find /usr is_qmake ]
foreach file $files {
puts "$file: [ file type $file ]"
}
Вроде exact_match и is_qmake работают, как надо, но выводит почему-то любые файлы. Объсните, плиз, что не так.
