Return to wal_common.tcl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/wal_common.tcl, revision 1.1

1.1     ! misho       1: # 2010 June 03
        !             2: #
        !             3: # The author disclaims copyright to this source code.  In place of
        !             4: # a legal notice, here is a blessing:
        !             5: #
        !             6: #    May you do good and not evil.
        !             7: #    May you find forgiveness for yourself and forgive others.
        !             8: #    May you share freely, never taking more than you give.
        !             9: #
        !            10: #***********************************************************************
        !            11: #
        !            12: # This file contains common code used by many different malloc tests
        !            13: # within the test suite.
        !            14: #
        !            15: 
        !            16: proc wal_file_size {nFrame pgsz} {
        !            17:   expr {32 + ($pgsz+24)*$nFrame}
        !            18: }
        !            19: 
        !            20: proc wal_frame_count {zFile pgsz} {
        !            21:   if {[file exists $zFile]==0} { return 0 }
        !            22:   set f [file size $zFile]
        !            23:   if {$f < 32} { return 0 }
        !            24:   expr {($f - 32) / ($pgsz+24)}
        !            25: }
        !            26: 
        !            27: proc wal_cksum_intlist {ckv1 ckv2 intlist} {
        !            28:   upvar $ckv1 c1
        !            29:   upvar $ckv2 c2
        !            30:   foreach {v1 v2} $intlist {
        !            31:     set c1 [expr {($c1 + $v1 + $c2)&0xFFFFFFFF}]
        !            32:     set c2 [expr {($c2 + $v2 + $c1)&0xFFFFFFFF}]
        !            33:   }
        !            34: }
        !            35: 
        !            36: 
        !            37: # This proc calculates checksums in the same way as those used by SQLite 
        !            38: # in WAL files. If the $endian argument is "big", then checksums are
        !            39: # calculated by interpreting data as an array of big-endian integers. If
        !            40: # it is "little", data is interpreted as an array of little-endian integers.
        !            41: #
        !            42: proc wal_cksum {endian ckv1 ckv2 blob} {
        !            43:   upvar $ckv1 c1
        !            44:   upvar $ckv2 c2
        !            45: 
        !            46:   if {$endian!="big" && $endian!="little"} {
        !            47:     return -error "Bad value \"$endian\" - must be \"big\" or \"little\""
        !            48:   }
        !            49:   set scanpattern I*
        !            50:   if {$endian == "little"} { set scanpattern i* }
        !            51: 
        !            52:   binary scan $blob $scanpattern values
        !            53:   wal_cksum_intlist c1 c2 $values
        !            54: }
        !            55: 
        !            56: proc wal_set_walhdr {filename {intlist {}}} {
        !            57:   if {[llength $intlist]==6} {
        !            58:     set blob [binary format I6 $intlist]
        !            59:     set endian little
        !            60:     if {[lindex $intlist 0] & 0x00000001} { set endian big }
        !            61:     set c1 0
        !            62:     set c2 0
        !            63:     wal_cksum $endian c1 c2 $blob
        !            64:     append blob [binary format II $c1 $c2]
        !            65: 
        !            66:     set fd [open $filename r+]
        !            67:     fconfigure $fd -translation binary
        !            68:     fconfigure $fd -encoding binary
        !            69:     seek $fd 0
        !            70:     puts -nonewline $fd $blob
        !            71:     close $fd
        !            72:   }
        !            73: 
        !            74:   set fd [open $filename]
        !            75:   fconfigure $fd -translation binary
        !            76:   fconfigure $fd -encoding binary
        !            77:   set blob [read $fd 24]
        !            78:   close $fd
        !            79: 
        !            80:   binary scan $blob I6 ints
        !            81:   set ints
        !            82: }
        !            83: 
        !            84: proc wal_fix_walindex_cksum {hdrvar} {
        !            85:   upvar $hdrvar hdr
        !            86:   set c1 0
        !            87:   set c2 0
        !            88:   wal_cksum_intlist c1 c2 [lrange $hdr 0 9]
        !            89:   lset hdr 10 $c1
        !            90:   lset hdr 11 $c2
        !            91: }
        !            92: 
        !            93: