Index: third_party/sqlite/sqlite-src-3080704/test/wal_common.tcl |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/wal_common.tcl b/third_party/sqlite/sqlite-src-3080704/test/wal_common.tcl |
deleted file mode 100644 |
index 917ad598f6307567d79c63f58b431e817acb8f61..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/wal_common.tcl |
+++ /dev/null |
@@ -1,93 +0,0 @@ |
-# 2010 June 03 |
-# |
-# The author disclaims copyright to this source code. In place of |
-# a legal notice, here is a blessing: |
-# |
-# May you do good and not evil. |
-# May you find forgiveness for yourself and forgive others. |
-# May you share freely, never taking more than you give. |
-# |
-#*********************************************************************** |
-# |
-# This file contains common code used by many different malloc tests |
-# within the test suite. |
-# |
- |
-proc wal_file_size {nFrame pgsz} { |
- expr {32 + ($pgsz+24)*$nFrame} |
-} |
- |
-proc wal_frame_count {zFile pgsz} { |
- if {[file exists $zFile]==0} { return 0 } |
- set f [file size $zFile] |
- if {$f < 32} { return 0 } |
- expr {($f - 32) / ($pgsz+24)} |
-} |
- |
-proc wal_cksum_intlist {ckv1 ckv2 intlist} { |
- upvar $ckv1 c1 |
- upvar $ckv2 c2 |
- foreach {v1 v2} $intlist { |
- set c1 [expr {($c1 + $v1 + $c2)&0xFFFFFFFF}] |
- set c2 [expr {($c2 + $v2 + $c1)&0xFFFFFFFF}] |
- } |
-} |
- |
- |
-# This proc calculates checksums in the same way as those used by SQLite |
-# in WAL files. If the $endian argument is "big", then checksums are |
-# calculated by interpreting data as an array of big-endian integers. If |
-# it is "little", data is interpreted as an array of little-endian integers. |
-# |
-proc wal_cksum {endian ckv1 ckv2 blob} { |
- upvar $ckv1 c1 |
- upvar $ckv2 c2 |
- |
- if {$endian!="big" && $endian!="little"} { |
- return -error "Bad value \"$endian\" - must be \"big\" or \"little\"" |
- } |
- set scanpattern I* |
- if {$endian == "little"} { set scanpattern i* } |
- |
- binary scan $blob $scanpattern values |
- wal_cksum_intlist c1 c2 $values |
-} |
- |
-proc wal_set_walhdr {filename {intlist {}}} { |
- if {[llength $intlist]==6} { |
- set blob [binary format I6 $intlist] |
- set endian little |
- if {[lindex $intlist 0] & 0x00000001} { set endian big } |
- set c1 0 |
- set c2 0 |
- wal_cksum $endian c1 c2 $blob |
- append blob [binary format II $c1 $c2] |
- |
- set fd [open $filename r+] |
- fconfigure $fd -translation binary |
- fconfigure $fd -encoding binary |
- seek $fd 0 |
- puts -nonewline $fd $blob |
- close $fd |
- } |
- |
- set fd [open $filename] |
- fconfigure $fd -translation binary |
- fconfigure $fd -encoding binary |
- set blob [read $fd 24] |
- close $fd |
- |
- binary scan $blob I6 ints |
- set ints |
-} |
- |
-proc wal_fix_walindex_cksum {hdrvar} { |
- upvar $hdrvar hdr |
- set c1 0 |
- set c2 0 |
- wal_cksum_intlist c1 c2 [lrange $hdr 0 9] |
- lset hdr 10 $c1 |
- lset hdr 11 $c2 |
-} |
- |
- |