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 34 clsqlite.c,v 1.4
01b0: 30 20 32 30 30 32 2f 30 38 2f 33 31 20 31 38 3a 0 2002/08/31 18:
01c0: 35 33 3a 30 38 20 64 72 68 20 45 78 70 20 24 0a 53:08 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 54 68 65 72 65 20 69 73 20 6f 6e 65 20 ** There is one
03d0: 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 69 73 instance of this
03e0: 20 73 74 72 75 63 74 75 72 65 20 66 6f 72 20 65 structure for e
03f0: 61 63 68 20 53 51 4c 69 74 65 20 64 61 74 61 62 ach SQLite datab
0400: 61 73 65 0a 2a 2a 20 74 68 61 74 20 68 61 73 20 ase.** that has
0410: 62 65 65 6e 20 6f 70 65 6e 65 64 20 62 79 20 74 been opened by t
0420: 68 65 20 53 51 4c 69 74 65 20 54 43 4c 20 69 6e he SQLite TCL in
0430: 74 65 72 66 61 63 65 2e 0a 2a 2f 0a 74 79 70 65 terface..*/.type
0440: 64 65 66 20 73 74 72 75 63 74 20 53 71 6c 69 74 def struct Sqlit
0450: 65 44 62 20 53 71 6c 69 74 65 44 62 3b 0a 73 74 eDb SqliteDb;.st
0460: 72 75 63 74 20 53 71 6c 69 74 65 44 62 20 7b 0a ruct SqliteDb {.
0470: 20 20 73 71 6c 69 74 65 20 2a 64 62 3b 20 20 20 sqlite *db;
0480: 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 22 /* The "
0490: 72 65 61 6c 22 20 64 61 74 61 62 61 73 65 20 73 real" database s
04a0: 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 54 63 tructure */. Tc
04b0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
04c0: 3b 20 20 20 2f 2a 20 54 68 65 20 69 6e 74 65 72 ; /* The inter
04d0: 70 72 65 74 65 72 20 75 73 65 64 20 66 6f 72 20 preter used for
04e0: 74 68 69 73 20 64 61 74 61 62 61 73 65 20 2a 2f this database */
04f0: 0a 20 20 63 68 61 72 20 2a 7a 42 75 73 79 3b 20 . char *zBusy;
0500: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 /* The
0510: 62 75 73 79 20 63 61 6c 6c 62 61 63 6b 20 72 6f busy callback ro
0520: 75 74 69 6e 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a utine */.};../*.
0530: 2a 2a 20 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f ** An instance o
0540: 66 20 74 68 69 73 20 73 74 72 75 63 74 75 72 65 f this structure
0550: 20 70 61 73 73 65 73 20 69 6e 66 6f 72 6d 61 74 passes informat
0560: 69 6f 6e 20 74 68 72 75 20 74 68 65 20 73 71 6c ion thru the sql
0570: 69 74 65 0a 2a 2a 20 6c 6f 67 69 63 20 66 72 6f ite.** logic fro
0580: 6d 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 54 m the original T
0590: 43 4c 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 6f 20 CL command into
05a0: 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 72 6f 75 the callback rou
05b0: 74 69 6e 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 tine..*/.typedef
05c0: 20 73 74 72 75 63 74 20 43 61 6c 6c 62 61 63 6b struct Callback
05d0: 44 61 74 61 20 43 61 6c 6c 62 61 63 6b 44 61 74 Data CallbackDat
05e0: 61 3b 0a 73 74 72 75 63 74 20 43 61 6c 6c 62 61 a;.struct Callba
05f0: 63 6b 44 61 74 61 20 7b 0a 20 20 54 63 6c 5f 49 ckData {. Tcl_I
0600: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 20 20 nterp *interp;
0610: 20 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 /* The TCL
0620: 69 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a 20 interpreter */.
0630: 20 63 68 61 72 20 2a 7a 41 72 72 61 79 3b 20 20 char *zArray;
0640: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 /* Th
0650: 65 20 61 72 72 61 79 20 69 6e 74 6f 20 77 68 69 e array into whi
0660: 63 68 20 64 61 74 61 20 69 73 20 77 72 69 74 74 ch data is writt
0670: 65 6e 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 en */. Tcl_Obj
0680: 2a 70 43 6f 64 65 3b 20 20 20 20 20 20 20 20 20 *pCode;
0690: 20 20 2f 2a 20 54 68 65 20 63 6f 64 65 20 74 6f /* The code to
06a0: 20 65 78 65 63 75 74 65 20 66 6f 72 20 65 61 63 execute for eac
06b0: 68 20 72 6f 77 20 2a 2f 0a 20 20 69 6e 74 20 6f h row */. int o
06c0: 6e 63 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 nce;
06d0: 20 20 20 20 20 2f 2a 20 53 65 74 20 66 6f 72 20 /* Set for
06e0: 66 69 72 73 74 20 63 61 6c 6c 62 61 63 6b 20 6f first callback o
06f0: 6e 6c 79 20 2a 2f 0a 20 20 69 6e 74 20 74 63 6c nly */. int tcl
0700: 5f 72 63 3b 20 20 20 20 20 20 20 20 20 20 20 20 _rc;
0710: 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f 64 /* Return cod
0720: 65 20 66 72 6f 6d 20 54 43 4c 20 73 63 72 69 70 e from TCL scrip
0730: 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 43 6f 6c 4e t */. int nColN
0740: 61 6d 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 ame;
0750: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 65 6e /* Number of en
0760: 74 72 69 65 73 20 69 6e 20 74 68 65 20 61 7a 43 tries in the azC
0770: 6f 6c 4e 61 6d 65 5b 5d 20 61 72 72 61 79 20 2a olName[] array *
0780: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 7a 43 6f 6c /. char **azCol
0790: 4e 61 6d 65 3b 20 20 20 20 20 20 20 20 20 2f 2a Name; /*
07a0: 20 43 6f 6c 75 6d 6e 20 6e 61 6d 65 73 20 74 72 Column names tr
07b0: 61 6e 73 6c 61 74 65 64 20 74 6f 20 55 54 46 2d anslated to UTF-
07c0: 38 20 2a 2f 0a 7d 3b 0a 0a 23 69 66 64 65 66 20 8 */.};..#ifdef
07d0: 55 54 46 5f 54 52 41 4e 53 4c 41 54 49 4f 4e 5f UTF_TRANSLATION_
07e0: 4e 45 45 44 45 44 0a 2f 2a 0a 2a 2a 20 43 61 6c NEEDED./*.** Cal
07f0: 6c 65 64 20 66 6f 72 20 65 61 63 68 20 72 6f 77 led for each row
0800: 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 2e 0a of the result..
0810: 2a 2a 0a 2a 2a 20 54 68 69 73 20 76 65 72 73 69 **.** This versi
0820: 6f 6e 20 69 73 20 75 73 65 64 20 77 68 65 6e 20 on is used when
0830: 54 43 4c 20 65 78 70 65 63 74 73 20 55 54 46 2d TCL expects UTF-
0840: 38 20 64 61 74 61 20 62 75 74 20 74 68 65 20 64 8 data but the d
0850: 61 74 61 62 61 73 65 0a 2a 2a 20 75 73 65 73 20 atabase.** uses
0860: 74 68 65 20 49 53 4f 38 38 35 39 20 66 6f 72 6d the ISO8859 form
0870: 61 74 2e 20 20 41 20 74 72 61 6e 73 6c 61 74 69 at. A translati
0880: 6f 6e 20 6d 75 73 74 20 6f 63 63 75 72 20 66 72 on must occur fr
0890: 6f 6d 20 49 53 4f 38 38 35 39 20 69 6e 74 6f 0a om ISO8859 into.
08a0: 2a 2a 20 55 54 46 2d 38 2e 0a 2a 2f 0a 73 74 61 ** UTF-8..*/.sta
08b0: 74 69 63 20 69 6e 74 20 44 62 45 76 61 6c 43 61 tic int DbEvalCa
08c0: 6c 6c 62 61 63 6b 28 0a 20 20 76 6f 69 64 20 2a llback(. void *
08d0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 20 20 20 20 clientData,
08e0: 20 2f 2a 20 41 6e 20 69 6e 73 74 61 6e 63 65 20 /* An instance
08f0: 6f 66 20 43 61 6c 6c 62 61 63 6b 44 61 74 61 20 of CallbackData
0900: 2a 2f 0a 20 20 69 6e 74 20 6e 43 6f 6c 2c 20 20 */. int nCol,
0910: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
0920: 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 umber of columns
0930: 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 20 2a in the result *
0940: 2f 0a 20 20 63 68 61 72 20 2a 2a 20 61 7a 43 6f /. char ** azCo
0950: 6c 2c 20 20 20 20 20 20 20 20 20 2f 2a 20 44 61 l, /* Da
0960: 74 61 20 66 6f 72 20 65 61 63 68 20 63 6f 6c 75 ta for each colu
0970: 6d 6e 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 20 mn */. char **
0980: 61 7a 4e 20 20 20 20 20 20 20 20 20 20 20 20 2f azN /
0990: 2a 20 4e 61 6d 65 20 66 6f 72 20 65 61 63 68 20 * Name for each
09a0: 63 6f 6c 75 6d 6e 20 2a 2f 0a 29 7b 0a 20 20 43 column */.){. C
09b0: 61 6c 6c 62 61 63 6b 44 61 74 61 20 2a 63 62 44 allbackData *cbD
09c0: 61 74 61 20 3d 20 28 43 61 6c 6c 62 61 63 6b 44 ata = (CallbackD
09d0: 61 74 61 2a 29 63 6c 69 65 6e 74 44 61 74 61 3b ata*)clientData;
09e0: 0a 20 20 69 6e 74 20 69 2c 20 72 63 3b 0a 20 20 . int i, rc;.
09f0: 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 43 6f 6c Tcl_DString dCol
0a00: 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 ;. Tcl_DStringI
0a10: 6e 69 74 28 26 64 43 6f 6c 29 3b 0a 20 20 69 66 nit(&dCol);. if
0a20: 28 20 63 62 44 61 74 61 2d 3e 61 7a 43 6f 6c 4e ( cbData->azColN
0a30: 61 6d 65 3d 3d 30 20 29 7b 0a 20 20 20 20 61 73 ame==0 ){. as
0a40: 73 65 72 74 28 20 63 62 44 61 74 61 2d 3e 6f 6e sert( cbData->on
0a50: 63 65 20 29 3b 0a 20 20 20 20 63 62 44 61 74 61 ce );. cbData
0a60: 2d 3e 6f 6e 63 65 20 3d 20 30 3b 0a 20 20 20 20 ->once = 0;.
0a70: 69 66 28 20 63 62 44 61 74 61 2d 3e 7a 41 72 72 if( cbData->zArr
0a80: 61 79 5b 30 5d 20 29 7b 0a 20 20 20 20 20 20 54 ay[0] ){. T
0a90: 63 6c 5f 53 65 74 56 61 72 32 28 63 62 44 61 74 cl_SetVar2(cbDat
0aa0: 61 2d 3e 69 6e 74 65 72 70 2c 20 63 62 44 61 74 a->interp, cbDat
0ab0: 61 2d 3e 7a 41 72 72 61 79 2c 20 22 2a 22 2c 20 a->zArray, "*",
0ac0: 22 22 2c 20 30 29 3b 0a 20 20 20 20 7d 0a 20 20 "", 0);. }.
0ad0: 20 20 63 62 44 61 74 61 2d 3e 61 7a 43 6f 6c 4e cbData->azColN
0ae0: 61 6d 65 20 3d 20 6d 61 6c 6c 6f 63 28 20 6e 43 ame = malloc( nC
0af0: 6f 6c 2a 73 69 7a 65 6f 66 28 63 68 61 72 2a 29 ol*sizeof(char*)
0b00: 20 29 3b 0a 20 20 20 20 69 66 28 20 63 62 44 61 );. if( cbDa
0b10: 74 61 2d 3e 61 7a 43 6f 6c 4e 61 6d 65 3d 3d 30 ta->azColName==0
0b20: 20 29 7b 20 72 65 74 75 72 6e 20 31 3b 20 7d 0a ){ return 1; }.
0b30: 20 20 20 20 63 62 44 61 74 61 2d 3e 6e 43 6f 6c cbData->nCol
0b40: 4e 61 6d 65 20 3d 20 6e 43 6f 6c 3b 0a 20 20 20 Name = nCol;.
0b50: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 43 6f 6c for(i=0; i<nCol
0b60: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 54 63 ; i++){. Tc
0b70: 6c 5f 45 78 74 65 72 6e 61 6c 54 6f 55 74 66 44 l_ExternalToUtfD
0b80: 53 74 72 69 6e 67 28 4e 55 4c 4c 2c 20 61 7a 4e String(NULL, azN
0b90: 5b 69 5d 2c 20 2d 31 2c 20 26 64 43 6f 6c 29 3b [i], -1, &dCol);
0ba0: 0a 20 20 20 20 20 20 63 62 44 61 74 61 2d 3e 61 . cbData->a
0bb0: 7a 43 6f 6c 4e 61 6d 65 5b 69 5d 20 3d 20 6d 61 zColName[i] = ma
0bc0: 6c 6c 6f 63 28 20 54 63 6c 5f 44 53 74 72 69 6e lloc( Tcl_DStrin
0bd0: 67 4c 65 6e 67 74 68 28 26 64 43 6f 6c 29 20 2b gLength(&dCol) +
0be0: 20 31 20 29 3b 0a 20 20 20 20 20 20 69 66 28 20 1 );. if(
0bf0: 63 62 44 61 74 61 2d 3e 61 7a 43 6f 6c 4e 61 6d cbData->azColNam
0c00: 65 5b 69 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 e[i] ){.
0c10: 73 74 72 63 70 79 28 63 62 44 61 74 61 2d 3e 61 strcpy(cbData->a
0c20: 7a 43 6f 6c 4e 61 6d 65 5b 69 5d 2c 20 54 63 6c zColName[i], Tcl
0c30: 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 64 _DStringValue(&d
0c40: 43 6f 6c 29 29 3b 0a 20 20 20 20 20 20 7d 65 6c Col));. }el
0c50: 73 65 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 se{. retu
0c60: 72 6e 20 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 rn 1;. }.
0c70: 20 20 20 20 69 66 28 20 63 62 44 61 74 61 2d 3e if( cbData->
0c80: 7a 41 72 72 61 79 5b 30 5d 20 29 7b 0a 20 20 20 zArray[0] ){.
0c90: 20 20 20 20 20 54 63 6c 5f 53 65 74 56 61 72 32 Tcl_SetVar2
0ca0: 28 63 62 44 61 74 61 2d 3e 69 6e 74 65 72 70 2c (cbData->interp,
0cb0: 20 63 62 44 61 74 61 2d 3e 7a 41 72 72 61 79 2c cbData->zArray,
0cc0: 20 22 2a 22 2c 0a 20 20 20 20 20 20 20 20 20 20 "*",.
0cd0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 Tcl_DStringVa
0ce0: 6c 75 65 28 26 64 43 6f 6c 29 2c 20 54 43 4c 5f lue(&dCol), TCL_
0cf0: 4c 49 53 54 5f 45 4c 45 4d 45 4e 54 7c 54 43 4c LIST_ELEMENT|TCL
0d00: 5f 41 50 50 45 4e 44 5f 56 41 4c 55 45 29 3b 0a _APPEND_VALUE);.
0d10: 20 20 20 20 20 20 20 20 69 66 28 20 61 7a 4e 5b if( azN[
0d20: 6e 43 6f 6c 5d 21 3d 30 20 29 7b 0a 20 20 20 20 nCol]!=0 ){.
0d30: 20 20 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e Tcl_DStrin
0d40: 67 20 64 54 79 70 65 3b 0a 20 20 20 20 20 20 20 g dType;.
0d50: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e Tcl_DStringIn
0d60: 69 74 28 26 64 54 79 70 65 29 3b 0a 20 20 20 20 it(&dType);.
0d70: 20 20 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e Tcl_DStrin
0d80: 67 41 70 70 65 6e 64 28 26 64 54 79 70 65 2c 20 gAppend(&dType,
0d90: 22 74 79 70 65 6f 66 3a 22 2c 20 2d 31 29 3b 0a "typeof:", -1);.
0da0: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 44 53 Tcl_DS
0db0: 74 72 69 6e 67 41 70 70 65 6e 64 28 26 64 54 79 tringAppend(&dTy
0dc0: 70 65 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 pe, Tcl_DStringV
0dd0: 61 6c 75 65 28 26 64 43 6f 6c 29 2c 20 2d 31 29 alue(&dCol), -1)
0de0: 3b 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f ;. Tcl_
0df0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 43 6f DStringFree(&dCo
0e00: 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 54 63 l);. Tc
0e10: 6c 5f 45 78 74 65 72 6e 61 6c 54 6f 55 74 66 44 l_ExternalToUtfD
0e20: 53 74 72 69 6e 67 28 4e 55 4c 4c 2c 20 61 7a 4e String(NULL, azN
0e30: 5b 69 2b 6e 43 6f 6c 5d 2c 20 2d 31 2c 20 26 64 [i+nCol], -1, &d
0e40: 43 6f 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 Col);.
0e50: 54 63 6c 5f 53 65 74 56 61 72 32 28 63 62 44 61 Tcl_SetVar2(cbDa
0e60: 74 61 2d 3e 69 6e 74 65 72 70 2c 20 63 62 44 61 ta->interp, cbDa
0e70: 74 61 2d 3e 7a 41 72 72 61 79 2c 20 0a 20 20 20 ta->zArray, .
0e80: 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f Tcl_
0e90: 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 64 54 DStringValue(&dT
0ea0: 79 70 65 29 2c 20 54 63 6c 5f 44 53 74 72 69 6e ype), Tcl_DStrin
0eb0: 67 56 61 6c 75 65 28 26 64 43 6f 6c 29 2c 0a 20 gValue(&dCol),.
0ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 43 TC
0ed0: 4c 5f 4c 49 53 54 5f 45 4c 45 4d 45 4e 54 7c 54 L_LIST_ELEMENT|T
0ee0: 43 4c 5f 41 50 50 45 4e 44 5f 56 41 4c 55 45 29 CL_APPEND_VALUE)
0ef0: 3b 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f ;. Tcl_
0f00: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 54 79 DStringFree(&dTy
0f10: 70 65 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 pe);. }.
0f20: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 0a 20 20 }. .
0f30: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 Tcl_DStringF
0f40: 72 65 65 28 26 64 43 6f 6c 29 3b 0a 20 20 20 20 ree(&dCol);.
0f50: 7d 0a 20 20 7d 0a 20 20 69 66 28 20 61 7a 43 6f }. }. if( azCo
0f60: 6c 21 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 l!=0 ){. if(
0f70: 63 62 44 61 74 61 2d 3e 7a 41 72 72 61 79 5b 30 cbData->zArray[0
0f80: 5d 20 29 7b 0a 20 20 20 20 20 20 66 6f 72 28 69 ] ){. for(i
0f90: 3d 30 3b 20 69 3c 6e 43 6f 6c 3b 20 69 2b 2b 29 =0; i<nCol; i++)
0fa0: 7b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a {. char *
0fb0: 7a 20 3d 20 61 7a 43 6f 6c 5b 69 5d 3b 0a 20 20 z = azCol[i];.
0fc0: 20 20 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 29 if( z==0 )
0fd0: 20 7a 20 3d 20 22 22 3b 0a 20 20 20 20 20 20 20 z = "";.
0fe0: 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 Tcl_DStringInit
0ff0: 28 26 64 43 6f 6c 29 3b 0a 20 20 20 20 20 20 20 (&dCol);.
1000: 20 54 63 6c 5f 45 78 74 65 72 6e 61 6c 54 6f 55 Tcl_ExternalToU
1010: 74 66 44 53 74 72 69 6e 67 28 4e 55 4c 4c 2c 20 tfDString(NULL,
1020: 7a 2c 20 2d 31 2c 20 26 64 43 6f 6c 29 3b 0a 20 z, -1, &dCol);.
1030: 20 20 20 20 20 20 20 54 63 6c 5f 53 65 74 56 61 Tcl_SetVa
1040: 72 32 28 63 62 44 61 74 61 2d 3e 69 6e 74 65 72 r2(cbData->inter
1050: 70 2c 20 63 62 44 61 74 61 2d 3e 7a 41 72 72 61 p, cbData->zArra
1060: 79 2c 20 63 62 44 61 74 61 2d 3e 61 7a 43 6f 6c y, cbData->azCol
1070: 4e 61 6d 65 5b 69 5d 2c 20 0a 20 20 20 20 20 20 Name[i], .
1080: 20 20 20 20 20 20 20 20 54 63 6c 5f 44 53 74 72 Tcl_DStr
1090: 69 6e 67 56 61 6c 75 65 28 26 64 43 6f 6c 29 2c ingValue(&dCol),
10a0: 20 30 29 3b 0a 20 20 20 20 20 20 20 20 54 63 6c 0);. Tcl
10b0: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 43 _DStringFree(&dC
10c0: 6f 6c 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 ol);. }.
10d0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 66 6f }else{. fo
10e0: 72 28 69 3d 30 3b 20 69 3c 6e 43 6f 6c 3b 20 69 r(i=0; i<nCol; i
10f0: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 63 68 61 ++){. cha
1100: 72 20 2a 7a 20 3d 20 61 7a 43 6f 6c 5b 69 5d 3b r *z = azCol[i];
1110: 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a 3d 3d . if( z==
1120: 30 20 29 20 7a 20 3d 20 22 22 3b 0a 20 20 20 20 0 ) z = "";.
1130: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 Tcl_DStringI
1140: 6e 69 74 28 26 64 43 6f 6c 29 3b 0a 20 20 20 20 nit(&dCol);.
1150: 20 20 20 20 54 63 6c 5f 45 78 74 65 72 6e 61 6c Tcl_External
1160: 54 6f 55 74 66 44 53 74 72 69 6e 67 28 4e 55 4c ToUtfDString(NUL
1170: 4c 2c 20 7a 2c 20 2d 31 2c 20 26 64 43 6f 6c 29 L, z, -1, &dCol)
1180: 3b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 53 65 ;. Tcl_Se
1190: 74 56 61 72 28 63 62 44 61 74 61 2d 3e 69 6e 74 tVar(cbData->int
11a0: 65 72 70 2c 20 63 62 44 61 74 61 2d 3e 61 7a 43 erp, cbData->azC
11b0: 6f 6c 4e 61 6d 65 5b 69 5d 2c 0a 20 20 20 20 20 olName[i],.
11c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 63 Tc
11d0: 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 l_DStringValue(&
11e0: 64 43 6f 6c 29 2c 20 30 29 3b 0a 20 20 20 20 20 dCol), 0);.
11f0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
1200: 65 65 28 26 64 43 6f 6c 29 3b 0a 20 20 20 20 20 ee(&dCol);.
1210: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 }. }. }. r
1220: 63 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 28 c = Tcl_EvalObj(
1230: 63 62 44 61 74 61 2d 3e 69 6e 74 65 72 70 2c 20 cbData->interp,
1240: 63 62 44 61 74 61 2d 3e 70 43 6f 64 65 29 3b 0a cbData->pCode);.
1250: 20 20 69 66 28 20 72 63 3d 3d 54 43 4c 5f 43 4f if( rc==TCL_CO
1260: 4e 54 49 4e 55 45 20 29 20 72 63 20 3d 20 54 43 NTINUE ) rc = TC
1270: 4c 5f 4f 4b 3b 0a 20 20 63 62 44 61 74 61 2d 3e L_OK;. cbData->
1280: 74 63 6c 5f 72 63 20 3d 20 72 63 3b 0a 20 20 72 tcl_rc = rc;. r
1290: 65 74 75 72 6e 20 72 63 21 3d 54 43 4c 5f 4f 4b eturn rc!=TCL_OK
12a0: 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 55 54 ;.}.#endif /* UT
12b0: 46 5f 54 52 41 4e 53 4c 41 54 49 4f 4e 5f 4e 45 F_TRANSLATION_NE
12c0: 45 44 45 44 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 EDED */..#ifndef
12d0: 20 55 54 46 5f 54 52 41 4e 53 4c 41 54 49 4f 4e UTF_TRANSLATION
12e0: 5f 4e 45 45 44 45 44 0a 2f 2a 0a 2a 2a 20 43 61 _NEEDED./*.** Ca
12f0: 6c 6c 65 64 20 66 6f 72 20 65 61 63 68 20 72 6f lled for each ro
1300: 77 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 2e w of the result.
1310: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 76 65 72 73 .**.** This vers
1320: 69 6f 6e 20 69 73 20 75 73 65 64 20 77 68 65 6e ion is used when
1330: 20 65 69 74 68 65 72 20 6f 66 20 74 68 65 20 66 either of the f
1340: 6f 6c 6c 6f 77 69 6e 67 20 69 73 20 74 72 75 65 ollowing is true
1350: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 28 31 29 20 54 :.**.** (1) T
1360: 68 69 73 20 76 65 72 73 69 6f 6e 20 6f 66 20 54 his version of T
1370: 43 4c 20 75 73 65 73 20 55 54 46 2d 38 20 61 6e CL uses UTF-8 an
1380: 64 20 74 68 65 20 64 61 74 61 20 69 6e 20 74 68 d the data in th
1390: 65 0a 2a 2a 20 20 20 20 20 20 20 20 53 51 4c 69 e.** SQLi
13a0: 74 65 20 64 61 74 61 62 61 73 65 20 69 73 20 61 te database is a
13b0: 6c 72 65 61 64 79 20 69 6e 20 74 68 65 20 55 54 lready in the UT
13c0: 46 2d 38 20 66 6f 72 6d 61 74 2e 0a 2a 2a 0a 2a F-8 format..**.*
13d0: 2a 20 20 20 20 28 32 29 20 54 68 69 73 20 76 65 * (2) This ve
13e0: 72 73 69 6f 6e 20 6f 66 20 54 43 4c 20 75 73 65 rsion of TCL use
13f0: 73 20 49 53 4f 38 38 35 39 20 61 6e 64 20 74 68 s ISO8859 and th
1400: 65 20 64 61 74 61 20 69 6e 20 74 68 65 0a 2a 2a e data in the.**
1410: 20 20 20 20 20 20 20 20 53 51 4c 69 74 65 20 64 SQLite d
1420: 61 74 61 62 61 73 65 20 69 73 20 61 6c 72 65 61 atabase is alrea
1430: 64 79 20 69 6e 20 74 68 65 20 49 53 4f 38 38 35 dy in the ISO885
1440: 39 20 66 6f 72 6d 61 74 2e 0a 2a 2f 0a 73 74 61 9 format..*/.sta
1450: 74 69 63 20 69 6e 74 20 44 62 45 76 61 6c 43 61 tic int DbEvalCa
1460: 6c 6c 62 61 63 6b 28 0a 20 20 76 6f 69 64 20 2a llback(. void *
1470: 63 6c 69 65 6e 74 44 61 74 61 2c 20 20 20 20 20 clientData,
1480: 20 2f 2a 20 41 6e 20 69 6e 73 74 61 6e 63 65 20 /* An instance
1490: 6f 66 20 43 61 6c 6c 62 61 63 6b 44 61 74 61 20 of CallbackData
14a0: 2a 2f 0a 20 20 69 6e 74 20 6e 43 6f 6c 2c 20 20 */. int nCol,
14b0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
14c0: 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 umber of columns
14d0: 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 20 2a in the result *
14e0: 2f 0a 20 20 63 68 61 72 20 2a 2a 20 61 7a 43 6f /. char ** azCo
14f0: 6c 2c 20 20 20 20 20 20 20 20 20 2f 2a 20 44 61 l, /* Da
1500: 74 61 20 66 6f 72 20 65 61 63 68 20 63 6f 6c 75 ta for each colu
1510: 6d 6e 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 20 mn */. char **
1520: 61 7a 4e 20 20 20 20 20 20 20 20 20 20 20 20 2f azN /
1530: 2a 20 4e 61 6d 65 20 66 6f 72 20 65 61 63 68 20 * Name for each
1540: 63 6f 6c 75 6d 6e 20 2a 2f 0a 29 7b 0a 20 20 43 column */.){. C
1550: 61 6c 6c 62 61 63 6b 44 61 74 61 20 2a 63 62 44 allbackData *cbD
1560: 61 74 61 20 3d 20 28 43 61 6c 6c 62 61 63 6b 44 ata = (CallbackD
1570: 61 74 61 2a 29 63 6c 69 65 6e 74 44 61 74 61 3b ata*)clientData;
1580: 0a 20 20 69 6e 74 20 69 2c 20 72 63 3b 0a 20 20 . int i, rc;.
1590: 69 66 28 20 61 7a 43 6f 6c 3d 3d 30 20 7c 7c 20 if( azCol==0 ||
15a0: 28 63 62 44 61 74 61 2d 3e 6f 6e 63 65 20 26 26 (cbData->once &&
15b0: 20 63 62 44 61 74 61 2d 3e 7a 41 72 72 61 79 5b cbData->zArray[
15c0: 30 5d 29 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 0]) ){. Tcl_S
15d0: 65 74 56 61 72 32 28 63 62 44 61 74 61 2d 3e 69 etVar2(cbData->i
15e0: 6e 74 65 72 70 2c 20 63 62 44 61 74 61 2d 3e 7a nterp, cbData->z
15f0: 41 72 72 61 79 2c 20 22 2a 22 2c 20 22 22 2c 20 Array, "*", "",
1600: 30 29 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b 0);. for(i=0;
1610: 20 69 3c 6e 43 6f 6c 3b 20 69 2b 2b 29 7b 0a 20 i<nCol; i++){.
1620: 20 20 20 20 20 54 63 6c 5f 53 65 74 56 61 72 32 Tcl_SetVar2
1630: 28 63 62 44 61 74 61 2d 3e 69 6e 74 65 72 70 2c (cbData->interp,
1640: 20 63 62 44 61 74 61 2d 3e 7a 41 72 72 61 79 2c cbData->zArray,
1650: 20 22 2a 22 2c 20 61 7a 4e 5b 69 5d 2c 0a 20 20 "*", azN[i],.
1660: 20 20 20 20 20 20 20 54 43 4c 5f 4c 49 53 54 5f TCL_LIST_
1670: 45 4c 45 4d 45 4e 54 7c 54 43 4c 5f 41 50 50 45 ELEMENT|TCL_APPE
1680: 4e 44 5f 56 41 4c 55 45 29 3b 0a 20 20 20 20 20 ND_VALUE);.
1690: 20 69 66 28 20 61 7a 4e 5b 6e 43 6f 6c 5d 20 29 if( azN[nCol] )
16a0: 7b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a {. char *
16b0: 7a 20 3d 20 73 71 6c 69 74 65 5f 6d 70 72 69 6e z = sqlite_mprin
16c0: 74 66 28 22 74 79 70 65 6f 66 3a 25 73 22 2c 20 tf("typeof:%s",
16d0: 61 7a 4e 5b 69 5d 29 3b 0a 20 20 20 20 20 20 20 azN[i]);.
16e0: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 63 62 44 Tcl_SetVar2(cbD
16f0: 61 74 61 2d 3e 69 6e 74 65 72 70 2c 20 63 62 44 ata->interp, cbD
1700: 61 74 61 2d 3e 7a 41 72 72 61 79 2c 20 7a 2c 20 ata->zArray, z,
1710: 61 7a 4e 5b 69 2b 6e 43 6f 6c 5d 2c 0a 20 20 20 azN[i+nCol],.
1720: 20 20 20 20 20 20 20 20 54 43 4c 5f 4c 49 53 54 TCL_LIST
1730: 5f 45 4c 45 4d 45 4e 54 7c 54 43 4c 5f 41 50 50 _ELEMENT|TCL_APP
1740: 45 4e 44 5f 56 41 4c 55 45 29 3b 0a 20 20 20 20 END_VALUE);.
1750: 20 20 20 20 73 71 6c 69 74 65 5f 66 72 65 65 6d sqlite_freem
1760: 65 6d 28 7a 29 3b 0a 20 20 20 20 20 20 7d 0a 20 em(z);. }.
1770: 20 20 20 7d 0a 20 20 20 20 63 62 44 61 74 61 2d }. cbData-
1780: 3e 6f 6e 63 65 20 3d 20 30 3b 0a 20 20 7d 0a 20 >once = 0;. }.
1790: 20 69 66 28 20 61 7a 43 6f 6c 21 3d 30 20 29 7b if( azCol!=0 ){
17a0: 0a 20 20 20 20 69 66 28 20 63 62 44 61 74 61 2d . if( cbData-
17b0: 3e 7a 41 72 72 61 79 5b 30 5d 20 29 7b 0a 20 20 >zArray[0] ){.
17c0: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e for(i=0; i<n
17d0: 43 6f 6c 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 Col; i++){.
17e0: 20 20 20 63 68 61 72 20 2a 7a 20 3d 20 61 7a 43 char *z = azC
17f0: 6f 6c 5b 69 5d 3b 0a 20 20 20 20 20 20 20 20 69 ol[i];. i
1800: 66 28 20 7a 3d 3d 30 20 29 20 7a 20 3d 20 22 22 f( z==0 ) z = ""
1810: 3b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 53 65 ;. Tcl_Se
1820: 74 56 61 72 32 28 63 62 44 61 74 61 2d 3e 69 6e tVar2(cbData->in
1830: 74 65 72 70 2c 20 63 62 44 61 74 61 2d 3e 7a 41 terp, cbData->zA
1840: 72 72 61 79 2c 20 61 7a 4e 5b 69 5d 2c 20 7a 2c rray, azN[i], z,
1850: 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 0);. }.
1860: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 66 6f }else{. fo
1870: 72 28 69 3d 30 3b 20 69 3c 6e 43 6f 6c 3b 20 69 r(i=0; i<nCol; i
1880: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 63 68 61 ++){. cha
1890: 72 20 2a 7a 20 3d 20 61 7a 43 6f 6c 5b 69 5d 3b r *z = azCol[i];
18a0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a 3d 3d . if( z==
18b0: 30 20 29 20 7a 20 3d 20 22 22 3b 0a 20 20 20 20 0 ) z = "";.
18c0: 20 20 20 20 54 63 6c 5f 53 65 74 56 61 72 28 63 Tcl_SetVar(c
18d0: 62 44 61 74 61 2d 3e 69 6e 74 65 72 70 2c 20 61 bData->interp, a
18e0: 7a 4e 5b 69 5d 2c 20 7a 2c 20 30 29 3b 0a 20 20 zN[i], z, 0);.
18f0: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a }. }. }.
1900: 20 20 72 63 20 3d 20 54 63 6c 5f 45 76 61 6c 4f rc = Tcl_EvalO
1910: 62 6a 28 63 62 44 61 74 61 2d 3e 69 6e 74 65 72 bj(cbData->inter
1920: 70 2c 20 63 62 44 61 74 61 2d 3e 70 43 6f 64 65 p, cbData->pCode
1930: 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 54 43 4c );. if( rc==TCL
1940: 5f 43 4f 4e 54 49 4e 55 45 20 29 20 72 63 20 3d _CONTINUE ) rc =
1950: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 63 62 44 61 74 TCL_OK;. cbDat
1960: 61 2d 3e 74 63 6c 5f 72 63 20 3d 20 72 63 3b 0a a->tcl_rc = rc;.
1970: 20 20 72 65 74 75 72 6e 20 72 63 21 3d 54 43 4c return rc!=TCL
1980: 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f _OK;.}.#endif../
1990: 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 61 6e 20 *.** This is an
19a0: 61 6c 74 65 72 6e 61 74 69 76 65 20 63 61 6c 6c alternative call
19b0: 62 61 63 6b 20 66 6f 72 20 64 61 74 61 62 61 73 back for databas
19c0: 65 20 71 75 65 72 69 65 73 2e 20 20 49 6e 73 74 e queries. Inst
19d0: 65 61 64 0a 2a 2a 20 6f 66 20 69 6e 76 6f 6b 69 ead.** of invoki
19e0: 6e 67 20 61 20 54 43 4c 20 73 63 72 69 70 74 20 ng a TCL script
19f0: 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 72 65 to handle the re
1a00: 73 75 6c 74 2c 20 74 68 69 73 20 63 61 6c 6c 62 sult, this callb
1a10: 61 63 6b 20 6a 75 73 74 0a 2a 2a 20 61 70 70 65 ack just.** appe
1a20: 6e 64 73 20 65 61 63 68 20 63 6f 6c 75 6d 6e 20 nds each column
1a30: 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 74 6f of the result to
1a40: 20 61 20 6c 69 73 74 2e 20 20 41 66 74 65 72 20 a list. After
1a50: 74 68 65 20 71 75 65 72 79 0a 2a 2a 20 69 73 20 the query.** is
1a60: 63 6f 6d 70 6c 65 74 65 2c 20 74 68 65 20 6c 69 complete, the li
1a70: 73 74 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a st is returned..
1a80: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44 62 */.static int Db
1a90: 45 76 61 6c 43 61 6c 6c 62 61 63 6b 32 28 0a 20 EvalCallback2(.
1aa0: 20 76 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61 74 void *clientDat
1ab0: 61 2c 20 20 20 20 20 20 2f 2a 20 41 6e 20 69 6e a, /* An in
1ac0: 73 74 61 6e 63 65 20 6f 66 20 43 61 6c 6c 62 61 stance of Callba
1ad0: 63 6b 44 61 74 61 20 2a 2f 0a 20 20 69 6e 74 20 ckData */. int
1ae0: 6e 43 6f 6c 2c 20 20 20 20 20 20 20 20 20 20 20 nCol,
1af0: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
1b00: 63 6f 6c 75 6d 6e 73 20 69 6e 20 74 68 65 20 72 columns in the r
1b10: 65 73 75 6c 74 20 2a 2f 0a 20 20 63 68 61 72 20 esult */. char
1b20: 2a 2a 20 61 7a 43 6f 6c 2c 20 20 20 20 20 20 20 ** azCol,
1b30: 20 20 2f 2a 20 44 61 74 61 20 66 6f 72 20 65 61 /* Data for ea
1b40: 63 68 20 63 6f 6c 75 6d 6e 20 2a 2f 0a 20 20 63 ch column */. c
1b50: 68 61 72 20 2a 2a 20 61 7a 4e 20 20 20 20 20 20 har ** azN
1b60: 20 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20 66 6f /* Name fo
1b70: 72 20 65 61 63 68 20 63 6f 6c 75 6d 6e 20 2a 2f r each column */
1b80: 0a 29 7b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 .){. Tcl_Obj *p
1b90: 4c 69 73 74 20 3d 20 28 54 63 6c 5f 4f 62 6a 2a List = (Tcl_Obj*
1ba0: 29 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 69 )clientData;. i
1bb0: 6e 74 20 69 3b 0a 20 20 69 66 28 20 61 7a 43 6f nt i;. if( azCo
1bc0: 6c 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b l==0 ) return 0;
1bd0: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 43 . for(i=0; i<nC
1be0: 6f 6c 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 ol; i++){. Tc
1bf0: 6c 5f 4f 62 6a 20 2a 70 45 6c 65 6d 3b 0a 20 20 l_Obj *pElem;.
1c00: 20 20 69 66 28 20 61 7a 43 6f 6c 5b 69 5d 20 26 if( azCol[i] &
1c10: 26 20 2a 61 7a 43 6f 6c 5b 69 5d 20 29 7b 0a 23 & *azCol[i] ){.#
1c20: 69 66 64 65 66 20 55 54 46 5f 54 52 41 4e 53 4c ifdef UTF_TRANSL
1c30: 41 54 49 4f 4e 5f 4e 45 45 44 45 44 0a 20 20 20 ATION_NEEDED.
1c40: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 Tcl_DString d
1c50: 43 6f 6c 3b 0a 20 20 20 20 20 20 54 63 6c 5f 44 Col;. Tcl_D
1c60: 53 74 72 69 6e 67 49 6e 69 74 28 26 64 43 6f 6c StringInit(&dCol
1c70: 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f 45 78 74 );. Tcl_Ext
1c80: 65 72 6e 61 6c 54 6f 55 74 66 44 53 74 72 69 6e ernalToUtfDStrin
1c90: 67 28 4e 55 4c 4c 2c 20 61 7a 43 6f 6c 5b 69 5d g(NULL, azCol[i]
1ca0: 2c 20 2d 31 2c 20 26 64 43 6f 6c 29 3b 0a 20 20 , -1, &dCol);.
1cb0: 20 20 20 20 70 45 6c 65 6d 20 3d 20 54 63 6c 5f pElem = Tcl_
1cc0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 54 63 6c NewStringObj(Tcl
1cd0: 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 64 _DStringValue(&d
1ce0: 43 6f 6c 29 2c 20 2d 31 29 3b 0a 20 20 20 20 20 Col), -1);.
1cf0: 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 Tcl_DStringFree
1d00: 28 26 64 43 6f 6c 29 3b 0a 23 65 6c 73 65 0a 20 (&dCol);.#else.
1d10: 20 20 20 20 20 70 45 6c 65 6d 20 3d 20 54 63 6c pElem = Tcl
1d20: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 61 7a _NewStringObj(az
1d30: 43 6f 6c 5b 69 5d 2c 20 2d 31 29 3b 0a 23 65 6e Col[i], -1);.#en
1d40: 64 69 66 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 dif. }else{.
1d50: 20 20 20 20 20 70 45 6c 65 6d 20 3d 20 54 63 6c pElem = Tcl
1d60: 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 7d _NewObj();. }
1d70: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1d80: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c AppendElement(0,
1d90: 20 70 4c 69 73 74 2c 20 70 45 6c 65 6d 29 3b 0a pList, pElem);.
1da0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a }. return 0;.
1db0: 7d 0a 0a 2f 2a 0a 2a 2a 20 43 61 6c 6c 65 64 20 }../*.** Called
1dc0: 77 68 65 6e 20 74 68 65 20 63 6f 6d 6d 61 6e 64 when the command
1dd0: 20 69 73 20 64 65 6c 65 74 65 64 2e 0a 2a 2f 0a is deleted..*/.
1de0: 73 74 61 74 69 63 20 76 6f 69 64 20 44 62 44 65 static void DbDe
1df0: 6c 65 74 65 43 6d 64 28 76 6f 69 64 20 2a 64 62 leteCmd(void *db
1e00: 29 7b 0a 20 20 53 71 6c 69 74 65 44 62 20 2a 70 ){. SqliteDb *p
1e10: 44 62 20 3d 20 28 53 71 6c 69 74 65 44 62 2a 29 Db = (SqliteDb*)
1e20: 64 62 3b 0a 20 20 73 71 6c 69 74 65 5f 63 6c 6f db;. sqlite_clo
1e30: 73 65 28 70 44 62 2d 3e 64 62 29 3b 0a 20 20 69 se(pDb->db);. i
1e40: 66 28 20 70 44 62 2d 3e 7a 42 75 73 79 20 29 7b f( pDb->zBusy ){
1e50: 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 28 70 44 . Tcl_Free(pD
1e60: 62 2d 3e 7a 42 75 73 79 29 3b 0a 20 20 7d 0a 20 b->zBusy);. }.
1e70: 20 54 63 6c 5f 46 72 65 65 28 28 63 68 61 72 2a Tcl_Free((char*
1e80: 29 70 44 62 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 )pDb);.}../*.**
1e90: 54 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 This routine is
1ea0: 63 61 6c 6c 65 64 20 77 68 65 6e 20 61 20 64 61 called when a da
1eb0: 74 61 62 61 73 65 20 66 69 6c 65 20 69 73 20 6c tabase file is l
1ec0: 6f 63 6b 65 64 20 77 68 69 6c 65 20 74 72 79 69 ocked while tryi
1ed0: 6e 67 0a 2a 2a 20 74 6f 20 65 78 65 63 75 74 65 ng.** to execute
1ee0: 20 53 51 4c 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 SQL..*/.static
1ef0: 69 6e 74 20 44 62 42 75 73 79 48 61 6e 64 6c 65 int DbBusyHandle
1f00: 72 28 76 6f 69 64 20 2a 63 64 2c 20 63 6f 6e 73 r(void *cd, cons
1f10: 74 20 63 68 61 72 20 2a 7a 54 61 62 6c 65 2c 20 t char *zTable,
1f20: 69 6e 74 20 6e 54 72 69 65 73 29 7b 0a 20 20 53 int nTries){. S
1f30: 71 6c 69 74 65 44 62 20 2a 70 44 62 20 3d 20 28 qliteDb *pDb = (
1f40: 53 71 6c 69 74 65 44 62 2a 29 63 64 3b 0a 20 20 SqliteDb*)cd;.
1f50: 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 7a int rc;. char z
1f60: 56 61 6c 5b 33 30 5d 3b 0a 20 20 63 68 61 72 20 Val[30];. char
1f70: 2a 7a 43 6d 64 3b 0a 20 20 54 63 6c 5f 44 53 74 *zCmd;. Tcl_DSt
1f80: 72 69 6e 67 20 63 6d 64 3b 0a 0a 20 20 54 63 6c ring cmd;.. Tcl
1f90: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 63 6d _DStringInit(&cm
1fa0: 64 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e d);. Tcl_DStrin
1fb0: 67 41 70 70 65 6e 64 28 26 63 6d 64 2c 20 70 44 gAppend(&cmd, pD
1fc0: 62 2d 3e 7a 42 75 73 79 2c 20 2d 31 29 3b 0a 20 b->zBusy, -1);.
1fd0: 20 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 Tcl_DStringAppe
1fe0: 6e 64 45 6c 65 6d 65 6e 74 28 26 63 6d 64 2c 20 ndElement(&cmd,
1ff0: 7a 54 61 62 6c 65 29 3b 0a 20 20 73 70 72 69 6e zTable);. sprin
2000: 74 66 28 7a 56 61 6c 2c 20 22 20 25 64 22 2c 20 tf(zVal, " %d",
2010: 6e 54 72 69 65 73 29 3b 0a 20 20 54 63 6c 5f 44 nTries);. Tcl_D
2020: 53 74 72 69 6e 67 41 70 70 65 6e 64 28 26 63 6d StringAppend(&cm
2030: 64 2c 20 7a 56 61 6c 2c 20 2d 31 29 3b 0a 20 20 d, zVal, -1);.
2040: 7a 43 6d 64 20 3d 20 54 63 6c 5f 44 53 74 72 69 zCmd = Tcl_DStri
2050: 6e 67 56 61 6c 75 65 28 26 63 6d 64 29 3b 0a 20 ngValue(&cmd);.
2060: 20 72 63 20 3d 20 54 63 6c 5f 45 76 61 6c 28 70 rc = Tcl_Eval(p
2070: 44 62 2d 3e 69 6e 74 65 72 70 2c 20 7a 43 6d 64 Db->interp, zCmd
2080: 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 );. Tcl_DString
2090: 46 72 65 65 28 26 63 6d 64 29 3b 0a 20 20 69 66 Free(&cmd);. if
20a0: 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20 7c 7c 20 ( rc!=TCL_OK ||
20b0: 61 74 6f 69 28 54 63 6c 5f 47 65 74 53 74 72 69 atoi(Tcl_GetStri
20c0: 6e 67 52 65 73 75 6c 74 28 70 44 62 2d 3e 69 6e ngResult(pDb->in
20d0: 74 65 72 70 29 29 20 29 7b 0a 20 20 20 20 72 65 terp)) ){. re
20e0: 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 72 65 turn 0;. }. re
20f0: 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 1;.}../*.**
2100: 20 54 68 65 20 22 73 71 6c 69 74 65 22 20 63 6f The "sqlite" co
2110: 6d 6d 61 6e 64 20 62 65 6c 6f 77 20 63 72 65 61 mmand below crea
2120: 74 65 73 20 61 20 6e 65 77 20 54 63 6c 20 63 6f tes a new Tcl co
2130: 6d 6d 61 6e 64 20 66 6f 72 20 65 61 63 68 0a 2a mmand for each.*
2140: 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 74 20 * connection it
2150: 6f 70 65 6e 73 20 74 6f 20 61 6e 20 53 51 4c 69 opens to an SQLi
2160: 74 65 20 64 61 74 61 62 61 73 65 2e 20 20 54 68 te database. Th
2170: 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 69 6e is routine is in
2180: 76 6f 6b 65 64 0a 2a 2a 20 77 68 65 6e 65 76 65 voked.** wheneve
2190: 72 20 6f 6e 65 20 6f 66 20 74 68 6f 73 65 20 63 r one of those c
21a0: 6f 6e 6e 65 63 74 69 6f 6e 2d 73 70 65 63 69 66 onnection-specif
21b0: 69 63 20 63 6f 6d 6d 61 6e 64 73 20 69 73 20 65 ic commands is e
21c0: 78 65 63 75 74 65 64 0a 2a 2a 20 69 6e 20 54 63 xecuted.** in Tc
21d0: 6c 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c l. For example,
21e0: 20 69 66 20 79 6f 75 20 72 75 6e 20 54 63 6c 20 if you run Tcl
21f0: 63 6f 64 65 20 6c 69 6b 65 20 74 68 69 73 3a 0a code like this:.
2200: 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 73 71 6c 69 **.** sqli
2210: 74 65 20 64 62 31 20 20 22 6d 79 5f 64 61 74 61 te db1 "my_data
2220: 62 61 73 65 22 0a 2a 2a 20 20 20 20 20 20 20 64 base".** d
2230: 62 31 20 63 6c 6f 73 65 0a 2a 2a 0a 2a 2a 20 54 b1 close.**.** T
2240: 68 65 20 66 69 72 73 74 20 63 6f 6d 6d 61 6e 64 he first command
2250: 20 6f 70 65 6e 73 20 61 20 63 6f 6e 6e 65 63 74 opens a connect
2260: 69 6f 6e 20 74 6f 20 74 68 65 20 22 6d 79 5f 64 ion to the "my_d
2270: 61 74 61 62 61 73 65 22 20 64 61 74 61 62 61 73 atabase" databas
2280: 65 0a 2a 2a 20 61 6e 64 20 63 61 6c 6c 73 20 74 e.** and calls t
2290: 68 61 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 22 hat connection "
22a0: 64 62 31 22 2e 20 20 54 68 65 20 73 65 63 6f 6e db1". The secon
22b0: 64 20 63 6f 6d 6d 61 6e 64 20 63 61 75 73 65 73 d command causes
22c0: 20 74 68 69 73 0a 2a 2a 20 73 75 62 72 6f 75 74 this.** subrout
22d0: 69 6e 65 20 74 6f 20 62 65 20 69 6e 76 6f 6b 65 ine to be invoke
22e0: 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 d..*/.static int
22f0: 20 44 62 4f 62 6a 43 6d 64 28 76 6f 69 64 20 2a DbObjCmd(void *
2300: 63 64 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a cd, Tcl_Interp *
2310: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
2320: 2c 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 2a ,Tcl_Obj *const*
2330: 6f 62 6a 76 29 7b 0a 20 20 53 71 6c 69 74 65 44 objv){. SqliteD
2340: 62 20 2a 70 44 62 20 3d 20 28 53 71 6c 69 74 65 b *pDb = (Sqlite
2350: 44 62 2a 29 63 64 3b 0a 20 20 69 6e 74 20 63 68 Db*)cd;. int ch
2360: 6f 69 63 65 3b 0a 20 20 73 74 61 74 69 63 20 63 oice;. static c
2370: 6f 6e 73 74 20 63 68 61 72 20 2a 44 42 5f 73 74 onst char *DB_st
2380: 72 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 22 62 75 rs[] = {. "bu
2390: 73 79 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 sy",
23a0: 20 20 20 22 63 68 61 6e 67 65 73 22 2c 20 20 20 "changes",
23b0: 20 20 20 20 20 20 20 20 22 63 6c 6f 73 65 22 2c "close",
23c0: 0a 20 20 20 20 22 63 6f 6d 70 6c 65 74 65 22 2c . "complete",
23d0: 20 20 20 20 20 20 20 20 20 20 20 22 65 76 61 6c "eval
23e0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
23f0: 22 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 "last_insert_row
2400: 69 64 22 2c 0a 20 20 20 20 22 6f 70 65 6e 5f 61 id",. "open_a
2410: 75 78 5f 66 69 6c 65 22 2c 20 20 20 20 20 20 22 ux_file", "
2420: 74 69 6d 65 6f 75 74 22 2c 20 20 20 20 20 20 20 timeout",
2430: 20 20 20 20 30 0a 20 20 7d 3b 0a 20 20 65 6e 75 0. };. enu
2440: 6d 20 44 42 5f 65 6e 75 6d 20 7b 0a 20 20 20 20 m DB_enum {.
2450: 44 42 5f 42 55 53 59 2c 20 20 20 20 20 20 20 20 DB_BUSY,
2460: 20 20 20 20 20 20 44 42 5f 43 48 41 4e 47 45 53 DB_CHANGES
2470: 2c 20 20 20 20 20 20 20 20 20 20 44 42 5f 43 4c , DB_CL
2480: 4f 53 45 2c 0a 20 20 20 20 44 42 5f 43 4f 4d 50 OSE,. DB_COMP
2490: 4c 45 54 45 2c 20 20 20 20 20 20 20 20 20 20 44 LETE, D
24a0: 42 5f 45 56 41 4c 2c 20 20 20 20 20 20 20 20 20 B_EVAL,
24b0: 20 20 20 20 44 42 5f 4c 41 53 54 5f 49 4e 53 45 DB_LAST_INSE
24c0: 52 54 5f 52 4f 57 49 44 2c 0a 20 20 20 20 44 42 RT_ROWID,. DB
24d0: 5f 4f 50 45 4e 5f 41 55 58 5f 46 49 4c 45 2c 20 _OPEN_AUX_FILE,
24e0: 20 20 20 20 44 42 5f 54 49 4d 45 4f 55 54 2c 20 DB_TIMEOUT,
24f0: 20 20 20 20 20 20 20 20 20 0a 20 20 7d 3b 0a 0a . };..
2500: 20 20 69 66 28 20 6f 62 6a 63 3c 32 20 29 7b 0a if( objc<2 ){.
2510: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
2520: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
2530: 6f 62 6a 76 2c 20 22 53 55 42 43 4f 4d 4d 41 4e objv, "SUBCOMMAN
2540: 44 20 2e 2e 2e 22 29 3b 0a 20 20 20 20 72 65 74 D ...");. ret
2550: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2560: 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 }. if( Tcl_Get
2570: 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 IndexFromObj(int
2580: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 44 42 erp, objv[1], DB
2590: 5f 73 74 72 73 2c 20 22 6f 70 74 69 6f 6e 22 2c _strs, "option",
25a0: 20 30 2c 20 26 63 68 6f 69 63 65 29 20 29 7b 0a 0, &choice) ){.
25b0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
25c0: 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 73 77 69 RROR;. }.. swi
25d0: 74 63 68 28 20 28 65 6e 75 6d 20 44 42 5f 65 6e tch( (enum DB_en
25e0: 75 6d 29 63 68 6f 69 63 65 20 29 7b 0a 0a 20 20 um)choice ){..
25f0: 2f 2a 20 20 20 20 24 64 62 20 62 75 73 79 20 3f /* $db busy ?
2600: 43 41 4c 4c 42 41 43 4b 3f 0a 20 20 2a 2a 0a 20 CALLBACK?. **.
2610: 20 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20 67 ** Invoke the g
2620: 69 76 65 6e 20 63 61 6c 6c 62 61 63 6b 20 69 66 iven callback if
2630: 20 61 6e 20 53 51 4c 20 73 74 61 74 65 6d 65 6e an SQL statemen
2640: 74 20 61 74 74 65 6d 70 74 73 20 74 6f 20 6f 70 t attempts to op
2650: 65 6e 0a 20 20 2a 2a 20 61 20 6c 6f 63 6b 65 64 en. ** a locked
2660: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 2e 0a database file..
2670: 20 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 42 */. case DB_B
2680: 55 53 59 3a 20 7b 0a 20 20 20 20 69 66 28 20 6f USY: {. if( o
2690: 62 6a 63 3e 33 20 29 7b 0a 20 20 20 20 20 20 54 bjc>3 ){. T
26a0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
26b0: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c interp, 2, objv,
26c0: 20 22 43 41 4c 4c 42 41 43 4b 22 29 3b 0a 20 20 "CALLBACK");.
26d0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
26e0: 52 52 4f 52 3b 0a 20 20 20 20 7d 65 6c 73 65 20 RROR;. }else
26f0: 69 66 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 if( objc==2 ){.
2700: 20 20 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 42 if( pDb->zB
2710: 75 73 79 20 29 7b 0a 20 20 20 20 20 20 20 20 54 usy ){. T
2720: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
2730: 69 6e 74 65 72 70 2c 20 70 44 62 2d 3e 7a 42 75 interp, pDb->zBu
2740: 73 79 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a sy, 0);. }.
2750: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
2760: 20 63 68 61 72 20 2a 7a 42 75 73 79 3b 0a 20 20 char *zBusy;.
2770: 20 20 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 20 int len;.
2780: 20 20 20 69 66 28 20 70 44 62 2d 3e 7a 42 75 73 if( pDb->zBus
2790: 79 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c y ){. Tcl
27a0: 5f 46 72 65 65 28 70 44 62 2d 3e 7a 42 75 73 79 _Free(pDb->zBusy
27b0: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 );. }.
27c0: 20 7a 42 75 73 79 20 3d 20 54 63 6c 5f 47 65 74 zBusy = Tcl_Get
27d0: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
27e0: 6a 76 5b 32 5d 2c 20 26 6c 65 6e 29 3b 0a 20 20 jv[2], &len);.
27f0: 20 20 20 20 69 66 28 20 7a 42 75 73 79 20 26 26 if( zBusy &&
2800: 20 6c 65 6e 3e 30 20 29 7b 0a 20 20 20 20 20 20 len>0 ){.
2810: 20 20 70 44 62 2d 3e 7a 42 75 73 79 20 3d 20 54 pDb->zBusy = T
2820: 63 6c 5f 41 6c 6c 6f 63 28 20 6c 65 6e 20 2b 20 cl_Alloc( len +
2830: 31 20 29 3b 0a 20 20 20 20 20 20 20 20 73 74 72 1 );. str
2840: 63 70 79 28 70 44 62 2d 3e 7a 42 75 73 79 2c 20 cpy(pDb->zBusy,
2850: 7a 42 75 73 79 29 3b 0a 20 20 20 20 20 20 7d 65 zBusy);. }e
2860: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 70 44 62 lse{. pDb
2870: 2d 3e 7a 42 75 73 79 20 3d 20 30 3b 0a 20 20 20 ->zBusy = 0;.
2880: 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 70 }. if( p
2890: 44 62 2d 3e 7a 42 75 73 79 20 29 7b 0a 20 20 20 Db->zBusy ){.
28a0: 20 20 20 20 20 70 44 62 2d 3e 69 6e 74 65 72 70 pDb->interp
28b0: 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 20 = interp;.
28c0: 20 20 20 73 71 6c 69 74 65 5f 62 75 73 79 5f 68 sqlite_busy_h
28d0: 61 6e 64 6c 65 72 28 70 44 62 2d 3e 64 62 2c 20 andler(pDb->db,
28e0: 44 62 42 75 73 79 48 61 6e 64 6c 65 72 2c 20 70 DbBusyHandler, p
28f0: 44 62 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 Db);. }else
2900: 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 {. sqlite
2910: 5f 62 75 73 79 5f 68 61 6e 64 6c 65 72 28 70 44 _busy_handler(pD
2920: 62 2d 3e 64 62 2c 20 30 2c 20 30 29 3b 0a 20 20 b->db, 0, 0);.
2930: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 }. }.
2940: 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a break;. }.. /*
2950: 0a 20 20 2a 2a 20 20 20 20 20 24 64 62 20 63 68 . ** $db ch
2960: 61 6e 67 65 73 0a 20 20 2a 2a 0a 20 20 2a 2a 20 anges. **. **
2970: 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
2980: 72 20 6f 66 20 72 6f 77 73 20 74 68 61 74 20 77 r of rows that w
2990: 65 72 65 20 6d 6f 64 69 66 69 65 64 2c 20 69 6e ere modified, in
29a0: 73 65 72 74 65 64 2c 20 6f 72 20 64 65 6c 65 74 serted, or delet
29b0: 65 64 20 62 79 0a 20 20 2a 2a 20 74 68 65 20 6d ed by. ** the m
29c0: 6f 73 74 20 72 65 63 65 6e 74 20 22 65 76 61 6c ost recent "eval
29d0: 22 2e 0a 20 20 2a 2f 0a 20 20 63 61 73 65 20 44 ".. */. case D
29e0: 42 5f 43 48 41 4e 47 45 53 3a 20 7b 0a 20 20 20 B_CHANGES: {.
29f0: 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 73 75 6c Tcl_Obj *pResul
2a00: 74 3b 0a 20 20 20 20 69 6e 74 20 6e 43 68 61 6e t;. int nChan
2a10: 67 65 3b 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 ge;. if( objc
2a20: 21 3d 32 20 29 7b 0a 20 20 20 20 20 20 54 63 6c !=2 ){. Tcl
2a30: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
2a40: 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 terp, 2, objv, "
2a50: 22 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e ");. return
2a60: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
2a70: 7d 0a 20 20 20 20 6e 43 68 61 6e 67 65 20 3d 20 }. nChange =
2a80: 73 71 6c 69 74 65 5f 63 68 61 6e 67 65 73 28 70 sqlite_changes(p
2a90: 44 62 2d 3e 64 62 29 3b 0a 20 20 20 20 70 52 65 Db->db);. pRe
2aa0: 73 75 6c 74 20 3d 20 54 63 6c 5f 47 65 74 4f 62 sult = Tcl_GetOb
2ab0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b jResult(interp);
2ac0: 0a 20 20 20 20 54 63 6c 5f 53 65 74 49 6e 74 4f . Tcl_SetIntO
2ad0: 62 6a 28 70 52 65 73 75 6c 74 2c 20 6e 43 68 61 bj(pResult, nCha
2ae0: 6e 67 65 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b nge);. break;
2af0: 0a 20 20 7d 0a 0a 20 20 2f 2a 20 20 20 20 24 64 . }.. /* $d
2b00: 62 20 63 6c 6f 73 65 0a 20 20 2a 2a 0a 20 20 2a b close. **. *
2b10: 2a 20 53 68 75 74 64 6f 77 6e 20 74 68 65 20 64 * Shutdown the d
2b20: 61 74 61 62 61 73 65 0a 20 20 2a 2f 0a 20 20 63 atabase. */. c
2b30: 61 73 65 20 44 42 5f 43 4c 4f 53 45 3a 20 7b 0a ase DB_CLOSE: {.
2b40: 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 43 6f Tcl_DeleteCo
2b50: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 54 63 mmand(interp, Tc
2b60: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
2b70: 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 29 3b bj(objv[0], 0));
2b80: 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a . break;. }.
2b90: 0a 20 20 2f 2a 20 20 20 20 24 64 62 20 63 6f 6d . /* $db com
2ba0: 70 6c 65 74 65 20 53 51 4c 0a 20 20 2a 2a 0a 20 plete SQL. **.
2bb0: 20 2a 2a 20 52 65 74 75 72 6e 20 54 52 55 45 20 ** Return TRUE
2bc0: 69 66 20 53 51 4c 20 69 73 20 61 20 63 6f 6d 70 if SQL is a comp
2bd0: 6c 65 74 65 20 53 51 4c 20 73 74 61 74 65 6d 65 lete SQL stateme
2be0: 6e 74 2e 20 20 52 65 74 75 72 6e 20 46 41 4c 53 nt. Return FALS
2bf0: 45 20 69 66 0a 20 20 2a 2a 20 61 64 64 69 74 69 E if. ** additi
2c00: 6f 6e 61 6c 20 6c 69 6e 65 73 20 6f 66 20 69 6e onal lines of in
2c10: 70 75 74 20 61 72 65 20 6e 65 65 64 65 64 2e 20 put are needed.
2c20: 20 54 68 69 73 20 69 73 20 73 69 6d 69 6c 61 72 This is similar
2c30: 20 74 6f 20 74 68 65 0a 20 20 2a 2a 20 62 75 69 to the. ** bui
2c40: 6c 74 2d 69 6e 20 22 69 6e 66 6f 20 63 6f 6d 70 lt-in "info comp
2c50: 6c 65 74 65 22 20 63 6f 6d 6d 61 6e 64 20 6f 66 lete" command of
2c60: 20 54 63 6c 2e 0a 20 20 2a 2f 0a 20 20 63 61 73 Tcl.. */. cas
2c70: 65 20 44 42 5f 43 4f 4d 50 4c 45 54 45 3a 20 7b e DB_COMPLETE: {
2c80: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 . Tcl_Obj *pR
2c90: 65 73 75 6c 74 3b 0a 20 20 20 20 69 6e 74 20 69 esult;. int i
2ca0: 73 43 6f 6d 70 6c 65 74 65 3b 0a 20 20 20 20 69 sComplete;. i
2cb0: 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 f( objc!=3 ){.
2cc0: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
2cd0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 Args(interp, 2,
2ce0: 6f 62 6a 76 2c 20 22 53 51 4c 22 29 3b 0a 20 20 objv, "SQL");.
2cf0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
2d00: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
2d10: 69 73 43 6f 6d 70 6c 65 74 65 20 3d 20 73 71 6c isComplete = sql
2d20: 69 74 65 5f 63 6f 6d 70 6c 65 74 65 28 20 54 63 ite_complete( Tc
2d30: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
2d40: 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 30 29 20 29 bj(objv[2], 0) )
2d50: 3b 0a 20 20 20 20 70 52 65 73 75 6c 74 20 3d 20 ;. pResult =
2d60: 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_GetObjResult
2d70: 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 (interp);. Tc
2d80: 6c 5f 53 65 74 42 6f 6f 6c 65 61 6e 4f 62 6a 28 l_SetBooleanObj(
2d90: 70 52 65 73 75 6c 74 2c 20 69 73 43 6f 6d 70 6c pResult, isCompl
2da0: 65 74 65 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b ete);. break;
2db0: 0a 20 20 7d 0a 20 20 20 0a 20 20 2f 2a 0a 20 20 . }. . /*.
2dc0: 2a 2a 20 20 20 20 24 64 62 20 65 76 61 6c 20 24 ** $db eval $
2dd0: 73 71 6c 20 3f 61 72 72 61 79 20 7b 20 20 2e 2e sql ?array { ..
2de0: 2e 63 6f 64 65 2e 2e 2e 20 7d 3f 0a 20 20 2a 2a .code... }?. **
2df0: 0a 20 20 2a 2a 20 54 68 65 20 53 51 4c 20 73 74 . ** The SQL st
2e00: 61 74 65 6d 65 6e 74 20 69 6e 20 24 73 71 6c 20 atement in $sql
2e10: 69 73 20 65 76 61 6c 75 61 74 65 64 2e 20 20 46 is evaluated. F
2e20: 6f 72 20 65 61 63 68 20 72 6f 77 2c 20 74 68 65 or each row, the
2e30: 20 76 61 6c 75 65 73 20 61 72 65 0a 20 20 2a 2a values are. **
2e40: 20 70 6c 61 63 65 64 20 69 6e 20 65 6c 65 6d 65 placed in eleme
2e50: 6e 74 73 20 6f 66 20 74 68 65 20 61 72 72 61 79 nts of the array
2e60: 20 6e 61 6d 65 64 20 22 61 72 72 61 79 22 20 61 named "array" a
2e70: 6e 64 20 2e 2e 2e 63 6f 64 65 2e 2e 2e 20 69 73 nd ...code... is
2e80: 20 65 78 65 63 75 74 65 64 2e 0a 20 20 2a 2a 20 executed.. **
2e90: 49 66 20 22 61 72 72 61 79 22 20 61 6e 64 20 22 If "array" and "
2ea0: 63 6f 64 65 22 20 61 72 65 20 6f 6d 69 74 74 65 code" are omitte
2eb0: 64 2c 20 74 68 65 6e 20 6e 6f 20 63 61 6c 6c 62 d, then no callb
2ec0: 61 63 6b 20 69 73 20 65 76 65 72 79 20 69 6e 76 ack is every inv
2ed0: 6f 6b 65 64 2e 0a 20 20 2a 2a 20 49 66 20 22 61 oked.. ** If "a
2ee0: 72 72 61 79 22 20 69 73 20 61 6e 20 65 6d 70 74 rray" is an empt
2ef0: 79 20 73 74 72 69 6e 67 2c 20 74 68 65 6e 20 74 y string, then t
2f00: 68 65 20 76 61 6c 75 65 73 20 61 72 65 20 70 6c he values are pl
2f10: 61 63 65 64 20 69 6e 20 76 61 72 69 61 62 6c 65 aced in variable
2f20: 73 0a 20 20 2a 2a 20 74 68 61 74 20 68 61 76 65 s. ** that have
2f30: 20 74 68 65 20 73 61 6d 65 20 6e 61 6d 65 20 61 the same name a
2f40: 73 20 74 68 65 20 66 69 65 6c 64 73 20 65 78 74 s the fields ext
2f50: 72 61 63 74 65 64 20 62 79 20 74 68 65 20 71 75 racted by the qu
2f60: 65 72 79 2e 0a 20 20 2a 2f 0a 20 20 63 61 73 65 ery.. */. case
2f70: 20 44 42 5f 45 56 41 4c 3a 20 7b 0a 20 20 20 20 DB_EVAL: {.
2f80: 43 61 6c 6c 62 61 63 6b 44 61 74 61 20 63 62 44 CallbackData cbD
2f90: 61 74 61 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a ata;. char *z
2fa0: 45 72 72 4d 73 67 3b 0a 20 20 20 20 63 68 61 72 ErrMsg;. char
2fb0: 20 2a 7a 53 71 6c 3b 0a 20 20 20 20 69 6e 74 20 *zSql;. int
2fc0: 72 63 3b 0a 23 69 66 64 65 66 20 55 54 46 5f 54 rc;.#ifdef UTF_T
2fd0: 52 41 4e 53 4c 41 54 49 4f 4e 5f 4e 45 45 44 45 RANSLATION_NEEDE
2fe0: 44 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e D. Tcl_DStrin
2ff0: 67 20 64 53 71 6c 3b 0a 20 20 20 20 69 6e 74 20 g dSql;. int
3000: 69 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 i;.#endif.. i
3010: 66 28 20 6f 62 6a 63 21 3d 35 20 26 26 20 6f 62 f( objc!=5 && ob
3020: 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 20 20 54 jc!=3 ){. T
3030: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
3040: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c interp, 2, objv,
3050: 20 22 53 51 4c 20 3f 41 52 52 41 59 2d 4e 41 4d "SQL ?ARRAY-NAM
3060: 45 20 43 4f 44 45 3f 22 29 3b 0a 20 20 20 20 20 E CODE?");.
3070: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
3080: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70 44 62 R;. }. pDb
3090: 2d 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 ->interp = inter
30a0: 70 3b 0a 20 20 20 20 7a 53 71 6c 20 3d 20 54 63 p;. zSql = Tc
30b0: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
30c0: 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 30 29 3b 0a bj(objv[2], 0);.
30d0: 23 69 66 64 65 66 20 55 54 46 5f 54 52 41 4e 53 #ifdef UTF_TRANS
30e0: 4c 41 54 49 4f 4e 5f 4e 45 45 44 45 44 0a 20 20 LATION_NEEDED.
30f0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 Tcl_DStringIni
3100: 74 28 26 64 53 71 6c 29 3b 0a 20 20 20 20 54 63 t(&dSql);. Tc
3110: 6c 5f 55 74 66 54 6f 45 78 74 65 72 6e 61 6c 44 l_UtfToExternalD
3120: 53 74 72 69 6e 67 28 4e 55 4c 4c 2c 20 7a 53 71 String(NULL, zSq
3130: 6c 2c 20 2d 31 2c 20 26 64 53 71 6c 29 3b 0a 20 l, -1, &dSql);.
3140: 20 20 20 7a 53 71 6c 20 3d 20 54 63 6c 5f 44 53 zSql = Tcl_DS
3150: 74 72 69 6e 67 56 61 6c 75 65 28 26 64 53 71 6c tringValue(&dSql
3160: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 54 63 );.#endif. Tc
3170: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6f l_IncrRefCount(o
3180: 62 6a 76 5b 32 5d 29 3b 0a 20 20 20 20 69 66 28 bjv[2]);. if(
3190: 20 6f 62 6a 63 3d 3d 35 20 29 7b 0a 20 20 20 20 objc==5 ){.
31a0: 20 20 63 62 44 61 74 61 2e 69 6e 74 65 72 70 20 cbData.interp
31b0: 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 20 20 = interp;.
31c0: 63 62 44 61 74 61 2e 6f 6e 63 65 20 3d 20 31 3b cbData.once = 1;
31d0: 0a 20 20 20 20 20 20 63 62 44 61 74 61 2e 7a 41 . cbData.zA
31e0: 72 72 61 79 20 3d 20 54 63 6c 5f 47 65 74 53 74 rray = Tcl_GetSt
31f0: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
3200: 5b 33 5d 2c 20 30 29 3b 0a 20 20 20 20 20 20 63 [3], 0);. c
3210: 62 44 61 74 61 2e 70 43 6f 64 65 20 3d 20 6f 62 bData.pCode = ob
3220: 6a 76 5b 34 5d 3b 0a 20 20 20 20 20 20 63 62 44 jv[4];. cbD
3230: 61 74 61 2e 74 63 6c 5f 72 63 20 3d 20 54 43 4c ata.tcl_rc = TCL
3240: 5f 4f 4b 3b 0a 20 20 20 20 20 20 63 62 44 61 74 _OK;. cbDat
3250: 61 2e 6e 43 6f 6c 4e 61 6d 65 20 3d 20 30 3b 0a a.nColName = 0;.
3260: 20 20 20 20 20 20 63 62 44 61 74 61 2e 61 7a 43 cbData.azC
3270: 6f 6c 4e 61 6d 65 20 3d 20 30 3b 0a 20 20 20 20 olName = 0;.
3280: 20 20 7a 45 72 72 4d 73 67 20 3d 20 30 3b 0a 20 zErrMsg = 0;.
3290: 20 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 Tcl_IncrRef
32a0: 43 6f 75 6e 74 28 6f 62 6a 76 5b 33 5d 29 3b 0a Count(objv[3]);.
32b0: 20 20 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 Tcl_IncrRe
32c0: 66 43 6f 75 6e 74 28 6f 62 6a 76 5b 34 5d 29 3b fCount(objv[4]);
32d0: 0a 20 20 20 20 20 20 72 63 20 3d 20 73 71 6c 69 . rc = sqli
32e0: 74 65 5f 65 78 65 63 28 70 44 62 2d 3e 64 62 2c te_exec(pDb->db,
32f0: 20 7a 53 71 6c 2c 20 44 62 45 76 61 6c 43 61 6c zSql, DbEvalCal
3300: 6c 62 61 63 6b 2c 20 26 63 62 44 61 74 61 2c 20 lback, &cbData,
3310: 26 7a 45 72 72 4d 73 67 29 3b 0a 20 20 20 20 20 &zErrMsg);.
3320: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
3330: 74 28 6f 62 6a 76 5b 34 5d 29 3b 0a 20 20 20 20 t(objv[4]);.
3340: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
3350: 6e 74 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 20 nt(objv[3]);.
3360: 20 20 20 69 66 28 20 63 62 44 61 74 61 2e 74 63 if( cbData.tc
3370: 6c 5f 72 63 3d 3d 54 43 4c 5f 42 52 45 41 4b 20 l_rc==TCL_BREAK
3380: 29 7b 20 63 62 44 61 74 61 2e 74 63 6c 5f 72 63 ){ cbData.tcl_rc
3390: 20 3d 20 54 43 4c 5f 4f 4b 3b 20 7d 0a 20 20 20 = TCL_OK; }.
33a0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 54 63 }else{. Tc
33b0: 6c 5f 4f 62 6a 20 2a 70 4c 69 73 74 20 3d 20 54 l_Obj *pList = T
33c0: 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 cl_NewObj();.
33d0: 20 20 20 63 62 44 61 74 61 2e 74 63 6c 5f 72 63 cbData.tcl_rc
33e0: 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 = TCL_OK;.
33f0: 20 72 63 20 3d 20 73 71 6c 69 74 65 5f 65 78 65 rc = sqlite_exe
3400: 63 28 70 44 62 2d 3e 64 62 2c 20 7a 53 71 6c 2c c(pDb->db, zSql,
3410: 20 44 62 45 76 61 6c 43 61 6c 6c 62 61 63 6b 32 DbEvalCallback2
3420: 2c 20 70 4c 69 73 74 2c 20 26 7a 45 72 72 4d 73 , pList, &zErrMs
3430: 67 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 g);. Tcl_Se
3440: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
3450: 70 2c 20 70 4c 69 73 74 29 3b 0a 20 20 20 20 7d p, pList);. }
3460: 0a 20 20 20 20 69 66 28 20 7a 45 72 72 4d 73 67 . if( zErrMsg
3470: 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 ){. Tcl_Se
3480: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
3490: 7a 45 72 72 4d 73 67 2c 20 54 43 4c 5f 56 4f 4c zErrMsg, TCL_VOL
34a0: 41 54 49 4c 45 29 3b 0a 20 20 20 20 20 20 66 72 ATILE);. fr
34b0: 65 65 28 7a 45 72 72 4d 73 67 29 3b 0a 20 20 20 ee(zErrMsg);.
34c0: 20 20 20 72 63 20 3d 20 54 43 4c 5f 45 52 52 4f rc = TCL_ERRO
34d0: 52 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 R;. }else if(
34e0: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 rc!=SQLITE_OK &
34f0: 26 20 72 63 21 3d 53 51 4c 49 54 45 5f 41 42 4f & rc!=SQLITE_ABO
3500: 52 54 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f RT ){. Tcl_
3510: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
3520: 65 72 70 2c 20 73 71 6c 69 74 65 5f 65 72 72 6f erp, sqlite_erro
3530: 72 5f 73 74 72 69 6e 67 28 72 63 29 2c 20 30 29 r_string(rc), 0)
3540: 3b 0a 20 20 20 20 20 20 72 63 20 3d 20 54 43 4c ;. rc = TCL
3550: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 65 6c 73 _ERROR;. }els
3560: 65 7b 0a 20 20 20 20 20 20 72 63 20 3d 20 63 62 e{. rc = cb
3570: 44 61 74 61 2e 74 63 6c 5f 72 63 3b 0a 20 20 20 Data.tcl_rc;.
3580: 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 }. Tcl_DecrR
3590: 65 66 43 6f 75 6e 74 28 6f 62 6a 76 5b 32 5d 29 efCount(objv[2])
35a0: 3b 0a 23 69 66 64 65 66 20 55 54 46 5f 54 52 41 ;.#ifdef UTF_TRA
35b0: 4e 53 4c 41 54 49 4f 4e 5f 4e 45 45 44 45 44 0a NSLATION_NEEDED.
35c0: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 Tcl_DStringF
35d0: 72 65 65 28 26 64 53 71 6c 29 3b 0a 20 20 20 20 ree(&dSql);.
35e0: 69 66 28 20 6f 62 6a 63 3d 3d 35 20 26 26 20 63 if( objc==5 && c
35f0: 62 44 61 74 61 2e 61 7a 43 6f 6c 4e 61 6d 65 20 bData.azColName
3600: 29 7b 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30 ){. for(i=0
3610: 3b 20 69 3c 63 62 44 61 74 61 2e 6e 43 6f 6c 4e ; i<cbData.nColN
3620: 61 6d 65 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 ame; i++){.
3630: 20 20 20 69 66 28 20 63 62 44 61 74 61 2e 61 7a if( cbData.az
3640: 43 6f 6c 4e 61 6d 65 5b 69 5d 20 29 20 66 72 65 ColName[i] ) fre
3650: 65 28 63 62 44 61 74 61 2e 61 7a 43 6f 6c 4e 61 e(cbData.azColNa
3660: 6d 65 5b 69 5d 29 3b 0a 20 20 20 20 20 20 7d 0a me[i]);. }.
3670: 20 20 20 20 20 20 66 72 65 65 28 63 62 44 61 74 free(cbDat
3680: 61 2e 61 7a 43 6f 6c 4e 61 6d 65 29 3b 0a 20 20 a.azColName);.
3690: 20 20 20 20 63 62 44 61 74 61 2e 61 7a 43 6f 6c cbData.azCol
36a0: 4e 61 6d 65 20 3d 20 30 3b 0a 20 20 20 20 7d 0a Name = 0;. }.
36b0: 23 65 6e 64 69 66 0a 20 20 20 20 72 65 74 75 72 #endif. retur
36c0: 6e 20 72 63 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 0a n rc;. }.. /*.
36d0: 20 20 2a 2a 20 20 20 20 20 24 64 62 20 6c 61 73 ** $db las
36e0: 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 20 0a t_insert_rowid .
36f0: 20 20 2a 2a 0a 20 20 2a 2a 20 52 65 74 75 72 6e **. ** Return
3700: 20 61 6e 20 69 6e 74 65 67 65 72 20 77 68 69 63 an integer whic
3710: 68 20 69 73 20 74 68 65 20 52 4f 57 49 44 20 66 h is the ROWID f
3720: 6f 72 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 or the most rece
3730: 6e 74 20 69 6e 73 65 72 74 2e 0a 20 20 2a 2f 0a nt insert.. */.
3740: 20 20 63 61 73 65 20 44 42 5f 4c 41 53 54 5f 49 case DB_LAST_I
3750: 4e 53 45 52 54 5f 52 4f 57 49 44 3a 20 7b 0a 20 NSERT_ROWID: {.
3760: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 73 Tcl_Obj *pRes
3770: 75 6c 74 3b 0a 20 20 20 20 69 6e 74 20 72 6f 77 ult;. int row
3780: 69 64 3b 0a 20 20 20 20 69 66 28 20 6f 62 6a 63 id;. if( objc
3790: 21 3d 32 20 29 7b 0a 20 20 20 20 20 20 54 63 6c !=2 ){. Tcl
37a0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
37b0: 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 terp, 2, objv, "
37c0: 22 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e ");. return
37d0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
37e0: 7d 0a 20 20 20 20 72 6f 77 69 64 20 3d 20 73 71 }. rowid = sq
37f0: 6c 69 74 65 5f 6c 61 73 74 5f 69 6e 73 65 72 74 lite_last_insert
3800: 5f 72 6f 77 69 64 28 70 44 62 2d 3e 64 62 29 3b _rowid(pDb->db);
3810: 0a 20 20 20 20 70 52 65 73 75 6c 74 20 3d 20 54 . pResult = T
3820: 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_GetObjResult(
3830: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c interp);. Tcl
3840: 5f 53 65 74 49 6e 74 4f 62 6a 28 70 52 65 73 75 _SetIntObj(pResu
3850: 6c 74 2c 20 72 6f 77 69 64 29 3b 0a 20 20 20 20 lt, rowid);.
3860: 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a break;. }.. /*
3870: 0a 20 20 2a 2a 20 20 20 20 20 24 64 62 20 6f 70 . ** $db op
3880: 65 6e 5f 61 75 78 5f 66 69 6c 65 20 20 46 49 4c en_aux_file FIL
3890: 45 4e 41 4d 45 0a 20 20 2a 2a 0a 20 20 2a 2a 20 ENAME. **. **
38a0: 42 65 67 69 6e 20 75 73 69 6e 67 20 46 49 4c 45 Begin using FILE
38b0: 4e 41 4d 45 20 61 73 20 74 68 65 20 64 61 74 61 NAME as the data
38c0: 62 61 73 65 20 66 69 6c 65 20 75 73 65 64 20 74 base file used t
38d0: 6f 20 73 74 6f 72 65 20 74 65 6d 70 6f 72 61 72 o store temporar
38e0: 79 0a 20 20 2a 2a 20 74 61 62 6c 65 73 2e 0a 20 y. ** tables..
38f0: 20 2a 2f 0a 20 20 63 61 73 65 20 44 42 5f 4f 50 */. case DB_OP
3900: 45 4e 5f 41 55 58 5f 46 49 4c 45 3a 20 7b 0a 20 EN_AUX_FILE: {.
3910: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a const char *z
3920: 46 69 6c 65 6e 61 6d 65 3b 0a 20 20 20 20 63 68 Filename;. ch
3930: 61 72 20 2a 7a 45 72 72 4d 73 67 20 3d 20 30 3b ar *zErrMsg = 0;
3940: 0a 20 20 20 20 69 6e 74 20 72 63 3b 0a 20 20 20 . int rc;.
3950: 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a if( objc!=3 ){.
3960: 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e Tcl_WrongN
3970: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 umArgs(interp, 2
3980: 2c 20 6f 62 6a 76 2c 20 22 46 49 4c 45 4e 41 4d , objv, "FILENAM
3990: 45 22 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 E");. retur
39a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
39b0: 20 7d 0a 20 20 20 20 7a 46 69 6c 65 6e 61 6d 65 }. zFilename
39c0: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
39d0: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c FromObj(objv[2],
39e0: 20 30 29 3b 0a 20 20 20 20 72 63 20 3d 20 73 71 0);. rc = sq
39f0: 6c 69 74 65 5f 6f 70 65 6e 5f 61 75 78 5f 66 69 lite_open_aux_fi
3a00: 6c 65 28 70 44 62 2d 3e 64 62 2c 20 7a 46 69 6c le(pDb->db, zFil
3a10: 65 6e 61 6d 65 2c 20 26 7a 45 72 72 4d 73 67 29 ename, &zErrMsg)
3a20: 3b 0a 20 20 20 20 69 66 28 20 72 63 21 3d 30 20 ;. if( rc!=0
3a30: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 7a 45 72 ){. if( zEr
3a40: 72 4d 73 67 20 29 7b 0a 20 20 20 20 20 20 20 20 rMsg ){.
3a50: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
3a60: 28 69 6e 74 65 72 70 2c 20 7a 45 72 72 4d 73 67 (interp, zErrMsg
3a70: 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 66 72 , 0);. fr
3a80: 65 65 28 7a 45 72 72 4d 73 67 29 3b 0a 20 20 20 ee(zErrMsg);.
3a90: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
3aa0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
3ab0: 6c 74 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 74 lt(interp, sqlit
3ac0: 65 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 72 e_error_string(r
3ad0: 63 29 2c 20 30 29 3b 0a 20 20 20 20 20 20 7d 0a c), 0);. }.
3ae0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c return TCL
3af0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
3b00: 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 break;. }..
3b10: 2f 2a 0a 20 20 2a 2a 20 20 20 20 20 24 64 62 20 /*. ** $db
3b20: 74 69 6d 65 6f 75 74 20 4d 49 4c 4c 45 53 45 43 timeout MILLESEC
3b30: 4f 4e 44 53 0a 20 20 2a 2a 0a 20 20 2a 2a 20 44 ONDS. **. ** D
3b40: 65 6c 61 79 20 66 6f 72 20 74 68 65 20 6e 75 6d elay for the num
3b50: 62 65 72 20 6f 66 20 6d 69 6c 6c 69 73 65 63 6f ber of milliseco
3b60: 6e 64 73 20 73 70 65 63 69 66 69 65 64 20 77 68 nds specified wh
3b70: 65 6e 20 61 20 66 69 6c 65 20 69 73 20 6c 6f 63 en a file is loc
3b80: 6b 65 64 2e 0a 20 20 2a 2f 0a 20 20 63 61 73 65 ked.. */. case
3b90: 20 44 42 5f 54 49 4d 45 4f 55 54 3a 20 7b 0a 20 DB_TIMEOUT: {.
3ba0: 20 20 20 69 6e 74 20 6d 73 3b 0a 20 20 20 20 69 int ms;. i
3bb0: 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 f( objc!=3 ){.
3bc0: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
3bd0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 Args(interp, 2,
3be0: 6f 62 6a 76 2c 20 22 4d 49 4c 4c 49 53 45 43 4f objv, "MILLISECO
3bf0: 4e 44 53 22 29 3b 0a 20 20 20 20 20 20 72 65 74 NDS");. ret
3c00: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3c10: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 54 63 6c }. if( Tcl
3c20: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
3c30: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 nterp, objv[2],
3c40: 26 6d 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 &ms) ) return TC
3c50: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 73 71 6c L_ERROR;. sql
3c60: 69 74 65 5f 62 75 73 79 5f 74 69 6d 65 6f 75 74 ite_busy_timeout
3c70: 28 70 44 62 2d 3e 64 62 2c 20 6d 73 29 3b 0a 20 (pDb->db, ms);.
3c80: 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 break;. }.
3c90: 7d 20 2f 2a 20 45 6e 64 20 6f 66 20 74 68 65 20 } /* End of the
3ca0: 53 57 49 54 43 48 20 73 74 61 74 65 6d 65 6e 74 SWITCH statement
3cb0: 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 4c */. return TCL
3cc0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 _OK;.}../*.**
3cd0: 73 71 6c 69 74 65 20 44 42 4e 41 4d 45 20 46 49 sqlite DBNAME FI
3ce0: 4c 45 4e 41 4d 45 20 3f 4d 4f 44 45 3f 0a 2a 2a LENAME ?MODE?.**
3cf0: 0a 2a 2a 20 54 68 69 73 20 69 73 20 74 68 65 20 .** This is the
3d00: 6d 61 69 6e 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 main Tcl command
3d10: 2e 20 20 57 68 65 6e 20 74 68 65 20 22 73 71 6c . When the "sql
3d20: 69 74 65 22 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 ite" Tcl command
3d30: 20 69 73 0a 2a 2a 20 69 6e 76 6f 6b 65 64 2c 20 is.** invoked,
3d40: 74 68 69 73 20 72 6f 75 74 69 6e 65 20 72 75 6e this routine run
3d50: 73 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 61 s to process tha
3d60: 74 20 63 6f 6d 6d 61 6e 64 2e 0a 2a 2a 0a 2a 2a t command..**.**
3d70: 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75 6d The first argum
3d80: 65 6e 74 2c 20 44 42 4e 41 4d 45 2c 20 69 73 20 ent, DBNAME, is
3d90: 61 6e 20 61 72 62 69 74 72 61 72 79 20 6e 61 6d an arbitrary nam
3da0: 65 20 66 6f 72 20 61 20 6e 65 77 0a 2a 2a 20 64 e for a new.** d
3db0: 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 atabase connecti
3dc0: 6f 6e 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e on. This comman
3dd0: 64 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 20 d creates a new
3de0: 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 64 0a 2a 2a command named.**
3df0: 20 44 42 4e 41 4d 45 20 74 68 61 74 20 69 73 20 DBNAME that is
3e00: 75 73 65 64 20 74 6f 20 63 6f 6e 74 72 6f 6c 20 used to control
3e10: 74 68 61 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e that connection.
3e20: 20 20 54 68 65 20 64 61 74 61 62 61 73 65 0a 2a The database.*
3e30: 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 * connection is
3e40: 64 65 6c 65 74 65 64 20 77 68 65 6e 20 74 68 65 deleted when the
3e50: 20 44 42 4e 41 4d 45 20 63 6f 6d 6d 61 6e 64 20 DBNAME command
3e60: 69 73 20 64 65 6c 65 74 65 64 2e 0a 2a 2a 0a 2a is deleted..**.*
3e70: 2a 20 54 68 65 20 73 65 63 6f 6e 64 20 61 72 67 * The second arg
3e80: 75 6d 65 6e 74 20 69 73 20 74 68 65 20 6e 61 6d ument is the nam
3e90: 65 20 6f 66 20 74 68 65 20 64 69 72 65 63 74 6f e of the directo
3ea0: 72 79 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 ry that contains
3eb0: 0a 2a 2a 20 74 68 65 20 73 71 6c 69 74 65 20 64 .** the sqlite d
3ec0: 61 74 61 62 61 73 65 20 74 68 61 74 20 69 73 20 atabase that is
3ed0: 74 6f 20 62 65 20 61 63 63 65 73 73 65 64 2e 0a to be accessed..
3ee0: 2a 2a 0a 2a 2a 20 46 6f 72 20 74 65 73 74 69 6e **.** For testin
3ef0: 67 20 70 75 72 70 6f 73 65 73 2c 20 77 65 20 61 g purposes, we a
3f00: 6c 73 6f 20 73 75 70 70 6f 72 74 20 74 68 65 20 lso support the
3f10: 66 6f 6c 6c 6f 77 69 6e 67 3a 0a 2a 2a 0a 2a 2a following:.**.**
3f20: 20 20 73 71 6c 69 74 65 20 2d 65 6e 63 6f 64 69 sqlite -encodi
3f30: 6e 67 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 52 ng.**.** R
3f40: 65 74 75 72 6e 20 74 68 65 20 65 6e 63 6f 64 69 eturn the encodi
3f50: 6e 67 20 75 73 65 64 20 62 79 20 4c 49 4b 45 20 ng used by LIKE
3f60: 61 6e 64 20 47 4c 4f 42 20 6f 70 65 72 61 74 6f and GLOB operato
3f70: 72 73 2e 20 20 43 68 6f 69 63 65 73 0a 2a 2a 20 rs. Choices.**
3f80: 20 20 20 20 20 20 61 72 65 20 55 54 46 2d 38 20 are UTF-8
3f90: 61 6e 64 20 69 73 6f 38 38 35 39 2e 0a 2a 2a 0a and iso8859..**.
3fa0: 2a 2a 20 20 73 71 6c 69 74 65 20 2d 74 63 6c 2d ** sqlite -tcl-
3fb0: 75 73 65 73 2d 75 74 66 0a 2a 2a 0a 2a 2a 20 20 uses-utf.**.**
3fc0: 20 20 20 20 20 52 65 74 75 72 6e 20 22 31 22 20 Return "1"
3fd0: 69 66 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 if compiled with
3fe0: 20 61 20 54 63 6c 20 75 73 65 73 20 55 54 46 2d a Tcl uses UTF-
3ff0: 38 2e 20 20 52 65 74 75 72 6e 20 22 30 22 20 69 8. Return "0" i
4000: 66 0a 2a 2a 20 20 20 20 20 20 20 6e 6f 74 2e 20 f.** not.
4010: 20 55 73 65 64 20 62 79 20 74 65 73 74 73 20 74 Used by tests t
4020: 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 65 20 o make sure the
4030: 6c 69 62 72 61 72 79 20 77 61 73 20 63 6f 6d 70 library was comp
4040: 69 6c 65 64 20 0a 2a 2a 20 20 20 20 20 20 20 63 iled .** c
4050: 6f 72 72 65 63 74 6c 79 2e 0a 2a 2f 0a 73 74 61 orrectly..*/.sta
4060: 74 69 63 20 69 6e 74 20 44 62 4d 61 69 6e 28 76 tic int DbMain(v
4070: 6f 69 64 20 2a 63 64 2c 20 54 63 6c 5f 49 6e 74 oid *cd, Tcl_Int
4080: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
4090: 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72 argc, char **ar
40a0: 67 76 29 7b 0a 20 20 69 6e 74 20 6d 6f 64 65 3b gv){. int mode;
40b0: 0a 20 20 53 71 6c 69 74 65 44 62 20 2a 70 3b 0a . SqliteDb *p;.
40c0: 20 20 63 68 61 72 20 2a 7a 45 72 72 4d 73 67 3b char *zErrMsg;
40d0: 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 38 30 5d . char zBuf[80]
40e0: 3b 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 32 20 ;. if( argc==2
40f0: 29 7b 0a 20 20 20 20 69 66 28 20 73 74 72 63 6d ){. if( strcm
4100: 70 28 61 72 67 76 5b 31 5d 2c 22 2d 65 6e 63 6f p(argv[1],"-enco
4110: 64 69 6e 67 22 29 3d 3d 30 20 29 7b 0a 20 20 20 ding")==0 ){.
4120: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
4130: 75 6c 74 28 69 6e 74 65 72 70 2c 73 71 6c 69 74 ult(interp,sqlit
4140: 65 5f 65 6e 63 6f 64 69 6e 67 2c 30 29 3b 0a 20 e_encoding,0);.
4150: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f return TCL_
4160: 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 OK;. }. if
4170: 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b 31 5d ( strcmp(argv[1]
4180: 2c 22 2d 74 63 6c 2d 75 73 65 73 2d 75 74 66 22 ,"-tcl-uses-utf"
4190: 29 3d 3d 30 20 29 7b 0a 23 69 66 64 65 66 20 54 )==0 ){.#ifdef T
41a0: 43 4c 5f 55 54 46 5f 4d 41 58 0a 20 20 20 20 20 CL_UTF_MAX.
41b0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
41c0: 74 28 69 6e 74 65 72 70 2c 22 31 22 2c 30 29 3b t(interp,"1",0);
41d0: 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 54 63 6c .#else. Tcl
41e0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
41f0: 74 65 72 70 2c 22 30 22 2c 30 29 3b 0a 23 65 6e terp,"0",0);.#en
4200: 64 69 66 0a 20 20 20 20 20 20 72 65 74 75 72 6e dif. return
4210: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 TCL_OK;. }.
4220: 20 7d 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 }. if( argc!=3
4230: 20 26 26 20 61 72 67 63 21 3d 34 20 29 7b 0a 20 && argc!=4 ){.
4240: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
4250: 75 6c 74 28 69 6e 74 65 72 70 2c 22 77 72 6f 6e ult(interp,"wron
4260: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
4270: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d be \"", argv[0]
4280: 2c 0a 20 20 20 20 20 20 20 22 20 48 41 4e 44 4c ,. " HANDL
4290: 45 20 46 49 4c 45 4e 41 4d 45 20 3f 4d 4f 44 45 E FILENAME ?MODE
42a0: 3f 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 ?\"", 0);. re
42b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
42c0: 20 20 7d 0a 20 20 69 66 28 20 61 72 67 63 3d 3d }. if( argc==
42d0: 33 20 29 7b 0a 20 20 20 20 6d 6f 64 65 20 3d 20 3 ){. mode =
42e0: 30 36 36 36 3b 0a 20 20 7d 65 6c 73 65 20 69 66 0666;. }else if
42f0: 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 ( Tcl_GetInt(int
4300: 65 72 70 2c 20 61 72 67 76 5b 33 5d 2c 20 26 6d erp, argv[3], &m
4310: 6f 64 65 29 21 3d 54 43 4c 5f 4f 4b 20 29 7b 0a ode)!=TCL_OK ){.
4320: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
4330: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 45 72 72 RROR;. }. zErr
4340: 4d 73 67 20 3d 20 30 3b 0a 20 20 70 20 3d 20 28 Msg = 0;. p = (
4350: 53 71 6c 69 74 65 44 62 2a 29 54 63 6c 5f 41 6c SqliteDb*)Tcl_Al
4360: 6c 6f 63 28 20 73 69 7a 65 6f 66 28 2a 70 29 20 loc( sizeof(*p)
4370: 29 3b 0a 20 20 69 66 28 20 70 3d 3d 30 20 29 7b );. if( p==0 ){
4380: 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 . Tcl_SetResu
4390: 6c 74 28 69 6e 74 65 72 70 2c 20 22 6d 61 6c 6c lt(interp, "mall
43a0: 6f 63 20 66 61 69 6c 65 64 22 2c 20 54 43 4c 5f oc failed", TCL_
43b0: 53 54 41 54 49 43 29 3b 0a 20 20 20 20 72 65 74 STATIC);. ret
43c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
43d0: 20 7d 0a 20 20 6d 65 6d 73 65 74 28 70 2c 20 30 }. memset(p, 0
43e0: 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 , sizeof(*p));.
43f0: 20 70 2d 3e 64 62 20 3d 20 73 71 6c 69 74 65 5f p->db = sqlite_
4400: 6f 70 65 6e 28 61 72 67 76 5b 32 5d 2c 20 6d 6f open(argv[2], mo
4410: 64 65 2c 20 26 7a 45 72 72 4d 73 67 29 3b 0a 20 de, &zErrMsg);.
4420: 20 69 66 28 20 70 2d 3e 64 62 3d 3d 30 20 29 7b if( p->db==0 ){
4430: 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 . Tcl_SetResu
4440: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 45 72 72 4d lt(interp, zErrM
4450: 73 67 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 sg, TCL_VOLATILE
4460: 29 3b 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 28 );. Tcl_Free(
4470: 28 63 68 61 72 2a 29 70 29 3b 0a 20 20 20 20 66 (char*)p);. f
4480: 72 65 65 28 7a 45 72 72 4d 73 67 29 3b 0a 20 20 ree(zErrMsg);.
4490: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
44a0: 4f 52 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 43 72 OR;. }. Tcl_Cr
44b0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
44c0: 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
44d0: 44 62 4f 62 6a 43 6d 64 2c 20 28 63 68 61 72 2a DbObjCmd, (char*
44e0: 29 70 2c 20 44 62 44 65 6c 65 74 65 43 6d 64 29 )p, DbDeleteCmd)
44f0: 3b 0a 0a 20 20 2f 2a 20 54 68 65 20 72 65 74 75 ;.. /* The retu
4500: 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 rn value is the
4510: 76 61 6c 75 65 20 6f 66 20 74 68 65 20 73 71 6c value of the sql
4520: 69 74 65 2a 20 70 6f 69 6e 74 65 72 0a 20 20 2a ite* pointer. *
4530: 2f 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 /. sprintf(zBuf
4540: 2c 20 22 25 70 22 2c 20 70 2d 3e 64 62 29 3b 0a , "%p", p->db);.
4550: 20 20 69 66 28 20 73 74 72 6e 63 6d 70 28 7a 42 if( strncmp(zB
4560: 75 66 2c 22 30 78 22 2c 32 29 20 29 7b 0a 20 20 uf,"0x",2) ){.
4570: 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 sprintf(zBuf,
4580: 22 30 78 25 70 22 2c 20 70 2d 3e 64 62 29 3b 0a "0x%p", p->db);.
4590: 20 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 }. Tcl_Append
45a0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a Result(interp, z
45b0: 42 75 66 2c 20 30 29 3b 0a 0a 20 20 2f 2a 20 49 Buf, 0);.. /* I
45c0: 66 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 20 f compiled with
45d0: 53 51 4c 49 54 45 5f 54 45 53 54 20 74 75 72 6e SQLITE_TEST turn
45e0: 65 64 20 6f 6e 2c 20 74 68 65 6e 20 72 65 67 69 ed on, then regi
45f0: 73 74 65 72 20 74 68 65 20 22 6d 64 35 73 75 6d ster the "md5sum
4600: 22 0a 20 20 2a 2a 20 53 51 4c 20 66 75 6e 63 74 ". ** SQL funct
4610: 69 6f 6e 2e 0a 20 20 2a 2f 0a 23 69 66 64 65 66 ion.. */.#ifdef
4620: 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 7b SQLITE_TEST. {
4630: 0a 20 20 20 20 65 78 74 65 72 6e 20 76 6f 69 64 . extern void
4640: 20 4d 64 35 5f 52 65 67 69 73 74 65 72 28 73 71 Md5_Register(sq
4650: 6c 69 74 65 2a 29 3b 0a 20 20 20 20 4d 64 35 5f lite*);. Md5_
4660: 52 65 67 69 73 74 65 72 28 70 2d 3e 64 62 29 3b Register(p->db);
4670: 0a 20 20 20 7d 0a 23 65 6e 64 69 66 20 20 0a 20 . }.#endif .
4680: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
4690: 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 6f 76 69 64 65 }../*.** Provide
46a0: 20 61 20 64 75 6d 6d 79 20 54 63 6c 5f 49 6e 69 a dummy Tcl_Ini
46b0: 74 53 74 75 62 73 20 69 66 20 77 65 20 61 72 65 tStubs if we are
46c0: 20 75 73 69 6e 67 20 74 68 69 73 20 61 73 20 61 using this as a
46d0: 20 73 74 61 74 69 63 0a 2a 2a 20 6c 69 62 72 61 static.** libra
46e0: 72 79 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66 20 55 ry..*/.#ifndef U
46f0: 53 45 5f 54 43 4c 5f 53 54 55 42 53 0a 23 20 75 SE_TCL_STUBS.# u
4700: 6e 64 65 66 20 20 54 63 6c 5f 49 6e 69 74 53 74 ndef Tcl_InitSt
4710: 75 62 73 0a 23 20 64 65 66 69 6e 65 20 54 63 6c ubs.# define Tcl
4720: 5f 49 6e 69 74 53 74 75 62 73 28 61 2c 62 2c 63 _InitStubs(a,b,c
4730: 29 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 ).#endif../*.**
4740: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 69 73 20 Initialize this
4750: 6d 6f 64 75 6c 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 module..**.** Th
4760: 69 73 20 54 63 6c 20 6d 6f 64 75 6c 65 20 63 6f is Tcl module co
4770: 6e 74 61 69 6e 73 20 6f 6e 6c 79 20 61 20 73 69 ntains only a si
4780: 6e 67 6c 65 20 6e 65 77 20 54 63 6c 20 63 6f 6d ngle new Tcl com
4790: 6d 61 6e 64 20 6e 61 6d 65 64 20 22 73 71 6c 69 mand named "sqli
47a0: 74 65 22 2e 0a 2a 2a 20 28 48 65 6e 63 65 20 74 te"..** (Hence t
47b0: 68 65 72 65 20 69 73 20 6e 6f 20 6e 61 6d 65 73 here is no names
47c0: 70 61 63 65 2e 20 20 54 68 65 72 65 20 69 73 20 pace. There is
47d0: 6e 6f 20 70 6f 69 6e 74 20 69 6e 20 75 73 69 6e no point in usin
47e0: 67 20 61 20 6e 61 6d 65 73 70 61 63 65 0a 2a 2a g a namespace.**
47f0: 20 69 66 20 74 68 65 20 65 78 74 65 6e 73 69 6f if the extensio
4800: 6e 20 6f 6e 6c 79 20 73 75 70 70 6c 69 65 73 20 n only supplies
4810: 6f 6e 65 20 6e 65 77 20 6e 61 6d 65 21 29 20 20 one new name!)
4820: 54 68 65 20 22 73 71 6c 69 74 65 22 20 63 6f 6d The "sqlite" com
4830: 6d 61 6e 64 20 69 73 0a 2a 2a 20 75 73 65 64 20 mand is.** used
4840: 74 6f 20 6f 70 65 6e 20 61 20 6e 65 77 20 53 51 to open a new SQ
4850: 4c 69 74 65 20 64 61 74 61 62 61 73 65 2e 20 20 Lite database.
4860: 53 65 65 20 74 68 65 20 44 62 4d 61 69 6e 28 29 See the DbMain()
4870: 20 72 6f 75 74 69 6e 65 20 61 62 6f 76 65 0a 2a routine above.*
4880: 2a 20 66 6f 72 20 61 64 64 69 74 69 6f 6e 61 6c * for additional
4890: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 2a 2f information..*/
48a0: 0a 69 6e 74 20 53 71 6c 69 74 65 5f 49 6e 69 74 .int Sqlite_Init
48b0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
48c0: 65 72 70 29 7b 0a 20 20 54 63 6c 5f 49 6e 69 74 erp){. Tcl_Init
48d0: 53 74 75 62 73 28 69 6e 74 65 72 70 2c 20 22 38 Stubs(interp, "8
48e0: 2e 30 22 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 43 .0", 0);. Tcl_C
48f0: 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 reateCommand(int
4900: 65 72 70 2c 20 22 73 71 6c 69 74 65 22 2c 20 28 erp, "sqlite", (
4910: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 44 62 4d Tcl_CmdProc*)DbM
4920: 61 69 6e 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 ain, 0, 0);. Tc
4930: 6c 5f 50 6b 67 50 72 6f 76 69 64 65 28 69 6e 74 l_PkgProvide(int
4940: 65 72 70 2c 20 22 73 71 6c 69 74 65 22 2c 20 22 erp, "sqlite", "
4950: 32 2e 30 22 29 3b 0a 20 20 72 65 74 75 72 6e 20 2.0");. return
4960: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 69 6e 74 20 54 63 TCL_OK;.}.int Tc
4970: 6c 73 71 6c 69 74 65 5f 49 6e 69 74 28 54 63 6c lsqlite_Init(Tcl
4980: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
4990: 7b 0a 20 20 54 63 6c 5f 49 6e 69 74 53 74 75 62 {. Tcl_InitStub
49a0: 73 28 69 6e 74 65 72 70 2c 20 22 38 2e 30 22 2c s(interp, "8.0",
49b0: 20 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 0);. Tcl_Creat
49c0: 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c eCommand(interp,
49d0: 20 22 73 71 6c 69 74 65 22 2c 20 28 54 63 6c 5f "sqlite", (Tcl_
49e0: 43 6d 64 50 72 6f 63 2a 29 44 62 4d 61 69 6e 2c CmdProc*)DbMain,
49f0: 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 50 6b 0, 0);. Tcl_Pk
4a00: 67 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 2c gProvide(interp,
4a10: 20 22 73 71 6c 69 74 65 22 2c 20 22 32 2e 30 22 "sqlite", "2.0"
4a20: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
4a30: 4f 4b 3b 0a 7d 0a 69 6e 74 20 53 71 6c 69 74 65 OK;.}.int Sqlite
4a40: 5f 53 61 66 65 49 6e 69 74 28 54 63 6c 5f 49 6e _SafeInit(Tcl_In
4a50: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 terp *interp){.
4a60: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
4a70: 7d 0a 69 6e 74 20 54 63 6c 73 71 6c 69 74 65 5f }.int Tclsqlite_
4a80: 53 61 66 65 49 6e 69 74 28 54 63 6c 5f 49 6e 74 SafeInit(Tcl_Int
4a90: 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 erp *interp){.
4aa0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
4ab0: 0a 0a 23 69 66 20 30 0a 2f 2a 0a 2a 2a 20 49 66 ..#if 0./*.** If
4ac0: 20 63 6f 6d 70 69 6c 65 64 20 75 73 69 6e 67 20 compiled using
4ad0: 6d 6b 74 63 6c 61 70 70 2c 20 74 68 69 73 20 72 mktclapp, this r
4ae0: 6f 75 74 69 6e 65 20 72 75 6e 73 20 74 6f 20 69 outine runs to i
4af0: 6e 69 74 69 61 6c 69 7a 65 0a 2a 2a 20 65 76 65 nitialize.** eve
4b00: 72 79 74 68 69 6e 67 2e 0a 2a 2f 0a 69 6e 74 20 rything..*/.int
4b10: 45 74 5f 41 70 70 49 6e 69 74 28 54 63 6c 5f 49 Et_AppInit(Tcl_I
4b20: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a nterp *interp){.
4b30: 20 20 72 65 74 75 72 6e 20 53 71 6c 69 74 65 5f return Sqlite_
4b40: 49 6e 69 74 28 69 6e 74 65 72 70 29 3b 0a 7d 0a Init(interp);.}.
4b50: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 49 66 #endif../*.** If
4b60: 20 74 68 65 20 6d 61 63 72 6f 20 54 43 4c 53 48 the macro TCLSH
4b70: 20 69 73 20 64 65 66 69 6e 65 64 20 61 6e 64 20 is defined and
4b80: 69 73 20 6f 6e 65 2c 20 74 68 65 6e 20 70 75 74 is one, then put
4b90: 20 69 6e 20 63 6f 64 65 20 66 6f 72 20 74 68 65 in code for the
4ba0: 0a 2a 2a 20 22 6d 61 69 6e 22 20 72 6f 75 74 69 .** "main" routi
4bb0: 6e 65 20 74 68 61 74 20 77 69 6c 6c 20 69 6e 69 ne that will ini
4bc0: 74 69 61 6c 69 7a 65 20 54 63 6c 2e 0a 2a 2f 0a tialize Tcl..*/.
4bd0: 23 69 66 20 64 65 66 69 6e 65 64 28 54 43 4c 53 #if defined(TCLS
4be0: 48 29 20 26 26 20 54 43 4c 53 48 3d 3d 31 0a 73 H) && TCLSH==1.s
4bf0: 74 61 74 69 63 20 63 68 61 72 20 7a 4d 61 69 6e tatic char zMain
4c00: 6c 6f 6f 70 5b 5d 20 3d 0a 20 20 22 73 65 74 20 loop[] =. "set
4c10: 6c 69 6e 65 20 7b 7d 5c 6e 22 0a 20 20 22 77 68 line {}\n". "wh
4c20: 69 6c 65 20 7b 21 5b 65 6f 66 20 73 74 64 69 6e ile {![eof stdin
4c30: 5d 7d 20 7b 5c 6e 22 0a 20 20 20 20 22 69 66 20 ]} {\n". "if
4c40: 7b 24 6c 69 6e 65 21 3d 5c 22 5c 22 7d 20 7b 5c {$line!=\"\"} {\
4c50: 6e 22 0a 20 20 20 20 20 20 22 70 75 74 73 20 2d n". "puts -
4c60: 6e 6f 6e 65 77 6c 69 6e 65 20 5c 22 3e 20 5c 22 nonewline \"> \"
4c70: 5c 6e 22 0a 20 20 20 20 22 7d 20 65 6c 73 65 20 \n". "} else
4c80: 7b 5c 6e 22 0a 20 20 20 20 20 20 22 70 75 74 73 {\n". "puts
4c90: 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5c 22 25 20 -nonewline \"%
4ca0: 5c 22 5c 6e 22 0a 20 20 20 20 22 7d 5c 6e 22 0a \"\n". "}\n".
4cb0: 20 20 20 20 22 66 6c 75 73 68 20 73 74 64 6f 75 "flush stdou
4cc0: 74 5c 6e 22 0a 20 20 20 20 22 61 70 70 65 6e 64 t\n". "append
4cd0: 20 6c 69 6e 65 20 5b 67 65 74 73 20 73 74 64 69 line [gets stdi
4ce0: 6e 5d 5c 6e 22 0a 20 20 20 20 22 69 66 20 7b 5b n]\n". "if {[
4cf0: 69 6e 66 6f 20 63 6f 6d 70 6c 65 74 65 20 24 6c info complete $l
4d00: 69 6e 65 5d 7d 20 7b 5c 6e 22 0a 20 20 20 20 20 ine]} {\n".
4d10: 20 22 69 66 20 7b 5b 63 61 74 63 68 20 7b 75 70 "if {[catch {up
4d20: 6c 65 76 65 6c 20 23 30 20 24 6c 69 6e 65 7d 20 level #0 $line}
4d30: 72 65 73 75 6c 74 5d 7d 20 7b 5c 6e 22 0a 20 20 result]} {\n".
4d40: 20 20 20 20 20 20 22 70 75 74 73 20 73 74 64 65 "puts stde
4d50: 72 72 20 5c 22 45 72 72 6f 72 3a 20 24 72 65 73 rr \"Error: $res
4d60: 75 6c 74 5c 22 5c 6e 22 0a 20 20 20 20 20 20 22 ult\"\n". "
4d70: 7d 20 65 6c 73 65 69 66 20 7b 24 72 65 73 75 6c } elseif {$resul
4d80: 74 21 3d 5c 22 5c 22 7d 20 7b 5c 6e 22 0a 20 20 t!=\"\"} {\n".
4d90: 20 20 20 20 20 20 22 70 75 74 73 20 24 72 65 73 "puts $res
4da0: 75 6c 74 5c 6e 22 0a 20 20 20 20 20 20 22 7d 5c ult\n". "}\
4db0: 6e 22 0a 20 20 20 20 20 20 22 73 65 74 20 6c 69 n". "set li
4dc0: 6e 65 20 7b 7d 5c 6e 22 0a 20 20 20 20 22 7d 20 ne {}\n". "}
4dd0: 65 6c 73 65 20 7b 5c 6e 22 0a 20 20 20 20 20 20 else {\n".
4de0: 22 61 70 70 65 6e 64 20 6c 69 6e 65 20 5c 5c 6e "append line \\n
4df0: 5c 6e 22 0a 20 20 20 20 22 7d 5c 6e 22 0a 20 20 \n". "}\n".
4e00: 22 7d 5c 6e 22 0a 3b 0a 0a 23 64 65 66 69 6e 65 "}\n".;..#define
4e10: 20 54 43 4c 53 48 5f 4d 41 49 4e 20 6d 61 69 6e TCLSH_MAIN main
4e20: 20 20 20 2f 2a 20 4e 65 65 64 65 64 20 74 6f 20 /* Needed to
4e30: 66 61 6b 65 20 6f 75 74 20 6d 6b 74 63 6c 61 70 fake out mktclap
4e40: 70 20 2a 2f 0a 69 6e 74 20 54 43 4c 53 48 5f 4d p */.int TCLSH_M
4e50: 41 49 4e 28 69 6e 74 20 61 72 67 63 2c 20 63 68 AIN(int argc, ch
4e60: 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 54 63 ar **argv){. Tc
4e70: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
4e80: 3b 0a 20 20 54 63 6c 5f 46 69 6e 64 45 78 65 63 ;. Tcl_FindExec
4e90: 75 74 61 62 6c 65 28 61 72 67 76 5b 30 5d 29 3b utable(argv[0]);
4ea0: 0a 20 20 69 6e 74 65 72 70 20 3d 20 54 63 6c 5f . interp = Tcl_
4eb0: 43 72 65 61 74 65 49 6e 74 65 72 70 28 29 3b 0a CreateInterp();.
4ec0: 20 20 53 71 6c 69 74 65 5f 49 6e 69 74 28 69 6e Sqlite_Init(in
4ed0: 74 65 72 70 29 3b 0a 23 69 66 64 65 66 20 53 51 terp);.#ifdef SQ
4ee0: 4c 49 54 45 5f 54 45 53 54 0a 20 20 7b 0a 20 20 LITE_TEST. {.
4ef0: 20 20 65 78 74 65 72 6e 20 69 6e 74 20 53 71 6c extern int Sql
4f00: 69 74 65 74 65 73 74 31 5f 49 6e 69 74 28 54 63 itetest1_Init(Tc
4f10: 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20 20 l_Interp*);.
4f20: 65 78 74 65 72 6e 20 69 6e 74 20 53 71 6c 69 74 extern int Sqlit
4f30: 65 74 65 73 74 32 5f 49 6e 69 74 28 54 63 6c 5f etest2_Init(Tcl_
4f40: 49 6e 74 65 72 70 2a 29 3b 0a 20 20 20 20 65 78 Interp*);. ex
4f50: 74 65 72 6e 20 69 6e 74 20 53 71 6c 69 74 65 74 tern int Sqlitet
4f60: 65 73 74 33 5f 49 6e 69 74 28 54 63 6c 5f 49 6e est3_Init(Tcl_In
4f70: 74 65 72 70 2a 29 3b 0a 20 20 20 20 65 78 74 65 terp*);. exte
4f80: 72 6e 20 69 6e 74 20 4d 64 35 5f 49 6e 69 74 28 rn int Md5_Init(
4f90: 54 63 6c 5f 49 6e 74 65 72 70 2a 29 3b 0a 20 20 Tcl_Interp*);.
4fa0: 20 20 53 71 6c 69 74 65 74 65 73 74 31 5f 49 6e Sqlitetest1_In
4fb0: 69 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 it(interp);.
4fc0: 53 71 6c 69 74 65 74 65 73 74 32 5f 49 6e 69 74 Sqlitetest2_Init
4fd0: 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 53 71 (interp);. Sq
4fe0: 6c 69 74 65 74 65 73 74 33 5f 49 6e 69 74 28 69 litetest3_Init(i
4ff0: 6e 74 65 72 70 29 3b 0a 20 20 20 20 4d 64 35 5f nterp);. Md5_
5000: 49 6e 69 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 Init(interp);.
5010: 7d 0a 23 65 6e 64 69 66 0a 20 20 69 66 28 20 61 }.#endif. if( a
5020: 72 67 63 3e 3d 32 20 29 7b 0a 20 20 20 20 69 6e rgc>=2 ){. in
5030: 74 20 69 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 t i;. Tcl_Set
5040: 56 61 72 28 69 6e 74 65 72 70 2c 22 61 72 67 76 Var(interp,"argv
5050: 30 22 2c 61 72 67 76 5b 31 5d 2c 54 43 4c 5f 47 0",argv[1],TCL_G
5060: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 20 20 LOBAL_ONLY);.
5070: 20 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 Tcl_SetVar(inte
5080: 72 70 2c 22 61 72 67 76 22 2c 20 22 22 2c 20 54 rp,"argv", "", T
5090: 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b CL_GLOBAL_ONLY);
50a0: 0a 20 20 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c . for(i=2; i<
50b0: 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 argc; i++){.
50c0: 20 20 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 Tcl_SetVar(int
50d0: 65 72 70 2c 20 22 61 72 67 76 22 2c 20 61 72 67 erp, "argv", arg
50e0: 76 5b 69 5d 2c 0a 20 20 20 20 20 20 20 20 20 20 v[i],.
50f0: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 20 TCL_GLOBAL_ONLY
5100: 7c 20 54 43 4c 5f 4c 49 53 54 5f 45 4c 45 4d 45 | TCL_LIST_ELEME
5110: 4e 54 20 7c 20 54 43 4c 5f 41 50 50 45 4e 44 5f NT | TCL_APPEND_
5120: 56 41 4c 55 45 29 3b 0a 20 20 20 20 7d 0a 20 20 VALUE);. }.
5130: 20 20 69 66 28 20 54 63 6c 5f 45 76 61 6c 46 69 if( Tcl_EvalFi
5140: 6c 65 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b le(interp, argv[
5150: 31 5d 29 21 3d 54 43 4c 5f 4f 4b 20 29 7b 0a 20 1])!=TCL_OK ){.
5160: 20 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 const char
5170: 2a 7a 49 6e 66 6f 20 3d 20 54 63 6c 5f 47 65 74 *zInfo = Tcl_Get
5180: 56 61 72 28 69 6e 74 65 72 70 2c 20 22 65 72 72 Var(interp, "err
5190: 6f 72 49 6e 66 6f 22 2c 20 54 43 4c 5f 47 4c 4f orInfo", TCL_GLO
51a0: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 20 20 20 20 BAL_ONLY);.
51b0: 20 69 66 28 20 7a 49 6e 66 6f 3d 3d 30 20 29 20 if( zInfo==0 )
51c0: 7a 49 6e 66 6f 20 3d 20 69 6e 74 65 72 70 2d 3e zInfo = interp->
51d0: 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 20 66 70 result;. fp
51e0: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 25 73 rintf(stderr,"%s
51f0: 3a 20 25 73 5c 6e 22 2c 20 2a 61 72 67 76 2c 20 : %s\n", *argv,
5200: 7a 49 6e 66 6f 29 3b 0a 20 20 20 20 20 20 72 65 zInfo);. re
5210: 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 20 20 turn 1;. }.
5220: 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f 47 }else{. Tcl_G
5230: 6c 6f 62 61 6c 45 76 61 6c 28 69 6e 74 65 72 70 lobalEval(interp
5240: 2c 20 7a 4d 61 69 6e 6c 6f 6f 70 29 3b 0a 20 20 , zMainloop);.
5250: 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a }. return 0;.}.
5260: 23 65 6e 64 69 66 20 2f 2a 20 54 43 4c 53 48 20 #endif /* TCLSH
5270: 2a 2f 0a 0a 23 65 6e 64 69 66 20 2f 2a 20 21 64 */..#endif /* !d
5280: 65 66 69 6e 65 64 28 4e 4f 5f 54 43 4c 29 20 2a efined(NO_TCL) *
5290: 2f 0a /.