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

Artifact 10c00c460246cfba375b768c90b22bfe3c774c8f:


0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20  /*.** Copyright 
0010: 28 63 29 20 31 39 39 39 2c 20 32 30 30 30 20 44  (c) 1999, 2000 D
0020: 2e 20 52 69 63 68 61 72 64 20 48 69 70 70 0a 2a  . Richard Hipp.*
0030: 2a 0a 2a 2a 20 54 68 69 73 20 70 72 6f 67 72 61  *.** This progra
0040: 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61  m is free softwa
0050: 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69  re; you can redi
0060: 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f  stribute it and/
0070: 6f 72 0a 2a 2a 20 6d 6f 64 69 66 79 20 69 74 20  or.** modify it 
0080: 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20  under the terms 
0090: 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72  of the GNU Gener
00a0: 61 6c 20 50 75 62 6c 69 63 0a 2a 2a 20 4c 69 63  al Public.** Lic
00b0: 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65  ense as publishe
00c0: 64 20 62 79 20 74 68 65 20 46 72 65 65 20 53 6f  d by the Free So
00d0: 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f  ftware Foundatio
00e0: 6e 3b 20 65 69 74 68 65 72 0a 2a 2a 20 76 65 72  n; either.** ver
00f0: 73 69 6f 6e 20 32 20 6f 66 20 74 68 65 20 4c 69  sion 2 of the Li
0100: 63 65 6e 73 65 2c 20 6f 72 20 28 61 74 20 79 6f  cense, or (at yo
0110: 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c  ur option) any l
0120: 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 2a 2a  ater version..**
0130: 0a 2a 2a 20 54 68 69 73 20 70 72 6f 67 72 61 6d  .** This program
0140: 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20   is distributed 
0150: 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74  in the hope that
0160: 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66   it will be usef
0170: 75 6c 2c 0a 2a 2a 20 62 75 74 20 57 49 54 48 4f  ul,.** but WITHO
0180: 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b  UT ANY WARRANTY;
0190: 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68   without even th
01a0: 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e  e implied warran
01b0: 74 79 20 6f 66 0a 2a 2a 20 4d 45 52 43 48 41 4e  ty of.** MERCHAN
01c0: 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e  TABILITY or FITN
01d0: 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43  ESS FOR A PARTIC
01e0: 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53  ULAR PURPOSE.  S
01f0: 65 65 20 74 68 65 20 47 4e 55 0a 2a 2a 20 47 65  ee the GNU.** Ge
0200: 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63  neral Public Lic
0210: 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65  ense for more de
0220: 74 61 69 6c 73 2e 0a 2a 2a 20 0a 2a 2a 20 59 6f  tails..** .** Yo
0230: 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65  u should have re
0240: 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66  ceived a copy of
0250: 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c   the GNU General
0260: 20 50 75 62 6c 69 63 0a 2a 2a 20 4c 69 63 65 6e   Public.** Licen
0270: 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68  se along with th
0280: 69 73 20 6c 69 62 72 61 72 79 3b 20 69 66 20 6e  is library; if n
0290: 6f 74 2c 20 77 72 69 74 65 20 74 6f 20 74 68 65  ot, write to the
02a0: 0a 2a 2a 20 46 72 65 65 20 53 6f 66 74 77 61 72  .** Free Softwar
02b0: 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e  e Foundation, In
02c0: 63 2e 2c 20 35 39 20 54 65 6d 70 6c 65 20 50 6c  c., 59 Temple Pl
02d0: 61 63 65 20 2d 20 53 75 69 74 65 20 33 33 30 2c  ace - Suite 330,
02e0: 0a 2a 2a 20 42 6f 73 74 6f 6e 2c 20 4d 41 20 20  .** Boston, MA  
02f0: 30 32 31 31 31 2d 31 33 30 37 2c 20 55 53 41 2e  02111-1307, USA.
0300: 0a 2a 2a 0a 2a 2a 20 41 75 74 68 6f 72 20 63 6f  .**.** Author co
0310: 6e 74 61 63 74 20 69 6e 66 6f 72 6d 61 74 69 6f  ntact informatio
0320: 6e 3a 0a 2a 2a 20 20 20 64 72 68 40 68 77 61 63  n:.**   drh@hwac
0330: 69 2e 63 6f 6d 0a 2a 2a 20 20 20 68 74 74 70 3a  i.com.**   http:
0340: 2f 2f 77 77 77 2e 68 77 61 63 69 2e 63 6f 6d 2f  //www.hwaci.com/
0350: 64 72 68 2f 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a  drh/.**.********
0360: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0370: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0380: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0390: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
03a0: 2a 0a 2a 2a 20 41 20 54 43 4c 20 49 6e 74 65 72  *.** A TCL Inter
03b0: 66 61 63 65 20 74 6f 20 53 51 4c 69 74 65 0a 2a  face to SQLite.*
03c0: 2a 0a 2a 2a 20 24 49 64 3a 20 74 63 6c 73 71 6c  *.** $Id: tclsql
03d0: 69 74 65 2e 63 2c 76 20 31 2e 34 20 32 30 30 30  ite.c,v 1.4 2000
03e0: 2f 30 36 2f 30 32 20 30 31 3a 31 37 3a 33 38 20  /06/02 01:17:38 
03f0: 64 72 68 20 45 78 70 20 24 0a 2a 2f 0a 23 69 6e  drh Exp $.*/.#in
0400: 63 6c 75 64 65 20 22 73 71 6c 69 74 65 2e 68 22  clude "sqlite.h"
0410: 0a 23 69 6e 63 6c 75 64 65 20 3c 74 63 6c 2e 68  .#include <tcl.h
0420: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c  >.#include <stdl
0430: 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c  ib.h>.#include <
0440: 73 74 72 69 6e 67 2e 68 3e 0a 0a 2f 2a 0a 2a 2a  string.h>../*.**
0450: 20 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20   An instance of 
0460: 74 68 69 73 20 73 74 72 75 63 74 75 72 65 20 70  this structure p
0470: 61 73 73 65 73 20 69 6e 66 6f 72 6d 61 74 69 6f  asses informatio
0480: 6e 20 74 68 72 75 20 74 68 65 20 73 71 6c 69 74  n thru the sqlit
0490: 65 0a 2a 2a 20 6c 6f 67 69 63 20 66 72 6f 6d 20  e.** logic from 
04a0: 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 54 43 4c  the original TCL
04b0: 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 6f 20 74 68   command into th
04c0: 65 20 63 61 6c 6c 62 61 63 6b 20 72 6f 75 74 69  e callback routi
04d0: 6e 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73  ne..*/.typedef s
04e0: 74 72 75 63 74 20 43 61 6c 6c 62 61 63 6b 44 61  truct CallbackDa
04f0: 74 61 20 43 61 6c 6c 62 61 63 6b 44 61 74 61 3b  ta CallbackData;
0500: 0a 73 74 72 75 63 74 20 43 61 6c 6c 62 61 63 6b  .struct Callback
0510: 44 61 74 61 20 7b 0a 20 20 54 63 6c 5f 49 6e 74  Data {.  Tcl_Int
0520: 65 72 70 20 2a 69 6e 74 65 72 70 3b 20 20 20 20  erp *interp;    
0530: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e     /* The TCL in
0540: 74 65 72 70 72 65 74 65 72 20 2a 2f 0a 20 20 63  terpreter */.  c
0550: 68 61 72 20 2a 7a 41 72 72 61 79 3b 20 20 20 20  har *zArray;    
0560: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20           /* The 
0570: 61 72 72 61 79 20 69 6e 74 6f 20 77 68 69 63 68  array into which
0580: 20 64 61 74 61 20 69 73 20 77 72 69 74 74 65 6e   data is written
0590: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 43 6f 64   */.  char *zCod
05a0: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e;              
05b0: 2f 2a 20 54 68 65 20 63 6f 64 65 20 74 6f 20 65  /* The code to e
05c0: 78 65 63 75 74 65 20 66 6f 72 20 65 61 63 68 20  xecute for each 
05d0: 72 6f 77 20 2a 2f 0a 20 20 69 6e 74 20 6f 6e 63  row */.  int onc
05e0: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e;              
05f0: 20 20 20 2f 2a 20 53 65 74 20 6f 6e 6c 79 20 66     /* Set only f
0600: 6f 72 20 74 68 65 20 66 69 72 73 74 20 69 6e 76  or the first inv
0610: 6f 63 61 74 69 6f 6e 20 6f 66 20 63 61 6c 6c 62  ocation of callb
0620: 61 63 6b 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a  ack */.};../*.**
0630: 20 43 61 6c 6c 65 64 20 66 6f 72 20 65 61 63 68   Called for each
0640: 20 72 6f 77 20 6f 66 20 74 68 65 20 72 65 73 75   row of the resu
0650: 6c 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  lt..*/.static in
0660: 74 20 44 62 45 76 61 6c 43 61 6c 6c 62 61 63 6b  t DbEvalCallback
0670: 28 0a 20 20 76 6f 69 64 20 2a 63 6c 69 65 6e 74  (.  void *client
0680: 44 61 74 61 2c 20 20 20 20 20 20 2f 2a 20 41 6e  Data,      /* An
0690: 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 43 61 6c   instance of Cal
06a0: 6c 62 61 63 6b 44 61 74 61 20 2a 2f 0a 20 20 69  lbackData */.  i
06b0: 6e 74 20 6e 43 6f 6c 2c 20 20 20 20 20 20 20 20  nt nCol,        
06c0: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20        /* Number 
06d0: 6f 66 20 63 6f 6c 75 6d 6e 73 20 69 6e 20 74 68  of columns in th
06e0: 65 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 63 68  e result */.  ch
06f0: 61 72 20 2a 2a 20 61 7a 43 6f 6c 2c 20 20 20 20  ar ** azCol,    
0700: 20 20 20 20 20 2f 2a 20 44 61 74 61 20 66 6f 72       /* Data for
0710: 20 65 61 63 68 20 63 6f 6c 75 6d 6e 20 2a 2f 0a   each column */.
0720: 20 20 63 68 61 72 20 2a 2a 20 61 7a 4e 20 20 20    char ** azN   
0730: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 61 6d 65           /* Name
0740: 20 66 6f 72 20 65 61 63 68 20 63 6f 6c 75 6d 6e   for each column
0750: 20 2a 2f 0a 29 7b 0a 20 20 43 61 6c 6c 62 61 63   */.){.  Callbac
0760: 6b 44 61 74 61 20 2a 63 62 44 61 74 61 20 3d 20  kData *cbData = 
0770: 28 43 61 6c 6c 62 61 63 6b 44 61 74 61 2a 29 63  (CallbackData*)c
0780: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 69 6e 74  lientData;.  int
0790: 20 69 2c 20 72 63 3b 0a 20 20 69 66 28 20 63 62   i, rc;.  if( cb
07a0: 44 61 74 61 2d 3e 7a 41 72 72 61 79 5b 30 5d 20  Data->zArray[0] 
07b0: 29 7b 0a 20 20 20 20 69 66 28 20 63 62 44 61 74  ){.    if( cbDat
07c0: 61 2d 3e 6f 6e 63 65 20 29 7b 0a 20 20 20 20 20  a->once ){.     
07d0: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 43 6f 6c   for(i=0; i<nCol
07e0: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20  ; i++){.        
07f0: 54 63 6c 5f 53 65 74 56 61 72 32 28 63 62 44 61  Tcl_SetVar2(cbDa
0800: 74 61 2d 3e 69 6e 74 65 72 70 2c 20 63 62 44 61  ta->interp, cbDa
0810: 74 61 2d 3e 7a 41 72 72 61 79 2c 20 22 2a 22 2c  ta->zArray, "*",
0820: 20 61 7a 4e 5b 69 5d 2c 0a 20 20 20 20 20 20 20   azN[i],.       
0830: 20 20 20 20 54 43 4c 5f 4c 49 53 54 5f 45 4c 45      TCL_LIST_ELE
0840: 4d 45 4e 54 7c 54 43 4c 5f 41 50 50 45 4e 44 5f  MENT|TCL_APPEND_
0850: 56 41 4c 55 45 29 3b 0a 20 20 20 20 20 20 7d 0a  VALUE);.      }.
0860: 20 20 20 20 7d 0a 20 20 20 20 66 6f 72 28 69 3d      }.    for(i=
0870: 30 3b 20 69 3c 6e 43 6f 6c 3b 20 69 2b 2b 29 7b  0; i<nCol; i++){
0880: 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 56 61  .      Tcl_SetVa
0890: 72 32 28 63 62 44 61 74 61 2d 3e 69 6e 74 65 72  r2(cbData->inter
08a0: 70 2c 20 63 62 44 61 74 61 2d 3e 7a 41 72 72 61  p, cbData->zArra
08b0: 79 2c 20 61 7a 4e 5b 69 5d 2c 20 61 7a 43 6f 6c  y, azN[i], azCol
08c0: 5b 69 5d 2c 20 30 29 3b 0a 20 20 20 20 7d 0a 20  [i], 0);.    }. 
08d0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 66 6f 72 28   }else{.    for(
08e0: 69 3d 30 3b 20 69 3c 6e 43 6f 6c 3b 20 69 2b 2b  i=0; i<nCol; i++
08f0: 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74  ){.      Tcl_Set
0900: 56 61 72 28 63 62 44 61 74 61 2d 3e 69 6e 74 65  Var(cbData->inte
0910: 72 70 2c 20 61 7a 4e 5b 69 5d 2c 20 61 7a 43 6f  rp, azN[i], azCo
0920: 6c 5b 69 5d 2c 20 30 29 3b 0a 20 20 20 20 7d 0a  l[i], 0);.    }.
0930: 20 20 7d 0a 20 20 63 62 44 61 74 61 2d 3e 6f 6e    }.  cbData->on
0940: 63 65 20 3d 20 30 3b 0a 20 20 72 63 20 3d 20 54  ce = 0;.  rc = T
0950: 63 6c 5f 45 76 61 6c 28 63 62 44 61 74 61 2d 3e  cl_Eval(cbData->
0960: 69 6e 74 65 72 70 2c 20 63 62 44 61 74 61 2d 3e  interp, cbData->
0970: 7a 43 6f 64 65 29 3b 0a 20 20 72 65 74 75 72 6e  zCode);.  return
0980: 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 61   rc;.}../*.** Ca
0990: 6c 6c 65 64 20 77 68 65 6e 20 74 68 65 20 63 6f  lled when the co
09a0: 6d 6d 61 6e 64 20 69 73 20 64 65 6c 65 74 65 64  mmand is deleted
09b0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
09c0: 20 44 62 44 65 6c 65 74 65 43 6d 64 28 76 6f 69   DbDeleteCmd(voi
09d0: 64 20 2a 64 62 29 7b 0a 20 20 73 71 6c 69 74 65  d *db){.  sqlite
09e0: 5f 63 6c 6f 73 65 28 28 73 71 6c 69 74 65 2a 29  _close((sqlite*)
09f0: 64 62 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68  db);.}../*.** Th
0a00: 65 20 22 73 71 6c 69 74 65 22 20 63 6f 6d 6d 61  e "sqlite" comma
0a10: 6e 64 20 62 65 6c 6f 77 20 63 72 65 61 74 65 73  nd below creates
0a20: 20 61 20 6e 65 77 20 54 63 6c 20 63 6f 6d 6d 61   a new Tcl comma
0a30: 6e 64 20 66 6f 72 20 65 61 63 68 0a 2a 2a 20 63  nd for each.** c
0a40: 6f 6e 6e 65 63 74 69 6f 6e 20 69 74 20 6f 70 65  onnection it ope
0a50: 6e 73 20 74 6f 20 61 6e 20 53 51 4c 69 74 65 20  ns to an SQLite 
0a60: 64 61 74 61 62 61 73 65 2e 20 20 54 68 69 73 20  database.  This 
0a70: 72 6f 75 74 69 6e 65 20 69 73 20 69 6e 76 6f 6b  routine is invok
0a80: 65 64 0a 2a 2a 20 77 68 65 6e 65 76 65 72 20 6f  ed.** whenever o
0a90: 6e 65 20 6f 66 20 74 68 6f 73 65 20 63 6f 6e 6e  ne of those conn
0aa0: 65 63 74 69 6f 6e 2d 73 70 65 63 69 66 69 63 20  ection-specific 
0ab0: 63 6f 6d 6d 61 6e 64 73 20 69 73 20 65 78 65 63  commands is exec
0ac0: 75 74 65 64 0a 2a 2a 20 69 6e 20 54 63 6c 2e 20  uted.** in Tcl. 
0ad0: 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 69 66   For example, if
0ae0: 20 79 6f 75 20 72 75 6e 20 54 63 6c 20 63 6f 64   you run Tcl cod
0af0: 65 20 6c 69 6b 65 20 74 68 69 73 3a 0a 2a 2a 0a  e like this:.**.
0b00: 2a 2a 20 20 20 20 20 20 20 73 71 6c 69 74 65 20  **       sqlite 
0b10: 64 62 31 20 20 22 6d 79 5f 64 61 74 61 62 61 73  db1  "my_databas
0b20: 65 22 0a 2a 2a 20 20 20 20 20 20 20 64 62 31 20  e".**       db1 
0b30: 63 6c 6f 73 65 0a 2a 2a 0a 2a 2a 20 54 68 65 20  close.**.** The 
0b40: 66 69 72 73 74 20 63 6f 6d 6d 61 6e 64 20 6f 70  first command op
0b50: 65 6e 73 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e  ens a connection
0b60: 20 74 6f 20 74 68 65 20 22 6d 79 5f 64 61 74 61   to the "my_data
0b70: 62 61 73 65 22 20 64 61 74 61 62 61 73 65 0a 2a  base" database.*
0b80: 2a 20 61 6e 64 20 63 61 6c 6c 73 20 74 68 61 74  * and calls that
0b90: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 22 64 62 31   connection "db1
0ba0: 22 2e 20 20 54 68 65 20 73 65 63 6f 6e 64 20 63  ".  The second c
0bb0: 6f 6d 6d 61 6e 64 20 63 61 75 73 65 73 20 74 68  ommand causes th
0bc0: 69 73 0a 2a 2a 20 73 75 62 72 6f 75 74 69 6e 65  is.** subroutine
0bd0: 20 74 6f 20 62 65 20 69 6e 76 6f 6b 65 64 2e 0a   to be invoked..
0be0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44 62  */.static int Db
0bf0: 43 6d 64 28 76 6f 69 64 20 2a 63 64 2c 20 54 63  Cmd(void *cd, Tc
0c00: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
0c10: 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72  , int argc, char
0c20: 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 68 61 72   **argv){.  char
0c30: 20 2a 7a 3b 0a 20 20 69 6e 74 20 6e 2c 20 63 3b   *z;.  int n, c;
0c40: 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 20 3d 20  .  sqlite *db = 
0c50: 63 64 3b 0a 20 20 69 66 28 20 61 72 67 63 3c 32  cd;.  if( argc<2
0c60: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65   ){.    Tcl_Appe
0c70: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
0c80: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  "wrong # args: s
0c90: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72  hould be \"", ar
0ca0: 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 20 22  gv[0],.        "
0cb0: 20 53 55 42 43 4f 4d 4d 41 4e 44 20 2e 2e 2e 5c   SUBCOMMAND ...\
0cc0: 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75  "", 0);.    retu
0cd0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
0ce0: 7d 0a 20 20 7a 20 3d 20 61 72 67 76 5b 31 5d 3b  }.  z = argv[1];
0cf0: 0a 20 20 6e 20 3d 20 73 74 72 6c 65 6e 28 7a 29  .  n = strlen(z)
0d00: 3b 0a 20 20 63 20 3d 20 7a 5b 30 5d 3b 0a 0a 20  ;.  c = z[0];.. 
0d10: 20 2f 2a 20 20 20 20 24 64 62 20 63 6c 6f 73 65   /*    $db close
0d20: 0a 20 20 2a 2a 0a 20 20 2a 2a 20 53 68 75 74 64  .  **.  ** Shutd
0d30: 6f 77 6e 20 74 68 65 20 64 61 74 61 62 61 73 65  own the database
0d40: 0a 20 20 2a 2f 0a 20 20 69 66 28 20 63 3d 3d 27  .  */.  if( c=='
0d50: 63 27 20 26 26 20 6e 3e 3d 32 20 26 26 20 73 74  c' && n>=2 && st
0d60: 72 6e 63 6d 70 28 7a 2c 22 63 6c 6f 73 65 22 2c  rncmp(z,"close",
0d70: 6e 29 3d 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c  n)==0 ){.    Tcl
0d80: 5f 44 65 6c 65 74 65 43 6f 6d 6d 61 6e 64 28 69  _DeleteCommand(i
0d90: 6e 74 65 72 70 2c 20 61 72 67 76 5b 30 5d 29 3b  nterp, argv[0]);
0da0: 0a 20 20 7d 65 6c 73 65 0a 0a 20 20 2f 2a 20 20  .  }else..  /*  
0db0: 20 20 24 64 62 20 63 6f 6d 70 6c 65 74 65 20 53    $db complete S
0dc0: 51 4c 0a 20 20 2a 2a 0a 20 20 2a 2a 20 52 65 74  QL.  **.  ** Ret
0dd0: 75 72 6e 20 54 52 55 45 20 69 66 20 53 51 4c 20  urn TRUE if SQL 
0de0: 69 73 20 61 20 63 6f 6d 70 6c 65 74 65 20 53 51  is a complete SQ
0df0: 4c 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 52 65  L statement.  Re
0e00: 74 75 72 6e 20 46 41 4c 53 45 20 69 66 0a 20 20  turn FALSE if.  
0e10: 2a 2a 20 61 64 64 69 74 69 6f 6e 61 6c 20 6c 69  ** additional li
0e20: 6e 65 73 20 6f 66 20 69 6e 70 75 74 20 61 72 65  nes of input are
0e30: 20 6e 65 65 64 65 64 2e 20 20 54 68 69 73 20 69   needed.  This i
0e40: 73 20 73 69 6d 69 6c 61 72 20 74 6f 20 74 68 65  s similar to the
0e50: 0a 20 20 2a 2a 20 62 75 69 6c 74 2d 69 6e 20 22  .  ** built-in "
0e60: 69 6e 66 6f 20 63 6f 6d 70 6c 65 74 65 22 20 63  info complete" c
0e70: 6f 6d 6d 61 6e 64 20 6f 66 20 54 63 6c 2e 0a 20  ommand of Tcl.. 
0e80: 20 2a 2f 0a 20 20 69 66 28 20 63 3d 3d 27 63 27   */.  if( c=='c'
0e90: 20 26 26 20 6e 3e 3d 32 20 26 26 20 73 74 72 6e   && n>=2 && strn
0ea0: 63 6d 70 28 7a 2c 22 63 6f 6d 70 6c 65 74 65 22  cmp(z,"complete"
0eb0: 2c 6e 29 3d 3d 30 20 29 7b 0a 20 20 20 20 63 68  ,n)==0 ){.    ch
0ec0: 61 72 20 2a 7a 52 65 73 3b 0a 20 20 20 20 69 66  ar *zRes;.    if
0ed0: 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20  ( argc!=3 ){.   
0ee0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
0ef0: 75 6c 74 28 69 6e 74 65 72 70 2c 22 77 72 6f 6e  ult(interp,"wron
0f00: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64  g # args: should
0f10: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d   be \"", argv[0]
0f20: 2c 0a 20 20 20 20 20 20 20 20 20 20 22 20 63 6f  ,.          " co
0f30: 6d 70 6c 65 74 65 20 53 51 4c 5c 22 22 2c 20 30  mplete SQL\"", 0
0f40: 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  );.      return 
0f50: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
0f60: 0a 20 20 20 20 7a 52 65 73 20 3d 20 73 71 6c 69  .    zRes = sqli
0f70: 74 65 5f 63 6f 6d 70 6c 65 74 65 28 61 72 67 76  te_complete(argv
0f80: 5b 32 5d 29 20 3f 20 22 31 22 20 3a 20 22 30 22  [2]) ? "1" : "0"
0f90: 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73  ;.    Tcl_SetRes
0fa0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 52 65 73  ult(interp, zRes
0fb0: 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b  , TCL_VOLATILE);
0fc0: 0a 20 20 7d 65 6c 73 65 0a 20 20 20 0a 20 20 2f  .  }else.   .  /
0fd0: 2a 0a 20 20 2a 2a 20 20 20 20 24 64 62 20 65 76  *.  **    $db ev
0fe0: 61 6c 20 24 73 71 6c 20 3f 61 72 72 61 79 20 7b  al $sql ?array {
0ff0: 20 20 2e 2e 2e 63 6f 64 65 2e 2e 2e 20 7d 3f 0a    ...code... }?.
1000: 20 20 2a 2a 0a 20 20 2a 2a 20 54 68 65 20 53 51    **.  ** The SQ
1010: 4c 20 73 74 61 74 65 6d 65 6e 74 20 69 6e 20 24  L statement in $
1020: 73 71 6c 20 69 73 20 65 76 61 6c 75 61 74 65 64  sql is evaluated
1030: 2e 20 20 46 6f 72 20 65 61 63 68 20 72 6f 77 2c  .  For each row,
1040: 20 74 68 65 20 76 61 6c 75 65 73 20 61 72 65 0a   the values are.
1050: 20 20 2a 2a 20 70 6c 61 63 65 64 20 69 6e 20 65    ** placed in e
1060: 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 20 61  lements of the a
1070: 72 72 61 79 20 6e 61 6d 65 64 20 22 61 72 72 61  rray named "arra
1080: 79 22 20 61 6e 64 20 2e 2e 2e 63 6f 64 65 2e 2e  y" and ...code..
1090: 20 69 73 20 65 78 65 63 75 74 65 64 2e 0a 20 20   is executed..  
10a0: 2a 2a 20 49 66 20 22 61 72 72 61 79 22 20 61 6e  ** If "array" an
10b0: 64 20 22 63 6f 64 65 22 20 61 72 65 20 6f 6d 69  d "code" are omi
10c0: 74 74 65 64 2c 20 74 68 65 6e 20 6e 6f 20 63 61  tted, then no ca
10d0: 6c 6c 62 61 63 6b 20 69 73 20 65 76 65 72 79 20  llback is every 
10e0: 69 6e 76 6f 6b 65 64 2e 0a 20 20 2a 2a 20 49 66  invoked..  ** If
10f0: 20 22 61 72 72 61 79 22 20 69 73 20 61 6e 20 65   "array" is an e
1100: 6d 70 74 79 20 73 74 72 69 6e 67 2c 20 74 68 65  mpty string, the
1110: 6e 20 74 68 65 20 76 61 6c 75 65 73 20 61 72 65  n the values are
1120: 20 70 6c 61 63 65 64 20 69 6e 20 76 61 72 69 61   placed in varia
1130: 62 6c 65 73 0a 20 20 2a 2a 20 74 68 61 74 20 68  bles.  ** that h
1140: 61 76 65 20 74 68 65 20 73 61 6d 65 20 6e 61 6d  ave the same nam
1150: 65 20 61 73 20 74 68 65 20 66 69 65 6c 64 73 20  e as the fields 
1160: 65 78 74 72 61 63 74 65 64 20 62 79 20 74 68 65  extracted by the
1170: 20 71 75 65 72 79 2e 0a 20 20 2a 2f 0a 20 20 69   query..  */.  i
1180: 66 28 20 63 3d 3d 27 65 27 20 26 26 20 73 74 72  f( c=='e' && str
1190: 6e 63 6d 70 28 7a 2c 22 65 76 61 6c 22 2c 6e 29  ncmp(z,"eval",n)
11a0: 3d 3d 30 20 29 7b 0a 20 20 20 20 43 61 6c 6c 62  ==0 ){.    Callb
11b0: 61 63 6b 44 61 74 61 20 63 62 44 61 74 61 3b 0a  ackData cbData;.
11c0: 20 20 20 20 63 68 61 72 20 2a 7a 45 72 72 4d 73      char *zErrMs
11d0: 67 3b 0a 20 20 20 20 69 6e 74 20 72 63 3b 0a 0a  g;.    int rc;..
11e0: 20 20 20 20 69 66 28 20 61 72 67 63 21 3d 35 20      if( argc!=5 
11f0: 26 26 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20  && argc!=3 ){.  
1200: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
1210: 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 77 72 6f  sult(interp,"wro
1220: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
1230: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30  d be \"", argv[0
1240: 5d 2c 0a 20 20 20 20 20 20 20 20 20 22 20 65 76  ],.         " ev
1250: 61 6c 20 53 51 4c 20 3f 41 52 52 41 59 2d 4e 41  al SQL ?ARRAY-NA
1260: 4d 45 20 43 4f 44 45 3f 22 2c 20 30 29 3b 0a 20  ME CODE?", 0);. 
1270: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
1280: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20  ERROR;.    }.   
1290: 20 69 66 28 20 61 72 67 63 3d 3d 35 20 29 7b 0a   if( argc==5 ){.
12a0: 20 20 20 20 20 20 63 62 44 61 74 61 2e 69 6e 74        cbData.int
12b0: 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20  erp = interp;.  
12c0: 20 20 20 20 63 62 44 61 74 61 2e 6f 6e 63 65 20      cbData.once 
12d0: 3d 20 31 3b 0a 20 20 20 20 20 20 63 62 44 61 74  = 1;.      cbDat
12e0: 61 2e 7a 41 72 72 61 79 20 3d 20 61 72 67 76 5b  a.zArray = argv[
12f0: 33 5d 3b 0a 20 20 20 20 20 20 63 62 44 61 74 61  3];.      cbData
1300: 2e 7a 43 6f 64 65 20 3d 20 61 72 67 76 5b 34 5d  .zCode = argv[4]
1310: 3b 0a 20 20 20 20 20 20 7a 45 72 72 4d 73 67 20  ;.      zErrMsg 
1320: 3d 20 30 3b 0a 20 20 20 20 20 20 72 63 20 3d 20  = 0;.      rc = 
1330: 73 71 6c 69 74 65 5f 65 78 65 63 28 64 62 2c 20  sqlite_exec(db, 
1340: 61 72 67 76 5b 32 5d 2c 20 44 62 45 76 61 6c 43  argv[2], DbEvalC
1350: 61 6c 6c 62 61 63 6b 2c 20 26 63 62 44 61 74 61  allback, &cbData
1360: 2c 20 26 7a 45 72 72 4d 73 67 29 3b 0a 20 20 20  , &zErrMsg);.   
1370: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 72 63   }else{.      rc
1380: 20 3d 20 73 71 6c 69 74 65 5f 65 78 65 63 28 64   = sqlite_exec(d
1390: 62 2c 20 61 72 67 76 5b 32 5d 2c 20 30 2c 20 30  b, argv[2], 0, 0
13a0: 2c 20 26 7a 45 72 72 4d 73 67 29 3b 0a 20 20 20  , &zErrMsg);.   
13b0: 20 7d 0a 20 20 20 20 69 66 28 20 7a 45 72 72 4d   }.    if( zErrM
13c0: 73 67 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f  sg ){.      Tcl_
13d0: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70  SetResult(interp
13e0: 2c 20 7a 45 72 72 4d 73 67 2c 20 54 43 4c 5f 56  , zErrMsg, TCL_V
13f0: 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 20 20  OLATILE);.      
1400: 66 72 65 65 28 7a 45 72 72 4d 73 67 29 3b 0a 20  free(zErrMsg);. 
1410: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
1420: 72 63 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 54 68  rc;.  }..  /* Th
1430: 65 20 64 65 66 61 75 6c 74 0a 20 20 2a 2f 0a 20  e default.  */. 
1440: 20 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f 41   else{.    Tcl_A
1450: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
1460: 72 70 2c 22 75 6e 6b 6e 6f 77 6e 20 73 75 62 63  rp,"unknown subc
1470: 6f 6d 6d 61 6e 64 20 5c 22 22 2c 20 7a 2c 20 0a  ommand \"", z, .
1480: 20 20 20 20 20 20 20 20 22 5c 22 20 2d 20 73 68          "\" - sh
1490: 6f 75 6c 64 20 62 65 20 6f 6e 65 20 6f 66 3a 20  ould be one of: 
14a0: 63 6c 6f 73 65 20 63 6f 6d 70 6c 65 74 65 20 65  close complete e
14b0: 76 61 6c 22 2c 20 30 29 3b 0a 20 20 20 20 72 65  val", 0);.    re
14c0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
14d0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c    }.  return TCL
14e0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20  _OK;.}../*.**   
14f0: 73 71 6c 69 74 65 20 44 42 4e 41 4d 45 20 46 49  sqlite DBNAME FI
1500: 4c 45 4e 41 4d 45 20 3f 4d 4f 44 45 3f 0a 2a 2a  LENAME ?MODE?.**
1510: 0a 2a 2a 20 54 68 69 73 20 69 73 20 74 68 65 20  .** This is the 
1520: 6d 61 69 6e 20 54 63 6c 20 63 6f 6d 6d 61 6e 64  main Tcl command
1530: 2e 20 20 57 68 65 6e 20 74 68 65 20 22 73 71 6c  .  When the "sql
1540: 69 74 65 22 20 54 63 6c 20 63 6f 6d 6d 61 6e 64  ite" Tcl command
1550: 20 69 73 0a 2a 2a 20 69 6e 76 6f 6b 65 64 2c 20   is.** invoked, 
1560: 74 68 69 73 20 72 6f 75 74 69 6e 65 20 72 75 6e  this routine run
1570: 73 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 61  s to process tha
1580: 74 20 63 6f 6d 6d 61 6e 64 2e 0a 2a 2a 0a 2a 2a  t command..**.**
1590: 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75 6d   The first argum
15a0: 65 6e 74 2c 20 44 42 4e 41 4d 45 2c 20 69 73 20  ent, DBNAME, is 
15b0: 61 6e 20 61 72 62 69 74 72 61 72 79 20 6e 61 6d  an arbitrary nam
15c0: 65 20 66 6f 72 20 61 20 6e 65 77 0a 2a 2a 20 64  e for a new.** d
15d0: 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69  atabase connecti
15e0: 6f 6e 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e  on.  This comman
15f0: 64 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 20  d creates a new 
1600: 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 64 0a 2a 2a  command named.**
1610: 20 44 42 4e 41 4d 45 20 74 68 61 74 20 69 73 20   DBNAME that is 
1620: 75 73 65 64 20 74 6f 20 63 6f 6e 74 72 6f 6c 20  used to control 
1630: 74 68 61 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e  that connection.
1640: 20 20 54 68 65 20 64 61 74 61 62 61 73 65 0a 2a    The database.*
1650: 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20  * connection is 
1660: 64 65 6c 65 74 65 64 20 77 68 65 6e 20 74 68 65  deleted when the
1670: 20 44 42 4e 41 4d 45 20 63 6f 6d 6d 61 6e 64 20   DBNAME command 
1680: 69 73 20 64 65 6c 65 74 65 64 2e 0a 2a 2a 0a 2a  is deleted..**.*
1690: 2a 20 54 68 65 20 73 65 63 6f 6e 64 20 61 72 67  * The second arg
16a0: 75 6d 65 6e 74 20 69 73 20 74 68 65 20 6e 61 6d  ument is the nam
16b0: 65 20 6f 66 20 74 68 65 20 64 69 72 65 63 74 6f  e of the directo
16c0: 72 79 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73  ry that contains
16d0: 0a 2a 2a 20 74 68 65 20 73 71 6c 69 74 65 20 64  .** the sqlite d
16e0: 61 74 61 62 61 73 65 20 74 68 61 74 20 69 73 20  atabase that is 
16f0: 74 6f 20 62 65 20 61 63 63 65 73 73 65 64 2e 0a  to be accessed..
1700: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44 62  */.static int Db
1710: 4d 61 69 6e 28 76 6f 69 64 20 2a 63 64 2c 20 54  Main(void *cd, T
1720: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
1730: 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 68 61  p, int argc, cha
1740: 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 6e 74  r **argv){.  int
1750: 20 6d 6f 64 65 3b 0a 20 20 73 71 6c 69 74 65 20   mode;.  sqlite 
1760: 2a 70 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 72  *p;.  char *zErr
1770: 4d 73 67 3b 0a 20 20 69 66 28 20 61 72 67 63 21  Msg;.  if( argc!
1780: 3d 33 20 26 26 20 61 72 67 63 21 3d 34 20 29 7b  =3 && argc!=4 ){
1790: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52  .    Tcl_AppendR
17a0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 77 72  esult(interp,"wr
17b0: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75  ong # args: shou
17c0: 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b  ld be \"", argv[
17d0: 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 48 41 4e  0],.       " HAN
17e0: 44 4c 45 20 46 49 4c 45 4e 41 4d 45 20 3f 4d 4f  DLE FILENAME ?MO
17f0: 44 45 3f 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20  DE?\"", 0);.    
1800: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
1810: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 72 67 63  ;.  }.  if( argc
1820: 3d 3d 33 20 29 7b 0a 20 20 20 20 6d 6f 64 65 20  ==3 ){.    mode 
1830: 3d 20 30 36 36 36 3b 0a 20 20 7d 65 6c 73 65 20  = 0666;.  }else 
1840: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69  if( Tcl_GetInt(i
1850: 6e 74 65 72 70 2c 20 61 72 67 76 5b 33 5d 2c 20  nterp, argv[3], 
1860: 26 6d 6f 64 65 29 21 3d 54 43 4c 5f 4f 4b 20 29  &mode)!=TCL_OK )
1870: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  {.    return TCL
1880: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 45  _ERROR;.  }.  zE
1890: 72 72 4d 73 67 20 3d 20 30 3b 0a 20 20 70 20 3d  rrMsg = 0;.  p =
18a0: 20 73 71 6c 69 74 65 5f 6f 70 65 6e 28 61 72 67   sqlite_open(arg
18b0: 76 5b 32 5d 2c 20 6d 6f 64 65 2c 20 26 7a 45 72  v[2], mode, &zEr
18c0: 72 4d 73 67 29 3b 0a 20 20 69 66 28 20 70 3d 3d  rMsg);.  if( p==
18d0: 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74  0 ){.    Tcl_Set
18e0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a  Result(interp, z
18f0: 45 72 72 4d 73 67 2c 20 54 43 4c 5f 56 4f 4c 41  ErrMsg, TCL_VOLA
1900: 54 49 4c 45 29 3b 0a 20 20 20 20 66 72 65 65 28  TILE);.    free(
1910: 7a 45 72 72 4d 73 67 29 3b 0a 20 20 20 20 72 65  zErrMsg);.    re
1920: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
1930: 20 20 7d 0a 20 20 54 63 6c 5f 43 72 65 61 74 65    }.  Tcl_Create
1940: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
1950: 61 72 67 76 5b 31 5d 2c 20 44 62 43 6d 64 2c 20  argv[1], DbCmd, 
1960: 70 2c 20 44 62 44 65 6c 65 74 65 43 6d 64 29 3b  p, DbDeleteCmd);
1970: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
1980: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69  ;.}../*.** Initi
1990: 61 6c 69 7a 65 20 74 68 69 73 20 6d 6f 64 75 6c  alize this modul
19a0: 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 54 63  e..**.** This Tc
19b0: 6c 20 6d 6f 64 75 6c 65 20 63 6f 6e 74 61 69 6e  l module contain
19c0: 73 20 6f 6e 6c 79 20 61 20 73 69 6e 67 6c 65 20  s only a single 
19d0: 6e 65 77 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 20  new Tcl command 
19e0: 6e 61 6d 65 64 20 22 73 71 6c 69 74 65 22 2e 0a  named "sqlite"..
19f0: 2a 2a 20 28 48 65 6e 63 65 20 74 68 65 72 65 20  ** (Hence there 
1a00: 69 73 20 6e 6f 20 6e 61 6d 65 73 70 61 63 65 2e  is no namespace.
1a10: 20 20 54 68 65 72 65 20 69 73 20 6e 6f 20 70 6f    There is no po
1a20: 69 6e 74 20 69 6e 20 75 73 69 6e 67 20 61 20 6e  int in using a n
1a30: 61 6d 65 73 70 61 63 65 0a 2a 2a 20 69 66 20 74  amespace.** if t
1a40: 68 65 20 65 78 74 65 6e 73 69 6f 6e 20 6f 6e 6c  he extension onl
1a50: 79 20 73 75 70 70 6c 69 65 73 20 6f 6e 65 20 6e  y supplies one n
1a60: 65 77 20 6e 61 6d 65 21 29 20 20 54 68 65 20 22  ew name!)  The "
1a70: 73 71 6c 69 74 65 22 20 63 6f 6d 6d 61 6e 64 20  sqlite" command 
1a80: 69 73 0a 2a 2a 20 75 73 65 64 20 74 6f 20 6f 70  is.** used to op
1a90: 65 6e 20 61 20 6e 65 77 20 53 51 4c 69 74 65 20  en a new SQLite 
1aa0: 64 61 74 61 62 61 73 65 2e 20 20 53 65 65 20 74  database.  See t
1ab0: 68 65 20 44 62 4d 61 69 6e 28 29 20 72 6f 75 74  he DbMain() rout
1ac0: 69 6e 65 20 61 62 6f 76 65 0a 2a 2a 20 66 6f 72  ine above.** for
1ad0: 20 61 64 64 69 74 69 6f 6e 61 6c 20 69 6e 66 6f   additional info
1ae0: 72 6d 61 74 69 6f 6e 2e 0a 2a 2f 0a 69 6e 74 20  rmation..*/.int 
1af0: 53 71 6c 69 74 65 5f 49 6e 69 74 28 54 63 6c 5f  Sqlite_Init(Tcl_
1b00: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b  Interp *interp){
1b10: 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d  .  Tcl_CreateCom
1b20: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 73 71  mand(interp, "sq
1b30: 6c 69 74 65 22 2c 20 44 62 4d 61 69 6e 2c 20 30  lite", DbMain, 0
1b40: 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54  , 0);.  return T
1b50: 43 4c 5f 4f 4b 3b 0a 7d 0a 69 6e 74 20 53 71 6c  CL_OK;.}.int Sql
1b60: 69 74 65 5f 53 61 66 65 49 6e 69 74 28 54 63 6c  ite_SafeInit(Tcl
1b70: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29  _Interp *interp)
1b80: 7b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f  {.  return TCL_O
1b90: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 63  K;.}../*.** If c
1ba0: 6f 6d 70 69 6c 65 64 20 75 73 69 6e 67 20 6d 6b  ompiled using mk
1bb0: 74 63 6c 61 70 70 2c 20 74 68 69 73 20 72 6f 75  tclapp, this rou
1bc0: 74 69 6e 65 20 72 75 6e 73 20 74 6f 20 69 6e 69  tine runs to ini
1bd0: 74 69 61 6c 69 7a 65 0a 2a 2a 20 65 76 65 72 79  tialize.** every
1be0: 74 68 69 6e 67 2e 0a 2a 2f 0a 69 6e 74 20 45 74  thing..*/.int Et
1bf0: 5f 41 70 70 49 6e 69 74 28 54 63 6c 5f 49 6e 74  _AppInit(Tcl_Int
1c00: 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20  erp *interp){.  
1c10: 72 65 74 75 72 6e 20 53 71 6c 69 74 65 5f 49 6e  return Sqlite_In
1c20: 69 74 28 69 6e 74 65 72 70 29 3b 0a 7d 0a 0a 2f  it(interp);.}../
1c30: 2a 0a 2a 2a 20 49 66 20 74 68 65 20 6d 61 63 72  *.** If the macr
1c40: 6f 20 54 43 4c 53 48 20 69 73 20 64 65 66 69 6e  o TCLSH is defin
1c50: 65 64 20 61 6e 64 20 69 73 20 6f 6e 65 2c 20 74  ed and is one, t
1c60: 68 65 6e 20 70 75 74 20 69 6e 20 63 6f 64 65 20  hen put in code 
1c70: 66 6f 72 20 74 68 65 0a 2a 2a 20 22 6d 61 69 6e  for the.** "main
1c80: 22 20 72 6f 75 74 69 6e 65 20 74 68 61 74 20 77  " routine that w
1c90: 69 6c 6c 20 69 6e 69 74 69 61 6c 69 7a 65 20 54  ill initialize T
1ca0: 63 6c 2e 0a 2a 2f 0a 23 69 66 20 64 65 66 69 6e  cl..*/.#if defin
1cb0: 65 64 28 54 43 4c 53 48 29 20 26 26 20 54 43 4c  ed(TCLSH) && TCL
1cc0: 53 48 3d 3d 31 0a 73 74 61 74 69 63 20 63 68 61  SH==1.static cha
1cd0: 72 20 7a 4d 61 69 6e 6c 6f 6f 70 5b 5d 20 3d 0a  r zMainloop[] =.
1ce0: 20 20 22 73 65 74 20 6c 69 6e 65 20 7b 7d 5c 6e    "set line {}\n
1cf0: 22 0a 20 20 22 77 68 69 6c 65 20 7b 21 5b 65 6f  ".  "while {![eo
1d00: 66 20 73 74 64 69 6e 5d 7d 20 7b 5c 6e 22 0a 20  f stdin]} {\n". 
1d10: 20 20 20 22 69 66 20 7b 24 6c 69 6e 65 21 3d 5c     "if {$line!=\
1d20: 22 5c 22 7d 20 7b 5c 6e 22 0a 20 20 20 20 20 20  "\"} {\n".      
1d30: 22 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65  "puts -nonewline
1d40: 20 5c 22 3e 20 5c 22 5c 6e 22 0a 20 20 20 20 22   \"> \"\n".    "
1d50: 7d 20 65 6c 73 65 20 7b 5c 6e 22 0a 20 20 20 20  } else {\n".    
1d60: 20 20 22 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69    "puts -nonewli
1d70: 6e 65 20 5c 22 25 20 5c 22 5c 6e 22 0a 20 20 20  ne \"% \"\n".   
1d80: 20 22 7d 5c 6e 22 0a 20 20 20 20 22 66 6c 75 73   "}\n".    "flus
1d90: 68 20 73 74 64 6f 75 74 5c 6e 22 0a 20 20 20 20  h stdout\n".    
1da0: 22 61 70 70 65 6e 64 20 6c 69 6e 65 20 5b 67 65  "append line [ge
1db0: 74 73 20 73 74 64 69 6e 5d 5c 6e 22 0a 20 20 20  ts stdin]\n".   
1dc0: 20 22 69 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d 70   "if {[info comp
1dd0: 6c 65 74 65 20 24 6c 69 6e 65 5d 7d 20 7b 5c 6e  lete $line]} {\n
1de0: 22 0a 20 20 20 20 20 20 22 69 66 20 7b 5b 63 61  ".      "if {[ca
1df0: 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 23 30 20  tch {uplevel #0 
1e00: 24 6c 69 6e 65 7d 20 72 65 73 75 6c 74 5d 7d 20  $line} result]} 
1e10: 7b 5c 6e 22 0a 20 20 20 20 20 20 20 20 22 70 75  {\n".        "pu
1e20: 74 73 20 73 74 64 65 72 72 20 5c 22 45 72 72 6f  ts stderr \"Erro
1e30: 72 3a 20 24 72 65 73 75 6c 74 5c 22 5c 6e 22 0a  r: $result\"\n".
1e40: 20 20 20 20 20 20 22 7d 20 65 6c 73 65 69 66 20        "} elseif 
1e50: 7b 24 72 65 73 75 6c 74 21 3d 5c 22 5c 22 7d 20  {$result!=\"\"} 
1e60: 7b 5c 6e 22 0a 20 20 20 20 20 20 20 20 22 70 75  {\n".        "pu
1e70: 74 73 20 24 72 65 73 75 6c 74 5c 6e 22 0a 20 20  ts $result\n".  
1e80: 20 20 20 20 22 7d 5c 6e 22 0a 20 20 20 20 20 20      "}\n".      
1e90: 22 73 65 74 20 6c 69 6e 65 20 7b 7d 5c 6e 22 0a  "set line {}\n".
1ea0: 20 20 20 20 22 7d 20 65 6c 73 65 20 7b 5c 6e 22      "} else {\n"
1eb0: 0a 20 20 20 20 20 20 22 61 70 70 65 6e 64 20 6c  .      "append l
1ec0: 69 6e 65 20 5c 5c 6e 5c 6e 22 0a 20 20 20 20 22  ine \\n\n".    "
1ed0: 7d 5c 6e 22 0a 20 20 22 7d 5c 6e 22 0a 3b 0a 0a  }\n".  "}\n".;..
1ee0: 23 64 65 66 69 6e 65 20 54 43 4c 53 48 5f 4d 41  #define TCLSH_MA
1ef0: 49 4e 20 6d 61 69 6e 20 20 20 2f 2a 20 4e 65 65  IN main   /* Nee
1f00: 64 65 64 20 74 6f 20 66 61 6b 65 20 6f 75 74 20  ded to fake out 
1f10: 6d 6b 74 63 6c 61 70 70 20 2a 2f 0a 69 6e 74 20  mktclapp */.int 
1f20: 54 43 4c 53 48 5f 4d 41 49 4e 28 69 6e 74 20 61  TCLSH_MAIN(int a
1f30: 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72 67 76  rgc, char **argv
1f40: 29 7b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  ){.  Tcl_Interp 
1f50: 2a 69 6e 74 65 72 70 3b 0a 20 20 69 6e 74 65 72  *interp;.  inter
1f60: 70 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 49 6e  p = Tcl_CreateIn
1f70: 74 65 72 70 28 29 3b 0a 20 20 53 71 6c 69 74 65  terp();.  Sqlite
1f80: 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 3b 0a 20  _Init(interp);. 
1f90: 20 69 66 28 20 61 72 67 63 3e 3d 32 20 29 7b 0a   if( argc>=2 ){.
1fa0: 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 54      int i;.    T
1fb0: 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70  cl_SetVar(interp
1fc0: 2c 22 61 72 67 76 30 22 2c 61 72 67 76 5b 31 5d  ,"argv0",argv[1]
1fd0: 2c 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59  ,TCL_GLOBAL_ONLY
1fe0: 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 56 61  );.    Tcl_SetVa
1ff0: 72 28 69 6e 74 65 72 70 2c 22 61 72 67 76 22 2c  r(interp,"argv",
2000: 20 22 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f   "", TCL_GLOBAL_
2010: 4f 4e 4c 59 29 3b 0a 20 20 20 20 66 6f 72 28 69  ONLY);.    for(i
2020: 3d 32 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29  =2; i<argc; i++)
2030: 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 56  {.      Tcl_SetV
2040: 61 72 28 69 6e 74 65 72 70 2c 20 22 61 72 67 76  ar(interp, "argv
2050: 22 2c 20 61 72 67 76 5b 69 5d 2c 0a 20 20 20 20  ", argv[i],.    
2060: 20 20 20 20 20 20 54 43 4c 5f 47 4c 4f 42 41 4c        TCL_GLOBAL
2070: 5f 4f 4e 4c 59 20 7c 20 54 43 4c 5f 4c 49 53 54  _ONLY | TCL_LIST
2080: 5f 45 4c 45 4d 45 4e 54 20 7c 20 54 43 4c 5f 41  _ELEMENT | TCL_A
2090: 50 50 45 4e 44 5f 56 41 4c 55 45 29 3b 0a 20 20  PPEND_VALUE);.  
20a0: 20 20 7d 0a 20 20 20 20 69 66 28 20 54 63 6c 5f    }.    if( Tcl_
20b0: 45 76 61 6c 46 69 6c 65 28 69 6e 74 65 72 70 2c  EvalFile(interp,
20c0: 20 61 72 67 76 5b 31 5d 29 21 3d 54 43 4c 5f 4f   argv[1])!=TCL_O
20d0: 4b 20 29 7b 0a 20 20 20 20 20 20 66 70 72 69 6e  K ){.      fprin
20e0: 74 66 28 73 74 64 65 72 72 2c 22 25 73 3a 20 25  tf(stderr,"%s: %
20f0: 73 5c 6e 22 2c 20 2a 61 72 67 76 2c 20 0a 20 20  s\n", *argv, .  
2100: 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 56 61         Tcl_GetVa
2110: 72 28 69 6e 74 65 72 70 2c 20 22 65 72 72 6f 72  r(interp, "error
2120: 49 6e 66 6f 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  Info", TCL_GLOBA
2130: 4c 5f 4f 4e 4c 59 29 0a 20 20 20 20 20 20 29 3b  L_ONLY).      );
2140: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 31 3b  .      return 1;
2150: 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a  .    }.  }else{.
2160: 20 20 20 20 54 63 6c 5f 47 6c 6f 62 61 6c 45 76      Tcl_GlobalEv
2170: 61 6c 28 69 6e 74 65 72 70 2c 20 7a 4d 61 69 6e  al(interp, zMain
2180: 6c 6f 6f 70 29 3b 0a 20 20 7d 0a 20 20 72 65 74  loop);.  }.  ret
2190: 75 72 6e 20 30 3b 0a 7d 0a 23 65 6e 64 69 66 20  urn 0;.}.#endif 
21a0: 2f 2a 20 54 43 4c 53 48 20 2a 2f 0a              /* TCLSH */.