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

Artifact 446b88283b12efb12691479a403cde15d64fbb82:


0000: 23 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20  # Copyright (c) 
0010: 31 39 39 39 2c 20 32 30 30 30 20 44 2e 20 52 69  1999, 2000 D. Ri
0020: 63 68 61 72 64 20 48 69 70 70 0a 23 0a 23 20 54  chard Hipp.#.# T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66  his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f  ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75  u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 23 20 6d  te it and/or.# m
0070: 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74  odify it under t
0080: 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20  he terms of the 
0090: 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c  GNU General Publ
00a0: 69 63 0a 23 20 4c 69 63 65 6e 73 65 20 61 73 20  ic.# License as 
00b0: 70 75 62 6c 69 73 68 65 64 20 62 79 20 74 68 65  published by the
00c0: 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46   Free Software F
00d0: 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74 68 65  oundation; eithe
00e0: 72 0a 23 20 76 65 72 73 69 6f 6e 20 32 20 6f 66  r.# version 2 of
00f0: 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72   the License, or
0100: 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e   (at your option
0110: 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73  ) any later vers
0120: 69 6f 6e 2e 0a 23 0a 23 20 54 68 69 73 20 70 72  ion..#.# This pr
0130: 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62  ogram is distrib
0140: 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65  uted in the hope
0150: 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65   that it will be
0160: 20 75 73 65 66 75 6c 2c 0a 23 20 62 75 74 20 57   useful,.# but W
0170: 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41  ITHOUT ANY WARRA
0180: 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65  NTY; without eve
0190: 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61  n the implied wa
01a0: 72 72 61 6e 74 79 20 6f 66 0a 23 20 4d 45 52 43  rranty of.# MERC
01b0: 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46  HANTABILITY or F
01c0: 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52  ITNESS FOR A PAR
01d0: 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e  TICULAR PURPOSE.
01e0: 20 20 53 65 65 20 74 68 65 20 47 4e 55 0a 23 20    See the GNU.# 
01f0: 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c  General Public L
0200: 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20  icense for more 
0210: 64 65 74 61 69 6c 73 2e 0a 23 20 0a 23 20 59 6f  details..# .# Yo
0220: 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65  u should have re
0230: 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66  ceived a copy of
0240: 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c   the GNU General
0250: 20 50 75 62 6c 69 63 0a 23 20 4c 69 63 65 6e 73   Public.# Licens
0260: 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69  e along with thi
0270: 73 20 6c 69 62 72 61 72 79 3b 20 69 66 20 6e 6f  s library; if no
0280: 74 2c 20 77 72 69 74 65 20 74 6f 20 74 68 65 0a  t, write to the.
0290: 23 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20  # Free Software 
02a0: 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e  Foundation, Inc.
02b0: 2c 20 35 39 20 54 65 6d 70 6c 65 20 50 6c 61 63  , 59 Temple Plac
02c0: 65 20 2d 20 53 75 69 74 65 20 33 33 30 2c 0a 23  e - Suite 330,.#
02d0: 20 42 6f 73 74 6f 6e 2c 20 4d 41 20 20 30 32 31   Boston, MA  021
02e0: 31 31 2d 31 33 30 37 2c 20 55 53 41 2e 0a 23 0a  11-1307, USA..#.
02f0: 23 20 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74  # Author contact
0300: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 23 20   information:.# 
0310: 20 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a    drh@hwaci.com.
0320: 23 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68  #   http://www.h
0330: 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 23 0a  waci.com/drh/.#.
0340: 23 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  #***************
0350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0360: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0370: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0380: 2a 2a 2a 2a 2a 2a 2a 2a 0a 23 20 54 68 69 73 20  ********.# This 
0390: 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20  file implements 
03a0: 73 6f 6d 65 20 63 6f 6d 6d 6f 6e 20 54 43 4c 20  some common TCL 
03b0: 72 6f 75 74 69 6e 65 73 20 75 73 65 64 20 66 6f  routines used fo
03c0: 72 20 72 65 67 72 65 73 73 69 6f 6e 0a 23 20 74  r regression.# t
03d0: 65 73 74 69 6e 67 20 74 68 65 20 53 51 4c 69 74  esting the SQLit
03e0: 65 20 6c 69 62 72 61 72 79 0a 23 0a 23 20 24 49  e library.#.# $I
03f0: 64 3a 20 74 65 73 74 65 72 2e 74 63 6c 2c 76 20  d: tester.tcl,v 
0400: 31 2e 38 20 32 30 30 30 2f 31 32 2f 31 30 20 31  1.8 2000/12/10 1
0410: 38 3a 32 33 3a 35 32 20 64 72 68 20 45 78 70 20  8:23:52 drh Exp 
0420: 24 0a 0a 23 20 43 72 65 61 74 65 20 61 20 74 65  $..# Create a te
0430: 73 74 20 64 61 74 61 62 61 73 65 0a 23 0a 69 66  st database.#.if
0440: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
0450: 64 62 70 72 65 66 69 78 5d 7d 20 7b 0a 20 20 69  dbprefix]} {.  i
0460: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
0470: 65 6e 76 28 53 51 4c 49 54 45 5f 50 52 45 46 49  env(SQLITE_PREFI
0480: 58 29 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 64  X)]} {.    set d
0490: 62 70 72 65 66 69 78 20 24 65 6e 76 28 53 51 4c  bprefix $env(SQL
04a0: 49 54 45 5f 50 52 45 46 49 58 29 3a 0a 20 20 7d  ITE_PREFIX):.  }
04b0: 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20   else {.    set 
04c0: 64 62 70 72 65 66 69 78 20 22 67 64 62 6d 3a 22  dbprefix "gdbm:"
04d0: 0a 20 20 7d 0a 7d 0a 73 77 69 74 63 68 20 24 64  .  }.}.switch $d
04e0: 62 70 72 65 66 69 78 20 7b 0a 20 20 67 64 62 6d  bprefix {.  gdbm
04f0: 3a 20 7b 0a 20 20 20 66 69 6c 65 20 64 65 6c 65  : {.   file dele
0500: 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 64 62  te -force testdb
0510: 0a 20 20 20 66 69 6c 65 20 6d 6b 64 69 72 20 74  .   file mkdir t
0520: 65 73 74 64 62 0a 20 20 7d 0a 20 20 6d 65 6d 6f  estdb.  }.  memo
0530: 72 79 3a 20 7b 0a 20 20 20 23 20 64 6f 20 6e 6f  ry: {.   # do no
0540: 74 68 69 6e 67 0a 20 20 7d 0a 7d 0a 73 71 6c 69  thing.  }.}.sqli
0550: 74 65 20 64 62 20 24 7b 64 62 70 72 65 66 69 78  te db ${dbprefix
0560: 7d 74 65 73 74 64 62 0a 0a 23 20 41 62 6f 72 74  }testdb..# Abort
0570: 20 65 61 72 6c 79 20 69 66 20 74 68 69 73 20 73   early if this s
0580: 63 72 69 70 74 20 68 61 73 20 62 65 65 6e 20 72  cript has been r
0590: 75 6e 20 62 65 66 6f 72 65 2e 0a 23 0a 69 66 20  un before..#.if 
05a0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6e 54  {[info exists nT
05b0: 65 73 74 5d 7d 20 72 65 74 75 72 6e 0a 0a 23 20  est]} return..# 
05c0: 53 65 74 20 74 68 65 20 74 65 73 74 20 63 6f 75  Set the test cou
05d0: 6e 74 65 72 73 20 74 6f 20 7a 65 72 6f 0a 23 0a  nters to zero.#.
05e0: 73 65 74 20 6e 45 72 72 20 30 0a 73 65 74 20 6e  set nErr 0.set n
05f0: 54 65 73 74 20 30 0a 73 65 74 20 73 6b 69 70 5f  Test 0.set skip_
0600: 74 65 73 74 20 30 0a 0a 23 20 49 6e 76 6f 6b 65  test 0..# Invoke
0610: 20 74 68 65 20 64 6f 5f 74 65 73 74 20 70 72 6f   the do_test pro
0620: 63 65 64 75 72 65 20 74 6f 20 72 75 6e 20 61 20  cedure to run a 
0630: 73 69 6e 67 6c 65 20 74 65 73 74 20 0a 23 0a 70  single test .#.p
0640: 72 6f 63 20 64 6f 5f 74 65 73 74 20 7b 6e 61 6d  roc do_test {nam
0650: 65 20 63 6d 64 20 65 78 70 65 63 74 65 64 7d 20  e cmd expected} 
0660: 7b 0a 20 20 67 6c 6f 62 61 6c 20 61 72 67 76 20  {.  global argv 
0670: 6e 45 72 72 20 6e 54 65 73 74 20 73 6b 69 70 5f  nErr nTest skip_
0680: 74 65 73 74 0a 20 20 69 66 20 7b 24 73 6b 69 70  test.  if {$skip
0690: 5f 74 65 73 74 7d 20 7b 0a 20 20 20 20 73 65 74  _test} {.    set
06a0: 20 73 6b 69 70 5f 74 65 73 74 20 30 0a 20 20 20   skip_test 0.   
06b0: 20 72 65 74 75 72 6e 0a 20 20 7d 0a 20 20 69 66   return.  }.  if
06c0: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 76   {[llength $argv
06d0: 5d 3d 3d 30 7d 20 7b 20 0a 20 20 20 20 73 65 74  ]==0} { .    set
06e0: 20 67 6f 20 31 0a 20 20 7d 20 65 6c 73 65 20 7b   go 1.  } else {
06f0: 0a 20 20 20 20 73 65 74 20 67 6f 20 30 0a 20 20  .    set go 0.  
0700: 20 20 66 6f 72 65 61 63 68 20 70 61 74 74 65 72    foreach patter
0710: 6e 20 24 61 72 67 76 20 7b 0a 20 20 20 20 20 20  n $argv {.      
0720: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63  if {[string matc
0730: 68 20 24 70 61 74 74 65 72 6e 20 24 6e 61 6d 65  h $pattern $name
0740: 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74  ]} {.        set
0750: 20 67 6f 20 31 0a 20 20 20 20 20 20 20 20 62 72   go 1.        br
0760: 65 61 6b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  eak.      }.    
0770: 7d 0a 20 20 7d 0a 20 20 69 66 20 7b 21 24 67 6f  }.  }.  if {!$go
0780: 7d 20 72 65 74 75 72 6e 0a 20 20 69 6e 63 72 20  } return.  incr 
0790: 6e 54 65 73 74 0a 20 20 70 75 74 73 20 2d 6e 6f  nTest.  puts -no
07a0: 6e 65 77 6c 69 6e 65 20 24 3a 3a 64 62 70 72 65  newline $::dbpre
07b0: 66 69 78 24 6e 61 6d 65 2e 2e 2e 0a 20 20 66 6c  fix$name....  fl
07c0: 75 73 68 20 73 74 64 6f 75 74 0a 20 20 69 66 20  ush stdout.  if 
07d0: 7b 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c  {[catch {uplevel
07e0: 20 23 30 20 22 24 63 6d 64 3b 5c 6e 22 7d 20 72   #0 "$cmd;\n"} r
07f0: 65 73 75 6c 74 5d 7d 20 7b 0a 20 20 20 20 70 75  esult]} {.    pu
0800: 74 73 20 22 5c 6e 45 72 72 6f 72 3a 20 24 72 65  ts "\nError: $re
0810: 73 75 6c 74 22 0a 20 20 20 20 69 6e 63 72 20 6e  sult".    incr n
0820: 45 72 72 0a 20 20 7d 20 65 6c 73 65 69 66 20 7b  Err.  } elseif {
0830: 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 65 20  [string compare 
0840: 24 72 65 73 75 6c 74 20 24 65 78 70 65 63 74 65  $result $expecte
0850: 64 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22  d]} {.    puts "
0860: 5c 6e 45 78 70 65 63 74 65 64 3a 20 5c 5b 24 65  \nExpected: \[$e
0870: 78 70 65 63 74 65 64 5c 5d 5c 6e 20 20 20 20 20  xpected\]\n     
0880: 47 6f 74 3a 20 5c 5b 24 72 65 73 75 6c 74 5c 5d  Got: \[$result\]
0890: 22 0a 20 20 20 20 69 6e 63 72 20 6e 45 72 72 0a  ".    incr nErr.
08a0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70    } else {.    p
08b0: 75 74 73 20 22 20 4f 6b 22 0a 20 20 7d 0a 7d 0a  uts " Ok".  }.}.
08c0: 0a 23 20 53 6b 69 70 20 61 20 74 65 73 74 20 62  .# Skip a test b
08d0: 61 73 65 64 20 6f 6e 20 74 68 65 20 64 62 70 72  ased on the dbpr
08e0: 65 66 69 78 0a 23 0a 70 72 6f 63 20 73 6b 69 70  efix.#.proc skip
08f0: 69 66 20 7b 61 72 67 73 7d 20 7b 0a 20 20 66 6f  if {args} {.  fo
0900: 72 65 61 63 68 20 61 20 24 61 72 67 73 20 7b 0a  reach a $args {.
0910: 20 20 20 20 69 66 20 7b 24 3a 3a 64 62 70 72 65      if {$::dbpre
0920: 66 69 78 3d 3d 24 61 7d 20 7b 0a 20 20 20 20 20  fix==$a} {.     
0930: 20 73 65 74 20 3a 3a 73 6b 69 70 5f 74 65 73 74   set ::skip_test
0940: 20 31 0a 20 20 20 20 20 20 72 65 74 75 72 6e 0a   1.      return.
0950: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 52      }.  }.}..# R
0960: 75 6e 20 74 68 65 20 6e 65 78 74 20 74 65 73 74  un the next test
0970: 20 6f 6e 6c 79 20 69 66 20 74 68 65 20 64 62 70   only if the dbp
0980: 72 65 66 69 78 20 69 73 20 61 6d 6f 6e 67 20 74  refix is among t
0990: 68 65 20 6c 69 73 74 65 64 20 61 72 67 75 6d 65  he listed argume
09a0: 6e 74 73 0a 23 0a 70 72 6f 63 20 74 65 73 74 69  nts.#.proc testi
09b0: 66 20 7b 61 72 67 73 7d 20 7b 0a 20 20 66 6f 72  f {args} {.  for
09c0: 65 61 63 68 20 61 20 24 61 72 67 73 20 7b 0a 20  each a $args {. 
09d0: 20 20 20 69 66 20 7b 24 3a 3a 64 62 70 72 65 66     if {$::dbpref
09e0: 69 78 3d 3d 24 61 7d 20 7b 0a 20 20 20 20 20 20  ix==$a} {.      
09f0: 73 65 74 20 3a 3a 73 6b 69 70 5f 74 65 73 74 20  set ::skip_test 
0a00: 30 0a 20 20 20 20 20 20 72 65 74 75 72 6e 0a 20  0.      return. 
0a10: 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a     }.  }.  set :
0a20: 3a 73 6b 69 70 5f 74 65 73 74 20 31 0a 7d 0a 0a  :skip_test 1.}..
0a30: 23 20 54 68 65 20 70 72 6f 63 65 64 75 72 65 20  # The procedure 
0a40: 75 73 65 73 20 74 68 65 20 73 70 65 63 69 61 6c  uses the special
0a50: 20 22 2d 2d 6d 61 6c 6c 6f 63 2d 73 74 61 74 73   "--malloc-stats
0a60: 2d 2d 22 20 6d 61 63 72 6f 20 6f 66 20 53 51 4c  --" macro of SQL
0a70: 69 74 65 0a 23 20 28 77 68 69 63 68 20 69 73 20  ite.# (which is 
0a80: 6f 6e 6c 79 20 61 76 61 69 6c 61 62 6c 65 20 69  only available i
0a90: 66 20 53 51 4c 69 74 65 20 69 73 20 63 6f 6d 70  f SQLite is comp
0aa0: 69 6c 65 64 20 77 69 74 68 20 2d 44 4d 45 4d 4f  iled with -DMEMO
0ab0: 52 59 5f 44 45 42 55 47 3d 31 29 0a 23 20 74 6f  RY_DEBUG=1).# to
0ac0: 20 73 65 65 20 68 6f 77 20 6d 61 6e 79 20 6d 61   see how many ma
0ad0: 6c 6c 6f 63 28 29 73 20 68 61 76 65 20 6e 6f 74  lloc()s have not
0ae0: 20 62 65 65 6e 20 66 72 65 65 28 29 65 64 2e 20   been free()ed. 
0af0: 20 54 68 65 20 6e 75 6d 62 65 72 0a 23 20 6f 66   The number.# of
0b00: 20 73 75 72 70 6c 75 73 20 6d 61 6c 6c 6f 63 28   surplus malloc(
0b10: 29 73 20 69 73 20 73 74 6f 72 65 64 20 69 6e 20  )s is stored in 
0b20: 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61  the global varia
0b30: 62 6c 65 20 24 3a 3a 4c 65 61 6b 2e 0a 23 20 49  ble $::Leak..# I
0b40: 66 20 74 68 65 20 76 61 6c 75 65 20 69 6e 20 24  f the value in $
0b50: 3a 3a 4c 65 61 6b 20 67 72 6f 77 73 2c 20 69 74  ::Leak grows, it
0b60: 20 6d 61 79 20 6d 65 61 6e 20 74 68 65 72 65 20   may mean there 
0b70: 69 73 20 61 20 6d 65 6d 6f 72 79 20 6c 65 61 6b  is a memory leak
0b80: 0a 23 20 69 6e 20 74 68 65 20 6c 69 62 72 61 72  .# in the librar
0b90: 79 2e 0a 23 0a 70 72 6f 63 20 6d 65 6d 6c 65 61  y..#.proc memlea
0ba0: 6b 5f 63 68 65 63 6b 20 7b 7d 20 7b 0a 20 20 73  k_check {} {.  s
0bb0: 65 74 20 72 20 5b 65 78 65 63 73 71 6c 20 7b 2d  et r [execsql {-
0bc0: 2d 6d 61 6c 6c 6f 63 2d 73 74 61 74 73 2d 2d 7d  -malloc-stats--}
0bd0: 5d 0a 20 20 69 66 20 7b 24 72 3d 3d 22 22 7d 20  ].  if {$r==""} 
0be0: 72 65 74 75 72 6e 0a 20 20 73 65 74 20 3a 3a 4c  return.  set ::L
0bf0: 65 61 6b 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64  eak [expr {[lind
0c00: 65 78 20 24 72 20 30 5d 2d 5b 6c 69 6e 64 65 78  ex $r 0]-[lindex
0c10: 20 24 72 20 31 5d 7d 5d 0a 20 20 23 20 70 75 74   $r 1]}].  # put
0c20: 73 20 22 2a 2a 2a 20 24 3a 3a 4c 65 61 6b 20 6d  s "*** $::Leak m
0c30: 61 6c 6c 6f 63 73 20 68 61 76 65 20 6e 6f 74 20  allocs have not 
0c40: 62 65 65 6e 20 66 72 65 65 64 20 2a 2a 2a 22 0a  been freed ***".
0c50: 7d 0a 0a 23 20 52 75 6e 20 74 68 69 73 20 72 6f  }..# Run this ro
0c60: 75 74 69 6e 65 20 6c 61 73 74 0a 23 0a 70 72 6f  utine last.#.pro
0c70: 63 20 66 69 6e 69 73 68 5f 74 65 73 74 20 7b 7d  c finish_test {}
0c80: 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 6e 54 65 73   {.  global nTes
0c90: 74 20 6e 45 72 72 0a 20 20 6d 65 6d 6c 65 61 6b  t nErr.  memleak
0ca0: 5f 63 68 65 63 6b 0a 20 20 63 61 74 63 68 20 7b  _check.  catch {
0cb0: 64 62 20 63 6c 6f 73 65 7d 0a 20 20 70 75 74 73  db close}.  puts
0cc0: 20 22 24 6e 45 72 72 20 65 72 72 6f 72 73 20 6f   "$nErr errors o
0cd0: 75 74 20 6f 66 20 24 6e 54 65 73 74 20 74 65 73  ut of $nTest tes
0ce0: 74 73 22 0a 20 20 65 78 69 74 20 24 6e 45 72 72  ts".  exit $nErr
0cf0: 0a 7d 0a 0a 23 20 41 20 70 72 6f 63 65 64 75 72  .}..# A procedur
0d00: 65 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c  e to execute SQL
0d10: 0a 23 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 20  .#.proc execsql 
0d20: 7b 73 71 6c 7d 20 7b 0a 20 20 72 65 74 75 72 6e  {sql} {.  return
0d30: 20 5b 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a   [db eval $sql].
0d40: 7d 0a 0a 23 20 41 6e 6f 74 68 65 72 20 70 72 6f  }..# Another pro
0d50: 63 65 64 75 72 65 20 74 6f 20 65 78 65 63 75 74  cedure to execut
0d60: 65 20 53 51 4c 2e 20 20 54 68 69 73 20 6f 6e 65  e SQL.  This one
0d70: 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 66 69   includes the fi
0d80: 65 6c 64 0a 23 20 6e 61 6d 65 73 20 69 6e 20 74  eld.# names in t
0d90: 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74  he returned list
0da0: 2e 0a 23 0a 70 72 6f 63 20 65 78 65 63 73 71 6c  ..#.proc execsql
0db0: 32 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20  2 {sql} {.  set 
0dc0: 72 65 73 75 6c 74 20 7b 7d 0a 20 20 64 62 20 65  result {}.  db e
0dd0: 76 61 6c 20 24 73 71 6c 20 64 61 74 61 20 7b 0a  val $sql data {.
0de0: 20 20 20 20 66 6f 72 65 61 63 68 20 66 20 24 64      foreach f $d
0df0: 61 74 61 28 2a 29 20 7b 0a 20 20 20 20 20 20 6c  ata(*) {.      l
0e00: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 24 66  append result $f
0e10: 20 24 64 61 74 61 28 24 66 29 0a 20 20 20 20 7d   $data($f).    }
0e20: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72  .  }.  return $r
0e30: 65 73 75 6c 74 0a 7d 0a                          esult.}.