File size distribution: Difference between revisions

proc ? {test a b} {tailcall if $test [list subst $a] [list subst $b]}

 

set dir [? {$argc} {[lindex $argv 0]} .]

fileutil::traverse Tobj $dir \

-filter {apply {path {eq [file type $path] file}}}

Tobj foreach path {

}

Tobj destroy