/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact 5d1550b66790c928c1bb7c299a18ea0a83be0ab2:


0000: 23 20 32 30 30 31 20 53 65 70 74 65 6d 62 65 72  # 2001 September
0010: 20 31 35 0a 23 0a 23 20 54 68 65 20 61 75 74 68   15.#.# The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67  place of.# a leg
0060: 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20  al notice, here 
0070: 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23  is a blessing:.#
0080: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f  .#    May you do
0090: 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76   good and not ev
00a0: 69 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75  il..#    May you
00b0: 20 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73   find forgivenes
00c0: 73 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61  s for yourself a
00d0: 6e 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72  nd forgive other
00e0: 73 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  s..#    May you 
00f0: 73 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65  share freely, ne
0100: 76 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20  ver taking more 
0110: 74 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23  than you give..#
0120: 0a 23 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .#**************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 23 20 54 68 69 73  *********.# This
0170: 20 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73   file implements
0180: 20 73 6f 6d 65 20 63 6f 6d 6d 6f 6e 20 54 43 4c   some common TCL
0190: 20 72 6f 75 74 69 6e 65 73 20 75 73 65 64 20 66   routines used f
01a0: 6f 72 20 72 65 67 72 65 73 73 69 6f 6e 0a 23 20  or regression.# 
01b0: 74 65 73 74 69 6e 67 20 74 68 65 20 53 51 4c 69  testing the SQLi
01c0: 74 65 20 6c 69 62 72 61 72 79 0a 23 0a 23 20 24  te library.#.# $
01d0: 49 64 3a 20 74 65 73 74 65 72 2e 74 63 6c 2c 76  Id: tester.tcl,v
01e0: 20 31 2e 31 31 33 20 32 30 30 38 2f 30 33 2f 32   1.113 2008/03/2
01f0: 39 20 31 31 3a 30 30 3a 35 35 20 64 72 68 20 45  9 11:00:55 drh E
0200: 78 70 20 24 0a 0a 23 0a 23 20 57 68 61 74 20 66  xp $..#.# What f
0210: 6f 72 20 75 73 65 72 20 69 6e 70 75 74 20 62 65  or user input be
0220: 66 6f 72 65 20 63 6f 6e 74 69 6e 75 69 6e 67 2e  fore continuing.
0230: 20 20 54 68 69 73 20 67 69 76 65 73 20 61 6e 20    This gives an 
0240: 6f 70 70 6f 72 74 75 6e 69 74 79 0a 23 20 74 6f  opportunity.# to
0250: 20 63 6f 6e 6e 65 63 74 20 70 72 6f 66 69 6c 69   connect profili
0260: 6e 67 20 74 6f 6f 6c 73 20 74 6f 20 74 68 65 20  ng tools to the 
0270: 70 72 6f 63 65 73 73 2e 0a 23 0a 66 6f 72 20 7b  process..#.for {
0280: 73 65 74 20 69 20 30 7d 20 7b 24 69 3c 5b 6c 6c  set i 0} {$i<[ll
0290: 65 6e 67 74 68 20 24 61 72 67 76 5d 7d 20 7b 69  ength $argv]} {i
02a0: 6e 63 72 20 69 7d 20 7b 0a 20 20 69 66 20 7b 5b  ncr i} {.  if {[
02b0: 72 65 67 65 78 70 20 7b 5e 2d 2b 70 61 75 73 65  regexp {^-+pause
02c0: 24 7d 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76  $} [lindex $argv
02d0: 20 24 69 5d 20 61 6c 6c 20 76 61 6c 75 65 5d 7d   $i] all value]}
02e0: 20 7b 0a 20 20 20 20 70 75 74 73 20 2d 6e 6f 6e   {.    puts -non
02f0: 65 77 6c 69 6e 65 20 22 50 72 65 73 73 20 52 45  ewline "Press RE
0300: 54 55 52 4e 20 74 6f 20 62 65 67 69 6e 2e 2e 2e  TURN to begin...
0310: 22 0a 20 20 20 20 66 6c 75 73 68 20 73 74 64 6f  ".    flush stdo
0320: 75 74 0a 20 20 20 20 67 65 74 73 20 73 74 64 69  ut.    gets stdi
0330: 6e 0a 20 20 20 20 73 65 74 20 61 72 67 76 20 5b  n.    set argv [
0340: 6c 72 65 70 6c 61 63 65 20 24 61 72 67 76 20 24  lreplace $argv $
0350: 69 20 24 69 5d 0a 20 20 7d 0a 7d 0a 0a 73 65 74  i $i].  }.}..set
0360: 20 74 63 6c 5f 70 72 65 63 69 73 69 6f 6e 20 31   tcl_precision 1
0370: 35 0a 73 65 74 20 73 71 6c 69 74 65 5f 70 65 6e  5.set sqlite_pen
0380: 64 69 6e 67 5f 62 79 74 65 20 30 78 30 30 31 30  ding_byte 0x0010
0390: 30 30 30 0a 0a 23 20 0a 23 20 43 68 65 63 6b 20  000..# .# Check 
03a0: 74 68 65 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65  the command-line
03b0: 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 61   arguments for a
03c0: 20 64 65 66 61 75 6c 74 20 73 6f 66 74 2d 68 65   default soft-he
03d0: 61 70 2d 6c 69 6d 69 74 2e 0a 23 20 53 74 6f 72  ap-limit..# Stor
03e0: 65 20 74 68 69 73 20 64 65 66 61 75 6c 74 20 76  e this default v
03f0: 61 6c 75 65 20 69 6e 20 74 68 65 20 67 6c 6f 62  alue in the glob
0400: 61 6c 20 76 61 72 69 61 62 6c 65 20 3a 3a 73 6f  al variable ::so
0410: 66 74 5f 6c 69 6d 69 74 20 61 6e 64 0a 23 20 75  ft_limit and.# u
0420: 70 64 61 74 65 20 74 68 65 20 73 6f 66 74 2d 68  pdate the soft-h
0430: 65 61 70 2d 6c 69 6d 69 74 20 65 61 63 68 20 74  eap-limit each t
0440: 69 6d 65 20 74 68 69 73 20 73 63 72 69 70 74 20  ime this script 
0450: 69 73 20 72 75 6e 2e 20 20 49 6e 20 74 68 61 74  is run.  In that
0460: 0a 23 20 77 61 79 20 69 66 20 61 6e 20 69 6e 64  .# way if an ind
0470: 69 76 69 64 75 61 6c 20 74 65 73 74 20 66 69 6c  ividual test fil
0480: 65 20 63 68 61 6e 67 65 73 20 74 68 65 20 73 6f  e changes the so
0490: 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 2c 20 69  ft-heap-limit, i
04a0: 74 0a 23 20 77 69 6c 6c 20 62 65 20 72 65 73 65  t.# will be rese
04b0: 74 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f  t at the start o
04c0: 66 20 74 68 65 20 6e 65 78 74 20 74 65 73 74 20  f the next test 
04d0: 66 69 6c 65 2e 0a 23 0a 69 66 20 7b 21 5b 69 6e  file..#.if {![in
04e0: 66 6f 20 65 78 69 73 74 73 20 73 6f 66 74 5f 6c  fo exists soft_l
04f0: 69 6d 69 74 5d 7d 20 7b 0a 20 20 73 65 74 20 73  imit]} {.  set s
0500: 6f 66 74 5f 6c 69 6d 69 74 20 30 0a 20 20 66 6f  oft_limit 0.  fo
0510: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c  r {set i 0} {$i<
0520: 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 76 5d 7d  [llength $argv]}
0530: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
0540: 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 2d 2d  if {[regexp {^--
0550: 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 3d  soft-heap-limit=
0560: 28 2e 2b 29 24 7d 20 5b 6c 69 6e 64 65 78 20 24  (.+)$} [lindex $
0570: 61 72 67 76 20 24 69 5d 20 61 6c 6c 20 76 61 6c  argv $i] all val
0580: 75 65 5d 7d 20 7b 0a 20 20 20 20 20 20 69 66 20  ue]} {.      if 
0590: 7b 24 76 61 6c 75 65 21 3d 22 6f 66 66 22 7d 20  {$value!="off"} 
05a0: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 73 6f  {.        set so
05b0: 66 74 5f 6c 69 6d 69 74 20 24 76 61 6c 75 65 0a  ft_limit $value.
05c0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 65        }.      se
05d0: 74 20 61 72 67 76 20 5b 6c 72 65 70 6c 61 63 65  t argv [lreplace
05e0: 20 24 61 72 67 76 20 24 69 20 24 69 5d 0a 20 20   $argv $i $i].  
05f0: 20 20 7d 0a 20 20 7d 0a 7d 0a 73 71 6c 69 74 65    }.  }.}.sqlite
0600: 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69  3_soft_heap_limi
0610: 74 20 24 73 6f 66 74 5f 6c 69 6d 69 74 0a 0a 23  t $soft_limit..#
0620: 20 0a 23 20 43 68 65 63 6b 20 74 68 65 20 63 6f   .# Check the co
0630: 6d 6d 61 6e 64 2d 6c 69 6e 65 20 61 72 67 75 6d  mmand-line argum
0640: 65 6e 74 73 20 74 6f 20 73 65 74 20 74 68 65 20  ents to set the 
0650: 6d 65 6d 6f 72 79 20 64 65 62 75 67 67 65 72 0a  memory debugger.
0660: 23 20 62 61 63 6b 74 72 61 63 65 20 64 65 70 74  # backtrace dept
0670: 68 2e 0a 23 0a 23 20 53 65 65 20 74 68 65 20 73  h..#.# See the s
0680: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
0690: 62 61 63 6b 74 72 61 63 65 28 29 20 66 75 6e 63  backtrace() func
06a0: 74 69 6f 6e 20 69 6e 20 6d 65 6d 32 2e 63 20 6f  tion in mem2.c o
06b0: 72 0a 23 20 74 65 73 74 5f 6d 61 6c 6c 6f 63 2e  r.# test_malloc.
06c0: 63 20 66 6f 72 20 61 64 64 69 74 69 6f 6e 61 6c  c for additional
06d0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 23 0a   information..#.
06e0: 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24  for {set i 0} {$
06f0: 69 3c 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 76  i<[llength $argv
0700: 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20  ]} {incr i} {.  
0710: 69 66 20 7b 5b 6c 69 6e 64 65 78 20 24 61 72 67  if {[lindex $arg
0720: 76 20 24 69 5d 20 65 71 20 22 2d 2d 6d 61 6c 6c  v $i] eq "--mall
0730: 6f 63 74 72 61 63 65 22 7d 20 7b 0a 20 20 20 20  octrace"} {.    
0740: 73 65 74 20 61 72 67 76 20 5b 6c 72 65 70 6c 61  set argv [lrepla
0750: 63 65 20 24 61 72 67 76 20 24 69 20 24 69 5d 0a  ce $argv $i $i].
0760: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64      sqlite3_memd
0770: 65 62 75 67 5f 62 61 63 6b 74 72 61 63 65 20 31  ebug_backtrace 1
0780: 30 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65  0.    sqlite3_me
0790: 6d 64 65 62 75 67 5f 6c 6f 67 20 73 74 61 72 74  mdebug_log start
07a0: 0a 20 20 20 20 73 65 74 20 61 72 67 76 20 5b 6c  .    set argv [l
07b0: 72 65 70 6c 61 63 65 20 24 61 72 67 76 20 24 69  replace $argv $i
07c0: 20 24 69 5d 0a 20 20 20 20 73 65 74 20 74 65 73   $i].    set tes
07d0: 74 65 72 5f 64 6f 5f 6d 61 6c 6c 6f 63 74 72 61  ter_do_malloctra
07e0: 63 65 20 31 0a 20 20 7d 0a 7d 0a 66 6f 72 20 7b  ce 1.  }.}.for {
07f0: 73 65 74 20 69 20 30 7d 20 7b 24 69 3c 5b 6c 6c  set i 0} {$i<[ll
0800: 65 6e 67 74 68 20 24 61 72 67 76 5d 7d 20 7b 69  ength $argv]} {i
0810: 6e 63 72 20 69 7d 20 7b 0a 20 20 69 66 20 7b 5b  ncr i} {.  if {[
0820: 72 65 67 65 78 70 20 7b 5e 2d 2d 62 61 63 6b 74  regexp {^--backt
0830: 72 61 63 65 3d 28 5c 64 2b 29 24 7d 20 5b 6c 69  race=(\d+)$} [li
0840: 6e 64 65 78 20 24 61 72 67 76 20 24 69 5d 20 61  ndex $argv $i] a
0850: 6c 6c 20 76 61 6c 75 65 5d 7d 20 7b 0a 20 20 20  ll value]} {.   
0860: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
0870: 67 5f 62 61 63 6b 74 72 61 63 65 20 24 76 61 6c  g_backtrace $val
0880: 75 65 0a 20 20 20 20 73 65 74 20 61 72 67 76 20  ue.    set argv 
0890: 5b 6c 72 65 70 6c 61 63 65 20 24 61 72 67 76 20  [lreplace $argv 
08a0: 24 69 20 24 69 5d 0a 20 20 7d 0a 7d 0a 0a 23 20  $i $i].  }.}..# 
08b0: 0a 23 20 43 68 65 63 6b 20 74 68 65 20 63 6f 6d  .# Check the com
08c0: 6d 61 6e 64 2d 6c 69 6e 65 20 61 72 67 75 6d 65  mand-line argume
08d0: 6e 74 73 20 74 6f 20 73 65 74 20 74 68 65 20 6d  nts to set the m
08e0: 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66  aximum number of
08f0: 0a 23 20 65 72 72 6f 72 73 20 74 6f 6c 65 72 61  .# errors tolera
0900: 74 65 64 20 62 65 66 6f 72 65 20 68 61 6c 74 69  ted before halti
0910: 6e 67 2e 0a 23 0a 69 66 20 7b 21 5b 69 6e 66 6f  ng..#.if {![info
0920: 20 65 78 69 73 74 73 20 6d 61 78 45 72 72 5d 7d   exists maxErr]}
0930: 20 7b 0a 20 20 73 65 74 20 6d 61 78 45 72 72 20   {.  set maxErr 
0940: 31 30 30 30 0a 7d 0a 66 6f 72 20 7b 73 65 74 20  1000.}.for {set 
0950: 69 20 30 7d 20 7b 24 69 3c 5b 6c 6c 65 6e 67 74  i 0} {$i<[llengt
0960: 68 20 24 61 72 67 76 5d 7d 20 7b 69 6e 63 72 20  h $argv]} {incr 
0970: 69 7d 20 7b 0a 20 20 69 66 20 7b 5b 72 65 67 65  i} {.  if {[rege
0980: 78 70 20 7b 5e 2d 2d 6d 61 78 65 72 72 6f 72 3d  xp {^--maxerror=
0990: 28 5c 64 2b 29 24 7d 20 5b 6c 69 6e 64 65 78 20  (\d+)$} [lindex 
09a0: 24 61 72 67 76 20 24 69 5d 20 61 6c 6c 20 6d 61  $argv $i] all ma
09b0: 78 45 72 72 5d 7d 20 7b 0a 20 20 20 20 73 65 74  xErr]} {.    set
09c0: 20 61 72 67 76 20 5b 6c 72 65 70 6c 61 63 65 20   argv [lreplace 
09d0: 24 61 72 67 76 20 24 69 20 24 69 5d 0a 20 20 7d  $argv $i $i].  }
09e0: 0a 7d 0a 23 70 75 74 73 20 22 4d 61 78 20 65 72  .}.#puts "Max er
09f0: 72 6f 72 20 3d 20 24 6d 61 78 45 72 72 22 0a 0a  ror = $maxErr"..
0a00: 0a 23 20 55 73 65 20 74 68 65 20 70 61 67 65 72  .# Use the pager
0a10: 20 63 6f 64 65 63 20 69 66 20 69 74 20 69 73 20   codec if it is 
0a20: 61 76 61 69 6c 61 62 6c 65 0a 23 0a 69 66 20 7b  available.#.if {
0a30: 5b 73 71 6c 69 74 65 33 20 2d 68 61 73 2d 63 6f  [sqlite3 -has-co
0a40: 64 65 63 5d 20 26 26 20 5b 69 6e 66 6f 20 63 6f  dec] && [info co
0a50: 6d 6d 61 6e 64 20 73 71 6c 69 74 65 5f 6f 72 69  mmand sqlite_ori
0a60: 67 5d 3d 3d 22 22 7d 20 7b 0a 20 20 72 65 6e 61  g]==""} {.  rena
0a70: 6d 65 20 73 71 6c 69 74 65 33 20 73 71 6c 69 74  me sqlite3 sqlit
0a80: 65 5f 6f 72 69 67 0a 20 20 70 72 6f 63 20 73 71  e_orig.  proc sq
0a90: 6c 69 74 65 33 20 7b 61 72 67 73 7d 20 7b 0a 20  lite3 {args} {. 
0aa0: 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20     if {[llength 
0ab0: 24 61 72 67 73 5d 3d 3d 32 20 26 26 20 5b 73 74  $args]==2 && [st
0ac0: 72 69 6e 67 20 69 6e 64 65 78 20 5b 6c 69 6e 64  ring index [lind
0ad0: 65 78 20 24 61 72 67 73 20 30 5d 20 30 5d 21 3d  ex $args 0] 0]!=
0ae0: 22 2d 22 7d 20 7b 0a 20 20 20 20 20 20 6c 61 70  "-"} {.      lap
0af0: 70 65 6e 64 20 61 72 67 73 20 2d 6b 65 79 20 7b  pend args -key {
0b00: 78 79 7a 7a 79 7d 0a 20 20 20 20 7d 0a 20 20 20  xyzzy}.    }.   
0b10: 20 75 70 6c 65 76 65 6c 20 31 20 73 71 6c 69 74   uplevel 1 sqlit
0b20: 65 5f 6f 72 69 67 20 24 61 72 67 73 0a 20 20 7d  e_orig $args.  }
0b30: 0a 7d 0a 0a 0a 23 20 43 72 65 61 74 65 20 61 20  .}...# Create a 
0b40: 74 65 73 74 20 64 61 74 61 62 61 73 65 0a 23 0a  test database.#.
0b50: 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d  catch {db close}
0b60: 0a 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f  .file delete -fo
0b70: 72 63 65 20 74 65 73 74 2e 64 62 0a 66 69 6c 65  rce test.db.file
0b80: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74   delete -force t
0b90: 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 73  est.db-journal.s
0ba0: 71 6c 69 74 65 33 20 64 62 20 2e 2f 74 65 73 74  qlite3 db ./test
0bb0: 2e 64 62 0a 73 65 74 20 3a 3a 44 42 20 5b 73 71  .db.set ::DB [sq
0bc0: 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e  lite3_connection
0bd0: 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 69 66 20  _pointer db].if 
0be0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
0bf0: 53 45 54 55 50 5f 53 51 4c 5d 7d 20 7b 0a 20 20  SETUP_SQL]} {.  
0c00: 64 62 20 65 76 61 6c 20 24 3a 3a 53 45 54 55 50  db eval $::SETUP
0c10: 5f 53 51 4c 0a 7d 0a 0a 23 20 41 62 6f 72 74 20  _SQL.}..# Abort 
0c20: 65 61 72 6c 79 20 69 66 20 74 68 69 73 20 73 63  early if this sc
0c30: 72 69 70 74 20 68 61 73 20 62 65 65 6e 20 72 75  ript has been ru
0c40: 6e 20 62 65 66 6f 72 65 2e 0a 23 0a 69 66 20 7b  n before..#.if {
0c50: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6e 54 65  [info exists nTe
0c60: 73 74 5d 7d 20 72 65 74 75 72 6e 0a 0a 23 20 53  st]} return..# S
0c70: 65 74 20 74 68 65 20 74 65 73 74 20 63 6f 75 6e  et the test coun
0c80: 74 65 72 73 20 74 6f 20 7a 65 72 6f 0a 23 0a 73  ters to zero.#.s
0c90: 65 74 20 6e 45 72 72 20 30 0a 73 65 74 20 6e 54  et nErr 0.set nT
0ca0: 65 73 74 20 30 0a 73 65 74 20 73 6b 69 70 5f 74  est 0.set skip_t
0cb0: 65 73 74 20 30 0a 73 65 74 20 66 61 69 6c 4c 69  est 0.set failLi
0cc0: 73 74 20 7b 7d 0a 69 66 20 7b 21 5b 69 6e 66 6f  st {}.if {![info
0cd0: 20 65 78 69 73 74 73 20 73 70 65 65 64 54 65 73   exists speedTes
0ce0: 74 5d 7d 20 7b 0a 20 20 73 65 74 20 73 70 65 65  t]} {.  set spee
0cf0: 64 54 65 73 74 20 30 0a 7d 0a 0a 23 20 49 6e 76  dTest 0.}..# Inv
0d00: 6f 6b 65 20 74 68 65 20 64 6f 5f 74 65 73 74 20  oke the do_test 
0d10: 70 72 6f 63 65 64 75 72 65 20 74 6f 20 72 75 6e  procedure to run
0d20: 20 61 20 73 69 6e 67 6c 65 20 74 65 73 74 20 0a   a single test .
0d30: 23 0a 70 72 6f 63 20 64 6f 5f 74 65 73 74 20 7b  #.proc do_test {
0d40: 6e 61 6d 65 20 63 6d 64 20 65 78 70 65 63 74 65  name cmd expecte
0d50: 64 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 61 72  d} {.  global ar
0d60: 67 76 20 6e 45 72 72 20 6e 54 65 73 74 20 73 6b  gv nErr nTest sk
0d70: 69 70 5f 74 65 73 74 20 6d 61 78 45 72 72 0a 20  ip_test maxErr. 
0d80: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
0d90: 67 5f 73 65 74 74 69 74 6c 65 20 24 6e 61 6d 65  g_settitle $name
0da0: 0a 20 20 69 66 20 7b 24 73 6b 69 70 5f 74 65 73  .  if {$skip_tes
0db0: 74 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 6b 69  t} {.    set ski
0dc0: 70 5f 74 65 73 74 20 30 0a 20 20 20 20 72 65 74  p_test 0.    ret
0dd0: 75 72 6e 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 6c  urn.  }.  if {[l
0de0: 6c 65 6e 67 74 68 20 24 61 72 67 76 5d 3d 3d 30  length $argv]==0
0df0: 7d 20 7b 20 0a 20 20 20 20 73 65 74 20 67 6f 20  } { .    set go 
0e00: 31 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  1.  } else {.   
0e10: 20 73 65 74 20 67 6f 20 30 0a 20 20 20 20 66 6f   set go 0.    fo
0e20: 72 65 61 63 68 20 70 61 74 74 65 72 6e 20 24 61  reach pattern $a
0e30: 72 67 76 20 7b 0a 20 20 20 20 20 20 69 66 20 7b  rgv {.      if {
0e40: 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20 24 70  [string match $p
0e50: 61 74 74 65 72 6e 20 24 6e 61 6d 65 5d 7d 20 7b  attern $name]} {
0e60: 0a 20 20 20 20 20 20 20 20 73 65 74 20 67 6f 20  .        set go 
0e70: 31 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 0a  1.        break.
0e80: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
0e90: 7d 0a 20 20 69 66 20 7b 21 24 67 6f 7d 20 72 65  }.  if {!$go} re
0ea0: 74 75 72 6e 0a 20 20 69 6e 63 72 20 6e 54 65 73  turn.  incr nTes
0eb0: 74 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c  t.  puts -nonewl
0ec0: 69 6e 65 20 24 6e 61 6d 65 2e 2e 2e 0a 20 20 66  ine $name....  f
0ed0: 6c 75 73 68 20 73 74 64 6f 75 74 0a 20 20 69 66  lush stdout.  if
0ee0: 20 7b 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65   {[catch {upleve
0ef0: 6c 20 23 30 20 22 24 63 6d 64 3b 5c 6e 22 7d 20  l #0 "$cmd;\n"} 
0f00: 72 65 73 75 6c 74 5d 7d 20 7b 0a 20 20 20 20 70  result]} {.    p
0f10: 75 74 73 20 22 5c 6e 45 72 72 6f 72 3a 20 24 72  uts "\nError: $r
0f20: 65 73 75 6c 74 22 0a 20 20 20 20 69 6e 63 72 20  esult".    incr 
0f30: 6e 45 72 72 0a 20 20 20 20 6c 61 70 70 65 6e 64  nErr.    lappend
0f40: 20 3a 3a 66 61 69 6c 4c 69 73 74 20 24 6e 61 6d   ::failList $nam
0f50: 65 0a 20 20 20 20 69 66 20 7b 24 6e 45 72 72 3e  e.    if {$nErr>
0f60: 24 6d 61 78 45 72 72 7d 20 7b 70 75 74 73 20 22  $maxErr} {puts "
0f70: 2a 2a 2a 20 47 69 76 69 6e 67 20 75 70 2e 2e 2e  *** Giving up...
0f80: 22 3b 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74  "; finalize_test
0f90: 69 6e 67 7d 0a 20 20 7d 20 65 6c 73 65 69 66 20  ing}.  } elseif 
0fa0: 7b 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 65  {[string compare
0fb0: 20 24 72 65 73 75 6c 74 20 24 65 78 70 65 63 74   $result $expect
0fc0: 65 64 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 20  ed]} {.    puts 
0fd0: 22 5c 6e 45 78 70 65 63 74 65 64 3a 20 5c 5b 24  "\nExpected: \[$
0fe0: 65 78 70 65 63 74 65 64 5c 5d 5c 6e 20 20 20 20  expected\]\n    
0ff0: 20 47 6f 74 3a 20 5c 5b 24 72 65 73 75 6c 74 5c   Got: \[$result\
1000: 5d 22 0a 20 20 20 20 69 6e 63 72 20 6e 45 72 72  ]".    incr nErr
1010: 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 66  .    lappend ::f
1020: 61 69 6c 4c 69 73 74 20 24 6e 61 6d 65 0a 20 20  ailList $name.  
1030: 20 20 69 66 20 7b 24 6e 45 72 72 3e 3d 24 6d 61    if {$nErr>=$ma
1040: 78 45 72 72 7d 20 7b 70 75 74 73 20 22 2a 2a 2a  xErr} {puts "***
1050: 20 47 69 76 69 6e 67 20 75 70 2e 2e 2e 22 3b 20   Giving up..."; 
1060: 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74 69 6e 67  finalize_testing
1070: 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  }.  } else {.   
1080: 20 70 75 74 73 20 22 20 4f 6b 22 0a 20 20 7d 0a   puts " Ok".  }.
1090: 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 7d    flush stdout.}
10a0: 0a 0a 23 20 52 75 6e 20 61 6e 20 53 51 4c 20 73  ..# Run an SQL s
10b0: 63 72 69 70 74 2e 20 20 0a 23 20 52 65 74 75 72  cript.  .# Retur
10c0: 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20  n the number of 
10d0: 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 70 65 72  microseconds per
10e0: 20 73 74 61 74 65 6d 65 6e 74 2e 0a 23 0a 70 72   statement..#.pr
10f0: 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c 20 7b  oc speed_trial {
1100: 6e 61 6d 65 20 6e 75 6d 73 74 6d 74 20 75 6e 69  name numstmt uni
1110: 74 73 20 73 71 6c 7d 20 7b 0a 20 20 70 75 74 73  ts sql} {.  puts
1120: 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66 6f 72   -nonewline [for
1130: 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 7d 20  mat {%-21.21s } 
1140: 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c 75 73  $name...].  flus
1150: 68 20 73 74 64 6f 75 74 0a 20 20 73 65 74 20 73  h stdout.  set s
1160: 70 65 65 64 20 5b 74 69 6d 65 20 7b 73 71 6c 69  peed [time {sqli
1170: 74 65 33 5f 65 78 65 63 5f 6e 72 20 64 62 20 24  te3_exec_nr db $
1180: 73 71 6c 7d 5d 0a 20 20 73 65 74 20 74 6d 20 5b  sql}].  set tm [
1190: 6c 69 6e 64 65 78 20 24 73 70 65 65 64 20 30 5d  lindex $speed 0]
11a0: 0a 20 20 69 66 20 7b 24 74 6d 20 3d 3d 20 30 7d  .  if {$tm == 0}
11b0: 20 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65 20   {.    set rate 
11c0: 5b 66 6f 72 6d 61 74 20 25 32 30 73 20 22 6d 61  [format %20s "ma
11d0: 6e 79 22 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a  ny"].  } else {.
11e0: 20 20 20 20 73 65 74 20 72 61 74 65 20 5b 66 6f      set rate [fo
11f0: 72 6d 61 74 20 25 32 30 2e 35 66 20 5b 65 78 70  rmat %20.5f [exp
1200: 72 20 7b 31 30 30 30 30 30 30 2e 30 2a 24 6e 75  r {1000000.0*$nu
1210: 6d 73 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20 7d  mstmt/$tm}]].  }
1220: 0a 20 20 73 65 74 20 75 32 20 24 75 6e 69 74 73  .  set u2 $units
1230: 2f 73 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d 61  /s.  puts [forma
1240: 74 20 7b 25 31 32 64 20 75 53 20 25 73 20 25 73  t {%12d uS %s %s
1250: 7d 20 24 74 6d 20 24 72 61 74 65 20 24 75 32 5d  } $tm $rate $u2]
1260: 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f  .  global total_
1270: 74 69 6d 65 0a 20 20 73 65 74 20 74 6f 74 61 6c  time.  set total
1280: 5f 74 69 6d 65 20 5b 65 78 70 72 20 7b 24 74 6f  _time [expr {$to
1290: 74 61 6c 5f 74 69 6d 65 2b 24 74 6d 7d 5d 0a 7d  tal_time+$tm}].}
12a0: 0a 70 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61  .proc speed_tria
12b0: 6c 5f 74 63 6c 20 7b 6e 61 6d 65 20 6e 75 6d 73  l_tcl {name nums
12c0: 74 6d 74 20 75 6e 69 74 73 20 73 63 72 69 70 74  tmt units script
12d0: 7d 20 7b 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65  } {.  puts -none
12e0: 77 6c 69 6e 65 20 5b 66 6f 72 6d 61 74 20 7b 25  wline [format {%
12f0: 2d 32 31 2e 32 31 73 20 7d 20 24 6e 61 6d 65 2e  -21.21s } $name.
1300: 2e 2e 5d 0a 20 20 66 6c 75 73 68 20 73 74 64 6f  ..].  flush stdo
1310: 75 74 0a 20 20 73 65 74 20 73 70 65 65 64 20 5b  ut.  set speed [
1320: 74 69 6d 65 20 7b 65 76 61 6c 20 24 73 63 72 69  time {eval $scri
1330: 70 74 7d 5d 0a 20 20 73 65 74 20 74 6d 20 5b 6c  pt}].  set tm [l
1340: 69 6e 64 65 78 20 24 73 70 65 65 64 20 30 5d 0a  index $speed 0].
1350: 20 20 69 66 20 7b 24 74 6d 20 3d 3d 20 30 7d 20    if {$tm == 0} 
1360: 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65 20 5b  {.    set rate [
1370: 66 6f 72 6d 61 74 20 25 32 30 73 20 22 6d 61 6e  format %20s "man
1380: 79 22 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20  y"].  } else {. 
1390: 20 20 20 73 65 74 20 72 61 74 65 20 5b 66 6f 72     set rate [for
13a0: 6d 61 74 20 25 32 30 2e 35 66 20 5b 65 78 70 72  mat %20.5f [expr
13b0: 20 7b 31 30 30 30 30 30 30 2e 30 2a 24 6e 75 6d   {1000000.0*$num
13c0: 73 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20 7d 0a  stmt/$tm}]].  }.
13d0: 20 20 73 65 74 20 75 32 20 24 75 6e 69 74 73 2f    set u2 $units/
13e0: 73 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74  s.  puts [format
13f0: 20 7b 25 31 32 64 20 75 53 20 25 73 20 25 73 7d   {%12d uS %s %s}
1400: 20 24 74 6d 20 24 72 61 74 65 20 24 75 32 5d 0a   $tm $rate $u2].
1410: 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74    global total_t
1420: 69 6d 65 0a 20 20 73 65 74 20 74 6f 74 61 6c 5f  ime.  set total_
1430: 74 69 6d 65 20 5b 65 78 70 72 20 7b 24 74 6f 74  time [expr {$tot
1440: 61 6c 5f 74 69 6d 65 2b 24 74 6d 7d 5d 0a 7d 0a  al_time+$tm}].}.
1450: 70 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c  proc speed_trial
1460: 5f 69 6e 69 74 20 7b 6e 61 6d 65 7d 20 7b 0a 20  _init {name} {. 
1470: 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69   global total_ti
1480: 6d 65 0a 20 20 73 65 74 20 74 6f 74 61 6c 5f 74  me.  set total_t
1490: 69 6d 65 20 30 0a 7d 0a 70 72 6f 63 20 73 70 65  ime 0.}.proc spe
14a0: 65 64 5f 74 72 69 61 6c 5f 73 75 6d 6d 61 72 79  ed_trial_summary
14b0: 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c 6f 62   {name} {.  glob
14c0: 61 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20  al total_time.  
14d0: 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b 25 2d  puts [format {%-
14e0: 32 31 2e 32 31 73 20 25 31 32 64 20 75 53 20 54  21.21s %12d uS T
14f0: 4f 54 41 4c 7d 20 24 6e 61 6d 65 20 24 74 6f 74  OTAL} $name $tot
1500: 61 6c 5f 74 69 6d 65 5d 0a 7d 0a 0a 23 20 52 75  al_time].}..# Ru
1510: 6e 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 6c  n this routine l
1520: 61 73 74 0a 23 0a 70 72 6f 63 20 66 69 6e 69 73  ast.#.proc finis
1530: 68 5f 74 65 73 74 20 7b 7d 20 7b 0a 20 20 66 69  h_test {} {.  fi
1540: 6e 61 6c 69 7a 65 5f 74 65 73 74 69 6e 67 0a 7d  nalize_testing.}
1550: 0a 70 72 6f 63 20 66 69 6e 61 6c 69 7a 65 5f 74  .proc finalize_t
1560: 65 73 74 69 6e 67 20 7b 7d 20 7b 0a 20 20 67 6c  esting {} {.  gl
1570: 6f 62 61 6c 20 6e 54 65 73 74 20 6e 45 72 72 20  obal nTest nErr 
1580: 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65  sqlite_open_file
1590: 5f 63 6f 75 6e 74 0a 0a 20 20 63 61 74 63 68 20  _count..  catch 
15a0: 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74  {db close}.  cat
15b0: 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20  ch {db2 close}. 
15c0: 20 63 61 74 63 68 20 7b 64 62 33 20 63 6c 6f 73   catch {db3 clos
15d0: 65 7d 0a 0a 20 20 76 66 73 5f 75 6e 6c 69 6e 6b  e}..  vfs_unlink
15e0: 5f 74 65 73 74 0a 20 20 73 71 6c 69 74 65 33 20  _test.  sqlite3 
15f0: 64 62 20 7b 7d 0a 20 20 23 20 73 71 6c 69 74 65  db {}.  # sqlite
1600: 33 5f 63 6c 65 61 72 5f 74 73 64 5f 6d 65 6d 64  3_clear_tsd_memd
1610: 65 62 75 67 0a 20 20 64 62 20 63 6c 6f 73 65 0a  ebug.  db close.
1620: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 5f    sqlite3_reset_
1630: 61 75 74 6f 5f 65 78 74 65 6e 73 69 6f 6e 0a 20  auto_extension. 
1640: 20 73 65 74 20 68 65 61 70 6c 69 6d 69 74 20 5b   set heaplimit [
1650: 73 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 61  sqlite3_soft_hea
1660: 70 5f 6c 69 6d 69 74 5d 0a 20 20 69 66 20 7b 24  p_limit].  if {$
1670: 68 65 61 70 6c 69 6d 69 74 21 3d 24 3a 3a 73 6f  heaplimit!=$::so
1680: 66 74 5f 6c 69 6d 69 74 7d 20 7b 0a 20 20 20 20  ft_limit} {.    
1690: 70 75 74 73 20 22 73 6f 66 74 2d 68 65 61 70 2d  puts "soft-heap-
16a0: 6c 69 6d 69 74 20 63 68 61 6e 67 65 64 20 62 79  limit changed by
16b0: 20 74 68 69 73 20 73 63 72 69 70 74 5c 0a 20 20   this script\.  
16c0: 20 20 20 20 20 20 20 20 66 72 6f 6d 20 24 3a 3a          from $::
16d0: 73 6f 66 74 5f 6c 69 6d 69 74 20 74 6f 20 24 68  soft_limit to $h
16e0: 65 61 70 6c 69 6d 69 74 22 0a 20 20 7d 20 65 6c  eaplimit".  } el
16f0: 73 65 69 66 20 7b 24 68 65 61 70 6c 69 6d 69 74  seif {$heaplimit
1700: 21 3d 22 22 20 26 26 20 24 68 65 61 70 6c 69 6d  !="" && $heaplim
1710: 69 74 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  it>0} {.    puts
1720: 20 22 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69   "soft-heap-limi
1730: 74 20 73 65 74 20 74 6f 20 24 68 65 61 70 6c 69  t set to $heapli
1740: 6d 69 74 22 0a 20 20 7d 0a 20 20 73 71 6c 69 74  mit".  }.  sqlit
1750: 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d  e3_soft_heap_lim
1760: 69 74 20 30 0a 20 20 69 6e 63 72 20 6e 54 65 73  it 0.  incr nTes
1770: 74 0a 20 20 70 75 74 73 20 22 24 6e 45 72 72 20  t.  puts "$nErr 
1780: 65 72 72 6f 72 73 20 6f 75 74 20 6f 66 20 24 6e  errors out of $n
1790: 54 65 73 74 20 74 65 73 74 73 22 0a 20 20 69 66  Test tests".  if
17a0: 20 7b 24 6e 45 72 72 3e 30 7d 20 7b 0a 20 20 20   {$nErr>0} {.   
17b0: 20 70 75 74 73 20 22 46 61 69 6c 75 72 65 73 20   puts "Failures 
17c0: 6f 6e 20 74 68 65 73 65 20 74 65 73 74 73 3a 20  on these tests: 
17d0: 24 3a 3a 66 61 69 6c 4c 69 73 74 22 0a 20 20 7d  $::failList".  }
17e0: 0a 20 20 69 66 20 7b 24 6e 45 72 72 3e 30 20 26  .  if {$nErr>0 &
17f0: 26 20 21 5b 77 6f 72 6b 69 6e 67 5f 36 34 62 69  & ![working_64bi
1800: 74 5f 69 6e 74 5d 7d 20 7b 0a 20 20 20 20 70 75  t_int]} {.    pu
1810: 74 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ts "************
1820: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1830: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1840: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1850: 2a 2a 2a 2a 2a 2a 22 0a 20 20 20 20 70 75 74 73  ******".    puts
1860: 20 22 4e 2e 42 2e 3a 20 20 54 68 65 20 76 65 72   "N.B.:  The ver
1870: 73 69 6f 6e 20 6f 66 20 54 43 4c 20 74 68 61 74  sion of TCL that
1880: 20 79 6f 75 20 75 73 65 64 20 74 6f 20 62 75 69   you used to bui
1890: 6c 64 20 74 68 69 73 20 74 65 73 74 20 68 61 72  ld this test har
18a0: 6e 65 73 73 22 0a 20 20 20 20 70 75 74 73 20 22  ness".    puts "
18b0: 69 73 20 64 65 66 65 63 74 69 76 65 20 69 6e 20  is defective in 
18c0: 74 68 61 74 20 69 74 20 64 6f 65 73 20 6e 6f 74  that it does not
18d0: 20 73 75 70 70 6f 72 74 20 36 34 2d 62 69 74 20   support 64-bit 
18e0: 69 6e 74 65 67 65 72 73 2e 20 20 53 6f 6d 65 20  integers.  Some 
18f0: 6f 72 22 0a 20 20 20 20 70 75 74 73 20 22 61 6c  or".    puts "al
1900: 6c 20 6f 66 20 74 68 65 20 74 65 73 74 20 66 61  l of the test fa
1910: 69 6c 75 72 65 73 20 61 62 6f 76 65 20 6d 69 67  ilures above mig
1920: 68 74 20 62 65 20 61 20 72 65 73 75 6c 74 20 66  ht be a result f
1930: 72 6f 6d 20 74 68 69 73 20 64 65 66 65 63 74 22  rom this defect"
1940: 0a 20 20 20 20 70 75 74 73 20 22 69 6e 20 79 6f  .    puts "in yo
1950: 75 72 20 54 43 4c 20 62 75 69 6c 64 2e 22 0a 20  ur TCL build.". 
1960: 20 20 20 70 75 74 73 20 22 2a 2a 2a 2a 2a 2a 2a     puts "*******
1970: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1980: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1990: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
19a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 20 20 7d  ***********".  }
19b0: 0a 20 20 69 66 20 7b 24 73 71 6c 69 74 65 5f 6f  .  if {$sqlite_o
19c0: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 7d 20  pen_file_count} 
19d0: 7b 0a 20 20 20 20 70 75 74 73 20 22 24 73 71 6c  {.    puts "$sql
19e0: 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f  ite_open_file_co
19f0: 75 6e 74 20 66 69 6c 65 73 20 77 65 72 65 20 6c  unt files were l
1a00: 65 66 74 20 6f 70 65 6e 22 0a 20 20 20 20 69 6e  eft open".    in
1a10: 63 72 20 6e 45 72 72 0a 20 20 7d 0a 20 20 69 66  cr nErr.  }.  if
1a20: 20 7b 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72   {[sqlite3_memor
1a30: 79 5f 75 73 65 64 5d 3e 30 7d 20 7b 0a 20 20 20  y_used]>0} {.   
1a40: 20 70 75 74 73 20 22 55 6e 66 72 65 65 64 20 6d   puts "Unfreed m
1a50: 65 6d 6f 72 79 3a 20 5b 73 71 6c 69 74 65 33 5f  emory: [sqlite3_
1a60: 6d 65 6d 6f 72 79 5f 75 73 65 64 5d 20 62 79 74  memory_used] byt
1a70: 65 73 22 0a 20 20 20 20 69 6e 63 72 20 6e 45 72  es".    incr nEr
1a80: 72 0a 20 20 20 20 69 66 63 61 70 61 62 6c 65 20  r.    ifcapable 
1a90: 6d 65 6d 64 65 62 75 67 7c 7c 6d 65 6d 35 7c 7c  memdebug||mem5||
1aa0: 28 6d 65 6d 33 26 26 64 65 62 75 67 29 20 7b 0a  (mem3&&debug) {.
1ab0: 20 20 20 20 20 20 70 75 74 73 20 22 57 72 69 74        puts "Writ
1ac0: 69 6e 67 20 75 6e 66 72 65 65 64 20 6d 65 6d 6f  ing unfreed memo
1ad0: 72 79 20 6c 6f 67 20 74 6f 20 5c 22 2e 2f 6d 65  ry log to \"./me
1ae0: 6d 6c 65 61 6b 2e 74 78 74 5c 22 22 0a 20 20 20  mleak.txt\"".   
1af0: 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65     sqlite3_memde
1b00: 62 75 67 5f 64 75 6d 70 20 2e 2f 6d 65 6d 6c 65  bug_dump ./memle
1b10: 61 6b 2e 74 78 74 0a 20 20 20 20 7d 0a 20 20 7d  ak.txt.    }.  }
1b20: 20 65 6c 73 65 20 7b 0a 20 20 20 20 70 75 74 73   else {.    puts
1b30: 20 22 41 6c 6c 20 6d 65 6d 6f 72 79 20 61 6c 6c   "All memory all
1b40: 6f 63 61 74 69 6f 6e 73 20 66 72 65 65 64 20 2d  ocations freed -
1b50: 20 6e 6f 20 6c 65 61 6b 73 22 0a 20 20 20 20 69   no leaks".    i
1b60: 66 63 61 70 61 62 6c 65 20 6d 65 6d 64 65 62 75  fcapable memdebu
1b70: 67 7c 7c 6d 65 6d 35 20 7b 0a 20 20 20 20 20 20  g||mem5 {.      
1b80: 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67  sqlite3_memdebug
1b90: 5f 64 75 6d 70 20 2e 2f 6d 65 6d 75 73 61 67 65  _dump ./memusage
1ba0: 2e 74 78 74 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  .txt.    }.  }. 
1bb0: 20 70 75 74 73 20 22 4d 61 78 69 6d 75 6d 20 6d   puts "Maximum m
1bc0: 65 6d 6f 72 79 20 75 73 61 67 65 3a 20 5b 73 71  emory usage: [sq
1bd0: 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67  lite3_memory_hig
1be0: 68 77 61 74 65 72 20 31 5d 20 62 79 74 65 73 22  hwater 1] bytes"
1bf0: 0a 20 20 70 75 74 73 20 22 43 75 72 72 65 6e 74  .  puts "Current
1c00: 20 6d 65 6d 6f 72 79 20 75 73 61 67 65 3a 20 5b   memory usage: [
1c10: 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68  sqlite3_memory_h
1c20: 69 67 68 77 61 74 65 72 5d 20 62 79 74 65 73 22  ighwater] bytes"
1c30: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d  .  if {[info com
1c40: 6d 61 6e 64 73 20 73 71 6c 69 74 65 33 5f 6d 65  mands sqlite3_me
1c50: 6d 64 65 62 75 67 5f 6d 61 6c 6c 6f 63 5f 63 6f  mdebug_malloc_co
1c60: 75 6e 74 5d 20 6e 65 20 22 22 7d 20 7b 0a 20 20  unt] ne ""} {.  
1c70: 20 20 70 75 74 73 20 22 4e 75 6d 62 65 72 20 6f    puts "Number o
1c80: 66 20 6d 61 6c 6c 6f 63 28 29 20 20 3a 20 5b 73  f malloc()  : [s
1c90: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
1ca0: 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 5d 20 63 61  malloc_count] ca
1cb0: 6c 6c 73 22 0a 20 20 7d 0a 20 20 69 66 20 7b 5b  lls".  }.  if {[
1cc0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65  info exists ::te
1cd0: 73 74 65 72 5f 64 6f 5f 6d 61 6c 6c 6f 63 74 72  ster_do_malloctr
1ce0: 61 63 65 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73  ace]} {.    puts
1cf0: 20 22 57 72 69 74 69 6e 67 20 6d 61 6c 6c 6f 63   "Writing malloc
1d00: 73 2e 73 71 6c 2e 2e 2e 22 0a 20 20 20 20 6d 65  s.sql...".    me
1d10: 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c 0a 20  mdebug_log_sql. 
1d20: 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65     sqlite3_memde
1d30: 62 75 67 5f 6c 6f 67 20 73 74 6f 70 0a 20 20 20  bug_log stop.   
1d40: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
1d50: 67 5f 6c 6f 67 20 63 6c 65 61 72 0a 0a 20 20 20  g_log clear..   
1d60: 20 69 66 20 7b 5b 73 71 6c 69 74 65 33 5f 6d 65   if {[sqlite3_me
1d70: 6d 6f 72 79 5f 75 73 65 64 5d 3e 30 7d 20 7b 0a  mory_used]>0} {.
1d80: 20 20 20 20 20 20 70 75 74 73 20 22 57 72 69 74        puts "Writ
1d90: 69 6e 67 20 6c 65 61 6b 73 2e 73 71 6c 2e 2e 2e  ing leaks.sql...
1da0: 22 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  ".      sqlite3_
1db0: 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 79 6e  memdebug_log syn
1dc0: 63 0a 20 20 20 20 20 20 6d 65 6d 64 65 62 75 67  c.      memdebug
1dd0: 5f 6c 6f 67 5f 73 71 6c 20 6c 65 61 6b 73 2e 73  _log_sql leaks.s
1de0: 71 6c 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 66  ql.    }.  }.  f
1df0: 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d  oreach f [glob -
1e00: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 2e  nocomplain test.
1e10: 64 62 2d 2a 2d 6a 6f 75 72 6e 61 6c 5d 20 7b 0a  db-*-journal] {.
1e20: 20 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20      file delete 
1e30: 2d 66 6f 72 63 65 20 24 66 0a 20 20 7d 0a 20 20  -force $f.  }.  
1e40: 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 20  foreach f [glob 
1e50: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74  -nocomplain test
1e60: 2e 64 62 2d 6d 6a 2a 5d 20 7b 0a 20 20 20 20 66  .db-mj*] {.    f
1e70: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63  ile delete -forc
1e80: 65 20 24 66 0a 20 20 7d 0a 20 20 65 78 69 74 20  e $f.  }.  exit 
1e90: 5b 65 78 70 72 20 7b 24 6e 45 72 72 3e 30 7d 5d  [expr {$nErr>0}]
1ea0: 0a 7d 0a 0a 23 20 41 20 70 72 6f 63 65 64 75 72  .}..# A procedur
1eb0: 65 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c  e to execute SQL
1ec0: 0a 23 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 20  .#.proc execsql 
1ed0: 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a  {sql {db db}} {.
1ee0: 20 20 23 20 70 75 74 73 20 22 53 51 4c 20 3d 20    # puts "SQL = 
1ef0: 24 73 71 6c 22 0a 20 20 75 70 6c 65 76 65 6c 20  $sql".  uplevel 
1f00: 5b 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20 24  [list $db eval $
1f10: 73 71 6c 5d 0a 7d 0a 0a 23 20 45 78 65 63 75 74  sql].}..# Execut
1f20: 65 20 53 51 4c 20 61 6e 64 20 63 61 74 63 68 20  e SQL and catch 
1f30: 65 78 63 65 70 74 69 6f 6e 73 2e 0a 23 0a 70 72  exceptions..#.pr
1f40: 6f 63 20 63 61 74 63 68 73 71 6c 20 7b 73 71 6c  oc catchsql {sql
1f50: 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20   {db db}} {.  # 
1f60: 70 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71 6c  puts "SQL = $sql
1f70: 22 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63 68  ".  set r [catch
1f80: 20 7b 24 64 62 20 65 76 61 6c 20 24 73 71 6c 7d   {$db eval $sql}
1f90: 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20   msg].  lappend 
1fa0: 72 20 24 6d 73 67 0a 20 20 72 65 74 75 72 6e 20  r $msg.  return 
1fb0: 24 72 0a 7d 0a 0a 23 20 44 6f 20 61 6e 20 56 44  $r.}..# Do an VD
1fc0: 42 45 20 63 6f 64 65 20 64 75 6d 70 20 6f 6e 20  BE code dump on 
1fd0: 74 68 65 20 53 51 4c 20 67 69 76 65 6e 0a 23 0a  the SQL given.#.
1fe0: 70 72 6f 63 20 65 78 70 6c 61 69 6e 20 7b 73 71  proc explain {sq
1ff0: 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 70  l {db db}} {.  p
2000: 75 74 73 20 22 22 0a 20 20 70 75 74 73 20 22 61  uts "".  puts "a
2010: 64 64 72 20 20 6f 70 63 6f 64 65 20 20 20 20 20  ddr  opcode     
2020: 20 20 20 70 31 20 20 20 20 20 20 70 32 20 20 20     p1      p2   
2030: 20 20 20 70 33 20 20 20 20 20 20 70 34 20 20 20     p3      p4   
2040: 20 20 20 20 20 20 20 20 20 20 20 20 70 35 20 20              p5  
2050: 23 22 0a 20 20 70 75 74 73 20 22 2d 2d 2d 2d 20  #".  puts "---- 
2060: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d   ------------  -
2070: 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d  -----  ------  -
2080: 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d  -----  ---------
2090: 2d 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 20  ------  --  -". 
20a0: 20 24 64 62 20 65 76 61 6c 20 22 65 78 70 6c 61   $db eval "expla
20b0: 69 6e 20 24 73 71 6c 22 20 7b 7d 20 7b 0a 20 20  in $sql" {} {.  
20c0: 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b    puts [format {
20d0: 25 2d 34 64 20 20 25 2d 31 32 2e 31 32 73 20 20  %-4d  %-12.12s  
20e0: 25 2d 36 64 20 20 25 2d 36 64 20 20 25 2d 36 64  %-6d  %-6d  %-6d
20f0: 20 20 25 20 2d 31 37 73 20 25 73 20 20 25 73 7d    % -17s %s  %s}
2100: 20 5c 0a 20 20 20 20 20 20 24 61 64 64 72 20 24   \.      $addr $
2110: 6f 70 63 6f 64 65 20 24 70 31 20 24 70 32 20 24  opcode $p1 $p2 $
2120: 70 33 20 24 70 34 20 24 70 35 20 24 63 6f 6d 6d  p3 $p4 $p5 $comm
2130: 65 6e 74 0a 20 20 20 20 5d 0a 20 20 7d 0a 7d 0a  ent.    ].  }.}.
2140: 0a 23 20 41 6e 6f 74 68 65 72 20 70 72 6f 63 65  .# Another proce
2150: 64 75 72 65 20 74 6f 20 65 78 65 63 75 74 65 20  dure to execute 
2160: 53 51 4c 2e 20 20 54 68 69 73 20 6f 6e 65 20 69  SQL.  This one i
2170: 6e 63 6c 75 64 65 73 20 74 68 65 20 66 69 65 6c  ncludes the fiel
2180: 64 0a 23 20 6e 61 6d 65 73 20 69 6e 20 74 68 65  d.# names in the
2190: 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a   returned list..
21a0: 23 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 32 20  #.proc execsql2 
21b0: 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 72 65  {sql} {.  set re
21c0: 73 75 6c 74 20 7b 7d 0a 20 20 64 62 20 65 76 61  sult {}.  db eva
21d0: 6c 20 24 73 71 6c 20 64 61 74 61 20 7b 0a 20 20  l $sql data {.  
21e0: 20 20 66 6f 72 65 61 63 68 20 66 20 24 64 61 74    foreach f $dat
21f0: 61 28 2a 29 20 7b 0a 20 20 20 20 20 20 6c 61 70  a(*) {.      lap
2200: 70 65 6e 64 20 72 65 73 75 6c 74 20 24 66 20 24  pend result $f $
2210: 64 61 74 61 28 24 66 29 0a 20 20 20 20 7d 0a 20  data($f).    }. 
2220: 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73   }.  return $res
2230: 75 6c 74 0a 7d 0a 0a 23 20 55 73 65 20 74 68 65  ult.}..# Use the
2240: 20 6e 6f 6e 2d 63 61 6c 6c 62 61 63 6b 20 41 50   non-callback AP
2250: 49 20 74 6f 20 65 78 65 63 75 74 65 20 6d 75 6c  I to execute mul
2260: 74 69 70 6c 65 20 53 51 4c 20 73 74 61 74 65 6d  tiple SQL statem
2270: 65 6e 74 73 0a 23 0a 70 72 6f 63 20 73 74 65 70  ents.#.proc step
2280: 73 71 6c 20 7b 64 62 70 74 72 20 73 71 6c 7d 20  sql {dbptr sql} 
2290: 7b 0a 20 20 73 65 74 20 73 71 6c 20 5b 73 74 72  {.  set sql [str
22a0: 69 6e 67 20 74 72 69 6d 20 24 73 71 6c 5d 0a 20  ing trim $sql]. 
22b0: 20 73 65 74 20 72 20 30 0a 20 20 77 68 69 6c 65   set r 0.  while
22c0: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
22d0: 20 24 73 71 6c 5d 3e 30 7d 20 7b 0a 20 20 20 20   $sql]>0} {.    
22e0: 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69  if {[catch {sqli
22f0: 74 65 33 5f 70 72 65 70 61 72 65 20 24 64 62 70  te3_prepare $dbp
2300: 74 72 20 24 73 71 6c 20 2d 31 20 73 71 6c 74 61  tr $sql -1 sqlta
2310: 69 6c 7d 20 76 6d 5d 7d 20 7b 0a 20 20 20 20 20  il} vm]} {.     
2320: 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 31 20   return [list 1 
2330: 24 76 6d 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73  $vm].    }.    s
2340: 65 74 20 73 71 6c 20 5b 73 74 72 69 6e 67 20 74  et sql [string t
2350: 72 69 6d 20 24 73 71 6c 74 61 69 6c 5d 0a 23 20  rim $sqltail].# 
2360: 20 20 20 77 68 69 6c 65 20 7b 5b 73 71 6c 69 74     while {[sqlit
2370: 65 5f 73 74 65 70 20 24 76 6d 20 4e 20 56 41 4c  e_step $vm N VAL
2380: 20 43 4f 4c 5d 3d 3d 22 53 51 4c 49 54 45 5f 52   COL]=="SQLITE_R
2390: 4f 57 22 7d 20 7b 0a 23 20 20 20 20 20 20 66 6f  OW"} {.#      fo
23a0: 72 65 61 63 68 20 76 20 24 56 41 4c 20 7b 6c 61  reach v $VAL {la
23b0: 70 70 65 6e 64 20 72 20 24 76 7d 0a 23 20 20 20  ppend r $v}.#   
23c0: 20 7d 0a 20 20 20 20 77 68 69 6c 65 20 7b 5b 73   }.    while {[s
23d0: 71 6c 69 74 65 33 5f 73 74 65 70 20 24 76 6d 5d  qlite3_step $vm]
23e0: 3d 3d 22 53 51 4c 49 54 45 5f 52 4f 57 22 7d 20  =="SQLITE_ROW"} 
23f0: 7b 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74  {.      for {set
2400: 20 69 20 30 7d 20 7b 24 69 3c 5b 73 71 6c 69 74   i 0} {$i<[sqlit
2410: 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74 20 24 76  e3_data_count $v
2420: 6d 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  m]} {incr i} {. 
2430: 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 72         lappend r
2440: 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e   [sqlite3_column
2450: 5f 74 65 78 74 20 24 76 6d 20 24 69 5d 0a 20 20  _text $vm $i].  
2460: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20      }.    }.    
2470: 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69  if {[catch {sqli
2480: 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 76 6d  te3_finalize $vm
2490: 7d 20 65 72 72 6d 73 67 5d 7d 20 7b 0a 20 20 20  } errmsg]} {.   
24a0: 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20     return [list 
24b0: 31 20 24 65 72 72 6d 73 67 5d 0a 20 20 20 20 7d  1 $errmsg].    }
24c0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72  .  }.  return $r
24d0: 0a 7d 0a 0a 23 20 44 65 6c 65 74 65 20 61 20 66  .}..# Delete a f
24e0: 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79  ile or directory
24f0: 0a 23 0a 70 72 6f 63 20 66 6f 72 63 65 64 65 6c  .#.proc forcedel
2500: 65 74 65 20 7b 66 69 6c 65 6e 61 6d 65 7d 20 7b  ete {filename} {
2510: 0a 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 66  .  if {[catch {f
2520: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63  ile delete -forc
2530: 65 20 24 66 69 6c 65 6e 61 6d 65 7d 5d 7d 20 7b  e $filename}]} {
2540: 0a 20 20 20 20 65 78 65 63 20 72 6d 20 2d 72 66  .    exec rm -rf
2550: 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 7d 0a 7d   $filename.  }.}
2560: 0a 0a 23 20 44 6f 20 61 6e 20 69 6e 74 65 67 72  ..# Do an integr
2570: 69 74 79 20 63 68 65 63 6b 20 6f 66 20 74 68 65  ity check of the
2580: 20 65 6e 74 69 72 65 20 64 61 74 61 62 61 73 65   entire database
2590: 0a 23 0a 70 72 6f 63 20 69 6e 74 65 67 72 69 74  .#.proc integrit
25a0: 79 5f 63 68 65 63 6b 20 7b 6e 61 6d 65 7d 20 7b  y_check {name} {
25b0: 0a 20 20 69 66 63 61 70 61 62 6c 65 20 69 6e 74  .  ifcapable int
25c0: 65 67 72 69 74 79 63 6b 20 7b 0a 20 20 20 20 64  egrityck {.    d
25d0: 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20 7b 0a 20  o_test $name {. 
25e0: 20 20 20 20 20 65 78 65 63 73 71 6c 20 7b 50 52       execsql {PR
25f0: 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f 63  AGMA integrity_c
2600: 68 65 63 6b 7d 0a 20 20 20 20 7d 20 7b 6f 6b 7d  heck}.    } {ok}
2610: 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 66 69 78  .  }.}..proc fix
2620: 5f 69 66 63 61 70 61 62 6c 65 5f 65 78 70 72 20  _ifcapable_expr 
2630: 7b 65 78 70 72 7d 20 7b 0a 20 20 73 65 74 20 72  {expr} {.  set r
2640: 65 74 20 22 22 0a 20 20 73 65 74 20 73 74 61 74  et "".  set stat
2650: 65 20 30 0a 20 20 66 6f 72 20 7b 73 65 74 20 69  e 0.  for {set i
2660: 20 30 7d 20 7b 24 69 20 3c 20 5b 73 74 72 69 6e   0} {$i < [strin
2670: 67 20 6c 65 6e 67 74 68 20 24 65 78 70 72 5d 7d  g length $expr]}
2680: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
2690: 73 65 74 20 63 68 61 72 20 5b 73 74 72 69 6e 67  set char [string
26a0: 20 72 61 6e 67 65 20 24 65 78 70 72 20 24 69 20   range $expr $i 
26b0: 24 69 5d 0a 20 20 20 20 73 65 74 20 6e 65 77 73  $i].    set news
26c0: 74 61 74 65 20 5b 65 78 70 72 20 7b 5b 73 74 72  tate [expr {[str
26d0: 69 6e 67 20 69 73 20 61 6c 6e 75 6d 20 24 63 68  ing is alnum $ch
26e0: 61 72 5d 20 7c 7c 20 24 63 68 61 72 20 65 71 20  ar] || $char eq 
26f0: 22 5f 22 7d 5d 0a 20 20 20 20 69 66 20 7b 24 6e  "_"}].    if {$n
2700: 65 77 73 74 61 74 65 20 26 26 20 21 24 73 74 61  ewstate && !$sta
2710: 74 65 7d 20 7b 0a 20 20 20 20 20 20 61 70 70 65  te} {.      appe
2720: 6e 64 20 72 65 74 20 7b 24 3a 3a 73 71 6c 69 74  nd ret {$::sqlit
2730: 65 5f 6f 70 74 69 6f 6e 73 28 7d 0a 20 20 20 20  e_options(}.    
2740: 7d 0a 20 20 20 20 69 66 20 7b 21 24 6e 65 77 73  }.    if {!$news
2750: 74 61 74 65 20 26 26 20 24 73 74 61 74 65 7d 20  tate && $state} 
2760: 7b 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 72  {.      append r
2770: 65 74 20 29 0a 20 20 20 20 7d 0a 20 20 20 20 61  et ).    }.    a
2780: 70 70 65 6e 64 20 72 65 74 20 24 63 68 61 72 0a  ppend ret $char.
2790: 20 20 20 20 73 65 74 20 73 74 61 74 65 20 24 6e      set state $n
27a0: 65 77 73 74 61 74 65 0a 20 20 7d 0a 20 20 69 66  ewstate.  }.  if
27b0: 20 7b 24 73 74 61 74 65 7d 20 7b 61 70 70 65 6e   {$state} {appen
27c0: 64 20 72 65 74 20 29 7d 0a 20 20 72 65 74 75 72  d ret )}.  retur
27d0: 6e 20 24 72 65 74 0a 7d 0a 0a 23 20 45 76 61 6c  n $ret.}..# Eval
27e0: 75 61 74 65 20 61 20 62 6f 6f 6c 65 61 6e 20 65  uate a boolean e
27f0: 78 70 72 65 73 73 69 6f 6e 20 6f 66 20 63 61 70  xpression of cap
2800: 61 62 69 6c 69 74 69 65 73 2e 20 20 49 66 20 74  abilities.  If t
2810: 72 75 65 2c 20 65 78 65 63 75 74 65 20 74 68 65  rue, execute the
2820: 0a 23 20 63 6f 64 65 2e 20 20 4f 6d 69 74 20 74  .# code.  Omit t
2830: 68 65 20 63 6f 64 65 20 69 66 20 66 61 6c 73 65  he code if false
2840: 2e 0a 23 0a 70 72 6f 63 20 69 66 63 61 70 61 62  ..#.proc ifcapab
2850: 6c 65 20 7b 65 78 70 72 20 63 6f 64 65 20 7b 65  le {expr code {e
2860: 6c 73 65 20 22 22 7d 20 7b 65 6c 73 65 63 6f 64  lse ""} {elsecod
2870: 65 20 22 22 7d 7d 20 7b 0a 20 20 23 72 65 67 73  e ""}} {.  #regs
2880: 75 62 20 2d 61 6c 6c 20 7b 5b 61 2d 7a 5f 30 2d  ub -all {[a-z_0-
2890: 39 5d 2b 7d 20 24 65 78 70 72 20 7b 24 3a 3a 73  9]+} $expr {$::s
28a0: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 26 29  qlite_options(&)
28b0: 7d 20 65 32 0a 20 20 73 65 74 20 65 32 20 5b 66  } e2.  set e2 [f
28c0: 69 78 5f 69 66 63 61 70 61 62 6c 65 5f 65 78 70  ix_ifcapable_exp
28d0: 72 20 24 65 78 70 72 5d 0a 20 20 69 66 20 28 24  r $expr].  if ($
28e0: 65 32 29 20 7b 0a 20 20 20 20 73 65 74 20 63 20  e2) {.    set c 
28f0: 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20  [catch {uplevel 
2900: 31 20 24 63 6f 64 65 7d 20 72 5d 0a 20 20 7d 20  1 $code} r].  } 
2910: 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 63  else {.    set c
2920: 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c   [catch {uplevel
2930: 20 31 20 24 65 6c 73 65 63 6f 64 65 7d 20 72 5d   1 $elsecode} r]
2940: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 2d 63  .  }.  return -c
2950: 6f 64 65 20 24 63 20 24 72 0a 7d 0a 0a 23 20 54  ode $c $r.}..# T
2960: 68 69 73 20 70 72 6f 63 20 65 78 65 63 73 20 61  his proc execs a
2970: 20 73 65 70 65 72 61 74 65 20 70 72 6f 63 65 73   seperate proces
2980: 73 20 74 68 61 74 20 63 72 61 73 68 65 73 20 6d  s that crashes m
2990: 69 64 77 61 79 20 74 68 72 6f 75 67 68 20 65 78  idway through ex
29a0: 65 63 75 74 69 6e 67 0a 23 20 74 68 65 20 53 51  ecuting.# the SQ
29b0: 4c 20 73 63 72 69 70 74 20 24 73 71 6c 20 6f 6e  L script $sql on
29c0: 20 64 61 74 61 62 61 73 65 20 74 65 73 74 2e 64   database test.d
29d0: 62 2e 0a 23 0a 23 20 54 68 65 20 63 72 61 73 68  b..#.# The crash
29e0: 20 6f 63 63 75 72 73 20 64 75 72 69 6e 67 20 61   occurs during a
29f0: 20 73 79 6e 63 28 29 20 6f 66 20 66 69 6c 65 20   sync() of file 
2a00: 24 63 72 61 73 68 66 69 6c 65 2e 20 57 68 65 6e  $crashfile. When
2a10: 20 74 68 65 20 63 72 61 73 68 0a 23 20 6f 63 63   the crash.# occ
2a20: 75 72 73 20 61 20 72 61 6e 64 6f 6d 20 73 75 62  urs a random sub
2a30: 73 65 74 20 6f 66 20 61 6c 6c 20 75 6e 73 79 6e  set of all unsyn
2a40: 63 65 64 20 77 72 69 74 65 73 20 6d 61 64 65 20  ced writes made 
2a50: 62 79 20 74 68 65 20 70 72 6f 63 65 73 73 20 61  by the process a
2a60: 72 65 0a 23 20 77 72 69 74 74 65 6e 20 69 6e 74  re.# written int
2a70: 6f 20 74 68 65 20 66 69 6c 65 73 20 6f 6e 20 64  o the files on d
2a80: 69 73 6b 2e 20 41 72 67 75 6d 65 6e 74 20 24 63  isk. Argument $c
2a90: 72 61 73 68 64 65 6c 61 79 20 69 6e 64 69 63 61  rashdelay indica
2aa0: 74 65 73 20 74 68 65 0a 23 20 6e 75 6d 62 65 72  tes the.# number
2ab0: 20 6f 66 20 66 69 6c 65 20 73 79 6e 63 73 20 74   of file syncs t
2ac0: 6f 20 77 61 69 74 20 62 65 66 6f 72 65 20 63 72  o wait before cr
2ad0: 61 73 68 69 6e 67 2e 0a 23 0a 23 20 54 68 65 20  ashing..#.# The 
2ae0: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20  return value is 
2af0: 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65 6c  a list of two el
2b00: 65 6d 65 6e 74 73 2e 20 54 68 65 20 66 69 72 73  ements. The firs
2b10: 74 20 65 6c 65 6d 65 6e 74 20 69 73 20 61 0a 23  t element is a.#
2b20: 20 62 6f 6f 6c 65 61 6e 2c 20 69 6e 64 69 63 61   boolean, indica
2b30: 74 69 6e 67 20 77 68 65 74 68 65 72 20 6f 72 20  ting whether or 
2b40: 6e 6f 74 20 74 68 65 20 70 72 6f 63 65 73 73 20  not the process 
2b50: 61 63 74 75 61 6c 6c 79 20 63 72 61 73 68 65 64  actually crashed
2b60: 20 6f 72 0a 23 20 72 65 70 6f 72 74 65 64 20 73   or.# reported s
2b70: 6f 6d 65 20 6f 74 68 65 72 20 65 72 72 6f 72 2e  ome other error.
2b80: 20 54 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d   The second elem
2b90: 65 6e 74 20 69 6e 20 74 68 65 20 72 65 74 75 72  ent in the retur
2ba0: 6e 65 64 20 6c 69 73 74 20 69 73 20 74 68 65 0a  ned list is the.
2bb0: 23 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e  # error message.
2bc0: 20 54 68 69 73 20 69 73 20 22 63 68 69 6c 64 20   This is "child 
2bd0: 70 72 6f 63 65 73 73 20 65 78 69 74 65 64 20 61  process exited a
2be0: 62 6e 6f 72 6d 61 6c 6c 79 22 20 69 66 20 74 68  bnormally" if th
2bf0: 65 20 63 72 61 73 68 0a 23 20 6f 63 63 75 72 65  e crash.# occure
2c00: 64 2e 0a 23 0a 23 20 20 20 63 72 61 73 68 73 71  d..#.#   crashsq
2c10: 6c 20 2d 64 65 6c 61 79 20 43 52 41 53 48 44 45  l -delay CRASHDE
2c20: 4c 41 59 20 2d 66 69 6c 65 20 43 52 41 53 48 46  LAY -file CRASHF
2c30: 49 4c 45 20 3f 2d 62 6c 6f 63 6b 73 69 7a 65 20  ILE ?-blocksize 
2c40: 42 4c 4f 43 4b 53 49 5a 45 3f 20 24 73 71 6c 0a  BLOCKSIZE? $sql.
2c50: 23 0a 70 72 6f 63 20 63 72 61 73 68 73 71 6c 20  #.proc crashsql 
2c60: 7b 61 72 67 73 7d 20 7b 0a 20 20 69 66 20 7b 24  {args} {.  if {$
2c70: 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70  ::tcl_platform(p
2c80: 6c 61 74 66 6f 72 6d 29 21 3d 22 75 6e 69 78 22  latform)!="unix"
2c90: 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72 20 22 63  } {.    error "c
2ca0: 72 61 73 68 73 71 6c 20 73 68 6f 75 6c 64 20 6f  rashsql should o
2cb0: 6e 6c 79 20 62 65 20 75 73 65 64 20 6f 6e 20 75  nly be used on u
2cc0: 6e 69 78 22 0a 20 20 7d 0a 0a 20 20 73 65 74 20  nix".  }..  set 
2cd0: 62 6c 6f 63 6b 73 69 7a 65 20 22 22 0a 20 20 73  blocksize "".  s
2ce0: 65 74 20 63 72 61 73 68 64 65 6c 61 79 20 31 0a  et crashdelay 1.
2cf0: 20 20 73 65 74 20 70 72 6e 67 73 65 65 64 20 30    set prngseed 0
2d00: 0a 20 20 73 65 74 20 74 63 6c 62 6f 64 79 20 7b  .  set tclbody {
2d10: 7d 0a 20 20 73 65 74 20 63 72 61 73 68 66 69 6c  }.  set crashfil
2d20: 65 20 22 22 0a 20 20 73 65 74 20 64 63 20 22 22  e "".  set dc ""
2d30: 0a 20 20 73 65 74 20 73 71 6c 20 5b 6c 69 6e 64  .  set sql [lind
2d40: 65 78 20 24 61 72 67 73 20 65 6e 64 5d 0a 20 20  ex $args end].  
2d50: 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 69 20 30  .  for {set ii 0
2d60: 7d 20 7b 24 69 69 20 3c 20 5b 6c 6c 65 6e 67 74  } {$ii < [llengt
2d70: 68 20 24 61 72 67 73 5d 2d 31 7d 20 7b 69 6e 63  h $args]-1} {inc
2d80: 72 20 69 69 20 32 7d 20 7b 0a 20 20 20 20 73 65  r ii 2} {.    se
2d90: 74 20 7a 20 5b 6c 69 6e 64 65 78 20 24 61 72 67  t z [lindex $arg
2da0: 73 20 24 69 69 5d 0a 20 20 20 20 73 65 74 20 6e  s $ii].    set n
2db0: 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20   [string length 
2dc0: 24 7a 5d 0a 20 20 20 20 73 65 74 20 7a 32 20 5b  $z].    set z2 [
2dd0: 6c 69 6e 64 65 78 20 24 61 72 67 73 20 5b 65 78  lindex $args [ex
2de0: 70 72 20 24 69 69 2b 31 5d 5d 0a 0a 20 20 20 20  pr $ii+1]]..    
2df0: 69 66 20 20 20 20 20 7b 24 6e 3e 31 20 26 26 20  if     {$n>1 && 
2e00: 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a  [string first $z
2e10: 20 2d 64 65 6c 61 79 5d 3d 3d 30 7d 20 20 20 20   -delay]==0}    
2e20: 20 7b 73 65 74 20 63 72 61 73 68 64 65 6c 61 79   {set crashdelay
2e30: 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65   $z2} \.    else
2e40: 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72  if {$n>1 && [str
2e50: 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 73 65  ing first $z -se
2e60: 65 64 5d 3d 3d 30 7d 20 20 20 20 20 20 7b 73 65  ed]==0}      {se
2e70: 74 20 70 72 6e 67 73 65 65 64 20 24 7a 32 7d 20  t prngseed $z2} 
2e80: 5c 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e  \.    elseif {$n
2e90: 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69  >1 && [string fi
2ea0: 72 73 74 20 24 7a 20 2d 66 69 6c 65 5d 3d 3d 30  rst $z -file]==0
2eb0: 7d 20 20 20 20 20 20 7b 73 65 74 20 63 72 61 73  }      {set cras
2ec0: 68 66 69 6c 65 20 24 7a 32 7d 20 20 5c 0a 20 20  hfile $z2}  \.  
2ed0: 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26    elseif {$n>1 &
2ee0: 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20  & [string first 
2ef0: 24 7a 20 2d 74 63 6c 62 6f 64 79 5d 3d 3d 30 7d  $z -tclbody]==0}
2f00: 20 20 20 7b 73 65 74 20 74 63 6c 62 6f 64 79 20     {set tclbody 
2f10: 24 7a 32 7d 20 20 5c 0a 20 20 20 20 65 6c 73 65  $z2}  \.    else
2f20: 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72  if {$n>1 && [str
2f30: 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 62 6c  ing first $z -bl
2f40: 6f 63 6b 73 69 7a 65 5d 3d 3d 30 7d 20 7b 73 65  ocksize]==0} {se
2f50: 74 20 62 6c 6f 63 6b 73 69 7a 65 20 22 2d 73 20  t blocksize "-s 
2f60: 24 7a 32 22 20 7d 20 5c 0a 20 20 20 20 65 6c 73  $z2" } \.    els
2f70: 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74  eif {$n>1 && [st
2f80: 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 63  ring first $z -c
2f90: 68 61 72 61 63 74 65 72 69 73 74 69 63 73 5d 3d  haracteristics]=
2fa0: 3d 30 7d 20 7b 73 65 74 20 64 63 20 22 2d 63 20  =0} {set dc "-c 
2fb0: 7b 24 7a 32 7d 22 20 7d 20 5c 0a 20 20 20 20 65  {$z2}" } \.    e
2fc0: 6c 73 65 20 20 20 7b 20 65 72 72 6f 72 20 22 55  lse   { error "U
2fd0: 6e 72 65 63 6f 67 6e 69 7a 65 64 20 6f 70 74 69  nrecognized opti
2fe0: 6f 6e 3a 20 24 7a 22 20 7d 0a 20 20 7d 0a 0a 20  on: $z" }.  }.. 
2ff0: 20 69 66 20 7b 24 63 72 61 73 68 66 69 6c 65 20   if {$crashfile 
3000: 65 71 20 22 22 7d 20 7b 0a 20 20 20 20 65 72 72  eq ""} {.    err
3010: 6f 72 20 22 43 6f 6d 70 75 6c 73 6f 72 79 20 6f  or "Compulsory o
3020: 70 74 69 6f 6e 20 2d 66 69 6c 65 20 6d 69 73 73  ption -file miss
3030: 69 6e 67 22 0a 20 20 7d 0a 0a 20 20 73 65 74 20  ing".  }..  set 
3040: 63 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e  cfile [file join
3050: 20 5b 70 77 64 5d 20 24 63 72 61 73 68 66 69 6c   [pwd] $crashfil
3060: 65 5d 0a 0a 20 20 73 65 74 20 66 20 5b 6f 70 65  e]..  set f [ope
3070: 6e 20 63 72 61 73 68 2e 74 63 6c 20 77 5d 0a 20  n crash.tcl w]. 
3080: 20 70 75 74 73 20 24 66 20 22 73 71 6c 69 74 65   puts $f "sqlite
3090: 33 5f 63 72 61 73 68 5f 65 6e 61 62 6c 65 20 31  3_crash_enable 1
30a0: 22 0a 20 20 70 75 74 73 20 24 66 20 22 73 71 6c  ".  puts $f "sql
30b0: 69 74 65 33 5f 63 72 61 73 68 70 61 72 61 6d 73  ite3_crashparams
30c0: 20 24 62 6c 6f 63 6b 73 69 7a 65 20 24 64 63 20   $blocksize $dc 
30d0: 24 63 72 61 73 68 64 65 6c 61 79 20 24 63 66 69  $crashdelay $cfi
30e0: 6c 65 22 0a 20 20 70 75 74 73 20 24 66 20 22 73  le".  puts $f "s
30f0: 65 74 20 73 71 6c 69 74 65 5f 70 65 6e 64 69 6e  et sqlite_pendin
3100: 67 5f 62 79 74 65 20 24 3a 3a 73 71 6c 69 74 65  g_byte $::sqlite
3110: 5f 70 65 6e 64 69 6e 67 5f 62 79 74 65 22 0a 20  _pending_byte". 
3120: 20 70 75 74 73 20 24 66 20 22 73 71 6c 69 74 65   puts $f "sqlite
3130: 33 20 64 62 20 74 65 73 74 2e 64 62 20 2d 76 66  3 db test.db -vf
3140: 73 20 63 72 61 73 68 22 0a 0a 20 20 23 20 54 68  s crash"..  # Th
3150: 69 73 20 62 6c 6f 63 6b 20 73 65 74 73 20 74 68  is block sets th
3160: 65 20 63 61 63 68 65 20 73 69 7a 65 20 6f 66 20  e cache size of 
3170: 74 68 65 20 6d 61 69 6e 20 64 61 74 61 62 61 73  the main databas
3180: 65 20 74 6f 20 31 30 0a 20 20 23 20 70 61 67 65  e to 10.  # page
3190: 73 2e 20 54 68 69 73 20 69 73 20 64 6f 6e 65 20  s. This is done 
31a0: 69 6e 20 63 61 73 65 20 74 68 65 20 62 75 69 6c  in case the buil
31b0: 64 20 69 73 20 63 6f 6e 66 69 67 75 72 65 64 20  d is configured 
31c0: 74 6f 20 6f 6d 69 74 0a 20 20 23 20 22 50 52 41  to omit.  # "PRA
31d0: 47 4d 41 20 63 61 63 68 65 5f 73 69 7a 65 22 2e  GMA cache_size".
31e0: 0a 20 20 70 75 74 73 20 24 66 20 7b 64 62 20 65  .  puts $f {db e
31f0: 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52  val {SELECT * FR
3200: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
3210: 3b 7d 7d 0a 20 20 70 75 74 73 20 24 66 20 7b 73  ;}}.  puts $f {s
3220: 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f  et bt [btree_fro
3230: 6d 5f 64 62 20 64 62 5d 7d 0a 20 20 70 75 74 73  m_db db]}.  puts
3240: 20 24 66 20 7b 62 74 72 65 65 5f 73 65 74 5f 63   $f {btree_set_c
3250: 61 63 68 65 5f 73 69 7a 65 20 24 62 74 20 31 30  ache_size $bt 10
3260: 7d 0a 20 20 69 66 20 7b 24 70 72 6e 67 73 65 65  }.  if {$prngsee
3270: 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 65 65  d} {.    set see
3280: 64 20 5b 65 78 70 72 20 7b 24 70 72 6e 67 73 65  d [expr {$prngse
3290: 65 64 25 31 30 30 30 37 2b 31 7d 5d 0a 20 20 20  ed%10007+1}].   
32a0: 20 23 20 70 75 74 73 20 73 65 65 64 3d 24 73 65   # puts seed=$se
32b0: 65 64 0a 20 20 20 20 70 75 74 73 20 24 66 20 22  ed.    puts $f "
32c0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
32d0: 72 61 6e 64 6f 6d 62 6c 6f 62 28 24 73 65 65 64  randomblob($seed
32e0: 29 7d 22 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 5b  )}".  }..  if {[
32f0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74  string length $t
3300: 63 6c 62 6f 64 79 5d 3e 30 7d 20 7b 0a 20 20 20  clbody]>0} {.   
3310: 20 70 75 74 73 20 24 66 20 24 74 63 6c 62 6f 64   puts $f $tclbod
3320: 79 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 73 74 72  y.  }.  if {[str
3330: 69 6e 67 20 6c 65 6e 67 74 68 20 24 73 71 6c 5d  ing length $sql]
3340: 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 24  >0} {.    puts $
3350: 66 20 22 64 62 20 65 76 61 6c 20 7b 22 0a 20 20  f "db eval {".  
3360: 20 20 70 75 74 73 20 24 66 20 20 20 22 24 73 71    puts $f   "$sq
3370: 6c 22 0a 20 20 20 20 70 75 74 73 20 24 66 20 22  l".    puts $f "
3380: 7d 22 0a 20 20 7d 0a 20 20 63 6c 6f 73 65 20 24  }".  }.  close $
3390: 66 0a 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63  f..  set r [catc
33a0: 68 20 7b 0a 20 20 20 20 65 78 65 63 20 5b 69 6e  h {.    exec [in
33b0: 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63 5d 20 63  fo nameofexec] c
33c0: 72 61 73 68 2e 74 63 6c 20 3e 40 73 74 64 6f 75  rash.tcl >@stdou
33d0: 74 0a 20 20 7d 20 6d 73 67 5d 0a 20 20 6c 61 70  t.  } msg].  lap
33e0: 70 65 6e 64 20 72 20 24 6d 73 67 0a 7d 0a 0a 23  pend r $msg.}..#
33f0: 20 55 73 61 67 65 3a 20 64 6f 5f 69 6f 65 72 72   Usage: do_ioerr
3400: 5f 74 65 73 74 20 3c 74 65 73 74 20 6e 75 6d 62  _test <test numb
3410: 65 72 3e 20 3c 6f 70 74 69 6f 6e 73 2e 2e 2e 3e  er> <options...>
3420: 0a 23 0a 23 20 54 68 69 73 20 70 72 6f 63 20 69  .#.# This proc i
3430: 73 20 75 73 65 64 20 74 6f 20 69 6d 70 6c 65 6d  s used to implem
3440: 65 6e 74 20 74 65 73 74 20 63 61 73 65 73 20 74  ent test cases t
3450: 68 61 74 20 63 68 65 63 6b 20 74 68 61 74 20 49  hat check that I
3460: 4f 20 65 72 72 6f 72 73 0a 23 20 61 72 65 20 63  O errors.# are c
3470: 6f 72 72 65 63 74 6c 79 20 68 61 6e 64 6c 65 64  orrectly handled
3480: 2e 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75  . The first argu
3490: 6d 65 6e 74 2c 20 3c 74 65 73 74 20 6e 75 6d 62  ment, <test numb
34a0: 65 72 3e 2c 20 69 73 20 61 6e 20 69 6e 74 65 67  er>, is an integ
34b0: 65 72 20 0a 23 20 75 73 65 64 20 74 6f 20 6e 61  er .# used to na
34c0: 6d 65 20 74 68 65 20 74 65 73 74 73 20 65 78 65  me the tests exe
34d0: 63 75 74 65 64 20 62 79 20 74 68 69 73 20 70 72  cuted by this pr
34e0: 6f 63 2e 20 4f 70 74 69 6f 6e 73 20 61 72 65 20  oc. Options are 
34f0: 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 23 0a 23 20  as follows:.#.# 
3500: 20 20 20 20 2d 74 63 6c 70 72 65 70 20 20 20 20      -tclprep    
3510: 20 20 20 20 20 20 54 43 4c 20 73 63 72 69 70 74        TCL script
3520: 20 74 6f 20 72 75 6e 20 74 6f 20 70 72 65 70 61   to run to prepa
3530: 72 65 20 74 65 73 74 2e 0a 23 20 20 20 20 20 2d  re test..#     -
3540: 73 71 6c 70 72 65 70 20 20 20 20 20 20 20 20 20  sqlprep         
3550: 20 53 51 4c 20 73 63 72 69 70 74 20 74 6f 20 72   SQL script to r
3560: 75 6e 20 74 6f 20 70 72 65 70 61 72 65 20 74 65  un to prepare te
3570: 73 74 2e 0a 23 20 20 20 20 20 2d 74 63 6c 62 6f  st..#     -tclbo
3580: 64 79 20 20 20 20 20 20 20 20 20 20 54 43 4c 20  dy          TCL 
3590: 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 77 69  script to run wi
35a0: 74 68 20 49 4f 20 65 72 72 6f 72 20 73 69 6d 75  th IO error simu
35b0: 6c 61 74 69 6f 6e 2e 0a 23 20 20 20 20 20 2d 73  lation..#     -s
35c0: 71 6c 62 6f 64 79 20 20 20 20 20 20 20 20 20 20  qlbody          
35d0: 54 43 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75  TCL script to ru
35e0: 6e 20 77 69 74 68 20 49 4f 20 65 72 72 6f 72 20  n with IO error 
35f0: 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a 23 20 20 20  simulation..#   
3600: 20 20 2d 65 78 63 6c 75 64 65 20 20 20 20 20 20    -exclude      
3610: 20 20 20 20 4c 69 73 74 20 6f 66 20 27 4e 27 20      List of 'N' 
3620: 76 61 6c 75 65 73 20 6e 6f 74 20 74 6f 20 74 65  values not to te
3630: 73 74 2e 0a 23 20 20 20 20 20 2d 65 72 63 20 20  st..#     -erc  
3640: 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 20              Use 
3650: 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74 20  extended result 
3660: 63 6f 64 65 73 0a 23 20 20 20 20 20 2d 70 65 72  codes.#     -per
3670: 73 69 73 74 20 20 20 20 20 20 20 20 20 20 4d 61  sist          Ma
3680: 6b 65 20 73 69 6d 75 6c 61 74 65 64 20 49 2f 4f  ke simulated I/O
3690: 20 65 72 72 6f 72 73 20 70 65 72 73 69 73 74 65   errors persiste
36a0: 6e 74 0a 23 20 20 20 20 20 2d 73 74 61 72 74 20  nt.#     -start 
36b0: 20 20 20 20 20 20 20 20 20 20 20 56 61 6c 75 65             Value
36c0: 20 6f 66 20 27 4e 27 20 74 6f 20 62 65 67 69 6e   of 'N' to begin
36d0: 20 77 69 74 68 20 28 64 65 66 61 75 6c 74 20 31   with (default 1
36e0: 29 0a 23 0a 23 20 20 20 20 20 2d 63 6b 73 75 6d  ).#.#     -cksum
36f0: 20 20 20 20 20 20 20 20 20 20 20 20 42 6f 6f 6c              Bool
3700: 65 61 6e 2e 20 49 66 20 74 72 75 65 2c 20 74 65  ean. If true, te
3710: 73 74 20 74 68 61 74 20 74 68 65 20 64 61 74 61  st that the data
3720: 62 61 73 65 20 64 6f 65 73 0a 23 20 20 20 20 20  base does.#     
3730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3740: 20 20 6e 6f 74 20 63 68 61 6e 67 65 20 64 75 72    not change dur
3750: 69 6e 67 20 74 68 65 20 65 78 65 63 75 74 69 6f  ing the executio
3760: 6e 20 6f 66 20 74 68 65 20 74 65 73 74 20 63 61  n of the test ca
3770: 73 65 2e 0a 23 0a 70 72 6f 63 20 64 6f 5f 69 6f  se..#.proc do_io
3780: 65 72 72 5f 74 65 73 74 20 7b 74 65 73 74 6e 61  err_test {testna
3790: 6d 65 20 61 72 67 73 7d 20 7b 0a 0a 20 20 73 65  me args} {..  se
37a0: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73  t ::ioerropts(-s
37b0: 74 61 72 74 29 20 31 0a 20 20 73 65 74 20 3a 3a  tart) 1.  set ::
37c0: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73 75 6d  ioerropts(-cksum
37d0: 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72  ) 0.  set ::ioer
37e0: 72 6f 70 74 73 28 2d 65 72 63 29 20 30 0a 20 20  ropts(-erc) 0.  
37f0: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  set ::ioerropts(
3800: 2d 63 6f 75 6e 74 29 20 31 30 30 30 30 30 30 30  -count) 10000000
3810: 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f  0.  set ::ioerro
3820: 70 74 73 28 2d 70 65 72 73 69 73 74 29 20 31 0a  pts(-persist) 1.
3830: 20 20 61 72 72 61 79 20 73 65 74 20 3a 3a 69 6f    array set ::io
3840: 65 72 72 6f 70 74 73 20 24 61 72 67 73 0a 0a 20  erropts $args.. 
3850: 20 73 65 74 20 3a 3a 67 6f 20 31 0a 20 20 23 72   set ::go 1.  #r
3860: 65 73 65 74 5f 70 72 6e 67 5f 73 74 61 74 65 0a  eset_prng_state.
3870: 20 20 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 74    save_prng_stat
3880: 65 0a 20 20 66 6f 72 20 7b 73 65 74 20 6e 20 24  e.  for {set n $
3890: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 74 61  ::ioerropts(-sta
38a0: 72 74 29 7d 20 7b 24 3a 3a 67 6f 7d 20 7b 69 6e  rt)} {$::go} {in
38b0: 63 72 20 6e 7d 20 7b 0a 20 20 20 20 73 65 74 20  cr n} {.    set 
38c0: 3a 3a 54 4e 20 24 6e 0a 20 20 20 20 69 6e 63 72  ::TN $n.    incr
38d0: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f   ::ioerropts(-co
38e0: 75 6e 74 29 20 2d 31 0a 20 20 20 20 69 66 20 7b  unt) -1.    if {
38f0: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f  $::ioerropts(-co
3900: 75 6e 74 29 3c 30 7d 20 62 72 65 61 6b 0a 20 0a  unt)<0} break. .
3910: 20 20 20 20 23 20 53 6b 69 70 20 74 68 69 73 20      # Skip this 
3920: 49 4f 20 65 72 72 6f 72 20 69 66 20 69 74 20 77  IO error if it w
3930: 61 73 20 73 70 65 63 69 66 69 65 64 20 77 69 74  as specified wit
3940: 68 20 74 68 65 20 22 2d 65 78 63 6c 75 64 65 22  h the "-exclude"
3950: 20 6f 70 74 69 6f 6e 2e 0a 20 20 20 20 69 66 20   option..    if 
3960: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
3970: 69 6f 65 72 72 6f 70 74 73 28 2d 65 78 63 6c 75  ioerropts(-exclu
3980: 64 65 29 5d 7d 20 7b 0a 20 20 20 20 20 20 69 66  de)]} {.      if
3990: 20 7b 5b 6c 73 65 61 72 63 68 20 24 3a 3a 69 6f   {[lsearch $::io
39a0: 65 72 72 6f 70 74 73 28 2d 65 78 63 6c 75 64 65  erropts(-exclude
39b0: 29 20 24 6e 5d 21 3d 2d 31 7d 20 63 6f 6e 74 69  ) $n]!=-1} conti
39c0: 6e 75 65 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  nue.    }.    re
39d0: 73 74 6f 72 65 5f 70 72 6e 67 5f 73 74 61 74 65  store_prng_state
39e0: 0a 0a 20 20 20 20 23 20 44 65 6c 65 74 65 20 74  ..    # Delete t
39f0: 68 65 20 66 69 6c 65 73 20 74 65 73 74 2e 64 62  he files test.db
3a00: 20 61 6e 64 20 74 65 73 74 32 2e 64 62 2c 20 74   and test2.db, t
3a10: 68 65 6e 20 65 78 65 63 75 74 65 20 74 68 65 20  hen execute the 
3a20: 54 43 4c 20 61 6e 64 20 0a 20 20 20 20 23 20 53  TCL and .    # S
3a30: 51 4c 20 28 69 6e 20 74 68 61 74 20 6f 72 64 65  QL (in that orde
3a40: 72 29 20 74 6f 20 70 72 65 70 61 72 65 20 66 6f  r) to prepare fo
3a50: 72 20 74 68 65 20 74 65 73 74 20 63 61 73 65 2e  r the test case.
3a60: 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65  .    do_test $te
3a70: 73 74 6e 61 6d 65 2e 24 6e 2e 31 20 7b 0a 20 20  stname.$n.1 {.  
3a80: 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65      set ::sqlite
3a90: 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e  _io_error_pendin
3aa0: 67 20 30 0a 20 20 20 20 20 20 63 61 74 63 68 20  g 0.      catch 
3ab0: 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20  {db close}.     
3ac0: 20 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c   catch {file del
3ad0: 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e  ete -force test.
3ae0: 64 62 7d 0a 20 20 20 20 20 20 63 61 74 63 68 20  db}.      catch 
3af0: 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f  {file delete -fo
3b00: 72 63 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72  rce test.db-jour
3b10: 6e 61 6c 7d 0a 20 20 20 20 20 20 63 61 74 63 68  nal}.      catch
3b20: 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66   {file delete -f
3b30: 6f 72 63 65 20 74 65 73 74 32 2e 64 62 7d 0a 20  orce test2.db}. 
3b40: 20 20 20 20 20 63 61 74 63 68 20 7b 66 69 6c 65       catch {file
3b50: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74   delete -force t
3b60: 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 7d  est2.db-journal}
3b70: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 44 42 20  .      set ::DB 
3b80: 5b 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74  [sqlite3 db test
3b90: 2e 64 62 3b 20 73 71 6c 69 74 65 33 5f 63 6f 6e  .db; sqlite3_con
3ba0: 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20  nection_pointer 
3bb0: 64 62 5d 0a 20 20 20 20 20 20 73 71 6c 69 74 65  db].      sqlite
3bc0: 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c  3_extended_resul
3bd0: 74 5f 63 6f 64 65 73 20 24 3a 3a 44 42 20 24 3a  t_codes $::DB $:
3be0: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29  :ioerropts(-erc)
3bf0: 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f  .      if {[info
3c00: 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f   exists ::ioerro
3c10: 70 74 73 28 2d 74 63 6c 70 72 65 70 29 5d 7d 20  pts(-tclprep)]} 
3c20: 7b 0a 20 20 20 20 20 20 20 20 65 76 61 6c 20 24  {.        eval $
3c30: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c  ::ioerropts(-tcl
3c40: 70 72 65 70 29 0a 20 20 20 20 20 20 7d 0a 20 20  prep).      }.  
3c50: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
3c60: 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73  ists ::ioerropts
3c70: 28 2d 73 71 6c 70 72 65 70 29 5d 7d 20 7b 0a 20  (-sqlprep)]} {. 
3c80: 20 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 24         execsql $
3c90: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 71 6c  ::ioerropts(-sql
3ca0: 70 72 65 70 29 0a 20 20 20 20 20 20 7d 0a 20 20  prep).      }.  
3cb0: 20 20 20 20 65 78 70 72 20 30 0a 20 20 20 20 7d      expr 0.    }
3cc0: 20 7b 30 7d 0a 0a 20 20 20 20 23 20 52 65 61 64   {0}..    # Read
3cd0: 20 74 68 65 20 27 63 68 65 63 6b 73 75 6d 27 20   the 'checksum' 
3ce0: 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65 2e  of the database.
3cf0: 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72  .    if {$::ioer
3d00: 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b  ropts(-cksum)} {
3d10: 0a 20 20 20 20 20 20 73 65 74 20 63 68 65 63 6b  .      set check
3d20: 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20 20 20  sum [cksum].    
3d30: 7d 0a 0a 20 20 20 20 23 20 53 65 74 20 74 68 65  }..    # Set the
3d40: 20 4e 74 68 20 49 4f 20 65 72 72 6f 72 20 74 6f   Nth IO error to
3d50: 20 66 61 69 6c 2e 0a 20 20 20 20 64 6f 5f 74 65   fail..    do_te
3d60: 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e  st $testname.$n.
3d70: 32 20 5b 73 75 62 73 74 20 7b 0a 20 20 20 20 20  2 [subst {.     
3d80: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
3d90: 5f 65 72 72 6f 72 5f 70 65 72 73 69 73 74 20 24  _error_persist $
3da0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70 65 72  ::ioerropts(-per
3db0: 73 69 73 74 29 0a 20 20 20 20 20 20 73 65 74 20  sist).      set 
3dc0: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
3dd0: 72 5f 70 65 6e 64 69 6e 67 20 24 6e 0a 20 20 20  r_pending $n.   
3de0: 20 7d 5d 20 24 6e 0a 20 20 0a 20 20 20 20 23 20   }] $n.  .    # 
3df0: 43 72 65 61 74 65 20 61 20 73 69 6e 67 6c 65 20  Create a single 
3e00: 54 43 4c 20 73 63 72 69 70 74 20 66 72 6f 6d 20  TCL script from 
3e10: 74 68 65 20 54 43 4c 20 61 6e 64 20 53 51 4c 20  the TCL and SQL 
3e20: 73 70 65 63 69 66 69 65 64 0a 20 20 20 20 23 20  specified.    # 
3e30: 61 73 20 74 68 65 20 62 6f 64 79 20 6f 66 20 74  as the body of t
3e40: 68 65 20 74 65 73 74 2e 0a 20 20 20 20 73 65 74  he test..    set
3e50: 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79 20 7b   ::ioerrorbody {
3e60: 7d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20  }.    if {[info 
3e70: 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70  exists ::ioerrop
3e80: 74 73 28 2d 74 63 6c 62 6f 64 79 29 5d 7d 20 7b  ts(-tclbody)]} {
3e90: 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 3a 3a  .      append ::
3ea0: 69 6f 65 72 72 6f 72 62 6f 64 79 20 22 24 3a 3a  ioerrorbody "$::
3eb0: 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c 62 6f  ioerropts(-tclbo
3ec0: 64 79 29 5c 6e 22 0a 20 20 20 20 7d 0a 20 20 20  dy)\n".    }.   
3ed0: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
3ee0: 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73  s ::ioerropts(-s
3ef0: 71 6c 62 6f 64 79 29 5d 7d 20 7b 0a 20 20 20 20  qlbody)]} {.    
3f00: 20 20 61 70 70 65 6e 64 20 3a 3a 69 6f 65 72 72    append ::ioerr
3f10: 6f 72 62 6f 64 79 20 22 64 62 20 65 76 61 6c 20  orbody "db eval 
3f20: 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73  {$::ioerropts(-s
3f30: 71 6c 62 6f 64 79 29 7d 22 0a 20 20 20 20 7d 0a  qlbody)}".    }.
3f40: 0a 20 20 20 20 23 20 45 78 65 63 75 74 65 20 74  .    # Execute t
3f50: 68 65 20 54 43 4c 20 53 63 72 69 70 74 20 63 72  he TCL Script cr
3f60: 65 61 74 65 64 20 69 6e 20 74 68 65 20 61 62 6f  eated in the abo
3f70: 76 65 20 62 6c 6f 63 6b 2e 20 49 66 0a 20 20 20  ve block. If.   
3f80: 20 23 20 74 68 65 72 65 20 61 72 65 20 61 74 20   # there are at 
3f90: 6c 65 61 73 74 20 4e 20 49 4f 20 6f 70 65 72 61  least N IO opera
3fa0: 74 69 6f 6e 73 20 70 65 72 66 6f 72 6d 65 64 20  tions performed 
3fb0: 62 79 20 53 51 4c 69 74 65 20 61 73 0a 20 20 20  by SQLite as.   
3fc0: 20 23 20 61 20 72 65 73 75 6c 74 20 6f 66 20 74   # a result of t
3fd0: 68 65 20 73 63 72 69 70 74 2c 20 74 68 65 20 4e  he script, the N
3fe0: 74 68 20 77 69 6c 6c 20 66 61 69 6c 2e 0a 20 20  th will fail..  
3ff0: 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e    do_test $testn
4000: 61 6d 65 2e 24 6e 2e 33 20 7b 0a 20 20 20 20 20  ame.$n.3 {.     
4010: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
4020: 5f 65 72 72 6f 72 5f 68 69 74 20 30 0a 20 20 20  _error_hit 0.   
4030: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f     set ::sqlite_
4040: 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74  io_error_hardhit
4050: 20 30 0a 20 20 20 20 20 20 73 65 74 20 72 20 5b   0.      set r [
4060: 63 61 74 63 68 20 24 3a 3a 69 6f 65 72 72 6f 72  catch $::ioerror
4070: 62 6f 64 79 20 6d 73 67 5d 0a 20 20 20 20 20 20  body msg].      
4080: 73 65 74 20 3a 3a 65 72 72 73 65 65 6e 20 24 72  set ::errseen $r
4090: 0a 20 20 20 20 20 20 73 65 74 20 72 63 20 5b 73  .      set rc [s
40a0: 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 20 24  qlite3_errcode $
40b0: 3a 3a 44 42 5d 0a 20 20 20 20 20 20 69 66 20 7b  ::DB].      if {
40c0: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72  $::ioerropts(-er
40d0: 63 29 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20  c)} {.        # 
40e0: 49 66 20 77 65 20 61 72 65 20 69 6e 20 65 78 74  If we are in ext
40f0: 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64  ended result cod
4100: 65 20 6d 6f 64 65 2c 20 6d 61 6b 65 20 73 75 72  e mode, make sur
4110: 65 20 61 6c 6c 20 6f 66 20 74 68 65 0a 20 20 20  e all of the.   
4120: 20 20 20 20 20 23 20 49 4f 45 52 52 73 20 77 65       # IOERRs we
4130: 20 67 65 74 20 62 61 63 6b 20 72 65 61 6c 6c 79   get back really
4140: 20 64 6f 20 68 61 76 65 20 74 68 65 69 72 20 65   do have their e
4150: 78 74 65 6e 64 65 64 20 63 6f 64 65 20 76 61 6c  xtended code val
4160: 75 65 73 2e 0a 20 20 20 20 20 20 20 20 23 20 49  ues..        # I
4170: 66 20 61 6e 20 65 78 74 65 6e 64 65 64 20 72 65  f an extended re
4180: 73 75 6c 74 20 63 6f 64 65 20 69 73 20 72 65 74  sult code is ret
4190: 75 72 6e 65 64 2c 20 74 68 65 20 73 71 6c 69 74  urned, the sqlit
41a0: 65 33 5f 65 72 72 63 6f 64 65 0a 20 20 20 20 20  e3_errcode.     
41b0: 20 20 20 23 20 54 43 4c 63 6f 6d 6d 61 6e 64 20     # TCLcommand 
41c0: 77 69 6c 6c 20 72 65 74 75 72 6e 20 61 20 73 74  will return a st
41d0: 72 69 6e 67 20 6f 66 20 74 68 65 20 66 6f 72 6d  ring of the form
41e0: 3a 20 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 2b  :  SQLITE_IOERR+
41f0: 6e 6e 6e 6e 0a 20 20 20 20 20 20 20 20 23 20 77  nnnn.        # w
4200: 68 65 72 65 20 6e 6e 6e 6e 20 69 73 20 61 20 6e  here nnnn is a n
4210: 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 69 66  umber.        if
4220: 20 7b 5b 72 65 67 65 78 70 20 7b 5e 53 51 4c 49   {[regexp {^SQLI
4230: 54 45 5f 49 4f 45 52 52 7d 20 24 72 63 5d 20 26  TE_IOERR} $rc] &
4240: 26 20 21 5b 72 65 67 65 78 70 20 7b 49 4f 45 52  & ![regexp {IOER
4250: 52 5c 2b 5c 64 7d 20 24 72 63 5d 7d 20 7b 0a 20  R\+\d} $rc]} {. 
4260: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
4270: 24 72 63 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  $rc.        }.  
4280: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
4290: 20 20 20 20 20 23 20 49 66 20 77 65 20 61 72 65       # If we are
42a0: 20 6e 6f 74 20 69 6e 20 65 78 74 65 6e 64 65 64   not in extended
42b0: 20 72 65 73 75 6c 74 20 63 6f 64 65 20 6d 6f 64   result code mod
42c0: 65 2c 20 6d 61 6b 65 20 73 75 72 65 20 6e 6f 0a  e, make sure no.
42d0: 20 20 20 20 20 20 20 20 23 20 65 78 74 65 6e 64          # extend
42e0: 65 64 20 65 72 72 6f 72 20 63 6f 64 65 73 20 61  ed error codes a
42f0: 72 65 20 72 65 74 75 72 6e 65 64 2e 0a 20 20 20  re returned..   
4300: 20 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70       if {[regexp
4310: 20 7b 5c 2b 5c 64 7d 20 24 72 63 5d 7d 20 7b 0a   {\+\d} $rc]} {.
4320: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
4330: 20 24 72 63 0a 20 20 20 20 20 20 20 20 7d 0a 20   $rc.        }. 
4340: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 23 20 54       }.      # T
4350: 68 65 20 74 65 73 74 20 72 65 70 65 61 74 73 20  he test repeats 
4360: 61 73 20 6c 6f 6e 67 20 61 73 20 24 3a 3a 67 6f  as long as $::go
4370: 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f 2e 20 20 24   is non-zero.  $
4380: 3a 3a 67 6f 20 73 74 61 72 74 73 20 6f 75 74 0a  ::go starts out.
4390: 20 20 20 20 20 20 23 20 61 73 20 31 2e 20 20 57        # as 1.  W
43a0: 68 65 6e 20 61 20 74 65 73 74 20 72 75 6e 73 20  hen a test runs 
43b0: 74 6f 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 77 69  to completion wi
43c0: 74 68 6f 75 74 20 68 69 74 74 69 6e 67 20 61 6e  thout hitting an
43d0: 20 49 2f 4f 0a 20 20 20 20 20 20 23 20 65 72 72   I/O.      # err
43e0: 6f 72 2c 20 74 68 61 74 20 6d 65 61 6e 73 20 74  or, that means t
43f0: 68 65 72 65 20 69 73 20 6e 6f 20 70 6f 69 6e 74  here is no point
4400: 20 69 6e 20 63 6f 6e 74 69 6e 75 69 6e 67 20 77   in continuing w
4410: 69 74 68 20 74 68 69 73 20 74 65 73 74 0a 20 20  ith this test.  
4420: 20 20 20 20 23 20 63 61 73 65 20 73 6f 20 73 65      # case so se
4430: 74 20 24 3a 3a 67 6f 20 74 6f 20 7a 65 72 6f 2e  t $::go to zero.
4440: 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 69  .      #.      i
4450: 66 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  f {$::sqlite_io_
4460: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 3e 30 7d  error_pending>0}
4470: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a   {.        set :
4480: 3a 67 6f 20 30 0a 20 20 20 20 20 20 20 20 73 65  :go 0.        se
4490: 74 20 71 20 30 0a 20 20 20 20 20 20 20 20 73 65  t q 0.        se
44a0: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
44b0: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20  ror_pending 0.  
44c0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
44d0: 20 20 20 20 20 73 65 74 20 71 20 31 0a 20 20 20       set q 1.   
44e0: 20 20 20 7d 0a 0a 20 20 20 20 20 20 73 65 74 20     }..      set 
44f0: 73 20 5b 65 78 70 72 20 24 3a 3a 73 71 6c 69 74  s [expr $::sqlit
4500: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 3d 3d  e_io_error_hit==
4510: 30 5d 0a 20 20 20 20 20 20 69 66 20 7b 24 3a 3a  0].      if {$::
4520: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
4530: 68 69 74 3e 24 3a 3a 73 71 6c 69 74 65 5f 69 6f  hit>$::sqlite_io
4540: 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74 20 26  _error_hardhit &
4550: 26 20 24 72 3d 3d 30 7d 20 7b 0a 20 20 20 20 20  & $r==0} {.     
4560: 20 20 20 73 65 74 20 72 20 31 0a 20 20 20 20 20     set r 1.     
4570: 20 7d 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73   }.      set ::s
4580: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68  qlite_io_error_h
4590: 69 74 20 30 0a 0a 20 20 20 20 20 20 23 20 4f 6e  it 0..      # On
45a0: 65 20 6f 66 20 74 77 6f 20 74 68 69 6e 67 73 20  e of two things 
45b0: 6d 75 73 74 20 68 61 76 65 20 68 61 70 70 65 6e  must have happen
45c0: 65 64 2e 20 65 69 74 68 65 72 0a 20 20 20 20 20  ed. either.     
45d0: 20 23 20 20 20 31 2e 20 20 57 65 20 6e 65 76 65   #   1.  We neve
45e0: 72 20 68 69 74 20 74 68 65 20 49 4f 20 65 72 72  r hit the IO err
45f0: 6f 72 20 61 6e 64 20 74 68 65 20 53 51 4c 20 72  or and the SQL r
4600: 65 74 75 72 6e 65 64 20 4f 4b 0a 20 20 20 20 20  eturned OK.     
4610: 20 23 20 20 20 32 2e 20 20 41 6e 20 49 4f 20 65   #   2.  An IO e
4620: 72 72 6f 72 20 77 61 73 20 68 69 74 20 61 6e 64  rror was hit and
4630: 20 74 68 65 20 53 51 4c 20 66 61 69 6c 65 64 0a   the SQL failed.
4640: 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 65 78        #.      ex
4650: 70 72 20 7b 20 28 24 73 20 26 26 20 21 24 72 20  pr { ($s && !$r 
4660: 26 26 20 21 24 71 29 20 7c 7c 20 28 21 24 73 20  && !$q) || (!$s 
4670: 26 26 20 24 72 20 26 26 20 24 71 29 20 7d 0a 20  && $r && $q) }. 
4680: 20 20 20 7d 20 7b 31 7d 0a 0a 20 20 20 20 23 20     } {1}..    # 
4690: 49 66 20 61 6e 20 49 4f 20 65 72 72 6f 72 20 6f  If an IO error o
46a0: 63 63 75 72 65 64 2c 20 74 68 65 6e 20 74 68 65  ccured, then the
46b0: 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 74 68 65   checksum of the
46c0: 20 64 61 74 61 62 61 73 65 20 73 68 6f 75 6c 64   database should
46d0: 0a 20 20 20 20 23 20 62 65 20 74 68 65 20 73 61  .    # be the sa
46e0: 6d 65 20 61 73 20 62 65 66 6f 72 65 20 74 68 65  me as before the
46f0: 20 73 63 72 69 70 74 20 74 68 61 74 20 63 61 75   script that cau
4700: 73 65 64 20 74 68 65 20 49 4f 20 65 72 72 6f 72  sed the IO error
4710: 20 77 61 73 20 72 75 6e 2e 0a 20 20 20 20 69 66   was run..    if
4720: 20 7b 24 3a 3a 67 6f 20 26 26 20 24 3a 3a 73 71   {$::go && $::sq
4730: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61  lite_io_error_ha
4740: 72 64 68 69 74 20 26 26 20 24 3a 3a 69 6f 65 72  rdhit && $::ioer
4750: 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b  ropts(-cksum)} {
4760: 0a 20 20 20 20 20 20 64 6f 5f 74 65 73 74 20 24  .      do_test $
4770: 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 34 20 7b 0a  testname.$n.4 {.
4780: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 64          catch {d
4790: 62 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 20  b close}.       
47a0: 20 73 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74   set ::DB [sqlit
47b0: 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73  e3 db test.db; s
47c0: 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f  qlite3_connectio
47d0: 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20  n_pointer db].  
47e0: 20 20 20 20 20 20 63 6b 73 75 6d 0a 20 20 20 20        cksum.    
47f0: 20 20 7d 20 24 63 68 65 63 6b 73 75 6d 0a 20 20    } $checksum.  
4800: 20 20 7d 0a 0a 20 20 20 20 73 65 74 20 3a 3a 73    }..    set ::s
4810: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68  qlite_io_error_h
4820: 61 72 64 68 69 74 20 30 0a 20 20 20 20 73 65 74  ardhit 0.    set
4830: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
4840: 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 20  or_pending 0.   
4850: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
4860: 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63  s ::ioerropts(-c
4870: 6c 65 61 6e 75 70 29 5d 7d 20 7b 0a 20 20 20 20  leanup)]} {.    
4880: 20 20 63 61 74 63 68 20 24 3a 3a 69 6f 65 72 72    catch $::ioerr
4890: 6f 70 74 73 28 2d 63 6c 65 61 6e 75 70 29 0a 20  opts(-cleanup). 
48a0: 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a     }.  }.  set :
48b0: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
48c0: 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 73 65 74  _pending 0.  set
48d0: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
48e0: 6f 72 5f 70 65 72 73 69 73 74 20 30 0a 20 20 75  or_persist 0.  u
48f0: 6e 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73  nset ::ioerropts
4900: 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 20 61 20 63  .}..# Return a c
4910: 68 65 63 6b 73 75 6d 20 62 61 73 65 64 20 6f 6e  hecksum based on
4920: 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66   the contents of
4930: 20 74 68 65 20 6d 61 69 6e 20 64 61 74 61 62 61   the main databa
4940: 73 65 20 61 73 73 6f 63 69 61 74 65 64 0a 23 20  se associated.# 
4950: 77 69 74 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20  with connection 
4960: 24 64 62 0a 23 0a 70 72 6f 63 20 63 6b 73 75 6d  $db.#.proc cksum
4970: 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73   {{db db}} {.  s
4980: 65 74 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c  et txt [$db eval
4990: 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20   {.      SELECT 
49a0: 6e 61 6d 65 2c 20 74 79 70 65 2c 20 73 71 6c 20  name, type, sql 
49b0: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
49c0: 65 72 20 6f 72 64 65 72 20 62 79 20 6e 61 6d 65  er order by name
49d0: 0a 20 20 7d 5d 5c 6e 0a 20 20 66 6f 72 65 61 63  .  }]\n.  foreac
49e0: 68 20 74 62 6c 20 5b 24 64 62 20 65 76 61 6c 20  h tbl [$db eval 
49f0: 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e  {.      SELECT n
4a00: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
4a10: 6d 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70  master WHERE typ
4a20: 65 3d 27 74 61 62 6c 65 27 20 6f 72 64 65 72 20  e='table' order 
4a30: 62 79 20 6e 61 6d 65 0a 20 20 7d 5d 20 7b 0a 20  by name.  }] {. 
4a40: 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24     append txt [$
4a50: 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20  db eval "SELECT 
4a60: 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d 5c 6e 0a  * FROM $tbl"]\n.
4a70: 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72    }.  foreach pr
4a80: 61 67 20 7b 64 65 66 61 75 6c 74 5f 73 79 6e 63  ag {default_sync
4a90: 68 72 6f 6e 6f 75 73 20 64 65 66 61 75 6c 74 5f  hronous default_
4aa0: 63 61 63 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20  cache_size} {.  
4ab0: 20 20 61 70 70 65 6e 64 20 74 78 74 20 24 70 72    append txt $pr
4ac0: 61 67 2d 5b 24 64 62 20 65 76 61 6c 20 22 50 52  ag-[$db eval "PR
4ad0: 41 47 4d 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20  AGMA $prag"]\n. 
4ae0: 20 7d 0a 20 20 73 65 74 20 63 6b 73 75 6d 20 5b   }.  set cksum [
4af0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74  string length $t
4b00: 78 74 5d 2d 5b 6d 64 35 20 24 74 78 74 5d 0a 20  xt]-[md5 $txt]. 
4b10: 20 23 20 70 75 74 73 20 24 63 6b 73 75 6d 2d 5b   # puts $cksum-[
4b20: 66 69 6c 65 20 73 69 7a 65 20 74 65 73 74 2e 64  file size test.d
4b30: 62 5d 0a 20 20 72 65 74 75 72 6e 20 24 63 6b 73  b].  return $cks
4b40: 75 6d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 74 65  um.}..# Generate
4b50: 20 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65   a checksum base
4b60: 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74  d on the content
4b70: 73 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 61 6e  s of the main an
4b80: 64 20 74 65 6d 70 20 74 61 62 6c 65 73 0a 23 20  d temp tables.# 
4b90: 64 61 74 61 62 61 73 65 20 24 64 62 2e 20 49 66  database $db. If
4ba0: 20 74 68 65 20 63 68 65 63 6b 73 75 6d 20 6f 66   the checksum of
4bb0: 20 74 77 6f 20 64 61 74 61 62 61 73 65 73 20 69   two databases i
4bc0: 73 20 74 68 65 20 73 61 6d 65 2c 20 61 6e 64 20  s the same, and 
4bd0: 74 68 65 0a 23 20 69 6e 74 65 67 72 69 74 79 2d  the.# integrity-
4be0: 63 68 65 63 6b 20 70 61 73 73 65 73 20 66 6f 72  check passes for
4bf0: 20 62 6f 74 68 2c 20 74 68 65 20 74 77 6f 20 64   both, the two d
4c00: 61 74 61 62 61 73 65 73 20 61 72 65 20 69 64 65  atabases are ide
4c10: 6e 74 69 63 61 6c 2e 0a 23 0a 70 72 6f 63 20 61  ntical..#.proc a
4c20: 6c 6c 63 6b 73 75 6d 20 7b 7b 64 62 20 64 62 7d  llcksum {{db db}
4c30: 7d 20 7b 0a 20 20 73 65 74 20 72 65 74 20 5b 6c  } {.  set ret [l
4c40: 69 73 74 5d 0a 20 20 69 66 63 61 70 61 62 6c 65  ist].  ifcapable
4c50: 20 74 65 6d 70 64 62 20 7b 0a 20 20 20 20 73 65   tempdb {.    se
4c60: 74 20 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45  t sql {.      SE
4c70: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
4c80: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45  qlite_master WHE
4c90: 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65  RE type = 'table
4ca0: 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45  ' UNION.      SE
4cb0: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
4cc0: 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65  qlite_temp_maste
4cd0: 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27  r WHERE type = '
4ce0: 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20  table' UNION.   
4cf0: 20 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74     SELECT 'sqlit
4d00: 65 5f 6d 61 73 74 65 72 27 20 55 4e 49 4f 4e 0a  e_master' UNION.
4d10: 20 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71        SELECT 'sq
4d20: 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72  lite_temp_master
4d30: 27 20 4f 52 44 45 52 20 42 59 20 31 0a 20 20 20  ' ORDER BY 1.   
4d40: 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20   }.  } else {.  
4d50: 20 20 73 65 74 20 73 71 6c 20 7b 0a 20 20 20 20    set sql {.    
4d60: 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52    SELECT name FR
4d70: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
4d80: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74   WHERE type = 't
4d90: 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20  able' UNION.    
4da0: 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65    SELECT 'sqlite
4db0: 5f 6d 61 73 74 65 72 27 20 4f 52 44 45 52 20 42  _master' ORDER B
4dc0: 59 20 31 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  Y 1.    }.  }.  
4dd0: 73 65 74 20 74 62 6c 6c 69 73 74 20 5b 24 64 62  set tbllist [$db
4de0: 20 65 76 61 6c 20 24 73 71 6c 5d 0a 20 20 73 65   eval $sql].  se
4df0: 74 20 74 78 74 20 7b 7d 0a 20 20 66 6f 72 65 61  t txt {}.  forea
4e00: 63 68 20 74 62 6c 20 24 74 62 6c 6c 69 73 74 20  ch tbl $tbllist 
4e10: 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74  {.    append txt
4e20: 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45   [$db eval "SELE
4e30: 43 54 20 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d  CT * FROM $tbl"]
4e40: 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70  .  }.  foreach p
4e50: 72 61 67 20 7b 64 65 66 61 75 6c 74 5f 63 61 63  rag {default_cac
4e60: 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 20 61  he_size} {.    a
4e70: 70 70 65 6e 64 20 74 78 74 20 24 70 72 61 67 2d  ppend txt $prag-
4e80: 5b 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d  [$db eval "PRAGM
4e90: 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a  A $prag"]\n.  }.
4ea0: 20 20 23 20 70 75 74 73 20 74 78 74 3d 24 74 78    # puts txt=$tx
4eb0: 74 0a 20 20 72 65 74 75 72 6e 20 5b 6d 64 35 20  t.  return [md5 
4ec0: 24 74 78 74 5d 0a 7d 0a 0a 70 72 6f 63 20 6d 65  $txt].}..proc me
4ed0: 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c 20 7b  mdebug_log_sql {
4ee0: 7b 66 69 6c 65 6e 61 6d 65 20 6d 61 6c 6c 6f 63  {filename malloc
4ef0: 73 2e 73 71 6c 7d 7d 20 7b 0a 0a 20 20 73 65 74  s.sql}} {..  set
4f00: 20 64 61 74 61 20 5b 73 71 6c 69 74 65 33 5f 6d   data [sqlite3_m
4f10: 65 6d 64 65 62 75 67 5f 6c 6f 67 20 64 75 6d 70  emdebug_log dump
4f20: 5d 0a 20 20 73 65 74 20 6e 46 72 61 6d 65 20 5b  ].  set nFrame [
4f30: 65 78 70 72 20 5b 6c 6c 65 6e 67 74 68 20 5b 6c  expr [llength [l
4f40: 69 6e 64 65 78 20 24 64 61 74 61 20 30 5d 5d 2d  index $data 0]]-
4f50: 32 5d 0a 20 20 69 66 20 7b 24 6e 46 72 61 6d 65  2].  if {$nFrame
4f60: 20 3c 20 30 7d 20 7b 20 72 65 74 75 72 6e 20 22   < 0} { return "
4f70: 22 20 7d 0a 0a 20 20 73 65 74 20 64 61 74 61 62  " }..  set datab
4f80: 61 73 65 20 74 65 6d 70 0a 0a 20 20 73 65 74 20  ase temp..  set 
4f90: 74 62 6c 20 22 43 52 45 41 54 45 20 54 41 42 4c  tbl "CREATE TABL
4fa0: 45 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 6d 61  E ${database}.ma
4fb0: 6c 6c 6f 63 28 6e 43 61 6c 6c 2c 20 6e 42 79 74  lloc(nCall, nByt
4fc0: 65 22 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 69  e".  for {set ii
4fd0: 20 31 7d 20 7b 24 69 69 20 3c 3d 20 24 6e 46 72   1} {$ii <= $nFr
4fe0: 61 6d 65 7d 20 7b 69 6e 63 72 20 69 69 7d 20 7b  ame} {incr ii} {
4ff0: 0a 20 20 20 20 61 70 70 65 6e 64 20 74 62 6c 20  .    append tbl 
5000: 22 2c 20 66 24 7b 69 69 7d 22 0a 20 20 7d 0a 20  ", f${ii}".  }. 
5010: 20 61 70 70 65 6e 64 20 74 62 6c 20 22 29 3b 5c   append tbl ");\
5020: 6e 22 0a 0a 20 20 73 65 74 20 73 71 6c 20 22 22  n"..  set sql ""
5030: 0a 20 20 66 6f 72 65 61 63 68 20 65 20 24 64 61  .  foreach e $da
5040: 74 61 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20  ta {.    append 
5050: 73 71 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f  sql "INSERT INTO
5060: 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 6d 61 6c   ${database}.mal
5070: 6c 6f 63 20 56 41 4c 55 45 53 28 5b 6a 6f 69 6e  loc VALUES([join
5080: 20 24 65 20 2c 5d 29 3b 5c 6e 22 0a 20 20 20 20   $e ,]);\n".    
5090: 66 6f 72 65 61 63 68 20 66 20 5b 6c 72 61 6e 67  foreach f [lrang
50a0: 65 20 24 65 20 32 20 65 6e 64 5d 20 7b 0a 20 20  e $e 2 end] {.  
50b0: 20 20 20 20 73 65 74 20 66 72 61 6d 65 73 28 24      set frames($
50c0: 66 29 20 31 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a  f) 1.    }.  }..
50d0: 20 20 73 65 74 20 74 62 6c 32 20 22 43 52 45 41    set tbl2 "CREA
50e0: 54 45 20 54 41 42 4c 45 20 24 7b 64 61 74 61 62  TE TABLE ${datab
50f0: 61 73 65 7d 2e 66 72 61 6d 65 28 66 72 61 6d 65  ase}.frame(frame
5100: 20 49 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59   INTEGER PRIMARY
5110: 20 4b 45 59 2c 20 6c 69 6e 65 29 3b 5c 6e 22 0a   KEY, line);\n".
5120: 20 20 73 65 74 20 74 62 6c 33 20 22 43 52 45 41    set tbl3 "CREA
5130: 54 45 20 54 41 42 4c 45 20 24 7b 64 61 74 61 62  TE TABLE ${datab
5140: 61 73 65 7d 2e 66 69 6c 65 28 6e 61 6d 65 20 50  ase}.file(name P
5150: 52 49 4d 41 52 59 20 4b 45 59 2c 20 63 6f 6e 74  RIMARY KEY, cont
5160: 65 6e 74 29 3b 5c 6e 22 0a 0a 20 20 66 6f 72 65  ent);\n"..  fore
5170: 61 63 68 20 66 20 5b 61 72 72 61 79 20 6e 61 6d  ach f [array nam
5180: 65 73 20 66 72 61 6d 65 73 5d 20 7b 0a 20 20 20  es frames] {.   
5190: 20 73 65 74 20 61 64 64 72 20 5b 66 6f 72 6d 61   set addr [forma
51a0: 74 20 25 78 20 24 66 5d 0a 20 20 20 20 73 65 74  t %x $f].    set
51b0: 20 63 6d 64 20 22 61 64 64 72 32 6c 69 6e 65 20   cmd "addr2line 
51c0: 2d 65 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65  -e [info nameofe
51d0: 78 65 63 5d 20 24 61 64 64 72 22 0a 20 20 20 20  xec] $addr".    
51e0: 73 65 74 20 6c 69 6e 65 20 5b 65 76 61 6c 20 65  set line [eval e
51f0: 78 65 63 20 24 63 6d 64 5d 0a 20 20 20 20 61 70  xec $cmd].    ap
5200: 70 65 6e 64 20 73 71 6c 20 22 49 4e 53 45 52 54  pend sql "INSERT
5210: 20 49 4e 54 4f 20 24 7b 64 61 74 61 62 61 73 65   INTO ${database
5220: 7d 2e 66 72 61 6d 65 20 56 41 4c 55 45 53 28 24  }.frame VALUES($
5230: 66 2c 20 27 24 6c 69 6e 65 27 29 3b 5c 6e 22 0a  f, '$line');\n".
5240: 0a 20 20 20 20 73 65 74 20 66 69 6c 65 20 5b 6c  .    set file [l
5250: 69 6e 64 65 78 20 5b 73 70 6c 69 74 20 24 6c 69  index [split $li
5260: 6e 65 20 3a 5d 20 30 5d 0a 20 20 20 20 73 65 74  ne :] 0].    set
5270: 20 66 69 6c 65 73 28 24 66 69 6c 65 29 20 31 0a   files($file) 1.
5280: 20 20 7d 0a 0a 20 20 66 6f 72 65 61 63 68 20 66    }..  foreach f
5290: 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 66 69   [array names fi
52a0: 6c 65 73 5d 20 7b 0a 20 20 20 20 73 65 74 20 63  les] {.    set c
52b0: 6f 6e 74 65 6e 74 73 20 22 22 0a 20 20 20 20 63  ontents "".    c
52c0: 61 74 63 68 20 7b 0a 20 20 20 20 20 20 73 65 74  atch {.      set
52d0: 20 66 64 20 5b 6f 70 65 6e 20 24 66 5d 0a 20 20   fd [open $f].  
52e0: 20 20 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 73      set contents
52f0: 20 5b 72 65 61 64 20 24 66 64 5d 0a 20 20 20 20   [read $fd].    
5300: 20 20 63 6c 6f 73 65 20 24 66 64 0a 20 20 20 20    close $fd.    
5310: 7d 0a 20 20 20 20 73 65 74 20 63 6f 6e 74 65 6e  }.    set conten
5320: 74 73 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b  ts [string map {
5330: 27 20 27 27 7d 20 24 63 6f 6e 74 65 6e 74 73 5d  ' ''} $contents]
5340: 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20  .    append sql 
5350: 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b 64  "INSERT INTO ${d
5360: 61 74 61 62 61 73 65 7d 2e 66 69 6c 65 20 56 41  atabase}.file VA
5370: 4c 55 45 53 28 27 24 66 27 2c 20 27 24 63 6f 6e  LUES('$f', '$con
5380: 74 65 6e 74 73 27 29 3b 5c 6e 22 0a 20 20 7d 0a  tents');\n".  }.
5390: 0a 20 20 73 65 74 20 66 64 20 5b 6f 70 65 6e 20  .  set fd [open 
53a0: 24 66 69 6c 65 6e 61 6d 65 20 77 5d 0a 20 20 70  $filename w].  p
53b0: 75 74 73 20 24 66 64 20 22 42 45 47 49 4e 3b 20  uts $fd "BEGIN; 
53c0: 24 7b 74 62 6c 7d 24 7b 74 62 6c 32 7d 24 7b 74  ${tbl}${tbl2}${t
53d0: 62 6c 33 7d 24 7b 73 71 6c 7d 20 3b 20 43 4f 4d  bl3}${sql} ; COM
53e0: 4d 49 54 3b 22 0a 20 20 63 6c 6f 73 65 20 24 66  MIT;".  close $f
53f0: 64 0a 7d 0a 0a 23 20 43 6f 70 79 20 66 69 6c 65  d.}..# Copy file
5400: 20 24 66 72 6f 6d 20 69 6e 74 6f 20 24 74 6f 2e   $from into $to.
5410: 20 54 68 69 73 20 69 73 20 75 73 65 64 20 62 65   This is used be
5420: 63 61 75 73 65 20 73 6f 6d 65 20 76 65 72 73 69  cause some versi
5430: 6f 6e 73 20 6f 66 0a 23 20 54 43 4c 20 66 6f 72  ons of.# TCL for
5440: 20 77 69 6e 64 6f 77 73 20 28 6e 6f 74 61 62 6c   windows (notabl
5450: 79 20 74 68 65 20 38 2e 34 2e 31 20 62 69 6e 61  y the 8.4.1 bina
5460: 72 79 20 70 61 63 6b 61 67 65 20 73 68 69 70 70  ry package shipp
5470: 65 64 20 77 69 74 68 20 74 68 65 0a 23 20 63 75  ed with the.# cu
5480: 72 72 65 6e 74 20 6d 69 6e 67 77 20 72 65 6c 65  rrent mingw rele
5490: 61 73 65 29 20 68 61 76 65 20 61 20 62 72 6f 6b  ase) have a brok
54a0: 65 6e 20 22 66 69 6c 65 20 63 6f 70 79 22 20 63  en "file copy" c
54b0: 6f 6d 6d 61 6e 64 2e 0a 23 0a 70 72 6f 63 20 63  ommand..#.proc c
54c0: 6f 70 79 5f 66 69 6c 65 20 7b 66 72 6f 6d 20 74  opy_file {from t
54d0: 6f 7d 20 7b 0a 20 20 69 66 20 7b 24 3a 3a 74 63  o} {.  if {$::tc
54e0: 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66  l_platform(platf
54f0: 6f 72 6d 29 3d 3d 22 75 6e 69 78 22 7d 20 7b 0a  orm)=="unix"} {.
5500: 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66      file copy -f
5510: 6f 72 63 65 20 24 66 72 6f 6d 20 24 74 6f 0a 20  orce $from $to. 
5520: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65   } else {.    se
5530: 74 20 66 20 5b 6f 70 65 6e 20 24 66 72 6f 6d 5d  t f [open $from]
5540: 0a 20 20 20 20 66 63 6f 6e 66 69 67 75 72 65 20  .    fconfigure 
5550: 24 66 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20  $f -translation 
5560: 62 69 6e 61 72 79 0a 20 20 20 20 73 65 74 20 74  binary.    set t
5570: 20 5b 6f 70 65 6e 20 24 74 6f 20 77 5d 0a 20 20   [open $to w].  
5580: 20 20 66 63 6f 6e 66 69 67 75 72 65 20 24 74 20    fconfigure $t 
5590: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e  -translation bin
55a0: 61 72 79 0a 20 20 20 20 70 75 74 73 20 2d 6e 6f  ary.    puts -no
55b0: 6e 65 77 6c 69 6e 65 20 24 74 20 5b 72 65 61 64  newline $t [read
55c0: 20 24 66 20 5b 66 69 6c 65 20 73 69 7a 65 20 24   $f [file size $
55d0: 66 72 6f 6d 5d 5d 0a 20 20 20 20 63 6c 6f 73 65  from]].    close
55e0: 20 24 74 0a 20 20 20 20 63 6c 6f 73 65 20 24 66   $t.    close $f
55f0: 0a 20 20 7d 0a 7d 0a 0a 23 20 49 66 20 74 68 65  .  }.}..# If the
5600: 20 6c 69 62 72 61 72 79 20 69 73 20 63 6f 6d 70   library is comp
5610: 69 6c 65 64 20 77 69 74 68 20 74 68 65 20 53 51  iled with the SQ
5620: 4c 49 54 45 5f 44 45 46 41 55 4c 54 5f 41 55 54  LITE_DEFAULT_AUT
5630: 4f 56 41 43 55 55 4d 20 6d 61 63 72 6f 20 73 65  OVACUUM macro se
5640: 74 0a 23 20 74 6f 20 6e 6f 6e 2d 7a 65 72 6f 2c  t.# to non-zero,
5650: 20 74 68 65 6e 20 73 65 74 20 74 68 65 20 67 6c   then set the gl
5660: 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 24 41  obal variable $A
5670: 55 54 4f 56 41 43 55 55 4d 20 74 6f 20 31 2e 0a  UTOVACUUM to 1..
5680: 73 65 74 20 41 55 54 4f 56 41 43 55 55 4d 20 24  set AUTOVACUUM $
5690: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 64  sqlite_options(d
56a0: 65 66 61 75 6c 74 5f 61 75 74 6f 76 61 63 75 75  efault_autovacuu
56b0: 6d 29 0a                                         m).