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 2a 0a 2a te library..**.*
0220: 2a 20 24 49 64 3a 20 74 65 73 74 31 2e 63 2c 76 * $Id: test1.c,v
0230: 20 31 2e 32 37 35 20 32 30 30 37 2f 30 39 2f 30 1.275 2007/09/0
0240: 33 20 31 31 3a 30 34 3a 32 32 20 64 61 6e 69 65 3 11:04:22 danie
0250: 6c 6b 31 39 37 37 20 45 78 70 20 24 0a 2a 2f 0a lk1977 Exp $.*/.
0260: 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 #include "sqlite
0270: 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 Int.h".#include
0280: 22 74 63 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65 "tcl.h".#include
0290: 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 <stdlib.h>.#inc
02a0: 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a lude <string.h>.
02b0: 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 61 ./*.** This is a
02c0: 20 63 6f 70 79 20 6f 66 20 74 68 65 20 66 69 72 copy of the fir
02d0: 73 74 20 70 61 72 74 20 6f 66 20 74 68 65 20 53 st part of the S
02e0: 71 6c 69 74 65 44 62 20 73 74 72 75 63 74 75 72 qliteDb structur
02f0: 65 20 69 6e 20 0a 2a 2a 20 74 63 6c 73 71 6c 69 e in .** tclsqli
0300: 74 65 2e 63 2e 20 20 57 65 20 6e 65 65 64 20 69 te.c. We need i
0310: 74 20 68 65 72 65 20 73 6f 20 74 68 61 74 20 74 t here so that t
0320: 68 65 20 67 65 74 5f 73 71 6c 69 74 65 5f 70 6f he get_sqlite_po
0330: 69 6e 74 65 72 20 72 6f 75 74 69 6e 65 0a 2a 2a inter routine.**
0340: 20 63 61 6e 20 65 78 74 72 61 63 74 20 74 68 65 can extract the
0350: 20 73 71 6c 69 74 65 33 2a 20 70 6f 69 6e 74 65 sqlite3* pointe
0360: 72 20 66 72 6f 6d 20 61 6e 20 65 78 69 73 74 69 r from an existi
0370: 6e 67 20 54 63 6c 20 53 51 4c 69 74 65 0a 2a 2a ng Tcl SQLite.**
0380: 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 2a 2f 0a connection..*/.
0390: 73 74 72 75 63 74 20 53 71 6c 69 74 65 44 62 20 struct SqliteDb
03a0: 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
03b0: 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 .};../*.** Conve
03c0: 72 74 20 74 65 78 74 20 67 65 6e 65 72 61 74 65 rt text generate
03d0: 64 20 62 79 20 74 68 65 20 22 25 70 22 20 63 6f d by the "%p" co
03e0: 6e 76 65 72 73 69 6f 6e 20 66 6f 72 6d 61 74 20 nversion format
03f0: 62 61 63 6b 20 69 6e 74 6f 0a 2a 2a 20 61 20 70 back into.** a p
0400: 6f 69 6e 74 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 ointer..*/.stati
0410: 63 20 69 6e 74 20 74 65 73 74 48 65 78 54 6f 49 c int testHexToI
0420: 6e 74 28 69 6e 74 20 68 29 7b 0a 20 20 69 66 28 nt(int h){. if(
0430: 20 68 3e 3d 27 30 27 20 26 26 20 68 3c 3d 27 39 h>='0' && h<='9
0440: 27 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 ' ){. return
0450: 68 20 2d 20 27 30 27 3b 0a 20 20 7d 65 6c 73 65 h - '0';. }else
0460: 20 69 66 28 20 68 3e 3d 27 61 27 20 26 26 20 68 if( h>='a' && h
0470: 3c 3d 27 66 27 20 29 7b 0a 20 20 20 20 72 65 74 <='f' ){. ret
0480: 75 72 6e 20 68 20 2d 20 27 61 27 20 2b 20 31 30 urn h - 'a' + 10
0490: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 61 ;. }else{. a
04a0: 73 73 65 72 74 28 20 68 3e 3d 27 41 27 20 26 26 ssert( h>='A' &&
04b0: 20 68 3c 3d 27 46 27 20 29 3b 0a 20 20 20 20 72 h<='F' );. r
04c0: 65 74 75 72 6e 20 68 20 2d 20 27 41 27 20 2b 20 eturn h - 'A' +
04d0: 31 30 3b 0a 20 20 7d 0a 7d 0a 76 6f 69 64 20 2a 10;. }.}.void *
04e0: 73 71 6c 69 74 65 33 54 65 78 74 54 6f 50 74 72 sqlite3TextToPtr
04f0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 29 7b (const char *z){
0500: 0a 20 20 76 6f 69 64 20 2a 70 3b 0a 20 20 75 36 . void *p;. u6
0510: 34 20 76 3b 0a 20 20 75 33 32 20 76 32 3b 0a 20 4 v;. u32 v2;.
0520: 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 30 27 20 26 if( z[0]=='0' &
0530: 26 20 7a 5b 31 5d 3d 3d 27 78 27 20 29 7b 0a 20 & z[1]=='x' ){.
0540: 20 20 20 7a 20 2b 3d 20 32 3b 0a 20 20 7d 0a 20 z += 2;. }.
0550: 20 76 20 3d 20 30 3b 0a 20 20 77 68 69 6c 65 28 v = 0;. while(
0560: 20 2a 7a 20 29 7b 0a 20 20 20 20 76 20 3d 20 28 *z ){. v = (
0570: 76 3c 3c 34 29 20 2b 20 74 65 73 74 48 65 78 54 v<<4) + testHexT
0580: 6f 49 6e 74 28 2a 7a 29 3b 0a 20 20 20 20 7a 2b oInt(*z);. z+
0590: 2b 3b 0a 20 20 7d 0a 20 20 69 66 28 20 73 69 7a +;. }. if( siz
05a0: 65 6f 66 28 70 29 3d 3d 73 69 7a 65 6f 66 28 76 eof(p)==sizeof(v
05b0: 29 20 29 7b 0a 20 20 20 20 6d 65 6d 63 70 79 28 ) ){. memcpy(
05c0: 26 70 2c 20 26 76 2c 20 73 69 7a 65 6f 66 28 70 &p, &v, sizeof(p
05d0: 29 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ));. }else{.
05e0: 20 61 73 73 65 72 74 28 20 73 69 7a 65 6f 66 28 assert( sizeof(
05f0: 70 29 3d 3d 73 69 7a 65 6f 66 28 76 32 29 20 29 p)==sizeof(v2) )
0600: 3b 0a 20 20 20 20 76 32 20 3d 20 28 75 33 32 29 ;. v2 = (u32)
0610: 76 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 26 70 v;. memcpy(&p
0620: 2c 20 26 76 32 2c 20 73 69 7a 65 6f 66 28 70 29 , &v2, sizeof(p)
0630: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 );. }. return
0640: 70 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 41 20 54 p;.}.../*.** A T
0650: 43 4c 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 CL command that
0660: 72 65 74 75 72 6e 73 20 74 68 65 20 61 64 64 72 returns the addr
0670: 65 73 73 20 6f 66 20 74 68 65 20 73 71 6c 69 74 ess of the sqlit
0680: 65 2a 20 70 6f 69 6e 74 65 72 0a 2a 2a 20 66 6f e* pointer.** fo
0690: 72 20 61 6e 20 73 71 6c 69 74 65 20 63 6f 6e 6e r an sqlite conn
06a0: 65 63 74 69 6f 6e 20 69 6e 73 74 61 6e 63 65 2e ection instance.
06b0: 20 20 42 61 64 20 74 68 69 6e 67 73 20 68 61 70 Bad things hap
06c0: 70 65 6e 20 69 66 20 74 68 65 0a 2a 2a 20 69 6e pen if the.** in
06d0: 70 75 74 20 69 73 20 6e 6f 74 20 61 6e 20 73 71 put is not an sq
06e0: 6c 69 74 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e lite connection.
06f0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 67 .*/.static int g
0700: 65 74 5f 73 71 6c 69 74 65 5f 70 6f 69 6e 74 65 et_sqlite_pointe
0710: 72 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 r(. void * clie
0720: 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
0730: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
0740: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
0750: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
0760: 5d 0a 29 7b 0a 20 20 73 74 72 75 63 74 20 53 71 ].){. struct Sq
0770: 6c 69 74 65 44 62 20 2a 70 3b 0a 20 20 54 63 6c liteDb *p;. Tcl
0780: 5f 43 6d 64 49 6e 66 6f 20 63 6d 64 49 6e 66 6f _CmdInfo cmdInfo
0790: 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 ;. char zBuf[10
07a0: 30 5d 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 0];. if( objc!=
07b0: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 2 ){. Tcl_Wro
07c0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
07d0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 51 4c 49 , 1, objv, "SQLI
07e0: 54 45 2d 43 4f 4e 4e 45 43 54 49 4f 4e 22 29 3b TE-CONNECTION");
07f0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
0800: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
0810: 20 21 54 63 6c 5f 47 65 74 43 6f 6d 6d 61 6e 64 !Tcl_GetCommand
0820: 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 54 63 6c Info(interp, Tcl
0830: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
0840: 31 5d 29 2c 20 26 63 6d 64 49 6e 66 6f 29 20 29 1]), &cmdInfo) )
0850: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
0860: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
0870: 63 6f 6d 6d 61 6e 64 20 6e 6f 74 20 66 6f 75 6e command not foun
0880: 64 3a 20 22 2c 0a 20 20 20 20 20 20 20 20 20 20 d: ",.
0890: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
08a0: 62 6a 76 5b 31 5d 29 2c 20 28 63 68 61 72 2a 29 bjv[1]), (char*)
08b0: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
08c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
08d0: 70 20 3d 20 28 73 74 72 75 63 74 20 53 71 6c 69 p = (struct Sqli
08e0: 74 65 44 62 2a 29 63 6d 64 49 6e 66 6f 2e 6f 62 teDb*)cmdInfo.ob
08f0: 6a 43 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 73 jClientData;. s
0900: 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 70 printf(zBuf, "%p
0910: 22 2c 20 70 2d 3e 64 62 29 3b 0a 20 20 69 66 28 ", p->db);. if(
0920: 20 73 74 72 6e 63 6d 70 28 7a 42 75 66 2c 22 30 strncmp(zBuf,"0
0930: 78 22 2c 32 29 20 29 7b 0a 20 20 20 20 73 70 72 x",2) ){. spr
0940: 69 6e 74 66 28 7a 42 75 66 2c 20 22 30 78 25 70 intf(zBuf, "0x%p
0950: 22 2c 20 70 2d 3e 64 62 29 3b 0a 20 20 7d 0a 20 ", p->db);. }.
0960: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
0970: 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 t(interp, zBuf,
0980: 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 0);. return TCL
0990: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 _OK;.}../*.** De
09a0: 63 6f 64 65 20 61 20 70 6f 69 6e 74 65 72 20 74 code a pointer t
09b0: 6f 20 61 6e 20 73 71 6c 69 74 65 33 20 6f 62 6a o an sqlite3 obj
09c0: 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ect..*/.static i
09d0: 6e 74 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 nt getDbPointer(
09e0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
09f0: 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a rp, const char *
0a00: 7a 41 2c 20 73 71 6c 69 74 65 33 20 2a 2a 70 70 zA, sqlite3 **pp
0a10: 44 62 29 7b 0a 20 20 73 74 72 75 63 74 20 53 71 Db){. struct Sq
0a20: 6c 69 74 65 44 62 20 2a 70 3b 0a 20 20 54 63 6c liteDb *p;. Tcl
0a30: 5f 43 6d 64 49 6e 66 6f 20 63 6d 64 49 6e 66 6f _CmdInfo cmdInfo
0a40: 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 43 ;. if( Tcl_GetC
0a50: 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69 6e 74 65 72 ommandInfo(inter
0a60: 70 2c 20 7a 41 2c 20 26 63 6d 64 49 6e 66 6f 29 p, zA, &cmdInfo)
0a70: 20 29 7b 0a 20 20 20 20 70 20 3d 20 28 73 74 72 ){. p = (str
0a80: 75 63 74 20 53 71 6c 69 74 65 44 62 2a 29 63 6d uct SqliteDb*)cm
0a90: 64 49 6e 66 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 dInfo.objClientD
0aa0: 61 74 61 3b 0a 20 20 20 20 2a 70 70 44 62 20 3d ata;. *ppDb =
0ab0: 20 70 2d 3e 64 62 3b 0a 20 20 7d 65 6c 73 65 7b p->db;. }else{
0ac0: 0a 20 20 20 20 2a 70 70 44 62 20 3d 20 28 73 71 . *ppDb = (sq
0ad0: 6c 69 74 65 33 2a 29 73 71 6c 69 74 65 33 54 65 lite3*)sqlite3Te
0ae0: 78 74 54 6f 50 74 72 28 7a 41 29 3b 0a 20 20 7d xtToPtr(zA);. }
0af0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
0b00: 3b 0a 7d 0a 0a 0a 63 6f 6e 73 74 20 63 68 61 72 ;.}...const char
0b10: 20 2a 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 *sqlite3TestErr
0b20: 6f 72 4e 61 6d 65 28 69 6e 74 20 72 63 29 7b 0a orName(int rc){.
0b30: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e const char *zN
0b40: 61 6d 65 20 3d 20 30 3b 0a 20 20 73 77 69 74 63 ame = 0;. switc
0b50: 68 28 20 72 63 20 26 20 30 78 66 66 20 29 7b 0a h( rc & 0xff ){.
0b60: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
0b70: 4f 4b 3a 20 20 20 20 20 20 20 20 20 7a 4e 61 6d OK: zNam
0b80: 65 20 3d 20 22 53 51 4c 49 54 45 5f 4f 4b 22 3b e = "SQLITE_OK";
0b90: 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b break;
0ba0: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
0bb0: 5f 45 52 52 4f 52 3a 20 20 20 20 20 20 7a 4e 61 _ERROR: zNa
0bc0: 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 45 52 52 me = "SQLITE_ERR
0bd0: 4f 52 22 3b 20 20 20 20 20 20 20 62 72 65 61 6b OR"; break
0be0: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
0bf0: 45 5f 50 45 52 4d 3a 20 20 20 20 20 20 20 7a 4e E_PERM: zN
0c00: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 50 45 ame = "SQLITE_PE
0c10: 52 4d 22 3b 20 20 20 20 20 20 20 20 62 72 65 61 RM"; brea
0c20: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
0c30: 54 45 5f 41 42 4f 52 54 3a 20 20 20 20 20 20 7a TE_ABORT: z
0c40: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 41 Name = "SQLITE_A
0c50: 42 4f 52 54 22 3b 20 20 20 20 20 20 20 62 72 65 BORT"; bre
0c60: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ak;. case SQL
0c70: 49 54 45 5f 42 55 53 59 3a 20 20 20 20 20 20 20 ITE_BUSY:
0c80: 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f zName = "SQLITE_
0c90: 42 55 53 59 22 3b 20 20 20 20 20 20 20 20 62 72 BUSY"; br
0ca0: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 eak;. case SQ
0cb0: 4c 49 54 45 5f 4c 4f 43 4b 45 44 3a 20 20 20 20 LITE_LOCKED:
0cc0: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 zName = "SQLITE
0cd0: 5f 4c 4f 43 4b 45 44 22 3b 20 20 20 20 20 20 62 _LOCKED"; b
0ce0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
0cf0: 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3a 20 20 20 20 QLITE_NOMEM:
0d00: 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 zName = "SQLIT
0d10: 45 5f 4e 4f 4d 45 4d 22 3b 20 20 20 20 20 20 20 E_NOMEM";
0d20: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
0d30: 53 51 4c 49 54 45 5f 52 45 41 44 4f 4e 4c 59 3a SQLITE_READONLY:
0d40: 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 zName = "SQLI
0d50: 54 45 5f 52 45 41 44 4f 4e 4c 59 22 3b 20 20 20 TE_READONLY";
0d60: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
0d70: 20 53 51 4c 49 54 45 5f 49 4e 54 45 52 52 55 50 SQLITE_INTERRUP
0d80: 54 3a 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c T: zName = "SQL
0d90: 49 54 45 5f 49 4e 54 45 52 52 55 50 54 22 3b 20 ITE_INTERRUPT";
0da0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0db0: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3a 20 e SQLITE_IOERR:
0dc0: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 zName = "SQ
0dd0: 4c 49 54 45 5f 49 4f 45 52 52 22 3b 20 20 20 20 LITE_IOERR";
0de0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0df0: 73 65 20 53 51 4c 49 54 45 5f 43 4f 52 52 55 50 se SQLITE_CORRUP
0e00: 54 3a 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 T: zName = "S
0e10: 51 4c 49 54 45 5f 43 4f 52 52 55 50 54 22 3b 20 QLITE_CORRUPT";
0e20: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 break;. c
0e30: 61 73 65 20 53 51 4c 49 54 45 5f 46 55 4c 4c 3a ase SQLITE_FULL:
0e40: 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 zName = "
0e50: 53 51 4c 49 54 45 5f 46 55 4c 4c 22 3b 20 20 20 SQLITE_FULL";
0e60: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
0e70: 63 61 73 65 20 53 51 4c 49 54 45 5f 43 41 4e 54 case SQLITE_CANT
0e80: 4f 50 45 4e 3a 20 20 20 7a 4e 61 6d 65 20 3d 20 OPEN: zName =
0e90: 22 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e "SQLITE_CANTOPEN
0ea0: 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 "; break;.
0eb0: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 50 52 4f case SQLITE_PRO
0ec0: 54 4f 43 4f 4c 3a 20 20 20 7a 4e 61 6d 65 20 3d TOCOL: zName =
0ed0: 20 22 53 51 4c 49 54 45 5f 50 52 4f 54 4f 43 4f "SQLITE_PROTOCO
0ee0: 4c 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 L"; break;.
0ef0: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 45 4d case SQLITE_EM
0f00: 50 54 59 3a 20 20 20 20 20 20 7a 4e 61 6d 65 20 PTY: zName
0f10: 3d 20 22 53 51 4c 49 54 45 5f 45 4d 50 54 59 22 = "SQLITE_EMPTY"
0f20: 3b 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ; break;.
0f30: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 53 case SQLITE_S
0f40: 43 48 45 4d 41 3a 20 20 20 20 20 7a 4e 61 6d 65 CHEMA: zName
0f50: 20 3d 20 22 53 51 4c 49 54 45 5f 53 43 48 45 4d = "SQLITE_SCHEM
0f60: 41 22 3b 20 20 20 20 20 20 62 72 65 61 6b 3b 0a A"; break;.
0f70: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
0f80: 43 4f 4e 53 54 52 41 49 4e 54 3a 20 7a 4e 61 6d CONSTRAINT: zNam
0f90: 65 20 3d 20 22 53 51 4c 49 54 45 5f 43 4f 4e 53 e = "SQLITE_CONS
0fa0: 54 52 41 49 4e 54 22 3b 20 20 62 72 65 61 6b 3b TRAINT"; break;
0fb0: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
0fc0: 5f 4d 49 53 4d 41 54 43 48 3a 20 20 20 7a 4e 61 _MISMATCH: zNa
0fd0: 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4d 49 53 me = "SQLITE_MIS
0fe0: 4d 41 54 43 48 22 3b 20 20 20 20 62 72 65 61 6b MATCH"; break
0ff0: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
1000: 45 5f 4d 49 53 55 53 45 3a 20 20 20 20 20 7a 4e E_MISUSE: zN
1010: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4d 49 ame = "SQLITE_MI
1020: 53 55 53 45 22 3b 20 20 20 20 20 20 62 72 65 61 SUSE"; brea
1030: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
1040: 54 45 5f 4e 4f 4c 46 53 3a 20 20 20 20 20 20 7a TE_NOLFS: z
1050: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e Name = "SQLITE_N
1060: 4f 4c 46 53 22 3b 20 20 20 20 20 20 20 62 72 65 OLFS"; bre
1070: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ak;. case SQL
1080: 49 54 45 5f 41 55 54 48 3a 20 20 20 20 20 20 20 ITE_AUTH:
1090: 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f zName = "SQLITE_
10a0: 41 55 54 48 22 3b 20 20 20 20 20 20 20 20 62 72 AUTH"; br
10b0: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 eak;. case SQ
10c0: 4c 49 54 45 5f 46 4f 52 4d 41 54 3a 20 20 20 20 LITE_FORMAT:
10d0: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 zName = "SQLITE
10e0: 5f 46 4f 52 4d 41 54 22 3b 20 20 20 20 20 20 62 _FORMAT"; b
10f0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
1100: 51 4c 49 54 45 5f 52 41 4e 47 45 3a 20 20 20 20 QLITE_RANGE:
1110: 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 zName = "SQLIT
1120: 45 5f 52 41 4e 47 45 22 3b 20 20 20 20 20 20 20 E_RANGE";
1130: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
1140: 53 51 4c 49 54 45 5f 52 4f 57 3a 20 20 20 20 20 SQLITE_ROW:
1150: 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 zName = "SQLI
1160: 54 45 5f 52 4f 57 22 3b 20 20 20 20 20 20 20 20 TE_ROW";
1170: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
1180: 20 53 51 4c 49 54 45 5f 44 4f 4e 45 3a 20 20 20 SQLITE_DONE:
1190: 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c zName = "SQL
11a0: 49 54 45 5f 44 4f 4e 45 22 3b 20 20 20 20 20 20 ITE_DONE";
11b0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
11c0: 65 20 53 51 4c 49 54 45 5f 4e 4f 54 41 44 42 3a e SQLITE_NOTADB:
11d0: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 zName = "SQ
11e0: 4c 49 54 45 5f 4e 4f 54 41 44 42 22 3b 20 20 20 LITE_NOTADB";
11f0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 64 65 break;. de
1200: 66 61 75 6c 74 3a 20 20 20 20 20 20 20 20 20 20 fault:
1210: 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 zName = "S
1220: 51 4c 49 54 45 5f 55 6e 6b 6e 6f 77 6e 22 3b 20 QLITE_Unknown";
1230: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 break;. }.
1240: 20 72 65 74 75 72 6e 20 7a 4e 61 6d 65 3b 0a 7d return zName;.}
1250: 0a 23 64 65 66 69 6e 65 20 74 31 45 72 72 6f 72 .#define t1Error
1260: 4e 61 6d 65 20 73 71 6c 69 74 65 33 54 65 73 74 Name sqlite3Test
1270: 45 72 72 6f 72 4e 61 6d 65 0a 0a 2f 2a 0a 2a 2a ErrorName../*.**
1280: 20 43 6f 6e 76 65 72 74 20 61 6e 20 73 71 6c 69 Convert an sqli
1290: 74 65 33 5f 73 74 6d 74 2a 20 69 6e 74 6f 20 61 te3_stmt* into a
12a0: 6e 20 73 71 6c 69 74 65 33 2a 2e 20 20 54 68 69 n sqlite3*. Thi
12b0: 73 20 64 65 70 65 6e 64 73 20 6f 6e 20 74 68 65 s depends on the
12c0: 0a 2a 2a 20 66 61 63 74 20 74 68 61 74 20 74 68 .** fact that th
12d0: 65 20 73 71 6c 69 74 65 33 2a 20 69 73 20 74 68 e sqlite3* is th
12e0: 65 20 66 69 72 73 74 20 66 69 65 6c 64 20 69 6e e first field in
12f0: 20 74 68 65 20 56 64 62 65 20 73 74 72 75 63 74 the Vdbe struct
1300: 75 72 65 2e 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 ure..*/.#define
1310: 53 74 6d 74 54 6f 44 62 28 58 29 20 20 20 73 71 StmtToDb(X) sq
1320: 6c 69 74 65 33 5f 64 62 5f 68 61 6e 64 6c 65 28 lite3_db_handle(
1330: 58 29 0a 0a 2f 2a 0a 2a 2a 20 43 68 65 63 6b 20 X)../*.** Check
1340: 61 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 74 a return value t
1350: 6f 20 6d 61 6b 65 20 73 75 72 65 20 69 74 20 61 o make sure it a
1360: 67 72 65 65 73 20 77 69 74 68 20 74 68 65 20 72 grees with the r
1370: 65 73 75 6c 74 73 0a 2a 2a 20 66 72 6f 6d 20 73 esults.** from s
1380: 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 2e 0a qlite3_errcode..
1390: 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 54 65 */.int sqlite3Te
13a0: 73 74 45 72 72 43 6f 64 65 28 54 63 6c 5f 49 6e stErrCode(Tcl_In
13b0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 73 71 terp *interp, sq
13c0: 6c 69 74 65 33 20 2a 64 62 2c 20 69 6e 74 20 72 lite3 *db, int r
13d0: 63 29 7b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 c){. if( rc!=SQ
13e0: 4c 49 54 45 5f 4d 49 53 55 53 45 20 26 26 20 72 LITE_MISUSE && r
13f0: 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 c!=SQLITE_OK &&
1400: 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 28 sqlite3_errcode(
1410: 64 62 29 21 3d 72 63 20 29 7b 0a 20 20 20 20 63 db)!=rc ){. c
1420: 68 61 72 20 7a 42 75 66 5b 32 30 30 5d 3b 0a 20 har zBuf[200];.
1430: 20 20 20 69 6e 74 20 72 32 20 3d 20 73 71 6c 69 int r2 = sqli
1440: 74 65 33 5f 65 72 72 63 6f 64 65 28 64 62 29 3b te3_errcode(db);
1450: 0a 20 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 . sprintf(zBu
1460: 66 2c 20 22 65 72 72 6f 72 20 63 6f 64 65 20 25 f, "error code %
1470: 73 20 28 25 64 29 20 64 6f 65 73 20 6e 6f 74 20 s (%d) does not
1480: 6d 61 74 63 68 20 73 71 6c 69 74 65 33 5f 65 72 match sqlite3_er
1490: 72 63 6f 64 65 20 25 73 20 28 25 64 29 22 2c 0a rcode %s (%d)",.
14a0: 20 20 20 20 20 20 20 74 31 45 72 72 6f 72 4e 61 t1ErrorNa
14b0: 6d 65 28 72 63 29 2c 20 72 63 2c 20 74 31 45 72 me(rc), rc, t1Er
14c0: 72 6f 72 4e 61 6d 65 28 72 32 29 2c 20 72 32 29 rorName(r2), r2)
14d0: 3b 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 ;. Tcl_ResetR
14e0: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 esult(interp);.
14f0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
1500: 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 ult(interp, zBuf
1510: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
1520: 20 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 1;. }. return
1530: 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 63 0;.}../*.** Dec
1540: 6f 64 65 20 61 20 70 6f 69 6e 74 65 72 20 74 6f ode a pointer to
1550: 20 61 6e 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 an sqlite3_stmt
1560: 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 object..*/.stat
1570: 69 63 20 69 6e 74 20 67 65 74 53 74 6d 74 50 6f ic int getStmtPo
1580: 69 6e 74 65 72 28 0a 20 20 54 63 6c 5f 49 6e 74 inter(. Tcl_Int
1590: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 erp *interp, .
15a0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 72 67 const char *zArg
15b0: 2c 20 20 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 , . sqlite3_st
15c0: 6d 74 20 2a 2a 70 70 53 74 6d 74 0a 29 7b 0a 20 mt **ppStmt.){.
15d0: 20 2a 70 70 53 74 6d 74 20 3d 20 28 73 71 6c 69 *ppStmt = (sqli
15e0: 74 65 33 5f 73 74 6d 74 2a 29 73 71 6c 69 74 65 te3_stmt*)sqlite
15f0: 33 54 65 78 74 54 6f 50 74 72 28 7a 41 72 67 29 3TextToPtr(zArg)
1600: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
1610: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 65 6e 65 K;.}../*.** Gene
1620: 72 61 74 65 20 61 20 74 65 78 74 20 72 65 70 72 rate a text repr
1630: 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 61 20 esentation of a
1640: 70 6f 69 6e 74 65 72 20 74 68 61 74 20 63 61 6e pointer that can
1650: 20 62 65 20 75 6e 64 65 72 73 74 6f 6f 64 0a 2a be understood.*
1660: 2a 20 62 79 20 74 68 65 20 67 65 74 44 62 50 6f * by the getDbPo
1670: 69 6e 74 65 72 20 61 6e 64 20 67 65 74 56 6d 50 inter and getVmP
1680: 6f 69 6e 74 65 72 20 72 6f 75 74 69 6e 65 73 20 ointer routines
1690: 61 62 6f 76 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 above..**.** The
16a0: 20 70 72 6f 62 6c 65 6d 20 69 73 2c 20 6f 6e 20 problem is, on
16b0: 73 6f 6d 65 20 6d 61 63 68 69 6e 65 73 20 28 53 some machines (S
16c0: 6f 6c 61 72 69 73 29 20 69 66 20 79 6f 75 20 64 olaris) if you d
16d0: 6f 20 61 20 70 72 69 6e 74 66 20 77 69 74 68 0a o a printf with.
16e0: 2a 2a 20 22 25 70 22 20 79 6f 75 20 63 61 6e 6e ** "%p" you cann
16f0: 6f 74 20 74 75 72 6e 20 61 72 6f 75 6e 64 20 61 ot turn around a
1700: 6e 64 20 64 6f 20 61 20 73 63 61 6e 66 20 77 69 nd do a scanf wi
1710: 74 68 20 74 68 65 20 73 61 6d 65 20 22 25 70 22 th the same "%p"
1720: 20 61 6e 64 0a 2a 2a 20 67 65 74 20 79 6f 75 72 and.** get your
1730: 20 70 6f 69 6e 74 65 72 20 62 61 63 6b 2e 20 20 pointer back.
1740: 59 6f 75 20 68 61 76 65 20 74 6f 20 70 72 65 70 You have to prep
1750: 65 6e 64 20 61 20 22 30 78 22 20 62 65 66 6f 72 end a "0x" befor
1760: 65 20 69 74 20 77 69 6c 6c 0a 2a 2a 20 77 6f 72 e it will.** wor
1770: 6b 2e 20 20 4f 72 20 61 74 20 6c 65 61 73 74 20 k. Or at least
1780: 74 68 61 74 20 69 73 20 77 68 61 74 20 69 73 20 that is what is
1790: 72 65 70 6f 72 74 65 64 20 74 6f 20 6d 65 20 28 reported to me (
17a0: 64 72 68 29 2e 20 20 42 75 74 20 74 68 69 73 0a drh). But this.
17b0: 2a 2a 20 62 65 68 61 76 69 6f 72 20 76 61 72 69 ** behavior vari
17c0: 65 73 20 66 72 6f 6d 20 6d 61 63 68 69 6e 65 20 es from machine
17d0: 74 6f 20 6d 61 63 68 69 6e 65 2e 20 20 54 68 65 to machine. The
17e0: 20 73 6f 6c 75 74 69 6f 6e 20 75 73 65 64 20 68 solution used h
17f0: 65 72 20 69 73 0a 2a 2a 20 74 6f 20 74 65 73 74 er is.** to test
1800: 20 74 68 65 20 73 74 72 69 6e 67 20 72 69 67 68 the string righ
1810: 74 20 61 66 74 65 72 20 69 74 20 69 73 20 67 65 t after it is ge
1820: 6e 65 72 61 74 65 64 20 74 6f 20 73 65 65 20 69 nerated to see i
1830: 66 20 69 74 20 63 61 6e 20 62 65 0a 2a 2a 20 75 f it can be.** u
1840: 6e 64 65 72 73 74 6f 6f 64 20 62 79 20 73 63 61 nderstood by sca
1850: 6e 66 2c 20 61 6e 64 20 69 66 20 6e 6f 74 2c 20 nf, and if not,
1860: 74 72 79 20 70 72 65 70 65 6e 64 69 6e 67 20 61 try prepending a
1870: 6e 20 22 30 78 22 20 74 6f 20 73 65 65 20 69 66 n "0x" to see if
1880: 0a 2a 2a 20 74 68 61 74 20 68 65 6c 70 73 2e 20 .** that helps.
1890: 20 49 66 20 6e 6f 74 68 69 6e 67 20 77 6f 72 6b If nothing work
18a0: 73 2c 20 61 20 66 61 74 61 6c 20 65 72 72 6f 72 s, a fatal error
18b0: 20 69 73 20 67 65 6e 65 72 61 74 65 64 2e 0a 2a is generated..*
18c0: 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 54 65 73 /.int sqlite3Tes
18d0: 74 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 tMakePointerStr(
18e0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
18f0: 72 70 2c 20 63 68 61 72 20 2a 7a 50 74 72 2c 20 rp, char *zPtr,
1900: 76 6f 69 64 20 2a 70 29 7b 0a 20 20 73 71 6c 69 void *p){. sqli
1910: 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 31 30 30 te3_snprintf(100
1920: 2c 20 7a 50 74 72 2c 20 22 25 70 22 2c 20 70 29 , zPtr, "%p", p)
1930: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
1940: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 K;.}../*.** The
1950: 63 61 6c 6c 62 61 63 6b 20 72 6f 75 74 69 6e 65 callback routine
1960: 20 66 6f 72 20 73 71 6c 69 74 65 33 5f 65 78 65 for sqlite3_exe
1970: 63 5f 70 72 69 6e 74 66 28 29 2e 0a 2a 2f 0a 73 c_printf()..*/.s
1980: 74 61 74 69 63 20 69 6e 74 20 65 78 65 63 5f 70 tatic int exec_p
1990: 72 69 6e 74 66 5f 63 62 28 76 6f 69 64 20 2a 70 rintf_cb(void *p
19a0: 41 72 67 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 Arg, int argc, c
19b0: 68 61 72 20 2a 2a 61 72 67 76 2c 20 63 68 61 72 har **argv, char
19c0: 20 2a 2a 6e 61 6d 65 29 7b 0a 20 20 54 63 6c 5f **name){. Tcl_
19d0: 44 53 74 72 69 6e 67 20 2a 73 74 72 20 3d 20 28 DString *str = (
19e0: 54 63 6c 5f 44 53 74 72 69 6e 67 2a 29 70 41 72 Tcl_DString*)pAr
19f0: 67 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 69 g;. int i;.. i
1a00: 66 28 20 54 63 6c 5f 44 53 74 72 69 6e 67 4c 65 f( Tcl_DStringLe
1a10: 6e 67 74 68 28 73 74 72 29 3d 3d 30 20 29 7b 0a ngth(str)==0 ){.
1a20: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 for(i=0; i<a
1a30: 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 rgc; i++){.
1a40: 20 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 Tcl_DStringAppe
1a50: 6e 64 45 6c 65 6d 65 6e 74 28 73 74 72 2c 20 6e ndElement(str, n
1a60: 61 6d 65 5b 69 5d 20 3f 20 6e 61 6d 65 5b 69 5d ame[i] ? name[i]
1a70: 20 3a 20 22 4e 55 4c 4c 22 29 3b 0a 20 20 20 20 : "NULL");.
1a80: 7d 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 3b }. }. for(i=0;
1a90: 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 i<argc; i++){.
1aa0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 Tcl_DStringAp
1ab0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 72 2c pendElement(str,
1ac0: 20 61 72 67 76 5b 69 5d 20 3f 20 61 72 67 76 5b argv[i] ? argv[
1ad0: 69 5d 20 3a 20 22 4e 55 4c 4c 22 29 3b 0a 20 20 i] : "NULL");.
1ae0: 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a }. return 0;.}.
1af0: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 49 2f 4f 20 74 ./*.** The I/O t
1b00: 72 61 63 69 6e 67 20 63 61 6c 6c 62 61 63 6b 2e racing callback.
1b10: 0a 2a 2f 0a 73 74 61 74 69 63 20 46 49 4c 45 20 .*/.static FILE
1b20: 2a 69 6f 74 72 61 63 65 5f 66 69 6c 65 20 3d 20 *iotrace_file =
1b30: 30 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 20 69 0;.static void i
1b40: 6f 5f 74 72 61 63 65 5f 63 61 6c 6c 62 61 63 6b o_trace_callback
1b50: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f (const char *zFo
1b60: 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 rmat, ...){. va
1b70: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 76 61 5f 73 _list ap;. va_s
1b80: 74 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d 61 74 tart(ap, zFormat
1b90: 29 3b 0a 20 20 76 66 70 72 69 6e 74 66 28 69 6f );. vfprintf(io
1ba0: 74 72 61 63 65 5f 66 69 6c 65 2c 20 7a 46 6f 72 trace_file, zFor
1bb0: 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 mat, ap);. va_e
1bc0: 6e 64 28 61 70 29 3b 0a 20 20 66 66 6c 75 73 68 nd(ap);. fflush
1bd0: 28 69 6f 74 72 61 63 65 5f 66 69 6c 65 29 3b 0a (iotrace_file);.
1be0: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
1bf0: 20 69 6f 5f 74 72 61 63 65 20 46 49 4c 45 4e 41 io_trace FILENA
1c00: 4d 45 0a 2a 2a 0a 2a 2a 20 54 75 72 6e 20 49 2f ME.**.** Turn I/
1c10: 4f 20 74 72 61 63 69 6e 67 20 6f 6e 20 6f 72 20 O tracing on or
1c20: 6f 66 66 2e 20 20 49 66 20 46 49 4c 45 4e 41 4d off. If FILENAM
1c30: 45 20 69 73 20 6e 6f 74 20 61 6e 20 65 6d 70 74 E is not an empt
1c40: 79 20 73 74 72 69 6e 67 2c 0a 2a 2a 20 49 2f 4f y string,.** I/O
1c50: 20 74 72 61 63 69 6e 67 20 62 65 67 69 6e 73 20 tracing begins
1c60: 67 6f 69 6e 67 20 69 6e 74 6f 20 46 49 4c 45 4e going into FILEN
1c70: 41 4d 45 2e 20 49 66 20 46 49 4c 45 4e 41 4d 45 AME. If FILENAME
1c80: 20 69 73 20 61 6e 20 65 6d 70 74 79 0a 2a 2a 20 is an empty.**
1c90: 73 74 72 69 6e 67 2c 20 49 2f 4f 20 74 72 61 63 string, I/O trac
1ca0: 69 6e 67 20 69 73 20 74 75 72 6e 65 64 20 6f 66 ing is turned of
1cb0: 66 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 f..*/.static int
1cc0: 20 74 65 73 74 5f 69 6f 5f 74 72 61 63 65 28 0a test_io_trace(.
1cd0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
1ce0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1cf0: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
1d00: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
1d10: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
1d20: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
1d30: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
1d40: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
1d50: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
1d60: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
1d70: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
1d80: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
1d90: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 66 28 20 61 nt */.){. if( a
1da0: 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 rgc!=2 ){. Tc
1db0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
1dc0: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
1dd0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
1de0: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 \"", argv[0],.
1df0: 20 20 20 20 20 20 20 20 22 20 46 49 4c 45 4e 41 " FILENA
1e00: 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 ME\"", 0);. r
1e10: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1e20: 0a 20 20 7d 0a 20 20 69 66 28 20 69 6f 74 72 61 . }. if( iotra
1e30: 63 65 5f 66 69 6c 65 20 29 7b 0a 20 20 20 20 69 ce_file ){. i
1e40: 66 28 20 69 6f 74 72 61 63 65 5f 66 69 6c 65 21 f( iotrace_file!
1e50: 3d 73 74 64 6f 75 74 20 26 26 20 69 6f 74 72 61 =stdout && iotra
1e60: 63 65 5f 66 69 6c 65 21 3d 73 74 64 65 72 72 20 ce_file!=stderr
1e70: 29 7b 0a 20 20 20 20 20 20 66 63 6c 6f 73 65 28 ){. fclose(
1e80: 69 6f 74 72 61 63 65 5f 66 69 6c 65 29 3b 0a 20 iotrace_file);.
1e90: 20 20 20 7d 0a 20 20 20 20 69 6f 74 72 61 63 65 }. iotrace
1ea0: 5f 66 69 6c 65 20 3d 20 30 3b 0a 20 20 20 20 73 _file = 0;. s
1eb0: 71 6c 69 74 65 33 5f 69 6f 5f 74 72 61 63 65 20 qlite3_io_trace
1ec0: 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 = 0;. }. if( a
1ed0: 72 67 76 5b 31 5d 5b 30 5d 20 29 7b 0a 20 20 20 rgv[1][0] ){.
1ee0: 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 if( strcmp(argv
1ef0: 5b 31 5d 2c 22 73 74 64 6f 75 74 22 29 3d 3d 30 [1],"stdout")==0
1f00: 20 29 7b 0a 20 20 20 20 20 20 69 6f 74 72 61 63 ){. iotrac
1f10: 65 5f 66 69 6c 65 20 3d 20 73 74 64 6f 75 74 3b e_file = stdout;
1f20: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 . }else if( s
1f30: 74 72 63 6d 70 28 61 72 67 76 5b 31 5d 2c 22 73 trcmp(argv[1],"s
1f40: 74 64 65 72 72 22 29 3d 3d 30 20 29 7b 0a 20 20 tderr")==0 ){.
1f50: 20 20 20 20 69 6f 74 72 61 63 65 5f 66 69 6c 65 iotrace_file
1f60: 20 3d 20 73 74 64 65 72 72 3b 0a 20 20 20 20 7d = stderr;. }
1f70: 65 6c 73 65 7b 0a 20 20 20 20 20 20 69 6f 74 72 else{. iotr
1f80: 61 63 65 5f 66 69 6c 65 20 3d 20 66 6f 70 65 6e ace_file = fopen
1f90: 28 61 72 67 76 5b 31 5d 2c 20 22 77 22 29 3b 0a (argv[1], "w");.
1fa0: 20 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 }. sqlite
1fb0: 33 5f 69 6f 5f 74 72 61 63 65 20 3d 20 69 6f 5f 3_io_trace = io_
1fc0: 74 72 61 63 65 5f 63 61 6c 6c 62 61 63 6b 3b 0a trace_callback;.
1fd0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 53 51 4c }. return SQL
1fe0: 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a ITE_OK;.}.../*.*
1ff0: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
2000: 33 5f 65 78 65 63 5f 70 72 69 6e 74 66 20 20 44 3_exec_printf D
2010: 42 20 20 46 4f 52 4d 41 54 20 20 53 54 52 49 4e B FORMAT STRIN
2020: 47 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 G.**.** Invoke t
2030: 68 65 20 73 71 6c 69 74 65 33 5f 65 78 65 63 5f he sqlite3_exec_
2040: 70 72 69 6e 74 66 28 29 20 69 6e 74 65 72 66 61 printf() interfa
2050: 63 65 20 75 73 69 6e 67 20 74 68 65 20 6f 70 65 ce using the ope
2060: 6e 20 64 61 74 61 62 61 73 65 0a 2a 2a 20 44 42 n database.** DB
2070: 2e 20 20 54 68 65 20 53 51 4c 20 69 73 20 74 68 . The SQL is th
2080: 65 20 73 74 72 69 6e 67 20 46 4f 52 4d 41 54 2e e string FORMAT.
2090: 20 20 54 68 65 20 66 6f 72 6d 61 74 20 73 74 72 The format str
20a0: 69 6e 67 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 ing should conta
20b0: 69 6e 0a 2a 2a 20 6f 6e 65 20 25 73 20 6f 72 20 in.** one %s or
20c0: 25 71 2e 20 20 53 54 52 49 4e 47 20 69 73 20 74 %q. STRING is t
20d0: 68 65 20 76 61 6c 75 65 20 69 6e 73 65 72 74 65 he value inserte
20e0: 64 20 69 6e 74 6f 20 25 73 20 6f 72 20 25 71 2e d into %s or %q.
20f0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
2100: 65 73 74 5f 65 78 65 63 5f 70 72 69 6e 74 66 28 est_exec_printf(
2110: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 . void *NotUsed
2120: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
2130: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
2140: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
2150: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
2160: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
2170: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 int argc,
2180: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
2190: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
21a0: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 /. char **argv
21b0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 /* Te
21c0: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d xt of each argum
21d0: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 ent */.){. sqli
21e0: 74 65 33 20 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 te3 *db;. Tcl_D
21f0: 53 74 72 69 6e 67 20 73 74 72 3b 0a 20 20 69 6e String str;. in
2200: 74 20 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a 45 t rc;. char *zE
2210: 72 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 2a rr = 0;. char *
2220: 7a 53 71 6c 3b 0a 20 20 63 68 61 72 20 7a 42 75 zSql;. char zBu
2230: 66 5b 33 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 f[30];. if( arg
2240: 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=4 ){. Tcl_
2250: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
2260: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
2270: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
2280: 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 ", argv[0], .
2290: 20 20 20 20 22 20 44 42 20 46 4f 52 4d 41 54 20 " DB FORMAT
22a0: 53 54 52 49 4e 47 22 2c 20 30 29 3b 0a 20 20 20 STRING", 0);.
22b0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
22c0: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
22d0: 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
22e0: 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 , argv[1], &db)
22f0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
2300: 4f 52 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e OR;. Tcl_DStrin
2310: 67 49 6e 69 74 28 26 73 74 72 29 3b 0a 20 20 7a gInit(&str);. z
2320: 53 71 6c 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 Sql = sqlite3_mp
2330: 72 69 6e 74 66 28 61 72 67 76 5b 32 5d 2c 20 61 rintf(argv[2], a
2340: 72 67 76 5b 33 5d 29 3b 0a 20 20 72 63 20 3d 20 rgv[3]);. rc =
2350: 73 71 6c 69 74 65 33 5f 65 78 65 63 28 64 62 2c sqlite3_exec(db,
2360: 20 7a 53 71 6c 2c 20 65 78 65 63 5f 70 72 69 6e zSql, exec_prin
2370: 74 66 5f 63 62 2c 20 26 73 74 72 2c 20 26 7a 45 tf_cb, &str, &zE
2380: 72 72 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 rr);. sqlite3_f
2390: 72 65 65 28 7a 53 71 6c 29 3b 0a 20 20 73 70 72 ree(zSql);. spr
23a0: 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c intf(zBuf, "%d",
23b0: 20 72 63 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 rc);. Tcl_Appe
23c0: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
23d0: 2c 20 7a 42 75 66 29 3b 0a 20 20 54 63 6c 5f 41 , zBuf);. Tcl_A
23e0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
23f0: 65 72 70 2c 20 72 63 3d 3d 53 51 4c 49 54 45 5f erp, rc==SQLITE_
2400: 4f 4b 20 3f 20 54 63 6c 5f 44 53 74 72 69 6e 67 OK ? Tcl_DString
2410: 56 61 6c 75 65 28 26 73 74 72 29 20 3a 20 7a 45 Value(&str) : zE
2420: 72 72 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 rr);. Tcl_DStri
2430: 6e 67 46 72 65 65 28 26 73 74 72 29 3b 0a 20 20 ngFree(&str);.
2440: 69 66 28 20 7a 45 72 72 20 29 20 73 71 6c 69 74 if( zErr ) sqlit
2450: 65 33 5f 66 72 65 65 28 7a 45 72 72 29 3b 0a 20 e3_free(zErr);.
2460: 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
2470: 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
2480: 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e db, rc) ) return
2490: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 TCL_ERROR;. re
24a0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
24b0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 64 62 /*.** Usage: db
24c0: 5f 65 6e 74 65 72 20 44 42 0a 2a 2a 20 20 20 20 _enter DB.**
24d0: 20 20 20 20 20 64 62 5f 6c 65 61 76 65 20 44 42 db_leave DB
24e0: 0a 2a 2a 0a 2a 2a 20 45 6e 74 65 72 20 6f 72 20 .**.** Enter or
24f0: 6c 65 61 76 65 20 74 68 65 20 6d 75 74 65 78 20 leave the mutex
2500: 6f 6e 20 61 20 64 61 74 61 62 61 73 65 20 63 6f on a database co
2510: 6e 6e 65 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 nnection..*/.sta
2520: 74 69 63 20 69 6e 74 20 64 62 5f 65 6e 74 65 72 tic int db_enter
2530: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
2540: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
2550: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
2560: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
2570: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
2580: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
2590: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
25a0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
25b0: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
25c0: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
25d0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
25e0: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
25f0: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c ment */.){. sql
2600: 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 ite3 *db;. if(
2610: 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 argc!=2 ){. T
2620: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
2630: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
2640: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
2650: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a \"", argv[0], .
2660: 20 20 20 20 20 20 20 22 20 44 42 22 2c 20 30 29 " DB", 0)
2670: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
2680: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
2690: 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
26a0: 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
26b0: 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
26c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 L_ERROR;. sqlit
26d0: 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 e3_mutex_enter(d
26e0: 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 72 65 74 b->mutex);. ret
26f0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 73 74 urn TCL_OK;.}.st
2700: 61 74 69 63 20 69 6e 74 20 64 62 5f 6c 65 61 76 atic int db_leav
2710: 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 e(. void *NotUs
2720: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
2730: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
2740: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
2750: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
2760: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
2770: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
2780: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
2790: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
27a0: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
27b0: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
27c0: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
27d0: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 ument */.){. sq
27e0: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 lite3 *db;. if(
27f0: 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 argc!=2 ){.
2800: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
2810: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
2820: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
2830: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 e \"", argv[0],
2840: 0a 20 20 20 20 20 20 20 22 20 44 42 22 2c 20 30 . " DB", 0
2850: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
2860: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
2870: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
2880: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
2890: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
28a0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 CL_ERROR;. sqli
28b0: 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 te3_mutex_leave(
28c0: 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 72 65 db->mutex);. re
28d0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
28e0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
28f0: 6c 69 74 65 33 5f 65 78 65 63 20 20 44 42 20 20 lite3_exec DB
2900: 53 51 4c 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 SQL.**.** Invoke
2910: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 65 78 65 the sqlite3_exe
2920: 63 20 69 6e 74 65 72 66 61 63 65 20 75 73 69 6e c interface usin
2930: 67 20 74 68 65 20 6f 70 65 6e 20 64 61 74 61 62 g the open datab
2940: 61 73 65 20 44 42 0a 2a 2f 0a 73 74 61 74 69 63 ase DB.*/.static
2950: 20 69 6e 74 20 74 65 73 74 5f 65 78 65 63 28 0a int test_exec(.
2960: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
2970: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
2980: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
2990: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
29a0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
29b0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
29c0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
29d0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
29e0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
29f0: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
2a00: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
2a10: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
2a20: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 nt */.){. sqlit
2a30: 65 33 20 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 53 e3 *db;. Tcl_DS
2a40: 74 72 69 6e 67 20 73 74 72 3b 0a 20 20 69 6e 74 tring str;. int
2a50: 20 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 rc;. char *zEr
2a60: 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 2a 7a r = 0;. char *z
2a70: 53 71 6c 3b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b Sql;. int i, j;
2a80: 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33 30 5d . char zBuf[30]
2a90: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 ;. if( argc!=3
2aa0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
2ab0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
2ac0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
2ad0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
2ae0: 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 gv[0], . "
2af0: 20 44 42 20 53 51 4c 22 2c 20 30 29 3b 0a 20 20 DB SQL", 0);.
2b00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
2b10: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
2b20: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
2b30: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
2b40: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
2b50: 52 4f 52 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 ROR;. Tcl_DStri
2b60: 6e 67 49 6e 69 74 28 26 73 74 72 29 3b 0a 20 20 ngInit(&str);.
2b70: 7a 53 71 6c 20 3d 20 73 71 6c 69 74 65 33 5f 6d zSql = sqlite3_m
2b80: 70 72 69 6e 74 66 28 22 25 73 22 2c 20 61 72 67 printf("%s", arg
2b90: 76 5b 32 5d 29 3b 0a 20 20 66 6f 72 28 69 3d 6a v[2]);. for(i=j
2ba0: 3d 30 3b 20 7a 53 71 6c 5b 69 5d 3b 29 7b 0a 20 =0; zSql[i];){.
2bb0: 20 20 20 69 66 28 20 7a 53 71 6c 5b 69 5d 3d 3d if( zSql[i]==
2bc0: 27 25 27 20 29 7b 0a 20 20 20 20 20 20 7a 53 71 '%' ){. zSq
2bd0: 6c 5b 6a 2b 2b 5d 20 3d 20 28 74 65 73 74 48 65 l[j++] = (testHe
2be0: 78 54 6f 49 6e 74 28 7a 53 71 6c 5b 69 2b 31 5d xToInt(zSql[i+1]
2bf0: 29 3c 3c 34 29 20 2b 20 74 65 73 74 48 65 78 54 )<<4) + testHexT
2c00: 6f 49 6e 74 28 7a 53 71 6c 5b 69 2b 32 5d 29 3b oInt(zSql[i+2]);
2c10: 0a 20 20 20 20 20 20 69 20 2b 3d 20 33 3b 0a 20 . i += 3;.
2c20: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
2c30: 7a 53 71 6c 5b 6a 2b 2b 5d 20 3d 20 7a 53 71 6c zSql[j++] = zSql
2c40: 5b 69 2b 2b 5d 3b 0a 20 20 20 20 7d 0a 20 20 7d [i++];. }. }
2c50: 0a 20 20 7a 53 71 6c 5b 6a 5d 20 3d 20 30 3b 0a . zSql[j] = 0;.
2c60: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 65 rc = sqlite3_e
2c70: 78 65 63 28 64 62 2c 20 7a 53 71 6c 2c 20 65 78 xec(db, zSql, ex
2c80: 65 63 5f 70 72 69 6e 74 66 5f 63 62 2c 20 26 73 ec_printf_cb, &s
2c90: 74 72 2c 20 26 7a 45 72 72 29 3b 0a 20 20 73 71 tr, &zErr);. sq
2ca0: 6c 69 74 65 33 5f 66 72 65 65 28 7a 53 71 6c 29 lite3_free(zSql)
2cb0: 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 ;. sprintf(zBuf
2cc0: 2c 20 22 25 64 22 2c 20 72 63 29 3b 0a 20 20 54 , "%d", rc);. T
2cd0: 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 cl_AppendElement
2ce0: 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a (interp, zBuf);.
2cf0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d Tcl_AppendElem
2d00: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 63 3d 3d ent(interp, rc==
2d10: 53 51 4c 49 54 45 5f 4f 4b 20 3f 20 54 63 6c 5f SQLITE_OK ? Tcl_
2d20: 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 73 74 DStringValue(&st
2d30: 72 29 20 3a 20 7a 45 72 72 29 3b 0a 20 20 54 63 r) : zErr);. Tc
2d40: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 73 l_DStringFree(&s
2d50: 74 72 29 3b 0a 20 20 69 66 28 20 7a 45 72 72 20 tr);. if( zErr
2d60: 29 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a ) sqlite3_free(z
2d70: 45 72 72 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 Err);. if( sqli
2d80: 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 te3TestErrCode(i
2d90: 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 nterp, db, rc) )
2da0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
2db0: 52 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f R;. return TCL_
2dc0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
2dd0: 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 65 78 65 ge: sqlite3_exe
2de0: 63 5f 6e 72 20 20 44 42 20 20 53 51 4c 0a 2a 2a c_nr DB SQL.**
2df0: 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20 73 .** Invoke the s
2e00: 71 6c 69 74 65 33 5f 65 78 65 63 20 69 6e 74 65 qlite3_exec inte
2e10: 72 66 61 63 65 20 75 73 69 6e 67 20 74 68 65 20 rface using the
2e20: 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 44 42 open database DB
2e30: 2e 20 20 44 69 73 63 61 72 64 0a 2a 2a 20 61 6c . Discard.** al
2e40: 6c 20 72 65 73 75 6c 74 73 0a 2a 2f 0a 73 74 61 l results.*/.sta
2e50: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 78 65 tic int test_exe
2e60: 63 5f 6e 72 28 0a 20 20 76 6f 69 64 20 2a 4e 6f c_nr(. void *No
2e70: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 tUsed,. Tcl_Int
2e80: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
2e90: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
2ea0: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
2eb0: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
2ec0: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 */. int argc,
2ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
2ee0: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
2ef0: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a nts */. char **
2f00: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 argv
2f10: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 /* Text of each
2f20: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 argument */.){.
2f30: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
2f40: 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 2a int rc;. char *
2f50: 7a 45 72 72 20 3d 20 30 3b 0a 20 20 69 66 28 20 zErr = 0;. if(
2f60: 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 argc!=3 ){. T
2f70: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
2f80: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
2f90: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
2fa0: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a \"", argv[0], .
2fb0: 20 20 20 20 20 20 20 22 20 44 42 20 53 51 4c 22 " DB SQL"
2fc0: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
2fd0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
2fe0: 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
2ff0: 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
3000: 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 1], &db) ) retur
3010: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 n TCL_ERROR;. r
3020: 63 20 3d 20 73 71 6c 69 74 65 33 5f 65 78 65 63 c = sqlite3_exec
3030: 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c 20 30 2c (db, argv[2], 0,
3040: 20 30 2c 20 26 7a 45 72 72 29 3b 0a 20 20 69 66 0, &zErr);. if
3050: 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 ( sqlite3TestErr
3060: 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c Code(interp, db,
3070: 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 rc) ) return TC
3080: 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 74 75 72 L_ERROR;. retur
3090: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
30a0: 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
30b0: 65 33 5f 6d 70 72 69 6e 74 66 5f 7a 5f 74 65 73 e3_mprintf_z_tes
30c0: 74 20 20 53 45 50 41 52 41 54 4f 52 20 20 41 52 t SEPARATOR AR
30d0: 47 30 20 20 41 52 47 31 20 2e 2e 2e 0a 2a 2a 0a G0 ARG1 ....**.
30e0: 2a 2a 20 54 65 73 74 20 74 68 65 20 25 7a 20 66 ** Test the %z f
30f0: 6f 72 6d 61 74 20 6f 66 20 73 71 6c 69 74 65 4d ormat of sqliteM
3100: 50 72 69 6e 74 66 28 29 2e 20 20 55 73 65 20 6d Printf(). Use m
3110: 75 6c 74 69 70 6c 65 20 6d 70 72 69 6e 74 66 28 ultiple mprintf(
3120: 29 20 63 61 6c 6c 73 20 74 6f 20 0a 2a 2a 20 63 ) calls to .** c
3130: 6f 6e 63 61 74 65 6e 61 74 65 20 61 72 67 30 20 oncatenate arg0
3140: 74 68 72 6f 75 67 68 20 61 72 67 6e 20 75 73 69 through argn usi
3150: 6e 67 20 73 65 70 61 72 61 74 6f 72 20 61 73 20 ng separator as
3160: 74 68 65 20 73 65 70 61 72 61 74 6f 72 2e 0a 2a the separator..*
3170: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 * Return the res
3180: 75 6c 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ult..*/.static i
3190: 6e 74 20 74 65 73 74 5f 6d 70 72 69 6e 74 66 5f nt test_mprintf_
31a0: 7a 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 z(. void *NotUs
31b0: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
31c0: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
31d0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
31e0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
31f0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
3200: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
3210: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
3220: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
3230: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
3240: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
3250: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
3260: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 63 68 ument */.){. ch
3270: 61 72 20 2a 7a 52 65 73 75 6c 74 20 3d 20 30 3b ar *zResult = 0;
3280: 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 66 6f 72 . int i;.. for
3290: 28 69 3d 32 3b 20 69 3c 61 72 67 63 20 26 26 20 (i=2; i<argc &&
32a0: 28 69 3d 3d 32 20 7c 7c 20 7a 52 65 73 75 6c 74 (i==2 || zResult
32b0: 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 7a 52 65 ); i++){. zRe
32c0: 73 75 6c 74 20 3d 20 73 71 6c 69 74 65 33 4d 50 sult = sqlite3MP
32d0: 72 69 6e 74 66 28 30 2c 20 22 25 7a 25 73 25 73 rintf(0, "%z%s%s
32e0: 22 2c 20 7a 52 65 73 75 6c 74 2c 20 61 72 67 76 ", zResult, argv
32f0: 5b 31 5d 2c 20 61 72 67 76 5b 69 5d 29 3b 0a 20 [1], argv[i]);.
3300: 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 }. Tcl_AppendR
3310: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 52 esult(interp, zR
3320: 65 73 75 6c 74 2c 20 30 29 3b 0a 20 20 73 71 6c esult, 0);. sql
3330: 69 74 65 33 5f 66 72 65 65 28 7a 52 65 73 75 6c ite3_free(zResul
3340: 74 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c t);. return TCL
3350: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
3360: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 age: sqlite3_mp
3370: 72 69 6e 74 66 5f 6e 5f 74 65 73 74 20 20 53 54 rintf_n_test ST
3380: 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 RING.**.** Test
3390: 74 68 65 20 25 6e 20 66 6f 72 6d 61 74 20 6f 66 the %n format of
33a0: 20 73 71 6c 69 74 65 4d 50 72 69 6e 74 66 28 29 sqliteMPrintf()
33b0: 2e 20 20 52 65 74 75 72 6e 20 74 68 65 20 6c 65 . Return the le
33c0: 6e 67 74 68 20 6f 66 20 74 68 65 0a 2a 2a 20 69 ngth of the.** i
33d0: 6e 70 75 74 20 73 74 72 69 6e 67 2e 0a 2a 2f 0a nput string..*/.
33e0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
33f0: 6d 70 72 69 6e 74 66 5f 6e 28 0a 20 20 76 6f 69 mprintf_n(. voi
3400: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
3410: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
3420: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
3430: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
3440: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
3450: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
3460: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
3470: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
3480: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
3490: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
34a0: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
34b0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
34c0: 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 53 74 72 .){. char *zStr
34d0: 3b 0a 20 20 69 6e 74 20 6e 20 3d 20 30 3b 0a 20 ;. int n = 0;.
34e0: 20 7a 53 74 72 20 3d 20 73 71 6c 69 74 65 33 4d zStr = sqlite3M
34f0: 50 72 69 6e 74 66 28 30 2c 20 22 25 73 25 6e 22 Printf(0, "%s%n"
3500: 2c 20 61 72 67 76 5b 31 5d 2c 20 26 6e 29 3b 0a , argv[1], &n);.
3510: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a sqlite3_free(z
3520: 53 74 72 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f Str);. Tcl_SetO
3530: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
3540: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e Tcl_NewIntObj(n
3550: 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ));. return TCL
3560: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
3570: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 73 6e age: sqlite3_sn
3580: 70 72 69 6e 74 66 5f 69 6e 74 20 20 53 49 5a 45 printf_int SIZE
3590: 20 46 4f 52 4d 41 54 20 20 49 4e 54 0a 2a 2a 0a FORMAT INT.**.
35a0: 2a 2a 20 54 65 73 74 20 74 68 65 20 6f 66 20 73 ** Test the of s
35b0: 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 qlite3_snprintf(
35c0: 29 20 72 6f 75 74 69 6e 65 2e 20 20 53 49 5a 45 ) routine. SIZE
35d0: 20 69 73 20 74 68 65 20 73 69 7a 65 20 6f 66 20 is the size of
35e0: 74 68 65 0a 2a 2a 20 6f 75 74 70 75 74 20 62 75 the.** output bu
35f0: 66 66 65 72 20 69 6e 20 62 79 74 65 73 2e 20 20 ffer in bytes.
3600: 54 68 65 20 6d 61 78 69 6d 75 6d 20 73 69 7a 65 The maximum size
3610: 20 69 73 20 31 30 30 2e 20 20 46 4f 52 4d 41 54 is 100. FORMAT
3620: 20 69 73 20 74 68 65 0a 2a 2a 20 66 6f 72 6d 61 is the.** forma
3630: 74 20 73 74 72 69 6e 67 2e 20 20 49 4e 54 20 69 t string. INT i
3640: 73 20 61 20 73 69 6e 67 6c 65 20 69 6e 74 65 67 s a single integ
3650: 65 72 20 61 72 67 75 6d 65 6e 74 2e 20 20 54 68 er argument. Th
3660: 65 20 46 4f 52 4d 41 54 0a 2a 2a 20 73 74 72 69 e FORMAT.** stri
3670: 6e 67 20 6d 75 73 74 20 72 65 71 75 69 72 65 20 ng must require
3680: 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 74 68 69 no more than thi
3690: 73 20 6f 6e 65 20 69 6e 74 65 67 65 72 20 61 72 s one integer ar
36a0: 67 75 6d 65 6e 74 2e 20 20 49 66 0a 2a 2a 20 59 gument. If.** Y
36b0: 6f 75 20 70 61 73 73 20 69 6e 20 61 20 66 6f 72 ou pass in a for
36c0: 6d 61 74 20 73 74 72 69 6e 67 20 74 68 61 74 20 mat string that
36d0: 72 65 71 75 69 72 65 73 20 6d 6f 72 65 20 74 68 requires more th
36e0: 61 6e 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2c an one argument,
36f0: 0a 2a 2a 20 62 61 64 20 74 68 69 6e 67 73 20 77 .** bad things w
3700: 69 6c 6c 20 68 61 70 70 65 6e 2e 0a 2a 2f 0a 73 ill happen..*/.s
3710: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 tatic int test_s
3720: 6e 70 72 69 6e 74 66 5f 69 6e 74 28 0a 20 20 76 nprintf_int(. v
3730: 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 oid *NotUsed,.
3740: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
3750: 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
3760: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
3770: 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
3780: 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
3790: 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 argc,
37a0: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
37b0: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
37c0: 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 char **argv
37d0: 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f /* Text o
37e0: 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 f each argument
37f0: 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 20 7a 53 74 */.){. char zSt
3800: 72 5b 31 30 30 5d 3b 0a 20 20 69 6e 74 20 6e 20 r[100];. int n
3810: 3d 20 61 74 6f 69 28 61 72 67 76 5b 31 5d 29 3b = atoi(argv[1]);
3820: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
3830: 46 6f 72 6d 61 74 20 3d 20 61 72 67 76 5b 32 5d Format = argv[2]
3840: 3b 0a 20 20 69 6e 74 20 61 31 20 3d 20 61 74 6f ;. int a1 = ato
3850: 69 28 61 72 67 76 5b 33 5d 29 3b 0a 20 20 69 66 i(argv[3]);. if
3860: 28 20 6e 3e 73 69 7a 65 6f 66 28 7a 53 74 72 29 ( n>sizeof(zStr)
3870: 20 29 20 6e 20 3d 20 73 69 7a 65 6f 66 28 7a 53 ) n = sizeof(zS
3880: 74 72 29 3b 0a 20 20 73 74 72 63 70 79 28 7a 53 tr);. strcpy(zS
3890: 74 72 2c 20 22 61 62 63 64 65 66 67 68 69 6a 6b tr, "abcdefghijk
38a0: 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 22 lmnopqrstuvwxyz"
38b0: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 );. sqlite3_snp
38c0: 72 69 6e 74 66 28 6e 2c 20 7a 53 74 72 2c 20 7a rintf(n, zStr, z
38d0: 46 6f 72 6d 61 74 2c 20 61 31 29 3b 0a 20 20 54 Format, a1);. T
38e0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
38f0: 69 6e 74 65 72 70 2c 20 7a 53 74 72 2c 20 30 29 interp, zStr, 0)
3900: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
3910: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
3920: 65 3a 20 20 73 71 6c 69 74 65 33 5f 67 65 74 5f e: sqlite3_get_
3930: 74 61 62 6c 65 5f 70 72 69 6e 74 66 20 20 44 42 table_printf DB
3940: 20 20 46 4f 52 4d 41 54 20 20 53 54 52 49 4e 47 FORMAT STRING
3950: 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 .**.** Invoke th
3960: 65 20 73 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 e sqlite3_get_ta
3970: 62 6c 65 5f 70 72 69 6e 74 66 28 29 20 69 6e 74 ble_printf() int
3980: 65 72 66 61 63 65 20 75 73 69 6e 67 20 74 68 65 erface using the
3990: 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 0a 2a open database.*
39a0: 2a 20 44 42 2e 20 20 54 68 65 20 53 51 4c 20 69 * DB. The SQL i
39b0: 73 20 74 68 65 20 73 74 72 69 6e 67 20 46 4f 52 s the string FOR
39c0: 4d 41 54 2e 20 20 54 68 65 20 66 6f 72 6d 61 74 MAT. The format
39d0: 20 73 74 72 69 6e 67 20 73 68 6f 75 6c 64 20 63 string should c
39e0: 6f 6e 74 61 69 6e 0a 2a 2a 20 6f 6e 65 20 25 73 ontain.** one %s
39f0: 20 6f 72 20 25 71 2e 20 20 53 54 52 49 4e 47 20 or %q. STRING
3a00: 69 73 20 74 68 65 20 76 61 6c 75 65 20 69 6e 73 is the value ins
3a10: 65 72 74 65 64 20 69 6e 74 6f 20 25 73 20 6f 72 erted into %s or
3a20: 20 25 71 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 %q..*/.static i
3a30: 6e 74 20 74 65 73 74 5f 67 65 74 5f 74 61 62 6c nt test_get_tabl
3a40: 65 5f 70 72 69 6e 74 66 28 0a 20 20 76 6f 69 64 e_printf(. void
3a50: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
3a60: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3a70: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
3a80: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
3a90: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
3aa0: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
3ab0: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
3ac0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
3ad0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
3ae0: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
3af0: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
3b00: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
3b10: 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ){. sqlite3 *db
3b20: 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 ;. Tcl_DString
3b30: 73 74 72 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 str;. int rc;.
3b40: 20 63 68 61 72 20 2a 7a 45 72 72 20 3d 20 30 3b char *zErr = 0;
3b50: 0a 20 20 69 6e 74 20 6e 52 6f 77 2c 20 6e 43 6f . int nRow, nCo
3b60: 6c 3b 0a 20 20 63 68 61 72 20 2a 2a 61 52 65 73 l;. char **aRes
3b70: 75 6c 74 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 ult;. int i;.
3b80: 63 68 61 72 20 7a 42 75 66 5b 33 30 5d 3b 0a 20 char zBuf[30];.
3b90: 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 20 69 char *zSql;. i
3ba0: 66 28 20 61 72 67 63 21 3d 34 20 29 7b 0a 20 20 f( argc!=4 ){.
3bb0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
3bc0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
3bd0: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
3be0: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d be \"", argv[0]
3bf0: 2c 20 0a 20 20 20 20 20 20 20 22 20 44 42 20 46 , . " DB F
3c00: 4f 52 4d 41 54 20 53 54 52 49 4e 47 22 2c 20 30 ORMAT STRING", 0
3c10: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
3c20: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
3c30: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
3c40: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
3c50: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
3c60: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f CL_ERROR;. Tcl_
3c70: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 73 74 72 DStringInit(&str
3c80: 29 3b 0a 20 20 7a 53 71 6c 20 3d 20 73 71 6c 69 );. zSql = sqli
3c90: 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 te3_mprintf(argv
3ca0: 5b 32 5d 2c 61 72 67 76 5b 33 5d 29 3b 0a 20 20 [2],argv[3]);.
3cb0: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 67 65 74 rc = sqlite3_get
3cc0: 5f 74 61 62 6c 65 28 64 62 2c 20 7a 53 71 6c 2c _table(db, zSql,
3cd0: 20 26 61 52 65 73 75 6c 74 2c 20 26 6e 52 6f 77 &aResult, &nRow
3ce0: 2c 20 26 6e 43 6f 6c 2c 20 26 7a 45 72 72 29 3b , &nCol, &zErr);
3cf0: 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 . sqlite3_free(
3d00: 7a 53 71 6c 29 3b 0a 20 20 73 70 72 69 6e 74 66 zSql);. sprintf
3d10: 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 72 63 29 (zBuf, "%d", rc)
3d20: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c ;. Tcl_AppendEl
3d30: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a 42 ement(interp, zB
3d40: 75 66 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 uf);. if( rc==S
3d50: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 QLITE_OK ){.
3d60: 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 sprintf(zBuf, "%
3d70: 64 22 2c 20 6e 52 6f 77 29 3b 0a 20 20 20 20 54 d", nRow);. T
3d80: 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 cl_AppendElement
3d90: 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a (interp, zBuf);.
3da0: 20 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 sprintf(zBuf
3db0: 2c 20 22 25 64 22 2c 20 6e 43 6f 6c 29 3b 0a 20 , "%d", nCol);.
3dc0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 Tcl_AppendEle
3dd0: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 ment(interp, zBu
3de0: 66 29 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b f);. for(i=0;
3df0: 20 69 3c 28 6e 52 6f 77 2b 31 29 2a 6e 43 6f 6c i<(nRow+1)*nCol
3e00: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 54 63 ; i++){. Tc
3e10: 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 l_AppendElement(
3e20: 69 6e 74 65 72 70 2c 20 61 52 65 73 75 6c 74 5b interp, aResult[
3e30: 69 5d 20 3f 20 61 52 65 73 75 6c 74 5b 69 5d 20 i] ? aResult[i]
3e40: 3a 20 22 4e 55 4c 4c 22 29 3b 0a 20 20 20 20 7d : "NULL");. }
3e50: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 . }else{. Tc
3e60: 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 l_AppendElement(
3e70: 69 6e 74 65 72 70 2c 20 7a 45 72 72 29 3b 0a 20 interp, zErr);.
3e80: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 }. sqlite3_fre
3e90: 65 5f 74 61 62 6c 65 28 61 52 65 73 75 6c 74 29 e_table(aResult)
3ea0: 3b 0a 20 20 69 66 28 20 7a 45 72 72 20 29 20 73 ;. if( zErr ) s
3eb0: 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 45 72 72 qlite3_free(zErr
3ec0: 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
3ed0: 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
3ee0: 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 rp, db, rc) ) re
3ef0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3f00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
3f10: 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 .}.../*.** Usage
3f20: 3a 20 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f : sqlite3_last_
3f30: 69 6e 73 65 72 74 5f 72 6f 77 69 64 20 44 42 0a insert_rowid DB.
3f40: 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 20 74 68 **.** Returns th
3f50: 65 20 69 6e 74 65 67 65 72 20 52 4f 57 49 44 20 e integer ROWID
3f60: 6f 66 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 of the most rece
3f70: 6e 74 20 69 6e 73 65 72 74 2e 0a 2a 2f 0a 73 74 nt insert..*/.st
3f80: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6c 61 atic int test_la
3f90: 73 74 5f 72 6f 77 69 64 28 0a 20 20 76 6f 69 64 st_rowid(. void
3fa0: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
3fb0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3fc0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
3fd0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
3fe0: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
3ff0: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
4000: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
4010: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
4020: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
4030: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
4040: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
4050: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
4060: 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ){. sqlite3 *db
4070: 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33 30 ;. char zBuf[30
4080: 5d 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d ];.. if( argc!=
4090: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
40a0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
40b0: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
40c0: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
40d0: 61 72 67 76 5b 30 5d 2c 20 22 20 44 42 5c 22 22 argv[0], " DB\""
40e0: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
40f0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
4100: 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
4110: 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
4120: 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 1], &db) ) retur
4130: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 n TCL_ERROR;. s
4140: 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 6c printf(zBuf, "%l
4150: 6c 64 22 2c 20 73 71 6c 69 74 65 33 5f 6c 61 73 ld", sqlite3_las
4160: 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 64 t_insert_rowid(d
4170: 62 29 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e b));. Tcl_Appen
4180: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
4190: 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 zBuf, 0);. retu
41a0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a rn SQLITE_OK;.}.
41b0: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
41c0: 71 6c 69 74 65 33 5f 6b 65 79 20 44 42 20 4b 45 qlite3_key DB KE
41d0: 59 0a 2a 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20 Y.**.** Set the
41e0: 63 6f 64 65 63 20 6b 65 79 2e 0a 2a 2f 0a 73 74 codec key..*/.st
41f0: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6b 65 atic int test_ke
4200: 79 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 y(. void *NotUs
4210: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
4220: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
4230: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
4240: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
4250: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
4260: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
4270: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
4280: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
4290: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
42a0: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
42b0: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
42c0: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 ument */.){. sq
42d0: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 6f 6e lite3 *db;. con
42e0: 73 74 20 63 68 61 72 20 2a 7a 4b 65 79 3b 0a 20 st char *zKey;.
42f0: 20 69 6e 74 20 6e 4b 65 79 3b 0a 20 20 69 66 28 int nKey;. if(
4300: 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 argc!=3 ){.
4310: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
4320: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
4330: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
4340: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a e \"", argv[0],.
4350: 20 20 20 20 20 20 20 22 20 46 49 4c 45 4e 41 4d " FILENAM
4360: 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 E\"", 0);. re
4370: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
4380: 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 }. if( getDbP
4390: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 ointer(interp, a
43a0: 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 rgv[1], &db) ) r
43b0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
43c0: 0a 20 20 7a 4b 65 79 20 3d 20 61 72 67 76 5b 32 . zKey = argv[2
43d0: 5d 3b 0a 20 20 6e 4b 65 79 20 3d 20 73 74 72 6c ];. nKey = strl
43e0: 65 6e 28 7a 4b 65 79 29 3b 0a 23 69 66 64 65 66 en(zKey);.#ifdef
43f0: 20 53 51 4c 49 54 45 5f 48 41 53 5f 43 4f 44 45 SQLITE_HAS_CODE
4400: 43 0a 20 20 73 71 6c 69 74 65 33 5f 6b 65 79 28 C. sqlite3_key(
4410: 64 62 2c 20 7a 4b 65 79 2c 20 6e 4b 65 79 29 3b db, zKey, nKey);
4420: 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e .#endif. return
4430: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
4440: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
4450: 33 5f 72 65 6b 65 79 20 44 42 20 4b 45 59 0a 2a 3_rekey DB KEY.*
4460: 2a 0a 2a 2a 20 43 68 61 6e 67 65 20 74 68 65 20 *.** Change the
4470: 63 6f 64 65 63 20 6b 65 79 2e 0a 2a 2f 0a 73 74 codec key..*/.st
4480: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 72 65 atic int test_re
4490: 6b 65 79 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 key(. void *Not
44a0: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
44b0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
44c0: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
44d0: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
44e0: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
44f0: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
4500: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
4510: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
4520: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
4530: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
4540: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
4550: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
4560: 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 sqlite3 *db;. c
4570: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4b 65 79 3b onst char *zKey;
4580: 0a 20 20 69 6e 74 20 6e 4b 65 79 3b 0a 20 20 69 . int nKey;. i
4590: 66 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 f( argc!=3 ){.
45a0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
45b0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
45c0: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
45d0: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d be \"", argv[0]
45e0: 2c 0a 20 20 20 20 20 20 20 22 20 46 49 4c 45 4e ,. " FILEN
45f0: 41 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 AME\"", 0);.
4600: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4610: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 ;. }. if( getD
4620: 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c bPointer(interp,
4630: 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 argv[1], &db) )
4640: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
4650: 52 3b 0a 20 20 7a 4b 65 79 20 3d 20 61 72 67 76 R;. zKey = argv
4660: 5b 32 5d 3b 0a 20 20 6e 4b 65 79 20 3d 20 73 74 [2];. nKey = st
4670: 72 6c 65 6e 28 7a 4b 65 79 29 3b 0a 23 69 66 64 rlen(zKey);.#ifd
4680: 65 66 20 53 51 4c 49 54 45 5f 48 41 53 5f 43 4f ef SQLITE_HAS_CO
4690: 44 45 43 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 DEC. sqlite3_re
46a0: 6b 65 79 28 64 62 2c 20 7a 4b 65 79 2c 20 6e 4b key(db, zKey, nK
46b0: 65 79 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 ey);.#endif. re
46c0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
46d0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
46e0: 6c 69 74 65 33 5f 63 6c 6f 73 65 20 44 42 0a 2a lite3_close DB.*
46f0: 2a 0a 2a 2a 20 43 6c 6f 73 65 73 20 74 68 65 20 *.** Closes the
4700: 64 61 74 61 62 61 73 65 20 6f 70 65 6e 65 64 20 database opened
4710: 62 79 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 2e by sqlite3_open.
4720: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 .*/.static int s
4730: 71 6c 69 74 65 5f 74 65 73 74 5f 63 6c 6f 73 65 qlite_test_close
4740: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
4750: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
4760: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
4770: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
4780: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
4790: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
47a0: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
47b0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
47c0: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
47d0: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
47e0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
47f0: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
4800: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c ment */.){. sql
4810: 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 ite3 *db;. int
4820: 72 63 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d rc;. if( argc!=
4830: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
4840: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
4850: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
4860: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
4870: 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 argv[0],.
4880: 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 " FILENAME\"", 0
4890: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
48a0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
48b0: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
48c0: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
48d0: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
48e0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d CL_ERROR;. rc =
48f0: 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 64 sqlite3_close(d
4900: 62 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 b);. Tcl_SetRes
4910: 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 ult(interp, (cha
4920: 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 r *)t1ErrorName(
4930: 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 rc), TCL_STATIC)
4940: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
4950: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c K;.}../*.** Impl
4960: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 ementation of th
4970: 65 20 78 5f 63 6f 61 6c 65 73 63 65 28 29 20 66 e x_coalesce() f
4980: 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 20 52 65 74 75 unction..** Retu
4990: 72 6e 20 74 68 65 20 66 69 72 73 74 20 61 72 67 rn the first arg
49a0: 75 6d 65 6e 74 20 6e 6f 6e 2d 4e 55 4c 4c 20 61 ument non-NULL a
49b0: 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 rgument..*/.stat
49c0: 69 63 20 76 6f 69 64 20 74 31 5f 69 66 6e 75 6c ic void t1_ifnul
49d0: 6c 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 lFunc(. sqlite3
49e0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
49f0: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 t,. int argc,.
4a00: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
4a10: 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 *argv.){. int i
4a20: 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 ;. for(i=0; i<a
4a30: 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 rgc; i++){. i
4a40: 66 28 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 21 3d f( SQLITE_NULL!=
4a50: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 sqlite3_value_ty
4a60: 70 65 28 61 72 67 76 5b 69 5d 29 20 29 7b 0a 20 pe(argv[i]) ){.
4a70: 20 20 20 20 20 69 6e 74 20 6e 20 3d 20 73 71 6c int n = sql
4a80: 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 ite3_value_bytes
4a90: 28 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 20 (argv[i]);.
4aa0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
4ab0: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 63 text(context, (c
4ac0: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
4ad0: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 69 5d 29 ue_text(argv[i])
4ae0: 2c 0a 20 20 20 20 20 20 20 20 20 20 6e 2c 20 53 ,. n, S
4af0: 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 QLITE_TRANSIENT)
4b00: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
4b10: 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a }. }.}../*.*
4b20: 2a 20 54 68 65 73 65 20 61 72 65 20 74 65 73 74 * These are test
4b30: 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 20 20 68 functions. h
4b40: 65 78 38 28 29 20 69 6e 74 65 72 70 72 65 74 73 ex8() interprets
4b50: 20 69 74 73 20 61 72 67 75 6d 65 6e 74 20 61 73 its argument as
4b60: 0a 2a 2a 20 55 54 46 38 20 61 6e 64 20 72 65 74 .** UTF8 and ret
4b70: 75 72 6e 73 20 61 20 68 65 78 20 65 6e 63 6f 64 urns a hex encod
4b80: 69 6e 67 2e 20 20 68 65 78 31 36 6c 65 28 29 20 ing. hex16le()
4b90: 69 6e 74 65 72 70 72 65 74 73 20 69 74 73 20 61 interprets its a
4ba0: 72 67 75 6d 65 6e 74 0a 2a 2a 20 61 73 20 55 54 rgument.** as UT
4bb0: 46 31 36 6c 65 20 61 6e 64 20 72 65 74 75 72 6e F16le and return
4bc0: 73 20 61 20 68 65 78 20 65 6e 63 6f 64 69 6e 67 s a hex encoding
4bd0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
4be0: 20 68 65 78 38 46 75 6e 63 28 73 71 6c 69 74 65 hex8Func(sqlite
4bf0: 33 5f 63 6f 6e 74 65 78 74 20 2a 70 2c 20 69 6e 3_context *p, in
4c00: 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f t argc, sqlite3_
4c10: 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 value **argv){.
4c20: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
4c30: 63 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 char *z;. int i
4c40: 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 32 30 ;. char zBuf[20
4c50: 30 5d 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 0];. z = sqlite
4c60: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
4c70: 76 5b 30 5d 29 3b 0a 20 20 66 6f 72 28 69 3d 30 v[0]);. for(i=0
4c80: 3b 20 69 3c 73 69 7a 65 6f 66 28 7a 42 75 66 29 ; i<sizeof(zBuf)
4c90: 2f 32 20 2d 20 32 20 26 26 20 7a 5b 69 5d 3b 20 /2 - 2 && z[i];
4ca0: 69 2b 2b 29 7b 0a 20 20 20 20 73 70 72 69 6e 74 i++){. sprint
4cb0: 66 28 26 7a 42 75 66 5b 69 2a 32 5d 2c 20 22 25 f(&zBuf[i*2], "%
4cc0: 30 32 78 22 2c 20 7a 5b 69 5d 26 30 78 66 66 29 02x", z[i]&0xff)
4cd0: 3b 0a 20 20 7d 0a 20 20 7a 42 75 66 5b 69 2a 32 ;. }. zBuf[i*2
4ce0: 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 ] = 0;. sqlite3
4cf0: 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 70 2c 20 _result_text(p,
4d00: 28 63 68 61 72 2a 29 7a 42 75 66 2c 20 2d 31 2c (char*)zBuf, -1,
4d10: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e SQLITE_TRANSIEN
4d20: 54 29 3b 0a 7d 0a 23 69 66 6e 64 65 66 20 53 51 T);.}.#ifndef SQ
4d30: 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a LITE_OMIT_UTF16.
4d40: 73 74 61 74 69 63 20 76 6f 69 64 20 68 65 78 31 static void hex1
4d50: 36 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6Func(sqlite3_co
4d60: 6e 74 65 78 74 20 2a 70 2c 20 69 6e 74 20 61 72 ntext *p, int ar
4d70: 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 gc, sqlite3_valu
4d80: 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 6f 6e e **argv){. con
4d90: 73 74 20 75 6e 73 69 67 6e 65 64 20 73 68 6f 72 st unsigned shor
4da0: 74 20 69 6e 74 20 2a 7a 3b 0a 20 20 69 6e 74 20 t int *z;. int
4db0: 69 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 34 i;. char zBuf[4
4dc0: 30 30 5d 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 00];. z = sqlit
4dd0: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 e3_value_text16(
4de0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 66 6f 72 28 argv[0]);. for(
4df0: 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 7a 42 i=0; i<sizeof(zB
4e00: 75 66 29 2f 34 20 2d 20 34 20 26 26 20 7a 5b 69 uf)/4 - 4 && z[i
4e10: 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 73 70 72 ]; i++){. spr
4e20: 69 6e 74 66 28 26 7a 42 75 66 5b 69 2a 34 5d 2c intf(&zBuf[i*4],
4e30: 20 22 25 30 34 78 22 2c 20 7a 5b 69 5d 26 30 78 "%04x", z[i]&0x
4e40: 66 66 29 3b 0a 20 20 7d 0a 20 20 7a 42 75 66 5b ff);. }. zBuf[
4e50: 69 2a 34 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 i*4] = 0;. sqli
4e60: 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 te3_result_text(
4e70: 70 2c 20 28 63 68 61 72 2a 29 7a 42 75 66 2c 20 p, (char*)zBuf,
4e80: 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 -1, SQLITE_TRANS
4e90: 49 45 4e 54 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a IENT);.}.#endif.
4ea0: 0a 2f 2a 0a 2a 2a 20 41 20 73 74 72 75 63 74 75 ./*.** A structu
4eb0: 72 65 20 69 6e 74 6f 20 77 68 69 63 68 20 74 6f re into which to
4ec0: 20 61 63 63 75 6d 75 6c 61 74 65 20 74 65 78 74 accumulate text
4ed0: 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 64 73 74 72 ..*/.struct dstr
4ee0: 20 7b 0a 20 20 69 6e 74 20 6e 41 6c 6c 6f 63 3b {. int nAlloc;
4ef0: 20 20 2f 2a 20 53 70 61 63 65 20 61 6c 6c 6f 63 /* Space alloc
4f00: 61 74 65 64 20 2a 2f 0a 20 20 69 6e 74 20 6e 55 ated */. int nU
4f10: 73 65 64 3b 20 20 20 2f 2a 20 53 70 61 63 65 20 sed; /* Space
4f20: 75 73 65 64 20 2a 2f 0a 20 20 63 68 61 72 20 2a used */. char *
4f30: 7a 3b 20 20 20 20 20 2f 2a 20 54 68 65 20 73 70 z; /* The sp
4f40: 61 63 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a ace */.};../*.**
4f50: 20 41 70 70 65 6e 64 20 74 65 78 74 20 74 6f 20 Append text to
4f60: 61 20 64 73 74 72 0a 2a 2f 0a 73 74 61 74 69 63 a dstr.*/.static
4f70: 20 76 6f 69 64 20 64 73 74 72 41 70 70 65 6e 64 void dstrAppend
4f80: 28 73 74 72 75 63 74 20 64 73 74 72 20 2a 70 2c (struct dstr *p,
4f90: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c 20 const char *z,
4fa0: 69 6e 74 20 64 69 76 69 64 65 72 29 7b 0a 20 20 int divider){.
4fb0: 69 6e 74 20 6e 20 3d 20 73 74 72 6c 65 6e 28 7a int n = strlen(z
4fc0: 29 3b 0a 20 20 69 66 28 20 70 2d 3e 6e 55 73 65 );. if( p->nUse
4fd0: 64 20 2b 20 6e 20 2b 20 32 20 3e 20 70 2d 3e 6e d + n + 2 > p->n
4fe0: 41 6c 6c 6f 63 20 29 7b 0a 20 20 20 20 63 68 61 Alloc ){. cha
4ff0: 72 20 2a 7a 4e 65 77 3b 0a 20 20 20 20 70 2d 3e r *zNew;. p->
5000: 6e 41 6c 6c 6f 63 20 3d 20 70 2d 3e 6e 41 6c 6c nAlloc = p->nAll
5010: 6f 63 2a 32 20 2b 20 6e 20 2b 20 32 30 30 3b 0a oc*2 + n + 200;.
5020: 20 20 20 20 7a 4e 65 77 20 3d 20 73 71 6c 69 74 zNew = sqlit
5030: 65 33 5f 72 65 61 6c 6c 6f 63 28 70 2d 3e 7a 2c e3_realloc(p->z,
5040: 20 70 2d 3e 6e 41 6c 6c 6f 63 29 3b 0a 20 20 20 p->nAlloc);.
5050: 20 69 66 28 20 7a 4e 65 77 3d 3d 30 20 29 7b 0a if( zNew==0 ){.
5060: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 sqlite3_fr
5070: 65 65 28 70 2d 3e 7a 29 3b 0a 20 20 20 20 20 20 ee(p->z);.
5080: 6d 65 6d 73 65 74 28 70 2c 20 30 2c 20 73 69 7a memset(p, 0, siz
5090: 65 6f 66 28 2a 70 29 29 3b 0a 20 20 20 20 20 20 eof(*p));.
50a0: 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 return;. }.
50b0: 20 20 70 2d 3e 7a 20 3d 20 7a 4e 65 77 3b 0a 20 p->z = zNew;.
50c0: 20 7d 0a 20 20 69 66 28 20 64 69 76 69 64 65 72 }. if( divider
50d0: 20 26 26 20 70 2d 3e 6e 55 73 65 64 3e 30 20 29 && p->nUsed>0 )
50e0: 7b 0a 20 20 20 20 70 2d 3e 7a 5b 70 2d 3e 6e 55 {. p->z[p->nU
50f0: 73 65 64 2b 2b 5d 20 3d 20 64 69 76 69 64 65 72 sed++] = divider
5100: 3b 0a 20 20 7d 0a 20 20 6d 65 6d 63 70 79 28 26 ;. }. memcpy(&
5110: 70 2d 3e 7a 5b 70 2d 3e 6e 55 73 65 64 5d 2c 20 p->z[p->nUsed],
5120: 7a 2c 20 6e 2b 31 29 3b 0a 20 20 70 2d 3e 6e 55 z, n+1);. p->nU
5130: 73 65 64 20 2b 3d 20 6e 3b 0a 7d 0a 0a 2f 2a 0a sed += n;.}../*.
5140: 2a 2a 20 49 6e 76 6f 6b 65 64 20 66 6f 72 20 65 ** Invoked for e
5150: 61 63 68 20 63 61 6c 6c 62 61 63 6b 20 66 72 6f ach callback fro
5160: 6d 20 73 71 6c 69 74 65 33 45 78 65 63 46 75 6e m sqlite3ExecFun
5170: 63 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 c.*/.static int
5180: 65 78 65 63 46 75 6e 63 43 61 6c 6c 62 61 63 6b execFuncCallback
5190: 28 76 6f 69 64 20 2a 70 44 61 74 61 2c 20 69 6e (void *pData, in
51a0: 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 t argc, char **a
51b0: 72 67 76 2c 20 63 68 61 72 20 2a 2a 4e 6f 74 55 rgv, char **NotU
51c0: 73 65 64 29 7b 0a 20 20 73 74 72 75 63 74 20 64 sed){. struct d
51d0: 73 74 72 20 2a 70 20 3d 20 28 73 74 72 75 63 74 str *p = (struct
51e0: 20 64 73 74 72 2a 29 70 44 61 74 61 3b 0a 20 20 dstr*)pData;.
51f0: 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d 30 int i;. for(i=0
5200: 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a ; i<argc; i++){.
5210: 20 20 20 20 69 66 28 20 61 72 67 76 5b 69 5d 3d if( argv[i]=
5220: 3d 30 20 29 7b 0a 20 20 20 20 20 20 64 73 74 72 =0 ){. dstr
5230: 41 70 70 65 6e 64 28 70 2c 20 22 4e 55 4c 4c 22 Append(p, "NULL"
5240: 2c 20 27 20 27 29 3b 0a 20 20 20 20 7d 65 6c 73 , ' ');. }els
5250: 65 7b 0a 20 20 20 20 20 20 64 73 74 72 41 70 70 e{. dstrApp
5260: 65 6e 64 28 70 2c 20 61 72 67 76 5b 69 5d 2c 20 end(p, argv[i],
5270: 27 20 27 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a ' ');. }. }.
5280: 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f return 0;.}../
5290: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 *.** Implementat
52a0: 69 6f 6e 20 6f 66 20 74 68 65 20 78 5f 73 71 6c ion of the x_sql
52b0: 69 74 65 5f 65 78 65 63 28 29 20 66 75 6e 63 74 ite_exec() funct
52c0: 69 6f 6e 2e 20 20 54 68 69 73 20 66 75 6e 63 74 ion. This funct
52d0: 69 6f 6e 20 74 61 6b 65 73 0a 2a 2a 20 61 20 73 ion takes.** a s
52e0: 69 6e 67 6c 65 20 61 72 67 75 6d 65 6e 74 20 61 ingle argument a
52f0: 6e 64 20 61 74 74 65 6d 70 74 73 20 74 6f 20 65 nd attempts to e
5300: 78 65 63 75 74 65 20 74 68 61 74 20 61 72 67 75 xecute that argu
5310: 6d 65 6e 74 20 61 73 20 53 51 4c 20 63 6f 64 65 ment as SQL code
5320: 2e 0a 2a 2a 20 54 68 69 73 20 69 73 20 69 6c 6c ..** This is ill
5330: 65 67 61 6c 20 61 6e 64 20 73 68 6f 75 6c 64 20 egal and should
5340: 73 65 74 20 74 68 65 20 53 51 4c 49 54 45 5f 4d set the SQLITE_M
5350: 49 53 55 53 45 20 66 6c 61 67 20 6f 6e 20 74 68 ISUSE flag on th
5360: 65 20 64 61 74 61 62 61 73 65 2e 0a 2a 2a 0a 2a e database..**.*
5370: 2a 20 32 30 30 34 2d 4a 61 6e 2d 30 37 3a 20 20 * 2004-Jan-07:
5380: 57 65 20 68 61 76 65 20 63 68 61 6e 67 65 64 20 We have changed
5390: 74 68 69 73 20 74 6f 20 6d 61 6b 65 20 69 74 20 this to make it
53a0: 6c 65 67 61 6c 20 74 6f 20 63 61 6c 6c 20 73 71 legal to call sq
53b0: 6c 69 74 65 33 5f 65 78 65 63 28 29 0a 2a 2a 20 lite3_exec().**
53c0: 66 72 6f 6d 20 77 69 74 68 69 6e 20 61 20 66 75 from within a fu
53d0: 6e 63 74 69 6f 6e 20 63 61 6c 6c 2e 20 20 0a 2a nction call. .*
53e0: 2a 20 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 * .** This routi
53f0: 6e 65 20 73 69 6d 75 6c 61 74 65 73 20 74 68 65 ne simulates the
5400: 20 65 66 66 65 63 74 20 6f 66 20 68 61 76 69 6e effect of havin
5410: 67 20 74 77 6f 20 74 68 72 65 61 64 73 20 61 74 g two threads at
5420: 74 65 6d 70 74 20 74 6f 0a 2a 2a 20 75 73 65 20 tempt to.** use
5430: 74 68 65 20 73 61 6d 65 20 64 61 74 61 62 61 73 the same databas
5440: 65 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 e at the same ti
5450: 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f me..*/.static vo
5460: 69 64 20 73 71 6c 69 74 65 33 45 78 65 63 46 75 id sqlite3ExecFu
5470: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f nc(. sqlite3_co
5480: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 ntext *context,
5490: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 0a 20 . int argc, .
54a0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
54b0: 2a 61 72 67 76 0a 29 7b 0a 20 20 73 74 72 75 63 *argv.){. struc
54c0: 74 20 64 73 74 72 20 78 3b 0a 20 20 6d 65 6d 73 t dstr x;. mems
54d0: 65 74 28 26 78 2c 20 30 2c 20 73 69 7a 65 6f 66 et(&x, 0, sizeof
54e0: 28 78 29 29 3b 0a 20 20 28 76 6f 69 64 29 73 71 (x));. (void)sq
54f0: 6c 69 74 65 33 5f 65 78 65 63 28 28 73 71 6c 69 lite3_exec((sqli
5500: 74 65 33 2a 29 73 71 6c 69 74 65 33 5f 75 73 65 te3*)sqlite3_use
5510: 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 2c r_data(context),
5520: 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 73 71 . (char*)sq
5530: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
5540: 28 61 72 67 76 5b 30 5d 29 2c 0a 20 20 20 20 20 (argv[0]),.
5550: 20 65 78 65 63 46 75 6e 63 43 61 6c 6c 62 61 63 execFuncCallbac
5560: 6b 2c 20 26 78 2c 20 30 29 3b 0a 20 20 73 71 6c k, &x, 0);. sql
5570: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
5580: 28 63 6f 6e 74 65 78 74 2c 20 78 2e 7a 2c 20 78 (context, x.z, x
5590: 2e 6e 55 73 65 64 2c 20 53 51 4c 49 54 45 5f 54 .nUsed, SQLITE_T
55a0: 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 73 71 6c RANSIENT);. sql
55b0: 69 74 65 33 5f 66 72 65 65 28 78 2e 7a 29 3b 0a ite3_free(x.z);.
55c0: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 }../*.** Impleme
55d0: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 6b 74 32 32 ntation of tkt22
55e0: 31 33 66 75 6e 63 28 29 2c 20 61 20 73 63 61 6c 13func(), a scal
55f0: 61 72 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 ar function that
5600: 20 74 61 6b 65 73 20 65 78 61 63 74 6c 79 0a 2a takes exactly.*
5610: 2a 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2e 20 * one argument.
5620: 49 74 20 68 61 73 20 74 77 6f 20 69 6e 74 65 72 It has two inter
5630: 65 73 74 69 6e 67 20 66 65 61 74 75 72 65 73 3a esting features:
5640: 0a 2a 2a 0a 2a 2a 20 2a 20 49 74 20 63 61 6c 6c .**.** * It call
5650: 73 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f s sqlite3_value_
5660: 74 65 78 74 28 29 20 33 20 74 69 6d 65 73 20 6f text() 3 times o
5670: 6e 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 73 n the argument s
5680: 71 6c 69 74 65 33 5f 76 61 6c 75 65 2a 2e 0a 2a qlite3_value*..*
5690: 2a 20 20 20 49 66 20 74 68 65 20 74 68 72 65 65 * If the three
56a0: 20 70 6f 69 6e 74 65 72 73 20 72 65 74 75 72 6e pointers return
56b0: 65 64 20 61 72 65 20 6e 6f 74 20 74 68 65 20 73 ed are not the s
56c0: 61 6d 65 20 61 6e 20 53 51 4c 20 65 72 72 6f 72 ame an SQL error
56d0: 20 69 73 20 72 61 69 73 65 64 2e 0a 2a 2a 0a 2a is raised..**.*
56e0: 2a 20 2a 20 4f 74 68 65 72 77 69 73 65 20 69 74 * * Otherwise it
56f0: 20 72 65 74 75 72 6e 73 20 61 20 63 6f 70 79 20 returns a copy
5700: 6f 66 20 74 68 65 20 74 65 78 74 20 72 65 70 72 of the text repr
5710: 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 69 74 esentation of it
5720: 27 73 20 0a 2a 2a 20 20 20 61 72 67 75 6d 65 6e 's .** argumen
5730: 74 20 69 6e 20 73 75 63 68 20 61 20 77 61 79 20 t in such a way
5740: 61 73 20 74 68 65 20 56 44 42 45 20 72 65 70 72 as the VDBE repr
5750: 65 73 65 6e 74 61 74 69 6f 6e 20 69 73 20 61 20 esentation is a
5760: 4d 65 6d 2a 20 63 65 6c 6c 20 0a 2a 2a 20 20 20 Mem* cell .**
5770: 77 69 74 68 20 74 68 65 20 4d 45 4d 5f 54 65 72 with the MEM_Ter
5780: 6d 20 66 6c 61 67 20 63 6c 65 61 72 2e 20 0a 2a m flag clear. .*
5790: 2a 0a 2a 2a 20 54 69 63 6b 65 74 20 23 32 32 31 *.** Ticket #221
57a0: 33 20 63 61 6e 20 74 68 65 72 65 66 6f 72 65 20 3 can therefore
57b0: 62 65 20 74 65 73 74 65 64 20 62 79 20 65 76 61 be tested by eva
57c0: 6c 75 61 74 69 6e 67 20 74 68 65 20 66 6f 6c 6c luating the foll
57d0: 6f 77 69 6e 67 0a 2a 2a 20 53 51 4c 20 65 78 70 owing.** SQL exp
57e0: 72 65 73 73 69 6f 6e 3a 0a 2a 2a 0a 2a 2a 20 20 ression:.**.**
57f0: 20 74 6b 74 32 32 31 33 66 75 6e 63 28 74 6b 74 tkt2213func(tkt
5800: 32 32 31 33 66 75 6e 63 28 27 61 20 73 74 72 69 2213func('a stri
5810: 6e 67 27 29 29 3b 0a 2a 2f 0a 73 74 61 74 69 63 ng'));.*/.static
5820: 20 76 6f 69 64 20 74 6b 74 32 32 31 33 46 75 6e void tkt2213Fun
5830: 63 74 69 6f 6e 28 0a 20 20 73 71 6c 69 74 65 33 ction(. sqlite3
5840: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
5850: 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 t, . int argc,
5860: 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 . sqlite3_valu
5870: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e e **argv.){. in
5880: 74 20 6e 54 65 78 74 3b 0a 20 20 75 6e 73 69 67 t nText;. unsig
5890: 6e 65 64 20 63 68 61 72 20 63 6f 6e 73 74 20 2a ned char const *
58a0: 7a 54 65 78 74 31 3b 0a 20 20 75 6e 73 69 67 6e zText1;. unsign
58b0: 65 64 20 63 68 61 72 20 63 6f 6e 73 74 20 2a 7a ed char const *z
58c0: 54 65 78 74 32 3b 0a 20 20 75 6e 73 69 67 6e 65 Text2;. unsigne
58d0: 64 20 63 68 61 72 20 63 6f 6e 73 74 20 2a 7a 54 d char const *zT
58e0: 65 78 74 33 3b 0a 0a 20 20 6e 54 65 78 74 20 3d ext3;.. nText =
58f0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 sqlite3_value_b
5900: 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 ytes(argv[0]);.
5910: 20 7a 54 65 78 74 31 20 3d 20 73 71 6c 69 74 65 zText1 = sqlite
5920: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
5930: 76 5b 30 5d 29 3b 0a 20 20 7a 54 65 78 74 32 20 v[0]);. zText2
5940: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
5950: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 text(argv[0]);.
5960: 20 7a 54 65 78 74 33 20 3d 20 73 71 6c 69 74 65 zText3 = sqlite
5970: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
5980: 76 5b 30 5d 29 3b 0a 0a 20 20 69 66 28 20 7a 54 v[0]);.. if( zT
5990: 65 78 74 31 21 3d 7a 54 65 78 74 32 20 7c 7c 20 ext1!=zText2 ||
59a0: 7a 54 65 78 74 32 21 3d 7a 54 65 78 74 33 20 29 zText2!=zText3 )
59b0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 {. sqlite3_re
59c0: 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 sult_error(conte
59d0: 78 74 2c 20 22 74 6b 74 32 32 31 33 20 69 73 20 xt, "tkt2213 is
59e0: 6e 6f 74 20 66 69 78 65 64 22 2c 20 2d 31 29 3b not fixed", -1);
59f0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 63 68 . }else{. ch
5a00: 61 72 20 2a 7a 43 6f 70 79 20 3d 20 28 63 68 61 ar *zCopy = (cha
5a10: 72 20 2a 29 73 71 6c 69 74 65 33 5f 6d 61 6c 6c r *)sqlite3_mall
5a20: 6f 63 28 6e 54 65 78 74 29 3b 0a 20 20 20 20 6d oc(nText);. m
5a30: 65 6d 63 70 79 28 7a 43 6f 70 79 2c 20 7a 54 65 emcpy(zCopy, zTe
5a40: 78 74 31 2c 20 6e 54 65 78 74 29 3b 0a 20 20 20 xt1, nText);.
5a50: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
5a60: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 43 text(context, zC
5a70: 6f 70 79 2c 20 6e 54 65 78 74 2c 20 73 71 6c 69 opy, nText, sqli
5a80: 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 7d 0a 7d te3_free);. }.}
5a90: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c ../*.** The foll
5aa0: 6f 77 69 6e 67 20 53 51 4c 20 66 75 6e 63 74 69 owing SQL functi
5ab0: 6f 6e 20 74 61 6b 65 73 20 34 20 61 72 67 75 6d on takes 4 argum
5ac0: 65 6e 74 73 2e 20 20 54 68 65 20 32 6e 64 20 61 ents. The 2nd a
5ad0: 6e 64 0a 2a 2a 20 34 74 68 20 61 72 67 75 6d 65 nd.** 4th argume
5ae0: 6e 74 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f nt must be one o
5af0: 66 20 74 68 65 73 65 20 73 74 72 69 6e 67 73 3a f these strings:
5b00: 20 20 27 74 65 78 74 27 2c 20 27 74 65 78 74 31 'text', 'text1
5b10: 36 27 2c 0a 2a 2a 20 6f 72 20 27 62 6c 6f 62 27 6',.** or 'blob'
5b20: 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 corresponding t
5b30: 6f 20 41 50 49 20 66 75 6e 63 74 69 6f 6e 73 0a o API functions.
5b40: 2a 2a 0a 2a 2a 20 20 20 20 20 20 73 71 6c 69 74 **.** sqlit
5b50: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 29 0a e3_value_text().
5b60: 2a 2a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f ** sqlite3_
5b70: 76 61 6c 75 65 5f 74 65 78 74 31 36 28 29 0a 2a value_text16().*
5b80: 2a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 76 * sqlite3_v
5b90: 61 6c 75 65 5f 62 6c 6f 62 28 29 0a 2a 2a 0a 2a alue_blob().**.*
5ba0: 2a 20 54 68 65 20 74 68 69 72 64 20 61 72 67 75 * The third argu
5bb0: 6d 65 6e 74 20 69 73 20 61 20 73 74 72 69 6e 67 ment is a string
5bc0: 2c 20 65 69 74 68 65 72 20 27 62 79 74 65 73 27 , either 'bytes'
5bd0: 20 6f 72 20 27 62 79 74 65 73 31 36 27 20 6f 72 or 'bytes16' or
5be0: 20 27 6e 6f 6f 70 27 2c 0a 2a 2a 20 63 6f 72 72 'noop',.** corr
5bf0: 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 41 50 49 esponding to API
5c00: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 73 71 s:.**.** sq
5c10: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 lite3_value_byte
5c20: 73 28 29 0a 2a 2a 20 20 20 20 20 20 73 71 6c 69 s().** sqli
5c30: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 31 te3_value_bytes1
5c40: 36 28 29 0a 2a 2a 20 20 20 20 20 20 6e 6f 6f 70 6().** noop
5c50: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 41 50 49 73 20 .**.** The APIs
5c60: 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 74 68 designated by th
5c70: 65 20 32 6e 64 20 74 68 72 6f 75 67 68 20 34 74 e 2nd through 4t
5c80: 68 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 h arguments are
5c90: 61 70 70 6c 69 65 64 0a 2a 2a 20 74 6f 20 74 68 applied.** to th
5ca0: 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 e first argument
5cb0: 20 69 6e 20 6f 72 64 65 72 2e 20 20 49 66 20 74 in order. If t
5cc0: 68 65 20 70 6f 69 6e 74 65 72 73 20 72 65 74 75 he pointers retu
5cd0: 72 6e 65 64 20 62 79 20 74 68 65 0a 2a 2a 20 73 rned by the.** s
5ce0: 65 63 6f 6e 64 20 61 6e 64 20 66 6f 75 72 74 68 econd and fourth
5cf0: 20 61 72 65 20 64 69 66 66 65 72 65 6e 74 2c 20 are different,
5d00: 74 68 69 73 20 72 6f 75 74 69 6e 65 20 72 65 74 this routine ret
5d10: 75 72 6e 73 20 31 2e 20 20 4f 74 68 65 72 77 69 urns 1. Otherwi
5d20: 73 65 2c 0a 2a 2a 20 74 68 69 73 20 72 6f 75 74 se,.** this rout
5d30: 69 6e 65 20 72 65 74 75 72 6e 73 20 30 2e 0a 2a ine returns 0..*
5d40: 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 *.** This functi
5d50: 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 74 65 on is used to te
5d60: 73 74 20 74 6f 20 73 65 65 20 77 68 65 6e 20 72 st to see when r
5d70: 65 74 75 72 6e 65 64 20 70 6f 69 6e 74 65 72 73 eturned pointers
5d80: 20 66 72 6f 6d 0a 2a 2a 20 74 68 65 20 5f 74 65 from.** the _te
5d90: 78 74 28 29 2c 20 5f 74 65 78 74 31 36 28 29 20 xt(), _text16()
5da0: 61 6e 64 20 5f 62 6c 6f 62 28 29 20 41 50 49 73 and _blob() APIs
5db0: 20 62 65 63 6f 6d 65 20 69 6e 76 61 6c 69 64 61 become invalida
5dc0: 74 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ted..*/.static v
5dd0: 6f 69 64 20 70 74 72 43 68 6e 67 46 75 6e 63 74 oid ptrChngFunct
5de0: 69 6f 6e 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 ion(. sqlite3_c
5df0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
5e00: 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 0a . int argc, .
5e10: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
5e20: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 **argv.){. cons
5e30: 74 20 76 6f 69 64 20 2a 70 31 2c 20 2a 70 32 3b t void *p1, *p2;
5e40: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
5e50: 43 6d 64 3b 0a 20 20 69 66 28 20 61 72 67 63 21 Cmd;. if( argc!
5e60: 3d 34 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 7a =4 ) return;. z
5e70: 43 6d 64 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 Cmd = (const cha
5e80: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 r*)sqlite3_value
5e90: 5f 74 65 78 74 28 61 72 67 76 5b 31 5d 29 3b 0a _text(argv[1]);.
5ea0: 20 20 69 66 28 20 7a 43 6d 64 3d 3d 30 20 29 20 if( zCmd==0 )
5eb0: 72 65 74 75 72 6e 3b 0a 20 20 69 66 28 20 73 74 return;. if( st
5ec0: 72 63 6d 70 28 7a 43 6d 64 2c 22 74 65 78 74 22 rcmp(zCmd,"text"
5ed0: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 70 31 20 3d )==0 ){. p1 =
5ee0: 20 28 63 6f 6e 73 74 20 76 6f 69 64 2a 29 73 71 (const void*)sq
5ef0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
5f00: 28 61 72 67 76 5b 30 5d 29 3b 0a 23 69 66 6e 64 (argv[0]);.#ifnd
5f10: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 ef SQLITE_OMIT_U
5f20: 54 46 31 36 0a 20 20 7d 65 6c 73 65 20 69 66 28 TF16. }else if(
5f30: 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c 20 22 74 strcmp(zCmd, "t
5f40: 65 78 74 31 36 22 29 3d 3d 30 20 29 7b 0a 20 20 ext16")==0 ){.
5f50: 20 20 70 31 20 3d 20 28 63 6f 6e 73 74 20 76 6f p1 = (const vo
5f60: 69 64 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 id*)sqlite3_valu
5f70: 65 5f 74 65 78 74 31 36 28 61 72 67 76 5b 30 5d e_text16(argv[0]
5f80: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 7d 65 6c 73 );.#endif. }els
5f90: 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a 43 6d e if( strcmp(zCm
5fa0: 64 2c 20 22 62 6c 6f 62 22 29 3d 3d 30 20 29 7b d, "blob")==0 ){
5fb0: 0a 20 20 20 20 70 31 20 3d 20 28 63 6f 6e 73 74 . p1 = (const
5fc0: 20 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 76 void*)sqlite3_v
5fd0: 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 alue_blob(argv[0
5fe0: 5d 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ]);. }else{.
5ff0: 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 7a return;. }. z
6000: 43 6d 64 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 Cmd = (const cha
6010: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 r*)sqlite3_value
6020: 5f 74 65 78 74 28 61 72 67 76 5b 32 5d 29 3b 0a _text(argv[2]);.
6030: 20 20 69 66 28 20 7a 43 6d 64 3d 3d 30 20 29 20 if( zCmd==0 )
6040: 72 65 74 75 72 6e 3b 0a 20 20 69 66 28 20 73 74 return;. if( st
6050: 72 63 6d 70 28 7a 43 6d 64 2c 22 62 79 74 65 73 rcmp(zCmd,"bytes
6060: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c ")==0 ){. sql
6070: 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 ite3_value_bytes
6080: 28 61 72 67 76 5b 30 5d 29 3b 0a 23 69 66 6e 64 (argv[0]);.#ifnd
6090: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 ef SQLITE_OMIT_U
60a0: 54 46 31 36 0a 20 20 7d 65 6c 73 65 20 69 66 28 TF16. }else if(
60b0: 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c 20 22 62 strcmp(zCmd, "b
60c0: 79 74 65 73 31 36 22 29 3d 3d 30 20 29 7b 0a 20 ytes16")==0 ){.
60d0: 20 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 sqlite3_value
60e0: 5f 62 79 74 65 73 31 36 28 61 72 67 76 5b 30 5d _bytes16(argv[0]
60f0: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 7d 65 6c 73 );.#endif. }els
6100: 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a 43 6d e if( strcmp(zCm
6110: 64 2c 20 22 6e 6f 6f 70 22 29 3d 3d 30 20 29 7b d, "noop")==0 ){
6120: 0a 20 20 20 20 2f 2a 20 64 6f 20 6e 6f 74 68 69 . /* do nothi
6130: 6e 67 20 2a 2f 0a 20 20 7d 65 6c 73 65 7b 0a 20 ng */. }else{.
6140: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 return;. }.
6150: 20 7a 43 6d 64 20 3d 20 28 63 6f 6e 73 74 20 63 zCmd = (const c
6160: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
6170: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 33 5d 29 ue_text(argv[3])
6180: 3b 0a 20 20 69 66 28 20 7a 43 6d 64 3d 3d 30 20 ;. if( zCmd==0
6190: 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 66 28 20 ) return;. if(
61a0: 73 74 72 63 6d 70 28 7a 43 6d 64 2c 22 74 65 78 strcmp(zCmd,"tex
61b0: 74 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 70 32 t")==0 ){. p2
61c0: 20 3d 20 28 63 6f 6e 73 74 20 76 6f 69 64 2a 29 = (const void*)
61d0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
61e0: 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 23 69 66 xt(argv[0]);.#if
61f0: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 ndef SQLITE_OMIT
6200: 5f 55 54 46 31 36 0a 20 20 7d 65 6c 73 65 20 69 _UTF16. }else i
6210: 66 28 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c 20 f( strcmp(zCmd,
6220: 22 74 65 78 74 31 36 22 29 3d 3d 30 20 29 7b 0a "text16")==0 ){.
6230: 20 20 20 20 70 32 20 3d 20 28 63 6f 6e 73 74 20 p2 = (const
6240: 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 76 61 void*)sqlite3_va
6250: 6c 75 65 5f 74 65 78 74 31 36 28 61 72 67 76 5b lue_text16(argv[
6260: 30 5d 29 3b 0a 23 65 6e 64 69 66 0a 20 20 7d 65 0]);.#endif. }e
6270: 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a lse if( strcmp(z
6280: 43 6d 64 2c 20 22 62 6c 6f 62 22 29 3d 3d 30 20 Cmd, "blob")==0
6290: 29 7b 0a 20 20 20 20 70 32 20 3d 20 28 63 6f 6e ){. p2 = (con
62a0: 73 74 20 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 st void*)sqlite3
62b0: 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 _value_blob(argv
62c0: 5b 30 5d 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 [0]);. }else{.
62d0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 return;. }.
62e0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
62f0: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 70 31 21 int(context, p1!
6300: 3d 70 32 29 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 =p2);.}.../*.**
6310: 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 5f 74 Usage: sqlite_t
6320: 65 73 74 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 est_create_funct
6330: 69 6f 6e 20 44 42 0a 2a 2a 0a 2a 2a 20 43 61 6c ion DB.**.** Cal
6340: 6c 20 74 68 65 20 73 71 6c 69 74 65 33 5f 63 72 l the sqlite3_cr
6350: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 41 50 eate_function AP
6360: 49 20 6f 6e 20 74 68 65 20 67 69 76 65 6e 20 64 I on the given d
6370: 61 74 61 62 61 73 65 20 69 6e 20 6f 72 64 65 72 atabase in order
6380: 0a 2a 2a 20 74 6f 20 63 72 65 61 74 65 20 61 20 .** to create a
6390: 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 64 20 22 function named "
63a0: 78 5f 63 6f 61 6c 65 73 63 65 22 2e 20 20 54 68 x_coalesce". Th
63b0: 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 is function does
63c0: 20 74 68 65 20 73 61 6d 65 20 74 68 69 6e 67 0a the same thing.
63d0: 2a 2a 20 61 73 20 74 68 65 20 22 63 6f 61 6c 65 ** as the "coale
63e0: 73 63 65 22 20 66 75 6e 63 74 69 6f 6e 2e 20 20 sce" function.
63f0: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 61 6c This function al
6400: 73 6f 20 72 65 67 69 73 74 65 72 73 20 61 6e 20 so registers an
6410: 53 51 4c 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 SQL function.**
6420: 6e 61 6d 65 64 20 22 78 5f 73 71 6c 69 74 65 5f named "x_sqlite_
6430: 65 78 65 63 22 20 74 68 61 74 20 69 6e 76 6f 6b exec" that invok
6440: 65 73 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28 es sqlite3_exec(
6450: 29 2e 20 20 49 6e 76 6f 6b 69 6e 67 20 73 71 6c ). Invoking sql
6460: 69 74 65 33 5f 65 78 65 63 28 29 0a 2a 2a 20 69 ite3_exec().** i
6470: 6e 20 74 68 69 73 20 77 61 79 20 69 73 20 69 6c n this way is il
6480: 6c 65 67 61 6c 20 72 65 63 75 72 73 69 6f 6e 20 legal recursion
6490: 61 6e 64 20 73 68 6f 75 6c 64 20 72 61 69 73 65 and should raise
64a0: 20 61 6e 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 an SQLITE_MISUS
64b0: 45 20 65 72 72 6f 72 2e 0a 2a 2a 20 54 68 65 20 E error..** The
64c0: 65 66 66 65 63 74 20 69 73 20 73 69 6d 69 6c 61 effect is simila
64d0: 72 20 74 6f 20 74 72 79 69 6e 67 20 74 6f 20 75 r to trying to u
64e0: 73 65 20 74 68 65 20 73 61 6d 65 20 64 61 74 61 se the same data
64f0: 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 base connection
6500: 66 72 6f 6d 0a 2a 2a 20 74 77 6f 20 74 68 72 65 from.** two thre
6510: 61 64 73 20 61 74 20 74 68 65 20 73 61 6d 65 20 ads at the same
6520: 74 69 6d 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 time..**.** The
6530: 6f 72 69 67 69 6e 61 6c 20 6d 6f 74 69 76 61 74 original motivat
6540: 69 6f 6e 20 66 6f 72 20 74 68 69 73 20 72 6f 75 ion for this rou
6550: 74 69 6e 65 20 77 61 73 20 74 6f 20 62 65 20 61 tine was to be a
6560: 62 6c 65 20 74 6f 20 63 61 6c 6c 20 74 68 65 0a ble to call the.
6570: 2a 2a 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 ** sqlite3_creat
6580: 65 5f 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 e_function funct
6590: 69 6f 6e 20 77 68 69 6c 65 20 61 20 71 75 65 72 ion while a quer
65a0: 79 20 69 73 20 69 6e 20 70 72 6f 67 72 65 73 73 y is in progress
65b0: 20 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 in order.** to
65c0: 74 65 73 74 20 74 68 65 20 53 51 4c 49 54 45 5f test the SQLITE_
65d0: 4d 49 53 55 53 45 20 64 65 74 65 63 74 69 6f 6e MISUSE detection
65e0: 20 6c 6f 67 69 63 2e 0a 2a 2f 0a 73 74 61 74 69 logic..*/.stati
65f0: 63 20 69 6e 74 20 74 65 73 74 5f 63 72 65 61 74 c int test_creat
6600: 65 5f 66 75 6e 63 74 69 6f 6e 28 0a 20 20 76 6f e_function(. vo
6610: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
6620: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
6630: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
6640: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
6650: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
6660: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
6670: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
6680: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
6690: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
66a0: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
66b0: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
66c0: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
66d0: 2f 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 /.){. int rc;.
66e0: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
66f0: 65 78 74 65 72 6e 20 76 6f 69 64 20 4d 64 35 5f extern void Md5_
6700: 52 65 67 69 73 74 65 72 28 73 71 6c 69 74 65 33 Register(sqlite3
6710: 2a 29 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21 *);.. if( argc!
6720: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
6730: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
6740: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
6750: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
6760: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
6770: 20 22 20 44 42 5c 22 22 2c 20 30 29 3b 0a 20 20 " DB\"", 0);.
6780: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
6790: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
67a0: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
67b0: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
67c0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
67d0: 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 ROR;. rc = sqli
67e0: 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 te3_create_funct
67f0: 69 6f 6e 28 64 62 2c 20 22 78 5f 63 6f 61 6c 65 ion(db, "x_coale
6800: 73 63 65 22 2c 20 2d 31 2c 20 53 51 4c 49 54 45 sce", -1, SQLITE
6810: 5f 41 4e 59 2c 20 30 2c 20 0a 20 20 20 20 20 20 _ANY, 0, .
6820: 20 20 74 31 5f 69 66 6e 75 6c 6c 46 75 6e 63 2c t1_ifnullFunc,
6830: 20 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63 0, 0);. if( rc
6840: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 ==SQLITE_OK ){.
6850: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
6860: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 create_function(
6870: 64 62 2c 20 22 68 65 78 38 22 2c 20 31 2c 20 53 db, "hex8", 1, S
6880: 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 20 0a 20 QLITE_ANY, 0, .
6890: 20 20 20 20 20 20 20 20 20 68 65 78 38 46 75 6e hex8Fun
68a0: 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 23 69 c, 0, 0);. }.#i
68b0: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
68c0: 54 5f 55 54 46 31 36 0a 20 20 69 66 28 20 72 63 T_UTF16. if( rc
68d0: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 ==SQLITE_OK ){.
68e0: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
68f0: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 create_function(
6900: 64 62 2c 20 22 68 65 78 31 36 22 2c 20 31 2c 20 db, "hex16", 1,
6910: 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 20 0a SQLITE_ANY, 0, .
6920: 20 20 20 20 20 20 20 20 20 20 68 65 78 31 36 46 hex16F
6930: 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a unc, 0, 0);. }.
6940: 23 65 6e 64 69 66 0a 20 20 69 66 28 20 72 63 3d #endif. if( rc=
6950: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 =SQLITE_OK ){.
6960: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 rc = sqlite3_c
6970: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 reate_function(d
6980: 62 2c 20 22 74 6b 74 32 32 31 33 66 75 6e 63 22 b, "tkt2213func"
6990: 2c 20 31 2c 20 53 51 4c 49 54 45 5f 41 4e 59 2c , 1, SQLITE_ANY,
69a0: 20 30 2c 20 0a 20 20 20 20 20 20 20 20 20 20 74 0, . t
69b0: 6b 74 32 32 31 33 46 75 6e 63 74 69 6f 6e 2c 20 kt2213Function,
69c0: 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28 0, 0);. }. if(
69d0: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc==SQLITE_OK )
69e0: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 {. rc = sqlit
69f0: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
6a00: 6f 6e 28 64 62 2c 20 22 70 6f 69 6e 74 65 72 5f on(db, "pointer_
6a10: 63 68 61 6e 67 65 22 2c 20 34 2c 20 53 51 4c 49 change", 4, SQLI
6a20: 54 45 5f 41 4e 59 2c 20 30 2c 20 0a 20 20 20 20 TE_ANY, 0, .
6a30: 20 20 20 20 20 20 70 74 72 43 68 6e 67 46 75 6e ptrChngFun
6a40: 63 74 69 6f 6e 2c 20 30 2c 20 30 29 3b 0a 20 20 ction, 0, 0);.
6a50: 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 }..#ifndef SQLIT
6a60: 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 2f E_OMIT_UTF16. /
6a70: 2a 20 55 73 65 20 74 68 65 20 73 71 6c 69 74 65 * Use the sqlite
6a80: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 3_create_functio
6a90: 6e 31 36 28 29 20 41 50 49 20 68 65 72 65 2e 20 n16() API here.
6aa0: 4d 61 69 6e 6c 79 20 66 6f 72 20 66 75 6e 2c 20 Mainly for fun,
6ab0: 62 75 74 20 61 6c 73 6f 20 0a 20 20 2a 2a 20 62 but also . ** b
6ac0: 65 63 61 75 73 65 20 69 74 20 69 73 20 6e 6f 74 ecause it is not
6ad0: 20 74 65 73 74 65 64 20 61 6e 79 77 68 65 72 65 tested anywhere
6ae0: 20 65 6c 73 65 2e 20 2a 2f 0a 20 20 69 66 28 20 else. */. if(
6af0: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b rc==SQLITE_OK ){
6b00: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 76 61 6c . sqlite3_val
6b10: 75 65 20 2a 70 56 61 6c 3b 0a 20 20 20 20 73 71 ue *pVal;. sq
6b20: 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 lite3_mutex_ente
6b30: 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 r(db->mutex);.
6b40: 20 20 70 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 pVal = sqlite3
6b50: 56 61 6c 75 65 4e 65 77 28 64 62 29 3b 0a 20 20 ValueNew(db);.
6b60: 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 53 65 sqlite3ValueSe
6b70: 74 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c 20 22 tStr(pVal, -1, "
6b80: 78 5f 73 71 6c 69 74 65 5f 65 78 65 63 22 2c 20 x_sqlite_exec",
6b90: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 53 51 4c SQLITE_UTF8, SQL
6ba0: 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 ITE_STATIC);.
6bb0: 20 69 66 28 20 64 62 2d 3e 6d 61 6c 6c 6f 63 46 if( db->mallocF
6bc0: 61 69 6c 65 64 20 29 7b 0a 20 20 20 20 20 20 72 ailed ){. r
6bd0: 63 20 3d 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d c = SQLITE_NOMEM
6be0: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ;. }else{.
6bf0: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
6c00: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 31 create_function1
6c10: 36 28 64 62 2c 20 0a 20 20 20 20 20 20 20 20 20 6(db, .
6c20: 20 20 20 20 20 73 71 6c 69 74 65 33 56 61 6c 75 sqlite3Valu
6c30: 65 54 65 78 74 28 70 56 61 6c 2c 20 53 51 4c 49 eText(pVal, SQLI
6c40: 54 45 5f 55 54 46 31 36 4e 41 54 49 56 45 29 2c TE_UTF16NATIVE),
6c50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 . 1
6c60: 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 2c 20 , SQLITE_UTF16,
6c70: 64 62 2c 20 73 71 6c 69 74 65 33 45 78 65 63 46 db, sqlite3ExecF
6c80: 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 unc, 0, 0);.
6c90: 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 56 61 6c }. sqlite3Val
6ca0: 75 65 46 72 65 65 28 70 56 61 6c 29 3b 0a 20 20 ueFree(pVal);.
6cb0: 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f sqlite3_mutex_
6cc0: 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 leave(db->mutex)
6cd0: 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 ;. }.#endif..
6ce0: 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 if( sqlite3TestE
6cf0: 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 rrCode(interp, d
6d00: 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 b, rc) ) return
6d10: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c TCL_ERROR;. Tcl
6d20: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
6d30: 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 72 72 p, (char *)t1Err
6d40: 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a orName(rc), 0);.
6d50: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
6d60: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e .}../*.** Routin
6d70: 65 73 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 es to implement
6d80: 74 68 65 20 78 5f 63 6f 75 6e 74 28 29 20 61 67 the x_count() ag
6d90: 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e gregate function
6da0: 2e 0a 2a 2a 0a 2a 2a 20 78 5f 63 6f 75 6e 74 28 ..**.** x_count(
6db0: 29 20 63 6f 75 6e 74 73 20 74 68 65 20 6e 75 6d ) counts the num
6dc0: 62 65 72 20 6f 66 20 6e 6f 6e 2d 6e 75 6c 6c 20 ber of non-null
6dd0: 61 72 67 75 6d 65 6e 74 73 2e 20 20 42 75 74 20 arguments. But
6de0: 74 68 65 72 65 20 61 72 65 0a 2a 2a 20 73 6f 6d there are.** som
6df0: 65 20 74 77 69 73 74 73 20 66 6f 72 20 74 65 73 e twists for tes
6e00: 74 69 6e 67 20 70 75 72 70 6f 73 65 73 2e 0a 2a ting purposes..*
6e10: 2a 0a 2a 2a 20 49 66 20 74 68 65 20 61 72 67 75 *.** If the argu
6e20: 6d 65 6e 74 20 74 6f 20 78 5f 63 6f 75 6e 74 28 ment to x_count(
6e30: 29 20 69 73 20 34 30 20 74 68 65 6e 20 61 20 55 ) is 40 then a U
6e40: 54 46 2d 38 20 65 72 72 6f 72 20 69 73 20 72 65 TF-8 error is re
6e50: 70 6f 72 74 65 64 0a 2a 2a 20 6f 6e 20 74 68 65 ported.** on the
6e60: 20 73 74 65 70 20 66 75 6e 63 74 69 6f 6e 2e 20 step function.
6e70: 20 49 66 20 78 5f 63 6f 75 6e 74 28 34 31 29 20 If x_count(41)
6e80: 69 73 20 73 65 65 6e 2c 20 74 68 65 6e 20 61 20 is seen, then a
6e90: 55 54 46 2d 31 36 20 65 72 72 6f 72 0a 2a 2a 20 UTF-16 error.**
6ea0: 69 73 20 72 65 70 6f 72 74 65 64 20 6f 6e 20 74 is reported on t
6eb0: 68 65 20 73 74 65 70 20 66 75 6e 63 74 69 6f 6e he step function
6ec0: 2e 20 20 49 66 20 74 68 65 20 74 6f 74 61 6c 20 . If the total
6ed0: 63 6f 75 6e 74 20 69 73 20 34 32 2c 20 74 68 65 count is 42, the
6ee0: 6e 0a 2a 2a 20 61 20 55 54 46 2d 38 20 65 72 72 n.** a UTF-8 err
6ef0: 6f 72 20 69 73 20 72 65 70 6f 72 74 65 64 20 6f or is reported o
6f00: 6e 20 74 68 65 20 66 69 6e 61 6c 69 7a 65 20 66 n the finalize f
6f10: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 unction..*/.type
6f20: 64 65 66 20 73 74 72 75 63 74 20 74 31 43 6f 75 def struct t1Cou
6f30: 6e 74 43 74 78 20 74 31 43 6f 75 6e 74 43 74 78 ntCtx t1CountCtx
6f40: 3b 0a 73 74 72 75 63 74 20 74 31 43 6f 75 6e 74 ;.struct t1Count
6f50: 43 74 78 20 7b 0a 20 20 69 6e 74 20 6e 3b 0a 7d Ctx {. int n;.}
6f60: 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 31 ;.static void t1
6f70: 43 6f 75 6e 74 53 74 65 70 28 0a 20 20 73 71 6c CountStep(. sql
6f80: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
6f90: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 ntext,. int arg
6fa0: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c c,. sqlite3_val
6fb0: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 74 ue **argv.){. t
6fc0: 31 43 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 1CountCtx *p;.
6fd0: 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 p = sqlite3_aggr
6fe0: 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f egate_context(co
6ff0: 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 ntext, sizeof(*p
7000: 29 29 3b 0a 20 20 69 66 28 20 28 61 72 67 63 3d ));. if( (argc=
7010: 3d 30 20 7c 7c 20 53 51 4c 49 54 45 5f 4e 55 4c =0 || SQLITE_NUL
7020: 4c 21 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 L!=sqlite3_value
7030: 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 20 29 _type(argv[0]) )
7040: 20 26 26 20 70 20 29 7b 0a 20 20 20 20 70 2d 3e && p ){. p->
7050: 6e 2b 2b 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 n++;. }. if( a
7060: 72 67 63 3e 30 20 29 7b 0a 20 20 20 20 69 6e 74 rgc>0 ){. int
7070: 20 76 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c v = sqlite3_val
7080: 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 3b ue_int(argv[0]);
7090: 0a 20 20 20 20 69 66 28 20 76 3d 3d 34 30 20 29 . if( v==40 )
70a0: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f {. sqlite3_
70b0: 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e result_error(con
70c0: 74 65 78 74 2c 20 22 76 61 6c 75 65 20 6f 66 20 text, "value of
70d0: 34 30 20 68 61 6e 64 65 64 20 74 6f 20 78 5f 63 40 handed to x_c
70e0: 6f 75 6e 74 22 2c 20 2d 31 29 3b 0a 23 69 66 6e ount", -1);.#ifn
70f0: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
7100: 55 54 46 31 36 0a 20 20 20 20 7d 65 6c 73 65 20 UTF16. }else
7110: 69 66 28 20 76 3d 3d 34 31 20 29 7b 0a 20 20 20 if( v==41 ){.
7120: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 7a 55 const char zU
7130: 74 66 31 36 45 72 72 4d 73 67 5b 5d 20 3d 20 7b tf16ErrMsg[] = {
7140: 20 30 2c 20 30 78 36 31 2c 20 30 2c 20 30 78 36 0, 0x61, 0, 0x6
7150: 32 2c 20 30 2c 20 30 78 36 33 2c 20 30 2c 20 30 2, 0, 0x63, 0, 0
7160: 2c 20 30 7d 3b 0a 20 20 20 20 20 20 73 71 6c 69 , 0};. sqli
7170: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 te3_result_error
7180: 31 36 28 63 6f 6e 74 65 78 74 2c 20 26 7a 55 74 16(context, &zUt
7190: 66 31 36 45 72 72 4d 73 67 5b 31 2d 53 51 4c 49 f16ErrMsg[1-SQLI
71a0: 54 45 5f 42 49 47 45 4e 44 49 41 4e 5d 2c 20 2d TE_BIGENDIAN], -
71b0: 31 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 1);.#endif. }
71c0: 0a 20 20 7d 0a 7d 20 20 20 0a 73 74 61 74 69 63 . }.} .static
71d0: 20 76 6f 69 64 20 74 31 43 6f 75 6e 74 46 69 6e void t1CountFin
71e0: 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f alize(sqlite3_co
71f0: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b ntext *context){
7200: 0a 20 20 74 31 43 6f 75 6e 74 43 74 78 20 2a 70 . t1CountCtx *p
7210: 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f ;. p = sqlite3_
7220: 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 aggregate_contex
7230: 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f t(context, sizeo
7240: 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 70 20 f(*p));. if( p
7250: 29 7b 0a 20 20 20 20 69 66 28 20 70 2d 3e 6e 3d ){. if( p->n=
7260: 3d 34 32 20 29 7b 0a 20 20 20 20 20 20 73 71 6c =42 ){. sql
7270: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
7280: 72 28 63 6f 6e 74 65 78 74 2c 20 22 78 5f 63 6f r(context, "x_co
7290: 75 6e 74 20 74 6f 74 61 6c 73 20 74 6f 20 34 32 unt totals to 42
72a0: 22 2c 20 2d 31 29 3b 0a 20 20 20 20 7d 65 6c 73 ", -1);. }els
72b0: 65 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 e{. sqlite3
72c0: 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 _result_int(cont
72d0: 65 78 74 2c 20 70 20 3f 20 70 2d 3e 6e 20 3a 20 ext, p ? p->n :
72e0: 30 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0);. }. }.}.
72f0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 65 67 .static void leg
7300: 61 63 79 43 6f 75 6e 74 53 74 65 70 28 0a 20 20 acyCountStep(.
7310: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
7320: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 *context,. int
7330: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f argc,. sqlite3_
7340: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
7350: 20 20 2f 2a 20 6e 6f 2d 6f 70 20 2a 2f 0a 7d 0a /* no-op */.}.
7360: 73 74 61 74 69 63 20 76 6f 69 64 20 6c 65 67 61 static void lega
7370: 63 79 43 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 28 cyCountFinalize(
7380: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
7390: 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 73 71 6c *context){. sql
73a0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 ite3_result_int(
73b0: 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 context, sqlite3
73c0: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 75 6e 74 _aggregate_count
73d0: 28 63 6f 6e 74 65 78 74 29 29 3b 0a 7d 0a 0a 2f (context));.}../
73e0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
73f0: 69 74 65 33 5f 63 72 65 61 74 65 5f 61 67 67 72 ite3_create_aggr
7400: 65 67 61 74 65 20 44 42 0a 2a 2a 0a 2a 2a 20 43 egate DB.**.** C
7410: 61 6c 6c 20 74 68 65 20 73 71 6c 69 74 65 33 5f all the sqlite3_
7420: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 create_function
7430: 41 50 49 20 6f 6e 20 74 68 65 20 67 69 76 65 6e API on the given
7440: 20 64 61 74 61 62 61 73 65 20 69 6e 20 6f 72 64 database in ord
7450: 65 72 0a 2a 2a 20 74 6f 20 63 72 65 61 74 65 20 er.** to create
7460: 61 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 64 a function named
7470: 20 22 78 5f 63 6f 75 6e 74 22 2e 20 20 54 68 69 "x_count". Thi
7480: 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 73 69 s function is si
7490: 6d 69 6c 61 72 0a 2a 2a 20 74 6f 20 74 68 65 20 milar.** to the
74a0: 62 75 69 6c 74 2d 69 6e 20 63 6f 75 6e 74 28 29 built-in count()
74b0: 20 66 75 6e 63 74 69 6f 6e 2c 20 77 69 74 68 20 function, with
74c0: 61 20 66 65 77 20 73 70 65 63 69 61 6c 20 71 75 a few special qu
74d0: 69 72 6b 73 0a 2a 2a 20 66 6f 72 20 74 65 73 74 irks.** for test
74e0: 69 6e 67 20 74 68 65 20 73 71 6c 69 74 65 33 5f ing the sqlite3_
74f0: 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 29 20 41 result_error() A
7500: 50 49 73 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6f PIs..**.** The o
7510: 72 69 67 69 6e 61 6c 20 6d 6f 74 69 76 61 74 69 riginal motivati
7520: 6f 6e 20 66 6f 72 20 74 68 69 73 20 72 6f 75 74 on for this rout
7530: 69 6e 65 20 77 61 73 20 74 6f 20 62 65 20 61 62 ine was to be ab
7540: 6c 65 20 74 6f 20 63 61 6c 6c 20 74 68 65 0a 2a le to call the.*
7550: 2a 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 * sqlite3_create
7560: 5f 61 67 67 72 65 67 61 74 65 20 66 75 6e 63 74 _aggregate funct
7570: 69 6f 6e 20 77 68 69 6c 65 20 61 20 71 75 65 72 ion while a quer
7580: 79 20 69 73 20 69 6e 20 70 72 6f 67 72 65 73 73 y is in progress
7590: 20 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 in order.** to
75a0: 74 65 73 74 20 74 68 65 20 53 51 4c 49 54 45 5f test the SQLITE_
75b0: 4d 49 53 55 53 45 20 64 65 74 65 63 74 69 6f 6e MISUSE detection
75c0: 20 6c 6f 67 69 63 2e 20 20 53 65 65 20 6d 69 73 logic. See mis
75d0: 75 73 65 2e 74 65 73 74 2e 0a 2a 2a 0a 2a 2a 20 use.test..**.**
75e0: 54 68 69 73 20 72 6f 75 74 69 6e 65 20 77 61 73 This routine was
75f0: 20 6c 61 74 65 72 20 65 78 74 65 6e 64 65 64 20 later extended
7600: 74 6f 20 74 65 73 74 20 74 68 65 20 75 73 65 20 to test the use
7610: 6f 66 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c of sqlite3_resul
7620: 74 5f 65 72 72 6f 72 28 29 0a 2a 2a 20 77 69 74 t_error().** wit
7630: 68 69 6e 20 61 67 67 72 65 67 61 74 65 20 66 75 hin aggregate fu
7640: 6e 63 74 69 6f 6e 73 2e 0a 2a 2a 0a 2a 2a 20 4c nctions..**.** L
7650: 61 74 65 72 3a 20 49 74 20 69 73 20 6e 6f 77 20 ater: It is now
7660: 61 6c 73 6f 20 65 78 74 65 6e 64 65 64 20 74 6f also extended to
7670: 20 72 65 67 69 73 74 65 72 20 74 68 65 20 61 67 register the ag
7680: 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e gregate function
7690: 0a 2a 2a 20 22 6c 65 67 61 63 79 5f 63 6f 75 6e .** "legacy_coun
76a0: 74 28 29 22 20 77 69 74 68 20 74 68 65 20 73 75 t()" with the su
76b0: 70 70 6c 69 65 64 20 64 61 74 61 62 61 73 65 20 pplied database
76c0: 68 61 6e 64 6c 65 2e 20 54 68 69 73 20 69 73 20 handle. This is
76d0: 75 73 65 64 0a 2a 2a 20 74 6f 20 74 65 73 74 20 used.** to test
76e0: 74 68 65 20 64 65 70 72 65 63 61 74 65 64 20 73 the deprecated s
76f0: 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 qlite3_aggregate
7700: 5f 63 6f 75 6e 74 28 29 20 41 50 49 2e 0a 2a 2f _count() API..*/
7710: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
7720: 5f 63 72 65 61 74 65 5f 61 67 67 72 65 67 61 74 _create_aggregat
7730: 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 e(. void *NotUs
7740: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
7750: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
7760: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
7770: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
7780: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
7790: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
77a0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
77b0: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
77c0: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
77d0: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
77e0: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
77f0: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 ument */.){. sq
7800: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 lite3 *db;. int
7810: 20 72 63 3b 0a 20 20 69 66 28 20 61 72 67 63 21 rc;. if( argc!
7820: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
7830: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
7840: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
7850: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
7860: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
7870: 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 " FILENAME\"",
7880: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
7890: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
78a0: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
78b0: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
78c0: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
78d0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 TCL_ERROR;. rc
78e0: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
78f0: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 78 _function(db, "x
7900: 5f 63 6f 75 6e 74 22 2c 20 30 2c 20 53 51 4c 49 _count", 0, SQLI
7910: 54 45 5f 55 54 46 38 2c 20 30 2c 20 30 2c 0a 20 TE_UTF8, 0, 0,.
7920: 20 20 20 20 20 74 31 43 6f 75 6e 74 53 74 65 70 t1CountStep
7930: 2c 74 31 43 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 ,t1CountFinalize
7940: 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c );. if( rc==SQL
7950: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 ITE_OK ){. rc
7960: 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 = sqlite3_creat
7970: 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 e_function(db, "
7980: 78 5f 63 6f 75 6e 74 22 2c 20 31 2c 20 53 51 4c x_count", 1, SQL
7990: 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 30 2c 0a ITE_UTF8, 0, 0,.
79a0: 20 20 20 20 20 20 20 20 74 31 43 6f 75 6e 74 53 t1CountS
79b0: 74 65 70 2c 74 31 43 6f 75 6e 74 46 69 6e 61 6c tep,t1CountFinal
79c0: 69 7a 65 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 ize);. }. if(
79d0: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b rc==SQLITE_OK ){
79e0: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 . rc = sqlite
79f0: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 3_create_functio
7a00: 6e 28 64 62 2c 20 22 6c 65 67 61 63 79 5f 63 6f n(db, "legacy_co
7a10: 75 6e 74 22 2c 20 30 2c 20 53 51 4c 49 54 45 5f unt", 0, SQLITE_
7a20: 41 4e 59 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 ANY, 0, 0,.
7a30: 20 20 20 6c 65 67 61 63 79 43 6f 75 6e 74 53 74 legacyCountSt
7a40: 65 70 2c 20 6c 65 67 61 63 79 43 6f 75 6e 74 46 ep, legacyCountF
7a50: 69 6e 61 6c 69 7a 65 0a 20 20 20 20 29 3b 0a 20 inalize. );.
7a60: 20 7d 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 }. if( sqlite3
7a70: 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
7a80: 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 rp, db, rc) ) re
7a90: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
7aa0: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
7ab0: 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
7ac0: 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c t1ErrorName(rc),
7ad0: 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 0);. return TC
7ae0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 L_OK;.}.../*.**
7af0: 55 73 61 67 65 3a 20 20 70 72 69 6e 74 66 20 54 Usage: printf T
7b00: 45 58 54 0a 2a 2a 0a 2a 2a 20 53 65 6e 64 20 6f EXT.**.** Send o
7b10: 75 74 70 75 74 20 74 6f 20 70 72 69 6e 74 66 2e utput to printf.
7b20: 20 20 55 73 65 20 74 68 69 73 20 72 61 74 68 65 Use this rathe
7b30: 72 20 74 68 61 6e 20 70 75 74 73 20 74 6f 20 6d r than puts to m
7b40: 65 72 67 65 20 74 68 65 20 6f 75 74 70 75 74 0a erge the output.
7b50: 2a 2a 20 69 6e 20 74 68 65 20 63 6f 72 72 65 63 ** in the correc
7b60: 74 20 73 65 71 75 65 6e 63 65 20 77 69 74 68 20 t sequence with
7b70: 64 65 62 75 67 67 69 6e 67 20 70 72 69 6e 74 66 debugging printf
7b80: 73 20 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 s inserted into
7b90: 43 20 63 6f 64 65 2e 0a 2a 2a 20 50 75 74 73 20 C code..** Puts
7ba0: 75 73 65 73 20 61 20 73 65 70 61 72 61 74 65 20 uses a separate
7bb0: 62 75 66 66 65 72 20 61 6e 64 20 64 65 62 75 67 buffer and debug
7bc0: 67 69 6e 67 20 73 74 61 74 65 6d 65 6e 74 73 20 ging statements
7bd0: 77 69 6c 6c 20 62 65 20 6f 75 74 20 6f 66 0a 2a will be out of.*
7be0: 2a 20 73 65 71 75 65 6e 63 65 20 69 66 20 69 74 * sequence if it
7bf0: 20 69 73 20 75 73 65 64 2e 0a 2a 2f 0a 73 74 61 is used..*/.sta
7c00: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 70 72 69 tic int test_pri
7c10: 6e 74 66 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 ntf(. void *Not
7c20: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
7c30: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
7c40: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
7c50: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
7c60: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
7c70: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
7c80: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
7c90: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
7ca0: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
7cb0: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
7cc0: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
7cd0: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
7ce0: 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 if( argc!=2 ){.
7cf0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
7d00: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
7d10: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
7d20: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
7d30: 5d 2c 0a 20 20 20 20 20 20 20 22 20 54 45 58 54 ],. " TEXT
7d40: 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 \"", 0);. ret
7d50: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
7d60: 20 7d 0a 20 20 70 72 69 6e 74 66 28 22 25 73 5c }. printf("%s\
7d70: 6e 22 2c 20 61 72 67 76 5b 31 5d 29 3b 0a 20 20 n", argv[1]);.
7d80: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
7d90: 0a 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a ..../*.** Usage:
7da0: 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 sqlite3_mprint
7db0: 66 5f 69 6e 74 20 46 4f 52 4d 41 54 20 49 4e 54 f_int FORMAT INT
7dc0: 45 47 45 52 20 49 4e 54 45 47 45 52 20 49 4e 54 EGER INTEGER INT
7dd0: 45 47 45 52 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 EGER.**.** Call
7de0: 6d 70 72 69 6e 74 66 20 77 69 74 68 20 74 68 72 mprintf with thr
7df0: 65 65 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d ee integer argum
7e00: 65 6e 74 73 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ents.*/.static i
7e10: 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e nt sqlite3_mprin
7e20: 74 66 5f 69 6e 74 28 0a 20 20 76 6f 69 64 20 2a tf_int(. void *
7e30: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
7e40: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
7e50: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
7e60: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
7e70: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
7e80: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
7e90: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
7ea0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
7eb0: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
7ec0: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
7ed0: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
7ee0: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
7ef0: 0a 20 20 69 6e 74 20 61 5b 33 5d 2c 20 69 3b 0a . int a[3], i;.
7f00: 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 char *z;. if(
7f10: 20 61 72 67 63 21 3d 35 20 29 7b 0a 20 20 20 20 argc!=5 ){.
7f20: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
7f30: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
7f40: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
7f50: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a e \"", argv[0],.
7f60: 20 20 20 20 20 20 20 22 20 46 4f 52 4d 41 54 20 " FORMAT
7f70: 49 4e 54 20 49 4e 54 20 49 4e 54 5c 22 22 2c 20 INT INT INT\"",
7f80: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
7f90: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
7fa0: 66 6f 72 28 69 3d 32 3b 20 69 3c 35 3b 20 69 2b for(i=2; i<5; i+
7fb0: 2b 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f +){. if( Tcl_
7fc0: 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 GetInt(interp, a
7fd0: 72 67 76 5b 69 5d 2c 20 26 61 5b 69 2d 32 5d 29 rgv[i], &a[i-2])
7fe0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
7ff0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 ROR;. }. z = s
8000: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 qlite3_mprintf(a
8010: 72 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c 20 61 5b rgv[1], a[0], a[
8020: 31 5d 2c 20 61 5b 32 5d 29 3b 0a 20 20 54 63 6c 1], a[2]);. Tcl
8030: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
8040: 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 terp, z, 0);. s
8050: 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 3b 0a qlite3_free(z);.
8060: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
8070: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 7a 4e 75 .}../*.** If zNu
8080: 6d 20 72 65 70 72 65 73 65 6e 74 73 20 61 6e 20 m represents an
8090: 69 6e 74 65 67 65 72 20 74 68 61 74 20 77 69 6c integer that wil
80a0: 6c 20 66 69 74 20 69 6e 20 36 34 2d 62 69 74 73 l fit in 64-bits
80b0: 2c 20 74 68 65 6e 20 73 65 74 0a 2a 2a 20 2a 70 , then set.** *p
80c0: 56 61 6c 75 65 20 74 6f 20 74 68 61 74 20 69 6e Value to that in
80d0: 74 65 67 65 72 20 61 6e 64 20 72 65 74 75 72 6e teger and return
80e0: 20 74 72 75 65 2e 20 20 4f 74 68 65 72 77 69 73 true. Otherwis
80f0: 65 20 72 65 74 75 72 6e 20 66 61 6c 73 65 2e 0a e return false..
8100: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 */.static int sq
8110: 6c 69 74 65 33 47 65 74 49 6e 74 36 34 28 63 6f lite3GetInt64(co
8120: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 75 6d 2c 20 nst char *zNum,
8130: 69 36 34 20 2a 70 56 61 6c 75 65 29 7b 0a 20 20 i64 *pValue){.
8140: 69 66 28 20 73 71 6c 69 74 65 33 46 69 74 73 49 if( sqlite3FitsI
8150: 6e 36 34 42 69 74 73 28 7a 4e 75 6d 29 20 29 7b n64Bits(zNum) ){
8160: 0a 20 20 20 20 73 71 6c 69 74 65 33 41 74 6f 69 . sqlite3Atoi
8170: 36 34 28 7a 4e 75 6d 2c 20 70 56 61 6c 75 65 29 64(zNum, pValue)
8180: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a ;. return 1;.
8190: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a }. return 0;.
81a0: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
81b0: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 sqlite3_mprintf
81c0: 5f 69 6e 74 36 34 20 46 4f 52 4d 41 54 20 49 4e _int64 FORMAT IN
81d0: 54 45 47 45 52 20 49 4e 54 45 47 45 52 20 49 4e TEGER INTEGER IN
81e0: 54 45 47 45 52 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c TEGER.**.** Call
81f0: 20 6d 70 72 69 6e 74 66 20 77 69 74 68 20 74 68 mprintf with th
8200: 72 65 65 20 36 34 2d 62 69 74 20 69 6e 74 65 67 ree 64-bit integ
8210: 65 72 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2f 0a er arguments.*/.
8220: 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 static int sqlit
8230: 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 36 34 e3_mprintf_int64
8240: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
8250: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
8260: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
8270: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
8280: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
8290: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
82a0: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
82b0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
82c0: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
82d0: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
82e0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
82f0: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
8300: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 ment */.){. int
8310: 20 69 3b 0a 20 20 73 71 6c 69 74 65 5f 69 6e 74 i;. sqlite_int
8320: 36 34 20 61 5b 33 5d 3b 0a 20 20 63 68 61 72 20 64 a[3];. char
8330: 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d *z;. if( argc!=
8340: 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 5 ){. Tcl_App
8350: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
8360: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
8370: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
8380: 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 argv[0],.
8390: 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e 54 " FORMAT INT INT
83a0: 20 49 4e 54 5c 22 22 2c 20 30 29 3b 0a 20 20 20 INT\"", 0);.
83b0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
83c0: 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 R;. }. for(i=2
83d0: 3b 20 69 3c 35 3b 20 69 2b 2b 29 7b 0a 20 20 20 ; i<5; i++){.
83e0: 20 69 66 28 20 21 73 71 6c 69 74 65 33 47 65 74 if( !sqlite3Get
83f0: 49 6e 74 36 34 28 61 72 67 76 5b 69 5d 2c 20 26 Int64(argv[i], &
8400: 61 5b 69 2d 32 5d 29 20 29 7b 0a 20 20 20 20 20 a[i-2]) ){.
8410: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
8420: 74 28 69 6e 74 65 72 70 2c 20 22 61 72 67 75 6d t(interp, "argum
8430: 65 6e 74 20 69 73 20 6e 6f 74 20 61 20 76 61 6c ent is not a val
8440: 69 64 20 36 34 2d 62 69 74 20 69 6e 74 65 67 65 id 64-bit intege
8450: 72 22 2c 20 30 29 3b 0a 20 20 20 20 20 20 72 65 r", 0);. re
8460: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8470: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 7a 20 3d 20 }. }. z =
8480: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 sqlite3_mprintf(
8490: 61 72 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c 20 61 argv[1], a[0], a
84a0: 5b 31 5d 2c 20 61 5b 32 5d 29 3b 0a 20 20 54 63 [1], a[2]);. Tc
84b0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
84c0: 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 nterp, z, 0);.
84d0: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 3b sqlite3_free(z);
84e0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
84f0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
8500: 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e : sqlite3_mprin
8510: 74 66 5f 73 74 72 20 46 4f 52 4d 41 54 20 49 4e tf_str FORMAT IN
8520: 54 45 47 45 52 20 49 4e 54 45 47 45 52 20 53 54 TEGER INTEGER ST
8530: 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 RING.**.** Call
8540: 6d 70 72 69 6e 74 66 20 77 69 74 68 20 74 77 6f mprintf with two
8550: 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 6e integer argumen
8560: 74 73 20 61 6e 64 20 6f 6e 65 20 73 74 72 69 6e ts and one strin
8570: 67 20 61 72 67 75 6d 65 6e 74 0a 2a 2f 0a 73 74 g argument.*/.st
8580: 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 33 atic int sqlite3
8590: 5f 6d 70 72 69 6e 74 66 5f 73 74 72 28 0a 20 20 _mprintf_str(.
85a0: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 void *NotUsed,.
85b0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
85c0: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
85d0: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
85e0: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
85f0: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
8600: 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 t argc,
8610: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
8620: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
8630: 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 char **argv
8640: 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 /* Text
8650: 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 of each argument
8660: 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 5b 33 */.){. int a[3
8670: 5d 2c 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a 3b ], i;. char *z;
8680: 0a 20 20 69 66 28 20 61 72 67 63 3c 34 20 7c 7c . if( argc<4 ||
8690: 20 61 72 67 63 3e 35 20 29 7b 0a 20 20 20 20 54 argc>5 ){. T
86a0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
86b0: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
86c0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
86d0: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 \"", argv[0],.
86e0: 20 20 20 20 20 20 22 20 46 4f 52 4d 41 54 20 49 " FORMAT I
86f0: 4e 54 20 49 4e 54 20 3f 53 54 52 49 4e 47 3f 5c NT INT ?STRING?\
8700: 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 "", 0);. retu
8710: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
8720: 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 34 }. for(i=2; i<4
8730: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 ; i++){. if(
8740: 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 Tcl_GetInt(inter
8750: 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26 61 5b 69 p, argv[i], &a[i
8760: 2d 32 5d 29 20 29 20 72 65 74 75 72 6e 20 54 43 -2]) ) return TC
8770: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a L_ERROR;. }. z
8780: 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e = sqlite3_mprin
8790: 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 5b 30 5d tf(argv[1], a[0]
87a0: 2c 20 61 5b 31 5d 2c 20 61 72 67 63 3e 34 20 3f , a[1], argc>4 ?
87b0: 20 61 72 67 76 5b 34 5d 20 3a 20 4e 55 4c 4c 29 argv[4] : NULL)
87c0: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
87d0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 sult(interp, z,
87e0: 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 0);. sqlite3_fr
87f0: 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 ee(z);. return
8800: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
8810: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
8820: 5f 73 6e 70 72 69 6e 74 66 5f 73 74 72 20 49 4e _snprintf_str IN
8830: 54 45 47 45 52 20 46 4f 52 4d 41 54 20 49 4e 54 TEGER FORMAT INT
8840: 45 47 45 52 20 49 4e 54 45 47 45 52 20 53 54 52 EGER INTEGER STR
8850: 49 4e 47 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d ING.**.** Call m
8860: 70 72 69 6e 74 66 20 77 69 74 68 20 74 77 6f 20 printf with two
8870: 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 integer argument
8880: 73 20 61 6e 64 20 6f 6e 65 20 73 74 72 69 6e 67 s and one string
8890: 20 61 72 67 75 6d 65 6e 74 0a 2a 2f 0a 73 74 61 argument.*/.sta
88a0: 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 33 5f tic int sqlite3_
88b0: 73 6e 70 72 69 6e 74 66 5f 73 74 72 28 0a 20 20 snprintf_str(.
88c0: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 void *NotUsed,.
88d0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
88e0: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
88f0: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
8900: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
8910: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
8920: 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 t argc,
8930: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
8940: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
8950: 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 char **argv
8960: 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 /* Text
8970: 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 of each argument
8980: 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 5b 33 */.){. int a[3
8990: 5d 2c 20 69 3b 0a 20 20 69 6e 74 20 6e 3b 0a 20 ], i;. int n;.
89a0: 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20 char *z;. if(
89b0: 61 72 67 63 3c 35 20 7c 7c 20 61 72 67 63 3e 36 argc<5 || argc>6
89c0: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
89d0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
89e0: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
89f0: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
8a00: 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 rgv[0],. "
8a10: 20 49 4e 54 20 46 4f 52 4d 41 54 20 49 4e 54 20 INT FORMAT INT
8a20: 49 4e 54 20 3f 53 54 52 49 4e 47 3f 5c 22 22 2c INT ?STRING?\"",
8a30: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
8a40: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
8a50: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 if( Tcl_GetInt(
8a60: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
8a70: 20 26 6e 29 20 29 20 72 65 74 75 72 6e 20 54 43 &n) ) return TC
8a80: 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 6e L_ERROR;. if( n
8a90: 3c 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 <0 ){. Tcl_Ap
8aa0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
8ab0: 70 2c 20 22 4e 20 6d 75 73 74 20 62 65 20 6e 6f p, "N must be no
8ac0: 6e 2d 6e 65 67 61 74 69 76 65 22 2c 20 30 29 3b n-negative", 0);
8ad0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
8ae0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 ERROR;. }. for
8af0: 28 69 3d 33 3b 20 69 3c 35 3b 20 69 2b 2b 29 7b (i=3; i<5; i++){
8b00: 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 . if( Tcl_Get
8b10: 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 Int(interp, argv
8b20: 5b 69 5d 2c 20 26 61 5b 69 2d 33 5d 29 20 29 20 [i], &a[i-3]) )
8b30: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
8b40: 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 ;. }. z = sqli
8b50: 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 6e 2b 31 20 te3_malloc( n+1
8b60: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 );. sqlite3_snp
8b70: 72 69 6e 74 66 28 6e 2c 20 7a 2c 20 61 72 67 76 rintf(n, z, argv
8b80: 5b 32 5d 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c [2], a[0], a[1],
8b90: 20 61 72 67 63 3e 34 20 3f 20 61 72 67 76 5b 35 argc>4 ? argv[5
8ba0: 5d 20 3a 20 4e 55 4c 4c 29 3b 0a 20 20 54 63 6c ] : NULL);. Tcl
8bb0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
8bc0: 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 terp, z, 0);. s
8bd0: 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 3b 0a qlite3_free(z);.
8be0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
8bf0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
8c00: 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 sqlite3_mprint
8c10: 66 5f 64 6f 75 62 6c 65 20 46 4f 52 4d 41 54 20 f_double FORMAT
8c20: 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52 20 INTEGER INTEGER
8c30: 44 4f 55 42 4c 45 0a 2a 2a 0a 2a 2a 20 43 61 6c DOUBLE.**.** Cal
8c40: 6c 20 6d 70 72 69 6e 74 66 20 77 69 74 68 20 74 l mprintf with t
8c50: 77 6f 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d wo integer argum
8c60: 65 6e 74 73 20 61 6e 64 20 6f 6e 65 20 64 6f 75 ents and one dou
8c70: 62 6c 65 20 61 72 67 75 6d 65 6e 74 0a 2a 2f 0a ble argument.*/.
8c80: 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 static int sqlit
8c90: 65 33 5f 6d 70 72 69 6e 74 66 5f 64 6f 75 62 6c e3_mprintf_doubl
8ca0: 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 e(. void *NotUs
8cb0: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
8cc0: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
8cd0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
8ce0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
8cf0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
8d00: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
8d10: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
8d20: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
8d30: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
8d40: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
8d50: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
8d60: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e ument */.){. in
8d70: 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 20 64 6f 75 t a[3], i;. dou
8d80: 62 6c 65 20 72 3b 0a 20 20 63 68 61 72 20 2a 7a ble r;. char *z
8d90: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 35 20 ;. if( argc!=5
8da0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
8db0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
8dc0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
8dd0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
8de0: 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 gv[0],. "
8df0: 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e 54 20 44 FORMAT INT INT D
8e00: 4f 55 42 4c 45 5c 22 22 2c 20 30 29 3b 0a 20 20 OUBLE\"", 0);.
8e10: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
8e20: 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d OR;. }. for(i=
8e30: 32 3b 20 69 3c 34 3b 20 69 2b 2b 29 7b 0a 20 20 2; i<4; i++){.
8e40: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
8e50: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 5d (interp, argv[i]
8e60: 2c 20 26 61 5b 69 2d 32 5d 29 20 29 20 72 65 74 , &a[i-2]) ) ret
8e70: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
8e80: 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 }. if( Tcl_Get
8e90: 44 6f 75 62 6c 65 28 69 6e 74 65 72 70 2c 20 61 Double(interp, a
8ea0: 72 67 76 5b 34 5d 2c 20 26 72 29 20 29 20 72 65 rgv[4], &r) ) re
8eb0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8ec0: 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 z = sqlite3_mp
8ed0: 72 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 rintf(argv[1], a
8ee0: 5b 30 5d 2c 20 61 5b 31 5d 2c 20 72 29 3b 0a 20 [0], a[1], r);.
8ef0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
8f00: 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b t(interp, z, 0);
8f10: 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 . sqlite3_free(
8f20: 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c z);. return TCL
8f30: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
8f40: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 age: sqlite3_mp
8f50: 72 69 6e 74 66 5f 73 63 61 6c 65 64 20 46 4f 52 rintf_scaled FOR
8f60: 4d 41 54 20 44 4f 55 42 4c 45 20 44 4f 55 42 4c MAT DOUBLE DOUBL
8f70: 45 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 E.**.** Call mpr
8f80: 69 6e 74 66 20 77 69 74 68 20 61 20 73 69 6e 67 intf with a sing
8f90: 6c 65 20 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 le double argume
8fa0: 6e 74 20 77 68 69 63 68 20 69 73 20 74 68 65 20 nt which is the
8fb0: 70 72 6f 64 75 63 74 20 6f 66 20 74 68 65 0a 2a product of the.*
8fc0: 2a 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 20 * two arguments
8fd0: 67 69 76 65 6e 20 61 62 6f 76 65 2e 20 20 54 68 given above. Th
8fe0: 69 73 20 69 73 20 75 73 65 64 20 74 6f 20 67 65 is is used to ge
8ff0: 6e 65 72 61 74 65 20 6f 76 65 72 66 6c 6f 77 20 nerate overflow
9000: 61 6e 64 20 75 6e 64 65 72 66 6c 6f 77 0a 2a 2a and underflow.**
9010: 20 64 6f 75 62 6c 65 73 20 74 6f 20 74 65 73 74 doubles to test
9020: 20 74 68 61 74 20 74 68 65 79 20 61 72 65 20 63 that they are c
9030: 6f 6e 76 65 72 74 65 64 20 70 72 6f 70 65 72 6c onverted properl
9040: 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 y..*/.static int
9050: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 sqlite3_mprintf
9060: 5f 73 63 61 6c 65 64 28 0a 20 20 76 6f 69 64 20 _scaled(. void
9070: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f *NotUsed,. Tcl_
9080: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
9090: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
90a0: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
90b0: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
90c0: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 and */. int arg
90d0: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
90e0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
90f0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 uments */. char
9100: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 **argv
9110: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 /* Text of ea
9120: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 ch argument */.)
9130: 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 64 6f 75 {. int i;. dou
9140: 62 6c 65 20 72 5b 32 5d 3b 0a 20 20 63 68 61 72 ble r[2];. char
9150: 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 21 *z;. if( argc!
9160: 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =4 ){. Tcl_Ap
9170: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
9180: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
9190: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
91a0: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
91b0: 20 22 20 46 4f 52 4d 41 54 20 44 4f 55 42 4c 45 " FORMAT DOUBLE
91c0: 20 44 4f 55 42 4c 45 5c 22 22 2c 20 30 29 3b 0a DOUBLE\"", 0);.
91d0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
91e0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 RROR;. }. for(
91f0: 69 3d 32 3b 20 69 3c 34 3b 20 69 2b 2b 29 7b 0a i=2; i<4; i++){.
9200: 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 44 if( Tcl_GetD
9210: 6f 75 62 6c 65 28 69 6e 74 65 72 70 2c 20 61 72 ouble(interp, ar
9220: 67 76 5b 69 5d 2c 20 26 72 5b 69 2d 32 5d 29 20 gv[i], &r[i-2])
9230: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
9240: 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 OR;. }. z = sq
9250: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 72 lite3_mprintf(ar
9260: 67 76 5b 31 5d 2c 20 72 5b 30 5d 2a 72 5b 31 5d gv[1], r[0]*r[1]
9270: 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 );. Tcl_AppendR
9280: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c esult(interp, z,
9290: 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 0);. sqlite3_f
92a0: 72 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e ree(z);. return
92b0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
92c0: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
92d0: 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 6f 6e 6c 3_mprintf_stronl
92e0: 79 20 46 4f 52 4d 41 54 20 53 54 52 49 4e 47 0a y FORMAT STRING.
92f0: 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e **.** Call mprin
9300: 74 66 20 77 69 74 68 20 61 20 73 69 6e 67 6c 65 tf with a single
9310: 20 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 double argument
9320: 20 77 68 69 63 68 20 69 73 20 74 68 65 20 70 72 which is the pr
9330: 6f 64 75 63 74 20 6f 66 20 74 68 65 0a 2a 2a 20 oduct of the.**
9340: 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 20 67 69 two arguments gi
9350: 76 65 6e 20 61 62 6f 76 65 2e 20 20 54 68 69 73 ven above. This
9360: 20 69 73 20 75 73 65 64 20 74 6f 20 67 65 6e 65 is used to gene
9370: 72 61 74 65 20 6f 76 65 72 66 6c 6f 77 20 61 6e rate overflow an
9380: 64 20 75 6e 64 65 72 66 6c 6f 77 0a 2a 2a 20 64 d underflow.** d
9390: 6f 75 62 6c 65 73 20 74 6f 20 74 65 73 74 20 74 oubles to test t
93a0: 68 61 74 20 74 68 65 79 20 61 72 65 20 63 6f 6e hat they are con
93b0: 76 65 72 74 65 64 20 70 72 6f 70 65 72 6c 79 2e verted properly.
93c0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 .*/.static int s
93d0: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 73 qlite3_mprintf_s
93e0: 74 72 6f 6e 6c 79 28 0a 20 20 76 6f 69 64 20 2a tronly(. void *
93f0: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
9400: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
9410: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
9420: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
9430: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
9440: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
9450: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
9460: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
9470: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
9480: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
9490: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
94a0: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
94b0: 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 . char *z;. if
94c0: 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 ( argc!=3 ){.
94d0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
94e0: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
94f0: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
9500: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
9510: 0a 20 20 20 20 20 20 20 22 20 46 4f 52 4d 41 54 . " FORMAT
9520: 20 53 54 52 49 4e 47 5c 22 22 2c 20 30 29 3b 0a STRING\"", 0);.
9530: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
9540: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 RROR;. }. z =
9550: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 sqlite3_mprintf(
9560: 61 72 67 76 5b 31 5d 2c 20 61 72 67 76 5b 32 5d argv[1], argv[2]
9570: 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 );. Tcl_AppendR
9580: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c esult(interp, z,
9590: 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 0);. sqlite3_f
95a0: 72 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e ree(z);. return
95b0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
95c0: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
95d0: 33 5f 6d 70 72 69 6e 74 66 5f 68 65 78 64 6f 75 3_mprintf_hexdou
95e0: 62 6c 65 20 46 4f 52 4d 41 54 20 48 45 58 0a 2a ble FORMAT HEX.*
95f0: 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74 *.** Call mprint
9600: 66 20 77 69 74 68 20 61 20 73 69 6e 67 6c 65 20 f with a single
9610: 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 20 double argument
9620: 77 68 69 63 68 20 69 73 20 64 65 72 69 76 65 64 which is derived
9630: 20 66 72 6f 6d 20 74 68 65 0a 2a 2a 20 68 65 78 from the.** hex
9640: 61 64 65 63 69 6d 61 6c 20 65 6e 63 6f 64 69 6e adecimal encodin
9650: 67 20 6f 66 20 61 6e 20 49 45 45 45 20 64 6f 75 g of an IEEE dou
9660: 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ble..*/.static i
9670: 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e nt sqlite3_mprin
9680: 74 66 5f 68 65 78 64 6f 75 62 6c 65 28 0a 20 20 tf_hexdouble(.
9690: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 void *NotUsed,.
96a0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
96b0: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
96c0: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
96d0: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
96e0: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
96f0: 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 t argc,
9700: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
9710: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
9720: 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 char **argv
9730: 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 /* Text
9740: 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 of each argument
9750: 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a */.){. char *z
9760: 3b 0a 20 20 64 6f 75 62 6c 65 20 72 3b 0a 20 20 ;. double r;.
9770: 75 6e 73 69 67 6e 65 64 20 20 78 31 2c 20 78 32 unsigned x1, x2
9780: 3b 0a 20 20 6c 6f 6e 67 20 6c 6f 6e 67 20 75 6e ;. long long un
9790: 73 69 67 6e 65 64 20 64 3b 0a 20 20 69 66 28 20 signed d;. if(
97a0: 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 argc!=3 ){. T
97b0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
97c0: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
97d0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
97e0: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 \"", argv[0],.
97f0: 20 20 20 20 20 20 22 20 46 4f 52 4d 41 54 20 53 " FORMAT S
9800: 54 52 49 4e 47 5c 22 22 2c 20 30 29 3b 0a 20 20 TRING\"", 0);.
9810: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
9820: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 73 73 OR;. }. if( ss
9830: 63 61 6e 66 28 61 72 67 76 5b 32 5d 2c 20 22 25 canf(argv[2], "%
9840: 30 38 78 25 30 38 78 22 2c 20 26 78 32 2c 20 26 08x%08x", &x2, &
9850: 78 31 29 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 x1)!=2 ){. Tc
9860: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
9870: 6e 74 65 72 70 2c 20 22 32 6e 64 20 61 72 67 75 nterp, "2nd argu
9880: 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 31 ment should be 1
9890: 36 2d 63 68 61 72 61 63 74 65 72 73 20 6f 66 20 6-characters of
98a0: 68 65 78 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 hex", 0);. re
98b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
98c0: 20 20 7d 0a 20 20 64 20 3d 20 78 32 3b 0a 20 20 }. d = x2;.
98d0: 64 20 3d 20 28 64 3c 3c 33 32 29 20 2b 20 78 31 d = (d<<32) + x1
98e0: 3b 0a 20 20 6d 65 6d 63 70 79 28 26 72 2c 20 26 ;. memcpy(&r, &
98f0: 64 2c 20 73 69 7a 65 6f 66 28 72 29 29 3b 0a 20 d, sizeof(r));.
9900: 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 z = sqlite3_mpr
9910: 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 72 29 intf(argv[1], r)
9920: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
9930: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 sult(interp, z,
9940: 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 0);. sqlite3_fr
9950: 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 ee(z);. return
9960: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
9970: 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
9980: 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 enable_shared_ca
9990: 63 68 65 20 20 20 20 20 20 42 4f 4f 4c 45 41 4e che BOOLEAN
99a0: 0a 2a 2a 0a 2a 2f 0a 23 69 66 20 21 64 65 66 69 .**.*/.#if !defi
99b0: 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d 49 54 5f ned(SQLITE_OMIT_
99c0: 53 48 41 52 45 44 5f 43 41 43 48 45 29 0a 73 74 SHARED_CACHE).st
99d0: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 6e atic int test_en
99e0: 61 62 6c 65 5f 73 68 61 72 65 64 28 0a 20 20 43 able_shared(. C
99f0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
9a00: 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 Data, /* Pointer
9a10: 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 to sqlite3_enab
9a20: 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 le_XXX function
9a30: 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 */. Tcl_Interp
9a40: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
9a50: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
9a60: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
9a70: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
9a80: 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 int objc,
9a90: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
9aa0: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
9ab0: 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f */. Tcl_Obj *CO
9ac0: 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 NST objv[] /* C
9ad0: 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 ommand arguments
9ae0: 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b */.){. int rc;
9af0: 0a 20 20 69 6e 74 20 65 6e 61 62 6c 65 3b 0a 20 . int enable;.
9b00: 20 69 6e 74 20 72 65 74 20 3d 20 30 3b 0a 20 20 int ret = 0;.
9b10: 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
9b20: 65 33 53 68 61 72 65 64 43 61 63 68 65 45 6e 61 e3SharedCacheEna
9b30: 62 6c 65 64 3b 0a 0a 20 20 69 66 28 20 6f 62 6a bled;.. if( obj
9b40: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
9b50: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
9b60: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 42 erp, 1, objv, "B
9b70: 4f 4f 4c 45 41 4e 22 29 3b 0a 20 20 20 20 72 65 OOLEAN");. re
9b80: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
9b90: 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 }. if( Tcl_Ge
9ba0: 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 tBooleanFromObj(
9bb0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c interp, objv[1],
9bc0: 20 26 65 6e 61 62 6c 65 29 20 29 7b 0a 20 20 20 &enable) ){.
9bd0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
9be0: 52 3b 0a 20 20 7d 0a 20 20 72 65 74 20 3d 20 73 R;. }. ret = s
9bf0: 71 6c 69 74 65 33 53 68 61 72 65 64 43 61 63 68 qlite3SharedCach
9c00: 65 45 6e 61 62 6c 65 64 3b 0a 20 20 72 63 20 3d eEnabled;. rc =
9c10: 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f sqlite3_enable_
9c20: 73 68 61 72 65 64 5f 63 61 63 68 65 28 65 6e 61 shared_cache(ena
9c30: 62 6c 65 29 3b 0a 20 20 69 66 28 20 72 63 21 3d ble);. if( rc!=
9c40: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
9c50: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
9c60: 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 73 nterp, (char *)s
9c70: 71 6c 69 74 65 33 45 72 72 53 74 72 28 72 63 29 qlite3ErrStr(rc)
9c80: 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 , TCL_STATIC);.
9c90: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
9ca0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 ROR;. }. Tcl_S
9cb0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
9cc0: 72 70 2c 20 54 63 6c 5f 4e 65 77 42 6f 6f 6c 65 rp, Tcl_NewBoole
9cd0: 61 6e 4f 62 6a 28 72 65 74 29 29 3b 0a 20 20 72 anObj(ret));. r
9ce0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
9cf0: 23 65 6e 64 69 66 0a 0a 0a 0a 2f 2a 0a 2a 2a 20 #endif..../*.**
9d00: 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 65 Usage: sqlite3_e
9d10: 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 xtended_result_c
9d20: 6f 64 65 73 20 20 20 44 42 20 20 20 20 42 4f 4f odes DB BOO
9d30: 4c 45 41 4e 0a 2a 2a 0a 2a 2f 0a 73 74 61 74 69 LEAN.**.*/.stati
9d40: 63 20 69 6e 74 20 74 65 73 74 5f 65 78 74 65 6e c int test_exten
9d50: 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 ded_result_codes
9d60: 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
9d70: 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f lientData, /* Po
9d80: 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 inter to sqlite3
9d90: 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 _enable_XXX func
9da0: 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e tion */. Tcl_In
9db0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
9dc0: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
9dd0: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
9de0: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
9df0: 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c d */. int objc,
9e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
9e10: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
9e20: 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 ents */. Tcl_Ob
9e30: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 j *CONST objv[]
9e40: 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 /* Command argu
9e50: 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e ments */.){. in
9e60: 74 20 65 6e 61 62 6c 65 3b 0a 20 20 73 71 6c 69 t enable;. sqli
9e70: 74 65 33 20 2a 64 62 3b 0a 0a 20 20 69 66 28 20 te3 *db;.. if(
9e80: 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 objc!=3 ){. T
9e90: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
9ea0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
9eb0: 20 22 44 42 20 42 4f 4f 4c 45 41 4e 22 29 3b 0a "DB BOOLEAN");.
9ec0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
9ed0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
9ee0: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
9ef0: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
9f00: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
9f10: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
9f20: 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
9f30: 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 GetBooleanFromOb
9f40: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 j(interp, objv[2
9f50: 5d 2c 20 26 65 6e 61 62 6c 65 29 20 29 20 72 65 ], &enable) ) re
9f60: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
9f70: 20 20 73 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 sqlite3_extend
9f80: 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 28 ed_result_codes(
9f90: 64 62 2c 20 65 6e 61 62 6c 65 29 3b 0a 20 20 72 db, enable);. r
9fa0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
9fb0: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
9fc0: 6c 69 74 65 33 5f 6c 69 62 76 65 72 73 69 6f 6e lite3_libversion
9fd0: 5f 6e 75 6d 62 65 72 0a 2a 2a 0a 2a 2f 0a 73 74 _number.**.*/.st
9fe0: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6c 69 atic int test_li
9ff0: 62 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 28 bversion_number(
a000: 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c . ClientData cl
a010: 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 ientData, /* Poi
a020: 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 5f nter to sqlite3_
a030: 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 enable_XXX funct
a040: 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 ion */. Tcl_Int
a050: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
a060: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
a070: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
a080: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
a090: 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 */. int objc,
a0a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
a0b0: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
a0c0: 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a nts */. Tcl_Obj
a0d0: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 *CONST objv[]
a0e0: 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d /* Command argum
a0f0: 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 54 63 6c ents */.){. Tcl
a100: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
a110: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 terp, Tcl_NewInt
a120: 4f 62 6a 28 73 71 6c 69 74 65 33 5f 6c 69 62 76 Obj(sqlite3_libv
a130: 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 28 29 29 ersion_number())
a140: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
a150: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
a160: 67 65 3a 20 73 71 6c 69 74 65 33 5f 74 61 62 6c ge: sqlite3_tabl
a170: 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61 74 e_column_metadat
a180: 61 20 44 42 20 64 62 6e 61 6d 65 20 74 62 6c 6e a DB dbname tbln
a190: 61 6d 65 20 63 6f 6c 6e 61 6d 65 0a 2a 2a 0a 2a ame colname.**.*
a1a0: 2f 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f /.#ifdef SQLITE_
a1b0: 45 4e 41 42 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 ENABLE_COLUMN_ME
a1c0: 54 41 44 41 54 41 0a 73 74 61 74 69 63 20 69 6e TADATA.static in
a1d0: 74 20 74 65 73 74 5f 74 61 62 6c 65 5f 63 6f 6c t test_table_col
a1e0: 75 6d 6e 5f 6d 65 74 61 64 61 74 61 28 0a 20 20 umn_metadata(.
a1f0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
a200: 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 tData, /* Pointe
a210: 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 r to sqlite3_ena
a220: 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e ble_XXX function
a230: 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 */. Tcl_Interp
a240: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
a250: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
a260: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
a270: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
a280: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 . int objc,
a290: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
a2a0: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
a2b0: 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 */. Tcl_Obj *C
a2c0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 ONST objv[] /*
a2d0: 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 Command argument
a2e0: 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 s */.){. sqlite
a2f0: 33 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 3 *db;. const c
a300: 68 61 72 20 2a 7a 44 62 3b 0a 20 20 63 6f 6e 73 har *zDb;. cons
a310: 74 20 63 68 61 72 20 2a 7a 54 62 6c 3b 0a 20 20 t char *zTbl;.
a320: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 6c const char *zCol
a330: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 54 63 ;. int rc;. Tc
a340: 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a 0a 20 20 l_Obj *pRet;..
a350: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 61 74 const char *zDat
a360: 61 74 79 70 65 3b 0a 20 20 63 6f 6e 73 74 20 63 atype;. const c
a370: 68 61 72 20 2a 7a 43 6f 6c 6c 73 65 71 3b 0a 20 har *zCollseq;.
a380: 20 69 6e 74 20 6e 6f 74 6e 75 6c 6c 3b 0a 20 20 int notnull;.
a390: 69 6e 74 20 70 72 69 6d 61 72 79 6b 65 79 3b 0a int primarykey;.
a3a0: 20 20 69 6e 74 20 61 75 74 6f 69 6e 63 72 65 6d int autoincrem
a3b0: 65 6e 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 ent;.. if( objc
a3c0: 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 !=5 ){. Tcl_W
a3d0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
a3e0: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 rp, 1, objv, "DB
a3f0: 20 64 62 6e 61 6d 65 20 74 62 6c 6e 61 6d 65 20 dbname tblname
a400: 63 6f 6c 6e 61 6d 65 22 29 3b 0a 20 20 20 20 72 colname");. r
a410: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a420: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
a430: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
a440: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
a450: 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 jv[1]), &db) ) r
a460: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a470: 0a 20 20 7a 44 62 20 3d 20 54 63 6c 5f 47 65 74 . zDb = Tcl_Get
a480: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b String(objv[2]);
a490: 0a 20 20 7a 54 62 6c 20 3d 20 54 63 6c 5f 47 65 . zTbl = Tcl_Ge
a4a0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 tString(objv[3])
a4b0: 3b 0a 20 20 7a 43 6f 6c 20 3d 20 54 63 6c 5f 47 ;. zCol = Tcl_G
a4c0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34 5d etString(objv[4]
a4d0: 29 3b 0a 0a 20 20 69 66 28 20 73 74 72 6c 65 6e );.. if( strlen
a4e0: 28 7a 44 62 29 3d 3d 30 20 29 20 7a 44 62 20 3d (zDb)==0 ) zDb =
a4f0: 20 30 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 0;.. rc = sqli
a500: 74 65 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e te3_table_column
a510: 5f 6d 65 74 61 64 61 74 61 28 64 62 2c 20 7a 44 _metadata(db, zD
a520: 62 2c 20 7a 54 62 6c 2c 20 7a 43 6f 6c 2c 20 0a b, zTbl, zCol, .
a530: 20 20 20 20 20 20 26 7a 44 61 74 61 74 79 70 65 &zDatatype
a540: 2c 20 26 7a 43 6f 6c 6c 73 65 71 2c 20 26 6e 6f , &zCollseq, &no
a550: 74 6e 75 6c 6c 2c 20 26 70 72 69 6d 61 72 79 6b tnull, &primaryk
a560: 65 79 2c 20 26 61 75 74 6f 69 6e 63 72 65 6d 65 ey, &autoincreme
a570: 6e 74 29 3b 0a 0a 20 20 69 66 28 20 72 63 21 3d nt);.. if( rc!=
a580: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
a590: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
a5a0: 74 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 t(interp, sqlite
a5b0: 33 5f 65 72 72 6d 73 67 28 64 62 29 2c 20 30 29 3_errmsg(db), 0)
a5c0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
a5d0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 70 _ERROR;. }.. p
a5e0: 52 65 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a Ret = Tcl_NewObj
a5f0: 28 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ();. Tcl_ListOb
a600: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 jAppendElement(0
a610: 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 , pRet, Tcl_NewS
a620: 74 72 69 6e 67 4f 62 6a 28 7a 44 61 74 61 74 79 tringObj(zDataty
a630: 70 65 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f pe, -1));. Tcl_
a640: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
a650: 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 63 ment(0, pRet, Tc
a660: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a l_NewStringObj(z
a670: 43 6f 6c 6c 73 65 71 2c 20 2d 31 29 29 3b 0a 20 Collseq, -1));.
a680: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
a690: 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 ndElement(0, pRe
a6a0: 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a t, Tcl_NewIntObj
a6b0: 28 6e 6f 74 6e 75 6c 6c 29 29 3b 0a 20 20 54 63 (notnull));. Tc
a6c0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
a6d0: 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 lement(0, pRet,
a6e0: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 70 72 Tcl_NewIntObj(pr
a6f0: 69 6d 61 72 79 6b 65 79 29 29 3b 0a 20 20 54 63 imarykey));. Tc
a700: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
a710: 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 lement(0, pRet,
a720: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 61 75 Tcl_NewIntObj(au
a730: 74 6f 69 6e 63 72 65 6d 65 6e 74 29 29 3b 0a 20 toincrement));.
a740: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
a750: 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b t(interp, pRet);
a760: 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f .. return TCL_O
a770: 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 69 66 K;.}.#endif..#if
a780: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 ndef SQLITE_OMIT
a790: 5f 49 4e 43 52 42 4c 4f 42 0a 0a 2f 2a 0a 2a 2a _INCRBLOB../*.**
a7a0: 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 72 65 sqlite3_blob_re
a7b0: 61 64 20 20 43 48 41 4e 4e 45 4c 20 4f 46 46 53 ad CHANNEL OFFS
a7c0: 45 54 20 4e 0a 2a 2a 0a 2a 2a 20 20 20 54 68 69 ET N.**.** Thi
a7d0: 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 s command is use
a7e0: 64 20 74 6f 20 74 65 73 74 20 74 68 65 20 73 71 d to test the sq
a7f0: 6c 69 74 65 33 5f 62 6c 6f 62 5f 72 65 61 64 28 lite3_blob_read(
a800: 29 20 69 6e 20 77 61 79 73 20 74 68 61 74 0a 2a ) in ways that.*
a810: 2a 20 20 20 74 68 65 20 54 63 6c 20 63 68 61 6e * the Tcl chan
a820: 6e 65 6c 20 69 6e 74 65 72 66 61 63 65 20 64 6f nel interface do
a830: 65 73 20 6e 6f 74 2e 20 54 68 65 20 66 69 72 73 es not. The firs
a840: 74 20 61 72 67 75 6d 65 6e 74 20 73 68 6f 75 6c t argument shoul
a850: 64 0a 2a 2a 20 20 20 62 65 20 74 68 65 20 6e 61 d.** be the na
a860: 6d 65 20 6f 66 20 61 20 76 61 6c 69 64 20 63 68 me of a valid ch
a870: 61 6e 6e 65 6c 20 63 72 65 61 74 65 64 20 62 79 annel created by
a880: 20 74 68 65 20 5b 69 6e 63 72 62 6c 6f 62 5d 20 the [incrblob]
a890: 6d 65 74 68 6f 64 0a 2a 2a 20 20 20 6f 66 20 61 method.** of a
a8a0: 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 database handle
a8b0: 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 . This function
a8c0: 63 61 6c 6c 73 20 73 71 6c 69 74 65 33 5f 62 6c calls sqlite3_bl
a8d0: 6f 62 5f 72 65 61 64 28 29 0a 2a 2a 20 20 20 74 ob_read().** t
a8e0: 6f 20 72 65 61 64 20 4e 20 62 79 74 65 73 20 66 o read N bytes f
a8f0: 72 6f 6d 20 6f 66 66 73 65 74 20 4f 46 46 53 45 rom offset OFFSE
a900: 54 20 66 72 6f 6d 20 74 68 65 20 75 6e 64 65 72 T from the under
a910: 6c 79 69 6e 67 20 53 51 4c 69 74 65 0a 2a 2a 20 lying SQLite.**
a920: 20 20 62 6c 6f 62 20 68 61 6e 64 6c 65 2e 0a 2a blob handle..*
a930: 2a 0a 2a 2a 20 20 20 4f 6e 20 73 75 63 63 65 73 *.** On succes
a940: 73 2c 20 61 20 62 79 74 65 2d 61 72 72 61 79 20 s, a byte-array
a950: 6f 62 6a 65 63 74 20 63 6f 6e 74 61 69 6e 69 6e object containin
a960: 67 20 74 68 65 20 72 65 61 64 20 64 61 74 61 20 g the read data
a970: 69 73 20 0a 2a 2a 20 20 20 72 65 74 75 72 6e 65 is .** returne
a980: 64 2e 20 4f 6e 20 66 61 69 6c 75 72 65 2c 20 74 d. On failure, t
a990: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 72 he interpreter r
a9a0: 65 73 75 6c 74 20 69 73 20 73 65 74 20 74 6f 20 esult is set to
a9b0: 74 68 65 0a 2a 2a 20 20 20 74 65 78 74 20 72 65 the.** text re
a9c0: 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 presentation of
a9d0: 74 68 65 20 72 65 74 75 72 6e 65 64 20 65 72 72 the returned err
a9e0: 6f 72 20 63 6f 64 65 20 28 69 2e 65 2e 20 22 53 or code (i.e. "S
a9f0: 51 4c 49 54 45 5f 4e 4f 4d 45 4d 22 29 0a 2a 2a QLITE_NOMEM").**
aa00: 20 20 20 61 6e 64 20 61 20 54 63 6c 20 65 78 63 and a Tcl exc
aa10: 65 70 74 69 6f 6e 20 69 73 20 74 68 72 6f 77 6e eption is thrown
aa20: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
aa30: 74 65 73 74 5f 62 6c 6f 62 5f 72 65 61 64 28 0a test_blob_read(.
aa40: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
aa50: 65 6e 74 44 61 74 61 2c 20 2f 2a 20 4e 6f 74 20 entData, /* Not
aa60: 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e used */. Tcl_In
aa70: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
aa80: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
aa90: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
aaa0: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
aab0: 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c d */. int objc,
aac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
aad0: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
aae0: 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 ents */. Tcl_Ob
aaf0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 j *CONST objv[]
ab00: 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 /* Command argu
ab10: 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 54 63 ments */.){. Tc
ab20: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 6e 65 l_Channel channe
ab30: 6c 3b 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 l;. ClientData
ab40: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 instanceData;.
ab50: 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 2a 70 42 sqlite3_blob *pB
ab60: 6c 6f 62 3b 0a 20 20 69 6e 74 20 6e 6f 74 55 73 lob;. int notUs
ab70: 65 64 3b 0a 20 20 69 6e 74 20 6e 42 79 74 65 3b ed;. int nByte;
ab80: 0a 20 20 69 6e 74 20 69 4f 66 66 73 65 74 3b 0a . int iOffset;.
ab90: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
aba0: 2a 7a 42 75 66 3b 0a 20 20 69 6e 74 20 72 63 3b *zBuf;. int rc;
abb0: 0a 20 20 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d . . if( objc!=
abc0: 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 4 ){. Tcl_Wro
abd0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
abe0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 43 48 41 4e , 1, objv, "CHAN
abf0: 4e 45 4c 20 4f 46 46 53 45 54 20 4e 22 29 3b 0a NEL OFFSET N");.
ac00: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
ac10: 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 63 68 61 RROR;. }.. cha
ac20: 6e 6e 65 6c 20 3d 20 54 63 6c 5f 47 65 74 43 68 nnel = Tcl_GetCh
ac30: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 annel(interp, Tc
ac40: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
ac50: 5b 31 5d 29 2c 20 26 6e 6f 74 55 73 65 64 29 3b [1]), ¬Used);
ac60: 0a 20 20 69 66 28 20 21 63 68 61 6e 6e 65 6c 0a . if( !channel.
ac70: 20 20 20 7c 7c 20 54 43 4c 5f 4f 4b 21 3d 54 63 || TCL_OK!=Tc
ac80: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
ac90: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
aca0: 20 26 69 4f 66 66 73 65 74 29 0a 20 20 20 7c 7c &iOffset). ||
acb0: 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 TCL_OK!=Tcl_Get
acc0: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
acd0: 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 6e 42 79 p, objv[3], &nBy
ace0: 74 65 29 0a 20 20 20 7c 7c 20 6e 42 79 74 65 3c te). || nByte<
acf0: 30 20 7c 7c 20 69 4f 66 66 73 65 74 3c 30 0a 20 0 || iOffset<0.
ad00: 20 29 7b 20 0a 20 20 20 20 72 65 74 75 72 6e 20 ){ . return
ad10: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
ad20: 20 20 69 6e 73 74 61 6e 63 65 44 61 74 61 20 3d instanceData =
ad30: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 Tcl_GetChannelI
ad40: 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e nstanceData(chan
ad50: 6e 65 6c 29 3b 0a 20 20 70 42 6c 6f 62 20 3d 20 nel);. pBlob =
ad60: 2a 28 28 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 *((sqlite3_blob
ad70: 2a 2a 29 69 6e 73 74 61 6e 63 65 44 61 74 61 29 **)instanceData)
ad80: 3b 0a 0a 20 20 7a 42 75 66 20 3d 20 28 75 6e 73 ;.. zBuf = (uns
ad90: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 54 63 6c igned char *)Tcl
ada0: 5f 41 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20 _Alloc(nByte);.
adb0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 6c rc = sqlite3_bl
adc0: 6f 62 5f 72 65 61 64 28 70 42 6c 6f 62 2c 20 7a ob_read(pBlob, z
add0: 42 75 66 2c 20 6e 42 79 74 65 2c 20 69 4f 66 66 Buf, nByte, iOff
ade0: 73 65 74 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d set);. if( rc==
adf0: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
ae00: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
ae10: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
ae20: 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28 7a 42 wByteArrayObj(zB
ae30: 75 66 2c 20 6e 42 79 74 65 29 29 3b 0a 20 20 7d uf, nByte));. }
ae40: 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f 53 65 else{. Tcl_Se
ae50: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
ae60: 28 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 54 (char *)sqlite3T
ae70: 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 estErrorName(rc)
ae80: 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b , TCL_VOLATILE);
ae90: 0a 20 20 7d 0a 20 20 54 63 6c 5f 46 72 65 65 28 . }. Tcl_Free(
aea0: 28 63 68 61 72 20 2a 29 7a 42 75 66 29 3b 0a 0a (char *)zBuf);..
aeb0: 20 20 72 65 74 75 72 6e 20 28 72 63 3d 3d 53 51 return (rc==SQ
aec0: 4c 49 54 45 5f 4f 4b 20 3f 20 54 43 4c 5f 4f 4b LITE_OK ? TCL_OK
aed0: 20 3a 20 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 7d : TCL_ERROR);.}
aee0: 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65 33 5f ../*.** sqlite3_
aef0: 62 6c 6f 62 5f 77 72 69 74 65 20 43 48 41 4e 4e blob_write CHANN
af00: 45 4c 20 4f 46 46 53 45 54 20 44 41 54 41 0a 2a EL OFFSET DATA.*
af10: 2a 0a 2a 2a 20 20 20 54 68 69 73 20 63 6f 6d 6d *.** This comm
af20: 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 74 and is used to t
af30: 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f est the sqlite3_
af40: 62 6c 6f 62 5f 77 72 69 74 65 28 29 20 69 6e 20 blob_write() in
af50: 77 61 79 73 20 74 68 61 74 0a 2a 2a 20 20 20 74 ways that.** t
af60: 68 65 20 54 63 6c 20 63 68 61 6e 6e 65 6c 20 69 he Tcl channel i
af70: 6e 74 65 72 66 61 63 65 20 64 6f 65 73 20 6e 6f nterface does no
af80: 74 2e 20 54 68 65 20 66 69 72 73 74 20 61 72 67 t. The first arg
af90: 75 6d 65 6e 74 20 73 68 6f 75 6c 64 0a 2a 2a 20 ument should.**
afa0: 20 20 62 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 be the name of
afb0: 20 61 20 76 61 6c 69 64 20 63 68 61 6e 6e 65 6c a valid channel
afc0: 20 63 72 65 61 74 65 64 20 62 79 20 74 68 65 20 created by the
afd0: 5b 69 6e 63 72 62 6c 6f 62 5d 20 6d 65 74 68 6f [incrblob] metho
afe0: 64 0a 2a 2a 20 20 20 6f 66 20 61 20 64 61 74 61 d.** of a data
aff0: 62 61 73 65 20 68 61 6e 64 6c 65 2e 20 54 68 69 base handle. Thi
b000: 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 73 s function calls
b010: 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72 sqlite3_blob_wr
b020: 69 74 65 28 29 0a 2a 2a 20 20 20 74 6f 20 77 72 ite().** to wr
b030: 69 74 65 20 74 68 65 20 44 41 54 41 20 62 79 74 ite the DATA byt
b040: 65 2d 61 72 72 61 79 20 74 6f 20 74 68 65 20 75 e-array to the u
b050: 6e 64 65 72 6c 79 69 6e 67 20 53 51 4c 69 74 65 nderlying SQLite
b060: 20 62 6c 6f 62 20 68 61 6e 64 6c 65 2e 0a 2a 2a blob handle..**
b070: 20 20 20 61 74 20 6f 66 66 73 65 74 20 4f 46 46 at offset OFF
b080: 53 45 54 2e 0a 2a 2a 0a 2a 2a 20 20 20 4f 6e 20 SET..**.** On
b090: 73 75 63 63 65 73 73 2c 20 61 6e 20 65 6d 70 74 success, an empt
b0a0: 79 20 73 74 72 69 6e 67 20 69 73 20 72 65 74 75 y string is retu
b0b0: 72 6e 65 64 2e 20 4f 6e 20 66 61 69 6c 75 72 65 rned. On failure
b0c0: 2c 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 , the interprete
b0d0: 72 0a 2a 2a 20 20 20 72 65 73 75 6c 74 20 69 73 r.** result is
b0e0: 20 73 65 74 20 74 6f 20 74 68 65 20 74 65 78 74 set to the text
b0f0: 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 representation
b100: 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 of the returned
b110: 65 72 72 6f 72 20 63 6f 64 65 20 0a 2a 2a 20 20 error code .**
b120: 20 28 69 2e 65 2e 20 22 53 51 4c 49 54 45 5f 4e (i.e. "SQLITE_N
b130: 4f 4d 45 4d 22 29 20 61 6e 64 20 61 20 54 63 6c OMEM") and a Tcl
b140: 20 65 78 63 65 70 74 69 6f 6e 20 69 73 20 74 68 exception is th
b150: 72 6f 77 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 rown..*/.static
b160: 69 6e 74 20 74 65 73 74 5f 62 6c 6f 62 5f 77 72 int test_blob_wr
b170: 69 74 65 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 ite(. ClientDat
b180: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a a clientData, /*
b190: 20 4e 6f 74 20 75 73 65 64 20 2a 2f 0a 20 20 54 Not used */. T
b1a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
b1b0: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
b1c0: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
b1d0: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
b1e0: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
b1f0: 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 objc,
b200: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
b210: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 arguments */. T
b220: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
b230: 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 jv[] /* Command
b240: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b arguments */.){
b250: 0a 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 . Tcl_Channel c
b260: 68 61 6e 6e 65 6c 3b 0a 20 20 43 6c 69 65 6e 74 hannel;. Client
b270: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
b280: 61 3b 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f a;. sqlite3_blo
b290: 62 20 2a 70 42 6c 6f 62 3b 0a 20 20 69 6e 74 20 b *pBlob;. int
b2a0: 6e 6f 74 55 73 65 64 3b 0a 20 20 69 6e 74 20 69 notUsed;. int i
b2b0: 4f 66 66 73 65 74 3b 0a 20 20 69 6e 74 20 72 63 Offset;. int rc
b2c0: 3b 0a 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 ;.. unsigned ch
b2d0: 61 72 20 2a 7a 42 75 66 3b 0a 20 20 69 6e 74 20 ar *zBuf;. int
b2e0: 6e 42 75 66 3b 0a 20 20 0a 20 20 69 66 28 20 6f nBuf;. . if( o
b2f0: 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 bjc!=4 ){. Tc
b300: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
b310: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
b320: 22 43 48 41 4e 4e 45 4c 20 4f 46 46 53 45 54 20 "CHANNEL OFFSET
b330: 44 41 54 41 22 29 3b 0a 20 20 20 20 72 65 74 75 DATA");. retu
b340: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
b350: 7d 0a 0a 20 20 63 68 61 6e 6e 65 6c 20 3d 20 54 }.. channel = T
b360: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e cl_GetChannel(in
b370: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
b380: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 6e ing(objv[1]), &n
b390: 6f 74 55 73 65 64 29 3b 0a 20 20 69 66 28 20 21 otUsed);. if( !
b3a0: 63 68 61 6e 6e 65 6c 0a 20 20 20 7c 7c 20 54 43 channel. || TC
b3b0: 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 L_OK!=Tcl_GetInt
b3c0: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
b3d0: 6f 62 6a 76 5b 32 5d 2c 20 26 69 4f 66 66 73 65 objv[2], &iOffse
b3e0: 74 29 0a 20 20 20 7c 7c 20 69 4f 66 66 73 65 74 t). || iOffset
b3f0: 3c 30 0a 20 20 29 7b 20 0a 20 20 20 20 72 65 74 <0. ){ . ret
b400: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
b410: 20 7d 0a 0a 20 20 69 6e 73 74 61 6e 63 65 44 61 }.. instanceDa
b420: 74 61 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e ta = Tcl_GetChan
b430: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
b440: 63 68 61 6e 6e 65 6c 29 3b 0a 20 20 70 42 6c 6f channel);. pBlo
b450: 62 20 3d 20 2a 28 28 73 71 6c 69 74 65 33 5f 62 b = *((sqlite3_b
b460: 6c 6f 62 20 2a 2a 29 69 6e 73 74 61 6e 63 65 44 lob **)instanceD
b470: 61 74 61 29 3b 0a 0a 20 20 7a 42 75 66 20 3d 20 ata);.. zBuf =
b480: 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 Tcl_GetByteArray
b490: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c FromObj(objv[3],
b4a0: 20 26 6e 42 75 66 29 3b 0a 20 20 72 63 20 3d 20 &nBuf);. rc =
b4b0: 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69 sqlite3_blob_wri
b4c0: 74 65 28 70 42 6c 6f 62 2c 20 7a 42 75 66 2c 20 te(pBlob, zBuf,
b4d0: 6e 42 75 66 2c 20 69 4f 66 66 73 65 74 29 3b 0a nBuf, iOffset);.
b4e0: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 if( rc!=SQLITE
b4f0: 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 _OK ){. Tcl_S
b500: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
b510: 20 28 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 (char *)sqlite3
b520: 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 72 63 TestErrorName(rc
b530: 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 ), TCL_VOLATILE)
b540: 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 ;. }.. return
b550: 28 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 3f (rc==SQLITE_OK ?
b560: 20 54 43 4c 5f 4f 4b 20 3a 20 54 43 4c 5f 45 52 TCL_OK : TCL_ER
b570: 52 4f 52 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a ROR);.}.#endif..
b580: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c /*.** Usage: sql
b590: 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c ite3_create_coll
b5a0: 61 74 69 6f 6e 5f 76 32 20 44 42 2d 48 41 4e 44 ation_v2 DB-HAND
b5b0: 4c 45 20 4e 41 4d 45 20 43 4d 50 2d 50 52 4f 43 LE NAME CMP-PROC
b5c0: 20 44 45 4c 2d 50 52 4f 43 0a 2a 2a 0a 2a 2a 20 DEL-PROC.**.**
b5d0: 20 20 54 68 69 73 20 54 63 6c 20 70 72 6f 63 20 This Tcl proc
b5e0: 69 73 20 75 73 65 64 20 66 6f 72 20 74 65 73 74 is used for test
b5f0: 69 6e 67 20 74 68 65 20 65 78 70 65 72 69 6d 65 ing the experime
b600: 6e 74 61 6c 0a 2a 2a 20 20 20 73 71 6c 69 74 65 ntal.** sqlite
b610: 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 3_create_collati
b620: 6f 6e 5f 76 32 28 29 20 69 6e 74 65 72 66 61 63 on_v2() interfac
b630: 65 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54 65 73 e..*/.struct Tes
b640: 74 43 6f 6c 6c 61 74 69 6f 6e 58 20 7b 0a 20 20 tCollationX {.
b650: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
b660: 72 70 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 rp;. Tcl_Obj *p
b670: 43 6d 70 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a Cmp;. Tcl_Obj *
b680: 70 44 65 6c 3b 0a 7d 3b 0a 74 79 70 65 64 65 66 pDel;.};.typedef
b690: 20 73 74 72 75 63 74 20 54 65 73 74 43 6f 6c 6c struct TestColl
b6a0: 61 74 69 6f 6e 58 20 54 65 73 74 43 6f 6c 6c 61 ationX TestColla
b6b0: 74 69 6f 6e 58 3b 0a 73 74 61 74 69 63 20 76 6f tionX;.static vo
b6c0: 69 64 20 74 65 73 74 43 72 65 61 74 65 43 6f 6c id testCreateCol
b6d0: 6c 61 74 69 6f 6e 44 65 6c 28 76 6f 69 64 20 2a lationDel(void *
b6e0: 70 43 74 78 29 7b 0a 20 20 54 65 73 74 43 6f 6c pCtx){. TestCol
b6f0: 6c 61 74 69 6f 6e 58 20 2a 70 20 3d 20 28 54 65 lationX *p = (Te
b700: 73 74 43 6f 6c 6c 61 74 69 6f 6e 58 20 2a 29 70 stCollationX *)p
b710: 43 74 78 3b 0a 0a 20 20 69 6e 74 20 72 63 20 3d Ctx;.. int rc =
b720: 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70 Tcl_EvalObjEx(p
b730: 2d 3e 69 6e 74 65 72 70 2c 20 70 2d 3e 70 44 65 ->interp, p->pDe
b740: 6c 2c 20 54 43 4c 5f 45 56 41 4c 5f 44 49 52 45 l, TCL_EVAL_DIRE
b750: 43 54 7c 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 CT|TCL_EVAL_GLOB
b760: 41 4c 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 54 AL);. if( rc!=T
b770: 43 4c 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c CL_OK ){. Tcl
b780: 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 _BackgroundError
b790: 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 7d (p->interp);. }
b7a0: 0a 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 .. Tcl_DecrRefC
b7b0: 6f 75 6e 74 28 70 2d 3e 70 43 6d 70 29 3b 0a 20 ount(p->pCmp);.
b7c0: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
b7d0: 74 28 70 2d 3e 70 44 65 6c 29 3b 0a 20 20 73 71 t(p->pDel);. sq
b7e0: 6c 69 74 65 33 5f 66 72 65 65 28 28 76 6f 69 64 lite3_free((void
b7f0: 20 2a 29 70 29 3b 0a 7d 0a 73 74 61 74 69 63 20 *)p);.}.static
b800: 69 6e 74 20 74 65 73 74 43 72 65 61 74 65 43 6f int testCreateCo
b810: 6c 6c 61 74 69 6f 6e 43 6d 70 28 0a 20 20 76 6f llationCmp(. vo
b820: 69 64 20 2a 70 43 74 78 2c 0a 20 20 69 6e 74 20 id *pCtx,. int
b830: 6e 4c 65 66 74 2c 0a 20 20 63 6f 6e 73 74 20 76 nLeft,. const v
b840: 6f 69 64 20 2a 7a 4c 65 66 74 2c 0a 20 20 69 6e oid *zLeft,. in
b850: 74 20 6e 52 69 67 68 74 2c 0a 20 20 63 6f 6e 73 t nRight,. cons
b860: 74 20 76 6f 69 64 20 2a 7a 52 69 67 68 74 0a 29 t void *zRight.)
b870: 7b 0a 20 20 54 65 73 74 43 6f 6c 6c 61 74 69 6f {. TestCollatio
b880: 6e 58 20 2a 70 20 3d 20 28 54 65 73 74 43 6f 6c nX *p = (TestCol
b890: 6c 61 74 69 6f 6e 58 20 2a 29 70 43 74 78 3b 0a lationX *)pCtx;.
b8a0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 63 72 69 Tcl_Obj *pScri
b8b0: 70 74 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 pt = Tcl_Duplica
b8c0: 74 65 4f 62 6a 28 70 2d 3e 70 43 6d 70 29 3b 0a teObj(p->pCmp);.
b8d0: 20 20 69 6e 74 20 69 52 65 73 20 3d 20 30 3b 0a int iRes = 0;.
b8e0: 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f . Tcl_IncrRefCo
b8f0: 75 6e 74 28 70 53 63 72 69 70 74 29 3b 0a 20 20 unt(pScript);.
b900: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
b910: 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 53 63 72 dElement(0, pScr
b920: 69 70 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 ipt, Tcl_NewStri
b930: 6e 67 4f 62 6a 28 28 63 68 61 72 20 2a 29 7a 4c ngObj((char *)zL
b940: 65 66 74 2c 20 6e 4c 65 66 74 29 29 3b 0a 20 20 eft, nLeft));.
b950: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
b960: 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 53 63 72 dElement(0, pScr
b970: 69 70 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 ipt, Tcl_NewStri
b980: 6e 67 4f 62 6a 28 28 63 68 61 72 20 2a 29 7a 52 ngObj((char *)zR
b990: 69 67 68 74 2c 6e 52 69 67 68 74 29 29 3b 0a 0a ight,nRight));..
b9a0: 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 if( TCL_OK!=Tc
b9b0: 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70 2d 3e 69 l_EvalObjEx(p->i
b9c0: 6e 74 65 72 70 2c 20 70 53 63 72 69 70 74 2c 20 nterp, pScript,
b9d0: 54 43 4c 5f 45 56 41 4c 5f 44 49 52 45 43 54 7c TCL_EVAL_DIRECT|
b9e0: 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 TCL_EVAL_GLOBAL)
b9f0: 0a 20 20 20 7c 7c 20 54 43 4c 5f 4f 4b 21 3d 54 . || TCL_OK!=T
ba00: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
ba10: 28 70 2d 3e 69 6e 74 65 72 70 2c 20 54 63 6c 5f (p->interp, Tcl_
ba20: 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 70 2d 3e GetObjResult(p->
ba30: 69 6e 74 65 72 70 29 2c 20 26 69 52 65 73 29 0a interp), &iRes).
ba40: 20 20 29 7b 0a 20 20 20 20 54 63 6c 5f 42 61 63 ){. Tcl_Bac
ba50: 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 70 2d 3e kgroundError(p->
ba60: 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a 20 20 54 interp);. }. T
ba70: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
ba80: 70 53 63 72 69 70 74 29 3b 0a 0a 20 20 72 65 74 pScript);.. ret
ba90: 75 72 6e 20 69 52 65 73 3b 0a 7d 0a 73 74 61 74 urn iRes;.}.stat
baa0: 69 63 20 69 6e 74 20 74 65 73 74 5f 63 72 65 61 ic int test_crea
bab0: 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 28 te_collation_v2(
bac0: 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c . ClientData cl
bad0: 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 4e 6f 74 ientData, /* Not
bae0: 20 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 used */. Tcl_I
baf0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
bb00: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
bb10: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
bb20: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
bb30: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 nd */. int objc
bb40: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
bb50: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
bb60: 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f ments */. Tcl_O
bb70: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
bb80: 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 /* Command arg
bb90: 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 54 uments */.){. T
bba0: 65 73 74 43 6f 6c 6c 61 74 69 6f 6e 58 20 2a 70 estCollationX *p
bbb0: 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b ;. sqlite3 *db;
bbc0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 .. if( objc!=5
bbd0: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
bbe0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
bbf0: 31 2c 20 6f 62 6a 76 2c 20 22 44 42 2d 48 41 4e 1, objv, "DB-HAN
bc00: 44 4c 45 20 4e 41 4d 45 20 43 4d 50 2d 50 52 4f DLE NAME CMP-PRO
bc10: 43 20 44 45 4c 2d 50 52 4f 43 22 29 3b 0a 20 20 C DEL-PROC");.
bc20: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
bc30: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
bc40: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
bc50: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
bc60: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 (objv[1]), &db)
bc70: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
bc80: 4f 52 3b 0a 0a 20 20 70 20 3d 20 28 54 65 73 74 OR;.. p = (Test
bc90: 43 6f 6c 6c 61 74 69 6f 6e 58 20 2a 29 73 71 6c CollationX *)sql
bca0: 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 73 69 7a 65 ite3_malloc(size
bcb0: 6f 66 28 54 65 73 74 43 6f 6c 6c 61 74 69 6f 6e of(TestCollation
bcc0: 58 29 29 3b 0a 20 20 70 2d 3e 70 43 6d 70 20 3d X));. p->pCmp =
bcd0: 20 6f 62 6a 76 5b 33 5d 3b 0a 20 20 70 2d 3e 70 objv[3];. p->p
bce0: 44 65 6c 20 3d 20 6f 62 6a 76 5b 34 5d 3b 0a 20 Del = objv[4];.
bcf0: 20 70 2d 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 p->interp = int
bd00: 65 72 70 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 erp;. Tcl_IncrR
bd10: 65 66 43 6f 75 6e 74 28 70 2d 3e 70 43 6d 70 29 efCount(p->pCmp)
bd20: 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 ;. Tcl_IncrRefC
bd30: 6f 75 6e 74 28 70 2d 3e 70 44 65 6c 29 3b 0a 0a ount(p->pDel);..
bd40: 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 sqlite3_create
bd50: 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 28 64 62 _collation_v2(db
bd60: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
bd70: 6f 62 6a 76 5b 32 5d 29 2c 20 53 51 4c 49 54 45 objv[2]), SQLITE
bd80: 5f 55 54 46 38 2c 20 0a 20 20 20 20 20 20 28 76 _UTF8, . (v
bd90: 6f 69 64 20 2a 29 70 2c 20 74 65 73 74 43 72 65 oid *)p, testCre
bda0: 61 74 65 43 6f 6c 6c 61 74 69 6f 6e 43 6d 70 2c ateCollationCmp,
bdb0: 20 74 65 73 74 43 72 65 61 74 65 43 6f 6c 6c 61 testCreateColla
bdc0: 74 69 6f 6e 44 65 6c 0a 20 20 29 3b 0a 20 20 72 tionDel. );. r
bdd0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
bde0: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
bdf0: 6c 69 74 65 33 5f 6c 6f 61 64 5f 65 78 74 65 6e lite3_load_exten
be00: 73 69 6f 6e 20 44 42 2d 48 41 4e 44 4c 45 20 46 sion DB-HANDLE F
be10: 49 4c 45 20 3f 50 52 4f 43 3f 0a 2a 2f 0a 73 74 ILE ?PROC?.*/.st
be20: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6c 6f atic int test_lo
be30: 61 64 5f 65 78 74 65 6e 73 69 6f 6e 28 0a 20 20 ad_extension(.
be40: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
be50: 74 44 61 74 61 2c 20 2f 2a 20 4e 6f 74 20 75 73 tData, /* Not us
be60: 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 ed */. Tcl_Inte
be70: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
be80: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
be90: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
bea0: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
beb0: 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 */. int objc,
bec0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
bed0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
bee0: 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 ts */. Tcl_Obj
bef0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f *CONST objv[] /
bf00: 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 * Command argume
bf10: 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 54 63 6c 5f nts */.){. Tcl_
bf20: 43 6d 64 49 6e 66 6f 20 63 6d 64 49 6e 66 6f 3b CmdInfo cmdInfo;
bf30: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
bf40: 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 int rc;. char
bf50: 20 2a 7a 44 62 3b 0a 20 20 63 68 61 72 20 2a 7a *zDb;. char *z
bf60: 46 69 6c 65 3b 0a 20 20 63 68 61 72 20 2a 7a 50 File;. char *zP
bf70: 72 6f 63 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 roc = 0;. char
bf80: 2a 7a 45 72 72 20 3d 20 30 3b 0a 0a 20 20 69 66 *zErr = 0;.. if
bf90: 28 20 6f 62 6a 63 21 3d 34 20 26 26 20 6f 62 6a ( objc!=4 && obj
bfa0: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
bfb0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
bfc0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 erp, 1, objv, "D
bfd0: 42 2d 48 41 4e 44 4c 45 20 46 49 4c 45 20 3f 50 B-HANDLE FILE ?P
bfe0: 52 4f 43 3f 22 29 3b 0a 20 20 20 20 72 65 74 75 ROC?");. retu
bff0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
c000: 7d 0a 20 20 7a 44 62 20 3d 20 54 63 6c 5f 47 65 }. zDb = Tcl_Ge
c010: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
c020: 3b 0a 20 20 7a 46 69 6c 65 20 3d 20 54 63 6c 5f ;. zFile = Tcl_
c030: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 GetString(objv[2
c040: 5d 29 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d ]);. if( objc==
c050: 34 20 29 7b 0a 20 20 20 20 7a 50 72 6f 63 20 3d 4 ){. zProc =
c060: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
c070: 62 6a 76 5b 33 5d 29 3b 0a 20 20 7d 0a 0a 20 20 bjv[3]);. }..
c080: 2f 2a 20 45 78 74 72 61 63 74 20 74 68 65 20 43 /* Extract the C
c090: 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 database handle
c0a0: 20 66 72 6f 6d 20 74 68 65 20 54 63 6c 20 63 6f from the Tcl co
c0b0: 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a 20 20 mmand name */.
c0c0: 69 66 28 20 21 54 63 6c 5f 47 65 74 43 6f 6d 6d if( !Tcl_GetComm
c0d0: 61 6e 64 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 andInfo(interp,
c0e0: 7a 44 62 2c 20 26 63 6d 64 49 6e 66 6f 29 20 29 zDb, &cmdInfo) )
c0f0: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
c100: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
c110: 63 6f 6d 6d 61 6e 64 20 6e 6f 74 20 66 6f 75 6e command not foun
c120: 64 3a 20 22 2c 20 7a 44 62 2c 20 28 63 68 61 72 d: ", zDb, (char
c130: 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e *)0);. return
c140: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
c150: 20 20 64 62 20 3d 20 28 28 73 74 72 75 63 74 20 db = ((struct
c160: 53 71 6c 69 74 65 44 62 2a 29 63 6d 64 49 6e 66 SqliteDb*)cmdInf
c170: 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 61 74 61 29 o.objClientData)
c180: 2d 3e 64 62 3b 0a 20 20 61 73 73 65 72 74 28 64 ->db;. assert(d
c190: 62 29 3b 0a 0a 20 20 2f 2a 20 43 61 6c 6c 20 74 b);.. /* Call t
c1a0: 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 43 20 he underlying C
c1b0: 66 75 6e 63 74 69 6f 6e 2e 20 49 66 20 61 6e 20 function. If an
c1c0: 65 72 72 6f 72 20 6f 63 63 75 72 73 2c 20 73 65 error occurs, se
c1d0: 74 20 72 63 20 74 6f 20 0a 20 20 2a 2a 20 54 43 t rc to . ** TC
c1e0: 4c 5f 45 52 52 4f 52 20 61 6e 64 20 6c 6f 61 64 L_ERROR and load
c1f0: 20 61 6e 79 20 65 72 72 6f 72 20 73 74 72 69 6e any error strin
c200: 67 20 69 6e 74 6f 20 74 68 65 20 69 6e 74 65 72 g into the inter
c210: 70 72 65 74 65 72 2e 20 49 66 20 6e 6f 20 0a 20 preter. If no .
c220: 20 2a 2a 20 65 72 72 6f 72 20 6f 63 63 75 72 73 ** error occurs
c230: 2c 20 73 65 74 20 72 63 20 74 6f 20 54 43 4c 5f , set rc to TCL_
c240: 4f 4b 2e 0a 20 20 2a 2f 0a 23 69 66 64 65 66 20 OK.. */.#ifdef
c250: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 SQLITE_OMIT_LOAD
c260: 5f 45 58 54 45 4e 53 49 4f 4e 0a 20 20 72 63 20 _EXTENSION. rc
c270: 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a = SQLITE_ERROR;.
c280: 20 20 7a 45 72 72 20 3d 20 73 71 6c 69 74 65 33 zErr = sqlite3
c290: 5f 6d 70 72 69 6e 74 66 28 22 74 68 69 73 20 62 _mprintf("this b
c2a0: 75 69 6c 64 20 6f 6d 69 74 73 20 73 71 6c 69 74 uild omits sqlit
c2b0: 65 33 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f e3_load_extensio
c2c0: 6e 28 29 22 29 3b 0a 23 65 6c 73 65 0a 20 20 72 n()");.#else. r
c2d0: 63 20 3d 20 73 71 6c 69 74 65 33 5f 6c 6f 61 64 c = sqlite3_load
c2e0: 5f 65 78 74 65 6e 73 69 6f 6e 28 64 62 2c 20 7a _extension(db, z
c2f0: 46 69 6c 65 2c 20 7a 50 72 6f 63 2c 20 26 7a 45 File, zProc, &zE
c300: 72 72 29 3b 0a 23 65 6e 64 69 66 0a 20 20 69 66 rr);.#endif. if
c310: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc!=SQLITE_OK
c320: 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 ){. Tcl_SetRe
c330: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 45 72 sult(interp, zEr
c340: 72 20 3f 20 7a 45 72 72 20 3a 20 22 22 2c 20 54 r ? zErr : "", T
c350: 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 CL_VOLATILE);.
c360: 20 20 72 63 20 3d 20 54 43 4c 5f 45 52 52 4f 52 rc = TCL_ERROR
c370: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 ;. }else{. r
c380: 63 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 7d 0a c = TCL_OK;. }.
c390: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a sqlite3_free(z
c3a0: 45 72 72 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 Err);.. return
c3b0: 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 rc;.}../*.** Usa
c3c0: 67 65 3a 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 ge: sqlite3_enab
c3d0: 6c 65 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f le_load_extensio
c3e0: 6e 20 44 42 2d 48 41 4e 44 4c 45 20 4f 4e 4f 46 n DB-HANDLE ONOF
c3f0: 46 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 F.*/.static int
c400: 74 65 73 74 5f 65 6e 61 62 6c 65 5f 6c 6f 61 64 test_enable_load
c410: 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
c420: 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 4e 6f lientData, /* No
c430: 74 20 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f t used */. Tcl_
c440: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
c450: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
c460: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
c470: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
c480: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a and */. int obj
c490: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
c4a0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
c4b0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f uments */. Tcl_
c4c0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
c4d0: 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 ] /* Command ar
c4e0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 guments */.){.
c4f0: 54 63 6c 5f 43 6d 64 49 6e 66 6f 20 63 6d 64 49 Tcl_CmdInfo cmdI
c500: 6e 66 6f 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a nfo;. sqlite3 *
c510: 64 62 3b 0a 20 20 63 68 61 72 20 2a 7a 44 62 3b db;. char *zDb;
c520: 0a 20 20 69 6e 74 20 6f 6e 6f 66 66 3b 0a 0a 20 . int onoff;..
c530: 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a if( objc!=3 ){.
c540: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
c550: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
c560: 6f 62 6a 76 2c 20 22 44 42 2d 48 41 4e 44 4c 45 objv, "DB-HANDLE
c570: 20 4f 4e 4f 46 46 22 29 3b 0a 20 20 20 20 72 65 ONOFF");. re
c580: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
c590: 20 20 7d 0a 20 20 7a 44 62 20 3d 20 54 63 6c 5f }. zDb = Tcl_
c5a0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
c5b0: 5d 29 3b 0a 0a 20 20 2f 2a 20 45 78 74 72 61 63 ]);.. /* Extrac
c5c0: 74 20 74 68 65 20 43 20 64 61 74 61 62 61 73 65 t the C database
c5d0: 20 68 61 6e 64 6c 65 20 66 72 6f 6d 20 74 68 65 handle from the
c5e0: 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d Tcl command nam
c5f0: 65 20 2a 2f 0a 20 20 69 66 28 20 21 54 63 6c 5f e */. if( !Tcl_
c600: 47 65 74 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69 GetCommandInfo(i
c610: 6e 74 65 72 70 2c 20 7a 44 62 2c 20 26 63 6d 64 nterp, zDb, &cmd
c620: 49 6e 66 6f 29 20 29 7b 0a 20 20 20 20 54 63 6c Info) ){. Tcl
c630: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
c640: 74 65 72 70 2c 20 22 63 6f 6d 6d 61 6e 64 20 6e terp, "command n
c650: 6f 74 20 66 6f 75 6e 64 3a 20 22 2c 20 7a 44 62 ot found: ", zDb
c660: 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 , (char*)0);.
c670: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
c680: 52 3b 0a 20 20 7d 0a 20 20 64 62 20 3d 20 28 28 R;. }. db = ((
c690: 73 74 72 75 63 74 20 53 71 6c 69 74 65 44 62 2a struct SqliteDb*
c6a0: 29 63 6d 64 49 6e 66 6f 2e 6f 62 6a 43 6c 69 65 )cmdInfo.objClie
c6b0: 6e 74 44 61 74 61 29 2d 3e 64 62 3b 0a 20 20 61 ntData)->db;. a
c6c0: 73 73 65 72 74 28 64 62 29 3b 0a 0a 20 20 2f 2a ssert(db);.. /*
c6d0: 20 47 65 74 20 74 68 65 20 6f 6e 6f 66 66 20 70 Get the onoff p
c6e0: 61 72 61 6d 65 74 65 72 20 2a 2f 0a 20 20 69 66 arameter */. if
c6f0: 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e ( Tcl_GetBoolean
c700: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
c710: 6f 62 6a 76 5b 32 5d 2c 20 26 6f 6e 6f 66 66 29 objv[2], &onoff)
c720: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
c730: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 23 CL_ERROR;. }..#
c740: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 ifdef SQLITE_OMI
c750: 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e T_LOAD_EXTENSION
c760: 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 . Tcl_AppendRes
c770: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 74 68 69 ult(interp, "thi
c780: 73 20 62 75 69 6c 64 20 6f 6d 69 74 73 20 73 71 s build omits sq
c790: 6c 69 74 65 33 5f 6c 6f 61 64 5f 65 78 74 65 6e lite3_load_exten
c7a0: 73 69 6f 6e 28 29 22 29 3b 0a 20 20 72 65 74 75 sion()");. retu
c7b0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 rn TCL_ERROR;.#e
c7c0: 6c 73 65 0a 20 20 73 71 6c 69 74 65 33 5f 65 6e lse. sqlite3_en
c7d0: 61 62 6c 65 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 able_load_extens
c7e0: 69 6f 6e 28 64 62 2c 20 6f 6e 6f 66 66 29 3b 0a ion(db, onoff);.
c7f0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
c800: 0a 23 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a .#endif.}../*.**
c810: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 5f Usage: sqlite_
c820: 61 62 6f 72 74 0a 2a 2a 0a 2a 2a 20 53 68 75 74 abort.**.** Shut
c830: 64 6f 77 6e 20 74 68 65 20 70 72 6f 63 65 73 73 down the process
c840: 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 20 20 54 immediately. T
c850: 68 69 73 20 69 73 20 6e 6f 74 20 61 20 63 6c 65 his is not a cle
c860: 61 6e 20 73 68 75 74 64 6f 77 6e 2e 0a 2a 2a 20 an shutdown..**
c870: 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 This command is
c880: 75 73 65 64 20 74 6f 20 74 65 73 74 20 74 68 65 used to test the
c890: 20 72 65 63 6f 76 65 72 61 62 69 6c 69 74 79 20 recoverability
c8a0: 6f 66 20 61 20 64 61 74 61 62 61 73 65 20 69 6e of a database in
c8b0: 0a 2a 2a 20 74 68 65 20 65 76 65 6e 74 20 6f 66 .** the event of
c8c0: 20 61 20 70 72 6f 67 72 61 6d 20 63 72 61 73 68 a program crash
c8d0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
c8e0: 73 71 6c 69 74 65 5f 61 62 6f 72 74 28 0a 20 20 sqlite_abort(.
c8f0: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 void *NotUsed,.
c900: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
c910: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
c920: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
c930: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
c940: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
c950: 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 t argc,
c960: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
c970: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
c980: 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 char **argv
c990: 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 /* Text
c9a0: 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 of each argument
c9b0: 20 2a 2f 0a 29 7b 0a 20 20 61 73 73 65 72 74 28 */.){. assert(
c9c0: 20 69 6e 74 65 72 70 3d 3d 30 20 29 3b 20 20 20 interp==0 );
c9d0: 2f 2a 20 54 68 69 73 20 77 69 6c 6c 20 61 6c 77 /* This will alw
c9e0: 61 79 73 20 66 61 69 6c 20 2a 2f 0a 20 20 72 65 ays fail */. re
c9f0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
ca00: 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 /*.** The follow
ca10: 69 6e 67 20 72 6f 75 74 69 6e 65 20 69 73 20 61 ing routine is a
ca20: 20 75 73 65 72 2d 64 65 66 69 6e 65 64 20 53 51 user-defined SQ
ca30: 4c 20 66 75 6e 63 74 69 6f 6e 20 77 68 6f 73 65 L function whose
ca40: 20 70 75 72 70 6f 73 65 0a 2a 2a 20 69 73 20 74 purpose.** is t
ca50: 6f 20 74 65 73 74 20 74 68 65 20 73 71 6c 69 74 o test the sqlit
ca60: 65 5f 73 65 74 5f 72 65 73 75 6c 74 28 29 20 41 e_set_result() A
ca70: 50 49 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f PI..*/.static vo
ca80: 69 64 20 74 65 73 74 46 75 6e 63 28 73 71 6c 69 id testFunc(sqli
ca90: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
caa0: 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 text, int argc,
cab0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
cac0: 61 72 67 76 29 7b 0a 20 20 77 68 69 6c 65 28 20 argv){. while(
cad0: 61 72 67 63 3e 3d 32 20 29 7b 0a 20 20 20 20 63 argc>=2 ){. c
cae0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 72 67 30 onst char *zArg0
caf0: 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69 74 65 = (char*)sqlite
cb00: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
cb10: 76 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 7a v[0]);. if( z
cb20: 41 72 67 30 20 29 7b 0a 20 20 20 20 20 20 69 66 Arg0 ){. if
cb30: 28 20 30 3d 3d 73 71 6c 69 74 65 33 53 74 72 49 ( 0==sqlite3StrI
cb40: 43 6d 70 28 7a 41 72 67 30 2c 20 22 69 6e 74 22 Cmp(zArg0, "int"
cb50: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c ) ){. sql
cb60: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 ite3_result_int(
cb70: 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 context, sqlite3
cb80: 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b _value_int(argv[
cb90: 31 5d 29 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 1]));. }els
cba0: 65 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 e if( sqlite3Str
cbb0: 49 43 6d 70 28 7a 41 72 67 30 2c 22 69 6e 74 36 ICmp(zArg0,"int6
cbc0: 34 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 4")==0 ){.
cbd0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
cbe0: 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 _int64(context,
cbf0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e sqlite3_value_in
cc00: 74 36 34 28 61 72 67 76 5b 31 5d 29 29 3b 0a 20 t64(argv[1]));.
cc10: 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 }else if( s
cc20: 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 7a 41 qlite3StrICmp(zA
cc30: 72 67 30 2c 22 73 74 72 69 6e 67 22 29 3d 3d 30 rg0,"string")==0
cc40: 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 ){. sqli
cc50: 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 te3_result_text(
cc60: 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 context, (char*)
cc70: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
cc80: 78 74 28 61 72 67 76 5b 31 5d 29 2c 20 2d 31 2c xt(argv[1]), -1,
cc90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c . SQL
cca0: 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a ITE_TRANSIENT);.
ccb0: 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 }else if(
ccc0: 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 7a sqlite3StrICmp(z
ccd0: 41 72 67 30 2c 22 64 6f 75 62 6c 65 22 29 3d 3d Arg0,"double")==
cce0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 0 ){. sql
ccf0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62 ite3_result_doub
cd00: 6c 65 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 le(context, sqli
cd10: 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 te3_value_double
cd20: 28 61 72 67 76 5b 31 5d 29 29 3b 0a 20 20 20 20 (argv[1]));.
cd30: 20 20 7d 65 6c 73 65 20 69 66 28 20 73 71 6c 69 }else if( sqli
cd40: 74 65 33 53 74 72 49 43 6d 70 28 7a 41 72 67 30 te3StrICmp(zArg0
cd50: 2c 22 6e 75 6c 6c 22 29 3d 3d 30 20 29 7b 0a 20 ,"null")==0 ){.
cd60: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 sqlite3_r
cd70: 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 65 esult_null(conte
cd80: 78 74 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 xt);. }else
cd90: 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 49 if( sqlite3StrI
cda0: 43 6d 70 28 7a 41 72 67 30 2c 22 76 61 6c 75 65 Cmp(zArg0,"value
cdb0: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 ")==0 ){.
cdc0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
cdd0: 76 61 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20 61 value(context, a
cde0: 72 67 76 5b 73 71 6c 69 74 65 33 5f 76 61 6c 75 rgv[sqlite3_valu
cdf0: 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 5d 29 e_int(argv[1])])
ce00: 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 ;. }else{.
ce10: 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f goto erro
ce20: 72 5f 6f 75 74 3b 0a 20 20 20 20 20 20 7d 0a 20 r_out;. }.
ce30: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
ce40: 67 6f 74 6f 20 65 72 72 6f 72 5f 6f 75 74 3b 0a goto error_out;.
ce50: 20 20 20 20 7d 0a 20 20 20 20 61 72 67 63 20 2d }. argc -
ce60: 3d 20 32 3b 0a 20 20 20 20 61 72 67 76 20 2b 3d = 2;. argv +=
ce70: 20 32 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 2;. }. return
ce80: 3b 0a 0a 65 72 72 6f 72 5f 6f 75 74 3a 0a 20 20 ;..error_out:.
ce90: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 sqlite3_result_e
cea0: 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 22 66 69 rror(context,"fi
ceb0: 72 73 74 20 61 72 67 75 6d 65 6e 74 20 73 68 6f rst argument sho
cec0: 75 6c 64 20 62 65 20 6f 6e 65 20 6f 66 3a 20 22 uld be one of: "
ced0: 0a 20 20 20 20 20 20 22 69 6e 74 20 69 6e 74 36 . "int int6
cee0: 34 20 73 74 72 69 6e 67 20 64 6f 75 62 6c 65 20 4 string double
cef0: 6e 75 6c 6c 20 76 61 6c 75 65 22 2c 20 2d 31 29 null value", -1)
cf00: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
cf10: 3a 20 20 20 73 71 6c 69 74 65 5f 72 65 67 69 73 : sqlite_regis
cf20: 74 65 72 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f ter_test_functio
cf30: 6e 20 20 44 42 20 20 4e 41 4d 45 0a 2a 2a 0a 2a n DB NAME.**.*
cf40: 2a 20 52 65 67 69 73 74 65 72 20 74 68 65 20 74 * Register the t
cf50: 65 73 74 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e est SQL function
cf60: 20 6f 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 on the database
cf70: 20 44 42 20 75 6e 64 65 72 20 74 68 65 20 6e 61 DB under the na
cf80: 6d 65 20 4e 41 4d 45 2e 0a 2a 2f 0a 73 74 61 74 me NAME..*/.stat
cf90: 69 63 20 69 6e 74 20 74 65 73 74 5f 72 65 67 69 ic int test_regi
cfa0: 73 74 65 72 5f 66 75 6e 63 28 0a 20 20 76 6f 69 ster_func(. voi
cfb0: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
cfc0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
cfd0: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
cfe0: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
cff0: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
d000: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
d010: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
d020: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
d030: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
d040: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
d050: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
d060: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
d070: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
d080: 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 b;. int rc;. i
d090: 66 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 f( argc!=3 ){.
d0a0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
d0b0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
d0c0: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
d0d0: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d be \"", argv[0]
d0e0: 2c 20 0a 20 20 20 20 20 20 20 22 20 44 42 20 46 , . " DB F
d0f0: 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 22 2c 20 30 UNCTION-NAME", 0
d100: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
d110: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
d120: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
d130: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
d140: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
d150: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d CL_ERROR;. rc =
d160: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
d170: 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 61 72 67 function(db, arg
d180: 76 5b 32 5d 2c 20 2d 31 2c 20 53 51 4c 49 54 45 v[2], -1, SQLITE
d190: 5f 55 54 46 38 2c 20 30 2c 20 0a 20 20 20 20 20 _UTF8, 0, .
d1a0: 20 74 65 73 74 46 75 6e 63 2c 20 30 2c 20 30 29 testFunc, 0, 0)
d1b0: 3b 0a 20 20 69 66 28 20 72 63 21 3d 30 20 29 7b ;. if( rc!=0 ){
d1c0: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
d1d0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 71 esult(interp, sq
d1e0: 6c 69 74 65 33 45 72 72 53 74 72 28 72 63 29 2c lite3ErrStr(rc),
d1f0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
d200: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
d210: 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
d220: 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
d230: 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e db, rc) ) return
d240: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 TCL_ERROR;. re
d250: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
d260: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
d270: 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 20 lite3_finalize
d280: 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 46 69 6e 61 STMT .**.** Fina
d290: 6c 69 7a 65 20 61 20 73 74 61 74 65 6d 65 6e 74 lize a statement
d2a0: 20 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 handle..*/.stat
d2b0: 69 63 20 69 6e 74 20 74 65 73 74 5f 66 69 6e 61 ic int test_fina
d2c0: 6c 69 7a 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 lize(. void * c
d2d0: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
d2e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
d2f0: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
d300: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
d310: 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
d320: 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
d330: 20 69 6e 74 20 72 63 3b 0a 20 20 73 71 6c 69 74 int rc;. sqlit
d340: 65 33 20 2a 64 62 20 3d 20 30 3b 0a 0a 20 20 69 e3 *db = 0;.. i
d350: 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 f( objc!=2 ){.
d360: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
d370: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
d380: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
d390: 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 be \"",.
d3a0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
d3b0: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 omObj(objv[0], 0
d3c0: 29 2c 20 22 20 3c 53 54 4d 54 3e 22 2c 20 30 29 ), " <STMT>", 0)
d3d0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
d3e0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
d3f0: 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 f( getStmtPointe
d400: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
d410: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
d420: 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
d430: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
d440: 20 69 66 28 20 70 53 74 6d 74 20 29 7b 0a 20 20 if( pStmt ){.
d450: 20 20 64 62 20 3d 20 53 74 6d 74 54 6f 44 62 28 db = StmtToDb(
d460: 70 53 74 6d 74 29 3b 0a 20 20 7d 0a 20 20 72 63 pStmt);. }. rc
d470: 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c = sqlite3_final
d480: 69 7a 65 28 70 53 74 6d 74 29 3b 0a 20 20 54 63 ize(pStmt);. Tc
d490: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
d4a0: 72 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 72 rp, (char *)t1Er
d4b0: 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c rorName(rc), TCL
d4c0: 5f 53 54 41 54 49 43 29 3b 0a 20 20 69 66 28 20 _STATIC);. if(
d4d0: 64 62 20 26 26 20 73 71 6c 69 74 65 33 54 65 73 db && sqlite3Tes
d4e0: 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c tErrCode(interp,
d4f0: 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 db, rc) ) retur
d500: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 n TCL_ERROR;. r
d510: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
d520: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
d530: 71 6c 69 74 65 33 5f 72 65 73 65 74 20 20 53 54 qlite3_reset ST
d540: 4d 54 20 0a 2a 2a 0a 2a 2a 20 52 65 73 65 74 20 MT .**.** Reset
d550: 61 20 73 74 61 74 65 6d 65 6e 74 20 68 61 6e 64 a statement hand
d560: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e le..*/.static in
d570: 74 20 74 65 73 74 5f 72 65 73 65 74 28 0a 20 20 t test_reset(.
d580: 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
d590: 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
d5a0: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
d5b0: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
d5c0: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
d5d0: 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
d5e0: 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b pStmt;. int rc;
d5f0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 .. if( objc!=2
d600: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
d610: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
d620: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
d630: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 hould be \"",.
d640: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
d650: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
d660: 30 5d 2c 20 30 29 2c 20 22 20 3c 53 54 4d 54 3e 0], 0), " <STMT>
d670: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
d680: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
d690: 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 .. if( getStmtP
d6a0: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
d6b0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
d6c0: 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 v[1]), &pStmt) )
d6d0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
d6e0: 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 R;.. rc = sqlit
d6f0: 65 33 5f 72 65 73 65 74 28 70 53 74 6d 74 29 3b e3_reset(pStmt);
d700: 0a 20 20 69 66 28 20 70 53 74 6d 74 20 26 26 20 . if( pStmt &&
d710: 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f sqlite3TestErrCo
d720: 64 65 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 de(interp, StmtT
d730: 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 63 29 20 oDb(pStmt), rc)
d740: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 ){. return TC
d750: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 54 L_ERROR;. }. T
d760: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
d770: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 erp, (char *)t1E
d780: 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 rrorName(rc), TC
d790: 4c 5f 53 54 41 54 49 43 29 3b 0a 2f 2a 0a 20 20 L_STATIC);./*.
d7a0: 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 72 65 if( rc ){. re
d7b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
d7c0: 20 20 7d 0a 2a 2f 0a 20 20 72 65 74 75 72 6e 20 }.*/. return
d7d0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
d7e0: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
d7f0: 5f 65 78 70 69 72 65 64 20 53 54 4d 54 20 0a 2a _expired STMT .*
d800: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 52 55 45 *.** Return TRUE
d810: 20 69 66 20 61 20 72 65 63 6f 6d 70 69 6c 61 74 if a recompilat
d820: 69 6f 6e 20 6f 66 20 74 68 65 20 73 74 61 74 65 ion of the state
d830: 6d 65 6e 74 20 69 73 20 72 65 63 6f 6d 6d 65 6e ment is recommen
d840: 64 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ded..*/.static i
d850: 6e 74 20 74 65 73 74 5f 65 78 70 69 72 65 64 28 nt test_expired(
d860: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
d870: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
d880: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
d890: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
d8a0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
d8b0: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
d8c0: 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 66 28 20 t *pStmt;. if(
d8d0: 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
d8e0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
d8f0: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
d900: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
d910: 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 \"",. Tc
d920: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
d930: 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 bj(objv[0], 0),
d940: 22 20 3c 53 54 4d 54 3e 22 2c 20 30 29 3b 0a 20 " <STMT>", 0);.
d950: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
d960: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
d970: 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e etStmtPointer(in
d980: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
d990: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 ing(objv[1]), &p
d9a0: 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 Stmt) ) return T
d9b0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f CL_ERROR;. Tcl_
d9c0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
d9d0: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42 6f 6f 6c erp, Tcl_NewBool
d9e0: 65 61 6e 4f 62 6a 28 73 71 6c 69 74 65 33 5f 65 eanObj(sqlite3_e
d9f0: 78 70 69 72 65 64 28 70 53 74 6d 74 29 29 29 3b xpired(pStmt)));
da00: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
da10: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
da20: 3a 20 20 73 71 6c 69 74 65 33 5f 74 72 61 6e 73 : sqlite3_trans
da30: 66 65 72 5f 62 69 6e 64 69 6e 67 73 20 46 52 4f fer_bindings FRO
da40: 4d 53 54 4d 54 20 54 4f 53 54 4d 54 0a 2a 2a 0a MSTMT TOSTMT.**.
da50: 2a 2a 20 54 72 61 6e 73 66 65 72 20 61 6c 6c 20 ** Transfer all
da60: 62 69 6e 64 69 6e 67 73 20 66 72 6f 6d 20 46 52 bindings from FR
da70: 4f 4d 53 54 4d 54 20 6f 76 65 72 20 74 6f 20 54 OMSTMT over to T
da80: 4f 53 54 4d 54 0a 2a 2f 0a 73 74 61 74 69 63 20 OSTMT.*/.static
da90: 69 6e 74 20 74 65 73 74 5f 74 72 61 6e 73 66 65 int test_transfe
daa0: 72 5f 62 69 6e 64 28 0a 20 20 76 6f 69 64 20 2a r_bind(. void *
dab0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
dac0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
dad0: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
dae0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
daf0: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
db00: 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 31 te3_stmt *pStmt1
db10: 2c 20 2a 70 53 74 6d 74 32 3b 0a 20 20 69 66 28 , *pStmt2;. if(
db20: 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 objc!=3 ){.
db30: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
db40: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
db50: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
db60: 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 e \"",. T
db70: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
db80: 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c Obj(objv[0], 0),
db90: 20 22 20 46 52 4f 4d 2d 53 54 4d 54 20 54 4f 2d " FROM-STMT TO-
dba0: 53 54 4d 54 22 2c 20 30 29 3b 0a 20 20 20 20 72 STMT", 0);. r
dbb0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
dbc0: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 53 74 . }. if( getSt
dbd0: 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
dbe0: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
dbf0: 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 objv[1]), &pStmt
dc00: 31 29 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 1)) return TCL_E
dc10: 52 52 4f 52 3b 0a 20 20 69 66 28 20 67 65 74 53 RROR;. if( getS
dc20: 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tmtPointer(inter
dc30: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
dc40: 28 6f 62 6a 76 5b 32 5d 29 2c 20 26 70 53 74 6d (objv[2]), &pStm
dc50: 74 32 29 29 20 72 65 74 75 72 6e 20 54 43 4c 5f t2)) return TCL_
dc60: 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 ERROR;. Tcl_Set
dc70: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
dc80: 2c 20 0a 20 20 20 20 20 54 63 6c 5f 4e 65 77 49 , . Tcl_NewI
dc90: 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f 74 72 ntObj(sqlite3_tr
dca0: 61 6e 73 66 65 72 5f 62 69 6e 64 69 6e 67 73 28 ansfer_bindings(
dcb0: 70 53 74 6d 74 31 2c 70 53 74 6d 74 32 29 29 29 pStmt1,pStmt2)))
dcc0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
dcd0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
dce0: 65 3a 20 20 73 71 6c 69 74 65 33 5f 63 68 61 6e e: sqlite3_chan
dcf0: 67 65 73 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 ges DB.**.** Ret
dd00: 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f urn the number o
dd10: 66 20 63 68 61 6e 67 65 73 20 6d 61 64 65 20 74 f changes made t
dd20: 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 20 62 o the database b
dd30: 79 20 74 68 65 20 6c 61 73 74 20 53 51 4c 0a 2a y the last SQL.*
dd40: 2a 20 65 78 65 63 75 74 69 6f 6e 2e 0a 2a 2f 0a * execution..*/.
dd50: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
dd60: 63 68 61 6e 67 65 73 28 0a 20 20 76 6f 69 64 20 changes(. void
dd70: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
dd80: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
dd90: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
dda0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
ddb0: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
ddc0: 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 ite3 *db;. if(
ddd0: 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
dde0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
ddf0: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
de00: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
de10: 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 54 63 6c \"",. Tcl
de20: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
de30: 30 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 0]), " DB", 0);.
de40: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
de50: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
de60: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
de70: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
de80: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
de90: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
dea0: 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 4f RROR;. Tcl_SetO
deb0: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
dec0: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 Tcl_NewIntObj(s
ded0: 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 28 64 qlite3_changes(d
dee0: 62 29 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 b)));. return T
def0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
df00: 54 68 69 73 20 69 73 20 74 68 65 20 22 73 74 61 This is the "sta
df10: 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 22 20 tic_bind_value"
df20: 74 68 61 74 20 76 61 72 69 61 62 6c 65 73 20 61 that variables a
df30: 72 65 20 62 6f 75 6e 64 20 74 6f 20 77 68 65 6e re bound to when
df40: 0a 2a 2a 20 74 68 65 20 46 4c 41 47 20 6f 70 74 .** the FLAG opt
df50: 69 6f 6e 20 6f 66 20 73 71 6c 69 74 65 33 5f 62 ion of sqlite3_b
df60: 69 6e 64 20 69 73 20 22 73 74 61 74 69 63 22 0a ind is "static".
df70: 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a */.static char *
df80: 73 71 6c 69 74 65 5f 73 74 61 74 69 63 5f 62 69 sqlite_static_bi
df90: 6e 64 5f 76 61 6c 75 65 20 3d 20 30 3b 0a 73 74 nd_value = 0;.st
dfa0: 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 5f atic int sqlite_
dfb0: 73 74 61 74 69 63 5f 62 69 6e 64 5f 6e 62 79 74 static_bind_nbyt
dfc0: 65 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 55 73 e = 0;../*.** Us
dfd0: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 62 69 age: sqlite3_bi
dfe0: 6e 64 20 20 56 4d 20 20 49 44 58 20 20 56 41 4c nd VM IDX VAL
dff0: 55 45 20 20 46 4c 41 47 53 0a 2a 2a 0a 2a 2a 20 UE FLAGS.**.**
e000: 53 65 74 73 20 74 68 65 20 76 61 6c 75 65 20 6f Sets the value o
e010: 66 20 74 68 65 20 49 44 58 2d 74 68 20 6f 63 63 f the IDX-th occ
e020: 75 72 61 6e 63 65 20 6f 66 20 22 3f 22 20 69 6e urance of "?" in
e030: 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 53 51 the original SQ
e040: 4c 0a 2a 2a 20 73 74 72 69 6e 67 2e 20 20 56 41 L.** string. VA
e050: 4c 55 45 20 69 73 20 74 68 65 20 6e 65 77 20 76 LUE is the new v
e060: 61 6c 75 65 2e 20 20 49 66 20 46 4c 41 47 53 3d alue. If FLAGS=
e070: 3d 22 6e 75 6c 6c 22 20 74 68 65 6e 20 56 41 4c ="null" then VAL
e080: 55 45 20 69 73 0a 2a 2a 20 69 67 6e 6f 72 65 64 UE is.** ignored
e090: 20 61 6e 64 20 74 68 65 20 76 61 6c 75 65 20 69 and the value i
e0a0: 73 20 73 65 74 20 74 6f 20 4e 55 4c 4c 2e 20 20 s set to NULL.
e0b0: 49 66 20 46 4c 41 47 53 3d 3d 22 73 74 61 74 69 If FLAGS=="stati
e0c0: 63 22 20 74 68 65 6e 0a 2a 2a 20 74 68 65 20 76 c" then.** the v
e0d0: 61 6c 75 65 20 69 73 20 73 65 74 20 74 6f 20 74 alue is set to t
e0e0: 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20 73 74 he value of a st
e0f0: 61 74 69 63 20 76 61 72 69 61 62 6c 65 20 6e 61 atic variable na
e100: 6d 65 64 0a 2a 2a 20 22 73 71 6c 69 74 65 5f 73 med.** "sqlite_s
e110: 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 tatic_bind_value
e120: 22 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d 22 6e ". If FLAGS=="n
e130: 6f 72 6d 61 6c 22 20 74 68 65 6e 20 61 20 63 6f ormal" then a co
e140: 70 79 0a 2a 2a 20 6f 66 20 74 68 65 20 56 41 4c py.** of the VAL
e150: 55 45 20 69 73 20 6d 61 64 65 2e 20 20 49 66 20 UE is made. If
e160: 46 4c 41 47 53 3d 3d 22 62 6c 6f 62 31 30 22 20 FLAGS=="blob10"
e170: 74 68 65 6e 20 61 20 56 41 4c 55 45 20 69 73 20 then a VALUE is
e180: 69 67 6e 6f 72 65 64 0a 2a 2a 20 61 6e 20 61 20 ignored.** an a
e190: 31 30 2d 62 79 74 65 20 62 6c 6f 62 20 22 61 62 10-byte blob "ab
e1a0: 63 5c 30 30 30 78 79 7a 5c 30 30 30 70 71 22 20 c\000xyz\000pq"
e1b0: 69 73 20 69 6e 73 65 72 74 65 64 2e 0a 2a 2f 0a is inserted..*/.
e1c0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
e1d0: 62 69 6e 64 28 0a 20 20 76 6f 69 64 20 2a 4e 6f bind(. void *No
e1e0: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 tUsed,. Tcl_Int
e1f0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
e200: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
e210: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
e220: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
e230: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 */. int argc,
e240: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
e250: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
e260: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a nts */. char **
e270: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 argv
e280: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 /* Text of each
e290: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 argument */.){.
e2a0: 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
e2b0: 53 74 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a Stmt;. int rc;.
e2c0: 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 66 28 int idx;. if(
e2d0: 20 61 72 67 63 21 3d 35 20 29 7b 0a 20 20 20 20 argc!=5 ){.
e2e0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
e2f0: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
e300: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
e310: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 e \"", argv[0],
e320: 0a 20 20 20 20 20 20 20 22 20 56 4d 20 49 44 58 . " VM IDX
e330: 20 56 41 4c 55 45 20 28 6e 75 6c 6c 7c 73 74 61 VALUE (null|sta
e340: 74 69 63 7c 6e 6f 72 6d 61 6c 29 5c 22 22 2c 20 tic|normal)\"",
e350: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
e360: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
e370: 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
e380: 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
e390: 31 5d 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 1], &pStmt) ) re
e3a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
e3b0: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
e3c0: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d (interp, argv[2]
e3d0: 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
e3e0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
e3f0: 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b 34 5d ( strcmp(argv[4]
e400: 2c 22 6e 75 6c 6c 22 29 3d 3d 30 20 29 7b 0a 20 ,"null")==0 ){.
e410: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
e420: 62 69 6e 64 5f 6e 75 6c 6c 28 70 53 74 6d 74 2c bind_null(pStmt,
e430: 20 69 64 78 29 3b 0a 20 20 7d 65 6c 73 65 20 69 idx);. }else i
e440: 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b 34 f( strcmp(argv[4
e450: 5d 2c 22 73 74 61 74 69 63 22 29 3d 3d 30 20 29 ],"static")==0 )
e460: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 {. rc = sqlit
e470: 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74 e3_bind_text(pSt
e480: 6d 74 2c 20 69 64 78 2c 20 73 71 6c 69 74 65 5f mt, idx, sqlite_
e490: 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 static_bind_valu
e4a0: 65 2c 20 2d 31 2c 20 30 29 3b 0a 20 20 7d 65 6c e, -1, 0);. }el
e4b0: 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 se if( strcmp(ar
e4c0: 67 76 5b 34 5d 2c 22 73 74 61 74 69 63 2d 6e 62 gv[4],"static-nb
e4d0: 79 74 65 73 22 29 3d 3d 30 20 29 7b 0a 20 20 20 ytes")==0 ){.
e4e0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 rc = sqlite3_bi
e4f0: 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 2c 20 69 nd_text(pStmt, i
e500: 64 78 2c 20 73 71 6c 69 74 65 5f 73 74 61 74 69 dx, sqlite_stati
e510: 63 5f 62 69 6e 64 5f 76 61 6c 75 65 2c 0a 20 20 c_bind_value,.
e520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e540: 20 20 20 20 20 73 71 6c 69 74 65 5f 73 74 61 74 sqlite_stat
e550: 69 63 5f 62 69 6e 64 5f 6e 62 79 74 65 2c 20 30 ic_bind_nbyte, 0
e560: 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 );. }else if( s
e570: 74 72 63 6d 70 28 61 72 67 76 5b 34 5d 2c 22 6e trcmp(argv[4],"n
e580: 6f 72 6d 61 6c 22 29 3d 3d 30 20 29 7b 0a 20 20 ormal")==0 ){.
e590: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 rc = sqlite3_b
e5a0: 69 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 2c 20 ind_text(pStmt,
e5b0: 69 64 78 2c 20 61 72 67 76 5b 33 5d 2c 20 2d 31 idx, argv[3], -1
e5c0: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
e5d0: 4e 54 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 NT);. }else if(
e5e0: 20 73 74 72 63 6d 70 28 61 72 67 76 5b 34 5d 2c strcmp(argv[4],
e5f0: 22 62 6c 6f 62 31 30 22 29 3d 3d 30 20 29 7b 0a "blob10")==0 ){.
e600: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 rc = sqlite3
e610: 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 _bind_text(pStmt
e620: 2c 20 69 64 78 2c 20 22 61 62 63 5c 30 30 30 78 , idx, "abc\000x
e630: 79 7a 5c 30 30 30 70 71 22 2c 20 31 30 2c 20 53 yz\000pq", 10, S
e640: 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 QLITE_STATIC);.
e650: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f }else{. Tcl_
e660: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
e670: 65 72 70 2c 20 22 34 74 68 20 61 72 67 75 6d 65 erp, "4th argume
e680: 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 22 0a 20 nt should be ".
e690: 20 20 20 20 20 20 20 22 5c 22 6e 75 6c 6c 5c 22 "\"null\"
e6a0: 20 6f 72 20 5c 22 73 74 61 74 69 63 5c 22 20 6f or \"static\" o
e6b0: 72 20 5c 22 6e 6f 72 6d 61 6c 5c 22 22 2c 20 30 r \"normal\"", 0
e6c0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
e6d0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
e6e0: 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 f( sqlite3TestEr
e6f0: 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 74 rCode(interp, St
e700: 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 mtToDb(pStmt), r
e710: 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f c) ) return TCL_
e720: 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 20 ERROR;. if( rc
e730: 29 7b 0a 20 20 20 20 63 68 61 72 20 7a 42 75 66 ){. char zBuf
e740: 5b 35 30 5d 3b 0a 20 20 20 20 73 70 72 69 6e 74 [50];. sprint
e750: 66 28 7a 42 75 66 2c 20 22 28 25 64 29 20 22 2c f(zBuf, "(%d) ",
e760: 20 72 63 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 rc);. Tcl_Ap
e770: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
e780: 70 2c 20 7a 42 75 66 2c 20 73 71 6c 69 74 65 33 p, zBuf, sqlite3
e790: 45 72 72 53 74 72 28 72 63 29 2c 20 30 29 3b 0a ErrStr(rc), 0);.
e7a0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
e7b0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 RROR;. }. retu
e7c0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 69 rn TCL_OK;.}..#i
e7d0: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
e7e0: 54 5f 55 54 46 31 36 0a 2f 2a 0a 2a 2a 20 55 73 T_UTF16./*.** Us
e7f0: 61 67 65 3a 20 61 64 64 5f 74 65 73 74 5f 63 6f age: add_test_co
e800: 6c 6c 61 74 65 20 3c 64 62 20 70 74 72 3e 20 3c llate <db ptr> <
e810: 75 74 66 38 3e 20 3c 75 74 66 31 36 6c 65 3e 20 utf8> <utf16le>
e820: 3c 75 74 66 31 36 62 65 3e 0a 2a 2a 0a 2a 2a 20 <utf16be>.**.**
e830: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 This function is
e840: 20 75 73 65 64 20 74 6f 20 74 65 73 74 20 74 68 used to test th
e850: 61 74 20 53 51 4c 69 74 65 20 73 65 6c 65 63 74 at SQLite select
e860: 73 20 74 68 65 20 63 6f 72 72 65 63 74 20 63 6f s the correct co
e870: 6c 6c 61 74 69 6f 6e 0a 2a 2a 20 73 65 71 75 65 llation.** seque
e880: 6e 63 65 20 63 61 6c 6c 62 61 63 6b 20 77 68 65 nce callback whe
e890: 6e 20 6d 75 6c 74 69 70 6c 65 20 76 65 72 73 69 n multiple versi
e8a0: 6f 6e 73 20 28 66 6f 72 20 64 69 66 66 65 72 65 ons (for differe
e8b0: 6e 74 20 74 65 78 74 20 65 6e 63 6f 64 69 6e 67 nt text encoding
e8c0: 73 29 0a 2a 2a 20 61 72 65 20 61 76 61 69 6c 61 s).** are availa
e8d0: 62 6c 65 2e 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 69 ble..**.** Calli
e8e0: 6e 67 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 ng this routine
e8f0: 72 65 67 69 73 74 65 72 73 20 74 68 65 20 63 6f registers the co
e900: 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 llation sequence
e910: 20 22 74 65 73 74 5f 63 6f 6c 6c 61 74 65 22 0a "test_collate".
e920: 2a 2a 20 77 69 74 68 20 64 61 74 61 62 61 73 65 ** with database
e930: 20 68 61 6e 64 6c 65 20 3c 64 62 3e 2e 20 54 68 handle <db>. Th
e940: 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e e second argumen
e950: 74 20 6d 75 73 74 20 62 65 20 61 20 6c 69 73 74 t must be a list
e960: 20 6f 66 20 74 68 72 65 65 0a 2a 2a 20 62 6f 6f of three.** boo
e970: 6c 65 61 6e 20 76 61 6c 75 65 73 2e 20 49 66 20 lean values. If
e980: 74 68 65 20 66 69 72 73 74 20 69 73 20 74 72 75 the first is tru
e990: 65 2c 20 74 68 65 6e 20 61 20 76 65 72 73 69 6f e, then a versio
e9a0: 6e 20 6f 66 20 74 65 73 74 5f 63 6f 6c 6c 61 74 n of test_collat
e9b0: 65 20 69 73 0a 2a 2a 20 72 65 67 69 73 74 65 72 e is.** register
e9c0: 65 64 20 66 6f 72 20 55 54 46 2d 38 2c 20 69 66 ed for UTF-8, if
e9d0: 20 74 68 65 20 73 65 63 6f 6e 64 20 69 73 20 74 the second is t
e9e0: 72 75 65 2c 20 61 20 76 65 72 73 69 6f 6e 20 69 rue, a version i
e9f0: 73 20 72 65 67 69 73 74 65 72 65 64 20 66 6f 72 s registered for
ea00: 0a 2a 2a 20 55 54 46 2d 31 36 6c 65 2c 20 69 66 .** UTF-16le, if
ea10: 20 74 68 65 20 74 68 69 72 64 20 69 73 20 74 72 the third is tr
ea20: 75 65 2c 20 61 20 55 54 46 2d 31 36 62 65 20 76 ue, a UTF-16be v
ea30: 65 72 73 69 6f 6e 20 69 73 20 61 76 61 69 6c 61 ersion is availa
ea40: 62 6c 65 2e 0a 2a 2a 20 50 72 65 76 69 6f 75 73 ble..** Previous
ea50: 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 74 65 73 versions of tes
ea60: 74 5f 63 6f 6c 6c 61 74 65 20 61 72 65 20 64 65 t_collate are de
ea70: 6c 65 74 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 leted..**.** The
ea80: 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 collation seque
ea90: 6e 63 65 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 nce test_collate
eaa0: 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 is implemented
eab0: 62 79 20 63 61 6c 6c 69 6e 67 20 74 68 65 0a 2a by calling the.*
eac0: 2a 20 66 6f 6c 6c 6f 77 69 6e 67 20 54 43 4c 20 * following TCL
ead0: 73 63 72 69 70 74 3a 0a 2a 2a 0a 2a 2a 20 20 20 script:.**.**
eae0: 22 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 3c 65 "test_collate <e
eaf0: 6e 63 3e 20 3c 6c 68 73 3e 20 3c 72 68 73 3e 22 nc> <lhs> <rhs>"
eb00: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 3c 6c 68 73 3e .**.** The <lhs>
eb10: 20 61 6e 64 20 3c 72 68 73 3e 20 61 72 65 20 74 and <rhs> are t
eb20: 68 65 20 74 77 6f 20 76 61 6c 75 65 73 20 62 65 he two values be
eb30: 69 6e 67 20 63 6f 6d 70 61 72 65 64 2c 20 65 6e ing compared, en
eb40: 63 6f 64 65 64 20 69 6e 20 55 54 46 2d 38 2e 0a coded in UTF-8..
eb50: 2a 2a 20 54 68 65 20 3c 65 6e 63 3e 20 70 61 72 ** The <enc> par
eb60: 61 6d 65 74 65 72 20 69 73 20 74 68 65 20 65 6e ameter is the en
eb70: 63 6f 64 69 6e 67 20 6f 66 20 74 68 65 20 63 6f coding of the co
eb80: 6c 6c 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e llation function
eb90: 20 74 68 61 74 0a 2a 2a 20 53 51 4c 69 74 65 20 that.** SQLite
eba0: 73 65 6c 65 63 74 65 64 20 74 6f 20 63 61 6c 6c selected to call
ebb0: 2e 20 54 68 65 20 54 43 4c 20 74 65 73 74 20 73 . The TCL test s
ebc0: 63 72 69 70 74 20 69 6d 70 6c 65 6d 65 6e 74 73 cript implements
ebd0: 20 74 68 65 0a 2a 2a 20 22 74 65 73 74 5f 63 6f the.** "test_co
ebe0: 6c 6c 61 74 65 22 20 70 72 6f 63 2e 0a 2a 2a 0a llate" proc..**.
ebf0: 2a 2a 20 4e 6f 74 65 20 74 68 61 74 20 74 68 69 ** Note that thi
ec00: 73 20 77 69 6c 6c 20 6f 6e 6c 79 20 77 6f 72 6b s will only work
ec10: 20 77 69 74 68 20 6f 6e 65 20 69 6e 74 65 70 72 with one intepr
ec20: 65 74 65 72 20 61 74 20 61 20 74 69 6d 65 2c 20 eter at a time,
ec30: 61 73 20 74 68 65 0a 2a 2a 20 69 6e 74 65 72 70 as the.** interp
ec40: 20 70 6f 69 6e 74 65 72 20 74 6f 20 75 73 65 20 pointer to use
ec50: 77 68 65 6e 20 65 76 61 6c 75 61 74 69 6e 67 20 when evaluating
ec60: 74 68 65 20 54 43 4c 20 73 63 72 69 70 74 20 69 the TCL script i
ec70: 73 20 73 74 6f 72 65 64 20 69 6e 0a 2a 2a 20 70 s stored in.** p
ec80: 54 65 73 74 43 6f 6c 6c 61 74 65 49 6e 74 65 72 TestCollateInter
ec90: 70 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 54 63 6c p..*/.static Tcl
eca0: 5f 49 6e 74 65 72 70 2a 20 70 54 65 73 74 43 6f _Interp* pTestCo
ecb0: 6c 6c 61 74 65 49 6e 74 65 72 70 3b 0a 73 74 61 llateInterp;.sta
ecc0: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c tic int test_col
ecd0: 6c 61 74 65 5f 66 75 6e 63 28 0a 20 20 76 6f 69 late_func(. voi
ece0: 64 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 d *pCtx, . int
ecf0: 6e 41 2c 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a nA, const void *
ed00: 7a 41 2c 0a 20 20 69 6e 74 20 6e 42 2c 20 63 6f zA,. int nB, co
ed10: 6e 73 74 20 76 6f 69 64 20 2a 7a 42 0a 29 7b 0a nst void *zB.){.
ed20: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 20 Tcl_Interp *i
ed30: 3d 20 70 54 65 73 74 43 6f 6c 6c 61 74 65 49 6e = pTestCollateIn
ed40: 74 65 72 70 3b 0a 20 20 69 6e 74 20 65 6e 63 69 terp;. int enci
ed50: 6e 20 3d 20 28 69 6e 74 29 70 43 74 78 3b 0a 20 n = (int)pCtx;.
ed60: 20 69 6e 74 20 72 65 73 3b 0a 20 20 69 6e 74 20 int res;. int
ed70: 6e 3b 0a 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 n;.. sqlite3_va
ed80: 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 20 54 63 6c lue *pVal;. Tcl
ed90: 5f 4f 62 6a 20 2a 70 58 3b 0a 0a 20 20 70 58 20 _Obj *pX;.. pX
eda0: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f = Tcl_NewStringO
edb0: 62 6a 28 22 74 65 73 74 5f 63 6f 6c 6c 61 74 65 bj("test_collate
edc0: 22 2c 20 2d 31 29 3b 0a 20 20 54 63 6c 5f 49 6e ", -1);. Tcl_In
edd0: 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a crRefCount(pX);.
ede0: 0a 20 20 73 77 69 74 63 68 28 20 65 6e 63 69 6e . switch( encin
edf0: 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ){. case SQL
ee00: 49 54 45 5f 55 54 46 38 3a 0a 20 20 20 20 20 20 ITE_UTF8:.
ee10: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
ee20: 64 45 6c 65 6d 65 6e 74 28 69 2c 70 58 2c 54 63 dElement(i,pX,Tc
ee30: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
ee40: 55 54 46 2d 38 22 2c 2d 31 29 29 3b 0a 20 20 20 UTF-8",-1));.
ee50: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
ee60: 73 65 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4c se SQLITE_UTF16L
ee70: 45 3a 0a 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 E:. Tcl_Lis
ee80: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
ee90: 74 28 69 2c 70 58 2c 54 63 6c 5f 4e 65 77 53 74 t(i,pX,Tcl_NewSt
eea0: 72 69 6e 67 4f 62 6a 28 22 55 54 46 2d 31 36 4c ringObj("UTF-16L
eeb0: 45 22 2c 2d 31 29 29 3b 0a 20 20 20 20 20 20 62 E",-1));. b
eec0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
eed0: 51 4c 49 54 45 5f 55 54 46 31 36 42 45 3a 0a 20 QLITE_UTF16BE:.
eee0: 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a Tcl_ListObj
eef0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 2c AppendElement(i,
ef00: 70 58 2c 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 pX,Tcl_NewString
ef10: 4f 62 6a 28 22 55 54 46 2d 31 36 42 45 22 2c 2d Obj("UTF-16BE",-
ef20: 31 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 1));. break
ef30: 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 20 ;. default:.
ef40: 20 20 20 20 20 61 73 73 65 72 74 28 30 29 3b 0a assert(0);.
ef50: 20 20 7d 0a 0a 20 20 70 56 61 6c 20 3d 20 73 71 }.. pVal = sq
ef60: 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28 30 29 lite3ValueNew(0)
ef70: 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 ;. sqlite3Value
ef80: 53 65 74 53 74 72 28 70 56 61 6c 2c 20 6e 41 2c SetStr(pVal, nA,
ef90: 20 7a 41 2c 20 65 6e 63 69 6e 2c 20 53 51 4c 49 zA, encin, SQLI
efa0: 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 6e 20 TE_STATIC);. n
efb0: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
efc0: 62 79 74 65 73 28 70 56 61 6c 29 3b 0a 20 20 54 bytes(pVal);. T
efd0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
efe0: 45 6c 65 6d 65 6e 74 28 69 2c 70 58 2c 0a 20 20 Element(i,pX,.
eff0: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
f000: 67 4f 62 6a 28 28 63 68 61 72 2a 29 73 71 6c 69 gObj((char*)sqli
f010: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 70 te3_value_text(p
f020: 56 61 6c 29 2c 6e 29 29 3b 0a 20 20 73 71 6c 69 Val),n));. sqli
f030: 74 65 33 56 61 6c 75 65 53 65 74 53 74 72 28 70 te3ValueSetStr(p
f040: 56 61 6c 2c 20 6e 42 2c 20 7a 42 2c 20 65 6e 63 Val, nB, zB, enc
f050: 69 6e 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 in, SQLITE_STATI
f060: 43 29 3b 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 C);. n = sqlite
f070: 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 70 56 3_value_bytes(pV
f080: 61 6c 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f al);. Tcl_ListO
f090: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
f0a0: 69 2c 70 58 2c 0a 20 20 20 20 20 20 54 63 6c 5f i,pX,. Tcl_
f0b0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 68 NewStringObj((ch
f0c0: 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 ar*)sqlite3_valu
f0d0: 65 5f 74 65 78 74 28 70 56 61 6c 29 2c 6e 29 29 e_text(pVal),n))
f0e0: 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 ;. sqlite3Value
f0f0: 46 72 65 65 28 70 56 61 6c 29 3b 0a 0a 20 20 54 Free(pVal);.. T
f100: 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 69 2c 20 cl_EvalObjEx(i,
f110: 70 58 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 44 65 pX, 0);. Tcl_De
f120: 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a crRefCount(pX);.
f130: 20 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d Tcl_GetIntFrom
f140: 4f 62 6a 28 69 2c 20 54 63 6c 5f 47 65 74 4f 62 Obj(i, Tcl_GetOb
f150: 6a 52 65 73 75 6c 74 28 69 29 2c 20 26 72 65 73 jResult(i), &res
f160: 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 65 73 3b );. return res;
f170: 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 .}.static int te
f180: 73 74 5f 63 6f 6c 6c 61 74 65 28 0a 20 20 76 6f st_collate(. vo
f190: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
f1a0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
f1b0: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
f1c0: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
f1d0: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
f1e0: 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 sqlite3 *db;. i
f1f0: 6e 74 20 76 61 6c 3b 0a 20 20 73 71 6c 69 74 65 nt val;. sqlite
f200: 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 3_value *pVal;.
f210: 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
f220: 6f 62 6a 63 21 3d 35 20 29 20 67 6f 74 6f 20 62 objc!=5 ) goto b
f230: 61 64 5f 61 72 67 73 3b 0a 20 20 70 54 65 73 74 ad_args;. pTest
f240: 43 6f 6c 6c 61 74 65 49 6e 74 65 72 70 20 3d 20 CollateInterp =
f250: 69 6e 74 65 72 70 3b 0a 20 20 69 66 28 20 67 65 interp;. if( ge
f260: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
f270: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
f280: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 (objv[1]), &db)
f290: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
f2a0: 4f 52 3b 0a 0a 20 20 69 66 28 20 54 43 4c 5f 4f OR;.. if( TCL_O
f2b0: 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 K!=Tcl_GetBoolea
f2c0: 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c nFromObj(interp,
f2d0: 20 6f 62 6a 76 5b 32 5d 2c 20 26 76 61 6c 29 20 objv[2], &val)
f2e0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
f2f0: 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 OR;. rc = sqlit
f300: 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 e3_create_collat
f310: 69 6f 6e 28 64 62 2c 20 22 74 65 73 74 5f 63 6f ion(db, "test_co
f320: 6c 6c 61 74 65 22 2c 20 53 51 4c 49 54 45 5f 55 llate", SQLITE_U
f330: 54 46 38 2c 20 0a 20 20 20 20 20 20 20 20 20 20 TF8, .
f340: 28 76 6f 69 64 20 2a 29 53 51 4c 49 54 45 5f 55 (void *)SQLITE_U
f350: 54 46 38 2c 20 76 61 6c 3f 74 65 73 74 5f 63 6f TF8, val?test_co
f360: 6c 6c 61 74 65 5f 66 75 6e 63 3a 30 29 3b 0a 20 llate_func:0);.
f370: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f if( rc==SQLITE_
f380: 4f 4b 20 29 7b 0a 20 20 20 20 69 66 28 20 54 43 OK ){. if( TC
f390: 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f L_OK!=Tcl_GetBoo
f3a0: 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 leanFromObj(inte
f3b0: 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 rp, objv[3], &va
f3c0: 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f l) ) return TCL_
f3d0: 45 52 52 4f 52 3b 0a 20 20 20 20 72 63 20 3d 20 ERROR;. rc =
f3e0: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 sqlite3_create_c
f3f0: 6f 6c 6c 61 74 69 6f 6e 28 64 62 2c 20 22 74 65 ollation(db, "te
f400: 73 74 5f 63 6f 6c 6c 61 74 65 22 2c 20 53 51 4c st_collate", SQL
f410: 49 54 45 5f 55 54 46 31 36 4c 45 2c 20 0a 20 20 ITE_UTF16LE, .
f420: 20 20 20 20 20 20 20 20 20 20 28 76 6f 69 64 20 (void
f430: 2a 29 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 45 *)SQLITE_UTF16LE
f440: 2c 20 76 61 6c 3f 74 65 73 74 5f 63 6f 6c 6c 61 , val?test_colla
f450: 74 65 5f 66 75 6e 63 3a 30 29 3b 0a 20 20 20 20 te_func:0);.
f460: 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f if( TCL_OK!=Tcl_
f470: 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 GetBooleanFromOb
f480: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 j(interp, objv[4
f490: 5d 2c 20 26 76 61 6c 29 20 29 20 72 65 74 75 72 ], &val) ) retur
f4a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 23 69 n TCL_ERROR;..#i
f4b0: 66 20 30 0a 20 20 20 20 69 66 28 20 73 71 6c 69 f 0. if( sqli
f4c0: 74 65 33 5f 69 4d 61 6c 6c 6f 63 46 61 69 6c 3e te3_iMallocFail>
f4d0: 30 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 0 ){. sqlit
f4e0: 65 33 5f 69 4d 61 6c 6c 6f 63 46 61 69 6c 2b 2b e3_iMallocFail++
f4f0: 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 ;. }.#endif.
f500: 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 sqlite3_mutex
f510: 5f 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 _enter(db->mutex
f520: 29 3b 0a 20 20 20 20 70 56 61 6c 20 3d 20 73 71 );. pVal = sq
f530: 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28 64 62 lite3ValueNew(db
f540: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 56 61 );. sqlite3Va
f550: 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c 2c 20 lueSetStr(pVal,
f560: 2d 31 2c 20 22 74 65 73 74 5f 63 6f 6c 6c 61 74 -1, "test_collat
f570: 65 22 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c e", SQLITE_UTF8,
f580: 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b SQLITE_STATIC);
f590: 0a 20 20 20 20 69 66 28 20 64 62 2d 3e 6d 61 6c . if( db->mal
f5a0: 6c 6f 63 46 61 69 6c 65 64 20 29 7b 0a 20 20 20 locFailed ){.
f5b0: 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4e rc = SQLITE_N
f5c0: 4f 4d 45 4d 3b 0a 20 20 20 20 7d 65 6c 73 65 7b OMEM;. }else{
f5d0: 0a 20 20 20 20 20 20 72 63 20 3d 20 73 71 6c 69 . rc = sqli
f5e0: 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 te3_create_colla
f5f0: 74 69 6f 6e 31 36 28 64 62 2c 20 0a 20 20 20 20 tion16(db, .
f600: 20 20 20 20 20 20 73 71 6c 69 74 65 33 56 61 6c sqlite3Val
f610: 75 65 54 65 78 74 28 70 56 61 6c 2c 20 53 51 4c ueText(pVal, SQL
f620: 49 54 45 5f 55 54 46 31 36 4e 41 54 49 56 45 29 ITE_UTF16NATIVE)
f630: 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 42 45 , SQLITE_UTF16BE
f640: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 28 76 6f , . (vo
f650: 69 64 20 2a 29 53 51 4c 49 54 45 5f 55 54 46 31 id *)SQLITE_UTF1
f660: 36 42 45 2c 20 76 61 6c 3f 74 65 73 74 5f 63 6f 6BE, val?test_co
f670: 6c 6c 61 74 65 5f 66 75 6e 63 3a 30 29 3b 0a 20 llate_func:0);.
f680: 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 }. sqlite3
f690: 56 61 6c 75 65 46 72 65 65 28 70 56 61 6c 29 3b ValueFree(pVal);
f6a0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 . sqlite3_mut
f6b0: 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 ex_leave(db->mut
f6c0: 65 78 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 73 ex);. }. if( s
f6d0: 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 qlite3TestErrCod
f6e0: 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 e(interp, db, rc
f6f0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
f700: 52 52 4f 52 3b 0a 20 20 0a 20 20 69 66 28 20 72 RROR;. . if( r
f710: 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a c!=SQLITE_OK ){.
f720: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
f730: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 71 6c sult(interp, sql
f740: 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d ite3TestErrorNam
f750: 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 e(rc), 0);. r
f760: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
f770: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 . }. return TC
f780: 4c 5f 4f 4b 3b 0a 0a 62 61 64 5f 61 72 67 73 3a L_OK;..bad_args:
f790: 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 . Tcl_AppendRes
f7a0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
f7b0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
f7c0: 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 d be \"",.
f7d0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
f7e0: 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 mObj(objv[0], 0)
f7f0: 2c 20 22 20 3c 44 42 3e 20 3c 75 74 66 38 3e 20 , " <DB> <utf8>
f800: 3c 75 74 66 31 36 6c 65 3e 20 3c 75 74 66 31 36 <utf16le> <utf16
f810: 62 65 3e 22 2c 20 30 29 3b 0a 20 20 72 65 74 75 be>", 0);. retu
f820: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a rn TCL_ERROR;.}.
f830: 0a 2f 2a 0a 2a 2a 20 57 68 65 6e 20 74 68 65 20 ./*.** When the
f840: 63 6f 6c 6c 61 74 69 6f 6e 20 6e 65 65 64 65 64 collation needed
f850: 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 69 6e 76 callback is inv
f860: 6f 6b 65 64 2c 20 72 65 63 6f 72 64 20 74 68 65 oked, record the
f870: 20 6e 61 6d 65 20 6f 66 20 0a 2a 2a 20 74 68 65 name of .** the
f880: 20 72 65 71 75 65 73 74 65 64 20 63 6f 6c 6c 61 requested colla
f890: 74 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 68 65 ting function he
f8a0: 72 65 2e 20 20 54 68 65 20 72 65 63 6f 72 64 65 re. The recorde
f8b0: 64 20 6e 61 6d 65 20 69 73 20 6c 69 6e 6b 65 64 d name is linked
f8c0: 0a 2a 2a 20 74 6f 20 61 20 54 43 4c 20 76 61 72 .** to a TCL var
f8d0: 69 61 62 6c 65 20 61 6e 64 20 75 73 65 64 20 74 iable and used t
f8e0: 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 o make sure that
f8f0: 20 74 68 65 20 72 65 71 75 65 73 74 65 64 20 63 the requested c
f900: 6f 6c 6c 61 74 69 6f 6e 0a 2a 2a 20 6e 61 6d 65 ollation.** name
f910: 20 69 73 20 63 6f 72 72 65 63 74 2e 0a 2a 2f 0a is correct..*/.
f920: 73 74 61 74 69 63 20 63 68 61 72 20 7a 4e 65 65 static char zNee
f930: 64 65 64 43 6f 6c 6c 61 74 69 6f 6e 5b 32 30 30 dedCollation[200
f940: 5d 3b 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a ];.static char *
f950: 70 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f pzNeededCollatio
f960: 6e 20 3d 20 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 n = zNeededColla
f970: 74 69 6f 6e 3b 0a 0a 0a 2f 2a 0a 2a 2a 20 43 61 tion;.../*.** Ca
f980: 6c 6c 65 64 20 77 68 65 6e 20 61 20 63 6f 6c 6c lled when a coll
f990: 61 74 69 6e 67 20 73 65 71 75 65 6e 63 65 20 69 ating sequence i
f9a0: 73 20 6e 65 65 64 65 64 2e 20 20 52 65 67 69 73 s needed. Regis
f9b0: 74 65 72 65 64 20 75 73 69 6e 67 0a 2a 2a 20 73 tered using.** s
f9c0: 71 6c 69 74 65 33 5f 63 6f 6c 6c 61 74 69 6f 6e qlite3_collation
f9d0: 5f 6e 65 65 64 65 64 31 36 28 29 2e 0a 2a 2f 0a _needed16()..*/.
f9e0: 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 static void test
f9f0: 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 64 5f _collate_needed_
fa00: 63 62 28 0a 20 20 76 6f 69 64 20 2a 70 43 74 78 cb(. void *pCtx
fa10: 2c 20 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 , . sqlite3 *db
fa20: 2c 0a 20 20 69 6e 74 20 65 54 65 78 74 52 65 70 ,. int eTextRep
fa30: 2c 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a ,. const void *
fa40: 70 4e 61 6d 65 0a 29 7b 0a 20 20 69 6e 74 20 65 pName.){. int e
fa50: 6e 63 20 3d 20 45 4e 43 28 64 62 29 3b 0a 20 20 nc = ENC(db);.
fa60: 69 6e 74 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a int i;. char *z
fa70: 3b 0a 20 20 66 6f 72 28 7a 20 3d 20 28 63 68 61 ;. for(z = (cha
fa80: 72 2a 29 70 4e 61 6d 65 2c 20 69 3d 30 3b 20 2a r*)pName, i=0; *
fa90: 7a 20 7c 7c 20 7a 5b 31 5d 3b 20 7a 2b 2b 29 7b z || z[1]; z++){
faa0: 0a 20 20 20 20 69 66 28 20 2a 7a 20 29 20 7a 4e . if( *z ) zN
fab0: 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f 6e 5b 69 eededCollation[i
fac0: 2b 2b 5d 20 3d 20 2a 7a 3b 0a 20 20 7d 0a 20 20 ++] = *z;. }.
fad0: 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f 6e zNeededCollation
fae0: 5b 69 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 [i] = 0;. sqlit
faf0: 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 e3_create_collat
fb00: 69 6f 6e 28 0a 20 20 20 20 20 20 64 62 2c 20 22 ion(. db, "
fb10: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 22 2c 20 45 test_collate", E
fb20: 4e 43 28 64 62 29 2c 20 28 76 6f 69 64 20 2a 29 NC(db), (void *)
fb30: 65 6e 63 2c 20 74 65 73 74 5f 63 6f 6c 6c 61 74 enc, test_collat
fb40: 65 5f 66 75 6e 63 29 3b 0a 7d 0a 0a 2f 2a 0a 2a e_func);.}../*.*
fb50: 2a 20 55 73 61 67 65 3a 20 61 64 64 5f 74 65 73 * Usage: add_tes
fb60: 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 64 t_collate_needed
fb70: 20 44 42 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e DB.*/.static in
fb80: 74 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e t test_collate_n
fb90: 65 65 64 65 64 28 0a 20 20 76 6f 69 64 20 2a 20 eeded(. void *
fba0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
fbb0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
fbc0: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
fbd0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
fbe0: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
fbf0: 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 e3 *db;. int rc
fc00: 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 ;.. if( objc!=2
fc10: 20 29 20 67 6f 74 6f 20 62 61 64 5f 61 72 67 73 ) goto bad_args
fc20: 3b 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 ;. if( getDbPoi
fc30: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
fc40: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
fc50: 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 1]), &db) ) retu
fc60: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
fc70: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c rc = sqlite3_col
fc80: 6c 61 74 69 6f 6e 5f 6e 65 65 64 65 64 31 36 28 lation_needed16(
fc90: 64 62 2c 20 30 2c 20 74 65 73 74 5f 63 6f 6c 6c db, 0, test_coll
fca0: 61 74 65 5f 6e 65 65 64 65 64 5f 63 62 29 3b 0a ate_needed_cb);.
fcb0: 20 20 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 zNeededCollati
fcc0: 6f 6e 5b 30 5d 20 3d 20 30 3b 0a 20 20 69 66 28 on[0] = 0;. if(
fcd0: 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 sqlite3TestErrC
fce0: 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 ode(interp, db,
fcf0: 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c rc) ) return TCL
fd00: 5f 45 52 52 4f 52 3b 0a 20 20 72 65 74 75 72 6e _ERROR;. return
fd10: 20 54 43 4c 5f 4f 4b 3b 0a 0a 62 61 64 5f 61 72 TCL_OK;..bad_ar
fd20: 67 73 3a 0a 20 20 54 63 6c 5f 57 72 6f 6e 67 4e gs:. Tcl_WrongN
fd30: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
fd40: 2c 20 6f 62 6a 76 2c 20 22 44 42 22 29 3b 0a 20 , objv, "DB");.
fd50: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
fd60: 52 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 R;.}../*.** tclc
fd70: 6d 64 3a 20 20 20 61 64 64 5f 61 6c 69 67 6e 6d md: add_alignm
fd80: 65 6e 74 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 69 ent_test_collati
fd90: 6f 6e 73 20 20 44 42 0a 2a 2a 0a 2a 2a 20 41 64 ons DB.**.** Ad
fda0: 64 20 74 77 6f 20 6e 65 77 20 63 6f 6c 6c 61 74 d two new collat
fdb0: 69 6e 67 20 73 65 71 75 65 6e 63 65 73 20 74 6f ing sequences to
fdc0: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 44 42 the database DB
fdd0: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 75 74 66 31 36 .**.** utf16
fde0: 5f 61 6c 69 67 6e 65 64 0a 2a 2a 20 20 20 20 20 _aligned.**
fdf0: 75 74 66 31 36 5f 75 6e 61 6c 69 67 6e 65 64 0a utf16_unaligned.
fe00: 2a 2a 0a 2a 2a 20 42 6f 74 68 20 63 6f 6c 6c 61 **.** Both colla
fe10: 74 69 6e 67 20 73 65 71 75 65 6e 63 65 73 20 75 ting sequences u
fe20: 73 65 20 74 68 65 20 73 61 6d 65 20 73 6f 72 74 se the same sort
fe30: 20 6f 72 64 65 72 20 61 73 20 42 49 4e 41 52 59 order as BINARY
fe40: 2e 0a 2a 2a 20 54 68 65 20 6f 6e 6c 79 20 64 69 ..** The only di
fe50: 66 66 65 72 65 6e 63 65 20 69 73 20 74 68 61 74 fference is that
fe60: 20 74 68 65 20 75 74 66 31 36 5f 61 6c 69 67 6e the utf16_align
fe70: 65 64 20 63 6f 6c 6c 61 74 69 6e 67 0a 2a 2a 20 ed collating.**
fe80: 73 65 71 75 65 6e 63 65 20 69 73 20 64 65 63 6c sequence is decl
fe90: 61 72 65 64 20 77 69 74 68 20 74 68 65 20 53 51 ared with the SQ
fea0: 4c 49 54 45 5f 55 54 46 31 36 5f 41 4c 49 47 4e LITE_UTF16_ALIGN
feb0: 45 44 20 66 6c 61 67 2e 0a 2a 2a 20 42 6f 74 68 ED flag..** Both
fec0: 20 63 6f 6c 6c 61 74 69 6e 67 20 66 75 6e 63 74 collating funct
fed0: 69 6f 6e 73 20 69 6e 63 72 65 6d 65 6e 74 20 74 ions increment t
fee0: 68 65 20 75 6e 61 6c 69 67 6e 65 64 20 75 74 66 he unaligned utf
fef0: 31 36 20 63 6f 75 6e 74 65 72 0a 2a 2a 20 77 68 16 counter.** wh
ff00: 65 6e 65 76 65 72 20 74 68 65 79 20 73 65 65 20 enever they see
ff10: 61 20 73 74 72 69 6e 67 20 74 68 61 74 20 62 65 a string that be
ff20: 67 69 6e 73 20 6f 6e 20 61 6e 20 6f 64 64 20 62 gins on an odd b
ff30: 79 74 65 20 62 6f 75 6e 64 61 72 79 2e 0a 2a 2f yte boundary..*/
ff40: 0a 73 74 61 74 69 63 20 69 6e 74 20 75 6e 61 6c .static int unal
ff50: 69 67 6e 65 64 5f 73 74 72 69 6e 67 5f 63 6f 75 igned_string_cou
ff60: 6e 74 65 72 20 3d 20 30 3b 0a 73 74 61 74 69 63 nter = 0;.static
ff70: 20 69 6e 74 20 61 6c 69 67 6e 6d 65 6e 74 43 6f int alignmentCo
ff80: 6c 6c 46 75 6e 63 28 0a 20 20 76 6f 69 64 20 2a llFunc(. void *
ff90: 4e 6f 74 55 73 65 64 2c 0a 20 20 69 6e 74 20 6e NotUsed,. int n
ffa0: 4b 65 79 31 2c 20 63 6f 6e 73 74 20 76 6f 69 64 Key1, const void
ffb0: 20 2a 70 4b 65 79 31 2c 0a 20 20 69 6e 74 20 6e *pKey1,. int n
ffc0: 4b 65 79 32 2c 20 63 6f 6e 73 74 20 76 6f 69 64 Key2, const void
ffd0: 20 2a 70 4b 65 79 32 0a 29 7b 0a 20 20 69 6e 74 *pKey2.){. int
ffe0: 20 72 63 2c 20 6e 3b 0a 20 20 6e 20 3d 20 6e 4b rc, n;. n = nK
fff0: 65 79 31 3c 6e 4b 65 79 32 20 3f 20 6e 4b 65 79 ey1<nKey2 ? nKey
10000 31 20 3a 20 6e 4b 65 79 32 3b 0a 20 20 69 66 28 1 : nKey2;. if(
10010 20 6e 4b 65 79 31 3e 30 20 26 26 20 31 3d 3d 28 nKey1>0 && 1==(
10020 31 26 28 69 6e 74 29 70 4b 65 79 31 29 20 29 20 1&(int)pKey1) )
10030 75 6e 61 6c 69 67 6e 65 64 5f 73 74 72 69 6e 67 unaligned_string
10040 5f 63 6f 75 6e 74 65 72 2b 2b 3b 0a 20 20 69 66 _counter++;. if
10050 28 20 6e 4b 65 79 32 3e 30 20 26 26 20 31 3d 3d ( nKey2>0 && 1==
10060 28 31 26 28 69 6e 74 29 70 4b 65 79 32 29 20 29 (1&(int)pKey2) )
10070 20 75 6e 61 6c 69 67 6e 65 64 5f 73 74 72 69 6e unaligned_strin
10080 67 5f 63 6f 75 6e 74 65 72 2b 2b 3b 0a 20 20 72 g_counter++;. r
10090 63 20 3d 20 6d 65 6d 63 6d 70 28 70 4b 65 79 31 c = memcmp(pKey1
100a0 2c 20 70 4b 65 79 32 2c 20 6e 29 3b 0a 20 20 69 , pKey2, n);. i
100b0 66 28 20 72 63 3d 3d 30 20 29 7b 0a 20 20 20 20 f( rc==0 ){.
100c0 72 63 20 3d 20 6e 4b 65 79 31 20 2d 20 6e 4b 65 rc = nKey1 - nKe
100d0 79 32 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e y2;. }. return
100e0 20 72 63 3b 0a 7d 0a 73 74 61 74 69 63 20 69 6e rc;.}.static in
100f0 74 20 61 64 64 5f 61 6c 69 67 6e 6d 65 6e 74 5f t add_alignment_
10100 74 65 73 74 5f 63 6f 6c 6c 61 74 69 6f 6e 73 28 test_collations(
10110 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
10120 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
10130 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
10140 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
10150 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
10160 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ){. sqlite3 *db
10170 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3e 3d 32 20 ;. if( objc>=2
10180 29 7b 0a 20 20 20 20 69 66 28 20 67 65 74 44 62 ){. if( getDb
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 64 62 29 20 29 20 72 jv[1]), &db) ) r
101c0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
101d0 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 . sqlite3_cre
101e0 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 64 62 ate_collation(db
101f0 2c 20 22 75 74 66 31 36 5f 75 6e 61 6c 69 67 6e , "utf16_unalign
10200 65 64 22 2c 0a 20 20 20 20 20 20 20 20 53 51 4c ed",. SQL
10210 49 54 45 5f 55 54 46 31 36 2c 20 0a 20 20 20 20 ITE_UTF16, .
10220 20 20 20 20 30 2c 20 61 6c 69 67 6e 6d 65 6e 74 0, alignment
10230 43 6f 6c 6c 46 75 6e 63 29 3b 0a 20 20 20 20 73 CollFunc);. s
10240 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f qlite3_create_co
10250 6c 6c 61 74 69 6f 6e 28 64 62 2c 20 22 75 74 66 llation(db, "utf
10260 31 36 5f 61 6c 69 67 6e 65 64 22 2c 0a 20 20 20 16_aligned",.
10270 20 20 20 20 20 53 51 4c 49 54 45 5f 55 54 46 31 SQLITE_UTF1
10280 36 20 7c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 6 | SQLITE_UTF16
10290 5f 41 4c 49 47 4e 45 44 2c 20 0a 20 20 20 20 20 _ALIGNED, .
102a0 20 20 20 30 2c 20 61 6c 69 67 6e 6d 65 6e 74 43 0, alignmentC
102b0 6f 6c 6c 46 75 6e 63 29 3b 0a 20 20 7d 0a 20 20 ollFunc);. }.
102c0 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b return SQLITE_OK
102d0 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 21 64 ;.}.#endif /* !d
102e0 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d efined(SQLITE_OM
102f0 49 54 5f 55 54 46 31 36 29 20 2a 2f 0a 0a 2f 2a IT_UTF16) */../*
10300 0a 2a 2a 20 55 73 61 67 65 3a 20 61 64 64 5f 74 .** Usage: add_t
10310 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 3c 64 62 est_function <db
10320 20 70 74 72 3e 20 3c 75 74 66 38 3e 20 3c 75 74 ptr> <utf8> <ut
10330 66 31 36 6c 65 3e 20 3c 75 74 66 31 36 62 65 3e f16le> <utf16be>
10340 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 .**.** This func
10350 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 tion is used to
10360 74 65 73 74 20 74 68 61 74 20 53 51 4c 69 74 65 test that SQLite
10370 20 73 65 6c 65 63 74 73 20 74 68 65 20 63 6f 72 selects the cor
10380 72 65 63 74 20 75 73 65 72 0a 2a 2a 20 66 75 6e rect user.** fun
10390 63 74 69 6f 6e 20 63 61 6c 6c 62 61 63 6b 20 77 ction callback w
103a0 68 65 6e 20 6d 75 6c 74 69 70 6c 65 20 76 65 72 hen multiple ver
103b0 73 69 6f 6e 73 20 28 66 6f 72 20 64 69 66 66 65 sions (for diffe
103c0 72 65 6e 74 20 74 65 78 74 20 65 6e 63 6f 64 69 rent text encodi
103d0 6e 67 73 29 0a 2a 2a 20 61 72 65 20 61 76 61 69 ngs).** are avai
103e0 6c 61 62 6c 65 2e 0a 2a 2a 0a 2a 2a 20 43 61 6c lable..**.** Cal
103f0 6c 69 6e 67 20 74 68 69 73 20 72 6f 75 74 69 6e ling this routin
10400 65 20 72 65 67 69 73 74 65 72 73 20 75 70 20 74 e registers up t
10410 6f 20 74 68 72 65 65 20 76 65 72 73 69 6f 6e 73 o three versions
10420 20 6f 66 20 74 68 65 20 75 73 65 72 20 66 75 6e of the user fun
10430 63 74 69 6f 6e 0a 2a 2a 20 22 74 65 73 74 5f 66 ction.** "test_f
10440 75 6e 63 74 69 6f 6e 22 20 77 69 74 68 20 64 61 unction" with da
10450 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 3c 64 tabase handle <d
10460 62 3e 2e 20 20 49 66 20 74 68 65 20 73 65 63 6f b>. If the seco
10470 6e 64 20 61 72 67 75 6d 65 6e 74 20 69 73 0a 2a nd argument is.*
10480 2a 20 74 72 75 65 2c 20 74 68 65 6e 20 61 20 76 * true, then a v
10490 65 72 73 69 6f 6e 20 6f 66 20 74 65 73 74 5f 66 ersion of test_f
104a0 75 6e 63 74 69 6f 6e 20 69 73 20 72 65 67 69 73 unction is regis
104b0 74 65 72 65 64 20 66 6f 72 20 55 54 46 2d 38 2c tered for UTF-8,
104c0 20 69 66 20 74 68 65 0a 2a 2a 20 74 68 69 72 64 if the.** third
104d0 20 69 73 20 74 72 75 65 2c 20 61 20 76 65 72 73 is true, a vers
104e0 69 6f 6e 20 69 73 20 72 65 67 69 73 74 65 72 65 ion is registere
104f0 64 20 66 6f 72 20 55 54 46 2d 31 36 6c 65 2c 20 d for UTF-16le,
10500 69 66 20 74 68 65 20 66 6f 75 72 74 68 20 69 73 if the fourth is
10510 0a 2a 2a 20 74 72 75 65 2c 20 61 20 55 54 46 2d .** true, a UTF-
10520 31 36 62 65 20 76 65 72 73 69 6f 6e 20 69 73 20 16be version is
10530 61 76 61 69 6c 61 62 6c 65 2e 20 20 50 72 65 76 available. Prev
10540 69 6f 75 73 20 76 65 72 73 69 6f 6e 73 20 6f 66 ious versions of
10550 0a 2a 2a 20 74 65 73 74 5f 66 75 6e 63 74 69 6f .** test_functio
10560 6e 20 61 72 65 20 64 65 6c 65 74 65 64 2e 0a 2a n are deleted..*
10570 2a 0a 2a 2a 20 54 68 65 20 75 73 65 72 20 66 75 *.** The user fu
10580 6e 63 74 69 6f 6e 20 69 73 20 69 6d 70 6c 65 6d nction is implem
10590 65 6e 74 65 64 20 62 79 20 63 61 6c 6c 69 6e 67 ented by calling
105a0 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 54 the following T
105b0 43 4c 20 73 63 72 69 70 74 3a 0a 2a 2a 0a 2a 2a CL script:.**.**
105c0 20 20 20 22 74 65 73 74 5f 66 75 6e 63 74 69 6f "test_functio
105d0 6e 20 3c 65 6e 63 3e 20 3c 61 72 67 3e 22 0a 2a n <enc> <arg>".*
105e0 2a 0a 2a 2a 20 57 68 65 72 65 20 3c 65 6e 63 3e *.** Where <enc>
105f0 20 69 73 20 6f 6e 65 20 6f 66 20 55 54 46 2d 38 is one of UTF-8
10600 2c 20 55 54 46 2d 31 36 4c 45 20 6f 72 20 55 54 , UTF-16LE or UT
10610 46 31 36 42 45 2c 20 61 6e 64 20 3c 61 72 67 3e F16BE, and <arg>
10620 20 69 73 20 74 68 65 0a 2a 2a 20 73 69 6e 67 6c is the.** singl
10630 65 20 61 72 67 75 6d 65 6e 74 20 70 61 73 73 65 e argument passe
10640 64 20 74 6f 20 74 68 65 20 53 51 4c 20 66 75 6e d to the SQL fun
10650 63 74 69 6f 6e 2e 20 54 68 65 20 76 61 6c 75 65 ction. The value
10660 20 72 65 74 75 72 6e 65 64 20 62 79 0a 2a 2a 20 returned by.**
10670 74 68 65 20 54 43 4c 20 73 63 72 69 70 74 20 69 the TCL script i
10680 73 20 75 73 65 64 20 61 73 20 74 68 65 20 72 65 s used as the re
10690 74 75 72 6e 20 76 61 6c 75 65 20 6f 66 20 74 68 turn value of th
106a0 65 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 e SQL function.
106b0 49 74 0a 2a 2a 20 69 73 20 70 61 73 73 65 64 20 It.** is passed
106c0 74 6f 20 53 51 4c 69 74 65 20 75 73 69 6e 67 20 to SQLite using
106d0 55 54 46 2d 31 36 42 45 20 66 6f 72 20 61 20 55 UTF-16BE for a U
106e0 54 46 2d 38 20 74 65 73 74 5f 66 75 6e 63 74 69 TF-8 test_functi
106f0 6f 6e 28 29 2c 20 55 54 46 2d 38 0a 2a 2a 20 66 on(), UTF-8.** f
10700 6f 72 20 61 20 55 54 46 2d 31 36 4c 45 20 74 65 or a UTF-16LE te
10710 73 74 5f 66 75 6e 63 74 69 6f 6e 28 29 2c 20 61 st_function(), a
10720 6e 64 20 55 54 46 2d 31 36 4c 45 20 66 6f 72 20 nd UTF-16LE for
10730 61 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f an implementatio
10740 6e 20 74 68 61 74 0a 2a 2a 20 70 72 65 66 65 72 n that.** prefer
10750 73 20 55 54 46 2d 31 36 42 45 2e 0a 2a 2f 0a 23 s UTF-16BE..*/.#
10760 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
10770 49 54 5f 55 54 46 31 36 0a 73 74 61 74 69 63 20 IT_UTF16.static
10780 76 6f 69 64 20 74 65 73 74 5f 66 75 6e 63 74 69 void test_functi
10790 6f 6e 5f 75 74 66 38 28 0a 20 20 73 71 6c 69 74 on_utf8(. sqlit
107a0 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 43 74 78 e3_context *pCtx
107b0 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 2c 0a 20 , . int nArg,.
107c0 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
107d0 2a 61 72 67 76 0a 29 7b 0a 20 20 54 63 6c 5f 49 *argv.){. Tcl_I
107e0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 nterp *interp;.
107f0 20 54 63 6c 5f 4f 62 6a 20 2a 70 58 3b 0a 20 20 Tcl_Obj *pX;.
10800 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 sqlite3_value *p
10810 56 61 6c 3b 0a 20 20 69 6e 74 65 72 70 20 3d 20 Val;. interp =
10820 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 29 73 71 (Tcl_Interp *)sq
10830 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 lite3_user_data(
10840 70 43 74 78 29 3b 0a 20 20 70 58 20 3d 20 54 63 pCtx);. pX = Tc
10850 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
10860 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 test_function",
10870 2d 31 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 -1);. Tcl_IncrR
10880 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a 20 20 54 efCount(pX);. T
10890 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
108a0 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
108b0 70 58 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e pX, Tcl_NewStrin
108c0 67 4f 62 6a 28 22 55 54 46 2d 38 22 2c 20 2d 31 gObj("UTF-8", -1
108d0 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ));. Tcl_ListOb
108e0 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
108f0 6e 74 65 72 70 2c 20 70 58 2c 20 0a 20 20 20 20 nterp, pX, .
10900 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
10910 62 6a 28 28 63 68 61 72 2a 29 73 71 6c 69 74 65 bj((char*)sqlite
10920 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
10930 76 5b 30 5d 29 2c 20 2d 31 29 29 3b 0a 20 20 54 v[0]), -1));. T
10940 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 69 6e 74 cl_EvalObjEx(int
10950 65 72 70 2c 20 70 58 2c 20 30 29 3b 0a 20 20 54 erp, pX, 0);. T
10960 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
10970 70 58 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 pX);. sqlite3_r
10980 65 73 75 6c 74 5f 74 65 78 74 28 70 43 74 78 2c esult_text(pCtx,
10990 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 Tcl_GetStringRe
109a0 73 75 6c 74 28 69 6e 74 65 72 70 29 2c 20 2d 31 sult(interp), -1
109b0 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
109c0 4e 54 29 3b 0a 20 20 70 56 61 6c 20 3d 20 73 71 NT);. pVal = sq
109d0 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28 30 29 lite3ValueNew(0)
109e0 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 ;. sqlite3Value
109f0 53 65 74 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c SetStr(pVal, -1,
10a00 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 Tcl_GetStringRe
10a10 73 75 6c 74 28 69 6e 74 65 72 70 29 2c 20 0a 20 sult(interp), .
10a20 20 20 20 20 20 53 51 4c 49 54 45 5f 55 54 46 38 SQLITE_UTF8
10a30 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 , SQLITE_STATIC)
10a40 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 ;. sqlite3_resu
10a50 6c 74 5f 74 65 78 74 31 36 62 65 28 70 43 74 78 lt_text16be(pCtx
10a60 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f , sqlite3_value_
10a70 74 65 78 74 31 36 62 65 28 70 56 61 6c 29 2c 0a text16be(pVal),.
10a80 20 20 20 20 20 20 2d 31 2c 20 53 51 4c 49 54 45 -1, SQLITE
10a90 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 73 _TRANSIENT);. s
10aa0 71 6c 69 74 65 33 56 61 6c 75 65 46 72 65 65 28 qlite3ValueFree(
10ab0 70 56 61 6c 29 3b 0a 7d 0a 73 74 61 74 69 63 20 pVal);.}.static
10ac0 76 6f 69 64 20 74 65 73 74 5f 66 75 6e 63 74 69 void test_functi
10ad0 6f 6e 5f 75 74 66 31 36 6c 65 28 0a 20 20 73 71 on_utf16le(. sq
10ae0 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 lite3_context *p
10af0 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 Ctx, . int nArg
10b00 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ,. sqlite3_valu
10b10 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 54 63 e **argv.){. Tc
10b20 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
10b30 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 58 3b ;. Tcl_Obj *pX;
10b40 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
10b50 20 2a 70 56 61 6c 3b 0a 20 20 69 6e 74 65 72 70 *pVal;. interp
10b60 20 3d 20 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a = (Tcl_Interp *
10b70 29 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 )sqlite3_user_da
10b80 74 61 28 70 43 74 78 29 3b 0a 20 20 70 58 20 3d ta(pCtx);. pX =
10b90 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
10ba0 6a 28 22 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e j("test_function
10bb0 22 2c 20 2d 31 29 3b 0a 20 20 54 63 6c 5f 49 6e ", -1);. Tcl_In
10bc0 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a crRefCount(pX);.
10bd0 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
10be0 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
10bf0 70 2c 20 70 58 2c 20 54 63 6c 5f 4e 65 77 53 74 p, pX, Tcl_NewSt
10c00 72 69 6e 67 4f 62 6a 28 22 55 54 46 2d 31 36 4c ringObj("UTF-16L
10c10 45 22 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f E", -1));. Tcl_
10c20 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
10c30 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 58 2c ment(interp, pX,
10c40 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 . Tcl_NewS
10c50 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 72 2a 29 tringObj((char*)
10c60 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
10c70 78 74 28 61 72 67 76 5b 30 5d 29 2c 20 2d 31 29 xt(argv[0]), -1)
10c80 29 3b 0a 20 20 54 63 6c 5f 45 76 61 6c 4f 62 6a );. Tcl_EvalObj
10c90 45 78 28 69 6e 74 65 72 70 2c 20 70 58 2c 20 30 Ex(interp, pX, 0
10ca0 29 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 );. Tcl_DecrRef
10cb0 43 6f 75 6e 74 28 70 58 29 3b 0a 20 20 70 56 61 Count(pX);. pVa
10cc0 6c 20 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65 l = sqlite3Value
10cd0 4e 65 77 28 30 29 3b 0a 20 20 73 71 6c 69 74 65 New(0);. sqlite
10ce0 33 56 61 6c 75 65 53 65 74 53 74 72 28 70 56 61 3ValueSetStr(pVa
10cf0 6c 2c 20 2d 31 2c 20 54 63 6c 5f 47 65 74 53 74 l, -1, Tcl_GetSt
10d00 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 ringResult(inter
10d10 70 29 2c 20 0a 20 20 20 20 20 20 53 51 4c 49 54 p), . SQLIT
10d20 45 5f 55 54 46 38 2c 20 53 51 4c 49 54 45 5f 53 E_UTF8, SQLITE_S
10d30 54 41 54 49 43 29 3b 0a 20 20 73 71 6c 69 74 65 TATIC);. sqlite
10d40 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 70 43 3_result_text(pC
10d50 74 78 2c 28 63 68 61 72 2a 29 73 71 6c 69 74 65 tx,(char*)sqlite
10d60 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 70 56 61 3_value_text(pVa
10d70 6c 29 2c 2d 31 2c 53 51 4c 49 54 45 5f 54 52 41 l),-1,SQLITE_TRA
10d80 4e 53 49 45 4e 54 29 3b 0a 20 20 73 71 6c 69 74 NSIENT);. sqlit
10d90 65 33 56 61 6c 75 65 46 72 65 65 28 70 56 61 6c e3ValueFree(pVal
10da0 29 3b 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 );.}.static void
10db0 20 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 5f 75 test_function_u
10dc0 74 66 31 36 62 65 28 0a 20 20 73 71 6c 69 74 65 tf16be(. sqlite
10dd0 33 5f 63 6f 6e 74 65 78 74 20 2a 70 43 74 78 2c 3_context *pCtx,
10de0 20 0a 20 20 69 6e 74 20 6e 41 72 67 2c 0a 20 20 . int nArg,.
10df0 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
10e00 61 72 67 76 0a 29 7b 0a 20 20 54 63 6c 5f 49 6e argv.){. Tcl_In
10e10 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 terp *interp;.
10e20 54 63 6c 5f 4f 62 6a 20 2a 70 58 3b 0a 20 20 73 Tcl_Obj *pX;. s
10e30 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 56 qlite3_value *pV
10e40 61 6c 3b 0a 20 20 69 6e 74 65 72 70 20 3d 20 28 al;. interp = (
10e50 54 63 6c 5f 49 6e 74 65 72 70 20 2a 29 73 71 6c Tcl_Interp *)sql
10e60 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 70 ite3_user_data(p
10e70 43 74 78 29 3b 0a 20 20 70 58 20 3d 20 54 63 6c Ctx);. pX = Tcl
10e80 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 74 _NewStringObj("t
10e90 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 2d est_function", -
10ea0 31 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 1);. Tcl_IncrRe
10eb0 66 43 6f 75 6e 74 28 70 58 29 3b 0a 20 20 54 63 fCount(pX);. Tc
10ec0 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
10ed0 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 lement(interp, p
10ee0 58 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 X, Tcl_NewString
10ef0 4f 62 6a 28 22 55 54 46 2d 31 36 42 45 22 2c 20 Obj("UTF-16BE",
10f00 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 -1));. Tcl_List
10f10 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
10f20 28 69 6e 74 65 72 70 2c 20 70 58 2c 20 0a 20 20 (interp, pX, .
10f30 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
10f40 67 4f 62 6a 28 28 63 68 61 72 2a 29 73 71 6c 69 gObj((char*)sqli
10f50 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
10f60 72 67 76 5b 30 5d 29 2c 20 2d 31 29 29 3b 0a 20 rgv[0]), -1));.
10f70 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 69 Tcl_EvalObjEx(i
10f80 6e 74 65 72 70 2c 20 70 58 2c 20 30 29 3b 0a 20 nterp, pX, 0);.
10f90 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
10fa0 74 28 70 58 29 3b 0a 20 20 70 56 61 6c 20 3d 20 t(pX);. pVal =
10fb0 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28 sqlite3ValueNew(
10fc0 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 0);. sqlite3Val
10fd0 75 65 53 65 74 53 74 72 28 70 56 61 6c 2c 20 2d ueSetStr(pVal, -
10fe0 31 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 1, Tcl_GetString
10ff0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 2c 20 Result(interp),
11000 0a 20 20 20 20 20 20 53 51 4c 49 54 45 5f 55 54 . SQLITE_UT
11010 46 38 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 F8, SQLITE_STATI
11020 43 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 C);. sqlite3_re
11030 73 75 6c 74 5f 74 65 78 74 31 36 6c 65 28 70 43 sult_text16le(pC
11040 74 78 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 tx, sqlite3_valu
11050 65 5f 74 65 78 74 31 36 6c 65 28 70 56 61 6c 29 e_text16le(pVal)
11060 2c 0a 20 20 20 20 20 20 2d 31 2c 20 53 51 4c 49 ,. -1, SQLI
11070 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 TE_TRANSIENT);.
11080 20 73 71 6c 69 74 65 33 56 61 6c 75 65 46 72 65 sqlite3ValueFre
11090 65 28 70 56 61 6c 29 3b 0a 7d 0a 23 65 6e 64 69 e(pVal);.}.#endi
110a0 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 f /* SQLITE_OMIT
110b0 5f 55 54 46 31 36 20 2a 2f 0a 73 74 61 74 69 63 _UTF16 */.static
110c0 20 69 6e 74 20 74 65 73 74 5f 66 75 6e 63 74 69 int test_functi
110d0 6f 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 on(. void * cli
110e0 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
110f0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
11100 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
11110 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
11120 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 [].){.#ifndef SQ
11130 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a LITE_OMIT_UTF16.
11140 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
11150 20 69 6e 74 20 76 61 6c 3b 0a 0a 20 20 69 66 28 int val;.. if(
11160 20 6f 62 6a 63 21 3d 35 20 29 20 67 6f 74 6f 20 objc!=5 ) goto
11170 62 61 64 5f 61 72 67 73 3b 0a 20 20 69 66 28 20 bad_args;. if(
11180 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
11190 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
111a0 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
111b0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
111c0 52 52 4f 52 3b 0a 0a 20 20 69 66 28 20 54 43 4c RROR;.. if( TCL
111d0 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c _OK!=Tcl_GetBool
111e0 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 eanFromObj(inter
111f0 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 76 61 6c p, objv[2], &val
11200 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
11210 52 52 4f 52 3b 0a 20 20 69 66 28 20 76 61 6c 20 RROR;. if( val
11220 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 ){. sqlite3_c
11230 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 reate_function(d
11240 62 2c 20 22 74 65 73 74 5f 66 75 6e 63 74 69 6f b, "test_functio
11250 6e 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 n", 1, SQLITE_UT
11260 46 38 2c 20 0a 20 20 20 20 20 20 20 20 69 6e 74 F8, . int
11270 65 72 70 2c 20 74 65 73 74 5f 66 75 6e 63 74 69 erp, test_functi
11280 6f 6e 5f 75 74 66 38 2c 20 30 2c 20 30 29 3b 0a on_utf8, 0, 0);.
11290 20 20 7d 0a 20 20 69 66 28 20 54 43 4c 5f 4f 4b }. if( TCL_OK
112a0 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e !=Tcl_GetBoolean
112b0 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
112c0 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 29 20 29 objv[3], &val) )
112d0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
112e0 52 3b 0a 20 20 69 66 28 20 76 61 6c 20 29 7b 0a R;. if( val ){.
112f0 20 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 sqlite3_crea
11300 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 te_function(db,
11310 22 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c "test_function",
11320 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 1, SQLITE_UTF16
11330 4c 45 2c 20 0a 20 20 20 20 20 20 20 20 69 6e 74 LE, . int
11340 65 72 70 2c 20 74 65 73 74 5f 66 75 6e 63 74 69 erp, test_functi
11350 6f 6e 5f 75 74 66 31 36 6c 65 2c 20 30 2c 20 30 on_utf16le, 0, 0
11360 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 43 4c );. }. if( TCL
11370 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c _OK!=Tcl_GetBool
11380 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 eanFromObj(inter
11390 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 76 61 6c p, objv[4], &val
113a0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
113b0 52 52 4f 52 3b 0a 20 20 69 66 28 20 76 61 6c 20 RROR;. if( val
113c0 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 ){. sqlite3_c
113d0 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 reate_function(d
113e0 62 2c 20 22 74 65 73 74 5f 66 75 6e 63 74 69 6f b, "test_functio
113f0 6e 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 n", 1, SQLITE_UT
11400 46 31 36 42 45 2c 20 0a 20 20 20 20 20 20 20 20 F16BE, .
11410 69 6e 74 65 72 70 2c 20 74 65 73 74 5f 66 75 6e interp, test_fun
11420 63 74 69 6f 6e 5f 75 74 66 31 36 62 65 2c 20 30 ction_utf16be, 0
11430 2c 20 30 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 , 0);. }.. ret
11440 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 62 61 64 5f urn TCL_OK;.bad_
11450 61 72 67 73 3a 0a 20 20 54 63 6c 5f 41 70 70 65 args:. Tcl_Appe
11460 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
11470 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
11480 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 should be \"",.
11490 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
114a0 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 ngFromObj(objv[0
114b0 5d 2c 20 30 29 2c 20 22 20 3c 44 42 3e 20 3c 75 ], 0), " <DB> <u
114c0 74 66 38 3e 20 3c 75 74 66 31 36 6c 65 3e 20 3c tf8> <utf16le> <
114d0 75 74 66 31 36 62 65 3e 22 2c 20 30 29 3b 0a 23 utf16be>", 0);.#
114e0 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f endif /* SQLITE_
114f0 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a 20 20 OMIT_UTF16 */.
11500 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
11510 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
11520 3a 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 65 : test_e
11530 72 72 73 74 72 20 3c 65 72 72 20 63 6f 64 65 3e rrstr <err code>
11540 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 61 74 .**.** Test that
11550 20 74 68 65 20 65 6e 67 6c 69 73 68 20 6c 61 6e the english lan
11560 67 75 61 67 65 20 73 74 72 69 6e 67 20 65 71 75 guage string equ
11570 69 76 61 6c 65 6e 74 73 20 66 6f 72 20 73 71 6c ivalents for sql
11580 69 74 65 20 65 72 72 6f 72 20 63 6f 64 65 73 0a ite error codes.
11590 2a 2a 20 61 72 65 20 73 61 6e 65 2e 20 54 68 65 ** are sane. The
115a0 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 61 6e parameter is an
115b0 20 69 6e 74 65 67 65 72 20 72 65 70 72 65 73 65 integer represe
115c0 6e 74 69 6e 67 20 61 6e 20 73 71 6c 69 74 65 20 nting an sqlite
115d0 65 72 72 6f 72 20 63 6f 64 65 2e 0a 2a 2a 20 54 error code..** T
115e0 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 6c he result is a l
115f0 69 73 74 20 6f 66 20 74 77 6f 20 65 6c 65 6d 65 ist of two eleme
11600 6e 74 73 2c 20 74 68 65 20 73 74 72 69 6e 67 20 nts, the string
11610 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f representation o
11620 66 20 74 68 65 0a 2a 2a 20 65 72 72 6f 72 20 63 f the.** error c
11630 6f 64 65 20 61 6e 64 20 74 68 65 20 65 6e 67 6c ode and the engl
11640 69 73 68 20 6c 61 6e 67 75 61 67 65 20 65 78 70 ish language exp
11650 6c 61 6e 61 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 lanation..*/.sta
11660 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 72 72 tic int test_err
11670 73 74 72 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c str(. void * cl
11680 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
11690 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
116a0 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
116b0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
116c0 76 5b 5d 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a v[].){. char *z
116d0 43 6f 64 65 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 Code;. int i;.
116e0 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 29 7b 0a if( objc!=1 ){.
116f0 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
11700 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
11710 6f 62 6a 76 2c 20 22 3c 65 72 72 6f 72 20 63 6f objv, "<error co
11720 64 65 3e 22 29 3b 0a 20 20 7d 0a 0a 20 20 7a 43 de>");. }.. zC
11730 6f 64 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 ode = Tcl_GetStr
11740 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 ing(objv[1]);.
11750 66 6f 72 28 69 3d 30 3b 20 69 3c 32 30 30 3b 20 for(i=0; i<200;
11760 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 30 3d i++){. if( 0=
11770 3d 73 74 72 63 6d 70 28 74 31 45 72 72 6f 72 4e =strcmp(t1ErrorN
11780 61 6d 65 28 69 29 2c 20 7a 43 6f 64 65 29 20 29 ame(i), zCode) )
11790 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 54 63 break;. }. Tc
117a0 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
117b0 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c 69 rp, (char *)sqli
117c0 74 65 33 45 72 72 53 74 72 28 69 29 2c 20 30 29 te3ErrStr(i), 0)
117d0 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
117e0 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
117f0 65 3a 20 20 20 20 62 72 65 61 6b 70 6f 69 6e 74 e: breakpoint
11800 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 .**.** This rout
11810 69 6e 65 20 65 78 69 73 74 73 20 66 6f 72 20 6f ine exists for o
11820 6e 65 20 70 75 72 70 6f 73 65 20 2d 20 74 6f 20 ne purpose - to
11830 70 72 6f 76 69 64 65 20 61 20 70 6c 61 63 65 20 provide a place
11840 74 6f 20 70 75 74 20 61 0a 2a 2a 20 62 72 65 61 to put a.** brea
11850 6b 70 6f 69 6e 74 20 77 69 74 68 20 47 44 42 20 kpoint with GDB
11860 74 68 61 74 20 63 61 6e 20 62 65 20 74 72 69 67 that can be trig
11870 67 65 72 65 64 20 75 73 69 6e 67 20 54 43 4c 20 gered using TCL
11880 63 6f 64 65 2e 20 20 54 68 65 20 75 73 65 0a 2a code. The use.*
11890 2a 20 66 6f 72 20 74 68 69 73 20 69 73 20 77 68 * for this is wh
118a0 65 6e 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 en a particular
118b0 74 65 73 74 20 66 61 69 6c 73 20 6f 6e 20 28 73 test fails on (s
118c0 61 79 29 20 74 68 65 20 31 34 38 35 74 68 20 69 ay) the 1485th i
118d0 74 65 72 61 74 69 6f 6e 2e 0a 2a 2a 20 49 6e 20 teration..** In
118e0 74 68 65 20 54 43 4c 20 74 65 73 74 20 73 63 72 the TCL test scr
118f0 69 70 74 2c 20 77 65 20 63 61 6e 20 61 64 64 20 ipt, we can add
11900 63 6f 64 65 20 6c 69 6b 65 20 74 68 69 73 3a 0a code like this:.
11910 2a 2a 0a 2a 2a 20 20 20 20 20 69 66 20 7b 24 69 **.** if {$i
11920 3d 3d 31 34 38 35 7d 20 62 72 65 61 6b 70 6f 69 ==1485} breakpoi
11930 6e 74 0a 2a 2a 0a 2a 2a 20 54 68 65 6e 20 72 75 nt.**.** Then ru
11940 6e 20 74 65 73 74 66 69 78 74 75 72 65 20 69 6e n testfixture in
11950 20 74 68 65 20 64 65 62 75 67 67 65 72 20 61 6e the debugger an
11960 64 20 77 61 69 74 20 66 6f 72 20 74 68 65 20 62 d wait for the b
11970 72 65 61 6b 70 6f 69 6e 74 20 74 6f 0a 2a 2a 20 reakpoint to.**
11980 66 69 72 65 2e 20 20 54 68 65 6e 20 61 64 64 69 fire. Then addi
11990 74 69 6f 6e 61 6c 20 62 72 65 61 6b 70 6f 69 6e tional breakpoin
119a0 74 73 20 63 61 6e 20 62 65 20 73 65 74 20 74 6f ts can be set to
119b0 20 74 72 61 63 65 20 64 6f 77 6e 20 74 68 65 20 trace down the
119c0 62 75 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 bug..*/.static i
119d0 6e 74 20 74 65 73 74 5f 62 72 65 61 6b 70 6f 69 nt test_breakpoi
119e0 6e 74 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 nt(. void *NotU
119f0 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
11a00 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
11a10 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
11a20 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
11a30 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
11a40 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
11a50 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
11a60 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
11a70 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
11a80 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
11a90 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
11aa0 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 72 gument */.){. r
11ab0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 20 20 20 eturn TCL_OK;
11ac0 20 20 20 20 20 20 2f 2a 20 44 6f 20 6e 6f 74 68 /* Do noth
11ad0 69 6e 67 20 2a 2f 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 ing */.}../*.**
11ae0 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
11af0 5f 62 69 6e 64 5f 7a 65 72 6f 62 6c 6f 62 20 20 _bind_zeroblob
11b00 53 54 4d 54 20 49 44 58 20 4e 0a 2a 2a 0a 2a 2a STMT IDX N.**.**
11b10 20 54 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 Test the sqlite
11b20 33 5f 62 69 6e 64 5f 7a 65 72 6f 62 6c 6f 62 20 3_bind_zeroblob
11b30 69 6e 74 65 72 66 61 63 65 2e 20 20 53 54 4d 54 interface. STMT
11b40 20 69 73 20 61 20 70 72 65 70 61 72 65 64 20 73 is a prepared s
11b50 74 61 74 65 6d 65 6e 74 2e 0a 2a 2a 20 49 44 58 tatement..** IDX
11b60 20 69 73 20 74 68 65 20 69 6e 64 65 78 20 6f 66 is the index of
11b70 20 61 20 77 69 6c 64 63 61 72 64 20 69 6e 20 74 a wildcard in t
11b80 68 65 20 70 72 65 70 61 72 65 64 20 73 74 61 74 he prepared stat
11b90 65 6d 65 6e 74 2e 20 20 54 68 69 73 20 63 6f 6d ement. This com
11ba0 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 73 20 61 20 mand.** binds a
11bb0 4e 2d 62 79 74 65 20 7a 65 72 6f 2d 66 69 6c 6c N-byte zero-fill
11bc0 65 64 20 42 4c 4f 42 20 74 6f 20 74 68 65 20 77 ed BLOB to the w
11bd0 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a 73 74 61 74 ildcard..*/.stat
11be0 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 ic int test_bind
11bf0 5f 7a 65 72 6f 62 6c 6f 62 28 0a 20 20 76 6f 69 _zeroblob(. voi
11c00 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
11c10 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
11c20 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
11c30 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
11c40 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
11c50 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
11c60 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 mt;. int idx;.
11c70 20 69 6e 74 20 6e 3b 0a 20 20 69 6e 74 20 72 63 int n;. int rc
11c80 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 ;.. if( objc!=4
11c90 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e ){. Tcl_Wron
11ca0 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
11cb0 20 31 2c 20 6f 62 6a 76 2c 20 22 53 54 4d 54 20 1, objv, "STMT
11cc0 49 44 58 20 4e 22 29 3b 0a 20 20 20 20 72 65 74 IDX N");. ret
11cd0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
11ce0 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d }.. if( getStm
11cf0 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
11d00 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
11d10 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 bjv[1]), &pStmt)
11d20 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
11d30 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 ROR;. if( Tcl_G
11d40 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
11d50 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 erp, objv[2], &i
11d60 64 78 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c dx) ) return TCL
11d70 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 _ERROR;. if( Tc
11d80 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
11d90 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c interp, objv[3],
11da0 20 26 6e 29 20 29 20 72 65 74 75 72 6e 20 54 43 &n) ) return TC
11db0 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d L_ERROR;.. rc =
11dc0 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 7a 65 sqlite3_bind_ze
11dd0 72 6f 62 6c 6f 62 28 70 53 74 6d 74 2c 20 69 64 roblob(pStmt, id
11de0 78 2c 20 6e 29 3b 0a 20 20 69 66 28 20 73 71 6c x, n);. if( sql
11df0 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 ite3TestErrCode(
11e00 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 interp, StmtToDb
11e10 28 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 72 (pStmt), rc) ) r
11e20 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
11e30 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 . if( rc!=SQLIT
11e40 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 E_OK ){. retu
11e50 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
11e60 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f }.. return TCL_
11e70 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
11e80 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 ge: sqlite3_bi
11e90 6e 64 5f 69 6e 74 20 20 53 54 4d 54 20 4e 20 56 nd_int STMT N V
11ea0 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 ALUE.**.** Test
11eb0 74 68 65 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 the sqlite3_bind
11ec0 5f 69 6e 74 20 69 6e 74 65 72 66 61 63 65 2e 20 _int interface.
11ed0 20 53 54 4d 54 20 69 73 20 61 20 70 72 65 70 61 STMT is a prepa
11ee0 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 0a 2a red statement..*
11ef0 2a 20 4e 20 69 73 20 74 68 65 20 69 6e 64 65 78 * N is the index
11f00 20 6f 66 20 61 20 77 69 6c 64 63 61 72 64 20 69 of a wildcard i
11f10 6e 20 74 68 65 20 70 72 65 70 61 72 65 64 20 73 n the prepared s
11f20 74 61 74 65 6d 65 6e 74 2e 20 20 54 68 69 73 20 tatement. This
11f30 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 73 command.** binds
11f40 20 61 20 33 32 2d 62 69 74 20 69 6e 74 65 67 65 a 32-bit intege
11f50 72 20 56 41 4c 55 45 20 74 6f 20 74 68 61 74 20 r VALUE to that
11f60 77 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a 73 74 61 wildcard..*/.sta
11f70 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e tic int test_bin
11f80 64 5f 69 6e 74 28 0a 20 20 76 6f 69 64 20 2a 20 d_int(. void *
11f90 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
11fa0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
11fb0 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
11fc0 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
11fd0 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
11fe0 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
11ff0 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 6e 74 int idx;. int
12000 20 76 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 value;. int rc
12010 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 ;.. if( objc!=4
12020 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
12030 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
12040 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
12050 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 should be \"",.
12060 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
12070 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
12080 5b 30 5d 2c 20 30 29 2c 20 22 20 53 54 4d 54 20 [0], 0), " STMT
12090 4e 20 56 41 4c 55 45 22 2c 20 30 29 3b 0a 20 20 N VALUE", 0);.
120a0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
120b0 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 OR;. }.. if( g
120c0 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e etStmtPointer(in
120d0 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
120e0 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 ing(objv[1]), &p
120f0 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 Stmt) ) return T
12100 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
12110 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 Tcl_GetIntFromOb
12120 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 j(interp, objv[2
12130 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 ], &idx) ) retur
12140 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
12150 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
12160 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
12170 76 5b 33 5d 2c 20 26 76 61 6c 75 65 29 20 29 20 v[3], &value) )
12180 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
12190 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 ;.. rc = sqlite
121a0 33 5f 62 69 6e 64 5f 69 6e 74 28 70 53 74 6d 74 3_bind_int(pStmt
121b0 2c 20 69 64 78 2c 20 76 61 6c 75 65 29 3b 0a 20 , idx, value);.
121c0 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
121d0 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
121e0 53 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 2c StmtToDb(pStmt),
121f0 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 rc) ) return TC
12200 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 L_ERROR;. if( r
12210 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a c!=SQLITE_OK ){.
12220 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
12230 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 RROR;. }.. ret
12240 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a urn TCL_OK;.}...
12250 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 /*.** Usage: s
12260 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 36 qlite3_bind_int6
12270 34 20 20 53 54 4d 54 20 4e 20 56 41 4c 55 45 0a 4 STMT N VALUE.
12280 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 73 **.** Test the s
12290 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 36 qlite3_bind_int6
122a0 34 20 69 6e 74 65 72 66 61 63 65 2e 20 20 53 54 4 interface. ST
122b0 4d 54 20 69 73 20 61 20 70 72 65 70 61 72 65 64 MT is a prepared
122c0 20 73 74 61 74 65 6d 65 6e 74 2e 0a 2a 2a 20 4e statement..** N
122d0 20 69 73 20 74 68 65 20 69 6e 64 65 78 20 6f 66 is the index of
122e0 20 61 20 77 69 6c 64 63 61 72 64 20 69 6e 20 74 a wildcard in t
122f0 68 65 20 70 72 65 70 61 72 65 64 20 73 74 61 74 he prepared stat
12300 65 6d 65 6e 74 2e 20 20 54 68 69 73 20 63 6f 6d ement. This com
12310 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 73 20 61 20 mand.** binds a
12320 36 34 2d 62 69 74 20 69 6e 74 65 67 65 72 20 56 64-bit integer V
12330 41 4c 55 45 20 74 6f 20 74 68 61 74 20 77 69 6c ALUE to that wil
12340 64 63 61 72 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 dcard..*/.static
12350 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 69 int test_bind_i
12360 6e 74 36 34 28 0a 20 20 76 6f 69 64 20 2a 20 63 nt64(. void * c
12370 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
12380 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
12390 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
123a0 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
123b0 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
123c0 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
123d0 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 36 34 20 int idx;. i64
123e0 76 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 3b value;. int rc;
123f0 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 .. if( objc!=4
12400 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
12410 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
12420 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
12430 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 hould be \"",.
12440 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
12450 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
12460 30 5d 2c 20 30 29 2c 20 22 20 53 54 4d 54 20 4e 0], 0), " STMT N
12470 20 56 41 4c 55 45 22 2c 20 30 29 3b 0a 20 20 20 VALUE", 0);.
12480 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
12490 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
124a0 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
124b0 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
124c0 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
124d0 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
124e0 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
124f0 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
12500 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
12510 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
12520 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
12530 28 20 54 63 6c 5f 47 65 74 57 69 64 65 49 6e 74 ( Tcl_GetWideInt
12540 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
12550 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 75 65 29 objv[3], &value)
12560 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
12570 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c ROR;.. rc = sql
12580 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 36 34 28 ite3_bind_int64(
12590 70 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 pStmt, idx, valu
125a0 65 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 e);. if( sqlite
125b0 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 3TestErrCode(int
125c0 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 erp, StmtToDb(pS
125d0 74 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 75 tmt), rc) ) retu
125e0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
125f0 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f if( rc!=SQLITE_O
12600 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 K ){. return
12610 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
12620 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
12630 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 .}.../*.** Usage
12640 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 : sqlite3_bind
12650 5f 64 6f 75 62 6c 65 20 20 53 54 4d 54 20 4e 20 _double STMT N
12660 56 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 65 73 74 VALUE.**.** Test
12670 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62 69 6e the sqlite3_bin
12680 64 5f 64 6f 75 62 6c 65 20 69 6e 74 65 72 66 61 d_double interfa
12690 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 ce. STMT is a p
126a0 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
126b0 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 t..** N is the i
126c0 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 ndex of a wildca
126d0 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 rd in the prepar
126e0 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 ed statement. T
126f0 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 his command.** b
12700 69 6e 64 73 20 61 20 36 34 2d 62 69 74 20 69 6e inds a 64-bit in
12710 74 65 67 65 72 20 56 41 4c 55 45 20 74 6f 20 74 teger VALUE to t
12720 68 61 74 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f hat wildcard..*/
12730 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
12740 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 28 0a 20 20 _bind_double(.
12750 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
12760 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
12770 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
12780 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
12790 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
127a0 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
127b0 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 pStmt;. int idx
127c0 3b 0a 20 20 64 6f 75 62 6c 65 20 76 61 6c 75 65 ;. double value
127d0 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 ;. int rc;.. i
127e0 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 f( objc!=4 ){.
127f0 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
12800 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
12810 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
12820 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 be \"",.
12830 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
12840 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 omObj(objv[0], 0
12850 29 2c 20 22 20 53 54 4d 54 20 4e 20 56 41 4c 55 ), " STMT N VALU
12860 45 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 E", 0);. retu
12870 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
12880 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }.. if( getStmt
12890 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
128a0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
128b0 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 jv[1]), &pStmt)
128c0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
128d0 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
128e0 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
128f0 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 rp, objv[2], &id
12900 78 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f x) ) return TCL_
12910 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c ERROR;. if( Tcl
12920 5f 47 65 74 44 6f 75 62 6c 65 46 72 6f 6d 4f 62 _GetDoubleFromOb
12930 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 j(interp, objv[3
12940 5d 2c 20 26 76 61 6c 75 65 29 20 29 20 72 65 74 ], &value) ) ret
12950 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a urn TCL_ERROR;..
12960 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 rc = sqlite3_b
12970 69 6e 64 5f 64 6f 75 62 6c 65 28 70 53 74 6d 74 ind_double(pStmt
12980 2c 20 69 64 78 2c 20 76 61 6c 75 65 29 3b 0a 20 , idx, value);.
12990 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
129a0 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
129b0 53 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 2c StmtToDb(pStmt),
129c0 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 rc) ) return TC
129d0 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 L_ERROR;. if( r
129e0 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a c!=SQLITE_OK ){.
129f0 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
12a00 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 RROR;. }.. ret
12a10 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
12a20 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 *.** Usage: sq
12a30 6c 69 74 65 33 5f 62 69 6e 64 5f 6e 75 6c 6c 20 lite3_bind_null
12a40 20 53 54 4d 54 20 4e 0a 2a 2a 0a 2a 2a 20 54 65 STMT N.**.** Te
12a50 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62 st the sqlite3_b
12a60 69 6e 64 5f 6e 75 6c 6c 20 69 6e 74 65 72 66 61 ind_null interfa
12a70 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 ce. STMT is a p
12a80 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
12a90 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 t..** N is the i
12aa0 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 ndex of a wildca
12ab0 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 rd in the prepar
12ac0 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 ed statement. T
12ad0 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 his command.** b
12ae0 69 6e 64 73 20 61 20 4e 55 4c 4c 20 74 6f 20 74 inds a NULL to t
12af0 68 65 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a he wildcard..*/.
12b00 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
12b10 62 69 6e 64 5f 6e 75 6c 6c 28 0a 20 20 76 6f 69 bind_null(. voi
12b20 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
12b30 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
12b40 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
12b50 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
12b60 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
12b70 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
12b80 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 mt;. int idx;.
12b90 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
12ba0 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 objc!=3 ){. T
12bb0 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
12bc0 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
12bd0 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
12be0 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 \"",. Tc
12bf0 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
12c00 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 bj(objv[0], 0),
12c10 22 20 53 54 4d 54 20 4e 22 2c 20 30 29 3b 0a 20 " STMT N", 0);.
12c20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
12c30 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
12c40 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
12c50 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
12c60 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
12c70 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
12c80 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
12c90 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
12ca0 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
12cb0 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 2], &idx) ) retu
12cc0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
12cd0 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 rc = sqlite3_bi
12ce0 6e 64 5f 6e 75 6c 6c 28 70 53 74 6d 74 2c 20 69 nd_null(pStmt, i
12cf0 64 78 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 dx);. if( sqlit
12d00 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e e3TestErrCode(in
12d10 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 terp, StmtToDb(p
12d20 53 74 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 Stmt), rc) ) ret
12d30 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
12d40 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f if( rc!=SQLITE_
12d50 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e OK ){. return
12d60 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
12d70 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
12d80 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
12d90 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 : sqlite3_bind
12da0 5f 74 65 78 74 20 20 53 54 4d 54 20 4e 20 53 54 _text STMT N ST
12db0 52 49 4e 47 20 42 59 54 45 53 0a 2a 2a 0a 2a 2a RING BYTES.**.**
12dc0 20 54 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 Test the sqlite
12dd0 33 5f 62 69 6e 64 5f 74 65 78 74 20 69 6e 74 65 3_bind_text inte
12de0 72 66 61 63 65 2e 20 20 53 54 4d 54 20 69 73 20 rface. STMT is
12df0 61 20 70 72 65 70 61 72 65 64 20 73 74 61 74 65 a prepared state
12e00 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 ment..** N is th
12e10 65 20 69 6e 64 65 78 20 6f 66 20 61 20 77 69 6c e index of a wil
12e20 64 63 61 72 64 20 69 6e 20 74 68 65 20 70 72 65 dcard in the pre
12e30 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e pared statement.
12e40 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a This command.*
12e50 2a 20 62 69 6e 64 73 20 61 20 55 54 46 2d 38 20 * binds a UTF-8
12e60 73 74 72 69 6e 67 20 53 54 52 49 4e 47 20 74 6f string STRING to
12e70 20 74 68 65 20 77 69 6c 64 63 61 72 64 2e 20 20 the wildcard.
12e80 54 68 65 20 73 74 72 69 6e 67 20 69 73 20 42 59 The string is BY
12e90 54 45 53 20 62 79 74 65 73 0a 2a 2a 20 6c 6f 6e TES bytes.** lon
12ea0 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 g..*/.static int
12eb0 20 74 65 73 74 5f 62 69 6e 64 5f 74 65 78 74 28 test_bind_text(
12ec0 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
12ed0 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
12ee0 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
12ef0 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
12f00 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
12f10 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
12f20 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 t *pStmt;. int
12f30 69 64 78 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 idx;. int bytes
12f40 3b 0a 20 20 63 68 61 72 20 2a 76 61 6c 75 65 3b ;. char *value;
12f50 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 . int rc;.. if
12f60 28 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 ( objc!=5 ){.
12f70 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
12f80 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
12f90 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
12fa0 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 be \"",.
12fb0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
12fc0 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 mObj(objv[0], 0)
12fd0 2c 20 22 20 53 54 4d 54 20 4e 20 56 41 4c 55 45 , " STMT N VALUE
12fe0 20 42 59 54 45 53 22 2c 20 30 29 3b 0a 20 20 20 BYTES", 0);.
12ff0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
13000 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
13010 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
13020 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
13030 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
13040 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
13050 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
13060 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
13070 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
13080 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
13090 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 76 61 TCL_ERROR;. va
130a0 6c 75 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 lue = Tcl_GetStr
130b0 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 ing(objv[3]);.
130c0 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
130d0 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
130e0 6a 76 5b 34 5d 2c 20 26 62 79 74 65 73 29 20 29 jv[4], &bytes) )
130f0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
13100 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 R;.. rc = sqlit
13110 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74 e3_bind_text(pSt
13120 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 65 2c 20 mt, idx, value,
13130 62 79 74 65 73 2c 20 53 51 4c 49 54 45 5f 54 52 bytes, SQLITE_TR
13140 41 4e 53 49 45 4e 54 29 3b 0a 20 20 69 66 28 20 ANSIENT);. if(
13150 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f sqlite3TestErrCo
13160 64 65 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 de(interp, StmtT
13170 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 63 29 20 oDb(pStmt), rc)
13180 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
13190 4f 52 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 OR;. if( rc!=SQ
131a0 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 LITE_OK ){. T
131b0 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
131c0 69 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 33 54 interp, sqlite3T
131d0 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 estErrorName(rc)
131e0 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
131f0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
13200 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
13210 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
13220 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 : sqlite3_bind
13230 5f 74 65 78 74 31 36 20 3f 2d 73 74 61 74 69 63 _text16 ?-static
13240 3f 20 53 54 4d 54 20 4e 20 53 54 52 49 4e 47 20 ? STMT N STRING
13250 42 59 54 45 53 0a 2a 2a 0a 2a 2a 20 54 65 73 74 BYTES.**.** Test
13260 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62 69 6e the sqlite3_bin
13270 64 5f 74 65 78 74 31 36 20 69 6e 74 65 72 66 61 d_text16 interfa
13280 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 ce. STMT is a p
13290 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
132a0 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 t..** N is the i
132b0 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 ndex of a wildca
132c0 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 rd in the prepar
132d0 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 ed statement. T
132e0 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 his command.** b
132f0 69 6e 64 73 20 61 20 55 54 46 2d 31 36 20 73 74 inds a UTF-16 st
13300 72 69 6e 67 20 53 54 52 49 4e 47 20 74 6f 20 74 ring STRING to t
13310 68 65 20 77 69 6c 64 63 61 72 64 2e 20 20 54 68 he wildcard. Th
13320 65 20 73 74 72 69 6e 67 20 69 73 20 42 59 54 45 e string is BYTE
13330 53 20 62 79 74 65 73 0a 2a 2a 20 6c 6f 6e 67 2e S bytes.** long.
13340 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
13350 65 73 74 5f 62 69 6e 64 5f 74 65 78 74 31 36 28 est_bind_text16(
13360 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
13370 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
13380 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
13390 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
133a0 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
133b0 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 ){.#ifndef SQLIT
133c0 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 73 E_OMIT_UTF16. s
133d0 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
133e0 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 mt;. int idx;.
133f0 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 20 63 68 int bytes;. ch
13400 61 72 20 2a 76 61 6c 75 65 3b 0a 20 20 69 6e 74 ar *value;. int
13410 20 72 63 3b 0a 0a 20 20 76 6f 69 64 20 28 2a 78 rc;.. void (*x
13420 44 65 6c 29 28 29 20 3d 20 28 6f 62 6a 63 3d 3d Del)() = (objc==
13430 36 3f 53 51 4c 49 54 45 5f 53 54 41 54 49 43 3a 6?SQLITE_STATIC:
13440 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 SQLITE_TRANSIENT
13450 29 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 53 );. Tcl_Obj *oS
13460 74 6d 74 20 20 20 20 3d 20 6f 62 6a 76 5b 6f 62 tmt = objv[ob
13470 6a 63 2d 34 5d 3b 0a 20 20 54 63 6c 5f 4f 62 6a jc-4];. Tcl_Obj
13480 20 2a 6f 4e 20 20 20 20 20 20 20 3d 20 6f 62 6a *oN = obj
13490 76 5b 6f 62 6a 63 2d 33 5d 3b 0a 20 20 54 63 6c v[objc-3];. Tcl
134a0 5f 4f 62 6a 20 2a 6f 53 74 72 69 6e 67 20 20 3d _Obj *oString =
134b0 20 6f 62 6a 76 5b 6f 62 6a 63 2d 32 5d 3b 0a 20 objv[objc-2];.
134c0 20 54 63 6c 5f 4f 62 6a 20 2a 6f 42 79 74 65 73 Tcl_Obj *oBytes
134d0 20 20 20 3d 20 6f 62 6a 76 5b 6f 62 6a 63 2d 31 = objv[objc-1
134e0 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d ];.. if( objc!=
134f0 35 20 26 26 20 6f 62 6a 63 21 3d 36 29 7b 0a 20 5 && objc!=6){.
13500 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
13510 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
13520 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
13530 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 d be \"",.
13540 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 Tcl_GetStringF
13550 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 romObj(objv[0],
13560 30 29 2c 20 22 20 53 54 4d 54 20 4e 20 56 41 4c 0), " STMT N VAL
13570 55 45 20 42 59 54 45 53 22 2c 20 30 29 3b 0a 20 UE BYTES", 0);.
13580 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
13590 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
135a0 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
135b0 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
135c0 72 69 6e 67 28 6f 53 74 6d 74 29 2c 20 26 70 53 ring(oStmt), &pS
135d0 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
135e0 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
135f0 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
13600 28 69 6e 74 65 72 70 2c 20 6f 4e 2c 20 26 69 64 (interp, oN, &id
13610 78 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f x) ) return TCL_
13620 45 52 52 4f 52 3b 0a 20 20 76 61 6c 75 65 20 3d ERROR;. value =
13630 20 28 63 68 61 72 2a 29 54 63 6c 5f 47 65 74 42 (char*)Tcl_GetB
13640 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 yteArrayFromObj(
13650 6f 53 74 72 69 6e 67 2c 20 30 29 3b 0a 20 20 69 oString, 0);. i
13660 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
13670 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 42 79 mObj(interp, oBy
13680 74 65 73 2c 20 26 62 79 74 65 73 29 20 29 20 72 tes, &bytes) ) r
13690 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
136a0 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 .. rc = sqlite3
136b0 5f 62 69 6e 64 5f 74 65 78 74 31 36 28 70 53 74 _bind_text16(pSt
136c0 6d 74 2c 20 69 64 78 2c 20 28 76 6f 69 64 20 2a mt, idx, (void *
136d0 29 76 61 6c 75 65 2c 20 62 79 74 65 73 2c 20 78 )value, bytes, x
136e0 44 65 6c 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 Del);. if( sqli
136f0 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 te3TestErrCode(i
13700 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 nterp, StmtToDb(
13710 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 72 65 pStmt), rc) ) re
13720 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
13730 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 if( rc!=SQLITE
13740 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 72 _OK ){. retur
13750 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
13760 0a 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 ..#endif /* SQLI
13770 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f TE_OMIT_UTF16 */
13780 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
13790 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
137a0 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 : sqlite3_bind
137b0 5f 62 6c 6f 62 20 3f 2d 73 74 61 74 69 63 3f 20 _blob ?-static?
137c0 53 54 4d 54 20 4e 20 44 41 54 41 20 42 59 54 45 STMT N DATA BYTE
137d0 53 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 S.**.** Test the
137e0 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 62 6c sqlite3_bind_bl
137f0 6f 62 20 69 6e 74 65 72 66 61 63 65 2e 20 20 53 ob interface. S
13800 54 4d 54 20 69 73 20 61 20 70 72 65 70 61 72 65 TMT is a prepare
13810 64 20 73 74 61 74 65 6d 65 6e 74 2e 0a 2a 2a 20 d statement..**
13820 4e 20 69 73 20 74 68 65 20 69 6e 64 65 78 20 6f N is the index o
13830 66 20 61 20 77 69 6c 64 63 61 72 64 20 69 6e 20 f a wildcard in
13840 74 68 65 20 70 72 65 70 61 72 65 64 20 73 74 61 the prepared sta
13850 74 65 6d 65 6e 74 2e 20 20 54 68 69 73 20 63 6f tement. This co
13860 6d 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 73 20 61 mmand.** binds a
13870 20 42 4c 4f 42 20 74 6f 20 74 68 65 20 77 69 6c BLOB to the wil
13880 64 63 61 72 64 2e 20 20 54 68 65 20 42 4c 4f 42 dcard. The BLOB
13890 20 69 73 20 42 59 54 45 53 20 62 79 74 65 73 20 is BYTES bytes
138a0 69 6e 20 73 69 7a 65 2e 0a 2a 2f 0a 73 74 61 74 in size..*/.stat
138b0 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 ic int test_bind
138c0 5f 62 6c 6f 62 28 0a 20 20 76 6f 69 64 20 2a 20 _blob(. void *
138d0 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
138e0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
138f0 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
13900 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
13910 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
13920 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
13930 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 6e 74 int idx;. int
13940 20 62 79 74 65 73 3b 0a 20 20 63 68 61 72 20 2a bytes;. char *
13950 76 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 3b value;. int rc;
13960 0a 20 20 73 71 6c 69 74 65 33 5f 64 65 73 74 72 . sqlite3_destr
13970 75 63 74 6f 72 5f 74 79 70 65 20 78 44 65 73 74 uctor_type xDest
13980 72 75 63 74 6f 72 20 3d 20 53 51 4c 49 54 45 5f ructor = SQLITE_
13990 54 52 41 4e 53 49 45 4e 54 3b 0a 0a 20 20 69 66 TRANSIENT;.. if
139a0 28 20 6f 62 6a 63 21 3d 35 20 26 26 20 6f 62 6a ( objc!=5 && obj
139b0 63 21 3d 36 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=6 ){. Tcl_
139c0 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
139d0 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
139e0 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
139f0 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 ",. Tcl_G
13a00 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
13a10 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 53 objv[0], 0), " S
13a20 54 4d 54 20 4e 20 44 41 54 41 20 42 59 54 45 53 TMT N DATA BYTES
13a30 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
13a40 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
13a50 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d 36 20 .. if( objc==6
13a60 29 7b 0a 20 20 20 20 78 44 65 73 74 72 75 63 74 ){. xDestruct
13a70 6f 72 20 3d 20 53 51 4c 49 54 45 5f 53 54 41 54 or = SQLITE_STAT
13a80 49 43 3b 0a 20 20 20 20 6f 62 6a 76 2b 2b 3b 0a IC;. objv++;.
13a90 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 }.. if( getSt
13aa0 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
13ab0 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
13ac0 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 objv[1]), &pStmt
13ad0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
13ae0 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
13af0 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
13b00 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 terp, objv[2], &
13b10 69 64 78 29 20 29 20 72 65 74 75 72 6e 20 54 43 idx) ) return TC
13b20 4c 5f 45 52 52 4f 52 3b 0a 20 20 76 61 6c 75 65 L_ERROR;. value
13b30 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
13b40 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 69 66 28 (objv[3]);. if(
13b50 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
13b60 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
13b70 34 5d 2c 20 26 62 79 74 65 73 29 20 29 20 72 65 4], &bytes) ) re
13b80 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
13b90 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
13ba0 62 69 6e 64 5f 62 6c 6f 62 28 70 53 74 6d 74 2c bind_blob(pStmt,
13bb0 20 69 64 78 2c 20 76 61 6c 75 65 2c 20 62 79 74 idx, value, byt
13bc0 65 73 2c 20 78 44 65 73 74 72 75 63 74 6f 72 29 es, xDestructor)
13bd0 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 ;. if( sqlite3T
13be0 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 estErrCode(inter
13bf0 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 6d p, StmtToDb(pStm
13c00 74 29 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e t), rc) ) return
13c10 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
13c20 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc!=SQLITE_OK
13c30 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 ){. return TC
13c40 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
13c50 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
13c60 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
13c70 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 sqlite3_bind_pa
13c80 72 61 6d 65 74 65 72 5f 63 6f 75 6e 74 20 20 53 rameter_count S
13c90 54 4d 54 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e TMT.**.** Return
13ca0 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 77 the number of w
13cb0 69 6c 64 63 61 72 64 73 20 69 6e 20 74 68 65 20 ildcards in the
13cc0 67 69 76 65 6e 20 73 74 61 74 65 6d 65 6e 74 2e given statement.
13cd0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
13ce0 65 73 74 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 est_bind_paramet
13cf0 65 72 5f 63 6f 75 6e 74 28 0a 20 20 76 6f 69 64 er_count(. void
13d00 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
13d10 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
13d20 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
13d30 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
13d40 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
13d50 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d lite3_stmt *pStm
13d60 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d t;.. if( objc!=
13d70 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 2 ){. Tcl_Wro
13d80 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
13d90 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 54 4d 54 , 1, objv, "STMT
13da0 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
13db0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
13dc0 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
13dd0 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
13de0 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
13df0 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
13e00 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
13e10 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
13e20 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
13e30 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f wIntObj(sqlite3_
13e40 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 63 bind_parameter_c
13e50 6f 75 6e 74 28 70 53 74 6d 74 29 29 29 3b 0a 20 ount(pStmt)));.
13e60 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
13e70 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
13e80 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 sqlite3_bind_p
13e90 61 72 61 6d 65 74 65 72 5f 6e 61 6d 65 20 20 53 arameter_name S
13ea0 54 4d 54 20 20 4e 0a 2a 2a 0a 2a 2a 20 52 65 74 TMT N.**.** Ret
13eb0 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 urn the name of
13ec0 74 68 65 20 4e 74 68 20 77 69 6c 64 63 61 72 64 the Nth wildcard
13ed0 2e 20 20 54 68 65 20 66 69 72 73 74 20 77 69 6c . The first wil
13ee0 64 63 61 72 64 20 69 73 20 31 2e 0a 2a 2a 20 41 dcard is 1..** A
13ef0 6e 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 69 n empty string i
13f00 73 20 72 65 74 75 72 6e 65 64 20 69 66 20 4e 20 s returned if N
13f10 69 73 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 20 is out of range
13f20 6f 72 20 69 66 20 74 68 65 20 77 69 6c 64 63 61 or if the wildca
13f30 72 64 0a 2a 2a 20 69 73 20 6e 61 6d 65 6c 65 73 rd.** is nameles
13f40 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 s..*/.static int
13f50 20 74 65 73 74 5f 62 69 6e 64 5f 70 61 72 61 6d test_bind_param
13f60 65 74 65 72 5f 6e 61 6d 65 28 0a 20 20 76 6f 69 eter_name(. voi
13f70 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
13f80 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
13f90 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
13fa0 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
13fb0 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
13fc0 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
13fd0 6d 74 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 mt;. int i;..
13fe0 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 if( objc!=3 ){.
13ff0 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 Tcl_WrongNumA
14000 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
14010 62 6a 76 2c 20 22 53 54 4d 54 20 4e 22 29 3b 0a bjv, "STMT N");.
14020 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
14030 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
14040 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
14050 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
14060 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
14070 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
14080 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
14090 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
140a0 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
140b0 32 5d 2c 20 26 69 29 20 29 20 72 65 74 75 72 6e 2], &i) ) return
140c0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 TCL_ERROR;. Tc
140d0 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
140e0 6e 74 65 72 70 2c 20 0a 20 20 20 20 20 54 63 6c nterp, . Tcl
140f0 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 73 71 _NewStringObj(sq
14100 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 61 6d lite3_bind_param
14110 65 74 65 72 5f 6e 61 6d 65 28 70 53 74 6d 74 2c eter_name(pStmt,
14120 69 29 2c 2d 31 29 0a 20 20 29 3b 0a 20 20 72 65 i),-1). );. re
14130 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
14140 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 /*.** Usage: s
14150 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 61 qlite3_bind_para
14160 6d 65 74 65 72 5f 69 6e 64 65 78 20 20 53 54 4d meter_index STM
14170 54 20 20 4e 41 4d 45 0a 2a 2a 0a 2a 2a 20 52 65 T NAME.**.** Re
14180 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 6f turn the index o
14190 66 20 74 68 65 20 77 69 6c 64 63 61 72 64 20 63 f the wildcard c
141a0 61 6c 6c 65 64 20 4e 41 4d 45 2e 20 20 52 65 74 alled NAME. Ret
141b0 75 72 6e 20 30 20 69 66 20 74 68 65 72 65 20 69 urn 0 if there i
141c0 73 0a 2a 2a 20 6e 6f 20 73 75 63 68 20 77 69 6c s.** no such wil
141d0 64 63 61 72 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 dcard..*/.static
141e0 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 70 int test_bind_p
141f0 61 72 61 6d 65 74 65 72 5f 69 6e 64 65 78 28 0a arameter_index(.
14200 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
14210 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
14220 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
14230 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
14240 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
14250 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 {. sqlite3_stmt
14260 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 66 28 20 *pStmt;.. if(
14270 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 objc!=3 ){. T
14280 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
14290 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
142a0 20 22 53 54 4d 54 20 4e 41 4d 45 22 29 3b 0a 20 "STMT NAME");.
142b0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
142c0 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
142d0 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e etStmtPointer(in
142e0 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
142f0 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 ing(objv[1]), &p
14300 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 Stmt) ) return T
14310 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f CL_ERROR;. Tcl_
14320 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
14330 65 72 70 2c 20 0a 20 20 20 20 20 54 63 6c 5f 4e erp, . Tcl_N
14340 65 77 49 6e 74 4f 62 6a 28 0a 20 20 20 20 20 20 ewIntObj(.
14350 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 sqlite3_bind_pa
14360 72 61 6d 65 74 65 72 5f 69 6e 64 65 78 28 70 53 rameter_index(pS
14370 74 6d 74 2c 54 63 6c 5f 47 65 74 53 74 72 69 6e tmt,Tcl_GetStrin
14380 67 28 6f 62 6a 76 5b 32 5d 29 29 0a 20 20 20 20 g(objv[2])).
14390 20 29 0a 20 20 29 3b 0a 20 20 72 65 74 75 72 6e ). );. return
143a0 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
143b0 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 * Usage: sqlit
143c0 65 33 5f 63 6c 65 61 72 5f 62 69 6e 64 69 6e 67 e3_clear_binding
143d0 73 20 53 54 4d 54 0a 2a 2a 0a 2a 2f 0a 73 74 61 s STMT.**.*/.sta
143e0 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6c 65 tic int test_cle
143f0 61 72 5f 62 69 6e 64 69 6e 67 73 28 0a 20 20 76 ar_bindings(. v
14400 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
14410 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
14420 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
14430 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
14440 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
14450 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
14460 53 74 6d 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a Stmt;.. if( obj
14470 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
14480 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
14490 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 erp, 1, objv, "S
144a0 54 4d 54 22 29 3b 0a 20 20 20 20 72 65 74 75 72 TMT");. retur
144b0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
144c0 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f . if( getStmtPo
144d0 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
144e0 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
144f0 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 [1]), &pStmt) )
14500 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
14510 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. Tcl_SetObjRe
14520 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
14530 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 _NewIntObj(sqlit
14540 65 33 5f 63 6c 65 61 72 5f 62 69 6e 64 69 6e 67 e3_clear_binding
14550 73 28 70 53 74 6d 74 29 29 29 3b 0a 20 20 72 65 s(pStmt)));. re
14560 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
14570 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 /*.** Usage: s
14580 71 6c 69 74 65 33 5f 73 6c 65 65 70 20 4d 49 4c qlite3_sleep MIL
14590 4c 49 53 45 43 4f 4e 44 53 0a 2a 2f 0a 73 74 61 LISECONDS.*/.sta
145a0 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 6c 65 tic int test_sle
145b0 65 70 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 ep(. void * cli
145c0 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
145d0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
145e0 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
145f0 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
14600 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 6d 73 3b 0a [].){. int ms;.
14610 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 . if( objc!=2 )
14620 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
14630 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
14640 2c 20 6f 62 6a 76 2c 20 22 4d 49 4c 4c 49 53 45 , objv, "MILLISE
14650 43 4f 4e 44 53 22 29 3b 0a 20 20 20 20 72 65 74 CONDS");. ret
14660 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
14670 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 }. if( Tcl_Get
14680 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
14690 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 6d 73 29 p, objv[1], &ms)
146a0 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
146b0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
146c0 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
146d0 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
146e0 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f 73 IntObj(sqlite3_s
146f0 6c 65 65 70 28 6d 73 29 29 29 3b 0a 20 20 72 65 leep(ms)));. re
14700 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
14710 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c /*.** Usage: sql
14720 69 74 65 33 5f 65 72 72 63 6f 64 65 20 44 42 0a ite3_errcode DB.
14730 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 **.** Return the
14740 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e string represen
14750 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6d 6f tation of the mo
14760 73 74 20 72 65 63 65 6e 74 20 73 71 6c 69 74 65 st recent sqlite
14770 33 5f 2a 20 41 50 49 0a 2a 2a 20 65 72 72 6f 72 3_* API.** error
14780 20 63 6f 64 65 2e 20 65 2e 67 2e 20 22 53 51 4c code. e.g. "SQL
14790 49 54 45 5f 45 52 52 4f 52 22 2e 0a 2a 2f 0a 73 ITE_ERROR"..*/.s
147a0 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 tatic int test_e
147b0 72 72 63 6f 64 65 28 0a 20 20 76 6f 69 64 20 2a rrcode(. void *
147c0 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
147d0 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
147e0 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
147f0 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
14800 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
14810 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 te3 *db;. int r
14820 63 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33 c;. char zBuf[3
14830 30 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 0];.. if( objc!
14840 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
14850 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
14860 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
14870 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
14880 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
14890 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
148a0 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 " DB", 0);.
148b0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
148c0 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 ;. }. if( getD
148d0 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c bPointer(interp,
148e0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
148f0 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 bjv[1]), &db) )
14900 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
14910 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
14920 5f 65 72 72 63 6f 64 65 28 64 62 29 3b 0a 20 20 _errcode(db);.
14930 69 66 28 20 28 72 63 26 30 78 66 66 29 3d 3d 72 if( (rc&0xff)==r
14940 63 20 29 7b 0a 20 20 20 20 7a 42 75 66 5b 30 5d c ){. zBuf[0]
14950 20 3d 20 30 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 = 0;. }else{.
14960 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c sprintf(zBuf,
14970 22 2b 25 64 22 2c 20 72 63 3e 3e 38 29 3b 0a 20 "+%d", rc>>8);.
14980 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 }. Tcl_AppendR
14990 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 esult(interp, (c
149a0 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d har *)t1ErrorNam
149b0 65 28 72 63 29 2c 20 7a 42 75 66 2c 20 30 29 3b e(rc), zBuf, 0);
149c0 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
149d0 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
149e0 3a 20 20 20 74 65 73 74 5f 65 72 72 6d 73 67 20 : test_errmsg
149f0 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 DB.**.** Returns
14a00 20 74 68 65 20 55 54 46 2d 38 20 72 65 70 72 65 the UTF-8 repre
14a10 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 sentation of the
14a20 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 73 error message s
14a30 74 72 69 6e 67 20 66 6f 72 20 74 68 65 0a 2a 2a tring for the.**
14a40 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 73 71 6c most recent sql
14a50 69 74 65 33 5f 2a 20 41 50 49 20 63 61 6c 6c 2e ite3_* API call.
14a60 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
14a70 65 73 74 5f 65 72 72 6d 73 67 28 0a 20 20 76 6f est_errmsg(. vo
14a80 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
14a90 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
14aa0 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
14ab0 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
14ac0 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
14ad0 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 sqlite3 *db;. c
14ae0 6f 6e 73 74 20 63 68 61 72 20 2a 7a 45 72 72 3b onst char *zErr;
14af0 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 .. if( objc!=2
14b00 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
14b10 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
14b20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
14b30 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 hould be \"", .
14b40 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
14b50 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 ing(objv[0]), "
14b60 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 DB", 0);. ret
14b70 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
14b80 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
14b90 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
14ba0 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
14bb0 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 [1]), &db) ) ret
14bc0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a urn TCL_ERROR;..
14bd0 20 20 7a 45 72 72 20 3d 20 73 71 6c 69 74 65 33 zErr = sqlite3
14be0 5f 65 72 72 6d 73 67 28 64 62 29 3b 0a 20 20 54 _errmsg(db);. T
14bf0 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
14c00 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53 interp, Tcl_NewS
14c10 74 72 69 6e 67 4f 62 6a 28 7a 45 72 72 2c 20 2d tringObj(zErr, -
14c20 31 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 1));. return TC
14c30 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
14c40 73 61 67 65 3a 20 20 20 74 65 73 74 5f 65 72 72 sage: test_err
14c50 6d 73 67 31 36 20 44 42 0a 2a 2a 0a 2a 2a 20 52 msg16 DB.**.** R
14c60 65 74 75 72 6e 73 20 74 68 65 20 55 54 46 2d 31 eturns the UTF-1
14c70 36 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 6 representation
14c80 20 6f 66 20 74 68 65 20 65 72 72 6f 72 20 6d 65 of the error me
14c90 73 73 61 67 65 20 73 74 72 69 6e 67 20 66 6f 72 ssage string for
14ca0 20 74 68 65 0a 2a 2a 20 6d 6f 73 74 20 72 65 63 the.** most rec
14cb0 65 6e 74 20 73 71 6c 69 74 65 33 5f 2a 20 41 50 ent sqlite3_* AP
14cc0 49 20 63 61 6c 6c 2e 20 54 68 69 73 20 69 73 20 I call. This is
14cd0 61 20 62 79 74 65 20 61 72 72 61 79 20 6f 62 6a a byte array obj
14ce0 65 63 74 20 61 74 20 74 68 65 20 54 43 4c 20 0a ect at the TCL .
14cf0 2a 2a 20 6c 65 76 65 6c 2c 20 61 6e 64 20 69 74 ** level, and it
14d00 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 30 78 includes the 0x
14d10 30 30 20 30 78 30 30 20 74 65 72 6d 69 6e 61 74 00 0x00 terminat
14d20 6f 72 20 62 79 74 65 73 20 61 74 20 74 68 65 20 or bytes at the
14d30 65 6e 64 20 6f 66 20 74 68 65 0a 2a 2a 20 55 54 end of the.** UT
14d40 46 2d 31 36 20 73 74 72 69 6e 67 2e 0a 2a 2f 0a F-16 string..*/.
14d50 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
14d60 65 72 72 6d 73 67 31 36 28 0a 20 20 76 6f 69 64 errmsg16(. void
14d70 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
14d80 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
14d90 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
14da0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
14db0 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e T objv[].){.#ifn
14dc0 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
14dd0 55 54 46 31 36 0a 20 20 73 71 6c 69 74 65 33 20 UTF16. sqlite3
14de0 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 *db;. const voi
14df0 64 20 2a 7a 45 72 72 3b 0a 20 20 69 6e 74 20 62 d *zErr;. int b
14e00 79 74 65 73 20 3d 20 30 3b 0a 0a 20 20 69 66 28 ytes = 0;.. if(
14e10 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
14e20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
14e30 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
14e40 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
14e50 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 e \"", . T
14e60 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
14e70 76 5b 30 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 v[0]), " DB", 0)
14e80 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
14e90 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
14ea0 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
14eb0 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
14ec0 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
14ed0 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
14ee0 5f 45 52 52 4f 52 3b 0a 0a 20 20 7a 45 72 72 20 _ERROR;.. zErr
14ef0 3d 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 = sqlite3_errmsg
14f00 31 36 28 64 62 29 3b 0a 20 20 69 66 28 20 7a 45 16(db);. if( zE
14f10 72 72 20 29 7b 0a 20 20 20 20 62 79 74 65 73 20 rr ){. bytes
14f20 3d 20 73 71 6c 69 74 65 33 55 74 66 31 36 42 79 = sqlite3Utf16By
14f30 74 65 4c 65 6e 28 7a 45 72 72 2c 20 2d 31 29 3b teLen(zErr, -1);
14f40 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 . }. Tcl_SetOb
14f50 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
14f60 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 Tcl_NewByteArray
14f70 4f 62 6a 28 7a 45 72 72 2c 20 62 79 74 65 73 29 Obj(zErr, bytes)
14f80 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c );.#endif /* SQL
14f90 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 2a ITE_OMIT_UTF16 *
14fa0 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f /. return TCL_O
14fb0 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
14fc0 65 3a 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 e: sqlite3_prepa
14fd0 72 65 20 44 42 20 73 71 6c 20 62 79 74 65 73 20 re DB sql bytes
14fe0 74 61 69 6c 76 61 72 0a 2a 2a 0a 2a 2a 20 43 6f tailvar.**.** Co
14ff0 6d 70 69 6c 65 20 75 70 20 74 6f 20 3c 62 79 74 mpile up to <byt
15000 65 73 3e 20 62 79 74 65 73 20 6f 66 20 74 68 65 es> bytes of the
15010 20 73 75 70 70 6c 69 65 64 20 53 51 4c 20 73 74 supplied SQL st
15020 72 69 6e 67 20 3c 73 71 6c 3e 20 75 73 69 6e 67 ring <sql> using
15030 0a 2a 2a 20 64 61 74 61 62 61 73 65 20 68 61 6e .** database han
15040 64 6c 65 20 3c 44 42 3e 2e 20 54 68 65 20 70 61 dle <DB>. The pa
15050 72 61 6d 65 74 65 72 20 3c 74 61 69 6c 76 61 6c rameter <tailval
15060 3e 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 > is the name of
15070 20 61 20 67 6c 6f 62 61 6c 0a 2a 2a 20 76 61 72 a global.** var
15080 69 61 62 6c 65 20 74 68 61 74 20 69 73 20 73 65 iable that is se
15090 74 20 74 6f 20 74 68 65 20 75 6e 75 73 65 64 20 t to the unused
150a0 70 6f 72 74 69 6f 6e 20 6f 66 20 3c 73 71 6c 3e portion of <sql>
150b0 20 28 69 66 20 61 6e 79 29 2e 20 41 0a 2a 2a 20 (if any). A.**
150c0 53 54 4d 54 20 68 61 6e 64 6c 65 20 69 73 20 72 STMT handle is r
150d0 65 74 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 eturned..*/.stat
150e0 69 63 20 69 6e 74 20 74 65 73 74 5f 70 72 65 70 ic int test_prep
150f0 61 72 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c are(. void * cl
15100 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
15110 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
15120 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
15130 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
15140 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
15150 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 *db;. const ch
15160 61 72 20 2a 7a 53 71 6c 3b 0a 20 20 69 6e 74 20 ar *zSql;. int
15170 62 79 74 65 73 3b 0a 20 20 63 6f 6e 73 74 20 63 bytes;. const c
15180 68 61 72 20 2a 7a 54 61 69 6c 20 3d 20 30 3b 0a har *zTail = 0;.
15190 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
151a0 70 53 74 6d 74 20 3d 20 30 3b 0a 20 20 63 68 61 pStmt = 0;. cha
151b0 72 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 69 6e r zBuf[50];. in
151c0 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a t rc;.. if( obj
151d0 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=5 ){. Tcl_
151e0 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
151f0 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
15200 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
15210 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 ", . Tcl_G
15220 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d etString(objv[0]
15230 29 2c 20 22 20 44 42 20 73 71 6c 20 62 79 74 65 ), " DB sql byte
15240 73 20 74 61 69 6c 76 61 72 22 2c 20 30 29 3b 0a s tailvar", 0);.
15250 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
15260 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
15270 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
15280 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
15290 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
152a0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
152b0 52 52 4f 52 3b 0a 20 20 7a 53 71 6c 20 3d 20 54 RROR;. zSql = T
152c0 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
152d0 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20 54 63 6c v[2]);. if( Tcl
152e0 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
152f0 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 nterp, objv[3],
15300 26 62 79 74 65 73 29 20 29 20 72 65 74 75 72 6e &bytes) ) return
15310 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 TCL_ERROR;.. r
15320 63 20 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 70 c = sqlite3_prep
15330 61 72 65 28 64 62 2c 20 7a 53 71 6c 2c 20 62 79 are(db, zSql, by
15340 74 65 73 2c 20 26 70 53 74 6d 74 2c 20 26 7a 54 tes, &pStmt, &zT
15350 61 69 6c 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 ail);. if( sqli
15360 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 te3TestErrCode(i
15370 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 nterp, db, rc) )
15380 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
15390 52 3b 0a 20 20 69 66 28 20 7a 54 61 69 6c 20 29 R;. if( zTail )
153a0 7b 0a 20 20 20 20 69 66 28 20 62 79 74 65 73 3e {. if( bytes>
153b0 3d 30 20 29 7b 0a 20 20 20 20 20 20 62 79 74 65 =0 ){. byte
153c0 73 20 3d 20 62 79 74 65 73 20 2d 20 28 7a 54 61 s = bytes - (zTa
153d0 69 6c 2d 7a 53 71 6c 29 3b 0a 20 20 20 20 7d 0a il-zSql);. }.
153e0 20 20 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 Tcl_ObjSetVa
153f0 72 32 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b r2(interp, objv[
15400 34 5d 2c 20 30 2c 20 54 63 6c 5f 4e 65 77 53 74 4], 0, Tcl_NewSt
15410 72 69 6e 67 4f 62 6a 28 7a 54 61 69 6c 2c 20 62 ringObj(zTail, b
15420 79 74 65 73 29 2c 20 30 29 3b 0a 20 20 7d 0a 20 ytes), 0);. }.
15430 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f if( rc!=SQLITE_
15440 4f 4b 20 29 7b 0a 20 20 20 20 61 73 73 65 72 74 OK ){. assert
15450 28 20 70 53 74 6d 74 3d 3d 30 20 29 3b 0a 20 20 ( pStmt==0 );.
15460 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 sprintf(zBuf,
15470 22 28 25 64 29 20 22 2c 20 72 63 29 3b 0a 20 20 "(%d) ", rc);.
15480 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
15490 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c lt(interp, zBuf,
154a0 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 sqlite3_errmsg(
154b0 64 62 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 db), 0);. ret
154c0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
154d0 20 7d 0a 0a 20 20 69 66 28 20 70 53 74 6d 74 20 }.. if( pStmt
154e0 29 7b 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74 ){. if( sqlit
154f0 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 e3TestMakePointe
15500 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 rStr(interp, zBu
15510 66 2c 20 70 53 74 6d 74 29 20 29 20 72 65 74 75 f, pStmt) ) retu
15520 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
15530 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
15540 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c lt(interp, zBuf,
15550 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 0);. }. retur
15560 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
15570 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
15580 33 5f 70 72 65 70 61 72 65 5f 76 32 20 44 42 20 3_prepare_v2 DB
15590 73 71 6c 20 62 79 74 65 73 20 74 61 69 6c 76 61 sql bytes tailva
155a0 72 0a 2a 2a 0a 2a 2a 20 43 6f 6d 70 69 6c 65 20 r.**.** Compile
155b0 75 70 20 74 6f 20 3c 62 79 74 65 73 3e 20 62 79 up to <bytes> by
155c0 74 65 73 20 6f 66 20 74 68 65 20 73 75 70 70 6c tes of the suppl
155d0 69 65 64 20 53 51 4c 20 73 74 72 69 6e 67 20 3c ied SQL string <
155e0 73 71 6c 3e 20 75 73 69 6e 67 0a 2a 2a 20 64 61 sql> using.** da
155f0 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 3c 44 tabase handle <D
15600 42 3e 2e 20 54 68 65 20 70 61 72 61 6d 65 74 65 B>. The paramete
15610 72 20 3c 74 61 69 6c 76 61 6c 3e 20 69 73 20 74 r <tailval> is t
15620 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 67 6c 6f he name of a glo
15630 62 61 6c 0a 2a 2a 20 76 61 72 69 61 62 6c 65 20 bal.** variable
15640 74 68 61 74 20 69 73 20 73 65 74 20 74 6f 20 74 that is set to t
15650 68 65 20 75 6e 75 73 65 64 20 70 6f 72 74 69 6f he unused portio
15660 6e 20 6f 66 20 3c 73 71 6c 3e 20 28 69 66 20 61 n of <sql> (if a
15670 6e 79 29 2e 20 41 0a 2a 2a 20 53 54 4d 54 20 68 ny). A.** STMT h
15680 61 6e 64 6c 65 20 69 73 20 72 65 74 75 72 6e 65 andle is returne
15690 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 d..*/.static int
156a0 20 74 65 73 74 5f 70 72 65 70 61 72 65 5f 76 32 test_prepare_v2
156b0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
156c0 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
156d0 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
156e0 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
156f0 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
15700 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
15710 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 b;. const char
15720 2a 7a 53 71 6c 3b 0a 20 20 69 6e 74 20 62 79 74 *zSql;. int byt
15730 65 73 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 es;. const char
15740 20 2a 7a 54 61 69 6c 20 3d 20 30 3b 0a 20 20 73 *zTail = 0;. s
15750 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
15760 6d 74 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a mt = 0;. char z
15770 42 75 66 5b 35 30 5d 3b 0a 20 20 69 6e 74 20 72 Buf[50];. int r
15780 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d c;.. if( objc!=
15790 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 5 ){. Tcl_App
157a0 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
157b0 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
157c0 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
157d0 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 . Tcl_GetS
157e0 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 tring(objv[0]),
157f0 22 20 44 42 20 73 71 6c 20 62 79 74 65 73 20 74 " DB sql bytes t
15800 61 69 6c 76 61 72 22 2c 20 30 29 3b 0a 20 20 20 ailvar", 0);.
15810 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
15820 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
15830 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
15840 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
15850 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 objv[1]), &db) )
15860 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
15870 52 3b 0a 20 20 7a 53 71 6c 20 3d 20 54 63 6c 5f R;. zSql = Tcl_
15880 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 GetString(objv[2
15890 5d 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 ]);. if( Tcl_Ge
158a0 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
158b0 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 62 79 rp, objv[3], &by
158c0 74 65 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 tes) ) return TC
158d0 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d L_ERROR;.. rc =
158e0 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 sqlite3_prepare
158f0 5f 76 32 28 64 62 2c 20 7a 53 71 6c 2c 20 62 79 _v2(db, zSql, by
15900 74 65 73 2c 20 26 70 53 74 6d 74 2c 20 26 7a 54 tes, &pStmt, &zT
15910 61 69 6c 29 3b 0a 20 20 61 73 73 65 72 74 28 72 ail);. assert(r
15920 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 7c 7c 20 c==SQLITE_OK ||
15930 70 53 74 6d 74 3d 3d 30 29 3b 0a 20 20 69 66 28 pStmt==0);. if(
15940 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 sqlite3TestErrC
15950 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 ode(interp, db,
15960 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c rc) ) return TCL
15970 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 7a 54 _ERROR;. if( zT
15980 61 69 6c 20 29 7b 0a 20 20 20 20 69 66 28 20 62 ail ){. if( b
15990 79 74 65 73 3e 3d 30 20 29 7b 0a 20 20 20 20 20 ytes>=0 ){.
159a0 20 62 79 74 65 73 20 3d 20 62 79 74 65 73 20 2d bytes = bytes -
159b0 20 28 7a 54 61 69 6c 2d 7a 53 71 6c 29 3b 0a 20 (zTail-zSql);.
159c0 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 4f 62 6a }. Tcl_Obj
159d0 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 SetVar2(interp,
159e0 6f 62 6a 76 5b 34 5d 2c 20 30 2c 20 54 63 6c 5f objv[4], 0, Tcl_
159f0 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 54 61 NewStringObj(zTa
15a00 69 6c 2c 20 62 79 74 65 73 29 2c 20 30 29 3b 0a il, bytes), 0);.
15a10 20 20 7d 0a 20 20 69 66 28 20 72 63 21 3d 53 51 }. if( rc!=SQ
15a20 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 61 LITE_OK ){. a
15a30 73 73 65 72 74 28 20 70 53 74 6d 74 3d 3d 30 20 ssert( pStmt==0
15a40 29 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 7a );. sprintf(z
15a50 42 75 66 2c 20 22 28 25 64 29 20 22 2c 20 72 63 Buf, "(%d) ", rc
15a60 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e );. Tcl_Appen
15a70 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
15a80 7a 42 75 66 2c 20 73 71 6c 69 74 65 33 5f 65 72 zBuf, sqlite3_er
15a90 72 6d 73 67 28 64 62 29 2c 20 30 29 3b 0a 20 20 rmsg(db), 0);.
15aa0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
15ab0 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 70 OR;. }.. if( p
15ac0 53 74 6d 74 20 29 7b 0a 20 20 20 20 69 66 28 20 Stmt ){. if(
15ad0 73 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 50 sqlite3TestMakeP
15ae0 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 ointerStr(interp
15af0 2c 20 7a 42 75 66 2c 20 70 53 74 6d 74 29 20 29 , zBuf, pStmt) )
15b00 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
15b10 52 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e R;. Tcl_Appen
15b20 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
15b30 7a 42 75 66 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 zBuf, 0);. }.
15b40 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
15b50 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 ../*.** Usage: s
15b60 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 qlite3_prepare16
15b70 20 44 42 20 73 71 6c 20 62 79 74 65 73 20 74 61 DB sql bytes ta
15b80 69 6c 76 61 72 0a 2a 2a 0a 2a 2a 20 43 6f 6d 70 ilvar.**.** Comp
15b90 69 6c 65 20 75 70 20 74 6f 20 3c 62 79 74 65 73 ile up to <bytes
15ba0 3e 20 62 79 74 65 73 20 6f 66 20 74 68 65 20 73 > bytes of the s
15bb0 75 70 70 6c 69 65 64 20 53 51 4c 20 73 74 72 69 upplied SQL stri
15bc0 6e 67 20 3c 73 71 6c 3e 20 75 73 69 6e 67 0a 2a ng <sql> using.*
15bd0 2a 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c * database handl
15be0 65 20 3c 44 42 3e 2e 20 54 68 65 20 70 61 72 61 e <DB>. The para
15bf0 6d 65 74 65 72 20 3c 74 61 69 6c 76 61 6c 3e 20 meter <tailval>
15c00 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 is the name of a
15c10 20 67 6c 6f 62 61 6c 0a 2a 2a 20 76 61 72 69 61 global.** varia
15c20 62 6c 65 20 74 68 61 74 20 69 73 20 73 65 74 20 ble that is set
15c30 74 6f 20 74 68 65 20 75 6e 75 73 65 64 20 70 6f to the unused po
15c40 72 74 69 6f 6e 20 6f 66 20 3c 73 71 6c 3e 20 28 rtion of <sql> (
15c50 69 66 20 61 6e 79 29 2e 20 41 0a 2a 2a 20 53 54 if any). A.** ST
15c60 4d 54 20 68 61 6e 64 6c 65 20 69 73 20 72 65 74 MT handle is ret
15c70 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 urned..*/.static
15c80 20 69 6e 74 20 74 65 73 74 5f 70 72 65 70 61 72 int test_prepar
15c90 65 31 36 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c e16(. void * cl
15ca0 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
15cb0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
15cc0 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
15cd0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
15ce0 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 v[].){.#ifndef S
15cf0 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 QLITE_OMIT_UTF16
15d00 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
15d10 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 53 const void *zS
15d20 71 6c 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 ql;. const void
15d30 20 2a 7a 54 61 69 6c 20 3d 20 30 3b 0a 20 20 54 *zTail = 0;. T
15d40 63 6c 5f 4f 62 6a 20 2a 70 54 61 69 6c 20 3d 20 cl_Obj *pTail =
15d50 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 0;. sqlite3_stm
15d60 74 20 2a 70 53 74 6d 74 20 3d 20 30 3b 0a 20 20 t *pStmt = 0;.
15d70 63 68 61 72 20 7a 42 75 66 5b 35 30 5d 3b 20 0a char zBuf[50]; .
15d80 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 int rc;. int
15d90 62 79 74 65 73 3b 20 20 20 20 20 20 20 20 20 20 bytes;
15da0 20 20 20 20 20 20 2f 2a 20 54 68 65 20 69 6e 74 /* The int
15db0 65 67 65 72 20 73 70 65 63 69 66 69 65 64 20 61 eger specified a
15dc0 73 20 61 72 67 20 33 20 2a 2f 0a 20 20 69 6e 74 s arg 3 */. int
15dd0 20 6f 62 6a 6c 65 6e 3b 20 20 20 20 20 20 20 20 objlen;
15de0 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 62 79 /* The by
15df0 74 65 2d 61 72 72 61 79 20 6c 65 6e 67 74 68 20 te-array length
15e00 6f 66 20 61 72 67 20 32 20 2a 2f 0a 0a 20 20 69 of arg 2 */.. i
15e10 66 28 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 f( objc!=5 ){.
15e20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
15e30 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
15e40 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
15e50 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 be \"", .
15e60 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
15e70 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 20 73 71 bjv[0]), " DB sq
15e80 6c 20 62 79 74 65 73 20 74 61 69 6c 76 61 72 22 l bytes tailvar"
15e90 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
15ea0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
15eb0 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
15ec0 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
15ed0 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
15ee0 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ), &db) ) return
15ef0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 53 TCL_ERROR;. zS
15f00 71 6c 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 ql = Tcl_GetByte
15f10 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a ArrayFromObj(obj
15f20 76 5b 32 5d 2c 20 26 6f 62 6a 6c 65 6e 29 3b 0a v[2], &objlen);.
15f30 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
15f40 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
15f50 6f 62 6a 76 5b 33 5d 2c 20 26 62 79 74 65 73 29 objv[3], &bytes)
15f60 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
15f70 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c ROR;.. rc = sql
15f80 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 28 64 ite3_prepare16(d
15f90 62 2c 20 7a 53 71 6c 2c 20 62 79 74 65 73 2c 20 b, zSql, bytes,
15fa0 26 70 53 74 6d 74 2c 20 26 7a 54 61 69 6c 29 3b &pStmt, &zTail);
15fb0 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 . if( sqlite3Te
15fc0 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 stErrCode(interp
15fd0 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 , db, rc) ) retu
15fe0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
15ff0 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 72 65 if( rc ){. re
16000 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
16010 20 20 7d 0a 0a 20 20 69 66 28 20 7a 54 61 69 6c }.. if( zTail
16020 20 29 7b 0a 20 20 20 20 6f 62 6a 6c 65 6e 20 3d ){. objlen =
16030 20 6f 62 6a 6c 65 6e 20 2d 20 28 28 75 38 20 2a objlen - ((u8 *
16040 29 7a 54 61 69 6c 2d 28 75 38 20 2a 29 7a 53 71 )zTail-(u8 *)zSq
16050 6c 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 l);. }else{.
16060 20 6f 62 6a 6c 65 6e 20 3d 20 30 3b 0a 20 20 7d objlen = 0;. }
16070 0a 20 20 70 54 61 69 6c 20 3d 20 54 63 6c 5f 4e . pTail = Tcl_N
16080 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28 28 ewByteArrayObj((
16090 75 38 20 2a 29 7a 54 61 69 6c 2c 20 6f 62 6a 6c u8 *)zTail, objl
160a0 65 6e 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 en);. Tcl_IncrR
160b0 65 66 43 6f 75 6e 74 28 70 54 61 69 6c 29 3b 0a efCount(pTail);.
160c0 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 72 32 Tcl_ObjSetVar2
160d0 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 5d (interp, objv[4]
160e0 2c 20 30 2c 20 70 54 61 69 6c 2c 20 30 29 3b 0a , 0, pTail, 0);.
160f0 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
16100 6e 74 28 70 54 61 69 6c 29 3b 0a 0a 20 20 69 66 nt(pTail);.. if
16110 28 20 70 53 74 6d 74 20 29 7b 0a 20 20 20 20 69 ( pStmt ){. i
16120 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 4d 61 f( sqlite3TestMa
16130 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 kePointerStr(int
16140 65 72 70 2c 20 7a 42 75 66 2c 20 70 53 74 6d 74 erp, zBuf, pStmt
16150 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
16160 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f RROR;. }. Tcl_
16170 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
16180 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 23 erp, zBuf, 0);.#
16190 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f endif /* SQLITE_
161a0 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a 20 20 OMIT_UTF16 */.
161b0 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
161c0 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 ../*.** Usage: s
161d0 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 qlite3_prepare16
161e0 5f 76 32 20 44 42 20 73 71 6c 20 62 79 74 65 73 _v2 DB sql bytes
161f0 20 74 61 69 6c 76 61 72 0a 2a 2a 0a 2a 2a 20 43 tailvar.**.** C
16200 6f 6d 70 69 6c 65 20 75 70 20 74 6f 20 3c 62 79 ompile up to <by
16210 74 65 73 3e 20 62 79 74 65 73 20 6f 66 20 74 68 tes> bytes of th
16220 65 20 73 75 70 70 6c 69 65 64 20 53 51 4c 20 73 e supplied SQL s
16230 74 72 69 6e 67 20 3c 73 71 6c 3e 20 75 73 69 6e tring <sql> usin
16240 67 0a 2a 2a 20 64 61 74 61 62 61 73 65 20 68 61 g.** database ha
16250 6e 64 6c 65 20 3c 44 42 3e 2e 20 54 68 65 20 70 ndle <DB>. The p
16260 61 72 61 6d 65 74 65 72 20 3c 74 61 69 6c 76 61 arameter <tailva
16270 6c 3e 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f l> is the name o
16280 66 20 61 20 67 6c 6f 62 61 6c 0a 2a 2a 20 76 61 f a global.** va
16290 72 69 61 62 6c 65 20 74 68 61 74 20 69 73 20 73 riable that is s
162a0 65 74 20 74 6f 20 74 68 65 20 75 6e 75 73 65 64 et to the unused
162b0 20 70 6f 72 74 69 6f 6e 20 6f 66 20 3c 73 71 6c portion of <sql
162c0 3e 20 28 69 66 20 61 6e 79 29 2e 20 41 0a 2a 2a > (if any). A.**
162d0 20 53 54 4d 54 20 68 61 6e 64 6c 65 20 69 73 20 STMT handle is
162e0 72 65 74 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 returned..*/.sta
162f0 74 69 63 20 69 6e 74 20 74 65 73 74 5f 70 72 65 tic int test_pre
16300 70 61 72 65 31 36 5f 76 32 28 0a 20 20 76 6f 69 pare16_v2(. voi
16310 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
16320 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
16330 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
16340 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
16350 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 ST objv[].){.#if
16360 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 ndef SQLITE_OMIT
16370 5f 55 54 46 31 36 0a 20 20 73 71 6c 69 74 65 33 _UTF16. sqlite3
16380 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 76 6f *db;. const vo
16390 69 64 20 2a 7a 53 71 6c 3b 0a 20 20 63 6f 6e 73 id *zSql;. cons
163a0 74 20 76 6f 69 64 20 2a 7a 54 61 69 6c 20 3d 20 t void *zTail =
163b0 30 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 54 0;. Tcl_Obj *pT
163c0 61 69 6c 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 ail = 0;. sqlit
163d0 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 20 3d e3_stmt *pStmt =
163e0 20 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 0;. char zBuf[
163f0 35 30 5d 3b 20 0a 20 20 69 6e 74 20 72 63 3b 0a 50]; . int rc;.
16400 20 20 69 6e 74 20 62 79 74 65 73 3b 20 20 20 20 int bytes;
16410 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
16420 68 65 20 69 6e 74 65 67 65 72 20 73 70 65 63 69 he integer speci
16430 66 69 65 64 20 61 73 20 61 72 67 20 33 20 2a 2f fied as arg 3 */
16440 0a 20 20 69 6e 74 20 6f 62 6a 6c 65 6e 3b 20 20 . int objlen;
16450 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
16460 54 68 65 20 62 79 74 65 2d 61 72 72 61 79 20 6c The byte-array l
16470 65 6e 67 74 68 20 6f 66 20 61 72 67 20 32 20 2a ength of arg 2 *
16480 2f 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 /.. if( objc!=5
16490 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
164a0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
164b0 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
164c0 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a should be \"", .
164d0 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
164e0 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 ring(objv[0]), "
164f0 20 44 42 20 73 71 6c 20 62 79 74 65 73 20 74 61 DB sql bytes ta
16500 69 6c 76 61 72 22 2c 20 30 29 3b 0a 20 20 20 20 ilvar", 0);.
16510 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
16520 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 ;. }. if( getD
16530 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c bPointer(interp,
16540 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
16550 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 bjv[1]), &db) )
16560 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
16570 3b 0a 20 20 7a 53 71 6c 20 3d 20 54 63 6c 5f 47 ;. zSql = Tcl_G
16580 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f etByteArrayFromO
16590 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 6f 62 6a bj(objv[2], &obj
165a0 6c 65 6e 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f len);. if( Tcl_
165b0 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
165c0 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 terp, objv[3], &
165d0 62 79 74 65 73 29 20 29 20 72 65 74 75 72 6e 20 bytes) ) return
165e0 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 TCL_ERROR;.. rc
165f0 20 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 = sqlite3_prepa
16600 72 65 31 36 5f 76 32 28 64 62 2c 20 7a 53 71 6c re16_v2(db, zSql
16610 2c 20 62 79 74 65 73 2c 20 26 70 53 74 6d 74 2c , bytes, &pStmt,
16620 20 26 7a 54 61 69 6c 29 3b 0a 20 20 69 66 28 20 &zTail);. if(
16630 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f sqlite3TestErrCo
16640 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 de(interp, db, r
16650 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f c) ) return TCL_
16660 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 20 ERROR;. if( rc
16670 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 ){. return TC
16680 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
16690 69 66 28 20 7a 54 61 69 6c 20 29 7b 0a 20 20 20 if( zTail ){.
166a0 20 6f 62 6a 6c 65 6e 20 3d 20 6f 62 6a 6c 65 6e objlen = objlen
166b0 20 2d 20 28 28 75 38 20 2a 29 7a 54 61 69 6c 2d - ((u8 *)zTail-
166c0 28 75 38 20 2a 29 7a 53 71 6c 29 3b 0a 20 20 7d (u8 *)zSql);. }
166d0 65 6c 73 65 7b 0a 20 20 20 20 6f 62 6a 6c 65 6e else{. objlen
166e0 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 70 54 61 69 = 0;. }. pTai
166f0 6c 20 3d 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 l = Tcl_NewByteA
16700 72 72 61 79 4f 62 6a 28 28 75 38 20 2a 29 7a 54 rrayObj((u8 *)zT
16710 61 69 6c 2c 20 6f 62 6a 6c 65 6e 29 3b 0a 20 20 ail, objlen);.
16720 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
16730 28 70 54 61 69 6c 29 3b 0a 20 20 54 63 6c 5f 4f (pTail);. Tcl_O
16740 62 6a 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 bjSetVar2(interp
16750 2c 20 6f 62 6a 76 5b 34 5d 2c 20 30 2c 20 70 54 , objv[4], 0, pT
16760 61 69 6c 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 44 ail, 0);. Tcl_D
16770 65 63 72 52 65 66 43 6f 75 6e 74 28 70 54 61 69 ecrRefCount(pTai
16780 6c 29 3b 0a 0a 20 20 69 66 28 20 70 53 74 6d 74 l);.. if( pStmt
16790 20 29 7b 0a 20 20 20 20 69 66 28 20 73 71 6c 69 ){. if( sqli
167a0 74 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 te3TestMakePoint
167b0 65 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 erStr(interp, zB
167c0 75 66 2c 20 70 53 74 6d 74 29 20 29 20 72 65 74 uf, pStmt) ) ret
167d0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
167e0 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 }. Tcl_AppendR
167f0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 esult(interp, zB
16800 75 66 2c 20 30 29 3b 0a 23 65 6e 64 69 66 20 2f uf, 0);.#endif /
16810 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 * SQLITE_OMIT_UT
16820 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 F16 */. return
16830 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
16840 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
16850 6f 70 65 6e 20 66 69 6c 65 6e 61 6d 65 20 3f 6f open filename ?o
16860 70 74 69 6f 6e 73 2d 6c 69 73 74 3f 0a 2a 2f 0a ptions-list?.*/.
16870 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
16880 6f 70 65 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63 open(. void * c
16890 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
168a0 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
168b0 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
168c0 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
168d0 6a 76 5b 5d 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 jv[].){. const
168e0 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 3b char *zFilename;
168f0 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
16900 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 int rc;. char
16910 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 0a 20 20 69 zBuf[100];.. i
16920 66 28 20 6f 62 6a 63 21 3d 33 20 26 26 20 6f 62 f( objc!=3 && ob
16930 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
16940 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
16950 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
16960 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
16970 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
16980 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
16990 5d 29 2c 20 22 20 66 69 6c 65 6e 61 6d 65 20 6f ]), " filename o
169a0 70 74 69 6f 6e 73 2d 6c 69 73 74 22 2c 20 30 29 ptions-list", 0)
169b0 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
169c0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 7a _ERROR;. }.. z
169d0 46 69 6c 65 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 Filename = Tcl_G
169e0 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
169f0 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 );. rc = sqlite
16a00 33 5f 6f 70 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 3_open(zFilename
16a10 2c 20 26 64 62 29 3b 0a 20 20 0a 20 20 69 66 28 , &db);. . if(
16a20 20 73 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 sqlite3TestMake
16a30 50 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 PointerStr(inter
16a40 70 2c 20 7a 42 75 66 2c 20 64 62 29 20 29 20 72 p, zBuf, db) ) r
16a50 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
16a60 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 . Tcl_AppendRes
16a70 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 ult(interp, zBuf
16a80 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 , 0);. return T
16a90 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
16aa0 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 6f Usage: sqlite3_o
16ab0 70 65 6e 31 36 20 66 69 6c 65 6e 61 6d 65 20 6f pen16 filename o
16ac0 70 74 69 6f 6e 73 0a 2a 2f 0a 73 74 61 74 69 63 ptions.*/.static
16ad0 20 69 6e 74 20 74 65 73 74 5f 6f 70 65 6e 31 36 int test_open16
16ae0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
16af0 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
16b00 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
16b10 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
16b20 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
16b30 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 .){.#ifndef SQLI
16b40 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 TE_OMIT_UTF16.
16b50 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 46 69 6c const void *zFil
16b60 65 6e 61 6d 65 3b 0a 20 20 73 71 6c 69 74 65 33 ename;. sqlite3
16b70 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a *db;. int rc;.
16b80 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30 5d char zBuf[100]
16b90 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 ;.. if( objc!=3
16ba0 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
16bb0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
16bc0 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
16bd0 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a should be \"", .
16be0 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
16bf0 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 ring(objv[0]), "
16c00 20 66 69 6c 65 6e 61 6d 65 20 6f 70 74 69 6f 6e filename option
16c10 73 2d 6c 69 73 74 22 2c 20 30 29 3b 0a 20 20 20 s-list", 0);.
16c20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
16c30 52 3b 0a 20 20 7d 0a 0a 20 20 7a 46 69 6c 65 6e R;. }.. zFilen
16c40 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 ame = Tcl_GetByt
16c50 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 eArrayFromObj(ob
16c60 6a 76 5b 31 5d 2c 20 30 29 3b 0a 20 20 72 63 20 jv[1], 0);. rc
16c70 3d 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 31 36 = sqlite3_open16
16c80 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 26 64 62 29 (zFilename, &db)
16c90 3b 0a 20 20 0a 20 20 69 66 28 20 73 71 6c 69 74 ;. . if( sqlit
16ca0 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 e3TestMakePointe
16cb0 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 rStr(interp, zBu
16cc0 66 2c 20 64 62 29 20 29 20 72 65 74 75 72 6e 20 f, db) ) return
16cd0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c TCL_ERROR;. Tcl
16ce0 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
16cf0 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a terp, zBuf, 0);.
16d00 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 #endif /* SQLITE
16d10 5f 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a 20 _OMIT_UTF16 */.
16d20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
16d30 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
16d40 73 71 6c 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 sqlite3_complete
16d50 31 36 20 3c 55 54 46 2d 31 36 20 73 74 72 69 6e 16 <UTF-16 strin
16d60 67 3e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 g>.**.** Return
16d70 31 20 69 66 20 74 68 65 20 73 75 70 70 6c 69 65 1 if the supplie
16d80 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 d argument is a
16d90 63 6f 6d 70 6c 65 74 65 20 53 51 4c 20 73 74 61 complete SQL sta
16da0 74 65 6d 65 6e 74 2c 20 6f 72 20 7a 65 72 6f 0a tement, or zero.
16db0 2a 2a 20 6f 74 68 65 72 77 69 73 65 2e 0a 2a 2f ** otherwise..*/
16dc0 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
16dd0 5f 63 6f 6d 70 6c 65 74 65 31 36 28 0a 20 20 76 _complete16(. v
16de0 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
16df0 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
16e00 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
16e10 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
16e20 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 ONST objv[].){.#
16e30 69 66 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 if !defined(SQLI
16e40 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 4c 45 54 45 TE_OMIT_COMPLETE
16e50 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 53 51 ) && !defined(SQ
16e60 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 29 LITE_OMIT_UTF16)
16e70 0a 20 20 63 68 61 72 20 2a 7a 42 75 66 3b 0a 0a . char *zBuf;..
16e80 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b if( objc!=2 ){
16e90 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
16ea0 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
16eb0 20 6f 62 6a 76 2c 20 22 3c 75 74 66 2d 31 36 20 objv, "<utf-16
16ec0 73 71 6c 3e 22 29 3b 0a 20 20 20 20 72 65 74 75 sql>");. retu
16ed0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
16ee0 7d 0a 0a 20 20 7a 42 75 66 20 3d 20 28 63 68 61 }.. zBuf = (cha
16ef0 72 2a 29 54 63 6c 5f 47 65 74 42 79 74 65 41 72 r*)Tcl_GetByteAr
16f00 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b rayFromObj(objv[
16f10 31 5d 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 53 65 1], 0);. Tcl_Se
16f20 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
16f30 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
16f40 28 73 71 6c 69 74 65 33 5f 63 6f 6d 70 6c 65 74 (sqlite3_complet
16f50 65 31 36 28 7a 42 75 66 29 29 29 3b 0a 23 65 6e e16(zBuf)));.#en
16f60 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d dif /* SQLITE_OM
16f70 49 54 5f 43 4f 4d 50 4c 45 54 45 20 26 26 20 53 IT_COMPLETE && S
16f80 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 QLITE_OMIT_UTF16
16f90 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 4c */. return TCL
16fa0 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
16fb0 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 73 74 65 age: sqlite3_ste
16fc0 70 20 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 41 64 76 p STMT.**.** Adv
16fd0 61 6e 63 65 20 74 68 65 20 73 74 61 74 65 6d 65 ance the stateme
16fe0 6e 74 20 74 6f 20 74 68 65 20 6e 65 78 74 20 72 nt to the next r
16ff0 6f 77 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ow..*/.static in
17000 74 20 74 65 73 74 5f 73 74 65 70 28 0a 20 20 76 t test_step(. v
17010 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
17020 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
17030 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
17040 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
17050 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
17060 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
17070 53 74 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a Stmt;. int rc;.
17080 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 . if( objc!=2 )
17090 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
170a0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
170b0 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
170c0 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 ould be \"", .
170d0 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
170e0 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 ng(objv[0]), " S
170f0 54 4d 54 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 TMT", 0);. re
17100 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
17110 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 }.. if( getSt
17120 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
17130 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
17140 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 objv[1]), &pStmt
17150 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
17160 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c RROR;. rc = sql
17170 69 74 65 33 5f 73 74 65 70 28 70 53 74 6d 74 29 ite3_step(pStmt)
17180 3b 0a 0a 20 20 2f 2a 20 69 66 28 20 72 63 21 3d ;.. /* if( rc!=
17190 53 51 4c 49 54 45 5f 44 4f 4e 45 20 26 26 20 72 SQLITE_DONE && r
171a0 63 21 3d 53 51 4c 49 54 45 5f 52 4f 57 20 29 20 c!=SQLITE_ROW )
171b0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
171c0 3b 20 2a 2f 0a 20 20 54 63 6c 5f 53 65 74 52 65 ; */. Tcl_SetRe
171d0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 sult(interp, (ch
171e0 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 ar *)t1ErrorName
171f0 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 65 74 75 (rc), 0);. retu
17200 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
17210 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
17220 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 20 e3_column_count
17230 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 52 65 74 75 STMT .**.** Retu
17240 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 rn the number of
17250 20 63 6f 6c 75 6d 6e 73 20 72 65 74 75 72 6e 65 columns returne
17260 64 20 62 79 20 74 68 65 20 73 71 6c 20 73 74 61 d by the sql sta
17270 74 65 6d 65 6e 74 20 53 54 4d 54 2e 0a 2a 2f 0a tement STMT..*/.
17280 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
17290 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 28 0a 20 20 column_count(.
172a0 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
172b0 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
172c0 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
172d0 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
172e0 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
172f0 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
17300 70 53 74 6d 74 3b 0a 0a 20 20 69 66 28 20 6f 62 pStmt;.. if( ob
17310 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
17320 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
17330 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
17340 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
17350 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
17360 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
17370 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d ]), " STMT colum
17380 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 n", 0);. retu
17390 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
173a0 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }.. if( getStmt
173b0 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
173c0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
173d0 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 jv[1]), &pStmt)
173e0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
173f0 4f 52 3b 0a 0a 20 20 54 63 6c 5f 53 65 74 4f 62 OR;.. Tcl_SetOb
17400 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
17410 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 Tcl_NewIntObj(sq
17420 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 lite3_column_cou
17430 6e 74 28 70 53 74 6d 74 29 29 29 3b 0a 20 20 72 nt(pStmt)));. r
17440 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
17450 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
17460 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 79 70 lite3_column_typ
17470 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a e STMT column.**
17480 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 74 .** Return the t
17490 79 70 65 20 6f 66 20 74 68 65 20 64 61 74 61 20 ype of the data
174a0 69 6e 20 63 6f 6c 75 6d 6e 20 27 63 6f 6c 75 6d in column 'colum
174b0 6e 27 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e n' of the curren
174c0 74 20 72 6f 77 2e 0a 2a 2f 0a 73 74 61 74 69 63 t row..*/.static
174d0 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c 75 6d 6e int test_column
174e0 5f 74 79 70 65 28 0a 20 20 76 6f 69 64 20 2a 20 _type(. void *
174f0 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
17500 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
17510 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
17520 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
17530 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
17540 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
17550 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 69 6e 74 int col;. int
17560 20 74 70 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 tp;.. if( objc
17570 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=3 ){. Tcl_A
17580 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
17590 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
175a0 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
175b0 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 , . Tcl_Ge
175c0 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 tString(objv[0])
175d0 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 , " STMT column"
175e0 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
175f0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
17600 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f . if( getStmtPo
17610 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
17620 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
17630 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 [1]), &pStmt) )
17640 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
17650 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 ;. if( Tcl_GetI
17660 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
17670 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 , objv[2], &col)
17680 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
17690 52 4f 52 3b 0a 0a 20 20 74 70 20 3d 20 73 71 6c ROR;.. tp = sql
176a0 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 79 70 65 ite3_column_type
176b0 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 (pStmt, col);.
176c0 73 77 69 74 63 68 28 20 74 70 20 29 7b 0a 20 20 switch( tp ){.
176d0 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 49 4e case SQLITE_IN
176e0 54 45 47 45 52 3a 20 0a 20 20 20 20 20 20 54 63 TEGER: . Tc
176f0 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
17700 72 70 2c 20 22 49 4e 54 45 47 45 52 22 2c 20 54 rp, "INTEGER", T
17710 43 4c 5f 53 54 41 54 49 43 29 3b 20 0a 20 20 20 CL_STATIC); .
17720 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
17730 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 3a 0a se SQLITE_NULL:.
17740 20 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 Tcl_SetRes
17750 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 55 4c ult(interp, "NUL
17760 4c 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b L", TCL_STATIC);
17770 20 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 . break;.
17780 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 46 case SQLITE_F
17790 4c 4f 41 54 3a 0a 20 20 20 20 20 20 54 63 6c 5f LOAT:. Tcl_
177a0 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
177b0 2c 20 22 46 4c 4f 41 54 22 2c 20 54 43 4c 5f 53 , "FLOAT", TCL_S
177c0 54 41 54 49 43 29 3b 20 0a 20 20 20 20 20 20 62 TATIC); . b
177d0 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
177e0 51 4c 49 54 45 5f 54 45 58 54 3a 0a 20 20 20 20 QLITE_TEXT:.
177f0 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
17800 69 6e 74 65 72 70 2c 20 22 54 45 58 54 22 2c 20 interp, "TEXT",
17810 54 43 4c 5f 53 54 41 54 49 43 29 3b 20 0a 20 20 TCL_STATIC); .
17820 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 break;. c
17830 61 73 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a ase SQLITE_BLOB:
17840 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65 . Tcl_SetRe
17850 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 42 4c sult(interp, "BL
17860 4f 42 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 OB", TCL_STATIC)
17870 3b 20 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a ; . break;.
17880 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 default:.
17890 20 20 20 61 73 73 65 72 74 28 30 29 3b 0a 20 20 assert(0);.
178a0 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f }.. return TCL_
178b0 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
178c0 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 ge: sqlite3_colu
178d0 6d 6e 5f 69 6e 74 36 34 20 53 54 4d 54 20 63 6f mn_int64 STMT co
178e0 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 lumn.**.** Retur
178f0 6e 20 74 68 65 20 64 61 74 61 20 69 6e 20 63 6f n the data in co
17900 6c 75 6d 6e 20 27 63 6f 6c 75 6d 6e 27 20 6f 66 lumn 'column' of
17910 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 6f 77 the current row
17920 20 63 61 73 74 20 61 73 20 61 6e 0a 2a 2a 20 77 cast as an.** w
17930 69 64 65 20 28 36 34 2d 62 69 74 29 20 69 6e 74 ide (64-bit) int
17940 65 67 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 eger..*/.static
17950 69 6e 74 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f int test_column_
17960 69 6e 74 36 34 28 0a 20 20 76 6f 69 64 20 2a 20 int64(. void *
17970 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
17980 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
17990 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
179a0 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
179b0 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
179c0 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
179d0 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 69 36 34 int col;. i64
179e0 20 69 56 61 6c 3b 0a 0a 20 20 69 66 28 20 6f 62 iVal;.. if( ob
179f0 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c jc!=3 ){. Tcl
17a00 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
17a10 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
17a20 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
17a30 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
17a40 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
17a50 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d ]), " STMT colum
17a60 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 n", 0);. retu
17a70 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
17a80 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }.. if( getStmt
17a90 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
17aa0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
17ab0 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 jv[1]), &pStmt)
17ac0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
17ad0 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
17ae0 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
17af0 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f rp, objv[2], &co
17b00 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f l) ) return TCL_
17b10 45 52 52 4f 52 3b 0a 0a 20 20 69 56 61 6c 20 3d ERROR;.. iVal =
17b20 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
17b30 69 6e 74 36 34 28 70 53 74 6d 74 2c 20 63 6f 6c int64(pStmt, col
17b40 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 );. Tcl_SetObjR
17b50 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
17b60 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 l_NewWideIntObj(
17b70 69 56 61 6c 29 29 3b 0a 20 20 72 65 74 75 72 6e iVal));. return
17b80 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
17b90 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
17ba0 5f 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 20 53 54 4d _column_blob STM
17bb0 54 20 63 6f 6c 75 6d 6e 0a 2a 2f 0a 73 74 61 74 T column.*/.stat
17bc0 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c 75 ic int test_colu
17bd0 6d 6e 5f 62 6c 6f 62 28 0a 20 20 76 6f 69 64 20 mn_blob(. void
17be0 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
17bf0 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
17c00 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
17c10 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
17c20 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
17c30 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 ite3_stmt *pStmt
17c40 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 0a 20 20 ;. int col;..
17c50 69 6e 74 20 6c 65 6e 3b 0a 20 20 63 6f 6e 73 74 int len;. const
17c60 20 76 6f 69 64 20 2a 70 42 6c 6f 62 3b 0a 0a 20 void *pBlob;..
17c70 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a if( objc!=3 ){.
17c80 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
17c90 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
17ca0 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
17cb0 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
17cc0 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
17cd0 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d (objv[0]), " STM
17ce0 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 T column", 0);.
17cf0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
17d00 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
17d10 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
17d20 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
17d30 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
17d40 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
17d50 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
17d60 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
17d70 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
17d80 32 5d 2c 20 26 63 6f 6c 29 20 29 20 72 65 74 75 2], &col) ) retu
17d90 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
17da0 20 6c 65 6e 20 3d 20 73 71 6c 69 74 65 33 5f 63 len = sqlite3_c
17db0 6f 6c 75 6d 6e 5f 62 79 74 65 73 28 70 53 74 6d olumn_bytes(pStm
17dc0 74 2c 20 63 6f 6c 29 3b 0a 20 20 70 42 6c 6f 62 t, col);. pBlob
17dd0 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d = sqlite3_colum
17de0 6e 5f 62 6c 6f 62 28 70 53 74 6d 74 2c 20 63 6f n_blob(pStmt, co
17df0 6c 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a l);. Tcl_SetObj
17e00 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
17e10 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f cl_NewByteArrayO
17e20 62 6a 28 70 42 6c 6f 62 2c 20 6c 65 6e 29 29 3b bj(pBlob, len));
17e30 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
17e40 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
17e50 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e : sqlite3_column
17e60 5f 64 6f 75 62 6c 65 20 53 54 4d 54 20 63 6f 6c _double STMT col
17e70 75 6d 6e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e umn.**.** Return
17e80 20 74 68 65 20 64 61 74 61 20 69 6e 20 63 6f 6c the data in col
17e90 75 6d 6e 20 27 63 6f 6c 75 6d 6e 27 20 6f 66 20 umn 'column' of
17ea0 74 68 65 20 63 75 72 72 65 6e 74 20 72 6f 77 20 the current row
17eb0 63 61 73 74 20 61 73 20 61 20 64 6f 75 62 6c 65 cast as a double
17ec0 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
17ed0 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 test_column_doub
17ee0 6c 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 le(. void * cli
17ef0 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
17f00 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
17f10 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
17f20 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
17f30 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f [].){. sqlite3_
17f40 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 stmt *pStmt;. i
17f50 6e 74 20 63 6f 6c 3b 0a 20 20 64 6f 75 62 6c 65 nt col;. double
17f60 20 72 56 61 6c 3b 0a 0a 20 20 69 66 28 20 6f 62 rVal;.. if( ob
17f70 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c jc!=3 ){. Tcl
17f80 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
17f90 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
17fa0 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
17fb0 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
17fc0 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
17fd0 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d ]), " STMT colum
17fe0 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 n", 0);. retu
17ff0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
18000 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }.. if( getStmt
18010 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
18020 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
18030 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 jv[1]), &pStmt)
18040 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
18050 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
18060 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
18070 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f rp, objv[2], &co
18080 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f l) ) return TCL_
18090 45 52 52 4f 52 3b 0a 0a 20 20 72 56 61 6c 20 3d ERROR;.. rVal =
180a0 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
180b0 64 6f 75 62 6c 65 28 70 53 74 6d 74 2c 20 63 6f double(pStmt, co
180c0 6c 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a l);. Tcl_SetObj
180d0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
180e0 63 6c 5f 4e 65 77 44 6f 75 62 6c 65 4f 62 6a 28 cl_NewDoubleObj(
180f0 72 56 61 6c 29 29 3b 0a 20 20 72 65 74 75 72 6e rVal));. return
18100 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
18110 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
18120 5f 64 61 74 61 5f 63 6f 75 6e 74 20 53 54 4d 54 _data_count STMT
18130 20 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 .**.** Return t
18140 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c he number of col
18150 75 6d 6e 73 20 72 65 74 75 72 6e 65 64 20 62 79 umns returned by
18160 20 74 68 65 20 73 71 6c 20 73 74 61 74 65 6d 65 the sql stateme
18170 6e 74 20 53 54 4d 54 2e 0a 2a 2f 0a 73 74 61 74 nt STMT..*/.stat
18180 69 63 20 69 6e 74 20 74 65 73 74 5f 64 61 74 61 ic int test_data
18190 5f 63 6f 75 6e 74 28 0a 20 20 76 6f 69 64 20 2a _count(. void *
181a0 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
181b0 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
181c0 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
181d0 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
181e0 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
181f0 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
18200 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 .. if( objc!=2
18210 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
18220 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
18230 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
18240 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 hould be \"", .
18250 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
18260 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 ing(objv[0]), "
18270 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 STMT column", 0)
18280 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
18290 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
182a0 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 f( getStmtPointe
182b0 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
182c0 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
182d0 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
182e0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
182f0 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
18300 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
18310 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f wIntObj(sqlite3_
18320 64 61 74 61 5f 63 6f 75 6e 74 28 70 53 74 6d 74 data_count(pStmt
18330 29 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 )));. return TC
18340 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
18350 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f sage: sqlite3_co
18360 6c 75 6d 6e 5f 74 65 78 74 20 53 54 4d 54 20 63 lumn_text STMT c
18370 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 olumn.**.** Usag
18380 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d e: sqlite3_colum
18390 6e 5f 64 65 63 6c 74 79 70 65 20 53 54 4d 54 20 n_decltype STMT
183a0 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 column.**.** Usa
183b0 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 ge: sqlite3_colu
183c0 6d 6e 5f 6e 61 6d 65 20 53 54 4d 54 20 63 6f 6c mn_name STMT col
183d0 75 6d 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e umn.*/.static in
183e0 74 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 38 t test_stmt_utf8
183f0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
18400 74 44 61 74 61 2c 20 20 20 20 20 20 20 20 2f 2a tData, /*
18410 20 50 6f 69 6e 74 65 72 20 74 6f 20 53 51 4c 69 Pointer to SQLi
18420 74 65 20 41 50 49 20 66 75 6e 63 74 69 6f 6e 20 te API function
18430 74 6f 20 62 65 20 69 6e 76 6f 6b 65 20 2a 2f 0a to be invoke */.
18440 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
18450 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
18460 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
18470 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
18480 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
18490 6d 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 mt;. int col;.
184a0 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 28 2a 78 const char *(*x
184b0 46 75 6e 63 29 28 73 71 6c 69 74 65 33 5f 73 74 Func)(sqlite3_st
184c0 6d 74 2a 2c 20 69 6e 74 29 20 3d 20 63 6c 69 65 mt*, int) = clie
184d0 6e 74 44 61 74 61 3b 0a 20 20 63 6f 6e 73 74 20 ntData;. const
184e0 63 68 61 72 20 2a 7a 52 65 74 3b 0a 0a 20 20 69 char *zRet;.. i
184f0 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 f( objc!=3 ){.
18500 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
18510 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
18520 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
18530 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 be \"", .
18540 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
18550 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 bjv[0]), " STMT
18560 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 column", 0);.
18570 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
18580 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
18590 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
185a0 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
185b0 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
185c0 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
185d0 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
185e0 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
185f0 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
18600 2c 20 26 63 6f 6c 29 20 29 20 72 65 74 75 72 6e , &col) ) return
18610 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 52 TCL_ERROR;. zR
18620 65 74 20 3d 20 78 46 75 6e 63 28 70 53 74 6d 74 et = xFunc(pStmt
18630 2c 20 63 6f 6c 29 3b 0a 20 20 69 66 28 20 7a 52 , col);. if( zR
18640 65 74 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 et ){. Tcl_Se
18650 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
18660 28 63 68 61 72 20 2a 29 7a 52 65 74 2c 20 30 29 (char *)zRet, 0)
18670 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 ;. }. return T
18680 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 CL_OK;.}..static
18690 20 69 6e 74 20 74 65 73 74 5f 67 6c 6f 62 61 6c int test_global
186a0 5f 72 65 63 6f 76 65 72 28 0a 20 20 76 6f 69 64 _recover(. void
186b0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
186c0 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
186d0 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
186e0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
186f0 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e T objv[].){.#ifn
18700 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
18710 47 4c 4f 42 41 4c 52 45 43 4f 56 45 52 0a 20 20 GLOBALRECOVER.
18720 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 6f 62 int rc;. if( ob
18730 6a 63 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c jc!=1 ){. Tcl
18740 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
18750 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
18760 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
18770 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
18780 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 67 6c 6f rc = sqlite3_glo
18790 62 61 6c 5f 72 65 63 6f 76 65 72 28 29 3b 0a 20 bal_recover();.
187a0 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
187b0 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 74 nterp, (char *)t
187c0 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 1ErrorName(rc),
187d0 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 23 65 6e TCL_STATIC);.#en
187e0 64 69 66 0a 20 20 72 65 74 75 72 6e 20 54 43 4c dif. return TCL
187f0 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
18800 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c age: sqlite3_col
18810 75 6d 6e 5f 74 65 78 74 20 53 54 4d 54 20 63 6f umn_text STMT co
18820 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 lumn.**.** Usage
18830 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e : sqlite3_column
18840 5f 64 65 63 6c 74 79 70 65 20 53 54 4d 54 20 63 _decltype STMT c
18850 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 olumn.**.** Usag
18860 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d e: sqlite3_colum
18870 6e 5f 6e 61 6d 65 20 53 54 4d 54 20 63 6f 6c 75 n_name STMT colu
18880 6d 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 mn.*/.static int
18890 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 test_stmt_utf16
188a0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
188b0 74 44 61 74 61 2c 20 20 20 20 20 2f 2a 20 50 6f tData, /* Po
188c0 69 6e 74 65 72 20 74 6f 20 53 51 4c 69 74 65 20 inter to SQLite
188d0 41 50 49 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 API function to
188e0 62 65 20 69 6e 76 6f 6b 65 64 20 2a 2f 0a 20 20 be invoked */.
188f0 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
18900 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
18910 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
18920 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 objv[].){.#ifnd
18930 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 ef SQLITE_OMIT_U
18940 54 46 31 36 0a 20 20 73 71 6c 69 74 65 33 5f 73 TF16. sqlite3_s
18950 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e tmt *pStmt;. in
18960 74 20 63 6f 6c 3b 0a 20 20 54 63 6c 5f 4f 62 6a t col;. Tcl_Obj
18970 20 2a 70 52 65 74 3b 0a 20 20 63 6f 6e 73 74 20 *pRet;. const
18980 76 6f 69 64 20 2a 7a 4e 61 6d 65 31 36 3b 0a 20 void *zName16;.
18990 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 28 2a 78 const void *(*x
189a0 46 75 6e 63 29 28 73 71 6c 69 74 65 33 5f 73 74 Func)(sqlite3_st
189b0 6d 74 2a 2c 20 69 6e 74 29 20 3d 20 63 6c 69 65 mt*, int) = clie
189c0 6e 74 44 61 74 61 3b 0a 0a 20 20 69 66 28 20 6f ntData;.. if( o
189d0 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 bjc!=3 ){. Tc
189e0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
189f0 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
18a00 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
18a10 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
18a20 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
18a30 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 0]), " STMT colu
18a40 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 mn", 0);. ret
18a50 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
18a60 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d }.. if( getStm
18a70 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
18a80 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
18a90 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 bjv[1]), &pStmt)
18aa0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
18ab0 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 ROR;. if( Tcl_G
18ac0 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
18ad0 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 erp, objv[2], &c
18ae0 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c ol) ) return TCL
18af0 5f 45 52 52 4f 52 3b 0a 0a 20 20 7a 4e 61 6d 65 _ERROR;.. zName
18b00 31 36 20 3d 20 78 46 75 6e 63 28 70 53 74 6d 74 16 = xFunc(pStmt
18b10 2c 20 63 6f 6c 29 3b 0a 20 20 69 66 28 20 7a 4e , col);. if( zN
18b20 61 6d 65 31 36 20 29 7b 0a 20 20 20 20 70 52 65 ame16 ){. pRe
18b30 74 20 3d 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 t = Tcl_NewByteA
18b40 72 72 61 79 4f 62 6a 28 7a 4e 61 6d 65 31 36 2c rrayObj(zName16,
18b50 20 73 71 6c 69 74 65 33 55 74 66 31 36 42 79 74 sqlite3Utf16Byt
18b60 65 4c 65 6e 28 7a 4e 61 6d 65 31 36 2c 20 2d 31 eLen(zName16, -1
18b70 29 2b 32 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 )+2);. Tcl_Se
18b80 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
18b90 70 2c 20 70 52 65 74 29 3b 0a 20 20 7d 0a 23 65 p, pRet);. }.#e
18ba0 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f ndif /* SQLITE_O
18bb0 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a 0a 20 20 MIT_UTF16 */..
18bc0 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
18bd0 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 ../*.** Usage: s
18be0 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e qlite3_column_in
18bf0 74 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a t STMT column.**
18c00 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
18c10 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 20 e3_column_bytes
18c20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a STMT column.**.*
18c30 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
18c40 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 31 36 20 _column_bytes16
18c50 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a STMT column.**.*
18c60 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
18c70 74 5f 73 74 6d 74 5f 69 6e 74 28 0a 20 20 76 6f t_stmt_int(. vo
18c80 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
18c90 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 /* Pointer t
18ca0 6f 20 53 51 4c 69 74 65 20 41 50 49 20 66 75 6e o SQLite API fun
18cb0 63 74 69 6f 6e 20 74 6f 20 62 65 20 69 6e 76 6f ction to be invo
18cc0 6b 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 ked */. Tcl_Int
18cd0 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
18ce0 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
18cf0 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
18d00 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 .){. sqlite3_st
18d10 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 mt *pStmt;. int
18d20 20 63 6f 6c 3b 0a 20 20 69 6e 74 20 28 2a 78 46 col;. int (*xF
18d30 75 6e 63 29 28 73 71 6c 69 74 65 33 5f 73 74 6d unc)(sqlite3_stm
18d40 74 2a 2c 20 69 6e 74 29 20 3d 20 63 6c 69 65 6e t*, int) = clien
18d50 74 44 61 74 61 3b 0a 0a 20 20 69 66 28 20 6f 62 tData;.. if( ob
18d60 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c jc!=3 ){. Tcl
18d70 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
18d80 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
18d90 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
18da0 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
18db0 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
18dc0 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d ]), " STMT colum
18dd0 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 n", 0);. retu
18de0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
18df0 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }.. if( getStmt
18e00 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
18e10 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
18e20 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 jv[1]), &pStmt)
18e30 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
18e40 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
18e50 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
18e60 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f rp, objv[2], &co
18e70 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f l) ) return TCL_
18e80 45 52 52 4f 52 3b 0a 0a 20 20 54 63 6c 5f 53 65 ERROR;.. Tcl_Se
18e90 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
18ea0 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
18eb0 28 78 46 75 6e 63 28 70 53 74 6d 74 2c 20 63 6f (xFunc(pStmt, co
18ec0 6c 29 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 l)));. return T
18ed0 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 69 66 6e 64 65 CL_OK;.}..#ifnde
18ee0 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 49 f SQLITE_OMIT_DI
18ef0 53 4b 49 4f 0a 23 69 66 20 30 0a 2f 2a 0a 2a 2a SKIO.#if 0./*.**
18f00 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
18f10 4f 73 4f 70 65 6e 52 65 61 64 57 72 69 74 65 20 OsOpenReadWrite
18f20 3c 66 69 6c 65 6e 61 6d 65 3e 0a 2a 2f 0a 73 74 <filename>.*/.st
18f30 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 71 atic int test_sq
18f40 6c 69 74 65 33 4f 73 4f 70 65 6e 52 65 61 64 57 lite3OsOpenReadW
18f50 72 69 74 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 rite(. void * c
18f60 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
18f70 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
18f80 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
18f90 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
18fa0 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
18fb0 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 3b 0a 20 3_file *pFile;.
18fc0 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 64 int rc;. int d
18fd0 75 6d 6d 79 3b 0a 20 20 63 68 61 72 20 7a 42 75 ummy;. char zBu
18fe0 66 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 28 20 6f f[100];.. if( o
18ff0 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 bjc!=2 ){. Tc
19000 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
19010 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
19020 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
19030 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
19040 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
19050 30 5d 29 2c 20 22 20 66 69 6c 65 6e 61 6d 65 22 0]), " filename"
19060 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
19070 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
19080 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f . rc = sqlite3O
19090 73 4f 70 65 6e 52 65 61 64 57 72 69 74 65 28 54 sOpenReadWrite(T
190a0 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
190b0 76 5b 31 5d 29 2c 20 26 70 46 69 6c 65 2c 20 26 v[1]), &pFile, &
190c0 64 75 6d 6d 79 29 3b 0a 20 20 69 66 28 20 72 63 dummy);. if( rc
190d0 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 !=SQLITE_OK ){.
190e0 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
190f0 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a (interp, (char *
19100 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 )t1ErrorName(rc)
19110 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 , TCL_STATIC);.
19120 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
19130 52 4f 52 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 ROR;. }. sqlit
19140 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 e3TestMakePointe
19150 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 rStr(interp, zBu
19160 66 2c 20 70 46 69 6c 65 29 3b 0a 20 20 54 63 6c f, pFile);. Tcl
19170 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
19180 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 p, zBuf, 0);. r
19190 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
191a0 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
191b0 20 20 73 71 6c 69 74 65 33 4f 73 43 6c 6f 73 65 sqlite3OsClose
191c0 20 3c 66 69 6c 65 20 68 61 6e 64 6c 65 3e 0a 2a <file handle>.*
191d0 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
191e0 74 5f 73 71 6c 69 74 65 33 4f 73 43 6c 6f 73 65 t_sqlite3OsClose
191f0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
19200 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
19210 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
19220 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
19230 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
19240 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 .){. sqlite3_fi
19250 6c 65 20 2a 70 46 69 6c 65 3b 0a 20 20 69 6e 74 le *pFile;. int
19260 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 rc;.. if( objc
19270 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=2 ){. Tcl_A
19280 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
19290 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
192a0 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
192b0 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 , . Tcl_Ge
192c0 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 tString(objv[0])
192d0 2c 20 22 20 66 69 6c 65 68 61 6e 64 6c 65 22 2c , " filehandle",
192e0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
192f0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
19300 20 20 69 66 28 20 67 65 74 46 69 6c 65 50 6f 69 if( getFilePoi
19310 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
19320 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
19330 31 5d 29 2c 20 26 70 46 69 6c 65 29 20 29 7b 0a 1]), &pFile) ){.
19340 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
19350 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 20 3d RROR;. }. rc =
19360 20 73 71 6c 69 74 65 33 4f 73 43 6c 6f 73 65 28 sqlite3OsClose(
19370 26 70 46 69 6c 65 29 3b 0a 20 20 69 66 28 20 72 &pFile);. if( r
19380 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a c!=SQLITE_OK ){.
19390 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c Tcl_SetResul
193a0 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 t(interp, (char
193b0 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 *)t1ErrorName(rc
193c0 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a ), TCL_STATIC);.
193d0 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
193e0 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 RROR;. }. retu
193f0 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
19400 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
19410 74 65 33 4f 73 4c 6f 63 6b 20 3c 66 69 6c 65 20 te3OsLock <file
19420 68 61 6e 64 6c 65 3e 20 3c 6c 6f 63 6b 74 79 70 handle> <locktyp
19430 65 3e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 e>.*/.static int
19440 20 74 65 73 74 5f 73 71 6c 69 74 65 33 4f 73 4c test_sqlite3OsL
19450 6f 63 6b 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c ock(. void * cl
19460 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
19470 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
19480 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
19490 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
194a0 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
194b0 5f 66 69 6c 65 20 2a 20 70 46 69 6c 65 3b 0a 20 _file * pFile;.
194c0 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
194d0 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 objc!=3 ){. T
194e0 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
194f0 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
19500 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
19510 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 20 54 \"", . T
19520 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
19530 76 5b 30 5d 29 2c 20 0a 20 20 20 20 20 20 20 20 v[0]), .
19540 22 20 66 69 6c 65 68 61 6e 64 6c 65 20 28 53 48 " filehandle (SH
19550 41 52 45 44 7c 52 45 53 45 52 56 45 44 7c 50 45 ARED|RESERVED|PE
19560 4e 44 49 4e 47 7c 45 58 43 4c 55 53 49 56 45 29 NDING|EXCLUSIVE)
19570 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
19580 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
19590 0a 0a 20 20 69 66 28 20 67 65 74 46 69 6c 65 50 .. if( getFileP
195a0 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
195b0 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
195c0 76 5b 31 5d 29 2c 20 26 70 46 69 6c 65 29 20 29 v[1]), &pFile) )
195d0 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
195e0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
195f0 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 22 53 48 f( 0==strcmp("SH
19600 41 52 45 44 22 2c 20 54 63 6c 5f 47 65 74 53 74 ARED", Tcl_GetSt
19610 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 29 20 29 ring(objv[2])) )
19620 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 {. rc = sqlit
19630 65 33 4f 73 4c 6f 63 6b 28 70 46 69 6c 65 2c 20 e3OsLock(pFile,
19640 53 48 41 52 45 44 5f 4c 4f 43 4b 29 3b 0a 20 20 SHARED_LOCK);.
19650 7d 0a 20 20 65 6c 73 65 20 69 66 28 20 30 3d 3d }. else if( 0==
19660 73 74 72 63 6d 70 28 22 52 45 53 45 52 56 45 44 strcmp("RESERVED
19670 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 ", Tcl_GetString
19680 28 6f 62 6a 76 5b 32 5d 29 29 20 29 7b 0a 20 20 (objv[2])) ){.
19690 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 rc = sqlite3Os
196a0 4c 6f 63 6b 28 70 46 69 6c 65 2c 20 52 45 53 45 Lock(pFile, RESE
196b0 52 56 45 44 5f 4c 4f 43 4b 29 3b 0a 20 20 7d 0a RVED_LOCK);. }.
196c0 20 20 65 6c 73 65 20 69 66 28 20 30 3d 3d 73 74 else if( 0==st
196d0 72 63 6d 70 28 22 50 45 4e 44 49 4e 47 22 2c 20 rcmp("PENDING",
196e0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
196f0 6a 76 5b 32 5d 29 29 20 29 7b 0a 20 20 20 20 72 jv[2])) ){. r
19700 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 4c 6f 63 c = sqlite3OsLoc
19710 6b 28 70 46 69 6c 65 2c 20 50 45 4e 44 49 4e 47 k(pFile, PENDING
19720 5f 4c 4f 43 4b 29 3b 0a 20 20 7d 0a 20 20 65 6c _LOCK);. }. el
19730 73 65 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 se if( 0==strcmp
19740 28 22 45 58 43 4c 55 53 49 56 45 22 2c 20 54 63 ("EXCLUSIVE", Tc
19750 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
19760 5b 32 5d 29 29 20 29 7b 0a 20 20 20 20 72 63 20 [2])) ){. rc
19770 3d 20 73 71 6c 69 74 65 33 4f 73 4c 6f 63 6b 28 = sqlite3OsLock(
19780 70 46 69 6c 65 2c 20 45 58 43 4c 55 53 49 56 45 pFile, EXCLUSIVE
19790 5f 4c 4f 43 4b 29 3b 0a 20 20 7d 65 6c 73 65 7b _LOCK);. }else{
197a0 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
197b0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
197c0 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
197d0 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 uld be \"", .
197e0 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
197f0 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 0a 20 20 ng(objv[0]), .
19800 20 20 20 20 20 20 22 20 66 69 6c 65 68 61 6e 64 " filehand
19810 6c 65 20 28 53 48 41 52 45 44 7c 52 45 53 45 52 le (SHARED|RESER
19820 56 45 44 7c 50 45 4e 44 49 4e 47 7c 45 58 43 4c VED|PENDING|EXCL
19830 55 53 49 56 45 29 22 2c 20 30 29 3b 0a 20 20 20 USIVE)", 0);.
19840 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
19850 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 R;. }.. if( rc
19860 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 !=SQLITE_OK ){.
19870 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
19880 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a (interp, (char *
19890 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 )t1ErrorName(rc)
198a0 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 , TCL_STATIC);.
198b0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
198c0 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 ROR;. }. retur
198d0 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
198e0 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
198f0 65 33 4f 73 55 6e 6c 6f 63 6b 20 3c 66 69 6c 65 e3OsUnlock <file
19900 20 68 61 6e 64 6c 65 3e 0a 2a 2f 0a 73 74 61 74 handle>.*/.stat
19910 69 63 20 69 6e 74 20 74 65 73 74 5f 73 71 6c 69 ic int test_sqli
19920 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 0a 20 20 76 te3OsUnlock(. v
19930 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
19940 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
19950 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
19960 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
19970 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
19980 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 20 sqlite3_file *
19990 70 46 69 6c 65 3b 0a 20 20 69 6e 74 20 72 63 3b pFile;. int rc;
199a0 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 .. if( objc!=2
199b0 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
199c0 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
199d0 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
199e0 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 hould be \"", .
199f0 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
19a00 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 ing(objv[0]), "
19a10 66 69 6c 65 68 61 6e 64 6c 65 22 2c 20 30 29 3b filehandle", 0);
19a20 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
19a30 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 ERROR;. }.. if
19a40 28 20 67 65 74 46 69 6c 65 50 6f 69 6e 74 65 72 ( getFilePointer
19a50 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
19a60 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
19a70 20 26 70 46 69 6c 65 29 20 29 7b 0a 20 20 20 20 &pFile) ){.
19a80 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
19a90 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20 73 71 6c ;. }. rc = sql
19aa0 69 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 70 46 69 ite3OsUnlock(pFi
19ab0 6c 65 2c 20 4e 4f 5f 4c 4f 43 4b 29 3b 0a 20 20 le, NO_LOCK);.
19ac0 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f if( rc!=SQLITE_O
19ad0 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 K ){. Tcl_Set
19ae0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 Result(interp, (
19af0 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 char *)t1ErrorNa
19b00 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 me(rc), TCL_STAT
19b10 49 43 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 IC);. return
19b20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
19b30 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
19b40 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
19b50 20 73 71 6c 69 74 65 33 4f 73 54 65 6d 70 46 69 sqlite3OsTempFi
19b60 6c 65 4e 61 6d 65 0a 2a 2f 0a 73 74 61 74 69 63 leName.*/.static
19b70 20 69 6e 74 20 74 65 73 74 5f 73 71 6c 69 74 65 int test_sqlite
19b80 33 4f 73 54 65 6d 70 46 69 6c 65 4e 61 6d 65 28 3OsTempFileName(
19b90 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
19ba0 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
19bb0 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
19bc0 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
19bd0 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
19be0 29 7b 0a 20 20 63 68 61 72 20 7a 46 69 6c 65 5b ){. char zFile[
19bf0 53 51 4c 49 54 45 5f 54 45 4d 50 4e 41 4d 45 5f SQLITE_TEMPNAME_
19c00 53 49 5a 45 5d 3b 0a 20 20 69 6e 74 20 72 63 3b SIZE];. int rc;
19c10 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 .. rc = sqlite3
19c20 4f 73 54 65 6d 70 46 69 6c 65 4e 61 6d 65 28 7a OsTempFileName(z
19c30 46 69 6c 65 29 3b 0a 20 20 69 66 28 20 72 63 21 File);. if( rc!
19c40 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 =SQLITE_OK ){.
19c50 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
19c60 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
19c70 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c t1ErrorName(rc),
19c80 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 TCL_STATIC);.
19c90 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
19ca0 4f 52 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 41 70 OR;. }. Tcl_Ap
19cb0 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
19cc0 70 2c 20 7a 46 69 6c 65 2c 20 30 29 3b 0a 20 20 p, zFile, 0);.
19cd0 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
19ce0 0a 23 65 6e 64 69 66 0a 23 65 6e 64 69 66 0a 0a .#endif.#endif..
19cf0 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
19d00 6c 69 74 65 5f 73 65 74 5f 6d 61 67 69 63 20 20 lite_set_magic
19d10 44 42 20 20 4d 41 47 49 43 2d 4e 55 4d 42 45 52 DB MAGIC-NUMBER
19d20 0a 2a 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20 64 .**.** Set the d
19d30 62 2d 3e 6d 61 67 69 63 20 76 61 6c 75 65 2e 20 b->magic value.
19d40 20 54 68 69 73 20 69 73 20 75 73 65 64 20 74 6f This is used to
19d50 20 74 65 73 74 20 65 72 72 6f 72 20 72 65 63 6f test error reco
19d60 76 65 72 79 20 6c 6f 67 69 63 2e 0a 2a 2f 0a 73 very logic..*/.s
19d70 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 tatic int sqlite
19d80 5f 73 65 74 5f 6d 61 67 69 63 28 0a 20 20 76 6f _set_magic(. vo
19d90 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
19da0 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
19db0 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 67 nterp,. int arg
19dc0 63 2c 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 c,. char **argv
19dd0 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
19de0 62 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 b;. if( argc!=3
19df0 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
19e00 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
19e10 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
19e20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
19e30 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 20 rgv[0],.
19e40 20 22 20 44 42 20 4d 41 47 49 43 22 2c 20 30 29 " DB MAGIC", 0)
19e50 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
19e60 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
19e70 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
19e80 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
19e90 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
19ea0 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 73 L_ERROR;. if( s
19eb0 74 72 63 6d 70 28 61 72 67 76 5b 32 5d 2c 20 22 trcmp(argv[2], "
19ec0 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 4f 50 45 SQLITE_MAGIC_OPE
19ed0 4e 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 64 62 N")==0 ){. db
19ee0 2d 3e 6d 61 67 69 63 20 3d 20 53 51 4c 49 54 45 ->magic = SQLITE
19ef0 5f 4d 41 47 49 43 5f 4f 50 45 4e 3b 0a 20 20 7d _MAGIC_OPEN;. }
19f00 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 else if( strcmp(
19f10 61 72 67 76 5b 32 5d 2c 20 22 53 51 4c 49 54 45 argv[2], "SQLITE
19f20 5f 4d 41 47 49 43 5f 43 4c 4f 53 45 44 22 29 3d _MAGIC_CLOSED")=
19f30 3d 30 20 29 7b 0a 20 20 20 20 64 62 2d 3e 6d 61 =0 ){. db->ma
19f40 67 69 63 20 3d 20 53 51 4c 49 54 45 5f 4d 41 47 gic = SQLITE_MAG
19f50 49 43 5f 43 4c 4f 53 45 44 3b 0a 20 20 7d 65 6c IC_CLOSED;. }el
19f60 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 se if( strcmp(ar
19f70 67 76 5b 32 5d 2c 20 22 53 51 4c 49 54 45 5f 4d gv[2], "SQLITE_M
19f80 41 47 49 43 5f 42 55 53 59 22 29 3d 3d 30 20 29 AGIC_BUSY")==0 )
19f90 7b 0a 20 20 20 20 64 62 2d 3e 6d 61 67 69 63 20 {. db->magic
19fa0 3d 20 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 42 = SQLITE_MAGIC_B
19fb0 55 53 59 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 USY;. }else if(
19fc0 20 73 74 72 63 6d 70 28 61 72 67 76 5b 32 5d 2c strcmp(argv[2],
19fd0 20 22 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 45 "SQLITE_MAGIC_E
19fe0 52 52 4f 52 22 29 3d 3d 30 20 29 7b 0a 20 20 20 RROR")==0 ){.
19ff0 20 64 62 2d 3e 6d 61 67 69 63 20 3d 20 53 51 4c db->magic = SQL
1a000 49 54 45 5f 4d 41 47 49 43 5f 45 52 52 4f 52 3b ITE_MAGIC_ERROR;
1a010 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 54 63 6c . }else if( Tcl
1a020 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 _GetInt(interp,
1a030 61 72 67 76 5b 32 5d 2c 20 26 64 62 2d 3e 6d 61 argv[2], &db->ma
1a040 67 69 63 29 20 29 7b 0a 20 20 20 20 72 65 74 75 gic) ){. retu
1a050 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1a060 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f }. return TCL_O
1a070 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
1a080 65 3a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 65 e: sqlite3_inte
1a090 72 72 75 70 74 20 20 44 42 20 0a 2a 2a 0a 2a 2a rrupt DB .**.**
1a0a0 20 54 72 69 67 67 65 72 20 61 6e 20 69 6e 74 65 Trigger an inte
1a0b0 72 72 75 70 74 20 6f 6e 20 44 42 0a 2a 2f 0a 73 rrupt on DB.*/.s
1a0c0 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 69 tatic int test_i
1a0d0 6e 74 65 72 72 75 70 74 28 0a 20 20 76 6f 69 64 nterrupt(. void
1a0e0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
1a0f0 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1a100 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c erp,. int argc,
1a110 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 0a 29 . char **argv.)
1a120 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
1a130 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 . if( argc!=2 )
1a140 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
1a150 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
1a160 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
1a170 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
1a180 76 5b 30 5d 2c 20 22 20 44 42 22 2c 20 30 29 3b v[0], " DB", 0);
1a190 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
1a1a0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
1a1b0 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
1a1c0 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 terp, argv[1], &
1a1d0 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
1a1e0 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 _ERROR;. sqlite
1a1f0 33 5f 69 6e 74 65 72 72 75 70 74 28 64 62 29 3b 3_interrupt(db);
1a200 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
1a210 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 75 38 20 2a ;.}..static u8 *
1a220 73 71 6c 69 74 65 33 5f 73 74 61 63 6b 5f 62 61 sqlite3_stack_ba
1a230 73 65 6c 69 6e 65 20 3d 20 30 3b 0a 0a 2f 2a 0a seline = 0;../*.
1a240 2a 2a 20 46 69 6c 6c 20 74 68 65 20 73 74 61 63 ** Fill the stac
1a250 6b 20 77 69 74 68 20 61 20 6b 6e 6f 77 6e 20 62 k with a known b
1a260 69 74 70 61 74 74 65 72 6e 2e 0a 2a 2f 0a 73 74 itpattern..*/.st
1a270 61 74 69 63 20 76 6f 69 64 20 70 72 65 70 53 74 atic void prepSt
1a280 61 63 6b 28 76 6f 69 64 29 7b 0a 20 20 69 6e 74 ack(void){. int
1a290 20 69 3b 0a 20 20 75 33 32 20 62 69 67 42 75 66 i;. u32 bigBuf
1a2a0 5b 36 35 35 33 36 5d 3b 0a 20 20 66 6f 72 28 69 [65536];. for(i
1a2b0 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 62 69 67 =0; i<sizeof(big
1a2c0 42 75 66 29 3b 20 69 2b 2b 29 20 62 69 67 42 75 Buf); i++) bigBu
1a2d0 66 5b 69 5d 20 3d 20 30 78 64 65 61 64 62 65 65 f[i] = 0xdeadbee
1a2e0 66 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 61 f;. sqlite3_sta
1a2f0 63 6b 5f 62 61 73 65 6c 69 6e 65 20 3d 20 28 75 ck_baseline = (u
1a300 38 2a 29 26 62 69 67 42 75 66 5b 36 35 35 33 36 8*)&bigBuf[65536
1a310 5d 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 65 74 20 ];.}../*.** Get
1a320 74 68 65 20 63 75 72 72 65 6e 74 20 73 74 61 63 the current stac
1a330 6b 20 64 65 70 74 68 2e 20 20 55 73 65 64 20 66 k depth. Used f
1a340 6f 72 20 64 65 62 75 67 67 69 6e 67 20 6f 6e 6c or debugging onl
1a350 79 2e 0a 2a 2f 0a 75 36 34 20 73 71 6c 69 74 65 y..*/.u64 sqlite
1a360 33 53 74 61 63 6b 44 65 70 74 68 28 76 6f 69 64 3StackDepth(void
1a370 29 7b 0a 20 20 75 38 20 78 3b 0a 20 20 72 65 74 ){. u8 x;. ret
1a380 75 72 6e 20 28 75 36 34 29 28 73 71 6c 69 74 65 urn (u64)(sqlite
1a390 33 5f 73 74 61 63 6b 5f 62 61 73 65 6c 69 6e 65 3_stack_baseline
1a3a0 20 2d 20 26 78 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a - &x);.}../*.**
1a3b0 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
1a3c0 5f 73 74 61 63 6b 5f 75 73 65 64 20 44 42 20 53 _stack_used DB S
1a3d0 51 4c 0a 2a 2a 0a 2a 2a 20 54 72 79 20 74 6f 20 QL.**.** Try to
1a3e0 6d 65 61 73 75 72 65 20 74 68 65 20 61 6d 6f 75 measure the amou
1a3f0 6e 74 20 6f 66 20 73 74 61 63 6b 20 73 70 61 63 nt of stack spac
1a400 65 20 75 73 65 64 20 62 79 20 61 20 63 61 6c 6c e used by a call
1a410 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 78 65 63 to sqlite3_exec
1a420 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
1a430 65 73 74 5f 73 74 61 63 6b 5f 75 73 65 64 28 0a est_stack_used(.
1a440 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
1a450 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
1a460 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
1a470 20 61 72 67 63 2c 0a 20 20 63 68 61 72 20 2a 2a argc,. char **
1a480 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 argv.){. sqlite
1a490 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 69 3b 0a 3 *db;. int i;.
1a4a0 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b if( argc!=3 ){
1a4b0 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
1a4c0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
1a4d0 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
1a4e0 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 uld be \"", argv
1a4f0 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 20 22 20 [0], . "
1a500 44 42 20 53 51 4c 22 2c 20 30 29 3b 0a 20 20 20 DB SQL", 0);.
1a510 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1a520 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
1a530 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
1a540 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 , argv[1], &db)
1a550 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1a560 4f 52 3b 0a 20 20 70 72 65 70 53 74 61 63 6b 28 OR;. prepStack(
1a570 29 3b 0a 20 20 28 76 6f 69 64 29 73 71 6c 69 74 );. (void)sqlit
1a580 65 33 5f 65 78 65 63 28 64 62 2c 20 61 72 67 76 e3_exec(db, argv
1a590 5b 32 5d 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 [2], 0, 0, 0);.
1a5a0 20 66 6f 72 28 69 3d 36 35 35 33 35 3b 20 69 3e for(i=65535; i>
1a5b0 3d 30 20 26 26 20 28 28 75 33 32 2a 29 73 71 6c =0 && ((u32*)sql
1a5c0 69 74 65 33 5f 73 74 61 63 6b 5f 62 61 73 65 6c ite3_stack_basel
1a5d0 69 6e 65 29 5b 2d 69 5d 3d 3d 30 78 64 65 61 64 ine)[-i]==0xdead
1a5e0 62 65 65 66 3b 20 69 2d 2d 29 7b 7d 0a 20 20 54 beef; i--){}. T
1a5f0 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
1a600 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 interp, Tcl_NewI
1a610 6e 74 4f 62 6a 28 69 2a 34 29 29 3b 0a 20 20 72 ntObj(i*4));. r
1a620 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
1a630 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
1a640 6c 69 74 65 5f 64 65 6c 65 74 65 5f 66 75 6e 63 lite_delete_func
1a650 74 69 6f 6e 20 44 42 20 66 75 6e 63 74 69 6f 6e tion DB function
1a660 2d 6e 61 6d 65 0a 2a 2a 0a 2a 2a 20 44 65 6c 65 -name.**.** Dele
1a670 74 65 20 74 68 65 20 75 73 65 72 20 66 75 6e 63 te the user func
1a680 74 69 6f 6e 20 27 66 75 6e 63 74 69 6f 6e 2d 6e tion 'function-n
1a690 61 6d 65 27 20 66 72 6f 6d 20 64 61 74 61 62 61 ame' from databa
1a6a0 73 65 20 68 61 6e 64 6c 65 20 44 42 2e 20 49 74 se handle DB. It
1a6b0 0a 2a 2a 20 69 73 20 61 73 73 75 6d 65 64 20 74 .** is assumed t
1a6c0 68 61 74 20 74 68 65 20 75 73 65 72 20 66 75 6e hat the user fun
1a6d0 63 74 69 6f 6e 20 77 61 73 20 63 72 65 61 74 65 ction was create
1a6e0 64 20 61 73 20 55 54 46 38 2c 20 61 6e 79 20 6e d as UTF8, any n
1a6f0 75 6d 62 65 72 20 6f 66 0a 2a 2a 20 61 72 67 75 umber of.** argu
1a700 6d 65 6e 74 73 20 28 74 68 65 20 77 61 79 20 74 ments (the way t
1a710 68 65 20 54 43 4c 20 69 6e 74 65 72 66 61 63 65 he TCL interface
1a720 20 64 6f 65 73 20 69 74 29 2e 0a 2a 2f 0a 73 74 does it)..*/.st
1a730 61 74 69 63 20 69 6e 74 20 64 65 6c 65 74 65 5f atic int delete_
1a740 66 75 6e 63 74 69 6f 6e 28 0a 20 20 76 6f 69 64 function(. void
1a750 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
1a760 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1a770 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c erp,. int argc,
1a780 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 0a 29 . char **argv.)
1a790 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 73 71 {. int rc;. sq
1a7a0 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 lite3 *db;. if(
1a7b0 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 argc!=3 ){.
1a7c0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1a7d0 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
1a7e0 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
1a7f0 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 e \"", argv[0],
1a800 0a 20 20 20 20 20 20 20 20 22 20 44 42 20 66 75 . " DB fu
1a810 6e 63 74 69 6f 6e 2d 6e 61 6d 65 22 2c 20 30 29 nction-name", 0)
1a820 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
1a830 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
1a840 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
1a850 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
1a860 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
1a870 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 L_ERROR;. rc =
1a880 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 sqlite3_create_f
1a890 75 6e 63 74 69 6f 6e 28 64 62 2c 20 61 72 67 76 unction(db, argv
1a8a0 5b 32 5d 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f [2], -1, SQLITE_
1a8b0 55 54 46 38 2c 20 30 2c 20 30 2c 20 30 2c 20 30 UTF8, 0, 0, 0, 0
1a8c0 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 );. Tcl_SetResu
1a8d0 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
1a8e0 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 *)t1ErrorName(r
1a8f0 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b c), TCL_STATIC);
1a900 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
1a910 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
1a920 3a 20 73 71 6c 69 74 65 5f 64 65 6c 65 74 65 5f : sqlite_delete_
1a930 63 6f 6c 6c 61 74 69 6f 6e 20 44 42 20 63 6f 6c collation DB col
1a940 6c 61 74 69 6f 6e 2d 6e 61 6d 65 0a 2a 2a 0a 2a lation-name.**.*
1a950 2a 20 44 65 6c 65 74 65 20 74 68 65 20 63 6f 6c * Delete the col
1a960 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 lation sequence
1a970 27 63 6f 6c 6c 61 74 69 6f 6e 2d 6e 61 6d 65 27 'collation-name'
1a980 20 66 72 6f 6d 20 64 61 74 61 62 61 73 65 20 68 from database h
1a990 61 6e 64 6c 65 20 0a 2a 2a 20 44 42 2e 20 49 74 andle .** DB. It
1a9a0 20 69 73 20 61 73 73 75 6d 65 64 20 74 68 61 74 is assumed that
1a9b0 20 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 the collation s
1a9c0 65 71 75 65 6e 63 65 20 77 61 73 20 63 72 65 61 equence was crea
1a9d0 74 65 64 20 61 73 20 55 54 46 38 20 28 74 68 65 ted as UTF8 (the
1a9e0 20 0a 2a 2a 20 77 61 79 20 74 68 65 20 54 43 4c .** way the TCL
1a9f0 20 69 6e 74 65 72 66 61 63 65 20 64 6f 65 73 20 interface does
1aa00 69 74 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 it)..*/.static i
1aa10 6e 74 20 64 65 6c 65 74 65 5f 63 6f 6c 6c 61 74 nt delete_collat
1aa20 69 6f 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c ion(. void * cl
1aa30 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
1aa40 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
1aa50 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 68 int argc,. ch
1aa60 61 72 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 ar **argv.){. i
1aa70 6e 74 20 72 63 3b 0a 20 20 73 71 6c 69 74 65 33 nt rc;. sqlite3
1aa80 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 72 67 63 *db;. if( argc
1aa90 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=3 ){. Tcl_A
1aaa0 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1aab0 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
1aac0 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
1aad0 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 , argv[0], .
1aae0 20 20 20 20 22 20 44 42 20 66 75 6e 63 74 69 6f " DB functio
1aaf0 6e 2d 6e 61 6d 65 22 2c 20 30 29 3b 0a 20 20 20 n-name", 0);.
1ab00 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1ab10 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
1ab20 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
1ab30 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 , argv[1], &db)
1ab40 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1ab50 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 OR;. rc = sqlit
1ab60 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 e3_create_collat
1ab70 69 6f 6e 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c ion(db, argv[2],
1ab80 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c SQLITE_UTF8, 0,
1ab90 20 30 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 0);. Tcl_SetRe
1aba0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 sult(interp, (ch
1abb0 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 ar *)t1ErrorName
1abc0 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 (rc), TCL_STATIC
1abd0 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
1abe0 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
1abf0 67 65 3a 20 73 71 6c 69 74 65 33 5f 67 65 74 5f ge: sqlite3_get_
1ac00 61 75 74 6f 63 6f 6d 6d 69 74 20 44 42 0a 2a 2a autocommit DB.**
1ac10 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75 65 20 .** Return true
1ac20 69 66 20 74 68 65 20 64 61 74 61 62 61 73 65 20 if the database
1ac30 44 42 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 DB is currently
1ac40 69 6e 20 61 75 74 6f 2d 63 6f 6d 6d 69 74 20 6d in auto-commit m
1ac50 6f 64 65 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 66 ode..** Return f
1ac60 61 6c 73 65 20 69 66 20 6e 6f 74 2e 0a 2a 2f 0a alse if not..*/.
1ac70 73 74 61 74 69 63 20 69 6e 74 20 67 65 74 5f 61 static int get_a
1ac80 75 74 6f 63 6f 6d 6d 69 74 28 0a 20 20 76 6f 69 utocommit(. voi
1ac90 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
1aca0 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
1acb0 74 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 67 63 terp,. int argc
1acc0 2c 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 0a ,. char **argv.
1acd0 29 7b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33 ){. char zBuf[3
1ace0 30 5d 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 0];. sqlite3 *d
1acf0 62 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 b;. if( argc!=2
1ad00 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
1ad10 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1ad20 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
1ad30 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
1ad40 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 rgv[0], .
1ad50 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 " DB", 0);.
1ad60 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1ad70 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 ;. }. if( getD
1ad80 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c bPointer(interp,
1ad90 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 argv[1], &db) )
1ada0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1adb0 52 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75 R;. sprintf(zBu
1adc0 66 2c 20 22 25 64 22 2c 20 73 71 6c 69 74 65 33 f, "%d", sqlite3
1add0 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 28 _get_autocommit(
1ade0 64 62 29 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 db));. Tcl_Appe
1adf0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1ae00 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 zBuf, 0);. ret
1ae10 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
1ae20 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 *.** Usage: sqli
1ae30 74 65 33 5f 62 75 73 79 5f 74 69 6d 65 6f 75 74 te3_busy_timeout
1ae40 20 44 42 20 4d 53 0a 2a 2a 0a 2a 2a 20 53 65 74 DB MS.**.** Set
1ae50 20 74 68 65 20 62 75 73 79 20 74 69 6d 65 6f 75 the busy timeou
1ae60 74 2e 20 20 54 68 69 73 20 69 73 20 6d 6f 72 65 t. This is more
1ae70 20 65 61 73 69 6c 79 20 64 6f 6e 65 20 75 73 69 easily done usi
1ae80 6e 67 20 74 68 65 20 74 69 6d 65 6f 75 74 0a 2a ng the timeout.*
1ae90 2a 20 6d 65 74 68 6f 64 20 6f 66 20 74 68 65 20 * method of the
1aea0 54 43 4c 20 69 6e 74 65 72 66 61 63 65 2e 20 20 TCL interface.
1aeb0 42 75 74 20 77 65 20 6e 65 65 64 20 61 20 77 61 But we need a wa
1aec0 79 20 74 6f 20 74 65 73 74 20 74 68 65 20 63 61 y to test the ca
1aed0 73 65 0a 2a 2a 20 77 68 65 72 65 20 69 74 20 72 se.** where it r
1aee0 65 74 75 72 6e 73 20 53 51 4c 49 54 45 5f 4d 49 eturns SQLITE_MI
1aef0 53 55 53 45 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 SUSE..*/.static
1af00 69 6e 74 20 74 65 73 74 5f 62 75 73 79 5f 74 69 int test_busy_ti
1af10 6d 65 6f 75 74 28 0a 20 20 76 6f 69 64 20 2a 20 meout(. void *
1af20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
1af30 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1af40 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
1af50 63 68 61 72 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 char **argv.){.
1af60 20 69 6e 74 20 72 63 2c 20 6d 73 3b 0a 20 20 73 int rc, ms;. s
1af70 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 qlite3 *db;. if
1af80 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 ( argc!=3 ){.
1af90 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1afa0 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
1afb0 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
1afc0 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
1afd0 20 0a 20 20 20 20 20 20 20 20 22 20 44 42 22 2c . " DB",
1afe0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
1aff0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
1b000 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
1b010 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 r(interp, argv[1
1b020 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ], &db) ) return
1b030 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
1b040 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 ( Tcl_GetInt(int
1b050 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c 20 26 6d erp, argv[2], &m
1b060 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f s) ) return TCL_
1b070 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 ERROR;. rc = sq
1b080 6c 69 74 65 33 5f 62 75 73 79 5f 74 69 6d 65 6f lite3_busy_timeo
1b090 75 74 28 64 62 2c 20 6d 73 29 3b 0a 20 20 54 63 ut(db, ms);. Tc
1b0a0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
1b0b0 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 33 54 65 nterp, sqlite3Te
1b0c0 73 74 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c stErrorName(rc),
1b0d0 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 0);. return TC
1b0e0 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
1b0f0 73 61 67 65 3a 20 20 74 63 6c 5f 76 61 72 69 61 sage: tcl_varia
1b100 62 6c 65 5f 74 79 70 65 20 56 41 52 49 41 42 4c ble_type VARIABL
1b110 45 4e 41 4d 45 0a 2a 2a 0a 2a 2a 20 52 65 74 75 ENAME.**.** Retu
1b120 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 rn the name of t
1b130 68 65 20 69 6e 74 65 72 6e 61 6c 20 72 65 70 72 he internal repr
1b140 65 73 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 74 esentation for t
1b150 68 65 0a 2a 2a 20 76 61 6c 75 65 20 6f 66 20 74 he.** value of t
1b160 68 65 20 67 69 76 65 6e 20 76 61 72 69 61 62 6c he given variabl
1b170 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 e..*/.static int
1b180 20 74 63 6c 5f 76 61 72 69 61 62 6c 65 5f 74 79 tcl_variable_ty
1b190 70 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 pe(. void * cli
1b1a0 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
1b1b0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
1b1c0 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
1b1d0 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
1b1e0 5b 5d 0a 29 7b 0a 20 20 54 63 6c 5f 4f 62 6a 20 [].){. Tcl_Obj
1b1f0 2a 70 56 61 72 3b 0a 20 20 69 66 28 20 6f 62 6a *pVar;. if( obj
1b200 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
1b210 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
1b220 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 56 erp, 1, objv, "V
1b230 41 52 49 41 42 4c 45 22 29 3b 0a 20 20 20 20 72 ARIABLE");. r
1b240 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1b250 0a 20 20 7d 0a 20 20 70 56 61 72 20 3d 20 54 63 . }. pVar = Tc
1b260 6c 5f 47 65 74 56 61 72 32 45 78 28 69 6e 74 65 l_GetVar2Ex(inte
1b270 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
1b280 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 30 2c 20 54 g(objv[1]), 0, T
1b290 43 4c 5f 4c 45 41 56 45 5f 45 52 52 5f 4d 53 47 CL_LEAVE_ERR_MSG
1b2a0 29 3b 0a 20 20 69 66 28 20 70 56 61 72 3d 3d 30 );. if( pVar==0
1b2b0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
1b2c0 52 4f 52 3b 0a 20 20 69 66 28 20 70 56 61 72 2d ROR;. if( pVar-
1b2d0 3e 74 79 70 65 50 74 72 20 29 7b 0a 20 20 20 20 >typePtr ){.
1b2e0 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
1b2f0 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
1b300 53 74 72 69 6e 67 4f 62 6a 28 70 56 61 72 2d 3e StringObj(pVar->
1b310 74 79 70 65 50 74 72 2d 3e 6e 61 6d 65 2c 20 2d typePtr->name, -
1b320 31 29 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 1));. }. retur
1b330 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
1b340 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
1b350 65 33 5f 72 65 6c 65 61 73 65 5f 6d 65 6d 6f 72 e3_release_memor
1b360 79 20 3f 4e 3f 0a 2a 2a 0a 2a 2a 20 41 74 74 65 y ?N?.**.** Atte
1b370 6d 70 74 20 74 6f 20 72 65 6c 65 61 73 65 20 6d mpt to release m
1b380 65 6d 6f 72 79 20 63 75 72 72 65 6e 74 6c 79 20 emory currently
1b390 68 65 6c 64 20 62 75 74 20 6e 6f 74 20 61 63 74 held but not act
1b3a0 75 61 6c 6c 79 20 72 65 71 75 69 72 65 64 2e 0a ually required..
1b3b0 2a 2a 20 54 68 65 20 69 6e 74 65 67 65 72 20 4e ** The integer N
1b3c0 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f is the number o
1b3d0 66 20 62 79 74 65 73 20 77 65 20 61 72 65 20 74 f bytes we are t
1b3e0 72 79 69 6e 67 20 74 6f 20 72 65 6c 65 61 73 65 rying to release
1b3f0 2e 20 20 54 68 65 20 0a 2a 2a 20 72 65 74 75 72 . The .** retur
1b400 6e 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 61 n value is the a
1b410 6d 6f 75 6e 74 20 6f 66 20 6d 65 6d 6f 72 79 20 mount of memory
1b420 61 63 74 75 61 6c 6c 79 20 72 65 6c 65 61 73 65 actually release
1b430 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 d..*/.static int
1b440 20 74 65 73 74 5f 72 65 6c 65 61 73 65 5f 6d 65 test_release_me
1b450 6d 6f 72 79 28 0a 20 20 76 6f 69 64 20 2a 20 63 mory(. void * c
1b460 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
1b470 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1b480 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
1b490 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
1b4a0 6a 76 5b 5d 0a 29 7b 0a 23 69 66 20 64 65 66 69 jv[].){.#if defi
1b4b0 6e 65 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c ned(SQLITE_ENABL
1b4c0 45 5f 4d 45 4d 4f 52 59 5f 4d 41 4e 41 47 45 4d E_MEMORY_MANAGEM
1b4d0 45 4e 54 29 20 26 26 20 21 64 65 66 69 6e 65 64 ENT) && !defined
1b4e0 28 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 49 53 (SQLITE_OMIT_DIS
1b4f0 4b 49 4f 29 0a 20 20 69 6e 74 20 4e 3b 0a 20 20 KIO). int N;.
1b500 69 6e 74 20 61 6d 74 3b 0a 20 20 69 66 28 20 6f int amt;. if( o
1b510 62 6a 63 21 3d 31 20 26 26 20 6f 62 6a 63 21 3d bjc!=1 && objc!=
1b520 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 2 ){. Tcl_Wro
1b530 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
1b540 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 4e 3f 22 , 1, objv, "?N?"
1b550 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1b560 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
1b570 66 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 f( objc==2 ){.
1b580 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
1b590 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
1b5a0 6f 62 6a 76 5b 31 5d 2c 20 26 4e 29 20 29 20 72 objv[1], &N) ) r
1b5b0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1b5c0 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 4e 20 . }else{. N
1b5d0 3d 20 2d 31 3b 0a 20 20 7d 0a 20 20 61 6d 74 20 = -1;. }. amt
1b5e0 3d 20 73 71 6c 69 74 65 33 5f 72 65 6c 65 61 73 = sqlite3_releas
1b5f0 65 5f 6d 65 6d 6f 72 79 28 4e 29 3b 0a 20 20 54 e_memory(N);. T
1b600 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
1b610 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 interp, Tcl_NewI
1b620 6e 74 4f 62 6a 28 61 6d 74 29 29 3b 0a 23 65 6e ntObj(amt));.#en
1b630 64 69 66 0a 20 20 72 65 74 75 72 6e 20 54 43 4c dif. return TCL
1b640 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
1b650 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 73 6f age: sqlite3_so
1b660 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 20 3f 4e ft_heap_limit ?N
1b670 3f 0a 2a 2a 0a 2a 2a 20 51 75 65 72 79 20 6f 72 ?.**.** Query or
1b680 20 73 65 74 20 74 68 65 20 73 6f 66 74 20 68 65 set the soft he
1b690 61 70 20 6c 69 6d 69 74 20 66 6f 72 20 74 68 65 ap limit for the
1b6a0 20 63 75 72 72 65 6e 74 20 74 68 72 65 61 64 2e current thread.
1b6b0 20 20 54 68 65 0a 2a 2a 20 6c 69 6d 69 74 20 69 The.** limit i
1b6c0 73 20 6f 6e 6c 79 20 63 68 61 6e 67 65 64 20 69 s only changed i
1b6d0 66 20 74 68 65 20 4e 20 69 73 20 70 72 65 73 65 f the N is prese
1b6e0 6e 74 2e 20 20 54 68 65 20 70 72 65 76 69 6f 75 nt. The previou
1b6f0 73 20 6c 69 6d 69 74 0a 2a 2a 20 69 73 20 72 65 s limit.** is re
1b700 74 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 turned..*/.stati
1b710 63 20 69 6e 74 20 74 65 73 74 5f 73 6f 66 74 5f c int test_soft_
1b720 68 65 61 70 5f 6c 69 6d 69 74 28 0a 20 20 76 6f heap_limit(. vo
1b730 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
1b740 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1b750 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
1b760 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
1b770 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
1b780 73 74 61 74 69 63 20 69 6e 74 20 73 6f 66 74 48 static int softH
1b790 65 61 70 4c 69 6d 69 74 20 3d 20 30 3b 0a 20 20 eapLimit = 0;.
1b7a0 69 6e 74 20 61 6d 74 3b 0a 20 20 69 66 28 20 6f int amt;. if( o
1b7b0 62 6a 63 21 3d 31 20 26 26 20 6f 62 6a 63 21 3d bjc!=1 && objc!=
1b7c0 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 2 ){. Tcl_Wro
1b7d0 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
1b7e0 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 4e 3f 22 , 1, objv, "?N?"
1b7f0 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1b800 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 61 L_ERROR;. }. a
1b810 6d 74 20 3d 20 73 6f 66 74 48 65 61 70 4c 69 6d mt = softHeapLim
1b820 69 74 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d it;. if( objc==
1b830 32 20 29 7b 0a 20 20 20 20 69 6e 74 20 4e 3b 0a 2 ){. int N;.
1b840 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 if( Tcl_GetI
1b850 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
1b860 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 4e 29 20 29 , objv[1], &N) )
1b870 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1b880 52 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73 R;. sqlite3_s
1b890 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 28 4e oft_heap_limit(N
1b8a0 29 3b 0a 20 20 20 20 73 6f 66 74 48 65 61 70 4c );. softHeapL
1b8b0 69 6d 69 74 20 3d 20 4e 3b 0a 20 20 7d 0a 20 20 imit = N;. }.
1b8c0 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
1b8d0 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
1b8e0 49 6e 74 4f 62 6a 28 61 6d 74 29 29 3b 0a 20 20 IntObj(amt));.
1b8f0 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
1b900 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
1b910 20 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f 74 sqlite3_clear_t
1b920 73 64 5f 6d 65 6d 64 65 62 75 67 0a 2a 2a 0a 2a sd_memdebug.**.*
1b930 2a 20 43 6c 65 61 72 20 61 6c 6c 20 6f 66 20 74 * Clear all of t
1b940 68 65 20 4d 45 4d 44 45 42 55 47 20 69 6e 66 6f he MEMDEBUG info
1b950 72 6d 61 74 69 6f 6e 20 6f 75 74 20 6f 66 20 74 rmation out of t
1b960 68 72 65 61 64 2d 73 70 65 63 69 66 69 63 20 64 hread-specific d
1b970 61 74 61 2e 0a 2a 2a 20 54 68 69 73 20 77 69 6c ata..** This wil
1b980 6c 20 61 6c 6c 6f 77 20 69 74 20 74 6f 20 62 65 l allow it to be
1b990 20 64 65 61 6c 6c 6f 63 61 74 65 64 2e 0a 2a 2f deallocated..*/
1b9a0 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
1b9b0 5f 63 6c 65 61 72 5f 74 73 64 5f 6d 65 6d 64 65 _clear_tsd_memde
1b9c0 62 75 67 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c bug(. void * cl
1b9d0 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
1b9e0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
1b9f0 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
1ba00 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
1ba10 76 5b 5d 0a 29 7b 0a 20 20 72 65 74 75 72 6e 20 v[].){. return
1ba20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
1ba30 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 Usage: sqlite
1ba40 33 5f 74 73 64 5f 72 65 6c 65 61 73 65 0a 2a 2a 3_tsd_release.**
1ba50 0a 2a 2a 20 43 61 6c 6c 20 73 71 6c 69 74 65 33 .** Call sqlite3
1ba60 52 65 6c 65 61 73 65 54 68 72 65 61 64 44 61 74 ReleaseThreadDat
1ba70 61 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 a..*/.static int
1ba80 20 74 65 73 74 5f 74 73 64 5f 72 65 6c 65 61 73 test_tsd_releas
1ba90 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 e(. void * clie
1baa0 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
1bab0 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
1bac0 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
1bad0 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
1bae0 5d 0a 29 7b 0a 20 20 72 65 74 75 72 6e 20 54 43 ].){. return TC
1baf0 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
1bb00 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f sage: sqlite3_
1bb10 74 68 72 65 61 64 5f 63 6c 65 61 6e 75 70 0a 2a thread_cleanup.*
1bb20 2a 0a 2a 2a 20 43 61 6c 6c 20 74 68 65 20 73 71 *.** Call the sq
1bb30 6c 69 74 65 33 5f 74 68 72 65 61 64 5f 63 6c 65 lite3_thread_cle
1bb40 61 6e 75 70 20 41 50 49 2e 0a 2a 2f 0a 73 74 61 anup API..*/.sta
1bb50 74 69 63 20 69 6e 74 20 74 65 73 74 5f 74 68 72 tic int test_thr
1bb60 65 61 64 5f 63 6c 65 61 6e 75 70 28 0a 20 20 76 ead_cleanup(. v
1bb70 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
1bb80 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
1bb90 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
1bba0 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
1bbb0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
1bbc0 20 73 71 6c 69 74 65 33 5f 74 68 72 65 61 64 5f sqlite3_thread_
1bbd0 63 6c 65 61 6e 75 70 28 29 3b 0a 20 20 72 65 74 cleanup();. ret
1bbe0 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a urn TCL_OK;.}...
1bbf0 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 /*.** Usage: s
1bc00 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 72 65 66 qlite3_pager_ref
1bc10 63 6f 75 6e 74 73 20 20 44 42 0a 2a 2a 0a 2a 2a counts DB.**.**
1bc20 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f Return a list o
1bc30 66 20 6e 75 6d 62 65 72 73 20 77 68 69 63 68 20 f numbers which
1bc40 61 72 65 20 74 68 65 20 50 61 67 65 72 52 65 66 are the PagerRef
1bc50 63 6f 75 6e 74 20 66 6f 72 20 61 6c 6c 0a 2a 2a count for all.**
1bc60 20 70 61 67 65 72 73 20 6f 6e 20 65 61 63 68 20 pagers on each
1bc70 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 database connect
1bc80 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ion..*/.static i
1bc90 6e 74 20 74 65 73 74 5f 70 61 67 65 72 5f 72 65 nt test_pager_re
1bca0 66 63 6f 75 6e 74 73 28 0a 20 20 76 6f 69 64 20 fcounts(. void
1bcb0 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
1bcc0 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
1bcd0 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
1bce0 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
1bcf0 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
1bd00 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 ite3 *db;. int
1bd10 69 3b 0a 20 20 69 6e 74 20 76 2c 20 2a 61 3b 0a i;. int v, *a;.
1bd20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 73 75 Tcl_Obj *pResu
1bd30 6c 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 lt;.. if( objc!
1bd40 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
1bd50 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1bd60 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
1bd70 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
1bd80 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
1bd90 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
1bda0 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 44 42 22 jv[0], 0), " DB"
1bdb0 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
1bdc0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
1bdd0 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
1bde0 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
1bdf0 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
1be00 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ), &db) ) return
1be10 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 70 52 TCL_ERROR;. pR
1be20 65 73 75 6c 74 20 3d 20 54 63 6c 5f 4e 65 77 4f esult = Tcl_NewO
1be30 62 6a 28 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b bj();. for(i=0;
1be40 20 69 3c 64 62 2d 3e 6e 44 62 3b 20 69 2b 2b 29 i<db->nDb; i++)
1be50 7b 0a 20 20 20 20 69 66 28 20 64 62 2d 3e 61 44 {. if( db->aD
1be60 62 5b 69 5d 2e 70 42 74 3d 3d 30 20 29 7b 0a 20 b[i].pBt==0 ){.
1be70 20 20 20 20 20 76 20 3d 20 2d 31 3b 0a 20 20 20 v = -1;.
1be80 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 73 71 }else{. sq
1be90 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 lite3_mutex_ente
1bea0 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 r(db->mutex);.
1beb0 20 20 20 20 61 20 3d 20 73 71 6c 69 74 65 33 50 a = sqlite3P
1bec0 61 67 65 72 53 74 61 74 73 28 73 71 6c 69 74 65 agerStats(sqlite
1bed0 33 42 74 72 65 65 50 61 67 65 72 28 64 62 2d 3e 3BtreePager(db->
1bee0 61 44 62 5b 69 5d 2e 70 42 74 29 29 3b 0a 20 20 aDb[i].pBt));.
1bef0 20 20 20 20 76 20 3d 20 61 5b 30 5d 3b 0a 20 20 v = a[0];.
1bf00 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 sqlite3_mute
1bf10 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 x_leave(db->mute
1bf20 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 x);. }. Tc
1bf30 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1bf40 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 73 75 6c lement(0, pResul
1bf50 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a t, Tcl_NewIntObj
1bf60 28 76 29 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f (v));. }. Tcl_
1bf70 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
1bf80 65 72 70 2c 20 70 52 65 73 75 6c 74 29 3b 0a 20 erp, pResult);.
1bf90 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
1bfa0 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 }.../*.** tclcmd
1bfb0 3a 20 20 20 77 6f 72 6b 69 6e 67 5f 36 34 62 69 : working_64bi
1bfc0 74 5f 69 6e 74 0a 2a 2a 0a 2a 2a 20 53 6f 6d 65 t_int.**.** Some
1bfd0 20 54 43 4c 20 62 75 69 6c 64 73 20 28 65 78 3a TCL builds (ex:
1bfe0 20 63 79 67 77 69 6e 29 20 64 6f 20 6e 6f 74 20 cygwin) do not
1bff0 73 75 70 70 6f 72 74 20 36 34 2d 62 69 74 20 69 support 64-bit i
1c000 6e 74 65 67 65 72 73 2e 20 20 54 68 69 73 0a 2a ntegers. This.*
1c010 2a 20 6c 65 61 64 73 20 74 6f 20 61 20 6e 75 6d * leads to a num
1c020 62 65 72 20 6f 66 20 74 65 73 74 20 66 61 69 6c ber of test fail
1c030 75 72 65 73 2e 20 20 54 68 65 20 70 72 65 73 65 ures. The prese
1c040 6e 74 20 63 6f 6d 6d 61 6e 64 20 63 68 65 63 6b nt command check
1c050 73 20 74 68 65 0a 2a 2a 20 54 43 4c 20 62 75 69 s the.** TCL bui
1c060 6c 64 20 74 6f 20 73 65 65 20 77 68 65 74 68 65 ld to see whethe
1c070 72 20 6f 72 20 6e 6f 74 20 69 74 20 73 75 70 70 r or not it supp
1c080 6f 72 74 73 20 36 34 2d 62 69 74 20 69 6e 74 65 orts 64-bit inte
1c090 67 65 72 73 2e 20 20 49 74 0a 2a 2a 20 72 65 74 gers. It.** ret
1c0a0 75 72 6e 73 20 54 52 55 45 20 69 66 20 69 74 20 urns TRUE if it
1c0b0 64 6f 65 73 20 61 6e 64 20 46 41 4c 53 45 20 69 does and FALSE i
1c0c0 66 20 6e 6f 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 f not..**.** Thi
1c0d0 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 s command is use
1c0e0 64 20 74 6f 20 77 61 72 6e 20 75 73 65 72 73 20 d to warn users
1c0f0 74 68 61 74 20 74 68 65 69 72 20 54 43 4c 20 62 that their TCL b
1c100 75 69 6c 64 20 69 73 20 64 65 66 65 63 74 69 76 uild is defectiv
1c110 65 0a 2a 2a 20 61 6e 64 20 74 68 61 74 20 74 68 e.** and that th
1c120 65 20 65 72 72 6f 72 73 20 74 68 65 79 20 61 72 e errors they ar
1c130 65 20 73 65 65 69 6e 67 20 69 6e 20 74 68 65 20 e seeing in the
1c140 74 65 73 74 20 73 63 72 69 70 74 73 20 6d 69 67 test scripts mig
1c150 68 74 20 62 65 0a 2a 2a 20 61 20 72 65 73 75 6c ht be.** a resul
1c160 74 20 6f 66 20 74 68 65 69 72 20 64 65 66 65 63 t of their defec
1c170 74 69 76 65 20 54 43 4c 20 72 61 74 68 65 72 20 tive TCL rather
1c180 74 68 61 6e 20 70 72 6f 62 6c 65 6d 73 20 69 6e than problems in
1c190 20 53 51 4c 69 74 65 2e 0a 2a 2f 0a 73 74 61 74 SQLite..*/.stat
1c1a0 69 63 20 69 6e 74 20 77 6f 72 6b 69 6e 67 5f 36 ic int working_6
1c1b0 34 62 69 74 5f 69 6e 74 28 0a 20 20 43 6c 69 65 4bit_int(. Clie
1c1c0 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
1c1d0 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f a, /* Pointer to
1c1e0 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f sqlite3_enable_
1c1f0 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a XXX function */.
1c200 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
1c210 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
1c220 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
1c230 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
1c240 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
1c250 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 nt objc,
1c260 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
1c270 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
1c280 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
1c290 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d objv[] /* Comm
1c2a0 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f and arguments */
1c2b0 0a 29 7b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 .){. Tcl_Obj *p
1c2c0 54 65 73 74 4f 62 6a 3b 0a 20 20 69 6e 74 20 77 TestObj;. int w
1c2d0 6f 72 6b 69 6e 67 20 3d 20 30 3b 0a 0a 20 20 70 orking = 0;.. p
1c2e0 54 65 73 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 TestObj = Tcl_Ne
1c2f0 77 57 69 64 65 49 6e 74 4f 62 6a 28 31 30 30 30 wWideIntObj(1000
1c300 30 30 30 2a 28 69 36 34 29 31 32 33 34 35 36 37 000*(i64)1234567
1c310 38 39 30 29 3b 0a 20 20 77 6f 72 6b 69 6e 67 20 890);. working
1c320 3d 20 73 74 72 63 6d 70 28 54 63 6c 5f 47 65 74 = strcmp(Tcl_Get
1c330 53 74 72 69 6e 67 28 70 54 65 73 74 4f 62 6a 29 String(pTestObj)
1c340 2c 20 22 31 32 33 34 35 36 37 38 39 30 30 30 30 , "1234567890000
1c350 30 30 30 22 29 3d 3d 30 3b 0a 20 20 54 63 6c 5f 000")==0;. Tcl_
1c360 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 54 65 DecrRefCount(pTe
1c370 73 74 4f 62 6a 29 3b 0a 20 20 54 63 6c 5f 53 65 stObj);. Tcl_Se
1c380 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
1c390 70 2c 20 54 63 6c 5f 4e 65 77 42 6f 6f 6c 65 61 p, Tcl_NewBoolea
1c3a0 6e 4f 62 6a 28 77 6f 72 6b 69 6e 67 29 29 3b 0a nObj(working));.
1c3b0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1c3c0 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 67 69 73 .}.../*.** Regis
1c3d0 74 65 72 20 63 6f 6d 6d 61 6e 64 73 20 77 69 74 ter commands wit
1c3e0 68 20 74 68 65 20 54 43 4c 20 69 6e 74 65 72 70 h the TCL interp
1c3f0 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e 74 20 53 71 reter..*/.int Sq
1c400 6c 69 74 65 74 65 73 74 31 5f 49 6e 69 74 28 54 litetest1_Init(T
1c410 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1c420 70 29 7b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 p){. extern int
1c430 20 73 71 6c 69 74 65 33 5f 73 65 61 72 63 68 5f sqlite3_search_
1c440 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 count;. extern
1c450 69 6e 74 20 73 71 6c 69 74 65 33 5f 69 6e 74 65 int sqlite3_inte
1c460 72 72 75 70 74 5f 63 6f 75 6e 74 3b 0a 20 20 65 rrupt_count;. e
1c470 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 xtern int sqlite
1c480 33 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 3_open_file_coun
1c490 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 t;. extern int
1c4a0 73 71 6c 69 74 65 33 5f 73 6f 72 74 5f 63 6f 75 sqlite3_sort_cou
1c4b0 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 nt;. extern int
1c4c0 20 73 71 6c 69 74 65 33 5f 63 75 72 72 65 6e 74 sqlite3_current
1c4d0 5f 74 69 6d 65 3b 0a 20 20 65 78 74 65 72 6e 20 _time;. extern
1c4e0 69 6e 74 20 73 71 6c 69 74 65 33 5f 6d 61 78 5f int sqlite3_max_
1c4f0 62 6c 6f 62 73 69 7a 65 3b 0a 20 20 65 78 74 65 blobsize;. exte
1c500 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 42 74 rn int sqlite3Bt
1c510 72 65 65 53 68 61 72 65 64 43 61 63 68 65 52 65 reeSharedCacheRe
1c520 70 6f 72 74 28 76 6f 69 64 2a 2c 0a 20 20 20 20 port(void*,.
1c530 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1c540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1c550 20 20 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 Tcl_Interp
1c560 2a 2c 69 6e 74 2c 54 63 6c 5f 4f 62 6a 2a 43 4f *,int,Tcl_Obj*CO
1c570 4e 53 54 2a 29 3b 0a 20 20 73 74 61 74 69 63 20 NST*);. static
1c580 73 74 72 75 63 74 20 7b 0a 20 20 20 20 20 63 68 struct {. ch
1c590 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 ar *zName;.
1c5a0 54 63 6c 5f 43 6d 64 50 72 6f 63 20 2a 78 50 72 Tcl_CmdProc *xPr
1c5b0 6f 63 3b 0a 20 20 7d 20 61 43 6d 64 5b 5d 20 3d oc;. } aCmd[] =
1c5c0 20 7b 0a 20 20 20 20 20 7b 20 22 64 62 5f 65 6e {. { "db_en
1c5d0 74 65 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 ter",
1c5e0 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f (Tcl_
1c5f0 43 6d 64 50 72 6f 63 2a 29 64 62 5f 65 6e 74 65 CmdProc*)db_ente
1c600 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r
1c610 7d 2c 0a 20 20 20 20 20 7b 20 22 64 62 5f 6c 65 },. { "db_le
1c620 61 76 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 ave",
1c630 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f (Tcl_
1c640 43 6d 64 50 72 6f 63 2a 29 64 62 5f 6c 65 61 76 CmdProc*)db_leav
1c650 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e
1c660 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1c670 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 22 2c e3_mprintf_int",
1c680 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f (Tcl_
1c690 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 CmdProc*)sqlite3
1c6a0 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 20 20 20 20 _mprintf_int
1c6b0 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1c6c0 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 36 34 e3_mprintf_int64
1c6d0 22 2c 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f ", (Tcl_
1c6e0 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 CmdProc*)sqlite3
1c6f0 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 36 34 20 20 _mprintf_int64
1c700 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1c710 65 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 22 2c e3_mprintf_str",
1c720 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f (Tcl_
1c730 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 CmdProc*)sqlite3
1c740 5f 6d 70 72 69 6e 74 66 5f 73 74 72 20 20 20 20 _mprintf_str
1c750 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1c760 65 33 5f 73 6e 70 72 69 6e 74 66 5f 73 74 72 22 e3_snprintf_str"
1c770 2c 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f , (Tcl_
1c780 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 CmdProc*)sqlite3
1c790 5f 73 6e 70 72 69 6e 74 66 5f 73 74 72 20 20 20 _snprintf_str
1c7a0 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1c7b0 65 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 6f 6e e3_mprintf_stron
1c7c0 6c 79 22 2c 20 20 20 20 20 20 20 28 54 63 6c 5f ly", (Tcl_
1c7d0 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 CmdProc*)sqlite3
1c7e0 5f 6d 70 72 69 6e 74 66 5f 73 74 72 6f 6e 6c 79 _mprintf_stronly
1c7f0 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1c800 65 33 5f 6d 70 72 69 6e 74 66 5f 64 6f 75 62 6c e3_mprintf_doubl
1c810 65 22 2c 20 20 20 20 20 20 20 20 28 54 63 6c 5f e", (Tcl_
1c820 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 CmdProc*)sqlite3
1c830 5f 6d 70 72 69 6e 74 66 5f 64 6f 75 62 6c 65 20 _mprintf_double
1c840 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1c850 65 33 5f 6d 70 72 69 6e 74 66 5f 73 63 61 6c 65 e3_mprintf_scale
1c860 64 22 2c 20 20 20 20 20 20 20 20 28 54 63 6c 5f d", (Tcl_
1c870 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 CmdProc*)sqlite3
1c880 5f 6d 70 72 69 6e 74 66 5f 73 63 61 6c 65 64 20 _mprintf_scaled
1c890 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1c8a0 65 33 5f 6d 70 72 69 6e 74 66 5f 68 65 78 64 6f e3_mprintf_hexdo
1c8b0 75 62 6c 65 22 2c 20 20 20 28 54 63 6c 5f 43 6d uble", (Tcl_Cm
1c8c0 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d dProc*)sqlite3_m
1c8d0 70 72 69 6e 74 66 5f 68 65 78 64 6f 75 62 6c 65 printf_hexdouble
1c8e0 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1c8f0 65 33 5f 6d 70 72 69 6e 74 66 5f 7a 5f 74 65 73 e3_mprintf_z_tes
1c900 74 22 2c 20 20 20 20 20 20 20 20 28 54 63 6c 5f t", (Tcl_
1c910 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 6d 70 CmdProc*)test_mp
1c920 72 69 6e 74 66 5f 7a 20 20 20 20 20 20 20 20 7d rintf_z }
1c930 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
1c940 33 5f 6d 70 72 69 6e 74 66 5f 6e 5f 74 65 73 74 3_mprintf_n_test
1c950 22 2c 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 ", (Tcl_C
1c960 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 6d 70 72 mdProc*)test_mpr
1c970 69 6e 74 66 5f 6e 20 20 20 20 20 20 20 20 7d 2c intf_n },
1c980 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
1c990 5f 73 6e 70 72 69 6e 74 66 5f 69 6e 74 22 2c 20 _snprintf_int",
1c9a0 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d (Tcl_Cm
1c9b0 64 50 72 6f 63 2a 29 74 65 73 74 5f 73 6e 70 72 dProc*)test_snpr
1c9c0 69 6e 74 66 5f 69 6e 74 20 20 20 20 20 7d 2c 0a intf_int },.
1c9d0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
1c9e0 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 last_insert_rowi
1c9f0 64 22 2c 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 d", (Tcl_Cmd
1ca00 50 72 6f 63 2a 29 74 65 73 74 5f 6c 61 73 74 5f Proc*)test_last_
1ca10 72 6f 77 69 64 20 20 20 20 20 20 20 7d 2c 0a 20 rowid },.
1ca20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 { "sqlite3_e
1ca30 78 65 63 5f 70 72 69 6e 74 66 22 2c 20 20 20 20 xec_printf",
1ca40 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
1ca50 72 6f 63 2a 29 74 65 73 74 5f 65 78 65 63 5f 70 roc*)test_exec_p
1ca60 72 69 6e 74 66 20 20 20 20 20 20 7d 2c 0a 20 20 rintf },.
1ca70 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 78 { "sqlite3_ex
1ca80 65 63 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 ec",
1ca90 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
1caa0 6f 63 2a 29 74 65 73 74 5f 65 78 65 63 20 20 20 oc*)test_exec
1cab0 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 },.
1cac0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 78 65 { "sqlite3_exe
1cad0 63 5f 6e 72 22 2c 20 20 20 20 20 20 20 20 20 20 c_nr",
1cae0 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f (Tcl_CmdPro
1caf0 63 2a 29 74 65 73 74 5f 65 78 65 63 5f 6e 72 20 c*)test_exec_nr
1cb00 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
1cb10 20 7b 20 22 73 71 6c 69 74 65 33 5f 67 65 74 5f { "sqlite3_get_
1cb20 74 61 62 6c 65 5f 70 72 69 6e 74 66 22 2c 20 20 table_printf",
1cb30 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 (Tcl_CmdProc
1cb40 2a 29 74 65 73 74 5f 67 65 74 5f 74 61 62 6c 65 *)test_get_table
1cb50 5f 70 72 69 6e 74 66 20 7d 2c 0a 20 20 20 20 20 _printf },.
1cb60 7b 20 22 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 { "sqlite3_close
1cb70 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
1cb80 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
1cb90 29 73 71 6c 69 74 65 5f 74 65 73 74 5f 63 6c 6f )sqlite_test_clo
1cba0 73 65 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b se },. {
1cbb0 20 22 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 "sqlite3_create
1cbc0 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 20 20 20 20 _function",
1cbd0 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
1cbe0 74 65 73 74 5f 63 72 65 61 74 65 5f 66 75 6e 63 test_create_func
1cbf0 74 69 6f 6e 20 20 7d 2c 0a 20 20 20 20 20 7b 20 tion },. {
1cc00 22 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f "sqlite3_create_
1cc10 61 67 67 72 65 67 61 74 65 22 2c 20 20 20 20 20 aggregate",
1cc20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 (Tcl_CmdProc*)t
1cc30 65 73 74 5f 63 72 65 61 74 65 5f 61 67 67 72 65 est_create_aggre
1cc40 67 61 74 65 20 7d 2c 0a 20 20 20 20 20 7b 20 22 gate },. { "
1cc50 73 71 6c 69 74 65 5f 72 65 67 69 73 74 65 72 5f sqlite_register_
1cc60 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 test_function",
1cc70 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 (Tcl_CmdProc*)te
1cc80 73 74 5f 72 65 67 69 73 74 65 72 5f 66 75 6e 63 st_register_func
1cc90 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
1cca0 71 6c 69 74 65 5f 61 62 6f 72 74 22 2c 20 20 20 qlite_abort",
1ccb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
1ccc0 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c Tcl_CmdProc*)sql
1ccd0 69 74 65 5f 61 62 6f 72 74 20 20 20 20 20 20 20 ite_abort
1cce0 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 },. { "sq
1ccf0 6c 69 74 65 5f 62 69 6e 64 22 2c 20 20 20 20 20 lite_bind",
1cd00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 (T
1cd10 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 cl_CmdProc*)test
1cd20 5f 62 69 6e 64 20 20 20 20 20 20 20 20 20 20 20 _bind
1cd30 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 62 72 65 },. { "bre
1cd40 61 6b 70 6f 69 6e 74 22 2c 20 20 20 20 20 20 20 akpoint",
1cd50 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
1cd60 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
1cd70 62 72 65 61 6b 70 6f 69 6e 74 20 20 20 20 20 20 breakpoint
1cd80 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
1cd90 74 65 33 5f 6b 65 79 22 2c 20 20 20 20 20 20 20 te3_key",
1cda0 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c (Tcl
1cdb0 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 6b _CmdProc*)test_k
1cdc0 65 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ey
1cdd0 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1cde0 65 33 5f 72 65 6b 65 79 22 2c 20 20 20 20 20 20 e3_rekey",
1cdf0 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f (Tcl_
1ce00 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 72 65 CmdProc*)test_re
1ce10 6b 65 79 20 20 20 20 20 20 20 20 20 20 20 20 7d key }
1ce20 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
1ce30 5f 73 65 74 5f 6d 61 67 69 63 22 2c 20 20 20 20 _set_magic",
1ce40 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 (Tcl_C
1ce50 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 5f 73 mdProc*)sqlite_s
1ce60 65 74 5f 6d 61 67 69 63 20 20 20 20 20 20 7d 2c et_magic },
1ce70 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
1ce80 5f 69 6e 74 65 72 72 75 70 74 22 2c 20 20 20 20 _interrupt",
1ce90 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d (Tcl_Cm
1cea0 64 50 72 6f 63 2a 29 74 65 73 74 5f 69 6e 74 65 dProc*)test_inte
1ceb0 72 72 75 70 74 20 20 20 20 20 20 20 20 7d 2c 0a rrupt },.
1cec0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f 64 { "sqlite_d
1ced0 65 6c 65 74 65 5f 66 75 6e 63 74 69 6f 6e 22 2c elete_function",
1cee0 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
1cef0 50 72 6f 63 2a 29 64 65 6c 65 74 65 5f 66 75 6e Proc*)delete_fun
1cf00 63 74 69 6f 6e 20 20 20 20 20 20 20 7d 2c 0a 20 ction },.
1cf10 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f 64 65 { "sqlite_de
1cf20 6c 65 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 22 2c lete_collation",
1cf30 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
1cf40 72 6f 63 2a 29 64 65 6c 65 74 65 5f 63 6f 6c 6c roc*)delete_coll
1cf50 61 74 69 6f 6e 20 20 20 20 20 20 7d 2c 0a 20 20 ation },.
1cf60 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 67 65 { "sqlite3_ge
1cf70 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 22 2c 20 20 t_autocommit",
1cf80 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
1cf90 6f 63 2a 29 67 65 74 5f 61 75 74 6f 63 6f 6d 6d oc*)get_autocomm
1cfa0 69 74 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 it },.
1cfb0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 74 61 { "sqlite3_sta
1cfc0 63 6b 5f 75 73 65 64 22 2c 20 20 20 20 20 20 20 ck_used",
1cfd0 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f (Tcl_CmdPro
1cfe0 63 2a 29 74 65 73 74 5f 73 74 61 63 6b 5f 75 73 c*)test_stack_us
1cff0 65 64 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 ed },.
1d000 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 75 73 79 { "sqlite3_busy
1d010 5f 74 69 6d 65 6f 75 74 22 2c 20 20 20 20 20 20 _timeout",
1d020 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 (Tcl_CmdProc
1d030 2a 29 74 65 73 74 5f 62 75 73 79 5f 74 69 6d 65 *)test_busy_time
1d040 6f 75 74 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 out },.
1d050 7b 20 22 70 72 69 6e 74 66 22 2c 20 20 20 20 20 { "printf",
1d060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d070 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
1d080 29 74 65 73 74 5f 70 72 69 6e 74 66 20 20 20 20 )test_printf
1d090 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b },. {
1d0a0 20 22 73 71 6c 69 74 65 33 5f 69 6f 5f 74 72 61 "sqlite3_io_tra
1d0b0 63 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 ce",
1d0c0 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
1d0d0 74 65 73 74 5f 69 6f 5f 74 72 61 63 65 20 20 20 test_io_trace
1d0e0 20 20 20 20 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 },. };.
1d0f0 73 74 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a static struct {.
1d100 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 char *zName
1d110 3b 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d ;. Tcl_ObjCm
1d120 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 dProc *xProc;.
1d130 20 20 20 76 6f 69 64 20 2a 63 6c 69 65 6e 74 44 void *clientD
1d140 61 74 61 3b 0a 20 20 7d 20 61 4f 62 6a 43 6d 64 ata;. } aObjCmd
1d150 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 7b 20 22 73 [] = {. { "s
1d160 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f qlite3_connectio
1d170 6e 5f 70 6f 69 6e 74 65 72 22 2c 20 20 20 20 67 n_pointer", g
1d180 65 74 5f 73 71 6c 69 74 65 5f 70 6f 69 6e 74 65 et_sqlite_pointe
1d190 72 2c 20 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 r, 0 },. { "
1d1a0 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 sqlite3_bind_int
1d1b0 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
1d1c0 74 65 73 74 5f 62 69 6e 64 5f 69 6e 74 2c 20 20 test_bind_int,
1d1d0 20 20 20 20 30 20 7d 2c 0a 20 20 20 20 20 7b 20 0 },. {
1d1e0 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 7a 65 "sqlite3_bind_ze
1d1f0 72 6f 62 6c 6f 62 22 2c 20 20 20 20 20 20 20 20 roblob",
1d200 20 74 65 73 74 5f 62 69 6e 64 5f 7a 65 72 6f 62 test_bind_zerob
1d210 6c 6f 62 2c 20 30 20 7d 2c 0a 20 20 20 20 20 7b lob, 0 },. {
1d220 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 "sqlite3_bind_i
1d230 6e 74 36 34 22 2c 20 20 20 20 20 20 20 20 20 20 nt64",
1d240 20 20 74 65 73 74 5f 62 69 6e 64 5f 69 6e 74 36 test_bind_int6
1d250 34 2c 20 20 20 20 30 20 7d 2c 0a 20 20 20 20 20 4, 0 },.
1d260 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f { "sqlite3_bind_
1d270 64 6f 75 62 6c 65 22 2c 20 20 20 20 20 20 20 20 double",
1d280 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 64 6f 75 test_bind_dou
1d290 62 6c 65 2c 20 20 20 30 20 7d 2c 0a 20 20 20 20 ble, 0 },.
1d2a0 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 { "sqlite3_bind
1d2b0 5f 6e 75 6c 6c 22 2c 20 20 20 20 20 20 20 20 20 _null",
1d2c0 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 6e 75 test_bind_nu
1d2d0 6c 6c 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 ll ,0 },.
1d2e0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e { "sqlite3_bin
1d2f0 64 5f 74 65 78 74 22 2c 20 20 20 20 20 20 20 20 d_text",
1d300 20 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 74 test_bind_t
1d310 65 78 74 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 ext ,0 },.
1d320 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 { "sqlite3_bi
1d330 6e 64 5f 74 65 78 74 31 36 22 2c 20 20 20 20 20 nd_text16",
1d340 20 20 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f test_bind_
1d350 74 65 78 74 31 36 20 20 20 2c 30 20 7d 2c 0a 20 text16 ,0 },.
1d360 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 { "sqlite3_b
1d370 69 6e 64 5f 62 6c 6f 62 22 2c 20 20 20 20 20 20 ind_blob",
1d380 20 20 20 20 20 20 20 74 65 73 74 5f 62 69 6e 64 test_bind
1d390 5f 62 6c 6f 62 20 20 20 20 20 2c 30 20 7d 2c 0a _blob ,0 },.
1d3a0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
1d3b0 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 63 bind_parameter_c
1d3c0 6f 75 6e 74 22 2c 20 20 74 65 73 74 5f 62 69 6e ount", test_bin
1d3d0 64 5f 70 61 72 61 6d 65 74 65 72 5f 63 6f 75 6e d_parameter_coun
1d3e0 74 2c 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 t, 0},. { "s
1d3f0 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 61 qlite3_bind_para
1d400 6d 65 74 65 72 5f 6e 61 6d 65 22 2c 20 20 20 74 meter_name", t
1d410 65 73 74 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 est_bind_paramet
1d420 65 72 5f 6e 61 6d 65 2c 20 20 30 7d 2c 0a 20 20 er_name, 0},.
1d430 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 { "sqlite3_bi
1d440 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 69 6e 64 nd_parameter_ind
1d450 65 78 22 2c 20 20 74 65 73 74 5f 62 69 6e 64 5f ex", test_bind_
1d460 70 61 72 61 6d 65 74 65 72 5f 69 6e 64 65 78 2c parameter_index,
1d470 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0},. { "sql
1d480 69 74 65 33 5f 63 6c 65 61 72 5f 62 69 6e 64 69 ite3_clear_bindi
1d490 6e 67 73 22 2c 20 20 20 20 20 20 20 20 74 65 73 ngs", tes
1d4a0 74 5f 63 6c 65 61 72 5f 62 69 6e 64 69 6e 67 73 t_clear_bindings
1d4b0 2c 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 , 0},. { "sq
1d4c0 6c 69 74 65 33 5f 73 6c 65 65 70 22 2c 20 20 20 lite3_sleep",
1d4d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 te
1d4e0 73 74 5f 73 6c 65 65 70 2c 20 20 20 20 20 20 20 st_sleep,
1d4f0 20 20 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 0},. { "s
1d500 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 22 2c qlite3_errcode",
1d510 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
1d520 65 73 74 5f 65 72 72 63 6f 64 65 20 20 20 20 20 est_errcode
1d530 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
1d540 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 22 2c sqlite3_errmsg",
1d550 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d560 74 65 73 74 5f 65 72 72 6d 73 67 20 20 20 20 20 test_errmsg
1d570 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
1d580 22 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 31 "sqlite3_errmsg1
1d590 36 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 6",
1d5a0 20 74 65 73 74 5f 65 72 72 6d 73 67 31 36 20 20 test_errmsg16
1d5b0 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b ,0 },. {
1d5c0 20 22 73 71 6c 69 74 65 33 5f 6f 70 65 6e 22 2c "sqlite3_open",
1d5d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d5e0 20 20 74 65 73 74 5f 6f 70 65 6e 20 20 20 20 20 test_open
1d5f0 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 ,0 },.
1d600 7b 20 22 73 71 6c 69 74 65 33 5f 6f 70 65 6e 31 { "sqlite3_open1
1d610 36 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 6",
1d620 20 20 20 74 65 73 74 5f 6f 70 65 6e 31 36 20 20 test_open16
1d630 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 ,0 },.
1d640 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6d 70 { "sqlite3_comp
1d650 6c 65 74 65 31 36 22 2c 20 20 20 20 20 20 20 20 lete16",
1d660 20 20 20 20 74 65 73 74 5f 63 6f 6d 70 6c 65 74 test_complet
1d670 65 31 36 20 20 20 20 2c 30 20 7d 2c 0a 0a 20 20 e16 ,0 },..
1d680 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 70 72 { "sqlite3_pr
1d690 65 70 61 72 65 22 2c 20 20 20 20 20 20 20 20 20 epare",
1d6a0 20 20 20 20 20 20 74 65 73 74 5f 70 72 65 70 61 test_prepa
1d6b0 72 65 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 re ,0 },.
1d6c0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 70 { "sqlite3_p
1d6d0 72 65 70 61 72 65 31 36 22 2c 20 20 20 20 20 20 repare16",
1d6e0 20 20 20 20 20 20 20 74 65 73 74 5f 70 72 65 70 test_prep
1d6f0 61 72 65 31 36 20 20 20 20 20 2c 30 20 7d 2c 0a are16 ,0 },.
1d700 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
1d710 70 72 65 70 61 72 65 5f 76 32 22 2c 20 20 20 20 prepare_v2",
1d720 20 20 20 20 20 20 20 20 74 65 73 74 5f 70 72 65 test_pre
1d730 70 61 72 65 5f 76 32 20 20 20 20 2c 30 20 7d 2c pare_v2 ,0 },
1d740 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
1d750 5f 70 72 65 70 61 72 65 31 36 5f 76 32 22 2c 20 _prepare16_v2",
1d760 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 70 72 test_pr
1d770 65 70 61 72 65 31 36 5f 76 32 20 20 2c 30 20 7d epare16_v2 ,0 }
1d780 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
1d790 33 5f 66 69 6e 61 6c 69 7a 65 22 2c 20 20 20 20 3_finalize",
1d7a0 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 66 test_f
1d7b0 69 6e 61 6c 69 7a 65 20 20 20 20 20 20 2c 30 20 inalize ,0
1d7c0 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1d7d0 65 33 5f 72 65 73 65 74 22 2c 20 20 20 20 20 20 e3_reset",
1d7e0 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f test_
1d7f0 72 65 73 65 74 20 20 20 20 20 20 20 20 20 2c 30 reset ,0
1d800 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
1d810 74 65 33 5f 65 78 70 69 72 65 64 22 2c 20 20 20 te3_expired",
1d820 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
1d830 5f 65 78 70 69 72 65 64 20 20 20 20 20 20 20 2c _expired ,
1d840 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
1d850 69 74 65 33 5f 74 72 61 6e 73 66 65 72 5f 62 69 ite3_transfer_bi
1d860 6e 64 69 6e 67 73 22 2c 20 20 20 20 20 74 65 73 ndings", tes
1d870 74 5f 74 72 61 6e 73 66 65 72 5f 62 69 6e 64 20 t_transfer_bind
1d880 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
1d890 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 22 2c 20 lite3_changes",
1d8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 te
1d8b0 73 74 5f 63 68 61 6e 67 65 73 20 20 20 20 20 20 st_changes
1d8c0 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
1d8d0 71 6c 69 74 65 33 5f 73 74 65 70 22 2c 20 20 20 qlite3_step",
1d8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
1d8f0 65 73 74 5f 73 74 65 70 20 20 20 20 20 20 20 20 est_step
1d900 20 20 2c 30 20 7d 2c 0a 0a 20 20 20 20 20 7b 20 ,0 },.. {
1d910 22 73 71 6c 69 74 65 33 5f 72 65 6c 65 61 73 65 "sqlite3_release
1d920 5f 6d 65 6d 6f 72 79 22 2c 20 20 20 20 20 20 20 _memory",
1d930 20 74 65 73 74 5f 72 65 6c 65 61 73 65 5f 6d 65 test_release_me
1d940 6d 6f 72 79 2c 20 20 20 20 20 30 7d 2c 0a 20 20 mory, 0},.
1d950 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 6f { "sqlite3_so
1d960 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 22 2c 20 ft_heap_limit",
1d970 20 20 20 20 20 20 74 65 73 74 5f 73 6f 66 74 5f test_soft_
1d980 68 65 61 70 5f 6c 69 6d 69 74 2c 20 20 20 20 30 heap_limit, 0
1d990 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1d9a0 65 33 5f 63 6c 65 61 72 5f 74 73 64 5f 6d 65 6d e3_clear_tsd_mem
1d9b0 64 65 62 75 67 22 2c 20 20 20 20 74 65 73 74 5f debug", test_
1d9c0 63 6c 65 61 72 5f 74 73 64 5f 6d 65 6d 64 65 62 clear_tsd_memdeb
1d9d0 75 67 2c 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 ug, 0},. { "
1d9e0 73 71 6c 69 74 65 33 5f 74 73 64 5f 72 65 6c 65 sqlite3_tsd_rele
1d9f0 61 73 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 ase",
1da00 74 65 73 74 5f 74 73 64 5f 72 65 6c 65 61 73 65 test_tsd_release
1da10 2c 20 20 20 20 20 20 20 20 30 7d 2c 0a 20 20 20 , 0},.
1da20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 74 68 72 { "sqlite3_thr
1da30 65 61 64 5f 63 6c 65 61 6e 75 70 22 2c 20 20 20 ead_cleanup",
1da40 20 20 20 20 20 74 65 73 74 5f 74 68 72 65 61 64 test_thread
1da50 5f 63 6c 65 61 6e 75 70 2c 20 20 20 20 20 30 7d _cleanup, 0}
1da60 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
1da70 33 5f 70 61 67 65 72 5f 72 65 66 63 6f 75 6e 74 3_pager_refcount
1da80 73 22 2c 20 20 20 20 20 20 20 74 65 73 74 5f 70 s", test_p
1da90 61 67 65 72 5f 72 65 66 63 6f 75 6e 74 73 2c 20 ager_refcounts,
1daa0 20 20 20 30 7d 2c 0a 0a 20 20 20 20 20 7b 20 22 0},.. { "
1dab0 73 71 6c 69 74 65 33 5f 6c 6f 61 64 5f 65 78 74 sqlite3_load_ext
1dac0 65 6e 73 69 6f 6e 22 2c 20 20 20 20 20 20 20 20 ension",
1dad0 74 65 73 74 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 test_load_extens
1dae0 69 6f 6e 2c 20 20 20 20 20 30 7d 2c 0a 20 20 20 ion, 0},.
1daf0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 6e 61 { "sqlite3_ena
1db00 62 6c 65 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 ble_load_extensi
1db10 6f 6e 22 2c 20 74 65 73 74 5f 65 6e 61 62 6c 65 on", test_enable
1db20 5f 6c 6f 61 64 2c 20 20 20 20 20 20 20 20 30 7d _load, 0}
1db30 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
1db40 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 3_extended_resul
1db50 74 5f 63 6f 64 65 73 22 2c 20 74 65 73 74 5f 65 t_codes", test_e
1db60 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 xtended_result_c
1db70 6f 64 65 73 2c 20 30 7d 2c 0a 0a 20 20 20 20 20 odes, 0},..
1db80 2f 2a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d /* sqlite3_colum
1db90 6e 5f 2a 28 29 20 41 50 49 20 2a 2f 0a 20 20 20 n_*() API */.
1dba0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c { "sqlite3_col
1dbb0 75 6d 6e 5f 63 6f 75 6e 74 22 2c 20 20 20 20 20 umn_count",
1dbc0 20 20 20 20 20 74 65 73 74 5f 63 6f 6c 75 6d 6e test_column
1dbd0 5f 63 6f 75 6e 74 20 20 2c 30 20 7d 2c 0a 20 20 _count ,0 },.
1dbe0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 64 61 { "sqlite3_da
1dbf0 74 61 5f 63 6f 75 6e 74 22 2c 20 20 20 20 20 20 ta_count",
1dc00 20 20 20 20 20 20 74 65 73 74 5f 64 61 74 61 5f test_data_
1dc10 63 6f 75 6e 74 20 20 20 20 2c 30 20 7d 2c 0a 20 count ,0 },.
1dc20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 { "sqlite3_c
1dc30 6f 6c 75 6d 6e 5f 74 79 70 65 22 2c 20 20 20 20 olumn_type",
1dc40 20 20 20 20 20 20 20 74 65 73 74 5f 63 6f 6c 75 test_colu
1dc50 6d 6e 5f 74 79 70 65 20 20 20 2c 30 20 7d 2c 0a mn_type ,0 },.
1dc60 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
1dc70 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 22 2c 20 20 20 column_blob",
1dc80 20 20 20 20 20 20 20 20 74 65 73 74 5f 63 6f 6c test_col
1dc90 75 6d 6e 5f 62 6c 6f 62 20 20 20 2c 30 20 7d 2c umn_blob ,0 },
1dca0 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
1dcb0 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 6c 65 22 2c _column_double",
1dcc0 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 63 6f test_co
1dcd0 6c 75 6d 6e 5f 64 6f 75 62 6c 65 20 2c 30 20 7d lumn_double ,0 }
1dce0 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
1dcf0 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 36 34 22 2c 3_column_int64",
1dd00 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 63 test_c
1dd10 6f 6c 75 6d 6e 5f 69 6e 74 36 34 20 20 2c 30 20 olumn_int64 ,0
1dd20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1dd30 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 22 2c e3_column_text",
1dd40 20 20 20 20 20 20 20 74 65 73 74 5f 73 74 6d 74 test_stmt
1dd50 5f 75 74 66 38 2c 20 20 73 71 6c 69 74 65 33 5f _utf8, sqlite3_
1dd60 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 20 20 20 20 column_text
1dd70 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
1dd80 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 te3_column_declt
1dd90 79 70 65 22 2c 20 20 20 74 65 73 74 5f 73 74 6d ype", test_stm
1dda0 74 5f 75 74 66 38 2c 20 20 73 71 6c 69 74 65 33 t_utf8, sqlite3
1ddb0 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 _column_decltype
1ddc0 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c },. { "sql
1ddd0 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 ite3_column_name
1dde0 22 2c 20 20 20 20 20 20 20 74 65 73 74 5f 73 74 ", test_st
1ddf0 6d 74 5f 75 74 66 38 2c 20 20 73 71 6c 69 74 65 mt_utf8, sqlite
1de00 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 20 20 20 3_column_name
1de10 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 },. { "sq
1de20 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 lite3_column_int
1de30 22 2c 20 20 20 20 20 20 20 20 74 65 73 74 5f 73 ", test_s
1de40 74 6d 74 5f 69 6e 74 2c 20 20 20 73 71 6c 69 74 tmt_int, sqlit
1de50 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 20 20 20 e3_column_int
1de60 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
1de70 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 qlite3_column_by
1de80 74 65 73 22 2c 20 20 20 20 20 20 74 65 73 74 5f tes", test_
1de90 73 74 6d 74 5f 69 6e 74 2c 20 20 20 73 71 6c 69 stmt_int, sqli
1dea0 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 te3_column_bytes
1deb0 20 20 20 20 20 7d 2c 0a 23 69 66 64 65 66 20 53 },.#ifdef S
1dec0 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 43 4f 4c QLITE_ENABLE_COL
1ded0 55 4d 4e 5f 4d 45 54 41 44 41 54 41 0a 7b 20 22 UMN_METADATA.{ "
1dee0 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 sqlite3_column_d
1def0 61 74 61 62 61 73 65 5f 6e 61 6d 65 22 2c 20 74 atabase_name", t
1df00 65 73 74 5f 73 74 6d 74 5f 75 74 66 38 2c 20 73 est_stmt_utf8, s
1df10 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 qlite3_column_da
1df20 74 61 62 61 73 65 5f 6e 61 6d 65 7d 2c 0a 7b 20 tabase_name},.{
1df30 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f "sqlite3_column_
1df40 74 61 62 6c 65 5f 6e 61 6d 65 22 2c 20 74 65 73 table_name", tes
1df50 74 5f 73 74 6d 74 5f 75 74 66 38 2c 20 73 71 6c t_stmt_utf8, sql
1df60 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c ite3_column_tabl
1df70 65 5f 6e 61 6d 65 7d 2c 0a 7b 20 22 73 71 6c 69 e_name},.{ "sqli
1df80 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 te3_column_origi
1df90 6e 5f 6e 61 6d 65 22 2c 20 74 65 73 74 5f 73 74 n_name", test_st
1dfa0 6d 74 5f 75 74 66 38 2c 20 73 71 6c 69 74 65 33 mt_utf8, sqlite3
1dfb0 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e _column_origin_n
1dfc0 61 6d 65 7d 2c 0a 23 65 6e 64 69 66 0a 0a 23 69 ame},.#endif..#i
1dfd0 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
1dfe0 54 5f 55 54 46 31 36 0a 20 20 20 20 20 7b 20 22 T_UTF16. { "
1dff0 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 sqlite3_column_b
1e000 79 74 65 73 31 36 22 2c 20 20 20 20 74 65 73 74 ytes16", test
1e010 5f 73 74 6d 74 5f 69 6e 74 2c 20 20 20 73 71 6c _stmt_int, sql
1e020 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 ite3_column_byte
1e030 73 31 36 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 s16 },. {
1e040 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f "sqlite3_column_
1e050 74 65 78 74 31 36 22 2c 20 20 20 20 20 74 65 73 text16", tes
1e060 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c 20 73 71 t_stmt_utf16, sq
1e070 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 lite3_column_tex
1e080 74 31 36 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b t16 },. {
1e090 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e "sqlite3_column
1e0a0 5f 64 65 63 6c 74 79 70 65 31 36 22 2c 20 74 65 _decltype16", te
1e0b0 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c 20 73 st_stmt_utf16, s
1e0c0 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 qlite3_column_de
1e0d0 63 6c 74 79 70 65 31 36 7d 2c 0a 20 20 20 20 20 cltype16},.
1e0e0 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d { "sqlite3_colum
1e0f0 6e 5f 6e 61 6d 65 31 36 22 2c 20 20 20 20 20 74 n_name16", t
1e100 65 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c 20 est_stmt_utf16,
1e110 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e sqlite3_column_n
1e120 61 6d 65 31 36 20 20 20 20 7d 2c 0a 20 20 20 20 ame16 },.
1e130 20 7b 20 22 61 64 64 5f 61 6c 69 67 6e 6d 65 6e { "add_alignmen
1e140 74 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 69 6f 6e t_test_collation
1e150 73 22 2c 20 61 64 64 5f 61 6c 69 67 6e 6d 65 6e s", add_alignmen
1e160 74 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 69 6f 6e t_test_collation
1e170 73 2c 20 30 20 20 20 20 20 20 7d 2c 0a 23 69 66 s, 0 },.#if
1e180 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c def SQLITE_ENABL
1e190 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 41 44 41 54 E_COLUMN_METADAT
1e1a0 41 0a 7b 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 A.{"sqlite3_colu
1e1b0 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d 65 mn_database_name
1e1c0 31 36 22 2c 0a 20 20 74 65 73 74 5f 73 74 6d 74 16",. test_stmt
1e1d0 5f 75 74 66 31 36 2c 20 73 71 6c 69 74 65 33 5f _utf16, sqlite3_
1e1e0 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f column_database_
1e1f0 6e 61 6d 65 31 36 7d 2c 0a 7b 22 73 71 6c 69 74 name16},.{"sqlit
1e200 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f e3_column_table_
1e210 6e 61 6d 65 31 36 22 2c 20 74 65 73 74 5f 73 74 name16", test_st
1e220 6d 74 5f 75 74 66 31 36 2c 20 73 71 6c 69 74 65 mt_utf16, sqlite
1e230 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 3_column_table_n
1e240 61 6d 65 31 36 7d 2c 0a 7b 22 73 71 6c 69 74 65 ame16},.{"sqlite
1e250 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 3_column_origin_
1e260 6e 61 6d 65 31 36 22 2c 20 74 65 73 74 5f 73 74 name16", test_st
1e270 6d 74 5f 75 74 66 31 36 2c 20 73 71 6c 69 74 65 mt_utf16, sqlite
1e280 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 3_column_origin_
1e290 6e 61 6d 65 31 36 7d 2c 0a 23 65 6e 64 69 66 0a name16},.#endif.
1e2a0 23 65 6e 64 69 66 0a 20 20 20 20 20 7b 20 22 73 #endif. { "s
1e2b0 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f qlite3_create_co
1e2c0 6c 6c 61 74 69 6f 6e 5f 76 32 22 2c 20 74 65 73 llation_v2", tes
1e2d0 74 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 t_create_collati
1e2e0 6f 6e 5f 76 32 2c 20 30 20 7d 2c 0a 20 20 20 20 on_v2, 0 },.
1e2f0 20 7b 20 22 73 71 6c 69 74 65 33 5f 67 6c 6f 62 { "sqlite3_glob
1e300 61 6c 5f 72 65 63 6f 76 65 72 22 2c 20 20 20 20 al_recover",
1e310 20 74 65 73 74 5f 67 6c 6f 62 61 6c 5f 72 65 63 test_global_rec
1e320 6f 76 65 72 2c 20 30 20 20 20 7d 2c 0a 20 20 20 over, 0 },.
1e330 20 20 7b 20 22 77 6f 72 6b 69 6e 67 5f 36 34 62 { "working_64b
1e340 69 74 5f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 it_int",
1e350 20 20 77 6f 72 6b 69 6e 67 5f 36 34 62 69 74 5f working_64bit_
1e360 69 6e 74 2c 20 20 20 30 20 20 20 7d 2c 0a 0a 20 int, 0 },..
1e370 20 20 20 20 2f 2a 20 46 75 6e 63 74 69 6f 6e 73 /* Functions
1e380 20 66 72 6f 6d 20 6f 73 2e 68 20 2a 2f 0a 23 69 from os.h */.#i
1e390 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
1e3a0 54 5f 44 49 53 4b 49 4f 0a 23 69 66 20 30 0a 20 T_DISKIO.#if 0.
1e3b0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 4f 73 { "sqlite3Os
1e3c0 4f 70 65 6e 52 65 61 64 57 72 69 74 65 22 2c 74 OpenReadWrite",t
1e3d0 65 73 74 5f 73 71 6c 69 74 65 33 4f 73 4f 70 65 est_sqlite3OsOpe
1e3e0 6e 52 65 61 64 57 72 69 74 65 2c 20 30 20 7d 2c nReadWrite, 0 },
1e3f0 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
1e400 4f 73 43 6c 6f 73 65 22 2c 20 20 20 20 20 20 20 OsClose",
1e410 20 74 65 73 74 5f 73 71 6c 69 74 65 33 4f 73 43 test_sqlite3OsC
1e420 6c 6f 73 65 2c 20 30 20 7d 2c 0a 20 20 20 20 20 lose, 0 },.
1e430 7b 20 22 73 71 6c 69 74 65 33 4f 73 4c 6f 63 6b { "sqlite3OsLock
1e440 22 2c 20 20 20 20 20 20 20 20 20 74 65 73 74 5f ", test_
1e450 73 71 6c 69 74 65 33 4f 73 4c 6f 63 6b 2c 20 30 sqlite3OsLock, 0
1e460 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
1e470 74 65 33 4f 73 54 65 6d 70 46 69 6c 65 4e 61 6d te3OsTempFileNam
1e480 65 22 2c 20 74 65 73 74 5f 73 71 6c 69 74 65 33 e", test_sqlite3
1e490 4f 73 54 65 6d 70 46 69 6c 65 4e 61 6d 65 2c 20 OsTempFileName,
1e4a0 30 20 7d 2c 0a 20 20 20 0a 20 20 20 20 20 2f 2a 0 },. . /*
1e4b0 20 43 75 73 74 6f 6d 20 74 65 73 74 20 69 6e 74 Custom test int
1e4c0 65 72 66 61 63 65 73 20 2a 2f 0a 20 20 20 20 20 erfaces */.
1e4d0 7b 20 22 73 71 6c 69 74 65 33 4f 73 55 6e 6c 6f { "sqlite3OsUnlo
1e4e0 63 6b 22 2c 20 20 20 20 20 20 20 20 20 74 65 73 ck", tes
1e4f0 74 5f 73 71 6c 69 74 65 33 4f 73 55 6e 6c 6f 63 t_sqlite3OsUnloc
1e500 6b 2c 20 30 20 20 20 20 7d 2c 0a 23 65 6e 64 69 k, 0 },.#endi
1e510 66 0a 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 f.#endif.#ifndef
1e520 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 SQLITE_OMIT_UTF
1e530 31 36 0a 20 20 20 20 20 7b 20 22 61 64 64 5f 74 16. { "add_t
1e540 65 73 74 5f 63 6f 6c 6c 61 74 65 22 2c 20 20 20 est_collate",
1e550 20 20 20 20 20 74 65 73 74 5f 63 6f 6c 6c 61 74 test_collat
1e560 65 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 20 e, 0
1e570 7d 2c 0a 20 20 20 20 20 7b 20 22 61 64 64 5f 74 },. { "add_t
1e580 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 64 est_collate_need
1e590 65 64 22 2c 20 74 65 73 74 5f 63 6f 6c 6c 61 74 ed", test_collat
1e5a0 65 5f 6e 65 65 64 65 64 2c 20 30 20 20 20 20 20 e_needed, 0
1e5b0 7d 2c 0a 20 20 20 20 20 7b 20 22 61 64 64 5f 74 },. { "add_t
1e5c0 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 20 est_function",
1e5d0 20 20 20 20 20 74 65 73 74 5f 66 75 6e 63 74 69 test_functi
1e5e0 6f 6e 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 on, 0
1e5f0 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 7b },.#endif. {
1e600 20 22 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 65 "sqlite3_test_e
1e610 72 72 73 74 72 22 2c 20 20 20 20 20 74 65 73 74 rrstr", test
1e620 5f 65 72 72 73 74 72 2c 20 30 20 20 20 20 20 20 _errstr, 0
1e630 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b },. {
1e640 20 22 74 63 6c 5f 76 61 72 69 61 62 6c 65 5f 74 "tcl_variable_t
1e650 79 70 65 22 2c 20 20 20 20 20 20 20 74 63 6c 5f ype", tcl_
1e660 76 61 72 69 61 62 6c 65 5f 74 79 70 65 2c 20 30 variable_type, 0
1e670 20 20 20 20 20 20 20 7d 2c 0a 23 69 66 6e 64 65 },.#ifnde
1e680 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 53 48 f SQLITE_OMIT_SH
1e690 41 52 45 44 5f 43 41 43 48 45 0a 20 20 20 20 20 ARED_CACHE.
1e6a0 7b 20 22 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c { "sqlite3_enabl
1e6b0 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65 22 2c e_shared_cache",
1e6c0 20 74 65 73 74 5f 65 6e 61 62 6c 65 5f 73 68 61 test_enable_sha
1e6d0 72 65 64 2c 20 30 20 20 7d 2c 0a 20 20 20 20 20 red, 0 },.
1e6e0 7b 20 22 73 71 6c 69 74 65 33 5f 73 68 61 72 65 { "sqlite3_share
1e6f0 64 5f 63 61 63 68 65 5f 72 65 70 6f 72 74 22 2c d_cache_report",
1e700 20 73 71 6c 69 74 65 33 42 74 72 65 65 53 68 61 sqlite3BtreeSha
1e710 72 65 64 43 61 63 68 65 52 65 70 6f 72 74 2c 20 redCacheReport,
1e720 30 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 0},.#endif.
1e730 7b 20 22 73 71 6c 69 74 65 33 5f 6c 69 62 76 65 { "sqlite3_libve
1e740 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 22 2c 20 74 rsion_number", t
1e750 65 73 74 5f 6c 69 62 76 65 72 73 69 6f 6e 5f 6e est_libversion_n
1e760 75 6d 62 65 72 2c 20 30 20 20 7d 2c 0a 23 69 66 umber, 0 },.#if
1e770 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c def SQLITE_ENABL
1e780 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 41 44 41 54 E_COLUMN_METADAT
1e790 41 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 A. { "sqlite
1e7a0 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 3_table_column_m
1e7b0 65 74 61 64 61 74 61 22 2c 20 74 65 73 74 5f 74 etadata", test_t
1e7c0 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 able_column_meta
1e7d0 64 61 74 61 2c 20 30 20 20 7d 2c 0a 23 65 6e 64 data, 0 },.#end
1e7e0 69 66 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 if.#ifndef SQLIT
1e7f0 45 5f 4f 4d 49 54 5f 49 4e 43 52 42 4c 4f 42 0a E_OMIT_INCRBLOB.
1e800 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
1e810 62 6c 6f 62 5f 72 65 61 64 22 2c 20 20 74 65 73 blob_read", tes
1e820 74 5f 62 6c 6f 62 5f 72 65 61 64 2c 20 30 20 20 t_blob_read, 0
1e830 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
1e840 65 33 5f 62 6c 6f 62 5f 77 72 69 74 65 22 2c 20 e3_blob_write",
1e850 74 65 73 74 5f 62 6c 6f 62 5f 77 72 69 74 65 2c test_blob_write,
1e860 20 30 20 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 0 },.#endif.
1e870 7d 3b 0a 20 20 73 74 61 74 69 63 20 69 6e 74 20 };. static int
1e880 62 69 74 6d 61 73 6b 5f 73 69 7a 65 20 3d 20 73 bitmask_size = s
1e890 69 7a 65 6f 66 28 42 69 74 6d 61 73 6b 29 2a 38 izeof(Bitmask)*8
1e8a0 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 65 78 74 ;. int i;. ext
1e8b0 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
1e8c0 73 79 6e 63 5f 63 6f 75 6e 74 2c 20 73 71 6c 69 sync_count, sqli
1e8d0 74 65 33 5f 66 75 6c 6c 73 79 6e 63 5f 63 6f 75 te3_fullsync_cou
1e8e0 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 nt;. extern int
1e8f0 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 74 65 6d sqlite3_opentem
1e900 70 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 p_count;. exter
1e910 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6c 69 n int sqlite3_li
1e920 6b 65 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 ke_count;. exte
1e930 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 78 rn int sqlite3_x
1e940 66 65 72 6f 70 74 5f 63 6f 75 6e 74 3b 0a 20 20 feropt_count;.
1e950 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
1e960 65 33 5f 70 61 67 65 72 5f 72 65 61 64 64 62 5f e3_pager_readdb_
1e970 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 count;. extern
1e980 69 6e 74 20 73 71 6c 69 74 65 33 5f 70 61 67 65 int sqlite3_page
1e990 72 5f 77 72 69 74 65 64 62 5f 63 6f 75 6e 74 3b r_writedb_count;
1e9a0 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
1e9b0 6c 69 74 65 33 5f 70 61 67 65 72 5f 77 72 69 74 lite3_pager_writ
1e9c0 65 6a 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 ej_count;. exte
1e9d0 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 70 rn int sqlite3_p
1e9e0 61 67 65 72 5f 70 67 66 72 65 65 5f 63 6f 75 6e ager_pgfree_coun
1e9f0 74 3b 0a 23 69 66 20 4f 53 5f 55 4e 49 58 20 26 t;.#if OS_UNIX &
1ea00 26 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 & defined(SQLITE
1ea10 5f 54 45 53 54 29 20 26 26 20 53 51 4c 49 54 45 _TEST) && SQLITE
1ea20 5f 54 48 52 45 41 44 53 41 46 45 0a 20 20 65 78 _THREADSAFE. ex
1ea30 74 65 72 6e 20 69 6e 74 20 74 68 72 65 61 64 73 tern int threads
1ea40 4f 76 65 72 72 69 64 65 45 61 63 68 4f 74 68 65 OverrideEachOthe
1ea50 72 73 4c 6f 63 6b 73 3b 0a 23 65 6e 64 69 66 0a rsLocks;.#endif.
1ea60 23 69 66 20 4f 53 5f 57 49 4e 0a 20 20 65 78 74 #if OS_WIN. ext
1ea70 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
1ea80 6f 73 5f 74 79 70 65 3b 0a 23 65 6e 64 69 66 0a os_type;.#endif.
1ea90 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 44 45 #ifdef SQLITE_DE
1eaa0 42 55 47 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 BUG. extern int
1eab0 20 73 71 6c 69 74 65 33 5f 77 68 65 72 65 5f 74 sqlite3_where_t
1eac0 72 61 63 65 3b 0a 20 20 65 78 74 65 72 6e 20 69 race;. extern i
1ead0 6e 74 20 73 71 6c 69 74 65 33 5f 6f 73 5f 74 72 nt sqlite3_os_tr
1eae0 61 63 65 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e ace;. extern in
1eaf0 74 20 73 71 6c 69 74 65 33 5f 76 64 62 65 5f 61 t sqlite3_vdbe_a
1eb00 64 64 6f 70 5f 74 72 61 63 65 3b 0a 23 65 6e 64 ddop_trace;.#end
1eb10 69 66 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 if.#ifdef SQLITE
1eb20 5f 54 45 53 54 0a 20 20 65 78 74 65 72 6e 20 63 _TEST. extern c
1eb30 68 61 72 20 73 71 6c 69 74 65 33 5f 71 75 65 72 har sqlite3_quer
1eb40 79 5f 70 6c 61 6e 5b 5d 3b 0a 20 20 73 74 61 74 y_plan[];. stat
1eb50 69 63 20 63 68 61 72 20 2a 71 75 65 72 79 5f 70 ic char *query_p
1eb60 6c 61 6e 20 3d 20 73 71 6c 69 74 65 33 5f 71 75 lan = sqlite3_qu
1eb70 65 72 79 5f 70 6c 61 6e 3b 0a 23 65 6e 64 69 66 ery_plan;.#endif
1eb80 0a 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 .. for(i=0; i<s
1eb90 69 7a 65 6f 66 28 61 43 6d 64 29 2f 73 69 7a 65 izeof(aCmd)/size
1eba0 6f 66 28 61 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b of(aCmd[0]); i++
1ebb0 29 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 ){. Tcl_Creat
1ebc0 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c eCommand(interp,
1ebd0 20 61 43 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 aCmd[i].zName,
1ebe0 61 43 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 30 aCmd[i].xProc, 0
1ebf0 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 , 0);. }. for(
1ec00 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 4f i=0; i<sizeof(aO
1ec10 62 6a 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61 4f bjCmd)/sizeof(aO
1ec20 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b bjCmd[0]); i++){
1ec30 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
1ec40 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
1ec50 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 7a 4e 61 , aObjCmd[i].zNa
1ec60 6d 65 2c 20 0a 20 20 20 20 20 20 20 20 61 4f 62 me, . aOb
1ec70 6a 43 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 61 jCmd[i].xProc, a
1ec80 4f 62 6a 43 6d 64 5b 69 5d 2e 63 6c 69 65 6e 74 ObjCmd[i].client
1ec90 44 61 74 61 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 Data, 0);. }.
1eca0 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 Tcl_LinkVar(inte
1ecb0 72 70 2c 20 22 73 71 6c 69 74 65 5f 73 65 61 72 rp, "sqlite_sear
1ecc0 63 68 5f 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 ch_count", .
1ecd0 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 (char*)&sqlite
1ece0 33 5f 73 65 61 72 63 68 5f 63 6f 75 6e 74 2c 20 3_search_count,
1ecf0 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 TCL_LINK_INT);.
1ed00 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
1ed10 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 73 6f 72 erp, "sqlite_sor
1ed20 74 5f 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 t_count", .
1ed30 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 (char*)&sqlite3
1ed40 5f 73 6f 72 74 5f 63 6f 75 6e 74 2c 20 54 43 4c _sort_count, TCL
1ed50 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 _LINK_INT);. Tc
1ed60 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
1ed70 2c 20 22 73 71 6c 69 74 65 33 5f 6d 61 78 5f 62 , "sqlite3_max_b
1ed80 6c 6f 62 73 69 7a 65 22 2c 20 0a 20 20 20 20 20 lobsize", .
1ed90 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 (char*)&sqlite3
1eda0 5f 6d 61 78 5f 62 6c 6f 62 73 69 7a 65 2c 20 54 _max_blobsize, T
1edb0 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 CL_LINK_INT);.
1edc0 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 Tcl_LinkVar(inte
1edd0 72 70 2c 20 22 73 71 6c 69 74 65 5f 6c 69 6b 65 rp, "sqlite_like
1ede0 5f 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 _count", .
1edf0 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f (char*)&sqlite3_
1ee00 6c 69 6b 65 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f like_count, TCL_
1ee10 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c LINK_INT);. Tcl
1ee20 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c _LinkVar(interp,
1ee30 20 22 73 71 6c 69 74 65 5f 69 6e 74 65 72 72 75 "sqlite_interru
1ee40 70 74 5f 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 pt_count", .
1ee50 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 (char*)&sqlite
1ee60 33 5f 69 6e 74 65 72 72 75 70 74 5f 63 6f 75 6e 3_interrupt_coun
1ee70 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 t, TCL_LINK_INT)
1ee80 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 ;. Tcl_LinkVar(
1ee90 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
1eea0 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 22 open_file_count"
1eeb0 2c 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 , . (char*)
1eec0 26 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 66 69 &sqlite3_open_fi
1eed0 6c 65 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 le_count, TCL_LI
1eee0 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c NK_INT);. Tcl_L
1eef0 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 inkVar(interp, "
1ef00 73 71 6c 69 74 65 5f 63 75 72 72 65 6e 74 5f 74 sqlite_current_t
1ef10 69 6d 65 22 2c 20 0a 20 20 20 20 20 20 28 63 68 ime", . (ch
1ef20 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 63 75 72 ar*)&sqlite3_cur
1ef30 72 65 6e 74 5f 74 69 6d 65 2c 20 54 43 4c 5f 4c rent_time, TCL_L
1ef40 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f INK_INT);. Tcl_
1ef50 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 LinkVar(interp,
1ef60 22 73 71 6c 69 74 65 33 5f 78 66 65 72 6f 70 74 "sqlite3_xferopt
1ef70 5f 63 6f 75 6e 74 22 2c 0a 20 20 20 20 20 20 28 _count",. (
1ef80 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 78 char*)&sqlite3_x
1ef90 66 65 72 6f 70 74 5f 63 6f 75 6e 74 2c 20 54 43 feropt_count, TC
1efa0 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 L_LINK_INT);. T
1efb0 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 cl_LinkVar(inter
1efc0 70 2c 20 22 73 71 6c 69 74 65 33 5f 70 61 67 65 p, "sqlite3_page
1efd0 72 5f 72 65 61 64 64 62 5f 63 6f 75 6e 74 22 2c r_readdb_count",
1efe0 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 . (char*)&s
1eff0 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 72 65 61 qlite3_pager_rea
1f000 64 64 62 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c ddb_count, TCL_L
1f010 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f INK_INT);. Tcl_
1f020 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 LinkVar(interp,
1f030 22 73 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 77 "sqlite3_pager_w
1f040 72 69 74 65 64 62 5f 63 6f 75 6e 74 22 2c 0a 20 ritedb_count",.
1f050 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c (char*)&sql
1f060 69 74 65 33 5f 70 61 67 65 72 5f 77 72 69 74 65 ite3_pager_write
1f070 64 62 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 db_count, TCL_LI
1f080 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c NK_INT);. Tcl_L
1f090 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 inkVar(interp, "
1f0a0 73 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 77 72 sqlite3_pager_wr
1f0b0 69 74 65 6a 5f 63 6f 75 6e 74 22 2c 0a 20 20 20 itej_count",.
1f0c0 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 (char*)&sqlit
1f0d0 65 33 5f 70 61 67 65 72 5f 77 72 69 74 65 6a 5f e3_pager_writej_
1f0e0 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f count, TCL_LINK_
1f0f0 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b INT);. Tcl_Link
1f100 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c Var(interp, "sql
1f110 69 74 65 33 5f 70 61 67 65 72 5f 70 67 66 72 65 ite3_pager_pgfre
1f120 65 5f 63 6f 75 6e 74 22 2c 0a 20 20 20 20 20 20 e_count",.
1f130 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f (char*)&sqlite3_
1f140 70 61 67 65 72 5f 70 67 66 72 65 65 5f 63 6f 75 pager_pgfree_cou
1f150 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 nt, TCL_LINK_INT
1f160 29 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 );.#ifndef SQLIT
1f170 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 54 E_OMIT_UTF16. T
1f180 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 cl_LinkVar(inter
1f190 70 2c 20 22 75 6e 61 6c 69 67 6e 65 64 5f 73 74 p, "unaligned_st
1f1a0 72 69 6e 67 5f 63 6f 75 6e 74 65 72 22 2c 0a 20 ring_counter",.
1f1b0 20 20 20 20 20 28 63 68 61 72 2a 29 26 75 6e 61 (char*)&una
1f1c0 6c 69 67 6e 65 64 5f 73 74 72 69 6e 67 5f 63 6f ligned_string_co
1f1d0 75 6e 74 65 72 2c 20 54 43 4c 5f 4c 49 4e 4b 5f unter, TCL_LINK_
1f1e0 49 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 INT);.#endif.#if
1f1f0 20 4f 53 5f 55 4e 49 58 20 26 26 20 64 65 66 69 OS_UNIX && defi
1f200 6e 65 64 28 53 51 4c 49 54 45 5f 54 45 53 54 29 ned(SQLITE_TEST)
1f210 20 26 26 20 53 51 4c 49 54 45 5f 54 48 52 45 41 && SQLITE_THREA
1f220 44 53 41 46 45 0a 20 20 54 63 6c 5f 4c 69 6e 6b DSAFE. Tcl_Link
1f230 56 61 72 28 69 6e 74 65 72 70 2c 20 22 74 68 72 Var(interp, "thr
1f240 65 61 64 73 4f 76 65 72 72 69 64 65 45 61 63 68 eadsOverrideEach
1f250 4f 74 68 65 72 73 4c 6f 63 6b 73 22 2c 0a 20 20 OthersLocks",.
1f260 20 20 20 20 28 63 68 61 72 2a 29 26 74 68 72 65 (char*)&thre
1f270 61 64 73 4f 76 65 72 72 69 64 65 45 61 63 68 4f adsOverrideEachO
1f280 74 68 65 72 73 4c 6f 63 6b 73 2c 20 54 43 4c 5f thersLocks, TCL_
1f290 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 LINK_INT);.#endi
1f2a0 66 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 f.#ifndef SQLITE
1f2b0 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 54 63 _OMIT_UTF16. Tc
1f2c0 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
1f2d0 2c 20 22 73 71 6c 69 74 65 5f 6c 61 73 74 5f 6e , "sqlite_last_n
1f2e0 65 65 64 65 64 5f 63 6f 6c 6c 61 74 69 6f 6e 22 eeded_collation"
1f2f0 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 ,. (char*)&
1f300 70 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f pzNeededCollatio
1f310 6e 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 n, TCL_LINK_STRI
1f320 4e 47 7c 54 43 4c 5f 4c 49 4e 4b 5f 52 45 41 44 NG|TCL_LINK_READ
1f330 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 23 _ONLY);.#endif.#
1f340 69 66 20 4f 53 5f 57 49 4e 0a 20 20 54 63 6c 5f if OS_WIN. Tcl_
1f350 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 LinkVar(interp,
1f360 22 73 71 6c 69 74 65 5f 6f 73 5f 74 79 70 65 22 "sqlite_os_type"
1f370 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 ,. (char*)&
1f380 73 71 6c 69 74 65 33 5f 6f 73 5f 74 79 70 65 2c sqlite3_os_type,
1f390 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a TCL_LINK_INT);.
1f3a0 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 53 51 #endif.#ifdef SQ
1f3b0 4c 49 54 45 5f 54 45 53 54 0a 20 20 54 63 6c 5f LITE_TEST. Tcl_
1f3c0 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 LinkVar(interp,
1f3d0 22 73 71 6c 69 74 65 5f 71 75 65 72 79 5f 70 6c "sqlite_query_pl
1f3e0 61 6e 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 an",. (char
1f3f0 2a 29 26 71 75 65 72 79 5f 70 6c 61 6e 2c 20 54 *)&query_plan, T
1f400 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 7c 54 CL_LINK_STRING|T
1f410 43 4c 5f 4c 49 4e 4b 5f 52 45 41 44 5f 4f 4e 4c CL_LINK_READ_ONL
1f420 59 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 Y);.#endif.#ifde
1f430 66 20 53 51 4c 49 54 45 5f 44 45 42 55 47 0a 20 f SQLITE_DEBUG.
1f440 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
1f450 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 61 64 64 erp, "sqlite_add
1f460 6f 70 5f 74 72 61 63 65 22 2c 0a 20 20 20 20 20 op_trace",.
1f470 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 (char*)&sqlite3
1f480 5f 76 64 62 65 5f 61 64 64 6f 70 5f 74 72 61 63 _vdbe_addop_trac
1f490 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 e, TCL_LINK_INT)
1f4a0 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 ;. Tcl_LinkVar(
1f4b0 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
1f4c0 77 68 65 72 65 5f 74 72 61 63 65 22 2c 0a 20 20 where_trace",.
1f4d0 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 (char*)&sqli
1f4e0 74 65 33 5f 77 68 65 72 65 5f 74 72 61 63 65 2c te3_where_trace,
1f4f0 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a TCL_LINK_INT);.
1f500 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e Tcl_LinkVar(in
1f510 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 73 terp, "sqlite_os
1f520 5f 74 72 61 63 65 22 2c 0a 20 20 20 20 20 20 28 _trace",. (
1f530 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6f char*)&sqlite3_o
1f540 73 5f 74 72 61 63 65 2c 20 54 43 4c 5f 4c 49 4e s_trace, TCL_LIN
1f550 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 23 K_INT);.#endif.#
1f560 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
1f570 49 54 5f 44 49 53 4b 49 4f 0a 20 20 54 63 6c 5f IT_DISKIO. Tcl_
1f580 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 LinkVar(interp,
1f590 22 73 71 6c 69 74 65 5f 6f 70 65 6e 74 65 6d 70 "sqlite_opentemp
1f5a0 5f 63 6f 75 6e 74 22 2c 0a 20 20 20 20 20 20 28 _count",. (
1f5b0 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6f char*)&sqlite3_o
1f5c0 70 65 6e 74 65 6d 70 5f 63 6f 75 6e 74 2c 20 54 pentemp_count, T
1f5d0 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 CL_LINK_INT);.#e
1f5e0 6e 64 69 66 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 ndif. Tcl_LinkV
1f5f0 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 ar(interp, "sqli
1f600 74 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 te_static_bind_v
1f610 61 6c 75 65 22 2c 0a 20 20 20 20 20 20 28 63 68 alue",. (ch
1f620 61 72 2a 29 26 73 71 6c 69 74 65 5f 73 74 61 74 ar*)&sqlite_stat
1f630 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 2c 20 54 ic_bind_value, T
1f640 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 29 3b CL_LINK_STRING);
1f650 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
1f660 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 73 nterp, "sqlite_s
1f670 74 61 74 69 63 5f 62 69 6e 64 5f 6e 62 79 74 65 tatic_bind_nbyte
1f680 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 ",. (char*)
1f690 26 73 71 6c 69 74 65 5f 73 74 61 74 69 63 5f 62 &sqlite_static_b
1f6a0 69 6e 64 5f 6e 62 79 74 65 2c 20 54 43 4c 5f 4c ind_nbyte, TCL_L
1f6b0 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f INK_INT);. Tcl_
1f6c0 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 LinkVar(interp,
1f6d0 22 73 71 6c 69 74 65 5f 74 65 6d 70 5f 64 69 72 "sqlite_temp_dir
1f6e0 65 63 74 6f 72 79 22 2c 0a 20 20 20 20 20 20 28 ectory",. (
1f6f0 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 74 char*)&sqlite3_t
1f700 65 6d 70 5f 64 69 72 65 63 74 6f 72 79 2c 20 54 emp_directory, T
1f710 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 29 3b CL_LINK_STRING);
1f720 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
1f730 6e 74 65 72 70 2c 20 22 62 69 74 6d 61 73 6b 5f nterp, "bitmask_
1f740 73 69 7a 65 22 2c 0a 20 20 20 20 20 20 28 63 68 size",. (ch
1f750 61 72 2a 29 26 62 69 74 6d 61 73 6b 5f 73 69 7a ar*)&bitmask_siz
1f760 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 7c e, TCL_LINK_INT|
1f770 54 43 4c 5f 4c 49 4e 4b 5f 52 45 41 44 5f 4f 4e TCL_LINK_READ_ON
1f780 4c 59 29 3b 0a 23 69 66 20 4f 53 5f 55 4e 49 58 LY);.#if OS_UNIX
1f790 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
1f7a0 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 73 nterp, "sqlite_s
1f7b0 79 6e 63 5f 63 6f 75 6e 74 22 2c 0a 20 20 20 20 ync_count",.
1f7c0 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 (char*)&sqlite
1f7d0 33 5f 73 79 6e 63 5f 63 6f 75 6e 74 2c 20 54 43 3_sync_count, TC
1f7e0 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 L_LINK_INT);. T
1f7f0 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 cl_LinkVar(inter
1f800 70 2c 20 22 73 71 6c 69 74 65 5f 66 75 6c 6c 73 p, "sqlite_fulls
1f810 79 6e 63 5f 63 6f 75 6e 74 22 2c 0a 20 20 20 20 ync_count",.
1f820 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 (char*)&sqlite
1f830 33 5f 66 75 6c 6c 73 79 6e 63 5f 63 6f 75 6e 74 3_fullsync_count
1f840 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b , TCL_LINK_INT);
1f850 0a 23 65 6e 64 69 66 20 2f 2a 20 4f 53 5f 55 4e .#endif /* OS_UN
1f860 49 58 20 2a 2f 0a 0a 20 20 72 65 74 75 72 6e 20 IX */.. return
1f870 54 43 4c 5f 4f 4b 3b 0a 7d 0a TCL_OK;.}.