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 32 30 38 20 32 30 30 36 2f 30 33 ,v 1.208 2006/03
0240: 2f 31 36 20 31 36 3a 31 39 3a 35 36 20 64 72 68 /16 16:19:56 drh
0250: 20 45 78 70 20 24 0a 2a 2f 0a 23 69 6e 63 6c 75 Exp $.*/.#inclu
0260: 64 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 de "sqliteInt.h"
0270: 0a 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e 68 .#include "tcl.h
0280: 22 0a 23 69 6e 63 6c 75 64 65 20 22 6f 73 2e 68 ".#include "os.h
0290: 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c ".#include <stdl
02a0: 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c ib.h>.#include <
02b0: 73 74 72 69 6e 67 2e 68 3e 0a 0a 2f 2a 0a 2a 2a string.h>../*.**
02c0: 20 54 68 69 73 20 69 73 20 61 20 63 6f 70 79 20 This is a copy
02d0: 6f 66 20 74 68 65 20 66 69 72 73 74 20 70 61 72 of the first par
02e0: 74 20 6f 66 20 74 68 65 20 53 71 6c 69 74 65 44 t of the SqliteD
02f0: 62 20 73 74 72 75 63 74 75 72 65 20 69 6e 20 0a b structure in .
0300: 2a 2a 20 74 63 6c 73 71 6c 69 74 65 2e 63 2e 20 ** tclsqlite.c.
0310: 20 57 65 20 6e 65 65 64 20 69 74 20 68 65 72 65 We need it here
0320: 20 73 6f 20 74 68 61 74 20 74 68 65 20 67 65 74 so that the get
0330: 5f 73 71 6c 69 74 65 5f 70 6f 69 6e 74 65 72 20 _sqlite_pointer
0340: 72 6f 75 74 69 6e 65 0a 2a 2a 20 63 61 6e 20 65 routine.** can e
0350: 78 74 72 61 63 74 20 74 68 65 20 73 71 6c 69 74 xtract the sqlit
0360: 65 33 2a 20 70 6f 69 6e 74 65 72 20 66 72 6f 6d e3* pointer from
0370: 20 61 6e 20 65 78 69 73 74 69 6e 67 20 54 63 6c an existing Tcl
0380: 20 53 51 4c 69 74 65 0a 2a 2a 20 63 6f 6e 6e 65 SQLite.** conne
0390: 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 72 75 63 74 ction..*/.struct
03a0: 20 53 71 6c 69 74 65 44 62 20 7b 0a 20 20 73 71 SqliteDb {. sq
03b0: 6c 69 74 65 33 20 2a 64 62 3b 0a 7d 3b 0a 0a 2f lite3 *db;.};../
03c0: 2a 0a 2a 2a 20 41 20 54 43 4c 20 63 6f 6d 6d 61 *.** A TCL comma
03d0: 6e 64 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 nd that returns
03e0: 74 68 65 20 61 64 64 72 65 73 73 20 6f 66 20 74 the address of t
03f0: 68 65 20 73 71 6c 69 74 65 2a 20 70 6f 69 6e 74 he sqlite* point
0400: 65 72 0a 2a 2a 20 66 6f 72 20 61 6e 20 73 71 6c er.** for an sql
0410: 69 74 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 ite connection i
0420: 6e 73 74 61 6e 63 65 2e 20 20 42 61 64 20 74 68 nstance. Bad th
0430: 69 6e 67 73 20 68 61 70 70 65 6e 20 69 66 20 74 ings happen if t
0440: 68 65 0a 2a 2a 20 69 6e 70 75 74 20 69 73 20 6e he.** input is n
0450: 6f 74 20 61 6e 20 73 71 6c 69 74 65 20 63 6f 6e ot an sqlite con
0460: 6e 65 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 nection..*/.stat
0470: 69 63 20 69 6e 74 20 67 65 74 5f 73 71 6c 69 74 ic int get_sqlit
0480: 65 5f 70 6f 69 6e 74 65 72 28 0a 20 20 76 6f 69 e_pointer(. voi
0490: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
04a0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
04b0: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
04c0: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
04d0: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
04e0: 74 72 75 63 74 20 53 71 6c 69 74 65 44 62 20 2a truct SqliteDb *
04f0: 70 3b 0a 20 20 54 63 6c 5f 43 6d 64 49 6e 66 6f p;. Tcl_CmdInfo
0500: 20 63 6d 64 49 6e 66 6f 3b 0a 20 20 63 68 61 72 cmdInfo;. char
0510: 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20 69 66 zBuf[100];. if
0520: 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
0530: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
0540: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
0550: 76 2c 20 22 53 51 4c 49 54 45 2d 43 4f 4e 4e 45 v, "SQLITE-CONNE
0560: 43 54 49 4f 4e 22 29 3b 0a 20 20 20 20 72 65 74 CTION");. ret
0570: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
0580: 20 7d 0a 20 20 69 66 28 20 21 54 63 6c 5f 47 65 }. if( !Tcl_Ge
0590: 74 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69 6e 74 tCommandInfo(int
05a0: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
05b0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 63 6d ng(objv[1]), &cm
05c0: 64 49 6e 66 6f 29 20 29 7b 0a 20 20 20 20 54 63 dInfo) ){. Tc
05d0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
05e0: 6e 74 65 72 70 2c 20 22 63 6f 6d 6d 61 6e 64 20 nterp, "command
05f0: 6e 6f 74 20 66 6f 75 6e 64 3a 20 22 2c 0a 20 20 not found: ",.
0600: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 Tcl_Get
0610: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
0620: 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 (char*)0);.
0630: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
0640: 3b 0a 20 20 7d 0a 20 20 70 20 3d 20 28 73 74 72 ;. }. p = (str
0650: 75 63 74 20 53 71 6c 69 74 65 44 62 2a 29 63 6d uct SqliteDb*)cm
0660: 64 49 6e 66 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 dInfo.objClientD
0670: 61 74 61 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a ata;. sprintf(z
0680: 42 75 66 2c 20 22 25 70 22 2c 20 70 2d 3e 64 62 Buf, "%p", p->db
0690: 29 3b 0a 20 20 69 66 28 20 73 74 72 6e 63 6d 70 );. if( strncmp
06a0: 28 7a 42 75 66 2c 22 30 78 22 2c 32 29 20 29 7b (zBuf,"0x",2) ){
06b0: 0a 20 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 . sprintf(zBu
06c0: 66 2c 20 22 30 78 25 70 22 2c 20 70 2d 3e 64 62 f, "0x%p", p->db
06d0: 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 41 70 70 );. }. Tcl_App
06e0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
06f0: 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 , zBuf, 0);. re
0700: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
0710: 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 71 6c 69 const char *sqli
0720: 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 te3TestErrorName
0730: 28 69 6e 74 20 72 63 29 7b 0a 20 20 63 6f 6e 73 (int rc){. cons
0740: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 20 3d 20 t char *zName =
0750: 30 3b 0a 20 20 73 77 69 74 63 68 28 20 72 63 20 0;. switch( rc
0760: 29 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 ){. case SQLI
0770: 54 45 5f 4f 4b 3a 20 20 20 20 20 20 20 20 20 7a TE_OK: z
0780: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4f Name = "SQLITE_O
0790: 4b 22 3b 20 20 20 20 20 20 20 20 20 20 62 72 65 K"; bre
07a0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ak;. case SQL
07b0: 49 54 45 5f 45 52 52 4f 52 3a 20 20 20 20 20 20 ITE_ERROR:
07c0: 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f zName = "SQLITE_
07d0: 45 52 52 4f 52 22 3b 20 20 20 20 20 20 20 62 72 ERROR"; br
07e0: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 eak;. case SQ
07f0: 4c 49 54 45 5f 50 45 52 4d 3a 20 20 20 20 20 20 LITE_PERM:
0800: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 zName = "SQLITE
0810: 5f 50 45 52 4d 22 3b 20 20 20 20 20 20 20 20 62 _PERM"; b
0820: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
0830: 51 4c 49 54 45 5f 41 42 4f 52 54 3a 20 20 20 20 QLITE_ABORT:
0840: 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 zName = "SQLIT
0850: 45 5f 41 42 4f 52 54 22 3b 20 20 20 20 20 20 20 E_ABORT";
0860: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
0870: 53 51 4c 49 54 45 5f 42 55 53 59 3a 20 20 20 20 SQLITE_BUSY:
0880: 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 zName = "SQLI
0890: 54 45 5f 42 55 53 59 22 3b 20 20 20 20 20 20 20 TE_BUSY";
08a0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
08b0: 20 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 3a 20 SQLITE_LOCKED:
08c0: 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c zName = "SQL
08d0: 49 54 45 5f 4c 4f 43 4b 45 44 22 3b 20 20 20 20 ITE_LOCKED";
08e0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
08f0: 65 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3a 20 e SQLITE_NOMEM:
0900: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 zName = "SQ
0910: 4c 49 54 45 5f 4e 4f 4d 45 4d 22 3b 20 20 20 20 LITE_NOMEM";
0920: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0930: 73 65 20 53 51 4c 49 54 45 5f 52 45 41 44 4f 4e se SQLITE_READON
0940: 4c 59 3a 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 LY: zName = "S
0950: 51 4c 49 54 45 5f 52 45 41 44 4f 4e 4c 59 22 3b QLITE_READONLY";
0960: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 break;. c
0970: 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 52 ase SQLITE_INTER
0980: 52 55 50 54 3a 20 20 7a 4e 61 6d 65 20 3d 20 22 RUPT: zName = "
0990: 53 51 4c 49 54 45 5f 49 4e 54 45 52 52 55 50 54 SQLITE_INTERRUPT
09a0: 22 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 "; break;.
09b0: 63 61 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 case SQLITE_IOER
09c0: 52 3a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 R: zName =
09d0: 22 53 51 4c 49 54 45 5f 49 4f 45 52 52 22 3b 20 "SQLITE_IOERR";
09e0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
09f0: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 43 4f 52 case SQLITE_COR
0a00: 52 55 50 54 3a 20 20 20 20 7a 4e 61 6d 65 20 3d RUPT: zName =
0a10: 20 22 53 51 4c 49 54 45 5f 43 4f 52 52 55 50 54 "SQLITE_CORRUPT
0a20: 22 3b 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 "; break;.
0a30: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 46 55 case SQLITE_FU
0a40: 4c 4c 3a 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 LL: zName
0a50: 3d 20 22 53 51 4c 49 54 45 5f 46 55 4c 4c 22 3b = "SQLITE_FULL";
0a60: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
0a70: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 43 case SQLITE_C
0a80: 41 4e 54 4f 50 45 4e 3a 20 20 20 7a 4e 61 6d 65 ANTOPEN: zName
0a90: 20 3d 20 22 53 51 4c 49 54 45 5f 43 41 4e 54 4f = "SQLITE_CANTO
0aa0: 50 45 4e 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a PEN"; break;.
0ab0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
0ac0: 50 52 4f 54 4f 43 4f 4c 3a 20 20 20 7a 4e 61 6d PROTOCOL: zNam
0ad0: 65 20 3d 20 22 53 51 4c 49 54 45 5f 50 52 4f 54 e = "SQLITE_PROT
0ae0: 4f 43 4f 4c 22 3b 20 20 20 20 62 72 65 61 6b 3b OCOL"; break;
0af0: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
0b00: 5f 45 4d 50 54 59 3a 20 20 20 20 20 20 7a 4e 61 _EMPTY: zNa
0b10: 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 45 4d 50 me = "SQLITE_EMP
0b20: 54 59 22 3b 20 20 20 20 20 20 20 62 72 65 61 6b TY"; break
0b30: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
0b40: 45 5f 53 43 48 45 4d 41 3a 20 20 20 20 20 7a 4e E_SCHEMA: zN
0b50: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 53 43 ame = "SQLITE_SC
0b60: 48 45 4d 41 22 3b 20 20 20 20 20 20 62 72 65 61 HEMA"; brea
0b70: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
0b80: 54 45 5f 43 4f 4e 53 54 52 41 49 4e 54 3a 20 7a TE_CONSTRAINT: z
0b90: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 43 Name = "SQLITE_C
0ba0: 4f 4e 53 54 52 41 49 4e 54 22 3b 20 20 62 72 65 ONSTRAINT"; bre
0bb0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ak;. case SQL
0bc0: 49 54 45 5f 4d 49 53 4d 41 54 43 48 3a 20 20 20 ITE_MISMATCH:
0bd0: 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f zName = "SQLITE_
0be0: 4d 49 53 4d 41 54 43 48 22 3b 20 20 20 20 62 72 MISMATCH"; br
0bf0: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 eak;. case SQ
0c00: 4c 49 54 45 5f 4d 49 53 55 53 45 3a 20 20 20 20 LITE_MISUSE:
0c10: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 zName = "SQLITE
0c20: 5f 4d 49 53 55 53 45 22 3b 20 20 20 20 20 20 62 _MISUSE"; b
0c30: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
0c40: 51 4c 49 54 45 5f 4e 4f 4c 46 53 3a 20 20 20 20 QLITE_NOLFS:
0c50: 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 zName = "SQLIT
0c60: 45 5f 4e 4f 4c 46 53 22 3b 20 20 20 20 20 20 20 E_NOLFS";
0c70: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
0c80: 53 51 4c 49 54 45 5f 41 55 54 48 3a 20 20 20 20 SQLITE_AUTH:
0c90: 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 zName = "SQLI
0ca0: 54 45 5f 41 55 54 48 22 3b 20 20 20 20 20 20 20 TE_AUTH";
0cb0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
0cc0: 20 53 51 4c 49 54 45 5f 46 4f 52 4d 41 54 3a 20 SQLITE_FORMAT:
0cd0: 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c zName = "SQL
0ce0: 49 54 45 5f 46 4f 52 4d 41 54 22 3b 20 20 20 20 ITE_FORMAT";
0cf0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0d00: 65 20 53 51 4c 49 54 45 5f 52 41 4e 47 45 3a 20 e SQLITE_RANGE:
0d10: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 zName = "SQ
0d20: 4c 49 54 45 5f 52 41 4e 47 45 22 3b 20 20 20 20 LITE_RANGE";
0d30: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0d40: 73 65 20 53 51 4c 49 54 45 5f 52 4f 57 3a 20 20 se SQLITE_ROW:
0d50: 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 zName = "S
0d60: 51 4c 49 54 45 5f 52 4f 57 22 3b 20 20 20 20 20 QLITE_ROW";
0d70: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 break;. c
0d80: 61 73 65 20 53 51 4c 49 54 45 5f 44 4f 4e 45 3a ase SQLITE_DONE:
0d90: 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 zName = "
0da0: 53 51 4c 49 54 45 5f 44 4f 4e 45 22 3b 20 20 20 SQLITE_DONE";
0db0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
0dc0: 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 4f 54 41 case SQLITE_NOTA
0dd0: 44 42 3a 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 DB: zName =
0de0: 22 53 51 4c 49 54 45 5f 4e 4f 54 41 44 42 22 3b "SQLITE_NOTADB";
0df0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
0e00: 20 64 65 66 61 75 6c 74 3a 20 20 20 20 20 20 20 default:
0e10: 20 20 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d zName =
0e20: 20 22 53 51 4c 49 54 45 5f 55 6e 6b 6e 6f 77 6e "SQLITE_Unknown
0e30: 22 3b 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 "; break;.
0e40: 7d 0a 20 20 72 65 74 75 72 6e 20 7a 4e 61 6d 65 }. return zName
0e50: 3b 0a 7d 0a 23 64 65 66 69 6e 65 20 65 72 72 6f ;.}.#define erro
0e60: 72 4e 61 6d 65 20 73 71 6c 69 74 65 33 54 65 73 rName sqlite3Tes
0e70: 74 45 72 72 6f 72 4e 61 6d 65 0a 0a 2f 2a 0a 2a tErrorName../*.*
0e80: 2a 20 43 6f 6e 76 65 72 74 20 61 6e 20 73 71 6c * Convert an sql
0e90: 69 74 65 33 5f 73 74 6d 74 2a 20 69 6e 74 6f 20 ite3_stmt* into
0ea0: 61 6e 20 73 71 6c 69 74 65 33 2a 2e 20 20 54 68 an sqlite3*. Th
0eb0: 69 73 20 64 65 70 65 6e 64 73 20 6f 6e 20 74 68 is depends on th
0ec0: 65 0a 2a 2a 20 66 61 63 74 20 74 68 61 74 20 74 e.** fact that t
0ed0: 68 65 20 73 71 6c 69 74 65 33 2a 20 69 73 20 74 he sqlite3* is t
0ee0: 68 65 20 66 69 72 73 74 20 66 69 65 6c 64 20 69 he first field i
0ef0: 6e 20 74 68 65 20 56 64 62 65 20 73 74 72 75 63 n the Vdbe struc
0f00: 74 75 72 65 2e 0a 2a 2f 0a 23 64 65 66 69 6e 65 ture..*/.#define
0f10: 20 53 74 6d 74 54 6f 44 62 28 58 29 20 20 20 73 StmtToDb(X) s
0f20: 71 6c 69 74 65 33 5f 64 62 5f 68 61 6e 64 6c 65 qlite3_db_handle
0f30: 28 58 29 0a 0a 2f 2a 0a 2a 2a 20 43 68 65 63 6b (X)../*.** Check
0f40: 20 61 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 a return value
0f50: 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 69 74 20 to make sure it
0f60: 61 67 72 65 65 73 20 77 69 74 68 20 74 68 65 20 agrees with the
0f70: 72 65 73 75 6c 74 73 0a 2a 2a 20 66 72 6f 6d 20 results.** from
0f80: 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 2e sqlite3_errcode.
0f90: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 54 .*/.int sqlite3T
0fa0: 65 73 74 45 72 72 43 6f 64 65 28 54 63 6c 5f 49 estErrCode(Tcl_I
0fb0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 73 nterp *interp, s
0fc0: 71 6c 69 74 65 33 20 2a 64 62 2c 20 69 6e 74 20 qlite3 *db, int
0fd0: 72 63 29 7b 0a 20 20 69 66 28 20 72 63 21 3d 53 rc){. if( rc!=S
0fe0: 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 26 26 20 QLITE_MISUSE &&
0ff0: 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26 rc!=SQLITE_OK &&
1000: 20 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 sqlite3_errcode
1010: 28 64 62 29 21 3d 72 63 20 29 7b 0a 20 20 20 20 (db)!=rc ){.
1020: 63 68 61 72 20 7a 42 75 66 5b 32 30 30 5d 3b 0a char zBuf[200];.
1030: 20 20 20 20 69 6e 74 20 72 32 20 3d 20 73 71 6c int r2 = sql
1040: 69 74 65 33 5f 65 72 72 63 6f 64 65 28 64 62 29 ite3_errcode(db)
1050: 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 7a 42 ;. sprintf(zB
1060: 75 66 2c 20 22 65 72 72 6f 72 20 63 6f 64 65 20 uf, "error code
1070: 25 73 20 28 25 64 29 20 64 6f 65 73 20 6e 6f 74 %s (%d) does not
1080: 20 6d 61 74 63 68 20 73 71 6c 69 74 65 33 5f 65 match sqlite3_e
1090: 72 72 63 6f 64 65 20 25 73 20 28 25 64 29 22 2c rrcode %s (%d)",
10a0: 0a 20 20 20 20 20 20 20 65 72 72 6f 72 4e 61 6d . errorNam
10b0: 65 28 72 63 29 2c 20 72 63 2c 20 65 72 72 6f 72 e(rc), rc, error
10c0: 4e 61 6d 65 28 72 32 29 2c 20 72 32 29 3b 0a 20 Name(r2), r2);.
10d0: 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 Tcl_ResetResu
10e0: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 lt(interp);.
10f0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1100: 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 (interp, zBuf, 0
1110: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b );. return 1;
1120: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b . }. return 0;
1130: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 63 6f 64 65 .}../*.** Decode
1140: 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e a pointer to an
1150: 20 73 71 6c 69 74 65 33 20 6f 62 6a 65 63 74 2e sqlite3 object.
1160: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 67 .*/.static int g
1170: 65 74 44 62 50 6f 69 6e 74 65 72 28 54 63 6c 5f etDbPointer(Tcl_
1180: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
1190: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 2c 20 const char *zA,
11a0: 73 71 6c 69 74 65 33 20 2a 2a 70 70 44 62 29 7b sqlite3 **ppDb){
11b0: 0a 20 20 2a 70 70 44 62 20 3d 20 28 73 71 6c 69 . *ppDb = (sqli
11c0: 74 65 33 2a 29 73 71 6c 69 74 65 33 54 65 78 74 te3*)sqlite3Text
11d0: 54 6f 50 74 72 28 7a 41 29 3b 0a 20 20 72 65 74 ToPtr(zA);. ret
11e0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
11f0: 2a 0a 2a 2a 20 44 65 63 6f 64 65 20 61 20 70 6f *.** Decode a po
1200: 69 6e 74 65 72 20 74 6f 20 61 6e 20 73 71 6c 69 inter to an sqli
1210: 74 65 33 5f 73 74 6d 74 20 6f 62 6a 65 63 74 2e te3_stmt object.
1220: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 67 .*/.static int g
1230: 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 0a 20 etStmtPointer(.
1240: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1250: 65 72 70 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 erp, . const ch
1260: 61 72 20 2a 7a 41 72 67 2c 20 20 0a 20 20 73 71 ar *zArg, . sq
1270: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 2a 70 70 53 lite3_stmt **ppS
1280: 74 6d 74 0a 29 7b 0a 20 20 2a 70 70 53 74 6d 74 tmt.){. *ppStmt
1290: 20 3d 20 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 = (sqlite3_stmt
12a0: 2a 29 73 71 6c 69 74 65 33 54 65 78 74 54 6f 50 *)sqlite3TextToP
12b0: 74 72 28 7a 41 72 67 29 3b 0a 20 20 72 65 74 75 tr(zArg);. retu
12c0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
12d0: 0a 2a 2a 20 44 65 63 6f 64 65 20 61 20 70 6f 69 .** Decode a poi
12e0: 6e 74 65 72 20 74 6f 20 61 6e 20 73 71 6c 69 74 nter to an sqlit
12f0: 65 33 5f 73 74 6d 74 20 6f 62 6a 65 63 74 2e 0a e3_stmt object..
1300: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 67 65 */.static int ge
1310: 74 46 69 6c 65 50 6f 69 6e 74 65 72 28 0a 20 20 tFilePointer(.
1320: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
1330: 72 70 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 rp, . const cha
1340: 72 20 2a 7a 41 72 67 2c 20 20 0a 20 20 4f 73 46 r *zArg, . OsF
1350: 69 6c 65 20 2a 2a 70 70 46 69 6c 65 0a 29 7b 0a ile **ppFile.){.
1360: 20 20 2a 70 70 46 69 6c 65 20 3d 20 28 4f 73 46 *ppFile = (OsF
1370: 69 6c 65 2a 29 73 71 6c 69 74 65 33 54 65 78 74 ile*)sqlite3Text
1380: 54 6f 50 74 72 28 7a 41 72 67 29 3b 0a 20 20 72 ToPtr(zArg);. r
1390: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
13a0: 0a 2f 2a 0a 2a 2a 20 47 65 6e 65 72 61 74 65 20 ./*.** Generate
13b0: 61 20 74 65 78 74 20 72 65 70 72 65 73 65 6e 74 a text represent
13c0: 61 74 69 6f 6e 20 6f 66 20 61 20 70 6f 69 6e 74 ation of a point
13d0: 65 72 20 74 68 61 74 20 63 61 6e 20 62 65 20 75 er that can be u
13e0: 6e 64 65 72 73 74 6f 6f 64 0a 2a 2a 20 62 79 20 nderstood.** by
13f0: 74 68 65 20 67 65 74 44 62 50 6f 69 6e 74 65 72 the getDbPointer
1400: 20 61 6e 64 20 67 65 74 56 6d 50 6f 69 6e 74 65 and getVmPointe
1410: 72 20 72 6f 75 74 69 6e 65 73 20 61 62 6f 76 65 r routines above
1420: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 70 72 6f 62 ..**.** The prob
1430: 6c 65 6d 20 69 73 2c 20 6f 6e 20 73 6f 6d 65 20 lem is, on some
1440: 6d 61 63 68 69 6e 65 73 20 28 53 6f 6c 61 72 69 machines (Solari
1450: 73 29 20 69 66 20 79 6f 75 20 64 6f 20 61 20 70 s) if you do a p
1460: 72 69 6e 74 66 20 77 69 74 68 0a 2a 2a 20 22 25 rintf with.** "%
1470: 70 22 20 79 6f 75 20 63 61 6e 6e 6f 74 20 74 75 p" you cannot tu
1480: 72 6e 20 61 72 6f 75 6e 64 20 61 6e 64 20 64 6f rn around and do
1490: 20 61 20 73 63 61 6e 66 20 77 69 74 68 20 74 68 a scanf with th
14a0: 65 20 73 61 6d 65 20 22 25 70 22 20 61 6e 64 0a e same "%p" and.
14b0: 2a 2a 20 67 65 74 20 79 6f 75 72 20 70 6f 69 6e ** get your poin
14c0: 74 65 72 20 62 61 63 6b 2e 20 20 59 6f 75 20 68 ter back. You h
14d0: 61 76 65 20 74 6f 20 70 72 65 70 65 6e 64 20 61 ave to prepend a
14e0: 20 22 30 78 22 20 62 65 66 6f 72 65 20 69 74 20 "0x" before it
14f0: 77 69 6c 6c 0a 2a 2a 20 77 6f 72 6b 2e 20 20 4f will.** work. O
1500: 72 20 61 74 20 6c 65 61 73 74 20 74 68 61 74 20 r at least that
1510: 69 73 20 77 68 61 74 20 69 73 20 72 65 70 6f 72 is what is repor
1520: 74 65 64 20 74 6f 20 6d 65 20 28 64 72 68 29 2e ted to me (drh).
1530: 20 20 42 75 74 20 74 68 69 73 0a 2a 2a 20 62 65 But this.** be
1540: 68 61 76 69 6f 72 20 76 61 72 69 65 73 20 66 72 havior varies fr
1550: 6f 6d 20 6d 61 63 68 69 6e 65 20 74 6f 20 6d 61 om machine to ma
1560: 63 68 69 6e 65 2e 20 20 54 68 65 20 73 6f 6c 75 chine. The solu
1570: 74 69 6f 6e 20 75 73 65 64 20 68 65 72 20 69 73 tion used her is
1580: 0a 2a 2a 20 74 6f 20 74 65 73 74 20 74 68 65 20 .** to test the
1590: 73 74 72 69 6e 67 20 72 69 67 68 74 20 61 66 74 string right aft
15a0: 65 72 20 69 74 20 69 73 20 67 65 6e 65 72 61 74 er it is generat
15b0: 65 64 20 74 6f 20 73 65 65 20 69 66 20 69 74 20 ed to see if it
15c0: 63 61 6e 20 62 65 0a 2a 2a 20 75 6e 64 65 72 73 can be.** unders
15d0: 74 6f 6f 64 20 62 79 20 73 63 61 6e 66 2c 20 61 tood by scanf, a
15e0: 6e 64 20 69 66 20 6e 6f 74 2c 20 74 72 79 20 70 nd if not, try p
15f0: 72 65 70 65 6e 64 69 6e 67 20 61 6e 20 22 30 78 repending an "0x
1600: 22 20 74 6f 20 73 65 65 20 69 66 0a 2a 2a 20 74 " to see if.** t
1610: 68 61 74 20 68 65 6c 70 73 2e 20 20 49 66 20 6e hat helps. If n
1620: 6f 74 68 69 6e 67 20 77 6f 72 6b 73 2c 20 61 20 othing works, a
1630: 66 61 74 61 6c 20 65 72 72 6f 72 20 69 73 20 67 fatal error is g
1640: 65 6e 65 72 61 74 65 64 2e 0a 2a 2f 0a 69 6e 74 enerated..*/.int
1650: 20 73 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 sqlite3TestMake
1660: 50 6f 69 6e 74 65 72 53 74 72 28 54 63 6c 5f 49 PointerStr(Tcl_I
1670: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 nterp *interp, c
1680: 68 61 72 20 2a 7a 50 74 72 2c 20 76 6f 69 64 20 har *zPtr, void
1690: 2a 70 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 *p){. sqlite3_s
16a0: 6e 70 72 69 6e 74 66 28 31 30 30 2c 20 7a 50 74 nprintf(100, zPt
16b0: 72 2c 20 22 25 70 22 2c 20 70 29 3b 0a 20 20 72 r, "%p", p);. r
16c0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
16d0: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 63 61 6c 6c 62 ./*.** The callb
16e0: 61 63 6b 20 72 6f 75 74 69 6e 65 20 66 6f 72 20 ack routine for
16f0: 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 70 72 69 sqlite3_exec_pri
1700: 6e 74 66 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 ntf()..*/.static
1710: 20 69 6e 74 20 65 78 65 63 5f 70 72 69 6e 74 66 int exec_printf
1720: 5f 63 62 28 76 6f 69 64 20 2a 70 41 72 67 2c 20 _cb(void *pArg,
1730: 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a int argc, char *
1740: 2a 61 72 67 76 2c 20 63 68 61 72 20 2a 2a 6e 61 *argv, char **na
1750: 6d 65 29 7b 0a 20 20 54 63 6c 5f 44 53 74 72 69 me){. Tcl_DStri
1760: 6e 67 20 2a 73 74 72 20 3d 20 28 54 63 6c 5f 44 ng *str = (Tcl_D
1770: 53 74 72 69 6e 67 2a 29 70 41 72 67 3b 0a 20 20 String*)pArg;.
1780: 69 6e 74 20 69 3b 0a 0a 20 20 69 66 28 20 54 63 int i;.. if( Tc
1790: 6c 5f 44 53 74 72 69 6e 67 4c 65 6e 67 74 68 28 l_DStringLength(
17a0: 73 74 72 29 3d 3d 30 20 29 7b 0a 20 20 20 20 66 str)==0 ){. f
17b0: 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 or(i=0; i<argc;
17c0: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f i++){. Tcl_
17d0: 44 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 DStringAppendEle
17e0: 6d 65 6e 74 28 73 74 72 2c 20 6e 61 6d 65 5b 69 ment(str, name[i
17f0: 5d 20 3f 20 6e 61 6d 65 5b 69 5d 20 3a 20 22 4e ] ? name[i] : "N
1800: 55 4c 4c 22 29 3b 0a 20 20 20 20 7d 0a 20 20 7d ULL");. }. }
1810: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 . for(i=0; i<ar
1820: 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 gc; i++){. Tc
1830: 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 6e 64 45 l_DStringAppendE
1840: 6c 65 6d 65 6e 74 28 73 74 72 2c 20 61 72 67 76 lement(str, argv
1850: 5b 69 5d 20 3f 20 61 72 67 76 5b 69 5d 20 3a 20 [i] ? argv[i] :
1860: 22 4e 55 4c 4c 22 29 3b 0a 20 20 7d 0a 20 20 72 "NULL");. }. r
1870: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a eturn 0;.}../*.*
1880: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
1890: 33 5f 65 78 65 63 5f 70 72 69 6e 74 66 20 20 44 3_exec_printf D
18a0: 42 20 20 46 4f 52 4d 41 54 20 20 53 54 52 49 4e B FORMAT STRIN
18b0: 47 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 G.**.** Invoke t
18c0: 68 65 20 73 71 6c 69 74 65 33 5f 65 78 65 63 5f he sqlite3_exec_
18d0: 70 72 69 6e 74 66 28 29 20 69 6e 74 65 72 66 61 printf() interfa
18e0: 63 65 20 75 73 69 6e 67 20 74 68 65 20 6f 70 65 ce using the ope
18f0: 6e 20 64 61 74 61 62 61 73 65 0a 2a 2a 20 44 42 n database.** DB
1900: 2e 20 20 54 68 65 20 53 51 4c 20 69 73 20 74 68 . The SQL is th
1910: 65 20 73 74 72 69 6e 67 20 46 4f 52 4d 41 54 2e e string FORMAT.
1920: 20 20 54 68 65 20 66 6f 72 6d 61 74 20 73 74 72 The format str
1930: 69 6e 67 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 ing should conta
1940: 69 6e 0a 2a 2a 20 6f 6e 65 20 25 73 20 6f 72 20 in.** one %s or
1950: 25 71 2e 20 20 53 54 52 49 4e 47 20 69 73 20 74 %q. STRING is t
1960: 68 65 20 76 61 6c 75 65 20 69 6e 73 65 72 74 65 he value inserte
1970: 64 20 69 6e 74 6f 20 25 73 20 6f 72 20 25 71 2e d into %s or %q.
1980: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
1990: 65 73 74 5f 65 78 65 63 5f 70 72 69 6e 74 66 28 est_exec_printf(
19a0: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 . void *NotUsed
19b0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
19c0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
19d0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
19e0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
19f0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
1a00: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 int argc,
1a10: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
1a20: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
1a30: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 /. char **argv
1a40: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 /* Te
1a50: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d xt of each argum
1a60: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 ent */.){. sqli
1a70: 74 65 33 20 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 te3 *db;. Tcl_D
1a80: 53 74 72 69 6e 67 20 73 74 72 3b 0a 20 20 69 6e String str;. in
1a90: 74 20 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a 45 t rc;. char *zE
1aa0: 72 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 2a rr = 0;. char *
1ab0: 7a 53 71 6c 3b 0a 20 20 63 68 61 72 20 7a 42 75 zSql;. char zBu
1ac0: 66 5b 33 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 f[30];. if( arg
1ad0: 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=4 ){. Tcl_
1ae0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1af0: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
1b00: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
1b10: 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 ", argv[0], .
1b20: 20 20 20 20 22 20 44 42 20 46 4f 52 4d 41 54 20 " DB FORMAT
1b30: 53 54 52 49 4e 47 22 2c 20 30 29 3b 0a 20 20 20 STRING", 0);.
1b40: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1b50: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
1b60: 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
1b70: 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 , argv[1], &db)
1b80: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1b90: 4f 52 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e OR;. Tcl_DStrin
1ba0: 67 49 6e 69 74 28 26 73 74 72 29 3b 0a 20 20 7a gInit(&str);. z
1bb0: 53 71 6c 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 Sql = sqlite3_mp
1bc0: 72 69 6e 74 66 28 61 72 67 76 5b 32 5d 2c 20 61 rintf(argv[2], a
1bd0: 72 67 76 5b 33 5d 29 3b 0a 20 20 72 63 20 3d 20 rgv[3]);. rc =
1be0: 73 71 6c 69 74 65 33 5f 65 78 65 63 28 64 62 2c sqlite3_exec(db,
1bf0: 20 7a 53 71 6c 2c 20 65 78 65 63 5f 70 72 69 6e zSql, exec_prin
1c00: 74 66 5f 63 62 2c 20 26 73 74 72 2c 20 26 7a 45 tf_cb, &str, &zE
1c10: 72 72 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 rr);. sqlite3_f
1c20: 72 65 65 28 7a 53 71 6c 29 3b 0a 20 20 73 70 72 ree(zSql);. spr
1c30: 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c intf(zBuf, "%d",
1c40: 20 72 63 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 rc);. Tcl_Appe
1c50: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
1c60: 2c 20 7a 42 75 66 29 3b 0a 20 20 54 63 6c 5f 41 , zBuf);. Tcl_A
1c70: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
1c80: 65 72 70 2c 20 72 63 3d 3d 53 51 4c 49 54 45 5f erp, rc==SQLITE_
1c90: 4f 4b 20 3f 20 54 63 6c 5f 44 53 74 72 69 6e 67 OK ? Tcl_DString
1ca0: 56 61 6c 75 65 28 26 73 74 72 29 20 3a 20 7a 45 Value(&str) : zE
1cb0: 72 72 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 rr);. Tcl_DStri
1cc0: 6e 67 46 72 65 65 28 26 73 74 72 29 3b 0a 20 20 ngFree(&str);.
1cd0: 69 66 28 20 7a 45 72 72 20 29 20 66 72 65 65 28 if( zErr ) free(
1ce0: 7a 45 72 72 29 3b 0a 20 20 69 66 28 20 73 71 6c zErr);. if( sql
1cf0: 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 ite3TestErrCode(
1d00: 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 interp, db, rc)
1d10: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1d20: 4f 52 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c OR;. return TCL
1d30: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
1d40: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 age: sqlite3_mp
1d50: 72 69 6e 74 66 5f 7a 5f 74 65 73 74 20 20 53 45 rintf_z_test SE
1d60: 50 41 52 41 54 4f 52 20 20 41 52 47 30 20 20 41 PARATOR ARG0 A
1d70: 52 47 31 20 2e 2e 2e 0a 2a 2a 0a 2a 2a 20 54 65 RG1 ....**.** Te
1d80: 73 74 20 74 68 65 20 25 7a 20 66 6f 72 6d 61 74 st the %z format
1d90: 20 6f 66 20 6d 70 72 69 6e 74 66 28 29 2e 20 20 of mprintf().
1da0: 55 73 65 20 6d 75 6c 74 69 70 6c 65 20 6d 70 72 Use multiple mpr
1db0: 69 6e 74 66 28 29 20 63 61 6c 6c 73 20 74 6f 20 intf() calls to
1dc0: 0a 2a 2a 20 63 6f 6e 63 61 74 65 6e 61 74 65 20 .** concatenate
1dd0: 61 72 67 30 20 74 68 72 6f 75 67 68 20 61 72 67 arg0 through arg
1de0: 6e 20 75 73 69 6e 67 20 73 65 70 61 72 61 74 6f n using separato
1df0: 72 20 61 73 20 74 68 65 20 73 65 70 61 72 61 74 r as the separat
1e00: 6f 72 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 or..** Return th
1e10: 65 20 72 65 73 75 6c 74 2e 0a 2a 2f 0a 73 74 61 e result..*/.sta
1e20: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6d 70 72 tic int test_mpr
1e30: 69 6e 74 66 5f 7a 28 0a 20 20 76 6f 69 64 20 2a intf_z(. void *
1e40: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
1e50: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
1e60: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
1e70: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
1e80: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
1e90: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
1ea0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
1eb0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
1ec0: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
1ed0: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
1ee0: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
1ef0: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
1f00: 0a 20 20 63 68 61 72 20 2a 7a 52 65 73 75 6c 74 . char *zResult
1f10: 20 3d 20 30 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a = 0;. int i;..
1f20: 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 61 72 67 for(i=2; i<arg
1f30: 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 7a 52 65 c; i++){. zRe
1f40: 73 75 6c 74 20 3d 20 73 71 6c 69 74 65 33 4d 50 sult = sqlite3MP
1f50: 72 69 6e 74 66 28 22 25 7a 25 73 25 73 22 2c 20 rintf("%z%s%s",
1f60: 7a 52 65 73 75 6c 74 2c 20 61 72 67 76 5b 31 5d zResult, argv[1]
1f70: 2c 20 61 72 67 76 5b 69 5d 29 3b 0a 20 20 7d 0a , argv[i]);. }.
1f80: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
1f90: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 52 65 73 75 lt(interp, zResu
1fa0: 6c 74 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 lt, 0);. sqlite
1fb0: 46 72 65 65 28 7a 52 65 73 75 6c 74 29 3b 0a 20 Free(zResult);.
1fc0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
1fd0: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
1fe0: 20 73 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 62 sqlite3_get_tab
1ff0: 6c 65 5f 70 72 69 6e 74 66 20 20 44 42 20 20 46 le_printf DB F
2000: 4f 52 4d 41 54 20 20 53 54 52 49 4e 47 0a 2a 2a ORMAT STRING.**
2010: 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20 73 .** Invoke the s
2020: 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 62 6c 65 qlite3_get_table
2030: 5f 70 72 69 6e 74 66 28 29 20 69 6e 74 65 72 66 _printf() interf
2040: 61 63 65 20 75 73 69 6e 67 20 74 68 65 20 6f 70 ace using the op
2050: 65 6e 20 64 61 74 61 62 61 73 65 0a 2a 2a 20 44 en database.** D
2060: 42 2e 20 20 54 68 65 20 53 51 4c 20 69 73 20 74 B. The SQL is t
2070: 68 65 20 73 74 72 69 6e 67 20 46 4f 52 4d 41 54 he string FORMAT
2080: 2e 20 20 54 68 65 20 66 6f 72 6d 61 74 20 73 74 . The format st
2090: 72 69 6e 67 20 73 68 6f 75 6c 64 20 63 6f 6e 74 ring should cont
20a0: 61 69 6e 0a 2a 2a 20 6f 6e 65 20 25 73 20 6f 72 ain.** one %s or
20b0: 20 25 71 2e 20 20 53 54 52 49 4e 47 20 69 73 20 %q. STRING is
20c0: 74 68 65 20 76 61 6c 75 65 20 69 6e 73 65 72 74 the value insert
20d0: 65 64 20 69 6e 74 6f 20 25 73 20 6f 72 20 25 71 ed into %s or %q
20e0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
20f0: 74 65 73 74 5f 67 65 74 5f 74 61 62 6c 65 5f 70 test_get_table_p
2100: 72 69 6e 74 66 28 0a 20 20 76 6f 69 64 20 2a 4e rintf(. void *N
2110: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
2120: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
2130: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
2140: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
2150: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
2160: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
2170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
2180: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
2190: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
21a0: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
21b0: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
21c0: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
21d0: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
21e0: 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 73 74 72 Tcl_DString str
21f0: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 ;. int rc;. ch
2200: 61 72 20 2a 7a 45 72 72 20 3d 20 30 3b 0a 20 20 ar *zErr = 0;.
2210: 69 6e 74 20 6e 52 6f 77 2c 20 6e 43 6f 6c 3b 0a int nRow, nCol;.
2220: 20 20 63 68 61 72 20 2a 2a 61 52 65 73 75 6c 74 char **aResult
2230: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 68 61 ;. int i;. cha
2240: 72 20 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 63 68 r zBuf[30];. ch
2250: 61 72 20 2a 7a 53 71 6c 3b 0a 20 20 69 66 28 20 ar *zSql;. if(
2260: 61 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 argc!=4 ){. T
2270: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
2280: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
2290: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
22a0: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a \"", argv[0], .
22b0: 20 20 20 20 20 20 20 22 20 44 42 20 46 4f 52 4d " DB FORM
22c0: 41 54 20 53 54 52 49 4e 47 22 2c 20 30 29 3b 0a AT STRING", 0);.
22d0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
22e0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
22f0: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
2300: 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 erp, argv[1], &d
2310: 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
2320: 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 44 53 74 ERROR;. Tcl_DSt
2330: 72 69 6e 67 49 6e 69 74 28 26 73 74 72 29 3b 0a ringInit(&str);.
2340: 20 20 7a 53 71 6c 20 3d 20 73 71 6c 69 74 65 33 zSql = sqlite3
2350: 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 32 5d _mprintf(argv[2]
2360: 2c 61 72 67 76 5b 33 5d 29 3b 0a 20 20 72 63 20 ,argv[3]);. rc
2370: 3d 20 73 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 = sqlite3_get_ta
2380: 62 6c 65 28 64 62 2c 20 7a 53 71 6c 2c 20 26 61 ble(db, zSql, &a
2390: 52 65 73 75 6c 74 2c 20 26 6e 52 6f 77 2c 20 26 Result, &nRow, &
23a0: 6e 43 6f 6c 2c 20 26 7a 45 72 72 29 3b 0a 20 20 nCol, &zErr);.
23b0: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 53 71 sqlite3_free(zSq
23c0: 6c 29 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 l);. sprintf(zB
23d0: 75 66 2c 20 22 25 64 22 2c 20 72 63 29 3b 0a 20 uf, "%d", rc);.
23e0: 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 Tcl_AppendEleme
23f0: 6e 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 29 nt(interp, zBuf)
2400: 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 ;. if( rc==SQLI
2410: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 73 70 72 TE_OK ){. spr
2420: 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c intf(zBuf, "%d",
2430: 20 6e 52 6f 77 29 3b 0a 20 20 20 20 54 63 6c 5f nRow);. Tcl_
2440: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
2450: 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 20 terp, zBuf);.
2460: 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 sprintf(zBuf, "
2470: 25 64 22 2c 20 6e 43 6f 6c 29 3b 0a 20 20 20 20 %d", nCol);.
2480: 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e Tcl_AppendElemen
2490: 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b t(interp, zBuf);
24a0: 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c . for(i=0; i<
24b0: 28 6e 52 6f 77 2b 31 29 2a 6e 43 6f 6c 3b 20 69 (nRow+1)*nCol; i
24c0: 2b 2b 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41 ++){. Tcl_A
24d0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
24e0: 65 72 70 2c 20 61 52 65 73 75 6c 74 5b 69 5d 20 erp, aResult[i]
24f0: 3f 20 61 52 65 73 75 6c 74 5b 69 5d 20 3a 20 22 ? aResult[i] : "
2500: 4e 55 4c 4c 22 29 3b 0a 20 20 20 20 7d 0a 20 20 NULL");. }.
2510: 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f 41 }else{. Tcl_A
2520: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
2530: 65 72 70 2c 20 7a 45 72 72 29 3b 0a 20 20 7d 0a erp, zErr);. }.
2540: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 5f 74 sqlite3_free_t
2550: 61 62 6c 65 28 61 52 65 73 75 6c 74 29 3b 0a 20 able(aResult);.
2560: 20 69 66 28 20 7a 45 72 72 20 29 20 66 72 65 65 if( zErr ) free
2570: 28 7a 45 72 72 29 3b 0a 20 20 69 66 28 20 73 71 (zErr);. if( sq
2580: 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 lite3TestErrCode
2590: 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 (interp, db, rc)
25a0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
25b0: 52 4f 52 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 ROR;. return TC
25c0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 L_OK;.}.../*.**
25d0: 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
25e0: 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 last_insert_rowi
25f0: 64 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 d DB.**.** Retur
2600: 6e 73 20 74 68 65 20 69 6e 74 65 67 65 72 20 52 ns the integer R
2610: 4f 57 49 44 20 6f 66 20 74 68 65 20 6d 6f 73 74 OWID of the most
2620: 20 72 65 63 65 6e 74 20 69 6e 73 65 72 74 2e 0a recent insert..
2630: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
2640: 73 74 5f 6c 61 73 74 5f 72 6f 77 69 64 28 0a 20 st_last_rowid(.
2650: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
2660: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
2670: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
2680: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
2690: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
26a0: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
26b0: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
26c0: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
26d0: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
26e0: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
26f0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
2700: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
2710: 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 t */.){. sqlite
2720: 33 20 2a 64 62 3b 0a 20 20 63 68 61 72 20 7a 42 3 *db;. char zB
2730: 75 66 5b 33 30 5d 3b 0a 0a 20 20 69 66 28 20 61 uf[30];.. if( a
2740: 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 rgc!=2 ){. Tc
2750: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
2760: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
2770: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
2780: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 22 20 \"", argv[0], "
2790: 44 42 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 DB\"", 0);. r
27a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
27b0: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
27c0: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
27d0: 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 argv[1], &db) )
27e0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
27f0: 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 ;. sprintf(zBuf
2800: 2c 20 22 25 6c 6c 64 22 2c 20 73 71 6c 69 74 65 , "%lld", sqlite
2810: 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 3_last_insert_ro
2820: 77 69 64 28 64 62 29 29 3b 0a 20 20 54 63 6c 5f wid(db));. Tcl_
2830: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
2840: 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 erp, zBuf, 0);.
2850: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f return SQLITE_O
2860: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
2870: 65 3a 20 20 73 71 6c 69 74 65 33 5f 6b 65 79 20 e: sqlite3_key
2880: 44 42 20 4b 45 59 0a 2a 2a 0a 2a 2a 20 53 65 74 DB KEY.**.** Set
2890: 20 74 68 65 20 63 6f 64 65 63 20 6b 65 79 2e 0a the codec key..
28a0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
28b0: 73 74 5f 6b 65 79 28 0a 20 20 76 6f 69 64 20 2a st_key(. void *
28c0: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
28d0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
28e0: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
28f0: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
2900: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
2910: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
2920: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
2930: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
2940: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
2950: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
2960: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
2970: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
2980: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
2990: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4b const char *zK
29a0: 65 79 3b 0a 20 20 69 6e 74 20 6e 4b 65 79 3b 0a ey;. int nKey;.
29b0: 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b if( argc!=3 ){
29c0: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
29d0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
29e0: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
29f0: 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 uld be \"", argv
2a00: 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 49 [0],. " FI
2a10: 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 LENAME\"", 0);.
2a20: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
2a30: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
2a40: 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
2a50: 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 rp, argv[1], &db
2a60: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
2a70: 52 52 4f 52 3b 0a 20 20 7a 4b 65 79 20 3d 20 61 RROR;. zKey = a
2a80: 72 67 76 5b 32 5d 3b 0a 20 20 6e 4b 65 79 20 3d rgv[2];. nKey =
2a90: 20 73 74 72 6c 65 6e 28 7a 4b 65 79 29 3b 0a 23 strlen(zKey);.#
2aa0: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 48 41 53 ifdef SQLITE_HAS
2ab0: 5f 43 4f 44 45 43 0a 20 20 73 71 6c 69 74 65 33 _CODEC. sqlite3
2ac0: 5f 6b 65 79 28 64 62 2c 20 7a 4b 65 79 2c 20 6e _key(db, zKey, n
2ad0: 4b 65 79 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 Key);.#endif. r
2ae0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
2af0: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
2b00: 71 6c 69 74 65 33 5f 72 65 6b 65 79 20 44 42 20 qlite3_rekey DB
2b10: 4b 45 59 0a 2a 2a 0a 2a 2a 20 43 68 61 6e 67 65 KEY.**.** Change
2b20: 20 74 68 65 20 63 6f 64 65 63 20 6b 65 79 2e 0a the codec key..
2b30: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
2b40: 73 74 5f 72 65 6b 65 79 28 0a 20 20 76 6f 69 64 st_rekey(. void
2b50: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
2b60: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
2b70: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
2b80: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
2b90: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
2ba0: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
2bb0: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
2bc0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
2bd0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
2be0: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
2bf0: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
2c00: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
2c10: 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ){. sqlite3 *db
2c20: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ;. const char *
2c30: 7a 4b 65 79 3b 0a 20 20 69 6e 74 20 6e 4b 65 79 zKey;. int nKey
2c40: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 ;. if( argc!=3
2c50: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
2c60: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
2c70: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
2c80: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
2c90: 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 gv[0],. "
2ca0: 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 29 3b FILENAME\"", 0);
2cb0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2cc0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
2cd0: 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
2ce0: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 terp, argv[1], &
2cf0: 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
2d00: 5f 45 52 52 4f 52 3b 0a 20 20 7a 4b 65 79 20 3d _ERROR;. zKey =
2d10: 20 61 72 67 76 5b 32 5d 3b 0a 20 20 6e 4b 65 79 argv[2];. nKey
2d20: 20 3d 20 73 74 72 6c 65 6e 28 7a 4b 65 79 29 3b = strlen(zKey);
2d30: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 48 .#ifdef SQLITE_H
2d40: 41 53 5f 43 4f 44 45 43 0a 20 20 73 71 6c 69 74 AS_CODEC. sqlit
2d50: 65 33 5f 72 65 6b 65 79 28 64 62 2c 20 7a 4b 65 e3_rekey(db, zKe
2d60: 79 2c 20 6e 4b 65 79 29 3b 0a 23 65 6e 64 69 66 y, nKey);.#endif
2d70: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
2d80: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
2d90: 3a 20 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 : sqlite3_close
2da0: 20 44 42 0a 2a 2a 0a 2a 2a 20 43 6c 6f 73 65 73 DB.**.** Closes
2db0: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 6f 70 the database op
2dc0: 65 6e 65 64 20 62 79 20 73 71 6c 69 74 65 33 5f ened by sqlite3_
2dd0: 6f 70 65 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 open..*/.static
2de0: 69 6e 74 20 73 71 6c 69 74 65 5f 74 65 73 74 5f int sqlite_test_
2df0: 63 6c 6f 73 65 28 0a 20 20 76 6f 69 64 20 2a 4e close(. void *N
2e00: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
2e10: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
2e20: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
2e30: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
2e40: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
2e50: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
2e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
2e70: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
2e80: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
2e90: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
2ea0: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
2eb0: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
2ec0: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
2ed0: 20 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 61 int rc;. if( a
2ee0: 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 rgc!=2 ){. Tc
2ef0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
2f00: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
2f10: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
2f20: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 \"", argv[0],.
2f30: 20 20 20 20 20 22 20 46 49 4c 45 4e 41 4d 45 5c " FILENAME\
2f40: 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 "", 0);. retu
2f50: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
2f60: 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
2f70: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 nter(interp, arg
2f80: 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 v[1], &db) ) ret
2f90: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2fa0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 6c rc = sqlite3_cl
2fb0: 6f 73 65 28 64 62 29 3b 0a 20 20 54 63 6c 5f 53 ose(db);. Tcl_S
2fc0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
2fd0: 20 28 63 68 61 72 20 2a 29 65 72 72 6f 72 4e 61 (char *)errorNa
2fe0: 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 me(rc), TCL_STAT
2ff0: 49 43 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 IC);. return TC
3000: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 L_OK;.}../*.** I
3010: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
3020: 20 74 68 65 20 78 5f 63 6f 61 6c 65 73 63 65 28 the x_coalesce(
3030: 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 20 52 ) function..** R
3040: 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 eturn the first
3050: 61 72 67 75 6d 65 6e 74 20 6e 6f 6e 2d 4e 55 4c argument non-NUL
3060: 4c 20 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 L argument..*/.s
3070: 74 61 74 69 63 20 76 6f 69 64 20 69 66 6e 75 6c tatic void ifnul
3080: 6c 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f lFunc(sqlite3_co
3090: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 ntext *context,
30a0: 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 int argc, sqlite
30b0: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 3_value **argv){
30c0: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 . int i;. for(
30d0: 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b i=0; i<argc; i++
30e0: 29 7b 0a 20 20 20 20 69 66 28 20 53 51 4c 49 54 ){. if( SQLIT
30f0: 45 5f 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 33 5f E_NULL!=sqlite3_
3100: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b value_type(argv[
3110: 69 5d 29 20 29 7b 0a 20 20 20 20 20 20 73 71 6c i]) ){. sql
3120: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
3130: 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a (context, (char*
3140: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 )sqlite3_value_t
3150: 65 78 74 28 61 72 67 76 5b 69 5d 29 2c 0a 20 20 ext(argv[i]),.
3160: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f sqlite3_
3170: 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 value_bytes(argv
3180: 5b 69 5d 29 2c 20 53 51 4c 49 54 45 5f 54 52 41 [i]), SQLITE_TRA
3190: 4e 53 49 45 4e 54 29 3b 0a 20 20 20 20 20 20 62 NSIENT);. b
31a0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a reak;. }. }.
31b0: 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 74 72 75 63 }../*.** A struc
31c0: 74 75 72 65 20 69 6e 74 6f 20 77 68 69 63 68 20 ture into which
31d0: 74 6f 20 61 63 63 75 6d 75 6c 61 74 65 20 74 65 to accumulate te
31e0: 78 74 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 64 73 xt..*/.struct ds
31f0: 74 72 20 7b 0a 20 20 69 6e 74 20 6e 41 6c 6c 6f tr {. int nAllo
3200: 63 3b 20 20 2f 2a 20 53 70 61 63 65 20 61 6c 6c c; /* Space all
3210: 6f 63 61 74 65 64 20 2a 2f 0a 20 20 69 6e 74 20 ocated */. int
3220: 6e 55 73 65 64 3b 20 20 20 2f 2a 20 53 70 61 63 nUsed; /* Spac
3230: 65 20 75 73 65 64 20 2a 2f 0a 20 20 63 68 61 72 e used */. char
3240: 20 2a 7a 3b 20 20 20 20 20 2f 2a 20 54 68 65 20 *z; /* The
3250: 73 70 61 63 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a space */.};../*.
3260: 2a 2a 20 41 70 70 65 6e 64 20 74 65 78 74 20 74 ** Append text t
3270: 6f 20 61 20 64 73 74 72 0a 2a 2f 0a 73 74 61 74 o a dstr.*/.stat
3280: 69 63 20 76 6f 69 64 20 64 73 74 72 41 70 70 65 ic void dstrAppe
3290: 6e 64 28 73 74 72 75 63 74 20 64 73 74 72 20 2a nd(struct dstr *
32a0: 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a p, const char *z
32b0: 2c 20 69 6e 74 20 64 69 76 69 64 65 72 29 7b 0a , int divider){.
32c0: 20 20 69 6e 74 20 6e 20 3d 20 73 74 72 6c 65 6e int n = strlen
32d0: 28 7a 29 3b 0a 20 20 69 66 28 20 70 2d 3e 6e 55 (z);. if( p->nU
32e0: 73 65 64 20 2b 20 6e 20 2b 20 32 20 3e 20 70 2d sed + n + 2 > p-
32f0: 3e 6e 41 6c 6c 6f 63 20 29 7b 0a 20 20 20 20 63 >nAlloc ){. c
3300: 68 61 72 20 2a 7a 4e 65 77 3b 0a 20 20 20 20 70 har *zNew;. p
3310: 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 70 2d 3e 6e 41 ->nAlloc = p->nA
3320: 6c 6c 6f 63 2a 32 20 2b 20 6e 20 2b 20 32 30 30 lloc*2 + n + 200
3330: 3b 0a 20 20 20 20 7a 4e 65 77 20 3d 20 73 71 6c ;. zNew = sql
3340: 69 74 65 52 65 61 6c 6c 6f 63 28 70 2d 3e 7a 2c iteRealloc(p->z,
3350: 20 70 2d 3e 6e 41 6c 6c 6f 63 29 3b 0a 20 20 20 p->nAlloc);.
3360: 20 69 66 28 20 7a 4e 65 77 3d 3d 30 20 29 7b 0a if( zNew==0 ){.
3370: 20 20 20 20 20 20 73 71 6c 69 74 65 46 72 65 65 sqliteFree
3380: 28 70 2d 3e 7a 29 3b 0a 20 20 20 20 20 20 6d 65 (p->z);. me
3390: 6d 73 65 74 28 70 2c 20 30 2c 20 73 69 7a 65 6f mset(p, 0, sizeo
33a0: 66 28 2a 70 29 29 3b 0a 20 20 20 20 20 20 72 65 f(*p));. re
33b0: 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 turn;. }.
33c0: 70 2d 3e 7a 20 3d 20 7a 4e 65 77 3b 0a 20 20 7d p->z = zNew;. }
33d0: 0a 20 20 69 66 28 20 64 69 76 69 64 65 72 20 26 . if( divider &
33e0: 26 20 70 2d 3e 6e 55 73 65 64 3e 30 20 29 7b 0a & p->nUsed>0 ){.
33f0: 20 20 20 20 70 2d 3e 7a 5b 70 2d 3e 6e 55 73 65 p->z[p->nUse
3400: 64 2b 2b 5d 20 3d 20 64 69 76 69 64 65 72 3b 0a d++] = divider;.
3410: 20 20 7d 0a 20 20 6d 65 6d 63 70 79 28 26 70 2d }. memcpy(&p-
3420: 3e 7a 5b 70 2d 3e 6e 55 73 65 64 5d 2c 20 7a 2c >z[p->nUsed], z,
3430: 20 6e 2b 31 29 3b 0a 20 20 70 2d 3e 6e 55 73 65 n+1);. p->nUse
3440: 64 20 2b 3d 20 6e 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a d += n;.}../*.**
3450: 20 49 6e 76 6f 6b 65 64 20 66 6f 72 20 65 61 63 Invoked for eac
3460: 68 20 63 61 6c 6c 62 61 63 6b 20 66 72 6f 6d 20 h callback from
3470: 73 71 6c 69 74 65 33 45 78 65 63 46 75 6e 63 0a sqlite3ExecFunc.
3480: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 65 78 */.static int ex
3490: 65 63 46 75 6e 63 43 61 6c 6c 62 61 63 6b 28 76 ecFuncCallback(v
34a0: 6f 69 64 20 2a 70 44 61 74 61 2c 20 69 6e 74 20 oid *pData, int
34b0: 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72 67 argc, char **arg
34c0: 76 2c 20 63 68 61 72 20 2a 2a 4e 6f 74 55 73 65 v, char **NotUse
34d0: 64 29 7b 0a 20 20 73 74 72 75 63 74 20 64 73 74 d){. struct dst
34e0: 72 20 2a 70 20 3d 20 28 73 74 72 75 63 74 20 64 r *p = (struct d
34f0: 73 74 72 2a 29 70 44 61 74 61 3b 0a 20 20 69 6e str*)pData;. in
3500: 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 t i;. for(i=0;
3510: 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 i<argc; i++){.
3520: 20 20 69 66 28 20 61 72 67 76 5b 69 5d 3d 3d 30 if( argv[i]==0
3530: 20 29 7b 0a 20 20 20 20 20 20 64 73 74 72 41 70 ){. dstrAp
3540: 70 65 6e 64 28 70 2c 20 22 4e 55 4c 4c 22 2c 20 pend(p, "NULL",
3550: 27 20 27 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b ' ');. }else{
3560: 0a 20 20 20 20 20 20 64 73 74 72 41 70 70 65 6e . dstrAppen
3570: 64 28 70 2c 20 61 72 67 76 5b 69 5d 2c 20 27 20 d(p, argv[i], '
3580: 27 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 ');. }. }.
3590: 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a return 0;.}../*.
35a0: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** Implementatio
35b0: 6e 20 6f 66 20 74 68 65 20 78 5f 73 71 6c 69 74 n of the x_sqlit
35c0: 65 5f 65 78 65 63 28 29 20 66 75 6e 63 74 69 6f e_exec() functio
35d0: 6e 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f n. This functio
35e0: 6e 20 74 61 6b 65 73 0a 2a 2a 20 61 20 73 69 6e n takes.** a sin
35f0: 67 6c 65 20 61 72 67 75 6d 65 6e 74 20 61 6e 64 gle argument and
3600: 20 61 74 74 65 6d 70 74 73 20 74 6f 20 65 78 65 attempts to exe
3610: 63 75 74 65 20 74 68 61 74 20 61 72 67 75 6d 65 cute that argume
3620: 6e 74 20 61 73 20 53 51 4c 20 63 6f 64 65 2e 0a nt as SQL code..
3630: 2a 2a 20 54 68 69 73 20 69 73 20 69 6c 6c 65 67 ** This is illeg
3640: 61 6c 20 61 6e 64 20 73 68 6f 75 6c 64 20 73 65 al and should se
3650: 74 20 74 68 65 20 53 51 4c 49 54 45 5f 4d 49 53 t the SQLITE_MIS
3660: 55 53 45 20 66 6c 61 67 20 6f 6e 20 74 68 65 20 USE flag on the
3670: 64 61 74 61 62 61 73 65 2e 0a 2a 2a 0a 2a 2a 20 database..**.**
3680: 32 30 30 34 2d 4a 61 6e 2d 30 37 3a 20 20 57 65 2004-Jan-07: We
3690: 20 68 61 76 65 20 63 68 61 6e 67 65 64 20 74 68 have changed th
36a0: 69 73 20 74 6f 20 6d 61 6b 65 20 69 74 20 6c 65 is to make it le
36b0: 67 61 6c 20 74 6f 20 63 61 6c 6c 20 73 71 6c 69 gal to call sqli
36c0: 74 65 33 5f 65 78 65 63 28 29 0a 2a 2a 20 66 72 te3_exec().** fr
36d0: 6f 6d 20 77 69 74 68 69 6e 20 61 20 66 75 6e 63 om within a func
36e0: 74 69 6f 6e 20 63 61 6c 6c 2e 20 20 0a 2a 2a 20 tion call. .**
36f0: 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 .** This routine
3700: 20 73 69 6d 75 6c 61 74 65 73 20 74 68 65 20 65 simulates the e
3710: 66 66 65 63 74 20 6f 66 20 68 61 76 69 6e 67 20 ffect of having
3720: 74 77 6f 20 74 68 72 65 61 64 73 20 61 74 74 65 two threads atte
3730: 6d 70 74 20 74 6f 0a 2a 2a 20 75 73 65 20 74 68 mpt to.** use th
3740: 65 20 73 61 6d 65 20 64 61 74 61 62 61 73 65 20 e same database
3750: 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 at the same time
3760: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
3770: 20 73 71 6c 69 74 65 33 45 78 65 63 46 75 6e 63 sqlite3ExecFunc
3780: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 (. sqlite3_cont
3790: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 ext *context, .
37a0: 20 69 6e 74 20 61 72 67 63 2c 20 20 0a 20 20 73 int argc, . s
37b0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
37c0: 72 67 76 0a 29 7b 0a 20 20 73 74 72 75 63 74 20 rgv.){. struct
37d0: 64 73 74 72 20 78 3b 0a 20 20 6d 65 6d 73 65 74 dstr x;. memset
37e0: 28 26 78 2c 20 30 2c 20 73 69 7a 65 6f 66 28 78 (&x, 0, sizeof(x
37f0: 29 29 3b 0a 20 20 28 76 6f 69 64 29 73 71 6c 69 ));. (void)sqli
3800: 74 65 33 5f 65 78 65 63 28 28 73 71 6c 69 74 65 te3_exec((sqlite
3810: 33 2a 29 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 3*)sqlite3_user_
3820: 64 61 74 61 28 63 6f 6e 74 65 78 74 29 2c 0a 20 data(context),.
3830: 20 20 20 20 20 28 63 68 61 72 2a 29 73 71 6c 69 (char*)sqli
3840: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
3850: 72 67 76 5b 30 5d 29 2c 0a 20 20 20 20 20 20 65 rgv[0]),. e
3860: 78 65 63 46 75 6e 63 43 61 6c 6c 62 61 63 6b 2c xecFuncCallback,
3870: 20 26 78 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 &x, 0);. sqlit
3880: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 e3_result_text(c
3890: 6f 6e 74 65 78 74 2c 20 78 2e 7a 2c 20 78 2e 6e ontext, x.z, x.n
38a0: 55 73 65 64 2c 20 53 51 4c 49 54 45 5f 54 52 41 Used, SQLITE_TRA
38b0: 4e 53 49 45 4e 54 29 3b 0a 20 20 73 71 6c 69 74 NSIENT);. sqlit
38c0: 65 46 72 65 65 28 78 2e 7a 29 3b 0a 7d 0a 0a 2f eFree(x.z);.}../
38d0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
38e0: 69 74 65 5f 74 65 73 74 5f 63 72 65 61 74 65 5f ite_test_create_
38f0: 66 75 6e 63 74 69 6f 6e 20 44 42 0a 2a 2a 0a 2a function DB.**.*
3900: 2a 20 43 61 6c 6c 20 74 68 65 20 73 71 6c 69 74 * Call the sqlit
3910: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
3920: 6f 6e 20 41 50 49 20 6f 6e 20 74 68 65 20 67 69 on API on the gi
3930: 76 65 6e 20 64 61 74 61 62 61 73 65 20 69 6e 20 ven database in
3940: 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 63 72 65 61 order.** to crea
3950: 74 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 6e 61 te a function na
3960: 6d 65 64 20 22 78 5f 63 6f 61 6c 65 73 63 65 22 med "x_coalesce"
3970: 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e . This function
3980: 20 64 6f 65 73 20 74 68 65 20 73 61 6d 65 20 74 does the same t
3990: 68 69 6e 67 0a 2a 2a 20 61 73 20 74 68 65 20 22 hing.** as the "
39a0: 63 6f 61 6c 65 73 63 65 22 20 66 75 6e 63 74 69 coalesce" functi
39b0: 6f 6e 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 on. This functi
39c0: 6f 6e 20 61 6c 73 6f 20 72 65 67 69 73 74 65 72 on also register
39d0: 73 20 61 6e 20 53 51 4c 20 66 75 6e 63 74 69 6f s an SQL functio
39e0: 6e 0a 2a 2a 20 6e 61 6d 65 64 20 22 78 5f 73 71 n.** named "x_sq
39f0: 6c 69 74 65 5f 65 78 65 63 22 20 74 68 61 74 20 lite_exec" that
3a00: 69 6e 76 6f 6b 65 73 20 73 71 6c 69 74 65 33 5f invokes sqlite3_
3a10: 65 78 65 63 28 29 2e 20 20 49 6e 76 6f 6b 69 6e exec(). Invokin
3a20: 67 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28 29 g sqlite3_exec()
3a30: 0a 2a 2a 20 69 6e 20 74 68 69 73 20 77 61 79 20 .** in this way
3a40: 69 73 20 69 6c 6c 65 67 61 6c 20 72 65 63 75 72 is illegal recur
3a50: 73 69 6f 6e 20 61 6e 64 20 73 68 6f 75 6c 64 20 sion and should
3a60: 72 61 69 73 65 20 61 6e 20 53 51 4c 49 54 45 5f raise an SQLITE_
3a70: 4d 49 53 55 53 45 20 65 72 72 6f 72 2e 0a 2a 2a MISUSE error..**
3a80: 20 54 68 65 20 65 66 66 65 63 74 20 69 73 20 73 The effect is s
3a90: 69 6d 69 6c 61 72 20 74 6f 20 74 72 79 69 6e 67 imilar to trying
3aa0: 20 74 6f 20 75 73 65 20 74 68 65 20 73 61 6d 65 to use the same
3ab0: 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 database connec
3ac0: 74 69 6f 6e 20 66 72 6f 6d 0a 2a 2a 20 74 77 6f tion from.** two
3ad0: 20 74 68 72 65 61 64 73 20 61 74 20 74 68 65 20 threads at the
3ae0: 73 61 6d 65 20 74 69 6d 65 2e 0a 2a 2a 0a 2a 2a same time..**.**
3af0: 20 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 6d 6f The original mo
3b00: 74 69 76 61 74 69 6f 6e 20 66 6f 72 20 74 68 69 tivation for thi
3b10: 73 20 72 6f 75 74 69 6e 65 20 77 61 73 20 74 6f s routine was to
3b20: 20 62 65 20 61 62 6c 65 20 74 6f 20 63 61 6c 6c be able to call
3b30: 20 74 68 65 0a 2a 2a 20 73 71 6c 69 74 65 33 5f the.** sqlite3_
3b40: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 create_function
3b50: 66 75 6e 63 74 69 6f 6e 20 77 68 69 6c 65 20 61 function while a
3b60: 20 71 75 65 72 79 20 69 73 20 69 6e 20 70 72 6f query is in pro
3b70: 67 72 65 73 73 20 69 6e 20 6f 72 64 65 72 0a 2a gress in order.*
3b80: 2a 20 74 6f 20 74 65 73 74 20 74 68 65 20 53 51 * to test the SQ
3b90: 4c 49 54 45 5f 4d 49 53 55 53 45 20 64 65 74 65 LITE_MISUSE dete
3ba0: 63 74 69 6f 6e 20 6c 6f 67 69 63 2e 0a 2a 2f 0a ction logic..*/.
3bb0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
3bc0: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 create_function(
3bd0: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 . void *NotUsed
3be0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
3bf0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
3c00: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
3c10: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
3c20: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
3c30: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 int argc,
3c40: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
3c50: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
3c60: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 /. char **argv
3c70: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 /* Te
3c80: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d xt of each argum
3c90: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 ent */.){. int
3ca0: 72 63 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 rc;. sqlite3 *d
3cb0: 62 3b 0a 20 20 65 78 74 65 72 6e 20 76 6f 69 64 b;. extern void
3cc0: 20 4d 64 35 5f 52 65 67 69 73 74 65 72 28 73 71 Md5_Register(sq
3cd0: 6c 69 74 65 33 2a 29 3b 0a 0a 20 20 69 66 28 20 lite3*);.. if(
3ce0: 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 argc!=2 ){. T
3cf0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
3d00: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
3d10: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
3d20: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 \"", argv[0],.
3d30: 20 20 20 20 20 20 22 20 44 42 5c 22 22 2c 20 30 " DB\"", 0
3d40: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
3d50: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
3d60: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
3d70: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
3d80: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
3d90: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d CL_ERROR;. rc =
3da0: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
3db0: 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 78 5f function(db, "x_
3dc0: 63 6f 61 6c 65 73 63 65 22 2c 20 2d 31 2c 20 53 coalesce", -1, S
3dd0: 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 20 0a 20 QLITE_ANY, 0, .
3de0: 20 20 20 20 20 20 20 69 66 6e 75 6c 6c 46 75 6e ifnullFun
3df0: 63 2c 20 30 2c 20 30 29 3b 0a 0a 23 69 66 6e 64 c, 0, 0);..#ifnd
3e00: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 ef SQLITE_OMIT_U
3e10: 54 46 31 36 0a 20 20 2f 2a 20 55 73 65 20 74 68 TF16. /* Use th
3e20: 65 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 e sqlite3_create
3e30: 5f 66 75 6e 63 74 69 6f 6e 31 36 28 29 20 41 50 _function16() AP
3e40: 49 20 68 65 72 65 2e 20 4d 61 69 6e 6c 79 20 66 I here. Mainly f
3e50: 6f 72 20 66 75 6e 2c 20 62 75 74 20 61 6c 73 6f or fun, but also
3e60: 20 0a 20 20 2a 2a 20 62 65 63 61 75 73 65 20 69 . ** because i
3e70: 74 20 69 73 20 6e 6f 74 20 74 65 73 74 65 64 20 t is not tested
3e80: 61 6e 79 77 68 65 72 65 20 65 6c 73 65 2e 20 2a anywhere else. *
3e90: 2f 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 /. if( rc==SQLI
3ea0: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 73 71 6c TE_OK ){. sql
3eb0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c ite3_value *pVal
3ec0: 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ;.#ifdef SQLITE_
3ed0: 4d 45 4d 44 45 42 55 47 0a 20 20 20 20 69 66 28 MEMDEBUG. if(
3ee0: 20 73 71 6c 69 74 65 33 5f 69 4d 61 6c 6c 6f 63 sqlite3_iMalloc
3ef0: 46 61 69 6c 3e 30 20 29 7b 0a 20 20 20 20 20 20 Fail>0 ){.
3f00: 73 71 6c 69 74 65 33 5f 69 4d 61 6c 6c 6f 63 46 sqlite3_iMallocF
3f10: 61 69 6c 2b 2b 3b 0a 20 20 20 20 7d 0a 23 65 6e ail++;. }.#en
3f20: 64 69 66 20 0a 20 20 20 20 70 56 61 6c 20 3d 20 dif . pVal =
3f30: 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28 sqlite3ValueNew(
3f40: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 56 61 );. sqlite3Va
3f50: 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c 2c 20 lueSetStr(pVal,
3f60: 2d 31 2c 20 22 78 5f 73 71 6c 69 74 65 5f 65 78 -1, "x_sqlite_ex
3f70: 65 63 22 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 ec", SQLITE_UTF8
3f80: 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 , SQLITE_STATIC)
3f90: 3b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 ;. rc = sqlit
3fa0: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
3fb0: 6f 6e 31 36 28 64 62 2c 20 0a 20 20 20 20 20 20 on16(db, .
3fc0: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 56 sqlite3V
3fd0: 61 6c 75 65 54 65 78 74 28 70 56 61 6c 2c 20 53 alueText(pVal, S
3fe0: 51 4c 49 54 45 5f 55 54 46 31 36 4e 41 54 49 56 QLITE_UTF16NATIV
3ff0: 45 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 E),.
4000: 20 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 1, SQLITE_UTF1
4010: 36 2c 20 64 62 2c 20 73 71 6c 69 74 65 33 45 78 6, db, sqlite3Ex
4020: 65 63 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 ecFunc, 0, 0);.
4030: 20 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 46 sqlite3ValueF
4040: 72 65 65 28 70 56 61 6c 29 3b 0a 20 20 7d 0a 23 ree(pVal);. }.#
4050: 65 6e 64 69 66 0a 0a 20 20 69 66 28 20 73 71 6c endif.. if( sql
4060: 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 ite3TestErrCode(
4070: 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 interp, db, rc)
4080: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
4090: 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 OR;. Tcl_SetRes
40a0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 ult(interp, (cha
40b0: 72 20 2a 29 65 72 72 6f 72 4e 61 6d 65 28 72 63 r *)errorName(rc
40c0: 29 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 ), 0);. return
40d0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
40e0: 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 69 6d 70 Routines to imp
40f0: 6c 65 6d 65 6e 74 20 74 68 65 20 78 5f 63 6f 75 lement the x_cou
4100: 6e 74 28 29 20 61 67 67 72 65 67 61 74 65 20 66 nt() aggregate f
4110: 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 78 unction..**.** x
4120: 5f 63 6f 75 6e 74 28 29 20 63 6f 75 6e 74 73 20 _count() counts
4130: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6e 6f the number of no
4140: 6e 2d 6e 75 6c 6c 20 61 72 67 75 6d 65 6e 74 73 n-null arguments
4150: 2e 20 20 42 75 74 20 74 68 65 72 65 20 61 72 65 . But there are
4160: 0a 2a 2a 20 73 6f 6d 65 20 74 77 69 73 74 73 20 .** some twists
4170: 66 6f 72 20 74 65 73 74 69 6e 67 20 70 75 72 70 for testing purp
4180: 6f 73 65 73 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 oses..**.** If t
4190: 68 65 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 78 he argument to x
41a0: 5f 63 6f 75 6e 74 28 29 20 69 73 20 34 30 20 74 _count() is 40 t
41b0: 68 65 6e 20 61 20 55 54 46 2d 38 20 65 72 72 6f hen a UTF-8 erro
41c0: 72 20 69 73 20 72 65 70 6f 72 74 65 64 0a 2a 2a r is reported.**
41d0: 20 6f 6e 20 74 68 65 20 73 74 65 70 20 66 75 6e on the step fun
41e0: 63 74 69 6f 6e 2e 20 20 49 66 20 78 5f 63 6f 75 ction. If x_cou
41f0: 6e 74 28 34 31 29 20 69 73 20 73 65 65 6e 2c 20 nt(41) is seen,
4200: 74 68 65 6e 20 61 20 55 54 46 2d 31 36 20 65 72 then a UTF-16 er
4210: 72 6f 72 0a 2a 2a 20 69 73 20 72 65 70 6f 72 74 ror.** is report
4220: 65 64 20 6f 6e 20 74 68 65 20 73 74 65 70 20 66 ed on the step f
4230: 75 6e 63 74 69 6f 6e 2e 20 20 49 66 20 74 68 65 unction. If the
4240: 20 74 6f 74 61 6c 20 63 6f 75 6e 74 20 69 73 20 total count is
4250: 34 32 2c 20 74 68 65 6e 0a 2a 2a 20 61 20 55 54 42, then.** a UT
4260: 46 2d 38 20 65 72 72 6f 72 20 69 73 20 72 65 70 F-8 error is rep
4270: 6f 72 74 65 64 20 6f 6e 20 74 68 65 20 66 69 6e orted on the fin
4280: 61 6c 69 7a 65 20 66 75 6e 63 74 69 6f 6e 2e 0a alize function..
4290: 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 */.typedef struc
42a0: 74 20 43 6f 75 6e 74 43 74 78 20 43 6f 75 6e 74 t CountCtx Count
42b0: 43 74 78 3b 0a 73 74 72 75 63 74 20 43 6f 75 6e Ctx;.struct Coun
42c0: 74 43 74 78 20 7b 0a 20 20 69 6e 74 20 6e 3b 0a tCtx {. int n;.
42d0: 7d 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 };.static void c
42e0: 6f 75 6e 74 53 74 65 70 28 73 71 6c 69 74 65 33 ountStep(sqlite3
42f0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
4300: 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c t, int argc, sql
4310: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
4320: 76 29 7b 0a 20 20 43 6f 75 6e 74 43 74 78 20 2a v){. CountCtx *
4330: 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 p;. p = sqlite3
4340: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 _aggregate_conte
4350: 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 xt(context, size
4360: 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 28 of(*p));. if( (
4370: 61 72 67 63 3d 3d 30 20 7c 7c 20 53 51 4c 49 54 argc==0 || SQLIT
4380: 45 5f 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 33 5f E_NULL!=sqlite3_
4390: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b value_type(argv[
43a0: 30 5d 29 20 29 20 26 26 20 70 20 29 7b 0a 20 20 0]) ) && p ){.
43b0: 20 20 70 2d 3e 6e 2b 2b 3b 0a 20 20 7d 0a 20 20 p->n++;. }.
43c0: 69 66 28 20 61 72 67 63 3e 30 20 29 7b 0a 20 20 if( argc>0 ){.
43d0: 20 20 69 6e 74 20 76 20 3d 20 73 71 6c 69 74 65 int v = sqlite
43e0: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 3_value_int(argv
43f0: 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 76 3d [0]);. if( v=
4400: 3d 34 30 20 29 7b 0a 20 20 20 20 20 20 73 71 6c =40 ){. sql
4410: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
4420: 72 28 63 6f 6e 74 65 78 74 2c 20 22 76 61 6c 75 r(context, "valu
4430: 65 20 6f 66 20 34 30 20 68 61 6e 64 65 64 20 74 e of 40 handed t
4440: 6f 20 78 5f 63 6f 75 6e 74 22 2c 20 2d 31 29 3b o x_count", -1);
4450: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f .#ifndef SQLITE_
4460: 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 20 20 7d OMIT_UTF16. }
4470: 65 6c 73 65 20 69 66 28 20 76 3d 3d 34 31 20 29 else if( v==41 )
4480: 7b 0a 20 20 20 20 20 20 63 6f 6e 73 74 20 63 68 {. const ch
4490: 61 72 20 7a 55 74 66 31 36 45 72 72 4d 73 67 5b ar zUtf16ErrMsg[
44a0: 5d 20 3d 20 7b 20 30 2c 20 30 78 36 31 2c 20 30 ] = { 0, 0x61, 0
44b0: 2c 20 30 78 36 32 2c 20 30 2c 20 30 78 36 33 2c , 0x62, 0, 0x63,
44c0: 20 30 2c 20 30 2c 20 30 7d 3b 0a 20 20 20 20 20 0, 0, 0};.
44d0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
44e0: 65 72 72 6f 72 31 36 28 63 6f 6e 74 65 78 74 2c error16(context,
44f0: 20 26 7a 55 74 66 31 36 45 72 72 4d 73 67 5b 31 &zUtf16ErrMsg[1
4500: 2d 53 51 4c 49 54 45 5f 42 49 47 45 4e 44 49 41 -SQLITE_BIGENDIA
4510: 4e 5d 2c 20 2d 31 29 3b 0a 23 65 6e 64 69 66 0a N], -1);.#endif.
4520: 20 20 20 20 7d 0a 20 20 7d 0a 7d 20 20 20 0a 73 }. }.} .s
4530: 74 61 74 69 63 20 76 6f 69 64 20 63 6f 75 6e 74 tatic void count
4540: 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 Finalize(sqlite3
4550: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
4560: 74 29 7b 0a 20 20 43 6f 75 6e 74 43 74 78 20 2a t){. CountCtx *
4570: 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 p;. p = sqlite3
4580: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 _aggregate_conte
4590: 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 xt(context, size
45a0: 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 70 of(*p));. if( p
45b0: 20 29 7b 0a 20 20 20 20 69 66 28 20 70 2d 3e 6e ){. if( p->n
45c0: 3d 3d 34 32 20 29 7b 0a 20 20 20 20 20 20 73 71 ==42 ){. sq
45d0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 lite3_result_err
45e0: 6f 72 28 63 6f 6e 74 65 78 74 2c 20 22 78 5f 63 or(context, "x_c
45f0: 6f 75 6e 74 20 74 6f 74 61 6c 73 20 74 6f 20 34 ount totals to 4
4600: 32 22 2c 20 2d 31 29 3b 0a 20 20 20 20 7d 65 6c 2", -1);. }el
4610: 73 65 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 se{. sqlite
4620: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 3_result_int(con
4630: 74 65 78 74 2c 20 70 20 3f 20 70 2d 3e 6e 20 3a text, p ? p->n :
4640: 20 30 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0);. }. }.}
4650: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
4660: 73 71 6c 69 74 65 5f 74 65 73 74 5f 63 72 65 61 sqlite_test_crea
4670: 74 65 5f 61 67 67 72 65 67 61 74 65 20 44 42 0a te_aggregate DB.
4680: 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 74 68 65 20 73 **.** Call the s
4690: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
46a0: 6e 63 74 69 6f 6e 20 41 50 49 20 6f 6e 20 74 68 nction API on th
46b0: 65 20 67 69 76 65 6e 20 64 61 74 61 62 61 73 65 e given database
46c0: 20 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 in order.** to
46d0: 63 72 65 61 74 65 20 61 20 66 75 6e 63 74 69 6f create a functio
46e0: 6e 20 6e 61 6d 65 64 20 22 78 5f 63 6f 75 6e 74 n named "x_count
46f0: 22 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f ". This functio
4700: 6e 20 64 6f 65 73 20 74 68 65 20 73 61 6d 65 20 n does the same
4710: 74 68 69 6e 67 0a 2a 2a 20 61 73 20 74 68 65 20 thing.** as the
4720: 22 6d 64 35 73 75 6d 22 20 66 75 6e 63 74 69 6f "md5sum" functio
4730: 6e 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6f 72 69 n..**.** The ori
4740: 67 69 6e 61 6c 20 6d 6f 74 69 76 61 74 69 6f 6e ginal motivation
4750: 20 66 6f 72 20 74 68 69 73 20 72 6f 75 74 69 6e for this routin
4760: 65 20 77 61 73 20 74 6f 20 62 65 20 61 62 6c 65 e was to be able
4770: 20 74 6f 20 63 61 6c 6c 20 74 68 65 0a 2a 2a 20 to call the.**
4780: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 61 sqlite3_create_a
4790: 67 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f ggregate functio
47a0: 6e 20 77 68 69 6c 65 20 61 20 71 75 65 72 79 20 n while a query
47b0: 69 73 20 69 6e 20 70 72 6f 67 72 65 73 73 20 69 is in progress i
47c0: 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 74 65 n order.** to te
47d0: 73 74 20 74 68 65 20 53 51 4c 49 54 45 5f 4d 49 st the SQLITE_MI
47e0: 53 55 53 45 20 64 65 74 65 63 74 69 6f 6e 20 6c SUSE detection l
47f0: 6f 67 69 63 2e 20 20 53 65 65 20 6d 69 73 75 73 ogic. See misus
4800: 65 2e 74 65 73 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 e.test..**.** Th
4810: 69 73 20 72 6f 75 74 69 6e 65 20 77 61 73 20 6c is routine was l
4820: 61 74 65 72 20 65 78 74 65 6e 64 65 64 20 74 6f ater extended to
4830: 20 74 65 73 74 20 74 68 65 20 75 73 65 20 6f 66 test the use of
4840: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
4850: 65 72 72 6f 72 28 29 0a 2a 2a 20 77 69 74 68 69 error().** withi
4860: 6e 20 61 67 67 72 65 67 61 74 65 20 66 75 6e 63 n aggregate func
4870: 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 tions..*/.static
4880: 20 69 6e 74 20 74 65 73 74 5f 63 72 65 61 74 65 int test_create
4890: 5f 61 67 67 72 65 67 61 74 65 28 0a 20 20 76 6f _aggregate(. vo
48a0: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
48b0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
48c0: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
48d0: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
48e0: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
48f0: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
4900: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
4910: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
4920: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
4930: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
4940: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
4950: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
4960: 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a /.){. sqlite3 *
4970: 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 db;. int rc;.
4980: 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 if( argc!=2 ){.
4990: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
49a0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
49b0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
49c0: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
49d0: 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 49 4c 45 ],. " FILE
49e0: 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 NAME\"", 0);.
49f0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
4a00: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
4a10: 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
4a20: 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 , argv[1], &db)
4a30: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
4a40: 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 OR;. rc = sqlit
4a50: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
4a60: 6f 6e 28 64 62 2c 20 22 78 5f 63 6f 75 6e 74 22 on(db, "x_count"
4a70: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 0, SQLITE_UTF8
4a80: 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 20 63 6f , 0, 0,. co
4a90: 75 6e 74 53 74 65 70 2c 63 6f 75 6e 74 46 69 6e untStep,countFin
4aa0: 61 6c 69 7a 65 29 3b 0a 20 20 69 66 28 20 72 63 alize);. if( rc
4ab0: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 ==SQLITE_OK ){.
4ac0: 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 sqlite3_creat
4ad0: 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 e_function(db, "
4ae0: 78 5f 63 6f 75 6e 74 22 2c 20 31 2c 20 53 51 4c x_count", 1, SQL
4af0: 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 30 2c 0a ITE_UTF8, 0, 0,.
4b00: 20 20 20 20 20 20 20 20 63 6f 75 6e 74 53 74 65 countSte
4b10: 70 2c 63 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 29 p,countFinalize)
4b20: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 73 71 6c 69 ;. }. if( sqli
4b30: 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 te3TestErrCode(i
4b40: 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 nterp, db, rc) )
4b50: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
4b60: 52 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f R;. return TCL_
4b70: 4f 4b 3b 0a 7d 0a 0a 0a 0a 2f 2a 0a 2a 2a 20 55 OK;.}..../*.** U
4b80: 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d sage: sqlite3_m
4b90: 70 72 69 6e 74 66 5f 69 6e 74 20 46 4f 52 4d 41 printf_int FORMA
4ba0: 54 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 T INTEGER INTEGE
4bb0: 52 20 49 4e 54 45 47 45 52 0a 2a 2a 0a 2a 2a 20 R INTEGER.**.**
4bc0: 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 74 Call mprintf wit
4bd0: 68 20 74 68 72 65 65 20 69 6e 74 65 67 65 72 20 h three integer
4be0: 61 72 67 75 6d 65 6e 74 73 0a 2a 2f 0a 73 74 61 arguments.*/.sta
4bf0: 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 33 5f tic int sqlite3_
4c00: 6d 70 72 69 6e 74 66 5f 69 6e 74 28 0a 20 20 76 mprintf_int(. v
4c10: 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 oid *NotUsed,.
4c20: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4c30: 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
4c40: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
4c50: 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
4c60: 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
4c70: 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 argc,
4c80: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
4c90: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
4ca0: 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 char **argv
4cb0: 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f /* Text o
4cc0: 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 f each argument
4cd0: 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 5b 33 5d */.){. int a[3]
4ce0: 2c 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a , i;. char *z;.
4cf0: 20 20 69 66 28 20 61 72 67 63 21 3d 35 20 29 7b if( argc!=5 ){
4d00: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
4d10: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
4d20: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
4d30: 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 uld be \"", argv
4d40: 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 4f [0],. " FO
4d50: 52 4d 41 54 20 49 4e 54 20 49 4e 54 20 49 4e 54 RMAT INT INT INT
4d60: 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 \"", 0);. ret
4d70: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
4d80: 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c }. for(i=2; i<
4d90: 35 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 5; i++){. if(
4da0: 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 Tcl_GetInt(inte
4db0: 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26 61 5b rp, argv[i], &a[
4dc0: 69 2d 32 5d 29 20 29 20 72 65 74 75 72 6e 20 54 i-2]) ) return T
4dd0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
4de0: 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 z = sqlite3_mpri
4df0: 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 5b 30 ntf(argv[1], a[0
4e00: 5d 2c 20 61 5b 31 5d 2c 20 61 5b 32 5d 29 3b 0a ], a[1], a[2]);.
4e10: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
4e20: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 lt(interp, z, 0)
4e30: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 ;. sqlite3_free
4e40: 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 (z);. return TC
4e50: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 L_OK;.}../*.** I
4e60: 66 20 7a 4e 75 6d 20 72 65 70 72 65 73 65 6e 74 f zNum represent
4e70: 73 20 61 6e 20 69 6e 74 65 67 65 72 20 74 68 61 s an integer tha
4e80: 74 20 77 69 6c 6c 20 66 69 74 20 69 6e 20 36 34 t will fit in 64
4e90: 2d 62 69 74 73 2c 20 74 68 65 6e 20 73 65 74 0a -bits, then set.
4ea0: 2a 2a 20 2a 70 56 61 6c 75 65 20 74 6f 20 74 68 ** *pValue to th
4eb0: 61 74 20 69 6e 74 65 67 65 72 20 61 6e 64 20 72 at integer and r
4ec0: 65 74 75 72 6e 20 74 72 75 65 2e 20 20 4f 74 68 eturn true. Oth
4ed0: 65 72 77 69 73 65 20 72 65 74 75 72 6e 20 66 61 erwise return fa
4ee0: 6c 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 lse..*/.static i
4ef0: 6e 74 20 73 71 6c 69 74 65 33 47 65 74 49 6e 74 nt sqlite3GetInt
4f00: 36 34 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 64(const char *z
4f10: 4e 75 6d 2c 20 69 36 34 20 2a 70 56 61 6c 75 65 Num, i64 *pValue
4f20: 29 7b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 ){. if( sqlite3
4f30: 46 69 74 73 49 6e 36 34 42 69 74 73 28 7a 4e 75 FitsIn64Bits(zNu
4f40: 6d 29 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 m) ){. sqlite
4f50: 33 61 74 6f 69 36 34 28 7a 4e 75 6d 2c 20 70 56 3atoi64(zNum, pV
4f60: 61 6c 75 65 29 3b 0a 20 20 20 20 72 65 74 75 72 alue);. retur
4f70: 6e 20 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 n 1;. }. retur
4f80: 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 n 0;.}../*.** Us
4f90: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 age: sqlite3_mp
4fa0: 72 69 6e 74 66 5f 69 6e 74 36 34 20 46 4f 52 4d rintf_int64 FORM
4fb0: 41 54 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 AT INTEGER INTEG
4fc0: 45 52 20 49 4e 54 45 47 45 52 0a 2a 2a 0a 2a 2a ER INTEGER.**.**
4fd0: 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 Call mprintf wi
4fe0: 74 68 20 74 68 72 65 65 20 36 34 2d 62 69 74 20 th three 64-bit
4ff0: 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 integer argument
5000: 73 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 s.*/.static int
5010: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
5020: 69 6e 74 36 34 28 0a 20 20 76 6f 69 64 20 2a 4e int64(. void *N
5030: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
5040: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
5050: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
5060: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
5070: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
5080: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
5090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
50a0: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
50b0: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
50c0: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
50d0: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
50e0: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
50f0: 20 20 69 6e 74 20 69 3b 0a 20 20 73 71 6c 69 74 int i;. sqlit
5100: 65 5f 69 6e 74 36 34 20 61 5b 33 5d 3b 0a 20 20 e_int64 a[3];.
5110: 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 char *z;. if( a
5120: 72 67 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 rgc!=5 ){. Tc
5130: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
5140: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
5150: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
5160: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 \"", argv[0],.
5170: 20 20 20 20 20 22 20 46 4f 52 4d 41 54 20 49 4e " FORMAT IN
5180: 54 20 49 4e 54 20 49 4e 54 5c 22 22 2c 20 30 29 T INT INT\"", 0)
5190: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
51a0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f _ERROR;. }. fo
51b0: 72 28 69 3d 32 3b 20 69 3c 35 3b 20 69 2b 2b 29 r(i=2; i<5; i++)
51c0: 7b 0a 20 20 20 20 69 66 28 20 21 73 71 6c 69 74 {. if( !sqlit
51d0: 65 33 47 65 74 49 6e 74 36 34 28 61 72 67 76 5b e3GetInt64(argv[
51e0: 69 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 29 7b 0a i], &a[i-2]) ){.
51f0: 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 Tcl_Append
5200: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
5210: 61 72 67 75 6d 65 6e 74 20 69 73 20 6e 6f 74 20 argument is not
5220: 61 20 76 61 6c 69 64 20 36 34 2d 62 69 74 20 69 a valid 64-bit i
5230: 6e 74 65 67 65 72 22 2c 20 30 29 3b 0a 20 20 20 nteger", 0);.
5240: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
5250: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 ROR;. }. }.
5260: 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 z = sqlite3_mpr
5270: 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 5b intf(argv[1], a[
5280: 30 5d 2c 20 61 5b 31 5d 2c 20 61 5b 32 5d 29 3b 0], a[1], a[2]);
5290: 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 . Tcl_AppendRes
52a0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 ult(interp, z, 0
52b0: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 );. sqlite3_fre
52c0: 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 e(z);. return T
52d0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
52e0: 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
52f0: 6d 70 72 69 6e 74 66 5f 73 74 72 20 46 4f 52 4d mprintf_str FORM
5300: 41 54 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 AT INTEGER INTEG
5310: 45 52 20 53 54 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 ER STRING.**.**
5320: 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 74 Call mprintf wit
5330: 68 20 74 77 6f 20 69 6e 74 65 67 65 72 20 61 72 h two integer ar
5340: 67 75 6d 65 6e 74 73 20 61 6e 64 20 6f 6e 65 20 guments and one
5350: 73 74 72 69 6e 67 20 61 72 67 75 6d 65 6e 74 0a string argument.
5360: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 */.static int sq
5370: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 73 74 lite3_mprintf_st
5380: 72 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 r(. void *NotUs
5390: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
53a0: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
53b0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
53c0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
53d0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
53e0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
53f0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
5400: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
5410: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
5420: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
5430: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
5440: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e ument */.){. in
5450: 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 20 63 68 61 t a[3], i;. cha
5460: 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 r *z;. if( argc
5470: 3c 34 20 7c 7c 20 61 72 67 63 3e 35 20 29 7b 0a <4 || argc>5 ){.
5480: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
5490: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
54a0: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
54b0: 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b ld be \"", argv[
54c0: 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 4f 52 0],. " FOR
54d0: 4d 41 54 20 49 4e 54 20 49 4e 54 20 3f 53 54 52 MAT INT INT ?STR
54e0: 49 4e 47 3f 5c 22 22 2c 20 30 29 3b 0a 20 20 20 ING?\"", 0);.
54f0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
5500: 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 R;. }. for(i=2
5510: 3b 20 69 3c 34 3b 20 69 2b 2b 29 7b 0a 20 20 20 ; i<4; i++){.
5520: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 if( Tcl_GetInt(
5530: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 5d 2c interp, argv[i],
5540: 20 26 61 5b 69 2d 32 5d 29 20 29 20 72 65 74 75 &a[i-2]) ) retu
5550: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
5560: 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f }. z = sqlite3_
5570: 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c mprintf(argv[1],
5580: 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 61 72 67 a[0], a[1], arg
5590: 63 3e 34 20 3f 20 61 72 67 76 5b 34 5d 20 3a 20 c>4 ? argv[4] :
55a0: 4e 55 4c 4c 29 3b 0a 20 20 54 63 6c 5f 41 70 70 NULL);. Tcl_App
55b0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
55c0: 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 , z, 0);. sqlit
55d0: 65 33 5f 66 72 65 65 28 7a 29 3b 0a 20 20 72 65 e3_free(z);. re
55e0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
55f0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
5600: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 64 6f lite3_mprintf_do
5610: 75 62 6c 65 20 46 4f 52 4d 41 54 20 49 4e 54 45 uble FORMAT INTE
5620: 47 45 52 20 49 4e 54 45 47 45 52 20 44 4f 55 42 GER INTEGER DOUB
5630: 4c 45 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 LE.**.** Call mp
5640: 72 69 6e 74 66 20 77 69 74 68 20 74 77 6f 20 69 rintf with two i
5650: 6e 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 73 nteger arguments
5660: 20 61 6e 64 20 6f 6e 65 20 64 6f 75 62 6c 65 20 and one double
5670: 61 72 67 75 6d 65 6e 74 0a 2a 2f 0a 73 74 61 74 argument.*/.stat
5680: 69 63 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6d ic int sqlite3_m
5690: 70 72 69 6e 74 66 5f 64 6f 75 62 6c 65 28 0a 20 printf_double(.
56a0: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
56b0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
56c0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
56d0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
56e0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
56f0: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
5700: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
5710: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
5720: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
5730: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
5740: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
5750: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
5760: 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 5b t */.){. int a[
5770: 33 5d 2c 20 69 3b 0a 20 20 64 6f 75 62 6c 65 20 3], i;. double
5780: 72 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 r;. char *z;.
5790: 69 66 28 20 61 72 67 63 21 3d 35 20 29 7b 0a 20 if( argc!=5 ){.
57a0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
57b0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
57c0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
57d0: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
57e0: 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 4f 52 4d ],. " FORM
57f0: 41 54 20 49 4e 54 20 49 4e 54 20 44 4f 55 42 4c AT INT INT DOUBL
5800: 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 E\"", 0);. re
5810: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5820: 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 }. for(i=2; i
5830: 3c 34 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 <4; i++){. if
5840: 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 ( Tcl_GetInt(int
5850: 65 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26 61 erp, argv[i], &a
5860: 5b 69 2d 32 5d 29 20 29 20 72 65 74 75 72 6e 20 [i-2]) ) return
5870: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
5880: 20 69 66 28 20 54 63 6c 5f 47 65 74 44 6f 75 62 if( Tcl_GetDoub
5890: 6c 65 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b le(interp, argv[
58a0: 34 5d 2c 20 26 72 29 20 29 20 72 65 74 75 72 6e 4], &r) ) return
58b0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 20 TCL_ERROR;. z
58c0: 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 = sqlite3_mprint
58d0: 66 28 61 72 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c f(argv[1], a[0],
58e0: 20 61 5b 31 5d 2c 20 72 29 3b 0a 20 20 54 63 6c a[1], r);. Tcl
58f0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
5900: 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 terp, z, 0);. s
5910: 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 3b 0a qlite3_free(z);.
5920: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
5930: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
5940: 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 sqlite3_mprint
5950: 66 5f 73 63 61 6c 65 64 20 46 4f 52 4d 41 54 20 f_scaled FORMAT
5960: 44 4f 55 42 4c 45 20 44 4f 55 42 4c 45 0a 2a 2a DOUBLE DOUBLE.**
5970: 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 .** Call mprintf
5980: 20 77 69 74 68 20 61 20 73 69 6e 67 6c 65 20 64 with a single d
5990: 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 20 77 ouble argument w
59a0: 68 69 63 68 20 69 73 20 74 68 65 20 70 72 6f 64 hich is the prod
59b0: 75 63 74 20 6f 66 20 74 68 65 0a 2a 2a 20 74 77 uct of the.** tw
59c0: 6f 20 61 72 67 75 6d 65 6e 74 73 20 67 69 76 65 o arguments give
59d0: 6e 20 61 62 6f 76 65 2e 20 20 54 68 69 73 20 69 n above. This i
59e0: 73 20 75 73 65 64 20 74 6f 20 67 65 6e 65 72 61 s used to genera
59f0: 74 65 20 6f 76 65 72 66 6c 6f 77 20 61 6e 64 20 te overflow and
5a00: 75 6e 64 65 72 66 6c 6f 77 0a 2a 2a 20 64 6f 75 underflow.** dou
5a10: 62 6c 65 73 20 74 6f 20 74 65 73 74 20 74 68 61 bles to test tha
5a20: 74 20 74 68 65 79 20 61 72 65 20 63 6f 6e 76 65 t they are conve
5a30: 72 74 65 64 20 70 72 6f 70 65 72 6c 79 2e 0a 2a rted properly..*
5a40: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c /.static int sql
5a50: 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 73 63 61 ite3_mprintf_sca
5a60: 6c 65 64 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 led(. void *Not
5a70: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
5a80: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
5a90: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
5aa0: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
5ab0: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
5ac0: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
5ad0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
5ae0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
5af0: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
5b00: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
5b10: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
5b20: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
5b30: 69 6e 74 20 69 3b 0a 20 20 64 6f 75 62 6c 65 20 int i;. double
5b40: 72 5b 32 5d 3b 0a 20 20 63 68 61 72 20 2a 7a 3b r[2];. char *z;
5b50: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 34 20 29 . if( argc!=4 )
5b60: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
5b70: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
5b80: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
5b90: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
5ba0: 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 v[0],. " F
5bb0: 4f 52 4d 41 54 20 44 4f 55 42 4c 45 20 44 4f 55 ORMAT DOUBLE DOU
5bc0: 42 4c 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 BLE\"", 0);.
5bd0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5be0: 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b ;. }. for(i=2;
5bf0: 20 69 3c 34 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 i<4; i++){.
5c00: 69 66 28 20 54 63 6c 5f 47 65 74 44 6f 75 62 6c if( Tcl_GetDoubl
5c10: 65 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 e(interp, argv[i
5c20: 5d 2c 20 26 72 5b 69 2d 32 5d 29 20 29 20 72 65 ], &r[i-2]) ) re
5c30: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5c40: 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 }. z = sqlite
5c50: 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 31 3_mprintf(argv[1
5c60: 5d 2c 20 72 5b 30 5d 2a 72 5b 31 5d 29 3b 0a 20 ], r[0]*r[1]);.
5c70: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
5c80: 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b t(interp, z, 0);
5c90: 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 . sqlite3_free(
5ca0: 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c z);. return TCL
5cb0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
5cc0: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 age: sqlite3_mp
5cd0: 72 69 6e 74 66 5f 73 74 72 6f 6e 6c 79 20 46 4f rintf_stronly FO
5ce0: 52 4d 41 54 20 53 54 52 49 4e 47 0a 2a 2a 0a 2a RMAT STRING.**.*
5cf0: 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 * Call mprintf w
5d00: 69 74 68 20 61 20 73 69 6e 67 6c 65 20 64 6f 75 ith a single dou
5d10: 62 6c 65 20 61 72 67 75 6d 65 6e 74 20 77 68 69 ble argument whi
5d20: 63 68 20 69 73 20 74 68 65 20 70 72 6f 64 75 63 ch is the produc
5d30: 74 20 6f 66 20 74 68 65 0a 2a 2a 20 74 77 6f 20 t of the.** two
5d40: 61 72 67 75 6d 65 6e 74 73 20 67 69 76 65 6e 20 arguments given
5d50: 61 62 6f 76 65 2e 20 20 54 68 69 73 20 69 73 20 above. This is
5d60: 75 73 65 64 20 74 6f 20 67 65 6e 65 72 61 74 65 used to generate
5d70: 20 6f 76 65 72 66 6c 6f 77 20 61 6e 64 20 75 6e overflow and un
5d80: 64 65 72 66 6c 6f 77 0a 2a 2a 20 64 6f 75 62 6c derflow.** doubl
5d90: 65 73 20 74 6f 20 74 65 73 74 20 74 68 61 74 20 es to test that
5da0: 74 68 65 79 20 61 72 65 20 63 6f 6e 76 65 72 74 they are convert
5db0: 65 64 20 70 72 6f 70 65 72 6c 79 2e 0a 2a 2f 0a ed properly..*/.
5dc0: 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 static int sqlit
5dd0: 65 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 6f 6e e3_mprintf_stron
5de0: 6c 79 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 ly(. void *NotU
5df0: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
5e00: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
5e10: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
5e20: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
5e30: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
5e40: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
5e50: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
5e60: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
5e70: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
5e80: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
5e90: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
5ea0: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 63 gument */.){. c
5eb0: 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 har *z;. if( ar
5ec0: 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c gc!=3 ){. Tcl
5ed0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
5ee0: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
5ef0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
5f00: 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 "", argv[0],.
5f10: 20 20 20 20 22 20 46 4f 52 4d 41 54 20 53 54 52 " FORMAT STR
5f20: 49 4e 47 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 ING\"", 0);.
5f30: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5f40: 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 ;. }. z = sqli
5f50: 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 te3_mprintf(argv
5f60: 5b 31 5d 2c 20 61 72 67 76 5b 32 5d 29 3b 0a 20 [1], argv[2]);.
5f70: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
5f80: 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b t(interp, z, 0);
5f90: 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 . sqlite3_free(
5fa0: 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c z);. return TCL
5fb0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
5fc0: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 age: sqlite3_mp
5fd0: 72 69 6e 74 66 5f 68 65 78 64 6f 75 62 6c 65 20 rintf_hexdouble
5fe0: 46 4f 52 4d 41 54 20 48 45 58 0a 2a 2a 0a 2a 2a FORMAT HEX.**.**
5ff0: 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 Call mprintf wi
6000: 74 68 20 61 20 73 69 6e 67 6c 65 20 64 6f 75 62 th a single doub
6010: 6c 65 20 61 72 67 75 6d 65 6e 74 20 77 68 69 63 le argument whic
6020: 68 20 69 73 20 64 65 72 69 76 65 64 20 66 72 6f h is derived fro
6030: 6d 20 74 68 65 0a 2a 2a 20 68 65 78 61 64 65 63 m the.** hexadec
6040: 69 6d 61 6c 20 65 6e 63 6f 64 69 6e 67 20 6f 66 imal encoding of
6050: 20 61 6e 20 49 45 45 45 20 64 6f 75 62 6c 65 2e an IEEE double.
6060: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 .*/.static int s
6070: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 68 qlite3_mprintf_h
6080: 65 78 64 6f 75 62 6c 65 28 0a 20 20 76 6f 69 64 exdouble(. void
6090: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
60a0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
60b0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
60c0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
60d0: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
60e0: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
60f0: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
6100: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
6110: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
6120: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
6130: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
6140: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
6150: 29 7b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 ){. char *z;.
6160: 64 6f 75 62 6c 65 20 72 3b 0a 20 20 75 6e 73 69 double r;. unsi
6170: 67 6e 65 64 20 20 78 31 2c 20 78 32 3b 0a 20 20 gned x1, x2;.
6180: 6c 6f 6e 67 20 6c 6f 6e 67 20 75 6e 73 69 67 6e long long unsign
6190: 65 64 20 64 3b 0a 20 20 69 66 28 20 61 72 67 63 ed d;. if( argc
61a0: 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=3 ){. Tcl_A
61b0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
61c0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
61d0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
61e0: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 , argv[0],.
61f0: 20 20 22 20 46 4f 52 4d 41 54 20 53 54 52 49 4e " FORMAT STRIN
6200: 47 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 G\"", 0);. re
6210: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
6220: 20 20 7d 0a 20 20 69 66 28 20 73 73 63 61 6e 66 }. if( sscanf
6230: 28 61 72 67 76 5b 32 5d 2c 20 22 25 30 38 78 25 (argv[2], "%08x%
6240: 30 38 78 22 2c 20 26 78 32 2c 20 26 78 31 29 21 08x", &x2, &x1)!
6250: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
6260: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
6270: 70 2c 20 22 32 6e 64 20 61 72 67 75 6d 65 6e 74 p, "2nd argument
6280: 20 73 68 6f 75 6c 64 20 62 65 20 31 36 2d 63 68 should be 16-ch
6290: 61 72 61 63 74 65 72 73 20 6f 66 20 68 65 78 22 aracters of hex"
62a0: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
62b0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
62c0: 20 20 64 20 3d 20 78 32 3b 0a 20 20 64 20 3d 20 d = x2;. d =
62d0: 28 64 3c 3c 33 32 29 20 2b 20 78 31 3b 0a 20 20 (d<<32) + x1;.
62e0: 6d 65 6d 63 70 79 28 26 72 2c 20 26 64 2c 20 73 memcpy(&r, &d, s
62f0: 69 7a 65 6f 66 28 72 29 29 3b 0a 20 20 7a 20 3d izeof(r));. z =
6300: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 sqlite3_mprintf
6310: 28 61 72 67 76 5b 31 5d 2c 20 72 29 3b 0a 20 20 (argv[1], r);.
6320: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
6330: 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a (interp, z, 0);.
6340: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a sqlite3_free(z
6350: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
6360: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
6370: 67 65 3a 20 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f ge: sqlite_mallo
6380: 63 5f 66 61 69 6c 20 4e 20 20 3f 52 45 50 45 41 c_fail N ?REPEA
6390: 54 2d 49 4e 54 45 52 56 41 4c 3f 0a 2a 2a 0a 2a T-INTERVAL?.**.*
63a0: 2a 20 52 69 67 20 73 71 6c 69 74 65 4d 61 6c 6c * Rig sqliteMall
63b0: 6f 63 28 29 20 74 6f 20 66 61 69 6c 20 6f 6e 20 oc() to fail on
63c0: 74 68 65 20 4e 2d 74 68 20 63 61 6c 6c 20 61 6e the N-th call an
63d0: 64 20 65 76 65 72 79 20 52 45 50 45 41 54 2d 49 d every REPEAT-I
63e0: 4e 54 45 52 56 41 4c 20 63 61 6c 6c 0a 2a 2a 20 NTERVAL call.**
63f0: 61 66 74 65 72 20 74 68 61 74 2e 20 20 49 66 20 after that. If
6400: 52 45 50 45 41 54 2d 49 4e 54 45 52 56 41 4c 20 REPEAT-INTERVAL
6410: 69 73 20 30 20 6f 72 20 69 73 20 6f 6d 69 74 74 is 0 or is omitt
6420: 65 64 2c 20 74 68 65 6e 20 6f 6e 6c 79 20 61 20 ed, then only a
6430: 73 69 6e 67 6c 65 0a 2a 2a 20 6d 61 6c 6c 6f 63 single.** malloc
6440: 20 77 69 6c 6c 20 66 61 69 6c 2e 20 20 49 66 20 will fail. If
6450: 52 45 50 45 41 54 2d 49 4e 54 45 52 56 41 4c 20 REPEAT-INTERVAL
6460: 69 73 20 31 20 74 68 65 6e 20 61 6c 6c 20 6d 61 is 1 then all ma
6470: 6c 6c 6f 63 73 20 61 66 74 65 72 20 74 68 65 0a llocs after the.
6480: 2a 2a 20 66 69 72 73 74 20 66 61 69 6c 75 72 65 ** first failure
6490: 20 77 69 6c 6c 20 63 6f 6e 74 69 6e 75 65 20 74 will continue t
64a0: 6f 20 66 61 69 6c 20 6f 6e 20 65 76 65 72 79 20 o fail on every
64b0: 63 61 6c 6c 2e 20 20 49 66 20 52 45 50 45 41 54 call. If REPEAT
64c0: 2d 49 4e 54 45 52 56 41 4c 20 69 73 0a 2a 2a 20 -INTERVAL is.**
64d0: 32 20 74 68 65 6e 20 65 76 65 72 79 20 6f 74 68 2 then every oth
64e0: 65 72 20 6d 61 6c 6c 6f 63 20 77 69 6c 6c 20 66 er malloc will f
64f0: 61 69 6c 2e 20 20 41 6e 64 20 73 6f 20 66 6f 72 ail. And so for
6500: 74 68 2e 0a 2a 2a 0a 2a 2a 20 54 75 72 6e 20 6f th..**.** Turn o
6510: 66 66 20 74 68 69 73 20 6d 65 63 68 61 6e 69 73 ff this mechanis
6520: 6d 20 61 6e 64 20 72 65 73 65 74 20 74 68 65 20 m and reset the
6530: 73 71 6c 69 74 65 33 54 68 72 65 61 64 44 61 74 sqlite3ThreadDat
6540: 61 28 29 2d 3e 6d 61 6c 6c 6f 63 46 61 69 6c 65 a()->mallocFaile
6550: 64 20 0a 2a 2a 20 76 61 72 69 61 62 6c 65 20 69 d .** variable i
6560: 66 20 4e 3d 3d 30 2e 0a 2a 2f 0a 23 69 66 64 65 f N==0..*/.#ifde
6570: 66 20 53 51 4c 49 54 45 5f 4d 45 4d 44 45 42 55 f SQLITE_MEMDEBU
6580: 47 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c G.static int sql
6590: 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c 28 ite_malloc_fail(
65a0: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 . void *NotUsed
65b0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
65c0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
65d0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
65e0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
65f0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
6600: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 int argc,
6610: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
6620: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
6630: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 /. char **argv
6640: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 /* Te
6650: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d xt of each argum
6660: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 ent */.){. int
6670: 6e 3b 0a 20 20 69 6e 74 20 72 65 70 3b 0a 20 20 n;. int rep;.
6680: 69 66 28 20 61 72 67 63 21 3d 32 20 26 26 20 61 if( argc!=2 && a
6690: 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 rgc!=3 ){. Tc
66a0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
66b0: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
66c0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
66d0: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 22 20 \"", argv[0], "
66e0: 4e 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 N\"", 0);. re
66f0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
6700: 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 }. if( Tcl_Ge
6710: 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 tInt(interp, arg
6720: 76 5b 31 5d 2c 20 26 6e 29 20 29 20 72 65 74 75 v[1], &n) ) retu
6730: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
6740: 69 66 28 20 61 72 67 63 3d 3d 33 20 29 7b 0a 20 if( argc==3 ){.
6750: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e if( Tcl_GetIn
6760: 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 t(interp, argv[2
6770: 5d 2c 20 26 72 65 70 29 20 29 20 72 65 74 75 72 ], &rep) ) retur
6780: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
6790: 65 6c 73 65 7b 0a 20 20 20 20 72 65 70 20 3d 20 else{. rep =
67a0: 30 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 0;. }. sqlite3
67b0: 5f 69 4d 61 6c 6c 6f 63 46 61 69 6c 20 3d 20 6e _iMallocFail = n
67c0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 69 4d 61 6c ;. sqlite3_iMal
67d0: 6c 6f 63 52 65 73 65 74 20 3d 20 72 65 70 3b 0a locReset = rep;.
67e0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
67f0: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a .}.#endif../*.**
6800: 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 5f 6d Usage: sqlite_m
6810: 61 6c 6c 6f 63 5f 73 74 61 74 0a 2a 2a 0a 2a 2a alloc_stat.**.**
6820: 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 Return the numb
6830: 65 72 20 6f 66 20 70 72 69 6f 72 20 63 61 6c 6c er of prior call
6840: 73 20 74 6f 20 73 71 6c 69 74 65 4d 61 6c 6c 6f s to sqliteMallo
6850: 63 28 29 20 61 6e 64 20 73 71 6c 69 74 65 46 72 c() and sqliteFr
6860: 65 65 28 29 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 ee()..*/.#ifdef
6870: 53 51 4c 49 54 45 5f 4d 45 4d 44 45 42 55 47 0a SQLITE_MEMDEBUG.
6880: 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 static int sqlit
6890: 65 5f 6d 61 6c 6c 6f 63 5f 73 74 61 74 28 0a 20 e_malloc_stat(.
68a0: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
68b0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
68c0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
68d0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
68e0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
68f0: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
6900: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
6910: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
6920: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
6930: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
6940: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
6950: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
6960: 74 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 20 7a t */.){. char z
6970: 42 75 66 5b 32 30 30 5d 3b 0a 20 20 73 70 72 69 Buf[200];. spri
6980: 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 20 25 64 ntf(zBuf, "%d %d
6990: 20 25 64 22 2c 20 73 71 6c 69 74 65 33 5f 6e 4d %d", sqlite3_nM
69a0: 61 6c 6c 6f 63 2c 73 71 6c 69 74 65 33 5f 6e 46 alloc,sqlite3_nF
69b0: 72 65 65 2c 73 71 6c 69 74 65 33 5f 69 4d 61 6c ree,sqlite3_iMal
69c0: 6c 6f 63 46 61 69 6c 29 3b 0a 20 20 54 63 6c 5f locFail);. Tcl_
69d0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
69e0: 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 erp, zBuf, 0);.
69f0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
6a00: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 }../*.** This fu
6a10: 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74 nction implement
6a20: 73 20 61 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 20 s a Tcl command
6a30: 74 68 61 74 20 6d 61 79 20 62 65 20 69 6e 76 6f that may be invo
6a40: 6b 65 64 20 75 73 69 6e 67 20 61 6e 79 20 6f 66 ked using any of
6a50: 0a 2a 2a 20 74 68 65 20 66 6f 75 72 20 66 6f 72 .** the four for
6a60: 6d 73 20 65 6e 75 6d 65 72 61 74 65 64 20 62 65 ms enumerated be
6a70: 6c 6f 77 2e 0a 2a 2a 0a 2a 2a 20 73 71 6c 69 74 low..**.** sqlit
6a80: 65 5f 6d 61 6c 6c 6f 63 5f 6f 75 74 73 74 61 6e e_malloc_outstan
6a90: 64 69 6e 67 0a 2a 2a 20 20 20 20 20 52 65 74 75 ding.** Retu
6aa0: 72 6e 20 61 20 73 75 6d 6d 61 72 79 20 6f 66 20 rn a summary of
6ab0: 61 6c 6c 20 75 6e 66 72 65 65 64 20 62 6c 6f 63 all unfreed bloc
6ac0: 6b 73 20 6f 66 20 6d 65 6d 6f 72 79 20 61 6c 6c ks of memory all
6ad0: 6f 63 61 74 65 64 20 62 79 20 74 68 65 0a 2a 2a ocated by the.**
6ae0: 20 20 20 20 20 63 75 72 72 65 6e 74 20 74 68 72 current thr
6af0: 65 61 64 2e 20 53 65 65 20 63 6f 6d 6d 65 6e 74 ead. See comment
6b00: 73 20 61 62 6f 76 65 20 66 75 6e 63 74 69 6f 6e s above function
6b10: 20 73 71 6c 69 74 65 33 4f 75 74 73 74 61 6e 64 sqlite3Outstand
6b20: 69 6e 67 4d 61 6c 6c 6f 63 73 28 29 20 0a 2a 2a ingMallocs() .**
6b30: 20 20 20 20 20 69 6e 20 75 74 69 6c 2e 63 20 66 in util.c f
6b40: 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e or a description
6b50: 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 of the returned
6b60: 20 76 61 6c 75 65 2e 0a 2a 2a 0a 2a 2a 20 73 71 value..**.** sq
6b70: 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f 6f 75 74 73 lite_malloc_outs
6b80: 74 61 6e 64 69 6e 67 20 2d 62 79 74 65 73 0a 2a tanding -bytes.*
6b90: 2a 20 20 20 20 20 52 65 74 75 72 6e 20 74 68 65 * Return the
6ba0: 20 74 6f 74 61 6c 20 61 6d 6f 75 6e 74 20 6f 66 total amount of
6bb0: 20 75 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79 20 unfreed memory
6bc0: 28 69 6e 20 62 79 74 65 73 29 20 61 6c 6c 6f 63 (in bytes) alloc
6bd0: 61 74 65 64 20 62 79 20 0a 2a 2a 20 20 20 20 20 ated by .**
6be0: 74 68 69 73 20 74 68 72 65 61 64 2e 0a 2a 2a 0a this thread..**.
6bf0: 2a 2a 20 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 ** sqlite_malloc
6c00: 5f 6f 75 74 73 74 61 6e 64 69 6e 67 20 2d 6d 61 _outstanding -ma
6c10: 78 62 79 74 65 73 0a 2a 2a 20 20 20 20 20 52 65 xbytes.** Re
6c20: 74 75 72 6e 20 74 68 65 20 6d 61 78 69 6d 75 6d turn the maximum
6c30: 20 61 6d 6f 75 6e 74 20 6f 66 20 64 79 6e 61 6d amount of dynam
6c40: 69 63 20 6d 65 6d 6f 72 79 20 69 6e 20 75 73 65 ic memory in use
6c50: 20 61 74 20 6f 6e 65 20 74 69 6d 65 20 0a 2a 2a at one time .**
6c60: 20 20 20 20 20 62 79 20 74 68 69 73 20 74 68 72 by this thr
6c70: 65 61 64 2e 0a 2a 2a 0a 2a 2a 20 73 71 6c 69 74 ead..**.** sqlit
6c80: 65 5f 6d 61 6c 6c 6f 63 5f 6f 75 74 73 74 61 6e e_malloc_outstan
6c90: 64 69 6e 67 20 2d 63 6c 65 61 72 6d 61 78 62 79 ding -clearmaxby
6ca0: 74 65 73 0a 2a 2a 20 20 20 20 20 53 65 74 20 74 tes.** Set t
6cb0: 68 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 he value returne
6cc0: 64 20 62 79 20 5b 73 71 6c 69 74 65 5f 6d 61 6c d by [sqlite_mal
6cd0: 6c 6f 63 5f 6f 75 74 73 74 61 6e 64 69 6e 67 20 loc_outstanding
6ce0: 2d 6d 61 78 62 79 74 65 73 5d 0a 2a 2a 20 20 20 -maxbytes].**
6cf0: 20 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 to the current
6d00: 20 76 61 6c 75 65 20 6f 66 20 5b 73 71 6c 69 74 value of [sqlit
6d10: 65 5f 6d 61 6c 6c 6f 63 5f 6f 75 74 73 74 61 6e e_malloc_outstan
6d20: 64 69 6e 67 20 2d 62 79 74 65 73 5d 2e 20 0a 2a ding -bytes]. .*
6d30: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c /.static int sql
6d40: 69 74 65 5f 6d 61 6c 6c 6f 63 5f 6f 75 74 73 74 ite_malloc_outst
6d50: 61 6e 64 69 6e 67 28 0a 20 20 43 6c 69 65 6e 74 anding(. Client
6d60: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
6d70: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
6d80: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
6d90: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
6da0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
6db0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
6dc0: 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 int objc,
6dd0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
6de0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
6df0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
6e00: 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d T objv[] /* Com
6e10: 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a mand arguments *
6e20: 2f 0a 29 7b 0a 20 20 65 78 74 65 72 6e 20 69 6e /.){. extern in
6e30: 74 20 73 71 6c 69 74 65 33 4f 75 74 73 74 61 6e t sqlite3Outstan
6e40: 64 69 6e 67 4d 61 6c 6c 6f 63 73 28 54 63 6c 5f dingMallocs(Tcl_
6e50: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 3b Interp *interp);
6e60: 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 53 51 ..#if defined(SQ
6e70: 4c 49 54 45 5f 44 45 42 55 47 29 20 26 26 20 64 LITE_DEBUG) && d
6e80: 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4d 45 efined(SQLITE_ME
6e90: 4d 44 45 42 55 47 29 20 26 26 20 53 51 4c 49 54 MDEBUG) && SQLIT
6ea0: 45 5f 4d 45 4d 44 45 42 55 47 3e 31 0a 20 20 69 E_MEMDEBUG>1. i
6eb0: 66 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 f( objc==2 ){.
6ec0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 const char *zA
6ed0: 72 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 rg = Tcl_GetStri
6ee0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 23 69 66 ng(objv[1]);.#if
6ef0: 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c def SQLITE_ENABL
6f00: 45 5f 4d 45 4d 4f 52 59 5f 4d 41 4e 41 47 45 4d E_MEMORY_MANAGEM
6f10: 45 4e 54 0a 20 20 20 20 54 68 72 65 61 64 44 61 ENT. ThreadDa
6f20: 74 61 20 63 6f 6e 73 74 20 2a 70 54 64 20 3d 20 ta const *pTd =
6f30: 73 71 6c 69 74 65 33 54 68 72 65 61 64 44 61 74 sqlite3ThreadDat
6f40: 61 52 65 61 64 4f 6e 6c 79 28 29 3b 0a 20 20 20 aReadOnly();.
6f50: 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 7a if( 0==strcmp(z
6f60: 41 72 67 2c 20 22 2d 62 79 74 65 73 22 29 20 29 Arg, "-bytes") )
6f70: 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f {. Tcl_SetO
6f80: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
6f90: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 70 Tcl_NewIntObj(p
6fa0: 54 64 2d 3e 6e 41 6c 6c 6f 63 29 29 3b 0a 20 20 Td->nAlloc));.
6fb0: 20 20 7d 65 6c 73 65 20 69 66 28 20 30 3d 3d 73 }else if( 0==s
6fc0: 74 72 63 6d 70 28 7a 41 72 67 2c 20 22 2d 63 6c trcmp(zArg, "-cl
6fd0: 65 61 72 6d 61 78 62 79 74 65 73 22 29 20 29 7b earmaxbytes") ){
6fe0: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6e . sqlite3_n
6ff0: 4d 61 78 41 6c 6c 6f 63 20 3d 20 70 54 64 2d 3e MaxAlloc = pTd->
7000: 6e 41 6c 6c 6f 63 3b 0a 20 20 20 20 7d 65 6c 73 nAlloc;. }els
7010: 65 20 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 e .#endif. if
7020: 28 20 30 3d 3d 73 74 72 63 6d 70 28 7a 41 72 67 ( 0==strcmp(zArg
7030: 2c 20 22 2d 6d 61 78 62 79 74 65 73 22 29 20 29 , "-maxbytes") )
7040: 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f {. Tcl_SetO
7050: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
7060: 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f Tcl_NewWideIntO
7070: 62 6a 28 73 71 6c 69 74 65 33 5f 6e 4d 61 78 41 bj(sqlite3_nMaxA
7080: 6c 6c 6f 63 29 29 3b 0a 20 20 20 20 7d 65 6c 73 lloc));. }els
7090: 65 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 70 e{. Tcl_App
70a0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
70b0: 2c 20 22 62 61 64 20 6f 70 74 69 6f 6e 20 5c 22 , "bad option \"
70c0: 22 2c 20 7a 41 72 67 2c 20 0a 20 20 20 20 20 20 ", zArg, .
70d0: 20 20 22 5c 22 3a 20 6d 75 73 74 20 62 65 20 2d "\": must be -
70e0: 62 79 74 65 73 2c 20 2d 6d 61 78 62 79 74 65 73 bytes, -maxbytes
70f0: 20 6f 72 20 2d 63 6c 65 61 72 6d 61 78 62 79 74 or -clearmaxbyt
7100: 65 73 22 2c 20 30 0a 20 20 20 20 20 20 29 3b 0a es", 0. );.
7110: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c return TCL
7120: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
7130: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
7140: 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 6f 62 6a ;. }.. if( obj
7150: 63 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=1 ){. Tcl_
7160: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
7170: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f erp, 1, objv, "?
7180: 2d 62 79 74 65 73 3f 22 29 3b 0a 20 20 20 20 72 -bytes?");. r
7190: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
71a0: 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 73 . }.. return s
71b0: 71 6c 69 74 65 33 4f 75 74 73 74 61 6e 64 69 6e qlite3Outstandin
71c0: 67 4d 61 6c 6c 6f 63 73 28 69 6e 74 65 72 70 29 gMallocs(interp)
71d0: 3b 0a 23 65 6c 73 65 0a 20 20 72 65 74 75 72 6e ;.#else. return
71e0: 20 54 43 4c 5f 4f 4b 3b 0a 23 65 6e 64 69 66 0a TCL_OK;.#endif.
71f0: 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 }.#endif../*.**
7200: 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 65 Usage: sqlite3_e
7210: 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 nable_shared_cac
7220: 68 65 20 20 20 20 20 20 42 4f 4f 4c 45 41 4e 0a he BOOLEAN.
7230: 2a 2a 0a 2a 2f 0a 23 69 66 20 21 64 65 66 69 6e **.*/.#if !defin
7240: 65 64 28 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 53 ed(SQLITE_OMIT_S
7250: 48 41 52 45 44 5f 43 41 43 48 45 29 0a 73 74 61 HARED_CACHE).sta
7260: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 6e 61 tic int test_ena
7270: 62 6c 65 5f 73 68 61 72 65 64 28 0a 20 20 43 6c ble_shared(. Cl
7280: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
7290: 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 ata, /* Pointer
72a0: 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c to sqlite3_enabl
72b0: 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a e_XXX function *
72c0: 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a /. Tcl_Interp *
72d0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
72e0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
72f0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
7300: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
7310: 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 int objc,
7320: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
7330: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
7340: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e /. Tcl_Obj *CON
7350: 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f ST objv[] /* Co
7360: 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 mmand arguments
7370: 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a */.){. int rc;.
7380: 20 20 69 6e 74 20 65 6e 61 62 6c 65 3b 0a 20 20 int enable;.
7390: 69 6e 74 20 72 65 74 20 3d 20 30 3b 0a 0a 20 20 int ret = 0;..
73a0: 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 if( objc!=2 ){.
73b0: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 Tcl_WrongNumA
73c0: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
73d0: 62 6a 76 2c 20 22 42 4f 4f 4c 45 41 4e 22 29 3b bjv, "BOOLEAN");
73e0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
73f0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
7400: 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 Tcl_GetBooleanF
7410: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
7420: 62 6a 76 5b 31 5d 2c 20 26 65 6e 61 62 6c 65 29 bjv[1], &enable)
7430: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
7440: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
7450: 72 65 74 20 3d 20 73 71 6c 69 74 65 33 54 68 72 ret = sqlite3Thr
7460: 65 61 64 44 61 74 61 52 65 61 64 4f 6e 6c 79 28 eadDataReadOnly(
7470: 29 2d 3e 75 73 65 53 68 61 72 65 64 44 61 74 61 )->useSharedData
7480: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
7490: 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 _enable_shared_c
74a0: 61 63 68 65 28 65 6e 61 62 6c 65 29 3b 0a 20 20 ache(enable);.
74b0: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f if( rc!=SQLITE_O
74c0: 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 K ){. Tcl_Set
74d0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 Result(interp, (
74e0: 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 45 72 char *)sqlite3Er
74f0: 72 53 74 72 28 72 63 29 2c 20 54 43 4c 5f 53 54 rStr(rc), TCL_ST
7500: 41 54 49 43 29 3b 0a 20 20 20 20 72 65 74 75 72 ATIC);. retur
7510: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
7520: 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 . Tcl_SetObjRes
7530: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
7540: 4e 65 77 42 6f 6f 6c 65 61 6e 4f 62 6a 28 72 65 NewBooleanObj(re
7550: 74 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 t));. return TC
7560: 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a L_OK;.}.#endif..
7570: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c /*.** Usage: sql
7580: 69 74 65 33 5f 6c 69 62 76 65 72 73 69 6f 6e 5f ite3_libversion_
7590: 6e 75 6d 62 65 72 0a 2a 2a 0a 2a 2f 0a 73 74 61 number.**.*/.sta
75a0: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6c 69 62 tic int test_lib
75b0: 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 28 0a version_number(.
75c0: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
75d0: 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e entData, /* Poin
75e0: 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 ter to sqlite3_e
75f0: 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 nable_XXX functi
7600: 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 on */. Tcl_Inte
7610: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
7620: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
7630: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
7640: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
7650: 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 */. int objc,
7660: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
7670: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
7680: 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 ts */. Tcl_Obj
7690: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f *CONST objv[] /
76a0: 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 * Command argume
76b0: 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 54 63 6c 5f nts */.){. Tcl_
76c0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
76d0: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f erp, Tcl_NewIntO
76e0: 62 6a 28 73 71 6c 69 74 65 33 5f 6c 69 62 76 65 bj(sqlite3_libve
76f0: 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 28 29 29 29 rsion_number()))
7700: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
7710: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
7720: 65 3a 20 73 71 6c 69 74 65 33 5f 74 61 62 6c 65 e: sqlite3_table
7730: 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61 74 61 _column_metadata
7740: 20 44 42 20 64 62 6e 61 6d 65 20 74 62 6c 6e 61 DB dbname tblna
7750: 6d 65 20 63 6f 6c 6e 61 6d 65 0a 2a 2a 0a 2a 2f me colname.**.*/
7760: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 45 .#ifdef SQLITE_E
7770: 4e 41 42 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 NABLE_COLUMN_MET
7780: 41 44 41 54 41 0a 73 74 61 74 69 63 20 69 6e 74 ADATA.static int
7790: 20 74 65 73 74 5f 74 61 62 6c 65 5f 63 6f 6c 75 test_table_colu
77a0: 6d 6e 5f 6d 65 74 61 64 61 74 61 28 0a 20 20 43 mn_metadata(. C
77b0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
77c0: 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 Data, /* Pointer
77d0: 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 to sqlite3_enab
77e0: 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 le_XXX function
77f0: 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 */. Tcl_Interp
7800: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
7810: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
7820: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
7830: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
7840: 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 int objc,
7850: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
7860: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
7870: 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f */. Tcl_Obj *CO
7880: 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 NST objv[] /* C
7890: 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 ommand arguments
78a0: 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 */.){. sqlite3
78b0: 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 *db;. const ch
78c0: 61 72 20 2a 7a 44 62 3b 0a 20 20 63 6f 6e 73 74 ar *zDb;. const
78d0: 20 63 68 61 72 20 2a 7a 54 62 6c 3b 0a 20 20 63 char *zTbl;. c
78e0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 6c 3b onst char *zCol;
78f0: 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 54 63 6c . int rc;. Tcl
7900: 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a 0a 20 20 63 _Obj *pRet;.. c
7910: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 61 74 61 onst char *zData
7920: 74 79 70 65 3b 0a 20 20 63 6f 6e 73 74 20 63 68 type;. const ch
7930: 61 72 20 2a 7a 43 6f 6c 6c 73 65 71 3b 0a 20 20 ar *zCollseq;.
7940: 69 6e 74 20 6e 6f 74 6e 75 6c 6c 3b 0a 20 20 69 int notnull;. i
7950: 6e 74 20 70 72 69 6d 61 72 79 6b 65 79 3b 0a 20 nt primarykey;.
7960: 20 69 6e 74 20 61 75 74 6f 69 6e 63 72 65 6d 65 int autoincreme
7970: 6e 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 nt;.. if( objc!
7980: 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 =5 ){. Tcl_Wr
7990: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
79a0: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 20 p, 1, objv, "DB
79b0: 64 62 6e 61 6d 65 20 74 62 6c 6e 61 6d 65 20 63 dbname tblname c
79c0: 6f 6c 6e 61 6d 65 22 29 3b 0a 20 20 20 20 72 65 olname");. re
79d0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
79e0: 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 }. if( getDbP
79f0: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
7a00: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
7a10: 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 v[1]), &db) ) re
7a20: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
7a30: 20 20 7a 44 62 20 3d 20 54 63 6c 5f 47 65 74 53 zDb = Tcl_GetS
7a40: 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a tring(objv[2]);.
7a50: 20 20 7a 54 62 6c 20 3d 20 54 63 6c 5f 47 65 74 zTbl = Tcl_Get
7a60: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b String(objv[3]);
7a70: 0a 20 20 7a 43 6f 6c 20 3d 20 54 63 6c 5f 47 65 . zCol = Tcl_Ge
7a80: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34 5d 29 tString(objv[4])
7a90: 3b 0a 0a 20 20 69 66 28 20 73 74 72 6c 65 6e 28 ;.. if( strlen(
7aa0: 7a 44 62 29 3d 3d 30 20 29 20 7a 44 62 20 3d 20 zDb)==0 ) zDb =
7ab0: 30 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 0;.. rc = sqlit
7ac0: 65 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f e3_table_column_
7ad0: 6d 65 74 61 64 61 74 61 28 64 62 2c 20 7a 44 62 metadata(db, zDb
7ae0: 2c 20 7a 54 62 6c 2c 20 7a 43 6f 6c 2c 20 0a 20 , zTbl, zCol, .
7af0: 20 20 20 20 20 26 7a 44 61 74 61 74 79 70 65 2c &zDatatype,
7b00: 20 26 7a 43 6f 6c 6c 73 65 71 2c 20 26 6e 6f 74 &zCollseq, ¬
7b10: 6e 75 6c 6c 2c 20 26 70 72 69 6d 61 72 79 6b 65 null, &primaryke
7b20: 79 2c 20 26 61 75 74 6f 69 6e 63 72 65 6d 65 6e y, &autoincremen
7b30: 74 29 3b 0a 0a 20 20 69 66 28 20 72 63 21 3d 53 t);.. if( rc!=S
7b40: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 QLITE_OK ){.
7b50: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
7b60: 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 33 (interp, sqlite3
7b70: 5f 65 72 72 6d 73 67 28 64 62 29 2c 20 30 29 3b _errmsg(db), 0);
7b80: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
7b90: 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 70 52 ERROR;. }.. pR
7ba0: 65 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 et = Tcl_NewObj(
7bb0: 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a );. Tcl_ListObj
7bc0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c AppendElement(0,
7bd0: 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 pRet, Tcl_NewSt
7be0: 72 69 6e 67 4f 62 6a 28 7a 44 61 74 61 74 79 70 ringObj(zDatatyp
7bf0: 65 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 4c e, -1));. Tcl_L
7c00: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
7c10: 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 63 6c ent(0, pRet, Tcl
7c20: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 43 _NewStringObj(zC
7c30: 6f 6c 6c 73 65 71 2c 20 2d 31 29 29 3b 0a 20 20 ollseq, -1));.
7c40: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
7c50: 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 dElement(0, pRet
7c60: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 , Tcl_NewIntObj(
7c70: 6e 6f 74 6e 75 6c 6c 29 29 3b 0a 20 20 54 63 6c notnull));. Tcl
7c80: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
7c90: 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 ement(0, pRet, T
7ca0: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 70 72 69 cl_NewIntObj(pri
7cb0: 6d 61 72 79 6b 65 79 29 29 3b 0a 20 20 54 63 6c marykey));. Tcl
7cc0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
7cd0: 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 ement(0, pRet, T
7ce0: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 61 75 74 cl_NewIntObj(aut
7cf0: 6f 69 6e 63 72 65 6d 65 6e 74 29 29 3b 0a 20 20 oincrement));.
7d00: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
7d10: 28 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b 0a (interp, pRet);.
7d20: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
7d30: 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a ;.}.#endif../*.*
7d40: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
7d50: 5f 61 62 6f 72 74 0a 2a 2a 0a 2a 2a 20 53 68 75 _abort.**.** Shu
7d60: 74 64 6f 77 6e 20 74 68 65 20 70 72 6f 63 65 73 tdown the proces
7d70: 73 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 20 20 s immediately.
7d80: 54 68 69 73 20 69 73 20 6e 6f 74 20 61 20 63 6c This is not a cl
7d90: 65 61 6e 20 73 68 75 74 64 6f 77 6e 2e 0a 2a 2a ean shutdown..**
7da0: 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 This command is
7db0: 20 75 73 65 64 20 74 6f 20 74 65 73 74 20 74 68 used to test th
7dc0: 65 20 72 65 63 6f 76 65 72 61 62 69 6c 69 74 79 e recoverability
7dd0: 20 6f 66 20 61 20 64 61 74 61 62 61 73 65 20 69 of a database i
7de0: 6e 0a 2a 2a 20 74 68 65 20 65 76 65 6e 74 20 6f n.** the event o
7df0: 66 20 61 20 70 72 6f 67 72 61 6d 20 63 72 61 73 f a program cras
7e00: 68 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 h..*/.static int
7e10: 20 73 71 6c 69 74 65 5f 61 62 6f 72 74 28 0a 20 sqlite_abort(.
7e20: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
7e30: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
7e40: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
7e50: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
7e60: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
7e70: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
7e80: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
7e90: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
7ea0: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
7eb0: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
7ec0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
7ed0: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
7ee0: 74 20 2a 2f 0a 29 7b 0a 20 20 61 73 73 65 72 74 t */.){. assert
7ef0: 28 20 69 6e 74 65 72 70 3d 3d 30 20 29 3b 20 20 ( interp==0 );
7f00: 20 2f 2a 20 54 68 69 73 20 77 69 6c 6c 20 61 6c /* This will al
7f10: 77 61 79 73 20 66 61 69 6c 20 2a 2f 0a 20 20 72 ways fail */. r
7f20: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
7f30: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f ./*.** The follo
7f40: 77 69 6e 67 20 72 6f 75 74 69 6e 65 20 69 73 20 wing routine is
7f50: 61 20 75 73 65 72 2d 64 65 66 69 6e 65 64 20 53 a user-defined S
7f60: 51 4c 20 66 75 6e 63 74 69 6f 6e 20 77 68 6f 73 QL function whos
7f70: 65 20 70 75 72 70 6f 73 65 0a 2a 2a 20 69 73 20 e purpose.** is
7f80: 74 6f 20 74 65 73 74 20 74 68 65 20 73 71 6c 69 to test the sqli
7f90: 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 28 29 20 te_set_result()
7fa0: 41 50 49 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 API..*/.static v
7fb0: 6f 69 64 20 74 65 73 74 46 75 6e 63 28 73 71 6c oid testFunc(sql
7fc0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
7fd0: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
7fe0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
7ff0: 2a 61 72 67 76 29 7b 0a 20 20 77 68 69 6c 65 28 *argv){. while(
8000: 20 61 72 67 63 3e 3d 32 20 29 7b 0a 20 20 20 20 argc>=2 ){.
8010: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 72 67 const char *zArg
8020: 30 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69 74 0 = (char*)sqlit
8030: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
8040: 67 76 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 gv[0]);. if(
8050: 7a 41 72 67 30 20 29 7b 0a 20 20 20 20 20 20 69 zArg0 ){. i
8060: 66 28 20 30 3d 3d 73 71 6c 69 74 65 33 53 74 72 f( 0==sqlite3Str
8070: 49 43 6d 70 28 7a 41 72 67 30 2c 20 22 69 6e 74 ICmp(zArg0, "int
8080: 22 29 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 ") ){. sq
8090: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 lite3_result_int
80a0: 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 (context, sqlite
80b0: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 3_value_int(argv
80c0: 5b 31 5d 29 29 3b 0a 20 20 20 20 20 20 7d 65 6c [1]));. }el
80d0: 73 65 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 se if( sqlite3St
80e0: 72 49 43 6d 70 28 7a 41 72 67 30 2c 22 69 6e 74 rICmp(zArg0,"int
80f0: 36 34 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 64")==0 ){.
8100: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
8110: 74 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c t_int64(context,
8120: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 sqlite3_value_i
8130: 6e 74 36 34 28 61 72 67 76 5b 31 5d 29 29 3b 0a nt64(argv[1]));.
8140: 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 }else if(
8150: 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 7a sqlite3StrICmp(z
8160: 41 72 67 30 2c 22 73 74 72 69 6e 67 22 29 3d 3d Arg0,"string")==
8170: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 0 ){. sql
8180: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
8190: 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a (context, (char*
81a0: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 )sqlite3_value_t
81b0: 65 78 74 28 61 72 67 76 5b 31 5d 29 2c 20 2d 31 ext(argv[1]), -1
81c0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 51 ,. SQ
81d0: 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b LITE_TRANSIENT);
81e0: 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 . }else if(
81f0: 20 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 sqlite3StrICmp(
8200: 7a 41 72 67 30 2c 22 64 6f 75 62 6c 65 22 29 3d zArg0,"double")=
8210: 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 =0 ){. sq
8220: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 lite3_result_dou
8230: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c ble(context, sql
8240: 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c ite3_value_doubl
8250: 65 28 61 72 67 76 5b 31 5d 29 29 3b 0a 20 20 20 e(argv[1]));.
8260: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 71 6c }else if( sql
8270: 69 74 65 33 53 74 72 49 43 6d 70 28 7a 41 72 67 ite3StrICmp(zArg
8280: 30 2c 22 6e 75 6c 6c 22 29 3d 3d 30 20 29 7b 0a 0,"null")==0 ){.
8290: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f sqlite3_
82a0: 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 result_null(cont
82b0: 65 78 74 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 ext);. }els
82c0: 65 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 e if( sqlite3Str
82d0: 49 43 6d 70 28 7a 41 72 67 30 2c 22 76 61 6c 75 ICmp(zArg0,"valu
82e0: 65 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 e")==0 ){.
82f0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
8300: 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20 _value(context,
8310: 61 72 67 76 5b 73 71 6c 69 74 65 33 5f 76 61 6c argv[sqlite3_val
8320: 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 5d ue_int(argv[1])]
8330: 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a );. }else{.
8340: 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 goto err
8350: 6f 72 5f 6f 75 74 3b 0a 20 20 20 20 20 20 7d 0a or_out;. }.
8360: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
8370: 20 67 6f 74 6f 20 65 72 72 6f 72 5f 6f 75 74 3b goto error_out;
8380: 0a 20 20 20 20 7d 0a 20 20 20 20 61 72 67 63 20 . }. argc
8390: 2d 3d 20 32 3b 0a 20 20 20 20 61 72 67 76 20 2b -= 2;. argv +
83a0: 3d 20 32 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 = 2;. }. retur
83b0: 6e 3b 0a 0a 65 72 72 6f 72 5f 6f 75 74 3a 0a 20 n;..error_out:.
83c0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
83d0: 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 22 66 error(context,"f
83e0: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 73 68 irst argument sh
83f0: 6f 75 6c 64 20 62 65 20 6f 6e 65 20 6f 66 3a 20 ould be one of:
8400: 22 0a 20 20 20 20 20 20 22 69 6e 74 20 69 6e 74 ". "int int
8410: 36 34 20 73 74 72 69 6e 67 20 64 6f 75 62 6c 65 64 string double
8420: 20 6e 75 6c 6c 20 76 61 6c 75 65 22 2c 20 2d 31 null value", -1
8430: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 );.}../*.** Usag
8440: 65 3a 20 20 20 73 71 6c 69 74 65 5f 72 65 67 69 e: sqlite_regi
8450: 73 74 65 72 5f 74 65 73 74 5f 66 75 6e 63 74 69 ster_test_functi
8460: 6f 6e 20 20 44 42 20 20 4e 41 4d 45 0a 2a 2a 0a on DB NAME.**.
8470: 2a 2a 20 52 65 67 69 73 74 65 72 20 74 68 65 20 ** Register the
8480: 74 65 73 74 20 53 51 4c 20 66 75 6e 63 74 69 6f test SQL functio
8490: 6e 20 6f 6e 20 74 68 65 20 64 61 74 61 62 61 73 n on the databas
84a0: 65 20 44 42 20 75 6e 64 65 72 20 74 68 65 20 6e e DB under the n
84b0: 61 6d 65 20 4e 41 4d 45 2e 0a 2a 2f 0a 73 74 61 ame NAME..*/.sta
84c0: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 72 65 67 tic int test_reg
84d0: 69 73 74 65 72 5f 66 75 6e 63 28 0a 20 20 76 6f ister_func(. vo
84e0: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
84f0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
8500: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
8510: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
8520: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
8530: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
8540: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
8550: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
8560: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
8570: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
8580: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
8590: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
85a0: 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a /.){. sqlite3 *
85b0: 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 db;. int rc;.
85c0: 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 if( argc!=3 ){.
85d0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
85e0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
85f0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
8600: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
8610: 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 44 42 20 ], . " DB
8620: 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 22 2c 20 FUNCTION-NAME",
8630: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
8640: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
8650: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
8660: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
8670: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
8680: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 TCL_ERROR;. rc
8690: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
86a0: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 61 72 _function(db, ar
86b0: 67 76 5b 32 5d 2c 20 2d 31 2c 20 53 51 4c 49 54 gv[2], -1, SQLIT
86c0: 45 5f 55 54 46 38 2c 20 30 2c 20 0a 20 20 20 20 E_UTF8, 0, .
86d0: 20 20 74 65 73 74 46 75 6e 63 2c 20 30 2c 20 30 testFunc, 0, 0
86e0: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 30 20 29 );. if( rc!=0 )
86f0: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
8700: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 Result(interp, s
8710: 71 6c 69 74 65 33 45 72 72 53 74 72 28 72 63 29 qlite3ErrStr(rc)
8720: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
8730: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
8740: 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 if( sqlite3Tes
8750: 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c tErrCode(interp,
8760: 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 db, rc) ) retur
8770: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 n TCL_ERROR;. r
8780: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
8790: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
87a0: 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 qlite3_finalize
87b0: 20 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 46 69 6e STMT .**.** Fin
87c0: 61 6c 69 7a 65 20 61 20 73 74 61 74 65 6d 65 6e alize a statemen
87d0: 74 20 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 t handle..*/.sta
87e0: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 66 69 6e tic int test_fin
87f0: 61 6c 69 7a 65 28 0a 20 20 76 6f 69 64 20 2a 20 alize(. void *
8800: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
8810: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
8820: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
8830: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
8840: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
8850: 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
8860: 20 20 69 6e 74 20 72 63 3b 0a 20 20 73 71 6c 69 int rc;. sqli
8870: 74 65 33 20 2a 64 62 3b 0a 0a 20 20 69 66 28 20 te3 *db;.. if(
8880: 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
8890: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
88a0: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
88b0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
88c0: 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 \"",. Tc
88d0: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
88e0: 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 bj(objv[0], 0),
88f0: 22 20 3c 53 54 4d 54 3e 22 2c 20 30 29 3b 0a 20 " <STMT>", 0);.
8900: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
8910: 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
8920: 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
8930: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
8940: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
8950: 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
8960: 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 69 66 TCL_ERROR;.. if
8970: 28 20 70 53 74 6d 74 20 29 7b 0a 20 20 20 20 64 ( pStmt ){. d
8980: 62 20 3d 20 53 74 6d 74 54 6f 44 62 28 70 53 74 b = StmtToDb(pSt
8990: 6d 74 29 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20 mt);. }. rc =
89a0: 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 sqlite3_finalize
89b0: 28 70 53 74 6d 74 29 3b 0a 20 20 54 63 6c 5f 53 (pStmt);. Tcl_S
89c0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
89d0: 20 28 63 68 61 72 20 2a 29 65 72 72 6f 72 4e 61 (char *)errorNa
89e0: 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 me(rc), TCL_STAT
89f0: 49 43 29 3b 0a 20 20 69 66 28 20 64 62 20 26 26 IC);. if( db &&
8a00: 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 sqlite3TestErrC
8a10: 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 ode(interp, db,
8a20: 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c rc) ) return TCL
8a30: 5f 45 52 52 4f 52 3b 0a 20 20 72 65 74 75 72 6e _ERROR;. return
8a40: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
8a50: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
8a60: 33 5f 72 65 73 65 74 20 20 53 54 4d 54 20 0a 2a 3_reset STMT .*
8a70: 2a 0a 2a 2a 20 52 65 73 65 74 20 61 20 73 74 61 *.** Reset a sta
8a80: 74 65 6d 65 6e 74 20 68 61 6e 64 6c 65 2e 0a 2a tement handle..*
8a90: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
8aa0: 74 5f 72 65 73 65 74 28 0a 20 20 76 6f 69 64 20 t_reset(. void
8ab0: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
8ac0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
8ad0: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
8ae0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
8af0: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
8b00: 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 ite3_stmt *pStmt
8b10: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 ;. int rc;.. i
8b20: 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 f( objc!=2 ){.
8b30: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
8b40: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
8b50: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
8b60: 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 be \"",.
8b70: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
8b80: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 omObj(objv[0], 0
8b90: 29 2c 20 22 20 3c 53 54 4d 54 3e 22 2c 20 30 29 ), " <STMT>", 0)
8ba0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
8bb0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
8bc0: 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 f( getStmtPointe
8bd0: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
8be0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
8bf0: 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
8c00: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
8c10: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 72 65 rc = sqlite3_re
8c20: 73 65 74 28 70 53 74 6d 74 29 3b 0a 20 20 69 66 set(pStmt);. if
8c30: 28 20 70 53 74 6d 74 20 26 26 20 73 71 6c 69 74 ( pStmt && sqlit
8c40: 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e e3TestErrCode(in
8c50: 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 terp, StmtToDb(p
8c60: 53 74 6d 74 29 2c 20 72 63 29 20 29 7b 0a 20 20 Stmt), rc) ){.
8c70: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
8c80: 4f 52 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 65 OR;. }. Tcl_Se
8c90: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
8ca0: 28 63 68 61 72 20 2a 29 65 72 72 6f 72 4e 61 6d (char *)errorNam
8cb0: 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 e(rc), TCL_STATI
8cc0: 43 29 3b 0a 2f 2a 0a 20 20 69 66 28 20 72 63 20 C);./*. if( rc
8cd0: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 ){. return TC
8ce0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 2a 2f 0a L_ERROR;. }.*/.
8cf0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
8d00: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
8d10: 20 20 73 71 6c 69 74 65 33 5f 65 78 70 69 72 65 sqlite3_expire
8d20: 64 20 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 52 65 d STMT .**.** Re
8d30: 74 75 72 6e 20 54 52 55 45 20 69 66 20 61 20 72 turn TRUE if a r
8d40: 65 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6f 66 20 ecompilation of
8d50: 74 68 65 20 73 74 61 74 65 6d 65 6e 74 20 69 73 the statement is
8d60: 20 72 65 63 6f 6d 6d 65 6e 64 65 64 2e 0a 2a 2f recommended..*/
8d70: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
8d80: 5f 65 78 70 69 72 65 64 28 0a 20 20 76 6f 69 64 _expired(. void
8d90: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
8da0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
8db0: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
8dc0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
8dd0: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
8de0: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d lite3_stmt *pStm
8df0: 74 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 t;. if( objc!=2
8e00: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
8e10: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
8e20: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
8e30: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 should be \"",.
8e40: 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
8e50: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
8e60: 5b 30 5d 2c 20 30 29 2c 20 22 20 3c 53 54 4d 54 [0], 0), " <STMT
8e70: 3e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 >", 0);. retu
8e80: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
8e90: 7d 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 }. if( getStmtP
8ea0: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
8eb0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
8ec0: 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 v[1]), &pStmt) )
8ed0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
8ee0: 52 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 R;. Tcl_SetObjR
8ef0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
8f00: 6c 5f 4e 65 77 42 6f 6f 6c 65 61 6e 4f 62 6a 28 l_NewBooleanObj(
8f10: 73 71 6c 69 74 65 33 5f 65 78 70 69 72 65 64 28 sqlite3_expired(
8f20: 70 53 74 6d 74 29 29 29 3b 0a 20 20 72 65 74 75 pStmt)));. retu
8f30: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
8f40: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
8f50: 74 65 33 5f 74 72 61 6e 73 66 65 72 5f 62 69 6e te3_transfer_bin
8f60: 64 69 6e 67 73 20 46 52 4f 4d 53 54 4d 54 20 54 dings FROMSTMT T
8f70: 4f 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 54 72 61 6e OSTMT.**.** Tran
8f80: 73 66 65 72 20 61 6c 6c 20 62 69 6e 64 69 6e 67 sfer all binding
8f90: 73 20 66 72 6f 6d 20 46 52 4f 4d 53 54 4d 54 20 s from FROMSTMT
8fa0: 6f 76 65 72 20 74 6f 20 54 4f 53 54 4d 54 0a 2a over to TOSTMT.*
8fb0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
8fc0: 74 5f 74 72 61 6e 73 66 65 72 5f 62 69 6e 64 28 t_transfer_bind(
8fd0: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
8fe0: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
8ff0: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
9000: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
9010: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
9020: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
9030: 74 20 2a 70 53 74 6d 74 31 2c 20 2a 70 53 74 6d t *pStmt1, *pStm
9040: 74 32 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d t2;. if( objc!=
9050: 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 3 ){. Tcl_App
9060: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
9070: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
9080: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a should be \"",.
9090: 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 Tcl_GetS
90a0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
90b0: 76 5b 30 5d 2c 20 30 29 2c 20 22 20 46 52 4f 4d v[0], 0), " FROM
90c0: 2d 53 54 4d 54 20 54 4f 2d 53 54 4d 54 22 2c 20 -STMT TO-STMT",
90d0: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
90e0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
90f0: 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
9100: 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
9110: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
9120: 29 2c 20 26 70 53 74 6d 74 31 29 29 20 72 65 74 ), &pStmt1)) ret
9130: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
9140: 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e if( getStmtPoin
9150: 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
9160: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 GetString(objv[2
9170: 5d 29 2c 20 26 70 53 74 6d 74 32 29 29 20 72 65 ]), &pStmt2)) re
9180: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
9190: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
91a0: 6c 74 28 69 6e 74 65 72 70 2c 20 0a 20 20 20 20 lt(interp, .
91b0: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 Tcl_NewIntObj(s
91c0: 71 6c 69 74 65 33 5f 74 72 61 6e 73 66 65 72 5f qlite3_transfer_
91d0: 62 69 6e 64 69 6e 67 73 28 70 53 74 6d 74 31 2c bindings(pStmt1,
91e0: 70 53 74 6d 74 32 29 29 29 3b 0a 20 20 72 65 74 pStmt2)));. ret
91f0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
9200: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
9210: 69 74 65 33 5f 63 68 61 6e 67 65 73 20 44 42 0a ite3_changes DB.
9220: 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 **.** Return the
9230: 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 6e 67 number of chang
9240: 65 73 20 6d 61 64 65 20 74 6f 20 74 68 65 20 64 es made to the d
9250: 61 74 61 62 61 73 65 20 62 79 20 74 68 65 20 6c atabase by the l
9260: 61 73 74 20 53 51 4c 0a 2a 2a 20 65 78 65 63 75 ast SQL.** execu
9270: 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 tion..*/.static
9280: 69 6e 74 20 74 65 73 74 5f 63 68 61 6e 67 65 73 int test_changes
9290: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
92a0: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
92b0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
92c0: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
92d0: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
92e0: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
92f0: 62 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 b;. if( objc!=2
9300: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
9310: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
9320: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
9330: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 should be \"",.
9340: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
9350: 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 ing(objv[0]), "
9360: 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 DB", 0);. ret
9370: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
9380: 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
9390: 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
93a0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
93b0: 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 [1]), &db) ) ret
93c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
93d0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
93e0: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
93f0: 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f wIntObj(sqlite3_
9400: 63 68 61 6e 67 65 73 28 64 62 29 29 29 3b 0a 20 changes(db)));.
9410: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
9420: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73 }../*.** This is
9430: 20 74 68 65 20 22 73 74 61 74 69 63 5f 62 69 6e the "static_bin
9440: 64 5f 76 61 6c 75 65 22 20 74 68 61 74 20 76 61 d_value" that va
9450: 72 69 61 62 6c 65 73 20 61 72 65 20 62 6f 75 6e riables are boun
9460: 64 20 74 6f 20 77 68 65 6e 0a 2a 2a 20 74 68 65 d to when.** the
9470: 20 46 4c 41 47 20 6f 70 74 69 6f 6e 20 6f 66 20 FLAG option of
9480: 73 71 6c 69 74 65 33 5f 62 69 6e 64 20 69 73 20 sqlite3_bind is
9490: 22 73 74 61 74 69 63 22 0a 2a 2f 0a 73 74 61 74 "static".*/.stat
94a0: 69 63 20 63 68 61 72 20 2a 73 71 6c 69 74 65 5f ic char *sqlite_
94b0: 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 static_bind_valu
94c0: 65 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 55 73 e = 0;../*.** Us
94d0: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 62 69 age: sqlite3_bi
94e0: 6e 64 20 20 56 4d 20 20 49 44 58 20 20 56 41 4c nd VM IDX VAL
94f0: 55 45 20 20 46 4c 41 47 53 0a 2a 2a 0a 2a 2a 20 UE FLAGS.**.**
9500: 53 65 74 73 20 74 68 65 20 76 61 6c 75 65 20 6f Sets the value o
9510: 66 20 74 68 65 20 49 44 58 2d 74 68 20 6f 63 63 f the IDX-th occ
9520: 75 72 61 6e 63 65 20 6f 66 20 22 3f 22 20 69 6e urance of "?" in
9530: 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 53 51 the original SQ
9540: 4c 0a 2a 2a 20 73 74 72 69 6e 67 2e 20 20 56 41 L.** string. VA
9550: 4c 55 45 20 69 73 20 74 68 65 20 6e 65 77 20 76 LUE is the new v
9560: 61 6c 75 65 2e 20 20 49 66 20 46 4c 41 47 53 3d alue. If FLAGS=
9570: 3d 22 6e 75 6c 6c 22 20 74 68 65 6e 20 56 41 4c ="null" then VAL
9580: 55 45 20 69 73 0a 2a 2a 20 69 67 6e 6f 72 65 64 UE is.** ignored
9590: 20 61 6e 64 20 74 68 65 20 76 61 6c 75 65 20 69 and the value i
95a0: 73 20 73 65 74 20 74 6f 20 4e 55 4c 4c 2e 20 20 s set to NULL.
95b0: 49 66 20 46 4c 41 47 53 3d 3d 22 73 74 61 74 69 If FLAGS=="stati
95c0: 63 22 20 74 68 65 6e 0a 2a 2a 20 74 68 65 20 76 c" then.** the v
95d0: 61 6c 75 65 20 69 73 20 73 65 74 20 74 6f 20 74 alue is set to t
95e0: 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20 73 74 he value of a st
95f0: 61 74 69 63 20 76 61 72 69 61 62 6c 65 20 6e 61 atic variable na
9600: 6d 65 64 0a 2a 2a 20 22 73 71 6c 69 74 65 5f 73 med.** "sqlite_s
9610: 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 tatic_bind_value
9620: 22 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d 22 6e ". If FLAGS=="n
9630: 6f 72 6d 61 6c 22 20 74 68 65 6e 20 61 20 63 6f ormal" then a co
9640: 70 79 0a 2a 2a 20 6f 66 20 74 68 65 20 56 41 4c py.** of the VAL
9650: 55 45 20 69 73 20 6d 61 64 65 2e 20 20 49 66 20 UE is made. If
9660: 46 4c 41 47 53 3d 3d 22 62 6c 6f 62 31 30 22 20 FLAGS=="blob10"
9670: 74 68 65 6e 20 61 20 56 41 4c 55 45 20 69 73 20 then a VALUE is
9680: 69 67 6e 6f 72 65 64 0a 2a 2a 20 61 6e 20 61 20 ignored.** an a
9690: 31 30 2d 62 79 74 65 20 62 6c 6f 62 20 22 61 62 10-byte blob "ab
96a0: 63 5c 30 30 30 78 79 7a 5c 30 30 30 70 71 22 20 c\000xyz\000pq"
96b0: 69 73 20 69 6e 73 65 72 74 65 64 2e 0a 2a 2f 0a is inserted..*/.
96c0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
96d0: 62 69 6e 64 28 0a 20 20 76 6f 69 64 20 2a 4e 6f bind(. void *No
96e0: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 tUsed,. Tcl_Int
96f0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
9700: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
9710: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
9720: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
9730: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 */. int argc,
9740: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
9750: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
9760: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a nts */. char **
9770: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 argv
9780: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 /* Text of each
9790: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 argument */.){.
97a0: 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
97b0: 53 74 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a Stmt;. int rc;.
97c0: 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 66 28 int idx;. if(
97d0: 20 61 72 67 63 21 3d 35 20 29 7b 0a 20 20 20 20 argc!=5 ){.
97e0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
97f0: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
9800: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
9810: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 e \"", argv[0],
9820: 0a 20 20 20 20 20 20 20 22 20 56 4d 20 49 44 58 . " VM IDX
9830: 20 56 41 4c 55 45 20 28 6e 75 6c 6c 7c 73 74 61 VALUE (null|sta
9840: 74 69 63 7c 6e 6f 72 6d 61 6c 29 5c 22 22 2c 20 tic|normal)\"",
9850: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
9860: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
9870: 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
9880: 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
9890: 31 5d 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 1], &pStmt) ) re
98a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
98b0: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
98c0: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d (interp, argv[2]
98d0: 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
98e0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
98f0: 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b 34 5d ( strcmp(argv[4]
9900: 2c 22 6e 75 6c 6c 22 29 3d 3d 30 20 29 7b 0a 20 ,"null")==0 ){.
9910: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
9920: 62 69 6e 64 5f 6e 75 6c 6c 28 70 53 74 6d 74 2c bind_null(pStmt,
9930: 20 69 64 78 29 3b 0a 20 20 7d 65 6c 73 65 20 69 idx);. }else i
9940: 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b 34 f( strcmp(argv[4
9950: 5d 2c 22 73 74 61 74 69 63 22 29 3d 3d 30 20 29 ],"static")==0 )
9960: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 {. rc = sqlit
9970: 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74 e3_bind_text(pSt
9980: 6d 74 2c 20 69 64 78 2c 20 73 71 6c 69 74 65 5f mt, idx, sqlite_
9990: 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 static_bind_valu
99a0: 65 2c 20 2d 31 2c 20 30 29 3b 0a 20 20 7d 65 6c e, -1, 0);. }el
99b0: 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 se if( strcmp(ar
99c0: 67 76 5b 34 5d 2c 22 6e 6f 72 6d 61 6c 22 29 3d gv[4],"normal")=
99d0: 3d 30 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 =0 ){. rc = s
99e0: 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 qlite3_bind_text
99f0: 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 61 72 67 (pStmt, idx, arg
9a00: 76 5b 33 5d 2c 20 2d 31 2c 20 53 51 4c 49 54 45 v[3], -1, SQLITE
9a10: 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 7d _TRANSIENT);. }
9a20: 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 else if( strcmp(
9a30: 61 72 67 76 5b 34 5d 2c 22 62 6c 6f 62 31 30 22 argv[4],"blob10"
9a40: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 63 20 3d )==0 ){. rc =
9a50: 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 sqlite3_bind_te
9a60: 78 74 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 22 xt(pStmt, idx, "
9a70: 61 62 63 5c 30 30 30 78 79 7a 5c 30 30 30 70 71 abc\000xyz\000pq
9a80: 22 2c 20 31 30 2c 20 53 51 4c 49 54 45 5f 53 54 ", 10, SQLITE_ST
9a90: 41 54 49 43 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a ATIC);. }else{.
9aa0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
9ab0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 34 74 sult(interp, "4t
9ac0: 68 20 61 72 67 75 6d 65 6e 74 20 73 68 6f 75 6c h argument shoul
9ad0: 64 20 62 65 20 22 0a 20 20 20 20 20 20 20 20 22 d be ". "
9ae0: 5c 22 6e 75 6c 6c 5c 22 20 6f 72 20 5c 22 73 74 \"null\" or \"st
9af0: 61 74 69 63 5c 22 20 6f 72 20 5c 22 6e 6f 72 6d atic\" or \"norm
9b00: 61 6c 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 al\"", 0);. r
9b10: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
9b20: 0a 20 20 7d 0a 20 20 69 66 28 20 73 71 6c 69 74 . }. if( sqlit
9b30: 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e e3TestErrCode(in
9b40: 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 terp, StmtToDb(p
9b50: 53 74 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 Stmt), rc) ) ret
9b60: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
9b70: 20 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 63 if( rc ){. c
9b80: 68 61 72 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 har zBuf[50];.
9b90: 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 sprintf(zBuf,
9ba0: 22 28 25 64 29 20 22 2c 20 72 63 29 3b 0a 20 20 "(%d) ", rc);.
9bb0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
9bc0: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c lt(interp, zBuf,
9bd0: 20 73 71 6c 69 74 65 33 45 72 72 53 74 72 28 72 sqlite3ErrStr(r
9be0: 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 c), 0);. retu
9bf0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
9c00: 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f }. return TCL_O
9c10: 4b 3b 0a 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51 K;.}..#ifndef SQ
9c20: 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a LITE_OMIT_UTF16.
9c30: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 61 64 64 /*.** Usage: add
9c40: 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 3c 64 _test_collate <d
9c50: 62 20 70 74 72 3e 20 3c 75 74 66 38 3e 20 3c 75 b ptr> <utf8> <u
9c60: 74 66 31 36 6c 65 3e 20 3c 75 74 66 31 36 62 65 tf16le> <utf16be
9c70: 3e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e >.**.** This fun
9c80: 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f ction is used to
9c90: 20 74 65 73 74 20 74 68 61 74 20 53 51 4c 69 74 test that SQLit
9ca0: 65 20 73 65 6c 65 63 74 73 20 74 68 65 20 63 6f e selects the co
9cb0: 72 72 65 63 74 20 63 6f 6c 6c 61 74 69 6f 6e 0a rrect collation.
9cc0: 2a 2a 20 73 65 71 75 65 6e 63 65 20 63 61 6c 6c ** sequence call
9cd0: 62 61 63 6b 20 77 68 65 6e 20 6d 75 6c 74 69 70 back when multip
9ce0: 6c 65 20 76 65 72 73 69 6f 6e 73 20 28 66 6f 72 le versions (for
9cf0: 20 64 69 66 66 65 72 65 6e 74 20 74 65 78 74 20 different text
9d00: 65 6e 63 6f 64 69 6e 67 73 29 0a 2a 2a 20 61 72 encodings).** ar
9d10: 65 20 61 76 61 69 6c 61 62 6c 65 2e 0a 2a 2a 0a e available..**.
9d20: 2a 2a 20 43 61 6c 6c 69 6e 67 20 74 68 69 73 20 ** Calling this
9d30: 72 6f 75 74 69 6e 65 20 72 65 67 69 73 74 65 72 routine register
9d40: 73 20 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 s the collation
9d50: 73 65 71 75 65 6e 63 65 20 22 74 65 73 74 5f 63 sequence "test_c
9d60: 6f 6c 6c 61 74 65 22 0a 2a 2a 20 77 69 74 68 20 ollate".** with
9d70: 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 database handle
9d80: 3c 64 62 3e 2e 20 54 68 65 20 73 65 63 6f 6e 64 <db>. The second
9d90: 20 61 72 67 75 6d 65 6e 74 20 6d 75 73 74 20 62 argument must b
9da0: 65 20 61 20 6c 69 73 74 20 6f 66 20 74 68 72 65 e a list of thre
9db0: 65 0a 2a 2a 20 62 6f 6f 6c 65 61 6e 20 76 61 6c e.** boolean val
9dc0: 75 65 73 2e 20 49 66 20 74 68 65 20 66 69 72 73 ues. If the firs
9dd0: 74 20 69 73 20 74 72 75 65 2c 20 74 68 65 6e 20 t is true, then
9de0: 61 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 65 73 a version of tes
9df0: 74 5f 63 6f 6c 6c 61 74 65 20 69 73 0a 2a 2a 20 t_collate is.**
9e00: 72 65 67 69 73 74 65 72 65 64 20 66 6f 72 20 55 registered for U
9e10: 54 46 2d 38 2c 20 69 66 20 74 68 65 20 73 65 63 TF-8, if the sec
9e20: 6f 6e 64 20 69 73 20 74 72 75 65 2c 20 61 20 76 ond is true, a v
9e30: 65 72 73 69 6f 6e 20 69 73 20 72 65 67 69 73 74 ersion is regist
9e40: 65 72 65 64 20 66 6f 72 0a 2a 2a 20 55 54 46 2d ered for.** UTF-
9e50: 31 36 6c 65 2c 20 69 66 20 74 68 65 20 74 68 69 16le, if the thi
9e60: 72 64 20 69 73 20 74 72 75 65 2c 20 61 20 55 54 rd is true, a UT
9e70: 46 2d 31 36 62 65 20 76 65 72 73 69 6f 6e 20 69 F-16be version i
9e80: 73 20 61 76 61 69 6c 61 62 6c 65 2e 0a 2a 2a 20 s available..**
9e90: 50 72 65 76 69 6f 75 73 20 76 65 72 73 69 6f 6e Previous version
9ea0: 73 20 6f 66 20 74 65 73 74 5f 63 6f 6c 6c 61 74 s of test_collat
9eb0: 65 20 61 72 65 20 64 65 6c 65 74 65 64 2e 0a 2a e are deleted..*
9ec0: 2a 0a 2a 2a 20 54 68 65 20 63 6f 6c 6c 61 74 69 *.** The collati
9ed0: 6f 6e 20 73 65 71 75 65 6e 63 65 20 74 65 73 74 on sequence test
9ee0: 5f 63 6f 6c 6c 61 74 65 20 69 73 20 69 6d 70 6c _collate is impl
9ef0: 65 6d 65 6e 74 65 64 20 62 79 20 63 61 6c 6c 69 emented by calli
9f00: 6e 67 20 74 68 65 0a 2a 2a 20 66 6f 6c 6c 6f 77 ng the.** follow
9f10: 69 6e 67 20 54 43 4c 20 73 63 72 69 70 74 3a 0a ing TCL script:.
9f20: 2a 2a 0a 2a 2a 20 20 20 22 74 65 73 74 5f 63 6f **.** "test_co
9f30: 6c 6c 61 74 65 20 3c 65 6e 63 3e 20 3c 6c 68 73 llate <enc> <lhs
9f40: 3e 20 3c 72 68 73 3e 22 0a 2a 2a 0a 2a 2a 20 54 > <rhs>".**.** T
9f50: 68 65 20 3c 6c 68 73 3e 20 61 6e 64 20 3c 72 68 he <lhs> and <rh
9f60: 73 3e 20 61 72 65 20 74 68 65 20 74 77 6f 20 76 s> are the two v
9f70: 61 6c 75 65 73 20 62 65 69 6e 67 20 63 6f 6d 70 alues being comp
9f80: 61 72 65 64 2c 20 65 6e 63 6f 64 65 64 20 69 6e ared, encoded in
9f90: 20 55 54 46 2d 38 2e 0a 2a 2a 20 54 68 65 20 3c UTF-8..** The <
9fa0: 65 6e 63 3e 20 70 61 72 61 6d 65 74 65 72 20 69 enc> parameter i
9fb0: 73 20 74 68 65 20 65 6e 63 6f 64 69 6e 67 20 6f s the encoding o
9fc0: 66 20 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 f the collation
9fd0: 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 0a 2a 2a function that.**
9fe0: 20 53 51 4c 69 74 65 20 73 65 6c 65 63 74 65 64 SQLite selected
9ff0: 20 74 6f 20 63 61 6c 6c 2e 20 54 68 65 20 54 43 to call. The TC
a000: 4c 20 74 65 73 74 20 73 63 72 69 70 74 20 69 6d L test script im
a010: 70 6c 65 6d 65 6e 74 73 20 74 68 65 0a 2a 2a 20 plements the.**
a020: 22 74 65 73 74 5f 63 6f 6c 6c 61 74 65 22 20 70 "test_collate" p
a030: 72 6f 63 2e 0a 2a 2a 0a 2a 2a 20 4e 6f 74 65 20 roc..**.** Note
a040: 74 68 61 74 20 74 68 69 73 20 77 69 6c 6c 20 6f that this will o
a050: 6e 6c 79 20 77 6f 72 6b 20 77 69 74 68 20 6f 6e nly work with on
a060: 65 20 69 6e 74 65 70 72 65 74 65 72 20 61 74 20 e intepreter at
a070: 61 20 74 69 6d 65 2c 20 61 73 20 74 68 65 0a 2a a time, as the.*
a080: 2a 20 69 6e 74 65 72 70 20 70 6f 69 6e 74 65 72 * interp pointer
a090: 20 74 6f 20 75 73 65 20 77 68 65 6e 20 65 76 61 to use when eva
a0a0: 6c 75 61 74 69 6e 67 20 74 68 65 20 54 43 4c 20 luating the TCL
a0b0: 73 63 72 69 70 74 20 69 73 20 73 74 6f 72 65 64 script is stored
a0c0: 20 69 6e 0a 2a 2a 20 70 54 65 73 74 43 6f 6c 6c in.** pTestColl
a0d0: 61 74 65 49 6e 74 65 72 70 2e 0a 2a 2f 0a 73 74 ateInterp..*/.st
a0e0: 61 74 69 63 20 54 63 6c 5f 49 6e 74 65 72 70 2a atic Tcl_Interp*
a0f0: 20 70 54 65 73 74 43 6f 6c 6c 61 74 65 49 6e 74 pTestCollateInt
a100: 65 72 70 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 erp;.static int
a110: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e test_collate_fun
a120: 63 28 0a 20 20 76 6f 69 64 20 2a 70 43 74 78 2c c(. void *pCtx,
a130: 20 0a 20 20 69 6e 74 20 6e 41 2c 20 63 6f 6e 73 . int nA, cons
a140: 74 20 76 6f 69 64 20 2a 7a 41 2c 0a 20 20 69 6e t void *zA,. in
a150: 74 20 6e 42 2c 20 63 6f 6e 73 74 20 76 6f 69 64 t nB, const void
a160: 20 2a 7a 42 0a 29 7b 0a 20 20 54 63 6c 5f 49 6e *zB.){. Tcl_In
a170: 74 65 72 70 20 2a 69 20 3d 20 70 54 65 73 74 43 terp *i = pTestC
a180: 6f 6c 6c 61 74 65 49 6e 74 65 72 70 3b 0a 20 20 ollateInterp;.
a190: 69 6e 74 20 65 6e 63 69 6e 20 3d 20 28 69 6e 74 int encin = (int
a1a0: 29 70 43 74 78 3b 0a 20 20 69 6e 74 20 72 65 73 )pCtx;. int res
a1b0: 3b 0a 20 20 69 6e 74 20 6e 3b 0a 0a 20 20 73 71 ;. int n;.. sq
a1c0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 lite3_value *pVa
a1d0: 6c 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 58 l;. Tcl_Obj *pX
a1e0: 3b 0a 0a 20 20 70 58 20 3d 20 54 63 6c 5f 4e 65 ;.. pX = Tcl_Ne
a1f0: 77 53 74 72 69 6e 67 4f 62 6a 28 22 74 65 73 74 wStringObj("test
a200: 5f 63 6f 6c 6c 61 74 65 22 2c 20 2d 31 29 3b 0a _collate", -1);.
a210: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
a220: 6e 74 28 70 58 29 3b 0a 0a 20 20 73 77 69 74 63 nt(pX);.. switc
a230: 68 28 20 65 6e 63 69 6e 20 29 7b 0a 20 20 20 20 h( encin ){.
a240: 63 61 73 65 20 53 51 4c 49 54 45 5f 55 54 46 38 case SQLITE_UTF8
a250: 3a 0a 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 :. Tcl_List
a260: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
a270: 28 69 2c 70 58 2c 54 63 6c 5f 4e 65 77 53 74 72 (i,pX,Tcl_NewStr
a280: 69 6e 67 4f 62 6a 28 22 55 54 46 2d 38 22 2c 2d ingObj("UTF-8",-
a290: 31 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 1));. break
a2a0: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
a2b0: 45 5f 55 54 46 31 36 4c 45 3a 0a 20 20 20 20 20 E_UTF16LE:.
a2c0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
a2d0: 6e 64 45 6c 65 6d 65 6e 74 28 69 2c 70 58 2c 54 ndElement(i,pX,T
a2e0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
a2f0: 22 55 54 46 2d 31 36 4c 45 22 2c 2d 31 29 29 3b "UTF-16LE",-1));
a300: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
a310: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 55 54 case SQLITE_UT
a320: 46 31 36 42 45 3a 0a 20 20 20 20 20 20 54 63 6c F16BE:. Tcl
a330: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
a340: 65 6d 65 6e 74 28 69 2c 70 58 2c 54 63 6c 5f 4e ement(i,pX,Tcl_N
a350: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 55 54 46 ewStringObj("UTF
a360: 2d 31 36 42 45 22 2c 2d 31 29 29 3b 0a 20 20 20 -16BE",-1));.
a370: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 64 65 break;. de
a380: 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 61 73 73 fault:. ass
a390: 65 72 74 28 30 29 3b 0a 20 20 7d 0a 0a 20 20 70 ert(0);. }.. p
a3a0: 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 56 61 6c Val = sqlite3Val
a3b0: 75 65 4e 65 77 28 29 3b 0a 20 20 73 71 6c 69 74 ueNew();. sqlit
a3c0: 65 33 56 61 6c 75 65 53 65 74 53 74 72 28 70 56 e3ValueSetStr(pV
a3d0: 61 6c 2c 20 6e 41 2c 20 7a 41 2c 20 65 6e 63 69 al, nA, zA, enci
a3e0: 6e 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 n, SQLITE_STATIC
a3f0: 29 3b 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 );. n = sqlite3
a400: 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 70 56 61 _value_bytes(pVa
a410: 6c 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 l);. Tcl_ListOb
a420: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
a430: 2c 70 58 2c 0a 20 20 20 20 20 20 54 63 6c 5f 4e ,pX,. Tcl_N
a440: 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 ewStringObj((cha
a450: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 r*)sqlite3_value
a460: 5f 74 65 78 74 28 70 56 61 6c 29 2c 6e 29 29 3b _text(pVal),n));
a470: 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 53 . sqlite3ValueS
a480: 65 74 53 74 72 28 70 56 61 6c 2c 20 6e 42 2c 20 etStr(pVal, nB,
a490: 7a 42 2c 20 65 6e 63 69 6e 2c 20 53 51 4c 49 54 zB, encin, SQLIT
a4a0: 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 6e 20 3d E_STATIC);. n =
a4b0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 sqlite3_value_b
a4c0: 79 74 65 73 28 70 56 61 6c 29 3b 0a 20 20 54 63 ytes(pVal);. Tc
a4d0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
a4e0: 6c 65 6d 65 6e 74 28 69 2c 70 58 2c 0a 20 20 20 lement(i,pX,.
a4f0: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
a500: 4f 62 6a 28 28 63 68 61 72 2a 29 73 71 6c 69 74 Obj((char*)sqlit
a510: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 70 56 e3_value_text(pV
a520: 61 6c 29 2c 6e 29 29 3b 0a 20 20 73 71 6c 69 74 al),n));. sqlit
a530: 65 33 56 61 6c 75 65 46 72 65 65 28 70 56 61 6c e3ValueFree(pVal
a540: 29 3b 0a 0a 20 20 54 63 6c 5f 45 76 61 6c 4f 62 );.. Tcl_EvalOb
a550: 6a 45 78 28 69 2c 20 70 58 2c 20 30 29 3b 0a 20 jEx(i, pX, 0);.
a560: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
a570: 74 28 70 58 29 3b 0a 20 20 54 63 6c 5f 47 65 74 t(pX);. Tcl_Get
a580: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 2c 20 54 63 IntFromObj(i, Tc
a590: 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_GetObjResult(i
a5a0: 29 2c 20 26 72 65 73 29 3b 0a 20 20 72 65 74 75 ), &res);. retu
a5b0: 72 6e 20 72 65 73 3b 0a 7d 0a 73 74 61 74 69 63 rn res;.}.static
a5c0: 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c 6c 61 74 int test_collat
a5d0: 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 e(. void * clie
a5e0: 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
a5f0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
a600: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
a610: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
a620: 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a ].){. sqlite3 *
a630: 64 62 3b 0a 20 20 69 6e 74 20 76 61 6c 3b 0a 20 db;. int val;.
a640: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
a650: 70 56 61 6c 3b 0a 20 20 69 6e 74 20 72 63 3b 0a pVal;. int rc;.
a660: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 . if( objc!=5 )
a670: 20 67 6f 74 6f 20 62 61 64 5f 61 72 67 73 3b 0a goto bad_args;.
a680: 20 20 70 54 65 73 74 43 6f 6c 6c 61 74 65 49 6e pTestCollateIn
a690: 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20 terp = interp;.
a6a0: 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
a6b0: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
a6c0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
a6d0: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
a6e0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 69 66 TCL_ERROR;.. if
a6f0: 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 ( TCL_OK!=Tcl_Ge
a700: 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 tBooleanFromObj(
a710: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
a720: 20 26 76 61 6c 29 20 29 20 72 65 74 75 72 6e 20 &val) ) return
a730: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 TCL_ERROR;. rc
a740: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
a750: 5f 63 6f 6c 6c 61 74 69 6f 6e 28 64 62 2c 20 22 _collation(db, "
a760: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 22 2c 20 53 test_collate", S
a770: 51 4c 49 54 45 5f 55 54 46 38 2c 20 0a 20 20 20 QLITE_UTF8, .
a780: 20 20 20 20 20 20 20 28 76 6f 69 64 20 2a 29 53 (void *)S
a790: 51 4c 49 54 45 5f 55 54 46 38 2c 20 76 61 6c 3f QLITE_UTF8, val?
a7a0: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e test_collate_fun
a7b0: 63 3a 30 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d c:0);. if( rc==
a7c0: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
a7d0: 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c if( TCL_OK!=Tcl
a7e0: 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f _GetBooleanFromO
a7f0: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
a800: 33 5d 2c 20 26 76 61 6c 29 20 29 20 72 65 74 75 3], &val) ) retu
a810: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
a820: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 rc = sqlite3_c
a830: 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 reate_collation(
a840: 64 62 2c 20 22 74 65 73 74 5f 63 6f 6c 6c 61 74 db, "test_collat
a850: 65 22 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 e", SQLITE_UTF16
a860: 4c 45 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 LE, .
a870: 20 28 76 6f 69 64 20 2a 29 53 51 4c 49 54 45 5f (void *)SQLITE_
a880: 55 54 46 31 36 4c 45 2c 20 76 61 6c 3f 74 65 73 UTF16LE, val?tes
a890: 74 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 3a 30 t_collate_func:0
a8a0: 29 3b 0a 20 20 20 20 69 66 28 20 54 43 4c 5f 4f );. if( TCL_O
a8b0: 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 K!=Tcl_GetBoolea
a8c0: 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c nFromObj(interp,
a8d0: 20 6f 62 6a 76 5b 34 5d 2c 20 26 76 61 6c 29 20 objv[4], &val)
a8e0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
a8f0: 4f 52 3b 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 OR;..#ifdef SQLI
a900: 54 45 5f 4d 45 4d 44 45 42 55 47 0a 20 20 20 20 TE_MEMDEBUG.
a910: 69 66 28 20 73 71 6c 69 74 65 33 5f 69 4d 61 6c if( sqlite3_iMal
a920: 6c 6f 63 46 61 69 6c 3e 30 20 29 7b 0a 20 20 20 locFail>0 ){.
a930: 20 20 20 73 71 6c 69 74 65 33 5f 69 4d 61 6c 6c sqlite3_iMall
a940: 6f 63 46 61 69 6c 2b 2b 3b 0a 20 20 20 20 7d 0a ocFail++;. }.
a950: 23 65 6e 64 69 66 0a 20 20 20 20 70 56 61 6c 20 #endif. pVal
a960: 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 = sqlite3ValueNe
a970: 77 28 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 w();. sqlite3
a980: 56 61 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c ValueSetStr(pVal
a990: 2c 20 2d 31 2c 20 22 74 65 73 74 5f 63 6f 6c 6c , -1, "test_coll
a9a0: 61 74 65 22 2c 20 53 51 4c 49 54 45 5f 55 54 46 ate", SQLITE_UTF
a9b0: 38 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 8, SQLITE_STATIC
a9c0: 29 3b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 );. rc = sqli
a9d0: 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 te3_create_colla
a9e0: 74 69 6f 6e 31 36 28 64 62 2c 20 0a 20 20 20 20 tion16(db, .
a9f0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 56 61 6c sqlite3Val
aa00: 75 65 54 65 78 74 28 70 56 61 6c 2c 20 53 51 4c ueText(pVal, SQL
aa10: 49 54 45 5f 55 54 46 31 36 4e 41 54 49 56 45 29 ITE_UTF16NATIVE)
aa20: 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 42 45 , SQLITE_UTF16BE
aa30: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 28 76 6f , . (vo
aa40: 69 64 20 2a 29 53 51 4c 49 54 45 5f 55 54 46 31 id *)SQLITE_UTF1
aa50: 36 42 45 2c 20 76 61 6c 3f 74 65 73 74 5f 63 6f 6BE, val?test_co
aa60: 6c 6c 61 74 65 5f 66 75 6e 63 3a 30 29 3b 0a 20 llate_func:0);.
aa70: 20 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 46 sqlite3ValueF
aa80: 72 65 65 28 70 56 61 6c 29 3b 0a 20 20 7d 0a 20 ree(pVal);. }.
aa90: 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
aaa0: 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
aab0: 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e db, rc) ) return
aac0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 0a 20 TCL_ERROR;. .
aad0: 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f if( rc!=SQLITE_
aae0: 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 OK ){. Tcl_Ap
aaf0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
ab00: 70 2c 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 p, sqlite3TestEr
ab10: 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b rorName(rc), 0);
ab20: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
ab30: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 ERROR;. }. ret
ab40: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 62 61 64 urn TCL_OK;..bad
ab50: 5f 61 72 67 73 3a 0a 20 20 54 63 6c 5f 41 70 70 _args:. Tcl_App
ab60: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
ab70: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
ab80: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a should be \"",.
ab90: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
aba0: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
abb0: 30 5d 2c 20 30 29 2c 20 22 20 3c 44 42 3e 20 3c 0], 0), " <DB> <
abc0: 75 74 66 38 3e 20 3c 75 74 66 31 36 6c 65 3e 20 utf8> <utf16le>
abd0: 3c 75 74 66 31 36 62 65 3e 22 2c 20 30 29 3b 0a <utf16be>", 0);.
abe0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
abf0: 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 68 65 OR;.}../*.** Whe
ac00: 6e 20 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 n the collation
ac10: 6e 65 65 64 65 64 20 63 61 6c 6c 62 61 63 6b 20 needed callback
ac20: 69 73 20 69 6e 76 6f 6b 65 64 2c 20 72 65 63 6f is invoked, reco
ac30: 72 64 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 0a rd the name of .
ac40: 2a 2a 20 74 68 65 20 72 65 71 75 65 73 74 65 64 ** the requested
ac50: 20 63 6f 6c 6c 61 74 69 6e 67 20 66 75 6e 63 74 collating funct
ac60: 69 6f 6e 20 68 65 72 65 2e 20 20 54 68 65 20 72 ion here. The r
ac70: 65 63 6f 72 64 65 64 20 6e 61 6d 65 20 69 73 20 ecorded name is
ac80: 6c 69 6e 6b 65 64 0a 2a 2a 20 74 6f 20 61 20 54 linked.** to a T
ac90: 43 4c 20 76 61 72 69 61 62 6c 65 20 61 6e 64 20 CL variable and
aca0: 75 73 65 64 20 74 6f 20 6d 61 6b 65 20 73 75 72 used to make sur
acb0: 65 20 74 68 61 74 20 74 68 65 20 72 65 71 75 65 e that the reque
acc0: 73 74 65 64 20 63 6f 6c 6c 61 74 69 6f 6e 0a 2a sted collation.*
acd0: 2a 20 6e 61 6d 65 20 69 73 20 63 6f 72 72 65 63 * name is correc
ace0: 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 t..*/.static cha
acf0: 72 20 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 r zNeededCollati
ad00: 6f 6e 5b 32 30 30 5d 3b 0a 73 74 61 74 69 63 20 on[200];.static
ad10: 63 68 61 72 20 2a 70 7a 4e 65 65 64 65 64 43 6f char *pzNeededCo
ad20: 6c 6c 61 74 69 6f 6e 20 3d 20 7a 4e 65 65 64 65 llation = zNeede
ad30: 64 43 6f 6c 6c 61 74 69 6f 6e 3b 0a 0a 0a 2f 2a dCollation;.../*
ad40: 0a 2a 2a 20 43 61 6c 6c 65 64 20 77 68 65 6e 20 .** Called when
ad50: 61 20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 a collating sequ
ad60: 65 6e 63 65 20 69 73 20 6e 65 65 64 65 64 2e 20 ence is needed.
ad70: 20 52 65 67 69 73 74 65 72 65 64 20 75 73 69 6e Registered usin
ad80: 67 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 63 6f 6c g.** sqlite3_col
ad90: 6c 61 74 69 6f 6e 5f 6e 65 65 64 65 64 31 36 28 lation_needed16(
ada0: 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 )..*/.static voi
adb0: 64 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e d test_collate_n
adc0: 65 65 64 65 64 5f 63 62 28 0a 20 20 76 6f 69 64 eeded_cb(. void
add0: 20 2a 70 43 74 78 2c 20 0a 20 20 73 71 6c 69 74 *pCtx, . sqlit
ade0: 65 33 20 2a 64 62 2c 0a 20 20 69 6e 74 20 65 54 e3 *db,. int eT
adf0: 65 78 74 52 65 70 2c 0a 20 20 63 6f 6e 73 74 20 extRep,. const
ae00: 76 6f 69 64 20 2a 70 4e 61 6d 65 0a 29 7b 0a 20 void *pName.){.
ae10: 20 69 6e 74 20 65 6e 63 20 3d 20 45 4e 43 28 64 int enc = ENC(d
ae20: 62 29 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 b);. int i;. c
ae30: 68 61 72 20 2a 7a 3b 0a 20 20 66 6f 72 28 7a 20 har *z;. for(z
ae40: 3d 20 28 63 68 61 72 2a 29 70 4e 61 6d 65 2c 20 = (char*)pName,
ae50: 69 3d 30 3b 20 2a 7a 20 7c 7c 20 7a 5b 31 5d 3b i=0; *z || z[1];
ae60: 20 7a 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 2a z++){. if( *
ae70: 7a 20 29 20 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 z ) zNeededColla
ae80: 74 69 6f 6e 5b 69 2b 2b 5d 20 3d 20 2a 7a 3b 0a tion[i++] = *z;.
ae90: 20 20 7d 0a 20 20 7a 4e 65 65 64 65 64 43 6f 6c }. zNeededCol
aea0: 6c 61 74 69 6f 6e 5b 69 5d 20 3d 20 30 3b 0a 20 lation[i] = 0;.
aeb0: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
aec0: 63 6f 6c 6c 61 74 69 6f 6e 28 0a 20 20 20 20 20 collation(.
aed0: 20 64 62 2c 20 22 74 65 73 74 5f 63 6f 6c 6c 61 db, "test_colla
aee0: 74 65 22 2c 20 45 4e 43 28 64 62 29 2c 20 28 76 te", ENC(db), (v
aef0: 6f 69 64 20 2a 29 65 6e 63 2c 20 74 65 73 74 5f oid *)enc, test_
af00: 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 29 3b 0a 7d collate_func);.}
af10: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 61 ../*.** Usage: a
af20: 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f dd_test_collate_
af30: 6e 65 65 64 65 64 20 44 42 0a 2a 2f 0a 73 74 61 needed DB.*/.sta
af40: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c tic int test_col
af50: 6c 61 74 65 5f 6e 65 65 64 65 64 28 0a 20 20 76 late_needed(. v
af60: 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
af70: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
af80: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
af90: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
afa0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
afb0: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
afc0: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
afd0: 62 6a 63 21 3d 32 20 29 20 67 6f 74 6f 20 62 61 bjc!=2 ) goto ba
afe0: 64 5f 61 72 67 73 3b 0a 20 20 69 66 28 20 67 65 d_args;. if( ge
aff0: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
b000: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
b010: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 (objv[1]), &db)
b020: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
b030: 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 OR;. rc = sqlit
b040: 65 33 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 6e 65 65 e3_collation_nee
b050: 64 65 64 31 36 28 64 62 2c 20 30 2c 20 74 65 73 ded16(db, 0, tes
b060: 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 64 t_collate_needed
b070: 5f 63 62 29 3b 0a 20 20 7a 4e 65 65 64 65 64 43 _cb);. zNeededC
b080: 6f 6c 6c 61 74 69 6f 6e 5b 30 5d 20 3d 20 30 3b ollation[0] = 0;
b090: 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 . if( sqlite3Te
b0a0: 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 stErrCode(interp
b0b0: 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 , db, rc) ) retu
b0c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
b0d0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a return TCL_OK;..
b0e0: 62 61 64 5f 61 72 67 73 3a 0a 20 20 54 63 6c 5f bad_args:. Tcl_
b0f0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
b100: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 erp, 1, objv, "D
b110: 42 22 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 B");. return TC
b120: 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 2a L_ERROR;.}../*.*
b130: 2a 20 74 63 6c 63 6d 64 3a 20 20 20 61 64 64 5f * tclcmd: add_
b140: 61 6c 69 67 6e 6d 65 6e 74 5f 74 65 73 74 5f 63 alignment_test_c
b150: 6f 6c 6c 61 74 69 6f 6e 73 20 20 44 42 0a 2a 2a ollations DB.**
b160: 0a 2a 2a 20 41 64 64 20 74 77 6f 20 6e 65 77 20 .** Add two new
b170: 63 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 65 6e collating sequen
b180: 63 65 73 20 74 6f 20 74 68 65 20 64 61 74 61 62 ces to the datab
b190: 61 73 65 20 44 42 0a 2a 2a 0a 2a 2a 20 20 20 20 ase DB.**.**
b1a0: 20 75 74 66 31 36 5f 61 6c 69 67 6e 65 64 0a 2a utf16_aligned.*
b1b0: 2a 20 20 20 20 20 75 74 66 31 36 5f 75 6e 61 6c * utf16_unal
b1c0: 69 67 6e 65 64 0a 2a 2a 0a 2a 2a 20 42 6f 74 68 igned.**.** Both
b1d0: 20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 65 collating seque
b1e0: 6e 63 65 73 20 75 73 65 20 74 68 65 20 73 61 6d nces use the sam
b1f0: 65 20 73 6f 72 74 20 6f 72 64 65 72 20 61 73 20 e sort order as
b200: 42 49 4e 41 52 59 2e 0a 2a 2a 20 54 68 65 20 6f BINARY..** The o
b210: 6e 6c 79 20 64 69 66 66 65 72 65 6e 63 65 20 69 nly difference i
b220: 73 20 74 68 61 74 20 74 68 65 20 75 74 66 31 36 s that the utf16
b230: 5f 61 6c 69 67 6e 65 64 20 63 6f 6c 6c 61 74 69 _aligned collati
b240: 6e 67 0a 2a 2a 20 73 65 71 75 65 6e 63 65 20 69 ng.** sequence i
b250: 73 20 64 65 63 6c 61 72 65 64 20 77 69 74 68 20 s declared with
b260: 74 68 65 20 53 51 4c 49 54 45 5f 55 54 46 31 36 the SQLITE_UTF16
b270: 5f 41 4c 49 47 4e 45 44 20 66 6c 61 67 2e 0a 2a _ALIGNED flag..*
b280: 2a 20 42 6f 74 68 20 63 6f 6c 6c 61 74 69 6e 67 * Both collating
b290: 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 63 72 65 functions incre
b2a0: 6d 65 6e 74 20 74 68 65 20 75 6e 61 6c 69 67 6e ment the unalign
b2b0: 65 64 20 75 74 66 31 36 20 63 6f 75 6e 74 65 72 ed utf16 counter
b2c0: 0a 2a 2a 20 77 68 65 6e 65 76 65 72 20 74 68 65 .** whenever the
b2d0: 79 20 73 65 65 20 61 20 73 74 72 69 6e 67 20 74 y see a string t
b2e0: 68 61 74 20 62 65 67 69 6e 73 20 6f 6e 20 61 6e hat begins on an
b2f0: 20 6f 64 64 20 62 79 74 65 20 62 6f 75 6e 64 61 odd byte bounda
b300: 72 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ry..*/.static in
b310: 74 20 75 6e 61 6c 69 67 6e 65 64 5f 73 74 72 69 t unaligned_stri
b320: 6e 67 5f 63 6f 75 6e 74 65 72 20 3d 20 30 3b 0a ng_counter = 0;.
b330: 73 74 61 74 69 63 20 69 6e 74 20 61 6c 69 67 6e static int align
b340: 6d 65 6e 74 43 6f 6c 6c 46 75 6e 63 28 0a 20 20 mentCollFunc(.
b350: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 void *NotUsed,.
b360: 20 69 6e 74 20 6e 4b 65 79 31 2c 20 63 6f 6e 73 int nKey1, cons
b370: 74 20 76 6f 69 64 20 2a 70 4b 65 79 31 2c 0a 20 t void *pKey1,.
b380: 20 69 6e 74 20 6e 4b 65 79 32 2c 20 63 6f 6e 73 int nKey2, cons
b390: 74 20 76 6f 69 64 20 2a 70 4b 65 79 32 0a 29 7b t void *pKey2.){
b3a0: 0a 20 20 69 6e 74 20 72 63 2c 20 6e 3b 0a 20 20 . int rc, n;.
b3b0: 6e 20 3d 20 6e 4b 65 79 31 3c 6e 4b 65 79 32 20 n = nKey1<nKey2
b3c0: 3f 20 6e 4b 65 79 31 20 3a 20 6e 4b 65 79 32 3b ? nKey1 : nKey2;
b3d0: 0a 20 20 69 66 28 20 6e 4b 65 79 31 3e 30 20 26 . if( nKey1>0 &
b3e0: 26 20 31 3d 3d 28 31 26 28 69 6e 74 29 70 4b 65 & 1==(1&(int)pKe
b3f0: 79 31 29 20 29 20 75 6e 61 6c 69 67 6e 65 64 5f y1) ) unaligned_
b400: 73 74 72 69 6e 67 5f 63 6f 75 6e 74 65 72 2b 2b string_counter++
b410: 3b 0a 20 20 69 66 28 20 6e 4b 65 79 32 3e 30 20 ;. if( nKey2>0
b420: 26 26 20 31 3d 3d 28 31 26 28 69 6e 74 29 70 4b && 1==(1&(int)pK
b430: 65 79 32 29 20 29 20 75 6e 61 6c 69 67 6e 65 64 ey2) ) unaligned
b440: 5f 73 74 72 69 6e 67 5f 63 6f 75 6e 74 65 72 2b _string_counter+
b450: 2b 3b 0a 20 20 72 63 20 3d 20 6d 65 6d 63 6d 70 +;. rc = memcmp
b460: 28 70 4b 65 79 31 2c 20 70 4b 65 79 32 2c 20 6e (pKey1, pKey2, n
b470: 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 30 20 29 );. if( rc==0 )
b480: 7b 0a 20 20 20 20 72 63 20 3d 20 6e 4b 65 79 31 {. rc = nKey1
b490: 20 2d 20 6e 4b 65 79 32 3b 0a 20 20 7d 0a 20 20 - nKey2;. }.
b4a0: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 73 74 61 return rc;.}.sta
b4b0: 74 69 63 20 69 6e 74 20 61 64 64 5f 61 6c 69 67 tic int add_alig
b4c0: 6e 6d 65 6e 74 5f 74 65 73 74 5f 63 6f 6c 6c 61 nment_test_colla
b4d0: 74 69 6f 6e 73 28 0a 20 20 76 6f 69 64 20 2a 20 tions(. void *
b4e0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
b4f0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
b500: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
b510: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
b520: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
b530: 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 6f 62 e3 *db;. if( ob
b540: 6a 63 3e 3d 32 20 29 7b 0a 20 20 20 20 69 66 28 jc>=2 ){. if(
b550: 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
b560: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
b570: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 ing(objv[1]), &d
b580: 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
b590: 45 52 52 4f 52 3b 0a 20 20 20 20 73 71 6c 69 74 ERROR;. sqlit
b5a0: 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 e3_create_collat
b5b0: 69 6f 6e 28 64 62 2c 20 22 75 74 66 31 36 5f 75 ion(db, "utf16_u
b5c0: 6e 61 6c 69 67 6e 65 64 22 2c 0a 20 20 20 20 20 naligned",.
b5d0: 20 20 20 53 51 4c 49 54 45 5f 55 54 46 31 36 2c SQLITE_UTF16,
b5e0: 20 0a 20 20 20 20 20 20 20 20 30 2c 20 61 6c 69 . 0, ali
b5f0: 67 6e 6d 65 6e 74 43 6f 6c 6c 46 75 6e 63 29 3b gnmentCollFunc);
b600: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 . sqlite3_cre
b610: 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 64 62 ate_collation(db
b620: 2c 20 22 75 74 66 31 36 5f 61 6c 69 67 6e 65 64 , "utf16_aligned
b630: 22 2c 0a 20 20 20 20 20 20 20 20 53 51 4c 49 54 ",. SQLIT
b640: 45 5f 55 54 46 31 36 20 7c 20 53 51 4c 49 54 45 E_UTF16 | SQLITE
b650: 5f 55 54 46 31 36 5f 41 4c 49 47 4e 45 44 2c 20 _UTF16_ALIGNED,
b660: 0a 20 20 20 20 20 20 20 20 30 2c 20 61 6c 69 67 . 0, alig
b670: 6e 6d 65 6e 74 43 6f 6c 6c 46 75 6e 63 29 3b 0a nmentCollFunc);.
b680: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 53 51 4c }. return SQL
b690: 49 54 45 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 ITE_OK;.}.#endif
b6a0: 20 2f 2a 20 21 64 65 66 69 6e 65 64 28 53 51 4c /* !defined(SQL
b6b0: 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 29 20 ITE_OMIT_UTF16)
b6c0: 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a */../*.** Usage:
b6d0: 20 61 64 64 5f 74 65 73 74 5f 66 75 6e 63 74 69 add_test_functi
b6e0: 6f 6e 20 3c 64 62 20 70 74 72 3e 20 3c 75 74 66 on <db ptr> <utf
b6f0: 38 3e 20 3c 75 74 66 31 36 6c 65 3e 20 3c 75 74 8> <utf16le> <ut
b700: 66 31 36 62 65 3e 0a 2a 2a 0a 2a 2a 20 54 68 69 f16be>.**.** Thi
b710: 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 s function is us
b720: 65 64 20 74 6f 20 74 65 73 74 20 74 68 61 74 20 ed to test that
b730: 53 51 4c 69 74 65 20 73 65 6c 65 63 74 73 20 74 SQLite selects t
b740: 68 65 20 63 6f 72 72 65 63 74 20 75 73 65 72 0a he correct user.
b750: 2a 2a 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c ** function call
b760: 62 61 63 6b 20 77 68 65 6e 20 6d 75 6c 74 69 70 back when multip
b770: 6c 65 20 76 65 72 73 69 6f 6e 73 20 28 66 6f 72 le versions (for
b780: 20 64 69 66 66 65 72 65 6e 74 20 74 65 78 74 20 different text
b790: 65 6e 63 6f 64 69 6e 67 73 29 0a 2a 2a 20 61 72 encodings).** ar
b7a0: 65 20 61 76 61 69 6c 61 62 6c 65 2e 0a 2a 2a 0a e available..**.
b7b0: 2a 2a 20 43 61 6c 6c 69 6e 67 20 74 68 69 73 20 ** Calling this
b7c0: 72 6f 75 74 69 6e 65 20 72 65 67 69 73 74 65 72 routine register
b7d0: 73 20 75 70 20 74 6f 20 74 68 72 65 65 20 76 65 s up to three ve
b7e0: 72 73 69 6f 6e 73 20 6f 66 20 74 68 65 20 75 73 rsions of the us
b7f0: 65 72 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 22 er function.** "
b800: 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 20 77 test_function" w
b810: 69 74 68 20 64 61 74 61 62 61 73 65 20 68 61 6e ith database han
b820: 64 6c 65 20 3c 64 62 3e 2e 20 20 49 66 20 74 68 dle <db>. If th
b830: 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e e second argumen
b840: 74 20 69 73 0a 2a 2a 20 74 72 75 65 2c 20 74 68 t is.** true, th
b850: 65 6e 20 61 20 76 65 72 73 69 6f 6e 20 6f 66 20 en a version of
b860: 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 69 73 test_function is
b870: 20 72 65 67 69 73 74 65 72 65 64 20 66 6f 72 20 registered for
b880: 55 54 46 2d 38 2c 20 69 66 20 74 68 65 0a 2a 2a UTF-8, if the.**
b890: 20 74 68 69 72 64 20 69 73 20 74 72 75 65 2c 20 third is true,
b8a0: 61 20 76 65 72 73 69 6f 6e 20 69 73 20 72 65 67 a version is reg
b8b0: 69 73 74 65 72 65 64 20 66 6f 72 20 55 54 46 2d istered for UTF-
b8c0: 31 36 6c 65 2c 20 69 66 20 74 68 65 20 66 6f 75 16le, if the fou
b8d0: 72 74 68 20 69 73 0a 2a 2a 20 74 72 75 65 2c 20 rth is.** true,
b8e0: 61 20 55 54 46 2d 31 36 62 65 20 76 65 72 73 69 a UTF-16be versi
b8f0: 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e on is available.
b900: 20 20 50 72 65 76 69 6f 75 73 20 76 65 72 73 69 Previous versi
b910: 6f 6e 73 20 6f 66 0a 2a 2a 20 74 65 73 74 5f 66 ons of.** test_f
b920: 75 6e 63 74 69 6f 6e 20 61 72 65 20 64 65 6c 65 unction are dele
b930: 74 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 75 ted..**.** The u
b940: 73 65 72 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 ser function is
b950: 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 63 implemented by c
b960: 61 6c 6c 69 6e 67 20 74 68 65 20 66 6f 6c 6c 6f alling the follo
b970: 77 69 6e 67 20 54 43 4c 20 73 63 72 69 70 74 3a wing TCL script:
b980: 0a 2a 2a 0a 2a 2a 20 20 20 22 74 65 73 74 5f 66 .**.** "test_f
b990: 75 6e 63 74 69 6f 6e 20 3c 65 6e 63 3e 20 3c 61 unction <enc> <a
b9a0: 72 67 3e 22 0a 2a 2a 0a 2a 2a 20 57 68 65 72 65 rg>".**.** Where
b9b0: 20 3c 65 6e 63 3e 20 69 73 20 6f 6e 65 20 6f 66 <enc> is one of
b9c0: 20 55 54 46 2d 38 2c 20 55 54 46 2d 31 36 4c 45 UTF-8, UTF-16LE
b9d0: 20 6f 72 20 55 54 46 31 36 42 45 2c 20 61 6e 64 or UTF16BE, and
b9e0: 20 3c 61 72 67 3e 20 69 73 20 74 68 65 0a 2a 2a <arg> is the.**
b9f0: 20 73 69 6e 67 6c 65 20 61 72 67 75 6d 65 6e 74 single argument
ba00: 20 70 61 73 73 65 64 20 74 6f 20 74 68 65 20 53 passed to the S
ba10: 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 54 68 65 QL function. The
ba20: 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64 20 value returned
ba30: 62 79 0a 2a 2a 20 74 68 65 20 54 43 4c 20 73 63 by.** the TCL sc
ba40: 72 69 70 74 20 69 73 20 75 73 65 64 20 61 73 20 ript is used as
ba50: 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 the return value
ba60: 20 6f 66 20 74 68 65 20 53 51 4c 20 66 75 6e 63 of the SQL func
ba70: 74 69 6f 6e 2e 20 49 74 0a 2a 2a 20 69 73 20 70 tion. It.** is p
ba80: 61 73 73 65 64 20 74 6f 20 53 51 4c 69 74 65 20 assed to SQLite
ba90: 75 73 69 6e 67 20 55 54 46 2d 31 36 42 45 20 66 using UTF-16BE f
baa0: 6f 72 20 61 20 55 54 46 2d 38 20 74 65 73 74 5f or a UTF-8 test_
bab0: 66 75 6e 63 74 69 6f 6e 28 29 2c 20 55 54 46 2d function(), UTF-
bac0: 38 0a 2a 2a 20 66 6f 72 20 61 20 55 54 46 2d 31 8.** for a UTF-1
bad0: 36 4c 45 20 74 65 73 74 5f 66 75 6e 63 74 69 6f 6LE test_functio
bae0: 6e 28 29 2c 20 61 6e 64 20 55 54 46 2d 31 36 4c n(), and UTF-16L
baf0: 45 20 66 6f 72 20 61 6e 20 69 6d 70 6c 65 6d 65 E for an impleme
bb00: 6e 74 61 74 69 6f 6e 20 74 68 61 74 0a 2a 2a 20 ntation that.**
bb10: 70 72 65 66 65 72 73 20 55 54 46 2d 31 36 42 45 prefers UTF-16BE
bb20: 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c ..*/.#ifndef SQL
bb30: 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 73 ITE_OMIT_UTF16.s
bb40: 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f tatic void test_
bb50: 66 75 6e 63 74 69 6f 6e 5f 75 74 66 38 28 0a 20 function_utf8(.
bb60: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
bb70: 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e *pCtx, . int n
bb80: 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 Arg,. sqlite3_v
bb90: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
bba0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
bbb0: 65 72 70 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a erp;. Tcl_Obj *
bbc0: 70 58 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 pX;. sqlite3_va
bbd0: 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 20 69 6e 74 lue *pVal;. int
bbe0: 65 72 70 20 3d 20 28 54 63 6c 5f 49 6e 74 65 72 erp = (Tcl_Inter
bbf0: 70 20 2a 29 73 71 6c 69 74 65 33 5f 75 73 65 72 p *)sqlite3_user
bc00: 5f 64 61 74 61 28 70 43 74 78 29 3b 0a 20 20 70 _data(pCtx);. p
bc10: 58 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e X = Tcl_NewStrin
bc20: 67 4f 62 6a 28 22 74 65 73 74 5f 66 75 6e 63 74 gObj("test_funct
bc30: 69 6f 6e 22 2c 20 2d 31 29 3b 0a 20 20 54 63 6c ion", -1);. Tcl
bc40: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 58 _IncrRefCount(pX
bc50: 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a );. Tcl_ListObj
bc60: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
bc70: 74 65 72 70 2c 20 70 58 2c 20 54 63 6c 5f 4e 65 terp, pX, Tcl_Ne
bc80: 77 53 74 72 69 6e 67 4f 62 6a 28 22 55 54 46 2d wStringObj("UTF-
bc90: 38 22 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 8", -1));. Tcl_
bca0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
bcb0: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 58 2c ment(interp, pX,
bcc0: 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 . Tcl_NewS
bcd0: 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 72 2a 29 tringObj((char*)
bce0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
bcf0: 78 74 28 61 72 67 76 5b 30 5d 29 2c 20 2d 31 29 xt(argv[0]), -1)
bd00: 29 3b 0a 20 20 54 63 6c 5f 45 76 61 6c 4f 62 6a );. Tcl_EvalObj
bd10: 45 78 28 69 6e 74 65 72 70 2c 20 70 58 2c 20 30 Ex(interp, pX, 0
bd20: 29 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 );. Tcl_DecrRef
bd30: 43 6f 75 6e 74 28 70 58 29 3b 0a 20 20 73 71 6c Count(pX);. sql
bd40: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
bd50: 28 70 43 74 78 2c 20 54 63 6c 5f 47 65 74 53 74 (pCtx, Tcl_GetSt
bd60: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 ringResult(inter
bd70: 70 29 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 p), -1, SQLITE_T
bd80: 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 70 56 61 RANSIENT);. pVa
bd90: 6c 20 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65 l = sqlite3Value
bda0: 4e 65 77 28 29 3b 0a 20 20 73 71 6c 69 74 65 33 New();. sqlite3
bdb0: 56 61 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c ValueSetStr(pVal
bdc0: 2c 20 2d 31 2c 20 54 63 6c 5f 47 65 74 53 74 72 , -1, Tcl_GetStr
bdd0: 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ingResult(interp
bde0: 29 2c 20 0a 20 20 20 20 20 20 53 51 4c 49 54 45 ), . SQLITE
bdf0: 5f 55 54 46 38 2c 20 53 51 4c 49 54 45 5f 53 54 _UTF8, SQLITE_ST
be00: 41 54 49 43 29 3b 0a 20 20 73 71 6c 69 74 65 33 ATIC);. sqlite3
be10: 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 62 65 _result_text16be
be20: 28 70 43 74 78 2c 20 73 71 6c 69 74 65 33 5f 76 (pCtx, sqlite3_v
be30: 61 6c 75 65 5f 74 65 78 74 31 36 62 65 28 70 56 alue_text16be(pV
be40: 61 6c 29 2c 0a 20 20 20 20 20 20 2d 31 2c 20 53 al),. -1, S
be50: 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 QLITE_TRANSIENT)
be60: 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 ;. sqlite3Value
be70: 46 72 65 65 28 70 56 61 6c 29 3b 0a 7d 0a 73 74 Free(pVal);.}.st
be80: 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f 66 atic void test_f
be90: 75 6e 63 74 69 6f 6e 5f 75 74 66 31 36 6c 65 28 unction_utf16le(
bea0: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 . sqlite3_conte
beb0: 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 xt *pCtx, . int
bec0: 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 nArg,. sqlite3
bed0: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
bee0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
bef0: 6e 74 65 72 70 3b 0a 20 20 54 63 6c 5f 4f 62 6a nterp;. Tcl_Obj
bf00: 20 2a 70 58 3b 0a 20 20 73 71 6c 69 74 65 33 5f *pX;. sqlite3_
bf10: 76 61 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 20 69 value *pVal;. i
bf20: 6e 74 65 72 70 20 3d 20 28 54 63 6c 5f 49 6e 74 nterp = (Tcl_Int
bf30: 65 72 70 20 2a 29 73 71 6c 69 74 65 33 5f 75 73 erp *)sqlite3_us
bf40: 65 72 5f 64 61 74 61 28 70 43 74 78 29 3b 0a 20 er_data(pCtx);.
bf50: 20 70 58 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 pX = Tcl_NewStr
bf60: 69 6e 67 4f 62 6a 28 22 74 65 73 74 5f 66 75 6e ingObj("test_fun
bf70: 63 74 69 6f 6e 22 2c 20 2d 31 29 3b 0a 20 20 54 ction", -1);. T
bf80: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
bf90: 70 58 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f pX);. Tcl_ListO
bfa0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
bfb0: 69 6e 74 65 72 70 2c 20 70 58 2c 20 54 63 6c 5f interp, pX, Tcl_
bfc0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 55 54 NewStringObj("UT
bfd0: 46 2d 31 36 4c 45 22 2c 20 2d 31 29 29 3b 0a 20 F-16LE", -1));.
bfe0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
bff0: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
c000: 2c 20 70 58 2c 20 0a 20 20 20 20 20 20 54 63 6c , pX, . Tcl
c010: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 _NewStringObj((c
c020: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
c030: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 ue_text(argv[0])
c040: 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 45 76 , -1));. Tcl_Ev
c050: 61 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 alObjEx(interp,
c060: 70 58 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 44 65 pX, 0);. Tcl_De
c070: 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a crRefCount(pX);.
c080: 20 20 70 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 pVal = sqlite3
c090: 56 61 6c 75 65 4e 65 77 28 29 3b 0a 20 20 73 71 ValueNew();. sq
c0a0: 6c 69 74 65 33 56 61 6c 75 65 53 65 74 53 74 72 lite3ValueSetStr
c0b0: 28 70 56 61 6c 2c 20 2d 31 2c 20 54 63 6c 5f 47 (pVal, -1, Tcl_G
c0c0: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 etStringResult(i
c0d0: 6e 74 65 72 70 29 2c 20 0a 20 20 20 20 20 20 53 nterp), . S
c0e0: 51 4c 49 54 45 5f 55 54 46 38 2c 20 53 51 4c 49 QLITE_UTF8, SQLI
c0f0: 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 73 71 TE_STATIC);. sq
c100: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
c110: 74 28 70 43 74 78 2c 28 63 68 61 72 2a 29 73 71 t(pCtx,(char*)sq
c120: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
c130: 28 70 56 61 6c 29 2c 2d 31 2c 53 51 4c 49 54 45 (pVal),-1,SQLITE
c140: 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 73 _TRANSIENT);. s
c150: 71 6c 69 74 65 33 56 61 6c 75 65 46 72 65 65 28 qlite3ValueFree(
c160: 70 56 61 6c 29 3b 0a 7d 0a 73 74 61 74 69 63 20 pVal);.}.static
c170: 76 6f 69 64 20 74 65 73 74 5f 66 75 6e 63 74 69 void test_functi
c180: 6f 6e 5f 75 74 66 31 36 62 65 28 0a 20 20 73 71 on_utf16be(. sq
c190: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 lite3_context *p
c1a0: 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 Ctx, . int nArg
c1b0: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ,. sqlite3_valu
c1c0: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 54 63 e **argv.){. Tc
c1d0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
c1e0: 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 58 3b ;. Tcl_Obj *pX;
c1f0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
c200: 20 2a 70 56 61 6c 3b 0a 20 20 69 6e 74 65 72 70 *pVal;. interp
c210: 20 3d 20 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a = (Tcl_Interp *
c220: 29 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 )sqlite3_user_da
c230: 74 61 28 70 43 74 78 29 3b 0a 20 20 70 58 20 3d ta(pCtx);. pX =
c240: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
c250: 6a 28 22 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e j("test_function
c260: 22 2c 20 2d 31 29 3b 0a 20 20 54 63 6c 5f 49 6e ", -1);. Tcl_In
c270: 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a crRefCount(pX);.
c280: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
c290: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
c2a0: 70 2c 20 70 58 2c 20 54 63 6c 5f 4e 65 77 53 74 p, pX, Tcl_NewSt
c2b0: 72 69 6e 67 4f 62 6a 28 22 55 54 46 2d 31 36 42 ringObj("UTF-16B
c2c0: 45 22 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f E", -1));. Tcl_
c2d0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
c2e0: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 58 2c ment(interp, pX,
c2f0: 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 . Tcl_NewS
c300: 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 72 2a 29 tringObj((char*)
c310: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
c320: 78 74 28 61 72 67 76 5b 30 5d 29 2c 20 2d 31 29 xt(argv[0]), -1)
c330: 29 3b 0a 20 20 54 63 6c 5f 45 76 61 6c 4f 62 6a );. Tcl_EvalObj
c340: 45 78 28 69 6e 74 65 72 70 2c 20 70 58 2c 20 30 Ex(interp, pX, 0
c350: 29 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 );. Tcl_DecrRef
c360: 43 6f 75 6e 74 28 70 58 29 3b 0a 20 20 70 56 61 Count(pX);. pVa
c370: 6c 20 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65 l = sqlite3Value
c380: 4e 65 77 28 29 3b 0a 20 20 73 71 6c 69 74 65 33 New();. sqlite3
c390: 56 61 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c ValueSetStr(pVal
c3a0: 2c 20 2d 31 2c 20 54 63 6c 5f 47 65 74 53 74 72 , -1, Tcl_GetStr
c3b0: 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ingResult(interp
c3c0: 29 2c 20 0a 20 20 20 20 20 20 53 51 4c 49 54 45 ), . SQLITE
c3d0: 5f 55 54 46 38 2c 20 53 51 4c 49 54 45 5f 53 54 _UTF8, SQLITE_ST
c3e0: 41 54 49 43 29 3b 0a 20 20 73 71 6c 69 74 65 33 ATIC);. sqlite3
c3f0: 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 6c 65 _result_text16le
c400: 28 70 43 74 78 2c 20 73 71 6c 69 74 65 33 5f 76 (pCtx, sqlite3_v
c410: 61 6c 75 65 5f 74 65 78 74 31 36 6c 65 28 70 56 alue_text16le(pV
c420: 61 6c 29 2c 0a 20 20 20 20 20 20 2d 31 2c 20 53 al),. -1, S
c430: 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 QLITE_TRANSIENT)
c440: 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 ;. sqlite3Value
c450: 46 72 65 65 28 70 56 61 6c 29 3b 0a 7d 0a 23 65 Free(pVal);.}.#e
c460: 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f ndif /* SQLITE_O
c470: 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a 73 74 61 MIT_UTF16 */.sta
c480: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 66 75 6e tic int test_fun
c490: 63 74 69 6f 6e 28 0a 20 20 76 6f 69 64 20 2a 20 ction(. void *
c4a0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
c4b0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
c4c0: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
c4d0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
c4e0: 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 bjv[].){.#ifndef
c4f0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 SQLITE_OMIT_UTF
c500: 31 36 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 16. sqlite3 *db
c510: 3b 0a 20 20 69 6e 74 20 76 61 6c 3b 0a 0a 20 20 ;. int val;..
c520: 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 20 67 6f if( objc!=5 ) go
c530: 74 6f 20 62 61 64 5f 61 72 67 73 3b 0a 20 20 69 to bad_args;. i
c540: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
c550: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
c560: 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
c570: 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
c580: 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 69 66 28 20 L_ERROR;.. if(
c590: 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 TCL_OK!=Tcl_GetB
c5a0: 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e ooleanFromObj(in
c5b0: 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 terp, objv[2], &
c5c0: 76 61 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 val) ) return TC
c5d0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 76 L_ERROR;. if( v
c5e0: 61 6c 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 al ){. sqlite
c5f0: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 3_create_functio
c600: 6e 28 64 62 2c 20 22 74 65 73 74 5f 66 75 6e 63 n(db, "test_func
c610: 74 69 6f 6e 22 2c 20 31 2c 20 53 51 4c 49 54 45 tion", 1, SQLITE
c620: 5f 55 54 46 38 2c 20 0a 20 20 20 20 20 20 20 20 _UTF8, .
c630: 69 6e 74 65 72 70 2c 20 74 65 73 74 5f 66 75 6e interp, test_fun
c640: 63 74 69 6f 6e 5f 75 74 66 38 2c 20 30 2c 20 30 ction_utf8, 0, 0
c650: 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 43 4c );. }. if( TCL
c660: 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c _OK!=Tcl_GetBool
c670: 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 eanFromObj(inter
c680: 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c p, objv[3], &val
c690: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
c6a0: 52 52 4f 52 3b 0a 20 20 69 66 28 20 76 61 6c 20 RROR;. if( val
c6b0: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 ){. sqlite3_c
c6c0: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 reate_function(d
c6d0: 62 2c 20 22 74 65 73 74 5f 66 75 6e 63 74 69 6f b, "test_functio
c6e0: 6e 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 n", 1, SQLITE_UT
c6f0: 46 31 36 4c 45 2c 20 0a 20 20 20 20 20 20 20 20 F16LE, .
c700: 69 6e 74 65 72 70 2c 20 74 65 73 74 5f 66 75 6e interp, test_fun
c710: 63 74 69 6f 6e 5f 75 74 66 31 36 6c 65 2c 20 30 ction_utf16le, 0
c720: 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 , 0);. }. if(
c730: 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 TCL_OK!=Tcl_GetB
c740: 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e ooleanFromObj(in
c750: 74 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 terp, objv[4], &
c760: 76 61 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 val) ) return TC
c770: 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 76 L_ERROR;. if( v
c780: 61 6c 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 al ){. sqlite
c790: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 3_create_functio
c7a0: 6e 28 64 62 2c 20 22 74 65 73 74 5f 66 75 6e 63 n(db, "test_func
c7b0: 74 69 6f 6e 22 2c 20 31 2c 20 53 51 4c 49 54 45 tion", 1, SQLITE
c7c0: 5f 55 54 46 31 36 42 45 2c 20 0a 20 20 20 20 20 _UTF16BE, .
c7d0: 20 20 20 69 6e 74 65 72 70 2c 20 74 65 73 74 5f interp, test_
c7e0: 66 75 6e 63 74 69 6f 6e 5f 75 74 66 31 36 62 65 function_utf16be
c7f0: 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 0a 20 20 , 0, 0);. }..
c800: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 62 return TCL_OK;.b
c810: 61 64 5f 61 72 67 73 3a 0a 20 20 54 63 6c 5f 41 ad_args:. Tcl_A
c820: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
c830: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
c840: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
c850: 2c 0a 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 ,. Tcl_GetS
c860: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
c870: 76 5b 30 5d 2c 20 30 29 2c 20 22 20 3c 44 42 3e v[0], 0), " <DB>
c880: 20 3c 75 74 66 38 3e 20 3c 75 74 66 31 36 6c 65 <utf8> <utf16le
c890: 3e 20 3c 75 74 66 31 36 62 65 3e 22 2c 20 30 29 > <utf16be>", 0)
c8a0: 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 ;.#endif /* SQLI
c8b0: 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f TE_OMIT_UTF16 */
c8c0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 . return TCL_ER
c8d0: 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 ROR;.}../*.** Us
c8e0: 61 67 65 3a 20 20 20 20 20 20 20 20 20 74 65 73 age: tes
c8f0: 74 5f 65 72 72 73 74 72 20 3c 65 72 72 20 63 6f t_errstr <err co
c900: 64 65 3e 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 de>.**.** Test t
c910: 68 61 74 20 74 68 65 20 65 6e 67 6c 69 73 68 20 hat the english
c920: 6c 61 6e 67 75 61 67 65 20 73 74 72 69 6e 67 20 language string
c930: 65 71 75 69 76 61 6c 65 6e 74 73 20 66 6f 72 20 equivalents for
c940: 73 71 6c 69 74 65 20 65 72 72 6f 72 20 63 6f 64 sqlite error cod
c950: 65 73 0a 2a 2a 20 61 72 65 20 73 61 6e 65 2e 20 es.** are sane.
c960: 54 68 65 20 70 61 72 61 6d 65 74 65 72 20 69 73 The parameter is
c970: 20 61 6e 20 69 6e 74 65 67 65 72 20 72 65 70 72 an integer repr
c980: 65 73 65 6e 74 69 6e 67 20 61 6e 20 73 71 6c 69 esenting an sqli
c990: 74 65 20 65 72 72 6f 72 20 63 6f 64 65 2e 0a 2a te error code..*
c9a0: 2a 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 * The result is
c9b0: 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65 6c a list of two el
c9c0: 65 6d 65 6e 74 73 2c 20 74 68 65 20 73 74 72 69 ements, the stri
c9d0: 6e 67 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f ng representatio
c9e0: 6e 20 6f 66 20 74 68 65 0a 2a 2a 20 65 72 72 6f n of the.** erro
c9f0: 72 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 65 r code and the e
ca00: 6e 67 6c 69 73 68 20 6c 61 6e 67 75 61 67 65 20 nglish language
ca10: 65 78 70 6c 61 6e 61 74 69 6f 6e 2e 0a 2a 2f 0a explanation..*/.
ca20: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
ca30: 65 72 72 73 74 72 28 0a 20 20 76 6f 69 64 20 2a errstr(. void *
ca40: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
ca50: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
ca60: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
ca70: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
ca80: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 63 68 61 72 objv[].){. char
ca90: 20 2a 7a 43 6f 64 65 3b 0a 20 20 69 6e 74 20 69 *zCode;. int i
caa0: 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 ;. if( objc!=1
cab0: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
cac0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
cad0: 31 2c 20 6f 62 6a 76 2c 20 22 3c 65 72 72 6f 72 1, objv, "<error
cae0: 20 63 6f 64 65 3e 22 29 3b 0a 20 20 7d 0a 0a 20 code>");. }..
caf0: 20 7a 43 6f 64 65 20 3d 20 54 63 6c 5f 47 65 74 zCode = Tcl_Get
cb00: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b String(objv[1]);
cb10: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 32 30 . for(i=0; i<20
cb20: 30 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 0; i++){. if(
cb30: 20 30 3d 3d 73 74 72 63 6d 70 28 65 72 72 6f 72 0==strcmp(error
cb40: 4e 61 6d 65 28 69 29 2c 20 7a 43 6f 64 65 29 20 Name(i), zCode)
cb50: 29 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 54 ) break;. }. T
cb60: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
cb70: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c erp, (char *)sql
cb80: 69 74 65 33 45 72 72 53 74 72 28 69 29 2c 20 30 ite3ErrStr(i), 0
cb90: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
cba0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
cbb0: 67 65 3a 20 20 20 20 62 72 65 61 6b 70 6f 69 6e ge: breakpoin
cbc0: 74 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 t.**.** This rou
cbd0: 74 69 6e 65 20 65 78 69 73 74 73 20 66 6f 72 20 tine exists for
cbe0: 6f 6e 65 20 70 75 72 70 6f 73 65 20 2d 20 74 6f one purpose - to
cbf0: 20 70 72 6f 76 69 64 65 20 61 20 70 6c 61 63 65 provide a place
cc00: 20 74 6f 20 70 75 74 20 61 0a 2a 2a 20 62 72 65 to put a.** bre
cc10: 61 6b 70 6f 69 6e 74 20 77 69 74 68 20 47 44 42 akpoint with GDB
cc20: 20 74 68 61 74 20 63 61 6e 20 62 65 20 74 72 69 that can be tri
cc30: 67 67 65 72 65 64 20 75 73 69 6e 67 20 54 43 4c ggered using TCL
cc40: 20 63 6f 64 65 2e 20 20 54 68 65 20 75 73 65 0a code. The use.
cc50: 2a 2a 20 66 6f 72 20 74 68 69 73 20 69 73 20 77 ** for this is w
cc60: 68 65 6e 20 61 20 70 61 72 74 69 63 75 6c 61 72 hen a particular
cc70: 20 74 65 73 74 20 66 61 69 6c 73 20 6f 6e 20 28 test fails on (
cc80: 73 61 79 29 20 74 68 65 20 31 34 38 35 74 68 20 say) the 1485th
cc90: 69 74 65 72 61 74 69 6f 6e 2e 0a 2a 2a 20 49 6e iteration..** In
cca0: 20 74 68 65 20 54 43 4c 20 74 65 73 74 20 73 63 the TCL test sc
ccb0: 72 69 70 74 2c 20 77 65 20 63 61 6e 20 61 64 64 ript, we can add
ccc0: 20 63 6f 64 65 20 6c 69 6b 65 20 74 68 69 73 3a code like this:
ccd0: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 69 66 20 7b 24 .**.** if {$
cce0: 69 3d 3d 31 34 38 35 7d 20 62 72 65 61 6b 70 6f i==1485} breakpo
ccf0: 69 6e 74 0a 2a 2a 0a 2a 2a 20 54 68 65 6e 20 72 int.**.** Then r
cd00: 75 6e 20 74 65 73 74 66 69 78 74 75 72 65 20 69 un testfixture i
cd10: 6e 20 74 68 65 20 64 65 62 75 67 67 65 72 20 61 n the debugger a
cd20: 6e 64 20 77 61 69 74 20 66 6f 72 20 74 68 65 20 nd wait for the
cd30: 62 72 65 61 6b 70 6f 69 6e 74 20 74 6f 0a 2a 2a breakpoint to.**
cd40: 20 66 69 72 65 2e 20 20 54 68 65 6e 20 61 64 64 fire. Then add
cd50: 69 74 69 6f 6e 61 6c 20 62 72 65 61 6b 70 6f 69 itional breakpoi
cd60: 6e 74 73 20 63 61 6e 20 62 65 20 73 65 74 20 74 nts can be set t
cd70: 6f 20 74 72 61 63 65 20 64 6f 77 6e 20 74 68 65 o trace down the
cd80: 20 62 75 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 bug..*/.static
cd90: 69 6e 74 20 74 65 73 74 5f 62 72 65 61 6b 70 6f int test_breakpo
cda0: 69 6e 74 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 int(. void *Not
cdb0: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
cdc0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
cdd0: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
cde0: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
cdf0: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
ce00: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
ce10: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
ce20: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
ce30: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
ce40: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
ce50: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
ce60: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
ce70: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 20 20 return TCL_OK;
ce80: 20 20 20 20 20 20 20 2f 2a 20 44 6f 20 6e 6f 74 /* Do not
ce90: 68 69 6e 67 20 2a 2f 0a 7d 0a 0a 2f 2a 0a 2a 2a hing */.}../*.**
cea0: 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 Usage: sqlite
ceb0: 33 5f 62 69 6e 64 5f 69 6e 74 20 20 53 54 4d 54 3_bind_int STMT
cec0: 20 4e 20 56 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 N VALUE.**.** T
ced0: 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f est the sqlite3_
cee0: 62 69 6e 64 5f 69 6e 74 20 69 6e 74 65 72 66 61 bind_int interfa
cef0: 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 ce. STMT is a p
cf00: 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
cf10: 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 t..** N is the i
cf20: 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 ndex of a wildca
cf30: 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 rd in the prepar
cf40: 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 ed statement. T
cf50: 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 his command.** b
cf60: 69 6e 64 73 20 61 20 33 32 2d 62 69 74 20 69 6e inds a 32-bit in
cf70: 74 65 67 65 72 20 56 41 4c 55 45 20 74 6f 20 74 teger VALUE to t
cf80: 68 61 74 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f hat wildcard..*/
cf90: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
cfa0: 5f 62 69 6e 64 5f 69 6e 74 28 0a 20 20 76 6f 69 _bind_int(. voi
cfb0: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
cfc0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
cfd0: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
cfe0: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
cff0: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
d000: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
d010: 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 mt;. int idx;.
d020: 20 69 6e 74 20 76 61 6c 75 65 3b 0a 20 20 69 6e int value;. in
d030: 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a t rc;.. if( obj
d040: 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=4 ){. Tcl_
d050: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
d060: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
d070: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
d080: 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 ",. Tcl_G
d090: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
d0a0: 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 53 objv[0], 0), " S
d0b0: 54 4d 54 20 4e 20 56 41 4c 55 45 22 2c 20 30 29 TMT N VALUE", 0)
d0c0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
d0d0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
d0e0: 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 f( getStmtPointe
d0f0: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
d100: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
d110: 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
d120: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
d130: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
d140: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
d150: 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 jv[2], &idx) ) r
d160: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
d170: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
d180: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
d190: 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 75 65 objv[3], &value
d1a0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
d1b0: 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 RROR;.. rc = sq
d1c0: 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 28 70 lite3_bind_int(p
d1d0: 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 65 Stmt, idx, value
d1e0: 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
d1f0: 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
d200: 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 rp, StmtToDb(pSt
d210: 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 75 72 mt), rc) ) retur
d220: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
d230: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b f( rc!=SQLITE_OK
d240: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
d250: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
d260: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
d270: 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a }.../*.** Usage:
d280: 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f sqlite3_bind_
d290: 69 6e 74 36 34 20 20 53 54 4d 54 20 4e 20 56 41 int64 STMT N VA
d2a0: 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 LUE.**.** Test t
d2b0: 68 65 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f he sqlite3_bind_
d2c0: 69 6e 74 36 34 20 69 6e 74 65 72 66 61 63 65 2e int64 interface.
d2d0: 20 20 53 54 4d 54 20 69 73 20 61 20 70 72 65 70 STMT is a prep
d2e0: 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 0a ared statement..
d2f0: 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 6e 64 65 ** N is the inde
d300: 78 20 6f 66 20 61 20 77 69 6c 64 63 61 72 64 20 x of a wildcard
d310: 69 6e 20 74 68 65 20 70 72 65 70 61 72 65 64 20 in the prepared
d320: 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 68 69 73 statement. This
d330: 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 command.** bind
d340: 73 20 61 20 36 34 2d 62 69 74 20 69 6e 74 65 67 s a 64-bit integ
d350: 65 72 20 56 41 4c 55 45 20 74 6f 20 74 68 61 74 er VALUE to that
d360: 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a 73 74 wildcard..*/.st
d370: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 atic int test_bi
d380: 6e 64 5f 69 6e 74 36 34 28 0a 20 20 76 6f 69 64 nd_int64(. void
d390: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
d3a0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
d3b0: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
d3c0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
d3d0: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
d3e0: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d lite3_stmt *pStm
d3f0: 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 t;. int idx;.
d400: 69 36 34 20 76 61 6c 75 65 3b 0a 20 20 69 6e 74 i64 value;. int
d410: 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 rc;.. if( objc
d420: 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=4 ){. Tcl_A
d430: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
d440: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
d450: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
d460: 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 ,. Tcl_Ge
d470: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
d480: 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 53 54 bjv[0], 0), " ST
d490: 4d 54 20 4e 20 56 41 4c 55 45 22 2c 20 30 29 3b MT N VALUE", 0);
d4a0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
d4b0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 ERROR;. }.. if
d4c0: 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 ( getStmtPointer
d4d0: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
d4e0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
d4f0: 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 &pStmt) ) retur
d500: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
d510: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
d520: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
d530: 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 v[2], &idx) ) re
d540: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
d550: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 57 69 64 if( Tcl_GetWid
d560: 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 eIntFromObj(inte
d570: 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 rp, objv[3], &va
d580: 6c 75 65 29 20 29 20 72 65 74 75 72 6e 20 54 43 lue) ) return TC
d590: 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d L_ERROR;.. rc =
d5a0: 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e sqlite3_bind_in
d5b0: 74 36 34 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 t64(pStmt, idx,
d5c0: 76 61 6c 75 65 29 3b 0a 20 20 69 66 28 20 73 71 value);. if( sq
d5d0: 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 lite3TestErrCode
d5e0: 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 (interp, StmtToD
d5f0: 62 28 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 b(pStmt), rc) )
d600: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
d610: 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 ;. if( rc!=SQLI
d620: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 TE_OK ){. ret
d630: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
d640: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }.. return TCL
d650: 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 _OK;.}.../*.** U
d660: 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f sage: sqlite3_
d670: 62 69 6e 64 5f 64 6f 75 62 6c 65 20 20 53 54 4d bind_double STM
d680: 54 20 4e 20 56 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 T N VALUE.**.**
d690: 54 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 Test the sqlite3
d6a0: 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 20 69 6e 74 _bind_double int
d6b0: 65 72 66 61 63 65 2e 20 20 53 54 4d 54 20 69 73 erface. STMT is
d6c0: 20 61 20 70 72 65 70 61 72 65 64 20 73 74 61 74 a prepared stat
d6d0: 65 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 ement..** N is t
d6e0: 68 65 20 69 6e 64 65 78 20 6f 66 20 61 20 77 69 he index of a wi
d6f0: 6c 64 63 61 72 64 20 69 6e 20 74 68 65 20 70 72 ldcard in the pr
d700: 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 epared statement
d710: 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a . This command.
d720: 2a 2a 20 62 69 6e 64 73 20 61 20 36 34 2d 62 69 ** binds a 64-bi
d730: 74 20 69 6e 74 65 67 65 72 20 56 41 4c 55 45 20 t integer VALUE
d740: 74 6f 20 74 68 61 74 20 77 69 6c 64 63 61 72 64 to that wildcard
d750: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
d760: 74 65 73 74 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 test_bind_double
d770: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
d780: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
d790: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
d7a0: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
d7b0: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
d7c0: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 .){. sqlite3_st
d7d0: 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 mt *pStmt;. int
d7e0: 20 69 64 78 3b 0a 20 20 64 6f 75 62 6c 65 20 76 idx;. double v
d7f0: 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a alue;. int rc;.
d800: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 . if( objc!=4 )
d810: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
d820: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
d830: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
d840: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 ould be \"",.
d850: 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
d860: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 ngFromObj(objv[0
d870: 5d 2c 20 30 29 2c 20 22 20 53 54 4d 54 20 4e 20 ], 0), " STMT N
d880: 56 41 4c 55 45 22 2c 20 30 29 3b 0a 20 20 20 20 VALUE", 0);.
d890: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
d8a0: 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 ;. }.. if( get
d8b0: 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
d8c0: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
d8d0: 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
d8e0: 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
d8f0: 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 _ERROR;. if( Tc
d900: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
d910: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
d920: 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e 20 &idx) ) return
d930: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
d940: 20 54 63 6c 5f 47 65 74 44 6f 75 62 6c 65 46 72 Tcl_GetDoubleFr
d950: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
d960: 6a 76 5b 33 5d 2c 20 26 76 61 6c 75 65 29 20 29 jv[3], &value) )
d970: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
d980: 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 R;.. rc = sqlit
d990: 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 28 70 e3_bind_double(p
d9a0: 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 65 Stmt, idx, value
d9b0: 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
d9c0: 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
d9d0: 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 rp, StmtToDb(pSt
d9e0: 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 75 72 mt), rc) ) retur
d9f0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
da00: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b f( rc!=SQLITE_OK
da10: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
da20: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
da30: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
da40: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
da50: 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 6e sqlite3_bind_n
da60: 75 6c 6c 20 20 53 54 4d 54 20 4e 0a 2a 2a 0a 2a ull STMT N.**.*
da70: 2a 20 54 65 73 74 20 74 68 65 20 73 71 6c 69 74 * Test the sqlit
da80: 65 33 5f 62 69 6e 64 5f 6e 75 6c 6c 20 69 6e 74 e3_bind_null int
da90: 65 72 66 61 63 65 2e 20 20 53 54 4d 54 20 69 73 erface. STMT is
daa0: 20 61 20 70 72 65 70 61 72 65 64 20 73 74 61 74 a prepared stat
dab0: 65 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 ement..** N is t
dac0: 68 65 20 69 6e 64 65 78 20 6f 66 20 61 20 77 69 he index of a wi
dad0: 6c 64 63 61 72 64 20 69 6e 20 74 68 65 20 70 72 ldcard in the pr
dae0: 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 epared statement
daf0: 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a . This command.
db00: 2a 2a 20 62 69 6e 64 73 20 61 20 4e 55 4c 4c 20 ** binds a NULL
db10: 74 6f 20 74 68 65 20 77 69 6c 64 63 61 72 64 2e to the wildcard.
db20: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
db30: 65 73 74 5f 62 69 6e 64 5f 6e 75 6c 6c 28 0a 20 est_bind_null(.
db40: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
db50: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
db60: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
db70: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
db80: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
db90: 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
dba0: 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 *pStmt;. int id
dbb0: 78 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 x;. int rc;..
dbc0: 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 if( objc!=3 ){.
dbd0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
dbe0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
dbf0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
dc00: 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 d be \"",.
dc10: 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 Tcl_GetStringF
dc20: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 romObj(objv[0],
dc30: 30 29 2c 20 22 20 53 54 4d 54 20 4e 22 2c 20 30 0), " STMT N", 0
dc40: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
dc50: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
dc60: 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
dc70: 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
dc80: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
dc90: 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
dca0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
dcb0: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
dcc0: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
dcd0: 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 bjv[2], &idx) )
dce0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
dcf0: 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 ;.. rc = sqlite
dd00: 33 5f 62 69 6e 64 5f 6e 75 6c 6c 28 70 53 74 6d 3_bind_null(pStm
dd10: 74 2c 20 69 64 78 29 3b 0a 20 20 69 66 28 20 73 t, idx);. if( s
dd20: 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 qlite3TestErrCod
dd30: 65 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f e(interp, StmtTo
dd40: 44 62 28 70 53 74 6d 74 29 2c 20 72 63 29 20 29 Db(pStmt), rc) )
dd50: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
dd60: 52 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c R;. if( rc!=SQL
dd70: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 ITE_OK ){. re
dd80: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
dd90: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 }.. return TC
dda0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
ddb0: 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f sage: sqlite3_
ddc0: 62 69 6e 64 5f 74 65 78 74 20 20 53 54 4d 54 20 bind_text STMT
ddd0: 4e 20 53 54 52 49 4e 47 20 42 59 54 45 53 0a 2a N STRING BYTES.*
dde0: 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 73 71 *.** Test the sq
ddf0: 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 20 lite3_bind_text
de00: 69 6e 74 65 72 66 61 63 65 2e 20 20 53 54 4d 54 interface. STMT
de10: 20 69 73 20 61 20 70 72 65 70 61 72 65 64 20 73 is a prepared s
de20: 74 61 74 65 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 tatement..** N i
de30: 73 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 61 s the index of a
de40: 20 77 69 6c 64 63 61 72 64 20 69 6e 20 74 68 65 wildcard in the
de50: 20 70 72 65 70 61 72 65 64 20 73 74 61 74 65 6d prepared statem
de60: 65 6e 74 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 ent. This comma
de70: 6e 64 0a 2a 2a 20 62 69 6e 64 73 20 61 20 55 54 nd.** binds a UT
de80: 46 2d 38 20 73 74 72 69 6e 67 20 53 54 52 49 4e F-8 string STRIN
de90: 47 20 74 6f 20 74 68 65 20 77 69 6c 64 63 61 72 G to the wildcar
dea0: 64 2e 20 20 54 68 65 20 73 74 72 69 6e 67 20 69 d. The string i
deb0: 73 20 42 59 54 45 53 20 62 79 74 65 73 0a 2a 2a s BYTES bytes.**
dec0: 20 6c 6f 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 long..*/.static
ded0: 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 74 int test_bind_t
dee0: 65 78 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c ext(. void * cl
def0: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
df00: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
df10: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
df20: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
df30: 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
df40: 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 _stmt *pStmt;.
df50: 69 6e 74 20 69 64 78 3b 0a 20 20 69 6e 74 20 62 int idx;. int b
df60: 79 74 65 73 3b 0a 20 20 63 68 61 72 20 2a 76 61 ytes;. char *va
df70: 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a lue;. int rc;..
df80: 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 7b if( objc!=5 ){
df90: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
dfa0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
dfb0: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
dfc0: 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 uld be \"",.
dfd0: 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
dfe0: 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d gFromObj(objv[0]
dff0: 2c 20 30 29 2c 20 22 20 53 54 4d 54 20 4e 20 56 , 0), " STMT N V
e000: 41 4c 55 45 20 42 59 54 45 53 22 2c 20 30 29 3b ALUE BYTES", 0);
e010: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
e020: 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 ERROR;. }.. if
e030: 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 ( getStmtPointer
e040: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
e050: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
e060: 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 &pStmt) ) retur
e070: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
e080: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
e090: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
e0a0: 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 v[2], &idx) ) re
e0b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
e0c0: 20 20 76 61 6c 75 65 20 3d 20 54 63 6c 5f 47 65 value = Tcl_Ge
e0d0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 tString(objv[3])
e0e0: 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 ;. if( Tcl_GetI
e0f0: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
e100: 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 62 79 74 65 , objv[4], &byte
e110: 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f s) ) return TCL_
e120: 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 ERROR;.. rc = s
e130: 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 qlite3_bind_text
e140: 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 6c (pStmt, idx, val
e150: 75 65 2c 20 62 79 74 65 73 2c 20 53 51 4c 49 54 ue, bytes, SQLIT
e160: 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 E_TRANSIENT);.
e170: 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 if( sqlite3TestE
e180: 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 rrCode(interp, S
e190: 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 tmtToDb(pStmt),
e1a0: 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c rc) ) return TCL
e1b0: 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 _ERROR;. if( rc
e1c0: 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 !=SQLITE_OK ){.
e1d0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
e1e0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 ult(interp, sqli
e1f0: 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 te3TestErrorName
e200: 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 (rc), 0);. re
e210: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
e220: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 }.. return TC
e230: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
e240: 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f sage: sqlite3_
e250: 62 69 6e 64 5f 74 65 78 74 31 36 20 3f 2d 73 74 bind_text16 ?-st
e260: 61 74 69 63 3f 20 53 54 4d 54 20 4e 20 53 54 52 atic? STMT N STR
e270: 49 4e 47 20 42 59 54 45 53 0a 2a 2a 0a 2a 2a 20 ING BYTES.**.**
e280: 54 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 Test the sqlite3
e290: 5f 62 69 6e 64 5f 74 65 78 74 31 36 20 69 6e 74 _bind_text16 int
e2a0: 65 72 66 61 63 65 2e 20 20 53 54 4d 54 20 69 73 erface. STMT is
e2b0: 20 61 20 70 72 65 70 61 72 65 64 20 73 74 61 74 a prepared stat
e2c0: 65 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 ement..** N is t
e2d0: 68 65 20 69 6e 64 65 78 20 6f 66 20 61 20 77 69 he index of a wi
e2e0: 6c 64 63 61 72 64 20 69 6e 20 74 68 65 20 70 72 ldcard in the pr
e2f0: 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 epared statement
e300: 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a . This command.
e310: 2a 2a 20 62 69 6e 64 73 20 61 20 55 54 46 2d 31 ** binds a UTF-1
e320: 36 20 73 74 72 69 6e 67 20 53 54 52 49 4e 47 20 6 string STRING
e330: 74 6f 20 74 68 65 20 77 69 6c 64 63 61 72 64 2e to the wildcard.
e340: 20 20 54 68 65 20 73 74 72 69 6e 67 20 69 73 20 The string is
e350: 42 59 54 45 53 20 62 79 74 65 73 0a 2a 2a 20 6c BYTES bytes.** l
e360: 6f 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ong..*/.static i
e370: 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 74 65 78 nt test_bind_tex
e380: 74 31 36 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c t16(. void * cl
e390: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
e3a0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
e3b0: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
e3c0: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
e3d0: 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 v[].){.#ifndef S
e3e0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 QLITE_OMIT_UTF16
e3f0: 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
e400: 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 *pStmt;. int id
e410: 78 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 0a x;. int bytes;.
e420: 20 20 63 68 61 72 20 2a 76 61 6c 75 65 3b 0a 20 char *value;.
e430: 20 69 6e 74 20 72 63 3b 0a 0a 20 20 76 6f 69 64 int rc;.. void
e440: 20 28 2a 78 44 65 6c 29 28 29 20 3d 20 28 6f 62 (*xDel)() = (ob
e450: 6a 63 3d 3d 36 3f 53 51 4c 49 54 45 5f 53 54 41 jc==6?SQLITE_STA
e460: 54 49 43 3a 53 51 4c 49 54 45 5f 54 52 41 4e 53 TIC:SQLITE_TRANS
e470: 49 45 4e 54 29 3b 0a 20 20 54 63 6c 5f 4f 62 6a IENT);. Tcl_Obj
e480: 20 2a 6f 53 74 6d 74 20 20 20 20 3d 20 6f 62 6a *oStmt = obj
e490: 76 5b 6f 62 6a 63 2d 34 5d 3b 0a 20 20 54 63 6c v[objc-4];. Tcl
e4a0: 5f 4f 62 6a 20 2a 6f 4e 20 20 20 20 20 20 20 3d _Obj *oN =
e4b0: 20 6f 62 6a 76 5b 6f 62 6a 63 2d 33 5d 3b 0a 20 objv[objc-3];.
e4c0: 20 54 63 6c 5f 4f 62 6a 20 2a 6f 53 74 72 69 6e Tcl_Obj *oStrin
e4d0: 67 20 20 3d 20 6f 62 6a 76 5b 6f 62 6a 63 2d 32 g = objv[objc-2
e4e0: 5d 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 42 ];. Tcl_Obj *oB
e4f0: 79 74 65 73 20 20 20 3d 20 6f 62 6a 76 5b 6f 62 ytes = objv[ob
e500: 6a 63 2d 31 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 jc-1];.. if( ob
e510: 6a 63 21 3d 35 20 26 26 20 6f 62 6a 63 21 3d 36 jc!=5 && objc!=6
e520: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
e530: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
e540: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
e550: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 hould be \"",.
e560: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
e570: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
e580: 30 5d 2c 20 30 29 2c 20 22 20 53 54 4d 54 20 4e 0], 0), " STMT N
e590: 20 56 41 4c 55 45 20 42 59 54 45 53 22 2c 20 30 VALUE BYTES", 0
e5a0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
e5b0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
e5c0: 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
e5d0: 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
e5e0: 65 74 53 74 72 69 6e 67 28 6f 53 74 6d 74 29 2c etString(oStmt),
e5f0: 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 &pStmt) ) retur
e600: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
e610: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
e620: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 4e 2c mObj(interp, oN,
e630: 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e 20 &idx) ) return
e640: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 76 61 6c TCL_ERROR;. val
e650: 75 65 20 3d 20 28 63 68 61 72 2a 29 54 63 6c 5f ue = (char*)Tcl_
e660: 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d GetByteArrayFrom
e670: 4f 62 6a 28 6f 53 74 72 69 6e 67 2c 20 30 29 3b Obj(oString, 0);
e680: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
e690: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
e6a0: 20 6f 42 79 74 65 73 2c 20 26 62 79 74 65 73 29 oBytes, &bytes)
e6b0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
e6c0: 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c ROR;.. rc = sql
e6d0: 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 31 36 ite3_bind_text16
e6e0: 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 28 76 6f (pStmt, idx, (vo
e6f0: 69 64 20 2a 29 76 61 6c 75 65 2c 20 62 79 74 65 id *)value, byte
e700: 73 2c 20 78 44 65 6c 29 3b 0a 20 20 69 66 28 20 s, xDel);. if(
e710: 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f sqlite3TestErrCo
e720: 64 65 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 de(interp, StmtT
e730: 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 63 29 20 oDb(pStmt), rc)
e740: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
e750: 4f 52 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 OR;. if( rc!=SQ
e760: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 LITE_OK ){. r
e770: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
e780: 0a 20 20 7d 0a 0a 23 65 6e 64 69 66 20 2f 2a 20 . }..#endif /*
e790: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 SQLITE_OMIT_UTF1
e7a0: 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 6 */. return TC
e7b0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
e7c0: 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f sage: sqlite3_
e7d0: 62 69 6e 64 5f 62 6c 6f 62 20 20 53 54 4d 54 20 bind_blob STMT
e7e0: 4e 20 44 41 54 41 20 42 59 54 45 53 0a 2a 2a 0a N DATA BYTES.**.
e7f0: 2a 2a 20 54 65 73 74 20 74 68 65 20 73 71 6c 69 ** Test the sqli
e800: 74 65 33 5f 62 69 6e 64 5f 62 6c 6f 62 20 69 6e te3_bind_blob in
e810: 74 65 72 66 61 63 65 2e 20 20 53 54 4d 54 20 69 terface. STMT i
e820: 73 20 61 20 70 72 65 70 61 72 65 64 20 73 74 61 s a prepared sta
e830: 74 65 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 tement..** N is
e840: 74 68 65 20 69 6e 64 65 78 20 6f 66 20 61 20 77 the index of a w
e850: 69 6c 64 63 61 72 64 20 69 6e 20 74 68 65 20 70 ildcard in the p
e860: 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
e870: 74 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 t. This command
e880: 0a 2a 2a 20 62 69 6e 64 73 20 61 20 42 4c 4f 42 .** binds a BLOB
e890: 20 74 6f 20 74 68 65 20 77 69 6c 64 63 61 72 64 to the wildcard
e8a0: 2e 20 20 54 68 65 20 42 4c 4f 42 20 69 73 20 42 . The BLOB is B
e8b0: 59 54 45 53 20 62 79 74 65 73 20 69 6e 20 73 69 YTES bytes in si
e8c0: 7a 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ze..*/.static in
e8d0: 74 20 74 65 73 74 5f 62 69 6e 64 5f 62 6c 6f 62 t test_bind_blob
e8e0: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
e8f0: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
e900: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
e910: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
e920: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
e930: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 .){. sqlite3_st
e940: 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 mt *pStmt;. int
e950: 20 69 64 78 3b 0a 20 20 69 6e 74 20 62 79 74 65 idx;. int byte
e960: 73 3b 0a 20 20 63 68 61 72 20 2a 76 61 6c 75 65 s;. char *value
e970: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 ;. int rc;.. i
e980: 66 28 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 f( objc!=5 ){.
e990: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
e9a0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
e9b0: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
e9c0: 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 be \"",.
e9d0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
e9e0: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 omObj(objv[0], 0
e9f0: 29 2c 20 22 20 53 54 4d 54 20 4e 20 44 41 54 41 ), " STMT N DATA
ea00: 20 42 59 54 45 53 22 2c 20 30 29 3b 0a 20 20 20 BYTES", 0);.
ea10: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
ea20: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
ea30: 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
ea40: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
ea50: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
ea60: 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
ea70: 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
ea80: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
ea90: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
eaa0: 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
eab0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 76 61 TCL_ERROR;. va
eac0: 6c 75 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 lue = Tcl_GetStr
ead0: 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 ing(objv[3]);.
eae0: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
eaf0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
eb00: 6a 76 5b 34 5d 2c 20 26 62 79 74 65 73 29 20 29 jv[4], &bytes) )
eb10: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
eb20: 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 R;.. rc = sqlit
eb30: 65 33 5f 62 69 6e 64 5f 62 6c 6f 62 28 70 53 74 e3_bind_blob(pSt
eb40: 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 65 2c 20 mt, idx, value,
eb50: 62 79 74 65 73 2c 20 53 51 4c 49 54 45 5f 54 52 bytes, SQLITE_TR
eb60: 41 4e 53 49 45 4e 54 29 3b 0a 20 20 69 66 28 20 ANSIENT);. if(
eb70: 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f sqlite3TestErrCo
eb80: 64 65 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 de(interp, StmtT
eb90: 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 63 29 20 oDb(pStmt), rc)
eba0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
ebb0: 4f 52 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 OR;. if( rc!=SQ
ebc0: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 LITE_OK ){. r
ebd0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
ebe0: 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 . }.. return T
ebf0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
ec00: 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
ec10: 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f _bind_parameter_
ec20: 63 6f 75 6e 74 20 20 53 54 4d 54 0a 2a 2a 0a 2a count STMT.**.*
ec30: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d * Return the num
ec40: 62 65 72 20 6f 66 20 77 69 6c 64 63 61 72 64 73 ber of wildcards
ec50: 20 69 6e 20 74 68 65 20 67 69 76 65 6e 20 73 74 in the given st
ec60: 61 74 65 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 atement..*/.stat
ec70: 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 ic int test_bind
ec80: 5f 70 61 72 61 6d 65 74 65 72 5f 63 6f 75 6e 74 _parameter_count
ec90: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
eca0: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
ecb0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
ecc0: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
ecd0: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
ece0: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 .){. sqlite3_st
ecf0: 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 66 mt *pStmt;.. if
ed00: 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
ed10: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
ed20: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
ed30: 76 2c 20 22 53 54 4d 54 22 29 3b 0a 20 20 20 20 v, "STMT");.
ed40: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
ed50: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 53 ;. }. if( getS
ed60: 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tmtPointer(inter
ed70: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
ed80: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d (objv[1]), &pStm
ed90: 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f t) ) return TCL_
eda0: 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 ERROR;. Tcl_Set
edb0: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
edc0: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 , Tcl_NewIntObj(
edd0: 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 sqlite3_bind_par
ede0: 61 6d 65 74 65 72 5f 63 6f 75 6e 74 28 70 53 74 ameter_count(pSt
edf0: 6d 74 29 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 mt)));. return
ee00: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
ee10: 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 Usage: sqlite
ee20: 33 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 3_bind_parameter
ee30: 5f 6e 61 6d 65 20 20 53 54 4d 54 20 20 4e 0a 2a _name STMT N.*
ee40: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 *.** Return the
ee50: 6e 61 6d 65 20 6f 66 20 74 68 65 20 4e 74 68 20 name of the Nth
ee60: 77 69 6c 64 63 61 72 64 2e 20 20 54 68 65 20 66 wildcard. The f
ee70: 69 72 73 74 20 77 69 6c 64 63 61 72 64 20 69 73 irst wildcard is
ee80: 20 31 2e 0a 2a 2a 20 41 6e 20 65 6d 70 74 79 20 1..** An empty
ee90: 73 74 72 69 6e 67 20 69 73 20 72 65 74 75 72 6e string is return
eea0: 65 64 20 69 66 20 4e 20 69 73 20 6f 75 74 20 6f ed if N is out o
eeb0: 66 20 72 61 6e 67 65 20 6f 72 20 69 66 20 74 68 f range or if th
eec0: 65 20 77 69 6c 64 63 61 72 64 0a 2a 2a 20 69 73 e wildcard.** is
eed0: 20 6e 61 6d 65 6c 65 73 73 2e 0a 2a 2f 0a 73 74 nameless..*/.st
eee0: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 atic int test_bi
eef0: 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 6d nd_parameter_nam
ef00: 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 e(. void * clie
ef10: 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
ef20: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
ef30: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
ef40: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
ef50: 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 ].){. sqlite3_s
ef60: 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e tmt *pStmt;. in
ef70: 74 20 69 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 t i;.. if( objc
ef80: 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 !=3 ){. Tcl_W
ef90: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
efa0: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 54 rp, 1, objv, "ST
efb0: 4d 54 20 4e 22 29 3b 0a 20 20 20 20 72 65 74 75 MT N");. retu
efc0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
efd0: 7d 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 }. if( getStmtP
efe0: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
eff0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
f000: 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 v[1]), &pStmt) )
f010: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
f020: 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 R;. if( Tcl_Get
f030: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
f040: 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 29 20 p, objv[2], &i)
f050: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
f060: 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a OR;. Tcl_SetObj
f070: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 0a Result(interp, .
f080: 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 Tcl_NewStri
f090: 6e 67 4f 62 6a 28 73 71 6c 69 74 65 33 5f 62 69 ngObj(sqlite3_bi
f0a0: 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 6d nd_parameter_nam
f0b0: 65 28 70 53 74 6d 74 2c 69 29 2c 2d 31 29 0a 20 e(pStmt,i),-1).
f0c0: 20 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c );. return TCL
f0d0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
f0e0: 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 age: sqlite3_b
f0f0: 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 69 6e ind_parameter_in
f100: 64 65 78 20 20 53 54 4d 54 20 20 4e 41 4d 45 0a dex STMT NAME.
f110: 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 **.** Return the
f120: 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 77 69 index of the wi
f130: 6c 64 63 61 72 64 20 63 61 6c 6c 65 64 20 4e 41 ldcard called NA
f140: 4d 45 2e 20 20 52 65 74 75 72 6e 20 30 20 69 66 ME. Return 0 if
f150: 20 74 68 65 72 65 20 69 73 0a 2a 2a 20 6e 6f 20 there is.** no
f160: 73 75 63 68 20 77 69 6c 64 63 61 72 64 2e 0a 2a such wildcard..*
f170: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
f180: 74 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 t_bind_parameter
f190: 5f 69 6e 64 65 78 28 0a 20 20 76 6f 69 64 20 2a _index(. void *
f1a0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
f1b0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
f1c0: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
f1d0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
f1e0: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
f1f0: 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
f200: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 .. if( objc!=3
f210: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
f220: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
f230: 31 2c 20 6f 62 6a 76 2c 20 22 53 54 4d 54 20 4e 1, objv, "STMT N
f240: 41 4d 45 22 29 3b 0a 20 20 20 20 72 65 74 75 72 AME");. retur
f250: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
f260: 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f . if( getStmtPo
f270: 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
f280: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
f290: 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 [1]), &pStmt) )
f2a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
f2b0: 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. Tcl_SetObjRe
f2c0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 0a 20 20 sult(interp, .
f2d0: 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a Tcl_NewIntObj
f2e0: 28 0a 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 (. sqlite3
f2f0: 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f _bind_parameter_
f300: 69 6e 64 65 78 28 70 53 74 6d 74 2c 54 63 6c 5f index(pStmt,Tcl_
f310: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 GetString(objv[2
f320: 5d 29 29 0a 20 20 20 20 20 29 0a 20 20 29 3b 0a ])). ). );.
f330: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
f340: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
f350: 20 20 20 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 sqlite3_clear
f360: 5f 62 69 6e 64 69 6e 67 73 20 53 54 4d 54 0a 2a _bindings STMT.*
f370: 2a 0a 2a 2f 0a 23 69 66 20 30 0a 73 74 61 74 69 *.*/.#if 0.stati
f380: 63 20 69 6e 74 20 74 65 73 74 5f 63 6c 65 61 72 c int test_clear
f390: 5f 62 69 6e 64 69 6e 67 73 28 0a 20 20 76 6f 69 _bindings(. voi
f3a0: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
f3b0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
f3c0: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
f3d0: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
f3e0: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
f3f0: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
f400: 6d 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 mt;.. if( objc!
f410: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 =2 ){. Tcl_Wr
f420: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
f430: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 54 4d p, 1, objv, "STM
f440: 54 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 T");. return
f450: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
f460: 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e if( getStmtPoin
f470: 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
f480: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
f490: 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 ]), &pStmt) ) re
f4a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
f4b0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
f4c0: 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e lt(interp, Tcl_N
f4d0: 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 ewIntObj(sqlite3
f4e0: 5f 63 6c 65 61 72 5f 62 69 6e 64 69 6e 67 73 28 _clear_bindings(
f4f0: 70 53 74 6d 74 29 29 29 3b 0a 20 20 72 65 74 75 pStmt)));. retu
f500: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e rn TCL_OK;.}.#en
f510: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 dif../*.** Usage
f520: 3a 20 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 : sqlite3_errcod
f530: 65 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 e DB.**.** Retur
f540: 6e 20 74 68 65 20 73 74 72 69 6e 67 20 72 65 70 n the string rep
f550: 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 resentation of t
f560: 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 73 he most recent s
f570: 71 6c 69 74 65 33 5f 2a 20 41 50 49 0a 2a 2a 20 qlite3_* API.**
f580: 65 72 72 6f 72 20 63 6f 64 65 2e 20 65 2e 67 2e error code. e.g.
f590: 20 22 53 51 4c 49 54 45 5f 45 52 52 4f 52 22 2e "SQLITE_ERROR".
f5a0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
f5b0: 65 73 74 5f 65 72 72 63 6f 64 65 28 0a 20 20 76 est_errcode(. v
f5c0: 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
f5d0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
f5e0: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
f5f0: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
f600: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
f610: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 0a 20 sqlite3 *db;..
f620: 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a if( objc!=2 ){.
f630: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
f640: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
f650: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
f660: 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
f670: 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
f680: 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 22 (objv[0]), " DB"
f690: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
f6a0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
f6b0: 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
f6c0: 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
f6d0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
f6e0: 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ), &db) ) return
f6f0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 TCL_ERROR;. Tc
f700: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
f710: 72 70 2c 20 28 63 68 61 72 20 2a 29 65 72 72 6f rp, (char *)erro
f720: 72 4e 61 6d 65 28 73 71 6c 69 74 65 33 5f 65 72 rName(sqlite3_er
f730: 72 63 6f 64 65 28 64 62 29 29 2c 20 30 29 3b 0a rcode(db)), 0);.
f740: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
f750: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
f760: 20 20 20 74 65 73 74 5f 65 72 72 6d 73 67 20 44 test_errmsg D
f770: 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 20 B.**.** Returns
f780: 74 68 65 20 55 54 46 2d 38 20 72 65 70 72 65 73 the UTF-8 repres
f790: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 entation of the
f7a0: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 73 74 error message st
f7b0: 72 69 6e 67 20 66 6f 72 20 74 68 65 0a 2a 2a 20 ring for the.**
f7c0: 6d 6f 73 74 20 72 65 63 65 6e 74 20 73 71 6c 69 most recent sqli
f7d0: 74 65 33 5f 2a 20 41 50 49 20 63 61 6c 6c 2e 0a te3_* API call..
f7e0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
f7f0: 73 74 5f 65 72 72 6d 73 67 28 0a 20 20 76 6f 69 st_errmsg(. voi
f800: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
f810: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
f820: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
f830: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
f840: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
f850: 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 6f qlite3 *db;. co
f860: 6e 73 74 20 63 68 61 72 20 2a 7a 45 72 72 3b 0a nst char *zErr;.
f870: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 . if( objc!=2 )
f880: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
f890: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
f8a0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
f8b0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 ould be \"", .
f8c0: 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
f8d0: 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 ng(objv[0]), " D
f8e0: 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 B", 0);. retu
f8f0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
f900: 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
f910: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
f920: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
f930: 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 1]), &db) ) retu
f940: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
f950: 20 7a 45 72 72 20 3d 20 73 71 6c 69 74 65 33 5f zErr = sqlite3_
f960: 65 72 72 6d 73 67 28 64 62 29 3b 0a 20 20 54 63 errmsg(db);. Tc
f970: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
f980: 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 nterp, Tcl_NewSt
f990: 72 69 6e 67 4f 62 6a 28 7a 45 72 72 2c 20 2d 31 ringObj(zErr, -1
f9a0: 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ));. return TCL
f9b0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
f9c0: 61 67 65 3a 20 20 20 74 65 73 74 5f 65 72 72 6d age: test_errm
f9d0: 73 67 31 36 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 sg16 DB.**.** Re
f9e0: 74 75 72 6e 73 20 74 68 65 20 55 54 46 2d 31 36 turns the UTF-16
f9f0: 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 representation
fa00: 6f 66 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73 of the error mes
fa10: 73 61 67 65 20 73 74 72 69 6e 67 20 66 6f 72 20 sage string for
fa20: 74 68 65 0a 2a 2a 20 6d 6f 73 74 20 72 65 63 65 the.** most rece
fa30: 6e 74 20 73 71 6c 69 74 65 33 5f 2a 20 41 50 49 nt sqlite3_* API
fa40: 20 63 61 6c 6c 2e 20 54 68 69 73 20 69 73 20 61 call. This is a
fa50: 20 62 79 74 65 20 61 72 72 61 79 20 6f 62 6a 65 byte array obje
fa60: 63 74 20 61 74 20 74 68 65 20 54 43 4c 20 0a 2a ct at the TCL .*
fa70: 2a 20 6c 65 76 65 6c 2c 20 61 6e 64 20 69 74 20 * level, and it
fa80: 69 6e 63 6c 75 64 65 73 20 74 68 65 20 30 78 30 includes the 0x0
fa90: 30 20 30 78 30 30 20 74 65 72 6d 69 6e 61 74 6f 0 0x00 terminato
faa0: 72 20 62 79 74 65 73 20 61 74 20 74 68 65 20 65 r bytes at the e
fab0: 6e 64 20 6f 66 20 74 68 65 0a 2a 2a 20 55 54 46 nd of the.** UTF
fac0: 2d 31 36 20 73 74 72 69 6e 67 2e 0a 2a 2f 0a 73 -16 string..*/.s
fad0: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 tatic int test_e
fae0: 72 72 6d 73 67 31 36 28 0a 20 20 76 6f 69 64 20 rrmsg16(. void
faf0: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
fb00: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
fb10: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
fb20: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
fb30: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 objv[].){.#ifnd
fb40: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 ef SQLITE_OMIT_U
fb50: 54 46 31 36 0a 20 20 73 71 6c 69 74 65 33 20 2a TF16. sqlite3 *
fb60: 64 62 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 db;. const void
fb70: 20 2a 7a 45 72 72 3b 0a 20 20 69 6e 74 20 62 79 *zErr;. int by
fb80: 74 65 73 20 3d 20 30 3b 0a 0a 20 20 69 66 28 20 tes = 0;.. if(
fb90: 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
fba0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
fbb0: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
fbc0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
fbd0: 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 \"", . Tc
fbe0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
fbf0: 5b 30 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 3b [0]), " DB", 0);
fc00: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
fc10: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
fc20: 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
fc30: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
fc40: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 ing(objv[1]), &d
fc50: 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
fc60: 45 52 52 4f 52 3b 0a 0a 20 20 7a 45 72 72 20 3d ERROR;.. zErr =
fc70: 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 31 sqlite3_errmsg1
fc80: 36 28 64 62 29 3b 0a 20 20 69 66 28 20 7a 45 72 6(db);. if( zEr
fc90: 72 20 29 7b 0a 20 20 20 20 62 79 74 65 73 20 3d r ){. bytes =
fca0: 20 73 71 6c 69 74 65 33 75 74 66 31 36 42 79 74 sqlite3utf16Byt
fcb0: 65 4c 65 6e 28 7a 45 72 72 2c 20 2d 31 29 3b 0a eLen(zErr, -1);.
fcc0: 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a }. Tcl_SetObj
fcd0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
fce0: 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f cl_NewByteArrayO
fcf0: 62 6a 28 7a 45 72 72 2c 20 62 79 74 65 73 29 29 bj(zErr, bytes))
fd00: 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 ;.#endif /* SQLI
fd10: 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f TE_OMIT_UTF16 */
fd20: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
fd30: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
fd40: 3a 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 : sqlite3_prepar
fd50: 65 20 44 42 20 73 71 6c 20 62 79 74 65 73 20 74 e DB sql bytes t
fd60: 61 69 6c 76 61 72 0a 2a 2a 0a 2a 2a 20 43 6f 6d ailvar.**.** Com
fd70: 70 69 6c 65 20 75 70 20 74 6f 20 3c 62 79 74 65 pile up to <byte
fd80: 73 3e 20 62 79 74 65 73 20 6f 66 20 74 68 65 20 s> bytes of the
fd90: 73 75 70 70 6c 69 65 64 20 53 51 4c 20 73 74 72 supplied SQL str
fda0: 69 6e 67 20 3c 73 71 6c 3e 20 75 73 69 6e 67 0a ing <sql> using.
fdb0: 2a 2a 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 ** database hand
fdc0: 6c 65 20 3c 44 42 3e 2e 20 54 68 65 20 70 61 72 le <DB>. The par
fdd0: 61 6d 65 74 65 72 20 3c 74 61 69 6c 76 61 6c 3e ameter <tailval>
fde0: 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 is the name of
fdf0: 61 20 67 6c 6f 62 61 6c 0a 2a 2a 20 76 61 72 69 a global.** vari
fe00: 61 62 6c 65 20 74 68 61 74 20 69 73 20 73 65 74 able that is set
fe10: 20 74 6f 20 74 68 65 20 75 6e 75 73 65 64 20 70 to the unused p
fe20: 6f 72 74 69 6f 6e 20 6f 66 20 3c 73 71 6c 3e 20 ortion of <sql>
fe30: 28 69 66 20 61 6e 79 29 2e 20 41 0a 2a 2a 20 53 (if any). A.** S
fe40: 54 4d 54 20 68 61 6e 64 6c 65 20 69 73 20 72 65 TMT handle is re
fe50: 74 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 turned..*/.stati
fe60: 63 20 69 6e 74 20 74 65 73 74 5f 70 72 65 70 61 c int test_prepa
fe70: 72 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 re(. void * cli
fe80: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
fe90: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
fea0: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
feb0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
fec0: 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 [].){. sqlite3
fed0: 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 *db;. const cha
fee0: 72 20 2a 7a 53 71 6c 3b 0a 20 20 69 6e 74 20 62 r *zSql;. int b
fef0: 79 74 65 73 3b 0a 20 20 63 6f 6e 73 74 20 63 68 ytes;. const ch
ff00: 61 72 20 2a 7a 54 61 69 6c 20 3d 20 30 3b 0a 20 ar *zTail = 0;.
ff10: 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
ff20: 53 74 6d 74 20 3d 20 30 3b 0a 20 20 63 68 61 72 Stmt = 0;. char
ff30: 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 69 6e 74 zBuf[50];. int
ff40: 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 rc;.. if( objc
ff50: 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=5 ){. Tcl_A
ff60: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
ff70: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
ff80: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
ff90: 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 , . Tcl_Ge
ffa0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 tString(objv[0])
ffb0: 2c 20 22 20 44 42 20 73 71 6c 20 62 79 74 65 73 , " DB sql bytes
ffc0: 20 74 61 69 6c 76 61 72 22 2c 20 30 29 3b 0a 20 tailvar", 0);.
ffd0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
ffe0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
fff0: 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
10000 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
10010 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
10020 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
10030 52 4f 52 3b 0a 20 20 7a 53 71 6c 20 3d 20 54 63 ROR;. zSql = Tc
10040 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
10050 5b 32 5d 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f [2]);. if( Tcl_
10060 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
10070 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 terp, objv[3], &
10080 62 79 74 65 73 29 20 29 20 72 65 74 75 72 6e 20 bytes) ) return
10090 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 TCL_ERROR;.. rc
100a0 20 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 = sqlite3_prepa
100b0 72 65 28 64 62 2c 20 7a 53 71 6c 2c 20 62 79 74 re(db, zSql, byt
100c0 65 73 2c 20 26 70 53 74 6d 74 2c 20 26 7a 54 61 es, &pStmt, &zTa
100d0 69 6c 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 il);. if( sqlit
100e0 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e e3TestErrCode(in
100f0 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 terp, db, rc) )
10100 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
10110 3b 0a 20 20 69 66 28 20 7a 54 61 69 6c 20 29 7b ;. if( zTail ){
10120 0a 20 20 20 20 69 66 28 20 62 79 74 65 73 3e 3d . if( bytes>=
10130 30 20 29 7b 0a 20 20 20 20 20 20 62 79 74 65 73 0 ){. bytes
10140 20 3d 20 62 79 74 65 73 20 2d 20 28 7a 54 61 69 = bytes - (zTai
10150 6c 2d 7a 53 71 6c 29 3b 0a 20 20 20 20 7d 0a 20 l-zSql);. }.
10160 20 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 72 Tcl_ObjSetVar
10170 32 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 2(interp, objv[4
10180 5d 2c 20 30 2c 20 54 63 6c 5f 4e 65 77 53 74 72 ], 0, Tcl_NewStr
10190 69 6e 67 4f 62 6a 28 7a 54 61 69 6c 2c 20 62 79 ingObj(zTail, by
101a0 74 65 73 29 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 tes), 0);. }.
101b0 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f if( rc!=SQLITE_O
101c0 4b 20 29 7b 0a 20 20 20 20 61 73 73 65 72 74 28 K ){. assert(
101d0 20 70 53 74 6d 74 3d 3d 30 20 29 3b 0a 20 20 20 pStmt==0 );.
101e0 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 sprintf(zBuf, "
101f0 28 25 64 29 20 22 2c 20 72 63 29 3b 0a 20 20 20 (%d) ", rc);.
10200 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
10210 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 t(interp, zBuf,
10220 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 64 sqlite3_errmsg(d
10230 62 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 b), 0);. retu
10240 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
10250 7d 0a 0a 20 20 69 66 28 20 70 53 74 6d 74 20 29 }.. if( pStmt )
10260 7b 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 {. if( sqlite
10270 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 72 3TestMakePointer
10280 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 Str(interp, zBuf
10290 2c 20 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 , pStmt) ) retur
102a0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
102b0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
102c0 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 t(interp, zBuf,
102d0 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 0);. }. return
102e0 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
102f0 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
10300 5f 70 72 65 70 61 72 65 20 44 42 20 73 71 6c 20 _prepare DB sql
10310 62 79 74 65 73 20 74 61 69 6c 76 61 72 0a 2a 2a bytes tailvar.**
10320 0a 2a 2a 20 43 6f 6d 70 69 6c 65 20 75 70 20 74 .** Compile up t
10330 6f 20 3c 62 79 74 65 73 3e 20 62 79 74 65 73 20 o <bytes> bytes
10340 6f 66 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 of the supplied
10350 53 51 4c 20 73 74 72 69 6e 67 20 3c 73 71 6c 3e SQL string <sql>
10360 20 75 73 69 6e 67 0a 2a 2a 20 64 61 74 61 62 61 using.** databa
10370 73 65 20 68 61 6e 64 6c 65 20 3c 44 42 3e 2e 20 se handle <DB>.
10380 54 68 65 20 70 61 72 61 6d 65 74 65 72 20 3c 74 The parameter <t
10390 61 69 6c 76 61 6c 3e 20 69 73 20 74 68 65 20 6e ailval> is the n
103a0 61 6d 65 20 6f 66 20 61 20 67 6c 6f 62 61 6c 0a ame of a global.
103b0 2a 2a 20 76 61 72 69 61 62 6c 65 20 74 68 61 74 ** variable that
103c0 20 69 73 20 73 65 74 20 74 6f 20 74 68 65 20 75 is set to the u
103d0 6e 75 73 65 64 20 70 6f 72 74 69 6f 6e 20 6f 66 nused portion of
103e0 20 3c 73 71 6c 3e 20 28 69 66 20 61 6e 79 29 2e <sql> (if any).
103f0 20 41 0a 2a 2a 20 53 54 4d 54 20 68 61 6e 64 6c A.** STMT handl
10400 65 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a e is returned..*
10410 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
10420 74 5f 70 72 65 70 61 72 65 31 36 28 0a 20 20 76 t_prepare16(. v
10430 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
10440 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
10450 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
10460 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
10470 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 ONST objv[].){.#
10480 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
10490 49 54 5f 55 54 46 31 36 0a 20 20 73 71 6c 69 74 IT_UTF16. sqlit
104a0 65 33 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 e3 *db;. const
104b0 76 6f 69 64 20 2a 7a 53 71 6c 3b 0a 20 20 63 6f void *zSql;. co
104c0 6e 73 74 20 76 6f 69 64 20 2a 7a 54 61 69 6c 20 nst void *zTail
104d0 3d 20 30 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a = 0;. Tcl_Obj *
104e0 70 54 61 69 6c 20 3d 20 30 3b 0a 20 20 73 71 6c pTail = 0;. sql
104f0 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 ite3_stmt *pStmt
10500 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 = 0;. char zBu
10510 66 5b 35 30 5d 3b 20 0a 20 20 69 6e 74 20 72 63 f[50]; . int rc
10520 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 20 20 ;. int bytes;
10530 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
10540 20 54 68 65 20 69 6e 74 65 67 65 72 20 73 70 65 The integer spe
10550 63 69 66 69 65 64 20 61 73 20 61 72 67 20 33 20 cified as arg 3
10560 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 6c 65 6e 3b */. int objlen;
10570 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
10580 2a 20 54 68 65 20 62 79 74 65 2d 61 72 72 61 79 * The byte-array
10590 20 6c 65 6e 67 74 68 20 6f 66 20 61 72 67 20 32 length of arg 2
105a0 20 2a 2f 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 */.. if( objc!
105b0 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =5 ){. Tcl_Ap
105c0 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
105d0 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
105e0 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
105f0 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
10600 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
10610 20 22 20 44 42 20 73 71 6c 20 62 79 74 65 73 20 " DB sql bytes
10620 74 61 69 6c 76 61 72 22 2c 20 30 29 3b 0a 20 20 tailvar", 0);.
10630 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
10640 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
10650 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
10660 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
10670 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 (objv[1]), &db)
10680 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
10690 4f 52 3b 0a 20 20 7a 53 71 6c 20 3d 20 54 63 6c OR;. zSql = Tcl
106a0 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f _GetByteArrayFro
106b0 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 6f mObj(objv[2], &o
106c0 62 6a 6c 65 6e 29 3b 0a 20 20 69 66 28 20 54 63 bjlen);. if( Tc
106d0 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
106e0 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c interp, objv[3],
106f0 20 26 62 79 74 65 73 29 20 29 20 72 65 74 75 72 &bytes) ) retur
10700 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 n TCL_ERROR;..
10710 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 rc = sqlite3_pre
10720 70 61 72 65 31 36 28 64 62 2c 20 7a 53 71 6c 2c pare16(db, zSql,
10730 20 62 79 74 65 73 2c 20 26 70 53 74 6d 74 2c 20 bytes, &pStmt,
10740 26 7a 54 61 69 6c 29 3b 0a 20 20 69 66 28 20 73 &zTail);. if( s
10750 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 qlite3TestErrCod
10760 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 e(interp, db, rc
10770 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
10780 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 20 29 RROR;. if( rc )
10790 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
107a0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
107b0 66 28 20 7a 54 61 69 6c 20 29 7b 0a 20 20 20 20 f( zTail ){.
107c0 6f 62 6a 6c 65 6e 20 3d 20 6f 62 6a 6c 65 6e 20 objlen = objlen
107d0 2d 20 28 28 75 38 20 2a 29 7a 54 61 69 6c 2d 28 - ((u8 *)zTail-(
107e0 75 38 20 2a 29 7a 53 71 6c 29 3b 0a 20 20 7d 65 u8 *)zSql);. }e
107f0 6c 73 65 7b 0a 20 20 20 20 6f 62 6a 6c 65 6e 20 lse{. objlen
10800 3d 20 30 3b 0a 20 20 7d 0a 20 20 70 54 61 69 6c = 0;. }. pTail
10810 20 3d 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 = Tcl_NewByteAr
10820 72 61 79 4f 62 6a 28 28 75 38 20 2a 29 7a 54 61 rayObj((u8 *)zTa
10830 69 6c 2c 20 6f 62 6a 6c 65 6e 29 3b 0a 20 20 54 il, objlen);. T
10840 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
10850 70 54 61 69 6c 29 3b 0a 20 20 54 63 6c 5f 4f 62 pTail);. Tcl_Ob
10860 6a 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c jSetVar2(interp,
10870 20 6f 62 6a 76 5b 34 5d 2c 20 30 2c 20 70 54 61 objv[4], 0, pTa
10880 69 6c 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 44 65 il, 0);. Tcl_De
10890 63 72 52 65 66 43 6f 75 6e 74 28 70 54 61 69 6c crRefCount(pTail
108a0 29 3b 0a 0a 20 20 69 66 28 20 70 53 74 6d 74 20 );.. if( pStmt
108b0 29 7b 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74 ){. if( sqlit
108c0 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 e3TestMakePointe
108d0 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 rStr(interp, zBu
108e0 66 2c 20 70 53 74 6d 74 29 20 29 20 72 65 74 75 f, pStmt) ) retu
108f0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
10900 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 }. Tcl_AppendRe
10910 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 sult(interp, zBu
10920 66 2c 20 30 29 3b 0a 23 65 6e 64 69 66 20 2f 2a f, 0);.#endif /*
10930 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 SQLITE_OMIT_UTF
10940 31 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 16 */. return T
10950 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
10960 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 6f Usage: sqlite3_o
10970 70 65 6e 20 66 69 6c 65 6e 61 6d 65 20 3f 6f 70 pen filename ?op
10980 74 69 6f 6e 73 2d 6c 69 73 74 3f 0a 2a 2f 0a 73 tions-list?.*/.s
10990 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6f tatic int test_o
109a0 70 65 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c pen(. void * cl
109b0 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
109c0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
109d0 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
109e0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
109f0 76 5b 5d 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 v[].){. const c
10a00 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 3b 0a har *zFilename;.
10a10 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
10a20 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 int rc;. char
10a30 7a 42 75 66 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 zBuf[100];.. if
10a40 28 20 6f 62 6a 63 21 3d 33 20 26 26 20 6f 62 6a ( objc!=3 && obj
10a50 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
10a60 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
10a70 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
10a80 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
10a90 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 ", . Tcl_G
10aa0 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d etString(objv[0]
10ab0 29 2c 20 22 20 66 69 6c 65 6e 61 6d 65 20 6f 70 ), " filename op
10ac0 74 69 6f 6e 73 2d 6c 69 73 74 22 2c 20 30 29 3b tions-list", 0);
10ad0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
10ae0 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 7a 46 ERROR;. }.. zF
10af0 69 6c 65 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 ilename = Tcl_Ge
10b00 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
10b10 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
10b20 5f 6f 70 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 2c _open(zFilename,
10b30 20 26 64 62 29 3b 0a 20 20 0a 20 20 69 66 28 20 &db);. . if(
10b40 73 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 50 sqlite3TestMakeP
10b50 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 ointerStr(interp
10b60 2c 20 7a 42 75 66 2c 20 64 62 29 20 29 20 72 65 , zBuf, db) ) re
10b70 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
10b80 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
10b90 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c lt(interp, zBuf,
10ba0 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 0);. return TC
10bb0 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
10bc0 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 6f 70 sage: sqlite3_op
10bd0 65 6e 31 36 20 66 69 6c 65 6e 61 6d 65 20 6f 70 en16 filename op
10be0 74 69 6f 6e 73 0a 2a 2f 0a 73 74 61 74 69 63 20 tions.*/.static
10bf0 69 6e 74 20 74 65 73 74 5f 6f 70 65 6e 31 36 28 int test_open16(
10c00 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
10c10 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
10c20 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
10c30 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
10c40 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
10c50 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 ){.#ifndef SQLIT
10c60 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 63 E_OMIT_UTF16. c
10c70 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 46 69 6c 65 onst void *zFile
10c80 6e 61 6d 65 3b 0a 20 20 73 71 6c 69 74 65 33 20 name;. sqlite3
10c90 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 *db;. int rc;.
10ca0 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30 5d 3b char zBuf[100];
10cb0 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 .. if( objc!=3
10cc0 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
10cd0 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
10ce0 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
10cf0 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 hould be \"", .
10d00 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
10d10 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 ing(objv[0]), "
10d20 66 69 6c 65 6e 61 6d 65 20 6f 70 74 69 6f 6e 73 filename options
10d30 2d 6c 69 73 74 22 2c 20 30 29 3b 0a 20 20 20 20 -list", 0);.
10d40 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
10d50 3b 0a 20 20 7d 0a 0a 20 20 7a 46 69 6c 65 6e 61 ;. }.. zFilena
10d60 6d 65 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 me = Tcl_GetByte
10d70 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a ArrayFromObj(obj
10d80 76 5b 31 5d 2c 20 30 29 3b 0a 20 20 72 63 20 3d v[1], 0);. rc =
10d90 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 31 36 28 sqlite3_open16(
10da0 7a 46 69 6c 65 6e 61 6d 65 2c 20 26 64 62 29 3b zFilename, &db);
10db0 0a 20 20 0a 20 20 69 66 28 20 73 71 6c 69 74 65 . . if( sqlite
10dc0 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 72 3TestMakePointer
10dd0 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 Str(interp, zBuf
10de0 2c 20 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 , db) ) return T
10df0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f CL_ERROR;. Tcl_
10e00 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
10e10 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 23 erp, zBuf, 0);.#
10e20 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f endif /* SQLITE_
10e30 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a 20 20 OMIT_UTF16 */.
10e40 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
10e50 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 ../*.** Usage: s
10e60 71 6c 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 31 qlite3_complete1
10e70 36 20 3c 55 54 46 2d 31 36 20 73 74 72 69 6e 67 6 <UTF-16 string
10e80 3e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 31 >.**.** Return 1
10e90 20 69 66 20 74 68 65 20 73 75 70 70 6c 69 65 64 if the supplied
10ea0 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 63 argument is a c
10eb0 6f 6d 70 6c 65 74 65 20 53 51 4c 20 73 74 61 74 omplete SQL stat
10ec0 65 6d 65 6e 74 2c 20 6f 72 20 7a 65 72 6f 0a 2a ement, or zero.*
10ed0 2a 20 6f 74 68 65 72 77 69 73 65 2e 0a 2a 2f 0a * otherwise..*/.
10ee0 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
10ef0 63 6f 6d 70 6c 65 74 65 31 36 28 0a 20 20 76 6f complete16(. vo
10f00 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
10f10 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
10f20 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
10f30 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
10f40 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 NST objv[].){.#i
10f50 66 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 f !defined(SQLIT
10f60 45 5f 4f 4d 49 54 5f 43 4f 4d 50 4c 45 54 45 29 E_OMIT_COMPLETE)
10f70 20 26 26 20 21 64 65 66 69 6e 65 64 28 53 51 4c && !defined(SQL
10f80 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 29 0a ITE_OMIT_UTF16).
10f90 20 20 63 68 61 72 20 2a 7a 42 75 66 3b 0a 0a 20 char *zBuf;..
10fa0 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a if( objc!=2 ){.
10fb0 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
10fc0 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
10fd0 6f 62 6a 76 2c 20 22 3c 75 74 66 2d 31 36 20 73 objv, "<utf-16 s
10fe0 71 6c 3e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 ql>");. retur
10ff0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
11000 0a 0a 20 20 7a 42 75 66 20 3d 20 28 63 68 61 72 .. zBuf = (char
11010 2a 29 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 *)Tcl_GetByteArr
11020 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 ayFromObj(objv[1
11030 5d 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 53 65 74 ], 0);. Tcl_Set
11040 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
11050 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 , Tcl_NewIntObj(
11060 73 71 6c 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 sqlite3_complete
11070 31 36 28 7a 42 75 66 29 29 29 3b 0a 23 65 6e 64 16(zBuf)));.#end
11080 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 if /* SQLITE_OMI
11090 54 5f 43 4f 4d 50 4c 45 54 45 20 26 26 20 53 51 T_COMPLETE && SQ
110a0 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 LITE_OMIT_UTF16
110b0 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f */. return TCL_
110c0 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
110d0 67 65 3a 20 73 71 6c 69 74 65 33 5f 73 74 65 70 ge: sqlite3_step
110e0 20 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 41 64 76 61 STMT.**.** Adva
110f0 6e 63 65 20 74 68 65 20 73 74 61 74 65 6d 65 6e nce the statemen
11100 74 20 74 6f 20 74 68 65 20 6e 65 78 74 20 72 6f t to the next ro
11110 77 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 w..*/.static int
11120 20 74 65 73 74 5f 73 74 65 70 28 0a 20 20 76 6f test_step(. vo
11130 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
11140 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
11150 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
11160 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
11170 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
11180 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 sqlite3_stmt *pS
11190 74 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a tmt;. int rc;..
111a0 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b if( objc!=2 ){
111b0 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
111c0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
111d0 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
111e0 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 uld be \"", .
111f0 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
11200 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 g(objv[0]), " ST
11210 4d 54 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 MT", 0);. ret
11220 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
11230 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d }.. if( getStm
11240 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
11250 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
11260 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 bjv[1]), &pStmt)
11270 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
11280 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 ROR;. rc = sqli
11290 74 65 33 5f 73 74 65 70 28 70 53 74 6d 74 29 3b te3_step(pStmt);
112a0 0a 0a 20 20 2f 2a 20 69 66 28 20 72 63 21 3d 53 .. /* if( rc!=S
112b0 51 4c 49 54 45 5f 44 4f 4e 45 20 26 26 20 72 63 QLITE_DONE && rc
112c0 21 3d 53 51 4c 49 54 45 5f 52 4f 57 20 29 20 72 !=SQLITE_ROW ) r
112d0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
112e0 20 2a 2f 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 */. Tcl_SetRes
112f0 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 ult(interp, (cha
11300 72 20 2a 29 65 72 72 6f 72 4e 61 6d 65 28 72 63 r *)errorName(rc
11310 29 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 ), 0);. return
11320 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
11330 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
11340 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 20 53 54 4d column_count STM
11350 54 20 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 T .**.** Return
11360 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f the number of co
11370 6c 75 6d 6e 73 20 72 65 74 75 72 6e 65 64 20 62 lumns returned b
11380 79 20 74 68 65 20 73 71 6c 20 73 74 61 74 65 6d y the sql statem
11390 65 6e 74 20 53 54 4d 54 2e 0a 2a 2f 0a 73 74 61 ent STMT..*/.sta
113a0 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c tic int test_col
113b0 75 6d 6e 5f 63 6f 75 6e 74 28 0a 20 20 76 6f 69 umn_count(. voi
113c0 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
113d0 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
113e0 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
113f0 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
11400 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
11410 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
11420 6d 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 mt;.. if( objc!
11430 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
11440 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
11450 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
11460 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
11470 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
11480 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
11490 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c " STMT column",
114a0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
114b0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
114c0 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
114d0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
114e0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
114f0 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
11500 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
11510 0a 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 .. Tcl_SetObjRe
11520 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
11530 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 _NewIntObj(sqlit
11540 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 28 e3_column_count(
11550 70 53 74 6d 74 29 29 29 3b 0a 20 20 72 65 74 75 pStmt)));. retu
11560 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
11570 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
11580 65 33 5f 63 6f 6c 75 6d 6e 5f 74 79 70 65 20 53 e3_column_type S
11590 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a TMT column.**.**
115a0 20 52 65 74 75 72 6e 20 74 68 65 20 74 79 70 65 Return the type
115b0 20 6f 66 20 74 68 65 20 64 61 74 61 20 69 6e 20 of the data in
115c0 63 6f 6c 75 6d 6e 20 27 63 6f 6c 75 6d 6e 27 20 column 'column'
115d0 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 of the current r
115e0 6f 77 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ow..*/.static in
115f0 74 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 74 79 t test_column_ty
11600 70 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 pe(. void * cli
11610 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
11620 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
11630 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
11640 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
11650 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f [].){. sqlite3_
11660 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 stmt *pStmt;. i
11670 6e 74 20 63 6f 6c 3b 0a 20 20 69 6e 74 20 74 70 nt col;. int tp
11680 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 ;.. if( objc!=3
11690 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
116a0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
116b0 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
116c0 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a should be \"", .
116d0 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
116e0 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 ring(objv[0]), "
116f0 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 STMT column", 0
11700 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
11710 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
11720 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
11730 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
11740 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
11750 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
11760 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
11770 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
11780 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
11790 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 20 bjv[2], &col) )
117a0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
117b0 3b 0a 0a 20 20 74 70 20 3d 20 73 71 6c 69 74 65 ;.. tp = sqlite
117c0 33 5f 63 6f 6c 75 6d 6e 5f 74 79 70 65 28 70 53 3_column_type(pS
117d0 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 73 77 69 tmt, col);. swi
117e0 74 63 68 28 20 74 70 20 29 7b 0a 20 20 20 20 63 tch( tp ){. c
117f0 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 ase SQLITE_INTEG
11800 45 52 3a 20 0a 20 20 20 20 20 20 54 63 6c 5f 53 ER: . Tcl_S
11810 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
11820 20 22 49 4e 54 45 47 45 52 22 2c 20 54 43 4c 5f "INTEGER", TCL_
11830 53 54 41 54 49 43 29 3b 20 0a 20 20 20 20 20 20 STATIC); .
11840 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
11850 53 51 4c 49 54 45 5f 4e 55 4c 4c 3a 0a 20 20 20 SQLITE_NULL:.
11860 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
11870 28 69 6e 74 65 72 70 2c 20 22 4e 55 4c 4c 22 2c (interp, "NULL",
11880 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 20 0a 20 TCL_STATIC); .
11890 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
118a0 63 61 73 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41 case SQLITE_FLOA
118b0 54 3a 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 T:. Tcl_Set
118c0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
118d0 46 4c 4f 41 54 22 2c 20 54 43 4c 5f 53 54 41 54 FLOAT", TCL_STAT
118e0 49 43 29 3b 20 0a 20 20 20 20 20 20 62 72 65 61 IC); . brea
118f0 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
11900 54 45 5f 54 45 58 54 3a 0a 20 20 20 20 20 20 54 TE_TEXT:. T
11910 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
11920 65 72 70 2c 20 22 54 45 58 54 22 2c 20 54 43 4c erp, "TEXT", TCL
11930 5f 53 54 41 54 49 43 29 3b 20 0a 20 20 20 20 20 _STATIC); .
11940 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
11950 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 0a 20 20 SQLITE_BLOB:.
11960 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c Tcl_SetResul
11970 74 28 69 6e 74 65 72 70 2c 20 22 42 4c 4f 42 22 t(interp, "BLOB"
11980 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 20 0a , TCL_STATIC); .
11990 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
119a0 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 default:.
119b0 61 73 73 65 72 74 28 30 29 3b 0a 20 20 7d 0a 0a assert(0);. }..
119c0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
119d0 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
119e0 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
119f0 69 6e 74 36 34 20 53 54 4d 54 20 63 6f 6c 75 6d int64 STMT colum
11a00 6e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 n.**.** Return t
11a10 68 65 20 64 61 74 61 20 69 6e 20 63 6f 6c 75 6d he data in colum
11a20 6e 20 27 63 6f 6c 75 6d 6e 27 20 6f 66 20 74 68 n 'column' of th
11a30 65 20 63 75 72 72 65 6e 74 20 72 6f 77 20 63 61 e current row ca
11a40 73 74 20 61 73 20 61 6e 0a 2a 2a 20 77 69 64 65 st as an.** wide
11a50 20 28 36 34 2d 62 69 74 29 20 69 6e 74 65 67 65 (64-bit) intege
11a60 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 r..*/.static int
11a70 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 test_column_int
11a80 36 34 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 64(. void * cli
11a90 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
11aa0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
11ab0 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
11ac0 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
11ad0 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f [].){. sqlite3_
11ae0 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 stmt *pStmt;. i
11af0 6e 74 20 63 6f 6c 3b 0a 20 20 69 36 34 20 69 56 nt col;. i64 iV
11b00 61 6c 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 al;.. if( objc!
11b10 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =3 ){. Tcl_Ap
11b20 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
11b30 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
11b40 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
11b50 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
11b60 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
11b70 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c " STMT column",
11b80 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
11b90 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
11ba0 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
11bb0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
11bc0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
11bd0 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
11be0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
11bf0 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
11c00 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
11c10 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 objv[2], &col)
11c20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
11c30 4f 52 3b 0a 0a 20 20 69 56 61 6c 20 3d 20 73 71 OR;.. iVal = sq
11c40 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 lite3_column_int
11c50 36 34 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 64(pStmt, col);.
11c60 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
11c70 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e lt(interp, Tcl_N
11c80 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 69 56 61 ewWideIntObj(iVa
11c90 6c 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 l));. return TC
11ca0 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
11cb0 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f sage: sqlite3_co
11cc0 6c 75 6d 6e 5f 62 6c 6f 62 20 53 54 4d 54 20 63 lumn_blob STMT c
11cd0 6f 6c 75 6d 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 olumn.*/.static
11ce0 69 6e 74 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f int test_column_
11cf0 62 6c 6f 62 28 0a 20 20 76 6f 69 64 20 2a 20 63 blob(. void * c
11d00 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
11d10 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
11d20 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
11d30 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
11d40 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
11d50 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
11d60 20 69 6e 74 20 63 6f 6c 3b 0a 0a 20 20 69 6e 74 int col;.. int
11d70 20 6c 65 6e 3b 0a 20 20 63 6f 6e 73 74 20 76 6f len;. const vo
11d80 69 64 20 2a 70 42 6c 6f 62 3b 0a 0a 20 20 69 66 id *pBlob;.. if
11d90 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 ( objc!=3 ){.
11da0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
11db0 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
11dc0 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
11dd0 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 be \"", .
11de0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
11df0 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 jv[0]), " STMT c
11e00 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 olumn", 0);.
11e10 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
11e20 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 ;. }.. if( get
11e30 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
11e40 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
11e50 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
11e60 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
11e70 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 _ERROR;. if( Tc
11e80 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
11e90 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
11ea0 20 26 63 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 &col) ) return
11eb0 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 70 42 TCL_ERROR;.. pB
11ec0 6c 6f 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f lob = sqlite3_co
11ed0 6c 75 6d 6e 5f 62 6c 6f 62 28 70 53 74 6d 74 2c lumn_blob(pStmt,
11ee0 20 63 6f 6c 29 3b 0a 20 20 6c 65 6e 20 3d 20 73 col);. len = s
11ef0 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 qlite3_column_by
11f00 74 65 73 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b tes(pStmt, col);
11f10 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 . Tcl_SetObjRes
11f20 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
11f30 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28 NewByteArrayObj(
11f40 70 42 6c 6f 62 2c 20 6c 65 6e 29 29 3b 0a 20 20 pBlob, len));.
11f50 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
11f60 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 ../*.** Usage: s
11f70 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 6f qlite3_column_do
11f80 75 62 6c 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e uble STMT column
11f90 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 .**.** Return th
11fa0 65 20 64 61 74 61 20 69 6e 20 63 6f 6c 75 6d 6e e data in column
11fb0 20 27 63 6f 6c 75 6d 6e 27 20 6f 66 20 74 68 65 'column' of the
11fc0 20 63 75 72 72 65 6e 74 20 72 6f 77 20 63 61 73 current row cas
11fd0 74 20 61 73 20 61 20 64 6f 75 62 6c 65 2e 0a 2a t as a double..*
11fe0 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
11ff0 74 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 6c 65 28 t_column_double(
12000 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
12010 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
12020 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
12030 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
12040 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
12050 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
12060 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 t *pStmt;. int
12070 63 6f 6c 3b 0a 20 20 64 6f 75 62 6c 65 20 72 56 col;. double rV
12080 61 6c 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 al;.. if( objc!
12090 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =3 ){. Tcl_Ap
120a0 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
120b0 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
120c0 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
120d0 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
120e0 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
120f0 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c " STMT column",
12100 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
12110 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
12120 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
12130 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
12140 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
12150 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
12160 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
12170 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
12180 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
12190 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 objv[2], &col)
121a0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
121b0 4f 52 3b 0a 0a 20 20 72 56 61 6c 20 3d 20 73 71 OR;.. rVal = sq
121c0 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 lite3_column_dou
121d0 62 6c 65 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b ble(pStmt, col);
121e0 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 . Tcl_SetObjRes
121f0 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
12200 4e 65 77 44 6f 75 62 6c 65 4f 62 6a 28 72 56 61 NewDoubleObj(rVa
12210 6c 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 l));. return TC
12220 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
12230 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 64 61 sage: sqlite3_da
12240 74 61 5f 63 6f 75 6e 74 20 53 54 4d 54 20 0a 2a ta_count STMT .*
12250 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 *.** Return the
12260 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e number of column
12270 73 20 72 65 74 75 72 6e 65 64 20 62 79 20 74 68 s returned by th
12280 65 20 73 71 6c 20 73 74 61 74 65 6d 65 6e 74 20 e sql statement
12290 53 54 4d 54 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 STMT..*/.static
122a0 69 6e 74 20 74 65 73 74 5f 64 61 74 61 5f 63 6f int test_data_co
122b0 75 6e 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c unt(. void * cl
122c0 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
122d0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
122e0 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
122f0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
12300 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
12310 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 _stmt *pStmt;..
12320 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a if( objc!=2 ){.
12330 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
12340 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
12350 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
12360 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
12370 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
12380 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d (objv[0]), " STM
12390 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 T column", 0);.
123a0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
123b0 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
123c0 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
123d0 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
123e0 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
123f0 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
12400 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 54 63 TCL_ERROR;.. Tc
12410 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
12420 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e nterp, Tcl_NewIn
12430 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f 64 61 74 tObj(sqlite3_dat
12440 61 5f 63 6f 75 6e 74 28 70 53 74 6d 74 29 29 29 a_count(pStmt)))
12450 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
12460 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
12470 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d e: sqlite3_colum
12480 6e 5f 74 65 78 74 20 53 54 4d 54 20 63 6f 6c 75 n_text STMT colu
12490 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 mn.**.** Usage:
124a0 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 sqlite3_column_d
124b0 65 63 6c 74 79 70 65 20 53 54 4d 54 20 63 6f 6c ecltype STMT col
124c0 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a umn.**.** Usage:
124d0 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
124e0 6e 61 6d 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e name STMT column
124f0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
12500 65 73 74 5f 73 74 6d 74 5f 75 74 66 38 28 0a 20 est_stmt_utf8(.
12510 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
12520 74 61 2c 20 20 20 20 20 20 20 20 2f 2a 20 50 6f ta, /* Po
12530 69 6e 74 65 72 20 74 6f 20 53 51 4c 69 74 65 20 inter to SQLite
12540 41 50 49 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 API function to
12550 62 65 20 69 6e 76 6f 6b 65 20 2a 2f 0a 20 20 54 be invoke */. T
12560 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
12570 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
12580 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
12590 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
125a0 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
125b0 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 63 6f . int col;. co
125c0 6e 73 74 20 63 68 61 72 20 2a 28 2a 78 46 75 6e nst char *(*xFun
125d0 63 29 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a c)(sqlite3_stmt*
125e0 2c 20 69 6e 74 29 20 3d 20 63 6c 69 65 6e 74 44 , int) = clientD
125f0 61 74 61 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 ata;. const cha
12600 72 20 2a 7a 52 65 74 3b 0a 0a 20 20 69 66 28 20 r *zRet;.. if(
12610 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 objc!=3 ){. T
12620 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
12630 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
12640 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
12650 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 \"", . Tc
12660 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
12670 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c [0]), " STMT col
12680 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 umn", 0);. re
12690 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
126a0 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 }.. if( getSt
126b0 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
126c0 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
126d0 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 objv[1]), &pStmt
126e0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
126f0 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
12700 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
12710 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 terp, objv[2], &
12720 63 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 col) ) return TC
12730 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 52 65 74 20 L_ERROR;. zRet
12740 3d 20 78 46 75 6e 63 28 70 53 74 6d 74 2c 20 63 = xFunc(pStmt, c
12750 6f 6c 29 3b 0a 20 20 69 66 28 20 7a 52 65 74 20 ol);. if( zRet
12760 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 ){. Tcl_SetRe
12770 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 sult(interp, (ch
12780 61 72 20 2a 29 7a 52 65 74 2c 20 30 29 3b 0a 20 ar *)zRet, 0);.
12790 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f }. return TCL_
127a0 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e OK;.}..static in
127b0 74 20 74 65 73 74 5f 67 6c 6f 62 61 6c 5f 72 65 t test_global_re
127c0 63 6f 76 65 72 28 0a 20 20 76 6f 69 64 20 2a 20 cover(. void *
127d0 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
127e0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
127f0 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
12800 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
12810 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 bjv[].){.#ifndef
12820 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 47 4c 4f SQLITE_OMIT_GLO
12830 42 41 4c 52 45 43 4f 56 45 52 0a 20 20 69 6e 74 BALRECOVER. int
12840 20 72 63 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 rc;. if( objc!
12850 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 =1 ){. Tcl_Wr
12860 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
12870 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 22 29 3b p, 1, objv, "");
12880 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
12890 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 20 ERROR;. }. rc
128a0 3d 20 73 71 6c 69 74 65 33 5f 67 6c 6f 62 61 6c = sqlite3_global
128b0 5f 72 65 63 6f 76 65 72 28 29 3b 0a 20 20 54 63 _recover();. Tc
128c0 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
128d0 72 70 2c 20 28 63 68 61 72 20 2a 29 65 72 72 6f rp, (char *)erro
128e0 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 rName(rc), TCL_S
128f0 54 41 54 49 43 29 3b 0a 23 65 6e 64 69 66 0a 20 TATIC);.#endif.
12900 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
12910 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
12920 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 sqlite3_column_t
12930 65 78 74 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a ext STMT column.
12940 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c **.** Usage: sql
12950 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c ite3_column_decl
12960 74 79 70 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e type STMT column
12970 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 .**.** Usage: sq
12980 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d lite3_column_nam
12990 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2f e STMT column.*/
129a0 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
129b0 5f 73 74 6d 74 5f 75 74 66 31 36 28 0a 20 20 76 _stmt_utf16(. v
129c0 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
129d0 2c 20 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 , /* Pointer
129e0 20 74 6f 20 53 51 4c 69 74 65 20 41 50 49 20 66 to SQLite API f
129f0 75 6e 63 74 69 6f 6e 20 74 6f 20 62 65 20 69 6e unction to be in
12a00 76 6f 6b 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 voked */. Tcl_I
12a10 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
12a20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
12a30 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
12a40 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 [].){.#ifndef SQ
12a50 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a LITE_OMIT_UTF16.
12a60 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
12a70 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 63 6f 6c pStmt;. int col
12a80 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 ;. Tcl_Obj *pRe
12a90 74 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 t;. const void
12aa0 2a 7a 4e 61 6d 65 31 36 3b 0a 20 20 63 6f 6e 73 *zName16;. cons
12ab0 74 20 76 6f 69 64 20 2a 28 2a 78 46 75 6e 63 29 t void *(*xFunc)
12ac0 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a 2c 20 (sqlite3_stmt*,
12ad0 69 6e 74 29 20 3d 20 63 6c 69 65 6e 74 44 61 74 int) = clientDat
12ae0 61 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d a;.. if( objc!=
12af0 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 3 ){. Tcl_App
12b00 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
12b10 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
12b20 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
12b30 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 . Tcl_GetS
12b40 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 tring(objv[0]),
12b50 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 " STMT column",
12b60 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
12b70 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
12b80 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e if( getStmtPoin
12b90 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
12ba0 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
12bb0 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 ]), &pStmt) ) re
12bc0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
12bd0 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
12be0 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
12bf0 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 objv[2], &col) )
12c00 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
12c10 52 3b 0a 0a 20 20 7a 4e 61 6d 65 31 36 20 3d 20 R;.. zName16 =
12c20 78 46 75 6e 63 28 70 53 74 6d 74 2c 20 63 6f 6c xFunc(pStmt, col
12c30 29 3b 0a 20 20 69 66 28 20 7a 4e 61 6d 65 31 36 );. if( zName16
12c40 20 29 7b 0a 20 20 20 20 70 52 65 74 20 3d 20 54 ){. pRet = T
12c50 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f cl_NewByteArrayO
12c60 62 6a 28 7a 4e 61 6d 65 31 36 2c 20 73 71 6c 69 bj(zName16, sqli
12c70 74 65 33 75 74 66 31 36 42 79 74 65 4c 65 6e 28 te3utf16ByteLen(
12c80 7a 4e 61 6d 65 31 36 2c 20 2d 31 29 2b 32 29 3b zName16, -1)+2);
12c90 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
12ca0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52 esult(interp, pR
12cb0 65 74 29 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 20 et);. }.#endif
12cc0 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 /* SQLITE_OMIT_U
12cd0 54 46 31 36 20 2a 2f 0a 0a 20 20 72 65 74 75 72 TF16 */.. retur
12ce0 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
12cf0 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
12d00 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 20 53 54 4d 3_column_int STM
12d10 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 T column.**.** U
12d20 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f sage: sqlite3_co
12d30 6c 75 6d 6e 5f 62 79 74 65 73 20 53 54 4d 54 20 lumn_bytes STMT
12d40 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 column.**.** Usa
12d50 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 ge: sqlite3_colu
12d60 6d 6e 5f 62 79 74 65 73 31 36 20 53 54 4d 54 20 mn_bytes16 STMT
12d70 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2f 0a 73 74 61 column.**.*/.sta
12d80 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 74 6d tic int test_stm
12d90 74 5f 69 6e 74 28 0a 20 20 76 6f 69 64 20 2a 20 t_int(. void *
12da0 63 6c 69 65 6e 74 44 61 74 61 2c 20 20 20 20 2f clientData, /
12db0 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 53 51 4c * Pointer to SQL
12dc0 69 74 65 20 41 50 49 20 66 75 6e 63 74 69 6f 6e ite API function
12dd0 20 74 6f 20 62 65 20 69 6e 76 6f 6b 65 64 20 2a to be invoked *
12de0 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a /. Tcl_Interp *
12df0 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
12e00 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
12e10 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
12e20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
12e30 53 74 6d 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b Stmt;. int col;
12e40 0a 20 20 69 6e 74 20 28 2a 78 46 75 6e 63 29 28 . int (*xFunc)(
12e50 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a 2c 20 69 sqlite3_stmt*, i
12e60 6e 74 29 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 nt) = clientData
12e70 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 ;.. if( objc!=3
12e80 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
12e90 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
12ea0 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
12eb0 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a should be \"", .
12ec0 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
12ed0 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 ring(objv[0]), "
12ee0 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 STMT column", 0
12ef0 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
12f00 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
12f10 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
12f20 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
12f30 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
12f40 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
12f50 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
12f60 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
12f70 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
12f80 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 20 bjv[2], &col) )
12f90 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
12fa0 3b 0a 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 ;.. Tcl_SetObjR
12fb0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
12fc0 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 78 46 75 6e l_NewIntObj(xFun
12fd0 63 28 70 53 74 6d 74 2c 20 63 6f 6c 29 29 29 3b c(pStmt, col)));
12fe0 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
12ff0 3b 0a 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c ;.}..#ifndef SQL
13000 49 54 45 5f 4f 4d 49 54 5f 44 49 53 4b 49 4f 0a ITE_OMIT_DISKIO.
13010 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
13020 6c 69 74 65 33 4f 73 4f 70 65 6e 52 65 61 64 57 lite3OsOpenReadW
13030 72 69 74 65 20 3c 66 69 6c 65 6e 61 6d 65 3e 0a rite <filename>.
13040 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
13050 73 74 5f 73 71 6c 69 74 65 33 4f 73 4f 70 65 6e st_sqlite3OsOpen
13060 52 65 61 64 57 72 69 74 65 28 0a 20 20 76 6f 69 ReadWrite(. voi
13070 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
13080 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
13090 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
130a0 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
130b0 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 4f ST objv[].){. O
130c0 73 46 69 6c 65 20 2a 70 46 69 6c 65 3b 0a 20 20 sFile *pFile;.
130d0 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 64 75 int rc;. int du
130e0 6d 6d 79 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 mmy;. char zBuf
130f0 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 [100];.. if( ob
13100 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
13110 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
13120 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
13130 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
13140 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
13150 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
13160 5d 29 2c 20 22 20 66 69 6c 65 6e 61 6d 65 22 2c ]), " filename",
13170 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
13180 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
13190 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 rc = sqlite3Os
131a0 4f 70 65 6e 52 65 61 64 57 72 69 74 65 28 54 63 OpenReadWrite(Tc
131b0 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
131c0 5b 31 5d 29 2c 20 26 70 46 69 6c 65 2c 20 26 64 [1]), &pFile, &d
131d0 75 6d 6d 79 29 3b 0a 20 20 69 66 28 20 72 63 21 ummy);. if( rc!
131e0 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 =SQLITE_OK ){.
131f0 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
13200 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
13210 65 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 errorName(rc), T
13220 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 CL_STATIC);.
13230 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
13240 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 54 ;. }. sqlite3T
13250 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 estMakePointerSt
13260 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 r(interp, zBuf,
13270 70 46 69 6c 65 29 3b 0a 20 20 54 63 6c 5f 53 65 pFile);. Tcl_Se
13280 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
13290 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 zBuf, 0);. retu
132a0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a rn TCL_ERROR;.}.
132b0 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
132c0 71 6c 69 74 65 33 4f 73 43 6c 6f 73 65 20 3c 66 qlite3OsClose <f
132d0 69 6c 65 20 68 61 6e 64 6c 65 3e 0a 2a 2f 0a 73 ile handle>.*/.s
132e0 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 tatic int test_s
132f0 71 6c 69 74 65 33 4f 73 43 6c 6f 73 65 28 0a 20 qlite3OsClose(.
13300 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
13310 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
13320 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
13330 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
13340 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
13350 0a 20 20 4f 73 46 69 6c 65 20 2a 70 46 69 6c 65 . OsFile *pFile
13360 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 ;. int rc;.. i
13370 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 f( objc!=2 ){.
13380 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
13390 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
133a0 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
133b0 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 be \"", .
133c0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
133d0 62 6a 76 5b 30 5d 29 2c 20 22 20 66 69 6c 65 68 bjv[0]), " fileh
133e0 61 6e 64 6c 65 22 2c 20 30 29 3b 0a 20 20 20 20 andle", 0);.
133f0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
13400 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 ;. }.. if( get
13410 46 69 6c 65 50 6f 69 6e 74 65 72 28 69 6e 74 65 FilePointer(inte
13420 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
13430 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 46 69 g(objv[1]), &pFi
13440 6c 65 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 le) ){. retur
13450 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
13460 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f . rc = sqlite3O
13470 73 43 6c 6f 73 65 28 26 70 46 69 6c 65 29 3b 0a sClose(&pFile);.
13480 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 if( rc!=SQLITE
13490 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 _OK ){. Tcl_S
134a0 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
134b0 20 28 63 68 61 72 20 2a 29 65 72 72 6f 72 4e 61 (char *)errorNa
134c0 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 me(rc), TCL_STAT
134d0 49 43 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 IC);. return
134e0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
134f0 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
13500 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
13510 20 73 71 6c 69 74 65 33 4f 73 4c 6f 63 6b 20 3c sqlite3OsLock <
13520 66 69 6c 65 20 68 61 6e 64 6c 65 3e 20 3c 6c 6f file handle> <lo
13530 63 6b 74 79 70 65 3e 0a 2a 2f 0a 73 74 61 74 69 cktype>.*/.stati
13540 63 20 69 6e 74 20 74 65 73 74 5f 73 71 6c 69 74 c int test_sqlit
13550 65 33 4f 73 4c 6f 63 6b 28 0a 20 20 76 6f 69 64 e3OsLock(. void
13560 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
13570 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
13580 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
13590 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
135a0 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 4f 73 T objv[].){. Os
135b0 46 69 6c 65 20 2a 20 70 46 69 6c 65 3b 0a 20 20 File * pFile;.
135c0 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
135d0 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 bjc!=3 ){. Tc
135e0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
135f0 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
13600 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
13610 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 \"", . Tc
13620 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
13630 5b 30 5d 29 2c 20 0a 20 20 20 20 20 20 20 20 22 [0]), . "
13640 20 66 69 6c 65 68 61 6e 64 6c 65 20 28 53 48 41 filehandle (SHA
13650 52 45 44 7c 52 45 53 45 52 56 45 44 7c 50 45 4e RED|RESERVED|PEN
13660 44 49 4e 47 7c 45 58 43 4c 55 53 49 56 45 29 22 DING|EXCLUSIVE)"
13670 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
13680 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
13690 0a 20 20 69 66 28 20 67 65 74 46 69 6c 65 50 6f . if( getFilePo
136a0 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
136b0 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
136c0 5b 31 5d 29 2c 20 26 70 46 69 6c 65 29 20 29 7b [1]), &pFile) ){
136d0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
136e0 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 ERROR;. }.. if
136f0 28 20 30 3d 3d 73 74 72 63 6d 70 28 22 53 48 41 ( 0==strcmp("SHA
13700 52 45 44 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 RED", Tcl_GetStr
13710 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 29 20 29 7b ing(objv[2])) ){
13720 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 . rc = sqlite
13730 33 4f 73 4c 6f 63 6b 28 70 46 69 6c 65 2c 20 53 3OsLock(pFile, S
13740 48 41 52 45 44 5f 4c 4f 43 4b 29 3b 0a 20 20 7d HARED_LOCK);. }
13750 0a 20 20 65 6c 73 65 20 69 66 28 20 30 3d 3d 73 . else if( 0==s
13760 74 72 63 6d 70 28 22 52 45 53 45 52 56 45 44 22 trcmp("RESERVED"
13770 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
13780 6f 62 6a 76 5b 32 5d 29 29 20 29 7b 0a 20 20 20 objv[2])) ){.
13790 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 4c rc = sqlite3OsL
137a0 6f 63 6b 28 70 46 69 6c 65 2c 20 52 45 53 45 52 ock(pFile, RESER
137b0 56 45 44 5f 4c 4f 43 4b 29 3b 0a 20 20 7d 0a 20 VED_LOCK);. }.
137c0 20 65 6c 73 65 20 69 66 28 20 30 3d 3d 73 74 72 else if( 0==str
137d0 63 6d 70 28 22 50 45 4e 44 49 4e 47 22 2c 20 54 cmp("PENDING", T
137e0 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
137f0 76 5b 32 5d 29 29 20 29 7b 0a 20 20 20 20 72 63 v[2])) ){. rc
13800 20 3d 20 73 71 6c 69 74 65 33 4f 73 4c 6f 63 6b = sqlite3OsLock
13810 28 70 46 69 6c 65 2c 20 50 45 4e 44 49 4e 47 5f (pFile, PENDING_
13820 4c 4f 43 4b 29 3b 0a 20 20 7d 0a 20 20 65 6c 73 LOCK);. }. els
13830 65 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 e if( 0==strcmp(
13840 22 45 58 43 4c 55 53 49 56 45 22 2c 20 54 63 6c "EXCLUSIVE", Tcl
13850 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
13860 32 5d 29 29 20 29 7b 0a 20 20 20 20 72 63 20 3d 2])) ){. rc =
13870 20 73 71 6c 69 74 65 33 4f 73 4c 6f 63 6b 28 70 sqlite3OsLock(p
13880 46 69 6c 65 2c 20 45 58 43 4c 55 53 49 56 45 5f File, EXCLUSIVE_
13890 4c 4f 43 4b 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a LOCK);. }else{.
138a0 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
138b0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
138c0 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
138d0 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
138e0 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
138f0 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 0a 20 20 20 g(objv[0]), .
13900 20 20 20 20 20 22 20 66 69 6c 65 68 61 6e 64 6c " filehandl
13910 65 20 28 53 48 41 52 45 44 7c 52 45 53 45 52 56 e (SHARED|RESERV
13920 45 44 7c 50 45 4e 44 49 4e 47 7c 45 58 43 4c 55 ED|PENDING|EXCLU
13930 53 49 56 45 29 22 2c 20 30 29 3b 0a 20 20 20 20 SIVE)", 0);.
13940 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
13950 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 21 ;. }.. if( rc!
13960 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 =SQLITE_OK ){.
13970 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
13980 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
13990 65 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 errorName(rc), T
139a0 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 CL_STATIC);.
139b0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
139c0 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 ;. }. return T
139d0 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
139e0 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 4f Usage: sqlite3O
139f0 73 55 6e 6c 6f 63 6b 20 3c 66 69 6c 65 20 68 61 sUnlock <file ha
13a00 6e 64 6c 65 3e 0a 2a 2f 0a 73 74 61 74 69 63 20 ndle>.*/.static
13a10 69 6e 74 20 74 65 73 74 5f 73 71 6c 69 74 65 33 int test_sqlite3
13a20 4f 73 55 6e 6c 6f 63 6b 28 0a 20 20 76 6f 69 64 OsUnlock(. void
13a30 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
13a40 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
13a50 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
13a60 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
13a70 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 4f 73 T objv[].){. Os
13a80 46 69 6c 65 20 2a 20 70 46 69 6c 65 3b 0a 20 20 File * pFile;.
13a90 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
13aa0 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 bjc!=2 ){. Tc
13ab0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
13ac0 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
13ad0 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
13ae0 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
13af0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
13b00 30 5d 29 2c 20 22 20 66 69 6c 65 68 61 6e 64 6c 0]), " filehandl
13b10 65 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 e", 0);. retu
13b20 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
13b30 7d 0a 0a 20 20 69 66 28 20 67 65 74 46 69 6c 65 }.. if( getFile
13b40 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
13b50 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
13b60 6a 76 5b 31 5d 29 2c 20 26 70 46 69 6c 65 29 20 jv[1]), &pFile)
13b70 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 ){. return TC
13b80 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 L_ERROR;. }. r
13b90 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 55 6e 6c c = sqlite3OsUnl
13ba0 6f 63 6b 28 70 46 69 6c 65 2c 20 4e 4f 5f 4c 4f ock(pFile, NO_LO
13bb0 43 4b 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 CK);. if( rc!=S
13bc0 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 QLITE_OK ){.
13bd0 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
13be0 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 65 72 terp, (char *)er
13bf0 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c rorName(rc), TCL
13c00 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 72 65 _STATIC);. re
13c10 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
13c20 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }. return TCL
13c30 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
13c40 61 67 65 3a 20 20 73 71 6c 69 74 65 33 4f 73 54 age: sqlite3OsT
13c50 65 6d 70 46 69 6c 65 4e 61 6d 65 0a 2a 2f 0a 73 empFileName.*/.s
13c60 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 tatic int test_s
13c70 71 6c 69 74 65 33 4f 73 54 65 6d 70 46 69 6c 65 qlite3OsTempFile
13c80 4e 61 6d 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 Name(. void * c
13c90 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
13ca0 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
13cb0 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
13cc0 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
13cd0 6a 76 5b 5d 0a 29 7b 0a 20 20 63 68 61 72 20 7a jv[].){. char z
13ce0 46 69 6c 65 5b 53 51 4c 49 54 45 5f 54 45 4d 50 File[SQLITE_TEMP
13cf0 4e 41 4d 45 5f 53 49 5a 45 5d 3b 0a 20 20 69 6e NAME_SIZE];. in
13d00 74 20 72 63 3b 0a 0a 20 20 72 63 20 3d 20 73 71 t rc;.. rc = sq
13d10 6c 69 74 65 33 4f 73 54 65 6d 70 46 69 6c 65 4e lite3OsTempFileN
13d20 61 6d 65 28 7a 46 69 6c 65 29 3b 0a 20 20 69 66 ame(zFile);. if
13d30 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc!=SQLITE_OK
13d40 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 ){. Tcl_SetRe
13d50 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 sult(interp, (ch
13d60 61 72 20 2a 29 65 72 72 6f 72 4e 61 6d 65 28 72 ar *)errorName(r
13d70 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b c), TCL_STATIC);
13d80 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
13d90 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 54 63 6c ERROR;. }. Tcl
13da0 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
13db0 74 65 72 70 2c 20 7a 46 69 6c 65 2c 20 30 29 3b terp, zFile, 0);
13dc0 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
13dd0 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a ;.}.#endif../*.*
13de0 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
13df0 5f 73 65 74 5f 6d 61 67 69 63 20 20 44 42 20 20 _set_magic DB
13e00 4d 41 47 49 43 2d 4e 55 4d 42 45 52 0a 2a 2a 0a MAGIC-NUMBER.**.
13e10 2a 2a 20 53 65 74 20 74 68 65 20 64 62 2d 3e 6d ** Set the db->m
13e20 61 67 69 63 20 76 61 6c 75 65 2e 20 20 54 68 69 agic value. Thi
13e30 73 20 69 73 20 75 73 65 64 20 74 6f 20 74 65 73 s is used to tes
13e40 74 20 65 72 72 6f 72 20 72 65 63 6f 76 65 72 79 t error recovery
13e50 20 6c 6f 67 69 63 2e 0a 2a 2f 0a 73 74 61 74 69 logic..*/.stati
13e60 63 20 69 6e 74 20 73 71 6c 69 74 65 5f 73 65 74 c int sqlite_set
13e70 5f 6d 61 67 69 63 28 0a 20 20 76 6f 69 64 20 2a _magic(. void *
13e80 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
13e90 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
13ea0 70 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 p,. int argc,.
13eb0 20 63 68 61 72 20 2a 2a 61 72 67 76 0a 29 7b 0a char **argv.){.
13ec0 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
13ed0 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b 0a if( argc!=3 ){.
13ee0 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
13ef0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
13f00 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
13f10 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b ld be \"", argv[
13f20 30 5d 2c 0a 20 20 20 20 20 20 20 20 20 22 20 44 0],. " D
13f30 42 20 4d 41 47 49 43 22 2c 20 30 29 3b 0a 20 20 B MAGIC", 0);.
13f40 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
13f50 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
13f60 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
13f70 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
13f80 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
13f90 52 4f 52 3b 0a 20 20 69 66 28 20 73 74 72 63 6d ROR;. if( strcm
13fa0 70 28 61 72 67 76 5b 32 5d 2c 20 22 53 51 4c 49 p(argv[2], "SQLI
13fb0 54 45 5f 4d 41 47 49 43 5f 4f 50 45 4e 22 29 3d TE_MAGIC_OPEN")=
13fc0 3d 30 20 29 7b 0a 20 20 20 20 64 62 2d 3e 6d 61 =0 ){. db->ma
13fd0 67 69 63 20 3d 20 53 51 4c 49 54 45 5f 4d 41 47 gic = SQLITE_MAG
13fe0 49 43 5f 4f 50 45 4e 3b 0a 20 20 7d 65 6c 73 65 IC_OPEN;. }else
13ff0 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 if( strcmp(argv
14000 5b 32 5d 2c 20 22 53 51 4c 49 54 45 5f 4d 41 47 [2], "SQLITE_MAG
14010 49 43 5f 43 4c 4f 53 45 44 22 29 3d 3d 30 20 29 IC_CLOSED")==0 )
14020 7b 0a 20 20 20 20 64 62 2d 3e 6d 61 67 69 63 20 {. db->magic
14030 3d 20 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 43 = SQLITE_MAGIC_C
14040 4c 4f 53 45 44 3b 0a 20 20 7d 65 6c 73 65 20 69 LOSED;. }else i
14050 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b 32 f( strcmp(argv[2
14060 5d 2c 20 22 53 51 4c 49 54 45 5f 4d 41 47 49 43 ], "SQLITE_MAGIC
14070 5f 42 55 53 59 22 29 3d 3d 30 20 29 7b 0a 20 20 _BUSY")==0 ){.
14080 20 20 64 62 2d 3e 6d 61 67 69 63 20 3d 20 53 51 db->magic = SQ
14090 4c 49 54 45 5f 4d 41 47 49 43 5f 42 55 53 59 3b LITE_MAGIC_BUSY;
140a0 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 . }else if( str
140b0 63 6d 70 28 61 72 67 76 5b 32 5d 2c 20 22 53 51 cmp(argv[2], "SQ
140c0 4c 49 54 45 5f 4d 41 47 49 43 5f 45 52 52 4f 52 LITE_MAGIC_ERROR
140d0 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 64 62 2d ")==0 ){. db-
140e0 3e 6d 61 67 69 63 20 3d 20 53 51 4c 49 54 45 5f >magic = SQLITE_
140f0 4d 41 47 49 43 5f 45 52 52 4f 52 3b 0a 20 20 7d MAGIC_ERROR;. }
14100 65 6c 73 65 20 69 66 28 20 54 63 6c 5f 47 65 74 else if( Tcl_Get
14110 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 Int(interp, argv
14120 5b 32 5d 2c 20 26 64 62 2d 3e 6d 61 67 69 63 29 [2], &db->magic)
14130 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
14140 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
14150 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
14160 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
14170 73 71 6c 69 74 65 33 5f 69 6e 74 65 72 72 75 70 sqlite3_interrup
14180 74 20 20 44 42 20 0a 2a 2a 0a 2a 2a 20 54 72 69 t DB .**.** Tri
14190 67 67 65 72 20 61 6e 20 69 6e 74 65 72 72 75 70 gger an interrup
141a0 74 20 6f 6e 20 44 42 0a 2a 2f 0a 73 74 61 74 69 t on DB.*/.stati
141b0 63 20 69 6e 74 20 74 65 73 74 5f 69 6e 74 65 72 c int test_inter
141c0 72 75 70 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 rupt(. void * c
141d0 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
141e0 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
141f0 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 . int argc,. c
14200 68 61 72 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 har **argv.){.
14210 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 sqlite3 *db;. i
14220 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 f( argc!=2 ){.
14230 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
14240 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
14250 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
14260 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d be \"", argv[0]
14270 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 , " DB", 0);.
14280 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
14290 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
142a0 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
142b0 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 , argv[1], &db)
142c0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
142d0 4f 52 3b 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e OR;. sqlite3_in
142e0 74 65 72 72 75 70 74 28 64 62 29 3b 0a 20 20 72 terrupt(db);. r
142f0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
14300 0a 73 74 61 74 69 63 20 75 38 20 2a 73 71 6c 69 .static u8 *sqli
14310 74 65 33 5f 73 74 61 63 6b 5f 62 61 73 65 6c 69 te3_stack_baseli
14320 6e 65 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 46 ne = 0;../*.** F
14330 69 6c 6c 20 74 68 65 20 73 74 61 63 6b 20 77 69 ill the stack wi
14340 74 68 20 61 20 6b 6e 6f 77 6e 20 62 69 74 70 61 th a known bitpa
14350 74 74 65 72 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 ttern..*/.static
14360 20 76 6f 69 64 20 70 72 65 70 53 74 61 63 6b 28 void prepStack(
14370 76 6f 69 64 29 7b 0a 20 20 69 6e 74 20 69 3b 0a void){. int i;.
14380 20 20 75 33 32 20 62 69 67 42 75 66 5b 36 35 35 u32 bigBuf[655
14390 33 36 5d 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 36];. for(i=0;
143a0 69 3c 73 69 7a 65 6f 66 28 62 69 67 42 75 66 29 i<sizeof(bigBuf)
143b0 3b 20 69 2b 2b 29 20 62 69 67 42 75 66 5b 69 5d ; i++) bigBuf[i]
143c0 20 3d 20 30 78 64 65 61 64 62 65 65 66 3b 0a 20 = 0xdeadbeef;.
143d0 20 73 71 6c 69 74 65 33 5f 73 74 61 63 6b 5f 62 sqlite3_stack_b
143e0 61 73 65 6c 69 6e 65 20 3d 20 28 75 38 2a 29 26 aseline = (u8*)&
143f0 62 69 67 42 75 66 5b 36 35 35 33 36 5d 3b 0a 7d bigBuf[65536];.}
14400 0a 0a 2f 2a 0a 2a 2a 20 47 65 74 20 74 68 65 20 ../*.** Get the
14410 63 75 72 72 65 6e 74 20 73 74 61 63 6b 20 64 65 current stack de
14420 70 74 68 2e 20 20 55 73 65 64 20 66 6f 72 20 64 pth. Used for d
14430 65 62 75 67 67 69 6e 67 20 6f 6e 6c 79 2e 0a 2a ebugging only..*
14440 2f 0a 75 36 34 20 73 71 6c 69 74 65 33 53 74 61 /.u64 sqlite3Sta
14450 63 6b 44 65 70 74 68 28 76 6f 69 64 29 7b 0a 20 ckDepth(void){.
14460 20 75 38 20 78 3b 0a 20 20 72 65 74 75 72 6e 20 u8 x;. return
14470 28 75 36 34 29 28 73 71 6c 69 74 65 33 5f 73 74 (u64)(sqlite3_st
14480 61 63 6b 5f 62 61 73 65 6c 69 6e 65 20 2d 20 26 ack_baseline - &
14490 78 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 x);.}../*.** Usa
144a0 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 73 74 61 ge: sqlite3_sta
144b0 63 6b 5f 75 73 65 64 20 44 42 20 53 51 4c 0a 2a ck_used DB SQL.*
144c0 2a 0a 2a 2a 20 54 72 79 20 74 6f 20 6d 65 61 73 *.** Try to meas
144d0 75 72 65 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f ure the amount o
144e0 66 20 73 74 61 63 6b 20 73 70 61 63 65 20 75 73 f stack space us
144f0 65 64 20 62 79 20 61 20 63 61 6c 6c 20 74 6f 20 ed by a call to
14500 73 71 6c 69 74 65 33 5f 65 78 65 63 0a 2a 2f 0a sqlite3_exec.*/.
14510 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
14520 73 74 61 63 6b 5f 75 73 65 64 28 0a 20 20 76 6f stack_used(. vo
14530 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
14540 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
14550 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 67 nterp,. int arg
14560 63 2c 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 c,. char **argv
14570 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
14580 62 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 66 b;. int i;. if
14590 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 ( argc!=3 ){.
145a0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
145b0 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
145c0 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
145d0 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
145e0 20 0a 20 20 20 20 20 20 20 20 22 20 44 42 20 53 . " DB S
145f0 51 4c 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 QL", 0);. ret
14600 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
14610 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
14620 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 inter(interp, ar
14630 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 gv[1], &db) ) re
14640 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
14650 20 20 70 72 65 70 53 74 61 63 6b 28 29 3b 0a 20 prepStack();.
14660 20 28 76 6f 69 64 29 73 71 6c 69 74 65 33 5f 65 (void)sqlite3_e
14670 78 65 63 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c xec(db, argv[2],
14680 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20 66 6f 72 0, 0, 0);. for
14690 28 69 3d 36 35 35 33 35 3b 20 69 3e 3d 30 20 26 (i=65535; i>=0 &
146a0 26 20 28 28 75 33 32 2a 29 73 71 6c 69 74 65 33 & ((u32*)sqlite3
146b0 5f 73 74 61 63 6b 5f 62 61 73 65 6c 69 6e 65 29 _stack_baseline)
146c0 5b 2d 69 5d 3d 3d 30 78 64 65 61 64 62 65 65 66 [-i]==0xdeadbeef
146d0 3b 20 69 2d 2d 29 7b 7d 0a 20 20 54 63 6c 5f 53 ; i--){}. Tcl_S
146e0 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
146f0 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 rp, Tcl_NewIntOb
14700 6a 28 69 2a 34 29 29 3b 0a 20 20 72 65 74 75 72 j(i*4));. retur
14710 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
14720 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
14730 5f 64 65 6c 65 74 65 5f 66 75 6e 63 74 69 6f 6e _delete_function
14740 20 44 42 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d DB function-nam
14750 65 0a 2a 2a 0a 2a 2a 20 44 65 6c 65 74 65 20 74 e.**.** Delete t
14760 68 65 20 75 73 65 72 20 66 75 6e 63 74 69 6f 6e he user function
14770 20 27 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 27 'function-name'
14780 20 66 72 6f 6d 20 64 61 74 61 62 61 73 65 20 68 from database h
14790 61 6e 64 6c 65 20 44 42 2e 20 49 74 0a 2a 2a 20 andle DB. It.**
147a0 69 73 20 61 73 73 75 6d 65 64 20 74 68 61 74 20 is assumed that
147b0 74 68 65 20 75 73 65 72 20 66 75 6e 63 74 69 6f the user functio
147c0 6e 20 77 61 73 20 63 72 65 61 74 65 64 20 61 73 n was created as
147d0 20 55 54 46 38 2c 20 61 6e 79 20 6e 75 6d 62 65 UTF8, any numbe
147e0 72 20 6f 66 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 r of.** argument
147f0 73 20 28 74 68 65 20 77 61 79 20 74 68 65 20 54 s (the way the T
14800 43 4c 20 69 6e 74 65 72 66 61 63 65 20 64 6f 65 CL interface doe
14810 73 20 69 74 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 s it)..*/.static
14820 20 69 6e 74 20 64 65 6c 65 74 65 5f 66 75 6e 63 int delete_func
14830 74 69 6f 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63 tion(. void * c
14840 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
14850 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
14860 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 . int argc,. c
14870 68 61 72 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 har **argv.){.
14880 69 6e 74 20 72 63 3b 0a 20 20 73 71 6c 69 74 65 int rc;. sqlite
14890 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 72 67 3 *db;. if( arg
148a0 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
148b0 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
148c0 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
148d0 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
148e0 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 ", argv[0], .
148f0 20 20 20 20 20 22 20 44 42 20 66 75 6e 63 74 69 " DB functi
14900 6f 6e 2d 6e 61 6d 65 22 2c 20 30 29 3b 0a 20 20 on-name", 0);.
14910 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
14920 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
14930 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
14940 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
14950 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
14960 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 ROR;. rc = sqli
14970 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 te3_create_funct
14980 69 6f 6e 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c ion(db, argv[2],
14990 20 2d 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 -1, SQLITE_UTF8
149a0 2c 20 30 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 , 0, 0, 0, 0);.
149b0 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
149c0 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 65 nterp, (char *)e
149d0 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 rrorName(rc), TC
149e0 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 72 65 74 L_STATIC);. ret
149f0 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
14a00 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 *.** Usage: sqli
14a10 74 65 5f 64 65 6c 65 74 65 5f 63 6f 6c 6c 61 74 te_delete_collat
14a20 69 6f 6e 20 44 42 20 63 6f 6c 6c 61 74 69 6f 6e ion DB collation
14a30 2d 6e 61 6d 65 0a 2a 2a 0a 2a 2a 20 44 65 6c 65 -name.**.** Dele
14a40 74 65 20 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e te the collation
14a50 20 73 65 71 75 65 6e 63 65 20 27 63 6f 6c 6c 61 sequence 'colla
14a60 74 69 6f 6e 2d 6e 61 6d 65 27 20 66 72 6f 6d 20 tion-name' from
14a70 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 database handle
14a80 0a 2a 2a 20 44 42 2e 20 49 74 20 69 73 20 61 73 .** DB. It is as
14a90 73 75 6d 65 64 20 74 68 61 74 20 74 68 65 20 63 sumed that the c
14aa0 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 ollation sequenc
14ab0 65 20 77 61 73 20 63 72 65 61 74 65 64 20 61 73 e was created as
14ac0 20 55 54 46 38 20 28 74 68 65 20 0a 2a 2a 20 77 UTF8 (the .** w
14ad0 61 79 20 74 68 65 20 54 43 4c 20 69 6e 74 65 72 ay the TCL inter
14ae0 66 61 63 65 20 64 6f 65 73 20 69 74 29 2e 0a 2a face does it)..*
14af0 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 64 65 6c /.static int del
14b00 65 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 0a 20 ete_collation(.
14b10 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
14b20 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
14b30 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
14b40 61 72 67 63 2c 0a 20 20 63 68 61 72 20 2a 2a 61 argc,. char **a
14b50 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b rgv.){. int rc;
14b60 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
14b70 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b if( argc!=3 ){
14b80 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
14b90 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
14ba0 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
14bb0 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 uld be \"", argv
14bc0 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 20 22 20 [0], . "
14bd0 44 42 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 DB function-name
14be0 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
14bf0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
14c00 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
14c10 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 ter(interp, argv
14c20 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 [1], &db) ) retu
14c30 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
14c40 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 rc = sqlite3_cre
14c50 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 64 62 ate_collation(db
14c60 2c 20 61 72 67 76 5b 32 5d 2c 20 53 51 4c 49 54 , argv[2], SQLIT
14c70 45 5f 55 54 46 38 2c 20 30 2c 20 30 29 3b 0a 20 E_UTF8, 0, 0);.
14c80 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
14c90 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 65 nterp, (char *)e
14ca0 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 rrorName(rc), TC
14cb0 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 72 65 74 L_STATIC);. ret
14cc0 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
14cd0 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 *.** Usage: sqli
14ce0 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d te3_get_autocomm
14cf0 69 74 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 it DB.**.** Retu
14d00 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20 64 rn true if the d
14d10 61 74 61 62 61 73 65 20 44 42 20 69 73 20 63 75 atabase DB is cu
14d20 72 72 65 6e 74 6c 79 20 69 6e 20 61 75 74 6f 2d rrently in auto-
14d30 63 6f 6d 6d 69 74 20 6d 6f 64 65 2e 0a 2a 2a 20 commit mode..**
14d40 52 65 74 75 72 6e 20 66 61 6c 73 65 20 69 66 20 Return false if
14d50 6e 6f 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 not..*/.static i
14d60 6e 74 20 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 nt get_autocommi
14d70 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 t(. void * clie
14d80 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
14d90 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
14da0 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 68 61 72 int argc,. char
14db0 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 68 61 **argv.){. cha
14dc0 72 20 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 73 71 r zBuf[30];. sq
14dd0 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 lite3 *db;. if(
14de0 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 argc!=2 ){.
14df0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
14e00 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
14e10 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
14e20 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 e \"", argv[0],
14e30 0a 20 20 20 20 20 20 20 20 22 20 44 42 22 2c 20 . " DB",
14e40 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
14e50 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
14e60 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
14e70 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
14e80 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
14e90 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 70 72 TCL_ERROR;. spr
14ea0 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c intf(zBuf, "%d",
14eb0 20 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 sqlite3_get_aut
14ec0 6f 63 6f 6d 6d 69 74 28 64 62 29 29 3b 0a 20 20 ocommit(db));.
14ed0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
14ee0 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 (interp, zBuf, 0
14ef0 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
14f00 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
14f10 67 65 3a 20 20 74 63 6c 5f 76 61 72 69 61 62 6c ge: tcl_variabl
14f20 65 5f 74 79 70 65 20 56 41 52 49 41 42 4c 45 4e e_type VARIABLEN
14f30 41 4d 45 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e AME.**.** Return
14f40 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 the name of the
14f50 20 69 6e 74 65 72 6e 61 6c 20 72 65 70 72 65 73 internal repres
14f60 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 entation for the
14f70 0a 2a 2a 20 76 61 6c 75 65 20 6f 66 20 74 68 65 .** value of the
14f80 20 67 69 76 65 6e 20 76 61 72 69 61 62 6c 65 2e given variable.
14f90 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
14fa0 63 6c 5f 76 61 72 69 61 62 6c 65 5f 74 79 70 65 cl_variable_type
14fb0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
14fc0 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
14fd0 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
14fe0 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
14ff0 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
15000 0a 29 7b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 .){. Tcl_Obj *p
15010 56 61 72 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 Var;. if( objc!
15020 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 =2 ){. Tcl_Wr
15030 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
15040 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 56 41 52 p, 1, objv, "VAR
15050 49 41 42 4c 45 22 29 3b 0a 20 20 20 20 72 65 74 IABLE");. ret
15060 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
15070 20 7d 0a 20 20 70 56 61 72 20 3d 20 54 63 6c 5f }. pVar = Tcl_
15080 47 65 74 56 61 72 32 45 78 28 69 6e 74 65 72 70 GetVar2Ex(interp
15090 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
150a0 6f 62 6a 76 5b 31 5d 29 2c 20 30 2c 20 54 43 4c objv[1]), 0, TCL
150b0 5f 4c 45 41 56 45 5f 45 52 52 5f 4d 53 47 29 3b _LEAVE_ERR_MSG);
150c0 0a 20 20 69 66 28 20 70 56 61 72 3d 3d 30 20 29 . if( pVar==0 )
150d0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
150e0 52 3b 0a 20 20 69 66 28 20 70 56 61 72 2d 3e 74 R;. if( pVar->t
150f0 79 70 65 50 74 72 20 29 7b 0a 20 20 20 20 54 63 ypePtr ){. Tc
15100 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
15110 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 nterp, Tcl_NewSt
15120 72 69 6e 67 4f 62 6a 28 70 56 61 72 2d 3e 74 79 ringObj(pVar->ty
15130 70 65 50 74 72 2d 3e 6e 61 6d 65 2c 20 2d 31 29 pePtr->name, -1)
15140 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 );. }. return
15150 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
15160 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
15170 5f 72 65 6c 65 61 73 65 5f 6d 65 6d 6f 72 79 20 _release_memory
15180 3f 4e 3f 0a 2a 2a 0a 2a 2a 20 41 74 74 65 6d 70 ?N?.**.** Attemp
15190 74 20 74 6f 20 72 65 6c 65 61 73 65 20 6d 65 6d t to release mem
151a0 6f 72 79 20 63 75 72 72 65 6e 74 6c 79 20 68 65 ory currently he
151b0 6c 64 20 62 75 74 20 6e 6f 74 20 61 63 74 75 61 ld but not actua
151c0 6c 6c 79 20 72 65 71 75 69 72 65 64 2e 0a 2a 2a lly required..**
151d0 20 54 68 65 20 69 6e 74 65 67 65 72 20 4e 20 69 The integer N i
151e0 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 s the number of
151f0 62 79 74 65 73 20 77 65 20 61 72 65 20 74 72 79 bytes we are try
15200 69 6e 67 20 74 6f 20 72 65 6c 65 61 73 65 2e 20 ing to release.
15210 20 54 68 65 20 0a 2a 2a 20 72 65 74 75 72 6e 20 The .** return
15220 76 61 6c 75 65 20 69 73 20 74 68 65 20 61 6d 6f value is the amo
15230 75 6e 74 20 6f 66 20 6d 65 6d 6f 72 79 20 61 63 unt of memory ac
15240 74 75 61 6c 6c 79 20 72 65 6c 65 61 73 65 64 2e tually released.
15250 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
15260 65 73 74 5f 72 65 6c 65 61 73 65 5f 6d 65 6d 6f est_release_memo
15270 72 79 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 ry(. void * cli
15280 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
15290 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
152a0 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
152b0 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
152c0 5b 5d 0a 29 7b 0a 23 69 66 20 64 65 66 69 6e 65 [].){.#if define
152d0 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f d(SQLITE_ENABLE_
152e0 4d 45 4d 4f 52 59 5f 4d 41 4e 41 47 45 4d 45 4e MEMORY_MANAGEMEN
152f0 54 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 53 T) && !defined(S
15300 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 49 53 4b 49 QLITE_OMIT_DISKI
15310 4f 29 0a 20 20 69 6e 74 20 4e 3b 0a 20 20 69 6e O). int N;. in
15320 74 20 61 6d 74 3b 0a 20 20 69 66 28 20 6f 62 6a t amt;. if( obj
15330 63 21 3d 31 20 26 26 20 6f 62 6a 63 21 3d 32 20 c!=1 && objc!=2
15340 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
15350 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
15360 31 2c 20 6f 62 6a 76 2c 20 22 3f 4e 3f 22 29 3b 1, objv, "?N?");
15370 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
15380 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
15390 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 20 20 objc==2 ){.
153a0 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
153b0 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
153c0 6a 76 5b 31 5d 2c 20 26 4e 29 20 29 20 72 65 74 jv[1], &N) ) ret
153d0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
153e0 20 7d 65 6c 73 65 7b 0a 20 20 20 20 4e 20 3d 20 }else{. N =
153f0 2d 31 3b 0a 20 20 7d 0a 20 20 61 6d 74 20 3d 20 -1;. }. amt =
15400 73 71 6c 69 74 65 33 5f 72 65 6c 65 61 73 65 5f sqlite3_release_
15410 6d 65 6d 6f 72 79 28 4e 29 3b 0a 20 20 54 63 6c memory(N);. Tcl
15420 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
15430 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 terp, Tcl_NewInt
15440 4f 62 6a 28 61 6d 74 29 29 3b 0a 23 65 6e 64 69 Obj(amt));.#endi
15450 66 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f f. return TCL_O
15460 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
15470 65 3a 20 20 73 71 6c 69 74 65 33 5f 73 6f 66 74 e: sqlite3_soft
15480 5f 68 65 61 70 5f 6c 69 6d 69 74 20 3f 4e 3f 0a _heap_limit ?N?.
15490 2a 2a 0a 2a 2a 20 51 75 65 72 79 20 6f 72 20 73 **.** Query or s
154a0 65 74 20 74 68 65 20 73 6f 66 74 20 68 65 61 70 et the soft heap
154b0 20 6c 69 6d 69 74 20 66 6f 72 20 74 68 65 20 63 limit for the c
154c0 75 72 72 65 6e 74 20 74 68 72 65 61 64 2e 20 20 urrent thread.
154d0 54 68 65 0a 2a 2a 20 6c 69 6d 69 74 20 69 73 20 The.** limit is
154e0 6f 6e 6c 79 20 63 68 61 6e 67 65 64 20 69 66 20 only changed if
154f0 74 68 65 20 4e 20 69 73 20 70 72 65 73 65 6e 74 the N is present
15500 2e 20 20 54 68 65 20 70 72 65 76 69 6f 75 73 20 . The previous
15510 6c 69 6d 69 74 0a 2a 2a 20 69 73 20 72 65 74 75 limit.** is retu
15520 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 rned..*/.static
15530 69 6e 74 20 74 65 73 74 5f 73 6f 66 74 5f 68 65 int test_soft_he
15540 61 70 5f 6c 69 6d 69 74 28 0a 20 20 76 6f 69 64 ap_limit(. void
15550 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
15560 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
15570 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
15580 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
15590 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 20 T objv[].){.#if
155a0 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 45 defined(SQLITE_E
155b0 4e 41 42 4c 45 5f 4d 45 4d 4f 52 59 5f 4d 41 4e NABLE_MEMORY_MAN
155c0 41 47 45 4d 45 4e 54 29 20 26 26 20 21 64 65 66 AGEMENT) && !def
155d0 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d 49 54 ined(SQLITE_OMIT
155e0 5f 44 49 53 4b 49 4f 29 0a 20 20 69 6e 74 20 61 _DISKIO). int a
155f0 6d 74 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d mt;. if( objc!=
15600 31 20 26 26 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 1 && objc!=2 ){.
15610 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
15620 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
15630 6f 62 6a 76 2c 20 22 3f 4e 3f 22 29 3b 0a 20 20 objv, "?N?");.
15640 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
15650 4f 52 3b 0a 20 20 7d 0a 20 20 61 6d 74 20 3d 20 OR;. }. amt =
15660 73 71 6c 69 74 65 33 54 68 72 65 61 64 44 61 74 sqlite3ThreadDat
15670 61 52 65 61 64 4f 6e 6c 79 28 29 2d 3e 6e 53 6f aReadOnly()->nSo
15680 66 74 48 65 61 70 4c 69 6d 69 74 3b 0a 20 20 69 ftHeapLimit;. i
15690 66 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 f( objc==2 ){.
156a0 20 20 69 6e 74 20 4e 3b 0a 20 20 20 20 69 66 28 int N;. if(
156b0 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
156c0 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
156d0 31 5d 2c 20 26 4e 29 20 29 20 72 65 74 75 72 6e 1], &N) ) return
156e0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
156f0 73 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 61 sqlite3_soft_hea
15700 70 5f 6c 69 6d 69 74 28 4e 29 3b 0a 20 20 7d 0a p_limit(N);. }.
15710 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
15720 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e lt(interp, Tcl_N
15730 65 77 49 6e 74 4f 62 6a 28 61 6d 74 29 29 3b 0a ewIntObj(amt));.
15740 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 #endif. return
15750 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
15760 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 Usage: sqlite
15770 33 5f 63 6c 65 61 72 5f 74 73 64 5f 6d 65 6d 64 3_clear_tsd_memd
15780 65 62 75 67 0a 2a 2a 0a 2a 2a 20 43 6c 65 61 72 ebug.**.** Clear
15790 20 61 6c 6c 20 6f 66 20 74 68 65 20 4d 45 4d 44 all of the MEMD
157a0 45 42 55 47 20 69 6e 66 6f 72 6d 61 74 69 6f 6e EBUG information
157b0 20 6f 75 74 20 6f 66 20 74 68 72 65 61 64 2d 73 out of thread-s
157c0 70 65 63 69 66 69 63 20 64 61 74 61 2e 0a 2a 2a pecific data..**
157d0 20 54 68 69 73 20 77 69 6c 6c 20 61 6c 6c 6f 77 This will allow
157e0 20 69 74 20 74 6f 20 62 65 20 64 65 61 6c 6c 6f it to be deallo
157f0 63 61 74 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 cated..*/.static
15800 20 69 6e 74 20 74 65 73 74 5f 63 6c 65 61 72 5f int test_clear_
15810 74 73 64 5f 6d 65 6d 64 65 62 75 67 28 0a 20 20 tsd_memdebug(.
15820 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
15830 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
15840 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
15850 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
15860 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
15870 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
15880 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
15890 20 20 20 73 71 6c 69 74 65 33 5f 74 73 64 5f 72 sqlite3_tsd_r
158a0 65 6c 65 61 73 65 0a 2a 2a 0a 2a 2a 20 43 61 6c elease.**.** Cal
158b0 6c 20 73 71 6c 69 74 65 33 52 65 6c 65 61 73 65 l sqlite3Release
158c0 54 68 72 65 61 64 44 61 74 61 2e 0a 2a 2f 0a 73 ThreadData..*/.s
158d0 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 74 tatic int test_t
158e0 73 64 5f 72 65 6c 65 61 73 65 28 0a 20 20 76 6f sd_release(. vo
158f0 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
15900 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
15910 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
15920 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
15930 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 NST objv[].){.#i
15940 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 f defined(SQLITE
15950 5f 4d 45 4d 44 45 42 55 47 29 0a 20 20 73 71 6c _MEMDEBUG). sql
15960 69 74 65 33 52 65 6c 65 61 73 65 54 68 72 65 61 ite3ReleaseThrea
15970 64 44 61 74 61 28 29 3b 0a 23 65 6e 64 69 66 0a dData();.#endif.
15980 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
15990 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
159a0 20 20 20 73 71 6c 69 74 65 33 5f 74 68 72 65 61 sqlite3_threa
159b0 64 5f 63 6c 65 61 6e 75 70 0a 2a 2a 0a 2a 2a 20 d_cleanup.**.**
159c0 43 61 6c 6c 20 74 68 65 20 73 71 6c 69 74 65 33 Call the sqlite3
159d0 5f 74 68 72 65 61 64 5f 63 6c 65 61 6e 75 70 20 _thread_cleanup
159e0 41 50 49 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 API..*/.static i
159f0 6e 74 20 74 65 73 74 5f 74 68 72 65 61 64 5f 63 nt test_thread_c
15a00 6c 65 61 6e 75 70 28 0a 20 20 76 6f 69 64 20 2a leanup(. void *
15a10 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
15a20 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
15a30 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
15a40 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
15a50 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
15a60 74 65 33 5f 74 68 72 65 61 64 5f 63 6c 65 61 6e te3_thread_clean
15a70 75 70 28 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 up();. return T
15a80 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a CL_OK;.}.../*.**
15a90 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 73 65 This routine se
15aa0 74 73 20 65 6e 74 72 69 65 73 20 69 6e 20 74 68 ts entries in th
15ab0 65 20 67 6c 6f 62 61 6c 20 3a 3a 73 71 6c 69 74 e global ::sqlit
15ac0 65 5f 6f 70 74 69 6f 6e 73 28 29 20 61 72 72 61 e_options() arra
15ad0 79 20 76 61 72 69 61 62 6c 65 0a 2a 2a 20 61 63 y variable.** ac
15ae0 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 63 cording to the c
15af0 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 63 6f 6e 66 ompile-time conf
15b00 69 67 75 72 61 74 69 6f 6e 20 6f 66 20 74 68 65 iguration of the
15b10 20 64 61 74 61 62 61 73 65 2e 20 20 54 65 73 74 database. Test
15b20 0a 2a 2a 20 70 72 6f 63 65 64 75 72 65 73 20 75 .** procedures u
15b30 73 65 20 74 68 69 73 20 74 6f 20 64 65 74 65 72 se this to deter
15b40 6d 69 6e 65 20 77 68 65 6e 20 74 65 73 74 73 20 mine when tests
15b50 73 68 6f 75 6c 64 20 62 65 20 6f 6d 69 74 74 65 should be omitte
15b60 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 d..*/.static voi
15b70 64 20 73 65 74 5f 6f 70 74 69 6f 6e 73 28 54 63 d set_options(Tc
15b80 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
15b90 29 7b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 ){.#ifdef SQLITE
15ba0 5f 33 32 42 49 54 5f 52 4f 57 49 44 0a 20 20 54 _32BIT_ROWID. T
15bb0 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 cl_SetVar2(inter
15bc0 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f p, "sqlite_optio
15bd0 6e 73 22 2c 20 22 72 6f 77 69 64 33 32 22 2c 20 ns", "rowid32",
15be0 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f "1", TCL_GLOBAL_
15bf0 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 ONLY);.#else. T
15c00 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 cl_SetVar2(inter
15c10 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f p, "sqlite_optio
15c20 6e 73 22 2c 20 22 72 6f 77 69 64 33 32 22 2c 20 ns", "rowid32",
15c30 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f "0", TCL_GLOBAL_
15c40 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 ONLY);.#endif..#
15c50 69 66 64 65 66 20 53 51 4c 49 54 45 5f 43 41 53 ifdef SQLITE_CAS
15c60 45 5f 53 45 4e 53 49 54 49 56 45 5f 4c 49 4b 45 E_SENSITIVE_LIKE
15c70 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 . Tcl_SetVar2(i
15c80 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f nterp, "sqlite_o
15c90 70 74 69 6f 6e 73 22 2c 22 63 61 73 65 73 65 6e ptions","casesen
15ca0 73 69 74 69 76 65 6c 69 6b 65 22 2c 22 31 22 2c sitivelike","1",
15cb0 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 TCL_GLOBAL_ONLY)
15cc0 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 ;.#else. Tcl_Se
15cd0 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 tVar2(interp, "s
15ce0 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 22 qlite_options","
15cf0 63 61 73 65 73 65 6e 73 69 74 69 76 65 6c 69 6b casesensitivelik
15d00 65 22 2c 22 30 22 2c 54 43 4c 5f 47 4c 4f 42 41 e","0",TCL_GLOBA
15d10 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a L_ONLY);.#endif.
15d20 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 44 .#ifdef SQLITE_D
15d30 49 53 41 42 4c 45 5f 44 49 52 53 59 4e 43 0a 20 ISABLE_DIRSYNC.
15d40 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 Tcl_SetVar2(int
15d50 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 erp, "sqlite_opt
15d60 69 6f 6e 73 22 2c 20 22 64 69 72 73 79 6e 63 22 ions", "dirsync"
15d70 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 , "0", TCL_GLOBA
15d80 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 L_ONLY);.#else.
15d90 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 Tcl_SetVar2(int
15da0 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 erp, "sqlite_opt
15db0 69 6f 6e 73 22 2c 20 22 64 69 72 73 79 6e 63 22 ions", "dirsync"
15dc0 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 , "1", TCL_GLOBA
15dd0 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a L_ONLY);.#endif.
15de0 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 44 .#ifdef SQLITE_D
15df0 49 53 41 42 4c 45 5f 4c 46 53 0a 20 20 54 63 6c ISABLE_LFS. Tcl
15e00 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c _SetVar2(interp,
15e10 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 "sqlite_options
15e20 22 2c 20 22 6c 66 73 22 2c 20 22 30 22 2c 20 54 ", "lfs", "0", T
15e30 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b CL_GLOBAL_ONLY);
15e40 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 .#else. Tcl_Set
15e50 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 Var2(interp, "sq
15e60 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 lite_options", "
15e70 6c 66 73 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 lfs", "1", TCL_G
15e80 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e LOBAL_ONLY);.#en
15e90 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 dif..#ifdef SQLI
15ea0 54 45 5f 4f 4d 49 54 5f 41 4c 54 45 52 54 41 42 TE_OMIT_ALTERTAB
15eb0 4c 45 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 LE. Tcl_SetVar2
15ec0 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
15ed0 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61 6c 74 65 _options", "alte
15ee0 72 74 61 62 6c 65 22 2c 20 22 30 22 2c 20 54 43 rtable", "0", TC
15ef0 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a L_GLOBAL_ONLY);.
15f00 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 #else. Tcl_SetV
15f10 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
15f20 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61 ite_options", "a
15f30 6c 74 65 72 74 61 62 6c 65 22 2c 20 22 31 22 2c ltertable", "1",
15f40 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 TCL_GLOBAL_ONLY
15f50 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 );.#endif..#ifde
15f60 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 4e f SQLITE_OMIT_AN
15f70 41 4c 59 5a 45 0a 20 20 54 63 6c 5f 53 65 74 56 ALYZE. Tcl_SetV
15f80 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
15f90 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61 ite_options", "a
15fa0 6e 61 6c 79 7a 65 22 2c 20 22 30 22 2c 20 54 43 nalyze", "0", TC
15fb0 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a L_GLOBAL_ONLY);.
15fc0 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 #else. Tcl_SetV
15fd0 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
15fe0 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61 ite_options", "a
15ff0 6e 61 6c 79 7a 65 22 2c 20 22 31 22 2c 20 54 43 nalyze", "1", TC
16000 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a L_GLOBAL_ONLY);.
16010 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 #endif..#ifdef S
16020 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 55 54 48 4f QLITE_OMIT_AUTHO
16030 52 49 5a 41 54 49 4f 4e 0a 20 20 54 63 6c 5f 53 RIZATION. Tcl_S
16040 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 etVar2(interp, "
16050 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c sqlite_options",
16060 20 22 61 75 74 68 22 2c 20 22 30 22 2c 20 54 43 "auth", "0", TC
16070 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a L_GLOBAL_ONLY);.
16080 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 #else. Tcl_SetV
16090 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
160a0 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61 ite_options", "a
160b0 75 74 68 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 uth", "1", TCL_G
160c0 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e LOBAL_ONLY);.#en
160d0 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 dif..#ifdef SQLI
160e0 54 45 5f 4f 4d 49 54 5f 41 55 54 4f 49 4e 43 52 TE_OMIT_AUTOINCR
160f0 45 4d 45 4e 54 0a 20 20 54 63 6c 5f 53 65 74 56 EMENT. Tcl_SetV
16100 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
16110 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61 ite_options", "a
16120 75 74 6f 69 6e 63 22 2c 20 22 30 22 2c 20 54 43 utoinc", "0", TC
16130 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a L_GLOBAL_ONLY);.
16140 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 #else. Tcl_SetV
16150 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
16160 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61 ite_options", "a
16170 75 74 6f 69 6e 63 22 2c 20 22 31 22 2c 20 54 43 utoinc", "1", TC
16180 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a L_GLOBAL_ONLY);.
16190 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 #endif..#ifdef S
161a0 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 55 54 4f 56 QLITE_OMIT_AUTOV
161b0 41 43 55 55 4d 0a 20 20 54 63 6c 5f 53 65 74 56 ACUUM. Tcl_SetV
161c0 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
161d0 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61 ite_options", "a
161e0 75 74 6f 76 61 63 75 75 6d 22 2c 20 22 30 22 2c utovacuum", "0",
161f0 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 TCL_GLOBAL_ONLY
16200 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 );.#else. Tcl_S
16210 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 etVar2(interp, "
16220 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c sqlite_options",
16230 20 22 61 75 74 6f 76 61 63 75 75 6d 22 2c 20 22 "autovacuum", "
16240 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 1", TCL_GLOBAL_O
16250 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 NLY);.#endif /*
16260 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 55 54 4f SQLITE_OMIT_AUTO
16270 56 41 43 55 55 4d 20 2a 2f 0a 23 69 66 20 21 64 VACUUM */.#if !d
16280 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 44 45 efined(SQLITE_DE
16290 46 41 55 4c 54 5f 41 55 54 4f 56 41 43 55 55 4d FAULT_AUTOVACUUM
162a0 29 20 7c 7c 20 53 51 4c 49 54 45 5f 44 45 46 41 ) || SQLITE_DEFA
162b0 55 4c 54 5f 41 55 54 4f 56 41 43 55 55 4d 3d 3d ULT_AUTOVACUUM==
162c0 30 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 0. Tcl_SetVar2(
162d0 69 6e 74 65 72 70 2c 22 73 71 6c 69 74 65 5f 6f interp,"sqlite_o
162e0 70 74 69 6f 6e 73 22 2c 22 64 65 66 61 75 6c 74 ptions","default
162f0 5f 61 75 74 6f 76 61 63 75 75 6d 22 2c 22 30 22 _autovacuum","0"
16300 2c 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 ,TCL_GLOBAL_ONLY
16310 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 );.#else. Tcl_S
16320 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 22 73 etVar2(interp,"s
16330 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 22 qlite_options","
16340 64 65 66 61 75 6c 74 5f 61 75 74 6f 76 61 63 75 default_autovacu
16350 75 6d 22 2c 22 31 22 2c 54 43 4c 5f 47 4c 4f 42 um","1",TCL_GLOB
16360 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 AL_ONLY);.#endif
16370 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ..#ifdef SQLITE_
16380 4f 4d 49 54 5f 42 45 54 57 45 45 4e 5f 4f 50 54 OMIT_BETWEEN_OPT
16390 49 4d 49 5a 41 54 49 4f 4e 0a 20 20 54 63 6c 5f IMIZATION. Tcl_
163a0 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 SetVar2(interp,
163b0 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 "sqlite_options"
163c0 2c 20 22 62 65 74 77 65 65 6e 5f 6f 70 74 22 2c , "between_opt",
163d0 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c "0", TCL_GLOBAL
163e0 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 _ONLY);.#else.
163f0 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 Tcl_SetVar2(inte
16400 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 rp, "sqlite_opti
16410 6f 6e 73 22 2c 20 22 62 65 74 77 65 65 6e 5f 6f ons", "between_o
16420 70 74 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c pt", "1", TCL_GL
16430 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 OBAL_ONLY);.#end
16440 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 if..#ifdef SQLIT
16450 45 5f 4f 4d 49 54 5f 42 4c 4f 42 5f 4c 49 54 45 E_OMIT_BLOB_LITE
16460 52 41 4c 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 RAL. Tcl_SetVar
16470 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 2(interp, "sqlit
16480 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 62 6c 6f e_options", "blo
16490 62 6c 69 74 22 2c 20 22 30 22 2c 20 54 43 4c 5f blit", "0", TCL_
164a0 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 GLOBAL_ONLY);.#e
164b0 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 lse. Tcl_SetVar
164c0 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 2(interp, "sqlit
164d0 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 62 6c 6f e_options", "blo
164e0 62 6c 69 74 22 2c 20 22 31 22 2c 20 54 43 4c 5f blit", "1", TCL_
164f0 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 GLOBAL_ONLY);.#e
16500 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c ndif..#ifdef SQL
16510 49 54 45 5f 4f 4d 49 54 5f 43 41 53 54 0a 20 20 ITE_OMIT_CAST.
16520 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 Tcl_SetVar2(inte
16530 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 rp, "sqlite_opti
16540 6f 6e 73 22 2c 20 22 63 61 73 74 22 2c 20 22 30 ons", "cast", "0
16550 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e ", TCL_GLOBAL_ON
16560 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c LY);.#else. Tcl
16570 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c _SetVar2(interp,
16580 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 "sqlite_options
16590 22 2c 20 22 63 61 73 74 22 2c 20 22 31 22 2c 20 ", "cast", "1",
165a0 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 TCL_GLOBAL_ONLY)
165b0 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 ;.#endif..#ifdef
165c0 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 48 45 SQLITE_OMIT_CHE
165d0 43 4b 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 CK. Tcl_SetVar2
165e0 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
165f0 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 63 68 65 63 _options", "chec
16600 6b 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f k", "0", TCL_GLO
16610 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 BAL_ONLY);.#else
16620 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 . Tcl_SetVar2(i
16630 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f nterp, "sqlite_o
16640 70 74 69 6f 6e 73 22 2c 20 22 63 68 65 63 6b 22 ptions", "check"
16650 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 , "1", TCL_GLOBA
16660 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a L_ONLY);.#endif.
16670 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 45 .#ifdef SQLITE_E
16680 4e 41 42 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 NABLE_COLUMN_MET
16690 41 44 41 54 41 0a 20 20 54 63 6c 5f 53 65 74 56 ADATA. Tcl_SetV
166a0 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
166b0 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 63 ite_options", "c
166c0 6f 6c 75 6d 6e 6d 65 74 61 64 61 74 61 22 2c 20 olumnmetadata",
166d0 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f "1", TCL_GLOBAL_
166e0 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 ONLY);.#else. T
166f0 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 cl_SetVar2(inter
16700 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f p, "sqlite_optio
16710 6e 73 22 2c 20 22 63 6f 6c 75 6d 6e 6d 65 74 61 ns", "columnmeta
16720 64 61 74 61 22 2c 20 22 30 22 2c 20 54 43 4c 5f data", "0", TCL_
16730 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 GLOBAL_ONLY);.#e
16740 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c ndif..#ifdef SQL
16750 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 4c 45 54 ITE_OMIT_COMPLET
16760 45 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 E. Tcl_SetVar2(
16770 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
16780 6f 70 74 69 6f 6e 73 22 2c 20 22 63 6f 6d 70 6c options", "compl
16790 65 74 65 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 ete", "0", TCL_G
167a0 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c LOBAL_ONLY);.#el
167b0 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 se. Tcl_SetVar2
167c0 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
167d0 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 63 6f 6d 70 _options", "comp
167e0 6c 65 74 65 22 2c 20 22 31 22 2c 20 54 43 4c 5f lete", "1", TCL_
167f0 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 GLOBAL_ONLY);.#e
16800 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c ndif..#ifdef SQL
16810 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 4f 55 4e ITE_OMIT_COMPOUN
16820 44 5f 53 45 4c 45 43 54 0a 20 20 54 63 6c 5f 53 D_SELECT. Tcl_S
16830 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 etVar2(interp, "
16840 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c sqlite_options",
16850 20 22 63 6f 6d 70 6f 75 6e 64 22 2c 20 22 30 22 "compound", "0"
16860 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c , TCL_GLOBAL_ONL
16870 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f Y);.#else. Tcl_
16880 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 SetVar2(interp,
16890 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 "sqlite_options"
168a0 2c 20 22 63 6f 6d 70 6f 75 6e 64 22 2c 20 22 31 , "compound", "1
168b0 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e ", TCL_GLOBAL_ON
168c0 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 LY);.#endif..#if
168d0 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
168e0 43 4f 4e 46 4c 49 43 54 5f 43 4c 41 55 53 45 0a CONFLICT_CLAUSE.
168f0 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e Tcl_SetVar2(in
16900 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 terp, "sqlite_op
16910 74 69 6f 6e 73 22 2c 20 22 63 6f 6e 66 6c 69 63 tions", "conflic
16920 74 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f t", "0", TCL_GLO
16930 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 BAL_ONLY);.#else
16940 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 . Tcl_SetVar2(i
16950 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f nterp, "sqlite_o
16960 70 74 69 6f 6e 73 22 2c 20 22 63 6f 6e 66 6c 69 ptions", "confli
16970 63 74 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c ct", "1", TCL_GL
16980 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 OBAL_ONLY);.#end
16990 69 66 0a 0a 23 69 66 20 4f 53 5f 55 4e 49 58 0a if..#if OS_UNIX.
169a0 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e Tcl_SetVar2(in
169b0 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 terp, "sqlite_op
169c0 74 69 6f 6e 73 22 2c 20 22 63 72 61 73 68 74 65 tions", "crashte
169d0 73 74 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c st", "1", TCL_GL
169e0 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 OBAL_ONLY);.#els
169f0 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 e. Tcl_SetVar2(
16a00 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
16a10 6f 70 74 69 6f 6e 73 22 2c 20 22 63 72 61 73 68 options", "crash
16a20 74 65 73 74 22 2c 20 22 30 22 2c 20 54 43 4c 5f test", "0", TCL_
16a30 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 GLOBAL_ONLY);.#e
16a40 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c ndif..#ifdef SQL
16a50 49 54 45 5f 4f 4d 49 54 5f 44 41 54 45 54 49 4d ITE_OMIT_DATETIM
16a60 45 5f 46 55 4e 43 53 0a 20 20 54 63 6c 5f 53 65 E_FUNCS. Tcl_Se
16a70 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 tVar2(interp, "s
16a80 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 qlite_options",
16a90 22 64 61 74 65 74 69 6d 65 22 2c 20 22 30 22 2c "datetime", "0",
16aa0 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 TCL_GLOBAL_ONLY
16ab0 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 );.#else. Tcl_S
16ac0 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 etVar2(interp, "
16ad0 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c sqlite_options",
16ae0 20 22 64 61 74 65 74 69 6d 65 22 2c 20 22 31 22 "datetime", "1"
16af0 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c , TCL_GLOBAL_ONL
16b00 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 Y);.#endif..#ifd
16b10 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 ef SQLITE_OMIT_D
16b20 49 53 4b 49 4f 0a 20 20 54 63 6c 5f 53 65 74 56 ISKIO. Tcl_SetV
16b30 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
16b40 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 64 ite_options", "d
16b50 69 73 6b 69 6f 22 2c 20 22 30 22 2c 20 54 43 4c iskio", "0", TCL
16b60 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 _GLOBAL_ONLY);.#
16b70 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 else. Tcl_SetVa
16b80 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 r2(interp, "sqli
16b90 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 64 69 te_options", "di
16ba0 73 6b 69 6f 22 2c 20 22 31 22 2c 20 54 43 4c 5f skio", "1", TCL_
16bb0 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 GLOBAL_ONLY);.#e
16bc0 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c ndif..#ifdef SQL
16bd0 49 54 45 5f 4f 4d 49 54 5f 45 58 50 4c 41 49 4e ITE_OMIT_EXPLAIN
16be0 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 . Tcl_SetVar2(i
16bf0 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f nterp, "sqlite_o
16c00 70 74 69 6f 6e 73 22 2c 20 22 65 78 70 6c 61 69 ptions", "explai
16c10 6e 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f n", "0", TCL_GLO
16c20 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 BAL_ONLY);.#else
16c30 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 . Tcl_SetVar2(i
16c40 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f nterp, "sqlite_o
16c50 70 74 69 6f 6e 73 22 2c 20 22 65 78 70 6c 61 69 ptions", "explai
16c60 6e 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f n", "1", TCL_GLO
16c70 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 BAL_ONLY);.#endi
16c80 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 f..#ifdef SQLITE
16c90 5f 4f 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 _OMIT_FLOATING_P
16ca0 4f 49 4e 54 0a 20 20 54 63 6c 5f 53 65 74 56 61 OINT. Tcl_SetVa
16cb0 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 r2(interp, "sqli
16cc0 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 66 6c te_options", "fl
16cd0 6f 61 74 69 6e 67 70 6f 69 6e 74 22 2c 20 22 30 oatingpoint", "0
16ce0 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e ", TCL_GLOBAL_ON
16cf0 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c LY);.#else. Tcl
16d00 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c _SetVar2(interp,
16d10 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 "sqlite_options
16d20 22 2c 20 22 66 6c 6f 61 74 69 6e 67 70 6f 69 6e ", "floatingpoin
16d30 74 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f t", "1", TCL_GLO
16d40 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 BAL_ONLY);.#endi
16d50 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 f..#ifdef SQLITE
16d60 5f 4f 4d 49 54 5f 46 4f 52 45 49 47 4e 5f 4b 45 _OMIT_FOREIGN_KE
16d70 59 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 Y. Tcl_SetVar2(
16d80 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
16d90 6f 70 74 69 6f 6e 73 22 2c 20 22 66 6f 72 65 69 options", "forei
16da0 67 6e 6b 65 79 22 2c 20 22 30 22 2c 20 54 43 4c gnkey", "0", TCL
16db0 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 _GLOBAL_ONLY);.#
16dc0 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 else. Tcl_SetVa
16dd0 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 r2(interp, "sqli
16de0 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 66 6f te_options", "fo
16df0 72 65 69 67 6e 6b 65 79 22 2c 20 22 31 22 2c 20 reignkey", "1",
16e00 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 TCL_GLOBAL_ONLY)
16e10 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 ;.#endif..#ifdef
16e20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 47 4c 4f SQLITE_OMIT_GLO
16e30 42 41 4c 52 45 43 4f 56 45 52 0a 20 20 54 63 6c BALRECOVER. Tcl
16e40 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c _SetVar2(interp,
16e50 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 "sqlite_options
16e60 22 2c 20 22 67 6c 6f 62 61 6c 72 65 63 6f 76 65 ", "globalrecove
16e70 72 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f r", "0", TCL_GLO
16e80 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 BAL_ONLY);.#else
16e90 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 . Tcl_SetVar2(i
16ea0 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f nterp, "sqlite_o
16eb0 70 74 69 6f 6e 73 22 2c 20 22 67 6c 6f 62 61 6c ptions", "global
16ec0 72 65 63 6f 76 65 72 22 2c 20 22 31 22 2c 20 54 recover", "1", T
16ed0 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b CL_GLOBAL_ONLY);
16ee0 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 .#endif..#ifdef
16ef0 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 49 4e 54 45 SQLITE_OMIT_INTE
16f00 47 52 49 54 59 5f 43 48 45 43 4b 0a 20 20 54 63 GRITY_CHECK. Tc
16f10 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 l_SetVar2(interp
16f20 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e , "sqlite_option
16f30 73 22 2c 20 22 69 6e 74 65 67 72 69 74 79 63 6b s", "integrityck
16f40 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 ", "0", TCL_GLOB
16f50 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a AL_ONLY);.#else.
16f60 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e Tcl_SetVar2(in
16f70 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 terp, "sqlite_op
16f80 74 69 6f 6e 73 22 2c 20 22 69 6e 74 65 67 72 69 tions", "integri
16f90 74 79 63 6b 22 2c 20 22 31 22 2c 20 54 43 4c 5f tyck", "1", TCL_
16fa0 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 GLOBAL_ONLY);.#e
16fb0 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c ndif..#ifdef SQL
16fc0 49 54 45 5f 4f 4d 49 54 5f 4c 49 4b 45 5f 4f 50 ITE_OMIT_LIKE_OP
16fd0 54 49 4d 49 5a 41 54 49 4f 4e 0a 20 20 54 63 6c TIMIZATION. Tcl
16fe0 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c _SetVar2(interp,
16ff0 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 "sqlite_options
17000 22 2c 20 22 6c 69 6b 65 5f 6f 70 74 22 2c 20 22 ", "like_opt", "
17010 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 0", TCL_GLOBAL_O
17020 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 NLY);.#else. Tc
17030 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 l_SetVar2(interp
17040 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e , "sqlite_option
17050 73 22 2c 20 22 6c 69 6b 65 5f 6f 70 74 22 2c 20 s", "like_opt",
17060 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f "1", TCL_GLOBAL_
17070 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 ONLY);.#endif..#
17080 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 ifdef SQLITE_OMI
17090 54 5f 4d 45 4d 4f 52 59 44 42 0a 20 20 54 63 6c T_MEMORYDB. Tcl
170a0 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c _SetVar2(interp,
170b0 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 "sqlite_options
170c0 22 2c 20 22 6d 65 6d 6f 72 79 64 62 22 2c 20 22 ", "memorydb", "
170d0 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 0", TCL_GLOBAL_O
170e0 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 NLY);.#else. Tc
170f0 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 l_SetVar2(interp
17100 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e , "sqlite_option
17110 73 22 2c 20 22 6d 65 6d 6f 72 79 64 62 22 2c 20 s", "memorydb",
17120 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f "1", TCL_GLOBAL_
17130 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 ONLY);.#endif..#
17140 69 66 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 ifdef SQLITE_ENA
17150 42 4c 45 5f 4d 45 4d 4f 52 59 5f 4d 41 4e 41 47 BLE_MEMORY_MANAG
17160 45 4d 45 4e 54 0a 20 20 54 63 6c 5f 53 65 74 56 EMENT. Tcl_SetV
17170 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
17180 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 6d ite_options", "m
17190 65 6d 6f 72 79 6d 61 6e 61 67 65 22 2c 20 22 31 emorymanage", "1
171a0 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e ", TCL_GLOBAL_ON
171b0 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c LY);.#else. Tcl
171c0 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c _SetVar2(interp,
171d0 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 "sqlite_options
171e0 22 2c 20 22 6d 65 6d 6f 72 79 6d 61 6e 61 67 65 ", "memorymanage
171f0 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 ", "0", TCL_GLOB
17200 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 AL_ONLY);.#endif
17210 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ..#ifdef SQLITE_
17220 4f 4d 49 54 5f 4f 52 5f 4f 50 54 49 4d 49 5a 41 OMIT_OR_OPTIMIZA
17230 54 49 4f 4e 0a 20 20 54 63 6c 5f 53 65 74 56 61 TION. Tcl_SetVa
17240 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 r2(interp, "sqli
17250 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 6f 72 te_options", "or
17260 5f 6f 70 74 22 2c 20 22 30 22 2c 20 54 43 4c 5f _opt", "0", TCL_
17270 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 GLOBAL_ONLY);.#e
17280 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 lse. Tcl_SetVar
17290 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 2(interp, "sqlit
172a0 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 6f 72 5f e_options", "or_
172b0 6f 70 74 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 opt", "1", TCL_G
172c0 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e LOBAL_ONLY);.#en
172d0 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 dif..#ifdef SQLI
172e0 54 45 5f 4f 4d 49 54 5f 50 41 47 45 52 5f 50 52 TE_OMIT_PAGER_PR
172f0 41 47 4d 41 53 0a 20 20 54 63 6c 5f 53 65 74 56 AGMAS. Tcl_SetV
17300 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
17310 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 70 ite_options", "p
17320 61 67 65 72 5f 70 72 61 67 6d 61 73 22 2c 20 22 ager_pragmas", "
17330 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 0", TCL_GLOBAL_O
17340 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 NLY);.#else. Tc
17350 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 l_SetVar2(interp
17360 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e , "sqlite_option
17370 73 22 2c 20 22 70 61 67 65 72 5f 70 72 61 67 6d s", "pager_pragm
17380 61 73 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c as", "1", TCL_GL
17390 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 OBAL_ONLY);.#end
173a0 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 if..#ifdef SQLIT
173b0 45 5f 4f 4d 49 54 5f 50 41 52 53 45 52 0a 20 20 E_OMIT_PARSER.
173c0 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 Tcl_SetVar2(inte
173d0 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 rp, "sqlite_opti
173e0 6f 6e 73 22 2c 20 22 70 61 72 73 65 72 22 2c 20 ons", "parser",
173f0 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f "0", TCL_GLOBAL_
17400 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 ONLY);.#else. T
17410 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 cl_SetVar2(inter
17420 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f p, "sqlite_optio
17430 6e 73 22 2c 20 22 70 61 72 73 65 72 22 2c 20 22 ns", "parser", "
17440 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 1", TCL_GLOBAL_O
17450 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 NLY);.#endif..#i
17460 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 f defined(SQLITE
17470 5f 4f 4d 49 54 5f 50 52 41 47 4d 41 29 20 7c 7c _OMIT_PRAGMA) ||
17480 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f defined(SQLITE_
17490 4f 4d 49 54 5f 46 4c 41 47 5f 50 52 41 47 4d 41 OMIT_FLAG_PRAGMA
174a0 53 29 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 S). Tcl_SetVar2
174b0 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
174c0 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 70 72 61 67 _options", "prag
174d0 6d 61 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c ma", "0", TCL_GL
174e0 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 20 54 63 OBAL_ONLY);. Tc
174f0 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 l_SetVar2(interp
17500 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e , "sqlite_option
17510 73 22 2c 20 22 69 6e 74 65 67 72 69 74 79 63 6b s", "integrityck
17520 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 ", "0", TCL_GLOB
17530 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a AL_ONLY);.#else.
17540 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e Tcl_SetVar2(in
17550 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 terp, "sqlite_op
17560 74 69 6f 6e 73 22 2c 20 22 70 72 61 67 6d 61 22 tions", "pragma"
17570 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 , "1", TCL_GLOBA
17580 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a L_ONLY);.#endif.
17590 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f .#ifdef SQLITE_O
175a0 4d 49 54 5f 50 52 4f 47 52 45 53 53 5f 43 41 4c MIT_PROGRESS_CAL
175b0 4c 42 41 43 4b 0a 20 20 54 63 6c 5f 53 65 74 56 LBACK. Tcl_SetV
175c0 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
175d0 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 70 ite_options", "p
175e0 72 6f 67 72 65 73 73 22 2c 20 22 30 22 2c 20 54 rogress", "0", T
175f0 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b CL_GLOBAL_ONLY);
17600 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 .#else. Tcl_Set
17610 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 Var2(interp, "sq
17620 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 lite_options", "
17630 70 72 6f 67 72 65 73 73 22 2c 20 22 31 22 2c 20 progress", "1",
17640 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 TCL_GLOBAL_ONLY)
17650 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 ;.#endif..#ifdef
17660 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 52 SQLITE_ENABLE_R
17670 45 44 45 46 5f 49 4f 0a 20 20 54 63 6c 5f 53 65 EDEF_IO. Tcl_Se
17680 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 tVar2(interp, "s
17690 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 qlite_options",
176a0 22 72 65 64 65 66 69 6f 22 2c 20 22 31 22 2c 20 "redefio", "1",
176b0 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 TCL_GLOBAL_ONLY)
176c0 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 ;.#else. Tcl_Se
176d0 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 tVar2(interp, "s
176e0 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 qlite_options",
176f0 22 72 65 64 65 66 69 6f 22 2c 20 22 30 22 2c 20 "redefio", "0",
17700 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 TCL_GLOBAL_ONLY)
17710 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 ;.#endif..#ifdef
17720 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 52 45 49 SQLITE_OMIT_REI
17730 4e 44 45 58 0a 20 20 54 63 6c 5f 53 65 74 56 61 NDEX. Tcl_SetVa
17740 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 r2(interp, "sqli
17750 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 72 65 te_options", "re
17760 69 6e 64 65 78 22 2c 20 22 30 22 2c 20 54 43 4c index", "0", TCL
17770 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 _GLOBAL_ONLY);.#
17780 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 else. Tcl_SetVa
17790 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 r2(interp, "sqli
177a0 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 72 65 te_options", "re
177b0 69 6e 64 65 78 22 2c 20 22 31 22 2c 20 54 43 4c index", "1", TCL
177c0 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 _GLOBAL_ONLY);.#
177d0 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 endif..#ifdef SQ
177e0 4c 49 54 45 5f 4f 4d 49 54 5f 53 43 48 45 4d 41 LITE_OMIT_SCHEMA
177f0 5f 50 52 41 47 4d 41 53 0a 20 20 54 63 6c 5f 53 _PRAGMAS. Tcl_S
17800 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 etVar2(interp, "
17810 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c sqlite_options",
17820 20 22 73 63 68 65 6d 61 5f 70 72 61 67 6d 61 73 "schema_pragmas
17830 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 ", "0", TCL_GLOB
17840 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a AL_ONLY);.#else.
17850 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e Tcl_SetVar2(in
17860 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 terp, "sqlite_op
17870 74 69 6f 6e 73 22 2c 20 22 73 63 68 65 6d 61 5f tions", "schema_
17880 70 72 61 67 6d 61 73 22 2c 20 22 31 22 2c 20 54 pragmas", "1", T
17890 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b CL_GLOBAL_ONLY);
178a0 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 .#endif..#ifdef
178b0 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 53 43 48 45 SQLITE_OMIT_SCHE
178c0 4d 41 5f 56 45 52 53 49 4f 4e 5f 50 52 41 47 4d MA_VERSION_PRAGM
178d0 41 53 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 AS. Tcl_SetVar2
178e0 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
178f0 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 73 63 68 65 _options", "sche
17900 6d 61 5f 76 65 72 73 69 6f 6e 22 2c 20 22 30 22 ma_version", "0"
17910 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c , TCL_GLOBAL_ONL
17920 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f Y);.#else. Tcl_
17930 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 SetVar2(interp,
17940 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 "sqlite_options"
17950 2c 20 22 73 63 68 65 6d 61 5f 76 65 72 73 69 6f , "schema_versio
17960 6e 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f n", "1", TCL_GLO
17970 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 BAL_ONLY);.#endi
17980 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 f..#ifdef SQLITE
17990 5f 4f 4d 49 54 5f 53 48 41 52 45 44 5f 43 41 43 _OMIT_SHARED_CAC
179a0 48 45 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 HE. Tcl_SetVar2
179b0 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
179c0 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 73 68 61 72 _options", "shar
179d0 65 64 5f 63 61 63 68 65 22 2c 20 22 30 22 2c 20 ed_cache", "0",
179e0 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 TCL_GLOBAL_ONLY)
179f0 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 ;.#else. Tcl_Se
17a00 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 tVar2(interp, "s
17a10 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 qlite_options",
17a20 22 73 68 61 72 65 64 5f 63 61 63 68 65 22 2c 20 "shared_cache",
17a30 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f "1", TCL_GLOBAL_
17a40 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 ONLY);.#endif..#
17a50 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 ifdef SQLITE_OMI
17a60 54 5f 53 55 42 51 55 45 52 59 0a 20 20 54 63 6c T_SUBQUERY. Tcl
17a70 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c _SetVar2(interp,
17a80 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 "sqlite_options
17a90 22 2c 20 22 73 75 62 71 75 65 72 79 22 2c 20 22 ", "subquery", "
17aa0 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 0", TCL_GLOBAL_O
17ab0 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 NLY);.#else. Tc
17ac0 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 l_SetVar2(interp
17ad0 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e , "sqlite_option
17ae0 73 22 2c 20 22 73 75 62 71 75 65 72 79 22 2c 20 s", "subquery",
17af0 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f "1", TCL_GLOBAL_
17b00 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 ONLY);.#endif..#
17b10 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 ifdef SQLITE_OMI
17b20 54 5f 54 43 4c 5f 56 41 52 49 41 42 4c 45 0a 20 T_TCL_VARIABLE.
17b30 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 Tcl_SetVar2(int
17b40 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 erp, "sqlite_opt
17b50 69 6f 6e 73 22 2c 20 22 74 63 6c 76 61 72 22 2c ions", "tclvar",
17b60 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c "0", TCL_GLOBAL
17b70 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 _ONLY);.#else.
17b80 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 Tcl_SetVar2(inte
17b90 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 rp, "sqlite_opti
17ba0 6f 6e 73 22 2c 20 22 74 63 6c 76 61 72 22 2c 20 ons", "tclvar",
17bb0 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f "1", TCL_GLOBAL_
17bc0 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 ONLY);.#endif..#
17bd0 69 66 20 64 65 66 69 6e 65 64 28 54 48 52 45 41 if defined(THREA
17be0 44 53 41 46 45 29 20 26 26 20 54 48 52 45 41 44 DSAFE) && THREAD
17bf0 53 41 46 45 0a 20 20 54 63 6c 5f 53 65 74 56 61 SAFE. Tcl_SetVa
17c00 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 r2(interp, "sqli
17c10 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 74 68 te_options", "th
17c20 72 65 61 64 73 61 66 65 22 2c 20 22 31 22 2c 20 readsafe", "1",
17c30 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 TCL_GLOBAL_ONLY)
17c40 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 ;.#else. Tcl_Se
17c50 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 tVar2(interp, "s
17c60 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 qlite_options",
17c70 22 74 68 72 65 61 64 73 61 66 65 22 2c 20 22 30 "threadsafe", "0
17c80 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e ", TCL_GLOBAL_ON
17c90 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 LY);.#endif..#if
17ca0 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
17cb0 54 52 41 43 45 0a 20 20 54 63 6c 5f 53 65 74 56 TRACE. Tcl_SetV
17cc0 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c ar2(interp, "sql
17cd0 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 74 ite_options", "t
17ce0 72 61 63 65 22 2c 20 22 30 22 2c 20 54 43 4c 5f race", "0", TCL_
17cf0 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 GLOBAL_ONLY);.#e
17d00 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 lse. Tcl_SetVar
17d10 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 2(interp, "sqlit
17d20 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 74 72 61 e_options", "tra
17d30 63 65 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c ce", "1", TCL_GL
17d40 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 OBAL_ONLY);.#end
17d50 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 if..#ifdef SQLIT
17d60 45 5f 4f 4d 49 54 5f 54 52 49 47 47 45 52 0a 20 E_OMIT_TRIGGER.
17d70 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 Tcl_SetVar2(int
17d80 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 erp, "sqlite_opt
17d90 69 6f 6e 73 22 2c 20 22 74 72 69 67 67 65 72 22 ions", "trigger"
17da0 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 , "0", TCL_GLOBA
17db0 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 L_ONLY);.#else.
17dc0 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 Tcl_SetVar2(int
17dd0 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 erp, "sqlite_opt
17de0 69 6f 6e 73 22 2c 20 22 74 72 69 67 67 65 72 22 ions", "trigger"
17df0 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 , "1", TCL_GLOBA
17e00 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a L_ONLY);.#endif.
17e10 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f .#ifdef SQLITE_O
17e20 4d 49 54 5f 54 45 4d 50 44 42 0a 20 20 54 63 6c MIT_TEMPDB. Tcl
17e30 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c _SetVar2(interp,
17e40 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 "sqlite_options
17e50 22 2c 20 22 74 65 6d 70 64 62 22 2c 20 22 30 22 ", "tempdb", "0"
17e60 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c , TCL_GLOBAL_ONL
17e70 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f Y);.#else. Tcl_
17e80 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 SetVar2(interp,
17e90 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 "sqlite_options"
17ea0 2c 20 22 74 65 6d 70 64 62 22 2c 20 22 31 22 2c , "tempdb", "1",
17eb0 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 TCL_GLOBAL_ONLY
17ec0 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 );.#endif..#ifde
17ed0 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 f SQLITE_OMIT_UT
17ee0 46 31 36 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 F16. Tcl_SetVar
17ef0 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 2(interp, "sqlit
17f00 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 75 74 66 e_options", "utf
17f10 31 36 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 16", "0", TCL_GL
17f20 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 OBAL_ONLY);.#els
17f30 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 e. Tcl_SetVar2(
17f40 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
17f50 6f 70 74 69 6f 6e 73 22 2c 20 22 75 74 66 31 36 options", "utf16
17f60 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 ", "1", TCL_GLOB
17f70 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 AL_ONLY);.#endif
17f80 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ..#ifdef SQLITE_
17f90 4f 4d 49 54 5f 56 41 43 55 55 4d 0a 20 20 54 63 OMIT_VACUUM. Tc
17fa0 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 l_SetVar2(interp
17fb0 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e , "sqlite_option
17fc0 73 22 2c 20 22 76 61 63 75 75 6d 22 2c 20 22 30 s", "vacuum", "0
17fd0 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e ", TCL_GLOBAL_ON
17fe0 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c LY);.#else. Tcl
17ff0 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c _SetVar2(interp,
18000 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 "sqlite_options
18010 22 2c 20 22 76 61 63 75 75 6d 22 2c 20 22 31 22 ", "vacuum", "1"
18020 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c , TCL_GLOBAL_ONL
18030 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 Y);.#endif..#ifd
18040 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 56 ef SQLITE_OMIT_V
18050 49 45 57 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 IEW. Tcl_SetVar
18060 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 2(interp, "sqlit
18070 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 76 69 65 e_options", "vie
18080 77 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f w", "0", TCL_GLO
18090 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 BAL_ONLY);.#else
180a0 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 . Tcl_SetVar2(i
180b0 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f nterp, "sqlite_o
180c0 70 74 69 6f 6e 73 22 2c 20 22 76 69 65 77 22 2c ptions", "view",
180d0 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c "1", TCL_GLOBAL
180e0 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 7d _ONLY);.#endif.}
180f0 0a 0a 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 ../*.** Register
18100 20 63 6f 6d 6d 61 6e 64 73 20 77 69 74 68 20 74 commands with t
18110 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
18120 65 72 2e 0a 2a 2f 0a 69 6e 74 20 53 71 6c 69 74 er..*/.int Sqlit
18130 65 74 65 73 74 31 5f 49 6e 69 74 28 54 63 6c 5f etest1_Init(Tcl_
18140 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b Interp *interp){
18150 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
18160 6c 69 74 65 33 5f 73 65 61 72 63 68 5f 63 6f 75 lite3_search_cou
18170 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 nt;. extern int
18180 20 73 71 6c 69 74 65 33 5f 69 6e 74 65 72 72 75 sqlite3_interru
18190 70 74 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 pt_count;. exte
181a0 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6f rn int sqlite3_o
181b0 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 3b 0a pen_file_count;.
181c0 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c extern int sql
181d0 69 74 65 33 5f 73 6f 72 74 5f 63 6f 75 6e 74 3b ite3_sort_count;
181e0 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
181f0 6c 69 74 65 33 5f 63 75 72 72 65 6e 74 5f 74 69 lite3_current_ti
18200 6d 65 3b 0a 20 20 73 74 61 74 69 63 20 73 74 72 me;. static str
18210 75 63 74 20 7b 0a 20 20 20 20 20 63 68 61 72 20 uct {. char
18220 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 54 63 6c *zName;. Tcl
18230 5f 43 6d 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b _CmdProc *xProc;
18240 0a 20 20 7d 20 61 43 6d 64 5b 5d 20 3d 20 7b 0a . } aCmd[] = {.
18250 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
18260 6d 70 72 69 6e 74 66 5f 69 6e 74 22 2c 20 20 20 mprintf_int",
18270 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
18280 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 Proc*)sqlite3_mp
18290 72 69 6e 74 66 5f 69 6e 74 20 20 20 20 7d 2c 0a rintf_int },.
182a0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
182b0 6d 70 72 69 6e 74 66 5f 69 6e 74 36 34 22 2c 20 mprintf_int64",
182c0 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
182d0 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 Proc*)sqlite3_mp
182e0 72 69 6e 74 66 5f 69 6e 74 36 34 20 20 7d 2c 0a rintf_int64 },.
182f0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
18300 6d 70 72 69 6e 74 66 5f 73 74 72 22 2c 20 20 20 mprintf_str",
18310 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
18320 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 Proc*)sqlite3_mp
18330 72 69 6e 74 66 5f 73 74 72 20 20 20 20 7d 2c 0a rintf_str },.
18340 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
18350 6d 70 72 69 6e 74 66 5f 73 74 72 6f 6e 6c 79 22 mprintf_stronly"
18360 2c 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 , (Tcl_Cmd
18370 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 Proc*)sqlite3_mp
18380 72 69 6e 74 66 5f 73 74 72 6f 6e 6c 79 7d 2c 0a rintf_stronly},.
18390 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
183a0 6d 70 72 69 6e 74 66 5f 64 6f 75 62 6c 65 22 2c mprintf_double",
183b0 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
183c0 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 Proc*)sqlite3_mp
183d0 72 69 6e 74 66 5f 64 6f 75 62 6c 65 20 7d 2c 0a rintf_double },.
183e0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
183f0 6d 70 72 69 6e 74 66 5f 73 63 61 6c 65 64 22 2c mprintf_scaled",
18400 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
18410 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 Proc*)sqlite3_mp
18420 72 69 6e 74 66 5f 73 63 61 6c 65 64 20 7d 2c 0a rintf_scaled },.
18430 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
18440 6d 70 72 69 6e 74 66 5f 68 65 78 64 6f 75 62 6c mprintf_hexdoubl
18450 65 22 2c 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 e", (Tcl_CmdPr
18460 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 69 oc*)sqlite3_mpri
18470 6e 74 66 5f 68 65 78 64 6f 75 62 6c 65 7d 2c 0a ntf_hexdouble},.
18480 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
18490 6d 70 72 69 6e 74 66 5f 7a 5f 74 65 73 74 22 2c mprintf_z_test",
184a0 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
184b0 50 72 6f 63 2a 29 74 65 73 74 5f 6d 70 72 69 6e Proc*)test_mprin
184c0 74 66 5f 7a 20 20 20 20 20 20 20 20 7d 2c 0a 20 tf_z },.
184d0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6c { "sqlite3_l
184e0 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 ast_insert_rowid
184f0 22 2c 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 ", (Tcl_CmdP
18500 72 6f 63 2a 29 74 65 73 74 5f 6c 61 73 74 5f 72 roc*)test_last_r
18510 6f 77 69 64 20 20 20 20 20 20 20 7d 2c 0a 20 20 owid },.
18520 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 78 { "sqlite3_ex
18530 65 63 5f 70 72 69 6e 74 66 22 2c 20 20 20 20 20 ec_printf",
18540 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
18550 6f 63 2a 29 74 65 73 74 5f 65 78 65 63 5f 70 72 oc*)test_exec_pr
18560 69 6e 74 66 20 20 20 20 20 20 7d 2c 0a 20 20 20 intf },.
18570 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 67 65 74 { "sqlite3_get
18580 5f 74 61 62 6c 65 5f 70 72 69 6e 74 66 22 2c 20 _table_printf",
18590 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f (Tcl_CmdPro
185a0 63 2a 29 74 65 73 74 5f 67 65 74 5f 74 61 62 6c c*)test_get_tabl
185b0 65 5f 70 72 69 6e 74 66 20 7d 2c 0a 20 20 20 20 e_printf },.
185c0 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6c 6f 73 { "sqlite3_clos
185d0 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 e",
185e0 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 (Tcl_CmdProc
185f0 2a 29 73 71 6c 69 74 65 5f 74 65 73 74 5f 63 6c *)sqlite_test_cl
18600 6f 73 65 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 ose },.
18610 7b 20 22 73 71 6c 69 74 65 33 5f 63 72 65 61 74 { "sqlite3_creat
18620 65 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 20 20 20 e_function",
18630 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
18640 29 74 65 73 74 5f 63 72 65 61 74 65 5f 66 75 6e )test_create_fun
18650 63 74 69 6f 6e 20 20 7d 2c 0a 20 20 20 20 20 7b ction },. {
18660 20 22 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 "sqlite3_create
18670 5f 61 67 67 72 65 67 61 74 65 22 2c 20 20 20 20 _aggregate",
18680 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
18690 74 65 73 74 5f 63 72 65 61 74 65 5f 61 67 67 72 test_create_aggr
186a0 65 67 61 74 65 20 7d 2c 0a 20 20 20 20 20 7b 20 egate },. {
186b0 22 73 71 6c 69 74 65 5f 72 65 67 69 73 74 65 72 "sqlite_register
186c0 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c _test_function",
186d0 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 (Tcl_CmdProc*)t
186e0 65 73 74 5f 72 65 67 69 73 74 65 72 5f 66 75 6e est_register_fun
186f0 63 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 c },. { "
18700 73 71 6c 69 74 65 5f 61 62 6f 72 74 22 2c 20 20 sqlite_abort",
18710 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
18720 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 (Tcl_CmdProc*)sq
18730 6c 69 74 65 5f 61 62 6f 72 74 20 20 20 20 20 20 lite_abort
18740 20 20 20 20 7d 2c 0a 23 69 66 64 65 66 20 53 51 },.#ifdef SQ
18750 4c 49 54 45 5f 4d 45 4d 44 45 42 55 47 0a 20 20 LITE_MEMDEBUG.
18760 20 20 20 7b 20 22 73 71 6c 69 74 65 5f 6d 61 6c { "sqlite_mal
18770 6c 6f 63 5f 66 61 69 6c 22 2c 20 20 20 20 20 20 loc_fail",
18780 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
18790 6f 63 2a 29 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f oc*)sqlite_mallo
187a0 63 5f 66 61 69 6c 20 20 20 20 7d 2c 0a 20 20 20 c_fail },.
187b0 20 20 7b 20 22 73 71 6c 69 74 65 5f 6d 61 6c 6c { "sqlite_mall
187c0 6f 63 5f 73 74 61 74 22 2c 20 20 20 20 20 20 20 oc_stat",
187d0 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f (Tcl_CmdPro
187e0 63 2a 29 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 c*)sqlite_malloc
187f0 5f 73 74 61 74 20 20 20 20 7d 2c 0a 23 65 6e 64 _stat },.#end
18800 69 66 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 if. { "sqlit
18810 65 5f 62 69 6e 64 22 2c 20 20 20 20 20 20 20 20 e_bind",
18820 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f (Tcl_
18830 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 62 69 CmdProc*)test_bi
18840 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 7d nd }
18850 2c 0a 20 20 20 20 20 7b 20 22 62 72 65 61 6b 70 ,. { "breakp
18860 6f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20 20 oint",
18870 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 (Tcl_C
18880 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 62 72 65 mdProc*)test_bre
18890 61 6b 70 6f 69 6e 74 20 20 20 20 20 20 20 7d 2c akpoint },
188a0 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
188b0 5f 6b 65 79 22 2c 20 20 20 20 20 20 20 20 20 20 _key",
188c0 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d (Tcl_Cm
188d0 64 50 72 6f 63 2a 29 74 65 73 74 5f 6b 65 79 20 dProc*)test_key
188e0 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
188f0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
18900 72 65 6b 65 79 22 2c 20 20 20 20 20 20 20 20 20 rekey",
18910 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
18920 50 72 6f 63 2a 29 74 65 73 74 5f 72 65 6b 65 79 Proc*)test_rekey
18930 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 },.
18940 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f 73 65 { "sqlite_se
18950 74 5f 6d 61 67 69 63 22 2c 20 20 20 20 20 20 20 t_magic",
18960 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
18970 72 6f 63 2a 29 73 71 6c 69 74 65 5f 73 65 74 5f roc*)sqlite_set_
18980 6d 61 67 69 63 20 20 20 20 20 20 7d 2c 0a 20 20 magic },.
18990 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 69 6e { "sqlite3_in
189a0 74 65 72 72 75 70 74 22 2c 20 20 20 20 20 20 20 terrupt",
189b0 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
189c0 6f 63 2a 29 74 65 73 74 5f 69 6e 74 65 72 72 75 oc*)test_interru
189d0 70 74 20 20 20 20 20 20 20 20 7d 2c 0a 23 69 66 pt },.#if
189e0 20 30 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 0. { "sqlit
189f0 65 33 5f 73 6c 65 65 70 22 2c 20 20 20 20 20 20 e3_sleep",
18a00 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f (Tcl_
18a10 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 73 6c CmdProc*)test_sl
18a20 65 65 70 20 20 20 20 20 20 20 20 20 20 20 20 7d eep }
18a30 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 7b 20 ,.#endif. {
18a40 22 73 71 6c 69 74 65 5f 64 65 6c 65 74 65 5f 66 "sqlite_delete_f
18a50 75 6e 63 74 69 6f 6e 22 2c 20 20 20 20 20 20 20 unction",
18a60 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 64 (Tcl_CmdProc*)d
18a70 65 6c 65 74 65 5f 66 75 6e 63 74 69 6f 6e 20 20 elete_function
18a80 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 },. { "
18a90 73 71 6c 69 74 65 5f 64 65 6c 65 74 65 5f 63 6f sqlite_delete_co
18aa0 6c 6c 61 74 69 6f 6e 22 2c 20 20 20 20 20 20 20 llation",
18ab0 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 64 65 (Tcl_CmdProc*)de
18ac0 6c 65 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 20 20 lete_collation
18ad0 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
18ae0 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 qlite3_get_autoc
18af0 6f 6d 6d 69 74 22 2c 20 20 20 20 20 20 20 20 28 ommit", (
18b00 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 67 65 74 Tcl_CmdProc*)get
18b10 5f 61 75 74 6f 63 6f 6d 6d 69 74 20 20 20 20 20 _autocommit
18b20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 },. { "sq
18b30 6c 69 74 65 33 5f 73 74 61 63 6b 5f 75 73 65 64 lite3_stack_used
18b40 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 28 54 ", (T
18b50 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 cl_CmdProc*)test
18b60 5f 73 74 61 63 6b 5f 75 73 65 64 20 20 20 20 20 _stack_used
18b70 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 73 74 61 74 },. };. stat
18b80 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20 20 ic struct {.
18b90 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 char *zName;.
18ba0 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f Tcl_ObjCmdPro
18bb0 63 20 2a 78 50 72 6f 63 3b 0a 20 20 20 20 20 76 c *xProc;. v
18bc0 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61 74 61 3b oid *clientData;
18bd0 0a 20 20 7d 20 61 4f 62 6a 43 6d 64 5b 5d 20 3d . } aObjCmd[] =
18be0 20 7b 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 {. { "sqlit
18bf0 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f e3_connection_po
18c00 69 6e 74 65 72 22 2c 20 20 20 20 67 65 74 5f 73 inter", get_s
18c10 71 6c 69 74 65 5f 70 6f 69 6e 74 65 72 2c 20 30 qlite_pointer, 0
18c20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
18c30 74 65 33 5f 62 69 6e 64 5f 69 6e 74 22 2c 20 20 te3_bind_int",
18c40 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
18c50 5f 62 69 6e 64 5f 69 6e 74 2c 20 20 20 20 20 20 _bind_int,
18c60 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
18c70 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 36 34 22 ite3_bind_int64"
18c80 2c 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 , tes
18c90 74 5f 62 69 6e 64 5f 69 6e 74 36 34 2c 20 20 20 t_bind_int64,
18ca0 20 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 0 },. { "sq
18cb0 6c 69 74 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c lite3_bind_doubl
18cc0 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 74 65 e", te
18cd0 73 74 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 2c 20 st_bind_double,
18ce0 20 20 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 0 },. { "s
18cf0 71 6c 69 74 65 33 5f 62 69 6e 64 5f 6e 75 6c 6c qlite3_bind_null
18d00 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 74 ", t
18d10 65 73 74 5f 62 69 6e 64 5f 6e 75 6c 6c 20 20 20 est_bind_null
18d20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
18d30 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 sqlite3_bind_tex
18d40 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 t",
18d50 74 65 73 74 5f 62 69 6e 64 5f 74 65 78 74 20 20 test_bind_text
18d60 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
18d70 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 "sqlite3_bind_te
18d80 78 74 31 36 22 2c 20 20 20 20 20 20 20 20 20 20 xt16",
18d90 20 74 65 73 74 5f 62 69 6e 64 5f 74 65 78 74 31 test_bind_text1
18da0 36 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 6 ,0 },. {
18db0 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 62 "sqlite3_bind_b
18dc0 6c 6f 62 22 2c 20 20 20 20 20 20 20 20 20 20 20 lob",
18dd0 20 20 74 65 73 74 5f 62 69 6e 64 5f 62 6c 6f 62 test_bind_blob
18de0 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 ,0 },.
18df0 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f { "sqlite3_bind_
18e00 70 61 72 61 6d 65 74 65 72 5f 63 6f 75 6e 74 22 parameter_count"
18e10 2c 20 20 74 65 73 74 5f 62 69 6e 64 5f 70 61 72 , test_bind_par
18e20 61 6d 65 74 65 72 5f 63 6f 75 6e 74 2c 20 30 7d ameter_count, 0}
18e30 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
18e40 33 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 3_bind_parameter
18e50 5f 6e 61 6d 65 22 2c 20 20 20 74 65 73 74 5f 62 _name", test_b
18e60 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 ind_parameter_na
18e70 6d 65 2c 20 20 30 7d 2c 0a 20 20 20 20 20 7b 20 me, 0},. {
18e80 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 "sqlite3_bind_pa
18e90 72 61 6d 65 74 65 72 5f 69 6e 64 65 78 22 2c 20 rameter_index",
18ea0 20 74 65 73 74 5f 62 69 6e 64 5f 70 61 72 61 6d test_bind_param
18eb0 65 74 65 72 5f 69 6e 64 65 78 2c 20 30 7d 2c 0a eter_index, 0},.
18ec0 23 69 66 20 30 0a 20 20 20 20 20 7b 20 22 73 71 #if 0. { "sq
18ed0 6c 69 74 65 33 5f 63 6c 65 61 72 5f 62 69 6e 64 lite3_clear_bind
18ee0 69 6e 67 73 22 2c 20 20 20 20 20 20 20 20 74 65 ings", te
18ef0 73 74 5f 63 6c 65 61 72 5f 62 69 6e 64 69 6e 67 st_clear_binding
18f00 73 2c 20 30 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 s, 0},.#endif.
18f10 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 72 { "sqlite3_er
18f20 72 63 6f 64 65 22 2c 20 20 20 20 20 20 20 20 20 rcode",
18f30 20 20 20 20 20 20 74 65 73 74 5f 65 72 72 63 6f test_errco
18f40 64 65 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 de ,0 },.
18f50 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 { "sqlite3_e
18f60 72 72 6d 73 67 22 2c 20 20 20 20 20 20 20 20 20 rrmsg",
18f70 20 20 20 20 20 20 20 74 65 73 74 5f 65 72 72 6d test_errm
18f80 73 67 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a sg ,0 },.
18f90 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
18fa0 65 72 72 6d 73 67 31 36 22 2c 20 20 20 20 20 20 errmsg16",
18fb0 20 20 20 20 20 20 20 20 74 65 73 74 5f 65 72 72 test_err
18fc0 6d 73 67 31 36 20 20 20 20 20 20 2c 30 20 7d 2c msg16 ,0 },
18fd0 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
18fe0 5f 6f 70 65 6e 22 2c 20 20 20 20 20 20 20 20 20 _open",
18ff0 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 6f 70 test_op
19000 65 6e 20 20 20 20 20 20 20 20 20 20 2c 30 20 7d en ,0 }
19010 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
19020 33 5f 6f 70 65 6e 31 36 22 2c 20 20 20 20 20 20 3_open16",
19030 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 6f test_o
19040 70 65 6e 31 36 20 20 20 20 20 20 20 20 2c 30 20 pen16 ,0
19050 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
19060 65 33 5f 63 6f 6d 70 6c 65 74 65 31 36 22 2c 20 e3_complete16",
19070 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f test_
19080 63 6f 6d 70 6c 65 74 65 31 36 20 20 20 20 2c 30 complete16 ,0
19090 20 7d 2c 0a 0a 20 20 20 20 20 7b 20 22 73 71 6c },.. { "sql
190a0 69 74 65 33 5f 70 72 65 70 61 72 65 22 2c 20 20 ite3_prepare",
190b0 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
190c0 74 5f 70 72 65 70 61 72 65 20 20 20 20 20 20 20 t_prepare
190d0 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
190e0 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 22 lite3_prepare16"
190f0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 , te
19100 73 74 5f 70 72 65 70 61 72 65 31 36 20 20 20 20 st_prepare16
19110 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
19120 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 22 qlite3_finalize"
19130 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 , t
19140 65 73 74 5f 66 69 6e 61 6c 69 7a 65 20 20 20 20 est_finalize
19150 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
19160 73 71 6c 69 74 65 33 5f 72 65 73 65 74 22 2c 20 sqlite3_reset",
19170 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
19180 74 65 73 74 5f 72 65 73 65 74 20 20 20 20 20 20 test_reset
19190 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
191a0 22 73 71 6c 69 74 65 33 5f 65 78 70 69 72 65 64 "sqlite3_expired
191b0 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
191c0 20 74 65 73 74 5f 65 78 70 69 72 65 64 20 20 20 test_expired
191d0 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b ,0 },. {
191e0 20 22 73 71 6c 69 74 65 33 5f 74 72 61 6e 73 66 "sqlite3_transf
191f0 65 72 5f 62 69 6e 64 69 6e 67 73 22 2c 20 20 20 er_bindings",
19200 20 20 74 65 73 74 5f 74 72 61 6e 73 66 65 72 5f test_transfer_
19210 62 69 6e 64 20 2c 30 20 7d 2c 0a 20 20 20 20 20 bind ,0 },.
19220 7b 20 22 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 { "sqlite3_chang
19230 65 73 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 es",
19240 20 20 20 74 65 73 74 5f 63 68 61 6e 67 65 73 20 test_changes
19250 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 ,0 },.
19260 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 74 65 70 { "sqlite3_step
19270 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
19280 20 20 20 20 74 65 73 74 5f 73 74 65 70 20 20 20 test_step
19290 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 0a 20 20 ,0 },..
192a0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 72 65 { "sqlite3_re
192b0 6c 65 61 73 65 5f 6d 65 6d 6f 72 79 22 2c 20 20 lease_memory",
192c0 20 20 20 20 20 20 74 65 73 74 5f 72 65 6c 65 61 test_relea
192d0 73 65 5f 6d 65 6d 6f 72 79 2c 20 20 20 20 20 30 se_memory, 0
192e0 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
192f0 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d e3_soft_heap_lim
19300 69 74 22 2c 20 20 20 20 20 20 20 74 65 73 74 5f it", test_
19310 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 2c soft_heap_limit,
19320 20 20 20 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 0},. { "
19330 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f 74 73 sqlite3_clear_ts
19340 64 5f 6d 65 6d 64 65 62 75 67 22 2c 20 20 20 20 d_memdebug",
19350 74 65 73 74 5f 63 6c 65 61 72 5f 74 73 64 5f 6d test_clear_tsd_m
19360 65 6d 64 65 62 75 67 2c 20 30 7d 2c 0a 20 20 20 emdebug, 0},.
19370 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 74 73 64 { "sqlite3_tsd
19380 5f 72 65 6c 65 61 73 65 22 2c 20 20 20 20 20 20 _release",
19390 20 20 20 20 20 74 65 73 74 5f 74 73 64 5f 72 65 test_tsd_re
193a0 6c 65 61 73 65 2c 20 20 20 20 20 20 20 20 30 7d lease, 0}
193b0 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
193c0 33 5f 74 68 72 65 61 64 5f 63 6c 65 61 6e 75 70 3_thread_cleanup
193d0 22 2c 20 20 20 20 20 20 20 20 74 65 73 74 5f 74 ", test_t
193e0 68 72 65 61 64 5f 63 6c 65 61 6e 75 70 2c 20 20 hread_cleanup,
193f0 20 20 20 30 7d 2c 0a 0a 20 20 20 20 20 2f 2a 20 0},.. /*
19400 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 2a sqlite3_column_*
19410 28 29 20 41 50 49 20 2a 2f 0a 20 20 20 20 20 7b () API */. {
19420 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e "sqlite3_column
19430 5f 63 6f 75 6e 74 22 2c 20 20 20 20 20 20 20 20 _count",
19440 20 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 63 6f test_column_co
19450 75 6e 74 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 unt ,0 },.
19460 7b 20 22 73 71 6c 69 74 65 33 5f 64 61 74 61 5f { "sqlite3_data_
19470 63 6f 75 6e 74 22 2c 20 20 20 20 20 20 20 20 20 count",
19480 20 20 20 74 65 73 74 5f 64 61 74 61 5f 63 6f 75 test_data_cou
19490 6e 74 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 nt ,0 },.
194a0 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 { "sqlite3_colu
194b0 6d 6e 5f 74 79 70 65 22 2c 20 20 20 20 20 20 20 mn_type",
194c0 20 20 20 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f test_column_
194d0 74 79 70 65 20 20 20 2c 30 20 7d 2c 0a 20 20 20 type ,0 },.
194e0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c { "sqlite3_col
194f0 75 6d 6e 5f 62 6c 6f 62 22 2c 20 20 20 20 20 20 umn_blob",
19500 20 20 20 20 20 74 65 73 74 5f 63 6f 6c 75 6d 6e test_column
19510 5f 62 6c 6f 62 20 20 20 2c 30 20 7d 2c 0a 20 20 _blob ,0 },.
19520 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f { "sqlite3_co
19530 6c 75 6d 6e 5f 64 6f 75 62 6c 65 22 2c 20 20 20 lumn_double",
19540 20 20 20 20 20 20 74 65 73 74 5f 63 6f 6c 75 6d test_colum
19550 6e 5f 64 6f 75 62 6c 65 20 2c 30 20 7d 2c 0a 20 n_double ,0 },.
19560 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 { "sqlite3_c
19570 6f 6c 75 6d 6e 5f 69 6e 74 36 34 22 2c 20 20 20 olumn_int64",
19580 20 20 20 20 20 20 20 74 65 73 74 5f 63 6f 6c 75 test_colu
19590 6d 6e 5f 69 6e 74 36 34 20 20 2c 30 20 7d 2c 0a mn_int64 ,0 },.
195a0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
195b0 63 6f 6c 75 6d 6e 5f 74 65 78 74 22 2c 20 20 20 column_text",
195c0 20 20 20 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 test_stmt_ut
195d0 66 38 2c 20 20 73 71 6c 69 74 65 33 5f 63 6f 6c f8, sqlite3_col
195e0 75 6d 6e 5f 74 65 78 74 20 20 20 20 20 20 7d 2c umn_text },
195f0 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
19600 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 _column_decltype
19610 22 2c 20 20 20 74 65 73 74 5f 73 74 6d 74 5f 75 ", test_stmt_u
19620 74 66 38 2c 20 20 73 71 6c 69 74 65 33 5f 63 6f tf8, sqlite3_co
19630 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 20 20 7d lumn_decltype }
19640 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
19650 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 22 2c 20 3_column_name",
19660 20 20 20 20 20 20 74 65 73 74 5f 73 74 6d 74 5f test_stmt_
19670 75 74 66 38 2c 20 20 73 71 6c 69 74 65 33 5f 63 utf8, sqlite3_c
19680 6f 6c 75 6d 6e 5f 6e 61 6d 65 20 20 20 20 20 20 olumn_name
19690 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
196a0 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 22 2c 20 e3_column_int",
196b0 20 20 20 20 20 20 20 74 65 73 74 5f 73 74 6d 74 test_stmt
196c0 5f 69 6e 74 2c 20 20 20 73 71 6c 69 74 65 33 5f _int, sqlite3_
196d0 63 6f 6c 75 6d 6e 5f 69 6e 74 20 20 20 20 20 20 column_int
196e0 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
196f0 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 te3_column_bytes
19700 22 2c 20 20 20 20 20 20 74 65 73 74 5f 73 74 6d ", test_stm
19710 74 5f 69 6e 74 2c 20 20 20 73 71 6c 69 74 65 33 t_int, sqlite3
19720 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 20 20 20 _column_bytes
19730 20 20 7d 2c 0a 23 69 66 64 65 66 20 53 51 4c 49 },.#ifdef SQLI
19740 54 45 5f 45 4e 41 42 4c 45 5f 43 4f 4c 55 4d 4e TE_ENABLE_COLUMN
19750 5f 4d 45 54 41 44 41 54 41 0a 7b 20 22 73 71 6c _METADATA.{ "sql
19760 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 74 61 ite3_column_data
19770 62 61 73 65 5f 6e 61 6d 65 22 2c 20 74 65 73 74 base_name", test
19780 5f 73 74 6d 74 5f 75 74 66 38 2c 20 73 71 6c 69 _stmt_utf8, sqli
19790 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 te3_column_datab
197a0 61 73 65 5f 6e 61 6d 65 7d 2c 0a 7b 20 22 73 71 ase_name},.{ "sq
197b0 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 lite3_column_tab
197c0 6c 65 5f 6e 61 6d 65 22 2c 20 74 65 73 74 5f 73 le_name", test_s
197d0 74 6d 74 5f 75 74 66 38 2c 20 73 71 6c 69 74 65 tmt_utf8, sqlite
197e0 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 3_column_table_n
197f0 61 6d 65 7d 2c 0a 7b 20 22 73 71 6c 69 74 65 33 ame},.{ "sqlite3
19800 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e _column_origin_n
19810 61 6d 65 22 2c 20 74 65 73 74 5f 73 74 6d 74 5f ame", test_stmt_
19820 75 74 66 38 2c 20 73 71 6c 69 74 65 33 5f 63 6f utf8, sqlite3_co
19830 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 lumn_origin_name
19840 7d 2c 0a 23 65 6e 64 69 66 0a 0a 23 69 66 6e 64 },.#endif..#ifnd
19850 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 ef SQLITE_OMIT_U
19860 54 46 31 36 0a 20 20 20 20 20 7b 20 22 73 71 6c TF16. { "sql
19870 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 ite3_column_byte
19880 73 31 36 22 2c 20 20 20 20 74 65 73 74 5f 73 74 s16", test_st
19890 6d 74 5f 69 6e 74 2c 20 20 20 73 71 6c 69 74 65 mt_int, sqlite
198a0 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 31 36 3_column_bytes16
198b0 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 },. { "sq
198c0 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 lite3_column_tex
198d0 74 31 36 22 2c 20 20 20 20 20 74 65 73 74 5f 73 t16", test_s
198e0 74 6d 74 5f 75 74 66 31 36 2c 20 73 71 6c 69 74 tmt_utf16, sqlit
198f0 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 e3_column_text16
19900 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
19910 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 qlite3_column_de
19920 63 6c 74 79 70 65 31 36 22 2c 20 74 65 73 74 5f cltype16", test_
19930 73 74 6d 74 5f 75 74 66 31 36 2c 20 73 71 6c 69 stmt_utf16, sqli
19940 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 te3_column_declt
19950 79 70 65 31 36 7d 2c 0a 20 20 20 20 20 7b 20 22 ype16},. { "
19960 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e sqlite3_column_n
19970 61 6d 65 31 36 22 2c 20 20 20 20 20 74 65 73 74 ame16", test
19980 5f 73 74 6d 74 5f 75 74 66 31 36 2c 20 73 71 6c _stmt_utf16, sql
19990 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 ite3_column_name
199a0 31 36 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 16 },. {
199b0 22 61 64 64 5f 61 6c 69 67 6e 6d 65 6e 74 5f 74 "add_alignment_t
199c0 65 73 74 5f 63 6f 6c 6c 61 74 69 6f 6e 73 22 2c est_collations",
199d0 20 61 64 64 5f 61 6c 69 67 6e 6d 65 6e 74 5f 74 add_alignment_t
199e0 65 73 74 5f 63 6f 6c 6c 61 74 69 6f 6e 73 2c 20 est_collations,
199f0 30 20 20 20 20 20 20 7d 2c 0a 23 69 66 64 65 66 0 },.#ifdef
19a00 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 43 SQLITE_ENABLE_C
19a10 4f 4c 55 4d 4e 5f 4d 45 54 41 44 41 54 41 0a 7b OLUMN_METADATA.{
19a20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f "sqlite3_column_
19a30 64 61 74 61 62 61 73 65 5f 6e 61 6d 65 31 36 22 database_name16"
19a40 2c 0a 20 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 ,. test_stmt_ut
19a50 66 31 36 2c 20 73 71 6c 69 74 65 33 5f 63 6f 6c f16, sqlite3_col
19a60 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d umn_database_nam
19a70 65 31 36 7d 2c 0a 7b 22 73 71 6c 69 74 65 33 5f e16},.{"sqlite3_
19a80 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 61 6d column_table_nam
19a90 65 31 36 22 2c 20 74 65 73 74 5f 73 74 6d 74 5f e16", test_stmt_
19aa0 75 74 66 31 36 2c 20 73 71 6c 69 74 65 33 5f 63 utf16, sqlite3_c
19ab0 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 61 6d 65 olumn_table_name
19ac0 31 36 7d 2c 0a 7b 22 73 71 6c 69 74 65 33 5f 63 16},.{"sqlite3_c
19ad0 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 6d olumn_origin_nam
19ae0 65 31 36 22 2c 20 74 65 73 74 5f 73 74 6d 74 5f e16", test_stmt_
19af0 75 74 66 31 36 2c 20 73 71 6c 69 74 65 33 5f 63 utf16, sqlite3_c
19b00 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 6d olumn_origin_nam
19b10 65 31 36 7d 2c 0a 23 65 6e 64 69 66 0a 23 65 6e e16},.#endif.#en
19b20 64 69 66 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 dif. { "sqli
19b30 74 65 33 5f 67 6c 6f 62 61 6c 5f 72 65 63 6f 76 te3_global_recov
19b40 65 72 22 2c 20 20 20 20 74 65 73 74 5f 67 6c 6f er", test_glo
19b50 62 61 6c 5f 72 65 63 6f 76 65 72 2c 20 30 20 20 bal_recover, 0
19b60 20 7d 2c 0a 0a 20 20 20 20 20 2f 2a 20 46 75 6e },.. /* Fun
19b70 63 74 69 6f 6e 73 20 66 72 6f 6d 20 6f 73 2e 68 ctions from os.h
19b80 20 2a 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 */.#ifndef SQLI
19b90 54 45 5f 4f 4d 49 54 5f 44 49 53 4b 49 4f 0a 20 TE_OMIT_DISKIO.
19ba0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 4f 73 { "sqlite3Os
19bb0 4f 70 65 6e 52 65 61 64 57 72 69 74 65 22 2c 74 OpenReadWrite",t
19bc0 65 73 74 5f 73 71 6c 69 74 65 33 4f 73 4f 70 65 est_sqlite3OsOpe
19bd0 6e 52 65 61 64 57 72 69 74 65 2c 20 30 20 7d 2c nReadWrite, 0 },
19be0 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
19bf0 4f 73 43 6c 6f 73 65 22 2c 20 20 20 20 20 20 20 OsClose",
19c00 20 74 65 73 74 5f 73 71 6c 69 74 65 33 4f 73 43 test_sqlite3OsC
19c10 6c 6f 73 65 2c 20 30 20 7d 2c 0a 20 20 20 20 20 lose, 0 },.
19c20 7b 20 22 73 71 6c 69 74 65 33 4f 73 4c 6f 63 6b { "sqlite3OsLock
19c30 22 2c 20 20 20 20 20 20 20 20 20 74 65 73 74 5f ", test_
19c40 73 71 6c 69 74 65 33 4f 73 4c 6f 63 6b 2c 20 30 sqlite3OsLock, 0
19c50 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
19c60 74 65 33 4f 73 54 65 6d 70 46 69 6c 65 4e 61 6d te3OsTempFileNam
19c70 65 22 2c 20 74 65 73 74 5f 73 71 6c 69 74 65 33 e", test_sqlite3
19c80 4f 73 54 65 6d 70 46 69 6c 65 4e 61 6d 65 2c 20 OsTempFileName,
19c90 30 20 7d 2c 0a 20 20 20 0a 20 20 20 20 20 2f 2a 0 },. . /*
19ca0 20 43 75 73 74 6f 6d 20 74 65 73 74 20 69 6e 74 Custom test int
19cb0 65 72 66 61 63 65 73 20 2a 2f 0a 20 20 20 20 20 erfaces */.
19cc0 7b 20 22 73 71 6c 69 74 65 33 4f 73 55 6e 6c 6f { "sqlite3OsUnlo
19cd0 63 6b 22 2c 20 20 20 20 20 20 20 20 20 74 65 73 ck", tes
19ce0 74 5f 73 71 6c 69 74 65 33 4f 73 55 6e 6c 6f 63 t_sqlite3OsUnloc
19cf0 6b 2c 20 30 20 20 20 20 7d 2c 0a 23 65 6e 64 69 k, 0 },.#endi
19d00 66 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 f.#ifndef SQLITE
19d10 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 20 20 _OMIT_UTF16.
19d20 20 7b 20 22 61 64 64 5f 74 65 73 74 5f 63 6f 6c { "add_test_col
19d30 6c 61 74 65 22 2c 20 20 20 20 20 20 20 20 74 65 late", te
19d40 73 74 5f 63 6f 6c 6c 61 74 65 2c 20 30 20 20 20 st_collate, 0
19d50 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
19d60 20 7b 20 22 61 64 64 5f 74 65 73 74 5f 63 6f 6c { "add_test_col
19d70 6c 61 74 65 5f 6e 65 65 64 65 64 22 2c 20 74 65 late_needed", te
19d80 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 st_collate_neede
19d90 64 2c 20 30 20 20 20 20 20 7d 2c 0a 20 20 20 20 d, 0 },.
19da0 20 7b 20 22 61 64 64 5f 74 65 73 74 5f 66 75 6e { "add_test_fun
19db0 63 74 69 6f 6e 22 2c 20 20 20 20 20 20 20 74 65 ction", te
19dc0 73 74 5f 66 75 6e 63 74 69 6f 6e 2c 20 30 20 20 st_function, 0
19dd0 20 20 20 20 20 20 20 20 20 7d 2c 0a 23 65 6e 64 },.#end
19de0 69 66 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 if.#ifdef SQLITE
19df0 5f 4d 45 4d 44 45 42 55 47 0a 20 20 20 20 20 7b _MEMDEBUG. {
19e00 20 22 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f "sqlite_malloc_
19e10 6f 75 74 73 74 61 6e 64 69 6e 67 22 2c 20 73 71 outstanding", sq
19e20 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f 6f 75 74 73 lite_malloc_outs
19e30 74 61 6e 64 69 6e 67 2c 20 30 7d 2c 0a 23 65 6e tanding, 0},.#en
19e40 64 69 66 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 dif. { "sqli
19e50 74 65 33 5f 74 65 73 74 5f 65 72 72 73 74 72 22 te3_test_errstr"
19e60 2c 20 20 20 20 20 74 65 73 74 5f 65 72 72 73 74 , test_errst
19e70 72 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 20 r, 0
19e80 20 7d 2c 0a 20 20 20 20 20 7b 20 22 74 63 6c 5f },. { "tcl_
19e90 76 61 72 69 61 62 6c 65 5f 74 79 70 65 22 2c 20 variable_type",
19ea0 20 20 20 20 20 20 74 63 6c 5f 76 61 72 69 61 62 tcl_variab
19eb0 6c 65 5f 74 79 70 65 2c 20 30 20 20 20 20 20 20 le_type, 0
19ec0 20 7d 2c 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 },.#ifndef SQLI
19ed0 54 45 5f 4f 4d 49 54 5f 53 48 41 52 45 44 5f 43 TE_OMIT_SHARED_C
19ee0 41 43 48 45 0a 20 20 20 20 20 7b 20 22 73 71 6c ACHE. { "sql
19ef0 69 74 65 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72 ite3_enable_shar
19f00 65 64 5f 63 61 63 68 65 22 2c 20 74 65 73 74 5f ed_cache", test_
19f10 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 2c 20 30 enable_shared, 0
19f20 20 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 },.#endif.
19f30 20 7b 20 22 73 71 6c 69 74 65 33 5f 6c 69 62 76 { "sqlite3_libv
19f40 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 22 2c 20 ersion_number",
19f50 74 65 73 74 5f 6c 69 62 76 65 72 73 69 6f 6e 5f test_libversion_
19f60 6e 75 6d 62 65 72 2c 20 30 20 20 7d 2c 0a 23 69 number, 0 },.#i
19f70 66 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 fdef SQLITE_ENAB
19f80 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 41 44 41 LE_COLUMN_METADA
19f90 54 41 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 TA. { "sqlit
19fa0 65 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f e3_table_column_
19fb0 6d 65 74 61 64 61 74 61 22 2c 20 74 65 73 74 5f metadata", test_
19fc0 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 table_column_met
19fd0 61 64 61 74 61 2c 20 30 20 20 7d 2c 0a 23 65 6e adata, 0 },.#en
19fe0 64 69 66 0a 20 20 7d 3b 0a 20 20 73 74 61 74 69 dif. };. stati
19ff0 63 20 69 6e 74 20 62 69 74 6d 61 73 6b 5f 73 69 c int bitmask_si
1a000 7a 65 20 3d 20 73 69 7a 65 6f 66 28 42 69 74 6d ze = sizeof(Bitm
1a010 61 73 6b 29 2a 38 3b 0a 20 20 69 6e 74 20 69 3b ask)*8;. int i;
1a020 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
1a030 6c 69 74 65 33 5f 6f 73 5f 74 72 61 63 65 3b 0a lite3_os_trace;.
1a040 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c extern int sql
1a050 69 74 65 33 5f 77 68 65 72 65 5f 74 72 61 63 65 ite3_where_trace
1a060 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 ;. extern int s
1a070 71 6c 69 74 65 33 5f 73 79 6e 63 5f 63 6f 75 6e qlite3_sync_coun
1a080 74 2c 20 73 71 6c 69 74 65 33 5f 66 75 6c 6c 73 t, sqlite3_fulls
1a090 79 6e 63 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 ync_count;. ext
1a0a0 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
1a0b0 6f 70 65 6e 74 65 6d 70 5f 63 6f 75 6e 74 3b 0a opentemp_count;.
1a0c0 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c extern int sql
1a0d0 69 74 65 33 5f 6d 65 6d 55 73 65 64 3b 0a 20 20 ite3_memUsed;.
1a0e0 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
1a0f0 65 33 5f 6d 61 6c 6c 6f 63 5f 69 64 3b 0a 20 20 e3_malloc_id;.
1a100 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
1a110 65 33 5f 6d 65 6d 4d 61 78 3b 0a 20 20 65 78 74 e3_memMax;. ext
1a120 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
1a130 6c 69 6b 65 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 like_count;. ex
1a140 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 tern int sqlite3
1a150 5f 74 73 64 5f 63 6f 75 6e 74 3b 0a 23 69 66 20 _tsd_count;.#if
1a160 4f 53 5f 55 4e 49 58 20 26 26 20 64 65 66 69 6e OS_UNIX && defin
1a170 65 64 28 53 51 4c 49 54 45 5f 54 45 53 54 29 20 ed(SQLITE_TEST)
1a180 26 26 20 64 65 66 69 6e 65 64 28 54 48 52 45 41 && defined(THREA
1a190 44 53 41 46 45 29 20 26 26 20 54 48 52 45 41 44 DSAFE) && THREAD
1a1a0 53 41 46 45 0a 20 20 65 78 74 65 72 6e 20 69 6e SAFE. extern in
1a1b0 74 20 74 68 72 65 61 64 73 4f 76 65 72 72 69 64 t threadsOverrid
1a1c0 65 45 61 63 68 4f 74 68 65 72 73 4c 6f 63 6b 73 eEachOthersLocks
1a1d0 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 4f 53 5f ;.#endif.#if OS_
1a1e0 57 49 4e 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 WIN. extern int
1a1f0 20 73 71 6c 69 74 65 33 5f 6f 73 5f 74 79 70 65 sqlite3_os_type
1a200 3b 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 ;.#endif.#ifdef
1a210 53 51 4c 49 54 45 5f 44 45 42 55 47 0a 20 20 65 SQLITE_DEBUG. e
1a220 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 xtern int sqlite
1a230 33 5f 76 64 62 65 5f 61 64 64 6f 70 5f 74 72 61 3_vdbe_addop_tra
1a240 63 65 3b 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 ce;.#endif.#ifde
1a250 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 f SQLITE_TEST.
1a260 65 78 74 65 72 6e 20 63 68 61 72 20 73 71 6c 69 extern char sqli
1a270 74 65 33 5f 71 75 65 72 79 5f 70 6c 61 6e 5b 5d te3_query_plan[]
1a280 3b 0a 20 20 73 74 61 74 69 63 20 63 68 61 72 20 ;. static char
1a290 2a 71 75 65 72 79 5f 70 6c 61 6e 20 3d 20 73 71 *query_plan = sq
1a2a0 6c 69 74 65 33 5f 71 75 65 72 79 5f 70 6c 61 6e lite3_query_plan
1a2b0 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 66 6f 72 28 ;.#endif.. for(
1a2c0 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 43 i=0; i<sizeof(aC
1a2d0 6d 64 29 2f 73 69 7a 65 6f 66 28 61 43 6d 64 5b md)/sizeof(aCmd[
1a2e0 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 0]); i++){. T
1a2f0 63 6c 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 cl_CreateCommand
1a300 28 69 6e 74 65 72 70 2c 20 61 43 6d 64 5b 69 5d (interp, aCmd[i]
1a310 2e 7a 4e 61 6d 65 2c 20 61 43 6d 64 5b 69 5d 2e .zName, aCmd[i].
1a320 78 50 72 6f 63 2c 20 30 2c 20 30 29 3b 0a 20 20 xProc, 0, 0);.
1a330 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 }. for(i=0; i<s
1a340 69 7a 65 6f 66 28 61 4f 62 6a 43 6d 64 29 2f 73 izeof(aObjCmd)/s
1a350 69 7a 65 6f 66 28 61 4f 62 6a 43 6d 64 5b 30 5d izeof(aObjCmd[0]
1a360 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c ); i++){. Tcl
1a370 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
1a380 64 28 69 6e 74 65 72 70 2c 20 61 4f 62 6a 43 6d d(interp, aObjCm
1a390 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 0a 20 20 20 d[i].zName, .
1a3a0 20 20 20 20 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e aObjCmd[i].
1a3b0 78 50 72 6f 63 2c 20 61 4f 62 6a 43 6d 64 5b 69 xProc, aObjCmd[i
1a3c0 5d 2e 63 6c 69 65 6e 74 44 61 74 61 2c 20 30 29 ].clientData, 0)
1a3d0 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 4c 69 6e 6b ;. }. Tcl_Link
1a3e0 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c Var(interp, "sql
1a3f0 69 74 65 5f 73 65 61 72 63 68 5f 63 6f 75 6e 74 ite_search_count
1a400 22 2c 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a ", . (char*
1a410 29 26 73 71 6c 69 74 65 33 5f 73 65 61 72 63 68 )&sqlite3_search
1a420 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b _count, TCL_LINK
1a430 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e _INT);. Tcl_Lin
1a440 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 kVar(interp, "sq
1a450 6c 69 74 65 5f 73 6f 72 74 5f 63 6f 75 6e 74 22 lite_sort_count"
1a460 2c 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 , . (char*)
1a470 26 73 71 6c 69 74 65 33 5f 73 6f 72 74 5f 63 6f &sqlite3_sort_co
1a480 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e unt, TCL_LINK_IN
1a490 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 T);. Tcl_LinkVa
1a4a0 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 r(interp, "sqlit
1a4b0 65 5f 6c 69 6b 65 5f 63 6f 75 6e 74 22 2c 20 0a e_like_count", .
1a4c0 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 (char*)&sq
1a4d0 6c 69 74 65 33 5f 6c 69 6b 65 5f 63 6f 75 6e 74 lite3_like_count
1a4e0 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b , TCL_LINK_INT);
1a4f0 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
1a500 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 69 nterp, "sqlite_i
1a510 6e 74 65 72 72 75 70 74 5f 63 6f 75 6e 74 22 2c nterrupt_count",
1a520 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 . (char*)&
1a530 73 71 6c 69 74 65 33 5f 69 6e 74 65 72 72 75 70 sqlite3_interrup
1a540 74 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e t_count, TCL_LIN
1a550 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 K_INT);. Tcl_Li
1a560 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
1a570 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f qlite_open_file_
1a580 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 count", . (
1a590 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6f char*)&sqlite3_o
1a5a0 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 2c 20 pen_file_count,
1a5b0 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 TCL_LINK_INT);.
1a5c0 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
1a5d0 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 63 75 72 erp, "sqlite_cur
1a5e0 72 65 6e 74 5f 74 69 6d 65 22 2c 20 0a 20 20 20 rent_time", .
1a5f0 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 (char*)&sqlit
1a600 65 33 5f 63 75 72 72 65 6e 74 5f 74 69 6d 65 2c e3_current_time,
1a610 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a TCL_LINK_INT);.
1a620 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e Tcl_LinkVar(in
1a630 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 73 terp, "sqlite_os
1a640 5f 74 72 61 63 65 22 2c 0a 20 20 20 20 20 20 28 _trace",. (
1a650 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6f char*)&sqlite3_o
1a660 73 5f 74 72 61 63 65 2c 20 54 43 4c 5f 4c 49 4e s_trace, TCL_LIN
1a670 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 K_INT);. Tcl_Li
1a680 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
1a690 71 6c 69 74 65 33 5f 74 73 64 5f 63 6f 75 6e 74 qlite3_tsd_count
1a6a0 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 ",. (char*)
1a6b0 26 73 71 6c 69 74 65 33 5f 74 73 64 5f 63 6f 75 &sqlite3_tsd_cou
1a6c0 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 nt, TCL_LINK_INT
1a6d0 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 );. Tcl_LinkVar
1a6e0 28 69 6e 74 65 72 70 2c 20 22 75 6e 61 6c 69 67 (interp, "unalig
1a6f0 6e 65 64 5f 73 74 72 69 6e 67 5f 63 6f 75 6e 74 ned_string_count
1a700 65 72 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 er",. (char
1a710 2a 29 26 75 6e 61 6c 69 67 6e 65 64 5f 73 74 72 *)&unaligned_str
1a720 69 6e 67 5f 63 6f 75 6e 74 65 72 2c 20 54 43 4c ing_counter, TCL
1a730 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 69 66 20 _LINK_INT);.#if
1a740 4f 53 5f 55 4e 49 58 20 26 26 20 64 65 66 69 6e OS_UNIX && defin
1a750 65 64 28 53 51 4c 49 54 45 5f 54 45 53 54 29 20 ed(SQLITE_TEST)
1a760 26 26 20 64 65 66 69 6e 65 64 28 54 48 52 45 41 && defined(THREA
1a770 44 53 41 46 45 29 20 26 26 20 54 48 52 45 41 44 DSAFE) && THREAD
1a780 53 41 46 45 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 SAFE. Tcl_LinkV
1a790 61 72 28 69 6e 74 65 72 70 2c 20 22 74 68 72 65 ar(interp, "thre
1a7a0 61 64 73 4f 76 65 72 72 69 64 65 45 61 63 68 4f adsOverrideEachO
1a7b0 74 68 65 72 73 4c 6f 63 6b 73 22 2c 0a 20 20 20 thersLocks",.
1a7c0 20 20 20 28 63 68 61 72 2a 29 26 74 68 72 65 61 (char*)&threa
1a7d0 64 73 4f 76 65 72 72 69 64 65 45 61 63 68 4f 74 dsOverrideEachOt
1a7e0 68 65 72 73 4c 6f 63 6b 73 2c 20 54 43 4c 5f 4c hersLocks, TCL_L
1a7f0 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 INK_INT);.#endif
1a800 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f .#ifndef SQLITE_
1a810 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 54 63 6c OMIT_UTF16. Tcl
1a820 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c _LinkVar(interp,
1a830 20 22 73 71 6c 69 74 65 5f 6c 61 73 74 5f 6e 65 "sqlite_last_ne
1a840 65 64 65 64 5f 63 6f 6c 6c 61 74 69 6f 6e 22 2c eded_collation",
1a850 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 70 . (char*)&p
1a860 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f 6e zNeededCollation
1a870 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 4e , TCL_LINK_STRIN
1a880 47 7c 54 43 4c 5f 4c 49 4e 4b 5f 52 45 41 44 5f G|TCL_LINK_READ_
1a890 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 23 69 ONLY);.#endif.#i
1a8a0 66 64 65 66 20 53 51 4c 49 54 45 5f 4d 45 4d 44 fdef SQLITE_MEMD
1a8b0 45 42 55 47 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 EBUG. Tcl_LinkV
1a8c0 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 ar(interp, "sqli
1a8d0 74 65 5f 6d 61 6c 6c 6f 63 5f 69 64 22 2c 0a 20 te_malloc_id",.
1a8e0 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c (char*)&sql
1a8f0 69 74 65 33 5f 6d 61 6c 6c 6f 63 5f 69 64 2c 20 ite3_malloc_id,
1a900 54 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 29 TCL_LINK_STRING)
1a910 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 4f 53 5f ;.#endif.#if OS_
1a920 57 49 4e 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 WIN. Tcl_LinkVa
1a930 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 r(interp, "sqlit
1a940 65 5f 6f 73 5f 74 79 70 65 22 2c 0a 20 20 20 20 e_os_type",.
1a950 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 (char*)&sqlite
1a960 33 5f 6f 73 5f 74 79 70 65 2c 20 54 43 4c 5f 4c 3_os_type, TCL_L
1a970 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 INK_INT);.#endif
1a980 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 .#ifdef SQLITE_T
1a990 45 53 54 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 EST. Tcl_LinkVa
1a9a0 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 r(interp, "sqlit
1a9b0 65 5f 71 75 65 72 79 5f 70 6c 61 6e 22 2c 0a 20 e_query_plan",.
1a9c0 20 20 20 20 20 28 63 68 61 72 2a 29 26 71 75 65 (char*)&que
1a9d0 72 79 5f 70 6c 61 6e 2c 20 54 43 4c 5f 4c 49 4e ry_plan, TCL_LIN
1a9e0 4b 5f 53 54 52 49 4e 47 7c 54 43 4c 5f 4c 49 4e K_STRING|TCL_LIN
1a9f0 4b 5f 52 45 41 44 5f 4f 4e 4c 59 29 3b 0a 23 65 K_READ_ONLY);.#e
1aa00 6e 64 69 66 0a 23 69 66 64 65 66 20 53 51 4c 49 ndif.#ifdef SQLI
1aa10 54 45 5f 44 45 42 55 47 0a 20 20 54 63 6c 5f 4c TE_DEBUG. Tcl_L
1aa20 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 inkVar(interp, "
1aa30 73 71 6c 69 74 65 5f 61 64 64 6f 70 5f 74 72 61 sqlite_addop_tra
1aa40 63 65 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 ce",. (char
1aa50 2a 29 26 73 71 6c 69 74 65 33 5f 76 64 62 65 5f *)&sqlite3_vdbe_
1aa60 61 64 64 6f 70 5f 74 72 61 63 65 2c 20 54 43 4c addop_trace, TCL
1aa70 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 _LINK_INT);. Tc
1aa80 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
1aa90 2c 20 22 73 71 6c 69 74 65 5f 77 68 65 72 65 5f , "sqlite_where_
1aaa0 74 72 61 63 65 22 2c 0a 20 20 20 20 20 20 28 63 trace",. (c
1aab0 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 77 68 har*)&sqlite3_wh
1aac0 65 72 65 5f 74 72 61 63 65 2c 20 54 43 4c 5f 4c ere_trace, TCL_L
1aad0 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 INK_INT);.#endif
1aae0 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4d .#ifdef SQLITE_M
1aaf0 45 4d 44 45 42 55 47 0a 20 20 54 63 6c 5f 4c 69 EMDEBUG. Tcl_Li
1ab00 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
1ab10 71 6c 69 74 65 5f 6d 65 6d 75 73 65 64 22 2c 0a qlite_memused",.
1ab20 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 (char*)&sq
1ab30 6c 69 74 65 33 5f 6d 65 6d 55 73 65 64 2c 20 54 lite3_memUsed, T
1ab40 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 20 7c 20 54 43 CL_LINK_INT | TC
1ab50 4c 5f 4c 49 4e 4b 5f 52 45 41 44 5f 4f 4e 4c 59 L_LINK_READ_ONLY
1ab60 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 );. Tcl_LinkVar
1ab70 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
1ab80 5f 6d 65 6d 6d 61 78 22 2c 0a 20 20 20 20 20 20 _memmax",.
1ab90 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f (char*)&sqlite3_
1aba0 6d 65 6d 4d 61 78 2c 20 54 43 4c 5f 4c 49 4e 4b memMax, TCL_LINK
1abb0 5f 49 4e 54 20 7c 20 54 43 4c 5f 4c 49 4e 4b 5f _INT | TCL_LINK_
1abc0 52 45 41 44 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 READ_ONLY);.#end
1abd0 69 66 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 if.#ifndef SQLIT
1abe0 45 5f 4f 4d 49 54 5f 44 49 53 4b 49 4f 0a 20 20 E_OMIT_DISKIO.
1abf0 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 Tcl_LinkVar(inte
1ac00 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 65 6e rp, "sqlite_open
1ac10 74 65 6d 70 5f 63 6f 75 6e 74 22 2c 0a 20 20 20 temp_count",.
1ac20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 (char*)&sqlit
1ac30 65 33 5f 6f 70 65 6e 74 65 6d 70 5f 63 6f 75 6e e3_opentemp_coun
1ac40 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 t, TCL_LINK_INT)
1ac50 3b 0a 23 65 6e 64 69 66 0a 20 20 54 63 6c 5f 4c ;.#endif. Tcl_L
1ac60 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 inkVar(interp, "
1ac70 73 71 6c 69 74 65 5f 73 74 61 74 69 63 5f 62 69 sqlite_static_bi
1ac80 6e 64 5f 76 61 6c 75 65 22 2c 0a 20 20 20 20 20 nd_value",.
1ac90 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 5f (char*)&sqlite_
1aca0 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 static_bind_valu
1acb0 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 e, TCL_LINK_STRI
1acc0 4e 47 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 NG);. Tcl_LinkV
1acd0 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 ar(interp, "sqli
1ace0 74 65 5f 74 65 6d 70 5f 64 69 72 65 63 74 6f 72 te_temp_director
1acf0 79 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a y",. (char*
1ad00 29 26 73 71 6c 69 74 65 33 5f 74 65 6d 70 5f 64 )&sqlite3_temp_d
1ad10 69 72 65 63 74 6f 72 79 2c 20 54 43 4c 5f 4c 49 irectory, TCL_LI
1ad20 4e 4b 5f 53 54 52 49 4e 47 29 3b 0a 20 20 54 63 NK_STRING);. Tc
1ad30 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
1ad40 2c 20 22 62 69 74 6d 61 73 6b 5f 73 69 7a 65 22 , "bitmask_size"
1ad50 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 ,. (char*)&
1ad60 62 69 74 6d 61 73 6b 5f 73 69 7a 65 2c 20 54 43 bitmask_size, TC
1ad70 4c 5f 4c 49 4e 4b 5f 49 4e 54 7c 54 43 4c 5f 4c L_LINK_INT|TCL_L
1ad80 49 4e 4b 5f 52 45 41 44 5f 4f 4e 4c 59 29 3b 0a INK_READ_ONLY);.
1ad90 23 69 66 20 4f 53 5f 55 4e 49 58 0a 20 20 54 63 #if OS_UNIX. Tc
1ada0 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
1adb0 2c 20 22 73 71 6c 69 74 65 5f 73 79 6e 63 5f 63 , "sqlite_sync_c
1adc0 6f 75 6e 74 22 2c 0a 20 20 20 20 20 20 28 63 68 ount",. (ch
1add0 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 73 79 6e ar*)&sqlite3_syn
1ade0 63 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e c_count, TCL_LIN
1adf0 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 K_INT);. Tcl_Li
1ae00 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
1ae10 71 6c 69 74 65 5f 66 75 6c 6c 73 79 6e 63 5f 63 qlite_fullsync_c
1ae20 6f 75 6e 74 22 2c 0a 20 20 20 20 20 20 28 63 68 ount",. (ch
1ae30 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 66 75 6c ar*)&sqlite3_ful
1ae40 6c 73 79 6e 63 5f 63 6f 75 6e 74 2c 20 54 43 4c lsync_count, TCL
1ae50 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 _LINK_INT);.#end
1ae60 69 66 20 2f 2a 20 4f 53 5f 55 4e 49 58 20 2a 2f if /* OS_UNIX */
1ae70 0a 20 20 73 65 74 5f 6f 70 74 69 6f 6e 73 28 69 . set_options(i
1ae80 6e 74 65 72 70 29 3b 0a 0a 20 20 7b 0a 23 69 66 nterp);.. {.#if
1ae90 64 65 66 20 53 51 4c 49 54 45 5f 44 45 42 55 47 def SQLITE_DEBUG
1aea0 0a 20 20 20 20 65 78 74 65 72 6e 20 69 6e 74 20 . extern int
1aeb0 73 71 6c 69 74 65 33 5f 73 68 61 72 65 64 5f 63 sqlite3_shared_c
1aec0 61 63 68 65 5f 72 65 70 6f 72 74 28 76 6f 69 64 ache_report(void
1aed0 20 2a 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a *, Tcl_Interp *
1aee0 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
1aef0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1af00 20 20 20 20 20 20 69 6e 74 2c 20 54 63 6c 5f 4f int, Tcl_O
1af10 62 6a 20 2a 43 4f 4e 53 54 5b 5d 29 3b 0a 20 20 bj *CONST[]);.
1af20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
1af30 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
1af40 73 71 6c 69 74 65 5f 73 68 61 72 65 64 5f 63 61 sqlite_shared_ca
1af50 63 68 65 5f 72 65 70 6f 72 74 22 2c 20 0a 20 20 che_report", .
1af60 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 73 68 sqlite3_sh
1af70 61 72 65 64 5f 63 61 63 68 65 5f 72 65 70 6f 72 ared_cache_repor
1af80 74 2c 20 30 2c 20 30 29 3b 0a 23 65 6e 64 69 66 t, 0, 0);.#endif
1af90 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 . }. return TC
1afa0 4c 5f 4f 4b 3b 0a 7d 0a L_OK;.}.