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 61 6c 6c 20 73 or testing all s
0190: 6f 72 74 73 20 6f 66 20 53 51 4c 69 74 65 20 69 orts of SQLite i
01a0: 6e 74 65 72 66 61 63 65 73 2e 20 20 54 68 69 73 nterfaces. This
01b0: 20 63 6f 64 65 0a 2a 2a 20 69 73 20 6e 6f 74 20 code.** is not
01c0: 69 6e 63 6c 75 64 65 64 20 69 6e 20 74 68 65 20 included in the
01d0: 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 20 SQLite library.
01e0: 20 49 74 20 69 73 20 75 73 65 64 20 66 6f 72 20 It is used for
01f0: 61 75 74 6f 6d 61 74 65 64 0a 2a 2a 20 74 65 73 automated.** tes
0200: 74 69 6e 67 20 6f 66 20 74 68 65 20 53 51 4c 69 ting of the SQLi
0210: 74 65 20 6c 69 62 72 61 72 79 2e 0a 2a 2f 0a 23 te library..*/.#
0220: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 49 include "sqliteI
0230: 6e 74 2e 68 22 0a 23 69 66 20 53 51 4c 49 54 45 nt.h".#if SQLITE
0240: 5f 4f 53 5f 57 49 4e 0a 23 20 20 69 6e 63 6c 75 _OS_WIN.# inclu
0250: 64 65 20 22 6f 73 5f 77 69 6e 2e 68 22 0a 23 65 de "os_win.h".#e
0260: 6e 64 69 66 0a 0a 23 69 6e 63 6c 75 64 65 20 22 ndif..#include "
0270: 76 64 62 65 49 6e 74 2e 68 22 0a 23 69 6e 63 6c vdbeInt.h".#incl
0280: 75 64 65 20 22 74 63 6c 2e 68 22 0a 23 69 6e 63 ude "tcl.h".#inc
0290: 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a lude <stdlib.h>.
02a0: 23 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 #include <string
02b0: 2e 68 3e 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 .h>../*.** This
02c0: 69 73 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 is a copy of the
02d0: 20 66 69 72 73 74 20 70 61 72 74 20 6f 66 20 74 first part of t
02e0: 68 65 20 53 71 6c 69 74 65 44 62 20 73 74 72 75 he SqliteDb stru
02f0: 63 74 75 72 65 20 69 6e 20 0a 2a 2a 20 74 63 6c cture in .** tcl
0300: 73 71 6c 69 74 65 2e 63 2e 20 20 57 65 20 6e 65 sqlite.c. We ne
0310: 65 64 20 69 74 20 68 65 72 65 20 73 6f 20 74 68 ed it here so th
0320: 61 74 20 74 68 65 20 67 65 74 5f 73 71 6c 69 74 at the get_sqlit
0330: 65 5f 70 6f 69 6e 74 65 72 20 72 6f 75 74 69 6e e_pointer routin
0340: 65 0a 2a 2a 20 63 61 6e 20 65 78 74 72 61 63 74 e.** can extract
0350: 20 74 68 65 20 73 71 6c 69 74 65 33 2a 20 70 6f the sqlite3* po
0360: 69 6e 74 65 72 20 66 72 6f 6d 20 61 6e 20 65 78 inter from an ex
0370: 69 73 74 69 6e 67 20 54 63 6c 20 53 51 4c 69 74 isting Tcl SQLit
0380: 65 0a 2a 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e e.** connection.
0390: 0a 2a 2f 0a 73 74 72 75 63 74 20 53 71 6c 69 74 .*/.struct Sqlit
03a0: 65 44 62 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 eDb {. sqlite3
03b0: 2a 64 62 3b 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 *db;.};../*.** C
03c0: 6f 6e 76 65 72 74 20 74 65 78 74 20 67 65 6e 65 onvert text gene
03d0: 72 61 74 65 64 20 62 79 20 74 68 65 20 22 25 70 rated by the "%p
03e0: 22 20 63 6f 6e 76 65 72 73 69 6f 6e 20 66 6f 72 " conversion for
03f0: 6d 61 74 20 62 61 63 6b 20 69 6e 74 6f 0a 2a 2a mat back into.**
0400: 20 61 20 70 6f 69 6e 74 65 72 2e 0a 2a 2f 0a 73 a pointer..*/.s
0410: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 48 65 tatic int testHe
0420: 78 54 6f 49 6e 74 28 69 6e 74 20 68 29 7b 0a 20 xToInt(int h){.
0430: 20 69 66 28 20 68 3e 3d 27 30 27 20 26 26 20 68 if( h>='0' && h
0440: 3c 3d 27 39 27 20 29 7b 0a 20 20 20 20 72 65 74 <='9' ){. ret
0450: 75 72 6e 20 68 20 2d 20 27 30 27 3b 0a 20 20 7d urn h - '0';. }
0460: 65 6c 73 65 20 69 66 28 20 68 3e 3d 27 61 27 20 else if( h>='a'
0470: 26 26 20 68 3c 3d 27 66 27 20 29 7b 0a 20 20 20 && h<='f' ){.
0480: 20 72 65 74 75 72 6e 20 68 20 2d 20 27 61 27 20 return h - 'a'
0490: 2b 20 31 30 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 + 10;. }else{.
04a0: 20 20 20 61 73 73 65 72 74 28 20 68 3e 3d 27 41 assert( h>='A
04b0: 27 20 26 26 20 68 3c 3d 27 46 27 20 29 3b 0a 20 ' && h<='F' );.
04c0: 20 20 20 72 65 74 75 72 6e 20 68 20 2d 20 27 41 return h - 'A
04d0: 27 20 2b 20 31 30 3b 0a 20 20 7d 0a 7d 0a 76 6f ' + 10;. }.}.vo
04e0: 69 64 20 2a 73 71 6c 69 74 65 33 54 65 73 74 54 id *sqlite3TestT
04f0: 65 78 74 54 6f 50 74 72 28 63 6f 6e 73 74 20 63 extToPtr(const c
0500: 68 61 72 20 2a 7a 29 7b 0a 20 20 76 6f 69 64 20 har *z){. void
0510: 2a 70 3b 0a 20 20 75 36 34 20 76 3b 0a 20 20 75 *p;. u64 v;. u
0520: 33 32 20 76 32 3b 0a 20 20 69 66 28 20 7a 5b 30 32 v2;. if( z[0
0530: 5d 3d 3d 27 30 27 20 26 26 20 7a 5b 31 5d 3d 3d ]=='0' && z[1]==
0540: 27 78 27 20 29 7b 0a 20 20 20 20 7a 20 2b 3d 20 'x' ){. z +=
0550: 32 3b 0a 20 20 7d 0a 20 20 76 20 3d 20 30 3b 0a 2;. }. v = 0;.
0560: 20 20 77 68 69 6c 65 28 20 2a 7a 20 29 7b 0a 20 while( *z ){.
0570: 20 20 20 76 20 3d 20 28 76 3c 3c 34 29 20 2b 20 v = (v<<4) +
0580: 74 65 73 74 48 65 78 54 6f 49 6e 74 28 2a 7a 29 testHexToInt(*z)
0590: 3b 0a 20 20 20 20 7a 2b 2b 3b 0a 20 20 7d 0a 20 ;. z++;. }.
05a0: 20 69 66 28 20 73 69 7a 65 6f 66 28 70 29 3d 3d if( sizeof(p)==
05b0: 73 69 7a 65 6f 66 28 76 29 20 29 7b 0a 20 20 20 sizeof(v) ){.
05c0: 20 6d 65 6d 63 70 79 28 26 70 2c 20 26 76 2c 20 memcpy(&p, &v,
05d0: 73 69 7a 65 6f 66 28 70 29 29 3b 0a 20 20 7d 65 sizeof(p));. }e
05e0: 6c 73 65 7b 0a 20 20 20 20 61 73 73 65 72 74 28 lse{. assert(
05f0: 20 73 69 7a 65 6f 66 28 70 29 3d 3d 73 69 7a 65 sizeof(p)==size
0600: 6f 66 28 76 32 29 20 29 3b 0a 20 20 20 20 76 32 of(v2) );. v2
0610: 20 3d 20 28 75 33 32 29 76 3b 0a 20 20 20 20 6d = (u32)v;. m
0620: 65 6d 63 70 79 28 26 70 2c 20 26 76 32 2c 20 73 emcpy(&p, &v2, s
0630: 69 7a 65 6f 66 28 70 29 29 3b 0a 20 20 7d 0a 20 izeof(p));. }.
0640: 20 72 65 74 75 72 6e 20 70 3b 0a 7d 0a 0a 0a 2f return p;.}.../
0650: 2a 0a 2a 2a 20 41 20 54 43 4c 20 63 6f 6d 6d 61 *.** A TCL comma
0660: 6e 64 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 nd that returns
0670: 74 68 65 20 61 64 64 72 65 73 73 20 6f 66 20 74 the address of t
0680: 68 65 20 73 71 6c 69 74 65 2a 20 70 6f 69 6e 74 he sqlite* point
0690: 65 72 0a 2a 2a 20 66 6f 72 20 61 6e 20 73 71 6c er.** for an sql
06a0: 69 74 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 ite connection i
06b0: 6e 73 74 61 6e 63 65 2e 20 20 42 61 64 20 74 68 nstance. Bad th
06c0: 69 6e 67 73 20 68 61 70 70 65 6e 20 69 66 20 74 ings happen if t
06d0: 68 65 0a 2a 2a 20 69 6e 70 75 74 20 69 73 20 6e he.** input is n
06e0: 6f 74 20 61 6e 20 73 71 6c 69 74 65 20 63 6f 6e ot an sqlite con
06f0: 6e 65 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 nection..*/.stat
0700: 69 63 20 69 6e 74 20 67 65 74 5f 73 71 6c 69 74 ic int get_sqlit
0710: 65 5f 70 6f 69 6e 74 65 72 28 0a 20 20 76 6f 69 e_pointer(. voi
0720: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
0730: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
0740: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
0750: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
0760: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
0770: 74 72 75 63 74 20 53 71 6c 69 74 65 44 62 20 2a truct SqliteDb *
0780: 70 3b 0a 20 20 54 63 6c 5f 43 6d 64 49 6e 66 6f p;. Tcl_CmdInfo
0790: 20 63 6d 64 49 6e 66 6f 3b 0a 20 20 63 68 61 72 cmdInfo;. char
07a0: 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20 69 66 zBuf[100];. if
07b0: 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
07c0: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
07d0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
07e0: 76 2c 20 22 53 51 4c 49 54 45 2d 43 4f 4e 4e 45 v, "SQLITE-CONNE
07f0: 43 54 49 4f 4e 22 29 3b 0a 20 20 20 20 72 65 74 CTION");. ret
0800: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
0810: 20 7d 0a 20 20 69 66 28 20 21 54 63 6c 5f 47 65 }. if( !Tcl_Ge
0820: 74 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69 6e 74 tCommandInfo(int
0830: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
0840: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 63 6d ng(objv[1]), &cm
0850: 64 49 6e 66 6f 29 20 29 7b 0a 20 20 20 20 54 63 dInfo) ){. Tc
0860: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
0870: 6e 74 65 72 70 2c 20 22 63 6f 6d 6d 61 6e 64 20 nterp, "command
0880: 6e 6f 74 20 66 6f 75 6e 64 3a 20 22 2c 0a 20 20 not found: ",.
0890: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 Tcl_Get
08a0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
08b0: 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 (char*)0);.
08c0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
08d0: 3b 0a 20 20 7d 0a 20 20 70 20 3d 20 28 73 74 72 ;. }. p = (str
08e0: 75 63 74 20 53 71 6c 69 74 65 44 62 2a 29 63 6d uct SqliteDb*)cm
08f0: 64 49 6e 66 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 dInfo.objClientD
0900: 61 74 61 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a ata;. sprintf(z
0910: 42 75 66 2c 20 22 25 70 22 2c 20 70 2d 3e 64 62 Buf, "%p", p->db
0920: 29 3b 0a 20 20 69 66 28 20 73 74 72 6e 63 6d 70 );. if( strncmp
0930: 28 7a 42 75 66 2c 22 30 78 22 2c 32 29 20 29 7b (zBuf,"0x",2) ){
0940: 0a 20 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 . sprintf(zBu
0950: 66 2c 20 22 30 78 25 70 22 2c 20 70 2d 3e 64 62 f, "0x%p", p->db
0960: 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 41 70 70 );. }. Tcl_App
0970: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
0980: 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 , zBuf, 0);. re
0990: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
09a0: 2f 2a 0a 2a 2a 20 44 65 63 6f 64 65 20 61 20 70 /*.** Decode a p
09b0: 6f 69 6e 74 65 72 20 74 6f 20 61 6e 20 73 71 6c ointer to an sql
09c0: 69 74 65 33 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a ite3 object..*/.
09d0: 69 6e 74 20 67 65 74 44 62 50 6f 69 6e 74 65 72 int getDbPointer
09e0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
09f0: 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 erp, const char
0a00: 2a 7a 41 2c 20 73 71 6c 69 74 65 33 20 2a 2a 70 *zA, sqlite3 **p
0a10: 70 44 62 29 7b 0a 20 20 73 74 72 75 63 74 20 53 pDb){. struct S
0a20: 71 6c 69 74 65 44 62 20 2a 70 3b 0a 20 20 54 63 qliteDb *p;. Tc
0a30: 6c 5f 43 6d 64 49 6e 66 6f 20 63 6d 64 49 6e 66 l_CmdInfo cmdInf
0a40: 6f 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 o;. if( Tcl_Get
0a50: 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69 6e 74 65 CommandInfo(inte
0a60: 72 70 2c 20 7a 41 2c 20 26 63 6d 64 49 6e 66 6f rp, zA, &cmdInfo
0a70: 29 20 29 7b 0a 20 20 20 20 70 20 3d 20 28 73 74 ) ){. p = (st
0a80: 72 75 63 74 20 53 71 6c 69 74 65 44 62 2a 29 63 ruct SqliteDb*)c
0a90: 6d 64 49 6e 66 6f 2e 6f 62 6a 43 6c 69 65 6e 74 mdInfo.objClient
0aa0: 44 61 74 61 3b 0a 20 20 20 20 2a 70 70 44 62 20 Data;. *ppDb
0ab0: 3d 20 70 2d 3e 64 62 3b 0a 20 20 7d 65 6c 73 65 = p->db;. }else
0ac0: 7b 0a 20 20 20 20 2a 70 70 44 62 20 3d 20 28 73 {. *ppDb = (s
0ad0: 71 6c 69 74 65 33 2a 29 73 71 6c 69 74 65 33 54 qlite3*)sqlite3T
0ae0: 65 73 74 54 65 78 74 54 6f 50 74 72 28 7a 41 29 estTextToPtr(zA)
0af0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 ;. }. return T
0b00: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 69 66 20 53 51 CL_OK;.}..#if SQ
0b10: 4c 49 54 45 5f 4f 53 5f 57 49 4e 0a 2f 2a 0a 2a LITE_OS_WIN./*.*
0b20: 2a 20 44 65 63 6f 64 65 20 61 20 57 69 6e 33 32 * Decode a Win32
0b30: 20 48 41 4e 44 4c 45 20 6f 62 6a 65 63 74 2e 0a HANDLE object..
0b40: 2a 2f 0a 69 6e 74 20 67 65 74 57 69 6e 33 32 48 */.int getWin32H
0b50: 61 6e 64 6c 65 28 54 63 6c 5f 49 6e 74 65 72 70 andle(Tcl_Interp
0b60: 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 *interp, const
0b70: 63 68 61 72 20 2a 7a 41 2c 20 4c 50 48 41 4e 44 char *zA, LPHAND
0b80: 4c 45 20 70 68 46 69 6c 65 29 7b 0a 20 20 2a 70 LE phFile){. *p
0b90: 68 46 69 6c 65 20 3d 20 28 48 41 4e 44 4c 45 29 hFile = (HANDLE)
0ba0: 73 71 6c 69 74 65 33 54 65 73 74 54 65 78 74 54 sqlite3TestTextT
0bb0: 6f 50 74 72 28 7a 41 29 3b 0a 20 20 72 65 74 75 oPtr(zA);. retu
0bc0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e rn TCL_OK;.}.#en
0bd0: 64 69 66 0a 0a 65 78 74 65 72 6e 20 63 6f 6e 73 dif..extern cons
0be0: 74 20 63 68 61 72 20 2a 73 71 6c 69 74 65 33 45 t char *sqlite3E
0bf0: 72 72 4e 61 6d 65 28 69 6e 74 29 3b 0a 23 64 65 rrName(int);.#de
0c00: 66 69 6e 65 20 74 31 45 72 72 6f 72 4e 61 6d 65 fine t1ErrorName
0c10: 20 73 71 6c 69 74 65 33 45 72 72 4e 61 6d 65 0a sqlite3ErrName.
0c20: 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 61 ./*.** Convert a
0c30: 6e 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a 20 n sqlite3_stmt*
0c40: 69 6e 74 6f 20 61 6e 20 73 71 6c 69 74 65 33 2a into an sqlite3*
0c50: 2e 20 20 54 68 69 73 20 64 65 70 65 6e 64 73 20 . This depends
0c60: 6f 6e 20 74 68 65 0a 2a 2a 20 66 61 63 74 20 74 on the.** fact t
0c70: 68 61 74 20 74 68 65 20 73 71 6c 69 74 65 33 2a hat the sqlite3*
0c80: 20 69 73 20 74 68 65 20 66 69 72 73 74 20 66 69 is the first fi
0c90: 65 6c 64 20 69 6e 20 74 68 65 20 56 64 62 65 20 eld in the Vdbe
0ca0: 73 74 72 75 63 74 75 72 65 2e 0a 2a 2f 0a 23 64 structure..*/.#d
0cb0: 65 66 69 6e 65 20 53 74 6d 74 54 6f 44 62 28 58 efine StmtToDb(X
0cc0: 29 20 20 20 73 71 6c 69 74 65 33 5f 64 62 5f 68 ) sqlite3_db_h
0cd0: 61 6e 64 6c 65 28 58 29 0a 0a 2f 2a 0a 2a 2a 20 andle(X)../*.**
0ce0: 43 68 65 63 6b 20 61 20 72 65 74 75 72 6e 20 76 Check a return v
0cf0: 61 6c 75 65 20 74 6f 20 6d 61 6b 65 20 73 75 72 alue to make sur
0d00: 65 20 69 74 20 61 67 72 65 65 73 20 77 69 74 68 e it agrees with
0d10: 20 74 68 65 20 72 65 73 75 6c 74 73 0a 2a 2a 20 the results.**
0d20: 66 72 6f 6d 20 73 71 6c 69 74 65 33 5f 65 72 72 from sqlite3_err
0d30: 63 6f 64 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c code..*/.int sql
0d40: 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 ite3TestErrCode(
0d50: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
0d60: 72 70 2c 20 73 71 6c 69 74 65 33 20 2a 64 62 2c rp, sqlite3 *db,
0d70: 20 69 6e 74 20 72 63 29 7b 0a 20 20 69 66 28 20 int rc){. if(
0d80: 73 71 6c 69 74 65 33 5f 74 68 72 65 61 64 73 61 sqlite3_threadsa
0d90: 66 65 28 29 3d 3d 30 20 26 26 20 72 63 21 3d 53 fe()==0 && rc!=S
0da0: 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 26 26 20 QLITE_MISUSE &&
0db0: 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 rc!=SQLITE_OK.
0dc0: 20 26 26 20 73 71 6c 69 74 65 33 5f 65 72 72 63 && sqlite3_errc
0dd0: 6f 64 65 28 64 62 29 21 3d 72 63 20 29 7b 0a 20 ode(db)!=rc ){.
0de0: 20 20 20 63 68 61 72 20 7a 42 75 66 5b 32 30 30 char zBuf[200
0df0: 5d 3b 0a 20 20 20 20 69 6e 74 20 72 32 20 3d 20 ];. int r2 =
0e00: 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 28 sqlite3_errcode(
0e10: 64 62 29 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 db);. sprintf
0e20: 28 7a 42 75 66 2c 20 22 65 72 72 6f 72 20 63 6f (zBuf, "error co
0e30: 64 65 20 25 73 20 28 25 64 29 20 64 6f 65 73 20 de %s (%d) does
0e40: 6e 6f 74 20 6d 61 74 63 68 20 73 71 6c 69 74 65 not match sqlite
0e50: 33 5f 65 72 72 63 6f 64 65 20 25 73 20 28 25 64 3_errcode %s (%d
0e60: 29 22 2c 0a 20 20 20 20 20 20 20 74 31 45 72 72 )",. t1Err
0e70: 6f 72 4e 61 6d 65 28 72 63 29 2c 20 72 63 2c 20 orName(rc), rc,
0e80: 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 32 29 2c t1ErrorName(r2),
0e90: 20 72 32 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 r2);. Tcl_Re
0ea0: 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 setResult(interp
0eb0: 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e );. Tcl_Appen
0ec0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
0ed0: 7a 42 75 66 2c 20 30 29 3b 0a 20 20 20 20 72 65 zBuf, 0);. re
0ee0: 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 72 65 turn 1;. }. re
0ef0: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 0;.}../*.**
0f00: 20 44 65 63 6f 64 65 20 61 20 70 6f 69 6e 74 65 Decode a pointe
0f10: 72 20 74 6f 20 61 6e 20 73 71 6c 69 74 65 33 5f r to an sqlite3_
0f20: 73 74 6d 74 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a stmt object..*/.
0f30: 73 74 61 74 69 63 20 69 6e 74 20 67 65 74 53 74 static int getSt
0f40: 6d 74 50 6f 69 6e 74 65 72 28 0a 20 20 54 63 6c mtPointer(. Tcl
0f50: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
0f60: 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a . const char *
0f70: 7a 41 72 67 2c 20 20 0a 20 20 73 71 6c 69 74 65 zArg, . sqlite
0f80: 33 5f 73 74 6d 74 20 2a 2a 70 70 53 74 6d 74 0a 3_stmt **ppStmt.
0f90: 29 7b 0a 20 20 2a 70 70 53 74 6d 74 20 3d 20 28 ){. *ppStmt = (
0fa0: 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a 29 73 71 sqlite3_stmt*)sq
0fb0: 6c 69 74 65 33 54 65 73 74 54 65 78 74 54 6f 50 lite3TestTextToP
0fc0: 74 72 28 7a 41 72 67 29 3b 0a 20 20 72 65 74 75 tr(zArg);. retu
0fd0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
0fe0: 0a 2a 2a 20 47 65 6e 65 72 61 74 65 20 61 20 74 .** Generate a t
0ff0: 65 78 74 20 72 65 70 72 65 73 65 6e 74 61 74 69 ext representati
1000: 6f 6e 20 6f 66 20 61 20 70 6f 69 6e 74 65 72 20 on of a pointer
1010: 74 68 61 74 20 63 61 6e 20 62 65 20 75 6e 64 65 that can be unde
1020: 72 73 74 6f 6f 64 0a 2a 2a 20 62 79 20 74 68 65 rstood.** by the
1030: 20 67 65 74 44 62 50 6f 69 6e 74 65 72 20 61 6e getDbPointer an
1040: 64 20 67 65 74 56 6d 50 6f 69 6e 74 65 72 20 72 d getVmPointer r
1050: 6f 75 74 69 6e 65 73 20 61 62 6f 76 65 2e 0a 2a outines above..*
1060: 2a 0a 2a 2a 20 54 68 65 20 70 72 6f 62 6c 65 6d *.** The problem
1070: 20 69 73 2c 20 6f 6e 20 73 6f 6d 65 20 6d 61 63 is, on some mac
1080: 68 69 6e 65 73 20 28 53 6f 6c 61 72 69 73 29 20 hines (Solaris)
1090: 69 66 20 79 6f 75 20 64 6f 20 61 20 70 72 69 6e if you do a prin
10a0: 74 66 20 77 69 74 68 0a 2a 2a 20 22 25 70 22 20 tf with.** "%p"
10b0: 79 6f 75 20 63 61 6e 6e 6f 74 20 74 75 72 6e 20 you cannot turn
10c0: 61 72 6f 75 6e 64 20 61 6e 64 20 64 6f 20 61 20 around and do a
10d0: 73 63 61 6e 66 20 77 69 74 68 20 74 68 65 20 73 scanf with the s
10e0: 61 6d 65 20 22 25 70 22 20 61 6e 64 0a 2a 2a 20 ame "%p" and.**
10f0: 67 65 74 20 79 6f 75 72 20 70 6f 69 6e 74 65 72 get your pointer
1100: 20 62 61 63 6b 2e 20 20 59 6f 75 20 68 61 76 65 back. You have
1110: 20 74 6f 20 70 72 65 70 65 6e 64 20 61 20 22 30 to prepend a "0
1120: 78 22 20 62 65 66 6f 72 65 20 69 74 20 77 69 6c x" before it wil
1130: 6c 0a 2a 2a 20 77 6f 72 6b 2e 20 20 4f 72 20 61 l.** work. Or a
1140: 74 20 6c 65 61 73 74 20 74 68 61 74 20 69 73 20 t least that is
1150: 77 68 61 74 20 69 73 20 72 65 70 6f 72 74 65 64 what is reported
1160: 20 74 6f 20 6d 65 20 28 64 72 68 29 2e 20 20 42 to me (drh). B
1170: 75 74 20 74 68 69 73 0a 2a 2a 20 62 65 68 61 76 ut this.** behav
1180: 69 6f 72 20 76 61 72 69 65 73 20 66 72 6f 6d 20 ior varies from
1190: 6d 61 63 68 69 6e 65 20 74 6f 20 6d 61 63 68 69 machine to machi
11a0: 6e 65 2e 20 20 54 68 65 20 73 6f 6c 75 74 69 6f ne. The solutio
11b0: 6e 20 75 73 65 64 20 68 65 72 20 69 73 0a 2a 2a n used her is.**
11c0: 20 74 6f 20 74 65 73 74 20 74 68 65 20 73 74 72 to test the str
11d0: 69 6e 67 20 72 69 67 68 74 20 61 66 74 65 72 20 ing right after
11e0: 69 74 20 69 73 20 67 65 6e 65 72 61 74 65 64 20 it is generated
11f0: 74 6f 20 73 65 65 20 69 66 20 69 74 20 63 61 6e to see if it can
1200: 20 62 65 0a 2a 2a 20 75 6e 64 65 72 73 74 6f 6f be.** understoo
1210: 64 20 62 79 20 73 63 61 6e 66 2c 20 61 6e 64 20 d by scanf, and
1220: 69 66 20 6e 6f 74 2c 20 74 72 79 20 70 72 65 70 if not, try prep
1230: 65 6e 64 69 6e 67 20 61 6e 20 22 30 78 22 20 74 ending an "0x" t
1240: 6f 20 73 65 65 20 69 66 0a 2a 2a 20 74 68 61 74 o see if.** that
1250: 20 68 65 6c 70 73 2e 20 20 49 66 20 6e 6f 74 68 helps. If noth
1260: 69 6e 67 20 77 6f 72 6b 73 2c 20 61 20 66 61 74 ing works, a fat
1270: 61 6c 20 65 72 72 6f 72 20 69 73 20 67 65 6e 65 al error is gene
1280: 72 61 74 65 64 2e 0a 2a 2f 0a 69 6e 74 20 73 71 rated..*/.int sq
1290: 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 lite3TestMakePoi
12a0: 6e 74 65 72 53 74 72 28 54 63 6c 5f 49 6e 74 65 nterStr(Tcl_Inte
12b0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 68 61 72 rp *interp, char
12c0: 20 2a 7a 50 74 72 2c 20 76 6f 69 64 20 2a 70 29 *zPtr, void *p)
12d0: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 {. sqlite3_snpr
12e0: 69 6e 74 66 28 31 30 30 2c 20 7a 50 74 72 2c 20 intf(100, zPtr,
12f0: 22 25 70 22 2c 20 70 29 3b 0a 20 20 72 65 74 75 "%p", p);. retu
1300: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
1310: 0a 2a 2a 20 54 68 65 20 63 61 6c 6c 62 61 63 6b .** The callback
1320: 20 72 6f 75 74 69 6e 65 20 66 6f 72 20 73 71 6c routine for sql
1330: 69 74 65 33 5f 65 78 65 63 5f 70 72 69 6e 74 66 ite3_exec_printf
1340: 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ()..*/.static in
1350: 74 20 65 78 65 63 5f 70 72 69 6e 74 66 5f 63 62 t exec_printf_cb
1360: 28 76 6f 69 64 20 2a 70 41 72 67 2c 20 69 6e 74 (void *pArg, int
1370: 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72 argc, char **ar
1380: 67 76 2c 20 63 68 61 72 20 2a 2a 6e 61 6d 65 29 gv, char **name)
1390: 7b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 {. Tcl_DString
13a0: 2a 73 74 72 20 3d 20 28 54 63 6c 5f 44 53 74 72 *str = (Tcl_DStr
13b0: 69 6e 67 2a 29 70 41 72 67 3b 0a 20 20 69 6e 74 ing*)pArg;. int
13c0: 20 69 3b 0a 0a 20 20 69 66 28 20 54 63 6c 5f 44 i;.. if( Tcl_D
13d0: 53 74 72 69 6e 67 4c 65 6e 67 74 68 28 73 74 72 StringLength(str
13e0: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 66 6f 72 28 )==0 ){. for(
13f0: 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b i=0; i<argc; i++
1400: 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 44 53 74 ){. Tcl_DSt
1410: 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d 65 6e ringAppendElemen
1420: 74 28 73 74 72 2c 20 6e 61 6d 65 5b 69 5d 20 3f t(str, name[i] ?
1430: 20 6e 61 6d 65 5b 69 5d 20 3a 20 22 4e 55 4c 4c name[i] : "NULL
1440: 22 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 ");. }. }.
1450: 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b for(i=0; i<argc;
1460: 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 44 i++){. Tcl_D
1470: 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d StringAppendElem
1480: 65 6e 74 28 73 74 72 2c 20 61 72 67 76 5b 69 5d ent(str, argv[i]
1490: 20 3f 20 61 72 67 76 5b 69 5d 20 3a 20 22 4e 55 ? argv[i] : "NU
14a0: 4c 4c 22 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 LL");. }. retu
14b0: 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 rn 0;.}../*.** T
14c0: 68 65 20 49 2f 4f 20 74 72 61 63 69 6e 67 20 63 he I/O tracing c
14d0: 61 6c 6c 62 61 63 6b 2e 0a 2a 2f 0a 23 69 66 20 allback..*/.#if
14e0: 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f !defined(SQLITE_
14f0: 4f 4d 49 54 5f 54 52 41 43 45 29 20 26 26 20 64 OMIT_TRACE) && d
1500: 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 45 4e efined(SQLITE_EN
1510: 41 42 4c 45 5f 49 4f 54 52 41 43 45 29 0a 73 74 ABLE_IOTRACE).st
1520: 61 74 69 63 20 46 49 4c 45 20 2a 69 6f 74 72 61 atic FILE *iotra
1530: 63 65 5f 66 69 6c 65 20 3d 20 30 3b 0a 73 74 61 ce_file = 0;.sta
1540: 74 69 63 20 76 6f 69 64 20 69 6f 5f 74 72 61 63 tic void io_trac
1550: 65 5f 63 61 6c 6c 62 61 63 6b 28 63 6f 6e 73 74 e_callback(const
1560: 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 char *zFormat,
1570: 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20 ...){. va_list
1580: 61 70 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 ap;. va_start(a
1590: 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 76 p, zFormat);. v
15a0: 66 70 72 69 6e 74 66 28 69 6f 74 72 61 63 65 5f fprintf(iotrace_
15b0: 66 69 6c 65 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 file, zFormat, a
15c0: 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 p);. va_end(ap)
15d0: 3b 0a 20 20 66 66 6c 75 73 68 28 69 6f 74 72 61 ;. fflush(iotra
15e0: 63 65 5f 66 69 6c 65 29 3b 0a 7d 0a 23 65 6e 64 ce_file);.}.#end
15f0: 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a if../*.** Usage:
1600: 20 20 69 6f 5f 74 72 61 63 65 20 46 49 4c 45 4e io_trace FILEN
1610: 41 4d 45 0a 2a 2a 0a 2a 2a 20 54 75 72 6e 20 49 AME.**.** Turn I
1620: 2f 4f 20 74 72 61 63 69 6e 67 20 6f 6e 20 6f 72 /O tracing on or
1630: 20 6f 66 66 2e 20 20 49 66 20 46 49 4c 45 4e 41 off. If FILENA
1640: 4d 45 20 69 73 20 6e 6f 74 20 61 6e 20 65 6d 70 ME is not an emp
1650: 74 79 20 73 74 72 69 6e 67 2c 0a 2a 2a 20 49 2f ty string,.** I/
1660: 4f 20 74 72 61 63 69 6e 67 20 62 65 67 69 6e 73 O tracing begins
1670: 20 67 6f 69 6e 67 20 69 6e 74 6f 20 46 49 4c 45 going into FILE
1680: 4e 41 4d 45 2e 20 49 66 20 46 49 4c 45 4e 41 4d NAME. If FILENAM
1690: 45 20 69 73 20 61 6e 20 65 6d 70 74 79 0a 2a 2a E is an empty.**
16a0: 20 73 74 72 69 6e 67 2c 20 49 2f 4f 20 74 72 61 string, I/O tra
16b0: 63 69 6e 67 20 69 73 20 74 75 72 6e 65 64 20 6f cing is turned o
16c0: 66 66 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ff..*/.static in
16d0: 74 20 74 65 73 74 5f 69 6f 5f 74 72 61 63 65 28 t test_io_trace(
16e0: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 . void *NotUsed
16f0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
1700: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
1710: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
1720: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
1730: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
1740: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 int argc,
1750: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
1760: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
1770: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 /. char **argv
1780: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 /* Te
1790: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d xt of each argum
17a0: 65 6e 74 20 2a 2f 0a 29 7b 0a 23 69 66 20 21 64 ent */.){.#if !d
17b0: 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d efined(SQLITE_OM
17c0: 49 54 5f 54 52 41 43 45 29 20 26 26 20 64 65 66 IT_TRACE) && def
17d0: 69 6e 65 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 ined(SQLITE_ENAB
17e0: 4c 45 5f 49 4f 54 52 41 43 45 29 0a 20 20 69 66 LE_IOTRACE). if
17f0: 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 ( argc!=2 ){.
1800: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1810: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
1820: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
1830: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
1840: 0a 20 20 20 20 20 20 20 20 20 20 22 20 46 49 4c . " FIL
1850: 45 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 ENAME\"", 0);.
1860: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
1870: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 69 6f OR;. }. if( io
1880: 74 72 61 63 65 5f 66 69 6c 65 20 29 7b 0a 20 20 trace_file ){.
1890: 20 20 69 66 28 20 69 6f 74 72 61 63 65 5f 66 69 if( iotrace_fi
18a0: 6c 65 21 3d 73 74 64 6f 75 74 20 26 26 20 69 6f le!=stdout && io
18b0: 74 72 61 63 65 5f 66 69 6c 65 21 3d 73 74 64 65 trace_file!=stde
18c0: 72 72 20 29 7b 0a 20 20 20 20 20 20 66 63 6c 6f rr ){. fclo
18d0: 73 65 28 69 6f 74 72 61 63 65 5f 66 69 6c 65 29 se(iotrace_file)
18e0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 6f 74 72 ;. }. iotr
18f0: 61 63 65 5f 66 69 6c 65 20 3d 20 30 3b 0a 20 20 ace_file = 0;.
1900: 20 20 73 71 6c 69 74 65 33 49 6f 54 72 61 63 65 sqlite3IoTrace
1910: 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 = 0;. }. if(
1920: 61 72 67 76 5b 31 5d 5b 30 5d 20 29 7b 0a 20 20 argv[1][0] ){.
1930: 20 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 if( strcmp(arg
1940: 76 5b 31 5d 2c 22 73 74 64 6f 75 74 22 29 3d 3d v[1],"stdout")==
1950: 30 20 29 7b 0a 20 20 20 20 20 20 69 6f 74 72 61 0 ){. iotra
1960: 63 65 5f 66 69 6c 65 20 3d 20 73 74 64 6f 75 74 ce_file = stdout
1970: 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 ;. }else if(
1980: 73 74 72 63 6d 70 28 61 72 67 76 5b 31 5d 2c 22 strcmp(argv[1],"
1990: 73 74 64 65 72 72 22 29 3d 3d 30 20 29 7b 0a 20 stderr")==0 ){.
19a0: 20 20 20 20 20 69 6f 74 72 61 63 65 5f 66 69 6c iotrace_fil
19b0: 65 20 3d 20 73 74 64 65 72 72 3b 0a 20 20 20 20 e = stderr;.
19c0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 69 6f 74 }else{. iot
19d0: 72 61 63 65 5f 66 69 6c 65 20 3d 20 66 6f 70 65 race_file = fope
19e0: 6e 28 61 72 67 76 5b 31 5d 2c 20 22 77 22 29 3b n(argv[1], "w");
19f0: 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 . }. sqlit
1a00: 65 33 49 6f 54 72 61 63 65 20 3d 20 69 6f 5f 74 e3IoTrace = io_t
1a10: 72 61 63 65 5f 63 61 6c 6c 62 61 63 6b 3b 0a 20 race_callback;.
1a20: 20 7d 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75 }.#endif. retu
1a30: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
1a40: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 63 6c 61 6e .** Usage: clan
1a50: 67 5f 73 61 6e 69 74 69 7a 65 5f 61 64 64 72 65 g_sanitize_addre
1a60: 73 73 20 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e ss .**.** Return
1a70: 73 20 74 72 75 65 20 69 66 20 74 68 65 20 70 72 s true if the pr
1a80: 6f 67 72 61 6d 20 77 61 73 20 63 6f 6d 70 69 6c ogram was compil
1a90: 65 64 20 75 73 69 6e 67 20 63 6c 61 6e 67 20 77 ed using clang w
1aa0: 69 74 68 20 74 68 65 20 0a 2a 2a 20 2d 66 73 61 ith the .** -fsa
1ab0: 6e 69 74 69 7a 65 3d 61 64 64 72 65 73 73 20 73 nitize=address s
1ac0: 77 69 74 63 68 20 6f 6e 20 74 68 65 20 63 6f 6d witch on the com
1ad0: 6d 61 6e 64 20 6c 69 6e 65 2e 20 46 61 6c 73 65 mand line. False
1ae0: 20 6f 74 68 65 72 77 69 73 65 2e 0a 2a 2f 0a 73 otherwise..*/.s
1af0: 74 61 74 69 63 20 69 6e 74 20 63 6c 61 6e 67 5f tatic int clang_
1b00: 73 61 6e 69 74 69 7a 65 5f 61 64 64 72 65 73 73 sanitize_address
1b10: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
1b20: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
1b30: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
1b40: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
1b50: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
1b60: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
1b70: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
1b80: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
1b90: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
1ba0: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
1bb0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
1bc0: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
1bd0: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 ment */.){. int
1be0: 20 72 65 73 20 3d 20 30 3b 0a 23 69 66 20 64 65 res = 0;.#if de
1bf0: 66 69 6e 65 64 28 5f 5f 68 61 73 5f 66 65 61 74 fined(__has_feat
1c00: 75 72 65 29 0a 23 20 69 66 20 5f 5f 68 61 73 5f ure).# if __has_
1c10: 66 65 61 74 75 72 65 28 61 64 64 72 65 73 73 5f feature(address_
1c20: 73 61 6e 69 74 69 7a 65 72 29 0a 20 20 72 65 73 sanitizer). res
1c30: 20 3d 20 31 3b 0a 23 20 65 6e 64 69 66 0a 23 65 = 1;.# endif.#e
1c40: 6e 64 69 66 0a 20 20 54 63 6c 5f 53 65 74 4f 62 ndif. Tcl_SetOb
1c50: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
1c60: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 65 Tcl_NewIntObj(re
1c70: 73 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 s));. return TC
1c80: 4c 5f 4f 4b 3b 0a 7d 0a 20 20 0a 2f 2a 0a 2a 2a L_OK;.}. ./*.**
1c90: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
1ca0: 5f 65 78 65 63 5f 70 72 69 6e 74 66 20 20 44 42 _exec_printf DB
1cb0: 20 20 46 4f 52 4d 41 54 20 20 53 54 52 49 4e 47 FORMAT STRING
1cc0: 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 .**.** Invoke th
1cd0: 65 20 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 70 e sqlite3_exec_p
1ce0: 72 69 6e 74 66 28 29 20 69 6e 74 65 72 66 61 63 rintf() interfac
1cf0: 65 20 75 73 69 6e 67 20 74 68 65 20 6f 70 65 6e e using the open
1d00: 20 64 61 74 61 62 61 73 65 0a 2a 2a 20 44 42 2e database.** DB.
1d10: 20 20 54 68 65 20 53 51 4c 20 69 73 20 74 68 65 The SQL is the
1d20: 20 73 74 72 69 6e 67 20 46 4f 52 4d 41 54 2e 20 string FORMAT.
1d30: 20 54 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 The format stri
1d40: 6e 67 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 69 ng should contai
1d50: 6e 0a 2a 2a 20 6f 6e 65 20 25 73 20 6f 72 20 25 n.** one %s or %
1d60: 71 2e 20 20 53 54 52 49 4e 47 20 69 73 20 74 68 q. STRING is th
1d70: 65 20 76 61 6c 75 65 20 69 6e 73 65 72 74 65 64 e value inserted
1d80: 20 69 6e 74 6f 20 25 73 20 6f 72 20 25 71 2e 0a into %s or %q..
1d90: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
1da0: 73 74 5f 65 78 65 63 5f 70 72 69 6e 74 66 28 0a st_exec_printf(.
1db0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
1dc0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1dd0: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
1de0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
1df0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
1e00: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
1e10: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
1e20: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
1e30: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
1e40: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
1e50: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
1e60: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
1e70: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 nt */.){. sqlit
1e80: 65 33 20 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 53 e3 *db;. Tcl_DS
1e90: 74 72 69 6e 67 20 73 74 72 3b 0a 20 20 69 6e 74 tring str;. int
1ea0: 20 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 rc;. char *zEr
1eb0: 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 2a 7a r = 0;. char *z
1ec0: 53 71 6c 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 Sql;. char zBuf
1ed0: 5b 33 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 63 [30];. if( argc
1ee0: 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=4 ){. Tcl_A
1ef0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1f00: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
1f10: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
1f20: 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 , argv[0], .
1f30: 20 20 20 22 20 44 42 20 46 4f 52 4d 41 54 20 53 " DB FORMAT S
1f40: 54 52 49 4e 47 22 2c 20 30 29 3b 0a 20 20 20 20 TRING", 0);.
1f50: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1f60: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 ;. }. if( getD
1f70: 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c bPointer(interp,
1f80: 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 argv[1], &db) )
1f90: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1fa0: 52 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 R;. Tcl_DString
1fb0: 49 6e 69 74 28 26 73 74 72 29 3b 0a 20 20 7a 53 Init(&str);. zS
1fc0: 71 6c 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 ql = sqlite3_mpr
1fd0: 69 6e 74 66 28 61 72 67 76 5b 32 5d 2c 20 61 72 intf(argv[2], ar
1fe0: 67 76 5b 33 5d 29 3b 0a 20 20 72 63 20 3d 20 73 gv[3]);. rc = s
1ff0: 71 6c 69 74 65 33 5f 65 78 65 63 28 64 62 2c 20 qlite3_exec(db,
2000: 7a 53 71 6c 2c 20 65 78 65 63 5f 70 72 69 6e 74 zSql, exec_print
2010: 66 5f 63 62 2c 20 26 73 74 72 2c 20 26 7a 45 72 f_cb, &str, &zEr
2020: 72 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 r);. sqlite3_fr
2030: 65 65 28 7a 53 71 6c 29 3b 0a 20 20 73 70 72 69 ee(zSql);. spri
2040: 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 ntf(zBuf, "%d",
2050: 72 63 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e rc);. Tcl_Appen
2060: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
2070: 20 7a 42 75 66 29 3b 0a 20 20 54 63 6c 5f 41 70 zBuf);. Tcl_Ap
2080: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
2090: 72 70 2c 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f rp, rc==SQLITE_O
20a0: 4b 20 3f 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 K ? Tcl_DStringV
20b0: 61 6c 75 65 28 26 73 74 72 29 20 3a 20 7a 45 72 alue(&str) : zEr
20c0: 72 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e r);. Tcl_DStrin
20d0: 67 46 72 65 65 28 26 73 74 72 29 3b 0a 20 20 69 gFree(&str);. i
20e0: 66 28 20 7a 45 72 72 20 29 20 73 71 6c 69 74 65 f( zErr ) sqlite
20f0: 33 5f 66 72 65 65 28 7a 45 72 72 29 3b 0a 20 20 3_free(zErr);.
2100: 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 if( sqlite3TestE
2110: 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 rrCode(interp, d
2120: 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 b, rc) ) return
2130: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 74 TCL_ERROR;. ret
2140: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
2150: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
2160: 69 74 65 33 5f 65 78 65 63 5f 68 65 78 20 20 44 ite3_exec_hex D
2170: 42 20 20 48 45 58 0a 2a 2a 0a 2a 2a 20 49 6e 76 B HEX.**.** Inv
2180: 6f 6b 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f oke the sqlite3_
2190: 65 78 65 63 28 29 20 6f 6e 20 61 20 73 74 72 69 exec() on a stri
21a0: 6e 67 20 74 68 61 74 20 69 73 20 6f 62 74 61 69 ng that is obtai
21b0: 6e 65 64 20 62 79 20 74 72 61 6e 73 6c 61 74 69 ned by translati
21c0: 6e 67 0a 2a 2a 20 48 45 58 20 69 6e 74 6f 20 41 ng.** HEX into A
21d0: 53 43 49 49 2e 20 20 4d 6f 73 74 20 63 68 61 72 SCII. Most char
21e0: 61 63 74 65 72 73 20 61 72 65 20 74 72 61 6e 73 acters are trans
21f0: 6c 61 74 65 64 20 61 73 20 69 73 2e 20 20 25 48 lated as is. %H
2200: 48 20 62 65 63 6f 6d 65 73 0a 2a 2a 20 61 20 68 H becomes.** a h
2210: 65 78 20 63 68 61 72 61 63 74 65 72 2e 0a 2a 2f ex character..*/
2220: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
2230: 5f 65 78 65 63 5f 68 65 78 28 0a 20 20 76 6f 69 _exec_hex(. voi
2240: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
2250: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
2260: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
2270: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
2280: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
2290: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
22a0: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
22b0: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
22c0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
22d0: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
22e0: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
22f0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
2300: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
2310: 62 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 b;. Tcl_DString
2320: 20 73 74 72 3b 0a 20 20 69 6e 74 20 72 63 2c 20 str;. int rc,
2330: 69 2c 20 6a 3b 0a 20 20 63 68 61 72 20 2a 7a 45 i, j;. char *zE
2340: 72 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 2a rr = 0;. char *
2350: 7a 48 65 78 3b 0a 20 20 63 68 61 72 20 7a 53 71 zHex;. char zSq
2360: 6c 5b 35 30 30 5d 3b 0a 20 20 63 68 61 72 20 7a l[500];. char z
2370: 42 75 66 5b 33 30 5d 3b 0a 20 20 69 66 28 20 61 Buf[30];. if( a
2380: 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 rgc!=3 ){. Tc
2390: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
23a0: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
23b0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
23c0: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 \"", argv[0], .
23d0: 20 20 20 20 20 20 22 20 44 42 20 48 45 58 22 2c " DB HEX",
23e0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
23f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
2400: 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
2410: 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 r(interp, argv[1
2420: 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ], &db) ) return
2430: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 48 TCL_ERROR;. zH
2440: 65 78 20 3d 20 61 72 67 76 5b 32 5d 3b 0a 20 20 ex = argv[2];.
2450: 66 6f 72 28 69 3d 6a 3d 30 3b 20 69 3c 73 69 7a for(i=j=0; i<siz
2460: 65 6f 66 28 7a 53 71 6c 29 20 26 26 20 7a 48 65 eof(zSql) && zHe
2470: 78 5b 6a 5d 3b 20 69 2b 2b 2c 20 6a 2b 2b 29 7b x[j]; i++, j++){
2480: 0a 20 20 20 20 69 66 28 20 7a 48 65 78 5b 6a 5d . if( zHex[j]
2490: 3d 3d 27 25 27 20 26 26 20 7a 48 65 78 5b 6a 2b =='%' && zHex[j+
24a0: 32 5d 20 26 26 20 7a 48 65 78 5b 6a 2b 32 5d 20 2] && zHex[j+2]
24b0: 29 7b 0a 20 20 20 20 20 20 7a 53 71 6c 5b 69 5d ){. zSql[i]
24c0: 20 3d 20 28 74 65 73 74 48 65 78 54 6f 49 6e 74 = (testHexToInt
24d0: 28 7a 48 65 78 5b 6a 2b 31 5d 29 3c 3c 34 29 20 (zHex[j+1])<<4)
24e0: 2b 20 74 65 73 74 48 65 78 54 6f 49 6e 74 28 7a + testHexToInt(z
24f0: 48 65 78 5b 6a 2b 32 5d 29 3b 0a 20 20 20 20 20 Hex[j+2]);.
2500: 20 6a 20 2b 3d 20 32 3b 0a 20 20 20 20 7d 65 6c j += 2;. }el
2510: 73 65 7b 0a 20 20 20 20 20 20 7a 53 71 6c 5b 69 se{. zSql[i
2520: 5d 20 3d 20 7a 48 65 78 5b 6a 5d 3b 0a 20 20 20 ] = zHex[j];.
2530: 20 7d 0a 20 20 7d 0a 20 20 7a 53 71 6c 5b 69 5d }. }. zSql[i]
2540: 20 3d 20 30 3b 0a 20 20 54 63 6c 5f 44 53 74 72 = 0;. Tcl_DStr
2550: 69 6e 67 49 6e 69 74 28 26 73 74 72 29 3b 0a 20 ingInit(&str);.
2560: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 65 78 rc = sqlite3_ex
2570: 65 63 28 64 62 2c 20 7a 53 71 6c 2c 20 65 78 65 ec(db, zSql, exe
2580: 63 5f 70 72 69 6e 74 66 5f 63 62 2c 20 26 73 74 c_printf_cb, &st
2590: 72 2c 20 26 7a 45 72 72 29 3b 0a 20 20 73 70 72 r, &zErr);. spr
25a0: 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c intf(zBuf, "%d",
25b0: 20 72 63 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 rc);. Tcl_Appe
25c0: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
25d0: 2c 20 7a 42 75 66 29 3b 0a 20 20 54 63 6c 5f 41 , zBuf);. Tcl_A
25e0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
25f0: 65 72 70 2c 20 72 63 3d 3d 53 51 4c 49 54 45 5f erp, rc==SQLITE_
2600: 4f 4b 20 3f 20 54 63 6c 5f 44 53 74 72 69 6e 67 OK ? Tcl_DString
2610: 56 61 6c 75 65 28 26 73 74 72 29 20 3a 20 7a 45 Value(&str) : zE
2620: 72 72 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 rr);. Tcl_DStri
2630: 6e 67 46 72 65 65 28 26 73 74 72 29 3b 0a 20 20 ngFree(&str);.
2640: 69 66 28 20 7a 45 72 72 20 29 20 73 71 6c 69 74 if( zErr ) sqlit
2650: 65 33 5f 66 72 65 65 28 7a 45 72 72 29 3b 0a 20 e3_free(zErr);.
2660: 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
2670: 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
2680: 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e db, rc) ) return
2690: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 TCL_ERROR;. re
26a0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
26b0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 64 62 /*.** Usage: db
26c0: 5f 65 6e 74 65 72 20 44 42 0a 2a 2a 20 20 20 20 _enter DB.**
26d0: 20 20 20 20 20 64 62 5f 6c 65 61 76 65 20 44 42 db_leave DB
26e0: 0a 2a 2a 0a 2a 2a 20 45 6e 74 65 72 20 6f 72 20 .**.** Enter or
26f0: 6c 65 61 76 65 20 74 68 65 20 6d 75 74 65 78 20 leave the mutex
2700: 6f 6e 20 61 20 64 61 74 61 62 61 73 65 20 63 6f on a database co
2710: 6e 6e 65 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 nnection..*/.sta
2720: 74 69 63 20 69 6e 74 20 64 62 5f 65 6e 74 65 72 tic int db_enter
2730: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
2740: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
2750: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
2760: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
2770: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
2780: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
2790: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
27a0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
27b0: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
27c0: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
27d0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
27e0: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
27f0: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c ment */.){. sql
2800: 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 ite3 *db;. if(
2810: 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 argc!=2 ){. T
2820: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
2830: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
2840: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
2850: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a \"", argv[0], .
2860: 20 20 20 20 20 20 20 22 20 44 42 22 2c 20 30 29 " DB", 0)
2870: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
2880: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
2890: 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
28a0: 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
28b0: 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
28c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 L_ERROR;. sqlit
28d0: 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 e3_mutex_enter(d
28e0: 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 72 65 74 b->mutex);. ret
28f0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 73 74 urn TCL_OK;.}.st
2900: 61 74 69 63 20 69 6e 74 20 64 62 5f 6c 65 61 76 atic int db_leav
2910: 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 e(. void *NotUs
2920: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
2930: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
2940: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
2950: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
2960: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
2970: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
2980: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
2990: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
29a0: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
29b0: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
29c0: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
29d0: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 ument */.){. sq
29e0: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 lite3 *db;. if(
29f0: 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 argc!=2 ){.
2a00: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
2a10: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
2a20: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
2a30: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 e \"", argv[0],
2a40: 0a 20 20 20 20 20 20 20 22 20 44 42 22 2c 20 30 . " DB", 0
2a50: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
2a60: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
2a70: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
2a80: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
2a90: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
2aa0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 CL_ERROR;. sqli
2ab0: 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 te3_mutex_leave(
2ac0: 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 72 65 db->mutex);. re
2ad0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
2ae0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
2af0: 6c 69 74 65 33 5f 65 78 65 63 20 20 44 42 20 20 lite3_exec DB
2b00: 53 51 4c 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 SQL.**.** Invoke
2b10: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 65 78 65 the sqlite3_exe
2b20: 63 20 69 6e 74 65 72 66 61 63 65 20 75 73 69 6e c interface usin
2b30: 67 20 74 68 65 20 6f 70 65 6e 20 64 61 74 61 62 g the open datab
2b40: 61 73 65 20 44 42 0a 2a 2f 0a 73 74 61 74 69 63 ase DB.*/.static
2b50: 20 69 6e 74 20 74 65 73 74 5f 65 78 65 63 28 0a int test_exec(.
2b60: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
2b70: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
2b80: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
2b90: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
2ba0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
2bb0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
2bc0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
2bd0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
2be0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
2bf0: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
2c00: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
2c10: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
2c20: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 nt */.){. sqlit
2c30: 65 33 20 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 53 e3 *db;. Tcl_DS
2c40: 74 72 69 6e 67 20 73 74 72 3b 0a 20 20 69 6e 74 tring str;. int
2c50: 20 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 rc;. char *zEr
2c60: 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 2a 7a r = 0;. char *z
2c70: 53 71 6c 3b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b Sql;. int i, j;
2c80: 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33 30 5d . char zBuf[30]
2c90: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 ;. if( argc!=3
2ca0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
2cb0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
2cc0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
2cd0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
2ce0: 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 gv[0], . "
2cf0: 20 44 42 20 53 51 4c 22 2c 20 30 29 3b 0a 20 20 DB SQL", 0);.
2d00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
2d10: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
2d20: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
2d30: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
2d40: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
2d50: 52 4f 52 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 ROR;. Tcl_DStri
2d60: 6e 67 49 6e 69 74 28 26 73 74 72 29 3b 0a 20 20 ngInit(&str);.
2d70: 7a 53 71 6c 20 3d 20 73 71 6c 69 74 65 33 5f 6d zSql = sqlite3_m
2d80: 70 72 69 6e 74 66 28 22 25 73 22 2c 20 61 72 67 printf("%s", arg
2d90: 76 5b 32 5d 29 3b 0a 20 20 66 6f 72 28 69 3d 6a v[2]);. for(i=j
2da0: 3d 30 3b 20 7a 53 71 6c 5b 69 5d 3b 29 7b 0a 20 =0; zSql[i];){.
2db0: 20 20 20 69 66 28 20 7a 53 71 6c 5b 69 5d 3d 3d if( zSql[i]==
2dc0: 27 25 27 20 29 7b 0a 20 20 20 20 20 20 7a 53 71 '%' ){. zSq
2dd0: 6c 5b 6a 2b 2b 5d 20 3d 20 28 74 65 73 74 48 65 l[j++] = (testHe
2de0: 78 54 6f 49 6e 74 28 7a 53 71 6c 5b 69 2b 31 5d xToInt(zSql[i+1]
2df0: 29 3c 3c 34 29 20 2b 20 74 65 73 74 48 65 78 54 )<<4) + testHexT
2e00: 6f 49 6e 74 28 7a 53 71 6c 5b 69 2b 32 5d 29 3b oInt(zSql[i+2]);
2e10: 0a 20 20 20 20 20 20 69 20 2b 3d 20 33 3b 0a 20 . i += 3;.
2e20: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
2e30: 7a 53 71 6c 5b 6a 2b 2b 5d 20 3d 20 7a 53 71 6c zSql[j++] = zSql
2e40: 5b 69 2b 2b 5d 3b 0a 20 20 20 20 7d 0a 20 20 7d [i++];. }. }
2e50: 0a 20 20 7a 53 71 6c 5b 6a 5d 20 3d 20 30 3b 0a . zSql[j] = 0;.
2e60: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 65 rc = sqlite3_e
2e70: 78 65 63 28 64 62 2c 20 7a 53 71 6c 2c 20 65 78 xec(db, zSql, ex
2e80: 65 63 5f 70 72 69 6e 74 66 5f 63 62 2c 20 26 73 ec_printf_cb, &s
2e90: 74 72 2c 20 26 7a 45 72 72 29 3b 0a 20 20 73 71 tr, &zErr);. sq
2ea0: 6c 69 74 65 33 5f 66 72 65 65 28 7a 53 71 6c 29 lite3_free(zSql)
2eb0: 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 ;. sprintf(zBuf
2ec0: 2c 20 22 25 64 22 2c 20 72 63 29 3b 0a 20 20 54 , "%d", rc);. T
2ed0: 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 cl_AppendElement
2ee0: 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a (interp, zBuf);.
2ef0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d Tcl_AppendElem
2f00: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 63 3d 3d ent(interp, rc==
2f10: 53 51 4c 49 54 45 5f 4f 4b 20 3f 20 54 63 6c 5f SQLITE_OK ? Tcl_
2f20: 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 73 74 DStringValue(&st
2f30: 72 29 20 3a 20 7a 45 72 72 29 3b 0a 20 20 54 63 r) : zErr);. Tc
2f40: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 73 l_DStringFree(&s
2f50: 74 72 29 3b 0a 20 20 69 66 28 20 7a 45 72 72 20 tr);. if( zErr
2f60: 29 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a ) sqlite3_free(z
2f70: 45 72 72 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 Err);. if( sqli
2f80: 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 te3TestErrCode(i
2f90: 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 nterp, db, rc) )
2fa0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
2fb0: 52 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f R;. return TCL_
2fc0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
2fd0: 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 65 78 65 ge: sqlite3_exe
2fe0: 63 5f 6e 72 20 20 44 42 20 20 53 51 4c 0a 2a 2a c_nr DB SQL.**
2ff0: 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20 73 .** Invoke the s
3000: 71 6c 69 74 65 33 5f 65 78 65 63 20 69 6e 74 65 qlite3_exec inte
3010: 72 66 61 63 65 20 75 73 69 6e 67 20 74 68 65 20 rface using the
3020: 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 44 42 open database DB
3030: 2e 20 20 44 69 73 63 61 72 64 0a 2a 2a 20 61 6c . Discard.** al
3040: 6c 20 72 65 73 75 6c 74 73 0a 2a 2f 0a 73 74 61 l results.*/.sta
3050: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 78 65 tic int test_exe
3060: 63 5f 6e 72 28 0a 20 20 76 6f 69 64 20 2a 4e 6f c_nr(. void *No
3070: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 tUsed,. Tcl_Int
3080: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
3090: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
30a0: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
30b0: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
30c0: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 */. int argc,
30d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
30e0: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
30f0: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a nts */. char **
3100: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 argv
3110: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 /* Text of each
3120: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 argument */.){.
3130: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
3140: 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 2a int rc;. char *
3150: 7a 45 72 72 20 3d 20 30 3b 0a 20 20 69 66 28 20 zErr = 0;. if(
3160: 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 argc!=3 ){. T
3170: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
3180: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
3190: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
31a0: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a \"", argv[0], .
31b0: 20 20 20 20 20 20 20 22 20 44 42 20 53 51 4c 22 " DB SQL"
31c0: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
31d0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
31e0: 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
31f0: 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
3200: 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 1], &db) ) retur
3210: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 n TCL_ERROR;. r
3220: 63 20 3d 20 73 71 6c 69 74 65 33 5f 65 78 65 63 c = sqlite3_exec
3230: 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c 20 30 2c (db, argv[2], 0,
3240: 20 30 2c 20 26 7a 45 72 72 29 3b 0a 20 20 69 66 0, &zErr);. if
3250: 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 ( sqlite3TestErr
3260: 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c Code(interp, db,
3270: 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 rc) ) return TC
3280: 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 74 75 72 L_ERROR;. retur
3290: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
32a0: 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
32b0: 65 33 5f 6d 70 72 69 6e 74 66 5f 7a 5f 74 65 73 e3_mprintf_z_tes
32c0: 74 20 20 53 45 50 41 52 41 54 4f 52 20 20 41 52 t SEPARATOR AR
32d0: 47 30 20 20 41 52 47 31 20 2e 2e 2e 0a 2a 2a 0a G0 ARG1 ....**.
32e0: 2a 2a 20 54 65 73 74 20 74 68 65 20 25 7a 20 66 ** Test the %z f
32f0: 6f 72 6d 61 74 20 6f 66 20 73 71 6c 69 74 65 5f ormat of sqlite_
3300: 6d 70 72 69 6e 74 66 28 29 2e 20 20 55 73 65 20 mprintf(). Use
3310: 6d 75 6c 74 69 70 6c 65 20 6d 70 72 69 6e 74 66 multiple mprintf
3320: 28 29 20 63 61 6c 6c 73 20 74 6f 20 0a 2a 2a 20 () calls to .**
3330: 63 6f 6e 63 61 74 65 6e 61 74 65 20 61 72 67 30 concatenate arg0
3340: 20 74 68 72 6f 75 67 68 20 61 72 67 6e 20 75 73 through argn us
3350: 69 6e 67 20 73 65 70 61 72 61 74 6f 72 20 61 73 ing separator as
3360: 20 74 68 65 20 73 65 70 61 72 61 74 6f 72 2e 0a the separator..
3370: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 72 65 ** Return the re
3380: 73 75 6c 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 sult..*/.static
3390: 69 6e 74 20 74 65 73 74 5f 6d 70 72 69 6e 74 66 int test_mprintf
33a0: 5f 7a 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 _z(. void *NotU
33b0: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
33c0: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
33d0: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
33e0: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
33f0: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
3400: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
3410: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
3420: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
3430: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
3440: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
3450: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
3460: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 63 gument */.){. c
3470: 68 61 72 20 2a 7a 52 65 73 75 6c 74 20 3d 20 30 har *zResult = 0
3480: 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 66 6f ;. int i;.. fo
3490: 72 28 69 3d 32 3b 20 69 3c 61 72 67 63 20 26 26 r(i=2; i<argc &&
34a0: 20 28 69 3d 3d 32 20 7c 7c 20 7a 52 65 73 75 6c (i==2 || zResul
34b0: 74 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 7a 52 t); i++){. zR
34c0: 65 73 75 6c 74 20 3d 20 73 71 6c 69 74 65 33 5f esult = sqlite3_
34d0: 6d 70 72 69 6e 74 66 28 22 25 7a 25 73 25 73 22 mprintf("%z%s%s"
34e0: 2c 20 7a 52 65 73 75 6c 74 2c 20 61 72 67 76 5b , zResult, argv[
34f0: 31 5d 2c 20 61 72 67 76 5b 69 5d 29 3b 0a 20 20 1], argv[i]);.
3500: 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 }. Tcl_AppendRe
3510: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 52 65 sult(interp, zRe
3520: 73 75 6c 74 2c 20 30 29 3b 0a 20 20 73 71 6c 69 sult, 0);. sqli
3530: 74 65 33 5f 66 72 65 65 28 7a 52 65 73 75 6c 74 te3_free(zResult
3540: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
3550: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
3560: 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 ge: sqlite3_mpr
3570: 69 6e 74 66 5f 6e 5f 74 65 73 74 20 20 53 54 52 intf_n_test STR
3580: 49 4e 47 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 ING.**.** Test t
3590: 68 65 20 25 6e 20 66 6f 72 6d 61 74 20 6f 66 20 he %n format of
35a0: 73 71 6c 69 74 65 5f 6d 70 72 69 6e 74 66 28 29 sqlite_mprintf()
35b0: 2e 20 20 52 65 74 75 72 6e 20 74 68 65 20 6c 65 . Return the le
35c0: 6e 67 74 68 20 6f 66 20 74 68 65 0a 2a 2a 20 69 ngth of the.** i
35d0: 6e 70 75 74 20 73 74 72 69 6e 67 2e 0a 2a 2f 0a nput string..*/.
35e0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
35f0: 6d 70 72 69 6e 74 66 5f 6e 28 0a 20 20 76 6f 69 mprintf_n(. voi
3600: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
3610: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
3620: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
3630: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
3640: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
3650: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
3660: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
3670: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
3680: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
3690: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
36a0: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
36b0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
36c0: 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 53 74 72 .){. char *zStr
36d0: 3b 0a 20 20 69 6e 74 20 6e 20 3d 20 30 3b 0a 20 ;. int n = 0;.
36e0: 20 7a 53 74 72 20 3d 20 73 71 6c 69 74 65 33 5f zStr = sqlite3_
36f0: 6d 70 72 69 6e 74 66 28 22 25 73 25 6e 22 2c 20 mprintf("%s%n",
3700: 61 72 67 76 5b 31 5d 2c 20 26 6e 29 3b 0a 20 20 argv[1], &n);.
3710: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 53 74 sqlite3_free(zSt
3720: 72 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a r);. Tcl_SetObj
3730: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
3740: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e 29 29 cl_NewIntObj(n))
3750: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
3760: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
3770: 65 3a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 e: sqlite3_snpr
3780: 69 6e 74 66 5f 69 6e 74 20 20 53 49 5a 45 20 46 intf_int SIZE F
3790: 4f 52 4d 41 54 20 20 49 4e 54 0a 2a 2a 0a 2a 2a ORMAT INT.**.**
37a0: 20 54 65 73 74 20 74 68 65 20 6f 66 20 73 71 6c Test the of sql
37b0: 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 29 20 ite3_snprintf()
37c0: 72 6f 75 74 69 6e 65 2e 20 20 53 49 5a 45 20 69 routine. SIZE i
37d0: 73 20 74 68 65 20 73 69 7a 65 20 6f 66 20 74 68 s the size of th
37e0: 65 0a 2a 2a 20 6f 75 74 70 75 74 20 62 75 66 66 e.** output buff
37f0: 65 72 20 69 6e 20 62 79 74 65 73 2e 20 20 54 68 er in bytes. Th
3800: 65 20 6d 61 78 69 6d 75 6d 20 73 69 7a 65 20 69 e maximum size i
3810: 73 20 31 30 30 2e 20 20 46 4f 52 4d 41 54 20 69 s 100. FORMAT i
3820: 73 20 74 68 65 0a 2a 2a 20 66 6f 72 6d 61 74 20 s the.** format
3830: 73 74 72 69 6e 67 2e 20 20 49 4e 54 20 69 73 20 string. INT is
3840: 61 20 73 69 6e 67 6c 65 20 69 6e 74 65 67 65 72 a single integer
3850: 20 61 72 67 75 6d 65 6e 74 2e 20 20 54 68 65 20 argument. The
3860: 46 4f 52 4d 41 54 0a 2a 2a 20 73 74 72 69 6e 67 FORMAT.** string
3870: 20 6d 75 73 74 20 72 65 71 75 69 72 65 20 6e 6f must require no
3880: 20 6d 6f 72 65 20 74 68 61 6e 20 74 68 69 73 20 more than this
3890: 6f 6e 65 20 69 6e 74 65 67 65 72 20 61 72 67 75 one integer argu
38a0: 6d 65 6e 74 2e 20 20 49 66 0a 2a 2a 20 59 6f 75 ment. If.** You
38b0: 20 70 61 73 73 20 69 6e 20 61 20 66 6f 72 6d 61 pass in a forma
38c0: 74 20 73 74 72 69 6e 67 20 74 68 61 74 20 72 65 t string that re
38d0: 71 75 69 72 65 73 20 6d 6f 72 65 20 74 68 61 6e quires more than
38e0: 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2c 0a 2a one argument,.*
38f0: 2a 20 62 61 64 20 74 68 69 6e 67 73 20 77 69 6c * bad things wil
3900: 6c 20 68 61 70 70 65 6e 2e 0a 2a 2f 0a 73 74 61 l happen..*/.sta
3910: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 6e 70 tic int test_snp
3920: 72 69 6e 74 66 5f 69 6e 74 28 0a 20 20 76 6f 69 rintf_int(. voi
3930: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
3940: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
3950: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
3960: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
3970: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
3980: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
3990: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
39a0: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
39b0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
39c0: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
39d0: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
39e0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
39f0: 0a 29 7b 0a 20 20 63 68 61 72 20 7a 53 74 72 5b .){. char zStr[
3a00: 31 30 30 5d 3b 0a 20 20 69 6e 74 20 6e 20 3d 20 100];. int n =
3a10: 61 74 6f 69 28 61 72 67 76 5b 31 5d 29 3b 0a 20 atoi(argv[1]);.
3a20: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f const char *zFo
3a30: 72 6d 61 74 20 3d 20 61 72 67 76 5b 32 5d 3b 0a rmat = argv[2];.
3a40: 20 20 69 6e 74 20 61 31 20 3d 20 61 74 6f 69 28 int a1 = atoi(
3a50: 61 72 67 76 5b 33 5d 29 3b 0a 20 20 69 66 28 20 argv[3]);. if(
3a60: 6e 3e 73 69 7a 65 6f 66 28 7a 53 74 72 29 20 29 n>sizeof(zStr) )
3a70: 20 6e 20 3d 20 73 69 7a 65 6f 66 28 7a 53 74 72 n = sizeof(zStr
3a80: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 );. sqlite3_snp
3a90: 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 53 74 rintf(sizeof(zSt
3aa0: 72 29 2c 20 7a 53 74 72 2c 20 22 61 62 63 64 65 r), zStr, "abcde
3ab0: 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 fghijklmnopqrstu
3ac0: 76 77 78 79 7a 22 29 3b 0a 20 20 73 71 6c 69 74 vwxyz");. sqlit
3ad0: 65 33 5f 73 6e 70 72 69 6e 74 66 28 6e 2c 20 7a e3_snprintf(n, z
3ae0: 53 74 72 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 31 Str, zFormat, a1
3af0: 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 );. Tcl_AppendR
3b00: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 53 esult(interp, zS
3b10: 74 72 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e tr, 0);. return
3b20: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 69 66 6e TCL_OK;.}..#ifn
3b30: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
3b40: 47 45 54 5f 54 41 42 4c 45 0a 0a 2f 2a 0a 2a 2a GET_TABLE../*.**
3b50: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
3b60: 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74 _get_table_print
3b70: 66 20 20 44 42 20 20 46 4f 52 4d 41 54 20 20 53 f DB FORMAT S
3b80: 54 52 49 4e 47 20 20 3f 2d 2d 6e 6f 2d 63 6f 75 TRING ?--no-cou
3b90: 6e 74 73 3f 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b nts?.**.** Invok
3ba0: 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 67 65 e the sqlite3_ge
3bb0: 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74 66 28 29 t_table_printf()
3bc0: 20 69 6e 74 65 72 66 61 63 65 20 75 73 69 6e 67 interface using
3bd0: 20 74 68 65 20 6f 70 65 6e 20 64 61 74 61 62 61 the open databa
3be0: 73 65 0a 2a 2a 20 44 42 2e 20 20 54 68 65 20 53 se.** DB. The S
3bf0: 51 4c 20 69 73 20 74 68 65 20 73 74 72 69 6e 67 QL is the string
3c00: 20 46 4f 52 4d 41 54 2e 20 20 54 68 65 20 66 6f FORMAT. The fo
3c10: 72 6d 61 74 20 73 74 72 69 6e 67 20 73 68 6f 75 rmat string shou
3c20: 6c 64 20 63 6f 6e 74 61 69 6e 0a 2a 2a 20 6f 6e ld contain.** on
3c30: 65 20 25 73 20 6f 72 20 25 71 2e 20 20 53 54 52 e %s or %q. STR
3c40: 49 4e 47 20 69 73 20 74 68 65 20 76 61 6c 75 65 ING is the value
3c50: 20 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 25 inserted into %
3c60: 73 20 6f 72 20 25 71 2e 0a 2a 2f 0a 73 74 61 74 s or %q..*/.stat
3c70: 69 63 20 69 6e 74 20 74 65 73 74 5f 67 65 74 5f ic int test_get_
3c80: 74 61 62 6c 65 5f 70 72 69 6e 74 66 28 0a 20 20 table_printf(.
3c90: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 void *NotUsed,.
3ca0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
3cb0: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
3cc0: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
3cd0: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
3ce0: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
3cf0: 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 t argc,
3d00: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
3d10: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
3d20: 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 char **argv
3d30: 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 /* Text
3d40: 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 of each argument
3d50: 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 */.){. sqlite3
3d60: 20 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 53 74 72 *db;. Tcl_DStr
3d70: 69 6e 67 20 73 74 72 3b 0a 20 20 69 6e 74 20 72 ing str;. int r
3d80: 63 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 72 20 c;. char *zErr
3d90: 3d 20 30 3b 0a 20 20 69 6e 74 20 6e 52 6f 77 2c = 0;. int nRow,
3da0: 20 6e 43 6f 6c 3b 0a 20 20 63 68 61 72 20 2a 2a nCol;. char **
3db0: 61 52 65 73 75 6c 74 3b 0a 20 20 69 6e 74 20 69 aResult;. int i
3dc0: 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33 30 ;. char zBuf[30
3dd0: 5d 3b 0a 20 20 63 68 61 72 20 2a 7a 53 71 6c 3b ];. char *zSql;
3de0: 0a 20 20 69 6e 74 20 72 65 73 43 6f 75 6e 74 20 . int resCount
3df0: 3d 20 2d 31 3b 0a 20 20 69 66 28 20 61 72 67 63 = -1;. if( argc
3e00: 3d 3d 35 20 29 7b 0a 20 20 20 20 69 66 28 20 54 ==5 ){. if( T
3e10: 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 cl_GetInt(interp
3e20: 2c 20 61 72 67 76 5b 34 5d 2c 20 26 72 65 73 43 , argv[4], &resC
3e30: 6f 75 6e 74 29 20 29 20 72 65 74 75 72 6e 20 54 ount) ) return T
3e40: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
3e50: 69 66 28 20 61 72 67 63 21 3d 34 20 26 26 20 61 if( argc!=4 && a
3e60: 72 67 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 rgc!=5 ){. Tc
3e70: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
3e80: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
3e90: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
3ea0: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 \"", argv[0], .
3eb0: 20 20 20 20 20 20 22 20 44 42 20 46 4f 52 4d 41 " DB FORMA
3ec0: 54 20 53 54 52 49 4e 47 20 3f 43 4f 55 4e 54 3f T STRING ?COUNT?
3ed0: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
3ee0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
3ef0: 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
3f00: 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 ter(interp, argv
3f10: 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 [1], &db) ) retu
3f20: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3f30: 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 Tcl_DStringInit(
3f40: 26 73 74 72 29 3b 0a 20 20 7a 53 71 6c 20 3d 20 &str);. zSql =
3f50: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 sqlite3_mprintf(
3f60: 61 72 67 76 5b 32 5d 2c 61 72 67 76 5b 33 5d 29 argv[2],argv[3])
3f70: 3b 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 35 20 ;. if( argc==5
3f80: 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 ){. rc = sqli
3f90: 74 65 33 5f 67 65 74 5f 74 61 62 6c 65 28 64 62 te3_get_table(db
3fa0: 2c 20 7a 53 71 6c 2c 20 26 61 52 65 73 75 6c 74 , zSql, &aResult
3fb0: 2c 20 30 2c 20 30 2c 20 26 7a 45 72 72 29 3b 0a , 0, 0, &zErr);.
3fc0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 63 20 }else{. rc
3fd0: 3d 20 73 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 = sqlite3_get_ta
3fe0: 62 6c 65 28 64 62 2c 20 7a 53 71 6c 2c 20 26 61 ble(db, zSql, &a
3ff0: 52 65 73 75 6c 74 2c 20 26 6e 52 6f 77 2c 20 26 Result, &nRow, &
4000: 6e 43 6f 6c 2c 20 26 7a 45 72 72 29 3b 0a 20 20 nCol, &zErr);.
4010: 20 20 72 65 73 43 6f 75 6e 74 20 3d 20 28 6e 52 resCount = (nR
4020: 6f 77 2b 31 29 2a 6e 43 6f 6c 3b 0a 20 20 7d 0a ow+1)*nCol;. }.
4030: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a sqlite3_free(z
4040: 53 71 6c 29 3b 0a 20 20 73 70 72 69 6e 74 66 28 Sql);. sprintf(
4050: 7a 42 75 66 2c 20 22 25 64 22 2c 20 72 63 29 3b zBuf, "%d", rc);
4060: 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 . Tcl_AppendEle
4070: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 ment(interp, zBu
4080: 66 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 f);. if( rc==SQ
4090: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 69 LITE_OK ){. i
40a0: 66 28 20 61 72 67 63 3d 3d 34 20 29 7b 0a 20 20 f( argc==4 ){.
40b0: 20 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 sprintf(zBuf
40c0: 2c 20 22 25 64 22 2c 20 6e 52 6f 77 29 3b 0a 20 , "%d", nRow);.
40d0: 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 Tcl_AppendE
40e0: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a lement(interp, z
40f0: 42 75 66 29 3b 0a 20 20 20 20 20 20 73 70 72 69 Buf);. spri
4100: 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 ntf(zBuf, "%d",
4110: 6e 43 6f 6c 29 3b 0a 20 20 20 20 20 20 54 63 6c nCol);. Tcl
4120: 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 _AppendElement(i
4130: 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 nterp, zBuf);.
4140: 20 20 7d 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b }. for(i=0;
4150: 20 69 3c 72 65 73 43 6f 75 6e 74 3b 20 69 2b 2b i<resCount; i++
4160: 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 70 ){. Tcl_App
4170: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
4180: 70 2c 20 61 52 65 73 75 6c 74 5b 69 5d 20 3f 20 p, aResult[i] ?
4190: 61 52 65 73 75 6c 74 5b 69 5d 20 3a 20 22 4e 55 aResult[i] : "NU
41a0: 4c 4c 22 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 LL");. }. }e
41b0: 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 lse{. Tcl_App
41c0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
41d0: 70 2c 20 7a 45 72 72 29 3b 0a 20 20 7d 0a 20 20 p, zErr);. }.
41e0: 73 71 6c 69 74 65 33 5f 66 72 65 65 5f 74 61 62 sqlite3_free_tab
41f0: 6c 65 28 61 52 65 73 75 6c 74 29 3b 0a 20 20 69 le(aResult);. i
4200: 66 28 20 7a 45 72 72 20 29 20 73 71 6c 69 74 65 f( zErr ) sqlite
4210: 33 5f 66 72 65 65 28 7a 45 72 72 29 3b 0a 20 20 3_free(zErr);.
4220: 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 if( sqlite3TestE
4230: 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 rrCode(interp, d
4240: 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 b, rc) ) return
4250: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 74 TCL_ERROR;. ret
4260: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 urn TCL_OK;.}..#
4270: 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f endif /* SQLITE_
4280: 4f 4d 49 54 5f 47 45 54 5f 54 41 42 4c 45 20 2a OMIT_GET_TABLE *
4290: 2f 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a /.../*.** Usage:
42a0: 20 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 sqlite3_last_i
42b0: 6e 73 65 72 74 5f 72 6f 77 69 64 20 44 42 0a 2a nsert_rowid DB.*
42c0: 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 20 74 68 65 *.** Returns the
42d0: 20 69 6e 74 65 67 65 72 20 52 4f 57 49 44 20 6f integer ROWID o
42e0: 66 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e f the most recen
42f0: 74 20 69 6e 73 65 72 74 2e 0a 2a 2f 0a 73 74 61 t insert..*/.sta
4300: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6c 61 73 tic int test_las
4310: 74 5f 72 6f 77 69 64 28 0a 20 20 76 6f 69 64 20 t_rowid(. void
4320: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f *NotUsed,. Tcl_
4330: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
4340: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
4350: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
4360: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
4370: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 and */. int arg
4380: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
4390: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
43a0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 uments */. char
43b0: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 **argv
43c0: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 /* Text of ea
43d0: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 ch argument */.)
43e0: 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
43f0: 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33 30 5d . char zBuf[30]
4400: 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 ;.. if( argc!=2
4410: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
4420: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
4430: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
4440: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
4450: 72 67 76 5b 30 5d 2c 20 22 20 44 42 5c 22 22 2c rgv[0], " DB\"",
4460: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
4470: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
4480: 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
4490: 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 r(interp, argv[1
44a0: 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ], &db) ) return
44b0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 70 TCL_ERROR;. sp
44c0: 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 6c 6c rintf(zBuf, "%ll
44d0: 64 22 2c 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 d", sqlite3_last
44e0: 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 64 62 _insert_rowid(db
44f0: 29 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 ));. Tcl_Append
4500: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a Result(interp, z
4510: 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 Buf, 0);. retur
4520: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a n SQLITE_OK;.}..
4530: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
4540: 6c 69 74 65 33 5f 6b 65 79 20 44 42 20 4b 45 59 lite3_key DB KEY
4550: 0a 2a 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20 63 .**.** Set the c
4560: 6f 64 65 63 20 6b 65 79 2e 0a 2a 2f 0a 73 74 61 odec key..*/.sta
4570: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6b 65 79 tic int test_key
4580: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
4590: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
45a0: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
45b0: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
45c0: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
45d0: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
45e0: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
45f0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
4600: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
4610: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
4620: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
4630: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
4640: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 23 69 66 64 65 ment */.){.#ifde
4650: 66 20 53 51 4c 49 54 45 5f 48 41 53 5f 43 4f 44 f SQLITE_HAS_COD
4660: 45 43 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 EC. sqlite3 *db
4670: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ;. const char *
4680: 7a 4b 65 79 3b 0a 20 20 69 6e 74 20 6e 4b 65 79 zKey;. int nKey
4690: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 ;. if( argc!=3
46a0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
46b0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
46c0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
46d0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
46e0: 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 gv[0],. "
46f0: 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 29 3b FILENAME\"", 0);
4700: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
4710: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
4720: 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
4730: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 terp, argv[1], &
4740: 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
4750: 5f 45 52 52 4f 52 3b 0a 20 20 7a 4b 65 79 20 3d _ERROR;. zKey =
4760: 20 61 72 67 76 5b 32 5d 3b 0a 20 20 6e 4b 65 79 argv[2];. nKey
4770: 20 3d 20 73 74 72 6c 65 6e 28 7a 4b 65 79 29 3b = strlen(zKey);
4780: 0a 20 20 73 71 6c 69 74 65 33 5f 6b 65 79 28 64 . sqlite3_key(d
4790: 62 2c 20 7a 4b 65 79 2c 20 6e 4b 65 79 29 3b 0a b, zKey, nKey);.
47a0: 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 #endif. return
47b0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
47c0: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
47d0: 5f 72 65 6b 65 79 20 44 42 20 4b 45 59 0a 2a 2a _rekey DB KEY.**
47e0: 0a 2a 2a 20 43 68 61 6e 67 65 20 74 68 65 20 63 .** Change the c
47f0: 6f 64 65 63 20 6b 65 79 2e 0a 2a 2f 0a 73 74 61 odec key..*/.sta
4800: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 72 65 6b tic int test_rek
4810: 65 79 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 ey(. void *NotU
4820: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
4830: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
4840: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
4850: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
4860: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
4870: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
4880: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
4890: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
48a0: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
48b0: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
48c0: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
48d0: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 23 69 66 gument */.){.#if
48e0: 64 65 66 20 53 51 4c 49 54 45 5f 48 41 53 5f 43 def SQLITE_HAS_C
48f0: 4f 44 45 43 0a 20 20 73 71 6c 69 74 65 33 20 2a ODEC. sqlite3 *
4900: 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 db;. const char
4910: 20 2a 7a 4b 65 79 3b 0a 20 20 69 6e 74 20 6e 4b *zKey;. int nK
4920: 65 79 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d ey;. if( argc!=
4930: 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 3 ){. Tcl_App
4940: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
4950: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
4960: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
4970: 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 argv[0],.
4980: 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 " FILENAME\"", 0
4990: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
49a0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
49b0: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
49c0: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
49d0: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
49e0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 4b 65 79 CL_ERROR;. zKey
49f0: 20 3d 20 61 72 67 76 5b 32 5d 3b 0a 20 20 6e 4b = argv[2];. nK
4a00: 65 79 20 3d 20 73 74 72 6c 65 6e 28 7a 4b 65 79 ey = strlen(zKey
4a10: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 6b );. sqlite3_rek
4a20: 65 79 28 64 62 2c 20 7a 4b 65 79 2c 20 6e 4b 65 ey(db, zKey, nKe
4a30: 79 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 y);.#endif. ret
4a40: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
4a50: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
4a60: 69 74 65 33 5f 63 6c 6f 73 65 20 44 42 0a 2a 2a ite3_close DB.**
4a70: 0a 2a 2a 20 43 6c 6f 73 65 73 20 74 68 65 20 64 .** Closes the d
4a80: 61 74 61 62 61 73 65 20 6f 70 65 6e 65 64 20 62 atabase opened b
4a90: 79 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 2e 0a y sqlite3_open..
4aa0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 */.static int sq
4ab0: 6c 69 74 65 5f 74 65 73 74 5f 63 6c 6f 73 65 28 lite_test_close(
4ac0: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 . void *NotUsed
4ad0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
4ae0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
4af0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
4b00: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
4b10: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
4b20: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 int argc,
4b30: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
4b40: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
4b50: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 /. char **argv
4b60: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 /* Te
4b70: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d xt of each argum
4b80: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 ent */.){. sqli
4b90: 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 te3 *db;. int r
4ba0: 63 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 c;. if( argc!=2
4bb0: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
4bc0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
4bd0: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
4be0: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
4bf0: 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 rgv[0],. "
4c00: 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 29 FILENAME\"", 0)
4c10: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
4c20: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
4c30: 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
4c40: 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
4c50: 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
4c60: 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 L_ERROR;. rc =
4c70: 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 64 62 sqlite3_close(db
4c80: 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 );. Tcl_SetResu
4c90: 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
4ca0: 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 *)t1ErrorName(r
4cb0: 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b c), TCL_STATIC);
4cc0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
4cd0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
4ce0: 3a 20 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 : sqlite3_close
4cf0: 5f 76 32 20 44 42 0a 2a 2a 0a 2a 2a 20 43 6c 6f _v2 DB.**.** Clo
4d00: 73 65 73 20 74 68 65 20 64 61 74 61 62 61 73 65 ses the database
4d10: 20 6f 70 65 6e 65 64 20 62 79 20 73 71 6c 69 74 opened by sqlit
4d20: 65 33 5f 6f 70 65 6e 2e 0a 2a 2f 0a 73 74 61 74 e3_open..*/.stat
4d30: 69 63 20 69 6e 74 20 73 71 6c 69 74 65 5f 74 65 ic int sqlite_te
4d40: 73 74 5f 63 6c 6f 73 65 5f 76 32 28 0a 20 20 76 st_close_v2(. v
4d50: 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 oid *NotUsed,.
4d60: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4d70: 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
4d80: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
4d90: 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
4da0: 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
4db0: 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 argc,
4dc0: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
4dd0: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
4de0: 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 char **argv
4df0: 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f /* Text o
4e00: 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 f each argument
4e10: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 */.){. sqlite3
4e20: 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 *db;. int rc;.
4e30: 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a if( argc!=2 ){.
4e40: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
4e50: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
4e60: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
4e70: 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b ld be \"", argv[
4e80: 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 49 4c 0],. " FIL
4e90: 45 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 ENAME\"", 0);.
4ea0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
4eb0: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
4ec0: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
4ed0: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
4ee0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
4ef0: 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 ROR;. rc = sqli
4f00: 74 65 33 5f 63 6c 6f 73 65 5f 76 32 28 64 62 29 te3_close_v2(db)
4f10: 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c ;. Tcl_SetResul
4f20: 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 t(interp, (char
4f30: 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 *)t1ErrorName(rc
4f40: 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a ), TCL_STATIC);.
4f50: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
4f60: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d .}../*.** Implem
4f70: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 entation of the
4f80: 78 5f 63 6f 61 6c 65 73 63 65 28 29 20 66 75 6e x_coalesce() fun
4f90: 63 74 69 6f 6e 2e 0a 2a 2a 20 52 65 74 75 72 6e ction..** Return
4fa0: 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d the first argum
4fb0: 65 6e 74 20 6e 6f 6e 2d 4e 55 4c 4c 20 61 72 67 ent non-NULL arg
4fc0: 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 ument..*/.static
4fd0: 20 76 6f 69 64 20 74 31 5f 69 66 6e 75 6c 6c 46 void t1_ifnullF
4fe0: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 unc(. sqlite3_c
4ff0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
5000: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 . int argc,. s
5010: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
5020: 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a rgv.){. int i;.
5030: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 for(i=0; i<arg
5040: 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 c; i++){. if(
5050: 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 21 3d 73 71 SQLITE_NULL!=sq
5060: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 lite3_value_type
5070: 28 61 72 67 76 5b 69 5d 29 20 29 7b 0a 20 20 20 (argv[i]) ){.
5080: 20 20 20 69 6e 74 20 6e 20 3d 20 73 71 6c 69 74 int n = sqlit
5090: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 e3_value_bytes(a
50a0: 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 20 20 73 rgv[i]);. s
50b0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 qlite3_result_te
50c0: 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 xt(context, (cha
50d0: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 r*)sqlite3_value
50e0: 5f 74 65 78 74 28 61 72 67 76 5b 69 5d 29 2c 0a _text(argv[i]),.
50f0: 20 20 20 20 20 20 20 20 20 20 6e 2c 20 53 51 4c n, SQL
5100: 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a ITE_TRANSIENT);.
5110: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
5120: 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 }. }.}../*.**
5130: 54 68 65 73 65 20 61 72 65 20 74 65 73 74 20 66 These are test f
5140: 75 6e 63 74 69 6f 6e 73 2e 20 20 20 20 68 65 78 unctions. hex
5150: 38 28 29 20 69 6e 74 65 72 70 72 65 74 73 20 69 8() interprets i
5160: 74 73 20 61 72 67 75 6d 65 6e 74 20 61 73 0a 2a ts argument as.*
5170: 2a 20 55 54 46 38 20 61 6e 64 20 72 65 74 75 72 * UTF8 and retur
5180: 6e 73 20 61 20 68 65 78 20 65 6e 63 6f 64 69 6e ns a hex encodin
5190: 67 2e 20 20 68 65 78 31 36 6c 65 28 29 20 69 6e g. hex16le() in
51a0: 74 65 72 70 72 65 74 73 20 69 74 73 20 61 72 67 terprets its arg
51b0: 75 6d 65 6e 74 0a 2a 2a 20 61 73 20 55 54 46 31 ument.** as UTF1
51c0: 36 6c 65 20 61 6e 64 20 72 65 74 75 72 6e 73 20 6le and returns
51d0: 61 20 68 65 78 20 65 6e 63 6f 64 69 6e 67 2e 0a a hex encoding..
51e0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 68 */.static void h
51f0: 65 78 38 46 75 6e 63 28 73 71 6c 69 74 65 33 5f ex8Func(sqlite3_
5200: 63 6f 6e 74 65 78 74 20 2a 70 2c 20 69 6e 74 20 context *p, int
5210: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 argc, sqlite3_va
5220: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 lue **argv){. c
5230: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
5240: 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b 0a ar *z;. int i;.
5250: 20 20 63 68 61 72 20 7a 42 75 66 5b 32 30 30 5d char zBuf[200]
5260: 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f ;. z = sqlite3_
5270: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
5280: 30 5d 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 0]);. for(i=0;
5290: 69 3c 73 69 7a 65 6f 66 28 7a 42 75 66 29 2f 32 i<sizeof(zBuf)/2
52a0: 20 2d 20 32 20 26 26 20 7a 5b 69 5d 3b 20 69 2b - 2 && z[i]; i+
52b0: 2b 29 7b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 +){. sprintf(
52c0: 26 7a 42 75 66 5b 69 2a 32 5d 2c 20 22 25 30 32 &zBuf[i*2], "%02
52d0: 78 22 2c 20 7a 5b 69 5d 26 30 78 66 66 29 3b 0a x", z[i]&0xff);.
52e0: 20 20 7d 0a 20 20 7a 42 75 66 5b 69 2a 32 5d 20 }. zBuf[i*2]
52f0: 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 = 0;. sqlite3_r
5300: 65 73 75 6c 74 5f 74 65 78 74 28 70 2c 20 28 63 esult_text(p, (c
5310: 68 61 72 2a 29 7a 42 75 66 2c 20 2d 31 2c 20 53 har*)zBuf, -1, S
5320: 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 QLITE_TRANSIENT)
5330: 3b 0a 7d 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 ;.}.#ifndef SQLI
5340: 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 73 74 TE_OMIT_UTF16.st
5350: 61 74 69 63 20 76 6f 69 64 20 68 65 78 31 36 46 atic void hex16F
5360: 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 unc(sqlite3_cont
5370: 65 78 74 20 2a 70 2c 20 69 6e 74 20 61 72 67 63 ext *p, int argc
5380: 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 , sqlite3_value
5390: 2a 2a 61 72 67 76 29 7b 0a 20 20 63 6f 6e 73 74 **argv){. const
53a0: 20 75 6e 73 69 67 6e 65 64 20 73 68 6f 72 74 20 unsigned short
53b0: 69 6e 74 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b int *z;. int i;
53c0: 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 34 30 30 . char zBuf[400
53d0: 5d 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 ];. z = sqlite3
53e0: 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 61 72 _value_text16(ar
53f0: 67 76 5b 30 5d 29 3b 0a 20 20 66 6f 72 28 69 3d gv[0]);. for(i=
5400: 30 3b 20 69 3c 73 69 7a 65 6f 66 28 7a 42 75 66 0; i<sizeof(zBuf
5410: 29 2f 34 20 2d 20 34 20 26 26 20 7a 5b 69 5d 3b )/4 - 4 && z[i];
5420: 20 69 2b 2b 29 7b 0a 20 20 20 20 73 70 72 69 6e i++){. sprin
5430: 74 66 28 26 7a 42 75 66 5b 69 2a 34 5d 2c 20 22 tf(&zBuf[i*4], "
5440: 25 30 34 78 22 2c 20 7a 5b 69 5d 26 30 78 66 66 %04x", z[i]&0xff
5450: 29 3b 0a 20 20 7d 0a 20 20 7a 42 75 66 5b 69 2a );. }. zBuf[i*
5460: 34 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 4] = 0;. sqlite
5470: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 70 2c 3_result_text(p,
5480: 20 28 63 68 61 72 2a 29 7a 42 75 66 2c 20 2d 31 (char*)zBuf, -1
5490: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
54a0: 4e 54 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f NT);.}.#endif../
54b0: 2a 0a 2a 2a 20 41 20 73 74 72 75 63 74 75 72 65 *.** A structure
54c0: 20 69 6e 74 6f 20 77 68 69 63 68 20 74 6f 20 61 into which to a
54d0: 63 63 75 6d 75 6c 61 74 65 20 74 65 78 74 2e 0a ccumulate text..
54e0: 2a 2f 0a 73 74 72 75 63 74 20 64 73 74 72 20 7b */.struct dstr {
54f0: 0a 20 20 69 6e 74 20 6e 41 6c 6c 6f 63 3b 20 20 . int nAlloc;
5500: 2f 2a 20 53 70 61 63 65 20 61 6c 6c 6f 63 61 74 /* Space allocat
5510: 65 64 20 2a 2f 0a 20 20 69 6e 74 20 6e 55 73 65 ed */. int nUse
5520: 64 3b 20 20 20 2f 2a 20 53 70 61 63 65 20 75 73 d; /* Space us
5530: 65 64 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 3b ed */. char *z;
5540: 20 20 20 20 20 2f 2a 20 54 68 65 20 73 70 61 63 /* The spac
5550: 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 e */.};../*.** A
5560: 70 70 65 6e 64 20 74 65 78 74 20 74 6f 20 61 20 ppend text to a
5570: 64 73 74 72 0a 2a 2f 0a 73 74 61 74 69 63 20 76 dstr.*/.static v
5580: 6f 69 64 20 64 73 74 72 41 70 70 65 6e 64 28 73 oid dstrAppend(s
5590: 74 72 75 63 74 20 64 73 74 72 20 2a 70 2c 20 63 truct dstr *p, c
55a0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c 20 69 6e onst char *z, in
55b0: 74 20 64 69 76 69 64 65 72 29 7b 0a 20 20 69 6e t divider){. in
55c0: 74 20 6e 20 3d 20 28 69 6e 74 29 73 74 72 6c 65 t n = (int)strle
55d0: 6e 28 7a 29 3b 0a 20 20 69 66 28 20 70 2d 3e 6e n(z);. if( p->n
55e0: 55 73 65 64 20 2b 20 6e 20 2b 20 32 20 3e 20 70 Used + n + 2 > p
55f0: 2d 3e 6e 41 6c 6c 6f 63 20 29 7b 0a 20 20 20 20 ->nAlloc ){.
5600: 63 68 61 72 20 2a 7a 4e 65 77 3b 0a 20 20 20 20 char *zNew;.
5610: 70 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 70 2d 3e 6e p->nAlloc = p->n
5620: 41 6c 6c 6f 63 2a 32 20 2b 20 6e 20 2b 20 32 30 Alloc*2 + n + 20
5630: 30 3b 0a 20 20 20 20 7a 4e 65 77 20 3d 20 73 71 0;. zNew = sq
5640: 6c 69 74 65 33 5f 72 65 61 6c 6c 6f 63 28 70 2d lite3_realloc(p-
5650: 3e 7a 2c 20 70 2d 3e 6e 41 6c 6c 6f 63 29 3b 0a >z, p->nAlloc);.
5660: 20 20 20 20 69 66 28 20 7a 4e 65 77 3d 3d 30 20 if( zNew==0
5670: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ){. sqlite3
5680: 5f 66 72 65 65 28 70 2d 3e 7a 29 3b 0a 20 20 20 _free(p->z);.
5690: 20 20 20 6d 65 6d 73 65 74 28 70 2c 20 30 2c 20 memset(p, 0,
56a0: 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 20 sizeof(*p));.
56b0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d return;. }
56c0: 0a 20 20 20 20 70 2d 3e 7a 20 3d 20 7a 4e 65 77 . p->z = zNew
56d0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 64 69 76 69 ;. }. if( divi
56e0: 64 65 72 20 26 26 20 70 2d 3e 6e 55 73 65 64 3e der && p->nUsed>
56f0: 30 20 29 7b 0a 20 20 20 20 70 2d 3e 7a 5b 70 2d 0 ){. p->z[p-
5700: 3e 6e 55 73 65 64 2b 2b 5d 20 3d 20 64 69 76 69 >nUsed++] = divi
5710: 64 65 72 3b 0a 20 20 7d 0a 20 20 6d 65 6d 63 70 der;. }. memcp
5720: 79 28 26 70 2d 3e 7a 5b 70 2d 3e 6e 55 73 65 64 y(&p->z[p->nUsed
5730: 5d 2c 20 7a 2c 20 6e 2b 31 29 3b 0a 20 20 70 2d ], z, n+1);. p-
5740: 3e 6e 55 73 65 64 20 2b 3d 20 6e 3b 0a 7d 0a 0a >nUsed += n;.}..
5750: 2f 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 64 20 66 6f /*.** Invoked fo
5760: 72 20 65 61 63 68 20 63 61 6c 6c 62 61 63 6b 20 r each callback
5770: 66 72 6f 6d 20 73 71 6c 69 74 65 33 45 78 65 63 from sqlite3Exec
5780: 46 75 6e 63 0a 2a 2f 0a 73 74 61 74 69 63 20 69 Func.*/.static i
5790: 6e 74 20 65 78 65 63 46 75 6e 63 43 61 6c 6c 62 nt execFuncCallb
57a0: 61 63 6b 28 76 6f 69 64 20 2a 70 44 61 74 61 2c ack(void *pData,
57b0: 20 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72 20 int argc, char
57c0: 2a 2a 61 72 67 76 2c 20 63 68 61 72 20 2a 2a 4e **argv, char **N
57d0: 6f 74 55 73 65 64 29 7b 0a 20 20 73 74 72 75 63 otUsed){. struc
57e0: 74 20 64 73 74 72 20 2a 70 20 3d 20 28 73 74 72 t dstr *p = (str
57f0: 75 63 74 20 64 73 74 72 2a 29 70 44 61 74 61 3b uct dstr*)pData;
5800: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 . int i;. for(
5810: 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b i=0; i<argc; i++
5820: 29 7b 0a 20 20 20 20 69 66 28 20 61 72 67 76 5b ){. if( argv[
5830: 69 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 64 i]==0 ){. d
5840: 73 74 72 41 70 70 65 6e 64 28 70 2c 20 22 4e 55 strAppend(p, "NU
5850: 4c 4c 22 2c 20 27 20 27 29 3b 0a 20 20 20 20 7d LL", ' ');. }
5860: 65 6c 73 65 7b 0a 20 20 20 20 20 20 64 73 74 72 else{. dstr
5870: 41 70 70 65 6e 64 28 70 2c 20 61 72 67 76 5b 69 Append(p, argv[i
5880: 5d 2c 20 27 20 27 29 3b 0a 20 20 20 20 7d 0a 20 ], ' ');. }.
5890: 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d }. return 0;.}
58a0: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e ../*.** Implemen
58b0: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 78 5f tation of the x_
58c0: 73 71 6c 69 74 65 5f 65 78 65 63 28 29 20 66 75 sqlite_exec() fu
58d0: 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 66 75 nction. This fu
58e0: 6e 63 74 69 6f 6e 20 74 61 6b 65 73 0a 2a 2a 20 nction takes.**
58f0: 61 20 73 69 6e 67 6c 65 20 61 72 67 75 6d 65 6e a single argumen
5900: 74 20 61 6e 64 20 61 74 74 65 6d 70 74 73 20 74 t and attempts t
5910: 6f 20 65 78 65 63 75 74 65 20 74 68 61 74 20 61 o execute that a
5920: 72 67 75 6d 65 6e 74 20 61 73 20 53 51 4c 20 63 rgument as SQL c
5930: 6f 64 65 2e 0a 2a 2a 20 54 68 69 73 20 69 73 20 ode..** This is
5940: 69 6c 6c 65 67 61 6c 20 61 6e 64 20 73 68 6f 75 illegal and shou
5950: 6c 64 20 73 65 74 20 74 68 65 20 53 51 4c 49 54 ld set the SQLIT
5960: 45 5f 4d 49 53 55 53 45 20 66 6c 61 67 20 6f 6e E_MISUSE flag on
5970: 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a 2a the database..*
5980: 2a 0a 2a 2a 20 32 30 30 34 2d 4a 61 6e 2d 30 37 *.** 2004-Jan-07
5990: 3a 20 20 57 65 20 68 61 76 65 20 63 68 61 6e 67 : We have chang
59a0: 65 64 20 74 68 69 73 20 74 6f 20 6d 61 6b 65 20 ed this to make
59b0: 69 74 20 6c 65 67 61 6c 20 74 6f 20 63 61 6c 6c it legal to call
59c0: 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28 29 0a sqlite3_exec().
59d0: 2a 2a 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 61 ** from within a
59e0: 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 2e 20 function call.
59f0: 20 0a 2a 2a 20 0a 2a 2a 20 54 68 69 73 20 72 6f .** .** This ro
5a00: 75 74 69 6e 65 20 73 69 6d 75 6c 61 74 65 73 20 utine simulates
5a10: 74 68 65 20 65 66 66 65 63 74 20 6f 66 20 68 61 the effect of ha
5a20: 76 69 6e 67 20 74 77 6f 20 74 68 72 65 61 64 73 ving two threads
5a30: 20 61 74 74 65 6d 70 74 20 74 6f 0a 2a 2a 20 75 attempt to.** u
5a40: 73 65 20 74 68 65 20 73 61 6d 65 20 64 61 74 61 se the same data
5a50: 62 61 73 65 20 61 74 20 74 68 65 20 73 61 6d 65 base at the same
5a60: 20 74 69 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 time..*/.static
5a70: 20 76 6f 69 64 20 73 71 6c 69 74 65 33 45 78 65 void sqlite3Exe
5a80: 63 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 cFunc(. sqlite3
5a90: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
5aa0: 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 t, . int argc,
5ab0: 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 . sqlite3_valu
5ac0: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 74 e **argv.){. st
5ad0: 72 75 63 74 20 64 73 74 72 20 78 3b 0a 20 20 6d ruct dstr x;. m
5ae0: 65 6d 73 65 74 28 26 78 2c 20 30 2c 20 73 69 7a emset(&x, 0, siz
5af0: 65 6f 66 28 78 29 29 3b 0a 20 20 28 76 6f 69 64 eof(x));. (void
5b00: 29 73 71 6c 69 74 65 33 5f 65 78 65 63 28 28 73 )sqlite3_exec((s
5b10: 71 6c 69 74 65 33 2a 29 73 71 6c 69 74 65 33 5f qlite3*)sqlite3_
5b20: 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 user_data(contex
5b30: 74 29 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a t),. (char*
5b40: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 )sqlite3_value_t
5b50: 65 78 74 28 61 72 67 76 5b 30 5d 29 2c 0a 20 20 ext(argv[0]),.
5b60: 20 20 20 20 65 78 65 63 46 75 6e 63 43 61 6c 6c execFuncCall
5b70: 62 61 63 6b 2c 20 26 78 2c 20 30 29 3b 0a 20 20 back, &x, 0);.
5b80: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 sqlite3_result_t
5b90: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 78 2e 7a ext(context, x.z
5ba0: 2c 20 78 2e 6e 55 73 65 64 2c 20 53 51 4c 49 54 , x.nUsed, SQLIT
5bb0: 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 E_TRANSIENT);.
5bc0: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 78 2e 7a sqlite3_free(x.z
5bd0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c );.}../*.** Impl
5be0: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 6b ementation of tk
5bf0: 74 32 32 31 33 66 75 6e 63 28 29 2c 20 61 20 73 t2213func(), a s
5c00: 63 61 6c 61 72 20 66 75 6e 63 74 69 6f 6e 20 74 calar function t
5c10: 68 61 74 20 74 61 6b 65 73 20 65 78 61 63 74 6c hat takes exactl
5c20: 79 0a 2a 2a 20 6f 6e 65 20 61 72 67 75 6d 65 6e y.** one argumen
5c30: 74 2e 20 49 74 20 68 61 73 20 74 77 6f 20 69 6e t. It has two in
5c40: 74 65 72 65 73 74 69 6e 67 20 66 65 61 74 75 72 teresting featur
5c50: 65 73 3a 0a 2a 2a 0a 2a 2a 20 2a 20 49 74 20 63 es:.**.** * It c
5c60: 61 6c 6c 73 20 73 71 6c 69 74 65 33 5f 76 61 6c alls sqlite3_val
5c70: 75 65 5f 74 65 78 74 28 29 20 33 20 74 69 6d 65 ue_text() 3 time
5c80: 73 20 6f 6e 20 74 68 65 20 61 72 67 75 6d 65 6e s on the argumen
5c90: 74 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 2a t sqlite3_value*
5ca0: 2e 0a 2a 2a 20 20 20 49 66 20 74 68 65 20 74 68 ..** If the th
5cb0: 72 65 65 20 70 6f 69 6e 74 65 72 73 20 72 65 74 ree pointers ret
5cc0: 75 72 6e 65 64 20 61 72 65 20 6e 6f 74 20 74 68 urned are not th
5cd0: 65 20 73 61 6d 65 20 61 6e 20 53 51 4c 20 65 72 e same an SQL er
5ce0: 72 6f 72 20 69 73 20 72 61 69 73 65 64 2e 0a 2a ror is raised..*
5cf0: 2a 0a 2a 2a 20 2a 20 4f 74 68 65 72 77 69 73 65 *.** * Otherwise
5d00: 20 69 74 20 72 65 74 75 72 6e 73 20 61 20 63 6f it returns a co
5d10: 70 79 20 6f 66 20 74 68 65 20 74 65 78 74 20 72 py of the text r
5d20: 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 epresentation of
5d30: 20 69 74 73 20 0a 2a 2a 20 20 20 61 72 67 75 6d its .** argum
5d40: 65 6e 74 20 69 6e 20 73 75 63 68 20 61 20 77 61 ent in such a wa
5d50: 79 20 61 73 20 74 68 65 20 56 44 42 45 20 72 65 y as the VDBE re
5d60: 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 69 73 20 presentation is
5d70: 61 20 4d 65 6d 2a 20 63 65 6c 6c 20 0a 2a 2a 20 a Mem* cell .**
5d80: 20 20 77 69 74 68 20 74 68 65 20 4d 45 4d 5f 54 with the MEM_T
5d90: 65 72 6d 20 66 6c 61 67 20 63 6c 65 61 72 2e 20 erm flag clear.
5da0: 0a 2a 2a 0a 2a 2a 20 54 69 63 6b 65 74 20 23 32 .**.** Ticket #2
5db0: 32 31 33 20 63 61 6e 20 74 68 65 72 65 66 6f 72 213 can therefor
5dc0: 65 20 62 65 20 74 65 73 74 65 64 20 62 79 20 65 e be tested by e
5dd0: 76 61 6c 75 61 74 69 6e 67 20 74 68 65 20 66 6f valuating the fo
5de0: 6c 6c 6f 77 69 6e 67 0a 2a 2a 20 53 51 4c 20 65 llowing.** SQL e
5df0: 78 70 72 65 73 73 69 6f 6e 3a 0a 2a 2a 0a 2a 2a xpression:.**.**
5e00: 20 20 20 74 6b 74 32 32 31 33 66 75 6e 63 28 74 tkt2213func(t
5e10: 6b 74 32 32 31 33 66 75 6e 63 28 27 61 20 73 74 kt2213func('a st
5e20: 72 69 6e 67 27 29 29 3b 0a 2a 2f 0a 73 74 61 74 ring'));.*/.stat
5e30: 69 63 20 76 6f 69 64 20 74 6b 74 32 32 31 33 46 ic void tkt2213F
5e40: 75 6e 63 74 69 6f 6e 28 0a 20 20 73 71 6c 69 74 unction(. sqlit
5e50: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
5e60: 65 78 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 ext, . int argc
5e70: 2c 20 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 , . sqlite3_va
5e80: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 lue **argv.){.
5e90: 69 6e 74 20 6e 54 65 78 74 3b 0a 20 20 75 6e 73 int nText;. uns
5ea0: 69 67 6e 65 64 20 63 68 61 72 20 63 6f 6e 73 74 igned char const
5eb0: 20 2a 7a 54 65 78 74 31 3b 0a 20 20 75 6e 73 69 *zText1;. unsi
5ec0: 67 6e 65 64 20 63 68 61 72 20 63 6f 6e 73 74 20 gned char const
5ed0: 2a 7a 54 65 78 74 32 3b 0a 20 20 75 6e 73 69 67 *zText2;. unsig
5ee0: 6e 65 64 20 63 68 61 72 20 63 6f 6e 73 74 20 2a ned char const *
5ef0: 7a 54 65 78 74 33 3b 0a 0a 20 20 6e 54 65 78 74 zText3;.. nText
5f00: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
5f10: 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b _bytes(argv[0]);
5f20: 0a 20 20 7a 54 65 78 74 31 20 3d 20 73 71 6c 69 . zText1 = sqli
5f30: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
5f40: 72 67 76 5b 30 5d 29 3b 0a 20 20 7a 54 65 78 74 rgv[0]);. zText
5f50: 32 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 2 = sqlite3_valu
5f60: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b e_text(argv[0]);
5f70: 0a 20 20 7a 54 65 78 74 33 20 3d 20 73 71 6c 69 . zText3 = sqli
5f80: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
5f90: 72 67 76 5b 30 5d 29 3b 0a 0a 20 20 69 66 28 20 rgv[0]);.. if(
5fa0: 7a 54 65 78 74 31 21 3d 7a 54 65 78 74 32 20 7c zText1!=zText2 |
5fb0: 7c 20 7a 54 65 78 74 32 21 3d 7a 54 65 78 74 33 | zText2!=zText3
5fc0: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f ){. sqlite3_
5fd0: 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e result_error(con
5fe0: 74 65 78 74 2c 20 22 74 6b 74 32 32 31 33 20 69 text, "tkt2213 i
5ff0: 73 20 6e 6f 74 20 66 69 78 65 64 22 2c 20 2d 31 s not fixed", -1
6000: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 );. }else{.
6010: 63 68 61 72 20 2a 7a 43 6f 70 79 20 3d 20 28 63 char *zCopy = (c
6020: 68 61 72 20 2a 29 73 71 6c 69 74 65 33 5f 6d 61 har *)sqlite3_ma
6030: 6c 6c 6f 63 28 6e 54 65 78 74 29 3b 0a 20 20 20 lloc(nText);.
6040: 20 6d 65 6d 63 70 79 28 7a 43 6f 70 79 2c 20 7a memcpy(zCopy, z
6050: 54 65 78 74 31 2c 20 6e 54 65 78 74 29 3b 0a 20 Text1, nText);.
6060: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
6070: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 t_text(context,
6080: 7a 43 6f 70 79 2c 20 6e 54 65 78 74 2c 20 73 71 zCopy, nText, sq
6090: 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 7d lite3_free);. }
60a0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f .}../*.** The fo
60b0: 6c 6c 6f 77 69 6e 67 20 53 51 4c 20 66 75 6e 63 llowing SQL func
60c0: 74 69 6f 6e 20 74 61 6b 65 73 20 34 20 61 72 67 tion takes 4 arg
60d0: 75 6d 65 6e 74 73 2e 20 20 54 68 65 20 32 6e 64 uments. The 2nd
60e0: 20 61 6e 64 0a 2a 2a 20 34 74 68 20 61 72 67 75 and.** 4th argu
60f0: 6d 65 6e 74 20 6d 75 73 74 20 62 65 20 6f 6e 65 ment must be one
6100: 20 6f 66 20 74 68 65 73 65 20 73 74 72 69 6e 67 of these string
6110: 73 3a 20 20 27 74 65 78 74 27 2c 20 27 74 65 78 s: 'text', 'tex
6120: 74 31 36 27 2c 0a 2a 2a 20 6f 72 20 27 62 6c 6f t16',.** or 'blo
6130: 62 27 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 b' corresponding
6140: 20 74 6f 20 41 50 49 20 66 75 6e 63 74 69 6f 6e to API function
6150: 73 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 73 71 6c s.**.** sql
6160: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
6170: 29 0a 2a 2a 20 20 20 20 20 20 73 71 6c 69 74 65 ).** sqlite
6180: 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 29 3_value_text16()
6190: 0a 2a 2a 20 20 20 20 20 20 73 71 6c 69 74 65 33 .** sqlite3
61a0: 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 29 0a 2a 2a _value_blob().**
61b0: 0a 2a 2a 20 54 68 65 20 74 68 69 72 64 20 61 72 .** The third ar
61c0: 67 75 6d 65 6e 74 20 69 73 20 61 20 73 74 72 69 gument is a stri
61d0: 6e 67 2c 20 65 69 74 68 65 72 20 27 62 79 74 65 ng, either 'byte
61e0: 73 27 20 6f 72 20 27 62 79 74 65 73 31 36 27 20 s' or 'bytes16'
61f0: 6f 72 20 27 6e 6f 6f 70 27 2c 0a 2a 2a 20 63 6f or 'noop',.** co
6200: 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 41 rresponding to A
6210: 50 49 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 PIs:.**.**
6220: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 sqlite3_value_by
6230: 74 65 73 28 29 0a 2a 2a 20 20 20 20 20 20 73 71 tes().** sq
6240: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 lite3_value_byte
6250: 73 31 36 28 29 0a 2a 2a 20 20 20 20 20 20 6e 6f s16().** no
6260: 6f 70 0a 2a 2a 0a 2a 2a 20 54 68 65 20 41 50 49 op.**.** The API
6270: 73 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 s designated by
6280: 74 68 65 20 32 6e 64 20 74 68 72 6f 75 67 68 20 the 2nd through
6290: 34 74 68 20 61 72 67 75 6d 65 6e 74 73 20 61 72 4th arguments ar
62a0: 65 20 61 70 70 6c 69 65 64 0a 2a 2a 20 74 6f 20 e applied.** to
62b0: 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 the first argume
62c0: 6e 74 20 69 6e 20 6f 72 64 65 72 2e 20 20 49 66 nt in order. If
62d0: 20 74 68 65 20 70 6f 69 6e 74 65 72 73 20 72 65 the pointers re
62e0: 74 75 72 6e 65 64 20 62 79 20 74 68 65 0a 2a 2a turned by the.**
62f0: 20 73 65 63 6f 6e 64 20 61 6e 64 20 66 6f 75 72 second and four
6300: 74 68 20 61 72 65 20 64 69 66 66 65 72 65 6e 74 th are different
6310: 2c 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 72 , this routine r
6320: 65 74 75 72 6e 73 20 31 2e 20 20 4f 74 68 65 72 eturns 1. Other
6330: 77 69 73 65 2c 0a 2a 2a 20 74 68 69 73 20 72 6f wise,.** this ro
6340: 75 74 69 6e 65 20 72 65 74 75 72 6e 73 20 30 2e utine returns 0.
6350: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 .**.** This func
6360: 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 tion is used to
6370: 74 65 73 74 20 74 6f 20 73 65 65 20 77 68 65 6e test to see when
6380: 20 72 65 74 75 72 6e 65 64 20 70 6f 69 6e 74 65 returned pointe
6390: 72 73 20 66 72 6f 6d 0a 2a 2a 20 74 68 65 20 5f rs from.** the _
63a0: 74 65 78 74 28 29 2c 20 5f 74 65 78 74 31 36 28 text(), _text16(
63b0: 29 20 61 6e 64 20 5f 62 6c 6f 62 28 29 20 41 50 ) and _blob() AP
63c0: 49 73 20 62 65 63 6f 6d 65 20 69 6e 76 61 6c 69 Is become invali
63d0: 64 61 74 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 dated..*/.static
63e0: 20 76 6f 69 64 20 70 74 72 43 68 6e 67 46 75 6e void ptrChngFun
63f0: 63 74 69 6f 6e 28 0a 20 20 73 71 6c 69 74 65 33 ction(. sqlite3
6400: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
6410: 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 t, . int argc,
6420: 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 . sqlite3_valu
6430: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f e **argv.){. co
6440: 6e 73 74 20 76 6f 69 64 20 2a 70 31 2c 20 2a 70 nst void *p1, *p
6450: 32 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2;. const char
6460: 2a 7a 43 6d 64 3b 0a 20 20 69 66 28 20 61 72 67 *zCmd;. if( arg
6470: 63 21 3d 34 20 29 20 72 65 74 75 72 6e 3b 0a 20 c!=4 ) return;.
6480: 20 7a 43 6d 64 20 3d 20 28 63 6f 6e 73 74 20 63 zCmd = (const c
6490: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
64a0: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31 5d 29 ue_text(argv[1])
64b0: 3b 0a 20 20 69 66 28 20 7a 43 6d 64 3d 3d 30 20 ;. if( zCmd==0
64c0: 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 66 28 20 ) return;. if(
64d0: 73 74 72 63 6d 70 28 7a 43 6d 64 2c 22 74 65 78 strcmp(zCmd,"tex
64e0: 74 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 70 31 t")==0 ){. p1
64f0: 20 3d 20 28 63 6f 6e 73 74 20 76 6f 69 64 2a 29 = (const void*)
6500: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
6510: 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 23 69 66 xt(argv[0]);.#if
6520: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 ndef SQLITE_OMIT
6530: 5f 55 54 46 31 36 0a 20 20 7d 65 6c 73 65 20 69 _UTF16. }else i
6540: 66 28 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c 20 f( strcmp(zCmd,
6550: 22 74 65 78 74 31 36 22 29 3d 3d 30 20 29 7b 0a "text16")==0 ){.
6560: 20 20 20 20 70 31 20 3d 20 28 63 6f 6e 73 74 20 p1 = (const
6570: 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 76 61 void*)sqlite3_va
6580: 6c 75 65 5f 74 65 78 74 31 36 28 61 72 67 76 5b lue_text16(argv[
6590: 30 5d 29 3b 0a 23 65 6e 64 69 66 0a 20 20 7d 65 0]);.#endif. }e
65a0: 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a lse if( strcmp(z
65b0: 43 6d 64 2c 20 22 62 6c 6f 62 22 29 3d 3d 30 20 Cmd, "blob")==0
65c0: 29 7b 0a 20 20 20 20 70 31 20 3d 20 28 63 6f 6e ){. p1 = (con
65d0: 73 74 20 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 st void*)sqlite3
65e0: 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 _value_blob(argv
65f0: 5b 30 5d 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 [0]);. }else{.
6600: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 return;. }.
6610: 20 7a 43 6d 64 20 3d 20 28 63 6f 6e 73 74 20 63 zCmd = (const c
6620: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
6630: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 32 5d 29 ue_text(argv[2])
6640: 3b 0a 20 20 69 66 28 20 7a 43 6d 64 3d 3d 30 20 ;. if( zCmd==0
6650: 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 66 28 20 ) return;. if(
6660: 73 74 72 63 6d 70 28 7a 43 6d 64 2c 22 62 79 74 strcmp(zCmd,"byt
6670: 65 73 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 73 es")==0 ){. s
6680: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 qlite3_value_byt
6690: 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 23 69 66 es(argv[0]);.#if
66a0: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 ndef SQLITE_OMIT
66b0: 5f 55 54 46 31 36 0a 20 20 7d 65 6c 73 65 20 69 _UTF16. }else i
66c0: 66 28 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c 20 f( strcmp(zCmd,
66d0: 22 62 79 74 65 73 31 36 22 29 3d 3d 30 20 29 7b "bytes16")==0 ){
66e0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 76 61 6c . sqlite3_val
66f0: 75 65 5f 62 79 74 65 73 31 36 28 61 72 67 76 5b ue_bytes16(argv[
6700: 30 5d 29 3b 0a 23 65 6e 64 69 66 0a 20 20 7d 65 0]);.#endif. }e
6710: 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a lse if( strcmp(z
6720: 43 6d 64 2c 20 22 6e 6f 6f 70 22 29 3d 3d 30 20 Cmd, "noop")==0
6730: 29 7b 0a 20 20 20 20 2f 2a 20 64 6f 20 6e 6f 74 ){. /* do not
6740: 68 69 6e 67 20 2a 2f 0a 20 20 7d 65 6c 73 65 7b hing */. }else{
6750: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d . return;. }
6760: 0a 20 20 7a 43 6d 64 20 3d 20 28 63 6f 6e 73 74 . zCmd = (const
6770: 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 char*)sqlite3_v
6780: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 33 alue_text(argv[3
6790: 5d 29 3b 0a 20 20 69 66 28 20 7a 43 6d 64 3d 3d ]);. if( zCmd==
67a0: 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 66 0 ) return;. if
67b0: 28 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c 22 74 ( strcmp(zCmd,"t
67c0: 65 78 74 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 ext")==0 ){.
67d0: 70 32 20 3d 20 28 63 6f 6e 73 74 20 76 6f 69 64 p2 = (const void
67e0: 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f *)sqlite3_value_
67f0: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 23 text(argv[0]);.#
6800: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
6810: 49 54 5f 55 54 46 31 36 0a 20 20 7d 65 6c 73 65 IT_UTF16. }else
6820: 20 69 66 28 20 73 74 72 63 6d 70 28 7a 43 6d 64 if( strcmp(zCmd
6830: 2c 20 22 74 65 78 74 31 36 22 29 3d 3d 30 20 29 , "text16")==0 )
6840: 7b 0a 20 20 20 20 70 32 20 3d 20 28 63 6f 6e 73 {. p2 = (cons
6850: 74 20 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f t void*)sqlite3_
6860: 76 61 6c 75 65 5f 74 65 78 74 31 36 28 61 72 67 value_text16(arg
6870: 76 5b 30 5d 29 3b 0a 23 65 6e 64 69 66 0a 20 20 v[0]);.#endif.
6880: 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 }else if( strcmp
6890: 28 7a 43 6d 64 2c 20 22 62 6c 6f 62 22 29 3d 3d (zCmd, "blob")==
68a0: 30 20 29 7b 0a 20 20 20 20 70 32 20 3d 20 28 63 0 ){. p2 = (c
68b0: 6f 6e 73 74 20 76 6f 69 64 2a 29 73 71 6c 69 74 onst void*)sqlit
68c0: 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72 e3_value_blob(ar
68d0: 67 76 5b 30 5d 29 3b 0a 20 20 7d 65 6c 73 65 7b gv[0]);. }else{
68e0: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d . return;. }
68f0: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c . sqlite3_resul
6900: 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 70 t_int(context, p
6910: 31 21 3d 70 32 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 1!=p2);.}../*.**
6920: 20 54 68 69 73 20 53 51 4c 20 66 75 6e 63 74 69 This SQL functi
6930: 6f 6e 20 72 65 74 75 72 6e 73 20 61 20 64 69 66 on returns a dif
6940: 66 65 72 65 6e 74 20 61 6e 73 77 65 72 20 65 61 ferent answer ea
6950: 63 68 20 74 69 6d 65 20 69 74 20 69 73 20 63 61 ch time it is ca
6960: 6c 6c 65 64 2c 20 65 76 65 6e 20 69 66 0a 2a 2a lled, even if.**
6970: 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 61 the arguments a
6980: 72 65 20 74 68 65 20 73 61 6d 65 2e 0a 2a 2f 0a re the same..*/.
6990: 73 74 61 74 69 63 20 76 6f 69 64 20 6e 6f 6e 64 static void nond
69a0: 65 74 65 72 6d 69 6e 69 73 74 69 63 46 75 6e 63 eterministicFunc
69b0: 74 69 6f 6e 28 0a 20 20 73 71 6c 69 74 65 33 5f tion(. sqlite3_
69c0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
69d0: 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 , . int argc,
69e0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
69f0: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 74 61 **argv.){. sta
6a00: 74 69 63 20 69 6e 74 20 63 6e 74 20 3d 20 30 3b tic int cnt = 0;
6a10: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c . sqlite3_resul
6a20: 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 63 t_int(context, c
6a30: 6e 74 2b 2b 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 nt++);.}../*.**
6a40: 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
6a50: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 create_function
6a60: 44 42 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 74 68 DB.**.** Call th
6a70: 65 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 e sqlite3_create
6a80: 5f 66 75 6e 63 74 69 6f 6e 20 41 50 49 20 6f 6e _function API on
6a90: 20 74 68 65 20 67 69 76 65 6e 20 64 61 74 61 62 the given datab
6aa0: 61 73 65 20 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 ase in order.**
6ab0: 74 6f 20 63 72 65 61 74 65 20 61 20 66 75 6e 63 to create a func
6ac0: 74 69 6f 6e 20 6e 61 6d 65 64 20 22 78 5f 63 6f tion named "x_co
6ad0: 61 6c 65 73 63 65 22 2e 20 20 54 68 69 73 20 66 alesce". This f
6ae0: 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 74 68 65 unction does the
6af0: 20 73 61 6d 65 20 74 68 69 6e 67 0a 2a 2a 20 61 same thing.** a
6b00: 73 20 74 68 65 20 22 63 6f 61 6c 65 73 63 65 22 s the "coalesce"
6b10: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 function. This
6b20: 20 66 75 6e 63 74 69 6f 6e 20 61 6c 73 6f 20 72 function also r
6b30: 65 67 69 73 74 65 72 73 20 61 6e 20 53 51 4c 20 egisters an SQL
6b40: 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 6e 61 6d 65 function.** name
6b50: 64 20 22 78 5f 73 71 6c 69 74 65 5f 65 78 65 63 d "x_sqlite_exec
6b60: 22 20 74 68 61 74 20 69 6e 76 6f 6b 65 73 20 73 " that invokes s
6b70: 71 6c 69 74 65 33 5f 65 78 65 63 28 29 2e 20 20 qlite3_exec().
6b80: 49 6e 76 6f 6b 69 6e 67 20 73 71 6c 69 74 65 33 Invoking sqlite3
6b90: 5f 65 78 65 63 28 29 0a 2a 2a 20 69 6e 20 74 68 _exec().** in th
6ba0: 69 73 20 77 61 79 20 69 73 20 69 6c 6c 65 67 61 is way is illega
6bb0: 6c 20 72 65 63 75 72 73 69 6f 6e 20 61 6e 64 20 l recursion and
6bc0: 73 68 6f 75 6c 64 20 72 61 69 73 65 20 61 6e 20 should raise an
6bd0: 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 65 72 SQLITE_MISUSE er
6be0: 72 6f 72 2e 0a 2a 2a 20 54 68 65 20 65 66 66 65 ror..** The effe
6bf0: 63 74 20 69 73 20 73 69 6d 69 6c 61 72 20 74 6f ct is similar to
6c00: 20 74 72 79 69 6e 67 20 74 6f 20 75 73 65 20 74 trying to use t
6c10: 68 65 20 73 61 6d 65 20 64 61 74 61 62 61 73 65 he same database
6c20: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 72 6f 6d connection from
6c30: 0a 2a 2a 20 74 77 6f 20 74 68 72 65 61 64 73 20 .** two threads
6c40: 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 at the same time
6c50: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6f 72 69 67 ..**.** The orig
6c60: 69 6e 61 6c 20 6d 6f 74 69 76 61 74 69 6f 6e 20 inal motivation
6c70: 66 6f 72 20 74 68 69 73 20 72 6f 75 74 69 6e 65 for this routine
6c80: 20 77 61 73 20 74 6f 20 62 65 20 61 62 6c 65 20 was to be able
6c90: 74 6f 20 63 61 6c 6c 20 74 68 65 0a 2a 2a 20 73 to call the.** s
6ca0: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
6cb0: 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 nction function
6cc0: 77 68 69 6c 65 20 61 20 71 75 65 72 79 20 69 73 while a query is
6cd0: 20 69 6e 20 70 72 6f 67 72 65 73 73 20 69 6e 20 in progress in
6ce0: 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 74 65 73 74 order.** to test
6cf0: 20 74 68 65 20 53 51 4c 49 54 45 5f 4d 49 53 55 the SQLITE_MISU
6d00: 53 45 20 64 65 74 65 63 74 69 6f 6e 20 6c 6f 67 SE detection log
6d10: 69 63 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ic..*/.static in
6d20: 74 20 74 65 73 74 5f 63 72 65 61 74 65 5f 66 75 t test_create_fu
6d30: 6e 63 74 69 6f 6e 28 0a 20 20 76 6f 69 64 20 2a nction(. void *
6d40: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
6d50: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
6d60: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
6d70: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
6d80: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
6d90: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
6da0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
6db0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
6dc0: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
6dd0: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
6de0: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
6df0: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
6e00: 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 73 71 6c . int rc;. sql
6e10: 69 74 65 33 20 2a 64 62 3b 0a 0a 20 20 69 66 28 ite3 *db;.. if(
6e20: 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 argc!=2 ){.
6e30: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
6e40: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
6e50: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
6e60: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a e \"", argv[0],.
6e70: 20 20 20 20 20 20 20 22 20 44 42 5c 22 22 2c 20 " DB\"",
6e80: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
6e90: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
6ea0: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
6eb0: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
6ec0: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
6ed0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 TCL_ERROR;. rc
6ee0: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
6ef0: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 78 _function(db, "x
6f00: 5f 63 6f 61 6c 65 73 63 65 22 2c 20 2d 31 2c 20 _coalesce", -1,
6f10: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 SQLITE_UTF8, 0,
6f20: 0a 20 20 20 20 20 20 20 20 74 31 5f 69 66 6e 75 . t1_ifnu
6f30: 6c 6c 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 llFunc, 0, 0);.
6f40: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f if( rc==SQLITE_
6f50: 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 OK ){. rc = s
6f60: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
6f70: 6e 63 74 69 6f 6e 28 64 62 2c 20 22 68 65 78 38 nction(db, "hex8
6f80: 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 ", 1, SQLITE_UTF
6f90: 38 20 7c 20 53 51 4c 49 54 45 5f 44 45 54 45 52 8 | SQLITE_DETER
6fa0: 4d 49 4e 49 53 54 49 43 2c 0a 20 20 20 20 20 20 MINISTIC,.
6fb0: 20 20 20 20 30 2c 20 68 65 78 38 46 75 6e 63 2c 0, hex8Func,
6fc0: 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 23 69 66 6e 0, 0);. }.#ifn
6fd0: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
6fe0: 55 54 46 31 36 0a 20 20 69 66 28 20 72 63 3d 3d UTF16. if( rc==
6ff0: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
7000: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 rc = sqlite3_cr
7010: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 eate_function(db
7020: 2c 20 22 68 65 78 31 36 22 2c 20 31 2c 20 53 51 , "hex16", 1, SQ
7030: 4c 49 54 45 5f 55 54 46 31 36 20 7c 20 53 51 4c LITE_UTF16 | SQL
7040: 49 54 45 5f 44 45 54 45 52 4d 49 4e 49 53 54 49 ITE_DETERMINISTI
7050: 43 2c 0a 20 20 20 20 20 20 20 20 20 20 30 2c 20 C,. 0,
7060: 68 65 78 31 36 46 75 6e 63 2c 20 30 2c 20 30 29 hex16Func, 0, 0)
7070: 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 69 ;. }.#endif. i
7080: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b f( rc==SQLITE_OK
7090: 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c ){. rc = sql
70a0: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 ite3_create_func
70b0: 74 69 6f 6e 28 64 62 2c 20 22 74 6b 74 32 32 31 tion(db, "tkt221
70c0: 33 66 75 6e 63 22 2c 20 31 2c 20 53 51 4c 49 54 3func", 1, SQLIT
70d0: 45 5f 41 4e 59 2c 20 30 2c 20 0a 20 20 20 20 20 E_ANY, 0, .
70e0: 20 20 20 20 20 74 6b 74 32 32 31 33 46 75 6e 63 tkt2213Func
70f0: 74 69 6f 6e 2c 20 30 2c 20 30 29 3b 0a 20 20 7d tion, 0, 0);. }
7100: 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 . if( rc==SQLIT
7110: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d E_OK ){. rc =
7120: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
7130: 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 70 6f function(db, "po
7140: 69 6e 74 65 72 5f 63 68 61 6e 67 65 22 2c 20 34 inter_change", 4
7150: 2c 20 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c , SQLITE_ANY, 0,
7160: 20 0a 20 20 20 20 20 20 20 20 20 20 70 74 72 43 . ptrC
7170: 68 6e 67 46 75 6e 63 74 69 6f 6e 2c 20 30 2c 20 hngFunction, 0,
7180: 30 29 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 46 75 0);. }.. /* Fu
7190: 6e 63 74 69 6f 6e 73 20 63 6f 75 6e 74 65 72 31 nctions counter1
71a0: 28 29 20 61 6e 64 20 63 6f 75 6e 74 65 72 32 28 () and counter2(
71b0: 29 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 ) have the same
71c0: 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 2d implementation -
71d0: 20 74 68 65 79 0a 20 20 2a 2a 20 62 6f 74 68 20 they. ** both
71e0: 72 65 74 75 72 6e 20 61 6e 20 61 73 63 65 6e 64 return an ascend
71f0: 69 6e 67 20 69 6e 74 65 67 65 72 20 77 69 74 68 ing integer with
7200: 20 65 61 63 68 20 63 61 6c 6c 2e 20 20 42 75 74 each call. But
7210: 20 63 6f 75 6e 74 65 72 31 28 29 20 69 73 20 6d counter1() is m
7220: 61 72 6b 65 64 0a 20 20 2a 2a 20 61 73 20 6e 6f arked. ** as no
7230: 6e 2d 64 65 74 65 72 6d 69 6e 69 73 74 69 63 20 n-deterministic
7240: 61 6e 64 20 63 6f 75 6e 74 65 72 32 28 29 20 69 and counter2() i
7250: 73 20 6d 61 72 6b 65 64 20 61 73 20 64 65 74 65 s marked as dete
7260: 72 6d 69 6e 69 73 74 69 63 2e 0a 20 20 2a 2f 0a rministic.. */.
7270: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 if( rc==SQLITE
7280: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 _OK ){. rc =
7290: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 sqlite3_create_f
72a0: 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 63 6f 75 unction(db, "cou
72b0: 6e 74 65 72 31 22 2c 20 2d 31 2c 20 53 51 4c 49 nter1", -1, SQLI
72c0: 54 45 5f 55 54 46 38 2c 0a 20 20 20 20 20 20 20 TE_UTF8,.
72d0: 20 20 20 30 2c 20 6e 6f 6e 64 65 74 65 72 6d 69 0, nondetermi
72e0: 6e 69 73 74 69 63 46 75 6e 63 74 69 6f 6e 2c 20 nisticFunction,
72f0: 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28 0, 0);. }. if(
7300: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc==SQLITE_OK )
7310: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 {. rc = sqlit
7320: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
7330: 6f 6e 28 64 62 2c 20 22 63 6f 75 6e 74 65 72 32 on(db, "counter2
7340: 22 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 55 54 ", -1, SQLITE_UT
7350: 46 38 7c 53 51 4c 49 54 45 5f 44 45 54 45 52 4d F8|SQLITE_DETERM
7360: 49 4e 49 53 54 49 43 2c 0a 20 20 20 20 20 20 20 INISTIC,.
7370: 20 20 20 30 2c 20 6e 6f 6e 64 65 74 65 72 6d 69 0, nondetermi
7380: 6e 69 73 74 69 63 46 75 6e 63 74 69 6f 6e 2c 20 nisticFunction,
7390: 30 2c 20 30 29 3b 0a 20 20 7d 0a 0a 23 69 66 6e 0, 0);. }..#ifn
73a0: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
73b0: 55 54 46 31 36 0a 20 20 2f 2a 20 55 73 65 20 74 UTF16. /* Use t
73c0: 68 65 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 he sqlite3_creat
73d0: 65 5f 66 75 6e 63 74 69 6f 6e 31 36 28 29 20 41 e_function16() A
73e0: 50 49 20 68 65 72 65 2e 20 4d 61 69 6e 6c 79 20 PI here. Mainly
73f0: 66 6f 72 20 66 75 6e 2c 20 62 75 74 20 61 6c 73 for fun, but als
7400: 6f 20 0a 20 20 2a 2a 20 62 65 63 61 75 73 65 20 o . ** because
7410: 69 74 20 69 73 20 6e 6f 74 20 74 65 73 74 65 64 it is not tested
7420: 20 61 6e 79 77 68 65 72 65 20 65 6c 73 65 2e 20 anywhere else.
7430: 2a 2f 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c */. if( rc==SQL
7440: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 63 6f ITE_OK ){. co
7450: 6e 73 74 20 76 6f 69 64 20 2a 7a 55 74 66 31 36 nst void *zUtf16
7460: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 76 61 ;. sqlite3_va
7470: 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 20 20 20 73 lue *pVal;. s
7480: 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 qlite3_mutex_ent
7490: 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 er(db->mutex);.
74a0: 20 20 20 70 56 61 6c 20 3d 20 73 71 6c 69 74 65 pVal = sqlite
74b0: 33 56 61 6c 75 65 4e 65 77 28 64 62 29 3b 0a 20 3ValueNew(db);.
74c0: 20 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 53 sqlite3ValueS
74d0: 65 74 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c 20 etStr(pVal, -1,
74e0: 22 78 5f 73 71 6c 69 74 65 5f 65 78 65 63 22 2c "x_sqlite_exec",
74f0: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 53 51 SQLITE_UTF8, SQ
7500: 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 LITE_STATIC);.
7510: 20 20 7a 55 74 66 31 36 20 3d 20 73 71 6c 69 74 zUtf16 = sqlit
7520: 65 33 56 61 6c 75 65 54 65 78 74 28 70 56 61 6c e3ValueText(pVal
7530: 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4e 41 , SQLITE_UTF16NA
7540: 54 49 56 45 29 3b 0a 20 20 20 20 69 66 28 20 64 TIVE);. if( d
7550: 62 2d 3e 6d 61 6c 6c 6f 63 46 61 69 6c 65 64 20 b->mallocFailed
7560: 29 7b 0a 20 20 20 20 20 20 72 63 20 3d 20 53 51 ){. rc = SQ
7570: 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 20 20 LITE_NOMEM;.
7580: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 72 63 20 }else{. rc
7590: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
75a0: 5f 66 75 6e 63 74 69 6f 6e 31 36 28 64 62 2c 20 _function16(db,
75b0: 7a 55 74 66 31 36 2c 20 0a 20 20 20 20 20 20 20 zUtf16, .
75c0: 20 20 20 20 20 20 20 20 20 31 2c 20 53 51 4c 49 1, SQLI
75d0: 54 45 5f 55 54 46 31 36 2c 20 64 62 2c 20 73 71 TE_UTF16, db, sq
75e0: 6c 69 74 65 33 45 78 65 63 46 75 6e 63 2c 20 30 lite3ExecFunc, 0
75f0: 2c 20 30 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 , 0);. }.
7600: 73 71 6c 69 74 65 33 56 61 6c 75 65 46 72 65 65 sqlite3ValueFree
7610: 28 70 56 61 6c 29 3b 0a 20 20 20 20 73 71 6c 69 (pVal);. sqli
7620: 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 te3_mutex_leave(
7630: 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 7d 0a db->mutex);. }.
7640: 23 65 6e 64 69 66 0a 0a 20 20 69 66 28 20 73 71 #endif.. if( sq
7650: 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 lite3TestErrCode
7660: 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 (interp, db, rc)
7670: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
7680: 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 ROR;. Tcl_SetRe
7690: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 sult(interp, (ch
76a0: 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 ar *)t1ErrorName
76b0: 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 65 74 75 (rc), 0);. retu
76c0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
76d0: 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 .** Routines to
76e0: 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 78 5f implement the x_
76f0: 63 6f 75 6e 74 28 29 20 61 67 67 72 65 67 61 74 count() aggregat
7700: 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a e function..**.*
7710: 2a 20 78 5f 63 6f 75 6e 74 28 29 20 63 6f 75 6e * x_count() coun
7720: 74 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 ts the number of
7730: 20 6e 6f 6e 2d 6e 75 6c 6c 20 61 72 67 75 6d 65 non-null argume
7740: 6e 74 73 2e 20 20 42 75 74 20 74 68 65 72 65 20 nts. But there
7750: 61 72 65 0a 2a 2a 20 73 6f 6d 65 20 74 77 69 73 are.** some twis
7760: 74 73 20 66 6f 72 20 74 65 73 74 69 6e 67 20 70 ts for testing p
7770: 75 72 70 6f 73 65 73 2e 0a 2a 2a 0a 2a 2a 20 49 urposes..**.** I
7780: 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 74 f the argument t
7790: 6f 20 78 5f 63 6f 75 6e 74 28 29 20 69 73 20 34 o x_count() is 4
77a0: 30 20 74 68 65 6e 20 61 20 55 54 46 2d 38 20 65 0 then a UTF-8 e
77b0: 72 72 6f 72 20 69 73 20 72 65 70 6f 72 74 65 64 rror is reported
77c0: 0a 2a 2a 20 6f 6e 20 74 68 65 20 73 74 65 70 20 .** on the step
77d0: 66 75 6e 63 74 69 6f 6e 2e 20 20 49 66 20 78 5f function. If x_
77e0: 63 6f 75 6e 74 28 34 31 29 20 69 73 20 73 65 65 count(41) is see
77f0: 6e 2c 20 74 68 65 6e 20 61 20 55 54 46 2d 31 36 n, then a UTF-16
7800: 20 65 72 72 6f 72 0a 2a 2a 20 69 73 20 72 65 70 error.** is rep
7810: 6f 72 74 65 64 20 6f 6e 20 74 68 65 20 73 74 65 orted on the ste
7820: 70 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 66 20 p function. If
7830: 74 68 65 20 74 6f 74 61 6c 20 63 6f 75 6e 74 20 the total count
7840: 69 73 20 34 32 2c 20 74 68 65 6e 0a 2a 2a 20 61 is 42, then.** a
7850: 20 55 54 46 2d 38 20 65 72 72 6f 72 20 69 73 20 UTF-8 error is
7860: 72 65 70 6f 72 74 65 64 20 6f 6e 20 74 68 65 20 reported on the
7870: 66 69 6e 61 6c 69 7a 65 20 66 75 6e 63 74 69 6f finalize functio
7880: 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 n..*/.typedef st
7890: 72 75 63 74 20 74 31 43 6f 75 6e 74 43 74 78 20 ruct t1CountCtx
78a0: 74 31 43 6f 75 6e 74 43 74 78 3b 0a 73 74 72 75 t1CountCtx;.stru
78b0: 63 74 20 74 31 43 6f 75 6e 74 43 74 78 20 7b 0a ct t1CountCtx {.
78c0: 20 20 69 6e 74 20 6e 3b 0a 7d 3b 0a 73 74 61 74 int n;.};.stat
78d0: 69 63 20 76 6f 69 64 20 74 31 43 6f 75 6e 74 53 ic void t1CountS
78e0: 74 65 70 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 tep(. sqlite3_c
78f0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
7900: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 . int argc,. s
7910: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
7920: 72 67 76 0a 29 7b 0a 20 20 74 31 43 6f 75 6e 74 rgv.){. t1Count
7930: 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 Ctx *p;. p = sq
7940: 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f lite3_aggregate_
7950: 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c context(context,
7960: 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 sizeof(*p));.
7970: 69 66 28 20 28 61 72 67 63 3d 3d 30 20 7c 7c 20 if( (argc==0 ||
7980: 53 51 4c 49 54 45 5f 4e 55 4c 4c 21 3d 73 71 6c SQLITE_NULL!=sql
7990: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 ite3_value_type(
79a0: 61 72 67 76 5b 30 5d 29 20 29 20 26 26 20 70 20 argv[0]) ) && p
79b0: 29 7b 0a 20 20 20 20 70 2d 3e 6e 2b 2b 3b 0a 20 ){. p->n++;.
79c0: 20 7d 0a 20 20 69 66 28 20 61 72 67 63 3e 30 20 }. if( argc>0
79d0: 29 7b 0a 20 20 20 20 69 6e 74 20 76 20 3d 20 73 ){. int v = s
79e0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 qlite3_value_int
79f0: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 69 (argv[0]);. i
7a00: 66 28 20 76 3d 3d 34 30 20 29 7b 0a 20 20 20 20 f( v==40 ){.
7a10: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
7a20: 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 _error(context,
7a30: 22 76 61 6c 75 65 20 6f 66 20 34 30 20 68 61 6e "value of 40 han
7a40: 64 65 64 20 74 6f 20 78 5f 63 6f 75 6e 74 22 2c ded to x_count",
7a50: 20 2d 31 29 3b 0a 23 69 66 6e 64 65 66 20 53 51 -1);.#ifndef SQ
7a60: 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a LITE_OMIT_UTF16.
7a70: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 76 3d }else if( v=
7a80: 3d 34 31 20 29 7b 0a 20 20 20 20 20 20 63 6f 6e =41 ){. con
7a90: 73 74 20 63 68 61 72 20 7a 55 74 66 31 36 45 72 st char zUtf16Er
7aa0: 72 4d 73 67 5b 5d 20 3d 20 7b 20 30 2c 20 30 78 rMsg[] = { 0, 0x
7ab0: 36 31 2c 20 30 2c 20 30 78 36 32 2c 20 30 2c 20 61, 0, 0x62, 0,
7ac0: 30 78 36 33 2c 20 30 2c 20 30 2c 20 30 7d 3b 0a 0x63, 0, 0, 0};.
7ad0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 sqlite3_re
7ae0: 73 75 6c 74 5f 65 72 72 6f 72 31 36 28 63 6f 6e sult_error16(con
7af0: 74 65 78 74 2c 20 26 7a 55 74 66 31 36 45 72 72 text, &zUtf16Err
7b00: 4d 73 67 5b 31 2d 53 51 4c 49 54 45 5f 42 49 47 Msg[1-SQLITE_BIG
7b10: 45 4e 44 49 41 4e 5d 2c 20 2d 31 29 3b 0a 23 65 ENDIAN], -1);.#e
7b20: 6e 64 69 66 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d ndif. }. }.}
7b30: 20 20 20 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .static void
7b40: 74 31 43 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 28 t1CountFinalize(
7b50: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
7b60: 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 74 31 43 *context){. t1C
7b70: 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 ountCtx *p;. p
7b80: 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 = sqlite3_aggreg
7b90: 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 ate_context(cont
7ba0: 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 ext, sizeof(*p))
7bb0: 3b 0a 20 20 69 66 28 20 70 20 29 7b 0a 20 20 20 ;. if( p ){.
7bc0: 20 69 66 28 20 70 2d 3e 6e 3d 3d 34 32 20 29 7b if( p->n==42 ){
7bd0: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 . sqlite3_r
7be0: 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 esult_error(cont
7bf0: 65 78 74 2c 20 22 78 5f 63 6f 75 6e 74 20 74 6f ext, "x_count to
7c00: 74 61 6c 73 20 74 6f 20 34 32 22 2c 20 2d 31 29 tals to 42", -1)
7c10: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ;. }else{.
7c20: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
7c30: 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 70 t_int(context, p
7c40: 20 3f 20 70 2d 3e 6e 20 3a 20 30 29 3b 0a 20 20 ? p->n : 0);.
7c50: 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 69 66 6e 64 }. }.}..#ifnd
7c60: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 ef SQLITE_OMIT_D
7c70: 45 50 52 45 43 41 54 45 44 0a 73 74 61 74 69 63 EPRECATED.static
7c80: 20 76 6f 69 64 20 6c 65 67 61 63 79 43 6f 75 6e void legacyCoun
7c90: 74 53 74 65 70 28 0a 20 20 73 71 6c 69 74 65 33 tStep(. sqlite3
7ca0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
7cb0: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 t,. int argc,.
7cc0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
7cd0: 2a 61 72 67 76 0a 29 7b 0a 20 20 2f 2a 20 6e 6f *argv.){. /* no
7ce0: 2d 6f 70 20 2a 2f 0a 7d 0a 0a 73 74 61 74 69 63 -op */.}..static
7cf0: 20 76 6f 69 64 20 6c 65 67 61 63 79 43 6f 75 6e void legacyCoun
7d00: 74 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 tFinalize(sqlite
7d10: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
7d20: 78 74 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 72 xt){. sqlite3_r
7d30: 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 esult_int(contex
7d40: 74 2c 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 t, sqlite3_aggre
7d50: 67 61 74 65 5f 63 6f 75 6e 74 28 63 6f 6e 74 65 gate_count(conte
7d60: 78 74 29 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a xt));.}.#endif..
7d70: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
7d80: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 61 67 67 lite3_create_agg
7d90: 72 65 67 61 74 65 20 44 42 0a 2a 2a 0a 2a 2a 20 regate DB.**.**
7da0: 43 61 6c 6c 20 74 68 65 20 73 71 6c 69 74 65 33 Call the sqlite3
7db0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
7dc0: 20 41 50 49 20 6f 6e 20 74 68 65 20 67 69 76 65 API on the give
7dd0: 6e 20 64 61 74 61 62 61 73 65 20 69 6e 20 6f 72 n database in or
7de0: 64 65 72 0a 2a 2a 20 74 6f 20 63 72 65 61 74 65 der.** to create
7df0: 20 61 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 a function name
7e00: 64 20 22 78 5f 63 6f 75 6e 74 22 2e 20 20 54 68 d "x_count". Th
7e10: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 73 is function is s
7e20: 69 6d 69 6c 61 72 0a 2a 2a 20 74 6f 20 74 68 65 imilar.** to the
7e30: 20 62 75 69 6c 74 2d 69 6e 20 63 6f 75 6e 74 28 built-in count(
7e40: 29 20 66 75 6e 63 74 69 6f 6e 2c 20 77 69 74 68 ) function, with
7e50: 20 61 20 66 65 77 20 73 70 65 63 69 61 6c 20 71 a few special q
7e60: 75 69 72 6b 73 0a 2a 2a 20 66 6f 72 20 74 65 73 uirks.** for tes
7e70: 74 69 6e 67 20 74 68 65 20 73 71 6c 69 74 65 33 ting the sqlite3
7e80: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 29 20 _result_error()
7e90: 41 50 49 73 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 APIs..**.** The
7ea0: 6f 72 69 67 69 6e 61 6c 20 6d 6f 74 69 76 61 74 original motivat
7eb0: 69 6f 6e 20 66 6f 72 20 74 68 69 73 20 72 6f 75 ion for this rou
7ec0: 74 69 6e 65 20 77 61 73 20 74 6f 20 62 65 20 61 tine was to be a
7ed0: 62 6c 65 20 74 6f 20 63 61 6c 6c 20 74 68 65 0a ble to call the.
7ee0: 2a 2a 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 ** sqlite3_creat
7ef0: 65 5f 61 67 67 72 65 67 61 74 65 20 66 75 6e 63 e_aggregate func
7f00: 74 69 6f 6e 20 77 68 69 6c 65 20 61 20 71 75 65 tion while a que
7f10: 72 79 20 69 73 20 69 6e 20 70 72 6f 67 72 65 73 ry is in progres
7f20: 73 20 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 6f s in order.** to
7f30: 20 74 65 73 74 20 74 68 65 20 53 51 4c 49 54 45 test the SQLITE
7f40: 5f 4d 49 53 55 53 45 20 64 65 74 65 63 74 69 6f _MISUSE detectio
7f50: 6e 20 6c 6f 67 69 63 2e 20 20 53 65 65 20 6d 69 n logic. See mi
7f60: 73 75 73 65 2e 74 65 73 74 2e 0a 2a 2a 0a 2a 2a suse.test..**.**
7f70: 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 77 61 This routine wa
7f80: 73 20 6c 61 74 65 72 20 65 78 74 65 6e 64 65 64 s later extended
7f90: 20 74 6f 20 74 65 73 74 20 74 68 65 20 75 73 65 to test the use
7fa0: 20 6f 66 20 73 71 6c 69 74 65 33 5f 72 65 73 75 of sqlite3_resu
7fb0: 6c 74 5f 65 72 72 6f 72 28 29 0a 2a 2a 20 77 69 lt_error().** wi
7fc0: 74 68 69 6e 20 61 67 67 72 65 67 61 74 65 20 66 thin aggregate f
7fd0: 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2a 0a 2a 2a 20 unctions..**.**
7fe0: 4c 61 74 65 72 3a 20 49 74 20 69 73 20 6e 6f 77 Later: It is now
7ff0: 20 61 6c 73 6f 20 65 78 74 65 6e 64 65 64 20 74 also extended t
8000: 6f 20 72 65 67 69 73 74 65 72 20 74 68 65 20 61 o register the a
8010: 67 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f ggregate functio
8020: 6e 0a 2a 2a 20 22 6c 65 67 61 63 79 5f 63 6f 75 n.** "legacy_cou
8030: 6e 74 28 29 22 20 77 69 74 68 20 74 68 65 20 73 nt()" with the s
8040: 75 70 70 6c 69 65 64 20 64 61 74 61 62 61 73 65 upplied database
8050: 20 68 61 6e 64 6c 65 2e 20 54 68 69 73 20 69 73 handle. This is
8060: 20 75 73 65 64 0a 2a 2a 20 74 6f 20 74 65 73 74 used.** to test
8070: 20 74 68 65 20 64 65 70 72 65 63 61 74 65 64 20 the deprecated
8080: 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 sqlite3_aggregat
8090: 65 5f 63 6f 75 6e 74 28 29 20 41 50 49 2e 0a 2a e_count() API..*
80a0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
80b0: 74 5f 63 72 65 61 74 65 5f 61 67 67 72 65 67 61 t_create_aggrega
80c0: 74 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 te(. void *NotU
80d0: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
80e0: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
80f0: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
8100: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
8110: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
8120: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
8130: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
8140: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
8150: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
8160: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
8170: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
8180: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 gument */.){. s
8190: 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e qlite3 *db;. in
81a0: 74 20 72 63 3b 0a 20 20 69 66 28 20 61 72 67 63 t rc;. if( argc
81b0: 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=2 ){. Tcl_A
81c0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
81d0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
81e0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
81f0: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 , argv[0],.
8200: 20 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c " FILENAME\"",
8210: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
8220: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
8230: 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
8240: 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 r(interp, argv[1
8250: 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ], &db) ) return
8260: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 TCL_ERROR;. rc
8270: 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 = sqlite3_creat
8280: 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 e_function(db, "
8290: 78 5f 63 6f 75 6e 74 22 2c 20 30 2c 20 53 51 4c x_count", 0, SQL
82a0: 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 30 2c 0a ITE_UTF8, 0, 0,.
82b0: 20 20 20 20 20 20 74 31 43 6f 75 6e 74 53 74 65 t1CountSte
82c0: 70 2c 74 31 43 6f 75 6e 74 46 69 6e 61 6c 69 7a p,t1CountFinaliz
82d0: 65 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 e);. if( rc==SQ
82e0: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 LITE_OK ){. r
82f0: 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 c = sqlite3_crea
8300: 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 te_function(db,
8310: 22 78 5f 63 6f 75 6e 74 22 2c 20 31 2c 20 53 51 "x_count", 1, SQ
8320: 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 30 2c LITE_UTF8, 0, 0,
8330: 0a 20 20 20 20 20 20 20 20 74 31 43 6f 75 6e 74 . t1Count
8340: 53 74 65 70 2c 74 31 43 6f 75 6e 74 46 69 6e 61 Step,t1CountFina
8350: 6c 69 7a 65 29 3b 0a 20 20 7d 0a 23 69 66 6e 64 lize);. }.#ifnd
8360: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 ef SQLITE_OMIT_D
8370: 45 50 52 45 43 41 54 45 44 0a 20 20 69 66 28 20 EPRECATED. if(
8380: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b rc==SQLITE_OK ){
8390: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 . rc = sqlite
83a0: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 3_create_functio
83b0: 6e 28 64 62 2c 20 22 6c 65 67 61 63 79 5f 63 6f n(db, "legacy_co
83c0: 75 6e 74 22 2c 20 30 2c 20 53 51 4c 49 54 45 5f unt", 0, SQLITE_
83d0: 41 4e 59 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 ANY, 0, 0,.
83e0: 20 20 20 6c 65 67 61 63 79 43 6f 75 6e 74 53 74 legacyCountSt
83f0: 65 70 2c 20 6c 65 67 61 63 79 43 6f 75 6e 74 46 ep, legacyCountF
8400: 69 6e 61 6c 69 7a 65 0a 20 20 20 20 29 3b 0a 20 inalize. );.
8410: 20 7d 0a 23 65 6e 64 69 66 0a 20 20 69 66 28 20 }.#endif. if(
8420: 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f sqlite3TestErrCo
8430: 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 de(interp, db, r
8440: 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f c) ) return TCL_
8450: 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 ERROR;. Tcl_Set
8460: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 Result(interp, (
8470: 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 char *)t1ErrorNa
8480: 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 65 me(rc), 0);. re
8490: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
84a0: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 70 ./*.** Usage: p
84b0: 72 69 6e 74 66 20 54 45 58 54 0a 2a 2a 0a 2a 2a rintf TEXT.**.**
84c0: 20 53 65 6e 64 20 6f 75 74 70 75 74 20 74 6f 20 Send output to
84d0: 70 72 69 6e 74 66 2e 20 20 55 73 65 20 74 68 69 printf. Use thi
84e0: 73 20 72 61 74 68 65 72 20 74 68 61 6e 20 70 75 s rather than pu
84f0: 74 73 20 74 6f 20 6d 65 72 67 65 20 74 68 65 20 ts to merge the
8500: 6f 75 74 70 75 74 0a 2a 2a 20 69 6e 20 74 68 65 output.** in the
8510: 20 63 6f 72 72 65 63 74 20 73 65 71 75 65 6e 63 correct sequenc
8520: 65 20 77 69 74 68 20 64 65 62 75 67 67 69 6e 67 e with debugging
8530: 20 70 72 69 6e 74 66 73 20 69 6e 73 65 72 74 65 printfs inserte
8540: 64 20 69 6e 74 6f 20 43 20 63 6f 64 65 2e 0a 2a d into C code..*
8550: 2a 20 50 75 74 73 20 75 73 65 73 20 61 20 73 65 * Puts uses a se
8560: 70 61 72 61 74 65 20 62 75 66 66 65 72 20 61 6e parate buffer an
8570: 64 20 64 65 62 75 67 67 69 6e 67 20 73 74 61 74 d debugging stat
8580: 65 6d 65 6e 74 73 20 77 69 6c 6c 20 62 65 20 6f ements will be o
8590: 75 74 20 6f 66 0a 2a 2a 20 73 65 71 75 65 6e 63 ut of.** sequenc
85a0: 65 20 69 66 20 69 74 20 69 73 20 75 73 65 64 2e e if it is used.
85b0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
85c0: 65 73 74 5f 70 72 69 6e 74 66 28 0a 20 20 76 6f est_printf(. vo
85d0: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
85e0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
85f0: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
8600: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
8610: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
8620: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
8630: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
8640: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
8650: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
8660: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
8670: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
8680: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
8690: 2f 0a 29 7b 0a 20 20 69 66 28 20 61 72 67 63 21 /.){. if( argc!
86a0: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
86b0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
86c0: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
86d0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
86e0: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
86f0: 20 22 20 54 45 58 54 5c 22 22 2c 20 30 29 3b 0a " TEXT\"", 0);.
8700: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
8710: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 70 72 69 6e RROR;. }. prin
8720: 74 66 28 22 25 73 5c 6e 22 2c 20 61 72 67 76 5b tf("%s\n", argv[
8730: 31 5d 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 1]);. return TC
8740: 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 0a 2f 2a 0a 2a 2a L_OK;.}..../*.**
8750: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
8760: 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 20 46 4f 52 _mprintf_int FOR
8770: 4d 41 54 20 49 4e 54 45 47 45 52 20 49 4e 54 45 MAT INTEGER INTE
8780: 47 45 52 20 49 4e 54 45 47 45 52 0a 2a 2a 0a 2a GER INTEGER.**.*
8790: 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 * Call mprintf w
87a0: 69 74 68 20 74 68 72 65 65 20 69 6e 74 65 67 65 ith three intege
87b0: 72 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2f 0a 73 r arguments.*/.s
87c0: 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 tatic int sqlite
87d0: 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 28 0a 20 3_mprintf_int(.
87e0: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
87f0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
8800: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
8810: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
8820: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
8830: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
8840: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
8850: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
8860: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
8870: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
8880: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
8890: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
88a0: 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 5b t */.){. int a[
88b0: 33 5d 2c 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a 3], i;. char *z
88c0: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 35 20 ;. if( argc!=5
88d0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
88e0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
88f0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
8900: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
8910: 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 gv[0],. "
8920: 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e 54 20 49 FORMAT INT INT I
8930: 4e 54 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 NT\"", 0);. r
8940: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
8950: 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 . }. for(i=2;
8960: 69 3c 35 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 i<5; i++){. i
8970: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e f( Tcl_GetInt(in
8980: 74 65 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26 terp, argv[i], &
8990: 61 5b 69 2d 32 5d 29 20 29 20 72 65 74 75 72 6e a[i-2]) ) return
89a0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
89b0: 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 z = sqlite3_mp
89c0: 72 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 rintf(argv[1], a
89d0: 5b 30 5d 2c 20 61 5b 31 5d 2c 20 61 5b 32 5d 29 [0], a[1], a[2])
89e0: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
89f0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 sult(interp, z,
8a00: 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 0);. sqlite3_fr
8a10: 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 ee(z);. return
8a20: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
8a30: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
8a40: 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 36 34 20 46 _mprintf_int64 F
8a50: 4f 52 4d 41 54 20 49 4e 54 45 47 45 52 20 49 4e ORMAT INTEGER IN
8a60: 54 45 47 45 52 20 49 4e 54 45 47 45 52 0a 2a 2a TEGER INTEGER.**
8a70: 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 .** Call mprintf
8a80: 20 77 69 74 68 20 74 68 72 65 65 20 36 34 2d 62 with three 64-b
8a90: 69 74 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d it integer argum
8aa0: 65 6e 74 73 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ents.*/.static i
8ab0: 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e nt sqlite3_mprin
8ac0: 74 66 5f 69 6e 74 36 34 28 0a 20 20 76 6f 69 64 tf_int64(. void
8ad0: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
8ae0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
8af0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
8b00: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
8b10: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
8b20: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
8b30: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
8b40: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
8b50: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
8b60: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
8b70: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
8b80: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
8b90: 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 73 71 ){. int i;. sq
8ba0: 6c 69 74 65 5f 69 6e 74 36 34 20 61 5b 33 5d 3b lite_int64 a[3];
8bb0: 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 . char *z;. if
8bc0: 28 20 61 72 67 63 21 3d 35 20 29 7b 0a 20 20 20 ( argc!=5 ){.
8bd0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
8be0: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
8bf0: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
8c00: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
8c10: 0a 20 20 20 20 20 20 20 22 20 46 4f 52 4d 41 54 . " FORMAT
8c20: 20 49 4e 54 20 49 4e 54 20 49 4e 54 5c 22 22 2c INT INT INT\"",
8c30: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
8c40: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
8c50: 20 66 6f 72 28 69 3d 32 3b 20 69 3c 35 3b 20 69 for(i=2; i<5; i
8c60: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 73 71 6c ++){. if( sql
8c70: 69 74 65 33 41 74 6f 69 36 34 28 61 72 67 76 5b ite3Atoi64(argv[
8c80: 69 5d 2c 20 26 61 5b 69 2d 32 5d 2c 20 31 30 30 i], &a[i-2], 100
8c90: 30 30 30 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 0000, SQLITE_UTF
8ca0: 38 29 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 8) ){. Tcl_
8cb0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
8cc0: 65 72 70 2c 20 22 61 72 67 75 6d 65 6e 74 20 69 erp, "argument i
8cd0: 73 20 6e 6f 74 20 61 20 76 61 6c 69 64 20 36 34 s not a valid 64
8ce0: 2d 62 69 74 20 69 6e 74 65 67 65 72 22 2c 20 30 -bit integer", 0
8cf0: 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 );. return
8d00: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
8d10: 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 . }. z = sqlit
8d20: 65 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b e3_mprintf(argv[
8d30: 31 5d 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 1], a[0], a[1],
8d40: 61 5b 32 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 a[2]);. Tcl_App
8d50: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
8d60: 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 , z, 0);. sqlit
8d70: 65 33 5f 66 72 65 65 28 7a 29 3b 0a 20 20 72 65 e3_free(z);. re
8d80: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
8d90: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
8da0: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 6c 6f lite3_mprintf_lo
8db0: 6e 67 20 46 4f 52 4d 41 54 20 49 4e 54 45 47 45 ng FORMAT INTEGE
8dc0: 52 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 R INTEGER INTEGE
8dd0: 52 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 R.**.** Call mpr
8de0: 69 6e 74 66 20 77 69 74 68 20 74 68 72 65 65 20 intf with three
8df0: 6c 6f 6e 67 20 69 6e 74 65 67 65 72 20 61 72 67 long integer arg
8e00: 75 6d 65 6e 74 73 2e 20 20 20 54 68 69 73 20 6d uments. This m
8e10: 69 67 68 74 20 62 65 20 74 68 65 0a 2a 2a 20 73 ight be the.** s
8e20: 61 6d 65 20 61 73 20 73 71 6c 69 74 65 33 5f 6d ame as sqlite3_m
8e30: 70 72 69 6e 74 66 5f 69 6e 74 20 6f 72 20 73 71 printf_int or sq
8e40: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e lite3_mprintf_in
8e50: 74 36 34 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f t64, depending o
8e60: 6e 0a 2a 2a 20 70 6c 61 74 66 6f 72 6d 2e 0a 2a n.** platform..*
8e70: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c /.static int sql
8e80: 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 6c 6f 6e ite3_mprintf_lon
8e90: 67 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 g(. void *NotUs
8ea0: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
8eb0: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
8ec0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
8ed0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
8ee0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
8ef0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
8f00: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
8f10: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
8f20: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
8f30: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
8f40: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
8f50: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e ument */.){. in
8f60: 74 20 69 3b 0a 20 20 6c 6f 6e 67 20 69 6e 74 20 t i;. long int
8f70: 61 5b 33 5d 3b 0a 20 20 69 6e 74 20 62 5b 33 5d a[3];. int b[3]
8f80: 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 ;. char *z;. i
8f90: 66 28 20 61 72 67 63 21 3d 35 20 29 7b 0a 20 20 f( argc!=5 ){.
8fa0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
8fb0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
8fc0: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
8fd0: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d be \"", argv[0]
8fe0: 2c 0a 20 20 20 20 20 20 20 22 20 46 4f 52 4d 41 ,. " FORMA
8ff0: 54 20 49 4e 54 20 49 4e 54 20 49 4e 54 5c 22 22 T INT INT INT\""
9000: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
9010: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
9020: 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 35 3b 20 for(i=2; i<5;
9030: 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 54 63 i++){. if( Tc
9040: 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c l_GetInt(interp,
9050: 20 61 72 67 76 5b 69 5d 2c 20 26 62 5b 69 2d 32 argv[i], &b[i-2
9060: 5d 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f ]) ) return TCL_
9070: 45 52 52 4f 52 3b 0a 20 20 20 20 61 5b 69 2d 32 ERROR;. a[i-2
9080: 5d 20 3d 20 28 6c 6f 6e 67 20 69 6e 74 29 62 5b ] = (long int)b[
9090: 69 2d 32 5d 3b 0a 20 20 20 20 61 5b 69 2d 32 5d i-2];. a[i-2]
90a0: 20 26 3d 20 28 28 28 75 36 34 29 31 29 3c 3c 28 &= (((u64)1)<<(
90b0: 73 69 7a 65 6f 66 28 69 6e 74 29 2a 38 29 29 2d sizeof(int)*8))-
90c0: 31 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 1;. }. z = sql
90d0: 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 ite3_mprintf(arg
90e0: 76 5b 31 5d 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d v[1], a[0], a[1]
90f0: 2c 20 61 5b 32 5d 29 3b 0a 20 20 54 63 6c 5f 41 , a[2]);. Tcl_A
9100: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
9110: 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 71 6c rp, z, 0);. sql
9120: 69 74 65 33 5f 66 72 65 65 28 7a 29 3b 0a 20 20 ite3_free(z);.
9130: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
9140: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
9150: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
9160: 73 74 72 20 46 4f 52 4d 41 54 20 49 4e 54 45 47 str FORMAT INTEG
9170: 45 52 20 49 4e 54 45 47 45 52 20 53 54 52 49 4e ER INTEGER STRIN
9180: 47 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 G.**.** Call mpr
9190: 69 6e 74 66 20 77 69 74 68 20 74 77 6f 20 69 6e intf with two in
91a0: 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 73 20 teger arguments
91b0: 61 6e 64 20 6f 6e 65 20 73 74 72 69 6e 67 20 61 and one string a
91c0: 72 67 75 6d 65 6e 74 0a 2a 2f 0a 73 74 61 74 69 rgument.*/.stati
91d0: 63 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 c int sqlite3_mp
91e0: 72 69 6e 74 66 5f 73 74 72 28 0a 20 20 76 6f 69 rintf_str(. voi
91f0: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
9200: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
9210: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
9220: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
9230: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
9240: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
9250: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
9260: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
9270: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
9280: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
9290: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
92a0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
92b0: 0a 29 7b 0a 20 20 69 6e 74 20 61 5b 33 5d 2c 20 .){. int a[3],
92c0: 69 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 i;. char *z;.
92d0: 69 66 28 20 61 72 67 63 3c 34 20 7c 7c 20 61 72 if( argc<4 || ar
92e0: 67 63 3e 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f gc>5 ){. Tcl_
92f0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
9300: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
9310: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
9320: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 ", argv[0],.
9330: 20 20 20 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 " FORMAT INT
9340: 49 4e 54 20 3f 53 54 52 49 4e 47 3f 5c 22 22 2c INT ?STRING?\"",
9350: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
9360: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
9370: 20 66 6f 72 28 69 3d 32 3b 20 69 3c 34 3b 20 69 for(i=2; i<4; i
9380: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c ++){. if( Tcl
9390: 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 _GetInt(interp,
93a0: 61 72 67 76 5b 69 5d 2c 20 26 61 5b 69 2d 32 5d argv[i], &a[i-2]
93b0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
93c0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 RROR;. }. z =
93d0: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 sqlite3_mprintf(
93e0: 61 72 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c 20 61 argv[1], a[0], a
93f0: 5b 31 5d 2c 20 61 72 67 63 3e 34 20 3f 20 61 72 [1], argc>4 ? ar
9400: 67 76 5b 34 5d 20 3a 20 4e 55 4c 4c 29 3b 0a 20 gv[4] : NULL);.
9410: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
9420: 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b t(interp, z, 0);
9430: 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 . sqlite3_free(
9440: 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c z);. return TCL
9450: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
9460: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 73 6e age: sqlite3_sn
9470: 70 72 69 6e 74 66 5f 73 74 72 20 49 4e 54 45 47 printf_str INTEG
9480: 45 52 20 46 4f 52 4d 41 54 20 49 4e 54 45 47 45 ER FORMAT INTEGE
9490: 52 20 49 4e 54 45 47 45 52 20 53 54 52 49 4e 47 R INTEGER STRING
94a0: 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 .**.** Call mpri
94b0: 6e 74 66 20 77 69 74 68 20 74 77 6f 20 69 6e 74 ntf with two int
94c0: 65 67 65 72 20 61 72 67 75 6d 65 6e 74 73 20 61 eger arguments a
94d0: 6e 64 20 6f 6e 65 20 73 74 72 69 6e 67 20 61 72 nd one string ar
94e0: 67 75 6d 65 6e 74 0a 2a 2f 0a 73 74 61 74 69 63 gument.*/.static
94f0: 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 73 6e 70 int sqlite3_snp
9500: 72 69 6e 74 66 5f 73 74 72 28 0a 20 20 76 6f 69 rintf_str(. voi
9510: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
9520: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
9530: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
9540: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
9550: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
9560: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
9570: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
9580: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
9590: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
95a0: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
95b0: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
95c0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
95d0: 0a 29 7b 0a 20 20 69 6e 74 20 61 5b 33 5d 2c 20 .){. int a[3],
95e0: 69 3b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 63 68 i;. int n;. ch
95f0: 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 ar *z;. if( arg
9600: 63 3c 35 20 7c 7c 20 61 72 67 63 3e 36 20 29 7b c<5 || argc>6 ){
9610: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
9620: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
9630: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
9640: 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 uld be \"", argv
9650: 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 49 4e [0],. " IN
9660: 54 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e 54 T FORMAT INT INT
9670: 20 3f 53 54 52 49 4e 47 3f 5c 22 22 2c 20 30 29 ?STRING?\"", 0)
9680: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
9690: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
96a0: 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 ( Tcl_GetInt(int
96b0: 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 6e erp, argv[1], &n
96c0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
96d0: 52 52 4f 52 3b 0a 20 20 69 66 28 20 6e 3c 30 20 RROR;. if( n<0
96e0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
96f0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
9700: 22 4e 20 6d 75 73 74 20 62 65 20 6e 6f 6e 2d 6e "N must be non-n
9710: 65 67 61 74 69 76 65 22 2c 20 30 29 3b 0a 20 20 egative", 0);.
9720: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
9730: 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d OR;. }. for(i=
9740: 33 3b 20 69 3c 35 3b 20 69 2b 2b 29 7b 0a 20 20 3; i<5; i++){.
9750: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
9760: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 5d (interp, argv[i]
9770: 2c 20 26 61 5b 69 2d 33 5d 29 20 29 20 72 65 74 , &a[i-3]) ) ret
9780: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
9790: 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 }. z = sqlite3
97a0: 5f 6d 61 6c 6c 6f 63 28 20 6e 2b 31 20 29 3b 0a _malloc( n+1 );.
97b0: 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e sqlite3_snprin
97c0: 74 66 28 6e 2c 20 7a 2c 20 61 72 67 76 5b 32 5d tf(n, z, argv[2]
97d0: 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 61 72 , a[0], a[1], ar
97e0: 67 63 3e 34 20 3f 20 61 72 67 76 5b 35 5d 20 3a gc>4 ? argv[5] :
97f0: 20 4e 55 4c 4c 29 3b 0a 20 20 54 63 6c 5f 41 70 NULL);. Tcl_Ap
9800: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
9810: 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 p, z, 0);. sqli
9820: 74 65 33 5f 66 72 65 65 28 7a 29 3b 0a 20 20 72 te3_free(z);. r
9830: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
9840: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
9850: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 64 qlite3_mprintf_d
9860: 6f 75 62 6c 65 20 46 4f 52 4d 41 54 20 49 4e 54 ouble FORMAT INT
9870: 45 47 45 52 20 49 4e 54 45 47 45 52 20 44 4f 55 EGER INTEGER DOU
9880: 42 4c 45 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d BLE.**.** Call m
9890: 70 72 69 6e 74 66 20 77 69 74 68 20 74 77 6f 20 printf with two
98a0: 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 integer argument
98b0: 73 20 61 6e 64 20 6f 6e 65 20 64 6f 75 62 6c 65 s and one double
98c0: 20 61 72 67 75 6d 65 6e 74 0a 2a 2f 0a 73 74 61 argument.*/.sta
98d0: 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 33 5f tic int sqlite3_
98e0: 6d 70 72 69 6e 74 66 5f 64 6f 75 62 6c 65 28 0a mprintf_double(.
98f0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
9900: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
9910: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
9920: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
9930: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
9940: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
9950: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
9960: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
9970: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
9980: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
9990: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
99a0: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
99b0: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 nt */.){. int a
99c0: 5b 33 5d 2c 20 69 3b 0a 20 20 64 6f 75 62 6c 65 [3], i;. double
99d0: 20 72 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 r;. char *z;.
99e0: 20 69 66 28 20 61 72 67 63 21 3d 35 20 29 7b 0a if( argc!=5 ){.
99f0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
9a00: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
9a10: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
9a20: 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b ld be \"", argv[
9a30: 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 4f 52 0],. " FOR
9a40: 4d 41 54 20 49 4e 54 20 49 4e 54 20 44 4f 55 42 MAT INT INT DOUB
9a50: 4c 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 LE\"", 0);. r
9a60: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
9a70: 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 . }. for(i=2;
9a80: 69 3c 34 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 i<4; i++){. i
9a90: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e f( Tcl_GetInt(in
9aa0: 74 65 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26 terp, argv[i], &
9ab0: 61 5b 69 2d 32 5d 29 20 29 20 72 65 74 75 72 6e a[i-2]) ) return
9ac0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
9ad0: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 44 6f 75 if( Tcl_GetDou
9ae0: 62 6c 65 28 69 6e 74 65 72 70 2c 20 61 72 67 76 ble(interp, argv
9af0: 5b 34 5d 2c 20 26 72 29 20 29 20 72 65 74 75 72 [4], &r) ) retur
9b00: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a n TCL_ERROR;. z
9b10: 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e = sqlite3_mprin
9b20: 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 5b 30 5d tf(argv[1], a[0]
9b30: 2c 20 61 5b 31 5d 2c 20 72 29 3b 0a 20 20 54 63 , a[1], r);. Tc
9b40: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
9b50: 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 nterp, z, 0);.
9b60: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 3b sqlite3_free(z);
9b70: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
9b80: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
9b90: 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e : sqlite3_mprin
9ba0: 74 66 5f 73 63 61 6c 65 64 20 46 4f 52 4d 41 54 tf_scaled FORMAT
9bb0: 20 44 4f 55 42 4c 45 20 44 4f 55 42 4c 45 0a 2a DOUBLE DOUBLE.*
9bc0: 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74 *.** Call mprint
9bd0: 66 20 77 69 74 68 20 61 20 73 69 6e 67 6c 65 20 f with a single
9be0: 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 20 double argument
9bf0: 77 68 69 63 68 20 69 73 20 74 68 65 20 70 72 6f which is the pro
9c00: 64 75 63 74 20 6f 66 20 74 68 65 0a 2a 2a 20 74 duct of the.** t
9c10: 77 6f 20 61 72 67 75 6d 65 6e 74 73 20 67 69 76 wo arguments giv
9c20: 65 6e 20 61 62 6f 76 65 2e 20 20 54 68 69 73 20 en above. This
9c30: 69 73 20 75 73 65 64 20 74 6f 20 67 65 6e 65 72 is used to gener
9c40: 61 74 65 20 6f 76 65 72 66 6c 6f 77 20 61 6e 64 ate overflow and
9c50: 20 75 6e 64 65 72 66 6c 6f 77 0a 2a 2a 20 64 6f underflow.** do
9c60: 75 62 6c 65 73 20 74 6f 20 74 65 73 74 20 74 68 ubles to test th
9c70: 61 74 20 74 68 65 79 20 61 72 65 20 63 6f 6e 76 at they are conv
9c80: 65 72 74 65 64 20 70 72 6f 70 65 72 6c 79 2e 0a erted properly..
9c90: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 */.static int sq
9ca0: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 73 63 lite3_mprintf_sc
9cb0: 61 6c 65 64 28 0a 20 20 76 6f 69 64 20 2a 4e 6f aled(. void *No
9cc0: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 tUsed,. Tcl_Int
9cd0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
9ce0: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
9cf0: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
9d00: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
9d10: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 */. int argc,
9d20: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
9d30: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
9d40: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a nts */. char **
9d50: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 argv
9d60: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 /* Text of each
9d70: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 argument */.){.
9d80: 20 69 6e 74 20 69 3b 0a 20 20 64 6f 75 62 6c 65 int i;. double
9d90: 20 72 5b 32 5d 3b 0a 20 20 63 68 61 72 20 2a 7a r[2];. char *z
9da0: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 34 20 ;. if( argc!=4
9db0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
9dc0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
9dd0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
9de0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
9df0: 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 gv[0],. "
9e00: 46 4f 52 4d 41 54 20 44 4f 55 42 4c 45 20 44 4f FORMAT DOUBLE DO
9e10: 55 42 4c 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 UBLE\"", 0);.
9e20: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
9e30: 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 R;. }. for(i=2
9e40: 3b 20 69 3c 34 3b 20 69 2b 2b 29 7b 0a 20 20 20 ; i<4; i++){.
9e50: 20 69 66 28 20 54 63 6c 5f 47 65 74 44 6f 75 62 if( Tcl_GetDoub
9e60: 6c 65 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b le(interp, argv[
9e70: 69 5d 2c 20 26 72 5b 69 2d 32 5d 29 20 29 20 72 i], &r[i-2]) ) r
9e80: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
9e90: 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 . }. z = sqlit
9ea0: 65 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b e3_mprintf(argv[
9eb0: 31 5d 2c 20 72 5b 30 5d 2a 72 5b 31 5d 29 3b 0a 1], r[0]*r[1]);.
9ec0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
9ed0: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 lt(interp, z, 0)
9ee0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 ;. sqlite3_free
9ef0: 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 (z);. return TC
9f00: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
9f10: 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d sage: sqlite3_m
9f20: 70 72 69 6e 74 66 5f 73 74 72 6f 6e 6c 79 20 46 printf_stronly F
9f30: 4f 52 4d 41 54 20 53 54 52 49 4e 47 0a 2a 2a 0a ORMAT STRING.**.
9f40: 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 ** Call mprintf
9f50: 77 69 74 68 20 61 20 73 69 6e 67 6c 65 20 64 6f with a single do
9f60: 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 20 77 68 uble argument wh
9f70: 69 63 68 20 69 73 20 74 68 65 20 70 72 6f 64 75 ich is the produ
9f80: 63 74 20 6f 66 20 74 68 65 0a 2a 2a 20 74 77 6f ct of the.** two
9f90: 20 61 72 67 75 6d 65 6e 74 73 20 67 69 76 65 6e arguments given
9fa0: 20 61 62 6f 76 65 2e 20 20 54 68 69 73 20 69 73 above. This is
9fb0: 20 75 73 65 64 20 74 6f 20 67 65 6e 65 72 61 74 used to generat
9fc0: 65 20 6f 76 65 72 66 6c 6f 77 20 61 6e 64 20 75 e overflow and u
9fd0: 6e 64 65 72 66 6c 6f 77 0a 2a 2a 20 64 6f 75 62 nderflow.** doub
9fe0: 6c 65 73 20 74 6f 20 74 65 73 74 20 74 68 61 74 les to test that
9ff0: 20 74 68 65 79 20 61 72 65 20 63 6f 6e 76 65 72 they are conver
a000: 74 65 64 20 70 72 6f 70 65 72 6c 79 2e 0a 2a 2f ted properly..*/
a010: 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 .static int sqli
a020: 74 65 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 6f te3_mprintf_stro
a030: 6e 6c 79 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 nly(. void *Not
a040: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
a050: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
a060: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
a070: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
a080: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
a090: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
a0a0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
a0b0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
a0c0: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
a0d0: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
a0e0: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
a0f0: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
a100: 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 char *z;. if( a
a110: 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 rgc!=3 ){. Tc
a120: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
a130: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
a140: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
a150: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 \"", argv[0],.
a160: 20 20 20 20 20 22 20 46 4f 52 4d 41 54 20 53 54 " FORMAT ST
a170: 52 49 4e 47 5c 22 22 2c 20 30 29 3b 0a 20 20 20 RING\"", 0);.
a180: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
a190: 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c R;. }. z = sql
a1a0: 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 ite3_mprintf(arg
a1b0: 76 5b 31 5d 2c 20 61 72 67 76 5b 32 5d 29 3b 0a v[1], argv[2]);.
a1c0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
a1d0: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 lt(interp, z, 0)
a1e0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 ;. sqlite3_free
a1f0: 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 (z);. return TC
a200: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
a210: 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d sage: sqlite3_m
a220: 70 72 69 6e 74 66 5f 68 65 78 64 6f 75 62 6c 65 printf_hexdouble
a230: 20 46 4f 52 4d 41 54 20 48 45 58 0a 2a 2a 0a 2a FORMAT HEX.**.*
a240: 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 * Call mprintf w
a250: 69 74 68 20 61 20 73 69 6e 67 6c 65 20 64 6f 75 ith a single dou
a260: 62 6c 65 20 61 72 67 75 6d 65 6e 74 20 77 68 69 ble argument whi
a270: 63 68 20 69 73 20 64 65 72 69 76 65 64 20 66 72 ch is derived fr
a280: 6f 6d 20 74 68 65 0a 2a 2a 20 68 65 78 61 64 65 om the.** hexade
a290: 63 69 6d 61 6c 20 65 6e 63 6f 64 69 6e 67 20 6f cimal encoding o
a2a0: 66 20 61 6e 20 49 45 45 45 20 64 6f 75 62 6c 65 f an IEEE double
a2b0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
a2c0: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
a2d0: 68 65 78 64 6f 75 62 6c 65 28 0a 20 20 76 6f 69 hexdouble(. voi
a2e0: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
a2f0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
a300: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
a310: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
a320: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
a330: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
a340: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
a350: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
a360: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
a370: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
a380: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
a390: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
a3a0: 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 .){. char *z;.
a3b0: 20 64 6f 75 62 6c 65 20 72 3b 0a 20 20 75 6e 73 double r;. uns
a3c0: 69 67 6e 65 64 20 69 6e 74 20 78 31 2c 20 78 32 igned int x1, x2
a3d0: 3b 0a 20 20 73 71 6c 69 74 65 5f 75 69 6e 74 36 ;. sqlite_uint6
a3e0: 34 20 64 3b 0a 20 20 69 66 28 20 61 72 67 63 21 4 d;. if( argc!
a3f0: 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =3 ){. Tcl_Ap
a400: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
a410: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
a420: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
a430: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
a440: 20 22 20 46 4f 52 4d 41 54 20 53 54 52 49 4e 47 " FORMAT STRING
a450: 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 \"", 0);. ret
a460: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
a470: 20 7d 0a 20 20 69 66 28 20 73 73 63 61 6e 66 28 }. if( sscanf(
a480: 61 72 67 76 5b 32 5d 2c 20 22 25 30 38 78 25 30 argv[2], "%08x%0
a490: 38 78 22 2c 20 26 78 32 2c 20 26 78 31 29 21 3d 8x", &x2, &x1)!=
a4a0: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
a4b0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
a4c0: 2c 20 22 32 6e 64 20 61 72 67 75 6d 65 6e 74 20 , "2nd argument
a4d0: 73 68 6f 75 6c 64 20 62 65 20 31 36 2d 63 68 61 should be 16-cha
a4e0: 72 61 63 74 65 72 73 20 6f 66 20 68 65 78 22 2c racters of hex",
a4f0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
a500: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
a510: 20 64 20 3d 20 78 32 3b 0a 20 20 64 20 3d 20 28 d = x2;. d = (
a520: 64 3c 3c 33 32 29 20 2b 20 78 31 3b 0a 20 20 6d d<<32) + x1;. m
a530: 65 6d 63 70 79 28 26 72 2c 20 26 64 2c 20 73 69 emcpy(&r, &d, si
a540: 7a 65 6f 66 28 72 29 29 3b 0a 20 20 7a 20 3d 20 zeof(r));. z =
a550: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 sqlite3_mprintf(
a560: 61 72 67 76 5b 31 5d 2c 20 72 29 3b 0a 20 20 54 argv[1], r);. T
a570: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
a580: 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 interp, z, 0);.
a590: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 sqlite3_free(z)
a5a0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
a5b0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
a5c0: 65 3a 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c e: sqlite3_enabl
a5d0: 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65 20 3f e_shared_cache ?
a5e0: 42 4f 4f 4c 45 41 4e 3f 0a 2a 2a 0a 2a 2f 0a 23 BOOLEAN?.**.*/.#
a5f0: 69 66 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 if !defined(SQLI
a600: 54 45 5f 4f 4d 49 54 5f 53 48 41 52 45 44 5f 43 TE_OMIT_SHARED_C
a610: 41 43 48 45 29 0a 73 74 61 74 69 63 20 69 6e 74 ACHE).static int
a620: 20 74 65 73 74 5f 65 6e 61 62 6c 65 5f 73 68 61 test_enable_sha
a630: 72 65 64 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 red(. ClientDat
a640: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a a clientData, /*
a650: 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 Pointer to sqli
a660: 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 te3_enable_XXX f
a670: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c unction */. Tcl
a680: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
a690: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
a6a0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
a6b0: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
a6c0: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 mand */. int ob
a6d0: 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 jc,
a6e0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
a6f0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c guments */. Tcl
a700: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
a710: 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 [] /* Command a
a720: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 rguments */.){.
a730: 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 65 int rc;. int e
a740: 6e 61 62 6c 65 3b 0a 20 20 69 6e 74 20 72 65 74 nable;. int ret
a750: 20 3d 20 30 3b 0a 0a 20 20 69 66 28 20 6f 62 6a = 0;.. if( obj
a760: 63 21 3d 32 20 26 26 20 6f 62 6a 63 21 3d 31 20 c!=2 && objc!=1
a770: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
a780: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
a790: 31 2c 20 6f 62 6a 76 2c 20 22 3f 42 4f 4f 4c 45 1, objv, "?BOOLE
a7a0: 41 4e 3f 22 29 3b 0a 20 20 20 20 72 65 74 75 72 AN?");. retur
a7b0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
a7c0: 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 . ret = sqlite3
a7d0: 47 6c 6f 62 61 6c 43 6f 6e 66 69 67 2e 73 68 61 GlobalConfig.sha
a7e0: 72 65 64 43 61 63 68 65 45 6e 61 62 6c 65 64 3b redCacheEnabled;
a7f0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d 32 20 .. if( objc==2
a800: 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 ){. if( Tcl_G
a810: 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a etBooleanFromObj
a820: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d (interp, objv[1]
a830: 2c 20 26 65 6e 61 62 6c 65 29 20 29 7b 0a 20 20 , &enable) ){.
a840: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
a850: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
a860: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 65 6e 61 rc = sqlite3_ena
a870: 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65 ble_shared_cache
a880: 28 65 6e 61 62 6c 65 29 3b 0a 20 20 20 20 69 66 (enable);. if
a890: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc!=SQLITE_OK
a8a0: 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 ){. Tcl_Set
a8b0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 Result(interp, (
a8c0: 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 45 72 char *)sqlite3Er
a8d0: 72 53 74 72 28 72 63 29 2c 20 54 43 4c 5f 53 54 rStr(rc), TCL_ST
a8e0: 41 54 49 43 29 3b 0a 20 20 20 20 20 20 72 65 74 ATIC);. ret
a8f0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
a900: 20 20 20 7d 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 }. }. Tcl_S
a910: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
a920: 72 70 2c 20 54 63 6c 5f 4e 65 77 42 6f 6f 6c 65 rp, Tcl_NewBoole
a930: 61 6e 4f 62 6a 28 72 65 74 29 29 3b 0a 20 20 72 anObj(ret));. r
a940: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
a950: 23 65 6e 64 69 66 0a 0a 0a 0a 2f 2a 0a 2a 2a 20 #endif..../*.**
a960: 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 65 Usage: sqlite3_e
a970: 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 xtended_result_c
a980: 6f 64 65 73 20 20 20 44 42 20 20 20 20 42 4f 4f odes DB BOO
a990: 4c 45 41 4e 0a 2a 2a 0a 2a 2f 0a 73 74 61 74 69 LEAN.**.*/.stati
a9a0: 63 20 69 6e 74 20 74 65 73 74 5f 65 78 74 65 6e c int test_exten
a9b0: 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 ded_result_codes
a9c0: 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
a9d0: 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f lientData, /* Po
a9e0: 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 inter to sqlite3
a9f0: 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 _enable_XXX func
aa00: 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e tion */. Tcl_In
aa10: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
aa20: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
aa30: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
aa40: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
aa50: 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c d */. int objc,
aa60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
aa70: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
aa80: 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 ents */. Tcl_Ob
aa90: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 j *CONST objv[]
aaa0: 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 /* Command argu
aab0: 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e ments */.){. in
aac0: 74 20 65 6e 61 62 6c 65 3b 0a 20 20 73 71 6c 69 t enable;. sqli
aad0: 74 65 33 20 2a 64 62 3b 0a 0a 20 20 69 66 28 20 te3 *db;.. if(
aae0: 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 objc!=3 ){. T
aaf0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
ab00: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
ab10: 20 22 44 42 20 42 4f 4f 4c 45 41 4e 22 29 3b 0a "DB BOOLEAN");.
ab20: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
ab30: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
ab40: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
ab50: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
ab60: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
ab70: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
ab80: 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
ab90: 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 GetBooleanFromOb
aba0: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 j(interp, objv[2
abb0: 5d 2c 20 26 65 6e 61 62 6c 65 29 20 29 20 72 65 ], &enable) ) re
abc0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
abd0: 20 20 73 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 sqlite3_extend
abe0: 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 28 ed_result_codes(
abf0: 64 62 2c 20 65 6e 61 62 6c 65 29 3b 0a 20 20 72 db, enable);. r
ac00: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
ac10: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
ac20: 6c 69 74 65 33 5f 6c 69 62 76 65 72 73 69 6f 6e lite3_libversion
ac30: 5f 6e 75 6d 62 65 72 0a 2a 2a 0a 2a 2f 0a 73 74 _number.**.*/.st
ac40: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6c 69 atic int test_li
ac50: 62 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 28 bversion_number(
ac60: 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c . ClientData cl
ac70: 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 ientData, /* Poi
ac80: 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 5f nter to sqlite3_
ac90: 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 enable_XXX funct
aca0: 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 ion */. Tcl_Int
acb0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
acc0: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
acd0: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
ace0: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
acf0: 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 */. int objc,
ad00: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
ad10: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
ad20: 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a nts */. Tcl_Obj
ad30: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 *CONST objv[]
ad40: 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d /* Command argum
ad50: 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 54 63 6c ents */.){. Tcl
ad60: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
ad70: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 terp, Tcl_NewInt
ad80: 4f 62 6a 28 73 71 6c 69 74 65 33 5f 6c 69 62 76 Obj(sqlite3_libv
ad90: 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 28 29 29 ersion_number())
ada0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
adb0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
adc0: 67 65 3a 20 73 71 6c 69 74 65 33 5f 74 61 62 6c ge: sqlite3_tabl
add0: 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61 74 e_column_metadat
ade0: 61 20 44 42 20 64 62 6e 61 6d 65 20 74 62 6c 6e a DB dbname tbln
adf0: 61 6d 65 20 63 6f 6c 6e 61 6d 65 0a 2a 2a 0a 2a ame colname.**.*
ae00: 2f 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f /.#ifdef SQLITE_
ae10: 45 4e 41 42 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 ENABLE_COLUMN_ME
ae20: 54 41 44 41 54 41 0a 73 74 61 74 69 63 20 69 6e TADATA.static in
ae30: 74 20 74 65 73 74 5f 74 61 62 6c 65 5f 63 6f 6c t test_table_col
ae40: 75 6d 6e 5f 6d 65 74 61 64 61 74 61 28 0a 20 20 umn_metadata(.
ae50: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
ae60: 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 tData, /* Pointe
ae70: 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 r to sqlite3_ena
ae80: 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e ble_XXX function
ae90: 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 */. Tcl_Interp
aea0: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
aeb0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
aec0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
aed0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
aee0: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 . int objc,
aef0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
af00: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
af10: 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 */. Tcl_Obj *C
af20: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 ONST objv[] /*
af30: 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 Command argument
af40: 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 s */.){. sqlite
af50: 33 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 3 *db;. const c
af60: 68 61 72 20 2a 7a 44 62 3b 0a 20 20 63 6f 6e 73 har *zDb;. cons
af70: 74 20 63 68 61 72 20 2a 7a 54 62 6c 3b 0a 20 20 t char *zTbl;.
af80: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 6c const char *zCol
af90: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 54 63 ;. int rc;. Tc
afa0: 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a 0a 20 20 l_Obj *pRet;..
afb0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 61 74 const char *zDat
afc0: 61 74 79 70 65 3b 0a 20 20 63 6f 6e 73 74 20 63 atype;. const c
afd0: 68 61 72 20 2a 7a 43 6f 6c 6c 73 65 71 3b 0a 20 har *zCollseq;.
afe0: 20 69 6e 74 20 6e 6f 74 6e 75 6c 6c 3b 0a 20 20 int notnull;.
aff0: 69 6e 74 20 70 72 69 6d 61 72 79 6b 65 79 3b 0a int primarykey;.
b000: 20 20 69 6e 74 20 61 75 74 6f 69 6e 63 72 65 6d int autoincrem
b010: 65 6e 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 ent;.. if( objc
b020: 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 !=5 ){. Tcl_W
b030: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
b040: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 rp, 1, objv, "DB
b050: 20 64 62 6e 61 6d 65 20 74 62 6c 6e 61 6d 65 20 dbname tblname
b060: 63 6f 6c 6e 61 6d 65 22 29 3b 0a 20 20 20 20 72 colname");. r
b070: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
b080: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
b090: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
b0a0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
b0b0: 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 jv[1]), &db) ) r
b0c0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
b0d0: 0a 20 20 7a 44 62 20 3d 20 54 63 6c 5f 47 65 74 . zDb = Tcl_Get
b0e0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b String(objv[2]);
b0f0: 0a 20 20 7a 54 62 6c 20 3d 20 54 63 6c 5f 47 65 . zTbl = Tcl_Ge
b100: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 tString(objv[3])
b110: 3b 0a 20 20 7a 43 6f 6c 20 3d 20 54 63 6c 5f 47 ;. zCol = Tcl_G
b120: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34 5d etString(objv[4]
b130: 29 3b 0a 0a 20 20 69 66 28 20 73 74 72 6c 65 6e );.. if( strlen
b140: 28 7a 44 62 29 3d 3d 30 20 29 20 7a 44 62 20 3d (zDb)==0 ) zDb =
b150: 20 30 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 0;.. rc = sqli
b160: 74 65 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e te3_table_column
b170: 5f 6d 65 74 61 64 61 74 61 28 64 62 2c 20 7a 44 _metadata(db, zD
b180: 62 2c 20 7a 54 62 6c 2c 20 7a 43 6f 6c 2c 20 0a b, zTbl, zCol, .
b190: 20 20 20 20 20 20 26 7a 44 61 74 61 74 79 70 65 &zDatatype
b1a0: 2c 20 26 7a 43 6f 6c 6c 73 65 71 2c 20 26 6e 6f , &zCollseq, &no
b1b0: 74 6e 75 6c 6c 2c 20 26 70 72 69 6d 61 72 79 6b tnull, &primaryk
b1c0: 65 79 2c 20 26 61 75 74 6f 69 6e 63 72 65 6d 65 ey, &autoincreme
b1d0: 6e 74 29 3b 0a 0a 20 20 69 66 28 20 72 63 21 3d nt);.. if( rc!=
b1e0: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
b1f0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
b200: 74 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 t(interp, sqlite
b210: 33 5f 65 72 72 6d 73 67 28 64 62 29 2c 20 30 29 3_errmsg(db), 0)
b220: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
b230: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 70 _ERROR;. }.. p
b240: 52 65 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a Ret = Tcl_NewObj
b250: 28 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ();. Tcl_ListOb
b260: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 jAppendElement(0
b270: 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 , pRet, Tcl_NewS
b280: 74 72 69 6e 67 4f 62 6a 28 7a 44 61 74 61 74 79 tringObj(zDataty
b290: 70 65 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f pe, -1));. Tcl_
b2a0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
b2b0: 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 63 ment(0, pRet, Tc
b2c0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a l_NewStringObj(z
b2d0: 43 6f 6c 6c 73 65 71 2c 20 2d 31 29 29 3b 0a 20 Collseq, -1));.
b2e0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
b2f0: 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 ndElement(0, pRe
b300: 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a t, Tcl_NewIntObj
b310: 28 6e 6f 74 6e 75 6c 6c 29 29 3b 0a 20 20 54 63 (notnull));. Tc
b320: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
b330: 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 lement(0, pRet,
b340: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 70 72 Tcl_NewIntObj(pr
b350: 69 6d 61 72 79 6b 65 79 29 29 3b 0a 20 20 54 63 imarykey));. Tc
b360: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
b370: 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 lement(0, pRet,
b380: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 61 75 Tcl_NewIntObj(au
b390: 74 6f 69 6e 63 72 65 6d 65 6e 74 29 29 3b 0a 20 toincrement));.
b3a0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
b3b0: 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b t(interp, pRet);
b3c0: 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f .. return TCL_O
b3d0: 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 69 66 K;.}.#endif..#if
b3e0: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 ndef SQLITE_OMIT
b3f0: 5f 49 4e 43 52 42 4c 4f 42 0a 0a 73 74 61 74 69 _INCRBLOB..stati
b400: 63 20 69 6e 74 20 62 6c 6f 62 48 61 6e 64 6c 65 c int blobHandle
b410: 46 72 6f 6d 4f 62 6a 28 0a 20 20 54 63 6c 5f 49 FromObj(. Tcl_I
b420: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a nterp *interp, .
b430: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 4f 62 6a 2c Tcl_Obj *pObj,
b440: 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 . sqlite3_blob
b450: 2a 2a 70 70 42 6c 6f 62 0a 29 7b 0a 20 20 63 68 **ppBlob.){. ch
b460: 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 6e 3b 0a ar *z;. int n;.
b470: 0a 20 20 7a 20 3d 20 54 63 6c 5f 47 65 74 53 74 . z = Tcl_GetSt
b480: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 70 4f 62 6a ringFromObj(pObj
b490: 2c 20 26 6e 29 3b 0a 20 20 69 66 28 20 6e 3d 3d , &n);. if( n==
b4a0: 30 20 29 7b 0a 20 20 20 20 2a 70 70 42 6c 6f 62 0 ){. *ppBlob
b4b0: 20 3d 20 30 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 = 0;. }else{.
b4c0: 20 20 20 69 6e 74 20 6e 6f 74 55 73 65 64 3b 0a int notUsed;.
b4d0: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
b4e0: 63 68 61 6e 6e 65 6c 3b 0a 20 20 20 20 43 6c 69 channel;. Cli
b4f0: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
b500: 44 61 74 61 3b 0a 20 20 20 20 0a 20 20 20 20 63 Data;. . c
b510: 68 61 6e 6e 65 6c 20 3d 20 54 63 6c 5f 47 65 74 hannel = Tcl_Get
b520: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
b530: 7a 2c 20 26 6e 6f 74 55 73 65 64 29 3b 0a 20 20 z, ¬Used);.
b540: 20 20 69 66 28 20 21 63 68 61 6e 6e 65 6c 20 29 if( !channel )
b550: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
b560: 52 3b 0a 0a 20 20 20 20 54 63 6c 5f 46 6c 75 73 R;.. Tcl_Flus
b570: 68 28 63 68 61 6e 6e 65 6c 29 3b 0a 20 20 20 20 h(channel);.
b580: 54 63 6c 5f 53 65 65 6b 28 63 68 61 6e 6e 65 6c Tcl_Seek(channel
b590: 2c 20 30 2c 20 53 45 45 4b 5f 53 45 54 29 3b 0a , 0, SEEK_SET);.
b5a0: 0a 20 20 20 20 69 6e 73 74 61 6e 63 65 44 61 74 . instanceDat
b5b0: 61 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e a = Tcl_GetChann
b5c0: 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 63 elInstanceData(c
b5d0: 68 61 6e 6e 65 6c 29 3b 0a 20 20 20 20 2a 70 70 hannel);. *pp
b5e0: 42 6c 6f 62 20 3d 20 2a 28 28 73 71 6c 69 74 65 Blob = *((sqlite
b5f0: 33 5f 62 6c 6f 62 20 2a 2a 29 69 6e 73 74 61 6e 3_blob **)instan
b600: 63 65 44 61 74 61 29 3b 0a 20 20 7d 0a 0a 20 20 ceData);. }..
b610: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
b620: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 ..static int tes
b630: 74 5f 62 6c 6f 62 5f 72 65 6f 70 65 6e 28 0a 20 t_blob_reopen(.
b640: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 ClientData clie
b650: 6e 74 44 61 74 61 2c 20 2f 2a 20 4e 6f 74 20 75 ntData, /* Not u
b660: 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 sed */. Tcl_Int
b670: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
b680: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
b690: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
b6a0: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
b6b0: 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 */. int objc,
b6c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
b6d0: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
b6e0: 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a nts */. Tcl_Obj
b6f0: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 *CONST objv[]
b700: 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d /* Command argum
b710: 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 54 63 6c ents */.){. Tcl
b720: 5f 57 69 64 65 49 6e 74 20 69 52 6f 77 69 64 3b _WideInt iRowid;
b730: 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 . sqlite3_blob
b740: 2a 70 42 6c 6f 62 3b 0a 20 20 69 6e 74 20 72 63 *pBlob;. int rc
b750: 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 ;.. if( objc!=3
b760: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e ){. Tcl_Wron
b770: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
b780: 20 31 2c 20 6f 62 6a 76 2c 20 22 43 48 41 4e 4e 1, objv, "CHANN
b790: 45 4c 20 52 4f 57 49 44 22 29 3b 0a 20 20 20 20 EL ROWID");.
b7a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
b7b0: 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 62 6c 6f ;. }.. if( blo
b7c0: 62 48 61 6e 64 6c 65 46 72 6f 6d 4f 62 6a 28 69 bHandleFromObj(i
b7d0: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 nterp, objv[1],
b7e0: 26 70 42 6c 6f 62 29 20 29 20 72 65 74 75 72 6e &pBlob) ) return
b7f0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
b800: 28 20 54 63 6c 5f 47 65 74 57 69 64 65 49 6e 74 ( Tcl_GetWideInt
b810: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
b820: 6f 62 6a 76 5b 32 5d 2c 20 26 69 52 6f 77 69 64 objv[2], &iRowid
b830: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
b840: 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 RROR;.. rc = sq
b850: 6c 69 74 65 33 5f 62 6c 6f 62 5f 72 65 6f 70 65 lite3_blob_reope
b860: 6e 28 70 42 6c 6f 62 2c 20 69 52 6f 77 69 64 29 n(pBlob, iRowid)
b870: 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 ;. if( rc!=SQLI
b880: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c TE_OK ){. Tcl
b890: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
b8a0: 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c 69 74 p, (char *)sqlit
b8b0: 65 33 45 72 72 4e 61 6d 65 28 72 63 29 2c 20 54 e3ErrName(rc), T
b8c0: 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 CL_VOLATILE);.
b8d0: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 28 72 63 3d }.. return (rc=
b8e0: 3d 53 51 4c 49 54 45 5f 4f 4b 20 3f 20 54 43 4c =SQLITE_OK ? TCL
b8f0: 5f 4f 4b 20 3a 20 54 43 4c 5f 45 52 52 4f 52 29 _OK : TCL_ERROR)
b900: 3b 0a 7d 0a 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a ;.}..#endif../*.
b910: 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
b920: 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 3_create_collati
b930: 6f 6e 5f 76 32 20 44 42 2d 48 41 4e 44 4c 45 20 on_v2 DB-HANDLE
b940: 4e 41 4d 45 20 43 4d 50 2d 50 52 4f 43 20 44 45 NAME CMP-PROC DE
b950: 4c 2d 50 52 4f 43 0a 2a 2a 0a 2a 2a 20 20 20 54 L-PROC.**.** T
b960: 68 69 73 20 54 63 6c 20 70 72 6f 63 20 69 73 20 his Tcl proc is
b970: 75 73 65 64 20 66 6f 72 20 74 65 73 74 69 6e 67 used for testing
b980: 20 74 68 65 20 65 78 70 65 72 69 6d 65 6e 74 61 the experimenta
b990: 6c 0a 2a 2a 20 20 20 73 71 6c 69 74 65 33 5f 63 l.** sqlite3_c
b9a0: 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 5f reate_collation_
b9b0: 76 32 28 29 20 69 6e 74 65 72 66 61 63 65 2e 0a v2() interface..
b9c0: 2a 2f 0a 73 74 72 75 63 74 20 54 65 73 74 43 6f */.struct TestCo
b9d0: 6c 6c 61 74 69 6f 6e 58 20 7b 0a 20 20 54 63 6c llationX {. Tcl
b9e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b _Interp *interp;
b9f0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 43 6d 70 . Tcl_Obj *pCmp
ba00: 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 44 65 ;. Tcl_Obj *pDe
ba10: 6c 3b 0a 7d 3b 0a 74 79 70 65 64 65 66 20 73 74 l;.};.typedef st
ba20: 72 75 63 74 20 54 65 73 74 43 6f 6c 6c 61 74 69 ruct TestCollati
ba30: 6f 6e 58 20 54 65 73 74 43 6f 6c 6c 61 74 69 6f onX TestCollatio
ba40: 6e 58 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 20 nX;.static void
ba50: 74 65 73 74 43 72 65 61 74 65 43 6f 6c 6c 61 74 testCreateCollat
ba60: 69 6f 6e 44 65 6c 28 76 6f 69 64 20 2a 70 43 74 ionDel(void *pCt
ba70: 78 29 7b 0a 20 20 54 65 73 74 43 6f 6c 6c 61 74 x){. TestCollat
ba80: 69 6f 6e 58 20 2a 70 20 3d 20 28 54 65 73 74 43 ionX *p = (TestC
ba90: 6f 6c 6c 61 74 69 6f 6e 58 20 2a 29 70 43 74 78 ollationX *)pCtx
baa0: 3b 0a 0a 20 20 69 6e 74 20 72 63 20 3d 20 54 63 ;.. int rc = Tc
bab0: 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70 2d 3e 69 l_EvalObjEx(p->i
bac0: 6e 74 65 72 70 2c 20 70 2d 3e 70 44 65 6c 2c 20 nterp, p->pDel,
bad0: 54 43 4c 5f 45 56 41 4c 5f 44 49 52 45 43 54 7c TCL_EVAL_DIRECT|
bae0: 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 TCL_EVAL_GLOBAL)
baf0: 3b 0a 20 20 69 66 28 20 72 63 21 3d 54 43 4c 5f ;. if( rc!=TCL_
bb00: 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 42 61 OK ){. Tcl_Ba
bb10: 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 70 2d ckgroundError(p-
bb20: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a 0a 20 >interp);. }..
bb30: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
bb40: 74 28 70 2d 3e 70 43 6d 70 29 3b 0a 20 20 54 63 t(p->pCmp);. Tc
bb50: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 l_DecrRefCount(p
bb60: 2d 3e 70 44 65 6c 29 3b 0a 20 20 73 71 6c 69 74 ->pDel);. sqlit
bb70: 65 33 5f 66 72 65 65 28 28 76 6f 69 64 20 2a 29 e3_free((void *)
bb80: 70 29 3b 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 p);.}.static int
bb90: 20 74 65 73 74 43 72 65 61 74 65 43 6f 6c 6c 61 testCreateColla
bba0: 74 69 6f 6e 43 6d 70 28 0a 20 20 76 6f 69 64 20 tionCmp(. void
bbb0: 2a 70 43 74 78 2c 0a 20 20 69 6e 74 20 6e 4c 65 *pCtx,. int nLe
bbc0: 66 74 2c 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 ft,. const void
bbd0: 20 2a 7a 4c 65 66 74 2c 0a 20 20 69 6e 74 20 6e *zLeft,. int n
bbe0: 52 69 67 68 74 2c 0a 20 20 63 6f 6e 73 74 20 76 Right,. const v
bbf0: 6f 69 64 20 2a 7a 52 69 67 68 74 0a 29 7b 0a 20 oid *zRight.){.
bc00: 20 54 65 73 74 43 6f 6c 6c 61 74 69 6f 6e 58 20 TestCollationX
bc10: 2a 70 20 3d 20 28 54 65 73 74 43 6f 6c 6c 61 74 *p = (TestCollat
bc20: 69 6f 6e 58 20 2a 29 70 43 74 78 3b 0a 20 20 54 ionX *)pCtx;. T
bc30: 63 6c 5f 4f 62 6a 20 2a 70 53 63 72 69 70 74 20 cl_Obj *pScript
bc40: 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f = Tcl_DuplicateO
bc50: 62 6a 28 70 2d 3e 70 43 6d 70 29 3b 0a 20 20 69 bj(p->pCmp);. i
bc60: 6e 74 20 69 52 65 73 20 3d 20 30 3b 0a 0a 20 20 nt iRes = 0;..
bc70: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
bc80: 28 70 53 63 72 69 70 74 29 3b 0a 20 20 54 63 6c (pScript);. Tcl
bc90: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
bca0: 65 6d 65 6e 74 28 30 2c 20 70 53 63 72 69 70 74 ement(0, pScript
bcb0: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
bcc0: 62 6a 28 28 63 68 61 72 20 2a 29 7a 4c 65 66 74 bj((char *)zLeft
bcd0: 2c 20 6e 4c 65 66 74 29 29 3b 0a 20 20 54 63 6c , nLeft));. Tcl
bce0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
bcf0: 65 6d 65 6e 74 28 30 2c 20 70 53 63 72 69 70 74 ement(0, pScript
bd00: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
bd10: 62 6a 28 28 63 68 61 72 20 2a 29 7a 52 69 67 68 bj((char *)zRigh
bd20: 74 2c 6e 52 69 67 68 74 29 29 3b 0a 0a 20 20 69 t,nRight));.. i
bd30: 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 45 f( TCL_OK!=Tcl_E
bd40: 76 61 6c 4f 62 6a 45 78 28 70 2d 3e 69 6e 74 65 valObjEx(p->inte
bd50: 72 70 2c 20 70 53 63 72 69 70 74 2c 20 54 43 4c rp, pScript, TCL
bd60: 5f 45 56 41 4c 5f 44 49 52 45 43 54 7c 54 43 4c _EVAL_DIRECT|TCL
bd70: 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 0a 20 20 _EVAL_GLOBAL).
bd80: 20 7c 7c 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f || TCL_OK!=Tcl_
bd90: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 70 2d GetIntFromObj(p-
bda0: 3e 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 >interp, Tcl_Get
bdb0: 4f 62 6a 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74 ObjResult(p->int
bdc0: 65 72 70 29 2c 20 26 69 52 65 73 29 0a 20 20 29 erp), &iRes). )
bdd0: 7b 0a 20 20 20 20 54 63 6c 5f 42 61 63 6b 67 72 {. Tcl_Backgr
bde0: 6f 75 6e 64 45 72 72 6f 72 28 70 2d 3e 69 6e 74 oundError(p->int
bdf0: 65 72 70 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f erp);. }. Tcl_
be00: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 53 63 DecrRefCount(pSc
be10: 72 69 70 74 29 3b 0a 0a 20 20 72 65 74 75 72 6e ript);.. return
be20: 20 69 52 65 73 3b 0a 7d 0a 73 74 61 74 69 63 20 iRes;.}.static
be30: 69 6e 74 20 74 65 73 74 5f 63 72 65 61 74 65 5f int test_create_
be40: 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 28 0a 20 20 collation_v2(.
be50: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
be60: 74 44 61 74 61 2c 20 2f 2a 20 4e 6f 74 20 75 73 tData, /* Not us
be70: 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 ed */. Tcl_Inte
be80: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
be90: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
bea0: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
beb0: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
bec0: 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 */. int objc,
bed0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
bee0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
bef0: 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 ts */. Tcl_Obj
bf00: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f *CONST objv[] /
bf10: 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 * Command argume
bf20: 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 54 65 73 74 nts */.){. Test
bf30: 43 6f 6c 6c 61 74 69 6f 6e 58 20 2a 70 3b 0a 20 CollationX *p;.
bf40: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
bf50: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
bf60: 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 bjc!=5 ){. Tc
bf70: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
bf80: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
bf90: 22 44 42 2d 48 41 4e 44 4c 45 20 4e 41 4d 45 20 "DB-HANDLE NAME
bfa0: 43 4d 50 2d 50 52 4f 43 20 44 45 4c 2d 50 52 4f CMP-PROC DEL-PRO
bfb0: 43 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 C");. return
bfc0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
bfd0: 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
bfe0: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
bff0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
c000: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
c010: 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 70 20 TCL_ERROR;.. p
c020: 3d 20 28 54 65 73 74 43 6f 6c 6c 61 74 69 6f 6e = (TestCollation
c030: 58 20 2a 29 73 71 6c 69 74 65 33 5f 6d 61 6c 6c X *)sqlite3_mall
c040: 6f 63 28 73 69 7a 65 6f 66 28 54 65 73 74 43 6f oc(sizeof(TestCo
c050: 6c 6c 61 74 69 6f 6e 58 29 29 3b 0a 20 20 70 2d llationX));. p-
c060: 3e 70 43 6d 70 20 3d 20 6f 62 6a 76 5b 33 5d 3b >pCmp = objv[3];
c070: 0a 20 20 70 2d 3e 70 44 65 6c 20 3d 20 6f 62 6a . p->pDel = obj
c080: 76 5b 34 5d 3b 0a 20 20 70 2d 3e 69 6e 74 65 72 v[4];. p->inter
c090: 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20 54 63 p = interp;. Tc
c0a0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 l_IncrRefCount(p
c0b0: 2d 3e 70 43 6d 70 29 3b 0a 20 20 54 63 6c 5f 49 ->pCmp);. Tcl_I
c0c0: 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 ncrRefCount(p->p
c0d0: 44 65 6c 29 3b 0a 0a 20 20 72 63 20 3d 20 73 71 Del);.. rc = sq
c0e0: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c lite3_create_col
c0f0: 6c 61 74 69 6f 6e 5f 76 32 28 64 62 2c 20 54 63 lation_v2(db, Tc
c100: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
c110: 5b 32 5d 29 2c 20 31 36 2c 20 0a 20 20 20 20 20 [2]), 16, .
c120: 20 28 76 6f 69 64 20 2a 29 70 2c 20 74 65 73 74 (void *)p, test
c130: 43 72 65 61 74 65 43 6f 6c 6c 61 74 69 6f 6e 43 CreateCollationC
c140: 6d 70 2c 20 74 65 73 74 43 72 65 61 74 65 43 6f mp, testCreateCo
c150: 6c 6c 61 74 69 6f 6e 44 65 6c 0a 20 20 29 3b 0a llationDel. );.
c160: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 if( rc!=SQLITE
c170: 5f 4d 49 53 55 53 45 20 29 7b 0a 20 20 20 20 54 _MISUSE ){. T
c180: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
c190: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 33 interp, "sqlite3
c1a0: 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 65 5f _create_collate_
c1b0: 76 32 28 29 20 66 61 69 6c 65 64 20 74 6f 20 64 v2() failed to d
c1c0: 65 74 65 63 74 20 22 0a 20 20 20 20 20 20 22 61 etect ". "a
c1d0: 6e 20 69 6e 76 61 6c 69 64 20 65 6e 63 6f 64 69 n invalid encodi
c1e0: 6e 67 22 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a ng", (char*)0);.
c1f0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
c200: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 20 3d RROR;. }. rc =
c210: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
c220: 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 28 64 62 2c collation_v2(db,
c230: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
c240: 62 6a 76 5b 32 5d 29 2c 20 53 51 4c 49 54 45 5f bjv[2]), SQLITE_
c250: 55 54 46 38 2c 20 0a 20 20 20 20 20 20 28 76 6f UTF8, . (vo
c260: 69 64 20 2a 29 70 2c 20 74 65 73 74 43 72 65 61 id *)p, testCrea
c270: 74 65 43 6f 6c 6c 61 74 69 6f 6e 43 6d 70 2c 20 teCollationCmp,
c280: 74 65 73 74 43 72 65 61 74 65 43 6f 6c 6c 61 74 testCreateCollat
c290: 69 6f 6e 44 65 6c 0a 20 20 29 3b 0a 20 20 72 65 ionDel. );. re
c2a0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
c2b0: 2f 2a 0a 2a 2a 20 55 53 41 47 45 3a 20 73 71 6c /*.** USAGE: sql
c2c0: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 ite3_create_func
c2d0: 74 69 6f 6e 5f 76 32 20 44 42 20 4e 41 4d 45 20 tion_v2 DB NAME
c2e0: 4e 41 52 47 20 45 4e 43 20 3f 53 57 49 54 43 48 NARG ENC ?SWITCH
c2f0: 45 53 3f 0a 2a 2a 0a 2a 2a 20 41 76 61 69 6c 61 ES?.**.** Availa
c300: 62 6c 65 20 73 77 69 74 63 68 65 73 20 61 72 65 ble switches are
c310: 3a 0a 2a 2a 0a 2a 2a 20 20 20 2d 66 75 6e 63 20 :.**.** -func
c320: 20 20 20 53 43 52 49 50 54 0a 2a 2a 20 20 20 2d SCRIPT.** -
c330: 73 74 65 70 20 20 20 20 53 43 52 49 50 54 0a 2a step SCRIPT.*
c340: 2a 20 20 20 2d 66 69 6e 61 6c 20 20 20 53 43 52 * -final SCR
c350: 49 50 54 0a 2a 2a 20 20 20 2d 64 65 73 74 72 6f IPT.** -destro
c360: 79 20 53 43 52 49 50 54 0a 2a 2f 0a 74 79 70 65 y SCRIPT.*/.type
c370: 64 65 66 20 73 74 72 75 63 74 20 43 72 65 61 74 def struct Creat
c380: 65 46 75 6e 63 74 69 6f 6e 56 32 20 43 72 65 61 eFunctionV2 Crea
c390: 74 65 46 75 6e 63 74 69 6f 6e 56 32 3b 0a 73 74 teFunctionV2;.st
c3a0: 72 75 63 74 20 43 72 65 61 74 65 46 75 6e 63 74 ruct CreateFunct
c3b0: 69 6f 6e 56 32 20 7b 0a 20 20 54 63 6c 5f 49 6e ionV2 {. Tcl_In
c3c0: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 terp *interp;.
c3d0: 54 63 6c 5f 4f 62 6a 20 2a 70 46 75 6e 63 3b 20 Tcl_Obj *pFunc;
c3e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
c3f0: 2f 2a 20 53 63 72 69 70 74 20 66 6f 72 20 66 75 /* Script for fu
c400: 6e 63 74 69 6f 6e 20 69 6e 76 6f 63 61 74 69 6f nction invocatio
c410: 6e 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a n */. Tcl_Obj *
c420: 70 53 74 65 70 3b 20 20 20 20 20 20 20 20 20 20 pStep;
c430: 20 20 20 20 20 20 20 2f 2a 20 53 63 72 69 70 74 /* Script
c440: 20 66 6f 72 20 61 67 67 2e 20 73 74 65 70 20 69 for agg. step i
c450: 6e 76 6f 63 61 74 69 6f 6e 20 2a 2f 0a 20 20 54 nvocation */. T
c460: 63 6c 5f 4f 62 6a 20 2a 70 46 69 6e 61 6c 3b 20 cl_Obj *pFinal;
c470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
c480: 2a 20 53 63 72 69 70 74 20 66 6f 72 20 61 67 67 * Script for agg
c490: 2e 20 66 69 6e 61 6c 69 7a 61 74 69 6f 6e 20 69 . finalization i
c4a0: 6e 76 6f 63 61 74 69 6f 6e 20 2a 2f 0a 20 20 54 nvocation */. T
c4b0: 63 6c 5f 4f 62 6a 20 2a 70 44 65 73 74 72 6f 79 cl_Obj *pDestroy
c4c0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f ; /
c4d0: 2a 20 44 65 73 74 72 75 63 74 6f 72 20 73 63 72 * Destructor scr
c4e0: 69 70 74 20 2a 2f 0a 7d 3b 0a 73 74 61 74 69 63 ipt */.};.static
c4f0: 20 76 6f 69 64 20 63 66 32 46 75 6e 63 28 73 71 void cf2Func(sq
c500: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
c510: 74 78 2c 20 69 6e 74 20 6e 41 72 67 2c 20 73 71 tx, int nArg, sq
c520: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 41 lite3_value **aA
c530: 72 67 29 7b 0a 7d 0a 73 74 61 74 69 63 20 76 6f rg){.}.static vo
c540: 69 64 20 63 66 32 53 74 65 70 28 73 71 6c 69 74 id cf2Step(sqlit
c550: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c e3_context *ctx,
c560: 20 69 6e 74 20 6e 41 72 67 2c 20 73 71 6c 69 74 int nArg, sqlit
c570: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 41 72 67 29 e3_value **aArg)
c580: 7b 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 {.}.static void
c590: 63 66 32 46 69 6e 61 6c 28 73 71 6c 69 74 65 33 cf2Final(sqlite3
c5a0: 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 29 7b 0a _context *ctx){.
c5b0: 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 66 }.static void cf
c5c0: 32 44 65 73 74 72 6f 79 28 76 6f 69 64 20 2a 70 2Destroy(void *p
c5d0: 55 73 65 72 29 7b 0a 20 20 43 72 65 61 74 65 46 User){. CreateF
c5e0: 75 6e 63 74 69 6f 6e 56 32 20 2a 70 20 3d 20 28 unctionV2 *p = (
c5f0: 43 72 65 61 74 65 46 75 6e 63 74 69 6f 6e 56 32 CreateFunctionV2
c600: 20 2a 29 70 55 73 65 72 3b 0a 0a 20 20 69 66 28 *)pUser;.. if(
c610: 20 70 2d 3e 69 6e 74 65 72 70 20 26 26 20 70 2d p->interp && p-
c620: 3e 70 44 65 73 74 72 6f 79 20 29 7b 0a 20 20 20 >pDestroy ){.
c630: 20 69 6e 74 20 72 63 20 3d 20 54 63 6c 5f 45 76 int rc = Tcl_Ev
c640: 61 6c 4f 62 6a 45 78 28 70 2d 3e 69 6e 74 65 72 alObjEx(p->inter
c650: 70 2c 20 70 2d 3e 70 44 65 73 74 72 6f 79 2c 20 p, p->pDestroy,
c660: 30 29 3b 0a 20 20 20 20 69 66 28 20 72 63 21 3d 0);. if( rc!=
c670: 54 43 4c 5f 4f 4b 20 29 20 54 63 6c 5f 42 61 63 TCL_OK ) Tcl_Bac
c680: 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 70 2d 3e kgroundError(p->
c690: 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a 0a 20 20 interp);. }..
c6a0: 69 66 28 20 70 2d 3e 70 46 75 6e 63 20 29 20 54 if( p->pFunc ) T
c6b0: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
c6c0: 70 2d 3e 70 46 75 6e 63 29 3b 20 0a 20 20 69 66 p->pFunc); . if
c6d0: 28 20 70 2d 3e 70 53 74 65 70 20 29 20 54 63 6c ( p->pStep ) Tcl
c6e0: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 2d _DecrRefCount(p-
c6f0: 3e 70 53 74 65 70 29 3b 20 0a 20 20 69 66 28 20 >pStep); . if(
c700: 70 2d 3e 70 46 69 6e 61 6c 20 29 20 54 63 6c 5f p->pFinal ) Tcl_
c710: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e DecrRefCount(p->
c720: 70 46 69 6e 61 6c 29 3b 20 0a 20 20 69 66 28 20 pFinal); . if(
c730: 70 2d 3e 70 44 65 73 74 72 6f 79 20 29 20 54 63 p->pDestroy ) Tc
c740: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 l_DecrRefCount(p
c750: 2d 3e 70 44 65 73 74 72 6f 79 29 3b 20 0a 20 20 ->pDestroy); .
c760: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70 29 3b sqlite3_free(p);
c770: 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 .}.static int te
c780: 73 74 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 st_create_functi
c790: 6f 6e 5f 76 32 28 0a 20 20 43 6c 69 65 6e 74 44 on_v2(. ClientD
c7a0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
c7b0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 74 20 /* Not
c7c0: 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e used */. Tcl_In
c7d0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
c7e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 /* The
c7f0: 20 69 6e 76 6f 6b 69 6e 67 20 54 43 4c 20 69 6e invoking TCL in
c800: 74 65 72 70 72 65 74 65 72 20 2a 2f 0a 20 20 69 terpreter */. i
c810: 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 nt objc,
c820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
c830: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
c840: 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f ments */. Tcl_O
c850: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
c860: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6f /* Co
c870: 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 mmand arguments
c880: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 */.){. sqlite3
c890: 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 *db;. const cha
c8a0: 72 20 2a 7a 46 75 6e 63 3b 0a 20 20 69 6e 74 20 r *zFunc;. int
c8b0: 6e 41 72 67 3b 0a 20 20 69 6e 74 20 65 6e 63 3b nArg;. int enc;
c8c0: 0a 20 20 43 72 65 61 74 65 46 75 6e 63 74 69 6f . CreateFunctio
c8d0: 6e 56 32 20 2a 70 3b 0a 20 20 69 6e 74 20 69 3b nV2 *p;. int i;
c8e0: 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 73 74 . int rc;.. st
c8f0: 72 75 63 74 20 45 6e 63 54 61 62 6c 65 20 7b 0a ruct EncTable {.
c900: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
c910: 7a 45 6e 63 3b 0a 20 20 20 20 69 6e 74 20 65 6e zEnc;. int en
c920: 63 3b 0a 20 20 7d 20 61 45 6e 63 5b 5d 20 3d 20 c;. } aEnc[] =
c930: 7b 0a 20 20 20 20 7b 22 75 74 66 38 22 2c 20 20 {. {"utf8",
c940: 20 20 53 51 4c 49 54 45 5f 55 54 46 38 20 7d 2c SQLITE_UTF8 },
c950: 0a 20 20 20 20 7b 22 75 74 66 31 36 22 2c 20 20 . {"utf16",
c960: 20 53 51 4c 49 54 45 5f 55 54 46 31 36 20 7d 2c SQLITE_UTF16 },
c970: 0a 20 20 20 20 7b 22 75 74 66 31 36 6c 65 22 2c . {"utf16le",
c980: 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 45 20 SQLITE_UTF16LE
c990: 7d 2c 0a 20 20 20 20 7b 22 75 74 66 31 36 62 65 },. {"utf16be
c9a0: 22 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 42 ", SQLITE_UTF16B
c9b0: 45 20 7d 2c 0a 20 20 20 20 7b 22 61 6e 79 22 2c E },. {"any",
c9c0: 20 20 20 20 20 53 51 4c 49 54 45 5f 41 4e 59 20 SQLITE_ANY
c9d0: 7d 2c 0a 20 20 20 20 7b 22 30 22 2c 20 30 20 7d },. {"0", 0 }
c9e0: 0a 20 20 7d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a . };.. if( obj
c9f0: 63 3c 35 20 7c 7c 20 28 6f 62 6a 63 25 32 29 3d c<5 || (objc%2)=
ca00: 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 =0 ){. Tcl_Wr
ca10: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
ca20: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 20 p, 1, objv, "DB
ca30: 4e 41 4d 45 20 4e 41 52 47 20 45 4e 43 20 53 57 NAME NARG ENC SW
ca40: 49 54 43 48 45 53 2e 2e 2e 22 29 3b 0a 20 20 20 ITCHES...");.
ca50: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
ca60: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
ca70: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
ca80: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
ca90: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 (objv[1]), &db)
caa0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
cab0: 4f 52 3b 0a 20 20 7a 46 75 6e 63 20 3d 20 54 63 OR;. zFunc = Tc
cac0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
cad0: 5b 32 5d 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f [2]);. if( Tcl_
cae0: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
caf0: 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 terp, objv[3], &
cb00: 6e 41 72 67 29 20 29 20 72 65 74 75 72 6e 20 54 nArg) ) return T
cb10: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
cb20: 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d Tcl_GetIndexFrom
cb30: 4f 62 6a 53 74 72 75 63 74 28 69 6e 74 65 72 70 ObjStruct(interp
cb40: 2c 20 6f 62 6a 76 5b 34 5d 2c 20 61 45 6e 63 2c , objv[4], aEnc,
cb50: 20 73 69 7a 65 6f 66 28 61 45 6e 63 5b 30 5d 29 sizeof(aEnc[0])
cb60: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 22 65 6e , . "en
cb70: 63 6f 64 69 6e 67 22 2c 20 30 2c 20 26 65 6e 63 coding", 0, &enc
cb80: 29 0a 20 20 29 7b 0a 20 20 20 20 72 65 74 75 72 ). ){. retur
cb90: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
cba0: 0a 20 20 65 6e 63 20 3d 20 61 45 6e 63 5b 65 6e . enc = aEnc[en
cbb0: 63 5d 2e 65 6e 63 3b 0a 0a 20 20 70 20 3d 20 73 c].enc;.. p = s
cbc0: 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 73 69 qlite3_malloc(si
cbd0: 7a 65 6f 66 28 43 72 65 61 74 65 46 75 6e 63 74 zeof(CreateFunct
cbe0: 69 6f 6e 56 32 29 29 3b 0a 20 20 61 73 73 65 72 ionV2));. asser
cbf0: 74 28 20 70 20 29 3b 0a 20 20 6d 65 6d 73 65 74 t( p );. memset
cc00: 28 70 2c 20 30 2c 20 73 69 7a 65 6f 66 28 43 72 (p, 0, sizeof(Cr
cc10: 65 61 74 65 46 75 6e 63 74 69 6f 6e 56 32 29 29 eateFunctionV2))
cc20: 3b 0a 20 20 70 2d 3e 69 6e 74 65 72 70 20 3d 20 ;. p->interp =
cc30: 69 6e 74 65 72 70 3b 0a 0a 20 20 66 6f 72 28 69 interp;.. for(i
cc40: 3d 35 3b 20 69 3c 6f 62 6a 63 3b 20 69 2b 3d 32 =5; i<objc; i+=2
cc50: 29 7b 0a 20 20 20 20 69 6e 74 20 69 53 77 69 74 ){. int iSwit
cc60: 63 68 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 ch;. const ch
cc70: 61 72 20 2a 61 7a 53 77 69 74 63 68 5b 5d 20 3d ar *azSwitch[] =
cc80: 20 7b 22 2d 66 75 6e 63 22 2c 20 22 2d 73 74 65 {"-func", "-ste
cc90: 70 22 2c 20 22 2d 66 69 6e 61 6c 22 2c 20 22 2d p", "-final", "-
cca0: 64 65 73 74 72 6f 79 22 2c 20 30 7d 3b 0a 20 20 destroy", 0};.
ccb0: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 64 if( Tcl_GetInd
ccc0: 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 exFromObj(interp
ccd0: 2c 20 6f 62 6a 76 5b 69 5d 2c 20 61 7a 53 77 69 , objv[i], azSwi
cce0: 74 63 68 2c 20 22 73 77 69 74 63 68 22 2c 20 30 tch, "switch", 0
ccf0: 2c 20 26 69 53 77 69 74 63 68 29 20 29 7b 0a 20 , &iSwitch) ){.
cd00: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 sqlite3_fre
cd10: 65 28 70 29 3b 0a 20 20 20 20 20 20 72 65 74 75 e(p);. retu
cd20: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
cd30: 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 28 }.. switch(
cd40: 20 69 53 77 69 74 63 68 20 29 7b 0a 20 20 20 20 iSwitch ){.
cd50: 20 20 63 61 73 65 20 30 3a 20 70 2d 3e 70 46 75 case 0: p->pFu
cd60: 6e 63 20 3d 20 6f 62 6a 76 5b 69 2b 31 5d 3b 20 nc = objv[i+1];
cd70: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
cd80: 20 20 63 61 73 65 20 31 3a 20 70 2d 3e 70 53 74 case 1: p->pSt
cd90: 65 70 20 3d 20 6f 62 6a 76 5b 69 2b 31 5d 3b 20 ep = objv[i+1];
cda0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
cdb0: 20 20 63 61 73 65 20 32 3a 20 70 2d 3e 70 46 69 case 2: p->pFi
cdc0: 6e 61 6c 20 3d 20 6f 62 6a 76 5b 69 2b 31 5d 3b nal = objv[i+1];
cdd0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
cde0: 20 20 63 61 73 65 20 33 3a 20 70 2d 3e 70 44 65 case 3: p->pDe
cdf0: 73 74 72 6f 79 20 3d 20 6f 62 6a 76 5b 69 2b 31 stroy = objv[i+1
ce00: 5d 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 ]; break;.
ce10: 7d 0a 20 20 7d 0a 20 20 69 66 28 20 70 2d 3e 70 }. }. if( p->p
ce20: 46 75 6e 63 20 29 20 70 2d 3e 70 46 75 6e 63 20 Func ) p->pFunc
ce30: 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f = Tcl_DuplicateO
ce40: 62 6a 28 70 2d 3e 70 46 75 6e 63 29 3b 20 0a 20 bj(p->pFunc); .
ce50: 20 69 66 28 20 70 2d 3e 70 53 74 65 70 20 29 20 if( p->pStep )
ce60: 70 2d 3e 70 53 74 65 70 20 3d 20 54 63 6c 5f 44 p->pStep = Tcl_D
ce70: 75 70 6c 69 63 61 74 65 4f 62 6a 28 70 2d 3e 70 uplicateObj(p->p
ce80: 53 74 65 70 29 3b 20 0a 20 20 69 66 28 20 70 2d Step); . if( p-
ce90: 3e 70 46 69 6e 61 6c 20 29 20 70 2d 3e 70 46 69 >pFinal ) p->pFi
cea0: 6e 61 6c 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 nal = Tcl_Duplic
ceb0: 61 74 65 4f 62 6a 28 70 2d 3e 70 46 69 6e 61 6c ateObj(p->pFinal
cec0: 29 3b 20 0a 20 20 69 66 28 20 70 2d 3e 70 44 65 ); . if( p->pDe
ced0: 73 74 72 6f 79 20 29 20 70 2d 3e 70 44 65 73 74 stroy ) p->pDest
cee0: 72 6f 79 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 roy = Tcl_Duplic
cef0: 61 74 65 4f 62 6a 28 70 2d 3e 70 44 65 73 74 72 ateObj(p->pDestr
cf00: 6f 79 29 3b 20 0a 0a 20 20 69 66 28 20 70 2d 3e oy); .. if( p->
cf10: 70 46 75 6e 63 20 29 20 54 63 6c 5f 49 6e 63 72 pFunc ) Tcl_Incr
cf20: 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 46 75 6e RefCount(p->pFun
cf30: 63 29 3b 20 0a 20 20 69 66 28 20 70 2d 3e 70 53 c); . if( p->pS
cf40: 74 65 70 20 29 20 54 63 6c 5f 49 6e 63 72 52 65 tep ) Tcl_IncrRe
cf50: 66 43 6f 75 6e 74 28 70 2d 3e 70 53 74 65 70 29 fCount(p->pStep)
cf60: 3b 20 0a 20 20 69 66 28 20 70 2d 3e 70 46 69 6e ; . if( p->pFin
cf70: 61 6c 20 29 20 54 63 6c 5f 49 6e 63 72 52 65 66 al ) Tcl_IncrRef
cf80: 43 6f 75 6e 74 28 70 2d 3e 70 46 69 6e 61 6c 29 Count(p->pFinal)
cf90: 3b 20 0a 20 20 69 66 28 20 70 2d 3e 70 44 65 73 ; . if( p->pDes
cfa0: 74 72 6f 79 20 29 20 54 63 6c 5f 49 6e 63 72 52 troy ) Tcl_IncrR
cfb0: 65 66 43 6f 75 6e 74 28 70 2d 3e 70 44 65 73 74 efCount(p->pDest
cfc0: 72 6f 79 29 3b 20 0a 0a 20 20 72 63 20 3d 20 73 roy); .. rc = s
cfd0: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
cfe0: 6e 63 74 69 6f 6e 5f 76 32 28 64 62 2c 20 7a 46 nction_v2(db, zF
cff0: 75 6e 63 2c 20 6e 41 72 67 2c 20 65 6e 63 2c 20 unc, nArg, enc,
d000: 28 76 6f 69 64 20 2a 29 70 2c 20 0a 20 20 20 20 (void *)p, .
d010: 20 20 28 70 2d 3e 70 46 75 6e 63 20 3f 20 63 66 (p->pFunc ? cf
d020: 32 46 75 6e 63 20 3a 20 30 29 2c 0a 20 20 20 20 2Func : 0),.
d030: 20 20 28 70 2d 3e 70 53 74 65 70 20 3f 20 63 66 (p->pStep ? cf
d040: 32 53 74 65 70 20 3a 20 30 29 2c 0a 20 20 20 20 2Step : 0),.
d050: 20 20 28 70 2d 3e 70 46 69 6e 61 6c 20 3f 20 63 (p->pFinal ? c
d060: 66 32 46 69 6e 61 6c 20 3a 20 30 29 2c 0a 20 20 f2Final : 0),.
d070: 20 20 20 20 63 66 32 44 65 73 74 72 6f 79 0a 20 cf2Destroy.
d080: 20 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 );. if( rc!=SQ
d090: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 LITE_OK ){. T
d0a0: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 cl_ResetResult(i
d0b0: 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f nterp);. Tcl_
d0c0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
d0d0: 65 72 70 2c 20 73 71 6c 69 74 65 33 45 72 72 4e erp, sqlite3ErrN
d0e0: 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 ame(rc), 0);.
d0f0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
d100: 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 R;. }. return
d110: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
d120: 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
d130: 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 20 44 load_extension D
d140: 42 2d 48 41 4e 44 4c 45 20 46 49 4c 45 20 3f 50 B-HANDLE FILE ?P
d150: 52 4f 43 3f 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ROC?.*/.static i
d160: 6e 74 20 74 65 73 74 5f 6c 6f 61 64 5f 65 78 74 nt test_load_ext
d170: 65 6e 73 69 6f 6e 28 0a 20 20 43 6c 69 65 6e 74 ension(. Client
d180: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
d190: 20 2f 2a 20 4e 6f 74 20 75 73 65 64 20 2a 2f 0a /* Not used */.
d1a0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
d1b0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
d1c0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
d1d0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
d1e0: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
d1f0: 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 nt objc,
d200: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
d210: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
d220: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
d230: 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d objv[] /* Comm
d240: 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f and arguments */
d250: 0a 29 7b 0a 20 20 54 63 6c 5f 43 6d 64 49 6e 66 .){. Tcl_CmdInf
d260: 6f 20 63 6d 64 49 6e 66 6f 3b 0a 20 20 73 71 6c o cmdInfo;. sql
d270: 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 ite3 *db;. int
d280: 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a 44 62 3b rc;. char *zDb;
d290: 0a 20 20 63 68 61 72 20 2a 7a 46 69 6c 65 3b 0a . char *zFile;.
d2a0: 20 20 63 68 61 72 20 2a 7a 50 72 6f 63 20 3d 20 char *zProc =
d2b0: 30 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 72 20 0;. char *zErr
d2c0: 3d 20 30 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 = 0;.. if( objc
d2d0: 21 3d 34 20 26 26 20 6f 62 6a 63 21 3d 33 20 29 !=4 && objc!=3 )
d2e0: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
d2f0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
d300: 2c 20 6f 62 6a 76 2c 20 22 44 42 2d 48 41 4e 44 , objv, "DB-HAND
d310: 4c 45 20 46 49 4c 45 20 3f 50 52 4f 43 3f 22 29 LE FILE ?PROC?")
d320: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
d330: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 44 _ERROR;. }. zD
d340: 62 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e b = Tcl_GetStrin
d350: 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 7a 46 g(objv[1]);. zF
d360: 69 6c 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 ile = Tcl_GetStr
d370: 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 ing(objv[2]);.
d380: 69 66 28 20 6f 62 6a 63 3d 3d 34 20 29 7b 0a 20 if( objc==4 ){.
d390: 20 20 20 7a 50 72 6f 63 20 3d 20 54 63 6c 5f 47 zProc = Tcl_G
d3a0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d etString(objv[3]
d3b0: 29 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 45 78 74 );. }.. /* Ext
d3c0: 72 61 63 74 20 74 68 65 20 43 20 64 61 74 61 62 ract the C datab
d3d0: 61 73 65 20 68 61 6e 64 6c 65 20 66 72 6f 6d 20 ase handle from
d3e0: 74 68 65 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 20 the Tcl command
d3f0: 6e 61 6d 65 20 2a 2f 0a 20 20 69 66 28 20 21 54 name */. if( !T
d400: 63 6c 5f 47 65 74 43 6f 6d 6d 61 6e 64 49 6e 66 cl_GetCommandInf
d410: 6f 28 69 6e 74 65 72 70 2c 20 7a 44 62 2c 20 26 o(interp, zDb, &
d420: 63 6d 64 49 6e 66 6f 29 20 29 7b 0a 20 20 20 20 cmdInfo) ){.
d430: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
d440: 28 69 6e 74 65 72 70 2c 20 22 63 6f 6d 6d 61 6e (interp, "comman
d450: 64 20 6e 6f 74 20 66 6f 75 6e 64 3a 20 22 2c 20 d not found: ",
d460: 7a 44 62 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a zDb, (char*)0);.
d470: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
d480: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 64 62 20 3d RROR;. }. db =
d490: 20 28 28 73 74 72 75 63 74 20 53 71 6c 69 74 65 ((struct Sqlite
d4a0: 44 62 2a 29 63 6d 64 49 6e 66 6f 2e 6f 62 6a 43 Db*)cmdInfo.objC
d4b0: 6c 69 65 6e 74 44 61 74 61 29 2d 3e 64 62 3b 0a lientData)->db;.
d4c0: 20 20 61 73 73 65 72 74 28 64 62 29 3b 0a 0a 20 assert(db);..
d4d0: 20 2f 2a 20 43 61 6c 6c 20 74 68 65 20 75 6e 64 /* Call the und
d4e0: 65 72 6c 79 69 6e 67 20 43 20 66 75 6e 63 74 69 erlying C functi
d4f0: 6f 6e 2e 20 49 66 20 61 6e 20 65 72 72 6f 72 20 on. If an error
d500: 6f 63 63 75 72 73 2c 20 73 65 74 20 72 63 20 74 occurs, set rc t
d510: 6f 20 0a 20 20 2a 2a 20 54 43 4c 5f 45 52 52 4f o . ** TCL_ERRO
d520: 52 20 61 6e 64 20 6c 6f 61 64 20 61 6e 79 20 65 R and load any e
d530: 72 72 6f 72 20 73 74 72 69 6e 67 20 69 6e 74 6f rror string into
d540: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 the interpreter
d550: 2e 20 49 66 20 6e 6f 20 0a 20 20 2a 2a 20 65 72 . If no . ** er
d560: 72 6f 72 20 6f 63 63 75 72 73 2c 20 73 65 74 20 ror occurs, set
d570: 72 63 20 74 6f 20 54 43 4c 5f 4f 4b 2e 0a 20 20 rc to TCL_OK..
d580: 2a 2f 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 */.#ifdef SQLITE
d590: 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e _OMIT_LOAD_EXTEN
d5a0: 53 49 4f 4e 0a 20 20 72 63 20 3d 20 53 51 4c 49 SION. rc = SQLI
d5b0: 54 45 5f 45 52 52 4f 52 3b 0a 20 20 7a 45 72 72 TE_ERROR;. zErr
d5c0: 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e = sqlite3_mprin
d5d0: 74 66 28 22 74 68 69 73 20 62 75 69 6c 64 20 6f tf("this build o
d5e0: 6d 69 74 73 20 73 71 6c 69 74 65 33 5f 6c 6f 61 mits sqlite3_loa
d5f0: 64 5f 65 78 74 65 6e 73 69 6f 6e 28 29 22 29 3b d_extension()");
d600: 0a 23 65 6c 73 65 0a 20 20 72 63 20 3d 20 73 71 .#else. rc = sq
d610: 6c 69 74 65 33 5f 6c 6f 61 64 5f 65 78 74 65 6e lite3_load_exten
d620: 73 69 6f 6e 28 64 62 2c 20 7a 46 69 6c 65 2c 20 sion(db, zFile,
d630: 7a 50 72 6f 63 2c 20 26 7a 45 72 72 29 3b 0a 23 zProc, &zErr);.#
d640: 65 6e 64 69 66 0a 20 20 69 66 28 20 72 63 21 3d endif. if( rc!=
d650: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
d660: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
d670: 6e 74 65 72 70 2c 20 7a 45 72 72 20 3f 20 7a 45 nterp, zErr ? zE
d680: 72 72 20 3a 20 22 22 2c 20 54 43 4c 5f 56 4f 4c rr : "", TCL_VOL
d690: 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 63 20 3d ATILE);. rc =
d6a0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 65 TCL_ERROR;. }e
d6b0: 6c 73 65 7b 0a 20 20 20 20 72 63 20 3d 20 54 43 lse{. rc = TC
d6c0: 4c 5f 4f 4b 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 L_OK;. }. sqli
d6d0: 74 65 33 5f 66 72 65 65 28 7a 45 72 72 29 3b 0a te3_free(zErr);.
d6e0: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a . return rc;.}.
d6f0: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
d700: 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 6c 6f 61 lite3_enable_loa
d710: 64 5f 65 78 74 65 6e 73 69 6f 6e 20 44 42 2d 48 d_extension DB-H
d720: 41 4e 44 4c 45 20 4f 4e 4f 46 46 0a 2a 2f 0a 73 ANDLE ONOFF.*/.s
d730: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 tatic int test_e
d740: 6e 61 62 6c 65 5f 6c 6f 61 64 28 0a 20 20 43 6c nable_load(. Cl
d750: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
d760: 61 74 61 2c 20 2f 2a 20 4e 6f 74 20 75 73 65 64 ata, /* Not used
d770: 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 */. Tcl_Interp
d780: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
d790: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
d7a0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
d7b0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
d7c0: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 . int objc,
d7d0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
d7e0: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
d7f0: 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 */. Tcl_Obj *C
d800: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 ONST objv[] /*
d810: 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 Command argument
d820: 73 20 2a 2f 0a 29 7b 0a 20 20 54 63 6c 5f 43 6d s */.){. Tcl_Cm
d830: 64 49 6e 66 6f 20 63 6d 64 49 6e 66 6f 3b 0a 20 dInfo cmdInfo;.
d840: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
d850: 63 68 61 72 20 2a 7a 44 62 3b 0a 20 20 69 6e 74 char *zDb;. int
d860: 20 6f 6e 6f 66 66 3b 0a 0a 20 20 69 66 28 20 6f onoff;.. if( o
d870: 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 bjc!=3 ){. Tc
d880: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
d890: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
d8a0: 22 44 42 2d 48 41 4e 44 4c 45 20 4f 4e 4f 46 46 "DB-HANDLE ONOFF
d8b0: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
d8c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
d8d0: 7a 44 62 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 zDb = Tcl_GetStr
d8e0: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 0a 20 ing(objv[1]);..
d8f0: 20 2f 2a 20 45 78 74 72 61 63 74 20 74 68 65 20 /* Extract the
d900: 43 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c C database handl
d910: 65 20 66 72 6f 6d 20 74 68 65 20 54 63 6c 20 63 e from the Tcl c
d920: 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a 20 ommand name */.
d930: 20 69 66 28 20 21 54 63 6c 5f 47 65 74 43 6f 6d if( !Tcl_GetCom
d940: 6d 61 6e 64 49 6e 66 6f 28 69 6e 74 65 72 70 2c mandInfo(interp,
d950: 20 7a 44 62 2c 20 26 63 6d 64 49 6e 66 6f 29 20 zDb, &cmdInfo)
d960: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
d970: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
d980: 22 63 6f 6d 6d 61 6e 64 20 6e 6f 74 20 66 6f 75 "command not fou
d990: 6e 64 3a 20 22 2c 20 7a 44 62 2c 20 28 63 68 61 nd: ", zDb, (cha
d9a0: 72 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 72 r*)0);. retur
d9b0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
d9c0: 0a 20 20 64 62 20 3d 20 28 28 73 74 72 75 63 74 . db = ((struct
d9d0: 20 53 71 6c 69 74 65 44 62 2a 29 63 6d 64 49 6e SqliteDb*)cmdIn
d9e0: 66 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 61 74 61 fo.objClientData
d9f0: 29 2d 3e 64 62 3b 0a 20 20 61 73 73 65 72 74 28 )->db;. assert(
da00: 64 62 29 3b 0a 0a 20 20 2f 2a 20 47 65 74 20 74 db);.. /* Get t
da10: 68 65 20 6f 6e 6f 66 66 20 70 61 72 61 6d 65 74 he onoff paramet
da20: 65 72 20 2a 2f 0a 20 20 69 66 28 20 54 63 6c 5f er */. if( Tcl_
da30: 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 GetBooleanFromOb
da40: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 j(interp, objv[2
da50: 5d 2c 20 26 6f 6e 6f 66 66 29 20 29 7b 0a 20 20 ], &onoff) ){.
da60: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
da70: 4f 52 3b 0a 20 20 7d 0a 0a 23 69 66 64 65 66 20 OR;. }..#ifdef
da80: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 SQLITE_OMIT_LOAD
da90: 5f 45 58 54 45 4e 53 49 4f 4e 0a 20 20 54 63 6c _EXTENSION. Tcl
daa0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
dab0: 74 65 72 70 2c 20 22 74 68 69 73 20 62 75 69 6c terp, "this buil
dac0: 64 20 6f 6d 69 74 73 20 73 71 6c 69 74 65 33 5f d omits sqlite3_
dad0: 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 28 29 load_extension()
dae0: 22 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ");. return TCL
daf0: 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 _ERROR;.#else.
db00: 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 6c sqlite3_enable_l
db10: 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 28 64 62 oad_extension(db
db20: 2c 20 6f 6e 6f 66 66 29 3b 0a 20 20 72 65 74 75 , onoff);. retu
db30: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 23 65 6e 64 69 rn TCL_OK;.#endi
db40: 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 f.}../*.** Usage
db50: 3a 20 20 73 71 6c 69 74 65 5f 61 62 6f 72 74 0a : sqlite_abort.
db60: 2a 2a 0a 2a 2a 20 53 68 75 74 64 6f 77 6e 20 74 **.** Shutdown t
db70: 68 65 20 70 72 6f 63 65 73 73 20 69 6d 6d 65 64 he process immed
db80: 69 61 74 65 6c 79 2e 20 20 54 68 69 73 20 69 73 iately. This is
db90: 20 6e 6f 74 20 61 20 63 6c 65 61 6e 20 73 68 75 not a clean shu
dba0: 74 64 6f 77 6e 2e 0a 2a 2a 20 54 68 69 73 20 63 tdown..** This c
dbb0: 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 ommand is used t
dbc0: 6f 20 74 65 73 74 20 74 68 65 20 72 65 63 6f 76 o test the recov
dbd0: 65 72 61 62 69 6c 69 74 79 20 6f 66 20 61 20 64 erability of a d
dbe0: 61 74 61 62 61 73 65 20 69 6e 0a 2a 2a 20 74 68 atabase in.** th
dbf0: 65 20 65 76 65 6e 74 20 6f 66 20 61 20 70 72 6f e event of a pro
dc00: 67 72 61 6d 20 63 72 61 73 68 2e 0a 2a 2f 0a 73 gram crash..*/.s
dc10: 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 tatic int sqlite
dc20: 5f 61 62 6f 72 74 28 0a 20 20 76 6f 69 64 20 2a _abort(. void *
dc30: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
dc40: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
dc50: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
dc60: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
dc70: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
dc80: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
dc90: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
dca0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
dcb0: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
dcc0: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
dcd0: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
dce0: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
dcf0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f 4d 53 .#if defined(_MS
dd00: 43 5f 56 45 52 29 0a 20 20 2f 2a 20 57 65 20 64 C_VER). /* We d
dd10: 6f 20 74 68 69 73 2c 20 6f 74 68 65 72 77 69 73 o this, otherwis
dd20: 65 20 74 68 65 20 74 65 73 74 20 77 69 6c 6c 20 e the test will
dd30: 68 61 6c 74 20 77 69 74 68 20 61 20 70 6f 70 75 halt with a popu
dd40: 70 20 6d 65 73 73 61 67 65 0a 20 20 20 2a 20 74 p message. * t
dd50: 68 61 74 20 77 65 20 68 61 76 65 20 74 6f 20 63 hat we have to c
dd60: 6c 69 63 6b 20 61 77 61 79 20 62 65 66 6f 72 65 lick away before
dd70: 20 74 68 65 20 74 65 73 74 20 77 69 6c 6c 20 63 the test will c
dd80: 6f 6e 74 69 6e 75 65 2e 0a 20 20 20 2a 2f 0a 20 ontinue.. */.
dd90: 20 5f 73 65 74 5f 61 62 6f 72 74 5f 62 65 68 61 _set_abort_beha
dda0: 76 69 6f 72 28 20 30 2c 20 5f 43 41 4c 4c 5f 52 vior( 0, _CALL_R
ddb0: 45 50 4f 52 54 46 41 55 4c 54 20 29 3b 0a 23 65 EPORTFAULT );.#e
ddc0: 6e 64 69 66 0a 20 20 65 78 69 74 28 32 35 35 29 ndif. exit(255)
ddd0: 3b 0a 20 20 61 73 73 65 72 74 28 20 69 6e 74 65 ;. assert( inte
dde0: 72 70 3d 3d 30 20 29 3b 20 20 20 2f 2a 20 54 68 rp==0 ); /* Th
ddf0: 69 73 20 77 69 6c 6c 20 61 6c 77 61 79 73 20 66 is will always f
de00: 61 69 6c 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 ail */. return
de10: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
de20: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 The following r
de30: 6f 75 74 69 6e 65 20 69 73 20 61 20 75 73 65 72 outine is a user
de40: 2d 64 65 66 69 6e 65 64 20 53 51 4c 20 66 75 6e -defined SQL fun
de50: 63 74 69 6f 6e 20 77 68 6f 73 65 20 70 75 72 70 ction whose purp
de60: 6f 73 65 0a 2a 2a 20 69 73 20 74 6f 20 74 65 73 ose.** is to tes
de70: 74 20 74 68 65 20 73 71 6c 69 74 65 5f 73 65 74 t the sqlite_set
de80: 5f 72 65 73 75 6c 74 28 29 20 41 50 49 2e 0a 2a _result() API..*
de90: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 /.static void te
dea0: 73 74 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 stFunc(sqlite3_c
deb0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
dec0: 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 int argc, sqlit
ded0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 e3_value **argv)
dee0: 7b 0a 20 20 77 68 69 6c 65 28 20 61 72 67 63 3e {. while( argc>
def0: 3d 32 20 29 7b 0a 20 20 20 20 63 6f 6e 73 74 20 =2 ){. const
df00: 63 68 61 72 20 2a 7a 41 72 67 30 20 3d 20 28 63 char *zArg0 = (c
df10: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
df20: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 ue_text(argv[0])
df30: 3b 0a 20 20 20 20 69 66 28 20 7a 41 72 67 30 20 ;. if( zArg0
df40: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 30 3d 3d ){. if( 0==
df50: 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 7a sqlite3StrICmp(z
df60: 41 72 67 30 2c 20 22 69 6e 74 22 29 20 29 7b 0a Arg0, "int") ){.
df70: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f sqlite3_
df80: 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 result_int(conte
df90: 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 xt, sqlite3_valu
dfa0: 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 29 3b e_int(argv[1]));
dfb0: 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 . }else if(
dfc0: 20 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 sqlite3StrICmp(
dfd0: 7a 41 72 67 30 2c 22 69 6e 74 36 34 22 29 3d 3d zArg0,"int64")==
dfe0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 0 ){. sql
dff0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 ite3_result_int6
e000: 34 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 4(context, sqlit
e010: 65 33 5f 76 61 6c 75 65 5f 69 6e 74 36 34 28 61 e3_value_int64(a
e020: 72 67 76 5b 31 5d 29 29 3b 0a 20 20 20 20 20 20 rgv[1]));.
e030: 7d 65 6c 73 65 20 69 66 28 20 73 71 6c 69 74 65 }else if( sqlite
e040: 33 53 74 72 49 43 6d 70 28 7a 41 72 67 30 2c 22 3StrICmp(zArg0,"
e050: 73 74 72 69 6e 67 22 29 3d 3d 30 20 29 7b 0a 20 string")==0 ){.
e060: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 sqlite3_r
e070: 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 esult_text(conte
e080: 78 74 2c 20 28 63 68 61 72 2a 29 73 71 6c 69 74 xt, (char*)sqlit
e090: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
e0a0: 67 76 5b 31 5d 29 2c 20 2d 31 2c 0a 20 20 20 20 gv[1]), -1,.
e0b0: 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 54 SQLITE_T
e0c0: 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 20 20 20 RANSIENT);.
e0d0: 20 7d 65 6c 73 65 20 69 66 28 20 73 71 6c 69 74 }else if( sqlit
e0e0: 65 33 53 74 72 49 43 6d 70 28 7a 41 72 67 30 2c e3StrICmp(zArg0,
e0f0: 22 64 6f 75 62 6c 65 22 29 3d 3d 30 20 29 7b 0a "double")==0 ){.
e100: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f sqlite3_
e110: 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f result_double(co
e120: 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 ntext, sqlite3_v
e130: 61 6c 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 alue_double(argv
e140: 5b 31 5d 29 29 3b 0a 20 20 20 20 20 20 7d 65 6c [1]));. }el
e150: 73 65 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 se if( sqlite3St
e160: 72 49 43 6d 70 28 7a 41 72 67 30 2c 22 6e 75 6c rICmp(zArg0,"nul
e170: 6c 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 l")==0 ){.
e180: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
e190: 5f 6e 75 6c 6c 28 63 6f 6e 74 65 78 74 29 3b 0a _null(context);.
e1a0: 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 }else if(
e1b0: 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 7a sqlite3StrICmp(z
e1c0: 41 72 67 30 2c 22 76 61 6c 75 65 22 29 3d 3d 30 Arg0,"value")==0
e1d0: 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 ){. sqli
e1e0: 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 te3_result_value
e1f0: 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b 73 (context, argv[s
e200: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 qlite3_value_int
e210: 28 61 72 67 76 5b 31 5d 29 5d 29 3b 0a 20 20 20 (argv[1])]);.
e220: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
e230: 20 20 67 6f 74 6f 20 65 72 72 6f 72 5f 6f 75 74 goto error_out
e240: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 65 ;. }. }e
e250: 6c 73 65 7b 0a 20 20 20 20 20 20 67 6f 74 6f 20 lse{. goto
e260: 65 72 72 6f 72 5f 6f 75 74 3b 0a 20 20 20 20 7d error_out;. }
e270: 0a 20 20 20 20 61 72 67 63 20 2d 3d 20 32 3b 0a . argc -= 2;.
e280: 20 20 20 20 61 72 67 76 20 2b 3d 20 32 3b 0a 20 argv += 2;.
e290: 20 7d 0a 20 20 72 65 74 75 72 6e 3b 0a 0a 65 72 }. return;..er
e2a0: 72 6f 72 5f 6f 75 74 3a 0a 20 20 73 71 6c 69 74 ror_out:. sqlit
e2b0: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 e3_result_error(
e2c0: 63 6f 6e 74 65 78 74 2c 22 66 69 72 73 74 20 61 context,"first a
e2d0: 72 67 75 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 rgument should b
e2e0: 65 20 6f 6e 65 20 6f 66 3a 20 22 0a 20 20 20 20 e one of: ".
e2f0: 20 20 22 69 6e 74 20 69 6e 74 36 34 20 73 74 72 "int int64 str
e300: 69 6e 67 20 64 6f 75 62 6c 65 20 6e 75 6c 6c 20 ing double null
e310: 76 61 6c 75 65 22 2c 20 2d 31 29 3b 0a 7d 0a 0a value", -1);.}..
e320: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 /*.** Usage: s
e330: 71 6c 69 74 65 5f 72 65 67 69 73 74 65 72 5f 74 qlite_register_t
e340: 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 20 44 42 est_function DB
e350: 20 20 4e 41 4d 45 0a 2a 2a 0a 2a 2a 20 52 65 67 NAME.**.** Reg
e360: 69 73 74 65 72 20 74 68 65 20 74 65 73 74 20 53 ister the test S
e370: 51 4c 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 74 QL function on t
e380: 68 65 20 64 61 74 61 62 61 73 65 20 44 42 20 75 he database DB u
e390: 6e 64 65 72 20 74 68 65 20 6e 61 6d 65 20 4e 41 nder the name NA
e3a0: 4d 45 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ME..*/.static in
e3b0: 74 20 74 65 73 74 5f 72 65 67 69 73 74 65 72 5f t test_register_
e3c0: 66 75 6e 63 28 0a 20 20 76 6f 69 64 20 2a 4e 6f func(. void *No
e3d0: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 tUsed,. Tcl_Int
e3e0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
e3f0: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
e400: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
e410: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
e420: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 */. int argc,
e430: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
e440: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
e450: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a nts */. char **
e460: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 argv
e470: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 /* Text of each
e480: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 argument */.){.
e490: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
e4a0: 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 61 72 int rc;. if( ar
e4b0: 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c gc!=3 ){. Tcl
e4c0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
e4d0: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
e4e0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
e4f0: 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 "", argv[0], .
e500: 20 20 20 20 20 22 20 44 42 20 46 55 4e 43 54 49 " DB FUNCTI
e510: 4f 4e 2d 4e 41 4d 45 22 2c 20 30 29 3b 0a 20 20 ON-NAME", 0);.
e520: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
e530: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
e540: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
e550: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
e560: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
e570: 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 ROR;. rc = sqli
e580: 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 te3_create_funct
e590: 69 6f 6e 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c ion(db, argv[2],
e5a0: 20 2d 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 -1, SQLITE_UTF8
e5b0: 2c 20 30 2c 20 0a 20 20 20 20 20 20 74 65 73 74 , 0, . test
e5c0: 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 69 Func, 0, 0);. i
e5d0: 66 28 20 72 63 21 3d 30 20 29 7b 0a 20 20 20 20 f( rc!=0 ){.
e5e0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
e5f0: 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 33 (interp, sqlite3
e600: 45 72 72 53 74 72 28 72 63 29 2c 20 30 29 3b 0a ErrStr(rc), 0);.
e610: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
e620: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
e630: 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f sqlite3TestErrCo
e640: 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 de(interp, db, r
e650: 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f c) ) return TCL_
e660: 45 52 52 4f 52 3b 0a 20 20 72 65 74 75 72 6e 20 ERROR;. return
e670: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
e680: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
e690: 5f 66 69 6e 61 6c 69 7a 65 20 20 53 54 4d 54 20 _finalize STMT
e6a0: 0a 2a 2a 0a 2a 2a 20 46 69 6e 61 6c 69 7a 65 20 .**.** Finalize
e6b0: 61 20 73 74 61 74 65 6d 65 6e 74 20 68 61 6e 64 a statement hand
e6c0: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e le..*/.static in
e6d0: 74 20 74 65 73 74 5f 66 69 6e 61 6c 69 7a 65 28 t test_finalize(
e6e0: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
e6f0: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
e700: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
e710: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
e720: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
e730: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
e740: 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 t *pStmt;. int
e750: 72 63 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 rc;. sqlite3 *d
e760: 62 20 3d 20 30 3b 0a 0a 20 20 69 66 28 20 6f 62 b = 0;.. if( ob
e770: 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
e780: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
e790: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
e7a0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
e7b0: 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f "",. Tcl_
e7c0: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
e7d0: 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 (objv[0], 0), "
e7e0: 3c 53 54 4d 54 3e 22 2c 20 30 29 3b 0a 20 20 20 <STMT>", 0);.
e7f0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
e800: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
e810: 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
e820: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
e830: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
e840: 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
e850: 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 69 66 28 20 L_ERROR;.. if(
e860: 70 53 74 6d 74 20 29 7b 0a 20 20 20 20 64 62 20 pStmt ){. db
e870: 3d 20 53 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 = StmtToDb(pStmt
e880: 29 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20 73 71 );. }. rc = sq
e890: 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70 lite3_finalize(p
e8a0: 53 74 6d 74 29 3b 0a 20 20 54 63 6c 5f 53 65 74 Stmt);. Tcl_Set
e8b0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 Result(interp, (
e8c0: 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 char *)t1ErrorNa
e8d0: 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 me(rc), TCL_STAT
e8e0: 49 43 29 3b 0a 20 20 69 66 28 20 64 62 20 26 26 IC);. if( db &&
e8f0: 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 sqlite3TestErrC
e900: 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 ode(interp, db,
e910: 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c rc) ) return TCL
e920: 5f 45 52 52 4f 52 3b 0a 20 20 72 65 74 75 72 6e _ERROR;. return
e930: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
e940: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
e950: 33 5f 73 74 6d 74 5f 73 74 61 74 75 73 20 20 53 3_stmt_status S
e960: 54 4d 54 20 20 43 4f 44 45 20 20 52 45 53 45 54 TMT CODE RESET
e970: 46 4c 41 47 0a 2a 2a 0a 2a 2a 20 47 65 74 20 74 FLAG.**.** Get t
e980: 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20 73 74 he value of a st
e990: 61 74 75 73 20 63 6f 75 6e 74 65 72 20 66 72 6f atus counter fro
e9a0: 6d 20 61 20 73 74 61 74 65 6d 65 6e 74 2e 0a 2a m a statement..*
e9b0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
e9c0: 74 5f 73 74 6d 74 5f 73 74 61 74 75 73 28 0a 20 t_stmt_status(.
e9d0: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
e9e0: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
e9f0: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
ea00: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
ea10: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
ea20: 0a 20 20 69 6e 74 20 69 56 61 6c 75 65 3b 0a 20 . int iValue;.
ea30: 20 69 6e 74 20 69 2c 20 6f 70 2c 20 72 65 73 65 int i, op, rese
ea40: 74 46 6c 61 67 3b 0a 20 20 63 6f 6e 73 74 20 63 tFlag;. const c
ea50: 68 61 72 20 2a 7a 4f 70 4e 61 6d 65 3b 0a 20 20 har *zOpName;.
ea60: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 sqlite3_stmt *pS
ea70: 74 6d 74 3b 0a 0a 20 20 73 74 61 74 69 63 20 63 tmt;.. static c
ea80: 6f 6e 73 74 20 73 74 72 75 63 74 20 7b 0a 20 20 onst struct {.
ea90: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e const char *zN
eaa0: 61 6d 65 3b 0a 20 20 20 20 69 6e 74 20 6f 70 3b ame;. int op;
eab0: 0a 20 20 7d 20 61 4f 70 5b 5d 20 3d 20 7b 0a 20 . } aOp[] = {.
eac0: 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 4d { "SQLITE_STM
ead0: 54 53 54 41 54 55 53 5f 46 55 4c 4c 53 43 41 4e TSTATUS_FULLSCAN
eae0: 5f 53 54 45 50 22 2c 20 20 20 53 51 4c 49 54 45 _STEP", SQLITE
eaf0: 5f 53 54 4d 54 53 54 41 54 55 53 5f 46 55 4c 4c _STMTSTATUS_FULL
eb00: 53 43 41 4e 5f 53 54 45 50 20 20 20 7d 2c 0a 20 SCAN_STEP },.
eb10: 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 4d { "SQLITE_STM
eb20: 54 53 54 41 54 55 53 5f 53 4f 52 54 22 2c 20 20 TSTATUS_SORT",
eb30: 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 SQLITE
eb40: 5f 53 54 4d 54 53 54 41 54 55 53 5f 53 4f 52 54 _STMTSTATUS_SORT
eb50: 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 },.
eb60: 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 4d { "SQLITE_STM
eb70: 54 53 54 41 54 55 53 5f 41 55 54 4f 49 4e 44 45 TSTATUS_AUTOINDE
eb80: 58 22 2c 20 20 20 20 20 20 20 53 51 4c 49 54 45 X", SQLITE
eb90: 5f 53 54 4d 54 53 54 41 54 55 53 5f 41 55 54 4f _STMTSTATUS_AUTO
eba0: 49 4e 44 45 58 20 20 20 20 20 20 20 7d 2c 0a 20 INDEX },.
ebb0: 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 4d { "SQLITE_STM
ebc0: 54 53 54 41 54 55 53 5f 56 4d 5f 53 54 45 50 22 TSTATUS_VM_STEP"
ebd0: 2c 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 , SQLITE
ebe0: 5f 53 54 4d 54 53 54 41 54 55 53 5f 56 4d 5f 53 _STMTSTATUS_VM_S
ebf0: 54 45 50 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 TEP },.
ec00: 20 7d 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d };. if( objc!=
ec10: 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 4 ){. Tcl_Wro
ec20: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
ec30: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 54 4d 54 , 1, objv, "STMT
ec40: 20 50 41 52 41 4d 45 54 45 52 20 52 45 53 45 54 PARAMETER RESET
ec50: 46 4c 41 47 22 29 3b 0a 20 20 20 20 72 65 74 75 FLAG");. retu
ec60: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
ec70: 7d 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 }. if( getStmtP
ec80: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
ec90: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
eca0: 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 v[1]), &pStmt) )
ecb0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
ecc0: 52 3b 0a 20 20 7a 4f 70 4e 61 6d 65 20 3d 20 54 R;. zOpName = T
ecd0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
ece0: 76 5b 32 5d 29 3b 0a 20 20 66 6f 72 28 69 3d 30 v[2]);. for(i=0
ecf0: 3b 20 69 3c 41 72 72 61 79 53 69 7a 65 28 61 4f ; i<ArraySize(aO
ed00: 70 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 p); i++){. if
ed10: 28 20 73 74 72 63 6d 70 28 61 4f 70 5b 69 5d 2e ( strcmp(aOp[i].
ed20: 7a 4e 61 6d 65 2c 20 7a 4f 70 4e 61 6d 65 29 3d zName, zOpName)=
ed30: 3d 30 20 29 7b 0a 20 20 20 20 20 20 6f 70 20 3d =0 ){. op =
ed40: 20 61 4f 70 5b 69 5d 2e 6f 70 3b 0a 20 20 20 20 aOp[i].op;.
ed50: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 break;. }.
ed60: 20 7d 0a 20 20 69 66 28 20 69 3e 3d 41 72 72 61 }. if( i>=Arra
ed70: 79 53 69 7a 65 28 61 4f 70 29 20 29 7b 0a 20 20 ySize(aOp) ){.
ed80: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
ed90: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
eda0: 6f 62 6a 76 5b 32 5d 2c 20 26 6f 70 29 20 29 20 objv[2], &op) )
edb0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
edc0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f ;. }. if( Tcl_
edd0: 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 GetBooleanFromOb
ede0: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 j(interp, objv[3
edf0: 5d 2c 20 26 72 65 73 65 74 46 6c 61 67 29 20 29 ], &resetFlag) )
ee00: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
ee10: 52 3b 0a 20 20 69 56 61 6c 75 65 20 3d 20 73 71 R;. iValue = sq
ee20: 6c 69 74 65 33 5f 73 74 6d 74 5f 73 74 61 74 75 lite3_stmt_statu
ee30: 73 28 70 53 74 6d 74 2c 20 6f 70 2c 20 72 65 73 s(pStmt, op, res
ee40: 65 74 46 6c 61 67 29 3b 0a 20 20 54 63 6c 5f 53 etFlag);. Tcl_S
ee50: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
ee60: 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 rp, Tcl_NewIntOb
ee70: 6a 28 69 56 61 6c 75 65 29 29 3b 0a 20 20 72 65 j(iValue));. re
ee80: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
ee90: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 45 4e #ifdef SQLITE_EN
eea0: 41 42 4c 45 5f 53 54 4d 54 5f 53 43 41 4e 53 54 ABLE_STMT_SCANST
eeb0: 41 54 55 53 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ATUS./*.** Usage
eec0: 3a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 5f : sqlite3_stmt_
eed0: 73 63 61 6e 73 74 61 74 75 73 20 53 54 4d 54 20 scanstatus STMT
eee0: 49 44 58 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e IDX.*/.static in
eef0: 74 20 74 65 73 74 5f 73 74 6d 74 5f 73 63 61 6e t test_stmt_scan
ef00: 73 74 61 74 75 73 28 0a 20 20 76 6f 69 64 20 2a status(. void *
ef10: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
ef20: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
ef30: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
ef40: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
ef50: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
ef60: 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
ef70: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 /* F
ef80: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 2a 2f irst argument */
ef90: 0a 20 20 69 6e 74 20 69 64 78 3b 20 20 20 20 20 . int idx;
efa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
efb0: 20 20 20 2f 2a 20 53 65 63 6f 6e 64 20 61 72 67 /* Second arg
efc0: 75 6d 65 6e 74 20 2a 2f 0a 0a 20 20 63 6f 6e 73 ument */.. cons
efd0: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 t char *zName;.
efe0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 45 78 const char *zEx
eff0: 70 6c 61 69 6e 3b 0a 20 20 73 71 6c 69 74 65 33 plain;. sqlite3
f000: 5f 69 6e 74 36 34 20 6e 4c 6f 6f 70 3b 0a 20 20 _int64 nLoop;.
f010: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 6e 56 sqlite3_int64 nV
f020: 69 73 69 74 3b 0a 20 20 64 6f 75 62 6c 65 20 72 isit;. double r
f030: 45 73 74 3b 0a 20 20 69 6e 74 20 72 65 73 3b 0a Est;. int res;.
f040: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 . if( objc!=3 )
f050: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
f060: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
f070: 2c 20 6f 62 6a 76 2c 20 22 53 54 4d 54 20 49 44 , objv, "STMT ID
f080: 58 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 X");. return
f090: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
f0a0: 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e if( getStmtPoin
f0b0: 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
f0c0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
f0d0: 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 ]), &pStmt) ) re
f0e0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
f0f0: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
f100: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
f110: 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 objv[2], &idx) )
f120: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
f130: 52 3b 0a 0a 20 20 72 65 73 20 3d 20 73 71 6c 69 R;.. res = sqli
f140: 74 65 33 5f 73 74 6d 74 5f 73 63 61 6e 73 74 61 te3_stmt_scansta
f150: 74 75 73 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 tus(pStmt, idx,
f160: 53 51 4c 49 54 45 5f 53 43 41 4e 53 54 41 54 5f SQLITE_SCANSTAT_
f170: 4e 4c 4f 4f 50 2c 20 28 76 6f 69 64 2a 29 26 6e NLOOP, (void*)&n
f180: 4c 6f 6f 70 29 3b 0a 20 20 69 66 28 20 72 65 73 Loop);. if( res
f190: 3d 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 4f ==0 ){. Tcl_O
f1a0: 62 6a 20 2a 70 52 65 74 20 3d 20 54 63 6c 5f 4e bj *pRet = Tcl_N
f1b0: 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 54 63 6c ewObj();. Tcl
f1c0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
f1d0: 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 ement(0, pRet, T
f1e0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
f1f0: 22 6e 4c 6f 6f 70 22 2c 20 2d 31 29 29 3b 0a 20 "nLoop", -1));.
f200: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
f210: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 pendElement(0, p
f220: 52 65 74 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65 Ret, Tcl_NewWide
f230: 49 6e 74 4f 62 6a 28 6e 4c 6f 6f 70 29 29 3b 0a IntObj(nLoop));.
f240: 20 20 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 sqlite3_stmt
f250: 5f 73 63 61 6e 73 74 61 74 75 73 28 70 53 74 6d _scanstatus(pStm
f260: 74 2c 20 69 64 78 2c 20 53 51 4c 49 54 45 5f 53 t, idx, SQLITE_S
f270: 43 41 4e 53 54 41 54 5f 4e 56 49 53 49 54 2c 20 CANSTAT_NVISIT,
f280: 28 76 6f 69 64 2a 29 26 6e 56 69 73 69 74 29 3b (void*)&nVisit);
f290: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
f2a0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c AppendElement(0,
f2b0: 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 pRet, Tcl_NewSt
f2c0: 72 69 6e 67 4f 62 6a 28 22 6e 56 69 73 69 74 22 ringObj("nVisit"
f2d0: 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f , -1));. Tcl_
f2e0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
f2f0: 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 63 ment(0, pRet, Tc
f300: 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 l_NewWideIntObj(
f310: 6e 56 69 73 69 74 29 29 3b 0a 20 20 20 20 73 71 nVisit));. sq
f320: 6c 69 74 65 33 5f 73 74 6d 74 5f 73 63 61 6e 73 lite3_stmt_scans
f330: 74 61 74 75 73 28 70 53 74 6d 74 2c 20 69 64 78 tatus(pStmt, idx
f340: 2c 20 53 51 4c 49 54 45 5f 53 43 41 4e 53 54 41 , SQLITE_SCANSTA
f350: 54 5f 45 53 54 2c 20 28 76 6f 69 64 2a 29 26 72 T_EST, (void*)&r
f360: 45 73 74 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 Est);. Tcl_Li
f370: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
f380: 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 63 6c 5f nt(0, pRet, Tcl_
f390: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 6e 45 NewStringObj("nE
f3a0: 73 74 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 st", -1));. T
f3b0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
f3c0: 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c Element(0, pRet,
f3d0: 20 54 63 6c 5f 4e 65 77 44 6f 75 62 6c 65 4f 62 Tcl_NewDoubleOb
f3e0: 6a 28 72 45 73 74 29 29 3b 0a 20 20 20 20 73 71 j(rEst));. sq
f3f0: 6c 69 74 65 33 5f 73 74 6d 74 5f 73 63 61 6e 73 lite3_stmt_scans
f400: 74 61 74 75 73 28 70 53 74 6d 74 2c 20 69 64 78 tatus(pStmt, idx
f410: 2c 20 53 51 4c 49 54 45 5f 53 43 41 4e 53 54 41 , SQLITE_SCANSTA
f420: 54 5f 4e 41 4d 45 2c 20 28 76 6f 69 64 2a 29 26 T_NAME, (void*)&
f430: 7a 4e 61 6d 65 29 3b 0a 20 20 20 20 54 63 6c 5f zName);. Tcl_
f440: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
f450: 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 63 ment(0, pRet, Tc
f460: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
f470: 7a 4e 61 6d 65 22 2c 20 2d 31 29 29 3b 0a 20 20 zName", -1));.
f480: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
f490: 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 endElement(0, pR
f4a0: 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e et, Tcl_NewStrin
f4b0: 67 4f 62 6a 28 7a 4e 61 6d 65 2c 20 2d 31 29 29 gObj(zName, -1))
f4c0: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73 74 ;. sqlite3_st
f4d0: 6d 74 5f 73 63 61 6e 73 74 61 74 75 73 28 70 53 mt_scanstatus(pS
f4e0: 74 6d 74 2c 20 69 64 78 2c 20 53 51 4c 49 54 45 tmt, idx, SQLITE
f4f0: 5f 53 43 41 4e 53 54 41 54 5f 45 58 50 4c 41 49 _SCANSTAT_EXPLAI
f500: 4e 2c 20 28 76 6f 69 64 2a 29 26 7a 45 78 70 6c N, (void*)&zExpl
f510: 61 69 6e 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 ain);. Tcl_Li
f520: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
f530: 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 63 6c 5f nt(0, pRet, Tcl_
f540: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 7a 45 NewStringObj("zE
f550: 78 70 6c 61 69 6e 22 2c 20 2d 31 29 29 3b 0a 20 xplain", -1));.
f560: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
f570: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 pendElement(0, p
f580: 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Ret, Tcl_NewStri
f590: 6e 67 4f 62 6a 28 7a 45 78 70 6c 61 69 6e 2c 20 ngObj(zExplain,
f5a0: 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 -1));. Tcl_Se
f5b0: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
f5c0: 70 2c 20 70 52 65 74 29 3b 0a 20 20 7d 65 6c 73 p, pRet);. }els
f5d0: 65 7b 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 e{. Tcl_Reset
f5e0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
f5f0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }. return TCL
f600: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
f610: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 73 74 age: sqlite3_st
f620: 6d 74 5f 73 63 61 6e 73 74 61 74 75 73 5f 72 65 mt_scanstatus_re
f630: 73 65 74 20 20 53 54 4d 54 0a 2a 2f 0a 73 74 61 set STMT.*/.sta
f640: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 74 6d tic int test_stm
f650: 74 5f 73 63 61 6e 73 74 61 74 75 73 5f 72 65 73 t_scanstatus_res
f660: 65 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 et(. void * cli
f670: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
f680: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
f690: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
f6a0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
f6b0: 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f [].){. sqlite3_
f6c0: 73 74 6d 74 20 2a 70 53 74 6d 74 3b 20 20 20 20 stmt *pStmt;
f6d0: 20 20 20 20 20 20 20 20 2f 2a 20 46 69 72 73 74 /* First
f6e0: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 20 20 69 argument */. i
f6f0: 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 f( objc!=2 ){.
f700: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
f710: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
f720: 6a 76 2c 20 22 53 54 4d 54 22 29 3b 0a 20 20 20 jv, "STMT");.
f730: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
f740: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
f750: 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
f760: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
f770: 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
f780: 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
f790: 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 _ERROR;. sqlite
f7a0: 33 5f 73 74 6d 74 5f 73 63 61 6e 73 74 61 74 75 3_stmt_scanstatu
f7b0: 73 5f 72 65 73 65 74 28 70 53 74 6d 74 29 3b 0a s_reset(pStmt);.
f7c0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
f7d0: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a .}.#endif../*.**
f7e0: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
f7f0: 5f 6e 65 78 74 5f 73 74 6d 74 20 20 44 42 20 20 _next_stmt DB
f800: 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 STMT.**.** Retur
f810: 6e 20 74 68 65 20 6e 65 78 74 20 73 74 61 74 6d n the next statm
f820: 65 6e 74 20 69 6e 20 73 65 71 75 65 6e 63 65 20 ent in sequence
f830: 61 66 74 65 72 20 53 54 4d 54 2e 0a 2a 2f 0a 73 after STMT..*/.s
f840: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6e tatic int test_n
f850: 65 78 74 5f 73 74 6d 74 28 0a 20 20 76 6f 69 64 ext_stmt(. void
f860: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
f870: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
f880: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
f890: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
f8a0: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
f8b0: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d lite3_stmt *pStm
f8c0: 74 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 t;. sqlite3 *db
f8d0: 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 = 0;. char zBu
f8e0: 66 5b 35 30 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 f[50];.. if( ob
f8f0: 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c jc!=3 ){. Tcl
f900: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
f910: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
f920: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
f930: 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f "",. Tcl_
f940: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
f950: 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 (objv[0], 0), "
f960: 44 42 20 53 54 4d 54 22 2c 20 30 29 3b 0a 20 20 DB STMT", 0);.
f970: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
f980: 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 OR;. }.. if( g
f990: 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
f9a0: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
f9b0: 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
f9c0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
f9d0: 52 4f 52 3b 0a 20 20 69 66 28 20 67 65 74 53 74 ROR;. if( getSt
f9e0: 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
f9f0: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
fa00: 6f 62 6a 76 5b 32 5d 29 2c 20 26 70 53 74 6d 74 objv[2]), &pStmt
fa10: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
fa20: 52 52 4f 52 3b 0a 20 20 70 53 74 6d 74 20 3d 20 RROR;. pStmt =
fa30: 73 71 6c 69 74 65 33 5f 6e 65 78 74 5f 73 74 6d sqlite3_next_stm
fa40: 74 28 64 62 2c 20 70 53 74 6d 74 29 3b 0a 20 20 t(db, pStmt);.
fa50: 69 66 28 20 70 53 74 6d 74 20 29 7b 0a 20 20 20 if( pStmt ){.
fa60: 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
fa70: 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 69 MakePointerStr(i
fa80: 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 70 53 74 nterp, zBuf, pSt
fa90: 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
faa0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 54 63 6c 5f _ERROR;. Tcl_
fab0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
fac0: 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 erp, zBuf, 0);.
fad0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f }. return TCL_
fae0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
faf0: 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ge: sqlite3_stm
fb00: 74 5f 72 65 61 64 6f 6e 6c 79 20 20 53 54 4d 54 t_readonly STMT
fb10: 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 .**.** Return tr
fb20: 75 65 20 69 66 20 53 54 4d 54 20 69 73 20 61 20 ue if STMT is a
fb30: 4e 55 4c 4c 20 70 6f 69 6e 74 65 72 20 6f 72 20 NULL pointer or
fb40: 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 73 a pointer to a s
fb50: 74 61 74 65 6d 65 6e 74 0a 2a 2a 20 74 68 61 74 tatement.** that
fb60: 20 69 73 20 67 75 61 72 61 6e 74 65 65 64 20 74 is guaranteed t
fb70: 6f 20 6c 65 61 76 65 20 74 68 65 20 64 61 74 61 o leave the data
fb80: 62 61 73 65 20 75 6e 6d 6f 64 69 66 69 65 64 2e base unmodified.
fb90: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
fba0: 65 73 74 5f 73 74 6d 74 5f 72 65 61 64 6f 6e 6c est_stmt_readonl
fbb0: 79 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 y(. void * clie
fbc0: 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
fbd0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
fbe0: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
fbf0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
fc00: 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 ].){. sqlite3_s
fc10: 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e tmt *pStmt;. in
fc20: 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a t rc;.. if( obj
fc30: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
fc40: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
fc50: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
fc60: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
fc70: 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 ",. Tcl_G
fc80: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
fc90: 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 53 objv[0], 0), " S
fca0: 54 4d 54 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 TMT", 0);. re
fcb0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
fcc0: 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 }.. if( getSt
fcd0: 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
fce0: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
fcf0: 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 objv[1]), &pStmt
fd00: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
fd10: 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c RROR;. rc = sql
fd20: 69 74 65 33 5f 73 74 6d 74 5f 72 65 61 64 6f 6e ite3_stmt_readon
fd30: 6c 79 28 70 53 74 6d 74 29 3b 0a 20 20 54 63 6c ly(pStmt);. Tcl
fd40: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
fd50: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42 6f 6f terp, Tcl_NewBoo
fd60: 6c 65 61 6e 4f 62 6a 28 72 63 29 29 3b 0a 20 20 leanObj(rc));.
fd70: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
fd80: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
fd90: 73 71 6c 69 74 65 33 5f 73 74 6d 74 5f 62 75 73 sqlite3_stmt_bus
fda0: 79 20 20 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 52 65 y STMT.**.** Re
fdb0: 74 75 72 6e 20 74 72 75 65 20 69 66 20 53 54 4d turn true if STM
fdc0: 54 20 69 73 20 61 20 6e 6f 6e 2d 4e 55 4c 4c 20 T is a non-NULL
fdd0: 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 73 74 61 pointer to a sta
fde0: 74 65 6d 65 6e 74 0a 2a 2a 20 74 68 61 74 20 68 tement.** that h
fdf0: 61 73 20 62 65 65 6e 20 73 74 65 70 70 65 64 20 as been stepped
fe00: 62 75 74 20 6e 6f 74 20 74 6f 20 63 6f 6d 70 6c but not to compl
fe10: 65 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 etion..*/.static
fe20: 20 69 6e 74 20 74 65 73 74 5f 73 74 6d 74 5f 62 int test_stmt_b
fe30: 75 73 79 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c usy(. void * cl
fe40: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
fe50: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
fe60: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
fe70: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
fe80: 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
fe90: 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 _stmt *pStmt;.
fea0: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
feb0: 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 bjc!=2 ){. Tc
fec0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
fed0: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
fee0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
fef0: 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c \"",. Tcl
ff00: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
ff10: 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 j(objv[0], 0), "
ff20: 20 53 54 4d 54 22 2c 20 30 29 3b 0a 20 20 20 20 STMT", 0);.
ff30: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
ff40: 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 ;. }.. if( get
ff50: 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
ff60: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
ff70: 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
ff80: 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
ff90: 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 _ERROR;. rc = s
ffa0: 71 6c 69 74 65 33 5f 73 74 6d 74 5f 62 75 73 79 qlite3_stmt_busy
ffb0: 28 70 53 74 6d 74 29 3b 0a 20 20 54 63 6c 5f 53 (pStmt);. Tcl_S
ffc0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
ffd0: 72 70 2c 20 54 63 6c 5f 4e 65 77 42 6f 6f 6c 65 rp, Tcl_NewBoole
ffe0: 61 6e 4f 62 6a 28 72 63 29 29 3b 0a 20 20 72 65 anObj(rc));. re
fff0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
10000 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 75 73 /*.** Usage: us
10010 65 73 5f 73 74 6d 74 5f 6a 6f 75 72 6e 61 6c 20 es_stmt_journal
10020 20 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 52 65 74 75 STMT.**.** Retu
10030 72 6e 20 74 72 75 65 20 69 66 20 53 54 4d 54 20 rn true if STMT
10040 75 73 65 73 20 61 20 73 74 61 74 65 6d 65 6e 74 uses a statement
10050 20 6a 6f 75 72 6e 61 6c 2e 0a 2a 2f 0a 73 74 61 journal..*/.sta
10060 74 69 63 20 69 6e 74 20 75 73 65 73 5f 73 74 6d tic int uses_stm
10070 74 5f 6a 6f 75 72 6e 61 6c 28 0a 20 20 76 6f 69 t_journal(. voi
10080 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
10090 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
100a0 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
100b0 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
100c0 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
100d0 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
100e0 6d 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 mt;.. if( objc!
100f0 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
10100 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
10110 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
10120 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
10130 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
10140 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
10150 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 53 54 4d jv[0], 0), " STM
10160 54 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 T", 0);. retu
10170 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
10180 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }.. if( getStmt
10190 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
101a0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
101b0 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 jv[1]), &pStmt)
101c0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
101d0 4f 52 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 OR;. sqlite3_st
101e0 6d 74 5f 72 65 61 64 6f 6e 6c 79 28 70 53 74 6d mt_readonly(pStm
101f0 74 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a t);. Tcl_SetObj
10200 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
10210 63 6c 5f 4e 65 77 42 6f 6f 6c 65 61 6e 4f 62 6a cl_NewBooleanObj
10220 28 28 28 56 64 62 65 20 2a 29 70 53 74 6d 74 29 (((Vdbe *)pStmt)
10230 2d 3e 75 73 65 73 53 74 6d 74 4a 6f 75 72 6e 61 ->usesStmtJourna
10240 6c 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 l));. return TC
10250 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 L_OK;.}.../*.**
10260 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
10270 72 65 73 65 74 20 20 53 54 4d 54 20 0a 2a 2a 0a reset STMT .**.
10280 2a 2a 20 52 65 73 65 74 20 61 20 73 74 61 74 65 ** Reset a state
10290 6d 65 6e 74 20 68 61 6e 64 6c 65 2e 0a 2a 2f 0a ment handle..*/.
102a0 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
102b0 72 65 73 65 74 28 0a 20 20 76 6f 69 64 20 2a 20 reset(. void *
102c0 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
102d0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
102e0 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
102f0 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
10300 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
10310 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
10320 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 int rc;.. if(
10330 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
10340 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
10350 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
10360 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
10370 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 e \"",. T
10380 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
10390 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c Obj(objv[0], 0),
103a0 20 22 20 3c 53 54 4d 54 3e 22 2c 20 30 29 3b 0a " <STMT>", 0);.
103b0 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
103c0 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 RROR;. }.. if(
103d0 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
103e0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
103f0 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
10400 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e &pStmt) ) return
10410 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 TCL_ERROR;.. r
10420 63 20 3d 20 73 71 6c 69 74 65 33 5f 72 65 73 65 c = sqlite3_rese
10430 74 28 70 53 74 6d 74 29 3b 0a 20 20 69 66 28 20 t(pStmt);. if(
10440 70 53 74 6d 74 20 26 26 20 73 71 6c 69 74 65 33 pStmt && sqlite3
10450 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
10460 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 rp, StmtToDb(pSt
10470 6d 74 29 2c 20 72 63 29 20 29 7b 0a 20 20 20 20 mt), rc) ){.
10480 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
10490 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 52 ;. }. Tcl_SetR
104a0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 esult(interp, (c
104b0 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d har *)t1ErrorNam
104c0 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 e(rc), TCL_STATI
104d0 43 29 3b 0a 2f 2a 0a 20 20 69 66 28 20 72 63 20 C);./*. if( rc
104e0 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 ){. return TC
104f0 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 2a 2f 0a L_ERROR;. }.*/.
10500 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
10510 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
10520 20 20 73 71 6c 69 74 65 33 5f 65 78 70 69 72 65 sqlite3_expire
10530 64 20 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 52 65 d STMT .**.** Re
10540 74 75 72 6e 20 54 52 55 45 20 69 66 20 61 20 72 turn TRUE if a r
10550 65 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6f 66 20 ecompilation of
10560 74 68 65 20 73 74 61 74 65 6d 65 6e 74 20 69 73 the statement is
10570 20 72 65 63 6f 6d 6d 65 6e 64 65 64 2e 0a 2a 2f recommended..*/
10580 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
10590 5f 65 78 70 69 72 65 64 28 0a 20 20 76 6f 69 64 _expired(. void
105a0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
105b0 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
105c0 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
105d0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
105e0 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e T objv[].){.#ifn
105f0 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
10600 44 45 50 52 45 43 41 54 45 44 0a 20 20 73 71 6c DEPRECATED. sql
10610 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 ite3_stmt *pStmt
10620 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 ;. if( objc!=2
10630 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
10640 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
10650 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
10660 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 hould be \"",.
10670 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
10680 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
10690 30 5d 2c 20 30 29 2c 20 22 20 3c 53 54 4d 54 3e 0], 0), " <STMT>
106a0 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
106b0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
106c0 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f . if( getStmtPo
106d0 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
106e0 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
106f0 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 [1]), &pStmt) )
10700 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
10710 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. Tcl_SetObjRe
10720 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
10730 5f 4e 65 77 42 6f 6f 6c 65 61 6e 4f 62 6a 28 73 _NewBooleanObj(s
10740 71 6c 69 74 65 33 5f 65 78 70 69 72 65 64 28 70 qlite3_expired(p
10750 53 74 6d 74 29 29 29 3b 0a 23 65 6e 64 69 66 0a Stmt)));.#endif.
10760 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
10770 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
10780 20 20 73 71 6c 69 74 65 33 5f 74 72 61 6e 73 66 sqlite3_transf
10790 65 72 5f 62 69 6e 64 69 6e 67 73 20 46 52 4f 4d er_bindings FROM
107a0 53 54 4d 54 20 54 4f 53 54 4d 54 0a 2a 2a 0a 2a STMT TOSTMT.**.*
107b0 2a 20 54 72 61 6e 73 66 65 72 20 61 6c 6c 20 62 * Transfer all b
107c0 69 6e 64 69 6e 67 73 20 66 72 6f 6d 20 46 52 4f indings from FRO
107d0 4d 53 54 4d 54 20 6f 76 65 72 20 74 6f 20 54 4f MSTMT over to TO
107e0 53 54 4d 54 0a 2a 2f 0a 73 74 61 74 69 63 20 69 STMT.*/.static i
107f0 6e 74 20 74 65 73 74 5f 74 72 61 6e 73 66 65 72 nt test_transfer
10800 5f 62 69 6e 64 28 0a 20 20 76 6f 69 64 20 2a 20 _bind(. void *
10810 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
10820 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
10830 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
10840 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
10850 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 bjv[].){.#ifndef
10860 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 45 50 SQLITE_OMIT_DEP
10870 52 45 43 41 54 45 44 0a 20 20 73 71 6c 69 74 65 RECATED. sqlite
10880 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 31 2c 20 3_stmt *pStmt1,
10890 2a 70 53 74 6d 74 32 3b 0a 20 20 69 66 28 20 6f *pStmt2;. if( o
108a0 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 bjc!=3 ){. Tc
108b0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
108c0 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
108d0 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
108e0 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c \"",. Tcl
108f0 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
10900 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 j(objv[0], 0), "
10910 20 46 52 4f 4d 2d 53 54 4d 54 20 54 4f 2d 53 54 FROM-STMT TO-ST
10920 4d 54 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 MT", 0);. ret
10930 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
10940 20 7d 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }. if( getStmt
10950 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
10960 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
10970 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 31 29 jv[1]), &pStmt1)
10980 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
10990 4f 52 3b 0a 20 20 69 66 28 20 67 65 74 53 74 6d OR;. if( getStm
109a0 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
109b0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
109c0 62 6a 76 5b 32 5d 29 2c 20 26 70 53 74 6d 74 32 bjv[2]), &pStmt2
109d0 29 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 )) return TCL_ER
109e0 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 ROR;. Tcl_SetOb
109f0 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
10a00 0a 20 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 . Tcl_NewInt
10a10 4f 62 6a 28 73 71 6c 69 74 65 33 5f 74 72 61 6e Obj(sqlite3_tran
10a20 73 66 65 72 5f 62 69 6e 64 69 6e 67 73 28 70 53 sfer_bindings(pS
10a30 74 6d 74 31 2c 70 53 74 6d 74 32 29 29 29 3b 0a tmt1,pStmt2)));.
10a40 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 #endif. return
10a50 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
10a60 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
10a70 5f 63 68 61 6e 67 65 73 20 44 42 0a 2a 2a 0a 2a _changes DB.**.*
10a80 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d * Return the num
10a90 62 65 72 20 6f 66 20 63 68 61 6e 67 65 73 20 6d ber of changes m
10aa0 61 64 65 20 74 6f 20 74 68 65 20 64 61 74 61 62 ade to the datab
10ab0 61 73 65 20 62 79 20 74 68 65 20 6c 61 73 74 20 ase by the last
10ac0 53 51 4c 0a 2a 2a 20 65 78 65 63 75 74 69 6f 6e SQL.** execution
10ad0 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
10ae0 74 65 73 74 5f 63 68 61 6e 67 65 73 28 0a 20 20 test_changes(.
10af0 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
10b00 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
10b10 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
10b20 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
10b30 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
10b40 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
10b50 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a if( objc!=2 ){.
10b60 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
10b70 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
10b80 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
10b90 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 ld be \"",.
10ba0 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 Tcl_GetString(
10bb0 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 22 2c objv[0]), " DB",
10bc0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
10bd0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
10be0 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
10bf0 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
10c00 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
10c10 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
10c20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c TCL_ERROR;. Tcl
10c30 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
10c40 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 terp, Tcl_NewInt
10c50 4f 62 6a 28 73 71 6c 69 74 65 33 5f 63 68 61 6e Obj(sqlite3_chan
10c60 67 65 73 28 64 62 29 29 29 3b 0a 20 20 72 65 74 ges(db)));. ret
10c70 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
10c80 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 74 68 65 *.** This is the
10c90 20 22 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 "static_bind_va
10ca0 6c 75 65 22 20 74 68 61 74 20 76 61 72 69 61 62 lue" that variab
10cb0 6c 65 73 20 61 72 65 20 62 6f 75 6e 64 20 74 6f les are bound to
10cc0 20 77 68 65 6e 0a 2a 2a 20 74 68 65 20 46 4c 41 when.** the FLA
10cd0 47 20 6f 70 74 69 6f 6e 20 6f 66 20 73 71 6c 69 G option of sqli
10ce0 74 65 33 5f 62 69 6e 64 20 69 73 20 22 73 74 61 te3_bind is "sta
10cf0 74 69 63 22 0a 2a 2f 0a 73 74 61 74 69 63 20 63 tic".*/.static c
10d00 68 61 72 20 2a 73 71 6c 69 74 65 5f 73 74 61 74 har *sqlite_stat
10d10 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 20 3d 20 ic_bind_value =
10d20 30 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 0;.static int sq
10d30 6c 69 74 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 lite_static_bind
10d40 5f 6e 62 79 74 65 20 3d 20 30 3b 0a 0a 2f 2a 0a _nbyte = 0;../*.
10d50 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
10d60 65 33 5f 62 69 6e 64 20 20 56 4d 20 20 49 44 58 e3_bind VM IDX
10d70 20 20 56 41 4c 55 45 20 20 46 4c 41 47 53 0a 2a VALUE FLAGS.*
10d80 2a 0a 2a 2a 20 53 65 74 73 20 74 68 65 20 76 61 *.** Sets the va
10d90 6c 75 65 20 6f 66 20 74 68 65 20 49 44 58 2d 74 lue of the IDX-t
10da0 68 20 6f 63 63 75 72 72 65 6e 63 65 20 6f 66 20 h occurrence of
10db0 22 3f 22 20 69 6e 20 74 68 65 20 6f 72 69 67 69 "?" in the origi
10dc0 6e 61 6c 20 53 51 4c 0a 2a 2a 20 73 74 72 69 6e nal SQL.** strin
10dd0 67 2e 20 20 56 41 4c 55 45 20 69 73 20 74 68 65 g. VALUE is the
10de0 20 6e 65 77 20 76 61 6c 75 65 2e 20 20 49 66 20 new value. If
10df0 46 4c 41 47 53 3d 3d 22 6e 75 6c 6c 22 20 74 68 FLAGS=="null" th
10e00 65 6e 20 56 41 4c 55 45 20 69 73 0a 2a 2a 20 69 en VALUE is.** i
10e10 67 6e 6f 72 65 64 20 61 6e 64 20 74 68 65 20 76 gnored and the v
10e20 61 6c 75 65 20 69 73 20 73 65 74 20 74 6f 20 4e alue is set to N
10e30 55 4c 4c 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d ULL. If FLAGS==
10e40 22 73 74 61 74 69 63 22 20 74 68 65 6e 0a 2a 2a "static" then.**
10e50 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 73 65 the value is se
10e60 74 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f t to the value o
10e70 66 20 61 20 73 74 61 74 69 63 20 76 61 72 69 61 f a static varia
10e80 62 6c 65 20 6e 61 6d 65 64 0a 2a 2a 20 22 73 71 ble named.** "sq
10e90 6c 69 74 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 lite_static_bind
10ea0 5f 76 61 6c 75 65 22 2e 20 20 49 66 20 46 4c 41 _value". If FLA
10eb0 47 53 3d 3d 22 6e 6f 72 6d 61 6c 22 20 74 68 65 GS=="normal" the
10ec0 6e 20 61 20 63 6f 70 79 0a 2a 2a 20 6f 66 20 74 n a copy.** of t
10ed0 68 65 20 56 41 4c 55 45 20 69 73 20 6d 61 64 65 he VALUE is made
10ee0 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d 22 62 6c . If FLAGS=="bl
10ef0 6f 62 31 30 22 20 74 68 65 6e 20 61 20 56 41 4c ob10" then a VAL
10f00 55 45 20 69 73 20 69 67 6e 6f 72 65 64 0a 2a 2a UE is ignored.**
10f10 20 61 6e 20 61 20 31 30 2d 62 79 74 65 20 62 6c an a 10-byte bl
10f20 6f 62 20 22 61 62 63 5c 30 30 30 78 79 7a 5c 30 ob "abc\000xyz\0
10f30 30 30 70 71 22 20 69 73 20 69 6e 73 65 72 74 65 00pq" is inserte
10f40 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 d..*/.static int
10f50 20 74 65 73 74 5f 62 69 6e 64 28 0a 20 20 76 6f test_bind(. vo
10f60 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
10f70 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
10f80 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
10f90 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
10fa0 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
10fb0 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
10fc0 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
10fd0 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
10fe0 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
10ff0 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
11000 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
11010 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
11020 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 /.){. sqlite3_s
11030 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e tmt *pStmt;. in
11040 74 20 72 63 3b 0a 20 20 69 6e 74 20 69 64 78 3b t rc;. int idx;
11050 0a 20 20 69 66 28 20 61 72 67 63 21 3d 35 20 29 . if( argc!=5 )
11060 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
11070 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
11080 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
11090 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
110a0 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 v[0], . "
110b0 56 4d 20 49 44 58 20 56 41 4c 55 45 20 28 6e 75 VM IDX VALUE (nu
110c0 6c 6c 7c 73 74 61 74 69 63 7c 6e 6f 72 6d 61 6c ll|static|normal
110d0 29 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 )\"", 0);. re
110e0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
110f0 20 20 7d 0a 20 20 69 66 28 20 67 65 74 53 74 6d }. if( getStm
11100 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
11110 20 61 72 67 76 5b 31 5d 2c 20 26 70 53 74 6d 74 argv[1], &pStmt
11120 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
11130 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
11140 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 GetInt(interp, a
11150 72 67 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 rgv[2], &idx) )
11160 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
11170 3b 0a 20 20 69 66 28 20 73 74 72 63 6d 70 28 61 ;. if( strcmp(a
11180 72 67 76 5b 34 5d 2c 22 6e 75 6c 6c 22 29 3d 3d rgv[4],"null")==
11190 30 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 0 ){. rc = sq
111a0 6c 69 74 65 33 5f 62 69 6e 64 5f 6e 75 6c 6c 28 lite3_bind_null(
111b0 70 53 74 6d 74 2c 20 69 64 78 29 3b 0a 20 20 7d pStmt, idx);. }
111c0 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 else if( strcmp(
111d0 61 72 67 76 5b 34 5d 2c 22 73 74 61 74 69 63 22 argv[4],"static"
111e0 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 63 20 3d )==0 ){. rc =
111f0 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 sqlite3_bind_te
11200 78 74 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 73 xt(pStmt, idx, s
11210 71 6c 69 74 65 5f 73 74 61 74 69 63 5f 62 69 6e qlite_static_bin
11220 64 5f 76 61 6c 75 65 2c 20 2d 31 2c 20 30 29 3b d_value, -1, 0);
11230 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 . }else if( str
11240 63 6d 70 28 61 72 67 76 5b 34 5d 2c 22 73 74 61 cmp(argv[4],"sta
11250 74 69 63 2d 6e 62 79 74 65 73 22 29 3d 3d 30 20 tic-nbytes")==0
11260 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 ){. rc = sqli
11270 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 te3_bind_text(pS
11280 74 6d 74 2c 20 69 64 78 2c 20 73 71 6c 69 74 65 tmt, idx, sqlite
11290 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c _static_bind_val
112a0 75 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ue,.
112b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
112c0 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 sqlit
112d0 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f 6e 62 e_static_bind_nb
112e0 79 74 65 2c 20 30 29 3b 0a 20 20 7d 65 6c 73 65 yte, 0);. }else
112f0 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 if( strcmp(argv
11300 5b 34 5d 2c 22 6e 6f 72 6d 61 6c 22 29 3d 3d 30 [4],"normal")==0
11310 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c ){. rc = sql
11320 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 ite3_bind_text(p
11330 53 74 6d 74 2c 20 69 64 78 2c 20 61 72 67 76 5b Stmt, idx, argv[
11340 33 5d 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 3], -1, SQLITE_T
11350 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 7d 65 6c RANSIENT);. }el
11360 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 se if( strcmp(ar
11370 67 76 5b 34 5d 2c 22 62 6c 6f 62 31 30 22 29 3d gv[4],"blob10")=
11380 3d 30 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 =0 ){. rc = s
11390 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 qlite3_bind_text
113a0 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 22 61 62 (pStmt, idx, "ab
113b0 63 5c 30 30 30 78 79 7a 5c 30 30 30 70 71 22 2c c\000xyz\000pq",
113c0 20 31 30 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 10, SQLITE_STAT
113d0 49 43 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 IC);. }else{.
113e0 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
113f0 6c 74 28 69 6e 74 65 72 70 2c 20 22 34 74 68 20 lt(interp, "4th
11400 61 72 67 75 6d 65 6e 74 20 73 68 6f 75 6c 64 20 argument should
11410 62 65 20 22 0a 20 20 20 20 20 20 20 20 22 5c 22 be ". "\"
11420 6e 75 6c 6c 5c 22 20 6f 72 20 5c 22 73 74 61 74 null\" or \"stat
11430 69 63 5c 22 20 6f 72 20 5c 22 6e 6f 72 6d 61 6c ic\" or \"normal
11440 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 \"", 0);. ret
11450 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
11460 20 7d 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 }. if( sqlite3
11470 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
11480 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 rp, StmtToDb(pSt
11490 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 75 72 mt), rc) ) retur
114a0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
114b0 66 28 20 72 63 20 29 7b 0a 20 20 20 20 63 68 61 f( rc ){. cha
114c0 72 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 20 20 r zBuf[50];.
114d0 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 28 sprintf(zBuf, "(
114e0 25 64 29 20 22 2c 20 72 63 29 3b 0a 20 20 20 20 %d) ", rc);.
114f0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
11500 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 73 (interp, zBuf, s
11510 71 6c 69 74 65 33 45 72 72 53 74 72 28 72 63 29 qlite3ErrStr(rc)
11520 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
11530 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
11540 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
11550 0a 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 .}..#ifndef SQLI
11560 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 2f 2a TE_OMIT_UTF16./*
11570 0a 2a 2a 20 55 73 61 67 65 3a 20 61 64 64 5f 74 .** Usage: add_t
11580 65 73 74 5f 63 6f 6c 6c 61 74 65 20 3c 64 62 20 est_collate <db
11590 70 74 72 3e 20 3c 75 74 66 38 3e 20 3c 75 74 66 ptr> <utf8> <utf
115a0 31 36 6c 65 3e 20 3c 75 74 66 31 36 62 65 3e 0a 16le> <utf16be>.
115b0 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 **.** This funct
115c0 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 74 ion is used to t
115d0 65 73 74 20 74 68 61 74 20 53 51 4c 69 74 65 20 est that SQLite
115e0 73 65 6c 65 63 74 73 20 74 68 65 20 63 6f 72 72 selects the corr
115f0 65 63 74 20 63 6f 6c 6c 61 74 69 6f 6e 0a 2a 2a ect collation.**
11600 20 73 65 71 75 65 6e 63 65 20 63 61 6c 6c 62 61 sequence callba
11610 63 6b 20 77 68 65 6e 20 6d 75 6c 74 69 70 6c 65 ck when multiple
11620 20 76 65 72 73 69 6f 6e 73 20 28 66 6f 72 20 64 versions (for d
11630 69 66 66 65 72 65 6e 74 20 74 65 78 74 20 65 6e ifferent text en
11640 63 6f 64 69 6e 67 73 29 0a 2a 2a 20 61 72 65 20 codings).** are
11650 61 76 61 69 6c 61 62 6c 65 2e 0a 2a 2a 0a 2a 2a available..**.**
11660 20 43 61 6c 6c 69 6e 67 20 74 68 69 73 20 72 6f Calling this ro
11670 75 74 69 6e 65 20 72 65 67 69 73 74 65 72 73 20 utine registers
11680 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 the collation se
11690 71 75 65 6e 63 65 20 22 74 65 73 74 5f 63 6f 6c quence "test_col
116a0 6c 61 74 65 22 0a 2a 2a 20 77 69 74 68 20 64 61 late".** with da
116b0 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 3c 64 tabase handle <d
116c0 62 3e 2e 20 54 68 65 20 73 65 63 6f 6e 64 20 61 b>. The second a
116d0 72 67 75 6d 65 6e 74 20 6d 75 73 74 20 62 65 20 rgument must be
116e0 61 20 6c 69 73 74 20 6f 66 20 74 68 72 65 65 0a a list of three.
116f0 2a 2a 20 62 6f 6f 6c 65 61 6e 20 76 61 6c 75 65 ** boolean value
11700 73 2e 20 49 66 20 74 68 65 20 66 69 72 73 74 20 s. If the first
11710 69 73 20 74 72 75 65 2c 20 74 68 65 6e 20 61 20 is true, then a
11720 76 65 72 73 69 6f 6e 20 6f 66 20 74 65 73 74 5f version of test_
11730 63 6f 6c 6c 61 74 65 20 69 73 0a 2a 2a 20 72 65 collate is.** re
11740 67 69 73 74 65 72 65 64 20 66 6f 72 20 55 54 46 gistered for UTF
11750 2d 38 2c 20 69 66 20 74 68 65 20 73 65 63 6f 6e -8, if the secon
11760 64 20 69 73 20 74 72 75 65 2c 20 61 20 76 65 72 d is true, a ver
11770 73 69 6f 6e 20 69 73 20 72 65 67 69 73 74 65 72 sion is register
11780 65 64 20 66 6f 72 0a 2a 2a 20 55 54 46 2d 31 36 ed for.** UTF-16
11790 6c 65 2c 20 69 66 20 74 68 65 20 74 68 69 72 64 le, if the third
117a0 20 69 73 20 74 72 75 65 2c 20 61 20 55 54 46 2d is true, a UTF-
117b0 31 36 62 65 20 76 65 72 73 69 6f 6e 20 69 73 20 16be version is
117c0 61 76 61 69 6c 61 62 6c 65 2e 0a 2a 2a 20 50 72 available..** Pr
117d0 65 76 69 6f 75 73 20 76 65 72 73 69 6f 6e 73 20 evious versions
117e0 6f 66 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 of test_collate
117f0 61 72 65 20 64 65 6c 65 74 65 64 2e 0a 2a 2a 0a are deleted..**.
11800 2a 2a 20 54 68 65 20 63 6f 6c 6c 61 74 69 6f 6e ** The collation
11810 20 73 65 71 75 65 6e 63 65 20 74 65 73 74 5f 63 sequence test_c
11820 6f 6c 6c 61 74 65 20 69 73 20 69 6d 70 6c 65 6d ollate is implem
11830 65 6e 74 65 64 20 62 79 20 63 61 6c 6c 69 6e 67 ented by calling
11840 20 74 68 65 0a 2a 2a 20 66 6f 6c 6c 6f 77 69 6e the.** followin
11850 67 20 54 43 4c 20 73 63 72 69 70 74 3a 0a 2a 2a g TCL script:.**
11860 0a 2a 2a 20 20 20 22 74 65 73 74 5f 63 6f 6c 6c .** "test_coll
11870 61 74 65 20 3c 65 6e 63 3e 20 3c 6c 68 73 3e 20 ate <enc> <lhs>
11880 3c 72 68 73 3e 22 0a 2a 2a 0a 2a 2a 20 54 68 65 <rhs>".**.** The
11890 20 3c 6c 68 73 3e 20 61 6e 64 20 3c 72 68 73 3e <lhs> and <rhs>
118a0 20 61 72 65 20 74 68 65 20 74 77 6f 20 76 61 6c are the two val
118b0 75 65 73 20 62 65 69 6e 67 20 63 6f 6d 70 61 72 ues being compar
118c0 65 64 2c 20 65 6e 63 6f 64 65 64 20 69 6e 20 55 ed, encoded in U
118d0 54 46 2d 38 2e 0a 2a 2a 20 54 68 65 20 3c 65 6e TF-8..** The <en
118e0 63 3e 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 c> parameter is
118f0 74 68 65 20 65 6e 63 6f 64 69 6e 67 20 6f 66 20 the encoding of
11900 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 66 75 the collation fu
11910 6e 63 74 69 6f 6e 20 74 68 61 74 0a 2a 2a 20 53 nction that.** S
11920 51 4c 69 74 65 20 73 65 6c 65 63 74 65 64 20 74 QLite selected t
11930 6f 20 63 61 6c 6c 2e 20 54 68 65 20 54 43 4c 20 o call. The TCL
11940 74 65 73 74 20 73 63 72 69 70 74 20 69 6d 70 6c test script impl
11950 65 6d 65 6e 74 73 20 74 68 65 0a 2a 2a 20 22 74 ements the.** "t
11960 65 73 74 5f 63 6f 6c 6c 61 74 65 22 20 70 72 6f est_collate" pro
11970 63 2e 0a 2a 2a 0a 2a 2a 20 4e 6f 74 65 20 74 68 c..**.** Note th
11980 61 74 20 74 68 69 73 20 77 69 6c 6c 20 6f 6e 6c at this will onl
11990 79 20 77 6f 72 6b 20 77 69 74 68 20 6f 6e 65 20 y work with one
119a0 69 6e 74 65 72 70 72 65 74 65 72 20 61 74 20 61 interpreter at a
119b0 20 74 69 6d 65 2c 20 61 73 20 74 68 65 0a 2a 2a time, as the.**
119c0 20 69 6e 74 65 72 70 20 70 6f 69 6e 74 65 72 20 interp pointer
119d0 74 6f 20 75 73 65 20 77 68 65 6e 20 65 76 61 6c to use when eval
119e0 75 61 74 69 6e 67 20 74 68 65 20 54 43 4c 20 73 uating the TCL s
119f0 63 72 69 70 74 20 69 73 20 73 74 6f 72 65 64 20 cript is stored
11a00 69 6e 0a 2a 2a 20 70 54 65 73 74 43 6f 6c 6c 61 in.** pTestColla
11a10 74 65 49 6e 74 65 72 70 2e 0a 2a 2f 0a 73 74 61 teInterp..*/.sta
11a20 74 69 63 20 54 63 6c 5f 49 6e 74 65 72 70 2a 20 tic Tcl_Interp*
11a30 70 54 65 73 74 43 6f 6c 6c 61 74 65 49 6e 74 65 pTestCollateInte
11a40 72 70 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 rp;.static int t
11a50 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 est_collate_func
11a60 28 0a 20 20 76 6f 69 64 20 2a 70 43 74 78 2c 20 (. void *pCtx,
11a70 0a 20 20 69 6e 74 20 6e 41 2c 20 63 6f 6e 73 74 . int nA, const
11a80 20 76 6f 69 64 20 2a 7a 41 2c 0a 20 20 69 6e 74 void *zA,. int
11a90 20 6e 42 2c 20 63 6f 6e 73 74 20 76 6f 69 64 20 nB, const void
11aa0 2a 7a 42 0a 29 7b 0a 20 20 54 63 6c 5f 49 6e 74 *zB.){. Tcl_Int
11ab0 65 72 70 20 2a 69 20 3d 20 70 54 65 73 74 43 6f erp *i = pTestCo
11ac0 6c 6c 61 74 65 49 6e 74 65 72 70 3b 0a 20 20 69 llateInterp;. i
11ad0 6e 74 20 65 6e 63 69 6e 20 3d 20 53 51 4c 49 54 nt encin = SQLIT
11ae0 45 5f 50 54 52 5f 54 4f 5f 49 4e 54 28 70 43 74 E_PTR_TO_INT(pCt
11af0 78 29 3b 0a 20 20 69 6e 74 20 72 65 73 3b 0a 20 x);. int res;.
11b00 20 69 6e 74 20 6e 3b 0a 0a 20 20 73 71 6c 69 74 int n;.. sqlit
11b10 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c 3b 0a e3_value *pVal;.
11b20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 58 3b 0a 0a Tcl_Obj *pX;..
11b30 20 20 70 58 20 3d 20 54 63 6c 5f 4e 65 77 53 74 pX = Tcl_NewSt
11b40 72 69 6e 67 4f 62 6a 28 22 74 65 73 74 5f 63 6f ringObj("test_co
11b50 6c 6c 61 74 65 22 2c 20 2d 31 29 3b 0a 20 20 54 llate", -1);. T
11b60 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
11b70 70 58 29 3b 0a 0a 20 20 73 77 69 74 63 68 28 20 pX);.. switch(
11b80 65 6e 63 69 6e 20 29 7b 0a 20 20 20 20 63 61 73 encin ){. cas
11b90 65 20 53 51 4c 49 54 45 5f 55 54 46 38 3a 0a 20 e SQLITE_UTF8:.
11ba0 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a Tcl_ListObj
11bb0 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 2c AppendElement(i,
11bc0 70 58 2c 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 pX,Tcl_NewString
11bd0 4f 62 6a 28 22 55 54 46 2d 38 22 2c 2d 31 29 29 Obj("UTF-8",-1))
11be0 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
11bf0 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 55 case SQLITE_U
11c00 54 46 31 36 4c 45 3a 0a 20 20 20 20 20 20 54 63 TF16LE:. Tc
11c10 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
11c20 6c 65 6d 65 6e 74 28 69 2c 70 58 2c 54 63 6c 5f lement(i,pX,Tcl_
11c30 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 55 54 NewStringObj("UT
11c40 46 2d 31 36 4c 45 22 2c 2d 31 29 29 3b 0a 20 20 F-16LE",-1));.
11c50 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 break;. c
11c60 61 73 65 20 53 51 4c 49 54 45 5f 55 54 46 31 36 ase SQLITE_UTF16
11c70 42 45 3a 0a 20 20 20 20 20 20 54 63 6c 5f 4c 69 BE:. Tcl_Li
11c80 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
11c90 6e 74 28 69 2c 70 58 2c 54 63 6c 5f 4e 65 77 53 nt(i,pX,Tcl_NewS
11ca0 74 72 69 6e 67 4f 62 6a 28 22 55 54 46 2d 31 36 tringObj("UTF-16
11cb0 42 45 22 2c 2d 31 29 29 3b 0a 20 20 20 20 20 20 BE",-1));.
11cc0 62 72 65 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 break;. defau
11cd0 6c 74 3a 0a 20 20 20 20 20 20 61 73 73 65 72 74 lt:. assert
11ce0 28 30 29 3b 0a 20 20 7d 0a 0a 20 20 73 71 6c 69 (0);. }.. sqli
11cf0 74 65 33 42 65 67 69 6e 42 65 6e 69 67 6e 4d 61 te3BeginBenignMa
11d00 6c 6c 6f 63 28 29 3b 0a 20 20 70 56 61 6c 20 3d lloc();. pVal =
11d10 20 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 sqlite3ValueNew
11d20 28 30 29 3b 0a 20 20 69 66 28 20 70 56 61 6c 20 (0);. if( pVal
11d30 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 56 61 ){. sqlite3Va
11d40 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c 2c 20 lueSetStr(pVal,
11d50 6e 41 2c 20 7a 41 2c 20 65 6e 63 69 6e 2c 20 53 nA, zA, encin, S
11d60 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 QLITE_STATIC);.
11d70 20 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 n = sqlite3_v
11d80 61 6c 75 65 5f 62 79 74 65 73 28 70 56 61 6c 29 alue_bytes(pVal)
11d90 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ;. Tcl_ListOb
11da0 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
11db0 2c 70 58 2c 0a 20 20 20 20 20 20 20 20 54 63 6c ,pX,. Tcl
11dc0 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 _NewStringObj((c
11dd0 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
11de0 75 65 5f 74 65 78 74 28 70 56 61 6c 29 2c 6e 29 ue_text(pVal),n)
11df0 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 56 61 );. sqlite3Va
11e00 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c 2c 20 lueSetStr(pVal,
11e10 6e 42 2c 20 7a 42 2c 20 65 6e 63 69 6e 2c 20 53 nB, zB, encin, S
11e20 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 QLITE_STATIC);.
11e30 20 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 n = sqlite3_v
11e40 61 6c 75 65 5f 62 79 74 65 73 28 70 56 61 6c 29 alue_bytes(pVal)
11e50 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ;. Tcl_ListOb
11e60 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
11e70 2c 70 58 2c 0a 20 20 20 20 20 20 20 20 54 63 6c ,pX,. Tcl
11e80 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 _NewStringObj((c
11e90 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
11ea0 75 65 5f 74 65 78 74 28 70 56 61 6c 29 2c 6e 29 ue_text(pVal),n)
11eb0 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 56 61 );. sqlite3Va
11ec0 6c 75 65 46 72 65 65 28 70 56 61 6c 29 3b 0a 20 lueFree(pVal);.
11ed0 20 7d 0a 20 20 73 71 6c 69 74 65 33 45 6e 64 42 }. sqlite3EndB
11ee0 65 6e 69 67 6e 4d 61 6c 6c 6f 63 28 29 3b 0a 0a enignMalloc();..
11ef0 20 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 Tcl_EvalObjEx(
11f00 69 2c 20 70 58 2c 20 30 29 3b 0a 20 20 54 63 6c i, pX, 0);. Tcl
11f10 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 58 _DecrRefCount(pX
11f20 29 3b 0a 20 20 54 63 6c 5f 47 65 74 49 6e 74 46 );. Tcl_GetIntF
11f30 72 6f 6d 4f 62 6a 28 69 2c 20 54 63 6c 5f 47 65 romObj(i, Tcl_Ge
11f40 74 4f 62 6a 52 65 73 75 6c 74 28 69 29 2c 20 26 tObjResult(i), &
11f50 72 65 73 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 res);. return r
11f60 65 73 3b 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 es;.}.static int
11f70 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 28 0a 20 test_collate(.
11f80 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
11f90 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
11fa0 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
11fb0 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
11fc0 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
11fd0 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
11fe0 20 20 69 6e 74 20 76 61 6c 3b 0a 20 20 73 71 6c int val;. sql
11ff0 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c ite3_value *pVal
12000 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 ;. int rc;.. i
12010 66 28 20 6f 62 6a 63 21 3d 35 20 29 20 67 6f 74 f( objc!=5 ) got
12020 6f 20 62 61 64 5f 61 72 67 73 3b 0a 20 20 70 54 o bad_args;. pT
12030 65 73 74 43 6f 6c 6c 61 74 65 49 6e 74 65 72 70 estCollateInterp
12040 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20 69 66 28 = interp;. if(
12050 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
12060 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
12070 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 ing(objv[1]), &d
12080 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
12090 45 52 52 4f 52 3b 0a 0a 20 20 69 66 28 20 54 43 ERROR;.. if( TC
120a0 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f L_OK!=Tcl_GetBoo
120b0 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 leanFromObj(inte
120c0 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 76 61 rp, objv[2], &va
120d0 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f l) ) return TCL_
120e0 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 ERROR;. rc = sq
120f0 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c lite3_create_col
12100 6c 61 74 69 6f 6e 28 64 62 2c 20 22 74 65 73 74 lation(db, "test
12110 5f 63 6f 6c 6c 61 74 65 22 2c 20 53 51 4c 49 54 _collate", SQLIT
12120 45 5f 55 54 46 38 2c 20 0a 20 20 20 20 20 20 20 E_UTF8, .
12130 20 20 20 28 76 6f 69 64 20 2a 29 53 51 4c 49 54 (void *)SQLIT
12140 45 5f 55 54 46 38 2c 20 76 61 6c 3f 74 65 73 74 E_UTF8, val?test
12150 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 3a 30 29 _collate_func:0)
12160 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 ;. if( rc==SQLI
12170 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 63 6f 6e TE_OK ){. con
12180 73 74 20 76 6f 69 64 20 2a 7a 55 74 66 31 36 3b st void *zUtf16;
12190 0a 20 20 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 . if( TCL_OK!
121a0 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 =Tcl_GetBooleanF
121b0 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
121c0 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 29 20 29 20 bjv[3], &val) )
121d0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
121e0 3b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 ;. rc = sqlit
121f0 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 e3_create_collat
12200 69 6f 6e 28 64 62 2c 20 22 74 65 73 74 5f 63 6f ion(db, "test_co
12210 6c 6c 61 74 65 22 2c 20 53 51 4c 49 54 45 5f 55 llate", SQLITE_U
12220 54 46 31 36 4c 45 2c 20 0a 20 20 20 20 20 20 20 TF16LE, .
12230 20 20 20 20 20 28 76 6f 69 64 20 2a 29 53 51 4c (void *)SQL
12240 49 54 45 5f 55 54 46 31 36 4c 45 2c 20 76 61 6c ITE_UTF16LE, val
12250 3f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 66 75 ?test_collate_fu
12260 6e 63 3a 30 29 3b 0a 20 20 20 20 69 66 28 20 54 nc:0);. if( T
12270 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f CL_OK!=Tcl_GetBo
12280 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 oleanFromObj(int
12290 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 76 erp, objv[4], &v
122a0 61 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c al) ) return TCL
122b0 5f 45 52 52 4f 52 3b 0a 0a 23 69 66 20 30 0a 20 _ERROR;..#if 0.
122c0 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 69 if( sqlite3_i
122d0 4d 61 6c 6c 6f 63 46 61 69 6c 3e 30 20 29 7b 0a MallocFail>0 ){.
122e0 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 69 4d sqlite3_iM
122f0 61 6c 6c 6f 63 46 61 69 6c 2b 2b 3b 0a 20 20 20 allocFail++;.
12300 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 73 71 }.#endif. sq
12310 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 lite3_mutex_ente
12320 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 r(db->mutex);.
12330 20 20 70 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 pVal = sqlite3
12340 56 61 6c 75 65 4e 65 77 28 64 62 29 3b 0a 20 20 ValueNew(db);.
12350 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 53 65 sqlite3ValueSe
12360 74 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c 20 22 tStr(pVal, -1, "
12370 74 65 73 74 5f 63 6f 6c 6c 61 74 65 22 2c 20 53 test_collate", S
12380 51 4c 49 54 45 5f 55 54 46 38 2c 20 53 51 4c 49 QLITE_UTF8, SQLI
12390 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 TE_STATIC);.
123a0 7a 55 74 66 31 36 20 3d 20 73 71 6c 69 74 65 33 zUtf16 = sqlite3
123b0 56 61 6c 75 65 54 65 78 74 28 70 56 61 6c 2c 20 ValueText(pVal,
123c0 53 51 4c 49 54 45 5f 55 54 46 31 36 4e 41 54 49 SQLITE_UTF16NATI
123d0 56 45 29 3b 0a 20 20 20 20 69 66 28 20 64 62 2d VE);. if( db-
123e0 3e 6d 61 6c 6c 6f 63 46 61 69 6c 65 64 20 29 7b >mallocFailed ){
123f0 0a 20 20 20 20 20 20 72 63 20 3d 20 53 51 4c 49 . rc = SQLI
12400 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 20 20 7d 65 TE_NOMEM;. }e
12410 6c 73 65 7b 0a 20 20 20 20 20 20 72 63 20 3d 20 lse{. rc =
12420 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 sqlite3_create_c
12430 6f 6c 6c 61 74 69 6f 6e 31 36 28 64 62 2c 20 7a ollation16(db, z
12440 55 74 66 31 36 2c 20 53 51 4c 49 54 45 5f 55 54 Utf16, SQLITE_UT
12450 46 31 36 42 45 2c 20 0a 20 20 20 20 20 20 20 20 F16BE, .
12460 20 20 28 76 6f 69 64 20 2a 29 53 51 4c 49 54 45 (void *)SQLITE
12470 5f 55 54 46 31 36 42 45 2c 20 76 61 6c 3f 74 65 _UTF16BE, val?te
12480 73 74 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 3a st_collate_func:
12490 30 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 0);. }. sq
124a0 6c 69 74 65 33 56 61 6c 75 65 46 72 65 65 28 70 lite3ValueFree(p
124b0 56 61 6c 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 Val);. sqlite
124c0 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 62 3_mutex_leave(db
124d0 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 7d 0a 20 20 ->mutex);. }.
124e0 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 if( sqlite3TestE
124f0 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 rrCode(interp, d
12500 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 b, rc) ) return
12510 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 0a 20 20 TCL_ERROR;. .
12520 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f if( rc!=SQLITE_O
12530 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 K ){. Tcl_App
12540 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
12550 2c 20 73 71 6c 69 74 65 33 45 72 72 4e 61 6d 65 , sqlite3ErrName
12560 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 (rc), 0);. re
12570 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
12580 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }. return TCL
12590 5f 4f 4b 3b 0a 0a 62 61 64 5f 61 72 67 73 3a 0a _OK;..bad_args:.
125a0 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
125b0 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
125c0 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
125d0 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 54 be \"",. T
125e0 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
125f0 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c Obj(objv[0], 0),
12600 20 22 20 3c 44 42 3e 20 3c 75 74 66 38 3e 20 3c " <DB> <utf8> <
12610 75 74 66 31 36 6c 65 3e 20 3c 75 74 66 31 36 62 utf16le> <utf16b
12620 65 3e 22 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 e>", 0);. retur
12630 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a n TCL_ERROR;.}..
12640 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 61 64 64 /*.** Usage: add
12650 5f 74 65 73 74 5f 75 74 66 31 36 62 69 6e 5f 63 _test_utf16bin_c
12660 6f 6c 6c 61 74 65 20 3c 64 62 20 70 74 72 3e 0a ollate <db ptr>.
12670 2a 2a 0a 2a 2a 20 41 64 64 20 61 20 75 74 66 2d **.** Add a utf-
12680 31 36 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 16 collation seq
12690 75 65 6e 63 65 20 6e 61 6d 65 64 20 22 75 74 66 uence named "utf
126a0 31 36 62 69 6e 22 20 74 6f 20 74 68 65 20 64 61 16bin" to the da
126b0 74 61 62 61 73 65 0a 2a 2a 20 68 61 6e 64 6c 65 tabase.** handle
126c0 2e 20 54 68 69 73 20 63 6f 6c 6c 61 74 69 6f 6e . This collation
126d0 20 73 65 71 75 65 6e 63 65 20 63 6f 6d 70 61 72 sequence compar
126e0 65 73 20 61 72 67 75 6d 65 6e 74 73 20 69 6e 20 es arguments in
126f0 74 68 65 20 73 61 6d 65 20 77 61 79 20 61 73 20 the same way as
12700 74 68 65 0a 2a 2a 20 62 75 69 6c 74 2d 69 6e 20 the.** built-in
12710 63 6f 6c 6c 61 74 69 6f 6e 20 22 62 69 6e 61 72 collation "binar
12720 79 22 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e y"..*/.static in
12730 74 20 74 65 73 74 5f 75 74 66 31 36 62 69 6e 5f t test_utf16bin_
12740 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 28 0a 20 20 collate_func(.
12750 76 6f 69 64 20 2a 70 43 74 78 2c 20 0a 20 20 69 void *pCtx, . i
12760 6e 74 20 6e 41 2c 20 63 6f 6e 73 74 20 76 6f 69 nt nA, const voi
12770 64 20 2a 7a 41 2c 0a 20 20 69 6e 74 20 6e 42 2c d *zA,. int nB,
12780 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 42 0a const void *zB.
12790 29 7b 0a 20 20 69 6e 74 20 6e 43 6d 70 20 3d 20 ){. int nCmp =
127a0 28 6e 41 3e 6e 42 20 3f 20 6e 42 20 3a 20 6e 41 (nA>nB ? nB : nA
127b0 29 3b 0a 20 20 69 6e 74 20 72 65 73 20 3d 20 6d );. int res = m
127c0 65 6d 63 6d 70 28 7a 41 2c 20 7a 42 2c 20 6e 43 emcmp(zA, zB, nC
127d0 6d 70 29 3b 0a 20 20 69 66 28 20 72 65 73 3d 3d mp);. if( res==
127e0 30 20 29 20 72 65 73 20 3d 20 6e 41 20 2d 20 6e 0 ) res = nA - n
127f0 42 3b 0a 20 20 72 65 74 75 72 6e 20 72 65 73 3b B;. return res;
12800 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 .}.static int te
12810 73 74 5f 75 74 66 31 36 62 69 6e 5f 63 6f 6c 6c st_utf16bin_coll
12820 61 74 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c ate(. void * cl
12830 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
12840 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
12850 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
12860 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
12870 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
12880 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a *db;. int rc;.
12890 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 . if( objc!=2 )
128a0 20 67 6f 74 6f 20 62 61 64 5f 61 72 67 73 3b 0a goto bad_args;.
128b0 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
128c0 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
128d0 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
128e0 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ), &db) ) return
128f0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 TCL_ERROR;.. r
12900 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 c = sqlite3_crea
12910 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 64 62 2c te_collation(db,
12920 20 22 75 74 66 31 36 62 69 6e 22 2c 20 53 51 4c "utf16bin", SQL
12930 49 54 45 5f 55 54 46 31 36 2c 20 30 2c 20 0a 20 ITE_UTF16, 0, .
12940 20 20 20 20 20 74 65 73 74 5f 75 74 66 31 36 62 test_utf16b
12950 69 6e 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 0a in_collate_func.
12960 20 20 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 );. if( sqlit
12970 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e e3TestErrCode(in
12980 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 terp, db, rc) )
12990 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
129a0 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
129b0 4b 3b 0a 0a 62 61 64 5f 61 72 67 73 3a 0a 20 20 K;..bad_args:.
129c0 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
129d0 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
129e0 2c 20 22 44 42 22 29 3b 0a 20 20 72 65 74 75 72 , "DB");. retur
129f0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a n TCL_ERROR;.}..
12a00 2f 2a 0a 2a 2a 20 57 68 65 6e 20 74 68 65 20 63 /*.** When the c
12a10 6f 6c 6c 61 74 69 6f 6e 20 6e 65 65 64 65 64 20 ollation needed
12a20 63 61 6c 6c 62 61 63 6b 20 69 73 20 69 6e 76 6f callback is invo
12a30 6b 65 64 2c 20 72 65 63 6f 72 64 20 74 68 65 20 ked, record the
12a40 6e 61 6d 65 20 6f 66 20 0a 2a 2a 20 74 68 65 20 name of .** the
12a50 72 65 71 75 65 73 74 65 64 20 63 6f 6c 6c 61 74 requested collat
12a60 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 68 65 72 ing function her
12a70 65 2e 20 20 54 68 65 20 72 65 63 6f 72 64 65 64 e. The recorded
12a80 20 6e 61 6d 65 20 69 73 20 6c 69 6e 6b 65 64 0a name is linked.
12a90 2a 2a 20 74 6f 20 61 20 54 43 4c 20 76 61 72 69 ** to a TCL vari
12aa0 61 62 6c 65 20 61 6e 64 20 75 73 65 64 20 74 6f able and used to
12ab0 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 make sure that
12ac0 74 68 65 20 72 65 71 75 65 73 74 65 64 20 63 6f the requested co
12ad0 6c 6c 61 74 69 6f 6e 0a 2a 2a 20 6e 61 6d 65 20 llation.** name
12ae0 69 73 20 63 6f 72 72 65 63 74 2e 0a 2a 2f 0a 73 is correct..*/.s
12af0 74 61 74 69 63 20 63 68 61 72 20 7a 4e 65 65 64 tatic char zNeed
12b00 65 64 43 6f 6c 6c 61 74 69 6f 6e 5b 32 30 30 5d edCollation[200]
12b10 3b 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 70 ;.static char *p
12b20 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f 6e zNeededCollation
12b30 20 3d 20 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 = zNeededCollat
12b40 69 6f 6e 3b 0a 0a 0a 2f 2a 0a 2a 2a 20 43 61 6c ion;.../*.** Cal
12b50 6c 65 64 20 77 68 65 6e 20 61 20 63 6f 6c 6c 61 led when a colla
12b60 74 69 6e 67 20 73 65 71 75 65 6e 63 65 20 69 73 ting sequence is
12b70 20 6e 65 65 64 65 64 2e 20 20 52 65 67 69 73 74 needed. Regist
12b80 65 72 65 64 20 75 73 69 6e 67 0a 2a 2a 20 73 71 ered using.** sq
12b90 6c 69 74 65 33 5f 63 6f 6c 6c 61 74 69 6f 6e 5f lite3_collation_
12ba0 6e 65 65 64 65 64 31 36 28 29 2e 0a 2a 2f 0a 73 needed16()..*/.s
12bb0 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f tatic void test_
12bc0 63 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 64 5f 63 collate_needed_c
12bd0 62 28 0a 20 20 76 6f 69 64 20 2a 70 43 74 78 2c b(. void *pCtx,
12be0 20 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 2c . sqlite3 *db,
12bf0 0a 20 20 69 6e 74 20 65 54 65 78 74 52 65 70 2c . int eTextRep,
12c00 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 . const void *p
12c10 4e 61 6d 65 0a 29 7b 0a 20 20 69 6e 74 20 65 6e Name.){. int en
12c20 63 20 3d 20 45 4e 43 28 64 62 29 3b 0a 20 20 69 c = ENC(db);. i
12c30 6e 74 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a 3b nt i;. char *z;
12c40 0a 20 20 66 6f 72 28 7a 20 3d 20 28 63 68 61 72 . for(z = (char
12c50 2a 29 70 4e 61 6d 65 2c 20 69 3d 30 3b 20 2a 7a *)pName, i=0; *z
12c60 20 7c 7c 20 7a 5b 31 5d 3b 20 7a 2b 2b 29 7b 0a || z[1]; z++){.
12c70 20 20 20 20 69 66 28 20 2a 7a 20 29 20 7a 4e 65 if( *z ) zNe
12c80 65 64 65 64 43 6f 6c 6c 61 74 69 6f 6e 5b 69 2b ededCollation[i+
12c90 2b 5d 20 3d 20 2a 7a 3b 0a 20 20 7d 0a 20 20 7a +] = *z;. }. z
12ca0 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f 6e 5b NeededCollation[
12cb0 69 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 i] = 0;. sqlite
12cc0 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 3_create_collati
12cd0 6f 6e 28 0a 20 20 20 20 20 20 64 62 2c 20 22 74 on(. db, "t
12ce0 65 73 74 5f 63 6f 6c 6c 61 74 65 22 2c 20 45 4e est_collate", EN
12cf0 43 28 64 62 29 2c 20 53 51 4c 49 54 45 5f 49 4e C(db), SQLITE_IN
12d00 54 5f 54 4f 5f 50 54 52 28 65 6e 63 29 2c 20 74 T_TO_PTR(enc), t
12d10 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 est_collate_func
12d20 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 );.}../*.** Usag
12d30 65 3a 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c e: add_test_coll
12d40 61 74 65 5f 6e 65 65 64 65 64 20 44 42 0a 2a 2f ate_needed DB.*/
12d50 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
12d60 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 64 28 _collate_needed(
12d70 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
12d80 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
12d90 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
12da0 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
12db0 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
12dc0 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ){. sqlite3 *db
12dd0 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 ;. int rc;.. i
12de0 66 28 20 6f 62 6a 63 21 3d 32 20 29 20 67 6f 74 f( objc!=2 ) got
12df0 6f 20 62 61 64 5f 61 72 67 73 3b 0a 20 20 69 66 o bad_args;. if
12e00 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
12e10 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
12e20 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
12e30 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
12e40 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 _ERROR;. rc = s
12e50 71 6c 69 74 65 33 5f 63 6f 6c 6c 61 74 69 6f 6e qlite3_collation
12e60 5f 6e 65 65 64 65 64 31 36 28 64 62 2c 20 30 2c _needed16(db, 0,
12e70 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 test_collate_ne
12e80 65 64 65 64 5f 63 62 29 3b 0a 20 20 7a 4e 65 65 eded_cb);. zNee
12e90 64 65 64 43 6f 6c 6c 61 74 69 6f 6e 5b 30 5d 20 dedCollation[0]
12ea0 3d 20 30 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 = 0;. if( sqlit
12eb0 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e e3TestErrCode(in
12ec0 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 terp, db, rc) )
12ed0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
12ee0 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
12ef0 4b 3b 0a 0a 62 61 64 5f 61 72 67 73 3a 0a 20 20 K;..bad_args:.
12f00 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
12f10 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
12f20 2c 20 22 44 42 22 29 3b 0a 20 20 72 65 74 75 72 , "DB");. retur
12f30 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a n TCL_ERROR;.}..
12f40 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 /*.** tclcmd:
12f50 61 64 64 5f 61 6c 69 67 6e 6d 65 6e 74 5f 74 65 add_alignment_te
12f60 73 74 5f 63 6f 6c 6c 61 74 69 6f 6e 73 20 20 44 st_collations D
12f70 42 0a 2a 2a 0a 2a 2a 20 41 64 64 20 74 77 6f 20 B.**.** Add two
12f80 6e 65 77 20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 new collating se
12f90 71 75 65 6e 63 65 73 20 74 6f 20 74 68 65 20 64 quences to the d
12fa0 61 74 61 62 61 73 65 20 44 42 0a 2a 2a 0a 2a 2a atabase DB.**.**
12fb0 20 20 20 20 20 75 74 66 31 36 5f 61 6c 69 67 6e utf16_align
12fc0 65 64 0a 2a 2a 20 20 20 20 20 75 74 66 31 36 5f ed.** utf16_
12fd0 75 6e 61 6c 69 67 6e 65 64 0a 2a 2a 0a 2a 2a 20 unaligned.**.**
12fe0 42 6f 74 68 20 63 6f 6c 6c 61 74 69 6e 67 20 73 Both collating s
12ff0 65 71 75 65 6e 63 65 73 20 75 73 65 20 74 68 65 equences use the
13000 20 73 61 6d 65 20 73 6f 72 74 20 6f 72 64 65 72 same sort order
13010 20 61 73 20 42 49 4e 41 52 59 2e 0a 2a 2a 20 54 as BINARY..** T
13020 68 65 20 6f 6e 6c 79 20 64 69 66 66 65 72 65 6e he only differen
13030 63 65 20 69 73 20 74 68 61 74 20 74 68 65 20 75 ce is that the u
13040 74 66 31 36 5f 61 6c 69 67 6e 65 64 20 63 6f 6c tf16_aligned col
13050 6c 61 74 69 6e 67 0a 2a 2a 20 73 65 71 75 65 6e lating.** sequen
13060 63 65 20 69 73 20 64 65 63 6c 61 72 65 64 20 77 ce is declared w
13070 69 74 68 20 74 68 65 20 53 51 4c 49 54 45 5f 55 ith the SQLITE_U
13080 54 46 31 36 5f 41 4c 49 47 4e 45 44 20 66 6c 61 TF16_ALIGNED fla
13090 67 2e 0a 2a 2a 20 42 6f 74 68 20 63 6f 6c 6c 61 g..** Both colla
130a0 74 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 20 69 ting functions i
130b0 6e 63 72 65 6d 65 6e 74 20 74 68 65 20 75 6e 61 ncrement the una
130c0 6c 69 67 6e 65 64 20 75 74 66 31 36 20 63 6f 75 ligned utf16 cou
130d0 6e 74 65 72 0a 2a 2a 20 77 68 65 6e 65 76 65 72 nter.** whenever
130e0 20 74 68 65 79 20 73 65 65 20 61 20 73 74 72 69 they see a stri
130f0 6e 67 20 74 68 61 74 20 62 65 67 69 6e 73 20 6f ng that begins o
13100 6e 20 61 6e 20 6f 64 64 20 62 79 74 65 20 62 6f n an odd byte bo
13110 75 6e 64 61 72 79 2e 0a 2a 2f 0a 73 74 61 74 69 undary..*/.stati
13120 63 20 69 6e 74 20 75 6e 61 6c 69 67 6e 65 64 5f c int unaligned_
13130 73 74 72 69 6e 67 5f 63 6f 75 6e 74 65 72 20 3d string_counter =
13140 20 30 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 61 0;.static int a
13150 6c 69 67 6e 6d 65 6e 74 43 6f 6c 6c 46 75 6e 63 lignmentCollFunc
13160 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
13170 64 2c 0a 20 20 69 6e 74 20 6e 4b 65 79 31 2c 20 d,. int nKey1,
13180 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 4b 65 79 const void *pKey
13190 31 2c 0a 20 20 69 6e 74 20 6e 4b 65 79 32 2c 20 1,. int nKey2,
131a0 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 4b 65 79 const void *pKey
131b0 32 0a 29 7b 0a 20 20 69 6e 74 20 72 63 2c 20 6e 2.){. int rc, n
131c0 3b 0a 20 20 6e 20 3d 20 6e 4b 65 79 31 3c 6e 4b ;. n = nKey1<nK
131d0 65 79 32 20 3f 20 6e 4b 65 79 31 20 3a 20 6e 4b ey2 ? nKey1 : nK
131e0 65 79 32 3b 0a 20 20 69 66 28 20 6e 4b 65 79 31 ey2;. if( nKey1
131f0 3e 30 20 26 26 20 31 3d 3d 28 31 26 28 53 51 4c >0 && 1==(1&(SQL
13200 49 54 45 5f 50 54 52 5f 54 4f 5f 49 4e 54 28 70 ITE_PTR_TO_INT(p
13210 4b 65 79 31 29 29 29 20 29 20 75 6e 61 6c 69 67 Key1))) ) unalig
13220 6e 65 64 5f 73 74 72 69 6e 67 5f 63 6f 75 6e 74 ned_string_count
13230 65 72 2b 2b 3b 0a 20 20 69 66 28 20 6e 4b 65 79 er++;. if( nKey
13240 32 3e 30 20 26 26 20 31 3d 3d 28 31 26 28 53 51 2>0 && 1==(1&(SQ
13250 4c 49 54 45 5f 50 54 52 5f 54 4f 5f 49 4e 54 28 LITE_PTR_TO_INT(
13260 70 4b 65 79 32 29 29 29 20 29 20 75 6e 61 6c 69 pKey2))) ) unali
13270 67 6e 65 64 5f 73 74 72 69 6e 67 5f 63 6f 75 6e gned_string_coun
13280 74 65 72 2b 2b 3b 0a 20 20 72 63 20 3d 20 6d 65 ter++;. rc = me
13290 6d 63 6d 70 28 70 4b 65 79 31 2c 20 70 4b 65 79 mcmp(pKey1, pKey
132a0 32 2c 20 6e 29 3b 0a 20 20 69 66 28 20 72 63 3d 2, n);. if( rc=
132b0 3d 30 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 6e =0 ){. rc = n
132c0 4b 65 79 31 20 2d 20 6e 4b 65 79 32 3b 0a 20 20 Key1 - nKey2;.
132d0 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d }. return rc;.}
132e0 0a 73 74 61 74 69 63 20 69 6e 74 20 61 64 64 5f .static int add_
132f0 61 6c 69 67 6e 6d 65 6e 74 5f 74 65 73 74 5f 63 alignment_test_c
13300 6f 6c 6c 61 74 69 6f 6e 73 28 0a 20 20 76 6f 69 ollations(. voi
13310 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
13320 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
13330 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
13340 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
13350 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
13360 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 qlite3 *db;. if
13370 28 20 6f 62 6a 63 3e 3d 32 20 29 7b 0a 20 20 20 ( objc>=2 ){.
13380 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
13390 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
133a0 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
133b0 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
133c0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 73 TCL_ERROR;. s
133d0 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f qlite3_create_co
133e0 6c 6c 61 74 69 6f 6e 28 64 62 2c 20 22 75 74 66 llation(db, "utf
133f0 31 36 5f 75 6e 61 6c 69 67 6e 65 64 22 2c 20 53 16_unaligned", S
13400 51 4c 49 54 45 5f 55 54 46 31 36 2c 20 0a 20 20 QLITE_UTF16, .
13410 20 20 20 20 20 20 30 2c 20 61 6c 69 67 6e 6d 65 0, alignme
13420 6e 74 43 6f 6c 6c 46 75 6e 63 29 3b 0a 20 20 20 ntCollFunc);.
13430 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
13440 63 6f 6c 6c 61 74 69 6f 6e 28 64 62 2c 20 22 75 collation(db, "u
13450 74 66 31 36 5f 61 6c 69 67 6e 65 64 22 2c 20 53 tf16_aligned", S
13460 51 4c 49 54 45 5f 55 54 46 31 36 5f 41 4c 49 47 QLITE_UTF16_ALIG
13470 4e 45 44 2c 20 0a 20 20 20 20 20 20 20 20 30 2c NED, . 0,
13480 20 61 6c 69 67 6e 6d 65 6e 74 43 6f 6c 6c 46 75 alignmentCollFu
13490 6e 63 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 nc);. }. retur
134a0 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 23 n SQLITE_OK;.}.#
134b0 65 6e 64 69 66 20 2f 2a 20 21 64 65 66 69 6e 65 endif /* !define
134c0 64 28 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 d(SQLITE_OMIT_UT
134d0 46 31 36 29 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 55 F16) */../*.** U
134e0 73 61 67 65 3a 20 61 64 64 5f 74 65 73 74 5f 66 sage: add_test_f
134f0 75 6e 63 74 69 6f 6e 20 3c 64 62 20 70 74 72 3e unction <db ptr>
13500 20 3c 75 74 66 38 3e 20 3c 75 74 66 31 36 6c 65 <utf8> <utf16le
13510 3e 20 3c 75 74 66 31 36 62 65 3e 0a 2a 2a 0a 2a > <utf16be>.**.*
13520 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 * This function
13530 69 73 20 75 73 65 64 20 74 6f 20 74 65 73 74 20 is used to test
13540 74 68 61 74 20 53 51 4c 69 74 65 20 73 65 6c 65 that SQLite sele
13550 63 74 73 20 74 68 65 20 63 6f 72 72 65 63 74 20 cts the correct
13560 75 73 65 72 0a 2a 2a 20 66 75 6e 63 74 69 6f 6e user.** function
13570 20 63 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 6d callback when m
13580 75 6c 74 69 70 6c 65 20 76 65 72 73 69 6f 6e 73 ultiple versions
13590 20 28 66 6f 72 20 64 69 66 66 65 72 65 6e 74 20 (for different
135a0 74 65 78 74 20 65 6e 63 6f 64 69 6e 67 73 29 0a text encodings).
135b0 2a 2a 20 61 72 65 20 61 76 61 69 6c 61 62 6c 65 ** are available
135c0 2e 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 69 6e 67 20 ..**.** Calling
135d0 74 68 69 73 20 72 6f 75 74 69 6e 65 20 72 65 67 this routine reg
135e0 69 73 74 65 72 73 20 75 70 20 74 6f 20 74 68 72 isters up to thr
135f0 65 65 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 74 ee versions of t
13600 68 65 20 75 73 65 72 20 66 75 6e 63 74 69 6f 6e he user function
13610 0a 2a 2a 20 22 74 65 73 74 5f 66 75 6e 63 74 69 .** "test_functi
13620 6f 6e 22 20 77 69 74 68 20 64 61 74 61 62 61 73 on" with databas
13630 65 20 68 61 6e 64 6c 65 20 3c 64 62 3e 2e 20 20 e handle <db>.
13640 49 66 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 If the second ar
13650 67 75 6d 65 6e 74 20 69 73 0a 2a 2a 20 74 72 75 gument is.** tru
13660 65 2c 20 74 68 65 6e 20 61 20 76 65 72 73 69 6f e, then a versio
13670 6e 20 6f 66 20 74 65 73 74 5f 66 75 6e 63 74 69 n of test_functi
13680 6f 6e 20 69 73 20 72 65 67 69 73 74 65 72 65 64 on is registered
13690 20 66 6f 72 20 55 54 46 2d 38 2c 20 69 66 20 74 for UTF-8, if t
136a0 68 65 0a 2a 2a 20 74 68 69 72 64 20 69 73 20 74 he.** third is t
136b0 72 75 65 2c 20 61 20 76 65 72 73 69 6f 6e 20 69 rue, a version i
136c0 73 20 72 65 67 69 73 74 65 72 65 64 20 66 6f 72 s registered for
136d0 20 55 54 46 2d 31 36 6c 65 2c 20 69 66 20 74 68 UTF-16le, if th
136e0 65 20 66 6f 75 72 74 68 20 69 73 0a 2a 2a 20 74 e fourth is.** t
136f0 72 75 65 2c 20 61 20 55 54 46 2d 31 36 62 65 20 rue, a UTF-16be
13700 76 65 72 73 69 6f 6e 20 69 73 20 61 76 61 69 6c version is avail
13710 61 62 6c 65 2e 20 20 50 72 65 76 69 6f 75 73 20 able. Previous
13720 76 65 72 73 69 6f 6e 73 20 6f 66 0a 2a 2a 20 74 versions of.** t
13730 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 61 72 65 est_function are
13740 20 64 65 6c 65 74 65 64 2e 0a 2a 2a 0a 2a 2a 20 deleted..**.**
13750 54 68 65 20 75 73 65 72 20 66 75 6e 63 74 69 6f The user functio
13760 6e 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 n is implemented
13770 20 62 79 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 by calling the
13780 66 6f 6c 6c 6f 77 69 6e 67 20 54 43 4c 20 73 63 following TCL sc
13790 72 69 70 74 3a 0a 2a 2a 0a 2a 2a 20 20 20 22 74 ript:.**.** "t
137a0 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 3c 65 6e est_function <en
137b0 63 3e 20 3c 61 72 67 3e 22 0a 2a 2a 0a 2a 2a 20 c> <arg>".**.**
137c0 57 68 65 72 65 20 3c 65 6e 63 3e 20 69 73 20 6f Where <enc> is o
137d0 6e 65 20 6f 66 20 55 54 46 2d 38 2c 20 55 54 46 ne of UTF-8, UTF
137e0 2d 31 36 4c 45 20 6f 72 20 55 54 46 31 36 42 45 -16LE or UTF16BE
137f0 2c 20 61 6e 64 20 3c 61 72 67 3e 20 69 73 20 74 , and <arg> is t
13800 68 65 0a 2a 2a 20 73 69 6e 67 6c 65 20 61 72 67 he.** single arg
13810 75 6d 65 6e 74 20 70 61 73 73 65 64 20 74 6f 20 ument passed to
13820 74 68 65 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e the SQL function
13830 2e 20 54 68 65 20 76 61 6c 75 65 20 72 65 74 75 . The value retu
13840 72 6e 65 64 20 62 79 0a 2a 2a 20 74 68 65 20 54 rned by.** the T
13850 43 4c 20 73 63 72 69 70 74 20 69 73 20 75 73 65 CL script is use
13860 64 20 61 73 20 74 68 65 20 72 65 74 75 72 6e 20 d as the return
13870 76 61 6c 75 65 20 6f 66 20 74 68 65 20 53 51 4c value of the SQL
13880 20 66 75 6e 63 74 69 6f 6e 2e 20 49 74 0a 2a 2a function. It.**
13890 20 69 73 20 70 61 73 73 65 64 20 74 6f 20 53 51 is passed to SQ
138a0 4c 69 74 65 20 75 73 69 6e 67 20 55 54 46 2d 31 Lite using UTF-1
138b0 36 42 45 20 66 6f 72 20 61 20 55 54 46 2d 38 20 6BE for a UTF-8
138c0 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 28 29 2c test_function(),
138d0 20 55 54 46 2d 38 0a 2a 2a 20 66 6f 72 20 61 20 UTF-8.** for a
138e0 55 54 46 2d 31 36 4c 45 20 74 65 73 74 5f 66 75 UTF-16LE test_fu
138f0 6e 63 74 69 6f 6e 28 29 2c 20 61 6e 64 20 55 54 nction(), and UT
13900 46 2d 31 36 4c 45 20 66 6f 72 20 61 6e 20 69 6d F-16LE for an im
13910 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 61 plementation tha
13920 74 0a 2a 2a 20 70 72 65 66 65 72 73 20 55 54 46 t.** prefers UTF
13930 2d 31 36 42 45 2e 0a 2a 2f 0a 23 69 66 6e 64 65 -16BE..*/.#ifnde
13940 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 f SQLITE_OMIT_UT
13950 46 31 36 0a 73 74 61 74 69 63 20 76 6f 69 64 20 F16.static void
13960 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 5f 75 74 test_function_ut
13970 66 38 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f f8(. sqlite3_co
13980 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 ntext *pCtx, .
13990 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 int nArg,. sqli
139a0 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
139b0 0a 29 7b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 .){. Tcl_Interp
139c0 20 2a 69 6e 74 65 72 70 3b 0a 20 20 54 63 6c 5f *interp;. Tcl_
139d0 4f 62 6a 20 2a 70 58 3b 0a 20 20 73 71 6c 69 74 Obj *pX;. sqlit
139e0 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c 3b 0a e3_value *pVal;.
139f0 20 20 69 6e 74 65 72 70 20 3d 20 28 54 63 6c 5f interp = (Tcl_
13a00 49 6e 74 65 72 70 20 2a 29 73 71 6c 69 74 65 33 Interp *)sqlite3
13a10 5f 75 73 65 72 5f 64 61 74 61 28 70 43 74 78 29 _user_data(pCtx)
13a20 3b 0a 20 20 70 58 20 3d 20 54 63 6c 5f 4e 65 77 ;. pX = Tcl_New
13a30 53 74 72 69 6e 67 4f 62 6a 28 22 74 65 73 74 5f StringObj("test_
13a40 66 75 6e 63 74 69 6f 6e 22 2c 20 2d 31 29 3b 0a function", -1);.
13a50 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
13a60 6e 74 28 70 58 29 3b 0a 20 20 54 63 6c 5f 4c 69 nt(pX);. Tcl_Li
13a70 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
13a80 6e 74 28 69 6e 74 65 72 70 2c 20 70 58 2c 20 54 nt(interp, pX, T
13a90 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
13aa0 22 55 54 46 2d 38 22 2c 20 2d 31 29 29 3b 0a 20 "UTF-8", -1));.
13ab0 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
13ac0 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
13ad0 2c 20 70 58 2c 20 0a 20 20 20 20 20 20 54 63 6c , pX, . Tcl
13ae0 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 _NewStringObj((c
13af0 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
13b00 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 ue_text(argv[0])
13b10 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 45 76 , -1));. Tcl_Ev
13b20 61 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 alObjEx(interp,
13b30 70 58 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 44 65 pX, 0);. Tcl_De
13b40 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a crRefCount(pX);.
13b50 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
13b60 5f 74 65 78 74 28 70 43 74 78 2c 20 54 63 6c 5f _text(pCtx, Tcl_
13b70 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 GetStringResult(
13b80 69 6e 74 65 72 70 29 2c 20 2d 31 2c 20 53 51 4c interp), -1, SQL
13b90 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a ITE_TRANSIENT);.
13ba0 20 20 70 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 pVal = sqlite3
13bb0 56 61 6c 75 65 4e 65 77 28 30 29 3b 0a 20 20 73 ValueNew(0);. s
13bc0 71 6c 69 74 65 33 56 61 6c 75 65 53 65 74 53 74 qlite3ValueSetSt
13bd0 72 28 70 56 61 6c 2c 20 2d 31 2c 20 54 63 6c 5f r(pVal, -1, Tcl_
13be0 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 GetStringResult(
13bf0 69 6e 74 65 72 70 29 2c 20 0a 20 20 20 20 20 20 interp), .
13c00 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 53 51 4c SQLITE_UTF8, SQL
13c10 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 73 ITE_STATIC);. s
13c20 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 qlite3_result_te
13c30 78 74 31 36 62 65 28 70 43 74 78 2c 20 73 71 6c xt16be(pCtx, sql
13c40 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 ite3_value_text1
13c50 36 62 65 28 70 56 61 6c 29 2c 0a 20 20 20 20 20 6be(pVal),.
13c60 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e -1, SQLITE_TRAN
13c70 53 49 45 4e 54 29 3b 0a 20 20 73 71 6c 69 74 65 SIENT);. sqlite
13c80 33 56 61 6c 75 65 46 72 65 65 28 70 56 61 6c 29 3ValueFree(pVal)
13c90 3b 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 ;.}.static void
13ca0 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 5f 75 74 test_function_ut
13cb0 66 31 36 6c 65 28 0a 20 20 73 71 6c 69 74 65 33 f16le(. sqlite3
13cc0 5f 63 6f 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 _context *pCtx,
13cd0 0a 20 20 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 . int nArg,. s
13ce0 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
13cf0 72 67 76 0a 29 7b 0a 20 20 54 63 6c 5f 49 6e 74 rgv.){. Tcl_Int
13d00 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 54 erp *interp;. T
13d10 63 6c 5f 4f 62 6a 20 2a 70 58 3b 0a 20 20 73 71 cl_Obj *pX;. sq
13d20 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 lite3_value *pVa
13d30 6c 3b 0a 20 20 69 6e 74 65 72 70 20 3d 20 28 54 l;. interp = (T
13d40 63 6c 5f 49 6e 74 65 72 70 20 2a 29 73 71 6c 69 cl_Interp *)sqli
13d50 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 70 43 te3_user_data(pC
13d60 74 78 29 3b 0a 20 20 70 58 20 3d 20 54 63 6c 5f tx);. pX = Tcl_
13d70 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 74 65 NewStringObj("te
13d80 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 2d 31 st_function", -1
13d90 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 );. Tcl_IncrRef
13da0 43 6f 75 6e 74 28 70 58 29 3b 0a 20 20 54 63 6c Count(pX);. Tcl
13db0 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
13dc0 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 58 ement(interp, pX
13dd0 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
13de0 62 6a 28 22 55 54 46 2d 31 36 4c 45 22 2c 20 2d bj("UTF-16LE", -
13df0 31 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 1));. Tcl_ListO
13e00 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
13e10 69 6e 74 65 72 70 2c 20 70 58 2c 20 0a 20 20 20 interp, pX, .
13e20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
13e30 4f 62 6a 28 28 63 68 61 72 2a 29 73 71 6c 69 74 Obj((char*)sqlit
13e40 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
13e50 67 76 5b 30 5d 29 2c 20 2d 31 29 29 3b 0a 20 20 gv[0]), -1));.
13e60 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 69 6e Tcl_EvalObjEx(in
13e70 74 65 72 70 2c 20 70 58 2c 20 30 29 3b 0a 20 20 terp, pX, 0);.
13e80 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
13e90 28 70 58 29 3b 0a 20 20 70 56 61 6c 20 3d 20 73 (pX);. pVal = s
13ea0 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28 30 qlite3ValueNew(0
13eb0 29 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 75 );. sqlite3Valu
13ec0 65 53 65 74 53 74 72 28 70 56 61 6c 2c 20 2d 31 eSetStr(pVal, -1
13ed0 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 , Tcl_GetStringR
13ee0 65 73 75 6c 74 28 69 6e 74 65 72 70 29 2c 20 0a esult(interp), .
13ef0 20 20 20 20 20 20 53 51 4c 49 54 45 5f 55 54 46 SQLITE_UTF
13f00 38 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 8, SQLITE_STATIC
13f10 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 );. sqlite3_res
13f20 75 6c 74 5f 74 65 78 74 28 70 43 74 78 2c 28 63 ult_text(pCtx,(c
13f30 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
13f40 75 65 5f 74 65 78 74 28 70 56 61 6c 29 2c 2d 31 ue_text(pVal),-1
13f50 2c 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e ,SQLITE_TRANSIEN
13f60 54 29 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 6c T);. sqlite3Val
13f70 75 65 46 72 65 65 28 70 56 61 6c 29 3b 0a 7d 0a ueFree(pVal);.}.
13f80 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 static void test
13f90 5f 66 75 6e 63 74 69 6f 6e 5f 75 74 66 31 36 62 _function_utf16b
13fa0 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e e(. sqlite3_con
13fb0 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 text *pCtx, . i
13fc0 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 nt nArg,. sqlit
13fd0 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a e3_value **argv.
13fe0 29 7b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 ){. Tcl_Interp
13ff0 2a 69 6e 74 65 72 70 3b 0a 20 20 54 63 6c 5f 4f *interp;. Tcl_O
14000 62 6a 20 2a 70 58 3b 0a 20 20 73 71 6c 69 74 65 bj *pX;. sqlite
14010 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 3_value *pVal;.
14020 20 69 6e 74 65 72 70 20 3d 20 28 54 63 6c 5f 49 interp = (Tcl_I
14030 6e 74 65 72 70 20 2a 29 73 71 6c 69 74 65 33 5f nterp *)sqlite3_
14040 75 73 65 72 5f 64 61 74 61 28 70 43 74 78 29 3b user_data(pCtx);
14050 0a 20 20 70 58 20 3d 20 54 63 6c 5f 4e 65 77 53 . pX = Tcl_NewS
14060 74 72 69 6e 67 4f 62 6a 28 22 74 65 73 74 5f 66 tringObj("test_f
14070 75 6e 63 74 69 6f 6e 22 2c 20 2d 31 29 3b 0a 20 unction", -1);.
14080 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
14090 74 28 70 58 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 t(pX);. Tcl_Lis
140a0 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
140b0 74 28 69 6e 74 65 72 70 2c 20 70 58 2c 20 54 63 t(interp, pX, Tc
140c0 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
140d0 55 54 46 2d 31 36 42 45 22 2c 20 2d 31 29 29 3b UTF-16BE", -1));
140e0 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 . Tcl_ListObjAp
140f0 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
14100 72 70 2c 20 70 58 2c 20 0a 20 20 20 20 20 20 54 rp, pX, . T
14110 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
14120 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 (char*)sqlite3_v
14130 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
14140 5d 29 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f ]), -1));. Tcl_
14150 45 76 61 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70 EvalObjEx(interp
14160 2c 20 70 58 2c 20 30 29 3b 0a 20 20 54 63 6c 5f , pX, 0);. Tcl_
14170 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 DecrRefCount(pX)
14180 3b 0a 20 20 70 56 61 6c 20 3d 20 73 71 6c 69 74 ;. pVal = sqlit
14190 65 33 56 61 6c 75 65 4e 65 77 28 30 29 3b 0a 20 e3ValueNew(0);.
141a0 20 73 71 6c 69 74 65 33 56 61 6c 75 65 53 65 74 sqlite3ValueSet
141b0 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c 20 54 63 Str(pVal, -1, Tc
141c0 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c l_GetStringResul
141d0 74 28 69 6e 74 65 72 70 29 2c 20 0a 20 20 20 20 t(interp), .
141e0 20 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 53 SQLITE_UTF8, S
141f0 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 QLITE_STATIC);.
14200 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
14210 74 65 78 74 31 36 28 70 43 74 78 2c 20 73 71 6c text16(pCtx, sql
14220 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 ite3_value_text1
14230 36 6c 65 28 70 56 61 6c 29 2c 0a 20 20 20 20 20 6le(pVal),.
14240 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e -1, SQLITE_TRAN
14250 53 49 45 4e 54 29 3b 0a 20 20 73 71 6c 69 74 65 SIENT);. sqlite
14260 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 62 3_result_text16b
14270 65 28 70 43 74 78 2c 20 73 71 6c 69 74 65 33 5f e(pCtx, sqlite3_
14280 76 61 6c 75 65 5f 74 65 78 74 31 36 6c 65 28 70 value_text16le(p
14290 56 61 6c 29 2c 0a 20 20 20 20 20 20 2d 31 2c 20 Val),. -1,
142a0 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 SQLITE_TRANSIENT
142b0 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 );. sqlite3_res
142c0 75 6c 74 5f 74 65 78 74 31 36 6c 65 28 70 43 74 ult_text16le(pCt
142d0 78 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 x, sqlite3_value
142e0 5f 74 65 78 74 31 36 6c 65 28 70 56 61 6c 29 2c _text16le(pVal),
142f0 0a 20 20 20 20 20 20 2d 31 2c 20 53 51 4c 49 54 . -1, SQLIT
14300 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 E_TRANSIENT);.
14310 73 71 6c 69 74 65 33 56 61 6c 75 65 46 72 65 65 sqlite3ValueFree
14320 28 70 56 61 6c 29 3b 0a 7d 0a 23 65 6e 64 69 66 (pVal);.}.#endif
14330 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f /* SQLITE_OMIT_
14340 55 54 46 31 36 20 2a 2f 0a 73 74 61 74 69 63 20 UTF16 */.static
14350 69 6e 74 20 74 65 73 74 5f 66 75 6e 63 74 69 6f int test_functio
14360 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 n(. void * clie
14370 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
14380 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
14390 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
143a0 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
143b0 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c ].){.#ifndef SQL
143c0 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 ITE_OMIT_UTF16.
143d0 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
143e0 69 6e 74 20 76 61 6c 3b 0a 0a 20 20 69 66 28 20 int val;.. if(
143f0 6f 62 6a 63 21 3d 35 20 29 20 67 6f 74 6f 20 62 objc!=5 ) goto b
14400 61 64 5f 61 72 67 73 3b 0a 20 20 69 66 28 20 67 ad_args;. if( g
14410 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
14420 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
14430 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
14440 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
14450 52 4f 52 3b 0a 0a 20 20 69 66 28 20 54 43 4c 5f ROR;.. if( TCL_
14460 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 OK!=Tcl_GetBoole
14470 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 anFromObj(interp
14480 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 76 61 6c 29 , objv[2], &val)
14490 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
144a0 52 4f 52 3b 0a 20 20 69 66 28 20 76 61 6c 20 29 ROR;. if( val )
144b0 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 72 {. sqlite3_cr
144c0 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 eate_function(db
144d0 2c 20 22 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e , "test_function
144e0 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 ", 1, SQLITE_UTF
144f0 38 2c 20 0a 20 20 20 20 20 20 20 20 69 6e 74 65 8, . inte
14500 72 70 2c 20 74 65 73 74 5f 66 75 6e 63 74 69 6f rp, test_functio
14510 6e 5f 75 74 66 38 2c 20 30 2c 20 30 29 3b 0a 20 n_utf8, 0, 0);.
14520 20 7d 0a 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 }. if( TCL_OK!
14530 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 =Tcl_GetBooleanF
14540 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
14550 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 29 20 29 20 bjv[3], &val) )
14560 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
14570 3b 0a 20 20 69 66 28 20 76 61 6c 20 29 7b 0a 20 ;. if( val ){.
14580 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 sqlite3_creat
14590 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 e_function(db, "
145a0 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 test_function",
145b0 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 1, SQLITE_UTF16L
145c0 45 2c 20 0a 20 20 20 20 20 20 20 20 69 6e 74 65 E, . inte
145d0 72 70 2c 20 74 65 73 74 5f 66 75 6e 63 74 69 6f rp, test_functio
145e0 6e 5f 75 74 66 31 36 6c 65 2c 20 30 2c 20 30 29 n_utf16le, 0, 0)
145f0 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 43 4c 5f ;. }. if( TCL_
14600 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 OK!=Tcl_GetBoole
14610 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 anFromObj(interp
14620 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 76 61 6c 29 , objv[4], &val)
14630 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
14640 52 4f 52 3b 0a 20 20 69 66 28 20 76 61 6c 20 29 ROR;. if( val )
14650 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 72 {. sqlite3_cr
14660 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 eate_function(db
14670 2c 20 22 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e , "test_function
14680 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 ", 1, SQLITE_UTF
14690 31 36 42 45 2c 20 0a 20 20 20 20 20 20 20 20 69 16BE, . i
146a0 6e 74 65 72 70 2c 20 74 65 73 74 5f 66 75 6e 63 nterp, test_func
146b0 74 69 6f 6e 5f 75 74 66 31 36 62 65 2c 20 30 2c tion_utf16be, 0,
146c0 20 30 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 0);. }.. retu
146d0 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 62 61 64 5f 61 rn TCL_OK;.bad_a
146e0 72 67 73 3a 0a 20 20 54 63 6c 5f 41 70 70 65 6e rgs:. Tcl_Appen
146f0 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
14700 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
14710 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 hould be \"",.
14720 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
14730 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d gFromObj(objv[0]
14740 2c 20 30 29 2c 20 22 20 3c 44 42 3e 20 3c 75 74 , 0), " <DB> <ut
14750 66 38 3e 20 3c 75 74 66 31 36 6c 65 3e 20 3c 75 f8> <utf16le> <u
14760 74 66 31 36 62 65 3e 22 2c 20 30 29 3b 0a 23 65 tf16be>", 0);.#e
14770 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f ndif /* SQLITE_O
14780 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a 20 20 72 MIT_UTF16 */. r
14790 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
147a0 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
147b0 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 sqlite3
147c0 5f 74 65 73 74 5f 65 72 72 73 74 72 20 3c 65 72 _test_errstr <er
147d0 72 20 63 6f 64 65 3e 0a 2a 2a 0a 2a 2a 20 54 65 r code>.**.** Te
147e0 73 74 20 74 68 61 74 20 74 68 65 20 65 6e 67 6c st that the engl
147f0 69 73 68 20 6c 61 6e 67 75 61 67 65 20 73 74 72 ish language str
14800 69 6e 67 20 65 71 75 69 76 61 6c 65 6e 74 73 20 ing equivalents
14810 66 6f 72 20 73 71 6c 69 74 65 20 65 72 72 6f 72 for sqlite error
14820 20 63 6f 64 65 73 0a 2a 2a 20 61 72 65 20 73 61 codes.** are sa
14830 6e 65 2e 20 54 68 65 20 70 61 72 61 6d 65 74 65 ne. The paramete
14840 72 20 69 73 20 61 6e 20 69 6e 74 65 67 65 72 20 r is an integer
14850 72 65 70 72 65 73 65 6e 74 69 6e 67 20 61 6e 20 representing an
14860 73 71 6c 69 74 65 20 65 72 72 6f 72 20 63 6f 64 sqlite error cod
14870 65 2e 0a 2a 2a 20 54 68 65 20 72 65 73 75 6c 74 e..** The result
14880 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 74 77 is a list of tw
14890 6f 20 65 6c 65 6d 65 6e 74 73 2c 20 74 68 65 20 o elements, the
148a0 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 string represent
148b0 61 74 69 6f 6e 20 6f 66 20 74 68 65 0a 2a 2a 20 ation of the.**
148c0 65 72 72 6f 72 20 63 6f 64 65 20 61 6e 64 20 74 error code and t
148d0 68 65 20 65 6e 67 6c 69 73 68 20 6c 61 6e 67 75 he english langu
148e0 61 67 65 20 65 78 70 6c 61 6e 61 74 69 6f 6e 2e age explanation.
148f0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
14900 65 73 74 5f 65 72 72 73 74 72 28 0a 20 20 76 6f est_errstr(. vo
14910 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
14920 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
14930 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
14940 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
14950 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
14960 63 68 61 72 20 2a 7a 43 6f 64 65 3b 0a 20 20 69 char *zCode;. i
14970 6e 74 20 69 3b 0a 20 20 69 66 28 20 6f 62 6a 63 nt i;. if( objc
14980 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 !=1 ){. Tcl_W
14990 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
149a0 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3c 65 rp, 1, objv, "<e
149b0 72 72 6f 72 20 63 6f 64 65 3e 22 29 3b 0a 20 20 rror code>");.
149c0 7d 0a 0a 20 20 7a 43 6f 64 65 20 3d 20 54 63 6c }.. zCode = Tcl
149d0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
149e0 31 5d 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 1]);. for(i=0;
149f0 69 3c 32 30 30 3b 20 69 2b 2b 29 7b 0a 20 20 20 i<200; i++){.
14a00 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 74 if( 0==strcmp(t
14a10 31 45 72 72 6f 72 4e 61 6d 65 28 69 29 2c 20 7a 1ErrorName(i), z
14a20 43 6f 64 65 29 20 29 20 62 72 65 61 6b 3b 0a 20 Code) ) break;.
14a30 20 7d 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 }. Tcl_SetResu
14a40 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
14a50 20 2a 29 73 71 6c 69 74 65 33 45 72 72 53 74 72 *)sqlite3ErrStr
14a60 28 69 29 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 (i), 0);. retur
14a70 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
14a80 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 62 72 65 ** Usage: bre
14a90 61 6b 70 6f 69 6e 74 0a 2a 2a 0a 2a 2a 20 54 68 akpoint.**.** Th
14aa0 69 73 20 72 6f 75 74 69 6e 65 20 65 78 69 73 74 is routine exist
14ab0 73 20 66 6f 72 20 6f 6e 65 20 70 75 72 70 6f 73 s for one purpos
14ac0 65 20 2d 20 74 6f 20 70 72 6f 76 69 64 65 20 61 e - to provide a
14ad0 20 70 6c 61 63 65 20 74 6f 20 70 75 74 20 61 0a place to put a.
14ae0 2a 2a 20 62 72 65 61 6b 70 6f 69 6e 74 20 77 69 ** breakpoint wi
14af0 74 68 20 47 44 42 20 74 68 61 74 20 63 61 6e 20 th GDB that can
14b00 62 65 20 74 72 69 67 67 65 72 65 64 20 75 73 69 be triggered usi
14b10 6e 67 20 54 43 4c 20 63 6f 64 65 2e 20 20 54 68 ng TCL code. Th
14b20 65 20 75 73 65 0a 2a 2a 20 66 6f 72 20 74 68 69 e use.** for thi
14b30 73 20 69 73 20 77 68 65 6e 20 61 20 70 61 72 74 s is when a part
14b40 69 63 75 6c 61 72 20 74 65 73 74 20 66 61 69 6c icular test fail
14b50 73 20 6f 6e 20 28 73 61 79 29 20 74 68 65 20 31 s on (say) the 1
14b60 34 38 35 74 68 20 69 74 65 72 61 74 69 6f 6e 2e 485th iteration.
14b70 0a 2a 2a 20 49 6e 20 74 68 65 20 54 43 4c 20 74 .** In the TCL t
14b80 65 73 74 20 73 63 72 69 70 74 2c 20 77 65 20 63 est script, we c
14b90 61 6e 20 61 64 64 20 63 6f 64 65 20 6c 69 6b 65 an add code like
14ba0 20 74 68 69 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 this:.**.**
14bb0 20 69 66 20 7b 24 69 3d 3d 31 34 38 35 7d 20 62 if {$i==1485} b
14bc0 72 65 61 6b 70 6f 69 6e 74 0a 2a 2a 0a 2a 2a 20 reakpoint.**.**
14bd0 54 68 65 6e 20 72 75 6e 20 74 65 73 74 66 69 78 Then run testfix
14be0 74 75 72 65 20 69 6e 20 74 68 65 20 64 65 62 75 ture in the debu
14bf0 67 67 65 72 20 61 6e 64 20 77 61 69 74 20 66 6f gger and wait fo
14c00 72 20 74 68 65 20 62 72 65 61 6b 70 6f 69 6e 74 r the breakpoint
14c10 20 74 6f 0a 2a 2a 20 66 69 72 65 2e 20 20 54 68 to.** fire. Th
14c20 65 6e 20 61 64 64 69 74 69 6f 6e 61 6c 20 62 72 en additional br
14c30 65 61 6b 70 6f 69 6e 74 73 20 63 61 6e 20 62 65 eakpoints can be
14c40 20 73 65 74 20 74 6f 20 74 72 61 63 65 20 64 6f set to trace do
14c50 77 6e 20 74 68 65 20 62 75 67 2e 0a 2a 2f 0a 73 wn the bug..*/.s
14c60 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 tatic int test_b
14c70 72 65 61 6b 70 6f 69 6e 74 28 0a 20 20 76 6f 69 reakpoint(. voi
14c80 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
14c90 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
14ca0 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
14cb0 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
14cc0 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
14cd0 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
14ce0 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
14cf0 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
14d00 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
14d10 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
14d20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
14d30 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
14d40 0a 29 7b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c .){. return TCL
14d50 5f 4f 4b 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 _OK; /*
14d60 44 6f 20 6e 6f 74 68 69 6e 67 20 2a 2f 0a 7d 0a Do nothing */.}.
14d70 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 ./*.** Usage:
14d80 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 7a 65 72 sqlite3_bind_zer
14d90 6f 62 6c 6f 62 20 20 53 54 4d 54 20 49 44 58 20 oblob STMT IDX
14da0 4e 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 N.**.** Test the
14db0 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 7a 65 sqlite3_bind_ze
14dc0 72 6f 62 6c 6f 62 20 69 6e 74 65 72 66 61 63 65 roblob interface
14dd0 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 72 65 . STMT is a pre
14de0 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e pared statement.
14df0 0a 2a 2a 20 49 44 58 20 69 73 20 74 68 65 20 69 .** IDX is the i
14e00 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 ndex of a wildca
14e10 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 rd in the prepar
14e20 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 ed statement. T
14e30 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 his command.** b
14e40 69 6e 64 73 20 61 20 4e 2d 62 79 74 65 20 7a 65 inds a N-byte ze
14e50 72 6f 2d 66 69 6c 6c 65 64 20 42 4c 4f 42 20 74 ro-filled BLOB t
14e60 6f 20 74 68 65 20 77 69 6c 64 63 61 72 64 2e 0a o the wildcard..
14e70 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
14e80 73 74 5f 62 69 6e 64 5f 7a 65 72 6f 62 6c 6f 62 st_bind_zeroblob
14e90 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
14ea0 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
14eb0 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
14ec0 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
14ed0 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
14ee0 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 .){. sqlite3_st
14ef0 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 mt *pStmt;. int
14f00 20 69 64 78 3b 0a 20 20 69 6e 74 20 6e 3b 0a 20 idx;. int n;.
14f10 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
14f20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 objc!=4 ){. T
14f30 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
14f40 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
14f50 20 22 53 54 4d 54 20 49 44 58 20 4e 22 29 3b 0a "STMT IDX N");.
14f60 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
14f70 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 RROR;. }.. if(
14f80 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
14f90 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
14fa0 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
14fb0 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e &pStmt) ) return
14fc0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
14fd0 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
14fe0 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
14ff0 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 [2], &idx) ) ret
15000 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
15010 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
15020 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
15030 62 6a 76 5b 33 5d 2c 20 26 6e 29 20 29 20 72 65 bjv[3], &n) ) re
15040 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
15050 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
15060 62 69 6e 64 5f 7a 65 72 6f 62 6c 6f 62 28 70 53 bind_zeroblob(pS
15070 74 6d 74 2c 20 69 64 78 2c 20 6e 29 3b 0a 20 20 tmt, idx, n);.
15080 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 if( sqlite3TestE
15090 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 rrCode(interp, S
150a0 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 tmtToDb(pStmt),
150b0 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c rc) ) return TCL
150c0 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 _ERROR;. if( rc
150d0 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 !=SQLITE_OK ){.
150e0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
150f0 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 ROR;. }.. retu
15100 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
15110 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c .** Usage: sql
15120 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 20 20 53 ite3_bind_int S
15130 54 4d 54 20 4e 20 56 41 4c 55 45 0a 2a 2a 0a 2a TMT N VALUE.**.*
15140 2a 20 54 65 73 74 20 74 68 65 20 73 71 6c 69 74 * Test the sqlit
15150 65 33 5f 62 69 6e 64 5f 69 6e 74 20 69 6e 74 65 e3_bind_int inte
15160 72 66 61 63 65 2e 20 20 53 54 4d 54 20 69 73 20 rface. STMT is
15170 61 20 70 72 65 70 61 72 65 64 20 73 74 61 74 65 a prepared state
15180 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 ment..** N is th
15190 65 20 69 6e 64 65 78 20 6f 66 20 61 20 77 69 6c e index of a wil
151a0 64 63 61 72 64 20 69 6e 20 74 68 65 20 70 72 65 dcard in the pre
151b0 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e pared statement.
151c0 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a This command.*
151d0 2a 20 62 69 6e 64 73 20 61 20 33 32 2d 62 69 74 * binds a 32-bit
151e0 20 69 6e 74 65 67 65 72 20 56 41 4c 55 45 20 74 integer VALUE t
151f0 6f 20 74 68 61 74 20 77 69 6c 64 63 61 72 64 2e o that wildcard.
15200 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
15210 65 73 74 5f 62 69 6e 64 5f 69 6e 74 28 0a 20 20 est_bind_int(.
15220 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
15230 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
15240 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
15250 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
15260 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
15270 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
15280 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 pStmt;. int idx
15290 3b 0a 20 20 69 6e 74 20 76 61 6c 75 65 3b 0a 20 ;. int value;.
152a0 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
152b0 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 objc!=4 ){. T
152c0 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
152d0 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
152e0 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
152f0 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 \"",. Tc
15300 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
15310 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 bj(objv[0], 0),
15320 22 20 53 54 4d 54 20 4e 20 56 41 4c 55 45 22 2c " STMT N VALUE",
15330 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
15340 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
15350 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
15360 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
15370 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
15380 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
15390 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
153a0 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
153b0 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
153c0 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 objv[2], &idx)
153d0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
153e0 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
153f0 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
15400 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 rp, objv[3], &va
15410 6c 75 65 29 20 29 20 72 65 74 75 72 6e 20 54 43 lue) ) return TC
15420 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d L_ERROR;.. rc =
15430 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e sqlite3_bind_in
15440 74 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 t(pStmt, idx, va
15450 6c 75 65 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 lue);. if( sqli
15460 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 te3TestErrCode(i
15470 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 nterp, StmtToDb(
15480 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 72 65 pStmt), rc) ) re
15490 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
154a0 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 if( rc!=SQLITE
154b0 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 72 _OK ){. retur
154c0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
154d0 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f .. return TCL_O
154e0 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 K;.}.../*.** Usa
154f0 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 ge: sqlite3_bi
15500 6e 64 5f 69 6e 74 36 34 20 20 53 54 4d 54 20 4e nd_int64 STMT N
15510 20 56 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 65 73 VALUE.**.** Tes
15520 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62 69 t the sqlite3_bi
15530 6e 64 5f 69 6e 74 36 34 20 69 6e 74 65 72 66 61 nd_int64 interfa
15540 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 ce. STMT is a p
15550 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
15560 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 t..** N is the i
15570 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 ndex of a wildca
15580 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 rd in the prepar
15590 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 ed statement. T
155a0 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 his command.** b
155b0 69 6e 64 73 20 61 20 36 34 2d 62 69 74 20 69 6e inds a 64-bit in
155c0 74 65 67 65 72 20 56 41 4c 55 45 20 74 6f 20 74 teger VALUE to t
155d0 68 61 74 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f hat wildcard..*/
155e0 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
155f0 5f 62 69 6e 64 5f 69 6e 74 36 34 28 0a 20 20 76 _bind_int64(. v
15600 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
15610 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
15620 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
15630 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
15640 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
15650 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
15660 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b Stmt;. int idx;
15670 0a 20 20 54 63 6c 5f 57 69 64 65 49 6e 74 20 76 . Tcl_WideInt v
15680 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a alue;. int rc;.
15690 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 . if( objc!=4 )
156a0 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
156b0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
156c0 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
156d0 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 ould be \"",.
156e0 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
156f0 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 ngFromObj(objv[0
15700 5d 2c 20 30 29 2c 20 22 20 53 54 4d 54 20 4e 20 ], 0), " STMT N
15710 56 41 4c 55 45 22 2c 20 30 29 3b 0a 20 20 20 20 VALUE", 0);.
15720 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
15730 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 ;. }.. if( get
15740 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
15750 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
15760 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
15770 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
15780 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 _ERROR;. if( Tc
15790 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
157a0 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
157b0 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e 20 &idx) ) return
157c0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
157d0 20 54 63 6c 5f 47 65 74 57 69 64 65 49 6e 74 46 Tcl_GetWideIntF
157e0 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
157f0 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 75 65 29 20 bjv[3], &value)
15800 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
15810 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 OR;.. rc = sqli
15820 74 65 33 5f 62 69 6e 64 5f 69 6e 74 36 34 28 70 te3_bind_int64(p
15830 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 65 Stmt, idx, value
15840 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
15850 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
15860 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 rp, StmtToDb(pSt
15870 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 75 72 mt), rc) ) retur
15880 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
15890 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b f( rc!=SQLITE_OK
158a0 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
158b0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
158c0 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
158d0 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a }.../*.** Usage:
158e0 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f sqlite3_bind_
158f0 64 6f 75 62 6c 65 20 20 53 54 4d 54 20 4e 20 56 double STMT N V
15900 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 ALUE.**.** Test
15910 74 68 65 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 the sqlite3_bind
15920 5f 64 6f 75 62 6c 65 20 69 6e 74 65 72 66 61 63 _double interfac
15930 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 72 e. STMT is a pr
15940 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 epared statement
15950 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 6e ..** N is the in
15960 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 72 dex of a wildcar
15970 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 65 d in the prepare
15980 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 68 d statement. Th
15990 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 69 is command.** bi
159a0 6e 64 73 20 61 20 36 34 2d 62 69 74 20 69 6e 74 nds a 64-bit int
159b0 65 67 65 72 20 56 41 4c 55 45 20 74 6f 20 74 68 eger VALUE to th
159c0 61 74 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a at wildcard..*/.
159d0 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
159e0 62 69 6e 64 5f 64 6f 75 62 6c 65 28 0a 20 20 76 bind_double(. v
159f0 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
15a00 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
15a10 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
15a20 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
15a30 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
15a40 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
15a50 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b Stmt;. int idx;
15a60 0a 20 20 64 6f 75 62 6c 65 20 76 61 6c 75 65 3b . double value;
15a70 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 6f 6e . int rc;. con
15a80 73 74 20 63 68 61 72 20 2a 7a 56 61 6c 3b 0a 20 st char *zVal;.
15a90 20 69 6e 74 20 69 3b 0a 20 20 73 74 61 74 69 63 int i;. static
15aa0 20 63 6f 6e 73 74 20 73 74 72 75 63 74 20 7b 0a const struct {.
15ab0 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
15ac0 7a 4e 61 6d 65 3b 20 20 20 20 20 2f 2a 20 4e 61 zName; /* Na
15ad0 6d 65 20 6f 66 20 74 68 65 20 73 70 65 63 69 61 me of the specia
15ae0 6c 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 l floating point
15af0 20 76 61 6c 75 65 20 2a 2f 0a 20 20 20 20 75 6e value */. un
15b00 73 69 67 6e 65 64 20 69 6e 74 20 69 55 70 70 65 signed int iUppe
15b10 72 3b 20 20 20 2f 2a 20 55 70 70 65 72 20 33 32 r; /* Upper 32
15b20 20 62 69 74 73 20 2a 2f 0a 20 20 20 20 75 6e 73 bits */. uns
15b30 69 67 6e 65 64 20 69 6e 74 20 69 4c 6f 77 65 72 igned int iLower
15b40 3b 20 20 20 2f 2a 20 4c 6f 77 65 72 20 33 32 20 ; /* Lower 32
15b50 62 69 74 73 20 2a 2f 0a 20 20 7d 20 61 53 70 65 bits */. } aSpe
15b60 63 69 61 6c 46 70 5b 5d 20 3d 20 7b 0a 20 20 20 cialFp[] = {.
15b70 20 7b 20 20 22 4e 61 4e 22 2c 20 20 20 20 20 20 { "NaN",
15b80 30 78 37 66 66 66 66 66 66 66 2c 20 30 78 66 66 0x7fffffff, 0xff
15b90 66 66 66 66 66 66 20 7d 2c 0a 20 20 20 20 7b 20 ffffff },. {
15ba0 20 22 53 4e 61 4e 22 2c 20 20 20 20 20 30 78 37 "SNaN", 0x7
15bb0 66 66 37 66 66 66 66 2c 20 30 78 66 66 66 66 66 ff7ffff, 0xfffff
15bc0 66 66 66 20 7d 2c 0a 20 20 20 20 7b 20 20 22 2d fff },. { "-
15bd0 4e 61 4e 22 2c 20 20 20 20 20 30 78 66 66 66 66 NaN", 0xffff
15be0 66 66 66 66 2c 20 30 78 66 66 66 66 66 66 66 66 ffff, 0xffffffff
15bf0 20 7d 2c 0a 20 20 20 20 7b 20 20 22 2d 53 4e 61 },. { "-SNa
15c00 4e 22 2c 20 20 20 20 30 78 66 66 66 37 66 66 66 N", 0xfff7fff
15c10 66 2c 20 30 78 66 66 66 66 66 66 66 66 20 7d 2c f, 0xffffffff },
15c20 0a 20 20 20 20 7b 20 20 22 2b 49 6e 66 22 2c 20 . { "+Inf",
15c30 20 20 20 20 30 78 37 66 66 30 30 30 30 30 2c 20 0x7ff00000,
15c40 30 78 30 30 30 30 30 30 30 30 20 7d 2c 0a 20 20 0x00000000 },.
15c50 20 20 7b 20 20 22 2d 49 6e 66 22 2c 20 20 20 20 { "-Inf",
15c60 20 30 78 66 66 66 30 30 30 30 30 2c 20 30 78 30 0xfff00000, 0x0
15c70 30 30 30 30 30 30 30 20 7d 2c 0a 20 20 20 20 7b 0000000 },. {
15c80 20 20 22 45 70 73 69 6c 6f 6e 22 2c 20 20 30 78 "Epsilon", 0x
15c90 30 30 30 30 30 30 30 30 2c 20 30 78 30 30 30 30 00000000, 0x0000
15ca0 30 30 30 31 20 7d 2c 0a 20 20 20 20 7b 20 20 22 0001 },. { "
15cb0 2d 45 70 73 69 6c 6f 6e 22 2c 20 30 78 38 30 30 -Epsilon", 0x800
15cc0 30 30 30 30 30 2c 20 30 78 30 30 30 30 30 30 30 00000, 0x0000000
15cd0 31 20 7d 2c 0a 20 20 20 20 7b 20 20 22 4e 61 4e 1 },. { "NaN
15ce0 30 22 2c 20 20 20 20 20 30 78 37 66 66 38 30 30 0", 0x7ff800
15cf0 30 30 2c 20 30 78 30 30 30 30 30 30 30 30 20 7d 00, 0x00000000 }
15d00 2c 0a 20 20 20 20 7b 20 20 22 2d 4e 61 4e 30 22 ,. { "-NaN0"
15d10 2c 20 20 20 20 30 78 66 66 66 38 30 30 30 30 2c , 0xfff80000,
15d20 20 30 78 30 30 30 30 30 30 30 30 20 7d 2c 0a 20 0x00000000 },.
15d30 20 7d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 };.. if( objc!
15d40 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =4 ){. Tcl_Ap
15d50 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
15d60 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
15d70 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
15d80 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
15d90 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
15da0 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 53 54 4d jv[0], 0), " STM
15db0 54 20 4e 20 56 41 4c 55 45 22 2c 20 30 29 3b 0a T N VALUE", 0);.
15dc0 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
15dd0 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 RROR;. }.. if(
15de0 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
15df0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
15e00 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
15e10 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e &pStmt) ) return
15e20 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
15e30 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
15e40 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
15e50 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 [2], &idx) ) ret
15e60 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a urn TCL_ERROR;..
15e70 20 20 2f 2a 20 49 6e 74 65 72 63 65 70 74 20 74 /* Intercept t
15e80 68 65 20 73 74 72 69 6e 67 20 22 4e 61 4e 22 20 he string "NaN"
15e90 61 6e 64 20 67 65 6e 65 72 61 74 65 20 61 20 4e and generate a N
15ea0 61 4e 20 76 61 6c 75 65 20 66 6f 72 20 69 74 2e aN value for it.
15eb0 0a 20 20 2a 2a 20 41 6c 6c 20 6f 74 68 65 72 20 . ** All other
15ec0 73 74 72 69 6e 67 73 20 61 72 65 20 70 61 73 73 strings are pass
15ed0 65 64 20 74 68 72 6f 75 67 68 20 74 6f 20 54 63 ed through to Tc
15ee0 6c 5f 47 65 74 44 6f 75 62 6c 65 46 72 6f 6d 4f l_GetDoubleFromO
15ef0 62 6a 28 29 2e 0a 20 20 2a 2a 20 54 63 6c 5f 47 bj().. ** Tcl_G
15f00 65 74 44 6f 75 62 6c 65 46 72 6f 6d 4f 62 6a 28 etDoubleFromObj(
15f10 29 20 73 68 6f 75 6c 64 20 75 6e 64 65 72 73 74 ) should underst
15f20 61 6e 64 20 22 4e 61 4e 22 20 62 75 74 20 73 6f and "NaN" but so
15f30 6d 65 20 76 65 72 73 69 6f 6e 73 0a 20 20 2a 2a me versions. **
15f40 20 63 6f 6e 74 61 69 6e 20 61 20 62 75 67 2e 0a contain a bug..
15f50 20 20 2a 2f 0a 20 20 7a 56 61 6c 20 3d 20 54 63 */. zVal = Tc
15f60 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
15f70 5b 33 5d 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b [3]);. for(i=0;
15f80 20 69 3c 73 69 7a 65 6f 66 28 61 53 70 65 63 69 i<sizeof(aSpeci
15f90 61 6c 46 70 29 2f 73 69 7a 65 6f 66 28 61 53 70 alFp)/sizeof(aSp
15fa0 65 63 69 61 6c 46 70 5b 30 5d 29 3b 20 69 2b 2b ecialFp[0]); i++
15fb0 29 7b 0a 20 20 20 20 69 66 28 20 73 74 72 63 6d ){. if( strcm
15fc0 70 28 61 53 70 65 63 69 61 6c 46 70 5b 69 5d 2e p(aSpecialFp[i].
15fd0 7a 4e 61 6d 65 2c 20 7a 56 61 6c 29 3d 3d 30 20 zName, zVal)==0
15fe0 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ){. sqlite3
15ff0 5f 75 69 6e 74 36 34 20 78 3b 0a 20 20 20 20 20 _uint64 x;.
16000 20 78 20 3d 20 61 53 70 65 63 69 61 6c 46 70 5b x = aSpecialFp[
16010 69 5d 2e 69 55 70 70 65 72 3b 0a 20 20 20 20 20 i].iUpper;.
16020 20 78 20 3c 3c 3d 20 33 32 3b 0a 20 20 20 20 20 x <<= 32;.
16030 20 78 20 7c 3d 20 61 53 70 65 63 69 61 6c 46 70 x |= aSpecialFp
16040 5b 69 5d 2e 69 4c 6f 77 65 72 3b 0a 20 20 20 20 [i].iLower;.
16050 20 20 61 73 73 65 72 74 28 20 73 69 7a 65 6f 66 assert( sizeof
16060 28 76 61 6c 75 65 29 3d 3d 38 20 29 3b 0a 20 20 (value)==8 );.
16070 20 20 20 20 61 73 73 65 72 74 28 20 73 69 7a 65 assert( size
16080 6f 66 28 78 29 3d 3d 38 20 29 3b 0a 20 20 20 20 of(x)==8 );.
16090 20 20 6d 65 6d 63 70 79 28 26 76 61 6c 75 65 2c memcpy(&value,
160a0 20 26 78 2c 20 38 29 3b 0a 20 20 20 20 20 20 62 &x, 8);. b
160b0 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a reak;. }. }.
160c0 20 20 69 66 28 20 69 3e 3d 73 69 7a 65 6f 66 28 if( i>=sizeof(
160d0 61 53 70 65 63 69 61 6c 46 70 29 2f 73 69 7a 65 aSpecialFp)/size
160e0 6f 66 28 61 53 70 65 63 69 61 6c 46 70 5b 30 5d of(aSpecialFp[0]
160f0 29 20 26 26 0a 20 20 20 20 20 20 20 20 20 54 63 ) &&. Tc
16100 6c 5f 47 65 74 44 6f 75 62 6c 65 46 72 6f 6d 4f l_GetDoubleFromO
16110 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
16120 33 5d 2c 20 26 76 61 6c 75 65 29 20 29 7b 0a 20 3], &value) ){.
16130 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
16140 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20 ROR;. }. rc =
16150 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 64 6f 75 sqlite3_bind_dou
16160 62 6c 65 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 ble(pStmt, idx,
16170 76 61 6c 75 65 29 3b 0a 20 20 69 66 28 20 73 71 value);. if( sq
16180 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 lite3TestErrCode
16190 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 (interp, StmtToD
161a0 62 28 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 b(pStmt), rc) )
161b0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
161c0 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 ;. if( rc!=SQLI
161d0 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 TE_OK ){. ret
161e0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
161f0 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }.. return TCL
16200 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
16210 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 age: sqlite3_b
16220 69 6e 64 5f 6e 75 6c 6c 20 20 53 54 4d 54 20 4e ind_null STMT N
16230 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 .**.** Test the
16240 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 6e 75 6c sqlite3_bind_nul
16250 6c 20 69 6e 74 65 72 66 61 63 65 2e 20 20 53 54 l interface. ST
16260 4d 54 20 69 73 20 61 20 70 72 65 70 61 72 65 64 MT is a prepared
16270 20 73 74 61 74 65 6d 65 6e 74 2e 0a 2a 2a 20 4e statement..** N
16280 20 69 73 20 74 68 65 20 69 6e 64 65 78 20 6f 66 is the index of
16290 20 61 20 77 69 6c 64 63 61 72 64 20 69 6e 20 74 a wildcard in t
162a0 68 65 20 70 72 65 70 61 72 65 64 20 73 74 61 74 he prepared stat
162b0 65 6d 65 6e 74 2e 20 20 54 68 69 73 20 63 6f 6d ement. This com
162c0 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 73 20 61 20 mand.** binds a
162d0 4e 55 4c 4c 20 74 6f 20 74 68 65 20 77 69 6c 64 NULL to the wild
162e0 63 61 72 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 card..*/.static
162f0 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 6e 75 int test_bind_nu
16300 6c 6c 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 ll(. void * cli
16310 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
16320 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
16330 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
16340 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
16350 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f [].){. sqlite3_
16360 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 stmt *pStmt;. i
16370 6e 74 20 69 64 78 3b 0a 20 20 69 6e 74 20 72 63 nt idx;. int rc
16380 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 ;.. if( objc!=3
16390 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
163a0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
163b0 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
163c0 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 should be \"",.
163d0 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
163e0 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
163f0 5b 30 5d 2c 20 30 29 2c 20 22 20 53 54 4d 54 20 [0], 0), " STMT
16400 4e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 N", 0);. retu
16410 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
16420 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }.. if( getStmt
16430 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
16440 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
16450 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 jv[1]), &pStmt)
16460 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
16470 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
16480 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
16490 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 rp, objv[2], &id
164a0 78 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f x) ) return TCL_
164b0 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 ERROR;.. rc = s
164c0 71 6c 69 74 65 33 5f 62 69 6e 64 5f 6e 75 6c 6c qlite3_bind_null
164d0 28 70 53 74 6d 74 2c 20 69 64 78 29 3b 0a 20 20 (pStmt, idx);.
164e0 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 if( sqlite3TestE
164f0 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 rrCode(interp, S
16500 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 tmtToDb(pStmt),
16510 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c rc) ) return TCL
16520 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 _ERROR;. if( rc
16530 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 !=SQLITE_OK ){.
16540 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
16550 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 ROR;. }.. retu
16560 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
16570 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c .** Usage: sql
16580 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 20 20 ite3_bind_text
16590 53 54 4d 54 20 4e 20 53 54 52 49 4e 47 20 42 59 STMT N STRING BY
165a0 54 45 53 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 TES.**.** Test t
165b0 68 65 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f he sqlite3_bind_
165c0 74 65 78 74 20 69 6e 74 65 72 66 61 63 65 2e 20 text interface.
165d0 20 53 54 4d 54 20 69 73 20 61 20 70 72 65 70 61 STMT is a prepa
165e0 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 0a 2a red statement..*
165f0 2a 20 4e 20 69 73 20 74 68 65 20 69 6e 64 65 78 * N is the index
16600 20 6f 66 20 61 20 77 69 6c 64 63 61 72 64 20 69 of a wildcard i
16610 6e 20 74 68 65 20 70 72 65 70 61 72 65 64 20 73 n the prepared s
16620 74 61 74 65 6d 65 6e 74 2e 20 20 54 68 69 73 20 tatement. This
16630 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 73 command.** binds
16640 20 61 20 55 54 46 2d 38 20 73 74 72 69 6e 67 20 a UTF-8 string
16650 53 54 52 49 4e 47 20 74 6f 20 74 68 65 20 77 69 STRING to the wi
16660 6c 64 63 61 72 64 2e 20 20 54 68 65 20 73 74 72 ldcard. The str
16670 69 6e 67 20 69 73 20 42 59 54 45 53 20 62 79 74 ing is BYTES byt
16680 65 73 0a 2a 2a 20 6c 6f 6e 67 2e 0a 2a 2f 0a 73 es.** long..*/.s
16690 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 tatic int test_b
166a0 69 6e 64 5f 74 65 78 74 28 0a 20 20 76 6f 69 64 ind_text(. void
166b0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
166c0 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
166d0 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
166e0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
166f0 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
16700 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d lite3_stmt *pStm
16710 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 t;. int idx;.
16720 69 6e 74 20 62 79 74 65 73 3b 0a 20 20 63 68 61 int bytes;. cha
16730 72 20 2a 76 61 6c 75 65 3b 0a 20 20 69 6e 74 20 r *value;. int
16740 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 rc;.. if( objc!
16750 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =5 ){. Tcl_Ap
16760 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
16770 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
16780 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
16790 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
167a0 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
167b0 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 53 54 4d jv[0], 0), " STM
167c0 54 20 4e 20 56 41 4c 55 45 20 42 59 54 45 53 22 T N VALUE BYTES"
167d0 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
167e0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
167f0 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f . if( getStmtPo
16800 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
16810 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
16820 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 [1]), &pStmt) )
16830 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
16840 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 ;. if( Tcl_GetI
16850 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
16860 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 , objv[2], &idx)
16870 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
16880 52 4f 52 3b 0a 20 20 76 61 6c 75 65 20 3d 20 28 ROR;. value = (
16890 63 68 61 72 2a 29 54 63 6c 5f 47 65 74 42 79 74 char*)Tcl_GetByt
168a0 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 eArrayFromObj(ob
168b0 6a 76 5b 33 5d 2c 20 26 62 79 74 65 73 29 3b 0a jv[3], &bytes);.
168c0 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
168d0 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
168e0 6f 62 6a 76 5b 34 5d 2c 20 26 62 79 74 65 73 29 objv[4], &bytes)
168f0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
16900 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c ROR;.. rc = sql
16910 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 ite3_bind_text(p
16920 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 65 Stmt, idx, value
16930 2c 20 62 79 74 65 73 2c 20 53 51 4c 49 54 45 5f , bytes, SQLITE_
16940 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 69 66 TRANSIENT);. if
16950 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 ( sqlite3TestErr
16960 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 74 6d Code(interp, Stm
16970 74 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 63 tToDb(pStmt), rc
16980 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
16990 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 21 3d RROR;. if( rc!=
169a0 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
169b0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
169c0 74 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 t(interp, sqlite
169d0 33 45 72 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3ErrName(rc), 0)
169e0 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
169f0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 _ERROR;. }.. r
16a00 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
16a10 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 ./*.** Usage:
16a20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 sqlite3_bind_tex
16a30 74 31 36 20 3f 2d 73 74 61 74 69 63 3f 20 53 54 t16 ?-static? ST
16a40 4d 54 20 4e 20 53 54 52 49 4e 47 20 42 59 54 45 MT N STRING BYTE
16a50 53 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 S.**.** Test the
16a60 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 sqlite3_bind_te
16a70 78 74 31 36 20 69 6e 74 65 72 66 61 63 65 2e 20 xt16 interface.
16a80 20 53 54 4d 54 20 69 73 20 61 20 70 72 65 70 61 STMT is a prepa
16a90 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 0a 2a red statement..*
16aa0 2a 20 4e 20 69 73 20 74 68 65 20 69 6e 64 65 78 * N is the index
16ab0 20 6f 66 20 61 20 77 69 6c 64 63 61 72 64 20 69 of a wildcard i
16ac0 6e 20 74 68 65 20 70 72 65 70 61 72 65 64 20 73 n the prepared s
16ad0 74 61 74 65 6d 65 6e 74 2e 20 20 54 68 69 73 20 tatement. This
16ae0 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 73 command.** binds
16af0 20 61 20 55 54 46 2d 31 36 20 73 74 72 69 6e 67 a UTF-16 string
16b00 20 53 54 52 49 4e 47 20 74 6f 20 74 68 65 20 77 STRING to the w
16b10 69 6c 64 63 61 72 64 2e 20 20 54 68 65 20 73 74 ildcard. The st
16b20 72 69 6e 67 20 69 73 20 42 59 54 45 53 20 62 79 ring is BYTES by
16b30 74 65 73 0a 2a 2a 20 6c 6f 6e 67 2e 0a 2a 2f 0a tes.** long..*/.
16b40 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
16b50 62 69 6e 64 5f 74 65 78 74 31 36 28 0a 20 20 76 bind_text16(. v
16b60 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
16b70 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
16b80 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
16b90 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
16ba0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 ONST objv[].){.#
16bb0 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
16bc0 49 54 5f 55 54 46 31 36 0a 20 20 73 71 6c 69 74 IT_UTF16. sqlit
16bd0 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
16be0 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 6e 74 int idx;. int
16bf0 20 62 79 74 65 73 3b 0a 20 20 63 68 61 72 20 2a bytes;. char *
16c00 76 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 3b value;. int rc;
16c10 0a 0a 20 20 76 6f 69 64 20 28 2a 78 44 65 6c 29 .. void (*xDel)
16c20 28 76 6f 69 64 2a 29 20 3d 20 28 6f 62 6a 63 3d (void*) = (objc=
16c30 3d 36 3f 53 51 4c 49 54 45 5f 53 54 41 54 49 43 =6?SQLITE_STATIC
16c40 3a 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e :SQLITE_TRANSIEN
16c50 54 29 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f T);. Tcl_Obj *o
16c60 53 74 6d 74 20 20 20 20 3d 20 6f 62 6a 76 5b 6f Stmt = objv[o
16c70 62 6a 63 2d 34 5d 3b 0a 20 20 54 63 6c 5f 4f 62 bjc-4];. Tcl_Ob
16c80 6a 20 2a 6f 4e 20 20 20 20 20 20 20 3d 20 6f 62 j *oN = ob
16c90 6a 76 5b 6f 62 6a 63 2d 33 5d 3b 0a 20 20 54 63 jv[objc-3];. Tc
16ca0 6c 5f 4f 62 6a 20 2a 6f 53 74 72 69 6e 67 20 20 l_Obj *oString
16cb0 3d 20 6f 62 6a 76 5b 6f 62 6a 63 2d 32 5d 3b 0a = objv[objc-2];.
16cc0 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 42 79 74 65 Tcl_Obj *oByte
16cd0 73 20 20 20 3d 20 6f 62 6a 76 5b 6f 62 6a 63 2d s = objv[objc-
16ce0 31 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 1];.. if( objc!
16cf0 3d 35 20 26 26 20 6f 62 6a 63 21 3d 36 29 7b 0a =5 && objc!=6){.
16d00 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
16d10 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
16d20 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
16d30 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 ld be \"",.
16d40 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
16d50 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c FromObj(objv[0],
16d60 20 30 29 2c 20 22 20 53 54 4d 54 20 4e 20 56 41 0), " STMT N VA
16d70 4c 55 45 20 42 59 54 45 53 22 2c 20 30 29 3b 0a LUE BYTES", 0);.
16d80 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
16d90 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 RROR;. }.. if(
16da0 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
16db0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
16dc0 74 72 69 6e 67 28 6f 53 74 6d 74 29 2c 20 26 70 tring(oStmt), &p
16dd0 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 Stmt) ) return T
16de0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
16df0 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 Tcl_GetIntFromOb
16e00 6a 28 69 6e 74 65 72 70 2c 20 6f 4e 2c 20 26 69 j(interp, oN, &i
16e10 64 78 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c dx) ) return TCL
16e20 5f 45 52 52 4f 52 3b 0a 20 20 76 61 6c 75 65 20 _ERROR;. value
16e30 3d 20 28 63 68 61 72 2a 29 54 63 6c 5f 47 65 74 = (char*)Tcl_Get
16e40 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a ByteArrayFromObj
16e50 28 6f 53 74 72 69 6e 67 2c 20 30 29 3b 0a 20 20 (oString, 0);.
16e60 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
16e70 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 42 omObj(interp, oB
16e80 79 74 65 73 2c 20 26 62 79 74 65 73 29 20 29 20 ytes, &bytes) )
16e90 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
16ea0 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 ;.. rc = sqlite
16eb0 33 5f 62 69 6e 64 5f 74 65 78 74 31 36 28 70 53 3_bind_text16(pS
16ec0 74 6d 74 2c 20 69 64 78 2c 20 28 76 6f 69 64 20 tmt, idx, (void
16ed0 2a 29 76 61 6c 75 65 2c 20 62 79 74 65 73 2c 20 *)value, bytes,
16ee0 78 44 65 6c 29 3b 0a 20 20 69 66 28 20 73 71 6c xDel);. if( sql
16ef0 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 ite3TestErrCode(
16f00 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 interp, StmtToDb
16f10 28 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 72 (pStmt), rc) ) r
16f20 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
16f30 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 . if( rc!=SQLIT
16f40 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f E_OK ){. Tcl_
16f50 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
16f60 65 72 70 2c 20 73 71 6c 69 74 65 33 45 72 72 4e erp, sqlite3ErrN
16f70 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 ame(rc), 0);.
16f80 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
16f90 52 3b 0a 20 20 7d 0a 0a 23 65 6e 64 69 66 20 2f R;. }..#endif /
16fa0 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 * SQLITE_OMIT_UT
16fb0 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 F16 */. return
16fc0 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
16fd0 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 Usage: sqlite
16fe0 33 5f 62 69 6e 64 5f 62 6c 6f 62 20 3f 2d 73 74 3_bind_blob ?-st
16ff0 61 74 69 63 3f 20 53 54 4d 54 20 4e 20 44 41 54 atic? STMT N DAT
17000 41 20 42 59 54 45 53 0a 2a 2a 0a 2a 2a 20 54 65 A BYTES.**.** Te
17010 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62 st the sqlite3_b
17020 69 6e 64 5f 62 6c 6f 62 20 69 6e 74 65 72 66 61 ind_blob interfa
17030 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 ce. STMT is a p
17040 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
17050 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 t..** N is the i
17060 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 ndex of a wildca
17070 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 rd in the prepar
17080 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 ed statement. T
17090 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 his command.** b
170a0 69 6e 64 73 20 61 20 42 4c 4f 42 20 74 6f 20 74 inds a BLOB to t
170b0 68 65 20 77 69 6c 64 63 61 72 64 2e 20 20 54 68 he wildcard. Th
170c0 65 20 42 4c 4f 42 20 69 73 20 42 59 54 45 53 20 e BLOB is BYTES
170d0 62 79 74 65 73 20 69 6e 20 73 69 7a 65 2e 0a 2a bytes in size..*
170e0 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
170f0 74 5f 62 69 6e 64 5f 62 6c 6f 62 28 0a 20 20 76 t_bind_blob(. v
17100 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
17110 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
17120 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
17130 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
17140 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
17150 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
17160 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b Stmt;. int idx;
17170 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 20 . int bytes;.
17180 63 68 61 72 20 2a 76 61 6c 75 65 3b 0a 20 20 69 char *value;. i
17190 6e 74 20 72 63 3b 0a 20 20 73 71 6c 69 74 65 33 nt rc;. sqlite3
171a0 5f 64 65 73 74 72 75 63 74 6f 72 5f 74 79 70 65 _destructor_type
171b0 20 78 44 65 73 74 72 75 63 74 6f 72 20 3d 20 53 xDestructor = S
171c0 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 3b QLITE_TRANSIENT;
171d0 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 .. if( objc!=5
171e0 26 26 20 6f 62 6a 63 21 3d 36 20 29 7b 0a 20 20 && objc!=6 ){.
171f0 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
17200 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
17210 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
17220 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 be \"",.
17230 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
17240 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 omObj(objv[0], 0
17250 29 2c 20 22 20 53 54 4d 54 20 4e 20 44 41 54 41 ), " STMT N DATA
17260 20 42 59 54 45 53 22 2c 20 30 29 3b 0a 20 20 20 BYTES", 0);.
17270 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
17280 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 6f 62 R;. }.. if( ob
17290 6a 63 3d 3d 36 20 29 7b 0a 20 20 20 20 78 44 65 jc==6 ){. xDe
172a0 73 74 72 75 63 74 6f 72 20 3d 20 53 51 4c 49 54 structor = SQLIT
172b0 45 5f 53 54 41 54 49 43 3b 0a 20 20 20 20 6f 62 E_STATIC;. ob
172c0 6a 76 2b 2b 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 jv++;. }.. if(
172d0 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
172e0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
172f0 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
17300 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e &pStmt) ) return
17310 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
17320 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
17330 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
17340 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 [2], &idx) ) ret
17350 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
17360 20 76 61 6c 75 65 20 3d 20 54 63 6c 5f 47 65 74 value = Tcl_Get
17370 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b String(objv[3]);
17380 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
17390 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
173a0 20 6f 62 6a 76 5b 34 5d 2c 20 26 62 79 74 65 73 objv[4], &bytes
173b0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
173c0 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 RROR;.. rc = sq
173d0 6c 69 74 65 33 5f 62 69 6e 64 5f 62 6c 6f 62 28 lite3_bind_blob(
173e0 70 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 pStmt, idx, valu
173f0 65 2c 20 62 79 74 65 73 2c 20 78 44 65 73 74 72 e, bytes, xDestr
17400 75 63 74 6f 72 29 3b 0a 20 20 69 66 28 20 73 71 uctor);. if( sq
17410 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 lite3TestErrCode
17420 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 (interp, StmtToD
17430 62 28 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 b(pStmt), rc) )
17440 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
17450 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 ;. if( rc!=SQLI
17460 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 TE_OK ){. ret
17470 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
17480 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }.. return TCL
17490 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
174a0 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 age: sqlite3_b
174b0 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 63 6f ind_parameter_co
174c0 75 6e 74 20 20 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 unt STMT.**.**
174d0 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
174e0 72 20 6f 66 20 77 69 6c 64 63 61 72 64 73 20 69 r of wildcards i
174f0 6e 20 74 68 65 20 67 69 76 65 6e 20 73 74 61 74 n the given stat
17500 65 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 ement..*/.static
17510 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 70 int test_bind_p
17520 61 72 61 6d 65 74 65 72 5f 63 6f 75 6e 74 28 0a arameter_count(.
17530 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
17540 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
17550 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
17560 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
17570 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
17580 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 {. sqlite3_stmt
17590 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 66 28 20 *pStmt;.. if(
175a0 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
175b0 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
175c0 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
175d0 20 22 53 54 4d 54 22 29 3b 0a 20 20 20 20 72 65 "STMT");. re
175e0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
175f0 20 20 7d 0a 20 20 69 66 28 20 67 65 74 53 74 6d }. if( getStm
17600 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
17610 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
17620 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 bjv[1]), &pStmt)
17630 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
17640 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 ROR;. Tcl_SetOb
17650 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
17660 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 Tcl_NewIntObj(sq
17670 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 61 6d lite3_bind_param
17680 65 74 65 72 5f 63 6f 75 6e 74 28 70 53 74 6d 74 eter_count(pStmt
17690 29 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 )));. return TC
176a0 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
176b0 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f sage: sqlite3_
176c0 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 6e bind_parameter_n
176d0 61 6d 65 20 20 53 54 4d 54 20 20 4e 0a 2a 2a 0a ame STMT N.**.
176e0 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 ** Return the na
176f0 6d 65 20 6f 66 20 74 68 65 20 4e 74 68 20 77 69 me of the Nth wi
17700 6c 64 63 61 72 64 2e 20 20 54 68 65 20 66 69 72 ldcard. The fir
17710 73 74 20 77 69 6c 64 63 61 72 64 20 69 73 20 31 st wildcard is 1
17720 2e 0a 2a 2a 20 41 6e 20 65 6d 70 74 79 20 73 74 ..** An empty st
17730 72 69 6e 67 20 69 73 20 72 65 74 75 72 6e 65 64 ring is returned
17740 20 69 66 20 4e 20 69 73 20 6f 75 74 20 6f 66 20 if N is out of
17750 72 61 6e 67 65 20 6f 72 20 69 66 20 74 68 65 20 range or if the
17760 77 69 6c 64 63 61 72 64 0a 2a 2a 20 69 73 20 6e wildcard.** is n
17770 61 6d 65 6c 65 73 73 2e 0a 2a 2f 0a 73 74 61 74 ameless..*/.stat
17780 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 ic int test_bind
17790 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 6d 65 28 _parameter_name(
177a0 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
177b0 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
177c0 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
177d0 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
177e0 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
177f0 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
17800 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 t *pStmt;. int
17810 69 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d i;.. if( objc!=
17820 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 3 ){. Tcl_Wro
17830 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
17840 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 54 4d 54 , 1, objv, "STMT
17850 20 4e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e N");. return
17860 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
17870 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
17880 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
17890 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
178a0 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
178b0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
178c0 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
178d0 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
178e0 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 29 20 29 20 objv[2], &i) )
178f0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
17900 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. Tcl_SetObjRe
17910 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 0a 20 20 sult(interp, .
17920 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
17930 4f 62 6a 28 73 71 6c 69 74 65 33 5f 62 69 6e 64 Obj(sqlite3_bind
17940 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 6d 65 28 _parameter_name(
17950 70 53 74 6d 74 2c 69 29 2c 2d 31 29 0a 20 20 29 pStmt,i),-1). )
17960 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
17970 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
17980 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e e: sqlite3_bin
17990 64 5f 70 61 72 61 6d 65 74 65 72 5f 69 6e 64 65 d_parameter_inde
179a0 78 20 20 53 54 4d 54 20 20 4e 41 4d 45 0a 2a 2a x STMT NAME.**
179b0 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 69 .** Return the i
179c0 6e 64 65 78 20 6f 66 20 74 68 65 20 77 69 6c 64 ndex of the wild
179d0 63 61 72 64 20 63 61 6c 6c 65 64 20 4e 41 4d 45 card called NAME
179e0 2e 20 20 52 65 74 75 72 6e 20 30 20 69 66 20 74 . Return 0 if t
179f0 68 65 72 65 20 69 73 0a 2a 2a 20 6e 6f 20 73 75 here is.** no su
17a00 63 68 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a ch wildcard..*/.
17a10 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
17a20 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 69 bind_parameter_i
17a30 6e 64 65 78 28 0a 20 20 76 6f 69 64 20 2a 20 63 ndex(. void * c
17a40 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
17a50 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
17a60 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
17a70 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
17a80 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
17a90 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 3_stmt *pStmt;..
17aa0 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b if( objc!=3 ){
17ab0 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
17ac0 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
17ad0 20 6f 62 6a 76 2c 20 22 53 54 4d 54 20 4e 41 4d objv, "STMT NAM
17ae0 45 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 E");. return
17af0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
17b00 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e if( getStmtPoin
17b10 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
17b20 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
17b30 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 ]), &pStmt) ) re
17b40 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
17b50 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
17b60 6c 74 28 69 6e 74 65 72 70 2c 20 0a 20 20 20 20 lt(interp, .
17b70 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 0a Tcl_NewIntObj(.
17b80 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 62 sqlite3_b
17b90 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 69 6e ind_parameter_in
17ba0 64 65 78 28 70 53 74 6d 74 2c 54 63 6c 5f 47 65 dex(pStmt,Tcl_Ge
17bb0 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 tString(objv[2])
17bc0 29 0a 20 20 20 20 20 29 0a 20 20 29 3b 0a 20 20 ). ). );.
17bd0 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
17be0 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
17bf0 20 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f 62 sqlite3_clear_b
17c00 69 6e 64 69 6e 67 73 20 53 54 4d 54 0a 2a 2a 0a indings STMT.**.
17c10 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
17c20 73 74 5f 63 6c 65 61 72 5f 62 69 6e 64 69 6e 67 st_clear_binding
17c30 73 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 s(. void * clie
17c40 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
17c50 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
17c60 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
17c70 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
17c80 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 ].){. sqlite3_s
17c90 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 tmt *pStmt;.. i
17ca0 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 f( objc!=2 ){.
17cb0 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
17cc0 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
17cd0 6a 76 2c 20 22 53 54 4d 54 22 29 3b 0a 20 20 20 jv, "STMT");.
17ce0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
17cf0 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
17d00 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
17d10 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
17d20 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
17d30 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
17d40 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 _ERROR;. Tcl_Se
17d50 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
17d60 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
17d70 28 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f 62 (sqlite3_clear_b
17d80 69 6e 64 69 6e 67 73 28 70 53 74 6d 74 29 29 29 indings(pStmt)))
17d90 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
17da0 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
17db0 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 73 6c 65 e: sqlite3_sle
17dc0 65 70 20 4d 49 4c 4c 49 53 45 43 4f 4e 44 53 0a ep MILLISECONDS.
17dd0 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
17de0 73 74 5f 73 6c 65 65 70 28 0a 20 20 76 6f 69 64 st_sleep(. void
17df0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
17e00 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
17e10 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
17e20 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
17e30 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e T objv[].){. in
17e40 74 20 6d 73 3b 0a 0a 20 20 69 66 28 20 6f 62 6a t ms;.. if( obj
17e50 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
17e60 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
17e70 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 4d erp, 1, objv, "M
17e80 49 4c 4c 49 53 45 43 4f 4e 44 53 22 29 3b 0a 20 ILLISECONDS");.
17e90 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
17ea0 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 ROR;. }. if( T
17eb0 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
17ec0 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d (interp, objv[1]
17ed0 2c 20 26 6d 73 29 20 29 7b 0a 20 20 20 20 72 65 , &ms) ){. re
17ee0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
17ef0 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a }. Tcl_SetObj
17f00 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
17f10 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c cl_NewIntObj(sql
17f20 69 74 65 33 5f 73 6c 65 65 70 28 6d 73 29 29 29 ite3_sleep(ms)))
17f30 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
17f40 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
17f50 65 3a 20 73 71 6c 69 74 65 33 5f 65 78 74 65 6e e: sqlite3_exten
17f60 64 65 64 5f 65 72 72 63 6f 64 65 20 44 42 0a 2a ded_errcode DB.*
17f70 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 *.** Return the
17f80 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 string represent
17f90 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6d 6f 73 ation of the mos
17fa0 74 20 72 65 63 65 6e 74 20 73 71 6c 69 74 65 33 t recent sqlite3
17fb0 5f 2a 20 41 50 49 0a 2a 2a 20 65 72 72 6f 72 20 _* API.** error
17fc0 63 6f 64 65 2e 20 65 2e 67 2e 20 22 53 51 4c 49 code. e.g. "SQLI
17fd0 54 45 5f 45 52 52 4f 52 22 2e 0a 2a 2f 0a 73 74 TE_ERROR"..*/.st
17fe0 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 78 atic int test_ex
17ff0 5f 65 72 72 63 6f 64 65 28 0a 20 20 76 6f 69 64 _errcode(. void
18000 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
18010 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
18020 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
18030 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
18040 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
18050 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 lite3 *db;. int
18060 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 rc;.. if( objc
18070 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=2 ){. Tcl_A
18080 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
18090 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
180a0 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
180b0 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 , . Tcl_Ge
180c0 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 tString(objv[0])
180d0 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 , " DB", 0);.
180e0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
180f0 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
18100 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
18110 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
18120 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 objv[1]), &db) )
18130 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
18140 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 R;. rc = sqlite
18150 33 5f 65 78 74 65 6e 64 65 64 5f 65 72 72 63 6f 3_extended_errco
18160 64 65 28 64 62 29 3b 0a 20 20 54 63 6c 5f 41 70 de(db);. Tcl_Ap
18170 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
18180 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 72 72 p, (char *)t1Err
18190 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a orName(rc), 0);.
181a0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
181b0 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 .}.../*.** Usage
181c0 3a 20 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 : sqlite3_errcod
181d0 65 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 e DB.**.** Retur
181e0 6e 20 74 68 65 20 73 74 72 69 6e 67 20 72 65 70 n the string rep
181f0 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 resentation of t
18200 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 73 he most recent s
18210 71 6c 69 74 65 33 5f 2a 20 41 50 49 0a 2a 2a 20 qlite3_* API.**
18220 65 72 72 6f 72 20 63 6f 64 65 2e 20 65 2e 67 2e error code. e.g.
18230 20 22 53 51 4c 49 54 45 5f 45 52 52 4f 52 22 2e "SQLITE_ERROR".
18240 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
18250 65 73 74 5f 65 72 72 63 6f 64 65 28 0a 20 20 76 est_errcode(. v
18260 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
18270 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
18280 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
18290 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
182a0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
182b0 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
182c0 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
182d0 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 bjc!=2 ){. Tc
182e0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
182f0 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
18300 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
18310 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
18320 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
18330 30 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 0]), " DB", 0);.
18340 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
18350 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
18360 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
18370 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
18380 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
18390 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
183a0 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c RROR;. rc = sql
183b0 69 74 65 33 5f 65 72 72 63 6f 64 65 28 64 62 29 ite3_errcode(db)
183c0 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
183d0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 sult(interp, (ch
183e0 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 ar *)t1ErrorName
183f0 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 65 74 75 (rc), 0);. retu
18400 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
18410 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c .** Usage: sql
18420 69 74 65 33 5f 65 72 72 6d 73 67 20 44 42 0a 2a ite3_errmsg DB.*
18430 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 20 74 68 65 *.** Returns the
18440 20 55 54 46 2d 38 20 72 65 70 72 65 73 65 6e 74 UTF-8 represent
18450 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 65 72 72 ation of the err
18460 6f 72 20 6d 65 73 73 61 67 65 20 73 74 72 69 6e or message strin
18470 67 20 66 6f 72 20 74 68 65 0a 2a 2a 20 6d 6f 73 g for the.** mos
18480 74 20 72 65 63 65 6e 74 20 73 71 6c 69 74 65 33 t recent sqlite3
18490 5f 2a 20 41 50 49 20 63 61 6c 6c 2e 0a 2a 2f 0a _* API call..*/.
184a0 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
184b0 65 72 72 6d 73 67 28 0a 20 20 76 6f 69 64 20 2a errmsg(. void *
184c0 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
184d0 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
184e0 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
184f0 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
18500 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
18510 74 65 33 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 te3 *db;. const
18520 20 63 68 61 72 20 2a 7a 45 72 72 3b 0a 0a 20 20 char *zErr;..
18530 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 if( objc!=2 ){.
18540 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
18550 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
18560 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
18570 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 d be \"", .
18580 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 Tcl_GetString(
18590 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 22 2c objv[0]), " DB",
185a0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
185b0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
185c0 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
185d0 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
185e0 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
185f0 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
18600 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 7a 45 TCL_ERROR;.. zE
18610 72 72 20 3d 20 73 71 6c 69 74 65 33 5f 65 72 72 rr = sqlite3_err
18620 6d 73 67 28 64 62 29 3b 0a 20 20 54 63 6c 5f 53 msg(db);. Tcl_S
18630 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
18640 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e rp, Tcl_NewStrin
18650 67 4f 62 6a 28 7a 45 72 72 2c 20 2d 31 29 29 3b gObj(zErr, -1));
18660 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
18670 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
18680 3a 20 20 20 74 65 73 74 5f 65 72 72 6d 73 67 31 : test_errmsg1
18690 36 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6 DB.**.** Retur
186a0 6e 73 20 74 68 65 20 55 54 46 2d 31 36 20 72 65 ns the UTF-16 re
186b0 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 presentation of
186c0 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 the error messag
186d0 65 20 73 74 72 69 6e 67 20 66 6f 72 20 74 68 65 e string for the
186e0 0a 2a 2a 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 .** most recent
186f0 73 71 6c 69 74 65 33 5f 2a 20 41 50 49 20 63 61 sqlite3_* API ca
18700 6c 6c 2e 20 54 68 69 73 20 69 73 20 61 20 62 79 ll. This is a by
18710 74 65 20 61 72 72 61 79 20 6f 62 6a 65 63 74 20 te array object
18720 61 74 20 74 68 65 20 54 43 4c 20 0a 2a 2a 20 6c at the TCL .** l
18730 65 76 65 6c 2c 20 61 6e 64 20 69 74 20 69 6e 63 evel, and it inc
18740 6c 75 64 65 73 20 74 68 65 20 30 78 30 30 20 30 ludes the 0x00 0
18750 78 30 30 20 74 65 72 6d 69 6e 61 74 6f 72 20 62 x00 terminator b
18760 79 74 65 73 20 61 74 20 74 68 65 20 65 6e 64 20 ytes at the end
18770 6f 66 20 74 68 65 0a 2a 2a 20 55 54 46 2d 31 36 of the.** UTF-16
18780 20 73 74 72 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 string..*/.stat
18790 69 63 20 69 6e 74 20 74 65 73 74 5f 65 72 72 6d ic int test_errm
187a0 73 67 31 36 28 0a 20 20 76 6f 69 64 20 2a 20 63 sg16(. void * c
187b0 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
187c0 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
187d0 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
187e0 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
187f0 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 jv[].){.#ifndef
18800 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 SQLITE_OMIT_UTF1
18810 36 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 6. sqlite3 *db;
18820 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a . const void *z
18830 45 72 72 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 Err;. const cha
18840 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 62 79 74 65 r *z;. int byte
18850 73 20 3d 20 30 3b 0a 0a 20 20 69 66 28 20 6f 62 s = 0;.. if( ob
18860 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
18870 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
18880 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
18890 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
188a0 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
188b0 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
188c0 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 ]), " DB", 0);.
188d0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
188e0 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
188f0 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
18900 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
18910 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
18920 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
18930 52 4f 52 3b 0a 0a 20 20 7a 45 72 72 20 3d 20 73 ROR;.. zErr = s
18940 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 31 36 28 qlite3_errmsg16(
18950 64 62 29 3b 0a 20 20 69 66 28 20 7a 45 72 72 20 db);. if( zErr
18960 29 7b 0a 20 20 20 20 7a 20 3d 20 7a 45 72 72 3b ){. z = zErr;
18970 0a 20 20 20 20 66 6f 72 28 62 79 74 65 73 3d 30 . for(bytes=0
18980 3b 20 7a 5b 62 79 74 65 73 5d 20 7c 7c 20 7a 5b ; z[bytes] || z[
18990 62 79 74 65 73 2b 31 5d 3b 20 62 79 74 65 73 2b bytes+1]; bytes+
189a0 3d 32 29 7b 7d 0a 20 20 7d 0a 20 20 54 63 6c 5f =2){}. }. Tcl_
189b0 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
189c0 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42 79 74 65 erp, Tcl_NewByte
189d0 41 72 72 61 79 4f 62 6a 28 7a 45 72 72 2c 20 62 ArrayObj(zErr, b
189e0 79 74 65 73 29 29 3b 0a 23 65 6e 64 69 66 20 2f ytes));.#endif /
189f0 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 * SQLITE_OMIT_UT
18a00 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 F16 */. return
18a10 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
18a20 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
18a30 70 72 65 70 61 72 65 20 44 42 20 73 71 6c 20 62 prepare DB sql b
18a40 79 74 65 73 20 3f 74 61 69 6c 76 61 72 3f 0a 2a ytes ?tailvar?.*
18a50 2a 0a 2a 2a 20 43 6f 6d 70 69 6c 65 20 75 70 20 *.** Compile up
18a60 74 6f 20 3c 62 79 74 65 73 3e 20 62 79 74 65 73 to <bytes> bytes
18a70 20 6f 66 20 74 68 65 20 73 75 70 70 6c 69 65 64 of the supplied
18a80 20 53 51 4c 20 73 74 72 69 6e 67 20 3c 73 71 6c SQL string <sql
18a90 3e 20 75 73 69 6e 67 0a 2a 2a 20 64 61 74 61 62 > using.** datab
18aa0 61 73 65 20 68 61 6e 64 6c 65 20 3c 44 42 3e 2e ase handle <DB>.
18ab0 20 54 68 65 20 70 61 72 61 6d 65 74 65 72 20 3c The parameter <
18ac0 74 61 69 6c 76 61 6c 3e 20 69 73 20 74 68 65 20 tailval> is the
18ad0 6e 61 6d 65 20 6f 66 20 61 20 67 6c 6f 62 61 6c name of a global
18ae0 0a 2a 2a 20 76 61 72 69 61 62 6c 65 20 74 68 61 .** variable tha
18af0 74 20 69 73 20 73 65 74 20 74 6f 20 74 68 65 20 t is set to the
18b00 75 6e 75 73 65 64 20 70 6f 72 74 69 6f 6e 20 6f unused portion o
18b10 66 20 3c 73 71 6c 3e 20 28 69 66 20 61 6e 79 29 f <sql> (if any)
18b20 2e 20 41 0a 2a 2a 20 53 54 4d 54 20 68 61 6e 64 . A.** STMT hand
18b30 6c 65 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a le is returned..
18b40 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
18b50 73 74 5f 70 72 65 70 61 72 65 28 0a 20 20 76 6f st_prepare(. vo
18b60 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
18b70 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
18b80 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
18b90 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
18ba0 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
18bb0 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 sqlite3 *db;. c
18bc0 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 71 6c 3b onst char *zSql;
18bd0 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 20 . int bytes;.
18be0 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 61 69 const char *zTai
18bf0 6c 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 l = 0;. sqlite3
18c00 5f 73 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 30 _stmt *pStmt = 0
18c10 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 ;. char zBuf[50
18c20 5d 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 ];. int rc;..
18c30 69 66 28 20 6f 62 6a 63 21 3d 35 20 26 26 20 6f if( objc!=5 && o
18c40 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 bjc!=4 ){. Tc
18c50 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
18c60 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
18c70 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
18c80 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
18c90 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
18ca0 30 5d 29 2c 20 22 20 44 42 20 73 71 6c 20 62 79 0]), " DB sql by
18cb0 74 65 73 20 3f 74 61 69 6c 76 61 72 3f 22 2c 20 tes ?tailvar?",
18cc0 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
18cd0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
18ce0 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
18cf0 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
18d00 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
18d10 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
18d20 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 53 71 6c CL_ERROR;. zSql
18d30 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
18d40 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 69 66 28 (objv[2]);. if(
18d50 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
18d60 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
18d70 33 5d 2c 20 26 62 79 74 65 73 29 20 29 20 72 65 3], &bytes) ) re
18d80 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
18d90 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
18da0 70 72 65 70 61 72 65 28 64 62 2c 20 7a 53 71 6c prepare(db, zSql
18db0 2c 20 62 79 74 65 73 2c 20 26 70 53 74 6d 74 2c , bytes, &pStmt,
18dc0 20 6f 62 6a 63 3e 3d 35 20 3f 20 26 7a 54 61 69 objc>=5 ? &zTai
18dd0 6c 20 3a 20 30 29 3b 0a 20 20 54 63 6c 5f 52 65 l : 0);. Tcl_Re
18de0 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 setResult(interp
18df0 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
18e00 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
18e10 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 rp, db, rc) ) re
18e20 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
18e30 20 20 69 66 28 20 7a 54 61 69 6c 20 26 26 20 6f if( zTail && o
18e40 62 6a 63 3e 3d 35 20 29 7b 0a 20 20 20 20 69 66 bjc>=5 ){. if
18e50 28 20 62 79 74 65 73 3e 3d 30 20 29 7b 0a 20 20 ( bytes>=0 ){.
18e60 20 20 20 20 62 79 74 65 73 20 3d 20 62 79 74 65 bytes = byte
18e70 73 20 2d 20 28 69 6e 74 29 28 7a 54 61 69 6c 2d s - (int)(zTail-
18e80 7a 53 71 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 zSql);. }.
18e90 20 69 66 28 20 28 69 6e 74 29 73 74 72 6c 65 6e if( (int)strlen
18ea0 28 7a 54 61 69 6c 29 3c 62 79 74 65 73 20 29 7b (zTail)<bytes ){
18eb0 0a 20 20 20 20 20 20 62 79 74 65 73 20 3d 20 28 . bytes = (
18ec0 69 6e 74 29 73 74 72 6c 65 6e 28 7a 54 61 69 6c int)strlen(zTail
18ed0 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c );. }. Tcl
18ee0 5f 4f 62 6a 53 65 74 56 61 72 32 28 69 6e 74 65 _ObjSetVar2(inte
18ef0 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 30 2c 20 rp, objv[4], 0,
18f00 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
18f10 28 7a 54 61 69 6c 2c 20 62 79 74 65 73 29 2c 20 (zTail, bytes),
18f20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 0);. }. if( rc
18f30 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 !=SQLITE_OK ){.
18f40 20 20 20 61 73 73 65 72 74 28 20 70 53 74 6d 74 assert( pStmt
18f50 3d 3d 30 20 29 3b 0a 20 20 20 20 73 70 72 69 6e ==0 );. sprin
18f60 74 66 28 7a 42 75 66 2c 20 22 28 25 64 29 20 22 tf(zBuf, "(%d) "
18f70 2c 20 72 63 29 3b 0a 20 20 20 20 54 63 6c 5f 41 , rc);. Tcl_A
18f80 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
18f90 72 70 2c 20 7a 42 75 66 2c 20 73 71 6c 69 74 65 rp, zBuf, sqlite
18fa0 33 5f 65 72 72 6d 73 67 28 64 62 29 2c 20 30 29 3_errmsg(db), 0)
18fb0 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
18fc0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
18fd0 66 28 20 70 53 74 6d 74 20 29 7b 0a 20 20 20 20 f( pStmt ){.
18fe0 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 4d if( sqlite3TestM
18ff0 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 69 6e akePointerStr(in
19000 74 65 72 70 2c 20 7a 42 75 66 2c 20 70 53 74 6d terp, zBuf, pStm
19010 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f t) ) return TCL_
19020 45 52 52 4f 52 3b 0a 20 20 20 20 54 63 6c 5f 41 ERROR;. Tcl_A
19030 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
19040 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 rp, zBuf, 0);.
19050 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f }. return TCL_O
19060 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
19070 65 3a 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 e: sqlite3_prepa
19080 72 65 5f 76 32 20 44 42 20 73 71 6c 20 62 79 74 re_v2 DB sql byt
19090 65 73 20 3f 74 61 69 6c 76 61 72 3f 0a 2a 2a 0a es ?tailvar?.**.
190a0 2a 2a 20 43 6f 6d 70 69 6c 65 20 75 70 20 74 6f ** Compile up to
190b0 20 3c 62 79 74 65 73 3e 20 62 79 74 65 73 20 6f <bytes> bytes o
190c0 66 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 53 f the supplied S
190d0 51 4c 20 73 74 72 69 6e 67 20 3c 73 71 6c 3e 20 QL string <sql>
190e0 75 73 69 6e 67 0a 2a 2a 20 64 61 74 61 62 61 73 using.** databas
190f0 65 20 68 61 6e 64 6c 65 20 3c 44 42 3e 2e 20 54 e handle <DB>. T
19100 68 65 20 70 61 72 61 6d 65 74 65 72 20 3c 74 61 he parameter <ta
19110 69 6c 76 61 6c 3e 20 69 73 20 74 68 65 20 6e 61 ilval> is the na
19120 6d 65 20 6f 66 20 61 20 67 6c 6f 62 61 6c 0a 2a me of a global.*
19130 2a 20 76 61 72 69 61 62 6c 65 20 74 68 61 74 20 * variable that
19140 69 73 20 73 65 74 20 74 6f 20 74 68 65 20 75 6e is set to the un
19150 75 73 65 64 20 70 6f 72 74 69 6f 6e 20 6f 66 20 used portion of
19160 3c 73 71 6c 3e 20 28 69 66 20 61 6e 79 29 2e 20 <sql> (if any).
19170 41 0a 2a 2a 20 53 54 4d 54 20 68 61 6e 64 6c 65 A.** STMT handle
19180 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2f is returned..*/
19190 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
191a0 5f 70 72 65 70 61 72 65 5f 76 32 28 0a 20 20 76 _prepare_v2(. v
191b0 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
191c0 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
191d0 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
191e0 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
191f0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
19200 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
19210 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 71 6c const char *zSql
19220 3b 0a 20 20 63 68 61 72 20 2a 7a 43 6f 70 79 20 ;. char *zCopy
19230 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 = 0;
19240 20 20 20 20 2f 2a 20 6d 61 6c 6c 6f 63 28 29 20 /* malloc()
19250 63 6f 70 79 20 6f 66 20 7a 53 71 6c 20 2a 2f 0a copy of zSql */.
19260 20 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 20 63 int bytes;. c
19270 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 61 69 6c onst char *zTail
19280 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f = 0;. sqlite3_
19290 73 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 30 3b stmt *pStmt = 0;
192a0 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 5d . char zBuf[50]
192b0 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 ;. int rc;.. i
192c0 66 28 20 6f 62 6a 63 21 3d 35 20 26 26 20 6f 62 f( objc!=5 && ob
192d0 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c jc!=4 ){. Tcl
192e0 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
192f0 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
19300 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
19310 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
19320 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
19330 5d 29 2c 20 22 20 44 42 20 73 71 6c 20 62 79 74 ]), " DB sql byt
19340 65 73 20 74 61 69 6c 76 61 72 22 2c 20 30 29 3b es tailvar", 0);
19350 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
19360 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
19370 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
19380 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
19390 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 ing(objv[1]), &d
193a0 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
193b0 45 52 52 4f 52 3b 0a 20 20 7a 53 71 6c 20 3d 20 ERROR;. zSql =
193c0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
193d0 6a 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20 54 63 jv[2]);. if( Tc
193e0 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
193f0 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c interp, objv[3],
19400 20 26 62 79 74 65 73 29 20 29 20 72 65 74 75 72 &bytes) ) retur
19410 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 n TCL_ERROR;..
19420 2f 2a 20 49 6e 73 74 65 61 64 20 6f 66 20 75 73 /* Instead of us
19430 69 6e 67 20 7a 53 71 6c 20 64 69 72 65 63 74 6c ing zSql directl
19440 79 2c 20 6d 61 6b 65 20 61 20 63 6f 70 79 20 69 y, make a copy i
19450 6e 74 6f 20 61 20 62 75 66 66 65 72 20 6f 62 74 nto a buffer obt
19460 61 69 6e 65 64 0a 20 20 2a 2a 20 64 69 72 65 63 ained. ** direc
19470 74 6c 79 20 66 72 6f 6d 20 6d 61 6c 6c 6f 63 28 tly from malloc(
19480 29 2e 20 54 68 65 20 69 64 65 61 20 69 73 20 74 ). The idea is t
19490 6f 20 6d 61 6b 65 20 69 74 20 65 61 73 69 65 72 o make it easier
194a0 20 66 6f 72 20 76 61 6c 67 72 69 6e 64 0a 20 20 for valgrind.
194b0 2a 2a 20 74 6f 20 73 70 6f 74 20 62 75 66 66 65 ** to spot buffe
194c0 72 20 6f 76 65 72 72 65 61 64 73 2e 20 20 2a 2f r overreads. */
194d0 0a 20 20 69 66 28 20 62 79 74 65 73 3e 3d 30 20 . if( bytes>=0
194e0 29 7b 0a 20 20 20 20 7a 43 6f 70 79 20 3d 20 6d ){. zCopy = m
194f0 61 6c 6c 6f 63 28 62 79 74 65 73 29 3b 0a 20 20 alloc(bytes);.
19500 20 20 6d 65 6d 63 70 79 28 7a 43 6f 70 79 2c 20 memcpy(zCopy,
19510 7a 53 71 6c 2c 20 62 79 74 65 73 29 3b 0a 20 20 zSql, bytes);.
19520 7d 65 6c 73 65 7b 0a 20 20 20 20 69 6e 74 20 6e }else{. int n
19530 20 3d 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 7a = (int)strlen(z
19540 53 71 6c 29 20 2b 20 31 3b 0a 20 20 20 20 7a 43 Sql) + 1;. zC
19550 6f 70 79 20 3d 20 6d 61 6c 6c 6f 63 28 6e 29 3b opy = malloc(n);
19560 0a 20 20 20 20 6d 65 6d 63 70 79 28 7a 43 6f 70 . memcpy(zCop
19570 79 2c 20 7a 53 71 6c 2c 20 6e 29 3b 0a 20 20 7d y, zSql, n);. }
19580 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
19590 70 72 65 70 61 72 65 5f 76 32 28 64 62 2c 20 7a prepare_v2(db, z
195a0 43 6f 70 79 2c 20 62 79 74 65 73 2c 20 26 70 53 Copy, bytes, &pS
195b0 74 6d 74 2c 20 6f 62 6a 63 3e 3d 35 20 3f 20 26 tmt, objc>=5 ? &
195c0 7a 54 61 69 6c 20 3a 20 30 29 3b 0a 20 20 66 72 zTail : 0);. fr
195d0 65 65 28 7a 43 6f 70 79 29 3b 0a 20 20 7a 54 61 ee(zCopy);. zTa
195e0 69 6c 20 3d 20 26 7a 53 71 6c 5b 28 7a 54 61 69 il = &zSql[(zTai
195f0 6c 20 2d 20 7a 43 6f 70 79 29 5d 3b 0a 0a 20 20 l - zCopy)];..
19600 61 73 73 65 72 74 28 72 63 3d 3d 53 51 4c 49 54 assert(rc==SQLIT
19610 45 5f 4f 4b 20 7c 7c 20 70 53 74 6d 74 3d 3d 30 E_OK || pStmt==0
19620 29 3b 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 );. Tcl_ResetRe
19630 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
19640 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 if( sqlite3TestE
19650 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 rrCode(interp, d
19660 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 b, rc) ) return
19670 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
19680 20 7a 54 61 69 6c 20 26 26 20 6f 62 6a 63 3e 3d zTail && objc>=
19690 35 20 29 7b 0a 20 20 20 20 69 66 28 20 62 79 74 5 ){. if( byt
196a0 65 73 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 62 es>=0 ){. b
196b0 79 74 65 73 20 3d 20 62 79 74 65 73 20 2d 20 28 ytes = bytes - (
196c0 69 6e 74 29 28 7a 54 61 69 6c 2d 7a 53 71 6c 29 int)(zTail-zSql)
196d0 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f ;. }. Tcl_
196e0 4f 62 6a 53 65 74 56 61 72 32 28 69 6e 74 65 72 ObjSetVar2(inter
196f0 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 30 2c 20 54 p, objv[4], 0, T
19700 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
19710 7a 54 61 69 6c 2c 20 62 79 74 65 73 29 2c 20 30 zTail, bytes), 0
19720 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 21 );. }. if( rc!
19730 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 =SQLITE_OK ){.
19740 20 20 61 73 73 65 72 74 28 20 70 53 74 6d 74 3d assert( pStmt=
19750 3d 30 20 29 3b 0a 20 20 20 20 73 70 72 69 6e 74 =0 );. sprint
19760 66 28 7a 42 75 66 2c 20 22 28 25 64 29 20 22 2c f(zBuf, "(%d) ",
19770 20 72 63 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 rc);. Tcl_Ap
19780 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
19790 70 2c 20 7a 42 75 66 2c 20 73 71 6c 69 74 65 33 p, zBuf, sqlite3
197a0 5f 65 72 72 6d 73 67 28 64 62 29 2c 20 30 29 3b _errmsg(db), 0);
197b0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
197c0 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 ERROR;. }.. if
197d0 28 20 70 53 74 6d 74 20 29 7b 0a 20 20 20 20 69 ( pStmt ){. i
197e0 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 4d 61 f( sqlite3TestMa
197f0 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 kePointerStr(int
19800 65 72 70 2c 20 7a 42 75 66 2c 20 70 53 74 6d 74 erp, zBuf, pStmt
19810 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
19820 52 52 4f 52 3b 0a 20 20 20 20 54 63 6c 5f 41 70 RROR;. Tcl_Ap
19830 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
19840 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 7d p, zBuf, 0);. }
19850 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
19860 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
19870 3a 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 : sqlite3_prepar
19880 65 5f 74 6b 74 33 31 33 34 20 44 42 0a 2a 2a 0a e_tkt3134 DB.**.
19890 2a 2a 20 47 65 6e 65 72 61 74 65 20 61 20 70 72 ** Generate a pr
198a0 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 epared statement
198b0 20 66 6f 72 20 61 20 7a 65 72 6f 2d 62 79 74 65 for a zero-byte
198c0 20 73 74 72 69 6e 67 20 61 73 20 61 20 74 65 73 string as a tes
198d0 74 0a 2a 2a 20 66 6f 72 20 74 69 63 6b 65 74 20 t.** for ticket
198e0 23 33 31 33 34 2e 20 20 54 68 65 20 73 74 72 69 #3134. The stri
198f0 6e 67 20 73 68 6f 75 6c 64 20 62 65 20 70 72 65 ng should be pre
19900 63 65 64 65 64 20 62 79 20 61 20 7a 65 72 6f 20 ceded by a zero
19910 62 79 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 byte..*/.static
19920 69 6e 74 20 74 65 73 74 5f 70 72 65 70 61 72 65 int test_prepare
19930 5f 74 6b 74 33 31 33 34 28 0a 20 20 76 6f 69 64 _tkt3134(. void
19940 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
19950 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
19960 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
19970 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
19980 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
19990 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 73 74 61 lite3 *db;. sta
199a0 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 7a tic const char z
199b0 53 71 6c 5b 5d 20 3d 20 22 5c 30 30 30 53 45 4c Sql[] = "\000SEL
199c0 45 43 54 20 31 22 3b 0a 20 20 73 71 6c 69 74 65 ECT 1";. sqlite
199d0 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 3_stmt *pStmt =
199e0 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 35 0;. char zBuf[5
199f0 30 5d 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 0];. int rc;..
19a00 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a if( objc!=2 ){.
19a10 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
19a20 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
19a30 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
19a40 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
19a50 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
19a60 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 20 (objv[0]), " DB
19a70 73 71 6c 20 62 79 74 65 73 20 74 61 69 6c 76 61 sql bytes tailva
19a80 72 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 r", 0);. retu
19a90 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
19aa0 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
19ab0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
19ac0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
19ad0 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 1]), &db) ) retu
19ae0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
19af0 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 rc = sqlite3_pre
19b00 70 61 72 65 5f 76 32 28 64 62 2c 20 26 7a 53 71 pare_v2(db, &zSq
19b10 6c 5b 31 5d 2c 20 30 2c 20 26 70 53 74 6d 74 2c l[1], 0, &pStmt,
19b20 20 30 29 3b 0a 20 20 61 73 73 65 72 74 28 72 63 0);. assert(rc
19b30 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 7c 7c 20 70 ==SQLITE_OK || p
19b40 53 74 6d 74 3d 3d 30 29 3b 0a 20 20 69 66 28 20 Stmt==0);. if(
19b50 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f sqlite3TestErrCo
19b60 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 de(interp, db, r
19b70 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f c) ) return TCL_
19b80 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 21 ERROR;. if( rc!
19b90 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 =SQLITE_OK ){.
19ba0 20 20 61 73 73 65 72 74 28 20 70 53 74 6d 74 3d assert( pStmt=
19bb0 3d 30 20 29 3b 0a 20 20 20 20 73 70 72 69 6e 74 =0 );. sprint
19bc0 66 28 7a 42 75 66 2c 20 22 28 25 64 29 20 22 2c f(zBuf, "(%d) ",
19bd0 20 72 63 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 rc);. Tcl_Ap
19be0 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
19bf0 70 2c 20 7a 42 75 66 2c 20 73 71 6c 69 74 65 33 p, zBuf, sqlite3
19c00 5f 65 72 72 6d 73 67 28 64 62 29 2c 20 30 29 3b _errmsg(db), 0);
19c10 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
19c20 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 ERROR;. }.. if
19c30 28 20 70 53 74 6d 74 20 29 7b 0a 20 20 20 20 69 ( pStmt ){. i
19c40 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 4d 61 f( sqlite3TestMa
19c50 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 kePointerStr(int
19c60 65 72 70 2c 20 7a 42 75 66 2c 20 70 53 74 6d 74 erp, zBuf, pStmt
19c70 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
19c80 52 52 4f 52 3b 0a 20 20 20 20 54 63 6c 5f 41 70 RROR;. Tcl_Ap
19c90 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
19ca0 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 7d p, zBuf, 0);. }
19cb0 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
19cc0 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
19cd0 3a 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 : sqlite3_prepar
19ce0 65 31 36 20 44 42 20 73 71 6c 20 62 79 74 65 73 e16 DB sql bytes
19cf0 20 74 61 69 6c 76 61 72 0a 2a 2a 0a 2a 2a 20 43 tailvar.**.** C
19d00 6f 6d 70 69 6c 65 20 75 70 20 74 6f 20 3c 62 79 ompile up to <by
19d10 74 65 73 3e 20 62 79 74 65 73 20 6f 66 20 74 68 tes> bytes of th
19d20 65 20 73 75 70 70 6c 69 65 64 20 53 51 4c 20 73 e supplied SQL s
19d30 74 72 69 6e 67 20 3c 73 71 6c 3e 20 75 73 69 6e tring <sql> usin
19d40 67 0a 2a 2a 20 64 61 74 61 62 61 73 65 20 68 61 g.** database ha
19d50 6e 64 6c 65 20 3c 44 42 3e 2e 20 54 68 65 20 70 ndle <DB>. The p
19d60 61 72 61 6d 65 74 65 72 20 3c 74 61 69 6c 76 61 arameter <tailva
19d70 6c 3e 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f l> is the name o
19d80 66 20 61 20 67 6c 6f 62 61 6c 0a 2a 2a 20 76 61 f a global.** va
19d90 72 69 61 62 6c 65 20 74 68 61 74 20 69 73 20 73 riable that is s
19da0 65 74 20 74 6f 20 74 68 65 20 75 6e 75 73 65 64 et to the unused
19db0 20 70 6f 72 74 69 6f 6e 20 6f 66 20 3c 73 71 6c portion of <sql
19dc0 3e 20 28 69 66 20 61 6e 79 29 2e 20 41 0a 2a 2a > (if any). A.**
19dd0 20 53 54 4d 54 20 68 61 6e 64 6c 65 20 69 73 20 STMT handle is
19de0 72 65 74 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 returned..*/.sta
19df0 74 69 63 20 69 6e 74 20 74 65 73 74 5f 70 72 65 tic int test_pre
19e00 70 61 72 65 31 36 28 0a 20 20 76 6f 69 64 20 2a pare16(. void *
19e10 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
19e20 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
19e30 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
19e40 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
19e50 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 objv[].){.#ifnde
19e60 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 f SQLITE_OMIT_UT
19e70 46 31 36 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 F16. sqlite3 *d
19e80 62 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 b;. const void
19e90 2a 7a 53 71 6c 3b 0a 20 20 63 6f 6e 73 74 20 76 *zSql;. const v
19ea0 6f 69 64 20 2a 7a 54 61 69 6c 20 3d 20 30 3b 0a oid *zTail = 0;.
19eb0 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 54 61 69 6c Tcl_Obj *pTail
19ec0 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f = 0;. sqlite3_
19ed0 73 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 30 3b stmt *pStmt = 0;
19ee0 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 5d . char zBuf[50]
19ef0 3b 20 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 ; . int rc;. i
19f00 6e 74 20 62 79 74 65 73 3b 20 20 20 20 20 20 20 nt bytes;
19f10 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 /* The
19f20 69 6e 74 65 67 65 72 20 73 70 65 63 69 66 69 65 integer specifie
19f30 64 20 61 73 20 61 72 67 20 33 20 2a 2f 0a 20 20 d as arg 3 */.
19f40 69 6e 74 20 6f 62 6a 6c 65 6e 3b 20 20 20 20 20 int objlen;
19f50 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 /* The
19f60 20 62 79 74 65 2d 61 72 72 61 79 20 6c 65 6e 67 byte-array leng
19f70 74 68 20 6f 66 20 61 72 67 20 32 20 2a 2f 0a 0a th of arg 2 */..
19f80 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 26 26 if( objc!=5 &&
19f90 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 objc!=4 ){.
19fa0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
19fb0 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
19fc0 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
19fd0 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 e \"", . T
19fe0 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
19ff0 76 5b 30 5d 29 2c 20 22 20 44 42 20 73 71 6c 20 v[0]), " DB sql
1a000 62 79 74 65 73 20 3f 74 61 69 6c 76 61 72 3f 22 bytes ?tailvar?"
1a010 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
1a020 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
1a030 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
1a040 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
1a050 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
1a060 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ), &db) ) return
1a070 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 53 TCL_ERROR;. zS
1a080 71 6c 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 ql = Tcl_GetByte
1a090 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a ArrayFromObj(obj
1a0a0 76 5b 32 5d 2c 20 26 6f 62 6a 6c 65 6e 29 3b 0a v[2], &objlen);.
1a0b0 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
1a0c0 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
1a0d0 6f 62 6a 76 5b 33 5d 2c 20 26 62 79 74 65 73 29 objv[3], &bytes)
1a0e0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
1a0f0 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c ROR;.. rc = sql
1a100 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 28 64 ite3_prepare16(d
1a110 62 2c 20 7a 53 71 6c 2c 20 62 79 74 65 73 2c 20 b, zSql, bytes,
1a120 26 70 53 74 6d 74 2c 20 6f 62 6a 63 3e 3d 35 20 &pStmt, objc>=5
1a130 3f 20 26 7a 54 61 69 6c 20 3a 20 30 29 3b 0a 20 ? &zTail : 0);.
1a140 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
1a150 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
1a160 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e db, rc) ) return
1a170 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
1a180 28 20 72 63 20 29 7b 0a 20 20 20 20 72 65 74 75 ( rc ){. retu
1a190 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1a1a0 7d 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3e 3d 35 }.. if( objc>=5
1a1b0 20 29 7b 0a 20 20 20 20 69 66 28 20 7a 54 61 69 ){. if( zTai
1a1c0 6c 20 29 7b 0a 20 20 20 20 20 20 6f 62 6a 6c 65 l ){. objle
1a1d0 6e 20 3d 20 6f 62 6a 6c 65 6e 20 2d 20 28 69 6e n = objlen - (in
1a1e0 74 29 28 28 75 38 20 2a 29 7a 54 61 69 6c 2d 28 t)((u8 *)zTail-(
1a1f0 75 38 20 2a 29 7a 53 71 6c 29 3b 0a 20 20 20 20 u8 *)zSql);.
1a200 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 6f 62 6a }else{. obj
1a210 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 len = 0;. }.
1a220 20 20 20 70 54 61 69 6c 20 3d 20 54 63 6c 5f 4e pTail = Tcl_N
1a230 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28 28 ewByteArrayObj((
1a240 75 38 20 2a 29 7a 54 61 69 6c 2c 20 6f 62 6a 6c u8 *)zTail, objl
1a250 65 6e 29 3b 0a 20 20 20 20 54 63 6c 5f 49 6e 63 en);. Tcl_Inc
1a260 72 52 65 66 43 6f 75 6e 74 28 70 54 61 69 6c 29 rRefCount(pTail)
1a270 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 53 65 74 ;. Tcl_ObjSet
1a280 56 61 72 32 28 69 6e 74 65 72 70 2c 20 6f 62 6a Var2(interp, obj
1a290 76 5b 34 5d 2c 20 30 2c 20 70 54 61 69 6c 2c 20 v[4], 0, pTail,
1a2a0 30 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 0);. Tcl_Decr
1a2b0 52 65 66 43 6f 75 6e 74 28 70 54 61 69 6c 29 3b RefCount(pTail);
1a2c0 0a 20 20 7d 0a 0a 20 20 69 66 28 20 70 53 74 6d . }.. if( pStm
1a2d0 74 20 29 7b 0a 20 20 20 20 69 66 28 20 73 71 6c t ){. if( sql
1a2e0 69 74 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e ite3TestMakePoin
1a2f0 74 65 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a terStr(interp, z
1a300 42 75 66 2c 20 70 53 74 6d 74 29 20 29 20 72 65 Buf, pStmt) ) re
1a310 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1a320 20 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 }. Tcl_Append
1a330 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a Result(interp, z
1a340 42 75 66 2c 20 30 29 3b 0a 23 65 6e 64 69 66 20 Buf, 0);.#endif
1a350 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 /* SQLITE_OMIT_U
1a360 54 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e TF16 */. return
1a370 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
1a380 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
1a390 5f 70 72 65 70 61 72 65 31 36 5f 76 32 20 44 42 _prepare16_v2 DB
1a3a0 20 73 71 6c 20 62 79 74 65 73 20 3f 74 61 69 6c sql bytes ?tail
1a3b0 76 61 72 3f 0a 2a 2a 0a 2a 2a 20 43 6f 6d 70 69 var?.**.** Compi
1a3c0 6c 65 20 75 70 20 74 6f 20 3c 62 79 74 65 73 3e le up to <bytes>
1a3d0 20 62 79 74 65 73 20 6f 66 20 74 68 65 20 73 75 bytes of the su
1a3e0 70 70 6c 69 65 64 20 53 51 4c 20 73 74 72 69 6e pplied SQL strin
1a3f0 67 20 3c 73 71 6c 3e 20 75 73 69 6e 67 0a 2a 2a g <sql> using.**
1a400 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 database handle
1a410 20 3c 44 42 3e 2e 20 54 68 65 20 70 61 72 61 6d <DB>. The param
1a420 65 74 65 72 20 3c 74 61 69 6c 76 61 6c 3e 20 69 eter <tailval> i
1a430 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 s the name of a
1a440 67 6c 6f 62 61 6c 0a 2a 2a 20 76 61 72 69 61 62 global.** variab
1a450 6c 65 20 74 68 61 74 20 69 73 20 73 65 74 20 74 le that is set t
1a460 6f 20 74 68 65 20 75 6e 75 73 65 64 20 70 6f 72 o the unused por
1a470 74 69 6f 6e 20 6f 66 20 3c 73 71 6c 3e 20 28 69 tion of <sql> (i
1a480 66 20 61 6e 79 29 2e 20 41 0a 2a 2a 20 53 54 4d f any). A.** STM
1a490 54 20 68 61 6e 64 6c 65 20 69 73 20 72 65 74 75 T handle is retu
1a4a0 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 rned..*/.static
1a4b0 69 6e 74 20 74 65 73 74 5f 70 72 65 70 61 72 65 int test_prepare
1a4c0 31 36 5f 76 32 28 0a 20 20 76 6f 69 64 20 2a 20 16_v2(. void *
1a4d0 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
1a4e0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1a4f0 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
1a500 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
1a510 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 bjv[].){.#ifndef
1a520 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 SQLITE_OMIT_UTF
1a530 31 36 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 16. sqlite3 *db
1a540 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a ;. const void *
1a550 7a 53 71 6c 3b 0a 20 20 63 6f 6e 73 74 20 76 6f zSql;. const vo
1a560 69 64 20 2a 7a 54 61 69 6c 20 3d 20 30 3b 0a 20 id *zTail = 0;.
1a570 20 54 63 6c 5f 4f 62 6a 20 2a 70 54 61 69 6c 20 Tcl_Obj *pTail
1a580 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 = 0;. sqlite3_s
1a590 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 30 3b 0a tmt *pStmt = 0;.
1a5a0 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 5d 3b char zBuf[50];
1a5b0 20 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e . int rc;. in
1a5c0 74 20 62 79 74 65 73 3b 20 20 20 20 20 20 20 20 t bytes;
1a5d0 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 69 /* The i
1a5e0 6e 74 65 67 65 72 20 73 70 65 63 69 66 69 65 64 nteger specified
1a5f0 20 61 73 20 61 72 67 20 33 20 2a 2f 0a 20 20 69 as arg 3 */. i
1a600 6e 74 20 6f 62 6a 6c 65 6e 3b 20 20 20 20 20 20 nt objlen;
1a610 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 /* The
1a620 62 79 74 65 2d 61 72 72 61 79 20 6c 65 6e 67 74 byte-array lengt
1a630 68 20 6f 66 20 61 72 67 20 32 20 2a 2f 0a 0a 20 h of arg 2 */..
1a640 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 26 26 20 if( objc!=5 &&
1a650 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 objc!=4 ){. T
1a660 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1a670 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
1a680 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
1a690 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 \"", . Tc
1a6a0 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
1a6b0 5b 30 5d 29 2c 20 22 20 44 42 20 73 71 6c 20 62 [0]), " DB sql b
1a6c0 79 74 65 73 20 3f 74 61 69 6c 76 61 72 3f 22 2c ytes ?tailvar?",
1a6d0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
1a6e0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
1a6f0 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
1a700 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
1a710 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
1a720 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
1a730 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 53 71 TCL_ERROR;. zSq
1a740 6c 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41 l = Tcl_GetByteA
1a750 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 rrayFromObj(objv
1a760 5b 32 5d 2c 20 26 6f 62 6a 6c 65 6e 29 3b 0a 20 [2], &objlen);.
1a770 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
1a780 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
1a790 62 6a 76 5b 33 5d 2c 20 26 62 79 74 65 73 29 20 bjv[3], &bytes)
1a7a0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1a7b0 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 OR;.. rc = sqli
1a7c0 74 65 33 5f 70 72 65 70 61 72 65 31 36 5f 76 32 te3_prepare16_v2
1a7d0 28 64 62 2c 20 7a 53 71 6c 2c 20 62 79 74 65 73 (db, zSql, bytes
1a7e0 2c 20 26 70 53 74 6d 74 2c 20 6f 62 6a 63 3e 3d , &pStmt, objc>=
1a7f0 35 20 3f 20 26 7a 54 61 69 6c 20 3a 20 30 29 3b 5 ? &zTail : 0);
1a800 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 . if( sqlite3Te
1a810 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 stErrCode(interp
1a820 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 , db, rc) ) retu
1a830 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1a840 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 72 65 if( rc ){. re
1a850 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1a860 20 20 7d 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3e }.. if( objc>
1a870 3d 35 20 29 7b 0a 20 20 20 20 69 66 28 20 7a 54 =5 ){. if( zT
1a880 61 69 6c 20 29 7b 0a 20 20 20 20 20 20 6f 62 6a ail ){. obj
1a890 6c 65 6e 20 3d 20 6f 62 6a 6c 65 6e 20 2d 20 28 len = objlen - (
1a8a0 69 6e 74 29 28 28 75 38 20 2a 29 7a 54 61 69 6c int)((u8 *)zTail
1a8b0 2d 28 75 38 20 2a 29 7a 53 71 6c 29 3b 0a 20 20 -(u8 *)zSql);.
1a8c0 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 6f }else{. o
1a8d0 62 6a 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 7d bjlen = 0;. }
1a8e0 0a 20 20 20 20 70 54 61 69 6c 20 3d 20 54 63 6c . pTail = Tcl
1a8f0 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a _NewByteArrayObj
1a900 28 28 75 38 20 2a 29 7a 54 61 69 6c 2c 20 6f 62 ((u8 *)zTail, ob
1a910 6a 6c 65 6e 29 3b 0a 20 20 20 20 54 63 6c 5f 49 jlen);. Tcl_I
1a920 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 54 61 69 ncrRefCount(pTai
1a930 6c 29 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 53 l);. Tcl_ObjS
1a940 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 6f etVar2(interp, o
1a950 62 6a 76 5b 34 5d 2c 20 30 2c 20 70 54 61 69 6c bjv[4], 0, pTail
1a960 2c 20 30 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 , 0);. Tcl_De
1a970 63 72 52 65 66 43 6f 75 6e 74 28 70 54 61 69 6c crRefCount(pTail
1a980 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 70 53 );. }.. if( pS
1a990 74 6d 74 20 29 7b 0a 20 20 20 20 69 66 28 20 73 tmt ){. if( s
1a9a0 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 50 6f qlite3TestMakePo
1a9b0 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 2c interStr(interp,
1a9c0 20 7a 42 75 66 2c 20 70 53 74 6d 74 29 20 29 20 zBuf, pStmt) )
1a9d0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1a9e0 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 ;. }. Tcl_Appe
1a9f0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1aa00 20 7a 42 75 66 2c 20 30 29 3b 0a 23 65 6e 64 69 zBuf, 0);.#endi
1aa10 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 f /* SQLITE_OMIT
1aa20 5f 55 54 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 _UTF16 */. retu
1aa30 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
1aa40 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
1aa50 65 33 5f 6f 70 65 6e 20 66 69 6c 65 6e 61 6d 65 e3_open filename
1aa60 20 3f 6f 70 74 69 6f 6e 73 2d 6c 69 73 74 3f 0a ?options-list?.
1aa70 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
1aa80 73 74 5f 6f 70 65 6e 28 0a 20 20 76 6f 69 64 20 st_open(. void
1aa90 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
1aaa0 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
1aab0 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
1aac0 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
1aad0 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 63 6f 6e objv[].){. con
1aae0 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 st char *zFilena
1aaf0 6d 65 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 me;. sqlite3 *d
1ab00 62 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 31 b;. char zBuf[1
1ab10 30 30 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 00];.. if( objc
1ab20 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d 32 20 26 !=3 && objc!=2 &
1ab30 26 20 6f 62 6a 63 21 3d 31 20 29 7b 0a 20 20 20 & objc!=1 ){.
1ab40 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1ab50 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
1ab60 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
1ab70 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 be \"", .
1ab80 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
1ab90 6a 76 5b 30 5d 29 2c 20 22 20 66 69 6c 65 6e 61 jv[0]), " filena
1aba0 6d 65 20 6f 70 74 69 6f 6e 73 2d 6c 69 73 74 22 me options-list"
1abb0 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
1abc0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
1abd0 0a 20 20 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 6f . zFilename = o
1abe0 62 6a 63 3e 31 20 3f 20 54 63 6c 5f 47 65 74 53 bjc>1 ? Tcl_GetS
1abf0 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 20 3a tring(objv[1]) :
1ac00 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 6f 70 0;. sqlite3_op
1ac10 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 26 64 en(zFilename, &d
1ac20 62 29 3b 0a 20 20 0a 20 20 69 66 28 20 73 71 6c b);. . if( sql
1ac30 69 74 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e ite3TestMakePoin
1ac40 74 65 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a terStr(interp, z
1ac50 42 75 66 2c 20 64 62 29 20 29 20 72 65 74 75 72 Buf, db) ) retur
1ac60 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 n TCL_ERROR;. T
1ac70 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1ac80 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 interp, zBuf, 0)
1ac90 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
1aca0 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
1acb0 65 3a 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f e: sqlite3_open_
1acc0 76 32 20 46 49 4c 45 4e 41 4d 45 20 46 4c 41 47 v2 FILENAME FLAG
1acd0 53 20 56 46 53 0a 2a 2f 0a 73 74 61 74 69 63 20 S VFS.*/.static
1ace0 69 6e 74 20 74 65 73 74 5f 6f 70 65 6e 5f 76 32 int test_open_v2
1acf0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
1ad00 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
1ad10 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
1ad20 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
1ad30 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
1ad40 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 .){. const char
1ad50 20 2a 7a 46 69 6c 65 6e 61 6d 65 3b 0a 20 20 63 *zFilename;. c
1ad60 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 66 73 3b onst char *zVfs;
1ad70 0a 20 20 69 6e 74 20 66 6c 61 67 73 20 3d 20 30 . int flags = 0
1ad80 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b ;. sqlite3 *db;
1ad90 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 . int rc;. cha
1ada0 72 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 0a 20 20 r zBuf[100];..
1adb0 69 6e 74 20 6e 46 6c 61 67 3b 0a 20 20 54 63 6c int nFlag;. Tcl
1adc0 5f 4f 62 6a 20 2a 2a 61 70 46 6c 61 67 3b 0a 20 _Obj **apFlag;.
1add0 20 69 6e 74 20 69 3b 0a 0a 20 20 69 66 28 20 6f int i;.. if( o
1ade0 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 bjc!=4 ){. Tc
1adf0 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
1ae00 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
1ae10 22 46 49 4c 45 4e 41 4d 45 20 46 4c 41 47 53 20 "FILENAME FLAGS
1ae20 56 46 53 22 29 3b 0a 20 20 20 20 72 65 74 75 72 VFS");. retur
1ae30 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
1ae40 0a 20 20 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 54 . zFilename = T
1ae50 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
1ae60 76 5b 31 5d 29 3b 0a 20 20 7a 56 66 73 20 3d 20 v[1]);. zVfs =
1ae70 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
1ae80 6a 76 5b 33 5d 29 3b 0a 20 20 69 66 28 20 7a 56 jv[3]);. if( zV
1ae90 66 73 5b 30 5d 3d 3d 30 78 30 30 20 29 20 7a 56 fs[0]==0x00 ) zV
1aea0 66 73 20 3d 20 30 3b 0a 0a 20 20 72 63 20 3d 20 fs = 0;.. rc =
1aeb0 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c Tcl_ListObjGetEl
1aec0 65 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f ements(interp, o
1aed0 62 6a 76 5b 32 5d 2c 20 26 6e 46 6c 61 67 2c 20 bjv[2], &nFlag,
1aee0 26 61 70 46 6c 61 67 29 3b 0a 20 20 69 66 28 20 &apFlag);. if(
1aef0 72 63 21 3d 54 43 4c 5f 4f 4b 20 29 20 72 65 74 rc!=TCL_OK ) ret
1af00 75 72 6e 20 72 63 3b 0a 20 20 66 6f 72 28 69 3d urn rc;. for(i=
1af10 30 3b 20 69 3c 6e 46 6c 61 67 3b 20 69 2b 2b 29 0; i<nFlag; i++)
1af20 7b 0a 20 20 20 20 69 6e 74 20 69 46 6c 61 67 3b {. int iFlag;
1af30 0a 20 20 20 20 73 74 72 75 63 74 20 4f 70 65 6e . struct Open
1af40 46 6c 61 67 20 7b 0a 20 20 20 20 20 20 63 6f 6e Flag {. con
1af50 73 74 20 63 68 61 72 20 2a 7a 46 6c 61 67 3b 0a st char *zFlag;.
1af60 20 20 20 20 20 20 69 6e 74 20 66 6c 61 67 3b 0a int flag;.
1af70 20 20 20 20 7d 20 61 46 6c 61 67 5b 5d 20 3d 20 } aFlag[] =
1af80 7b 0a 20 20 20 20 20 20 7b 20 22 53 51 4c 49 54 {. { "SQLIT
1af90 45 5f 4f 50 45 4e 5f 52 45 41 44 4f 4e 4c 59 22 E_OPEN_READONLY"
1afa0 2c 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 52 45 , SQLITE_OPEN_RE
1afb0 41 44 4f 4e 4c 59 20 7d 2c 0a 20 20 20 20 20 20 ADONLY },.
1afc0 7b 20 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 52 { "SQLITE_OPEN_R
1afd0 45 41 44 57 52 49 54 45 22 2c 20 53 51 4c 49 54 EADWRITE", SQLIT
1afe0 45 5f 4f 50 45 4e 5f 52 45 41 44 57 52 49 54 45 E_OPEN_READWRITE
1aff0 20 7d 2c 0a 20 20 20 20 20 20 7b 20 22 53 51 4c },. { "SQL
1b000 49 54 45 5f 4f 50 45 4e 5f 43 52 45 41 54 45 22 ITE_OPEN_CREATE"
1b010 2c 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 43 52 , SQLITE_OPEN_CR
1b020 45 41 54 45 20 7d 2c 0a 20 20 20 20 20 20 7b 20 EATE },. {
1b030 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 44 45 4c "SQLITE_OPEN_DEL
1b040 45 54 45 4f 4e 43 4c 4f 53 45 22 2c 20 53 51 4c ETEONCLOSE", SQL
1b050 49 54 45 5f 4f 50 45 4e 5f 44 45 4c 45 54 45 4f ITE_OPEN_DELETEO
1b060 4e 43 4c 4f 53 45 20 7d 2c 0a 20 20 20 20 20 20 NCLOSE },.
1b070 7b 20 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 45 { "SQLITE_OPEN_E
1b080 58 43 4c 55 53 49 56 45 22 2c 20 53 51 4c 49 54 XCLUSIVE", SQLIT
1b090 45 5f 4f 50 45 4e 5f 45 58 43 4c 55 53 49 56 45 E_OPEN_EXCLUSIVE
1b0a0 20 7d 2c 0a 20 20 20 20 20 20 7b 20 22 53 51 4c },. { "SQL
1b0b0 49 54 45 5f 4f 50 45 4e 5f 41 55 54 4f 50 52 4f ITE_OPEN_AUTOPRO
1b0c0 58 59 22 2c 20 53 51 4c 49 54 45 5f 4f 50 45 4e XY", SQLITE_OPEN
1b0d0 5f 41 55 54 4f 50 52 4f 58 59 20 7d 2c 0a 20 20 _AUTOPROXY },.
1b0e0 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 4f 50 { "SQLITE_OP
1b0f0 45 4e 5f 4d 41 49 4e 5f 44 42 22 2c 20 53 51 4c EN_MAIN_DB", SQL
1b100 49 54 45 5f 4f 50 45 4e 5f 4d 41 49 4e 5f 44 42 ITE_OPEN_MAIN_DB
1b110 20 7d 2c 0a 20 20 20 20 20 20 7b 20 22 53 51 4c },. { "SQL
1b120 49 54 45 5f 4f 50 45 4e 5f 54 45 4d 50 5f 44 42 ITE_OPEN_TEMP_DB
1b130 22 2c 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 54 ", SQLITE_OPEN_T
1b140 45 4d 50 5f 44 42 20 7d 2c 0a 20 20 20 20 20 20 EMP_DB },.
1b150 7b 20 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 54 { "SQLITE_OPEN_T
1b160 52 41 4e 53 49 45 4e 54 5f 44 42 22 2c 20 53 51 RANSIENT_DB", SQ
1b170 4c 49 54 45 5f 4f 50 45 4e 5f 54 52 41 4e 53 49 LITE_OPEN_TRANSI
1b180 45 4e 54 5f 44 42 20 7d 2c 0a 20 20 20 20 20 20 ENT_DB },.
1b190 7b 20 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 4d { "SQLITE_OPEN_M
1b1a0 41 49 4e 5f 4a 4f 55 52 4e 41 4c 22 2c 20 53 51 AIN_JOURNAL", SQ
1b1b0 4c 49 54 45 5f 4f 50 45 4e 5f 4d 41 49 4e 5f 4a LITE_OPEN_MAIN_J
1b1c0 4f 55 52 4e 41 4c 20 7d 2c 0a 20 20 20 20 20 20 OURNAL },.
1b1d0 7b 20 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 54 { "SQLITE_OPEN_T
1b1e0 45 4d 50 5f 4a 4f 55 52 4e 41 4c 22 2c 20 53 51 EMP_JOURNAL", SQ
1b1f0 4c 49 54 45 5f 4f 50 45 4e 5f 54 45 4d 50 5f 4a LITE_OPEN_TEMP_J
1b200 4f 55 52 4e 41 4c 20 7d 2c 0a 20 20 20 20 20 20 OURNAL },.
1b210 7b 20 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 53 { "SQLITE_OPEN_S
1b220 55 42 4a 4f 55 52 4e 41 4c 22 2c 20 53 51 4c 49 UBJOURNAL", SQLI
1b230 54 45 5f 4f 50 45 4e 5f 53 55 42 4a 4f 55 52 4e TE_OPEN_SUBJOURN
1b240 41 4c 20 7d 2c 0a 20 20 20 20 20 20 7b 20 22 53 AL },. { "S
1b250 51 4c 49 54 45 5f 4f 50 45 4e 5f 4d 41 53 54 45 QLITE_OPEN_MASTE
1b260 52 5f 4a 4f 55 52 4e 41 4c 22 2c 20 53 51 4c 49 R_JOURNAL", SQLI
1b270 54 45 5f 4f 50 45 4e 5f 4d 41 53 54 45 52 5f 4a TE_OPEN_MASTER_J
1b280 4f 55 52 4e 41 4c 20 7d 2c 0a 20 20 20 20 20 20 OURNAL },.
1b290 7b 20 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 4e { "SQLITE_OPEN_N
1b2a0 4f 4d 55 54 45 58 22 2c 20 53 51 4c 49 54 45 5f OMUTEX", SQLITE_
1b2b0 4f 50 45 4e 5f 4e 4f 4d 55 54 45 58 20 7d 2c 0a OPEN_NOMUTEX },.
1b2c0 20 20 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f { "SQLITE_
1b2d0 4f 50 45 4e 5f 46 55 4c 4c 4d 55 54 45 58 22 2c OPEN_FULLMUTEX",
1b2e0 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 46 55 4c SQLITE_OPEN_FUL
1b2f0 4c 4d 55 54 45 58 20 7d 2c 0a 20 20 20 20 20 20 LMUTEX },.
1b300 7b 20 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 53 { "SQLITE_OPEN_S
1b310 48 41 52 45 44 43 41 43 48 45 22 2c 20 53 51 4c HAREDCACHE", SQL
1b320 49 54 45 5f 4f 50 45 4e 5f 53 48 41 52 45 44 43 ITE_OPEN_SHAREDC
1b330 41 43 48 45 20 7d 2c 0a 20 20 20 20 20 20 7b 20 ACHE },. {
1b340 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 50 52 49 "SQLITE_OPEN_PRI
1b350 56 41 54 45 43 41 43 48 45 22 2c 20 53 51 4c 49 VATECACHE", SQLI
1b360 54 45 5f 4f 50 45 4e 5f 50 52 49 56 41 54 45 43 TE_OPEN_PRIVATEC
1b370 41 43 48 45 20 7d 2c 0a 20 20 20 20 20 20 7b 20 ACHE },. {
1b380 22 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 57 41 4c "SQLITE_OPEN_WAL
1b390 22 2c 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 57 ", SQLITE_OPEN_W
1b3a0 41 4c 20 7d 2c 0a 20 20 20 20 20 20 7b 20 22 53 AL },. { "S
1b3b0 51 4c 49 54 45 5f 4f 50 45 4e 5f 55 52 49 22 2c QLITE_OPEN_URI",
1b3c0 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 55 52 49 SQLITE_OPEN_URI
1b3d0 20 7d 2c 0a 20 20 20 20 20 20 7b 20 30 2c 20 30 },. { 0, 0
1b3e0 20 7d 0a 20 20 20 20 7d 3b 0a 20 20 20 20 72 63 }. };. rc
1b3f0 20 3d 20 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 = Tcl_GetIndexF
1b400 72 6f 6d 4f 62 6a 53 74 72 75 63 74 28 69 6e 74 romObjStruct(int
1b410 65 72 70 2c 20 61 70 46 6c 61 67 5b 69 5d 2c 20 erp, apFlag[i],
1b420 61 46 6c 61 67 2c 20 73 69 7a 65 6f 66 28 61 46 aFlag, sizeof(aF
1b430 6c 61 67 5b 30 5d 29 2c 20 0a 20 20 20 20 20 20 lag[0]), .
1b440 20 20 22 66 6c 61 67 22 2c 20 30 2c 20 26 69 46 "flag", 0, &iF
1b450 6c 61 67 0a 20 20 20 20 29 3b 0a 20 20 20 20 69 lag. );. i
1b460 66 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20 29 20 f( rc!=TCL_OK )
1b470 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 66 return rc;. f
1b480 6c 61 67 73 20 7c 3d 20 61 46 6c 61 67 5b 69 46 lags |= aFlag[iF
1b490 6c 61 67 5d 2e 66 6c 61 67 3b 0a 20 20 7d 0a 0a lag].flag;. }..
1b4a0 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 6f rc = sqlite3_o
1b4b0 70 65 6e 5f 76 32 28 7a 46 69 6c 65 6e 61 6d 65 pen_v2(zFilename
1b4c0 2c 20 26 64 62 2c 20 66 6c 61 67 73 2c 20 7a 56 , &db, flags, zV
1b4d0 66 73 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 fs);. if( sqlit
1b4e0 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 e3TestMakePointe
1b4f0 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 rStr(interp, zBu
1b500 66 2c 20 64 62 29 20 29 20 72 65 74 75 72 6e 20 f, db) ) return
1b510 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c TCL_ERROR;. Tcl
1b520 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1b530 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a terp, zBuf, 0);.
1b540 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1b550 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
1b560 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 31 36 20 sqlite3_open16
1b570 66 69 6c 65 6e 61 6d 65 20 6f 70 74 69 6f 6e 73 filename options
1b580 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
1b590 65 73 74 5f 6f 70 65 6e 31 36 28 0a 20 20 76 6f est_open16(. vo
1b5a0 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
1b5b0 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1b5c0 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
1b5d0 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
1b5e0 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 NST objv[].){.#i
1b5f0 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
1b600 54 5f 55 54 46 31 36 0a 20 20 63 6f 6e 73 74 20 T_UTF16. const
1b610 76 6f 69 64 20 2a 7a 46 69 6c 65 6e 61 6d 65 3b void *zFilename;
1b620 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
1b630 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30 5d char zBuf[100]
1b640 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 ;.. if( objc!=3
1b650 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
1b660 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1b670 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
1b680 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a should be \"", .
1b690 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
1b6a0 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 ring(objv[0]), "
1b6b0 20 66 69 6c 65 6e 61 6d 65 20 6f 70 74 69 6f 6e filename option
1b6c0 73 2d 6c 69 73 74 22 2c 20 30 29 3b 0a 20 20 20 s-list", 0);.
1b6d0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1b6e0 52 3b 0a 20 20 7d 0a 0a 20 20 7a 46 69 6c 65 6e R;. }.. zFilen
1b6f0 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 ame = Tcl_GetByt
1b700 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 eArrayFromObj(ob
1b710 6a 76 5b 31 5d 2c 20 30 29 3b 0a 20 20 73 71 6c jv[1], 0);. sql
1b720 69 74 65 33 5f 6f 70 65 6e 31 36 28 7a 46 69 6c ite3_open16(zFil
1b730 65 6e 61 6d 65 2c 20 26 64 62 29 3b 0a 20 20 0a ename, &db);. .
1b740 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 if( sqlite3Tes
1b750 74 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 tMakePointerStr(
1b760 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 64 62 interp, zBuf, db
1b770 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
1b780 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 41 70 70 65 RROR;. Tcl_Appe
1b790 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1b7a0 20 7a 42 75 66 2c 20 30 29 3b 0a 23 65 6e 64 69 zBuf, 0);.#endi
1b7b0 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 f /* SQLITE_OMIT
1b7c0 5f 55 54 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 _UTF16 */. retu
1b7d0 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
1b7e0 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
1b7f0 65 33 5f 63 6f 6d 70 6c 65 74 65 31 36 20 3c 55 e3_complete16 <U
1b800 54 46 2d 31 36 20 73 74 72 69 6e 67 3e 0a 2a 2a TF-16 string>.**
1b810 0a 2a 2a 20 52 65 74 75 72 6e 20 31 20 69 66 20 .** Return 1 if
1b820 74 68 65 20 73 75 70 70 6c 69 65 64 20 61 72 67 the supplied arg
1b830 75 6d 65 6e 74 20 69 73 20 61 20 63 6f 6d 70 6c ument is a compl
1b840 65 74 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e ete SQL statemen
1b850 74 2c 20 6f 72 20 7a 65 72 6f 0a 2a 2a 20 6f 74 t, or zero.** ot
1b860 68 65 72 77 69 73 65 2e 0a 2a 2f 0a 73 74 61 74 herwise..*/.stat
1b870 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6d 70 ic int test_comp
1b880 6c 65 74 65 31 36 28 0a 20 20 76 6f 69 64 20 2a lete16(. void *
1b890 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
1b8a0 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1b8b0 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
1b8c0 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
1b8d0 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 20 21 64 objv[].){.#if !d
1b8e0 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d efined(SQLITE_OM
1b8f0 49 54 5f 43 4f 4d 50 4c 45 54 45 29 20 26 26 20 IT_COMPLETE) &&
1b900 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f !defined(SQLITE_
1b910 4f 4d 49 54 5f 55 54 46 31 36 29 0a 20 20 63 68 OMIT_UTF16). ch
1b920 61 72 20 2a 7a 42 75 66 3b 0a 0a 20 20 69 66 28 ar *zBuf;.. if(
1b930 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
1b940 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
1b950 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
1b960 2c 20 22 3c 75 74 66 2d 31 36 20 73 71 6c 3e 22 , "<utf-16 sql>"
1b970 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1b980 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
1b990 7a 42 75 66 20 3d 20 28 63 68 61 72 2a 29 54 63 zBuf = (char*)Tc
1b9a0 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 l_GetByteArrayFr
1b9b0 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 30 omObj(objv[1], 0
1b9c0 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 );. Tcl_SetObjR
1b9d0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
1b9e0 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 l_NewIntObj(sqli
1b9f0 74 65 33 5f 63 6f 6d 70 6c 65 74 65 31 36 28 7a te3_complete16(z
1ba00 42 75 66 29 29 29 3b 0a 23 65 6e 64 69 66 20 2f Buf)));.#endif /
1ba10 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f * SQLITE_OMIT_CO
1ba20 4d 50 4c 45 54 45 20 26 26 20 53 51 4c 49 54 45 MPLETE && SQLITE
1ba30 5f 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a 20 _OMIT_UTF16 */.
1ba40 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
1ba50 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
1ba60 73 71 6c 69 74 65 33 5f 73 74 65 70 20 53 54 4d sqlite3_step STM
1ba70 54 0a 2a 2a 0a 2a 2a 20 41 64 76 61 6e 63 65 20 T.**.** Advance
1ba80 74 68 65 20 73 74 61 74 65 6d 65 6e 74 20 74 6f the statement to
1ba90 20 74 68 65 20 6e 65 78 74 20 72 6f 77 2e 0a 2a the next row..*
1baa0 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
1bab0 74 5f 73 74 65 70 28 0a 20 20 76 6f 69 64 20 2a t_step(. void *
1bac0 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
1bad0 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1bae0 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
1baf0 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
1bb00 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
1bb10 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
1bb20 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 . int rc;.. if
1bb30 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
1bb40 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1bb50 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
1bb60 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
1bb70 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 be \"", .
1bb80 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
1bb90 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 22 2c jv[0]), " STMT",
1bba0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
1bbb0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
1bbc0 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
1bbd0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
1bbe0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
1bbf0 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
1bc00 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1bc10 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
1bc20 73 74 65 70 28 70 53 74 6d 74 29 3b 0a 0a 20 20 step(pStmt);..
1bc30 2f 2a 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 /* if( rc!=SQLIT
1bc40 45 5f 44 4f 4e 45 20 26 26 20 72 63 21 3d 53 51 E_DONE && rc!=SQ
1bc50 4c 49 54 45 5f 52 4f 57 20 29 20 72 65 74 75 72 LITE_ROW ) retur
1bc60 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 20 2a 2f 0a n TCL_ERROR; */.
1bc70 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
1bc80 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
1bc90 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c t1ErrorName(rc),
1bca0 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 0);. return TC
1bcb0 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 L_OK;.}..static
1bcc0 69 6e 74 20 74 65 73 74 5f 73 71 6c 28 0a 20 20 int test_sql(.
1bcd0 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
1bce0 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
1bcf0 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
1bd00 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
1bd10 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
1bd20 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
1bd30 70 53 74 6d 74 3b 0a 0a 20 20 69 66 28 20 6f 62 pStmt;.. if( ob
1bd40 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
1bd50 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
1bd60 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
1bd70 53 54 4d 54 22 29 3b 0a 20 20 20 20 72 65 74 75 STMT");. retu
1bd80 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1bd90 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }.. if( getStmt
1bda0 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
1bdb0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
1bdc0 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 jv[1]), &pStmt)
1bdd0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1bde0 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 OR;. Tcl_SetRes
1bdf0 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 ult(interp, (cha
1be00 72 20 2a 29 73 71 6c 69 74 65 33 5f 73 71 6c 28 r *)sqlite3_sql(
1be10 70 53 74 6d 74 29 2c 20 54 43 4c 5f 56 4f 4c 41 pStmt), TCL_VOLA
1be20 54 49 4c 45 29 3b 0a 20 20 72 65 74 75 72 6e 20 TILE);. return
1be30 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
1be40 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
1be50 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 20 53 54 4d column_count STM
1be60 54 20 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 T .**.** Return
1be70 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f the number of co
1be80 6c 75 6d 6e 73 20 72 65 74 75 72 6e 65 64 20 62 lumns returned b
1be90 79 20 74 68 65 20 73 71 6c 20 73 74 61 74 65 6d y the sql statem
1bea0 65 6e 74 20 53 54 4d 54 2e 0a 2a 2f 0a 73 74 61 ent STMT..*/.sta
1beb0 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c tic int test_col
1bec0 75 6d 6e 5f 63 6f 75 6e 74 28 0a 20 20 76 6f 69 umn_count(. voi
1bed0 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
1bee0 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
1bef0 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
1bf00 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
1bf10 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
1bf20 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
1bf30 6d 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 mt;.. if( objc!
1bf40 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
1bf50 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1bf60 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
1bf70 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
1bf80 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
1bf90 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
1bfa0 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c " STMT column",
1bfb0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
1bfc0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
1bfd0 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
1bfe0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
1bff0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
1c000 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
1c010 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1c020 0a 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 .. Tcl_SetObjRe
1c030 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
1c040 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 _NewIntObj(sqlit
1c050 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 28 e3_column_count(
1c060 70 53 74 6d 74 29 29 29 3b 0a 20 20 72 65 74 75 pStmt)));. retu
1c070 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
1c080 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
1c090 65 33 5f 63 6f 6c 75 6d 6e 5f 74 79 70 65 20 53 e3_column_type S
1c0a0 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a TMT column.**.**
1c0b0 20 52 65 74 75 72 6e 20 74 68 65 20 74 79 70 65 Return the type
1c0c0 20 6f 66 20 74 68 65 20 64 61 74 61 20 69 6e 20 of the data in
1c0d0 63 6f 6c 75 6d 6e 20 27 63 6f 6c 75 6d 6e 27 20 column 'column'
1c0e0 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 of the current r
1c0f0 6f 77 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ow..*/.static in
1c100 74 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 74 79 t test_column_ty
1c110 70 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 pe(. void * cli
1c120 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
1c130 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
1c140 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
1c150 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
1c160 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f [].){. sqlite3_
1c170 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 stmt *pStmt;. i
1c180 6e 74 20 63 6f 6c 3b 0a 20 20 69 6e 74 20 74 70 nt col;. int tp
1c190 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 ;.. if( objc!=3
1c1a0 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
1c1b0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1c1c0 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
1c1d0 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a should be \"", .
1c1e0 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
1c1f0 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 ring(objv[0]), "
1c200 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 STMT column", 0
1c210 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1c220 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
1c230 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
1c240 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
1c250 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
1c260 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
1c270 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1c280 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
1c290 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
1c2a0 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 20 bjv[2], &col) )
1c2b0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1c2c0 3b 0a 0a 20 20 74 70 20 3d 20 73 71 6c 69 74 65 ;.. tp = sqlite
1c2d0 33 5f 63 6f 6c 75 6d 6e 5f 74 79 70 65 28 70 53 3_column_type(pS
1c2e0 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 73 77 69 tmt, col);. swi
1c2f0 74 63 68 28 20 74 70 20 29 7b 0a 20 20 20 20 63 tch( tp ){. c
1c300 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 ase SQLITE_INTEG
1c310 45 52 3a 20 0a 20 20 20 20 20 20 54 63 6c 5f 53 ER: . Tcl_S
1c320 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
1c330 20 22 49 4e 54 45 47 45 52 22 2c 20 54 43 4c 5f "INTEGER", TCL_
1c340 53 54 41 54 49 43 29 3b 20 0a 20 20 20 20 20 20 STATIC); .
1c350 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
1c360 53 51 4c 49 54 45 5f 4e 55 4c 4c 3a 0a 20 20 20 SQLITE_NULL:.
1c370 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
1c380 28 69 6e 74 65 72 70 2c 20 22 4e 55 4c 4c 22 2c (interp, "NULL",
1c390 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 20 0a 20 TCL_STATIC); .
1c3a0 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
1c3b0 63 61 73 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41 case SQLITE_FLOA
1c3c0 54 3a 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 T:. Tcl_Set
1c3d0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
1c3e0 46 4c 4f 41 54 22 2c 20 54 43 4c 5f 53 54 41 54 FLOAT", TCL_STAT
1c3f0 49 43 29 3b 20 0a 20 20 20 20 20 20 62 72 65 61 IC); . brea
1c400 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
1c410 54 45 5f 54 45 58 54 3a 0a 20 20 20 20 20 20 54 TE_TEXT:. T
1c420 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
1c430 65 72 70 2c 20 22 54 45 58 54 22 2c 20 54 43 4c erp, "TEXT", TCL
1c440 5f 53 54 41 54 49 43 29 3b 20 0a 20 20 20 20 20 _STATIC); .
1c450 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
1c460 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 0a 20 20 SQLITE_BLOB:.
1c470 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c Tcl_SetResul
1c480 74 28 69 6e 74 65 72 70 2c 20 22 42 4c 4f 42 22 t(interp, "BLOB"
1c490 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 20 0a , TCL_STATIC); .
1c4a0 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
1c4b0 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 default:.
1c4c0 61 73 73 65 72 74 28 30 29 3b 0a 20 20 7d 0a 0a assert(0);. }..
1c4d0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1c4e0 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
1c4f0 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
1c500 69 6e 74 36 34 20 53 54 4d 54 20 63 6f 6c 75 6d int64 STMT colum
1c510 6e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 n.**.** Return t
1c520 68 65 20 64 61 74 61 20 69 6e 20 63 6f 6c 75 6d he data in colum
1c530 6e 20 27 63 6f 6c 75 6d 6e 27 20 6f 66 20 74 68 n 'column' of th
1c540 65 20 63 75 72 72 65 6e 74 20 72 6f 77 20 63 61 e current row ca
1c550 73 74 20 61 73 20 61 6e 0a 2a 2a 20 77 69 64 65 st as an.** wide
1c560 20 28 36 34 2d 62 69 74 29 20 69 6e 74 65 67 65 (64-bit) intege
1c570 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 r..*/.static int
1c580 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 test_column_int
1c590 36 34 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 64(. void * cli
1c5a0 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
1c5b0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
1c5c0 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
1c5d0 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
1c5e0 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f [].){. sqlite3_
1c5f0 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 stmt *pStmt;. i
1c600 6e 74 20 63 6f 6c 3b 0a 20 20 69 36 34 20 69 56 nt col;. i64 iV
1c610 61 6c 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 al;.. if( objc!
1c620 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =3 ){. Tcl_Ap
1c630 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1c640 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
1c650 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
1c660 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
1c670 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
1c680 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c " STMT column",
1c690 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
1c6a0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
1c6b0 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
1c6c0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
1c6d0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
1c6e0 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
1c6f0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1c700 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
1c710 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
1c720 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 objv[2], &col)
1c730 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1c740 4f 52 3b 0a 0a 20 20 69 56 61 6c 20 3d 20 73 71 OR;.. iVal = sq
1c750 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 lite3_column_int
1c760 36 34 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 64(pStmt, col);.
1c770 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
1c780 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e lt(interp, Tcl_N
1c790 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 69 56 61 ewWideIntObj(iVa
1c7a0 6c 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 l));. return TC
1c7b0 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
1c7c0 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f sage: sqlite3_co
1c7d0 6c 75 6d 6e 5f 62 6c 6f 62 20 53 54 4d 54 20 63 lumn_blob STMT c
1c7e0 6f 6c 75 6d 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 olumn.*/.static
1c7f0 69 6e 74 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f int test_column_
1c800 62 6c 6f 62 28 0a 20 20 76 6f 69 64 20 2a 20 63 blob(. void * c
1c810 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
1c820 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1c830 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
1c840 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
1c850 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
1c860 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
1c870 20 69 6e 74 20 63 6f 6c 3b 0a 0a 20 20 69 6e 74 int col;.. int
1c880 20 6c 65 6e 3b 0a 20 20 63 6f 6e 73 74 20 76 6f len;. const vo
1c890 69 64 20 2a 70 42 6c 6f 62 3b 0a 0a 20 20 69 66 id *pBlob;.. if
1c8a0 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 ( objc!=3 ){.
1c8b0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1c8c0 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
1c8d0 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
1c8e0 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 be \"", .
1c8f0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
1c900 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 jv[0]), " STMT c
1c910 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 olumn", 0);.
1c920 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1c930 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 ;. }.. if( get
1c940 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
1c950 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
1c960 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
1c970 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
1c980 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 _ERROR;. if( Tc
1c990 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
1c9a0 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
1c9b0 20 26 63 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 &col) ) return
1c9c0 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 6c 65 TCL_ERROR;.. le
1c9d0 6e 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 n = sqlite3_colu
1c9e0 6d 6e 5f 62 79 74 65 73 28 70 53 74 6d 74 2c 20 mn_bytes(pStmt,
1c9f0 63 6f 6c 29 3b 0a 20 20 70 42 6c 6f 62 20 3d 20 col);. pBlob =
1ca00 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 sqlite3_column_b
1ca10 6c 6f 62 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b lob(pStmt, col);
1ca20 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 . Tcl_SetObjRes
1ca30 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
1ca40 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28 NewByteArrayObj(
1ca50 70 42 6c 6f 62 2c 20 6c 65 6e 29 29 3b 0a 20 20 pBlob, len));.
1ca60 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
1ca70 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 ../*.** Usage: s
1ca80 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 6f qlite3_column_do
1ca90 75 62 6c 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e uble STMT column
1caa0 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 .**.** Return th
1cab0 65 20 64 61 74 61 20 69 6e 20 63 6f 6c 75 6d 6e e data in column
1cac0 20 27 63 6f 6c 75 6d 6e 27 20 6f 66 20 74 68 65 'column' of the
1cad0 20 63 75 72 72 65 6e 74 20 72 6f 77 20 63 61 73 current row cas
1cae0 74 20 61 73 20 61 20 64 6f 75 62 6c 65 2e 0a 2a t as a double..*
1caf0 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
1cb00 74 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 6c 65 28 t_column_double(
1cb10 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
1cb20 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
1cb30 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
1cb40 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
1cb50 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
1cb60 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
1cb70 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 t *pStmt;. int
1cb80 63 6f 6c 3b 0a 20 20 64 6f 75 62 6c 65 20 72 56 col;. double rV
1cb90 61 6c 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 al;.. if( objc!
1cba0 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =3 ){. Tcl_Ap
1cbb0 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1cbc0 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
1cbd0 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
1cbe0 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
1cbf0 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
1cc00 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c " STMT column",
1cc10 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
1cc20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
1cc30 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
1cc40 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
1cc50 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
1cc60 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
1cc70 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1cc80 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
1cc90 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
1cca0 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 objv[2], &col)
1ccb0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1ccc0 4f 52 3b 0a 0a 20 20 72 56 61 6c 20 3d 20 73 71 OR;.. rVal = sq
1ccd0 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 lite3_column_dou
1cce0 62 6c 65 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b ble(pStmt, col);
1ccf0 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 . Tcl_SetObjRes
1cd00 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
1cd10 4e 65 77 44 6f 75 62 6c 65 4f 62 6a 28 72 56 61 NewDoubleObj(rVa
1cd20 6c 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 l));. return TC
1cd30 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
1cd40 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 64 61 sage: sqlite3_da
1cd50 74 61 5f 63 6f 75 6e 74 20 53 54 4d 54 20 0a 2a ta_count STMT .*
1cd60 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 *.** Return the
1cd70 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e number of column
1cd80 73 20 72 65 74 75 72 6e 65 64 20 62 79 20 74 68 s returned by th
1cd90 65 20 73 71 6c 20 73 74 61 74 65 6d 65 6e 74 20 e sql statement
1cda0 53 54 4d 54 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 STMT..*/.static
1cdb0 69 6e 74 20 74 65 73 74 5f 64 61 74 61 5f 63 6f int test_data_co
1cdc0 75 6e 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c unt(. void * cl
1cdd0 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
1cde0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
1cdf0 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
1ce00 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
1ce10 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
1ce20 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 _stmt *pStmt;..
1ce30 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a if( objc!=2 ){.
1ce40 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
1ce50 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
1ce60 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
1ce70 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
1ce80 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
1ce90 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d (objv[0]), " STM
1cea0 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 T column", 0);.
1ceb0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
1cec0 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
1ced0 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
1cee0 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
1cef0 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
1cf00 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
1cf10 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 54 63 TCL_ERROR;.. Tc
1cf20 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
1cf30 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e nterp, Tcl_NewIn
1cf40 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f 64 61 74 tObj(sqlite3_dat
1cf50 61 5f 63 6f 75 6e 74 28 70 53 74 6d 74 29 29 29 a_count(pStmt)))
1cf60 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
1cf70 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
1cf80 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d e: sqlite3_colum
1cf90 6e 5f 74 65 78 74 20 53 54 4d 54 20 63 6f 6c 75 n_text STMT colu
1cfa0 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 mn.**.** Usage:
1cfb0 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 sqlite3_column_d
1cfc0 65 63 6c 74 79 70 65 20 53 54 4d 54 20 63 6f 6c ecltype STMT col
1cfd0 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a umn.**.** Usage:
1cfe0 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
1cff0 6e 61 6d 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e name STMT column
1d000 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
1d010 65 73 74 5f 73 74 6d 74 5f 75 74 66 38 28 0a 20 est_stmt_utf8(.
1d020 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
1d030 74 61 2c 20 20 20 20 20 20 20 20 2f 2a 20 50 6f ta, /* Po
1d040 69 6e 74 65 72 20 74 6f 20 53 51 4c 69 74 65 20 inter to SQLite
1d050 41 50 49 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 API function to
1d060 62 65 20 69 6e 76 6f 6b 65 20 2a 2f 0a 20 20 54 be invoke */. T
1d070 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1d080 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
1d090 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
1d0a0 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
1d0b0 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
1d0c0 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 63 6f . int col;. co
1d0d0 6e 73 74 20 63 68 61 72 20 2a 28 2a 78 46 75 6e nst char *(*xFun
1d0e0 63 29 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a c)(sqlite3_stmt*
1d0f0 2c 20 69 6e 74 29 3b 0a 20 20 63 6f 6e 73 74 20 , int);. const
1d100 63 68 61 72 20 2a 7a 52 65 74 3b 0a 0a 20 20 78 char *zRet;.. x
1d110 46 75 6e 63 20 3d 20 28 63 6f 6e 73 74 20 63 68 Func = (const ch
1d120 61 72 20 2a 28 2a 29 28 73 71 6c 69 74 65 33 5f ar *(*)(sqlite3_
1d130 73 74 6d 74 2a 2c 20 69 6e 74 29 29 63 6c 69 65 stmt*, int))clie
1d140 6e 74 44 61 74 61 3b 0a 20 20 69 66 28 20 6f 62 ntData;. if( ob
1d150 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c jc!=3 ){. Tcl
1d160 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1d170 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
1d180 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
1d190 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
1d1a0 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
1d1b0 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d ]), " STMT colum
1d1c0 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 n", 0);. retu
1d1d0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1d1e0 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }.. if( getStmt
1d1f0 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
1d200 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
1d210 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 jv[1]), &pStmt)
1d220 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1d230 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
1d240 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
1d250 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f rp, objv[2], &co
1d260 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f l) ) return TCL_
1d270 45 52 52 4f 52 3b 0a 20 20 7a 52 65 74 20 3d 20 ERROR;. zRet =
1d280 78 46 75 6e 63 28 70 53 74 6d 74 2c 20 63 6f 6c xFunc(pStmt, col
1d290 29 3b 0a 20 20 69 66 28 20 7a 52 65 74 20 29 7b );. if( zRet ){
1d2a0 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 . Tcl_SetResu
1d2b0 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
1d2c0 20 2a 29 7a 52 65 74 2c 20 30 29 3b 0a 20 20 7d *)zRet, 0);. }
1d2d0 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
1d2e0 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 ;.}..static int
1d2f0 74 65 73 74 5f 67 6c 6f 62 61 6c 5f 72 65 63 6f test_global_reco
1d300 76 65 72 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c ver(. void * cl
1d310 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
1d320 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
1d330 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
1d340 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
1d350 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 v[].){.#ifndef S
1d360 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 45 50 52 45 QLITE_OMIT_DEPRE
1d370 43 41 54 45 44 0a 20 20 69 6e 74 20 72 63 3b 0a CATED. int rc;.
1d380 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 29 7b if( objc!=1 ){
1d390 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
1d3a0 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
1d3b0 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20 20 objv, "");.
1d3c0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1d3d0 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20 73 71 6c ;. }. rc = sql
1d3e0 69 74 65 33 5f 67 6c 6f 62 61 6c 5f 72 65 63 6f ite3_global_reco
1d3f0 76 65 72 28 29 3b 0a 20 20 54 63 6c 5f 53 65 74 ver();. Tcl_Set
1d400 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 Result(interp, (
1d410 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 char *)t1ErrorNa
1d420 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 me(rc), TCL_STAT
1d430 49 43 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 IC);.#endif. re
1d440 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
1d450 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c /*.** Usage: sql
1d460 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 ite3_column_text
1d470 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a STMT column.**.
1d480 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
1d490 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 3_column_decltyp
1d4a0 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a e STMT column.**
1d4b0 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
1d4c0 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 20 53 e3_column_name S
1d4d0 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2f 0a 73 74 TMT column.*/.st
1d4e0 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 74 atic int test_st
1d4f0 6d 74 5f 75 74 66 31 36 28 0a 20 20 76 6f 69 64 mt_utf16(. void
1d500 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 20 * clientData,
1d510 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f /* Pointer to
1d520 20 53 51 4c 69 74 65 20 41 50 49 20 66 75 6e 63 SQLite API func
1d530 74 69 6f 6e 20 74 6f 20 62 65 20 69 6e 76 6f 6b tion to be invok
1d540 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 ed */. Tcl_Inte
1d550 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
1d560 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
1d570 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
1d580 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 ){.#ifndef SQLIT
1d590 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 73 E_OMIT_UTF16. s
1d5a0 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
1d5b0 6d 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 mt;. int col;.
1d5c0 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a Tcl_Obj *pRet;.
1d5d0 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 4e const void *zN
1d5e0 61 6d 65 31 36 3b 0a 20 20 63 6f 6e 73 74 20 76 ame16;. const v
1d5f0 6f 69 64 20 2a 28 2a 78 46 75 6e 63 29 28 73 71 oid *(*xFunc)(sq
1d600 6c 69 74 65 33 5f 73 74 6d 74 2a 2c 20 69 6e 74 lite3_stmt*, int
1d610 29 3b 0a 0a 20 20 78 46 75 6e 63 20 3d 20 28 63 );.. xFunc = (c
1d620 6f 6e 73 74 20 76 6f 69 64 20 2a 28 2a 29 28 73 onst void *(*)(s
1d630 71 6c 69 74 65 33 5f 73 74 6d 74 2a 2c 20 69 6e qlite3_stmt*, in
1d640 74 29 29 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 t))clientData;.
1d650 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a if( objc!=3 ){.
1d660 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
1d670 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
1d680 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
1d690 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
1d6a0 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
1d6b0 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d (objv[0]), " STM
1d6c0 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 T column", 0);.
1d6d0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
1d6e0 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
1d6f0 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
1d700 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
1d710 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
1d720 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
1d730 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
1d740 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
1d750 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
1d760 32 5d 2c 20 26 63 6f 6c 29 20 29 20 72 65 74 75 2], &col) ) retu
1d770 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
1d780 20 7a 4e 61 6d 65 31 36 20 3d 20 78 46 75 6e 63 zName16 = xFunc
1d790 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 (pStmt, col);.
1d7a0 69 66 28 20 7a 4e 61 6d 65 31 36 20 29 7b 0a 20 if( zName16 ){.
1d7b0 20 20 20 69 6e 74 20 6e 3b 0a 20 20 20 20 63 6f int n;. co
1d7c0 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d 20 7a 4e nst char *z = zN
1d7d0 61 6d 65 31 36 3b 0a 20 20 20 20 66 6f 72 28 6e ame16;. for(n
1d7e0 3d 30 3b 20 7a 5b 6e 5d 20 7c 7c 20 7a 5b 6e 2b =0; z[n] || z[n+
1d7f0 31 5d 3b 20 6e 2b 3d 32 29 7b 7d 0a 20 20 20 20 1]; n+=2){}.
1d800 70 52 65 74 20 3d 20 54 63 6c 5f 4e 65 77 42 79 pRet = Tcl_NewBy
1d810 74 65 41 72 72 61 79 4f 62 6a 28 7a 4e 61 6d 65 teArrayObj(zName
1d820 31 36 2c 20 6e 2b 32 29 3b 0a 20 20 20 20 54 63 16, n+2);. Tc
1d830 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
1d840 6e 74 65 72 70 2c 20 70 52 65 74 29 3b 0a 20 20 nterp, pRet);.
1d850 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 }.#endif /* SQLI
1d860 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f TE_OMIT_UTF16 */
1d870 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f .. return TCL_O
1d880 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
1d890 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d e: sqlite3_colum
1d8a0 6e 5f 69 6e 74 20 53 54 4d 54 20 63 6f 6c 75 6d n_int STMT colum
1d8b0 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 n.**.** Usage: s
1d8c0 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 qlite3_column_by
1d8d0 74 65 73 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a tes STMT column.
1d8e0 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c **.** Usage: sql
1d8f0 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 ite3_column_byte
1d900 73 31 36 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a s16 STMT column.
1d910 2a 2a 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 **.*/.static int
1d920 20 74 65 73 74 5f 73 74 6d 74 5f 69 6e 74 28 0a test_stmt_int(.
1d930 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
1d940 61 74 61 2c 20 20 20 20 2f 2a 20 50 6f 69 6e 74 ata, /* Point
1d950 65 72 20 74 6f 20 53 51 4c 69 74 65 20 41 50 49 er to SQLite API
1d960 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 62 65 20 function to be
1d970 69 6e 76 6f 6b 65 64 20 2a 2f 0a 20 20 54 63 6c invoked */. Tcl
1d980 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1d990 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
1d9a0 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
1d9b0 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
1d9c0 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
1d9d0 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 69 6e 74 20 int col;. int
1d9e0 28 2a 78 46 75 6e 63 29 28 73 71 6c 69 74 65 33 (*xFunc)(sqlite3
1d9f0 5f 73 74 6d 74 2a 2c 20 69 6e 74 29 3b 0a 0a 20 _stmt*, int);..
1da00 20 78 46 75 6e 63 20 3d 20 28 69 6e 74 20 28 2a xFunc = (int (*
1da10 29 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a 2c )(sqlite3_stmt*,
1da20 20 69 6e 74 29 29 63 6c 69 65 6e 74 44 61 74 61 int))clientData
1da30 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 ;. if( objc!=3
1da40 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
1da50 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
1da60 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
1da70 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 hould be \"", .
1da80 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
1da90 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 ing(objv[0]), "
1daa0 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 STMT column", 0)
1dab0 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
1dac0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
1dad0 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 f( getStmtPointe
1dae0 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
1daf0 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
1db00 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
1db10 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1db20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
1db30 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
1db40 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 20 72 jv[2], &col) ) r
1db50 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1db60 0a 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 .. Tcl_SetObjRe
1db70 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
1db80 5f 4e 65 77 49 6e 74 4f 62 6a 28 78 46 75 6e 63 _NewIntObj(xFunc
1db90 28 70 53 74 6d 74 2c 20 63 6f 6c 29 29 29 3b 0a (pStmt, col)));.
1dba0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1dbb0 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
1dbc0 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 6d 61 67 sqlite_set_mag
1dbd0 69 63 20 20 44 42 20 20 4d 41 47 49 43 2d 4e 55 ic DB MAGIC-NU
1dbe0 4d 42 45 52 0a 2a 2a 0a 2a 2a 20 53 65 74 20 74 MBER.**.** Set t
1dbf0 68 65 20 64 62 2d 3e 6d 61 67 69 63 20 76 61 6c he db->magic val
1dc00 75 65 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 ue. This is use
1dc10 64 20 74 6f 20 74 65 73 74 20 65 72 72 6f 72 20 d to test error
1dc20 72 65 63 6f 76 65 72 79 20 6c 6f 67 69 63 2e 0a recovery logic..
1dc30 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 */.static int sq
1dc40 6c 69 74 65 5f 73 65 74 5f 6d 61 67 69 63 28 0a lite_set_magic(.
1dc50 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
1dc60 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
1dc70 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
1dc80 20 61 72 67 63 2c 0a 20 20 63 68 61 72 20 2a 2a argc,. char **
1dc90 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 argv.){. sqlite
1dca0 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 72 67 3 *db;. if( arg
1dcb0 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
1dcc0 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1dcd0 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
1dce0 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
1dcf0 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 ", argv[0],.
1dd00 20 20 20 20 20 22 20 44 42 20 4d 41 47 49 43 22 " DB MAGIC"
1dd10 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
1dd20 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
1dd30 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
1dd40 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
1dd50 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 1], &db) ) retur
1dd60 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
1dd70 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b 32 f( strcmp(argv[2
1dd80 5d 2c 20 22 53 51 4c 49 54 45 5f 4d 41 47 49 43 ], "SQLITE_MAGIC
1dd90 5f 4f 50 45 4e 22 29 3d 3d 30 20 29 7b 0a 20 20 _OPEN")==0 ){.
1dda0 20 20 64 62 2d 3e 6d 61 67 69 63 20 3d 20 53 51 db->magic = SQ
1ddb0 4c 49 54 45 5f 4d 41 47 49 43 5f 4f 50 45 4e 3b LITE_MAGIC_OPEN;
1ddc0 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 . }else if( str
1ddd0 63 6d 70 28 61 72 67 76 5b 32 5d 2c 20 22 53 51 cmp(argv[2], "SQ
1dde0 4c 49 54 45 5f 4d 41 47 49 43 5f 43 4c 4f 53 45 LITE_MAGIC_CLOSE
1ddf0 44 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 64 62 D")==0 ){. db
1de00 2d 3e 6d 61 67 69 63 20 3d 20 53 51 4c 49 54 45 ->magic = SQLITE
1de10 5f 4d 41 47 49 43 5f 43 4c 4f 53 45 44 3b 0a 20 _MAGIC_CLOSED;.
1de20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d }else if( strcm
1de30 70 28 61 72 67 76 5b 32 5d 2c 20 22 53 51 4c 49 p(argv[2], "SQLI
1de40 54 45 5f 4d 41 47 49 43 5f 42 55 53 59 22 29 3d TE_MAGIC_BUSY")=
1de50 3d 30 20 29 7b 0a 20 20 20 20 64 62 2d 3e 6d 61 =0 ){. db->ma
1de60 67 69 63 20 3d 20 53 51 4c 49 54 45 5f 4d 41 47 gic = SQLITE_MAG
1de70 49 43 5f 42 55 53 59 3b 0a 20 20 7d 65 6c 73 65 IC_BUSY;. }else
1de80 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 if( strcmp(argv
1de90 5b 32 5d 2c 20 22 53 51 4c 49 54 45 5f 4d 41 47 [2], "SQLITE_MAG
1dea0 49 43 5f 45 52 52 4f 52 22 29 3d 3d 30 20 29 7b IC_ERROR")==0 ){
1deb0 0a 20 20 20 20 64 62 2d 3e 6d 61 67 69 63 20 3d . db->magic =
1dec0 20 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 45 52 SQLITE_MAGIC_ER
1ded0 52 4f 52 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 ROR;. }else if(
1dee0 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 Tcl_GetInt(inte
1def0 72 70 2c 20 61 72 67 76 5b 32 5d 2c 20 28 69 6e rp, argv[2], (in
1df00 74 2a 29 26 64 62 2d 3e 6d 61 67 69 63 29 20 29 t*)&db->magic) )
1df10 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
1df20 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 _ERROR;. }. re
1df30 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
1df40 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
1df50 6c 69 74 65 33 5f 69 6e 74 65 72 72 75 70 74 20 lite3_interrupt
1df60 20 44 42 20 0a 2a 2a 0a 2a 2a 20 54 72 69 67 67 DB .**.** Trigg
1df70 65 72 20 61 6e 20 69 6e 74 65 72 72 75 70 74 20 er an interrupt
1df80 6f 6e 20 44 42 0a 2a 2f 0a 73 74 61 74 69 63 20 on DB.*/.static
1df90 69 6e 74 20 74 65 73 74 5f 69 6e 74 65 72 72 75 int test_interru
1dfa0 70 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 pt(. void * cli
1dfb0 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
1dfc0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
1dfd0 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 68 61 int argc,. cha
1dfe0 72 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 r **argv.){. sq
1dff0 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 lite3 *db;. if(
1e000 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 argc!=2 ){.
1e010 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1e020 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
1e030 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
1e040 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 e \"", argv[0],
1e050 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 " DB", 0);. r
1e060 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1e070 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
1e080 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
1e090 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 argv[1], &db) )
1e0a0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1e0b0 3b 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 65 ;. sqlite3_inte
1e0c0 72 72 75 70 74 28 64 62 29 3b 0a 20 20 72 65 74 rrupt(db);. ret
1e0d0 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 urn TCL_OK;.}..s
1e0e0 74 61 74 69 63 20 75 38 20 2a 73 71 6c 69 74 65 tatic u8 *sqlite
1e0f0 33 5f 73 74 61 63 6b 5f 62 61 73 65 6c 69 6e 65 3_stack_baseline
1e100 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c = 0;../*.** Fil
1e110 6c 20 74 68 65 20 73 74 61 63 6b 20 77 69 74 68 l the stack with
1e120 20 61 20 6b 6e 6f 77 6e 20 62 69 74 70 61 74 74 a known bitpatt
1e130 65 72 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ern..*/.static v
1e140 6f 69 64 20 70 72 65 70 53 74 61 63 6b 28 76 6f oid prepStack(vo
1e150 69 64 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 id){. int i;.
1e160 75 33 32 20 62 69 67 42 75 66 5b 36 35 35 33 36 u32 bigBuf[65536
1e170 5d 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c ];. for(i=0; i<
1e180 73 69 7a 65 6f 66 28 62 69 67 42 75 66 29 2f 73 sizeof(bigBuf)/s
1e190 69 7a 65 6f 66 28 62 69 67 42 75 66 5b 30 5d 29 izeof(bigBuf[0])
1e1a0 3b 20 69 2b 2b 29 20 62 69 67 42 75 66 5b 69 5d ; i++) bigBuf[i]
1e1b0 20 3d 20 30 78 64 65 61 64 62 65 65 66 3b 0a 20 = 0xdeadbeef;.
1e1c0 20 73 71 6c 69 74 65 33 5f 73 74 61 63 6b 5f 62 sqlite3_stack_b
1e1d0 61 73 65 6c 69 6e 65 20 3d 20 28 75 38 2a 29 26 aseline = (u8*)&
1e1e0 62 69 67 42 75 66 5b 36 35 35 33 36 5d 3b 0a 7d bigBuf[65536];.}
1e1f0 0a 0a 2f 2a 0a 2a 2a 20 47 65 74 20 74 68 65 20 ../*.** Get the
1e200 63 75 72 72 65 6e 74 20 73 74 61 63 6b 20 64 65 current stack de
1e210 70 74 68 2e 20 20 55 73 65 64 20 66 6f 72 20 64 pth. Used for d
1e220 65 62 75 67 67 69 6e 67 20 6f 6e 6c 79 2e 0a 2a ebugging only..*
1e230 2f 0a 75 36 34 20 73 71 6c 69 74 65 33 53 74 61 /.u64 sqlite3Sta
1e240 63 6b 44 65 70 74 68 28 76 6f 69 64 29 7b 0a 20 ckDepth(void){.
1e250 20 75 38 20 78 3b 0a 20 20 72 65 74 75 72 6e 20 u8 x;. return
1e260 28 75 36 34 29 28 73 71 6c 69 74 65 33 5f 73 74 (u64)(sqlite3_st
1e270 61 63 6b 5f 62 61 73 65 6c 69 6e 65 20 2d 20 26 ack_baseline - &
1e280 78 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 x);.}../*.** Usa
1e290 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 73 74 61 ge: sqlite3_sta
1e2a0 63 6b 5f 75 73 65 64 20 44 42 20 53 51 4c 0a 2a ck_used DB SQL.*
1e2b0 2a 0a 2a 2a 20 54 72 79 20 74 6f 20 6d 65 61 73 *.** Try to meas
1e2c0 75 72 65 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f ure the amount o
1e2d0 66 20 73 74 61 63 6b 20 73 70 61 63 65 20 75 73 f stack space us
1e2e0 65 64 20 62 79 20 61 20 63 61 6c 6c 20 74 6f 20 ed by a call to
1e2f0 73 71 6c 69 74 65 33 5f 65 78 65 63 0a 2a 2f 0a sqlite3_exec.*/.
1e300 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
1e310 73 74 61 63 6b 5f 75 73 65 64 28 0a 20 20 76 6f stack_used(. vo
1e320 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
1e330 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1e340 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 67 nterp,. int arg
1e350 63 2c 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 c,. char **argv
1e360 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
1e370 62 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 66 b;. int i;. if
1e380 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 ( argc!=3 ){.
1e390 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1e3a0 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
1e3b0 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
1e3c0 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
1e3d0 20 0a 20 20 20 20 20 20 20 20 22 20 44 42 20 53 . " DB S
1e3e0 51 4c 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 QL", 0);. ret
1e3f0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1e400 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
1e410 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 inter(interp, ar
1e420 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 gv[1], &db) ) re
1e430 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1e440 20 20 70 72 65 70 53 74 61 63 6b 28 29 3b 0a 20 prepStack();.
1e450 20 28 76 6f 69 64 29 73 71 6c 69 74 65 33 5f 65 (void)sqlite3_e
1e460 78 65 63 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c xec(db, argv[2],
1e470 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20 66 6f 72 0, 0, 0);. for
1e480 28 69 3d 36 35 35 33 35 3b 20 69 3e 3d 30 20 26 (i=65535; i>=0 &
1e490 26 20 28 28 75 33 32 2a 29 73 71 6c 69 74 65 33 & ((u32*)sqlite3
1e4a0 5f 73 74 61 63 6b 5f 62 61 73 65 6c 69 6e 65 29 _stack_baseline)
1e4b0 5b 2d 69 5d 3d 3d 30 78 64 65 61 64 62 65 65 66 [-i]==0xdeadbeef
1e4c0 3b 20 69 2d 2d 29 7b 7d 0a 20 20 54 63 6c 5f 53 ; i--){}. Tcl_S
1e4d0 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
1e4e0 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 rp, Tcl_NewIntOb
1e4f0 6a 28 69 2a 34 29 29 3b 0a 20 20 72 65 74 75 72 j(i*4));. retur
1e500 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
1e510 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
1e520 5f 64 65 6c 65 74 65 5f 66 75 6e 63 74 69 6f 6e _delete_function
1e530 20 44 42 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d DB function-nam
1e540 65 0a 2a 2a 0a 2a 2a 20 44 65 6c 65 74 65 20 74 e.**.** Delete t
1e550 68 65 20 75 73 65 72 20 66 75 6e 63 74 69 6f 6e he user function
1e560 20 27 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 27 'function-name'
1e570 20 66 72 6f 6d 20 64 61 74 61 62 61 73 65 20 68 from database h
1e580 61 6e 64 6c 65 20 44 42 2e 20 49 74 0a 2a 2a 20 andle DB. It.**
1e590 69 73 20 61 73 73 75 6d 65 64 20 74 68 61 74 20 is assumed that
1e5a0 74 68 65 20 75 73 65 72 20 66 75 6e 63 74 69 6f the user functio
1e5b0 6e 20 77 61 73 20 63 72 65 61 74 65 64 20 61 73 n was created as
1e5c0 20 55 54 46 38 2c 20 61 6e 79 20 6e 75 6d 62 65 UTF8, any numbe
1e5d0 72 20 6f 66 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 r of.** argument
1e5e0 73 20 28 74 68 65 20 77 61 79 20 74 68 65 20 54 s (the way the T
1e5f0 43 4c 20 69 6e 74 65 72 66 61 63 65 20 64 6f 65 CL interface doe
1e600 73 20 69 74 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 s it)..*/.static
1e610 20 69 6e 74 20 64 65 6c 65 74 65 5f 66 75 6e 63 int delete_func
1e620 74 69 6f 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63 tion(. void * c
1e630 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
1e640 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1e650 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 . int argc,. c
1e660 68 61 72 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 har **argv.){.
1e670 69 6e 74 20 72 63 3b 0a 20 20 73 71 6c 69 74 65 int rc;. sqlite
1e680 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 72 67 3 *db;. if( arg
1e690 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
1e6a0 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1e6b0 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
1e6c0 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
1e6d0 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 ", argv[0], .
1e6e0 20 20 20 20 20 22 20 44 42 20 66 75 6e 63 74 69 " DB functi
1e6f0 6f 6e 2d 6e 61 6d 65 22 2c 20 30 29 3b 0a 20 20 on-name", 0);.
1e700 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
1e710 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
1e720 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
1e730 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
1e740 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
1e750 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 ROR;. rc = sqli
1e760 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 te3_create_funct
1e770 69 6f 6e 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c ion(db, argv[2],
1e780 20 2d 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 -1, SQLITE_UTF8
1e790 2c 20 30 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 , 0, 0, 0, 0);.
1e7a0 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
1e7b0 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 74 nterp, (char *)t
1e7c0 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 1ErrorName(rc),
1e7d0 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 72 TCL_STATIC);. r
1e7e0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
1e7f0 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
1e800 6c 69 74 65 5f 64 65 6c 65 74 65 5f 63 6f 6c 6c lite_delete_coll
1e810 61 74 69 6f 6e 20 44 42 20 63 6f 6c 6c 61 74 69 ation DB collati
1e820 6f 6e 2d 6e 61 6d 65 0a 2a 2a 0a 2a 2a 20 44 65 on-name.**.** De
1e830 6c 65 74 65 20 74 68 65 20 63 6f 6c 6c 61 74 69 lete the collati
1e840 6f 6e 20 73 65 71 75 65 6e 63 65 20 27 63 6f 6c on sequence 'col
1e850 6c 61 74 69 6f 6e 2d 6e 61 6d 65 27 20 66 72 6f lation-name' fro
1e860 6d 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c m database handl
1e870 65 20 0a 2a 2a 20 44 42 2e 20 49 74 20 69 73 20 e .** DB. It is
1e880 61 73 73 75 6d 65 64 20 74 68 61 74 20 74 68 65 assumed that the
1e890 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 collation seque
1e8a0 6e 63 65 20 77 61 73 20 63 72 65 61 74 65 64 20 nce was created
1e8b0 61 73 20 55 54 46 38 20 28 74 68 65 20 0a 2a 2a as UTF8 (the .**
1e8c0 20 77 61 79 20 74 68 65 20 54 43 4c 20 69 6e 74 way the TCL int
1e8d0 65 72 66 61 63 65 20 64 6f 65 73 20 69 74 29 2e erface does it).
1e8e0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 64 .*/.static int d
1e8f0 65 6c 65 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 elete_collation(
1e900 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
1e910 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
1e920 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
1e930 74 20 61 72 67 63 2c 0a 20 20 63 68 61 72 20 2a t argc,. char *
1e940 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 72 *argv.){. int r
1e950 63 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 c;. sqlite3 *db
1e960 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 ;. if( argc!=3
1e970 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
1e980 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
1e990 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
1e9a0 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
1e9b0 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 20 gv[0], .
1e9c0 22 20 44 42 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 " DB function-na
1e9d0 6d 65 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 me", 0);. ret
1e9e0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1e9f0 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
1ea00 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 inter(interp, ar
1ea10 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 gv[1], &db) ) re
1ea20 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1ea30 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 rc = sqlite3_c
1ea40 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 reate_collation(
1ea50 64 62 2c 20 61 72 67 76 5b 32 5d 2c 20 53 51 4c db, argv[2], SQL
1ea60 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 30 29 3b ITE_UTF8, 0, 0);
1ea70 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 . Tcl_SetResult
1ea80 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a (interp, (char *
1ea90 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 )t1ErrorName(rc)
1eaa0 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 , TCL_STATIC);.
1eab0 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
1eac0 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
1ead0 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f sqlite3_get_auto
1eae0 63 6f 6d 6d 69 74 20 44 42 0a 2a 2a 0a 2a 2a 20 commit DB.**.**
1eaf0 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 Return true if t
1eb00 68 65 20 64 61 74 61 62 61 73 65 20 44 42 20 69 he database DB i
1eb10 73 20 63 75 72 72 65 6e 74 6c 79 20 69 6e 20 61 s currently in a
1eb20 75 74 6f 2d 63 6f 6d 6d 69 74 20 6d 6f 64 65 2e uto-commit mode.
1eb30 0a 2a 2a 20 52 65 74 75 72 6e 20 66 61 6c 73 65 .** Return false
1eb40 20 69 66 20 6e 6f 74 2e 0a 2a 2f 0a 73 74 61 74 if not..*/.stat
1eb50 69 63 20 69 6e 74 20 67 65 74 5f 61 75 74 6f 63 ic int get_autoc
1eb60 6f 6d 6d 69 74 28 0a 20 20 76 6f 69 64 20 2a 20 ommit(. void *
1eb70 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
1eb80 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1eb90 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
1eba0 63 68 61 72 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 char **argv.){.
1ebb0 20 63 68 61 72 20 7a 42 75 66 5b 33 30 5d 3b 0a char zBuf[30];.
1ebc0 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
1ebd0 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a if( argc!=2 ){.
1ebe0 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
1ebf0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
1ec00 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
1ec10 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b ld be \"", argv[
1ec20 30 5d 2c 20 0a 20 20 20 20 20 20 20 20 22 20 44 0], . " D
1ec30 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 B", 0);. retu
1ec40 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1ec50 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
1ec60 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 nter(interp, arg
1ec70 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 v[1], &db) ) ret
1ec80 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1ec90 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 sprintf(zBuf, "
1eca0 25 64 22 2c 20 73 71 6c 69 74 65 33 5f 67 65 74 %d", sqlite3_get
1ecb0 5f 61 75 74 6f 63 6f 6d 6d 69 74 28 64 62 29 29 _autocommit(db))
1ecc0 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
1ecd0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 sult(interp, zBu
1ece0 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 f, 0);. return
1ecf0 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
1ed00 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
1ed10 62 75 73 79 5f 74 69 6d 65 6f 75 74 20 44 42 20 busy_timeout DB
1ed20 4d 53 0a 2a 2a 0a 2a 2a 20 53 65 74 20 74 68 65 MS.**.** Set the
1ed30 20 62 75 73 79 20 74 69 6d 65 6f 75 74 2e 20 20 busy timeout.
1ed40 54 68 69 73 20 69 73 20 6d 6f 72 65 20 65 61 73 This is more eas
1ed50 69 6c 79 20 64 6f 6e 65 20 75 73 69 6e 67 20 74 ily done using t
1ed60 68 65 20 74 69 6d 65 6f 75 74 0a 2a 2a 20 6d 65 he timeout.** me
1ed70 74 68 6f 64 20 6f 66 20 74 68 65 20 54 43 4c 20 thod of the TCL
1ed80 69 6e 74 65 72 66 61 63 65 2e 20 20 42 75 74 20 interface. But
1ed90 77 65 20 6e 65 65 64 20 61 20 77 61 79 20 74 6f we need a way to
1eda0 20 74 65 73 74 20 74 68 65 20 63 61 73 65 0a 2a test the case.*
1edb0 2a 20 77 68 65 72 65 20 69 74 20 72 65 74 75 72 * where it retur
1edc0 6e 73 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 ns SQLITE_MISUSE
1edd0 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
1ede0 74 65 73 74 5f 62 75 73 79 5f 74 69 6d 65 6f 75 test_busy_timeou
1edf0 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 t(. void * clie
1ee00 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
1ee10 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
1ee20 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 68 61 72 int argc,. char
1ee30 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 **argv.){. int
1ee40 20 72 63 2c 20 6d 73 3b 0a 20 20 73 71 6c 69 74 rc, ms;. sqlit
1ee50 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 72 e3 *db;. if( ar
1ee60 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c gc!=3 ){. Tcl
1ee70 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1ee80 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
1ee90 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
1eea0 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 "", argv[0], .
1eeb0 20 20 20 20 20 20 22 20 44 42 22 2c 20 30 29 3b " DB", 0);
1eec0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
1eed0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
1eee0 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
1eef0 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 terp, argv[1], &
1ef00 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
1ef10 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 _ERROR;. if( Tc
1ef20 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c l_GetInt(interp,
1ef30 20 61 72 67 76 5b 32 5d 2c 20 26 6d 73 29 20 29 argv[2], &ms) )
1ef40 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1ef50 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 R;. rc = sqlite
1ef60 33 5f 62 75 73 79 5f 74 69 6d 65 6f 75 74 28 64 3_busy_timeout(d
1ef70 62 2c 20 6d 73 29 3b 0a 20 20 54 63 6c 5f 41 70 b, ms);. Tcl_Ap
1ef80 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1ef90 70 2c 20 73 71 6c 69 74 65 33 45 72 72 4e 61 6d p, sqlite3ErrNam
1efa0 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 65 74 e(rc), 0);. ret
1efb0 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
1efc0 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 74 63 6c *.** Usage: tcl
1efd0 5f 76 61 72 69 61 62 6c 65 5f 74 79 70 65 20 56 _variable_type V
1efe0 41 52 49 41 42 4c 45 4e 41 4d 45 0a 2a 2a 0a 2a ARIABLENAME.**.*
1eff0 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d * Return the nam
1f000 65 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6e 61 e of the interna
1f010 6c 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e l representation
1f020 20 66 6f 72 20 74 68 65 0a 2a 2a 20 76 61 6c 75 for the.** valu
1f030 65 20 6f 66 20 74 68 65 20 67 69 76 65 6e 20 76 e of the given v
1f040 61 72 69 61 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 ariable..*/.stat
1f050 69 63 20 69 6e 74 20 74 63 6c 5f 76 61 72 69 61 ic int tcl_varia
1f060 62 6c 65 5f 74 79 70 65 28 0a 20 20 76 6f 69 64 ble_type(. void
1f070 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
1f080 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1f090 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
1f0a0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
1f0b0 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 54 63 T objv[].){. Tc
1f0c0 6c 5f 4f 62 6a 20 2a 70 56 61 72 3b 0a 20 20 69 l_Obj *pVar;. i
1f0d0 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 f( objc!=2 ){.
1f0e0 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
1f0f0 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
1f100 6a 76 2c 20 22 56 41 52 49 41 42 4c 45 22 29 3b jv, "VARIABLE");
1f110 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
1f120 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 70 56 61 ERROR;. }. pVa
1f130 72 20 3d 20 54 63 6c 5f 47 65 74 56 61 72 32 45 r = Tcl_GetVar2E
1f140 78 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 x(interp, Tcl_Ge
1f150 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
1f160 2c 20 30 2c 20 54 43 4c 5f 4c 45 41 56 45 5f 45 , 0, TCL_LEAVE_E
1f170 52 52 5f 4d 53 47 29 3b 0a 20 20 69 66 28 20 70 RR_MSG);. if( p
1f180 56 61 72 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 Var==0 ) return
1f190 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
1f1a0 20 70 56 61 72 2d 3e 74 79 70 65 50 74 72 20 29 pVar->typePtr )
1f1b0 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a {. Tcl_SetObj
1f1c0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
1f1d0 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
1f1e0 70 56 61 72 2d 3e 74 79 70 65 50 74 72 2d 3e 6e pVar->typePtr->n
1f1f0 61 6d 65 2c 20 2d 31 29 29 3b 0a 20 20 7d 0a 20 ame, -1));. }.
1f200 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
1f210 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
1f220 20 73 71 6c 69 74 65 33 5f 72 65 6c 65 61 73 65 sqlite3_release
1f230 5f 6d 65 6d 6f 72 79 20 3f 4e 3f 0a 2a 2a 0a 2a _memory ?N?.**.*
1f240 2a 20 41 74 74 65 6d 70 74 20 74 6f 20 72 65 6c * Attempt to rel
1f250 65 61 73 65 20 6d 65 6d 6f 72 79 20 63 75 72 72 ease memory curr
1f260 65 6e 74 6c 79 20 68 65 6c 64 20 62 75 74 20 6e ently held but n
1f270 6f 74 20 61 63 74 75 61 6c 6c 79 20 72 65 71 75 ot actually requ
1f280 69 72 65 64 2e 0a 2a 2a 20 54 68 65 20 69 6e 74 ired..** The int
1f290 65 67 65 72 20 4e 20 69 73 20 74 68 65 20 6e 75 eger N is the nu
1f2a0 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 65 mber of bytes we
1f2b0 20 61 72 65 20 74 72 79 69 6e 67 20 74 6f 20 72 are trying to r
1f2c0 65 6c 65 61 73 65 2e 20 20 54 68 65 20 0a 2a 2a elease. The .**
1f2d0 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 return value is
1f2e0 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 6d the amount of m
1f2f0 65 6d 6f 72 79 20 61 63 74 75 61 6c 6c 79 20 72 emory actually r
1f300 65 6c 65 61 73 65 64 2e 0a 2a 2f 0a 73 74 61 74 eleased..*/.stat
1f310 69 63 20 69 6e 74 20 74 65 73 74 5f 72 65 6c 65 ic int test_rele
1f320 61 73 65 5f 6d 65 6d 6f 72 79 28 0a 20 20 76 6f ase_memory(. vo
1f330 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
1f340 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1f350 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
1f360 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
1f370 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 NST objv[].){.#i
1f380 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 f defined(SQLITE
1f390 5f 45 4e 41 42 4c 45 5f 4d 45 4d 4f 52 59 5f 4d _ENABLE_MEMORY_M
1f3a0 41 4e 41 47 45 4d 45 4e 54 29 20 26 26 20 21 64 ANAGEMENT) && !d
1f3b0 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d efined(SQLITE_OM
1f3c0 49 54 5f 44 49 53 4b 49 4f 29 0a 20 20 69 6e 74 IT_DISKIO). int
1f3d0 20 4e 3b 0a 20 20 69 6e 74 20 61 6d 74 3b 0a 20 N;. int amt;.
1f3e0 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 26 26 20 if( objc!=1 &&
1f3f0 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
1f400 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
1f410 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
1f420 20 22 3f 4e 3f 22 29 3b 0a 20 20 20 20 72 65 74 "?N?");. ret
1f430 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1f440 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d 32 }. if( objc==2
1f450 20 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f ){. if( Tcl_
1f460 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
1f470 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 terp, objv[1], &
1f480 4e 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f N) ) return TCL_
1f490 45 52 52 4f 52 3b 0a 20 20 7d 65 6c 73 65 7b 0a ERROR;. }else{.
1f4a0 20 20 20 20 4e 20 3d 20 2d 31 3b 0a 20 20 7d 0a N = -1;. }.
1f4b0 20 20 61 6d 74 20 3d 20 73 71 6c 69 74 65 33 5f amt = sqlite3_
1f4c0 72 65 6c 65 61 73 65 5f 6d 65 6d 6f 72 79 28 4e release_memory(N
1f4d0 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 );. Tcl_SetObjR
1f4e0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
1f4f0 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 61 6d 74 29 l_NewIntObj(amt)
1f500 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75 );.#endif. retu
1f510 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f rn TCL_OK;.}.../
1f520 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
1f530 69 74 65 33 5f 64 62 5f 72 65 6c 65 61 73 65 5f ite3_db_release_
1f540 6d 65 6d 6f 72 79 20 44 42 0a 2a 2a 0a 2a 2a 20 memory DB.**.**
1f550 41 74 74 65 6d 70 74 20 74 6f 20 72 65 6c 65 61 Attempt to relea
1f560 73 65 20 6d 65 6d 6f 72 79 20 63 75 72 72 65 6e se memory curren
1f570 74 6c 79 20 68 65 6c 64 20 62 79 20 64 61 74 61 tly held by data
1f580 62 61 73 65 20 44 42 2e 20 20 52 65 74 75 72 6e base DB. Return
1f590 20 74 68 65 0a 2a 2a 20 72 65 73 75 6c 74 20 63 the.** result c
1f5a0 6f 64 65 20 28 77 68 69 63 68 20 69 6e 20 74 68 ode (which in th
1f5b0 65 20 63 75 72 72 65 6e 74 20 69 6d 70 6c 65 6d e current implem
1f5c0 65 6e 74 61 74 69 6f 6e 20 69 73 20 61 6c 77 61 entation is alwa
1f5d0 79 73 20 7a 65 72 6f 29 2e 0a 2a 2f 0a 73 74 61 ys zero)..*/.sta
1f5e0 74 69 63 20 69 6e 74 20 74 65 73 74 5f 64 62 5f tic int test_db_
1f5f0 72 65 6c 65 61 73 65 5f 6d 65 6d 6f 72 79 28 0a release_memory(.
1f600 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
1f610 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
1f620 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
1f630 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
1f640 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
1f650 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
1f660 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 . int rc;. if(
1f670 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
1f680 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
1f690 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
1f6a0 2c 20 22 44 42 22 29 3b 0a 20 20 20 20 72 65 74 , "DB");. ret
1f6b0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1f6c0 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
1f6d0 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
1f6e0 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
1f6f0 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 [1]), &db) ) ret
1f700 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1f710 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 64 62 rc = sqlite3_db
1f720 5f 72 65 6c 65 61 73 65 5f 6d 65 6d 6f 72 79 28 _release_memory(
1f730 64 62 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 db);. Tcl_SetOb
1f740 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
1f750 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 63 Tcl_NewIntObj(rc
1f760 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ));. return TCL
1f770 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
1f780 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 64 62 age: sqlite3_db
1f790 5f 66 69 6c 65 6e 61 6d 65 20 44 42 20 44 42 4e _filename DB DBN
1f7a0 41 4d 45 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e AME.**.** Return
1f7b0 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 66 the name of a f
1f7c0 69 6c 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 ile associated w
1f7d0 69 74 68 20 61 20 64 61 74 61 62 61 73 65 2e 0a ith a database..
1f7e0 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
1f7f0 73 74 5f 64 62 5f 66 69 6c 65 6e 61 6d 65 28 0a st_db_filename(.
1f800 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
1f810 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
1f820 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
1f830 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
1f840 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
1f850 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
1f860 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
1f870 44 62 4e 61 6d 65 3b 0a 20 20 69 66 28 20 6f 62 DbName;. if( ob
1f880 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c jc!=3 ){. Tcl
1f890 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
1f8a0 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
1f8b0 44 42 20 44 42 4e 41 4d 45 22 29 3b 0a 20 20 20 DB DBNAME");.
1f8c0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1f8d0 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
1f8e0 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
1f8f0 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
1f900 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 objv[1]), &db) )
1f910 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1f920 52 3b 0a 20 20 7a 44 62 4e 61 6d 65 20 3d 20 54 R;. zDbName = T
1f930 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
1f940 76 5b 32 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 v[2]);. Tcl_App
1f950 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
1f960 2c 20 73 71 6c 69 74 65 33 5f 64 62 5f 66 69 6c , sqlite3_db_fil
1f970 65 6e 61 6d 65 28 64 62 2c 20 7a 44 62 4e 61 6d ename(db, zDbNam
1f980 65 29 2c 20 28 76 6f 69 64 2a 29 30 29 3b 0a 20 e), (void*)0);.
1f990 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
1f9a0 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
1f9b0 20 73 71 6c 69 74 65 33 5f 64 62 5f 72 65 61 64 sqlite3_db_read
1f9c0 6f 6e 6c 79 20 44 42 20 44 42 4e 41 4d 45 0a 2a only DB DBNAME.*
1f9d0 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 31 20 6f 72 *.** Return 1 or
1f9e0 20 30 20 69 66 20 44 42 4e 41 4d 45 20 69 73 20 0 if DBNAME is
1f9f0 72 65 61 64 6f 6e 6c 79 20 6f 72 20 6e 6f 74 2e readonly or not.
1fa00 20 20 52 65 74 75 72 6e 20 2d 31 20 69 66 20 44 Return -1 if D
1fa10 42 4e 41 4d 45 20 64 6f 65 73 0a 2a 2a 20 6e 6f BNAME does.** no
1fa20 74 20 65 78 69 73 74 2e 0a 2a 2f 0a 73 74 61 74 t exist..*/.stat
1fa30 69 63 20 69 6e 74 20 74 65 73 74 5f 64 62 5f 72 ic int test_db_r
1fa40 65 61 64 6f 6e 6c 79 28 0a 20 20 76 6f 69 64 20 eadonly(. void
1fa50 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
1fa60 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
1fa70 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
1fa80 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
1fa90 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
1faa0 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 ite3 *db;. cons
1fab0 74 20 63 68 61 72 20 2a 7a 44 62 4e 61 6d 65 3b t char *zDbName;
1fac0 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 . if( objc!=3 )
1fad0 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
1fae0 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
1faf0 2c 20 6f 62 6a 76 2c 20 22 44 42 20 44 42 4e 41 , objv, "DB DBNA
1fb00 4d 45 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ME");. return
1fb10 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
1fb20 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
1fb30 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
1fb40 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
1fb50 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ), &db) ) return
1fb60 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 44 TCL_ERROR;. zD
1fb70 62 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 bName = Tcl_GetS
1fb80 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a tring(objv[2]);.
1fb90 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
1fba0 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e lt(interp, Tcl_N
1fbb0 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 ewIntObj(sqlite3
1fbc0 5f 64 62 5f 72 65 61 64 6f 6e 6c 79 28 64 62 2c _db_readonly(db,
1fbd0 20 7a 44 62 4e 61 6d 65 29 29 29 3b 0a 20 20 72 zDbName)));. r
1fbe0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
1fbf0 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
1fc00 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 61 70 qlite3_soft_heap
1fc10 5f 6c 69 6d 69 74 20 3f 4e 3f 0a 2a 2a 0a 2a 2a _limit ?N?.**.**
1fc20 20 51 75 65 72 79 20 6f 72 20 73 65 74 20 74 68 Query or set th
1fc30 65 20 73 6f 66 74 20 68 65 61 70 20 6c 69 6d 69 e soft heap limi
1fc40 74 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e t for the curren
1fc50 74 20 74 68 72 65 61 64 2e 20 20 54 68 65 0a 2a t thread. The.*
1fc60 2a 20 6c 69 6d 69 74 20 69 73 20 6f 6e 6c 79 20 * limit is only
1fc70 63 68 61 6e 67 65 64 20 69 66 20 74 68 65 20 4e changed if the N
1fc80 20 69 73 20 70 72 65 73 65 6e 74 2e 20 20 54 68 is present. Th
1fc90 65 20 70 72 65 76 69 6f 75 73 20 6c 69 6d 69 74 e previous limit
1fca0 0a 2a 2a 20 69 73 20 72 65 74 75 72 6e 65 64 2e .** is returned.
1fcb0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
1fcc0 65 73 74 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 est_soft_heap_li
1fcd0 6d 69 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c mit(. void * cl
1fce0 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
1fcf0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
1fd00 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
1fd10 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
1fd20 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
1fd30 5f 69 6e 74 36 34 20 61 6d 74 3b 0a 20 20 54 63 _int64 amt;. Tc
1fd40 6c 5f 57 69 64 65 49 6e 74 20 4e 20 3d 20 2d 31 l_WideInt N = -1
1fd50 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 ;. if( objc!=1
1fd60 26 26 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 && objc!=2 ){.
1fd70 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
1fd80 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
1fd90 6a 76 2c 20 22 3f 4e 3f 22 29 3b 0a 20 20 20 20 jv, "?N?");.
1fda0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1fdb0 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 ;. }. if( objc
1fdc0 3d 3d 32 20 29 7b 0a 20 20 20 20 69 66 28 20 54 ==2 ){. if( T
1fdd0 63 6c 5f 47 65 74 57 69 64 65 49 6e 74 46 72 6f cl_GetWideIntFro
1fde0 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
1fdf0 76 5b 31 5d 2c 20 26 4e 29 20 29 20 72 65 74 75 v[1], &N) ) retu
1fe00 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1fe10 7d 0a 20 20 61 6d 74 20 3d 20 73 71 6c 69 74 65 }. amt = sqlite
1fe20 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 3_soft_heap_limi
1fe30 74 36 34 28 4e 29 3b 0a 20 20 54 63 6c 5f 53 65 t64(N);. Tcl_Se
1fe40 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
1fe50 70 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e p, Tcl_NewWideIn
1fe60 74 4f 62 6a 28 61 6d 74 29 29 3b 0a 20 20 72 65 tObj(amt));. re
1fe70 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
1fe80 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 /*.** Usage: s
1fe90 71 6c 69 74 65 33 5f 74 68 72 65 61 64 5f 63 6c qlite3_thread_cl
1fea0 65 61 6e 75 70 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c eanup.**.** Call
1feb0 20 74 68 65 20 73 71 6c 69 74 65 33 5f 74 68 72 the sqlite3_thr
1fec0 65 61 64 5f 63 6c 65 61 6e 75 70 20 41 50 49 2e ead_cleanup API.
1fed0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
1fee0 65 73 74 5f 74 68 72 65 61 64 5f 63 6c 65 61 6e est_thread_clean
1fef0 75 70 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 up(. void * cli
1ff00 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
1ff10 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
1ff20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
1ff30 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
1ff40 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 [].){.#ifndef SQ
1ff50 4c 49 54 45 5f 4f 4d 49 54 5f 44 45 50 52 45 43 LITE_OMIT_DEPREC
1ff60 41 54 45 44 0a 20 20 73 71 6c 69 74 65 33 5f 74 ATED. sqlite3_t
1ff70 68 72 65 61 64 5f 63 6c 65 61 6e 75 70 28 29 3b hread_cleanup();
1ff80 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e .#endif. return
1ff90 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
1ffa0 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 * Usage: sqlit
1ffb0 65 33 5f 70 61 67 65 72 5f 72 65 66 63 6f 75 6e e3_pager_refcoun
1ffc0 74 73 20 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 ts DB.**.** Ret
1ffd0 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 6e 75 urn a list of nu
1ffe0 6d 62 65 72 73 20 77 68 69 63 68 20 61 72 65 20 mbers which are
1fff0 74 68 65 20 50 61 67 65 72 52 65 66 63 6f 75 6e the PagerRefcoun
20000 74 20 66 6f 72 20 61 6c 6c 0a 2a 2a 20 70 61 67 t for all.** pag
20010 65 72 73 20 6f 6e 20 65 61 63 68 20 64 61 74 61 ers on each data
20020 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e base connection.
20030 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
20040 65 73 74 5f 70 61 67 65 72 5f 72 65 66 63 6f 75 est_pager_refcou
20050 6e 74 73 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c nts(. void * cl
20060 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
20070 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
20080 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
20090 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
200a0 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
200b0 20 2a 64 62 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 *db;. int i;.
200c0 20 69 6e 74 20 76 2c 20 2a 61 3b 0a 20 20 54 63 int v, *a;. Tc
200d0 6c 5f 4f 62 6a 20 2a 70 52 65 73 75 6c 74 3b 0a l_Obj *pResult;.
200e0 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 . if( objc!=2 )
200f0 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
20100 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
20110 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
20120 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 ould be \"",.
20130 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
20140 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 ngFromObj(objv[0
20150 5d 2c 20 30 29 2c 20 22 20 44 42 22 2c 20 30 29 ], 0), " DB", 0)
20160 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
20170 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
20180 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
20190 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
201a0 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
201b0 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
201c0 5f 45 52 52 4f 52 3b 0a 20 20 70 52 65 73 75 6c _ERROR;. pResul
201d0 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 t = Tcl_NewObj()
201e0 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 64 ;. for(i=0; i<d
201f0 62 2d 3e 6e 44 62 3b 20 69 2b 2b 29 7b 0a 20 20 b->nDb; i++){.
20200 20 20 69 66 28 20 64 62 2d 3e 61 44 62 5b 69 5d if( db->aDb[i]
20210 2e 70 42 74 3d 3d 30 20 29 7b 0a 20 20 20 20 20 .pBt==0 ){.
20220 20 76 20 3d 20 2d 31 3b 0a 20 20 20 20 7d 65 6c v = -1;. }el
20230 73 65 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 se{. sqlite
20240 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 3_mutex_enter(db
20250 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 20 20 20 20 ->mutex);.
20260 61 20 3d 20 73 71 6c 69 74 65 33 50 61 67 65 72 a = sqlite3Pager
20270 53 74 61 74 73 28 73 71 6c 69 74 65 33 42 74 72 Stats(sqlite3Btr
20280 65 65 50 61 67 65 72 28 64 62 2d 3e 61 44 62 5b eePager(db->aDb[
20290 69 5d 2e 70 42 74 29 29 3b 0a 20 20 20 20 20 20 i].pBt));.
202a0 76 20 3d 20 61 5b 30 5d 3b 0a 20 20 20 20 20 20 v = a[0];.
202b0 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 sqlite3_mutex_le
202c0 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a ave(db->mutex);.
202d0 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 4c 69 }. Tcl_Li
202e0 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
202f0 6e 74 28 30 2c 20 70 52 65 73 75 6c 74 2c 20 54 nt(0, pResult, T
20300 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 76 29 29 cl_NewIntObj(v))
20310 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f ;. }. Tcl_SetO
20320 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
20330 20 70 52 65 73 75 6c 74 29 3b 0a 20 20 72 65 74 pResult);. ret
20340 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a urn TCL_OK;.}...
20350 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 /*.** tclcmd:
20360 77 6f 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e working_64bit_in
20370 74 0a 2a 2a 0a 2a 2a 20 53 6f 6d 65 20 54 43 4c t.**.** Some TCL
20380 20 62 75 69 6c 64 73 20 28 65 78 3a 20 63 79 67 builds (ex: cyg
20390 77 69 6e 29 20 64 6f 20 6e 6f 74 20 73 75 70 70 win) do not supp
203a0 6f 72 74 20 36 34 2d 62 69 74 20 69 6e 74 65 67 ort 64-bit integ
203b0 65 72 73 2e 20 20 54 68 69 73 0a 2a 2a 20 6c 65 ers. This.** le
203c0 61 64 73 20 74 6f 20 61 20 6e 75 6d 62 65 72 20 ads to a number
203d0 6f 66 20 74 65 73 74 20 66 61 69 6c 75 72 65 73 of test failures
203e0 2e 20 20 54 68 65 20 70 72 65 73 65 6e 74 20 63 . The present c
203f0 6f 6d 6d 61 6e 64 20 63 68 65 63 6b 73 20 74 68 ommand checks th
20400 65 0a 2a 2a 20 54 43 4c 20 62 75 69 6c 64 20 74 e.** TCL build t
20410 6f 20 73 65 65 20 77 68 65 74 68 65 72 20 6f 72 o see whether or
20420 20 6e 6f 74 20 69 74 20 73 75 70 70 6f 72 74 73 not it supports
20430 20 36 34 2d 62 69 74 20 69 6e 74 65 67 65 72 73 64-bit integers
20440 2e 20 20 49 74 0a 2a 2a 20 72 65 74 75 72 6e 73 . It.** returns
20450 20 54 52 55 45 20 69 66 20 69 74 20 64 6f 65 73 TRUE if it does
20460 20 61 6e 64 20 46 41 4c 53 45 20 69 66 20 6e 6f and FALSE if no
20470 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 63 6f t..**.** This co
20480 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f mmand is used to
20490 20 77 61 72 6e 20 75 73 65 72 73 20 74 68 61 74 warn users that
204a0 20 74 68 65 69 72 20 54 43 4c 20 62 75 69 6c 64 their TCL build
204b0 20 69 73 20 64 65 66 65 63 74 69 76 65 0a 2a 2a is defective.**
204c0 20 61 6e 64 20 74 68 61 74 20 74 68 65 20 65 72 and that the er
204d0 72 6f 72 73 20 74 68 65 79 20 61 72 65 20 73 65 rors they are se
204e0 65 69 6e 67 20 69 6e 20 74 68 65 20 74 65 73 74 eing in the test
204f0 20 73 63 72 69 70 74 73 20 6d 69 67 68 74 20 62 scripts might b
20500 65 0a 2a 2a 20 61 20 72 65 73 75 6c 74 20 6f 66 e.** a result of
20510 20 74 68 65 69 72 20 64 65 66 65 63 74 69 76 65 their defective
20520 20 54 43 4c 20 72 61 74 68 65 72 20 74 68 61 6e TCL rather than
20530 20 70 72 6f 62 6c 65 6d 73 20 69 6e 20 53 51 4c problems in SQL
20540 69 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ite..*/.static i
20550 6e 74 20 77 6f 72 6b 69 6e 67 5f 36 34 62 69 74 nt working_64bit
20560 5f 69 6e 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 _int(. ClientDa
20570 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f ta clientData, /
20580 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c * Pointer to sql
20590 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 ite3_enable_XXX
205a0 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 function */. Tc
205b0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
205c0 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
205d0 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
205e0 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
205f0 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f mmand */. int o
20600 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 bjc,
20610 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
20620 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 rguments */. Tc
20630 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
20640 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 v[] /* Command
20650 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a arguments */.){.
20660 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 54 65 73 74 Tcl_Obj *pTest
20670 4f 62 6a 3b 0a 20 20 69 6e 74 20 77 6f 72 6b 69 Obj;. int worki
20680 6e 67 20 3d 20 30 3b 0a 0a 20 20 70 54 65 73 74 ng = 0;.. pTest
20690 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 57 69 64 Obj = Tcl_NewWid
206a0 65 49 6e 74 4f 62 6a 28 31 30 30 30 30 30 30 2a eIntObj(1000000*
206b0 28 69 36 34 29 31 32 33 34 35 36 37 38 39 30 29 (i64)1234567890)
206c0 3b 0a 20 20 77 6f 72 6b 69 6e 67 20 3d 20 73 74 ;. working = st
206d0 72 63 6d 70 28 54 63 6c 5f 47 65 74 53 74 72 69 rcmp(Tcl_GetStri
206e0 6e 67 28 70 54 65 73 74 4f 62 6a 29 2c 20 22 31 ng(pTestObj), "1
206f0 32 33 34 35 36 37 38 39 30 30 30 30 30 30 30 22 234567890000000"
20700 29 3d 3d 30 3b 0a 20 20 54 63 6c 5f 44 65 63 72 )==0;. Tcl_Decr
20710 52 65 66 43 6f 75 6e 74 28 70 54 65 73 74 4f 62 RefCount(pTestOb
20720 6a 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a j);. Tcl_SetObj
20730 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
20740 63 6c 5f 4e 65 77 42 6f 6f 6c 65 61 6e 4f 62 6a cl_NewBooleanObj
20750 28 77 6f 72 6b 69 6e 67 29 29 3b 0a 20 20 72 65 (working));. re
20760 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
20770 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 ./*.** tclcmd:
20780 20 76 66 73 5f 75 6e 6c 69 6e 6b 5f 74 65 73 74 vfs_unlink_test
20790 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 54 43 4c 20 .**.** This TCL
207a0 63 6f 6d 6d 61 6e 64 20 75 6e 72 65 67 69 73 74 command unregist
207b0 65 72 73 20 74 68 65 20 70 72 69 6d 61 72 79 20 ers the primary
207c0 56 46 53 20 61 6e 64 20 74 68 65 6e 20 72 65 67 VFS and then reg
207d0 69 73 74 65 72 73 0a 2a 2a 20 69 74 20 62 61 63 isters.** it bac
207e0 6b 20 61 67 61 69 6e 2e 20 20 54 68 69 73 20 69 k again. This i
207f0 73 20 75 73 65 64 20 74 6f 20 74 65 73 74 20 74 s used to test t
20800 68 65 20 61 62 69 6c 69 74 79 20 74 6f 20 72 65 he ability to re
20810 67 69 73 74 65 72 20 61 0a 2a 2a 20 56 46 53 20 gister a.** VFS
20820 77 68 65 6e 20 6e 6f 6e 65 20 61 72 65 20 70 72 when none are pr
20830 65 76 69 6f 75 73 6c 79 20 72 65 67 69 73 74 65 eviously registe
20840 72 65 64 2c 20 61 6e 64 20 74 68 65 20 61 62 69 red, and the abi
20850 6c 69 74 79 20 74 6f 20 0a 2a 2a 20 75 6e 72 65 lity to .** unre
20860 67 69 73 74 65 72 20 74 68 65 20 6f 6e 6c 79 20 gister the only
20870 61 76 61 69 6c 61 62 6c 65 20 56 46 53 2e 20 20 available VFS.
20880 54 69 63 6b 65 74 20 23 32 37 33 38 0a 2a 2f 0a Ticket #2738.*/.
20890 73 74 61 74 69 63 20 69 6e 74 20 76 66 73 5f 75 static int vfs_u
208a0 6e 6c 69 6e 6b 5f 74 65 73 74 28 0a 20 20 43 6c nlink_test(. Cl
208b0 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
208c0 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 ata, /* Pointer
208d0 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c to sqlite3_enabl
208e0 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a e_XXX function *
208f0 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a /. Tcl_Interp *
20900 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
20910 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
20920 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
20930 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
20940 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 int objc,
20950 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
20960 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
20970 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e /. Tcl_Obj *CON
20980 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f ST objv[] /* Co
20990 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 mmand arguments
209a0 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 */.){. int i;.
209b0 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 4d sqlite3_vfs *pM
209c0 61 69 6e 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 ain;. sqlite3_v
209d0 66 73 20 2a 61 70 56 66 73 5b 32 30 5d 3b 0a 20 fs *apVfs[20];.
209e0 20 73 71 6c 69 74 65 33 5f 76 66 73 20 6f 6e 65 sqlite3_vfs one
209f0 2c 20 74 77 6f 3b 0a 0a 20 20 73 71 6c 69 74 65 , two;.. sqlite
20a00 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 3_vfs_unregister
20a10 28 30 29 3b 20 20 20 2f 2a 20 55 6e 72 65 67 69 (0); /* Unregi
20a20 73 74 65 72 20 6f 66 20 4e 55 4c 4c 20 69 73 20 ster of NULL is
20a30 68 61 72 6d 6c 65 73 73 20 2a 2f 0a 20 20 6f 6e harmless */. on
20a40 65 2e 7a 4e 61 6d 65 20 3d 20 22 5f 5f 6f 6e 65 e.zName = "__one
20a50 22 3b 0a 20 20 74 77 6f 2e 7a 4e 61 6d 65 20 3d ";. two.zName =
20a60 20 22 5f 5f 74 77 6f 22 3b 0a 0a 20 20 2f 2a 20 "__two";.. /*
20a70 43 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f Calling sqlite3_
20a80 76 66 73 5f 72 65 67 69 73 74 65 72 20 77 69 74 vfs_register wit
20a90 68 20 32 6e 64 20 61 72 67 75 6d 65 6e 74 20 6f h 2nd argument o
20aa0 66 20 30 20 64 6f 65 73 20 6e 6f 74 0a 20 20 2a f 0 does not. *
20ab0 2a 20 63 68 61 6e 67 65 20 74 68 65 20 64 65 66 * change the def
20ac0 61 75 6c 74 20 56 46 53 0a 20 20 2a 2f 0a 20 20 ault VFS. */.
20ad0 70 4d 61 69 6e 20 3d 20 73 71 6c 69 74 65 33 5f pMain = sqlite3_
20ae0 76 66 73 5f 66 69 6e 64 28 30 29 3b 0a 20 20 73 vfs_find(0);. s
20af0 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 qlite3_vfs_regis
20b00 74 65 72 28 26 6f 6e 65 2c 20 30 29 3b 0a 20 20 ter(&one, 0);.
20b10 61 73 73 65 72 74 28 20 70 4d 61 69 6e 3d 3d 30 assert( pMain==0
20b20 20 7c 7c 20 70 4d 61 69 6e 3d 3d 73 71 6c 69 74 || pMain==sqlit
20b30 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 20 29 e3_vfs_find(0) )
20b40 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f ;. sqlite3_vfs_
20b50 72 65 67 69 73 74 65 72 28 26 74 77 6f 2c 20 30 register(&two, 0
20b60 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70 4d 61 );. assert( pMa
20b70 69 6e 3d 3d 30 20 7c 7c 20 70 4d 61 69 6e 3d 3d in==0 || pMain==
20b80 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 sqlite3_vfs_find
20b90 28 30 29 20 29 3b 0a 0a 20 20 2f 2a 20 57 65 20 (0) );.. /* We
20ba0 63 61 6e 20 66 69 6e 64 20 61 20 56 46 53 20 62 can find a VFS b
20bb0 79 20 69 74 73 20 6e 61 6d 65 20 2a 2f 0a 20 20 y its name */.
20bc0 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f assert( sqlite3_
20bd0 76 66 73 5f 66 69 6e 64 28 22 5f 5f 6f 6e 65 22 vfs_find("__one"
20be0 29 3d 3d 26 6f 6e 65 20 29 3b 0a 20 20 61 73 73 )==&one );. ass
20bf0 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 66 73 ert( sqlite3_vfs
20c00 5f 66 69 6e 64 28 22 5f 5f 74 77 6f 22 29 3d 3d _find("__two")==
20c10 26 74 77 6f 20 29 3b 0a 0a 20 20 2f 2a 20 43 61 &two );.. /* Ca
20c20 6c 6c 69 6e 67 20 73 71 6c 69 74 65 5f 76 66 73 lling sqlite_vfs
20c30 5f 72 65 67 69 73 74 65 72 20 77 69 74 68 20 6e _register with n
20c40 6f 6e 2d 7a 65 72 6f 20 73 65 63 6f 6e 64 20 70 on-zero second p
20c50 61 72 61 6d 65 74 65 72 20 63 68 61 6e 67 65 73 arameter changes
20c60 20 74 68 65 0a 20 20 2a 2a 20 64 65 66 61 75 6c the. ** defaul
20c70 74 20 56 46 53 2c 20 65 76 65 6e 20 69 66 20 74 t VFS, even if t
20c80 68 65 20 31 73 74 20 70 61 72 61 6d 65 74 65 72 he 1st parameter
20c90 20 69 73 20 61 6e 20 65 78 69 73 74 69 67 20 56 is an existig V
20ca0 46 53 20 74 68 61 74 20 69 73 0a 20 20 2a 2a 20 FS that is. **
20cb0 70 72 65 76 69 6f 75 73 6c 79 20 72 65 67 69 73 previously regis
20cc0 74 65 72 65 64 20 61 73 20 74 68 65 20 6e 6f 6e tered as the non
20cd0 2d 64 65 66 61 75 6c 74 2e 0a 20 20 2a 2f 0a 20 -default.. */.
20ce0 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 sqlite3_vfs_reg
20cf0 69 73 74 65 72 28 26 6f 6e 65 2c 20 31 29 3b 0a ister(&one, 1);.
20d00 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 assert( sqlite
20d10 33 5f 76 66 73 5f 66 69 6e 64 28 22 5f 5f 6f 6e 3_vfs_find("__on
20d20 65 22 29 3d 3d 26 6f 6e 65 20 29 3b 0a 20 20 61 e")==&one );. a
20d30 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 ssert( sqlite3_v
20d40 66 73 5f 66 69 6e 64 28 22 5f 5f 74 77 6f 22 29 fs_find("__two")
20d50 3d 3d 26 74 77 6f 20 29 3b 0a 20 20 61 73 73 65 ==&two );. asse
20d60 72 74 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f rt( sqlite3_vfs_
20d70 66 69 6e 64 28 30 29 3d 3d 26 6f 6e 65 20 29 3b find(0)==&one );
20d80 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 72 . sqlite3_vfs_r
20d90 65 67 69 73 74 65 72 28 26 74 77 6f 2c 20 31 29 egister(&two, 1)
20da0 3b 0a 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 ;. assert( sqli
20db0 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 22 5f 5f te3_vfs_find("__
20dc0 6f 6e 65 22 29 3d 3d 26 6f 6e 65 20 29 3b 0a 20 one")==&one );.
20dd0 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 assert( sqlite3
20de0 5f 76 66 73 5f 66 69 6e 64 28 22 5f 5f 74 77 6f _vfs_find("__two
20df0 22 29 3d 3d 26 74 77 6f 20 29 3b 0a 20 20 61 73 ")==&two );. as
20e00 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 66 sert( sqlite3_vf
20e10 73 5f 66 69 6e 64 28 30 29 3d 3d 26 74 77 6f 20 s_find(0)==&two
20e20 29 3b 0a 20 20 69 66 28 20 70 4d 61 69 6e 20 29 );. if( pMain )
20e30 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 76 66 {. sqlite3_vf
20e40 73 5f 72 65 67 69 73 74 65 72 28 70 4d 61 69 6e s_register(pMain
20e50 2c 20 31 29 3b 0a 20 20 20 20 61 73 73 65 72 74 , 1);. assert
20e60 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 ( sqlite3_vfs_fi
20e70 6e 64 28 22 5f 5f 6f 6e 65 22 29 3d 3d 26 6f 6e nd("__one")==&on
20e80 65 20 29 3b 0a 20 20 20 20 61 73 73 65 72 74 28 e );. assert(
20e90 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e sqlite3_vfs_fin
20ea0 64 28 22 5f 5f 74 77 6f 22 29 3d 3d 26 74 77 6f d("__two")==&two
20eb0 20 29 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 );. assert(
20ec0 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 sqlite3_vfs_find
20ed0 28 30 29 3d 3d 70 4d 61 69 6e 20 29 3b 0a 20 20 (0)==pMain );.
20ee0 7d 0a 20 20 0a 20 20 2f 2a 20 55 6e 6c 69 6e 6b }. . /* Unlink
20ef0 20 74 68 65 20 64 65 66 61 75 6c 74 20 56 46 53 the default VFS
20f00 2e 20 20 52 65 70 65 61 74 20 75 6e 74 69 6c 20 . Repeat until
20f10 74 68 65 72 65 20 61 72 65 20 6e 6f 20 6d 6f 72 there are no mor
20f20 65 20 56 46 53 65 73 0a 20 20 2a 2a 20 72 65 67 e VFSes. ** reg
20f30 69 73 74 65 72 65 64 2e 0a 20 20 2a 2f 0a 20 20 istered.. */.
20f40 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f for(i=0; i<sizeo
20f50 66 28 61 70 56 66 73 29 2f 73 69 7a 65 6f 66 28 f(apVfs)/sizeof(
20f60 61 70 56 66 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b apVfs[0]); i++){
20f70 0a 20 20 20 20 61 70 56 66 73 5b 69 5d 20 3d 20 . apVfs[i] =
20f80 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 sqlite3_vfs_find
20f90 28 30 29 3b 0a 20 20 20 20 69 66 28 20 61 70 56 (0);. if( apV
20fa0 66 73 5b 69 5d 20 29 7b 0a 20 20 20 20 20 20 61 fs[i] ){. a
20fb0 73 73 65 72 74 28 20 61 70 56 66 73 5b 69 5d 3d ssert( apVfs[i]=
20fc0 3d 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e =sqlite3_vfs_fin
20fd0 64 28 61 70 56 66 73 5b 69 5d 2d 3e 7a 4e 61 6d d(apVfs[i]->zNam
20fe0 65 29 20 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 e) );. sqli
20ff0 74 65 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 te3_vfs_unregist
21000 65 72 28 61 70 56 66 73 5b 69 5d 29 3b 0a 20 20 er(apVfs[i]);.
21010 20 20 20 20 61 73 73 65 72 74 28 20 30 3d 3d 73 assert( 0==s
21020 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 qlite3_vfs_find(
21030 61 70 56 66 73 5b 69 5d 2d 3e 7a 4e 61 6d 65 29 apVfs[i]->zName)
21040 20 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 );. }. }.
21050 61 73 73 65 72 74 28 20 30 3d 3d 73 71 6c 69 74 assert( 0==sqlit
21060 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 20 29 e3_vfs_find(0) )
21070 3b 0a 20 20 0a 20 20 2f 2a 20 52 65 67 69 73 74 ;. . /* Regist
21080 65 72 20 74 68 65 20 6d 61 69 6e 20 56 46 53 20 er the main VFS
21090 61 73 20 6e 6f 6e 2d 64 65 66 61 75 6c 74 20 28 as non-default (
210a0 77 69 6c 6c 20 62 65 20 6d 61 64 65 20 64 65 66 will be made def
210b0 61 75 6c 74 2c 20 73 69 6e 63 65 0a 20 20 2a 2a ault, since. **
210c0 20 69 74 27 6c 6c 20 62 65 20 74 68 65 20 6f 6e it'll be the on
210d0 6c 79 20 6f 6e 65 20 69 6e 20 65 78 69 73 74 65 ly one in existe
210e0 6e 63 65 29 2e 0a 20 20 2a 2f 0a 20 20 73 71 6c nce).. */. sql
210f0 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65 ite3_vfs_registe
21100 72 28 70 4d 61 69 6e 2c 20 30 29 3b 0a 20 20 61 r(pMain, 0);. a
21110 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 ssert( sqlite3_v
21120 66 73 5f 66 69 6e 64 28 30 29 3d 3d 70 4d 61 69 fs_find(0)==pMai
21130 6e 20 29 3b 0a 20 20 0a 20 20 2f 2a 20 55 6e 2d n );. . /* Un-
21140 72 65 67 69 73 74 65 72 20 74 68 65 20 6d 61 69 register the mai
21150 6e 20 56 46 53 20 61 67 61 69 6e 20 74 6f 20 72 n VFS again to r
21160 65 73 74 6f 72 65 20 61 6e 20 65 6d 70 74 79 20 estore an empty
21170 56 46 53 20 6c 69 73 74 20 2a 2f 0a 20 20 73 71 VFS list */. sq
21180 6c 69 74 65 33 5f 76 66 73 5f 75 6e 72 65 67 69 lite3_vfs_unregi
21190 73 74 65 72 28 70 4d 61 69 6e 29 3b 0a 20 20 61 ster(pMain);. a
211a0 73 73 65 72 74 28 20 30 3d 3d 73 71 6c 69 74 65 ssert( 0==sqlite
211b0 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 20 29 3b 3_vfs_find(0) );
211c0 0a 0a 20 20 2f 2a 20 52 65 6c 69 6e 6b 20 61 6c .. /* Relink al
211d0 6c 20 56 46 53 65 73 20 69 6e 20 72 65 76 65 72 l VFSes in rever
211e0 73 65 20 6f 72 64 65 72 2e 20 2a 2f 20 20 0a 20 se order. */ .
211f0 20 66 6f 72 28 69 3d 73 69 7a 65 6f 66 28 61 70 for(i=sizeof(ap
21200 56 66 73 29 2f 73 69 7a 65 6f 66 28 61 70 56 66 Vfs)/sizeof(apVf
21210 73 5b 30 5d 29 2d 31 3b 20 69 3e 3d 30 3b 20 69 s[0])-1; i>=0; i
21220 2d 2d 29 7b 0a 20 20 20 20 69 66 28 20 61 70 56 --){. if( apV
21230 66 73 5b 69 5d 20 29 7b 0a 20 20 20 20 20 20 73 fs[i] ){. s
21240 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 qlite3_vfs_regis
21250 74 65 72 28 61 70 56 66 73 5b 69 5d 2c 20 31 29 ter(apVfs[i], 1)
21260 3b 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 20 ;. assert(
21270 61 70 56 66 73 5b 69 5d 3d 3d 73 71 6c 69 74 65 apVfs[i]==sqlite
21280 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 20 29 3b 3_vfs_find(0) );
21290 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 20 61 . assert( a
212a0 70 56 66 73 5b 69 5d 3d 3d 73 71 6c 69 74 65 33 pVfs[i]==sqlite3
212b0 5f 76 66 73 5f 66 69 6e 64 28 61 70 56 66 73 5b _vfs_find(apVfs[
212c0 69 5d 2d 3e 7a 4e 61 6d 65 29 20 29 3b 0a 20 20 i]->zName) );.
212d0 20 20 7d 0a 20 20 7d 0a 0a 20 20 2f 2a 20 55 6e }. }.. /* Un
212e0 72 65 67 69 73 74 65 72 20 6f 75 74 20 73 61 6d register out sam
212f0 70 6c 65 20 56 46 53 65 73 2e 20 2a 2f 0a 20 20 ple VFSes. */.
21300 73 71 6c 69 74 65 33 5f 76 66 73 5f 75 6e 72 65 sqlite3_vfs_unre
21310 67 69 73 74 65 72 28 26 6f 6e 65 29 3b 0a 20 20 gister(&one);.
21320 73 71 6c 69 74 65 33 5f 76 66 73 5f 75 6e 72 65 sqlite3_vfs_unre
21330 67 69 73 74 65 72 28 26 74 77 6f 29 3b 0a 0a 20 gister(&two);..
21340 20 2f 2a 20 55 6e 72 65 67 69 73 74 65 72 69 6e /* Unregisterin
21350 67 20 61 20 56 46 53 20 74 68 61 74 20 69 73 20 g a VFS that is
21360 6e 6f 74 20 63 75 72 72 65 6e 74 6c 79 20 72 65 not currently re
21370 67 69 73 74 65 72 65 64 20 69 73 20 68 61 72 6d gistered is harm
21380 6c 65 73 73 20 2a 2f 0a 20 20 73 71 6c 69 74 65 less */. sqlite
21390 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 3_vfs_unregister
213a0 28 26 6f 6e 65 29 3b 0a 20 20 73 71 6c 69 74 65 (&one);. sqlite
213b0 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 3_vfs_unregister
213c0 28 26 74 77 6f 29 3b 0a 20 20 61 73 73 65 72 74 (&two);. assert
213d0 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 ( sqlite3_vfs_fi
213e0 6e 64 28 22 5f 5f 6f 6e 65 22 29 3d 3d 30 20 29 nd("__one")==0 )
213f0 3b 0a 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 ;. assert( sqli
21400 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 22 5f 5f te3_vfs_find("__
21410 74 77 6f 22 29 3d 3d 30 20 29 3b 0a 0a 20 20 2f two")==0 );.. /
21420 2a 20 57 65 20 73 68 6f 75 6c 64 20 62 65 20 6c * We should be l
21430 65 66 74 20 77 69 74 68 20 74 68 65 20 6f 72 69 eft with the ori
21440 67 69 6e 61 6c 20 64 65 66 61 75 6c 74 20 56 46 ginal default VF
21450 53 20 62 61 63 6b 20 61 73 20 74 68 65 0a 20 20 S back as the.
21460 2a 2a 20 6f 72 69 67 69 6e 61 6c 20 2a 2f 0a 20 ** original */.
21470 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 assert( sqlite3
21480 5f 76 66 73 5f 66 69 6e 64 28 30 29 3d 3d 70 4d _vfs_find(0)==pM
21490 61 69 6e 20 29 3b 0a 0a 20 20 72 65 74 75 72 6e ain );.. return
214a0 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
214b0 2a 20 74 63 6c 63 6d 64 3a 20 20 20 76 66 73 5f * tclcmd: vfs_
214c0 69 6e 69 74 66 61 69 6c 5f 74 65 73 74 0a 2a 2a initfail_test.**
214d0 0a 2a 2a 20 54 68 69 73 20 54 43 4c 20 63 6f 6d .** This TCL com
214e0 6d 61 6e 64 20 61 74 74 65 6d 70 74 73 20 74 6f mand attempts to
214f0 20 76 66 73 5f 66 69 6e 64 20 61 6e 64 20 76 66 vfs_find and vf
21500 73 5f 72 65 67 69 73 74 65 72 20 77 68 65 6e 20 s_register when
21510 74 68 65 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 69 the.** sqlite3_i
21520 6e 69 74 69 61 6c 69 7a 65 28 29 20 69 6e 74 65 nitialize() inte
21530 72 66 61 63 65 20 69 73 20 66 61 69 6c 69 6e 67 rface is failing
21540 2e 20 20 41 6c 6c 20 63 61 6c 6c 73 20 73 68 6f . All calls sho
21550 75 6c 64 20 66 61 69 6c 2e 0a 2a 2f 0a 73 74 61 uld fail..*/.sta
21560 74 69 63 20 69 6e 74 20 76 66 73 5f 69 6e 69 74 tic int vfs_init
21570 66 61 69 6c 5f 74 65 73 74 28 0a 20 20 43 6c 69 fail_test(. Cli
21580 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
21590 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 ta, /* Pointer t
215a0 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 o sqlite3_enable
215b0 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f _XXX function */
215c0 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
215d0 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
215e0 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
215f0 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
21600 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
21610 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 int objc,
21620 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
21630 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
21640 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
21650 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d T objv[] /* Com
21660 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a mand arguments *
21670 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 76 /.){. sqlite3_v
21680 66 73 20 6f 6e 65 3b 0a 20 20 6f 6e 65 2e 7a 4e fs one;. one.zN
21690 61 6d 65 20 3d 20 22 5f 5f 6f 6e 65 22 3b 0a 0a ame = "__one";..
216a0 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 76 66 if( sqlite3_vf
216b0 73 5f 66 69 6e 64 28 30 29 20 29 20 72 65 74 75 s_find(0) ) retu
216c0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
216d0 73 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 69 sqlite3_vfs_regi
216e0 73 74 65 72 28 26 6f 6e 65 2c 20 30 29 3b 0a 20 ster(&one, 0);.
216f0 20 69 66 28 20 73 71 6c 69 74 65 33 5f 76 66 73 if( sqlite3_vfs
21700 5f 66 69 6e 64 28 30 29 20 29 20 72 65 74 75 72 _find(0) ) retur
21710 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 n TCL_ERROR;. s
21720 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 qlite3_vfs_regis
21730 74 65 72 28 26 6f 6e 65 2c 20 31 29 3b 0a 20 20 ter(&one, 1);.
21740 69 66 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f if( sqlite3_vfs_
21750 66 69 6e 64 28 30 29 20 29 20 72 65 74 75 72 6e find(0) ) return
21760 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 TCL_ERROR;. re
21770 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
21780 2f 2a 0a 2a 2a 20 53 61 76 65 64 20 56 46 53 65 /*.** Saved VFSe
21790 73 0a 2a 2f 0a 73 74 61 74 69 63 20 73 71 6c 69 s.*/.static sqli
217a0 74 65 33 5f 76 66 73 20 2a 61 70 56 66 73 5b 32 te3_vfs *apVfs[2
217b0 30 5d 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 6e 0];.static int n
217c0 56 66 73 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 Vfs = 0;../*.**
217d0 74 63 6c 63 6d 64 3a 20 20 20 76 66 73 5f 75 6e tclcmd: vfs_un
217e0 72 65 67 69 73 74 65 72 5f 61 6c 6c 0a 2a 2a 0a register_all.**.
217f0 2a 2a 20 55 6e 72 65 67 69 73 74 65 72 20 61 6c ** Unregister al
21800 6c 20 56 46 53 65 73 2e 0a 2a 2f 0a 73 74 61 74 l VFSes..*/.stat
21810 69 63 20 69 6e 74 20 76 66 73 5f 75 6e 72 65 67 ic int vfs_unreg
21820 69 73 74 65 72 5f 61 6c 6c 28 0a 20 20 43 6c 69 ister_all(. Cli
21830 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
21840 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 ta, /* Pointer t
21850 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 o sqlite3_enable
21860 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f _XXX function */
21870 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
21880 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
21890 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
218a0 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
218b0 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
218c0 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 int objc,
218d0 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
218e0 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
218f0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
21900 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d T objv[] /* Com
21910 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a mand arguments *
21920 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 /.){. int i;.
21930 66 6f 72 28 69 3d 30 3b 20 69 3c 41 72 72 61 79 for(i=0; i<Array
21940 53 69 7a 65 28 61 70 56 66 73 29 3b 20 69 2b 2b Size(apVfs); i++
21950 29 7b 0a 20 20 20 20 61 70 56 66 73 5b 69 5d 20 ){. apVfs[i]
21960 3d 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 = sqlite3_vfs_fi
21970 6e 64 28 30 29 3b 0a 20 20 20 20 69 66 28 20 61 nd(0);. if( a
21980 70 56 66 73 5b 69 5d 3d 3d 30 20 29 20 62 72 65 pVfs[i]==0 ) bre
21990 61 6b 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f ak;. sqlite3_
219a0 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 28 61 vfs_unregister(a
219b0 70 56 66 73 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 pVfs[i]);. }.
219c0 6e 56 66 73 20 3d 20 69 3b 0a 20 20 72 65 74 75 nVfs = i;. retu
219d0 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 2f 2a 0a rn TCL_OK;.}./*.
219e0 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 76 66 73 ** tclcmd: vfs
219f0 5f 72 65 72 65 67 69 73 74 65 72 5f 61 6c 6c 0a _reregister_all.
21a00 2a 2a 0a 2a 2a 20 52 65 73 74 6f 72 65 20 61 6c **.** Restore al
21a10 6c 20 56 46 53 65 73 20 74 68 61 74 20 77 65 72 l VFSes that wer
21a20 65 20 72 65 6d 6f 76 65 64 20 75 73 69 6e 67 20 e removed using
21a30 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 5f 61 vfs_unregister_a
21a40 6c 6c 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 ll.*/.static int
21a50 20 76 66 73 5f 72 65 72 65 67 69 73 74 65 72 5f vfs_reregister_
21a60 61 6c 6c 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 all(. ClientDat
21a70 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a a clientData, /*
21a80 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 Pointer to sqli
21a90 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 te3_enable_XXX f
21aa0 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c unction */. Tcl
21ab0 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
21ac0 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
21ad0 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
21ae0 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
21af0 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 mand */. int ob
21b00 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 jc,
21b10 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
21b20 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c guments */. Tcl
21b30 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
21b40 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 [] /* Command a
21b50 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 rguments */.){.
21b60 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d int i;. for(i=
21b70 30 3b 20 69 3c 6e 56 66 73 3b 20 69 2b 2b 29 7b 0; i<nVfs; i++){
21b80 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 76 66 73 . sqlite3_vfs
21b90 5f 72 65 67 69 73 74 65 72 28 61 70 56 66 73 5b _register(apVfs[
21ba0 69 5d 2c 20 69 3d 3d 30 29 3b 0a 20 20 7d 0a 20 i], i==0);. }.
21bb0 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
21bc0 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 }.../*.** tclcmd
21bd0 3a 20 20 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c : file_control
21be0 5f 74 65 73 74 20 44 42 0a 2a 2a 0a 2a 2a 20 54 _test DB.**.** T
21bf0 68 69 73 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 his TCL command
21c00 72 75 6e 73 20 74 68 65 20 73 71 6c 69 74 65 33 runs the sqlite3
21c10 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 20 69 6e _file_control in
21c20 74 65 72 66 61 63 65 20 61 6e 64 0a 2a 2a 20 76 terface and.** v
21c30 65 72 69 66 69 65 73 20 63 6f 72 72 65 63 74 20 erifies correct
21c40 6f 70 65 72 61 74 69 6f 6e 20 6f 66 20 74 68 65 operation of the
21c50 20 73 61 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 same..*/.static
21c60 20 69 6e 74 20 66 69 6c 65 5f 63 6f 6e 74 72 6f int file_contro
21c70 6c 5f 74 65 73 74 28 0a 20 20 43 6c 69 65 6e 74 l_test(. Client
21c80 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
21c90 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 /* Pointer to s
21ca0 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 qlite3_enable_XX
21cb0 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 X function */.
21cc0 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
21cd0 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
21ce0 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
21cf0 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
21d00 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
21d10 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 objc,
21d20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
21d30 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
21d40 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
21d50 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e bjv[] /* Comman
21d60 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 d arguments */.)
21d70 7b 0a 20 20 69 6e 74 20 69 41 72 67 20 3d 20 30 {. int iArg = 0
21d80 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b ;. sqlite3 *db;
21d90 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 . int rc;.. if
21da0 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
21db0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
21dc0 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
21dd0 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
21de0 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 be \"",.
21df0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
21e00 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 mObj(objv[0], 0)
21e10 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 , " DB", 0);.
21e20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
21e30 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
21e40 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
21e50 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
21e60 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 objv[1]), &db) )
21e70 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
21e80 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 R;. rc = sqlite
21e90 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 3_file_control(d
21ea0 62 2c 20 30 2c 20 30 2c 20 26 69 41 72 67 29 3b b, 0, 0, &iArg);
21eb0 0a 20 20 61 73 73 65 72 74 28 20 72 63 3d 3d 53 . assert( rc==S
21ec0 51 4c 49 54 45 5f 4e 4f 54 46 4f 55 4e 44 20 29 QLITE_NOTFOUND )
21ed0 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
21ee0 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 _file_control(db
21ef0 2c 20 22 6e 6f 74 61 64 61 74 61 62 61 73 65 22 , "notadatabase"
21f00 2c 20 53 51 4c 49 54 45 5f 46 43 4e 54 4c 5f 4c , SQLITE_FCNTL_L
21f10 4f 43 4b 53 54 41 54 45 2c 20 26 69 41 72 67 29 OCKSTATE, &iArg)
21f20 3b 0a 20 20 61 73 73 65 72 74 28 20 72 63 3d 3d ;. assert( rc==
21f30 53 51 4c 49 54 45 5f 45 52 52 4f 52 20 29 3b 0a SQLITE_ERROR );.
21f40 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 rc = sqlite3_f
21f50 69 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 ile_control(db,
21f60 22 6d 61 69 6e 22 2c 20 2d 31 2c 20 26 69 41 72 "main", -1, &iAr
21f70 67 29 3b 0a 20 20 61 73 73 65 72 74 28 20 72 63 g);. assert( rc
21f80 3d 3d 53 51 4c 49 54 45 5f 4e 4f 54 46 4f 55 4e ==SQLITE_NOTFOUN
21f90 44 20 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 D );. rc = sqli
21fa0 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c te3_file_control
21fb0 28 64 62 2c 20 22 74 65 6d 70 22 2c 20 2d 31 2c (db, "temp", -1,
21fc0 20 26 69 41 72 67 29 3b 0a 20 20 61 73 73 65 72 &iArg);. asser
21fd0 74 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4e 4f t( rc==SQLITE_NO
21fe0 54 46 4f 55 4e 44 20 7c 7c 20 72 63 3d 3d 53 51 TFOUND || rc==SQ
21ff0 4c 49 54 45 5f 45 52 52 4f 52 20 29 3b 0a 0a 20 LITE_ERROR );..
22000 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
22010 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 }.../*.** tclcmd
22020 3a 20 20 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c : file_control
22030 5f 6c 61 73 74 65 72 72 6e 6f 5f 74 65 73 74 20 _lasterrno_test
22040 44 42 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 54 43 DB.**.** This TC
22050 4c 20 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 20 74 L command runs t
22060 68 65 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 5f he sqlite3_file_
22070 63 6f 6e 74 72 6f 6c 20 69 6e 74 65 72 66 61 63 control interfac
22080 65 20 61 6e 64 0a 2a 2a 20 76 65 72 69 66 69 65 e and.** verifie
22090 73 20 63 6f 72 72 65 63 74 20 6f 70 65 72 61 74 s correct operat
220a0 69 6f 6e 20 6f 66 20 74 68 65 20 53 51 4c 49 54 ion of the SQLIT
220b0 45 5f 4c 41 53 54 5f 45 52 52 4e 4f 20 76 65 72 E_LAST_ERRNO ver
220c0 62 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 b..*/.static int
220d0 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c 61 file_control_la
220e0 73 74 65 72 72 6e 6f 5f 74 65 73 74 28 0a 20 20 sterrno_test(.
220f0 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
22100 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 tData, /* Pointe
22110 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 r to sqlite3_ena
22120 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e ble_XXX function
22130 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 */. Tcl_Interp
22140 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
22150 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
22160 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
22170 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
22180 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 . int objc,
22190 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
221a0 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
221b0 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 */. Tcl_Obj *C
221c0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 ONST objv[] /*
221d0 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 Command argument
221e0 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 41 s */.){. int iA
221f0 72 67 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 rg = 0;. sqlite
22200 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 3 *db;. int rc;
22210 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 .. if( objc!=2
22220 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
22230 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
22240 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
22250 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 hould be \"",.
22260 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
22270 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
22280 30 5d 2c 20 30 29 2c 20 22 20 44 42 22 2c 20 30 0], 0), " DB", 0
22290 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
222a0 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
222b0 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
222c0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
222d0 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
222e0 26 64 62 29 20 29 7b 0a 20 20 20 20 72 65 74 75 &db) ){. retu
222f0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
22300 7d 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 }. rc = sqlite3
22310 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 _file_control(db
22320 2c 20 4e 55 4c 4c 2c 20 53 51 4c 49 54 45 5f 4c , NULL, SQLITE_L
22330 41 53 54 5f 45 52 52 4e 4f 2c 20 26 69 41 72 67 AST_ERRNO, &iArg
22340 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 20 0a );. if( rc ){ .
22350 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
22360 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
22370 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 63 29 29 3b _NewIntObj(rc));
22380 20 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c . return TCL
22390 5f 45 52 52 4f 52 3b 20 0a 20 20 7d 0a 20 20 69 _ERROR; . }. i
223a0 66 28 20 69 41 72 67 21 3d 30 20 29 20 7b 0a 20 f( iArg!=0 ) {.
223b0 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
223c0 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 55 6e 65 ult(interp, "Une
223d0 78 70 65 63 74 65 64 20 6e 6f 6e 2d 7a 65 72 6f xpected non-zero
223e0 20 65 72 72 6e 6f 3a 20 22 2c 0a 20 20 20 20 20 errno: ",.
223f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
22400 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
22410 6d 4f 62 6a 28 54 63 6c 5f 4e 65 77 49 6e 74 4f mObj(Tcl_NewIntO
22420 62 6a 28 69 41 72 67 29 2c 20 30 29 2c 20 22 20 bj(iArg), 0), "
22430 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
22440 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
22450 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
22460 3b 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c ; .}../*.** tcl
22470 63 6d 64 3a 20 20 20 66 69 6c 65 5f 63 6f 6e 74 cmd: file_cont
22480 72 6f 6c 5f 63 68 75 6e 6b 73 69 7a 65 5f 74 65 rol_chunksize_te
22490 73 74 20 44 42 20 44 42 4e 41 4d 45 20 53 49 5a st DB DBNAME SIZ
224a0 45 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 54 43 4c E.**.** This TCL
224b0 20 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 20 74 68 command runs th
224c0 65 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 5f 63 e sqlite3_file_c
224d0 6f 6e 74 72 6f 6c 20 69 6e 74 65 72 66 61 63 65 ontrol interface
224e0 20 61 6e 64 0a 2a 2a 20 76 65 72 69 66 69 65 73 and.** verifies
224f0 20 63 6f 72 72 65 63 74 20 6f 70 65 72 61 74 69 correct operati
22500 6f 6e 20 6f 66 20 74 68 65 20 53 51 4c 49 54 45 on of the SQLITE
22510 5f 47 45 54 5f 4c 4f 43 4b 50 52 4f 58 59 46 49 _GET_LOCKPROXYFI
22520 4c 45 20 61 6e 64 0a 2a 2a 20 53 51 4c 49 54 45 LE and.** SQLITE
22530 5f 53 45 54 5f 4c 4f 43 4b 50 52 4f 58 59 46 49 _SET_LOCKPROXYFI
22540 4c 45 20 76 65 72 62 73 2e 0a 2a 2f 0a 73 74 61 LE verbs..*/.sta
22550 74 69 63 20 69 6e 74 20 66 69 6c 65 5f 63 6f 6e tic int file_con
22560 74 72 6f 6c 5f 63 68 75 6e 6b 73 69 7a 65 5f 74 trol_chunksize_t
22570 65 73 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 est(. ClientDat
22580 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a a clientData, /*
22590 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 Pointer to sqli
225a0 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 te3_enable_XXX f
225b0 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c unction */. Tcl
225c0 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
225d0 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
225e0 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
225f0 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
22600 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 mand */. int ob
22610 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 jc,
22620 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
22630 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c guments */. Tcl
22640 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
22650 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 [] /* Command a
22660 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 rguments */.){.
22670 20 69 6e 74 20 6e 53 69 7a 65 3b 20 20 20 20 20 int nSize;
22680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
22690 20 2f 2a 20 4e 65 77 20 63 68 75 6e 6b 20 73 69 /* New chunk si
226a0 7a 65 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 44 ze */. char *zD
226b0 62 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b;
226c0 20 20 20 20 20 20 20 20 2f 2a 20 44 62 20 6e 61 /* Db na
226d0 6d 65 20 28 22 6d 61 69 6e 22 2c 20 22 74 65 6d me ("main", "tem
226e0 70 22 20 65 74 63 2e 29 20 2a 2f 0a 20 20 73 71 p" etc.) */. sq
226f0 6c 69 74 65 33 20 2a 64 62 3b 20 20 20 20 20 20 lite3 *db;
22700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
22710 20 44 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 Database handle
22720 20 2a 2f 0a 20 20 69 6e 74 20 72 63 3b 20 20 20 */. int rc;
22730 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
22740 20 20 20 20 20 20 2f 2a 20 66 69 6c 65 5f 63 6f /* file_co
22750 6e 74 72 6f 6c 28 29 20 72 65 74 75 72 6e 20 63 ntrol() return c
22760 6f 64 65 20 2a 2f 0a 0a 20 20 69 66 28 20 6f 62 ode */.. if( ob
22770 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c jc!=4 ){. Tcl
22780 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
22790 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
227a0 44 42 20 44 42 4e 41 4d 45 20 53 49 5a 45 22 29 DB DBNAME SIZE")
227b0 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
227c0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
227d0 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
227e0 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
227f0 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
22800 64 62 29 20 0a 20 20 20 7c 7c 20 54 63 6c 5f 47 db) . || Tcl_G
22810 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
22820 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 6e erp, objv[3], &n
22830 53 69 7a 65 29 0a 20 20 29 7b 0a 20 20 20 72 65 Size). ){. re
22840 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
22850 20 20 7d 0a 20 20 7a 44 62 20 3d 20 54 63 6c 5f }. zDb = Tcl_
22860 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 GetString(objv[2
22870 5d 29 3b 0a 20 20 69 66 28 20 7a 44 62 5b 30 5d ]);. if( zDb[0]
22880 3d 3d 27 5c 30 27 20 29 20 7a 44 62 20 3d 20 4e =='\0' ) zDb = N
22890 55 4c 4c 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c ULL;.. rc = sql
228a0 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f ite3_file_contro
228b0 6c 28 64 62 2c 20 7a 44 62 2c 20 53 51 4c 49 54 l(db, zDb, SQLIT
228c0 45 5f 46 43 4e 54 4c 5f 43 48 55 4e 4b 5f 53 49 E_FCNTL_CHUNK_SI
228d0 5a 45 2c 20 28 76 6f 69 64 20 2a 29 26 6e 53 69 ZE, (void *)&nSi
228e0 7a 65 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b ze);. if( rc ){
228f0 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 . Tcl_SetResu
22900 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
22910 20 2a 29 73 71 6c 69 74 65 33 45 72 72 4e 61 6d *)sqlite3ErrNam
22920 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 e(rc), TCL_STATI
22930 43 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 C);. return T
22940 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
22950 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
22960 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 ../*.** tclcmd:
22970 20 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 73 file_control_s
22980 69 7a 65 68 69 6e 74 5f 74 65 73 74 20 44 42 20 izehint_test DB
22990 44 42 4e 41 4d 45 20 53 49 5a 45 0a 2a 2a 0a 2a DBNAME SIZE.**.*
229a0 2a 20 54 68 69 73 20 54 43 4c 20 63 6f 6d 6d 61 * This TCL comma
229b0 6e 64 20 72 75 6e 73 20 74 68 65 20 73 71 6c 69 nd runs the sqli
229c0 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c te3_file_control
229d0 20 69 6e 74 65 72 66 61 63 65 20 0a 2a 2a 20 77 interface .** w
229e0 69 74 68 20 53 51 4c 49 54 45 5f 46 43 4e 54 4c ith SQLITE_FCNTL
229f0 5f 53 49 5a 45 5f 48 49 4e 54 0a 2a 2f 0a 73 74 _SIZE_HINT.*/.st
22a00 61 74 69 63 20 69 6e 74 20 66 69 6c 65 5f 63 6f atic int file_co
22a10 6e 74 72 6f 6c 5f 73 69 7a 65 68 69 6e 74 5f 74 ntrol_sizehint_t
22a20 65 73 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 est(. ClientDat
22a30 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a a clientData, /*
22a40 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 Pointer to sqli
22a50 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 te3_enable_XXX f
22a60 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c unction */. Tcl
22a70 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
22a80 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
22a90 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
22aa0 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
22ab0 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 mand */. int ob
22ac0 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 jc,
22ad0 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
22ae0 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c guments */. Tcl
22af0 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
22b00 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 [] /* Command a
22b10 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 rguments */.){.
22b20 20 54 63 6c 5f 57 69 64 65 49 6e 74 20 6e 53 69 Tcl_WideInt nSi
22b30 7a 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ze;
22b40 20 2f 2a 20 48 69 6e 74 65 64 20 73 69 7a 65 20 /* Hinted size
22b50 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 44 62 3b 20 */. char *zDb;
22b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
22b70 20 20 20 20 20 2f 2a 20 44 62 20 6e 61 6d 65 20 /* Db name
22b80 28 22 6d 61 69 6e 22 2c 20 22 74 65 6d 70 22 20 ("main", "temp"
22b90 65 74 63 2e 29 20 2a 2f 0a 20 20 73 71 6c 69 74 etc.) */. sqlit
22ba0 65 33 20 2a 64 62 3b 20 20 20 20 20 20 20 20 20 e3 *db;
22bb0 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 44 61 /* Da
22bc0 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 2a 2f tabase handle */
22bd0 0a 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20 . int rc;
22be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
22bf0 20 20 20 2f 2a 20 66 69 6c 65 5f 63 6f 6e 74 72 /* file_contr
22c00 6f 6c 28 29 20 72 65 74 75 72 6e 20 63 6f 64 65 ol() return code
22c10 20 2a 2f 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 */.. if( objc!
22c20 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 =4 ){. Tcl_Wr
22c30 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
22c40 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 20 p, 1, objv, "DB
22c50 44 42 4e 41 4d 45 20 53 49 5a 45 22 29 3b 0a 20 DBNAME SIZE");.
22c60 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
22c70 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
22c80 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
22c90 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
22ca0 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
22cb0 20 0a 20 20 20 7c 7c 20 54 63 6c 5f 47 65 74 57 . || Tcl_GetW
22cc0 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e ideIntFromObj(in
22cd0 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 terp, objv[3], &
22ce0 6e 53 69 7a 65 29 0a 20 20 29 7b 0a 20 20 20 72 nSize). ){. r
22cf0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
22d00 0a 20 20 7d 0a 20 20 7a 44 62 20 3d 20 54 63 6c . }. zDb = Tcl
22d10 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
22d20 32 5d 29 3b 0a 20 20 69 66 28 20 7a 44 62 5b 30 2]);. if( zDb[0
22d30 5d 3d 3d 27 5c 30 27 20 29 20 7a 44 62 20 3d 20 ]=='\0' ) zDb =
22d40 4e 55 4c 4c 3b 0a 0a 20 20 72 63 20 3d 20 73 71 NULL;.. rc = sq
22d50 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 lite3_file_contr
22d60 6f 6c 28 64 62 2c 20 7a 44 62 2c 20 53 51 4c 49 ol(db, zDb, SQLI
22d70 54 45 5f 46 43 4e 54 4c 5f 53 49 5a 45 5f 48 49 TE_FCNTL_SIZE_HI
22d80 4e 54 2c 20 28 76 6f 69 64 20 2a 29 26 6e 53 69 NT, (void *)&nSi
22d90 7a 65 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b ze);. if( rc ){
22da0 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 . Tcl_SetResu
22db0 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
22dc0 20 2a 29 73 71 6c 69 74 65 33 45 72 72 4e 61 6d *)sqlite3ErrNam
22dd0 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 e(rc), TCL_STATI
22de0 43 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 C);. return T
22df0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
22e00 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
22e10 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 ../*.** tclcmd:
22e20 20 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c file_control_l
22e30 6f 63 6b 70 72 6f 78 79 5f 74 65 73 74 20 44 42 ockproxy_test DB
22e40 20 50 57 44 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 PWD.**.** This
22e50 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 TCL command runs
22e60 20 74 68 65 20 73 71 6c 69 74 65 33 5f 66 69 6c the sqlite3_fil
22e70 65 5f 63 6f 6e 74 72 6f 6c 20 69 6e 74 65 72 66 e_control interf
22e80 61 63 65 20 61 6e 64 0a 2a 2a 20 76 65 72 69 66 ace and.** verif
22e90 69 65 73 20 63 6f 72 72 65 63 74 20 6f 70 65 72 ies correct oper
22ea0 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 53 51 4c ation of the SQL
22eb0 49 54 45 5f 47 45 54 5f 4c 4f 43 4b 50 52 4f 58 ITE_GET_LOCKPROX
22ec0 59 46 49 4c 45 20 61 6e 64 0a 2a 2a 20 53 51 4c YFILE and.** SQL
22ed0 49 54 45 5f 53 45 54 5f 4c 4f 43 4b 50 52 4f 58 ITE_SET_LOCKPROX
22ee0 59 46 49 4c 45 20 76 65 72 62 73 2e 0a 2a 2f 0a YFILE verbs..*/.
22ef0 73 74 61 74 69 63 20 69 6e 74 20 66 69 6c 65 5f static int file_
22f00 63 6f 6e 74 72 6f 6c 5f 6c 6f 63 6b 70 72 6f 78 control_lockprox
22f10 79 5f 74 65 73 74 28 0a 20 20 43 6c 69 65 6e 74 y_test(. Client
22f20 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
22f30 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 /* Pointer to s
22f40 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 qlite3_enable_XX
22f50 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 X function */.
22f60 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
22f70 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
22f80 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
22f90 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
22fa0 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
22fb0 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 objc,
22fc0 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
22fd0 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
22fe0 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
22ff0 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e bjv[] /* Comman
23000 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 d arguments */.)
23010 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
23020 0a 20 20 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d . . if( objc!=
23030 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 3 ){. Tcl_App
23040 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
23050 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
23060 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a should be \"",.
23070 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
23080 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
23090 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 ngFromObj(objv[0
230a0 5d 2c 20 30 29 2c 20 22 20 44 42 20 50 57 44 22 ], 0), " DB PWD"
230b0 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
230c0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
230d0 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
230e0 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
230f0 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
23100 29 2c 20 26 64 62 29 20 29 7b 0a 20 20 20 72 65 ), &db) ){. re
23110 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
23120 20 20 7d 0a 20 20 0a 23 69 66 20 21 64 65 66 69 }. .#if !defi
23130 6e 65 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c ned(SQLITE_ENABL
23140 45 5f 4c 4f 43 4b 49 4e 47 5f 53 54 59 4c 45 29 E_LOCKING_STYLE)
23150 0a 23 20 20 69 66 20 64 65 66 69 6e 65 64 28 5f .# if defined(_
23160 5f 41 50 50 4c 45 5f 5f 29 0a 23 20 20 20 20 64 _APPLE__).# d
23170 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 45 4e 41 efine SQLITE_ENA
23180 42 4c 45 5f 4c 4f 43 4b 49 4e 47 5f 53 54 59 4c BLE_LOCKING_STYL
23190 45 20 31 0a 23 20 20 65 6c 73 65 0a 23 20 20 20 E 1.# else.#
231a0 20 64 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 45 define SQLITE_E
231b0 4e 41 42 4c 45 5f 4c 4f 43 4b 49 4e 47 5f 53 54 NABLE_LOCKING_ST
231c0 59 4c 45 20 30 0a 23 20 20 65 6e 64 69 66 0a 23 YLE 0.# endif.#
231d0 65 6e 64 69 66 0a 23 69 66 20 53 51 4c 49 54 45 endif.#if SQLITE
231e0 5f 45 4e 41 42 4c 45 5f 4c 4f 43 4b 49 4e 47 5f _ENABLE_LOCKING_
231f0 53 54 59 4c 45 20 26 26 20 64 65 66 69 6e 65 64 STYLE && defined
23200 28 5f 5f 41 50 50 4c 45 5f 5f 29 0a 20 20 7b 0a (__APPLE__). {.
23210 20 20 20 20 63 68 61 72 20 2a 74 65 73 74 50 61 char *testPa
23220 74 68 3b 0a 20 20 20 20 69 6e 74 20 72 63 3b 0a th;. int rc;.
23230 20 20 20 20 69 6e 74 20 6e 50 77 64 3b 0a 20 20 int nPwd;.
23240 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 const char *zP
23250 77 64 3b 0a 20 20 20 20 63 68 61 72 20 70 72 6f wd;. char pro
23260 78 79 50 61 74 68 5b 34 30 30 5d 3b 0a 20 20 20 xyPath[400];.
23270 20 0a 20 20 20 20 7a 50 77 64 20 3d 20 54 63 6c . zPwd = Tcl
23280 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
23290 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 6e 50 77 64 j(objv[2], &nPwd
232a0 29 3b 0a 20 20 20 20 69 66 28 20 73 69 7a 65 6f );. if( sizeo
232b0 66 28 70 72 6f 78 79 50 61 74 68 29 3c 6e 50 77 f(proxyPath)<nPw
232c0 64 2b 32 30 20 29 7b 0a 20 20 20 20 20 20 54 63 d+20 ){. Tc
232d0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
232e0 6e 74 65 72 70 2c 20 22 50 57 44 20 74 6f 6f 20 nterp, "PWD too
232f0 62 69 67 22 2c 20 28 76 6f 69 64 2a 29 30 29 3b big", (void*)0);
23300 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 . return TC
23310 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
23320 20 20 20 73 70 72 69 6e 74 66 28 70 72 6f 78 79 sprintf(proxy
23330 50 61 74 68 2c 20 22 25 73 2f 74 65 73 74 2e 70 Path, "%s/test.p
23340 72 6f 78 79 22 2c 20 7a 50 77 64 29 3b 0a 20 20 roxy", zPwd);.
23350 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 rc = sqlite3_f
23360 69 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 ile_control(db,
23370 4e 55 4c 4c 2c 20 53 51 4c 49 54 45 5f 53 45 54 NULL, SQLITE_SET
23380 5f 4c 4f 43 4b 50 52 4f 58 59 46 49 4c 45 2c 20 _LOCKPROXYFILE,
23390 70 72 6f 78 79 50 61 74 68 29 3b 0a 20 20 20 20 proxyPath);.
233a0 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 20 20 if( rc ){.
233b0 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
233c0 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
233d0 49 6e 74 4f 62 6a 28 72 63 29 29 3b 20 0a 20 20 IntObj(rc)); .
233e0 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
233f0 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
23400 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6c rc = sqlite3_fil
23410 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 4e 55 e_control(db, NU
23420 4c 4c 2c 20 53 51 4c 49 54 45 5f 47 45 54 5f 4c LL, SQLITE_GET_L
23430 4f 43 4b 50 52 4f 58 59 46 49 4c 45 2c 20 26 74 OCKPROXYFILE, &t
23440 65 73 74 50 61 74 68 29 3b 0a 20 20 20 20 69 66 estPath);. if
23450 28 20 73 74 72 6e 63 6d 70 28 70 72 6f 78 79 50 ( strncmp(proxyP
23460 61 74 68 2c 74 65 73 74 50 61 74 68 2c 31 31 29 ath,testPath,11)
23470 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 ){. Tcl_Ap
23480 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
23490 70 2c 20 22 4c 6f 63 6b 20 70 72 6f 78 79 20 66 p, "Lock proxy f
234a0 69 6c 65 20 64 69 64 20 6e 6f 74 20 6d 61 74 63 ile did not matc
234b0 68 20 74 68 65 20 22 0a 20 20 20 20 20 20 20 20 h the ".
234c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
234d0 20 20 20 20 20 20 20 22 70 72 65 76 69 6f 75 73 "previous
234e0 6c 79 20 61 73 73 69 67 6e 65 64 20 76 61 6c 75 ly assigned valu
234f0 65 22 2c 20 30 29 3b 0a 20 20 20 20 20 20 72 65 e", 0);. re
23500 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
23510 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 72 63 }. if( rc
23520 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 ){. Tcl_Se
23530 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
23540 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
23550 28 72 63 29 29 3b 0a 20 20 20 20 20 20 72 65 74 (rc));. ret
23560 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
23570 20 20 20 7d 0a 20 20 20 20 72 63 20 3d 20 73 71 }. rc = sq
23580 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 lite3_file_contr
23590 6f 6c 28 64 62 2c 20 4e 55 4c 4c 2c 20 53 51 4c ol(db, NULL, SQL
235a0 49 54 45 5f 53 45 54 5f 4c 4f 43 4b 50 52 4f 58 ITE_SET_LOCKPROX
235b0 59 46 49 4c 45 2c 20 70 72 6f 78 79 50 61 74 68 YFILE, proxyPath
235c0 29 3b 0a 20 20 20 20 69 66 28 20 72 63 20 29 7b );. if( rc ){
235d0 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 . Tcl_SetOb
235e0 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
235f0 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 63 Tcl_NewIntObj(rc
23600 29 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e ));. return
23610 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
23620 7d 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 72 }. }.#endif. r
23630 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 20 20 0a eturn TCL_OK; .
23640 7d 0a 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 }..#if SQLITE_OS
23650 5f 57 49 4e 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d _WIN./*.** tclcm
23660 64 3a 20 20 20 66 69 6c 65 5f 63 6f 6e 74 72 6f d: file_contro
23670 6c 5f 77 69 6e 33 32 5f 61 76 5f 72 65 74 72 79 l_win32_av_retry
23680 20 44 42 20 20 4e 52 45 54 52 59 20 20 44 45 4c DB NRETRY DEL
23690 41 59 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 54 43 AY.**.** This TC
236a0 4c 20 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 20 74 L command runs t
236b0 68 65 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 5f he sqlite3_file_
236c0 63 6f 6e 74 72 6f 6c 20 69 6e 74 65 72 66 61 63 control interfac
236d0 65 20 77 69 74 68 0a 2a 2a 20 74 68 65 20 53 51 e with.** the SQ
236e0 4c 49 54 45 5f 46 43 4e 54 4c 5f 57 49 4e 33 32 LITE_FCNTL_WIN32
236f0 5f 41 56 5f 52 45 54 52 59 20 6f 70 63 6f 64 65 _AV_RETRY opcode
23700 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
23710 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 77 69 6e file_control_win
23720 33 32 5f 61 76 5f 72 65 74 72 79 28 0a 20 20 43 32_av_retry(. C
23730 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
23740 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 Data, /* Pointer
23750 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 to sqlite3_enab
23760 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 le_XXX function
23770 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 */. Tcl_Interp
23780 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
23790 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
237a0 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
237b0 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
237c0 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 int objc,
237d0 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
237e0 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
237f0 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f */. Tcl_Obj *CO
23800 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 NST objv[] /* C
23810 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 ommand arguments
23820 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 */.){. sqlite3
23830 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a *db;. int rc;.
23840 20 20 69 6e 74 20 61 5b 32 5d 3b 0a 20 20 63 68 int a[2];. ch
23850 61 72 20 7a 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 ar z[100];.. if
23860 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 ( objc!=4 ){.
23870 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
23880 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
23890 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
238a0 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 be \"",.
238b0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
238c0 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 mObj(objv[0], 0)
238d0 2c 20 22 20 44 42 20 4e 52 45 54 52 59 20 44 45 , " DB NRETRY DE
238e0 4c 41 59 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 LAY", 0);. re
238f0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
23900 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 }. if( getDbP
23910 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
23920 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
23930 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 7b 0a 20 v[1]), &db) ){.
23940 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
23950 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 ROR;. }. if( T
23960 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
23970 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
23980 2c 20 26 61 5b 30 5d 29 20 29 20 72 65 74 75 72 , &a[0]) ) retur
23990 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
239a0 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
239b0 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
239c0 76 5b 33 5d 2c 20 26 61 5b 31 5d 29 20 29 20 72 v[3], &a[1]) ) r
239d0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
239e0 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
239f0 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c file_control(db,
23a00 20 4e 55 4c 4c 2c 20 53 51 4c 49 54 45 5f 46 43 NULL, SQLITE_FC
23a10 4e 54 4c 5f 57 49 4e 33 32 5f 41 56 5f 52 45 54 NTL_WIN32_AV_RET
23a20 52 59 2c 20 28 76 6f 69 64 2a 29 61 29 3b 0a 20 RY, (void*)a);.
23a30 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 sqlite3_snprint
23a40 66 28 73 69 7a 65 6f 66 28 7a 29 2c 20 7a 2c 20 f(sizeof(z), z,
23a50 22 25 64 20 25 64 20 25 64 22 2c 20 72 63 2c 20 "%d %d %d", rc,
23a60 61 5b 30 5d 2c 20 61 5b 31 5d 29 3b 0a 20 20 54 a[0], a[1]);. T
23a70 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
23a80 69 6e 74 65 72 70 2c 20 7a 2c 20 28 63 68 61 72 interp, z, (char
23a90 2a 29 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 *)0);. return T
23aa0 43 4c 5f 4f 4b 3b 20 20 0a 7d 0a 0a 2f 2a 0a 2a CL_OK; .}../*.*
23ab0 2a 20 74 63 6c 63 6d 64 3a 20 20 20 66 69 6c 65 * tclcmd: file
23ac0 5f 63 6f 6e 74 72 6f 6c 5f 77 69 6e 33 32 5f 73 _control_win32_s
23ad0 65 74 5f 68 61 6e 64 6c 65 20 44 42 20 48 41 4e et_handle DB HAN
23ae0 44 4c 45 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 54 DLE.**.** This T
23af0 43 4c 20 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 20 CL command runs
23b00 74 68 65 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 the sqlite3_file
23b10 5f 63 6f 6e 74 72 6f 6c 20 69 6e 74 65 72 66 61 _control interfa
23b20 63 65 20 77 69 74 68 0a 2a 2a 20 74 68 65 20 53 ce with.** the S
23b30 51 4c 49 54 45 5f 46 43 4e 54 4c 5f 57 49 4e 33 QLITE_FCNTL_WIN3
23b40 32 5f 53 45 54 5f 48 41 4e 44 4c 45 20 6f 70 63 2_SET_HANDLE opc
23b50 6f 64 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ode..*/.static i
23b60 6e 74 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f nt file_control_
23b70 77 69 6e 33 32 5f 73 65 74 5f 68 61 6e 64 6c 65 win32_set_handle
23b80 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
23b90 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f lientData, /* Po
23ba0 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 inter to sqlite3
23bb0 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 _enable_XXX func
23bc0 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e tion */. Tcl_In
23bd0 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
23be0 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
23bf0 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
23c00 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
23c10 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c d */. int objc,
23c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
23c30 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
23c40 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 ents */. Tcl_Ob
23c50 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 j *CONST objv[]
23c60 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 /* Command argu
23c70 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 ments */.){. sq
23c80 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 lite3 *db;. int
23c90 20 72 63 3b 0a 20 20 48 41 4e 44 4c 45 20 68 46 rc;. HANDLE hF
23ca0 69 6c 65 20 3d 20 4e 55 4c 4c 3b 0a 20 20 63 68 ile = NULL;. ch
23cb0 61 72 20 7a 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 ar z[100];.. if
23cc0 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 ( objc!=3 ){.
23cd0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
23ce0 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
23cf0 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
23d00 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 be \"",.
23d10 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
23d20 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 mObj(objv[0], 0)
23d30 2c 20 22 20 44 42 20 48 41 4e 44 4c 45 22 2c 20 , " DB HANDLE",
23d40 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
23d50 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
23d60 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
23d70 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
23d80 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
23d90 20 26 64 62 29 20 29 7b 0a 20 20 20 20 72 65 74 &db) ){. ret
23da0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
23db0 20 7d 0a 20 20 69 66 28 20 67 65 74 57 69 6e 33 }. if( getWin3
23dc0 32 48 61 6e 64 6c 65 28 69 6e 74 65 72 70 2c 20 2Handle(interp,
23dd0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
23de0 6a 76 5b 32 5d 29 2c 20 26 68 46 69 6c 65 29 20 jv[2]), &hFile)
23df0 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 ){. return TC
23e00 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 L_ERROR;. }. r
23e10 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 c = sqlite3_file
23e20 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 4e 55 4c _control(db, NUL
23e30 4c 2c 20 53 51 4c 49 54 45 5f 46 43 4e 54 4c 5f L, SQLITE_FCNTL_
23e40 57 49 4e 33 32 5f 53 45 54 5f 48 41 4e 44 4c 45 WIN32_SET_HANDLE
23e50 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
23e60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 (v
23e70 6f 69 64 2a 29 26 68 46 69 6c 65 29 3b 0a 20 20 oid*)&hFile);.
23e80 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 sqlite3_snprintf
23e90 28 73 69 7a 65 6f 66 28 7a 29 2c 20 7a 2c 20 22 (sizeof(z), z, "
23ea0 25 64 20 25 70 22 2c 20 72 63 2c 20 28 76 6f 69 %d %p", rc, (voi
23eb0 64 2a 29 68 46 69 6c 65 29 3b 0a 20 20 54 63 6c d*)hFile);. Tcl
23ec0 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
23ed0 74 65 72 70 2c 20 7a 2c 20 28 63 68 61 72 2a 29 terp, z, (char*)
23ee0 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 0);. return TCL
23ef0 5f 4f 4b 3b 20 20 0a 7d 0a 23 65 6e 64 69 66 0a _OK; .}.#endif.
23f00 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 ./*.** tclcmd:
23f10 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 70 65 file_control_pe
23f20 72 73 69 73 74 5f 77 61 6c 20 44 42 20 50 45 52 rsist_wal DB PER
23f30 53 49 53 54 2d 46 4c 41 47 0a 2a 2a 0a 2a 2a 20 SIST-FLAG.**.**
23f40 54 68 69 73 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 This TCL command
23f50 20 72 75 6e 73 20 74 68 65 20 73 71 6c 69 74 65 runs the sqlite
23f60 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 20 69 3_file_control i
23f70 6e 74 65 72 66 61 63 65 20 77 69 74 68 0a 2a 2a nterface with.**
23f80 20 74 68 65 20 53 51 4c 49 54 45 5f 46 43 4e 54 the SQLITE_FCNT
23f90 4c 5f 50 45 52 53 49 53 54 5f 57 41 4c 20 6f 70 L_PERSIST_WAL op
23fa0 63 6f 64 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 code..*/.static
23fb0 69 6e 74 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c int file_control
23fc0 5f 70 65 72 73 69 73 74 5f 77 61 6c 28 0a 20 20 _persist_wal(.
23fd0 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
23fe0 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 tData, /* Pointe
23ff0 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 r to sqlite3_ena
24000 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e ble_XXX function
24010 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 */. Tcl_Interp
24020 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
24030 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
24040 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
24050 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
24060 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 . int objc,
24070 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
24080 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
24090 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 */. Tcl_Obj *C
240a0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 ONST objv[] /*
240b0 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 Command argument
240c0 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 s */.){. sqlite
240d0 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 3 *db;. int rc;
240e0 0a 20 20 69 6e 74 20 62 50 65 72 73 69 73 74 3b . int bPersist;
240f0 0a 20 20 63 68 61 72 20 7a 5b 31 30 30 5d 3b 0a . char z[100];.
24100 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 . if( objc!=3 )
24110 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
24120 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
24130 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
24140 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 ould be \"",.
24150 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
24160 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 ngFromObj(objv[0
24170 5d 2c 20 30 29 2c 20 22 20 44 42 20 46 4c 41 47 ], 0), " DB FLAG
24180 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
24190 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
241a0 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
241b0 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
241c0 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
241d0 5d 29 2c 20 26 64 62 29 20 29 7b 0a 20 20 20 20 ]), &db) ){.
241e0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
241f0 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f ;. }. if( Tcl_
24200 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
24210 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 terp, objv[2], &
24220 62 50 65 72 73 69 73 74 29 20 29 20 72 65 74 75 bPersist) ) retu
24230 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
24240 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6c rc = sqlite3_fil
24250 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 4e 55 e_control(db, NU
24260 4c 4c 2c 20 53 51 4c 49 54 45 5f 46 43 4e 54 4c LL, SQLITE_FCNTL
24270 5f 50 45 52 53 49 53 54 5f 57 41 4c 2c 20 28 76 _PERSIST_WAL, (v
24280 6f 69 64 2a 29 26 62 50 65 72 73 69 73 74 29 3b oid*)&bPersist);
24290 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 . sqlite3_snpri
242a0 6e 74 66 28 73 69 7a 65 6f 66 28 7a 29 2c 20 7a ntf(sizeof(z), z
242b0 2c 20 22 25 64 20 25 64 22 2c 20 72 63 2c 20 62 , "%d %d", rc, b
242c0 50 65 72 73 69 73 74 29 3b 0a 20 20 54 63 6c 5f Persist);. Tcl_
242d0 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
242e0 65 72 70 2c 20 7a 2c 20 28 63 68 61 72 2a 29 30 erp, z, (char*)0
242f0 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
24300 4f 4b 3b 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 OK; .}../*.** t
24310 63 6c 63 6d 64 3a 20 20 20 66 69 6c 65 5f 63 6f clcmd: file_co
24320 6e 74 72 6f 6c 5f 70 6f 77 65 72 73 61 66 65 5f ntrol_powersafe_
24330 6f 76 65 72 77 72 69 74 65 20 44 42 20 50 53 4f overwrite DB PSO
24340 57 2d 46 4c 41 47 0a 2a 2a 0a 2a 2a 20 54 68 69 W-FLAG.**.** Thi
24350 73 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 72 75 s TCL command ru
24360 6e 73 20 74 68 65 20 73 71 6c 69 74 65 33 5f 66 ns the sqlite3_f
24370 69 6c 65 5f 63 6f 6e 74 72 6f 6c 20 69 6e 74 65 ile_control inte
24380 72 66 61 63 65 20 77 69 74 68 0a 2a 2a 20 74 68 rface with.** th
24390 65 20 53 51 4c 49 54 45 5f 46 43 4e 54 4c 5f 50 e SQLITE_FCNTL_P
243a0 4f 57 45 52 53 41 46 45 5f 4f 56 45 52 57 52 49 OWERSAFE_OVERWRI
243b0 54 45 20 6f 70 63 6f 64 65 2e 0a 2a 2f 0a 73 74 TE opcode..*/.st
243c0 61 74 69 63 20 69 6e 74 20 66 69 6c 65 5f 63 6f atic int file_co
243d0 6e 74 72 6f 6c 5f 70 6f 77 65 72 73 61 66 65 5f ntrol_powersafe_
243e0 6f 76 65 72 77 72 69 74 65 28 0a 20 20 43 6c 69 overwrite(. Cli
243f0 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
24400 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 ta, /* Pointer t
24410 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 o sqlite3_enable
24420 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f _XXX function */
24430 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
24440 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
24450 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
24460 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
24470 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
24480 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 int objc,
24490 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
244a0 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
244b0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
244c0 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d T objv[] /* Com
244d0 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a mand arguments *
244e0 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a /.){. sqlite3 *
244f0 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 db;. int rc;.
24500 69 6e 74 20 62 3b 0a 20 20 63 68 61 72 20 7a 5b int b;. char z[
24510 31 30 30 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 100];.. if( obj
24520 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
24530 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
24540 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
24550 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
24560 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 ",. Tcl_G
24570 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
24580 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 44 objv[0], 0), " D
24590 42 20 46 4c 41 47 22 2c 20 30 29 3b 0a 20 20 20 B FLAG", 0);.
245a0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
245b0 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
245c0 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
245d0 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
245e0 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 objv[1]), &db) )
245f0 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
24600 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
24610 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
24620 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
24630 5b 32 5d 2c 20 26 62 29 20 29 20 72 65 74 75 72 [2], &b) ) retur
24640 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 n TCL_ERROR;. r
24650 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 c = sqlite3_file
24660 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 4e 55 4c 4c _control(db,NULL
24670 2c 53 51 4c 49 54 45 5f 46 43 4e 54 4c 5f 50 4f ,SQLITE_FCNTL_PO
24680 57 45 52 53 41 46 45 5f 4f 56 45 52 57 52 49 54 WERSAFE_OVERWRIT
24690 45 2c 28 76 6f 69 64 2a 29 26 62 29 3b 0a 20 20 E,(void*)&b);.
246a0 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 sqlite3_snprintf
246b0 28 73 69 7a 65 6f 66 28 7a 29 2c 20 7a 2c 20 22 (sizeof(z), z, "
246c0 25 64 20 25 64 22 2c 20 72 63 2c 20 62 29 3b 0a %d %d", rc, b);.
246d0 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
246e0 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 28 63 lt(interp, z, (c
246f0 68 61 72 2a 29 30 29 3b 0a 20 20 72 65 74 75 72 har*)0);. retur
24700 6e 20 54 43 4c 5f 4f 4b 3b 20 20 0a 7d 0a 0a 0a n TCL_OK; .}...
24710 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 /*.** tclcmd:
24720 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 76 66 73 file_control_vfs
24730 6e 61 6d 65 20 44 42 20 3f 41 55 58 44 42 3f 0a name DB ?AUXDB?.
24740 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 73 **.** Return a s
24750 74 72 69 6e 67 20 74 68 61 74 20 64 65 73 63 72 tring that descr
24760 69 62 65 73 20 74 68 65 20 73 74 61 63 6b 20 6f ibes the stack o
24770 66 20 56 46 53 65 73 2e 0a 2a 2f 0a 73 74 61 74 f VFSes..*/.stat
24780 69 63 20 69 6e 74 20 66 69 6c 65 5f 63 6f 6e 74 ic int file_cont
24790 72 6f 6c 5f 76 66 73 6e 61 6d 65 28 0a 20 20 43 rol_vfsname(. C
247a0 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
247b0 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 Data, /* Pointer
247c0 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 to sqlite3_enab
247d0 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 le_XXX function
247e0 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 */. Tcl_Interp
247f0 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
24800 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
24810 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
24820 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
24830 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 int objc,
24840 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
24850 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
24860 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f */. Tcl_Obj *CO
24870 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 NST objv[] /* C
24880 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 ommand arguments
24890 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 */.){. sqlite3
248a0 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 *db;. const ch
248b0 61 72 20 2a 7a 44 62 4e 61 6d 65 20 3d 20 22 6d ar *zDbName = "m
248c0 61 69 6e 22 3b 0a 20 20 63 68 61 72 20 2a 7a 56 ain";. char *zV
248d0 66 73 4e 61 6d 65 20 3d 20 30 3b 0a 0a 20 20 69 fsName = 0;.. i
248e0 66 28 20 6f 62 6a 63 21 3d 32 20 26 26 20 6f 62 f( objc!=2 && ob
248f0 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c jc!=3 ){. Tcl
24900 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
24910 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
24920 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
24930 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f "",. Tcl_
24940 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
24950 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 (objv[0], 0), "
24960 44 42 20 3f 41 55 58 44 42 3f 22 2c 20 30 29 3b DB ?AUXDB?", 0);
24970 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
24980 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
24990 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
249a0 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
249b0 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 ing(objv[1]), &d
249c0 62 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e b) ){. return
249d0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
249e0 20 20 69 66 28 20 6f 62 6a 63 3d 3d 33 20 29 7b if( objc==3 ){
249f0 0a 20 20 20 20 7a 44 62 4e 61 6d 65 20 3d 20 54 . zDbName = T
24a00 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
24a10 76 5b 32 5d 29 3b 0a 20 20 7d 0a 20 20 73 71 6c v[2]);. }. sql
24a20 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f ite3_file_contro
24a30 6c 28 64 62 2c 20 7a 44 62 4e 61 6d 65 2c 20 53 l(db, zDbName, S
24a40 51 4c 49 54 45 5f 46 43 4e 54 4c 5f 56 46 53 4e QLITE_FCNTL_VFSN
24a50 41 4d 45 2c 28 76 6f 69 64 2a 29 26 7a 56 66 73 AME,(void*)&zVfs
24a60 4e 61 6d 65 29 3b 0a 20 20 54 63 6c 5f 41 70 70 Name);. Tcl_App
24a70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
24a80 2c 20 7a 56 66 73 4e 61 6d 65 2c 20 28 63 68 61 , zVfsName, (cha
24a90 72 2a 29 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 r*)0);. sqlite3
24aa0 5f 66 72 65 65 28 7a 56 66 73 4e 61 6d 65 29 3b _free(zVfsName);
24ab0 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
24ac0 3b 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c ; .}../*.** tcl
24ad0 63 6d 64 3a 20 20 20 66 69 6c 65 5f 63 6f 6e 74 cmd: file_cont
24ae0 72 6f 6c 5f 74 65 6d 70 66 69 6c 65 6e 61 6d 65 rol_tempfilename
24af0 20 44 42 20 3f 41 55 58 44 42 3f 0a 2a 2a 0a 2a DB ?AUXDB?.**.*
24b00 2a 20 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e * Return a strin
24b10 67 20 74 68 61 74 20 69 73 20 61 20 74 65 6d 70 g that is a temp
24b20 6f 72 61 72 79 20 66 69 6c 65 6e 61 6d 65 0a 2a orary filename.*
24b30 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66 69 6c /.static int fil
24b40 65 5f 63 6f 6e 74 72 6f 6c 5f 74 65 6d 70 66 69 e_control_tempfi
24b50 6c 65 6e 61 6d 65 28 0a 20 20 43 6c 69 65 6e 74 lename(. Client
24b60 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
24b70 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 /* Pointer to s
24b80 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 qlite3_enable_XX
24b90 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 X function */.
24ba0 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
24bb0 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
24bc0 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
24bd0 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
24be0 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
24bf0 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 objc,
24c00 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
24c10 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
24c20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
24c30 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e bjv[] /* Comman
24c40 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 d arguments */.)
24c50 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
24c60 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
24c70 44 62 4e 61 6d 65 20 3d 20 22 6d 61 69 6e 22 3b DbName = "main";
24c80 0a 20 20 63 68 61 72 20 2a 7a 54 4e 61 6d 65 20 . char *zTName
24c90 3d 20 30 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 = 0;.. if( objc
24ca0 21 3d 32 20 26 26 20 6f 62 6a 63 21 3d 33 20 29 !=2 && objc!=3 )
24cb0 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
24cc0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
24cd0 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
24ce0 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 ould be \"",.
24cf0 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
24d00 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 ngFromObj(objv[0
24d10 5d 2c 20 30 29 2c 20 22 20 44 42 20 3f 41 55 58 ], 0), " DB ?AUX
24d20 44 42 3f 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 DB?", 0);. re
24d30 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
24d40 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 }. if( getDbP
24d50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
24d60 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
24d70 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 7b 0a 20 v[1]), &db) ){.
24d80 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
24d90 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6f ROR;. }. if( o
24da0 62 6a 63 3d 3d 33 20 29 7b 0a 20 20 20 20 7a 44 bjc==3 ){. zD
24db0 62 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 bName = Tcl_GetS
24dc0 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a tring(objv[2]);.
24dd0 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 }. sqlite3_fi
24de0 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 7a le_control(db, z
24df0 44 62 4e 61 6d 65 2c 20 53 51 4c 49 54 45 5f 46 DbName, SQLITE_F
24e00 43 4e 54 4c 5f 54 45 4d 50 46 49 4c 45 4e 41 4d CNTL_TEMPFILENAM
24e10 45 2c 20 28 76 6f 69 64 2a 29 26 7a 54 4e 61 6d E, (void*)&zTNam
24e20 65 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 e);. Tcl_Append
24e30 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a Result(interp, z
24e40 54 4e 61 6d 65 2c 20 28 63 68 61 72 2a 29 30 29 TName, (char*)0)
24e50 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 ;. sqlite3_free
24e60 28 7a 54 4e 61 6d 65 29 3b 0a 20 20 72 65 74 75 (zTName);. retu
24e70 72 6e 20 54 43 4c 5f 4f 4b 3b 20 20 0a 7d 0a 0a rn TCL_OK; .}..
24e80 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 ./*.** tclcmd:
24e90 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 6c 69 73 sqlite3_vfs_lis
24ea0 74 0a 2a 2a 0a 2a 2a 20 20 20 52 65 74 75 72 6e t.**.** Return
24eb0 20 61 20 74 63 6c 20 6c 69 73 74 20 63 6f 6e 74 a tcl list cont
24ec0 61 69 6e 69 6e 67 20 74 68 65 20 6e 61 6d 65 73 aining the names
24ed0 20 6f 66 20 61 6c 6c 20 72 65 67 69 73 74 65 72 of all register
24ee0 65 64 20 76 66 73 27 73 2e 0a 2a 2f 0a 73 74 61 ed vfs's..*/.sta
24ef0 74 69 63 20 69 6e 74 20 76 66 73 5f 6c 69 73 74 tic int vfs_list
24f00 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
24f10 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f lientData, /* Po
24f20 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 inter to sqlite3
24f30 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 _enable_XXX func
24f40 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e tion */. Tcl_In
24f50 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
24f60 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
24f70 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
24f80 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
24f90 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c d */. int objc,
24fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
24fb0 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
24fc0 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 ents */. Tcl_Ob
24fd0 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 j *CONST objv[]
24fe0 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 /* Command argu
24ff0 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 ments */.){. sq
25000 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 3b lite3_vfs *pVfs;
25010 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 . Tcl_Obj *pRet
25020 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b = Tcl_NewObj();
25030 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 29 . if( objc!=1 )
25040 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
25050 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
25060 2c 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20 , objv, "");.
25070 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
25080 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 70 56 66 R;. }. for(pVf
25090 73 3d 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 s=sqlite3_vfs_fi
250a0 6e 64 28 30 29 3b 20 70 56 66 73 3b 20 70 56 66 nd(0); pVfs; pVf
250b0 73 3d 70 56 66 73 2d 3e 70 4e 65 78 74 29 7b 0a s=pVfs->pNext){.
250c0 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
250d0 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
250e0 65 72 70 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e erp, pRet, Tcl_N
250f0 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 56 66 73 ewStringObj(pVfs
25100 2d 3e 7a 4e 61 6d 65 2c 20 2d 31 29 29 3b 0a 20 ->zName, -1));.
25110 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 }. Tcl_SetObjR
25120 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52 esult(interp, pR
25130 65 74 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 et);. return TC
25140 4c 5f 4f 4b 3b 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a L_OK; .}../*.**
25150 20 74 63 6c 63 6d 64 3a 20 20 20 73 71 6c 69 74 tclcmd: sqlit
25160 65 33 5f 6c 69 6d 69 74 20 44 42 20 49 44 20 56 e3_limit DB ID V
25170 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 ALUE.**.** This
25180 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 TCL command runs
25190 20 74 68 65 20 73 71 6c 69 74 65 33 5f 6c 69 6d the sqlite3_lim
251a0 69 74 20 69 6e 74 65 72 66 61 63 65 20 61 6e 64 it interface and
251b0 0a 2a 2a 20 76 65 72 69 66 69 65 73 20 63 6f 72 .** verifies cor
251c0 72 65 63 74 20 6f 70 65 72 61 74 69 6f 6e 20 6f rect operation o
251d0 66 20 74 68 65 20 73 61 6d 65 2e 0a 2a 2f 0a 73 f the same..*/.s
251e0 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6c tatic int test_l
251f0 69 6d 69 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 imit(. ClientDa
25200 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f ta clientData, /
25210 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c * Pointer to sql
25220 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 ite3_enable_XXX
25230 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 function */. Tc
25240 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
25250 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
25260 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
25270 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
25280 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f mmand */. int o
25290 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 bjc,
252a0 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
252b0 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 rguments */. Tc
252c0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
252d0 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 v[] /* Command
252e0 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a arguments */.){.
252f0 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
25300 20 69 6e 74 20 72 63 3b 0a 20 20 73 74 61 74 69 int rc;. stati
25310 63 20 63 6f 6e 73 74 20 73 74 72 75 63 74 20 7b c const struct {
25320 0a 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d . char *zNam
25330 65 3b 0a 20 20 20 20 20 69 6e 74 20 69 64 3b 0a e;. int id;.
25340 20 20 7d 20 61 49 64 5b 5d 20 3d 20 7b 0a 20 20 } aId[] = {.
25350 20 20 7b 20 22 53 51 4c 49 54 45 5f 4c 49 4d 49 { "SQLITE_LIMI
25360 54 5f 4c 45 4e 47 54 48 22 2c 20 20 20 20 20 20 T_LENGTH",
25370 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 4c SQLITE_L
25380 49 4d 49 54 5f 4c 45 4e 47 54 48 20 20 20 20 20 IMIT_LENGTH
25390 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 },.
253a0 20 7b 20 22 53 51 4c 49 54 45 5f 4c 49 4d 49 54 { "SQLITE_LIMIT
253b0 5f 53 51 4c 5f 4c 45 4e 47 54 48 22 2c 20 20 20 _SQL_LENGTH",
253c0 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 4c 49 SQLITE_LI
253d0 4d 49 54 5f 53 51 4c 5f 4c 45 4e 47 54 48 20 20 MIT_SQL_LENGTH
253e0 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
253f0 7b 20 22 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f { "SQLITE_LIMIT_
25400 43 4f 4c 55 4d 4e 22 2c 20 20 20 20 20 20 20 20 COLUMN",
25410 20 20 20 20 20 20 53 51 4c 49 54 45 5f 4c 49 4d SQLITE_LIM
25420 49 54 5f 43 4f 4c 55 4d 4e 20 20 20 20 20 20 20 IT_COLUMN
25430 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b },. {
25440 20 22 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 45 "SQLITE_LIMIT_E
25450 58 50 52 5f 44 45 50 54 48 22 2c 20 20 20 20 20 XPR_DEPTH",
25460 20 20 20 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 SQLITE_LIMI
25470 54 5f 45 58 50 52 5f 44 45 50 54 48 20 20 20 20 T_EXPR_DEPTH
25480 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
25490 22 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 43 4f "SQLITE_LIMIT_CO
254a0 4d 50 4f 55 4e 44 5f 53 45 4c 45 43 54 22 2c 20 MPOUND_SELECT",
254b0 20 20 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 SQLITE_LIMIT
254c0 5f 43 4f 4d 50 4f 55 4e 44 5f 53 45 4c 45 43 54 _COMPOUND_SELECT
254d0 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
254e0 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 56 44 42 SQLITE_LIMIT_VDB
254f0 45 5f 4f 50 22 2c 20 20 20 20 20 20 20 20 20 20 E_OP",
25500 20 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f SQLITE_LIMIT_
25510 56 44 42 45 5f 4f 50 20 20 20 20 20 20 20 20 20 VDBE_OP
25520 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 },. { "S
25530 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 46 55 4e 43 QLITE_LIMIT_FUNC
25540 54 49 4f 4e 5f 41 52 47 22 2c 20 20 20 20 20 20 TION_ARG",
25550 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 46 SQLITE_LIMIT_F
25560 55 4e 43 54 49 4f 4e 5f 41 52 47 20 20 20 20 20 UNCTION_ARG
25570 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 },. { "SQ
25580 4c 49 54 45 5f 4c 49 4d 49 54 5f 41 54 54 41 43 LITE_LIMIT_ATTAC
25590 48 45 44 22 2c 20 20 20 20 20 20 20 20 20 20 20 HED",
255a0 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 41 54 SQLITE_LIMIT_AT
255b0 54 41 43 48 45 44 20 20 20 20 20 20 20 20 20 20 TACHED
255c0 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c },. { "SQL
255d0 49 54 45 5f 4c 49 4d 49 54 5f 4c 49 4b 45 5f 50 ITE_LIMIT_LIKE_P
255e0 41 54 54 45 52 4e 5f 4c 45 4e 47 54 48 22 2c 20 ATTERN_LENGTH",
255f0 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 49 4b SQLITE_LIMIT_LIK
25600 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47 54 48 E_PATTERN_LENGTH
25610 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c 49 },. { "SQLI
25620 54 45 5f 4c 49 4d 49 54 5f 56 41 52 49 41 42 4c TE_LIMIT_VARIABL
25630 45 5f 4e 55 4d 42 45 52 22 2c 20 20 20 20 20 53 E_NUMBER", S
25640 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 56 41 52 49 QLITE_LIMIT_VARI
25650 41 42 4c 45 5f 4e 55 4d 42 45 52 20 20 20 20 20 ABLE_NUMBER
25660 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c 49 54 },. { "SQLIT
25670 45 5f 4c 49 4d 49 54 5f 54 52 49 47 47 45 52 5f E_LIMIT_TRIGGER_
25680 44 45 50 54 48 22 2c 20 20 20 20 20 20 20 53 51 DEPTH", SQ
25690 4c 49 54 45 5f 4c 49 4d 49 54 5f 54 52 49 47 47 LITE_LIMIT_TRIGG
256a0 45 52 5f 44 45 50 54 48 20 20 20 20 20 20 20 20 ER_DEPTH
256b0 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c 49 54 45 },. { "SQLITE
256c0 5f 4c 49 4d 49 54 5f 57 4f 52 4b 45 52 5f 54 48 _LIMIT_WORKER_TH
256d0 52 45 41 44 53 22 2c 20 20 20 20 20 20 53 51 4c READS", SQL
256e0 49 54 45 5f 4c 49 4d 49 54 5f 57 4f 52 4b 45 52 ITE_LIMIT_WORKER
256f0 5f 54 48 52 45 41 44 53 20 20 20 20 20 20 20 7d _THREADS }
25700 2c 0a 20 20 20 20 0a 20 20 20 20 2f 2a 20 4f 75 ,. . /* Ou
25710 74 20 6f 66 20 72 61 6e 67 65 20 74 65 73 74 20 t of range test
25720 63 61 73 65 73 20 2a 2f 0a 20 20 20 20 7b 20 22 cases */. { "
25730 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 54 4f 4f SQLITE_LIMIT_TOO
25740 53 4d 41 4c 4c 22 2c 20 20 20 20 20 20 20 20 20 SMALL",
25750 20 20 20 2d 31 2c 20 20 20 20 20 20 20 20 20 20 -1,
25760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25770 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 },. { "S
25780 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 54 4f 4f 42 QLITE_LIMIT_TOOB
25790 49 47 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 IG",
257a0 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 57 SQLITE_LIMIT_W
257b0 4f 52 4b 45 52 5f 54 48 52 45 41 44 53 2b 31 20 ORKER_THREADS+1
257c0 20 20 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 69 6e },. };. in
257d0 74 20 69 2c 20 69 64 3b 0a 20 20 69 6e 74 20 76 t i, id;. int v
257e0 61 6c 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 al;. const char
257f0 20 2a 7a 49 64 3b 0a 0a 20 20 69 66 28 20 6f 62 *zId;.. if( ob
25800 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c jc!=4 ){. Tcl
25810 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
25820 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
25830 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
25840 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f "",. Tcl_
25850 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
25860 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 (objv[0], 0), "
25870 44 42 20 49 44 20 56 41 4c 55 45 22 2c 20 30 29 DB ID VALUE", 0)
25880 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
25890 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
258a0 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
258b0 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
258c0 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
258d0 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
258e0 5f 45 52 52 4f 52 3b 0a 20 20 7a 49 64 20 3d 20 _ERROR;. zId =
258f0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
25900 6a 76 5b 32 5d 29 3b 0a 20 20 66 6f 72 28 69 3d jv[2]);. for(i=
25910 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 49 64 29 0; i<sizeof(aId)
25920 2f 73 69 7a 65 6f 66 28 61 49 64 5b 30 5d 29 3b /sizeof(aId[0]);
25930 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 73 i++){. if( s
25940 74 72 63 6d 70 28 7a 49 64 2c 20 61 49 64 5b 69 trcmp(zId, aId[i
25950 5d 2e 7a 4e 61 6d 65 29 3d 3d 30 20 29 7b 0a 20 ].zName)==0 ){.
25960 20 20 20 20 20 69 64 20 3d 20 61 49 64 5b 69 5d id = aId[i]
25970 2e 69 64 3b 0a 20 20 20 20 20 20 62 72 65 61 6b .id;. break
25980 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 ;. }. }. if
25990 28 20 69 3e 3d 73 69 7a 65 6f 66 28 61 49 64 29 ( i>=sizeof(aId)
259a0 2f 73 69 7a 65 6f 66 28 61 49 64 5b 30 5d 29 20 /sizeof(aId[0])
259b0 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
259c0 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
259d0 22 75 6e 6b 6e 6f 77 6e 20 6c 69 6d 69 74 20 74 "unknown limit t
259e0 79 70 65 3a 20 22 2c 20 7a 49 64 2c 20 28 63 68 ype: ", zId, (ch
259f0 61 72 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 ar*)0);. retu
25a00 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
25a10 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 }. if( Tcl_GetI
25a20 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
25a30 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 29 , objv[3], &val)
25a40 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
25a50 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 ROR;. rc = sqli
25a60 74 65 33 5f 6c 69 6d 69 74 28 64 62 2c 20 69 64 te3_limit(db, id
25a70 2c 20 76 61 6c 29 3b 0a 20 20 54 63 6c 5f 53 65 , val);. Tcl_Se
25a80 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
25a90 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
25aa0 28 72 63 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 (rc));. return
25ab0 54 43 4c 5f 4f 4b 3b 20 20 0a 7d 0a 0a 2f 2a 0a TCL_OK; .}../*.
25ac0 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 73 61 76 65 ** tclcmd: save
25ad0 5f 70 72 6e 67 5f 73 74 61 74 65 0a 2a 2a 0a 2a _prng_state.**.*
25ae0 2a 20 53 61 76 65 20 74 68 65 20 73 74 61 74 65 * Save the state
25af0 20 6f 66 20 74 68 65 20 70 73 65 75 64 6f 2d 72 of the pseudo-r
25b00 61 6e 64 6f 6d 20 6e 75 6d 62 65 72 20 67 65 6e andom number gen
25b10 65 72 61 74 6f 72 2e 0a 2a 2a 20 41 74 20 74 68 erator..** At th
25b20 65 20 73 61 6d 65 20 74 69 6d 65 2c 20 76 65 72 e same time, ver
25b30 69 66 79 20 74 68 61 74 20 73 71 6c 69 74 65 33 ify that sqlite3
25b40 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 20 77 6f _test_control wo
25b50 72 6b 73 20 65 76 65 6e 20 77 68 65 6e 0a 2a 2a rks even when.**
25b60 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 6e 20 called with an
25b70 6f 75 74 2d 6f 66 2d 72 61 6e 67 65 20 6f 70 63 out-of-range opc
25b80 6f 64 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ode..*/.static i
25b90 6e 74 20 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 nt save_prng_sta
25ba0 74 65 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 te(. ClientData
25bb0 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 clientData, /*
25bc0 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 Pointer to sqlit
25bd0 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 e3_enable_XXX fu
25be0 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f nction */. Tcl_
25bf0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
25c00 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
25c10 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
25c20 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
25c30 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a and */. int obj
25c40 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
25c50 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
25c60 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f uments */. Tcl_
25c70 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
25c80 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 ] /* Command ar
25c90 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 guments */.){.
25ca0 69 6e 74 20 72 63 20 3d 20 73 71 6c 69 74 65 33 int rc = sqlite3
25cb0 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 28 39 39 _test_control(99
25cc0 39 39 29 3b 0a 20 20 61 73 73 65 72 74 28 20 72 99);. assert( r
25cd0 63 3d 3d 30 20 29 3b 0a 20 20 72 63 20 3d 20 73 c==0 );. rc = s
25ce0 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 qlite3_test_cont
25cf0 72 6f 6c 28 2d 31 29 3b 0a 20 20 61 73 73 65 72 rol(-1);. asser
25d00 74 28 20 72 63 3d 3d 30 20 29 3b 0a 20 20 73 71 t( rc==0 );. sq
25d10 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 lite3_test_contr
25d20 6f 6c 28 53 51 4c 49 54 45 5f 54 45 53 54 43 54 ol(SQLITE_TESTCT
25d30 52 4c 5f 50 52 4e 47 5f 53 41 56 45 29 3b 0a 20 RL_PRNG_SAVE);.
25d40 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
25d50 7d 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 }./*.** tclcmd:
25d60 20 72 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73 74 restore_prng_st
25d70 61 74 65 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ate.*/.static in
25d80 74 20 72 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73 t restore_prng_s
25d90 74 61 74 65 28 0a 20 20 43 6c 69 65 6e 74 44 61 tate(. ClientDa
25da0 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f ta clientData, /
25db0 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c * Pointer to sql
25dc0 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 ite3_enable_XXX
25dd0 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 function */. Tc
25de0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
25df0 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
25e00 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
25e10 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
25e20 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f mmand */. int o
25e30 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 bjc,
25e40 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
25e50 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 rguments */. Tc
25e60 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
25e70 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 v[] /* Command
25e80 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a arguments */.){.
25e90 20 20 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 sqlite3_test_c
25ea0 6f 6e 74 72 6f 6c 28 53 51 4c 49 54 45 5f 54 45 ontrol(SQLITE_TE
25eb0 53 54 43 54 52 4c 5f 50 52 4e 47 5f 52 45 53 54 STCTRL_PRNG_REST
25ec0 4f 52 45 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 ORE);. return T
25ed0 43 4c 5f 4f 4b 3b 0a 7d 0a 2f 2a 0a 2a 2a 20 74 CL_OK;.}./*.** t
25ee0 63 6c 63 6d 64 3a 20 20 72 65 73 65 74 5f 70 72 clcmd: reset_pr
25ef0 6e 67 5f 73 74 61 74 65 0a 2a 2f 0a 73 74 61 74 ng_state.*/.stat
25f00 69 63 20 69 6e 74 20 72 65 73 65 74 5f 70 72 6e ic int reset_prn
25f10 67 5f 73 74 61 74 65 28 0a 20 20 43 6c 69 65 6e g_state(. Clien
25f20 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
25f30 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 , /* Pointer to
25f40 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 sqlite3_enable_X
25f50 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 XX function */.
25f60 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
25f70 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
25f80 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
25f90 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
25fa0 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
25fb0 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 t objc,
25fc0 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
25fd0 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
25fe0 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
25ff0 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 objv[] /* Comma
26000 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a nd arguments */.
26010 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 74 65 73 ){. sqlite3_tes
26020 74 5f 63 6f 6e 74 72 6f 6c 28 53 51 4c 49 54 45 t_control(SQLITE
26030 5f 54 45 53 54 43 54 52 4c 5f 50 52 4e 47 5f 52 _TESTCTRL_PRNG_R
26040 45 53 45 54 29 3b 0a 20 20 72 65 74 75 72 6e 20 ESET);. return
26050 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
26060 20 74 63 6c 63 6d 64 3a 20 20 64 61 74 61 62 61 tclcmd: databa
26070 73 65 5f 6d 61 79 5f 62 65 5f 63 6f 72 72 75 70 se_may_be_corrup
26080 74 0a 2a 2a 0a 2a 2a 20 49 6e 64 69 63 61 74 65 t.**.** Indicate
26090 20 74 68 61 74 20 64 61 74 61 62 61 73 65 20 66 that database f
260a0 69 6c 65 73 20 6d 69 67 68 74 20 62 65 20 63 6f iles might be co
260b0 72 72 75 70 74 2e 20 20 49 6e 20 6f 74 68 65 72 rrupt. In other
260c0 20 77 6f 72 64 73 2c 20 73 65 74 20 74 68 65 20 words, set the
260d0 6e 6f 72 6d 61 6c 0a 2a 2a 20 73 74 61 74 65 20 normal.** state
260e0 6f 66 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 2a 2f of operation..*/
260f0 0a 73 74 61 74 69 63 20 69 6e 74 20 64 61 74 61 .static int data
26100 62 61 73 65 5f 6d 61 79 5f 62 65 5f 63 6f 72 72 base_may_be_corr
26110 75 70 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 upt(. ClientDat
26120 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a a clientData, /*
26130 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 Pointer to sqli
26140 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 te3_enable_XXX f
26150 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c unction */. Tcl
26160 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
26170 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
26180 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
26190 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
261a0 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 mand */. int ob
261b0 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 jc,
261c0 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
261d0 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c guments */. Tcl
261e0 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
261f0 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 [] /* Command a
26200 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 rguments */.){.
26210 20 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f sqlite3_test_co
26220 6e 74 72 6f 6c 28 53 51 4c 49 54 45 5f 54 45 53 ntrol(SQLITE_TES
26230 54 43 54 52 4c 5f 4e 45 56 45 52 5f 43 4f 52 52 TCTRL_NEVER_CORR
26240 55 50 54 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 UPT, 0);. retur
26250 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 2f 2a 0a 2a n TCL_OK;.}./*.*
26260 2a 20 74 63 6c 63 6d 64 3a 20 20 64 61 74 61 62 * tclcmd: datab
26270 61 73 65 5f 6e 65 76 65 72 5f 63 6f 72 72 75 70 ase_never_corrup
26280 74 0a 2a 2a 0a 2a 2a 20 49 6e 64 69 63 61 74 65 t.**.** Indicate
26290 20 74 68 61 74 20 64 61 74 61 62 61 73 65 20 66 that database f
262a0 69 6c 65 73 20 61 72 65 20 61 6c 77 61 79 73 20 iles are always
262b0 77 65 6c 6c 2d 66 6f 72 6d 65 64 2e 20 20 54 68 well-formed. Th
262c0 69 73 20 65 6e 61 62 6c 65 73 20 65 78 74 72 61 is enables extra
262d0 20 61 73 73 65 72 74 28 29 0a 2a 2a 20 73 74 61 assert().** sta
262e0 74 65 6d 65 6e 74 73 20 74 68 61 74 20 74 65 73 tements that tes
262f0 74 20 63 6f 6e 64 69 74 69 6f 6e 73 20 74 68 61 t conditions tha
26300 74 20 61 72 65 20 61 6c 77 61 79 73 20 74 72 75 t are always tru
26310 65 20 66 6f 72 20 77 65 6c 6c 2d 66 6f 72 6d 65 e for well-forme
26320 64 20 64 61 74 61 62 61 73 65 73 2e 0a 2a 2f 0a d databases..*/.
26330 73 74 61 74 69 63 20 69 6e 74 20 64 61 74 61 62 static int datab
26340 61 73 65 5f 6e 65 76 65 72 5f 63 6f 72 72 75 70 ase_never_corrup
26350 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 t(. ClientData
26360 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 clientData, /* P
26370 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 ointer to sqlite
26380 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 3_enable_XXX fun
26390 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 ction */. Tcl_I
263a0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
263b0 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
263c0 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
263d0 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
263e0 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 nd */. int objc
263f0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
26400 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
26410 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f ments */. Tcl_O
26420 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
26430 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 /* Command arg
26440 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 uments */.){. s
26450 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 qlite3_test_cont
26460 72 6f 6c 28 53 51 4c 49 54 45 5f 54 45 53 54 43 rol(SQLITE_TESTC
26470 54 52 4c 5f 4e 45 56 45 52 5f 43 4f 52 52 55 50 TRL_NEVER_CORRUP
26480 54 2c 20 31 29 3b 0a 20 20 72 65 74 75 72 6e 20 T, 1);. return
26490 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
264a0 20 74 63 6c 63 6d 64 3a 20 20 70 63 61 63 68 65 tclcmd: pcache
264b0 5f 73 74 61 74 73 0a 2a 2f 0a 73 74 61 74 69 63 _stats.*/.static
264c0 20 69 6e 74 20 74 65 73 74 5f 70 63 61 63 68 65 int test_pcache
264d0 5f 73 74 61 74 73 28 0a 20 20 43 6c 69 65 6e 74 _stats(. Client
264e0 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
264f0 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 /* Pointer to s
26500 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 qlite3_enable_XX
26510 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 X function */.
26520 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
26530 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
26540 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
26550 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
26560 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
26570 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 objc,
26580 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
26590 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
265a0 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
265b0 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e bjv[] /* Comman
265c0 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 d arguments */.)
265d0 7b 0a 20 20 69 6e 74 20 6e 4d 69 6e 3b 0a 20 20 {. int nMin;.
265e0 69 6e 74 20 6e 4d 61 78 3b 0a 20 20 69 6e 74 20 int nMax;. int
265f0 6e 43 75 72 72 65 6e 74 3b 0a 20 20 69 6e 74 20 nCurrent;. int
26600 6e 52 65 63 79 63 6c 61 62 6c 65 3b 0a 20 20 54 nRecyclable;. T
26610 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a 0a 20 cl_Obj *pRet;..
26620 20 73 71 6c 69 74 65 33 50 63 61 63 68 65 53 74 sqlite3PcacheSt
26630 61 74 73 28 26 6e 43 75 72 72 65 6e 74 2c 20 26 ats(&nCurrent, &
26640 6e 4d 61 78 2c 20 26 6e 4d 69 6e 2c 20 26 6e 52 nMax, &nMin, &nR
26650 65 63 79 63 6c 61 62 6c 65 29 3b 0a 0a 20 20 70 ecyclable);.. p
26660 52 65 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a Ret = Tcl_NewObj
26670 28 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ();. Tcl_ListOb
26680 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
26690 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 54 63 6c nterp, pRet, Tcl
266a0 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 _NewStringObj("c
266b0 75 72 72 65 6e 74 22 2c 20 2d 31 29 29 3b 0a 20 urrent", -1));.
266c0 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
266d0 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
266e0 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 49 , pRet, Tcl_NewI
266f0 6e 74 4f 62 6a 28 6e 43 75 72 72 65 6e 74 29 29 ntObj(nCurrent))
26700 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 ;. Tcl_ListObjA
26710 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
26720 65 72 70 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e erp, pRet, Tcl_N
26730 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 6d 61 78 ewStringObj("max
26740 22 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 4c ", -1));. Tcl_L
26750 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
26760 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 ent(interp, pRet
26770 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 , Tcl_NewIntObj(
26780 6e 4d 61 78 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 nMax));. Tcl_Li
26790 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
267a0 6e 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 2c nt(interp, pRet,
267b0 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
267c0 6a 28 22 6d 69 6e 22 2c 20 2d 31 29 29 3b 0a 20 j("min", -1));.
267d0 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
267e0 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
267f0 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 49 , pRet, Tcl_NewI
26800 6e 74 4f 62 6a 28 6e 4d 69 6e 29 29 3b 0a 20 20 ntObj(nMin));.
26810 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
26820 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
26830 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 pRet, Tcl_NewSt
26840 72 69 6e 67 4f 62 6a 28 22 72 65 63 79 63 6c 61 ringObj("recycla
26850 62 6c 65 22 2c 20 2d 31 29 29 3b 0a 20 20 54 63 ble", -1));. Tc
26860 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
26870 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 lement(interp, p
26880 52 65 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f Ret, Tcl_NewIntO
26890 62 6a 28 6e 52 65 63 79 63 6c 61 62 6c 65 29 29 bj(nRecyclable))
268a0 3b 0a 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 ;.. Tcl_SetObjR
268b0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52 esult(interp, pR
268c0 65 74 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 et);.. return T
268d0 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 69 66 64 65 66 CL_OK;.}..#ifdef
268e0 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 55 SQLITE_ENABLE_U
268f0 4e 4c 4f 43 4b 5f 4e 4f 54 49 46 59 0a 73 74 61 NLOCK_NOTIFY.sta
26900 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f 75 6e tic void test_un
26910 6c 6f 63 6b 5f 6e 6f 74 69 66 79 5f 63 62 28 76 lock_notify_cb(v
26920 6f 69 64 20 2a 2a 61 41 72 67 2c 20 69 6e 74 20 oid **aArg, int
26930 6e 41 72 67 29 7b 0a 20 20 69 6e 74 20 69 69 3b nArg){. int ii;
26940 0a 20 20 66 6f 72 28 69 69 3d 30 3b 20 69 69 3c . for(ii=0; ii<
26950 6e 41 72 67 3b 20 69 69 2b 2b 29 7b 0a 20 20 20 nArg; ii++){.
26960 20 54 63 6c 5f 45 76 61 6c 45 78 28 28 54 63 6c Tcl_EvalEx((Tcl
26970 5f 49 6e 74 65 72 70 20 2a 29 61 41 72 67 5b 69 _Interp *)aArg[i
26980 69 5d 2c 20 22 75 6e 6c 6f 63 6b 5f 6e 6f 74 69 i], "unlock_noti
26990 66 79 22 2c 20 2d 31 2c 20 54 43 4c 5f 45 56 41 fy", -1, TCL_EVA
269a0 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20 7d 0a 7d L_GLOBAL);. }.}
269b0 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 .#endif /* SQLIT
269c0 45 5f 45 4e 41 42 4c 45 5f 55 4e 4c 4f 43 4b 5f E_ENABLE_UNLOCK_
269d0 4e 4f 54 49 46 59 20 2a 2f 0a 0a 2f 2a 0a 2a 2a NOTIFY */../*.**
269e0 20 74 63 6c 63 6d 64 3a 20 20 73 71 6c 69 74 65 tclcmd: sqlite
269f0 33 5f 75 6e 6c 6f 63 6b 5f 6e 6f 74 69 66 79 20 3_unlock_notify
26a00 64 62 0a 2a 2f 0a 23 69 66 64 65 66 20 53 51 4c db.*/.#ifdef SQL
26a10 49 54 45 5f 45 4e 41 42 4c 45 5f 55 4e 4c 4f 43 ITE_ENABLE_UNLOC
26a20 4b 5f 4e 4f 54 49 46 59 0a 73 74 61 74 69 63 20 K_NOTIFY.static
26a30 69 6e 74 20 74 65 73 74 5f 75 6e 6c 6f 63 6b 5f int test_unlock_
26a40 6e 6f 74 69 66 79 28 0a 20 20 43 6c 69 65 6e 74 notify(. Client
26a50 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
26a60 20 2f 2a 20 55 6e 75 73 65 64 20 2a 2f 0a 20 20 /* Unused */.
26a70 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
26a80 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
26a90 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
26aa0 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
26ab0 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
26ac0 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 objc,
26ad0 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
26ae0 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
26af0 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
26b00 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e bjv[] /* Comman
26b10 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 d arguments */.)
26b20 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
26b30 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 . int rc;.. if
26b40 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
26b50 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
26b60 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
26b70 76 2c 20 22 44 42 22 29 3b 0a 20 20 20 20 72 65 v, "DB");. re
26b80 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
26b90 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 44 62 }.. if( getDb
26ba0 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
26bb0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
26bc0 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 7b 0a jv[1]), &db) ){.
26bd0 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
26be0 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 20 3d RROR;. }. rc =
26bf0 20 73 71 6c 69 74 65 33 5f 75 6e 6c 6f 63 6b 5f sqlite3_unlock_
26c00 6e 6f 74 69 66 79 28 64 62 2c 20 74 65 73 74 5f notify(db, test_
26c10 75 6e 6c 6f 63 6b 5f 6e 6f 74 69 66 79 5f 63 62 unlock_notify_cb
26c20 2c 20 28 76 6f 69 64 20 2a 29 69 6e 74 65 72 70 , (void *)interp
26c30 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 );. Tcl_SetResu
26c40 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
26c50 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 *)t1ErrorName(r
26c60 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b c), TCL_STATIC);
26c70 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
26c80 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a ;.}.#endif../*.*
26c90 2a 20 74 63 6c 63 6d 64 3a 20 20 73 71 6c 69 74 * tclcmd: sqlit
26ca0 65 33 5f 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e e3_wal_checkpoin
26cb0 74 20 64 62 20 3f 4e 41 4d 45 3f 0a 2a 2f 0a 73 t db ?NAME?.*/.s
26cc0 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 77 tatic int test_w
26cd0 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 28 0a 20 al_checkpoint(.
26ce0 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 ClientData clie
26cf0 6e 74 44 61 74 61 2c 20 2f 2a 20 55 6e 75 73 65 ntData, /* Unuse
26d00 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 d */. Tcl_Inter
26d10 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
26d20 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
26d30 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
26d40 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
26d50 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 /. int objc,
26d60 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
26d70 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
26d80 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a s */. Tcl_Obj *
26d90 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a CONST objv[] /*
26da0 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e Command argumen
26db0 74 73 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 20 ts */.){. char
26dc0 2a 7a 44 62 20 3d 20 30 3b 0a 20 20 73 71 6c 69 *zDb = 0;. sqli
26dd0 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 te3 *db;. int r
26de0 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d c;.. if( objc!=
26df0 33 20 26 26 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 3 && objc!=2 ){.
26e00 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
26e10 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
26e20 6f 62 6a 76 2c 20 22 44 42 20 3f 4e 41 4d 45 3f objv, "DB ?NAME?
26e30 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
26e40 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
26e50 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
26e60 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
26e70 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
26e80 2c 20 26 64 62 29 20 29 7b 0a 20 20 20 20 72 65 , &db) ){. re
26e90 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
26ea0 20 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d }. if( objc==
26eb0 33 20 29 7b 0a 20 20 20 20 7a 44 62 20 3d 20 54 3 ){. zDb = T
26ec0 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
26ed0 76 5b 32 5d 29 3b 0a 20 20 7d 0a 20 20 72 63 20 v[2]);. }. rc
26ee0 3d 20 73 71 6c 69 74 65 33 5f 77 61 6c 5f 63 68 = sqlite3_wal_ch
26ef0 65 63 6b 70 6f 69 6e 74 28 64 62 2c 20 7a 44 62 eckpoint(db, zDb
26f00 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 );. Tcl_SetResu
26f10 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
26f20 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 *)t1ErrorName(r
26f30 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b c), TCL_STATIC);
26f40 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
26f50 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d ;.}../*.** tclcm
26f60 64 3a 20 20 73 71 6c 69 74 65 33 5f 77 61 6c 5f d: sqlite3_wal_
26f70 63 68 65 63 6b 70 6f 69 6e 74 5f 76 32 20 64 62 checkpoint_v2 db
26f80 20 4d 4f 44 45 20 3f 4e 41 4d 45 3f 0a 2a 2a 0a MODE ?NAME?.**.
26f90 2a 2a 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ** This command
26fa0 63 61 6c 6c 73 20 74 68 65 20 77 61 6c 5f 63 68 calls the wal_ch
26fb0 65 63 6b 70 6f 69 6e 74 5f 76 32 28 29 20 66 75 eckpoint_v2() fu
26fc0 6e 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 nction with the
26fd0 73 70 65 63 69 66 69 65 64 0a 2a 2a 20 6d 6f 64 specified.** mod
26fe0 65 20 61 72 67 75 6d 65 6e 74 20 28 70 61 73 73 e argument (pass
26ff0 69 76 65 2c 20 66 75 6c 6c 20 6f 72 20 72 65 73 ive, full or res
27000 74 61 72 74 29 2e 20 49 66 20 70 72 65 73 65 6e tart). If presen
27010 74 2c 20 74 68 65 20 64 61 74 61 62 61 73 65 20 t, the database
27020 6e 61 6d 65 0a 2a 2a 20 4e 41 4d 45 20 69 73 20 name.** NAME is
27030 70 61 73 73 65 64 20 61 73 20 74 68 65 20 73 65 passed as the se
27040 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 74 6f cond argument to
27050 20 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 5f wal_checkpoint_
27060 76 32 28 29 2e 20 49 66 20 69 74 20 74 68 65 0a v2(). If it the.
27070 2a 2a 20 4e 41 4d 45 20 61 72 67 75 6d 65 6e 74 ** NAME argument
27080 20 69 73 20 6e 6f 74 20 70 72 65 73 65 6e 74 2c is not present,
27090 20 61 20 4e 55 4c 4c 20 70 6f 69 6e 74 65 72 20 a NULL pointer
270a0 69 73 20 70 61 73 73 65 64 20 69 6e 73 74 65 61 is passed instea
270b0 64 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 77 61 6c 5f d..**.** If wal_
270c0 63 68 65 63 6b 70 6f 69 6e 74 5f 76 32 28 29 20 checkpoint_v2()
270d0 72 65 74 75 72 6e 73 20 61 6e 79 20 76 61 6c 75 returns any valu
270e0 65 20 6f 74 68 65 72 20 74 68 61 6e 20 53 51 4c e other than SQL
270f0 49 54 45 5f 42 55 53 59 20 6f 72 0a 2a 2a 20 53 ITE_BUSY or.** S
27100 51 4c 49 54 45 5f 4f 4b 2c 20 74 68 65 6e 20 74 QLITE_OK, then t
27110 68 69 73 20 63 6f 6d 6d 61 6e 64 20 72 65 74 75 his command retu
27120 72 6e 73 20 54 43 4c 5f 45 52 52 4f 52 2e 20 54 rns TCL_ERROR. T
27130 68 65 20 54 63 6c 20 72 65 73 75 6c 74 20 69 73 he Tcl result is
27140 20 73 65 74 0a 2a 2a 20 74 6f 20 74 68 65 20 65 set.** to the e
27150 72 72 6f 72 20 6d 65 73 73 61 67 65 20 6f 62 74 rror message obt
27160 61 69 6e 65 64 20 66 72 6f 6d 20 73 71 6c 69 74 ained from sqlit
27170 65 33 5f 65 72 72 6d 73 67 28 29 2e 0a 2a 2a 0a e3_errmsg()..**.
27180 2a 2a 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 ** Otherwise, th
27190 69 73 20 63 6f 6d 6d 61 6e 64 20 72 65 74 75 72 is command retur
271a0 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 74 68 72 ns a list of thr
271b0 65 65 20 69 6e 74 65 67 65 72 73 2e 20 54 68 65 ee integers. The
271c0 20 66 69 72 73 74 20 69 6e 74 65 67 65 72 0a 2a first integer.*
271d0 2a 20 69 73 20 31 20 69 66 20 53 51 4c 49 54 45 * is 1 if SQLITE
271e0 5f 42 55 53 59 20 77 61 73 20 72 65 74 75 72 6e _BUSY was return
271f0 65 64 2c 20 6f 72 20 30 20 6f 74 68 65 72 77 69 ed, or 0 otherwi
27200 73 65 2e 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e se. The followin
27210 67 20 74 77 6f 20 69 6e 74 65 67 65 72 73 0a 2a g two integers.*
27220 2a 20 61 72 65 20 74 68 65 20 76 61 6c 75 65 73 * are the values
27230 20 72 65 74 75 72 6e 65 64 20 76 69 61 20 74 68 returned via th
27240 65 20 6f 75 74 70 75 74 20 70 61 72 61 6d 65 74 e output paramet
27250 65 72 73 20 62 79 20 77 61 6c 5f 63 68 65 63 6b ers by wal_check
27260 70 6f 69 6e 74 5f 76 32 28 29 20 2d 0a 2a 2a 20 point_v2() -.**
27270 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 66 72 the number of fr
27280 61 6d 65 73 20 69 6e 20 74 68 65 20 6c 6f 67 20 ames in the log
27290 61 6e 64 20 74 68 65 20 6e 75 6d 62 65 72 20 6f and the number o
272a0 66 20 66 72 61 6d 65 73 20 69 6e 20 74 68 65 20 f frames in the
272b0 6c 6f 67 0a 2a 2a 20 74 68 61 74 20 68 61 76 65 log.** that have
272c0 20 62 65 65 6e 20 63 68 65 63 6b 70 6f 69 6e 74 been checkpoint
272d0 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ed..*/.static in
272e0 74 20 74 65 73 74 5f 77 61 6c 5f 63 68 65 63 6b t test_wal_check
272f0 70 6f 69 6e 74 5f 76 32 28 0a 20 20 43 6c 69 65 point_v2(. Clie
27300 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
27310 61 2c 20 2f 2a 20 55 6e 75 73 65 64 20 2a 2f 0a a, /* Unused */.
27320 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
27330 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
27340 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
27350 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
27360 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
27370 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 nt objc,
27380 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
27390 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
273a0 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
273b0 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d objv[] /* Comm
273c0 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f and arguments */
273d0 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 44 62 20 .){. char *zDb
273e0 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a = 0;. sqlite3 *
273f0 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 db;. int rc;..
27400 20 69 6e 74 20 65 4d 6f 64 65 3b 0a 20 20 69 6e int eMode;. in
27410 74 20 6e 4c 6f 67 20 3d 20 2d 35 35 35 3b 0a 20 t nLog = -555;.
27420 20 69 6e 74 20 6e 43 6b 70 74 20 3d 20 2d 35 35 int nCkpt = -55
27430 35 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 5;. Tcl_Obj *pR
27440 65 74 3b 0a 0a 20 20 63 6f 6e 73 74 20 63 68 61 et;.. const cha
27450 72 20 2a 20 61 4d 6f 64 65 5b 5d 20 3d 20 7b 20 r * aMode[] = {
27460 22 70 61 73 73 69 76 65 22 2c 20 22 66 75 6c 6c "passive", "full
27470 22 2c 20 22 72 65 73 74 61 72 74 22 2c 20 22 74 ", "restart", "t
27480 72 75 6e 63 61 74 65 22 2c 20 30 20 7d 3b 0a 20 runcate", 0 };.
27490 20 61 73 73 65 72 74 28 20 53 51 4c 49 54 45 5f assert( SQLITE_
274a0 43 48 45 43 4b 50 4f 49 4e 54 5f 50 41 53 53 49 CHECKPOINT_PASSI
274b0 56 45 3d 3d 30 20 29 3b 0a 20 20 61 73 73 65 72 VE==0 );. asser
274c0 74 28 20 53 51 4c 49 54 45 5f 43 48 45 43 4b 50 t( SQLITE_CHECKP
274d0 4f 49 4e 54 5f 46 55 4c 4c 3d 3d 31 20 29 3b 0a OINT_FULL==1 );.
274e0 20 20 61 73 73 65 72 74 28 20 53 51 4c 49 54 45 assert( SQLITE
274f0 5f 43 48 45 43 4b 50 4f 49 4e 54 5f 52 45 53 54 _CHECKPOINT_REST
27500 41 52 54 3d 3d 32 20 29 3b 0a 20 20 61 73 73 65 ART==2 );. asse
27510 72 74 28 20 53 51 4c 49 54 45 5f 43 48 45 43 4b rt( SQLITE_CHECK
27520 50 4f 49 4e 54 5f 54 52 55 4e 43 41 54 45 3d 3d POINT_TRUNCATE==
27530 33 20 29 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3 );.. if( objc
27540 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d 34 20 29 !=3 && objc!=4 )
27550 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
27560 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
27570 2c 20 6f 62 6a 76 2c 20 22 44 42 20 4d 4f 44 45 , objv, "DB MODE
27580 20 3f 4e 41 4d 45 3f 22 29 3b 0a 20 20 20 20 72 ?NAME?");. r
27590 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
275a0 0a 20 20 7d 0a 0a 20 20 69 66 28 20 6f 62 6a 63 . }.. if( objc
275b0 3d 3d 34 20 29 7b 0a 20 20 20 20 7a 44 62 20 3d ==4 ){. zDb =
275c0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
275d0 62 6a 76 5b 33 5d 29 3b 0a 20 20 7d 0a 20 20 69 bjv[3]);. }. i
275e0 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
275f0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
27600 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
27610 26 64 62 29 20 7c 7c 20 28 0a 20 20 20 20 20 20 &db) || (.
27620 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 TCL_OK!=Tcl_GetI
27630 6e 74 46 72 6f 6d 4f 62 6a 28 30 2c 20 6f 62 6a ntFromObj(0, obj
27640 76 5b 32 5d 2c 20 26 65 4d 6f 64 65 29 0a 20 20 v[2], &eMode).
27650 20 26 26 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f && TCL_OK!=Tcl_
27660 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 GetIndexFromObj(
27670 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
27680 20 61 4d 6f 64 65 2c 20 22 6d 6f 64 65 22 2c 20 aMode, "mode",
27690 30 2c 20 26 65 4d 6f 64 65 29 20 0a 20 20 29 29 0, &eMode) . ))
276a0 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
276b0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 _ERROR;. }.. r
276c0 63 20 3d 20 73 71 6c 69 74 65 33 5f 77 61 6c 5f c = sqlite3_wal_
276d0 63 68 65 63 6b 70 6f 69 6e 74 5f 76 32 28 64 62 checkpoint_v2(db
276e0 2c 20 7a 44 62 2c 20 65 4d 6f 64 65 2c 20 26 6e , zDb, eMode, &n
276f0 4c 6f 67 2c 20 26 6e 43 6b 70 74 29 3b 0a 20 20 Log, &nCkpt);.
27700 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f if( rc!=SQLITE_O
27710 4b 20 26 26 20 72 63 21 3d 53 51 4c 49 54 45 5f K && rc!=SQLITE_
27720 42 55 53 59 20 29 7b 0a 20 20 20 20 63 6f 6e 73 BUSY ){. cons
27730 74 20 63 68 61 72 20 2a 7a 45 72 72 43 6f 64 65 t char *zErrCode
27740 20 3d 20 73 71 6c 69 74 65 33 45 72 72 4e 61 6d = sqlite3ErrNam
27750 65 28 72 63 29 3b 0a 20 20 20 20 54 63 6c 5f 41 e(rc);. Tcl_A
27760 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
27770 72 70 2c 20 7a 45 72 72 43 6f 64 65 2c 20 22 20 rp, zErrCode, "
27780 2d 20 22 2c 20 28 63 68 61 72 20 2a 29 73 71 6c - ", (char *)sql
27790 69 74 65 33 5f 65 72 72 6d 73 67 28 64 62 29 2c ite3_errmsg(db),
277a0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
277b0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
277c0 20 20 70 52 65 74 20 3d 20 54 63 6c 5f 4e 65 77 pRet = Tcl_New
277d0 4f 62 6a 28 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 Obj();. Tcl_Lis
277e0 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
277f0 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 t(interp, pRet,
27800 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 63 Tcl_NewIntObj(rc
27810 3d 3d 53 51 4c 49 54 45 5f 42 55 53 59 3f 31 3a ==SQLITE_BUSY?1:
27820 30 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 0));. Tcl_ListO
27830 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
27840 69 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 54 63 interp, pRet, Tc
27850 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e 4c 6f 67 l_NewIntObj(nLog
27860 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ));. Tcl_ListOb
27870 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
27880 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 54 63 6c nterp, pRet, Tcl
27890 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e 43 6b 70 74 _NewIntObj(nCkpt
278a0 29 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a ));. Tcl_SetObj
278b0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 Result(interp, p
278c0 52 65 74 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 Ret);.. return
278d0 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
278e0 20 74 63 6c 63 6d 64 3a 20 20 74 65 73 74 5f 73 tclcmd: test_s
278f0 71 6c 69 74 65 33 5f 6c 6f 67 20 3f 53 43 52 49 qlite3_log ?SCRI
27900 50 54 3f 0a 2a 2f 0a 73 74 61 74 69 63 20 73 74 PT?.*/.static st
27910 72 75 63 74 20 4c 6f 67 43 61 6c 6c 62 61 63 6b ruct LogCallback
27920 20 7b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 {. Tcl_Interp
27930 2a 70 49 6e 74 65 72 70 3b 0a 20 20 54 63 6c 5f *pInterp;. Tcl_
27940 4f 62 6a 20 2a 70 4f 62 6a 3b 0a 7d 20 6c 6f 67 Obj *pObj;.} log
27950 63 61 6c 6c 62 61 63 6b 20 3d 20 7b 30 2c 20 30 callback = {0, 0
27960 7d 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 20 78 };.static void x
27970 4c 6f 67 63 61 6c 6c 62 61 63 6b 28 76 6f 69 64 Logcallback(void
27980 20 2a 75 6e 75 73 65 64 2c 20 69 6e 74 20 65 72 *unused, int er
27990 72 2c 20 63 68 61 72 20 2a 7a 4d 73 67 29 7b 0a r, char *zMsg){.
279a0 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 4e 65 77 20 Tcl_Obj *pNew
279b0 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f = Tcl_DuplicateO
279c0 62 6a 28 6c 6f 67 63 61 6c 6c 62 61 63 6b 2e 70 bj(logcallback.p
279d0 4f 62 6a 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 Obj);. Tcl_Incr
279e0 52 65 66 43 6f 75 6e 74 28 70 4e 65 77 29 3b 0a RefCount(pNew);.
279f0 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
27a00 65 6e 64 45 6c 65 6d 65 6e 74 28 0a 20 20 20 20 endElement(.
27a10 20 20 30 2c 20 70 4e 65 77 2c 20 54 63 6c 5f 4e 0, pNew, Tcl_N
27a20 65 77 53 74 72 69 6e 67 4f 62 6a 28 73 71 6c 69 ewStringObj(sqli
27a30 74 65 33 45 72 72 4e 61 6d 65 28 65 72 72 29 2c te3ErrName(err),
27a40 20 2d 31 29 0a 20 20 29 3b 0a 20 20 54 63 6c 5f -1). );. Tcl_
27a50 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
27a60 6d 65 6e 74 28 30 2c 20 70 4e 65 77 2c 20 54 63 ment(0, pNew, Tc
27a70 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a l_NewStringObj(z
27a80 4d 73 67 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c Msg, -1));. Tcl
27a90 5f 45 76 61 6c 4f 62 6a 45 78 28 6c 6f 67 63 61 _EvalObjEx(logca
27aa0 6c 6c 62 61 63 6b 2e 70 49 6e 74 65 72 70 2c 20 llback.pInterp,
27ab0 70 4e 65 77 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 pNew, TCL_EVAL_G
27ac0 4c 4f 42 41 4c 7c 54 43 4c 5f 45 56 41 4c 5f 44 LOBAL|TCL_EVAL_D
27ad0 49 52 45 43 54 29 3b 0a 20 20 54 63 6c 5f 44 65 IRECT);. Tcl_De
27ae0 63 72 52 65 66 43 6f 75 6e 74 28 70 4e 65 77 29 crRefCount(pNew)
27af0 3b 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 74 ;.}.static int t
27b00 65 73 74 5f 73 71 6c 69 74 65 33 5f 6c 6f 67 28 est_sqlite3_log(
27b10 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c . ClientData cl
27b20 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
27b30 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
27b40 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
27b50 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
27b60 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
27b70 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a and */. int obj
27b80 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
27b90 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
27ba0 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f uments */. Tcl_
27bb0 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
27bc0 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 ] /* Command ar
27bd0 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 guments */.){.
27be0 69 66 28 20 6f 62 6a 63 3e 32 20 29 7b 0a 20 20 if( objc>2 ){.
27bf0 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
27c00 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
27c10 6a 76 2c 20 22 53 43 52 49 50 54 22 29 3b 0a 20 jv, "SCRIPT");.
27c20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
27c30 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6c ROR;. }. if( l
27c40 6f 67 63 61 6c 6c 62 61 63 6b 2e 70 4f 62 6a 20 ogcallback.pObj
27c50 29 7b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 ){. Tcl_DecrR
27c60 65 66 43 6f 75 6e 74 28 6c 6f 67 63 61 6c 6c 62 efCount(logcallb
27c70 61 63 6b 2e 70 4f 62 6a 29 3b 0a 20 20 20 20 6c ack.pObj);. l
27c80 6f 67 63 61 6c 6c 62 61 63 6b 2e 70 4f 62 6a 20 ogcallback.pObj
27c90 3d 20 30 3b 0a 20 20 20 20 6c 6f 67 63 61 6c 6c = 0;. logcall
27ca0 62 61 63 6b 2e 70 49 6e 74 65 72 70 20 3d 20 30 back.pInterp = 0
27cb0 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6f ;. sqlite3_co
27cc0 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 4f 4e 46 nfig(SQLITE_CONF
27cd0 49 47 5f 4c 4f 47 2c 20 30 2c 20 30 29 3b 0a 20 IG_LOG, 0, 0);.
27ce0 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3e 31 20 }. if( objc>1
27cf0 29 7b 0a 20 20 20 20 6c 6f 67 63 61 6c 6c 62 61 ){. logcallba
27d00 63 6b 2e 70 4f 62 6a 20 3d 20 6f 62 6a 76 5b 31 ck.pObj = objv[1
27d10 5d 3b 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 ];. Tcl_IncrR
27d20 65 66 43 6f 75 6e 74 28 6c 6f 67 63 61 6c 6c 62 efCount(logcallb
27d30 61 63 6b 2e 70 4f 62 6a 29 3b 0a 20 20 20 20 6c ack.pObj);. l
27d40 6f 67 63 61 6c 6c 62 61 63 6b 2e 70 49 6e 74 65 ogcallback.pInte
27d50 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20 rp = interp;.
27d60 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 28 sqlite3_config(
27d70 53 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 4c 4f SQLITE_CONFIG_LO
27d80 47 2c 20 78 4c 6f 67 63 61 6c 6c 62 61 63 6b 2c G, xLogcallback,
27d90 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 0);. }. retur
27da0 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
27db0 2a 2a 20 20 20 20 20 74 63 6c 5f 6f 62 6a 70 72 ** tcl_objpr
27dc0 6f 63 20 43 4f 4d 4d 41 4e 44 4e 41 4d 45 20 41 oc COMMANDNAME A
27dd0 52 47 53 2e 2e 2e 0a 2a 2a 0a 2a 2a 20 52 75 6e RGS....**.** Run
27de0 20 61 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 75 a TCL command u
27df0 73 69 6e 67 20 69 74 73 20 6f 62 6a 50 72 6f 63 sing its objProc
27e00 20 69 6e 74 65 72 66 61 63 65 2e 20 20 54 68 72 interface. Thr
27e10 6f 77 20 61 6e 20 65 72 72 6f 72 20 69 66 0a 2a ow an error if.*
27e20 2a 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 68 61 * the command ha
27e30 73 20 6e 6f 20 6f 62 6a 50 72 6f 63 20 69 6e 74 s no objProc int
27e40 65 72 66 61 63 65 2e 0a 2a 2f 0a 73 74 61 74 69 erface..*/.stati
27e50 63 20 69 6e 74 20 72 75 6e 41 73 4f 62 6a 50 72 c int runAsObjPr
27e60 6f 63 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 oc(. void * cli
27e70 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
27e80 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
27e90 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
27ea0 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
27eb0 5b 5d 0a 29 7b 0a 20 20 54 63 6c 5f 43 6d 64 49 [].){. Tcl_CmdI
27ec0 6e 66 6f 20 63 6d 64 49 6e 66 6f 3b 0a 20 20 69 nfo cmdInfo;. i
27ed0 66 28 20 6f 62 6a 63 3c 32 20 29 7b 0a 20 20 20 f( objc<2 ){.
27ee0 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
27ef0 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
27f00 76 2c 20 22 43 4f 4d 4d 41 4e 44 20 2e 2e 2e 22 v, "COMMAND ..."
27f10 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
27f20 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
27f30 66 28 20 21 54 63 6c 5f 47 65 74 43 6f 6d 6d 61 f( !Tcl_GetComma
27f40 6e 64 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 54 ndInfo(interp, T
27f50 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
27f60 76 5b 31 5d 29 2c 20 26 63 6d 64 49 6e 66 6f 29 v[1]), &cmdInfo)
27f70 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
27f80 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
27f90 20 22 63 6f 6d 6d 61 6e 64 20 6e 6f 74 20 66 6f "command not fo
27fa0 75 6e 64 3a 20 22 2c 0a 20 20 20 20 20 20 20 20 und: ",.
27fb0 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
27fc0 28 6f 62 6a 76 5b 31 5d 29 2c 20 28 63 68 61 72 (objv[1]), (char
27fd0 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e *)0);. return
27fe0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
27ff0 20 20 69 66 28 20 63 6d 64 49 6e 66 6f 2e 6f 62 if( cmdInfo.ob
28000 6a 50 72 6f 63 3d 3d 30 20 29 7b 0a 20 20 20 20 jProc==0 ){.
28010 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
28020 28 69 6e 74 65 72 70 2c 20 22 63 6f 6d 6d 61 6e (interp, "comman
28030 64 20 68 61 73 20 6e 6f 20 6f 62 6a 50 72 6f 63 d has no objProc
28040 3a 20 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 : ",.
28050 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
28060 6a 76 5b 31 5d 29 2c 20 28 63 68 61 72 2a 29 30 jv[1]), (char*)0
28070 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
28080 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 L_ERROR;. }. r
28090 65 74 75 72 6e 20 63 6d 64 49 6e 66 6f 2e 6f 62 eturn cmdInfo.ob
280a0 6a 50 72 6f 63 28 63 6d 64 49 6e 66 6f 2e 6f 62 jProc(cmdInfo.ob
280b0 6a 43 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 jClientData, int
280c0 65 72 70 2c 20 6f 62 6a 63 2d 31 2c 20 6f 62 6a erp, objc-1, obj
280d0 76 2b 31 29 3b 0a 7d 0a 0a 23 69 66 6e 64 65 66 v+1);.}..#ifndef
280e0 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 45 58 50 SQLITE_OMIT_EXP
280f0 4c 41 49 4e 0a 2f 2a 0a 2a 2a 20 57 41 52 4e 49 LAIN./*.** WARNI
28100 4e 47 3a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e NG: The followin
28110 67 20 66 75 6e 63 74 69 6f 6e 2c 20 70 72 69 6e g function, prin
28120 74 45 78 70 6c 61 69 6e 51 75 65 72 79 50 6c 61 tExplainQueryPla
28130 6e 28 29 20 69 73 20 61 6e 20 65 78 61 63 74 0a n() is an exact.
28140 2a 2a 20 63 6f 70 79 20 6f 66 20 65 78 61 6d 70 ** copy of examp
28150 6c 65 20 63 6f 64 65 20 66 72 6f 6d 20 65 71 70 le code from eqp
28160 2e 69 6e 20 28 65 71 70 2e 68 74 6d 6c 29 2e 20 .in (eqp.html).
28170 49 66 20 74 68 69 73 20 63 6f 64 65 20 69 73 20 If this code is
28180 6d 6f 64 69 66 69 65 64 2c 0a 2a 2a 20 74 68 65 modified,.** the
28190 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 74 n the documentat
281a0 69 6f 6e 20 63 6f 70 79 20 6e 65 65 64 73 20 74 ion copy needs t
281b0 6f 20 62 65 20 6d 6f 64 69 66 69 65 64 20 61 73 o be modified as
281c0 20 77 65 6c 6c 2e 0a 2a 2f 0a 2f 2a 0a 2a 2a 20 well..*/./*.**
281d0 41 72 67 75 6d 65 6e 74 20 70 53 74 6d 74 20 69 Argument pStmt i
281e0 73 20 61 20 70 72 65 70 61 72 65 64 20 53 51 4c s a prepared SQL
281f0 20 73 74 61 74 65 6d 65 6e 74 2e 20 54 68 69 73 statement. This
28200 20 66 75 6e 63 74 69 6f 6e 20 63 6f 6d 70 69 6c function compil
28210 65 73 0a 2a 2a 20 61 6e 20 45 58 50 4c 41 49 4e es.** an EXPLAIN
28220 20 51 55 45 52 59 20 50 4c 41 4e 20 63 6f 6d 6d QUERY PLAN comm
28230 61 6e 64 20 74 6f 20 72 65 70 6f 72 74 20 6f 6e and to report on
28240 20 74 68 65 20 70 72 65 70 61 72 65 64 20 73 74 the prepared st
28250 61 74 65 6d 65 6e 74 2c 0a 2a 2a 20 61 6e 64 20 atement,.** and
28260 70 72 69 6e 74 73 20 74 68 65 20 72 65 70 6f 72 prints the repor
28270 74 20 74 6f 20 73 74 64 6f 75 74 20 75 73 69 6e t to stdout usin
28280 67 20 70 72 69 6e 74 66 28 29 2e 0a 2a 2f 0a 69 g printf()..*/.i
28290 6e 74 20 70 72 69 6e 74 45 78 70 6c 61 69 6e 51 nt printExplainQ
282a0 75 65 72 79 50 6c 61 6e 28 73 71 6c 69 74 65 33 ueryPlan(sqlite3
282b0 5f 73 74 6d 74 20 2a 70 53 74 6d 74 29 7b 0a 20 _stmt *pStmt){.
282c0 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 71 const char *zSq
282d0 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l;
282e0 20 2f 2a 20 49 6e 70 75 74 20 53 51 4c 20 2a 2f /* Input SQL */
282f0 0a 20 20 63 68 61 72 20 2a 7a 45 78 70 6c 61 69 . char *zExplai
28300 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n;
28310 20 20 20 2f 2a 20 53 51 4c 20 77 69 74 68 20 45 /* SQL with E
28320 58 50 4c 41 49 4e 20 51 55 45 52 59 20 50 4c 41 XPLAIN QUERY PLA
28330 4e 20 70 72 65 70 65 6e 64 65 64 20 2a 2f 0a 20 N prepended */.
28340 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
28350 45 78 70 6c 61 69 6e 3b 20 20 20 20 20 20 20 20 Explain;
28360 20 2f 2a 20 43 6f 6d 70 69 6c 65 64 20 45 58 50 /* Compiled EXP
28370 4c 41 49 4e 20 51 55 45 52 59 20 50 4c 41 4e 20 LAIN QUERY PLAN
28380 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
28390 20 72 63 3b 20 20 20 20 20 20 20 20 20 20 20 20 rc;
283a0 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
283b0 52 65 74 75 72 6e 20 63 6f 64 65 20 66 72 6f 6d Return code from
283c0 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 sqlite3_prepare
283d0 5f 76 32 28 29 20 2a 2f 0a 0a 20 20 7a 53 71 6c _v2() */.. zSql
283e0 20 3d 20 73 71 6c 69 74 65 33 5f 73 71 6c 28 70 = sqlite3_sql(p
283f0 53 74 6d 74 29 3b 0a 20 20 69 66 28 20 7a 53 71 Stmt);. if( zSq
28400 6c 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 53 51 l==0 ) return SQ
28410 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 0a 20 20 7a LITE_ERROR;.. z
28420 45 78 70 6c 61 69 6e 20 3d 20 73 71 6c 69 74 65 Explain = sqlite
28430 33 5f 6d 70 72 69 6e 74 66 28 22 45 58 50 4c 41 3_mprintf("EXPLA
28440 49 4e 20 51 55 45 52 59 20 50 4c 41 4e 20 25 73 IN QUERY PLAN %s
28450 22 2c 20 7a 53 71 6c 29 3b 0a 20 20 69 66 28 20 ", zSql);. if(
28460 7a 45 78 70 6c 61 69 6e 3d 3d 30 20 29 20 72 65 zExplain==0 ) re
28470 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 turn SQLITE_NOME
28480 4d 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 M;.. rc = sqlit
28490 65 33 5f 70 72 65 70 61 72 65 5f 76 32 28 73 71 e3_prepare_v2(sq
284a0 6c 69 74 65 33 5f 64 62 5f 68 61 6e 64 6c 65 28 lite3_db_handle(
284b0 70 53 74 6d 74 29 2c 20 7a 45 78 70 6c 61 69 6e pStmt), zExplain
284c0 2c 20 2d 31 2c 20 26 70 45 78 70 6c 61 69 6e 2c , -1, &pExplain,
284d0 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 0);. sqlite3_f
284e0 72 65 65 28 7a 45 78 70 6c 61 69 6e 29 3b 0a 20 ree(zExplain);.
284f0 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f if( rc!=SQLITE_
28500 4f 4b 20 29 20 72 65 74 75 72 6e 20 72 63 3b 0a OK ) return rc;.
28510 0a 20 20 77 68 69 6c 65 28 20 53 51 4c 49 54 45 . while( SQLITE
28520 5f 52 4f 57 3d 3d 73 71 6c 69 74 65 33 5f 73 74 _ROW==sqlite3_st
28530 65 70 28 70 45 78 70 6c 61 69 6e 29 20 29 7b 0a ep(pExplain) ){.
28540 20 20 20 20 69 6e 74 20 69 53 65 6c 65 63 74 69 int iSelecti
28550 64 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 d = sqlite3_colu
28560 6d 6e 5f 69 6e 74 28 70 45 78 70 6c 61 69 6e 2c mn_int(pExplain,
28570 20 30 29 3b 0a 20 20 20 20 69 6e 74 20 69 4f 72 0);. int iOr
28580 64 65 72 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f der = sqlite3_co
28590 6c 75 6d 6e 5f 69 6e 74 28 70 45 78 70 6c 61 69 lumn_int(pExplai
285a0 6e 2c 20 31 29 3b 0a 20 20 20 20 69 6e 74 20 69 n, 1);. int i
285b0 46 72 6f 6d 20 3d 20 73 71 6c 69 74 65 33 5f 63 From = sqlite3_c
285c0 6f 6c 75 6d 6e 5f 69 6e 74 28 70 45 78 70 6c 61 olumn_int(pExpla
285d0 69 6e 2c 20 32 29 3b 0a 20 20 20 20 63 6f 6e 73 in, 2);. cons
285e0 74 20 63 68 61 72 20 2a 7a 44 65 74 61 69 6c 20 t char *zDetail
285f0 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 = (const char *)
28600 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 sqlite3_column_t
28610 65 78 74 28 70 45 78 70 6c 61 69 6e 2c 20 33 29 ext(pExplain, 3)
28620 3b 0a 0a 20 20 20 20 70 72 69 6e 74 66 28 22 25 ;.. printf("%
28630 64 20 25 64 20 25 64 20 25 73 5c 6e 22 2c 20 69 d %d %d %s\n", i
28640 53 65 6c 65 63 74 69 64 2c 20 69 4f 72 64 65 72 Selectid, iOrder
28650 2c 20 69 46 72 6f 6d 2c 20 7a 44 65 74 61 69 6c , iFrom, zDetail
28660 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e );. }.. return
28670 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a sqlite3_finaliz
28680 65 28 70 45 78 70 6c 61 69 6e 29 3b 0a 7d 0a 0a e(pExplain);.}..
28690 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
286a0 70 72 69 6e 74 5f 65 71 70 28 0a 20 20 76 6f 69 print_eqp(. voi
286b0 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
286c0 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
286d0 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
286e0 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
286f0 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 ST objv[].){. i
28700 6e 74 20 72 63 3b 0a 20 20 73 71 6c 69 74 65 33 nt rc;. sqlite3
28710 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 _stmt *pStmt;..
28720 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a if( objc!=2 ){.
28730 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
28740 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
28750 6f 62 6a 76 2c 20 22 53 54 4d 54 22 29 3b 0a 20 objv, "STMT");.
28760 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
28770 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
28780 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e etStmtPointer(in
28790 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
287a0 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 ing(objv[1]), &p
287b0 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 Stmt) ) return T
287c0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d CL_ERROR;. rc =
287d0 20 70 72 69 6e 74 45 78 70 6c 61 69 6e 51 75 65 printExplainQue
287e0 72 79 50 6c 61 6e 28 70 53 74 6d 74 29 3b 0a 20 ryPlan(pStmt);.
287f0 20 2f 2a 20 54 68 69 73 20 69 73 20 6e 65 65 64 /* This is need
28800 65 64 20 6f 6e 20 57 69 6e 64 6f 77 73 20 73 6f ed on Windows so
28810 20 74 68 61 74 20 61 20 74 65 73 74 20 63 61 73 that a test cas
28820 65 20 75 73 69 6e 67 20 74 68 69 73 20 0a 20 20 e using this .
28830 2a 2a 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 20 ** function can
28840 6f 70 65 6e 20 61 20 72 65 61 64 20 70 69 70 65 open a read pipe
28850 20 61 6e 64 20 67 65 74 20 74 68 65 20 6f 75 74 and get the out
28860 70 75 74 20 6f 66 0a 20 20 2a 2a 20 70 72 69 6e put of. ** prin
28870 74 45 78 70 6c 61 69 6e 51 75 65 72 79 50 6c 61 tExplainQueryPla
28880 6e 28 29 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e n() immediately.
28890 0a 20 20 2a 2f 0a 20 20 66 66 6c 75 73 68 28 73 . */. fflush(s
288a0 74 64 6f 75 74 29 3b 0a 20 20 54 63 6c 5f 53 65 tdout);. Tcl_Se
288b0 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
288c0 28 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e (char *)t1ErrorN
288d0 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 ame(rc), 0);. r
288e0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
288f0 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 #endif /* SQLITE
28900 5f 4f 4d 49 54 5f 45 58 50 4c 41 49 4e 20 2a 2f _OMIT_EXPLAIN */
28910 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65 33 5f ../*.** sqlite3_
28920 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 20 56 45 52 test_control VER
28930 42 20 41 52 47 53 2e 2e 2e 0a 2a 2f 0a 73 74 61 B ARGS....*/.sta
28940 74 69 63 20 69 6e 74 20 74 65 73 74 5f 74 65 73 tic int test_tes
28950 74 5f 63 6f 6e 74 72 6f 6c 28 0a 20 20 76 6f 69 t_control(. voi
28960 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
28970 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
28980 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
28990 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
289a0 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
289b0 74 72 75 63 74 20 56 65 72 62 20 7b 0a 20 20 20 truct Verb {.
289c0 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 const char *zNa
289d0 6d 65 3b 0a 20 20 20 20 69 6e 74 20 69 3b 0a 20 me;. int i;.
289e0 20 7d 20 61 56 65 72 62 5b 5d 20 3d 20 7b 0a 20 } aVerb[] = {.
289f0 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 54 45 53 { "SQLITE_TES
28a00 54 43 54 52 4c 5f 4c 4f 43 41 4c 54 49 4d 45 5f TCTRL_LOCALTIME_
28a10 46 41 55 4c 54 22 2c 20 53 51 4c 49 54 45 5f 54 FAULT", SQLITE_T
28a20 45 53 54 43 54 52 4c 5f 4c 4f 43 41 4c 54 49 4d ESTCTRL_LOCALTIM
28a30 45 5f 46 41 55 4c 54 20 7d 2c 20 0a 20 20 20 20 E_FAULT }, .
28a40 7b 20 22 53 51 4c 49 54 45 5f 54 45 53 54 43 54 { "SQLITE_TESTCT
28a50 52 4c 5f 53 4f 52 54 45 52 5f 4d 4d 41 50 22 2c RL_SORTER_MMAP",
28a60 20 53 51 4c 49 54 45 5f 54 45 53 54 43 54 52 4c SQLITE_TESTCTRL
28a70 5f 53 4f 52 54 45 52 5f 4d 4d 41 50 20 7d 2c 20 _SORTER_MMAP },
28a80 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 69 56 65 72 . };. int iVer
28a90 62 3b 0a 20 20 69 6e 74 20 69 46 6c 61 67 3b 0a b;. int iFlag;.
28aa0 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 int rc;.. if(
28ab0 20 6f 62 6a 63 3c 32 20 29 7b 0a 20 20 20 20 54 objc<2 ){. T
28ac0 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
28ad0 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
28ae0 20 22 56 45 52 42 20 41 52 47 53 2e 2e 2e 22 29 "VERB ARGS...")
28af0 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
28b00 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 _ERROR;. }.. r
28b10 63 20 3d 20 54 63 6c 5f 47 65 74 49 6e 64 65 78 c = Tcl_GetIndex
28b20 46 72 6f 6d 4f 62 6a 53 74 72 75 63 74 28 0a 20 FromObjStruct(.
28b30 20 20 20 20 20 69 6e 74 65 72 70 2c 20 6f 62 6a interp, obj
28b40 76 5b 31 5d 2c 20 61 56 65 72 62 2c 20 73 69 7a v[1], aVerb, siz
28b50 65 6f 66 28 61 56 65 72 62 5b 30 5d 29 2c 20 22 eof(aVerb[0]), "
28b60 56 45 52 42 22 2c 20 30 2c 20 26 69 56 65 72 62 VERB", 0, &iVerb
28b70 0a 20 20 29 3b 0a 20 20 69 66 28 20 72 63 21 3d . );. if( rc!=
28b80 54 43 4c 5f 4f 4b 20 29 20 72 65 74 75 72 6e 20 TCL_OK ) return
28b90 72 63 3b 0a 0a 20 20 69 46 6c 61 67 20 3d 20 61 rc;.. iFlag = a
28ba0 56 65 72 62 5b 69 56 65 72 62 5d 2e 69 3b 0a 20 Verb[iVerb].i;.
28bb0 20 73 77 69 74 63 68 28 20 69 46 6c 61 67 20 29 switch( iFlag )
28bc0 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 {. case SQLIT
28bd0 45 5f 54 45 53 54 43 54 52 4c 5f 4c 4f 43 41 4c E_TESTCTRL_LOCAL
28be0 54 49 4d 45 5f 46 41 55 4c 54 3a 20 7b 0a 20 20 TIME_FAULT: {.
28bf0 20 20 20 20 69 6e 74 20 76 61 6c 3b 0a 20 20 20 int val;.
28c00 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 if( objc!=3 )
28c10 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72 {. Tcl_Wr
28c20 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
28c30 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 4f 4e 4f p, 2, objv, "ONO
28c40 46 46 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65 FF");. re
28c50 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
28c60 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 }. if
28c70 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e ( Tcl_GetBoolean
28c80 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
28c90 6f 62 6a 76 5b 32 5d 2c 20 26 76 61 6c 29 20 29 objv[2], &val) )
28ca0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
28cb0 52 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 R;. sqlite3
28cc0 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 28 53 51 _test_control(SQ
28cd0 4c 49 54 45 5f 54 45 53 54 43 54 52 4c 5f 4c 4f LITE_TESTCTRL_LO
28ce0 43 41 4c 54 49 4d 45 5f 46 41 55 4c 54 2c 20 76 CALTIME_FAULT, v
28cf0 61 6c 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b al);. break
28d00 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 ;. }.. cas
28d10 65 20 53 51 4c 49 54 45 5f 54 45 53 54 43 54 52 e SQLITE_TESTCTR
28d20 4c 5f 53 4f 52 54 45 52 5f 4d 4d 41 50 3a 20 7b L_SORTER_MMAP: {
28d30 0a 20 20 20 20 20 20 69 6e 74 20 76 61 6c 3b 0a . int val;.
28d40 20 20 20 20 20 20 73 71 6c 69 74 65 33 20 2a 64 sqlite3 *d
28d50 62 3b 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a b;. if( obj
28d60 63 21 3d 34 20 29 7b 0a 20 20 20 20 20 20 20 20 c!=4 ){.
28d70 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
28d80 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 (interp, 2, objv
28d90 2c 20 22 44 42 20 4c 49 4d 49 54 22 29 3b 0a 20 , "DB LIMIT");.
28da0 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 return TC
28db0 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d L_ERROR;. }
28dc0 0a 20 20 20 20 20 20 69 66 28 20 67 65 74 44 62 . if( getDb
28dd0 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
28de0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
28df0 6a 76 5b 32 5d 29 2c 20 26 64 62 29 20 29 20 72 jv[2]), &db) ) r
28e00 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
28e10 0a 20 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47 . if( Tcl_G
28e20 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
28e30 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 erp, objv[3], &v
28e40 61 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c al) ) return TCL
28e50 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 73 71 _ERROR;. sq
28e60 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 lite3_test_contr
28e70 6f 6c 28 53 51 4c 49 54 45 5f 54 45 53 54 43 54 ol(SQLITE_TESTCT
28e80 52 4c 5f 53 4f 52 54 45 52 5f 4d 4d 41 50 2c 20 RL_SORTER_MMAP,
28e90 64 62 2c 20 76 61 6c 29 3b 0a 20 20 20 20 20 20 db, val);.
28ea0 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d break;. }. }
28eb0 0a 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 .. Tcl_ResetRes
28ec0 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 72 ult(interp);. r
28ed0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
28ee0 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f 55 .#if SQLITE_OS_U
28ef0 4e 49 58 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79 NIX.#include <sy
28f00 73 2f 74 69 6d 65 2e 68 3e 0a 23 69 6e 63 6c 75 s/time.h>.#inclu
28f10 64 65 20 3c 73 79 73 2f 72 65 73 6f 75 72 63 65 de <sys/resource
28f20 2e 68 3e 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 .h>..static int
28f30 74 65 73 74 5f 67 65 74 72 75 73 61 67 65 28 0a test_getrusage(.
28f40 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
28f50 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
28f60 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
28f70 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
28f80 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
28f90 7b 0a 20 20 63 68 61 72 20 62 75 66 5b 31 30 32 {. char buf[102
28fa0 34 5d 3b 0a 20 20 73 74 72 75 63 74 20 72 75 73 4];. struct rus
28fb0 61 67 65 20 72 3b 0a 20 20 6d 65 6d 73 65 74 28 age r;. memset(
28fc0 26 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 72 29 &r, 0, sizeof(r)
28fd0 29 3b 0a 20 20 67 65 74 72 75 73 61 67 65 28 52 );. getrusage(R
28fe0 55 53 41 47 45 5f 53 45 4c 46 2c 20 26 72 29 3b USAGE_SELF, &r);
28ff0 0a 0a 20 20 73 70 72 69 6e 74 66 28 62 75 66 2c .. sprintf(buf,
29000 20 22 72 75 5f 75 74 69 6d 65 3d 25 64 2e 25 30 "ru_utime=%d.%0
29010 36 64 20 72 75 5f 73 74 69 6d 65 3d 25 64 2e 25 6d ru_stime=%d.%
29020 30 36 64 20 72 75 5f 6d 69 6e 66 6c 74 3d 25 64 06d ru_minflt=%d
29030 20 72 75 5f 6d 61 6a 66 6c 74 3d 25 64 22 2c 20 ru_majflt=%d",
29040 0a 20 20 20 20 28 69 6e 74 29 72 2e 72 75 5f 75 . (int)r.ru_u
29050 74 69 6d 65 2e 74 76 5f 73 65 63 2c 20 28 69 6e time.tv_sec, (in
29060 74 29 72 2e 72 75 5f 75 74 69 6d 65 2e 74 76 5f t)r.ru_utime.tv_
29070 75 73 65 63 2c 20 0a 20 20 20 20 28 69 6e 74 29 usec, . (int)
29080 72 2e 72 75 5f 73 74 69 6d 65 2e 74 76 5f 73 65 r.ru_stime.tv_se
29090 63 2c 20 28 69 6e 74 29 72 2e 72 75 5f 73 74 69 c, (int)r.ru_sti
290a0 6d 65 2e 74 76 5f 75 73 65 63 2c 20 0a 20 20 20 me.tv_usec, .
290b0 20 28 69 6e 74 29 72 2e 72 75 5f 6d 69 6e 66 6c (int)r.ru_minfl
290c0 74 2c 20 28 69 6e 74 29 72 2e 72 75 5f 6d 61 6a t, (int)r.ru_maj
290d0 66 6c 74 0a 20 20 29 3b 0a 20 20 54 63 6c 5f 53 flt. );. Tcl_S
290e0 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
290f0 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e rp, Tcl_NewStrin
29100 67 4f 62 6a 28 62 75 66 2c 20 2d 31 29 29 3b 0a gObj(buf, -1));.
29110 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
29120 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 69 66 20 53 .}.#endif..#if S
29130 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 0a 2f 2a 0a QLITE_OS_WIN./*.
29140 2a 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 ** Information p
29150 61 73 73 65 64 20 66 72 6f 6d 20 74 68 65 20 6d assed from the m
29160 61 69 6e 20 74 68 72 65 61 64 20 69 6e 74 6f 20 ain thread into
29170 74 68 65 20 77 69 6e 64 6f 77 73 20 66 69 6c 65 the windows file
29180 20 6c 6f 63 6b 65 72 0a 2a 2a 20 62 61 63 6b 67 locker.** backg
29190 72 6f 75 6e 64 20 74 68 72 65 61 64 2e 0a 2a 2f round thread..*/
291a0 0a 73 74 72 75 63 74 20 77 69 6e 33 32 46 69 6c .struct win32Fil
291b0 65 4c 6f 63 6b 65 72 20 7b 0a 20 20 63 68 61 72 eLocker {. char
291c0 20 2a 65 76 4e 61 6d 65 3b 20 20 20 20 20 20 20 *evName;
291d0 2f 2a 20 4e 61 6d 65 20 6f 66 20 65 76 65 6e 74 /* Name of event
291e0 20 74 6f 20 73 69 67 6e 61 6c 20 74 68 72 65 61 to signal threa
291f0 64 20 73 74 61 72 74 75 70 20 2a 2f 0a 20 20 48 d startup */. H
29200 41 4e 44 4c 45 20 68 3b 20 20 20 20 20 20 20 20 ANDLE h;
29210 20 20 20 2f 2a 20 48 61 6e 64 6c 65 20 6f 66 20 /* Handle of
29220 74 68 65 20 66 69 6c 65 20 74 6f 20 62 65 20 6c the file to be l
29230 6f 63 6b 65 64 20 2a 2f 0a 20 20 69 6e 74 20 64 ocked */. int d
29240 65 6c 61 79 31 3b 20 20 20 20 20 20 20 20 20 2f elay1; /
29250 2a 20 44 65 6c 61 79 20 62 65 66 6f 72 65 20 6c * Delay before l
29260 6f 63 6b 69 6e 67 20 2a 2f 0a 20 20 69 6e 74 20 ocking */. int
29270 64 65 6c 61 79 32 3b 20 20 20 20 20 20 20 20 20 delay2;
29280 2f 2a 20 44 65 6c 61 79 20 62 65 66 6f 72 65 20 /* Delay before
29290 75 6e 6c 6f 63 6b 69 6e 67 20 2a 2f 0a 20 20 69 unlocking */. i
292a0 6e 74 20 6f 6b 3b 20 20 20 20 20 20 20 20 20 20 nt ok;
292b0 20 20 20 2f 2a 20 46 69 6e 69 73 68 65 64 20 6f /* Finished o
292c0 6b 20 2a 2f 0a 20 20 69 6e 74 20 65 72 72 3b 20 k */. int err;
292d0 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 /* Tr
292e0 75 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f ue if an error o
292f0 63 63 75 72 73 20 2a 2f 0a 7d 3b 0a 23 65 6e 64 ccurs */.};.#end
29300 69 66 0a 0a 0a 23 69 66 20 53 51 4c 49 54 45 5f if...#if SQLITE_
29310 4f 53 5f 57 49 4e 0a 23 69 6e 63 6c 75 64 65 20 OS_WIN.#include
29320 3c 70 72 6f 63 65 73 73 2e 68 3e 0a 2f 2a 0a 2a <process.h>./*.*
29330 2a 20 54 68 65 20 62 61 63 6b 67 72 6f 75 6e 64 * The background
29340 20 74 68 72 65 61 64 20 74 68 61 74 20 64 6f 65 thread that doe
29350 73 20 66 69 6c 65 20 6c 6f 63 6b 69 6e 67 2e 0a s file locking..
29360 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 77 */.static void w
29370 69 6e 33 32 5f 66 69 6c 65 5f 6c 6f 63 6b 65 72 in32_file_locker
29380 28 76 6f 69 64 20 2a 70 41 70 70 44 61 74 61 29 (void *pAppData)
29390 7b 0a 20 20 73 74 72 75 63 74 20 77 69 6e 33 32 {. struct win32
293a0 46 69 6c 65 4c 6f 63 6b 65 72 20 2a 70 20 3d 20 FileLocker *p =
293b0 28 73 74 72 75 63 74 20 77 69 6e 33 32 46 69 6c (struct win32Fil
293c0 65 4c 6f 63 6b 65 72 2a 29 70 41 70 70 44 61 74 eLocker*)pAppDat
293d0 61 3b 0a 20 20 69 66 28 20 70 2d 3e 65 76 4e 61 a;. if( p->evNa
293e0 6d 65 20 29 7b 0a 20 20 20 20 48 41 4e 44 4c 45 me ){. HANDLE
293f0 20 65 76 20 3d 20 4f 70 65 6e 45 76 65 6e 74 28 ev = OpenEvent(
29400 45 56 45 4e 54 5f 4d 4f 44 49 46 59 5f 53 54 41 EVENT_MODIFY_STA
29410 54 45 2c 20 46 41 4c 53 45 2c 20 70 2d 3e 65 76 TE, FALSE, p->ev
29420 4e 61 6d 65 29 3b 0a 20 20 20 20 69 66 20 28 20 Name);. if (
29430 65 76 20 29 7b 0a 20 20 20 20 20 20 53 65 74 45 ev ){. SetE
29440 76 65 6e 74 28 65 76 29 3b 0a 20 20 20 20 20 20 vent(ev);.
29450 43 6c 6f 73 65 48 61 6e 64 6c 65 28 65 76 29 3b CloseHandle(ev);
29460 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 . }. }. if(
29470 20 70 2d 3e 64 65 6c 61 79 31 20 29 20 53 6c 65 p->delay1 ) Sle
29480 65 70 28 70 2d 3e 64 65 6c 61 79 31 29 3b 0a 20 ep(p->delay1);.
29490 20 69 66 28 20 4c 6f 63 6b 46 69 6c 65 28 70 2d if( LockFile(p-
294a0 3e 68 2c 20 30 2c 20 30 2c 20 31 30 30 30 30 30 >h, 0, 0, 100000
294b0 30 30 30 2c 20 30 29 20 29 7b 0a 20 20 20 20 53 000, 0) ){. S
294c0 6c 65 65 70 28 70 2d 3e 64 65 6c 61 79 32 29 3b leep(p->delay2);
294d0 0a 20 20 20 20 55 6e 6c 6f 63 6b 46 69 6c 65 28 . UnlockFile(
294e0 70 2d 3e 68 2c 20 30 2c 20 30 2c 20 31 30 30 30 p->h, 0, 0, 1000
294f0 30 30 30 30 30 2c 20 30 29 3b 0a 20 20 20 20 70 00000, 0);. p
29500 2d 3e 6f 6b 20 3d 20 31 3b 0a 20 20 7d 65 6c 73 ->ok = 1;. }els
29510 65 7b 0a 20 20 20 20 70 2d 3e 65 72 72 20 3d 20 e{. p->err =
29520 31 3b 0a 20 20 7d 0a 20 20 43 6c 6f 73 65 48 61 1;. }. CloseHa
29530 6e 64 6c 65 28 70 2d 3e 68 29 3b 0a 20 20 70 2d ndle(p->h);. p-
29540 3e 68 20 3d 20 30 3b 0a 20 20 70 2d 3e 64 65 6c >h = 0;. p->del
29550 61 79 31 20 3d 20 30 3b 0a 20 20 70 2d 3e 64 65 ay1 = 0;. p->de
29560 6c 61 79 32 20 3d 20 30 3b 0a 7d 0a 23 65 6e 64 lay2 = 0;.}.#end
29570 69 66 0a 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f if..#if SQLITE_O
29580 53 5f 57 49 4e 0a 2f 2a 0a 2a 2a 20 20 20 20 20 S_WIN./*.**
29590 20 6c 6f 63 6b 5f 77 69 6e 33 32 5f 66 69 6c 65 lock_win32_file
295a0 20 46 49 4c 45 4e 41 4d 45 20 44 45 4c 41 59 31 FILENAME DELAY1
295b0 20 44 45 4c 41 59 32 0a 2a 2a 0a 2a 2a 20 47 65 DELAY2.**.** Ge
295c0 74 20 61 6e 20 65 78 63 6c 75 73 69 76 65 20 6d t an exclusive m
295d0 61 6e 64 69 74 6f 72 79 20 6c 6f 63 6b 20 6f 6e anditory lock on
295e0 20 66 69 6c 65 20 66 6f 72 20 44 45 4c 41 59 32 file for DELAY2
295f0 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 2e 0a 2a milliseconds..*
29600 2a 20 57 61 69 74 20 44 45 4c 41 59 31 20 6d 69 * Wait DELAY1 mi
29610 6c 6c 69 73 65 63 6f 6e 64 73 20 62 65 66 6f 72 lliseconds befor
29620 65 20 61 63 71 75 69 72 69 6e 67 20 74 68 65 20 e acquiring the
29630 6c 6f 63 6b 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 lock..*/.static
29640 69 6e 74 20 77 69 6e 33 32 5f 66 69 6c 65 5f 6c int win32_file_l
29650 6f 63 6b 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c ock(. void * cl
29660 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
29670 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
29680 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
29690 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
296a0 76 5b 5d 0a 29 7b 0a 20 20 73 74 61 74 69 63 20 v[].){. static
296b0 73 74 72 75 63 74 20 77 69 6e 33 32 46 69 6c 65 struct win32File
296c0 4c 6f 63 6b 65 72 20 78 20 3d 20 7b 20 22 77 69 Locker x = { "wi
296d0 6e 33 32 5f 66 69 6c 65 5f 6c 6f 63 6b 22 2c 20 n32_file_lock",
296e0 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 20 7d 3b 0, 0, 0, 0, 0 };
296f0 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
29700 46 69 6c 65 6e 61 6d 65 3b 0a 20 20 63 68 61 72 Filename;. char
29710 20 7a 42 75 66 5b 32 30 30 5d 3b 0a 20 20 69 6e zBuf[200];. in
29720 74 20 72 65 74 72 79 20 3d 20 30 3b 0a 20 20 48 t retry = 0;. H
29730 41 4e 44 4c 45 20 65 76 3b 0a 20 20 44 57 4f 52 ANDLE ev;. DWOR
29740 44 20 77 52 65 73 75 6c 74 3b 0a 20 20 0a 20 20 D wResult;. .
29750 69 66 28 20 6f 62 6a 63 21 3d 34 20 26 26 20 6f if( objc!=4 && o
29760 62 6a 63 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 bjc!=1 ){. Tc
29770 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
29780 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
29790 22 46 49 4c 45 4e 41 4d 45 20 44 45 4c 41 59 31 "FILENAME DELAY1
297a0 20 44 45 4c 41 59 32 22 29 3b 0a 20 20 20 20 72 DELAY2");. r
297b0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
297c0 0a 20 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3d . }. if( objc=
297d0 3d 31 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 =1 ){. sqlite
297e0 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 3_snprintf(sizeo
297f0 66 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 f(zBuf), zBuf, "
29800 25 64 20 25 64 20 25 64 20 25 64 20 25 64 22 2c %d %d %d %d %d",
29810 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
29820 20 20 20 20 20 20 78 2e 6f 6b 2c 20 78 2e 65 72 x.ok, x.er
29830 72 2c 20 78 2e 64 65 6c 61 79 31 2c 20 78 2e 64 r, x.delay1, x.d
29840 65 6c 61 79 32 2c 20 78 2e 68 29 3b 0a 20 20 20 elay2, x.h);.
29850 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
29860 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 t(interp, zBuf,
29870 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 72 (char*)0);. r
29880 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 eturn TCL_OK;.
29890 7d 0a 20 20 77 68 69 6c 65 28 20 78 2e 68 20 26 }. while( x.h &
298a0 26 20 72 65 74 72 79 3c 33 30 20 29 7b 0a 20 20 & retry<30 ){.
298b0 20 20 72 65 74 72 79 2b 2b 3b 0a 20 20 20 20 53 retry++;. S
298c0 6c 65 65 70 28 31 30 30 29 3b 0a 20 20 7d 0a 20 leep(100);. }.
298d0 20 69 66 28 20 78 2e 68 20 29 7b 0a 20 20 20 20 if( x.h ){.
298e0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
298f0 28 69 6e 74 65 72 70 2c 20 22 62 75 73 79 22 2c (interp, "busy",
29900 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 (char*)0);.
29910 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
29920 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f ;. }. if( Tcl_
29930 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
29940 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 terp, objv[2], &
29950 78 2e 64 65 6c 61 79 31 29 20 29 20 72 65 74 75 x.delay1) ) retu
29960 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
29970 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
29980 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
29990 6a 76 5b 33 5d 2c 20 26 78 2e 64 65 6c 61 79 32 jv[3], &x.delay2
299a0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
299b0 52 52 4f 52 3b 0a 20 20 7a 46 69 6c 65 6e 61 6d RROR;. zFilenam
299c0 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e e = Tcl_GetStrin
299d0 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 78 2e g(objv[1]);. x.
299e0 68 20 3d 20 43 72 65 61 74 65 46 69 6c 65 28 7a h = CreateFile(z
299f0 46 69 6c 65 6e 61 6d 65 2c 20 47 45 4e 45 52 49 Filename, GENERI
29a00 43 5f 52 45 41 44 7c 47 45 4e 45 52 49 43 5f 57 C_READ|GENERIC_W
29a10 52 49 54 45 2c 0a 20 20 20 20 20 20 20 20 20 20 RITE,.
29a20 20 20 20 20 46 49 4c 45 5f 53 48 41 52 45 5f 52 FILE_SHARE_R
29a30 45 41 44 7c 46 49 4c 45 5f 53 48 41 52 45 5f 57 EAD|FILE_SHARE_W
29a40 52 49 54 45 2c 20 30 2c 20 4f 50 45 4e 5f 41 4c RITE, 0, OPEN_AL
29a50 57 41 59 53 2c 0a 20 20 20 20 20 20 20 20 20 20 WAYS,.
29a60 20 20 20 20 46 49 4c 45 5f 41 54 54 52 49 42 55 FILE_ATTRIBU
29a70 54 45 5f 4e 4f 52 4d 41 4c 2c 20 30 29 3b 0a 20 TE_NORMAL, 0);.
29a80 20 69 66 28 20 21 78 2e 68 20 29 7b 0a 20 20 20 if( !x.h ){.
29a90 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
29aa0 74 28 69 6e 74 65 72 70 2c 20 22 63 61 6e 6e 6f t(interp, "canno
29ab0 74 20 6f 70 65 6e 20 66 69 6c 65 3a 20 22 2c 20 t open file: ",
29ac0 7a 46 69 6c 65 6e 61 6d 65 2c 20 28 63 68 61 72 zFilename, (char
29ad0 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e *)0);. return
29ae0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
29af0 20 20 65 76 20 3d 20 43 72 65 61 74 65 45 76 65 ev = CreateEve
29b00 6e 74 28 4e 55 4c 4c 2c 20 54 52 55 45 2c 20 46 nt(NULL, TRUE, F
29b10 41 4c 53 45 2c 20 78 2e 65 76 4e 61 6d 65 29 3b ALSE, x.evName);
29b20 0a 20 20 69 66 20 28 20 21 65 76 20 29 7b 0a 20 . if ( !ev ){.
29b30 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
29b40 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 61 6e ult(interp, "can
29b50 6e 6f 74 20 63 72 65 61 74 65 20 65 76 65 6e 74 not create event
29b60 3a 20 22 2c 20 78 2e 65 76 4e 61 6d 65 2c 20 28 : ", x.evName, (
29b70 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 72 65 char*)0);. re
29b80 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
29b90 20 20 7d 0a 20 20 5f 62 65 67 69 6e 74 68 72 65 }. _beginthre
29ba0 61 64 28 77 69 6e 33 32 5f 66 69 6c 65 5f 6c 6f ad(win32_file_lo
29bb0 63 6b 65 72 2c 20 30 2c 20 28 76 6f 69 64 2a 29 cker, 0, (void*)
29bc0 26 78 29 3b 0a 20 20 53 6c 65 65 70 28 30 29 3b &x);. Sleep(0);
29bd0 0a 20 20 69 66 20 28 20 28 77 52 65 73 75 6c 74 . if ( (wResult
29be0 20 3d 20 57 61 69 74 46 6f 72 53 69 6e 67 6c 65 = WaitForSingle
29bf0 4f 62 6a 65 63 74 28 65 76 2c 20 31 30 30 30 30 Object(ev, 10000
29c00 29 29 21 3d 57 41 49 54 5f 4f 42 4a 45 43 54 5f ))!=WAIT_OBJECT_
29c10 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 0 ){. sqlite3
29c20 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 _snprintf(sizeof
29c30 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 30 (zBuf), zBuf, "0
29c40 78 25 78 22 2c 20 77 52 65 73 75 6c 74 29 3b 0a x%x", wResult);.
29c50 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
29c60 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 61 sult(interp, "wa
29c70 69 74 20 66 61 69 6c 65 64 3a 20 22 2c 20 7a 42 it failed: ", zB
29c80 75 66 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 uf, (char*)0);.
29c90 20 20 20 43 6c 6f 73 65 48 61 6e 64 6c 65 28 65 CloseHandle(e
29ca0 76 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 v);. return T
29cb0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
29cc0 43 6c 6f 73 65 48 61 6e 64 6c 65 28 65 76 29 3b CloseHandle(ev);
29cd0 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
29ce0 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 20 ;.}../*.**
29cf0 65 78 69 73 74 73 5f 77 69 6e 33 32 5f 70 61 74 exists_win32_pat
29d00 68 20 50 41 54 48 0a 2a 2a 0a 2a 2a 20 52 65 74 h PATH.**.** Ret
29d10 75 72 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20 69 66 urns non-zero if
29d20 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 70 the specified p
29d30 61 74 68 20 65 78 69 73 74 73 2c 20 77 68 6f 73 ath exists, whos
29d40 65 20 66 75 6c 6c 79 20 71 75 61 6c 69 66 69 65 e fully qualifie
29d50 64 20 6e 61 6d 65 0a 2a 2a 20 6d 61 79 20 65 78 d name.** may ex
29d60 63 65 65 64 20 32 36 30 20 63 68 61 72 61 63 74 ceed 260 charact
29d70 65 72 73 20 69 66 20 69 74 20 69 73 20 70 72 65 ers if it is pre
29d80 66 69 78 65 64 20 77 69 74 68 20 22 5c 5c 3f 5c fixed with "\\?\
29d90 22 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 "..*/.static int
29da0 20 77 69 6e 33 32 5f 65 78 69 73 74 73 5f 70 61 win32_exists_pa
29db0 74 68 28 0a 20 20 76 6f 69 64 20 2a 63 6c 69 65 th(. void *clie
29dc0 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
29dd0 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
29de0 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
29df0 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
29e00 5d 0a 29 7b 0a 20 20 69 66 28 20 6f 62 6a 63 21 ].){. if( objc!
29e10 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 =2 ){. Tcl_Wr
29e20 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
29e30 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 50 41 54 p, 1, objv, "PAT
29e40 48 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 H");. return
29e50 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
29e60 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
29e70 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
29e80 77 42 6f 6f 6c 65 61 6e 4f 62 6a 28 0a 20 20 20 wBooleanObj(.
29e90 20 20 20 47 65 74 46 69 6c 65 41 74 74 72 69 62 GetFileAttrib
29ea0 75 74 65 73 57 28 20 54 63 6c 5f 47 65 74 55 6e utesW( Tcl_GetUn
29eb0 69 63 6f 64 65 28 6f 62 6a 76 5b 31 5d 29 29 21 icode(objv[1]))!
29ec0 3d 49 4e 56 41 4c 49 44 5f 46 49 4c 45 5f 41 54 =INVALID_FILE_AT
29ed0 54 52 49 42 55 54 45 53 20 29 29 3b 0a 20 20 72 TRIBUTES ));. r
29ee0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
29ef0 0a 2f 2a 0a 2a 2a 20 20 20 20 20 20 66 69 6e 64 ./*.** find
29f00 5f 77 69 6e 33 32 5f 66 69 6c 65 20 50 41 54 54 _win32_file PATT
29f10 45 52 4e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e ERN.**.** Return
29f20 73 20 61 20 6c 69 73 74 20 6f 66 20 65 6e 74 72 s a list of entr
29f30 69 65 73 20 69 6e 20 61 20 64 69 72 65 63 74 6f ies in a directo
29f40 72 79 20 74 68 61 74 20 6d 61 74 63 68 20 74 68 ry that match th
29f50 65 20 73 70 65 63 69 66 69 65 64 20 70 61 74 74 e specified patt
29f60 65 72 6e 2c 0a 2a 2a 20 77 68 6f 73 65 20 66 75 ern,.** whose fu
29f70 6c 6c 79 20 71 75 61 6c 69 66 69 65 64 20 6e 61 lly qualified na
29f80 6d 65 20 6d 61 79 20 65 78 63 65 65 64 20 32 34 me may exceed 24
29f90 38 20 63 68 61 72 61 63 74 65 72 73 20 69 66 20 8 characters if
29fa0 69 74 20 69 73 20 70 72 65 66 69 78 65 64 20 77 it is prefixed w
29fb0 69 74 68 0a 2a 2a 20 22 5c 5c 3f 5c 22 2e 0a 2a ith.** "\\?\"..*
29fc0 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 77 69 6e /.static int win
29fd0 33 32 5f 66 69 6e 64 5f 66 69 6c 65 28 0a 20 20 32_find_file(.
29fe0 76 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61 74 61 void *clientData
29ff0 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
2a000 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
2a010 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
2a020 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
2a030 20 48 41 4e 44 4c 45 20 68 46 69 6e 64 46 69 6c HANDLE hFindFil
2a040 65 20 3d 20 49 4e 56 41 4c 49 44 5f 48 41 4e 44 e = INVALID_HAND
2a050 4c 45 5f 56 41 4c 55 45 3b 0a 20 20 57 49 4e 33 LE_VALUE;. WIN3
2a060 32 5f 46 49 4e 44 5f 44 41 54 41 57 20 66 69 6e 2_FIND_DATAW fin
2a070 64 44 61 74 61 3b 0a 20 20 54 63 6c 5f 4f 62 6a dData;. Tcl_Obj
2a080 20 2a 6c 69 73 74 4f 62 6a 3b 0a 20 20 44 57 4f *listObj;. DWO
2a090 52 44 20 6c 61 73 74 45 72 72 6e 6f 3b 0a 20 20 RD lastErrno;.
2a0a0 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 if( objc!=2 ){.
2a0b0 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 Tcl_WrongNumA
2a0c0 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
2a0d0 62 6a 76 2c 20 22 50 41 54 54 45 52 4e 22 29 3b bjv, "PATTERN");
2a0e0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2a0f0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 68 46 69 ERROR;. }. hFi
2a100 6e 64 46 69 6c 65 20 3d 20 46 69 6e 64 46 69 72 ndFile = FindFir
2a110 73 74 46 69 6c 65 57 28 54 63 6c 5f 47 65 74 55 stFileW(Tcl_GetU
2a120 6e 69 63 6f 64 65 28 6f 62 6a 76 5b 31 5d 29 2c nicode(objv[1]),
2a130 20 26 66 69 6e 64 44 61 74 61 29 3b 0a 20 20 69 &findData);. i
2a140 66 28 20 68 46 69 6e 64 46 69 6c 65 3d 3d 49 4e f( hFindFile==IN
2a150 56 41 4c 49 44 5f 48 41 4e 44 4c 45 5f 56 41 4c VALID_HANDLE_VAL
2a160 55 45 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 UE ){. Tcl_Se
2a170 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
2a180 70 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e p, Tcl_NewWideIn
2a190 74 4f 62 6a 28 47 65 74 4c 61 73 74 45 72 72 6f tObj(GetLastErro
2a1a0 72 28 29 29 29 3b 0a 20 20 20 20 72 65 74 75 72 r()));. retur
2a1b0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
2a1c0 0a 20 20 6c 69 73 74 4f 62 6a 20 3d 20 54 63 6c . listObj = Tcl
2a1d0 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 54 63 6c _NewObj();. Tcl
2a1e0 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6c 69 _IncrRefCount(li
2a1f0 73 74 4f 62 6a 29 3b 0a 20 20 64 6f 20 7b 0a 20 stObj);. do {.
2a200 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
2a210 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
2a220 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 54 63 6c rp, listObj, Tcl
2a230 5f 4e 65 77 55 6e 69 63 6f 64 65 4f 62 6a 28 0a _NewUnicodeObj(.
2a240 20 20 20 20 20 20 20 20 66 69 6e 64 44 61 74 61 findData
2a250 2e 63 46 69 6c 65 4e 61 6d 65 2c 20 2d 31 29 29 .cFileName, -1))
2a260 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ;. Tcl_ListOb
2a270 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
2a280 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 nterp, listObj,
2a290 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 Tcl_NewWideIntOb
2a2a0 6a 28 0a 20 20 20 20 20 20 20 20 66 69 6e 64 44 j(. findD
2a2b0 61 74 61 2e 64 77 46 69 6c 65 41 74 74 72 69 62 ata.dwFileAttrib
2a2c0 75 74 65 73 29 29 3b 0a 20 20 7d 20 77 68 69 6c utes));. } whil
2a2d0 65 28 20 46 69 6e 64 4e 65 78 74 46 69 6c 65 57 e( FindNextFileW
2a2e0 28 68 46 69 6e 64 46 69 6c 65 2c 20 26 66 69 6e (hFindFile, &fin
2a2f0 64 44 61 74 61 29 20 29 3b 0a 20 20 6c 61 73 74 dData) );. last
2a300 45 72 72 6e 6f 20 3d 20 47 65 74 4c 61 73 74 45 Errno = GetLastE
2a310 72 72 6f 72 28 29 3b 0a 20 20 69 66 28 20 6c 61 rror();. if( la
2a320 73 74 45 72 72 6e 6f 21 3d 4e 4f 5f 45 52 52 4f stErrno!=NO_ERRO
2a330 52 20 26 26 20 6c 61 73 74 45 72 72 6e 6f 21 3d R && lastErrno!=
2a340 45 52 52 4f 52 5f 4e 4f 5f 4d 4f 52 45 5f 46 49 ERROR_NO_MORE_FI
2a350 4c 45 53 20 29 7b 0a 20 20 20 20 46 69 6e 64 43 LES ){. FindC
2a360 6c 6f 73 65 28 68 46 69 6e 64 46 69 6c 65 29 3b lose(hFindFile);
2a370 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 . Tcl_DecrRef
2a380 43 6f 75 6e 74 28 6c 69 73 74 4f 62 6a 29 3b 0a Count(listObj);.
2a390 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
2a3a0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
2a3b0 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 47 _NewWideIntObj(G
2a3c0 65 74 4c 61 73 74 45 72 72 6f 72 28 29 29 29 3b etLastError()));
2a3d0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2a3e0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 46 69 6e ERROR;. }. Fin
2a3f0 64 43 6c 6f 73 65 28 68 46 69 6e 64 46 69 6c 65 dClose(hFindFile
2a400 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 );. Tcl_SetObjR
2a410 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6c 69 esult(interp, li
2a420 73 74 4f 62 6a 29 3b 0a 20 20 72 65 74 75 72 6e stObj);. return
2a430 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
2a440 2a 20 20 20 20 20 20 64 65 6c 65 74 65 5f 77 69 * delete_wi
2a450 6e 33 32 5f 66 69 6c 65 20 46 49 4c 45 4e 41 4d n32_file FILENAM
2a460 45 0a 2a 2a 0a 2a 2a 20 44 65 6c 65 74 65 73 20 E.**.** Deletes
2a470 74 68 65 20 73 70 65 63 69 66 69 65 64 20 66 69 the specified fi
2a480 6c 65 2c 20 77 68 6f 73 65 20 66 75 6c 6c 79 20 le, whose fully
2a490 71 75 61 6c 69 66 69 65 64 20 6e 61 6d 65 20 6d qualified name m
2a4a0 61 79 20 65 78 63 65 65 64 20 32 36 30 0a 2a 2a ay exceed 260.**
2a4b0 20 63 68 61 72 61 63 74 65 72 73 20 69 66 20 69 characters if i
2a4c0 74 20 69 73 20 70 72 65 66 69 78 65 64 20 77 69 t is prefixed wi
2a4d0 74 68 20 22 5c 5c 3f 5c 22 2e 0a 2a 2f 0a 73 74 th "\\?\"..*/.st
2a4e0 61 74 69 63 20 69 6e 74 20 77 69 6e 33 32 5f 64 atic int win32_d
2a4f0 65 6c 65 74 65 5f 66 69 6c 65 28 0a 20 20 76 6f elete_file(. vo
2a500 69 64 20 2a 63 6c 69 65 6e 74 44 61 74 61 2c 0a id *clientData,.
2a510 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
2a520 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
2a530 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
2a540 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 ST objv[].){. i
2a550 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 f( objc!=2 ){.
2a560 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
2a570 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
2a580 6a 76 2c 20 22 46 49 4c 45 4e 41 4d 45 22 29 3b jv, "FILENAME");
2a590 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2a5a0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
2a5b0 20 21 44 65 6c 65 74 65 46 69 6c 65 57 28 54 63 !DeleteFileW(Tc
2a5c0 6c 5f 47 65 74 55 6e 69 63 6f 64 65 28 6f 62 6a l_GetUnicode(obj
2a5d0 76 5b 31 5d 29 29 20 29 7b 0a 20 20 20 20 54 63 v[1])) ){. Tc
2a5e0 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
2a5f0 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 57 69 nterp, Tcl_NewWi
2a600 64 65 49 6e 74 4f 62 6a 28 47 65 74 4c 61 73 74 deIntObj(GetLast
2a610 45 72 72 6f 72 28 29 29 29 3b 0a 20 20 20 20 72 Error()));. r
2a620 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
2a630 0a 20 20 7d 0a 20 20 54 63 6c 5f 52 65 73 65 74 . }. Tcl_Reset
2a640 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
2a650 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
2a660 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 20 6d .}../*.** m
2a670 61 6b 65 5f 77 69 6e 33 32 5f 64 69 72 20 44 49 ake_win32_dir DI
2a680 52 45 43 54 4f 52 59 0a 2a 2a 0a 2a 2a 20 43 72 RECTORY.**.** Cr
2a690 65 61 74 65 73 20 74 68 65 20 73 70 65 63 69 66 eates the specif
2a6a0 69 65 64 20 64 69 72 65 63 74 6f 72 79 2c 20 77 ied directory, w
2a6b0 68 6f 73 65 20 66 75 6c 6c 79 20 71 75 61 6c 69 hose fully quali
2a6c0 66 69 65 64 20 6e 61 6d 65 20 6d 61 79 20 65 78 fied name may ex
2a6d0 63 65 65 64 20 32 34 38 0a 2a 2a 20 63 68 61 72 ceed 248.** char
2a6e0 61 63 74 65 72 73 20 69 66 20 69 74 20 69 73 20 acters if it is
2a6f0 70 72 65 66 69 78 65 64 20 77 69 74 68 20 22 5c prefixed with "\
2a700 5c 3f 5c 22 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 \?\"..*/.static
2a710 69 6e 74 20 77 69 6e 33 32 5f 6d 6b 64 69 72 28 int win32_mkdir(
2a720 0a 20 20 76 6f 69 64 20 2a 63 6c 69 65 6e 74 44 . void *clientD
2a730 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
2a740 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
2a750 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
2a760 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
2a770 7b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 {. if( objc!=2
2a780 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
2a790 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
2a7a0 31 2c 20 6f 62 6a 76 2c 20 22 44 49 52 45 43 54 1, objv, "DIRECT
2a7b0 4f 52 59 22 29 3b 0a 20 20 20 20 72 65 74 75 72 ORY");. retur
2a7c0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
2a7d0 0a 20 20 69 66 28 20 21 43 72 65 61 74 65 44 69 . if( !CreateDi
2a7e0 72 65 63 74 6f 72 79 57 28 54 63 6c 5f 47 65 74 rectoryW(Tcl_Get
2a7f0 55 6e 69 63 6f 64 65 28 6f 62 6a 76 5b 31 5d 29 Unicode(objv[1])
2a800 2c 20 4e 55 4c 4c 29 20 29 7b 0a 20 20 20 20 54 , NULL) ){. T
2a810 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
2a820 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 57 interp, Tcl_NewW
2a830 69 64 65 49 6e 74 4f 62 6a 28 47 65 74 4c 61 73 ideIntObj(GetLas
2a840 74 45 72 72 6f 72 28 29 29 29 3b 0a 20 20 20 20 tError()));.
2a850 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
2a860 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 52 65 73 65 ;. }. Tcl_Rese
2a870 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b tResult(interp);
2a880 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
2a890 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 20 ;.}../*.**
2a8a0 72 65 6d 6f 76 65 5f 77 69 6e 33 32 5f 64 69 72 remove_win32_dir
2a8b0 20 44 49 52 45 43 54 4f 52 59 0a 2a 2a 0a 2a 2a DIRECTORY.**.**
2a8c0 20 52 65 6d 6f 76 65 73 20 74 68 65 20 73 70 65 Removes the spe
2a8d0 63 69 66 69 65 64 20 64 69 72 65 63 74 6f 72 79 cified directory
2a8e0 2c 20 77 68 6f 73 65 20 66 75 6c 6c 79 20 71 75 , whose fully qu
2a8f0 61 6c 69 66 69 65 64 20 6e 61 6d 65 20 6d 61 79 alified name may
2a900 20 65 78 63 65 65 64 20 32 34 38 0a 2a 2a 20 63 exceed 248.** c
2a910 68 61 72 61 63 74 65 72 73 20 69 66 20 69 74 20 haracters if it
2a920 69 73 20 70 72 65 66 69 78 65 64 20 77 69 74 68 is prefixed with
2a930 20 22 5c 5c 3f 5c 22 2e 0a 2a 2f 0a 73 74 61 74 "\\?\"..*/.stat
2a940 69 63 20 69 6e 74 20 77 69 6e 33 32 5f 72 6d 64 ic int win32_rmd
2a950 69 72 28 0a 20 20 76 6f 69 64 20 2a 63 6c 69 65 ir(. void *clie
2a960 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
2a970 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
2a980 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
2a990 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
2a9a0 5d 0a 29 7b 0a 20 20 69 66 28 20 6f 62 6a 63 21 ].){. if( objc!
2a9b0 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 =2 ){. Tcl_Wr
2a9c0 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
2a9d0 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 49 52 p, 1, objv, "DIR
2a9e0 45 43 54 4f 52 59 22 29 3b 0a 20 20 20 20 72 65 ECTORY");. re
2a9f0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2aa00 20 20 7d 0a 20 20 69 66 28 20 21 52 65 6d 6f 76 }. if( !Remov
2aa10 65 44 69 72 65 63 74 6f 72 79 57 28 54 63 6c 5f eDirectoryW(Tcl_
2aa20 47 65 74 55 6e 69 63 6f 64 65 28 6f 62 6a 76 5b GetUnicode(objv[
2aa30 31 5d 29 29 20 29 7b 0a 20 20 20 20 54 63 6c 5f 1])) ){. Tcl_
2aa40 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
2aa50 65 72 70 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65 erp, Tcl_NewWide
2aa60 49 6e 74 4f 62 6a 28 47 65 74 4c 61 73 74 45 72 IntObj(GetLastEr
2aa70 72 6f 72 28 29 29 29 3b 0a 20 20 20 20 72 65 74 ror()));. ret
2aa80 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2aa90 20 7d 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 }. Tcl_ResetRe
2aaa0 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
2aab0 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
2aac0 0a 23 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20 .#endif.../*.**
2aad0 20 20 20 20 20 6f 70 74 69 6d 69 7a 61 74 69 6f optimizatio
2aae0 6e 5f 63 6f 6e 74 72 6f 6c 20 44 42 20 4f 50 54 n_control DB OPT
2aaf0 20 42 4f 4f 4c 45 41 4e 0a 2a 2a 0a 2a 2a 20 45 BOOLEAN.**.** E
2ab00 6e 61 62 6c 65 20 6f 72 20 64 69 73 61 62 6c 65 nable or disable
2ab10 20 71 75 65 72 79 20 6f 70 74 69 6d 69 7a 61 74 query optimizat
2ab20 69 6f 6e 73 20 75 73 69 6e 67 20 74 68 65 20 73 ions using the s
2ab30 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 qlite3_test_cont
2ab40 72 6f 6c 28 29 0a 2a 2a 20 69 6e 74 65 72 66 61 rol().** interfa
2ab50 63 65 2e 20 20 44 69 73 61 62 6c 65 20 69 66 20 ce. Disable if
2ab60 42 4f 4f 4c 45 41 4e 20 69 73 20 66 61 6c 73 65 BOOLEAN is false
2ab70 20 61 6e 64 20 65 6e 61 62 6c 65 20 69 66 20 42 and enable if B
2ab80 4f 4f 4c 45 41 4e 20 69 73 20 74 72 75 65 2e 0a OOLEAN is true..
2ab90 2a 2a 20 4f 50 54 20 69 73 20 74 68 65 20 6e 61 ** OPT is the na
2aba0 6d 65 20 6f 66 20 74 68 65 20 6f 70 74 69 6d 69 me of the optimi
2abb0 7a 61 74 69 6f 6e 20 74 6f 20 62 65 20 64 69 73 zation to be dis
2abc0 61 62 6c 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 abled..*/.static
2abd0 20 69 6e 74 20 6f 70 74 69 6d 69 7a 61 74 69 6f int optimizatio
2abe0 6e 5f 63 6f 6e 74 72 6f 6c 28 0a 20 20 76 6f 69 n_control(. voi
2abf0 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
2ac00 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
2ac10 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
2ac20 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
2ac30 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 ST objv[].){. i
2ac40 6e 74 20 69 3b 0a 20 20 73 71 6c 69 74 65 33 20 nt i;. sqlite3
2ac50 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 *db;. const cha
2ac60 72 20 2a 7a 4f 70 74 3b 0a 20 20 69 6e 74 20 6f r *zOpt;. int o
2ac70 6e 6f 66 66 3b 0a 20 20 69 6e 74 20 6d 61 73 6b noff;. int mask
2ac80 20 3d 20 30 3b 0a 20 20 73 74 61 74 69 63 20 63 = 0;. static c
2ac90 6f 6e 73 74 20 73 74 72 75 63 74 20 7b 0a 20 20 onst struct {.
2aca0 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4f const char *zO
2acb0 70 74 4e 61 6d 65 3b 0a 20 20 20 20 69 6e 74 20 ptName;. int
2acc0 6d 61 73 6b 3b 0a 20 20 7d 20 61 4f 70 74 5b 5d mask;. } aOpt[]
2acd0 20 3d 20 7b 0a 20 20 20 20 7b 20 22 61 6c 6c 22 = {. { "all"
2ace0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2acf0 20 20 53 51 4c 49 54 45 5f 41 6c 6c 4f 70 74 73 SQLITE_AllOpts
2ad00 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b },. {
2ad10 20 22 6e 6f 6e 65 22 2c 20 20 20 20 20 20 20 20 "none",
2ad20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 0
2ad30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c },
2ad40 0a 20 20 20 20 7b 20 22 71 75 65 72 79 2d 66 6c . { "query-fl
2ad50 61 74 74 65 6e 65 72 22 2c 20 20 20 20 20 53 51 attener", SQ
2ad60 4c 49 54 45 5f 51 75 65 72 79 46 6c 61 74 74 65 LITE_QueryFlatte
2ad70 6e 65 72 20 7d 2c 0a 20 20 20 20 7b 20 22 63 6f ner },. { "co
2ad80 6c 75 6d 6e 2d 63 61 63 68 65 22 2c 20 20 20 20 lumn-cache",
2ad90 20 20 20 20 53 51 4c 49 54 45 5f 43 6f 6c 75 6d SQLITE_Colum
2ada0 6e 43 61 63 68 65 20 20 20 20 7d 2c 0a 20 20 20 nCache },.
2adb0 20 7b 20 22 67 72 6f 75 70 62 79 2d 6f 72 64 65 { "groupby-orde
2adc0 72 22 2c 20 20 20 20 20 20 20 53 51 4c 49 54 45 r", SQLITE
2add0 5f 47 72 6f 75 70 42 79 4f 72 64 65 72 20 20 20 _GroupByOrder
2ade0 7d 2c 0a 20 20 20 20 7b 20 22 66 61 63 74 6f 72 },. { "factor
2adf0 2d 63 6f 6e 73 74 61 6e 74 73 22 2c 20 20 20 20 -constants",
2ae00 53 51 4c 49 54 45 5f 46 61 63 74 6f 72 4f 75 74 SQLITE_FactorOut
2ae10 43 6f 6e 73 74 20 7d 2c 0a 20 20 20 20 7b 20 22 Const },. { "
2ae20 64 69 73 74 69 6e 63 74 2d 6f 70 74 22 2c 20 20 distinct-opt",
2ae30 20 20 20 20 20 20 53 51 4c 49 54 45 5f 44 69 73 SQLITE_Dis
2ae40 74 69 6e 63 74 4f 70 74 20 20 20 20 7d 2c 0a 20 tinctOpt },.
2ae50 20 20 20 7b 20 22 63 6f 76 65 72 2d 69 64 78 2d { "cover-idx-
2ae60 73 63 61 6e 22 2c 20 20 20 20 20 20 53 51 4c 49 scan", SQLI
2ae70 54 45 5f 43 6f 76 65 72 49 64 78 53 63 61 6e 20 TE_CoverIdxScan
2ae80 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6f 72 64 65 },. { "orde
2ae90 72 2d 62 79 2d 69 64 78 2d 6a 6f 69 6e 22 2c 20 r-by-idx-join",
2aea0 20 20 53 51 4c 49 54 45 5f 4f 72 64 65 72 42 79 SQLITE_OrderBy
2aeb0 49 64 78 4a 6f 69 6e 20 7d 2c 0a 20 20 20 20 7b IdxJoin },. {
2aec0 20 22 74 72 61 6e 73 69 74 69 76 65 22 2c 20 20 "transitive",
2aed0 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 54 SQLITE_T
2aee0 72 61 6e 73 69 74 69 76 65 20 20 20 20 20 7d 2c ransitive },
2aef0 0a 20 20 20 20 7b 20 22 73 75 62 71 75 65 72 79 . { "subquery
2af00 2d 63 6f 72 6f 75 74 69 6e 65 22 2c 20 20 53 51 -coroutine", SQ
2af10 4c 49 54 45 5f 53 75 62 71 43 6f 72 6f 75 74 69 LITE_SubqCorouti
2af20 6e 65 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6f 6d ne },. { "om
2af30 69 74 2d 6e 6f 6f 70 2d 6a 6f 69 6e 22 2c 20 20 it-noop-join",
2af40 20 20 20 20 53 51 4c 49 54 45 5f 4f 6d 69 74 4e SQLITE_OmitN
2af50 6f 6f 70 4a 6f 69 6e 20 20 20 7d 2c 0a 20 20 20 oopJoin },.
2af60 20 7b 20 22 73 74 61 74 33 22 2c 20 20 20 20 20 { "stat3",
2af70 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 SQLITE
2af80 5f 53 74 61 74 33 34 20 20 20 20 20 20 20 20 20 _Stat34
2af90 7d 2c 0a 20 20 20 20 7b 20 22 73 74 61 74 34 22 },. { "stat4"
2afa0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2afb0 53 51 4c 49 54 45 5f 53 74 61 74 33 34 20 20 20 SQLITE_Stat34
2afc0 20 20 20 20 20 20 7d 2c 0a 20 20 7d 3b 0a 0a 20 },. };..
2afd0 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a if( objc!=4 ){.
2afe0 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
2aff0 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
2b000 6f 62 6a 76 2c 20 22 44 42 20 4f 50 54 20 42 4f objv, "DB OPT BO
2b010 4f 4c 45 41 4e 22 29 3b 0a 20 20 20 20 72 65 74 OLEAN");. ret
2b020 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2b030 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
2b040 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
2b050 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
2b060 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 [1]), &db) ) ret
2b070 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2b080 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c if( Tcl_GetBool
2b090 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 eanFromObj(inter
2b0a0 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 6f 6e 6f p, objv[3], &ono
2b0b0 66 66 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c ff) ) return TCL
2b0c0 5f 45 52 52 4f 52 3b 0a 20 20 7a 4f 70 74 20 3d _ERROR;. zOpt =
2b0d0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
2b0e0 62 6a 76 5b 32 5d 29 3b 0a 20 20 66 6f 72 28 69 bjv[2]);. for(i
2b0f0 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 4f 70 =0; i<sizeof(aOp
2b100 74 29 2f 73 69 7a 65 6f 66 28 61 4f 70 74 5b 30 t)/sizeof(aOpt[0
2b110 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 ]); i++){. if
2b120 28 20 73 74 72 63 6d 70 28 7a 4f 70 74 2c 20 61 ( strcmp(zOpt, a
2b130 4f 70 74 5b 69 5d 2e 7a 4f 70 74 4e 61 6d 65 29 Opt[i].zOptName)
2b140 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 6d 61 73 ==0 ){. mas
2b150 6b 20 3d 20 61 4f 70 74 5b 69 5d 2e 6d 61 73 6b k = aOpt[i].mask
2b160 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
2b170 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 6f }. }. if( o
2b180 6e 6f 66 66 20 29 20 6d 61 73 6b 20 3d 20 7e 6d noff ) mask = ~m
2b190 61 73 6b 3b 0a 20 20 69 66 28 20 69 3e 3d 73 69 ask;. if( i>=si
2b1a0 7a 65 6f 66 28 61 4f 70 74 29 2f 73 69 7a 65 6f zeof(aOpt)/sizeo
2b1b0 66 28 61 4f 70 74 5b 30 5d 29 20 29 7b 0a 20 20 f(aOpt[0]) ){.
2b1c0 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
2b1d0 6c 74 28 69 6e 74 65 72 70 2c 20 22 75 6e 6b 6e lt(interp, "unkn
2b1e0 6f 77 6e 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e own optimization
2b1f0 20 2d 20 73 68 6f 75 6c 64 20 62 65 20 6f 6e 65 - should be one
2b200 20 6f 66 3a 22 2c 0a 20 20 20 20 20 20 20 20 20 of:",.
2b210 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 (cha
2b220 72 2a 29 30 29 3b 0a 20 20 20 20 66 6f 72 28 69 r*)0);. for(i
2b230 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 4f 70 =0; i<sizeof(aOp
2b240 74 29 2f 73 69 7a 65 6f 66 28 61 4f 70 74 5b 30 t)/sizeof(aOpt[0
2b250 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 ]); i++){.
2b260 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
2b270 28 69 6e 74 65 72 70 2c 20 22 20 22 2c 20 61 4f (interp, " ", aO
2b280 70 74 5b 69 5d 2e 7a 4f 70 74 4e 61 6d 65 2c 20 pt[i].zOptName,
2b290 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 7d (char*)0);. }
2b2a0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2b2b0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 73 71 6c ERROR;. }. sql
2b2c0 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f ite3_test_contro
2b2d0 6c 28 53 51 4c 49 54 45 5f 54 45 53 54 43 54 52 l(SQLITE_TESTCTR
2b2e0 4c 5f 4f 50 54 49 4d 49 5a 41 54 49 4f 4e 53 2c L_OPTIMIZATIONS,
2b2f0 20 64 62 2c 20 6d 61 73 6b 29 3b 0a 20 20 72 65 db, mask);. re
2b300 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
2b310 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 73 typedef struct s
2b320 71 6c 69 74 65 33 5f 61 70 69 5f 72 6f 75 74 69 qlite3_api_routi
2b330 6e 65 73 20 73 71 6c 69 74 65 33 5f 61 70 69 5f nes sqlite3_api_
2b340 72 6f 75 74 69 6e 65 73 3b 0a 2f 2a 0a 2a 2a 20 routines;./*.**
2b350 20 20 20 20 6c 6f 61 64 5f 73 74 61 74 69 63 5f load_static_
2b360 65 78 74 65 6e 73 69 6f 6e 20 44 42 20 4e 41 4d extension DB NAM
2b370 45 20 2e 2e 2e 0a 2a 2a 0a 2a 2a 20 4c 6f 61 64 E ....**.** Load
2b380 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 73 74 61 one or more sta
2b390 74 69 63 61 6c 6c 79 20 6c 69 6e 6b 65 64 20 65 tically linked e
2b3a0 78 74 65 6e 73 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 xtensions..*/.st
2b3b0 61 74 69 63 20 69 6e 74 20 74 63 6c 4c 6f 61 64 atic int tclLoad
2b3c0 53 74 61 74 69 63 45 78 74 65 6e 73 69 6f 6e 43 StaticExtensionC
2b3d0 6d 64 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 md(. void * cli
2b3e0 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
2b3f0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
2b400 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
2b410 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
2b420 5b 5d 0a 29 7b 0a 20 20 65 78 74 65 72 6e 20 69 [].){. extern i
2b430 6e 74 20 73 71 6c 69 74 65 33 5f 61 6d 61 74 63 nt sqlite3_amatc
2b440 68 5f 69 6e 69 74 28 73 71 6c 69 74 65 33 2a 2c h_init(sqlite3*,
2b450 63 68 61 72 2a 2a 2c 63 6f 6e 73 74 20 73 71 6c char**,const sql
2b460 69 74 65 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65 ite3_api_routine
2b470 73 2a 29 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e s*);. extern in
2b480 74 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 75 72 t sqlite3_closur
2b490 65 5f 69 6e 69 74 28 73 71 6c 69 74 65 33 2a 2c e_init(sqlite3*,
2b4a0 63 68 61 72 2a 2a 2c 63 6f 6e 73 74 20 73 71 6c char**,const sql
2b4b0 69 74 65 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65 ite3_api_routine
2b4c0 73 2a 29 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e s*);. extern in
2b4d0 74 20 73 71 6c 69 74 65 33 5f 65 76 61 6c 5f 69 t sqlite3_eval_i
2b4e0 6e 69 74 28 73 71 6c 69 74 65 33 2a 2c 63 68 61 nit(sqlite3*,cha
2b4f0 72 2a 2a 2c 63 6f 6e 73 74 20 73 71 6c 69 74 65 r**,const sqlite
2b500 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65 73 2a 29 3_api_routines*)
2b510 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 ;. extern int s
2b520 71 6c 69 74 65 33 5f 66 69 6c 65 69 6f 5f 69 6e qlite3_fileio_in
2b530 69 74 28 73 71 6c 69 74 65 33 2a 2c 63 68 61 72 it(sqlite3*,char
2b540 2a 2a 2c 63 6f 6e 73 74 20 73 71 6c 69 74 65 33 **,const sqlite3
2b550 5f 61 70 69 5f 72 6f 75 74 69 6e 65 73 2a 29 3b _api_routines*);
2b560 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
2b570 6c 69 74 65 33 5f 66 75 7a 7a 65 72 5f 69 6e 69 lite3_fuzzer_ini
2b580 74 28 73 71 6c 69 74 65 33 2a 2c 63 68 61 72 2a t(sqlite3*,char*
2b590 2a 2c 63 6f 6e 73 74 20 73 71 6c 69 74 65 33 5f *,const sqlite3_
2b5a0 61 70 69 5f 72 6f 75 74 69 6e 65 73 2a 29 3b 0a api_routines*);.
2b5b0 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c extern int sql
2b5c0 69 74 65 33 5f 69 65 65 65 5f 69 6e 69 74 28 73 ite3_ieee_init(s
2b5d0 71 6c 69 74 65 33 2a 2c 63 68 61 72 2a 2a 2c 63 qlite3*,char**,c
2b5e0 6f 6e 73 74 20 73 71 6c 69 74 65 33 5f 61 70 69 onst sqlite3_api
2b5f0 5f 72 6f 75 74 69 6e 65 73 2a 29 3b 0a 20 20 65 _routines*);. e
2b600 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 xtern int sqlite
2b610 33 5f 6e 65 78 74 63 68 61 72 5f 69 6e 69 74 28 3_nextchar_init(
2b620 73 71 6c 69 74 65 33 2a 2c 63 68 61 72 2a 2a 2c sqlite3*,char**,
2b630 63 6f 6e 73 74 20 73 71 6c 69 74 65 33 5f 61 70 const sqlite3_ap
2b640 69 5f 72 6f 75 74 69 6e 65 73 2a 29 3b 0a 20 20 i_routines*);.
2b650 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
2b660 65 33 5f 70 65 72 63 65 6e 74 69 6c 65 5f 69 6e e3_percentile_in
2b670 69 74 28 73 71 6c 69 74 65 33 2a 2c 63 68 61 72 it(sqlite3*,char
2b680 2a 2a 2c 63 6f 6e 73 74 20 73 71 6c 69 74 65 33 **,const sqlite3
2b690 5f 61 70 69 5f 72 6f 75 74 69 6e 65 73 2a 29 3b _api_routines*);
2b6a0 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
2b6b0 6c 69 74 65 33 5f 72 65 67 65 78 70 5f 69 6e 69 lite3_regexp_ini
2b6c0 74 28 73 71 6c 69 74 65 33 2a 2c 63 68 61 72 2a t(sqlite3*,char*
2b6d0 2a 2c 63 6f 6e 73 74 20 73 71 6c 69 74 65 33 5f *,const sqlite3_
2b6e0 61 70 69 5f 72 6f 75 74 69 6e 65 73 2a 29 3b 0a api_routines*);.
2b6f0 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c extern int sql
2b700 69 74 65 33 5f 73 70 65 6c 6c 66 69 78 5f 69 6e ite3_spellfix_in
2b710 69 74 28 73 71 6c 69 74 65 33 2a 2c 63 68 61 72 it(sqlite3*,char
2b720 2a 2a 2c 63 6f 6e 73 74 20 73 71 6c 69 74 65 33 **,const sqlite3
2b730 5f 61 70 69 5f 72 6f 75 74 69 6e 65 73 2a 29 3b _api_routines*);
2b740 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
2b750 6c 69 74 65 33 5f 74 6f 74 79 70 65 5f 69 6e 69 lite3_totype_ini
2b760 74 28 73 71 6c 69 74 65 33 2a 2c 63 68 61 72 2a t(sqlite3*,char*
2b770 2a 2c 63 6f 6e 73 74 20 73 71 6c 69 74 65 33 5f *,const sqlite3_
2b780 61 70 69 5f 72 6f 75 74 69 6e 65 73 2a 29 3b 0a api_routines*);.
2b790 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c extern int sql
2b7a0 69 74 65 33 5f 77 68 6f 6c 65 6e 75 6d 62 65 72 ite3_wholenumber
2b7b0 5f 69 6e 69 74 28 73 71 6c 69 74 65 33 2a 2c 63 _init(sqlite3*,c
2b7c0 68 61 72 2a 2a 2c 63 6f 6e 73 74 20 73 71 6c 69 har**,const sqli
2b7d0 74 65 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65 73 te3_api_routines
2b7e0 2a 29 3b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e *);. static con
2b7f0 73 74 20 73 74 72 75 63 74 20 7b 0a 20 20 20 20 st struct {.
2b800 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 45 78 74 const char *zExt
2b810 4e 61 6d 65 3b 0a 20 20 20 20 69 6e 74 20 28 2a Name;. int (*
2b820 70 49 6e 69 74 29 28 73 71 6c 69 74 65 33 2a 2c pInit)(sqlite3*,
2b830 63 68 61 72 2a 2a 2c 63 6f 6e 73 74 20 73 71 6c char**,const sql
2b840 69 74 65 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65 ite3_api_routine
2b850 73 2a 29 3b 0a 20 20 7d 20 61 45 78 74 65 6e 73 s*);. } aExtens
2b860 69 6f 6e 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 ion[] = {. {
2b870 22 61 6d 61 74 63 68 22 2c 20 20 20 20 20 20 20 "amatch",
2b880 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 sqlite3
2b890 5f 61 6d 61 74 63 68 5f 69 6e 69 74 20 20 20 20 _amatch_init
2b8a0 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
2b8b0 20 20 7b 20 22 63 6c 6f 73 75 72 65 22 2c 20 20 { "closure",
2b8c0 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c sql
2b8d0 69 74 65 33 5f 63 6c 6f 73 75 72 65 5f 69 6e 69 ite3_closure_ini
2b8e0 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d t }
2b8f0 2c 0a 20 20 20 20 7b 20 22 65 76 61 6c 22 2c 20 ,. { "eval",
2b900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2b910 20 73 71 6c 69 74 65 33 5f 65 76 61 6c 5f 69 6e sqlite3_eval_in
2b920 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 it
2b930 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 66 69 6c },. { "fil
2b940 65 69 6f 22 2c 20 20 20 20 20 20 20 20 20 20 20 eio",
2b950 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 69 6c sqlite3_fil
2b960 65 69 6f 5f 69 6e 69 74 20 20 20 20 20 20 20 20 eio_init
2b970 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
2b980 22 66 75 7a 7a 65 72 22 2c 20 20 20 20 20 20 20 "fuzzer",
2b990 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 sqlite3
2b9a0 5f 66 75 7a 7a 65 72 5f 69 6e 69 74 20 20 20 20 _fuzzer_init
2b9b0 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
2b9c0 20 20 7b 20 22 69 65 65 65 37 35 34 22 2c 20 20 { "ieee754",
2b9d0 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c sql
2b9e0 69 74 65 33 5f 69 65 65 65 5f 69 6e 69 74 20 20 ite3_ieee_init
2b9f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
2ba00 2c 0a 20 20 20 20 7b 20 22 6e 65 78 74 63 68 61 ,. { "nextcha
2ba10 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 r",
2ba20 20 73 71 6c 69 74 65 33 5f 6e 65 78 74 63 68 61 sqlite3_nextcha
2ba30 72 5f 69 6e 69 74 20 20 20 20 20 20 20 20 20 20 r_init
2ba40 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 70 65 72 },. { "per
2ba50 63 65 6e 74 69 6c 65 22 2c 20 20 20 20 20 20 20 centile",
2ba60 20 20 20 20 20 73 71 6c 69 74 65 33 5f 70 65 72 sqlite3_per
2ba70 63 65 6e 74 69 6c 65 5f 69 6e 69 74 20 20 20 20 centile_init
2ba80 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
2ba90 22 72 65 67 65 78 70 22 2c 20 20 20 20 20 20 20 "regexp",
2baa0 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 sqlite3
2bab0 5f 72 65 67 65 78 70 5f 69 6e 69 74 20 20 20 20 _regexp_init
2bac0 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
2bad0 20 20 7b 20 22 73 70 65 6c 6c 66 69 78 22 2c 20 { "spellfix",
2bae0 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c sql
2baf0 69 74 65 33 5f 73 70 65 6c 6c 66 69 78 5f 69 6e ite3_spellfix_in
2bb00 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20 7d it }
2bb10 2c 0a 20 20 20 20 7b 20 22 74 6f 74 79 70 65 22 ,. { "totype"
2bb20 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2bb30 20 73 71 6c 69 74 65 33 5f 74 6f 74 79 70 65 5f sqlite3_totype_
2bb40 69 6e 69 74 20 20 20 20 20 20 20 20 20 20 20 20 init
2bb50 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 77 68 6f },. { "who
2bb60 6c 65 6e 75 6d 62 65 72 22 2c 20 20 20 20 20 20 lenumber",
2bb70 20 20 20 20 20 73 71 6c 69 74 65 33 5f 77 68 6f sqlite3_who
2bb80 6c 65 6e 75 6d 62 65 72 5f 69 6e 69 74 20 20 20 lenumber_init
2bb90 20 20 20 20 20 20 20 7d 2c 0a 20 20 7d 3b 0a 20 },. };.
2bba0 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
2bbb0 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d const char *zNam
2bbc0 65 3b 0a 20 20 69 6e 74 20 69 2c 20 6a 2c 20 72 e;. int i, j, r
2bbd0 63 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 72 4d c;. char *zErrM
2bbe0 73 67 20 3d 20 30 3b 0a 20 20 69 66 28 20 6f 62 sg = 0;. if( ob
2bbf0 6a 63 3c 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f jc<3 ){. Tcl_
2bc00 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
2bc10 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 erp, 1, objv, "D
2bc20 42 20 4e 41 4d 45 20 2e 2e 2e 22 29 3b 0a 20 20 B NAME ...");.
2bc30 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
2bc40 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
2bc50 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
2bc60 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
2bc70 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 (objv[1]), &db)
2bc80 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
2bc90 4f 52 3b 0a 20 20 66 6f 72 28 6a 3d 32 3b 20 6a OR;. for(j=2; j
2bca0 3c 6f 62 6a 63 3b 20 6a 2b 2b 29 7b 0a 20 20 20 <objc; j++){.
2bcb0 20 7a 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 zName = Tcl_Get
2bcc0 53 74 72 69 6e 67 28 6f 62 6a 76 5b 6a 5d 29 3b String(objv[j]);
2bcd0 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c . for(i=0; i<
2bce0 41 72 72 61 79 53 69 7a 65 28 61 45 78 74 65 6e ArraySize(aExten
2bcf0 73 69 6f 6e 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 sion); i++){.
2bd00 20 20 20 69 66 28 20 73 74 72 63 6d 70 28 7a 4e if( strcmp(zN
2bd10 61 6d 65 2c 20 61 45 78 74 65 6e 73 69 6f 6e 5b ame, aExtension[
2bd20 69 5d 2e 7a 45 78 74 4e 61 6d 65 29 3d 3d 30 20 i].zExtName)==0
2bd30 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 ) break;. }.
2bd40 20 20 20 69 66 28 20 69 3e 3d 41 72 72 61 79 53 if( i>=ArrayS
2bd50 69 7a 65 28 61 45 78 74 65 6e 73 69 6f 6e 29 20 ize(aExtension)
2bd60 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 70 ){. Tcl_App
2bd70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
2bd80 2c 20 22 6e 6f 20 73 75 63 68 20 65 78 74 65 6e , "no such exten
2bd90 73 69 6f 6e 3a 20 22 2c 20 7a 4e 61 6d 65 2c 20 sion: ", zName,
2bda0 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 20 (char*)0);.
2bdb0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
2bdc0 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 63 20 R;. }. rc
2bdd0 3d 20 61 45 78 74 65 6e 73 69 6f 6e 5b 69 5d 2e = aExtension[i].
2bde0 70 49 6e 69 74 28 64 62 2c 20 26 7a 45 72 72 4d pInit(db, &zErrM
2bdf0 73 67 2c 20 30 29 3b 0a 20 20 20 20 69 66 28 20 sg, 0);. if(
2be00 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 7c 7c rc!=SQLITE_OK ||
2be10 20 7a 45 72 72 4d 73 67 20 29 7b 0a 20 20 20 20 zErrMsg ){.
2be20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
2be30 6c 74 28 69 6e 74 65 72 70 2c 20 22 69 6e 69 74 lt(interp, "init
2be40 69 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 20 22 2c ialization of ",
2be50 20 7a 4e 61 6d 65 2c 20 22 20 66 61 69 6c 65 64 zName, " failed
2be60 3a 20 22 2c 20 7a 45 72 72 4d 73 67 2c 0a 20 20 : ", zErrMsg,.
2be70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2be80 20 20 20 20 20 28 63 68 61 72 2a 29 30 29 3b 0a (char*)0);.
2be90 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 sqlite3_fr
2bea0 65 65 28 7a 45 72 72 4d 73 67 29 3b 0a 20 20 20 ee(zErrMsg);.
2beb0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
2bec0 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 ROR;. }. }.
2bed0 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
2bee0 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 73 6f 72 }../*.** sor
2bef0 74 65 72 5f 74 65 73 74 5f 66 61 6b 65 68 65 61 ter_test_fakehea
2bf00 70 20 42 4f 4f 4c 0a 2a 2a 0a 2a 2f 0a 73 74 61 p BOOL.**.*/.sta
2bf10 74 69 63 20 69 6e 74 20 73 6f 72 74 65 72 5f 74 tic int sorter_t
2bf20 65 73 74 5f 66 61 6b 65 68 65 61 70 28 0a 20 20 est_fakeheap(.
2bf30 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
2bf40 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
2bf50 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
2bf60 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
2bf70 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
2bf80 20 20 69 6e 74 20 62 41 72 67 3b 0a 20 20 69 66 int bArg;. if
2bf90 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
2bfa0 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
2bfb0 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
2bfc0 76 2c 20 22 42 4f 4f 4c 22 29 3b 0a 20 20 20 20 v, "BOOL");.
2bfd0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
2bfe0 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 54 63 6c ;. }.. if( Tcl
2bff0 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f _GetBooleanFromO
2c000 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
2c010 31 5d 2c 20 26 62 41 72 67 29 20 29 7b 0a 20 20 1], &bArg) ){.
2c020 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
2c030 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 62 OR;. }.. if( b
2c040 41 72 67 20 29 7b 0a 20 20 20 20 69 66 28 20 73 Arg ){. if( s
2c050 71 6c 69 74 65 33 47 6c 6f 62 61 6c 43 6f 6e 66 qlite3GlobalConf
2c060 69 67 2e 70 48 65 61 70 3d 3d 30 20 29 7b 0a 20 ig.pHeap==0 ){.
2c070 20 20 20 20 20 73 71 6c 69 74 65 33 47 6c 6f 62 sqlite3Glob
2c080 61 6c 43 6f 6e 66 69 67 2e 70 48 65 61 70 20 3d alConfig.pHeap =
2c090 20 53 51 4c 49 54 45 5f 49 4e 54 5f 54 4f 5f 50 SQLITE_INT_TO_P
2c0a0 54 52 28 2d 31 29 3b 0a 20 20 20 20 7d 0a 20 20 TR(-1);. }.
2c0b0 7d 65 6c 73 65 7b 0a 20 20 20 20 69 66 28 20 73 }else{. if( s
2c0c0 71 6c 69 74 65 33 47 6c 6f 62 61 6c 43 6f 6e 66 qlite3GlobalConf
2c0d0 69 67 2e 70 48 65 61 70 3d 3d 53 51 4c 49 54 45 ig.pHeap==SQLITE
2c0e0 5f 49 4e 54 5f 54 4f 5f 50 54 52 28 2d 31 29 20 _INT_TO_PTR(-1)
2c0f0 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ){. sqlite3
2c100 47 6c 6f 62 61 6c 43 6f 6e 66 69 67 2e 70 48 65 GlobalConfig.pHe
2c110 61 70 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 ap = 0;. }.
2c120 7d 0a 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 }.. Tcl_ResetRe
2c130 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
2c140 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
2c150 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 73 6f 72 74 ../*.** sort
2c160 65 72 5f 74 65 73 74 5f 73 6f 72 74 34 5f 68 65 er_test_sort4_he
2c170 6c 70 65 72 20 44 42 20 53 51 4c 31 20 4e 53 54 lper DB SQL1 NST
2c180 45 50 20 53 51 4c 32 0a 2a 2a 0a 2a 2a 20 43 6f EP SQL2.**.** Co
2c190 6d 70 69 6c 65 20 53 51 4c 20 73 74 61 74 65 6d mpile SQL statem
2c1a0 65 6e 74 20 24 53 51 4c 31 20 61 6e 64 20 73 74 ent $SQL1 and st
2c1b0 65 70 20 69 74 20 24 4e 53 54 45 50 20 74 69 6d ep it $NSTEP tim
2c1c0 65 73 2e 20 46 6f 72 20 65 61 63 68 20 72 6f 77 es. For each row
2c1d0 2c 20 0a 2a 2a 20 63 68 65 63 6b 20 74 68 61 74 , .** check that
2c1e0 20 74 68 65 20 6c 65 66 74 6d 6f 73 74 20 61 6e the leftmost an
2c1f0 64 20 72 69 67 68 74 6d 6f 73 74 20 63 6f 6c 75 d rightmost colu
2c200 6d 6e 73 20 72 65 74 75 72 6e 65 64 20 61 72 65 mns returned are
2c210 20 62 6f 74 68 20 69 6e 74 65 67 65 72 73 2c 0a both integers,.
2c220 2a 2a 20 61 6e 64 20 74 68 61 74 20 62 6f 74 68 ** and that both
2c230 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 73 61 6d contain the sam
2c240 65 20 76 61 6c 75 65 2e 0a 2a 2a 0a 2a 2a 20 54 e value..**.** T
2c250 68 65 6e 20 65 78 65 63 75 74 65 20 73 74 61 74 hen execute stat
2c260 65 6d 65 6e 74 20 24 53 51 4c 32 2e 20 43 68 65 ement $SQL2. Che
2c270 63 6b 20 74 68 61 74 20 74 68 65 20 73 74 61 74 ck that the stat
2c280 65 6d 65 6e 74 20 72 65 74 75 72 6e 73 20 74 68 ement returns th
2c290 65 20 73 61 6d 65 0a 2a 2a 20 73 65 74 20 6f 66 e same.** set of
2c2a0 20 69 6e 74 65 67 65 72 73 20 69 6e 20 74 68 65 integers in the
2c2b0 20 73 61 6d 65 20 6f 72 64 65 72 20 61 73 20 69 same order as i
2c2c0 6e 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 73 n the previous s
2c2d0 74 65 70 20 28 75 73 69 6e 67 20 24 53 51 4c 31 tep (using $SQL1
2c2e0 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 )..*/.static int
2c2f0 20 73 6f 72 74 65 72 5f 74 65 73 74 5f 73 6f 72 sorter_test_sor
2c300 74 34 5f 68 65 6c 70 65 72 28 0a 20 20 76 6f 69 t4_helper(. voi
2c310 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
2c320 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
2c330 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
2c340 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
2c350 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 63 ST objv[].){. c
2c360 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 71 6c 31 onst char *zSql1
2c370 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ;. const char *
2c380 7a 53 71 6c 32 3b 0a 20 20 69 6e 74 20 6e 53 74 zSql2;. int nSt
2c390 65 70 3b 20 0a 20 20 69 6e 74 20 69 53 74 65 70 ep; . int iStep
2c3a0 3b 20 0a 20 20 69 6e 74 20 69 43 6b 73 75 6d 31 ; . int iCksum1
2c3b0 20 3d 20 30 3b 20 0a 20 20 69 6e 74 20 69 43 6b = 0; . int iCk
2c3c0 73 75 6d 32 20 3d 20 30 3b 20 0a 20 20 69 6e 74 sum2 = 0; . int
2c3d0 20 72 63 3b 0a 20 20 69 6e 74 20 69 42 3b 0a 20 rc;. int iB;.
2c3e0 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
2c3f0 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 sqlite3_stmt *pS
2c400 74 6d 74 3b 0a 20 20 0a 20 20 69 66 28 20 6f 62 tmt;. . if( ob
2c410 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c jc!=5 ){. Tcl
2c420 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
2c430 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
2c440 44 42 20 53 51 4c 31 20 4e 53 54 45 50 20 53 51 DB SQL1 NSTEP SQ
2c450 4c 32 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e L2");. return
2c460 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
2c470 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
2c480 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
2c490 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
2c4a0 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 ]), &db) ) retur
2c4b0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a n TCL_ERROR;. z
2c4c0 53 71 6c 31 20 3d 20 54 63 6c 5f 47 65 74 53 74 Sql1 = Tcl_GetSt
2c4d0 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 ring(objv[2]);.
2c4e0 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
2c4f0 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
2c500 62 6a 76 5b 33 5d 2c 20 26 6e 53 74 65 70 29 20 bjv[3], &nStep)
2c510 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
2c520 4f 52 3b 0a 20 20 7a 53 71 6c 32 20 3d 20 54 63 OR;. zSql2 = Tc
2c530 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
2c540 5b 34 5d 29 3b 0a 0a 20 20 72 63 20 3d 20 73 71 [4]);.. rc = sq
2c550 6c 69 74 65 33 5f 70 72 65 70 61 72 65 5f 76 32 lite3_prepare_v2
2c560 28 64 62 2c 20 7a 53 71 6c 31 2c 20 2d 31 2c 20 (db, zSql1, -1,
2c570 26 70 53 74 6d 74 2c 20 30 29 3b 0a 20 20 69 66 &pStmt, 0);. if
2c580 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc!=SQLITE_OK
2c590 29 20 67 6f 74 6f 20 73 71 6c 5f 65 72 72 6f 72 ) goto sql_error
2c5a0 3b 0a 0a 20 20 69 42 20 3d 20 73 71 6c 69 74 65 ;.. iB = sqlite
2c5b0 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 28 70 3_column_count(p
2c5c0 53 74 6d 74 29 2d 31 3b 0a 20 20 66 6f 72 28 69 Stmt)-1;. for(i
2c5d0 53 74 65 70 3d 30 3b 20 69 53 74 65 70 3c 6e 53 Step=0; iStep<nS
2c5e0 74 65 70 20 26 26 20 53 51 4c 49 54 45 5f 52 4f tep && SQLITE_RO
2c5f0 57 3d 3d 73 71 6c 69 74 65 33 5f 73 74 65 70 28 W==sqlite3_step(
2c600 70 53 74 6d 74 29 3b 20 69 53 74 65 70 2b 2b 29 pStmt); iStep++)
2c610 7b 0a 20 20 20 20 69 6e 74 20 61 20 3d 20 73 71 {. int a = sq
2c620 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 lite3_column_int
2c630 28 70 53 74 6d 74 2c 20 30 29 3b 0a 20 20 20 20 (pStmt, 0);.
2c640 69 66 28 20 61 21 3d 73 71 6c 69 74 65 33 5f 63 if( a!=sqlite3_c
2c650 6f 6c 75 6d 6e 5f 69 6e 74 28 70 53 74 6d 74 2c olumn_int(pStmt,
2c660 20 69 42 29 20 29 7b 0a 20 20 20 20 20 20 54 63 iB) ){. Tc
2c670 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
2c680 6e 74 65 72 70 2c 20 22 64 61 74 61 20 65 72 72 nterp, "data err
2c690 6f 72 3a 20 28 61 21 3d 62 29 22 2c 20 30 29 3b or: (a!=b)", 0);
2c6a0 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 . return TC
2c6b0 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
2c6c0 20 20 20 20 69 43 6b 73 75 6d 31 20 2b 3d 20 28 iCksum1 += (
2c6d0 69 43 6b 73 75 6d 31 20 3c 3c 20 33 29 20 2b 20 iCksum1 << 3) +
2c6e0 61 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20 73 71 a;. }. rc = sq
2c6f0 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70 lite3_finalize(p
2c700 53 74 6d 74 29 3b 0a 20 20 69 66 28 20 72 63 21 Stmt);. if( rc!
2c710 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 20 67 6f 74 =SQLITE_OK ) got
2c720 6f 20 73 71 6c 5f 65 72 72 6f 72 3b 0a 0a 20 20 o sql_error;..
2c730 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 rc = sqlite3_pre
2c740 70 61 72 65 5f 76 32 28 64 62 2c 20 7a 53 71 6c pare_v2(db, zSql
2c750 32 2c 20 2d 31 2c 20 26 70 53 74 6d 74 2c 20 30 2, -1, &pStmt, 0
2c760 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c );. if( rc!=SQL
2c770 49 54 45 5f 4f 4b 20 29 20 67 6f 74 6f 20 73 71 ITE_OK ) goto sq
2c780 6c 5f 65 72 72 6f 72 3b 0a 20 20 66 6f 72 28 69 l_error;. for(i
2c790 53 74 65 70 3d 30 3b 20 53 51 4c 49 54 45 5f 52 Step=0; SQLITE_R
2c7a0 4f 57 3d 3d 73 71 6c 69 74 65 33 5f 73 74 65 70 OW==sqlite3_step
2c7b0 28 70 53 74 6d 74 29 3b 20 69 53 74 65 70 2b 2b (pStmt); iStep++
2c7c0 29 7b 0a 20 20 20 20 69 6e 74 20 61 20 3d 20 73 ){. int a = s
2c7d0 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e qlite3_column_in
2c7e0 74 28 70 53 74 6d 74 2c 20 30 29 3b 0a 20 20 20 t(pStmt, 0);.
2c7f0 20 69 43 6b 73 75 6d 32 20 2b 3d 20 28 69 43 6b iCksum2 += (iCk
2c800 73 75 6d 32 20 3c 3c 20 33 29 20 2b 20 61 3b 0a sum2 << 3) + a;.
2c810 20 20 7d 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 }. rc = sqlit
2c820 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d e3_finalize(pStm
2c830 74 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 t);. if( rc!=SQ
2c840 4c 49 54 45 5f 4f 4b 20 29 20 67 6f 74 6f 20 73 LITE_OK ) goto s
2c850 71 6c 5f 65 72 72 6f 72 3b 0a 0a 20 20 69 66 28 ql_error;.. if(
2c860 20 69 43 6b 73 75 6d 31 21 3d 69 43 6b 73 75 6d iCksum1!=iCksum
2c870 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
2c880 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
2c890 2c 20 22 63 68 65 63 6b 73 75 6d 20 6d 69 73 6d , "checksum mism
2c8a0 61 74 63 68 22 2c 20 30 29 3b 0a 20 20 20 20 72 atch", 0);. r
2c8b0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
2c8c0 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 . }.. return T
2c8d0 43 4c 5f 4f 4b 3b 0a 20 73 71 6c 5f 65 72 72 6f CL_OK;. sql_erro
2c8e0 72 3a 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 r:. Tcl_AppendR
2c8f0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 73 esult(interp, "s
2c900 71 6c 20 65 72 72 6f 72 3a 20 22 2c 20 73 71 6c ql error: ", sql
2c910 69 74 65 33 5f 65 72 72 6d 73 67 28 64 62 29 2c ite3_errmsg(db),
2c920 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 0);. return TC
2c930 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 0a 23 69 66 L_ERROR;.}...#if
2c940 64 65 66 20 53 51 4c 49 54 45 5f 55 53 45 52 5f def SQLITE_USER_
2c950 41 55 54 48 45 4e 54 49 43 41 54 49 4f 4e 0a 23 AUTHENTICATION.#
2c960 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 33 include "sqlite3
2c970 75 73 65 72 61 75 74 68 2e 68 22 0a 2f 2a 0a 2a userauth.h"./*.*
2c980 2a 20 74 63 6c 63 6d 64 3a 20 20 73 71 6c 69 74 * tclcmd: sqlit
2c990 65 33 5f 75 73 65 72 5f 61 75 74 68 65 6e 74 69 e3_user_authenti
2c9a0 63 61 74 65 20 44 42 20 55 53 45 52 4e 41 4d 45 cate DB USERNAME
2c9b0 20 50 41 53 53 57 4f 52 44 0a 2a 2f 0a 73 74 61 PASSWORD.*/.sta
2c9c0 74 69 63 20 69 6e 74 20 74 65 73 74 5f 75 73 65 tic int test_use
2c9d0 72 5f 61 75 74 68 65 6e 74 69 63 61 74 65 28 0a r_authenticate(.
2c9e0 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
2c9f0 65 6e 74 44 61 74 61 2c 20 2f 2a 20 55 6e 75 73 entData, /* Unus
2ca00 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 ed */. Tcl_Inte
2ca10 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
2ca20 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
2ca30 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
2ca40 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
2ca50 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 */. int objc,
2ca60 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
2ca70 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
2ca80 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 ts */. Tcl_Obj
2ca90 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f *CONST objv[] /
2caa0 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 * Command argume
2cab0 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 nts */.){. char
2cac0 20 2a 7a 55 73 65 72 20 3d 20 30 3b 0a 20 20 63 *zUser = 0;. c
2cad0 68 61 72 20 2a 7a 50 61 73 73 77 64 20 3d 20 30 har *zPasswd = 0
2cae0 3b 0a 20 20 69 6e 74 20 6e 50 61 73 73 77 64 20 ;. int nPasswd
2caf0 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a = 0;. sqlite3 *
2cb00 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 db;. int rc;..
2cb10 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a if( objc!=4 ){.
2cb20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
2cb30 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
2cb40 6f 62 6a 76 2c 20 22 44 42 20 55 53 45 52 4e 41 objv, "DB USERNA
2cb50 4d 45 20 50 41 53 53 57 4f 52 44 22 29 3b 0a 20 ME PASSWORD");.
2cb60 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
2cb70 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
2cb80 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
2cb90 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
2cba0 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
2cbb0 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
2cbc0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
2cbd0 7a 55 73 65 72 20 3d 20 54 63 6c 5f 47 65 74 53 zUser = Tcl_GetS
2cbe0 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a tring(objv[2]);.
2cbf0 20 20 7a 50 61 73 73 77 64 20 3d 20 54 63 6c 5f zPasswd = Tcl_
2cc00 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
2cc10 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 50 61 73 73 (objv[3], &nPass
2cc20 77 64 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 wd);. rc = sqli
2cc30 74 65 33 5f 75 73 65 72 5f 61 75 74 68 65 6e 74 te3_user_authent
2cc40 69 63 61 74 65 28 64 62 2c 20 7a 55 73 65 72 2c icate(db, zUser,
2cc50 20 7a 50 61 73 73 77 64 2c 20 6e 50 61 73 73 77 zPasswd, nPassw
2cc60 64 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 d);. Tcl_SetRes
2cc70 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 ult(interp, (cha
2cc80 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 r *)t1ErrorName(
2cc90 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 rc), TCL_STATIC)
2cca0 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
2ccb0 4b 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 K;.}.#endif /* S
2ccc0 51 4c 49 54 45 5f 55 53 45 52 5f 41 55 54 48 45 QLITE_USER_AUTHE
2ccd0 4e 54 49 43 41 54 49 4f 4e 20 2a 2f 0a 0a 23 69 NTICATION */..#i
2cce0 66 64 65 66 20 53 51 4c 49 54 45 5f 55 53 45 52 fdef SQLITE_USER
2ccf0 5f 41 55 54 48 45 4e 54 49 43 41 54 49 4f 4e 0a _AUTHENTICATION.
2cd00 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 73 /*.** tclcmd: s
2cd10 71 6c 69 74 65 33 5f 75 73 65 72 5f 61 64 64 20 qlite3_user_add
2cd20 44 42 20 55 53 45 52 4e 41 4d 45 20 50 41 53 53 DB USERNAME PASS
2cd30 57 4f 52 44 20 49 53 41 44 4d 49 4e 0a 2a 2f 0a WORD ISADMIN.*/.
2cd40 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
2cd50 75 73 65 72 5f 61 64 64 28 0a 20 20 43 6c 69 65 user_add(. Clie
2cd60 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
2cd70 61 2c 20 2f 2a 20 55 6e 75 73 65 64 20 2a 2f 0a a, /* Unused */.
2cd80 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
2cd90 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
2cda0 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
2cdb0 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
2cdc0 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
2cdd0 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 nt objc,
2cde0 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
2cdf0 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
2ce00 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
2ce10 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d objv[] /* Comm
2ce20 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f and arguments */
2ce30 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 55 73 65 .){. char *zUse
2ce40 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 2a 7a r = 0;. char *z
2ce50 50 61 73 73 77 64 20 3d 20 30 3b 0a 20 20 69 6e Passwd = 0;. in
2ce60 74 20 6e 50 61 73 73 77 64 20 3d 20 30 3b 0a 20 t nPasswd = 0;.
2ce70 20 69 6e 74 20 69 73 41 64 6d 69 6e 20 3d 20 30 int isAdmin = 0
2ce80 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b ;. sqlite3 *db;
2ce90 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 . int rc;.. if
2cea0 28 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 ( objc!=5 ){.
2ceb0 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
2cec0 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
2ced0 76 2c 20 22 44 42 20 55 53 45 52 4e 41 4d 45 20 v, "DB USERNAME
2cee0 50 41 53 53 57 4f 52 44 20 49 53 41 44 4d 49 4e PASSWORD ISADMIN
2cef0 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
2cf00 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
2cf10 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
2cf20 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
2cf30 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
2cf40 20 26 64 62 29 20 29 7b 0a 20 20 20 20 72 65 74 &db) ){. ret
2cf50 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2cf60 20 7d 0a 20 20 7a 55 73 65 72 20 3d 20 54 63 6c }. zUser = Tcl
2cf70 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
2cf80 32 5d 29 3b 0a 20 20 7a 50 61 73 73 77 64 20 3d 2]);. zPasswd =
2cf90 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
2cfa0 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 omObj(objv[3], &
2cfb0 6e 50 61 73 73 77 64 29 3b 0a 20 20 54 63 6c 5f nPasswd);. Tcl_
2cfc0 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 GetBooleanFromOb
2cfd0 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 j(interp, objv[4
2cfe0 5d 2c 20 26 69 73 41 64 6d 69 6e 29 3b 0a 20 20 ], &isAdmin);.
2cff0 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65 rc = sqlite3_use
2d000 72 5f 61 64 64 28 64 62 2c 20 7a 55 73 65 72 2c r_add(db, zUser,
2d010 20 7a 50 61 73 73 77 64 2c 20 6e 50 61 73 73 77 zPasswd, nPassw
2d020 64 2c 20 69 73 41 64 6d 69 6e 29 3b 0a 20 20 54 d, isAdmin);. T
2d030 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
2d040 65 72 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 erp, (char *)t1E
2d050 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 rrorName(rc), TC
2d060 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 72 65 74 L_STATIC);. ret
2d070 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 urn TCL_OK;.}.#e
2d080 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 55 ndif /* SQLITE_U
2d090 53 45 52 5f 41 55 54 48 45 4e 54 49 43 41 54 49 SER_AUTHENTICATI
2d0a0 4f 4e 20 2a 2f 0a 0a 23 69 66 64 65 66 20 53 51 ON */..#ifdef SQ
2d0b0 4c 49 54 45 5f 55 53 45 52 5f 41 55 54 48 45 4e LITE_USER_AUTHEN
2d0c0 54 49 43 41 54 49 4f 4e 0a 2f 2a 0a 2a 2a 20 74 TICATION./*.** t
2d0d0 63 6c 63 6d 64 3a 20 20 73 71 6c 69 74 65 33 5f clcmd: sqlite3_
2d0e0 75 73 65 72 5f 63 68 61 6e 67 65 20 44 42 20 55 user_change DB U
2d0f0 53 45 52 4e 41 4d 45 20 50 41 53 53 57 4f 52 44 SERNAME PASSWORD
2d100 20 49 53 41 44 4d 49 4e 0a 2a 2f 0a 73 74 61 74 ISADMIN.*/.stat
2d110 69 63 20 69 6e 74 20 74 65 73 74 5f 75 73 65 72 ic int test_user
2d120 5f 63 68 61 6e 67 65 28 0a 20 20 43 6c 69 65 6e _change(. Clien
2d130 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
2d140 2c 20 2f 2a 20 55 6e 75 73 65 64 20 2a 2f 0a 20 , /* Unused */.
2d150 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
2d160 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
2d170 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
2d180 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
2d190 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
2d1a0 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 t objc,
2d1b0 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
2d1c0 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
2d1d0 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
2d1e0 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 objv[] /* Comma
2d1f0 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a nd arguments */.
2d200 29 7b 0a 20 20 63 68 61 72 20 2a 7a 55 73 65 72 ){. char *zUser
2d210 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 2a 7a 50 = 0;. char *zP
2d220 61 73 73 77 64 20 3d 20 30 3b 0a 20 20 69 6e 74 asswd = 0;. int
2d230 20 6e 50 61 73 73 77 64 20 3d 20 30 3b 0a 20 20 nPasswd = 0;.
2d240 69 6e 74 20 69 73 41 64 6d 69 6e 20 3d 20 30 3b int isAdmin = 0;
2d250 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
2d260 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 int rc;.. if(
2d270 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 objc!=5 ){.
2d280 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
2d290 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
2d2a0 2c 20 22 44 42 20 55 53 45 52 4e 41 4d 45 20 50 , "DB USERNAME P
2d2b0 41 53 53 57 4f 52 44 20 49 53 41 44 4d 49 4e 22 ASSWORD ISADMIN"
2d2c0 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
2d2d0 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
2d2e0 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
2d2f0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
2d300 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
2d310 26 64 62 29 20 29 7b 0a 20 20 20 20 72 65 74 75 &db) ){. retu
2d320 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
2d330 7d 0a 20 20 7a 55 73 65 72 20 3d 20 54 63 6c 5f }. zUser = Tcl_
2d340 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 GetString(objv[2
2d350 5d 29 3b 0a 20 20 7a 50 61 73 73 77 64 20 3d 20 ]);. zPasswd =
2d360 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
2d370 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e mObj(objv[3], &n
2d380 50 61 73 73 77 64 29 3b 0a 20 20 54 63 6c 5f 47 Passwd);. Tcl_G
2d390 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a etBooleanFromObj
2d3a0 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 5d (interp, objv[4]
2d3b0 2c 20 26 69 73 41 64 6d 69 6e 29 3b 0a 20 20 72 , &isAdmin);. r
2d3c0 63 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65 72 c = sqlite3_user
2d3d0 5f 63 68 61 6e 67 65 28 64 62 2c 20 7a 55 73 65 _change(db, zUse
2d3e0 72 2c 20 7a 50 61 73 73 77 64 2c 20 6e 50 61 73 r, zPasswd, nPas
2d3f0 73 77 64 2c 20 69 73 41 64 6d 69 6e 29 3b 0a 20 swd, isAdmin);.
2d400 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
2d410 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 74 nterp, (char *)t
2d420 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 1ErrorName(rc),
2d430 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 72 TCL_STATIC);. r
2d440 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
2d450 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 #endif /* SQLITE
2d460 5f 55 53 45 52 5f 41 55 54 48 45 4e 54 49 43 41 _USER_AUTHENTICA
2d470 54 49 4f 4e 20 2a 2f 0a 0a 23 69 66 64 65 66 20 TION */..#ifdef
2d480 53 51 4c 49 54 45 5f 55 53 45 52 5f 41 55 54 48 SQLITE_USER_AUTH
2d490 45 4e 54 49 43 41 54 49 4f 4e 0a 2f 2a 0a 2a 2a ENTICATION./*.**
2d4a0 20 74 63 6c 63 6d 64 3a 20 20 73 71 6c 69 74 65 tclcmd: sqlite
2d4b0 33 5f 75 73 65 72 5f 64 65 6c 65 74 65 20 44 42 3_user_delete DB
2d4c0 20 55 53 45 52 4e 41 4d 45 0a 2a 2f 0a 73 74 61 USERNAME.*/.sta
2d4d0 74 69 63 20 69 6e 74 20 74 65 73 74 5f 75 73 65 tic int test_use
2d4e0 72 5f 64 65 6c 65 74 65 28 0a 20 20 43 6c 69 65 r_delete(. Clie
2d4f0 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
2d500 61 2c 20 2f 2a 20 55 6e 75 73 65 64 20 2a 2f 0a a, /* Unused */.
2d510 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
2d520 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
2d530 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
2d540 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
2d550 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
2d560 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 nt objc,
2d570 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
2d580 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
2d590 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
2d5a0 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d objv[] /* Comm
2d5b0 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f and arguments */
2d5c0 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 55 73 65 .){. char *zUse
2d5d0 72 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 r = 0;. sqlite3
2d5e0 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a *db;. int rc;.
2d5f0 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 . if( objc!=3 )
2d600 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
2d610 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
2d620 2c 20 6f 62 6a 76 2c 20 22 44 42 20 55 53 45 52 , objv, "DB USER
2d630 4e 41 4d 45 22 29 3b 0a 20 20 20 20 72 65 74 75 NAME");. retu
2d640 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
2d650 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
2d660 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
2d670 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
2d680 31 5d 29 2c 20 26 64 62 29 20 29 7b 0a 20 20 20 1]), &db) ){.
2d690 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
2d6a0 52 3b 0a 20 20 7d 0a 20 20 7a 55 73 65 72 20 3d R;. }. zUser =
2d6b0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
2d6c0 62 6a 76 5b 32 5d 29 3b 0a 20 20 72 63 20 3d 20 bjv[2]);. rc =
2d6d0 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 65 6c sqlite3_user_del
2d6e0 65 74 65 28 64 62 2c 20 7a 55 73 65 72 29 3b 0a ete(db, zUser);.
2d6f0 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
2d700 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
2d710 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c t1ErrorName(rc),
2d720 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 TCL_STATIC);.
2d730 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
2d740 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 .#endif /* SQLIT
2d750 45 5f 55 53 45 52 5f 41 55 54 48 45 4e 54 49 43 E_USER_AUTHENTIC
2d760 41 54 49 4f 4e 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 ATION */../*.**
2d770 52 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 Register command
2d780 73 20 77 69 74 68 20 74 68 65 20 54 43 4c 20 69 s with the TCL i
2d790 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 nterpreter..*/.i
2d7a0 6e 74 20 53 71 6c 69 74 65 74 65 73 74 31 5f 49 nt Sqlitetest1_I
2d7b0 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a nit(Tcl_Interp *
2d7c0 69 6e 74 65 72 70 29 7b 0a 20 20 65 78 74 65 72 interp){. exter
2d7d0 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 73 65 n int sqlite3_se
2d7e0 61 72 63 68 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 arch_count;. ex
2d7f0 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 tern int sqlite3
2d800 5f 66 6f 75 6e 64 5f 63 6f 75 6e 74 3b 0a 20 20 _found_count;.
2d810 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
2d820 65 33 5f 69 6e 74 65 72 72 75 70 74 5f 63 6f 75 e3_interrupt_cou
2d830 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 nt;. extern int
2d840 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 66 69 sqlite3_open_fi
2d850 6c 65 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 le_count;. exte
2d860 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 73 rn int sqlite3_s
2d870 6f 72 74 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 ort_count;. ext
2d880 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
2d890 63 75 72 72 65 6e 74 5f 74 69 6d 65 3b 0a 23 69 current_time;.#i
2d8a0 66 20 53 51 4c 49 54 45 5f 4f 53 5f 55 4e 49 58 f SQLITE_OS_UNIX
2d8b0 20 26 26 20 64 65 66 69 6e 65 64 28 5f 5f 41 50 && defined(__AP
2d8c0 50 4c 45 5f 5f 29 20 26 26 20 53 51 4c 49 54 45 PLE__) && SQLITE
2d8d0 5f 45 4e 41 42 4c 45 5f 4c 4f 43 4b 49 4e 47 5f _ENABLE_LOCKING_
2d8e0 53 54 59 4c 45 0a 20 20 65 78 74 65 72 6e 20 69 STYLE. extern i
2d8f0 6e 74 20 73 71 6c 69 74 65 33 5f 68 6f 73 74 69 nt sqlite3_hosti
2d900 64 5f 6e 75 6d 3b 0a 23 65 6e 64 69 66 0a 20 20 d_num;.#endif.
2d910 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
2d920 65 33 5f 6d 61 78 5f 62 6c 6f 62 73 69 7a 65 3b e3_max_blobsize;
2d930 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
2d940 6c 69 74 65 33 42 74 72 65 65 53 68 61 72 65 64 lite3BtreeShared
2d950 43 61 63 68 65 52 65 70 6f 72 74 28 76 6f 69 64 CacheReport(void
2d960 2a 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 *,.
2d970 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2d980 20 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c Tcl
2d990 5f 49 6e 74 65 72 70 2a 2c 69 6e 74 2c 54 63 6c _Interp*,int,Tcl
2d9a0 5f 4f 62 6a 2a 43 4f 4e 53 54 2a 29 3b 0a 20 20 _Obj*CONST*);.
2d9b0 73 74 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a static struct {.
2d9c0 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 char *zName
2d9d0 3b 0a 20 20 20 20 20 54 63 6c 5f 43 6d 64 50 72 ;. Tcl_CmdPr
2d9e0 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 7d 20 61 oc *xProc;. } a
2d9f0 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 7b Cmd[] = {. {
2da00 20 22 64 62 5f 65 6e 74 65 72 22 2c 20 20 20 20 "db_enter",
2da10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2da20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2da30 64 62 5f 65 6e 74 65 72 20 20 20 20 20 20 20 20 db_enter
2da40 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b },. {
2da50 20 22 64 62 5f 6c 65 61 76 65 22 2c 20 20 20 20 "db_leave",
2da60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2da70 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2da80 64 62 5f 6c 65 61 76 65 20 20 20 20 20 20 20 20 db_leave
2da90 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b },. {
2daa0 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
2dab0 66 5f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20 f_int",
2dac0 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2dad0 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
2dae0 69 6e 74 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b int },. {
2daf0 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
2db00 66 5f 69 6e 74 36 34 22 2c 20 20 20 20 20 20 20 f_int64",
2db10 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2db20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
2db30 69 6e 74 36 34 20 20 7d 2c 0a 20 20 20 20 20 7b int64 },. {
2db40 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
2db50 66 5f 6c 6f 6e 67 22 2c 20 20 20 20 20 20 20 20 f_long",
2db60 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2db70 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
2db80 6c 6f 6e 67 20 20 20 7d 2c 0a 20 20 20 20 20 7b long },. {
2db90 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
2dba0 66 5f 73 74 72 22 2c 20 20 20 20 20 20 20 20 20 f_str",
2dbb0 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2dbc0 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
2dbd0 73 74 72 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b str },. {
2dbe0 20 22 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e "sqlite3_snprin
2dbf0 74 66 5f 73 74 72 22 2c 20 20 20 20 20 20 20 20 tf_str",
2dc00 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2dc10 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 sqlite3_snprintf
2dc20 5f 73 74 72 20 20 20 7d 2c 0a 20 20 20 20 20 7b _str },. {
2dc30 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
2dc40 66 5f 73 74 72 6f 6e 6c 79 22 2c 20 20 20 20 20 f_stronly",
2dc50 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2dc60 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
2dc70 73 74 72 6f 6e 6c 79 7d 2c 0a 20 20 20 20 20 7b stronly},. {
2dc80 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
2dc90 66 5f 64 6f 75 62 6c 65 22 2c 20 20 20 20 20 20 f_double",
2dca0 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2dcb0 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
2dcc0 64 6f 75 62 6c 65 20 7d 2c 0a 20 20 20 20 20 7b double },. {
2dcd0 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
2dce0 66 5f 73 63 61 6c 65 64 22 2c 20 20 20 20 20 20 f_scaled",
2dcf0 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2dd00 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
2dd10 73 63 61 6c 65 64 20 7d 2c 0a 20 20 20 20 20 7b scaled },. {
2dd20 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
2dd30 66 5f 68 65 78 64 6f 75 62 6c 65 22 2c 20 20 20 f_hexdouble",
2dd40 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 (Tcl_CmdProc*)sq
2dd50 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 68 65 lite3_mprintf_he
2dd60 78 64 6f 75 62 6c 65 7d 2c 0a 20 20 20 20 20 7b xdouble},. {
2dd70 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
2dd80 66 5f 7a 5f 74 65 73 74 22 2c 20 20 20 20 20 20 f_z_test",
2dd90 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2dda0 74 65 73 74 5f 6d 70 72 69 6e 74 66 5f 7a 20 20 test_mprintf_z
2ddb0 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 },. {
2ddc0 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 "sqlite3_mprintf
2ddd0 5f 6e 5f 74 65 73 74 22 2c 20 20 20 20 20 20 20 _n_test",
2dde0 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 (Tcl_CmdProc*)t
2ddf0 65 73 74 5f 6d 70 72 69 6e 74 66 5f 6e 20 20 20 est_mprintf_n
2de00 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 },. { "
2de10 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 sqlite3_snprintf
2de20 5f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20 20 _int",
2de30 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 (Tcl_CmdProc*)te
2de40 73 74 5f 73 6e 70 72 69 6e 74 66 5f 69 6e 74 20 st_snprintf_int
2de50 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
2de60 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 qlite3_last_inse
2de70 72 74 5f 72 6f 77 69 64 22 2c 20 20 20 20 20 28 rt_rowid", (
2de80 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 Tcl_CmdProc*)tes
2de90 74 5f 6c 61 73 74 5f 72 6f 77 69 64 20 20 20 20 t_last_rowid
2dea0 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 },. { "sq
2deb0 6c 69 74 65 33 5f 65 78 65 63 5f 70 72 69 6e 74 lite3_exec_print
2dec0 66 22 2c 20 20 20 20 20 20 20 20 20 20 20 28 54 f", (T
2ded0 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 cl_CmdProc*)test
2dee0 5f 65 78 65 63 5f 70 72 69 6e 74 66 20 20 20 20 _exec_printf
2def0 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c },. { "sql
2df00 69 74 65 33 5f 65 78 65 63 5f 68 65 78 22 2c 20 ite3_exec_hex",
2df10 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
2df20 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
2df30 65 78 65 63 5f 68 65 78 20 20 20 20 20 20 20 20 exec_hex
2df40 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
2df50 74 65 33 5f 65 78 65 63 22 2c 20 20 20 20 20 20 te3_exec",
2df60 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c (Tcl
2df70 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 65 _CmdProc*)test_e
2df80 78 65 63 20 20 20 20 20 20 20 20 20 20 20 20 20 xec
2df90 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
2dfa0 65 33 5f 65 78 65 63 5f 6e 72 22 2c 20 20 20 20 e3_exec_nr",
2dfb0 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f (Tcl_
2dfc0 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 65 78 CmdProc*)test_ex
2dfd0 65 63 5f 6e 72 20 20 20 20 20 20 20 20 20 20 7d ec_nr }
2dfe0 2c 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 ,.#ifndef SQLITE
2dff0 5f 4f 4d 49 54 5f 47 45 54 5f 54 41 42 4c 45 0a _OMIT_GET_TABLE.
2e000 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
2e010 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74 66 get_table_printf
2e020 22 2c 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 ", (Tcl_Cmd
2e030 50 72 6f 63 2a 29 74 65 73 74 5f 67 65 74 5f 74 Proc*)test_get_t
2e040 61 62 6c 65 5f 70 72 69 6e 74 66 20 7d 2c 0a 23 able_printf },.#
2e050 65 6e 64 69 66 0a 20 20 20 20 20 7b 20 22 73 71 endif. { "sq
2e060 6c 69 74 65 33 5f 63 6c 6f 73 65 22 2c 20 20 20 lite3_close",
2e070 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 (T
2e080 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 cl_CmdProc*)sqli
2e090 74 65 5f 74 65 73 74 5f 63 6c 6f 73 65 20 20 20 te_test_close
2e0a0 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c },. { "sql
2e0b0 69 74 65 33 5f 63 6c 6f 73 65 5f 76 32 22 2c 20 ite3_close_v2",
2e0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
2e0d0 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 l_CmdProc*)sqlit
2e0e0 65 5f 74 65 73 74 5f 63 6c 6f 73 65 5f 76 32 20 e_test_close_v2
2e0f0 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
2e100 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 te3_create_funct
2e110 69 6f 6e 22 2c 20 20 20 20 20 20 20 28 54 63 6c ion", (Tcl
2e120 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 63 _CmdProc*)test_c
2e130 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 20 reate_function
2e140 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
2e150 65 33 5f 63 72 65 61 74 65 5f 61 67 67 72 65 67 e3_create_aggreg
2e160 61 74 65 22 2c 20 20 20 20 20 20 28 54 63 6c 5f ate", (Tcl_
2e170 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 63 72 CmdProc*)test_cr
2e180 65 61 74 65 5f 61 67 67 72 65 67 61 74 65 20 7d eate_aggregate }
2e190 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
2e1a0 5f 72 65 67 69 73 74 65 72 5f 74 65 73 74 5f 66 _register_test_f
2e1b0 75 6e 63 74 69 6f 6e 22 2c 20 28 54 63 6c 5f 43 unction", (Tcl_C
2e1c0 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 72 65 67 mdProc*)test_reg
2e1d0 69 73 74 65 72 5f 66 75 6e 63 20 20 20 20 7d 2c ister_func },
2e1e0 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f . { "sqlite_
2e1f0 61 62 6f 72 74 22 2c 20 20 20 20 20 20 20 20 20 abort",
2e200 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d (Tcl_Cm
2e210 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 5f 61 62 dProc*)sqlite_ab
2e220 6f 72 74 20 20 20 20 20 20 20 20 20 20 7d 2c 0a ort },.
2e230 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f 62 { "sqlite_b
2e240 69 6e 64 22 2c 20 20 20 20 20 20 20 20 20 20 20 ind",
2e250 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
2e260 50 72 6f 63 2a 29 74 65 73 74 5f 62 69 6e 64 20 Proc*)test_bind
2e270 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 },.
2e280 20 20 20 20 7b 20 22 62 72 65 61 6b 70 6f 69 6e { "breakpoin
2e290 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 t",
2e2a0 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
2e2b0 72 6f 63 2a 29 74 65 73 74 5f 62 72 65 61 6b 70 roc*)test_breakp
2e2c0 6f 69 6e 74 20 20 20 20 20 20 20 7d 2c 0a 20 20 oint },.
2e2d0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6b 65 { "sqlite3_ke
2e2e0 79 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 y",
2e2f0 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
2e300 6f 63 2a 29 74 65 73 74 5f 6b 65 79 20 20 20 20 oc*)test_key
2e310 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 },.
2e320 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 72 65 6b { "sqlite3_rek
2e330 65 79 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 ey",
2e340 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f (Tcl_CmdPro
2e350 63 2a 29 74 65 73 74 5f 72 65 6b 65 79 20 20 20 c*)test_rekey
2e360 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
2e370 20 7b 20 22 73 71 6c 69 74 65 5f 73 65 74 5f 6d { "sqlite_set_m
2e380 61 67 69 63 22 2c 20 20 20 20 20 20 20 20 20 20 agic",
2e390 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 (Tcl_CmdProc
2e3a0 2a 29 73 71 6c 69 74 65 5f 73 65 74 5f 6d 61 67 *)sqlite_set_mag
2e3b0 69 63 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 ic },.
2e3c0 7b 20 22 73 71 6c 69 74 65 33 5f 69 6e 74 65 72 { "sqlite3_inter
2e3d0 72 75 70 74 22 2c 20 20 20 20 20 20 20 20 20 20 rupt",
2e3e0 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
2e3f0 29 74 65 73 74 5f 69 6e 74 65 72 72 75 70 74 20 )test_interrupt
2e400 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b },. {
2e410 20 22 73 71 6c 69 74 65 5f 64 65 6c 65 74 65 5f "sqlite_delete_
2e420 66 75 6e 63 74 69 6f 6e 22 2c 20 20 20 20 20 20 function",
2e430 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
2e440 64 65 6c 65 74 65 5f 66 75 6e 63 74 69 6f 6e 20 delete_function
2e450 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 },. {
2e460 22 73 71 6c 69 74 65 5f 64 65 6c 65 74 65 5f 63 "sqlite_delete_c
2e470 6f 6c 6c 61 74 69 6f 6e 22 2c 20 20 20 20 20 20 ollation",
2e480 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 64 (Tcl_CmdProc*)d
2e490 65 6c 65 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 20 elete_collation
2e4a0 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 },. { "
2e4b0 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f sqlite3_get_auto
2e4c0 63 6f 6d 6d 69 74 22 2c 20 20 20 20 20 20 20 20 commit",
2e4d0 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 67 65 (Tcl_CmdProc*)ge
2e4e0 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20 20 20 20 t_autocommit
2e4f0 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
2e500 71 6c 69 74 65 33 5f 73 74 61 63 6b 5f 75 73 65 qlite3_stack_use
2e510 64 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 28 d", (
2e520 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 Tcl_CmdProc*)tes
2e530 74 5f 73 74 61 63 6b 5f 75 73 65 64 20 20 20 20 t_stack_used
2e540 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 },. { "sq
2e550 6c 69 74 65 33 5f 62 75 73 79 5f 74 69 6d 65 6f lite3_busy_timeo
2e560 75 74 22 2c 20 20 20 20 20 20 20 20 20 20 28 54 ut", (T
2e570 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 cl_CmdProc*)test
2e580 5f 62 75 73 79 5f 74 69 6d 65 6f 75 74 20 20 20 _busy_timeout
2e590 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 70 72 69 },. { "pri
2e5a0 6e 74 66 22 2c 20 20 20 20 20 20 20 20 20 20 20 ntf",
2e5b0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
2e5c0 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
2e5d0 70 72 69 6e 74 66 20 20 20 20 20 20 20 20 20 20 printf
2e5e0 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
2e5f0 74 65 33 49 6f 54 72 61 63 65 22 2c 20 20 20 20 te3IoTrace",
2e600 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 (Tcl_C
2e610 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 69 6f 5f mdProc*)test_io_
2e620 74 72 61 63 65 20 20 20 20 20 20 20 20 20 7d 2c trace },
2e630 0a 20 20 20 20 20 7b 20 22 63 6c 61 6e 67 5f 73 . { "clang_s
2e640 61 6e 69 74 69 7a 65 5f 61 64 64 72 65 73 73 22 anitize_address"
2e650 2c 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d , (Tcl_Cm
2e660 64 50 72 6f 63 2a 29 63 6c 61 6e 67 5f 73 61 6e dProc*)clang_san
2e670 69 74 69 7a 65 5f 61 64 64 72 65 73 73 20 7d 2c itize_address },
2e680 0a 20 20 7d 3b 0a 20 20 73 74 61 74 69 63 20 73 . };. static s
2e690 74 72 75 63 74 20 7b 0a 20 20 20 20 20 63 68 61 truct {. cha
2e6a0 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 54 r *zName;. T
2e6b0 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 2a 78 cl_ObjCmdProc *x
2e6c0 50 72 6f 63 3b 0a 20 20 20 20 20 76 6f 69 64 20 Proc;. void
2e6d0 2a 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 7d *clientData;. }
2e6e0 20 61 4f 62 6a 43 6d 64 5b 5d 20 3d 20 7b 0a 20 aObjCmd[] = {.
2e6f0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 { "sqlite3_c
2e700 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 onnection_pointe
2e710 72 22 2c 20 20 20 20 67 65 74 5f 73 71 6c 69 74 r", get_sqlit
2e720 65 5f 70 6f 69 6e 74 65 72 2c 20 30 20 7d 2c 0a e_pointer, 0 },.
2e730 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
2e740 62 69 6e 64 5f 69 6e 74 22 2c 20 20 20 20 20 20 bind_int",
2e750 20 20 20 20 20 20 20 20 74 65 73 74 5f 62 69 6e test_bin
2e760 64 5f 69 6e 74 2c 20 20 20 20 20 20 30 20 7d 2c d_int, 0 },
2e770 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
2e780 5f 62 69 6e 64 5f 7a 65 72 6f 62 6c 6f 62 22 2c _bind_zeroblob",
2e790 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 62 69 test_bi
2e7a0 6e 64 5f 7a 65 72 6f 62 6c 6f 62 2c 20 30 20 7d nd_zeroblob, 0 }
2e7b0 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
2e7c0 33 5f 62 69 6e 64 5f 69 6e 74 36 34 22 2c 20 20 3_bind_int64",
2e7d0 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 62 test_b
2e7e0 69 6e 64 5f 69 6e 74 36 34 2c 20 20 20 20 30 20 ind_int64, 0
2e7f0 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
2e800 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 22 2c e3_bind_double",
2e810 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f test_
2e820 62 69 6e 64 5f 64 6f 75 62 6c 65 2c 20 20 20 30 bind_double, 0
2e830 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
2e840 74 65 33 5f 62 69 6e 64 5f 6e 75 6c 6c 22 2c 20 te3_bind_null",
2e850 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
2e860 5f 62 69 6e 64 5f 6e 75 6c 6c 20 20 20 20 20 2c _bind_null ,
2e870 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
2e880 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 22 2c ite3_bind_text",
2e890 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
2e8a0 74 5f 62 69 6e 64 5f 74 65 78 74 20 20 20 20 20 t_bind_text
2e8b0 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
2e8c0 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 31 lite3_bind_text1
2e8d0 36 22 2c 20 20 20 20 20 20 20 20 20 20 20 74 65 6", te
2e8e0 73 74 5f 62 69 6e 64 5f 74 65 78 74 31 36 20 20 st_bind_text16
2e8f0 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
2e900 71 6c 69 74 65 33 5f 62 69 6e 64 5f 62 6c 6f 62 qlite3_bind_blob
2e910 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 74 ", t
2e920 65 73 74 5f 62 69 6e 64 5f 62 6c 6f 62 20 20 20 est_bind_blob
2e930 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
2e940 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 sqlite3_bind_par
2e950 61 6d 65 74 65 72 5f 63 6f 75 6e 74 22 2c 20 20 ameter_count",
2e960 74 65 73 74 5f 62 69 6e 64 5f 70 61 72 61 6d 65 test_bind_parame
2e970 74 65 72 5f 63 6f 75 6e 74 2c 20 30 7d 2c 0a 20 ter_count, 0},.
2e980 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 { "sqlite3_b
2e990 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 ind_parameter_na
2e9a0 6d 65 22 2c 20 20 20 74 65 73 74 5f 62 69 6e 64 me", test_bind
2e9b0 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 6d 65 2c _parameter_name,
2e9c0 20 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 0},. { "sq
2e9d0 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 61 6d lite3_bind_param
2e9e0 65 74 65 72 5f 69 6e 64 65 78 22 2c 20 20 74 65 eter_index", te
2e9f0 73 74 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 st_bind_paramete
2ea00 72 5f 69 6e 64 65 78 2c 20 30 7d 2c 0a 20 20 20 r_index, 0},.
2ea10 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6c 65 { "sqlite3_cle
2ea20 61 72 5f 62 69 6e 64 69 6e 67 73 22 2c 20 20 20 ar_bindings",
2ea30 20 20 20 20 20 74 65 73 74 5f 63 6c 65 61 72 5f test_clear_
2ea40 62 69 6e 64 69 6e 67 73 2c 20 30 7d 2c 0a 20 20 bindings, 0},.
2ea50 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 6c { "sqlite3_sl
2ea60 65 65 70 22 2c 20 20 20 20 20 20 20 20 20 20 20 eep",
2ea70 20 20 20 20 20 20 74 65 73 74 5f 73 6c 65 65 70 test_sleep
2ea80 2c 20 20 20 20 20 20 20 20 20 20 30 7d 2c 0a 20 , 0},.
2ea90 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 { "sqlite3_e
2eaa0 72 72 63 6f 64 65 22 2c 20 20 20 20 20 20 20 20 rrcode",
2eab0 20 20 20 20 20 20 20 74 65 73 74 5f 65 72 72 63 test_errc
2eac0 6f 64 65 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a ode ,0 },.
2ead0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
2eae0 65 78 74 65 6e 64 65 64 5f 65 72 72 63 6f 64 65 extended_errcode
2eaf0 22 2c 20 20 20 20 20 20 74 65 73 74 5f 65 78 5f ", test_ex_
2eb00 65 72 72 63 6f 64 65 20 20 20 20 2c 30 20 7d 2c errcode ,0 },
2eb10 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
2eb20 5f 65 72 72 6d 73 67 22 2c 20 20 20 20 20 20 20 _errmsg",
2eb30 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 65 72 test_er
2eb40 72 6d 73 67 20 20 20 20 20 20 20 20 2c 30 20 7d rmsg ,0 }
2eb50 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
2eb60 33 5f 65 72 72 6d 73 67 31 36 22 2c 20 20 20 20 3_errmsg16",
2eb70 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 65 test_e
2eb80 72 72 6d 73 67 31 36 20 20 20 20 20 20 2c 30 20 rrmsg16 ,0
2eb90 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
2eba0 65 33 5f 6f 70 65 6e 22 2c 20 20 20 20 20 20 20 e3_open",
2ebb0 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f test_
2ebc0 6f 70 65 6e 20 20 20 20 20 20 20 20 20 20 2c 30 open ,0
2ebd0 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
2ebe0 74 65 33 5f 6f 70 65 6e 31 36 22 2c 20 20 20 20 te3_open16",
2ebf0 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
2ec00 5f 6f 70 65 6e 31 36 20 20 20 20 20 20 20 20 2c _open16 ,
2ec10 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
2ec20 69 74 65 33 5f 6f 70 65 6e 5f 76 32 22 2c 20 20 ite3_open_v2",
2ec30 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
2ec40 74 5f 6f 70 65 6e 5f 76 32 20 20 20 20 20 20 20 t_open_v2
2ec50 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
2ec60 6c 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 31 36 lite3_complete16
2ec70 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 74 65 ", te
2ec80 73 74 5f 63 6f 6d 70 6c 65 74 65 31 36 20 20 20 st_complete16
2ec90 20 2c 30 20 7d 2c 0a 0a 20 20 20 20 20 7b 20 22 ,0 },.. { "
2eca0 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 22 sqlite3_prepare"
2ecb0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2ecc0 74 65 73 74 5f 70 72 65 70 61 72 65 20 20 20 20 test_prepare
2ecd0 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
2ece0 22 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 "sqlite3_prepare
2ecf0 31 36 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 16",
2ed00 20 74 65 73 74 5f 70 72 65 70 61 72 65 31 36 20 test_prepare16
2ed10 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b ,0 },. {
2ed20 20 22 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 "sqlite3_prepar
2ed30 65 5f 76 32 22 2c 20 20 20 20 20 20 20 20 20 20 e_v2",
2ed40 20 20 74 65 73 74 5f 70 72 65 70 61 72 65 5f 76 test_prepare_v
2ed50 32 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 2 ,0 },.
2ed60 7b 20 22 73 71 6c 69 74 65 33 5f 70 72 65 70 61 { "sqlite3_prepa
2ed70 72 65 5f 74 6b 74 33 31 33 34 22 2c 20 20 20 20 re_tkt3134",
2ed80 20 20 20 74 65 73 74 5f 70 72 65 70 61 72 65 5f test_prepare_
2ed90 74 6b 74 33 31 33 34 2c 20 30 7d 2c 0a 20 20 20 tkt3134, 0},.
2eda0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 70 72 65 { "sqlite3_pre
2edb0 70 61 72 65 31 36 5f 76 32 22 2c 20 20 20 20 20 pare16_v2",
2edc0 20 20 20 20 20 74 65 73 74 5f 70 72 65 70 61 72 test_prepar
2edd0 65 31 36 5f 76 32 20 20 2c 30 20 7d 2c 0a 20 20 e16_v2 ,0 },.
2ede0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 66 69 { "sqlite3_fi
2edf0 6e 61 6c 69 7a 65 22 2c 20 20 20 20 20 20 20 20 nalize",
2ee00 20 20 20 20 20 20 74 65 73 74 5f 66 69 6e 61 6c test_final
2ee10 69 7a 65 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 ize ,0 },.
2ee20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 { "sqlite3_s
2ee30 74 6d 74 5f 73 74 61 74 75 73 22 2c 20 20 20 20 tmt_status",
2ee40 20 20 20 20 20 20 20 74 65 73 74 5f 73 74 6d 74 test_stmt
2ee50 5f 73 74 61 74 75 73 20 20 20 2c 30 20 7d 2c 0a _status ,0 },.
2ee60 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
2ee70 72 65 73 65 74 22 2c 20 20 20 20 20 20 20 20 20 reset",
2ee80 20 20 20 20 20 20 20 20 74 65 73 74 5f 72 65 73 test_res
2ee90 65 74 20 20 20 20 20 20 20 20 20 2c 30 20 7d 2c et ,0 },
2eea0 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
2eeb0 5f 65 78 70 69 72 65 64 22 2c 20 20 20 20 20 20 _expired",
2eec0 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 65 78 test_ex
2eed0 70 69 72 65 64 20 20 20 20 20 20 20 2c 30 20 7d pired ,0 }
2eee0 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
2eef0 33 5f 74 72 61 6e 73 66 65 72 5f 62 69 6e 64 69 3_transfer_bindi
2ef00 6e 67 73 22 2c 20 20 20 20 20 74 65 73 74 5f 74 ngs", test_t
2ef10 72 61 6e 73 66 65 72 5f 62 69 6e 64 20 2c 30 20 ransfer_bind ,0
2ef20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
2ef30 65 33 5f 63 68 61 6e 67 65 73 22 2c 20 20 20 20 e3_changes",
2ef40 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f test_
2ef50 63 68 61 6e 67 65 73 20 20 20 20 20 20 20 2c 30 changes ,0
2ef60 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
2ef70 74 65 33 5f 73 74 65 70 22 2c 20 20 20 20 20 20 te3_step",
2ef80 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
2ef90 5f 73 74 65 70 20 20 20 20 20 20 20 20 20 20 2c _step ,
2efa0 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
2efb0 69 74 65 33 5f 73 71 6c 22 2c 20 20 20 20 20 20 ite3_sql",
2efc0 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
2efd0 74 5f 73 71 6c 20 20 20 20 20 20 20 20 20 20 20 t_sql
2efe0 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
2eff0 6c 69 74 65 33 5f 6e 65 78 74 5f 73 74 6d 74 22 lite3_next_stmt"
2f000 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 , te
2f010 73 74 5f 6e 65 78 74 5f 73 74 6d 74 20 20 20 20 st_next_stmt
2f020 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
2f030 71 6c 69 74 65 33 5f 73 74 6d 74 5f 72 65 61 64 qlite3_stmt_read
2f040 6f 6e 6c 79 22 2c 20 20 20 20 20 20 20 20 20 74 only", t
2f050 65 73 74 5f 73 74 6d 74 5f 72 65 61 64 6f 6e 6c est_stmt_readonl
2f060 79 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 y ,0 },. { "
2f070 73 71 6c 69 74 65 33 5f 73 74 6d 74 5f 62 75 73 sqlite3_stmt_bus
2f080 79 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 y",
2f090 74 65 73 74 5f 73 74 6d 74 5f 62 75 73 79 20 20 test_stmt_busy
2f0a0 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
2f0b0 22 75 73 65 73 5f 73 74 6d 74 5f 6a 6f 75 72 6e "uses_stmt_journ
2f0c0 61 6c 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 al",
2f0d0 20 75 73 65 73 5f 73 74 6d 74 5f 6a 6f 75 72 6e uses_stmt_journ
2f0e0 61 6c 20 2c 30 20 7d 2c 0a 0a 20 20 20 20 20 7b al ,0 },.. {
2f0f0 20 22 73 71 6c 69 74 65 33 5f 72 65 6c 65 61 73 "sqlite3_releas
2f100 65 5f 6d 65 6d 6f 72 79 22 2c 20 20 20 20 20 20 e_memory",
2f110 20 20 74 65 73 74 5f 72 65 6c 65 61 73 65 5f 6d test_release_m
2f120 65 6d 6f 72 79 2c 20 20 20 20 20 30 7d 2c 0a 20 emory, 0},.
2f130 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 64 { "sqlite3_d
2f140 62 5f 72 65 6c 65 61 73 65 5f 6d 65 6d 6f 72 79 b_release_memory
2f150 22 2c 20 20 20 20 20 74 65 73 74 5f 64 62 5f 72 ", test_db_r
2f160 65 6c 65 61 73 65 5f 6d 65 6d 6f 72 79 2c 20 20 elease_memory,
2f170 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 0},. { "sqli
2f180 74 65 33 5f 64 62 5f 66 69 6c 65 6e 61 6d 65 22 te3_db_filename"
2f190 2c 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 , test
2f1a0 5f 64 62 5f 66 69 6c 65 6e 61 6d 65 2c 20 20 20 _db_filename,
2f1b0 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 20 7b 20 0},. {
2f1c0 22 73 71 6c 69 74 65 33 5f 64 62 5f 72 65 61 64 "sqlite3_db_read
2f1d0 6f 6e 6c 79 22 2c 20 20 20 20 20 20 20 20 20 20 only",
2f1e0 20 74 65 73 74 5f 64 62 5f 72 65 61 64 6f 6e 6c test_db_readonl
2f1f0 79 2c 20 20 20 20 20 20 20 20 30 7d 2c 0a 20 20 y, 0},.
2f200 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 6f { "sqlite3_so
2f210 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 22 2c 20 ft_heap_limit",
2f220 20 20 20 20 20 20 74 65 73 74 5f 73 6f 66 74 5f test_soft_
2f230 68 65 61 70 5f 6c 69 6d 69 74 2c 20 20 20 20 30 heap_limit, 0
2f240 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
2f250 65 33 5f 74 68 72 65 61 64 5f 63 6c 65 61 6e 75 e3_thread_cleanu
2f260 70 22 2c 20 20 20 20 20 20 20 20 74 65 73 74 5f p", test_
2f270 74 68 72 65 61 64 5f 63 6c 65 61 6e 75 70 2c 20 thread_cleanup,
2f280 20 20 20 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 0},. { "
2f290 73 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 72 65 sqlite3_pager_re
2f2a0 66 63 6f 75 6e 74 73 22 2c 20 20 20 20 20 20 20 fcounts",
2f2b0 74 65 73 74 5f 70 61 67 65 72 5f 72 65 66 63 6f test_pager_refco
2f2c0 75 6e 74 73 2c 20 20 20 20 30 7d 2c 0a 0a 20 20 unts, 0},..
2f2d0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6c 6f { "sqlite3_lo
2f2e0 61 64 5f 65 78 74 65 6e 73 69 6f 6e 22 2c 20 20 ad_extension",
2f2f0 20 20 20 20 20 20 74 65 73 74 5f 6c 6f 61 64 5f test_load_
2f300 65 78 74 65 6e 73 69 6f 6e 2c 20 20 20 20 20 30 extension, 0
2f310 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
2f320 65 33 5f 65 6e 61 62 6c 65 5f 6c 6f 61 64 5f 65 e3_enable_load_e
2f330 78 74 65 6e 73 69 6f 6e 22 2c 20 74 65 73 74 5f xtension", test_
2f340 65 6e 61 62 6c 65 5f 6c 6f 61 64 2c 20 20 20 20 enable_load,
2f350 20 20 20 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 0},. { "
2f360 73 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 sqlite3_extended
2f370 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 22 2c 20 _result_codes",
2f380 74 65 73 74 5f 65 78 74 65 6e 64 65 64 5f 72 65 test_extended_re
2f390 73 75 6c 74 5f 63 6f 64 65 73 2c 20 30 7d 2c 0a sult_codes, 0},.
2f3a0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
2f3b0 6c 69 6d 69 74 22 2c 20 20 20 20 20 20 20 20 20 limit",
2f3c0 20 20 20 20 20 20 20 20 74 65 73 74 5f 6c 69 6d test_lim
2f3d0 69 74 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 it,
2f3e0 20 20 20 20 30 7d 2c 0a 0a 20 20 20 20 20 7b 20 0},.. {
2f3f0 22 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 74 65 "save_prng_state
2f400 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
2f410 20 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 74 65 save_prng_state
2f420 2c 20 20 20 20 30 20 7d 2c 0a 20 20 20 20 20 7b , 0 },. {
2f430 20 22 72 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73 "restore_prng_s
2f440 74 61 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 tate",
2f450 20 20 72 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73 restore_prng_s
2f460 74 61 74 65 2c 20 30 20 7d 2c 0a 20 20 20 20 20 tate, 0 },.
2f470 7b 20 22 72 65 73 65 74 5f 70 72 6e 67 5f 73 74 { "reset_prng_st
2f480 61 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 ate",
2f490 20 20 20 72 65 73 65 74 5f 70 72 6e 67 5f 73 74 reset_prng_st
2f4a0 61 74 65 2c 20 20 20 30 20 7d 2c 0a 20 20 20 20 ate, 0 },.
2f4b0 20 7b 20 22 64 61 74 61 62 61 73 65 5f 6e 65 76 { "database_nev
2f4c0 65 72 5f 63 6f 72 72 75 70 74 22 2c 20 20 20 20 er_corrupt",
2f4d0 20 20 20 20 64 61 74 61 62 61 73 65 5f 6e 65 76 database_nev
2f4e0 65 72 5f 63 6f 72 72 75 70 74 2c 20 30 7d 2c 0a er_corrupt, 0},.
2f4f0 20 20 20 20 20 7b 20 22 64 61 74 61 62 61 73 65 { "database
2f500 5f 6d 61 79 5f 62 65 5f 63 6f 72 72 75 70 74 22 _may_be_corrupt"
2f510 2c 20 20 20 20 20 20 20 64 61 74 61 62 61 73 65 , database
2f520 5f 6d 61 79 5f 62 65 5f 63 6f 72 72 75 70 74 2c _may_be_corrupt,
2f530 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 6f 70 74 0},. { "opt
2f540 69 6d 69 7a 61 74 69 6f 6e 5f 63 6f 6e 74 72 6f imization_contro
2f550 6c 22 2c 20 20 20 20 20 20 20 20 20 20 6f 70 74 l", opt
2f560 69 6d 69 7a 61 74 69 6f 6e 5f 63 6f 6e 74 72 6f imization_contro
2f570 6c 2c 30 7d 2c 0a 23 69 66 20 53 51 4c 49 54 45 l,0},.#if SQLITE
2f580 5f 4f 53 5f 57 49 4e 0a 20 20 20 20 20 7b 20 22 _OS_WIN. { "
2f590 6c 6f 63 6b 5f 77 69 6e 33 32 5f 66 69 6c 65 22 lock_win32_file"
2f5a0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2f5b0 77 69 6e 33 32 5f 66 69 6c 65 5f 6c 6f 63 6b 2c win32_file_lock,
2f5c0 20 20 20 20 30 20 7d 2c 0a 20 20 20 20 20 7b 20 0 },. {
2f5d0 22 65 78 69 73 74 73 5f 77 69 6e 33 32 5f 70 61 "exists_win32_pa
2f5e0 74 68 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 th",
2f5f0 20 77 69 6e 33 32 5f 65 78 69 73 74 73 5f 70 61 win32_exists_pa
2f600 74 68 2c 20 20 30 20 7d 2c 0a 20 20 20 20 20 7b th, 0 },. {
2f610 20 22 66 69 6e 64 5f 77 69 6e 33 32 5f 66 69 6c "find_win32_fil
2f620 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 e",
2f630 20 20 77 69 6e 33 32 5f 66 69 6e 64 5f 66 69 6c win32_find_fil
2f640 65 2c 20 20 20 20 30 20 7d 2c 0a 20 20 20 20 20 e, 0 },.
2f650 7b 20 22 64 65 6c 65 74 65 5f 77 69 6e 33 32 5f { "delete_win32_
2f660 66 69 6c 65 22 2c 20 20 20 20 20 20 20 20 20 20 file",
2f670 20 20 20 77 69 6e 33 32 5f 64 65 6c 65 74 65 5f win32_delete_
2f680 66 69 6c 65 2c 20 20 30 20 7d 2c 0a 20 20 20 20 file, 0 },.
2f690 20 7b 20 22 6d 61 6b 65 5f 77 69 6e 33 32 5f 64 { "make_win32_d
2f6a0 69 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 ir",
2f6b0 20 20 20 20 77 69 6e 33 32 5f 6d 6b 64 69 72 2c win32_mkdir,
2f6c0 20 20 20 20 20 20 20 20 30 20 7d 2c 0a 20 20 20 0 },.
2f6d0 20 20 7b 20 22 72 65 6d 6f 76 65 5f 77 69 6e 33 { "remove_win3
2f6e0 32 5f 64 69 72 22 2c 20 20 20 20 20 20 20 20 20 2_dir",
2f6f0 20 20 20 20 20 77 69 6e 33 32 5f 72 6d 64 69 72 win32_rmdir
2f700 2c 20 20 20 20 20 20 20 20 30 20 7d 2c 0a 23 65 , 0 },.#e
2f710 6e 64 69 66 0a 20 20 20 20 20 7b 20 22 74 63 6c ndif. { "tcl
2f720 5f 6f 62 6a 70 72 6f 63 22 2c 20 20 20 20 20 20 _objproc",
2f730 20 20 20 20 20 20 20 20 20 20 20 20 20 72 75 6e run
2f740 41 73 4f 62 6a 50 72 6f 63 2c 20 20 20 20 20 20 AsObjProc,
2f750 20 30 20 7d 2c 0a 0a 20 20 20 20 20 2f 2a 20 73 0 },.. /* s
2f760 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 2a 28 qlite3_column_*(
2f770 29 20 41 50 49 20 2a 2f 0a 20 20 20 20 20 7b 20 ) API */. {
2f780 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f "sqlite3_column_
2f790 63 6f 75 6e 74 22 2c 20 20 20 20 20 20 20 20 20 count",
2f7a0 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 test_column_cou
2f7b0 6e 74 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b nt ,0 },. {
2f7c0 20 22 73 71 6c 69 74 65 33 5f 64 61 74 61 5f 63 "sqlite3_data_c
2f7d0 6f 75 6e 74 22 2c 20 20 20 20 20 20 20 20 20 20 ount",
2f7e0 20 20 74 65 73 74 5f 64 61 74 61 5f 63 6f 75 6e test_data_coun
2f7f0 74 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 t ,0 },.
2f800 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d { "sqlite3_colum
2f810 6e 5f 74 79 70 65 22 2c 20 20 20 20 20 20 20 20 n_type",
2f820 20 20 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 74 test_column_t
2f830 79 70 65 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 ype ,0 },.
2f840 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 { "sqlite3_colu
2f850 6d 6e 5f 62 6c 6f 62 22 2c 20 20 20 20 20 20 20 mn_blob",
2f860 20 20 20 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f test_column_
2f870 62 6c 6f 62 20 20 20 2c 30 20 7d 2c 0a 20 20 20 blob ,0 },.
2f880 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c { "sqlite3_col
2f890 75 6d 6e 5f 64 6f 75 62 6c 65 22 2c 20 20 20 20 umn_double",
2f8a0 20 20 20 20 20 74 65 73 74 5f 63 6f 6c 75 6d 6e test_column
2f8b0 5f 64 6f 75 62 6c 65 20 2c 30 20 7d 2c 0a 20 20 _double ,0 },.
2f8c0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f { "sqlite3_co
2f8d0 6c 75 6d 6e 5f 69 6e 74 36 34 22 2c 20 20 20 20 lumn_int64",
2f8e0 20 20 20 20 20 20 74 65 73 74 5f 63 6f 6c 75 6d test_colum
2f8f0 6e 5f 69 6e 74 36 34 20 20 2c 30 20 7d 2c 0a 20 n_int64 ,0 },.
2f900 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 { "sqlite3_c
2f910 6f 6c 75 6d 6e 5f 74 65 78 74 22 2c 20 20 20 74 olumn_text", t
2f920 65 73 74 5f 73 74 6d 74 5f 75 74 66 38 2c 20 20 est_stmt_utf8,
2f930 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 (void*)sqlite3_c
2f940 6f 6c 75 6d 6e 5f 74 65 78 74 20 7d 2c 0a 20 20 olumn_text },.
2f950 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f { "sqlite3_co
2f960 6c 75 6d 6e 5f 6e 61 6d 65 22 2c 20 20 20 74 65 lumn_name", te
2f970 73 74 5f 73 74 6d 74 5f 75 74 66 38 2c 20 20 28 st_stmt_utf8, (
2f980 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f void*)sqlite3_co
2f990 6c 75 6d 6e 5f 6e 61 6d 65 20 7d 2c 0a 20 20 20 lumn_name },.
2f9a0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c { "sqlite3_col
2f9b0 75 6d 6e 5f 69 6e 74 22 2c 20 20 20 20 74 65 73 umn_int", tes
2f9c0 74 5f 73 74 6d 74 5f 69 6e 74 2c 20 20 20 28 76 t_stmt_int, (v
2f9d0 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c oid*)sqlite3_col
2f9e0 75 6d 6e 5f 69 6e 74 20 20 7d 2c 0a 20 20 20 20 umn_int },.
2f9f0 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 { "sqlite3_colu
2fa00 6d 6e 5f 62 79 74 65 73 22 2c 20 20 74 65 73 74 mn_bytes", test
2fa10 5f 73 74 6d 74 5f 69 6e 74 2c 20 20 20 28 76 6f _stmt_int, (vo
2fa20 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 id*)sqlite3_colu
2fa30 6d 6e 5f 62 79 74 65 73 7d 2c 0a 23 69 66 6e 64 mn_bytes},.#ifnd
2fa40 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 ef SQLITE_OMIT_D
2fa50 45 43 4c 54 59 50 45 0a 20 20 20 20 20 7b 20 22 ECLTYPE. { "
2fa60 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 sqlite3_column_d
2fa70 65 63 6c 74 79 70 65 22 2c 74 65 73 74 5f 73 74 ecltype",test_st
2fa80 6d 74 5f 75 74 66 38 2c 28 76 6f 69 64 2a 29 73 mt_utf8,(void*)s
2fa90 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 qlite3_column_de
2faa0 63 6c 74 79 70 65 7d 2c 0a 23 65 6e 64 69 66 0a cltype},.#endif.
2fab0 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 45 4e #ifdef SQLITE_EN
2fac0 41 42 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 41 ABLE_COLUMN_META
2fad0 44 41 54 41 0a 7b 20 22 73 71 6c 69 74 65 33 5f DATA.{ "sqlite3_
2fae0 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f column_database_
2faf0 6e 61 6d 65 22 2c 74 65 73 74 5f 73 74 6d 74 5f name",test_stmt_
2fb00 75 74 66 38 2c 28 76 6f 69 64 2a 29 73 71 6c 69 utf8,(void*)sqli
2fb10 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 te3_column_datab
2fb20 61 73 65 5f 6e 61 6d 65 7d 2c 0a 7b 20 22 73 71 ase_name},.{ "sq
2fb30 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 lite3_column_tab
2fb40 6c 65 5f 6e 61 6d 65 22 2c 74 65 73 74 5f 73 74 le_name",test_st
2fb50 6d 74 5f 75 74 66 38 2c 28 76 6f 69 64 2a 29 73 mt_utf8,(void*)s
2fb60 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 qlite3_column_ta
2fb70 62 6c 65 5f 6e 61 6d 65 7d 2c 0a 7b 20 22 73 71 ble_name},.{ "sq
2fb80 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 lite3_column_ori
2fb90 67 69 6e 5f 6e 61 6d 65 22 2c 74 65 73 74 5f 73 gin_name",test_s
2fba0 74 6d 74 5f 75 74 66 38 2c 28 76 6f 69 64 2a 29 tmt_utf8,(void*)
2fbb0 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f sqlite3_column_o
2fbc0 72 69 67 69 6e 5f 6e 61 6d 65 7d 2c 0a 23 65 6e rigin_name},.#en
2fbd0 64 69 66 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c dif..#ifndef SQL
2fbe0 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 ITE_OMIT_UTF16.
2fbf0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 { "sqlite3_c
2fc00 6f 6c 75 6d 6e 5f 62 79 74 65 73 31 36 22 2c 20 olumn_bytes16",
2fc10 74 65 73 74 5f 73 74 6d 74 5f 69 6e 74 2c 20 28 test_stmt_int, (
2fc20 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f void*)sqlite3_co
2fc30 6c 75 6d 6e 5f 62 79 74 65 73 31 36 20 7d 2c 0a lumn_bytes16 },.
2fc40 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
2fc50 63 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 22 2c 20 column_text16",
2fc60 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 test_stmt_utf16
2fc70 2c 20 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 , (void*)sqlite3
2fc80 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 7d 2c _column_text16},
2fc90 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
2fca0 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 31 36 22 2c _column_name16",
2fcb0 20 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 31 test_stmt_utf1
2fcc0 36 2c 20 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 6, (void*)sqlite
2fcd0 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 31 36 7d 3_column_name16}
2fce0 2c 0a 20 20 20 20 20 7b 20 22 61 64 64 5f 61 6c ,. { "add_al
2fcf0 69 67 6e 6d 65 6e 74 5f 74 65 73 74 5f 63 6f 6c ignment_test_col
2fd00 6c 61 74 69 6f 6e 73 22 2c 20 61 64 64 5f 61 6c lations", add_al
2fd10 69 67 6e 6d 65 6e 74 5f 74 65 73 74 5f 63 6f 6c ignment_test_col
2fd20 6c 61 74 69 6f 6e 73 2c 20 30 20 20 20 20 20 20 lations, 0
2fd30 7d 2c 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 },.#ifndef SQLIT
2fd40 45 5f 4f 4d 49 54 5f 44 45 43 4c 54 59 50 45 0a E_OMIT_DECLTYPE.
2fd50 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
2fd60 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 31 column_decltype1
2fd70 36 22 2c 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 6",test_stmt_utf
2fd80 31 36 2c 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 16,(void*)sqlite
2fd90 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 3_column_decltyp
2fda0 65 31 36 7d 2c 0a 23 65 6e 64 69 66 0a 23 69 66 e16},.#endif.#if
2fdb0 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c def SQLITE_ENABL
2fdc0 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 41 44 41 54 E_COLUMN_METADAT
2fdd0 41 0a 7b 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 A.{"sqlite3_colu
2fde0 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d 65 mn_database_name
2fdf0 31 36 22 2c 0a 20 20 74 65 73 74 5f 73 74 6d 74 16",. test_stmt
2fe00 5f 75 74 66 31 36 2c 20 28 76 6f 69 64 2a 29 73 _utf16, (void*)s
2fe10 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 qlite3_column_da
2fe20 74 61 62 61 73 65 5f 6e 61 6d 65 31 36 7d 2c 0a tabase_name16},.
2fe30 7b 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e {"sqlite3_column
2fe40 5f 74 61 62 6c 65 5f 6e 61 6d 65 31 36 22 2c 20 _table_name16",
2fe50 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c test_stmt_utf16,
2fe60 20 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f (void*)sqlite3_
2fe70 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 61 6d column_table_nam
2fe80 65 31 36 7d 2c 0a 7b 22 73 71 6c 69 74 65 33 5f e16},.{"sqlite3_
2fe90 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 column_origin_na
2fea0 6d 65 31 36 22 2c 20 74 65 73 74 5f 73 74 6d 74 me16", test_stmt
2feb0 5f 75 74 66 31 36 2c 20 28 76 6f 69 64 2a 29 73 _utf16, (void*)s
2fec0 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 qlite3_column_or
2fed0 69 67 69 6e 5f 6e 61 6d 65 31 36 7d 2c 0a 23 65 igin_name16},.#e
2fee0 6e 64 69 66 0a 23 65 6e 64 69 66 0a 20 20 20 20 ndif.#endif.
2fef0 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 72 65 61 { "sqlite3_crea
2ff00 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 22 te_collation_v2"
2ff10 2c 20 74 65 73 74 5f 63 72 65 61 74 65 5f 63 6f , test_create_co
2ff20 6c 6c 61 74 69 6f 6e 5f 76 32 2c 20 30 20 7d 2c llation_v2, 0 },
2ff30 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
2ff40 5f 67 6c 6f 62 61 6c 5f 72 65 63 6f 76 65 72 22 _global_recover"
2ff50 2c 20 20 20 20 20 74 65 73 74 5f 67 6c 6f 62 61 , test_globa
2ff60 6c 5f 72 65 63 6f 76 65 72 2c 20 30 20 20 20 7d l_recover, 0 }
2ff70 2c 0a 20 20 20 20 20 7b 20 22 77 6f 72 6b 69 6e ,. { "workin
2ff80 67 5f 36 34 62 69 74 5f 69 6e 74 22 2c 20 20 20 g_64bit_int",
2ff90 20 20 20 20 20 20 20 77 6f 72 6b 69 6e 67 5f 36 working_6
2ffa0 34 62 69 74 5f 69 6e 74 2c 20 20 20 30 20 20 20 4bit_int, 0
2ffb0 7d 2c 0a 20 20 20 20 20 7b 20 22 76 66 73 5f 75 },. { "vfs_u
2ffc0 6e 6c 69 6e 6b 5f 74 65 73 74 22 2c 20 20 20 20 nlink_test",
2ffd0 20 20 20 20 20 20 20 20 76 66 73 5f 75 6e 6c 69 vfs_unli
2ffe0 6e 6b 5f 74 65 73 74 2c 20 20 20 20 20 30 20 20 nk_test, 0
2fff0 20 7d 2c 0a 20 20 20 20 20 7b 20 22 76 66 73 5f },. { "vfs_
30000 69 6e 69 74 66 61 69 6c 5f 74 65 73 74 22 2c 20 initfail_test",
30010 20 20 20 20 20 20 20 20 20 76 66 73 5f 69 6e 69 vfs_ini
30020 74 66 61 69 6c 5f 74 65 73 74 2c 20 20 20 30 20 tfail_test, 0
30030 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 76 66 73 },. { "vfs
30040 5f 75 6e 72 65 67 69 73 74 65 72 5f 61 6c 6c 22 _unregister_all"
30050 2c 20 20 20 20 20 20 20 20 20 76 66 73 5f 75 6e , vfs_un
30060 72 65 67 69 73 74 65 72 5f 61 6c 6c 2c 20 20 30 register_all, 0
30070 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 76 66 },. { "vf
30080 73 5f 72 65 72 65 67 69 73 74 65 72 5f 61 6c 6c s_reregister_all
30090 22 2c 20 20 20 20 20 20 20 20 20 76 66 73 5f 72 ", vfs_r
300a0 65 72 65 67 69 73 74 65 72 5f 61 6c 6c 2c 20 20 eregister_all,
300b0 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 66 0 },. { "f
300c0 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 74 65 73 74 ile_control_test
300d0 22 2c 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 ", file
300e0 5f 63 6f 6e 74 72 6f 6c 5f 74 65 73 74 2c 20 20 _control_test,
300f0 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 0 },. { "
30100 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c 61 73 file_control_las
30110 74 65 72 72 6e 6f 5f 74 65 73 74 22 2c 20 66 69 terrno_test", fi
30120 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c 61 73 74 65 le_control_laste
30130 72 72 6e 6f 5f 74 65 73 74 2c 20 20 30 20 20 20 rrno_test, 0
30140 7d 2c 0a 20 20 20 20 20 7b 20 22 66 69 6c 65 5f },. { "file_
30150 63 6f 6e 74 72 6f 6c 5f 6c 6f 63 6b 70 72 6f 78 control_lockprox
30160 79 5f 74 65 73 74 22 2c 20 66 69 6c 65 5f 63 6f y_test", file_co
30170 6e 74 72 6f 6c 5f 6c 6f 63 6b 70 72 6f 78 79 5f ntrol_lockproxy_
30180 74 65 73 74 2c 20 20 30 20 20 20 7d 2c 0a 20 20 test, 0 },.
30190 20 20 20 7b 20 22 66 69 6c 65 5f 63 6f 6e 74 72 { "file_contr
301a0 6f 6c 5f 63 68 75 6e 6b 73 69 7a 65 5f 74 65 73 ol_chunksize_tes
301b0 74 22 2c 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c t", file_control
301c0 5f 63 68 75 6e 6b 73 69 7a 65 5f 74 65 73 74 2c _chunksize_test,
301d0 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 0 },. {
301e0 22 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 73 69 "file_control_si
301f0 7a 65 68 69 6e 74 5f 74 65 73 74 22 2c 20 20 66 zehint_test", f
30200 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 73 69 7a 65 ile_control_size
30210 68 69 6e 74 5f 74 65 73 74 2c 20 20 20 30 20 20 hint_test, 0
30220 20 7d 2c 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f },.#if SQLITE_O
30230 53 5f 57 49 4e 0a 20 20 20 20 20 7b 20 22 66 69 S_WIN. { "fi
30240 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 77 69 6e 33 32 le_control_win32
30250 5f 61 76 5f 72 65 74 72 79 22 2c 20 66 69 6c 65 _av_retry", file
30260 5f 63 6f 6e 74 72 6f 6c 5f 77 69 6e 33 32 5f 61 _control_win32_a
30270 76 5f 72 65 74 72 79 2c 20 20 30 20 20 20 7d 2c v_retry, 0 },
30280 0a 20 20 20 20 20 7b 20 22 66 69 6c 65 5f 63 6f . { "file_co
30290 6e 74 72 6f 6c 5f 77 69 6e 33 32 5f 73 65 74 5f ntrol_win32_set_
302a0 68 61 6e 64 6c 65 22 2c 20 66 69 6c 65 5f 63 6f handle", file_co
302b0 6e 74 72 6f 6c 5f 77 69 6e 33 32 5f 73 65 74 5f ntrol_win32_set_
302c0 68 61 6e 64 6c 65 2c 20 30 20 20 7d 2c 0a 23 65 handle, 0 },.#e
302d0 6e 64 69 66 0a 20 20 20 20 20 7b 20 22 66 69 6c ndif. { "fil
302e0 65 5f 63 6f 6e 74 72 6f 6c 5f 70 65 72 73 69 73 e_control_persis
302f0 74 5f 77 61 6c 22 2c 20 20 20 20 66 69 6c 65 5f t_wal", file_
30300 63 6f 6e 74 72 6f 6c 5f 70 65 72 73 69 73 74 5f control_persist_
30310 77 61 6c 2c 20 20 20 20 20 30 20 20 20 7d 2c 0a wal, 0 },.
30320 20 20 20 20 20 7b 20 22 66 69 6c 65 5f 63 6f 6e { "file_con
30330 74 72 6f 6c 5f 70 6f 77 65 72 73 61 66 65 5f 6f trol_powersafe_o
30340 76 65 72 77 72 69 74 65 22 2c 66 69 6c 65 5f 63 verwrite",file_c
30350 6f 6e 74 72 6f 6c 5f 70 6f 77 65 72 73 61 66 65 ontrol_powersafe
30360 5f 6f 76 65 72 77 72 69 74 65 2c 30 7d 2c 0a 20 _overwrite,0},.
30370 20 20 20 20 7b 20 22 66 69 6c 65 5f 63 6f 6e 74 { "file_cont
30380 72 6f 6c 5f 76 66 73 6e 61 6d 65 22 2c 20 20 20 rol_vfsname",
30390 20 20 20 20 20 66 69 6c 65 5f 63 6f 6e 74 72 6f file_contro
303a0 6c 5f 76 66 73 6e 61 6d 65 2c 20 20 20 20 20 20 l_vfsname,
303b0 20 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 0 },. {
303c0 20 22 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 74 "file_control_t
303d0 65 6d 70 66 69 6c 65 6e 61 6d 65 22 2c 20 20 20 empfilename",
303e0 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 74 65 6d file_control_tem
303f0 70 66 69 6c 65 6e 61 6d 65 2c 20 20 20 20 30 20 pfilename, 0
30400 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c },. { "sql
30410 69 74 65 33 5f 76 66 73 5f 6c 69 73 74 22 2c 20 ite3_vfs_list",
30420 20 20 20 20 20 20 20 20 20 20 76 66 73 5f 6c 69 vfs_li
30430 73 74 2c 20 20 20 20 20 30 20 20 20 7d 2c 0a 20 st, 0 },.
30440 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 { "sqlite3_c
30450 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 5f 76 reate_function_v
30460 32 22 2c 20 74 65 73 74 5f 63 72 65 61 74 65 5f 2", test_create_
30470 66 75 6e 63 74 69 6f 6e 5f 76 32 2c 20 30 20 7d function_v2, 0 }
30480 2c 0a 0a 20 20 20 20 20 2f 2a 20 46 75 6e 63 74 ,.. /* Funct
30490 69 6f 6e 73 20 66 72 6f 6d 20 6f 73 2e 68 20 2a ions from os.h *
304a0 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 /.#ifndef SQLITE
304b0 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 20 20 _OMIT_UTF16.
304c0 20 7b 20 22 61 64 64 5f 74 65 73 74 5f 63 6f 6c { "add_test_col
304d0 6c 61 74 65 22 2c 20 20 20 20 20 20 20 20 74 65 late", te
304e0 73 74 5f 63 6f 6c 6c 61 74 65 2c 20 30 20 20 20 st_collate, 0
304f0 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
30500 20 7b 20 22 61 64 64 5f 74 65 73 74 5f 63 6f 6c { "add_test_col
30510 6c 61 74 65 5f 6e 65 65 64 65 64 22 2c 20 74 65 late_needed", te
30520 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 st_collate_neede
30530 64 2c 20 30 20 20 20 20 20 7d 2c 0a 20 20 20 20 d, 0 },.
30540 20 7b 20 22 61 64 64 5f 74 65 73 74 5f 66 75 6e { "add_test_fun
30550 63 74 69 6f 6e 22 2c 20 20 20 20 20 20 20 74 65 ction", te
30560 73 74 5f 66 75 6e 63 74 69 6f 6e 2c 20 30 20 20 st_function, 0
30570 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
30580 20 7b 20 22 61 64 64 5f 74 65 73 74 5f 75 74 66 { "add_test_utf
30590 31 36 62 69 6e 5f 63 6f 6c 6c 61 74 65 22 2c 20 16bin_collate",
305a0 20 20 20 74 65 73 74 5f 75 74 66 31 36 62 69 6e test_utf16bin
305b0 5f 63 6f 6c 6c 61 74 65 2c 20 30 20 20 20 20 20 _collate, 0
305c0 20 20 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 },.#endif.
305d0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 74 65 73 { "sqlite3_tes
305e0 74 5f 65 72 72 73 74 72 22 2c 20 20 20 20 20 74 t_errstr", t
305f0 65 73 74 5f 65 72 72 73 74 72 2c 20 30 20 20 20 est_errstr, 0
30600 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 },.
30610 20 20 7b 20 22 74 63 6c 5f 76 61 72 69 61 62 6c { "tcl_variabl
30620 65 5f 74 79 70 65 22 2c 20 20 20 20 20 20 20 74 e_type", t
30630 63 6c 5f 76 61 72 69 61 62 6c 65 5f 74 79 70 65 cl_variable_type
30640 2c 20 30 20 20 20 20 20 20 20 7d 2c 0a 23 69 66 , 0 },.#if
30650 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 ndef SQLITE_OMIT
30660 5f 53 48 41 52 45 44 5f 43 41 43 48 45 0a 20 20 _SHARED_CACHE.
30670 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 6e { "sqlite3_en
30680 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68 able_shared_cach
30690 65 22 2c 20 74 65 73 74 5f 65 6e 61 62 6c 65 5f e", test_enable_
306a0 73 68 61 72 65 64 2c 20 30 20 20 7d 2c 0a 20 20 shared, 0 },.
306b0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 68 { "sqlite3_sh
306c0 61 72 65 64 5f 63 61 63 68 65 5f 72 65 70 6f 72 ared_cache_repor
306d0 74 22 2c 20 73 71 6c 69 74 65 33 42 74 72 65 65 t", sqlite3Btree
306e0 53 68 61 72 65 64 43 61 63 68 65 52 65 70 6f 72 SharedCacheRepor
306f0 74 2c 20 30 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 t, 0},.#endif.
30700 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6c 69 { "sqlite3_li
30710 62 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 22 bversion_number"
30720 2c 20 74 65 73 74 5f 6c 69 62 76 65 72 73 69 6f , test_libversio
30730 6e 5f 6e 75 6d 62 65 72 2c 20 30 20 20 7d 2c 0a n_number, 0 },.
30740 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 45 4e #ifdef SQLITE_EN
30750 41 42 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 41 ABLE_COLUMN_META
30760 44 41 54 41 0a 20 20 20 20 20 7b 20 22 73 71 6c DATA. { "sql
30770 69 74 65 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d ite3_table_colum
30780 6e 5f 6d 65 74 61 64 61 74 61 22 2c 20 74 65 73 n_metadata", tes
30790 74 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d t_table_column_m
307a0 65 74 61 64 61 74 61 2c 20 30 20 20 7d 2c 0a 23 etadata, 0 },.#
307b0 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 53 51 endif.#ifndef SQ
307c0 4c 49 54 45 5f 4f 4d 49 54 5f 49 4e 43 52 42 4c LITE_OMIT_INCRBL
307d0 4f 42 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 OB. { "sqlit
307e0 65 33 5f 62 6c 6f 62 5f 72 65 6f 70 65 6e 22 2c e3_blob_reopen",
307f0 20 74 65 73 74 5f 62 6c 6f 62 5f 72 65 6f 70 65 test_blob_reope
30800 6e 2c 20 30 20 20 7d 2c 0a 23 65 6e 64 69 66 0a n, 0 },.#endif.
30810 20 20 20 20 20 7b 20 22 70 63 61 63 68 65 5f 73 { "pcache_s
30820 74 61 74 73 22 2c 20 20 20 20 20 20 20 74 65 73 tats", tes
30830 74 5f 70 63 61 63 68 65 5f 73 74 61 74 73 2c 20 t_pcache_stats,
30840 30 20 20 7d 2c 0a 23 69 66 64 65 66 20 53 51 4c 0 },.#ifdef SQL
30850 49 54 45 5f 45 4e 41 42 4c 45 5f 55 4e 4c 4f 43 ITE_ENABLE_UNLOC
30860 4b 5f 4e 4f 54 49 46 59 0a 20 20 20 20 20 7b 20 K_NOTIFY. {
30870 22 73 71 6c 69 74 65 33 5f 75 6e 6c 6f 63 6b 5f "sqlite3_unlock_
30880 6e 6f 74 69 66 79 22 2c 20 74 65 73 74 5f 75 6e notify", test_un
30890 6c 6f 63 6b 5f 6e 6f 74 69 66 79 2c 20 30 20 20 lock_notify, 0
308a0 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 7b },.#endif. {
308b0 20 22 73 71 6c 69 74 65 33 5f 77 61 6c 5f 63 68 "sqlite3_wal_ch
308c0 65 63 6b 70 6f 69 6e 74 22 2c 20 20 20 74 65 73 eckpoint", tes
308d0 74 5f 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 t_wal_checkpoint
308e0 2c 20 30 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 , 0 },. { "
308f0 73 71 6c 69 74 65 33 5f 77 61 6c 5f 63 68 65 63 sqlite3_wal_chec
30900 6b 70 6f 69 6e 74 5f 76 32 22 2c 74 65 73 74 5f kpoint_v2",test_
30910 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 5f 76 wal_checkpoint_v
30920 32 2c 20 30 20 20 7d 2c 0a 20 20 20 20 20 7b 20 2, 0 },. {
30930 22 74 65 73 74 5f 73 71 6c 69 74 65 33 5f 6c 6f "test_sqlite3_lo
30940 67 22 2c 20 20 20 20 20 20 20 20 20 74 65 73 74 g", test
30950 5f 73 71 6c 69 74 65 33 5f 6c 6f 67 2c 20 30 20 _sqlite3_log, 0
30960 20 7d 2c 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 },.#ifndef SQLI
30970 54 45 5f 4f 4d 49 54 5f 45 58 50 4c 41 49 4e 0a TE_OMIT_EXPLAIN.
30980 20 20 20 20 20 7b 20 22 70 72 69 6e 74 5f 65 78 { "print_ex
30990 70 6c 61 69 6e 5f 71 75 65 72 79 5f 70 6c 61 6e plain_query_plan
309a0 22 2c 20 74 65 73 74 5f 70 72 69 6e 74 5f 65 71 ", test_print_eq
309b0 70 2c 20 30 20 20 7d 2c 0a 23 65 6e 64 69 66 0a p, 0 },.#endif.
309c0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
309d0 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 22 2c 20 74 test_control", t
309e0 65 73 74 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c est_test_control
309f0 20 7d 2c 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f },.#if SQLITE_O
30a00 53 5f 55 4e 49 58 0a 20 20 20 20 20 7b 20 22 67 S_UNIX. { "g
30a10 65 74 72 75 73 61 67 65 22 2c 20 74 65 73 74 5f etrusage", test_
30a20 67 65 74 72 75 73 61 67 65 20 7d 2c 0a 23 65 6e getrusage },.#en
30a30 64 69 66 0a 20 20 20 20 20 7b 20 22 6c 6f 61 64 dif. { "load
30a40 5f 73 74 61 74 69 63 5f 65 78 74 65 6e 73 69 6f _static_extensio
30a50 6e 22 2c 20 74 63 6c 4c 6f 61 64 53 74 61 74 69 n", tclLoadStati
30a60 63 45 78 74 65 6e 73 69 6f 6e 43 6d 64 20 7d 2c cExtensionCmd },
30a70 0a 20 20 20 20 20 7b 20 22 73 6f 72 74 65 72 5f . { "sorter_
30a80 74 65 73 74 5f 66 61 6b 65 68 65 61 70 22 2c 20 test_fakeheap",
30a90 73 6f 72 74 65 72 5f 74 65 73 74 5f 66 61 6b 65 sorter_test_fake
30aa0 68 65 61 70 20 7d 2c 0a 20 20 20 20 20 7b 20 22 heap },. { "
30ab0 73 6f 72 74 65 72 5f 74 65 73 74 5f 73 6f 72 74 sorter_test_sort
30ac0 34 5f 68 65 6c 70 65 72 22 2c 20 73 6f 72 74 65 4_helper", sorte
30ad0 72 5f 74 65 73 74 5f 73 6f 72 74 34 5f 68 65 6c r_test_sort4_hel
30ae0 70 65 72 20 7d 2c 0a 23 69 66 64 65 66 20 53 51 per },.#ifdef SQ
30af0 4c 49 54 45 5f 55 53 45 52 5f 41 55 54 48 45 4e LITE_USER_AUTHEN
30b00 54 49 43 41 54 49 4f 4e 0a 20 20 20 20 20 7b 20 TICATION. {
30b10 22 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 61 75 "sqlite3_user_au
30b20 74 68 65 6e 74 69 63 61 74 65 22 2c 20 74 65 73 thenticate", tes
30b30 74 5f 75 73 65 72 5f 61 75 74 68 65 6e 74 69 63 t_user_authentic
30b40 61 74 65 2c 20 30 20 7d 2c 0a 20 20 20 20 20 7b ate, 0 },. {
30b50 20 22 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 61 "sqlite3_user_a
30b60 64 64 22 2c 20 20 20 20 20 20 20 20 20 20 74 65 dd", te
30b70 73 74 5f 75 73 65 72 5f 61 64 64 2c 20 20 20 20 st_user_add,
30b80 20 20 20 20 20 20 30 20 7d 2c 0a 20 20 20 20 20 0 },.
30b90 7b 20 22 73 71 6c 69 74 65 33 5f 75 73 65 72 5f { "sqlite3_user_
30ba0 63 68 61 6e 67 65 22 2c 20 20 20 20 20 20 20 74 change", t
30bb0 65 73 74 5f 75 73 65 72 5f 63 68 61 6e 67 65 2c est_user_change,
30bc0 20 20 20 20 20 20 20 30 20 7d 2c 0a 20 20 20 20 0 },.
30bd0 20 7b 20 22 73 71 6c 69 74 65 33 5f 75 73 65 72 { "sqlite3_user
30be0 5f 64 65 6c 65 74 65 22 2c 20 20 20 20 20 20 20 _delete",
30bf0 74 65 73 74 5f 75 73 65 72 5f 64 65 6c 65 74 65 test_user_delete
30c00 2c 20 20 20 20 20 20 20 30 20 7d 2c 0a 23 65 6e , 0 },.#en
30c10 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 dif..#ifdef SQLI
30c20 54 45 5f 45 4e 41 42 4c 45 5f 53 54 4d 54 5f 53 TE_ENABLE_STMT_S
30c30 43 41 4e 53 54 41 54 55 53 0a 20 20 20 20 20 7b CANSTATUS. {
30c40 20 22 73 71 6c 69 74 65 33 5f 73 74 6d 74 5f 73 "sqlite3_stmt_s
30c50 63 61 6e 73 74 61 74 75 73 22 2c 20 20 20 20 20 canstatus",
30c60 20 20 74 65 73 74 5f 73 74 6d 74 5f 73 63 61 6e test_stmt_scan
30c70 73 74 61 74 75 73 2c 20 20 20 30 20 7d 2c 0a 20 status, 0 },.
30c80 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 { "sqlite3_s
30c90 74 6d 74 5f 73 63 61 6e 73 74 61 74 75 73 5f 72 tmt_scanstatus_r
30ca0 65 73 65 74 22 2c 20 74 65 73 74 5f 73 74 6d 74 eset", test_stmt
30cb0 5f 73 63 61 6e 73 74 61 74 75 73 5f 72 65 73 65 _scanstatus_rese
30cc0 74 2c 20 20 20 30 20 7d 2c 0a 23 65 6e 64 69 66 t, 0 },.#endif
30cd0 0a 20 20 7d 3b 0a 0a 20 20 73 74 61 74 69 63 20 . };.. static
30ce0 69 6e 74 20 62 69 74 6d 61 73 6b 5f 73 69 7a 65 int bitmask_size
30cf0 20 3d 20 73 69 7a 65 6f 66 28 42 69 74 6d 61 73 = sizeof(Bitmas
30d00 6b 29 2a 38 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 k)*8;. int i;.
30d10 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 extern int sqli
30d20 74 65 33 5f 73 79 6e 63 5f 63 6f 75 6e 74 2c 20 te3_sync_count,
30d30 73 71 6c 69 74 65 33 5f 66 75 6c 6c 73 79 6e 63 sqlite3_fullsync
30d40 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 6e _count;. extern
30d50 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6f 70 65 int sqlite3_ope
30d60 6e 74 65 6d 70 5f 63 6f 75 6e 74 3b 0a 20 20 65 ntemp_count;. e
30d70 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 xtern int sqlite
30d80 33 5f 6c 69 6b 65 5f 63 6f 75 6e 74 3b 0a 20 20 3_like_count;.
30d90 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
30da0 65 33 5f 78 66 65 72 6f 70 74 5f 63 6f 75 6e 74 e3_xferopt_count
30db0 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 ;. extern int s
30dc0 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 72 65 61 qlite3_pager_rea
30dd0 64 64 62 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 ddb_count;. ext
30de0 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
30df0 70 61 67 65 72 5f 77 72 69 74 65 64 62 5f 63 6f pager_writedb_co
30e00 75 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e unt;. extern in
30e10 74 20 73 71 6c 69 74 65 33 5f 70 61 67 65 72 5f t sqlite3_pager_
30e20 77 72 69 74 65 6a 5f 63 6f 75 6e 74 3b 0a 23 69 writej_count;.#i
30e30 66 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 0a f SQLITE_OS_WIN.
30e40 20 20 65 78 74 65 72 6e 20 4c 4f 4e 47 20 76 6f extern LONG vo
30e50 6c 61 74 69 6c 65 20 73 71 6c 69 74 65 33 5f 6f latile sqlite3_o
30e60 73 5f 74 79 70 65 3b 0a 23 65 6e 64 69 66 0a 23 s_type;.#endif.#
30e70 69 66 64 65 66 20 53 51 4c 49 54 45 5f 44 45 42 ifdef SQLITE_DEB
30e80 55 47 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 UG. extern int
30e90 73 71 6c 69 74 65 33 57 68 65 72 65 54 72 61 63 sqlite3WhereTrac
30ea0 65 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 e;. extern int
30eb0 73 71 6c 69 74 65 33 4f 53 54 72 61 63 65 3b 0a sqlite3OSTrace;.
30ec0 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c extern int sql
30ed0 69 74 65 33 57 61 6c 54 72 61 63 65 3b 0a 23 65 ite3WalTrace;.#e
30ee0 6e 64 69 66 0a 23 69 66 64 65 66 20 53 51 4c 49 ndif.#ifdef SQLI
30ef0 54 45 5f 54 45 53 54 0a 23 69 66 64 65 66 20 53 TE_TEST.#ifdef S
30f00 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 46 54 53 QLITE_ENABLE_FTS
30f10 33 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 3. extern int s
30f20 71 6c 69 74 65 33 5f 66 74 73 33 5f 65 6e 61 62 qlite3_fts3_enab
30f30 6c 65 5f 70 61 72 65 6e 74 68 65 73 65 73 3b 0a le_parentheses;.
30f40 23 65 6e 64 69 66 0a 23 65 6e 64 69 66 0a 0a 20 #endif.#endif..
30f50 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 for(i=0; i<size
30f60 6f 66 28 61 43 6d 64 29 2f 73 69 7a 65 6f 66 28 of(aCmd)/sizeof(
30f70 61 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a aCmd[0]); i++){.
30f80 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f Tcl_CreateCo
30f90 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61 43 mmand(interp, aC
30fa0 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 43 6d md[i].zName, aCm
30fb0 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 30 2c 20 30 d[i].xProc, 0, 0
30fc0 29 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 );. }. for(i=0
30fd0 3b 20 69 3c 73 69 7a 65 6f 66 28 61 4f 62 6a 43 ; i<sizeof(aObjC
30fe0 6d 64 29 2f 73 69 7a 65 6f 66 28 61 4f 62 6a 43 md)/sizeof(aObjC
30ff0 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 md[0]); i++){.
31000 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
31010 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61 ommand(interp, a
31020 4f 62 6a 43 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c ObjCmd[i].zName,
31030 20 0a 20 20 20 20 20 20 20 20 61 4f 62 6a 43 6d . aObjCm
31040 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 61 4f 62 6a d[i].xProc, aObj
31050 43 6d 64 5b 69 5d 2e 63 6c 69 65 6e 74 44 61 74 Cmd[i].clientDat
31060 61 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 54 63 6c a, 0);. }. Tcl
31070 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c _LinkVar(interp,
31080 20 22 73 71 6c 69 74 65 5f 73 65 61 72 63 68 5f "sqlite_search_
31090 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 count", . (
310a0 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 73 char*)&sqlite3_s
310b0 65 61 72 63 68 5f 63 6f 75 6e 74 2c 20 54 43 4c earch_count, TCL
310c0 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 _LINK_INT);. Tc
310d0 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
310e0 2c 20 22 73 71 6c 69 74 65 5f 66 6f 75 6e 64 5f , "sqlite_found_
310f0 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 count", . (
31100 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 66 char*)&sqlite3_f
31110 6f 75 6e 64 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f ound_count, TCL_
31120 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c LINK_INT);. Tcl
31130 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c _LinkVar(interp,
31140 20 22 73 71 6c 69 74 65 5f 73 6f 72 74 5f 63 6f "sqlite_sort_co
31150 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 63 68 unt", . (ch
31160 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 73 6f 72 ar*)&sqlite3_sor
31170 74 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e t_count, TCL_LIN
31180 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 K_INT);. Tcl_Li
31190 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
311a0 71 6c 69 74 65 33 5f 6d 61 78 5f 62 6c 6f 62 73 qlite3_max_blobs
311b0 69 7a 65 22 2c 20 0a 20 20 20 20 20 20 28 63 68 ize", . (ch
311c0 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6d 61 78 ar*)&sqlite3_max
311d0 5f 62 6c 6f 62 73 69 7a 65 2c 20 54 43 4c 5f 4c _blobsize, TCL_L
311e0 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f INK_INT);. Tcl_
311f0 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 LinkVar(interp,
31200 22 73 71 6c 69 74 65 5f 6c 69 6b 65 5f 63 6f 75 "sqlite_like_cou
31210 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 63 68 61 nt", . (cha
31220 72 2a 29 26 73 71 6c 69 74 65 33 5f 6c 69 6b 65 r*)&sqlite3_like
31230 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b _count, TCL_LINK
31240 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e _INT);. Tcl_Lin
31250 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 kVar(interp, "sq
31260 6c 69 74 65 5f 69 6e 74 65 72 72 75 70 74 5f 63 lite_interrupt_c
31270 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 63 ount", . (c
31280 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 69 6e har*)&sqlite3_in
31290 74 65 72 72 75 70 74 5f 63 6f 75 6e 74 2c 20 54 terrupt_count, T
312a0 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 CL_LINK_INT);.
312b0 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 Tcl_LinkVar(inte
312c0 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 65 6e rp, "sqlite_open
312d0 5f 66 69 6c 65 5f 63 6f 75 6e 74 22 2c 20 0a 20 _file_count", .
312e0 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c (char*)&sql
312f0 69 74 65 33 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 ite3_open_file_c
31300 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 ount, TCL_LINK_I
31310 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 NT);. Tcl_LinkV
31320 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 ar(interp, "sqli
31330 74 65 5f 63 75 72 72 65 6e 74 5f 74 69 6d 65 22 te_current_time"
31340 2c 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 , . (char*)
31350 26 73 71 6c 69 74 65 33 5f 63 75 72 72 65 6e 74 &sqlite3_current
31360 5f 74 69 6d 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f _time, TCL_LINK_
31370 49 4e 54 29 3b 0a 23 69 66 20 53 51 4c 49 54 45 INT);.#if SQLITE
31380 5f 4f 53 5f 55 4e 49 58 20 26 26 20 64 65 66 69 _OS_UNIX && defi
31390 6e 65 64 28 5f 5f 41 50 50 4c 45 5f 5f 29 20 26 ned(__APPLE__) &
313a0 26 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f & SQLITE_ENABLE_
313b0 4c 4f 43 4b 49 4e 47 5f 53 54 59 4c 45 0a 20 20 LOCKING_STYLE.
313c0 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 Tcl_LinkVar(inte
313d0 72 70 2c 20 22 73 71 6c 69 74 65 5f 68 6f 73 74 rp, "sqlite_host
313e0 69 64 5f 6e 75 6d 22 2c 20 0a 20 20 20 20 20 20 id_num", .
313f0 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f (char*)&sqlite3_
31400 68 6f 73 74 69 64 5f 6e 75 6d 2c 20 54 43 4c 5f hostid_num, TCL_
31410 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 LINK_INT);.#endi
31420 66 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 f. Tcl_LinkVar(
31430 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 33 interp, "sqlite3
31440 5f 78 66 65 72 6f 70 74 5f 63 6f 75 6e 74 22 2c _xferopt_count",
31450 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 . (char*)&s
31460 71 6c 69 74 65 33 5f 78 66 65 72 6f 70 74 5f 63 qlite3_xferopt_c
31470 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 ount, TCL_LINK_I
31480 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 NT);. Tcl_LinkV
31490 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 ar(interp, "sqli
314a0 74 65 33 5f 70 61 67 65 72 5f 72 65 61 64 64 62 te3_pager_readdb
314b0 5f 63 6f 75 6e 74 22 2c 0a 20 20 20 20 20 20 28 _count",. (
314c0 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 70 char*)&sqlite3_p
314d0 61 67 65 72 5f 72 65 61 64 64 62 5f 63 6f 75 6e ager_readdb_coun
314e0 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 t, TCL_LINK_INT)
314f0 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 ;. Tcl_LinkVar(
31500 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 33 interp, "sqlite3
31510 5f 70 61 67 65 72 5f 77 72 69 74 65 64 62 5f 63 _pager_writedb_c
31520 6f 75 6e 74 22 2c 0a 20 20 20 20 20 20 28 63 68 ount",. (ch
31530 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 70 61 67 ar*)&sqlite3_pag
31540 65 72 5f 77 72 69 74 65 64 62 5f 63 6f 75 6e 74 er_writedb_count
31550 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b , TCL_LINK_INT);
31560 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
31570 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 33 5f nterp, "sqlite3_
31580 70 61 67 65 72 5f 77 72 69 74 65 6a 5f 63 6f 75 pager_writej_cou
31590 6e 74 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 nt",. (char
315a0 2a 29 26 73 71 6c 69 74 65 33 5f 70 61 67 65 72 *)&sqlite3_pager
315b0 5f 77 72 69 74 65 6a 5f 63 6f 75 6e 74 2c 20 54 _writej_count, T
315c0 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 69 CL_LINK_INT);.#i
315d0 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
315e0 54 5f 55 54 46 31 36 0a 20 20 54 63 6c 5f 4c 69 T_UTF16. Tcl_Li
315f0 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 75 nkVar(interp, "u
31600 6e 61 6c 69 67 6e 65 64 5f 73 74 72 69 6e 67 5f naligned_string_
31610 63 6f 75 6e 74 65 72 22 2c 0a 20 20 20 20 20 20 counter",.
31620 28 63 68 61 72 2a 29 26 75 6e 61 6c 69 67 6e 65 (char*)&unaligne
31630 64 5f 73 74 72 69 6e 67 5f 63 6f 75 6e 74 65 72 d_string_counter
31640 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b , TCL_LINK_INT);
31650 0a 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 .#endif.#ifndef
31660 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 SQLITE_OMIT_UTF1
31670 36 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 6. Tcl_LinkVar(
31680 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
31690 6c 61 73 74 5f 6e 65 65 64 65 64 5f 63 6f 6c 6c last_needed_coll
316a0 61 74 69 6f 6e 22 2c 0a 20 20 20 20 20 20 28 63 ation",. (c
316b0 68 61 72 2a 29 26 70 7a 4e 65 65 64 65 64 43 6f har*)&pzNeededCo
316c0 6c 6c 61 74 69 6f 6e 2c 20 54 43 4c 5f 4c 49 4e llation, TCL_LIN
316d0 4b 5f 53 54 52 49 4e 47 7c 54 43 4c 5f 4c 49 4e K_STRING|TCL_LIN
316e0 4b 5f 52 45 41 44 5f 4f 4e 4c 59 29 3b 0a 23 65 K_READ_ONLY);.#e
316f0 6e 64 69 66 0a 23 69 66 20 53 51 4c 49 54 45 5f ndif.#if SQLITE_
31700 4f 53 5f 57 49 4e 0a 20 20 54 63 6c 5f 4c 69 6e OS_WIN. Tcl_Lin
31710 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 kVar(interp, "sq
31720 6c 69 74 65 5f 6f 73 5f 74 79 70 65 22 2c 0a 20 lite_os_type",.
31730 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c (char*)&sql
31740 69 74 65 33 5f 6f 73 5f 74 79 70 65 2c 20 54 43 ite3_os_type, TC
31750 4c 5f 4c 49 4e 4b 5f 4c 4f 4e 47 29 3b 0a 23 65 L_LINK_LONG);.#e
31760 6e 64 69 66 0a 23 69 66 64 65 66 20 53 51 4c 49 ndif.#ifdef SQLI
31770 54 45 5f 54 45 53 54 0a 20 20 7b 0a 20 20 20 20 TE_TEST. {.
31780 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 static const cha
31790 72 20 2a 71 75 65 72 79 5f 70 6c 61 6e 20 3d 20 r *query_plan =
317a0 22 2a 2a 2a 20 4f 42 53 4f 4c 45 54 45 20 56 41 "*** OBSOLETE VA
317b0 52 49 41 42 4c 45 20 2a 2a 2a 22 3b 0a 20 20 20 RIABLE ***";.
317c0 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
317d0 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 71 75 65 erp, "sqlite_que
317e0 72 79 5f 70 6c 61 6e 22 2c 0a 20 20 20 20 20 20 ry_plan",.
317f0 20 28 63 68 61 72 2a 29 26 71 75 65 72 79 5f 70 (char*)&query_p
31800 6c 61 6e 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 53 54 lan, TCL_LINK_ST
31810 52 49 4e 47 7c 54 43 4c 5f 4c 49 4e 4b 5f 52 45 RING|TCL_LINK_RE
31820 41 44 5f 4f 4e 4c 59 29 3b 0a 20 20 7d 0a 23 65 AD_ONLY);. }.#e
31830 6e 64 69 66 0a 23 69 66 64 65 66 20 53 51 4c 49 ndif.#ifdef SQLI
31840 54 45 5f 44 45 42 55 47 0a 20 20 54 63 6c 5f 4c TE_DEBUG. Tcl_L
31850 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 inkVar(interp, "
31860 73 71 6c 69 74 65 5f 77 68 65 72 65 5f 74 72 61 sqlite_where_tra
31870 63 65 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 ce",. (char
31880 2a 29 26 73 71 6c 69 74 65 33 57 68 65 72 65 54 *)&sqlite3WhereT
31890 72 61 63 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 race, TCL_LINK_I
318a0 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 NT);. Tcl_LinkV
318b0 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 ar(interp, "sqli
318c0 74 65 5f 6f 73 5f 74 72 61 63 65 22 2c 0a 20 20 te_os_trace",.
318d0 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 (char*)&sqli
318e0 74 65 33 4f 53 54 72 61 63 65 2c 20 54 43 4c 5f te3OSTrace, TCL_
318f0 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 69 66 6e 64 LINK_INT);.#ifnd
31900 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 57 ef SQLITE_OMIT_W
31910 41 4c 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 AL. Tcl_LinkVar
31920 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
31930 5f 77 61 6c 5f 74 72 61 63 65 22 2c 0a 20 20 20 _wal_trace",.
31940 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 (char*)&sqlit
31950 65 33 57 61 6c 54 72 61 63 65 2c 20 54 43 4c 5f e3WalTrace, TCL_
31960 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 LINK_INT);.#endi
31970 66 0a 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 f.#endif.#ifndef
31980 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 49 53 SQLITE_OMIT_DIS
31990 4b 49 4f 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 KIO. Tcl_LinkVa
319a0 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 r(interp, "sqlit
319b0 65 5f 6f 70 65 6e 74 65 6d 70 5f 63 6f 75 6e 74 e_opentemp_count
319c0 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 ",. (char*)
319d0 26 73 71 6c 69 74 65 33 5f 6f 70 65 6e 74 65 6d &sqlite3_opentem
319e0 70 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e p_count, TCL_LIN
319f0 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 20 K_INT);.#endif.
31a00 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
31a10 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 73 74 61 erp, "sqlite_sta
31a20 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 22 2c tic_bind_value",
31a30 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 . (char*)&s
31a40 71 6c 69 74 65 5f 73 74 61 74 69 63 5f 62 69 6e qlite_static_bin
31a50 64 5f 76 61 6c 75 65 2c 20 54 43 4c 5f 4c 49 4e d_value, TCL_LIN
31a60 4b 5f 53 54 52 49 4e 47 29 3b 0a 20 20 54 63 6c K_STRING);. Tcl
31a70 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c _LinkVar(interp,
31a80 20 22 73 71 6c 69 74 65 5f 73 74 61 74 69 63 5f "sqlite_static_
31a90 62 69 6e 64 5f 6e 62 79 74 65 22 2c 0a 20 20 20 bind_nbyte",.
31aa0 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 (char*)&sqlit
31ab0 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f 6e 62 e_static_bind_nb
31ac0 79 74 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e yte, TCL_LINK_IN
31ad0 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 T);. Tcl_LinkVa
31ae0 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 r(interp, "sqlit
31af0 65 5f 74 65 6d 70 5f 64 69 72 65 63 74 6f 72 79 e_temp_directory
31b00 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 ",. (char*)
31b10 26 73 71 6c 69 74 65 33 5f 74 65 6d 70 5f 64 69 &sqlite3_temp_di
31b20 72 65 63 74 6f 72 79 2c 20 54 43 4c 5f 4c 49 4e rectory, TCL_LIN
31b30 4b 5f 53 54 52 49 4e 47 29 3b 0a 20 20 54 63 6c K_STRING);. Tcl
31b40 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c _LinkVar(interp,
31b50 20 22 73 71 6c 69 74 65 5f 64 61 74 61 5f 64 69 "sqlite_data_di
31b60 72 65 63 74 6f 72 79 22 2c 0a 20 20 20 20 20 20 rectory",.
31b70 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f (char*)&sqlite3_
31b80 64 61 74 61 5f 64 69 72 65 63 74 6f 72 79 2c 20 data_directory,
31b90 54 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 29 TCL_LINK_STRING)
31ba0 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 ;. Tcl_LinkVar(
31bb0 69 6e 74 65 72 70 2c 20 22 62 69 74 6d 61 73 6b interp, "bitmask
31bc0 5f 73 69 7a 65 22 2c 0a 20 20 20 20 20 20 28 63 _size",. (c
31bd0 68 61 72 2a 29 26 62 69 74 6d 61 73 6b 5f 73 69 har*)&bitmask_si
31be0 7a 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 ze, TCL_LINK_INT
31bf0 7c 54 43 4c 5f 4c 49 4e 4b 5f 52 45 41 44 5f 4f |TCL_LINK_READ_O
31c00 4e 4c 59 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b NLY);. Tcl_Link
31c10 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c Var(interp, "sql
31c20 69 74 65 5f 73 79 6e 63 5f 63 6f 75 6e 74 22 2c ite_sync_count",
31c30 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 . (char*)&s
31c40 71 6c 69 74 65 33 5f 73 79 6e 63 5f 63 6f 75 6e qlite3_sync_coun
31c50 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 t, TCL_LINK_INT)
31c60 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 ;. Tcl_LinkVar(
31c70 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
31c80 66 75 6c 6c 73 79 6e 63 5f 63 6f 75 6e 74 22 2c fullsync_count",
31c90 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 . (char*)&s
31ca0 71 6c 69 74 65 33 5f 66 75 6c 6c 73 79 6e 63 5f qlite3_fullsync_
31cb0 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f count, TCL_LINK_
31cc0 49 4e 54 29 3b 0a 23 69 66 20 64 65 66 69 6e 65 INT);.#if define
31cd0 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f d(SQLITE_ENABLE_
31ce0 46 54 53 33 29 20 26 26 20 64 65 66 69 6e 65 64 FTS3) && defined
31cf0 28 53 51 4c 49 54 45 5f 54 45 53 54 29 0a 20 20 (SQLITE_TEST).
31d00 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 Tcl_LinkVar(inte
31d10 72 70 2c 20 22 73 71 6c 69 74 65 5f 66 74 73 33 rp, "sqlite_fts3
31d20 5f 65 6e 61 62 6c 65 5f 70 61 72 65 6e 74 68 65 _enable_parenthe
31d30 73 65 73 22 2c 0a 20 20 20 20 20 20 28 63 68 61 ses",. (cha
31d40 72 2a 29 26 73 71 6c 69 74 65 33 5f 66 74 73 33 r*)&sqlite3_fts3
31d50 5f 65 6e 61 62 6c 65 5f 70 61 72 65 6e 74 68 65 _enable_parenthe
31d60 73 65 73 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e ses, TCL_LINK_IN
31d70 54 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 T);.#endif. ret
31d80 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a urn TCL_OK;.}.