Lines Matching refs:fd
4 set fd [open $file]
5 fconfigure $fd -trans binary
6 set sum [md5::md5 [read $fd]]
7 close $fd
11 proc walk {fd {dir .} {pre ""}} {
21 puts $fd "$pre[file mtime $x] [calcDigest $x] $t $s"
26 puts $fd "$pre/[file tail $x]"
27 walk $fd $x "$pre "
41 set fd [open $fn w]
42 fconfigure $fd -trans binary
47 walk $fd $dir
49 close $fd