Lines Matching refs:file

15 set testdir [file dirname $argv0]
32   file delete -force $dirname
35   file mkdir $dirname
37   # Add each file to the new tree.
39     set path [file join $dirname $f]
40     file mkdir [file dirname $path]
52   if {$n<0} {set n [llength [file split $dirname]]}
56     set mtime [file mtime $f]
58       set perm [file attributes $f -perm]
62     set relpath [file join {*}[lrange [file split $f] $n end]]
64     if {[file isdirectory $f]} {
113     set c3 ".ar --creat --dir ar1 --file test_xyz.db ."
124     set c3 ".ar -c --directory ar1 --file test_xyz.db ."
125     set x3 ".ar -x --directory ar3 --file test_xyz.db"
141     file delete -force ar1
147     file delete -force ar3
154     file delete -force ar3
155     file delete -force test_xyz.db
169       file delete -force ar1