Lines Matching refs:cksum
20 proc cksum {{db db}} {
28 set cksum [string length $txt]-[md5 $txt]
29 # puts $cksum-[file size test.db]
30 return $cksum
51 set ::cksum [cksum]
52 expr {$::cksum!=""}
58 cksum
59 } $cksum
76 set ::cksum [cksum]
77 expr {$::cksum!=""}
83 cksum
84 } $cksum
107 set ::cksum [cksum db2]
113 cksum
114 } $cksum
117 cksum db2
118 } $cksum