Lines Matching refs:fd

41 proc pagerChangeCounter {filename new {fd ""}} {
42   if {$fd==""} {
43     set fd [open $filename RDWR]
44     fconfigure $fd -translation binary -encoding binary
50     seek $fd 24
55     puts -nonewline $fd [binary format cccc $a $b $c $d]
56     flush $fd
59   seek $fd 24
61   binary scan [read $fd 4] cccc a b c d
67   if {$needClose} {close $fd}
72   set fd [open $filename RDONLY]
73   fconfigure $fd -translation binary -encoding binary
75   seek $fd 24
77   binary scan [read $fd 4] cccc a b c d
83   close $fd
237   set ::fd [open test.db RDWR]
238   fconfigure $::fd -translation binary
239   seek $::fd 1024
240   puts -nonewline $::fd [string repeat [binary format c 0] 10000]
241   flush $::fd
246   pagerChangeCounter test.db 5 $::fd
269 catch {close $::fd}