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 0a 2a 2a 0a 2a 2a 20 24 49 64 3a 20 74 ite.**.** $Id: t
01a0: 63 6c 73 71 6c 69 74 65 2e 63 2c 76 20 31 2e 37 clsqlite.c,v 1.7
01b0: 39 20 32 30 30 34 2f 30 36 2f 30 32 20 30 30 3a 9 2004/06/02 00:
01c0: 34 31 3a 30 39 20 64 72 68 20 45 78 70 20 24 0a 41:09 drh Exp $.
01d0: 2a 2f 0a 23 69 66 6e 64 65 66 20 4e 4f 5f 54 43 */.#ifndef NO_TC
01e0: 4c 20 20 20 20 20 2f 2a 20 4f 6d 69 74 20 74 68 L /* Omit th
01f0: 69 73 20 77 68 6f 6c 65 20 66 69 6c 65 20 69 66 is whole file if
0200: 20 54 43 4c 20 69 73 20 75 6e 61 76 61 69 6c 61 TCL is unavaila
0210: 62 6c 65 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 ble */..#include
0220: 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23 "sqliteInt.h".#
0230: 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e 68 22 0a include "tcl.h".
0240: 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 #include <stdlib
0250: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 .h>.#include <st
0260: 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 ring.h>.#include
0270: 20 3c 61 73 73 65 72 74 2e 68 3e 0a 0a 2f 2a 0a <assert.h>../*.
0280: 2a 2a 20 49 66 20 54 43 4c 20 75 73 65 73 20 55 ** If TCL uses U
0290: 54 46 2d 38 20 61 6e 64 20 53 51 4c 69 74 65 20 TF-8 and SQLite
02a0: 69 73 20 63 6f 6e 66 69 67 75 72 65 64 20 74 6f is configured to
02b0: 20 75 73 65 20 69 73 6f 38 38 35 39 2c 20 74 68 use iso8859, th
02c0: 65 6e 20 77 65 0a 2a 2a 20 68 61 76 65 20 74 6f en we.** have to
02d0: 20 64 6f 20 61 20 74 72 61 6e 73 6c 61 74 69 6f do a translatio
02e0: 6e 20 77 68 65 6e 20 67 6f 69 6e 67 20 62 65 74 n when going bet
02f0: 77 65 65 6e 20 74 68 65 20 74 77 6f 2e 20 20 53 ween the two. S
0300: 65 74 20 74 68 65 20 0a 2a 2a 20 55 54 46 5f 54 et the .** UTF_T
0310: 52 41 4e 53 4c 41 54 49 4f 4e 5f 4e 45 45 44 45 RANSLATION_NEEDE
0320: 44 20 6d 61 63 72 6f 20 74 6f 20 69 6e 64 69 63 D macro to indic
0330: 61 74 65 20 74 68 61 74 20 77 65 20 6e 65 65 64 ate that we need
0340: 20 74 6f 20 64 6f 0a 2a 2a 20 74 68 69 73 20 74 to do.** this t
0350: 72 61 6e 73 6c 61 74 69 6f 6e 2e 20 20 0a 2a 2f ranslation. .*/
0360: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 54 43 4c .#if defined(TCL
0370: 5f 55 54 46 5f 4d 41 58 29 20 26 26 20 21 64 65 _UTF_MAX) && !de
0380: 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 55 54 46 fined(SQLITE_UTF
0390: 38 29 0a 23 20 64 65 66 69 6e 65 20 55 54 46 5f 8).# define UTF_
03a0: 54 52 41 4e 53 4c 41 54 49 4f 4e 5f 4e 45 45 44 TRANSLATION_NEED
03b0: 45 44 20 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a ED 1.#endif../*.
03c0: 2a 2a 20 4e 65 77 20 53 51 4c 20 66 75 6e 63 74 ** New SQL funct
03d0: 69 6f 6e 73 20 63 61 6e 20 62 65 20 63 72 65 61 ions can be crea
03e0: 74 65 64 20 61 73 20 54 43 4c 20 73 63 72 69 70 ted as TCL scrip
03f0: 74 73 2e 20 20 45 61 63 68 20 73 75 63 68 20 66 ts. Each such f
0400: 75 6e 63 74 69 6f 6e 0a 2a 2a 20 69 73 20 64 65 unction.** is de
0410: 73 63 72 69 62 65 64 20 62 79 20 61 6e 20 69 6e scribed by an in
0420: 73 74 61 6e 63 65 20 6f 66 20 74 68 65 20 66 6f stance of the fo
0430: 6c 6c 6f 77 69 6e 67 20 73 74 72 75 63 74 75 72 llowing structur
0440: 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 e..*/.typedef st
0450: 72 75 63 74 20 53 71 6c 46 75 6e 63 20 53 71 6c ruct SqlFunc Sql
0460: 46 75 6e 63 3b 0a 73 74 72 75 63 74 20 53 71 6c Func;.struct Sql
0470: 46 75 6e 63 20 7b 0a 20 20 54 63 6c 5f 49 6e 74 Func {. Tcl_Int
0480: 65 72 70 20 2a 69 6e 74 65 72 70 3b 20 20 20 2f erp *interp; /
0490: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
04a0: 72 65 74 20 74 6f 20 65 78 65 63 75 74 65 20 74 ret to execute t
04b0: 68 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 he function */.
04c0: 20 63 68 61 72 20 2a 7a 53 63 72 69 70 74 3b 20 char *zScript;
04d0: 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 73 63 /* The sc
04e0: 72 69 70 74 20 74 6f 20 62 65 20 72 75 6e 20 2a ript to be run *
04f0: 2f 0a 20 20 53 71 6c 46 75 6e 63 20 2a 70 4e 65 /. SqlFunc *pNe
0500: 78 74 3b 20 20 20 20 20 20 20 2f 2a 20 4e 65 78 xt; /* Nex
0510: 74 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 74 68 t function on th
0520: 65 20 6c 69 73 74 20 6f 66 20 74 68 65 6d 20 61 e list of them a
0530: 6c 6c 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 ll */.};../*.**
0540: 54 68 65 72 65 20 69 73 20 6f 6e 65 20 69 6e 73 There is one ins
0550: 74 61 6e 63 65 20 6f 66 20 74 68 69 73 20 73 74 tance of this st
0560: 72 75 63 74 75 72 65 20 66 6f 72 20 65 61 63 68 ructure for each
0570: 20 53 51 4c 69 74 65 20 64 61 74 61 62 61 73 65 SQLite database
0580: 0a 2a 2a 20 74 68 61 74 20 68 61 73 20 62 65 65 .** that has bee
0590: 6e 20 6f 70 65 6e 65 64 20 62 79 20 74 68 65 20 n opened by the
05a0: 53 51 4c 69 74 65 20 54 43 4c 20 69 6e 74 65 72 SQLite TCL inter
05b0: 66 61 63 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 face..*/.typedef
05c0: 20 73 74 72 75 63 74 20 53 71 6c 69 74 65 44 62 struct SqliteDb
05d0: 20 53 71 6c 69 74 65 44 62 3b 0a 73 74 72 75 63 SqliteDb;.struc
05e0: 74 20 53 71 6c 69 74 65 44 62 20 7b 0a 20 20 73 t SqliteDb {. s
05f0: 71 6c 69 74 65 20 2a 64 62 3b 20 20 20 20 20 20 qlite *db;
0600: 20 20 20 20 20 2f 2a 20 54 68 65 20 22 72 65 61 /* The "rea
0610: 6c 22 20 64 61 74 61 62 61 73 65 20 73 74 72 75 l" database stru
0620: 63 74 75 72 65 20 2a 2f 0a 20 20 54 63 6c 5f 49 cture */. Tcl_I
0630: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 20 20 nterp *interp;
0640: 20 2f 2a 20 54 68 65 20 69 6e 74 65 72 70 72 65 /* The interpre
0650: 74 65 72 20 75 73 65 64 20 66 6f 72 20 74 68 69 ter used for thi
0660: 73 20 64 61 74 61 62 61 73 65 20 2a 2f 0a 20 20 s database */.
0670: 63 68 61 72 20 2a 7a 42 75 73 79 3b 20 20 20 20 char *zBusy;
0680: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 62 75 73 /* The bus
0690: 79 20 63 61 6c 6c 62 61 63 6b 20 72 6f 75 74 69 y callback routi
06a0: 6e 65 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 43 ne */. char *zC
06b0: 6f 6d 6d 69 74 3b 20 20 20 20 20 20 20 20 2f 2a ommit; /*
06c0: 20 54 68 65 20 63 6f 6d 6d 69 74 20 68 6f 6f 6b The commit hook
06d0: 20 63 61 6c 6c 62 61 63 6b 20 72 6f 75 74 69 6e callback routin
06e0: 65 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 54 72 e */. char *zTr
06f0: 61 63 65 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 ace; /*
0700: 54 68 65 20 74 72 61 63 65 20 63 61 6c 6c 62 61 The trace callba
0710: 63 6b 20 72 6f 75 74 69 6e 65 20 2a 2f 0a 20 20 ck routine */.
0720: 63 68 61 72 20 2a 7a 50 72 6f 67 72 65 73 73 3b char *zProgress;
0730: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 70 72 6f /* The pro
0740: 67 72 65 73 73 20 63 61 6c 6c 62 61 63 6b 20 72 gress callback r
0750: 6f 75 74 69 6e 65 20 2a 2f 0a 20 20 63 68 61 72 outine */. char
0760: 20 2a 7a 41 75 74 68 3b 20 20 20 20 20 20 20 20 *zAuth;
0770: 20 20 2f 2a 20 54 68 65 20 61 75 74 68 6f 72 69 /* The authori
0780: 7a 61 74 69 6f 6e 20 63 61 6c 6c 62 61 63 6b 20 zation callback
0790: 72 6f 75 74 69 6e 65 20 2a 2f 0a 20 20 53 71 6c routine */. Sql
07a0: 46 75 6e 63 20 2a 70 46 75 6e 63 3b 20 20 20 20 Func *pFunc;
07b0: 20 20 20 2f 2a 20 4c 69 73 74 20 6f 66 20 53 51 /* List of SQ
07c0: 4c 20 66 75 6e 63 74 69 6f 6e 73 20 2a 2f 0a 20 L functions */.
07d0: 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20 20 20 int rc;
07e0: 20 20 20 20 20 20 20 2f 2a 20 52 65 74 75 72 6e /* Return
07f0: 20 63 6f 64 65 20 6f 66 20 6d 6f 73 74 20 72 65 code of most re
0800: 63 65 6e 74 20 73 71 6c 69 74 65 33 5f 65 78 65 cent sqlite3_exe
0810: 63 28 29 20 2a 2f 0a 20 20 69 6e 74 20 6e 43 68 c() */. int nCh
0820: 61 6e 67 65 3b 20 20 20 20 20 20 20 20 20 2f 2a ange; /*
0830: 20 44 61 74 61 62 61 73 65 20 63 68 61 6e 67 65 Database change
0840: 73 20 66 6f 72 20 74 68 65 20 6d 6f 73 74 20 72 s for the most r
0850: 65 63 65 6e 74 20 65 76 61 6c 20 2a 2f 0a 7d 3b ecent eval */.};
0860: 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 ../*.** An insta
0870: 6e 63 65 20 6f 66 20 74 68 69 73 20 73 74 72 75 nce of this stru
0880: 63 74 75 72 65 20 70 61 73 73 65 73 20 69 6e 66 cture passes inf
0890: 6f 72 6d 61 74 69 6f 6e 20 74 68 72 75 20 74 68 ormation thru th
08a0: 65 20 73 71 6c 69 74 65 0a 2a 2a 20 6c 6f 67 69 e sqlite.** logi
08b0: 63 20 66 72 6f 6d 20 74 68 65 20 6f 72 69 67 69 c from the origi
08c0: 6e 61 6c 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 nal TCL command
08d0: 69 6e 74 6f 20 74 68 65 20 63 61 6c 6c 62 61 63 into the callbac
08e0: 6b 20 72 6f 75 74 69 6e 65 2e 0a 2a 2f 0a 74 79 k routine..*/.ty
08f0: 70 65 64 65 66 20 73 74 72 75 63 74 20 43 61 6c pedef struct Cal
0900: 6c 62 61 63 6b 44 61 74 61 20 43 61 6c 6c 62 61 lbackData Callba
0910: 63 6b 44 61 74 61 3b 0a 73 74 72 75 63 74 20 43 ckData;.struct C
0920: 61 6c 6c 62 61 63 6b 44 61 74 61 20 7b 0a 20 20 allbackData {.
0930: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
0940: 72 70 3b 20 20 20 20 20 20 20 2f 2a 20 54 68 65 rp; /* The
0950: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
0960: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 41 72 72 */. char *zArr
0970: 61 79 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ay;
0980: 2f 2a 20 54 68 65 20 61 72 72 61 79 20 69 6e 74 /* The array int
0990: 6f 20 77 68 69 63 68 20 64 61 74 61 20 69 73 20 o which data is
09a0: 77 72 69 74 74 65 6e 20 2a 2f 0a 20 20 54 63 6c written */. Tcl
09b0: 5f 4f 62 6a 20 2a 70 43 6f 64 65 3b 20 20 20 20 _Obj *pCode;
09c0: 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 63 6f /* The co
09d0: 64 65 20 74 6f 20 65 78 65 63 75 74 65 20 66 6f de to execute fo
09e0: 72 20 65 61 63 68 20 72 6f 77 20 2a 2f 0a 20 20 r each row */.
09f0: 69 6e 74 20 6f 6e 63 65 3b 20 20 20 20 20 20 20 int once;
0a00: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 65 74 /* Set
0a10: 20 66 6f 72 20 66 69 72 73 74 20 63 61 6c 6c 62 for first callb
0a20: 61 63 6b 20 6f 6e 6c 79 20 2a 2f 0a 20 20 69 6e ack only */. in
0a30: 74 20 74 63 6c 5f 72 63 3b 20 20 20 20 20 20 20 t tcl_rc;
0a40: 20 20 20 20 20 20 20 20 2f 2a 20 52 65 74 75 72 /* Retur
0a50: 6e 20 63 6f 64 65 20 66 72 6f 6d 20 54 43 4c 20 n code from TCL
0a60: 73 63 72 69 70 74 20 2a 2f 0a 20 20 69 6e 74 20 script */. int
0a70: 6e 43 6f 6c 4e 61 6d 65 3b 20 20 20 20 20 20 20 nColName;
0a80: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
0a90: 6f 66 20 65 6e 74 72 69 65 73 20 69 6e 20 74 68 of entries in th
0aa0: 65 20 61 7a 43 6f 6c 4e 61 6d 65 5b 5d 20 61 72 e azColName[] ar
0ab0: 72 61 79 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a ray */. char **
0ac0: 61 7a 43 6f 6c 4e 61 6d 65 3b 20 20 20 20 20 20 azColName;
0ad0: 20 20 20 2f 2a 20 43 6f 6c 75 6d 6e 20 6e 61 6d /* Column nam
0ae0: 65 73 20 74 72 61 6e 73 6c 61 74 65 64 20 74 6f es translated to
0af0: 20 55 54 46 2d 38 20 2a 2f 0a 7d 3b 0a 0a 2f 2a UTF-8 */.};../*
0b00: 0a 2a 2a 20 54 68 69 73 20 69 73 20 61 20 73 65 .** This is a se
0b10: 63 6f 6e 64 20 61 6c 74 65 72 6e 61 74 69 76 65 cond alternative
0b20: 20 63 61 6c 6c 62 61 63 6b 20 66 6f 72 20 64 61 callback for da
0b30: 74 61 62 61 73 65 20 71 75 65 72 69 65 73 2e 20 tabase queries.
0b40: 20 41 20 74 68 65 0a 2a 2a 20 66 69 72 73 74 20 A the.** first
0b50: 63 6f 6c 75 6d 6e 20 6f 66 20 74 68 65 20 66 69 column of the fi
0b60: 72 73 74 20 72 6f 77 20 6f 66 20 74 68 65 20 72 rst row of the r
0b70: 65 73 75 6c 74 20 69 73 20 6d 61 64 65 20 74 68 esult is made th
0b80: 65 20 54 43 4c 20 72 65 73 75 6c 74 2e 0a 2a 2f e TCL result..*/
0b90: 0a 73 74 61 74 69 63 20 69 6e 74 20 44 62 45 76 .static int DbEv
0ba0: 61 6c 43 61 6c 6c 62 61 63 6b 33 28 0a 20 20 76 alCallback3(. v
0bb0: 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61 74 61 2c oid *clientData,
0bc0: 20 20 20 20 20 20 2f 2a 20 41 6e 20 69 6e 73 74 /* An inst
0bd0: 61 6e 63 65 20 6f 66 20 43 61 6c 6c 62 61 63 6b ance of Callback
0be0: 44 61 74 61 20 2a 2f 0a 20 20 69 6e 74 20 6e 43 Data */. int nC
0bf0: 6f 6c 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ol,
0c00: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 63 6f /* Number of co
0c10: 6c 75 6d 6e 73 20 69 6e 20 74 68 65 20 72 65 73 lumns in the res
0c20: 75 6c 74 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a ult */. char **
0c30: 20 61 7a 43 6f 6c 2c 20 20 20 20 20 20 20 20 20 azCol,
0c40: 2f 2a 20 44 61 74 61 20 66 6f 72 20 65 61 63 68 /* Data for each
0c50: 20 63 6f 6c 75 6d 6e 20 2a 2f 0a 20 20 63 68 61 column */. cha
0c60: 72 20 2a 2a 20 61 7a 4e 20 20 20 20 20 20 20 20 r ** azN
0c70: 20 20 20 20 2f 2a 20 4e 61 6d 65 20 66 6f 72 20 /* Name for
0c80: 65 61 63 68 20 63 6f 6c 75 6d 6e 20 2a 2f 0a 29 each column */.)
0c90: 7b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a {. Tcl_Interp *
0ca0: 69 6e 74 65 72 70 20 3d 20 28 54 63 6c 5f 49 6e interp = (Tcl_In
0cb0: 74 65 72 70 2a 29 63 6c 69 65 6e 74 44 61 74 61 terp*)clientData
0cc0: 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 45 6c ;. Tcl_Obj *pEl
0cd0: 65 6d 3b 0a 20 20 69 66 28 20 61 7a 43 6f 6c 3d em;. if( azCol=
0ce0: 3d 30 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 20 =0 ) return 1;.
0cf0: 20 69 66 28 20 6e 43 6f 6c 3d 3d 30 20 29 20 72 if( nCol==0 ) r
0d00: 65 74 75 72 6e 20 31 3b 0a 23 69 66 64 65 66 20 eturn 1;.#ifdef
0d10: 55 54 46 5f 54 52 41 4e 53 4c 41 54 49 4f 4e 5f UTF_TRANSLATION_
0d20: 4e 45 45 44 45 44 0a 20 20 7b 0a 20 20 20 20 54 NEEDED. {. T
0d30: 63 6c 5f 44 53 74 72 69 6e 67 20 64 43 6f 6c 3b cl_DString dCol;
0d40: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
0d50: 49 6e 69 74 28 26 64 43 6f 6c 29 3b 0a 20 20 20 Init(&dCol);.
0d60: 20 54 63 6c 5f 45 78 74 65 72 6e 61 6c 54 6f 55 Tcl_ExternalToU
0d70: 74 66 44 53 74 72 69 6e 67 28 4e 55 4c 4c 2c 20 tfDString(NULL,
0d80: 61 7a 43 6f 6c 5b 30 5d 2c 20 2d 31 2c 20 26 64 azCol[0], -1, &d
0d90: 43 6f 6c 29 3b 0a 20 20 20 20 70 45 6c 65 6d 20 Col);. pElem
0da0: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f = Tcl_NewStringO
0db0: 62 6a 28 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 bj(Tcl_DStringVa
0dc0: 6c 75 65 28 26 64 43 6f 6c 29 2c 20 2d 31 29 3b lue(&dCol), -1);
0dd0: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
0de0: 46 72 65 65 28 26 64 43 6f 6c 29 3b 0a 20 20 7d Free(&dCol);. }
0df0: 0a 23 65 6c 73 65 0a 20 20 70 45 6c 65 6d 20 3d .#else. pElem =
0e00: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
0e10: 6a 28 61 7a 43 6f 6c 5b 30 5d 2c 20 2d 31 29 3b j(azCol[0], -1);
0e20: 0a 23 65 6e 64 69 66 0a 20 20 54 63 6c 5f 53 65 .#endif. Tcl_Se
0e30: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
0e40: 70 2c 20 70 45 6c 65 6d 29 3b 0a 20 20 72 65 74 p, pElem);. ret
0e50: 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 urn 1;.}../*.**
0e60: 43 61 6c 6c 65 64 20 77 68 65 6e 20 74 68 65 20 Called when the
0e70: 63 6f 6d 6d 61 6e 64 20 69 73 20 64 65 6c 65 74 command is delet
0e80: 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ed..*/.static vo
0e90: 69 64 20 44 62 44 65 6c 65 74 65 43 6d 64 28 76 id DbDeleteCmd(v
0ea0: 6f 69 64 20 2a 64 62 29 7b 0a 20 20 53 71 6c 69 oid *db){. Sqli
0eb0: 74 65 44 62 20 2a 70 44 62 20 3d 20 28 53 71 6c teDb *pDb = (Sql
0ec0: 69 74 65 44 62 2a 29 64 62 3b 0a 20 20 73 71 6c iteDb*)db;. sql
0ed0: 69 74 65 33 5f 63 6c 6f 73 65 28 70 44 62 2d 3e ite3_close(pDb->
0ee0: 64 62 29 3b 0a 20 20 77 68 69 6c 65 28 20 70 44 db);. while( pD
0ef0: 62 2d 3e 70 46 75 6e 63 20 29 7b 0a 20 20 20 20 b->pFunc ){.
0f00: 53 71 6c 46 75 6e 63 20 2a 70 46 75 6e 63 20 3d SqlFunc *pFunc =
0f10: 20 70 44 62 2d 3e 70 46 75 6e 63 3b 0a 20 20 20 pDb->pFunc;.
0f20: 20 70 44 62 2d 3e 70 46 75 6e 63 20 3d 20 70 46 pDb->pFunc = pF
0f30: 75 6e 63 2d 3e 70 4e 65 78 74 3b 0a 20 20 20 20 unc->pNext;.
0f40: 54 63 6c 5f 46 72 65 65 28 28 63 68 61 72 2a 29 Tcl_Free((char*)
0f50: 70 46 75 6e 63 29 3b 0a 20 20 7d 0a 20 20 69 66 pFunc);. }. if
0f60: 28 20 70 44 62 2d 3e 7a 42 75 73 79 20 29 7b 0a ( pDb->zBusy ){.
0f70: 20 20 20 20 54 63 6c 5f 46 72 65 65 28 70 44 62 Tcl_Free(pDb
0f80: 2d 3e 7a 42 75 73 79 29 3b 0a 20 20 7d 0a 20 20 ->zBusy);. }.
0f90: 69 66 28 20 70 44 62 2d 3e 7a 54 72 61 63 65 20 if( pDb->zTrace
0fa0: 29 7b 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 28 ){. Tcl_Free(
0fb0: 70 44 62 2d 3e 7a 54 72 61 63 65 29 3b 0a 20 20 pDb->zTrace);.
0fc0: 7d 0a 20 20 69 66 28 20 70 44 62 2d 3e 7a 41 75 }. if( pDb->zAu
0fd0: 74 68 20 29 7b 0a 20 20 20 20 54 63 6c 5f 46 72 th ){. Tcl_Fr
0fe0: 65 65 28 70 44 62 2d 3e 7a 41 75 74 68 29 3b 0a ee(pDb->zAuth);.
0ff0: 20 20 7d 0a 20 20 54 63 6c 5f 46 72 65 65 28 28 }. Tcl_Free((
1000: 63 68 61 72 2a 29 70 44 62 29 3b 0a 7d 0a 0a 2f char*)pDb);.}../
1010: 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e *.** This routin
1020: 65 20 69 73 20 63 61 6c 6c 65 64 20 77 68 65 6e e is called when
1030: 20 61 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 a database file
1040: 20 69 73 20 6c 6f 63 6b 65 64 20 77 68 69 6c 65 is locked while
1050: 20 74 72 79 69 6e 67 0a 2a 2a 20 74 6f 20 65 78 trying.** to ex
1060: 65 63 75 74 65 20 53 51 4c 2e 0a 2a 2f 0a 73 74 ecute SQL..*/.st
1070: 61 74 69 63 20 69 6e 74 20 44 62 42 75 73 79 48 atic int DbBusyH
1080: 61 6e 64 6c 65 72 28 76 6f 69 64 20 2a 63 64 2c andler(void *cd,
1090: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 61 const char *zTa
10a0: 62 6c 65 2c 20 69 6e 74 20 6e 54 72 69 65 73 29 ble, int nTries)
10b0: 7b 0a 20 20 53 71 6c 69 74 65 44 62 20 2a 70 44 {. SqliteDb *pD
10c0: 62 20 3d 20 28 53 71 6c 69 74 65 44 62 2a 29 63 b = (SqliteDb*)c
10d0: 64 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 d;. int rc;. c
10e0: 68 61 72 20 7a 56 61 6c 5b 33 30 5d 3b 0a 20 20 har zVal[30];.
10f0: 63 68 61 72 20 2a 7a 43 6d 64 3b 0a 20 20 54 63 char *zCmd;. Tc
1100: 6c 5f 44 53 74 72 69 6e 67 20 63 6d 64 3b 0a 0a l_DString cmd;..
1110: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 Tcl_DStringIni
1120: 74 28 26 63 6d 64 29 3b 0a 20 20 54 63 6c 5f 44 t(&cmd);. Tcl_D
1130: 53 74 72 69 6e 67 41 70 70 65 6e 64 28 26 63 6d StringAppend(&cm
1140: 64 2c 20 70 44 62 2d 3e 7a 42 75 73 79 2c 20 2d d, pDb->zBusy, -
1150: 31 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 1);. Tcl_DStrin
1160: 67 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 26 gAppendElement(&
1170: 63 6d 64 2c 20 7a 54 61 62 6c 65 29 3b 0a 20 20 cmd, zTable);.
1180: 73 70 72 69 6e 74 66 28 7a 56 61 6c 2c 20 22 20 sprintf(zVal, "
1190: 25 64 22 2c 20 6e 54 72 69 65 73 29 3b 0a 20 20 %d", nTries);.
11a0: 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 6e Tcl_DStringAppen
11b0: 64 28 26 63 6d 64 2c 20 7a 56 61 6c 2c 20 2d 31 d(&cmd, zVal, -1
11c0: 29 3b 0a 20 20 7a 43 6d 64 20 3d 20 54 63 6c 5f );. zCmd = Tcl_
11d0: 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 63 6d DStringValue(&cm
11e0: 64 29 3b 0a 20 20 72 63 20 3d 20 54 63 6c 5f 45 d);. rc = Tcl_E
11f0: 76 61 6c 28 70 44 62 2d 3e 69 6e 74 65 72 70 2c val(pDb->interp,
1200: 20 7a 43 6d 64 29 3b 0a 20 20 54 63 6c 5f 44 53 zCmd);. Tcl_DS
1210: 74 72 69 6e 67 46 72 65 65 28 26 63 6d 64 29 3b tringFree(&cmd);
1220: 0a 20 20 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f . if( rc!=TCL_O
1230: 4b 20 7c 7c 20 61 74 6f 69 28 54 63 6c 5f 47 65 K || atoi(Tcl_Ge
1240: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 70 44 tStringResult(pD
1250: 62 2d 3e 69 6e 74 65 72 70 29 29 20 29 7b 0a 20 b->interp)) ){.
1260: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d return 0;. }
1270: 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a . return 1;.}..
1280: 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 /*.** This routi
1290: 6e 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 61 73 ne is invoked as
12a0: 20 74 68 65 20 27 70 72 6f 67 72 65 73 73 20 63 the 'progress c
12b0: 61 6c 6c 62 61 63 6b 27 20 66 6f 72 20 74 68 65 allback' for the
12c0: 20 64 61 74 61 62 61 73 65 2e 0a 2a 2f 0a 73 74 database..*/.st
12d0: 61 74 69 63 20 69 6e 74 20 44 62 50 72 6f 67 72 atic int DbProgr
12e0: 65 73 73 48 61 6e 64 6c 65 72 28 76 6f 69 64 20 essHandler(void
12f0: 2a 63 64 29 7b 0a 20 20 53 71 6c 69 74 65 44 62 *cd){. SqliteDb
1300: 20 2a 70 44 62 20 3d 20 28 53 71 6c 69 74 65 44 *pDb = (SqliteD
1310: 62 2a 29 63 64 3b 0a 20 20 69 6e 74 20 72 63 3b b*)cd;. int rc;
1320: 0a 0a 20 20 61 73 73 65 72 74 28 20 70 44 62 2d .. assert( pDb-
1330: 3e 7a 50 72 6f 67 72 65 73 73 20 29 3b 0a 20 20 >zProgress );.
1340: 72 63 20 3d 20 54 63 6c 5f 45 76 61 6c 28 70 44 rc = Tcl_Eval(pD
1350: 62 2d 3e 69 6e 74 65 72 70 2c 20 70 44 62 2d 3e b->interp, pDb->
1360: 7a 50 72 6f 67 72 65 73 73 29 3b 0a 20 20 69 66 zProgress);. if
1370: 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20 7c 7c 20 ( rc!=TCL_OK ||
1380: 61 74 6f 69 28 54 63 6c 5f 47 65 74 53 74 72 69 atoi(Tcl_GetStri
1390: 6e 67 52 65 73 75 6c 74 28 70 44 62 2d 3e 69 6e ngResult(pDb->in
13a0: 74 65 72 70 29 29 20 29 7b 0a 20 20 20 20 72 65 terp)) ){. re
13b0: 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 72 65 turn 1;. }. re
13c0: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 0;.}../*.**
13d0: 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73 This routine is
13e0: 20 63 61 6c 6c 65 64 20 62 79 20 74 68 65 20 53 called by the S
13f0: 51 4c 69 74 65 20 74 72 61 63 65 20 68 61 6e 64 QLite trace hand
1400: 6c 65 72 20 77 68 65 6e 65 76 65 72 20 61 20 6e ler whenever a n
1410: 65 77 0a 2a 2a 20 62 6c 6f 63 6b 20 6f 66 20 53 ew.** block of S
1420: 51 4c 20 69 73 20 65 78 65 63 75 74 65 64 2e 20 QL is executed.
1430: 20 54 68 65 20 54 43 4c 20 73 63 72 69 70 74 20 The TCL script
1440: 69 6e 20 70 44 62 2d 3e 7a 54 72 61 63 65 20 69 in pDb->zTrace i
1450: 73 20 65 78 65 63 75 74 65 64 2e 0a 2a 2f 0a 73 s executed..*/.s
1460: 74 61 74 69 63 20 76 6f 69 64 20 44 62 54 72 61 tatic void DbTra
1470: 63 65 48 61 6e 64 6c 65 72 28 76 6f 69 64 20 2a ceHandler(void *
1480: 63 64 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a cd, const char *
1490: 7a 53 71 6c 29 7b 0a 20 20 53 71 6c 69 74 65 44 zSql){. SqliteD
14a0: 62 20 2a 70 44 62 20 3d 20 28 53 71 6c 69 74 65 b *pDb = (Sqlite
14b0: 44 62 2a 29 63 64 3b 0a 20 20 54 63 6c 5f 44 53 Db*)cd;. Tcl_DS
14c0: 74 72 69 6e 67 20 73 74 72 3b 0a 0a 20 20 54 63 tring str;.. Tc
14d0: 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 73 l_DStringInit(&s
14e0: 74 72 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 tr);. Tcl_DStri
14f0: 6e 67 41 70 70 65 6e 64 28 26 73 74 72 2c 20 70 ngAppend(&str, p
1500: 44 62 2d 3e 7a 54 72 61 63 65 2c 20 2d 31 29 3b Db->zTrace, -1);
1510: 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 . Tcl_DStringAp
1520: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 26 73 74 72 pendElement(&str
1530: 2c 20 7a 53 71 6c 29 3b 0a 20 20 54 63 6c 5f 45 , zSql);. Tcl_E
1540: 76 61 6c 28 70 44 62 2d 3e 69 6e 74 65 72 70 2c val(pDb->interp,
1550: 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 Tcl_DStringValu
1560: 65 28 26 73 74 72 29 29 3b 0a 20 20 54 63 6c 5f e(&str));. Tcl_
1570: 44 53 74 72 69 6e 67 46 72 65 65 28 26 73 74 72 DStringFree(&str
1580: 29 3b 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 );. Tcl_ResetRe
1590: 73 75 6c 74 28 70 44 62 2d 3e 69 6e 74 65 72 70 sult(pDb->interp
15a0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 );.}../*.** This
15b0: 20 72 6f 75 74 69 6e 65 20 69 73 20 63 61 6c 6c routine is call
15c0: 65 64 20 77 68 65 6e 20 61 20 74 72 61 6e 73 61 ed when a transa
15d0: 63 74 69 6f 6e 20 69 73 20 63 6f 6d 6d 69 74 74 ction is committ
15e0: 65 64 2e 20 20 54 68 65 0a 2a 2a 20 54 43 4c 20 ed. The.** TCL
15f0: 73 63 72 69 70 74 20 69 6e 20 70 44 62 2d 3e 7a script in pDb->z
1600: 43 6f 6d 6d 69 74 20 69 73 20 65 78 65 63 75 74 Commit is execut
1610: 65 64 2e 20 20 49 66 20 69 74 20 72 65 74 75 72 ed. If it retur
1620: 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20 6f 72 0a 2a ns non-zero or.*
1630: 2a 20 69 66 20 69 74 20 74 68 72 6f 77 73 20 61 * if it throws a
1640: 6e 20 65 78 63 65 70 74 69 6f 6e 2c 20 74 68 65 n exception, the
1650: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73 20 transaction is
1660: 72 6f 6c 6c 65 64 20 62 61 63 6b 20 69 6e 73 74 rolled back inst
1670: 65 61 64 0a 2a 2a 20 6f 66 20 62 65 69 6e 67 20 ead.** of being
1680: 63 6f 6d 6d 69 74 74 65 64 2e 0a 2a 2f 0a 73 74 committed..*/.st
1690: 61 74 69 63 20 69 6e 74 20 44 62 43 6f 6d 6d 69 atic int DbCommi
16a0: 74 48 61 6e 64 6c 65 72 28 76 6f 69 64 20 2a 63 tHandler(void *c
16b0: 64 29 7b 0a 20 20 53 71 6c 69 74 65 44 62 20 2a d){. SqliteDb *
16c0: 70 44 62 20 3d 20 28 53 71 6c 69 74 65 44 62 2a pDb = (SqliteDb*
16d0: 29 63 64 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a )cd;. int rc;..
16e0: 20 20 72 63 20 3d 20 54 63 6c 5f 45 76 61 6c 28 rc = Tcl_Eval(
16f0: 70 44 62 2d 3e 69 6e 74 65 72 70 2c 20 70 44 62 pDb->interp, pDb
1700: 2d 3e 7a 43 6f 6d 6d 69 74 29 3b 0a 20 20 69 66 ->zCommit);. if
1710: 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20 7c 7c 20 ( rc!=TCL_OK ||
1720: 61 74 6f 69 28 54 63 6c 5f 47 65 74 53 74 72 69 atoi(Tcl_GetStri
1730: 6e 67 52 65 73 75 6c 74 28 70 44 62 2d 3e 69 6e ngResult(pDb->in
1740: 74 65 72 70 29 29 20 29 7b 0a 20 20 20 20 72 65 terp)) ){. re
1750: 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 72 65 turn 1;. }. re
1760: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 0;.}../*.**
1770: 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73 This routine is
1780: 20 63 61 6c 6c 65 64 20 74 6f 20 65 76 61 6c 75 called to evalu
1790: 61 74 65 20 61 6e 20 53 51 4c 20 66 75 6e 63 74 ate an SQL funct
17a0: 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74 65 64 0a ion implemented.
17b0: 2a 2a 20 75 73 69 6e 67 20 54 43 4c 20 73 63 72 ** using TCL scr
17c0: 69 70 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ipt..*/.static v
17d0: 6f 69 64 20 74 63 6c 53 71 6c 46 75 6e 63 28 73 oid tclSqlFunc(s
17e0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
17f0: 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 context, int arg
1800: 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 c, sqlite3_value
1810: 20 2a 2a 61 72 67 76 29 7b 0a 20 20 53 71 6c 46 **argv){. SqlF
1820: 75 6e 63 20 2a 70 20 3d 20 73 71 6c 69 74 65 33 unc *p = sqlite3
1830: 5f 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 _user_data(conte
1840: 78 74 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 xt);. Tcl_DStri
1850: 6e 67 20 63 6d 64 3b 0a 20 20 69 6e 74 20 69 3b ng cmd;. int i;
1860: 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 54 63 . int rc;.. Tc
1870: 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 63 l_DStringInit(&c
1880: 6d 64 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 md);. Tcl_DStri
1890: 6e 67 41 70 70 65 6e 64 28 26 63 6d 64 2c 20 70 ngAppend(&cmd, p
18a0: 2d 3e 7a 53 63 72 69 70 74 2c 20 2d 31 29 3b 0a ->zScript, -1);.
18b0: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 for(i=0; i<arg
18c0: 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 c; i++){. if(
18d0: 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 3d 3d 73 71 SQLITE_NULL==sq
18e0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 lite3_value_type
18f0: 28 61 72 67 76 5b 69 5d 29 20 29 7b 0a 20 20 20 (argv[i]) ){.
1900: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 Tcl_DStringAp
1910: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 26 63 6d 64 pendElement(&cmd
1920: 2c 20 22 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65 , "");. }else
1930: 7b 0a 20 20 20 20 20 20 54 63 6c 5f 44 53 74 72 {. Tcl_DStr
1940: 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ingAppendElement
1950: 28 26 63 6d 64 2c 20 73 71 6c 69 74 65 33 5f 76 (&cmd, sqlite3_v
1960: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 69 alue_text(argv[i
1970: 5d 29 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 ]));. }. }.
1980: 20 72 63 20 3d 20 54 63 6c 5f 45 76 61 6c 28 70 rc = Tcl_Eval(p
1990: 2d 3e 69 6e 74 65 72 70 2c 20 54 63 6c 5f 44 53 ->interp, Tcl_DS
19a0: 74 72 69 6e 67 56 61 6c 75 65 28 26 63 6d 64 29 tringValue(&cmd)
19b0: 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 );. if( rc ){.
19c0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
19d0: 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c t_error(context,
19e0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 Tcl_GetStringRe
19f0: 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 2c sult(p->interp),
1a00: 20 2d 31 29 3b 20 0a 20 20 7d 65 6c 73 65 7b 0a -1); . }else{.
1a10: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
1a20: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
1a30: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 Tcl_GetStringRe
1a40: 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 2c sult(p->interp),
1a50: 20 2d 31 2c 20 31 29 3b 0a 20 20 7d 0a 7d 0a 23 -1, 1);. }.}.#
1a60: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
1a70: 49 54 5f 41 55 54 48 4f 52 49 5a 41 54 49 4f 4e IT_AUTHORIZATION
1a80: 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 74 ./*.** This is t
1a90: 68 65 20 61 75 74 68 65 6e 74 69 63 61 74 69 6f he authenticatio
1aa0: 6e 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 74 20 n function. It
1ab0: 61 70 70 65 6e 64 73 20 74 68 65 20 61 75 74 68 appends the auth
1ac0: 65 6e 74 69 63 61 74 69 6f 6e 0a 2a 2a 20 74 79 entication.** ty
1ad0: 70 65 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 pe code and the
1ae0: 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 20 74 6f two arguments to
1af0: 20 7a 43 6d 64 5b 5d 20 74 68 65 6e 20 69 6e 76 zCmd[] then inv
1b00: 6f 6b 65 73 20 74 68 65 20 72 65 73 75 6c 74 0a okes the result.
1b10: 2a 2a 20 6f 6e 20 74 68 65 20 69 6e 74 65 72 70 ** on the interp
1b20: 72 65 74 65 72 2e 20 20 54 68 65 20 72 65 70 6c reter. The repl
1b30: 79 20 69 73 20 65 78 61 6d 69 6e 65 64 20 74 6f y is examined to
1b40: 20 64 65 74 65 72 6d 69 6e 65 20 69 66 20 74 68 determine if th
1b50: 65 0a 2a 2a 20 61 75 74 68 65 6e 74 69 63 61 74 e.** authenticat
1b60: 69 6f 6e 20 66 61 69 6c 73 20 6f 72 20 73 75 63 ion fails or suc
1b70: 63 65 65 64 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 ceeds..*/.static
1b80: 20 69 6e 74 20 61 75 74 68 5f 63 61 6c 6c 62 61 int auth_callba
1b90: 63 6b 28 0a 20 20 76 6f 69 64 20 2a 70 41 72 67 ck(. void *pArg
1ba0: 2c 0a 20 20 69 6e 74 20 63 6f 64 65 2c 0a 20 20 ,. int code,.
1bb0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 72 67 const char *zArg
1bc0: 31 2c 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 1,. const char
1bd0: 2a 7a 41 72 67 32 2c 0a 20 20 63 6f 6e 73 74 20 *zArg2,. const
1be0: 63 68 61 72 20 2a 7a 41 72 67 33 2c 0a 20 20 63 char *zArg3,. c
1bf0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 72 67 34 onst char *zArg4
1c00: 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 43 6f 64 .){. char *zCod
1c10: 65 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 e;. Tcl_DString
1c20: 20 73 74 72 3b 0a 20 20 69 6e 74 20 72 63 3b 0a str;. int rc;.
1c30: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 52 const char *zR
1c40: 65 70 6c 79 3b 0a 20 20 53 71 6c 69 74 65 44 62 eply;. SqliteDb
1c50: 20 2a 70 44 62 20 3d 20 28 53 71 6c 69 74 65 44 *pDb = (SqliteD
1c60: 62 2a 29 70 41 72 67 3b 0a 0a 20 20 73 77 69 74 b*)pArg;.. swit
1c70: 63 68 28 20 63 6f 64 65 20 29 7b 0a 20 20 20 20 ch( code ){.
1c80: 63 61 73 65 20 53 51 4c 49 54 45 5f 43 4f 50 59 case SQLITE_COPY
1c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 :
1ca0: 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 43 4f zCode="SQLITE_CO
1cb0: 50 59 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 PY"; break;.
1cc0: 63 61 73 65 20 53 51 4c 49 54 45 5f 43 52 45 41 case SQLITE_CREA
1cd0: 54 45 5f 49 4e 44 45 58 20 20 20 20 20 20 3a 20 TE_INDEX :
1ce0: 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 43 52 zCode="SQLITE_CR
1cf0: 45 41 54 45 5f 49 4e 44 45 58 22 3b 20 62 72 65 EATE_INDEX"; bre
1d00: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ak;. case SQL
1d10: 49 54 45 5f 43 52 45 41 54 45 5f 54 41 42 4c 45 ITE_CREATE_TABLE
1d20: 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53 : zCode="S
1d30: 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54 41 42 QLITE_CREATE_TAB
1d40: 4c 45 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 LE"; break;.
1d50: 63 61 73 65 20 53 51 4c 49 54 45 5f 43 52 45 41 case SQLITE_CREA
1d60: 54 45 5f 54 45 4d 50 5f 49 4e 44 45 58 20 3a 20 TE_TEMP_INDEX :
1d70: 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 43 52 zCode="SQLITE_CR
1d80: 45 41 54 45 5f 54 45 4d 50 5f 49 4e 44 45 58 22 EATE_TEMP_INDEX"
1d90: 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 ; break;. cas
1da0: 65 20 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f e SQLITE_CREATE_
1db0: 54 45 4d 50 5f 54 41 42 4c 45 20 3a 20 7a 43 6f TEMP_TABLE : zCo
1dc0: 64 65 3d 22 53 51 4c 49 54 45 5f 43 52 45 41 54 de="SQLITE_CREAT
1dd0: 45 5f 54 45 4d 50 5f 54 41 42 4c 45 22 3b 20 62 E_TEMP_TABLE"; b
1de0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
1df0: 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54 45 4d QLITE_CREATE_TEM
1e00: 50 5f 54 52 49 47 47 45 52 3a 20 7a 43 6f 64 65 P_TRIGGER: zCode
1e10: 3d 22 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f ="SQLITE_CREATE_
1e20: 54 45 4d 50 5f 54 52 49 47 47 45 52 22 3b 20 62 TEMP_TRIGGER"; b
1e30: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
1e40: 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54 45 4d QLITE_CREATE_TEM
1e50: 50 5f 56 49 45 57 20 20 3a 20 7a 43 6f 64 65 3d P_VIEW : zCode=
1e60: 22 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54 "SQLITE_CREATE_T
1e70: 45 4d 50 5f 56 49 45 57 22 3b 20 62 72 65 61 6b EMP_VIEW"; break
1e80: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
1e90: 45 5f 43 52 45 41 54 45 5f 54 52 49 47 47 45 52 E_CREATE_TRIGGER
1ea0: 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c : zCode="SQL
1eb0: 49 54 45 5f 43 52 45 41 54 45 5f 54 52 49 47 47 ITE_CREATE_TRIGG
1ec0: 45 52 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 ER"; break;.
1ed0: 63 61 73 65 20 53 51 4c 49 54 45 5f 43 52 45 41 case SQLITE_CREA
1ee0: 54 45 5f 56 49 45 57 20 20 20 20 20 20 20 3a 20 TE_VIEW :
1ef0: 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 43 52 zCode="SQLITE_CR
1f00: 45 41 54 45 5f 56 49 45 57 22 3b 20 62 72 65 61 EATE_VIEW"; brea
1f10: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
1f20: 54 45 5f 44 45 4c 45 54 45 20 20 20 20 20 20 20 TE_DELETE
1f30: 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53 51 : zCode="SQ
1f40: 4c 49 54 45 5f 44 45 4c 45 54 45 22 3b 20 62 72 LITE_DELETE"; br
1f50: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 eak;. case SQ
1f60: 4c 49 54 45 5f 44 52 4f 50 5f 49 4e 44 45 58 20 LITE_DROP_INDEX
1f70: 20 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22 : zCode="
1f80: 53 51 4c 49 54 45 5f 44 52 4f 50 5f 49 4e 44 45 SQLITE_DROP_INDE
1f90: 58 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 X"; break;. c
1fa0: 61 73 65 20 53 51 4c 49 54 45 5f 44 52 4f 50 5f ase SQLITE_DROP_
1fb0: 54 41 42 4c 45 20 20 20 20 20 20 20 20 3a 20 7a TABLE : z
1fc0: 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 44 52 4f Code="SQLITE_DRO
1fd0: 50 5f 54 41 42 4c 45 22 3b 20 62 72 65 61 6b 3b P_TABLE"; break;
1fe0: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
1ff0: 5f 44 52 4f 50 5f 54 45 4d 50 5f 49 4e 44 45 58 _DROP_TEMP_INDEX
2000: 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 : zCode="SQLI
2010: 54 45 5f 44 52 4f 50 5f 54 45 4d 50 5f 49 4e 44 TE_DROP_TEMP_IND
2020: 45 58 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 EX"; break;.
2030: 63 61 73 65 20 53 51 4c 49 54 45 5f 44 52 4f 50 case SQLITE_DROP
2040: 5f 54 45 4d 50 5f 54 41 42 4c 45 20 20 20 3a 20 _TEMP_TABLE :
2050: 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 44 52 zCode="SQLITE_DR
2060: 4f 50 5f 54 45 4d 50 5f 54 41 42 4c 45 22 3b 20 OP_TEMP_TABLE";
2070: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
2080: 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54 45 4d 50 SQLITE_DROP_TEMP
2090: 5f 54 52 49 47 47 45 52 20 3a 20 7a 43 6f 64 65 _TRIGGER : zCode
20a0: 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54 45 ="SQLITE_DROP_TE
20b0: 4d 50 5f 54 52 49 47 47 45 52 22 3b 20 62 72 65 MP_TRIGGER"; bre
20c0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ak;. case SQL
20d0: 49 54 45 5f 44 52 4f 50 5f 54 45 4d 50 5f 56 49 ITE_DROP_TEMP_VI
20e0: 45 57 20 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53 EW : zCode="S
20f0: 51 4c 49 54 45 5f 44 52 4f 50 5f 54 45 4d 50 5f QLITE_DROP_TEMP_
2100: 56 49 45 57 22 3b 20 62 72 65 61 6b 3b 0a 20 20 VIEW"; break;.
2110: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 44 52 case SQLITE_DR
2120: 4f 50 5f 54 52 49 47 47 45 52 20 20 20 20 20 20 OP_TRIGGER
2130: 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f : zCode="SQLITE_
2140: 44 52 4f 50 5f 54 52 49 47 47 45 52 22 3b 20 62 DROP_TRIGGER"; b
2150: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
2160: 51 4c 49 54 45 5f 44 52 4f 50 5f 56 49 45 57 20 QLITE_DROP_VIEW
2170: 20 20 20 20 20 20 20 20 3a 20 7a 43 6f 64 65 3d : zCode=
2180: 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f 56 49 45 "SQLITE_DROP_VIE
2190: 57 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 W"; break;. c
21a0: 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 53 45 52 ase SQLITE_INSER
21b0: 54 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 7a T : z
21c0: 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 49 4e 53 Code="SQLITE_INS
21d0: 45 52 54 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 ERT"; break;.
21e0: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 50 52 41 case SQLITE_PRA
21f0: 47 4d 41 20 20 20 20 20 20 20 20 20 20 20 20 3a GMA :
2200: 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 50 zCode="SQLITE_P
2210: 52 41 47 4d 41 22 3b 20 62 72 65 61 6b 3b 0a 20 RAGMA"; break;.
2220: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 52 case SQLITE_R
2230: 45 41 44 20 20 20 20 20 20 20 20 20 20 20 20 20 EAD
2240: 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 : zCode="SQLITE
2250: 5f 52 45 41 44 22 3b 20 62 72 65 61 6b 3b 0a 20 _READ"; break;.
2260: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 53 case SQLITE_S
2270: 45 4c 45 43 54 20 20 20 20 20 20 20 20 20 20 20 ELECT
2280: 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 : zCode="SQLITE
2290: 5f 53 45 4c 45 43 54 22 3b 20 62 72 65 61 6b 3b _SELECT"; break;
22a0: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
22b0: 5f 54 52 41 4e 53 41 43 54 49 4f 4e 20 20 20 20 _TRANSACTION
22c0: 20 20 20 3a 20 7a 43 6f 64 65 3d 22 53 51 4c 49 : zCode="SQLI
22d0: 54 45 5f 54 52 41 4e 53 41 43 54 49 4f 4e 22 3b TE_TRANSACTION";
22e0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
22f0: 20 53 51 4c 49 54 45 5f 55 50 44 41 54 45 20 20 SQLITE_UPDATE
2300: 20 20 20 20 20 20 20 20 20 20 3a 20 7a 43 6f 64 : zCod
2310: 65 3d 22 53 51 4c 49 54 45 5f 55 50 44 41 54 45 e="SQLITE_UPDATE
2320: 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 "; break;. ca
2330: 73 65 20 53 51 4c 49 54 45 5f 41 54 54 41 43 48 se SQLITE_ATTACH
2340: 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 7a 43 : zC
2350: 6f 64 65 3d 22 53 51 4c 49 54 45 5f 41 54 54 41 ode="SQLITE_ATTA
2360: 43 48 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 CH"; break;.
2370: 63 61 73 65 20 53 51 4c 49 54 45 5f 44 45 54 41 case SQLITE_DETA
2380: 43 48 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 CH :
2390: 7a 43 6f 64 65 3d 22 53 51 4c 49 54 45 5f 44 45 zCode="SQLITE_DE
23a0: 54 41 43 48 22 3b 20 62 72 65 61 6b 3b 0a 20 20 TACH"; break;.
23b0: 20 20 64 65 66 61 75 6c 74 20 20 20 20 20 20 20 default
23c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
23d0: 3a 20 7a 43 6f 64 65 3d 22 3f 3f 3f 3f 22 3b 20 : zCode="????";
23e0: 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 54 63 6c break;. }. Tcl
23f0: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 73 74 _DStringInit(&st
2400: 72 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e r);. Tcl_DStrin
2410: 67 41 70 70 65 6e 64 28 26 73 74 72 2c 20 70 44 gAppend(&str, pD
2420: 62 2d 3e 7a 41 75 74 68 2c 20 2d 31 29 3b 0a 20 b->zAuth, -1);.
2430: 20 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 Tcl_DStringAppe
2440: 6e 64 45 6c 65 6d 65 6e 74 28 26 73 74 72 2c 20 ndElement(&str,
2450: 7a 43 6f 64 65 29 3b 0a 20 20 54 63 6c 5f 44 53 zCode);. Tcl_DS
2460: 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d 65 tringAppendEleme
2470: 6e 74 28 26 73 74 72 2c 20 7a 41 72 67 31 20 3f nt(&str, zArg1 ?
2480: 20 7a 41 72 67 31 20 3a 20 22 22 29 3b 0a 20 20 zArg1 : "");.
2490: 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 6e Tcl_DStringAppen
24a0: 64 45 6c 65 6d 65 6e 74 28 26 73 74 72 2c 20 7a dElement(&str, z
24b0: 41 72 67 32 20 3f 20 7a 41 72 67 32 20 3a 20 22 Arg2 ? zArg2 : "
24c0: 22 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e ");. Tcl_DStrin
24d0: 67 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 26 gAppendElement(&
24e0: 73 74 72 2c 20 7a 41 72 67 33 20 3f 20 7a 41 72 str, zArg3 ? zAr
24f0: 67 33 20 3a 20 22 22 29 3b 0a 20 20 54 63 6c 5f g3 : "");. Tcl_
2500: 44 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 DStringAppendEle
2510: 6d 65 6e 74 28 26 73 74 72 2c 20 7a 41 72 67 34 ment(&str, zArg4
2520: 20 3f 20 7a 41 72 67 34 20 3a 20 22 22 29 3b 0a ? zArg4 : "");.
2530: 20 20 72 63 20 3d 20 54 63 6c 5f 47 6c 6f 62 61 rc = Tcl_Globa
2540: 6c 45 76 61 6c 28 70 44 62 2d 3e 69 6e 74 65 72 lEval(pDb->inter
2550: 70 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 p, Tcl_DStringVa
2560: 6c 75 65 28 26 73 74 72 29 29 3b 0a 20 20 54 63 lue(&str));. Tc
2570: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 73 l_DStringFree(&s
2580: 74 72 29 3b 0a 20 20 7a 52 65 70 6c 79 20 3d 20 tr);. zReply =
2590: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 Tcl_GetStringRes
25a0: 75 6c 74 28 70 44 62 2d 3e 69 6e 74 65 72 70 29 ult(pDb->interp)
25b0: 3b 0a 20 20 69 66 28 20 73 74 72 63 6d 70 28 7a ;. if( strcmp(z
25c0: 52 65 70 6c 79 2c 22 53 51 4c 49 54 45 5f 4f 4b Reply,"SQLITE_OK
25d0: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 63 20 ")==0 ){. rc
25e0: 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 7d = SQLITE_OK;. }
25f0: 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 else if( strcmp(
2600: 7a 52 65 70 6c 79 2c 22 53 51 4c 49 54 45 5f 44 zReply,"SQLITE_D
2610: 45 4e 59 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 ENY")==0 ){.
2620: 72 63 20 3d 20 53 51 4c 49 54 45 5f 44 45 4e 59 rc = SQLITE_DENY
2630: 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 ;. }else if( st
2640: 72 63 6d 70 28 7a 52 65 70 6c 79 2c 22 53 51 4c rcmp(zReply,"SQL
2650: 49 54 45 5f 49 47 4e 4f 52 45 22 29 3d 3d 30 20 ITE_IGNORE")==0
2660: 29 7b 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 ){. rc = SQLI
2670: 54 45 5f 49 47 4e 4f 52 45 3b 0a 20 20 7d 65 6c TE_IGNORE;. }el
2680: 73 65 7b 0a 20 20 20 20 72 63 20 3d 20 39 39 39 se{. rc = 999
2690: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 ;. }. return r
26a0: 63 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 c;.}.#endif /* S
26b0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 55 54 48 4f QLITE_OMIT_AUTHO
26c0: 52 49 5a 41 54 49 4f 4e 20 2a 2f 0a 0a 2f 2a 0a RIZATION */../*.
26d0: 2a 2a 20 7a 54 65 78 74 20 69 73 20 61 20 70 6f ** zText is a po
26e0: 69 6e 74 65 72 20 74 6f 20 74 65 78 74 20 6f 62 inter to text ob
26f0: 74 61 69 6e 65 64 20 76 69 61 20 61 6e 20 73 71 tained via an sq
2700: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
2710: 74 28 29 0a 2a 2a 20 6f 72 20 73 69 6d 69 6c 61 t().** or simila
2720: 72 20 69 6e 74 65 72 66 61 63 65 2e 20 54 68 69 r interface. Thi
2730: 73 20 72 6f 75 74 69 6e 65 20 72 65 74 75 72 6e s routine return
2740: 73 20 61 20 54 63 6c 20 73 74 72 69 6e 67 20 6f s a Tcl string o
2750: 62 6a 65 63 74 2c 20 0a 2a 2a 20 72 65 66 65 72 bject, .** refer
2760: 65 6e 63 65 20 63 6f 75 6e 74 20 73 65 74 20 74 ence count set t
2770: 6f 20 30 2c 20 63 6f 6e 74 61 69 6e 69 6e 67 20 o 0, containing
2780: 74 68 65 20 74 65 78 74 2e 20 49 66 20 61 20 74 the text. If a t
2790: 72 61 6e 73 6c 61 74 69 6f 6e 0a 2a 2a 20 62 65 ranslation.** be
27a0: 74 77 65 65 6e 20 69 73 6f 38 38 35 39 20 61 6e tween iso8859 an
27b0: 64 20 55 54 46 2d 38 20 69 73 20 72 65 71 75 69 d UTF-8 is requi
27c0: 72 65 64 2c 20 69 74 20 69 73 20 70 72 65 66 6f red, it is prefo
27d0: 72 6d 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 rmed..*/.static
27e0: 54 63 6c 5f 4f 62 6a 20 2a 64 62 54 65 78 74 54 Tcl_Obj *dbTextT
27f0: 6f 4f 62 6a 28 63 68 61 72 20 63 6f 6e 73 74 20 oObj(char const
2800: 2a 7a 54 65 78 74 29 7b 0a 20 20 54 63 6c 5f 4f *zText){. Tcl_O
2810: 62 6a 20 2a 70 56 61 6c 3b 0a 23 69 66 64 65 66 bj *pVal;.#ifdef
2820: 20 55 54 46 5f 54 52 41 4e 53 4c 41 54 49 4f 4e UTF_TRANSLATION
2830: 5f 4e 45 45 44 45 44 0a 20 20 54 63 6c 5f 44 53 _NEEDED. Tcl_DS
2840: 74 72 69 6e 67 20 64 43 6f 6c 3b 0a 20 20 54 63 tring dCol;. Tc
2850: 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 l_DStringInit(&d
2860: 43 6f 6c 29 3b 0a 20 20 54 63 6c 5f 45 78 74 65 Col);. Tcl_Exte
2870: 72 6e 61 6c 54 6f 55 74 66 44 53 74 72 69 6e 67 rnalToUtfDString
2880: 28 4e 55 4c 4c 2c 20 7a 54 65 78 74 2c 20 2d 31 (NULL, zText, -1
2890: 2c 20 26 64 43 6f 6c 29 3b 0a 20 20 70 56 61 6c , &dCol);. pVal
28a0: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 = Tcl_NewString
28b0: 4f 62 6a 28 54 63 6c 5f 44 53 74 72 69 6e 67 56 Obj(Tcl_DStringV
28c0: 61 6c 75 65 28 26 64 43 6f 6c 29 2c 20 2d 31 29 alue(&dCol), -1)
28d0: 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 ;. Tcl_DStringF
28e0: 72 65 65 28 26 64 43 6f 6c 29 3b 0a 23 65 6c 73 ree(&dCol);.#els
28f0: 65 0a 20 20 70 56 61 6c 20 3d 20 54 63 6c 5f 4e e. pVal = Tcl_N
2900: 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 54 65 78 ewStringObj(zTex
2910: 74 2c 20 2d 31 29 3b 0a 23 65 6e 64 69 66 0a 20 t, -1);.#endif.
2920: 20 72 65 74 75 72 6e 20 70 56 61 6c 3b 0a 7d 0a return pVal;.}.
2930: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 22 73 71 6c 69 ./*.** The "sqli
2940: 74 65 22 20 63 6f 6d 6d 61 6e 64 20 62 65 6c 6f te" command belo
2950: 77 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 20 w creates a new
2960: 54 63 6c 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 20 Tcl command for
2970: 65 61 63 68 0a 2a 2a 20 63 6f 6e 6e 65 63 74 69 each.** connecti
2980: 6f 6e 20 69 74 20 6f 70 65 6e 73 20 74 6f 20 61 on it opens to a
2990: 6e 20 53 51 4c 69 74 65 20 64 61 74 61 62 61 73 n SQLite databas
29a0: 65 2e 20 20 54 68 69 73 20 72 6f 75 74 69 6e 65 e. This routine
29b0: 20 69 73 20 69 6e 76 6f 6b 65 64 0a 2a 2a 20 77 is invoked.** w
29c0: 68 65 6e 65 76 65 72 20 6f 6e 65 20 6f 66 20 74 henever one of t
29d0: 68 6f 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2d hose connection-
29e0: 73 70 65 63 69 66 69 63 20 63 6f 6d 6d 61 6e 64 specific command
29f0: 73 20 69 73 20 65 78 65 63 75 74 65 64 0a 2a 2a s is executed.**
2a00: 20 69 6e 20 54 63 6c 2e 20 20 46 6f 72 20 65 78 in Tcl. For ex
2a10: 61 6d 70 6c 65 2c 20 69 66 20 79 6f 75 20 72 75 ample, if you ru
2a20: 6e 20 54 63 6c 20 63 6f 64 65 20 6c 69 6b 65 20 n Tcl code like
2a30: 74 68 69 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 this:.**.**
2a40: 20 20 73 71 6c 69 74 65 20 64 62 31 20 20 22 6d sqlite db1 "m
2a50: 79 5f 64 61 74 61 62 61 73 65 22 0a 2a 2a 20 20 y_database".**
2a60: 20 20 20 20 20 64 62 31 20 63 6c 6f 73 65 0a 2a db1 close.*
2a70: 2a 0a 2a 2a 20 54 68 65 20 66 69 72 73 74 20 63 *.** The first c
2a80: 6f 6d 6d 61 6e 64 20 6f 70 65 6e 73 20 61 20 63 ommand opens a c
2a90: 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 74 68 65 onnection to the
2aa0: 20 22 6d 79 5f 64 61 74 61 62 61 73 65 22 20 64 "my_database" d
2ab0: 61 74 61 62 61 73 65 0a 2a 2a 20 61 6e 64 20 63 atabase.** and c
2ac0: 61 6c 6c 73 20 74 68 61 74 20 63 6f 6e 6e 65 63 alls that connec
2ad0: 74 69 6f 6e 20 22 64 62 31 22 2e 20 20 54 68 65 tion "db1". The
2ae0: 20 73 65 63 6f 6e 64 20 63 6f 6d 6d 61 6e 64 20 second command
2af0: 63 61 75 73 65 73 20 74 68 69 73 0a 2a 2a 20 73 causes this.** s
2b00: 75 62 72 6f 75 74 69 6e 65 20 74 6f 20 62 65 20 ubroutine to be
2b10: 69 6e 76 6f 6b 65 64 2e 0a 2a 2f 0a 73 74 61 74 invoked..*/.stat
2b20: 69 63 20 69 6e 74 20 44 62 4f 62 6a 43 6d 64 28 ic int DbObjCmd(
2b30: 76 6f 69 64 20 2a 63 64 2c 20 54 63 6c 5f 49 6e void *cd, Tcl_In
2b40: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
2b50: 74 20 6f 62 6a 63 2c 54 63 6c 5f 4f 62 6a 20 2a t objc,Tcl_Obj *
2b60: 63 6f 6e 73 74 2a 6f 62 6a 76 29 7b 0a 20 20 53 const*objv){. S
2b70: 71 6c 69 74 65 44 62 20 2a 70 44 62 20 3d 20 28 qliteDb *pDb = (
2b80: 53 71 6c 69 74 65 44 62 2a 29 63 64 3b 0a 20 20 SqliteDb*)cd;.
2b90: 69 6e 74 20 63 68 6f 69 63 65 3b 0a 20 20 69 6e int choice;. in
2ba0: 74 20 72 63 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 t rc = TCL_OK;.
2bb0: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 static const ch
2bc0: 61 72 20 2a 44 42 5f 73 74 72 73 5b 5d 20 3d 20 ar *DB_strs[] =
2bd0: 7b 0a 20 20 20 20 22 61 75 74 68 6f 72 69 7a 65 {. "authorize
2be0: 72 22 2c 20 20 20 20 20 20 20 20 20 22 62 75 73 r", "bus
2bf0: 79 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 y",
2c00: 20 20 20 20 20 20 22 63 68 61 6e 67 65 73 22 2c "changes",
2c10: 0a 20 20 20 20 22 63 6c 6f 73 65 22 2c 20 20 20 . "close",
2c20: 20 20 20 20 20 20 20 20 20 20 20 22 63 6f 6d 6d "comm
2c30: 69 74 5f 68 6f 6f 6b 22 2c 20 20 20 20 20 20 20 it_hook",
2c40: 20 20 20 20 20 22 63 6f 6d 70 6c 65 74 65 22 2c "complete",
2c50: 0a 20 20 20 20 22 65 72 72 6f 72 63 6f 64 65 22 . "errorcode"
2c60: 2c 20 20 20 20 20 20 20 20 20 20 22 65 76 61 6c , "eval
2c70: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
2c80: 20 20 20 20 20 22 66 75 6e 63 74 69 6f 6e 22 2c "function",
2c90: 0a 20 20 20 20 22 6c 61 73 74 5f 69 6e 73 65 72 . "last_inser
2ca0: 74 5f 72 6f 77 69 64 22 2c 20 20 22 6c 61 73 74 t_rowid", "last
2cb0: 5f 73 74 61 74 65 6d 65 6e 74 5f 63 68 61 6e 67 _statement_chang
2cc0: 65 73 22 2c 20 22 6f 6e 65 63 6f 6c 75 6d 6e 22 es", "onecolumn"
2cd0: 2c 0a 20 20 20 20 22 70 72 6f 67 72 65 73 73 22 ,. "progress"
2ce0: 2c 20 20 20 20 20 20 20 20 20 20 20 22 72 65 6b , "rek
2cf0: 65 79 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 ey",
2d00: 20 20 20 20 20 20 22 74 69 6d 65 6f 75 74 22 2c "timeout",
2d10: 0a 20 20 20 20 22 74 72 61 63 65 22 2c 0a 20 20 . "trace",.
2d20: 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 0
2d30: 20 20 20 20 20 20 20 0a 20 20 7d 3b 0a 20 20 65 . };. e
2d40: 6e 75 6d 20 44 42 5f 65 6e 75 6d 20 7b 0a 20 20 num DB_enum {.
2d50: 20 20 44 42 5f 41 55 54 48 4f 52 49 5a 45 52 2c DB_AUTHORIZER,
2d60: 20 20 20 20 20 20 20 20 44 42 5f 42 55 53 59 2c DB_BUSY,
2d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2d80: 20 20 20 44 42 5f 43 48 41 4e 47 45 53 2c 0a 20 DB_CHANGES,.
2d90: 20 20 20 44 42 5f 43 4c 4f 53 45 2c 20 20 20 20 DB_CLOSE,
2da0: 20 20 20 20 20 20 20 20 20 44 42 5f 43 4f 4d 4d DB_COMM
2db0: 49 54 5f 48 4f 4f 4b 2c 20 20 20 20 20 20 20 20 IT_HOOK,
2dc0: 20 20 20 20 44 42 5f 43 4f 4d 50 4c 45 54 45 2c DB_COMPLETE,
2dd0: 0a 20 20 20 20 44 42 5f 45 52 52 4f 52 43 4f 44 . DB_ERRORCOD
2de0: 45 2c 20 20 20 20 20 20 20 20 20 44 42 5f 45 56 E, DB_EV
2df0: 41 4c 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 AL,
2e00: 20 20 20 20 20 20 44 42 5f 46 55 4e 43 54 49 4f DB_FUNCTIO
2e10: 4e 2c 0a 20 20 20 20 44 42 5f 4c 41 53 54 5f 49 N,. DB_LAST_I
2e20: 4e 53 45 52 54 5f 52 4f 57 49 44 2c 20 44 42 5f NSERT_ROWID, DB_
2e30: 4c 41 53 54 5f 53 54 41 54 45 4d 45 4e 54 5f 43 LAST_STATEMENT_C
2e40: 48 41 4e 47 45 53 2c 20 44 42 5f 4f 4e 45 43 4f HANGES, DB_ONECO
2e50: 4c 55 4d 4e 2c 20 20 20 20 20 20 20 20 0a 20 20 LUMN, .
2e60: 20 20 44 42 5f 50 52 4f 47 52 45 53 53 2c 20 20 DB_PROGRESS,
2e70: 20 20 20 20 20 20 20 20 44 42 5f 52 45 4b 45 59 DB_REKEY
2e80: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2e90: 20 20 20 44 42 5f 54 49 4d 45 4f 55 54 2c 0a 20 DB_TIMEOUT,.
2ea0: 20 20 20 44 42 5f 54 52 41 43 45 0a 20 20 7d 3b DB_TRACE. };
2eb0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3c 32 20 29 .. if( objc<2 )
2ec0: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
2ed0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
2ee0: 2c 20 6f 62 6a 76 2c 20 22 53 55 42 43 4f 4d 4d , objv, "SUBCOMM
2ef0: 41 4e 44 20 2e 2e 2e 22 29 3b 0a 20 20 20 20 72 AND ...");. r
2f00: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
2f10: 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 . }. if( Tcl_G
2f20: 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 etIndexFromObj(i
2f30: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 nterp, objv[1],
2f40: 44 42 5f 73 74 72 73 2c 20 22 6f 70 74 69 6f 6e DB_strs, "option
2f50: 22 2c 20 30 2c 20 26 63 68 6f 69 63 65 29 20 29 ", 0, &choice) )
2f60: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
2f70: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 73 _ERROR;. }.. s
2f80: 77 69 74 63 68 28 20 28 65 6e 75 6d 20 44 42 5f witch( (enum DB_
2f90: 65 6e 75 6d 29 63 68 6f 69 63 65 20 29 7b 0a 0a enum)choice ){..
2fa0: 20 20 2f 2a 20 20 20 20 24 64 62 20 61 75 74 68 /* $db auth
2fb0: 6f 72 69 7a 65 72 20 3f 43 41 4c 4c 42 41 43 4b orizer ?CALLBACK
2fc0: 3f 0a 20 20 2a 2a 0a 20 20 2a 2a 20 49 6e 76 6f ?. **. ** Invo
2fd0: 6b 65 20 74 68 65 20 67 69 76 65 6e 20 63 61 6c ke the given cal
2fe0: 6c 62 61 63 6b 20 74 6f 20 61 75 74 68 6f 72 69 lback to authori
2ff0: 7a 65 20 65 61 63 68 20 53 51 4c 20 6f 70 65 72 ze each SQL oper
3000: 61 74 69 6f 6e 20 61 73 20 69 74 20 69 73 0a 20 ation as it is.
3010: 20 2a 2a 20 63 6f 6d 70 69 6c 65 64 2e 20 20 35 ** compiled. 5
3020: 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 61 arguments are a
3030: 70 70 65 6e 64 65 64 20 74 6f 20 74 68 65 20 63 ppended to the c
3040: 61 6c 6c 62 61 63 6b 20 62 65 66 6f 72 65 20 69 allback before i
3050: 74 20 69 73 0a 20 20 2a 2a 20 69 6e 76 6f 6b 65 t is. ** invoke
3060: 64 3a 0a 20 20 2a 2a 0a 20 20 2a 2a 20 20 20 28 d:. **. ** (
3070: 31 29 20 54 68 65 20 61 75 74 68 6f 72 69 7a 61 1) The authoriza
3080: 74 69 6f 6e 20 74 79 70 65 20 28 65 78 3a 20 53 tion type (ex: S
3090: 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54 41 42 QLITE_CREATE_TAB
30a0: 4c 45 2c 20 53 51 4c 49 54 45 5f 49 4e 53 45 52 LE, SQLITE_INSER
30b0: 54 2c 20 2e 2e 2e 29 0a 20 20 2a 2a 20 20 20 28 T, ...). ** (
30c0: 32 29 20 46 69 72 73 74 20 64 65 73 63 72 69 70 2) First descrip
30d0: 74 69 76 65 20 6e 61 6d 65 20 28 64 65 70 65 6e tive name (depen
30e0: 64 73 20 6f 6e 20 61 75 74 68 6f 72 69 7a 61 74 ds on authorizat
30f0: 69 6f 6e 20 74 79 70 65 29 0a 20 20 2a 2a 20 20 ion type). **
3100: 20 28 33 29 20 53 65 63 6f 6e 64 20 64 65 73 63 (3) Second desc
3110: 72 69 70 74 69 76 65 20 6e 61 6d 65 0a 20 20 2a riptive name. *
3120: 2a 20 20 20 28 34 29 20 4e 61 6d 65 20 6f 66 20 * (4) Name of
3130: 74 68 65 20 64 61 74 61 62 61 73 65 20 28 65 78 the database (ex
3140: 3a 20 22 6d 61 69 6e 22 2c 20 22 74 65 6d 70 22 : "main", "temp"
3150: 29 0a 20 20 2a 2a 20 20 20 28 35 29 20 4e 61 6d ). ** (5) Nam
3160: 65 20 6f 66 20 74 72 69 67 67 65 72 20 74 68 61 e of trigger tha
3170: 74 20 69 73 20 64 6f 69 6e 67 20 74 68 65 20 61 t is doing the a
3180: 63 63 65 73 73 0a 20 20 2a 2a 0a 20 20 2a 2a 20 ccess. **. **
3190: 54 68 65 20 63 61 6c 6c 62 61 63 6b 20 73 68 6f The callback sho
31a0: 75 6c 64 20 72 65 74 75 72 6e 20 6f 6e 20 6f 66 uld return on of
31b0: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 the following s
31c0: 74 72 69 6e 67 73 3a 20 53 51 4c 49 54 45 5f 4f trings: SQLITE_O
31d0: 4b 2c 0a 20 20 2a 2a 20 53 51 4c 49 54 45 5f 49 K,. ** SQLITE_I
31e0: 47 4e 4f 52 45 2c 20 6f 72 20 53 51 4c 49 54 45 GNORE, or SQLITE
31f0: 5f 44 45 4e 59 2e 20 20 41 6e 79 20 6f 74 68 65 _DENY. Any othe
3200: 72 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 r return value i
3210: 73 20 61 6e 20 65 72 72 6f 72 2e 0a 20 20 2a 2a s an error.. **
3220: 0a 20 20 2a 2a 20 49 66 20 74 68 69 73 20 6d 65 . ** If this me
3230: 74 68 6f 64 20 69 73 20 69 6e 76 6f 6b 65 64 20 thod is invoked
3240: 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 with no argument
3250: 73 2c 20 74 68 65 20 63 75 72 72 65 6e 74 20 61 s, the current a
3260: 75 74 68 6f 72 69 7a 61 74 69 6f 6e 0a 20 20 2a uthorization. *
3270: 2a 20 63 61 6c 6c 62 61 63 6b 20 73 74 72 69 6e * callback strin
3280: 67 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 20 g is returned..
3290: 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 41 55 */. case DB_AU
32a0: 54 48 4f 52 49 5a 45 52 3a 20 7b 0a 20 20 20 20 THORIZER: {.
32b0: 69 66 28 20 6f 62 6a 63 3e 33 20 29 7b 0a 20 20 if( objc>3 ){.
32c0: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
32d0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 Args(interp, 2,
32e0: 6f 62 6a 76 2c 20 22 3f 43 41 4c 4c 42 41 43 4b objv, "?CALLBACK
32f0: 3f 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 ?");. }else i
3300: 66 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 f( objc==2 ){.
3310: 20 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 41 75 if( pDb->zAu
3320: 74 68 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 th ){. Tc
3330: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
3340: 6e 74 65 72 70 2c 20 70 44 62 2d 3e 7a 41 75 74 nterp, pDb->zAut
3350: 68 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 h, 0);. }.
3360: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
3370: 63 68 61 72 20 2a 7a 41 75 74 68 3b 0a 20 20 20 char *zAuth;.
3380: 20 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 20 20 int len;.
3390: 20 20 69 66 28 20 70 44 62 2d 3e 7a 41 75 74 68 if( pDb->zAuth
33a0: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f ){. Tcl_
33b0: 46 72 65 65 28 70 44 62 2d 3e 7a 41 75 74 68 29 Free(pDb->zAuth)
33c0: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 ;. }.
33d0: 7a 41 75 74 68 20 3d 20 54 63 6c 5f 47 65 74 53 zAuth = Tcl_GetS
33e0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
33f0: 76 5b 32 5d 2c 20 26 6c 65 6e 29 3b 0a 20 20 20 v[2], &len);.
3400: 20 20 20 69 66 28 20 7a 41 75 74 68 20 26 26 20 if( zAuth &&
3410: 6c 65 6e 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 len>0 ){.
3420: 20 70 44 62 2d 3e 7a 41 75 74 68 20 3d 20 54 63 pDb->zAuth = Tc
3430: 6c 5f 41 6c 6c 6f 63 28 20 6c 65 6e 20 2b 20 31 l_Alloc( len + 1
3440: 20 29 3b 0a 20 20 20 20 20 20 20 20 73 74 72 63 );. strc
3450: 70 79 28 70 44 62 2d 3e 7a 41 75 74 68 2c 20 7a py(pDb->zAuth, z
3460: 41 75 74 68 29 3b 0a 20 20 20 20 20 20 7d 65 6c Auth);. }el
3470: 73 65 7b 0a 20 20 20 20 20 20 20 20 70 44 62 2d se{. pDb-
3480: 3e 7a 41 75 74 68 20 3d 20 30 3b 0a 20 20 20 20 >zAuth = 0;.
3490: 20 20 7d 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 }.#ifndef SQLI
34a0: 54 45 5f 4f 4d 49 54 5f 41 55 54 48 4f 52 49 5a TE_OMIT_AUTHORIZ
34b0: 41 54 49 4f 4e 0a 20 20 20 20 20 20 69 66 28 20 ATION. if(
34c0: 70 44 62 2d 3e 7a 41 75 74 68 20 29 7b 0a 20 20 pDb->zAuth ){.
34d0: 20 20 20 20 20 20 70 44 62 2d 3e 69 6e 74 65 72 pDb->inter
34e0: 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 p = interp;.
34f0: 20 20 20 20 73 71 6c 69 74 65 33 5f 73 65 74 5f sqlite3_set_
3500: 61 75 74 68 6f 72 69 7a 65 72 28 70 44 62 2d 3e authorizer(pDb->
3510: 64 62 2c 20 61 75 74 68 5f 63 61 6c 6c 62 61 63 db, auth_callbac
3520: 6b 2c 20 70 44 62 29 3b 0a 20 20 20 20 20 20 7d k, pDb);. }
3530: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 73 71 else{. sq
3540: 6c 69 74 65 33 5f 73 65 74 5f 61 75 74 68 6f 72 lite3_set_author
3550: 69 7a 65 72 28 70 44 62 2d 3e 64 62 2c 20 30 2c izer(pDb->db, 0,
3560: 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 23 65 6e 0);. }.#en
3570: 64 69 66 0a 20 20 20 20 7d 0a 20 20 20 20 62 72 dif. }. br
3580: 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 20 eak;. }.. /*
3590: 20 20 24 64 62 20 62 75 73 79 20 3f 43 41 4c 4c $db busy ?CALL
35a0: 42 41 43 4b 3f 0a 20 20 2a 2a 0a 20 20 2a 2a 20 BACK?. **. **
35b0: 49 6e 76 6f 6b 65 20 74 68 65 20 67 69 76 65 6e Invoke the given
35c0: 20 63 61 6c 6c 62 61 63 6b 20 69 66 20 61 6e 20 callback if an
35d0: 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 61 74 SQL statement at
35e0: 74 65 6d 70 74 73 20 74 6f 20 6f 70 65 6e 0a 20 tempts to open.
35f0: 20 2a 2a 20 61 20 6c 6f 63 6b 65 64 20 64 61 74 ** a locked dat
3600: 61 62 61 73 65 20 66 69 6c 65 2e 0a 20 20 2a 2f abase file.. */
3610: 0a 20 20 63 61 73 65 20 44 42 5f 42 55 53 59 3a . case DB_BUSY:
3620: 20 7b 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 3e {. if( objc>
3630: 33 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 3 ){. Tcl_W
3640: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
3650: 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 43 41 rp, 2, objv, "CA
3660: 4c 4c 42 41 43 4b 22 29 3b 0a 20 20 20 20 20 20 LLBACK");.
3670: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3680: 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 ;. }else if(
3690: 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 20 20 20 objc==2 ){.
36a0: 20 69 66 28 20 70 44 62 2d 3e 7a 42 75 73 79 20 if( pDb->zBusy
36b0: 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41 ){. Tcl_A
36c0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
36d0: 72 70 2c 20 70 44 62 2d 3e 7a 42 75 73 79 2c 20 rp, pDb->zBusy,
36e0: 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 0);. }.
36f0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 63 68 61 }else{. cha
3700: 72 20 2a 7a 42 75 73 79 3b 0a 20 20 20 20 20 20 r *zBusy;.
3710: 69 6e 74 20 6c 65 6e 3b 0a 20 20 20 20 20 20 69 int len;. i
3720: 66 28 20 70 44 62 2d 3e 7a 42 75 73 79 20 29 7b f( pDb->zBusy ){
3730: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 46 72 65 . Tcl_Fre
3740: 65 28 70 44 62 2d 3e 7a 42 75 73 79 29 3b 0a 20 e(pDb->zBusy);.
3750: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7a 42 75 }. zBu
3760: 73 79 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 sy = Tcl_GetStri
3770: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 ngFromObj(objv[2
3780: 5d 2c 20 26 6c 65 6e 29 3b 0a 20 20 20 20 20 20 ], &len);.
3790: 69 66 28 20 7a 42 75 73 79 20 26 26 20 6c 65 6e if( zBusy && len
37a0: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 70 44 >0 ){. pD
37b0: 62 2d 3e 7a 42 75 73 79 20 3d 20 54 63 6c 5f 41 b->zBusy = Tcl_A
37c0: 6c 6c 6f 63 28 20 6c 65 6e 20 2b 20 31 20 29 3b lloc( len + 1 );
37d0: 0a 20 20 20 20 20 20 20 20 73 74 72 63 70 79 28 . strcpy(
37e0: 70 44 62 2d 3e 7a 42 75 73 79 2c 20 7a 42 75 73 pDb->zBusy, zBus
37f0: 79 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b y);. }else{
3800: 0a 20 20 20 20 20 20 20 20 70 44 62 2d 3e 7a 42 . pDb->zB
3810: 75 73 79 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d usy = 0;. }
3820: 0a 20 20 20 20 20 20 69 66 28 20 70 44 62 2d 3e . if( pDb->
3830: 7a 42 75 73 79 20 29 7b 0a 20 20 20 20 20 20 20 zBusy ){.
3840: 20 70 44 62 2d 3e 69 6e 74 65 72 70 20 3d 20 69 pDb->interp = i
3850: 6e 74 65 72 70 3b 0a 20 20 20 20 20 20 20 20 73 nterp;. s
3860: 71 6c 69 74 65 33 5f 62 75 73 79 5f 68 61 6e 64 qlite3_busy_hand
3870: 6c 65 72 28 70 44 62 2d 3e 64 62 2c 20 44 62 42 ler(pDb->db, DbB
3880: 75 73 79 48 61 6e 64 6c 65 72 2c 20 70 44 62 29 usyHandler, pDb)
3890: 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 ;. }else{.
38a0: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 62 sqlite3_b
38b0: 75 73 79 5f 68 61 6e 64 6c 65 72 28 70 44 62 2d usy_handler(pDb-
38c0: 3e 64 62 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 >db, 0, 0);.
38d0: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 62 72 }. }. br
38e0: 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 20 eak;. }.. /*
38f0: 20 20 24 64 62 20 70 72 6f 67 72 65 73 73 20 3f $db progress ?
3900: 4e 20 43 41 4c 4c 42 41 43 4b 3f 0a 20 20 2a 2a N CALLBACK?. **
3910: 20 0a 20 20 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 . ** Invoke th
3920: 65 20 67 69 76 65 6e 20 63 61 6c 6c 62 61 63 6b e given callback
3930: 20 65 76 65 72 79 20 4e 20 76 69 72 74 75 61 6c every N virtual
3940: 20 6d 61 63 68 69 6e 65 20 6f 70 63 6f 64 65 73 machine opcodes
3950: 20 77 68 69 6c 65 20 65 78 65 63 75 74 69 6e 67 while executing
3960: 0a 20 20 2a 2a 20 71 75 65 72 69 65 73 2e 0a 20 . ** queries..
3970: 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 50 52 */. case DB_PR
3980: 4f 47 52 45 53 53 3a 20 7b 0a 20 20 20 20 69 66 OGRESS: {. if
3990: 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 20 ( objc==2 ){.
39a0: 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 50 72 6f if( pDb->zPro
39b0: 67 72 65 73 73 20 29 7b 0a 20 20 20 20 20 20 20 gress ){.
39c0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
39d0: 74 28 69 6e 74 65 72 70 2c 20 70 44 62 2d 3e 7a t(interp, pDb->z
39e0: 50 72 6f 67 72 65 73 73 2c 20 30 29 3b 0a 20 20 Progress, 0);.
39f0: 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 20 }. }else
3a00: 69 66 28 20 6f 62 6a 63 3d 3d 34 20 29 7b 0a 20 if( objc==4 ){.
3a10: 20 20 20 20 20 63 68 61 72 20 2a 7a 50 72 6f 67 char *zProg
3a20: 72 65 73 73 3b 0a 20 20 20 20 20 20 69 6e 74 20 ress;. int
3a30: 6c 65 6e 3b 0a 20 20 20 20 20 20 69 6e 74 20 4e len;. int N
3a40: 3b 0a 20 20 20 20 20 20 69 66 28 20 54 43 4c 5f ;. if( TCL_
3a50: 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 46 72 OK!=Tcl_GetIntFr
3a60: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
3a70: 6a 76 5b 32 5d 2c 20 26 4e 29 20 29 7b 0a 09 72 jv[2], &N) ){..r
3a80: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3a90: 0a 20 20 20 20 20 20 7d 3b 0a 20 20 20 20 20 20 . };.
3aa0: 69 66 28 20 70 44 62 2d 3e 7a 50 72 6f 67 72 65 if( pDb->zProgre
3ab0: 73 73 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 ss ){. Tc
3ac0: 6c 5f 46 72 65 65 28 70 44 62 2d 3e 7a 50 72 6f l_Free(pDb->zPro
3ad0: 67 72 65 73 73 29 3b 0a 20 20 20 20 20 20 7d 0a gress);. }.
3ae0: 20 20 20 20 20 20 7a 50 72 6f 67 72 65 73 73 20 zProgress
3af0: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
3b00: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 romObj(objv[3],
3b10: 26 6c 65 6e 29 3b 0a 20 20 20 20 20 20 69 66 28 &len);. if(
3b20: 20 7a 50 72 6f 67 72 65 73 73 20 26 26 20 6c 65 zProgress && le
3b30: 6e 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 70 n>0 ){. p
3b40: 44 62 2d 3e 7a 50 72 6f 67 72 65 73 73 20 3d 20 Db->zProgress =
3b50: 54 63 6c 5f 41 6c 6c 6f 63 28 20 6c 65 6e 20 2b Tcl_Alloc( len +
3b60: 20 31 20 29 3b 0a 20 20 20 20 20 20 20 20 73 74 1 );. st
3b70: 72 63 70 79 28 70 44 62 2d 3e 7a 50 72 6f 67 72 rcpy(pDb->zProgr
3b80: 65 73 73 2c 20 7a 50 72 6f 67 72 65 73 73 29 3b ess, zProgress);
3b90: 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 . }else{.
3ba0: 20 20 20 20 20 20 70 44 62 2d 3e 7a 50 72 6f 67 pDb->zProg
3bb0: 72 65 73 73 20 3d 20 30 3b 0a 20 20 20 20 20 20 ress = 0;.
3bc0: 7d 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 }.#ifndef SQLITE
3bd0: 5f 4f 4d 49 54 5f 50 52 4f 47 52 45 53 53 5f 43 _OMIT_PROGRESS_C
3be0: 41 4c 4c 42 41 43 4b 0a 20 20 20 20 20 20 69 66 ALLBACK. if
3bf0: 28 20 70 44 62 2d 3e 7a 50 72 6f 67 72 65 73 73 ( pDb->zProgress
3c00: 20 29 7b 0a 20 20 20 20 20 20 20 20 70 44 62 2d ){. pDb-
3c10: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
3c20: 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 ;. sqlite
3c30: 33 5f 70 72 6f 67 72 65 73 73 5f 68 61 6e 64 6c 3_progress_handl
3c40: 65 72 28 70 44 62 2d 3e 64 62 2c 20 4e 2c 20 44 er(pDb->db, N, D
3c50: 62 50 72 6f 67 72 65 73 73 48 61 6e 64 6c 65 72 bProgressHandler
3c60: 2c 20 70 44 62 29 3b 0a 20 20 20 20 20 20 7d 65 , pDb);. }e
3c70: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 73 71 6c lse{. sql
3c80: 69 74 65 33 5f 70 72 6f 67 72 65 73 73 5f 68 61 ite3_progress_ha
3c90: 6e 64 6c 65 72 28 70 44 62 2d 3e 64 62 2c 20 30 ndler(pDb->db, 0
3ca0: 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d , 0, 0);. }
3cb0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 65 6c 73 .#endif. }els
3cc0: 65 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f e{. Tcl_Wro
3cd0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
3ce0: 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 4e 20 43 41 , 2, objv, "N CA
3cf0: 4c 4c 42 41 43 4b 22 29 3b 0a 20 20 20 20 20 20 LLBACK");.
3d00: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3d10: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 62 72 65 61 ;. }. brea
3d20: 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20 2a k;. }.. /*. *
3d30: 2a 20 20 20 20 20 24 64 62 20 63 68 61 6e 67 65 * $db change
3d40: 73 0a 20 20 2a 2a 0a 20 20 2a 2a 20 52 65 74 75 s. **. ** Retu
3d50: 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 rn the number of
3d60: 20 72 6f 77 73 20 74 68 61 74 20 77 65 72 65 20 rows that were
3d70: 6d 6f 64 69 66 69 65 64 2c 20 69 6e 73 65 72 74 modified, insert
3d80: 65 64 2c 20 6f 72 20 64 65 6c 65 74 65 64 20 62 ed, or deleted b
3d90: 79 0a 20 20 2a 2a 20 74 68 65 20 6d 6f 73 74 20 y. ** the most
3da0: 72 65 63 65 6e 74 20 22 65 76 61 6c 22 2e 0a 20 recent "eval"..
3db0: 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 43 48 */. case DB_CH
3dc0: 41 4e 47 45 53 3a 20 7b 0a 20 20 20 20 54 63 6c ANGES: {. Tcl
3dd0: 5f 4f 62 6a 20 2a 70 52 65 73 75 6c 74 3b 0a 20 _Obj *pResult;.
3de0: 20 20 20 69 6e 74 20 6e 43 68 61 6e 67 65 3b 0a int nChange;.
3df0: 20 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 if( objc!=2
3e00: 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f ){. Tcl_Wro
3e10: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
3e20: 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 22 29 3b 0a , 2, objv, "");.
3e30: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c return TCL
3e40: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
3e50: 20 20 2f 2a 20 6e 43 68 61 6e 67 65 20 3d 20 73 /* nChange = s
3e60: 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 28 70 qlite3_changes(p
3e70: 44 62 2d 3e 64 62 29 3b 20 2a 2f 0a 20 20 20 20 Db->db); */.
3e80: 6e 43 68 61 6e 67 65 20 3d 20 70 44 62 2d 3e 6e nChange = pDb->n
3e90: 43 68 61 6e 67 65 3b 0a 20 20 20 20 70 52 65 73 Change;. pRes
3ea0: 75 6c 74 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a ult = Tcl_GetObj
3eb0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
3ec0: 20 20 20 20 54 63 6c 5f 53 65 74 49 6e 74 4f 62 Tcl_SetIntOb
3ed0: 6a 28 70 52 65 73 75 6c 74 2c 20 6e 43 68 61 6e j(pResult, nChan
3ee0: 67 65 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a ge);. break;.
3ef0: 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20 2a 2a 20 20 }.. /*. **
3f00: 20 20 20 24 64 62 20 6c 61 73 74 5f 73 74 61 74 $db last_stat
3f10: 65 6d 65 6e 74 5f 63 68 61 6e 67 65 73 0a 20 20 ement_changes.
3f20: 2a 2a 0a 20 20 2a 2a 20 52 65 74 75 72 6e 20 74 **. ** Return t
3f30: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 72 6f 77 he number of row
3f40: 73 20 74 68 61 74 20 77 65 72 65 20 6d 6f 64 69 s that were modi
3f50: 66 69 65 64 2c 20 69 6e 73 65 72 74 65 64 2c 20 fied, inserted,
3f60: 6f 72 20 64 65 6c 65 74 65 64 20 62 79 0a 20 20 or deleted by.
3f70: 2a 2a 20 74 68 65 20 6c 61 73 74 20 73 74 61 74 ** the last stat
3f80: 6d 65 6e 74 20 74 6f 20 63 6f 6d 70 6c 65 74 65 ment to complete
3f90: 20 65 78 65 63 75 74 69 6f 6e 20 28 65 78 63 6c execution (excl
3fa0: 75 64 69 6e 67 20 63 68 61 6e 67 65 73 20 64 75 uding changes du
3fb0: 65 20 74 6f 0a 20 20 2a 2a 20 74 72 69 67 67 65 e to. ** trigge
3fc0: 72 73 29 0a 20 20 2a 2f 0a 20 20 63 61 73 65 20 rs). */. case
3fd0: 44 42 5f 4c 41 53 54 5f 53 54 41 54 45 4d 45 4e DB_LAST_STATEMEN
3fe0: 54 5f 43 48 41 4e 47 45 53 3a 20 7b 0a 20 20 20 T_CHANGES: {.
3ff0: 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 73 75 6c Tcl_Obj *pResul
4000: 74 3b 0a 20 20 20 20 69 6e 74 20 6c 73 43 68 61 t;. int lsCha
4010: 6e 67 65 3b 0a 20 20 20 20 69 66 28 20 6f 62 6a nge;. if( obj
4020: 63 21 3d 32 20 29 7b 0a 20 20 20 20 20 20 54 63 c!=2 ){. Tc
4030: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
4040: 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 nterp, 2, objv,
4050: 22 22 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 "");. retur
4060: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
4070: 20 7d 0a 20 20 20 20 6c 73 43 68 61 6e 67 65 20 }. lsChange
4080: 3d 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 73 = sqlite3_last_s
4090: 74 61 74 65 6d 65 6e 74 5f 63 68 61 6e 67 65 73 tatement_changes
40a0: 28 70 44 62 2d 3e 64 62 29 3b 0a 20 20 20 20 70 (pDb->db);. p
40b0: 52 65 73 75 6c 74 20 3d 20 54 63 6c 5f 47 65 74 Result = Tcl_Get
40c0: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
40d0: 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 49 6e );. Tcl_SetIn
40e0: 74 4f 62 6a 28 70 52 65 73 75 6c 74 2c 20 6c 73 tObj(pResult, ls
40f0: 43 68 61 6e 67 65 29 3b 0a 20 20 20 20 62 72 65 Change);. bre
4100: 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 20 20 ak;. }.. /*
4110: 20 24 64 62 20 63 6c 6f 73 65 0a 20 20 2a 2a 0a $db close. **.
4120: 20 20 2a 2a 20 53 68 75 74 64 6f 77 6e 20 74 68 ** Shutdown th
4130: 65 20 64 61 74 61 62 61 73 65 0a 20 20 2a 2f 0a e database. */.
4140: 20 20 63 61 73 65 20 44 42 5f 43 4c 4f 53 45 3a case DB_CLOSE:
4150: 20 7b 0a 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 {. Tcl_Delet
4160: 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c eCommand(interp,
4170: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
4180: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 omObj(objv[0], 0
4190: 29 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 ));. break;.
41a0: 20 7d 0a 0a 20 20 2f 2a 20 20 20 20 24 64 62 20 }.. /* $db
41b0: 63 6f 6d 6d 69 74 5f 68 6f 6f 6b 20 3f 43 41 4c commit_hook ?CAL
41c0: 4c 42 41 43 4b 3f 0a 20 20 2a 2a 0a 20 20 2a 2a LBACK?. **. **
41d0: 20 49 6e 76 6f 6b 65 20 74 68 65 20 67 69 76 65 Invoke the give
41e0: 6e 20 63 61 6c 6c 62 61 63 6b 20 6a 75 73 74 20 n callback just
41f0: 62 65 66 6f 72 65 20 63 6f 6d 6d 69 74 74 69 6e before committin
4200: 67 20 65 76 65 72 79 20 53 51 4c 20 74 72 61 6e g every SQL tran
4210: 73 61 63 74 69 6f 6e 2e 0a 20 20 2a 2a 20 49 66 saction.. ** If
4220: 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 74 68 the callback th
4230: 72 6f 77 73 20 61 6e 20 65 78 63 65 70 74 69 6f rows an exceptio
4240: 6e 20 6f 72 20 72 65 74 75 72 6e 73 20 6e 6f 6e n or returns non
4250: 2d 7a 65 72 6f 2c 20 74 68 65 6e 20 74 68 65 0a -zero, then the.
4260: 20 20 2a 2a 20 74 72 61 6e 73 61 63 74 69 6f 6e ** transaction
4270: 20 69 73 20 61 62 6f 72 74 65 64 2e 20 20 49 66 is aborted. If
4280: 20 43 41 4c 4c 42 41 43 4b 20 69 73 20 61 6e 20 CALLBACK is an
4290: 65 6d 70 74 79 20 73 74 72 69 6e 67 2c 20 74 68 empty string, th
42a0: 65 20 63 61 6c 6c 62 61 63 6b 0a 20 20 2a 2a 20 e callback. **
42b0: 69 73 20 64 69 73 61 62 6c 65 64 2e 0a 20 20 2a is disabled.. *
42c0: 2f 0a 20 20 63 61 73 65 20 44 42 5f 43 4f 4d 4d /. case DB_COMM
42d0: 49 54 5f 48 4f 4f 4b 3a 20 7b 0a 20 20 20 20 69 IT_HOOK: {. i
42e0: 66 28 20 6f 62 6a 63 3e 33 20 29 7b 0a 20 20 20 f( objc>3 ){.
42f0: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 Tcl_WrongNumA
4300: 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f rgs(interp, 2, o
4310: 62 6a 76 2c 20 22 3f 43 41 4c 4c 42 41 43 4b 3f bjv, "?CALLBACK?
4320: 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 ");. }else if
4330: 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 20 ( objc==2 ){.
4340: 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 43 6f 6d if( pDb->zCom
4350: 6d 69 74 20 29 7b 0a 20 20 20 20 20 20 20 20 54 mit ){. T
4360: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
4370: 69 6e 74 65 72 70 2c 20 70 44 62 2d 3e 7a 43 6f interp, pDb->zCo
4380: 6d 6d 69 74 2c 20 30 29 3b 0a 20 20 20 20 20 20 mmit, 0);.
4390: 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 }. }else{.
43a0: 20 20 20 63 68 61 72 20 2a 7a 43 6f 6d 6d 69 74 char *zCommit
43b0: 3b 0a 20 20 20 20 20 20 69 6e 74 20 6c 65 6e 3b ;. int len;
43c0: 0a 20 20 20 20 20 20 69 66 28 20 70 44 62 2d 3e . if( pDb->
43d0: 7a 43 6f 6d 6d 69 74 20 29 7b 0a 20 20 20 20 20 zCommit ){.
43e0: 20 20 20 54 63 6c 5f 46 72 65 65 28 70 44 62 2d Tcl_Free(pDb-
43f0: 3e 7a 43 6f 6d 6d 69 74 29 3b 0a 20 20 20 20 20 >zCommit);.
4400: 20 7d 0a 20 20 20 20 20 20 7a 43 6f 6d 6d 69 74 }. zCommit
4410: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
4420: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c FromObj(objv[2],
4430: 20 26 6c 65 6e 29 3b 0a 20 20 20 20 20 20 69 66 &len);. if
4440: 28 20 7a 43 6f 6d 6d 69 74 20 26 26 20 6c 65 6e ( zCommit && len
4450: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 70 44 >0 ){. pD
4460: 62 2d 3e 7a 43 6f 6d 6d 69 74 20 3d 20 54 63 6c b->zCommit = Tcl
4470: 5f 41 6c 6c 6f 63 28 20 6c 65 6e 20 2b 20 31 20 _Alloc( len + 1
4480: 29 3b 0a 20 20 20 20 20 20 20 20 73 74 72 63 70 );. strcp
4490: 79 28 70 44 62 2d 3e 7a 43 6f 6d 6d 69 74 2c 20 y(pDb->zCommit,
44a0: 7a 43 6f 6d 6d 69 74 29 3b 0a 20 20 20 20 20 20 zCommit);.
44b0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 70 }else{. p
44c0: 44 62 2d 3e 7a 43 6f 6d 6d 69 74 20 3d 20 30 3b Db->zCommit = 0;
44d0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 . }. i
44e0: 66 28 20 70 44 62 2d 3e 7a 43 6f 6d 6d 69 74 20 f( pDb->zCommit
44f0: 29 7b 0a 20 20 20 20 20 20 20 20 70 44 62 2d 3e ){. pDb->
4500: 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b interp = interp;
4510: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 . sqlite3
4520: 5f 63 6f 6d 6d 69 74 5f 68 6f 6f 6b 28 70 44 62 _commit_hook(pDb
4530: 2d 3e 64 62 2c 20 44 62 43 6f 6d 6d 69 74 48 61 ->db, DbCommitHa
4540: 6e 64 6c 65 72 2c 20 70 44 62 29 3b 0a 20 20 20 ndler, pDb);.
4550: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
4560: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6d 6d 69 74 sqlite3_commit
4570: 5f 68 6f 6f 6b 28 70 44 62 2d 3e 64 62 2c 20 30 _hook(pDb->db, 0
4580: 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 , 0);. }.
4590: 20 20 7d 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 }. break;.
45a0: 20 7d 0a 0a 20 20 2f 2a 20 20 20 20 24 64 62 20 }.. /* $db
45b0: 63 6f 6d 70 6c 65 74 65 20 53 51 4c 0a 20 20 2a complete SQL. *
45c0: 2a 0a 20 20 2a 2a 20 52 65 74 75 72 6e 20 54 52 *. ** Return TR
45d0: 55 45 20 69 66 20 53 51 4c 20 69 73 20 61 20 63 UE if SQL is a c
45e0: 6f 6d 70 6c 65 74 65 20 53 51 4c 20 73 74 61 74 omplete SQL stat
45f0: 65 6d 65 6e 74 2e 20 20 52 65 74 75 72 6e 20 46 ement. Return F
4600: 41 4c 53 45 20 69 66 0a 20 20 2a 2a 20 61 64 64 ALSE if. ** add
4610: 69 74 69 6f 6e 61 6c 20 6c 69 6e 65 73 20 6f 66 itional lines of
4620: 20 69 6e 70 75 74 20 61 72 65 20 6e 65 65 64 65 input are neede
4630: 64 2e 20 20 54 68 69 73 20 69 73 20 73 69 6d 69 d. This is simi
4640: 6c 61 72 20 74 6f 20 74 68 65 0a 20 20 2a 2a 20 lar to the. **
4650: 62 75 69 6c 74 2d 69 6e 20 22 69 6e 66 6f 20 63 built-in "info c
4660: 6f 6d 70 6c 65 74 65 22 20 63 6f 6d 6d 61 6e 64 omplete" command
4670: 20 6f 66 20 54 63 6c 2e 0a 20 20 2a 2f 0a 20 20 of Tcl.. */.
4680: 63 61 73 65 20 44 42 5f 43 4f 4d 50 4c 45 54 45 case DB_COMPLETE
4690: 3a 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 : {. Tcl_Obj
46a0: 2a 70 52 65 73 75 6c 74 3b 0a 20 20 20 20 69 6e *pResult;. in
46b0: 74 20 69 73 43 6f 6d 70 6c 65 74 65 3b 0a 20 20 t isComplete;.
46c0: 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b if( objc!=3 ){
46d0: 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 . Tcl_Wrong
46e0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
46f0: 32 2c 20 6f 62 6a 76 2c 20 22 53 51 4c 22 29 3b 2, objv, "SQL");
4700: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 . return TC
4710: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
4720: 20 20 20 69 73 43 6f 6d 70 6c 65 74 65 20 3d 20 isComplete =
4730: 73 71 6c 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 sqlite3_complete
4740: 28 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 ( Tcl_GetStringF
4750: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 romObj(objv[2],
4760: 30 29 20 29 3b 0a 20 20 20 20 70 52 65 73 75 6c 0) );. pResul
4770: 74 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 t = Tcl_GetObjRe
4780: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
4790: 20 20 54 63 6c 5f 53 65 74 42 6f 6f 6c 65 61 6e Tcl_SetBoolean
47a0: 4f 62 6a 28 70 52 65 73 75 6c 74 2c 20 69 73 43 Obj(pResult, isC
47b0: 6f 6d 70 6c 65 74 65 29 3b 0a 20 20 20 20 62 72 omplete);. br
47c0: 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 eak;. }.. /*.
47d0: 20 2a 2a 20 20 20 20 24 64 62 20 65 72 72 6f 72 ** $db error
47e0: 63 6f 64 65 0a 20 20 2a 2a 0a 20 20 2a 2a 20 52 code. **. ** R
47f0: 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 65 72 69 eturn the numeri
4800: 63 20 65 72 72 6f 72 20 63 6f 64 65 20 74 68 61 c error code tha
4810: 74 20 77 61 73 20 72 65 74 75 72 6e 65 64 20 62 t was returned b
4820: 79 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e y the most recen
4830: 74 0a 20 20 2a 2a 20 63 61 6c 6c 20 74 6f 20 73 t. ** call to s
4840: 71 6c 69 74 65 33 5f 65 78 65 63 28 29 2e 0a 20 qlite3_exec()..
4850: 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 45 52 */. case DB_ER
4860: 52 4f 52 43 4f 44 45 3a 20 7b 0a 20 20 20 20 54 RORCODE: {. T
4870: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
4880: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 interp, Tcl_NewI
4890: 6e 74 4f 62 6a 28 70 44 62 2d 3e 72 63 29 29 3b ntObj(pDb->rc));
48a0: 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a . break;. }.
48b0: 20 20 20 0a 20 20 2f 2a 0a 20 20 2a 2a 20 20 20 . /*. **
48c0: 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c 20 3f $db eval $sql ?
48d0: 61 72 72 61 79 20 7b 20 20 2e 2e 2e 63 6f 64 65 array { ...code
48e0: 2e 2e 2e 20 7d 3f 0a 20 20 2a 2a 0a 20 20 2a 2a ... }?. **. **
48f0: 20 54 68 65 20 53 51 4c 20 73 74 61 74 65 6d 65 The SQL stateme
4900: 6e 74 20 69 6e 20 24 73 71 6c 20 69 73 20 65 76 nt in $sql is ev
4910: 61 6c 75 61 74 65 64 2e 20 20 46 6f 72 20 65 61 aluated. For ea
4920: 63 68 20 72 6f 77 2c 20 74 68 65 20 76 61 6c 75 ch row, the valu
4930: 65 73 20 61 72 65 0a 20 20 2a 2a 20 70 6c 61 63 es are. ** plac
4940: 65 64 20 69 6e 20 65 6c 65 6d 65 6e 74 73 20 6f ed in elements o
4950: 66 20 74 68 65 20 61 72 72 61 79 20 6e 61 6d 65 f the array name
4960: 64 20 22 61 72 72 61 79 22 20 61 6e 64 20 2e 2e d "array" and ..
4970: 2e 63 6f 64 65 2e 2e 2e 20 69 73 20 65 78 65 63 .code... is exec
4980: 75 74 65 64 2e 0a 20 20 2a 2a 20 49 66 20 22 61 uted.. ** If "a
4990: 72 72 61 79 22 20 61 6e 64 20 22 63 6f 64 65 22 rray" and "code"
49a0: 20 61 72 65 20 6f 6d 69 74 74 65 64 2c 20 74 68 are omitted, th
49b0: 65 6e 20 6e 6f 20 63 61 6c 6c 62 61 63 6b 20 69 en no callback i
49c0: 73 20 65 76 65 72 79 20 69 6e 76 6f 6b 65 64 2e s every invoked.
49d0: 0a 20 20 2a 2a 20 49 66 20 22 61 72 72 61 79 22 . ** If "array"
49e0: 20 69 73 20 61 6e 20 65 6d 70 74 79 20 73 74 72 is an empty str
49f0: 69 6e 67 2c 20 74 68 65 6e 20 74 68 65 20 76 61 ing, then the va
4a00: 6c 75 65 73 20 61 72 65 20 70 6c 61 63 65 64 20 lues are placed
4a10: 69 6e 20 76 61 72 69 61 62 6c 65 73 0a 20 20 2a in variables. *
4a20: 2a 20 74 68 61 74 20 68 61 76 65 20 74 68 65 20 * that have the
4a30: 73 61 6d 65 20 6e 61 6d 65 20 61 73 20 74 68 65 same name as the
4a40: 20 66 69 65 6c 64 73 20 65 78 74 72 61 63 74 65 fields extracte
4a50: 64 20 62 79 20 74 68 65 20 71 75 65 72 79 2e 0a d by the query..
4a60: 20 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 45 */. case DB_E
4a70: 56 41 4c 3a 20 7b 0a 20 20 20 20 63 68 61 72 20 VAL: {. char
4a80: 63 6f 6e 73 74 20 2a 7a 53 71 6c 3b 0a 20 20 20 const *zSql;.
4a90: 20 63 68 61 72 20 63 6f 6e 73 74 20 2a 7a 4c 65 char const *zLe
4aa0: 66 74 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f ft;. sqlite3_
4ab0: 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 stmt *pStmt;..
4ac0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 20 Tcl_Obj *pRet
4ad0: 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a = Tcl_NewObj();.
4ae0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
4af0: 6f 75 6e 74 28 70 52 65 74 29 3b 0a 0a 20 20 20 ount(pRet);..
4b00: 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 26 26 20 if( objc!=5 &&
4b10: 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 20 objc!=3 ){.
4b20: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
4b30: 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a s(interp, 2, obj
4b40: 76 2c 20 22 53 51 4c 20 3f 41 52 52 41 59 2d 4e v, "SQL ?ARRAY-N
4b50: 41 4d 45 20 43 4f 44 45 3f 22 29 3b 0a 20 20 20 AME CODE?");.
4b60: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
4b70: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
4b80: 70 44 62 2d 3e 6e 43 68 61 6e 67 65 20 3d 20 30 pDb->nChange = 0
4b90: 3b 0a 20 20 20 20 7a 53 71 6c 20 3d 20 54 63 6c ;. zSql = Tcl
4ba0: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
4bb0: 6a 28 6f 62 6a 76 5b 32 5d 2c 20 30 29 3b 0a 20 j(objv[2], 0);.
4bc0: 20 20 20 77 68 69 6c 65 28 20 7a 53 71 6c 5b 30 while( zSql[0
4bd0: 5d 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 69 ] ){. int i
4be0: 3b 0a 20 20 0a 20 20 20 20 20 20 69 66 28 20 53 ;. . if( S
4bf0: 51 4c 49 54 45 5f 4f 4b 21 3d 73 71 6c 69 74 65 QLITE_OK!=sqlite
4c00: 33 5f 70 72 65 70 61 72 65 28 70 44 62 2d 3e 64 3_prepare(pDb->d
4c10: 62 2c 20 7a 53 71 6c 2c 20 2d 31 2c 20 26 70 53 b, zSql, -1, &pS
4c20: 74 6d 74 2c 20 26 7a 4c 65 66 74 29 20 29 7b 0a tmt, &zLeft) ){.
4c30: 20 20 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f Tcl_SetO
4c40: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
4c50: 20 64 62 54 65 78 74 54 6f 4f 62 6a 28 73 71 6c dbTextToObj(sql
4c60: 69 74 65 33 5f 65 72 72 6d 73 67 28 70 44 62 2d ite3_errmsg(pDb-
4c70: 3e 64 62 29 29 29 3b 0a 20 20 20 20 20 20 20 20 >db)));.
4c80: 72 63 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a rc = TCL_ERROR;.
4c90: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
4ca0: 20 20 20 20 20 7d 0a 20 20 0a 20 20 20 20 20 20 }. .
4cb0: 69 66 28 20 70 53 74 6d 74 20 26 26 20 6f 62 6a if( pStmt && obj
4cc0: 63 3d 3d 35 20 29 7b 0a 20 20 20 20 20 20 20 20 c==5 ){.
4cd0: 54 63 6c 5f 4f 62 6a 20 2a 70 43 6f 6c 4c 69 73 Tcl_Obj *pColLis
4ce0: 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 t = Tcl_NewObj()
4cf0: 3b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 49 6e ;. Tcl_In
4d00: 63 72 52 65 66 43 6f 75 6e 74 28 70 43 6f 6c 4c crRefCount(pColL
4d10: 69 73 74 29 3b 0a 0a 20 20 20 20 20 20 20 20 66 ist);.. f
4d20: 6f 72 28 69 3d 30 3b 20 69 3c 73 71 6c 69 74 65 or(i=0; i<sqlite
4d30: 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 28 70 3_column_count(p
4d40: 53 74 6d 74 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 Stmt); i++){.
4d50: 20 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f Tcl_ListO
4d60: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
4d70: 69 6e 74 65 72 70 2c 20 70 43 6f 6c 4c 69 73 74 interp, pColList
4d80: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
4d90: 64 62 54 65 78 74 54 6f 4f 62 6a 28 73 71 6c 69 dbTextToObj(sqli
4da0: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 28 te3_column_name(
4db0: 70 53 74 6d 74 2c 20 69 29 29 0a 20 20 20 20 20 pStmt, i)).
4dc0: 20 20 20 20 20 29 3b 0a 20 20 20 20 20 20 20 20 );.
4dd0: 7d 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4f 62 }. Tcl_Ob
4de0: 6a 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c jSetVar2(interp,
4df0: 6f 62 6a 76 5b 33 5d 2c 54 63 6c 5f 4e 65 77 53 objv[3],Tcl_NewS
4e00: 74 72 69 6e 67 4f 62 6a 28 22 2a 22 2c 2d 31 29 tringObj("*",-1)
4e10: 2c 70 43 6f 6c 4c 69 73 74 2c 30 29 3b 0a 20 20 ,pColList,0);.
4e20: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 77 68 69 }.. whi
4e30: 6c 65 28 20 70 53 74 6d 74 20 26 26 20 53 51 4c le( pStmt && SQL
4e40: 49 54 45 5f 52 4f 57 3d 3d 73 71 6c 69 74 65 33 ITE_ROW==sqlite3
4e50: 5f 73 74 65 70 28 70 53 74 6d 74 29 20 29 7b 0a _step(pStmt) ){.
4e60: 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b for(i=0;
4e70: 20 69 3c 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d i<sqlite3_colum
4e80: 6e 5f 63 6f 75 6e 74 28 70 53 74 6d 74 29 3b 20 n_count(pStmt);
4e90: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 i++){.
4ea0: 54 63 6c 5f 4f 62 6a 20 2a 70 56 61 6c 3b 0a 20 Tcl_Obj *pVal;.
4eb0: 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 .
4ec0: 20 20 20 20 2f 2a 20 53 65 74 20 70 56 61 6c 20 /* Set pVal
4ed0: 74 6f 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 69 to contain the i
4ee0: 27 74 68 20 63 6f 6c 75 6d 6e 20 6f 66 20 74 68 'th column of th
4ef0: 69 73 20 72 6f 77 2e 20 2a 2f 0a 20 20 20 20 20 is row. */.
4f00: 20 20 20 20 20 69 66 28 20 53 51 4c 49 54 45 5f if( SQLITE_
4f10: 42 4c 4f 42 21 3d 73 71 6c 69 74 65 33 5f 63 6f BLOB!=sqlite3_co
4f20: 6c 75 6d 6e 5f 74 79 70 65 28 70 53 74 6d 74 2c lumn_type(pStmt,
4f30: 20 69 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 i) ){.
4f40: 20 20 20 70 56 61 6c 20 3d 20 64 62 54 65 78 74 pVal = dbText
4f50: 54 6f 4f 62 6a 28 73 71 6c 69 74 65 33 5f 63 6f ToObj(sqlite3_co
4f60: 6c 75 6d 6e 5f 74 65 78 74 28 70 53 74 6d 74 2c lumn_text(pStmt,
4f70: 20 69 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 i));.
4f80: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 }else{.
4f90: 20 20 20 69 6e 74 20 62 79 74 65 73 20 3d 20 73 int bytes = s
4fa0: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 qlite3_column_by
4fb0: 74 65 73 28 70 53 74 6d 74 2c 20 69 29 3b 0a 20 tes(pStmt, i);.
4fc0: 20 20 20 20 20 20 20 20 20 20 20 70 56 61 6c 20 pVal
4fd0: 3d 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 = Tcl_NewByteArr
4fe0: 61 79 4f 62 6a 28 73 71 6c 69 74 65 33 5f 63 6f ayObj(sqlite3_co
4ff0: 6c 75 6d 6e 5f 62 6c 6f 62 28 70 53 74 6d 74 2c lumn_blob(pStmt,
5000: 20 69 29 2c 20 62 79 74 65 73 29 3b 0a 20 20 20 i), bytes);.
5010: 20 20 20 20 20 20 20 7d 0a 20 20 0a 20 20 20 20 }. .
5020: 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d if( objc==
5030: 35 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 5 ){.
5040: 20 54 63 6c 5f 4f 62 6a 20 2a 70 4e 61 6d 65 20 Tcl_Obj *pName
5050: 3d 20 64 62 54 65 78 74 54 6f 4f 62 6a 28 73 71 = dbTextToObj(sq
5060: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d lite3_column_nam
5070: 65 28 70 53 74 6d 74 2c 20 69 29 29 3b 0a 20 20 e(pStmt, i));.
5080: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 49 6e Tcl_In
5090: 63 72 52 65 66 43 6f 75 6e 74 28 70 4e 61 6d 65 crRefCount(pName
50a0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 );. i
50b0: 66 28 20 21 73 74 72 63 6d 70 28 22 22 2c 20 54 f( !strcmp("", T
50c0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
50d0: 76 5b 33 5d 29 29 20 29 7b 0a 20 20 20 20 20 20 v[3])) ){.
50e0: 20 20 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 53 Tcl_ObjS
50f0: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 70 etVar2(interp, p
5100: 4e 61 6d 65 2c 20 30 2c 20 70 56 61 6c 2c 20 30 Name, 0, pVal, 0
5110: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d );. }
5120: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 else{.
5130: 20 20 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 Tcl_ObjSetVa
5140: 72 32 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b r2(interp, objv[
5150: 33 5d 2c 20 70 4e 61 6d 65 2c 20 70 56 61 6c 2c 3], pName, pVal,
5160: 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 0);.
5170: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 }. T
5180: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
5190: 70 4e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 pName);.
51a0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
51b0: 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a Tcl_ListObj
51c0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
51d0: 74 65 72 70 2c 20 70 52 65 74 2c 20 70 56 61 6c terp, pRet, pVal
51e0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 );. }.
51f0: 20 20 20 20 20 20 20 7d 0a 20 20 0a 20 20 20 20 }. .
5200: 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 35 20 if( objc==5
5210: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 63 20 ){. rc
5220: 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 = Tcl_EvalObjEx(
5230: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c interp, objv[4],
5240: 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 0);. i
5250: 66 28 20 72 63 21 3d 54 43 4c 5f 45 52 52 4f 52 f( rc!=TCL_ERROR
5260: 20 29 20 72 63 20 3d 20 54 43 4c 5f 4f 4b 3b 0a ) rc = TCL_OK;.
5270: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
5280: 7d 0a 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 }. .
5290: 69 66 28 20 70 53 74 6d 74 20 26 26 20 53 51 4c if( pStmt && SQL
52a0: 49 54 45 5f 53 43 48 45 4d 41 3d 3d 73 71 6c 69 ITE_SCHEMA==sqli
52b0: 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70 53 74 te3_finalize(pSt
52c0: 6d 74 29 20 29 7b 0a 20 20 20 20 20 20 20 20 63 mt) ){. c
52d0: 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 7d ontinue;. }
52e0: 0a 20 20 0a 20 20 20 20 20 20 69 66 28 20 70 53 . . if( pS
52f0: 74 6d 74 20 26 26 20 53 51 4c 49 54 45 5f 4f 4b tmt && SQLITE_OK
5300: 21 3d 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 !=sqlite3_errcod
5310: 65 28 70 44 62 2d 3e 64 62 29 20 29 7b 0a 20 20 e(pDb->db) ){.
5320: 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a Tcl_SetObj
5330: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 64 Result(interp, d
5340: 62 54 65 78 74 54 6f 4f 62 6a 28 73 71 6c 69 74 bTextToObj(sqlit
5350: 65 33 5f 65 72 72 6d 73 67 28 70 44 62 2d 3e 64 e3_errmsg(pDb->d
5360: 62 29 29 29 3b 0a 20 20 20 20 20 20 20 20 72 63 b)));. rc
5370: 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 = TCL_ERROR;.
5380: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
5390: 20 20 20 7d 0a 0a 20 20 20 20 20 20 70 44 62 2d }.. pDb-
53a0: 3e 6e 43 68 61 6e 67 65 20 2b 3d 20 73 71 6c 69 >nChange += sqli
53b0: 74 65 33 5f 63 68 61 6e 67 65 73 28 70 44 62 2d te3_changes(pDb-
53c0: 3e 64 62 29 3b 0a 20 20 20 20 20 20 7a 53 71 6c >db);. zSql
53d0: 20 3d 20 7a 4c 65 66 74 3b 0a 20 20 20 20 7d 0a = zLeft;. }.
53e0: 0a 20 20 20 20 69 66 28 20 72 63 3d 3d 54 43 4c . if( rc==TCL
53f0: 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 54 63 6c _OK ){. Tcl
5400: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
5410: 74 65 72 70 2c 20 70 52 65 74 29 3b 0a 20 20 20 terp, pRet);.
5420: 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 }. Tcl_DecrR
5430: 65 66 43 6f 75 6e 74 28 70 52 65 74 29 3b 0a 0a efCount(pRet);..
5440: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a break;. }..
5450: 20 20 2f 2a 0a 20 20 2a 2a 20 20 20 20 20 24 64 /*. ** $d
5460: 62 20 66 75 6e 63 74 69 6f 6e 20 4e 41 4d 45 20 b function NAME
5470: 53 43 52 49 50 54 0a 20 20 2a 2a 0a 20 20 2a 2a SCRIPT. **. **
5480: 20 43 72 65 61 74 65 20 61 20 6e 65 77 20 53 51 Create a new SQ
5490: 4c 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 65 L function calle
54a0: 64 20 4e 41 4d 45 2e 20 20 57 68 65 6e 65 76 65 d NAME. Wheneve
54b0: 72 20 74 68 61 74 20 66 75 6e 63 74 69 6f 6e 20 r that function
54c0: 69 73 0a 20 20 2a 2a 20 63 61 6c 6c 65 64 2c 20 is. ** called,
54d0: 69 6e 76 6f 6b 65 20 53 43 52 49 50 54 20 74 6f invoke SCRIPT to
54e0: 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 66 75 evaluate the fu
54f0: 6e 63 74 69 6f 6e 2e 0a 20 20 2a 2f 0a 20 20 63 nction.. */. c
5500: 61 73 65 20 44 42 5f 46 55 4e 43 54 49 4f 4e 3a ase DB_FUNCTION:
5510: 20 7b 0a 20 20 20 20 53 71 6c 46 75 6e 63 20 2a {. SqlFunc *
5520: 70 46 75 6e 63 3b 0a 20 20 20 20 63 68 61 72 20 pFunc;. char
5530: 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 63 68 61 72 *zName;. char
5540: 20 2a 7a 53 63 72 69 70 74 3b 0a 20 20 20 20 69 *zScript;. i
5550: 6e 74 20 6e 53 63 72 69 70 74 3b 0a 20 20 20 20 nt nScript;.
5560: 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 if( objc!=4 ){.
5570: 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 Tcl_WrongNu
5580: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c mArgs(interp, 2,
5590: 20 6f 62 6a 76 2c 20 22 4e 41 4d 45 20 53 43 52 objv, "NAME SCR
55a0: 49 50 54 22 29 3b 0a 20 20 20 20 20 20 72 65 74 IPT");. ret
55b0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
55c0: 20 20 20 7d 0a 20 20 20 20 7a 4e 61 6d 65 20 3d }. zName =
55d0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
55e0: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 30 omObj(objv[2], 0
55f0: 29 3b 0a 20 20 20 20 7a 53 63 72 69 70 74 20 3d );. zScript =
5600: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
5610: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 omObj(objv[3], &
5620: 6e 53 63 72 69 70 74 29 3b 0a 20 20 20 20 70 46 nScript);. pF
5630: 75 6e 63 20 3d 20 28 53 71 6c 46 75 6e 63 2a 29 unc = (SqlFunc*)
5640: 54 63 6c 5f 41 6c 6c 6f 63 28 20 73 69 7a 65 6f Tcl_Alloc( sizeo
5650: 66 28 2a 70 46 75 6e 63 29 20 2b 20 6e 53 63 72 f(*pFunc) + nScr
5660: 69 70 74 20 2b 20 31 20 29 3b 0a 20 20 20 20 69 ipt + 1 );. i
5670: 66 28 20 70 46 75 6e 63 3d 3d 30 20 29 20 72 65 f( pFunc==0 ) re
5680: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5690: 20 20 20 20 70 46 75 6e 63 2d 3e 69 6e 74 65 72 pFunc->inter
56a0: 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 p = interp;.
56b0: 70 46 75 6e 63 2d 3e 70 4e 65 78 74 20 3d 20 70 pFunc->pNext = p
56c0: 44 62 2d 3e 70 46 75 6e 63 3b 0a 20 20 20 20 70 Db->pFunc;. p
56d0: 46 75 6e 63 2d 3e 7a 53 63 72 69 70 74 20 3d 20 Func->zScript =
56e0: 28 63 68 61 72 2a 29 26 70 46 75 6e 63 5b 31 5d (char*)&pFunc[1]
56f0: 3b 0a 20 20 20 20 73 74 72 63 70 79 28 70 46 75 ;. strcpy(pFu
5700: 6e 63 2d 3e 7a 53 63 72 69 70 74 2c 20 7a 53 63 nc->zScript, zSc
5710: 72 69 70 74 29 3b 0a 20 20 20 20 73 71 6c 69 74 ript);. sqlit
5720: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
5730: 6f 6e 28 70 44 62 2d 3e 64 62 2c 20 7a 4e 61 6d on(pDb->db, zNam
5740: 65 2c 20 2d 31 2c 20 30 2c 20 30 2c 20 70 46 75 e, -1, 0, 0, pFu
5750: 6e 63 2c 20 74 63 6c 53 71 6c 46 75 6e 63 2c 20 nc, tclSqlFunc,
5760: 30 2c 20 30 29 3b 0a 20 20 20 20 62 72 65 61 6b 0, 0);. break
5770: 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20 2a 2a ;. }.. /*. **
5780: 20 20 20 20 20 24 64 62 20 6c 61 73 74 5f 69 6e $db last_in
5790: 73 65 72 74 5f 72 6f 77 69 64 20 0a 20 20 2a 2a sert_rowid . **
57a0: 0a 20 20 2a 2a 20 52 65 74 75 72 6e 20 61 6e 20 . ** Return an
57b0: 69 6e 74 65 67 65 72 20 77 68 69 63 68 20 69 73 integer which is
57c0: 20 74 68 65 20 52 4f 57 49 44 20 66 6f 72 20 74 the ROWID for t
57d0: 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 69 he most recent i
57e0: 6e 73 65 72 74 2e 0a 20 20 2a 2f 0a 20 20 63 61 nsert.. */. ca
57f0: 73 65 20 44 42 5f 4c 41 53 54 5f 49 4e 53 45 52 se DB_LAST_INSER
5800: 54 5f 52 4f 57 49 44 3a 20 7b 0a 20 20 20 20 54 T_ROWID: {. T
5810: 63 6c 5f 4f 62 6a 20 2a 70 52 65 73 75 6c 74 3b cl_Obj *pResult;
5820: 0a 20 20 20 20 69 6e 74 20 72 6f 77 69 64 3b 0a . int rowid;.
5830: 20 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 if( objc!=2
5840: 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f ){. Tcl_Wro
5850: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
5860: 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 22 29 3b 0a , 2, objv, "");.
5870: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c return TCL
5880: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
5890: 20 20 72 6f 77 69 64 20 3d 20 73 71 6c 69 74 65 rowid = sqlite
58a0: 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 3_last_insert_ro
58b0: 77 69 64 28 70 44 62 2d 3e 64 62 29 3b 0a 20 20 wid(pDb->db);.
58c0: 20 20 70 52 65 73 75 6c 74 20 3d 20 54 63 6c 5f pResult = Tcl_
58d0: 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 GetObjResult(int
58e0: 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 erp);. Tcl_Se
58f0: 74 49 6e 74 4f 62 6a 28 70 52 65 73 75 6c 74 2c tIntObj(pResult,
5900: 20 72 6f 77 69 64 29 3b 0a 20 20 20 20 62 72 65 rowid);. bre
5910: 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20 ak;. }.. /*.
5920: 2a 2a 20 20 20 20 20 24 64 62 20 6f 6e 65 63 6f ** $db oneco
5930: 6c 75 6d 6e 20 53 51 4c 0a 20 20 2a 2a 0a 20 20 lumn SQL. **.
5940: 2a 2a 20 52 65 74 75 72 6e 20 61 20 73 69 6e 67 ** Return a sing
5950: 6c 65 20 63 6f 6c 75 6d 6e 20 66 72 6f 6d 20 61 le column from a
5960: 20 73 69 6e 67 6c 65 20 72 6f 77 20 6f 66 20 74 single row of t
5970: 68 65 20 67 69 76 65 6e 20 53 51 4c 20 71 75 65 he given SQL que
5980: 72 79 2e 0a 20 20 2a 2f 0a 20 20 63 61 73 65 20 ry.. */. case
5990: 44 42 5f 4f 4e 45 43 4f 4c 55 4d 4e 3a 20 7b 0a DB_ONECOLUMN: {.
59a0: 20 20 20 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a char *zSql;.
59b0: 20 20 20 20 63 68 61 72 20 2a 7a 45 72 72 4d 73 char *zErrMs
59c0: 67 20 3d 20 30 3b 0a 20 20 20 20 69 66 28 20 6f g = 0;. if( o
59d0: 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 20 20 bjc!=3 ){.
59e0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
59f0: 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 (interp, 2, objv
5a00: 2c 20 22 53 51 4c 22 29 3b 0a 20 20 20 20 20 20 , "SQL");.
5a10: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5a20: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 53 71 6c ;. }. zSql
5a30: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
5a40: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c FromObj(objv[2],
5a50: 20 30 29 3b 0a 20 20 20 20 72 63 20 3d 20 73 71 0);. rc = sq
5a60: 6c 69 74 65 33 5f 65 78 65 63 28 70 44 62 2d 3e lite3_exec(pDb->
5a70: 64 62 2c 20 7a 53 71 6c 2c 20 44 62 45 76 61 6c db, zSql, DbEval
5a80: 43 61 6c 6c 62 61 63 6b 33 2c 20 69 6e 74 65 72 Callback3, inter
5a90: 70 2c 20 26 7a 45 72 72 4d 73 67 29 3b 0a 20 20 p, &zErrMsg);.
5aa0: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 if( rc==SQLITE
5ab0: 5f 41 42 4f 52 54 20 29 7b 0a 20 20 20 20 20 20 _ABORT ){.
5ac0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a rc = SQLITE_OK;.
5ad0: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 7a 45 }else if( zE
5ae0: 72 72 4d 73 67 20 29 7b 0a 20 20 20 20 20 20 54 rrMsg ){. T
5af0: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
5b00: 65 72 70 2c 20 7a 45 72 72 4d 73 67 2c 20 54 43 erp, zErrMsg, TC
5b10: 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 L_VOLATILE);.
5b20: 20 20 20 66 72 65 65 28 7a 45 72 72 4d 73 67 29 free(zErrMsg)
5b30: 3b 0a 20 20 20 20 20 20 72 63 20 3d 20 54 43 4c ;. rc = TCL
5b40: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 65 6c 73 _ERROR;. }els
5b50: 65 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 e if( rc!=SQLITE
5b60: 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 54 63 6c _OK ){. Tcl
5b70: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
5b80: 74 65 72 70 2c 20 73 71 6c 69 74 65 33 45 72 72 terp, sqlite3Err
5b90: 53 74 72 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 Str(rc), 0);.
5ba0: 20 20 20 72 63 20 3d 20 54 43 4c 5f 45 52 52 4f rc = TCL_ERRO
5bb0: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 62 72 65 R;. }. bre
5bc0: 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a 20 20 ak;. }.. /*.
5bd0: 2a 2a 20 20 20 20 20 24 64 62 20 72 65 6b 65 79 ** $db rekey
5be0: 20 4b 45 59 0a 20 20 2a 2a 0a 20 20 2a 2a 20 43 KEY. **. ** C
5bf0: 68 61 6e 67 65 20 74 68 65 20 65 6e 63 72 79 70 hange the encryp
5c00: 74 69 6f 6e 20 6b 65 79 20 6f 6e 20 74 68 65 20 tion key on the
5c10: 63 75 72 72 65 6e 74 6c 79 20 6f 70 65 6e 20 64 currently open d
5c20: 61 74 61 62 61 73 65 2e 0a 20 20 2a 2f 0a 20 20 atabase.. */.
5c30: 63 61 73 65 20 44 42 5f 52 45 4b 45 59 3a 20 7b case DB_REKEY: {
5c40: 0a 20 20 20 20 69 6e 74 20 6e 4b 65 79 3b 0a 20 . int nKey;.
5c50: 20 20 20 76 6f 69 64 20 2a 70 4b 65 79 3b 0a 20 void *pKey;.
5c60: 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 if( objc!=3 )
5c70: 7b 0a 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e {. Tcl_Wron
5c80: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
5c90: 20 32 2c 20 6f 62 6a 76 2c 20 22 4b 45 59 22 29 2, objv, "KEY")
5ca0: 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 ;. return T
5cb0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
5cc0: 20 20 20 20 70 4b 65 79 20 3d 20 54 63 6c 5f 47 pKey = Tcl_G
5cd0: 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f etByteArrayFromO
5ce0: 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 6e 4b 65 bj(objv[2], &nKe
5cf0: 79 29 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 y);.#ifdef SQLIT
5d00: 45 5f 48 41 53 5f 43 4f 44 45 43 0a 20 20 20 20 E_HAS_CODEC.
5d10: 72 63 20 3d 20 73 71 6c 69 74 65 5f 72 65 6b 65 rc = sqlite_reke
5d20: 79 28 70 44 62 2d 3e 64 62 2c 20 70 4b 65 79 2c y(pDb->db, pKey,
5d30: 20 6e 4b 65 79 29 3b 0a 20 20 20 20 69 66 28 20 nKey);. if(
5d40: 72 63 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f rc ){. Tcl_
5d50: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
5d60: 65 72 70 2c 20 73 71 6c 69 74 65 33 45 72 72 53 erp, sqlite3ErrS
5d70: 74 72 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 tr(rc), 0);.
5d80: 20 20 72 63 20 3d 20 54 43 4c 5f 45 52 52 4f 52 rc = TCL_ERROR
5d90: 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 ;. }.#endif.
5da0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 break;. }..
5db0: 20 2f 2a 0a 20 20 2a 2a 20 20 20 20 20 24 64 62 /*. ** $db
5dc0: 20 74 69 6d 65 6f 75 74 20 4d 49 4c 4c 45 53 45 timeout MILLESE
5dd0: 43 4f 4e 44 53 0a 20 20 2a 2a 0a 20 20 2a 2a 20 CONDS. **. **
5de0: 44 65 6c 61 79 20 66 6f 72 20 74 68 65 20 6e 75 Delay for the nu
5df0: 6d 62 65 72 20 6f 66 20 6d 69 6c 6c 69 73 65 63 mber of millisec
5e00: 6f 6e 64 73 20 73 70 65 63 69 66 69 65 64 20 77 onds specified w
5e10: 68 65 6e 20 61 20 66 69 6c 65 20 69 73 20 6c 6f hen a file is lo
5e20: 63 6b 65 64 2e 0a 20 20 2a 2f 0a 20 20 63 61 73 cked.. */. cas
5e30: 65 20 44 42 5f 54 49 4d 45 4f 55 54 3a 20 7b 0a e DB_TIMEOUT: {.
5e40: 20 20 20 20 69 6e 74 20 6d 73 3b 0a 20 20 20 20 int ms;.
5e50: 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 if( objc!=3 ){.
5e60: 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 Tcl_WrongNu
5e70: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c mArgs(interp, 2,
5e80: 20 6f 62 6a 76 2c 20 22 4d 49 4c 4c 49 53 45 43 objv, "MILLISEC
5e90: 4f 4e 44 53 22 29 3b 0a 20 20 20 20 20 20 72 65 ONDS");. re
5ea0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5eb0: 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 54 63 }. if( Tc
5ec0: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
5ed0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
5ee0: 20 26 6d 73 29 20 29 20 72 65 74 75 72 6e 20 54 &ms) ) return T
5ef0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 73 71 CL_ERROR;. sq
5f00: 6c 69 74 65 33 5f 62 75 73 79 5f 74 69 6d 65 6f lite3_busy_timeo
5f10: 75 74 28 70 44 62 2d 3e 64 62 2c 20 6d 73 29 3b ut(pDb->db, ms);
5f20: 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a . break;. }.
5f30: 0a 20 20 2f 2a 20 20 20 20 24 64 62 20 74 72 61 . /* $db tra
5f40: 63 65 20 3f 43 41 4c 4c 42 41 43 4b 3f 0a 20 20 ce ?CALLBACK?.
5f50: 2a 2a 0a 20 20 2a 2a 20 4d 61 6b 65 20 61 72 72 **. ** Make arr
5f60: 61 6e 67 65 6d 65 6e 74 73 20 74 6f 20 69 6e 76 angements to inv
5f70: 6f 6b 65 20 74 68 65 20 43 41 4c 4c 42 41 43 4b oke the CALLBACK
5f80: 20 72 6f 75 74 69 6e 65 20 66 6f 72 20 65 61 63 routine for eac
5f90: 68 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 0a h SQL statement.
5fa0: 20 20 2a 2a 20 74 68 61 74 20 69 73 20 65 78 65 ** that is exe
5fb0: 63 75 74 65 64 2e 20 20 54 68 65 20 74 65 78 74 cuted. The text
5fc0: 20 6f 66 20 74 68 65 20 53 51 4c 20 69 73 20 61 of the SQL is a
5fd0: 70 70 65 6e 64 65 64 20 74 6f 20 43 41 4c 4c 42 ppended to CALLB
5fe0: 41 43 4b 20 62 65 66 6f 72 65 0a 20 20 2a 2a 20 ACK before. **
5ff0: 69 74 20 69 73 20 65 78 65 63 75 74 65 64 2e 0a it is executed..
6000: 20 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 54 */. case DB_T
6010: 52 41 43 45 3a 20 7b 0a 20 20 20 20 69 66 28 20 RACE: {. if(
6020: 6f 62 6a 63 3e 33 20 29 7b 0a 20 20 20 20 20 20 objc>3 ){.
6030: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
6040: 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 (interp, 2, objv
6050: 2c 20 22 3f 43 41 4c 4c 42 41 43 4b 3f 22 29 3b , "?CALLBACK?");
6060: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 6f . }else if( o
6070: 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 20 20 20 20 bjc==2 ){.
6080: 69 66 28 20 70 44 62 2d 3e 7a 54 72 61 63 65 20 if( pDb->zTrace
6090: 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41 ){. Tcl_A
60a0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
60b0: 72 70 2c 20 70 44 62 2d 3e 7a 54 72 61 63 65 2c rp, pDb->zTrace,
60c0: 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 0);. }.
60d0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 63 68 }else{. ch
60e0: 61 72 20 2a 7a 54 72 61 63 65 3b 0a 20 20 20 20 ar *zTrace;.
60f0: 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 20 20 20 int len;.
6100: 20 69 66 28 20 70 44 62 2d 3e 7a 54 72 61 63 65 if( pDb->zTrace
6110: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f ){. Tcl_
6120: 46 72 65 65 28 70 44 62 2d 3e 7a 54 72 61 63 65 Free(pDb->zTrace
6130: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 );. }.
6140: 20 7a 54 72 61 63 65 20 3d 20 54 63 6c 5f 47 65 zTrace = Tcl_Ge
6150: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
6160: 62 6a 76 5b 32 5d 2c 20 26 6c 65 6e 29 3b 0a 20 bjv[2], &len);.
6170: 20 20 20 20 20 69 66 28 20 7a 54 72 61 63 65 20 if( zTrace
6180: 26 26 20 6c 65 6e 3e 30 20 29 7b 0a 20 20 20 20 && len>0 ){.
6190: 20 20 20 20 70 44 62 2d 3e 7a 54 72 61 63 65 20 pDb->zTrace
61a0: 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28 20 6c 65 6e = Tcl_Alloc( len
61b0: 20 2b 20 31 20 29 3b 0a 20 20 20 20 20 20 20 20 + 1 );.
61c0: 73 74 72 63 70 79 28 70 44 62 2d 3e 7a 54 72 61 strcpy(pDb->zTra
61d0: 63 65 2c 20 7a 54 72 61 63 65 29 3b 0a 20 20 20 ce, zTrace);.
61e0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
61f0: 20 20 70 44 62 2d 3e 7a 54 72 61 63 65 20 3d 20 pDb->zTrace =
6200: 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 0;. }.
6210: 20 69 66 28 20 70 44 62 2d 3e 7a 54 72 61 63 65 if( pDb->zTrace
6220: 20 29 7b 0a 20 20 20 20 20 20 20 20 70 44 62 2d ){. pDb-
6230: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
6240: 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 ;. sqlite
6250: 33 5f 74 72 61 63 65 28 70 44 62 2d 3e 64 62 2c 3_trace(pDb->db,
6260: 20 44 62 54 72 61 63 65 48 61 6e 64 6c 65 72 2c DbTraceHandler,
6270: 20 70 44 62 29 3b 0a 20 20 20 20 20 20 7d 65 6c pDb);. }el
6280: 73 65 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 se{. sqli
6290: 74 65 33 5f 74 72 61 63 65 28 70 44 62 2d 3e 64 te3_trace(pDb->d
62a0: 62 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 b, 0, 0);.
62b0: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 62 72 65 61 }. }. brea
62c0: 6b 3b 0a 20 20 7d 0a 0a 20 20 7d 20 2f 2a 20 45 k;. }.. } /* E
62d0: 6e 64 20 6f 66 20 74 68 65 20 53 57 49 54 43 48 nd of the SWITCH
62e0: 20 73 74 61 74 65 6d 65 6e 74 20 2a 2f 0a 20 20 statement */.
62f0: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a return rc;.}../*
6300: 0a 2a 2a 20 20 20 73 71 6c 69 74 65 20 44 42 4e .** sqlite DBN
6310: 41 4d 45 20 46 49 4c 45 4e 41 4d 45 20 3f 4d 4f AME FILENAME ?MO
6320: 44 45 3f 20 3f 2d 6b 65 79 20 4b 45 59 3f 0a 2a DE? ?-key KEY?.*
6330: 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 74 68 65 *.** This is the
6340: 20 6d 61 69 6e 20 54 63 6c 20 63 6f 6d 6d 61 6e main Tcl comman
6350: 64 2e 20 20 57 68 65 6e 20 74 68 65 20 22 73 71 d. When the "sq
6360: 6c 69 74 65 22 20 54 63 6c 20 63 6f 6d 6d 61 6e lite" Tcl comman
6370: 64 20 69 73 0a 2a 2a 20 69 6e 76 6f 6b 65 64 2c d is.** invoked,
6380: 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 72 75 this routine ru
6390: 6e 73 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 ns to process th
63a0: 61 74 20 63 6f 6d 6d 61 6e 64 2e 0a 2a 2a 0a 2a at command..**.*
63b0: 2a 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75 * The first argu
63c0: 6d 65 6e 74 2c 20 44 42 4e 41 4d 45 2c 20 69 73 ment, DBNAME, is
63d0: 20 61 6e 20 61 72 62 69 74 72 61 72 79 20 6e 61 an arbitrary na
63e0: 6d 65 20 66 6f 72 20 61 20 6e 65 77 0a 2a 2a 20 me for a new.**
63f0: 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 database connect
6400: 69 6f 6e 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 ion. This comma
6410: 6e 64 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 nd creates a new
6420: 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 64 0a 2a command named.*
6430: 2a 20 44 42 4e 41 4d 45 20 74 68 61 74 20 69 73 * DBNAME that is
6440: 20 75 73 65 64 20 74 6f 20 63 6f 6e 74 72 6f 6c used to control
6450: 20 74 68 61 74 20 63 6f 6e 6e 65 63 74 69 6f 6e that connection
6460: 2e 20 20 54 68 65 20 64 61 74 61 62 61 73 65 0a . The database.
6470: 2a 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 ** connection is
6480: 20 64 65 6c 65 74 65 64 20 77 68 65 6e 20 74 68 deleted when th
6490: 65 20 44 42 4e 41 4d 45 20 63 6f 6d 6d 61 6e 64 e DBNAME command
64a0: 20 69 73 20 64 65 6c 65 74 65 64 2e 0a 2a 2a 0a is deleted..**.
64b0: 2a 2a 20 54 68 65 20 73 65 63 6f 6e 64 20 61 72 ** The second ar
64c0: 67 75 6d 65 6e 74 20 69 73 20 74 68 65 20 6e 61 gument is the na
64d0: 6d 65 20 6f 66 20 74 68 65 20 64 69 72 65 63 74 me of the direct
64e0: 6f 72 79 20 74 68 61 74 20 63 6f 6e 74 61 69 6e ory that contain
64f0: 73 0a 2a 2a 20 74 68 65 20 73 71 6c 69 74 65 20 s.** the sqlite
6500: 64 61 74 61 62 61 73 65 20 74 68 61 74 20 69 73 database that is
6510: 20 74 6f 20 62 65 20 61 63 63 65 73 73 65 64 2e to be accessed.
6520: 0a 2a 2a 0a 2a 2a 20 46 6f 72 20 74 65 73 74 69 .**.** For testi
6530: 6e 67 20 70 75 72 70 6f 73 65 73 2c 20 77 65 20 ng purposes, we
6540: 61 6c 73 6f 20 73 75 70 70 6f 72 74 20 74 68 65 also support the
6550: 20 66 6f 6c 6c 6f 77 69 6e 67 3a 0a 2a 2a 0a 2a following:.**.*
6560: 2a 20 20 73 71 6c 69 74 65 20 2d 65 6e 63 6f 64 * sqlite -encod
6570: 69 6e 67 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 ing.**.**
6580: 52 65 74 75 72 6e 20 74 68 65 20 65 6e 63 6f 64 Return the encod
6590: 69 6e 67 20 75 73 65 64 20 62 79 20 4c 49 4b 45 ing used by LIKE
65a0: 20 61 6e 64 20 47 4c 4f 42 20 6f 70 65 72 61 74 and GLOB operat
65b0: 6f 72 73 2e 20 20 43 68 6f 69 63 65 73 0a 2a 2a ors. Choices.**
65c0: 20 20 20 20 20 20 20 61 72 65 20 55 54 46 2d 38 are UTF-8
65d0: 20 61 6e 64 20 69 73 6f 38 38 35 39 2e 0a 2a 2a and iso8859..**
65e0: 0a 2a 2a 20 20 73 71 6c 69 74 65 20 2d 76 65 72 .** sqlite -ver
65f0: 73 69 6f 6e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 sion.**.**
6600: 20 52 65 74 75 72 6e 20 74 68 65 20 76 65 72 73 Return the vers
6610: 69 6f 6e 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 ion number of th
6620: 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 e SQLite library
6630: 2e 0a 2a 2a 0a 2a 2a 20 20 73 71 6c 69 74 65 20 ..**.** sqlite
6640: 2d 74 63 6c 2d 75 73 65 73 2d 75 74 66 0a 2a 2a -tcl-uses-utf.**
6650: 0a 2a 2a 20 20 20 20 20 20 20 52 65 74 75 72 6e .** Return
6660: 20 22 31 22 20 69 66 20 63 6f 6d 70 69 6c 65 64 "1" if compiled
6670: 20 77 69 74 68 20 61 20 54 63 6c 20 75 73 65 73 with a Tcl uses
6680: 20 55 54 46 2d 38 2e 20 20 52 65 74 75 72 6e 20 UTF-8. Return
6690: 22 30 22 20 69 66 0a 2a 2a 20 20 20 20 20 20 20 "0" if.**
66a0: 6e 6f 74 2e 20 20 55 73 65 64 20 62 79 20 74 65 not. Used by te
66b0: 73 74 73 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 sts to make sure
66c0: 20 74 68 65 20 6c 69 62 72 61 72 79 20 77 61 73 the library was
66d0: 20 63 6f 6d 70 69 6c 65 64 20 0a 2a 2a 20 20 20 compiled .**
66e0: 20 20 20 20 63 6f 72 72 65 63 74 6c 79 2e 0a 2a correctly..*
66f0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44 62 4d /.static int DbM
6700: 61 69 6e 28 76 6f 69 64 20 2a 63 64 2c 20 54 63 ain(void *cd, Tc
6710: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
6720: 2c 20 69 6e 74 20 6f 62 6a 63 2c 54 63 6c 5f 4f , int objc,Tcl_O
6730: 62 6a 20 2a 63 6f 6e 73 74 2a 6f 62 6a 76 29 7b bj *const*objv){
6740: 0a 20 20 53 71 6c 69 74 65 44 62 20 2a 70 3b 0a . SqliteDb *p;.
6750: 20 20 76 6f 69 64 20 2a 70 4b 65 79 20 3d 20 30 void *pKey = 0
6760: 3b 0a 20 20 69 6e 74 20 6e 4b 65 79 20 3d 20 30 ;. int nKey = 0
6770: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ;. const char *
6780: 7a 41 72 67 3b 0a 20 20 63 68 61 72 20 2a 7a 45 zArg;. char *zE
6790: 72 72 4d 73 67 3b 0a 20 20 63 6f 6e 73 74 20 63 rrMsg;. const c
67a0: 68 61 72 20 2a 7a 46 69 6c 65 3b 0a 20 20 63 6f har *zFile;. co
67b0: 6e 73 74 20 63 68 61 72 20 2a 7a 4f 70 74 73 5b nst char *zOpts[
67c0: 32 5d 20 3d 20 7b 30 2c 20 30 7d 3b 0a 20 20 63 2] = {0, 0};. c
67d0: 68 61 72 20 7a 42 75 66 5b 38 30 5d 3b 0a 20 20 har zBuf[80];.
67e0: 69 66 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 if( objc==2 ){.
67f0: 20 20 20 7a 41 72 67 20 3d 20 54 63 6c 5f 47 65 zArg = Tcl_Ge
6800: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
6810: 62 6a 76 5b 31 5d 2c 20 30 29 3b 0a 20 20 20 20 bjv[1], 0);.
6820: 69 66 28 20 73 74 72 63 6d 70 28 7a 41 72 67 2c if( strcmp(zArg,
6830: 22 2d 76 65 72 73 69 6f 6e 22 29 3d 3d 30 20 29 "-version")==0 )
6840: 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 {. Tcl_Appe
6850: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
6860: 73 71 6c 69 74 65 33 5f 76 65 72 73 69 6f 6e 2c sqlite3_version,
6870: 30 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 0);. return
6880: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 TCL_OK;. }.
6890: 20 20 20 69 66 28 20 73 74 72 63 6d 70 28 7a 41 if( strcmp(zA
68a0: 72 67 2c 22 2d 68 61 73 2d 63 6f 64 65 63 22 29 rg,"-has-codec")
68b0: 3d 3d 30 20 29 7b 0a 23 69 66 64 65 66 20 53 51 ==0 ){.#ifdef SQ
68c0: 4c 49 54 45 5f 48 41 53 5f 43 4f 44 45 43 0a 20 LITE_HAS_CODEC.
68d0: 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 Tcl_AppendR
68e0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 31 22 esult(interp,"1"
68f0: 2c 30 29 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 ,0);.#else.
6900: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
6910: 74 28 69 6e 74 65 72 70 2c 22 30 22 2c 30 29 3b t(interp,"0",0);
6920: 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 72 65 .#endif. re
6930: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 turn TCL_OK;.
6940: 20 7d 0a 20 20 20 20 69 66 28 20 73 74 72 63 6d }. if( strcm
6950: 70 28 7a 41 72 67 2c 22 2d 74 63 6c 2d 75 73 65 p(zArg,"-tcl-use
6960: 73 2d 75 74 66 22 29 3d 3d 30 20 29 7b 0a 23 69 s-utf")==0 ){.#i
6970: 66 64 65 66 20 54 43 4c 5f 55 54 46 5f 4d 41 58 fdef TCL_UTF_MAX
6980: 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e . Tcl_Appen
6990: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 dResult(interp,"
69a0: 31 22 2c 30 29 3b 0a 23 65 6c 73 65 0a 20 20 20 1",0);.#else.
69b0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
69c0: 75 6c 74 28 69 6e 74 65 72 70 2c 22 30 22 2c 30 ult(interp,"0",0
69d0: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 );.#endif.
69e0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 return TCL_OK;.
69f0: 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 6f }. }. if( o
6a00: 62 6a 63 3d 3d 35 20 7c 7c 20 6f 62 6a 63 3d 3d bjc==5 || objc==
6a10: 36 20 29 7b 0a 20 20 20 20 7a 41 72 67 20 3d 20 6 ){. zArg =
6a20: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
6a30: 6d 4f 62 6a 28 6f 62 6a 76 5b 6f 62 6a 63 2d 32 mObj(objv[objc-2
6a40: 5d 2c 20 30 29 3b 0a 20 20 20 20 69 66 28 20 73 ], 0);. if( s
6a50: 74 72 63 6d 70 28 7a 41 72 67 2c 22 2d 6b 65 79 trcmp(zArg,"-key
6a60: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 70 ")==0 ){. p
6a70: 4b 65 79 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 Key = Tcl_GetByt
6a80: 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 eArrayFromObj(ob
6a90: 6a 76 5b 6f 62 6a 63 2d 31 5d 2c 20 26 6e 4b 65 jv[objc-1], &nKe
6aa0: 79 29 3b 0a 20 20 20 20 20 20 6f 62 6a 63 20 2d y);. objc -
6ab0: 3d 20 32 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 = 2;. }. }.
6ac0: 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 26 26 20 if( objc!=3 &&
6ad0: 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 objc!=4 ){. T
6ae0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
6af0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
6b00: 20 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f .#ifdef SQLITE_
6b10: 48 41 53 5f 43 4f 44 45 43 0a 20 20 20 20 20 20 HAS_CODEC.
6b20: 22 48 41 4e 44 4c 45 20 46 49 4c 45 4e 41 4d 45 "HANDLE FILENAME
6b30: 20 3f 2d 6b 65 79 20 43 4f 44 45 43 2d 4b 45 59 ?-key CODEC-KEY
6b40: 3f 22 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 22 ?".#else. "
6b50: 48 41 4e 44 4c 45 20 46 49 4c 45 4e 41 4d 45 20 HANDLE FILENAME
6b60: 3f 4d 4f 44 45 3f 22 0a 23 65 6e 64 69 66 0a 20 ?MODE?".#endif.
6b70: 20 20 20 29 3b 0a 20 20 20 20 72 65 74 75 72 6e );. return
6b80: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
6b90: 20 20 7a 45 72 72 4d 73 67 20 3d 20 30 3b 0a 20 zErrMsg = 0;.
6ba0: 20 70 20 3d 20 28 53 71 6c 69 74 65 44 62 2a 29 p = (SqliteDb*)
6bb0: 54 63 6c 5f 41 6c 6c 6f 63 28 20 73 69 7a 65 6f Tcl_Alloc( sizeo
6bc0: 66 28 2a 70 29 20 29 3b 0a 20 20 69 66 28 20 70 f(*p) );. if( p
6bd0: 3d 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 ==0 ){. Tcl_S
6be0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
6bf0: 20 22 6d 61 6c 6c 6f 63 20 66 61 69 6c 65 64 22 "malloc failed"
6c00: 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 , TCL_STATIC);.
6c10: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
6c20: 52 4f 52 3b 0a 20 20 7d 0a 20 20 6d 65 6d 73 65 ROR;. }. memse
6c30: 74 28 70 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a t(p, 0, sizeof(*
6c40: 70 29 29 3b 0a 20 20 7a 46 69 6c 65 20 3d 20 54 p));. zFile = T
6c50: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
6c60: 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 30 29 3b Obj(objv[2], 0);
6c70: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 48 .#ifdef SQLITE_H
6c80: 41 53 5f 43 4f 44 45 43 0a 20 20 70 2d 3e 64 62 AS_CODEC. p->db
6c90: 20 3d 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f = sqlite3_open_
6ca0: 65 6e 63 72 79 70 74 65 64 28 7a 46 69 6c 65 2c encrypted(zFile,
6cb0: 20 70 4b 65 79 2c 20 6e 4b 65 79 2c 20 30 2c 20 pKey, nKey, 0,
6cc0: 26 7a 45 72 72 4d 73 67 29 3b 0a 23 65 6c 73 65 &zErrMsg);.#else
6cd0: 0a 20 20 69 66 28 20 6f 62 6a 63 3e 33 20 29 7b . if( objc>3 ){
6ce0: 0a 20 20 20 20 7a 4f 70 74 73 5b 30 5d 20 3d 20 . zOpts[0] =
6cf0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
6d00: 6a 76 5b 33 5d 29 3b 0a 20 20 7d 0a 20 20 73 71 jv[3]);. }. sq
6d10: 6c 69 74 65 33 5f 6f 70 65 6e 28 7a 46 69 6c 65 lite3_open(zFile
6d20: 2c 20 26 70 2d 3e 64 62 2c 20 7a 4f 70 74 73 29 , &p->db, zOpts)
6d30: 3b 0a 20 20 69 66 28 20 53 51 4c 49 54 45 5f 4f ;. if( SQLITE_O
6d40: 4b 21 3d 73 71 6c 69 74 65 33 5f 65 72 72 63 6f K!=sqlite3_errco
6d50: 64 65 28 70 2d 3e 64 62 29 20 29 7b 0a 20 20 20 de(p->db) ){.
6d60: 20 7a 45 72 72 4d 73 67 20 3d 20 73 74 72 64 75 zErrMsg = strdu
6d70: 70 28 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 p(sqlite3_errmsg
6d80: 28 70 2d 3e 64 62 29 29 3b 0a 20 20 20 20 73 71 (p->db));. sq
6d90: 6c 69 74 65 33 5f 63 6c 6f 73 65 28 70 2d 3e 64 lite3_close(p->d
6da0: 62 29 3b 0a 20 20 20 20 70 2d 3e 64 62 20 3d 20 b);. p->db =
6db0: 30 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 0;. }.#endif.
6dc0: 69 66 28 20 70 2d 3e 64 62 3d 3d 30 20 29 7b 0a if( p->db==0 ){.
6dd0: 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c Tcl_SetResul
6de0: 74 28 69 6e 74 65 72 70 2c 20 7a 45 72 72 4d 73 t(interp, zErrMs
6df0: 67 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 g, TCL_VOLATILE)
6e00: 3b 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 28 28 ;. Tcl_Free((
6e10: 63 68 61 72 2a 29 70 29 3b 0a 20 20 20 20 66 72 char*)p);. fr
6e20: 65 65 28 7a 45 72 72 4d 73 67 29 3b 0a 20 20 20 ee(zErrMsg);.
6e30: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
6e40: 52 3b 0a 20 20 7d 0a 20 20 7a 41 72 67 20 3d 20 R;. }. zArg =
6e50: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
6e60: 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 30 29 mObj(objv[1], 0)
6e70: 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 ;. Tcl_CreateOb
6e80: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
6e90: 20 7a 41 72 67 2c 20 44 62 4f 62 6a 43 6d 64 2c zArg, DbObjCmd,
6ea0: 20 28 63 68 61 72 2a 29 70 2c 20 44 62 44 65 6c (char*)p, DbDel
6eb0: 65 74 65 43 6d 64 29 3b 0a 0a 20 20 2f 2a 20 54 eteCmd);.. /* T
6ec0: 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 he return value
6ed0: 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 is the value of
6ee0: 74 68 65 20 73 71 6c 69 74 65 2a 20 70 6f 69 6e the sqlite* poin
6ef0: 74 65 72 0a 20 20 2a 2f 0a 20 20 73 70 72 69 6e ter. */. sprin
6f00: 74 66 28 7a 42 75 66 2c 20 22 25 70 22 2c 20 70 tf(zBuf, "%p", p
6f10: 2d 3e 64 62 29 3b 0a 20 20 69 66 28 20 73 74 72 ->db);. if( str
6f20: 6e 63 6d 70 28 7a 42 75 66 2c 22 30 78 22 2c 32 ncmp(zBuf,"0x",2
6f30: 29 20 29 7b 0a 20 20 20 20 73 70 72 69 6e 74 66 ) ){. sprintf
6f40: 28 7a 42 75 66 2c 20 22 30 78 25 70 22 2c 20 70 (zBuf, "0x%p", p
6f50: 2d 3e 64 62 29 3b 0a 20 20 7d 0a 20 20 54 63 6c ->db);. }. Tcl
6f60: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
6f70: 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a terp, zBuf, 0);.
6f80: 0a 20 20 2f 2a 20 49 66 20 63 6f 6d 70 69 6c 65 . /* If compile
6f90: 64 20 77 69 74 68 20 53 51 4c 49 54 45 5f 54 45 d with SQLITE_TE
6fa0: 53 54 20 74 75 72 6e 65 64 20 6f 6e 2c 20 74 68 ST turned on, th
6fb0: 65 6e 20 72 65 67 69 73 74 65 72 20 74 68 65 20 en register the
6fc0: 22 6d 64 35 73 75 6d 22 0a 20 20 2a 2a 20 53 51 "md5sum". ** SQ
6fd0: 4c 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 20 2a 2f L function.. */
6fe0: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 .#ifdef SQLITE_T
6ff0: 45 53 54 0a 20 20 7b 0a 20 20 20 20 65 78 74 65 EST. {. exte
7000: 72 6e 20 76 6f 69 64 20 4d 64 35 5f 52 65 67 69 rn void Md5_Regi
7010: 73 74 65 72 28 73 71 6c 69 74 65 2a 29 3b 0a 20 ster(sqlite*);.
7020: 20 20 20 4d 64 35 5f 52 65 67 69 73 74 65 72 28 Md5_Register(
7030: 70 2d 3e 64 62 29 3b 0a 20 20 20 7d 0a 23 65 6e p->db);. }.#en
7040: 64 69 66 20 20 0a 20 20 72 65 74 75 72 6e 20 54 dif . return T
7050: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
7060: 50 72 6f 76 69 64 65 20 61 20 64 75 6d 6d 79 20 Provide a dummy
7070: 54 63 6c 5f 49 6e 69 74 53 74 75 62 73 20 69 66 Tcl_InitStubs if
7080: 20 77 65 20 61 72 65 20 75 73 69 6e 67 20 74 68 we are using th
7090: 69 73 20 61 73 20 61 20 73 74 61 74 69 63 0a 2a is as a static.*
70a0: 2a 20 6c 69 62 72 61 72 79 2e 0a 2a 2f 0a 23 69 * library..*/.#i
70b0: 66 6e 64 65 66 20 55 53 45 5f 54 43 4c 5f 53 54 fndef USE_TCL_ST
70c0: 55 42 53 0a 23 20 75 6e 64 65 66 20 20 54 63 6c UBS.# undef Tcl
70d0: 5f 49 6e 69 74 53 74 75 62 73 0a 23 20 64 65 66 _InitStubs.# def
70e0: 69 6e 65 20 54 63 6c 5f 49 6e 69 74 53 74 75 62 ine Tcl_InitStub
70f0: 73 28 61 2c 62 2c 63 29 0a 23 65 6e 64 69 66 0a s(a,b,c).#endif.
7100: 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69 61 6c 69 7a ./*.** Initializ
7110: 65 20 74 68 69 73 20 6d 6f 64 75 6c 65 2e 0a 2a e this module..*
7120: 2a 0a 2a 2a 20 54 68 69 73 20 54 63 6c 20 6d 6f *.** This Tcl mo
7130: 64 75 6c 65 20 63 6f 6e 74 61 69 6e 73 20 6f 6e dule contains on
7140: 6c 79 20 61 20 73 69 6e 67 6c 65 20 6e 65 77 20 ly a single new
7150: 54 63 6c 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 Tcl command name
7160: 64 20 22 73 71 6c 69 74 65 22 2e 0a 2a 2a 20 28 d "sqlite"..** (
7170: 48 65 6e 63 65 20 74 68 65 72 65 20 69 73 20 6e Hence there is n
7180: 6f 20 6e 61 6d 65 73 70 61 63 65 2e 20 20 54 68 o namespace. Th
7190: 65 72 65 20 69 73 20 6e 6f 20 70 6f 69 6e 74 20 ere is no point
71a0: 69 6e 20 75 73 69 6e 67 20 61 20 6e 61 6d 65 73 in using a names
71b0: 70 61 63 65 0a 2a 2a 20 69 66 20 74 68 65 20 65 pace.** if the e
71c0: 78 74 65 6e 73 69 6f 6e 20 6f 6e 6c 79 20 73 75 xtension only su
71d0: 70 70 6c 69 65 73 20 6f 6e 65 20 6e 65 77 20 6e pplies one new n
71e0: 61 6d 65 21 29 20 20 54 68 65 20 22 73 71 6c 69 ame!) The "sqli
71f0: 74 65 22 20 63 6f 6d 6d 61 6e 64 20 69 73 0a 2a te" command is.*
7200: 2a 20 75 73 65 64 20 74 6f 20 6f 70 65 6e 20 61 * used to open a
7210: 20 6e 65 77 20 53 51 4c 69 74 65 20 64 61 74 61 new SQLite data
7220: 62 61 73 65 2e 20 20 53 65 65 20 74 68 65 20 44 base. See the D
7230: 62 4d 61 69 6e 28 29 20 72 6f 75 74 69 6e 65 20 bMain() routine
7240: 61 62 6f 76 65 0a 2a 2a 20 66 6f 72 20 61 64 64 above.** for add
7250: 69 74 69 6f 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 itional informat
7260: 69 6f 6e 2e 0a 2a 2f 0a 69 6e 74 20 53 71 6c 69 ion..*/.int Sqli
7270: 74 65 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 te_Init(Tcl_Inte
7280: 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 54 rp *interp){. T
7290: 63 6c 5f 49 6e 69 74 53 74 75 62 73 28 69 6e 74 cl_InitStubs(int
72a0: 65 72 70 2c 20 22 38 2e 30 22 2c 20 30 29 3b 0a erp, "8.0", 0);.
72b0: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
72c0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
72d0: 73 71 6c 69 74 65 22 2c 20 28 54 63 6c 5f 4f 62 sqlite", (Tcl_Ob
72e0: 6a 43 6d 64 50 72 6f 63 2a 29 44 62 4d 61 69 6e jCmdProc*)DbMain
72f0: 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 50 , 0, 0);. Tcl_P
7300: 6b 67 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 kgProvide(interp
7310: 2c 20 22 73 71 6c 69 74 65 22 2c 20 22 32 2e 30 , "sqlite", "2.0
7320: 22 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ");. return TCL
7330: 5f 4f 4b 3b 0a 7d 0a 69 6e 74 20 54 63 6c 73 71 _OK;.}.int Tclsq
7340: 6c 69 74 65 5f 49 6e 69 74 28 54 63 6c 5f 49 6e lite_Init(Tcl_In
7350: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 terp *interp){.
7360: 20 54 63 6c 5f 49 6e 69 74 53 74 75 62 73 28 69 Tcl_InitStubs(i
7370: 6e 74 65 72 70 2c 20 22 38 2e 30 22 2c 20 30 29 nterp, "8.0", 0)
7380: 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 ;. Tcl_CreateOb
7390: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
73a0: 20 22 73 71 6c 69 74 65 22 2c 20 28 54 63 6c 5f "sqlite", (Tcl_
73b0: 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 44 62 4d 61 ObjCmdProc*)DbMa
73c0: 69 6e 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c in, 0, 0);. Tcl
73d0: 5f 50 6b 67 50 72 6f 76 69 64 65 28 69 6e 74 65 _PkgProvide(inte
73e0: 72 70 2c 20 22 73 71 6c 69 74 65 22 2c 20 22 32 rp, "sqlite", "2
73f0: 2e 30 22 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 .0");. return T
7400: 43 4c 5f 4f 4b 3b 0a 7d 0a 69 6e 74 20 53 71 6c CL_OK;.}.int Sql
7410: 69 74 65 5f 53 61 66 65 49 6e 69 74 28 54 63 6c ite_SafeInit(Tcl
7420: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
7430: 7b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f {. return TCL_O
7440: 4b 3b 0a 7d 0a 69 6e 74 20 54 63 6c 73 71 6c 69 K;.}.int Tclsqli
7450: 74 65 5f 53 61 66 65 49 6e 69 74 28 54 63 6c 5f te_SafeInit(Tcl_
7460: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b Interp *interp){
7470: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
7480: 3b 0a 7d 0a 0a 23 69 66 20 30 0a 2f 2a 0a 2a 2a ;.}..#if 0./*.**
7490: 20 49 66 20 63 6f 6d 70 69 6c 65 64 20 75 73 69 If compiled usi
74a0: 6e 67 20 6d 6b 74 63 6c 61 70 70 2c 20 74 68 69 ng mktclapp, thi
74b0: 73 20 72 6f 75 74 69 6e 65 20 72 75 6e 73 20 74 s routine runs t
74c0: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 0a 2a 2a 20 o initialize.**
74d0: 65 76 65 72 79 74 68 69 6e 67 2e 0a 2a 2f 0a 69 everything..*/.i
74e0: 6e 74 20 45 74 5f 41 70 70 49 6e 69 74 28 54 63 nt Et_AppInit(Tc
74f0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
7500: 29 7b 0a 20 20 72 65 74 75 72 6e 20 53 71 6c 69 ){. return Sqli
7510: 74 65 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 3b te_Init(interp);
7520: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a .}.#endif../*.**
7530: 20 49 66 20 74 68 65 20 6d 61 63 72 6f 20 54 43 If the macro TC
7540: 4c 53 48 20 69 73 20 64 65 66 69 6e 65 64 20 61 LSH is defined a
7550: 6e 64 20 69 73 20 6f 6e 65 2c 20 74 68 65 6e 20 nd is one, then
7560: 70 75 74 20 69 6e 20 63 6f 64 65 20 66 6f 72 20 put in code for
7570: 74 68 65 0a 2a 2a 20 22 6d 61 69 6e 22 20 72 6f the.** "main" ro
7580: 75 74 69 6e 65 20 74 68 61 74 20 77 69 6c 6c 20 utine that will
7590: 69 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c 2e 0a initialize Tcl..
75a0: 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28 54 */.#if defined(T
75b0: 43 4c 53 48 29 20 26 26 20 54 43 4c 53 48 3d 3d CLSH) && TCLSH==
75c0: 31 0a 73 74 61 74 69 63 20 63 68 61 72 20 7a 4d 1.static char zM
75d0: 61 69 6e 6c 6f 6f 70 5b 5d 20 3d 0a 20 20 22 73 ainloop[] =. "s
75e0: 65 74 20 6c 69 6e 65 20 7b 7d 5c 6e 22 0a 20 20 et line {}\n".
75f0: 22 77 68 69 6c 65 20 7b 21 5b 65 6f 66 20 73 74 "while {![eof st
7600: 64 69 6e 5d 7d 20 7b 5c 6e 22 0a 20 20 20 20 22 din]} {\n". "
7610: 69 66 20 7b 24 6c 69 6e 65 21 3d 5c 22 5c 22 7d if {$line!=\"\"}
7620: 20 7b 5c 6e 22 0a 20 20 20 20 20 20 22 70 75 74 {\n". "put
7630: 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5c 22 3e s -nonewline \">
7640: 20 5c 22 5c 6e 22 0a 20 20 20 20 22 7d 20 65 6c \"\n". "} el
7650: 73 65 20 7b 5c 6e 22 0a 20 20 20 20 20 20 22 70 se {\n". "p
7660: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5c uts -nonewline \
7670: 22 25 20 5c 22 5c 6e 22 0a 20 20 20 20 22 7d 5c "% \"\n". "}\
7680: 6e 22 0a 20 20 20 20 22 66 6c 75 73 68 20 73 74 n". "flush st
7690: 64 6f 75 74 5c 6e 22 0a 20 20 20 20 22 61 70 70 dout\n". "app
76a0: 65 6e 64 20 6c 69 6e 65 20 5b 67 65 74 73 20 73 end line [gets s
76b0: 74 64 69 6e 5d 5c 6e 22 0a 20 20 20 20 22 69 66 tdin]\n". "if
76c0: 20 7b 5b 69 6e 66 6f 20 63 6f 6d 70 6c 65 74 65 {[info complete
76d0: 20 24 6c 69 6e 65 5d 7d 20 7b 5c 6e 22 0a 20 20 $line]} {\n".
76e0: 20 20 20 20 22 69 66 20 7b 5b 63 61 74 63 68 20 "if {[catch
76f0: 7b 75 70 6c 65 76 65 6c 20 23 30 20 24 6c 69 6e {uplevel #0 $lin
7700: 65 7d 20 72 65 73 75 6c 74 5d 7d 20 7b 5c 6e 22 e} result]} {\n"
7710: 0a 20 20 20 20 20 20 20 20 22 70 75 74 73 20 73 . "puts s
7720: 74 64 65 72 72 20 5c 22 45 72 72 6f 72 3a 20 24 tderr \"Error: $
7730: 72 65 73 75 6c 74 5c 22 5c 6e 22 0a 20 20 20 20 result\"\n".
7740: 20 20 22 7d 20 65 6c 73 65 69 66 20 7b 24 72 65 "} elseif {$re
7750: 73 75 6c 74 21 3d 5c 22 5c 22 7d 20 7b 5c 6e 22 sult!=\"\"} {\n"
7760: 0a 20 20 20 20 20 20 20 20 22 70 75 74 73 20 24 . "puts $
7770: 72 65 73 75 6c 74 5c 6e 22 0a 20 20 20 20 20 20 result\n".
7780: 22 7d 5c 6e 22 0a 20 20 20 20 20 20 22 73 65 74 "}\n". "set
7790: 20 6c 69 6e 65 20 7b 7d 5c 6e 22 0a 20 20 20 20 line {}\n".
77a0: 22 7d 20 65 6c 73 65 20 7b 5c 6e 22 0a 20 20 20 "} else {\n".
77b0: 20 20 20 22 61 70 70 65 6e 64 20 6c 69 6e 65 20 "append line
77c0: 5c 5c 6e 5c 6e 22 0a 20 20 20 20 22 7d 5c 6e 22 \\n\n". "}\n"
77d0: 0a 20 20 22 7d 5c 6e 22 0a 3b 0a 0a 23 64 65 66 . "}\n".;..#def
77e0: 69 6e 65 20 54 43 4c 53 48 5f 4d 41 49 4e 20 6d ine TCLSH_MAIN m
77f0: 61 69 6e 20 20 20 2f 2a 20 4e 65 65 64 65 64 20 ain /* Needed
7800: 74 6f 20 66 61 6b 65 20 6f 75 74 20 6d 6b 74 63 to fake out mktc
7810: 6c 61 70 70 20 2a 2f 0a 69 6e 74 20 54 43 4c 53 lapp */.int TCLS
7820: 48 5f 4d 41 49 4e 28 69 6e 74 20 61 72 67 63 2c H_MAIN(int argc,
7830: 20 63 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 char **argv){.
7840: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
7850: 65 72 70 3b 0a 20 20 54 63 6c 5f 46 69 6e 64 45 erp;. Tcl_FindE
7860: 78 65 63 75 74 61 62 6c 65 28 61 72 67 76 5b 30 xecutable(argv[0
7870: 5d 29 3b 0a 20 20 69 6e 74 65 72 70 20 3d 20 54 ]);. interp = T
7880: 63 6c 5f 43 72 65 61 74 65 49 6e 74 65 72 70 28 cl_CreateInterp(
7890: 29 3b 0a 20 20 53 71 6c 69 74 65 5f 49 6e 69 74 );. Sqlite_Init
78a0: 28 69 6e 74 65 72 70 29 3b 0a 23 69 66 64 65 66 (interp);.#ifdef
78b0: 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 7b SQLITE_TEST. {
78c0: 0a 20 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20 . extern int
78d0: 53 71 6c 69 74 65 74 65 73 74 31 5f 49 6e 69 74 Sqlitetest1_Init
78e0: 28 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 (Tcl_Interp*);.
78f0: 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71 extern int Sq
7900: 6c 69 74 65 74 65 73 74 32 5f 49 6e 69 74 28 54 litetest2_Init(T
7910: 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20 cl_Interp*);.
7920: 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71 6c 69 extern int Sqli
7930: 74 65 74 65 73 74 33 5f 49 6e 69 74 28 54 63 6c tetest3_Init(Tcl
7940: 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20 20 65 _Interp*);. e
7950: 78 74 65 72 6e 20 69 6e 74 20 53 71 6c 69 74 65 xtern int Sqlite
7960: 74 65 73 74 34 5f 49 6e 69 74 28 54 63 6c 5f 49 test4_Init(Tcl_I
7970: 6e 74 65 72 70 2a 29 3b 0a 20 20 20 20 65 78 74 nterp*);. ext
7980: 65 72 6e 20 69 6e 74 20 53 71 6c 69 74 65 74 65 ern int Sqlitete
7990: 73 74 35 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 st5_Init(Tcl_Int
79a0: 65 72 70 2a 29 3b 0a 20 20 20 20 65 78 74 65 72 erp*);. exter
79b0: 6e 20 69 6e 74 20 4d 64 35 5f 49 6e 69 74 28 54 n int Md5_Init(T
79c0: 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20 cl_Interp*);.
79d0: 20 53 71 6c 69 74 65 74 65 73 74 31 5f 49 6e 69 Sqlitetest1_Ini
79e0: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 53 t(interp);. S
79f0: 71 6c 69 74 65 74 65 73 74 32 5f 49 6e 69 74 28 qlitetest2_Init(
7a00: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 53 71 6c interp);. Sql
7a10: 69 74 65 74 65 73 74 33 5f 49 6e 69 74 28 69 6e itetest3_Init(in
7a20: 74 65 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74 terp);. Sqlit
7a30: 65 74 65 73 74 34 5f 49 6e 69 74 28 69 6e 74 65 etest4_Init(inte
7a40: 72 70 29 3b 0a 20 20 20 20 53 71 6c 69 74 65 74 rp);. Sqlitet
7a50: 65 73 74 35 5f 49 6e 69 74 28 69 6e 74 65 72 70 est5_Init(interp
7a60: 29 3b 0a 20 20 20 20 4d 64 35 5f 49 6e 69 74 28 );. Md5_Init(
7a70: 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a 23 65 6e interp);. }.#en
7a80: 64 69 66 0a 20 20 69 66 28 20 61 72 67 63 3e 3d dif. if( argc>=
7a90: 32 20 29 7b 0a 20 20 20 20 69 6e 74 20 69 3b 0a 2 ){. int i;.
7aa0: 20 20 20 20 54 63 6c 5f 53 65 74 56 61 72 28 69 Tcl_SetVar(i
7ab0: 6e 74 65 72 70 2c 22 61 72 67 76 30 22 2c 61 72 nterp,"argv0",ar
7ac0: 67 76 5b 31 5d 2c 54 43 4c 5f 47 4c 4f 42 41 4c gv[1],TCL_GLOBAL
7ad0: 5f 4f 4e 4c 59 29 3b 0a 20 20 20 20 54 63 6c 5f _ONLY);. Tcl_
7ae0: 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c 22 61 SetVar(interp,"a
7af0: 72 67 76 22 2c 20 22 22 2c 20 54 43 4c 5f 47 4c rgv", "", TCL_GL
7b00: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 20 20 20 OBAL_ONLY);.
7b10: 66 6f 72 28 69 3d 32 3b 20 69 3c 61 72 67 63 3b for(i=2; i<argc;
7b20: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 54 63 6c i++){. Tcl
7b30: 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 _SetVar(interp,
7b40: 22 61 72 67 76 22 2c 20 61 72 67 76 5b 69 5d 2c "argv", argv[i],
7b50: 0a 20 20 20 20 20 20 20 20 20 20 54 43 4c 5f 47 . TCL_G
7b60: 4c 4f 42 41 4c 5f 4f 4e 4c 59 20 7c 20 54 43 4c LOBAL_ONLY | TCL
7b70: 5f 4c 49 53 54 5f 45 4c 45 4d 45 4e 54 20 7c 20 _LIST_ELEMENT |
7b80: 54 43 4c 5f 41 50 50 45 4e 44 5f 56 41 4c 55 45 TCL_APPEND_VALUE
7b90: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 );. }. if(
7ba0: 20 54 63 6c 5f 45 76 61 6c 46 69 6c 65 28 69 6e Tcl_EvalFile(in
7bb0: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 29 21 3d terp, argv[1])!=
7bc0: 54 43 4c 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 TCL_OK ){.
7bd0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 49 6e 66 const char *zInf
7be0: 6f 20 3d 20 54 63 6c 5f 47 65 74 56 61 72 28 69 o = Tcl_GetVar(i
7bf0: 6e 74 65 72 70 2c 20 22 65 72 72 6f 72 49 6e 66 nterp, "errorInf
7c00: 6f 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f o", TCL_GLOBAL_O
7c10: 4e 4c 59 29 3b 0a 20 20 20 20 20 20 69 66 28 20 NLY);. if(
7c20: 7a 49 6e 66 6f 3d 3d 30 20 29 20 7a 49 6e 66 6f zInfo==0 ) zInfo
7c30: 20 3d 20 69 6e 74 65 72 70 2d 3e 72 65 73 75 6c = interp->resul
7c40: 74 3b 0a 20 20 20 20 20 20 66 70 72 69 6e 74 66 t;. fprintf
7c50: 28 73 74 64 65 72 72 2c 22 25 73 3a 20 25 73 5c (stderr,"%s: %s\
7c60: 6e 22 2c 20 2a 61 72 67 76 2c 20 7a 49 6e 66 6f n", *argv, zInfo
7c70: 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 );. return
7c80: 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 1;. }. }else
7c90: 7b 0a 20 20 20 20 54 63 6c 5f 47 6c 6f 62 61 6c {. Tcl_Global
7ca0: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 7a 4d 61 Eval(interp, zMa
7cb0: 69 6e 6c 6f 6f 70 29 3b 0a 20 20 7d 0a 20 20 72 inloop);. }. r
7cc0: 65 74 75 72 6e 20 30 3b 0a 7d 0a 23 65 6e 64 69 eturn 0;.}.#endi
7cd0: 66 20 2f 2a 20 54 43 4c 53 48 20 2a 2f 0a 0a 23 f /* TCLSH */..#
7ce0: 65 6e 64 69 66 20 2f 2a 20 21 64 65 66 69 6e 65 endif /* !define
7cf0: 64 28 4e 4f 5f 54 43 4c 29 20 2a 2f 0a d(NO_TCL) */.