/ Hex Artifact Content
Login

Artifact bf07ff6666c97b3fb91732deba3d4e6373960259:


0000: 2f 2a 0a 2a 2a 20 32 30 30 31 20 53 65 70 74 65  /*.** 2001 Septe
0010: 6d 62 65 72 20 31 35 0a 2a 2a 0a 2a 2a 20 54 68  mber 15.**.** Th
0020: 65 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69  e author disclai
0030: 6d 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20  ms copyright to 
0040: 74 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65  this source code
0050: 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a  .  In place of.*
0060: 2a 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65  * a legal notice
0070: 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73  , here is a bles
0080: 73 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d  sing:.**.**    M
0090: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61  ay you do good a
00a0: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20  nd not evil..** 
00b0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00c0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00d0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00e0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20  give others..** 
00f0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65     May you share
0100: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74   freely, never t
0110: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20  aking more than 
0120: 79 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a  you give..**.***
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 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 2a 2a 2a 2a 0a 2a 2a 20 43 6f 64 65 20 66  ******.** Code f
0180: 6f 72 20 74 65 73 74 69 6e 67 20 74 68 65 20 70  or testing the p
0190: 72 69 6e 74 66 28 29 20 69 6e 74 65 72 66 61 63  rintf() interfac
01a0: 65 20 74 6f 20 53 51 4c 69 74 65 2e 20 20 54 68  e to SQLite.  Th
01b0: 69 73 20 63 6f 64 65 0a 2a 2a 20 69 73 20 6e 6f  is code.** is no
01c0: 74 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 74 68  t included in th
01d0: 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79  e SQLite library
01e0: 2e 20 20 49 74 20 69 73 20 75 73 65 64 20 66 6f  .  It is used fo
01f0: 72 20 61 75 74 6f 6d 61 74 65 64 0a 2a 2a 20 74  r automated.** t
0200: 65 73 74 69 6e 67 20 6f 66 20 74 68 65 20 53 51  esting of the SQ
0210: 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 0a 2a 2a  Lite library..**
0220: 0a 2a 2a 20 24 49 64 3a 20 74 65 73 74 31 2e 63  .** $Id: test1.c
0230: 2c 76 20 31 2e 33 35 20 32 30 30 34 2f 30 32 2f  ,v 1.35 2004/02/
0240: 32 31 20 31 39 3a 34 31 3a 30 34 20 64 72 68 20  21 19:41:04 drh 
0250: 45 78 70 20 24 0a 2a 2f 0a 23 69 6e 63 6c 75 64  Exp $.*/.#includ
0260: 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a  e "sqliteInt.h".
0270: 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e 68 22  #include "tcl.h"
0280: 0a 23 69 6e 63 6c 75 64 65 20 22 6f 73 2e 68 22  .#include "os.h"
0290: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69  .#include <stdli
02a0: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73  b.h>.#include <s
02b0: 74 72 69 6e 67 2e 68 3e 0a 0a 23 69 66 20 4f 53  tring.h>..#if OS
02c0: 5f 57 49 4e 0a 23 20 64 65 66 69 6e 65 20 50 54  _WIN.# define PT
02d0: 52 5f 46 4d 54 20 22 25 78 22 0a 23 65 6c 73 65  R_FMT "%x".#else
02e0: 0a 23 20 64 65 66 69 6e 65 20 50 54 52 5f 46 4d  .# define PTR_FM
02f0: 54 20 22 25 70 22 0a 23 65 6e 64 69 66 0a 0a 2f  T "%p".#endif../
0300: 2a 0a 2a 2a 20 44 65 63 6f 64 65 20 61 20 70 6f  *.** Decode a po
0310: 69 6e 74 65 72 20 74 6f 20 61 6e 20 73 71 6c 69  inter to an sqli
0320: 74 65 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74  te object..*/.st
0330: 61 74 69 63 20 69 6e 74 20 67 65 74 44 62 50 6f  atic int getDbPo
0340: 69 6e 74 65 72 28 54 63 6c 5f 49 6e 74 65 72 70  inter(Tcl_Interp
0350: 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20   *interp, const 
0360: 63 68 61 72 20 2a 7a 41 2c 20 73 71 6c 69 74 65  char *zA, sqlite
0370: 20 2a 2a 70 70 44 62 29 7b 0a 20 20 69 66 28 20   **ppDb){.  if( 
0380: 73 73 63 61 6e 66 28 7a 41 2c 20 50 54 52 5f 46  sscanf(zA, PTR_F
0390: 4d 54 2c 20 28 76 6f 69 64 2a 2a 29 70 70 44 62  MT, (void**)ppDb
03a0: 29 21 3d 31 20 26 26 20 0a 20 20 20 20 20 20 28  )!=1 && .      (
03b0: 7a 41 5b 30 5d 21 3d 27 30 27 20 7c 7c 20 7a 41  zA[0]!='0' || zA
03c0: 5b 31 5d 21 3d 27 78 27 20 7c 7c 20 73 73 63 61  [1]!='x' || ssca
03d0: 6e 66 28 26 7a 41 5b 32 5d 2c 20 50 54 52 5f 46  nf(&zA[2], PTR_F
03e0: 4d 54 2c 20 28 76 6f 69 64 2a 2a 29 70 70 44 62  MT, (void**)ppDb
03f0: 29 21 3d 31 29 0a 20 20 29 7b 0a 20 20 20 20 54  )!=1).  ){.    T
0400: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
0410: 69 6e 74 65 72 70 2c 20 22 5c 22 22 2c 20 7a 41  interp, "\"", zA
0420: 2c 20 22 5c 22 20 69 73 20 6e 6f 74 20 61 20 76  , "\" is not a v
0430: 61 6c 69 64 20 70 6f 69 6e 74 65 72 20 76 61 6c  alid pointer val
0440: 75 65 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  ue", 0);.    ret
0450: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
0460: 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f   }.  return TCL_
0470: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 63  OK;.}../*.** Dec
0480: 6f 64 65 20 61 20 70 6f 69 6e 74 65 72 20 74 6f  ode a pointer to
0490: 20 61 6e 20 73 71 6c 69 74 65 5f 76 6d 20 6f 62   an sqlite_vm ob
04a0: 6a 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ject..*/.static 
04b0: 69 6e 74 20 67 65 74 56 6d 50 6f 69 6e 74 65 72  int getVmPointer
04c0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
04d0: 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  erp, const char 
04e0: 2a 7a 41 72 67 2c 20 73 71 6c 69 74 65 5f 76 6d  *zArg, sqlite_vm
04f0: 20 2a 2a 70 70 56 6d 29 7b 0a 20 20 69 66 28 20   **ppVm){.  if( 
0500: 73 73 63 61 6e 66 28 7a 41 72 67 2c 20 50 54 52  sscanf(zArg, PTR
0510: 5f 46 4d 54 2c 20 28 76 6f 69 64 2a 2a 29 70 70  _FMT, (void**)pp
0520: 56 6d 29 21 3d 31 20 29 7b 0a 20 20 20 20 54 63  Vm)!=1 ){.    Tc
0530: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
0540: 6e 74 65 72 70 2c 20 22 5c 22 22 2c 20 7a 41 72  nterp, "\"", zAr
0550: 67 2c 20 22 5c 22 20 69 73 20 6e 6f 74 20 61 20  g, "\" is not a 
0560: 76 61 6c 69 64 20 70 6f 69 6e 74 65 72 20 76 61  valid pointer va
0570: 6c 75 65 22 2c 20 30 29 3b 0a 20 20 20 20 72 65  lue", 0);.    re
0580: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
0590: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c    }.  return TCL
05a0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 65  _OK;.}../*.** Ge
05b0: 6e 65 72 61 74 65 20 61 20 74 65 78 74 20 72 65  nerate a text re
05c0: 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20  presentation of 
05d0: 61 20 70 6f 69 6e 74 65 72 20 74 68 61 74 20 63  a pointer that c
05e0: 61 6e 20 62 65 20 75 6e 64 65 72 73 74 6f 6f 64  an be understood
05f0: 0a 2a 2a 20 62 79 20 74 68 65 20 67 65 74 44 62  .** by the getDb
0600: 50 6f 69 6e 74 65 72 20 61 6e 64 20 67 65 74 56  Pointer and getV
0610: 6d 50 6f 69 6e 74 65 72 20 72 6f 75 74 69 6e 65  mPointer routine
0620: 73 20 61 62 6f 76 65 2e 0a 2a 2a 0a 2a 2a 20 54  s above..**.** T
0630: 68 65 20 70 72 6f 62 6c 65 6d 20 69 73 2c 20 6f  he problem is, o
0640: 6e 20 73 6f 6d 65 20 6d 61 63 68 69 6e 65 73 20  n some machines 
0650: 28 53 6f 6c 61 72 69 73 29 20 69 66 20 79 6f 75  (Solaris) if you
0660: 20 64 6f 20 61 20 70 72 69 6e 74 66 20 77 69 74   do a printf wit
0670: 68 0a 2a 2a 20 22 25 70 22 20 79 6f 75 20 63 61  h.** "%p" you ca
0680: 6e 6e 6f 74 20 74 75 72 6e 20 61 72 6f 75 6e 64  nnot turn around
0690: 20 61 6e 64 20 64 6f 20 61 20 73 63 61 6e 66 20   and do a scanf 
06a0: 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 22 25  with the same "%
06b0: 70 22 20 61 6e 64 0a 2a 2a 20 67 65 74 20 79 6f  p" and.** get yo
06c0: 75 72 20 70 6f 69 6e 74 65 72 20 62 61 63 6b 2e  ur pointer back.
06d0: 20 20 59 6f 75 20 68 61 76 65 20 74 6f 20 70 72    You have to pr
06e0: 65 70 65 6e 64 20 61 20 22 30 78 22 20 62 65 66  epend a "0x" bef
06f0: 6f 72 65 20 69 74 20 77 69 6c 6c 0a 2a 2a 20 77  ore it will.** w
0700: 6f 72 6b 2e 20 20 4f 72 20 61 74 20 6c 65 61 73  ork.  Or at leas
0710: 74 20 74 68 61 74 20 69 73 20 77 68 61 74 20 69  t that is what i
0720: 73 20 72 65 70 6f 72 74 65 64 20 74 6f 20 6d 65  s reported to me
0730: 20 28 64 72 68 29 2e 20 20 42 75 74 20 74 68 69   (drh).  But thi
0740: 73 0a 2a 2a 20 62 65 68 61 76 69 6f 72 20 76 61  s.** behavior va
0750: 72 69 65 73 20 66 72 6f 6d 20 6d 61 63 68 69 6e  ries from machin
0760: 65 20 74 6f 20 6d 61 63 68 69 6e 65 2e 20 20 54  e to machine.  T
0770: 68 65 20 73 6f 6c 75 74 69 6f 6e 20 75 73 65 64  he solution used
0780: 20 68 65 72 20 69 73 0a 2a 2a 20 74 6f 20 74 65   her is.** to te
0790: 73 74 20 74 68 65 20 73 74 72 69 6e 67 20 72 69  st the string ri
07a0: 67 68 74 20 61 66 74 65 72 20 69 74 20 69 73 20  ght after it is 
07b0: 67 65 6e 65 72 61 74 65 64 20 74 6f 20 73 65 65  generated to see
07c0: 20 69 66 20 69 74 20 63 61 6e 20 62 65 0a 2a 2a   if it can be.**
07d0: 20 75 6e 64 65 72 73 74 6f 6f 64 20 62 79 20 73   understood by s
07e0: 63 61 6e 66 2c 20 61 6e 64 20 69 66 20 6e 6f 74  canf, and if not
07f0: 2c 20 74 72 79 20 70 72 65 70 65 6e 64 69 6e 67  , try prepending
0800: 20 61 6e 20 22 30 78 22 20 74 6f 20 73 65 65 20   an "0x" to see 
0810: 69 66 0a 2a 2a 20 74 68 61 74 20 68 65 6c 70 73  if.** that helps
0820: 2e 20 20 49 66 20 6e 6f 74 68 69 6e 67 20 77 6f  .  If nothing wo
0830: 72 6b 73 2c 20 61 20 66 61 74 61 6c 20 65 72 72  rks, a fatal err
0840: 6f 72 20 69 73 20 67 65 6e 65 72 61 74 65 64 2e  or is generated.
0850: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6d  .*/.static int m
0860: 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 54 63  akePointerStr(Tc
0870: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
0880: 2c 20 63 68 61 72 20 2a 7a 50 74 72 2c 20 76 6f  , char *zPtr, vo
0890: 69 64 20 2a 70 29 7b 0a 20 20 76 6f 69 64 20 2a  id *p){.  void *
08a0: 70 32 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a 50  p2;.  sprintf(zP
08b0: 74 72 2c 20 50 54 52 5f 46 4d 54 2c 20 70 29 3b  tr, PTR_FMT, p);
08c0: 0a 20 20 69 66 28 20 73 73 63 61 6e 66 28 7a 50  .  if( sscanf(zP
08d0: 74 72 2c 20 50 54 52 5f 46 4d 54 2c 20 26 70 32  tr, PTR_FMT, &p2
08e0: 29 21 3d 31 20 7c 7c 20 70 32 21 3d 70 20 29 7b  )!=1 || p2!=p ){
08f0: 0a 20 20 20 20 73 70 72 69 6e 74 66 28 7a 50 74  .    sprintf(zPt
0900: 72 2c 20 22 30 78 22 20 50 54 52 5f 46 4d 54 2c  r, "0x" PTR_FMT,
0910: 20 70 29 3b 0a 20 20 20 20 69 66 28 20 73 73 63   p);.    if( ssc
0920: 61 6e 66 28 7a 50 74 72 2c 20 50 54 52 5f 46 4d  anf(zPtr, PTR_FM
0930: 54 2c 20 26 70 32 29 21 3d 31 20 7c 7c 20 70 32  T, &p2)!=1 || p2
0940: 21 3d 70 20 29 7b 0a 20 20 20 20 20 20 54 63 6c  !=p ){.      Tcl
0950: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
0960: 74 65 72 70 2c 20 22 75 6e 61 62 6c 65 20 74 6f  terp, "unable to
0970: 20 63 6f 6e 76 65 72 74 20 61 20 70 6f 69 6e 74   convert a point
0980: 65 72 20 74 6f 20 61 20 73 74 72 69 6e 67 20 22  er to a string "
0990: 0a 20 20 20 20 20 20 20 20 20 22 69 6e 20 74 68  .         "in th
09a0: 65 20 66 69 6c 65 20 22 20 5f 5f 46 49 4c 45 5f  e file " __FILE_
09b0: 5f 20 22 20 69 6e 20 66 75 6e 63 74 69 6f 6e 20  _ " in function 
09c0: 6d 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 29  makePointerStr()
09d0: 2e 20 20 50 6c 65 61 73 65 20 22 0a 20 20 20 20  .  Please ".    
09e0: 20 20 20 20 20 22 72 65 70 6f 72 74 20 74 68 69       "report thi
09f0: 73 20 70 72 6f 62 6c 65 6d 20 74 6f 20 74 68 65  s problem to the
0a00: 20 53 51 4c 69 74 65 20 6d 61 69 6c 69 6e 67 20   SQLite mailing 
0a10: 6c 69 73 74 20 6f 72 20 61 73 20 61 20 6e 65 77  list or as a new
0a20: 20 62 75 74 20 22 0a 20 20 20 20 20 20 20 20 20   but ".         
0a30: 22 72 65 70 6f 72 74 2e 20 20 50 6c 65 61 73 65  "report.  Please
0a40: 20 70 72 6f 76 69 64 65 20 64 65 74 61 69 6c 65   provide detaile
0a50: 64 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62  d information ab
0a60: 6f 75 74 20 68 6f 77 20 79 6f 75 20 63 6f 6d 70  out how you comp
0a70: 69 6c 65 64 20 22 0a 20 20 20 20 20 20 20 20 20  iled ".         
0a80: 22 53 51 4c 69 74 65 20 61 6e 64 20 77 68 61 74  "SQLite and what
0a90: 20 63 6f 6d 70 75 74 65 72 20 79 6f 75 20 61 72   computer you ar
0aa0: 65 20 72 75 6e 6e 69 6e 67 20 6f 6e 2e 22 2c 20  e running on.", 
0ab0: 30 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  0);.      return
0ac0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
0ad0: 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54  }.  }.  return T
0ae0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  CL_OK;.}../*.** 
0af0: 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 5f  Usage:   sqlite_
0b00: 6f 70 65 6e 20 66 69 6c 65 6e 61 6d 65 0a 2a 2a  open filename.**
0b10: 0a 2a 2a 20 52 65 74 75 72 6e 73 3a 20 20 54 68  .** Returns:  Th
0b20: 65 20 6e 61 6d 65 20 6f 66 20 61 6e 20 6f 70 65  e name of an ope
0b30: 6e 20 64 61 74 61 62 61 73 65 2e 0a 2a 2f 0a 73  n database..*/.s
0b40: 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65  tatic int sqlite
0b50: 5f 74 65 73 74 5f 6f 70 65 6e 28 0a 20 20 76 6f  _test_open(.  vo
0b60: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54  id *NotUsed,.  T
0b70: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
0b80: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c  p,    /* The TCL
0b90: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61   interpreter tha
0ba0: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63  t invoked this c
0bb0: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20  ommand */.  int 
0bc0: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20  argc,           
0bd0: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
0be0: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63  arguments */.  c
0bf0: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20  har **argv      
0c00: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66        /* Text of
0c10: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a   each argument *
0c20: 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64  /.){.  sqlite *d
0c30: 62 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 72 20  b;.  char *zErr 
0c40: 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 66  = 0;.  char zBuf
0c50: 5b 31 30 30 5d 3b 0a 20 20 69 66 28 20 61 72 67  [100];.  if( arg
0c60: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=2 ){.    Tcl_
0c70: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
0c80: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
0c90: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
0ca0: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20  ", argv[0],.    
0cb0: 20 20 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22     " FILENAME\""
0cc0: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  , 0);.    return
0cd0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
0ce0: 20 20 64 62 20 3d 20 73 71 6c 69 74 65 5f 6f 70    db = sqlite_op
0cf0: 65 6e 28 61 72 67 76 5b 31 5d 2c 20 30 36 36 36  en(argv[1], 0666
0d00: 2c 20 26 7a 45 72 72 29 3b 0a 20 20 69 66 28 20  , &zErr);.  if( 
0d10: 64 62 3d 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c  db==0 ){.    Tcl
0d20: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
0d30: 74 65 72 70 2c 20 7a 45 72 72 2c 20 30 29 3b 0a  terp, zErr, 0);.
0d40: 20 20 20 20 66 72 65 65 28 7a 45 72 72 29 3b 0a      free(zErr);.
0d50: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
0d60: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  RROR;.  }.  if( 
0d70: 6d 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 69  makePointerStr(i
0d80: 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 64 62 29  nterp, zBuf, db)
0d90: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52   ) return TCL_ER
0da0: 52 4f 52 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e  ROR;.  Tcl_Appen
0db0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
0dc0: 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75  zBuf, 0);.  retu
0dd0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a  rn TCL_OK;.}../*
0de0: 0a 2a 2a 20 54 68 65 20 63 61 6c 6c 62 61 63 6b  .** The callback
0df0: 20 72 6f 75 74 69 6e 65 20 66 6f 72 20 73 71 6c   routine for sql
0e00: 69 74 65 5f 65 78 65 63 5f 70 72 69 6e 74 66 28  ite_exec_printf(
0e10: 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  )..*/.static int
0e20: 20 65 78 65 63 5f 70 72 69 6e 74 66 5f 63 62 28   exec_printf_cb(
0e30: 76 6f 69 64 20 2a 70 41 72 67 2c 20 69 6e 74 20  void *pArg, int 
0e40: 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72 67  argc, char **arg
0e50: 76 2c 20 63 68 61 72 20 2a 2a 6e 61 6d 65 29 7b  v, char **name){
0e60: 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a  .  Tcl_DString *
0e70: 73 74 72 20 3d 20 28 54 63 6c 5f 44 53 74 72 69  str = (Tcl_DStri
0e80: 6e 67 2a 29 70 41 72 67 3b 0a 20 20 69 6e 74 20  ng*)pArg;.  int 
0e90: 69 3b 0a 0a 20 20 69 66 28 20 54 63 6c 5f 44 53  i;..  if( Tcl_DS
0ea0: 74 72 69 6e 67 4c 65 6e 67 74 68 28 73 74 72 29  tringLength(str)
0eb0: 3d 3d 30 20 29 7b 0a 20 20 20 20 66 6f 72 28 69  ==0 ){.    for(i
0ec0: 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29  =0; i<argc; i++)
0ed0: 7b 0a 20 20 20 20 20 20 54 63 6c 5f 44 53 74 72  {.      Tcl_DStr
0ee0: 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ingAppendElement
0ef0: 28 73 74 72 2c 20 6e 61 6d 65 5b 69 5d 20 3f 20  (str, name[i] ? 
0f00: 6e 61 6d 65 5b 69 5d 20 3a 20 22 4e 55 4c 4c 22  name[i] : "NULL"
0f10: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 66  );.    }.  }.  f
0f20: 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20  or(i=0; i<argc; 
0f30: 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 44 53  i++){.    Tcl_DS
0f40: 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d 65  tringAppendEleme
0f50: 6e 74 28 73 74 72 2c 20 61 72 67 76 5b 69 5d 20  nt(str, argv[i] 
0f60: 3f 20 61 72 67 76 5b 69 5d 20 3a 20 22 4e 55 4c  ? argv[i] : "NUL
0f70: 4c 22 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72  L");.  }.  retur
0f80: 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73  n 0;.}../*.** Us
0f90: 61 67 65 3a 20 20 73 71 6c 69 74 65 5f 65 78 65  age:  sqlite_exe
0fa0: 63 5f 70 72 69 6e 74 66 20 20 44 42 20 20 46 4f  c_printf  DB  FO
0fb0: 52 4d 41 54 20 20 53 54 52 49 4e 47 0a 2a 2a 0a  RMAT  STRING.**.
0fc0: 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20 73 71  ** Invoke the sq
0fd0: 6c 69 74 65 5f 65 78 65 63 5f 70 72 69 6e 74 66  lite_exec_printf
0fe0: 28 29 20 69 6e 74 65 72 66 61 63 65 20 75 73 69  () interface usi
0ff0: 6e 67 20 74 68 65 20 6f 70 65 6e 20 64 61 74 61  ng the open data
1000: 62 61 73 65 0a 2a 2a 20 44 42 2e 20 20 54 68 65  base.** DB.  The
1010: 20 53 51 4c 20 69 73 20 74 68 65 20 73 74 72 69   SQL is the stri
1020: 6e 67 20 46 4f 52 4d 41 54 2e 20 20 54 68 65 20  ng FORMAT.  The 
1030: 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 73 68  format string sh
1040: 6f 75 6c 64 20 63 6f 6e 74 61 69 6e 0a 2a 2a 20  ould contain.** 
1050: 6f 6e 65 20 25 73 20 6f 72 20 25 71 2e 20 20 53  one %s or %q.  S
1060: 54 52 49 4e 47 20 69 73 20 74 68 65 20 76 61 6c  TRING is the val
1070: 75 65 20 69 6e 73 65 72 74 65 64 20 69 6e 74 6f  ue inserted into
1080: 20 25 73 20 6f 72 20 25 71 2e 0a 2a 2f 0a 73 74   %s or %q..*/.st
1090: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 78  atic int test_ex
10a0: 65 63 5f 70 72 69 6e 74 66 28 0a 20 20 76 6f 69  ec_printf(.  voi
10b0: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63  d *NotUsed,.  Tc
10c0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
10d0: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20  ,    /* The TCL 
10e0: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74  interpreter that
10f0: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f   invoked this co
1100: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61  mmand */.  int a
1110: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20  rgc,            
1120: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61    /* Number of a
1130: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68  rguments */.  ch
1140: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20  ar **argv       
1150: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20       /* Text of 
1160: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f  each argument */
1170: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62  .){.  sqlite *db
1180: 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20  ;.  Tcl_DString 
1190: 73 74 72 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20  str;.  int rc;. 
11a0: 20 63 68 61 72 20 2a 7a 45 72 72 20 3d 20 30 3b   char *zErr = 0;
11b0: 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33 30 5d  .  char zBuf[30]
11c0: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 34 20  ;.  if( argc!=4 
11d0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  ){.    Tcl_Appen
11e0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
11f0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  "wrong # args: s
1200: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72  hould be \"", ar
1210: 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22  gv[0], .       "
1220: 20 44 42 20 46 4f 52 4d 41 54 20 53 54 52 49 4e   DB FORMAT STRIN
1230: 47 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75  G", 0);.    retu
1240: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
1250: 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69  }.  if( getDbPoi
1260: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67  nter(interp, arg
1270: 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74  v[1], &db) ) ret
1280: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
1290: 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74   Tcl_DStringInit
12a0: 28 26 73 74 72 29 3b 0a 20 20 72 63 20 3d 20 73  (&str);.  rc = s
12b0: 71 6c 69 74 65 5f 65 78 65 63 5f 70 72 69 6e 74  qlite_exec_print
12c0: 66 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c 20 65  f(db, argv[2], e
12d0: 78 65 63 5f 70 72 69 6e 74 66 5f 63 62 2c 20 26  xec_printf_cb, &
12e0: 73 74 72 2c 20 26 7a 45 72 72 2c 20 61 72 67 76  str, &zErr, argv
12f0: 5b 33 5d 29 3b 0a 20 20 73 70 72 69 6e 74 66 28  [3]);.  sprintf(
1300: 7a 42 75 66 2c 20 22 25 64 22 2c 20 72 63 29 3b  zBuf, "%d", rc);
1310: 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65  .  Tcl_AppendEle
1320: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a 42 75  ment(interp, zBu
1330: 66 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64  f);.  Tcl_Append
1340: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20  Element(interp, 
1350: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 3f 20  rc==SQLITE_OK ? 
1360: 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 65  Tcl_DStringValue
1370: 28 26 73 74 72 29 20 3a 20 7a 45 72 72 29 3b 0a  (&str) : zErr);.
1380: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65    Tcl_DStringFre
1390: 65 28 26 73 74 72 29 3b 0a 20 20 69 66 28 20 7a  e(&str);.  if( z
13a0: 45 72 72 20 29 20 66 72 65 65 28 7a 45 72 72 29  Err ) free(zErr)
13b0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f  ;.  return TCL_O
13c0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67  K;.}../*.** Usag
13d0: 65 3a 20 20 73 71 6c 69 74 65 5f 6d 70 72 69 6e  e:  sqlite_mprin
13e0: 74 66 5f 7a 5f 74 65 73 74 20 20 53 45 50 41 52  tf_z_test  SEPAR
13f0: 41 54 4f 52 20 20 41 52 47 30 20 20 41 52 47 31  ATOR  ARG0  ARG1
1400: 20 2e 2e 2e 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20   ....**.** Test 
1410: 74 68 65 20 25 7a 20 66 6f 72 6d 61 74 20 6f 66  the %z format of
1420: 20 6d 70 72 69 6e 74 66 28 29 2e 20 20 55 73 65   mprintf().  Use
1430: 20 6d 75 6c 74 69 70 6c 65 20 6d 70 72 69 6e 74   multiple mprint
1440: 66 28 29 20 63 61 6c 6c 73 20 74 6f 20 0a 2a 2a  f() calls to .**
1450: 20 63 6f 6e 63 61 74 65 6e 61 74 65 20 61 72 67   concatenate arg
1460: 30 20 74 68 72 6f 75 67 68 20 61 72 67 6e 20 75  0 through argn u
1470: 73 69 6e 67 20 73 65 70 61 72 61 74 6f 72 20 61  sing separator a
1480: 73 20 74 68 65 20 73 65 70 61 72 61 74 6f 72 2e  s the separator.
1490: 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 72  .** Return the r
14a0: 65 73 75 6c 74 2e 0a 2a 2f 0a 73 74 61 74 69 63  esult..*/.static
14b0: 20 69 6e 74 20 74 65 73 74 5f 6d 70 72 69 6e 74   int test_mprint
14c0: 66 5f 7a 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74  f_z(.  void *Not
14d0: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65  Used,.  Tcl_Inte
14e0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f  rp *interp,    /
14f0: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70  * The TCL interp
1500: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b  reter that invok
1510: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20  ed this command 
1520: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20  */.  int argc,  
1530: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
1540: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e  umber of argumen
1550: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61  ts */.  char **a
1560: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f  rgv            /
1570: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61  * Text of each a
1580: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20  rgument */.){.  
1590: 63 68 61 72 20 2a 7a 52 65 73 75 6c 74 20 3d 20  char *zResult = 
15a0: 30 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 66  0;.  int i;..  f
15b0: 6f 72 28 69 3d 32 3b 20 69 3c 61 72 67 63 3b 20  or(i=2; i<argc; 
15c0: 69 2b 2b 29 7b 0a 20 20 20 20 7a 52 65 73 75 6c  i++){.    zResul
15d0: 74 20 3d 20 73 71 6c 69 74 65 4d 50 72 69 6e 74  t = sqliteMPrint
15e0: 66 28 22 25 7a 25 73 25 73 22 2c 20 7a 52 65 73  f("%z%s%s", zRes
15f0: 75 6c 74 2c 20 61 72 67 76 5b 31 5d 2c 20 61 72  ult, argv[1], ar
1600: 67 76 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 54 63  gv[i]);.  }.  Tc
1610: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
1620: 6e 74 65 72 70 2c 20 7a 52 65 73 75 6c 74 2c 20  nterp, zResult, 
1630: 30 29 3b 0a 20 20 73 71 6c 69 74 65 46 72 65 65  0);.  sqliteFree
1640: 28 7a 52 65 73 75 6c 74 29 3b 0a 20 20 72 65 74  (zResult);.  ret
1650: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f  urn TCL_OK;.}../
1660: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c  *.** Usage:  sql
1670: 69 74 65 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72  ite_get_table_pr
1680: 69 6e 74 66 20 20 44 42 20 20 46 4f 52 4d 41 54  intf  DB  FORMAT
1690: 20 20 53 54 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 49    STRING.**.** I
16a0: 6e 76 6f 6b 65 20 74 68 65 20 73 71 6c 69 74 65  nvoke the sqlite
16b0: 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74  _get_table_print
16c0: 66 28 29 20 69 6e 74 65 72 66 61 63 65 20 75 73  f() interface us
16d0: 69 6e 67 20 74 68 65 20 6f 70 65 6e 20 64 61 74  ing the open dat
16e0: 61 62 61 73 65 0a 2a 2a 20 44 42 2e 20 20 54 68  abase.** DB.  Th
16f0: 65 20 53 51 4c 20 69 73 20 74 68 65 20 73 74 72  e SQL is the str
1700: 69 6e 67 20 46 4f 52 4d 41 54 2e 20 20 54 68 65  ing FORMAT.  The
1710: 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 73   format string s
1720: 68 6f 75 6c 64 20 63 6f 6e 74 61 69 6e 0a 2a 2a  hould contain.**
1730: 20 6f 6e 65 20 25 73 20 6f 72 20 25 71 2e 20 20   one %s or %q.  
1740: 53 54 52 49 4e 47 20 69 73 20 74 68 65 20 76 61  STRING is the va
1750: 6c 75 65 20 69 6e 73 65 72 74 65 64 20 69 6e 74  lue inserted int
1760: 6f 20 25 73 20 6f 72 20 25 71 2e 0a 2a 2f 0a 73  o %s or %q..*/.s
1770: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 67  tatic int test_g
1780: 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74 66 28  et_table_printf(
1790: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64  .  void *NotUsed
17a0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
17b0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68  interp,    /* Th
17c0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65  e TCL interprete
17d0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74  r that invoked t
17e0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20  his command */. 
17f0: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20   int argc,      
1800: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65          /* Numbe
1810: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a  r of arguments *
1820: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20  /.  char **argv 
1830: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65             /* Te
1840: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d  xt of each argum
1850: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69  ent */.){.  sqli
1860: 74 65 20 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 53  te *db;.  Tcl_DS
1870: 74 72 69 6e 67 20 73 74 72 3b 0a 20 20 69 6e 74  tring str;.  int
1880: 20 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72   rc;.  char *zEr
1890: 72 20 3d 20 30 3b 0a 20 20 69 6e 74 20 6e 52 6f  r = 0;.  int nRo
18a0: 77 2c 20 6e 43 6f 6c 3b 0a 20 20 63 68 61 72 20  w, nCol;.  char 
18b0: 2a 2a 61 52 65 73 75 6c 74 3b 0a 20 20 69 6e 74  **aResult;.  int
18c0: 20 69 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b   i;.  char zBuf[
18d0: 33 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 63 21  30];.  if( argc!
18e0: 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  =4 ){.    Tcl_Ap
18f0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
1900: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
1910: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
1920: 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20   argv[0], .     
1930: 20 20 22 20 44 42 20 46 4f 52 4d 41 54 20 53 54    " DB FORMAT ST
1940: 52 49 4e 47 22 2c 20 30 29 3b 0a 20 20 20 20 72  RING", 0);.    r
1950: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
1960: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62  .  }.  if( getDb
1970: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20  Pointer(interp, 
1980: 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20  argv[1], &db) ) 
1990: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
19a0: 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49  ;.  Tcl_DStringI
19b0: 6e 69 74 28 26 73 74 72 29 3b 0a 20 20 72 63 20  nit(&str);.  rc 
19c0: 3d 20 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62  = sqlite_get_tab
19d0: 6c 65 5f 70 72 69 6e 74 66 28 64 62 2c 20 61 72  le_printf(db, ar
19e0: 67 76 5b 32 5d 2c 20 26 61 52 65 73 75 6c 74 2c  gv[2], &aResult,
19f0: 20 26 6e 52 6f 77 2c 20 26 6e 43 6f 6c 2c 20 0a   &nRow, &nCol, .
1a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26                 &
1a10: 7a 45 72 72 2c 20 61 72 67 76 5b 33 5d 29 3b 0a  zErr, argv[3]);.
1a20: 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20    sprintf(zBuf, 
1a30: 22 25 64 22 2c 20 72 63 29 3b 0a 20 20 54 63 6c  "%d", rc);.  Tcl
1a40: 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69  _AppendElement(i
1a50: 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20  nterp, zBuf);.  
1a60: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f  if( rc==SQLITE_O
1a70: 4b 20 29 7b 0a 20 20 20 20 73 70 72 69 6e 74 66  K ){.    sprintf
1a80: 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 6e 52 6f  (zBuf, "%d", nRo
1a90: 77 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65  w);.    Tcl_Appe
1aa0: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70  ndElement(interp
1ab0: 2c 20 7a 42 75 66 29 3b 0a 20 20 20 20 73 70 72  , zBuf);.    spr
1ac0: 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c  intf(zBuf, "%d",
1ad0: 20 6e 43 6f 6c 29 3b 0a 20 20 20 20 54 63 6c 5f   nCol);.    Tcl_
1ae0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e  AppendElement(in
1af0: 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 20  terp, zBuf);.   
1b00: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 28 6e 52 6f   for(i=0; i<(nRo
1b10: 77 2b 31 29 2a 6e 43 6f 6c 3b 20 69 2b 2b 29 7b  w+1)*nCol; i++){
1b20: 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  .      Tcl_Appen
1b30: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c  dElement(interp,
1b40: 20 61 52 65 73 75 6c 74 5b 69 5d 20 3f 20 61 52   aResult[i] ? aR
1b50: 65 73 75 6c 74 5b 69 5d 20 3a 20 22 4e 55 4c 4c  esult[i] : "NULL
1b60: 22 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73  ");.    }.  }els
1b70: 65 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  e{.    Tcl_Appen
1b80: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c  dElement(interp,
1b90: 20 7a 45 72 72 29 3b 0a 20 20 7d 0a 20 20 73 71   zErr);.  }.  sq
1ba0: 6c 69 74 65 5f 66 72 65 65 5f 74 61 62 6c 65 28  lite_free_table(
1bb0: 61 52 65 73 75 6c 74 29 3b 0a 20 20 69 66 28 20  aResult);.  if( 
1bc0: 7a 45 72 72 20 29 20 66 72 65 65 28 7a 45 72 72  zErr ) free(zErr
1bd0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  );.  return TCL_
1be0: 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73  OK;.}.../*.** Us
1bf0: 61 67 65 3a 20 20 73 71 6c 69 74 65 5f 6c 61 73  age:  sqlite_las
1c00: 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 20 44  t_insert_rowid D
1c10: 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 20  B.**.** Returns 
1c20: 74 68 65 20 69 6e 74 65 67 65 72 20 52 4f 57 49  the integer ROWI
1c30: 44 20 6f 66 20 74 68 65 20 6d 6f 73 74 20 72 65  D of the most re
1c40: 63 65 6e 74 20 69 6e 73 65 72 74 2e 0a 2a 2f 0a  cent insert..*/.
1c50: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f  static int test_
1c60: 6c 61 73 74 5f 72 6f 77 69 64 28 0a 20 20 76 6f  last_rowid(.  vo
1c70: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54  id *NotUsed,.  T
1c80: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
1c90: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c  p,    /* The TCL
1ca0: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61   interpreter tha
1cb0: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63  t invoked this c
1cc0: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20  ommand */.  int 
1cd0: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20  argc,           
1ce0: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
1cf0: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63  arguments */.  c
1d00: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20  har **argv      
1d10: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66        /* Text of
1d20: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a   each argument *
1d30: 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64  /.){.  sqlite *d
1d40: 62 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33  b;.  char zBuf[3
1d50: 30 5d 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21  0];..  if( argc!
1d60: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  =2 ){.    Tcl_Ap
1d70: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
1d80: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
1d90: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
1da0: 20 61 72 67 76 5b 30 5d 2c 20 22 20 44 42 5c 22   argv[0], " DB\"
1db0: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72  ", 0);.    retur
1dc0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
1dd0: 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e  .  if( getDbPoin
1de0: 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76  ter(interp, argv
1df0: 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75  [1], &db) ) retu
1e00: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
1e10: 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 25  sprintf(zBuf, "%
1e20: 64 22 2c 20 73 71 6c 69 74 65 5f 6c 61 73 74 5f  d", sqlite_last_
1e30: 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 64 62 29  insert_rowid(db)
1e40: 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52  );.  Tcl_AppendR
1e50: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42  esult(interp, zB
1e60: 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e  uf, 0);.  return
1e70: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f   SQLITE_OK;.}../
1e80: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c  *.** Usage:  sql
1e90: 69 74 65 5f 63 6c 6f 73 65 20 44 42 0a 2a 2a 0a  ite_close DB.**.
1ea0: 2a 2a 20 43 6c 6f 73 65 73 20 74 68 65 20 64 61  ** Closes the da
1eb0: 74 61 62 61 73 65 20 6f 70 65 6e 65 64 20 62 79  tabase opened by
1ec0: 20 73 71 6c 69 74 65 5f 6f 70 65 6e 2e 0a 2a 2f   sqlite_open..*/
1ed0: 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69  .static int sqli
1ee0: 74 65 5f 74 65 73 74 5f 63 6c 6f 73 65 28 0a 20  te_test_close(. 
1ef0: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a   void *NotUsed,.
1f00: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
1f10: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20  terp,    /* The 
1f20: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20  TCL interpreter 
1f30: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69  that invoked thi
1f40: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69  s command */.  i
1f50: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20  nt argc,        
1f60: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20        /* Number 
1f70: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a  of arguments */.
1f80: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20    char **argv   
1f90: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74           /* Text
1fa0: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e   of each argumen
1fb0: 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65  t */.){.  sqlite
1fc0: 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 72 67 63   *db;.  if( argc
1fd0: 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  !=2 ){.    Tcl_A
1fe0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
1ff0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67  rp, "wrong # arg
2000: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22  s: should be \""
2010: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20  , argv[0],.     
2020: 20 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c    " FILENAME\"",
2030: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20   0);.    return 
2040: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
2050: 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65   if( getDbPointe
2060: 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31  r(interp, argv[1
2070: 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e  ], &db) ) return
2080: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71   TCL_ERROR;.  sq
2090: 6c 69 74 65 5f 63 6c 6f 73 65 28 64 62 29 3b 0a  lite_close(db);.
20a0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
20b0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d  .}../*.** Implem
20c0: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20  entation of the 
20d0: 78 5f 63 6f 61 6c 65 73 63 65 28 29 20 66 75 6e  x_coalesce() fun
20e0: 63 74 69 6f 6e 2e 0a 2a 2a 20 52 65 74 75 72 6e  ction..** Return
20f0: 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d   the first argum
2100: 65 6e 74 20 6e 6f 6e 2d 4e 55 4c 4c 20 61 72 67  ent non-NULL arg
2110: 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63  ument..*/.static
2120: 20 76 6f 69 64 20 69 66 6e 75 6c 6c 46 75 6e 63   void ifnullFunc
2130: 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 6f  (sqlite_func *co
2140: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c  ntext, int argc,
2150: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72   const char **ar
2160: 67 76 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20  gv){.  int i;.  
2170: 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b  for(i=0; i<argc;
2180: 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 61   i++){.    if( a
2190: 72 67 76 5b 69 5d 20 29 7b 0a 20 20 20 20 20 20  rgv[i] ){.      
21a0: 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c  sqlite_set_resul
21b0: 74 5f 73 74 72 69 6e 67 28 63 6f 6e 74 65 78 74  t_string(context
21c0: 2c 20 61 72 67 76 5b 69 5d 2c 20 2d 31 29 3b 0a  , argv[i], -1);.
21d0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
21e0: 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20   }.  }.}../*.** 
21f0: 41 20 73 74 72 75 63 74 75 72 65 20 69 6e 74 6f  A structure into
2200: 20 77 68 69 63 68 20 74 6f 20 61 63 63 75 6d 75   which to accumu
2210: 6c 61 74 65 20 74 65 78 74 2e 0a 2a 2f 0a 73 74  late text..*/.st
2220: 72 75 63 74 20 64 73 74 72 20 7b 0a 20 20 69 6e  ruct dstr {.  in
2230: 74 20 6e 41 6c 6c 6f 63 3b 20 20 2f 2a 20 53 70  t nAlloc;  /* Sp
2240: 61 63 65 20 61 6c 6c 6f 63 61 74 65 64 20 2a 2f  ace allocated */
2250: 0a 20 20 69 6e 74 20 6e 55 73 65 64 3b 20 20 20  .  int nUsed;   
2260: 2f 2a 20 53 70 61 63 65 20 75 73 65 64 20 2a 2f  /* Space used */
2270: 0a 20 20 63 68 61 72 20 2a 7a 3b 20 20 20 20 20  .  char *z;     
2280: 2f 2a 20 54 68 65 20 73 70 61 63 65 20 2a 2f 0a  /* The space */.
2290: 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 70 70 65 6e 64  };../*.** Append
22a0: 20 74 65 78 74 20 74 6f 20 61 20 64 73 74 72 0a   text to a dstr.
22b0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 64  */.static void d
22c0: 73 74 72 41 70 70 65 6e 64 28 73 74 72 75 63 74  strAppend(struct
22d0: 20 64 73 74 72 20 2a 70 2c 20 63 6f 6e 73 74 20   dstr *p, const 
22e0: 63 68 61 72 20 2a 7a 2c 20 69 6e 74 20 64 69 76  char *z, int div
22f0: 69 64 65 72 29 7b 0a 20 20 69 6e 74 20 6e 20 3d  ider){.  int n =
2300: 20 73 74 72 6c 65 6e 28 7a 29 3b 0a 20 20 69 66   strlen(z);.  if
2310: 28 20 70 2d 3e 6e 55 73 65 64 20 2b 20 6e 20 2b  ( p->nUsed + n +
2320: 20 32 20 3e 20 70 2d 3e 6e 41 6c 6c 6f 63 20 29   2 > p->nAlloc )
2330: 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e 65 77  {.    char *zNew
2340: 3b 0a 20 20 20 20 70 2d 3e 6e 41 6c 6c 6f 63 20  ;.    p->nAlloc 
2350: 3d 20 70 2d 3e 6e 41 6c 6c 6f 63 2a 32 20 2b 20  = p->nAlloc*2 + 
2360: 6e 20 2b 20 32 30 30 3b 0a 20 20 20 20 7a 4e 65  n + 200;.    zNe
2370: 77 20 3d 20 73 71 6c 69 74 65 52 65 61 6c 6c 6f  w = sqliteReallo
2380: 63 28 70 2d 3e 7a 2c 20 70 2d 3e 6e 41 6c 6c 6f  c(p->z, p->nAllo
2390: 63 29 3b 0a 20 20 20 20 69 66 28 20 7a 4e 65 77  c);.    if( zNew
23a0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 73 71 6c  ==0 ){.      sql
23b0: 69 74 65 46 72 65 65 28 70 2d 3e 7a 29 3b 0a 20  iteFree(p->z);. 
23c0: 20 20 20 20 20 6d 65 6d 73 65 74 28 70 2c 20 30       memset(p, 0
23d0: 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20  , sizeof(*p));. 
23e0: 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20       return;.   
23f0: 20 7d 0a 20 20 20 20 70 2d 3e 7a 20 3d 20 7a 4e   }.    p->z = zN
2400: 65 77 3b 0a 20 20 7d 0a 20 20 69 66 28 20 64 69  ew;.  }.  if( di
2410: 76 69 64 65 72 20 26 26 20 70 2d 3e 6e 55 73 65  vider && p->nUse
2420: 64 3e 30 20 29 7b 0a 20 20 20 20 70 2d 3e 7a 5b  d>0 ){.    p->z[
2430: 70 2d 3e 6e 55 73 65 64 2b 2b 5d 20 3d 20 64 69  p->nUsed++] = di
2440: 76 69 64 65 72 3b 0a 20 20 7d 0a 20 20 6d 65 6d  vider;.  }.  mem
2450: 63 70 79 28 26 70 2d 3e 7a 5b 70 2d 3e 6e 55 73  cpy(&p->z[p->nUs
2460: 65 64 5d 2c 20 7a 2c 20 6e 2b 31 29 3b 0a 20 20  ed], z, n+1);.  
2470: 70 2d 3e 6e 55 73 65 64 20 2b 3d 20 6e 3b 0a 7d  p->nUsed += n;.}
2480: 0a 0a 2f 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 64 20  ../*.** Invoked 
2490: 66 6f 72 20 65 61 63 68 20 63 61 6c 6c 62 61 63  for each callbac
24a0: 6b 20 66 72 6f 6d 20 73 71 6c 69 74 65 45 78 65  k from sqliteExe
24b0: 63 46 75 6e 63 0a 2a 2f 0a 73 74 61 74 69 63 20  cFunc.*/.static 
24c0: 69 6e 74 20 65 78 65 63 46 75 6e 63 43 61 6c 6c  int execFuncCall
24d0: 62 61 63 6b 28 76 6f 69 64 20 2a 70 44 61 74 61  back(void *pData
24e0: 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72  , int argc, char
24f0: 20 2a 2a 61 72 67 76 2c 20 63 68 61 72 20 2a 2a   **argv, char **
2500: 4e 6f 74 55 73 65 64 29 7b 0a 20 20 73 74 72 75  NotUsed){.  stru
2510: 63 74 20 64 73 74 72 20 2a 70 20 3d 20 28 73 74  ct dstr *p = (st
2520: 72 75 63 74 20 64 73 74 72 2a 29 70 44 61 74 61  ruct dstr*)pData
2530: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72  ;.  int i;.  for
2540: 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b  (i=0; i<argc; i+
2550: 2b 29 7b 0a 20 20 20 20 69 66 28 20 61 72 67 76  +){.    if( argv
2560: 5b 69 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  [i]==0 ){.      
2570: 64 73 74 72 41 70 70 65 6e 64 28 70 2c 20 22 4e  dstrAppend(p, "N
2580: 55 4c 4c 22 2c 20 27 20 27 29 3b 0a 20 20 20 20  ULL", ' ');.    
2590: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 64 73 74  }else{.      dst
25a0: 72 41 70 70 65 6e 64 28 70 2c 20 61 72 67 76 5b  rAppend(p, argv[
25b0: 69 5d 2c 20 27 20 27 29 3b 0a 20 20 20 20 7d 0a  i], ' ');.    }.
25c0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a    }.  return 0;.
25d0: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65  }../*.** Impleme
25e0: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 78  ntation of the x
25f0: 5f 73 71 6c 69 74 65 5f 65 78 65 63 28 29 20 66  _sqlite_exec() f
2600: 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 66  unction.  This f
2610: 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 0a 2a 2a  unction takes.**
2620: 20 61 20 73 69 6e 67 6c 65 20 61 72 67 75 6d 65   a single argume
2630: 6e 74 20 61 6e 64 20 61 74 74 65 6d 70 74 73 20  nt and attempts 
2640: 74 6f 20 65 78 65 63 75 74 65 20 74 68 61 74 20  to execute that 
2650: 61 72 67 75 6d 65 6e 74 20 61 73 20 53 51 4c 20  argument as SQL 
2660: 63 6f 64 65 2e 0a 2a 2a 20 54 68 69 73 20 69 73  code..** This is
2670: 20 69 6c 6c 65 67 61 6c 20 61 6e 64 20 73 68 6f   illegal and sho
2680: 75 6c 64 20 73 65 74 20 74 68 65 20 53 51 4c 49  uld set the SQLI
2690: 54 45 5f 4d 49 53 55 53 45 20 66 6c 61 67 20 6f  TE_MISUSE flag o
26a0: 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a  n the database..
26b0: 2a 2a 0a 2a 2a 20 32 30 30 34 2d 4a 61 6e 2d 30  **.** 2004-Jan-0
26c0: 37 3a 20 20 57 65 20 68 61 76 65 20 63 68 61 6e  7:  We have chan
26d0: 67 65 64 20 74 68 69 73 20 74 6f 20 6d 61 6b 65  ged this to make
26e0: 20 69 74 20 6c 65 67 61 6c 20 74 6f 20 63 61 6c   it legal to cal
26f0: 6c 20 73 71 6c 69 74 65 5f 65 78 65 63 28 29 0a  l sqlite_exec().
2700: 2a 2a 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 61  ** from within a
2710: 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 2e 20   function call. 
2720: 20 0a 2a 2a 20 0a 2a 2a 20 54 68 69 73 20 72 6f   .** .** This ro
2730: 75 74 69 6e 65 20 73 69 6d 75 6c 61 74 65 73 20  utine simulates 
2740: 74 68 65 20 65 66 66 65 63 74 20 6f 66 20 68 61  the effect of ha
2750: 76 69 6e 67 20 74 77 6f 20 74 68 72 65 61 64 73  ving two threads
2760: 20 61 74 74 65 6d 70 74 20 74 6f 0a 2a 2a 20 75   attempt to.** u
2770: 73 65 20 74 68 65 20 73 61 6d 65 20 64 61 74 61  se the same data
2780: 62 61 73 65 20 61 74 20 74 68 65 20 73 61 6d 65  base at the same
2790: 20 74 69 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 63   time..*/.static
27a0: 20 76 6f 69 64 20 73 71 6c 69 74 65 45 78 65 63   void sqliteExec
27b0: 46 75 6e 63 28 73 71 6c 69 74 65 5f 66 75 6e 63  Func(sqlite_func
27c0: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61   *context, int a
27d0: 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  rgc, const char 
27e0: 2a 2a 61 72 67 76 29 7b 0a 20 20 73 74 72 75 63  **argv){.  struc
27f0: 74 20 64 73 74 72 20 78 3b 0a 20 20 6d 65 6d 73  t dstr x;.  mems
2800: 65 74 28 26 78 2c 20 30 2c 20 73 69 7a 65 6f 66  et(&x, 0, sizeof
2810: 28 78 29 29 3b 0a 20 20 73 71 6c 69 74 65 5f 65  (x));.  sqlite_e
2820: 78 65 63 28 28 73 71 6c 69 74 65 2a 29 73 71 6c  xec((sqlite*)sql
2830: 69 74 65 5f 75 73 65 72 5f 64 61 74 61 28 63 6f  ite_user_data(co
2840: 6e 74 65 78 74 29 2c 20 61 72 67 76 5b 30 5d 2c  ntext), argv[0],
2850: 20 0a 20 20 20 20 20 20 65 78 65 63 46 75 6e 63   .      execFunc
2860: 43 61 6c 6c 62 61 63 6b 2c 20 26 78 2c 20 30 29  Callback, &x, 0)
2870: 3b 0a 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 72  ;.  sqlite_set_r
2880: 65 73 75 6c 74 5f 73 74 72 69 6e 67 28 63 6f 6e  esult_string(con
2890: 74 65 78 74 2c 20 78 2e 7a 2c 20 78 2e 6e 55 73  text, x.z, x.nUs
28a0: 65 64 29 3b 0a 20 20 73 71 6c 69 74 65 46 72 65  ed);.  sqliteFre
28b0: 65 28 78 2e 7a 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  e(x.z);.}../*.**
28c0: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 5f   Usage:  sqlite_
28d0: 74 65 73 74 5f 63 72 65 61 74 65 5f 66 75 6e 63  test_create_func
28e0: 74 69 6f 6e 20 44 42 0a 2a 2a 0a 2a 2a 20 43 61  tion DB.**.** Ca
28f0: 6c 6c 20 74 68 65 20 73 71 6c 69 74 65 5f 63 72  ll the sqlite_cr
2900: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 41 50  eate_function AP
2910: 49 20 6f 6e 20 74 68 65 20 67 69 76 65 6e 20 64  I on the given d
2920: 61 74 61 62 61 73 65 20 69 6e 20 6f 72 64 65 72  atabase in order
2930: 0a 2a 2a 20 74 6f 20 63 72 65 61 74 65 20 61 20  .** to create a 
2940: 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 64 20 22  function named "
2950: 78 5f 63 6f 61 6c 65 73 63 65 22 2e 20 20 54 68  x_coalesce".  Th
2960: 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73  is function does
2970: 20 74 68 65 20 73 61 6d 65 20 74 68 69 6e 67 0a   the same thing.
2980: 2a 2a 20 61 73 20 74 68 65 20 22 63 6f 61 6c 65  ** as the "coale
2990: 73 63 65 22 20 66 75 6e 63 74 69 6f 6e 2e 20 20  sce" function.  
29a0: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 61 6c  This function al
29b0: 73 6f 20 72 65 67 69 73 74 65 72 73 20 61 6e 20  so registers an 
29c0: 53 51 4c 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20  SQL function.** 
29d0: 6e 61 6d 65 64 20 22 78 5f 73 71 6c 69 74 65 5f  named "x_sqlite_
29e0: 65 78 65 63 22 20 74 68 61 74 20 69 6e 76 6f 6b  exec" that invok
29f0: 65 73 20 73 71 6c 69 74 65 5f 65 78 65 63 28 29  es sqlite_exec()
2a00: 2e 20 20 49 6e 76 6f 6b 69 6e 67 20 73 71 6c 69  .  Invoking sqli
2a10: 74 65 5f 65 78 65 63 28 29 0a 2a 2a 20 69 6e 20  te_exec().** in 
2a20: 74 68 69 73 20 77 61 79 20 69 73 20 69 6c 6c 65  this way is ille
2a30: 67 61 6c 20 72 65 63 75 72 73 69 6f 6e 20 61 6e  gal recursion an
2a40: 64 20 73 68 6f 75 6c 64 20 72 61 69 73 65 20 61  d should raise a
2a50: 6e 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20  n SQLITE_MISUSE 
2a60: 65 72 72 6f 72 2e 0a 2a 2a 20 54 68 65 20 65 66  error..** The ef
2a70: 66 65 63 74 20 69 73 20 73 69 6d 69 6c 61 72 20  fect is similar 
2a80: 74 6f 20 74 72 79 69 6e 67 20 74 6f 20 75 73 65  to trying to use
2a90: 20 74 68 65 20 73 61 6d 65 20 64 61 74 61 62 61   the same databa
2aa0: 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 72  se connection fr
2ab0: 6f 6d 0a 2a 2a 20 74 77 6f 20 74 68 72 65 61 64  om.** two thread
2ac0: 73 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69  s at the same ti
2ad0: 6d 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6f 72  me..**.** The or
2ae0: 69 67 69 6e 61 6c 20 6d 6f 74 69 76 61 74 69 6f  iginal motivatio
2af0: 6e 20 66 6f 72 20 74 68 69 73 20 72 6f 75 74 69  n for this routi
2b00: 6e 65 20 77 61 73 20 74 6f 20 62 65 20 61 62 6c  ne was to be abl
2b10: 65 20 74 6f 20 63 61 6c 6c 20 74 68 65 0a 2a 2a  e to call the.**
2b20: 20 73 71 6c 69 74 65 5f 63 72 65 61 74 65 5f 66   sqlite_create_f
2b30: 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e  unction function
2b40: 20 77 68 69 6c 65 20 61 20 71 75 65 72 79 20 69   while a query i
2b50: 73 20 69 6e 20 70 72 6f 67 72 65 73 73 20 69 6e  s in progress in
2b60: 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 74 65 73   order.** to tes
2b70: 74 20 74 68 65 20 53 51 4c 49 54 45 5f 4d 49 53  t the SQLITE_MIS
2b80: 55 53 45 20 64 65 74 65 63 74 69 6f 6e 20 6c 6f  USE detection lo
2b90: 67 69 63 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  gic..*/.static i
2ba0: 6e 74 20 74 65 73 74 5f 63 72 65 61 74 65 5f 66  nt test_create_f
2bb0: 75 6e 63 74 69 6f 6e 28 0a 20 20 76 6f 69 64 20  unction(.  void 
2bc0: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f  *NotUsed,.  Tcl_
2bd0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
2be0: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e     /* The TCL in
2bf0: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69  terpreter that i
2c00: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d  nvoked this comm
2c10: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67  and */.  int arg
2c20: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c,              
2c30: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67  /* Number of arg
2c40: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72  uments */.  char
2c50: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20   **argv         
2c60: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61     /* Text of ea
2c70: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29  ch argument */.)
2c80: 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 3b 0a  {.  sqlite *db;.
2c90: 20 20 65 78 74 65 72 6e 20 76 6f 69 64 20 4d 64    extern void Md
2ca0: 35 5f 52 65 67 69 73 74 65 72 28 73 71 6c 69 74  5_Register(sqlit
2cb0: 65 2a 29 3b 0a 20 20 69 66 28 20 61 72 67 63 21  e*);.  if( argc!
2cc0: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  =2 ){.    Tcl_Ap
2cd0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
2ce0: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
2cf0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
2d00: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20   argv[0],.      
2d10: 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20   " FILENAME\"", 
2d20: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  0);.    return T
2d30: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
2d40: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72  if( getDbPointer
2d50: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d  (interp, argv[1]
2d60: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20  , &db) ) return 
2d70: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c  TCL_ERROR;.  sql
2d80: 69 74 65 5f 63 72 65 61 74 65 5f 66 75 6e 63 74  ite_create_funct
2d90: 69 6f 6e 28 64 62 2c 20 22 78 5f 63 6f 61 6c 65  ion(db, "x_coale
2da0: 73 63 65 22 2c 20 2d 31 2c 20 69 66 6e 75 6c 6c  sce", -1, ifnull
2db0: 46 75 6e 63 2c 20 30 29 3b 0a 20 20 73 71 6c 69  Func, 0);.  sqli
2dc0: 74 65 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69  te_create_functi
2dd0: 6f 6e 28 64 62 2c 20 22 78 5f 73 71 6c 69 74 65  on(db, "x_sqlite
2de0: 5f 65 78 65 63 22 2c 20 31 2c 20 73 71 6c 69 74  _exec", 1, sqlit
2df0: 65 45 78 65 63 46 75 6e 63 2c 20 64 62 29 3b 0a  eExecFunc, db);.
2e00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
2e10: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e  .}../*.** Routin
2e20: 65 73 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20  es to implement 
2e30: 74 68 65 20 78 5f 63 6f 75 6e 74 28 29 20 61 67  the x_count() ag
2e40: 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e  gregate function
2e50: 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72  ..*/.typedef str
2e60: 75 63 74 20 43 6f 75 6e 74 43 74 78 20 43 6f 75  uct CountCtx Cou
2e70: 6e 74 43 74 78 3b 0a 73 74 72 75 63 74 20 43 6f  ntCtx;.struct Co
2e80: 75 6e 74 43 74 78 20 7b 0a 20 20 69 6e 74 20 6e  untCtx {.  int n
2e90: 3b 0a 7d 3b 0a 73 74 61 74 69 63 20 76 6f 69 64  ;.};.static void
2ea0: 20 63 6f 75 6e 74 53 74 65 70 28 73 71 6c 69 74   countStep(sqlit
2eb0: 65 5f 66 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c  e_func *context,
2ec0: 20 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74   int argc, const
2ed0: 20 63 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20   char **argv){. 
2ee0: 20 43 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20   CountCtx *p;.  
2ef0: 70 20 3d 20 73 71 6c 69 74 65 5f 61 67 67 72 65  p = sqlite_aggre
2f00: 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e  gate_context(con
2f10: 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29  text, sizeof(*p)
2f20: 29 3b 0a 20 20 69 66 28 20 28 61 72 67 63 3d 3d  );.  if( (argc==
2f30: 30 20 7c 7c 20 61 72 67 76 5b 30 5d 29 20 26 26  0 || argv[0]) &&
2f40: 20 70 20 29 7b 0a 20 20 20 20 70 2d 3e 6e 2b 2b   p ){.    p->n++
2f50: 3b 0a 20 20 7d 0a 7d 20 20 20 0a 73 74 61 74 69  ;.  }.}   .stati
2f60: 63 20 76 6f 69 64 20 63 6f 75 6e 74 46 69 6e 61  c void countFina
2f70: 6c 69 7a 65 28 73 71 6c 69 74 65 5f 66 75 6e 63  lize(sqlite_func
2f80: 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 43 6f   *context){.  Co
2f90: 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d  untCtx *p;.  p =
2fa0: 20 73 71 6c 69 74 65 5f 61 67 67 72 65 67 61 74   sqlite_aggregat
2fb0: 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78  e_context(contex
2fc0: 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a  t, sizeof(*p));.
2fd0: 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73    sqlite_set_res
2fe0: 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c  ult_int(context,
2ff0: 20 70 20 3f 20 70 2d 3e 6e 20 3a 20 30 29 3b 0a   p ? p->n : 0);.
3000: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20  }../*.** Usage: 
3010: 20 73 71 6c 69 74 65 5f 74 65 73 74 5f 63 72 65   sqlite_test_cre
3020: 61 74 65 5f 61 67 67 72 65 67 61 74 65 20 44 42  ate_aggregate DB
3030: 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 74 68 65 20  .**.** Call the 
3040: 73 71 6c 69 74 65 5f 63 72 65 61 74 65 5f 66 75  sqlite_create_fu
3050: 6e 63 74 69 6f 6e 20 41 50 49 20 6f 6e 20 74 68  nction API on th
3060: 65 20 67 69 76 65 6e 20 64 61 74 61 62 61 73 65  e given database
3070: 20 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20   in order.** to 
3080: 63 72 65 61 74 65 20 61 20 66 75 6e 63 74 69 6f  create a functio
3090: 6e 20 6e 61 6d 65 64 20 22 78 5f 63 6f 75 6e 74  n named "x_count
30a0: 22 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f  ".  This functio
30b0: 6e 20 64 6f 65 73 20 74 68 65 20 73 61 6d 65 20  n does the same 
30c0: 74 68 69 6e 67 0a 2a 2a 20 61 73 20 74 68 65 20  thing.** as the 
30d0: 22 6d 64 35 73 75 6d 22 20 66 75 6e 63 74 69 6f  "md5sum" functio
30e0: 6e 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6f 72 69  n..**.** The ori
30f0: 67 69 6e 61 6c 20 6d 6f 74 69 76 61 74 69 6f 6e  ginal motivation
3100: 20 66 6f 72 20 74 68 69 73 20 72 6f 75 74 69 6e   for this routin
3110: 65 20 77 61 73 20 74 6f 20 62 65 20 61 62 6c 65  e was to be able
3120: 20 74 6f 20 63 61 6c 6c 20 74 68 65 0a 2a 2a 20   to call the.** 
3130: 73 71 6c 69 74 65 5f 63 72 65 61 74 65 5f 61 67  sqlite_create_ag
3140: 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e  gregate function
3150: 20 77 68 69 6c 65 20 61 20 71 75 65 72 79 20 69   while a query i
3160: 73 20 69 6e 20 70 72 6f 67 72 65 73 73 20 69 6e  s in progress in
3170: 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 74 65 73   order.** to tes
3180: 74 20 74 68 65 20 53 51 4c 49 54 45 5f 4d 49 53  t the SQLITE_MIS
3190: 55 53 45 20 64 65 74 65 63 74 69 6f 6e 20 6c 6f  USE detection lo
31a0: 67 69 63 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  gic..*/.static i
31b0: 6e 74 20 74 65 73 74 5f 63 72 65 61 74 65 5f 61  nt test_create_a
31c0: 67 67 72 65 67 61 74 65 28 0a 20 20 76 6f 69 64  ggregate(.  void
31d0: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c   *NotUsed,.  Tcl
31e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
31f0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69      /* The TCL i
3200: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20  nterpreter that 
3210: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d  invoked this com
3220: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72  mand */.  int ar
3230: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  gc,             
3240: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72   /* Number of ar
3250: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61  guments */.  cha
3260: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20  r **argv        
3270: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65      /* Text of e
3280: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a  ach argument */.
3290: 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 3b  ){.  sqlite *db;
32a0: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29  .  if( argc!=2 )
32b0: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  {.    Tcl_Append
32c0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
32d0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
32e0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67  ould be \"", arg
32f0: 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46  v[0],.       " F
3300: 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a  ILENAME\"", 0);.
3310: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
3320: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  RROR;.  }.  if( 
3330: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74  getDbPointer(int
3340: 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64  erp, argv[1], &d
3350: 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f  b) ) return TCL_
3360: 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 5f  ERROR;.  sqlite_
3370: 63 72 65 61 74 65 5f 61 67 67 72 65 67 61 74 65  create_aggregate
3380: 28 64 62 2c 20 22 78 5f 63 6f 75 6e 74 22 2c 20  (db, "x_count", 
3390: 30 2c 20 63 6f 75 6e 74 53 74 65 70 2c 20 63 6f  0, countStep, co
33a0: 75 6e 74 46 69 6e 61 6c 69 7a 65 2c 20 30 29 3b  untFinalize, 0);
33b0: 0a 20 20 73 71 6c 69 74 65 5f 63 72 65 61 74 65  .  sqlite_create
33c0: 5f 61 67 67 72 65 67 61 74 65 28 64 62 2c 20 22  _aggregate(db, "
33d0: 78 5f 63 6f 75 6e 74 22 2c 20 31 2c 20 63 6f 75  x_count", 1, cou
33e0: 6e 74 53 74 65 70 2c 20 63 6f 75 6e 74 46 69 6e  ntStep, countFin
33f0: 61 6c 69 7a 65 2c 20 30 29 3b 0a 20 20 72 65 74  alize, 0);.  ret
3400: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a  urn TCL_OK;.}...
3410: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73  ./*.** Usage:  s
3420: 71 6c 69 74 65 5f 6d 70 72 69 6e 74 66 5f 69 6e  qlite_mprintf_in
3430: 74 20 46 4f 52 4d 41 54 20 49 4e 54 45 47 45 52  t FORMAT INTEGER
3440: 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52   INTEGER INTEGER
3450: 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69  .**.** Call mpri
3460: 6e 74 66 20 77 69 74 68 20 74 68 72 65 65 20 69  ntf with three i
3470: 6e 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 73  nteger arguments
3480: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73  .*/.static int s
3490: 71 6c 69 74 65 5f 6d 70 72 69 6e 74 66 5f 69 6e  qlite_mprintf_in
34a0: 74 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73  t(.  void *NotUs
34b0: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ed,.  Tcl_Interp
34c0: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20   *interp,    /* 
34d0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65  The TCL interpre
34e0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64  ter that invoked
34f0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f   this command */
3500: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20  .  int argc,    
3510: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
3520: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
3530: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67   */.  char **arg
3540: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  v            /* 
3550: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67  Text of each arg
3560: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e  ument */.){.  in
3570: 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 20 63 68 61  t a[3], i;.  cha
3580: 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63  r *z;.  if( argc
3590: 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  !=5 ){.    Tcl_A
35a0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
35b0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67  rp, "wrong # arg
35c0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22  s: should be \""
35d0: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20  , argv[0],.     
35e0: 20 20 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 49    " FORMAT INT I
35f0: 4e 54 20 49 4e 54 5c 22 22 2c 20 30 29 3b 0a 20  NT INT\"", 0);. 
3600: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
3610: 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69  ROR;.  }.  for(i
3620: 3d 32 3b 20 69 3c 35 3b 20 69 2b 2b 29 7b 0a 20  =2; i<5; i++){. 
3630: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e     if( Tcl_GetIn
3640: 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69  t(interp, argv[i
3650: 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 29 20 72 65  ], &a[i-2]) ) re
3660: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
3670: 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65    }.  z = sqlite
3680: 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 31 5d  _mprintf(argv[1]
3690: 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 61 5b  , a[0], a[1], a[
36a0: 32 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e  2]);.  Tcl_Appen
36b0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
36c0: 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 5f  z, 0);.  sqlite_
36d0: 66 72 65 65 6d 65 6d 28 7a 29 3b 0a 20 20 72 65  freemem(z);.  re
36e0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a  turn TCL_OK;.}..
36f0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71  /*.** Usage:  sq
3700: 6c 69 74 65 5f 6d 70 72 69 6e 74 66 5f 73 74 72  lite_mprintf_str
3710: 20 46 4f 52 4d 41 54 20 49 4e 54 45 47 45 52 20   FORMAT INTEGER 
3720: 49 4e 54 45 47 45 52 20 53 54 52 49 4e 47 0a 2a  INTEGER STRING.*
3730: 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74  *.** Call mprint
3740: 66 20 77 69 74 68 20 74 77 6f 20 69 6e 74 65 67  f with two integ
3750: 65 72 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64  er arguments and
3760: 20 6f 6e 65 20 73 74 72 69 6e 67 20 61 72 67 75   one string argu
3770: 6d 65 6e 74 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ment.*/.static i
3780: 6e 74 20 73 71 6c 69 74 65 5f 6d 70 72 69 6e 74  nt sqlite_mprint
3790: 66 5f 73 74 72 28 0a 20 20 76 6f 69 64 20 2a 4e  f_str(.  void *N
37a0: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e  otUsed,.  Tcl_In
37b0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20  terp *interp,   
37c0: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65   /* The TCL inte
37d0: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76  rpreter that inv
37e0: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e  oked this comman
37f0: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c  d */.  int argc,
3800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
3810: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d   Number of argum
3820: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a  ents */.  char *
3830: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20  *argv           
3840: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68   /* Text of each
3850: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a   argument */.){.
3860: 20 20 69 6e 74 20 61 5b 33 5d 2c 20 69 3b 0a 20    int a[3], i;. 
3870: 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20   char *z;.  if( 
3880: 61 72 67 63 3c 34 20 7c 7c 20 61 72 67 63 3e 35  argc<4 || argc>5
3890: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65   ){.    Tcl_Appe
38a0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
38b0: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20   "wrong # args: 
38c0: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61  should be \"", a
38d0: 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22  rgv[0],.       "
38e0: 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e 54 20   FORMAT INT INT 
38f0: 3f 53 54 52 49 4e 47 3f 5c 22 22 2c 20 30 29 3b  ?STRING?\"", 0);
3900: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
3910: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72  ERROR;.  }.  for
3920: 28 69 3d 32 3b 20 69 3c 34 3b 20 69 2b 2b 29 7b  (i=2; i<4; i++){
3930: 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74  .    if( Tcl_Get
3940: 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76  Int(interp, argv
3950: 5b 69 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 29 20  [i], &a[i-2]) ) 
3960: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
3970: 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69  ;.  }.  z = sqli
3980: 74 65 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b  te_mprintf(argv[
3990: 31 5d 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20  1], a[0], a[1], 
39a0: 61 72 67 63 3e 34 20 3f 20 61 72 67 76 5b 34 5d  argc>4 ? argv[4]
39b0: 20 3a 20 4e 55 4c 4c 29 3b 0a 20 20 54 63 6c 5f   : NULL);.  Tcl_
39c0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
39d0: 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 71  erp, z, 0);.  sq
39e0: 6c 69 74 65 5f 66 72 65 65 6d 65 6d 28 7a 29 3b  lite_freemem(z);
39f0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
3a00: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65  ;.}../*.** Usage
3a10: 3a 20 20 73 71 6c 69 74 65 5f 6d 70 72 69 6e 74  :  sqlite_mprint
3a20: 66 5f 73 74 72 20 46 4f 52 4d 41 54 20 49 4e 54  f_str FORMAT INT
3a30: 45 47 45 52 20 49 4e 54 45 47 45 52 20 44 4f 55  EGER INTEGER DOU
3a40: 42 4c 45 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d  BLE.**.** Call m
3a50: 70 72 69 6e 74 66 20 77 69 74 68 20 74 77 6f 20  printf with two 
3a60: 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74  integer argument
3a70: 73 20 61 6e 64 20 6f 6e 65 20 64 6f 75 62 6c 65  s and one double
3a80: 20 61 72 67 75 6d 65 6e 74 0a 2a 2f 0a 73 74 61   argument.*/.sta
3a90: 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 5f 6d  tic int sqlite_m
3aa0: 70 72 69 6e 74 66 5f 64 6f 75 62 6c 65 28 0a 20  printf_double(. 
3ab0: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a   void *NotUsed,.
3ac0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
3ad0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20  terp,    /* The 
3ae0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20  TCL interpreter 
3af0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69  that invoked thi
3b00: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69  s command */.  i
3b10: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20  nt argc,        
3b20: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20        /* Number 
3b30: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a  of arguments */.
3b40: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20    char **argv   
3b50: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74           /* Text
3b60: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e   of each argumen
3b70: 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 5b  t */.){.  int a[
3b80: 33 5d 2c 20 69 3b 0a 20 20 64 6f 75 62 6c 65 20  3], i;.  double 
3b90: 72 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20  r;.  char *z;.  
3ba0: 69 66 28 20 61 72 67 63 21 3d 35 20 29 7b 0a 20  if( argc!=5 ){. 
3bb0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
3bc0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f  ult(interp, "wro
3bd0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
3be0: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30  d be \"", argv[0
3bf0: 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 4f 52 4d  ],.       " FORM
3c00: 41 54 20 49 4e 54 20 49 4e 54 20 53 54 52 49 4e  AT INT INT STRIN
3c10: 47 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65  G\"", 0);.    re
3c20: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
3c30: 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69    }.  for(i=2; i
3c40: 3c 34 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66  <4; i++){.    if
3c50: 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74  ( Tcl_GetInt(int
3c60: 65 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26 61  erp, argv[i], &a
3c70: 5b 69 2d 32 5d 29 20 29 20 72 65 74 75 72 6e 20  [i-2]) ) return 
3c80: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
3c90: 20 69 66 28 20 54 63 6c 5f 47 65 74 44 6f 75 62   if( Tcl_GetDoub
3ca0: 6c 65 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b  le(interp, argv[
3cb0: 34 5d 2c 20 26 72 29 20 29 20 72 65 74 75 72 6e  4], &r) ) return
3cc0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 20   TCL_ERROR;.  z 
3cd0: 3d 20 73 71 6c 69 74 65 5f 6d 70 72 69 6e 74 66  = sqlite_mprintf
3ce0: 28 61 72 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c 20  (argv[1], a[0], 
3cf0: 61 5b 31 5d 2c 20 72 29 3b 0a 20 20 54 63 6c 5f  a[1], r);.  Tcl_
3d00: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
3d10: 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 71  erp, z, 0);.  sq
3d20: 6c 69 74 65 5f 66 72 65 65 6d 65 6d 28 7a 29 3b  lite_freemem(z);
3d30: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
3d40: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65  ;.}../*.** Usage
3d50: 3a 20 20 73 71 6c 69 74 65 5f 6d 70 72 69 6e 74  :  sqlite_mprint
3d60: 66 5f 73 74 72 20 46 4f 52 4d 41 54 20 44 4f 55  f_str FORMAT DOU
3d70: 42 4c 45 20 44 4f 55 42 4c 45 0a 2a 2a 0a 2a 2a  BLE DOUBLE.**.**
3d80: 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69   Call mprintf wi
3d90: 74 68 20 61 20 73 69 6e 67 6c 65 20 64 6f 75 62  th a single doub
3da0: 6c 65 20 61 72 67 75 6d 65 6e 74 20 77 68 69 63  le argument whic
3db0: 68 20 69 73 20 74 68 65 20 70 72 6f 64 75 63 74  h is the product
3dc0: 20 6f 66 20 74 68 65 0a 2a 2a 20 74 77 6f 20 61   of the.** two a
3dd0: 72 67 75 6d 65 6e 74 73 20 67 69 76 65 6e 20 61  rguments given a
3de0: 62 6f 76 65 2e 20 20 54 68 69 73 20 69 73 20 75  bove.  This is u
3df0: 73 65 64 20 74 6f 20 67 65 6e 65 72 61 74 65 20  sed to generate 
3e00: 6f 76 65 72 66 6c 6f 77 20 61 6e 64 20 75 6e 64  overflow and und
3e10: 65 72 66 6c 6f 77 0a 2a 2a 20 64 6f 75 62 6c 65  erflow.** double
3e20: 73 20 74 6f 20 74 65 73 74 20 74 68 61 74 20 74  s to test that t
3e30: 68 65 79 20 61 72 65 20 63 6f 6e 76 65 72 74 65  hey are converte
3e40: 64 20 70 72 6f 70 65 72 6c 79 2e 0a 2a 2f 0a 73  d properly..*/.s
3e50: 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65  tatic int sqlite
3e60: 5f 6d 70 72 69 6e 74 66 5f 73 63 61 6c 65 64 28  _mprintf_scaled(
3e70: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64  .  void *NotUsed
3e80: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
3e90: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68  interp,    /* Th
3ea0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65  e TCL interprete
3eb0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74  r that invoked t
3ec0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20  his command */. 
3ed0: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20   int argc,      
3ee0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65          /* Numbe
3ef0: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a  r of arguments *
3f00: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20  /.  char **argv 
3f10: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65             /* Te
3f20: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d  xt of each argum
3f30: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20  ent */.){.  int 
3f40: 69 3b 0a 20 20 64 6f 75 62 6c 65 20 72 5b 32 5d  i;.  double r[2]
3f50: 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69  ;.  char *z;.  i
3f60: 66 28 20 61 72 67 63 21 3d 34 20 29 7b 0a 20 20  f( argc!=4 ){.  
3f70: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
3f80: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e  lt(interp, "wron
3f90: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64  g # args: should
3fa0: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d   be \"", argv[0]
3fb0: 2c 0a 20 20 20 20 20 20 20 22 20 46 4f 52 4d 41  ,.       " FORMA
3fc0: 54 20 44 4f 55 42 4c 45 20 44 4f 55 42 4c 45 5c  T DOUBLE DOUBLE\
3fd0: 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75  "", 0);.    retu
3fe0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
3ff0: 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 34  }.  for(i=2; i<4
4000: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20  ; i++){.    if( 
4010: 54 63 6c 5f 47 65 74 44 6f 75 62 6c 65 28 69 6e  Tcl_GetDouble(in
4020: 74 65 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26  terp, argv[i], &
4030: 72 5b 69 2d 32 5d 29 20 29 20 72 65 74 75 72 6e  r[i-2]) ) return
4040: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
4050: 20 20 7a 20 3d 20 73 71 6c 69 74 65 5f 6d 70 72    z = sqlite_mpr
4060: 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 72 5b  intf(argv[1], r[
4070: 30 5d 2a 72 5b 31 5d 29 3b 0a 20 20 54 63 6c 5f  0]*r[1]);.  Tcl_
4080: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
4090: 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 71  erp, z, 0);.  sq
40a0: 6c 69 74 65 5f 66 72 65 65 6d 65 6d 28 7a 29 3b  lite_freemem(z);
40b0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
40c0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65  ;.}../*.** Usage
40d0: 3a 20 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f  : sqlite_malloc_
40e0: 66 61 69 6c 20 4e 0a 2a 2a 0a 2a 2a 20 52 69 67  fail N.**.** Rig
40f0: 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 29 20   sqliteMalloc() 
4100: 74 6f 20 66 61 69 6c 20 6f 6e 20 74 68 65 20 4e  to fail on the N
4110: 2d 74 68 20 63 61 6c 6c 2e 20 20 54 75 72 6e 20  -th call.  Turn 
4120: 6f 66 66 20 74 68 69 73 20 6d 65 63 68 61 6e 69  off this mechani
4130: 73 6d 0a 2a 2a 20 61 6e 64 20 72 65 73 65 74 20  sm.** and reset 
4140: 74 68 65 20 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f  the sqlite_mallo
4150: 63 5f 66 61 69 6c 65 64 20 76 61 72 69 61 62 6c  c_failed variabl
4160: 65 20 69 73 20 4e 3d 3d 30 2e 0a 2a 2f 0a 23 69  e is N==0..*/.#i
4170: 66 64 65 66 20 4d 45 4d 4f 52 59 5f 44 45 42 55  fdef MEMORY_DEBU
4180: 47 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c  G.static int sql
4190: 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c 28  ite_malloc_fail(
41a0: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64  .  void *NotUsed
41b0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
41c0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68  interp,    /* Th
41d0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65  e TCL interprete
41e0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74  r that invoked t
41f0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20  his command */. 
4200: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20   int argc,      
4210: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65          /* Numbe
4220: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a  r of arguments *
4230: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20  /.  char **argv 
4240: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65             /* Te
4250: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d  xt of each argum
4260: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20  ent */.){.  int 
4270: 6e 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32  n;.  if( argc!=2
4280: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65   ){.    Tcl_Appe
4290: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
42a0: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20   "wrong # args: 
42b0: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61  should be \"", a
42c0: 72 67 76 5b 30 5d 2c 20 22 20 4e 5c 22 22 2c 20  rgv[0], " N\"", 
42d0: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  0);.    return T
42e0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
42f0: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69  if( Tcl_GetInt(i
4300: 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20  nterp, argv[1], 
4310: 26 6e 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c  &n) ) return TCL
4320: 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65  _ERROR;.  sqlite
4330: 5f 69 4d 61 6c 6c 6f 63 46 61 69 6c 20 3d 20 6e  _iMallocFail = n
4340: 3b 0a 20 20 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f  ;.  sqlite_mallo
4350: 63 5f 66 61 69 6c 65 64 20 3d 20 30 3b 0a 20 20  c_failed = 0;.  
4360: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
4370: 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 55  .#endif../*.** U
4380: 73 61 67 65 3a 20 73 71 6c 69 74 65 5f 6d 61 6c  sage: sqlite_mal
4390: 6c 6f 63 5f 73 74 61 74 0a 2a 2a 0a 2a 2a 20 52  loc_stat.**.** R
43a0: 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72  eturn the number
43b0: 20 6f 66 20 70 72 69 6f 72 20 63 61 6c 6c 73 20   of prior calls 
43c0: 74 6f 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 28  to sqliteMalloc(
43d0: 29 20 61 6e 64 20 73 71 6c 69 74 65 46 72 65 65  ) and sqliteFree
43e0: 28 29 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 4d 45  ()..*/.#ifdef ME
43f0: 4d 4f 52 59 5f 44 45 42 55 47 0a 73 74 61 74 69  MORY_DEBUG.stati
4400: 63 20 69 6e 74 20 73 71 6c 69 74 65 5f 6d 61 6c  c int sqlite_mal
4410: 6c 6f 63 5f 73 74 61 74 28 0a 20 20 76 6f 69 64  loc_stat(.  void
4420: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c   *NotUsed,.  Tcl
4430: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
4440: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69      /* The TCL i
4450: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20  nterpreter that 
4460: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d  invoked this com
4470: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72  mand */.  int ar
4480: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  gc,             
4490: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72   /* Number of ar
44a0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61  guments */.  cha
44b0: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20  r **argv        
44c0: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65      /* Text of e
44d0: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a  ach argument */.
44e0: 29 7b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 32  ){.  char zBuf[2
44f0: 30 30 5d 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a  00];.  sprintf(z
4500: 42 75 66 2c 20 22 25 64 20 25 64 20 25 64 22 2c  Buf, "%d %d %d",
4510: 20 73 71 6c 69 74 65 5f 6e 4d 61 6c 6c 6f 63 2c   sqlite_nMalloc,
4520: 20 73 71 6c 69 74 65 5f 6e 46 72 65 65 2c 20 73   sqlite_nFree, s
4530: 71 6c 69 74 65 5f 69 4d 61 6c 6c 6f 63 46 61 69  qlite_iMallocFai
4540: 6c 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64  l);.  Tcl_Append
4550: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a  Result(interp, z
4560: 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72  Buf, 0);.  retur
4570: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64  n TCL_OK;.}.#end
4580: 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a  if../*.** Usage:
4590: 20 20 73 71 6c 69 74 65 5f 61 62 6f 72 74 0a 2a    sqlite_abort.*
45a0: 2a 0a 2a 2a 20 53 68 75 74 64 6f 77 6e 20 74 68  *.** Shutdown th
45b0: 65 20 70 72 6f 63 65 73 73 20 69 6d 6d 65 64 69  e process immedi
45c0: 61 74 65 6c 79 2e 20 20 54 68 69 73 20 69 73 20  ately.  This is 
45d0: 6e 6f 74 20 61 20 63 6c 65 61 6e 20 73 68 75 74  not a clean shut
45e0: 64 6f 77 6e 2e 0a 2a 2a 20 54 68 69 73 20 63 6f  down..** This co
45f0: 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f  mmand is used to
4600: 20 74 65 73 74 20 74 68 65 20 72 65 63 6f 76 65   test the recove
4610: 72 61 62 69 6c 69 74 79 20 6f 66 20 61 20 64 61  rability of a da
4620: 74 61 62 61 73 65 20 69 6e 0a 2a 2a 20 74 68 65  tabase in.** the
4630: 20 65 76 65 6e 74 20 6f 66 20 61 20 70 72 6f 67   event of a prog
4640: 72 61 6d 20 63 72 61 73 68 2e 0a 2a 2f 0a 73 74  ram crash..*/.st
4650: 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 5f  atic int sqlite_
4660: 61 62 6f 72 74 28 0a 20 20 76 6f 69 64 20 2a 4e  abort(.  void *N
4670: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e  otUsed,.  Tcl_In
4680: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20  terp *interp,   
4690: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65   /* The TCL inte
46a0: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76  rpreter that inv
46b0: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e  oked this comman
46c0: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c  d */.  int argc,
46d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
46e0: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d   Number of argum
46f0: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a  ents */.  char *
4700: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20  *argv           
4710: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68   /* Text of each
4720: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a   argument */.){.
4730: 20 20 61 73 73 65 72 74 28 20 69 6e 74 65 72 70    assert( interp
4740: 3d 3d 30 20 29 3b 20 20 20 2f 2a 20 54 68 69 73  ==0 );   /* This
4750: 20 77 69 6c 6c 20 61 6c 77 61 79 73 20 66 61 69   will always fai
4760: 6c 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43  l */.  return TC
4770: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54  L_OK;.}../*.** T
4780: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 6f 75  he following rou
4790: 74 69 6e 65 20 69 73 20 61 20 75 73 65 72 2d 64  tine is a user-d
47a0: 65 66 69 6e 65 64 20 53 51 4c 20 66 75 6e 63 74  efined SQL funct
47b0: 69 6f 6e 20 77 68 6f 73 65 20 70 75 72 70 6f 73  ion whose purpos
47c0: 65 0a 2a 2a 20 69 73 20 74 6f 20 74 65 73 74 20  e.** is to test 
47d0: 74 68 65 20 73 71 6c 69 74 65 5f 73 65 74 5f 72  the sqlite_set_r
47e0: 65 73 75 6c 74 28 29 20 41 50 49 2e 0a 2a 2f 0a  esult() API..*/.
47f0: 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74  static void test
4800: 46 75 6e 63 28 73 71 6c 69 74 65 5f 66 75 6e 63  Func(sqlite_func
4810: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61   *context, int a
4820: 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  rgc, const char 
4830: 2a 2a 61 72 67 76 29 7b 0a 20 20 77 68 69 6c 65  **argv){.  while
4840: 28 20 61 72 67 63 3e 3d 32 20 29 7b 0a 20 20 20  ( argc>=2 ){.   
4850: 20 69 66 28 20 61 72 67 76 5b 30 5d 3d 3d 30 20   if( argv[0]==0 
4860: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 5f  ){.      sqlite_
4870: 73 65 74 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72  set_result_error
4880: 28 63 6f 6e 74 65 78 74 2c 20 22 66 69 72 73 74  (context, "first
4890: 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 74 65 73   argument to tes
48a0: 74 20 66 75 6e 63 74 69 6f 6e 20 22 0a 20 20 20  t function ".   
48b0: 20 20 20 20 20 20 22 6d 61 79 20 6e 6f 74 20 62        "may not b
48c0: 65 20 4e 55 4c 4c 22 2c 20 2d 31 29 3b 0a 20 20  e NULL", -1);.  
48d0: 20 20 7d 65 6c 73 65 20 69 66 28 20 73 71 6c 69    }else if( sqli
48e0: 74 65 53 74 72 49 43 6d 70 28 61 72 67 76 5b 30  teStrICmp(argv[0
48f0: 5d 2c 22 73 74 72 69 6e 67 22 29 3d 3d 30 20 29  ],"string")==0 )
4900: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 5f 73  {.      sqlite_s
4910: 65 74 5f 72 65 73 75 6c 74 5f 73 74 72 69 6e 67  et_result_string
4920: 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b 31  (context, argv[1
4930: 5d 2c 20 2d 31 29 3b 0a 20 20 20 20 7d 65 6c 73  ], -1);.    }els
4940: 65 20 69 66 28 20 61 72 67 76 5b 31 5d 3d 3d 30  e if( argv[1]==0
4950: 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65   ){.      sqlite
4960: 5f 73 65 74 5f 72 65 73 75 6c 74 5f 65 72 72 6f  _set_result_erro
4970: 72 28 63 6f 6e 74 65 78 74 2c 20 22 32 6e 64 20  r(context, "2nd 
4980: 61 72 67 75 6d 65 6e 74 20 6d 61 79 20 6e 6f 74  argument may not
4990: 20 62 65 20 4e 55 4c 4c 20 69 66 20 74 68 65 20   be NULL if the 
49a0: 22 0a 20 20 20 20 20 20 20 20 20 22 66 69 72 73  ".         "firs
49b0: 74 20 61 72 67 75 6d 65 6e 74 20 69 73 20 6e 6f  t argument is no
49c0: 74 20 5c 22 73 74 72 69 6e 67 5c 22 22 2c 20 2d  t \"string\"", -
49d0: 31 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66  1);.    }else if
49e0: 28 20 73 71 6c 69 74 65 53 74 72 49 43 6d 70 28  ( sqliteStrICmp(
49f0: 61 72 67 76 5b 30 5d 2c 22 69 6e 74 22 29 3d 3d  argv[0],"int")==
4a00: 30 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  0 ){.      sqlit
4a10: 65 5f 73 65 74 5f 72 65 73 75 6c 74 5f 69 6e 74  e_set_result_int
4a20: 28 63 6f 6e 74 65 78 74 2c 20 61 74 6f 69 28 61  (context, atoi(a
4a30: 72 67 76 5b 31 5d 29 29 3b 0a 20 20 20 20 7d 65  rgv[1]));.    }e
4a40: 6c 73 65 20 69 66 28 20 73 71 6c 69 74 65 53 74  lse if( sqliteSt
4a50: 72 49 43 6d 70 28 61 72 67 76 5b 30 5d 2c 22 64  rICmp(argv[0],"d
4a60: 6f 75 62 6c 65 22 29 3d 3d 30 20 29 7b 0a 20 20  ouble")==0 ){.  
4a70: 20 20 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 72      sqlite_set_r
4a80: 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e  esult_double(con
4a90: 74 65 78 74 2c 20 73 71 6c 69 74 65 41 74 6f 46  text, sqliteAtoF
4aa0: 28 61 72 67 76 5b 31 5d 29 29 3b 0a 20 20 20 20  (argv[1]));.    
4ab0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 73 71 6c  }else{.      sql
4ac0: 69 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 5f 65  ite_set_result_e
4ad0: 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 22 66 69  rror(context,"fi
4ae0: 72 73 74 20 61 72 67 75 6d 65 6e 74 20 73 68 6f  rst argument sho
4af0: 75 6c 64 20 62 65 20 6f 6e 65 20 6f 66 3a 20 22  uld be one of: "
4b00: 0a 20 20 20 20 20 20 20 20 20 20 22 73 74 72 69  .          "stri
4b10: 6e 67 20 69 6e 74 20 64 6f 75 62 6c 65 22 2c 20  ng int double", 
4b20: 2d 31 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 61  -1);.    }.    a
4b30: 72 67 63 20 2d 3d 20 32 3b 0a 20 20 20 20 61 72  rgc -= 2;.    ar
4b40: 67 76 20 2b 3d 20 32 3b 0a 20 20 7d 0a 7d 0a 0a  gv += 2;.  }.}..
4b50: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73  /*.** Usage:   s
4b60: 71 6c 69 74 65 5f 72 65 67 69 73 74 65 72 5f 74  qlite_register_t
4b70: 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 20 44 42  est_function  DB
4b80: 20 20 4e 41 4d 45 0a 2a 2a 0a 2a 2a 20 52 65 67    NAME.**.** Reg
4b90: 69 73 74 65 72 20 74 68 65 20 74 65 73 74 20 53  ister the test S
4ba0: 51 4c 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 74  QL function on t
4bb0: 68 65 20 64 61 74 61 62 61 73 65 20 44 42 20 75  he database DB u
4bc0: 6e 64 65 72 20 74 68 65 20 6e 61 6d 65 20 4e 41  nder the name NA
4bd0: 4d 45 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ME..*/.static in
4be0: 74 20 74 65 73 74 5f 72 65 67 69 73 74 65 72 5f  t test_register_
4bf0: 66 75 6e 63 28 0a 20 20 76 6f 69 64 20 2a 4e 6f  func(.  void *No
4c00: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74  tUsed,.  Tcl_Int
4c10: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20  erp *interp,    
4c20: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72  /* The TCL inter
4c30: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f  preter that invo
4c40: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64  ked this command
4c50: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20   */.  int argc, 
4c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
4c70: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65  Number of argume
4c80: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a  nts */.  char **
4c90: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20  argv            
4ca0: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20  /* Text of each 
4cb0: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20  argument */.){. 
4cc0: 20 73 71 6c 69 74 65 20 2a 64 62 3b 0a 20 20 69   sqlite *db;.  i
4cd0: 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 61 72 67  nt rc;.  if( arg
4ce0: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=3 ){.    Tcl_
4cf0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
4d00: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
4d10: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
4d20: 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20  ", argv[0], .   
4d30: 20 20 20 20 22 20 44 42 20 46 55 4e 43 54 49 4f      " DB FUNCTIO
4d40: 4e 2d 4e 41 4d 45 22 2c 20 30 29 3b 0a 20 20 20  N-NAME", 0);.   
4d50: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
4d60: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74  R;.  }.  if( get
4d70: 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70  DbPointer(interp
4d80: 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20  , argv[1], &db) 
4d90: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ) return TCL_ERR
4da0: 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74  OR;.  rc = sqlit
4db0: 65 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f  e_create_functio
4dc0: 6e 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c 20 2d  n(db, argv[2], -
4dd0: 31 2c 20 74 65 73 74 46 75 6e 63 2c 20 30 29 3b  1, testFunc, 0);
4de0: 0a 20 20 69 66 28 20 72 63 21 3d 30 20 29 7b 0a  .  if( rc!=0 ){.
4df0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
4e00: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 71 6c  sult(interp, sql
4e10: 69 74 65 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67  ite_error_string
4e20: 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65  (rc), 0);.    re
4e30: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
4e40: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c    }.  return TCL
4e50: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68  _OK;.}../*.** Th
4e60: 69 73 20 53 51 4c 69 74 65 20 63 61 6c 6c 62 61  is SQLite callba
4e70: 63 6b 20 72 65 63 6f 72 64 73 20 74 68 65 20 64  ck records the d
4e80: 61 74 61 74 79 70 65 20 6f 66 20 61 6c 6c 20 63  atatype of all c
4e90: 6f 6c 75 6d 6e 73 2e 0a 2a 2a 0a 2a 2a 20 54 68  olumns..**.** Th
4ea0: 65 20 70 41 72 67 20 61 72 67 75 6d 65 6e 74 20  e pArg argument 
4eb0: 69 73 20 72 65 61 6c 6c 79 20 61 20 70 6f 69 6e  is really a poin
4ec0: 74 65 72 20 74 6f 20 61 20 54 43 4c 20 69 6e 74  ter to a TCL int
4ed0: 65 72 70 72 65 74 65 72 2e 20 20 54 68 65 0a 2a  erpreter.  The.*
4ee0: 2a 20 63 6f 6c 75 6d 6e 20 6e 61 6d 65 73 20 61  * column names a
4ef0: 72 65 20 69 6e 73 65 72 74 65 64 20 61 73 20 74  re inserted as t
4f00: 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 68 69  he result of thi
4f10: 73 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a  s interpreter..*
4f20: 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e  *.** This routin
4f30: 65 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 7a 65  e returns non-ze
4f40: 72 6f 20 77 68 69 63 68 20 63 61 75 73 65 73 20  ro which causes 
4f50: 74 68 65 20 71 75 65 72 79 20 74 6f 20 61 62 6f  the query to abo
4f60: 72 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  rt..*/.static in
4f70: 74 20 72 65 6d 65 6d 62 65 72 44 61 74 61 54 79  t rememberDataTy
4f80: 70 65 73 28 76 6f 69 64 20 2a 70 41 72 67 2c 20  pes(void *pArg, 
4f90: 69 6e 74 20 6e 43 6f 6c 2c 20 63 68 61 72 20 2a  int nCol, char *
4fa0: 2a 61 72 67 76 2c 20 63 68 61 72 20 2a 2a 63 6f  *argv, char **co
4fb0: 6c 76 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20  lv){.  int i;.  
4fc0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
4fd0: 72 70 20 3d 20 28 54 63 6c 5f 49 6e 74 65 72 70  rp = (Tcl_Interp
4fe0: 2a 29 70 41 72 67 3b 0a 20 20 54 63 6c 5f 4f 62  *)pArg;.  Tcl_Ob
4ff0: 6a 20 2a 70 4c 69 73 74 2c 20 2a 70 45 6c 65 6d  j *pList, *pElem
5000: 3b 0a 20 20 69 66 28 20 63 6f 6c 76 5b 6e 43 6f  ;.  if( colv[nCo
5010: 6c 2b 31 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 72  l+1]==0 ){.    r
5020: 65 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 70  eturn 1;.  }.  p
5030: 4c 69 73 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62  List = Tcl_NewOb
5040: 6a 28 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20  j();.  for(i=0; 
5050: 69 3c 6e 43 6f 6c 3b 20 69 2b 2b 29 7b 0a 20 20  i<nCol; i++){.  
5060: 20 20 70 45 6c 65 6d 20 3d 20 54 63 6c 5f 4e 65    pElem = Tcl_Ne
5070: 77 53 74 72 69 6e 67 4f 62 6a 28 63 6f 6c 76 5b  wStringObj(colv[
5080: 69 2b 6e 43 6f 6c 5d 20 3f 20 63 6f 6c 76 5b 69  i+nCol] ? colv[i
5090: 2b 6e 43 6f 6c 5d 20 3a 20 22 4e 55 4c 4c 22 2c  +nCol] : "NULL",
50a0: 20 2d 31 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69   -1);.    Tcl_Li
50b0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
50c0: 6e 74 28 69 6e 74 65 72 70 2c 20 70 4c 69 73 74  nt(interp, pList
50d0: 2c 20 70 45 6c 65 6d 29 3b 0a 20 20 7d 0a 20 20  , pElem);.  }.  
50e0: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
50f0: 28 69 6e 74 65 72 70 2c 20 70 4c 69 73 74 29 3b  (interp, pList);
5100: 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a  .  return 1;.}..
5110: 2f 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 61 6e 20  /*.** Invoke an 
5120: 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 62 75  SQL statement bu
5130: 74 20 69 67 6e 6f 72 65 20 61 6c 6c 20 74 68 65  t ignore all the
5140: 20 64 61 74 61 20 69 6e 20 74 68 65 20 72 65 73   data in the res
5150: 75 6c 74 2e 20 20 49 6e 73 74 65 61 64 2c 0a 2a  ult.  Instead,.*
5160: 2a 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20  * return a list 
5170: 74 68 61 74 20 63 6f 6e 73 69 73 74 73 20 6f 66  that consists of
5180: 20 74 68 65 20 64 61 74 61 74 79 70 65 73 20 6f   the datatypes o
5190: 66 20 74 68 65 20 76 61 72 69 6f 75 73 20 63 6f  f the various co
51a0: 6c 75 6d 6e 73 2e 0a 2a 2a 0a 2a 2a 20 54 68 69  lumns..**.** Thi
51b0: 73 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 69 66 20  s only works if 
51c0: 22 50 52 41 47 4d 41 20 73 68 6f 77 5f 64 61 74  "PRAGMA show_dat
51d0: 61 74 79 70 65 73 3d 6f 6e 22 20 68 61 73 20 62  atypes=on" has b
51e0: 65 65 6e 20 65 78 65 63 75 74 65 64 20 61 67 61  een executed aga
51f0: 69 6e 73 74 0a 2a 2a 20 74 68 65 20 64 61 74 61  inst.** the data
5200: 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e  base connection.
5210: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73  .*/.static int s
5220: 71 6c 69 74 65 5f 64 61 74 61 74 79 70 65 73 28  qlite_datatypes(
5230: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64  .  void *NotUsed
5240: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
5250: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68  interp,    /* Th
5260: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65  e TCL interprete
5270: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74  r that invoked t
5280: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20  his command */. 
5290: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20   int argc,      
52a0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65          /* Numbe
52b0: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a  r of arguments *
52c0: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20  /.  char **argv 
52d0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65             /* Te
52e0: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d  xt of each argum
52f0: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69  ent */.){.  sqli
5300: 74 65 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63  te *db;.  int rc
5310: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20  ;.  if( argc!=3 
5320: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  ){.    Tcl_Appen
5330: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
5340: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  "wrong # args: s
5350: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72  hould be \"", ar
5360: 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22  gv[0], .       "
5370: 20 44 42 20 53 51 4c 22 2c 20 30 29 3b 0a 20 20   DB SQL", 0);.  
5380: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
5390: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65  OR;.  }.  if( ge
53a0: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72  tDbPointer(inter
53b0: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29  p, argv[1], &db)
53c0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52   ) return TCL_ER
53d0: 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69  ROR;.  rc = sqli
53e0: 74 65 5f 65 78 65 63 28 64 62 2c 20 61 72 67 76  te_exec(db, argv
53f0: 5b 32 5d 2c 20 72 65 6d 65 6d 62 65 72 44 61 74  [2], rememberDat
5400: 61 54 79 70 65 73 2c 20 69 6e 74 65 72 70 2c 20  aTypes, interp, 
5410: 30 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 30 20  0);.  if( rc!=0 
5420: 26 26 20 72 63 21 3d 53 51 4c 49 54 45 5f 41 42  && rc!=SQLITE_AB
5430: 4f 52 54 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  ORT ){.    Tcl_A
5440: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
5450: 72 70 2c 20 73 71 6c 69 74 65 5f 65 72 72 6f 72  rp, sqlite_error
5460: 5f 73 74 72 69 6e 67 28 72 63 29 2c 20 30 29 3b  _string(rc), 0);
5470: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
5480: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74  ERROR;.  }.  ret
5490: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f  urn TCL_OK;.}../
54a0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c  *.** Usage:  sql
54b0: 69 74 65 5f 63 6f 6d 70 69 6c 65 20 20 44 42 20  ite_compile  DB 
54c0: 20 53 51 4c 20 20 3f 54 41 49 4c 56 41 52 3f 0a   SQL  ?TAILVAR?.
54d0: 2a 2a 0a 2a 2a 20 41 74 74 65 6d 70 74 20 74 6f  **.** Attempt to
54e0: 20 63 6f 6d 70 69 6c 65 20 61 6e 20 53 51 4c 20   compile an SQL 
54f0: 73 74 61 74 65 6d 65 6e 74 2e 20 20 52 65 74 75  statement.  Retu
5500: 72 6e 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20  rn a pointer to 
5510: 74 68 65 20 76 69 72 74 75 61 6c 0a 2a 2a 20 6d  the virtual.** m
5520: 61 63 68 69 6e 65 20 75 73 65 64 20 74 6f 20 65  achine used to e
5530: 78 65 63 75 74 65 20 74 68 61 74 20 73 74 61 74  xecute that stat
5540: 65 6d 65 6e 74 2e 20 20 55 6e 70 72 6f 63 65 73  ement.  Unproces
5550: 73 65 64 20 53 51 4c 20 69 73 20 77 72 69 74 74  sed SQL is writt
5560: 65 6e 0a 2a 2a 20 69 6e 74 6f 20 54 41 49 4c 56  en.** into TAILV
5570: 41 52 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  AR..*/.static in
5580: 74 20 74 65 73 74 5f 63 6f 6d 70 69 6c 65 28 0a  t test_compile(.
5590: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c    void *NotUsed,
55a0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
55b0: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65  nterp,    /* The
55c0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72   TCL interpreter
55d0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68   that invoked th
55e0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20  is command */.  
55f0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20  int argc,       
5600: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
5610: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f   of arguments */
5620: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20  .  char **argv  
5630: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78            /* Tex
5640: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65  t of each argume
5650: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74  nt */.){.  sqlit
5660: 65 20 2a 64 62 3b 0a 20 20 73 71 6c 69 74 65 5f  e *db;.  sqlite_
5670: 76 6d 20 2a 76 6d 3b 0a 20 20 69 6e 74 20 72 63  vm *vm;.  int rc
5680: 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 72 20 3d  ;.  char *zErr =
5690: 20 30 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72   0;.  const char
56a0: 20 2a 7a 54 61 69 6c 3b 0a 20 20 63 68 61 72 20   *zTail;.  char 
56b0: 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 69 66 28 20  zBuf[50];.  if( 
56c0: 61 72 67 63 21 3d 33 20 26 26 20 61 72 67 63 21  argc!=3 && argc!
56d0: 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  =4 ){.    Tcl_Ap
56e0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
56f0: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
5700: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
5710: 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20   argv[0], .     
5720: 20 20 22 20 44 42 20 53 51 4c 20 54 41 49 4c 56    " DB SQL TAILV
5730: 41 52 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  AR", 0);.    ret
5740: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
5750: 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f   }.  if( getDbPo
5760: 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72  inter(interp, ar
5770: 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65  gv[1], &db) ) re
5780: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
5790: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 5f 63 6f    rc = sqlite_co
57a0: 6d 70 69 6c 65 28 64 62 2c 20 61 72 67 76 5b 32  mpile(db, argv[2
57b0: 5d 2c 20 61 72 67 63 3d 3d 34 20 3f 20 26 7a 54  ], argc==4 ? &zT
57c0: 61 69 6c 20 3a 20 30 2c 20 26 76 6d 2c 20 26 7a  ail : 0, &vm, &z
57d0: 45 72 72 29 3b 0a 20 20 69 66 28 20 61 72 67 63  Err);.  if( argc
57e0: 3d 3d 34 20 29 20 54 63 6c 5f 53 65 74 56 61 72  ==4 ) Tcl_SetVar
57f0: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 33 5d  (interp, argv[3]
5800: 2c 20 7a 54 61 69 6c 2c 20 30 29 3b 0a 20 20 69  , zTail, 0);.  i
5810: 66 28 20 72 63 20 29 7b 0a 20 20 20 20 61 73 73  f( rc ){.    ass
5820: 65 72 74 28 20 76 6d 3d 3d 30 20 29 3b 0a 20 20  ert( vm==0 );.  
5830: 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20    sprintf(zBuf, 
5840: 22 28 25 64 29 20 22 2c 20 72 63 29 3b 0a 20 20  "(%d) ", rc);.  
5850: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
5860: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c  lt(interp, zBuf,
5870: 20 7a 45 72 72 2c 20 30 29 3b 0a 20 20 20 20 73   zErr, 0);.    s
5880: 71 6c 69 74 65 5f 66 72 65 65 6d 65 6d 28 7a 45  qlite_freemem(zE
5890: 72 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  rr);.    return 
58a0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
58b0: 20 69 66 28 20 76 6d 20 29 7b 0a 20 20 20 20 69   if( vm ){.    i
58c0: 66 28 20 6d 61 6b 65 50 6f 69 6e 74 65 72 53 74  f( makePointerSt
58d0: 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20  r(interp, zBuf, 
58e0: 76 6d 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c  vm) ) return TCL
58f0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 54 63 6c 5f  _ERROR;.    Tcl_
5900: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
5910: 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20  erp, zBuf, 0);. 
5920: 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f   }.  return TCL_
5930: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61  OK;.}../*.** Usa
5940: 67 65 3a 20 20 73 71 6c 69 74 65 5f 73 74 65 70  ge:  sqlite_step
5950: 20 20 56 4d 20 20 3f 4e 56 41 52 3f 20 20 3f 56    VM  ?NVAR?  ?V
5960: 41 4c 55 45 56 41 52 3f 20 20 3f 43 4f 4c 4e 41  ALUEVAR?  ?COLNA
5970: 4d 45 56 41 52 3f 0a 2a 2a 0a 2a 2a 20 53 74 65  MEVAR?.**.** Ste
5980: 70 20 61 20 76 69 72 74 75 61 6c 20 6d 61 63 68  p a virtual mach
5990: 69 6e 65 2e 20 20 52 65 74 75 72 6e 20 61 20 74  ine.  Return a t
59a0: 68 65 20 72 65 73 75 6c 74 20 63 6f 64 65 20 61  he result code a
59b0: 73 20 61 20 73 74 72 69 6e 67 2e 0a 2a 2a 20 43  s a string..** C
59c0: 6f 6c 75 6d 6e 20 72 65 73 75 6c 74 73 20 61 72  olumn results ar
59d0: 65 20 77 72 69 74 74 65 6e 20 69 6e 74 6f 20 74  e written into t
59e0: 68 72 65 65 20 76 61 72 69 61 62 6c 65 73 2e 0a  hree variables..
59f0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65  */.static int te
5a00: 73 74 5f 73 74 65 70 28 0a 20 20 76 6f 69 64 20  st_step(.  void 
5a10: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f  *NotUsed,.  Tcl_
5a20: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
5a30: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e     /* The TCL in
5a40: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69  terpreter that i
5a50: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d  nvoked this comm
5a60: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67  and */.  int arg
5a70: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c,              
5a80: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67  /* Number of arg
5a90: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72  uments */.  char
5aa0: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20   **argv         
5ab0: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61     /* Text of ea
5ac0: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29  ch argument */.)
5ad0: 7b 0a 20 20 73 71 6c 69 74 65 5f 76 6d 20 2a 76  {.  sqlite_vm *v
5ae0: 6d 3b 0a 20 20 69 6e 74 20 72 63 2c 20 69 3b 0a  m;.  int rc, i;.
5af0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61    const char **a
5b00: 7a 56 61 6c 75 65 20 3d 20 30 3b 0a 20 20 63 6f  zValue = 0;.  co
5b10: 6e 73 74 20 63 68 61 72 20 2a 2a 61 7a 43 6f 6c  nst char **azCol
5b20: 4e 61 6d 65 20 3d 20 30 3b 0a 20 20 69 6e 74 20  Name = 0;.  int 
5b30: 4e 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 2a 7a  N = 0;.  char *z
5b40: 52 63 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b  Rc;.  char zBuf[
5b50: 35 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 63 3c  50];.  if( argc<
5b60: 32 20 7c 7c 20 61 72 67 63 3e 35 20 29 7b 0a 20  2 || argc>5 ){. 
5b70: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
5b80: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f  ult(interp, "wro
5b90: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
5ba0: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30  d be \"", argv[0
5bb0: 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 56 4d 20  ], .       " VM 
5bc0: 4e 56 41 52 20 56 41 4c 55 45 56 41 52 20 43 4f  NVAR VALUEVAR CO
5bd0: 4c 4e 41 4d 45 56 41 52 22 2c 20 30 29 3b 0a 20  LNAMEVAR", 0);. 
5be0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
5bf0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67  ROR;.  }.  if( g
5c00: 65 74 56 6d 50 6f 69 6e 74 65 72 28 69 6e 74 65  etVmPointer(inte
5c10: 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 76 6d  rp, argv[1], &vm
5c20: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45  ) ) return TCL_E
5c30: 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c  RROR;.  rc = sql
5c40: 69 74 65 5f 73 74 65 70 28 76 6d 2c 20 61 72 67  ite_step(vm, arg
5c50: 63 3e 3d 33 3f 26 4e 3a 30 2c 20 61 72 67 63 3e  c>=3?&N:0, argc>
5c60: 3d 34 3f 26 61 7a 56 61 6c 75 65 3a 30 2c 20 61  =4?&azValue:0, a
5c70: 72 67 63 3d 3d 35 3f 26 61 7a 43 6f 6c 4e 61 6d  rgc==5?&azColNam
5c80: 65 3a 30 29 3b 0a 20 20 69 66 28 20 61 72 67 63  e:0);.  if( argc
5c90: 3e 3d 33 20 29 7b 0a 20 20 20 20 73 70 72 69 6e  >=3 ){.    sprin
5ca0: 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 4e  tf(zBuf, "%d", N
5cb0: 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 56 61  );.    Tcl_SetVa
5cc0: 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32  r(interp, argv[2
5cd0: 5d 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 7d  ], zBuf, 0);.  }
5ce0: 0a 20 20 69 66 28 20 61 72 67 63 3e 3d 34 20 29  .  if( argc>=4 )
5cf0: 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 56 61 72  {.    Tcl_SetVar
5d00: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 33 5d  (interp, argv[3]
5d10: 2c 20 22 22 2c 20 30 29 3b 0a 20 20 20 20 69 66  , "", 0);.    if
5d20: 28 20 61 7a 56 61 6c 75 65 20 29 7b 0a 20 20 20  ( azValue ){.   
5d30: 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 4e 3b     for(i=0; i<N;
5d40: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 54   i++){.        T
5d50: 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70  cl_SetVar(interp
5d60: 2c 20 61 72 67 76 5b 33 5d 2c 20 61 7a 56 61 6c  , argv[3], azVal
5d70: 75 65 5b 69 5d 20 3f 20 61 7a 56 61 6c 75 65 5b  ue[i] ? azValue[
5d80: 69 5d 20 3a 20 22 22 2c 0a 20 20 20 20 20 20 20  i] : "",.       
5d90: 20 20 20 20 20 54 43 4c 5f 41 50 50 45 4e 44 5f       TCL_APPEND_
5da0: 56 41 4c 55 45 20 7c 20 54 43 4c 5f 4c 49 53 54  VALUE | TCL_LIST
5db0: 5f 45 4c 45 4d 45 4e 54 29 3b 0a 20 20 20 20 20  _ELEMENT);.     
5dc0: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69   }.    }.  }.  i
5dd0: 66 28 20 61 72 67 63 3d 3d 35 20 29 7b 0a 20 20  f( argc==5 ){.  
5de0: 20 20 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74    Tcl_SetVar(int
5df0: 65 72 70 2c 20 61 72 67 76 5b 34 5d 2c 20 22 22  erp, argv[4], ""
5e00: 2c 20 30 29 3b 0a 20 20 20 20 69 66 28 20 61 7a  , 0);.    if( az
5e10: 43 6f 6c 4e 61 6d 65 20 29 7b 0a 20 20 20 20 20  ColName ){.     
5e20: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 4e 2a 32 3b   for(i=0; i<N*2;
5e30: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 54   i++){.        T
5e40: 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70  cl_SetVar(interp
5e50: 2c 20 61 72 67 76 5b 34 5d 2c 20 61 7a 43 6f 6c  , argv[4], azCol
5e60: 4e 61 6d 65 5b 69 5d 20 3f 20 61 7a 43 6f 6c 4e  Name[i] ? azColN
5e70: 61 6d 65 5b 69 5d 20 3a 20 22 22 2c 0a 20 20 20  ame[i] : "",.   
5e80: 20 20 20 20 20 20 20 20 20 54 43 4c 5f 41 50 50           TCL_APP
5e90: 45 4e 44 5f 56 41 4c 55 45 20 7c 20 54 43 4c 5f  END_VALUE | TCL_
5ea0: 4c 49 53 54 5f 45 4c 45 4d 45 4e 54 29 3b 0a 20  LIST_ELEMENT);. 
5eb0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
5ec0: 0a 20 20 73 77 69 74 63 68 28 20 72 63 20 29 7b  .  switch( rc ){
5ed0: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
5ee0: 5f 44 4f 4e 45 3a 20 20 20 7a 52 63 20 3d 20 22  _DONE:   zRc = "
5ef0: 53 51 4c 49 54 45 5f 44 4f 4e 45 22 3b 20 20 20  SQLITE_DONE";   
5f00: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65   break;.    case
5f10: 20 53 51 4c 49 54 45 5f 42 55 53 59 3a 20 20 20   SQLITE_BUSY:   
5f20: 7a 52 63 20 3d 20 22 53 51 4c 49 54 45 5f 42 55  zRc = "SQLITE_BU
5f30: 53 59 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20  SY";    break;. 
5f40: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 52     case SQLITE_R
5f50: 4f 57 3a 20 20 20 20 7a 52 63 20 3d 20 22 53 51  OW:    zRc = "SQ
5f60: 4c 49 54 45 5f 52 4f 57 22 3b 20 20 20 20 20 62  LITE_ROW";     b
5f70: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53  reak;.    case S
5f80: 51 4c 49 54 45 5f 45 52 52 4f 52 3a 20 20 7a 52  QLITE_ERROR:  zR
5f90: 63 20 3d 20 22 53 51 4c 49 54 45 5f 45 52 52 4f  c = "SQLITE_ERRO
5fa0: 52 22 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20  R";   break;.   
5fb0: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4d 49 53   case SQLITE_MIS
5fc0: 55 53 45 3a 20 7a 52 63 20 3d 20 22 53 51 4c 49  USE: zRc = "SQLI
5fd0: 54 45 5f 4d 49 53 55 53 45 22 3b 20 20 62 72 65  TE_MISUSE";  bre
5fe0: 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a  ak;.    default:
5ff0: 20 20 20 20 20 20 20 20 20 20 20 20 7a 52 63 20              zRc 
6000: 3d 20 22 75 6e 6b 6e 6f 77 6e 22 3b 20 20 20 20  = "unknown";    
6010: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20      break;.  }. 
6020: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
6030: 74 28 69 6e 74 65 72 70 2c 20 7a 52 63 2c 20 30  t(interp, zRc, 0
6040: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  );.  return TCL_
6050: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61  OK;.}../*.** Usa
6060: 67 65 3a 20 20 73 71 6c 69 74 65 5f 66 69 6e 61  ge:  sqlite_fina
6070: 6c 69 7a 65 20 20 56 4d 20 0a 2a 2a 0a 2a 2a 20  lize  VM .**.** 
6080: 53 68 75 74 64 6f 77 6e 20 61 20 76 69 72 74 75  Shutdown a virtu
6090: 61 6c 20 6d 61 63 68 69 6e 65 2e 0a 2a 2f 0a 73  al machine..*/.s
60a0: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 66  tatic int test_f
60b0: 69 6e 61 6c 69 7a 65 28 0a 20 20 76 6f 69 64 20  inalize(.  void 
60c0: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f  *NotUsed,.  Tcl_
60d0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
60e0: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e     /* The TCL in
60f0: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69  terpreter that i
6100: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d  nvoked this comm
6110: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67  and */.  int arg
6120: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c,              
6130: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67  /* Number of arg
6140: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72  uments */.  char
6150: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20   **argv         
6160: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61     /* Text of ea
6170: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29  ch argument */.)
6180: 7b 0a 20 20 73 71 6c 69 74 65 5f 76 6d 20 2a 76  {.  sqlite_vm *v
6190: 6d 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63  m;.  int rc;.  c
61a0: 68 61 72 20 2a 7a 45 72 72 4d 73 67 20 3d 20 30  har *zErrMsg = 0
61b0: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20  ;.  if( argc!=2 
61c0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  ){.    Tcl_Appen
61d0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
61e0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  "wrong # args: s
61f0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72  hould be \"", ar
6200: 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22  gv[0], .       "
6210: 20 56 4d 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20   VM\"", 0);.    
6220: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
6230: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 56  ;.  }.  if( getV
6240: 6d 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c  mPointer(interp,
6250: 20 61 72 67 76 5b 31 5d 2c 20 26 76 6d 29 20 29   argv[1], &vm) )
6260: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
6270: 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65  R;.  rc = sqlite
6280: 5f 66 69 6e 61 6c 69 7a 65 28 76 6d 2c 20 26 7a  _finalize(vm, &z
6290: 45 72 72 4d 73 67 29 3b 0a 20 20 69 66 28 20 72  ErrMsg);.  if( r
62a0: 63 20 29 7b 0a 20 20 20 20 63 68 61 72 20 7a 42  c ){.    char zB
62b0: 75 66 5b 35 30 5d 3b 0a 20 20 20 20 73 70 72 69  uf[50];.    spri
62c0: 6e 74 66 28 7a 42 75 66 2c 20 22 28 25 64 29 20  ntf(zBuf, "(%d) 
62d0: 22 2c 20 72 63 29 3b 0a 20 20 20 20 54 63 6c 5f  ", rc);.    Tcl_
62e0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
62f0: 65 72 70 2c 20 7a 42 75 66 2c 20 7a 45 72 72 4d  erp, zBuf, zErrM
6300: 73 67 2c 20 30 29 3b 0a 20 20 20 20 73 71 6c 69  sg, 0);.    sqli
6310: 74 65 5f 66 72 65 65 6d 65 6d 28 7a 45 72 72 4d  te_freemem(zErrM
6320: 73 67 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  sg);.    return 
6330: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
6340: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
6350: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20  }../*.** Usage: 
6360: 20 73 71 6c 69 74 65 5f 72 65 73 65 74 20 20 20   sqlite_reset   
6370: 56 4d 20 0a 2a 2a 0a 2a 2a 20 52 65 73 65 74 20  VM .**.** Reset 
6380: 61 20 76 69 72 74 75 61 6c 20 6d 61 63 68 69 6e  a virtual machin
6390: 65 20 61 6e 64 20 70 72 65 70 61 72 65 20 69 74  e and prepare it
63a0: 20 74 6f 20 62 65 20 72 75 6e 20 61 67 61 69 6e   to be run again
63b0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
63c0: 74 65 73 74 5f 72 65 73 65 74 28 0a 20 20 76 6f  test_reset(.  vo
63d0: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54  id *NotUsed,.  T
63e0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
63f0: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c  p,    /* The TCL
6400: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61   interpreter tha
6410: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63  t invoked this c
6420: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20  ommand */.  int 
6430: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20  argc,           
6440: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
6450: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63  arguments */.  c
6460: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20  har **argv      
6470: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66        /* Text of
6480: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a   each argument *
6490: 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 5f 76 6d  /.){.  sqlite_vm
64a0: 20 2a 76 6d 3b 0a 20 20 69 6e 74 20 72 63 3b 0a   *vm;.  int rc;.
64b0: 20 20 63 68 61 72 20 2a 7a 45 72 72 4d 73 67 20    char *zErrMsg 
64c0: 3d 20 30 3b 0a 20 20 69 66 28 20 61 72 67 63 21  = 0;.  if( argc!
64d0: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  =2 ){.    Tcl_Ap
64e0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
64f0: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
6500: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
6510: 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20   argv[0], .     
6520: 20 20 22 20 56 4d 5c 22 22 2c 20 30 29 3b 0a 20    " VM\"", 0);. 
6530: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
6540: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67  ROR;.  }.  if( g
6550: 65 74 56 6d 50 6f 69 6e 74 65 72 28 69 6e 74 65  etVmPointer(inte
6560: 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 76 6d  rp, argv[1], &vm
6570: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45  ) ) return TCL_E
6580: 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c  RROR;.  rc = sql
6590: 69 74 65 5f 72 65 73 65 74 28 76 6d 2c 20 26 7a  ite_reset(vm, &z
65a0: 45 72 72 4d 73 67 29 3b 0a 20 20 69 66 28 20 72  ErrMsg);.  if( r
65b0: 63 20 29 7b 0a 20 20 20 20 63 68 61 72 20 7a 42  c ){.    char zB
65c0: 75 66 5b 35 30 5d 3b 0a 20 20 20 20 73 70 72 69  uf[50];.    spri
65d0: 6e 74 66 28 7a 42 75 66 2c 20 22 28 25 64 29 20  ntf(zBuf, "(%d) 
65e0: 22 2c 20 72 63 29 3b 0a 20 20 20 20 54 63 6c 5f  ", rc);.    Tcl_
65f0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
6600: 65 72 70 2c 20 7a 42 75 66 2c 20 7a 45 72 72 4d  erp, zBuf, zErrM
6610: 73 67 2c 20 30 29 3b 0a 20 20 20 20 73 71 6c 69  sg, 0);.    sqli
6620: 74 65 5f 66 72 65 65 6d 65 6d 28 7a 45 72 72 4d  te_freemem(zErrM
6630: 73 67 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  sg);.    return 
6640: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
6650: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
6660: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73  }../*.** This is
6670: 20 74 68 65 20 22 73 74 61 74 69 63 5f 62 69 6e   the "static_bin
6680: 64 5f 76 61 6c 75 65 22 20 74 68 61 74 20 76 61  d_value" that va
6690: 72 69 61 62 6c 65 73 20 61 72 65 20 62 6f 75 6e  riables are boun
66a0: 64 20 74 6f 20 77 68 65 6e 0a 2a 2a 20 74 68 65  d to when.** the
66b0: 20 46 4c 41 47 20 6f 70 74 69 6f 6e 20 6f 66 20   FLAG option of 
66c0: 73 71 6c 69 74 65 5f 62 69 6e 64 20 69 73 20 22  sqlite_bind is "
66d0: 73 74 61 74 69 63 22 0a 2a 2f 0a 73 74 61 74 69  static".*/.stati
66e0: 63 20 63 68 61 72 20 2a 73 71 6c 69 74 65 5f 73  c char *sqlite_s
66f0: 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65  tatic_bind_value
6700: 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 55 73 61   = 0;../*.** Usa
6710: 67 65 3a 20 20 73 71 6c 69 74 65 5f 62 69 6e 64  ge:  sqlite_bind
6720: 20 20 56 4d 20 20 49 44 58 20 20 56 41 4c 55 45    VM  IDX  VALUE
6730: 20 20 46 4c 41 47 53 0a 2a 2a 0a 2a 2a 20 53 65    FLAGS.**.** Se
6740: 74 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20  ts the value of 
6750: 74 68 65 20 49 44 58 2d 74 68 20 6f 63 63 75 72  the IDX-th occur
6760: 61 6e 63 65 20 6f 66 20 22 3f 22 20 69 6e 20 74  ance of "?" in t
6770: 68 65 20 6f 72 69 67 69 6e 61 6c 20 53 51 4c 0a  he original SQL.
6780: 2a 2a 20 73 74 72 69 6e 67 2e 20 20 56 41 4c 55  ** string.  VALU
6790: 45 20 69 73 20 74 68 65 20 6e 65 77 20 76 61 6c  E is the new val
67a0: 75 65 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d 22  ue.  If FLAGS=="
67b0: 6e 75 6c 6c 22 20 74 68 65 6e 20 56 41 4c 55 45  null" then VALUE
67c0: 20 69 73 0a 2a 2a 20 69 67 6e 6f 72 65 64 20 61   is.** ignored a
67d0: 6e 64 20 74 68 65 20 76 61 6c 75 65 20 69 73 20  nd the value is 
67e0: 73 65 74 20 74 6f 20 4e 55 4c 4c 2e 20 20 49 66  set to NULL.  If
67f0: 20 46 4c 41 47 53 3d 3d 22 73 74 61 74 69 63 22   FLAGS=="static"
6800: 20 74 68 65 6e 0a 2a 2a 20 74 68 65 20 76 61 6c   then.** the val
6810: 75 65 20 69 73 20 73 65 74 20 74 6f 20 74 68 65  ue is set to the
6820: 20 76 61 6c 75 65 20 6f 66 20 61 20 73 74 61 74   value of a stat
6830: 69 63 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65  ic variable name
6840: 64 0a 2a 2a 20 22 73 71 6c 69 74 65 5f 73 74 61  d.** "sqlite_sta
6850: 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 22 2e  tic_bind_value".
6860: 20 20 49 66 20 46 4c 41 47 53 3d 3d 22 6e 6f 72    If FLAGS=="nor
6870: 6d 61 6c 22 20 74 68 65 6e 20 61 20 63 6f 70 79  mal" then a copy
6880: 0a 2a 2a 20 6f 66 20 74 68 65 20 56 41 4c 55 45  .** of the VALUE
6890: 20 69 73 20 6d 61 64 65 2e 0a 2a 2f 0a 73 74 61   is made..*/.sta
68a0: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e  tic int test_bin
68b0: 64 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73  d(.  void *NotUs
68c0: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ed,.  Tcl_Interp
68d0: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20   *interp,    /* 
68e0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65  The TCL interpre
68f0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64  ter that invoked
6900: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f   this command */
6910: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20  .  int argc,    
6920: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
6930: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
6940: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67   */.  char **arg
6950: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  v            /* 
6960: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67  Text of each arg
6970: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71  ument */.){.  sq
6980: 6c 69 74 65 5f 76 6d 20 2a 76 6d 3b 0a 20 20 69  lite_vm *vm;.  i
6990: 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 69 64 78  nt rc;.  int idx
69a0: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 35 20  ;.  if( argc!=5 
69b0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  ){.    Tcl_Appen
69c0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
69d0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  "wrong # args: s
69e0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72  hould be \"", ar
69f0: 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22  gv[0], .       "
6a00: 20 56 4d 20 49 44 58 20 56 41 4c 55 45 20 28 6e   VM IDX VALUE (n
6a10: 75 6c 6c 7c 73 74 61 74 69 63 7c 6e 6f 72 6d 61  ull|static|norma
6a20: 6c 29 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72  l)\"", 0);.    r
6a30: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
6a40: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 56 6d  .  }.  if( getVm
6a50: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20  Pointer(interp, 
6a60: 61 72 67 76 5b 31 5d 2c 20 26 76 6d 29 20 29 20  argv[1], &vm) ) 
6a70: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
6a80: 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49  ;.  if( Tcl_GetI
6a90: 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b  nt(interp, argv[
6aa0: 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 75  2], &idx) ) retu
6ab0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
6ac0: 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b  if( strcmp(argv[
6ad0: 34 5d 2c 22 6e 75 6c 6c 22 29 3d 3d 30 20 29 7b  4],"null")==0 ){
6ae0: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65  .    rc = sqlite
6af0: 5f 62 69 6e 64 28 76 6d 2c 20 69 64 78 2c 20 30  _bind(vm, idx, 0
6b00: 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 65 6c 73 65  , 0, 0);.  }else
6b10: 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76   if( strcmp(argv
6b20: 5b 34 5d 2c 22 73 74 61 74 69 63 22 29 3d 3d 30  [4],"static")==0
6b30: 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c   ){.    rc = sql
6b40: 69 74 65 5f 62 69 6e 64 28 76 6d 2c 20 69 64 78  ite_bind(vm, idx
6b50: 2c 20 73 71 6c 69 74 65 5f 73 74 61 74 69 63 5f  , sqlite_static_
6b60: 62 69 6e 64 5f 76 61 6c 75 65 2c 20 2d 31 2c 20  bind_value, -1, 
6b70: 30 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20  0);.  }else if( 
6b80: 73 74 72 63 6d 70 28 61 72 67 76 5b 34 5d 2c 22  strcmp(argv[4],"
6b90: 6e 6f 72 6d 61 6c 22 29 3d 3d 30 20 29 7b 0a 20  normal")==0 ){. 
6ba0: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 5f 62     rc = sqlite_b
6bb0: 69 6e 64 28 76 6d 2c 20 69 64 78 2c 20 61 72 67  ind(vm, idx, arg
6bc0: 76 5b 33 5d 2c 20 2d 31 2c 20 31 29 3b 0a 20 20  v[3], -1, 1);.  
6bd0: 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f 41  }else{.    Tcl_A
6be0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
6bf0: 72 70 2c 20 22 34 74 68 20 61 72 67 75 6d 65 6e  rp, "4th argumen
6c00: 74 20 73 68 6f 75 6c 64 20 62 65 20 22 0a 20 20  t should be ".  
6c10: 20 20 20 20 20 20 22 5c 22 6e 75 6c 6c 5c 22 20        "\"null\" 
6c20: 6f 72 20 5c 22 73 74 61 74 69 63 5c 22 20 6f 72  or \"static\" or
6c30: 20 5c 22 6e 6f 72 6d 61 6c 5c 22 22 2c 20 30 29   \"normal\"", 0)
6c40: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
6c50: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66  _ERROR;.  }.  if
6c60: 28 20 72 63 20 29 7b 0a 20 20 20 20 63 68 61 72  ( rc ){.    char
6c70: 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 20 20 73   zBuf[50];.    s
6c80: 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 28 25  printf(zBuf, "(%
6c90: 64 29 20 22 2c 20 72 63 29 3b 0a 20 20 20 20 54  d) ", rc);.    T
6ca0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
6cb0: 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 73 71  interp, zBuf, sq
6cc0: 6c 69 74 65 5f 65 72 72 6f 72 5f 73 74 72 69 6e  lite_error_strin
6cd0: 67 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72  g(rc), 0);.    r
6ce0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
6cf0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43  .  }.  return TC
6d00: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55  L_OK;.}../*.** U
6d10: 73 61 67 65 3a 20 20 20 20 62 72 65 61 6b 70 6f  sage:    breakpo
6d20: 69 6e 74 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72  int.**.** This r
6d30: 6f 75 74 69 6e 65 20 65 78 69 73 74 73 20 66 6f  outine exists fo
6d40: 72 20 6f 6e 65 20 70 75 72 70 6f 73 65 20 2d 20  r one purpose - 
6d50: 74 6f 20 70 72 6f 76 69 64 65 20 61 20 70 6c 61  to provide a pla
6d60: 63 65 20 74 6f 20 70 75 74 20 61 0a 2a 2a 20 62  ce to put a.** b
6d70: 72 65 61 6b 70 6f 69 6e 74 20 77 69 74 68 20 47  reakpoint with G
6d80: 44 42 20 74 68 61 74 20 63 61 6e 20 62 65 20 74  DB that can be t
6d90: 72 69 67 67 65 72 65 64 20 75 73 69 6e 67 20 54  riggered using T
6da0: 43 4c 20 63 6f 64 65 2e 20 20 54 68 65 20 75 73  CL code.  The us
6db0: 65 0a 2a 2a 20 66 6f 72 20 74 68 69 73 20 69 73  e.** for this is
6dc0: 20 77 68 65 6e 20 61 20 70 61 72 74 69 63 75 6c   when a particul
6dd0: 61 72 20 74 65 73 74 20 66 61 69 6c 73 20 6f 6e  ar test fails on
6de0: 20 28 73 61 79 29 20 74 68 65 20 31 34 38 35 74   (say) the 1485t
6df0: 68 20 69 74 65 72 61 74 69 6f 6e 2e 0a 2a 2a 20  h iteration..** 
6e00: 49 6e 20 74 68 65 20 54 43 4c 20 74 65 73 74 20  In the TCL test 
6e10: 73 63 72 69 70 74 2c 20 77 65 20 63 61 6e 20 61  script, we can a
6e20: 64 64 20 63 6f 64 65 20 6c 69 6b 65 20 74 68 69  dd code like thi
6e30: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 69 66 20  s:.**.**     if 
6e40: 7b 24 69 3d 3d 31 34 38 35 7d 20 62 72 65 61 6b  {$i==1485} break
6e50: 70 6f 69 6e 74 0a 2a 2a 0a 2a 2a 20 54 68 65 6e  point.**.** Then
6e60: 20 72 75 6e 20 74 65 73 74 66 69 78 74 75 72 65   run testfixture
6e70: 20 69 6e 20 74 68 65 20 64 65 62 75 67 67 65 72   in the debugger
6e80: 20 61 6e 64 20 77 61 69 74 20 66 6f 72 20 74 68   and wait for th
6e90: 65 20 62 72 65 61 6b 70 6f 69 6e 74 20 74 6f 0a  e breakpoint to.
6ea0: 2a 2a 20 66 69 72 65 2e 20 20 54 68 65 6e 20 61  ** fire.  Then a
6eb0: 64 64 69 74 69 6f 6e 61 6c 20 62 72 65 61 6b 70  dditional breakp
6ec0: 6f 69 6e 74 73 20 63 61 6e 20 62 65 20 73 65 74  oints can be set
6ed0: 20 74 6f 20 74 72 61 63 65 20 64 6f 77 6e 20 74   to trace down t
6ee0: 68 65 20 62 75 67 2e 0a 2a 2f 0a 73 74 61 74 69  he bug..*/.stati
6ef0: 63 20 69 6e 74 20 74 65 73 74 5f 62 72 65 61 6b  c int test_break
6f00: 70 6f 69 6e 74 28 0a 20 20 76 6f 69 64 20 2a 4e  point(.  void *N
6f10: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e  otUsed,.  Tcl_In
6f20: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20  terp *interp,   
6f30: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65   /* The TCL inte
6f40: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76  rpreter that inv
6f50: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e  oked this comman
6f60: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c  d */.  int argc,
6f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
6f80: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d   Number of argum
6f90: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a  ents */.  char *
6fa0: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20  *argv           
6fb0: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68   /* Text of each
6fc0: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a   argument */.){.
6fd0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
6fe0: 20 20 20 20 20 20 20 20 20 2f 2a 20 44 6f 20 6e           /* Do n
6ff0: 6f 74 68 69 6e 67 20 2a 2f 0a 7d 0a 0a 2f 2a 0a  othing */.}../*.
7000: 2a 2a 20 52 65 67 69 73 74 65 72 20 63 6f 6d 6d  ** Register comm
7010: 61 6e 64 73 20 77 69 74 68 20 74 68 65 20 54 43  ands with the TC
7020: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a  L interpreter..*
7030: 2f 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74  /.int Sqlitetest
7040: 31 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72  1_Init(Tcl_Inter
7050: 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 65 78  p *interp){.  ex
7060: 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 5f  tern int sqlite_
7070: 73 65 61 72 63 68 5f 63 6f 75 6e 74 3b 0a 20 20  search_count;.  
7080: 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74  extern int sqlit
7090: 65 5f 69 6e 74 65 72 72 75 70 74 5f 63 6f 75 6e  e_interrupt_coun
70a0: 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20  t;.  extern int 
70b0: 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65  sqlite_open_file
70c0: 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 6e  _count;.  extern
70d0: 20 69 6e 74 20 73 71 6c 69 74 65 5f 63 75 72 72   int sqlite_curr
70e0: 65 6e 74 5f 74 69 6d 65 3b 0a 20 20 73 74 61 74  ent_time;.  stat
70f0: 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20 20  ic struct {.    
7100: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20   char *zName;.  
7110: 20 20 20 54 63 6c 5f 43 6d 64 50 72 6f 63 20 2a     Tcl_CmdProc *
7120: 78 50 72 6f 63 3b 0a 20 20 7d 20 61 43 6d 64 5b  xProc;.  } aCmd[
7130: 5d 20 3d 20 7b 0a 20 20 20 20 20 7b 20 22 73 71  ] = {.     { "sq
7140: 6c 69 74 65 5f 6d 70 72 69 6e 74 66 5f 69 6e 74  lite_mprintf_int
7150: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 28  ",             (
7160: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c  Tcl_CmdProc*)sql
7170: 69 74 65 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 20  ite_mprintf_int 
7180: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71     },.     { "sq
7190: 6c 69 74 65 5f 6d 70 72 69 6e 74 66 5f 73 74 72  lite_mprintf_str
71a0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 28  ",             (
71b0: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c  Tcl_CmdProc*)sql
71c0: 69 74 65 5f 6d 70 72 69 6e 74 66 5f 73 74 72 20  ite_mprintf_str 
71d0: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71     },.     { "sq
71e0: 6c 69 74 65 5f 6d 70 72 69 6e 74 66 5f 64 6f 75  lite_mprintf_dou
71f0: 62 6c 65 22 2c 20 20 20 20 20 20 20 20 20 20 28  ble",          (
7200: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c  Tcl_CmdProc*)sql
7210: 69 74 65 5f 6d 70 72 69 6e 74 66 5f 64 6f 75 62  ite_mprintf_doub
7220: 6c 65 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71  le },.     { "sq
7230: 6c 69 74 65 5f 6d 70 72 69 6e 74 66 5f 73 63 61  lite_mprintf_sca
7240: 6c 65 64 22 2c 20 20 20 20 20 20 20 20 20 20 28  led",          (
7250: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c  Tcl_CmdProc*)sql
7260: 69 74 65 5f 6d 70 72 69 6e 74 66 5f 73 63 61 6c  ite_mprintf_scal
7270: 65 64 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71  ed },.     { "sq
7280: 6c 69 74 65 5f 6d 70 72 69 6e 74 66 5f 7a 5f 74  lite_mprintf_z_t
7290: 65 73 74 22 2c 20 20 20 20 20 20 20 20 20 20 28  est",          (
72a0: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73  Tcl_CmdProc*)tes
72b0: 74 5f 6d 70 72 69 6e 74 66 5f 7a 20 20 20 20 20  t_mprintf_z     
72c0: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71     },.     { "sq
72d0: 6c 69 74 65 5f 6f 70 65 6e 22 2c 20 20 20 20 20  lite_open",     
72e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
72f0: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c  Tcl_CmdProc*)sql
7300: 69 74 65 5f 74 65 73 74 5f 6f 70 65 6e 20 20 20  ite_test_open   
7310: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71     },.     { "sq
7320: 6c 69 74 65 5f 6c 61 73 74 5f 69 6e 73 65 72 74  lite_last_insert
7330: 5f 72 6f 77 69 64 22 2c 20 20 20 20 20 20 20 28  _rowid",       (
7340: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73  Tcl_CmdProc*)tes
7350: 74 5f 6c 61 73 74 5f 72 6f 77 69 64 20 20 20 20  t_last_rowid    
7360: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71     },.     { "sq
7370: 6c 69 74 65 5f 65 78 65 63 5f 70 72 69 6e 74 66  lite_exec_printf
7380: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 28  ",             (
7390: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73  Tcl_CmdProc*)tes
73a0: 74 5f 65 78 65 63 5f 70 72 69 6e 74 66 20 20 20  t_exec_printf   
73b0: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71     },.     { "sq
73c0: 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c 65 5f 70  lite_get_table_p
73d0: 72 69 6e 74 66 22 2c 20 20 20 20 20 20 20 20 28  rintf",        (
73e0: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73  Tcl_CmdProc*)tes
73f0: 74 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e  t_get_table_prin
7400: 74 66 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71  tf },.     { "sq
7410: 6c 69 74 65 5f 63 6c 6f 73 65 22 2c 20 20 20 20  lite_close",    
7420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
7430: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c  Tcl_CmdProc*)sql
7440: 69 74 65 5f 74 65 73 74 5f 63 6c 6f 73 65 20 20  ite_test_close  
7450: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71     },.     { "sq
7460: 6c 69 74 65 5f 63 72 65 61 74 65 5f 66 75 6e 63  lite_create_func
7470: 74 69 6f 6e 22 2c 20 20 20 20 20 20 20 20 20 28  tion",         (
7480: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73  Tcl_CmdProc*)tes
7490: 74 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f  t_create_functio
74a0: 6e 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71  n  },.     { "sq
74b0: 6c 69 74 65 5f 63 72 65 61 74 65 5f 61 67 67 72  lite_create_aggr
74c0: 65 67 61 74 65 22 2c 20 20 20 20 20 20 20 20 28  egate",        (
74d0: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73  Tcl_CmdProc*)tes
74e0: 74 5f 63 72 65 61 74 65 5f 61 67 67 72 65 67 61  t_create_aggrega
74f0: 74 65 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71  te },.     { "sq
7500: 6c 69 74 65 5f 72 65 67 69 73 74 65 72 5f 74 65  lite_register_te
7510: 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 20 28  st_function",  (
7520: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73  Tcl_CmdProc*)tes
7530: 74 5f 72 65 67 69 73 74 65 72 5f 66 75 6e 63 20  t_register_func 
7540: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71     },.     { "sq
7550: 6c 69 74 65 5f 61 62 6f 72 74 22 2c 20 20 20 20  lite_abort",    
7560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
7570: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c  Tcl_CmdProc*)sql
7580: 69 74 65 5f 61 62 6f 72 74 20 20 20 20 20 20 20  ite_abort       
7590: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71     },.     { "sq
75a0: 6c 69 74 65 5f 64 61 74 61 74 79 70 65 73 22 2c  lite_datatypes",
75b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
75c0: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c  Tcl_CmdProc*)sql
75d0: 69 74 65 5f 64 61 74 61 74 79 70 65 73 20 20 20  ite_datatypes   
75e0: 20 20 20 7d 2c 0a 23 69 66 64 65 66 20 4d 45 4d     },.#ifdef MEM
75f0: 4f 52 59 5f 44 45 42 55 47 0a 20 20 20 20 20 7b  ORY_DEBUG.     {
7600: 20 22 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f   "sqlite_malloc_
7610: 66 61 69 6c 22 2c 20 20 20 20 20 20 20 20 20 20  fail",          
7620: 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a     (Tcl_CmdProc*
7630: 29 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66  )sqlite_malloc_f
7640: 61 69 6c 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b  ail    },.     {
7650: 20 22 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f   "sqlite_malloc_
7660: 73 74 61 74 22 2c 20 20 20 20 20 20 20 20 20 20  stat",          
7670: 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a     (Tcl_CmdProc*
7680: 29 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f 73  )sqlite_malloc_s
7690: 74 61 74 20 20 20 20 7d 2c 0a 23 65 6e 64 69 66  tat    },.#endif
76a0: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f  .     { "sqlite_
76b0: 63 6f 6d 70 69 6c 65 22 2c 20 20 20 20 20 20 20  compile",       
76c0: 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43            (Tcl_C
76d0: 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 63 6f 6d  mdProc*)test_com
76e0: 70 69 6c 65 20 20 20 20 20 20 20 20 20 20 7d 2c  pile          },
76f0: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f  .     { "sqlite_
7700: 73 74 65 70 22 2c 20 20 20 20 20 20 20 20 20 20  step",          
7710: 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43            (Tcl_C
7720: 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 73 74 65  mdProc*)test_ste
7730: 70 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c  p             },
7740: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f  .     { "sqlite_
7750: 66 69 6e 61 6c 69 7a 65 22 2c 20 20 20 20 20 20  finalize",      
7760: 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43            (Tcl_C
7770: 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 66 69 6e  mdProc*)test_fin
7780: 61 6c 69 7a 65 20 20 20 20 20 20 20 20 20 7d 2c  alize         },
7790: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f  .     { "sqlite_
77a0: 62 69 6e 64 22 2c 20 20 20 20 20 20 20 20 20 20  bind",          
77b0: 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43            (Tcl_C
77c0: 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 62 69 6e  mdProc*)test_bin
77d0: 64 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c  d             },
77e0: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f  .     { "sqlite_
77f0: 72 65 73 65 74 22 2c 20 20 20 20 20 20 20 20 20  reset",         
7800: 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43            (Tcl_C
7810: 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 72 65 73  mdProc*)test_res
7820: 65 74 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c  et            },
7830: 0a 20 20 20 20 20 7b 20 22 62 72 65 61 6b 70 6f  .     { "breakpo
7840: 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20 20 20  int",           
7850: 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43            (Tcl_C
7860: 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 62 72 65  mdProc*)test_bre
7870: 61 6b 70 6f 69 6e 74 20 20 20 20 20 20 20 7d 2c  akpoint       },
7880: 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a  .  };.  int i;..
7890: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a    for(i=0; i<siz
78a0: 65 6f 66 28 61 43 6d 64 29 2f 73 69 7a 65 6f 66  eof(aCmd)/sizeof
78b0: 28 61 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b  (aCmd[0]); i++){
78c0: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 43  .    Tcl_CreateC
78d0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61  ommand(interp, a
78e0: 43 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 43  Cmd[i].zName, aC
78f0: 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 30 2c 20  md[i].xProc, 0, 
7900: 30 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 4c 69  0);.  }.  Tcl_Li
7910: 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73  nkVar(interp, "s
7920: 71 6c 69 74 65 5f 73 65 61 72 63 68 5f 63 6f 75  qlite_search_cou
7930: 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 63 68 61  nt", .      (cha
7940: 72 2a 29 26 73 71 6c 69 74 65 5f 73 65 61 72 63  r*)&sqlite_searc
7950: 68 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e  h_count, TCL_LIN
7960: 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69  K_INT);.  Tcl_Li
7970: 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73  nkVar(interp, "s
7980: 71 6c 69 74 65 5f 69 6e 74 65 72 72 75 70 74 5f  qlite_interrupt_
7990: 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28  count", .      (
79a0: 63 68 61 72 2a 29 26 73 71 6c 69 74 65 5f 69 6e  char*)&sqlite_in
79b0: 74 65 72 72 75 70 74 5f 63 6f 75 6e 74 2c 20 54  terrupt_count, T
79c0: 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20  CL_LINK_INT);.  
79d0: 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65  Tcl_LinkVar(inte
79e0: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 65 6e  rp, "sqlite_open
79f0: 5f 66 69 6c 65 5f 63 6f 75 6e 74 22 2c 20 0a 20  _file_count", . 
7a00: 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c       (char*)&sql
7a10: 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f  ite_open_file_co
7a20: 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e  unt, TCL_LINK_IN
7a30: 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61  T);.  Tcl_LinkVa
7a40: 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  r(interp, "sqlit
7a50: 65 5f 63 75 72 72 65 6e 74 5f 74 69 6d 65 22 2c  e_current_time",
7a60: 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26   .      (char*)&
7a70: 73 71 6c 69 74 65 5f 63 75 72 72 65 6e 74 5f 74  sqlite_current_t
7a80: 69 6d 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e  ime, TCL_LINK_IN
7a90: 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61  T);.  Tcl_LinkVa
7aa0: 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  r(interp, "sqlit
7ab0: 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61  e_static_bind_va
7ac0: 6c 75 65 22 2c 0a 20 20 20 20 20 20 28 63 68 61  lue",.      (cha
7ad0: 72 2a 29 26 73 71 6c 69 74 65 5f 73 74 61 74 69  r*)&sqlite_stati
7ae0: 63 5f 62 69 6e 64 5f 76 61 6c 75 65 2c 20 54 43  c_bind_value, TC
7af0: 4c 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 29 3b 0a  L_LINK_STRING);.
7b00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
7b10: 0a 7d 0a                                         .}.