/ Hex Artifact Content
Login

Artifact 07cbbfbf48fbe8c3d904d91d7f7f3617ebbe4d95:


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 41 20 54 43 4c 20  ******.** A TCL 
0180: 49 6e 74 65 72 66 61 63 65 20 74 6f 20 53 51 4c  Interface to SQL
0190: 69 74 65 2e 20 20 41 70 70 65 6e 64 20 74 68 69  ite.  Append thi
01a0: 73 20 66 69 6c 65 20 74 6f 20 73 71 6c 69 74 65  s file to sqlite
01b0: 33 2e 63 20 61 6e 64 0a 2a 2a 20 63 6f 6d 70 69  3.c and.** compi
01c0: 6c 65 20 74 68 65 20 77 68 6f 6c 65 20 74 68 69  le the whole thi
01d0: 6e 67 20 74 6f 20 62 75 69 6c 64 20 61 20 54 43  ng to build a TC
01e0: 4c 2d 65 6e 61 62 6c 65 64 20 76 65 72 73 69 6f  L-enabled versio
01f0: 6e 20 6f 66 20 53 51 4c 69 74 65 2e 0a 2a 2a 0a  n of SQLite..**.
0200: 2a 2a 20 43 6f 6d 70 69 6c 65 2d 74 69 6d 65 20  ** Compile-time 
0210: 6f 70 74 69 6f 6e 73 3a 0a 2a 2a 0a 2a 2a 20 20  options:.**.**  
0220: 2d 44 54 43 4c 53 48 3d 31 20 20 20 20 20 20 20  -DTCLSH=1       
0230: 20 20 20 20 20 20 41 64 64 20 61 20 22 6d 61 69        Add a "mai
0240: 6e 28 29 22 20 72 6f 75 74 69 6e 65 20 74 68 61  n()" routine tha
0250: 74 20 77 6f 72 6b 73 20 61 73 20 61 20 74 63 6c  t works as a tcl
0260: 73 68 2e 0a 2a 2a 0a 2a 2a 20 20 2d 44 53 51 4c  sh..**.**  -DSQL
0270: 49 54 45 5f 54 43 4c 4d 44 35 20 20 20 20 20 20  ITE_TCLMD5      
0280: 20 57 68 65 6e 20 75 73 65 64 20 69 6e 20 63 6f   When used in co
0290: 6e 6a 75 63 74 69 6f 6e 20 77 69 74 68 20 2d 44  njuction with -D
02a0: 54 43 4c 53 48 3d 31 2c 20 61 64 64 0a 2a 2a 20  TCLSH=1, add.** 
02b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02c0: 20 20 20 20 20 20 20 66 6f 75 72 20 6e 65 77 20         four new 
02d0: 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 74 68 65 20  commands to the 
02e0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20  TCL interpreter 
02f0: 66 6f 72 0a 2a 2a 20 20 20 20 20 20 20 20 20 20  for.**          
0300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65                ge
0310: 6e 65 72 61 74 69 6e 67 20 4d 44 35 20 63 68 65  nerating MD5 che
0320: 63 6b 73 75 6d 73 3a 20 20 6d 64 35 2c 20 6d 64  cksums:  md5, md
0330: 35 66 69 6c 65 2c 0a 2a 2a 20 20 20 20 20 20 20  5file,.**       
0340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0350: 20 6d 64 35 2d 31 30 78 38 2c 20 61 6e 64 20 6d   md5-10x8, and m
0360: 64 35 66 69 6c 65 2d 31 30 78 38 2e 0a 2a 2a 0a  d5file-10x8..**.
0370: 2a 2a 20 20 2d 44 53 51 4c 49 54 45 5f 54 45 53  **  -DSQLITE_TES
0380: 54 20 20 20 20 20 20 20 20 20 57 68 65 6e 20 75  T         When u
0390: 73 65 64 20 69 6e 20 63 6f 6e 6a 75 63 74 69 6f  sed in conjuctio
03a0: 6e 20 77 69 74 68 20 2d 44 54 43 4c 53 48 3d 31  n with -DTCLSH=1
03b0: 2c 20 61 64 64 0a 2a 2a 20 20 20 20 20 20 20 20  , add.**        
03c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
03d0: 68 75 6e 64 72 65 64 73 20 6f 66 20 6e 65 77 20  hundreds of new 
03e0: 63 6f 6d 6d 61 6e 64 73 20 75 73 65 64 20 66 6f  commands used fo
03f0: 72 20 74 65 73 74 69 6e 67 0a 2a 2a 20 20 20 20  r testing.**    
0400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0410: 20 20 20 20 53 51 4c 69 74 65 2e 20 20 54 68 69      SQLite.  Thi
0420: 73 20 6f 70 74 69 6f 6e 20 69 6d 70 6c 69 65 73  s option implies
0430: 20 2d 44 53 51 4c 49 54 45 5f 54 43 4c 4d 44 35   -DSQLITE_TCLMD5
0440: 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 74  ..*/.#include "t
0450: 63 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c  cl.h".#include <
0460: 65 72 72 6e 6f 2e 68 3e 0a 0a 2f 2a 0a 2a 2a 20  errno.h>../*.** 
0470: 53 6f 6d 65 20 61 64 64 69 74 69 6f 6e 61 6c 20  Some additional 
0480: 69 6e 63 6c 75 64 65 20 66 69 6c 65 73 20 61 72  include files ar
0490: 65 20 6e 65 65 64 65 64 20 69 66 20 74 68 69 73  e needed if this
04a0: 20 66 69 6c 65 20 69 73 20 6e 6f 74 0a 2a 2a 20   file is not.** 
04b0: 61 70 70 65 6e 64 65 64 20 74 6f 20 74 68 65 20  appended to the 
04c0: 61 6d 61 6c 67 61 6d 61 74 69 6f 6e 2e 0a 2a 2f  amalgamation..*/
04d0: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f  .#ifndef SQLITE_
04e0: 41 4d 41 4c 47 41 4d 41 54 49 4f 4e 0a 23 20 69  AMALGAMATION.# i
04f0: 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 33 2e  nclude "sqlite3.
0500: 68 22 0a 23 20 69 6e 63 6c 75 64 65 20 3c 73 74  h".# include <st
0510: 64 6c 69 62 2e 68 3e 0a 23 20 69 6e 63 6c 75 64  dlib.h>.# includ
0520: 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 20 69  e <string.h>.# i
0530: 6e 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68  nclude <assert.h
0540: 3e 0a 20 20 74 79 70 65 64 65 66 20 75 6e 73 69  >.  typedef unsi
0550: 67 6e 65 64 20 63 68 61 72 20 75 38 3b 0a 23 65  gned char u8;.#e
0560: 6e 64 69 66 0a 23 69 6e 63 6c 75 64 65 20 3c 63  ndif.#include <c
0570: 74 79 70 65 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 57  type.h>../*. * W
0580: 69 6e 64 6f 77 73 20 6e 65 65 64 73 20 74 6f 20  indows needs to 
0590: 6b 6e 6f 77 20 77 68 69 63 68 20 73 79 6d 62 6f  know which symbo
05a0: 6c 73 20 74 6f 20 65 78 70 6f 72 74 2e 20 20 55  ls to export.  U
05b0: 6e 69 78 20 64 6f 65 73 20 6e 6f 74 2e 0a 20 2a  nix does not.. *
05c0: 20 42 55 49 4c 44 5f 73 71 6c 69 74 65 20 73 68   BUILD_sqlite sh
05d0: 6f 75 6c 64 20 62 65 20 75 6e 64 65 66 69 6e 65  ould be undefine
05e0: 64 20 66 6f 72 20 55 6e 69 78 2e 0a 20 2a 2f 0a  d for Unix.. */.
05f0: 23 69 66 64 65 66 20 42 55 49 4c 44 5f 73 71 6c  #ifdef BUILD_sql
0600: 69 74 65 0a 23 75 6e 64 65 66 20 54 43 4c 5f 53  ite.#undef TCL_S
0610: 54 4f 52 41 47 45 5f 43 4c 41 53 53 0a 23 64 65  TORAGE_CLASS.#de
0620: 66 69 6e 65 20 54 43 4c 5f 53 54 4f 52 41 47 45  fine TCL_STORAGE
0630: 5f 43 4c 41 53 53 20 44 4c 4c 45 58 50 4f 52 54  _CLASS DLLEXPORT
0640: 0a 23 65 6e 64 69 66 20 2f 2a 20 42 55 49 4c 44  .#endif /* BUILD
0650: 5f 73 71 6c 69 74 65 20 2a 2f 0a 0a 23 64 65 66  _sqlite */..#def
0660: 69 6e 65 20 4e 55 4d 5f 50 52 45 50 41 52 45 44  ine NUM_PREPARED
0670: 5f 53 54 4d 54 53 20 31 30 0a 23 64 65 66 69 6e  _STMTS 10.#defin
0680: 65 20 4d 41 58 5f 50 52 45 50 41 52 45 44 5f 53  e MAX_PREPARED_S
0690: 54 4d 54 53 20 31 30 30 0a 0a 2f 2a 0a 2a 2a 20  TMTS 100../*.** 
06a0: 49 66 20 54 43 4c 20 75 73 65 73 20 55 54 46 2d  If TCL uses UTF-
06b0: 38 20 61 6e 64 20 53 51 4c 69 74 65 20 69 73 20  8 and SQLite is 
06c0: 63 6f 6e 66 69 67 75 72 65 64 20 74 6f 20 75 73  configured to us
06d0: 65 20 69 73 6f 38 38 35 39 2c 20 74 68 65 6e 20  e iso8859, then 
06e0: 77 65 0a 2a 2a 20 68 61 76 65 20 74 6f 20 64 6f  we.** have to do
06f0: 20 61 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 77   a translation w
0700: 68 65 6e 20 67 6f 69 6e 67 20 62 65 74 77 65 65  hen going betwee
0710: 6e 20 74 68 65 20 74 77 6f 2e 20 20 53 65 74 20  n the two.  Set 
0720: 74 68 65 20 0a 2a 2a 20 55 54 46 5f 54 52 41 4e  the .** UTF_TRAN
0730: 53 4c 41 54 49 4f 4e 5f 4e 45 45 44 45 44 20 6d  SLATION_NEEDED m
0740: 61 63 72 6f 20 74 6f 20 69 6e 64 69 63 61 74 65  acro to indicate
0750: 20 74 68 61 74 20 77 65 20 6e 65 65 64 20 74 6f   that we need to
0760: 20 64 6f 0a 2a 2a 20 74 68 69 73 20 74 72 61 6e   do.** this tran
0770: 73 6c 61 74 69 6f 6e 2e 20 20 0a 2a 2f 0a 23 69  slation.  .*/.#i
0780: 66 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 55 54  f defined(TCL_UT
0790: 46 5f 4d 41 58 29 20 26 26 20 21 64 65 66 69 6e  F_MAX) && !defin
07a0: 65 64 28 53 51 4c 49 54 45 5f 55 54 46 38 29 0a  ed(SQLITE_UTF8).
07b0: 23 20 64 65 66 69 6e 65 20 55 54 46 5f 54 52 41  # define UTF_TRA
07c0: 4e 53 4c 41 54 49 4f 4e 5f 4e 45 45 44 45 44 20  NSLATION_NEEDED 
07d0: 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20  1.#endif../*.** 
07e0: 4e 65 77 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e  New SQL function
07f0: 73 20 63 61 6e 20 62 65 20 63 72 65 61 74 65 64  s can be created
0800: 20 61 73 20 54 43 4c 20 73 63 72 69 70 74 73 2e   as TCL scripts.
0810: 20 20 45 61 63 68 20 73 75 63 68 20 66 75 6e 63    Each such func
0820: 74 69 6f 6e 0a 2a 2a 20 69 73 20 64 65 73 63 72  tion.** is descr
0830: 69 62 65 64 20 62 79 20 61 6e 20 69 6e 73 74 61  ibed by an insta
0840: 6e 63 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f  nce of the follo
0850: 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 2e 0a  wing structure..
0860: 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75 63  */.typedef struc
0870: 74 20 53 71 6c 46 75 6e 63 20 53 71 6c 46 75 6e  t SqlFunc SqlFun
0880: 63 3b 0a 73 74 72 75 63 74 20 53 71 6c 46 75 6e  c;.struct SqlFun
0890: 63 20 7b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  c {.  Tcl_Interp
08a0: 20 2a 69 6e 74 65 72 70 3b 20 20 20 2f 2a 20 54   *interp;   /* T
08b0: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74  he TCL interpret
08c0: 20 74 6f 20 65 78 65 63 75 74 65 20 74 68 65 20   to execute the 
08d0: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63  function */.  Tc
08e0: 6c 5f 4f 62 6a 20 2a 70 53 63 72 69 70 74 3b 20  l_Obj *pScript; 
08f0: 20 20 20 20 2f 2a 20 54 68 65 20 54 63 6c 5f 4f      /* The Tcl_O
0900: 62 6a 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f  bj representatio
0910: 6e 20 6f 66 20 74 68 65 20 73 63 72 69 70 74 20  n of the script 
0920: 2a 2f 0a 20 20 69 6e 74 20 75 73 65 45 76 61 6c  */.  int useEval
0930: 4f 62 6a 76 3b 20 20 20 20 20 20 2f 2a 20 54 72  Objv;      /* Tr
0940: 75 65 20 69 66 20 69 74 20 69 73 20 73 61 66 65  ue if it is safe
0950: 20 74 6f 20 75 73 65 20 54 63 6c 5f 45 76 61 6c   to use Tcl_Eval
0960: 4f 62 6a 76 20 2a 2f 0a 20 20 63 68 61 72 20 2a  Objv */.  char *
0970: 7a 4e 61 6d 65 3b 20 20 20 20 20 20 20 20 20 20  zName;          
0980: 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 69 73 20  /* Name of this 
0990: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 53 71  function */.  Sq
09a0: 6c 46 75 6e 63 20 2a 70 4e 65 78 74 3b 20 20 20  lFunc *pNext;   
09b0: 20 20 20 20 2f 2a 20 4e 65 78 74 20 66 75 6e 63      /* Next func
09c0: 74 69 6f 6e 20 6f 6e 20 74 68 65 20 6c 69 73 74  tion on the list
09d0: 20 6f 66 20 74 68 65 6d 20 61 6c 6c 20 2a 2f 0a   of them all */.
09e0: 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 4e 65 77 20 63 6f  };../*.** New co
09f0: 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65  llation sequence
0a00: 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 20 62  s function can b
0a10: 65 20 63 72 65 61 74 65 64 20 61 73 20 54 43 4c  e created as TCL
0a20: 20 73 63 72 69 70 74 73 2e 20 20 45 61 63 68 20   scripts.  Each 
0a30: 73 75 63 68 0a 2a 2a 20 66 75 6e 63 74 69 6f 6e  such.** function
0a40: 20 69 73 20 64 65 73 63 72 69 62 65 64 20 62 79   is described by
0a50: 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20   an instance of 
0a60: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74  the following st
0a70: 72 75 63 74 75 72 65 2e 0a 2a 2f 0a 74 79 70 65  ructure..*/.type
0a80: 64 65 66 20 73 74 72 75 63 74 20 53 71 6c 43 6f  def struct SqlCo
0a90: 6c 6c 61 74 65 20 53 71 6c 43 6f 6c 6c 61 74 65  llate SqlCollate
0aa0: 3b 0a 73 74 72 75 63 74 20 53 71 6c 43 6f 6c 6c  ;.struct SqlColl
0ab0: 61 74 65 20 7b 0a 20 20 54 63 6c 5f 49 6e 74 65  ate {.  Tcl_Inte
0ac0: 72 70 20 2a 69 6e 74 65 72 70 3b 20 20 20 2f 2a  rp *interp;   /*
0ad0: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72   The TCL interpr
0ae0: 65 74 20 74 6f 20 65 78 65 63 75 74 65 20 74 68  et to execute th
0af0: 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20  e function */.  
0b00: 63 68 61 72 20 2a 7a 53 63 72 69 70 74 3b 20 20  char *zScript;  
0b10: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 73 63 72        /* The scr
0b20: 69 70 74 20 74 6f 20 62 65 20 72 75 6e 20 2a 2f  ipt to be run */
0b30: 0a 20 20 53 71 6c 43 6f 6c 6c 61 74 65 20 2a 70  .  SqlCollate *p
0b40: 4e 65 78 74 3b 20 20 20 20 2f 2a 20 4e 65 78 74  Next;    /* Next
0b50: 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 74 68 65   function on the
0b60: 20 6c 69 73 74 20 6f 66 20 74 68 65 6d 20 61 6c   list of them al
0b70: 6c 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 50  l */.};../*.** P
0b80: 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e  repared statemen
0b90: 74 73 20 61 72 65 20 63 61 63 68 65 64 20 66 6f  ts are cached fo
0ba0: 72 20 66 61 73 74 65 72 20 65 78 65 63 75 74 69  r faster executi
0bb0: 6f 6e 2e 20 20 45 61 63 68 20 70 72 65 70 61 72  on.  Each prepar
0bc0: 65 64 0a 2a 2a 20 73 74 61 74 65 6d 65 6e 74 20  ed.** statement 
0bd0: 69 73 20 64 65 73 63 72 69 62 65 64 20 62 79 20  is described by 
0be0: 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74  an instance of t
0bf0: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72  he following str
0c00: 75 63 74 75 72 65 2e 0a 2a 2f 0a 74 79 70 65 64  ucture..*/.typed
0c10: 65 66 20 73 74 72 75 63 74 20 53 71 6c 50 72 65  ef struct SqlPre
0c20: 70 61 72 65 64 53 74 6d 74 20 53 71 6c 50 72 65  paredStmt SqlPre
0c30: 70 61 72 65 64 53 74 6d 74 3b 0a 73 74 72 75 63  paredStmt;.struc
0c40: 74 20 53 71 6c 50 72 65 70 61 72 65 64 53 74 6d  t SqlPreparedStm
0c50: 74 20 7b 0a 20 20 53 71 6c 50 72 65 70 61 72 65  t {.  SqlPrepare
0c60: 64 53 74 6d 74 20 2a 70 4e 65 78 74 3b 20 20 2f  dStmt *pNext;  /
0c70: 2a 20 4e 65 78 74 20 69 6e 20 6c 69 6e 6b 65 64  * Next in linked
0c80: 20 6c 69 73 74 20 2a 2f 0a 20 20 53 71 6c 50 72   list */.  SqlPr
0c90: 65 70 61 72 65 64 53 74 6d 74 20 2a 70 50 72 65  eparedStmt *pPre
0ca0: 76 3b 20 20 2f 2a 20 50 72 65 76 69 6f 75 73 20  v;  /* Previous 
0cb0: 6f 6e 20 74 68 65 20 6c 69 73 74 20 2a 2f 0a 20  on the list */. 
0cc0: 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70   sqlite3_stmt *p
0cd0: 53 74 6d 74 3b 20 20 20 20 20 2f 2a 20 54 68 65  Stmt;     /* The
0ce0: 20 70 72 65 70 61 72 65 64 20 73 74 61 74 65 6d   prepared statem
0cf0: 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 53 71  ent */.  int nSq
0d00: 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  l;              
0d10: 20 20 2f 2a 20 63 68 61 72 73 20 69 6e 20 7a 53    /* chars in zS
0d20: 71 6c 5b 5d 20 2a 2f 0a 20 20 63 6f 6e 73 74 20  ql[] */.  const 
0d30: 63 68 61 72 20 2a 7a 53 71 6c 3b 20 20 20 20 20  char *zSql;     
0d40: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 74 68     /* Text of th
0d50: 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20  e SQL statement 
0d60: 2a 2f 0a 20 20 69 6e 74 20 6e 50 61 72 6d 3b 20  */.  int nParm; 
0d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0d80: 20 53 69 7a 65 20 6f 66 20 61 70 50 61 72 6d 20   Size of apParm 
0d90: 61 72 72 61 79 20 2a 2f 0a 20 20 54 63 6c 5f 4f  array */.  Tcl_O
0da0: 62 6a 20 2a 2a 61 70 50 61 72 6d 3b 20 20 20 20  bj **apParm;    
0db0: 20 20 20 20 2f 2a 20 41 72 72 61 79 20 6f 66 20      /* Array of 
0dc0: 72 65 66 65 72 65 6e 63 65 64 20 6f 62 6a 65 63  referenced objec
0dd0: 74 20 70 6f 69 6e 74 65 72 73 20 2a 2f 0a 7d 3b  t pointers */.};
0de0: 0a 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74  ..typedef struct
0df0: 20 49 6e 63 72 62 6c 6f 62 43 68 61 6e 6e 65 6c   IncrblobChannel
0e00: 20 49 6e 63 72 62 6c 6f 62 43 68 61 6e 6e 65 6c   IncrblobChannel
0e10: 3b 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 72 65 20 69  ;../*.** There i
0e20: 73 20 6f 6e 65 20 69 6e 73 74 61 6e 63 65 20 6f  s one instance o
0e30: 66 20 74 68 69 73 20 73 74 72 75 63 74 75 72 65  f this structure
0e40: 20 66 6f 72 20 65 61 63 68 20 53 51 4c 69 74 65   for each SQLite
0e50: 20 64 61 74 61 62 61 73 65 0a 2a 2a 20 74 68 61   database.** tha
0e60: 74 20 68 61 73 20 62 65 65 6e 20 6f 70 65 6e 65  t has been opene
0e70: 64 20 62 79 20 74 68 65 20 53 51 4c 69 74 65 20  d by the SQLite 
0e80: 54 43 4c 20 69 6e 74 65 72 66 61 63 65 2e 0a 2a  TCL interface..*
0e90: 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74  /.typedef struct
0ea0: 20 53 71 6c 69 74 65 44 62 20 53 71 6c 69 74 65   SqliteDb Sqlite
0eb0: 44 62 3b 0a 73 74 72 75 63 74 20 53 71 6c 69 74  Db;.struct Sqlit
0ec0: 65 44 62 20 7b 0a 20 20 73 71 6c 69 74 65 33 20  eDb {.  sqlite3 
0ed0: 2a 64 62 3b 20 20 20 20 20 20 20 20 20 20 20 20  *db;            
0ee0: 20 20 20 2f 2a 20 54 68 65 20 22 72 65 61 6c 22     /* The "real"
0ef0: 20 64 61 74 61 62 61 73 65 20 73 74 72 75 63 74   database struct
0f00: 75 72 65 2e 20 4d 55 53 54 20 42 45 20 46 49 52  ure. MUST BE FIR
0f10: 53 54 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65  ST */.  Tcl_Inte
0f20: 72 70 20 2a 69 6e 74 65 72 70 3b 20 20 20 20 20  rp *interp;     
0f30: 20 20 20 2f 2a 20 54 68 65 20 69 6e 74 65 72 70     /* The interp
0f40: 72 65 74 65 72 20 75 73 65 64 20 66 6f 72 20 74  reter used for t
0f50: 68 69 73 20 64 61 74 61 62 61 73 65 20 2a 2f 0a  his database */.
0f60: 20 20 63 68 61 72 20 2a 7a 42 75 73 79 3b 20 20    char *zBusy;  
0f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
0f80: 54 68 65 20 62 75 73 79 20 63 61 6c 6c 62 61 63  The busy callbac
0f90: 6b 20 72 6f 75 74 69 6e 65 20 2a 2f 0a 20 20 63  k routine */.  c
0fa0: 68 61 72 20 2a 7a 43 6f 6d 6d 69 74 3b 20 20 20  har *zCommit;   
0fb0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65            /* The
0fc0: 20 63 6f 6d 6d 69 74 20 68 6f 6f 6b 20 63 61 6c   commit hook cal
0fd0: 6c 62 61 63 6b 20 72 6f 75 74 69 6e 65 20 2a 2f  lback routine */
0fe0: 0a 20 20 63 68 61 72 20 2a 7a 54 72 61 63 65 3b  .  char *zTrace;
0ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1000: 20 54 68 65 20 74 72 61 63 65 20 63 61 6c 6c 62   The trace callb
1010: 61 63 6b 20 72 6f 75 74 69 6e 65 20 2a 2f 0a 20  ack routine */. 
1020: 20 63 68 61 72 20 2a 7a 50 72 6f 66 69 6c 65 3b   char *zProfile;
1030: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
1040: 68 65 20 70 72 6f 66 69 6c 65 20 63 61 6c 6c 62  he profile callb
1050: 61 63 6b 20 72 6f 75 74 69 6e 65 20 2a 2f 0a 20  ack routine */. 
1060: 20 63 68 61 72 20 2a 7a 50 72 6f 67 72 65 73 73   char *zProgress
1070: 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54  ;           /* T
1080: 68 65 20 70 72 6f 67 72 65 73 73 20 63 61 6c 6c  he progress call
1090: 62 61 63 6b 20 72 6f 75 74 69 6e 65 20 2a 2f 0a  back routine */.
10a0: 20 20 63 68 61 72 20 2a 7a 41 75 74 68 3b 20 20    char *zAuth;  
10b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
10c0: 54 68 65 20 61 75 74 68 6f 72 69 7a 61 74 69 6f  The authorizatio
10d0: 6e 20 63 61 6c 6c 62 61 63 6b 20 72 6f 75 74 69  n callback routi
10e0: 6e 65 20 2a 2f 0a 20 20 69 6e 74 20 64 69 73 61  ne */.  int disa
10f0: 62 6c 65 41 75 74 68 3b 20 20 20 20 20 20 20 20  bleAuth;        
1100: 20 20 20 2f 2a 20 44 69 73 61 62 6c 65 20 74 68     /* Disable th
1110: 65 20 61 75 74 68 6f 72 69 7a 65 72 20 69 66 20  e authorizer if 
1120: 69 74 20 65 78 69 73 74 73 20 2a 2f 0a 20 20 63  it exists */.  c
1130: 68 61 72 20 2a 7a 4e 75 6c 6c 3b 20 20 20 20 20  har *zNull;     
1140: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78            /* Tex
1150: 74 20 74 6f 20 73 75 62 73 74 69 74 75 74 65 20  t to substitute 
1160: 66 6f 72 20 61 6e 20 53 51 4c 20 4e 55 4c 4c 20  for an SQL NULL 
1170: 76 61 6c 75 65 20 2a 2f 0a 20 20 53 71 6c 46 75  value */.  SqlFu
1180: 6e 63 20 2a 70 46 75 6e 63 3b 20 20 20 20 20 20  nc *pFunc;      
1190: 20 20 20 20 20 20 2f 2a 20 4c 69 73 74 20 6f 66        /* List of
11a0: 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 73 20 2a   SQL functions *
11b0: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 55 70  /.  Tcl_Obj *pUp
11c0: 64 61 74 65 48 6f 6f 6b 3b 20 20 20 20 20 20 2f  dateHook;      /
11d0: 2a 20 55 70 64 61 74 65 20 68 6f 6f 6b 20 73 63  * Update hook sc
11e0: 72 69 70 74 20 28 69 66 20 61 6e 79 29 20 2a 2f  ript (if any) */
11f0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 6f 6c  .  Tcl_Obj *pRol
1200: 6c 62 61 63 6b 48 6f 6f 6b 3b 20 20 20 20 2f 2a  lbackHook;    /*
1210: 20 52 6f 6c 6c 62 61 63 6b 20 68 6f 6f 6b 20 73   Rollback hook s
1220: 63 72 69 70 74 20 28 69 66 20 61 6e 79 29 20 2a  cript (if any) *
1230: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 57 61  /.  Tcl_Obj *pWa
1240: 6c 48 6f 6f 6b 3b 20 20 20 20 20 20 20 20 20 2f  lHook;         /
1250: 2a 20 57 41 4c 20 68 6f 6f 6b 20 73 63 72 69 70  * WAL hook scrip
1260: 74 20 28 69 66 20 61 6e 79 29 20 2a 2f 0a 20 20  t (if any) */.  
1270: 54 63 6c 5f 4f 62 6a 20 2a 70 55 6e 6c 6f 63 6b  Tcl_Obj *pUnlock
1280: 4e 6f 74 69 66 79 3b 20 20 20 20 2f 2a 20 55 6e  Notify;    /* Un
1290: 6c 6f 63 6b 20 6e 6f 74 69 66 79 20 73 63 72 69  lock notify scri
12a0: 70 74 20 28 69 66 20 61 6e 79 29 20 2a 2f 0a 20  pt (if any) */. 
12b0: 20 53 71 6c 43 6f 6c 6c 61 74 65 20 2a 70 43 6f   SqlCollate *pCo
12c0: 6c 6c 61 74 65 3b 20 20 20 20 20 20 2f 2a 20 4c  llate;      /* L
12d0: 69 73 74 20 6f 66 20 53 51 4c 20 63 6f 6c 6c 61  ist of SQL colla
12e0: 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 73 20 2a  tion functions *
12f0: 2f 0a 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20  /.  int rc;     
1300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
1310: 2a 20 52 65 74 75 72 6e 20 63 6f 64 65 20 6f 66  * Return code of
1320: 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 73 71 6c   most recent sql
1330: 69 74 65 33 5f 65 78 65 63 28 29 20 2a 2f 0a 20  ite3_exec() */. 
1340: 20 54 63 6c 5f 4f 62 6a 20 2a 70 43 6f 6c 6c 61   Tcl_Obj *pColla
1350: 74 65 4e 65 65 64 65 64 3b 20 20 20 2f 2a 20 43  teNeeded;   /* C
1360: 6f 6c 6c 61 74 69 6f 6e 20 6e 65 65 64 65 64 20  ollation needed 
1370: 73 63 72 69 70 74 20 2a 2f 0a 20 20 53 71 6c 50  script */.  SqlP
1380: 72 65 70 61 72 65 64 53 74 6d 74 20 2a 73 74 6d  reparedStmt *stm
1390: 74 4c 69 73 74 3b 20 2f 2a 20 4c 69 73 74 20 6f  tList; /* List o
13a0: 66 20 70 72 65 70 61 72 65 64 20 73 74 61 74 65  f prepared state
13b0: 6d 65 6e 74 73 2a 2f 0a 20 20 53 71 6c 50 72 65  ments*/.  SqlPre
13c0: 70 61 72 65 64 53 74 6d 74 20 2a 73 74 6d 74 4c  paredStmt *stmtL
13d0: 61 73 74 3b 20 2f 2a 20 4c 61 73 74 20 73 74 61  ast; /* Last sta
13e0: 74 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 6c 69  tement in the li
13f0: 73 74 20 2a 2f 0a 20 20 69 6e 74 20 6d 61 78 53  st */.  int maxS
1400: 74 6d 74 3b 20 20 20 20 20 20 20 20 20 20 20 20  tmt;            
1410: 20 20 20 2f 2a 20 54 68 65 20 6e 65 78 74 20 6d     /* The next m
1420: 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66  aximum number of
1430: 20 73 74 6d 74 4c 69 73 74 20 2a 2f 0a 20 20 69   stmtList */.  i
1440: 6e 74 20 6e 53 74 6d 74 3b 20 20 20 20 20 20 20  nt nStmt;       
1450: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
1460: 62 65 72 20 6f 66 20 73 74 61 74 65 6d 65 6e 74  ber of statement
1470: 73 20 69 6e 20 73 74 6d 74 4c 69 73 74 20 2a 2f  s in stmtList */
1480: 0a 20 20 49 6e 63 72 62 6c 6f 62 43 68 61 6e 6e  .  IncrblobChann
1490: 65 6c 20 2a 70 49 6e 63 72 62 6c 6f 62 3b 2f 2a  el *pIncrblob;/*
14a0: 20 4c 69 6e 6b 65 64 20 6c 69 73 74 20 6f 66 20   Linked list of 
14b0: 6f 70 65 6e 20 69 6e 63 72 62 6c 6f 62 20 63 68  open incrblob ch
14c0: 61 6e 6e 65 6c 73 20 2a 2f 0a 20 20 69 6e 74 20  annels */.  int 
14d0: 6e 53 74 65 70 2c 20 6e 53 6f 72 74 2c 20 6e 49  nStep, nSort, nI
14e0: 6e 64 65 78 3b 20 20 2f 2a 20 53 74 61 74 69 73  ndex;  /* Statis
14f0: 74 69 63 73 20 66 6f 72 20 6d 6f 73 74 20 72 65  tics for most re
1500: 63 65 6e 74 20 6f 70 65 72 61 74 69 6f 6e 20 2a  cent operation *
1510: 2f 0a 20 20 69 6e 74 20 6e 54 72 61 6e 73 61 63  /.  int nTransac
1520: 74 69 6f 6e 3b 20 20 20 20 20 20 20 20 20 20 2f  tion;          /
1530: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 6e 65 73 74  * Number of nest
1540: 65 64 20 5b 74 72 61 6e 73 61 63 74 69 6f 6e 5d  ed [transaction]
1550: 20 6d 65 74 68 6f 64 73 20 2a 2f 0a 7d 3b 0a 0a   methods */.};..
1560: 73 74 72 75 63 74 20 49 6e 63 72 62 6c 6f 62 43  struct IncrblobC
1570: 68 61 6e 6e 65 6c 20 7b 0a 20 20 73 71 6c 69 74  hannel {.  sqlit
1580: 65 33 5f 62 6c 6f 62 20 2a 70 42 6c 6f 62 3b 20  e3_blob *pBlob; 
1590: 20 20 20 20 20 2f 2a 20 73 71 6c 69 74 65 33 20       /* sqlite3 
15a0: 62 6c 6f 62 20 68 61 6e 64 6c 65 20 2a 2f 0a 20  blob handle */. 
15b0: 20 53 71 6c 69 74 65 44 62 20 2a 70 44 62 3b 20   SqliteDb *pDb; 
15c0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 73             /* As
15d0: 73 6f 63 69 61 74 65 64 20 64 61 74 61 62 61 73  sociated databas
15e0: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 2a 2f 0a  e connection */.
15f0: 20 20 69 6e 74 20 69 53 65 65 6b 3b 20 20 20 20    int iSeek;    
1600: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43              /* C
1610: 75 72 72 65 6e 74 20 73 65 65 6b 20 6f 66 66 73  urrent seek offs
1620: 65 74 20 2a 2f 0a 20 20 54 63 6c 5f 43 68 61 6e  et */.  Tcl_Chan
1630: 6e 65 6c 20 63 68 61 6e 6e 65 6c 3b 20 20 20 20  nel channel;    
1640: 20 20 2f 2a 20 43 68 61 6e 6e 65 6c 20 69 64 65    /* Channel ide
1650: 6e 74 69 66 69 65 72 20 2a 2f 0a 20 20 49 6e 63  ntifier */.  Inc
1660: 72 62 6c 6f 62 43 68 61 6e 6e 65 6c 20 2a 70 4e  rblobChannel *pN
1670: 65 78 74 3b 20 20 20 2f 2a 20 4c 69 6e 6b 65 64  ext;   /* Linked
1680: 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6f 70 65   list of all ope
1690: 6e 20 69 6e 63 72 62 6c 6f 62 20 63 68 61 6e 6e  n incrblob chann
16a0: 65 6c 73 20 2a 2f 0a 20 20 49 6e 63 72 62 6c 6f  els */.  Incrblo
16b0: 62 43 68 61 6e 6e 65 6c 20 2a 70 50 72 65 76 3b  bChannel *pPrev;
16c0: 20 20 20 2f 2a 20 4c 69 6e 6b 65 64 20 6c 69 73     /* Linked lis
16d0: 74 20 6f 66 20 61 6c 6c 20 6f 70 65 6e 20 69 6e  t of all open in
16e0: 63 72 62 6c 6f 62 20 63 68 61 6e 6e 65 6c 73 20  crblob channels 
16f0: 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d  */.};../*.** Com
1700: 70 75 74 65 20 61 20 73 74 72 69 6e 67 20 6c 65  pute a string le
1710: 6e 67 74 68 20 74 68 61 74 20 69 73 20 6c 69 6d  ngth that is lim
1720: 69 74 65 64 20 74 6f 20 77 68 61 74 20 63 61 6e  ited to what can
1730: 20 62 65 20 73 74 6f 72 65 64 20 69 6e 0a 2a 2a   be stored in.**
1740: 20 6c 6f 77 65 72 20 33 30 20 62 69 74 73 20 6f   lower 30 bits o
1750: 66 20 61 20 33 32 2d 62 69 74 20 73 69 67 6e 65  f a 32-bit signe
1760: 64 20 69 6e 74 65 67 65 72 2e 0a 2a 2f 0a 73 74  d integer..*/.st
1770: 61 74 69 63 20 69 6e 74 20 73 74 72 6c 65 6e 33  atic int strlen3
1780: 30 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 29  0(const char *z)
1790: 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  {.  const char *
17a0: 7a 32 20 3d 20 7a 3b 0a 20 20 77 68 69 6c 65 28  z2 = z;.  while(
17b0: 20 2a 7a 32 20 29 7b 20 7a 32 2b 2b 3b 20 7d 0a   *z2 ){ z2++; }.
17c0: 20 20 72 65 74 75 72 6e 20 30 78 33 66 66 66 66    return 0x3ffff
17d0: 66 66 66 20 26 20 28 69 6e 74 29 28 7a 32 20 2d  fff & (int)(z2 -
17e0: 20 7a 29 3b 0a 7d 0a 0a 0a 23 69 66 6e 64 65 66   z);.}...#ifndef
17f0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 49 4e 43   SQLITE_OMIT_INC
1800: 52 42 4c 4f 42 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73  RBLOB./*.** Clos
1810: 65 20 61 6c 6c 20 69 6e 63 72 62 6c 6f 62 20 63  e all incrblob c
1820: 68 61 6e 6e 65 6c 73 20 6f 70 65 6e 65 64 20 75  hannels opened u
1830: 73 69 6e 67 20 64 61 74 61 62 61 73 65 20 63 6f  sing database co
1840: 6e 6e 65 63 74 69 6f 6e 20 70 44 62 2e 0a 2a 2a  nnection pDb..**
1850: 20 54 68 69 73 20 69 73 20 63 61 6c 6c 65 64 20   This is called 
1860: 77 68 65 6e 20 73 68 75 74 74 69 6e 67 20 64 6f  when shutting do
1870: 77 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 20  wn the database 
1880: 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 2a 2f 0a 73  connection..*/.s
1890: 74 61 74 69 63 20 76 6f 69 64 20 63 6c 6f 73 65  tatic void close
18a0: 49 6e 63 72 62 6c 6f 62 43 68 61 6e 6e 65 6c 73  IncrblobChannels
18b0: 28 53 71 6c 69 74 65 44 62 20 2a 70 44 62 29 7b  (SqliteDb *pDb){
18c0: 0a 20 20 49 6e 63 72 62 6c 6f 62 43 68 61 6e 6e  .  IncrblobChann
18d0: 65 6c 20 2a 70 3b 0a 20 20 49 6e 63 72 62 6c 6f  el *p;.  Incrblo
18e0: 62 43 68 61 6e 6e 65 6c 20 2a 70 4e 65 78 74 3b  bChannel *pNext;
18f0: 0a 0a 20 20 66 6f 72 28 70 3d 70 44 62 2d 3e 70  ..  for(p=pDb->p
1900: 49 6e 63 72 62 6c 6f 62 3b 20 70 3b 20 70 3d 70  Incrblob; p; p=p
1910: 4e 65 78 74 29 7b 0a 20 20 20 20 70 4e 65 78 74  Next){.    pNext
1920: 20 3d 20 70 2d 3e 70 4e 65 78 74 3b 0a 0a 20 20   = p->pNext;..  
1930: 20 20 2f 2a 20 4e 6f 74 65 3a 20 43 61 6c 6c 69    /* Note: Calli
1940: 6e 67 20 75 6e 72 65 67 69 73 74 65 72 20 68 65  ng unregister he
1950: 72 65 20 63 61 6c 6c 20 54 63 6c 5f 43 6c 6f 73  re call Tcl_Clos
1960: 65 20 6f 6e 20 74 68 65 20 69 6e 63 72 62 6c 6f  e on the incrblo
1970: 62 20 63 68 61 6e 6e 65 6c 2c 20 0a 20 20 20 20  b channel, .    
1980: 2a 2a 20 77 68 69 63 68 20 64 65 6c 65 74 65 73  ** which deletes
1990: 20 74 68 65 20 49 6e 63 72 62 6c 6f 62 43 68 61   the IncrblobCha
19a0: 6e 6e 65 6c 20 73 74 72 75 63 74 75 72 65 20 61  nnel structure a
19b0: 74 20 2a 70 2e 20 53 6f 20 64 6f 20 6e 6f 74 0a  t *p. So do not.
19c0: 20 20 20 20 2a 2a 20 63 61 6c 6c 20 54 63 6c 5f      ** call Tcl_
19d0: 46 72 65 65 28 29 20 68 65 72 65 2e 0a 20 20 20  Free() here..   
19e0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 55 6e 72 65   */.    Tcl_Unre
19f0: 67 69 73 74 65 72 43 68 61 6e 6e 65 6c 28 70 44  gisterChannel(pD
1a00: 62 2d 3e 69 6e 74 65 72 70 2c 20 70 2d 3e 63 68  b->interp, p->ch
1a10: 61 6e 6e 65 6c 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f  annel);.  }.}../
1a20: 2a 0a 2a 2a 20 43 6c 6f 73 65 20 61 6e 20 69 6e  *.** Close an in
1a30: 63 72 65 6d 65 6e 74 61 6c 20 62 6c 6f 62 20 63  cremental blob c
1a40: 68 61 6e 6e 65 6c 2e 0a 2a 2f 0a 73 74 61 74 69  hannel..*/.stati
1a50: 63 20 69 6e 74 20 69 6e 63 72 62 6c 6f 62 43 6c  c int incrblobCl
1a60: 6f 73 65 28 43 6c 69 65 6e 74 44 61 74 61 20 69  ose(ClientData i
1a70: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 54 63 6c  nstanceData, Tcl
1a80: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29  _Interp *interp)
1a90: 7b 0a 20 20 49 6e 63 72 62 6c 6f 62 43 68 61 6e  {.  IncrblobChan
1aa0: 6e 65 6c 20 2a 70 20 3d 20 28 49 6e 63 72 62 6c  nel *p = (Incrbl
1ab0: 6f 62 43 68 61 6e 6e 65 6c 20 2a 29 69 6e 73 74  obChannel *)inst
1ac0: 61 6e 63 65 44 61 74 61 3b 0a 20 20 69 6e 74 20  anceData;.  int 
1ad0: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 6c 6f  rc = sqlite3_blo
1ae0: 62 5f 63 6c 6f 73 65 28 70 2d 3e 70 42 6c 6f 62  b_close(p->pBlob
1af0: 29 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62  );.  sqlite3 *db
1b00: 20 3d 20 70 2d 3e 70 44 62 2d 3e 64 62 3b 0a 0a   = p->pDb->db;..
1b10: 20 20 2f 2a 20 52 65 6d 6f 76 65 20 74 68 65 20    /* Remove the 
1b20: 63 68 61 6e 6e 65 6c 20 66 72 6f 6d 20 74 68 65  channel from the
1b30: 20 53 71 6c 69 74 65 44 62 2e 70 49 6e 63 72 62   SqliteDb.pIncrb
1b40: 6c 6f 62 20 6c 69 73 74 2e 20 2a 2f 0a 20 20 69  lob list. */.  i
1b50: 66 28 20 70 2d 3e 70 4e 65 78 74 20 29 7b 0a 20  f( p->pNext ){. 
1b60: 20 20 20 70 2d 3e 70 4e 65 78 74 2d 3e 70 50 72     p->pNext->pPr
1b70: 65 76 20 3d 20 70 2d 3e 70 50 72 65 76 3b 0a 20  ev = p->pPrev;. 
1b80: 20 7d 0a 20 20 69 66 28 20 70 2d 3e 70 50 72 65   }.  if( p->pPre
1b90: 76 20 29 7b 0a 20 20 20 20 70 2d 3e 70 50 72 65  v ){.    p->pPre
1ba0: 76 2d 3e 70 4e 65 78 74 20 3d 20 70 2d 3e 70 4e  v->pNext = p->pN
1bb0: 65 78 74 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70  ext;.  }.  if( p
1bc0: 2d 3e 70 44 62 2d 3e 70 49 6e 63 72 62 6c 6f 62  ->pDb->pIncrblob
1bd0: 3d 3d 70 20 29 7b 0a 20 20 20 20 70 2d 3e 70 44  ==p ){.    p->pD
1be0: 62 2d 3e 70 49 6e 63 72 62 6c 6f 62 20 3d 20 70  b->pIncrblob = p
1bf0: 2d 3e 70 4e 65 78 74 3b 0a 20 20 7d 0a 0a 20 20  ->pNext;.  }..  
1c00: 2f 2a 20 46 72 65 65 20 74 68 65 20 49 6e 63 72  /* Free the Incr
1c10: 62 6c 6f 62 43 68 61 6e 6e 65 6c 20 73 74 72 75  blobChannel stru
1c20: 63 74 75 72 65 20 2a 2f 0a 20 20 54 63 6c 5f 46  cture */.  Tcl_F
1c30: 72 65 65 28 28 63 68 61 72 20 2a 29 70 29 3b 0a  ree((char *)p);.
1c40: 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54  .  if( rc!=SQLIT
1c50: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f  E_OK ){.    Tcl_
1c60: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70  SetResult(interp
1c70: 2c 20 28 63 68 61 72 20 2a 29 73 71 6c 69 74 65  , (char *)sqlite
1c80: 33 5f 65 72 72 6d 73 67 28 64 62 29 2c 20 54 43  3_errmsg(db), TC
1c90: 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20  L_VOLATILE);.   
1ca0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
1cb0: 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  R;.  }.  return 
1cc0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  TCL_OK;.}../*.**
1cd0: 20 52 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20   Read data from 
1ce0: 61 6e 20 69 6e 63 72 65 6d 65 6e 74 61 6c 20 62  an incremental b
1cf0: 6c 6f 62 20 63 68 61 6e 6e 65 6c 2e 0a 2a 2f 0a  lob channel..*/.
1d00: 73 74 61 74 69 63 20 69 6e 74 20 69 6e 63 72 62  static int incrb
1d10: 6c 6f 62 49 6e 70 75 74 28 0a 20 20 43 6c 69 65  lobInput(.  Clie
1d20: 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44  ntData instanceD
1d30: 61 74 61 2c 20 0a 20 20 63 68 61 72 20 2a 62 75  ata, .  char *bu
1d40: 66 2c 20 0a 20 20 69 6e 74 20 62 75 66 53 69 7a  f, .  int bufSiz
1d50: 65 2c 0a 20 20 69 6e 74 20 2a 65 72 72 6f 72 43  e,.  int *errorC
1d60: 6f 64 65 50 74 72 0a 29 7b 0a 20 20 49 6e 63 72  odePtr.){.  Incr
1d70: 62 6c 6f 62 43 68 61 6e 6e 65 6c 20 2a 70 20 3d  blobChannel *p =
1d80: 20 28 49 6e 63 72 62 6c 6f 62 43 68 61 6e 6e 65   (IncrblobChanne
1d90: 6c 20 2a 29 69 6e 73 74 61 6e 63 65 44 61 74 61  l *)instanceData
1da0: 3b 0a 20 20 69 6e 74 20 6e 52 65 61 64 20 3d 20  ;.  int nRead = 
1db0: 62 75 66 53 69 7a 65 3b 20 20 20 20 20 20 20 20  bufSize;        
1dc0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 62 79   /* Number of by
1dd0: 74 65 73 20 74 6f 20 72 65 61 64 20 2a 2f 0a 20  tes to read */. 
1de0: 20 69 6e 74 20 6e 42 6c 6f 62 3b 20 20 20 20 20   int nBlob;     
1df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1e00: 20 54 6f 74 61 6c 20 73 69 7a 65 20 6f 66 20 74   Total size of t
1e10: 68 65 20 62 6c 6f 62 20 2a 2f 0a 20 20 69 6e 74  he blob */.  int
1e20: 20 72 63 3b 20 20 20 20 20 20 20 20 20 20 20 20   rc;            
1e30: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 73 71 6c            /* sql
1e40: 69 74 65 20 65 72 72 6f 72 20 63 6f 64 65 20 2a  ite error code *
1e50: 2f 0a 0a 20 20 6e 42 6c 6f 62 20 3d 20 73 71 6c  /..  nBlob = sql
1e60: 69 74 65 33 5f 62 6c 6f 62 5f 62 79 74 65 73 28  ite3_blob_bytes(
1e70: 70 2d 3e 70 42 6c 6f 62 29 3b 0a 20 20 69 66 28  p->pBlob);.  if(
1e80: 20 28 70 2d 3e 69 53 65 65 6b 2b 6e 52 65 61 64   (p->iSeek+nRead
1e90: 29 3e 6e 42 6c 6f 62 20 29 7b 0a 20 20 20 20 6e  )>nBlob ){.    n
1ea0: 52 65 61 64 20 3d 20 6e 42 6c 6f 62 2d 70 2d 3e  Read = nBlob-p->
1eb0: 69 53 65 65 6b 3b 0a 20 20 7d 0a 20 20 69 66 28  iSeek;.  }.  if(
1ec0: 20 6e 52 65 61 64 3c 3d 30 20 29 7b 0a 20 20 20   nRead<=0 ){.   
1ed0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 0a   return 0;.  }..
1ee0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62    rc = sqlite3_b
1ef0: 6c 6f 62 5f 72 65 61 64 28 70 2d 3e 70 42 6c 6f  lob_read(p->pBlo
1f00: 62 2c 20 28 76 6f 69 64 20 2a 29 62 75 66 2c 20  b, (void *)buf, 
1f10: 6e 52 65 61 64 2c 20 70 2d 3e 69 53 65 65 6b 29  nRead, p->iSeek)
1f20: 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49  ;.  if( rc!=SQLI
1f30: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 2a 65 72  TE_OK ){.    *er
1f40: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 72 63 3b  rorCodePtr = rc;
1f50: 0a 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a  .    return -1;.
1f60: 20 20 7d 0a 0a 20 20 70 2d 3e 69 53 65 65 6b 20    }..  p->iSeek 
1f70: 2b 3d 20 6e 52 65 61 64 3b 0a 20 20 72 65 74 75  += nRead;.  retu
1f80: 72 6e 20 6e 52 65 61 64 3b 0a 7d 0a 0a 2f 2a 0a  rn nRead;.}../*.
1f90: 2a 2a 20 57 72 69 74 65 20 64 61 74 61 20 74 6f  ** Write data to
1fa0: 20 61 6e 20 69 6e 63 72 65 6d 65 6e 74 61 6c 20   an incremental 
1fb0: 62 6c 6f 62 20 63 68 61 6e 6e 65 6c 2e 0a 2a 2f  blob channel..*/
1fc0: 0a 73 74 61 74 69 63 20 69 6e 74 20 69 6e 63 72  .static int incr
1fd0: 62 6c 6f 62 4f 75 74 70 75 74 28 0a 20 20 43 6c  blobOutput(.  Cl
1fe0: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63  ientData instanc
1ff0: 65 44 61 74 61 2c 20 0a 20 20 43 4f 4e 53 54 20  eData, .  CONST 
2000: 63 68 61 72 20 2a 62 75 66 2c 20 0a 20 20 69 6e  char *buf, .  in
2010: 74 20 74 6f 57 72 69 74 65 2c 0a 20 20 69 6e 74  t toWrite,.  int
2020: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 0a 29   *errorCodePtr.)
2030: 7b 0a 20 20 49 6e 63 72 62 6c 6f 62 43 68 61 6e  {.  IncrblobChan
2040: 6e 65 6c 20 2a 70 20 3d 20 28 49 6e 63 72 62 6c  nel *p = (Incrbl
2050: 6f 62 43 68 61 6e 6e 65 6c 20 2a 29 69 6e 73 74  obChannel *)inst
2060: 61 6e 63 65 44 61 74 61 3b 0a 20 20 69 6e 74 20  anceData;.  int 
2070: 6e 57 72 69 74 65 20 3d 20 74 6f 57 72 69 74 65  nWrite = toWrite
2080: 3b 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62  ;        /* Numb
2090: 65 72 20 6f 66 20 62 79 74 65 73 20 74 6f 20 77  er of bytes to w
20a0: 72 69 74 65 20 2a 2f 0a 20 20 69 6e 74 20 6e 42  rite */.  int nB
20b0: 6c 6f 62 3b 20 20 20 20 20 20 20 20 20 20 20 20  lob;            
20c0: 20 20 20 20 20 20 20 2f 2a 20 54 6f 74 61 6c 20         /* Total 
20d0: 73 69 7a 65 20 6f 66 20 74 68 65 20 62 6c 6f 62  size of the blob
20e0: 20 2a 2f 0a 20 20 69 6e 74 20 72 63 3b 20 20 20   */.  int rc;   
20f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2100: 20 20 20 2f 2a 20 73 71 6c 69 74 65 20 65 72 72     /* sqlite err
2110: 6f 72 20 63 6f 64 65 20 2a 2f 0a 0a 20 20 6e 42  or code */..  nB
2120: 6c 6f 62 20 3d 20 73 71 6c 69 74 65 33 5f 62 6c  lob = sqlite3_bl
2130: 6f 62 5f 62 79 74 65 73 28 70 2d 3e 70 42 6c 6f  ob_bytes(p->pBlo
2140: 62 29 3b 0a 20 20 69 66 28 20 28 70 2d 3e 69 53  b);.  if( (p->iS
2150: 65 65 6b 2b 6e 57 72 69 74 65 29 3e 6e 42 6c 6f  eek+nWrite)>nBlo
2160: 62 20 29 7b 0a 20 20 20 20 2a 65 72 72 6f 72 43  b ){.    *errorC
2170: 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b  odePtr = EINVAL;
2180: 0a 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a  .    return -1;.
2190: 20 20 7d 0a 20 20 69 66 28 20 6e 57 72 69 74 65    }.  if( nWrite
21a0: 3c 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72  <=0 ){.    retur
21b0: 6e 20 30 3b 0a 20 20 7d 0a 0a 20 20 72 63 20 3d  n 0;.  }..  rc =
21c0: 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72   sqlite3_blob_wr
21d0: 69 74 65 28 70 2d 3e 70 42 6c 6f 62 2c 20 28 76  ite(p->pBlob, (v
21e0: 6f 69 64 20 2a 29 62 75 66 2c 20 6e 57 72 69 74  oid *)buf, nWrit
21f0: 65 2c 20 70 2d 3e 69 53 65 65 6b 29 3b 0a 20 20  e, p->iSeek);.  
2200: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f  if( rc!=SQLITE_O
2210: 4b 20 29 7b 0a 20 20 20 20 2a 65 72 72 6f 72 43  K ){.    *errorC
2220: 6f 64 65 50 74 72 20 3d 20 45 49 4f 3b 0a 20 20  odePtr = EIO;.  
2230: 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 7d    return -1;.  }
2240: 0a 0a 20 20 70 2d 3e 69 53 65 65 6b 20 2b 3d 20  ..  p->iSeek += 
2250: 6e 57 72 69 74 65 3b 0a 20 20 72 65 74 75 72 6e  nWrite;.  return
2260: 20 6e 57 72 69 74 65 3b 0a 7d 0a 0a 2f 2a 0a 2a   nWrite;.}../*.*
2270: 2a 20 53 65 65 6b 20 61 6e 20 69 6e 63 72 65 6d  * Seek an increm
2280: 65 6e 74 61 6c 20 62 6c 6f 62 20 63 68 61 6e 6e  ental blob chann
2290: 65 6c 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  el..*/.static in
22a0: 74 20 69 6e 63 72 62 6c 6f 62 53 65 65 6b 28 0a  t incrblobSeek(.
22b0: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73    ClientData ins
22c0: 74 61 6e 63 65 44 61 74 61 2c 20 0a 20 20 6c 6f  tanceData, .  lo
22d0: 6e 67 20 6f 66 66 73 65 74 2c 0a 20 20 69 6e 74  ng offset,.  int
22e0: 20 73 65 65 6b 4d 6f 64 65 2c 0a 20 20 69 6e 74   seekMode,.  int
22f0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 0a 29   *errorCodePtr.)
2300: 7b 0a 20 20 49 6e 63 72 62 6c 6f 62 43 68 61 6e  {.  IncrblobChan
2310: 6e 65 6c 20 2a 70 20 3d 20 28 49 6e 63 72 62 6c  nel *p = (Incrbl
2320: 6f 62 43 68 61 6e 6e 65 6c 20 2a 29 69 6e 73 74  obChannel *)inst
2330: 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 73 77 69  anceData;..  swi
2340: 74 63 68 28 20 73 65 65 6b 4d 6f 64 65 20 29 7b  tch( seekMode ){
2350: 0a 20 20 20 20 63 61 73 65 20 53 45 45 4b 5f 53  .    case SEEK_S
2360: 45 54 3a 0a 20 20 20 20 20 20 70 2d 3e 69 53 65  ET:.      p->iSe
2370: 65 6b 20 3d 20 6f 66 66 73 65 74 3b 0a 20 20 20  ek = offset;.   
2380: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61     break;.    ca
2390: 73 65 20 53 45 45 4b 5f 43 55 52 3a 0a 20 20 20  se SEEK_CUR:.   
23a0: 20 20 20 70 2d 3e 69 53 65 65 6b 20 2b 3d 20 6f     p->iSeek += o
23b0: 66 66 73 65 74 3b 0a 20 20 20 20 20 20 62 72 65  ffset;.      bre
23c0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 45 45  ak;.    case SEE
23d0: 4b 5f 45 4e 44 3a 0a 20 20 20 20 20 20 70 2d 3e  K_END:.      p->
23e0: 69 53 65 65 6b 20 3d 20 73 71 6c 69 74 65 33 5f  iSeek = sqlite3_
23f0: 62 6c 6f 62 5f 62 79 74 65 73 28 70 2d 3e 70 42  blob_bytes(p->pB
2400: 6c 6f 62 29 20 2b 20 6f 66 66 73 65 74 3b 0a 20  lob) + offset;. 
2410: 20 20 20 20 20 62 72 65 61 6b 3b 0a 0a 20 20 20       break;..   
2420: 20 64 65 66 61 75 6c 74 3a 20 61 73 73 65 72 74   default: assert
2430: 28 21 22 42 61 64 20 73 65 65 6b 4d 6f 64 65 22  (!"Bad seekMode"
2440: 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e  );.  }..  return
2450: 20 70 2d 3e 69 53 65 65 6b 3b 0a 7d 0a 0a 0a 73   p->iSeek;.}...s
2460: 74 61 74 69 63 20 76 6f 69 64 20 69 6e 63 72 62  tatic void incrb
2470: 6c 6f 62 57 61 74 63 68 28 43 6c 69 65 6e 74 44  lobWatch(ClientD
2480: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61  ata instanceData
2490: 2c 20 69 6e 74 20 6d 6f 64 65 29 7b 20 0a 20 20  , int mode){ .  
24a0: 2f 2a 20 4e 4f 2d 4f 50 20 2a 2f 20 0a 7d 0a 73  /* NO-OP */ .}.s
24b0: 74 61 74 69 63 20 69 6e 74 20 69 6e 63 72 62 6c  tatic int incrbl
24c0: 6f 62 48 61 6e 64 6c 65 28 43 6c 69 65 6e 74 44  obHandle(ClientD
24d0: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61  ata instanceData
24e0: 2c 20 69 6e 74 20 64 69 72 2c 20 43 6c 69 65 6e  , int dir, Clien
24f0: 74 44 61 74 61 20 2a 68 50 74 72 29 7b 0a 20 20  tData *hPtr){.  
2500: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
2510: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 54 63 6c 5f  ;.}..static Tcl_
2520: 43 68 61 6e 6e 65 6c 54 79 70 65 20 49 6e 63 72  ChannelType Incr
2530: 62 6c 6f 62 43 68 61 6e 6e 65 6c 54 79 70 65 20  blobChannelType 
2540: 3d 20 7b 0a 20 20 22 69 6e 63 72 62 6c 6f 62 22  = {.  "incrblob"
2550: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
2560: 20 20 20 20 20 20 20 20 20 2f 2a 20 74 79 70 65           /* type
2570: 4e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20  Name            
2580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2590: 20 2a 2f 0a 20 20 54 43 4c 5f 43 48 41 4e 4e 45   */.  TCL_CHANNE
25a0: 4c 5f 56 45 52 53 49 4f 4e 5f 32 2c 20 20 20 20  L_VERSION_2,    
25b0: 20 20 20 20 20 20 20 20 20 2f 2a 20 76 65 72 73           /* vers
25c0: 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20  ion             
25d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
25e0: 20 2a 2f 0a 20 20 69 6e 63 72 62 6c 6f 62 43 6c   */.  incrblobCl
25f0: 6f 73 65 2c 20 20 20 20 20 20 20 20 20 20 20 20  ose,            
2600: 20 20 20 20 20 20 20 20 20 2f 2a 20 63 6c 6f 73           /* clos
2610: 65 50 72 6f 63 20 20 20 20 20 20 20 20 20 20 20  eProc           
2620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2630: 20 2a 2f 0a 20 20 69 6e 63 72 62 6c 6f 62 49 6e   */.  incrblobIn
2640: 70 75 74 2c 20 20 20 20 20 20 20 20 20 20 20 20  put,            
2650: 20 20 20 20 20 20 20 20 20 2f 2a 20 69 6e 70 75           /* inpu
2660: 74 50 72 6f 63 20 20 20 20 20 20 20 20 20 20 20  tProc           
2670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2680: 20 2a 2f 0a 20 20 69 6e 63 72 62 6c 6f 62 4f 75   */.  incrblobOu
2690: 74 70 75 74 2c 20 20 20 20 20 20 20 20 20 20 20  tput,           
26a0: 20 20 20 20 20 20 20 20 20 2f 2a 20 6f 75 74 70           /* outp
26b0: 75 74 50 72 6f 63 20 20 20 20 20 20 20 20 20 20  utProc          
26c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
26d0: 20 2a 2f 0a 20 20 69 6e 63 72 62 6c 6f 62 53 65   */.  incrblobSe
26e0: 65 6b 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  ek,             
26f0: 20 20 20 20 20 20 20 20 20 2f 2a 20 73 65 65 6b           /* seek
2700: 50 72 6f 63 20 20 20 20 20 20 20 20 20 20 20 20  Proc            
2710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2720: 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20   */.  0,        
2730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2740: 20 20 20 20 20 20 20 20 20 2f 2a 20 73 65 74 4f           /* setO
2750: 70 74 69 6f 6e 50 72 6f 63 20 20 20 20 20 20 20  ptionProc       
2760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2770: 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20   */.  0,        
2780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2790: 20 20 20 20 20 20 20 20 20 2f 2a 20 67 65 74 4f           /* getO
27a0: 70 74 69 6f 6e 50 72 6f 63 20 20 20 20 20 20 20  ptionProc       
27b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
27c0: 20 2a 2f 0a 20 20 69 6e 63 72 62 6c 6f 62 57 61   */.  incrblobWa
27d0: 74 63 68 2c 20 20 20 20 20 20 20 20 20 20 20 20  tch,            
27e0: 20 20 20 20 20 20 20 20 20 2f 2a 20 77 61 74 63           /* watc
27f0: 68 50 72 6f 63 20 28 74 68 69 73 20 69 73 20 61  hProc (this is a
2800: 20 6e 6f 2d 6f 70 29 20 20 20 20 20 20 20 20 20   no-op)         
2810: 20 2a 2f 0a 20 20 69 6e 63 72 62 6c 6f 62 48 61   */.  incrblobHa
2820: 6e 64 6c 65 2c 20 20 20 20 20 20 20 20 20 20 20  ndle,           
2830: 20 20 20 20 20 20 20 20 20 2f 2a 20 67 65 74 48           /* getH
2840: 61 6e 64 6c 65 50 72 6f 63 20 28 61 6c 77 61 79  andleProc (alway
2850: 73 20 72 65 74 75 72 6e 73 20 65 72 72 6f 72 29  s returns error)
2860: 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20   */.  0,        
2870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2880: 20 20 20 20 20 20 20 20 20 2f 2a 20 63 6c 6f 73           /* clos
2890: 65 32 50 72 6f 63 20 20 20 20 20 20 20 20 20 20  e2Proc          
28a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
28b0: 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20   */.  0,        
28c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
28d0: 20 20 20 20 20 20 20 20 20 2f 2a 20 62 6c 6f 63           /* bloc
28e0: 6b 4d 6f 64 65 50 72 6f 63 20 20 20 20 20 20 20  kModeProc       
28f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2900: 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20   */.  0,        
2910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2920: 20 20 20 20 20 20 20 20 20 2f 2a 20 66 6c 75 73           /* flus
2930: 68 50 72 6f 63 20 20 20 20 20 20 20 20 20 20 20  hProc           
2940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2950: 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20   */.  0,        
2960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2970: 20 20 20 20 20 20 20 20 20 2f 2a 20 68 61 6e 64           /* hand
2980: 6c 65 72 50 72 6f 63 20 20 20 20 20 20 20 20 20  lerProc         
2990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29a0: 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20   */.  0,        
29b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29c0: 20 20 20 20 20 20 20 20 20 2f 2a 20 77 69 64 65           /* wide
29d0: 53 65 65 6b 50 72 6f 63 20 20 20 20 20 20 20 20  SeekProc        
29e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29f0: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 72   */.};../*.** Cr
2a00: 65 61 74 65 20 61 20 6e 65 77 20 69 6e 63 72 62  eate a new incrb
2a10: 6c 6f 62 20 63 68 61 6e 6e 65 6c 2e 0a 2a 2f 0a  lob channel..*/.
2a20: 73 74 61 74 69 63 20 69 6e 74 20 63 72 65 61 74  static int creat
2a30: 65 49 6e 63 72 62 6c 6f 62 43 68 61 6e 6e 65 6c  eIncrblobChannel
2a40: 28 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  (.  Tcl_Interp *
2a50: 69 6e 74 65 72 70 2c 20 0a 20 20 53 71 6c 69 74  interp, .  Sqlit
2a60: 65 44 62 20 2a 70 44 62 2c 20 0a 20 20 63 6f 6e  eDb *pDb, .  con
2a70: 73 74 20 63 68 61 72 20 2a 7a 44 62 2c 0a 20 20  st char *zDb,.  
2a80: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 61 62  const char *zTab
2a90: 6c 65 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61  le, .  const cha
2aa0: 72 20 2a 7a 43 6f 6c 75 6d 6e 2c 20 0a 20 20 73  r *zColumn, .  s
2ab0: 71 6c 69 74 65 5f 69 6e 74 36 34 20 69 52 6f 77  qlite_int64 iRow
2ac0: 2c 0a 20 20 69 6e 74 20 69 73 52 65 61 64 6f 6e  ,.  int isReadon
2ad0: 6c 79 0a 29 7b 0a 20 20 49 6e 63 72 62 6c 6f 62  ly.){.  Incrblob
2ae0: 43 68 61 6e 6e 65 6c 20 2a 70 3b 0a 20 20 73 71  Channel *p;.  sq
2af0: 6c 69 74 65 33 20 2a 64 62 20 3d 20 70 44 62 2d  lite3 *db = pDb-
2b00: 3e 64 62 3b 0a 20 20 73 71 6c 69 74 65 33 5f 62  >db;.  sqlite3_b
2b10: 6c 6f 62 20 2a 70 42 6c 6f 62 3b 0a 20 20 69 6e  lob *pBlob;.  in
2b20: 74 20 72 63 3b 0a 20 20 69 6e 74 20 66 6c 61 67  t rc;.  int flag
2b30: 73 20 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45  s = TCL_READABLE
2b40: 7c 28 69 73 52 65 61 64 6f 6e 6c 79 20 3f 20 30  |(isReadonly ? 0
2b50: 20 3a 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 29   : TCL_WRITABLE)
2b60: 3b 0a 0a 20 20 2f 2a 20 54 68 69 73 20 76 61 72  ;..  /* This var
2b70: 69 61 62 6c 65 20 69 73 20 75 73 65 64 20 74 6f  iable is used to
2b80: 20 6e 61 6d 65 20 74 68 65 20 63 68 61 6e 6e 65   name the channe
2b90: 6c 73 3a 20 22 69 6e 63 72 62 6c 6f 62 5f 5b 69  ls: "incrblob_[i
2ba0: 6e 63 72 20 63 6f 75 6e 74 5d 22 20 2a 2f 0a 20  ncr count]" */. 
2bb0: 20 73 74 61 74 69 63 20 69 6e 74 20 63 6f 75 6e   static int coun
2bc0: 74 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a 43  t = 0;.  char zC
2bd0: 68 61 6e 6e 65 6c 5b 36 34 5d 3b 0a 0a 20 20 72  hannel[64];..  r
2be0: 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62  c = sqlite3_blob
2bf0: 5f 6f 70 65 6e 28 64 62 2c 20 7a 44 62 2c 20 7a  _open(db, zDb, z
2c00: 54 61 62 6c 65 2c 20 7a 43 6f 6c 75 6d 6e 2c 20  Table, zColumn, 
2c10: 69 52 6f 77 2c 20 21 69 73 52 65 61 64 6f 6e 6c  iRow, !isReadonl
2c20: 79 2c 20 26 70 42 6c 6f 62 29 3b 0a 20 20 69 66  y, &pBlob);.  if
2c30: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc!=SQLITE_OK 
2c40: 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65  ){.    Tcl_SetRe
2c50: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68  sult(interp, (ch
2c60: 61 72 20 2a 29 73 71 6c 69 74 65 33 5f 65 72 72  ar *)sqlite3_err
2c70: 6d 73 67 28 70 44 62 2d 3e 64 62 29 2c 20 54 43  msg(pDb->db), TC
2c80: 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20  L_VOLATILE);.   
2c90: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
2ca0: 52 3b 0a 20 20 7d 0a 0a 20 20 70 20 3d 20 28 49  R;.  }..  p = (I
2cb0: 6e 63 72 62 6c 6f 62 43 68 61 6e 6e 65 6c 20 2a  ncrblobChannel *
2cc0: 29 54 63 6c 5f 41 6c 6c 6f 63 28 73 69 7a 65 6f  )Tcl_Alloc(sizeo
2cd0: 66 28 49 6e 63 72 62 6c 6f 62 43 68 61 6e 6e 65  f(IncrblobChanne
2ce0: 6c 29 29 3b 0a 20 20 70 2d 3e 69 53 65 65 6b 20  l));.  p->iSeek 
2cf0: 3d 20 30 3b 0a 20 20 70 2d 3e 70 42 6c 6f 62 20  = 0;.  p->pBlob 
2d00: 3d 20 70 42 6c 6f 62 3b 0a 0a 20 20 73 71 6c 69  = pBlob;..  sqli
2d10: 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a  te3_snprintf(siz
2d20: 65 6f 66 28 7a 43 68 61 6e 6e 65 6c 29 2c 20 7a  eof(zChannel), z
2d30: 43 68 61 6e 6e 65 6c 2c 20 22 69 6e 63 72 62 6c  Channel, "incrbl
2d40: 6f 62 5f 25 64 22 2c 20 2b 2b 63 6f 75 6e 74 29  ob_%d", ++count)
2d50: 3b 0a 20 20 70 2d 3e 63 68 61 6e 6e 65 6c 20 3d  ;.  p->channel =
2d60: 20 54 63 6c 5f 43 72 65 61 74 65 43 68 61 6e 6e   Tcl_CreateChann
2d70: 65 6c 28 26 49 6e 63 72 62 6c 6f 62 43 68 61 6e  el(&IncrblobChan
2d80: 6e 65 6c 54 79 70 65 2c 20 7a 43 68 61 6e 6e 65  nelType, zChanne
2d90: 6c 2c 20 70 2c 20 66 6c 61 67 73 29 3b 0a 20 20  l, p, flags);.  
2da0: 54 63 6c 5f 52 65 67 69 73 74 65 72 43 68 61 6e  Tcl_RegisterChan
2db0: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 70 2d 3e 63  nel(interp, p->c
2dc0: 68 61 6e 6e 65 6c 29 3b 0a 0a 20 20 2f 2a 20 4c  hannel);..  /* L
2dd0: 69 6e 6b 20 74 68 65 20 6e 65 77 20 63 68 61 6e  ink the new chan
2de0: 6e 65 6c 20 69 6e 74 6f 20 74 68 65 20 53 71 6c  nel into the Sql
2df0: 69 74 65 44 62 2e 70 49 6e 63 72 62 6c 6f 62 20  iteDb.pIncrblob 
2e00: 6c 69 73 74 2e 20 2a 2f 0a 20 20 70 2d 3e 70 4e  list. */.  p->pN
2e10: 65 78 74 20 3d 20 70 44 62 2d 3e 70 49 6e 63 72  ext = pDb->pIncr
2e20: 62 6c 6f 62 3b 0a 20 20 70 2d 3e 70 50 72 65 76  blob;.  p->pPrev
2e30: 20 3d 20 30 3b 0a 20 20 69 66 28 20 70 2d 3e 70   = 0;.  if( p->p
2e40: 4e 65 78 74 20 29 7b 0a 20 20 20 20 70 2d 3e 70  Next ){.    p->p
2e50: 4e 65 78 74 2d 3e 70 50 72 65 76 20 3d 20 70 3b  Next->pPrev = p;
2e60: 0a 20 20 7d 0a 20 20 70 44 62 2d 3e 70 49 6e 63  .  }.  pDb->pInc
2e70: 72 62 6c 6f 62 20 3d 20 70 3b 0a 20 20 70 2d 3e  rblob = p;.  p->
2e80: 70 44 62 20 3d 20 70 44 62 3b 0a 0a 20 20 54 63  pDb = pDb;..  Tc
2e90: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65  l_SetResult(inte
2ea0: 72 70 2c 20 28 63 68 61 72 20 2a 29 54 63 6c 5f  rp, (char *)Tcl_
2eb0: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 70  GetChannelName(p
2ec0: 2d 3e 63 68 61 6e 6e 65 6c 29 2c 20 54 43 4c 5f  ->channel), TCL_
2ed0: 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 72 65 74  VOLATILE);.  ret
2ee0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65  urn TCL_OK;.}.#e
2ef0: 6c 73 65 20 20 2f 2a 20 65 6c 73 65 20 63 6c 61  lse  /* else cla
2f00: 75 73 65 20 66 6f 72 20 22 23 69 66 6e 64 65 66  use for "#ifndef
2f10: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 49 4e 43   SQLITE_OMIT_INC
2f20: 52 42 4c 4f 42 22 20 2a 2f 0a 20 20 23 64 65 66  RBLOB" */.  #def
2f30: 69 6e 65 20 63 6c 6f 73 65 49 6e 63 72 62 6c 6f  ine closeIncrblo
2f40: 62 43 68 61 6e 6e 65 6c 73 28 70 44 62 29 0a 23  bChannels(pDb).#
2f50: 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 4c 6f 6f  endif../*.** Loo
2f60: 6b 20 61 74 20 74 68 65 20 73 63 72 69 70 74 20  k at the script 
2f70: 70 72 65 66 69 78 20 69 6e 20 70 43 6d 64 2e 20  prefix in pCmd. 
2f80: 20 57 65 20 77 69 6c 6c 20 62 65 20 65 78 65 63   We will be exec
2f90: 75 74 69 6e 67 20 74 68 69 73 20 73 63 72 69 70  uting this scrip
2fa0: 74 0a 2a 2a 20 61 66 74 65 72 20 66 69 72 73 74  t.** after first
2fb0: 20 61 70 70 65 6e 64 69 6e 67 20 6f 6e 65 20 6f   appending one o
2fc0: 72 20 6d 6f 72 65 20 61 72 67 75 6d 65 6e 74 73  r more arguments
2fd0: 2e 20 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20  .  This routine 
2fe0: 61 6e 61 6c 79 7a 65 73 0a 2a 2a 20 74 68 65 20  analyzes.** the 
2ff0: 73 63 72 69 70 74 20 74 6f 20 73 65 65 20 69 66  script to see if
3000: 20 69 74 20 69 73 20 73 61 66 65 20 74 6f 20 75   it is safe to u
3010: 73 65 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 76 28  se Tcl_EvalObjv(
3020: 29 20 6f 6e 20 74 68 65 20 73 63 72 69 70 74 0a  ) on the script.
3030: 2a 2a 20 72 61 74 68 65 72 20 74 68 61 6e 20 74  ** rather than t
3040: 68 65 20 6d 6f 72 65 20 67 65 6e 65 72 61 6c 20  he more general 
3050: 54 63 6c 5f 45 76 61 6c 45 78 28 29 2e 20 20 54  Tcl_EvalEx().  T
3060: 63 6c 5f 45 76 61 6c 4f 62 6a 76 28 29 20 69 73  cl_EvalObjv() is
3070: 20 6d 75 63 68 0a 2a 2a 20 66 61 73 74 65 72 2e   much.** faster.
3080: 0a 2a 2a 0a 2a 2a 20 53 63 72 69 70 74 73 20 74  .**.** Scripts t
3090: 68 61 74 20 61 72 65 20 73 61 66 65 20 74 6f 20  hat are safe to 
30a0: 75 73 65 20 77 69 74 68 20 54 63 6c 5f 45 76 61  use with Tcl_Eva
30b0: 6c 4f 62 6a 76 28 29 20 63 6f 6e 73 69 73 74 73  lObjv() consists
30c0: 20 6f 66 20 61 0a 2a 2a 20 63 6f 6d 6d 61 6e 64   of a.** command
30d0: 20 6e 61 6d 65 20 66 6f 6c 6c 6f 77 65 64 20 62   name followed b
30e0: 79 20 7a 65 72 6f 20 6f 72 20 6d 6f 72 65 20 61  y zero or more a
30f0: 72 67 75 6d 65 6e 74 73 20 77 69 74 68 20 6e 6f  rguments with no
3100: 20 5b 2e 2e 2e 5d 20 6f 72 20 24 0a 2a 2a 20 6f   [...] or $.** o
3110: 72 20 7b 2e 2e 2e 7d 20 6f 72 20 3b 20 74 6f 20  r {...} or ; to 
3120: 62 65 20 73 65 65 6e 20 61 6e 79 77 68 65 72 65  be seen anywhere
3130: 2e 20 20 4d 6f 73 74 20 63 61 6c 6c 62 61 63 6b  .  Most callback
3140: 20 73 63 72 69 70 74 73 20 63 6f 6e 73 69 73 74   scripts consist
3150: 0a 2a 2a 20 6f 66 20 6a 75 73 74 20 61 20 73 69  .** of just a si
3160: 6e 67 6c 65 20 70 72 6f 63 65 64 75 72 65 20 6e  ngle procedure n
3170: 61 6d 65 20 61 6e 64 20 74 68 65 79 20 6d 65 65  ame and they mee
3180: 74 20 74 68 69 73 20 72 65 71 75 69 72 65 6d 65  t this requireme
3190: 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  nt..*/.static in
31a0: 74 20 73 61 66 65 54 6f 55 73 65 45 76 61 6c 4f  t safeToUseEvalO
31b0: 62 6a 76 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  bjv(Tcl_Interp *
31c0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20  interp, Tcl_Obj 
31d0: 2a 70 43 6d 64 29 7b 0a 20 20 2f 2a 20 57 65 20  *pCmd){.  /* We 
31e0: 63 6f 75 6c 64 20 74 72 79 20 74 6f 20 64 6f 20  could try to do 
31f0: 73 6f 6d 65 74 68 69 6e 67 20 77 69 74 68 20 54  something with T
3200: 63 6c 5f 50 61 72 73 65 28 29 2e 20 20 42 75 74  cl_Parse().  But
3210: 20 77 65 20 77 69 6c 6c 20 69 6e 73 74 65 61 64   we will instead
3220: 0a 20 20 2a 2a 20 6a 75 73 74 20 64 6f 20 61 20  .  ** just do a 
3230: 73 65 61 72 63 68 20 66 6f 72 20 66 6f 72 62 69  search for forbi
3240: 64 64 65 6e 20 63 68 61 72 61 63 74 65 72 73 2e  dden characters.
3250: 20 20 49 66 20 61 6e 79 20 6f 66 20 74 68 65 20    If any of the 
3260: 66 6f 72 62 69 64 64 65 6e 0a 20 20 2a 2a 20 63  forbidden.  ** c
3270: 68 61 72 61 63 74 65 72 73 20 61 70 70 65 61 72  haracters appear
3280: 20 69 6e 20 70 43 6d 64 2c 20 77 65 20 77 69 6c   in pCmd, we wil
3290: 6c 20 72 65 70 6f 72 74 20 74 68 65 20 73 74 72  l report the str
32a0: 69 6e 67 20 61 73 20 75 6e 73 61 66 65 2e 0a 20  ing as unsafe.. 
32b0: 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72   */.  const char
32c0: 20 2a 7a 3b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20   *z;.  int n;.  
32d0: 7a 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  z = Tcl_GetStrin
32e0: 67 46 72 6f 6d 4f 62 6a 28 70 43 6d 64 2c 20 26  gFromObj(pCmd, &
32f0: 6e 29 3b 0a 20 20 77 68 69 6c 65 28 20 6e 2d 2d  n);.  while( n--
3300: 20 3e 20 30 20 29 7b 0a 20 20 20 20 69 6e 74 20   > 0 ){.    int 
3310: 63 20 3d 20 2a 28 7a 2b 2b 29 3b 0a 20 20 20 20  c = *(z++);.    
3320: 69 66 28 20 63 3d 3d 27 24 27 20 7c 7c 20 63 3d  if( c=='$' || c=
3330: 3d 27 5b 27 20 7c 7c 20 63 3d 3d 27 3b 27 20 29  ='[' || c==';' )
3340: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20   return 0;.  }. 
3350: 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a   return 1;.}../*
3360: 0a 2a 2a 20 46 69 6e 64 20 61 6e 20 53 71 6c 46  .** Find an SqlF
3370: 75 6e 63 20 73 74 72 75 63 74 75 72 65 20 77 69  unc structure wi
3380: 74 68 20 74 68 65 20 67 69 76 65 6e 20 6e 61 6d  th the given nam
3390: 65 2e 20 20 4f 72 20 63 72 65 61 74 65 20 61 20  e.  Or create a 
33a0: 6e 65 77 0a 2a 2a 20 6f 6e 65 20 69 66 20 61 6e  new.** one if an
33b0: 20 65 78 69 73 74 69 6e 67 20 6f 6e 65 20 63 61   existing one ca
33c0: 6e 6e 6f 74 20 62 65 20 66 6f 75 6e 64 2e 20 20  nnot be found.  
33d0: 52 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 72  Return a pointer
33e0: 20 74 6f 20 74 68 65 0a 2a 2a 20 73 74 72 75 63   to the.** struc
33f0: 74 75 72 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ture..*/.static 
3400: 53 71 6c 46 75 6e 63 20 2a 66 69 6e 64 53 71 6c  SqlFunc *findSql
3410: 46 75 6e 63 28 53 71 6c 69 74 65 44 62 20 2a 70  Func(SqliteDb *p
3420: 44 62 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  Db, const char *
3430: 7a 4e 61 6d 65 29 7b 0a 20 20 53 71 6c 46 75 6e  zName){.  SqlFun
3440: 63 20 2a 70 2c 20 2a 70 4e 65 77 3b 0a 20 20 69  c *p, *pNew;.  i
3450: 6e 74 20 69 3b 0a 20 20 70 4e 65 77 20 3d 20 28  nt i;.  pNew = (
3460: 53 71 6c 46 75 6e 63 2a 29 54 63 6c 5f 41 6c 6c  SqlFunc*)Tcl_All
3470: 6f 63 28 20 73 69 7a 65 6f 66 28 2a 70 4e 65 77  oc( sizeof(*pNew
3480: 29 20 2b 20 73 74 72 6c 65 6e 33 30 28 7a 4e 61  ) + strlen30(zNa
3490: 6d 65 29 20 2b 20 31 20 29 3b 0a 20 20 70 4e 65  me) + 1 );.  pNe
34a0: 77 2d 3e 7a 4e 61 6d 65 20 3d 20 28 63 68 61 72  w->zName = (char
34b0: 2a 29 26 70 4e 65 77 5b 31 5d 3b 0a 20 20 66 6f  *)&pNew[1];.  fo
34c0: 72 28 69 3d 30 3b 20 7a 4e 61 6d 65 5b 69 5d 3b  r(i=0; zName[i];
34d0: 20 69 2b 2b 29 7b 20 70 4e 65 77 2d 3e 7a 4e 61   i++){ pNew->zNa
34e0: 6d 65 5b 69 5d 20 3d 20 74 6f 6c 6f 77 65 72 28  me[i] = tolower(
34f0: 7a 4e 61 6d 65 5b 69 5d 29 3b 20 7d 0a 20 20 70  zName[i]); }.  p
3500: 4e 65 77 2d 3e 7a 4e 61 6d 65 5b 69 5d 20 3d 20  New->zName[i] = 
3510: 30 3b 0a 20 20 66 6f 72 28 70 3d 70 44 62 2d 3e  0;.  for(p=pDb->
3520: 70 46 75 6e 63 3b 20 70 3b 20 70 3d 70 2d 3e 70  pFunc; p; p=p->p
3530: 4e 65 78 74 29 7b 20 0a 20 20 20 20 69 66 28 20  Next){ .    if( 
3540: 73 74 72 63 6d 70 28 70 2d 3e 7a 4e 61 6d 65 2c  strcmp(p->zName,
3550: 20 70 4e 65 77 2d 3e 7a 4e 61 6d 65 29 3d 3d 30   pNew->zName)==0
3560: 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 46 72   ){.      Tcl_Fr
3570: 65 65 28 28 63 68 61 72 2a 29 70 4e 65 77 29 3b  ee((char*)pNew);
3580: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 70 3b  .      return p;
3590: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 70 4e 65  .    }.  }.  pNe
35a0: 77 2d 3e 69 6e 74 65 72 70 20 3d 20 70 44 62 2d  w->interp = pDb-
35b0: 3e 69 6e 74 65 72 70 3b 0a 20 20 70 4e 65 77 2d  >interp;.  pNew-
35c0: 3e 70 53 63 72 69 70 74 20 3d 20 30 3b 0a 20 20  >pScript = 0;.  
35d0: 70 4e 65 77 2d 3e 70 4e 65 78 74 20 3d 20 70 44  pNew->pNext = pD
35e0: 62 2d 3e 70 46 75 6e 63 3b 0a 20 20 70 44 62 2d  b->pFunc;.  pDb-
35f0: 3e 70 46 75 6e 63 20 3d 20 70 4e 65 77 3b 0a 20  >pFunc = pNew;. 
3600: 20 72 65 74 75 72 6e 20 70 4e 65 77 3b 0a 7d 0a   return pNew;.}.
3610: 0a 2f 2a 0a 2a 2a 20 46 69 6e 61 6c 69 7a 65 20  ./*.** Finalize 
3620: 61 6e 64 20 66 72 65 65 20 61 20 6c 69 73 74 20  and free a list 
3630: 6f 66 20 70 72 65 70 61 72 65 64 20 73 74 61 74  of prepared stat
3640: 65 6d 65 6e 74 73 0a 2a 2f 0a 73 74 61 74 69 63  ements.*/.static
3650: 20 76 6f 69 64 20 66 6c 75 73 68 53 74 6d 74 43   void flushStmtC
3660: 61 63 68 65 28 20 53 71 6c 69 74 65 44 62 20 2a  ache( SqliteDb *
3670: 70 44 62 20 29 7b 0a 20 20 53 71 6c 50 72 65 70  pDb ){.  SqlPrep
3680: 61 72 65 64 53 74 6d 74 20 2a 70 50 72 65 53 74  aredStmt *pPreSt
3690: 6d 74 3b 0a 0a 20 20 77 68 69 6c 65 28 20 20 70  mt;..  while(  p
36a0: 44 62 2d 3e 73 74 6d 74 4c 69 73 74 20 29 7b 0a  Db->stmtList ){.
36b0: 20 20 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61      sqlite3_fina
36c0: 6c 69 7a 65 28 20 70 44 62 2d 3e 73 74 6d 74 4c  lize( pDb->stmtL
36d0: 69 73 74 2d 3e 70 53 74 6d 74 20 29 3b 0a 20 20  ist->pStmt );.  
36e0: 20 20 70 50 72 65 53 74 6d 74 20 3d 20 70 44 62    pPreStmt = pDb
36f0: 2d 3e 73 74 6d 74 4c 69 73 74 3b 0a 20 20 20 20  ->stmtList;.    
3700: 70 44 62 2d 3e 73 74 6d 74 4c 69 73 74 20 3d 20  pDb->stmtList = 
3710: 70 44 62 2d 3e 73 74 6d 74 4c 69 73 74 2d 3e 70  pDb->stmtList->p
3720: 4e 65 78 74 3b 0a 20 20 20 20 54 63 6c 5f 46 72  Next;.    Tcl_Fr
3730: 65 65 28 20 28 63 68 61 72 2a 29 70 50 72 65 53  ee( (char*)pPreS
3740: 74 6d 74 20 29 3b 0a 20 20 7d 0a 20 20 70 44 62  tmt );.  }.  pDb
3750: 2d 3e 6e 53 74 6d 74 20 3d 20 30 3b 0a 20 20 70  ->nStmt = 0;.  p
3760: 44 62 2d 3e 73 74 6d 74 4c 61 73 74 20 3d 20 30  Db->stmtLast = 0
3770: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 43 4c 20 63  ;.}../*.** TCL c
3780: 61 6c 6c 73 20 74 68 69 73 20 70 72 6f 63 65 64  alls this proced
3790: 75 72 65 20 77 68 65 6e 20 61 6e 20 73 71 6c 69  ure when an sqli
37a0: 74 65 33 20 64 61 74 61 62 61 73 65 20 63 6f 6d  te3 database com
37b0: 6d 61 6e 64 20 69 73 0a 2a 2a 20 64 65 6c 65 74  mand is.** delet
37c0: 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ed..*/.static vo
37d0: 69 64 20 44 62 44 65 6c 65 74 65 43 6d 64 28 76  id DbDeleteCmd(v
37e0: 6f 69 64 20 2a 64 62 29 7b 0a 20 20 53 71 6c 69  oid *db){.  Sqli
37f0: 74 65 44 62 20 2a 70 44 62 20 3d 20 28 53 71 6c  teDb *pDb = (Sql
3800: 69 74 65 44 62 2a 29 64 62 3b 0a 20 20 66 6c 75  iteDb*)db;.  flu
3810: 73 68 53 74 6d 74 43 61 63 68 65 28 70 44 62 29  shStmtCache(pDb)
3820: 3b 0a 20 20 63 6c 6f 73 65 49 6e 63 72 62 6c 6f  ;.  closeIncrblo
3830: 62 43 68 61 6e 6e 65 6c 73 28 70 44 62 29 3b 0a  bChannels(pDb);.
3840: 20 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28    sqlite3_close(
3850: 70 44 62 2d 3e 64 62 29 3b 0a 20 20 77 68 69 6c  pDb->db);.  whil
3860: 65 28 20 70 44 62 2d 3e 70 46 75 6e 63 20 29 7b  e( pDb->pFunc ){
3870: 0a 20 20 20 20 53 71 6c 46 75 6e 63 20 2a 70 46  .    SqlFunc *pF
3880: 75 6e 63 20 3d 20 70 44 62 2d 3e 70 46 75 6e 63  unc = pDb->pFunc
3890: 3b 0a 20 20 20 20 70 44 62 2d 3e 70 46 75 6e 63  ;.    pDb->pFunc
38a0: 20 3d 20 70 46 75 6e 63 2d 3e 70 4e 65 78 74 3b   = pFunc->pNext;
38b0: 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66  .    Tcl_DecrRef
38c0: 43 6f 75 6e 74 28 70 46 75 6e 63 2d 3e 70 53 63  Count(pFunc->pSc
38d0: 72 69 70 74 29 3b 0a 20 20 20 20 54 63 6c 5f 46  ript);.    Tcl_F
38e0: 72 65 65 28 28 63 68 61 72 2a 29 70 46 75 6e 63  ree((char*)pFunc
38f0: 29 3b 0a 20 20 7d 0a 20 20 77 68 69 6c 65 28 20  );.  }.  while( 
3900: 70 44 62 2d 3e 70 43 6f 6c 6c 61 74 65 20 29 7b  pDb->pCollate ){
3910: 0a 20 20 20 20 53 71 6c 43 6f 6c 6c 61 74 65 20  .    SqlCollate 
3920: 2a 70 43 6f 6c 6c 61 74 65 20 3d 20 70 44 62 2d  *pCollate = pDb-
3930: 3e 70 43 6f 6c 6c 61 74 65 3b 0a 20 20 20 20 70  >pCollate;.    p
3940: 44 62 2d 3e 70 43 6f 6c 6c 61 74 65 20 3d 20 70  Db->pCollate = p
3950: 43 6f 6c 6c 61 74 65 2d 3e 70 4e 65 78 74 3b 0a  Collate->pNext;.
3960: 20 20 20 20 54 63 6c 5f 46 72 65 65 28 28 63 68      Tcl_Free((ch
3970: 61 72 2a 29 70 43 6f 6c 6c 61 74 65 29 3b 0a 20  ar*)pCollate);. 
3980: 20 7d 0a 20 20 69 66 28 20 70 44 62 2d 3e 7a 42   }.  if( pDb->zB
3990: 75 73 79 20 29 7b 0a 20 20 20 20 54 63 6c 5f 46  usy ){.    Tcl_F
39a0: 72 65 65 28 70 44 62 2d 3e 7a 42 75 73 79 29 3b  ree(pDb->zBusy);
39b0: 0a 20 20 7d 0a 20 20 69 66 28 20 70 44 62 2d 3e  .  }.  if( pDb->
39c0: 7a 54 72 61 63 65 20 29 7b 0a 20 20 20 20 54 63  zTrace ){.    Tc
39d0: 6c 5f 46 72 65 65 28 70 44 62 2d 3e 7a 54 72 61  l_Free(pDb->zTra
39e0: 63 65 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70  ce);.  }.  if( p
39f0: 44 62 2d 3e 7a 50 72 6f 66 69 6c 65 20 29 7b 0a  Db->zProfile ){.
3a00: 20 20 20 20 54 63 6c 5f 46 72 65 65 28 70 44 62      Tcl_Free(pDb
3a10: 2d 3e 7a 50 72 6f 66 69 6c 65 29 3b 0a 20 20 7d  ->zProfile);.  }
3a20: 0a 20 20 69 66 28 20 70 44 62 2d 3e 7a 41 75 74  .  if( pDb->zAut
3a30: 68 20 29 7b 0a 20 20 20 20 54 63 6c 5f 46 72 65  h ){.    Tcl_Fre
3a40: 65 28 70 44 62 2d 3e 7a 41 75 74 68 29 3b 0a 20  e(pDb->zAuth);. 
3a50: 20 7d 0a 20 20 69 66 28 20 70 44 62 2d 3e 7a 4e   }.  if( pDb->zN
3a60: 75 6c 6c 20 29 7b 0a 20 20 20 20 54 63 6c 5f 46  ull ){.    Tcl_F
3a70: 72 65 65 28 70 44 62 2d 3e 7a 4e 75 6c 6c 29 3b  ree(pDb->zNull);
3a80: 0a 20 20 7d 0a 20 20 69 66 28 20 70 44 62 2d 3e  .  }.  if( pDb->
3a90: 70 55 70 64 61 74 65 48 6f 6f 6b 20 29 7b 0a 20  pUpdateHook ){. 
3aa0: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f     Tcl_DecrRefCo
3ab0: 75 6e 74 28 70 44 62 2d 3e 70 55 70 64 61 74 65  unt(pDb->pUpdate
3ac0: 48 6f 6f 6b 29 3b 0a 20 20 7d 0a 20 20 69 66 28  Hook);.  }.  if(
3ad0: 20 70 44 62 2d 3e 70 52 6f 6c 6c 62 61 63 6b 48   pDb->pRollbackH
3ae0: 6f 6f 6b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 44  ook ){.    Tcl_D
3af0: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 44 62 2d  ecrRefCount(pDb-
3b00: 3e 70 52 6f 6c 6c 62 61 63 6b 48 6f 6f 6b 29 3b  >pRollbackHook);
3b10: 0a 20 20 7d 0a 20 20 69 66 28 20 70 44 62 2d 3e  .  }.  if( pDb->
3b20: 70 57 61 6c 48 6f 6f 6b 20 29 7b 0a 20 20 20 20  pWalHook ){.    
3b30: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74  Tcl_DecrRefCount
3b40: 28 70 44 62 2d 3e 70 57 61 6c 48 6f 6f 6b 29 3b  (pDb->pWalHook);
3b50: 0a 20 20 7d 0a 20 20 69 66 28 20 70 44 62 2d 3e  .  }.  if( pDb->
3b60: 70 43 6f 6c 6c 61 74 65 4e 65 65 64 65 64 20 29  pCollateNeeded )
3b70: 7b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65  {.    Tcl_DecrRe
3b80: 66 43 6f 75 6e 74 28 70 44 62 2d 3e 70 43 6f 6c  fCount(pDb->pCol
3b90: 6c 61 74 65 4e 65 65 64 65 64 29 3b 0a 20 20 7d  lateNeeded);.  }
3ba0: 0a 20 20 54 63 6c 5f 46 72 65 65 28 28 63 68 61  .  Tcl_Free((cha
3bb0: 72 2a 29 70 44 62 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  r*)pDb);.}../*.*
3bc0: 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 69  * This routine i
3bd0: 73 20 63 61 6c 6c 65 64 20 77 68 65 6e 20 61 20  s called when a 
3be0: 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 69 73  database file is
3bf0: 20 6c 6f 63 6b 65 64 20 77 68 69 6c 65 20 74 72   locked while tr
3c00: 79 69 6e 67 0a 2a 2a 20 74 6f 20 65 78 65 63 75  ying.** to execu
3c10: 74 65 20 53 51 4c 2e 0a 2a 2f 0a 73 74 61 74 69  te SQL..*/.stati
3c20: 63 20 69 6e 74 20 44 62 42 75 73 79 48 61 6e 64  c int DbBusyHand
3c30: 6c 65 72 28 76 6f 69 64 20 2a 63 64 2c 20 69 6e  ler(void *cd, in
3c40: 74 20 6e 54 72 69 65 73 29 7b 0a 20 20 53 71 6c  t nTries){.  Sql
3c50: 69 74 65 44 62 20 2a 70 44 62 20 3d 20 28 53 71  iteDb *pDb = (Sq
3c60: 6c 69 74 65 44 62 2a 29 63 64 3b 0a 20 20 69 6e  liteDb*)cd;.  in
3c70: 74 20 72 63 3b 0a 20 20 63 68 61 72 20 7a 56 61  t rc;.  char zVa
3c80: 6c 5b 33 30 5d 3b 0a 0a 20 20 73 71 6c 69 74 65  l[30];..  sqlite
3c90: 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f  3_snprintf(sizeo
3ca0: 66 28 7a 56 61 6c 29 2c 20 7a 56 61 6c 2c 20 22  f(zVal), zVal, "
3cb0: 25 64 22 2c 20 6e 54 72 69 65 73 29 3b 0a 20 20  %d", nTries);.  
3cc0: 72 63 20 3d 20 54 63 6c 5f 56 61 72 45 76 61 6c  rc = Tcl_VarEval
3cd0: 28 70 44 62 2d 3e 69 6e 74 65 72 70 2c 20 70 44  (pDb->interp, pD
3ce0: 62 2d 3e 7a 42 75 73 79 2c 20 22 20 22 2c 20 7a  b->zBusy, " ", z
3cf0: 56 61 6c 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a  Val, (char*)0);.
3d00: 20 20 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f 4b    if( rc!=TCL_OK
3d10: 20 7c 7c 20 61 74 6f 69 28 54 63 6c 5f 47 65 74   || atoi(Tcl_Get
3d20: 53 74 72 69 6e 67 52 65 73 75 6c 74 28 70 44 62  StringResult(pDb
3d30: 2d 3e 69 6e 74 65 72 70 29 29 20 29 7b 0a 20 20  ->interp)) ){.  
3d40: 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a    return 0;.  }.
3d50: 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 23    return 1;.}..#
3d60: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  ifndef SQLITE_OM
3d70: 49 54 5f 50 52 4f 47 52 45 53 53 5f 43 41 4c 4c  IT_PROGRESS_CALL
3d80: 42 41 43 4b 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20  BACK./*.** This 
3d90: 72 6f 75 74 69 6e 65 20 69 73 20 69 6e 76 6f 6b  routine is invok
3da0: 65 64 20 61 73 20 74 68 65 20 27 70 72 6f 67 72  ed as the 'progr
3db0: 65 73 73 20 63 61 6c 6c 62 61 63 6b 27 20 66 6f  ess callback' fo
3dc0: 72 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a  r the database..
3dd0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44 62  */.static int Db
3de0: 50 72 6f 67 72 65 73 73 48 61 6e 64 6c 65 72 28  ProgressHandler(
3df0: 76 6f 69 64 20 2a 63 64 29 7b 0a 20 20 53 71 6c  void *cd){.  Sql
3e00: 69 74 65 44 62 20 2a 70 44 62 20 3d 20 28 53 71  iteDb *pDb = (Sq
3e10: 6c 69 74 65 44 62 2a 29 63 64 3b 0a 20 20 69 6e  liteDb*)cd;.  in
3e20: 74 20 72 63 3b 0a 0a 20 20 61 73 73 65 72 74 28  t rc;..  assert(
3e30: 20 70 44 62 2d 3e 7a 50 72 6f 67 72 65 73 73 20   pDb->zProgress 
3e40: 29 3b 0a 20 20 72 63 20 3d 20 54 63 6c 5f 45 76  );.  rc = Tcl_Ev
3e50: 61 6c 28 70 44 62 2d 3e 69 6e 74 65 72 70 2c 20  al(pDb->interp, 
3e60: 70 44 62 2d 3e 7a 50 72 6f 67 72 65 73 73 29 3b  pDb->zProgress);
3e70: 0a 20 20 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f  .  if( rc!=TCL_O
3e80: 4b 20 7c 7c 20 61 74 6f 69 28 54 63 6c 5f 47 65  K || atoi(Tcl_Ge
3e90: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 70 44  tStringResult(pD
3ea0: 62 2d 3e 69 6e 74 65 72 70 29 29 20 29 7b 0a 20  b->interp)) ){. 
3eb0: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d     return 1;.  }
3ec0: 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 23  .  return 0;.}.#
3ed0: 65 6e 64 69 66 0a 0a 23 69 66 6e 64 65 66 20 53  endif..#ifndef S
3ee0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 54 52 41 43 45  QLITE_OMIT_TRACE
3ef0: 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74  ./*.** This rout
3f00: 69 6e 65 20 69 73 20 63 61 6c 6c 65 64 20 62 79  ine is called by
3f10: 20 74 68 65 20 53 51 4c 69 74 65 20 74 72 61 63   the SQLite trac
3f20: 65 20 68 61 6e 64 6c 65 72 20 77 68 65 6e 65 76  e handler whenev
3f30: 65 72 20 61 20 6e 65 77 0a 2a 2a 20 62 6c 6f 63  er a new.** bloc
3f40: 6b 20 6f 66 20 53 51 4c 20 69 73 20 65 78 65 63  k of SQL is exec
3f50: 75 74 65 64 2e 20 20 54 68 65 20 54 43 4c 20 73  uted.  The TCL s
3f60: 63 72 69 70 74 20 69 6e 20 70 44 62 2d 3e 7a 54  cript in pDb->zT
3f70: 72 61 63 65 20 69 73 20 65 78 65 63 75 74 65 64  race is executed
3f80: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
3f90: 20 44 62 54 72 61 63 65 48 61 6e 64 6c 65 72 28   DbTraceHandler(
3fa0: 76 6f 69 64 20 2a 63 64 2c 20 63 6f 6e 73 74 20  void *cd, const 
3fb0: 63 68 61 72 20 2a 7a 53 71 6c 29 7b 0a 20 20 53  char *zSql){.  S
3fc0: 71 6c 69 74 65 44 62 20 2a 70 44 62 20 3d 20 28  qliteDb *pDb = (
3fd0: 53 71 6c 69 74 65 44 62 2a 29 63 64 3b 0a 20 20  SqliteDb*)cd;.  
3fe0: 54 63 6c 5f 44 53 74 72 69 6e 67 20 73 74 72 3b  Tcl_DString str;
3ff0: 0a 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49  ..  Tcl_DStringI
4000: 6e 69 74 28 26 73 74 72 29 3b 0a 20 20 54 63 6c  nit(&str);.  Tcl
4010: 5f 44 53 74 72 69 6e 67 41 70 70 65 6e 64 28 26  _DStringAppend(&
4020: 73 74 72 2c 20 70 44 62 2d 3e 7a 54 72 61 63 65  str, pDb->zTrace
4030: 2c 20 2d 31 29 3b 0a 20 20 54 63 6c 5f 44 53 74  , -1);.  Tcl_DSt
4040: 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d 65 6e  ringAppendElemen
4050: 74 28 26 73 74 72 2c 20 7a 53 71 6c 29 3b 0a 20  t(&str, zSql);. 
4060: 20 54 63 6c 5f 45 76 61 6c 28 70 44 62 2d 3e 69   Tcl_Eval(pDb->i
4070: 6e 74 65 72 70 2c 20 54 63 6c 5f 44 53 74 72 69  nterp, Tcl_DStri
4080: 6e 67 56 61 6c 75 65 28 26 73 74 72 29 29 3b 0a  ngValue(&str));.
4090: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65    Tcl_DStringFre
40a0: 65 28 26 73 74 72 29 3b 0a 20 20 54 63 6c 5f 52  e(&str);.  Tcl_R
40b0: 65 73 65 74 52 65 73 75 6c 74 28 70 44 62 2d 3e  esetResult(pDb->
40c0: 69 6e 74 65 72 70 29 3b 0a 7d 0a 23 65 6e 64 69  interp);.}.#endi
40d0: 66 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54  f..#ifndef SQLIT
40e0: 45 5f 4f 4d 49 54 5f 54 52 41 43 45 0a 2f 2a 0a  E_OMIT_TRACE./*.
40f0: 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20  ** This routine 
4100: 69 73 20 63 61 6c 6c 65 64 20 62 79 20 74 68 65  is called by the
4110: 20 53 51 4c 69 74 65 20 70 72 6f 66 69 6c 65 20   SQLite profile 
4120: 68 61 6e 64 6c 65 72 20 61 66 74 65 72 20 61 20  handler after a 
4130: 73 74 61 74 65 6d 65 6e 74 0a 2a 2a 20 53 51 4c  statement.** SQL
4140: 20 68 61 73 20 65 78 65 63 75 74 65 64 2e 20 20   has executed.  
4150: 54 68 65 20 54 43 4c 20 73 63 72 69 70 74 20 69  The TCL script i
4160: 6e 20 70 44 62 2d 3e 7a 50 72 6f 66 69 6c 65 20  n pDb->zProfile 
4170: 69 73 20 65 76 61 6c 75 61 74 65 64 2e 0a 2a 2f  is evaluated..*/
4180: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 44 62 50  .static void DbP
4190: 72 6f 66 69 6c 65 48 61 6e 64 6c 65 72 28 76 6f  rofileHandler(vo
41a0: 69 64 20 2a 63 64 2c 20 63 6f 6e 73 74 20 63 68  id *cd, const ch
41b0: 61 72 20 2a 7a 53 71 6c 2c 20 73 71 6c 69 74 65  ar *zSql, sqlite
41c0: 5f 75 69 6e 74 36 34 20 74 6d 29 7b 0a 20 20 53  _uint64 tm){.  S
41d0: 71 6c 69 74 65 44 62 20 2a 70 44 62 20 3d 20 28  qliteDb *pDb = (
41e0: 53 71 6c 69 74 65 44 62 2a 29 63 64 3b 0a 20 20  SqliteDb*)cd;.  
41f0: 54 63 6c 5f 44 53 74 72 69 6e 67 20 73 74 72 3b  Tcl_DString str;
4200: 0a 20 20 63 68 61 72 20 7a 54 6d 5b 31 30 30 5d  .  char zTm[100]
4210: 3b 0a 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70  ;..  sqlite3_snp
4220: 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 54 6d  rintf(sizeof(zTm
4230: 29 2d 31 2c 20 7a 54 6d 2c 20 22 25 6c 6c 64 22  )-1, zTm, "%lld"
4240: 2c 20 74 6d 29 3b 0a 20 20 54 63 6c 5f 44 53 74  , tm);.  Tcl_DSt
4250: 72 69 6e 67 49 6e 69 74 28 26 73 74 72 29 3b 0a  ringInit(&str);.
4260: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 70    Tcl_DStringApp
4270: 65 6e 64 28 26 73 74 72 2c 20 70 44 62 2d 3e 7a  end(&str, pDb->z
4280: 50 72 6f 66 69 6c 65 2c 20 2d 31 29 3b 0a 20 20  Profile, -1);.  
4290: 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 6e  Tcl_DStringAppen
42a0: 64 45 6c 65 6d 65 6e 74 28 26 73 74 72 2c 20 7a  dElement(&str, z
42b0: 53 71 6c 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72  Sql);.  Tcl_DStr
42c0: 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ingAppendElement
42d0: 28 26 73 74 72 2c 20 7a 54 6d 29 3b 0a 20 20 54  (&str, zTm);.  T
42e0: 63 6c 5f 45 76 61 6c 28 70 44 62 2d 3e 69 6e 74  cl_Eval(pDb->int
42f0: 65 72 70 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67  erp, Tcl_DString
4300: 56 61 6c 75 65 28 26 73 74 72 29 29 3b 0a 20 20  Value(&str));.  
4310: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28  Tcl_DStringFree(
4320: 26 73 74 72 29 3b 0a 20 20 54 63 6c 5f 52 65 73  &str);.  Tcl_Res
4330: 65 74 52 65 73 75 6c 74 28 70 44 62 2d 3e 69 6e  etResult(pDb->in
4340: 74 65 72 70 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a  terp);.}.#endif.
4350: 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74  ./*.** This rout
4360: 69 6e 65 20 69 73 20 63 61 6c 6c 65 64 20 77 68  ine is called wh
4370: 65 6e 20 61 20 74 72 61 6e 73 61 63 74 69 6f 6e  en a transaction
4380: 20 69 73 20 63 6f 6d 6d 69 74 74 65 64 2e 20 20   is committed.  
4390: 54 68 65 0a 2a 2a 20 54 43 4c 20 73 63 72 69 70  The.** TCL scrip
43a0: 74 20 69 6e 20 70 44 62 2d 3e 7a 43 6f 6d 6d 69  t in pDb->zCommi
43b0: 74 20 69 73 20 65 78 65 63 75 74 65 64 2e 20 20  t is executed.  
43c0: 49 66 20 69 74 20 72 65 74 75 72 6e 73 20 6e 6f  If it returns no
43d0: 6e 2d 7a 65 72 6f 20 6f 72 0a 2a 2a 20 69 66 20  n-zero or.** if 
43e0: 69 74 20 74 68 72 6f 77 73 20 61 6e 20 65 78 63  it throws an exc
43f0: 65 70 74 69 6f 6e 2c 20 74 68 65 20 74 72 61 6e  eption, the tran
4400: 73 61 63 74 69 6f 6e 20 69 73 20 72 6f 6c 6c 65  saction is rolle
4410: 64 20 62 61 63 6b 20 69 6e 73 74 65 61 64 0a 2a  d back instead.*
4420: 2a 20 6f 66 20 62 65 69 6e 67 20 63 6f 6d 6d 69  * of being commi
4430: 74 74 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  tted..*/.static 
4440: 69 6e 74 20 44 62 43 6f 6d 6d 69 74 48 61 6e 64  int DbCommitHand
4450: 6c 65 72 28 76 6f 69 64 20 2a 63 64 29 7b 0a 20  ler(void *cd){. 
4460: 20 53 71 6c 69 74 65 44 62 20 2a 70 44 62 20 3d   SqliteDb *pDb =
4470: 20 28 53 71 6c 69 74 65 44 62 2a 29 63 64 3b 0a   (SqliteDb*)cd;.
4480: 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 72 63 20    int rc;..  rc 
4490: 3d 20 54 63 6c 5f 45 76 61 6c 28 70 44 62 2d 3e  = Tcl_Eval(pDb->
44a0: 69 6e 74 65 72 70 2c 20 70 44 62 2d 3e 7a 43 6f  interp, pDb->zCo
44b0: 6d 6d 69 74 29 3b 0a 20 20 69 66 28 20 72 63 21  mmit);.  if( rc!
44c0: 3d 54 43 4c 5f 4f 4b 20 7c 7c 20 61 74 6f 69 28  =TCL_OK || atoi(
44d0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
44e0: 75 6c 74 28 70 44 62 2d 3e 69 6e 74 65 72 70 29  ult(pDb->interp)
44f0: 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  ) ){.    return 
4500: 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  1;.  }.  return 
4510: 30 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69  0;.}..static voi
4520: 64 20 44 62 52 6f 6c 6c 62 61 63 6b 48 61 6e 64  d DbRollbackHand
4530: 6c 65 72 28 76 6f 69 64 20 2a 63 6c 69 65 6e 74  ler(void *client
4540: 44 61 74 61 29 7b 0a 20 20 53 71 6c 69 74 65 44  Data){.  SqliteD
4550: 62 20 2a 70 44 62 20 3d 20 28 53 71 6c 69 74 65  b *pDb = (Sqlite
4560: 44 62 2a 29 63 6c 69 65 6e 74 44 61 74 61 3b 0a  Db*)clientData;.
4570: 20 20 61 73 73 65 72 74 28 70 44 62 2d 3e 70 52    assert(pDb->pR
4580: 6f 6c 6c 62 61 63 6b 48 6f 6f 6b 29 3b 0a 20 20  ollbackHook);.  
4590: 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f  if( TCL_OK!=Tcl_
45a0: 45 76 61 6c 4f 62 6a 45 78 28 70 44 62 2d 3e 69  EvalObjEx(pDb->i
45b0: 6e 74 65 72 70 2c 20 70 44 62 2d 3e 70 52 6f 6c  nterp, pDb->pRol
45c0: 6c 62 61 63 6b 48 6f 6f 6b 2c 20 30 29 20 29 7b  lbackHook, 0) ){
45d0: 0a 20 20 20 20 54 63 6c 5f 42 61 63 6b 67 72 6f  .    Tcl_Backgro
45e0: 75 6e 64 45 72 72 6f 72 28 70 44 62 2d 3e 69 6e  undError(pDb->in
45f0: 74 65 72 70 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a  terp);.  }.}../*
4600: 0a 2a 2a 20 54 68 69 73 20 70 72 6f 63 65 64 75  .** This procedu
4610: 72 65 20 68 61 6e 64 6c 65 73 20 77 61 6c 5f 68  re handles wal_h
4620: 6f 6f 6b 20 63 61 6c 6c 62 61 63 6b 73 2e 0a 2a  ook callbacks..*
4630: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44 62 57  /.static int DbW
4640: 61 6c 48 61 6e 64 6c 65 72 28 0a 20 20 76 6f 69  alHandler(.  voi
4650: 64 20 2a 63 6c 69 65 6e 74 44 61 74 61 2c 20 0a  d *clientData, .
4660: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 2c 20 0a    sqlite3 *db, .
4670: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44    const char *zD
4680: 62 2c 20 0a 20 20 69 6e 74 20 6e 45 6e 74 72 79  b, .  int nEntry
4690: 0a 29 7b 0a 20 20 69 6e 74 20 72 65 74 20 3d 20  .){.  int ret = 
46a0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 63 6c  SQLITE_OK;.  Tcl
46b0: 5f 4f 62 6a 20 2a 70 3b 0a 20 20 53 71 6c 69 74  _Obj *p;.  Sqlit
46c0: 65 44 62 20 2a 70 44 62 20 3d 20 28 53 71 6c 69  eDb *pDb = (Sqli
46d0: 74 65 44 62 2a 29 63 6c 69 65 6e 74 44 61 74 61  teDb*)clientData
46e0: 3b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ;.  Tcl_Interp *
46f0: 69 6e 74 65 72 70 20 3d 20 70 44 62 2d 3e 69 6e  interp = pDb->in
4700: 74 65 72 70 3b 0a 20 20 61 73 73 65 72 74 28 70  terp;.  assert(p
4710: 44 62 2d 3e 70 57 61 6c 48 6f 6f 6b 29 3b 0a 0a  Db->pWalHook);..
4720: 20 20 70 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63    p = Tcl_Duplic
4730: 61 74 65 4f 62 6a 28 70 44 62 2d 3e 70 57 61 6c  ateObj(pDb->pWal
4740: 48 6f 6f 6b 29 3b 0a 20 20 54 63 6c 5f 49 6e 63  Hook);.  Tcl_Inc
4750: 72 52 65 66 43 6f 75 6e 74 28 70 29 3b 0a 20 20  rRefCount(p);.  
4760: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
4770: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c  dElement(interp,
4780: 20 70 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e   p, Tcl_NewStrin
4790: 67 4f 62 6a 28 7a 44 62 2c 20 2d 31 29 29 3b 0a  gObj(zDb, -1));.
47a0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
47b0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72  endElement(inter
47c0: 70 2c 20 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74  p, p, Tcl_NewInt
47d0: 4f 62 6a 28 6e 45 6e 74 72 79 29 29 3b 0a 20 20  Obj(nEntry));.  
47e0: 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f  if( TCL_OK!=Tcl_
47f0: 45 76 61 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70  EvalObjEx(interp
4800: 2c 20 70 2c 20 30 29 20 0a 20 20 20 7c 7c 20 54  , p, 0) .   || T
4810: 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e  CL_OK!=Tcl_GetIn
4820: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  tFromObj(interp,
4830: 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c   Tcl_GetObjResul
4840: 74 28 69 6e 74 65 72 70 29 2c 20 26 72 65 74 29  t(interp), &ret)
4850: 0a 20 20 29 7b 0a 20 20 20 20 54 63 6c 5f 42 61  .  ){.    Tcl_Ba
4860: 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 69 6e  ckgroundError(in
4870: 74 65 72 70 29 3b 0a 20 20 7d 0a 20 20 54 63 6c  terp);.  }.  Tcl
4880: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 29  _DecrRefCount(p)
4890: 3b 0a 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b  ;..  return ret;
48a0: 0a 7d 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28  .}..#if defined(
48b0: 53 51 4c 49 54 45 5f 54 45 53 54 29 20 26 26 20  SQLITE_TEST) && 
48c0: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 45  defined(SQLITE_E
48d0: 4e 41 42 4c 45 5f 55 4e 4c 4f 43 4b 5f 4e 4f 54  NABLE_UNLOCK_NOT
48e0: 49 46 59 29 0a 73 74 61 74 69 63 20 76 6f 69 64  IFY).static void
48f0: 20 73 65 74 54 65 73 74 55 6e 6c 6f 63 6b 4e 6f   setTestUnlockNo
4900: 74 69 66 79 56 61 72 73 28 54 63 6c 5f 49 6e 74  tifyVars(Tcl_Int
4910: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74  erp *interp, int
4920: 20 69 41 72 67 2c 20 69 6e 74 20 6e 41 72 67 29   iArg, int nArg)
4930: 7b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 36 34  {.  char zBuf[64
4940: 5d 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75  ];.  sprintf(zBu
4950: 66 2c 20 22 25 64 22 2c 20 69 41 72 67 29 3b 0a  f, "%d", iArg);.
4960: 20 20 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74    Tcl_SetVar(int
4970: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 75 6e 6c  erp, "sqlite_unl
4980: 6f 63 6b 5f 6e 6f 74 69 66 79 5f 61 72 67 22 2c  ock_notify_arg",
4990: 20 7a 42 75 66 2c 20 54 43 4c 5f 47 4c 4f 42 41   zBuf, TCL_GLOBA
49a0: 4c 5f 4f 4e 4c 59 29 3b 0a 20 20 73 70 72 69 6e  L_ONLY);.  sprin
49b0: 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 6e  tf(zBuf, "%d", n
49c0: 41 72 67 29 3b 0a 20 20 54 63 6c 5f 53 65 74 56  Arg);.  Tcl_SetV
49d0: 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  ar(interp, "sqli
49e0: 74 65 5f 75 6e 6c 6f 63 6b 5f 6e 6f 74 69 66 79  te_unlock_notify
49f0: 5f 61 72 67 63 6f 75 6e 74 22 2c 20 7a 42 75 66  _argcount", zBuf
4a00: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
4a10: 59 29 3b 0a 7d 0a 23 65 6c 73 65 0a 23 20 64 65  Y);.}.#else.# de
4a20: 66 69 6e 65 20 73 65 74 54 65 73 74 55 6e 6c 6f  fine setTestUnlo
4a30: 63 6b 4e 6f 74 69 66 79 56 61 72 73 28 78 2c 79  ckNotifyVars(x,y
4a40: 2c 7a 29 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64  ,z).#endif..#ifd
4a50: 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45  ef SQLITE_ENABLE
4a60: 5f 55 4e 4c 4f 43 4b 5f 4e 4f 54 49 46 59 0a 73  _UNLOCK_NOTIFY.s
4a70: 74 61 74 69 63 20 76 6f 69 64 20 44 62 55 6e 6c  tatic void DbUnl
4a80: 6f 63 6b 4e 6f 74 69 66 79 28 76 6f 69 64 20 2a  ockNotify(void *
4a90: 2a 61 70 41 72 67 2c 20 69 6e 74 20 6e 41 72 67  *apArg, int nArg
4aa0: 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f  ){.  int i;.  fo
4ab0: 72 28 69 3d 30 3b 20 69 3c 6e 41 72 67 3b 20 69  r(i=0; i<nArg; i
4ac0: 2b 2b 29 7b 0a 20 20 20 20 63 6f 6e 73 74 20 69  ++){.    const i
4ad0: 6e 74 20 66 6c 61 67 73 20 3d 20 28 54 43 4c 5f  nt flags = (TCL_
4ae0: 45 56 41 4c 5f 47 4c 4f 42 41 4c 7c 54 43 4c 5f  EVAL_GLOBAL|TCL_
4af0: 45 56 41 4c 5f 44 49 52 45 43 54 29 3b 0a 20 20  EVAL_DIRECT);.  
4b00: 20 20 53 71 6c 69 74 65 44 62 20 2a 70 44 62 20    SqliteDb *pDb 
4b10: 3d 20 28 53 71 6c 69 74 65 44 62 20 2a 29 61 70  = (SqliteDb *)ap
4b20: 41 72 67 5b 69 5d 3b 0a 20 20 20 20 73 65 74 54  Arg[i];.    setT
4b30: 65 73 74 55 6e 6c 6f 63 6b 4e 6f 74 69 66 79 56  estUnlockNotifyV
4b40: 61 72 73 28 70 44 62 2d 3e 69 6e 74 65 72 70 2c  ars(pDb->interp,
4b50: 20 69 2c 20 6e 41 72 67 29 3b 0a 20 20 20 20 61   i, nArg);.    a
4b60: 73 73 65 72 74 28 20 70 44 62 2d 3e 70 55 6e 6c  ssert( pDb->pUnl
4b70: 6f 63 6b 4e 6f 74 69 66 79 29 3b 0a 20 20 20 20  ockNotify);.    
4b80: 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70 44  Tcl_EvalObjEx(pD
4b90: 62 2d 3e 69 6e 74 65 72 70 2c 20 70 44 62 2d 3e  b->interp, pDb->
4ba0: 70 55 6e 6c 6f 63 6b 4e 6f 74 69 66 79 2c 20 66  pUnlockNotify, f
4bb0: 6c 61 67 73 29 3b 0a 20 20 20 20 54 63 6c 5f 44  lags);.    Tcl_D
4bc0: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 44 62 2d  ecrRefCount(pDb-
4bd0: 3e 70 55 6e 6c 6f 63 6b 4e 6f 74 69 66 79 29 3b  >pUnlockNotify);
4be0: 0a 20 20 20 20 70 44 62 2d 3e 70 55 6e 6c 6f 63  .    pDb->pUnloc
4bf0: 6b 4e 6f 74 69 66 79 20 3d 20 30 3b 0a 20 20 7d  kNotify = 0;.  }
4c00: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 73 74 61 74 69  .}.#endif..stati
4c10: 63 20 76 6f 69 64 20 44 62 55 70 64 61 74 65 48  c void DbUpdateH
4c20: 61 6e 64 6c 65 72 28 0a 20 20 76 6f 69 64 20 2a  andler(.  void *
4c30: 70 2c 20 0a 20 20 69 6e 74 20 6f 70 2c 0a 20 20  p, .  int op,.  
4c40: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 62 2c  const char *zDb,
4c50: 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a   .  const char *
4c60: 7a 54 62 6c 2c 20 0a 20 20 73 71 6c 69 74 65 5f  zTbl, .  sqlite_
4c70: 69 6e 74 36 34 20 72 6f 77 69 64 0a 29 7b 0a 20  int64 rowid.){. 
4c80: 20 53 71 6c 69 74 65 44 62 20 2a 70 44 62 20 3d   SqliteDb *pDb =
4c90: 20 28 53 71 6c 69 74 65 44 62 20 2a 29 70 3b 0a   (SqliteDb *)p;.
4ca0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 43 6d 64 3b    Tcl_Obj *pCmd;
4cb0: 0a 0a 20 20 61 73 73 65 72 74 28 20 70 44 62 2d  ..  assert( pDb-
4cc0: 3e 70 55 70 64 61 74 65 48 6f 6f 6b 20 29 3b 0a  >pUpdateHook );.
4cd0: 20 20 61 73 73 65 72 74 28 20 6f 70 3d 3d 53 51    assert( op==SQ
4ce0: 4c 49 54 45 5f 49 4e 53 45 52 54 20 7c 7c 20 6f  LITE_INSERT || o
4cf0: 70 3d 3d 53 51 4c 49 54 45 5f 55 50 44 41 54 45  p==SQLITE_UPDATE
4d00: 20 7c 7c 20 6f 70 3d 3d 53 51 4c 49 54 45 5f 44   || op==SQLITE_D
4d10: 45 4c 45 54 45 20 29 3b 0a 0a 20 20 70 43 6d 64  ELETE );..  pCmd
4d20: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65   = Tcl_Duplicate
4d30: 4f 62 6a 28 70 44 62 2d 3e 70 55 70 64 61 74 65  Obj(pDb->pUpdate
4d40: 48 6f 6f 6b 29 3b 0a 20 20 54 63 6c 5f 49 6e 63  Hook);.  Tcl_Inc
4d50: 72 52 65 66 43 6f 75 6e 74 28 70 43 6d 64 29 3b  rRefCount(pCmd);
4d60: 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70  .  Tcl_ListObjAp
4d70: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70  pendElement(0, p
4d80: 43 6d 64 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  Cmd, Tcl_NewStri
4d90: 6e 67 4f 62 6a 28 0a 20 20 20 20 28 20 28 6f 70  ngObj(.    ( (op
4da0: 3d 3d 53 51 4c 49 54 45 5f 49 4e 53 45 52 54 29  ==SQLITE_INSERT)
4db0: 3f 22 49 4e 53 45 52 54 22 3a 28 6f 70 3d 3d 53  ?"INSERT":(op==S
4dc0: 51 4c 49 54 45 5f 55 50 44 41 54 45 29 3f 22 55  QLITE_UPDATE)?"U
4dd0: 50 44 41 54 45 22 3a 22 44 45 4c 45 54 45 22 29  PDATE":"DELETE")
4de0: 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 4c 69  , -1));.  Tcl_Li
4df0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
4e00: 6e 74 28 30 2c 20 70 43 6d 64 2c 20 54 63 6c 5f  nt(0, pCmd, Tcl_
4e10: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 44 62  NewStringObj(zDb
4e20: 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 4c 69  , -1));.  Tcl_Li
4e30: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
4e40: 6e 74 28 30 2c 20 70 43 6d 64 2c 20 54 63 6c 5f  nt(0, pCmd, Tcl_
4e50: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 54 62  NewStringObj(zTb
4e60: 6c 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 4c  l, -1));.  Tcl_L
4e70: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d  istObjAppendElem
4e80: 65 6e 74 28 30 2c 20 70 43 6d 64 2c 20 54 63 6c  ent(0, pCmd, Tcl
4e90: 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 72  _NewWideIntObj(r
4ea0: 6f 77 69 64 29 29 3b 0a 20 20 54 63 6c 5f 45 76  owid));.  Tcl_Ev
4eb0: 61 6c 4f 62 6a 45 78 28 70 44 62 2d 3e 69 6e 74  alObjEx(pDb->int
4ec0: 65 72 70 2c 20 70 43 6d 64 2c 20 54 43 4c 5f 45  erp, pCmd, TCL_E
4ed0: 56 41 4c 5f 44 49 52 45 43 54 29 3b 0a 7d 0a 0a  VAL_DIRECT);.}..
4ee0: 73 74 61 74 69 63 20 76 6f 69 64 20 74 63 6c 43  static void tclC
4ef0: 6f 6c 6c 61 74 65 4e 65 65 64 65 64 28 0a 20 20  ollateNeeded(.  
4f00: 76 6f 69 64 20 2a 70 43 74 78 2c 0a 20 20 73 71  void *pCtx,.  sq
4f10: 6c 69 74 65 33 20 2a 64 62 2c 0a 20 20 69 6e 74  lite3 *db,.  int
4f20: 20 65 6e 63 2c 0a 20 20 63 6f 6e 73 74 20 63 68   enc,.  const ch
4f30: 61 72 20 2a 7a 4e 61 6d 65 0a 29 7b 0a 20 20 53  ar *zName.){.  S
4f40: 71 6c 69 74 65 44 62 20 2a 70 44 62 20 3d 20 28  qliteDb *pDb = (
4f50: 53 71 6c 69 74 65 44 62 20 2a 29 70 43 74 78 3b  SqliteDb *)pCtx;
4f60: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 63 72  .  Tcl_Obj *pScr
4f70: 69 70 74 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63  ipt = Tcl_Duplic
4f80: 61 74 65 4f 62 6a 28 70 44 62 2d 3e 70 43 6f 6c  ateObj(pDb->pCol
4f90: 6c 61 74 65 4e 65 65 64 65 64 29 3b 0a 20 20 54  lateNeeded);.  T
4fa0: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28  cl_IncrRefCount(
4fb0: 70 53 63 72 69 70 74 29 3b 0a 20 20 54 63 6c 5f  pScript);.  Tcl_
4fc0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
4fd0: 6d 65 6e 74 28 30 2c 20 70 53 63 72 69 70 74 2c  ment(0, pScript,
4fe0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
4ff0: 6a 28 7a 4e 61 6d 65 2c 20 2d 31 29 29 3b 0a 20  j(zName, -1));. 
5000: 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70   Tcl_EvalObjEx(p
5010: 44 62 2d 3e 69 6e 74 65 72 70 2c 20 70 53 63 72  Db->interp, pScr
5020: 69 70 74 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 44  ipt, 0);.  Tcl_D
5030: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 53 63 72  ecrRefCount(pScr
5040: 69 70 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54  ipt);.}../*.** T
5050: 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 63  his routine is c
5060: 61 6c 6c 65 64 20 74 6f 20 65 76 61 6c 75 61 74  alled to evaluat
5070: 65 20 61 6e 20 53 51 4c 20 63 6f 6c 6c 61 74 69  e an SQL collati
5080: 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 6c  on function impl
5090: 65 6d 65 6e 74 65 64 0a 2a 2a 20 75 73 69 6e 67  emented.** using
50a0: 20 54 43 4c 20 73 63 72 69 70 74 2e 0a 2a 2f 0a   TCL script..*/.
50b0: 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c 53 71  static int tclSq
50c0: 6c 43 6f 6c 6c 61 74 65 28 0a 20 20 76 6f 69 64  lCollate(.  void
50d0: 20 2a 70 43 74 78 2c 0a 20 20 69 6e 74 20 6e 41   *pCtx,.  int nA
50e0: 2c 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a  ,.  const void *
50f0: 7a 41 2c 0a 20 20 69 6e 74 20 6e 42 2c 0a 20 20  zA,.  int nB,.  
5100: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 42 0a 29  const void *zB.)
5110: 7b 0a 20 20 53 71 6c 43 6f 6c 6c 61 74 65 20 2a  {.  SqlCollate *
5120: 70 20 3d 20 28 53 71 6c 43 6f 6c 6c 61 74 65 20  p = (SqlCollate 
5130: 2a 29 70 43 74 78 3b 0a 20 20 54 63 6c 5f 4f 62  *)pCtx;.  Tcl_Ob
5140: 6a 20 2a 70 43 6d 64 3b 0a 0a 20 20 70 43 6d 64  j *pCmd;..  pCmd
5150: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67   = Tcl_NewString
5160: 4f 62 6a 28 70 2d 3e 7a 53 63 72 69 70 74 2c 20  Obj(p->zScript, 
5170: 2d 31 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52  -1);.  Tcl_IncrR
5180: 65 66 43 6f 75 6e 74 28 70 43 6d 64 29 3b 0a 20  efCount(pCmd);. 
5190: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65   Tcl_ListObjAppe
51a0: 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74  ndElement(p->int
51b0: 65 72 70 2c 20 70 43 6d 64 2c 20 54 63 6c 5f 4e  erp, pCmd, Tcl_N
51c0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 41 2c 20  ewStringObj(zA, 
51d0: 6e 41 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74  nA));.  Tcl_List
51e0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
51f0: 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 43 6d 64  (p->interp, pCmd
5200: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  , Tcl_NewStringO
5210: 62 6a 28 7a 42 2c 20 6e 42 29 29 3b 0a 20 20 54  bj(zB, nB));.  T
5220: 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70 2d 3e  cl_EvalObjEx(p->
5230: 69 6e 74 65 72 70 2c 20 70 43 6d 64 2c 20 54 43  interp, pCmd, TC
5240: 4c 5f 45 56 41 4c 5f 44 49 52 45 43 54 29 3b 0a  L_EVAL_DIRECT);.
5250: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75    Tcl_DecrRefCou
5260: 6e 74 28 70 43 6d 64 29 3b 0a 20 20 72 65 74 75  nt(pCmd);.  retu
5270: 72 6e 20 28 61 74 6f 69 28 54 63 6c 5f 47 65 74  rn (atoi(Tcl_Get
5280: 53 74 72 69 6e 67 52 65 73 75 6c 74 28 70 2d 3e  StringResult(p->
5290: 69 6e 74 65 72 70 29 29 29 3b 0a 7d 0a 0a 2f 2a  interp)));.}../*
52a0: 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65  .** This routine
52b0: 20 69 73 20 63 61 6c 6c 65 64 20 74 6f 20 65 76   is called to ev
52c0: 61 6c 75 61 74 65 20 61 6e 20 53 51 4c 20 66 75  aluate an SQL fu
52d0: 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74  nction implement
52e0: 65 64 0a 2a 2a 20 75 73 69 6e 67 20 54 43 4c 20  ed.** using TCL 
52f0: 73 63 72 69 70 74 2e 0a 2a 2f 0a 73 74 61 74 69  script..*/.stati
5300: 63 20 76 6f 69 64 20 74 63 6c 53 71 6c 46 75 6e  c void tclSqlFun
5310: 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  c(sqlite3_contex
5320: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20  t *context, int 
5330: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61  argc, sqlite3_va
5340: 6c 75 65 2a 2a 61 72 67 76 29 7b 0a 20 20 53 71  lue**argv){.  Sq
5350: 6c 46 75 6e 63 20 2a 70 20 3d 20 73 71 6c 69 74  lFunc *p = sqlit
5360: 65 33 5f 75 73 65 72 5f 64 61 74 61 28 63 6f 6e  e3_user_data(con
5370: 74 65 78 74 29 3b 0a 20 20 54 63 6c 5f 4f 62 6a  text);.  Tcl_Obj
5380: 20 2a 70 43 6d 64 3b 0a 20 20 69 6e 74 20 69 3b   *pCmd;.  int i;
5390: 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66  .  int rc;..  if
53a0: 28 20 61 72 67 63 3d 3d 30 20 29 7b 0a 20 20 20  ( argc==0 ){.   
53b0: 20 2f 2a 20 49 66 20 74 68 65 72 65 20 61 72 65   /* If there are
53c0: 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 20 74 6f   no arguments to
53d0: 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 2c 20 63   the function, c
53e0: 61 6c 6c 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45  all Tcl_EvalObjE
53f0: 78 20 6f 6e 20 74 68 65 0a 20 20 20 20 2a 2a 20  x on the.    ** 
5400: 73 63 72 69 70 74 20 6f 62 6a 65 63 74 20 64 69  script object di
5410: 72 65 63 74 6c 79 2e 20 20 54 68 69 73 20 61 6c  rectly.  This al
5420: 6c 6f 77 73 20 74 68 65 20 54 43 4c 20 63 6f 6d  lows the TCL com
5430: 70 69 6c 65 72 20 74 6f 20 67 65 6e 65 72 61 74  piler to generat
5440: 65 0a 20 20 20 20 2a 2a 20 62 79 74 65 63 6f 64  e.    ** bytecod
5450: 65 20 66 6f 72 20 74 68 65 20 63 6f 6d 6d 61 6e  e for the comman
5460: 64 20 6f 6e 20 74 68 65 20 66 69 72 73 74 20 69  d on the first i
5470: 6e 76 6f 63 61 74 69 6f 6e 20 61 6e 64 20 74 68  nvocation and th
5480: 75 73 20 6d 61 6b 65 0a 20 20 20 20 2a 2a 20 73  us make.    ** s
5490: 75 62 73 65 71 75 65 6e 74 20 69 6e 76 6f 63 61  ubsequent invoca
54a0: 74 69 6f 6e 73 20 6d 75 63 68 20 66 61 73 74 65  tions much faste
54b0: 72 2e 20 2a 2f 0a 20 20 20 20 70 43 6d 64 20 3d  r. */.    pCmd =
54c0: 20 70 2d 3e 70 53 63 72 69 70 74 3b 0a 20 20 20   p->pScript;.   
54d0: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e   Tcl_IncrRefCoun
54e0: 74 28 70 43 6d 64 29 3b 0a 20 20 20 20 72 63 20  t(pCmd);.    rc 
54f0: 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28  = Tcl_EvalObjEx(
5500: 70 2d 3e 69 6e 74 65 72 70 2c 20 70 43 6d 64 2c  p->interp, pCmd,
5510: 20 30 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63   0);.    Tcl_Dec
5520: 72 52 65 66 43 6f 75 6e 74 28 70 43 6d 64 29 3b  rRefCount(pCmd);
5530: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 2f 2a  .  }else{.    /*
5540: 20 49 66 20 74 68 65 72 65 20 61 72 65 20 61 72   If there are ar
5550: 67 75 6d 65 6e 74 73 20 74 6f 20 74 68 65 20 66  guments to the f
5560: 75 6e 63 74 69 6f 6e 2c 20 6d 61 6b 65 20 61 20  unction, make a 
5570: 73 68 61 6c 6c 6f 77 20 63 6f 70 79 20 6f 66 20  shallow copy of 
5580: 74 68 65 0a 20 20 20 20 2a 2a 20 73 63 72 69 70  the.    ** scrip
5590: 74 20 6f 62 6a 65 63 74 2c 20 6c 61 70 70 65 6e  t object, lappen
55a0: 64 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 2c  d the arguments,
55b0: 20 74 68 65 6e 20 65 76 61 6c 75 61 74 65 20 74   then evaluate t
55c0: 68 65 20 63 6f 70 79 2e 0a 20 20 20 20 2a 2a 0a  he copy..    **.
55d0: 20 20 20 20 2a 2a 20 42 79 20 22 73 68 61 6c 6c      ** By "shall
55e0: 6f 77 22 20 63 6f 70 79 2c 20 77 65 20 6d 65 61  ow" copy, we mea
55f0: 6e 20 61 20 6f 6e 6c 79 20 74 68 65 20 6f 75 74  n a only the out
5600: 65 72 20 6c 69 73 74 20 54 63 6c 5f 4f 62 6a 20  er list Tcl_Obj 
5610: 69 73 20 64 75 70 6c 69 63 61 74 65 64 2e 0a 20  is duplicated.. 
5620: 20 20 20 2a 2a 20 54 68 65 20 6e 65 77 20 54 63     ** The new Tc
5630: 6c 5f 4f 62 6a 20 63 6f 6e 74 61 69 6e 73 20 70  l_Obj contains p
5640: 6f 69 6e 74 65 72 73 20 74 6f 20 74 68 65 20 6f  ointers to the o
5650: 72 69 67 69 6e 61 6c 20 6c 69 73 74 20 65 6c 65  riginal list ele
5660: 6d 65 6e 74 73 2e 20 0a 20 20 20 20 2a 2a 20 54  ments. .    ** T
5670: 68 61 74 20 77 61 79 2c 20 77 68 65 6e 20 54 63  hat way, when Tc
5680: 6c 5f 45 76 61 6c 4f 62 6a 76 28 29 20 69 73 20  l_EvalObjv() is 
5690: 72 75 6e 20 61 6e 64 20 73 68 69 6d 6d 65 72 73  run and shimmers
56a0: 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65   the first eleme
56b0: 6e 74 0a 20 20 20 20 2a 2a 20 6f 66 20 74 68 65  nt.    ** of the
56c0: 20 6c 69 73 74 20 74 6f 20 74 63 6c 43 6d 64 4e   list to tclCmdN
56d0: 61 6d 65 54 79 70 65 2c 20 74 68 61 74 20 61 6c  ameType, that al
56e0: 74 65 72 6e 61 74 65 20 72 65 70 72 65 73 65 6e  ternate represen
56f0: 74 61 74 69 6f 6e 20 77 69 6c 6c 0a 20 20 20 20  tation will.    
5700: 2a 2a 20 62 65 20 70 72 65 73 65 72 76 65 64 20  ** be preserved 
5710: 61 6e 64 20 72 65 75 73 65 64 20 6f 6e 20 74 68  and reused on th
5720: 65 20 6e 65 78 74 20 69 6e 76 6f 63 61 74 69 6f  e next invocatio
5730: 6e 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 54 63  n..    */.    Tc
5740: 6c 5f 4f 62 6a 20 2a 2a 61 41 72 67 3b 0a 20 20  l_Obj **aArg;.  
5750: 20 20 69 6e 74 20 6e 41 72 67 3b 0a 20 20 20 20    int nArg;.    
5760: 69 66 28 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 47  if( Tcl_ListObjG
5770: 65 74 45 6c 65 6d 65 6e 74 73 28 70 2d 3e 69 6e  etElements(p->in
5780: 74 65 72 70 2c 20 70 2d 3e 70 53 63 72 69 70 74  terp, p->pScript
5790: 2c 20 26 6e 41 72 67 2c 20 26 61 41 72 67 29 20  , &nArg, &aArg) 
57a0: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33  ){.      sqlite3
57b0: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f  _result_error(co
57c0: 6e 74 65 78 74 2c 20 54 63 6c 5f 47 65 74 53 74  ntext, Tcl_GetSt
57d0: 72 69 6e 67 52 65 73 75 6c 74 28 70 2d 3e 69 6e  ringResult(p->in
57e0: 74 65 72 70 29 2c 20 2d 31 29 3b 20 0a 20 20 20  terp), -1); .   
57f0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d     return;.    }
5800: 20 20 20 20 20 0a 20 20 20 20 70 43 6d 64 20 3d       .    pCmd =
5810: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28   Tcl_NewListObj(
5820: 6e 41 72 67 2c 20 61 41 72 67 29 3b 0a 20 20 20  nArg, aArg);.   
5830: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e   Tcl_IncrRefCoun
5840: 74 28 70 43 6d 64 29 3b 0a 20 20 20 20 66 6f 72  t(pCmd);.    for
5850: 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b  (i=0; i<argc; i+
5860: 2b 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65  +){.      sqlite
5870: 33 5f 76 61 6c 75 65 20 2a 70 49 6e 20 3d 20 61  3_value *pIn = a
5880: 72 67 76 5b 69 5d 3b 0a 20 20 20 20 20 20 54 63  rgv[i];.      Tc
5890: 6c 5f 4f 62 6a 20 2a 70 56 61 6c 3b 0a 20 20 20  l_Obj *pVal;.   
58a0: 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20           .      
58b0: 2f 2a 20 53 65 74 20 70 56 61 6c 20 74 6f 20 63  /* Set pVal to c
58c0: 6f 6e 74 61 69 6e 20 74 68 65 20 69 27 74 68 20  ontain the i'th 
58d0: 63 6f 6c 75 6d 6e 20 6f 66 20 74 68 69 73 20 72  column of this r
58e0: 6f 77 2e 20 2a 2f 0a 20 20 20 20 20 20 73 77 69  ow. */.      swi
58f0: 74 63 68 28 20 73 71 6c 69 74 65 33 5f 76 61 6c  tch( sqlite3_val
5900: 75 65 5f 74 79 70 65 28 70 49 6e 29 20 29 7b 0a  ue_type(pIn) ){.
5910: 20 20 20 20 20 20 20 20 63 61 73 65 20 53 51 4c          case SQL
5920: 49 54 45 5f 42 4c 4f 42 3a 20 7b 0a 20 20 20 20  ITE_BLOB: {.    
5930: 20 20 20 20 20 20 69 6e 74 20 62 79 74 65 73 20        int bytes 
5940: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  = sqlite3_value_
5950: 62 79 74 65 73 28 70 49 6e 29 3b 0a 20 20 20 20  bytes(pIn);.    
5960: 20 20 20 20 20 20 70 56 61 6c 20 3d 20 54 63 6c        pVal = Tcl
5970: 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a  _NewByteArrayObj
5980: 28 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62  (sqlite3_value_b
5990: 6c 6f 62 28 70 49 6e 29 2c 20 62 79 74 65 73 29  lob(pIn), bytes)
59a0: 3b 0a 20 20 20 20 20 20 20 20 20 20 62 72 65 61  ;.          brea
59b0: 6b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  k;.        }.   
59c0: 20 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45       case SQLITE
59d0: 5f 49 4e 54 45 47 45 52 3a 20 7b 0a 20 20 20 20  _INTEGER: {.    
59e0: 20 20 20 20 20 20 73 71 6c 69 74 65 5f 69 6e 74        sqlite_int
59f0: 36 34 20 76 20 3d 20 73 71 6c 69 74 65 33 5f 76  64 v = sqlite3_v
5a00: 61 6c 75 65 5f 69 6e 74 36 34 28 70 49 6e 29 3b  alue_int64(pIn);
5a10: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 76  .          if( v
5a20: 3e 3d 2d 32 31 34 37 34 38 33 36 34 37 20 26 26  >=-2147483647 &&
5a30: 20 76 3c 3d 32 31 34 37 34 38 33 36 34 37 20 29   v<=2147483647 )
5a40: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 56  {.            pV
5a50: 61 6c 20 3d 20 54 63 6c 5f 4e 65 77 49 6e 74 4f  al = Tcl_NewIntO
5a60: 62 6a 28 76 29 3b 0a 20 20 20 20 20 20 20 20 20  bj(v);.         
5a70: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
5a80: 20 20 20 20 70 56 61 6c 20 3d 20 54 63 6c 5f 4e      pVal = Tcl_N
5a90: 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 76 29 3b  ewWideIntObj(v);
5aa0: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20  .          }.   
5ab0: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
5ac0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
5ad0: 63 61 73 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41  case SQLITE_FLOA
5ae0: 54 3a 20 7b 0a 20 20 20 20 20 20 20 20 20 20 64  T: {.          d
5af0: 6f 75 62 6c 65 20 72 20 3d 20 73 71 6c 69 74 65  ouble r = sqlite
5b00: 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 70  3_value_double(p
5b10: 49 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70  In);.          p
5b20: 56 61 6c 20 3d 20 54 63 6c 5f 4e 65 77 44 6f 75  Val = Tcl_NewDou
5b30: 62 6c 65 4f 62 6a 28 72 29 3b 0a 20 20 20 20 20  bleObj(r);.     
5b40: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
5b50: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 63 61      }.        ca
5b60: 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 3a 20  se SQLITE_NULL: 
5b70: 7b 0a 20 20 20 20 20 20 20 20 20 20 70 56 61 6c  {.          pVal
5b80: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67   = Tcl_NewString
5b90: 4f 62 6a 28 22 22 2c 20 30 29 3b 0a 20 20 20 20  Obj("", 0);.    
5ba0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
5bb0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 64       }.        d
5bc0: 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20 20 20 20  efault: {.      
5bd0: 20 20 20 20 69 6e 74 20 62 79 74 65 73 20 3d 20      int bytes = 
5be0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79  sqlite3_value_by
5bf0: 74 65 73 28 70 49 6e 29 3b 0a 20 20 20 20 20 20  tes(pIn);.      
5c00: 20 20 20 20 70 56 61 6c 20 3d 20 54 63 6c 5f 4e      pVal = Tcl_N
5c10: 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 68 61  ewStringObj((cha
5c20: 72 20 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75  r *)sqlite3_valu
5c30: 65 5f 74 65 78 74 28 70 49 6e 29 2c 20 62 79 74  e_text(pIn), byt
5c40: 65 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 62  es);.          b
5c50: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 7d 0a  reak;.        }.
5c60: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 72 63        }.      rc
5c70: 20 3d 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70   = Tcl_ListObjAp
5c80: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69  pendElement(p->i
5c90: 6e 74 65 72 70 2c 20 70 43 6d 64 2c 20 70 56 61  nterp, pCmd, pVa
5ca0: 6c 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72 63  l);.      if( rc
5cb0: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
5cc0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 43 6d  DecrRefCount(pCm
5cd0: 64 29 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69  d);.        sqli
5ce0: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72  te3_result_error
5cf0: 28 63 6f 6e 74 65 78 74 2c 20 54 63 6c 5f 47 65  (context, Tcl_Ge
5d00: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 70 2d  tStringResult(p-
5d10: 3e 69 6e 74 65 72 70 29 2c 20 2d 31 29 3b 20 0a  >interp), -1); .
5d20: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a          return;.
5d30: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
5d40: 20 20 69 66 28 20 21 70 2d 3e 75 73 65 45 76 61    if( !p->useEva
5d50: 6c 4f 62 6a 76 20 29 7b 0a 20 20 20 20 20 20 2f  lObjv ){.      /
5d60: 2a 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28  * Tcl_EvalObjEx(
5d70: 29 20 77 69 6c 6c 20 61 75 74 6f 6d 61 74 69 63  ) will automatic
5d80: 61 6c 6c 79 20 63 61 6c 6c 20 54 63 6c 5f 45 76  ally call Tcl_Ev
5d90: 61 6c 4f 62 6a 76 28 29 20 69 66 20 70 43 6d 64  alObjv() if pCmd
5da0: 0a 20 20 20 20 20 20 2a 2a 20 69 73 20 61 20 6c  .      ** is a l
5db0: 69 73 74 20 77 69 74 68 6f 75 74 20 61 20 73 74  ist without a st
5dc0: 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 61 74  ring representat
5dd0: 69 6f 6e 2e 20 20 54 6f 20 70 72 65 76 65 6e 74  ion.  To prevent
5de0: 20 74 68 69 73 20 66 72 6f 6d 0a 20 20 20 20 20   this from.     
5df0: 20 2a 2a 20 68 61 70 70 65 6e 69 6e 67 2c 20 6d   ** happening, m
5e00: 61 6b 65 20 73 75 72 65 20 70 43 6d 64 20 68 61  ake sure pCmd ha
5e10: 73 20 61 20 76 61 6c 69 64 20 73 74 72 69 6e 67  s a valid string
5e20: 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20   representation 
5e30: 2a 2f 0a 20 20 20 20 20 20 54 63 6c 5f 47 65 74  */.      Tcl_Get
5e40: 53 74 72 69 6e 67 28 70 43 6d 64 29 3b 0a 20 20  String(pCmd);.  
5e50: 20 20 7d 0a 20 20 20 20 72 63 20 3d 20 54 63 6c    }.    rc = Tcl
5e60: 5f 45 76 61 6c 4f 62 6a 45 78 28 70 2d 3e 69 6e  _EvalObjEx(p->in
5e70: 74 65 72 70 2c 20 70 43 6d 64 2c 20 54 43 4c 5f  terp, pCmd, TCL_
5e80: 45 56 41 4c 5f 44 49 52 45 43 54 29 3b 0a 20 20  EVAL_DIRECT);.  
5e90: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75    Tcl_DecrRefCou
5ea0: 6e 74 28 70 43 6d 64 29 3b 0a 20 20 7d 0a 0a 20  nt(pCmd);.  }.. 
5eb0: 20 69 66 28 20 72 63 20 26 26 20 72 63 21 3d 54   if( rc && rc!=T
5ec0: 43 4c 5f 52 45 54 55 52 4e 20 29 7b 0a 20 20 20  CL_RETURN ){.   
5ed0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
5ee0: 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 54  error(context, T
5ef0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75  cl_GetStringResu
5f00: 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 2c 20 2d  lt(p->interp), -
5f10: 31 29 3b 20 0a 20 20 7d 65 6c 73 65 7b 0a 20 20  1); .  }else{.  
5f20: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 56 61 72 20    Tcl_Obj *pVar 
5f30: 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75  = Tcl_GetObjResu
5f40: 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20  lt(p->interp);. 
5f50: 20 20 20 69 6e 74 20 6e 3b 0a 20 20 20 20 75 38     int n;.    u8
5f60: 20 2a 64 61 74 61 3b 0a 20 20 20 20 63 6f 6e 73   *data;.    cons
5f70: 74 20 63 68 61 72 20 2a 7a 54 79 70 65 20 3d 20  t char *zType = 
5f80: 28 70 56 61 72 2d 3e 74 79 70 65 50 74 72 20 3f  (pVar->typePtr ?
5f90: 20 70 56 61 72 2d 3e 74 79 70 65 50 74 72 2d 3e   pVar->typePtr->
5fa0: 6e 61 6d 65 20 3a 20 22 22 29 3b 0a 20 20 20 20  name : "");.    
5fb0: 63 68 61 72 20 63 20 3d 20 7a 54 79 70 65 5b 30  char c = zType[0
5fc0: 5d 3b 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 62  ];.    if( c=='b
5fd0: 27 20 26 26 20 73 74 72 63 6d 70 28 7a 54 79 70  ' && strcmp(zTyp
5fe0: 65 2c 22 62 79 74 65 61 72 72 61 79 22 29 3d 3d  e,"bytearray")==
5ff0: 30 20 26 26 20 70 56 61 72 2d 3e 62 79 74 65 73  0 && pVar->bytes
6000: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 2f 2a 20  ==0 ){.      /* 
6010: 4f 6e 6c 79 20 72 65 74 75 72 6e 20 61 20 42 4c  Only return a BL
6020: 4f 42 20 74 79 70 65 20 69 66 20 74 68 65 20 54  OB type if the T
6030: 63 6c 20 76 61 72 69 61 62 6c 65 20 69 73 20 61  cl variable is a
6040: 20 62 79 74 65 61 72 72 61 79 20 61 6e 64 0a 20   bytearray and. 
6050: 20 20 20 20 20 2a 2a 20 68 61 73 20 6e 6f 20 73       ** has no s
6060: 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 61  tring representa
6070: 74 69 6f 6e 2e 20 2a 2f 0a 20 20 20 20 20 20 64  tion. */.      d
6080: 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 79 74  ata = Tcl_GetByt
6090: 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 70 56  eArrayFromObj(pV
60a0: 61 72 2c 20 26 6e 29 3b 0a 20 20 20 20 20 20 73  ar, &n);.      s
60b0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 62 6c  qlite3_result_bl
60c0: 6f 62 28 63 6f 6e 74 65 78 74 2c 20 64 61 74 61  ob(context, data
60d0: 2c 20 6e 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e  , n, SQLITE_TRAN
60e0: 53 49 45 4e 54 29 3b 0a 20 20 20 20 7d 65 6c 73  SIENT);.    }els
60f0: 65 20 69 66 28 20 63 3d 3d 27 62 27 20 26 26 20  e if( c=='b' && 
6100: 73 74 72 63 6d 70 28 7a 54 79 70 65 2c 22 62 6f  strcmp(zType,"bo
6110: 6f 6c 65 61 6e 22 29 3d 3d 30 20 29 7b 0a 20 20  olean")==0 ){.  
6120: 20 20 20 20 54 63 6c 5f 47 65 74 49 6e 74 46 72      Tcl_GetIntFr
6130: 6f 6d 4f 62 6a 28 30 2c 20 70 56 61 72 2c 20 26  omObj(0, pVar, &
6140: 6e 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65  n);.      sqlite
6150: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e  3_result_int(con
6160: 74 65 78 74 2c 20 6e 29 3b 0a 20 20 20 20 7d 65  text, n);.    }e
6170: 6c 73 65 20 69 66 28 20 63 3d 3d 27 64 27 20 26  lse if( c=='d' &
6180: 26 20 73 74 72 63 6d 70 28 7a 54 79 70 65 2c 22  & strcmp(zType,"
6190: 64 6f 75 62 6c 65 22 29 3d 3d 30 20 29 7b 0a 20  double")==0 ){. 
61a0: 20 20 20 20 20 64 6f 75 62 6c 65 20 72 3b 0a 20       double r;. 
61b0: 20 20 20 20 20 54 63 6c 5f 47 65 74 44 6f 75 62       Tcl_GetDoub
61c0: 6c 65 46 72 6f 6d 4f 62 6a 28 30 2c 20 70 56 61  leFromObj(0, pVa
61d0: 72 2c 20 26 72 29 3b 0a 20 20 20 20 20 20 73 71  r, &r);.      sq
61e0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75  lite3_result_dou
61f0: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 72 29 3b  ble(context, r);
6200: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 28  .    }else if( (
6210: 63 3d 3d 27 77 27 20 26 26 20 73 74 72 63 6d 70  c=='w' && strcmp
6220: 28 7a 54 79 70 65 2c 22 77 69 64 65 49 6e 74 22  (zType,"wideInt"
6230: 29 3d 3d 30 29 20 7c 7c 0a 20 20 20 20 20 20 20  )==0) ||.       
6240: 20 20 20 28 63 3d 3d 27 69 27 20 26 26 20 73 74     (c=='i' && st
6250: 72 63 6d 70 28 7a 54 79 70 65 2c 22 69 6e 74 22  rcmp(zType,"int"
6260: 29 3d 3d 30 29 20 29 7b 0a 20 20 20 20 20 20 54  )==0) ){.      T
6270: 63 6c 5f 57 69 64 65 49 6e 74 20 76 3b 0a 20 20  cl_WideInt v;.  
6280: 20 20 20 20 54 63 6c 5f 47 65 74 57 69 64 65 49      Tcl_GetWideI
6290: 6e 74 46 72 6f 6d 4f 62 6a 28 30 2c 20 70 56 61  ntFromObj(0, pVa
62a0: 72 2c 20 26 76 29 3b 0a 20 20 20 20 20 20 73 71  r, &v);.      sq
62b0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74  lite3_result_int
62c0: 36 34 28 63 6f 6e 74 65 78 74 2c 20 76 29 3b 0a  64(context, v);.
62d0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
62e0: 20 64 61 74 61 20 3d 20 28 75 6e 73 69 67 6e 65   data = (unsigne
62f0: 64 20 63 68 61 72 20 2a 29 54 63 6c 5f 47 65 74  d char *)Tcl_Get
6300: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 70 56  StringFromObj(pV
6310: 61 72 2c 20 26 6e 29 3b 0a 20 20 20 20 20 20 73  ar, &n);.      s
6320: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65  qlite3_result_te
6330: 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61  xt(context, (cha
6340: 72 20 2a 29 64 61 74 61 2c 20 6e 2c 20 53 51 4c  r *)data, n, SQL
6350: 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a  ITE_TRANSIENT);.
6360: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 69 66      }.  }.}..#if
6370: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  ndef SQLITE_OMIT
6380: 5f 41 55 54 48 4f 52 49 5a 41 54 49 4f 4e 0a 2f  _AUTHORIZATION./
6390: 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 74 68 65  *.** This is the
63a0: 20 61 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20   authentication 
63b0: 66 75 6e 63 74 69 6f 6e 2e 20 20 49 74 20 61 70  function.  It ap
63c0: 70 65 6e 64 73 20 74 68 65 20 61 75 74 68 65 6e  pends the authen
63d0: 74 69 63 61 74 69 6f 6e 0a 2a 2a 20 74 79 70 65  tication.** type
63e0: 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 74 77   code and the tw
63f0: 6f 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 7a  o arguments to z
6400: 43 6d 64 5b 5d 20 74 68 65 6e 20 69 6e 76 6f 6b  Cmd[] then invok
6410: 65 73 20 74 68 65 20 72 65 73 75 6c 74 0a 2a 2a  es the result.**
6420: 20 6f 6e 20 74 68 65 20 69 6e 74 65 72 70 72 65   on the interpre
6430: 74 65 72 2e 20 20 54 68 65 20 72 65 70 6c 79 20  ter.  The reply 
6440: 69 73 20 65 78 61 6d 69 6e 65 64 20 74 6f 20 64  is examined to d
6450: 65 74 65 72 6d 69 6e 65 20 69 66 20 74 68 65 0a  etermine if the.
6460: 2a 2a 20 61 75 74 68 65 6e 74 69 63 61 74 69 6f  ** authenticatio
6470: 6e 20 66 61 69 6c 73 20 6f 72 20 73 75 63 63 65  n fails or succe
6480: 65 64 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  eds..*/.static i
6490: 6e 74 20 61 75 74 68 5f 63 61 6c 6c 62 61 63 6b  nt auth_callback
64a0: 28 0a 20 20 76 6f 69 64 20 2a 70 41 72 67 2c 0a  (.  void *pArg,.
64b0: 20 20 69 6e 74 20 63 6f 64 65 2c 0a 20 20 63 6f    int code,.  co
64c0: 6e 73 74 20 63 68 61 72 20 2a 7a 41 72 67 31 2c  nst char *zArg1,
64d0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
64e0: 41 72 67 32 2c 0a 20 20 63 6f 6e 73 74 20 63 68  Arg2,.  const ch
64f0: 61 72 20 2a 7a 41 72 67 33 2c 0a 20 20 63 6f 6e  ar *zArg3,.  con
6500: 73 74 20 63 68 61 72 20 2a 7a 41 72 67 34 0a 29  st char *zArg4.)
6510: 7b 0a 20 20 63 68 61 72 20 2a 7a 43 6f 64 65 3b  {.  char *zCode;
6520: 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 73  .  Tcl_DString s
6530: 74 72 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20  tr;.  int rc;.  
6540: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 52 65 70  const char *zRep
6550: 6c 79 3b 0a 20 20 53 71 6c 69 74 65 44 62 20 2a  ly;.  SqliteDb *
6560: 70 44 62 20 3d 20 28 53 71 6c 69 74 65 44 62 2a  pDb = (SqliteDb*
6570: 29 70 41 72 67 3b 0a 20 20 69 66 28 20 70 44 62  )pArg;.  if( pDb
6580: 2d 3e 64 69 73 61 62 6c 65 41 75 74 68 20 29 20  ->disableAuth ) 
6590: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
65a0: 3b 0a 0a 20 20 73 77 69 74 63 68 28 20 63 6f 64  ;..  switch( cod
65b0: 65 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 51  e ){.    case SQ
65c0: 4c 49 54 45 5f 43 4f 50 59 20 20 20 20 20 20 20  LITE_COPY       
65d0: 20 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22         : zCode="
65e0: 53 51 4c 49 54 45 5f 43 4f 50 59 22 3b 20 62 72  SQLITE_COPY"; br
65f0: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51  eak;.    case SQ
6600: 4c 49 54 45 5f 43 52 45 41 54 45 5f 49 4e 44 45  LITE_CREATE_INDE
6610: 58 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22  X      : zCode="
6620: 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 49 4e  SQLITE_CREATE_IN
6630: 44 45 58 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20  DEX"; break;.   
6640: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 43 52 45   case SQLITE_CRE
6650: 41 54 45 5f 54 41 42 4c 45 20 20 20 20 20 20 3a  ATE_TABLE      :
6660: 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 43   zCode="SQLITE_C
6670: 52 45 41 54 45 5f 54 41 42 4c 45 22 3b 20 62 72  REATE_TABLE"; br
6680: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51  eak;.    case SQ
6690: 4c 49 54 45 5f 43 52 45 41 54 45 5f 54 45 4d 50  LITE_CREATE_TEMP
66a0: 5f 49 4e 44 45 58 20 3a 20 7a 43 6f 64 65 3d 22  _INDEX : zCode="
66b0: 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54 45  SQLITE_CREATE_TE
66c0: 4d 50 5f 49 4e 44 45 58 22 3b 20 62 72 65 61 6b  MP_INDEX"; break
66d0: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54  ;.    case SQLIT
66e0: 45 5f 43 52 45 41 54 45 5f 54 45 4d 50 5f 54 41  E_CREATE_TEMP_TA
66f0: 42 4c 45 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c  BLE : zCode="SQL
6700: 49 54 45 5f 43 52 45 41 54 45 5f 54 45 4d 50 5f  ITE_CREATE_TEMP_
6710: 54 41 42 4c 45 22 3b 20 62 72 65 61 6b 3b 0a 20  TABLE"; break;. 
6720: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 43     case SQLITE_C
6730: 52 45 41 54 45 5f 54 45 4d 50 5f 54 52 49 47 47  REATE_TEMP_TRIGG
6740: 45 52 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54  ER: zCode="SQLIT
6750: 45 5f 43 52 45 41 54 45 5f 54 45 4d 50 5f 54 52  E_CREATE_TEMP_TR
6760: 49 47 47 45 52 22 3b 20 62 72 65 61 6b 3b 0a 20  IGGER"; break;. 
6770: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 43     case SQLITE_C
6780: 52 45 41 54 45 5f 54 45 4d 50 5f 56 49 45 57 20  REATE_TEMP_VIEW 
6790: 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45   : zCode="SQLITE
67a0: 5f 43 52 45 41 54 45 5f 54 45 4d 50 5f 56 49 45  _CREATE_TEMP_VIE
67b0: 57 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 63  W"; break;.    c
67c0: 61 73 65 20 53 51 4c 49 54 45 5f 43 52 45 41 54  ase SQLITE_CREAT
67d0: 45 5f 54 52 49 47 47 45 52 20 20 20 20 3a 20 7a  E_TRIGGER    : z
67e0: 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 43 52 45  Code="SQLITE_CRE
67f0: 41 54 45 5f 54 52 49 47 47 45 52 22 3b 20 62 72  ATE_TRIGGER"; br
6800: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51  eak;.    case SQ
6810: 4c 49 54 45 5f 43 52 45 41 54 45 5f 56 49 45 57  LITE_CREATE_VIEW
6820: 20 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22         : zCode="
6830: 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 56 49  SQLITE_CREATE_VI
6840: 45 57 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20  EW"; break;.    
6850: 63 61 73 65 20 53 51 4c 49 54 45 5f 44 45 4c 45  case SQLITE_DELE
6860: 54 45 20 20 20 20 20 20 20 20 20 20 20 20 3a 20  TE            : 
6870: 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 44 45  zCode="SQLITE_DE
6880: 4c 45 54 45 22 3b 20 62 72 65 61 6b 3b 0a 20 20  LETE"; break;.  
6890: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 44 52    case SQLITE_DR
68a0: 4f 50 5f 49 4e 44 45 58 20 20 20 20 20 20 20 20  OP_INDEX        
68b0: 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f  : zCode="SQLITE_
68c0: 44 52 4f 50 5f 49 4e 44 45 58 22 3b 20 62 72 65  DROP_INDEX"; bre
68d0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c  ak;.    case SQL
68e0: 49 54 45 5f 44 52 4f 50 5f 54 41 42 4c 45 20 20  ITE_DROP_TABLE  
68f0: 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53        : zCode="S
6900: 51 4c 49 54 45 5f 44 52 4f 50 5f 54 41 42 4c 45  QLITE_DROP_TABLE
6910: 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61  "; break;.    ca
6920: 73 65 20 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54  se SQLITE_DROP_T
6930: 45 4d 50 5f 49 4e 44 45 58 20 20 20 3a 20 7a 43  EMP_INDEX   : zC
6940: 6f 64 65 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50  ode="SQLITE_DROP
6950: 5f 54 45 4d 50 5f 49 4e 44 45 58 22 3b 20 62 72  _TEMP_INDEX"; br
6960: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51  eak;.    case SQ
6970: 4c 49 54 45 5f 44 52 4f 50 5f 54 45 4d 50 5f 54  LITE_DROP_TEMP_T
6980: 41 42 4c 45 20 20 20 3a 20 7a 43 6f 64 65 3d 22  ABLE   : zCode="
6990: 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54 45 4d 50  SQLITE_DROP_TEMP
69a0: 5f 54 41 42 4c 45 22 3b 20 62 72 65 61 6b 3b 0a  _TABLE"; break;.
69b0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f      case SQLITE_
69c0: 44 52 4f 50 5f 54 45 4d 50 5f 54 52 49 47 47 45  DROP_TEMP_TRIGGE
69d0: 52 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54  R : zCode="SQLIT
69e0: 45 5f 44 52 4f 50 5f 54 45 4d 50 5f 54 52 49 47  E_DROP_TEMP_TRIG
69f0: 47 45 52 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20  GER"; break;.   
6a00: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 44 52 4f   case SQLITE_DRO
6a10: 50 5f 54 45 4d 50 5f 56 49 45 57 20 20 20 20 3a  P_TEMP_VIEW    :
6a20: 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 44   zCode="SQLITE_D
6a30: 52 4f 50 5f 54 45 4d 50 5f 56 49 45 57 22 3b 20  ROP_TEMP_VIEW"; 
6a40: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20  break;.    case 
6a50: 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54 52 49 47  SQLITE_DROP_TRIG
6a60: 47 45 52 20 20 20 20 20 20 3a 20 7a 43 6f 64 65  GER      : zCode
6a70: 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54 52  ="SQLITE_DROP_TR
6a80: 49 47 47 45 52 22 3b 20 62 72 65 61 6b 3b 0a 20  IGGER"; break;. 
6a90: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 44     case SQLITE_D
6aa0: 52 4f 50 5f 56 49 45 57 20 20 20 20 20 20 20 20  ROP_VIEW        
6ab0: 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45   : zCode="SQLITE
6ac0: 5f 44 52 4f 50 5f 56 49 45 57 22 3b 20 62 72 65  _DROP_VIEW"; bre
6ad0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c  ak;.    case SQL
6ae0: 49 54 45 5f 49 4e 53 45 52 54 20 20 20 20 20 20  ITE_INSERT      
6af0: 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53        : zCode="S
6b00: 51 4c 49 54 45 5f 49 4e 53 45 52 54 22 3b 20 62  QLITE_INSERT"; b
6b10: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53  reak;.    case S
6b20: 51 4c 49 54 45 5f 50 52 41 47 4d 41 20 20 20 20  QLITE_PRAGMA    
6b30: 20 20 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d          : zCode=
6b40: 22 53 51 4c 49 54 45 5f 50 52 41 47 4d 41 22 3b  "SQLITE_PRAGMA";
6b50: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65   break;.    case
6b60: 20 53 51 4c 49 54 45 5f 52 45 41 44 20 20 20 20   SQLITE_READ    
6b70: 20 20 20 20 20 20 20 20 20 20 3a 20 7a 43 6f 64            : zCod
6b80: 65 3d 22 53 51 4c 49 54 45 5f 52 45 41 44 22 3b  e="SQLITE_READ";
6b90: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65   break;.    case
6ba0: 20 53 51 4c 49 54 45 5f 53 45 4c 45 43 54 20 20   SQLITE_SELECT  
6bb0: 20 20 20 20 20 20 20 20 20 20 3a 20 7a 43 6f 64            : zCod
6bc0: 65 3d 22 53 51 4c 49 54 45 5f 53 45 4c 45 43 54  e="SQLITE_SELECT
6bd0: 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61  "; break;.    ca
6be0: 73 65 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 41  se SQLITE_TRANSA
6bf0: 43 54 49 4f 4e 20 20 20 20 20 20 20 3a 20 7a 43  CTION       : zC
6c00: 6f 64 65 3d 22 53 51 4c 49 54 45 5f 54 52 41 4e  ode="SQLITE_TRAN
6c10: 53 41 43 54 49 4f 4e 22 3b 20 62 72 65 61 6b 3b  SACTION"; break;
6c20: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
6c30: 5f 55 50 44 41 54 45 20 20 20 20 20 20 20 20 20  _UPDATE         
6c40: 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49     : zCode="SQLI
6c50: 54 45 5f 55 50 44 41 54 45 22 3b 20 62 72 65 61  TE_UPDATE"; brea
6c60: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49  k;.    case SQLI
6c70: 54 45 5f 41 54 54 41 43 48 20 20 20 20 20 20 20  TE_ATTACH       
6c80: 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53 51       : zCode="SQ
6c90: 4c 49 54 45 5f 41 54 54 41 43 48 22 3b 20 62 72  LITE_ATTACH"; br
6ca0: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51  eak;.    case SQ
6cb0: 4c 49 54 45 5f 44 45 54 41 43 48 20 20 20 20 20  LITE_DETACH     
6cc0: 20 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22         : zCode="
6cd0: 53 51 4c 49 54 45 5f 44 45 54 41 43 48 22 3b 20  SQLITE_DETACH"; 
6ce0: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20  break;.    case 
6cf0: 53 51 4c 49 54 45 5f 41 4c 54 45 52 5f 54 41 42  SQLITE_ALTER_TAB
6d00: 4c 45 20 20 20 20 20 20 20 3a 20 7a 43 6f 64 65  LE       : zCode
6d10: 3d 22 53 51 4c 49 54 45 5f 41 4c 54 45 52 5f 54  ="SQLITE_ALTER_T
6d20: 41 42 4c 45 22 3b 20 62 72 65 61 6b 3b 0a 20 20  ABLE"; break;.  
6d30: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 52 45    case SQLITE_RE
6d40: 49 4e 44 45 58 20 20 20 20 20 20 20 20 20 20 20  INDEX           
6d50: 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f  : zCode="SQLITE_
6d60: 52 45 49 4e 44 45 58 22 3b 20 62 72 65 61 6b 3b  REINDEX"; break;
6d70: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
6d80: 5f 41 4e 41 4c 59 5a 45 20 20 20 20 20 20 20 20  _ANALYZE        
6d90: 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49     : zCode="SQLI
6da0: 54 45 5f 41 4e 41 4c 59 5a 45 22 3b 20 62 72 65  TE_ANALYZE"; bre
6db0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c  ak;.    case SQL
6dc0: 49 54 45 5f 43 52 45 41 54 45 5f 56 54 41 42 4c  ITE_CREATE_VTABL
6dd0: 45 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53  E     : zCode="S
6de0: 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 56 54 41  QLITE_CREATE_VTA
6df0: 42 4c 45 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20  BLE"; break;.   
6e00: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 44 52 4f   case SQLITE_DRO
6e10: 50 5f 56 54 41 42 4c 45 20 20 20 20 20 20 20 3a  P_VTABLE       :
6e20: 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 44   zCode="SQLITE_D
6e30: 52 4f 50 5f 56 54 41 42 4c 45 22 3b 20 62 72 65  ROP_VTABLE"; bre
6e40: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c  ak;.    case SQL
6e50: 49 54 45 5f 46 55 4e 43 54 49 4f 4e 20 20 20 20  ITE_FUNCTION    
6e60: 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53        : zCode="S
6e70: 51 4c 49 54 45 5f 46 55 4e 43 54 49 4f 4e 22 3b  QLITE_FUNCTION";
6e80: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65   break;.    case
6e90: 20 53 51 4c 49 54 45 5f 53 41 56 45 50 4f 49 4e   SQLITE_SAVEPOIN
6ea0: 54 20 20 20 20 20 20 20 20 20 3a 20 7a 43 6f 64  T         : zCod
6eb0: 65 3d 22 53 51 4c 49 54 45 5f 53 41 56 45 50 4f  e="SQLITE_SAVEPO
6ec0: 49 4e 54 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20  INT"; break;.   
6ed0: 20 64 65 66 61 75 6c 74 20 20 20 20 20 20 20 20   default        
6ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a                 :
6ef0: 20 7a 43 6f 64 65 3d 22 3f 3f 3f 3f 22 3b 20 62   zCode="????"; b
6f00: 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f  reak;.  }.  Tcl_
6f10: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 73 74 72  DStringInit(&str
6f20: 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  );.  Tcl_DString
6f30: 41 70 70 65 6e 64 28 26 73 74 72 2c 20 70 44 62  Append(&str, pDb
6f40: 2d 3e 7a 41 75 74 68 2c 20 2d 31 29 3b 0a 20 20  ->zAuth, -1);.  
6f50: 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 6e  Tcl_DStringAppen
6f60: 64 45 6c 65 6d 65 6e 74 28 26 73 74 72 2c 20 7a  dElement(&str, z
6f70: 43 6f 64 65 29 3b 0a 20 20 54 63 6c 5f 44 53 74  Code);.  Tcl_DSt
6f80: 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d 65 6e  ringAppendElemen
6f90: 74 28 26 73 74 72 2c 20 7a 41 72 67 31 20 3f 20  t(&str, zArg1 ? 
6fa0: 7a 41 72 67 31 20 3a 20 22 22 29 3b 0a 20 20 54  zArg1 : "");.  T
6fb0: 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 6e 64  cl_DStringAppend
6fc0: 45 6c 65 6d 65 6e 74 28 26 73 74 72 2c 20 7a 41  Element(&str, zA
6fd0: 72 67 32 20 3f 20 7a 41 72 67 32 20 3a 20 22 22  rg2 ? zArg2 : ""
6fe0: 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  );.  Tcl_DString
6ff0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 26 73  AppendElement(&s
7000: 74 72 2c 20 7a 41 72 67 33 20 3f 20 7a 41 72 67  tr, zArg3 ? zArg
7010: 33 20 3a 20 22 22 29 3b 0a 20 20 54 63 6c 5f 44  3 : "");.  Tcl_D
7020: 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d  StringAppendElem
7030: 65 6e 74 28 26 73 74 72 2c 20 7a 41 72 67 34 20  ent(&str, zArg4 
7040: 3f 20 7a 41 72 67 34 20 3a 20 22 22 29 3b 0a 20  ? zArg4 : "");. 
7050: 20 72 63 20 3d 20 54 63 6c 5f 47 6c 6f 62 61 6c   rc = Tcl_Global
7060: 45 76 61 6c 28 70 44 62 2d 3e 69 6e 74 65 72 70  Eval(pDb->interp
7070: 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c  , Tcl_DStringVal
7080: 75 65 28 26 73 74 72 29 29 3b 0a 20 20 54 63 6c  ue(&str));.  Tcl
7090: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 73 74  _DStringFree(&st
70a0: 72 29 3b 0a 20 20 7a 52 65 70 6c 79 20 3d 20 54  r);.  zReply = T
70b0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75  cl_GetStringResu
70c0: 6c 74 28 70 44 62 2d 3e 69 6e 74 65 72 70 29 3b  lt(pDb->interp);
70d0: 0a 20 20 69 66 28 20 73 74 72 63 6d 70 28 7a 52  .  if( strcmp(zR
70e0: 65 70 6c 79 2c 22 53 51 4c 49 54 45 5f 4f 4b 22  eply,"SQLITE_OK"
70f0: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 63 20 3d  )==0 ){.    rc =
7100: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 7d 65   SQLITE_OK;.  }e
7110: 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a  lse if( strcmp(z
7120: 52 65 70 6c 79 2c 22 53 51 4c 49 54 45 5f 44 45  Reply,"SQLITE_DE
7130: 4e 59 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72  NY")==0 ){.    r
7140: 63 20 3d 20 53 51 4c 49 54 45 5f 44 45 4e 59 3b  c = SQLITE_DENY;
7150: 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72  .  }else if( str
7160: 63 6d 70 28 7a 52 65 70 6c 79 2c 22 53 51 4c 49  cmp(zReply,"SQLI
7170: 54 45 5f 49 47 4e 4f 52 45 22 29 3d 3d 30 20 29  TE_IGNORE")==0 )
7180: 7b 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54  {.    rc = SQLIT
7190: 45 5f 49 47 4e 4f 52 45 3b 0a 20 20 7d 65 6c 73  E_IGNORE;.  }els
71a0: 65 7b 0a 20 20 20 20 72 63 20 3d 20 39 39 39 3b  e{.    rc = 999;
71b0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63  .  }.  return rc
71c0: 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51  ;.}.#endif /* SQ
71d0: 4c 49 54 45 5f 4f 4d 49 54 5f 41 55 54 48 4f 52  LITE_OMIT_AUTHOR
71e0: 49 5a 41 54 49 4f 4e 20 2a 2f 0a 0a 2f 2a 0a 2a  IZATION */../*.*
71f0: 2a 20 7a 54 65 78 74 20 69 73 20 61 20 70 6f 69  * zText is a poi
7200: 6e 74 65 72 20 74 6f 20 74 65 78 74 20 6f 62 74  nter to text obt
7210: 61 69 6e 65 64 20 76 69 61 20 61 6e 20 73 71 6c  ained via an sql
7220: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74  ite3_result_text
7230: 28 29 0a 2a 2a 20 6f 72 20 73 69 6d 69 6c 61 72  ().** or similar
7240: 20 69 6e 74 65 72 66 61 63 65 2e 20 54 68 69 73   interface. This
7250: 20 72 6f 75 74 69 6e 65 20 72 65 74 75 72 6e 73   routine returns
7260: 20 61 20 54 63 6c 20 73 74 72 69 6e 67 20 6f 62   a Tcl string ob
7270: 6a 65 63 74 2c 20 0a 2a 2a 20 72 65 66 65 72 65  ject, .** refere
7280: 6e 63 65 20 63 6f 75 6e 74 20 73 65 74 20 74 6f  nce count set to
7290: 20 30 2c 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74   0, containing t
72a0: 68 65 20 74 65 78 74 2e 20 49 66 20 61 20 74 72  he text. If a tr
72b0: 61 6e 73 6c 61 74 69 6f 6e 0a 2a 2a 20 62 65 74  anslation.** bet
72c0: 77 65 65 6e 20 69 73 6f 38 38 35 39 20 61 6e 64  ween iso8859 and
72d0: 20 55 54 46 2d 38 20 69 73 20 72 65 71 75 69 72   UTF-8 is requir
72e0: 65 64 2c 20 69 74 20 69 73 20 70 72 65 66 6f 72  ed, it is prefor
72f0: 6d 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 54  med..*/.static T
7300: 63 6c 5f 4f 62 6a 20 2a 64 62 54 65 78 74 54 6f  cl_Obj *dbTextTo
7310: 4f 62 6a 28 63 68 61 72 20 63 6f 6e 73 74 20 2a  Obj(char const *
7320: 7a 54 65 78 74 29 7b 0a 20 20 54 63 6c 5f 4f 62  zText){.  Tcl_Ob
7330: 6a 20 2a 70 56 61 6c 3b 0a 23 69 66 64 65 66 20  j *pVal;.#ifdef 
7340: 55 54 46 5f 54 52 41 4e 53 4c 41 54 49 4f 4e 5f  UTF_TRANSLATION_
7350: 4e 45 45 44 45 44 0a 20 20 54 63 6c 5f 44 53 74  NEEDED.  Tcl_DSt
7360: 72 69 6e 67 20 64 43 6f 6c 3b 0a 20 20 54 63 6c  ring dCol;.  Tcl
7370: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 43  _DStringInit(&dC
7380: 6f 6c 29 3b 0a 20 20 54 63 6c 5f 45 78 74 65 72  ol);.  Tcl_Exter
7390: 6e 61 6c 54 6f 55 74 66 44 53 74 72 69 6e 67 28  nalToUtfDString(
73a0: 4e 55 4c 4c 2c 20 7a 54 65 78 74 2c 20 2d 31 2c  NULL, zText, -1,
73b0: 20 26 64 43 6f 6c 29 3b 0a 20 20 70 56 61 6c 20   &dCol);.  pVal 
73c0: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  = Tcl_NewStringO
73d0: 62 6a 28 54 63 6c 5f 44 53 74 72 69 6e 67 56 61  bj(Tcl_DStringVa
73e0: 6c 75 65 28 26 64 43 6f 6c 29 2c 20 2d 31 29 3b  lue(&dCol), -1);
73f0: 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72  .  Tcl_DStringFr
7400: 65 65 28 26 64 43 6f 6c 29 3b 0a 23 65 6c 73 65  ee(&dCol);.#else
7410: 0a 20 20 70 56 61 6c 20 3d 20 54 63 6c 5f 4e 65  .  pVal = Tcl_Ne
7420: 77 53 74 72 69 6e 67 4f 62 6a 28 7a 54 65 78 74  wStringObj(zText
7430: 2c 20 2d 31 29 3b 0a 23 65 6e 64 69 66 0a 20 20  , -1);.#endif.  
7440: 72 65 74 75 72 6e 20 70 56 61 6c 3b 0a 7d 0a 0a  return pVal;.}..
7450: 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69  /*.** This routi
7460: 6e 65 20 72 65 61 64 73 20 61 20 6c 69 6e 65 20  ne reads a line 
7470: 6f 66 20 74 65 78 74 20 66 72 6f 6d 20 46 49 4c  of text from FIL
7480: 45 20 69 6e 2c 20 73 74 6f 72 65 73 0a 2a 2a 20  E in, stores.** 
7490: 74 68 65 20 74 65 78 74 20 69 6e 20 6d 65 6d 6f  the text in memo
74a0: 72 79 20 6f 62 74 61 69 6e 65 64 20 66 72 6f 6d  ry obtained from
74b0: 20 6d 61 6c 6c 6f 63 28 29 20 61 6e 64 20 72 65   malloc() and re
74c0: 74 75 72 6e 73 20 61 20 70 6f 69 6e 74 65 72 0a  turns a pointer.
74d0: 2a 2a 20 74 6f 20 74 68 65 20 74 65 78 74 2e 20  ** to the text. 
74e0: 20 4e 55 4c 4c 20 69 73 20 72 65 74 75 72 6e 65   NULL is returne
74f0: 64 20 61 74 20 65 6e 64 20 6f 66 20 66 69 6c 65  d at end of file
7500: 2c 20 6f 72 20 69 66 20 6d 61 6c 6c 6f 63 28 29  , or if malloc()
7510: 0a 2a 2a 20 66 61 69 6c 73 2e 0a 2a 2a 0a 2a 2a  .** fails..**.**
7520: 20 54 68 65 20 69 6e 74 65 72 66 61 63 65 20 69   The interface i
7530: 73 20 6c 69 6b 65 20 22 72 65 61 64 6c 69 6e 65  s like "readline
7540: 22 20 62 75 74 20 6e 6f 20 63 6f 6d 6d 61 6e 64  " but no command
7550: 2d 6c 69 6e 65 20 65 64 69 74 69 6e 67 0a 2a 2a  -line editing.**
7560: 20 69 73 20 64 6f 6e 65 2e 0a 2a 2a 0a 2a 2a 20   is done..**.** 
7570: 63 6f 70 69 65 64 20 66 72 6f 6d 20 73 68 65 6c  copied from shel
7580: 6c 2e 63 20 66 72 6f 6d 20 27 2e 69 6d 70 6f 72  l.c from '.impor
7590: 74 27 20 63 6f 6d 6d 61 6e 64 0a 2a 2f 0a 73 74  t' command.*/.st
75a0: 61 74 69 63 20 63 68 61 72 20 2a 6c 6f 63 61 6c  atic char *local
75b0: 5f 67 65 74 6c 69 6e 65 28 63 68 61 72 20 2a 7a  _getline(char *z
75c0: 50 72 6f 6d 70 74 2c 20 46 49 4c 45 20 2a 69 6e  Prompt, FILE *in
75d0: 29 7b 0a 20 20 63 68 61 72 20 2a 7a 4c 69 6e 65  ){.  char *zLine
75e0: 3b 0a 20 20 69 6e 74 20 6e 4c 69 6e 65 3b 0a 20  ;.  int nLine;. 
75f0: 20 69 6e 74 20 6e 3b 0a 20 20 69 6e 74 20 65 6f   int n;.  int eo
7600: 6c 3b 0a 0a 20 20 6e 4c 69 6e 65 20 3d 20 31 30  l;..  nLine = 10
7610: 30 3b 0a 20 20 7a 4c 69 6e 65 20 3d 20 6d 61 6c  0;.  zLine = mal
7620: 6c 6f 63 28 20 6e 4c 69 6e 65 20 29 3b 0a 20 20  loc( nLine );.  
7630: 69 66 28 20 7a 4c 69 6e 65 3d 3d 30 20 29 20 72  if( zLine==0 ) r
7640: 65 74 75 72 6e 20 30 3b 0a 20 20 6e 20 3d 20 30  eturn 0;.  n = 0
7650: 3b 0a 20 20 65 6f 6c 20 3d 20 30 3b 0a 20 20 77  ;.  eol = 0;.  w
7660: 68 69 6c 65 28 20 21 65 6f 6c 20 29 7b 0a 20 20  hile( !eol ){.  
7670: 20 20 69 66 28 20 6e 2b 31 30 30 3e 6e 4c 69 6e    if( n+100>nLin
7680: 65 20 29 7b 0a 20 20 20 20 20 20 6e 4c 69 6e 65  e ){.      nLine
7690: 20 3d 20 6e 4c 69 6e 65 2a 32 20 2b 20 31 30 30   = nLine*2 + 100
76a0: 3b 0a 20 20 20 20 20 20 7a 4c 69 6e 65 20 3d 20  ;.      zLine = 
76b0: 72 65 61 6c 6c 6f 63 28 7a 4c 69 6e 65 2c 20 6e  realloc(zLine, n
76c0: 4c 69 6e 65 29 3b 0a 20 20 20 20 20 20 69 66 28  Line);.      if(
76d0: 20 7a 4c 69 6e 65 3d 3d 30 20 29 20 72 65 74 75   zLine==0 ) retu
76e0: 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20  rn 0;.    }.    
76f0: 69 66 28 20 66 67 65 74 73 28 26 7a 4c 69 6e 65  if( fgets(&zLine
7700: 5b 6e 5d 2c 20 6e 4c 69 6e 65 20 2d 20 6e 2c 20  [n], nLine - n, 
7710: 69 6e 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  in)==0 ){.      
7720: 69 66 28 20 6e 3d 3d 30 20 29 7b 0a 20 20 20 20  if( n==0 ){.    
7730: 20 20 20 20 66 72 65 65 28 7a 4c 69 6e 65 29 3b      free(zLine);
7740: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
7750: 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  0;.      }.     
7760: 20 7a 4c 69 6e 65 5b 6e 5d 20 3d 20 30 3b 0a 20   zLine[n] = 0;. 
7770: 20 20 20 20 20 65 6f 6c 20 3d 20 31 3b 0a 20 20       eol = 1;.  
7780: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d      break;.    }
7790: 0a 20 20 20 20 77 68 69 6c 65 28 20 7a 4c 69 6e  .    while( zLin
77a0: 65 5b 6e 5d 20 29 7b 20 6e 2b 2b 3b 20 7d 0a 20  e[n] ){ n++; }. 
77b0: 20 20 20 69 66 28 20 6e 3e 30 20 26 26 20 7a 4c     if( n>0 && zL
77c0: 69 6e 65 5b 6e 2d 31 5d 3d 3d 27 5c 6e 27 20 29  ine[n-1]=='\n' )
77d0: 7b 0a 20 20 20 20 20 20 6e 2d 2d 3b 0a 20 20 20  {.      n--;.   
77e0: 20 20 20 7a 4c 69 6e 65 5b 6e 5d 20 3d 20 30 3b     zLine[n] = 0;
77f0: 0a 20 20 20 20 20 20 65 6f 6c 20 3d 20 31 3b 0a  .      eol = 1;.
7800: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 7a 4c 69 6e      }.  }.  zLin
7810: 65 20 3d 20 72 65 61 6c 6c 6f 63 28 20 7a 4c 69  e = realloc( zLi
7820: 6e 65 2c 20 6e 2b 31 20 29 3b 0a 20 20 72 65 74  ne, n+1 );.  ret
7830: 75 72 6e 20 7a 4c 69 6e 65 3b 0a 7d 0a 0a 0a 2f  urn zLine;.}.../
7840: 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69  *.** This functi
7850: 6f 6e 20 69 73 20 70 61 72 74 20 6f 66 20 74 68  on is part of th
7860: 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e  e implementation
7870: 20 6f 66 20 74 68 65 20 63 6f 6d 6d 61 6e 64 3a   of the command:
7880: 0a 2a 2a 0a 2a 2a 20 20 20 24 64 62 20 74 72 61  .**.**   $db tra
7890: 6e 73 61 63 74 69 6f 6e 20 5b 2d 64 65 66 65 72  nsaction [-defer
78a0: 72 65 64 7c 2d 69 6d 6d 65 64 69 61 74 65 7c 2d  red|-immediate|-
78b0: 65 78 63 6c 75 73 69 76 65 5d 20 53 43 52 49 50  exclusive] SCRIP
78c0: 54 0a 2a 2a 0a 2a 2a 20 49 74 20 69 73 20 69 6e  T.**.** It is in
78d0: 76 6f 6b 65 64 20 61 66 74 65 72 20 65 76 61 6c  voked after eval
78e0: 75 61 74 69 6e 67 20 74 68 65 20 73 63 72 69 70  uating the scrip
78f0: 74 20 53 43 52 49 50 54 20 74 6f 20 63 6f 6d 6d  t SCRIPT to comm
7900: 69 74 20 6f 72 20 72 6f 6c 6c 62 61 63 6b 0a 2a  it or rollback.*
7910: 2a 20 74 68 65 20 74 72 61 6e 73 61 63 74 69 6f  * the transactio
7920: 6e 20 6f 72 20 73 61 76 65 70 6f 69 6e 74 20 6f  n or savepoint o
7930: 70 65 6e 65 64 20 62 79 20 74 68 65 20 5b 74 72  pened by the [tr
7940: 61 6e 73 61 63 74 69 6f 6e 5d 20 63 6f 6d 6d 61  ansaction] comma
7950: 6e 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  nd..*/.static in
7960: 74 20 44 62 54 72 61 6e 73 50 6f 73 74 43 6d 64  t DbTransPostCmd
7970: 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 64  (.  ClientData d
7980: 61 74 61 5b 5d 2c 20 20 20 20 20 20 20 20 20 20  ata[],          
7990: 20 20 20 20 20 20 20 20 20 2f 2a 20 64 61 74 61           /* data
79a0: 5b 30 5d 20 69 73 20 74 68 65 20 53 71 6c 69 74  [0] is the Sqlit
79b0: 65 33 44 62 2a 20 66 6f 72 20 24 64 62 20 2a 2f  e3Db* for $db */
79c0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
79d0: 6e 74 65 72 70 2c 20 20 20 20 20 20 20 20 20 20  nterp,          
79e0: 20 20 20 20 20 20 20 20 2f 2a 20 54 63 6c 20 69          /* Tcl i
79f0: 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a 20 20  nterpreter */.  
7a00: 69 6e 74 20 72 65 73 75 6c 74 20 20 20 20 20 20  int result      
7a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7a20: 20 20 20 20 20 2f 2a 20 52 65 73 75 6c 74 20 6f       /* Result o
7a30: 66 20 65 76 61 6c 75 61 74 69 6e 67 20 53 43 52  f evaluating SCR
7a40: 49 50 54 20 2a 2f 0a 29 7b 0a 20 20 73 74 61 74  IPT */.){.  stat
7a50: 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 61  ic const char *a
7a60: 7a 45 6e 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 22  zEnd[] = {.    "
7a70: 52 45 4c 45 41 53 45 20 5f 74 63 6c 5f 74 72 61  RELEASE _tcl_tra
7a80: 6e 73 61 63 74 69 6f 6e 22 2c 20 20 20 20 20 20  nsaction",      
7a90: 20 20 2f 2a 20 72 63 3d 3d 54 43 4c 5f 45 52 52    /* rc==TCL_ERR
7aa0: 4f 52 2c 20 6e 54 72 61 6e 73 61 63 74 69 6f 6e  OR, nTransaction
7ab0: 21 3d 30 20 2a 2f 0a 20 20 20 20 22 43 4f 4d 4d  !=0 */.    "COMM
7ac0: 49 54 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  IT",            
7ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
7ae0: 20 72 63 21 3d 54 43 4c 5f 45 52 52 4f 52 2c 20   rc!=TCL_ERROR, 
7af0: 6e 54 72 61 6e 73 61 63 74 69 6f 6e 3d 3d 30 20  nTransaction==0 
7b00: 2a 2f 0a 20 20 20 20 22 52 4f 4c 4c 42 41 43 4b  */.    "ROLLBACK
7b10: 20 54 4f 20 5f 74 63 6c 5f 74 72 61 6e 73 61 63   TO _tcl_transac
7b20: 74 69 6f 6e 20 3b 20 52 45 4c 45 41 53 45 20 5f  tion ; RELEASE _
7b30: 74 63 6c 5f 74 72 61 6e 73 61 63 74 69 6f 6e 22  tcl_transaction"
7b40: 2c 0a 20 20 20 20 22 52 4f 4c 4c 42 41 43 4b 22  ,.    "ROLLBACK"
7b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7b60: 20 20 20 20 20 20 20 20 20 2f 2a 20 72 63 3d 3d           /* rc==
7b70: 54 43 4c 5f 45 52 52 4f 52 2c 20 6e 54 72 61 6e  TCL_ERROR, nTran
7b80: 73 61 63 74 69 6f 6e 3d 3d 30 20 2a 2f 0a 20 20  saction==0 */.  
7b90: 7d 3b 0a 20 20 53 71 6c 69 74 65 44 62 20 2a 70  };.  SqliteDb *p
7ba0: 44 62 20 3d 20 28 53 71 6c 69 74 65 44 62 2a 29  Db = (SqliteDb*)
7bb0: 64 61 74 61 5b 30 5d 3b 0a 20 20 69 6e 74 20 72  data[0];.  int r
7bc0: 63 20 3d 20 72 65 73 75 6c 74 3b 0a 20 20 63 6f  c = result;.  co
7bd0: 6e 73 74 20 63 68 61 72 20 2a 7a 45 6e 64 3b 0a  nst char *zEnd;.
7be0: 0a 20 20 70 44 62 2d 3e 6e 54 72 61 6e 73 61 63  .  pDb->nTransac
7bf0: 74 69 6f 6e 2d 2d 3b 0a 20 20 7a 45 6e 64 20 3d  tion--;.  zEnd =
7c00: 20 61 7a 45 6e 64 5b 28 72 63 3d 3d 54 43 4c 5f   azEnd[(rc==TCL_
7c10: 45 52 52 4f 52 29 2a 32 20 2b 20 28 70 44 62 2d  ERROR)*2 + (pDb-
7c20: 3e 6e 54 72 61 6e 73 61 63 74 69 6f 6e 3d 3d 30  >nTransaction==0
7c30: 29 5d 3b 0a 0a 20 20 70 44 62 2d 3e 64 69 73 61  )];..  pDb->disa
7c40: 62 6c 65 41 75 74 68 2b 2b 3b 0a 20 20 69 66 28  bleAuth++;.  if(
7c50: 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28 70 44   sqlite3_exec(pD
7c60: 62 2d 3e 64 62 2c 20 7a 45 6e 64 2c 20 30 2c 20  b->db, zEnd, 0, 
7c70: 30 2c 20 30 29 20 29 7b 0a 20 20 20 20 20 20 2f  0, 0) ){.      /
7c80: 2a 20 54 68 69 73 20 69 73 20 61 20 74 72 69 63  * This is a tric
7c90: 6b 79 20 73 63 65 6e 61 72 69 6f 20 74 6f 20 68  ky scenario to h
7ca0: 61 6e 64 6c 65 2e 20 54 68 65 20 6d 6f 73 74 20  andle. The most 
7cb0: 6c 69 6b 65 6c 79 20 63 61 75 73 65 20 6f 66 20  likely cause of 
7cc0: 61 6e 0a 20 20 20 20 20 20 2a 2a 20 65 72 72 6f  an.      ** erro
7cd0: 72 20 69 73 20 74 68 61 74 20 74 68 65 20 65 78  r is that the ex
7ce0: 65 63 28 29 20 61 62 6f 76 65 20 77 61 73 20 61  ec() above was a
7cf0: 6e 20 61 74 74 65 6d 70 74 20 74 6f 20 63 6f 6d  n attempt to com
7d00: 6d 69 74 20 74 68 65 20 0a 20 20 20 20 20 20 2a  mit the .      *
7d10: 2a 20 74 6f 70 2d 6c 65 76 65 6c 20 74 72 61 6e  * top-level tran
7d20: 73 61 63 74 69 6f 6e 20 74 68 61 74 20 72 65 74  saction that ret
7d30: 75 72 6e 65 64 20 53 51 4c 49 54 45 5f 42 55 53  urned SQLITE_BUS
7d40: 59 2e 20 4f 72 2c 20 6c 65 73 73 20 6c 69 6b 65  Y. Or, less like
7d50: 6c 79 2c 0a 20 20 20 20 20 20 2a 2a 20 74 68 61  ly,.      ** tha
7d60: 74 20 61 6e 20 49 4f 2d 65 72 72 6f 72 20 68 61  t an IO-error ha
7d70: 73 20 6f 63 63 75 72 65 64 2e 20 49 6e 20 65 69  s occured. In ei
7d80: 74 68 65 72 20 63 61 73 65 2c 20 74 68 72 6f 77  ther case, throw
7d90: 20 61 20 54 63 6c 20 65 78 63 65 70 74 69 6f 6e   a Tcl exception
7da0: 0a 20 20 20 20 20 20 2a 2a 20 61 6e 64 20 74 72  .      ** and tr
7db0: 79 20 74 6f 20 72 6f 6c 6c 62 61 63 6b 20 74 68  y to rollback th
7dc0: 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 2e 0a 20  e transaction.. 
7dd0: 20 20 20 20 20 2a 2a 0a 20 20 20 20 20 20 2a 2a       **.      **
7de0: 20 42 75 74 20 69 74 20 63 6f 75 6c 64 20 61 6c   But it could al
7df0: 73 6f 20 62 65 20 74 68 61 74 20 74 68 65 20 75  so be that the u
7e00: 73 65 72 20 65 78 65 63 75 74 65 64 20 6f 6e 65  ser executed one
7e10: 20 6f 72 20 6d 6f 72 65 20 42 45 47 49 4e 2c 20   or more BEGIN, 
7e20: 0a 20 20 20 20 20 20 2a 2a 20 43 4f 4d 4d 49 54  .      ** COMMIT
7e30: 2c 20 53 41 56 45 50 4f 49 4e 54 2c 20 52 45 4c  , SAVEPOINT, REL
7e40: 45 41 53 45 20 6f 72 20 52 4f 4c 4c 42 41 43 4b  EASE or ROLLBACK
7e50: 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20 61   commands that a
7e60: 72 65 20 63 6f 6e 66 75 73 69 6e 67 0a 20 20 20  re confusing.   
7e70: 20 20 20 2a 2a 20 74 68 69 73 20 6d 65 74 68 6f     ** this metho
7e80: 64 27 73 20 6c 6f 67 69 63 2e 20 4e 6f 74 20 63  d's logic. Not c
7e90: 6c 65 61 72 20 68 6f 77 20 74 68 69 73 20 77 6f  lear how this wo
7ea0: 75 6c 64 20 62 65 20 62 65 73 74 20 68 61 6e 64  uld be best hand
7eb0: 6c 65 64 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 20  led..      */.  
7ec0: 20 20 69 66 28 20 72 63 21 3d 54 43 4c 5f 45 52    if( rc!=TCL_ER
7ed0: 52 4f 52 20 29 7b 0a 20 20 20 20 20 20 54 63 6c  ROR ){.      Tcl
7ee0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
7ef0: 74 65 72 70 2c 20 73 71 6c 69 74 65 33 5f 65 72  terp, sqlite3_er
7f00: 72 6d 73 67 28 70 44 62 2d 3e 64 62 29 2c 20 30  rmsg(pDb->db), 0
7f10: 29 3b 0a 20 20 20 20 20 20 72 63 20 3d 20 54 43  );.      rc = TC
7f20: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20  L_ERROR;.    }. 
7f30: 20 20 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28     sqlite3_exec(
7f40: 70 44 62 2d 3e 64 62 2c 20 22 52 4f 4c 4c 42 41  pDb->db, "ROLLBA
7f50: 43 4b 22 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20  CK", 0, 0, 0);. 
7f60: 20 7d 0a 20 20 70 44 62 2d 3e 64 69 73 61 62 6c   }.  pDb->disabl
7f70: 65 41 75 74 68 2d 2d 3b 0a 0a 20 20 72 65 74 75  eAuth--;..  retu
7f80: 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  rn rc;.}../*.** 
7f90: 53 65 61 72 63 68 20 74 68 65 20 63 61 63 68 65  Search the cache
7fa0: 20 66 6f 72 20 61 20 70 72 65 70 61 72 65 64 2d   for a prepared-
7fb0: 73 74 61 74 65 6d 65 6e 74 20 6f 62 6a 65 63 74  statement object
7fc0: 20 74 68 61 74 20 69 6d 70 6c 65 6d 65 6e 74 73   that implements
7fd0: 20 74 68 65 0a 2a 2a 20 66 69 72 73 74 20 53 51   the.** first SQ
7fe0: 4c 20 73 74 61 74 65 6d 65 6e 74 20 69 6e 20 74  L statement in t
7ff0: 68 65 20 62 75 66 66 65 72 20 70 6f 69 6e 74 65  he buffer pointe
8000: 64 20 74 6f 20 62 79 20 70 61 72 61 6d 65 74 65  d to by paramete
8010: 72 20 7a 49 6e 2e 20 49 66 0a 2a 2a 20 6e 6f 20  r zIn. If.** no 
8020: 73 75 63 68 20 70 72 65 70 61 72 65 64 2d 73 74  such prepared-st
8030: 61 74 65 6d 65 6e 74 20 63 61 6e 20 62 65 20 66  atement can be f
8040: 6f 75 6e 64 2c 20 61 6c 6c 6f 63 61 74 65 20 61  ound, allocate a
8050: 6e 64 20 70 72 65 70 61 72 65 20 61 20 6e 65 77  nd prepare a new
8060: 0a 2a 2a 20 6f 6e 65 2e 20 49 6e 20 65 69 74 68  .** one. In eith
8070: 65 72 20 63 61 73 65 2c 20 62 69 6e 64 20 74 68  er case, bind th
8080: 65 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 73  e current values
8090: 20 6f 66 20 74 68 65 20 72 65 6c 65 76 61 6e 74   of the relevant
80a0: 20 54 63 6c 0a 2a 2a 20 76 61 72 69 61 62 6c 65   Tcl.** variable
80b0: 73 20 74 6f 20 61 6e 79 20 24 76 61 72 2c 20 3a  s to any $var, :
80c0: 76 61 72 20 6f 72 20 40 76 61 72 20 76 61 72 69  var or @var vari
80d0: 61 62 6c 65 73 20 69 6e 20 74 68 65 20 73 74 61  ables in the sta
80e0: 74 65 6d 65 6e 74 2e 20 42 65 66 6f 72 65 0a 2a  tement. Before.*
80f0: 2a 20 72 65 74 75 72 6e 69 6e 67 2c 20 73 65 74  * returning, set
8100: 20 2a 70 70 50 72 65 53 74 6d 74 20 74 6f 20 70   *ppPreStmt to p
8110: 6f 69 6e 74 20 74 6f 20 74 68 65 20 70 72 65 70  oint to the prep
8120: 61 72 65 64 2d 73 74 61 74 65 6d 65 6e 74 20 6f  ared-statement o
8130: 62 6a 65 63 74 2e 0a 2a 2a 0a 2a 2a 20 4f 75 74  bject..**.** Out
8140: 70 75 74 20 70 61 72 61 6d 65 74 65 72 20 2a 70  put parameter *p
8150: 7a 4f 75 74 20 69 73 20 73 65 74 20 74 6f 20 70  zOut is set to p
8160: 6f 69 6e 74 20 74 6f 20 74 68 65 20 6e 65 78 74  oint to the next
8170: 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 69   SQL statement i
8180: 6e 0a 2a 2a 20 62 75 66 66 65 72 20 7a 49 6e 2c  n.** buffer zIn,
8190: 20 6f 72 20 74 6f 20 74 68 65 20 27 5c 30 27 20   or to the '\0' 
81a0: 62 79 74 65 20 61 74 20 74 68 65 20 65 6e 64 20  byte at the end 
81b0: 6f 66 20 7a 49 6e 20 69 66 20 74 68 65 72 65 20  of zIn if there 
81c0: 69 73 20 6e 6f 0a 2a 2a 20 6e 65 78 74 20 73 74  is no.** next st
81d0: 61 74 65 6d 65 6e 74 2e 0a 2a 2a 0a 2a 2a 20 49  atement..**.** I
81e0: 66 20 73 75 63 63 65 73 73 66 75 6c 2c 20 54 43  f successful, TC
81f0: 4c 5f 4f 4b 20 69 73 20 72 65 74 75 72 6e 65 64  L_OK is returned
8200: 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 54 43 4c  . Otherwise, TCL
8210: 5f 45 52 52 4f 52 20 69 73 20 72 65 74 75 72 6e  _ERROR is return
8220: 65 64 0a 2a 2a 20 61 6e 64 20 61 6e 20 65 72 72  ed.** and an err
8230: 6f 72 20 6d 65 73 73 61 67 65 20 6c 6f 61 64 65  or message loade
8240: 64 20 69 6e 74 6f 20 69 6e 74 65 72 70 72 65 74  d into interpret
8250: 65 72 20 70 44 62 2d 3e 69 6e 74 65 72 70 2e 0a  er pDb->interp..
8260: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 64 62  */.static int db
8270: 50 72 65 70 61 72 65 41 6e 64 42 69 6e 64 28 0a  PrepareAndBind(.
8280: 20 20 53 71 6c 69 74 65 44 62 20 2a 70 44 62 2c    SqliteDb *pDb,
8290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
82a0: 20 20 2f 2a 20 44 61 74 61 62 61 73 65 20 6f 62    /* Database ob
82b0: 6a 65 63 74 20 2a 2f 0a 20 20 63 68 61 72 20 63  ject */.  char c
82c0: 6f 6e 73 74 20 2a 7a 49 6e 2c 20 20 20 20 20 20  onst *zIn,      
82d0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 51 4c            /* SQL
82e0: 20 74 6f 20 63 6f 6d 70 69 6c 65 20 2a 2f 0a 20   to compile */. 
82f0: 20 63 68 61 72 20 63 6f 6e 73 74 20 2a 2a 70 7a   char const **pz
8300: 4f 75 74 2c 20 20 20 20 20 20 20 20 20 20 20 20  Out,            
8310: 20 2f 2a 20 4f 55 54 3a 20 50 6f 69 6e 74 65 72   /* OUT: Pointer
8320: 20 74 6f 20 6e 65 78 74 20 53 51 4c 20 73 74 61   to next SQL sta
8330: 74 65 6d 65 6e 74 20 2a 2f 0a 20 20 53 71 6c 50  tement */.  SqlP
8340: 72 65 70 61 72 65 64 53 74 6d 74 20 2a 2a 70 70  reparedStmt **pp
8350: 50 72 65 53 74 6d 74 20 20 20 20 20 2f 2a 20 4f  PreStmt     /* O
8360: 55 54 3a 20 4f 62 6a 65 63 74 20 75 73 65 64 20  UT: Object used 
8370: 74 6f 20 63 61 63 68 65 20 73 74 61 74 65 6d 65  to cache stateme
8380: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 63 6f 6e 73 74  nt */.){.  const
8390: 20 63 68 61 72 20 2a 7a 53 71 6c 20 3d 20 7a 49   char *zSql = zI
83a0: 6e 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 50 6f  n;         /* Po
83b0: 69 6e 74 65 72 20 74 6f 20 66 69 72 73 74 20 53  inter to first S
83c0: 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 69 6e 20  QL statement in 
83d0: 7a 49 6e 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33  zIn */.  sqlite3
83e0: 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 20 20 20  _stmt *pStmt;   
83f0: 20 20 20 20 20 20 20 20 20 2f 2a 20 50 72 65 70           /* Prep
8400: 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 20 6f  ared statement o
8410: 62 6a 65 63 74 20 2a 2f 0a 20 20 53 71 6c 50 72  bject */.  SqlPr
8420: 65 70 61 72 65 64 53 74 6d 74 20 2a 70 50 72 65  eparedStmt *pPre
8430: 53 74 6d 74 3b 20 20 20 20 20 20 2f 2a 20 50 6f  Stmt;      /* Po
8440: 69 6e 74 65 72 20 74 6f 20 63 61 63 68 65 64 20  inter to cached 
8450: 73 74 61 74 65 6d 65 6e 74 20 2a 2f 0a 20 20 69  statement */.  i
8460: 6e 74 20 6e 53 71 6c 3b 20 20 20 20 20 20 20 20  nt nSql;        
8470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
8480: 2a 20 4c 65 6e 67 74 68 20 6f 66 20 7a 53 71 6c  * Length of zSql
8490: 20 69 6e 20 62 79 74 65 73 20 2a 2f 0a 20 20 69   in bytes */.  i
84a0: 6e 74 20 6e 56 61 72 3b 20 20 20 20 20 20 20 20  nt nVar;        
84b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
84c0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 76 61 72 69  * Number of vari
84d0: 61 62 6c 65 73 20 69 6e 20 73 74 61 74 65 6d 65  ables in stateme
84e0: 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 69 50 61 72  nt */.  int iPar
84f0: 6d 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20  m = 0;          
8500: 20 20 20 20 20 20 20 20 2f 2a 20 4e 65 78 74 20          /* Next 
8510: 66 72 65 65 20 65 6e 74 72 79 20 69 6e 20 61 70  free entry in ap
8520: 50 61 72 6d 20 2a 2f 0a 20 20 69 6e 74 20 69 3b  Parm */.  int i;
8530: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
8540: 6e 74 65 72 70 20 3d 20 70 44 62 2d 3e 69 6e 74  nterp = pDb->int
8550: 65 72 70 3b 0a 0a 20 20 2a 70 70 50 72 65 53 74  erp;..  *ppPreSt
8560: 6d 74 20 3d 20 30 3b 0a 0a 20 20 2f 2a 20 54 72  mt = 0;..  /* Tr
8570: 69 6d 20 73 70 61 63 65 73 20 66 72 6f 6d 20 74  im spaces from t
8580: 68 65 20 73 74 61 72 74 20 6f 66 20 7a 53 71 6c  he start of zSql
8590: 20 61 6e 64 20 63 61 6c 63 75 6c 61 74 65 20 74   and calculate t
85a0: 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 6c 65 6e  he remaining len
85b0: 67 74 68 2e 20 2a 2f 0a 20 20 77 68 69 6c 65 28  gth. */.  while(
85c0: 20 69 73 73 70 61 63 65 28 7a 53 71 6c 5b 30 5d   isspace(zSql[0]
85d0: 29 20 29 7b 20 7a 53 71 6c 2b 2b 3b 20 7d 0a 20  ) ){ zSql++; }. 
85e0: 20 6e 53 71 6c 20 3d 20 73 74 72 6c 65 6e 33 30   nSql = strlen30
85f0: 28 7a 53 71 6c 29 3b 0a 0a 20 20 66 6f 72 28 70  (zSql);..  for(p
8600: 50 72 65 53 74 6d 74 20 3d 20 70 44 62 2d 3e 73  PreStmt = pDb->s
8610: 74 6d 74 4c 69 73 74 3b 20 70 50 72 65 53 74 6d  tmtList; pPreStm
8620: 74 3b 20 70 50 72 65 53 74 6d 74 3d 70 50 72 65  t; pPreStmt=pPre
8630: 53 74 6d 74 2d 3e 70 4e 65 78 74 29 7b 0a 20 20  Stmt->pNext){.  
8640: 20 20 69 6e 74 20 6e 20 3d 20 70 50 72 65 53 74    int n = pPreSt
8650: 6d 74 2d 3e 6e 53 71 6c 3b 0a 20 20 20 20 69 66  mt->nSql;.    if
8660: 28 20 6e 53 71 6c 3e 3d 6e 20 0a 20 20 20 20 20  ( nSql>=n .     
8670: 20 20 20 26 26 20 6d 65 6d 63 6d 70 28 70 50 72     && memcmp(pPr
8680: 65 53 74 6d 74 2d 3e 7a 53 71 6c 2c 20 7a 53 71  eStmt->zSql, zSq
8690: 6c 2c 20 6e 29 3d 3d 30 0a 20 20 20 20 20 20 20  l, n)==0.       
86a0: 20 26 26 20 28 7a 53 71 6c 5b 6e 5d 3d 3d 30 20   && (zSql[n]==0 
86b0: 7c 7c 20 7a 53 71 6c 5b 6e 2d 31 5d 3d 3d 27 3b  || zSql[n-1]==';
86c0: 27 29 0a 20 20 20 20 29 7b 0a 20 20 20 20 20 20  ').    ){.      
86d0: 70 53 74 6d 74 20 3d 20 70 50 72 65 53 74 6d 74  pStmt = pPreStmt
86e0: 2d 3e 70 53 74 6d 74 3b 0a 20 20 20 20 20 20 2a  ->pStmt;.      *
86f0: 70 7a 4f 75 74 20 3d 20 26 7a 53 71 6c 5b 70 50  pzOut = &zSql[pP
8700: 72 65 53 74 6d 74 2d 3e 6e 53 71 6c 5d 3b 0a 0a  reStmt->nSql];..
8710: 20 20 20 20 20 20 2f 2a 20 57 68 65 6e 20 61 20        /* When a 
8720: 70 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65  prepared stateme
8730: 6e 74 20 69 73 20 66 6f 75 6e 64 2c 20 75 6e 6c  nt is found, unl
8740: 69 6e 6b 20 69 74 20 66 72 6f 6d 20 74 68 65 0a  ink it from the.
8750: 20 20 20 20 20 20 2a 2a 20 63 61 63 68 65 20 6c        ** cache l
8760: 69 73 74 2e 20 20 49 74 20 77 69 6c 6c 20 6c 61  ist.  It will la
8770: 74 65 72 20 62 65 20 61 64 64 65 64 20 62 61 63  ter be added bac
8780: 6b 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69  k to the beginni
8790: 6e 67 0a 20 20 20 20 20 20 2a 2a 20 6f 66 20 74  ng.      ** of t
87a0: 68 65 20 63 61 63 68 65 20 6c 69 73 74 20 69 6e  he cache list in
87b0: 20 6f 72 64 65 72 20 74 6f 20 69 6d 70 6c 65 6d   order to implem
87c0: 65 6e 74 20 4c 52 55 20 72 65 70 6c 61 63 65 6d  ent LRU replacem
87d0: 65 6e 74 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 20  ent..      */.  
87e0: 20 20 20 20 69 66 28 20 70 50 72 65 53 74 6d 74      if( pPreStmt
87f0: 2d 3e 70 50 72 65 76 20 29 7b 0a 20 20 20 20 20  ->pPrev ){.     
8800: 20 20 20 70 50 72 65 53 74 6d 74 2d 3e 70 50 72     pPreStmt->pPr
8810: 65 76 2d 3e 70 4e 65 78 74 20 3d 20 70 50 72 65  ev->pNext = pPre
8820: 53 74 6d 74 2d 3e 70 4e 65 78 74 3b 0a 20 20 20  Stmt->pNext;.   
8830: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
8840: 20 20 70 44 62 2d 3e 73 74 6d 74 4c 69 73 74 20    pDb->stmtList 
8850: 3d 20 70 50 72 65 53 74 6d 74 2d 3e 70 4e 65 78  = pPreStmt->pNex
8860: 74 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  t;.      }.     
8870: 20 69 66 28 20 70 50 72 65 53 74 6d 74 2d 3e 70   if( pPreStmt->p
8880: 4e 65 78 74 20 29 7b 0a 20 20 20 20 20 20 20 20  Next ){.        
8890: 70 50 72 65 53 74 6d 74 2d 3e 70 4e 65 78 74 2d  pPreStmt->pNext-
88a0: 3e 70 50 72 65 76 20 3d 20 70 50 72 65 53 74 6d  >pPrev = pPreStm
88b0: 74 2d 3e 70 50 72 65 76 3b 0a 20 20 20 20 20 20  t->pPrev;.      
88c0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 70  }else{.        p
88d0: 44 62 2d 3e 73 74 6d 74 4c 61 73 74 20 3d 20 70  Db->stmtLast = p
88e0: 50 72 65 53 74 6d 74 2d 3e 70 50 72 65 76 3b 0a  PreStmt->pPrev;.
88f0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 70 44        }.      pD
8900: 62 2d 3e 6e 53 74 6d 74 2d 2d 3b 0a 20 20 20 20  b->nStmt--;.    
8910: 20 20 6e 56 61 72 20 3d 20 73 71 6c 69 74 65 33    nVar = sqlite3
8920: 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f  _bind_parameter_
8930: 63 6f 75 6e 74 28 70 53 74 6d 74 29 3b 0a 20 20  count(pStmt);.  
8940: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d      break;.    }
8950: 0a 20 20 7d 0a 20 20 0a 20 20 2f 2a 20 49 66 20  .  }.  .  /* If 
8960: 6e 6f 20 70 72 65 70 61 72 65 64 20 73 74 61 74  no prepared stat
8970: 65 6d 65 6e 74 20 77 61 73 20 66 6f 75 6e 64 2e  ement was found.
8980: 20 43 6f 6d 70 69 6c 65 20 74 68 65 20 53 51 4c   Compile the SQL
8990: 20 74 65 78 74 2e 20 41 6c 73 6f 20 61 6c 6c 6f   text. Also allo
89a0: 63 61 74 65 0a 20 20 2a 2a 20 61 20 6e 65 77 20  cate.  ** a new 
89b0: 53 71 6c 50 72 65 70 61 72 65 64 53 74 6d 74 20  SqlPreparedStmt 
89c0: 73 74 72 75 63 74 75 72 65 2e 20 20 2a 2f 0a 20  structure.  */. 
89d0: 20 69 66 28 20 70 50 72 65 53 74 6d 74 3d 3d 30   if( pPreStmt==0
89e0: 20 29 7b 0a 20 20 20 20 69 6e 74 20 6e 42 79 74   ){.    int nByt
89f0: 65 3b 0a 0a 20 20 20 20 69 66 28 20 53 51 4c 49  e;..    if( SQLI
8a00: 54 45 5f 4f 4b 21 3d 73 71 6c 69 74 65 33 5f 70  TE_OK!=sqlite3_p
8a10: 72 65 70 61 72 65 5f 76 32 28 70 44 62 2d 3e 64  repare_v2(pDb->d
8a20: 62 2c 20 7a 53 71 6c 2c 20 2d 31 2c 20 26 70 53  b, zSql, -1, &pS
8a30: 74 6d 74 2c 20 70 7a 4f 75 74 29 20 29 7b 0a 20  tmt, pzOut) ){. 
8a40: 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52       Tcl_SetObjR
8a50: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 64 62  esult(interp, db
8a60: 54 65 78 74 54 6f 4f 62 6a 28 73 71 6c 69 74 65  TextToObj(sqlite
8a70: 33 5f 65 72 72 6d 73 67 28 70 44 62 2d 3e 64 62  3_errmsg(pDb->db
8a80: 29 29 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72  )));.      retur
8a90: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
8aa0: 20 7d 0a 20 20 20 20 69 66 28 20 70 53 74 6d 74   }.    if( pStmt
8ab0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 66 28  ==0 ){.      if(
8ac0: 20 53 51 4c 49 54 45 5f 4f 4b 21 3d 73 71 6c 69   SQLITE_OK!=sqli
8ad0: 74 65 33 5f 65 72 72 63 6f 64 65 28 70 44 62 2d  te3_errcode(pDb-
8ae0: 3e 64 62 29 20 29 7b 0a 20 20 20 20 20 20 20 20  >db) ){.        
8af0: 2f 2a 20 41 20 63 6f 6d 70 69 6c 65 2d 74 69 6d  /* A compile-tim
8b00: 65 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 73  e error in the s
8b10: 74 61 74 65 6d 65 6e 74 2e 20 2a 2f 0a 20 20 20  tatement. */.   
8b20: 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52       Tcl_SetObjR
8b30: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 64 62  esult(interp, db
8b40: 54 65 78 74 54 6f 4f 62 6a 28 73 71 6c 69 74 65  TextToObj(sqlite
8b50: 33 5f 65 72 72 6d 73 67 28 70 44 62 2d 3e 64 62  3_errmsg(pDb->db
8b60: 29 29 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74  )));.        ret
8b70: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
8b80: 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20       }else{.    
8b90: 20 20 20 20 2f 2a 20 54 68 65 20 73 74 61 74 65      /* The state
8ba0: 6d 65 6e 74 20 77 61 73 20 61 20 6e 6f 2d 6f 70  ment was a no-op
8bb0: 2e 20 20 43 6f 6e 74 69 6e 75 65 20 74 6f 20 74  .  Continue to t
8bc0: 68 65 20 6e 65 78 74 20 73 74 61 74 65 6d 65 6e  he next statemen
8bd0: 74 0a 20 20 20 20 20 20 20 20 2a 2a 20 69 6e 20  t.        ** in 
8be0: 74 68 65 20 53 51 4c 20 73 74 72 69 6e 67 2e 0a  the SQL string..
8bf0: 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20          */.     
8c00: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b     return TCL_OK
8c10: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  ;.      }.    }.
8c20: 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 50 72  .    assert( pPr
8c30: 65 53 74 6d 74 3d 3d 30 20 29 3b 0a 20 20 20 20  eStmt==0 );.    
8c40: 6e 56 61 72 20 3d 20 73 71 6c 69 74 65 33 5f 62  nVar = sqlite3_b
8c50: 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 63 6f  ind_parameter_co
8c60: 75 6e 74 28 70 53 74 6d 74 29 3b 0a 20 20 20 20  unt(pStmt);.    
8c70: 6e 42 79 74 65 20 3d 20 73 69 7a 65 6f 66 28 53  nByte = sizeof(S
8c80: 71 6c 50 72 65 70 61 72 65 64 53 74 6d 74 29 20  qlPreparedStmt) 
8c90: 2b 20 6e 56 61 72 2a 73 69 7a 65 6f 66 28 54 63  + nVar*sizeof(Tc
8ca0: 6c 5f 4f 62 6a 20 2a 29 3b 0a 20 20 20 20 70 50  l_Obj *);.    pP
8cb0: 72 65 53 74 6d 74 20 3d 20 28 53 71 6c 50 72 65  reStmt = (SqlPre
8cc0: 70 61 72 65 64 53 74 6d 74 2a 29 54 63 6c 5f 41  paredStmt*)Tcl_A
8cd0: 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20 20 20  lloc(nByte);.   
8ce0: 20 6d 65 6d 73 65 74 28 70 50 72 65 53 74 6d 74   memset(pPreStmt
8cf0: 2c 20 30 2c 20 6e 42 79 74 65 29 3b 0a 0a 20 20  , 0, nByte);..  
8d00: 20 20 70 50 72 65 53 74 6d 74 2d 3e 70 53 74 6d    pPreStmt->pStm
8d10: 74 20 3d 20 70 53 74 6d 74 3b 0a 20 20 20 20 70  t = pStmt;.    p
8d20: 50 72 65 53 74 6d 74 2d 3e 6e 53 71 6c 20 3d 20  PreStmt->nSql = 
8d30: 28 2a 70 7a 4f 75 74 20 2d 20 7a 53 71 6c 29 3b  (*pzOut - zSql);
8d40: 0a 20 20 20 20 70 50 72 65 53 74 6d 74 2d 3e 7a  .    pPreStmt->z
8d50: 53 71 6c 20 3d 20 73 71 6c 69 74 65 33 5f 73 71  Sql = sqlite3_sq
8d60: 6c 28 70 53 74 6d 74 29 3b 0a 20 20 20 20 70 50  l(pStmt);.    pP
8d70: 72 65 53 74 6d 74 2d 3e 61 70 50 61 72 6d 20 3d  reStmt->apParm =
8d80: 20 28 54 63 6c 5f 4f 62 6a 20 2a 2a 29 26 70 50   (Tcl_Obj **)&pP
8d90: 72 65 53 74 6d 74 5b 31 5d 3b 0a 20 20 7d 0a 20  reStmt[1];.  }. 
8da0: 20 61 73 73 65 72 74 28 20 70 50 72 65 53 74 6d   assert( pPreStm
8db0: 74 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 73  t );.  assert( s
8dc0: 74 72 6c 65 6e 33 30 28 70 50 72 65 53 74 6d 74  trlen30(pPreStmt
8dd0: 2d 3e 7a 53 71 6c 29 3d 3d 70 50 72 65 53 74 6d  ->zSql)==pPreStm
8de0: 74 2d 3e 6e 53 71 6c 20 29 3b 0a 20 20 61 73 73  t->nSql );.  ass
8df0: 65 72 74 28 20 30 3d 3d 6d 65 6d 63 6d 70 28 70  ert( 0==memcmp(p
8e00: 50 72 65 53 74 6d 74 2d 3e 7a 53 71 6c 2c 20 7a  PreStmt->zSql, z
8e10: 53 71 6c 2c 20 70 50 72 65 53 74 6d 74 2d 3e 6e  Sql, pPreStmt->n
8e20: 53 71 6c 29 20 29 3b 0a 0a 20 20 2f 2a 20 42 69  Sql) );..  /* Bi
8e30: 6e 64 20 76 61 6c 75 65 73 20 74 6f 20 70 61 72  nd values to par
8e40: 61 6d 65 74 65 72 73 20 74 68 61 74 20 62 65 67  ameters that beg
8e50: 69 6e 20 77 69 74 68 20 24 20 6f 72 20 3a 20 2a  in with $ or : *
8e60: 2f 20 20 0a 20 20 66 6f 72 28 69 3d 31 3b 20 69  /  .  for(i=1; i
8e70: 3c 3d 6e 56 61 72 3b 20 69 2b 2b 29 7b 0a 20 20  <=nVar; i++){.  
8e80: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56    const char *zV
8e90: 61 72 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e  ar = sqlite3_bin
8ea0: 64 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 6d 65  d_parameter_name
8eb0: 28 70 53 74 6d 74 2c 20 69 29 3b 0a 20 20 20 20  (pStmt, i);.    
8ec0: 69 66 28 20 7a 56 61 72 21 3d 30 20 26 26 20 28  if( zVar!=0 && (
8ed0: 7a 56 61 72 5b 30 5d 3d 3d 27 24 27 20 7c 7c 20  zVar[0]=='$' || 
8ee0: 7a 56 61 72 5b 30 5d 3d 3d 27 3a 27 20 7c 7c 20  zVar[0]==':' || 
8ef0: 7a 56 61 72 5b 30 5d 3d 3d 27 40 27 29 20 29 7b  zVar[0]=='@') ){
8f00: 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a  .      Tcl_Obj *
8f10: 70 56 61 72 20 3d 20 54 63 6c 5f 47 65 74 56 61  pVar = Tcl_GetVa
8f20: 72 32 45 78 28 69 6e 74 65 72 70 2c 20 26 7a 56  r2Ex(interp, &zV
8f30: 61 72 5b 31 5d 2c 20 30 2c 20 30 29 3b 0a 20 20  ar[1], 0, 0);.  
8f40: 20 20 20 20 69 66 28 20 70 56 61 72 20 29 7b 0a      if( pVar ){.
8f50: 20 20 20 20 20 20 20 20 69 6e 74 20 6e 3b 0a 20          int n;. 
8f60: 20 20 20 20 20 20 20 75 38 20 2a 64 61 74 61 3b         u8 *data;
8f70: 0a 20 20 20 20 20 20 20 20 63 6f 6e 73 74 20 63  .        const c
8f80: 68 61 72 20 2a 7a 54 79 70 65 20 3d 20 28 70 56  har *zType = (pV
8f90: 61 72 2d 3e 74 79 70 65 50 74 72 20 3f 20 70 56  ar->typePtr ? pV
8fa0: 61 72 2d 3e 74 79 70 65 50 74 72 2d 3e 6e 61 6d  ar->typePtr->nam
8fb0: 65 20 3a 20 22 22 29 3b 0a 20 20 20 20 20 20 20  e : "");.       
8fc0: 20 63 68 61 72 20 63 20 3d 20 7a 54 79 70 65 5b   char c = zType[
8fd0: 30 5d 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20  0];.        if( 
8fe0: 7a 56 61 72 5b 30 5d 3d 3d 27 40 27 20 7c 7c 0a  zVar[0]=='@' ||.
8ff0: 20 20 20 20 20 20 20 20 20 20 20 28 63 3d 3d 27             (c=='
9000: 62 27 20 26 26 20 73 74 72 63 6d 70 28 7a 54 79  b' && strcmp(zTy
9010: 70 65 2c 22 62 79 74 65 61 72 72 61 79 22 29 3d  pe,"bytearray")=
9020: 3d 30 20 26 26 20 70 56 61 72 2d 3e 62 79 74 65  =0 && pVar->byte
9030: 73 3d 3d 30 29 20 29 7b 0a 20 20 20 20 20 20 20  s==0) ){.       
9040: 20 20 20 2f 2a 20 4c 6f 61 64 20 61 20 42 4c 4f     /* Load a BLO
9050: 42 20 74 79 70 65 20 69 66 20 74 68 65 20 54 63  B type if the Tc
9060: 6c 20 76 61 72 69 61 62 6c 65 20 69 73 20 61 20  l variable is a 
9070: 62 79 74 65 61 72 72 61 79 20 61 6e 64 0a 20 20  bytearray and.  
9080: 20 20 20 20 20 20 20 20 2a 2a 20 69 74 20 68 61          ** it ha
9090: 73 20 6e 6f 20 73 74 72 69 6e 67 20 72 65 70 72  s no string repr
90a0: 65 73 65 6e 74 61 74 69 6f 6e 20 6f 72 20 74 68  esentation or th
90b0: 65 20 68 6f 73 74 0a 20 20 20 20 20 20 20 20 20  e host.         
90c0: 20 2a 2a 20 70 61 72 61 6d 65 74 65 72 20 6e 61   ** parameter na
90d0: 6d 65 20 62 65 67 69 6e 73 20 77 69 74 68 20 22  me begins with "
90e0: 40 22 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  @". */.         
90f0: 20 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42   data = Tcl_GetB
9100: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28  yteArrayFromObj(
9110: 70 56 61 72 2c 20 26 6e 29 3b 0a 20 20 20 20 20  pVar, &n);.     
9120: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e       sqlite3_bin
9130: 64 5f 62 6c 6f 62 28 70 53 74 6d 74 2c 20 69 2c  d_blob(pStmt, i,
9140: 20 64 61 74 61 2c 20 6e 2c 20 53 51 4c 49 54 45   data, n, SQLITE
9150: 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 20 20  _STATIC);.      
9160: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43      Tcl_IncrRefC
9170: 6f 75 6e 74 28 70 56 61 72 29 3b 0a 20 20 20 20  ount(pVar);.    
9180: 20 20 20 20 20 20 70 50 72 65 53 74 6d 74 2d 3e        pPreStmt->
9190: 61 70 50 61 72 6d 5b 69 50 61 72 6d 2b 2b 5d 20  apParm[iParm++] 
91a0: 3d 20 70 56 61 72 3b 0a 20 20 20 20 20 20 20 20  = pVar;.        
91b0: 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d 27 62 27  }else if( c=='b'
91c0: 20 26 26 20 73 74 72 63 6d 70 28 7a 54 79 70 65   && strcmp(zType
91d0: 2c 22 62 6f 6f 6c 65 61 6e 22 29 3d 3d 30 20 29  ,"boolean")==0 )
91e0: 7b 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f  {.          Tcl_
91f0: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e  GetIntFromObj(in
9200: 74 65 72 70 2c 20 70 56 61 72 2c 20 26 6e 29 3b  terp, pVar, &n);
9210: 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74  .          sqlit
9220: 65 33 5f 62 69 6e 64 5f 69 6e 74 28 70 53 74 6d  e3_bind_int(pStm
9230: 74 2c 20 69 2c 20 6e 29 3b 0a 20 20 20 20 20 20  t, i, n);.      
9240: 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d 27    }else if( c=='
9250: 64 27 20 26 26 20 73 74 72 63 6d 70 28 7a 54 79  d' && strcmp(zTy
9260: 70 65 2c 22 64 6f 75 62 6c 65 22 29 3d 3d 30 20  pe,"double")==0 
9270: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 64 6f 75  ){.          dou
9280: 62 6c 65 20 72 3b 0a 20 20 20 20 20 20 20 20 20  ble r;.         
9290: 20 54 63 6c 5f 47 65 74 44 6f 75 62 6c 65 46 72   Tcl_GetDoubleFr
92a0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 70 56  omObj(interp, pV
92b0: 61 72 2c 20 26 72 29 3b 0a 20 20 20 20 20 20 20  ar, &r);.       
92c0: 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f     sqlite3_bind_
92d0: 64 6f 75 62 6c 65 28 70 53 74 6d 74 2c 20 69 2c  double(pStmt, i,
92e0: 20 72 29 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c   r);.        }el
92f0: 73 65 20 69 66 28 20 28 63 3d 3d 27 77 27 20 26  se if( (c=='w' &
9300: 26 20 73 74 72 63 6d 70 28 7a 54 79 70 65 2c 22  & strcmp(zType,"
9310: 77 69 64 65 49 6e 74 22 29 3d 3d 30 29 20 7c 7c  wideInt")==0) ||
9320: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28  .              (
9330: 63 3d 3d 27 69 27 20 26 26 20 73 74 72 63 6d 70  c=='i' && strcmp
9340: 28 7a 54 79 70 65 2c 22 69 6e 74 22 29 3d 3d 30  (zType,"int")==0
9350: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 54  ) ){.          T
9360: 63 6c 5f 57 69 64 65 49 6e 74 20 76 3b 0a 20 20  cl_WideInt v;.  
9370: 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 57          Tcl_GetW
9380: 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e  ideIntFromObj(in
9390: 74 65 72 70 2c 20 70 56 61 72 2c 20 26 76 29 3b  terp, pVar, &v);
93a0: 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74  .          sqlit
93b0: 65 33 5f 62 69 6e 64 5f 69 6e 74 36 34 28 70 53  e3_bind_int64(pS
93c0: 74 6d 74 2c 20 69 2c 20 76 29 3b 0a 20 20 20 20  tmt, i, v);.    
93d0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
93e0: 20 20 20 20 20 64 61 74 61 20 3d 20 28 75 6e 73       data = (uns
93f0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 54 63 6c  igned char *)Tcl
9400: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62  _GetStringFromOb
9410: 6a 28 70 56 61 72 2c 20 26 6e 29 3b 0a 20 20 20  j(pVar, &n);.   
9420: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 62         sqlite3_b
9430: 69 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 2c 20  ind_text(pStmt, 
9440: 69 2c 20 28 63 68 61 72 20 2a 29 64 61 74 61 2c  i, (char *)data,
9450: 20 6e 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49   n, SQLITE_STATI
9460: 43 29 3b 0a 20 20 20 20 20 20 20 20 20 20 54 63  C);.          Tc
9470: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70  l_IncrRefCount(p
9480: 56 61 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20  Var);.          
9490: 70 50 72 65 53 74 6d 74 2d 3e 61 70 50 61 72 6d  pPreStmt->apParm
94a0: 5b 69 50 61 72 6d 2b 2b 5d 20 3d 20 70 56 61 72  [iParm++] = pVar
94b0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
94c0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
94d0: 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 6e 75   sqlite3_bind_nu
94e0: 6c 6c 28 70 53 74 6d 74 2c 20 69 29 3b 0a 20 20  ll(pStmt, i);.  
94f0: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a      }.    }.  }.
9500: 20 20 70 50 72 65 53 74 6d 74 2d 3e 6e 50 61 72    pPreStmt->nPar
9510: 6d 20 3d 20 69 50 61 72 6d 3b 0a 20 20 2a 70 70  m = iParm;.  *pp
9520: 50 72 65 53 74 6d 74 20 3d 20 70 50 72 65 53 74  PreStmt = pPreSt
9530: 6d 74 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 43  mt;..  return TC
9540: 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20  L_OK;.}.../*.** 
9550: 52 65 6c 65 61 73 65 20 61 20 73 74 61 74 65 6d  Release a statem
9560: 65 6e 74 20 72 65 66 65 72 65 6e 63 65 20 6f 62  ent reference ob
9570: 74 61 69 6e 65 64 20 62 79 20 63 61 6c 6c 69 6e  tained by callin
9580: 67 20 64 62 50 72 65 70 61 72 65 41 6e 64 42 69  g dbPrepareAndBi
9590: 6e 64 28 29 2e 0a 2a 2a 20 54 68 65 72 65 20 73  nd()..** There s
95a0: 68 6f 75 6c 64 20 62 65 20 65 78 61 63 74 6c 79  hould be exactly
95b0: 20 6f 6e 65 20 63 61 6c 6c 20 74 6f 20 74 68 69   one call to thi
95c0: 73 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 65  s function for e
95d0: 61 63 68 20 63 61 6c 6c 20 74 6f 0a 2a 2a 20 64  ach call to.** d
95e0: 62 50 72 65 70 61 72 65 41 6e 64 42 69 6e 64 28  bPrepareAndBind(
95f0: 29 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20  )..**.** If the 
9600: 64 69 73 63 61 72 64 20 70 61 72 61 6d 65 74 65  discard paramete
9610: 72 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f 2c 20 74  r is non-zero, t
9620: 68 65 6e 20 74 68 65 20 73 74 61 74 65 6d 65 6e  hen the statemen
9630: 74 20 69 73 20 64 65 6c 65 74 65 64 0a 2a 2a 20  t is deleted.** 
9640: 69 6d 6d 65 64 69 61 74 65 6c 79 2e 20 4f 74 68  immediately. Oth
9650: 65 72 77 69 73 65 20 69 74 20 69 73 20 61 64 64  erwise it is add
9660: 65 64 20 74 6f 20 74 68 65 20 4c 52 55 20 6c 69  ed to the LRU li
9670: 73 74 20 61 6e 64 20 6d 61 79 20 62 65 20 72 65  st and may be re
9680: 74 75 72 6e 65 64 0a 2a 2a 20 62 79 20 61 20 73  turned.** by a s
9690: 75 62 73 65 71 75 65 6e 74 20 63 61 6c 6c 20 74  ubsequent call t
96a0: 6f 20 64 62 50 72 65 70 61 72 65 41 6e 64 42 69  o dbPrepareAndBi
96b0: 6e 64 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  nd()..*/.static 
96c0: 76 6f 69 64 20 64 62 52 65 6c 65 61 73 65 53 74  void dbReleaseSt
96d0: 6d 74 28 0a 20 20 53 71 6c 69 74 65 44 62 20 2a  mt(.  SqliteDb *
96e0: 70 44 62 2c 20 20 20 20 20 20 20 20 20 20 20 20  pDb,            
96f0: 20 20 20 20 20 20 2f 2a 20 44 61 74 61 62 61 73        /* Databas
9700: 65 20 68 61 6e 64 6c 65 20 2a 2f 0a 20 20 53 71  e handle */.  Sq
9710: 6c 50 72 65 70 61 72 65 64 53 74 6d 74 20 2a 70  lPreparedStmt *p
9720: 50 72 65 53 74 6d 74 2c 20 20 20 20 20 20 2f 2a  PreStmt,      /*
9730: 20 50 72 65 70 61 72 65 64 20 73 74 61 74 65 6d   Prepared statem
9740: 65 6e 74 20 68 61 6e 64 6c 65 20 74 6f 20 72 65  ent handle to re
9750: 6c 65 61 73 65 20 2a 2f 0a 20 20 69 6e 74 20 64  lease */.  int d
9760: 69 73 63 61 72 64 20 20 20 20 20 20 20 20 20 20  iscard          
9770: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72             /* Tr
9780: 75 65 20 74 6f 20 64 65 6c 65 74 65 20 28 6e 6f  ue to delete (no
9790: 74 20 63 61 63 68 65 29 20 74 68 65 20 70 50 72  t cache) the pPr
97a0: 65 53 74 6d 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e  eStmt */.){.  in
97b0: 74 20 69 3b 0a 0a 20 20 2f 2a 20 46 72 65 65 20  t i;..  /* Free 
97c0: 74 68 65 20 62 6f 75 6e 64 20 73 74 72 69 6e 67  the bound string
97d0: 20 61 6e 64 20 62 6c 6f 62 20 70 61 72 61 6d 65   and blob parame
97e0: 74 65 72 73 20 2a 2f 0a 20 20 66 6f 72 28 69 3d  ters */.  for(i=
97f0: 30 3b 20 69 3c 70 50 72 65 53 74 6d 74 2d 3e 6e  0; i<pPreStmt->n
9800: 50 61 72 6d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  Parm; i++){.    
9810: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74  Tcl_DecrRefCount
9820: 28 70 50 72 65 53 74 6d 74 2d 3e 61 70 50 61 72  (pPreStmt->apPar
9830: 6d 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 70 50 72  m[i]);.  }.  pPr
9840: 65 53 74 6d 74 2d 3e 6e 50 61 72 6d 20 3d 20 30  eStmt->nParm = 0
9850: 3b 0a 0a 20 20 69 66 28 20 70 44 62 2d 3e 6d 61  ;..  if( pDb->ma
9860: 78 53 74 6d 74 3c 3d 30 20 7c 7c 20 64 69 73 63  xStmt<=0 || disc
9870: 61 72 64 20 29 7b 0a 20 20 20 20 2f 2a 20 49 66  ard ){.    /* If
9880: 20 74 68 65 20 63 61 63 68 65 20 69 73 20 74 75   the cache is tu
9890: 72 6e 65 64 20 6f 66 66 2c 20 64 65 61 6c 6c 6f  rned off, deallo
98a0: 63 61 74 65 64 20 74 68 65 20 73 74 61 74 65 6d  cated the statem
98b0: 65 6e 74 20 2a 2f 0a 20 20 20 20 73 71 6c 69 74  ent */.    sqlit
98c0: 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70 50 72 65  e3_finalize(pPre
98d0: 53 74 6d 74 2d 3e 70 53 74 6d 74 29 3b 0a 20 20  Stmt->pStmt);.  
98e0: 20 20 54 63 6c 5f 46 72 65 65 28 28 63 68 61 72    Tcl_Free((char
98f0: 20 2a 29 70 50 72 65 53 74 6d 74 29 3b 0a 20 20   *)pPreStmt);.  
9900: 7d 65 6c 73 65 7b 0a 20 20 20 20 2f 2a 20 41 64  }else{.    /* Ad
9910: 64 20 74 68 65 20 70 72 65 70 61 72 65 64 20 73  d the prepared s
9920: 74 61 74 65 6d 65 6e 74 20 74 6f 20 74 68 65 20  tatement to the 
9930: 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65  beginning of the
9940: 20 63 61 63 68 65 20 6c 69 73 74 2e 20 2a 2f 0a   cache list. */.
9950: 20 20 20 20 70 50 72 65 53 74 6d 74 2d 3e 70 4e      pPreStmt->pN
9960: 65 78 74 20 3d 20 70 44 62 2d 3e 73 74 6d 74 4c  ext = pDb->stmtL
9970: 69 73 74 3b 0a 20 20 20 20 70 50 72 65 53 74 6d  ist;.    pPreStm
9980: 74 2d 3e 70 50 72 65 76 20 3d 20 30 3b 0a 20 20  t->pPrev = 0;.  
9990: 20 20 69 66 28 20 70 44 62 2d 3e 73 74 6d 74 4c    if( pDb->stmtL
99a0: 69 73 74 20 29 7b 0a 20 20 20 20 20 70 44 62 2d  ist ){.     pDb-
99b0: 3e 73 74 6d 74 4c 69 73 74 2d 3e 70 50 72 65 76  >stmtList->pPrev
99c0: 20 3d 20 70 50 72 65 53 74 6d 74 3b 0a 20 20 20   = pPreStmt;.   
99d0: 20 7d 0a 20 20 20 20 70 44 62 2d 3e 73 74 6d 74   }.    pDb->stmt
99e0: 4c 69 73 74 20 3d 20 70 50 72 65 53 74 6d 74 3b  List = pPreStmt;
99f0: 0a 20 20 20 20 69 66 28 20 70 44 62 2d 3e 73 74  .    if( pDb->st
9a00: 6d 74 4c 61 73 74 3d 3d 30 20 29 7b 0a 20 20 20  mtLast==0 ){.   
9a10: 20 20 20 61 73 73 65 72 74 28 20 70 44 62 2d 3e     assert( pDb->
9a20: 6e 53 74 6d 74 3d 3d 30 20 29 3b 0a 20 20 20 20  nStmt==0 );.    
9a30: 20 20 70 44 62 2d 3e 73 74 6d 74 4c 61 73 74 20    pDb->stmtLast 
9a40: 3d 20 70 50 72 65 53 74 6d 74 3b 0a 20 20 20 20  = pPreStmt;.    
9a50: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 61 73 73  }else{.      ass
9a60: 65 72 74 28 20 70 44 62 2d 3e 6e 53 74 6d 74 3e  ert( pDb->nStmt>
9a70: 30 20 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70  0 );.    }.    p
9a80: 44 62 2d 3e 6e 53 74 6d 74 2b 2b 3b 0a 20 20 20  Db->nStmt++;.   
9a90: 0a 20 20 20 20 2f 2a 20 49 66 20 77 65 20 68 61  .    /* If we ha
9aa0: 76 65 20 74 6f 6f 20 6d 61 6e 79 20 73 74 61 74  ve too many stat
9ab0: 65 6d 65 6e 74 20 69 6e 20 63 61 63 68 65 2c 20  ement in cache, 
9ac0: 72 65 6d 6f 76 65 20 74 68 65 20 73 75 72 70 6c  remove the surpl
9ad0: 75 73 20 66 72 6f 6d 20 0a 20 20 20 20 2a 2a 20  us from .    ** 
9ae0: 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 63  the end of the c
9af0: 61 63 68 65 20 6c 69 73 74 2e 20 20 2a 2f 0a 20  ache list.  */. 
9b00: 20 20 20 77 68 69 6c 65 28 20 70 44 62 2d 3e 6e     while( pDb->n
9b10: 53 74 6d 74 3e 70 44 62 2d 3e 6d 61 78 53 74 6d  Stmt>pDb->maxStm
9b20: 74 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  t ){.      sqlit
9b30: 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70 44 62 2d  e3_finalize(pDb-
9b40: 3e 73 74 6d 74 4c 61 73 74 2d 3e 70 53 74 6d 74  >stmtLast->pStmt
9b50: 29 3b 0a 20 20 20 20 20 20 70 44 62 2d 3e 73 74  );.      pDb->st
9b60: 6d 74 4c 61 73 74 20 3d 20 70 44 62 2d 3e 73 74  mtLast = pDb->st
9b70: 6d 74 4c 61 73 74 2d 3e 70 50 72 65 76 3b 0a 20  mtLast->pPrev;. 
9b80: 20 20 20 20 20 54 63 6c 5f 46 72 65 65 28 28 63       Tcl_Free((c
9b90: 68 61 72 2a 29 70 44 62 2d 3e 73 74 6d 74 4c 61  har*)pDb->stmtLa
9ba0: 73 74 2d 3e 70 4e 65 78 74 29 3b 0a 20 20 20 20  st->pNext);.    
9bb0: 20 20 70 44 62 2d 3e 73 74 6d 74 4c 61 73 74 2d    pDb->stmtLast-
9bc0: 3e 70 4e 65 78 74 20 3d 20 30 3b 0a 20 20 20 20  >pNext = 0;.    
9bd0: 20 20 70 44 62 2d 3e 6e 53 74 6d 74 2d 2d 3b 0a    pDb->nStmt--;.
9be0: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a      }.  }.}../*.
9bf0: 2a 2a 20 53 74 72 75 63 74 75 72 65 20 75 73 65  ** Structure use
9c00: 64 20 77 69 74 68 20 64 62 45 76 61 6c 58 58 58  d with dbEvalXXX
9c10: 28 29 20 66 75 6e 63 74 69 6f 6e 73 3a 0a 2a 2a  () functions:.**
9c20: 0a 2a 2a 20 20 20 64 62 45 76 61 6c 49 6e 69 74  .**   dbEvalInit
9c30: 28 29 0a 2a 2a 20 20 20 64 62 45 76 61 6c 53 74  ().**   dbEvalSt
9c40: 65 70 28 29 0a 2a 2a 20 20 20 64 62 45 76 61 6c  ep().**   dbEval
9c50: 46 69 6e 61 6c 69 7a 65 28 29 0a 2a 2a 20 20 20  Finalize().**   
9c60: 64 62 45 76 61 6c 52 6f 77 49 6e 66 6f 28 29 0a  dbEvalRowInfo().
9c70: 2a 2a 20 20 20 64 62 45 76 61 6c 43 6f 6c 75 6d  **   dbEvalColum
9c80: 6e 56 61 6c 75 65 28 29 0a 2a 2f 0a 74 79 70 65  nValue().*/.type
9c90: 64 65 66 20 73 74 72 75 63 74 20 44 62 45 76 61  def struct DbEva
9ca0: 6c 43 6f 6e 74 65 78 74 20 44 62 45 76 61 6c 43  lContext DbEvalC
9cb0: 6f 6e 74 65 78 74 3b 0a 73 74 72 75 63 74 20 44  ontext;.struct D
9cc0: 62 45 76 61 6c 43 6f 6e 74 65 78 74 20 7b 0a 20  bEvalContext {. 
9cd0: 20 53 71 6c 69 74 65 44 62 20 2a 70 44 62 3b 20   SqliteDb *pDb; 
9ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9cf0: 20 2f 2a 20 44 61 74 61 62 61 73 65 20 68 61 6e   /* Database han
9d00: 64 6c 65 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a  dle */.  Tcl_Obj
9d10: 20 2a 70 53 71 6c 3b 20 20 20 20 20 20 20 20 20   *pSql;         
9d20: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 62 6a 65           /* Obje
9d30: 63 74 20 68 6f 6c 64 69 6e 67 20 73 74 72 69 6e  ct holding strin
9d40: 67 20 7a 53 71 6c 20 2a 2f 0a 20 20 63 6f 6e 73  g zSql */.  cons
9d50: 74 20 63 68 61 72 20 2a 7a 53 71 6c 3b 20 20 20  t char *zSql;   
9d60: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52              /* R
9d70: 65 6d 61 69 6e 69 6e 67 20 53 51 4c 20 74 6f 20  emaining SQL to 
9d80: 65 78 65 63 75 74 65 20 2a 2f 0a 20 20 53 71 6c  execute */.  Sql
9d90: 50 72 65 70 61 72 65 64 53 74 6d 74 20 2a 70 50  PreparedStmt *pP
9da0: 72 65 53 74 6d 74 3b 20 20 20 20 20 20 2f 2a 20  reStmt;      /* 
9db0: 43 75 72 72 65 6e 74 20 73 74 61 74 65 6d 65 6e  Current statemen
9dc0: 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 43 6f 6c 3b  t */.  int nCol;
9dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9de0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
9df0: 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 72 65 74 75   of columns retu
9e00: 72 6e 65 64 20 62 79 20 70 53 74 6d 74 20 2a 2f  rned by pStmt */
9e10: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 41 72 72  .  Tcl_Obj *pArr
9e20: 61 79 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  ay;             
9e30: 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 61 72     /* Name of ar
9e40: 72 61 79 20 76 61 72 69 61 62 6c 65 20 2a 2f 0a  ray variable */.
9e50: 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61 70 43 6f    Tcl_Obj **apCo
9e60: 6c 4e 61 6d 65 3b 20 20 20 20 20 20 20 20 20 20  lName;          
9e70: 20 20 2f 2a 20 41 72 72 61 79 20 6f 66 20 63 6f    /* Array of co
9e80: 6c 75 6d 6e 20 6e 61 6d 65 73 20 2a 2f 0a 7d 3b  lumn names */.};
9e90: 0a 0a 2f 2a 0a 2a 2a 20 52 65 6c 65 61 73 65 20  ../*.** Release 
9ea0: 61 6e 79 20 63 61 63 68 65 20 6f 66 20 63 6f 6c  any cache of col
9eb0: 75 6d 6e 20 6e 61 6d 65 73 20 63 75 72 72 65 6e  umn names curren
9ec0: 74 6c 79 20 68 65 6c 64 20 61 73 20 70 61 72 74  tly held as part
9ed0: 20 6f 66 0a 2a 2a 20 74 68 65 20 44 62 45 76 61   of.** the DbEva
9ee0: 6c 43 6f 6e 74 65 78 74 20 73 74 72 75 63 74 75  lContext structu
9ef0: 72 65 20 70 61 73 73 65 64 20 61 73 20 74 68 65  re passed as the
9f00: 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 2e   first argument.
9f10: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
9f20: 64 62 52 65 6c 65 61 73 65 43 6f 6c 75 6d 6e 4e  dbReleaseColumnN
9f30: 61 6d 65 73 28 44 62 45 76 61 6c 43 6f 6e 74 65  ames(DbEvalConte
9f40: 78 74 20 2a 70 29 7b 0a 20 20 69 66 28 20 70 2d  xt *p){.  if( p-
9f50: 3e 61 70 43 6f 6c 4e 61 6d 65 20 29 7b 0a 20 20  >apColName ){.  
9f60: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 66 6f 72    int i;.    for
9f70: 28 69 3d 30 3b 20 69 3c 70 2d 3e 6e 43 6f 6c 3b  (i=0; i<p->nCol;
9f80: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 54 63 6c   i++){.      Tcl
9f90: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 2d  _DecrRefCount(p-
9fa0: 3e 61 70 43 6f 6c 4e 61 6d 65 5b 69 5d 29 3b 0a  >apColName[i]);.
9fb0: 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 46 72      }.    Tcl_Fr
9fc0: 65 65 28 28 63 68 61 72 20 2a 29 70 2d 3e 61 70  ee((char *)p->ap
9fd0: 43 6f 6c 4e 61 6d 65 29 3b 0a 20 20 20 20 70 2d  ColName);.    p-
9fe0: 3e 61 70 43 6f 6c 4e 61 6d 65 20 3d 20 30 3b 0a  >apColName = 0;.
9ff0: 20 20 7d 0a 20 20 70 2d 3e 6e 43 6f 6c 20 3d 20    }.  p->nCol = 
a000: 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e 69 74  0;.}../*.** Init
a010: 69 61 6c 69 7a 65 20 61 20 44 62 45 76 61 6c 43  ialize a DbEvalC
a020: 6f 6e 74 65 78 74 20 73 74 72 75 63 74 75 72 65  ontext structure
a030: 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 70 41 72 72 61  ..**.** If pArra
a040: 79 20 69 73 20 6e 6f 74 20 4e 55 4c 4c 2c 20 74  y is not NULL, t
a050: 68 65 6e 20 69 74 20 63 6f 6e 74 61 69 6e 73 20  hen it contains 
a060: 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 54 63  the name of a Tc
a070: 6c 20 61 72 72 61 79 0a 2a 2a 20 76 61 72 69 61  l array.** varia
a080: 62 6c 65 2e 20 54 68 65 20 22 2a 22 20 6d 65 6d  ble. The "*" mem
a090: 62 65 72 20 6f 66 20 74 68 69 73 20 61 72 72 61  ber of this arra
a0a0: 79 20 69 73 20 73 65 74 20 74 6f 20 61 20 6c 69  y is set to a li
a0b0: 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 0a 2a 2a  st containing.**
a0c0: 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 74 68   the names of th
a0d0: 65 20 63 6f 6c 75 6d 6e 73 20 72 65 74 75 72 6e  e columns return
a0e0: 65 64 20 62 79 20 74 68 65 20 73 74 61 74 65 6d  ed by the statem
a0f0: 65 6e 74 20 61 73 20 70 61 72 74 20 6f 66 20 65  ent as part of e
a100: 61 63 68 0a 2a 2a 20 63 61 6c 6c 20 74 6f 20 64  ach.** call to d
a110: 62 45 76 61 6c 53 74 65 70 28 29 2c 20 69 6e 20  bEvalStep(), in 
a120: 6f 72 64 65 72 20 66 72 6f 6d 20 6c 65 66 74 20  order from left 
a130: 74 6f 20 72 69 67 68 74 2e 20 65 2e 67 2e 20 69  to right. e.g. i
a140: 66 20 74 68 65 20 6e 61 6d 65 73 20 0a 2a 2a 20  f the names .** 
a150: 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 20  of the returned 
a160: 63 6f 6c 75 6d 6e 73 20 61 72 65 20 61 2c 20 62  columns are a, b
a170: 20 61 6e 64 20 63 2c 20 69 74 20 64 6f 65 73 20   and c, it does 
a180: 74 68 65 20 65 71 75 69 76 61 6c 65 6e 74 20 6f  the equivalent o
a190: 66 20 74 68 65 20 0a 2a 2a 20 74 63 6c 20 63 6f  f the .** tcl co
a1a0: 6d 6d 61 6e 64 3a 0a 2a 2a 0a 2a 2a 20 20 20 20  mmand:.**.**    
a1b0: 20 73 65 74 20 24 7b 70 41 72 72 61 79 7d 28 2a   set ${pArray}(*
a1c0: 29 20 7b 61 20 62 20 63 7d 0a 2a 2f 0a 73 74 61  ) {a b c}.*/.sta
a1d0: 74 69 63 20 76 6f 69 64 20 64 62 45 76 61 6c 49  tic void dbEvalI
a1e0: 6e 69 74 28 0a 20 20 44 62 45 76 61 6c 43 6f 6e  nit(.  DbEvalCon
a1f0: 74 65 78 74 20 2a 70 2c 20 20 20 20 20 20 20 20  text *p,        
a200: 20 20 20 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65         /* Pointe
a210: 72 20 74 6f 20 73 74 72 75 63 74 75 72 65 20 74  r to structure t
a220: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 2a 2f 0a  o initialize */.
a230: 20 20 53 71 6c 69 74 65 44 62 20 2a 70 44 62 2c    SqliteDb *pDb,
a240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a250: 20 20 2f 2a 20 44 61 74 61 62 61 73 65 20 68 61    /* Database ha
a260: 6e 64 6c 65 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62  ndle */.  Tcl_Ob
a270: 6a 20 2a 70 53 71 6c 2c 20 20 20 20 20 20 20 20  j *pSql,        
a280: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 62 6a            /* Obj
a290: 65 63 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 53  ect containing S
a2a0: 51 4c 20 73 63 72 69 70 74 20 2a 2f 0a 20 20 54  QL script */.  T
a2b0: 63 6c 5f 4f 62 6a 20 2a 70 41 72 72 61 79 20 20  cl_Obj *pArray  
a2c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
a2d0: 2a 20 4e 61 6d 65 20 6f 66 20 54 63 6c 20 61 72  * Name of Tcl ar
a2e0: 72 61 79 20 74 6f 20 73 65 74 20 28 2a 29 20 65  ray to set (*) e
a2f0: 6c 65 6d 65 6e 74 20 6f 66 20 2a 2f 0a 29 7b 0a  lement of */.){.
a300: 20 20 6d 65 6d 73 65 74 28 70 2c 20 30 2c 20 73    memset(p, 0, s
a310: 69 7a 65 6f 66 28 44 62 45 76 61 6c 43 6f 6e 74  izeof(DbEvalCont
a320: 65 78 74 29 29 3b 0a 20 20 70 2d 3e 70 44 62 20  ext));.  p->pDb 
a330: 3d 20 70 44 62 3b 0a 20 20 70 2d 3e 7a 53 71 6c  = pDb;.  p->zSql
a340: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
a350: 28 70 53 71 6c 29 3b 0a 20 20 70 2d 3e 70 53 71  (pSql);.  p->pSq
a360: 6c 20 3d 20 70 53 71 6c 3b 0a 20 20 54 63 6c 5f  l = pSql;.  Tcl_
a370: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 53 71  IncrRefCount(pSq
a380: 6c 29 3b 0a 20 20 69 66 28 20 70 41 72 72 61 79  l);.  if( pArray
a390: 20 29 7b 0a 20 20 20 20 70 2d 3e 70 41 72 72 61   ){.    p->pArra
a3a0: 79 20 3d 20 70 41 72 72 61 79 3b 0a 20 20 20 20  y = pArray;.    
a3b0: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
a3c0: 28 70 41 72 72 61 79 29 3b 0a 20 20 7d 0a 7d 0a  (pArray);.  }.}.
a3d0: 0a 2f 2a 0a 2a 2a 20 4f 62 74 61 69 6e 20 69 6e  ./*.** Obtain in
a3e0: 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20  formation about 
a3f0: 74 68 65 20 72 6f 77 20 74 68 61 74 20 74 68 65  the row that the
a400: 20 44 62 45 76 61 6c 43 6f 6e 74 65 78 74 20 70   DbEvalContext p
a410: 61 73 73 65 64 20 61 73 20 74 68 65 0a 2a 2a 20  assed as the.** 
a420: 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 63  first argument c
a430: 75 72 72 65 6e 74 6c 79 20 70 6f 69 6e 74 73 20  urrently points 
a440: 74 6f 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  to..*/.static vo
a450: 69 64 20 64 62 45 76 61 6c 52 6f 77 49 6e 66 6f  id dbEvalRowInfo
a460: 28 0a 20 20 44 62 45 76 61 6c 43 6f 6e 74 65 78  (.  DbEvalContex
a470: 74 20 2a 70 2c 20 20 20 20 20 20 20 20 20 20 20  t *p,           
a480: 20 20 20 20 2f 2a 20 45 76 61 6c 75 61 74 69 6f      /* Evaluatio
a490: 6e 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 69  n context */.  i
a4a0: 6e 74 20 2a 70 6e 43 6f 6c 2c 20 20 20 20 20 20  nt *pnCol,      
a4b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
a4c0: 2a 20 4f 55 54 3a 20 4e 75 6d 62 65 72 20 6f 66  * OUT: Number of
a4d0: 20 63 6f 6c 75 6d 6e 20 6e 61 6d 65 73 20 2a 2f   column names */
a4e0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 2a 70 61  .  Tcl_Obj ***pa
a4f0: 70 43 6f 6c 4e 61 6d 65 20 20 20 20 20 20 20 20  pColName        
a500: 20 20 20 2f 2a 20 4f 55 54 3a 20 41 72 72 61 79     /* OUT: Array
a510: 20 6f 66 20 63 6f 6c 75 6d 6e 20 6e 61 6d 65 73   of column names
a520: 20 2a 2f 0a 29 7b 0a 20 20 2f 2a 20 43 6f 6d 70   */.){.  /* Comp
a530: 75 74 65 20 63 6f 6c 75 6d 6e 20 6e 61 6d 65 73  ute column names
a540: 20 2a 2f 0a 20 20 69 66 28 20 30 3d 3d 70 2d 3e   */.  if( 0==p->
a550: 61 70 43 6f 6c 4e 61 6d 65 20 29 7b 0a 20 20 20  apColName ){.   
a560: 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70   sqlite3_stmt *p
a570: 53 74 6d 74 20 3d 20 70 2d 3e 70 50 72 65 53 74  Stmt = p->pPreSt
a580: 6d 74 2d 3e 70 53 74 6d 74 3b 0a 20 20 20 20 69  mt->pStmt;.    i
a590: 6e 74 20 69 3b 20 20 20 20 20 20 20 20 20 20 20  nt i;           
a5a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
a5b0: 49 74 65 72 61 74 6f 72 20 76 61 72 69 61 62 6c  Iterator variabl
a5c0: 65 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6e 43 6f  e */.    int nCo
a5d0: 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  l;              
a5e0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
a5f0: 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 72 65 74 75   of columns retu
a600: 72 6e 65 64 20 62 79 20 70 53 74 6d 74 20 2a 2f  rned by pStmt */
a610: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61  .    Tcl_Obj **a
a620: 70 43 6f 6c 4e 61 6d 65 20 3d 20 30 3b 20 20 20  pColName = 0;   
a630: 20 20 20 2f 2a 20 41 72 72 61 79 20 6f 66 20 63     /* Array of c
a640: 6f 6c 75 6d 6e 20 6e 61 6d 65 73 20 2a 2f 0a 0a  olumn names */..
a650: 20 20 20 20 70 2d 3e 6e 43 6f 6c 20 3d 20 6e 43      p->nCol = nC
a660: 6f 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c  ol = sqlite3_col
a670: 75 6d 6e 5f 63 6f 75 6e 74 28 70 53 74 6d 74 29  umn_count(pStmt)
a680: 3b 0a 20 20 20 20 69 66 28 20 6e 43 6f 6c 3e 30  ;.    if( nCol>0
a690: 20 26 26 20 28 70 61 70 43 6f 6c 4e 61 6d 65 20   && (papColName 
a6a0: 7c 7c 20 70 2d 3e 70 41 72 72 61 79 29 20 29 7b  || p->pArray) ){
a6b0: 0a 20 20 20 20 20 20 61 70 43 6f 6c 4e 61 6d 65  .      apColName
a6c0: 20 3d 20 28 54 63 6c 5f 4f 62 6a 2a 2a 29 54 63   = (Tcl_Obj**)Tc
a6d0: 6c 5f 41 6c 6c 6f 63 28 20 73 69 7a 65 6f 66 28  l_Alloc( sizeof(
a6e0: 54 63 6c 5f 4f 62 6a 2a 29 2a 6e 43 6f 6c 20 29  Tcl_Obj*)*nCol )
a6f0: 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b  ;.      for(i=0;
a700: 20 69 3c 6e 43 6f 6c 3b 20 69 2b 2b 29 7b 0a 20   i<nCol; i++){. 
a710: 20 20 20 20 20 20 20 61 70 43 6f 6c 4e 61 6d 65         apColName
a720: 5b 69 5d 20 3d 20 64 62 54 65 78 74 54 6f 4f 62  [i] = dbTextToOb
a730: 6a 28 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e  j(sqlite3_column
a740: 5f 6e 61 6d 65 28 70 53 74 6d 74 2c 69 29 29 3b  _name(pStmt,i));
a750: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 49 6e 63  .        Tcl_Inc
a760: 72 52 65 66 43 6f 75 6e 74 28 61 70 43 6f 6c 4e  rRefCount(apColN
a770: 61 6d 65 5b 69 5d 29 3b 0a 20 20 20 20 20 20 7d  ame[i]);.      }
a780: 0a 20 20 20 20 20 20 70 2d 3e 61 70 43 6f 6c 4e  .      p->apColN
a790: 61 6d 65 20 3d 20 61 70 43 6f 6c 4e 61 6d 65 3b  ame = apColName;
a7a0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49  .    }..    /* I
a7b0: 66 20 72 65 73 75 6c 74 73 20 61 72 65 20 62 65  f results are be
a7c0: 69 6e 67 20 73 74 6f 72 65 64 20 69 6e 20 61 6e  ing stored in an
a7d0: 20 61 72 72 61 79 20 76 61 72 69 61 62 6c 65 2c   array variable,
a7e0: 20 74 68 65 6e 20 63 72 65 61 74 65 0a 20 20 20   then create.   
a7f0: 20 2a 2a 20 74 68 65 20 61 72 72 61 79 28 2a 29   ** the array(*)
a800: 20 65 6e 74 72 79 20 66 6f 72 20 74 68 61 74 20   entry for that 
a810: 61 72 72 61 79 0a 20 20 20 20 2a 2f 0a 20 20 20  array.    */.   
a820: 20 69 66 28 20 70 2d 3e 70 41 72 72 61 79 20 29   if( p->pArray )
a830: 7b 0a 20 20 20 20 20 20 54 63 6c 5f 49 6e 74 65  {.      Tcl_Inte
a840: 72 70 20 2a 69 6e 74 65 72 70 20 3d 20 70 2d 3e  rp *interp = p->
a850: 70 44 62 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 20  pDb->interp;.   
a860: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 43 6f 6c     Tcl_Obj *pCol
a870: 4c 69 73 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62  List = Tcl_NewOb
a880: 6a 28 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f 4f  j();.      Tcl_O
a890: 62 6a 20 2a 70 53 74 61 72 20 3d 20 54 63 6c 5f  bj *pStar = Tcl_
a8a0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 2a 22  NewStringObj("*"
a8b0: 2c 20 2d 31 29 3b 0a 0a 20 20 20 20 20 20 66 6f  , -1);..      fo
a8c0: 72 28 69 3d 30 3b 20 69 3c 6e 43 6f 6c 3b 20 69  r(i=0; i<nCol; i
a8d0: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c  ++){.        Tcl
a8e0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
a8f0: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 43  ement(interp, pC
a900: 6f 6c 4c 69 73 74 2c 20 61 70 43 6f 6c 4e 61 6d  olList, apColNam
a910: 65 5b 69 5d 29 3b 0a 20 20 20 20 20 20 7d 0a 20  e[i]);.      }. 
a920: 20 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66       Tcl_IncrRef
a930: 43 6f 75 6e 74 28 70 53 74 61 72 29 3b 0a 20 20  Count(pStar);.  
a940: 20 20 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61      Tcl_ObjSetVa
a950: 72 32 28 69 6e 74 65 72 70 2c 20 70 2d 3e 70 41  r2(interp, p->pA
a960: 72 72 61 79 2c 20 70 53 74 61 72 2c 20 70 43 6f  rray, pStar, pCo
a970: 6c 4c 69 73 74 2c 20 30 29 3b 0a 20 20 20 20 20  lList, 0);.     
a980: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e   Tcl_DecrRefCoun
a990: 74 28 70 53 74 61 72 29 3b 0a 20 20 20 20 7d 0a  t(pStar);.    }.
a9a0: 20 20 7d 0a 0a 20 20 69 66 28 20 70 61 70 43 6f    }..  if( papCo
a9b0: 6c 4e 61 6d 65 20 29 7b 0a 20 20 20 20 2a 70 61  lName ){.    *pa
a9c0: 70 43 6f 6c 4e 61 6d 65 20 3d 20 70 2d 3e 61 70  pColName = p->ap
a9d0: 43 6f 6c 4e 61 6d 65 3b 0a 20 20 7d 0a 20 20 69  ColName;.  }.  i
a9e0: 66 28 20 70 6e 43 6f 6c 20 29 7b 0a 20 20 20 20  f( pnCol ){.    
a9f0: 2a 70 6e 43 6f 6c 20 3d 20 70 2d 3e 6e 43 6f 6c  *pnCol = p->nCol
aa00: 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52  ;.  }.}../*.** R
aa10: 65 74 75 72 6e 20 6f 6e 65 20 6f 66 20 54 43 4c  eturn one of TCL
aa20: 5f 4f 4b 2c 20 54 43 4c 5f 42 52 45 41 4b 20 6f  _OK, TCL_BREAK o
aa30: 72 20 54 43 4c 5f 45 52 52 4f 52 2e 20 49 66 20  r TCL_ERROR. If 
aa40: 54 43 4c 5f 45 52 52 4f 52 20 69 73 0a 2a 2a 20  TCL_ERROR is.** 
aa50: 72 65 74 75 72 6e 65 64 2c 20 74 68 65 6e 20 61  returned, then a
aa60: 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20  n error message 
aa70: 69 73 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65  is stored in the
aa80: 20 69 6e 74 65 72 70 72 65 74 65 72 20 62 65 66   interpreter bef
aa90: 6f 72 65 0a 2a 2a 20 72 65 74 75 72 6e 69 6e 67  ore.** returning
aaa0: 2e 0a 2a 2a 0a 2a 2a 20 41 20 72 65 74 75 72 6e  ..**.** A return
aab0: 20 76 61 6c 75 65 20 6f 66 20 54 43 4c 5f 4f 4b   value of TCL_OK
aac0: 20 6d 65 61 6e 73 20 74 68 65 72 65 20 69 73 20   means there is 
aad0: 61 20 72 6f 77 20 6f 66 20 64 61 74 61 20 61 76  a row of data av
aae0: 61 69 6c 61 62 6c 65 2e 20 54 68 65 0a 2a 2a 20  ailable. The.** 
aaf0: 64 61 74 61 20 6d 61 79 20 62 65 20 61 63 63 65  data may be acce
ab00: 73 73 65 64 20 75 73 69 6e 67 20 64 62 45 76 61  ssed using dbEva
ab10: 6c 52 6f 77 49 6e 66 6f 28 29 20 61 6e 64 20 64  lRowInfo() and d
ab20: 62 45 76 61 6c 43 6f 6c 75 6d 6e 56 61 6c 75 65  bEvalColumnValue
ab30: 28 29 2e 20 54 68 69 73 0a 2a 2a 20 69 73 20 61  (). This.** is a
ab40: 6e 61 6c 6f 67 6f 75 73 20 74 6f 20 61 20 72 65  nalogous to a re
ab50: 74 75 72 6e 20 6f 66 20 53 51 4c 49 54 45 5f 52  turn of SQLITE_R
ab60: 4f 57 20 66 72 6f 6d 20 73 71 6c 69 74 65 33 5f  OW from sqlite3_
ab70: 73 74 65 70 28 29 2e 20 49 66 20 54 43 4c 5f 42  step(). If TCL_B
ab80: 52 45 41 4b 0a 2a 2a 20 69 73 20 72 65 74 75 72  REAK.** is retur
ab90: 6e 65 64 2c 20 74 68 65 6e 20 74 68 65 20 53 51  ned, then the SQ
aba0: 4c 20 73 63 72 69 70 74 20 68 61 73 20 66 69 6e  L script has fin
abb0: 69 73 68 65 64 20 65 78 65 63 75 74 69 6e 67 20  ished executing 
abc0: 61 6e 64 20 74 68 65 72 65 20 61 72 65 0a 2a 2a  and there are.**
abd0: 20 6e 6f 20 66 75 72 74 68 65 72 20 72 6f 77 73   no further rows
abe0: 20 61 76 61 69 6c 61 62 6c 65 2e 20 54 68 69 73   available. This
abf0: 20 69 73 20 73 69 6d 69 6c 61 72 20 74 6f 20 53   is similar to S
ac00: 51 4c 49 54 45 5f 44 4f 4e 45 2e 0a 2a 2f 0a 73  QLITE_DONE..*/.s
ac10: 74 61 74 69 63 20 69 6e 74 20 64 62 45 76 61 6c  tatic int dbEval
ac20: 53 74 65 70 28 44 62 45 76 61 6c 43 6f 6e 74 65  Step(DbEvalConte
ac30: 78 74 20 2a 70 29 7b 0a 20 20 77 68 69 6c 65 28  xt *p){.  while(
ac40: 20 70 2d 3e 7a 53 71 6c 5b 30 5d 20 7c 7c 20 70   p->zSql[0] || p
ac50: 2d 3e 70 50 72 65 53 74 6d 74 20 29 7b 0a 20 20  ->pPreStmt ){.  
ac60: 20 20 69 6e 74 20 72 63 3b 0a 20 20 20 20 69 66    int rc;.    if
ac70: 28 20 70 2d 3e 70 50 72 65 53 74 6d 74 3d 3d 30  ( p->pPreStmt==0
ac80: 20 29 7b 0a 20 20 20 20 20 20 72 63 20 3d 20 64   ){.      rc = d
ac90: 62 50 72 65 70 61 72 65 41 6e 64 42 69 6e 64 28  bPrepareAndBind(
aca0: 70 2d 3e 70 44 62 2c 20 70 2d 3e 7a 53 71 6c 2c  p->pDb, p->zSql,
acb0: 20 26 70 2d 3e 7a 53 71 6c 2c 20 26 70 2d 3e 70   &p->zSql, &p->p
acc0: 50 72 65 53 74 6d 74 29 3b 0a 20 20 20 20 20 20  PreStmt);.      
acd0: 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20 29  if( rc!=TCL_OK )
ace0: 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20   return rc;.    
acf0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 69 6e 74  }else{.      int
ad00: 20 72 63 73 3b 0a 20 20 20 20 20 20 53 71 6c 69   rcs;.      Sqli
ad10: 74 65 44 62 20 2a 70 44 62 20 3d 20 70 2d 3e 70  teDb *pDb = p->p
ad20: 44 62 3b 0a 20 20 20 20 20 20 53 71 6c 50 72 65  Db;.      SqlPre
ad30: 70 61 72 65 64 53 74 6d 74 20 2a 70 50 72 65 53  paredStmt *pPreS
ad40: 74 6d 74 20 3d 20 70 2d 3e 70 50 72 65 53 74 6d  tmt = p->pPreStm
ad50: 74 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33  t;.      sqlite3
ad60: 5f 73 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 70  _stmt *pStmt = p
ad70: 50 72 65 53 74 6d 74 2d 3e 70 53 74 6d 74 3b 0a  PreStmt->pStmt;.
ad80: 0a 20 20 20 20 20 20 72 63 73 20 3d 20 73 71 6c  .      rcs = sql
ad90: 69 74 65 33 5f 73 74 65 70 28 70 53 74 6d 74 29  ite3_step(pStmt)
ada0: 3b 0a 20 20 20 20 20 20 69 66 28 20 72 63 73 3d  ;.      if( rcs=
adb0: 3d 53 51 4c 49 54 45 5f 52 4f 57 20 29 7b 0a 20  =SQLITE_ROW ){. 
adc0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43         return TC
add0: 4c 5f 4f 4b 3b 0a 20 20 20 20 20 20 7d 0a 20 20  L_OK;.      }.  
ade0: 20 20 20 20 69 66 28 20 70 2d 3e 70 41 72 72 61      if( p->pArra
adf0: 79 20 29 7b 0a 20 20 20 20 20 20 20 20 64 62 45  y ){.        dbE
ae00: 76 61 6c 52 6f 77 49 6e 66 6f 28 70 2c 20 30 2c  valRowInfo(p, 0,
ae10: 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20   0);.      }.   
ae20: 20 20 20 72 63 73 20 3d 20 73 71 6c 69 74 65 33     rcs = sqlite3
ae30: 5f 72 65 73 65 74 28 70 53 74 6d 74 29 3b 0a 0a  _reset(pStmt);..
ae40: 20 20 20 20 20 20 70 44 62 2d 3e 6e 53 74 65 70        pDb->nStep
ae50: 20 3d 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 5f   = sqlite3_stmt_
ae60: 73 74 61 74 75 73 28 70 53 74 6d 74 2c 53 51 4c  status(pStmt,SQL
ae70: 49 54 45 5f 53 54 4d 54 53 54 41 54 55 53 5f 46  ITE_STMTSTATUS_F
ae80: 55 4c 4c 53 43 41 4e 5f 53 54 45 50 2c 31 29 3b  ULLSCAN_STEP,1);
ae90: 0a 20 20 20 20 20 20 70 44 62 2d 3e 6e 53 6f 72  .      pDb->nSor
aea0: 74 20 3d 20 73 71 6c 69 74 65 33 5f 73 74 6d 74  t = sqlite3_stmt
aeb0: 5f 73 74 61 74 75 73 28 70 53 74 6d 74 2c 53 51  _status(pStmt,SQ
aec0: 4c 49 54 45 5f 53 54 4d 54 53 54 41 54 55 53 5f  LITE_STMTSTATUS_
aed0: 53 4f 52 54 2c 31 29 3b 0a 20 20 20 20 20 20 70  SORT,1);.      p
aee0: 44 62 2d 3e 6e 49 6e 64 65 78 20 3d 20 73 71 6c  Db->nIndex = sql
aef0: 69 74 65 33 5f 73 74 6d 74 5f 73 74 61 74 75 73  ite3_stmt_status
af00: 28 70 53 74 6d 74 2c 53 51 4c 49 54 45 5f 53 54  (pStmt,SQLITE_ST
af10: 4d 54 53 54 41 54 55 53 5f 41 55 54 4f 49 4e 44  MTSTATUS_AUTOIND
af20: 45 58 2c 31 29 3b 0a 20 20 20 20 20 20 64 62 52  EX,1);.      dbR
af30: 65 6c 65 61 73 65 43 6f 6c 75 6d 6e 4e 61 6d 65  eleaseColumnName
af40: 73 28 70 29 3b 0a 20 20 20 20 20 20 70 2d 3e 70  s(p);.      p->p
af50: 50 72 65 53 74 6d 74 20 3d 20 30 3b 0a 0a 20 20  PreStmt = 0;..  
af60: 20 20 20 20 69 66 28 20 72 63 73 21 3d 53 51 4c      if( rcs!=SQL
af70: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20  ITE_OK ){.      
af80: 20 20 2f 2a 20 49 66 20 61 20 72 75 6e 2d 74 69    /* If a run-ti
af90: 6d 65 20 65 72 72 6f 72 20 6f 63 63 75 72 73 2c  me error occurs,
afa0: 20 72 65 70 6f 72 74 20 74 68 65 20 65 72 72 6f   report the erro
afb0: 72 20 61 6e 64 20 73 74 6f 70 20 72 65 61 64 69  r and stop readi
afc0: 6e 67 0a 20 20 20 20 20 20 20 20 2a 2a 20 74 68  ng.        ** th
afd0: 65 20 53 51 4c 2e 20 20 2a 2f 0a 20 20 20 20 20  e SQL.  */.     
afe0: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
aff0: 75 6c 74 28 70 44 62 2d 3e 69 6e 74 65 72 70 2c  ult(pDb->interp,
b000: 20 64 62 54 65 78 74 54 6f 4f 62 6a 28 73 71 6c   dbTextToObj(sql
b010: 69 74 65 33 5f 65 72 72 6d 73 67 28 70 44 62 2d  ite3_errmsg(pDb-
b020: 3e 64 62 29 29 29 3b 0a 20 20 20 20 20 20 20 20  >db)));.        
b030: 64 62 52 65 6c 65 61 73 65 53 74 6d 74 28 70 44  dbReleaseStmt(pD
b040: 62 2c 20 70 50 72 65 53 74 6d 74 2c 20 31 29 3b  b, pPreStmt, 1);
b050: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
b060: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
b070: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
b080: 64 62 52 65 6c 65 61 73 65 53 74 6d 74 28 70 44  dbReleaseStmt(pD
b090: 62 2c 20 70 50 72 65 53 74 6d 74 2c 20 30 29 3b  b, pPreStmt, 0);
b0a0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20  .      }.    }. 
b0b0: 20 7d 0a 0a 20 20 2f 2a 20 46 69 6e 69 73 68 65   }..  /* Finishe
b0c0: 64 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43  d */.  return TC
b0d0: 4c 5f 42 52 45 41 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a  L_BREAK;.}../*.*
b0e0: 2a 20 46 72 65 65 20 61 6c 6c 20 72 65 73 6f 75  * Free all resou
b0f0: 72 63 65 73 20 63 75 72 72 65 6e 74 6c 79 20 68  rces currently h
b100: 65 6c 64 20 62 79 20 74 68 65 20 44 62 45 76 61  eld by the DbEva
b110: 6c 43 6f 6e 74 65 78 74 20 73 74 72 75 63 74 75  lContext structu
b120: 72 65 20 70 61 73 73 65 64 0a 2a 2a 20 61 73 20  re passed.** as 
b130: 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65  the first argume
b140: 6e 74 2e 20 54 68 65 72 65 20 73 68 6f 75 6c 64  nt. There should
b150: 20 62 65 20 65 78 61 63 74 6c 79 20 6f 6e 65 20   be exactly one 
b160: 63 61 6c 6c 20 74 6f 20 74 68 69 73 20 66 75 6e  call to this fun
b170: 63 74 69 6f 6e 0a 2a 2a 20 66 6f 72 20 65 61 63  ction.** for eac
b180: 68 20 63 61 6c 6c 20 74 6f 20 64 62 45 76 61 6c  h call to dbEval
b190: 49 6e 69 74 28 29 2e 0a 2a 2f 0a 73 74 61 74 69  Init()..*/.stati
b1a0: 63 20 76 6f 69 64 20 64 62 45 76 61 6c 46 69 6e  c void dbEvalFin
b1b0: 61 6c 69 7a 65 28 44 62 45 76 61 6c 43 6f 6e 74  alize(DbEvalCont
b1c0: 65 78 74 20 2a 70 29 7b 0a 20 20 69 66 28 20 70  ext *p){.  if( p
b1d0: 2d 3e 70 50 72 65 53 74 6d 74 20 29 7b 0a 20 20  ->pPreStmt ){.  
b1e0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 28    sqlite3_reset(
b1f0: 70 2d 3e 70 50 72 65 53 74 6d 74 2d 3e 70 53 74  p->pPreStmt->pSt
b200: 6d 74 29 3b 0a 20 20 20 20 64 62 52 65 6c 65 61  mt);.    dbRelea
b210: 73 65 53 74 6d 74 28 70 2d 3e 70 44 62 2c 20 70  seStmt(p->pDb, p
b220: 2d 3e 70 50 72 65 53 74 6d 74 2c 20 30 29 3b 0a  ->pPreStmt, 0);.
b230: 20 20 20 20 70 2d 3e 70 50 72 65 53 74 6d 74 20      p->pPreStmt 
b240: 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70  = 0;.  }.  if( p
b250: 2d 3e 70 41 72 72 61 79 20 29 7b 0a 20 20 20 20  ->pArray ){.    
b260: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74  Tcl_DecrRefCount
b270: 28 70 2d 3e 70 41 72 72 61 79 29 3b 0a 20 20 20  (p->pArray);.   
b280: 20 70 2d 3e 70 41 72 72 61 79 20 3d 20 30 3b 0a   p->pArray = 0;.
b290: 20 20 7d 0a 20 20 54 63 6c 5f 44 65 63 72 52 65    }.  Tcl_DecrRe
b2a0: 66 43 6f 75 6e 74 28 70 2d 3e 70 53 71 6c 29 3b  fCount(p->pSql);
b2b0: 0a 20 20 64 62 52 65 6c 65 61 73 65 43 6f 6c 75  .  dbReleaseColu
b2c0: 6d 6e 4e 61 6d 65 73 28 70 29 3b 0a 7d 0a 0a 2f  mnNames(p);.}../
b2d0: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 70 6f  *.** Return a po
b2e0: 69 6e 74 65 72 20 74 6f 20 61 20 54 63 6c 5f 4f  inter to a Tcl_O
b2f0: 62 6a 20 73 74 72 75 63 74 75 72 65 20 77 69 74  bj structure wit
b300: 68 20 72 65 66 2d 63 6f 75 6e 74 20 30 20 74 68  h ref-count 0 th
b310: 61 74 20 63 6f 6e 74 61 69 6e 73 0a 2a 2a 20 74  at contains.** t
b320: 68 65 20 76 61 6c 75 65 20 66 6f 72 20 74 68 65  he value for the
b330: 20 69 43 6f 6c 27 74 68 20 63 6f 6c 75 6d 6e 20   iCol'th column 
b340: 6f 66 20 74 68 65 20 72 6f 77 20 63 75 72 72 65  of the row curre
b350: 6e 74 6c 79 20 70 6f 69 6e 74 65 64 20 74 6f 20  ntly pointed to 
b360: 62 79 0a 2a 2a 20 74 68 65 20 44 62 45 76 61 6c  by.** the DbEval
b370: 43 6f 6e 74 65 78 74 20 73 74 72 75 63 74 75 72  Context structur
b380: 65 20 70 61 73 73 65 64 20 61 73 20 74 68 65 20  e passed as the 
b390: 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 2e 0a  first argument..
b3a0: 2a 2f 0a 73 74 61 74 69 63 20 54 63 6c 5f 4f 62  */.static Tcl_Ob
b3b0: 6a 20 2a 64 62 45 76 61 6c 43 6f 6c 75 6d 6e 56  j *dbEvalColumnV
b3c0: 61 6c 75 65 28 44 62 45 76 61 6c 43 6f 6e 74 65  alue(DbEvalConte
b3d0: 78 74 20 2a 70 2c 20 69 6e 74 20 69 43 6f 6c 29  xt *p, int iCol)
b3e0: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74  {.  sqlite3_stmt
b3f0: 20 2a 70 53 74 6d 74 20 3d 20 70 2d 3e 70 50 72   *pStmt = p->pPr
b400: 65 53 74 6d 74 2d 3e 70 53 74 6d 74 3b 0a 20 20  eStmt->pStmt;.  
b410: 73 77 69 74 63 68 28 20 73 71 6c 69 74 65 33 5f  switch( sqlite3_
b420: 63 6f 6c 75 6d 6e 5f 74 79 70 65 28 70 53 74 6d  column_type(pStm
b430: 74 2c 20 69 43 6f 6c 29 20 29 7b 0a 20 20 20 20  t, iCol) ){.    
b440: 63 61 73 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42  case SQLITE_BLOB
b450: 3a 20 7b 0a 20 20 20 20 20 20 69 6e 74 20 62 79  : {.      int by
b460: 74 65 73 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f  tes = sqlite3_co
b470: 6c 75 6d 6e 5f 62 79 74 65 73 28 70 53 74 6d 74  lumn_bytes(pStmt
b480: 2c 20 69 43 6f 6c 29 3b 0a 20 20 20 20 20 20 63  , iCol);.      c
b490: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 42 6c 6f 62  onst char *zBlob
b4a0: 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d   = sqlite3_colum
b4b0: 6e 5f 62 6c 6f 62 28 70 53 74 6d 74 2c 20 69 43  n_blob(pStmt, iC
b4c0: 6f 6c 29 3b 0a 20 20 20 20 20 20 69 66 28 20 21  ol);.      if( !
b4d0: 7a 42 6c 6f 62 20 29 20 62 79 74 65 73 20 3d 20  zBlob ) bytes = 
b4e0: 30 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  0;.      return 
b4f0: 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79  Tcl_NewByteArray
b500: 4f 62 6a 28 28 75 38 2a 29 7a 42 6c 6f 62 2c 20  Obj((u8*)zBlob, 
b510: 62 79 74 65 73 29 3b 0a 20 20 20 20 7d 0a 20 20  bytes);.    }.  
b520: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 49 4e    case SQLITE_IN
b530: 54 45 47 45 52 3a 20 7b 0a 20 20 20 20 20 20 73  TEGER: {.      s
b540: 71 6c 69 74 65 5f 69 6e 74 36 34 20 76 20 3d 20  qlite_int64 v = 
b550: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69  sqlite3_column_i
b560: 6e 74 36 34 28 70 53 74 6d 74 2c 20 69 43 6f 6c  nt64(pStmt, iCol
b570: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 76 3e 3d  );.      if( v>=
b580: 2d 32 31 34 37 34 38 33 36 34 37 20 26 26 20 76  -2147483647 && v
b590: 3c 3d 32 31 34 37 34 38 33 36 34 37 20 29 7b 0a  <=2147483647 ){.
b5a0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54          return T
b5b0: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 76 29 3b  cl_NewIntObj(v);
b5c0: 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20  .      }else{.  
b5d0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c        return Tcl
b5e0: 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 76  _NewWideIntObj(v
b5f0: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  );.      }.    }
b600: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
b610: 5f 46 4c 4f 41 54 3a 20 7b 0a 20 20 20 20 20 20  _FLOAT: {.      
b620: 72 65 74 75 72 6e 20 54 63 6c 5f 4e 65 77 44 6f  return Tcl_NewDo
b630: 75 62 6c 65 4f 62 6a 28 73 71 6c 69 74 65 33 5f  ubleObj(sqlite3_
b640: 63 6f 6c 75 6d 6e 5f 64 6f 75 62 6c 65 28 70 53  column_double(pS
b650: 74 6d 74 2c 20 69 43 6f 6c 29 29 3b 0a 20 20 20  tmt, iCol));.   
b660: 20 7d 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49   }.    case SQLI
b670: 54 45 5f 4e 55 4c 4c 3a 20 7b 0a 20 20 20 20 20  TE_NULL: {.     
b680: 20 72 65 74 75 72 6e 20 64 62 54 65 78 74 54 6f   return dbTextTo
b690: 4f 62 6a 28 70 2d 3e 70 44 62 2d 3e 7a 4e 75 6c  Obj(p->pDb->zNul
b6a0: 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20  l);.    }.  }.. 
b6b0: 20 72 65 74 75 72 6e 20 64 62 54 65 78 74 54 6f   return dbTextTo
b6c0: 4f 62 6a 28 28 63 68 61 72 20 2a 29 73 71 6c 69  Obj((char *)sqli
b6d0: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 28  te3_column_text(
b6e0: 70 53 74 6d 74 2c 20 69 43 6f 6c 29 29 3b 0a 7d  pStmt, iCol));.}
b6f0: 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 75 73 69 6e 67  ../*.** If using
b700: 20 54 63 6c 20 76 65 72 73 69 6f 6e 20 38 2e 36   Tcl version 8.6
b710: 20 6f 72 20 67 72 65 61 74 65 72 2c 20 75 73 65   or greater, use
b720: 20 74 68 65 20 4e 52 20 66 75 6e 63 74 69 6f 6e   the NR function
b730: 73 20 74 6f 20 61 76 6f 69 64 0a 2a 2a 20 72 65  s to avoid.** re
b740: 63 75 72 73 69 76 65 20 65 76 61 6c 75 74 69 6f  cursive evalutio
b750: 6e 20 6f 66 20 73 63 72 69 70 74 73 20 62 79 20  n of scripts by 
b760: 74 68 65 20 5b 64 62 20 65 76 61 6c 5d 20 61 6e  the [db eval] an
b770: 64 20 5b 64 62 20 74 72 61 6e 73 5d 0a 2a 2a 20  d [db trans].** 
b780: 63 6f 6d 6d 61 6e 64 73 2e 20 45 76 65 6e 20 69  commands. Even i
b790: 66 20 74 68 65 20 68 65 61 64 65 72 73 20 75 73  f the headers us
b7a0: 65 64 20 77 68 69 6c 65 20 63 6f 6d 70 69 6c 69  ed while compili
b7b0: 6e 67 20 74 68 65 20 65 78 74 65 6e 73 69 6f 6e  ng the extension
b7c0: 0a 2a 2a 20 61 72 65 20 38 2e 36 20 6f 72 20 6e  .** are 8.6 or n
b7d0: 65 77 65 72 2c 20 74 68 65 20 63 6f 64 65 20 73  ewer, the code s
b7e0: 74 69 6c 6c 20 74 65 73 74 73 20 74 68 65 20 54  till tests the T
b7f0: 63 6c 20 76 65 72 73 69 6f 6e 20 61 74 20 72 75  cl version at ru
b800: 6e 74 69 6d 65 2e 0a 2a 2a 20 54 68 69 73 20 61  ntime..** This a
b810: 6c 6c 6f 77 73 20 73 74 75 62 73 2d 65 6e 61 62  llows stubs-enab
b820: 6c 65 64 20 62 75 69 6c 64 73 20 74 6f 20 62 65  led builds to be
b830: 20 75 73 65 64 20 77 69 74 68 20 6f 6c 64 65 72   used with older
b840: 20 54 63 6c 20 6c 69 62 72 61 72 69 65 73 2e 0a   Tcl libraries..
b850: 2a 2f 0a 23 69 66 20 54 43 4c 5f 4d 41 4a 4f 52  */.#if TCL_MAJOR
b860: 5f 56 45 52 53 49 4f 4e 3e 38 20 7c 7c 20 28 54  _VERSION>8 || (T
b870: 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e  CL_MAJOR_VERSION
b880: 3d 3d 38 20 26 26 20 54 43 4c 5f 4d 49 4e 4f 52  ==8 && TCL_MINOR
b890: 5f 56 45 52 53 49 4f 4e 3e 3d 36 29 0a 23 20 64  _VERSION>=6).# d
b8a0: 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 54 43 4c  efine SQLITE_TCL
b8b0: 5f 4e 52 45 20 31 0a 73 74 61 74 69 63 20 69 6e  _NRE 1.static in
b8c0: 74 20 44 62 55 73 65 4e 72 65 28 76 6f 69 64 29  t DbUseNre(void)
b8d0: 7b 0a 20 20 69 6e 74 20 6d 61 6a 6f 72 2c 20 6d  {.  int major, m
b8e0: 69 6e 6f 72 3b 0a 20 20 54 63 6c 5f 47 65 74 56  inor;.  Tcl_GetV
b8f0: 65 72 73 69 6f 6e 28 26 6d 61 6a 6f 72 2c 20 26  ersion(&major, &
b900: 6d 69 6e 6f 72 2c 20 30 2c 20 30 29 3b 0a 20 20  minor, 0, 0);.  
b910: 72 65 74 75 72 6e 28 20 28 6d 61 6a 6f 72 3d 3d  return( (major==
b920: 38 20 26 26 20 6d 69 6e 6f 72 3e 3d 36 29 20 7c  8 && minor>=6) |
b930: 7c 20 6d 61 6a 6f 72 3e 38 20 29 3b 0a 7d 0a 23  | major>8 );.}.#
b940: 65 6c 73 65 0a 2f 2a 20 0a 2a 2a 20 43 6f 6d 70  else./* .** Comp
b950: 69 6c 69 6e 67 20 75 73 69 6e 67 20 68 65 61 64  iling using head
b960: 65 72 73 20 65 61 72 6c 69 65 72 20 74 68 61 6e  ers earlier than
b970: 20 38 2e 36 2e 20 49 6e 20 74 68 69 73 20 63 61   8.6. In this ca
b980: 73 65 20 4e 52 20 63 61 6e 6e 6f 74 20 62 65 0a  se NR cannot be.
b990: 2a 2a 20 75 73 65 64 2c 20 73 6f 20 44 62 55 73  ** used, so DbUs
b9a0: 65 4e 72 65 28 29 20 74 6f 20 61 6c 77 61 79 73  eNre() to always
b9b0: 20 72 65 74 75 72 6e 20 7a 65 72 6f 2e 20 41 64   return zero. Ad
b9c0: 64 20 23 64 65 66 69 6e 65 73 20 66 6f 72 20 74  d #defines for t
b9d0: 68 65 20 6f 74 68 65 72 0a 2a 2a 20 54 63 6c 5f  he other.** Tcl_
b9e0: 4e 52 78 78 78 28 29 20 66 75 6e 63 74 69 6f 6e  NRxxx() function
b9f0: 73 20 74 6f 20 70 72 65 76 65 6e 74 20 74 68 65  s to prevent the
ba00: 6d 20 66 72 6f 6d 20 63 61 75 73 69 6e 67 20 63  m from causing c
ba10: 6f 6d 70 69 6c 61 74 69 6f 6e 20 65 72 72 6f 72  ompilation error
ba20: 73 2c 0a 2a 2a 20 65 76 65 6e 20 74 68 6f 75 67  s,.** even thoug
ba30: 68 20 74 68 65 20 6f 6e 6c 79 20 69 6e 76 6f 63  h the only invoc
ba40: 61 74 69 6f 6e 73 20 6f 66 20 74 68 65 6d 20 61  ations of them a
ba50: 72 65 20 77 69 74 68 69 6e 20 63 6f 6e 64 69 74  re within condit
ba60: 69 6f 6e 61 6c 20 62 6c 6f 63 6b 73 20 0a 2a 2a  ional blocks .**
ba70: 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a 0a 2a 2a   of the form:.**
ba80: 0a 2a 2a 20 20 20 69 66 28 20 44 62 55 73 65 4e  .**   if( DbUseN
ba90: 72 65 28 29 20 29 20 7b 20 2e 2e 2e 20 7d 0a 2a  re() ) { ... }.*
baa0: 2f 0a 23 20 64 65 66 69 6e 65 20 53 51 4c 49 54  /.# define SQLIT
bab0: 45 5f 54 43 4c 5f 4e 52 45 20 30 0a 23 20 64 65  E_TCL_NRE 0.# de
bac0: 66 69 6e 65 20 44 62 55 73 65 4e 72 65 28 29 20  fine DbUseNre() 
bad0: 30 0a 23 20 64 65 66 69 6e 65 20 54 63 6c 5f 4e  0.# define Tcl_N
bae0: 52 41 64 64 43 61 6c 6c 62 61 63 6b 28 61 2c 62  RAddCallback(a,b
baf0: 2c 63 2c 64 2c 65 2c 66 29 20 30 0a 23 20 64 65  ,c,d,e,f) 0.# de
bb00: 66 69 6e 65 20 54 63 6c 5f 4e 52 45 76 61 6c 4f  fine Tcl_NREvalO
bb10: 62 6a 28 61 2c 62 2c 63 29 20 30 0a 23 20 64 65  bj(a,b,c) 0.# de
bb20: 66 69 6e 65 20 54 63 6c 5f 4e 52 43 72 65 61 74  fine Tcl_NRCreat
bb30: 65 43 6f 6d 6d 61 6e 64 28 61 2c 62 2c 63 2c 64  eCommand(a,b,c,d
bb40: 2c 65 2c 66 29 20 30 0a 23 65 6e 64 69 66 0a 0a  ,e,f) 0.#endif..
bb50: 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74  /*.** This funct
bb60: 69 6f 6e 20 69 73 20 70 61 72 74 20 6f 66 20 74  ion is part of t
bb70: 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f  he implementatio
bb80: 6e 20 6f 66 20 74 68 65 20 63 6f 6d 6d 61 6e 64  n of the command
bb90: 3a 0a 2a 2a 0a 2a 2a 20 20 20 24 64 62 20 65 76  :.**.**   $db ev
bba0: 61 6c 20 53 51 4c 20 3f 41 52 52 41 59 4e 41 4d  al SQL ?ARRAYNAM
bbb0: 45 3f 20 53 43 52 49 50 54 0a 2a 2f 0a 73 74 61  E? SCRIPT.*/.sta
bbc0: 74 69 63 20 69 6e 74 20 44 62 45 76 61 6c 4e 65  tic int DbEvalNe
bbd0: 78 74 43 6d 64 28 0a 20 20 43 6c 69 65 6e 74 44  xtCmd(.  ClientD
bbe0: 61 74 61 20 64 61 74 61 5b 5d 2c 20 20 20 20 20  ata data[],     
bbf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
bc00: 20 64 61 74 61 5b 30 5d 20 69 73 20 74 68 65 20   data[0] is the 
bc10: 28 44 62 45 76 61 6c 43 6f 6e 74 65 78 74 2a 29  (DbEvalContext*)
bc20: 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70   */.  Tcl_Interp
bc30: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 20 20 20   *interp,       
bc40: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 63             /* Tc
bc50: 6c 20 69 6e 74 65 72 70 72 65 74 65 72 20 2a 2f  l interpreter */
bc60: 0a 20 20 69 6e 74 20 72 65 73 75 6c 74 20 20 20  .  int result   
bc70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
bc80: 20 20 20 20 20 20 20 20 2f 2a 20 52 65 73 75 6c          /* Resul
bc90: 74 20 73 6f 20 66 61 72 20 2a 2f 0a 29 7b 0a 20  t so far */.){. 
bca0: 20 69 6e 74 20 72 63 20 3d 20 72 65 73 75 6c 74   int rc = result
bcb0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
bcc0: 20 20 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20        /* Return 
bcd0: 63 6f 64 65 20 2a 2f 0a 0a 20 20 2f 2a 20 54 68  code */..  /* Th
bce0: 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20  e first element 
bcf0: 6f 66 20 74 68 65 20 64 61 74 61 5b 5d 20 61 72  of the data[] ar
bd00: 72 61 79 20 69 73 20 61 20 70 6f 69 6e 74 65 72  ray is a pointer
bd10: 20 74 6f 20 61 20 44 62 45 76 61 6c 43 6f 6e 74   to a DbEvalCont
bd20: 65 78 74 0a 20 20 2a 2a 20 73 74 72 75 63 74 75  ext.  ** structu
bd30: 72 65 20 61 6c 6c 6f 63 61 74 65 64 20 75 73 69  re allocated usi
bd40: 6e 67 20 54 63 6c 5f 41 6c 6c 6f 63 28 29 2e 20  ng Tcl_Alloc(). 
bd50: 54 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65  The second eleme
bd60: 6e 74 20 6f 66 20 64 61 74 61 5b 5d 0a 20 20 2a  nt of data[].  *
bd70: 2a 20 69 73 20 61 20 70 6f 69 6e 74 65 72 20 74  * is a pointer t
bd80: 6f 20 61 20 54 63 6c 5f 4f 62 6a 20 63 6f 6e 74  o a Tcl_Obj cont
bd90: 61 69 6e 69 6e 67 20 74 68 65 20 73 63 72 69 70  aining the scrip
bda0: 74 20 74 6f 20 72 75 6e 20 66 6f 72 20 65 61 63  t to run for eac
bdb0: 68 20 72 6f 77 0a 20 20 2a 2a 20 72 65 74 75 72  h row.  ** retur
bdc0: 6e 65 64 20 62 79 20 74 68 65 20 71 75 65 72 69  ned by the queri
bdd0: 65 73 20 65 6e 63 61 70 73 75 6c 61 74 65 64 20  es encapsulated 
bde0: 69 6e 20 64 61 74 61 5b 30 5d 2e 20 2a 2f 0a 20  in data[0]. */. 
bdf0: 20 44 62 45 76 61 6c 43 6f 6e 74 65 78 74 20 2a   DbEvalContext *
be00: 70 20 3d 20 28 44 62 45 76 61 6c 43 6f 6e 74 65  p = (DbEvalConte
be10: 78 74 20 2a 29 64 61 74 61 5b 30 5d 3b 0a 20 20  xt *)data[0];.  
be20: 54 63 6c 5f 4f 62 6a 20 2a 70 53 63 72 69 70 74  Tcl_Obj *pScript
be30: 20 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 64 61   = (Tcl_Obj *)da
be40: 74 61 5b 31 5d 3b 0a 20 20 54 63 6c 5f 4f 62 6a  ta[1];.  Tcl_Obj
be50: 20 2a 70 41 72 72 61 79 20 3d 20 70 2d 3e 70 41   *pArray = p->pA
be60: 72 72 61 79 3b 0a 0a 20 20 77 68 69 6c 65 28 20  rray;..  while( 
be70: 28 72 63 3d 3d 54 43 4c 5f 4f 4b 20 7c 7c 20 72  (rc==TCL_OK || r
be80: 63 3d 3d 54 43 4c 5f 43 4f 4e 54 49 4e 55 45 29  c==TCL_CONTINUE)
be90: 20 26 26 20 54 43 4c 5f 4f 4b 3d 3d 28 72 63 20   && TCL_OK==(rc 
bea0: 3d 20 64 62 45 76 61 6c 53 74 65 70 28 70 29 29  = dbEvalStep(p))
beb0: 20 29 7b 0a 20 20 20 20 69 6e 74 20 69 3b 0a 20   ){.    int i;. 
bec0: 20 20 20 69 6e 74 20 6e 43 6f 6c 3b 0a 20 20 20     int nCol;.   
bed0: 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61 70 43 6f 6c   Tcl_Obj **apCol
bee0: 4e 61 6d 65 3b 0a 20 20 20 20 64 62 45 76 61 6c  Name;.    dbEval
bef0: 52 6f 77 49 6e 66 6f 28 70 2c 20 26 6e 43 6f 6c  RowInfo(p, &nCol
bf00: 2c 20 26 61 70 43 6f 6c 4e 61 6d 65 29 3b 0a 20  , &apColName);. 
bf10: 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 43     for(i=0; i<nC
bf20: 6f 6c 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20  ol; i++){.      
bf30: 54 63 6c 5f 4f 62 6a 20 2a 70 56 61 6c 20 3d 20  Tcl_Obj *pVal = 
bf40: 64 62 45 76 61 6c 43 6f 6c 75 6d 6e 56 61 6c 75  dbEvalColumnValu
bf50: 65 28 70 2c 20 69 29 3b 0a 20 20 20 20 20 20 69  e(p, i);.      i
bf60: 66 28 20 70 41 72 72 61 79 3d 3d 30 20 29 7b 0a  f( pArray==0 ){.
bf70: 20 20 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 53          Tcl_ObjS
bf80: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 61  etVar2(interp, a
bf90: 70 43 6f 6c 4e 61 6d 65 5b 69 5d 2c 20 30 2c 20  pColName[i], 0, 
bfa0: 70 56 61 6c 2c 20 30 29 3b 0a 20 20 20 20 20 20  pVal, 0);.      
bfb0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 54  }else{.        T
bfc0: 63 6c 5f 4f 62 6a 53 65 74 56 61 72 32 28 69 6e  cl_ObjSetVar2(in
bfd0: 74 65 72 70 2c 20 70 41 72 72 61 79 2c 20 61 70  terp, pArray, ap
bfe0: 43 6f 6c 4e 61 6d 65 5b 69 5d 2c 20 70 56 61 6c  ColName[i], pVal
bff0: 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20  , 0);.      }.  
c000: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 54 68 65 20    }..    /* The 
c010: 72 65 71 75 69 72 65 64 20 69 6e 74 65 72 70 72  required interpr
c020: 65 74 65 72 20 76 61 72 69 61 62 6c 65 73 20 61  eter variables a
c030: 72 65 20 6e 6f 77 20 70 6f 70 75 6c 61 74 65 64  re now populated
c040: 20 77 69 74 68 20 74 68 65 20 64 61 74 61 20 0a   with the data .
c050: 20 20 20 20 2a 2a 20 66 72 6f 6d 20 74 68 65 20      ** from the 
c060: 63 75 72 72 65 6e 74 20 72 6f 77 2e 20 49 66 20  current row. If 
c070: 75 73 69 6e 67 20 4e 52 45 2c 20 73 63 68 65 64  using NRE, sched
c080: 75 6c 65 20 63 61 6c 6c 62 61 63 6b 73 20 74 6f  ule callbacks to
c090: 20 65 76 61 6c 75 61 74 65 0a 20 20 20 20 2a 2a   evaluate.    **
c0a0: 20 73 63 72 69 70 74 20 70 53 63 72 69 70 74 2c   script pScript,
c0b0: 20 74 68 65 6e 20 74 6f 20 69 6e 76 6f 6b 65 20   then to invoke 
c0c0: 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 61 67  this function ag
c0d0: 61 69 6e 20 74 6f 20 66 65 74 63 68 20 74 68 65  ain to fetch the
c0e0: 20 6e 65 78 74 0a 20 20 20 20 2a 2a 20 72 6f 77   next.    ** row
c0f0: 20 28 6f 72 20 63 6c 65 61 6e 20 75 70 20 69 66   (or clean up if
c100: 20 74 68 65 72 65 20 69 73 20 6e 6f 20 6e 65 78   there is no nex
c110: 74 20 72 6f 77 20 6f 72 20 74 68 65 20 73 63 72  t row or the scr
c120: 69 70 74 20 74 68 72 6f 77 73 20 61 6e 0a 20 20  ipt throws an.  
c130: 20 20 2a 2a 20 65 78 63 65 70 74 69 6f 6e 29 2e    ** exception).
c140: 20 41 66 74 65 72 20 73 63 68 65 64 75 6c 69 6e   After schedulin
c150: 67 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 73 2c  g the callbacks,
c160: 20 72 65 74 75 72 6e 20 63 6f 6e 74 72 6f 6c 20   return control 
c170: 74 6f 20 74 68 65 20 0a 20 20 20 20 2a 2a 20 63  to the .    ** c
c180: 61 6c 6c 65 72 2e 0a 20 20 20 20 2a 2a 0a 20 20  aller..    **.  
c190: 20 20 2a 2a 20 49 66 20 6e 6f 74 20 75 73 69 6e    ** If not usin
c1a0: 67 20 4e 52 45 2c 20 65 76 61 6c 75 61 74 65 20  g NRE, evaluate 
c1b0: 70 53 63 72 69 70 74 20 64 69 72 65 63 74 6c 79  pScript directly
c1c0: 20 61 6e 64 20 63 6f 6e 74 69 6e 75 65 20 77 69   and continue wi
c1d0: 74 68 20 74 68 65 0a 20 20 20 20 2a 2a 20 6e 65  th the.    ** ne
c1e0: 78 74 20 69 74 65 72 61 74 69 6f 6e 20 6f 66 20  xt iteration of 
c1f0: 74 68 69 73 20 77 68 69 6c 65 28 2e 2e 2e 29 20  this while(...) 
c200: 6c 6f 6f 70 2e 20 20 2a 2f 0a 20 20 20 20 69 66  loop.  */.    if
c210: 28 20 44 62 55 73 65 4e 72 65 28 29 20 29 7b 0a  ( DbUseNre() ){.
c220: 20 20 20 20 20 20 54 63 6c 5f 4e 52 41 64 64 43        Tcl_NRAddC
c230: 61 6c 6c 62 61 63 6b 28 69 6e 74 65 72 70 2c 20  allback(interp, 
c240: 44 62 45 76 61 6c 4e 65 78 74 43 6d 64 2c 20 28  DbEvalNextCmd, (
c250: 76 6f 69 64 2a 29 70 2c 20 28 76 6f 69 64 2a 29  void*)p, (void*)
c260: 70 53 63 72 69 70 74 2c 20 30 2c 20 30 29 3b 0a  pScript, 0, 0);.
c270: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c        return Tcl
c280: 5f 4e 52 45 76 61 6c 4f 62 6a 28 69 6e 74 65 72  _NREvalObj(inter
c290: 70 2c 20 70 53 63 72 69 70 74 2c 20 30 29 3b 0a  p, pScript, 0);.
c2a0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
c2b0: 20 72 63 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62   rc = Tcl_EvalOb
c2c0: 6a 45 78 28 69 6e 74 65 72 70 2c 20 70 53 63 72  jEx(interp, pScr
c2d0: 69 70 74 2c 20 30 29 3b 0a 20 20 20 20 7d 0a 20  ipt, 0);.    }. 
c2e0: 20 7d 0a 0a 20 20 54 63 6c 5f 44 65 63 72 52 65   }..  Tcl_DecrRe
c2f0: 66 43 6f 75 6e 74 28 70 53 63 72 69 70 74 29 3b  fCount(pScript);
c300: 0a 20 20 64 62 45 76 61 6c 46 69 6e 61 6c 69 7a  .  dbEvalFinaliz
c310: 65 28 70 29 3b 0a 20 20 54 63 6c 5f 46 72 65 65  e(p);.  Tcl_Free
c320: 28 28 63 68 61 72 20 2a 29 70 29 3b 0a 0a 20 20  ((char *)p);..  
c330: 69 66 28 20 72 63 3d 3d 54 43 4c 5f 4f 4b 20 7c  if( rc==TCL_OK |
c340: 7c 20 72 63 3d 3d 54 43 4c 5f 42 52 45 41 4b 20  | rc==TCL_BREAK 
c350: 29 7b 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74  ){.    Tcl_Reset
c360: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a  Result(interp);.
c370: 20 20 20 20 72 63 20 3d 20 54 43 4c 5f 4f 4b 3b      rc = TCL_OK;
c380: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63  .  }.  return rc
c390: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 22  ;.}../*.** The "
c3a0: 73 71 6c 69 74 65 22 20 63 6f 6d 6d 61 6e 64 20  sqlite" command 
c3b0: 62 65 6c 6f 77 20 63 72 65 61 74 65 73 20 61 20  below creates a 
c3c0: 6e 65 77 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 20  new Tcl command 
c3d0: 66 6f 72 20 65 61 63 68 0a 2a 2a 20 63 6f 6e 6e  for each.** conn
c3e0: 65 63 74 69 6f 6e 20 69 74 20 6f 70 65 6e 73 20  ection it opens 
c3f0: 74 6f 20 61 6e 20 53 51 4c 69 74 65 20 64 61 74  to an SQLite dat
c400: 61 62 61 73 65 2e 20 20 54 68 69 73 20 72 6f 75  abase.  This rou
c410: 74 69 6e 65 20 69 73 20 69 6e 76 6f 6b 65 64 0a  tine is invoked.
c420: 2a 2a 20 77 68 65 6e 65 76 65 72 20 6f 6e 65 20  ** whenever one 
c430: 6f 66 20 74 68 6f 73 65 20 63 6f 6e 6e 65 63 74  of those connect
c440: 69 6f 6e 2d 73 70 65 63 69 66 69 63 20 63 6f 6d  ion-specific com
c450: 6d 61 6e 64 73 20 69 73 20 65 78 65 63 75 74 65  mands is execute
c460: 64 0a 2a 2a 20 69 6e 20 54 63 6c 2e 20 20 46 6f  d.** in Tcl.  Fo
c470: 72 20 65 78 61 6d 70 6c 65 2c 20 69 66 20 79 6f  r example, if yo
c480: 75 20 72 75 6e 20 54 63 6c 20 63 6f 64 65 20 6c  u run Tcl code l
c490: 69 6b 65 20 74 68 69 73 3a 0a 2a 2a 0a 2a 2a 20  ike this:.**.** 
c4a0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 20 64 62        sqlite3 db
c4b0: 31 20 20 22 6d 79 5f 64 61 74 61 62 61 73 65 22  1  "my_database"
c4c0: 0a 2a 2a 20 20 20 20 20 20 20 64 62 31 20 63 6c  .**       db1 cl
c4d0: 6f 73 65 0a 2a 2a 0a 2a 2a 20 54 68 65 20 66 69  ose.**.** The fi
c4e0: 72 73 74 20 63 6f 6d 6d 61 6e 64 20 6f 70 65 6e  rst command open
c4f0: 73 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74  s a connection t
c500: 6f 20 74 68 65 20 22 6d 79 5f 64 61 74 61 62 61  o the "my_databa
c510: 73 65 22 20 64 61 74 61 62 61 73 65 0a 2a 2a 20  se" database.** 
c520: 61 6e 64 20 63 61 6c 6c 73 20 74 68 61 74 20 63  and calls that c
c530: 6f 6e 6e 65 63 74 69 6f 6e 20 22 64 62 31 22 2e  onnection "db1".
c540: 20 20 54 68 65 20 73 65 63 6f 6e 64 20 63 6f 6d    The second com
c550: 6d 61 6e 64 20 63 61 75 73 65 73 20 74 68 69 73  mand causes this
c560: 0a 2a 2a 20 73 75 62 72 6f 75 74 69 6e 65 20 74  .** subroutine t
c570: 6f 20 62 65 20 69 6e 76 6f 6b 65 64 2e 0a 2a 2f  o be invoked..*/
c580: 0a 73 74 61 74 69 63 20 69 6e 74 20 44 62 4f 62  .static int DbOb
c590: 6a 43 6d 64 28 76 6f 69 64 20 2a 63 64 2c 20 54  jCmd(void *cd, T
c5a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
c5b0: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 54 63 6c 5f  p, int objc,Tcl_
c5c0: 4f 62 6a 20 2a 63 6f 6e 73 74 2a 6f 62 6a 76 29  Obj *const*objv)
c5d0: 7b 0a 20 20 53 71 6c 69 74 65 44 62 20 2a 70 44  {.  SqliteDb *pD
c5e0: 62 20 3d 20 28 53 71 6c 69 74 65 44 62 2a 29 63  b = (SqliteDb*)c
c5f0: 64 3b 0a 20 20 69 6e 74 20 63 68 6f 69 63 65 3b  d;.  int choice;
c600: 0a 20 20 69 6e 74 20 72 63 20 3d 20 54 43 4c 5f  .  int rc = TCL_
c610: 4f 4b 3b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e  OK;.  static con
c620: 73 74 20 63 68 61 72 20 2a 44 42 5f 73 74 72 73  st char *DB_strs
c630: 5b 5d 20 3d 20 7b 0a 20 20 20 20 22 61 75 74 68  [] = {.    "auth
c640: 6f 72 69 7a 65 72 22 2c 20 20 20 20 20 20 20 20  orizer",        
c650: 20 22 62 61 63 6b 75 70 22 2c 20 20 20 20 20 20   "backup",      
c660: 20 20 20 20 20 20 22 62 75 73 79 22 2c 0a 20 20        "busy",.  
c670: 20 20 22 63 61 63 68 65 22 2c 20 20 20 20 20 20    "cache",      
c680: 20 20 20 20 20 20 20 20 22 63 68 61 6e 67 65 73          "changes
c690: 22 2c 20 20 20 20 20 20 20 20 20 20 20 22 63 6c  ",           "cl
c6a0: 6f 73 65 22 2c 0a 20 20 20 20 22 63 6f 6c 6c 61  ose",.    "colla
c6b0: 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  te",            
c6c0: 22 63 6f 6c 6c 61 74 69 6f 6e 5f 6e 65 65 64 65  "collation_neede
c6d0: 64 22 2c 20 20 22 63 6f 6d 6d 69 74 5f 68 6f 6f  d",  "commit_hoo
c6e0: 6b 22 2c 0a 20 20 20 20 22 63 6f 6d 70 6c 65 74  k",.    "complet
c6f0: 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 22 63  e",           "c
c700: 6f 70 79 22 2c 20 20 20 20 20 20 20 20 20 20 20  opy",           
c710: 20 20 20 22 65 6e 61 62 6c 65 5f 6c 6f 61 64 5f     "enable_load_
c720: 65 78 74 65 6e 73 69 6f 6e 22 2c 0a 20 20 20 20  extension",.    
c730: 22 65 72 72 6f 72 63 6f 64 65 22 2c 20 20 20 20  "errorcode",    
c740: 20 20 20 20 20 20 22 65 76 61 6c 22 2c 20 20 20        "eval",   
c750: 20 20 20 20 20 20 20 20 20 20 20 22 65 78 69 73             "exis
c760: 74 73 22 2c 0a 20 20 20 20 22 66 75 6e 63 74 69  ts",.    "functi
c770: 6f 6e 22 2c 20 20 20 20 20 20 20 20 20 20 20 22  on",           "
c780: 69 6e 63 72 62 6c 6f 62 22 2c 20 20 20 20 20 20  incrblob",      
c790: 20 20 20 20 22 69 6e 74 65 72 72 75 70 74 22 2c      "interrupt",
c7a0: 0a 20 20 20 20 22 6c 61 73 74 5f 69 6e 73 65 72  .    "last_inser
c7b0: 74 5f 72 6f 77 69 64 22 2c 20 20 22 6e 75 6c 6c  t_rowid",  "null
c7c0: 76 61 6c 75 65 22 2c 20 20 20 20 20 20 20 20 20  value",         
c7d0: 22 6f 6e 65 63 6f 6c 75 6d 6e 22 2c 0a 20 20 20  "onecolumn",.   
c7e0: 20 22 70 72 6f 66 69 6c 65 22 2c 20 20 20 20 20   "profile",     
c7f0: 20 20 20 20 20 20 20 22 70 72 6f 67 72 65 73 73         "progress
c800: 22 2c 20 20 20 20 20 20 20 20 20 20 22 72 65 6b  ",          "rek
c810: 65 79 22 2c 0a 20 20 20 20 22 72 65 73 74 6f 72  ey",.    "restor
c820: 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 22  e",            "
c830: 72 6f 6c 6c 62 61 63 6b 5f 68 6f 6f 6b 22 2c 20  rollback_hook", 
c840: 20 20 20 20 22 73 74 61 74 75 73 22 2c 0a 20 20      "status",.  
c850: 20 20 22 74 69 6d 65 6f 75 74 22 2c 20 20 20 20    "timeout",    
c860: 20 20 20 20 20 20 20 20 22 74 6f 74 61 6c 5f 63          "total_c
c870: 68 61 6e 67 65 73 22 2c 20 20 20 20 20 22 74 72  hanges",     "tr
c880: 61 63 65 22 2c 0a 20 20 20 20 22 74 72 61 6e 73  ace",.    "trans
c890: 61 63 74 69 6f 6e 22 2c 20 20 20 20 20 20 20 20  action",        
c8a0: 22 75 6e 6c 6f 63 6b 5f 6e 6f 74 69 66 79 22 2c  "unlock_notify",
c8b0: 20 20 20 20 20 22 75 70 64 61 74 65 5f 68 6f 6f       "update_hoo
c8c0: 6b 22 2c 0a 20 20 20 20 22 76 65 72 73 69 6f 6e  k",.    "version
c8d0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 22 77  ",            "w
c8e0: 61 6c 5f 68 6f 6f 6b 22 2c 20 20 20 20 20 20 20  al_hook",       
c8f0: 20 20 20 30 0a 20 20 7d 3b 0a 20 20 65 6e 75 6d     0.  };.  enum
c900: 20 44 42 5f 65 6e 75 6d 20 7b 0a 20 20 20 20 44   DB_enum {.    D
c910: 42 5f 41 55 54 48 4f 52 49 5a 45 52 2c 20 20 20  B_AUTHORIZER,   
c920: 20 20 20 20 20 44 42 5f 42 41 43 4b 55 50 2c 20       DB_BACKUP, 
c930: 20 20 20 20 20 20 20 20 20 20 44 42 5f 42 55 53            DB_BUS
c940: 59 2c 0a 20 20 20 20 44 42 5f 43 41 43 48 45 2c  Y,.    DB_CACHE,
c950: 20 20 20 20 20 20 20 20 20 20 20 20 20 44 42 5f               DB_
c960: 43 48 41 4e 47 45 53 2c 20 20 20 20 20 20 20 20  CHANGES,        
c970: 20 20 44 42 5f 43 4c 4f 53 45 2c 0a 20 20 20 20    DB_CLOSE,.    
c980: 44 42 5f 43 4f 4c 4c 41 54 45 2c 20 20 20 20 20  DB_COLLATE,     
c990: 20 20 20 20 20 20 44 42 5f 43 4f 4c 4c 41 54 49        DB_COLLATI
c9a0: 4f 4e 5f 4e 45 45 44 45 44 2c 20 44 42 5f 43 4f  ON_NEEDED, DB_CO
c9b0: 4d 4d 49 54 5f 48 4f 4f 4b 2c 0a 20 20 20 20 44  MMIT_HOOK,.    D
c9c0: 42 5f 43 4f 4d 50 4c 45 54 45 2c 20 20 20 20 20  B_COMPLETE,     
c9d0: 20 20 20 20 20 44 42 5f 43 4f 50 59 2c 20 20 20       DB_COPY,   
c9e0: 20 20 20 20 20 20 20 20 20 20 44 42 5f 45 4e 41            DB_ENA
c9f0: 42 4c 45 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49  BLE_LOAD_EXTENSI
ca00: 4f 4e 2c 0a 20 20 20 20 44 42 5f 45 52 52 4f 52  ON,.    DB_ERROR
ca10: 43 4f 44 45 2c 20 20 20 20 20 20 20 20 20 44 42  CODE,         DB
ca20: 5f 45 56 41 4c 2c 20 20 20 20 20 20 20 20 20 20  _EVAL,          
ca30: 20 20 20 44 42 5f 45 58 49 53 54 53 2c 0a 20 20     DB_EXISTS,.  
ca40: 20 20 44 42 5f 46 55 4e 43 54 49 4f 4e 2c 20 20    DB_FUNCTION,  
ca50: 20 20 20 20 20 20 20 20 44 42 5f 49 4e 43 52 42          DB_INCRB
ca60: 4c 4f 42 2c 20 20 20 20 20 20 20 20 20 44 42 5f  LOB,         DB_
ca70: 49 4e 54 45 52 52 55 50 54 2c 0a 20 20 20 20 44  INTERRUPT,.    D
ca80: 42 5f 4c 41 53 54 5f 49 4e 53 45 52 54 5f 52 4f  B_LAST_INSERT_RO
ca90: 57 49 44 2c 20 44 42 5f 4e 55 4c 4c 56 41 4c 55  WID, DB_NULLVALU
caa0: 45 2c 20 20 20 20 20 20 20 20 44 42 5f 4f 4e 45  E,        DB_ONE
cab0: 43 4f 4c 55 4d 4e 2c 0a 20 20 20 20 44 42 5f 50  COLUMN,.    DB_P
cac0: 52 4f 46 49 4c 45 2c 20 20 20 20 20 20 20 20 20  ROFILE,         
cad0: 20 20 44 42 5f 50 52 4f 47 52 45 53 53 2c 20 20    DB_PROGRESS,  
cae0: 20 20 20 20 20 20 20 44 42 5f 52 45 4b 45 59 2c         DB_REKEY,
caf0: 0a 20 20 20 20 44 42 5f 52 45 53 54 4f 52 45 2c  .    DB_RESTORE,
cb00: 20 20 20 20 20 20 20 20 20 20 20 44 42 5f 52 4f             DB_RO
cb10: 4c 4c 42 41 43 4b 5f 48 4f 4f 4b 2c 20 20 20 20  LLBACK_HOOK,    
cb20: 44 42 5f 53 54 41 54 55 53 2c 0a 20 20 20 20 44  DB_STATUS,.    D
cb30: 42 5f 54 49 4d 45 4f 55 54 2c 20 20 20 20 20 20  B_TIMEOUT,      
cb40: 20 20 20 20 20 44 42 5f 54 4f 54 41 4c 5f 43 48       DB_TOTAL_CH
cb50: 41 4e 47 45 53 2c 20 20 20 20 44 42 5f 54 52 41  ANGES,    DB_TRA
cb60: 43 45 2c 0a 20 20 20 20 44 42 5f 54 52 41 4e 53  CE,.    DB_TRANS
cb70: 41 43 54 49 4f 4e 2c 20 20 20 20 20 20 20 44 42  ACTION,       DB
cb80: 5f 55 4e 4c 4f 43 4b 5f 4e 4f 54 49 46 59 2c 20  _UNLOCK_NOTIFY, 
cb90: 20 20 20 44 42 5f 55 50 44 41 54 45 5f 48 4f 4f     DB_UPDATE_HOO
cba0: 4b 2c 0a 20 20 20 20 44 42 5f 56 45 52 53 49 4f  K,.    DB_VERSIO
cbb0: 4e 2c 20 20 20 20 20 20 20 20 20 20 20 44 42 5f  N,           DB_
cbc0: 57 41 4c 5f 48 4f 4f 4b 0a 20 20 7d 3b 0a 20 20  WAL_HOOK.  };.  
cbd0: 2f 2a 20 64 6f 6e 27 74 20 6c 65 61 76 65 20 74  /* don't leave t
cbe0: 72 61 69 6c 69 6e 67 20 63 6f 6d 6d 61 73 20 6f  railing commas o
cbf0: 6e 20 44 42 5f 65 6e 75 6d 2c 20 69 74 20 63 6f  n DB_enum, it co
cc00: 6e 66 75 73 65 73 20 74 68 65 20 41 49 58 20 78  nfuses the AIX x
cc10: 6c 63 20 63 6f 6d 70 69 6c 65 72 20 2a 2f 0a 0a  lc compiler */..
cc20: 20 20 69 66 28 20 6f 62 6a 63 3c 32 20 29 7b 0a    if( objc<2 ){.
cc30: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
cc40: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
cc50: 6f 62 6a 76 2c 20 22 53 55 42 43 4f 4d 4d 41 4e  objv, "SUBCOMMAN
cc60: 44 20 2e 2e 2e 22 29 3b 0a 20 20 20 20 72 65 74  D ...");.    ret
cc70: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
cc80: 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74   }.  if( Tcl_Get
cc90: 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74  IndexFromObj(int
cca0: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 44 42  erp, objv[1], DB
ccb0: 5f 73 74 72 73 2c 20 22 6f 70 74 69 6f 6e 22 2c  _strs, "option",
ccc0: 20 30 2c 20 26 63 68 6f 69 63 65 29 20 29 7b 0a   0, &choice) ){.
ccd0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
cce0: 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 73 77 69  RROR;.  }..  swi
ccf0: 74 63 68 28 20 28 65 6e 75 6d 20 44 42 5f 65 6e  tch( (enum DB_en
cd00: 75 6d 29 63 68 6f 69 63 65 20 29 7b 0a 0a 20 20  um)choice ){..  
cd10: 2f 2a 20 20 20 20 24 64 62 20 61 75 74 68 6f 72  /*    $db author
cd20: 69 7a 65 72 20 3f 43 41 4c 4c 42 41 43 4b 3f 0a  izer ?CALLBACK?.
cd30: 20 20 2a 2a 0a 20 20 2a 2a 20 49 6e 76 6f 6b 65    **.  ** Invoke
cd40: 20 74 68 65 20 67 69 76 65 6e 20 63 61 6c 6c 62   the given callb
cd50: 61 63 6b 20 74 6f 20 61 75 74 68 6f 72 69 7a 65  ack to authorize
cd60: 20 65 61 63 68 20 53 51 4c 20 6f 70 65 72 61 74   each SQL operat
cd70: 69 6f 6e 20 61 73 20 69 74 20 69 73 0a 20 20 2a  ion as it is.  *
cd80: 2a 20 63 6f 6d 70 69 6c 65 64 2e 20 20 35 20 61  * compiled.  5 a
cd90: 72 67 75 6d 65 6e 74 73 20 61 72 65 20 61 70 70  rguments are app
cda0: 65 6e 64 65 64 20 74 6f 20 74 68 65 20 63 61 6c  ended to the cal
cdb0: 6c 62 61 63 6b 20 62 65 66 6f 72 65 20 69 74 20  lback before it 
cdc0: 69 73 0a 20 20 2a 2a 20 69 6e 76 6f 6b 65 64 3a  is.  ** invoked:
cdd0: 0a 20 20 2a 2a 0a 20 20 2a 2a 20 20 20 28 31 29  .  **.  **   (1)
cde0: 20 54 68 65 20 61 75 74 68 6f 72 69 7a 61 74 69   The authorizati
cdf0: 6f 6e 20 74 79 70 65 20 28 65 78 3a 20 53 51 4c  on type (ex: SQL
ce00: 49 54 45 5f 43 52 45 41 54 45 5f 54 41 42 4c 45  ITE_CREATE_TABLE
ce10: 2c 20 53 51 4c 49 54 45 5f 49 4e 53 45 52 54 2c  , SQLITE_INSERT,
ce20: 20 2e 2e 2e 29 0a 20 20 2a 2a 20 20 20 28 32 29   ...).  **   (2)
ce30: 20 46 69 72 73 74 20 64 65 73 63 72 69 70 74 69   First descripti
ce40: 76 65 20 6e 61 6d 65 20 28 64 65 70 65 6e 64 73  ve name (depends
ce50: 20 6f 6e 20 61 75 74 68 6f 72 69 7a 61 74 69 6f   on authorizatio
ce60: 6e 20 74 79 70 65 29 0a 20 20 2a 2a 20 20 20 28  n type).  **   (
ce70: 33 29 20 53 65 63 6f 6e 64 20 64 65 73 63 72 69  3) Second descri
ce80: 70 74 69 76 65 20 6e 61 6d 65 0a 20 20 2a 2a 20  ptive name.  ** 
ce90: 20 20 28 34 29 20 4e 61 6d 65 20 6f 66 20 74 68    (4) Name of th
cea0: 65 20 64 61 74 61 62 61 73 65 20 28 65 78 3a 20  e database (ex: 
ceb0: 22 6d 61 69 6e 22 2c 20 22 74 65 6d 70 22 29 0a  "main", "temp").
cec0: 20 20 2a 2a 20 20 20 28 35 29 20 4e 61 6d 65 20    **   (5) Name 
ced0: 6f 66 20 74 72 69 67 67 65 72 20 74 68 61 74 20  of trigger that 
cee0: 69 73 20 64 6f 69 6e 67 20 74 68 65 20 61 63 63  is doing the acc
cef0: 65 73 73 0a 20 20 2a 2a 0a 20 20 2a 2a 20 54 68  ess.  **.  ** Th
cf00: 65 20 63 61 6c 6c 62 61 63 6b 20 73 68 6f 75 6c  e callback shoul
cf10: 64 20 72 65 74 75 72 6e 20 6f 6e 20 6f 66 20 74  d return on of t
cf20: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72  he following str
cf30: 69 6e 67 73 3a 20 53 51 4c 49 54 45 5f 4f 4b 2c  ings: SQLITE_OK,
cf40: 0a 20 20 2a 2a 20 53 51 4c 49 54 45 5f 49 47 4e  .  ** SQLITE_IGN
cf50: 4f 52 45 2c 20 6f 72 20 53 51 4c 49 54 45 5f 44  ORE, or SQLITE_D
cf60: 45 4e 59 2e 20 20 41 6e 79 20 6f 74 68 65 72 20  ENY.  Any other 
cf70: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20  return value is 
cf80: 61 6e 20 65 72 72 6f 72 2e 0a 20 20 2a 2a 0a 20  an error..  **. 
cf90: 20 2a 2a 20 49 66 20 74 68 69 73 20 6d 65 74 68   ** If this meth
cfa0: 6f 64 20 69 73 20 69 6e 76 6f 6b 65 64 20 77 69  od is invoked wi
cfb0: 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2c  th no arguments,
cfc0: 20 74 68 65 20 63 75 72 72 65 6e 74 20 61 75 74   the current aut
cfd0: 68 6f 72 69 7a 61 74 69 6f 6e 0a 20 20 2a 2a 20  horization.  ** 
cfe0: 63 61 6c 6c 62 61 63 6b 20 73 74 72 69 6e 67 20  callback string 
cff0: 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 20 20 2a  is returned..  *
d000: 2f 0a 20 20 63 61 73 65 20 44 42 5f 41 55 54 48  /.  case DB_AUTH
d010: 4f 52 49 5a 45 52 3a 20 7b 0a 23 69 66 64 65 66  ORIZER: {.#ifdef
d020: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 55 54   SQLITE_OMIT_AUT
d030: 48 4f 52 49 5a 41 54 49 4f 4e 0a 20 20 20 20 54  HORIZATION.    T
d040: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
d050: 69 6e 74 65 72 70 2c 20 22 61 75 74 68 6f 72 69  interp, "authori
d060: 7a 61 74 69 6f 6e 20 6e 6f 74 20 61 76 61 69 6c  zation not avail
d070: 61 62 6c 65 20 69 6e 20 74 68 69 73 20 62 75 69  able in this bui
d080: 6c 64 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  ld", 0);.    ret
d090: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23  urn TCL_ERROR;.#
d0a0: 65 6c 73 65 0a 20 20 20 20 69 66 28 20 6f 62 6a  else.    if( obj
d0b0: 63 3e 33 20 29 7b 0a 20 20 20 20 20 20 54 63 6c  c>3 ){.      Tcl
d0c0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e  _WrongNumArgs(in
d0d0: 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22  terp, 2, objv, "
d0e0: 3f 43 41 4c 4c 42 41 43 4b 3f 22 29 3b 0a 20 20  ?CALLBACK?");.  
d0f0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
d100: 52 52 4f 52 3b 0a 20 20 20 20 7d 65 6c 73 65 20  RROR;.    }else 
d110: 69 66 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20  if( objc==2 ){. 
d120: 20 20 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 41       if( pDb->zA
d130: 75 74 68 20 29 7b 0a 20 20 20 20 20 20 20 20 54  uth ){.        T
d140: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
d150: 69 6e 74 65 72 70 2c 20 70 44 62 2d 3e 7a 41 75  interp, pDb->zAu
d160: 74 68 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a  th, 0);.      }.
d170: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
d180: 20 63 68 61 72 20 2a 7a 41 75 74 68 3b 0a 20 20   char *zAuth;.  
d190: 20 20 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 20      int len;.   
d1a0: 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 41 75 74     if( pDb->zAut
d1b0: 68 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c  h ){.        Tcl
d1c0: 5f 46 72 65 65 28 70 44 62 2d 3e 7a 41 75 74 68  _Free(pDb->zAuth
d1d0: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  );.      }.     
d1e0: 20 7a 41 75 74 68 20 3d 20 54 63 6c 5f 47 65 74   zAuth = Tcl_Get
d1f0: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62  StringFromObj(ob
d200: 6a 76 5b 32 5d 2c 20 26 6c 65 6e 29 3b 0a 20 20  jv[2], &len);.  
d210: 20 20 20 20 69 66 28 20 7a 41 75 74 68 20 26 26      if( zAuth &&
d220: 20 6c 65 6e 3e 30 20 29 7b 0a 20 20 20 20 20 20   len>0 ){.      
d230: 20 20 70 44 62 2d 3e 7a 41 75 74 68 20 3d 20 54    pDb->zAuth = T
d240: 63 6c 5f 41 6c 6c 6f 63 28 20 6c 65 6e 20 2b 20  cl_Alloc( len + 
d250: 31 20 29 3b 0a 20 20 20 20 20 20 20 20 6d 65 6d  1 );.        mem
d260: 63 70 79 28 70 44 62 2d 3e 7a 41 75 74 68 2c 20  cpy(pDb->zAuth, 
d270: 7a 41 75 74 68 2c 20 6c 65 6e 2b 31 29 3b 0a 20  zAuth, len+1);. 
d280: 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20       }else{.    
d290: 20 20 20 20 70 44 62 2d 3e 7a 41 75 74 68 20 3d      pDb->zAuth =
d2a0: 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20   0;.      }.    
d2b0: 20 20 69 66 28 20 70 44 62 2d 3e 7a 41 75 74 68    if( pDb->zAuth
d2c0: 20 29 7b 0a 20 20 20 20 20 20 20 20 70 44 62 2d   ){.        pDb-
d2d0: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70  >interp = interp
d2e0: 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65  ;.        sqlite
d2f0: 33 5f 73 65 74 5f 61 75 74 68 6f 72 69 7a 65 72  3_set_authorizer
d300: 28 70 44 62 2d 3e 64 62 2c 20 61 75 74 68 5f 63  (pDb->db, auth_c
d310: 61 6c 6c 62 61 63 6b 2c 20 70 44 62 29 3b 0a 20  allback, pDb);. 
d320: 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20       }else{.    
d330: 20 20 20 20 73 71 6c 69 74 65 33 5f 73 65 74 5f      sqlite3_set_
d340: 61 75 74 68 6f 72 69 7a 65 72 28 70 44 62 2d 3e  authorizer(pDb->
d350: 64 62 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20  db, 0, 0);.     
d360: 20 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a   }.    }.#endif.
d370: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a      break;.  }..
d380: 20 20 2f 2a 20 20 20 20 24 64 62 20 62 61 63 6b    /*    $db back
d390: 75 70 20 3f 44 41 54 41 42 41 53 45 3f 20 46 49  up ?DATABASE? FI
d3a0: 4c 45 4e 41 4d 45 0a 20 20 2a 2a 0a 20 20 2a 2a  LENAME.  **.  **
d3b0: 20 4f 70 65 6e 20 6f 72 20 63 72 65 61 74 65 20   Open or create 
d3c0: 61 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20  a database file 
d3d0: 6e 61 6d 65 64 20 46 49 4c 45 4e 41 4d 45 2e 20  named FILENAME. 
d3e0: 20 54 72 61 6e 73 66 65 72 20 74 68 65 0a 20 20   Transfer the.  
d3f0: 2a 2a 20 63 6f 6e 74 65 6e 74 20 6f 66 20 6c 6f  ** content of lo
d400: 63 61 6c 20 64 61 74 61 62 61 73 65 20 44 41 54  cal database DAT
d410: 41 42 41 53 45 20 28 64 65 66 61 75 6c 74 3a 20  ABASE (default: 
d420: 22 6d 61 69 6e 22 29 20 69 6e 74 6f 20 74 68 65  "main") into the
d430: 0a 20 20 2a 2a 20 46 49 4c 45 4e 41 4d 45 20 64  .  ** FILENAME d
d440: 61 74 61 62 61 73 65 2e 0a 20 20 2a 2f 0a 20 20  atabase..  */.  
d450: 63 61 73 65 20 44 42 5f 42 41 43 4b 55 50 3a 20  case DB_BACKUP: 
d460: 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72  {.    const char
d470: 20 2a 7a 44 65 73 74 46 69 6c 65 3b 0a 20 20 20   *zDestFile;.   
d480: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 72   const char *zSr
d490: 63 44 62 3b 0a 20 20 20 20 73 71 6c 69 74 65 33  cDb;.    sqlite3
d4a0: 20 2a 70 44 65 73 74 3b 0a 20 20 20 20 73 71 6c   *pDest;.    sql
d4b0: 69 74 65 33 5f 62 61 63 6b 75 70 20 2a 70 42 61  ite3_backup *pBa
d4c0: 63 6b 75 70 3b 0a 0a 20 20 20 20 69 66 28 20 6f  ckup;..    if( o
d4d0: 62 6a 63 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20  bjc==3 ){.      
d4e0: 7a 53 72 63 44 62 20 3d 20 22 6d 61 69 6e 22 3b  zSrcDb = "main";
d4f0: 0a 20 20 20 20 20 20 7a 44 65 73 74 46 69 6c 65  .      zDestFile
d500: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
d510: 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 20 20 7d  (objv[2]);.    }
d520: 65 6c 73 65 20 69 66 28 20 6f 62 6a 63 3d 3d 34  else if( objc==4
d530: 20 29 7b 0a 20 20 20 20 20 20 7a 53 72 63 44 62   ){.      zSrcDb
d540: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
d550: 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 20 20 20  (objv[2]);.     
d560: 20 7a 44 65 73 74 46 69 6c 65 20 3d 20 54 63 6c   zDestFile = Tcl
d570: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
d580: 33 5d 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a  3]);.    }else{.
d590: 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e        Tcl_WrongN
d5a0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32  umArgs(interp, 2
d5b0: 2c 20 6f 62 6a 76 2c 20 22 3f 44 41 54 41 42 41  , objv, "?DATABA
d5c0: 53 45 3f 20 46 49 4c 45 4e 41 4d 45 22 29 3b 0a  SE? FILENAME");.
d5d0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
d5e0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20  _ERROR;.    }.  
d5f0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 6f    rc = sqlite3_o
d600: 70 65 6e 28 7a 44 65 73 74 46 69 6c 65 2c 20 26  pen(zDestFile, &
d610: 70 44 65 73 74 29 3b 0a 20 20 20 20 69 66 28 20  pDest);.    if( 
d620: 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b  rc!=SQLITE_OK ){
d630: 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  .      Tcl_Appen
d640: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
d650: 22 63 61 6e 6e 6f 74 20 6f 70 65 6e 20 74 61 72  "cannot open tar
d660: 67 65 74 20 64 61 74 61 62 61 73 65 3a 20 22 2c  get database: ",
d670: 0a 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 69  .           sqli
d680: 74 65 33 5f 65 72 72 6d 73 67 28 70 44 65 73 74  te3_errmsg(pDest
d690: 29 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20  ), (char*)0);.  
d6a0: 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73      sqlite3_clos
d6b0: 65 28 70 44 65 73 74 29 3b 0a 20 20 20 20 20 20  e(pDest);.      
d6c0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
d6d0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70 42 61 63  ;.    }.    pBac
d6e0: 6b 75 70 20 3d 20 73 71 6c 69 74 65 33 5f 62 61  kup = sqlite3_ba
d6f0: 63 6b 75 70 5f 69 6e 69 74 28 70 44 65 73 74 2c  ckup_init(pDest,
d700: 20 22 6d 61 69 6e 22 2c 20 70 44 62 2d 3e 64 62   "main", pDb->db
d710: 2c 20 7a 53 72 63 44 62 29 3b 0a 20 20 20 20 69  , zSrcDb);.    i
d720: 66 28 20 70 42 61 63 6b 75 70 3d 3d 30 20 29 7b  f( pBackup==0 ){
d730: 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  .      Tcl_Appen
d740: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
d750: 22 62 61 63 6b 75 70 20 66 61 69 6c 65 64 3a 20  "backup failed: 
d760: 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 73 71  ",.           sq
d770: 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 70 44 65  lite3_errmsg(pDe
d780: 73 74 29 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a  st), (char*)0);.
d790: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6c        sqlite3_cl
d7a0: 6f 73 65 28 70 44 65 73 74 29 3b 0a 20 20 20 20  ose(pDest);.    
d7b0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
d7c0: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 77 68  OR;.    }.    wh
d7d0: 69 6c 65 28 20 20 28 72 63 20 3d 20 73 71 6c 69  ile(  (rc = sqli
d7e0: 74 65 33 5f 62 61 63 6b 75 70 5f 73 74 65 70 28  te3_backup_step(
d7f0: 70 42 61 63 6b 75 70 2c 31 30 30 29 29 3d 3d 53  pBackup,100))==S
d800: 51 4c 49 54 45 5f 4f 4b 20 29 7b 7d 0a 20 20 20  QLITE_OK ){}.   
d810: 20 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f   sqlite3_backup_
d820: 66 69 6e 69 73 68 28 70 42 61 63 6b 75 70 29 3b  finish(pBackup);
d830: 0a 20 20 20 20 69 66 28 20 72 63 3d 3d 53 51 4c  .    if( rc==SQL
d840: 49 54 45 5f 44 4f 4e 45 20 29 7b 0a 20 20 20 20  ITE_DONE ){.    
d850: 20 20 72 63 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20    rc = TCL_OK;. 
d860: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
d870: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
d880: 28 69 6e 74 65 72 70 2c 20 22 62 61 63 6b 75 70  (interp, "backup
d890: 20 66 61 69 6c 65 64 3a 20 22 2c 0a 20 20 20 20   failed: ",.    
d8a0: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 65         sqlite3_e
d8b0: 72 72 6d 73 67 28 70 44 65 73 74 29 2c 20 28 63  rrmsg(pDest), (c
d8c0: 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 20 20 72  har*)0);.      r
d8d0: 63 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  c = TCL_ERROR;. 
d8e0: 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33     }.    sqlite3
d8f0: 5f 63 6c 6f 73 65 28 70 44 65 73 74 29 3b 0a 20  _close(pDest);. 
d900: 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20     break;.  }.. 
d910: 20 2f 2a 20 20 20 20 24 64 62 20 62 75 73 79 20   /*    $db busy 
d920: 3f 43 41 4c 4c 42 41 43 4b 3f 0a 20 20 2a 2a 0a  ?CALLBACK?.  **.
d930: 20 20 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20    ** Invoke the 
d940: 67 69 76 65 6e 20 63 61 6c 6c 62 61 63 6b 20 69  given callback i
d950: 66 20 61 6e 20 53 51 4c 20 73 74 61 74 65 6d 65  f an SQL stateme
d960: 6e 74 20 61 74 74 65 6d 70 74 73 20 74 6f 20 6f  nt attempts to o
d970: 70 65 6e 0a 20 20 2a 2a 20 61 20 6c 6f 63 6b 65  pen.  ** a locke
d980: 64 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 2e  d database file.
d990: 0a 20 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f  .  */.  case DB_
d9a0: 42 55 53 59 3a 20 7b 0a 20 20 20 20 69 66 28 20  BUSY: {.    if( 
d9b0: 6f 62 6a 63 3e 33 20 29 7b 0a 20 20 20 20 20 20  objc>3 ){.      
d9c0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
d9d0: 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76  (interp, 2, objv
d9e0: 2c 20 22 43 41 4c 4c 42 41 43 4b 22 29 3b 0a 20  , "CALLBACK");. 
d9f0: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
da00: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 65 6c 73 65  ERROR;.    }else
da10: 20 69 66 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a   if( objc==2 ){.
da20: 20 20 20 20 20 20 69 66 28 20 70 44 62 2d 3e 7a        if( pDb->z
da30: 42 75 73 79 20 29 7b 0a 20 20 20 20 20 20 20 20  Busy ){.        
da40: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
da50: 28 69 6e 74 65 72 70 2c 20 70 44 62 2d 3e 7a 42  (interp, pDb->zB
da60: 75 73 79 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d  usy, 0);.      }
da70: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  .    }else{.    
da80: 20 20 63 68 61 72 20 2a 7a 42 75 73 79 3b 0a 20    char *zBusy;. 
da90: 20 20 20 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20       int len;.  
daa0: 20 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 42 75      if( pDb->zBu
dab0: 73 79 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63  sy ){.        Tc
dac0: 6c 5f 46 72 65 65 28 70 44 62 2d 3e 7a 42 75 73  l_Free(pDb->zBus
dad0: 79 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  y);.      }.    
dae0: 20 20 7a 42 75 73 79 20 3d 20 54 63 6c 5f 47 65    zBusy = Tcl_Ge
daf0: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f  tStringFromObj(o
db00: 62 6a 76 5b 32 5d 2c 20 26 6c 65 6e 29 3b 0a 20  bjv[2], &len);. 
db10: 20 20 20 20 20 69 66 28 20 7a 42 75 73 79 20 26       if( zBusy &
db20: 26 20 6c 65 6e 3e 30 20 29 7b 0a 20 20 20 20 20  & len>0 ){.     
db30: 20 20 20 70 44 62 2d 3e 7a 42 75 73 79 20 3d 20     pDb->zBusy = 
db40: 54 63 6c 5f 41 6c 6c 6f 63 28 20 6c 65 6e 20 2b  Tcl_Alloc( len +
db50: 20 31 20 29 3b 0a 20 20 20 20 20 20 20 20 6d 65   1 );.        me
db60: 6d 63 70 79 28 70 44 62 2d 3e 7a 42 75 73 79 2c  mcpy(pDb->zBusy,
db70: 20 7a 42 75 73 79 2c 20 6c 65 6e 2b 31 29 3b 0a   zBusy, len+1);.
db80: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20        }else{.   
db90: 20 20 20 20 20 70 44 62 2d 3e 7a 42 75 73 79 20       pDb->zBusy 
dba0: 3d 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  = 0;.      }.   
dbb0: 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 42 75 73     if( pDb->zBus
dbc0: 79 20 29 7b 0a 20 20 20 20 20 20 20 20 70 44 62  y ){.        pDb
dbd0: 2d 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72  ->interp = inter
dbe0: 70 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74  p;.        sqlit
dbf0: 65 33 5f 62 75 73 79 5f 68 61 6e 64 6c 65 72 28  e3_busy_handler(
dc00: 70 44 62 2d 3e 64 62 2c 20 44 62 42 75 73 79 48  pDb->db, DbBusyH
dc10: 61 6e 64 6c 65 72 2c 20 70 44 62 29 3b 0a 20 20  andler, pDb);.  
dc20: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
dc30: 20 20 20 73 71 6c 69 74 65 33 5f 62 75 73 79 5f     sqlite3_busy_
dc40: 68 61 6e 64 6c 65 72 28 70 44 62 2d 3e 64 62 2c  handler(pDb->db,
dc50: 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a   0, 0);.      }.
dc60: 20 20 20 20 7d 0a 20 20 20 20 62 72 65 61 6b 3b      }.    break;
dc70: 0a 20 20 7d 0a 0a 20 20 2f 2a 20 20 20 20 20 24  .  }..  /*     $
dc80: 64 62 20 63 61 63 68 65 20 66 6c 75 73 68 0a 20  db cache flush. 
dc90: 20 2a 2a 20 20 20 20 20 24 64 62 20 63 61 63 68   **     $db cach
dca0: 65 20 73 69 7a 65 20 6e 0a 20 20 2a 2a 0a 20 20  e size n.  **.  
dcb0: 2a 2a 20 46 6c 75 73 68 20 74 68 65 20 70 72 65  ** Flush the pre
dcc0: 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 20  pared statement 
dcd0: 63 61 63 68 65 2c 20 6f 72 20 73 65 74 20 74 68  cache, or set th
dce0: 65 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72  e maximum number
dcf0: 20 6f 66 0a 20 20 2a 2a 20 63 61 63 68 65 64 20   of.  ** cached 
dd00: 73 74 61 74 65 6d 65 6e 74 73 2e 0a 20 20 2a 2f  statements..  */
dd10: 0a 20 20 63 61 73 65 20 44 42 5f 43 41 43 48 45  .  case DB_CACHE
dd20: 3a 20 7b 0a 20 20 20 20 63 68 61 72 20 2a 73 75  : {.    char *su
dd30: 62 43 6d 64 3b 0a 20 20 20 20 69 6e 74 20 6e 3b  bCmd;.    int n;
dd40: 0a 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 3c 3d  ..    if( objc<=
dd50: 32 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57  2 ){.      Tcl_W
dd60: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
dd70: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 61  rp, 1, objv, "ca
dd80: 63 68 65 20 6f 70 74 69 6f 6e 20 3f 61 72 67 3f  che option ?arg?
dd90: 22 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  ");.      return
dda0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
ddb0: 7d 0a 20 20 20 20 73 75 62 43 6d 64 20 3d 20 54  }.    subCmd = T
ddc0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
ddd0: 4f 62 6a 28 20 6f 62 6a 76 5b 32 5d 2c 20 30 20  Obj( objv[2], 0 
dde0: 29 3b 0a 20 20 20 20 69 66 28 20 2a 73 75 62 43  );.    if( *subC
ddf0: 6d 64 3d 3d 27 66 27 20 26 26 20 73 74 72 63 6d  md=='f' && strcm
de00: 70 28 73 75 62 43 6d 64 2c 22 66 6c 75 73 68 22  p(subCmd,"flush"
de10: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 66  )==0 ){.      if
de20: 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20  ( objc!=3 ){.   
de30: 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75       Tcl_WrongNu
de40: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c  mArgs(interp, 2,
de50: 20 6f 62 6a 76 2c 20 22 66 6c 75 73 68 22 29 3b   objv, "flush");
de60: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
de70: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
de80: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
de90: 66 6c 75 73 68 53 74 6d 74 43 61 63 68 65 28 20  flushStmtCache( 
dea0: 70 44 62 20 29 3b 0a 20 20 20 20 20 20 7d 0a 20  pDb );.      }. 
deb0: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 2a 73 75     }else if( *su
dec0: 62 43 6d 64 3d 3d 27 73 27 20 26 26 20 73 74 72  bCmd=='s' && str
ded0: 63 6d 70 28 73 75 62 43 6d 64 2c 22 73 69 7a 65  cmp(subCmd,"size
dee0: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 69  ")==0 ){.      i
def0: 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20  f( objc!=4 ){.  
df00: 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e        Tcl_WrongN
df10: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32  umArgs(interp, 2
df20: 2c 20 6f 62 6a 76 2c 20 22 73 69 7a 65 20 6e 22  , objv, "size n"
df30: 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  );.        retur
df40: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
df50: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
df60: 20 20 69 66 28 20 54 43 4c 5f 45 52 52 4f 52 3d    if( TCL_ERROR=
df70: 3d 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f  =Tcl_GetIntFromO
df80: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b  bj(interp, objv[
df90: 33 5d 2c 20 26 6e 29 20 29 7b 0a 20 20 20 20 20  3], &n) ){.     
dfa0: 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52       Tcl_AppendR
dfb0: 65 73 75 6c 74 28 20 69 6e 74 65 72 70 2c 20 22  esult( interp, "
dfc0: 63 61 6e 6e 6f 74 20 63 6f 6e 76 65 72 74 20 5c  cannot convert \
dfd0: 22 22 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20  "", .           
dfe0: 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e      Tcl_GetStrin
dff0: 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d  gFromObj(objv[3]
e000: 2c 30 29 2c 20 22 5c 22 20 74 6f 20 69 6e 74 65  ,0), "\" to inte
e010: 67 65 72 22 2c 20 30 29 3b 0a 20 20 20 20 20 20  ger", 0);.      
e020: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
e030: 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d 65  RROR;.        }e
e040: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 69  lse{.          i
e050: 66 28 20 6e 3c 30 20 29 7b 0a 20 20 20 20 20 20  f( n<0 ){.      
e060: 20 20 20 20 20 20 66 6c 75 73 68 53 74 6d 74 43        flushStmtC
e070: 61 63 68 65 28 20 70 44 62 20 29 3b 0a 20 20 20  ache( pDb );.   
e080: 20 20 20 20 20 20 20 20 20 6e 20 3d 20 30 3b 0a           n = 0;.
e090: 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 20            }else 
e0a0: 69 66 28 20 6e 3e 4d 41 58 5f 50 52 45 50 41 52  if( n>MAX_PREPAR
e0b0: 45 44 5f 53 54 4d 54 53 20 29 7b 0a 20 20 20 20  ED_STMTS ){.    
e0c0: 20 20 20 20 20 20 20 20 6e 20 3d 20 4d 41 58 5f          n = MAX_
e0d0: 50 52 45 50 41 52 45 44 5f 53 54 4d 54 53 3b 0a  PREPARED_STMTS;.
e0e0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
e0f0: 20 20 20 20 20 20 70 44 62 2d 3e 6d 61 78 53 74        pDb->maxSt
e100: 6d 74 20 3d 20 6e 3b 0a 20 20 20 20 20 20 20 20  mt = n;.        
e110: 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 65  }.      }.    }e
e120: 6c 73 65 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41  lse{.      Tcl_A
e130: 70 70 65 6e 64 52 65 73 75 6c 74 28 20 69 6e 74  ppendResult( int
e140: 65 72 70 2c 20 22 62 61 64 20 6f 70 74 69 6f 6e  erp, "bad option
e150: 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 20 20   \"", .         
e160: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72   Tcl_GetStringFr
e170: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 30 29  omObj(objv[2],0)
e180: 2c 20 22 5c 22 3a 20 6d 75 73 74 20 62 65 20 66  , "\": must be f
e190: 6c 75 73 68 20 6f 72 20 73 69 7a 65 22 2c 20 30  lush or size", 0
e1a0: 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  );.      return 
e1b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
e1c0: 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a  .    break;.  }.
e1d0: 0a 20 20 2f 2a 20 20 20 20 20 24 64 62 20 63 68  .  /*     $db ch
e1e0: 61 6e 67 65 73 0a 20 20 2a 2a 0a 20 20 2a 2a 20  anges.  **.  ** 
e1f0: 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65  Return the numbe
e200: 72 20 6f 66 20 72 6f 77 73 20 74 68 61 74 20 77  r of rows that w
e210: 65 72 65 20 6d 6f 64 69 66 69 65 64 2c 20 69 6e  ere modified, in
e220: 73 65 72 74 65 64 2c 20 6f 72 20 64 65 6c 65 74  serted, or delet
e230: 65 64 20 62 79 0a 20 20 2a 2a 20 74 68 65 20 6d  ed by.  ** the m
e240: 6f 73 74 20 72 65 63 65 6e 74 20 49 4e 53 45 52  ost recent INSER
e250: 54 2c 20 55 50 44 41 54 45 20 6f 72 20 44 45 4c  T, UPDATE or DEL
e260: 45 54 45 20 73 74 61 74 65 6d 65 6e 74 2c 20 6e  ETE statement, n
e270: 6f 74 20 69 6e 63 6c 75 64 69 6e 67 20 0a 20 20  ot including .  
e280: 2a 2a 20 61 6e 79 20 63 68 61 6e 67 65 73 20 6d  ** any changes m
e290: 61 64 65 20 62 79 20 74 72 69 67 67 65 72 20 70  ade by trigger p
e2a0: 72 6f 67 72 61 6d 73 2e 0a 20 20 2a 2f 0a 20 20  rograms..  */.  
e2b0: 63 61 73 65 20 44 42 5f 43 48 41 4e 47 45 53 3a  case DB_CHANGES:
e2c0: 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a   {.    Tcl_Obj *
e2d0: 70 52 65 73 75 6c 74 3b 0a 20 20 20 20 69 66 28  pResult;.    if(
e2e0: 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20   objc!=2 ){.    
e2f0: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72    Tcl_WrongNumAr
e300: 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62  gs(interp, 2, ob
e310: 6a 76 2c 20 22 22 29 3b 0a 20 20 20 20 20 20 72  jv, "");.      r
e320: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
e330: 0a 20 20 20 20 7d 0a 20 20 20 20 70 52 65 73 75  .    }.    pResu
e340: 6c 74 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52  lt = Tcl_GetObjR
e350: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20  esult(interp);. 
e360: 20 20 20 54 63 6c 5f 53 65 74 49 6e 74 4f 62 6a     Tcl_SetIntObj
e370: 28 70 52 65 73 75 6c 74 2c 20 73 71 6c 69 74 65  (pResult, sqlite
e380: 33 5f 63 68 61 6e 67 65 73 28 70 44 62 2d 3e 64  3_changes(pDb->d
e390: 62 29 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a  b));.    break;.
e3a0: 20 20 7d 0a 0a 20 20 2f 2a 20 20 20 20 24 64 62    }..  /*    $db
e3b0: 20 63 6c 6f 73 65 0a 20 20 2a 2a 0a 20 20 2a 2a   close.  **.  **
e3c0: 20 53 68 75 74 64 6f 77 6e 20 74 68 65 20 64 61   Shutdown the da
e3d0: 74 61 62 61 73 65 0a 20 20 2a 2f 0a 20 20 63 61  tabase.  */.  ca
e3e0: 73 65 20 44 42 5f 43 4c 4f 53 45 3a 20 7b 0a 20  se DB_CLOSE: {. 
e3f0: 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 43 6f 6d     Tcl_DeleteCom
e400: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 54 63 6c  mand(interp, Tcl
e410: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62  _GetStringFromOb
e420: 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 29 3b 0a  j(objv[0], 0));.
e430: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a      break;.  }..
e440: 20 20 2f 2a 0a 20 20 2a 2a 20 20 20 20 20 24 64    /*.  **     $d
e450: 62 20 63 6f 6c 6c 61 74 65 20 4e 41 4d 45 20 53  b collate NAME S
e460: 43 52 49 50 54 0a 20 20 2a 2a 0a 20 20 2a 2a 20  CRIPT.  **.  ** 
e470: 43 72 65 61 74 65 20 61 20 6e 65 77 20 53 51 4c  Create a new SQL
e480: 20 63 6f 6c 6c 61 74 69 6f 6e 20 66 75 6e 63 74   collation funct
e490: 69 6f 6e 20 63 61 6c 6c 65 64 20 4e 41 4d 45 2e  ion called NAME.
e4a0: 20 20 57 68 65 6e 65 76 65 72 0a 20 20 2a 2a 20    Whenever.  ** 
e4b0: 74 68 61 74 20 66 75 6e 63 74 69 6f 6e 20 69 73  that function is
e4c0: 20 63 61 6c 6c 65 64 2c 20 69 6e 76 6f 6b 65 20   called, invoke 
e4d0: 53 43 52 49 50 54 20 74 6f 20 65 76 61 6c 75 61  SCRIPT to evalua
e4e0: 74 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 2e  te the function.
e4f0: 0a 20 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f  .  */.  case DB_
e500: 43 4f 4c 4c 41 54 45 3a 20 7b 0a 20 20 20 20 53  COLLATE: {.    S
e510: 71 6c 43 6f 6c 6c 61 74 65 20 2a 70 43 6f 6c 6c  qlCollate *pColl
e520: 61 74 65 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a  ate;.    char *z
e530: 4e 61 6d 65 3b 0a 20 20 20 20 63 68 61 72 20 2a  Name;.    char *
e540: 7a 53 63 72 69 70 74 3b 0a 20 20 20 20 69 6e 74  zScript;.    int
e550: 20 6e 53 63 72 69 70 74 3b 0a 20 20 20 20 69 66   nScript;.    if
e560: 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20  ( objc!=4 ){.   
e570: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41     Tcl_WrongNumA
e580: 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f  rgs(interp, 2, o
e590: 62 6a 76 2c 20 22 4e 41 4d 45 20 53 43 52 49 50  bjv, "NAME SCRIP
e5a0: 54 22 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72  T");.      retur
e5b0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
e5c0: 20 7d 0a 20 20 20 20 7a 4e 61 6d 65 20 3d 20 54   }.    zName = T
e5d0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
e5e0: 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 30 29 3b  Obj(objv[2], 0);
e5f0: 0a 20 20 20 20 7a 53 63 72 69 70 74 20 3d 20 54  .    zScript = T
e600: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
e610: 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 53  Obj(objv[3], &nS
e620: 63 72 69 70 74 29 3b 0a 20 20 20 20 70 43 6f 6c  cript);.    pCol
e630: 6c 61 74 65 20 3d 20 28 53 71 6c 43 6f 6c 6c 61  late = (SqlColla
e640: 74 65 2a 29 54 63 6c 5f 41 6c 6c 6f 63 28 20 73  te*)Tcl_Alloc( s
e650: 69 7a 65 6f 66 28 2a 70 43 6f 6c 6c 61 74 65 29  izeof(*pCollate)
e660: 20 2b 20 6e 53 63 72 69 70 74 20 2b 20 31 20 29   + nScript + 1 )
e670: 3b 0a 20 20 20 20 69 66 28 20 70 43 6f 6c 6c 61  ;.    if( pColla
e680: 74 65 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 54  te==0 ) return T
e690: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 70 43  CL_ERROR;.    pC
e6a0: 6f 6c 6c 61 74 65 2d 3e 69 6e 74 65 72 70 20 3d  ollate->interp =
e6b0: 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 70 43 6f   interp;.    pCo
e6c0: 6c 6c 61 74 65 2d 3e 70 4e 65 78 74 20 3d 20 70  llate->pNext = p
e6d0: 44 62 2d 3e 70 43 6f 6c 6c 61 74 65 3b 0a 20 20  Db->pCollate;.  
e6e0: 20 20 70 43 6f 6c 6c 61 74 65 2d 3e 7a 53 63 72    pCollate->zScr
e6f0: 69 70 74 20 3d 20 28 63 68 61 72 2a 29 26 70 43  ipt = (char*)&pC
e700: 6f 6c 6c 61 74 65 5b 31 5d 3b 0a 20 20 20 20 70  ollate[1];.    p
e710: 44 62 2d 3e 70 43 6f 6c 6c 61 74 65 20 3d 20 70  Db->pCollate = p
e720: 43 6f 6c 6c 61 74 65 3b 0a 20 20 20 20 6d 65 6d  Collate;.    mem
e730: 63 70 79 28 70 43 6f 6c 6c 61 74 65 2d 3e 7a 53  cpy(pCollate->zS
e740: 63 72 69 70 74 2c 20 7a 53 63 72 69 70 74 2c 20  cript, zScript, 
e750: 6e 53 63 72 69 70 74 2b 31 29 3b 0a 20 20 20 20  nScript+1);.    
e760: 69 66 28 20 73 71 6c 69 74 65 33 5f 63 72 65 61  if( sqlite3_crea
e770: 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 70 44 62  te_collation(pDb
e780: 2d 3e 64 62 2c 20 7a 4e 61 6d 65 2c 20 53 51 4c  ->db, zName, SQL
e790: 49 54 45 5f 55 54 46 38 2c 20 0a 20 20 20 20 20  ITE_UTF8, .     
e7a0: 20 20 20 70 43 6f 6c 6c 61 74 65 2c 20 74 63 6c     pCollate, tcl
e7b0: 53 71 6c 43 6f 6c 6c 61 74 65 29 20 29 7b 0a 20  SqlCollate) ){. 
e7c0: 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75       Tcl_SetResu
e7d0: 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72  lt(interp, (char
e7e0: 20 2a 29 73 71 6c 69 74 65 33 5f 65 72 72 6d 73   *)sqlite3_errms
e7f0: 67 28 70 44 62 2d 3e 64 62 29 2c 20 54 43 4c 5f  g(pDb->db), TCL_
e800: 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 20  VOLATILE);.     
e810: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
e820: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 62 72 65  R;.    }.    bre
e830: 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20  ak;.  }..  /*.  
e840: 2a 2a 20 20 20 20 20 24 64 62 20 63 6f 6c 6c 61  **     $db colla
e850: 74 69 6f 6e 5f 6e 65 65 64 65 64 20 53 43 52 49  tion_needed SCRI
e860: 50 54 0a 20 20 2a 2a 0a 20 20 2a 2a 20 43 72 65  PT.  **.  ** Cre
e870: 61 74 65 20 61 20 6e 65 77 20 53 51 4c 20 63 6f  ate a new SQL co
e880: 6c 6c 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e  llation function
e890: 20 63 61 6c 6c 65 64 20 4e 41 4d 45 2e 20 20 57   called NAME.  W
e8a0: 68 65 6e 65 76 65 72 0a 20 20 2a 2a 20 74 68 61  henever.  ** tha
e8b0: 74 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61  t function is ca
e8c0: 6c 6c 65 64 2c 20 69 6e 76 6f 6b 65 20 53 43 52  lled, invoke SCR
e8d0: 49 50 54 20 74 6f 20 65 76 61 6c 75 61 74 65 20  IPT to evaluate 
e8e0: 74 68 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 20  the function..  
e8f0: 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 43 4f 4c  */.  case DB_COL
e900: 4c 41 54 49 4f 4e 5f 4e 45 45 44 45 44 3a 20 7b  LATION_NEEDED: {
e910: 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 33  .    if( objc!=3
e920: 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72   ){.      Tcl_Wr
e930: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
e940: 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 53 43 52  p, 2, objv, "SCR
e950: 49 50 54 22 29 3b 0a 20 20 20 20 20 20 72 65 74  IPT");.      ret
e960: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
e970: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 70 44 62     }.    if( pDb
e980: 2d 3e 70 43 6f 6c 6c 61 74 65 4e 65 65 64 65 64  ->pCollateNeeded
e990: 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 44 65   ){.      Tcl_De
e9a0: 63 72 52 65 66 43 6f 75 6e 74 28 70 44 62 2d 3e  crRefCount(pDb->
e9b0: 70 43 6f 6c 6c 61 74 65 4e 65 65 64 65 64 29 3b  pCollateNeeded);
e9c0: 0a 20 20 20 20 7d 0a 20 20 20 20 70 44 62 2d 3e  .    }.    pDb->
e9d0: 70 43 6f 6c 6c 61 74 65 4e 65 65 64 65 64 20 3d  pCollateNeeded =
e9e0: 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62   Tcl_DuplicateOb
e9f0: 6a 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 20 20  j(objv[2]);.    
ea00: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
ea10: 28 70 44 62 2d 3e 70 43 6f 6c 6c 61 74 65 4e 65  (pDb->pCollateNe
ea20: 65 64 65 64 29 3b 0a 20 20 20 20 73 71 6c 69 74  eded);.    sqlit
ea30: 65 33 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 6e 65 65  e3_collation_nee
ea40: 64 65 64 28 70 44 62 2d 3e 64 62 2c 20 70 44 62  ded(pDb->db, pDb
ea50: 2c 20 74 63 6c 43 6f 6c 6c 61 74 65 4e 65 65 64  , tclCollateNeed
ea60: 65 64 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a  ed);.    break;.
ea70: 20 20 7d 0a 0a 20 20 2f 2a 20 20 20 20 24 64 62    }..  /*    $db
ea80: 20 63 6f 6d 6d 69 74 5f 68 6f 6f 6b 20 3f 43 41   commit_hook ?CA
ea90: 4c 4c 42 41 43 4b 3f 0a 20 20 2a 2a 0a 20 20 2a  LLBACK?.  **.  *
eaa0: 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20 67 69 76  * Invoke the giv
eab0: 65 6e 20 63 61 6c 6c 62 61 63 6b 20 6a 75 73 74  en callback just
eac0: 20 62 65 66 6f 72 65 20 63 6f 6d 6d 69 74 74 69   before committi
ead0: 6e 67 20 65 76 65 72 79 20 53 51 4c 20 74 72 61  ng every SQL tra
eae0: 6e 73 61 63 74 69 6f 6e 2e 0a 20 20 2a 2a 20 49  nsaction..  ** I
eaf0: 66 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 74  f the callback t
eb00: 68 72 6f 77 73 20 61 6e 20 65 78 63 65 70 74 69  hrows an excepti
eb10: 6f 6e 20 6f 72 20 72 65 74 75 72 6e 73 20 6e 6f  on or returns no
eb20: 6e 2d 7a 65 72 6f 2c 20 74 68 65 6e 20 74 68 65  n-zero, then the
eb30: 0a 20 20 2a 2a 20 74 72 61 6e 73 61 63 74 69 6f  .  ** transactio
eb40: 6e 20 69 73 20 61 62 6f 72 74 65 64 2e 20 20 49  n is aborted.  I
eb50: 66 20 43 41 4c 4c 42 41 43 4b 20 69 73 20 61 6e  f CALLBACK is an
eb60: 20 65 6d 70 74 79 20 73 74 72 69 6e 67 2c 20 74   empty string, t
eb70: 68 65 20 63 61 6c 6c 62 61 63 6b 0a 20 20 2a 2a  he callback.  **
eb80: 20 69 73 20 64 69 73 61 62 6c 65 64 2e 0a 20 20   is disabled..  
eb90: 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 43 4f 4d  */.  case DB_COM
eba0: 4d 49 54 5f 48 4f 4f 4b 3a 20 7b 0a 20 20 20 20  MIT_HOOK: {.    
ebb0: 69 66 28 20 6f 62 6a 63 3e 33 20 29 7b 0a 20 20  if( objc>3 ){.  
ebc0: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
ebd0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20  Args(interp, 2, 
ebe0: 6f 62 6a 76 2c 20 22 3f 43 41 4c 4c 42 41 43 4b  objv, "?CALLBACK
ebf0: 3f 22 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72  ?");.      retur
ec00: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
ec10: 20 7d 65 6c 73 65 20 69 66 28 20 6f 62 6a 63 3d   }else if( objc=
ec20: 3d 32 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20  =2 ){.      if( 
ec30: 70 44 62 2d 3e 7a 43 6f 6d 6d 69 74 20 29 7b 0a  pDb->zCommit ){.
ec40: 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65          Tcl_Appe
ec50: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
ec60: 20 70 44 62 2d 3e 7a 43 6f 6d 6d 69 74 2c 20 30   pDb->zCommit, 0
ec70: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  );.      }.    }
ec80: 65 6c 73 65 7b 0a 20 20 20 20 20 20 63 68 61 72  else{.      char
ec90: 20 2a 7a 43 6f 6d 6d 69 74 3b 0a 20 20 20 20 20   *zCommit;.     
eca0: 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 20 20 20 20   int len;.      
ecb0: 69 66 28 20 70 44 62 2d 3e 7a 43 6f 6d 6d 69 74  if( pDb->zCommit
ecc0: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
ecd0: 46 72 65 65 28 70 44 62 2d 3e 7a 43 6f 6d 6d 69  Free(pDb->zCommi
ece0: 74 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  t);.      }.    
ecf0: 20 20 7a 43 6f 6d 6d 69 74 20 3d 20 54 63 6c 5f    zCommit = Tcl_
ed00: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a  GetStringFromObj
ed10: 28 6f 62 6a 76 5b 32 5d 2c 20 26 6c 65 6e 29 3b  (objv[2], &len);
ed20: 0a 20 20 20 20 20 20 69 66 28 20 7a 43 6f 6d 6d  .      if( zComm
ed30: 69 74 20 26 26 20 6c 65 6e 3e 30 20 29 7b 0a 20  it && len>0 ){. 
ed40: 20 20 20 20 20 20 20 70 44 62 2d 3e 7a 43 6f 6d         pDb->zCom
ed50: 6d 69 74 20 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28  mit = Tcl_Alloc(
ed60: 20 6c 65 6e 20 2b 20 31 20 29 3b 0a 20 20 20 20   len + 1 );.    
ed70: 20 20 20 20 6d 65 6d 63 70 79 28 70 44 62 2d 3e      memcpy(pDb->
ed80: 7a 43 6f 6d 6d 69 74 2c 20 7a 43 6f 6d 6d 69 74  zCommit, zCommit
ed90: 2c 20 6c 65 6e 2b 31 29 3b 0a 20 20 20 20 20 20  , len+1);.      
eda0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 70  }else{.        p
edb0: 44 62 2d 3e 7a 43 6f 6d 6d 69 74 20 3d 20 30 3b  Db->zCommit = 0;
edc0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69  .      }.      i
edd0: 66 28 20 70 44 62 2d 3e 7a 43 6f 6d 6d 69 74 20  f( pDb->zCommit 
ede0: 29 7b 0a 20 20 20 20 20 20 20 20 70 44 62 2d 3e  ){.        pDb->
edf0: 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b  interp = interp;
ee00: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33  .        sqlite3
ee10: 5f 63 6f 6d 6d 69 74 5f 68 6f 6f 6b 28 70 44 62  _commit_hook(pDb
ee20: 2d 3e 64 62 2c 20 44 62 43 6f 6d 6d 69 74 48 61  ->db, DbCommitHa
ee30: 6e 64 6c 65 72 2c 20 70 44 62 29 3b 0a 20 20 20  ndler, pDb);.   
ee40: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
ee50: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6d 6d 69 74    sqlite3_commit
ee60: 5f 68 6f 6f 6b 28 70 44 62 2d 3e 64 62 2c 20 30  _hook(pDb->db, 0
ee70: 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20  , 0);.      }.  
ee80: 20 20 7d 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20    }.    break;. 
ee90: 20 7d 0a 0a 20 20 2f 2a 20 20 20 20 24 64 62 20   }..  /*    $db 
eea0: 63 6f 6d 70 6c 65 74 65 20 53 51 4c 0a 20 20 2a  complete SQL.  *
eeb0: 2a 0a 20 20 2a 2a 20 52 65 74 75 72 6e 20 54 52  *.  ** Return TR
eec0: 55 45 20 69 66 20 53 51 4c 20 69 73 20 61 20 63  UE if SQL is a c
eed0: 6f 6d 70 6c 65 74 65 20 53 51 4c 20 73 74 61 74  omplete SQL stat
eee0: 65 6d 65 6e 74 2e 20 20 52 65 74 75 72 6e 20 46  ement.  Return F
eef0: 41 4c 53 45 20 69 66 0a 20 20 2a 2a 20 61 64 64  ALSE if.  ** add
ef00: 69 74 69 6f 6e 61 6c 20 6c 69 6e 65 73 20 6f 66  itional lines of
ef10: 20 69 6e 70 75 74 20 61 72 65 20 6e 65 65 64 65   input are neede
ef20: 64 2e 20 20 54 68 69 73 20 69 73 20 73 69 6d 69  d.  This is simi
ef30: 6c 61 72 20 74 6f 20 74 68 65 0a 20 20 2a 2a 20  lar to the.  ** 
ef40: 62 75 69 6c 74 2d 69 6e 20 22 69 6e 66 6f 20 63  built-in "info c
ef50: 6f 6d 70 6c 65 74 65 22 20 63 6f 6d 6d 61 6e 64  omplete" command
ef60: 20 6f 66 20 54 63 6c 2e 0a 20 20 2a 2f 0a 20 20   of Tcl..  */.  
ef70: 63 61 73 65 20 44 42 5f 43 4f 4d 50 4c 45 54 45  case DB_COMPLETE
ef80: 3a 20 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49  : {.#ifndef SQLI
ef90: 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 4c 45 54 45  TE_OMIT_COMPLETE
efa0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52  .    Tcl_Obj *pR
efb0: 65 73 75 6c 74 3b 0a 20 20 20 20 69 6e 74 20 69  esult;.    int i
efc0: 73 43 6f 6d 70 6c 65 74 65 3b 0a 20 20 20 20 69  sComplete;.    i
efd0: 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20  f( objc!=3 ){.  
efe0: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
eff0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20  Args(interp, 2, 
f000: 6f 62 6a 76 2c 20 22 53 51 4c 22 29 3b 0a 20 20  objv, "SQL");.  
f010: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
f020: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20  RROR;.    }.    
f030: 69 73 43 6f 6d 70 6c 65 74 65 20 3d 20 73 71 6c  isComplete = sql
f040: 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 28 20 54  ite3_complete( T
f050: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
f060: 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 30 29 20  Obj(objv[2], 0) 
f070: 29 3b 0a 20 20 20 20 70 52 65 73 75 6c 74 20 3d  );.    pResult =
f080: 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c   Tcl_GetObjResul
f090: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54  t(interp);.    T
f0a0: 63 6c 5f 53 65 74 42 6f 6f 6c 65 61 6e 4f 62 6a  cl_SetBooleanObj
f0b0: 28 70 52 65 73 75 6c 74 2c 20 69 73 43 6f 6d 70  (pResult, isComp
f0c0: 6c 65 74 65 29 3b 0a 23 65 6e 64 69 66 0a 20 20  lete);.#endif.  
f0d0: 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20    break;.  }..  
f0e0: 2f 2a 20 20 20 20 24 64 62 20 63 6f 70 79 20 63  /*    $db copy c
f0f0: 6f 6e 66 6c 69 63 74 2d 61 6c 67 6f 72 69 74 68  onflict-algorith
f100: 6d 20 74 61 62 6c 65 20 66 69 6c 65 6e 61 6d 65  m table filename
f110: 20 3f 53 45 50 41 52 41 54 4f 52 3f 20 3f 4e 55   ?SEPARATOR? ?NU
f120: 4c 4c 49 4e 44 49 43 41 54 4f 52 3f 0a 20 20 2a  LLINDICATOR?.  *
f130: 2a 0a 20 20 2a 2a 20 43 6f 70 79 20 64 61 74 61  *.  ** Copy data
f140: 20 69 6e 74 6f 20 74 61 62 6c 65 20 66 72 6f 6d   into table from
f150: 20 66 69 6c 65 6e 61 6d 65 2c 20 6f 70 74 69 6f   filename, optio
f160: 6e 61 6c 6c 79 20 75 73 69 6e 67 20 53 45 50 41  nally using SEPA
f170: 52 41 54 4f 52 0a 20 20 2a 2a 20 61 73 20 63 6f  RATOR.  ** as co
f180: 6c 75 6d 6e 20 73 65 70 61 72 61 74 6f 72 73 2e  lumn separators.
f190: 20 20 49 66 20 61 20 63 6f 6c 75 6d 6e 20 63 6f    If a column co
f1a0: 6e 74 61 69 6e 73 20 61 20 6e 75 6c 6c 20 73 74  ntains a null st
f1b0: 72 69 6e 67 2c 20 6f 72 20 74 68 65 0a 20 20 2a  ring, or the.  *
f1c0: 2a 20 76 61 6c 75 65 20 6f 66 20 4e 55 4c 4c 49  * value of NULLI
f1d0: 4e 44 49 43 41 54 4f 52 2c 20 61 20 4e 55 4c 4c  NDICATOR, a NULL
f1e0: 20 69 73 20 69 6e 73 65 72 74 65 64 20 66 6f 72   is inserted for
f1f0: 20 74 68 65 20 63 6f 6c 75 6d 6e 2e 0a 20 20 2a   the column..  *
f200: 2a 20 63 6f 6e 66 6c 69 63 74 2d 61 6c 67 6f 72  * conflict-algor
f210: 69 74 68 6d 20 69 73 20 6f 6e 65 20 6f 66 20 74  ithm is one of t
f220: 68 65 20 73 71 6c 69 74 65 20 63 6f 6e 66 6c 69  he sqlite confli
f230: 63 74 20 61 6c 67 6f 72 69 74 68 6d 73 3a 0a 20  ct algorithms:. 
f240: 20 2a 2a 20 20 20 20 72 6f 6c 6c 62 61 63 6b 2c   **    rollback,
f250: 20 61 62 6f 72 74 2c 20 66 61 69 6c 2c 20 69 67   abort, fail, ig
f260: 6e 6f 72 65 2c 20 72 65 70 6c 61 63 65 0a 20 20  nore, replace.  
f270: 2a 2a 20 4f 6e 20 73 75 63 63 65 73 73 2c 20 72  ** On success, r
f280: 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72  eturn the number
f290: 20 6f 66 20 6c 69 6e 65 73 20 70 72 6f 63 65 73   of lines proces
f2a0: 73 65 64 2c 20 6e 6f 74 20 6e 65 63 65 73 73 61  sed, not necessa
f2b0: 72 69 6c 79 20 73 61 6d 65 0a 20 20 2a 2a 20 61  rily same.  ** a
f2c0: 73 20 27 64 62 20 63 68 61 6e 67 65 73 27 20 64  s 'db changes' d
f2d0: 75 65 20 74 6f 20 63 6f 6e 66 6c 69 63 74 2d 61  ue to conflict-a
f2e0: 6c 67 6f 72 69 74 68 6d 20 73 65 6c 65 63 74 65  lgorithm selecte
f2f0: 64 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 54 68 69  d..  **.  ** Thi
f300: 73 20 63 6f 64 65 20 69 73 20 62 61 73 69 63 61  s code is basica
f310: 6c 6c 79 20 61 6e 20 69 6d 70 6c 65 6d 65 6e 74  lly an implement
f320: 61 74 69 6f 6e 2f 65 6e 68 61 6e 63 65 6d 65 6e  ation/enhancemen
f330: 74 20 6f 66 0a 20 20 2a 2a 20 74 68 65 20 73 71  t of.  ** the sq
f340: 6c 69 74 65 33 20 73 68 65 6c 6c 2e 63 20 22 2e  lite3 shell.c ".
f350: 69 6d 70 6f 72 74 22 20 63 6f 6d 6d 61 6e 64 2e  import" command.
f360: 0a 20 20 2a 2a 0a 20 20 2a 2a 20 54 68 69 73 20  .  **.  ** This 
f370: 63 6f 6d 6d 61 6e 64 20 75 73 61 67 65 20 69 73  command usage is
f380: 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 74   equivalent to t
f390: 68 65 20 73 71 6c 69 74 65 32 2e 78 20 43 4f 50  he sqlite2.x COP
f3a0: 59 20 73 74 61 74 65 6d 65 6e 74 2c 0a 20 20 2a  Y statement,.  *
f3b0: 2a 20 77 68 69 63 68 20 69 6d 70 6f 72 74 73 20  * which imports 
f3c0: 66 69 6c 65 20 64 61 74 61 20 69 6e 74 6f 20 61  file data into a
f3d0: 20 74 61 62 6c 65 20 75 73 69 6e 67 20 74 68 65   table using the
f3e0: 20 50 6f 73 74 67 72 65 53 51 4c 20 43 4f 50 59   PostgreSQL COPY
f3f0: 20 66 69 6c 65 20 66 6f 72 6d 61 74 3a 0a 20 20   file format:.  
f400: 2a 2a 20 20 20 24 64 62 20 63 6f 70 79 20 24 63  **   $db copy $c
f410: 6f 6e 66 6c 69 74 5f 61 6c 67 6f 20 24 74 61 62  onflit_algo $tab
f420: 6c 65 5f 6e 61 6d 65 20 24 66 69 6c 65 6e 61 6d  le_name $filenam
f430: 65 20 5c 74 20 5c 5c 4e 0a 20 20 2a 2f 0a 20 20  e \t \\N.  */.  
f440: 63 61 73 65 20 44 42 5f 43 4f 50 59 3a 20 7b 0a  case DB_COPY: {.
f450: 20 20 20 20 63 68 61 72 20 2a 7a 54 61 62 6c 65      char *zTable
f460: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
f470: 2f 2a 20 49 6e 73 65 72 74 20 64 61 74 61 20 69  /* Insert data i
f480: 6e 74 6f 20 74 68 69 73 20 74 61 62 6c 65 20 2a  nto this table *
f490: 2f 0a 20 20 20 20 63 68 61 72 20 2a 7a 46 69 6c  /.    char *zFil
f4a0: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e;              
f4b0: 20 20 2f 2a 20 54 68 65 20 66 69 6c 65 20 66 72    /* The file fr
f4c0: 6f 6d 20 77 68 69 63 68 20 74 6f 20 65 78 74 72  om which to extr
f4d0: 61 63 74 20 64 61 74 61 20 2a 2f 0a 20 20 20 20  act data */.    
f4e0: 63 68 61 72 20 2a 7a 43 6f 6e 66 6c 69 63 74 3b  char *zConflict;
f4f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
f500: 68 65 20 63 6f 6e 66 6c 69 63 74 20 61 6c 67 6f  he conflict algo
f510: 72 69 74 68 6d 20 74 6f 20 75 73 65 20 2a 2f 0a  rithm to use */.
f520: 20 20 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74      sqlite3_stmt
f530: 20 2a 70 53 74 6d 74 3b 20 20 20 20 20 20 20 20   *pStmt;        
f540: 2f 2a 20 41 20 73 74 61 74 65 6d 65 6e 74 20 2a  /* A statement *
f550: 2f 0a 20 20 20 20 69 6e 74 20 6e 43 6f 6c 3b 20  /.    int nCol; 
f560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
f570: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 63    /* Number of c
f580: 6f 6c 75 6d 6e 73 20 69 6e 20 74 68 65 20 74 61  olumns in the ta
f590: 62 6c 65 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6e  ble */.    int n
f5a0: 42 79 74 65 3b 20 20 20 20 20 20 20 20 20 20 20  Byte;           
f5b0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
f5c0: 20 6f 66 20 62 79 74 65 73 20 69 6e 20 61 6e 20   of bytes in an 
f5d0: 53 51 4c 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20  SQL string */.  
f5e0: 20 20 69 6e 74 20 69 2c 20 6a 3b 20 20 20 20 20    int i, j;     
f5f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
f600: 20 4c 6f 6f 70 20 63 6f 75 6e 74 65 72 73 20 2a   Loop counters *
f610: 2f 0a 20 20 20 20 69 6e 74 20 6e 53 65 70 3b 20  /.    int nSep; 
f620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
f630: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 62    /* Number of b
f640: 79 74 65 73 20 69 6e 20 7a 53 65 70 5b 5d 20 2a  ytes in zSep[] *
f650: 2f 0a 20 20 20 20 69 6e 74 20 6e 4e 75 6c 6c 3b  /.    int nNull;
f660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
f670: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 62    /* Number of b
f680: 79 74 65 73 20 69 6e 20 7a 4e 75 6c 6c 5b 5d 20  ytes in zNull[] 
f690: 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 7a 53 71  */.    char *zSq
f6a0: 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  l;              
f6b0: 20 20 20 2f 2a 20 41 6e 20 53 51 4c 20 73 74 61     /* An SQL sta
f6c0: 74 65 6d 65 6e 74 20 2a 2f 0a 20 20 20 20 63 68  tement */.    ch
f6d0: 61 72 20 2a 7a 4c 69 6e 65 3b 20 20 20 20 20 20  ar *zLine;      
f6e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 20 73            /* A s
f6f0: 69 6e 67 6c 65 20 6c 69 6e 65 20 6f 66 20 69 6e  ingle line of in
f700: 70 75 74 20 66 72 6f 6d 20 74 68 65 20 66 69 6c  put from the fil
f710: 65 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 2a  e */.    char **
f720: 61 7a 43 6f 6c 3b 20 20 20 20 20 20 20 20 20 20  azCol;          
f730: 20 20 20 20 20 2f 2a 20 7a 4c 69 6e 65 5b 5d 20       /* zLine[] 
f740: 62 72 6f 6b 65 6e 20 75 70 20 69 6e 74 6f 20 63  broken up into c
f750: 6f 6c 75 6d 6e 73 20 2a 2f 0a 20 20 20 20 63 68  olumns */.    ch
f760: 61 72 20 2a 7a 43 6f 6d 6d 69 74 3b 20 20 20 20  ar *zCommit;    
f770: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 48 6f 77            /* How
f780: 20 74 6f 20 63 6f 6d 6d 69 74 20 63 68 61 6e 67   to commit chang
f790: 65 73 20 2a 2f 0a 20 20 20 20 46 49 4c 45 20 2a  es */.    FILE *
f7a0: 69 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  in;             
f7b0: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 69 6e 70        /* The inp
f7c0: 75 74 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 69  ut file */.    i
f7d0: 6e 74 20 6c 69 6e 65 6e 6f 20 3d 20 30 3b 20 20  nt lineno = 0;  
f7e0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 69             /* Li
f7f0: 6e 65 20 6e 75 6d 62 65 72 20 6f 66 20 69 6e 70  ne number of inp
f800: 75 74 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 63  ut file */.    c
f810: 68 61 72 20 7a 4c 69 6e 65 4e 75 6d 5b 38 30 5d  har zLineNum[80]
f820: 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 69  ;          /* Li
f830: 6e 65 20 6e 75 6d 62 65 72 20 70 72 69 6e 74 20  ne number print 
f840: 62 75 66 66 65 72 20 2a 2f 0a 20 20 20 20 54 63  buffer */.    Tc
f850: 6c 5f 4f 62 6a 20 2a 70 52 65 73 75 6c 74 3b 20  l_Obj *pResult; 
f860: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 69 6e 74            /* int
f870: 65 72 70 20 72 65 73 75 6c 74 20 2a 2f 0a 0a 20  erp result */.. 
f880: 20 20 20 63 68 61 72 20 2a 7a 53 65 70 3b 0a 20     char *zSep;. 
f890: 20 20 20 63 68 61 72 20 2a 7a 4e 75 6c 6c 3b 0a     char *zNull;.
f8a0: 20 20 20 20 69 66 28 20 6f 62 6a 63 3c 35 20 7c      if( objc<5 |
f8b0: 7c 20 6f 62 6a 63 3e 37 20 29 7b 0a 20 20 20 20  | objc>7 ){.    
f8c0: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72    Tcl_WrongNumAr
f8d0: 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62  gs(interp, 2, ob
f8e0: 6a 76 2c 20 0a 20 20 20 20 20 20 20 20 20 22 43  jv, .         "C
f8f0: 4f 4e 46 4c 49 43 54 2d 41 4c 47 4f 52 49 54 48  ONFLICT-ALGORITH
f900: 4d 20 54 41 42 4c 45 20 46 49 4c 45 4e 41 4d 45  M TABLE FILENAME
f910: 20 3f 53 45 50 41 52 41 54 4f 52 3f 20 3f 4e 55   ?SEPARATOR? ?NU
f920: 4c 4c 49 4e 44 49 43 41 54 4f 52 3f 22 29 3b 0a  LLINDICATOR?");.
f930: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
f940: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20  _ERROR;.    }.  
f950: 20 20 69 66 28 20 6f 62 6a 63 3e 3d 36 20 29 7b    if( objc>=6 ){
f960: 0a 20 20 20 20 20 20 7a 53 65 70 20 3d 20 54 63  .      zSep = Tc
f970: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f  l_GetStringFromO
f980: 62 6a 28 6f 62 6a 76 5b 35 5d 2c 20 30 29 3b 0a  bj(objv[5], 0);.
f990: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
f9a0: 20 7a 53 65 70 20 3d 20 22 5c 74 22 3b 0a 20 20   zSep = "\t";.  
f9b0: 20 20 7d 0a 20 20 20 20 69 66 28 20 6f 62 6a 63    }.    if( objc
f9c0: 3e 3d 37 20 29 7b 0a 20 20 20 20 20 20 7a 4e 75  >=7 ){.      zNu
f9d0: 6c 6c 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  ll = Tcl_GetStri
f9e0: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 36  ngFromObj(objv[6
f9f0: 5d 2c 20 30 29 3b 0a 20 20 20 20 7d 65 6c 73 65  ], 0);.    }else
fa00: 7b 0a 20 20 20 20 20 20 7a 4e 75 6c 6c 20 3d 20  {.      zNull = 
fa10: 22 22 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 43  "";.    }.    zC
fa20: 6f 6e 66 6c 69 63 74 20 3d 20 54 63 6c 5f 47 65  onflict = Tcl_Ge
fa30: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f  tStringFromObj(o
fa40: 62 6a 76 5b 32 5d 2c 20 30 29 3b 0a 20 20 20 20  bjv[2], 0);.    
fa50: 7a 54 61 62 6c 65 20 3d 20 54 63 6c 5f 47 65 74  zTable = Tcl_Get
fa60: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62  StringFromObj(ob
fa70: 6a 76 5b 33 5d 2c 20 30 29 3b 0a 20 20 20 20 7a  jv[3], 0);.    z
fa80: 46 69 6c 65 20 3d 20 54 63 6c 5f 47 65 74 53 74  File = Tcl_GetSt
fa90: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76  ringFromObj(objv
faa0: 5b 34 5d 2c 20 30 29 3b 0a 20 20 20 20 6e 53 65  [4], 0);.    nSe
fab0: 70 20 3d 20 73 74 72 6c 65 6e 33 30 28 7a 53 65  p = strlen30(zSe
fac0: 70 29 3b 0a 20 20 20 20 6e 4e 75 6c 6c 20 3d 20  p);.    nNull = 
fad0: 73 74 72 6c 65 6e 33 30 28 7a 4e 75 6c 6c 29 3b  strlen30(zNull);
fae0: 0a 20 20 20 20 69 66 28 20 6e 53 65 70 3d 3d 30  .    if( nSep==0
faf0: 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41 70   ){.      Tcl_Ap
fb00: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
fb10: 70 2c 22 45 72 72 6f 72 3a 20 6e 6f 6e 2d 6e 75  p,"Error: non-nu
fb20: 6c 6c 20 73 65 70 61 72 61 74 6f 72 20 72 65 71  ll separator req
fb30: 75 69 72 65 64 20 66 6f 72 20 63 6f 70 79 22 2c  uired for copy",
fb40: 30 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  0);.      return
fb50: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
fb60: 7d 0a 20 20 20 20 69 66 28 73 74 72 63 6d 70 28  }.    if(strcmp(
fb70: 7a 43 6f 6e 66 6c 69 63 74 2c 20 22 72 6f 6c 6c  zConflict, "roll
fb80: 62 61 63 6b 22 29 20 21 3d 20 30 20 26 26 0a 20  back") != 0 &&. 
fb90: 20 20 20 20 20 20 73 74 72 63 6d 70 28 7a 43 6f        strcmp(zCo
fba0: 6e 66 6c 69 63 74 2c 20 22 61 62 6f 72 74 22 20  nflict, "abort" 
fbb0: 20 20 29 20 21 3d 20 30 20 26 26 0a 20 20 20 20    ) != 0 &&.    
fbc0: 20 20 20 73 74 72 63 6d 70 28 7a 43 6f 6e 66 6c     strcmp(zConfl
fbd0: 69 63 74 2c 20 22 66 61 69 6c 22 20 20 20 20 29  ict, "fail"    )
fbe0: 20 21 3d 20 30 20 26 26 0a 20 20 20 20 20 20 20   != 0 &&.       
fbf0: 73 74 72 63 6d 70 28 7a 43 6f 6e 66 6c 69 63 74  strcmp(zConflict
fc00: 2c 20 22 69 67 6e 6f 72 65 22 20 20 29 20 21 3d  , "ignore"  ) !=
fc10: 20 30 20 26 26 0a 20 20 20 20 20 20 20 73 74 72   0 &&.       str
fc20: 63 6d 70 28 7a 43 6f 6e 66 6c 69 63 74 2c 20 22  cmp(zConflict, "
fc30: 72 65 70 6c 61 63 65 22 20 29 20 21 3d 20 30 20  replace" ) != 0 
fc40: 29 20 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41 70  ) {.      Tcl_Ap
fc50: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
fc60: 70 2c 20 22 45 72 72 6f 72 3a 20 5c 22 22 2c 20  p, "Error: \"", 
fc70: 7a 43 6f 6e 66 6c 69 63 74 2c 20 0a 20 20 20 20  zConflict, .    
fc80: 20 20 20 20 20 20 20 20 22 5c 22 2c 20 63 6f 6e          "\", con
fc90: 66 6c 69 63 74 2d 61 6c 67 6f 72 69 74 68 6d 20  flict-algorithm 
fca0: 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f 66 3a 20  must be one of: 
fcb0: 72 6f 6c 6c 62 61 63 6b 2c 20 22 0a 20 20 20 20  rollback, ".    
fcc0: 20 20 20 20 20 20 20 20 22 61 62 6f 72 74 2c 20          "abort, 
fcd0: 66 61 69 6c 2c 20 69 67 6e 6f 72 65 2c 20 6f 72  fail, ignore, or
fce0: 20 72 65 70 6c 61 63 65 22 2c 20 30 29 3b 0a 20   replace", 0);. 
fcf0: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
fd00: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20  ERROR;.    }.   
fd10: 20 7a 53 71 6c 20 3d 20 73 71 6c 69 74 65 33 5f   zSql = sqlite3_
fd20: 6d 70 72 69 6e 74 66 28 22 53 45 4c 45 43 54 20  mprintf("SELECT 
fd30: 2a 20 46 52 4f 4d 20 27 25 71 27 22 2c 20 7a 54  * FROM '%q'", zT
fd40: 61 62 6c 65 29 3b 0a 20 20 20 20 69 66 28 20 7a  able);.    if( z
fd50: 53 71 6c 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  Sql==0 ){.      
fd60: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
fd70: 28 69 6e 74 65 72 70 2c 20 22 45 72 72 6f 72 3a  (interp, "Error:
fd80: 20 6e 6f 20 73 75 63 68 20 74 61 62 6c 65 3a 20   no such table: 
fd90: 22 2c 20 7a 54 61 62 6c 65 2c 20 30 29 3b 0a 20  ", zTable, 0);. 
fda0: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
fdb0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20  ERROR;.    }.   
fdc0: 20 6e 42 79 74 65 20 3d 20 73 74 72 6c 65 6e 33   nByte = strlen3
fdd0: 30 28 7a 53 71 6c 29 3b 0a 20 20 20 20 72 63 20  0(zSql);.    rc 
fde0: 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72  = sqlite3_prepar
fdf0: 65 28 70 44 62 2d 3e 64 62 2c 20 7a 53 71 6c 2c  e(pDb->db, zSql,
fe00: 20 2d 31 2c 20 26 70 53 74 6d 74 2c 20 30 29 3b   -1, &pStmt, 0);
fe10: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65  .    sqlite3_fre
fe20: 65 28 7a 53 71 6c 29 3b 0a 20 20 20 20 69 66 28  e(zSql);.    if(
fe30: 20 72 63 20 29 7b 0a 20 20 20 20 20 20 54 63 6c   rc ){.      Tcl
fe40: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
fe50: 74 65 72 70 2c 20 22 45 72 72 6f 72 3a 20 22 2c  terp, "Error: ",
fe60: 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28   sqlite3_errmsg(
fe70: 70 44 62 2d 3e 64 62 29 2c 20 30 29 3b 0a 20 20  pDb->db), 0);.  
fe80: 20 20 20 20 6e 43 6f 6c 20 3d 20 30 3b 0a 20 20      nCol = 0;.  
fe90: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 6e    }else{.      n
fea0: 43 6f 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f  Col = sqlite3_co
feb0: 6c 75 6d 6e 5f 63 6f 75 6e 74 28 70 53 74 6d 74  lumn_count(pStmt
fec0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c  );.    }.    sql
fed0: 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70 53  ite3_finalize(pS
fee0: 74 6d 74 29 3b 0a 20 20 20 20 69 66 28 20 6e 43  tmt);.    if( nC
fef0: 6f 6c 3d 3d 30 20 29 20 7b 0a 20 20 20 20 20 20  ol==0 ) {.      
ff00: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
ff10: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 53 71 6c  ;.    }.    zSql
ff20: 20 3d 20 6d 61 6c 6c 6f 63 28 20 6e 42 79 74 65   = malloc( nByte
ff30: 20 2b 20 35 30 20 2b 20 6e 43 6f 6c 2a 32 20 29   + 50 + nCol*2 )
ff40: 3b 0a 20 20 20 20 69 66 28 20 7a 53 71 6c 3d 3d  ;.    if( zSql==
ff50: 30 20 29 20 7b 0a 20 20 20 20 20 20 54 63 6c 5f  0 ) {.      Tcl_
ff60: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
ff70: 65 72 70 2c 20 22 45 72 72 6f 72 3a 20 63 61 6e  erp, "Error: can
ff80: 27 74 20 6d 61 6c 6c 6f 63 28 29 22 2c 20 30 29  't malloc()", 0)
ff90: 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54  ;.      return T
ffa0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a  CL_ERROR;.    }.
ffb0: 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72      sqlite3_snpr
ffc0: 69 6e 74 66 28 6e 42 79 74 65 2b 35 30 2c 20 7a  intf(nByte+50, z
ffd0: 53 71 6c 2c 20 22 49 4e 53 45 52 54 20 4f 52 20  Sql, "INSERT OR 
ffe0: 25 71 20 49 4e 54 4f 20 27 25 71 27 20 56 41 4c  %q INTO '%q' VAL
fff0: 55 45 53 28 3f 22 2c 0a 20 20 20 20 20 20 20 20  UES(?",.        
10000 20 7a 43 6f 6e 66 6c 69 63 74 2c 20 7a 54 61 62   zConflict, zTab
10010 6c 65 29 3b 0a 20 20 20 20 6a 20 3d 20 73 74 72  le);.    j = str
10020 6c 65 6e 33 30 28 7a 53 71 6c 29 3b 0a 20 20 20  len30(zSql);.   
10030 20 66 6f 72 28 69 3d 31 3b 20 69 3c 6e 43 6f 6c   for(i=1; i<nCol
10040 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 7a 53  ; i++){.      zS
10050 71 6c 5b 6a 2b 2b 5d 20 3d 20 27 2c 27 3b 0a 20  ql[j++] = ',';. 
10060 20 20 20 20 20 7a 53 71 6c 5b 6a 2b 2b 5d 20 3d       zSql[j++] =
10070 20 27 3f 27 3b 0a 20 20 20 20 7d 0a 20 20 20 20   '?';.    }.    
10080 7a 53 71 6c 5b 6a 2b 2b 5d 20 3d 20 27 29 27 3b  zSql[j++] = ')';
10090 0a 20 20 20 20 7a 53 71 6c 5b 6a 5d 20 3d 20 30  .    zSql[j] = 0
100a0 3b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74  ;.    rc = sqlit
100b0 65 33 5f 70 72 65 70 61 72 65 28 70 44 62 2d 3e  e3_prepare(pDb->
100c0 64 62 2c 20 7a 53 71 6c 2c 20 2d 31 2c 20 26 70  db, zSql, -1, &p
100d0 53 74 6d 74 2c 20 30 29 3b 0a 20 20 20 20 66 72  Stmt, 0);.    fr
100e0 65 65 28 7a 53 71 6c 29 3b 0a 20 20 20 20 69 66  ee(zSql);.    if
100f0 28 20 72 63 20 29 7b 0a 20 20 20 20 20 20 54 63  ( rc ){.      Tc
10100 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
10110 6e 74 65 72 70 2c 20 22 45 72 72 6f 72 3a 20 22  nterp, "Error: "
10120 2c 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67  , sqlite3_errmsg
10130 28 70 44 62 2d 3e 64 62 29 2c 20 30 29 3b 0a 20  (pDb->db), 0);. 
10140 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 69 6e       sqlite3_fin
10150 61 6c 69 7a 65 28 70 53 74 6d 74 29 3b 0a 20 20  alize(pStmt);.  
10160 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
10170 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20  RROR;.    }.    
10180 69 6e 20 3d 20 66 6f 70 65 6e 28 7a 46 69 6c 65  in = fopen(zFile
10190 2c 20 22 72 62 22 29 3b 0a 20 20 20 20 69 66 28  , "rb");.    if(
101a0 20 69 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20   in==0 ){.      
101b0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
101c0 28 69 6e 74 65 72 70 2c 20 22 45 72 72 6f 72 3a  (interp, "Error:
101d0 20 63 61 6e 6e 6f 74 20 6f 70 65 6e 20 66 69 6c   cannot open fil
101e0 65 3a 20 22 2c 20 7a 46 69 6c 65 2c 20 4e 55 4c  e: ", zFile, NUL
101f0 4c 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65  L);.      sqlite
10200 33 5f 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d 74  3_finalize(pStmt
10210 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  );.      return 
10220 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
10230 0a 20 20 20 20 61 7a 43 6f 6c 20 3d 20 6d 61 6c  .    azCol = mal
10240 6c 6f 63 28 20 73 69 7a 65 6f 66 28 61 7a 43 6f  loc( sizeof(azCo
10250 6c 5b 30 5d 29 2a 28 6e 43 6f 6c 2b 31 29 20 29  l[0])*(nCol+1) )
10260 3b 0a 20 20 20 20 69 66 28 20 61 7a 43 6f 6c 3d  ;.    if( azCol=
10270 3d 30 20 29 20 7b 0a 20 20 20 20 20 20 54 63 6c  =0 ) {.      Tcl
10280 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
10290 74 65 72 70 2c 20 22 45 72 72 6f 72 3a 20 63 61  terp, "Error: ca
102a0 6e 27 74 20 6d 61 6c 6c 6f 63 28 29 22 2c 20 30  n't malloc()", 0
102b0 29 3b 0a 20 20 20 20 20 20 66 63 6c 6f 73 65 28  );.      fclose(
102c0 69 6e 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72  in);.      retur
102d0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
102e0 20 7d 0a 20 20 20 20 28 76 6f 69 64 29 73 71 6c   }.    (void)sql
102f0 69 74 65 33 5f 65 78 65 63 28 70 44 62 2d 3e 64  ite3_exec(pDb->d
10300 62 2c 20 22 42 45 47 49 4e 22 2c 20 30 2c 20 30  b, "BEGIN", 0, 0
10310 2c 20 30 29 3b 0a 20 20 20 20 7a 43 6f 6d 6d 69  , 0);.    zCommi
10320 74 20 3d 20 22 43 4f 4d 4d 49 54 22 3b 0a 20 20  t = "COMMIT";.  
10330 20 20 77 68 69 6c 65 28 20 28 7a 4c 69 6e 65 20    while( (zLine 
10340 3d 20 6c 6f 63 61 6c 5f 67 65 74 6c 69 6e 65 28  = local_getline(
10350 30 2c 20 69 6e 29 29 21 3d 30 20 29 7b 0a 20 20  0, in))!=0 ){.  
10360 20 20 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 20      char *z;.   
10370 20 20 20 69 20 3d 20 30 3b 0a 20 20 20 20 20 20     i = 0;.      
10380 6c 69 6e 65 6e 6f 2b 2b 3b 0a 20 20 20 20 20 20  lineno++;.      
10390 61 7a 43 6f 6c 5b 30 5d 20 3d 20 7a 4c 69 6e 65  azCol[0] = zLine
103a0 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30 2c  ;.      for(i=0,
103b0 20 7a 3d 7a 4c 69 6e 65 3b 20 2a 7a 3b 20 7a 2b   z=zLine; *z; z+
103c0 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20  +){.        if( 
103d0 2a 7a 3d 3d 7a 53 65 70 5b 30 5d 20 26 26 20 73  *z==zSep[0] && s
103e0 74 72 6e 63 6d 70 28 7a 2c 20 7a 53 65 70 2c 20  trncmp(z, zSep, 
103f0 6e 53 65 70 29 3d 3d 30 20 29 7b 0a 20 20 20 20  nSep)==0 ){.    
10400 20 20 20 20 20 20 2a 7a 20 3d 20 30 3b 0a 20 20        *z = 0;.  
10410 20 20 20 20 20 20 20 20 69 2b 2b 3b 0a 20 20 20          i++;.   
10420 20 20 20 20 20 20 20 69 66 28 20 69 3c 6e 43 6f         if( i<nCo
10430 6c 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20  l ){.           
10440 20 61 7a 43 6f 6c 5b 69 5d 20 3d 20 26 7a 5b 6e   azCol[i] = &z[n
10450 53 65 70 5d 3b 0a 20 20 20 20 20 20 20 20 20 20  Sep];.          
10460 20 20 7a 20 2b 3d 20 6e 53 65 70 2d 31 3b 0a 20    z += nSep-1;. 
10470 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
10480 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20     }.      }.   
10490 20 20 20 69 66 28 20 69 2b 31 21 3d 6e 43 6f 6c     if( i+1!=nCol
104a0 20 29 7b 0a 20 20 20 20 20 20 20 20 63 68 61 72   ){.        char
104b0 20 2a 7a 45 72 72 3b 0a 20 20 20 20 20 20 20 20   *zErr;.        
104c0 69 6e 74 20 6e 45 72 72 20 3d 20 73 74 72 6c 65  int nErr = strle
104d0 6e 33 30 28 7a 46 69 6c 65 29 20 2b 20 32 30 30  n30(zFile) + 200
104e0 3b 0a 20 20 20 20 20 20 20 20 7a 45 72 72 20 3d  ;.        zErr =
104f0 20 6d 61 6c 6c 6f 63 28 6e 45 72 72 29 3b 0a 20   malloc(nErr);. 
10500 20 20 20 20 20 20 20 69 66 28 20 7a 45 72 72 20         if( zErr 
10510 29 7b 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c  ){.          sql
10520 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 6e 45  ite3_snprintf(nE
10530 72 72 2c 20 7a 45 72 72 2c 0a 20 20 20 20 20 20  rr, zErr,.      
10540 20 20 20 20 20 20 20 22 45 72 72 6f 72 3a 20 25         "Error: %
10550 73 20 6c 69 6e 65 20 25 64 3a 20 65 78 70 65 63  s line %d: expec
10560 74 65 64 20 25 64 20 63 6f 6c 75 6d 6e 73 20 6f  ted %d columns o
10570 66 20 64 61 74 61 20 62 75 74 20 66 6f 75 6e 64  f data but found
10580 20 25 64 22 2c 0a 20 20 20 20 20 20 20 20 20 20   %d",.          
10590 20 20 20 7a 46 69 6c 65 2c 20 6c 69 6e 65 6e 6f     zFile, lineno
105a0 2c 20 6e 43 6f 6c 2c 20 69 2b 31 29 3b 0a 20 20  , nCol, i+1);.  
105b0 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65          Tcl_Appe
105c0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
105d0 20 7a 45 72 72 2c 20 30 29 3b 0a 20 20 20 20 20   zErr, 0);.     
105e0 20 20 20 20 20 66 72 65 65 28 7a 45 72 72 29 3b       free(zErr);
105f0 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
10600 20 20 20 7a 43 6f 6d 6d 69 74 20 3d 20 22 52 4f     zCommit = "RO
10610 4c 4c 42 41 43 4b 22 3b 0a 20 20 20 20 20 20 20  LLBACK";.       
10620 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a   break;.      }.
10630 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69        for(i=0; i
10640 3c 6e 43 6f 6c 3b 20 69 2b 2b 29 7b 0a 20 20 20  <nCol; i++){.   
10650 20 20 20 20 20 2f 2a 20 63 68 65 63 6b 20 66 6f       /* check fo
10660 72 20 6e 75 6c 6c 20 64 61 74 61 2c 20 69 66 20  r null data, if 
10670 73 6f 2c 20 62 69 6e 64 20 61 73 20 6e 75 6c 6c  so, bind as null
10680 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20   */.        if( 
10690 28 6e 4e 75 6c 6c 3e 30 20 26 26 20 73 74 72 63  (nNull>0 && strc
106a0 6d 70 28 61 7a 43 6f 6c 5b 69 5d 2c 20 7a 4e 75  mp(azCol[i], zNu
106b0 6c 6c 29 3d 3d 30 29 0a 20 20 20 20 20 20 20 20  ll)==0).        
106c0 20 20 7c 7c 20 73 74 72 6c 65 6e 33 30 28 61 7a    || strlen30(az
106d0 43 6f 6c 5b 69 5d 29 3d 3d 30 20 0a 20 20 20 20  Col[i])==0 .    
106e0 20 20 20 20 29 7b 0a 20 20 20 20 20 20 20 20 20      ){.         
106f0 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 6e 75   sqlite3_bind_nu
10700 6c 6c 28 70 53 74 6d 74 2c 20 69 2b 31 29 3b 0a  ll(pStmt, i+1);.
10710 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20          }else{. 
10720 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33           sqlite3
10730 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74 6d 74  _bind_text(pStmt
10740 2c 20 69 2b 31 2c 20 61 7a 43 6f 6c 5b 69 5d 2c  , i+1, azCol[i],
10750 20 2d 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 54   -1, SQLITE_STAT
10760 49 43 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  IC);.        }. 
10770 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 71 6c       }.      sql
10780 69 74 65 33 5f 73 74 65 70 28 70 53 74 6d 74 29  ite3_step(pStmt)
10790 3b 0a 20 20 20 20 20 20 72 63 20 3d 20 73 71 6c  ;.      rc = sql
107a0 69 74 65 33 5f 72 65 73 65 74 28 70 53 74 6d 74  ite3_reset(pStmt
107b0 29 3b 0a 20 20 20 20 20 20 66 72 65 65 28 7a 4c  );.      free(zL
107c0 69 6e 65 29 3b 0a 20 20 20 20 20 20 69 66 28 20  ine);.      if( 
107d0 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b  rc!=SQLITE_OK ){
107e0 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70  .        Tcl_App
107f0 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
10800 2c 22 45 72 72 6f 72 3a 20 22 2c 20 73 71 6c 69  ,"Error: ", sqli
10810 74 65 33 5f 65 72 72 6d 73 67 28 70 44 62 2d 3e  te3_errmsg(pDb->
10820 64 62 29 2c 20 30 29 3b 0a 20 20 20 20 20 20 20  db), 0);.       
10830 20 7a 43 6f 6d 6d 69 74 20 3d 20 22 52 4f 4c 4c   zCommit = "ROLL
10840 42 41 43 4b 22 3b 0a 20 20 20 20 20 20 20 20 62  BACK";.        b
10850 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20  reak;.      }.  
10860 20 20 7d 0a 20 20 20 20 66 72 65 65 28 61 7a 43    }.    free(azC
10870 6f 6c 29 3b 0a 20 20 20 20 66 63 6c 6f 73 65 28  ol);.    fclose(
10880 69 6e 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33  in);.    sqlite3
10890 5f 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d 74 29  _finalize(pStmt)
108a0 3b 0a 20 20 20 20 28 76 6f 69 64 29 73 71 6c 69  ;.    (void)sqli
108b0 74 65 33 5f 65 78 65 63 28 70 44 62 2d 3e 64 62  te3_exec(pDb->db
108c0 2c 20 7a 43 6f 6d 6d 69 74 2c 20 30 2c 20 30 2c  , zCommit, 0, 0,
108d0 20 30 29 3b 0a 0a 20 20 20 20 69 66 28 20 7a 43   0);..    if( zC
108e0 6f 6d 6d 69 74 5b 30 5d 20 3d 3d 20 27 43 27 20  ommit[0] == 'C' 
108f0 29 7b 0a 20 20 20 20 20 20 2f 2a 20 73 75 63 63  ){.      /* succ
10900 65 73 73 2c 20 73 65 74 20 72 65 73 75 6c 74 20  ess, set result 
10910 61 73 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e  as number of lin
10920 65 73 20 70 72 6f 63 65 73 73 65 64 20 2a 2f 0a  es processed */.
10930 20 20 20 20 20 20 70 52 65 73 75 6c 74 20 3d 20        pResult = 
10940 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_GetObjResult
10950 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20 20  (interp);.      
10960 54 63 6c 5f 53 65 74 49 6e 74 4f 62 6a 28 70 52  Tcl_SetIntObj(pR
10970 65 73 75 6c 74 2c 20 6c 69 6e 65 6e 6f 29 3b 0a  esult, lineno);.
10980 20 20 20 20 20 20 72 63 20 3d 20 54 43 4c 5f 4f        rc = TCL_O
10990 4b 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20  K;.    }else{.  
109a0 20 20 20 20 2f 2a 20 66 61 69 6c 75 72 65 2c 20      /* failure, 
109b0 61 70 70 65 6e 64 20 6c 69 6e 65 6e 6f 20 77 68  append lineno wh
109c0 65 72 65 20 66 61 69 6c 65 64 20 2a 2f 0a 20 20  ere failed */.  
109d0 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72      sqlite3_snpr
109e0 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 4c 69 6e  intf(sizeof(zLin
109f0 65 4e 75 6d 29 2c 20 7a 4c 69 6e 65 4e 75 6d 2c  eNum), zLineNum,
10a00 22 25 64 22 2c 6c 69 6e 65 6e 6f 29 3b 0a 20 20  "%d",lineno);.  
10a10 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
10a20 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 2c 20 66  sult(interp,", f
10a30 61 69 6c 65 64 20 77 68 69 6c 65 20 70 72 6f 63  ailed while proc
10a40 65 73 73 69 6e 67 20 6c 69 6e 65 3a 20 22 2c 7a  essing line: ",z
10a50 4c 69 6e 65 4e 75 6d 2c 30 29 3b 0a 20 20 20 20  LineNum,0);.    
10a60 20 20 72 63 20 3d 20 54 43 4c 5f 45 52 52 4f 52    rc = TCL_ERROR
10a70 3b 0a 20 20 20 20 7d 0a 20 20 20 20 62 72 65 61  ;.    }.    brea
10a80 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20 2a  k;.  }..  /*.  *
10a90 2a 20 20 20 20 24 64 62 20 65 6e 61 62 6c 65 5f  *    $db enable_
10aa0 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 20 42  load_extension B
10ab0 4f 4f 4c 45 41 4e 0a 20 20 2a 2a 0a 20 20 2a 2a  OOLEAN.  **.  **
10ac0 20 54 75 72 6e 20 74 68 65 20 65 78 74 65 6e 73   Turn the extens
10ad0 69 6f 6e 20 6c 6f 61 64 69 6e 67 20 66 65 61 74  ion loading feat
10ae0 75 72 65 20 6f 6e 20 6f 72 20 6f 66 66 2e 20 20  ure on or off.  
10af0 49 74 20 69 66 20 6f 66 66 20 62 79 0a 20 20 2a  It if off by.  *
10b00 2a 20 64 65 66 61 75 6c 74 2e 0a 20 20 2a 2f 0a  * default..  */.
10b10 20 20 63 61 73 65 20 44 42 5f 45 4e 41 42 4c 45    case DB_ENABLE
10b20 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 3a  _LOAD_EXTENSION:
10b30 20 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54   {.#ifndef SQLIT
10b40 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45  E_OMIT_LOAD_EXTE
10b50 4e 53 49 4f 4e 0a 20 20 20 20 69 6e 74 20 6f 6e  NSION.    int on
10b60 6f 66 66 3b 0a 20 20 20 20 69 66 28 20 6f 62 6a  off;.    if( obj
10b70 63 21 3d 33 20 29 7b 0a 20 20 20 20 20 20 54 63  c!=3 ){.      Tc
10b80 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
10b90 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20  nterp, 2, objv, 
10ba0 22 42 4f 4f 4c 45 41 4e 22 29 3b 0a 20 20 20 20  "BOOLEAN");.    
10bb0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
10bc0 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66  OR;.    }.    if
10bd0 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e  ( Tcl_GetBoolean
10be0 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
10bf0 6f 62 6a 76 5b 32 5d 2c 20 26 6f 6e 6f 66 66 29  objv[2], &onoff)
10c00 20 29 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e   ){.      return
10c10 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
10c20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 65 6e  }.    sqlite3_en
10c30 61 62 6c 65 5f 6c 6f 61 64 5f 65 78 74 65 6e 73  able_load_extens
10c40 69 6f 6e 28 70 44 62 2d 3e 64 62 2c 20 6f 6e 6f  ion(pDb->db, ono
10c50 66 66 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a  ff);.    break;.
10c60 23 65 6c 73 65 0a 20 20 20 20 54 63 6c 5f 41 70  #else.    Tcl_Ap
10c70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
10c80 70 2c 20 22 65 78 74 65 6e 73 69 6f 6e 20 6c 6f  p, "extension lo
10c90 61 64 69 6e 67 20 69 73 20 74 75 72 6e 65 64 20  ading is turned 
10ca0 6f 66 66 20 61 74 20 63 6f 6d 70 69 6c 65 2d 74  off at compile-t
10cb0 69 6d 65 22 2c 0a 20 20 20 20 20 20 20 20 20 20  ime",.          
10cc0 20 20 20 20 20 20 20 20 20 20 20 30 29 3b 0a 20             0);. 
10cd0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
10ce0 52 4f 52 3b 0a 23 65 6e 64 69 66 0a 20 20 7d 0a  ROR;.#endif.  }.
10cf0 0a 20 20 2f 2a 0a 20 20 2a 2a 20 20 20 20 24 64  .  /*.  **    $d
10d00 62 20 65 72 72 6f 72 63 6f 64 65 0a 20 20 2a 2a  b errorcode.  **
10d10 0a 20 20 2a 2a 20 52 65 74 75 72 6e 20 74 68 65  .  ** Return the
10d20 20 6e 75 6d 65 72 69 63 20 65 72 72 6f 72 20 63   numeric error c
10d30 6f 64 65 20 74 68 61 74 20 77 61 73 20 72 65 74  ode that was ret
10d40 75 72 6e 65 64 20 62 79 20 74 68 65 20 6d 6f 73  urned by the mos
10d50 74 20 72 65 63 65 6e 74 0a 20 20 2a 2a 20 63 61  t recent.  ** ca
10d60 6c 6c 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 78  ll to sqlite3_ex
10d70 65 63 28 29 2e 0a 20 20 2a 2f 0a 20 20 63 61 73  ec()..  */.  cas
10d80 65 20 44 42 5f 45 52 52 4f 52 43 4f 44 45 3a 20  e DB_ERRORCODE: 
10d90 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a  {.    Tcl_SetObj
10da0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54  Result(interp, T
10db0 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c  cl_NewIntObj(sql
10dc0 69 74 65 33 5f 65 72 72 63 6f 64 65 28 70 44 62  ite3_errcode(pDb
10dd0 2d 3e 64 62 29 29 29 3b 0a 20 20 20 20 62 72 65  ->db)));.    bre
10de0 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20  ak;.  }..  /*.  
10df0 2a 2a 20 20 20 20 24 64 62 20 65 78 69 73 74 73  **    $db exists
10e00 20 24 73 71 6c 0a 20 20 2a 2a 20 20 20 20 24 64   $sql.  **    $d
10e10 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 24 73 71 6c  b onecolumn $sql
10e20 0a 20 20 2a 2a 0a 20 20 2a 2a 20 54 68 65 20 6f  .  **.  ** The o
10e30 6e 65 63 6f 6c 75 6d 6e 20 6d 65 74 68 6f 64 20  necolumn method 
10e40 69 73 20 74 68 65 20 65 71 75 69 76 61 6c 65 6e  is the equivalen
10e50 74 20 6f 66 3a 0a 20 20 2a 2a 20 20 20 20 20 6c  t of:.  **     l
10e60 69 6e 64 65 78 20 5b 24 64 62 20 65 76 61 6c 20  index [$db eval 
10e70 24 73 71 6c 5d 20 30 0a 20 20 2a 2f 0a 20 20 63  $sql] 0.  */.  c
10e80 61 73 65 20 44 42 5f 45 58 49 53 54 53 3a 20 0a  ase DB_EXISTS: .
10e90 20 20 63 61 73 65 20 44 42 5f 4f 4e 45 43 4f 4c    case DB_ONECOL
10ea0 55 4d 4e 3a 20 7b 0a 20 20 20 20 44 62 45 76 61  UMN: {.    DbEva
10eb0 6c 43 6f 6e 74 65 78 74 20 73 45 76 61 6c 3b 0a  lContext sEval;.
10ec0 20 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20      if( objc!=3 
10ed0 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f  ){.      Tcl_Wro
10ee0 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
10ef0 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 53 51 4c 22  , 2, objv, "SQL"
10f00 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  );.      return 
10f10 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
10f20 0a 0a 20 20 20 20 64 62 45 76 61 6c 49 6e 69 74  ..    dbEvalInit
10f30 28 26 73 45 76 61 6c 2c 20 70 44 62 2c 20 6f 62  (&sEval, pDb, ob
10f40 6a 76 5b 32 5d 2c 20 30 29 3b 0a 20 20 20 20 72  jv[2], 0);.    r
10f50 63 20 3d 20 64 62 45 76 61 6c 53 74 65 70 28 26  c = dbEvalStep(&
10f60 73 45 76 61 6c 29 3b 0a 20 20 20 20 69 66 28 20  sEval);.    if( 
10f70 63 68 6f 69 63 65 3d 3d 44 42 5f 4f 4e 45 43 4f  choice==DB_ONECO
10f80 4c 55 4d 4e 20 29 7b 0a 20 20 20 20 20 20 69 66  LUMN ){.      if
10f90 28 20 72 63 3d 3d 54 43 4c 5f 4f 4b 20 29 7b 0a  ( rc==TCL_OK ){.
10fa0 20 20 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f          Tcl_SetO
10fb0 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
10fc0 20 64 62 45 76 61 6c 43 6f 6c 75 6d 6e 56 61 6c   dbEvalColumnVal
10fd0 75 65 28 26 73 45 76 61 6c 2c 20 30 29 29 3b 0a  ue(&sEval, 0));.
10fe0 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73        }.    }els
10ff0 65 20 69 66 28 20 72 63 3d 3d 54 43 4c 5f 42 52  e if( rc==TCL_BR
11000 45 41 4b 20 7c 7c 20 72 63 3d 3d 54 43 4c 5f 4f  EAK || rc==TCL_O
11010 4b 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53  K ){.      Tcl_S
11020 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65  etObjResult(inte
11030 72 70 2c 20 54 63 6c 5f 4e 65 77 42 6f 6f 6c 65  rp, Tcl_NewBoole
11040 61 6e 4f 62 6a 28 72 63 3d 3d 54 43 4c 5f 4f 4b  anObj(rc==TCL_OK
11050 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 62  ));.    }.    db
11060 45 76 61 6c 46 69 6e 61 6c 69 7a 65 28 26 73 45  EvalFinalize(&sE
11070 76 61 6c 29 3b 0a 0a 20 20 20 20 69 66 28 20 72  val);..    if( r
11080 63 3d 3d 54 43 4c 5f 42 52 45 41 4b 20 29 7b 0a  c==TCL_BREAK ){.
11090 20 20 20 20 20 20 72 63 20 3d 20 54 43 4c 5f 4f        rc = TCL_O
110a0 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 62 72 65  K;.    }.    bre
110b0 61 6b 3b 0a 20 20 7d 0a 20 20 20 0a 20 20 2f 2a  ak;.  }.   .  /*
110c0 0a 20 20 2a 2a 20 20 20 20 24 64 62 20 65 76 61  .  **    $db eva
110d0 6c 20 24 73 71 6c 20 3f 61 72 72 61 79 3f 20 3f  l $sql ?array? ?
110e0 7b 20 20 2e 2e 2e 63 6f 64 65 2e 2e 2e 20 7d 3f  {  ...code... }?
110f0 0a 20 20 2a 2a 0a 20 20 2a 2a 20 54 68 65 20 53  .  **.  ** The S
11100 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 69 6e 20  QL statement in 
11110 24 73 71 6c 20 69 73 20 65 76 61 6c 75 61 74 65  $sql is evaluate
11120 64 2e 20 20 46 6f 72 20 65 61 63 68 20 72 6f 77  d.  For each row
11130 2c 20 74 68 65 20 76 61 6c 75 65 73 20 61 72 65  , the values are
11140 0a 20 20 2a 2a 20 70 6c 61 63 65 64 20 69 6e 20  .  ** placed in 
11150 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 20  elements of the 
11160 61 72 72 61 79 20 6e 61 6d 65 64 20 22 61 72 72  array named "arr
11170 61 79 22 20 61 6e 64 20 2e 2e 2e 63 6f 64 65 2e  ay" and ...code.
11180 2e 2e 20 69 73 20 65 78 65 63 75 74 65 64 2e 0a  .. is executed..
11190 20 20 2a 2a 20 49 66 20 22 61 72 72 61 79 22 20    ** If "array" 
111a0 61 6e 64 20 22 63 6f 64 65 22 20 61 72 65 20 6f  and "code" are o
111b0 6d 69 74 74 65 64 2c 20 74 68 65 6e 20 6e 6f 20  mitted, then no 
111c0 63 61 6c 6c 62 61 63 6b 20 69 73 20 65 76 65 72  callback is ever
111d0 79 20 69 6e 76 6f 6b 65 64 2e 0a 20 20 2a 2a 20  y invoked..  ** 
111e0 49 66 20 22 61 72 72 61 79 22 20 69 73 20 61 6e  If "array" is an
111f0 20 65 6d 70 74 79 20 73 74 72 69 6e 67 2c 20 74   empty string, t
11200 68 65 6e 20 74 68 65 20 76 61 6c 75 65 73 20 61  hen the values a
11210 72 65 20 70 6c 61 63 65 64 20 69 6e 20 76 61 72  re placed in var
11220 69 61 62 6c 65 73 0a 20 20 2a 2a 20 74 68 61 74  iables.  ** that
11230 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6e   have the same n
11240 61 6d 65 20 61 73 20 74 68 65 20 66 69 65 6c 64  ame as the field
11250 73 20 65 78 74 72 61 63 74 65 64 20 62 79 20 74  s extracted by t
11260 68 65 20 71 75 65 72 79 2e 0a 20 20 2a 2f 0a 20  he query..  */. 
11270 20 63 61 73 65 20 44 42 5f 45 56 41 4c 3a 20 7b   case DB_EVAL: {
11280 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 3c 33 20  .    if( objc<3 
11290 7c 7c 20 6f 62 6a 63 3e 35 20 29 7b 0a 20 20 20  || objc>5 ){.   
112a0 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41     Tcl_WrongNumA
112b0 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f  rgs(interp, 2, o
112c0 62 6a 76 2c 20 22 53 51 4c 20 3f 41 52 52 41 59  bjv, "SQL ?ARRAY
112d0 2d 4e 41 4d 45 3f 20 3f 53 43 52 49 50 54 3f 22  -NAME? ?SCRIPT?"
112e0 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  );.      return 
112f0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
11300 0a 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d  ..    if( objc==
11310 33 20 29 7b 0a 20 20 20 20 20 20 44 62 45 76 61  3 ){.      DbEva
11320 6c 43 6f 6e 74 65 78 74 20 73 45 76 61 6c 3b 0a  lContext sEval;.
11330 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70        Tcl_Obj *p
11340 52 65 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a  Ret = Tcl_NewObj
11350 28 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f 49 6e  ();.      Tcl_In
11360 63 72 52 65 66 43 6f 75 6e 74 28 70 52 65 74 29  crRefCount(pRet)
11370 3b 0a 20 20 20 20 20 20 64 62 45 76 61 6c 49 6e  ;.      dbEvalIn
11380 69 74 28 26 73 45 76 61 6c 2c 20 70 44 62 2c 20  it(&sEval, pDb, 
11390 6f 62 6a 76 5b 32 5d 2c 20 30 29 3b 0a 20 20 20  objv[2], 0);.   
113a0 20 20 20 77 68 69 6c 65 28 20 54 43 4c 5f 4f 4b     while( TCL_OK
113b0 3d 3d 28 72 63 20 3d 20 64 62 45 76 61 6c 53 74  ==(rc = dbEvalSt
113c0 65 70 28 26 73 45 76 61 6c 29 29 20 29 7b 0a 20  ep(&sEval)) ){. 
113d0 20 20 20 20 20 20 20 69 6e 74 20 69 3b 0a 20 20         int i;.  
113e0 20 20 20 20 20 20 69 6e 74 20 6e 43 6f 6c 3b 0a        int nCol;.
113f0 20 20 20 20 20 20 20 20 64 62 45 76 61 6c 52 6f          dbEvalRo
11400 77 49 6e 66 6f 28 26 73 45 76 61 6c 2c 20 26 6e  wInfo(&sEval, &n
11410 43 6f 6c 2c 20 30 29 3b 0a 20 20 20 20 20 20 20  Col, 0);.       
11420 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 43 6f 6c   for(i=0; i<nCol
11430 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20  ; i++){.        
11440 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
11450 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72  endElement(inter
11460 70 2c 20 70 52 65 74 2c 20 64 62 45 76 61 6c 43  p, pRet, dbEvalC
11470 6f 6c 75 6d 6e 56 61 6c 75 65 28 26 73 45 76 61  olumnValue(&sEva
11480 6c 2c 20 69 29 29 3b 0a 20 20 20 20 20 20 20 20  l, i));.        
11490 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  }.      }.      
114a0 64 62 45 76 61 6c 46 69 6e 61 6c 69 7a 65 28 26  dbEvalFinalize(&
114b0 73 45 76 61 6c 29 3b 0a 20 20 20 20 20 20 69 66  sEval);.      if
114c0 28 20 72 63 3d 3d 54 43 4c 5f 42 52 45 41 4b 20  ( rc==TCL_BREAK 
114d0 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 53  ){.        Tcl_S
114e0 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65  etObjResult(inte
114f0 72 70 2c 20 70 52 65 74 29 3b 0a 20 20 20 20 20  rp, pRet);.     
11500 20 20 20 72 63 20 3d 20 54 43 4c 5f 4f 4b 3b 0a     rc = TCL_OK;.
11510 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 54 63        }.      Tc
11520 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70  l_DecrRefCount(p
11530 52 65 74 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b  Ret);.    }else{
11540 0a 20 20 20 20 20 20 43 6c 69 65 6e 74 44 61 74  .      ClientDat
11550 61 20 63 64 5b 32 5d 3b 0a 20 20 20 20 20 20 44  a cd[2];.      D
11560 62 45 76 61 6c 43 6f 6e 74 65 78 74 20 2a 70 3b  bEvalContext *p;
11570 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a  .      Tcl_Obj *
11580 70 41 72 72 61 79 20 3d 20 30 3b 0a 20 20 20 20  pArray = 0;.    
11590 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 63 72 69    Tcl_Obj *pScri
115a0 70 74 3b 0a 0a 20 20 20 20 20 20 69 66 28 20 6f  pt;..      if( o
115b0 62 6a 63 3d 3d 35 20 26 26 20 2a 28 63 68 61 72  bjc==5 && *(char
115c0 20 2a 29 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   *)Tcl_GetString
115d0 28 6f 62 6a 76 5b 33 5d 29 20 29 7b 0a 20 20 20  (objv[3]) ){.   
115e0 20 20 20 20 20 70 41 72 72 61 79 20 3d 20 6f 62       pArray = ob
115f0 6a 76 5b 33 5d 3b 0a 20 20 20 20 20 20 7d 0a 20  jv[3];.      }. 
11600 20 20 20 20 20 70 53 63 72 69 70 74 20 3d 20 6f       pScript = o
11610 62 6a 76 5b 6f 62 6a 63 2d 31 5d 3b 0a 20 20 20  bjv[objc-1];.   
11620 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f     Tcl_IncrRefCo
11630 75 6e 74 28 70 53 63 72 69 70 74 29 3b 0a 20 20  unt(pScript);.  
11640 20 20 20 20 0a 20 20 20 20 20 20 70 20 3d 20 28      .      p = (
11650 44 62 45 76 61 6c 43 6f 6e 74 65 78 74 20 2a 29  DbEvalContext *)
11660 54 63 6c 5f 41 6c 6c 6f 63 28 73 69 7a 65 6f 66  Tcl_Alloc(sizeof
11670 28 44 62 45 76 61 6c 43 6f 6e 74 65 78 74 29 29  (DbEvalContext))
11680 3b 0a 20 20 20 20 20 20 64 62 45 76 61 6c 49 6e  ;.      dbEvalIn
11690 69 74 28 70 2c 20 70 44 62 2c 20 6f 62 6a 76 5b  it(p, pDb, objv[
116a0 32 5d 2c 20 70 41 72 72 61 79 29 3b 0a 0a 20 20  2], pArray);..  
116b0 20 20 20 20 63 64 5b 30 5d 20 3d 20 28 76 6f 69      cd[0] = (voi
116c0 64 20 2a 29 70 3b 0a 20 20 20 20 20 20 63 64 5b  d *)p;.      cd[
116d0 31 5d 20 3d 20 28 76 6f 69 64 20 2a 29 70 53 63  1] = (void *)pSc
116e0 72 69 70 74 3b 0a 20 20 20 20 20 20 72 63 20 3d  ript;.      rc =
116f0 20 44 62 45 76 61 6c 4e 65 78 74 43 6d 64 28 63   DbEvalNextCmd(c
11700 64 2c 20 69 6e 74 65 72 70 2c 20 54 43 4c 5f 4f  d, interp, TCL_O
11710 4b 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 62 72  K);.    }.    br
11720 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20  eak;.  }..  /*. 
11730 20 2a 2a 20 20 20 20 20 24 64 62 20 66 75 6e 63   **     $db func
11740 74 69 6f 6e 20 4e 41 4d 45 20 5b 2d 61 72 67 63  tion NAME [-argc
11750 6f 75 6e 74 20 4e 5d 20 53 43 52 49 50 54 0a 20  ount N] SCRIPT. 
11760 20 2a 2a 0a 20 20 2a 2a 20 43 72 65 61 74 65 20   **.  ** Create 
11770 61 20 6e 65 77 20 53 51 4c 20 66 75 6e 63 74 69  a new SQL functi
11780 6f 6e 20 63 61 6c 6c 65 64 20 4e 41 4d 45 2e 20  on called NAME. 
11790 20 57 68 65 6e 65 76 65 72 20 74 68 61 74 20 66   Whenever that f
117a0 75 6e 63 74 69 6f 6e 20 69 73 0a 20 20 2a 2a 20  unction is.  ** 
117b0 63 61 6c 6c 65 64 2c 20 69 6e 76 6f 6b 65 20 53  called, invoke S
117c0 43 52 49 50 54 20 74 6f 20 65 76 61 6c 75 61 74  CRIPT to evaluat
117d0 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 2e 0a  e the function..
117e0 20 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 46    */.  case DB_F
117f0 55 4e 43 54 49 4f 4e 3a 20 7b 0a 20 20 20 20 53  UNCTION: {.    S
11800 71 6c 46 75 6e 63 20 2a 70 46 75 6e 63 3b 0a 20  qlFunc *pFunc;. 
11810 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 63 72     Tcl_Obj *pScr
11820 69 70 74 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a  ipt;.    char *z
11830 4e 61 6d 65 3b 0a 20 20 20 20 69 6e 74 20 6e 41  Name;.    int nA
11840 72 67 20 3d 20 2d 31 3b 0a 20 20 20 20 69 66 28  rg = -1;.    if(
11850 20 6f 62 6a 63 3d 3d 36 20 29 7b 0a 20 20 20 20   objc==6 ){.    
11860 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 20    const char *z 
11870 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28  = Tcl_GetString(
11880 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 20 20 20 20  objv[3]);.      
11890 69 6e 74 20 6e 20 3d 20 73 74 72 6c 65 6e 33 30  int n = strlen30
118a0 28 7a 29 3b 0a 20 20 20 20 20 20 69 66 28 20 6e  (z);.      if( n
118b0 3e 32 20 26 26 20 73 74 72 6e 63 6d 70 28 7a 2c  >2 && strncmp(z,
118c0 20 22 2d 61 72 67 63 6f 75 6e 74 22 2c 6e 29 3d   "-argcount",n)=
118d0 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66  =0 ){.        if
118e0 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d  ( Tcl_GetIntFrom
118f0 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76  Obj(interp, objv
11900 5b 34 5d 2c 20 26 6e 41 72 67 29 20 29 20 72 65  [4], &nArg) ) re
11910 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
11920 20 20 20 20 20 20 20 20 69 66 28 20 6e 41 72 67          if( nArg
11930 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  <0 ){.          
11940 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
11950 28 69 6e 74 65 72 70 2c 20 22 6e 75 6d 62 65 72  (interp, "number
11960 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 6d 75   of arguments mu
11970 73 74 20 62 65 20 6e 6f 6e 2d 6e 65 67 61 74 69  st be non-negati
11980 76 65 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20  ve",.           
11990 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
119a0 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 20  (char*)0);.     
119b0 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
119c0 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d  ERROR;.        }
119d0 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 70  .      }.      p
119e0 53 63 72 69 70 74 20 3d 20 6f 62 6a 76 5b 35 5d  Script = objv[5]
119f0 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20  ;.    }else if( 
11a00 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 20  objc!=4 ){.     
11a10 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67   Tcl_WrongNumArg
11a20 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a  s(interp, 2, obj
11a30 76 2c 20 22 4e 41 4d 45 20 5b 2d 61 72 67 63 6f  v, "NAME [-argco
11a40 75 6e 74 20 4e 5d 20 53 43 52 49 50 54 22 29 3b  unt N] SCRIPT");
11a50 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43  .      return TC
11a60 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 65 6c  L_ERROR;.    }el
11a70 73 65 7b 0a 20 20 20 20 20 20 70 53 63 72 69 70  se{.      pScrip
11a80 74 20 3d 20 6f 62 6a 76 5b 33 5d 3b 0a 20 20 20  t = objv[3];.   
11a90 20 7d 0a 20 20 20 20 7a 4e 61 6d 65 20 3d 20 54   }.    zName = T
11aa0 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
11ab0 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 30 29 3b  Obj(objv[2], 0);
11ac0 0a 20 20 20 20 70 46 75 6e 63 20 3d 20 66 69 6e  .    pFunc = fin
11ad0 64 53 71 6c 46 75 6e 63 28 70 44 62 2c 20 7a 4e  dSqlFunc(pDb, zN
11ae0 61 6d 65 29 3b 0a 20 20 20 20 69 66 28 20 70 46  ame);.    if( pF
11af0 75 6e 63 3d 3d 30 20 29 20 72 65 74 75 72 6e 20  unc==0 ) return 
11b00 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 69  TCL_ERROR;.    i
11b10 66 28 20 70 46 75 6e 63 2d 3e 70 53 63 72 69 70  f( pFunc->pScrip
11b20 74 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 44  t ){.      Tcl_D
11b30 65 63 72 52 65 66 43 6f 75 6e 74 28 70 46 75 6e  ecrRefCount(pFun
11b40 63 2d 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 20  c->pScript);.   
11b50 20 7d 0a 20 20 20 20 70 46 75 6e 63 2d 3e 70 53   }.    pFunc->pS
11b60 63 72 69 70 74 20 3d 20 70 53 63 72 69 70 74 3b  cript = pScript;
11b70 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66  .    Tcl_IncrRef
11b80 43 6f 75 6e 74 28 70 53 63 72 69 70 74 29 3b 0a  Count(pScript);.
11b90 20 20 20 20 70 46 75 6e 63 2d 3e 75 73 65 45 76      pFunc->useEv
11ba0 61 6c 4f 62 6a 76 20 3d 20 73 61 66 65 54 6f 55  alObjv = safeToU
11bb0 73 65 45 76 61 6c 4f 62 6a 76 28 69 6e 74 65 72  seEvalObjv(inter
11bc0 70 2c 20 70 53 63 72 69 70 74 29 3b 0a 20 20 20  p, pScript);.   
11bd0 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72   rc = sqlite3_cr
11be0 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 70 44  eate_function(pD
11bf0 62 2d 3e 64 62 2c 20 7a 4e 61 6d 65 2c 20 6e 41  b->db, zName, nA
11c00 72 67 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c  rg, SQLITE_UTF8,
11c10 0a 20 20 20 20 20 20 20 20 70 46 75 6e 63 2c 20  .        pFunc, 
11c20 74 63 6c 53 71 6c 46 75 6e 63 2c 20 30 2c 20 30  tclSqlFunc, 0, 0
11c30 29 3b 0a 20 20 20 20 69 66 28 20 72 63 21 3d 53  );.    if( rc!=S
11c40 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
11c50 20 20 72 63 20 3d 20 54 43 4c 5f 45 52 52 4f 52    rc = TCL_ERROR
11c60 3b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 52  ;.      Tcl_SetR
11c70 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63  esult(interp, (c
11c80 68 61 72 20 2a 29 73 71 6c 69 74 65 33 5f 65 72  har *)sqlite3_er
11c90 72 6d 73 67 28 70 44 62 2d 3e 64 62 29 2c 20 54  rmsg(pDb->db), T
11ca0 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20  CL_VOLATILE);.  
11cb0 20 20 7d 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20    }.    break;. 
11cc0 20 7d 0a 0a 20 20 2f 2a 0a 20 20 2a 2a 20 20 20   }..  /*.  **   
11cd0 20 20 24 64 62 20 69 6e 63 72 62 6c 6f 62 20 3f    $db incrblob ?
11ce0 2d 72 65 61 64 6f 6e 6c 79 3f 20 3f 44 42 3f 20  -readonly? ?DB? 
11cf0 54 41 42 4c 45 20 43 4f 4c 55 4d 4e 20 52 4f 57  TABLE COLUMN ROW
11d00 49 44 0a 20 20 2a 2f 0a 20 20 63 61 73 65 20 44  ID.  */.  case D
11d10 42 5f 49 4e 43 52 42 4c 4f 42 3a 20 7b 0a 23 69  B_INCRBLOB: {.#i
11d20 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  fdef SQLITE_OMIT
11d30 5f 49 4e 43 52 42 4c 4f 42 0a 20 20 20 20 54 63  _INCRBLOB.    Tc
11d40 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
11d50 6e 74 65 72 70 2c 20 22 69 6e 63 72 62 6c 6f 62  nterp, "incrblob
11d60 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 69   not available i
11d70 6e 20 74 68 69 73 20 62 75 69 6c 64 22 2c 20 30  n this build", 0
11d80 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
11d90 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20  L_ERROR;.#else. 
11da0 20 20 20 69 6e 74 20 69 73 52 65 61 64 6f 6e 6c     int isReadonl
11db0 79 20 3d 20 30 3b 0a 20 20 20 20 63 6f 6e 73 74  y = 0;.    const
11dc0 20 63 68 61 72 20 2a 7a 44 62 20 3d 20 22 6d 61   char *zDb = "ma
11dd0 69 6e 22 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63  in";.    const c
11de0 68 61 72 20 2a 7a 54 61 62 6c 65 3b 0a 20 20 20  har *zTable;.   
11df0 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f   const char *zCo
11e00 6c 75 6d 6e 3b 0a 20 20 20 20 73 71 6c 69 74 65  lumn;.    sqlite
11e10 5f 69 6e 74 36 34 20 69 52 6f 77 3b 0a 0a 20 20  _int64 iRow;..  
11e20 20 20 2f 2a 20 43 68 65 63 6b 20 66 6f 72 20 74    /* Check for t
11e30 68 65 20 2d 72 65 61 64 6f 6e 6c 79 20 6f 70 74  he -readonly opt
11e40 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 28 20 6f  ion */.    if( o
11e50 62 6a 63 3e 33 20 26 26 20 73 74 72 63 6d 70 28  bjc>3 && strcmp(
11e60 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
11e70 6a 76 5b 32 5d 29 2c 20 22 2d 72 65 61 64 6f 6e  jv[2]), "-readon
11e80 6c 79 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20  ly")==0 ){.     
11e90 20 69 73 52 65 61 64 6f 6e 6c 79 20 3d 20 31 3b   isReadonly = 1;
11ea0 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 28 20  .    }..    if( 
11eb0 6f 62 6a 63 21 3d 28 35 2b 69 73 52 65 61 64 6f  objc!=(5+isReado
11ec0 6e 6c 79 29 20 26 26 20 6f 62 6a 63 21 3d 28 36  nly) && objc!=(6
11ed0 2b 69 73 52 65 61 64 6f 6e 6c 79 29 20 29 7b 0a  +isReadonly) ){.
11ee0 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e        Tcl_WrongN
11ef0 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32  umArgs(interp, 2
11f00 2c 20 6f 62 6a 76 2c 20 22 3f 2d 72 65 61 64 6f  , objv, "?-reado
11f10 6e 6c 79 3f 20 3f 44 42 3f 20 54 41 42 4c 45 20  nly? ?DB? TABLE 
11f20 43 4f 4c 55 4d 4e 20 52 4f 57 49 44 22 29 3b 0a  COLUMN ROWID");.
11f30 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
11f40 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20  _ERROR;.    }.. 
11f50 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 28 36 2b     if( objc==(6+
11f60 69 73 52 65 61 64 6f 6e 6c 79 29 20 29 7b 0a 20  isReadonly) ){. 
11f70 20 20 20 20 20 7a 44 62 20 3d 20 54 63 6c 5f 47       zDb = Tcl_G
11f80 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d  etString(objv[2]
11f90 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 54 61  );.    }.    zTa
11fa0 62 6c 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  ble = Tcl_GetStr
11fb0 69 6e 67 28 6f 62 6a 76 5b 6f 62 6a 63 2d 33 5d  ing(objv[objc-3]
11fc0 29 3b 0a 20 20 20 20 7a 43 6f 6c 75 6d 6e 20 3d  );.    zColumn =
11fd0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f   Tcl_GetString(o
11fe0 62 6a 76 5b 6f 62 6a 63 2d 32 5d 29 3b 0a 20 20  bjv[objc-2]);.  
11ff0 20 20 72 63 20 3d 20 54 63 6c 5f 47 65 74 57 69    rc = Tcl_GetWi
12000 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74  deIntFromObj(int
12010 65 72 70 2c 20 6f 62 6a 76 5b 6f 62 6a 63 2d 31  erp, objv[objc-1
12020 5d 2c 20 26 69 52 6f 77 29 3b 0a 0a 20 20 20 20  ], &iRow);..    
12030 69 66 28 20 72 63 3d 3d 54 43 4c 5f 4f 4b 20 29  if( rc==TCL_OK )
12040 7b 0a 20 20 20 20 20 20 72 63 20 3d 20 63 72 65  {.      rc = cre
12050 61 74 65 49 6e 63 72 62 6c 6f 62 43 68 61 6e 6e  ateIncrblobChann
12060 65 6c 28 0a 20 20 20 20 20 20 20 20 20 20 69 6e  el(.          in
12070 74 65 72 70 2c 20 70 44 62 2c 20 7a 44 62 2c 20  terp, pDb, zDb, 
12080 7a 54 61 62 6c 65 2c 20 7a 43 6f 6c 75 6d 6e 2c  zTable, zColumn,
12090 20 69 52 6f 77 2c 20 69 73 52 65 61 64 6f 6e 6c   iRow, isReadonl
120a0 79 0a 20 20 20 20 20 20 29 3b 0a 20 20 20 20 7d  y.      );.    }
120b0 0a 23 65 6e 64 69 66 0a 20 20 20 20 62 72 65 61  .#endif.    brea
120c0 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20 2a  k;.  }..  /*.  *
120d0 2a 20 20 20 20 20 24 64 62 20 69 6e 74 65 72 72  *     $db interr
120e0 75 70 74 0a 20 20 2a 2a 0a 20 20 2a 2a 20 49 6e  upt.  **.  ** In
120f0 74 65 72 72 75 70 74 20 74 68 65 20 65 78 65 63  terrupt the exec
12100 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 69 6e 6e  ution of the inn
12110 65 72 2d 6d 6f 73 74 20 53 51 4c 20 69 6e 74 65  er-most SQL inte
12120 72 70 72 65 74 65 72 2e 20 20 54 68 69 73 0a 20  rpreter.  This. 
12130 20 2a 2a 20 63 61 75 73 65 73 20 74 68 65 20 53   ** causes the S
12140 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 74 6f 20  QL statement to 
12150 72 65 74 75 72 6e 20 61 6e 20 65 72 72 6f 72 20  return an error 
12160 6f 66 20 53 51 4c 49 54 45 5f 49 4e 54 45 52 52  of SQLITE_INTERR
12170 55 50 54 2e 0a 20 20 2a 2f 0a 20 20 63 61 73 65  UPT..  */.  case
12180 20 44 42 5f 49 4e 54 45 52 52 55 50 54 3a 20 7b   DB_INTERRUPT: {
12190 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 74  .    sqlite3_int
121a0 65 72 72 75 70 74 28 70 44 62 2d 3e 64 62 29 3b  errupt(pDb->db);
121b0 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a  .    break;.  }.
121c0 0a 20 20 2f 2a 0a 20 20 2a 2a 20 20 20 20 20 24  .  /*.  **     $
121d0 64 62 20 6e 75 6c 6c 76 61 6c 75 65 20 3f 53 54  db nullvalue ?ST
121e0 52 49 4e 47 3f 0a 20 20 2a 2a 0a 20 20 2a 2a 20  RING?.  **.  ** 
121f0 43 68 61 6e 67 65 20 74 65 78 74 20 75 73 65 64  Change text used
12200 20 77 68 65 6e 20 61 20 4e 55 4c 4c 20 63 6f 6d   when a NULL com
12210 65 73 20 62 61 63 6b 20 66 72 6f 6d 20 74 68 65  es back from the
12220 20 64 61 74 61 62 61 73 65 2e 20 49 66 20 3f 53   database. If ?S
12230 54 52 49 4e 47 3f 0a 20 20 2a 2a 20 69 73 20 6e  TRING?.  ** is n
12240 6f 74 20 70 72 65 73 65 6e 74 2c 20 74 68 65 6e  ot present, then
12250 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 74 72   the current str
12260 69 6e 67 20 75 73 65 64 20 66 6f 72 20 4e 55 4c  ing used for NUL
12270 4c 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 20  L is returned.. 
12280 20 2a 2a 20 49 66 20 53 54 52 49 4e 47 20 69 73   ** If STRING is
12290 20 70 72 65 73 65 6e 74 2c 20 74 68 65 6e 20 53   present, then S
122a0 54 52 49 4e 47 20 69 73 20 72 65 74 75 72 6e 65  TRING is returne
122b0 64 2e 0a 20 20 2a 2a 0a 20 20 2a 2f 0a 20 20 63  d..  **.  */.  c
122c0 61 73 65 20 44 42 5f 4e 55 4c 4c 56 41 4c 55 45  ase DB_NULLVALUE
122d0 3a 20 7b 0a 20 20 20 20 69 66 28 20 6f 62 6a 63  : {.    if( objc
122e0 21 3d 32 20 26 26 20 6f 62 6a 63 21 3d 33 20 29  !=2 && objc!=3 )
122f0 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e  {.      Tcl_Wron
12300 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c  gNumArgs(interp,
12310 20 32 2c 20 6f 62 6a 76 2c 20 22 4e 55 4c 4c 56   2, objv, "NULLV
12320 41 4c 55 45 22 29 3b 0a 20 20 20 20 20 20 72 65  ALUE");.      re
12330 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
12340 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 6f 62      }.    if( ob
12350 6a 63 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20 69  jc==3 ){.      i
12360 6e 74 20 6c 65 6e 3b 0a 20 20 20 20 20 20 63 68  nt len;.      ch
12370 61 72 20 2a 7a 4e 75 6c 6c 20 3d 20 54 63 6c 5f  ar *zNull = Tcl_
12380 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a  GetStringFromObj
12390 28 6f 62 6a 76 5b 32 5d 2c 20 26 6c 65 6e 29 3b  (objv[2], &len);
123a0 0a 20 20 20 20 20 20 69 66 28 20 70 44 62 2d 3e  .      if( pDb->
123b0 7a 4e 75 6c 6c 20 29 7b 0a 20 20 20 20 20 20 20  zNull ){.       
123c0 20 54 63 6c 5f 46 72 65 65 28 70 44 62 2d 3e 7a   Tcl_Free(pDb->z
123d0 4e 75 6c 6c 29 3b 0a 20 20 20 20 20 20 7d 0a 20  Null);.      }. 
123e0 20 20 20 20 20 69 66 28 20 7a 4e 75 6c 6c 20 26       if( zNull &
123f0 26 20 6c 65 6e 3e 30 20 29 7b 0a 20 20 20 20 20  & len>0 ){.     
12400 20 20 20 70 44 62 2d 3e 7a 4e 75 6c 6c 20 3d 20     pDb->zNull = 
12410 54 63 6c 5f 41 6c 6c 6f 63 28 20 6c 65 6e 20 2b  Tcl_Alloc( len +
12420 20 31 20 29 3b 0a 20 20 20 20 20 20 20 20 73 74   1 );.        st
12430 72 6e 63 70 79 28 70 44 62 2d 3e 7a 4e 75 6c 6c  rncpy(pDb->zNull
12440 2c 20 7a 4e 75 6c 6c 2c 20 6c 65 6e 29 3b 0a 20  , zNull, len);. 
12450 20 20 20 20 20 20 20 70 44 62 2d 3e 7a 4e 75 6c         pDb->zNul
12460 6c 5b 6c 65 6e 5d 20 3d 20 27 5c 30 27 3b 0a 20  l[len] = '\0';. 
12470 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20       }else{.    
12480 20 20 20 20 70 44 62 2d 3e 7a 4e 75 6c 6c 20 3d      pDb->zNull =
12490 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20   0;.      }.    
124a0 7d 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a  }.    Tcl_SetObj
124b0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 64  Result(interp, d
124c0 62 54 65 78 74 54 6f 4f 62 6a 28 70 44 62 2d 3e  bTextToObj(pDb->
124d0 7a 4e 75 6c 6c 29 29 3b 0a 20 20 20 20 62 72 65  zNull));.    bre
124e0 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20  ak;.  }..  /*.  
124f0 2a 2a 20 20 20 20 20 24 64 62 20 6c 61 73 74 5f  **     $db last_
12500 69 6e 73 65 72 74 5f 72 6f 77 69 64 20 0a 20 20  insert_rowid .  
12510 2a 2a 0a 20 20 2a 2a 20 52 65 74 75 72 6e 20 61  **.  ** Return a
12520 6e 20 69 6e 74 65 67 65 72 20 77 68 69 63 68 20  n integer which 
12530 69 73 20 74 68 65 20 52 4f 57 49 44 20 66 6f 72  is the ROWID for
12540 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74   the most recent
12550 20 69 6e 73 65 72 74 2e 0a 20 20 2a 2f 0a 20 20   insert..  */.  
12560 63 61 73 65 20 44 42 5f 4c 41 53 54 5f 49 4e 53  case DB_LAST_INS
12570 45 52 54 5f 52 4f 57 49 44 3a 20 7b 0a 20 20 20  ERT_ROWID: {.   
12580 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 73 75 6c   Tcl_Obj *pResul
12590 74 3b 0a 20 20 20 20 54 63 6c 5f 57 69 64 65 49  t;.    Tcl_WideI
125a0 6e 74 20 72 6f 77 69 64 3b 0a 20 20 20 20 69 66  nt rowid;.    if
125b0 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20  ( objc!=2 ){.   
125c0 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41     Tcl_WrongNumA
125d0 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f  rgs(interp, 2, o
125e0 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20 20 20 20  bjv, "");.      
125f0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
12600 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 6f 77 69  ;.    }.    rowi
12610 64 20 3d 20 73 71 6c 69 74 65 33 5f 6c 61 73 74  d = sqlite3_last
12620 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 70 44  _insert_rowid(pD
12630 62 2d 3e 64 62 29 3b 0a 20 20 20 20 70 52 65 73  b->db);.    pRes
12640 75 6c 74 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a  ult = Tcl_GetObj
12650 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a  Result(interp);.
12660 20 20 20 20 54 63 6c 5f 53 65 74 57 69 64 65 49      Tcl_SetWideI
12670 6e 74 4f 62 6a 28 70 52 65 73 75 6c 74 2c 20 72  ntObj(pResult, r
12680 6f 77 69 64 29 3b 0a 20 20 20 20 62 72 65 61 6b  owid);.    break
12690 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20 2a 2a  ;.  }..  /*.  **
126a0 20 54 68 65 20 44 42 5f 4f 4e 45 43 4f 4c 55 4d   The DB_ONECOLUM
126b0 4e 20 6d 65 74 68 6f 64 20 69 73 20 69 6d 70 6c  N method is impl
126c0 65 6d 65 6e 74 65 64 20 74 6f 67 65 74 68 65 72  emented together
126d0 20 77 69 74 68 20 44 42 5f 45 58 49 53 54 53 2e   with DB_EXISTS.
126e0 0a 20 20 2a 2f 0a 0a 20 20 2f 2a 20 20 20 20 24  .  */..  /*    $
126f0 64 62 20 70 72 6f 67 72 65 73 73 20 3f 4e 20 43  db progress ?N C
12700 41 4c 4c 42 41 43 4b 3f 0a 20 20 2a 2a 20 0a 20  ALLBACK?.  ** . 
12710 20 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20 67   ** Invoke the g
12720 69 76 65 6e 20 63 61 6c 6c 62 61 63 6b 20 65 76  iven callback ev
12730 65 72 79 20 4e 20 76 69 72 74 75 61 6c 20 6d 61  ery N virtual ma
12740 63 68 69 6e 65 20 6f 70 63 6f 64 65 73 20 77 68  chine opcodes wh
12750 69 6c 65 20 65 78 65 63 75 74 69 6e 67 0a 20 20  ile executing.  
12760 2a 2a 20 71 75 65 72 69 65 73 2e 0a 20 20 2a 2f  ** queries..  */
12770 0a 20 20 63 61 73 65 20 44 42 5f 50 52 4f 47 52  .  case DB_PROGR
12780 45 53 53 3a 20 7b 0a 20 20 20 20 69 66 28 20 6f  ESS: {.    if( o
12790 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 20 20 20 20  bjc==2 ){.      
127a0 69 66 28 20 70 44 62 2d 3e 7a 50 72 6f 67 72 65  if( pDb->zProgre
127b0 73 73 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63  ss ){.        Tc
127c0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
127d0 6e 74 65 72 70 2c 20 70 44 62 2d 3e 7a 50 72 6f  nterp, pDb->zPro
127e0 67 72 65 73 73 2c 20 30 29 3b 0a 20 20 20 20 20  gress, 0);.     
127f0 20 7d 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28   }.    }else if(
12800 20 6f 62 6a 63 3d 3d 34 20 29 7b 0a 20 20 20 20   objc==4 ){.    
12810 20 20 63 68 61 72 20 2a 7a 50 72 6f 67 72 65 73    char *zProgres
12820 73 3b 0a 20 20 20 20 20 20 69 6e 74 20 6c 65 6e  s;.      int len
12830 3b 0a 20 20 20 20 20 20 69 6e 74 20 4e 3b 0a 20  ;.      int N;. 
12840 20 20 20 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21       if( TCL_OK!
12850 3d 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f  =Tcl_GetIntFromO
12860 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b  bj(interp, objv[
12870 32 5d 2c 20 26 4e 29 20 29 7b 0a 20 20 20 20 20  2], &N) ){.     
12880 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
12890 52 4f 52 3b 0a 20 20 20 20 20 20 7d 3b 0a 20 20  ROR;.      };.  
128a0 20 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 50 72      if( pDb->zPr
128b0 6f 67 72 65 73 73 20 29 7b 0a 20 20 20 20 20 20  ogress ){.      
128c0 20 20 54 63 6c 5f 46 72 65 65 28 70 44 62 2d 3e    Tcl_Free(pDb->
128d0 7a 50 72 6f 67 72 65 73 73 29 3b 0a 20 20 20 20  zProgress);.    
128e0 20 20 7d 0a 20 20 20 20 20 20 7a 50 72 6f 67 72    }.      zProgr
128f0 65 73 73 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  ess = Tcl_GetStr
12900 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b  ingFromObj(objv[
12910 33 5d 2c 20 26 6c 65 6e 29 3b 0a 20 20 20 20 20  3], &len);.     
12920 20 69 66 28 20 7a 50 72 6f 67 72 65 73 73 20 26   if( zProgress &
12930 26 20 6c 65 6e 3e 30 20 29 7b 0a 20 20 20 20 20  & len>0 ){.     
12940 20 20 20 70 44 62 2d 3e 7a 50 72 6f 67 72 65 73     pDb->zProgres
12950 73 20 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28 20 6c  s = Tcl_Alloc( l
12960 65 6e 20 2b 20 31 20 29 3b 0a 20 20 20 20 20 20  en + 1 );.      
12970 20 20 6d 65 6d 63 70 79 28 70 44 62 2d 3e 7a 50    memcpy(pDb->zP
12980 72 6f 67 72 65 73 73 2c 20 7a 50 72 6f 67 72 65  rogress, zProgre
12990 73 73 2c 20 6c 65 6e 2b 31 29 3b 0a 20 20 20 20  ss, len+1);.    
129a0 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
129b0 20 70 44 62 2d 3e 7a 50 72 6f 67 72 65 73 73 20   pDb->zProgress 
129c0 3d 20 30 3b 0a 20 20 20 20 20 20 7d 0a 23 69 66  = 0;.      }.#if
129d0 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  ndef SQLITE_OMIT
129e0 5f 50 52 4f 47 52 45 53 53 5f 43 41 4c 4c 42 41  _PROGRESS_CALLBA
129f0 43 4b 0a 20 20 20 20 20 20 69 66 28 20 70 44 62  CK.      if( pDb
12a00 2d 3e 7a 50 72 6f 67 72 65 73 73 20 29 7b 0a 20  ->zProgress ){. 
12a10 20 20 20 20 20 20 20 70 44 62 2d 3e 69 6e 74 65         pDb->inte
12a20 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20  rp = interp;.   
12a30 20 20 20 20 20 73 71 6c 69 74 65 33 5f 70 72 6f       sqlite3_pro
12a40 67 72 65 73 73 5f 68 61 6e 64 6c 65 72 28 70 44  gress_handler(pD
12a50 62 2d 3e 64 62 2c 20 4e 2c 20 44 62 50 72 6f 67  b->db, N, DbProg
12a60 72 65 73 73 48 61 6e 64 6c 65 72 2c 20 70 44 62  ressHandler, pDb
12a70 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a  );.      }else{.
12a80 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f          sqlite3_
12a90 70 72 6f 67 72 65 73 73 5f 68 61 6e 64 6c 65 72  progress_handler
12aa0 28 70 44 62 2d 3e 64 62 2c 20 30 2c 20 30 2c 20  (pDb->db, 0, 0, 
12ab0 30 29 3b 0a 20 20 20 20 20 20 7d 0a 23 65 6e 64  0);.      }.#end
12ac0 69 66 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20  if.    }else{.  
12ad0 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
12ae0 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20  Args(interp, 2, 
12af0 6f 62 6a 76 2c 20 22 4e 20 43 41 4c 4c 42 41 43  objv, "N CALLBAC
12b00 4b 22 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72  K");.      retur
12b10 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
12b20 20 7d 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20   }.    break;.  
12b30 7d 0a 0a 20 20 2f 2a 20 20 20 20 24 64 62 20 70  }..  /*    $db p
12b40 72 6f 66 69 6c 65 20 3f 43 41 4c 4c 42 41 43 4b  rofile ?CALLBACK
12b50 3f 0a 20 20 2a 2a 0a 20 20 2a 2a 20 4d 61 6b 65  ?.  **.  ** Make
12b60 20 61 72 72 61 6e 67 65 6d 65 6e 74 73 20 74 6f   arrangements to
12b70 20 69 6e 76 6f 6b 65 20 74 68 65 20 43 41 4c 4c   invoke the CALL
12b80 42 41 43 4b 20 72 6f 75 74 69 6e 65 20 61 66 74  BACK routine aft
12b90 65 72 20 65 61 63 68 20 53 51 4c 20 73 74 61 74  er each SQL stat
12ba0 65 6d 65 6e 74 0a 20 20 2a 2a 20 74 68 61 74 20  ement.  ** that 
12bb0 68 61 73 20 72 75 6e 2e 20 20 54 68 65 20 74 65  has run.  The te
12bc0 78 74 20 6f 66 20 74 68 65 20 53 51 4c 20 61 6e  xt of the SQL an
12bd0 64 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20  d the amount of 
12be0 65 6c 61 70 73 65 20 74 69 6d 65 20 61 72 65 0a  elapse time are.
12bf0 20 20 2a 2a 20 61 70 70 65 6e 64 65 64 20 74 6f    ** appended to
12c00 20 43 41 4c 4c 42 41 43 4b 20 62 65 66 6f 72 65   CALLBACK before
12c10 20 74 68 65 20 73 63 72 69 70 74 20 69 73 20 72   the script is r
12c20 75 6e 2e 0a 20 20 2a 2f 0a 20 20 63 61 73 65 20  un..  */.  case 
12c30 44 42 5f 50 52 4f 46 49 4c 45 3a 20 7b 0a 20 20  DB_PROFILE: {.  
12c40 20 20 69 66 28 20 6f 62 6a 63 3e 33 20 29 7b 0a    if( objc>3 ){.
12c50 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e        Tcl_WrongN
12c60 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32  umArgs(interp, 2
12c70 2c 20 6f 62 6a 76 2c 20 22 3f 43 41 4c 4c 42 41  , objv, "?CALLBA
12c80 43 4b 3f 22 29 3b 0a 20 20 20 20 20 20 72 65 74  CK?");.      ret
12c90 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
12ca0 20 20 20 7d 65 6c 73 65 20 69 66 28 20 6f 62 6a     }else if( obj
12cb0 63 3d 3d 32 20 29 7b 0a 20 20 20 20 20 20 69 66  c==2 ){.      if
12cc0 28 20 70 44 62 2d 3e 7a 50 72 6f 66 69 6c 65 20  ( pDb->zProfile 
12cd0 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41  ){.        Tcl_A
12ce0 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
12cf0 72 70 2c 20 70 44 62 2d 3e 7a 50 72 6f 66 69 6c  rp, pDb->zProfil
12d00 65 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20  e, 0);.      }. 
12d10 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
12d20 63 68 61 72 20 2a 7a 50 72 6f 66 69 6c 65 3b 0a  char *zProfile;.
12d30 20 20 20 20 20 20 69 6e 74 20 6c 65 6e 3b 0a 20        int len;. 
12d40 20 20 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 50       if( pDb->zP
12d50 72 6f 66 69 6c 65 20 29 7b 0a 20 20 20 20 20 20  rofile ){.      
12d60 20 20 54 63 6c 5f 46 72 65 65 28 70 44 62 2d 3e    Tcl_Free(pDb->
12d70 7a 50 72 6f 66 69 6c 65 29 3b 0a 20 20 20 20 20  zProfile);.     
12d80 20 7d 0a 20 20 20 20 20 20 7a 50 72 6f 66 69 6c   }.      zProfil
12d90 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  e = Tcl_GetStrin
12da0 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d  gFromObj(objv[2]
12db0 2c 20 26 6c 65 6e 29 3b 0a 20 20 20 20 20 20 69  , &len);.      i
12dc0 66 28 20 7a 50 72 6f 66 69 6c 65 20 26 26 20 6c  f( zProfile && l
12dd0 65 6e 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20  en>0 ){.        
12de0 70 44 62 2d 3e 7a 50 72 6f 66 69 6c 65 20 3d 20  pDb->zProfile = 
12df0 54 63 6c 5f 41 6c 6c 6f 63 28 20 6c 65 6e 20 2b  Tcl_Alloc( len +
12e00 20 31 20 29 3b 0a 20 20 20 20 20 20 20 20 6d 65   1 );.        me
12e10 6d 63 70 79 28 70 44 62 2d 3e 7a 50 72 6f 66 69  mcpy(pDb->zProfi
12e20 6c 65 2c 20 7a 50 72 6f 66 69 6c 65 2c 20 6c 65  le, zProfile, le
12e30 6e 2b 31 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73  n+1);.      }els
12e40 65 7b 0a 20 20 20 20 20 20 20 20 70 44 62 2d 3e  e{.        pDb->
12e50 7a 50 72 6f 66 69 6c 65 20 3d 20 30 3b 0a 20 20  zProfile = 0;.  
12e60 20 20 20 20 7d 0a 23 69 66 6e 64 65 66 20 53 51      }.#ifndef SQ
12e70 4c 49 54 45 5f 4f 4d 49 54 5f 54 52 41 43 45 0a  LITE_OMIT_TRACE.
12e80 20 20 20 20 20 20 69 66 28 20 70 44 62 2d 3e 7a        if( pDb->z
12e90 50 72 6f 66 69 6c 65 20 29 7b 0a 20 20 20 20 20  Profile ){.     
12ea0 20 20 20 70 44 62 2d 3e 69 6e 74 65 72 70 20 3d     pDb->interp =
12eb0 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 20 20 20   interp;.       
12ec0 20 73 71 6c 69 74 65 33 5f 70 72 6f 66 69 6c 65   sqlite3_profile
12ed0 28 70 44 62 2d 3e 64 62 2c 20 44 62 50 72 6f 66  (pDb->db, DbProf
12ee0 69 6c 65 48 61 6e 64 6c 65 72 2c 20 70 44 62 29  ileHandler, pDb)
12ef0 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20  ;.      }else{. 
12f00 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 70         sqlite3_p
12f10 72 6f 66 69 6c 65 28 70 44 62 2d 3e 64 62 2c 20  rofile(pDb->db, 
12f20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 23  0, 0);.      }.#
12f30 65 6e 64 69 66 0a 20 20 20 20 7d 0a 20 20 20 20  endif.    }.    
12f40 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a  break;.  }..  /*
12f50 0a 20 20 2a 2a 20 20 20 20 20 24 64 62 20 72 65  .  **     $db re
12f60 6b 65 79 20 4b 45 59 0a 20 20 2a 2a 0a 20 20 2a  key KEY.  **.  *
12f70 2a 20 43 68 61 6e 67 65 20 74 68 65 20 65 6e 63  * Change the enc
12f80 72 79 70 74 69 6f 6e 20 6b 65 79 20 6f 6e 20 74  ryption key on t
12f90 68 65 20 63 75 72 72 65 6e 74 6c 79 20 6f 70 65  he currently ope
12fa0 6e 20 64 61 74 61 62 61 73 65 2e 0a 20 20 2a 2f  n database..  */
12fb0 0a 20 20 63 61 73 65 20 44 42 5f 52 45 4b 45 59  .  case DB_REKEY
12fc0 3a 20 7b 0a 20 20 20 20 69 6e 74 20 6e 4b 65 79  : {.    int nKey
12fd0 3b 0a 20 20 20 20 76 6f 69 64 20 2a 70 4b 65 79  ;.    void *pKey
12fe0 3b 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 21 3d  ;.    if( objc!=
12ff0 33 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57  3 ){.      Tcl_W
13000 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
13010 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 4b 45  rp, 2, objv, "KE
13020 59 22 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72  Y");.      retur
13030 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
13040 20 7d 0a 20 20 20 20 70 4b 65 79 20 3d 20 54 63   }.    pKey = Tc
13050 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72  l_GetByteArrayFr
13060 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26  omObj(objv[2], &
13070 6e 4b 65 79 29 3b 0a 23 69 66 64 65 66 20 53 51  nKey);.#ifdef SQ
13080 4c 49 54 45 5f 48 41 53 5f 43 4f 44 45 43 0a 20  LITE_HAS_CODEC. 
13090 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f     rc = sqlite3_
130a0 72 65 6b 65 79 28 70 44 62 2d 3e 64 62 2c 20 70  rekey(pDb->db, p
130b0 4b 65 79 2c 20 6e 4b 65 79 29 3b 0a 20 20 20 20  Key, nKey);.    
130c0 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 20 20  if( rc ){.      
130d0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
130e0 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 33  (interp, sqlite3
130f0 45 72 72 53 74 72 28 72 63 29 2c 20 30 29 3b 0a  ErrStr(rc), 0);.
13100 20 20 20 20 20 20 72 63 20 3d 20 54 43 4c 5f 45        rc = TCL_E
13110 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 23 65 6e 64  RROR;.    }.#end
13120 69 66 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  if.    break;.  
13130 7d 0a 0a 20 20 2f 2a 20 20 20 20 24 64 62 20 72  }..  /*    $db r
13140 65 73 74 6f 72 65 20 3f 44 41 54 41 42 41 53 45  estore ?DATABASE
13150 3f 20 46 49 4c 45 4e 41 4d 45 0a 20 20 2a 2a 0a  ? FILENAME.  **.
13160 20 20 2a 2a 20 4f 70 65 6e 20 61 20 64 61 74 61    ** Open a data
13170 62 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 64 20  base file named 
13180 46 49 4c 45 4e 41 4d 45 2e 20 20 54 72 61 6e 73  FILENAME.  Trans
13190 66 65 72 20 74 68 65 20 63 6f 6e 74 65 6e 74 20  fer the content 
131a0 0a 20 20 2a 2a 20 6f 66 20 46 49 4c 45 4e 41 4d  .  ** of FILENAM
131b0 45 20 69 6e 74 6f 20 74 68 65 20 6c 6f 63 61 6c  E into the local
131c0 20 64 61 74 61 62 61 73 65 20 44 41 54 41 42 41   database DATABA
131d0 53 45 20 28 64 65 66 61 75 6c 74 3a 20 22 6d 61  SE (default: "ma
131e0 69 6e 22 29 2e 0a 20 20 2a 2f 0a 20 20 63 61 73  in")..  */.  cas
131f0 65 20 44 42 5f 52 45 53 54 4f 52 45 3a 20 7b 0a  e DB_RESTORE: {.
13200 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a      const char *
13210 7a 53 72 63 46 69 6c 65 3b 0a 20 20 20 20 63 6f  zSrcFile;.    co
13220 6e 73 74 20 63 68 61 72 20 2a 7a 44 65 73 74 44  nst char *zDestD
13230 62 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 20 2a  b;.    sqlite3 *
13240 70 53 72 63 3b 0a 20 20 20 20 73 71 6c 69 74 65  pSrc;.    sqlite
13250 33 5f 62 61 63 6b 75 70 20 2a 70 42 61 63 6b 75  3_backup *pBacku
13260 70 3b 0a 20 20 20 20 69 6e 74 20 6e 54 69 6d 65  p;.    int nTime
13270 6f 75 74 20 3d 20 30 3b 0a 0a 20 20 20 20 69 66  out = 0;..    if
13280 28 20 6f 62 6a 63 3d 3d 33 20 29 7b 0a 20 20 20  ( objc==3 ){.   
13290 20 20 20 7a 44 65 73 74 44 62 20 3d 20 22 6d 61     zDestDb = "ma
132a0 69 6e 22 3b 0a 20 20 20 20 20 20 7a 53 72 63 46  in";.      zSrcF
132b0 69 6c 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  ile = Tcl_GetStr
132c0 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20  ing(objv[2]);.  
132d0 20 20 7d 65 6c 73 65 20 69 66 28 20 6f 62 6a 63    }else if( objc
132e0 3d 3d 34 20 29 7b 0a 20 20 20 20 20 20 7a 44 65  ==4 ){.      zDe
132f0 73 74 44 62 20 3d 20 54 63 6c 5f 47 65 74 53 74  stDb = Tcl_GetSt
13300 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20  ring(objv[2]);. 
13310 20 20 20 20 20 7a 53 72 63 46 69 6c 65 20 3d 20       zSrcFile = 
13320 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
13330 6a 76 5b 33 5d 29 3b 0a 20 20 20 20 7d 65 6c 73  jv[3]);.    }els
13340 65 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f  e{.      Tcl_Wro
13350 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
13360 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 3f 44 41 54  , 2, objv, "?DAT
13370 41 42 41 53 45 3f 20 46 49 4c 45 4e 41 4d 45 22  ABASE? FILENAME"
13380 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  );.      return 
13390 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
133a0 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65  .    rc = sqlite
133b0 33 5f 6f 70 65 6e 5f 76 32 28 7a 53 72 63 46 69  3_open_v2(zSrcFi
133c0 6c 65 2c 20 26 70 53 72 63 2c 20 53 51 4c 49 54  le, &pSrc, SQLIT
133d0 45 5f 4f 50 45 4e 5f 52 45 41 44 4f 4e 4c 59 2c  E_OPEN_READONLY,
133e0 20 30 29 3b 0a 20 20 20 20 69 66 28 20 72 63 21   0);.    if( rc!
133f0 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20  =SQLITE_OK ){.  
13400 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
13410 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 61  sult(interp, "ca
13420 6e 6e 6f 74 20 6f 70 65 6e 20 73 6f 75 72 63 65  nnot open source
13430 20 64 61 74 61 62 61 73 65 3a 20 22 2c 0a 20 20   database: ",.  
13440 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33           sqlite3
13450 5f 65 72 72 6d 73 67 28 70 53 72 63 29 2c 20 28  _errmsg(pSrc), (
13460 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 20 20  char*)0);.      
13470 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 70 53  sqlite3_close(pS
13480 72 63 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72  rc);.      retur
13490 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
134a0 20 7d 0a 20 20 20 20 70 42 61 63 6b 75 70 20 3d   }.    pBackup =
134b0 20 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f   sqlite3_backup_
134c0 69 6e 69 74 28 70 44 62 2d 3e 64 62 2c 20 7a 44  init(pDb->db, zD
134d0 65 73 74 44 62 2c 20 70 53 72 63 2c 20 22 6d 61  estDb, pSrc, "ma
134e0 69 6e 22 29 3b 0a 20 20 20 20 69 66 28 20 70 42  in");.    if( pB
134f0 61 63 6b 75 70 3d 3d 30 20 29 7b 0a 20 20 20 20  ackup==0 ){.    
13500 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
13510 6c 74 28 69 6e 74 65 72 70 2c 20 22 72 65 73 74  lt(interp, "rest
13520 6f 72 65 20 66 61 69 6c 65 64 3a 20 22 2c 0a 20  ore failed: ",. 
13530 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65            sqlite
13540 33 5f 65 72 72 6d 73 67 28 70 44 62 2d 3e 64 62  3_errmsg(pDb->db
13550 29 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20  ), (char*)0);.  
13560 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73      sqlite3_clos
13570 65 28 70 53 72 63 29 3b 0a 20 20 20 20 20 20 72  e(pSrc);.      r
13580 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
13590 0a 20 20 20 20 7d 0a 20 20 20 20 77 68 69 6c 65  .    }.    while
135a0 28 20 28 72 63 20 3d 20 73 71 6c 69 74 65 33 5f  ( (rc = sqlite3_
135b0 62 61 63 6b 75 70 5f 73 74 65 70 28 70 42 61 63  backup_step(pBac
135c0 6b 75 70 2c 31 30 30 29 29 3d 3d 53 51 4c 49 54  kup,100))==SQLIT
135d0 45 5f 4f 4b 0a 20 20 20 20 20 20 20 20 20 20 20  E_OK.           
135e0 20 20 20 7c 7c 20 72 63 3d 3d 53 51 4c 49 54 45     || rc==SQLITE
135f0 5f 42 55 53 59 20 29 7b 0a 20 20 20 20 20 20 69  _BUSY ){.      i
13600 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 42 55  f( rc==SQLITE_BU
13610 53 59 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66  SY ){.        if
13620 28 20 6e 54 69 6d 65 6f 75 74 2b 2b 20 3e 3d 20  ( nTimeout++ >= 
13630 33 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20  3 ) break;.     
13640 20 20 20 73 71 6c 69 74 65 33 5f 73 6c 65 65 70     sqlite3_sleep
13650 28 31 30 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20  (100);.      }. 
13660 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33     }.    sqlite3
13670 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 68 28 70  _backup_finish(p
13680 42 61 63 6b 75 70 29 3b 0a 20 20 20 20 69 66 28  Backup);.    if(
13690 20 72 63 3d 3d 53 51 4c 49 54 45 5f 44 4f 4e 45   rc==SQLITE_DONE
136a0 20 29 7b 0a 20 20 20 20 20 20 72 63 20 3d 20 54   ){.      rc = T
136b0 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 65 6c 73 65  CL_OK;.    }else
136c0 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
136d0 42 55 53 59 20 7c 7c 20 72 63 3d 3d 53 51 4c 49  BUSY || rc==SQLI
136e0 54 45 5f 4c 4f 43 4b 45 44 20 29 7b 0a 20 20 20  TE_LOCKED ){.   
136f0 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
13700 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 72 65 73  ult(interp, "res
13710 74 6f 72 65 20 66 61 69 6c 65 64 3a 20 73 6f 75  tore failed: sou
13720 72 63 65 20 64 61 74 61 62 61 73 65 20 62 75 73  rce database bus
13730 79 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20  y",.            
13740 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72             (char
13750 2a 29 30 29 3b 0a 20 20 20 20 20 20 72 63 20 3d  *)0);.      rc =
13760 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
13770 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 54 63 6c  }else{.      Tcl
13780 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
13790 74 65 72 70 2c 20 22 72 65 73 74 6f 72 65 20 66  terp, "restore f
137a0 61 69 6c 65 64 3a 20 22 2c 0a 20 20 20 20 20 20  ailed: ",.      
137b0 20 20 20 20 20 73 71 6c 69 74 65 33 5f 65 72 72       sqlite3_err
137c0 6d 73 67 28 70 44 62 2d 3e 64 62 29 2c 20 28 63  msg(pDb->db), (c
137d0 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 20 20 72  har*)0);.      r
137e0 63 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  c = TCL_ERROR;. 
137f0 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33     }.    sqlite3
13800 5f 63 6c 6f 73 65 28 70 53 72 63 29 3b 0a 20 20  _close(pSrc);.  
13810 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20    break;.  }..  
13820 2f 2a 0a 20 20 2a 2a 20 20 20 20 20 24 64 62 20  /*.  **     $db 
13830 73 74 61 74 75 73 20 28 73 74 65 70 7c 73 6f 72  status (step|sor
13840 74 7c 61 75 74 6f 69 6e 64 65 78 29 0a 20 20 2a  t|autoindex).  *
13850 2a 0a 20 20 2a 2a 20 44 69 73 70 6c 61 79 20 53  *.  ** Display S
13860 51 4c 49 54 45 5f 53 54 4d 54 53 54 41 54 55 53  QLITE_STMTSTATUS
13870 5f 46 55 4c 4c 53 43 41 4e 5f 53 54 45 50 20 6f  _FULLSCAN_STEP o
13880 72 20 0a 20 20 2a 2a 20 53 51 4c 49 54 45 5f 53  r .  ** SQLITE_S
13890 54 4d 54 53 54 41 54 55 53 5f 53 4f 52 54 20 66  TMTSTATUS_SORT f
138a0 6f 72 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65  or the most rece
138b0 6e 74 20 65 76 61 6c 2e 0a 20 20 2a 2f 0a 20 20  nt eval..  */.  
138c0 63 61 73 65 20 44 42 5f 53 54 41 54 55 53 3a 20  case DB_STATUS: 
138d0 7b 0a 20 20 20 20 69 6e 74 20 76 3b 0a 20 20 20  {.    int v;.   
138e0 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4f 70   const char *zOp
138f0 3b 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 21 3d  ;.    if( objc!=
13900 33 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57  3 ){.      Tcl_W
13910 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
13920 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 28 73  rp, 2, objv, "(s
13930 74 65 70 7c 73 6f 72 74 7c 61 75 74 6f 69 6e 64  tep|sort|autoind
13940 65 78 29 22 29 3b 0a 20 20 20 20 20 20 72 65 74  ex)");.      ret
13950 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
13960 20 20 20 7d 0a 20 20 20 20 7a 4f 70 20 3d 20 54     }.    zOp = T
13970 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
13980 76 5b 32 5d 29 3b 0a 20 20 20 20 69 66 28 20 73  v[2]);.    if( s
13990 74 72 63 6d 70 28 7a 4f 70 2c 20 22 73 74 65 70  trcmp(zOp, "step
139a0 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 76  ")==0 ){.      v
139b0 20 3d 20 70 44 62 2d 3e 6e 53 74 65 70 3b 0a 20   = pDb->nStep;. 
139c0 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72     }else if( str
139d0 63 6d 70 28 7a 4f 70 2c 20 22 73 6f 72 74 22 29  cmp(zOp, "sort")
139e0 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 76 20 3d  ==0 ){.      v =
139f0 20 70 44 62 2d 3e 6e 53 6f 72 74 3b 0a 20 20 20   pDb->nSort;.   
13a00 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d   }else if( strcm
13a10 70 28 7a 4f 70 2c 20 22 61 75 74 6f 69 6e 64 65  p(zOp, "autoinde
13a20 78 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  x")==0 ){.      
13a30 76 20 3d 20 70 44 62 2d 3e 6e 49 6e 64 65 78 3b  v = pDb->nIndex;
13a40 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  .    }else{.    
13a50 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
13a60 6c 74 28 69 6e 74 65 72 70 2c 20 0a 20 20 20 20  lt(interp, .    
13a70 20 20 20 20 20 20 20 20 22 62 61 64 20 61 72 67          "bad arg
13a80 75 6d 65 6e 74 3a 20 73 68 6f 75 6c 64 20 62 65  ument: should be
13a90 20 61 75 74 6f 69 6e 64 65 78 2c 20 73 74 65 70   autoindex, step
13aa0 2c 20 6f 72 20 73 6f 72 74 22 2c 20 0a 20 20 20  , or sort", .   
13ab0 20 20 20 20 20 20 20 20 20 28 63 68 61 72 2a 29           (char*)
13ac0 30 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  0);.      return
13ad0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
13ae0 7d 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a  }.    Tcl_SetObj
13af0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54  Result(interp, T
13b00 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 76 29 29  cl_NewIntObj(v))
13b10 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d  ;.    break;.  }
13b20 0a 20 20 0a 20 20 2f 2a 0a 20 20 2a 2a 20 20 20  .  .  /*.  **   
13b30 20 20 24 64 62 20 74 69 6d 65 6f 75 74 20 4d 49    $db timeout MI
13b40 4c 4c 45 53 45 43 4f 4e 44 53 0a 20 20 2a 2a 0a  LLESECONDS.  **.
13b50 20 20 2a 2a 20 44 65 6c 61 79 20 66 6f 72 20 74    ** Delay for t
13b60 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 69 6c  he number of mil
13b70 6c 69 73 65 63 6f 6e 64 73 20 73 70 65 63 69 66  liseconds specif
13b80 69 65 64 20 77 68 65 6e 20 61 20 66 69 6c 65 20  ied when a file 
13b90 69 73 20 6c 6f 63 6b 65 64 2e 0a 20 20 2a 2f 0a  is locked..  */.
13ba0 20 20 63 61 73 65 20 44 42 5f 54 49 4d 45 4f 55    case DB_TIMEOU
13bb0 54 3a 20 7b 0a 20 20 20 20 69 6e 74 20 6d 73 3b  T: {.    int ms;
13bc0 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 33  .    if( objc!=3
13bd0 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72   ){.      Tcl_Wr
13be0 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
13bf0 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 4d 49 4c  p, 2, objv, "MIL
13c00 4c 49 53 45 43 4f 4e 44 53 22 29 3b 0a 20 20 20  LISECONDS");.   
13c10 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
13c20 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69  ROR;.    }.    i
13c30 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f  f( Tcl_GetIntFro
13c40 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
13c50 76 5b 32 5d 2c 20 26 6d 73 29 20 29 20 72 65 74  v[2], &ms) ) ret
13c60 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
13c70 20 20 20 73 71 6c 69 74 65 33 5f 62 75 73 79 5f     sqlite3_busy_
13c80 74 69 6d 65 6f 75 74 28 70 44 62 2d 3e 64 62 2c  timeout(pDb->db,
13c90 20 6d 73 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b   ms);.    break;
13ca0 0a 20 20 7d 0a 20 20 0a 20 20 2f 2a 0a 20 20 2a  .  }.  .  /*.  *
13cb0 2a 20 20 20 20 20 24 64 62 20 74 6f 74 61 6c 5f  *     $db total_
13cc0 63 68 61 6e 67 65 73 0a 20 20 2a 2a 0a 20 20 2a  changes.  **.  *
13cd0 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d  * Return the num
13ce0 62 65 72 20 6f 66 20 72 6f 77 73 20 74 68 61 74  ber of rows that
13cf0 20 77 65 72 65 20 6d 6f 64 69 66 69 65 64 2c 20   were modified, 
13d00 69 6e 73 65 72 74 65 64 2c 20 6f 72 20 64 65 6c  inserted, or del
13d10 65 74 65 64 20 0a 20 20 2a 2a 20 73 69 6e 63 65  eted .  ** since
13d20 20 74 68 65 20 64 61 74 61 62 61 73 65 20 68 61   the database ha
13d30 6e 64 6c 65 20 77 61 73 20 63 72 65 61 74 65 64  ndle was created
13d40 2e 0a 20 20 2a 2f 0a 20 20 63 61 73 65 20 44 42  ..  */.  case DB
13d50 5f 54 4f 54 41 4c 5f 43 48 41 4e 47 45 53 3a 20  _TOTAL_CHANGES: 
13d60 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70  {.    Tcl_Obj *p
13d70 52 65 73 75 6c 74 3b 0a 20 20 20 20 69 66 28 20  Result;.    if( 
13d80 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 20  objc!=2 ){.     
13d90 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67   Tcl_WrongNumArg
13da0 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a  s(interp, 2, obj
13db0 76 2c 20 22 22 29 3b 0a 20 20 20 20 20 20 72 65  v, "");.      re
13dc0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
13dd0 20 20 20 20 7d 0a 20 20 20 20 70 52 65 73 75 6c      }.    pResul
13de0 74 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65  t = Tcl_GetObjRe
13df0 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20  sult(interp);.  
13e00 20 20 54 63 6c 5f 53 65 74 49 6e 74 4f 62 6a 28    Tcl_SetIntObj(
13e10 70 52 65 73 75 6c 74 2c 20 73 71 6c 69 74 65 33  pResult, sqlite3
13e20 5f 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 28 70  _total_changes(p
13e30 44 62 2d 3e 64 62 29 29 3b 0a 20 20 20 20 62 72  Db->db));.    br
13e40 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 20  eak;.  }..  /*  
13e50 20 20 24 64 62 20 74 72 61 63 65 20 3f 43 41 4c    $db trace ?CAL
13e60 4c 42 41 43 4b 3f 0a 20 20 2a 2a 0a 20 20 2a 2a  LBACK?.  **.  **
13e70 20 4d 61 6b 65 20 61 72 72 61 6e 67 65 6d 65 6e   Make arrangemen
13e80 74 73 20 74 6f 20 69 6e 76 6f 6b 65 20 74 68 65  ts to invoke the
13e90 20 43 41 4c 4c 42 41 43 4b 20 72 6f 75 74 69 6e   CALLBACK routin
13ea0 65 20 66 6f 72 20 65 61 63 68 20 53 51 4c 20 73  e for each SQL s
13eb0 74 61 74 65 6d 65 6e 74 0a 20 20 2a 2a 20 74 68  tatement.  ** th
13ec0 61 74 20 69 73 20 65 78 65 63 75 74 65 64 2e 20  at is executed. 
13ed0 20 54 68 65 20 74 65 78 74 20 6f 66 20 74 68 65   The text of the
13ee0 20 53 51 4c 20 69 73 20 61 70 70 65 6e 64 65 64   SQL is appended
13ef0 20 74 6f 20 43 41 4c 4c 42 41 43 4b 20 62 65 66   to CALLBACK bef
13f00 6f 72 65 0a 20 20 2a 2a 20 69 74 20 69 73 20 65  ore.  ** it is e
13f10 78 65 63 75 74 65 64 2e 0a 20 20 2a 2f 0a 20 20  xecuted..  */.  
13f20 63 61 73 65 20 44 42 5f 54 52 41 43 45 3a 20 7b  case DB_TRACE: {
13f30 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 3e 33 20  .    if( objc>3 
13f40 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f  ){.      Tcl_Wro
13f50 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
13f60 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 3f 43 41 4c  , 2, objv, "?CAL
13f70 4c 42 41 43 4b 3f 22 29 3b 0a 20 20 20 20 20 20  LBACK?");.      
13f80 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
13f90 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20  ;.    }else if( 
13fa0 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 20 20 20  objc==2 ){.     
13fb0 20 69 66 28 20 70 44 62 2d 3e 7a 54 72 61 63 65   if( pDb->zTrace
13fc0 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
13fd0 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
13fe0 65 72 70 2c 20 70 44 62 2d 3e 7a 54 72 61 63 65  erp, pDb->zTrace
13ff0 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20  , 0);.      }.  
14000 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 63    }else{.      c
14010 68 61 72 20 2a 7a 54 72 61 63 65 3b 0a 20 20 20  har *zTrace;.   
14020 20 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 20 20     int len;.    
14030 20 20 69 66 28 20 70 44 62 2d 3e 7a 54 72 61 63    if( pDb->zTrac
14040 65 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c  e ){.        Tcl
14050 5f 46 72 65 65 28 70 44 62 2d 3e 7a 54 72 61 63  _Free(pDb->zTrac
14060 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  e);.      }.    
14070 20 20 7a 54 72 61 63 65 20 3d 20 54 63 6c 5f 47    zTrace = Tcl_G
14080 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28  etStringFromObj(
14090 6f 62 6a 76 5b 32 5d 2c 20 26 6c 65 6e 29 3b 0a  objv[2], &len);.
140a0 20 20 20 20 20 20 69 66 28 20 7a 54 72 61 63 65        if( zTrace
140b0 20 26 26 20 6c 65 6e 3e 30 20 29 7b 0a 20 20 20   && len>0 ){.   
140c0 20 20 20 20 20 70 44 62 2d 3e 7a 54 72 61 63 65       pDb->zTrace
140d0 20 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28 20 6c 65   = Tcl_Alloc( le
140e0 6e 20 2b 20 31 20 29 3b 0a 20 20 20 20 20 20 20  n + 1 );.       
140f0 20 6d 65 6d 63 70 79 28 70 44 62 2d 3e 7a 54 72   memcpy(pDb->zTr
14100 61 63 65 2c 20 7a 54 72 61 63 65 2c 20 6c 65 6e  ace, zTrace, len
14110 2b 31 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65  +1);.      }else
14120 7b 0a 20 20 20 20 20 20 20 20 70 44 62 2d 3e 7a  {.        pDb->z
14130 54 72 61 63 65 20 3d 20 30 3b 0a 20 20 20 20 20  Trace = 0;.     
14140 20 7d 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54   }.#ifndef SQLIT
14150 45 5f 4f 4d 49 54 5f 54 52 41 43 45 0a 20 20 20  E_OMIT_TRACE.   
14160 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 54 72 61     if( pDb->zTra
14170 63 65 20 29 7b 0a 20 20 20 20 20 20 20 20 70 44  ce ){.        pD
14180 62 2d 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65  b->interp = inte
14190 72 70 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69  rp;.        sqli
141a0 74 65 33 5f 74 72 61 63 65 28 70 44 62 2d 3e 64  te3_trace(pDb->d
141b0 62 2c 20 44 62 54 72 61 63 65 48 61 6e 64 6c 65  b, DbTraceHandle
141c0 72 2c 20 70 44 62 29 3b 0a 20 20 20 20 20 20 7d  r, pDb);.      }
141d0 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 73 71  else{.        sq
141e0 6c 69 74 65 33 5f 74 72 61 63 65 28 70 44 62 2d  lite3_trace(pDb-
141f0 3e 64 62 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20  >db, 0, 0);.    
14200 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d    }.#endif.    }
14210 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a  .    break;.  }.
14220 0a 20 20 2f 2a 20 20 20 20 24 64 62 20 74 72 61  .  /*    $db tra
14230 6e 73 61 63 74 69 6f 6e 20 5b 2d 64 65 66 65 72  nsaction [-defer
14240 72 65 64 7c 2d 69 6d 6d 65 64 69 61 74 65 7c 2d  red|-immediate|-
14250 65 78 63 6c 75 73 69 76 65 5d 20 53 43 52 49 50  exclusive] SCRIP
14260 54 0a 20 20 2a 2a 0a 20 20 2a 2a 20 53 74 61 72  T.  **.  ** Star
14270 74 20 61 20 6e 65 77 20 74 72 61 6e 73 61 63 74  t a new transact
14280 69 6f 6e 20 28 69 66 20 77 65 20 61 72 65 20 6e  ion (if we are n
14290 6f 74 20 61 6c 72 65 61 64 79 20 69 6e 20 74 68  ot already in th
142a0 65 20 6d 69 64 73 74 20 6f 66 20 61 0a 20 20 2a  e midst of a.  *
142b0 2a 20 74 72 61 6e 73 61 63 74 69 6f 6e 29 20 61  * transaction) a
142c0 6e 64 20 65 78 65 63 75 74 65 20 74 68 65 20 54  nd execute the T
142d0 43 4c 20 73 63 72 69 70 74 20 53 43 52 49 50 54  CL script SCRIPT
142e0 2e 20 20 41 66 74 65 72 20 53 43 52 49 50 54 0a  .  After SCRIPT.
142f0 20 20 2a 2a 20 63 6f 6d 70 6c 65 74 65 73 2c 20    ** completes, 
14300 65 69 74 68 65 72 20 63 6f 6d 6d 69 74 20 74 68  either commit th
14310 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 6f 72  e transaction or
14320 20 72 6f 6c 6c 20 69 74 20 62 61 63 6b 20 69 66   roll it back if
14330 20 53 43 52 49 50 54 0a 20 20 2a 2a 20 74 68 72   SCRIPT.  ** thr
14340 6f 77 73 20 61 6e 20 65 78 63 65 70 74 69 6f 6e  ows an exception
14350 2e 20 20 4f 72 20 69 66 20 6e 6f 20 6e 65 77 20  .  Or if no new 
14360 74 72 61 6e 73 61 74 69 6f 6e 20 77 61 73 20 73  transation was s
14370 74 61 72 74 65 64 2c 20 64 6f 20 6e 6f 74 68 69  tarted, do nothi
14380 6e 67 2e 0a 20 20 2a 2a 20 70 61 73 73 20 74 68  ng..  ** pass th
14390 65 20 65 78 63 65 70 74 69 6f 6e 20 6f 6e 20 75  e exception on u
143a0 70 20 74 68 65 20 73 74 61 63 6b 2e 0a 20 20 2a  p the stack..  *
143b0 2a 0a 20 20 2a 2a 20 54 68 69 73 20 63 6f 6d 6d  *.  ** This comm
143c0 61 6e 64 20 77 61 73 20 69 6e 73 70 69 72 65 64  and was inspired
143d0 20 62 79 20 44 61 76 65 20 54 68 6f 6d 61 73 27   by Dave Thomas'
143e0 73 20 74 61 6c 6b 20 6f 6e 20 52 75 62 79 20 61  s talk on Ruby a
143f0 74 20 74 68 65 0a 20 20 2a 2a 20 32 30 30 35 20  t the.  ** 2005 
14400 4f 27 52 65 69 6c 6c 79 20 4f 70 65 6e 20 53 6f  O'Reilly Open So
14410 75 72 63 65 20 43 6f 6e 76 65 6e 74 69 6f 6e 20  urce Convention 
14420 28 4f 53 43 4f 4e 29 2e 0a 20 20 2a 2f 0a 20 20  (OSCON)..  */.  
14430 63 61 73 65 20 44 42 5f 54 52 41 4e 53 41 43 54  case DB_TRANSACT
14440 49 4f 4e 3a 20 7b 0a 20 20 20 20 54 63 6c 5f 4f  ION: {.    Tcl_O
14450 62 6a 20 2a 70 53 63 72 69 70 74 3b 0a 20 20 20  bj *pScript;.   
14460 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 42 65   const char *zBe
14470 67 69 6e 20 3d 20 22 53 41 56 45 50 4f 49 4e 54  gin = "SAVEPOINT
14480 20 5f 74 63 6c 5f 74 72 61 6e 73 61 63 74 69 6f   _tcl_transactio
14490 6e 22 3b 0a 20 20 20 20 69 66 28 20 6f 62 6a 63  n";.    if( objc
144a0 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d 34 20 29  !=3 && objc!=4 )
144b0 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e  {.      Tcl_Wron
144c0 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c  gNumArgs(interp,
144d0 20 32 2c 20 6f 62 6a 76 2c 20 22 5b 54 59 50 45   2, objv, "[TYPE
144e0 5d 20 53 43 52 49 50 54 22 29 3b 0a 20 20 20 20  ] SCRIPT");.    
144f0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
14500 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69  OR;.    }..    i
14510 66 28 20 70 44 62 2d 3e 6e 54 72 61 6e 73 61 63  f( pDb->nTransac
14520 74 69 6f 6e 3d 3d 30 20 26 26 20 6f 62 6a 63 3d  tion==0 && objc=
14530 3d 34 20 29 7b 0a 20 20 20 20 20 20 73 74 61 74  =4 ){.      stat
14540 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 54  ic const char *T
14550 54 59 50 45 5f 73 74 72 73 5b 5d 20 3d 20 7b 0a  TYPE_strs[] = {.
14560 20 20 20 20 20 20 20 20 22 64 65 66 65 72 72 65          "deferre
14570 64 22 2c 20 20 20 22 65 78 63 6c 75 73 69 76 65  d",   "exclusive
14580 22 2c 20 20 22 69 6d 6d 65 64 69 61 74 65 22 2c  ",  "immediate",
14590 20 30 0a 20 20 20 20 20 20 7d 3b 0a 20 20 20 20   0.      };.    
145a0 20 20 65 6e 75 6d 20 54 54 59 50 45 5f 65 6e 75    enum TTYPE_enu
145b0 6d 20 7b 0a 20 20 20 20 20 20 20 20 54 54 59 50  m {.        TTYP
145c0 45 5f 44 45 46 45 52 52 45 44 2c 20 54 54 59 50  E_DEFERRED, TTYP
145d0 45 5f 45 58 43 4c 55 53 49 56 45 2c 20 54 54 59  E_EXCLUSIVE, TTY
145e0 50 45 5f 49 4d 4d 45 44 49 41 54 45 0a 20 20 20  PE_IMMEDIATE.   
145f0 20 20 20 7d 3b 0a 20 20 20 20 20 20 69 6e 74 20     };.      int 
14600 74 74 79 70 65 3b 0a 20 20 20 20 20 20 69 66 28  ttype;.      if(
14610 20 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f   Tcl_GetIndexFro
14620 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
14630 76 5b 32 5d 2c 20 54 54 59 50 45 5f 73 74 72 73  v[2], TTYPE_strs
14640 2c 20 22 74 72 61 6e 73 61 63 74 69 6f 6e 20 74  , "transaction t
14650 79 70 65 22 2c 0a 20 20 20 20 20 20 20 20 20 20  ype",.          
14660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
14670 20 20 20 20 30 2c 20 26 74 74 79 70 65 29 20 29      0, &ttype) )
14680 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  {.        return
14690 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
146a0 20 20 7d 0a 20 20 20 20 20 20 73 77 69 74 63 68    }.      switch
146b0 28 20 28 65 6e 75 6d 20 54 54 59 50 45 5f 65 6e  ( (enum TTYPE_en
146c0 75 6d 29 74 74 79 70 65 20 29 7b 0a 20 20 20 20  um)ttype ){.    
146d0 20 20 20 20 63 61 73 65 20 54 54 59 50 45 5f 44      case TTYPE_D
146e0 45 46 45 52 52 45 44 3a 20 20 20 20 2f 2a 20 6e  EFERRED:    /* n
146f0 6f 2d 6f 70 20 2a 2f 3b 20 20 20 20 20 20 20 20  o-op */;        
14700 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a           break;.
14710 20 20 20 20 20 20 20 20 63 61 73 65 20 54 54 59          case TTY
14720 50 45 5f 45 58 43 4c 55 53 49 56 45 3a 20 20 20  PE_EXCLUSIVE:   
14730 7a 42 65 67 69 6e 20 3d 20 22 42 45 47 49 4e 20  zBegin = "BEGIN 
14740 45 58 43 4c 55 53 49 56 45 22 3b 20 20 62 72 65  EXCLUSIVE";  bre
14750 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65  ak;.        case
14760 20 54 54 59 50 45 5f 49 4d 4d 45 44 49 41 54 45   TTYPE_IMMEDIATE
14770 3a 20 20 20 7a 42 65 67 69 6e 20 3d 20 22 42 45  :   zBegin = "BE
14780 47 49 4e 20 49 4d 4d 45 44 49 41 54 45 22 3b 20  GIN IMMEDIATE"; 
14790 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a   break;.      }.
147a0 20 20 20 20 7d 0a 20 20 20 20 70 53 63 72 69 70      }.    pScrip
147b0 74 20 3d 20 6f 62 6a 76 5b 6f 62 6a 63 2d 31 5d  t = objv[objc-1]
147c0 3b 0a 0a 20 20 20 20 2f 2a 20 52 75 6e 20 74 68  ;..    /* Run th
147d0 65 20 53 51 4c 69 74 65 20 42 45 47 49 4e 20 63  e SQLite BEGIN c
147e0 6f 6d 6d 61 6e 64 20 74 6f 20 6f 70 65 6e 20 61  ommand to open a
147f0 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 6f 72 20   transaction or 
14800 73 61 76 65 70 6f 69 6e 74 2e 20 2a 2f 0a 20 20  savepoint. */.  
14810 20 20 70 44 62 2d 3e 64 69 73 61 62 6c 65 41 75    pDb->disableAu
14820 74 68 2b 2b 3b 0a 20 20 20 20 72 63 20 3d 20 73  th++;.    rc = s
14830 71 6c 69 74 65 33 5f 65 78 65 63 28 70 44 62 2d  qlite3_exec(pDb-
14840 3e 64 62 2c 20 7a 42 65 67 69 6e 2c 20 30 2c 20  >db, zBegin, 0, 
14850 30 2c 20 30 29 3b 0a 20 20 20 20 70 44 62 2d 3e  0, 0);.    pDb->
14860 64 69 73 61 62 6c 65 41 75 74 68 2d 2d 3b 0a 20  disableAuth--;. 
14870 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54     if( rc!=SQLIT
14880 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 54 63  E_OK ){.      Tc
14890 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
148a0 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 33 5f 65  nterp, sqlite3_e
148b0 72 72 6d 73 67 28 70 44 62 2d 3e 64 62 29 2c 20  rrmsg(pDb->db), 
148c0 30 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  0);.      return
148d0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
148e0 7d 0a 20 20 20 20 70 44 62 2d 3e 6e 54 72 61 6e  }.    pDb->nTran
148f0 73 61 63 74 69 6f 6e 2b 2b 3b 0a 0a 20 20 20 20  saction++;..    
14900 2f 2a 20 49 66 20 75 73 69 6e 67 20 4e 52 45 2c  /* If using NRE,
14910 20 73 63 68 65 64 75 6c 65 20 61 20 63 61 6c 6c   schedule a call
14920 62 61 63 6b 20 74 6f 20 69 6e 76 6f 6b 65 20 74  back to invoke t
14930 68 65 20 73 63 72 69 70 74 20 70 53 63 72 69 70  he script pScrip
14940 74 2c 20 74 68 65 6e 0a 20 20 20 20 2a 2a 20 61  t, then.    ** a
14950 20 73 65 63 6f 6e 64 20 63 61 6c 6c 62 61 63 6b   second callback
14960 20 74 6f 20 63 6f 6d 6d 69 74 20 28 6f 72 20 72   to commit (or r
14970 6f 6c 6c 62 61 63 6b 29 20 74 68 65 20 74 72 61  ollback) the tra
14980 6e 73 61 63 74 69 6f 6e 20 6f 72 20 73 61 76 65  nsaction or save
14990 70 6f 69 6e 74 0a 20 20 20 20 2a 2a 20 6f 70 65  point.    ** ope
149a0 6e 65 64 20 61 62 6f 76 65 2e 20 49 66 20 6e 6f  ned above. If no
149b0 74 20 75 73 69 6e 67 20 4e 52 45 2c 20 65 76 61  t using NRE, eva
149c0 6c 75 61 74 65 20 74 68 65 20 73 63 72 69 70 74  luate the script
149d0 20 64 69 72 65 63 74 6c 79 2c 20 74 68 65 6e 0a   directly, then.
149e0 20 20 20 20 2a 2a 20 63 61 6c 6c 20 66 75 6e 63      ** call func
149f0 74 69 6f 6e 20 44 62 54 72 61 6e 73 50 6f 73 74  tion DbTransPost
14a00 43 6d 64 28 29 20 74 6f 20 63 6f 6d 6d 69 74 20  Cmd() to commit 
14a10 28 6f 72 20 72 6f 6c 6c 62 61 63 6b 29 20 74 68  (or rollback) th
14a20 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 0a 20  e transaction . 
14a30 20 20 20 2a 2a 20 6f 72 20 73 61 76 65 70 6f 69     ** or savepoi
14a40 6e 74 2e 20 20 2a 2f 0a 20 20 20 20 69 66 28 20  nt.  */.    if( 
14a50 44 62 55 73 65 4e 72 65 28 29 20 29 7b 0a 20 20  DbUseNre() ){.  
14a60 20 20 20 20 54 63 6c 5f 4e 52 41 64 64 43 61 6c      Tcl_NRAddCal
14a70 6c 62 61 63 6b 28 69 6e 74 65 72 70 2c 20 44 62  lback(interp, Db
14a80 54 72 61 6e 73 50 6f 73 74 43 6d 64 2c 20 63 64  TransPostCmd, cd
14a90 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20  , 0, 0, 0);.    
14aa0 20 20 54 63 6c 5f 4e 52 45 76 61 6c 4f 62 6a 28    Tcl_NREvalObj(
14ab0 69 6e 74 65 72 70 2c 20 70 53 63 72 69 70 74 2c  interp, pScript,
14ac0 20 30 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a   0);.    }else{.
14ad0 20 20 20 20 20 20 72 63 20 3d 20 44 62 54 72 61        rc = DbTra
14ae0 6e 73 50 6f 73 74 43 6d 64 28 26 63 64 2c 20 69  nsPostCmd(&cd, i
14af0 6e 74 65 72 70 2c 20 54 63 6c 5f 45 76 61 6c 4f  nterp, Tcl_EvalO
14b00 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 70 53 63  bjEx(interp, pSc
14b10 72 69 70 74 2c 20 30 29 29 3b 0a 20 20 20 20 7d  ript, 0));.    }
14b20 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a  .    break;.  }.
14b30 0a 20 20 2f 2a 0a 20 20 2a 2a 20 20 20 20 24 64  .  /*.  **    $d
14b40 62 20 75 6e 6c 6f 63 6b 5f 6e 6f 74 69 66 79 20  b unlock_notify 
14b50 3f 73 63 72 69 70 74 3f 0a 20 20 2a 2f 0a 20 20  ?script?.  */.  
14b60 63 61 73 65 20 44 42 5f 55 4e 4c 4f 43 4b 5f 4e  case DB_UNLOCK_N
14b70 4f 54 49 46 59 3a 20 7b 0a 23 69 66 6e 64 65 66  OTIFY: {.#ifndef
14b80 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 55   SQLITE_ENABLE_U
14b90 4e 4c 4f 43 4b 5f 4e 4f 54 49 46 59 0a 20 20 20  NLOCK_NOTIFY.   
14ba0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
14bb0 74 28 69 6e 74 65 72 70 2c 20 22 75 6e 6c 6f 63  t(interp, "unloc
14bc0 6b 5f 6e 6f 74 69 66 79 20 6e 6f 74 20 61 76 61  k_notify not ava
14bd0 69 6c 61 62 6c 65 20 69 6e 20 74 68 69 73 20 62  ilable in this b
14be0 75 69 6c 64 22 2c 20 30 29 3b 0a 20 20 20 20 72  uild", 0);.    r
14bf0 63 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23  c = TCL_ERROR;.#
14c00 65 6c 73 65 0a 20 20 20 20 69 66 28 20 6f 62 6a  else.    if( obj
14c10 63 21 3d 32 20 26 26 20 6f 62 6a 63 21 3d 33 20  c!=2 && objc!=3 
14c20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f  ){.      Tcl_Wro
14c30 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
14c40 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 3f 53 43 52  , 2, objv, "?SCR
14c50 49 50 54 3f 22 29 3b 0a 20 20 20 20 20 20 72 63  IPT?");.      rc
14c60 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20   = TCL_ERROR;.  
14c70 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 76    }else{.      v
14c80 6f 69 64 20 28 2a 78 4e 6f 74 69 66 79 29 28 76  oid (*xNotify)(v
14c90 6f 69 64 20 2a 2a 2c 20 69 6e 74 29 20 3d 20 30  oid **, int) = 0
14ca0 3b 0a 20 20 20 20 20 20 76 6f 69 64 20 2a 70 4e  ;.      void *pN
14cb0 6f 74 69 66 79 41 72 67 20 3d 20 30 3b 0a 0a 20  otifyArg = 0;.. 
14cc0 20 20 20 20 20 69 66 28 20 70 44 62 2d 3e 70 55       if( pDb->pU
14cd0 6e 6c 6f 63 6b 4e 6f 74 69 66 79 20 29 7b 0a 20  nlockNotify ){. 
14ce0 20 20 20 20 20 20 20 54 63 6c 5f 44 65 63 72 52         Tcl_DecrR
14cf0 65 66 43 6f 75 6e 74 28 70 44 62 2d 3e 70 55 6e  efCount(pDb->pUn
14d00 6c 6f 63 6b 4e 6f 74 69 66 79 29 3b 0a 20 20 20  lockNotify);.   
14d10 20 20 20 20 20 70 44 62 2d 3e 70 55 6e 6c 6f 63       pDb->pUnloc
14d20 6b 4e 6f 74 69 66 79 20 3d 20 30 3b 0a 20 20 20  kNotify = 0;.   
14d30 20 20 20 7d 0a 20 20 0a 20 20 20 20 20 20 69 66     }.  .      if
14d40 28 20 6f 62 6a 63 3d 3d 33 20 29 7b 0a 20 20 20  ( objc==3 ){.   
14d50 20 20 20 20 20 78 4e 6f 74 69 66 79 20 3d 20 44       xNotify = D
14d60 62 55 6e 6c 6f 63 6b 4e 6f 74 69 66 79 3b 0a 20  bUnlockNotify;. 
14d70 20 20 20 20 20 20 20 70 4e 6f 74 69 66 79 41 72         pNotifyAr
14d80 67 20 3d 20 28 76 6f 69 64 20 2a 29 70 44 62 3b  g = (void *)pDb;
14d90 0a 20 20 20 20 20 20 20 20 70 44 62 2d 3e 70 55  .        pDb->pU
14da0 6e 6c 6f 63 6b 4e 6f 74 69 66 79 20 3d 20 6f 62  nlockNotify = ob
14db0 6a 76 5b 32 5d 3b 0a 20 20 20 20 20 20 20 20 54  jv[2];.        T
14dc0 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28  cl_IncrRefCount(
14dd0 70 44 62 2d 3e 70 55 6e 6c 6f 63 6b 4e 6f 74 69  pDb->pUnlockNoti
14de0 66 79 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 0a  fy);.      }.  .
14df0 20 20 20 20 20 20 69 66 28 20 73 71 6c 69 74 65        if( sqlite
14e00 33 5f 75 6e 6c 6f 63 6b 5f 6e 6f 74 69 66 79 28  3_unlock_notify(
14e10 70 44 62 2d 3e 64 62 2c 20 78 4e 6f 74 69 66 79  pDb->db, xNotify
14e20 2c 20 70 4e 6f 74 69 66 79 41 72 67 29 20 29 7b  , pNotifyArg) ){
14e30 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70  .        Tcl_App
14e40 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
14e50 2c 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67  , sqlite3_errmsg
14e60 28 70 44 62 2d 3e 64 62 29 2c 20 30 29 3b 0a 20  (pDb->db), 0);. 
14e70 20 20 20 20 20 20 20 72 63 20 3d 20 54 43 4c 5f         rc = TCL_
14e80 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
14e90 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20     }.#endif.    
14ea0 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a  break;.  }..  /*
14eb0 0a 20 20 2a 2a 20 20 20 20 24 64 62 20 77 61 6c  .  **    $db wal
14ec0 5f 68 6f 6f 6b 20 3f 73 63 72 69 70 74 3f 0a 20  _hook ?script?. 
14ed0 20 2a 2a 20 20 20 20 24 64 62 20 75 70 64 61 74   **    $db updat
14ee0 65 5f 68 6f 6f 6b 20 3f 73 63 72 69 70 74 3f 0a  e_hook ?script?.
14ef0 20 20 2a 2a 20 20 20 20 24 64 62 20 72 6f 6c 6c    **    $db roll
14f00 62 61 63 6b 5f 68 6f 6f 6b 20 3f 73 63 72 69 70  back_hook ?scrip
14f10 74 3f 0a 20 20 2a 2f 0a 20 20 63 61 73 65 20 44  t?.  */.  case D
14f20 42 5f 57 41 4c 5f 48 4f 4f 4b 3a 20 0a 20 20 63  B_WAL_HOOK: .  c
14f30 61 73 65 20 44 42 5f 55 50 44 41 54 45 5f 48 4f  ase DB_UPDATE_HO
14f40 4f 4b 3a 20 0a 20 20 63 61 73 65 20 44 42 5f 52  OK: .  case DB_R
14f50 4f 4c 4c 42 41 43 4b 5f 48 4f 4f 4b 3a 20 7b 0a  OLLBACK_HOOK: {.
14f60 0a 20 20 20 20 2f 2a 20 73 65 74 20 70 70 48 6f  .    /* set ppHo
14f70 6f 6b 20 74 6f 20 70 6f 69 6e 74 20 61 74 20 70  ok to point at p
14f80 55 70 64 61 74 65 48 6f 6f 6b 20 6f 72 20 70 52  UpdateHook or pR
14f90 6f 6c 6c 62 61 63 6b 48 6f 6f 6b 2c 20 64 65 70  ollbackHook, dep
14fa0 65 6e 64 69 6e 67 20 6f 6e 20 0a 20 20 20 20 2a  ending on .    *
14fb0 2a 20 77 68 65 74 68 65 72 20 5b 24 64 62 20 75  * whether [$db u
14fc0 70 64 61 74 65 5f 68 6f 6f 6b 5d 20 6f 72 20 5b  pdate_hook] or [
14fd0 24 64 62 20 72 6f 6c 6c 62 61 63 6b 5f 68 6f 6f  $db rollback_hoo
14fe0 6b 5d 20 77 61 73 20 69 6e 76 6f 6b 65 64 2e 0a  k] was invoked..
14ff0 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 4f      */.    Tcl_O
15000 62 6a 20 2a 2a 70 70 48 6f 6f 6b 3b 20 0a 20 20  bj **ppHook; .  
15010 20 20 69 66 28 20 63 68 6f 69 63 65 3d 3d 44 42    if( choice==DB
15020 5f 55 50 44 41 54 45 5f 48 4f 4f 4b 20 29 7b 0a  _UPDATE_HOOK ){.
15030 20 20 20 20 20 20 70 70 48 6f 6f 6b 20 3d 20 26        ppHook = &
15040 70 44 62 2d 3e 70 55 70 64 61 74 65 48 6f 6f 6b  pDb->pUpdateHook
15050 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20  ;.    }else if( 
15060 63 68 6f 69 63 65 3d 3d 44 42 5f 57 41 4c 5f 48  choice==DB_WAL_H
15070 4f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 70 70 48  OOK ){.      ppH
15080 6f 6f 6b 20 3d 20 26 70 44 62 2d 3e 70 57 61 6c  ook = &pDb->pWal
15090 48 6f 6f 6b 3b 0a 20 20 20 20 7d 65 6c 73 65 7b  Hook;.    }else{
150a0 0a 20 20 20 20 20 20 70 70 48 6f 6f 6b 20 3d 20  .      ppHook = 
150b0 26 70 44 62 2d 3e 70 52 6f 6c 6c 62 61 63 6b 48  &pDb->pRollbackH
150c0 6f 6f 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ook;.    }..    
150d0 69 66 28 20 6f 62 6a 63 21 3d 32 20 26 26 20 6f  if( objc!=2 && o
150e0 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 20 20  bjc!=3 ){.      
150f0 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67   Tcl_WrongNumArg
15100 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a  s(interp, 2, obj
15110 76 2c 20 22 3f 53 43 52 49 50 54 3f 22 29 3b 0a  v, "?SCRIPT?");.
15120 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43         return TC
15130 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20  L_ERROR;.    }. 
15140 20 20 20 69 66 28 20 2a 70 70 48 6f 6f 6b 20 29     if( *ppHook )
15150 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f  {.      Tcl_SetO
15160 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
15170 20 2a 70 70 48 6f 6f 6b 29 3b 0a 20 20 20 20 20   *ppHook);.     
15180 20 69 66 28 20 6f 62 6a 63 3d 3d 33 20 29 7b 0a   if( objc==3 ){.
15190 20 20 20 20 20 20 20 20 54 63 6c 5f 44 65 63 72          Tcl_Decr
151a0 52 65 66 43 6f 75 6e 74 28 2a 70 70 48 6f 6f 6b  RefCount(*ppHook
151b0 29 3b 0a 20 20 20 20 20 20 20 20 2a 70 70 48 6f  );.        *ppHo
151c0 6f 6b 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d 0a  ok = 0;.      }.
151d0 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 6f 62      }.    if( ob
151e0 6a 63 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20 61  jc==3 ){.      a
151f0 73 73 65 72 74 28 20 21 28 2a 70 70 48 6f 6f 6b  ssert( !(*ppHook
15200 29 20 29 3b 0a 20 20 20 20 20 20 69 66 28 20 54  ) );.      if( T
15210 63 6c 5f 47 65 74 43 68 61 72 4c 65 6e 67 74 68  cl_GetCharLength
15220 28 6f 62 6a 76 5b 32 5d 29 3e 30 20 29 7b 0a 20  (objv[2])>0 ){. 
15230 20 20 20 20 20 20 20 2a 70 70 48 6f 6f 6b 20 3d         *ppHook =
15240 20 6f 62 6a 76 5b 32 5d 3b 0a 20 20 20 20 20 20   objv[2];.      
15250 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75    Tcl_IncrRefCou
15260 6e 74 28 2a 70 70 48 6f 6f 6b 29 3b 0a 20 20 20  nt(*ppHook);.   
15270 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20     }.    }..    
15280 73 71 6c 69 74 65 33 5f 75 70 64 61 74 65 5f 68  sqlite3_update_h
15290 6f 6f 6b 28 70 44 62 2d 3e 64 62 2c 20 28 70 44  ook(pDb->db, (pD
152a0 62 2d 3e 70 55 70 64 61 74 65 48 6f 6f 6b 3f 44  b->pUpdateHook?D
152b0 62 55 70 64 61 74 65 48 61 6e 64 6c 65 72 3a 30  bUpdateHandler:0
152c0 29 2c 20 70 44 62 29 3b 0a 20 20 20 20 73 71 6c  ), pDb);.    sql
152d0 69 74 65 33 5f 72 6f 6c 6c 62 61 63 6b 5f 68 6f  ite3_rollback_ho
152e0 6f 6b 28 70 44 62 2d 3e 64 62 2c 28 70 44 62 2d  ok(pDb->db,(pDb-
152f0 3e 70 52 6f 6c 6c 62 61 63 6b 48 6f 6f 6b 3f 44  >pRollbackHook?D
15300 62 52 6f 6c 6c 62 61 63 6b 48 61 6e 64 6c 65 72  bRollbackHandler
15310 3a 30 29 2c 70 44 62 29 3b 0a 20 20 20 20 73 71  :0),pDb);.    sq
15320 6c 69 74 65 33 5f 77 61 6c 5f 68 6f 6f 6b 28 70  lite3_wal_hook(p
15330 44 62 2d 3e 64 62 2c 28 70 44 62 2d 3e 70 57 61  Db->db,(pDb->pWa
15340 6c 48 6f 6f 6b 3f 44 62 57 61 6c 48 61 6e 64 6c  lHook?DbWalHandl
15350 65 72 3a 30 29 2c 70 44 62 29 3b 0a 0a 20 20 20  er:0),pDb);..   
15360 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f   break;.  }..  /
15370 2a 20 20 20 20 24 64 62 20 76 65 72 73 69 6f 6e  *    $db version
15380 0a 20 20 2a 2a 0a 20 20 2a 2a 20 52 65 74 75 72  .  **.  ** Retur
15390 6e 20 74 68 65 20 76 65 72 73 69 6f 6e 20 73 74  n the version st
153a0 72 69 6e 67 20 66 6f 72 20 74 68 69 73 20 64 61  ring for this da
153b0 74 61 62 61 73 65 2e 0a 20 20 2a 2f 0a 20 20 63  tabase..  */.  c
153c0 61 73 65 20 44 42 5f 56 45 52 53 49 4f 4e 3a 20  ase DB_VERSION: 
153d0 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73  {.    Tcl_SetRes
153e0 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61  ult(interp, (cha
153f0 72 20 2a 29 73 71 6c 69 74 65 33 5f 6c 69 62 76  r *)sqlite3_libv
15400 65 72 73 69 6f 6e 28 29 2c 20 54 43 4c 5f 53 54  ersion(), TCL_ST
15410 41 54 49 43 29 3b 0a 20 20 20 20 62 72 65 61 6b  ATIC);.    break
15420 3b 0a 20 20 7d 0a 0a 0a 20 20 7d 20 2f 2a 20 45  ;.  }...  } /* E
15430 6e 64 20 6f 66 20 74 68 65 20 53 57 49 54 43 48  nd of the SWITCH
15440 20 73 74 61 74 65 6d 65 6e 74 20 2a 2f 0a 20 20   statement */.  
15450 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 23 69  return rc;.}..#i
15460 66 20 53 51 4c 49 54 45 5f 54 43 4c 5f 4e 52 45  f SQLITE_TCL_NRE
15470 0a 2f 2a 0a 2a 2a 20 41 64 61 70 74 6f 72 20 74  ./*.** Adaptor t
15480 68 61 74 20 70 72 6f 76 69 64 65 73 20 61 6e 20  hat provides an 
15490 6f 62 6a 43 6d 64 20 69 6e 74 65 72 66 61 63 65  objCmd interface
154a0 20 74 6f 20 74 68 65 20 4e 52 45 2d 65 6e 61 62   to the NRE-enab
154b0 6c 65 64 0a 2a 2a 20 69 6e 74 65 72 66 61 63 65  led.** interface
154c0 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e   implementation.
154d0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44  .*/.static int D
154e0 62 4f 62 6a 43 6d 64 41 64 61 70 74 6f 72 28 0a  bObjCmdAdaptor(.
154f0 20 20 76 6f 69 64 20 2a 63 64 2c 0a 20 20 54 63    void *cd,.  Tc
15500 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
15510 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20  ,.  int objc,.  
15520 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 2a 6f  Tcl_Obj *const*o
15530 62 6a 76 0a 29 7b 0a 20 20 72 65 74 75 72 6e 20  bjv.){.  return 
15540 54 63 6c 5f 4e 52 43 61 6c 6c 4f 62 6a 50 72 6f  Tcl_NRCallObjPro
15550 63 28 69 6e 74 65 72 70 2c 20 44 62 4f 62 6a 43  c(interp, DbObjC
15560 6d 64 2c 20 63 64 2c 20 6f 62 6a 63 2c 20 6f 62  md, cd, objc, ob
15570 6a 76 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a  jv);.}.#endif /*
15580 20 53 51 4c 49 54 45 5f 54 43 4c 5f 4e 52 45 20   SQLITE_TCL_NRE 
15590 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 20 20 73 71 6c 69  */../*.**   sqli
155a0 74 65 33 20 44 42 4e 41 4d 45 20 46 49 4c 45 4e  te3 DBNAME FILEN
155b0 41 4d 45 20 3f 2d 76 66 73 20 56 46 53 4e 41 4d  AME ?-vfs VFSNAM
155c0 45 3f 20 3f 2d 6b 65 79 20 4b 45 59 3f 20 3f 2d  E? ?-key KEY? ?-
155d0 72 65 61 64 6f 6e 6c 79 20 42 4f 4f 4c 45 41 4e  readonly BOOLEAN
155e0 3f 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20  ?.**            
155f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3f                 ?
15600 2d 63 72 65 61 74 65 20 42 4f 4f 4c 45 41 4e 3f  -create BOOLEAN?
15610 20 3f 2d 6e 6f 6d 75 74 65 78 20 42 4f 4f 4c 45   ?-nomutex BOOLE
15620 41 4e 3f 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 69  AN?.**.** This i
15630 73 20 74 68 65 20 6d 61 69 6e 20 54 63 6c 20 63  s the main Tcl c
15640 6f 6d 6d 61 6e 64 2e 20 20 57 68 65 6e 20 74 68  ommand.  When th
15650 65 20 22 73 71 6c 69 74 65 22 20 54 63 6c 20 63  e "sqlite" Tcl c
15660 6f 6d 6d 61 6e 64 20 69 73 0a 2a 2a 20 69 6e 76  ommand is.** inv
15670 6f 6b 65 64 2c 20 74 68 69 73 20 72 6f 75 74 69  oked, this routi
15680 6e 65 20 72 75 6e 73 20 74 6f 20 70 72 6f 63 65  ne runs to proce
15690 73 73 20 74 68 61 74 20 63 6f 6d 6d 61 6e 64 2e  ss that command.
156a0 0a 2a 2a 0a 2a 2a 20 54 68 65 20 66 69 72 73 74  .**.** The first
156b0 20 61 72 67 75 6d 65 6e 74 2c 20 44 42 4e 41 4d   argument, DBNAM
156c0 45 2c 20 69 73 20 61 6e 20 61 72 62 69 74 72 61  E, is an arbitra
156d0 72 79 20 6e 61 6d 65 20 66 6f 72 20 61 20 6e 65  ry name for a ne
156e0 77 0a 2a 2a 20 64 61 74 61 62 61 73 65 20 63 6f  w.** database co
156f0 6e 6e 65 63 74 69 6f 6e 2e 20 20 54 68 69 73 20  nnection.  This 
15700 63 6f 6d 6d 61 6e 64 20 63 72 65 61 74 65 73 20  command creates 
15710 61 20 6e 65 77 20 63 6f 6d 6d 61 6e 64 20 6e 61  a new command na
15720 6d 65 64 0a 2a 2a 20 44 42 4e 41 4d 45 20 74 68  med.** DBNAME th
15730 61 74 20 69 73 20 75 73 65 64 20 74 6f 20 63 6f  at is used to co
15740 6e 74 72 6f 6c 20 74 68 61 74 20 63 6f 6e 6e 65  ntrol that conne
15750 63 74 69 6f 6e 2e 20 20 54 68 65 20 64 61 74 61  ction.  The data
15760 62 61 73 65 0a 2a 2a 20 63 6f 6e 6e 65 63 74 69  base.** connecti
15770 6f 6e 20 69 73 20 64 65 6c 65 74 65 64 20 77 68  on is deleted wh
15780 65 6e 20 74 68 65 20 44 42 4e 41 4d 45 20 63 6f  en the DBNAME co
15790 6d 6d 61 6e 64 20 69 73 20 64 65 6c 65 74 65 64  mmand is deleted
157a0 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 73 65 63 6f  ..**.** The seco
157b0 6e 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74  nd argument is t
157c0 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 64  he name of the d
157d0 61 74 61 62 61 73 65 20 66 69 6c 65 2e 0a 2a 2a  atabase file..**
157e0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44  .*/.static int D
157f0 62 4d 61 69 6e 28 76 6f 69 64 20 2a 63 64 2c 20  bMain(void *cd, 
15800 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
15810 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 54 63 6c  rp, int objc,Tcl
15820 5f 4f 62 6a 20 2a 63 6f 6e 73 74 2a 6f 62 6a 76  _Obj *const*objv
15830 29 7b 0a 20 20 53 71 6c 69 74 65 44 62 20 2a 70  ){.  SqliteDb *p
15840 3b 0a 20 20 76 6f 69 64 20 2a 70 4b 65 79 20 3d  ;.  void *pKey =
15850 20 30 3b 0a 20 20 69 6e 74 20 6e 4b 65 79 20 3d   0;.  int nKey =
15860 20 30 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72   0;.  const char
15870 20 2a 7a 41 72 67 3b 0a 20 20 63 68 61 72 20 2a   *zArg;.  char *
15880 7a 45 72 72 4d 73 67 3b 0a 20 20 69 6e 74 20 69  zErrMsg;.  int i
15890 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ;.  const char *
158a0 7a 46 69 6c 65 3b 0a 20 20 63 6f 6e 73 74 20 63  zFile;.  const c
158b0 68 61 72 20 2a 7a 56 66 73 20 3d 20 30 3b 0a 20  har *zVfs = 0;. 
158c0 20 69 6e 74 20 66 6c 61 67 73 3b 0a 20 20 54 63   int flags;.  Tc
158d0 6c 5f 44 53 74 72 69 6e 67 20 74 72 61 6e 73 6c  l_DString transl
158e0 61 74 65 64 46 69 6c 65 6e 61 6d 65 3b 0a 0a 20  atedFilename;.. 
158f0 20 2f 2a 20 49 6e 20 6e 6f 72 6d 61 6c 20 75 73   /* In normal us
15900 65 2c 20 65 61 63 68 20 54 43 4c 20 69 6e 74 65  e, each TCL inte
15910 72 70 72 65 74 65 72 20 72 75 6e 73 20 69 6e 20  rpreter runs in 
15920 61 20 73 69 6e 67 6c 65 20 74 68 72 65 61 64 2e  a single thread.
15930 20 20 53 6f 0a 20 20 2a 2a 20 62 79 20 64 65 66    So.  ** by def
15940 61 75 6c 74 2c 20 77 65 20 63 61 6e 20 74 75 72  ault, we can tur
15950 6e 20 6f 66 20 6d 75 74 65 78 69 6e 67 20 6f 6e  n of mutexing on
15960 20 53 51 4c 69 74 65 20 64 61 74 61 62 61 73 65   SQLite database
15970 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20   connections..  
15980 2a 2a 20 48 6f 77 65 76 65 72 2c 20 66 6f 72 20  ** However, for 
15990 74 65 73 74 69 6e 67 20 70 75 72 70 6f 73 65 73  testing purposes
159a0 20 69 74 20 69 73 20 75 73 65 66 75 6c 20 74 6f   it is useful to
159b0 20 68 61 76 65 20 6d 75 74 65 78 65 73 20 74 75   have mutexes tu
159c0 72 6e 65 64 0a 20 20 2a 2a 20 6f 6e 2e 20 20 53  rned.  ** on.  S
159d0 6f 2c 20 62 79 20 64 65 66 61 75 6c 74 2c 20 6d  o, by default, m
159e0 75 74 65 78 65 73 20 64 65 66 61 75 6c 74 20 6f  utexes default o
159f0 66 66 2e 20 20 42 75 74 20 69 66 20 63 6f 6d 70  ff.  But if comp
15a00 69 6c 65 64 20 77 69 74 68 0a 20 20 2a 2a 20 53  iled with.  ** S
15a10 51 4c 49 54 45 5f 54 43 4c 5f 44 45 46 41 55 4c  QLITE_TCL_DEFAUL
15a20 54 5f 46 55 4c 4c 4d 55 54 45 58 20 74 68 65 6e  T_FULLMUTEX then
15a30 20 6d 75 74 65 78 65 73 20 64 65 66 61 75 6c 74   mutexes default
15a40 20 6f 6e 2e 0a 20 20 2a 2f 0a 23 69 66 64 65 66   on..  */.#ifdef
15a50 20 53 51 4c 49 54 45 5f 54 43 4c 5f 44 45 46 41   SQLITE_TCL_DEFA
15a60 55 4c 54 5f 46 55 4c 4c 4d 55 54 45 58 0a 20 20  ULT_FULLMUTEX.  
15a70 66 6c 61 67 73 20 3d 20 53 51 4c 49 54 45 5f 4f  flags = SQLITE_O
15a80 50 45 4e 5f 52 45 41 44 57 52 49 54 45 20 7c 20  PEN_READWRITE | 
15a90 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 43 52 45 41  SQLITE_OPEN_CREA
15aa0 54 45 20 7c 20 53 51 4c 49 54 45 5f 4f 50 45 4e  TE | SQLITE_OPEN
15ab0 5f 46 55 4c 4c 4d 55 54 45 58 3b 0a 23 65 6c 73  _FULLMUTEX;.#els
15ac0 65 0a 20 20 66 6c 61 67 73 20 3d 20 53 51 4c 49  e.  flags = SQLI
15ad0 54 45 5f 4f 50 45 4e 5f 52 45 41 44 57 52 49 54  TE_OPEN_READWRIT
15ae0 45 20 7c 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f  E | SQLITE_OPEN_
15af0 43 52 45 41 54 45 20 7c 20 53 51 4c 49 54 45 5f  CREATE | SQLITE_
15b00 4f 50 45 4e 5f 4e 4f 4d 55 54 45 58 3b 0a 23 65  OPEN_NOMUTEX;.#e
15b10 6e 64 69 66 0a 0a 20 20 69 66 28 20 6f 62 6a 63  ndif..  if( objc
15b20 3d 3d 32 20 29 7b 0a 20 20 20 20 7a 41 72 67 20  ==2 ){.    zArg 
15b30 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46  = Tcl_GetStringF
15b40 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20  romObj(objv[1], 
15b50 30 29 3b 0a 20 20 20 20 69 66 28 20 73 74 72 63  0);.    if( strc
15b60 6d 70 28 7a 41 72 67 2c 22 2d 76 65 72 73 69 6f  mp(zArg,"-versio
15b70 6e 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  n")==0 ){.      
15b80 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
15b90 28 69 6e 74 65 72 70 2c 73 71 6c 69 74 65 33 5f  (interp,sqlite3_
15ba0 76 65 72 73 69 6f 6e 2c 30 29 3b 0a 20 20 20 20  version,0);.    
15bb0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
15bc0 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 73  .    }.    if( s
15bd0 74 72 63 6d 70 28 7a 41 72 67 2c 22 2d 68 61 73  trcmp(zArg,"-has
15be0 2d 63 6f 64 65 63 22 29 3d 3d 30 20 29 7b 0a 23  -codec")==0 ){.#
15bf0 69 66 64 65 66 20 53 51 4c 49 54 45 5f 48 41 53  ifdef SQLITE_HAS
15c00 5f 43 4f 44 45 43 0a 20 20 20 20 20 20 54 63 6c  _CODEC.      Tcl
15c10 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
15c20 74 65 72 70 2c 22 31 22 2c 30 29 3b 0a 23 65 6c  terp,"1",0);.#el
15c30 73 65 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 70  se.      Tcl_App
15c40 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
15c50 2c 22 30 22 2c 30 29 3b 0a 23 65 6e 64 69 66 0a  ,"0",0);.#endif.
15c60 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
15c70 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  _OK;.    }.  }. 
15c80 20 66 6f 72 28 69 3d 33 3b 20 69 2b 31 3c 6f 62   for(i=3; i+1<ob
15c90 6a 63 3b 20 69 2b 3d 32 29 7b 0a 20 20 20 20 7a  jc; i+=2){.    z
15ca0 41 72 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  Arg = Tcl_GetStr
15cb0 69 6e 67 28 6f 62 6a 76 5b 69 5d 29 3b 0a 20 20  ing(objv[i]);.  
15cc0 20 20 69 66 28 20 73 74 72 63 6d 70 28 7a 41 72    if( strcmp(zAr
15cd0 67 2c 22 2d 6b 65 79 22 29 3d 3d 30 20 29 7b 0a  g,"-key")==0 ){.
15ce0 20 20 20 20 20 20 70 4b 65 79 20 3d 20 54 63 6c        pKey = Tcl
15cf0 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f  _GetByteArrayFro
15d00 6d 4f 62 6a 28 6f 62 6a 76 5b 69 2b 31 5d 2c 20  mObj(objv[i+1], 
15d10 26 6e 4b 65 79 29 3b 0a 20 20 20 20 7d 65 6c 73  &nKey);.    }els
15d20 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a 41 72  e if( strcmp(zAr
15d30 67 2c 20 22 2d 76 66 73 22 29 3d 3d 30 20 29 7b  g, "-vfs")==0 ){
15d40 0a 20 20 20 20 20 20 7a 56 66 73 20 3d 20 54 63  .      zVfs = Tc
15d50 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76  l_GetString(objv
15d60 5b 69 2b 31 5d 29 3b 0a 20 20 20 20 7d 65 6c 73  [i+1]);.    }els
15d70 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a 41 72  e if( strcmp(zAr
15d80 67 2c 20 22 2d 72 65 61 64 6f 6e 6c 79 22 29 3d  g, "-readonly")=
15d90 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20  =0 ){.      int 
15da0 62 3b 0a 20 20 20 20 20 20 69 66 28 20 54 63 6c  b;.      if( Tcl
15db0 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f  _GetBooleanFromO
15dc0 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b  bj(interp, objv[
15dd0 69 2b 31 5d 2c 20 26 62 29 20 29 20 72 65 74 75  i+1], &b) ) retu
15de0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
15df0 20 20 20 20 69 66 28 20 62 20 29 7b 0a 20 20 20      if( b ){.   
15e00 20 20 20 20 20 66 6c 61 67 73 20 26 3d 20 7e 28       flags &= ~(
15e10 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 52 45 41 44  SQLITE_OPEN_READ
15e20 57 52 49 54 45 7c 53 51 4c 49 54 45 5f 4f 50 45  WRITE|SQLITE_OPE
15e30 4e 5f 43 52 45 41 54 45 29 3b 0a 20 20 20 20 20  N_CREATE);.     
15e40 20 20 20 66 6c 61 67 73 20 7c 3d 20 53 51 4c 49     flags |= SQLI
15e50 54 45 5f 4f 50 45 4e 5f 52 45 41 44 4f 4e 4c 59  TE_OPEN_READONLY
15e60 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20  ;.      }else{. 
15e70 20 20 20 20 20 20 20 66 6c 61 67 73 20 26 3d 20         flags &= 
15e80 7e 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 52 45 41  ~SQLITE_OPEN_REA
15e90 44 4f 4e 4c 59 3b 0a 20 20 20 20 20 20 20 20 66  DONLY;.        f
15ea0 6c 61 67 73 20 7c 3d 20 53 51 4c 49 54 45 5f 4f  lags |= SQLITE_O
15eb0 50 45 4e 5f 52 45 41 44 57 52 49 54 45 3b 0a 20  PEN_READWRITE;. 
15ec0 20 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65       }.    }else
15ed0 20 69 66 28 20 73 74 72 63 6d 70 28 7a 41 72 67   if( strcmp(zArg
15ee0 2c 20 22 2d 63 72 65 61 74 65 22 29 3d 3d 30 20  , "-create")==0 
15ef0 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 62 3b 0a  ){.      int b;.
15f00 20 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65        if( Tcl_Ge
15f10 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28  tBooleanFromObj(
15f20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31  interp, objv[i+1
15f30 5d 2c 20 26 62 29 20 29 20 72 65 74 75 72 6e 20  ], &b) ) return 
15f40 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
15f50 20 69 66 28 20 62 20 26 26 20 28 66 6c 61 67 73   if( b && (flags
15f60 20 26 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 52   & SQLITE_OPEN_R
15f70 45 41 44 4f 4e 4c 59 29 3d 3d 30 20 29 7b 0a 20  EADONLY)==0 ){. 
15f80 20 20 20 20 20 20 20 66 6c 61 67 73 20 7c 3d 20         flags |= 
15f90 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 43 52 45 41  SQLITE_OPEN_CREA
15fa0 54 45 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b  TE;.      }else{
15fb0 0a 20 20 20 20 20 20 20 20 66 6c 61 67 73 20 26  .        flags &
15fc0 3d 20 7e 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 43  = ~SQLITE_OPEN_C
15fd0 52 45 41 54 45 3b 0a 20 20 20 20 20 20 7d 0a 20  REATE;.      }. 
15fe0 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72     }else if( str
15ff0 63 6d 70 28 7a 41 72 67 2c 20 22 2d 6e 6f 6d 75  cmp(zArg, "-nomu
16000 74 65 78 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20  tex")==0 ){.    
16010 20 20 69 6e 74 20 62 3b 0a 20 20 20 20 20 20 69    int b;.      i
16020 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61  f( Tcl_GetBoolea
16030 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  nFromObj(interp,
16040 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 62 29 20   objv[i+1], &b) 
16050 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ) return TCL_ERR
16060 4f 52 3b 0a 20 20 20 20 20 20 69 66 28 20 62 20  OR;.      if( b 
16070 29 7b 0a 20 20 20 20 20 20 20 20 66 6c 61 67 73  ){.        flags
16080 20 7c 3d 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f   |= SQLITE_OPEN_
16090 4e 4f 4d 55 54 45 58 3b 0a 20 20 20 20 20 20 20  NOMUTEX;.       
160a0 20 66 6c 61 67 73 20 26 3d 20 7e 53 51 4c 49 54   flags &= ~SQLIT
160b0 45 5f 4f 50 45 4e 5f 46 55 4c 4c 4d 55 54 45 58  E_OPEN_FULLMUTEX
160c0 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20  ;.      }else{. 
160d0 20 20 20 20 20 20 20 66 6c 61 67 73 20 26 3d 20         flags &= 
160e0 7e 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 4e 4f 4d  ~SQLITE_OPEN_NOM
160f0 55 54 45 58 3b 0a 20 20 20 20 20 20 7d 0a 20 20  UTEX;.      }.  
16100 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d   }else if( strcm
16110 70 28 7a 41 72 67 2c 20 22 2d 66 75 6c 6c 6d 75  p(zArg, "-fullmu
16120 74 65 78 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20  tex")==0 ){.    
16130 20 20 69 6e 74 20 62 3b 0a 20 20 20 20 20 20 69    int b;.      i
16140 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61  f( Tcl_GetBoolea
16150 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  nFromObj(interp,
16160 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 62 29 20   objv[i+1], &b) 
16170 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ) return TCL_ERR
16180 4f 52 3b 0a 20 20 20 20 20 20 69 66 28 20 62 20  OR;.      if( b 
16190 29 7b 0a 20 20 20 20 20 20 20 20 66 6c 61 67 73  ){.        flags
161a0 20 7c 3d 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f   |= SQLITE_OPEN_
161b0 46 55 4c 4c 4d 55 54 45 58 3b 0a 20 20 20 20 20  FULLMUTEX;.     
161c0 20 20 20 66 6c 61 67 73 20 26 3d 20 7e 53 51 4c     flags &= ~SQL
161d0 49 54 45 5f 4f 50 45 4e 5f 4e 4f 4d 55 54 45 58  ITE_OPEN_NOMUTEX
161e0 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20  ;.      }else{. 
161f0 20 20 20 20 20 20 20 66 6c 61 67 73 20 26 3d 20         flags &= 
16200 7e 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 46 55 4c  ~SQLITE_OPEN_FUL
16210 4c 4d 55 54 45 58 3b 0a 20 20 20 20 20 20 7d 0a  LMUTEX;.      }.
16220 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
16230 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
16240 74 28 69 6e 74 65 72 70 2c 20 22 75 6e 6b 6e 6f  t(interp, "unkno
16250 77 6e 20 6f 70 74 69 6f 6e 3a 20 22 2c 20 7a 41  wn option: ", zA
16260 72 67 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20  rg, (char*)0);. 
16270 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
16280 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 7d  ERROR;.    }.  }
16290 0a 20 20 69 66 28 20 6f 62 6a 63 3c 33 20 7c 7c  .  if( objc<3 ||
162a0 20 28 6f 62 6a 63 26 31 29 21 3d 31 20 29 7b 0a   (objc&1)!=1 ){.
162b0 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
162c0 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
162d0 6f 62 6a 76 2c 20 0a 20 20 20 20 20 20 22 48 41  objv, .      "HA
162e0 4e 44 4c 45 20 46 49 4c 45 4e 41 4d 45 20 3f 2d  NDLE FILENAME ?-
162f0 76 66 73 20 56 46 53 4e 41 4d 45 3f 20 3f 2d 72  vfs VFSNAME? ?-r
16300 65 61 64 6f 6e 6c 79 20 42 4f 4f 4c 45 41 4e 3f  eadonly BOOLEAN?
16310 20 3f 2d 63 72 65 61 74 65 20 42 4f 4f 4c 45 41   ?-create BOOLEA
16320 4e 3f 22 0a 20 20 20 20 20 20 22 20 3f 2d 6e 6f  N?".      " ?-no
16330 6d 75 74 65 78 20 42 4f 4f 4c 45 41 4e 3f 20 3f  mutex BOOLEAN? ?
16340 2d 66 75 6c 6c 6d 75 74 65 78 20 42 4f 4f 4c 45  -fullmutex BOOLE
16350 41 4e 3f 22 0a 23 69 66 64 65 66 20 53 51 4c 49  AN?".#ifdef SQLI
16360 54 45 5f 48 41 53 5f 43 4f 44 45 43 0a 20 20 20  TE_HAS_CODEC.   
16370 20 20 20 22 20 3f 2d 6b 65 79 20 43 4f 44 45 43     " ?-key CODEC
16380 4b 45 59 3f 22 0a 23 65 6e 64 69 66 0a 20 20 20  KEY?".#endif.   
16390 20 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54   );.    return T
163a0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
163b0 7a 45 72 72 4d 73 67 20 3d 20 30 3b 0a 20 20 70  zErrMsg = 0;.  p
163c0 20 3d 20 28 53 71 6c 69 74 65 44 62 2a 29 54 63   = (SqliteDb*)Tc
163d0 6c 5f 41 6c 6c 6f 63 28 20 73 69 7a 65 6f 66 28  l_Alloc( sizeof(
163e0 2a 70 29 20 29 3b 0a 20 20 69 66 28 20 70 3d 3d  *p) );.  if( p==
163f0 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74  0 ){.    Tcl_Set
16400 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
16410 6d 61 6c 6c 6f 63 20 66 61 69 6c 65 64 22 2c 20  malloc failed", 
16420 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 20  TCL_STATIC);.   
16430 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
16440 52 3b 0a 20 20 7d 0a 20 20 6d 65 6d 73 65 74 28  R;.  }.  memset(
16450 70 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 29  p, 0, sizeof(*p)
16460 29 3b 0a 20 20 7a 46 69 6c 65 20 3d 20 54 63 6c  );.  zFile = Tcl
16470 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62  _GetStringFromOb
16480 6a 28 6f 62 6a 76 5b 32 5d 2c 20 30 29 3b 0a 20  j(objv[2], 0);. 
16490 20 7a 46 69 6c 65 20 3d 20 54 63 6c 5f 54 72 61   zFile = Tcl_Tra
164a0 6e 73 6c 61 74 65 46 69 6c 65 4e 61 6d 65 28 69  nslateFileName(i
164b0 6e 74 65 72 70 2c 20 7a 46 69 6c 65 2c 20 26 74  nterp, zFile, &t
164c0 72 61 6e 73 6c 61 74 65 64 46 69 6c 65 6e 61 6d  ranslatedFilenam
164d0 65 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 6f 70  e);.  sqlite3_op
164e0 65 6e 5f 76 32 28 7a 46 69 6c 65 2c 20 26 70 2d  en_v2(zFile, &p-
164f0 3e 64 62 2c 20 66 6c 61 67 73 2c 20 7a 56 66 73  >db, flags, zVfs
16500 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  );.  Tcl_DString
16510 46 72 65 65 28 26 74 72 61 6e 73 6c 61 74 65 64  Free(&translated
16520 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 69 66 28  Filename);.  if(
16530 20 53 51 4c 49 54 45 5f 4f 4b 21 3d 73 71 6c 69   SQLITE_OK!=sqli
16540 74 65 33 5f 65 72 72 63 6f 64 65 28 70 2d 3e 64  te3_errcode(p->d
16550 62 29 20 29 7b 0a 20 20 20 20 7a 45 72 72 4d 73  b) ){.    zErrMs
16560 67 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69  g = sqlite3_mpri
16570 6e 74 66 28 22 25 73 22 2c 20 73 71 6c 69 74 65  ntf("%s", sqlite
16580 33 5f 65 72 72 6d 73 67 28 70 2d 3e 64 62 29 29  3_errmsg(p->db))
16590 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6c  ;.    sqlite3_cl
165a0 6f 73 65 28 70 2d 3e 64 62 29 3b 0a 20 20 20 20  ose(p->db);.    
165b0 70 2d 3e 64 62 20 3d 20 30 3b 0a 20 20 7d 0a 23  p->db = 0;.  }.#
165c0 69 66 64 65 66 20 53 51 4c 49 54 45 5f 48 41 53  ifdef SQLITE_HAS
165d0 5f 43 4f 44 45 43 0a 20 20 69 66 28 20 70 2d 3e  _CODEC.  if( p->
165e0 64 62 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65  db ){.    sqlite
165f0 33 5f 6b 65 79 28 70 2d 3e 64 62 2c 20 70 4b 65  3_key(p->db, pKe
16600 79 2c 20 6e 4b 65 79 29 3b 0a 20 20 7d 0a 23 65  y, nKey);.  }.#e
16610 6e 64 69 66 0a 20 20 69 66 28 20 70 2d 3e 64 62  ndif.  if( p->db
16620 3d 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53  ==0 ){.    Tcl_S
16630 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  etResult(interp,
16640 20 7a 45 72 72 4d 73 67 2c 20 54 43 4c 5f 56 4f   zErrMsg, TCL_VO
16650 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 54 63 6c  LATILE);.    Tcl
16660 5f 46 72 65 65 28 28 63 68 61 72 2a 29 70 29 3b  _Free((char*)p);
16670 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65  .    sqlite3_fre
16680 65 28 7a 45 72 72 4d 73 67 29 3b 0a 20 20 20 20  e(zErrMsg);.    
16690 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
166a0 3b 0a 20 20 7d 0a 20 20 70 2d 3e 6d 61 78 53 74  ;.  }.  p->maxSt
166b0 6d 74 20 3d 20 4e 55 4d 5f 50 52 45 50 41 52 45  mt = NUM_PREPARE
166c0 44 5f 53 54 4d 54 53 3b 0a 20 20 70 2d 3e 69 6e  D_STMTS;.  p->in
166d0 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20  terp = interp;. 
166e0 20 7a 41 72 67 20 3d 20 54 63 6c 5f 47 65 74 53   zArg = Tcl_GetS
166f0 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a  tringFromObj(obj
16700 76 5b 31 5d 2c 20 30 29 3b 0a 20 20 69 66 28 20  v[1], 0);.  if( 
16710 44 62 55 73 65 4e 72 65 28 29 20 29 7b 0a 20 20  DbUseNre() ){.  
16720 20 20 54 63 6c 5f 4e 52 43 72 65 61 74 65 43 6f    Tcl_NRCreateCo
16730 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 7a 41  mmand(interp, zA
16740 72 67 2c 20 44 62 4f 62 6a 43 6d 64 41 64 61 70  rg, DbObjCmdAdap
16750 74 6f 72 2c 20 44 62 4f 62 6a 43 6d 64 2c 0a 20  tor, DbObjCmd,. 
16760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
16770 20 20 20 20 20 20 20 28 63 68 61 72 2a 29 70 2c         (char*)p,
16780 20 44 62 44 65 6c 65 74 65 43 6d 64 29 3b 0a 20   DbDeleteCmd);. 
16790 20 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f   }else{.    Tcl_
167a0 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64  CreateObjCommand
167b0 28 69 6e 74 65 72 70 2c 20 7a 41 72 67 2c 20 44  (interp, zArg, D
167c0 62 4f 62 6a 43 6d 64 2c 20 28 63 68 61 72 2a 29  bObjCmd, (char*)
167d0 70 2c 20 44 62 44 65 6c 65 74 65 43 6d 64 29 3b  p, DbDeleteCmd);
167e0 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43  .  }.  return TC
167f0 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50  L_OK;.}../*.** P
16800 72 6f 76 69 64 65 20 61 20 64 75 6d 6d 79 20 54  rovide a dummy T
16810 63 6c 5f 49 6e 69 74 53 74 75 62 73 20 69 66 20  cl_InitStubs if 
16820 77 65 20 61 72 65 20 75 73 69 6e 67 20 74 68 69  we are using thi
16830 73 20 61 73 20 61 20 73 74 61 74 69 63 0a 2a 2a  s as a static.**
16840 20 6c 69 62 72 61 72 79 2e 0a 2a 2f 0a 23 69 66   library..*/.#if
16850 6e 64 65 66 20 55 53 45 5f 54 43 4c 5f 53 54 55  ndef USE_TCL_STU
16860 42 53 0a 23 20 75 6e 64 65 66 20 20 54 63 6c 5f  BS.# undef  Tcl_
16870 49 6e 69 74 53 74 75 62 73 0a 23 20 64 65 66 69  InitStubs.# defi
16880 6e 65 20 54 63 6c 5f 49 6e 69 74 53 74 75 62 73  ne Tcl_InitStubs
16890 28 61 2c 62 2c 63 29 0a 23 65 6e 64 69 66 0a 0a  (a,b,c).#endif..
168a0 2f 2a 0a 2a 2a 20 4d 61 6b 65 20 73 75 72 65 20  /*.** Make sure 
168b0 77 65 20 68 61 76 65 20 61 20 50 41 43 4b 41 47  we have a PACKAG
168c0 45 5f 56 45 52 53 49 4f 4e 20 6d 61 63 72 6f 20  E_VERSION macro 
168d0 64 65 66 69 6e 65 64 2e 20 20 54 68 69 73 20 77  defined.  This w
168e0 69 6c 6c 20 62 65 0a 2a 2a 20 64 65 66 69 6e 65  ill be.** define
168f0 64 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20  d automatically 
16900 62 79 20 74 68 65 20 54 45 41 20 6d 61 6b 65 66  by the TEA makef
16910 69 6c 65 2e 20 20 42 75 74 20 6f 74 68 65 72 20  ile.  But other 
16920 6d 61 6b 65 66 69 6c 65 73 0a 2a 2a 20 64 6f 20  makefiles.** do 
16930 6e 6f 74 20 64 65 66 69 6e 65 20 69 74 2e 0a 2a  not define it..*
16940 2f 0a 23 69 66 6e 64 65 66 20 50 41 43 4b 41 47  /.#ifndef PACKAG
16950 45 5f 56 45 52 53 49 4f 4e 0a 23 20 64 65 66 69  E_VERSION.# defi
16960 6e 65 20 50 41 43 4b 41 47 45 5f 56 45 52 53 49  ne PACKAGE_VERSI
16970 4f 4e 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f  ON SQLITE_VERSIO
16980 4e 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20  N.#endif../*.** 
16990 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 69 73 20  Initialize this 
169a0 6d 6f 64 75 6c 65 2e 0a 2a 2a 0a 2a 2a 20 54 68  module..**.** Th
169b0 69 73 20 54 63 6c 20 6d 6f 64 75 6c 65 20 63 6f  is Tcl module co
169c0 6e 74 61 69 6e 73 20 6f 6e 6c 79 20 61 20 73 69  ntains only a si
169d0 6e 67 6c 65 20 6e 65 77 20 54 63 6c 20 63 6f 6d  ngle new Tcl com
169e0 6d 61 6e 64 20 6e 61 6d 65 64 20 22 73 71 6c 69  mand named "sqli
169f0 74 65 22 2e 0a 2a 2a 20 28 48 65 6e 63 65 20 74  te"..** (Hence t
16a00 68 65 72 65 20 69 73 20 6e 6f 20 6e 61 6d 65 73  here is no names
16a10 70 61 63 65 2e 20 20 54 68 65 72 65 20 69 73 20  pace.  There is 
16a20 6e 6f 20 70 6f 69 6e 74 20 69 6e 20 75 73 69 6e  no point in usin
16a30 67 20 61 20 6e 61 6d 65 73 70 61 63 65 0a 2a 2a  g a namespace.**
16a40 20 69 66 20 74 68 65 20 65 78 74 65 6e 73 69 6f   if the extensio
16a50 6e 20 6f 6e 6c 79 20 73 75 70 70 6c 69 65 73 20  n only supplies 
16a60 6f 6e 65 20 6e 65 77 20 6e 61 6d 65 21 29 20 20  one new name!)  
16a70 54 68 65 20 22 73 71 6c 69 74 65 22 20 63 6f 6d  The "sqlite" com
16a80 6d 61 6e 64 20 69 73 0a 2a 2a 20 75 73 65 64 20  mand is.** used 
16a90 74 6f 20 6f 70 65 6e 20 61 20 6e 65 77 20 53 51  to open a new SQ
16aa0 4c 69 74 65 20 64 61 74 61 62 61 73 65 2e 20 20  Lite database.  
16ab0 53 65 65 20 74 68 65 20 44 62 4d 61 69 6e 28 29  See the DbMain()
16ac0 20 72 6f 75 74 69 6e 65 20 61 62 6f 76 65 0a 2a   routine above.*
16ad0 2a 20 66 6f 72 20 61 64 64 69 74 69 6f 6e 61 6c  * for additional
16ae0 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 2a 2f   information..*/
16af0 0a 69 6e 74 20 53 71 6c 69 74 65 33 5f 49 6e 69  .int Sqlite3_Ini
16b00 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  t(Tcl_Interp *in
16b10 74 65 72 70 29 7b 0a 20 20 54 63 6c 5f 49 6e 69  terp){.  Tcl_Ini
16b20 74 53 74 75 62 73 28 69 6e 74 65 72 70 2c 20 22  tStubs(interp, "
16b30 38 2e 34 22 2c 20 30 29 3b 0a 20 20 54 63 6c 5f  8.4", 0);.  Tcl_
16b40 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64  CreateObjCommand
16b50 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
16b60 33 22 2c 20 28 54 63 6c 5f 4f 62 6a 43 6d 64 50  3", (Tcl_ObjCmdP
16b70 72 6f 63 2a 29 44 62 4d 61 69 6e 2c 20 30 2c 20  roc*)DbMain, 0, 
16b80 30 29 3b 0a 20 20 54 63 6c 5f 50 6b 67 50 72 6f  0);.  Tcl_PkgPro
16b90 76 69 64 65 28 69 6e 74 65 72 70 2c 20 22 73 71  vide(interp, "sq
16ba0 6c 69 74 65 33 22 2c 20 50 41 43 4b 41 47 45 5f  lite3", PACKAGE_
16bb0 56 45 52 53 49 4f 4e 29 3b 0a 23 69 66 20 30 0a  VERSION);.#if 0.
16bc0 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
16bd0 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
16be0 73 71 6c 69 74 65 22 2c 20 28 54 63 6c 5f 4f 62  sqlite", (Tcl_Ob
16bf0 6a 43 6d 64 50 72 6f 63 2a 29 44 62 4d 61 69 6e  jCmdProc*)DbMain
16c00 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 50  , 0, 0);.  Tcl_P
16c10 6b 67 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70  kgProvide(interp
16c20 2c 20 22 73 71 6c 69 74 65 22 2c 20 50 41 43 4b  , "sqlite", PACK
16c30 41 47 45 5f 56 45 52 53 49 4f 4e 29 3b 0a 23 65  AGE_VERSION);.#e
16c40 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 54 43  ndif.  return TC
16c50 4c 5f 4f 4b 3b 0a 7d 0a 69 6e 74 20 54 63 6c 73  L_OK;.}.int Tcls
16c60 71 6c 69 74 65 33 5f 49 6e 69 74 28 54 63 6c 5f  qlite3_Init(Tcl_
16c70 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b  Interp *interp){
16c80 20 72 65 74 75 72 6e 20 53 71 6c 69 74 65 33 5f   return Sqlite3_
16c90 49 6e 69 74 28 69 6e 74 65 72 70 29 3b 20 7d 0a  Init(interp); }.
16ca0 69 6e 74 20 53 71 6c 69 74 65 33 5f 53 61 66 65  int Sqlite3_Safe
16cb0 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20  Init(Tcl_Interp 
16cc0 2a 69 6e 74 65 72 70 29 7b 20 72 65 74 75 72 6e  *interp){ return
16cd0 20 54 43 4c 5f 4f 4b 3b 20 7d 0a 69 6e 74 20 54   TCL_OK; }.int T
16ce0 63 6c 73 71 6c 69 74 65 33 5f 53 61 66 65 49 6e  clsqlite3_SafeIn
16cf0 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  it(Tcl_Interp *i
16d00 6e 74 65 72 70 29 7b 20 72 65 74 75 72 6e 20 54  nterp){ return T
16d10 43 4c 5f 4f 4b 3b 20 7d 0a 69 6e 74 20 53 71 6c  CL_OK; }.int Sql
16d20 69 74 65 33 5f 55 6e 6c 6f 61 64 28 54 63 6c 5f  ite3_Unload(Tcl_
16d30 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
16d40 69 6e 74 20 66 6c 61 67 73 29 7b 20 72 65 74 75  int flags){ retu
16d50 72 6e 20 54 43 4c 5f 4f 4b 3b 20 7d 0a 69 6e 74  rn TCL_OK; }.int
16d60 20 54 63 6c 73 71 6c 69 74 65 33 5f 55 6e 6c 6f   Tclsqlite3_Unlo
16d70 61 64 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  ad(Tcl_Interp *i
16d80 6e 74 65 72 70 2c 20 69 6e 74 20 66 6c 61 67 73  nterp, int flags
16d90 29 7b 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  ){ return TCL_OK
16da0 3b 20 7d 0a 69 6e 74 20 53 71 6c 69 74 65 33 5f  ; }.int Sqlite3_
16db0 53 61 66 65 55 6e 6c 6f 61 64 28 54 63 6c 5f 49  SafeUnload(Tcl_I
16dc0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69  nterp *interp, i
16dd0 6e 74 20 66 6c 61 67 73 29 7b 20 72 65 74 75 72  nt flags){ retur
16de0 6e 20 54 43 4c 5f 4f 4b 3b 20 7d 0a 69 6e 74 20  n TCL_OK; }.int 
16df0 54 63 6c 73 71 6c 69 74 65 33 5f 53 61 66 65 55  Tclsqlite3_SafeU
16e00 6e 6c 6f 61 64 28 54 63 6c 5f 49 6e 74 65 72 70  nload(Tcl_Interp
16e10 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 66 6c   *interp, int fl
16e20 61 67 73 29 7b 20 72 65 74 75 72 6e 20 54 43 4c  ags){ return TCL
16e30 5f 4f 4b 3b 7d 0a 0a 0a 23 69 66 6e 64 65 66 20  _OK;}...#ifndef 
16e40 53 51 4c 49 54 45 5f 33 5f 53 55 46 46 49 58 5f  SQLITE_3_SUFFIX_
16e50 4f 4e 4c 59 0a 69 6e 74 20 53 71 6c 69 74 65 5f  ONLY.int Sqlite_
16e60 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20  Init(Tcl_Interp 
16e70 2a 69 6e 74 65 72 70 29 7b 20 72 65 74 75 72 6e  *interp){ return
16e80 20 53 71 6c 69 74 65 33 5f 49 6e 69 74 28 69 6e   Sqlite3_Init(in
16e90 74 65 72 70 29 3b 20 7d 0a 69 6e 74 20 54 63 6c  terp); }.int Tcl
16ea0 73 71 6c 69 74 65 5f 49 6e 69 74 28 54 63 6c 5f  sqlite_Init(Tcl_
16eb0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b  Interp *interp){
16ec0 20 72 65 74 75 72 6e 20 53 71 6c 69 74 65 33 5f   return Sqlite3_
16ed0 49 6e 69 74 28 69 6e 74 65 72 70 29 3b 20 7d 0a  Init(interp); }.
16ee0 69 6e 74 20 53 71 6c 69 74 65 5f 53 61 66 65 49  int Sqlite_SafeI
16ef0 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  nit(Tcl_Interp *
16f00 69 6e 74 65 72 70 29 7b 20 72 65 74 75 72 6e 20  interp){ return 
16f10 54 43 4c 5f 4f 4b 3b 20 7d 0a 69 6e 74 20 54 63  TCL_OK; }.int Tc
16f20 6c 73 71 6c 69 74 65 5f 53 61 66 65 49 6e 69 74  lsqlite_SafeInit
16f30 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
16f40 65 72 70 29 7b 20 72 65 74 75 72 6e 20 54 43 4c  erp){ return TCL
16f50 5f 4f 4b 3b 20 7d 0a 69 6e 74 20 53 71 6c 69 74  _OK; }.int Sqlit
16f60 65 5f 55 6e 6c 6f 61 64 28 54 63 6c 5f 49 6e 74  e_Unload(Tcl_Int
16f70 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74  erp *interp, int
16f80 20 66 6c 61 67 73 29 7b 20 72 65 74 75 72 6e 20   flags){ return 
16f90 54 43 4c 5f 4f 4b 3b 20 7d 0a 69 6e 74 20 54 63  TCL_OK; }.int Tc
16fa0 6c 73 71 6c 69 74 65 5f 55 6e 6c 6f 61 64 28 54  lsqlite_Unload(T
16fb0 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
16fc0 70 2c 20 69 6e 74 20 66 6c 61 67 73 29 7b 20 72  p, int flags){ r
16fd0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 20 7d 0a  eturn TCL_OK; }.
16fe0 69 6e 74 20 53 71 6c 69 74 65 5f 53 61 66 65 55  int Sqlite_SafeU
16ff0 6e 6c 6f 61 64 28 54 63 6c 5f 49 6e 74 65 72 70  nload(Tcl_Interp
17000 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 66 6c   *interp, int fl
17010 61 67 73 29 7b 20 72 65 74 75 72 6e 20 54 43 4c  ags){ return TCL
17020 5f 4f 4b 3b 20 7d 0a 69 6e 74 20 54 63 6c 73 71  _OK; }.int Tclsq
17030 6c 69 74 65 5f 53 61 66 65 55 6e 6c 6f 61 64 28  lite_SafeUnload(
17040 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
17050 72 70 2c 20 69 6e 74 20 66 6c 61 67 73 29 7b 20  rp, int flags){ 
17060 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 7d 0a  return TCL_OK;}.
17070 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 54  #endif..#ifdef T
17080 43 4c 53 48 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  CLSH./**********
17090 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
170a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
170b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
170c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
170d0 2a 2a 2a 0a 2a 2a 20 41 6c 6c 20 6f 66 20 74 68  ***.** All of th
170e0 65 20 63 6f 64 65 20 74 68 61 74 20 66 6f 6c 6c  e code that foll
170f0 6f 77 73 20 69 73 20 75 73 65 64 20 74 6f 20 62  ows is used to b
17100 75 69 6c 64 20 73 74 61 6e 64 61 6c 6f 6e 65 20  uild standalone 
17110 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 73  TCL interpreters
17120 0a 2a 2a 20 74 68 61 74 20 61 72 65 20 73 74 61  .** that are sta
17130 74 69 63 61 6c 6c 79 20 6c 69 6e 6b 65 64 20 77  tically linked w
17140 69 74 68 20 53 51 4c 69 74 65 2e 20 20 45 6e 61  ith SQLite.  Ena
17150 62 6c 65 20 74 68 65 73 65 20 62 79 20 63 6f 6d  ble these by com
17160 70 69 6c 69 6e 67 0a 2a 2a 20 77 69 74 68 20 2d  piling.** with -
17170 44 54 43 4c 53 48 3d 6e 20 77 68 65 72 65 20 6e  DTCLSH=n where n
17180 20 63 61 6e 20 62 65 20 31 20 6f 72 20 32 2e 20   can be 1 or 2. 
17190 20 41 6e 20 6e 20 6f 66 20 31 20 67 65 6e 65 72   An n of 1 gener
171a0 61 74 65 73 20 61 20 73 74 61 6e 64 61 72 64 0a  ates a standard.
171b0 2a 2a 20 74 63 6c 73 68 20 62 75 74 20 77 69 74  ** tclsh but wit
171c0 68 20 53 51 4c 69 74 65 20 62 75 69 6c 74 20 69  h SQLite built i
171d0 6e 2e 20 20 41 6e 20 6e 20 6f 66 20 32 20 67 65  n.  An n of 2 ge
171e0 6e 65 72 61 74 65 73 20 74 68 65 20 53 51 4c 69  nerates the SQLi
171f0 74 65 20 73 70 61 63 65 0a 2a 2a 20 61 6e 61 6c  te space.** anal
17200 79 73 69 73 20 70 72 6f 67 72 61 6d 2e 0a 2a 2f  ysis program..*/
17210 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 53 51  ..#if defined(SQ
17220 4c 49 54 45 5f 54 45 53 54 29 20 7c 7c 20 64 65  LITE_TEST) || de
17230 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 54 43 4c  fined(SQLITE_TCL
17240 4d 44 35 29 0a 2f 2a 0a 20 2a 20 54 68 69 73 20  MD5)./*. * This 
17250 63 6f 64 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20  code implements 
17260 74 68 65 20 4d 44 35 20 6d 65 73 73 61 67 65 2d  the MD5 message-
17270 64 69 67 65 73 74 20 61 6c 67 6f 72 69 74 68 6d  digest algorithm
17280 2e 0a 20 2a 20 54 68 65 20 61 6c 67 6f 72 69 74  .. * The algorit
17290 68 6d 20 69 73 20 64 75 65 20 74 6f 20 52 6f 6e  hm is due to Ron
172a0 20 52 69 76 65 73 74 2e 20 20 54 68 69 73 20 63   Rivest.  This c
172b0 6f 64 65 20 77 61 73 0a 20 2a 20 77 72 69 74 74  ode was. * writt
172c0 65 6e 20 62 79 20 43 6f 6c 69 6e 20 50 6c 75 6d  en by Colin Plum
172d0 62 20 69 6e 20 31 39 39 33 2c 20 6e 6f 20 63 6f  b in 1993, no co
172e0 70 79 72 69 67 68 74 20 69 73 20 63 6c 61 69 6d  pyright is claim
172f0 65 64 2e 0a 20 2a 20 54 68 69 73 20 63 6f 64 65  ed.. * This code
17300 20 69 73 20 69 6e 20 74 68 65 20 70 75 62 6c 69   is in the publi
17310 63 20 64 6f 6d 61 69 6e 3b 20 64 6f 20 77 69 74  c domain; do wit
17320 68 20 69 74 20 77 68 61 74 20 79 6f 75 20 77 69  h it what you wi
17330 73 68 2e 0a 20 2a 0a 20 2a 20 45 71 75 69 76 61  sh.. *. * Equiva
17340 6c 65 6e 74 20 63 6f 64 65 20 69 73 20 61 76 61  lent code is ava
17350 69 6c 61 62 6c 65 20 66 72 6f 6d 20 52 53 41 20  ilable from RSA 
17360 44 61 74 61 20 53 65 63 75 72 69 74 79 2c 20 49  Data Security, I
17370 6e 63 2e 0a 20 2a 20 54 68 69 73 20 63 6f 64 65  nc.. * This code
17380 20 68 61 73 20 62 65 65 6e 20 74 65 73 74 65 64   has been tested
17390 20 61 67 61 69 6e 73 74 20 74 68 61 74 2c 20 61   against that, a
173a0 6e 64 20 69 73 20 65 71 75 69 76 61 6c 65 6e 74  nd is equivalent
173b0 2c 0a 20 2a 20 65 78 63 65 70 74 20 74 68 61 74  ,. * except that
173c0 20 79 6f 75 20 64 6f 6e 27 74 20 6e 65 65 64 20   you don't need 
173d0 74 6f 20 69 6e 63 6c 75 64 65 20 74 77 6f 20 70  to include two p
173e0 61 67 65 73 20 6f 66 20 6c 65 67 61 6c 65 73 65  ages of legalese
173f0 0a 20 2a 20 77 69 74 68 20 65 76 65 72 79 20 63  . * with every c
17400 6f 70 79 2e 0a 20 2a 0a 20 2a 20 54 6f 20 63 6f  opy.. *. * To co
17410 6d 70 75 74 65 20 74 68 65 20 6d 65 73 73 61 67  mpute the messag
17420 65 20 64 69 67 65 73 74 20 6f 66 20 61 20 63 68  e digest of a ch
17430 75 6e 6b 20 6f 66 20 62 79 74 65 73 2c 20 64 65  unk of bytes, de
17440 63 6c 61 72 65 20 61 6e 0a 20 2a 20 4d 44 35 43  clare an. * MD5C
17450 6f 6e 74 65 78 74 20 73 74 72 75 63 74 75 72 65  ontext structure
17460 2c 20 70 61 73 73 20 69 74 20 74 6f 20 4d 44 35  , pass it to MD5
17470 49 6e 69 74 2c 20 63 61 6c 6c 20 4d 44 35 55 70  Init, call MD5Up
17480 64 61 74 65 20 61 73 0a 20 2a 20 6e 65 65 64 65  date as. * neede
17490 64 20 6f 6e 20 62 75 66 66 65 72 73 20 66 75 6c  d on buffers ful
174a0 6c 20 6f 66 20 62 79 74 65 73 2c 20 61 6e 64 20  l of bytes, and 
174b0 74 68 65 6e 20 63 61 6c 6c 20 4d 44 35 46 69 6e  then call MD5Fin
174c0 61 6c 2c 20 77 68 69 63 68 0a 20 2a 20 77 69 6c  al, which. * wil
174d0 6c 20 66 69 6c 6c 20 61 20 73 75 70 70 6c 69 65  l fill a supplie
174e0 64 20 31 36 2d 62 79 74 65 20 61 72 72 61 79 20  d 16-byte array 
174f0 77 69 74 68 20 74 68 65 20 64 69 67 65 73 74 2e  with the digest.
17500 0a 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 49 66 20 63  . */../*. * If c
17510 6f 6d 70 69 6c 65 64 20 6f 6e 20 61 20 6d 61 63  ompiled on a mac
17520 68 69 6e 65 20 74 68 61 74 20 64 6f 65 73 6e 27  hine that doesn'
17530 74 20 68 61 76 65 20 61 20 33 32 2d 62 69 74 20  t have a 32-bit 
17540 69 6e 74 65 67 65 72 2c 0a 20 2a 20 79 6f 75 20  integer,. * you 
17550 6a 75 73 74 20 73 65 74 20 22 75 69 6e 74 33 32  just set "uint32
17560 22 20 74 6f 20 74 68 65 20 61 70 70 72 6f 70 72  " to the appropr
17570 69 61 74 65 20 64 61 74 61 74 79 70 65 20 66 6f  iate datatype fo
17580 72 20 61 6e 0a 20 2a 20 75 6e 73 69 67 6e 65 64  r an. * unsigned
17590 20 33 32 2d 62 69 74 20 69 6e 74 65 67 65 72 2e   32-bit integer.
175a0 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 3a 0a 20    For example:. 
175b0 2a 0a 20 2a 20 20 20 20 20 20 20 63 63 20 2d 44  *. *       cc -D
175c0 75 69 6e 74 33 32 3d 27 75 6e 73 69 67 6e 65 64  uint32='unsigned
175d0 20 6c 6f 6e 67 27 20 6d 64 35 2e 63 0a 20 2a 0a   long' md5.c. *.
175e0 20 2a 2f 0a 23 69 66 6e 64 65 66 20 75 69 6e 74   */.#ifndef uint
175f0 33 32 0a 23 20 20 64 65 66 69 6e 65 20 75 69 6e  32.#  define uin
17600 74 33 32 20 75 6e 73 69 67 6e 65 64 20 69 6e 74  t32 unsigned int
17610 0a 23 65 6e 64 69 66 0a 0a 73 74 72 75 63 74 20  .#endif..struct 
17620 4d 44 35 43 6f 6e 74 65 78 74 20 7b 0a 20 20 69  MD5Context {.  i
17630 6e 74 20 69 73 49 6e 69 74 3b 0a 20 20 75 69 6e  nt isInit;.  uin
17640 74 33 32 20 62 75 66 5b 34 5d 3b 0a 20 20 75 69  t32 buf[4];.  ui
17650 6e 74 33 32 20 62 69 74 73 5b 32 5d 3b 0a 20 20  nt32 bits[2];.  
17660 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 69 6e  unsigned char in
17670 5b 36 34 5d 3b 0a 7d 3b 0a 74 79 70 65 64 65 66  [64];.};.typedef
17680 20 73 74 72 75 63 74 20 4d 44 35 43 6f 6e 74 65   struct MD5Conte
17690 78 74 20 4d 44 35 43 6f 6e 74 65 78 74 3b 0a 0a  xt MD5Context;..
176a0 2f 2a 0a 20 2a 20 4e 6f 74 65 3a 20 74 68 69 73  /*. * Note: this
176b0 20 63 6f 64 65 20 69 73 20 68 61 72 6d 6c 65 73   code is harmles
176c0 73 20 6f 6e 20 6c 69 74 74 6c 65 2d 65 6e 64 69  s on little-endi
176d0 61 6e 20 6d 61 63 68 69 6e 65 73 2e 0a 20 2a 2f  an machines.. */
176e0 0a 73 74 61 74 69 63 20 76 6f 69 64 20 62 79 74  .static void byt
176f0 65 52 65 76 65 72 73 65 20 28 75 6e 73 69 67 6e  eReverse (unsign
17700 65 64 20 63 68 61 72 20 2a 62 75 66 2c 20 75 6e  ed char *buf, un
17710 73 69 67 6e 65 64 20 6c 6f 6e 67 73 29 7b 0a 20  signed longs){. 
17720 20 20 20 20 20 20 20 75 69 6e 74 33 32 20 74 3b         uint32 t;
17730 0a 20 20 20 20 20 20 20 20 64 6f 20 7b 0a 20 20  .        do {.  
17740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 20                t 
17750 3d 20 28 75 69 6e 74 33 32 29 28 28 75 6e 73 69  = (uint32)((unsi
17760 67 6e 65 64 29 62 75 66 5b 33 5d 3c 3c 38 20 7c  gned)buf[3]<<8 |
17770 20 62 75 66 5b 32 5d 29 20 3c 3c 20 31 36 20 7c   buf[2]) << 16 |
17780 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
17790 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75               ((u
177a0 6e 73 69 67 6e 65 64 29 62 75 66 5b 31 5d 3c 3c  nsigned)buf[1]<<
177b0 38 20 7c 20 62 75 66 5b 30 5d 29 3b 0a 20 20 20  8 | buf[0]);.   
177c0 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 75               *(u
177d0 69 6e 74 33 32 20 2a 29 62 75 66 20 3d 20 74 3b  int32 *)buf = t;
177e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
177f0 20 62 75 66 20 2b 3d 20 34 3b 0a 20 20 20 20 20   buf += 4;.     
17800 20 20 20 7d 20 77 68 69 6c 65 20 28 2d 2d 6c 6f     } while (--lo
17810 6e 67 73 29 3b 0a 7d 0a 2f 2a 20 54 68 65 20 66  ngs);.}./* The f
17820 6f 75 72 20 63 6f 72 65 20 66 75 6e 63 74 69 6f  our core functio
17830 6e 73 20 2d 20 46 31 20 69 73 20 6f 70 74 69 6d  ns - F1 is optim
17840 69 7a 65 64 20 73 6f 6d 65 77 68 61 74 20 2a 2f  ized somewhat */
17850 0a 0a 2f 2a 20 23 64 65 66 69 6e 65 20 46 31 28  ../* #define F1(
17860 78 2c 20 79 2c 20 7a 29 20 28 78 20 26 20 79 20  x, y, z) (x & y 
17870 7c 20 7e 78 20 26 20 7a 29 20 2a 2f 0a 23 64 65  | ~x & z) */.#de
17880 66 69 6e 65 20 46 31 28 78 2c 20 79 2c 20 7a 29  fine F1(x, y, z)
17890 20 28 7a 20 5e 20 28 78 20 26 20 28 79 20 5e 20   (z ^ (x & (y ^ 
178a0 7a 29 29 29 0a 23 64 65 66 69 6e 65 20 46 32 28  z))).#define F2(
178b0 78 2c 20 79 2c 20 7a 29 20 46 31 28 7a 2c 20 78  x, y, z) F1(z, x
178c0 2c 20 79 29 0a 23 64 65 66 69 6e 65 20 46 33 28  , y).#define F3(
178d0 78 2c 20 79 2c 20 7a 29 20 28 78 20 5e 20 79 20  x, y, z) (x ^ y 
178e0 5e 20 7a 29 0a 23 64 65 66 69 6e 65 20 46 34 28  ^ z).#define F4(
178f0 78 2c 20 79 2c 20 7a 29 20 28 79 20 5e 20 28 78  x, y, z) (y ^ (x
17900 20 7c 20 7e 7a 29 29 0a 0a 2f 2a 20 54 68 69 73   | ~z))../* This
17910 20 69 73 20 74 68 65 20 63 65 6e 74 72 61 6c 20   is the central 
17920 73 74 65 70 20 69 6e 20 74 68 65 20 4d 44 35 20  step in the MD5 
17930 61 6c 67 6f 72 69 74 68 6d 2e 20 2a 2f 0a 23 64  algorithm. */.#d
17940 65 66 69 6e 65 20 4d 44 35 53 54 45 50 28 66 2c  efine MD5STEP(f,
17950 20 77 2c 20 78 2c 20 79 2c 20 7a 2c 20 64 61 74   w, x, y, z, dat
17960 61 2c 20 73 29 20 5c 0a 20 20 20 20 20 20 20 20  a, s) \.        
17970 28 20 77 20 2b 3d 20 66 28 78 2c 20 79 2c 20 7a  ( w += f(x, y, z
17980 29 20 2b 20 64 61 74 61 2c 20 20 77 20 3d 20 77  ) + data,  w = w
17990 3c 3c 73 20 7c 20 77 3e 3e 28 33 32 2d 73 29 2c  <<s | w>>(32-s),
179a0 20 20 77 20 2b 3d 20 78 20 29 0a 0a 2f 2a 0a 20    w += x )../*. 
179b0 2a 20 54 68 65 20 63 6f 72 65 20 6f 66 20 74 68  * The core of th
179c0 65 20 4d 44 35 20 61 6c 67 6f 72 69 74 68 6d 2c  e MD5 algorithm,
179d0 20 74 68 69 73 20 61 6c 74 65 72 73 20 61 6e 20   this alters an 
179e0 65 78 69 73 74 69 6e 67 20 4d 44 35 20 68 61 73  existing MD5 has
179f0 68 20 74 6f 0a 20 2a 20 72 65 66 6c 65 63 74 20  h to. * reflect 
17a00 74 68 65 20 61 64 64 69 74 69 6f 6e 20 6f 66 20  the addition of 
17a10 31 36 20 6c 6f 6e 67 77 6f 72 64 73 20 6f 66 20  16 longwords of 
17a20 6e 65 77 20 64 61 74 61 2e 20 20 4d 44 35 55 70  new data.  MD5Up
17a30 64 61 74 65 20 62 6c 6f 63 6b 73 0a 20 2a 20 74  date blocks. * t
17a40 68 65 20 64 61 74 61 20 61 6e 64 20 63 6f 6e 76  he data and conv
17a50 65 72 74 73 20 62 79 74 65 73 20 69 6e 74 6f 20  erts bytes into 
17a60 6c 6f 6e 67 77 6f 72 64 73 20 66 6f 72 20 74 68  longwords for th
17a70 69 73 20 72 6f 75 74 69 6e 65 2e 0a 20 2a 2f 0a  is routine.. */.
17a80 73 74 61 74 69 63 20 76 6f 69 64 20 4d 44 35 54  static void MD5T
17a90 72 61 6e 73 66 6f 72 6d 28 75 69 6e 74 33 32 20  ransform(uint32 
17aa0 62 75 66 5b 34 5d 2c 20 63 6f 6e 73 74 20 75 69  buf[4], const ui
17ab0 6e 74 33 32 20 69 6e 5b 31 36 5d 29 7b 0a 20 20  nt32 in[16]){.  
17ac0 20 20 20 20 20 20 72 65 67 69 73 74 65 72 20 75        register u
17ad0 69 6e 74 33 32 20 61 2c 20 62 2c 20 63 2c 20 64  int32 a, b, c, d
17ae0 3b 0a 0a 20 20 20 20 20 20 20 20 61 20 3d 20 62  ;..        a = b
17af0 75 66 5b 30 5d 3b 0a 20 20 20 20 20 20 20 20 62  uf[0];.        b
17b00 20 3d 20 62 75 66 5b 31 5d 3b 0a 20 20 20 20 20   = buf[1];.     
17b10 20 20 20 63 20 3d 20 62 75 66 5b 32 5d 3b 0a 20     c = buf[2];. 
17b20 20 20 20 20 20 20 20 64 20 3d 20 62 75 66 5b 33         d = buf[3
17b30 5d 3b 0a 0a 20 20 20 20 20 20 20 20 4d 44 35 53  ];..        MD5S
17b40 54 45 50 28 46 31 2c 20 61 2c 20 62 2c 20 63 2c  TEP(F1, a, b, c,
17b50 20 64 2c 20 69 6e 5b 20 30 5d 2b 30 78 64 37 36   d, in[ 0]+0xd76
17b60 61 61 34 37 38 2c 20 20 37 29 3b 0a 20 20 20 20  aa478,  7);.    
17b70 20 20 20 20 4d 44 35 53 54 45 50 28 46 31 2c 20      MD5STEP(F1, 
17b80 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e 5b 20  d, a, b, c, in[ 
17b90 31 5d 2b 30 78 65 38 63 37 62 37 35 36 2c 20 31  1]+0xe8c7b756, 1
17ba0 32 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35 53  2);.        MD5S
17bb0 54 45 50 28 46 31 2c 20 63 2c 20 64 2c 20 61 2c  TEP(F1, c, d, a,
17bc0 20 62 2c 20 69 6e 5b 20 32 5d 2b 30 78 32 34 32   b, in[ 2]+0x242
17bd0 30 37 30 64 62 2c 20 31 37 29 3b 0a 20 20 20 20  070db, 17);.    
17be0 20 20 20 20 4d 44 35 53 54 45 50 28 46 31 2c 20      MD5STEP(F1, 
17bf0 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e 5b 20  b, c, d, a, in[ 
17c00 33 5d 2b 30 78 63 31 62 64 63 65 65 65 2c 20 32  3]+0xc1bdceee, 2
17c10 32 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35 53  2);.        MD5S
17c20 54 45 50 28 46 31 2c 20 61 2c 20 62 2c 20 63 2c  TEP(F1, a, b, c,
17c30 20 64 2c 20 69 6e 5b 20 34 5d 2b 30 78 66 35 37   d, in[ 4]+0xf57
17c40 63 30 66 61 66 2c 20 20 37 29 3b 0a 20 20 20 20  c0faf,  7);.    
17c50 20 20 20 20 4d 44 35 53 54 45 50 28 46 31 2c 20      MD5STEP(F1, 
17c60 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e 5b 20  d, a, b, c, in[ 
17c70 35 5d 2b 30 78 34 37 38 37 63 36 32 61 2c 20 31  5]+0x4787c62a, 1
17c80 32 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35 53  2);.        MD5S
17c90 54 45 50 28 46 31 2c 20 63 2c 20 64 2c 20 61 2c  TEP(F1, c, d, a,
17ca0 20 62 2c 20 69 6e 5b 20 36 5d 2b 30 78 61 38 33   b, in[ 6]+0xa83
17cb0 30 34 36 31 33 2c 20 31 37 29 3b 0a 20 20 20 20  04613, 17);.    
17cc0 20 20 20 20 4d 44 35 53 54 45 50 28 46 31 2c 20      MD5STEP(F1, 
17cd0 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e 5b 20  b, c, d, a, in[ 
17ce0 37 5d 2b 30 78 66 64 34 36 39 35 30 31 2c 20 32  7]+0xfd469501, 2
17cf0 32 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35 53  2);.        MD5S
17d00 54 45 50 28 46 31 2c 20 61 2c 20 62 2c 20 63 2c  TEP(F1, a, b, c,
17d10 20 64 2c 20 69 6e 5b 20 38 5d 2b 30 78 36 39 38   d, in[ 8]+0x698
17d20 30 39 38 64 38 2c 20 20 37 29 3b 0a 20 20 20 20  098d8,  7);.    
17d30 20 20 20 20 4d 44 35 53 54 45 50 28 46 31 2c 20      MD5STEP(F1, 
17d40 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e 5b 20  d, a, b, c, in[ 
17d50 39 5d 2b 30 78 38 62 34 34 66 37 61 66 2c 20 31  9]+0x8b44f7af, 1
17d60 32 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35 53  2);.        MD5S
17d70 54 45 50 28 46 31 2c 20 63 2c 20 64 2c 20 61 2c  TEP(F1, c, d, a,
17d80 20 62 2c 20 69 6e 5b 31 30 5d 2b 30 78 66 66 66   b, in[10]+0xfff
17d90 66 35 62 62 31 2c 20 31 37 29 3b 0a 20 20 20 20  f5bb1, 17);.    
17da0 20 20 20 20 4d 44 35 53 54 45 50 28 46 31 2c 20      MD5STEP(F1, 
17db0 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e 5b 31  b, c, d, a, in[1
17dc0 31 5d 2b 30 78 38 39 35 63 64 37 62 65 2c 20 32  1]+0x895cd7be, 2
17dd0 32 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35 53  2);.        MD5S
17de0 54 45 50 28 46 31 2c 20 61 2c 20 62 2c 20 63 2c  TEP(F1, a, b, c,
17df0 20 64 2c 20 69 6e 5b 31 32 5d 2b 30 78 36 62 39   d, in[12]+0x6b9
17e00 30 31 31 32 32 2c 20 20 37 29 3b 0a 20 20 20 20  01122,  7);.    
17e10 20 20 20 20 4d 44 35 53 54 45 50 28 46 31 2c 20      MD5STEP(F1, 
17e20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e 5b 31  d, a, b, c, in[1
17e30 33 5d 2b 30 78 66 64 39 38 37 31 39 33 2c 20 31  3]+0xfd987193, 1
17e40 32 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35 53  2);.        MD5S
17e50 54 45 50 28 46 31 2c 20 63 2c 20 64 2c 20 61 2c  TEP(F1, c, d, a,
17e60 20 62 2c 20 69 6e 5b 31 34 5d 2b 30 78 61 36 37   b, in[14]+0xa67
17e70 39 34 33 38 65 2c 20 31 37 29 3b 0a 20 20 20 20  9438e, 17);.    
17e80 20 20 20 20 4d 44 35 53 54 45 50 28 46 31 2c 20      MD5STEP(F1, 
17e90 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e 5b 31  b, c, d, a, in[1
17ea0 35 5d 2b 30 78 34 39 62 34 30 38 32 31 2c 20 32  5]+0x49b40821, 2
17eb0 32 29 3b 0a 0a 20 20 20 20 20 20 20 20 4d 44 35  2);..        MD5
17ec0 53 54 45 50 28 46 32 2c 20 61 2c 20 62 2c 20 63  STEP(F2, a, b, c
17ed0 2c 20 64 2c 20 69 6e 5b 20 31 5d 2b 30 78 66 36  , d, in[ 1]+0xf6
17ee0 31 65 32 35 36 32 2c 20 20 35 29 3b 0a 20 20 20  1e2562,  5);.   
17ef0 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 32 2c       MD5STEP(F2,
17f00 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e 5b   d, a, b, c, in[
17f10 20 36 5d 2b 30 78 63 30 34 30 62 33 34 30 2c 20   6]+0xc040b340, 
17f20 20 39 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35   9);.        MD5
17f30 53 54 45 50 28 46 32 2c 20 63 2c 20 64 2c 20 61  STEP(F2, c, d, a
17f40 2c 20 62 2c 20 69 6e 5b 31 31 5d 2b 30 78 32 36  , b, in[11]+0x26
17f50 35 65 35 61 35 31 2c 20 31 34 29 3b 0a 20 20 20  5e5a51, 14);.   
17f60 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 32 2c       MD5STEP(F2,
17f70 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e 5b   b, c, d, a, in[
17f80 20 30 5d 2b 30 78 65 39 62 36 63 37 61 61 2c 20   0]+0xe9b6c7aa, 
17f90 32 30 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35  20);.        MD5
17fa0 53 54 45 50 28 46 32 2c 20 61 2c 20 62 2c 20 63  STEP(F2, a, b, c
17fb0 2c 20 64 2c 20 69 6e 5b 20 35 5d 2b 30 78 64 36  , d, in[ 5]+0xd6
17fc0 32 66 31 30 35 64 2c 20 20 35 29 3b 0a 20 20 20  2f105d,  5);.   
17fd0 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 32 2c       MD5STEP(F2,
17fe0 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e 5b   d, a, b, c, in[
17ff0 31 30 5d 2b 30 78 30 32 34 34 31 34 35 33 2c 20  10]+0x02441453, 
18000 20 39 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35   9);.        MD5
18010 53 54 45 50 28 46 32 2c 20 63 2c 20 64 2c 20 61  STEP(F2, c, d, a
18020 2c 20 62 2c 20 69 6e 5b 31 35 5d 2b 30 78 64 38  , b, in[15]+0xd8
18030 61 31 65 36 38 31 2c 20 31 34 29 3b 0a 20 20 20  a1e681, 14);.   
18040 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 32 2c       MD5STEP(F2,
18050 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e 5b   b, c, d, a, in[
18060 20 34 5d 2b 30 78 65 37 64 33 66 62 63 38 2c 20   4]+0xe7d3fbc8, 
18070 32 30 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35  20);.        MD5
18080 53 54 45 50 28 46 32 2c 20 61 2c 20 62 2c 20 63  STEP(F2, a, b, c
18090 2c 20 64 2c 20 69 6e 5b 20 39 5d 2b 30 78 32 31  , d, in[ 9]+0x21
180a0 65 31 63 64 65 36 2c 20 20 35 29 3b 0a 20 20 20  e1cde6,  5);.   
180b0 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 32 2c       MD5STEP(F2,
180c0 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e 5b   d, a, b, c, in[
180d0 31 34 5d 2b 30 78 63 33 33 37 30 37 64 36 2c 20  14]+0xc33707d6, 
180e0 20 39 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35   9);.        MD5
180f0 53 54 45 50 28 46 32 2c 20 63 2c 20 64 2c 20 61  STEP(F2, c, d, a
18100 2c 20 62 2c 20 69 6e 5b 20 33 5d 2b 30 78 66 34  , b, in[ 3]+0xf4
18110 64 35 30 64 38 37 2c 20 31 34 29 3b 0a 20 20 20  d50d87, 14);.   
18120 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 32 2c       MD5STEP(F2,
18130 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e 5b   b, c, d, a, in[
18140 20 38 5d 2b 30 78 34 35 35 61 31 34 65 64 2c 20   8]+0x455a14ed, 
18150 32 30 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35  20);.        MD5
18160 53 54 45 50 28 46 32 2c 20 61 2c 20 62 2c 20 63  STEP(F2, a, b, c
18170 2c 20 64 2c 20 69 6e 5b 31 33 5d 2b 30 78 61 39  , d, in[13]+0xa9
18180 65 33 65 39 30 35 2c 20 20 35 29 3b 0a 20 20 20  e3e905,  5);.   
18190 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 32 2c       MD5STEP(F2,
181a0 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e 5b   d, a, b, c, in[
181b0 20 32 5d 2b 30 78 66 63 65 66 61 33 66 38 2c 20   2]+0xfcefa3f8, 
181c0 20 39 29 3b 0a 20 20 20 20 20 20 20 20 4d 44 35   9);.        MD5
181d0 53 54 45 50 28 46 32 2c 20 63 2c 20 64 2c 20 61  STEP(F2, c, d, a
181e0 2c 20 62 2c 20 69 6e 5b 20 37 5d 2b 30 78 36 37  , b, in[ 7]+0x67
181f0 36 66 30 32 64 39 2c 20 31 34 29 3b 0a 20 20 20  6f02d9, 14);.   
18200 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 32 2c       MD5STEP(F2,
18210 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e 5b   b, c, d, a, in[
18220 31 32 5d 2b 30 78 38 64 32 61 34 63 38 61 2c 20  12]+0x8d2a4c8a, 
18230 32 30 29 3b 0a 0a 20 20 20 20 20 20 20 20 4d 44  20);..        MD
18240 35 53 54 45 50 28 46 33 2c 20 61 2c 20 62 2c 20  5STEP(F3, a, b, 
18250 63 2c 20 64 2c 20 69 6e 5b 20 35 5d 2b 30 78 66  c, d, in[ 5]+0xf
18260 66 66 61 33 39 34 32 2c 20 20 34 29 3b 0a 20 20  ffa3942,  4);.  
18270 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 33        MD5STEP(F3
18280 2c 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e  , d, a, b, c, in
18290 5b 20 38 5d 2b 30 78 38 37 37 31 66 36 38 31 2c  [ 8]+0x8771f681,
182a0 20 31 31 29 3b 0a 20 20 20 20 20 20 20 20 4d 44   11);.        MD
182b0 35 53 54 45 50 28 46 33 2c 20 63 2c 20 64 2c 20  5STEP(F3, c, d, 
182c0 61 2c 20 62 2c 20 69 6e 5b 31 31 5d 2b 30 78 36  a, b, in[11]+0x6
182d0 64 39 64 36 31 32 32 2c 20 31 36 29 3b 0a 20 20  d9d6122, 16);.  
182e0 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 33        MD5STEP(F3
182f0 2c 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e  , b, c, d, a, in
18300 5b 31 34 5d 2b 30 78 66 64 65 35 33 38 30 63 2c  [14]+0xfde5380c,
18310 20 32 33 29 3b 0a 20 20 20 20 20 20 20 20 4d 44   23);.        MD
18320 35 53 54 45 50 28 46 33 2c 20 61 2c 20 62 2c 20  5STEP(F3, a, b, 
18330 63 2c 20 64 2c 20 69 6e 5b 20 31 5d 2b 30 78 61  c, d, in[ 1]+0xa
18340 34 62 65 65 61 34 34 2c 20 20 34 29 3b 0a 20 20  4beea44,  4);.  
18350 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 33        MD5STEP(F3
18360 2c 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e  , d, a, b, c, in
18370 5b 20 34 5d 2b 30 78 34 62 64 65 63 66 61 39 2c  [ 4]+0x4bdecfa9,
18380 20 31 31 29 3b 0a 20 20 20 20 20 20 20 20 4d 44   11);.        MD
18390 35 53 54 45 50 28 46 33 2c 20 63 2c 20 64 2c 20  5STEP(F3, c, d, 
183a0 61 2c 20 62 2c 20 69 6e 5b 20 37 5d 2b 30 78 66  a, b, in[ 7]+0xf
183b0 36 62 62 34 62 36 30 2c 20 31 36 29 3b 0a 20 20  6bb4b60, 16);.  
183c0 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 33        MD5STEP(F3
183d0 2c 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e  , b, c, d, a, in
183e0 5b 31 30 5d 2b 30 78 62 65 62 66 62 63 37 30 2c  [10]+0xbebfbc70,
183f0 20 32 33 29 3b 0a 20 20 20 20 20 20 20 20 4d 44   23);.        MD
18400 35 53 54 45 50 28 46 33 2c 20 61 2c 20 62 2c 20  5STEP(F3, a, b, 
18410 63 2c 20 64 2c 20 69 6e 5b 31 33 5d 2b 30 78 32  c, d, in[13]+0x2
18420 38 39 62 37 65 63 36 2c 20 20 34 29 3b 0a 20 20  89b7ec6,  4);.  
18430 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 33        MD5STEP(F3
18440 2c 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e  , d, a, b, c, in
18450 5b 20 30 5d 2b 30 78 65 61 61 31 32 37 66 61 2c  [ 0]+0xeaa127fa,
18460 20 31 31 29 3b 0a 20 20 20 20 20 20 20 20 4d 44   11);.        MD
18470 35 53 54 45 50 28 46 33 2c 20 63 2c 20 64 2c 20  5STEP(F3, c, d, 
18480 61 2c 20 62 2c 20 69 6e 5b 20 33 5d 2b 30 78 64  a, b, in[ 3]+0xd
18490 34 65 66 33 30 38 35 2c 20 31 36 29 3b 0a 20 20  4ef3085, 16);.  
184a0 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 33        MD5STEP(F3
184b0 2c 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e  , b, c, d, a, in
184c0 5b 20 36 5d 2b 30 78 30 34 38 38 31 64 30 35 2c  [ 6]+0x04881d05,
184d0 20 32 33 29 3b 0a 20 20 20 20 20 20 20 20 4d 44   23);.        MD
184e0 35 53 54 45 50 28 46 33 2c 20 61 2c 20 62 2c 20  5STEP(F3, a, b, 
184f0 63 2c 20 64 2c 20 69 6e 5b 20 39 5d 2b 30 78 64  c, d, in[ 9]+0xd
18500 39 64 34 64 30 33 39 2c 20 20 34 29 3b 0a 20 20  9d4d039,  4);.  
18510 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 33        MD5STEP(F3
18520 2c 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69 6e  , d, a, b, c, in
18530 5b 31 32 5d 2b 30 78 65 36 64 62 39 39 65 35 2c  [12]+0xe6db99e5,
18540 20 31 31 29 3b 0a 20 20 20 20 20 20 20 20 4d 44   11);.        MD
18550 35 53 54 45 50 28 46 33 2c 20 63 2c 20 64 2c 20  5STEP(F3, c, d, 
18560 61 2c 20 62 2c 20 69 6e 5b 31 35 5d 2b 30 78 31  a, b, in[15]+0x1
18570 66 61 32 37 63 66 38 2c 20 31 36 29 3b 0a 20 20  fa27cf8, 16);.  
18580 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46 33        MD5STEP(F3
18590 2c 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69 6e  , b, c, d, a, in
185a0 5b 20 32 5d 2b 30 78 63 34 61 63 35 36 36 35 2c  [ 2]+0xc4ac5665,
185b0 20 32 33 29 3b 0a 0a 20 20 20 20 20 20 20 20 4d   23);..        M
185c0 44 35 53 54 45 50 28 46 34 2c 20 61 2c 20 62 2c  D5STEP(F4, a, b,
185d0 20 63 2c 20 64 2c 20 69 6e 5b 20 30 5d 2b 30 78   c, d, in[ 0]+0x
185e0 66 34 32 39 32 32 34 34 2c 20 20 36 29 3b 0a 20  f4292244,  6);. 
185f0 20 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46         MD5STEP(F
18600 34 2c 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69  4, d, a, b, c, i
18610 6e 5b 20 37 5d 2b 30 78 34 33 32 61 66 66 39 37  n[ 7]+0x432aff97
18620 2c 20 31 30 29 3b 0a 20 20 20 20 20 20 20 20 4d  , 10);.        M
18630 44 35 53 54 45 50 28 46 34 2c 20 63 2c 20 64 2c  D5STEP(F4, c, d,
18640 20 61 2c 20 62 2c 20 69 6e 5b 31 34 5d 2b 30 78   a, b, in[14]+0x
18650 61 62 39 34 32 33 61 37 2c 20 31 35 29 3b 0a 20  ab9423a7, 15);. 
18660 20 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46         MD5STEP(F
18670 34 2c 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69  4, b, c, d, a, i
18680 6e 5b 20 35 5d 2b 30 78 66 63 39 33 61 30 33 39  n[ 5]+0xfc93a039
18690 2c 20 32 31 29 3b 0a 20 20 20 20 20 20 20 20 4d  , 21);.        M
186a0 44 35 53 54 45 50 28 46 34 2c 20 61 2c 20 62 2c  D5STEP(F4, a, b,
186b0 20 63 2c 20 64 2c 20 69 6e 5b 31 32 5d 2b 30 78   c, d, in[12]+0x
186c0 36 35 35 62 35 39 63 33 2c 20 20 36 29 3b 0a 20  655b59c3,  6);. 
186d0 20 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46         MD5STEP(F
186e0 34 2c 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69  4, d, a, b, c, i
186f0 6e 5b 20 33 5d 2b 30 78 38 66 30 63 63 63 39 32  n[ 3]+0x8f0ccc92
18700 2c 20 31 30 29 3b 0a 20 20 20 20 20 20 20 20 4d  , 10);.        M
18710 44 35 53 54 45 50 28 46 34 2c 20 63 2c 20 64 2c  D5STEP(F4, c, d,
18720 20 61 2c 20 62 2c 20 69 6e 5b 31 30 5d 2b 30 78   a, b, in[10]+0x
18730 66 66 65 66 66 34 37 64 2c 20 31 35 29 3b 0a 20  ffeff47d, 15);. 
18740 20 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46         MD5STEP(F
18750 34 2c 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69  4, b, c, d, a, i
18760 6e 5b 20 31 5d 2b 30 78 38 35 38 34 35 64 64 31  n[ 1]+0x85845dd1
18770 2c 20 32 31 29 3b 0a 20 20 20 20 20 20 20 20 4d  , 21);.        M
18780 44 35 53 54 45 50 28 46 34 2c 20 61 2c 20 62 2c  D5STEP(F4, a, b,
18790 20 63 2c 20 64 2c 20 69 6e 5b 20 38 5d 2b 30 78   c, d, in[ 8]+0x
187a0 36 66 61 38 37 65 34 66 2c 20 20 36 29 3b 0a 20  6fa87e4f,  6);. 
187b0 20 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46         MD5STEP(F
187c0 34 2c 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69  4, d, a, b, c, i
187d0 6e 5b 31 35 5d 2b 30 78 66 65 32 63 65 36 65 30  n[15]+0xfe2ce6e0
187e0 2c 20 31 30 29 3b 0a 20 20 20 20 20 20 20 20 4d  , 10);.        M
187f0 44 35 53 54 45 50 28 46 34 2c 20 63 2c 20 64 2c  D5STEP(F4, c, d,
18800 20 61 2c 20 62 2c 20 69 6e 5b 20 36 5d 2b 30 78   a, b, in[ 6]+0x
18810 61 33 30 31 34 33 31 34 2c 20 31 35 29 3b 0a 20  a3014314, 15);. 
18820 20 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46         MD5STEP(F
18830 34 2c 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69  4, b, c, d, a, i
18840 6e 5b 31 33 5d 2b 30 78 34 65 30 38 31 31 61 31  n[13]+0x4e0811a1
18850 2c 20 32 31 29 3b 0a 20 20 20 20 20 20 20 20 4d  , 21);.        M
18860 44 35 53 54 45 50 28 46 34 2c 20 61 2c 20 62 2c  D5STEP(F4, a, b,
18870 20 63 2c 20 64 2c 20 69 6e 5b 20 34 5d 2b 30 78   c, d, in[ 4]+0x
18880 66 37 35 33 37 65 38 32 2c 20 20 36 29 3b 0a 20  f7537e82,  6);. 
18890 20 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46         MD5STEP(F
188a0 34 2c 20 64 2c 20 61 2c 20 62 2c 20 63 2c 20 69  4, d, a, b, c, i
188b0 6e 5b 31 31 5d 2b 30 78 62 64 33 61 66 32 33 35  n[11]+0xbd3af235
188c0 2c 20 31 30 29 3b 0a 20 20 20 20 20 20 20 20 4d  , 10);.        M
188d0 44 35 53 54 45 50 28 46 34 2c 20 63 2c 20 64 2c  D5STEP(F4, c, d,
188e0 20 61 2c 20 62 2c 20 69 6e 5b 20 32 5d 2b 30 78   a, b, in[ 2]+0x
188f0 32 61 64 37 64 32 62 62 2c 20 31 35 29 3b 0a 20  2ad7d2bb, 15);. 
18900 20 20 20 20 20 20 20 4d 44 35 53 54 45 50 28 46         MD5STEP(F
18910 34 2c 20 62 2c 20 63 2c 20 64 2c 20 61 2c 20 69  4, b, c, d, a, i
18920 6e 5b 20 39 5d 2b 30 78 65 62 38 36 64 33 39 31  n[ 9]+0xeb86d391
18930 2c 20 32 31 29 3b 0a 0a 20 20 20 20 20 20 20 20  , 21);..        
18940 62 75 66 5b 30 5d 20 2b 3d 20 61 3b 0a 20 20 20  buf[0] += a;.   
18950 20 20 20 20 20 62 75 66 5b 31 5d 20 2b 3d 20 62       buf[1] += b
18960 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5b 32 5d  ;.        buf[2]
18970 20 2b 3d 20 63 3b 0a 20 20 20 20 20 20 20 20 62   += c;.        b
18980 75 66 5b 33 5d 20 2b 3d 20 64 3b 0a 7d 0a 0a 2f  uf[3] += d;.}../
18990 2a 0a 20 2a 20 53 74 61 72 74 20 4d 44 35 20 61  *. * Start MD5 a
189a0 63 63 75 6d 75 6c 61 74 69 6f 6e 2e 20 20 53 65  ccumulation.  Se
189b0 74 20 62 69 74 20 63 6f 75 6e 74 20 74 6f 20 30  t bit count to 0
189c0 20 61 6e 64 20 62 75 66 66 65 72 20 74 6f 20 6d   and buffer to m
189d0 79 73 74 65 72 69 6f 75 73 0a 20 2a 20 69 6e 69  ysterious. * ini
189e0 74 69 61 6c 69 7a 61 74 69 6f 6e 20 63 6f 6e 73  tialization cons
189f0 74 61 6e 74 73 2e 0a 20 2a 2f 0a 73 74 61 74 69  tants.. */.stati
18a00 63 20 76 6f 69 64 20 4d 44 35 49 6e 69 74 28 4d  c void MD5Init(M
18a10 44 35 43 6f 6e 74 65 78 74 20 2a 63 74 78 29 7b  D5Context *ctx){
18a20 0a 20 20 20 20 20 20 20 20 63 74 78 2d 3e 69 73  .        ctx->is
18a30 49 6e 69 74 20 3d 20 31 3b 0a 20 20 20 20 20 20  Init = 1;.      
18a40 20 20 63 74 78 2d 3e 62 75 66 5b 30 5d 20 3d 20    ctx->buf[0] = 
18a50 30 78 36 37 34 35 32 33 30 31 3b 0a 20 20 20 20  0x67452301;.    
18a60 20 20 20 20 63 74 78 2d 3e 62 75 66 5b 31 5d 20      ctx->buf[1] 
18a70 3d 20 30 78 65 66 63 64 61 62 38 39 3b 0a 20 20  = 0xefcdab89;.  
18a80 20 20 20 20 20 20 63 74 78 2d 3e 62 75 66 5b 32        ctx->buf[2
18a90 5d 20 3d 20 30 78 39 38 62 61 64 63 66 65 3b 0a  ] = 0x98badcfe;.
18aa0 20 20 20 20 20 20 20 20 63 74 78 2d 3e 62 75 66          ctx->buf
18ab0 5b 33 5d 20 3d 20 30 78 31 30 33 32 35 34 37 36  [3] = 0x10325476
18ac0 3b 0a 20 20 20 20 20 20 20 20 63 74 78 2d 3e 62  ;.        ctx->b
18ad0 69 74 73 5b 30 5d 20 3d 20 30 3b 0a 20 20 20 20  its[0] = 0;.    
18ae0 20 20 20 20 63 74 78 2d 3e 62 69 74 73 5b 31 5d      ctx->bits[1]
18af0 20 3d 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 55   = 0;.}../*. * U
18b00 70 64 61 74 65 20 63 6f 6e 74 65 78 74 20 74 6f  pdate context to
18b10 20 72 65 66 6c 65 63 74 20 74 68 65 20 63 6f 6e   reflect the con
18b20 63 61 74 65 6e 61 74 69 6f 6e 20 6f 66 20 61 6e  catenation of an
18b30 6f 74 68 65 72 20 62 75 66 66 65 72 20 66 75 6c  other buffer ful
18b40 6c 0a 20 2a 20 6f 66 20 62 79 74 65 73 2e 0a 20  l. * of bytes.. 
18b50 2a 2f 0a 73 74 61 74 69 63 20 0a 76 6f 69 64 20  */.static .void 
18b60 4d 44 35 55 70 64 61 74 65 28 4d 44 35 43 6f 6e  MD5Update(MD5Con
18b70 74 65 78 74 20 2a 63 74 78 2c 20 63 6f 6e 73 74  text *ctx, const
18b80 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a   unsigned char *
18b90 62 75 66 2c 20 75 6e 73 69 67 6e 65 64 20 69 6e  buf, unsigned in
18ba0 74 20 6c 65 6e 29 7b 0a 20 20 20 20 20 20 20 20  t len){.        
18bb0 75 69 6e 74 33 32 20 74 3b 0a 0a 20 20 20 20 20  uint32 t;..     
18bc0 20 20 20 2f 2a 20 55 70 64 61 74 65 20 62 69 74     /* Update bit
18bd0 63 6f 75 6e 74 20 2a 2f 0a 0a 20 20 20 20 20 20  count */..      
18be0 20 20 74 20 3d 20 63 74 78 2d 3e 62 69 74 73 5b    t = ctx->bits[
18bf0 30 5d 3b 0a 20 20 20 20 20 20 20 20 69 66 20 28  0];.        if (
18c00 28 63 74 78 2d 3e 62 69 74 73 5b 30 5d 20 3d 20  (ctx->bits[0] = 
18c10 74 20 2b 20 28 28 75 69 6e 74 33 32 29 6c 65 6e  t + ((uint32)len
18c20 20 3c 3c 20 33 29 29 20 3c 20 74 29 0a 20 20 20   << 3)) < t).   
18c30 20 20 20 20 20 20 20 20 20 20 20 20 20 63 74 78               ctx
18c40 2d 3e 62 69 74 73 5b 31 5d 2b 2b 3b 20 2f 2a 20  ->bits[1]++; /* 
18c50 43 61 72 72 79 20 66 72 6f 6d 20 6c 6f 77 20 74  Carry from low t
18c60 6f 20 68 69 67 68 20 2a 2f 0a 20 20 20 20 20 20  o high */.      
18c70 20 20 63 74 78 2d 3e 62 69 74 73 5b 31 5d 20 2b    ctx->bits[1] +
18c80 3d 20 6c 65 6e 20 3e 3e 20 32 39 3b 0a 0a 20 20  = len >> 29;..  
18c90 20 20 20 20 20 20 74 20 3d 20 28 74 20 3e 3e 20        t = (t >> 
18ca0 33 29 20 26 20 30 78 33 66 3b 20 20 20 20 2f 2a  3) & 0x3f;    /*
18cb0 20 42 79 74 65 73 20 61 6c 72 65 61 64 79 20 69   Bytes already i
18cc0 6e 20 73 68 73 49 6e 66 6f 2d 3e 64 61 74 61 20  n shsInfo->data 
18cd0 2a 2f 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20 48  */..        /* H
18ce0 61 6e 64 6c 65 20 61 6e 79 20 6c 65 61 64 69 6e  andle any leadin
18cf0 67 20 6f 64 64 2d 73 69 7a 65 64 20 63 68 75 6e  g odd-sized chun
18d00 6b 73 20 2a 2f 0a 0a 20 20 20 20 20 20 20 20 69  ks */..        i
18d10 66 20 28 20 74 20 29 20 7b 0a 20 20 20 20 20 20  f ( t ) {.      
18d20 20 20 20 20 20 20 20 20 20 20 75 6e 73 69 67 6e            unsign
18d30 65 64 20 63 68 61 72 20 2a 70 20 3d 20 28 75 6e  ed char *p = (un
18d40 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 63 74  signed char *)ct
18d50 78 2d 3e 69 6e 20 2b 20 74 3b 0a 0a 20 20 20 20  x->in + t;..    
18d60 20 20 20 20 20 20 20 20 20 20 20 20 74 20 3d 20              t = 
18d70 36 34 2d 74 3b 0a 20 20 20 20 20 20 20 20 20 20  64-t;.          
18d80 20 20 20 20 20 20 69 66 20 28 6c 65 6e 20 3c 20        if (len < 
18d90 74 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  t) {.           
18da0 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 6d               mem
18db0 63 70 79 28 70 2c 20 62 75 66 2c 20 6c 65 6e 29  cpy(p, buf, len)
18dc0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;.              
18dd0 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
18de0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;.              
18df0 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20    }.            
18e00 20 20 20 20 6d 65 6d 63 70 79 28 70 2c 20 62 75      memcpy(p, bu
18e10 66 2c 20 74 29 3b 0a 20 20 20 20 20 20 20 20 20  f, t);.         
18e20 20 20 20 20 20 20 20 62 79 74 65 52 65 76 65 72         byteRever
18e30 73 65 28 63 74 78 2d 3e 69 6e 2c 20 31 36 29 3b  se(ctx->in, 16);
18e40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
18e50 20 4d 44 35 54 72 61 6e 73 66 6f 72 6d 28 63 74   MD5Transform(ct
18e60 78 2d 3e 62 75 66 2c 20 28 75 69 6e 74 33 32 20  x->buf, (uint32 
18e70 2a 29 63 74 78 2d 3e 69 6e 29 3b 0a 20 20 20 20  *)ctx->in);.    
18e80 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 20              buf 
18e90 2b 3d 20 74 3b 0a 20 20 20 20 20 20 20 20 20 20  += t;.          
18ea0 20 20 20 20 20 20 6c 65 6e 20 2d 3d 20 74 3b 0a        len -= t;.
18eb0 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20          }..     
18ec0 20 20 20 2f 2a 20 50 72 6f 63 65 73 73 20 64 61     /* Process da
18ed0 74 61 20 69 6e 20 36 34 2d 62 79 74 65 20 63 68  ta in 64-byte ch
18ee0 75 6e 6b 73 20 2a 2f 0a 0a 20 20 20 20 20 20 20  unks */..       
18ef0 20 77 68 69 6c 65 20 28 6c 65 6e 20 3e 3d 20 36   while (len >= 6
18f00 34 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  4) {.           
18f10 20 20 20 20 20 6d 65 6d 63 70 79 28 63 74 78 2d       memcpy(ctx-
18f20 3e 69 6e 2c 20 62 75 66 2c 20 36 34 29 3b 0a 20  >in, buf, 64);. 
18f30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62                 b
18f40 79 74 65 52 65 76 65 72 73 65 28 63 74 78 2d 3e  yteReverse(ctx->
18f50 69 6e 2c 20 31 36 29 3b 0a 20 20 20 20 20 20 20  in, 16);.       
18f60 20 20 20 20 20 20 20 20 20 4d 44 35 54 72 61 6e           MD5Tran
18f70 73 66 6f 72 6d 28 63 74 78 2d 3e 62 75 66 2c 20  sform(ctx->buf, 
18f80 28 75 69 6e 74 33 32 20 2a 29 63 74 78 2d 3e 69  (uint32 *)ctx->i
18f90 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  n);.            
18fa0 20 20 20 20 62 75 66 20 2b 3d 20 36 34 3b 0a 20      buf += 64;. 
18fb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c                 l
18fc0 65 6e 20 2d 3d 20 36 34 3b 0a 20 20 20 20 20 20  en -= 64;.      
18fd0 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20    }..        /* 
18fe0 48 61 6e 64 6c 65 20 61 6e 79 20 72 65 6d 61 69  Handle any remai
18ff0 6e 69 6e 67 20 62 79 74 65 73 20 6f 66 20 64 61  ning bytes of da
19000 74 61 2e 20 2a 2f 0a 0a 20 20 20 20 20 20 20 20  ta. */..        
19010 6d 65 6d 63 70 79 28 63 74 78 2d 3e 69 6e 2c 20  memcpy(ctx->in, 
19020 62 75 66 2c 20 6c 65 6e 29 3b 0a 7d 0a 0a 2f 2a  buf, len);.}../*
19030 0a 20 2a 20 46 69 6e 61 6c 20 77 72 61 70 75 70  . * Final wrapup
19040 20 2d 20 70 61 64 20 74 6f 20 36 34 2d 62 79 74   - pad to 64-byt
19050 65 20 62 6f 75 6e 64 61 72 79 20 77 69 74 68 20  e boundary with 
19060 74 68 65 20 62 69 74 20 70 61 74 74 65 72 6e 20  the bit pattern 
19070 0a 20 2a 20 31 20 30 2a 20 28 36 34 2d 62 69 74  . * 1 0* (64-bit
19080 20 63 6f 75 6e 74 20 6f 66 20 62 69 74 73 20 70   count of bits p
19090 72 6f 63 65 73 73 65 64 2c 20 4d 53 42 2d 66 69  rocessed, MSB-fi
190a0 72 73 74 29 0a 20 2a 2f 0a 73 74 61 74 69 63 20  rst). */.static 
190b0 76 6f 69 64 20 4d 44 35 46 69 6e 61 6c 28 75 6e  void MD5Final(un
190c0 73 69 67 6e 65 64 20 63 68 61 72 20 64 69 67 65  signed char dige
190d0 73 74 5b 31 36 5d 2c 20 4d 44 35 43 6f 6e 74 65  st[16], MD5Conte
190e0 78 74 20 2a 63 74 78 29 7b 0a 20 20 20 20 20 20  xt *ctx){.      
190f0 20 20 75 6e 73 69 67 6e 65 64 20 63 6f 75 6e 74    unsigned count
19100 3b 0a 20 20 20 20 20 20 20 20 75 6e 73 69 67 6e  ;.        unsign
19110 65 64 20 63 68 61 72 20 2a 70 3b 0a 0a 20 20 20  ed char *p;..   
19120 20 20 20 20 20 2f 2a 20 43 6f 6d 70 75 74 65 20       /* Compute 
19130 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20  number of bytes 
19140 6d 6f 64 20 36 34 20 2a 2f 0a 20 20 20 20 20 20  mod 64 */.      
19150 20 20 63 6f 75 6e 74 20 3d 20 28 63 74 78 2d 3e    count = (ctx->
19160 62 69 74 73 5b 30 5d 20 3e 3e 20 33 29 20 26 20  bits[0] >> 3) & 
19170 30 78 33 46 3b 0a 0a 20 20 20 20 20 20 20 20 2f  0x3F;..        /
19180 2a 20 53 65 74 20 74 68 65 20 66 69 72 73 74 20  * Set the first 
19190 63 68 61 72 20 6f 66 20 70 61 64 64 69 6e 67 20  char of padding 
191a0 74 6f 20 30 78 38 30 2e 20 20 54 68 69 73 20 69  to 0x80.  This i
191b0 73 20 73 61 66 65 20 73 69 6e 63 65 20 74 68 65  s safe since the
191c0 72 65 20 69 73 0a 20 20 20 20 20 20 20 20 20 20  re is.          
191d0 20 61 6c 77 61 79 73 20 61 74 20 6c 65 61 73 74   always at least
191e0 20 6f 6e 65 20 62 79 74 65 20 66 72 65 65 20 2a   one byte free *
191f0 2f 0a 20 20 20 20 20 20 20 20 70 20 3d 20 63 74  /.        p = ct
19200 78 2d 3e 69 6e 20 2b 20 63 6f 75 6e 74 3b 0a 20  x->in + count;. 
19210 20 20 20 20 20 20 20 2a 70 2b 2b 20 3d 20 30 78         *p++ = 0x
19220 38 30 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20  80;..        /* 
19230 42 79 74 65 73 20 6f 66 20 70 61 64 64 69 6e 67  Bytes of padding
19240 20 6e 65 65 64 65 64 20 74 6f 20 6d 61 6b 65 20   needed to make 
19250 36 34 20 62 79 74 65 73 20 2a 2f 0a 20 20 20 20  64 bytes */.    
19260 20 20 20 20 63 6f 75 6e 74 20 3d 20 36 34 20 2d      count = 64 -
19270 20 31 20 2d 20 63 6f 75 6e 74 3b 0a 0a 20 20 20   1 - count;..   
19280 20 20 20 20 20 2f 2a 20 50 61 64 20 6f 75 74 20       /* Pad out 
19290 74 6f 20 35 36 20 6d 6f 64 20 36 34 20 2a 2f 0a  to 56 mod 64 */.
192a0 20 20 20 20 20 20 20 20 69 66 20 28 63 6f 75 6e          if (coun
192b0 74 20 3c 20 38 29 20 7b 0a 20 20 20 20 20 20 20  t < 8) {.       
192c0 20 20 20 20 20 20 20 20 20 2f 2a 20 54 77 6f 20           /* Two 
192d0 6c 6f 74 73 20 6f 66 20 70 61 64 64 69 6e 67 3a  lots of padding:
192e0 20 20 50 61 64 20 74 68 65 20 66 69 72 73 74 20    Pad the first 
192f0 62 6c 6f 63 6b 20 74 6f 20 36 34 20 62 79 74 65  block to 64 byte
19300 73 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20  s */.           
19310 20 20 20 20 20 6d 65 6d 73 65 74 28 70 2c 20 30       memset(p, 0
19320 2c 20 63 6f 75 6e 74 29 3b 0a 20 20 20 20 20 20  , count);.      
19330 20 20 20 20 20 20 20 20 20 20 62 79 74 65 52 65            byteRe
19340 76 65 72 73 65 28 63 74 78 2d 3e 69 6e 2c 20 31  verse(ctx->in, 1
19350 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  6);.            
19360 20 20 20 20 4d 44 35 54 72 61 6e 73 66 6f 72 6d      MD5Transform
19370 28 63 74 78 2d 3e 62 75 66 2c 20 28 75 69 6e 74  (ctx->buf, (uint
19380 33 32 20 2a 29 63 74 78 2d 3e 69 6e 29 3b 0a 0a  32 *)ctx->in);..
19390 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
193a0 2f 2a 20 4e 6f 77 20 66 69 6c 6c 20 74 68 65 20  /* Now fill the 
193b0 6e 65 78 74 20 62 6c 6f 63 6b 20 77 69 74 68 20  next block with 
193c0 35 36 20 62 79 74 65 73 20 2a 2f 0a 20 20 20 20  56 bytes */.    
193d0 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 6d 73              mems
193e0 65 74 28 63 74 78 2d 3e 69 6e 2c 20 30 2c 20 35  et(ctx->in, 0, 5
193f0 36 29 3b 0a 20 20 20 20 20 20 20 20 7d 20 65 6c  6);.        } el
19400 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  se {.           
19410 20 20 20 20 20 2f 2a 20 50 61 64 20 62 6c 6f 63       /* Pad bloc
19420 6b 20 74 6f 20 35 36 20 62 79 74 65 73 20 2a 2f  k to 56 bytes */
19430 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
19440 20 6d 65 6d 73 65 74 28 70 2c 20 30 2c 20 63 6f   memset(p, 0, co
19450 75 6e 74 2d 38 29 3b 0a 20 20 20 20 20 20 20 20  unt-8);.        
19460 7d 0a 20 20 20 20 20 20 20 20 62 79 74 65 52 65  }.        byteRe
19470 76 65 72 73 65 28 63 74 78 2d 3e 69 6e 2c 20 31  verse(ctx->in, 1
19480 34 29 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20  4);..        /* 
19490 41 70 70 65 6e 64 20 6c 65 6e 67 74 68 20 69 6e  Append length in
194a0 20 62 69 74 73 20 61 6e 64 20 74 72 61 6e 73 66   bits and transf
194b0 6f 72 6d 20 2a 2f 0a 20 20 20 20 20 20 20 20 28  orm */.        (
194c0 28 75 69 6e 74 33 32 20 2a 29 63 74 78 2d 3e 69  (uint32 *)ctx->i
194d0 6e 29 5b 20 31 34 20 5d 20 3d 20 63 74 78 2d 3e  n)[ 14 ] = ctx->
194e0 62 69 74 73 5b 30 5d 3b 0a 20 20 20 20 20 20 20  bits[0];.       
194f0 20 28 28 75 69 6e 74 33 32 20 2a 29 63 74 78 2d   ((uint32 *)ctx-
19500 3e 69 6e 29 5b 20 31 35 20 5d 20 3d 20 63 74 78  >in)[ 15 ] = ctx
19510 2d 3e 62 69 74 73 5b 31 5d 3b 0a 0a 20 20 20 20  ->bits[1];..    
19520 20 20 20 20 4d 44 35 54 72 61 6e 73 66 6f 72 6d      MD5Transform
19530 28 63 74 78 2d 3e 62 75 66 2c 20 28 75 69 6e 74  (ctx->buf, (uint
19540 33 32 20 2a 29 63 74 78 2d 3e 69 6e 29 3b 0a 20  32 *)ctx->in);. 
19550 20 20 20 20 20 20 20 62 79 74 65 52 65 76 65 72         byteRever
19560 73 65 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61  se((unsigned cha
19570 72 20 2a 29 63 74 78 2d 3e 62 75 66 2c 20 34 29  r *)ctx->buf, 4)
19580 3b 0a 20 20 20 20 20 20 20 20 6d 65 6d 63 70 79  ;.        memcpy
19590 28 64 69 67 65 73 74 2c 20 63 74 78 2d 3e 62 75  (digest, ctx->bu
195a0 66 2c 20 31 36 29 3b 0a 20 20 20 20 20 20 20 20  f, 16);.        
195b0 6d 65 6d 73 65 74 28 63 74 78 2c 20 30 2c 20 73  memset(ctx, 0, s
195c0 69 7a 65 6f 66 28 63 74 78 29 29 3b 20 20 20 20  izeof(ctx));    
195d0 2f 2a 20 49 6e 20 63 61 73 65 20 69 74 20 69 73  /* In case it is
195e0 20 73 65 6e 73 69 74 69 76 65 20 2a 2f 0a 7d 0a   sensitive */.}.
195f0 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 61  ./*.** Convert a
19600 20 31 32 38 2d 62 69 74 20 4d 44 35 20 64 69 67   128-bit MD5 dig
19610 65 73 74 20 69 6e 74 6f 20 61 20 33 32 2d 64 69  est into a 32-di
19620 67 69 74 20 62 61 73 65 2d 31 36 20 6e 75 6d 62  git base-16 numb
19630 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  er..*/.static vo
19640 69 64 20 4d 44 35 44 69 67 65 73 74 54 6f 42 61  id MD5DigestToBa
19650 73 65 31 36 28 75 6e 73 69 67 6e 65 64 20 63 68  se16(unsigned ch
19660 61 72 20 2a 64 69 67 65 73 74 2c 20 63 68 61 72  ar *digest, char
19670 20 2a 7a 42 75 66 29 7b 0a 20 20 73 74 61 74 69   *zBuf){.  stati
19680 63 20 63 68 61 72 20 63 6f 6e 73 74 20 7a 45 6e  c char const zEn
19690 63 6f 64 65 5b 5d 20 3d 20 22 30 31 32 33 34 35  code[] = "012345
196a0 36 37 38 39 61 62 63 64 65 66 22 3b 0a 20 20 69  6789abcdef";.  i
196b0 6e 74 20 69 2c 20 6a 3b 0a 0a 20 20 66 6f 72 28  nt i, j;..  for(
196c0 6a 3d 69 3d 30 3b 20 69 3c 31 36 3b 20 69 2b 2b  j=i=0; i<16; i++
196d0 29 7b 0a 20 20 20 20 69 6e 74 20 61 20 3d 20 64  ){.    int a = d
196e0 69 67 65 73 74 5b 69 5d 3b 0a 20 20 20 20 7a 42  igest[i];.    zB
196f0 75 66 5b 6a 2b 2b 5d 20 3d 20 7a 45 6e 63 6f 64  uf[j++] = zEncod
19700 65 5b 28 61 3e 3e 34 29 26 30 78 66 5d 3b 0a 20  e[(a>>4)&0xf];. 
19710 20 20 20 7a 42 75 66 5b 6a 2b 2b 5d 20 3d 20 7a     zBuf[j++] = z
19720 45 6e 63 6f 64 65 5b 61 20 26 20 30 78 66 5d 3b  Encode[a & 0xf];
19730 0a 20 20 7d 0a 20 20 7a 42 75 66 5b 6a 5d 20 3d  .  }.  zBuf[j] =
19740 20 30 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 43 6f   0;.}.../*.** Co
19750 6e 76 65 72 74 20 61 20 31 32 38 2d 62 69 74 20  nvert a 128-bit 
19760 4d 44 35 20 64 69 67 65 73 74 20 69 6e 74 6f 20  MD5 digest into 
19770 73 65 71 75 65 6e 63 79 20 6f 66 20 65 69 67 68  sequency of eigh
19780 74 20 35 2d 64 69 67 69 74 20 69 6e 74 65 67 65  t 5-digit intege
19790 72 73 0a 2a 2a 20 65 61 63 68 20 72 65 70 72 65  rs.** each repre
197a0 73 65 6e 74 69 6e 67 20 31 36 20 62 69 74 73 20  senting 16 bits 
197b0 6f 66 20 74 68 65 20 64 69 67 65 73 74 20 61 6e  of the digest an
197c0 64 20 73 65 70 61 72 61 74 65 64 20 66 72 6f 6d  d separated from
197d0 20 65 61 63 68 0a 2a 2a 20 6f 74 68 65 72 20 62   each.** other b
197e0 79 20 61 20 22 2d 22 20 63 68 61 72 61 63 74 65  y a "-" characte
197f0 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  r..*/.static voi
19800 64 20 4d 44 35 44 69 67 65 73 74 54 6f 42 61 73  d MD5DigestToBas
19810 65 31 30 78 38 28 75 6e 73 69 67 6e 65 64 20 63  e10x8(unsigned c
19820 68 61 72 20 64 69 67 65 73 74 5b 31 36 5d 2c 20  har digest[16], 
19830 63 68 61 72 20 7a 44 69 67 65 73 74 5b 35 30 5d  char zDigest[50]
19840 29 7b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20  ){.  int i, j;. 
19850 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 78 3b   unsigned int x;
19860 0a 20 20 66 6f 72 28 69 3d 6a 3d 30 3b 20 69 3c  .  for(i=j=0; i<
19870 31 36 3b 20 69 2b 3d 32 29 7b 0a 20 20 20 20 78  16; i+=2){.    x
19880 20 3d 20 64 69 67 65 73 74 5b 69 5d 2a 32 35 36   = digest[i]*256
19890 20 2b 20 64 69 67 65 73 74 5b 69 2b 31 5d 3b 0a   + digest[i+1];.
198a0 20 20 20 20 69 66 28 20 69 3e 30 20 29 20 7a 44      if( i>0 ) zD
198b0 69 67 65 73 74 5b 6a 2b 2b 5d 20 3d 20 27 2d 27  igest[j++] = '-'
198c0 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 26 7a  ;.    sprintf(&z
198d0 44 69 67 65 73 74 5b 6a 5d 2c 20 22 25 30 35 75  Digest[j], "%05u
198e0 22 2c 20 78 29 3b 0a 20 20 20 20 6a 20 2b 3d 20  ", x);.    j += 
198f0 35 3b 0a 20 20 7d 0a 20 20 7a 44 69 67 65 73 74  5;.  }.  zDigest
19900 5b 6a 5d 20 3d 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a  [j] = 0;.}../*.*
19910 2a 20 41 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20  * A TCL command 
19920 66 6f 72 20 6d 64 35 2e 20 20 54 68 65 20 61 72  for md5.  The ar
19930 67 75 6d 65 6e 74 20 69 73 20 74 68 65 20 74 65  gument is the te
19940 78 74 20 74 6f 20 62 65 20 68 61 73 68 65 64 2e  xt to be hashed.
19950 20 20 54 68 65 0a 2a 2a 20 52 65 73 75 6c 74 20    The.** Result 
19960 69 73 20 74 68 65 20 68 61 73 68 20 69 6e 20 62  is the hash in b
19970 61 73 65 36 34 2e 20 20 0a 2a 2f 0a 73 74 61 74  ase64.  .*/.stat
19980 69 63 20 69 6e 74 20 6d 64 35 5f 63 6d 64 28 76  ic int md5_cmd(v
19990 6f 69 64 2a 63 64 2c 20 54 63 6c 5f 49 6e 74 65  oid*cd, Tcl_Inte
199a0 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20  rp *interp, int 
199b0 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72  argc, const char
199c0 20 2a 2a 61 72 67 76 29 7b 0a 20 20 4d 44 35 43   **argv){.  MD5C
199d0 6f 6e 74 65 78 74 20 63 74 78 3b 0a 20 20 75 6e  ontext ctx;.  un
199e0 73 69 67 6e 65 64 20 63 68 61 72 20 64 69 67 65  signed char dige
199f0 73 74 5b 31 36 5d 3b 0a 20 20 63 68 61 72 20 7a  st[16];.  char z
19a00 42 75 66 5b 35 30 5d 3b 0a 20 20 76 6f 69 64 20  Buf[50];.  void 
19a10 28 2a 63 6f 6e 76 65 72 74 65 72 29 28 75 6e 73  (*converter)(uns
19a20 69 67 6e 65 64 20 63 68 61 72 2a 2c 20 63 68 61  igned char*, cha
19a30 72 2a 29 3b 0a 0a 20 20 69 66 28 20 61 72 67 63  r*);..  if( argc
19a40 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  !=2 ){.    Tcl_A
19a50 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
19a60 72 70 2c 22 77 72 6f 6e 67 20 23 20 61 72 67 73  rp,"wrong # args
19a70 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
19a80 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20   argv[0], .     
19a90 20 20 20 22 20 54 45 58 54 5c 22 22 2c 20 30 29     " TEXT\"", 0)
19aa0 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
19ab0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 4d 44  _ERROR;.  }.  MD
19ac0 35 49 6e 69 74 28 26 63 74 78 29 3b 0a 20 20 4d  5Init(&ctx);.  M
19ad0 44 35 55 70 64 61 74 65 28 26 63 74 78 2c 20 28  D5Update(&ctx, (
19ae0 75 6e 73 69 67 6e 65 64 20 63 68 61 72 2a 29 61  unsigned char*)a
19af0 72 67 76 5b 31 5d 2c 20 28 75 6e 73 69 67 6e 65  rgv[1], (unsigne
19b00 64 29 73 74 72 6c 65 6e 28 61 72 67 76 5b 31 5d  d)strlen(argv[1]
19b10 29 29 3b 0a 20 20 4d 44 35 46 69 6e 61 6c 28 64  ));.  MD5Final(d
19b20 69 67 65 73 74 2c 20 26 63 74 78 29 3b 0a 20 20  igest, &ctx);.  
19b30 63 6f 6e 76 65 72 74 65 72 20 3d 20 28 76 6f 69  converter = (voi
19b40 64 28 2a 29 28 75 6e 73 69 67 6e 65 64 20 63 68  d(*)(unsigned ch
19b50 61 72 2a 2c 63 68 61 72 2a 29 29 63 64 3b 0a 20  ar*,char*))cd;. 
19b60 20 63 6f 6e 76 65 72 74 65 72 28 64 69 67 65 73   converter(diges
19b70 74 2c 20 7a 42 75 66 29 3b 0a 20 20 54 63 6c 5f  t, zBuf);.  Tcl_
19b80 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
19b90 65 72 70 2c 20 7a 42 75 66 2c 20 28 63 68 61 72  erp, zBuf, (char
19ba0 2a 29 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54  *)0);.  return T
19bb0 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  CL_OK;.}../*.** 
19bc0 41 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 74 6f  A TCL command to
19bd0 20 74 61 6b 65 20 74 68 65 20 6d 64 35 20 68 61   take the md5 ha
19be0 73 68 20 6f 66 20 61 20 66 69 6c 65 2e 20 20 54  sh of a file.  T
19bf0 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74  he argument is t
19c00 68 65 0a 2a 2a 20 6e 61 6d 65 20 6f 66 20 74 68  he.** name of th
19c10 65 20 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69  e file..*/.stati
19c20 63 20 69 6e 74 20 6d 64 35 66 69 6c 65 5f 63 6d  c int md5file_cm
19c30 64 28 76 6f 69 64 2a 63 64 2c 20 54 63 6c 5f 49  d(void*cd, Tcl_I
19c40 6e 74 65 72 70 2a 69 6e 74 65 72 70 2c 20 69 6e  nterp*interp, in
19c50 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68  t argc, const ch
19c60 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 46 49  ar **argv){.  FI
19c70 4c 45 20 2a 69 6e 3b 0a 20 20 4d 44 35 43 6f 6e  LE *in;.  MD5Con
19c80 74 65 78 74 20 63 74 78 3b 0a 20 20 76 6f 69 64  text ctx;.  void
19c90 20 28 2a 63 6f 6e 76 65 72 74 65 72 29 28 75 6e   (*converter)(un
19ca0 73 69 67 6e 65 64 20 63 68 61 72 2a 2c 20 63 68  signed char*, ch
19cb0 61 72 2a 29 3b 0a 20 20 75 6e 73 69 67 6e 65 64  ar*);.  unsigned
19cc0 20 63 68 61 72 20 64 69 67 65 73 74 5b 31 36 5d   char digest[16]
19cd0 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30  ;.  char zBuf[10
19ce0 32 34 30 5d 3b 0a 0a 20 20 69 66 28 20 61 72 67  240];..  if( arg
19cf0 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=2 ){.    Tcl_
19d00 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
19d10 65 72 70 2c 22 77 72 6f 6e 67 20 23 20 61 72 67  erp,"wrong # arg
19d20 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22  s: should be \""
19d30 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20  , argv[0], .    
19d40 20 20 20 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22      " FILENAME\"
19d50 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72  ", 0);.    retur
19d60 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
19d70 0a 20 20 69 6e 20 3d 20 66 6f 70 65 6e 28 61 72  .  in = fopen(ar
19d80 67 76 5b 31 5d 2c 22 72 62 22 29 3b 0a 20 20 69  gv[1],"rb");.  i
19d90 66 28 20 69 6e 3d 3d 30 20 29 7b 0a 20 20 20 20  f( in==0 ){.    
19da0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
19db0 28 69 6e 74 65 72 70 2c 22 75 6e 61 62 6c 65 20  (interp,"unable 
19dc0 74 6f 20 6f 70 65 6e 20 66 69 6c 65 20 5c 22 22  to open file \""
19dd0 2c 20 61 72 67 76 5b 31 5d 2c 20 0a 20 20 20 20  , argv[1], .    
19de0 20 20 20 20 20 22 5c 22 20 66 6f 72 20 72 65 61       "\" for rea
19df0 64 69 6e 67 22 2c 20 30 29 3b 0a 20 20 20 20 72  ding", 0);.    r
19e00 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
19e10 0a 20 20 7d 0a 20 20 4d 44 35 49 6e 69 74 28 26  .  }.  MD5Init(&
19e20 63 74 78 29 3b 0a 20 20 66 6f 72 28 3b 3b 29 7b  ctx);.  for(;;){
19e30 0a 20 20 20 20 69 6e 74 20 6e 3b 0a 20 20 20 20  .    int n;.    
19e40 6e 20 3d 20 66 72 65 61 64 28 7a 42 75 66 2c 20  n = fread(zBuf, 
19e50 31 2c 20 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c  1, sizeof(zBuf),
19e60 20 69 6e 29 3b 0a 20 20 20 20 69 66 28 20 6e 3c   in);.    if( n<
19e70 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20  =0 ) break;.    
19e80 4d 44 35 55 70 64 61 74 65 28 26 63 74 78 2c 20  MD5Update(&ctx, 
19e90 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 2a 29  (unsigned char*)
19ea0 7a 42 75 66 2c 20 28 75 6e 73 69 67 6e 65 64 29  zBuf, (unsigned)
19eb0 6e 29 3b 0a 20 20 7d 0a 20 20 66 63 6c 6f 73 65  n);.  }.  fclose
19ec0 28 69 6e 29 3b 0a 20 20 4d 44 35 46 69 6e 61 6c  (in);.  MD5Final
19ed0 28 64 69 67 65 73 74 2c 20 26 63 74 78 29 3b 0a  (digest, &ctx);.
19ee0 20 20 63 6f 6e 76 65 72 74 65 72 20 3d 20 28 76    converter = (v
19ef0 6f 69 64 28 2a 29 28 75 6e 73 69 67 6e 65 64 20  oid(*)(unsigned 
19f00 63 68 61 72 2a 2c 63 68 61 72 2a 29 29 63 64 3b  char*,char*))cd;
19f10 0a 20 20 63 6f 6e 76 65 72 74 65 72 28 64 69 67  .  converter(dig
19f20 65 73 74 2c 20 7a 42 75 66 29 3b 0a 20 20 54 63  est, zBuf);.  Tc
19f30 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
19f40 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 28 63 68  nterp, zBuf, (ch
19f50 61 72 2a 29 30 29 3b 0a 20 20 72 65 74 75 72 6e  ar*)0);.  return
19f60 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
19f70 2a 20 52 65 67 69 73 74 65 72 20 74 68 65 20 66  * Register the f
19f80 6f 75 72 20 6e 65 77 20 54 43 4c 20 63 6f 6d 6d  our new TCL comm
19f90 61 6e 64 73 20 66 6f 72 20 67 65 6e 65 72 61 74  ands for generat
19fa0 69 6e 67 20 4d 44 35 20 63 68 65 63 6b 73 75 6d  ing MD5 checksum
19fb0 73 0a 2a 2a 20 77 69 74 68 20 74 68 65 20 54 43  s.** with the TC
19fc0 4c 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a  L interpreter..*
19fd0 2f 0a 69 6e 74 20 4d 64 35 5f 49 6e 69 74 28 54  /.int Md5_Init(T
19fe0 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
19ff0 70 29 7b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65  p){.  Tcl_Create
1a000 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
1a010 22 6d 64 35 22 2c 20 28 54 63 6c 5f 43 6d 64 50  "md5", (Tcl_CmdP
1a020 72 6f 63 2a 29 6d 64 35 5f 63 6d 64 2c 0a 20 20  roc*)md5_cmd,.  
1a030 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a040 20 20 4d 44 35 44 69 67 65 73 74 54 6f 42 61 73    MD5DigestToBas
1a050 65 31 36 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 43  e16, 0);.  Tcl_C
1a060 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74  reateCommand(int
1a070 65 72 70 2c 20 22 6d 64 35 2d 31 30 78 38 22 2c  erp, "md5-10x8",
1a080 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 6d   (Tcl_CmdProc*)m
1a090 64 35 5f 63 6d 64 2c 0a 20 20 20 20 20 20 20 20  d5_cmd,.        
1a0a0 20 20 20 20 20 20 20 20 20 20 20 20 4d 44 35 44              MD5D
1a0b0 69 67 65 73 74 54 6f 42 61 73 65 31 30 78 38 2c  igestToBase10x8,
1a0c0 20 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74   0);.  Tcl_Creat
1a0d0 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c  eCommand(interp,
1a0e0 20 22 6d 64 35 66 69 6c 65 22 2c 20 28 54 63 6c   "md5file", (Tcl
1a0f0 5f 43 6d 64 50 72 6f 63 2a 29 6d 64 35 66 69 6c  _CmdProc*)md5fil
1a100 65 5f 63 6d 64 2c 0a 20 20 20 20 20 20 20 20 20  e_cmd,.         
1a110 20 20 20 20 20 20 20 20 20 20 20 4d 44 35 44 69             MD5Di
1a120 67 65 73 74 54 6f 42 61 73 65 31 36 2c 20 30 29  gestToBase16, 0)
1a130 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f  ;.  Tcl_CreateCo
1a140 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 6d  mmand(interp, "m
1a150 64 35 66 69 6c 65 2d 31 30 78 38 22 2c 20 28 54  d5file-10x8", (T
1a160 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 6d 64 35 66  cl_CmdProc*)md5f
1a170 69 6c 65 5f 63 6d 64 2c 0a 20 20 20 20 20 20 20  ile_cmd,.       
1a180 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 44 35               MD5
1a190 44 69 67 65 73 74 54 6f 42 61 73 65 31 30 78 38  DigestToBase10x8
1a1a0 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54  , 0);.  return T
1a1b0 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 20  CL_OK;.}.#endif 
1a1c0 2f 2a 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54  /* defined(SQLIT
1a1d0 45 5f 54 45 53 54 29 20 7c 7c 20 64 65 66 69 6e  E_TEST) || defin
1a1e0 65 64 28 53 51 4c 49 54 45 5f 54 43 4c 4d 44 35  ed(SQLITE_TCLMD5
1a1f0 29 20 2a 2f 0a 0a 23 69 66 20 64 65 66 69 6e 65  ) */..#if define
1a200 64 28 53 51 4c 49 54 45 5f 54 45 53 54 29 0a 2f  d(SQLITE_TEST)./
1a210 2a 0a 2a 2a 20 44 75 72 69 6e 67 20 74 65 73 74  *.** During test
1a220 69 6e 67 2c 20 74 68 65 20 73 70 65 63 69 61 6c  ing, the special
1a230 20 6d 64 35 73 75 6d 28 29 20 61 67 67 72 65 67   md5sum() aggreg
1a240 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20  ate function is 
1a250 61 76 61 69 6c 61 62 6c 65 2e 0a 2a 2a 20 69 6e  available..** in
1a260 73 69 64 65 20 53 51 4c 69 74 65 2e 20 20 54 68  side SQLite.  Th
1a270 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 6f 75 74  e following rout
1a280 69 6e 65 73 20 69 6d 70 6c 65 6d 65 6e 74 20 74  ines implement t
1a290 68 61 74 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f  hat function..*/
1a2a0 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6d 64 35  .static void md5
1a2b0 73 74 65 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e  step(sqlite3_con
1a2c0 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69  text *context, i
1a2d0 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33  nt argc, sqlite3
1a2e0 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a  _value **argv){.
1a2f0 20 20 4d 44 35 43 6f 6e 74 65 78 74 20 2a 70 3b    MD5Context *p;
1a300 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 66 28 20  .  int i;.  if( 
1a310 61 72 67 63 3c 31 20 29 20 72 65 74 75 72 6e 3b  argc<1 ) return;
1a320 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61  .  p = sqlite3_a
1a330 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74  ggregate_context
1a340 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66  (context, sizeof
1a350 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 70 3d 3d  (*p));.  if( p==
1a360 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 66  0 ) return;.  if
1a370 28 20 21 70 2d 3e 69 73 49 6e 69 74 20 29 7b 0a  ( !p->isInit ){.
1a380 20 20 20 20 4d 44 35 49 6e 69 74 28 70 29 3b 0a      MD5Init(p);.
1a390 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69    }.  for(i=0; i
1a3a0 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20  <argc; i++){.   
1a3b0 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 61   const char *zDa
1a3c0 74 61 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69  ta = (char*)sqli
1a3d0 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
1a3e0 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 69 66 28  rgv[i]);.    if(
1a3f0 20 7a 44 61 74 61 20 29 7b 0a 20 20 20 20 20 20   zData ){.      
1a400 4d 44 35 55 70 64 61 74 65 28 70 2c 20 28 75 6e  MD5Update(p, (un
1a410 73 69 67 6e 65 64 20 63 68 61 72 2a 29 7a 44 61  signed char*)zDa
1a420 74 61 2c 20 73 74 72 6c 65 6e 28 7a 44 61 74 61  ta, strlen(zData
1a430 29 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  ));.    }.  }.}.
1a440 73 74 61 74 69 63 20 76 6f 69 64 20 6d 64 35 66  static void md5f
1a450 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f  inalize(sqlite3_
1a460 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
1a470 29 7b 0a 20 20 4d 44 35 43 6f 6e 74 65 78 74 20  ){.  MD5Context 
1a480 2a 70 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63  *p;.  unsigned c
1a490 68 61 72 20 64 69 67 65 73 74 5b 31 36 5d 3b 0a  har digest[16];.
1a4a0 20 20 63 68 61 72 20 7a 42 75 66 5b 33 33 5d 3b    char zBuf[33];
1a4b0 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61  .  p = sqlite3_a
1a4c0 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74  ggregate_context
1a4d0 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66  (context, sizeof
1a4e0 28 2a 70 29 29 3b 0a 20 20 4d 44 35 46 69 6e 61  (*p));.  MD5Fina
1a4f0 6c 28 64 69 67 65 73 74 2c 70 29 3b 0a 20 20 4d  l(digest,p);.  M
1a500 44 35 44 69 67 65 73 74 54 6f 42 61 73 65 31 36  D5DigestToBase16
1a510 28 64 69 67 65 73 74 2c 20 7a 42 75 66 29 3b 0a  (digest, zBuf);.
1a520 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
1a530 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a  _text(context, z
1a540 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f  Buf, -1, SQLITE_
1a550 54 52 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 69 6e  TRANSIENT);.}.in
1a560 74 20 4d 64 35 5f 52 65 67 69 73 74 65 72 28 73  t Md5_Register(s
1a570 71 6c 69 74 65 33 20 2a 64 62 29 7b 0a 20 20 69  qlite3 *db){.  i
1a580 6e 74 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f  nt rc = sqlite3_
1a590 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28  create_function(
1a5a0 64 62 2c 20 22 6d 64 35 73 75 6d 22 2c 20 2d 31  db, "md5sum", -1
1a5b0 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30  , SQLITE_UTF8, 0
1a5c0 2c 20 30 2c 20 0a 20 20 20 20 20 20 20 20 20 20  , 0, .          
1a5d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a5e0 20 20 20 20 20 20 20 6d 64 35 73 74 65 70 2c 20         md5step, 
1a5f0 6d 64 35 66 69 6e 61 6c 69 7a 65 29 3b 0a 20 20  md5finalize);.  
1a600 73 71 6c 69 74 65 33 5f 6f 76 65 72 6c 6f 61 64  sqlite3_overload
1a610 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 6d  _function(db, "m
1a620 64 35 73 75 6d 22 2c 20 2d 31 29 3b 20 20 2f 2a  d5sum", -1);  /*
1a630 20 54 6f 20 65 78 65 72 63 69 73 65 20 74 68 69   To exercise thi
1a640 73 20 41 50 49 20 2a 2f 0a 20 20 72 65 74 75 72  s API */.  retur
1a650 6e 20 72 63 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f  n rc;.}.#endif /
1a660 2a 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45  * defined(SQLITE
1a670 5f 54 45 53 54 29 20 2a 2f 0a 0a 0a 2f 2a 0a 2a  _TEST) */.../*.*
1a680 2a 20 49 66 20 74 68 65 20 6d 61 63 72 6f 20 54  * If the macro T
1a690 43 4c 53 48 20 69 73 20 6f 6e 65 2c 20 74 68 65  CLSH is one, the
1a6a0 6e 20 70 75 74 20 69 6e 20 63 6f 64 65 20 74 68  n put in code th
1a6b0 69 73 20 66 6f 72 20 74 68 65 0a 2a 2a 20 22 6d  is for the.** "m
1a6c0 61 69 6e 22 20 72 6f 75 74 69 6e 65 20 74 68 61  ain" routine tha
1a6d0 74 20 77 69 6c 6c 20 69 6e 69 74 69 61 6c 69 7a  t will initializ
1a6e0 65 20 54 63 6c 20 61 6e 64 20 74 61 6b 65 20 69  e Tcl and take i
1a6f0 6e 70 75 74 20 66 72 6f 6d 0a 2a 2a 20 73 74 61  nput from.** sta
1a700 6e 64 61 72 64 20 69 6e 70 75 74 2c 20 6f 72 20  ndard input, or 
1a710 69 66 20 61 20 66 69 6c 65 20 69 73 20 6e 61 6d  if a file is nam
1a720 65 64 20 6f 6e 20 74 68 65 20 63 6f 6d 6d 61 6e  ed on the comman
1a730 64 20 6c 69 6e 65 0a 2a 2a 20 74 68 65 20 54 43  d line.** the TC
1a740 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 72 65  L interpreter re
1a750 61 64 73 20 61 6e 64 20 65 76 61 6c 75 61 74 65  ads and evaluate
1a760 73 20 74 68 61 74 20 66 69 6c 65 2e 0a 2a 2f 0a  s that file..*/.
1a770 23 69 66 20 54 43 4c 53 48 3d 3d 31 0a 73 74 61  #if TCLSH==1.sta
1a780 74 69 63 20 63 68 61 72 20 7a 4d 61 69 6e 6c 6f  tic char zMainlo
1a790 6f 70 5b 5d 20 3d 0a 20 20 22 73 65 74 20 6c 69  op[] =.  "set li
1a7a0 6e 65 20 7b 7d 5c 6e 22 0a 20 20 22 77 68 69 6c  ne {}\n".  "whil
1a7b0 65 20 7b 21 5b 65 6f 66 20 73 74 64 69 6e 5d 7d  e {![eof stdin]}
1a7c0 20 7b 5c 6e 22 0a 20 20 20 20 22 69 66 20 7b 24   {\n".    "if {$
1a7d0 6c 69 6e 65 21 3d 5c 22 5c 22 7d 20 7b 5c 6e 22  line!=\"\"} {\n"
1a7e0 0a 20 20 20 20 20 20 22 70 75 74 73 20 2d 6e 6f  .      "puts -no
1a7f0 6e 65 77 6c 69 6e 65 20 5c 22 3e 20 5c 22 5c 6e  newline \"> \"\n
1a800 22 0a 20 20 20 20 22 7d 20 65 6c 73 65 20 7b 5c  ".    "} else {\
1a810 6e 22 0a 20 20 20 20 20 20 22 70 75 74 73 20 2d  n".      "puts -
1a820 6e 6f 6e 65 77 6c 69 6e 65 20 5c 22 25 20 5c 22  nonewline \"% \"
1a830 5c 6e 22 0a 20 20 20 20 22 7d 5c 6e 22 0a 20 20  \n".    "}\n".  
1a840 20 20 22 66 6c 75 73 68 20 73 74 64 6f 75 74 5c    "flush stdout\
1a850 6e 22 0a 20 20 20 20 22 61 70 70 65 6e 64 20 6c  n".    "append l
1a860 69 6e 65 20 5b 67 65 74 73 20 73 74 64 69 6e 5d  ine [gets stdin]
1a870 5c 6e 22 0a 20 20 20 20 22 69 66 20 7b 5b 69 6e  \n".    "if {[in
1a880 66 6f 20 63 6f 6d 70 6c 65 74 65 20 24 6c 69 6e  fo complete $lin
1a890 65 5d 7d 20 7b 5c 6e 22 0a 20 20 20 20 20 20 22  e]} {\n".      "
1a8a0 69 66 20 7b 5b 63 61 74 63 68 20 7b 75 70 6c 65  if {[catch {uple
1a8b0 76 65 6c 20 23 30 20 24 6c 69 6e 65 7d 20 72 65  vel #0 $line} re
1a8c0 73 75 6c 74 5d 7d 20 7b 5c 6e 22 0a 20 20 20 20  sult]} {\n".    
1a8d0 20 20 20 20 22 70 75 74 73 20 73 74 64 65 72 72      "puts stderr
1a8e0 20 5c 22 45 72 72 6f 72 3a 20 24 72 65 73 75 6c   \"Error: $resul
1a8f0 74 5c 22 5c 6e 22 0a 20 20 20 20 20 20 22 7d 20  t\"\n".      "} 
1a900 65 6c 73 65 69 66 20 7b 24 72 65 73 75 6c 74 21  elseif {$result!
1a910 3d 5c 22 5c 22 7d 20 7b 5c 6e 22 0a 20 20 20 20  =\"\"} {\n".    
1a920 20 20 20 20 22 70 75 74 73 20 24 72 65 73 75 6c      "puts $resul
1a930 74 5c 6e 22 0a 20 20 20 20 20 20 22 7d 5c 6e 22  t\n".      "}\n"
1a940 0a 20 20 20 20 20 20 22 73 65 74 20 6c 69 6e 65  .      "set line
1a950 20 7b 7d 5c 6e 22 0a 20 20 20 20 22 7d 20 65 6c   {}\n".    "} el
1a960 73 65 20 7b 5c 6e 22 0a 20 20 20 20 20 20 22 61  se {\n".      "a
1a970 70 70 65 6e 64 20 6c 69 6e 65 20 5c 5c 6e 5c 6e  ppend line \\n\n
1a980 22 0a 20 20 20 20 22 7d 5c 6e 22 0a 20 20 22 7d  ".    "}\n".  "}
1a990 5c 6e 22 0a 3b 0a 23 65 6e 64 69 66 0a 23 69 66  \n".;.#endif.#if
1a9a0 20 54 43 4c 53 48 3d 3d 32 0a 73 74 61 74 69 63   TCLSH==2.static
1a9b0 20 63 68 61 72 20 7a 4d 61 69 6e 6c 6f 6f 70 5b   char zMainloop[
1a9c0 5d 20 3d 20 0a 23 69 6e 63 6c 75 64 65 20 22 73  ] = .#include "s
1a9d0 70 61 63 65 61 6e 61 6c 5f 74 63 6c 2e 68 22 0a  paceanal_tcl.h".
1a9e0 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66  ;.#endif..#ifdef
1a9f0 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 73 74 61   SQLITE_TEST.sta
1aa00 74 69 63 20 76 6f 69 64 20 69 6e 69 74 5f 61 6c  tic void init_al
1aa10 6c 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 29 3b  l(Tcl_Interp *);
1aa20 0a 73 74 61 74 69 63 20 69 6e 74 20 69 6e 69 74  .static int init
1aa30 5f 61 6c 6c 5f 63 6d 64 28 0a 20 20 43 6c 69 65  _all_cmd(.  Clie
1aa40 6e 74 44 61 74 61 20 63 64 2c 0a 20 20 54 63 6c  ntData cd,.  Tcl
1aa50 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
1aa60 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54  .  int objc,.  T
1aa70 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
1aa80 6a 76 5b 5d 0a 29 7b 0a 0a 20 20 54 63 6c 5f 49  jv[].){..  Tcl_I
1aa90 6e 74 65 72 70 20 2a 73 6c 61 76 65 3b 0a 20 20  nterp *slave;.  
1aaa0 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20  if( objc!=2 ){. 
1aab0 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41     Tcl_WrongNumA
1aac0 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f  rgs(interp, 1, o
1aad0 62 6a 76 2c 20 22 53 4c 41 56 45 22 29 3b 0a 20  bjv, "SLAVE");. 
1aae0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
1aaf0 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 73 6c 61 76  ROR;.  }..  slav
1ab00 65 20 3d 20 54 63 6c 5f 47 65 74 53 6c 61 76 65  e = Tcl_GetSlave
1ab10 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74  (interp, Tcl_Get
1ab20 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 29  String(objv[1]))
1ab30 3b 0a 20 20 69 66 28 20 21 73 6c 61 76 65 20 29  ;.  if( !slave )
1ab40 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  {.    return TCL
1ab50 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69  _ERROR;.  }..  i
1ab60 6e 69 74 5f 61 6c 6c 28 73 6c 61 76 65 29 3b 0a  nit_all(slave);.
1ab70 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
1ab80 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a  .}.#endif../*.**
1ab90 20 43 6f 6e 66 69 67 75 72 65 20 74 68 65 20 69   Configure the i
1aba0 6e 74 65 72 70 72 65 74 65 72 20 70 61 73 73 65  nterpreter passe
1abb0 64 20 61 73 20 74 68 65 20 66 69 72 73 74 20 61  d as the first a
1abc0 72 67 75 6d 65 6e 74 20 74 6f 20 68 61 76 65 20  rgument to have 
1abd0 61 63 63 65 73 73 0a 2a 2a 20 74 6f 20 74 68 65  access.** to the
1abe0 20 63 6f 6d 6d 61 6e 64 73 20 61 6e 64 20 6c 69   commands and li
1abf0 6e 6b 65 64 20 76 61 72 69 61 62 6c 65 73 20 74  nked variables t
1ac00 68 61 74 20 6d 61 6b 65 20 75 70 3a 0a 2a 2a 0a  hat make up:.**.
1ac10 2a 2a 20 20 20 2a 20 74 68 65 20 5b 73 71 6c 69  **   * the [sqli
1ac20 74 65 33 5d 20 65 78 74 65 6e 73 69 6f 6e 20 69  te3] extension i
1ac30 74 73 65 6c 66 2c 20 0a 2a 2a 0a 2a 2a 20 20 20  tself, .**.**   
1ac40 2a 20 49 66 20 53 51 4c 49 54 45 5f 54 43 4c 4d  * If SQLITE_TCLM
1ac50 44 35 20 6f 72 20 53 51 4c 49 54 45 5f 54 45 53  D5 or SQLITE_TES
1ac60 54 20 69 73 20 64 65 66 69 6e 65 64 2c 20 74 68  T is defined, th
1ac70 65 20 4d 64 35 20 63 6f 6d 6d 61 6e 64 73 2c 20  e Md5 commands, 
1ac80 61 6e 64 0a 2a 2a 0a 2a 2a 20 20 20 2a 20 49 66  and.**.**   * If
1ac90 20 53 51 4c 49 54 45 5f 54 45 53 54 20 69 73 20   SQLITE_TEST is 
1aca0 73 65 74 2c 20 74 68 65 20 76 61 72 69 6f 75 73  set, the various
1acb0 20 74 65 73 74 20 69 6e 74 65 72 66 61 63 65 73   test interfaces
1acc0 20 75 73 65 64 20 62 79 20 74 68 65 20 54 63 6c   used by the Tcl
1acd0 0a 2a 2a 20 20 20 20 20 74 65 73 74 20 73 75 69  .**     test sui
1ace0 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  te..*/.static vo
1acf0 69 64 20 69 6e 69 74 5f 61 6c 6c 28 54 63 6c 5f  id init_all(Tcl_
1ad00 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b  Interp *interp){
1ad10 0a 20 20 53 71 6c 69 74 65 33 5f 49 6e 69 74 28  .  Sqlite3_Init(
1ad20 69 6e 74 65 72 70 29 3b 0a 0a 23 69 66 20 64 65  interp);..#if de
1ad30 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 54 45 53  fined(SQLITE_TES
1ad40 54 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 53 51  T) || defined(SQ
1ad50 4c 49 54 45 5f 54 43 4c 4d 44 35 29 0a 20 20 4d  LITE_TCLMD5).  M
1ad60 64 35 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 3b  d5_Init(interp);
1ad70 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20  .#endif..#ifdef 
1ad80 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 7b 0a  SQLITE_TEST.  {.
1ad90 20 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20 53      extern int S
1ada0 71 6c 69 74 65 63 6f 6e 66 69 67 5f 49 6e 69 74  qliteconfig_Init
1adb0 28 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20  (Tcl_Interp*);. 
1adc0 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71     extern int Sq
1add0 6c 69 74 65 74 65 73 74 31 5f 49 6e 69 74 28 54  litetest1_Init(T
1ade0 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20  cl_Interp*);.   
1adf0 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71 6c 69   extern int Sqli
1ae00 74 65 74 65 73 74 32 5f 49 6e 69 74 28 54 63 6c  tetest2_Init(Tcl
1ae10 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20 20 65  _Interp*);.    e
1ae20 78 74 65 72 6e 20 69 6e 74 20 53 71 6c 69 74 65  xtern int Sqlite
1ae30 74 65 73 74 33 5f 49 6e 69 74 28 54 63 6c 5f 49  test3_Init(Tcl_I
1ae40 6e 74 65 72 70 2a 29 3b 0a 20 20 20 20 65 78 74  nterp*);.    ext
1ae50 65 72 6e 20 69 6e 74 20 53 71 6c 69 74 65 74 65  ern int Sqlitete
1ae60 73 74 34 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74  st4_Init(Tcl_Int
1ae70 65 72 70 2a 29 3b 0a 20 20 20 20 65 78 74 65 72  erp*);.    exter
1ae80 6e 20 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74  n int Sqlitetest
1ae90 35 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72  5_Init(Tcl_Inter
1aea0 70 2a 29 3b 0a 20 20 20 20 65 78 74 65 72 6e 20  p*);.    extern 
1aeb0 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 36 5f  int Sqlitetest6_
1aec0 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 2a  Init(Tcl_Interp*
1aed0 29 3b 0a 20 20 20 20 65 78 74 65 72 6e 20 69 6e  );.    extern in
1aee0 74 20 53 71 6c 69 74 65 74 65 73 74 37 5f 49 6e  t Sqlitetest7_In
1aef0 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b  it(Tcl_Interp*);
1af00 0a 20 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20  .    extern int 
1af10 53 71 6c 69 74 65 74 65 73 74 38 5f 49 6e 69 74  Sqlitetest8_Init
1af20 28 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20  (Tcl_Interp*);. 
1af30 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71     extern int Sq
1af40 6c 69 74 65 74 65 73 74 39 5f 49 6e 69 74 28 54  litetest9_Init(T
1af50 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20  cl_Interp*);.   
1af60 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71 6c 69   extern int Sqli
1af70 74 65 74 65 73 74 61 73 79 6e 63 5f 49 6e 69 74  tetestasync_Init
1af80 28 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20  (Tcl_Interp*);. 
1af90 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71     extern int Sq
1afa0 6c 69 74 65 74 65 73 74 5f 61 75 74 6f 65 78 74  litetest_autoext
1afb0 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70  _Init(Tcl_Interp
1afc0 2a 29 3b 0a 20 20 20 20 65 78 74 65 72 6e 20 69  *);.    extern i
1afd0 6e 74 20 53 71 6c 69 74 65 74 65 73 74 5f 64 65  nt Sqlitetest_de
1afe0 6d 6f 76 66 73 5f 49 6e 69 74 28 54 63 6c 5f 49  movfs_Init(Tcl_I
1aff0 6e 74 65 72 70 20 2a 29 3b 0a 20 20 20 20 65 78  nterp *);.    ex
1b000 74 65 72 6e 20 69 6e 74 20 53 71 6c 69 74 65 74  tern int Sqlitet
1b010 65 73 74 5f 66 75 6e 63 5f 49 6e 69 74 28 54 63  est_func_Init(Tc
1b020 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20 20  l_Interp*);.    
1b030 65 78 74 65 72 6e 20 69 6e 74 20 53 71 6c 69 74  extern int Sqlit
1b040 65 74 65 73 74 5f 68 65 78 69 6f 5f 49 6e 69 74  etest_hexio_Init
1b050 28 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20  (Tcl_Interp*);. 
1b060 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71     extern int Sq
1b070 6c 69 74 65 74 65 73 74 5f 69 6e 69 74 5f 49 6e  litetest_init_In
1b080 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b  it(Tcl_Interp*);
1b090 0a 20 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20  .    extern int 
1b0a0 53 71 6c 69 74 65 74 65 73 74 5f 6d 61 6c 6c 6f  Sqlitetest_mallo
1b0b0 63 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72  c_Init(Tcl_Inter
1b0c0 70 2a 29 3b 0a 20 20 20 20 65 78 74 65 72 6e 20  p*);.    extern 
1b0d0 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 5f 6d  int Sqlitetest_m
1b0e0 75 74 65 78 5f 49 6e 69 74 28 54 63 6c 5f 49 6e  utex_Init(Tcl_In
1b0f0 74 65 72 70 2a 29 3b 0a 20 20 20 20 65 78 74 65  terp*);.    exte
1b100 72 6e 20 69 6e 74 20 53 71 6c 69 74 65 74 65 73  rn int Sqlitetes
1b110 74 73 63 68 65 6d 61 5f 49 6e 69 74 28 54 63 6c  tschema_Init(Tcl
1b120 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20 20 65  _Interp*);.    e
1b130 78 74 65 72 6e 20 69 6e 74 20 53 71 6c 69 74 65  xtern int Sqlite
1b140 74 65 73 74 73 73 65 5f 49 6e 69 74 28 54 63 6c  testsse_Init(Tcl
1b150 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20 20 65  _Interp*);.    e
1b160 78 74 65 72 6e 20 69 6e 74 20 53 71 6c 69 74 65  xtern int Sqlite
1b170 74 65 73 74 74 63 6c 76 61 72 5f 49 6e 69 74 28  testtclvar_Init(
1b180 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20  Tcl_Interp*);.  
1b190 20 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71 6c    extern int Sql
1b1a0 69 74 65 74 65 73 74 54 68 72 65 61 64 5f 49 6e  itetestThread_In
1b1b0 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b  it(Tcl_Interp*);
1b1c0 0a 20 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20  .    extern int 
1b1d0 53 71 6c 69 74 65 74 65 73 74 4f 6e 65 66 69 6c  SqlitetestOnefil
1b1e0 65 5f 49 6e 69 74 28 29 3b 0a 20 20 20 20 65 78  e_Init();.    ex
1b1f0 74 65 72 6e 20 69 6e 74 20 53 71 6c 69 74 65 74  tern int Sqlitet
1b200 65 73 74 4f 73 69 6e 73 74 5f 49 6e 69 74 28 54  estOsinst_Init(T
1b210 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20  cl_Interp*);.   
1b220 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71 6c 69   extern int Sqli
1b230 74 65 74 65 73 74 62 61 63 6b 75 70 5f 49 6e 69  tetestbackup_Ini
1b240 74 28 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a  t(Tcl_Interp*);.
1b250 20 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20 53      extern int S
1b260 71 6c 69 74 65 74 65 73 74 69 6e 74 61 72 72 61  qlitetestintarra
1b270 79 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72  y_Init(Tcl_Inter
1b280 70 2a 29 3b 0a 20 20 20 20 65 78 74 65 72 6e 20  p*);.    extern 
1b290 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 76 66  int Sqlitetestvf
1b2a0 73 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72  s_Init(Tcl_Inter
1b2b0 70 20 2a 29 3b 0a 20 20 20 20 65 78 74 65 72 6e  p *);.    extern
1b2c0 20 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 53   int SqlitetestS
1b2d0 74 61 74 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74  tat_Init(Tcl_Int
1b2e0 65 72 70 2a 29 3b 0a 0a 20 20 20 20 53 71 6c 69  erp*);..    Sqli
1b2f0 74 65 63 6f 6e 66 69 67 5f 49 6e 69 74 28 69 6e  teconfig_Init(in
1b300 74 65 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74  terp);.    Sqlit
1b310 65 74 65 73 74 31 5f 49 6e 69 74 28 69 6e 74 65  etest1_Init(inte
1b320 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74 65 74  rp);.    Sqlitet
1b330 65 73 74 32 5f 49 6e 69 74 28 69 6e 74 65 72 70  est2_Init(interp
1b340 29 3b 0a 20 20 20 20 53 71 6c 69 74 65 74 65 73  );.    Sqlitetes
1b350 74 33 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 3b  t3_Init(interp);
1b360 0a 20 20 20 20 53 71 6c 69 74 65 74 65 73 74 34  .    Sqlitetest4
1b370 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 3b 0a 20  _Init(interp);. 
1b380 20 20 20 53 71 6c 69 74 65 74 65 73 74 35 5f 49     Sqlitetest5_I
1b390 6e 69 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20  nit(interp);.   
1b3a0 20 53 71 6c 69 74 65 74 65 73 74 36 5f 49 6e 69   Sqlitetest6_Ini
1b3b0 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 53  t(interp);.    S
1b3c0 71 6c 69 74 65 74 65 73 74 37 5f 49 6e 69 74 28  qlitetest7_Init(
1b3d0 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 53 71 6c  interp);.    Sql
1b3e0 69 74 65 74 65 73 74 38 5f 49 6e 69 74 28 69 6e  itetest8_Init(in
1b3f0 74 65 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74  terp);.    Sqlit
1b400 65 74 65 73 74 39 5f 49 6e 69 74 28 69 6e 74 65  etest9_Init(inte
1b410 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74 65 74  rp);.    Sqlitet
1b420 65 73 74 61 73 79 6e 63 5f 49 6e 69 74 28 69 6e  estasync_Init(in
1b430 74 65 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74  terp);.    Sqlit
1b440 65 74 65 73 74 5f 61 75 74 6f 65 78 74 5f 49 6e  etest_autoext_In
1b450 69 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20  it(interp);.    
1b460 53 71 6c 69 74 65 74 65 73 74 5f 64 65 6d 6f 76  Sqlitetest_demov
1b470 66 73 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 3b  fs_Init(interp);
1b480 0a 20 20 20 20 53 71 6c 69 74 65 74 65 73 74 5f  .    Sqlitetest_
1b490 66 75 6e 63 5f 49 6e 69 74 28 69 6e 74 65 72 70  func_Init(interp
1b4a0 29 3b 0a 20 20 20 20 53 71 6c 69 74 65 74 65 73  );.    Sqlitetes
1b4b0 74 5f 68 65 78 69 6f 5f 49 6e 69 74 28 69 6e 74  t_hexio_Init(int
1b4c0 65 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74 65  erp);.    Sqlite
1b4d0 74 65 73 74 5f 69 6e 69 74 5f 49 6e 69 74 28 69  test_init_Init(i
1b4e0 6e 74 65 72 70 29 3b 0a 20 20 20 20 53 71 6c 69  nterp);.    Sqli
1b4f0 74 65 74 65 73 74 5f 6d 61 6c 6c 6f 63 5f 49 6e  tetest_malloc_In
1b500 69 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20  it(interp);.    
1b510 53 71 6c 69 74 65 74 65 73 74 5f 6d 75 74 65 78  Sqlitetest_mutex
1b520 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 3b 0a 20  _Init(interp);. 
1b530 20 20 20 53 71 6c 69 74 65 74 65 73 74 73 63 68     Sqlitetestsch
1b540 65 6d 61 5f 49 6e 69 74 28 69 6e 74 65 72 70 29  ema_Init(interp)
1b550 3b 0a 20 20 20 20 53 71 6c 69 74 65 74 65 73 74  ;.    Sqlitetest
1b560 74 63 6c 76 61 72 5f 49 6e 69 74 28 69 6e 74 65  tclvar_Init(inte
1b570 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74 65 74  rp);.    Sqlitet
1b580 65 73 74 54 68 72 65 61 64 5f 49 6e 69 74 28 69  estThread_Init(i
1b590 6e 74 65 72 70 29 3b 0a 20 20 20 20 53 71 6c 69  nterp);.    Sqli
1b5a0 74 65 74 65 73 74 4f 6e 65 66 69 6c 65 5f 49 6e  tetestOnefile_In
1b5b0 69 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20  it(interp);.    
1b5c0 53 71 6c 69 74 65 74 65 73 74 4f 73 69 6e 73 74  SqlitetestOsinst
1b5d0 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 3b 0a 20  _Init(interp);. 
1b5e0 20 20 20 53 71 6c 69 74 65 74 65 73 74 62 61 63     Sqlitetestbac
1b5f0 6b 75 70 5f 49 6e 69 74 28 69 6e 74 65 72 70 29  kup_Init(interp)
1b600 3b 0a 20 20 20 20 53 71 6c 69 74 65 74 65 73 74  ;.    Sqlitetest
1b610 69 6e 74 61 72 72 61 79 5f 49 6e 69 74 28 69 6e  intarray_Init(in
1b620 74 65 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74  terp);.    Sqlit
1b630 65 74 65 73 74 76 66 73 5f 49 6e 69 74 28 69 6e  etestvfs_Init(in
1b640 74 65 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74  terp);.    Sqlit
1b650 65 74 65 73 74 53 74 61 74 5f 49 6e 69 74 28 69  etestStat_Init(i
1b660 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 54 63 6c  nterp);..    Tcl
1b670 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e  _CreateObjComman
1b680 64 28 69 6e 74 65 72 70 2c 22 6c 6f 61 64 5f 74  d(interp,"load_t
1b690 65 73 74 66 69 78 74 75 72 65 5f 65 78 74 65 6e  estfixture_exten
1b6a0 73 69 6f 6e 73 22 2c 69 6e 69 74 5f 61 6c 6c 5f  sions",init_all_
1b6b0 63 6d 64 2c 30 2c 30 29 3b 0a 0a 23 69 66 64 65  cmd,0,0);..#ifde
1b6c0 66 20 53 51 4c 49 54 45 5f 53 53 45 0a 20 20 20  f SQLITE_SSE.   
1b6d0 20 53 71 6c 69 74 65 74 65 73 74 73 73 65 5f 49   Sqlitetestsse_I
1b6e0 6e 69 74 28 69 6e 74 65 72 70 29 3b 0a 23 65 6e  nit(interp);.#en
1b6f0 64 69 66 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 7d  dif.  }.#endif.}
1b700 0a 0a 23 64 65 66 69 6e 65 20 54 43 4c 53 48 5f  ..#define TCLSH_
1b710 4d 41 49 4e 20 6d 61 69 6e 20 20 20 2f 2a 20 4e  MAIN main   /* N
1b720 65 65 64 65 64 20 74 6f 20 66 61 6b 65 20 6f 75  eeded to fake ou
1b730 74 20 6d 6b 74 63 6c 61 70 70 20 2a 2f 0a 69 6e  t mktclapp */.in
1b740 74 20 54 43 4c 53 48 5f 4d 41 49 4e 28 69 6e 74  t TCLSH_MAIN(int
1b750 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72   argc, char **ar
1b760 67 76 29 7b 0a 20 20 54 63 6c 5f 49 6e 74 65 72  gv){.  Tcl_Inter
1b770 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 0a 20 20  p *interp;.  .  
1b780 2f 2a 20 43 61 6c 6c 20 73 71 6c 69 74 65 33 5f  /* Call sqlite3_
1b790 73 68 75 74 64 6f 77 6e 28 29 20 6f 6e 63 65 20  shutdown() once 
1b7a0 62 65 66 6f 72 65 20 64 6f 69 6e 67 20 61 6e 79  before doing any
1b7b0 74 68 69 6e 67 20 65 6c 73 65 2e 20 54 68 69 73  thing else. This
1b7c0 20 69 73 20 74 6f 0a 20 20 2a 2a 20 74 65 73 74   is to.  ** test
1b7d0 20 74 68 61 74 20 73 71 6c 69 74 65 33 5f 73 68   that sqlite3_sh
1b7e0 75 74 64 6f 77 6e 28 29 20 63 61 6e 20 62 65 20  utdown() can be 
1b7f0 73 61 66 65 6c 79 20 63 61 6c 6c 65 64 20 62 79  safely called by
1b800 20 61 20 70 72 6f 63 65 73 73 20 62 65 66 6f 72   a process befor
1b810 65 0a 20 20 2a 2a 20 73 71 6c 69 74 65 33 5f 69  e.  ** sqlite3_i
1b820 6e 69 74 69 61 6c 69 7a 65 28 29 20 69 73 2e 20  nitialize() is. 
1b830 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 73 68 75  */.  sqlite3_shu
1b840 74 64 6f 77 6e 28 29 3b 0a 0a 23 69 66 20 54 43  tdown();..#if TC
1b850 4c 53 48 3d 3d 32 0a 20 20 73 71 6c 69 74 65 33  LSH==2.  sqlite3
1b860 5f 63 6f 6e 66 69 67 28 53 51 4c 49 54 45 5f 43  _config(SQLITE_C
1b870 4f 4e 46 49 47 5f 53 49 4e 47 4c 45 54 48 52 45  ONFIG_SINGLETHRE
1b880 41 44 29 3b 0a 23 65 6e 64 69 66 0a 20 20 54 63  AD);.#endif.  Tc
1b890 6c 5f 46 69 6e 64 45 78 65 63 75 74 61 62 6c 65  l_FindExecutable
1b8a0 28 61 72 67 76 5b 30 5d 29 3b 0a 0a 20 20 69 6e  (argv[0]);..  in
1b8b0 74 65 72 70 20 3d 20 54 63 6c 5f 43 72 65 61 74  terp = Tcl_Creat
1b8c0 65 49 6e 74 65 72 70 28 29 3b 0a 20 20 69 6e 69  eInterp();.  ini
1b8d0 74 5f 61 6c 6c 28 69 6e 74 65 72 70 29 3b 0a 20  t_all(interp);. 
1b8e0 20 69 66 28 20 61 72 67 63 3e 3d 32 20 29 7b 0a   if( argc>=2 ){.
1b8f0 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 63      int i;.    c
1b900 68 61 72 20 7a 41 72 67 63 5b 33 32 5d 3b 0a 20  har zArgc[32];. 
1b910 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69     sqlite3_snpri
1b920 6e 74 66 28 73 69 7a 65 6f 66 28 7a 41 72 67 63  ntf(sizeof(zArgc
1b930 29 2c 20 7a 41 72 67 63 2c 20 22 25 64 22 2c 20  ), zArgc, "%d", 
1b940 61 72 67 63 2d 28 33 2d 54 43 4c 53 48 29 29 3b  argc-(3-TCLSH));
1b950 0a 20 20 20 20 54 63 6c 5f 53 65 74 56 61 72 28  .    Tcl_SetVar(
1b960 69 6e 74 65 72 70 2c 22 61 72 67 63 22 2c 20 7a  interp,"argc", z
1b970 41 72 67 63 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c  Argc, TCL_GLOBAL
1b980 5f 4f 4e 4c 59 29 3b 0a 20 20 20 20 54 63 6c 5f  _ONLY);.    Tcl_
1b990 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c 22 61  SetVar(interp,"a
1b9a0 72 67 76 30 22 2c 61 72 67 76 5b 31 5d 2c 54 43  rgv0",argv[1],TC
1b9b0 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
1b9c0 20 20 20 20 54 63 6c 5f 53 65 74 56 61 72 28 69      Tcl_SetVar(i
1b9d0 6e 74 65 72 70 2c 22 61 72 67 76 22 2c 20 22 22  nterp,"argv", ""
1b9e0 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
1b9f0 59 29 3b 0a 20 20 20 20 66 6f 72 28 69 3d 33 2d  Y);.    for(i=3-
1ba00 54 43 4c 53 48 3b 20 69 3c 61 72 67 63 3b 20 69  TCLSH; i<argc; i
1ba10 2b 2b 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53  ++){.      Tcl_S
1ba20 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 22 61  etVar(interp, "a
1ba30 72 67 76 22 2c 20 61 72 67 76 5b 69 5d 2c 0a 20  rgv", argv[i],. 
1ba40 20 20 20 20 20 20 20 20 20 54 43 4c 5f 47 4c 4f           TCL_GLO
1ba50 42 41 4c 5f 4f 4e 4c 59 20 7c 20 54 43 4c 5f 4c  BAL_ONLY | TCL_L
1ba60 49 53 54 5f 45 4c 45 4d 45 4e 54 20 7c 20 54 43  IST_ELEMENT | TC
1ba70 4c 5f 41 50 50 45 4e 44 5f 56 41 4c 55 45 29 3b  L_APPEND_VALUE);
1ba80 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 54  .    }.    if( T
1ba90 43 4c 53 48 3d 3d 31 20 26 26 20 54 63 6c 5f 45  CLSH==1 && Tcl_E
1baa0 76 61 6c 46 69 6c 65 28 69 6e 74 65 72 70 2c 20  valFile(interp, 
1bab0 61 72 67 76 5b 31 5d 29 21 3d 54 43 4c 5f 4f 4b  argv[1])!=TCL_OK
1bac0 20 29 7b 0a 20 20 20 20 20 20 63 6f 6e 73 74 20   ){.      const 
1bad0 63 68 61 72 20 2a 7a 49 6e 66 6f 20 3d 20 54 63  char *zInfo = Tc
1bae0 6c 5f 47 65 74 56 61 72 28 69 6e 74 65 72 70 2c  l_GetVar(interp,
1baf0 20 22 65 72 72 6f 72 49 6e 66 6f 22 2c 20 54 43   "errorInfo", TC
1bb00 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
1bb10 20 20 20 20 20 20 69 66 28 20 7a 49 6e 66 6f 3d        if( zInfo=
1bb20 3d 30 20 29 20 7a 49 6e 66 6f 20 3d 20 54 63 6c  =0 ) zInfo = Tcl
1bb30 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74  _GetStringResult
1bb40 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20 20  (interp);.      
1bb50 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22  fprintf(stderr,"
1bb60 25 73 3a 20 25 73 5c 6e 22 2c 20 2a 61 72 67 76  %s: %s\n", *argv
1bb70 2c 20 7a 49 6e 66 6f 29 3b 0a 20 20 20 20 20 20  , zInfo);.      
1bb80 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a  return 1;.    }.
1bb90 20 20 7d 0a 20 20 69 66 28 20 54 43 4c 53 48 3d    }.  if( TCLSH=
1bba0 3d 32 20 7c 7c 20 61 72 67 63 3c 3d 31 20 29 7b  =2 || argc<=1 ){
1bbb0 0a 20 20 20 20 54 63 6c 5f 47 6c 6f 62 61 6c 45  .    Tcl_GlobalE
1bbc0 76 61 6c 28 69 6e 74 65 72 70 2c 20 7a 4d 61 69  val(interp, zMai
1bbd0 6e 6c 6f 6f 70 29 3b 0a 20 20 7d 0a 20 20 72 65  nloop);.  }.  re
1bbe0 74 75 72 6e 20 30 3b 0a 7d 0a 23 65 6e 64 69 66  turn 0;.}.#endif
1bbf0 20 2f 2a 20 54 43 4c 53 48 20 2a 2f 0a            /* TCLSH */.