0000: 2f 2a 0a 2a 2a 20 32 30 30 31 20 53 65 70 74 65 /*.** 2001 Septe
0010: 6d 62 65 72 20 31 35 0a 2a 2a 0a 2a 2a 20 54 68 mber 15.**.** Th
0020: 65 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 e author disclai
0030: 6d 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 ms copyright to
0040: 74 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 this source code
0050: 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a . In place of.*
0060: 2a 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 * a legal notice
0070: 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 , here is a bles
0080: 73 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d sing:.**.** M
0090: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 ay you do good a
00a0: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 nd not evil..**
00b0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 May you find
00c0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 forgiveness for
00d0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 yourself and for
00e0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 give others..**
00f0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 May you share
0100: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 freely, never t
0110: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 aking more than
0120: 79 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a you give..**.***
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0170: 2a 2a 2a 2a 2a 2a 0a 2a 2a 20 43 6f 64 65 20 66 ******.** Code f
0180: 6f 72 20 74 65 73 74 69 6e 67 20 74 68 65 20 70 or testing the p
0190: 72 69 6e 74 66 28 29 20 69 6e 74 65 72 66 61 63 rintf() interfac
01a0: 65 20 74 6f 20 53 51 4c 69 74 65 2e 20 20 54 68 e to SQLite. Th
01b0: 69 73 20 63 6f 64 65 0a 2a 2a 20 69 73 20 6e 6f is code.** is no
01c0: 74 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 74 68 t included in th
01d0: 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 e SQLite library
01e0: 2e 20 20 49 74 20 69 73 20 75 73 65 64 20 66 6f . It is used fo
01f0: 72 20 61 75 74 6f 6d 61 74 65 64 0a 2a 2a 20 74 r automated.** t
0200: 65 73 74 69 6e 67 20 6f 66 20 74 68 65 20 53 51 esting of the SQ
0210: 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 0a 2a 2a Lite library..**
0220: 0a 2a 2a 20 24 49 64 3a 20 74 65 73 74 31 2e 63 .** $Id: test1.c
0230: 2c 76 20 31 2e 31 30 20 32 30 30 32 2f 30 36 2f ,v 1.10 2002/06/
0240: 32 36 20 32 30 3a 30 36 3a 30 36 20 64 72 68 20 26 20:06:06 drh
0250: 45 78 70 20 24 0a 2a 2f 0a 23 69 6e 63 6c 75 64 Exp $.*/.#includ
0260: 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a e "sqliteInt.h".
0270: 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e 68 22 #include "tcl.h"
0280: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 .#include <stdli
0290: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 b.h>.#include <s
02a0: 74 72 69 6e 67 2e 68 3e 0a 0a 2f 2a 0a 2a 2a 20 tring.h>../*.**
02b0: 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 5f Usage: sqlite_
02c0: 6f 70 65 6e 20 66 69 6c 65 6e 61 6d 65 0a 2a 2a open filename.**
02d0: 0a 2a 2a 20 52 65 74 75 72 6e 73 3a 20 20 54 68 .** Returns: Th
02e0: 65 20 6e 61 6d 65 20 6f 66 20 61 6e 20 6f 70 65 e name of an ope
02f0: 6e 20 64 61 74 61 62 61 73 65 2e 0a 2a 2f 0a 73 n database..*/.s
0300: 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 tatic int sqlite
0310: 5f 74 65 73 74 5f 6f 70 65 6e 28 0a 20 20 76 6f _test_open(. vo
0320: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
0330: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0340: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
0350: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
0360: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
0370: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
0380: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
0390: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
03a0: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
03b0: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
03c0: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
03d0: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
03e0: 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 /.){. sqlite *d
03f0: 62 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 72 20 b;. char *zErr
0400: 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 = 0;. char zBuf
0410: 5b 31 30 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 [100];. if( arg
0420: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
0430: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
0440: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
0450: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
0460: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 ", argv[0],.
0470: 20 20 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 " FILENAME\""
0480: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
0490: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
04a0: 20 20 64 62 20 3d 20 73 71 6c 69 74 65 5f 6f 70 db = sqlite_op
04b0: 65 6e 28 61 72 67 76 5b 31 5d 2c 20 30 36 36 36 en(argv[1], 0666
04c0: 2c 20 26 7a 45 72 72 29 3b 0a 20 20 69 66 28 20 , &zErr);. if(
04d0: 64 62 3d 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c db==0 ){. Tcl
04e0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
04f0: 74 65 72 70 2c 20 7a 45 72 72 2c 20 30 29 3b 0a terp, zErr, 0);.
0500: 20 20 20 20 66 72 65 65 28 7a 45 72 72 29 3b 0a free(zErr);.
0510: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
0520: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 73 70 72 69 RROR;. }. spri
0530: 6e 74 66 28 7a 42 75 66 2c 22 25 64 22 2c 28 69 ntf(zBuf,"%d",(i
0540: 6e 74 29 64 62 29 3b 0a 20 20 54 63 6c 5f 41 70 nt)db);. Tcl_Ap
0550: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
0560: 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 p, zBuf, 0);. r
0570: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
0580: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 63 61 6c 6c 62 ./*.** The callb
0590: 61 63 6b 20 72 6f 75 74 69 6e 65 20 66 6f 72 20 ack routine for
05a0: 73 71 6c 69 74 65 5f 65 78 65 63 5f 70 72 69 6e sqlite_exec_prin
05b0: 74 66 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 tf()..*/.static
05c0: 69 6e 74 20 65 78 65 63 5f 70 72 69 6e 74 66 5f int exec_printf_
05d0: 63 62 28 76 6f 69 64 20 2a 70 41 72 67 2c 20 69 cb(void *pArg, i
05e0: 6e 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a nt argc, char **
05f0: 61 72 67 76 2c 20 63 68 61 72 20 2a 2a 6e 61 6d argv, char **nam
0600: 65 29 7b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e e){. Tcl_DStrin
0610: 67 20 2a 73 74 72 20 3d 20 28 54 63 6c 5f 44 53 g *str = (Tcl_DS
0620: 74 72 69 6e 67 2a 29 70 41 72 67 3b 0a 20 20 69 tring*)pArg;. i
0630: 6e 74 20 69 3b 0a 0a 20 20 69 66 28 20 54 63 6c nt i;.. if( Tcl
0640: 5f 44 53 74 72 69 6e 67 4c 65 6e 67 74 68 28 73 _DStringLength(s
0650: 74 72 29 3d 3d 30 20 29 7b 0a 20 20 20 20 66 6f tr)==0 ){. fo
0660: 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 r(i=0; i<argc; i
0670: 2b 2b 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 44 ++){. Tcl_D
0680: 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d StringAppendElem
0690: 65 6e 74 28 73 74 72 2c 20 6e 61 6d 65 5b 69 5d ent(str, name[i]
06a0: 20 3f 20 6e 61 6d 65 5b 69 5d 20 3a 20 22 4e 55 ? name[i] : "NU
06b0: 4c 4c 22 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a LL");. }. }.
06c0: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 for(i=0; i<arg
06d0: 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c c; i++){. Tcl
06e0: 5f 44 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c _DStringAppendEl
06f0: 65 6d 65 6e 74 28 73 74 72 2c 20 61 72 67 76 5b ement(str, argv[
0700: 69 5d 20 3f 20 61 72 67 76 5b 69 5d 20 3a 20 22 i] ? argv[i] : "
0710: 4e 55 4c 4c 22 29 3b 0a 20 20 7d 0a 20 20 72 65 NULL");. }. re
0720: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 0;.}../*.**
0730: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 5f Usage: sqlite_
0740: 65 78 65 63 5f 70 72 69 6e 74 66 20 20 44 42 20 exec_printf DB
0750: 20 46 4f 52 4d 41 54 20 20 53 54 52 49 4e 47 0a FORMAT STRING.
0760: 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 **.** Invoke the
0770: 20 73 71 6c 69 74 65 5f 65 78 65 63 5f 70 72 69 sqlite_exec_pri
0780: 6e 74 66 28 29 20 69 6e 74 65 72 66 61 63 65 20 ntf() interface
0790: 75 73 69 6e 67 20 74 68 65 20 6f 70 65 6e 20 64 using the open d
07a0: 61 74 61 62 61 73 65 0a 2a 2a 20 44 42 2e 20 20 atabase.** DB.
07b0: 54 68 65 20 53 51 4c 20 69 73 20 74 68 65 20 73 The SQL is the s
07c0: 74 72 69 6e 67 20 46 4f 52 4d 41 54 2e 20 20 54 tring FORMAT. T
07d0: 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 he format string
07e0: 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 69 6e 0a should contain.
07f0: 2a 2a 20 6f 6e 65 20 25 73 20 6f 72 20 25 71 2e ** one %s or %q.
0800: 20 20 53 54 52 49 4e 47 20 69 73 20 74 68 65 20 STRING is the
0810: 76 61 6c 75 65 20 69 6e 73 65 72 74 65 64 20 69 value inserted i
0820: 6e 74 6f 20 25 73 20 6f 72 20 25 71 2e 0a 2a 2f nto %s or %q..*/
0830: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
0840: 5f 65 78 65 63 5f 70 72 69 6e 74 66 28 0a 20 20 _exec_printf(.
0850: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 void *NotUsed,.
0860: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
0870: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
0880: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
0890: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
08a0: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
08b0: 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 t argc,
08c0: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
08d0: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
08e0: 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 char **argv
08f0: 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 /* Text
0900: 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 of each argument
0910: 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 */.){. sqlite
0920: 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 *db;. Tcl_DStri
0930: 6e 67 20 73 74 72 3b 0a 20 20 69 6e 74 20 72 63 ng str;. int rc
0940: 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 72 20 3d ;. char *zErr =
0950: 20 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 0;. char zBuf[
0960: 33 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 63 21 30];. if( argc!
0970: 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =4 ){. Tcl_Ap
0980: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
0990: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
09a0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
09b0: 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 argv[0], .
09c0: 20 20 22 20 44 42 20 46 4f 52 4d 41 54 20 53 54 " DB FORMAT ST
09d0: 52 49 4e 47 22 2c 20 30 29 3b 0a 20 20 20 20 72 RING", 0);. r
09e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
09f0: 0a 20 20 7d 0a 20 20 64 62 20 3d 20 28 73 71 6c . }. db = (sql
0a00: 69 74 65 2a 29 73 74 72 74 6f 6c 28 61 72 67 76 ite*)strtol(argv
0a10: 5b 31 5d 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 [1], 0, 0);. Tc
0a20: 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 73 l_DStringInit(&s
0a30: 74 72 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 tr);. rc = sqli
0a40: 74 65 5f 65 78 65 63 5f 70 72 69 6e 74 66 28 64 te_exec_printf(d
0a50: 62 2c 20 61 72 67 76 5b 32 5d 2c 20 65 78 65 63 b, argv[2], exec
0a60: 5f 70 72 69 6e 74 66 5f 63 62 2c 20 26 73 74 72 _printf_cb, &str
0a70: 2c 20 26 7a 45 72 72 2c 20 61 72 67 76 5b 33 5d , &zErr, argv[3]
0a80: 29 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75 );. sprintf(zBu
0a90: 66 2c 20 22 25 64 22 2c 20 72 63 29 3b 0a 20 20 f, "%d", rc);.
0aa0: 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e Tcl_AppendElemen
0ab0: 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b t(interp, zBuf);
0ac0: 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 . Tcl_AppendEle
0ad0: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 63 3d ment(interp, rc=
0ae0: 3d 53 51 4c 49 54 45 5f 4f 4b 20 3f 20 54 63 6c =SQLITE_OK ? Tcl
0af0: 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 73 _DStringValue(&s
0b00: 74 72 29 20 3a 20 7a 45 72 72 29 3b 0a 20 20 54 tr) : zErr);. T
0b10: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
0b20: 73 74 72 29 3b 0a 20 20 69 66 28 20 7a 45 72 72 str);. if( zErr
0b30: 20 29 20 66 72 65 65 28 7a 45 72 72 29 3b 0a 20 ) free(zErr);.
0b40: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
0b50: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
0b60: 20 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c sqlite_get_tabl
0b70: 65 5f 70 72 69 6e 74 66 20 20 44 42 20 20 46 4f e_printf DB FO
0b80: 52 4d 41 54 20 20 53 54 52 49 4e 47 0a 2a 2a 0a RMAT STRING.**.
0b90: 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20 73 71 ** Invoke the sq
0ba0: 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c 65 5f 70 lite_get_table_p
0bb0: 72 69 6e 74 66 28 29 20 69 6e 74 65 72 66 61 63 rintf() interfac
0bc0: 65 20 75 73 69 6e 67 20 74 68 65 20 6f 70 65 6e e using the open
0bd0: 20 64 61 74 61 62 61 73 65 0a 2a 2a 20 44 42 2e database.** DB.
0be0: 20 20 54 68 65 20 53 51 4c 20 69 73 20 74 68 65 The SQL is the
0bf0: 20 73 74 72 69 6e 67 20 46 4f 52 4d 41 54 2e 20 string FORMAT.
0c00: 20 54 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 The format stri
0c10: 6e 67 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 69 ng should contai
0c20: 6e 0a 2a 2a 20 6f 6e 65 20 25 73 20 6f 72 20 25 n.** one %s or %
0c30: 71 2e 20 20 53 54 52 49 4e 47 20 69 73 20 74 68 q. STRING is th
0c40: 65 20 76 61 6c 75 65 20 69 6e 73 65 72 74 65 64 e value inserted
0c50: 20 69 6e 74 6f 20 25 73 20 6f 72 20 25 71 2e 0a into %s or %q..
0c60: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
0c70: 73 74 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 st_get_table_pri
0c80: 6e 74 66 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 ntf(. void *Not
0c90: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
0ca0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
0cb0: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
0cc0: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
0cd0: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
0ce0: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
0cf0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
0d00: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
0d10: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
0d20: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
0d30: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
0d40: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
0d50: 73 71 6c 69 74 65 20 2a 64 62 3b 0a 20 20 54 63 sqlite *db;. Tc
0d60: 6c 5f 44 53 74 72 69 6e 67 20 73 74 72 3b 0a 20 l_DString str;.
0d70: 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 int rc;. char
0d80: 2a 7a 45 72 72 20 3d 20 30 3b 0a 20 20 69 6e 74 *zErr = 0;. int
0d90: 20 6e 52 6f 77 2c 20 6e 43 6f 6c 3b 0a 20 20 63 nRow, nCol;. c
0da0: 68 61 72 20 2a 2a 61 52 65 73 75 6c 74 3b 0a 20 har **aResult;.
0db0: 20 69 6e 74 20 69 3b 0a 20 20 63 68 61 72 20 7a int i;. char z
0dc0: 42 75 66 5b 33 30 5d 3b 0a 20 20 69 66 28 20 61 Buf[30];. if( a
0dd0: 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 rgc!=4 ){. Tc
0de0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
0df0: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
0e00: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
0e10: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 \"", argv[0], .
0e20: 20 20 20 20 20 20 22 20 44 42 20 46 4f 52 4d 41 " DB FORMA
0e30: 54 20 53 54 52 49 4e 47 22 2c 20 30 29 3b 0a 20 T STRING", 0);.
0e40: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
0e50: 52 4f 52 3b 0a 20 20 7d 0a 20 20 64 62 20 3d 20 ROR;. }. db =
0e60: 28 73 71 6c 69 74 65 2a 29 73 74 72 74 6f 6c 28 (sqlite*)strtol(
0e70: 61 72 67 76 5b 31 5d 2c 20 30 2c 20 30 29 3b 0a argv[1], 0, 0);.
0e80: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 Tcl_DStringIni
0e90: 74 28 26 73 74 72 29 3b 0a 20 20 72 63 20 3d 20 t(&str);. rc =
0ea0: 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c 65 sqlite_get_table
0eb0: 5f 70 72 69 6e 74 66 28 64 62 2c 20 61 72 67 76 _printf(db, argv
0ec0: 5b 32 5d 2c 20 26 61 52 65 73 75 6c 74 2c 20 26 [2], &aResult, &
0ed0: 6e 52 6f 77 2c 20 26 6e 43 6f 6c 2c 20 0a 20 20 nRow, &nCol, .
0ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 26 7a 45 &zE
0ef0: 72 72 2c 20 61 72 67 76 5b 33 5d 29 3b 0a 20 20 rr, argv[3]);.
0f00: 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 sprintf(zBuf, "%
0f10: 64 22 2c 20 72 63 29 3b 0a 20 20 54 63 6c 5f 41 d", rc);. Tcl_A
0f20: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
0f30: 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 69 66 erp, zBuf);. if
0f40: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc==SQLITE_OK
0f50: 29 7b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 7a ){. sprintf(z
0f60: 42 75 66 2c 20 22 25 64 22 2c 20 6e 52 6f 77 29 Buf, "%d", nRow)
0f70: 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 ;. Tcl_Append
0f80: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
0f90: 7a 42 75 66 29 3b 0a 20 20 20 20 73 70 72 69 6e zBuf);. sprin
0fa0: 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 6e tf(zBuf, "%d", n
0fb0: 43 6f 6c 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 Col);. Tcl_Ap
0fc0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
0fd0: 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 20 20 66 rp, zBuf);. f
0fe0: 6f 72 28 69 3d 30 3b 20 69 3c 28 6e 52 6f 77 2b or(i=0; i<(nRow+
0ff0: 31 29 2a 6e 43 6f 6c 3b 20 69 2b 2b 29 7b 0a 20 1)*nCol; i++){.
1000: 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 Tcl_AppendE
1010: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 61 lement(interp, a
1020: 52 65 73 75 6c 74 5b 69 5d 20 3f 20 61 52 65 73 Result[i] ? aRes
1030: 75 6c 74 5b 69 5d 20 3a 20 22 4e 55 4c 4c 22 29 ult[i] : "NULL")
1040: 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b ;. }. }else{
1050: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 . Tcl_AppendE
1060: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a lement(interp, z
1070: 45 72 72 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 Err);. }. sqli
1080: 74 65 5f 66 72 65 65 5f 74 61 62 6c 65 28 61 52 te_free_table(aR
1090: 65 73 75 6c 74 29 3b 0a 20 20 69 66 28 20 7a 45 esult);. if( zE
10a0: 72 72 20 29 20 66 72 65 65 28 7a 45 72 72 29 3b rr ) free(zErr);
10b0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
10c0: 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 ;.}.../*.** Usag
10d0: 65 3a 20 20 73 71 6c 69 74 65 5f 6c 61 73 74 5f e: sqlite_last_
10e0: 69 6e 73 65 72 74 5f 72 6f 77 69 64 20 44 42 0a insert_rowid DB.
10f0: 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 20 74 68 **.** Returns th
1100: 65 20 69 6e 74 65 67 65 72 20 52 4f 57 49 44 20 e integer ROWID
1110: 6f 66 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 of the most rece
1120: 6e 74 20 69 6e 73 65 72 74 2e 0a 2a 2f 0a 73 74 nt insert..*/.st
1130: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6c 61 atic int test_la
1140: 73 74 5f 72 6f 77 69 64 28 0a 20 20 76 6f 69 64 st_rowid(. void
1150: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
1160: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1170: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
1180: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
1190: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
11a0: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
11b0: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
11c0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
11d0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
11e0: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
11f0: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
1200: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
1210: 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 3b ){. sqlite *db;
1220: 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33 30 5d . char zBuf[30]
1230: 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 ;.. if( argc!=2
1240: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
1250: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1260: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
1270: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
1280: 72 67 76 5b 30 5d 2c 20 22 20 44 42 5c 22 22 2c rgv[0], " DB\"",
1290: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
12a0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
12b0: 20 64 62 20 3d 20 28 73 71 6c 69 74 65 2a 29 73 db = (sqlite*)s
12c0: 74 72 74 6f 6c 28 61 72 67 76 5b 31 5d 2c 20 30 trtol(argv[1], 0
12d0: 2c 20 30 29 3b 0a 20 20 73 70 72 69 6e 74 66 28 , 0);. sprintf(
12e0: 7a 42 75 66 2c 20 22 25 64 22 2c 20 73 71 6c 69 zBuf, "%d", sqli
12f0: 74 65 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 te_last_insert_r
1300: 6f 77 69 64 28 64 62 29 29 3b 0a 20 20 54 63 6c owid(db));. Tcl
1310: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1320: 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a terp, zBuf, 0);.
1330: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f return SQLITE_
1340: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
1350: 67 65 3a 20 20 73 71 6c 69 74 65 5f 63 6c 6f 73 ge: sqlite_clos
1360: 65 20 44 42 0a 2a 2a 0a 2a 2a 20 43 6c 6f 73 65 e DB.**.** Close
1370: 73 20 74 68 65 20 64 61 74 61 62 61 73 65 20 6f s the database o
1380: 70 65 6e 65 64 20 62 79 20 73 71 6c 69 74 65 5f pened by sqlite_
1390: 6f 70 65 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 open..*/.static
13a0: 69 6e 74 20 73 71 6c 69 74 65 5f 74 65 73 74 5f int sqlite_test_
13b0: 63 6c 6f 73 65 28 0a 20 20 76 6f 69 64 20 2a 4e close(. void *N
13c0: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
13d0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
13e0: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
13f0: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
1400: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
1410: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
1420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
1430: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
1440: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
1450: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
1460: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
1470: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
1480: 20 20 73 71 6c 69 74 65 20 2a 64 62 3b 0a 20 20 sqlite *db;.
1490: 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 if( argc!=2 ){.
14a0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
14b0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
14c0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
14d0: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
14e0: 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 49 4c 45 ],. " FILE
14f0: 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 NAME\"", 0);.
1500: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1510: 52 3b 0a 20 20 7d 0a 20 20 64 62 20 3d 20 28 73 R;. }. db = (s
1520: 71 6c 69 74 65 2a 29 73 74 72 74 6f 6c 28 61 72 qlite*)strtol(ar
1530: 67 76 5b 31 5d 2c 20 30 2c 20 30 29 3b 0a 20 20 gv[1], 0, 0);.
1540: 73 71 6c 69 74 65 5f 63 6c 6f 73 65 28 64 62 29 sqlite_close(db)
1550: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
1560: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c K;.}../*.** Impl
1570: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 ementation of th
1580: 65 20 78 5f 63 6f 61 6c 65 73 63 65 28 29 20 66 e x_coalesce() f
1590: 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 20 52 65 74 75 unction..** Retu
15a0: 72 6e 20 74 68 65 20 66 69 72 73 74 20 61 72 67 rn the first arg
15b0: 75 6d 65 6e 74 20 6e 6f 6e 2d 4e 55 4c 4c 20 61 ument non-NULL a
15c0: 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 rgument..*/.stat
15d0: 69 63 20 76 6f 69 64 20 69 66 6e 75 6c 6c 46 75 ic void ifnullFu
15e0: 6e 63 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a nc(sqlite_func *
15f0: 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 context, int arg
1600: 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a c, const char **
1610: 61 72 67 76 29 7b 0a 20 20 69 6e 74 20 69 3b 0a argv){. int i;.
1620: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 for(i=0; i<arg
1630: 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 c; i++){. if(
1640: 20 61 72 67 76 5b 69 5d 20 29 7b 0a 20 20 20 20 argv[i] ){.
1650: 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 sqlite_set_res
1660: 75 6c 74 5f 73 74 72 69 6e 67 28 63 6f 6e 74 65 ult_string(conte
1670: 78 74 2c 20 61 72 67 76 5b 69 5d 2c 20 2d 31 29 xt, argv[i], -1)
1680: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
1690: 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a }. }.}../*.*
16a0: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
16b0: 20 6f 66 20 74 68 65 20 78 5f 73 71 6c 69 74 65 of the x_sqlite
16c0: 5f 65 78 65 63 28 29 20 66 75 6e 63 74 69 6f 6e _exec() function
16d0: 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e . This function
16e0: 20 74 61 6b 65 73 0a 2a 2a 20 61 20 73 69 6e 67 takes.** a sing
16f0: 6c 65 20 61 72 67 75 6d 65 6e 74 20 61 6e 64 20 le argument and
1700: 61 74 74 65 6d 70 74 73 20 74 6f 20 65 78 65 63 attempts to exec
1710: 75 74 65 20 74 68 61 74 20 61 72 67 75 6d 65 6e ute that argumen
1720: 74 20 61 73 20 53 51 4c 20 63 6f 64 65 2e 0a 2a t as SQL code..*
1730: 2a 20 54 68 69 73 20 69 73 20 69 6c 6c 65 67 61 * This is illega
1740: 6c 20 61 6e 64 20 73 68 75 74 20 73 65 74 20 74 l and shut set t
1750: 68 65 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 he SQLITE_MISUSE
1760: 20 66 6c 61 67 20 6f 6e 20 74 68 65 20 64 61 74 flag on the dat
1770: 61 62 61 73 65 2e 0a 2a 2a 20 0a 2a 2a 20 54 68 abase..** .** Th
1780: 69 73 20 72 6f 75 74 69 6e 65 20 73 69 6d 75 6c is routine simul
1790: 61 74 65 73 20 74 68 65 20 65 66 66 65 63 74 20 ates the effect
17a0: 6f 66 20 68 61 76 69 6e 67 20 74 77 6f 20 74 68 of having two th
17b0: 72 65 61 64 73 20 61 74 74 65 6d 70 74 20 74 6f reads attempt to
17c0: 0a 2a 2a 20 75 73 65 20 74 68 65 20 73 61 6d 65 .** use the same
17d0: 20 64 61 74 61 62 61 73 65 20 61 74 20 74 68 65 database at the
17e0: 20 73 61 6d 65 20 74 69 6d 65 2e 0a 2a 2f 0a 73 same time..*/.s
17f0: 74 61 74 69 63 20 76 6f 69 64 20 73 71 6c 69 74 tatic void sqlit
1800: 65 45 78 65 63 46 75 6e 63 28 73 71 6c 69 74 65 eExecFunc(sqlite
1810: 5f 66 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c 20 _func *context,
1820: 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 int argc, const
1830: 63 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 char **argv){.
1840: 73 71 6c 69 74 65 5f 65 78 65 63 28 28 73 71 6c sqlite_exec((sql
1850: 69 74 65 2a 29 73 71 6c 69 74 65 5f 75 73 65 72 ite*)sqlite_user
1860: 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 2c 20 _data(context),
1870: 61 72 67 76 5b 30 5d 2c 20 30 2c 20 30 2c 20 30 argv[0], 0, 0, 0
1880: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 );.}../*.** Usag
1890: 65 3a 20 20 73 71 6c 69 74 65 5f 74 65 73 74 5f e: sqlite_test_
18a0: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 create_function
18b0: 44 42 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 74 68 DB.**.** Call th
18c0: 65 20 73 71 6c 69 74 65 5f 63 72 65 61 74 65 5f e sqlite_create_
18d0: 66 75 6e 63 74 69 6f 6e 20 41 50 49 20 6f 6e 20 function API on
18e0: 74 68 65 20 67 69 76 65 6e 20 64 61 74 61 62 61 the given databa
18f0: 73 65 20 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 se in order.** t
1900: 6f 20 63 72 65 61 74 65 20 61 20 66 75 6e 63 74 o create a funct
1910: 69 6f 6e 20 6e 61 6d 65 64 20 22 78 5f 63 6f 61 ion named "x_coa
1920: 6c 65 73 63 65 22 2e 20 20 54 68 69 73 20 66 75 lesce". This fu
1930: 6e 63 74 69 6f 6e 20 64 6f 65 73 20 74 68 65 20 nction does the
1940: 73 61 6d 65 20 74 68 69 6e 67 0a 2a 2a 20 61 73 same thing.** as
1950: 20 74 68 65 20 22 63 6f 61 6c 65 73 63 65 22 20 the "coalesce"
1960: 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 function. This
1970: 66 75 6e 63 74 69 6f 6e 20 61 6c 73 6f 20 72 65 function also re
1980: 67 69 73 74 65 72 73 20 61 6e 20 53 51 4c 20 66 gisters an SQL f
1990: 75 6e 63 74 69 6f 6e 0a 2a 2a 20 6e 61 6d 65 64 unction.** named
19a0: 20 22 78 5f 73 71 6c 69 74 65 5f 65 78 65 63 22 "x_sqlite_exec"
19b0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 73 20 73 71 that invokes sq
19c0: 6c 69 74 65 5f 65 78 65 63 28 29 2e 20 20 49 6e lite_exec(). In
19d0: 76 6f 6b 69 6e 67 20 73 71 6c 69 74 65 5f 65 78 voking sqlite_ex
19e0: 65 63 28 29 0a 2a 2a 20 69 6e 20 74 68 69 73 20 ec().** in this
19f0: 77 61 79 20 69 73 20 69 6c 6c 65 67 61 6c 20 72 way is illegal r
1a00: 65 63 75 72 73 69 6f 6e 20 61 6e 64 20 73 68 6f ecursion and sho
1a10: 75 6c 64 20 72 61 69 73 65 20 61 6e 20 53 51 4c uld raise an SQL
1a20: 49 54 45 5f 4d 49 53 55 53 45 20 65 72 72 6f 72 ITE_MISUSE error
1a30: 2e 0a 2a 2a 20 54 68 65 20 65 66 66 65 63 74 20 ..** The effect
1a40: 69 73 20 73 69 6d 69 6c 61 72 20 74 6f 20 74 72 is similar to tr
1a50: 79 69 6e 67 20 74 6f 20 75 73 65 20 74 68 65 20 ying to use the
1a60: 73 61 6d 65 20 64 61 74 61 62 61 73 65 20 63 6f same database co
1a70: 6e 6e 65 63 74 69 6f 6e 20 66 72 6f 6d 0a 2a 2a nnection from.**
1a80: 20 74 77 6f 20 74 68 72 65 61 64 73 20 61 74 20 two threads at
1a90: 74 68 65 20 73 61 6d 65 20 74 69 6d 65 2e 0a 2a the same time..*
1aa0: 2a 0a 2a 2a 20 54 68 65 20 6f 72 69 67 69 6e 61 *.** The origina
1ab0: 6c 20 6d 6f 74 69 76 61 74 69 6f 6e 20 66 6f 72 l motivation for
1ac0: 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 77 61 this routine wa
1ad0: 73 20 74 6f 20 62 65 20 61 62 6c 65 20 74 6f 20 s to be able to
1ae0: 63 61 6c 6c 20 74 68 65 0a 2a 2a 20 73 71 6c 69 call the.** sqli
1af0: 74 65 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 te_create_functi
1b00: 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 6c on function whil
1b10: 65 20 61 20 71 75 65 72 79 20 69 73 20 69 6e 20 e a query is in
1b20: 70 72 6f 67 72 65 73 73 20 69 6e 20 6f 72 64 65 progress in orde
1b30: 72 0a 2a 2a 20 74 6f 20 74 65 73 74 20 74 68 65 r.** to test the
1b40: 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 64 SQLITE_MISUSE d
1b50: 65 74 65 63 74 69 6f 6e 20 6c 6f 67 69 63 2e 0a etection logic..
1b60: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 */.static int sq
1b70: 6c 69 74 65 5f 74 65 73 74 5f 63 72 65 61 74 65 lite_test_create
1b80: 5f 66 75 6e 63 74 69 6f 6e 28 0a 20 20 76 6f 69 _function(. voi
1b90: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
1ba0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1bb0: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
1bc0: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
1bd0: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
1be0: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
1bf0: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
1c00: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
1c10: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
1c20: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
1c30: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
1c40: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
1c50: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 .){. sqlite *db
1c60: 3b 0a 20 20 65 78 74 65 72 6e 20 76 6f 69 64 20 ;. extern void
1c70: 4d 64 35 5f 52 65 67 69 73 74 65 72 28 73 71 6c Md5_Register(sql
1c80: 69 74 65 2a 29 3b 0a 20 20 69 66 28 20 61 72 67 ite*);. if( arg
1c90: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
1ca0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1cb0: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
1cc0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
1cd0: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 ", argv[0],.
1ce0: 20 20 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 " FILENAME\""
1cf0: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
1d00: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
1d10: 20 20 64 62 20 3d 20 28 73 71 6c 69 74 65 2a 29 db = (sqlite*)
1d20: 73 74 72 74 6f 6c 28 61 72 67 76 5b 31 5d 2c 20 strtol(argv[1],
1d30: 30 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 5f 0, 0);. sqlite_
1d40: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 create_function(
1d50: 64 62 2c 20 22 78 5f 63 6f 61 6c 65 73 63 65 22 db, "x_coalesce"
1d60: 2c 20 2d 31 2c 20 69 66 6e 75 6c 6c 46 75 6e 63 , -1, ifnullFunc
1d70: 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 5f 63 , 0);. sqlite_c
1d80: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 reate_function(d
1d90: 62 2c 20 22 78 5f 73 71 6c 69 74 65 5f 65 78 65 b, "x_sqlite_exe
1da0: 63 22 2c 20 31 2c 20 73 71 6c 69 74 65 45 78 65 c", 1, sqliteExe
1db0: 63 46 75 6e 63 2c 20 64 62 29 3b 0a 20 20 72 65 cFunc, db);. re
1dc0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
1dd0: 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 74 /*.** Routines t
1de0: 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 o implement the
1df0: 78 5f 63 6f 75 6e 74 28 29 20 61 67 67 72 65 67 x_count() aggreg
1e00: 61 74 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f ate function..*/
1e10: 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 .typedef struct
1e20: 43 6f 75 6e 74 43 74 78 20 43 6f 75 6e 74 43 74 CountCtx CountCt
1e30: 78 3b 0a 73 74 72 75 63 74 20 43 6f 75 6e 74 43 x;.struct CountC
1e40: 74 78 20 7b 0a 20 20 69 6e 74 20 6e 3b 0a 7d 3b tx {. int n;.};
1e50: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f 75 .static void cou
1e60: 6e 74 53 74 65 70 28 73 71 6c 69 74 65 5f 66 75 ntStep(sqlite_fu
1e70: 6e 63 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 nc *context, int
1e80: 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 argc, const cha
1e90: 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 43 6f 75 r **argv){. Cou
1ea0: 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 ntCtx *p;. p =
1eb0: 73 71 6c 69 74 65 5f 61 67 67 72 65 67 61 74 65 sqlite_aggregate
1ec0: 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 _context(context
1ed0: 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 , sizeof(*p));.
1ee0: 20 69 66 28 20 28 61 72 67 63 3d 3d 30 20 7c 7c if( (argc==0 ||
1ef0: 20 61 72 67 76 5b 30 5d 29 20 26 26 20 70 20 29 argv[0]) && p )
1f00: 7b 0a 20 20 20 20 70 2d 3e 6e 2b 2b 3b 0a 20 20 {. p->n++;.
1f10: 7d 0a 7d 20 20 20 0a 73 74 61 74 69 63 20 76 6f }.} .static vo
1f20: 69 64 20 63 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 id countFinalize
1f30: 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 6f (sqlite_func *co
1f40: 6e 74 65 78 74 29 7b 0a 20 20 43 6f 75 6e 74 43 ntext){. CountC
1f50: 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c tx *p;. p = sql
1f60: 69 74 65 5f 61 67 67 72 65 67 61 74 65 5f 63 6f ite_aggregate_co
1f70: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 ntext(context, s
1f80: 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 73 71 izeof(*p));. sq
1f90: 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 5f lite_set_result_
1fa0: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 70 20 3f int(context, p ?
1fb0: 20 70 2d 3e 6e 20 3a 20 30 29 3b 0a 7d 0a 0a 2f p->n : 0);.}../
1fc0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
1fd0: 69 74 65 5f 74 65 73 74 5f 63 72 65 61 74 65 5f ite_test_create_
1fe0: 61 67 67 72 65 67 61 74 65 20 44 42 0a 2a 2a 0a aggregate DB.**.
1ff0: 2a 2a 20 43 61 6c 6c 20 74 68 65 20 73 71 6c 69 ** Call the sqli
2000: 74 65 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 te_create_functi
2010: 6f 6e 20 41 50 49 20 6f 6e 20 74 68 65 20 67 69 on API on the gi
2020: 76 65 6e 20 64 61 74 61 62 61 73 65 20 69 6e 20 ven database in
2030: 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 63 72 65 61 order.** to crea
2040: 74 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 6e 61 te a function na
2050: 6d 65 64 20 22 78 5f 63 6f 75 6e 74 22 2e 20 20 med "x_count".
2060: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f This function do
2070: 65 73 20 74 68 65 20 73 61 6d 65 20 74 68 69 6e es the same thin
2080: 67 0a 2a 2a 20 61 73 20 74 68 65 20 22 6d 64 35 g.** as the "md5
2090: 73 75 6d 22 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a sum" function..*
20a0: 2a 0a 2a 2a 20 54 68 65 20 6f 72 69 67 69 6e 61 *.** The origina
20b0: 6c 20 6d 6f 74 69 76 61 74 69 6f 6e 20 66 6f 72 l motivation for
20c0: 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 77 61 this routine wa
20d0: 73 20 74 6f 20 62 65 20 61 62 6c 65 20 74 6f 20 s to be able to
20e0: 63 61 6c 6c 20 74 68 65 0a 2a 2a 20 73 71 6c 69 call the.** sqli
20f0: 74 65 5f 63 72 65 61 74 65 5f 61 67 67 72 65 67 te_create_aggreg
2100: 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 ate function whi
2110: 6c 65 20 61 20 71 75 65 72 79 20 69 73 20 69 6e le a query is in
2120: 20 70 72 6f 67 72 65 73 73 20 69 6e 20 6f 72 64 progress in ord
2130: 65 72 0a 2a 2a 20 74 6f 20 74 65 73 74 20 74 68 er.** to test th
2140: 65 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 e SQLITE_MISUSE
2150: 64 65 74 65 63 74 69 6f 6e 20 6c 6f 67 69 63 2e detection logic.
2160: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 .*/.static int s
2170: 71 6c 69 74 65 5f 74 65 73 74 5f 63 72 65 61 74 qlite_test_creat
2180: 65 5f 61 67 67 72 65 67 61 74 65 28 0a 20 20 76 e_aggregate(. v
2190: 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 oid *NotUsed,.
21a0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
21b0: 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
21c0: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
21d0: 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
21e0: 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
21f0: 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 argc,
2200: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
2210: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
2220: 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 char **argv
2230: 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f /* Text o
2240: 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 f each argument
2250: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a */.){. sqlite *
2260: 64 62 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d db;. if( argc!=
2270: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
2280: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
2290: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
22a0: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
22b0: 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 argv[0],.
22c0: 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 " FILENAME\"", 0
22d0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
22e0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 64 L_ERROR;. }. d
22f0: 62 20 3d 20 28 73 71 6c 69 74 65 2a 29 73 74 72 b = (sqlite*)str
2300: 74 6f 6c 28 61 72 67 76 5b 31 5d 2c 20 30 2c 20 tol(argv[1], 0,
2310: 30 29 3b 0a 20 20 73 71 6c 69 74 65 5f 63 72 65 0);. sqlite_cre
2320: 61 74 65 5f 61 67 67 72 65 67 61 74 65 28 64 62 ate_aggregate(db
2330: 2c 20 22 78 5f 63 6f 75 6e 74 22 2c 20 30 2c 20 , "x_count", 0,
2340: 63 6f 75 6e 74 53 74 65 70 2c 20 63 6f 75 6e 74 countStep, count
2350: 46 69 6e 61 6c 69 7a 65 2c 20 30 29 3b 0a 20 20 Finalize, 0);.
2360: 73 71 6c 69 74 65 5f 63 72 65 61 74 65 5f 61 67 sqlite_create_ag
2370: 67 72 65 67 61 74 65 28 64 62 2c 20 22 78 5f 63 gregate(db, "x_c
2380: 6f 75 6e 74 22 2c 20 31 2c 20 63 6f 75 6e 74 53 ount", 1, countS
2390: 74 65 70 2c 20 63 6f 75 6e 74 46 69 6e 61 6c 69 tep, countFinali
23a0: 7a 65 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e ze, 0);. return
23b0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 0a 2f 2a TCL_OK;.}..../*
23c0: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
23d0: 74 65 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 20 46 te_mprintf_int F
23e0: 4f 52 4d 41 54 20 49 4e 54 45 47 45 52 20 49 4e ORMAT INTEGER IN
23f0: 54 45 47 45 52 20 49 4e 54 45 47 45 52 0a 2a 2a TEGER INTEGER.**
2400: 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 .** Call mprintf
2410: 20 77 69 74 68 20 74 68 72 65 65 20 69 6e 74 65 with three inte
2420: 67 65 72 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2f ger arguments.*/
2430: 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 .static int sqli
2440: 74 65 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 28 0a te_mprintf_int(.
2450: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
2460: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
2470: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
2480: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
2490: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
24a0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
24b0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
24c0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
24d0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
24e0: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
24f0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
2500: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
2510: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 nt */.){. int a
2520: 5b 33 5d 2c 20 69 3b 0a 20 20 63 68 61 72 20 2a [3], i;. char *
2530: 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 35 z;. if( argc!=5
2540: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
2550: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
2560: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
2570: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
2580: 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 rgv[0],. "
2590: 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e 54 20 FORMAT INT INT
25a0: 49 4e 54 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 INT\"", 0);.
25b0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
25c0: 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b ;. }. for(i=2;
25d0: 20 69 3c 35 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 i<5; i++){.
25e0: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 if( Tcl_GetInt(i
25f0: 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 nterp, argv[i],
2600: 26 61 5b 69 2d 32 5d 29 20 29 20 72 65 74 75 72 &a[i-2]) ) retur
2610: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
2620: 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 5f 6d 70 . z = sqlite_mp
2630: 72 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 rintf(argv[1], a
2640: 5b 30 5d 2c 20 61 5b 31 5d 2c 20 61 5b 32 5d 29 [0], a[1], a[2])
2650: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
2660: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 sult(interp, z,
2670: 30 29 3b 0a 20 20 73 71 6c 69 74 65 46 72 65 65 0);. sqliteFree
2680: 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 (z);. return TC
2690: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
26a0: 73 61 67 65 3a 20 20 73 71 6c 69 74 65 5f 6d 70 sage: sqlite_mp
26b0: 72 69 6e 74 66 5f 73 74 72 20 46 4f 52 4d 41 54 rintf_str FORMAT
26c0: 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52 INTEGER INTEGER
26d0: 20 53 54 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 43 61 STRING.**.** Ca
26e0: 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 74 68 20 ll mprintf with
26f0: 74 77 6f 20 69 6e 74 65 67 65 72 20 61 72 67 75 two integer argu
2700: 6d 65 6e 74 73 20 61 6e 64 20 6f 6e 65 20 73 74 ments and one st
2710: 72 69 6e 67 20 61 72 67 75 6d 65 6e 74 0a 2a 2f ring argument.*/
2720: 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 .static int sqli
2730: 74 65 5f 6d 70 72 69 6e 74 66 5f 73 74 72 28 0a te_mprintf_str(.
2740: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
2750: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
2760: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
2770: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
2780: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
2790: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
27a0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
27b0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
27c0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
27d0: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
27e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
27f0: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
2800: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 nt */.){. int a
2810: 5b 33 5d 2c 20 69 3b 0a 20 20 63 68 61 72 20 2a [3], i;. char *
2820: 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 3c 34 20 z;. if( argc<4
2830: 7c 7c 20 61 72 67 63 3e 35 20 29 7b 0a 20 20 20 || argc>5 ){.
2840: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
2850: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
2860: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
2870: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
2880: 0a 20 20 20 20 20 20 20 22 20 46 4f 52 4d 41 54 . " FORMAT
2890: 20 49 4e 54 20 49 4e 54 20 3f 53 54 52 49 4e 47 INT INT ?STRING
28a0: 3f 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 ?\"", 0);. re
28b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
28c0: 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 }. for(i=2; i
28d0: 3c 34 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 <4; i++){. if
28e0: 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 ( Tcl_GetInt(int
28f0: 65 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26 61 erp, argv[i], &a
2900: 5b 69 2d 32 5d 29 20 29 20 72 65 74 75 72 6e 20 [i-2]) ) return
2910: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
2920: 20 7a 20 3d 20 73 71 6c 69 74 65 5f 6d 70 72 69 z = sqlite_mpri
2930: 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 5b 30 ntf(argv[1], a[0
2940: 5d 2c 20 61 5b 31 5d 2c 20 61 72 67 63 3e 34 20 ], a[1], argc>4
2950: 3f 20 61 72 67 76 5b 34 5d 20 3a 20 4e 55 4c 4c ? argv[4] : NULL
2960: 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 );. Tcl_AppendR
2970: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c esult(interp, z,
2980: 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 46 72 65 0);. sqliteFre
2990: 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 e(z);. return T
29a0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
29b0: 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 5f 6d Usage: sqlite_m
29c0: 70 72 69 6e 74 66 5f 73 74 72 20 46 4f 52 4d 41 printf_str FORMA
29d0: 54 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 T INTEGER INTEGE
29e0: 52 20 44 4f 55 42 4c 45 0a 2a 2a 0a 2a 2a 20 43 R DOUBLE.**.** C
29f0: 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 74 68 all mprintf with
2a00: 20 74 77 6f 20 69 6e 74 65 67 65 72 20 61 72 67 two integer arg
2a10: 75 6d 65 6e 74 73 20 61 6e 64 20 6f 6e 65 20 64 uments and one d
2a20: 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 0a 2a ouble argument.*
2a30: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c /.static int sql
2a40: 69 74 65 5f 6d 70 72 69 6e 74 66 5f 64 6f 75 62 ite_mprintf_doub
2a50: 6c 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 le(. void *NotU
2a60: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
2a70: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
2a80: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
2a90: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
2aa0: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
2ab0: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
2ac0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
2ad0: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
2ae0: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
2af0: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
2b00: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
2b10: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 gument */.){. i
2b20: 6e 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 20 64 6f nt a[3], i;. do
2b30: 75 62 6c 65 20 72 3b 0a 20 20 63 68 61 72 20 2a uble r;. char *
2b40: 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 35 z;. if( argc!=5
2b50: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
2b60: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
2b70: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
2b80: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
2b90: 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 rgv[0],. "
2ba0: 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e 54 20 FORMAT INT INT
2bb0: 53 54 52 49 4e 47 5c 22 22 2c 20 30 29 3b 0a 20 STRING\"", 0);.
2bc0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
2bd0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 ROR;. }. for(i
2be0: 3d 32 3b 20 69 3c 34 3b 20 69 2b 2b 29 7b 0a 20 =2; i<4; i++){.
2bf0: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e if( Tcl_GetIn
2c00: 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 t(interp, argv[i
2c10: 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 29 20 72 65 ], &a[i-2]) ) re
2c20: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2c30: 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 }. if( Tcl_Ge
2c40: 74 44 6f 75 62 6c 65 28 69 6e 74 65 72 70 2c 20 tDouble(interp,
2c50: 61 72 67 76 5b 34 5d 2c 20 26 72 29 20 29 20 72 argv[4], &r) ) r
2c60: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
2c70: 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 5f 6d 70 . z = sqlite_mp
2c80: 72 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 rintf(argv[1], a
2c90: 5b 30 5d 2c 20 61 5b 31 5d 2c 20 72 29 3b 0a 20 [0], a[1], r);.
2ca0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
2cb0: 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b t(interp, z, 0);
2cc0: 0a 20 20 73 71 6c 69 74 65 46 72 65 65 28 7a 29 . sqliteFree(z)
2cd0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
2ce0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
2cf0: 65 3a 20 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 e: sqlite_malloc
2d00: 5f 66 61 69 6c 20 4e 0a 2a 2a 0a 2a 2a 20 52 69 _fail N.**.** Ri
2d10: 67 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 29 g sqliteMalloc()
2d20: 20 74 6f 20 66 61 69 6c 20 6f 6e 20 74 68 65 20 to fail on the
2d30: 4e 2d 74 68 20 63 61 6c 6c 2e 20 20 54 75 72 6e N-th call. Turn
2d40: 20 6f 66 66 20 74 68 69 73 20 6d 65 63 68 61 6e off this mechan
2d50: 69 73 6d 0a 2a 2a 20 61 6e 64 20 72 65 73 65 74 ism.** and reset
2d60: 20 74 68 65 20 73 71 6c 69 74 65 5f 6d 61 6c 6c the sqlite_mall
2d70: 6f 63 5f 66 61 69 6c 65 64 20 76 61 72 69 61 62 oc_failed variab
2d80: 6c 65 20 69 73 20 4e 3d 3d 30 2e 0a 2a 2f 0a 23 le is N==0..*/.#
2d90: 69 66 64 65 66 20 4d 45 4d 4f 52 59 5f 44 45 42 ifdef MEMORY_DEB
2da0: 55 47 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 UG.static int sq
2db0: 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c lite_malloc_fail
2dc0: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
2dd0: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
2de0: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
2df0: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
2e00: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
2e10: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
2e20: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
2e30: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
2e40: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
2e50: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
2e60: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
2e70: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
2e80: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 ment */.){. int
2e90: 20 6e 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d n;. if( argc!=
2ea0: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
2eb0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
2ec0: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
2ed0: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
2ee0: 61 72 67 76 5b 30 5d 2c 20 22 20 4e 5c 22 22 2c argv[0], " N\"",
2ef0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
2f00: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
2f10: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 if( Tcl_GetInt(
2f20: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
2f30: 20 26 6e 29 20 29 20 72 65 74 75 72 6e 20 54 43 &n) ) return TC
2f40: 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 L_ERROR;. sqlit
2f50: 65 5f 69 4d 61 6c 6c 6f 63 46 61 69 6c 20 3d 20 e_iMallocFail =
2f60: 6e 3b 0a 20 20 73 71 6c 69 74 65 5f 6d 61 6c 6c n;. sqlite_mall
2f70: 6f 63 5f 66 61 69 6c 65 64 20 3d 20 30 3b 0a 20 oc_failed = 0;.
2f80: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
2f90: 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 }.#endif../*.**
2fa0: 55 73 61 67 65 3a 20 73 71 6c 69 74 65 5f 6d 61 Usage: sqlite_ma
2fb0: 6c 6c 6f 63 5f 73 74 61 74 0a 2a 2a 0a 2a 2a 20 lloc_stat.**.**
2fc0: 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
2fd0: 72 20 6f 66 20 70 72 69 6f 72 20 63 61 6c 6c 73 r of prior calls
2fe0: 20 74 6f 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 to sqliteMalloc
2ff0: 28 29 20 61 6e 64 20 73 71 6c 69 74 65 46 72 65 () and sqliteFre
3000: 65 28 29 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 4d e()..*/.#ifdef M
3010: 45 4d 4f 52 59 5f 44 45 42 55 47 0a 73 74 61 74 EMORY_DEBUG.stat
3020: 69 63 20 69 6e 74 20 73 71 6c 69 74 65 5f 6d 61 ic int sqlite_ma
3030: 6c 6c 6f 63 5f 73 74 61 74 28 0a 20 20 76 6f 69 lloc_stat(. voi
3040: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
3050: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
3060: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
3070: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
3080: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
3090: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
30a0: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
30b0: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
30c0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
30d0: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
30e0: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
30f0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
3100: 0a 29 7b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b .){. char zBuf[
3110: 32 30 30 5d 3b 0a 20 20 73 70 72 69 6e 74 66 28 200];. sprintf(
3120: 7a 42 75 66 2c 20 22 25 64 20 25 64 20 25 64 22 zBuf, "%d %d %d"
3130: 2c 20 73 71 6c 69 74 65 5f 6e 4d 61 6c 6c 6f 63 , sqlite_nMalloc
3140: 2c 20 73 71 6c 69 74 65 5f 6e 46 72 65 65 2c 20 , sqlite_nFree,
3150: 73 71 6c 69 74 65 5f 69 4d 61 6c 6c 6f 63 46 61 sqlite_iMallocFa
3160: 69 6c 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e il);. Tcl_Appen
3170: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
3180: 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 zBuf, 0);. retu
3190: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e rn TCL_OK;.}.#en
31a0: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 dif../*.** Usage
31b0: 3a 20 20 73 71 6c 69 74 65 5f 61 62 6f 72 74 0a : sqlite_abort.
31c0: 2a 2a 0a 2a 2a 20 53 68 75 74 64 6f 77 6e 20 74 **.** Shutdown t
31d0: 68 65 20 70 72 6f 63 65 73 73 20 69 6d 6d 65 64 he process immed
31e0: 69 61 74 65 6c 79 2e 20 20 54 68 69 73 20 69 73 iately. This is
31f0: 20 6e 6f 74 20 61 20 63 6c 65 61 6e 20 73 68 75 not a clean shu
3200: 74 64 6f 77 6e 2e 0a 2a 2a 20 54 68 69 73 20 63 tdown..** This c
3210: 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 ommand is used t
3220: 6f 20 74 65 73 74 20 74 68 65 20 72 65 63 6f 76 o test the recov
3230: 65 72 61 62 69 6c 69 74 79 20 6f 66 20 61 20 64 erability of a d
3240: 61 74 61 62 61 73 65 20 69 6e 0a 2a 2a 20 74 68 atabase in.** th
3250: 65 20 65 76 65 6e 74 20 6f 66 20 61 20 70 72 6f e event of a pro
3260: 67 72 61 6d 20 63 72 61 73 68 2e 0a 2a 2f 0a 73 gram crash..*/.s
3270: 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 tatic int sqlite
3280: 5f 61 62 6f 72 74 28 0a 20 20 76 6f 69 64 20 2a _abort(. void *
3290: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
32a0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
32b0: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
32c0: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
32d0: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
32e0: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
32f0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
3300: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
3310: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
3320: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
3330: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
3340: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
3350: 0a 20 20 61 73 73 65 72 74 28 20 69 6e 74 65 72 . assert( inter
3360: 70 3d 3d 30 20 29 3b 20 20 20 2f 2a 20 54 68 69 p==0 ); /* Thi
3370: 73 20 77 69 6c 6c 20 61 6c 77 61 79 73 20 66 61 s will always fa
3380: 69 6c 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 il */. return T
3390: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
33a0: 52 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 Register command
33b0: 73 20 77 69 74 68 20 74 68 65 20 54 43 4c 20 69 s with the TCL i
33c0: 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 nterpreter..*/.i
33d0: 6e 74 20 53 71 6c 69 74 65 74 65 73 74 31 5f 49 nt Sqlitetest1_I
33e0: 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a nit(Tcl_Interp *
33f0: 69 6e 74 65 72 70 29 7b 0a 20 20 65 78 74 65 72 interp){. exter
3400: 6e 20 69 6e 74 20 73 71 6c 69 74 65 5f 73 65 61 n int sqlite_sea
3410: 72 63 68 5f 63 6f 75 6e 74 3b 0a 20 20 54 63 6c rch_count;. Tcl
3420: 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 _CreateCommand(i
3430: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6d nterp, "sqlite_m
3440: 70 72 69 6e 74 66 5f 69 6e 74 22 2c 20 73 71 6c printf_int", sql
3450: 69 74 65 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 2c ite_mprintf_int,
3460: 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 43 72 0, 0);. Tcl_Cr
3470: 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eateCommand(inte
3480: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6d 70 72 69 rp, "sqlite_mpri
3490: 6e 74 66 5f 73 74 72 22 2c 20 73 71 6c 69 74 65 ntf_str", sqlite
34a0: 5f 6d 70 72 69 6e 74 66 5f 73 74 72 2c 20 30 2c _mprintf_str, 0,
34b0: 20 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 0);. Tcl_Creat
34c0: 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c eCommand(interp,
34d0: 20 22 73 71 6c 69 74 65 5f 6d 70 72 69 6e 74 66 "sqlite_mprintf
34e0: 5f 64 6f 75 62 6c 65 22 2c 20 73 71 6c 69 74 65 _double", sqlite
34f0: 5f 6d 70 72 69 6e 74 66 5f 64 6f 75 62 6c 65 2c _mprintf_double,
3500: 30 2c 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 0,0);. Tcl_Crea
3510: 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 teCommand(interp
3520: 2c 20 22 73 71 6c 69 74 65 5f 6f 70 65 6e 22 2c , "sqlite_open",
3530: 20 73 71 6c 69 74 65 5f 74 65 73 74 5f 6f 70 65 sqlite_test_ope
3540: 6e 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f n, 0, 0);. Tcl_
3550: 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e CreateCommand(in
3560: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6c 61 terp, "sqlite_la
3570: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 22 st_insert_rowid"
3580: 2c 20 74 65 73 74 5f 6c 61 73 74 5f 72 6f 77 69 , test_last_rowi
3590: 64 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f d, 0, 0);. Tcl_
35a0: 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e CreateCommand(in
35b0: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 65 78 terp, "sqlite_ex
35c0: 65 63 5f 70 72 69 6e 74 66 22 2c 20 74 65 73 74 ec_printf", test
35d0: 5f 65 78 65 63 5f 70 72 69 6e 74 66 2c 20 30 2c _exec_printf, 0,
35e0: 20 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 0);. Tcl_Creat
35f0: 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c eCommand(interp,
3600: 20 22 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 "sqlite_get_tab
3610: 6c 65 5f 70 72 69 6e 74 66 22 2c 20 74 65 73 74 le_printf", test
3620: 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74 _get_table_print
3630: 66 2c 0a 20 20 20 20 20 20 30 2c 20 30 29 3b 0a f,. 0, 0);.
3640: 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d 6d Tcl_CreateComm
3650: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 73 71 6c and(interp, "sql
3660: 69 74 65 5f 63 6c 6f 73 65 22 2c 20 73 71 6c 69 ite_close", sqli
3670: 74 65 5f 74 65 73 74 5f 63 6c 6f 73 65 2c 20 30 te_test_close, 0
3680: 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 , 0);. Tcl_Crea
3690: 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 teCommand(interp
36a0: 2c 20 22 73 71 6c 69 74 65 5f 63 72 65 61 74 65 , "sqlite_create
36b0: 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 0a 20 20 20 _function", .
36c0: 20 20 20 73 71 6c 69 74 65 5f 74 65 73 74 5f 63 sqlite_test_c
36d0: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 2c 20 reate_function,
36e0: 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 0, 0);. Tcl_Cre
36f0: 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ateCommand(inter
3700: 70 2c 20 22 73 71 6c 69 74 65 5f 63 72 65 61 74 p, "sqlite_creat
3710: 65 5f 61 67 67 72 65 67 61 74 65 22 2c 0a 20 20 e_aggregate",.
3720: 20 20 20 20 73 71 6c 69 74 65 5f 74 65 73 74 5f sqlite_test_
3730: 63 72 65 61 74 65 5f 61 67 67 72 65 67 61 74 65 create_aggregate
3740: 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 4c , 0, 0);. Tcl_L
3750: 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 inkVar(interp, "
3760: 73 71 6c 69 74 65 5f 73 65 61 72 63 68 5f 63 6f sqlite_search_co
3770: 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 63 68 unt", . (ch
3780: 61 72 2a 29 26 73 71 6c 69 74 65 5f 73 65 61 72 ar*)&sqlite_sear
3790: 63 68 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 ch_count, TCL_LI
37a0: 4e 4b 5f 49 4e 54 29 3b 0a 23 69 66 64 65 66 20 NK_INT);.#ifdef
37b0: 4d 45 4d 4f 52 59 5f 44 45 42 55 47 0a 20 20 54 MEMORY_DEBUG. T
37c0: 63 6c 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 cl_CreateCommand
37d0: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
37e0: 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c 22 2c 20 73 _malloc_fail", s
37f0: 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 qlite_malloc_fai
3800: 6c 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f l, 0, 0);. Tcl_
3810: 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e CreateCommand(in
3820: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6d 61 terp, "sqlite_ma
3830: 6c 6c 6f 63 5f 73 74 61 74 22 2c 20 73 71 6c 69 lloc_stat", sqli
3840: 74 65 5f 6d 61 6c 6c 6f 63 5f 73 74 61 74 2c 20 te_malloc_stat,
3850: 30 2c 20 30 29 3b 0a 23 65 6e 64 69 66 0a 20 20 0, 0);.#endif.
3860: 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e Tcl_CreateComman
3870: 64 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 d(interp, "sqlit
3880: 65 5f 61 62 6f 72 74 22 2c 20 73 71 6c 69 74 65 e_abort", sqlite
3890: 5f 61 62 6f 72 74 2c 20 30 2c 20 30 29 3b 0a 20 _abort, 0, 0);.
38a0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
38b0: 7d 0a }.