Lines Matching refs:dirname

15 set testdir [file dirname $argv0]
30 proc populate_dir {dirname spec} {
32   file delete -force $dirname
35   file mkdir $dirname
39     set path [file join $dirname $f]
40     file mkdir [file dirname $path]
47 proc dir_content {dirname} {
48   lsort [glob -nocomplain $dirname/*]
51 proc dir_to_list {dirname {n -1}} {
52   if {$n<0} {set n [llength [file split $dirname]]}
55   foreach f [glob -nocomplain $dirname/*] {