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 33 33 31 20 32 30 30 38 2f 31 31 2f 32 1.331 2008/11/2
0240: 31 20 32 33 3a 33 35 3a 30 33 20 70 77 65 69 6c 1 23:35:03 pweil
0250: 62 61 63 68 65 72 20 45 78 70 20 24 0a 2a 2f 0a bacher 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 73 74 54 65 78 74 54 sqlite3TestTextT
04f0: 6f 50 74 72 28 63 6f 6e 73 74 20 63 68 61 72 20 oPtr(const char
0500: 2a 7a 29 7b 0a 20 20 76 6f 69 64 20 2a 70 3b 0a *z){. void *p;.
0510: 20 20 75 36 34 20 76 3b 0a 20 20 75 33 32 20 76 u64 v;. u32 v
0520: 32 3b 0a 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 2;. if( z[0]=='
0530: 30 27 20 26 26 20 7a 5b 31 5d 3d 3d 27 78 27 20 0' && z[1]=='x'
0540: 29 7b 0a 20 20 20 20 7a 20 2b 3d 20 32 3b 0a 20 ){. z += 2;.
0550: 20 7d 0a 20 20 76 20 3d 20 30 3b 0a 20 20 77 68 }. v = 0;. wh
0560: 69 6c 65 28 20 2a 7a 20 29 7b 0a 20 20 20 20 76 ile( *z ){. v
0570: 20 3d 20 28 76 3c 3c 34 29 20 2b 20 74 65 73 74 = (v<<4) + test
0580: 48 65 78 54 6f 49 6e 74 28 2a 7a 29 3b 0a 20 20 HexToInt(*z);.
0590: 20 20 7a 2b 2b 3b 0a 20 20 7d 0a 20 20 69 66 28 z++;. }. if(
05a0: 20 73 69 7a 65 6f 66 28 70 29 3d 3d 73 69 7a 65 sizeof(p)==size
05b0: 6f 66 28 76 29 20 29 7b 0a 20 20 20 20 6d 65 6d of(v) ){. mem
05c0: 63 70 79 28 26 70 2c 20 26 76 2c 20 73 69 7a 65 cpy(&p, &v, size
05d0: 6f 66 28 70 29 29 3b 0a 20 20 7d 65 6c 73 65 7b of(p));. }else{
05e0: 0a 20 20 20 20 61 73 73 65 72 74 28 20 73 69 7a . assert( siz
05f0: 65 6f 66 28 70 29 3d 3d 73 69 7a 65 6f 66 28 76 eof(p)==sizeof(v
0600: 32 29 20 29 3b 0a 20 20 20 20 76 32 20 3d 20 28 2) );. v2 = (
0610: 75 33 32 29 76 3b 0a 20 20 20 20 6d 65 6d 63 70 u32)v;. memcp
0620: 79 28 26 70 2c 20 26 76 32 2c 20 73 69 7a 65 6f y(&p, &v2, sizeo
0630: 66 28 70 29 29 3b 0a 20 20 7d 0a 20 20 72 65 74 f(p));. }. ret
0640: 75 72 6e 20 70 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a urn p;.}.../*.**
0650: 20 41 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 74 A TCL command t
0660: 68 61 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 hat returns the
0670: 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 73 address of the s
0680: 71 6c 69 74 65 2a 20 70 6f 69 6e 74 65 72 0a 2a qlite* pointer.*
0690: 2a 20 66 6f 72 20 61 6e 20 73 71 6c 69 74 65 20 * for an sqlite
06a0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 73 74 61 connection insta
06b0: 6e 63 65 2e 20 20 42 61 64 20 74 68 69 6e 67 73 nce. Bad things
06c0: 20 68 61 70 70 65 6e 20 69 66 20 74 68 65 0a 2a happen if the.*
06d0: 2a 20 69 6e 70 75 74 20 69 73 20 6e 6f 74 20 61 * input is not a
06e0: 6e 20 73 71 6c 69 74 65 20 63 6f 6e 6e 65 63 74 n sqlite connect
06f0: 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ion..*/.static i
0700: 6e 74 20 67 65 74 5f 73 71 6c 69 74 65 5f 70 6f nt get_sqlite_po
0710: 69 6e 74 65 72 28 0a 20 20 76 6f 69 64 20 2a 20 inter(. void *
0720: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
0730: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0740: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
0750: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
0760: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 74 72 75 63 bjv[].){. struc
0770: 74 20 53 71 6c 69 74 65 44 62 20 2a 70 3b 0a 20 t SqliteDb *p;.
0780: 20 54 63 6c 5f 43 6d 64 49 6e 66 6f 20 63 6d 64 Tcl_CmdInfo cmd
0790: 49 6e 66 6f 3b 0a 20 20 63 68 61 72 20 7a 42 75 Info;. char zBu
07a0: 66 5b 31 30 30 5d 3b 0a 20 20 69 66 28 20 6f 62 f[100];. if( ob
07b0: 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
07c0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
07d0: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
07e0: 53 51 4c 49 54 45 2d 43 4f 4e 4e 45 43 54 49 4f SQLITE-CONNECTIO
07f0: 4e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 N");. return
0800: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
0810: 20 69 66 28 20 21 54 63 6c 5f 47 65 74 43 6f 6d if( !Tcl_GetCom
0820: 6d 61 6e 64 49 6e 66 6f 28 69 6e 74 65 72 70 2c mandInfo(interp,
0830: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
0840: 62 6a 76 5b 31 5d 29 2c 20 26 63 6d 64 49 6e 66 bjv[1]), &cmdInf
0850: 6f 29 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 o) ){. Tcl_Ap
0860: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
0870: 70 2c 20 22 63 6f 6d 6d 61 6e 64 20 6e 6f 74 20 p, "command not
0880: 66 6f 75 6e 64 3a 20 22 2c 0a 20 20 20 20 20 20 found: ",.
0890: 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
08a0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 28 63 68 ng(objv[1]), (ch
08b0: 61 72 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 ar*)0);. retu
08c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
08d0: 7d 0a 20 20 70 20 3d 20 28 73 74 72 75 63 74 20 }. p = (struct
08e0: 53 71 6c 69 74 65 44 62 2a 29 63 6d 64 49 6e 66 SqliteDb*)cmdInf
08f0: 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 61 74 61 3b o.objClientData;
0900: 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c . sprintf(zBuf,
0910: 20 22 25 70 22 2c 20 70 2d 3e 64 62 29 3b 0a 20 "%p", p->db);.
0920: 20 69 66 28 20 73 74 72 6e 63 6d 70 28 7a 42 75 if( strncmp(zBu
0930: 66 2c 22 30 78 22 2c 32 29 20 29 7b 0a 20 20 20 f,"0x",2) ){.
0940: 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 sprintf(zBuf, "
0950: 30 78 25 70 22 2c 20 70 2d 3e 64 62 29 3b 0a 20 0x%p", p->db);.
0960: 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 }. Tcl_AppendR
0970: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 esult(interp, zB
0980: 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e uf, 0);. return
0990: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
09a0: 2a 20 44 65 63 6f 64 65 20 61 20 70 6f 69 6e 74 * Decode a point
09b0: 65 72 20 74 6f 20 61 6e 20 73 71 6c 69 74 65 33 er to an sqlite3
09c0: 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 69 6e 74 20 object..*/.int
09d0: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 54 63 6c getDbPointer(Tcl
09e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
09f0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 2c const char *zA,
0a00: 20 73 71 6c 69 74 65 33 20 2a 2a 70 70 44 62 29 sqlite3 **ppDb)
0a10: 7b 0a 20 20 73 74 72 75 63 74 20 53 71 6c 69 74 {. struct Sqlit
0a20: 65 44 62 20 2a 70 3b 0a 20 20 54 63 6c 5f 43 6d eDb *p;. Tcl_Cm
0a30: 64 49 6e 66 6f 20 63 6d 64 49 6e 66 6f 3b 0a 20 dInfo cmdInfo;.
0a40: 20 69 66 28 20 54 63 6c 5f 47 65 74 43 6f 6d 6d if( Tcl_GetComm
0a50: 61 6e 64 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 andInfo(interp,
0a60: 7a 41 2c 20 26 63 6d 64 49 6e 66 6f 29 20 29 7b zA, &cmdInfo) ){
0a70: 0a 20 20 20 20 70 20 3d 20 28 73 74 72 75 63 74 . p = (struct
0a80: 20 53 71 6c 69 74 65 44 62 2a 29 63 6d 64 49 6e SqliteDb*)cmdIn
0a90: 66 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 61 74 61 fo.objClientData
0aa0: 3b 0a 20 20 20 20 2a 70 70 44 62 20 3d 20 70 2d ;. *ppDb = p-
0ab0: 3e 64 62 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 >db;. }else{.
0ac0: 20 20 2a 70 70 44 62 20 3d 20 28 73 71 6c 69 74 *ppDb = (sqlit
0ad0: 65 33 2a 29 73 71 6c 69 74 65 33 54 65 73 74 54 e3*)sqlite3TestT
0ae0: 65 78 74 54 6f 50 74 72 28 7a 41 29 3b 0a 20 20 extToPtr(zA);.
0af0: 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f }. return TCL_O
0b00: 4b 3b 0a 7d 0a 0a 0a 63 6f 6e 73 74 20 63 68 61 K;.}...const cha
0b10: 72 20 2a 73 71 6c 69 74 65 33 54 65 73 74 45 72 r *sqlite3TestEr
0b20: 72 6f 72 4e 61 6d 65 28 69 6e 74 20 72 63 29 7b rorName(int rc){
0b30: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
0b40: 4e 61 6d 65 20 3d 20 30 3b 0a 20 20 73 77 69 74 Name = 0;. swit
0b50: 63 68 28 20 72 63 20 29 7b 0a 20 20 20 20 63 61 ch( rc ){. ca
0b60: 73 65 20 53 51 4c 49 54 45 5f 4f 4b 3a 20 20 20 se SQLITE_OK:
0b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
0b80: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4f Name = "SQLITE_O
0b90: 4b 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 K";
0ba0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0bb0: 73 65 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3a se SQLITE_ERROR:
0bc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
0bd0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 45 Name = "SQLITE_E
0be0: 52 52 4f 52 22 3b 20 20 20 20 20 20 20 20 20 20 RROR";
0bf0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0c00: 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 52 4e se SQLITE_INTERN
0c10: 41 4c 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a AL: z
0c20: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
0c30: 4e 54 45 52 4e 41 4c 22 3b 20 20 20 20 20 20 20 NTERNAL";
0c40: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0c50: 73 65 20 53 51 4c 49 54 45 5f 50 45 52 4d 3a 20 se SQLITE_PERM:
0c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
0c70: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 50 Name = "SQLITE_P
0c80: 45 52 4d 22 3b 20 20 20 20 20 20 20 20 20 20 20 ERM";
0c90: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0ca0: 73 65 20 53 51 4c 49 54 45 5f 41 42 4f 52 54 3a se SQLITE_ABORT:
0cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
0cc0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 41 Name = "SQLITE_A
0cd0: 42 4f 52 54 22 3b 20 20 20 20 20 20 20 20 20 20 BORT";
0ce0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0cf0: 73 65 20 53 51 4c 49 54 45 5f 42 55 53 59 3a 20 se SQLITE_BUSY:
0d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
0d10: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 42 Name = "SQLITE_B
0d20: 55 53 59 22 3b 20 20 20 20 20 20 20 20 20 20 20 USY";
0d30: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0d40: 73 65 20 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 se SQLITE_LOCKED
0d50: 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a : z
0d60: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4c Name = "SQLITE_L
0d70: 4f 43 4b 45 44 22 3b 20 20 20 20 20 20 20 20 20 OCKED";
0d80: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0d90: 73 65 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3a se SQLITE_NOMEM:
0da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
0db0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e Name = "SQLITE_N
0dc0: 4f 4d 45 4d 22 3b 20 20 20 20 20 20 20 20 20 20 OMEM";
0dd0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0de0: 73 65 20 53 51 4c 49 54 45 5f 52 45 41 44 4f 4e se SQLITE_READON
0df0: 4c 59 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a LY: z
0e00: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 Name = "SQLITE_R
0e10: 45 41 44 4f 4e 4c 59 22 3b 20 20 20 20 20 20 20 EADONLY";
0e20: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0e30: 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 52 52 se SQLITE_INTERR
0e40: 55 50 54 3a 20 20 20 20 20 20 20 20 20 20 20 7a UPT: z
0e50: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
0e60: 4e 54 45 52 52 55 50 54 22 3b 20 20 20 20 20 20 NTERRUPT";
0e70: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0e80: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3a se SQLITE_IOERR:
0e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
0ea0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
0eb0: 4f 45 52 52 22 3b 20 20 20 20 20 20 20 20 20 20 OERR";
0ec0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0ed0: 73 65 20 53 51 4c 49 54 45 5f 43 4f 52 52 55 50 se SQLITE_CORRUP
0ee0: 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 7a T: z
0ef0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 43 Name = "SQLITE_C
0f00: 4f 52 52 55 50 54 22 3b 20 20 20 20 20 20 20 20 ORRUPT";
0f10: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0f20: 73 65 20 53 51 4c 49 54 45 5f 4e 4f 54 46 4f 55 se SQLITE_NOTFOU
0f30: 4e 44 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a ND: z
0f40: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e Name = "SQLITE_N
0f50: 4f 54 46 4f 55 4e 44 22 3b 20 20 20 20 20 20 20 OTFOUND";
0f60: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0f70: 73 65 20 53 51 4c 49 54 45 5f 46 55 4c 4c 3a 20 se SQLITE_FULL:
0f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
0f90: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 46 Name = "SQLITE_F
0fa0: 55 4c 4c 22 3b 20 20 20 20 20 20 20 20 20 20 20 ULL";
0fb0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0fc0: 73 65 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 se SQLITE_CANTOP
0fd0: 45 4e 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a EN: z
0fe0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 43 Name = "SQLITE_C
0ff0: 41 4e 54 4f 50 45 4e 22 3b 20 20 20 20 20 20 20 ANTOPEN";
1000: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1010: 73 65 20 53 51 4c 49 54 45 5f 50 52 4f 54 4f 43 se SQLITE_PROTOC
1020: 4f 4c 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a OL: z
1030: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 50 Name = "SQLITE_P
1040: 52 4f 54 4f 43 4f 4c 22 3b 20 20 20 20 20 20 20 ROTOCOL";
1050: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1060: 73 65 20 53 51 4c 49 54 45 5f 45 4d 50 54 59 3a se SQLITE_EMPTY:
1070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
1080: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 45 Name = "SQLITE_E
1090: 4d 50 54 59 22 3b 20 20 20 20 20 20 20 20 20 20 MPTY";
10a0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
10b0: 73 65 20 53 51 4c 49 54 45 5f 53 43 48 45 4d 41 se SQLITE_SCHEMA
10c0: 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a : z
10d0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 53 Name = "SQLITE_S
10e0: 43 48 45 4d 41 22 3b 20 20 20 20 20 20 20 20 20 CHEMA";
10f0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1100: 73 65 20 53 51 4c 49 54 45 5f 54 4f 4f 42 49 47 se SQLITE_TOOBIG
1110: 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a : z
1120: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 54 Name = "SQLITE_T
1130: 4f 4f 42 49 47 22 3b 20 20 20 20 20 20 20 20 20 OOBIG";
1140: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1150: 73 65 20 53 51 4c 49 54 45 5f 43 4f 4e 53 54 52 se SQLITE_CONSTR
1160: 41 49 4e 54 3a 20 20 20 20 20 20 20 20 20 20 7a AINT: z
1170: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 43 Name = "SQLITE_C
1180: 4f 4e 53 54 52 41 49 4e 54 22 3b 20 20 20 20 20 ONSTRAINT";
1190: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
11a0: 73 65 20 53 51 4c 49 54 45 5f 4d 49 53 4d 41 54 se SQLITE_MISMAT
11b0: 43 48 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a CH: z
11c0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4d Name = "SQLITE_M
11d0: 49 53 4d 41 54 43 48 22 3b 20 20 20 20 20 20 20 ISMATCH";
11e0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
11f0: 73 65 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 se SQLITE_MISUSE
1200: 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a : z
1210: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4d Name = "SQLITE_M
1220: 49 53 55 53 45 22 3b 20 20 20 20 20 20 20 20 20 ISUSE";
1230: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1240: 73 65 20 53 51 4c 49 54 45 5f 4e 4f 4c 46 53 3a se SQLITE_NOLFS:
1250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
1260: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e Name = "SQLITE_N
1270: 4f 4c 46 53 22 3b 20 20 20 20 20 20 20 20 20 20 OLFS";
1280: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1290: 73 65 20 53 51 4c 49 54 45 5f 41 55 54 48 3a 20 se SQLITE_AUTH:
12a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
12b0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 41 Name = "SQLITE_A
12c0: 55 54 48 22 3b 20 20 20 20 20 20 20 20 20 20 20 UTH";
12d0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
12e0: 73 65 20 53 51 4c 49 54 45 5f 46 4f 52 4d 41 54 se SQLITE_FORMAT
12f0: 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a : z
1300: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 46 Name = "SQLITE_F
1310: 4f 52 4d 41 54 22 3b 20 20 20 20 20 20 20 20 20 ORMAT";
1320: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1330: 73 65 20 53 51 4c 49 54 45 5f 52 41 4e 47 45 3a se SQLITE_RANGE:
1340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
1350: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 Name = "SQLITE_R
1360: 41 4e 47 45 22 3b 20 20 20 20 20 20 20 20 20 20 ANGE";
1370: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1380: 73 65 20 53 51 4c 49 54 45 5f 4e 4f 54 41 44 42 se SQLITE_NOTADB
1390: 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a : z
13a0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e Name = "SQLITE_N
13b0: 4f 54 41 44 42 22 3b 20 20 20 20 20 20 20 20 20 OTADB";
13c0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
13d0: 73 65 20 53 51 4c 49 54 45 5f 52 4f 57 3a 20 20 se SQLITE_ROW:
13e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
13f0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 Name = "SQLITE_R
1400: 4f 57 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 OW";
1410: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1420: 73 65 20 53 51 4c 49 54 45 5f 44 4f 4e 45 3a 20 se SQLITE_DONE:
1430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
1440: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 44 Name = "SQLITE_D
1450: 4f 4e 45 22 3b 20 20 20 20 20 20 20 20 20 20 20 ONE";
1460: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1470: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
1480: 52 45 41 44 3a 20 20 20 20 20 20 20 20 20 20 7a READ: z
1490: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
14a0: 4f 45 52 52 5f 52 45 41 44 22 3b 20 20 20 20 20 OERR_READ";
14b0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
14c0: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
14d0: 53 48 4f 52 54 5f 52 45 41 44 3a 20 20 20 20 7a SHORT_READ: z
14e0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
14f0: 4f 45 52 52 5f 53 48 4f 52 54 5f 52 45 41 44 22 OERR_SHORT_READ"
1500: 3b 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 ; break;. ca
1510: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
1520: 57 52 49 54 45 3a 20 20 20 20 20 20 20 20 20 7a WRITE: z
1530: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
1540: 4f 45 52 52 5f 57 52 49 54 45 22 3b 20 20 20 20 OERR_WRITE";
1550: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1560: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
1570: 46 53 59 4e 43 3a 20 20 20 20 20 20 20 20 20 7a FSYNC: z
1580: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
1590: 4f 45 52 52 5f 46 53 59 4e 43 22 3b 20 20 20 20 OERR_FSYNC";
15a0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
15b0: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
15c0: 44 49 52 5f 46 53 59 4e 43 3a 20 20 20 20 20 7a DIR_FSYNC: z
15d0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
15e0: 4f 45 52 52 5f 44 49 52 5f 46 53 59 4e 43 22 3b OERR_DIR_FSYNC";
15f0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1600: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
1610: 54 52 55 4e 43 41 54 45 3a 20 20 20 20 20 20 7a TRUNCATE: z
1620: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
1630: 4f 45 52 52 5f 54 52 55 4e 43 41 54 45 22 3b 20 OERR_TRUNCATE";
1640: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1650: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
1660: 46 53 54 41 54 3a 20 20 20 20 20 20 20 20 20 7a FSTAT: z
1670: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
1680: 4f 45 52 52 5f 46 53 54 41 54 22 3b 20 20 20 20 OERR_FSTAT";
1690: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
16a0: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
16b0: 55 4e 4c 4f 43 4b 3a 20 20 20 20 20 20 20 20 7a UNLOCK: z
16c0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
16d0: 4f 45 52 52 5f 55 4e 4c 4f 43 4b 22 3b 20 20 20 OERR_UNLOCK";
16e0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
16f0: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
1700: 52 44 4c 4f 43 4b 3a 20 20 20 20 20 20 20 20 7a RDLOCK: z
1710: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
1720: 4f 45 52 52 5f 52 44 4c 4f 43 4b 22 3b 20 20 20 OERR_RDLOCK";
1730: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1740: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
1750: 44 45 4c 45 54 45 3a 20 20 20 20 20 20 20 20 7a DELETE: z
1760: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
1770: 4f 45 52 52 5f 44 45 4c 45 54 45 22 3b 20 20 20 OERR_DELETE";
1780: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1790: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
17a0: 42 4c 4f 43 4b 45 44 3a 20 20 20 20 20 20 20 7a BLOCKED: z
17b0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
17c0: 4f 45 52 52 5f 42 4c 4f 43 4b 45 44 22 3b 20 20 OERR_BLOCKED";
17d0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
17e0: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
17f0: 4e 4f 4d 45 4d 3a 20 20 20 20 20 20 20 20 20 7a NOMEM: z
1800: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
1810: 4f 45 52 52 5f 4e 4f 4d 45 4d 22 3b 20 20 20 20 OERR_NOMEM";
1820: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1830: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
1840: 41 43 43 45 53 53 3a 20 20 20 20 20 20 20 20 7a ACCESS: z
1850: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
1860: 4f 45 52 52 5f 41 43 43 45 53 53 22 3b 20 20 20 OERR_ACCESS";
1870: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
1880: 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f se SQLITE_IOERR_
1890: 43 48 45 43 4b 52 45 53 45 52 56 45 44 4c 4f 43 CHECKRESERVEDLOC
18a0: 4b 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 K:.
18b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
18c0: 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 zName = "SQLIT
18d0: 45 5f 49 4f 45 52 52 5f 43 48 45 43 4b 52 45 53 E_IOERR_CHECKRES
18e0: 45 52 56 45 44 4c 4f 43 4b 22 3b 20 62 72 65 61 ERVEDLOCK"; brea
18f0: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
1900: 54 45 5f 49 4f 45 52 52 5f 4c 4f 43 4b 3a 20 20 TE_IOERR_LOCK:
1910: 20 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 zName =
1920: 22 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 4c 4f "SQLITE_IOERR_LO
1930: 43 4b 22 3b 20 20 20 20 20 20 20 20 62 72 65 61 CK"; brea
1940: 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 20 k;. default:
1950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1960: 20 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 zName =
1970: 22 53 51 4c 49 54 45 5f 55 6e 6b 6e 6f 77 6e 22 "SQLITE_Unknown"
1980: 3b 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 ; brea
1990: 6b 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 k;. }. return
19a0: 7a 4e 61 6d 65 3b 0a 7d 0a 23 64 65 66 69 6e 65 zName;.}.#define
19b0: 20 74 31 45 72 72 6f 72 4e 61 6d 65 20 73 71 6c t1ErrorName sql
19c0: 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d ite3TestErrorNam
19d0: 65 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 e../*.** Convert
19e0: 20 61 6e 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 an sqlite3_stmt
19f0: 2a 20 69 6e 74 6f 20 61 6e 20 73 71 6c 69 74 65 * into an sqlite
1a00: 33 2a 2e 20 20 54 68 69 73 20 64 65 70 65 6e 64 3*. This depend
1a10: 73 20 6f 6e 20 74 68 65 0a 2a 2a 20 66 61 63 74 s on the.** fact
1a20: 20 74 68 61 74 20 74 68 65 20 73 71 6c 69 74 65 that the sqlite
1a30: 33 2a 20 69 73 20 74 68 65 20 66 69 72 73 74 20 3* is the first
1a40: 66 69 65 6c 64 20 69 6e 20 74 68 65 20 56 64 62 field in the Vdb
1a50: 65 20 73 74 72 75 63 74 75 72 65 2e 0a 2a 2f 0a e structure..*/.
1a60: 23 64 65 66 69 6e 65 20 53 74 6d 74 54 6f 44 62 #define StmtToDb
1a70: 28 58 29 20 20 20 73 71 6c 69 74 65 33 5f 64 62 (X) sqlite3_db
1a80: 5f 68 61 6e 64 6c 65 28 58 29 0a 0a 2f 2a 0a 2a _handle(X)../*.*
1a90: 2a 20 43 68 65 63 6b 20 61 20 72 65 74 75 72 6e * Check a return
1aa0: 20 76 61 6c 75 65 20 74 6f 20 6d 61 6b 65 20 73 value to make s
1ab0: 75 72 65 20 69 74 20 61 67 72 65 65 73 20 77 69 ure it agrees wi
1ac0: 74 68 20 74 68 65 20 72 65 73 75 6c 74 73 0a 2a th the results.*
1ad0: 2a 20 66 72 6f 6d 20 73 71 6c 69 74 65 33 5f 65 * from sqlite3_e
1ae0: 72 72 63 6f 64 65 2e 0a 2a 2f 0a 69 6e 74 20 73 rrcode..*/.int s
1af0: 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 qlite3TestErrCod
1b00: 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e e(Tcl_Interp *in
1b10: 74 65 72 70 2c 20 73 71 6c 69 74 65 33 20 2a 64 terp, sqlite3 *d
1b20: 62 2c 20 69 6e 74 20 72 63 29 7b 0a 20 20 69 66 b, int rc){. if
1b30: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4d 49 53 ( rc!=SQLITE_MIS
1b40: 55 53 45 20 26 26 20 72 63 21 3d 53 51 4c 49 54 USE && rc!=SQLIT
1b50: 45 5f 4f 4b 20 26 26 20 73 71 6c 69 74 65 33 5f E_OK && sqlite3_
1b60: 65 72 72 63 6f 64 65 28 64 62 29 21 3d 72 63 20 errcode(db)!=rc
1b70: 29 7b 0a 20 20 20 20 63 68 61 72 20 7a 42 75 66 ){. char zBuf
1b80: 5b 32 30 30 5d 3b 0a 20 20 20 20 69 6e 74 20 72 [200];. int r
1b90: 32 20 3d 20 73 71 6c 69 74 65 33 5f 65 72 72 63 2 = sqlite3_errc
1ba0: 6f 64 65 28 64 62 29 3b 0a 20 20 20 20 73 70 72 ode(db);. spr
1bb0: 69 6e 74 66 28 7a 42 75 66 2c 20 22 65 72 72 6f intf(zBuf, "erro
1bc0: 72 20 63 6f 64 65 20 25 73 20 28 25 64 29 20 64 r code %s (%d) d
1bd0: 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 73 71 oes not match sq
1be0: 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 20 25 73 lite3_errcode %s
1bf0: 20 28 25 64 29 22 2c 0a 20 20 20 20 20 20 20 74 (%d)",. t
1c00: 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 1ErrorName(rc),
1c10: 72 63 2c 20 74 31 45 72 72 6f 72 4e 61 6d 65 28 rc, t1ErrorName(
1c20: 72 32 29 2c 20 72 32 29 3b 0a 20 20 20 20 54 63 r2), r2);. Tc
1c30: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
1c40: 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 41 terp);. Tcl_A
1c50: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1c60: 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 rp, zBuf, 0);.
1c70: 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d 0a return 1;. }.
1c80: 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f return 0;.}../
1c90: 2a 0a 2a 2a 20 44 65 63 6f 64 65 20 61 20 70 6f *.** Decode a po
1ca0: 69 6e 74 65 72 20 74 6f 20 61 6e 20 73 71 6c 69 inter to an sqli
1cb0: 74 65 33 5f 73 74 6d 74 20 6f 62 6a 65 63 74 2e te3_stmt object.
1cc0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 67 .*/.static int g
1cd0: 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 0a 20 etStmtPointer(.
1ce0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1cf0: 65 72 70 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 erp, . const ch
1d00: 61 72 20 2a 7a 41 72 67 2c 20 20 0a 20 20 73 71 ar *zArg, . sq
1d10: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 2a 70 70 53 lite3_stmt **ppS
1d20: 74 6d 74 0a 29 7b 0a 20 20 2a 70 70 53 74 6d 74 tmt.){. *ppStmt
1d30: 20 3d 20 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 = (sqlite3_stmt
1d40: 2a 29 73 71 6c 69 74 65 33 54 65 73 74 54 65 78 *)sqlite3TestTex
1d50: 74 54 6f 50 74 72 28 7a 41 72 67 29 3b 0a 20 20 tToPtr(zArg);.
1d60: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
1d70: 0a 0a 2f 2a 0a 2a 2a 20 47 65 6e 65 72 61 74 65 ../*.** Generate
1d80: 20 61 20 74 65 78 74 20 72 65 70 72 65 73 65 6e a text represen
1d90: 74 61 74 69 6f 6e 20 6f 66 20 61 20 70 6f 69 6e tation of a poin
1da0: 74 65 72 20 74 68 61 74 20 63 61 6e 20 62 65 20 ter that can be
1db0: 75 6e 64 65 72 73 74 6f 6f 64 0a 2a 2a 20 62 79 understood.** by
1dc0: 20 74 68 65 20 67 65 74 44 62 50 6f 69 6e 74 65 the getDbPointe
1dd0: 72 20 61 6e 64 20 67 65 74 56 6d 50 6f 69 6e 74 r and getVmPoint
1de0: 65 72 20 72 6f 75 74 69 6e 65 73 20 61 62 6f 76 er routines abov
1df0: 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 70 72 6f e..**.** The pro
1e00: 62 6c 65 6d 20 69 73 2c 20 6f 6e 20 73 6f 6d 65 blem is, on some
1e10: 20 6d 61 63 68 69 6e 65 73 20 28 53 6f 6c 61 72 machines (Solar
1e20: 69 73 29 20 69 66 20 79 6f 75 20 64 6f 20 61 20 is) if you do a
1e30: 70 72 69 6e 74 66 20 77 69 74 68 0a 2a 2a 20 22 printf with.** "
1e40: 25 70 22 20 79 6f 75 20 63 61 6e 6e 6f 74 20 74 %p" you cannot t
1e50: 75 72 6e 20 61 72 6f 75 6e 64 20 61 6e 64 20 64 urn around and d
1e60: 6f 20 61 20 73 63 61 6e 66 20 77 69 74 68 20 74 o a scanf with t
1e70: 68 65 20 73 61 6d 65 20 22 25 70 22 20 61 6e 64 he same "%p" and
1e80: 0a 2a 2a 20 67 65 74 20 79 6f 75 72 20 70 6f 69 .** get your poi
1e90: 6e 74 65 72 20 62 61 63 6b 2e 20 20 59 6f 75 20 nter back. You
1ea0: 68 61 76 65 20 74 6f 20 70 72 65 70 65 6e 64 20 have to prepend
1eb0: 61 20 22 30 78 22 20 62 65 66 6f 72 65 20 69 74 a "0x" before it
1ec0: 20 77 69 6c 6c 0a 2a 2a 20 77 6f 72 6b 2e 20 20 will.** work.
1ed0: 4f 72 20 61 74 20 6c 65 61 73 74 20 74 68 61 74 Or at least that
1ee0: 20 69 73 20 77 68 61 74 20 69 73 20 72 65 70 6f is what is repo
1ef0: 72 74 65 64 20 74 6f 20 6d 65 20 28 64 72 68 29 rted to me (drh)
1f00: 2e 20 20 42 75 74 20 74 68 69 73 0a 2a 2a 20 62 . But this.** b
1f10: 65 68 61 76 69 6f 72 20 76 61 72 69 65 73 20 66 ehavior varies f
1f20: 72 6f 6d 20 6d 61 63 68 69 6e 65 20 74 6f 20 6d rom machine to m
1f30: 61 63 68 69 6e 65 2e 20 20 54 68 65 20 73 6f 6c achine. The sol
1f40: 75 74 69 6f 6e 20 75 73 65 64 20 68 65 72 20 69 ution used her i
1f50: 73 0a 2a 2a 20 74 6f 20 74 65 73 74 20 74 68 65 s.** to test the
1f60: 20 73 74 72 69 6e 67 20 72 69 67 68 74 20 61 66 string right af
1f70: 74 65 72 20 69 74 20 69 73 20 67 65 6e 65 72 61 ter it is genera
1f80: 74 65 64 20 74 6f 20 73 65 65 20 69 66 20 69 74 ted to see if it
1f90: 20 63 61 6e 20 62 65 0a 2a 2a 20 75 6e 64 65 72 can be.** under
1fa0: 73 74 6f 6f 64 20 62 79 20 73 63 61 6e 66 2c 20 stood by scanf,
1fb0: 61 6e 64 20 69 66 20 6e 6f 74 2c 20 74 72 79 20 and if not, try
1fc0: 70 72 65 70 65 6e 64 69 6e 67 20 61 6e 20 22 30 prepending an "0
1fd0: 78 22 20 74 6f 20 73 65 65 20 69 66 0a 2a 2a 20 x" to see if.**
1fe0: 74 68 61 74 20 68 65 6c 70 73 2e 20 20 49 66 20 that helps. If
1ff0: 6e 6f 74 68 69 6e 67 20 77 6f 72 6b 73 2c 20 61 nothing works, a
2000: 20 66 61 74 61 6c 20 65 72 72 6f 72 20 69 73 20 fatal error is
2010: 67 65 6e 65 72 61 74 65 64 2e 0a 2a 2f 0a 69 6e generated..*/.in
2020: 74 20 73 71 6c 69 74 65 33 54 65 73 74 4d 61 6b t sqlite3TestMak
2030: 65 50 6f 69 6e 74 65 72 53 74 72 28 54 63 6c 5f ePointerStr(Tcl_
2040: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
2050: 63 68 61 72 20 2a 7a 50 74 72 2c 20 76 6f 69 64 char *zPtr, void
2060: 20 2a 70 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f *p){. sqlite3_
2070: 73 6e 70 72 69 6e 74 66 28 31 30 30 2c 20 7a 50 snprintf(100, zP
2080: 74 72 2c 20 22 25 70 22 2c 20 70 29 3b 0a 20 20 tr, "%p", p);.
2090: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
20a0: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 63 61 6c 6c ../*.** The call
20b0: 62 61 63 6b 20 72 6f 75 74 69 6e 65 20 66 6f 72 back routine for
20c0: 20 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 70 72 sqlite3_exec_pr
20d0: 69 6e 74 66 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 intf()..*/.stati
20e0: 63 20 69 6e 74 20 65 78 65 63 5f 70 72 69 6e 74 c int exec_print
20f0: 66 5f 63 62 28 76 6f 69 64 20 2a 70 41 72 67 2c f_cb(void *pArg,
2100: 20 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72 20 int argc, char
2110: 2a 2a 61 72 67 76 2c 20 63 68 61 72 20 2a 2a 6e **argv, char **n
2120: 61 6d 65 29 7b 0a 20 20 54 63 6c 5f 44 53 74 72 ame){. Tcl_DStr
2130: 69 6e 67 20 2a 73 74 72 20 3d 20 28 54 63 6c 5f ing *str = (Tcl_
2140: 44 53 74 72 69 6e 67 2a 29 70 41 72 67 3b 0a 20 DString*)pArg;.
2150: 20 69 6e 74 20 69 3b 0a 0a 20 20 69 66 28 20 54 int i;.. if( T
2160: 63 6c 5f 44 53 74 72 69 6e 67 4c 65 6e 67 74 68 cl_DStringLength
2170: 28 73 74 72 29 3d 3d 30 20 29 7b 0a 20 20 20 20 (str)==0 ){.
2180: 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b for(i=0; i<argc;
2190: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 54 63 6c i++){. Tcl
21a0: 5f 44 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c _DStringAppendEl
21b0: 65 6d 65 6e 74 28 73 74 72 2c 20 6e 61 6d 65 5b ement(str, name[
21c0: 69 5d 20 3f 20 6e 61 6d 65 5b 69 5d 20 3a 20 22 i] ? name[i] : "
21d0: 4e 55 4c 4c 22 29 3b 0a 20 20 20 20 7d 0a 20 20 NULL");. }.
21e0: 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 }. for(i=0; i<a
21f0: 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 rgc; i++){. T
2200: 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 6e 64 cl_DStringAppend
2210: 45 6c 65 6d 65 6e 74 28 73 74 72 2c 20 61 72 67 Element(str, arg
2220: 76 5b 69 5d 20 3f 20 61 72 67 76 5b 69 5d 20 3a v[i] ? argv[i] :
2230: 20 22 4e 55 4c 4c 22 29 3b 0a 20 20 7d 0a 20 20 "NULL");. }.
2240: 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a return 0;.}../*.
2250: 2a 2a 20 54 68 65 20 49 2f 4f 20 74 72 61 63 69 ** The I/O traci
2260: 6e 67 20 63 61 6c 6c 62 61 63 6b 2e 0a 2a 2f 0a ng callback..*/.
2270: 23 69 66 20 21 64 65 66 69 6e 65 64 28 53 51 4c #if !defined(SQL
2280: 49 54 45 5f 4f 4d 49 54 5f 54 52 41 43 45 29 20 ITE_OMIT_TRACE)
2290: 26 26 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 && defined(SQLIT
22a0: 45 5f 45 4e 41 42 4c 45 5f 49 4f 54 52 41 43 45 E_ENABLE_IOTRACE
22b0: 29 0a 73 74 61 74 69 63 20 46 49 4c 45 20 2a 69 ).static FILE *i
22c0: 6f 74 72 61 63 65 5f 66 69 6c 65 20 3d 20 30 3b otrace_file = 0;
22d0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 69 6f 5f .static void io_
22e0: 74 72 61 63 65 5f 63 61 6c 6c 62 61 63 6b 28 63 trace_callback(c
22f0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d onst char *zForm
2300: 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c at, ...){. va_l
2310: 69 73 74 20 61 70 3b 0a 20 20 76 61 5f 73 74 61 ist ap;. va_sta
2320: 72 74 28 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b rt(ap, zFormat);
2330: 0a 20 20 76 66 70 72 69 6e 74 66 28 69 6f 74 72 . vfprintf(iotr
2340: 61 63 65 5f 66 69 6c 65 2c 20 7a 46 6f 72 6d 61 ace_file, zForma
2350: 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 t, ap);. va_end
2360: 28 61 70 29 3b 0a 20 20 66 66 6c 75 73 68 28 69 (ap);. fflush(i
2370: 6f 74 72 61 63 65 5f 66 69 6c 65 29 3b 0a 7d 0a otrace_file);.}.
2380: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 #endif../*.** Us
2390: 61 67 65 3a 20 20 69 6f 5f 74 72 61 63 65 20 46 age: io_trace F
23a0: 49 4c 45 4e 41 4d 45 0a 2a 2a 0a 2a 2a 20 54 75 ILENAME.**.** Tu
23b0: 72 6e 20 49 2f 4f 20 74 72 61 63 69 6e 67 20 6f rn I/O tracing o
23c0: 6e 20 6f 72 20 6f 66 66 2e 20 20 49 66 20 46 49 n or off. If FI
23d0: 4c 45 4e 41 4d 45 20 69 73 20 6e 6f 74 20 61 6e LENAME is not an
23e0: 20 65 6d 70 74 79 20 73 74 72 69 6e 67 2c 0a 2a empty string,.*
23f0: 2a 20 49 2f 4f 20 74 72 61 63 69 6e 67 20 62 65 * I/O tracing be
2400: 67 69 6e 73 20 67 6f 69 6e 67 20 69 6e 74 6f 20 gins going into
2410: 46 49 4c 45 4e 41 4d 45 2e 20 49 66 20 46 49 4c FILENAME. If FIL
2420: 45 4e 41 4d 45 20 69 73 20 61 6e 20 65 6d 70 74 ENAME is an empt
2430: 79 0a 2a 2a 20 73 74 72 69 6e 67 2c 20 49 2f 4f y.** string, I/O
2440: 20 74 72 61 63 69 6e 67 20 69 73 20 74 75 72 6e tracing is turn
2450: 65 64 20 6f 66 66 2e 0a 2a 2f 0a 73 74 61 74 69 ed off..*/.stati
2460: 63 20 69 6e 74 20 74 65 73 74 5f 69 6f 5f 74 72 c int test_io_tr
2470: 61 63 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 ace(. void *Not
2480: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
2490: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
24a0: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
24b0: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
24c0: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
24d0: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
24e0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
24f0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
2500: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
2510: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
2520: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
2530: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 23 69 rgument */.){.#i
2540: 66 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 f !defined(SQLIT
2550: 45 5f 4f 4d 49 54 5f 54 52 41 43 45 29 20 26 26 E_OMIT_TRACE) &&
2560: 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f defined(SQLITE_
2570: 45 4e 41 42 4c 45 5f 49 4f 54 52 41 43 45 29 0a ENABLE_IOTRACE).
2580: 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b if( argc!=2 ){
2590: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
25a0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
25b0: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
25c0: 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 uld be \"", argv
25d0: 5b 30 5d 2c 0a 20 20 20 20 20 20 20 20 20 20 22 [0],. "
25e0: 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 29 FILENAME\"", 0)
25f0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
2600: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
2610: 28 20 69 6f 74 72 61 63 65 5f 66 69 6c 65 20 29 ( iotrace_file )
2620: 7b 0a 20 20 20 20 69 66 28 20 69 6f 74 72 61 63 {. if( iotrac
2630: 65 5f 66 69 6c 65 21 3d 73 74 64 6f 75 74 20 26 e_file!=stdout &
2640: 26 20 69 6f 74 72 61 63 65 5f 66 69 6c 65 21 3d & iotrace_file!=
2650: 73 74 64 65 72 72 20 29 7b 0a 20 20 20 20 20 20 stderr ){.
2660: 66 63 6c 6f 73 65 28 69 6f 74 72 61 63 65 5f 66 fclose(iotrace_f
2670: 69 6c 65 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ile);. }.
2680: 69 6f 74 72 61 63 65 5f 66 69 6c 65 20 3d 20 30 iotrace_file = 0
2690: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 49 6f 54 ;. sqlite3IoT
26a0: 72 61 63 65 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 race = 0;. }.
26b0: 69 66 28 20 61 72 67 76 5b 31 5d 5b 30 5d 20 29 if( argv[1][0] )
26c0: 7b 0a 20 20 20 20 69 66 28 20 73 74 72 63 6d 70 {. if( strcmp
26d0: 28 61 72 67 76 5b 31 5d 2c 22 73 74 64 6f 75 74 (argv[1],"stdout
26e0: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 ")==0 ){. i
26f0: 6f 74 72 61 63 65 5f 66 69 6c 65 20 3d 20 73 74 otrace_file = st
2700: 64 6f 75 74 3b 0a 20 20 20 20 7d 65 6c 73 65 20 dout;. }else
2710: 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b if( strcmp(argv[
2720: 31 5d 2c 22 73 74 64 65 72 72 22 29 3d 3d 30 20 1],"stderr")==0
2730: 29 7b 0a 20 20 20 20 20 20 69 6f 74 72 61 63 65 ){. iotrace
2740: 5f 66 69 6c 65 20 3d 20 73 74 64 65 72 72 3b 0a _file = stderr;.
2750: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
2760: 20 69 6f 74 72 61 63 65 5f 66 69 6c 65 20 3d 20 iotrace_file =
2770: 66 6f 70 65 6e 28 61 72 67 76 5b 31 5d 2c 20 22 fopen(argv[1], "
2780: 77 22 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 w");. }. s
2790: 71 6c 69 74 65 33 49 6f 54 72 61 63 65 20 3d 20 qlite3IoTrace =
27a0: 69 6f 5f 74 72 61 63 65 5f 63 61 6c 6c 62 61 63 io_trace_callbac
27b0: 6b 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 k;. }.#endif.
27c0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
27d0: 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 .../*.** Usage:
27e0: 20 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 70 72 sqlite3_exec_pr
27f0: 69 6e 74 66 20 20 44 42 20 20 46 4f 52 4d 41 54 intf DB FORMAT
2800: 20 20 53 54 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 49 STRING.**.** I
2810: 6e 76 6f 6b 65 20 74 68 65 20 73 71 6c 69 74 65 nvoke the sqlite
2820: 33 5f 65 78 65 63 5f 70 72 69 6e 74 66 28 29 20 3_exec_printf()
2830: 69 6e 74 65 72 66 61 63 65 20 75 73 69 6e 67 20 interface using
2840: 74 68 65 20 6f 70 65 6e 20 64 61 74 61 62 61 73 the open databas
2850: 65 0a 2a 2a 20 44 42 2e 20 20 54 68 65 20 53 51 e.** DB. The SQ
2860: 4c 20 69 73 20 74 68 65 20 73 74 72 69 6e 67 20 L is the string
2870: 46 4f 52 4d 41 54 2e 20 20 54 68 65 20 66 6f 72 FORMAT. The for
2880: 6d 61 74 20 73 74 72 69 6e 67 20 73 68 6f 75 6c mat string shoul
2890: 64 20 63 6f 6e 74 61 69 6e 0a 2a 2a 20 6f 6e 65 d contain.** one
28a0: 20 25 73 20 6f 72 20 25 71 2e 20 20 53 54 52 49 %s or %q. STRI
28b0: 4e 47 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 NG is the value
28c0: 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 25 73 inserted into %s
28d0: 20 6f 72 20 25 71 2e 0a 2a 2f 0a 73 74 61 74 69 or %q..*/.stati
28e0: 63 20 69 6e 74 20 74 65 73 74 5f 65 78 65 63 5f c int test_exec_
28f0: 70 72 69 6e 74 66 28 0a 20 20 76 6f 69 64 20 2a printf(. void *
2900: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
2910: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
2920: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
2930: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
2940: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
2950: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
2960: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
2970: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
2980: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
2990: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
29a0: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
29b0: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
29c0: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
29d0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 73 74 Tcl_DString st
29e0: 72 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 r;. int rc;. c
29f0: 68 61 72 20 2a 7a 45 72 72 20 3d 20 30 3b 0a 20 har *zErr = 0;.
2a00: 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 20 63 char *zSql;. c
2a10: 68 61 72 20 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 har zBuf[30];.
2a20: 69 66 28 20 61 72 67 63 21 3d 34 20 29 7b 0a 20 if( argc!=4 ){.
2a30: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
2a40: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
2a50: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
2a60: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
2a70: 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 44 42 20 ], . " DB
2a80: 46 4f 52 4d 41 54 20 53 54 52 49 4e 47 22 2c 20 FORMAT STRING",
2a90: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
2aa0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
2ab0: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
2ac0: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
2ad0: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
2ae0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c TCL_ERROR;. Tcl
2af0: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 73 74 _DStringInit(&st
2b00: 72 29 3b 0a 20 20 7a 53 71 6c 20 3d 20 73 71 6c r);. zSql = sql
2b10: 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 ite3_mprintf(arg
2b20: 76 5b 32 5d 2c 20 61 72 67 76 5b 33 5d 29 3b 0a v[2], argv[3]);.
2b30: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 65 rc = sqlite3_e
2b40: 78 65 63 28 64 62 2c 20 7a 53 71 6c 2c 20 65 78 xec(db, zSql, ex
2b50: 65 63 5f 70 72 69 6e 74 66 5f 63 62 2c 20 26 73 ec_printf_cb, &s
2b60: 74 72 2c 20 26 7a 45 72 72 29 3b 0a 20 20 73 71 tr, &zErr);. sq
2b70: 6c 69 74 65 33 5f 66 72 65 65 28 7a 53 71 6c 29 lite3_free(zSql)
2b80: 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 ;. sprintf(zBuf
2b90: 2c 20 22 25 64 22 2c 20 72 63 29 3b 0a 20 20 54 , "%d", rc);. T
2ba0: 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 cl_AppendElement
2bb0: 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a (interp, zBuf);.
2bc0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d Tcl_AppendElem
2bd0: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 63 3d 3d ent(interp, rc==
2be0: 53 51 4c 49 54 45 5f 4f 4b 20 3f 20 54 63 6c 5f SQLITE_OK ? Tcl_
2bf0: 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 73 74 DStringValue(&st
2c00: 72 29 20 3a 20 7a 45 72 72 29 3b 0a 20 20 54 63 r) : zErr);. Tc
2c10: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 73 l_DStringFree(&s
2c20: 74 72 29 3b 0a 20 20 69 66 28 20 7a 45 72 72 20 tr);. if( zErr
2c30: 29 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a ) sqlite3_free(z
2c40: 45 72 72 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 Err);. if( sqli
2c50: 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 te3TestErrCode(i
2c60: 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 nterp, db, rc) )
2c70: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
2c80: 52 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f R;. return TCL_
2c90: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
2ca0: 67 65 3a 20 20 64 62 5f 65 6e 74 65 72 20 44 42 ge: db_enter DB
2cb0: 0a 2a 2a 20 20 20 20 20 20 20 20 20 64 62 5f 6c .** db_l
2cc0: 65 61 76 65 20 44 42 0a 2a 2a 0a 2a 2a 20 45 6e eave DB.**.** En
2cd0: 74 65 72 20 6f 72 20 6c 65 61 76 65 20 74 68 65 ter or leave the
2ce0: 20 6d 75 74 65 78 20 6f 6e 20 61 20 64 61 74 61 mutex on a data
2cf0: 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e base connection.
2d00: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 64 .*/.static int d
2d10: 62 5f 65 6e 74 65 72 28 0a 20 20 76 6f 69 64 20 b_enter(. void
2d20: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f *NotUsed,. Tcl_
2d30: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
2d40: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
2d50: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
2d60: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
2d70: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 and */. int arg
2d80: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
2d90: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
2da0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 uments */. char
2db0: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 **argv
2dc0: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 /* Text of ea
2dd0: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 ch argument */.)
2de0: 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
2df0: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 . if( argc!=2 )
2e00: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
2e10: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
2e20: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
2e30: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
2e40: 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 v[0], . "
2e50: 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 DB", 0);. ret
2e60: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2e70: 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
2e80: 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 inter(interp, ar
2e90: 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 gv[1], &db) ) re
2ea0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2eb0: 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f sqlite3_mutex_
2ec0: 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 enter(db->mutex)
2ed0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
2ee0: 4b 3b 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 K;.}.static int
2ef0: 64 62 5f 6c 65 61 76 65 28 0a 20 20 76 6f 69 64 db_leave(. void
2f00: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
2f10: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
2f20: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
2f30: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
2f40: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
2f50: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
2f60: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
2f70: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
2f80: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
2f90: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
2fa0: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
2fb0: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
2fc0: 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ){. sqlite3 *db
2fd0: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 ;. if( argc!=2
2fe0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
2ff0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
3000: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
3010: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
3020: 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 gv[0], . "
3030: 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 DB", 0);. re
3040: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3050: 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 }. if( getDbP
3060: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 ointer(interp, a
3070: 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 rgv[1], &db) ) r
3080: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3090: 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 . sqlite3_mutex
30a0: 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 _leave(db->mutex
30b0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
30c0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
30d0: 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 65 78 65 ge: sqlite3_exe
30e0: 63 20 20 44 42 20 20 53 51 4c 0a 2a 2a 0a 2a 2a c DB SQL.**.**
30f0: 20 49 6e 76 6f 6b 65 20 74 68 65 20 73 71 6c 69 Invoke the sqli
3100: 74 65 33 5f 65 78 65 63 20 69 6e 74 65 72 66 61 te3_exec interfa
3110: 63 65 20 75 73 69 6e 67 20 74 68 65 20 6f 70 65 ce using the ope
3120: 6e 20 64 61 74 61 62 61 73 65 20 44 42 0a 2a 2f n database DB.*/
3130: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
3140: 5f 65 78 65 63 28 0a 20 20 76 6f 69 64 20 2a 4e _exec(. void *N
3150: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
3160: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
3170: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
3180: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
3190: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
31a0: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
31b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
31c0: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
31d0: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
31e0: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
31f0: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
3200: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
3210: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
3220: 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 73 74 72 Tcl_DString str
3230: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 ;. int rc;. ch
3240: 61 72 20 2a 7a 45 72 72 20 3d 20 30 3b 0a 20 20 ar *zErr = 0;.
3250: 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 20 69 6e char *zSql;. in
3260: 74 20 69 2c 20 6a 3b 0a 20 20 63 68 61 72 20 7a t i, j;. char z
3270: 42 75 66 5b 33 30 5d 3b 0a 20 20 69 66 28 20 61 Buf[30];. if( a
3280: 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 rgc!=3 ){. Tc
3290: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
32a0: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
32b0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
32c0: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 \"", argv[0], .
32d0: 20 20 20 20 20 20 22 20 44 42 20 53 51 4c 22 2c " DB SQL",
32e0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
32f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
3300: 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
3310: 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 r(interp, argv[1
3320: 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e ], &db) ) return
3330: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 TCL_ERROR;. Tc
3340: 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 73 l_DStringInit(&s
3350: 74 72 29 3b 0a 20 20 7a 53 71 6c 20 3d 20 73 71 tr);. zSql = sq
3360: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 lite3_mprintf("%
3370: 73 22 2c 20 61 72 67 76 5b 32 5d 29 3b 0a 20 20 s", argv[2]);.
3380: 66 6f 72 28 69 3d 6a 3d 30 3b 20 7a 53 71 6c 5b for(i=j=0; zSql[
3390: 69 5d 3b 29 7b 0a 20 20 20 20 69 66 28 20 7a 53 i];){. if( zS
33a0: 71 6c 5b 69 5d 3d 3d 27 25 27 20 29 7b 0a 20 20 ql[i]=='%' ){.
33b0: 20 20 20 20 7a 53 71 6c 5b 6a 2b 2b 5d 20 3d 20 zSql[j++] =
33c0: 28 74 65 73 74 48 65 78 54 6f 49 6e 74 28 7a 53 (testHexToInt(zS
33d0: 71 6c 5b 69 2b 31 5d 29 3c 3c 34 29 20 2b 20 74 ql[i+1])<<4) + t
33e0: 65 73 74 48 65 78 54 6f 49 6e 74 28 7a 53 71 6c estHexToInt(zSql
33f0: 5b 69 2b 32 5d 29 3b 0a 20 20 20 20 20 20 69 20 [i+2]);. i
3400: 2b 3d 20 33 3b 0a 20 20 20 20 7d 65 6c 73 65 7b += 3;. }else{
3410: 0a 20 20 20 20 20 20 7a 53 71 6c 5b 6a 2b 2b 5d . zSql[j++]
3420: 20 3d 20 7a 53 71 6c 5b 69 2b 2b 5d 3b 0a 20 20 = zSql[i++];.
3430: 20 20 7d 0a 20 20 7d 0a 20 20 7a 53 71 6c 5b 6a }. }. zSql[j
3440: 5d 20 3d 20 30 3b 0a 20 20 72 63 20 3d 20 73 71 ] = 0;. rc = sq
3450: 6c 69 74 65 33 5f 65 78 65 63 28 64 62 2c 20 7a lite3_exec(db, z
3460: 53 71 6c 2c 20 65 78 65 63 5f 70 72 69 6e 74 66 Sql, exec_printf
3470: 5f 63 62 2c 20 26 73 74 72 2c 20 26 7a 45 72 72 _cb, &str, &zErr
3480: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 );. sqlite3_fre
3490: 65 28 7a 53 71 6c 29 3b 0a 20 20 73 70 72 69 6e e(zSql);. sprin
34a0: 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 72 tf(zBuf, "%d", r
34b0: 63 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 c);. Tcl_Append
34c0: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
34d0: 7a 42 75 66 29 3b 0a 20 20 54 63 6c 5f 41 70 70 zBuf);. Tcl_App
34e0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
34f0: 70 2c 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b p, rc==SQLITE_OK
3500: 20 3f 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 ? Tcl_DStringVa
3510: 6c 75 65 28 26 73 74 72 29 20 3a 20 7a 45 72 72 lue(&str) : zErr
3520: 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 );. Tcl_DString
3530: 46 72 65 65 28 26 73 74 72 29 3b 0a 20 20 69 66 Free(&str);. if
3540: 28 20 7a 45 72 72 20 29 20 73 71 6c 69 74 65 33 ( zErr ) sqlite3
3550: 5f 66 72 65 65 28 7a 45 72 72 29 3b 0a 20 20 69 _free(zErr);. i
3560: 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 f( sqlite3TestEr
3570: 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 rCode(interp, db
3580: 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 , rc) ) return T
3590: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 74 75 CL_ERROR;. retu
35a0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
35b0: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
35c0: 74 65 33 5f 65 78 65 63 5f 6e 72 20 20 44 42 20 te3_exec_nr DB
35d0: 20 53 51 4c 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b SQL.**.** Invok
35e0: 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 65 78 e the sqlite3_ex
35f0: 65 63 20 69 6e 74 65 72 66 61 63 65 20 75 73 69 ec interface usi
3600: 6e 67 20 74 68 65 20 6f 70 65 6e 20 64 61 74 61 ng the open data
3610: 62 61 73 65 20 44 42 2e 20 20 44 69 73 63 61 72 base DB. Discar
3620: 64 0a 2a 2a 20 61 6c 6c 20 72 65 73 75 6c 74 73 d.** all results
3630: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
3640: 65 73 74 5f 65 78 65 63 5f 6e 72 28 0a 20 20 76 est_exec_nr(. v
3650: 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 oid *NotUsed,.
3660: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
3670: 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
3680: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
3690: 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
36a0: 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
36b0: 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 argc,
36c0: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
36d0: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
36e0: 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 char **argv
36f0: 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f /* Text o
3700: 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 f each argument
3710: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 */.){. sqlite3
3720: 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 *db;. int rc;.
3730: 20 63 68 61 72 20 2a 7a 45 72 72 20 3d 20 30 3b char *zErr = 0;
3740: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 . if( argc!=3 )
3750: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
3760: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
3770: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
3780: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
3790: 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 v[0], . "
37a0: 44 42 20 53 51 4c 22 2c 20 30 29 3b 0a 20 20 20 DB SQL", 0);.
37b0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
37c0: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
37d0: 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
37e0: 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 , argv[1], &db)
37f0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
3800: 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 OR;. rc = sqlit
3810: 65 33 5f 65 78 65 63 28 64 62 2c 20 61 72 67 76 e3_exec(db, argv
3820: 5b 32 5d 2c 20 30 2c 20 30 2c 20 26 7a 45 72 72 [2], 0, 0, &zErr
3830: 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
3840: 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
3850: 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 rp, db, rc) ) re
3860: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3870: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
3880: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
3890: 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 sqlite3_mprint
38a0: 66 5f 7a 5f 74 65 73 74 20 20 53 45 50 41 52 41 f_z_test SEPARA
38b0: 54 4f 52 20 20 41 52 47 30 20 20 41 52 47 31 20 TOR ARG0 ARG1
38c0: 2e 2e 2e 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 ....**.** Test t
38d0: 68 65 20 25 7a 20 66 6f 72 6d 61 74 20 6f 66 20 he %z format of
38e0: 73 71 6c 69 74 65 4d 50 72 69 6e 74 66 28 29 2e sqliteMPrintf().
38f0: 20 20 55 73 65 20 6d 75 6c 74 69 70 6c 65 20 6d Use multiple m
3900: 70 72 69 6e 74 66 28 29 20 63 61 6c 6c 73 20 74 printf() calls t
3910: 6f 20 0a 2a 2a 20 63 6f 6e 63 61 74 65 6e 61 74 o .** concatenat
3920: 65 20 61 72 67 30 20 74 68 72 6f 75 67 68 20 61 e arg0 through a
3930: 72 67 6e 20 75 73 69 6e 67 20 73 65 70 61 72 61 rgn using separa
3940: 74 6f 72 20 61 73 20 74 68 65 20 73 65 70 61 72 tor as the separ
3950: 61 74 6f 72 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 ator..** Return
3960: 74 68 65 20 72 65 73 75 6c 74 2e 0a 2a 2f 0a 73 the result..*/.s
3970: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6d tatic int test_m
3980: 70 72 69 6e 74 66 5f 7a 28 0a 20 20 76 6f 69 64 printf_z(. void
3990: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
39a0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
39b0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
39c0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
39d0: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
39e0: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
39f0: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
3a00: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
3a10: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
3a20: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
3a30: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
3a40: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
3a50: 29 7b 0a 20 20 63 68 61 72 20 2a 7a 52 65 73 75 ){. char *zResu
3a60: 6c 74 20 3d 20 30 3b 0a 20 20 69 6e 74 20 69 3b lt = 0;. int i;
3a70: 0a 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 61 .. for(i=2; i<a
3a80: 72 67 63 20 26 26 20 28 69 3d 3d 32 20 7c 7c 20 rgc && (i==2 ||
3a90: 7a 52 65 73 75 6c 74 29 3b 20 69 2b 2b 29 7b 0a zResult); i++){.
3aa0: 20 20 20 20 7a 52 65 73 75 6c 74 20 3d 20 73 71 zResult = sq
3ab0: 6c 69 74 65 33 4d 50 72 69 6e 74 66 28 30 2c 20 lite3MPrintf(0,
3ac0: 22 25 7a 25 73 25 73 22 2c 20 7a 52 65 73 75 6c "%z%s%s", zResul
3ad0: 74 2c 20 61 72 67 76 5b 31 5d 2c 20 61 72 67 76 t, argv[1], argv
3ae0: 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f [i]);. }. Tcl_
3af0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
3b00: 65 72 70 2c 20 7a 52 65 73 75 6c 74 2c 20 30 29 erp, zResult, 0)
3b10: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 ;. sqlite3_free
3b20: 28 7a 52 65 73 75 6c 74 29 3b 0a 20 20 72 65 74 (zResult);. ret
3b30: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
3b40: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
3b50: 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 6e 5f 74 ite3_mprintf_n_t
3b60: 65 73 74 20 20 53 54 52 49 4e 47 0a 2a 2a 0a 2a est STRING.**.*
3b70: 2a 20 54 65 73 74 20 74 68 65 20 25 6e 20 66 6f * Test the %n fo
3b80: 72 6d 61 74 20 6f 66 20 73 71 6c 69 74 65 4d 50 rmat of sqliteMP
3b90: 72 69 6e 74 66 28 29 2e 20 20 52 65 74 75 72 6e rintf(). Return
3ba0: 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 the length of t
3bb0: 68 65 0a 2a 2a 20 69 6e 70 75 74 20 73 74 72 69 he.** input stri
3bc0: 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ng..*/.static in
3bd0: 74 20 74 65 73 74 5f 6d 70 72 69 6e 74 66 5f 6e t test_mprintf_n
3be0: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
3bf0: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
3c00: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
3c10: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
3c20: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
3c30: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
3c40: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
3c50: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
3c60: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
3c70: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
3c80: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
3c90: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
3ca0: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 ment */.){. cha
3cb0: 72 20 2a 7a 53 74 72 3b 0a 20 20 69 6e 74 20 6e r *zStr;. int n
3cc0: 20 3d 20 30 3b 0a 20 20 7a 53 74 72 20 3d 20 73 = 0;. zStr = s
3cd0: 71 6c 69 74 65 33 4d 50 72 69 6e 74 66 28 30 2c qlite3MPrintf(0,
3ce0: 20 22 25 73 25 6e 22 2c 20 61 72 67 76 5b 31 5d "%s%n", argv[1]
3cf0: 2c 20 26 6e 29 3b 0a 20 20 73 71 6c 69 74 65 33 , &n);. sqlite3
3d00: 5f 66 72 65 65 28 7a 53 74 72 29 3b 0a 20 20 54 _free(zStr);. T
3d10: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
3d20: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 interp, Tcl_NewI
3d30: 6e 74 4f 62 6a 28 6e 29 29 3b 0a 20 20 72 65 74 ntObj(n));. ret
3d40: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
3d50: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
3d60: 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 5f 69 6e ite3_snprintf_in
3d70: 74 20 20 53 49 5a 45 20 46 4f 52 4d 41 54 20 20 t SIZE FORMAT
3d80: 49 4e 54 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 INT.**.** Test t
3d90: 68 65 20 6f 66 20 73 71 6c 69 74 65 33 5f 73 6e he of sqlite3_sn
3da0: 70 72 69 6e 74 66 28 29 20 72 6f 75 74 69 6e 65 printf() routine
3db0: 2e 20 20 53 49 5a 45 20 69 73 20 74 68 65 20 73 . SIZE is the s
3dc0: 69 7a 65 20 6f 66 20 74 68 65 0a 2a 2a 20 6f 75 ize of the.** ou
3dd0: 74 70 75 74 20 62 75 66 66 65 72 20 69 6e 20 62 tput buffer in b
3de0: 79 74 65 73 2e 20 20 54 68 65 20 6d 61 78 69 6d ytes. The maxim
3df0: 75 6d 20 73 69 7a 65 20 69 73 20 31 30 30 2e 20 um size is 100.
3e00: 20 46 4f 52 4d 41 54 20 69 73 20 74 68 65 0a 2a FORMAT is the.*
3e10: 2a 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 2e * format string.
3e20: 20 20 49 4e 54 20 69 73 20 61 20 73 69 6e 67 6c INT is a singl
3e30: 65 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 e integer argume
3e40: 6e 74 2e 20 20 54 68 65 20 46 4f 52 4d 41 54 0a nt. The FORMAT.
3e50: 2a 2a 20 73 74 72 69 6e 67 20 6d 75 73 74 20 72 ** string must r
3e60: 65 71 75 69 72 65 20 6e 6f 20 6d 6f 72 65 20 74 equire no more t
3e70: 68 61 6e 20 74 68 69 73 20 6f 6e 65 20 69 6e 74 han this one int
3e80: 65 67 65 72 20 61 72 67 75 6d 65 6e 74 2e 20 20 eger argument.
3e90: 49 66 0a 2a 2a 20 59 6f 75 20 70 61 73 73 20 69 If.** You pass i
3ea0: 6e 20 61 20 66 6f 72 6d 61 74 20 73 74 72 69 6e n a format strin
3eb0: 67 20 74 68 61 74 20 72 65 71 75 69 72 65 73 20 g that requires
3ec0: 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 61 72 more than one ar
3ed0: 67 75 6d 65 6e 74 2c 0a 2a 2a 20 62 61 64 20 74 gument,.** bad t
3ee0: 68 69 6e 67 73 20 77 69 6c 6c 20 68 61 70 70 65 hings will happe
3ef0: 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 n..*/.static int
3f00: 20 74 65 73 74 5f 73 6e 70 72 69 6e 74 66 5f 69 test_snprintf_i
3f10: 6e 74 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 nt(. void *NotU
3f20: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
3f30: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
3f40: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
3f50: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
3f60: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
3f70: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
3f80: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
3f90: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
3fa0: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
3fb0: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
3fc0: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
3fd0: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 63 gument */.){. c
3fe0: 68 61 72 20 7a 53 74 72 5b 31 30 30 5d 3b 0a 20 har zStr[100];.
3ff0: 20 69 6e 74 20 6e 20 3d 20 61 74 6f 69 28 61 72 int n = atoi(ar
4000: 67 76 5b 31 5d 29 3b 0a 20 20 63 6f 6e 73 74 20 gv[1]);. const
4010: 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 20 3d 20 char *zFormat =
4020: 61 72 67 76 5b 32 5d 3b 0a 20 20 69 6e 74 20 61 argv[2];. int a
4030: 31 20 3d 20 61 74 6f 69 28 61 72 67 76 5b 33 5d 1 = atoi(argv[3]
4040: 29 3b 0a 20 20 69 66 28 20 6e 3e 73 69 7a 65 6f );. if( n>sizeo
4050: 66 28 7a 53 74 72 29 20 29 20 6e 20 3d 20 73 69 f(zStr) ) n = si
4060: 7a 65 6f 66 28 7a 53 74 72 29 3b 0a 20 20 73 71 zeof(zStr);. sq
4070: 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 73 lite3_snprintf(s
4080: 69 7a 65 6f 66 28 7a 53 74 72 29 2c 20 7a 53 74 izeof(zStr), zSt
4090: 72 2c 20 22 61 62 63 64 65 66 67 68 69 6a 6b 6c r, "abcdefghijkl
40a0: 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 22 29 mnopqrstuvwxyz")
40b0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 ;. sqlite3_snpr
40c0: 69 6e 74 66 28 6e 2c 20 7a 53 74 72 2c 20 7a 46 intf(n, zStr, zF
40d0: 6f 72 6d 61 74 2c 20 61 31 29 3b 0a 20 20 54 63 ormat, a1);. Tc
40e0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
40f0: 6e 74 65 72 70 2c 20 7a 53 74 72 2c 20 30 29 3b nterp, zStr, 0);
4100: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
4110: 3b 0a 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c ;.}..#ifndef SQL
4120: 49 54 45 5f 4f 4d 49 54 5f 47 45 54 5f 54 41 42 ITE_OMIT_GET_TAB
4130: 4c 45 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a LE../*.** Usage:
4140: 20 20 73 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 sqlite3_get_ta
4150: 62 6c 65 5f 70 72 69 6e 74 66 20 20 44 42 20 20 ble_printf DB
4160: 46 4f 52 4d 41 54 20 20 53 54 52 49 4e 47 20 20 FORMAT STRING
4170: 3f 2d 2d 6e 6f 2d 63 6f 75 6e 74 73 3f 0a 2a 2a ?--no-counts?.**
4180: 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20 73 .** Invoke the s
4190: 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 62 6c 65 qlite3_get_table
41a0: 5f 70 72 69 6e 74 66 28 29 20 69 6e 74 65 72 66 _printf() interf
41b0: 61 63 65 20 75 73 69 6e 67 20 74 68 65 20 6f 70 ace using the op
41c0: 65 6e 20 64 61 74 61 62 61 73 65 0a 2a 2a 20 44 en database.** D
41d0: 42 2e 20 20 54 68 65 20 53 51 4c 20 69 73 20 74 B. The SQL is t
41e0: 68 65 20 73 74 72 69 6e 67 20 46 4f 52 4d 41 54 he string FORMAT
41f0: 2e 20 20 54 68 65 20 66 6f 72 6d 61 74 20 73 74 . The format st
4200: 72 69 6e 67 20 73 68 6f 75 6c 64 20 63 6f 6e 74 ring should cont
4210: 61 69 6e 0a 2a 2a 20 6f 6e 65 20 25 73 20 6f 72 ain.** one %s or
4220: 20 25 71 2e 20 20 53 54 52 49 4e 47 20 69 73 20 %q. STRING is
4230: 74 68 65 20 76 61 6c 75 65 20 69 6e 73 65 72 74 the value insert
4240: 65 64 20 69 6e 74 6f 20 25 73 20 6f 72 20 25 71 ed into %s or %q
4250: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
4260: 74 65 73 74 5f 67 65 74 5f 74 61 62 6c 65 5f 70 test_get_table_p
4270: 72 69 6e 74 66 28 0a 20 20 76 6f 69 64 20 2a 4e rintf(. void *N
4280: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
4290: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
42a0: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
42b0: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
42c0: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
42d0: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
42e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
42f0: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
4300: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
4310: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
4320: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
4330: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
4340: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
4350: 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 73 74 72 Tcl_DString str
4360: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 ;. int rc;. ch
4370: 61 72 20 2a 7a 45 72 72 20 3d 20 30 3b 0a 20 20 ar *zErr = 0;.
4380: 69 6e 74 20 6e 52 6f 77 2c 20 6e 43 6f 6c 3b 0a int nRow, nCol;.
4390: 20 20 63 68 61 72 20 2a 2a 61 52 65 73 75 6c 74 char **aResult
43a0: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 68 61 ;. int i;. cha
43b0: 72 20 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 63 68 r zBuf[30];. ch
43c0: 61 72 20 2a 7a 53 71 6c 3b 0a 20 20 69 6e 74 20 ar *zSql;. int
43d0: 72 65 73 43 6f 75 6e 74 20 3d 20 2d 31 3b 0a 20 resCount = -1;.
43e0: 20 69 66 28 20 61 72 67 63 3d 3d 35 20 29 7b 0a if( argc==5 ){.
43f0: 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 if( Tcl_GetI
4400: 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b nt(interp, argv[
4410: 34 5d 2c 20 26 72 65 73 43 6f 75 6e 74 29 20 29 4], &resCount) )
4420: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
4430: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 72 67 R;. }. if( arg
4440: 63 21 3d 34 20 26 26 20 61 72 67 63 21 3d 35 20 c!=4 && argc!=5
4450: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
4460: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
4470: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
4480: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
4490: 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 gv[0], . "
44a0: 20 44 42 20 46 4f 52 4d 41 54 20 53 54 52 49 4e DB FORMAT STRIN
44b0: 47 20 3f 43 4f 55 4e 54 3f 22 2c 20 30 29 3b 0a G ?COUNT?", 0);.
44c0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
44d0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
44e0: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
44f0: 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 erp, argv[1], &d
4500: 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
4510: 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 44 53 74 ERROR;. Tcl_DSt
4520: 72 69 6e 67 49 6e 69 74 28 26 73 74 72 29 3b 0a ringInit(&str);.
4530: 20 20 7a 53 71 6c 20 3d 20 73 71 6c 69 74 65 33 zSql = sqlite3
4540: 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 32 5d _mprintf(argv[2]
4550: 2c 61 72 67 76 5b 33 5d 29 3b 0a 20 20 69 66 28 ,argv[3]);. if(
4560: 20 61 72 67 63 3d 3d 35 20 29 7b 0a 20 20 20 20 argc==5 ){.
4570: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 67 65 74 rc = sqlite3_get
4580: 5f 74 61 62 6c 65 28 64 62 2c 20 7a 53 71 6c 2c _table(db, zSql,
4590: 20 26 61 52 65 73 75 6c 74 2c 20 30 2c 20 30 2c &aResult, 0, 0,
45a0: 20 26 7a 45 72 72 29 3b 0a 20 20 7d 65 6c 73 65 &zErr);. }else
45b0: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 {. rc = sqlit
45c0: 65 33 5f 67 65 74 5f 74 61 62 6c 65 28 64 62 2c e3_get_table(db,
45d0: 20 7a 53 71 6c 2c 20 26 61 52 65 73 75 6c 74 2c zSql, &aResult,
45e0: 20 26 6e 52 6f 77 2c 20 26 6e 43 6f 6c 2c 20 26 &nRow, &nCol, &
45f0: 7a 45 72 72 29 3b 0a 20 20 20 20 72 65 73 43 6f zErr);. resCo
4600: 75 6e 74 20 3d 20 28 6e 52 6f 77 2b 31 29 2a 6e unt = (nRow+1)*n
4610: 43 6f 6c 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 Col;. }. sqlit
4620: 65 33 5f 66 72 65 65 28 7a 53 71 6c 29 3b 0a 20 e3_free(zSql);.
4630: 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 sprintf(zBuf, "
4640: 25 64 22 2c 20 72 63 29 3b 0a 20 20 54 63 6c 5f %d", rc);. Tcl_
4650: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
4660: 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 69 terp, zBuf);. i
4670: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b f( rc==SQLITE_OK
4680: 20 29 7b 0a 20 20 20 20 69 66 28 20 61 72 67 63 ){. if( argc
4690: 3d 3d 34 20 29 7b 0a 20 20 20 20 20 20 73 70 72 ==4 ){. spr
46a0: 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c intf(zBuf, "%d",
46b0: 20 6e 52 6f 77 29 3b 0a 20 20 20 20 20 20 54 63 nRow);. Tc
46c0: 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 l_AppendElement(
46d0: 69 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 interp, zBuf);.
46e0: 20 20 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 sprintf(zBu
46f0: 66 2c 20 22 25 64 22 2c 20 6e 43 6f 6c 29 3b 0a f, "%d", nCol);.
4700: 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 Tcl_Append
4710: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
4720: 7a 42 75 66 29 3b 0a 20 20 20 20 7d 0a 20 20 20 zBuf);. }.
4730: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 72 65 73 43 for(i=0; i<resC
4740: 6f 75 6e 74 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 ount; i++){.
4750: 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d Tcl_AppendElem
4760: 65 6e 74 28 69 6e 74 65 72 70 2c 20 61 52 65 73 ent(interp, aRes
4770: 75 6c 74 5b 69 5d 20 3f 20 61 52 65 73 75 6c 74 ult[i] ? aResult
4780: 5b 69 5d 20 3a 20 22 4e 55 4c 4c 22 29 3b 0a 20 [i] : "NULL");.
4790: 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 }. }else{.
47a0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d Tcl_AppendElem
47b0: 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a 45 72 72 ent(interp, zErr
47c0: 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 );. }. sqlite3
47d0: 5f 66 72 65 65 5f 74 61 62 6c 65 28 61 52 65 73 _free_table(aRes
47e0: 75 6c 74 29 3b 0a 20 20 69 66 28 20 7a 45 72 72 ult);. if( zErr
47f0: 20 29 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 ) sqlite3_free(
4800: 7a 45 72 72 29 3b 0a 20 20 69 66 28 20 73 71 6c zErr);. if( sql
4810: 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 ite3TestErrCode(
4820: 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 interp, db, rc)
4830: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
4840: 4f 52 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c OR;. return TCL
4850: 5f 4f 4b 3b 0a 7d 0a 0a 23 65 6e 64 69 66 20 2f _OK;.}..#endif /
4860: 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 47 45 * SQLITE_OMIT_GE
4870: 54 5f 54 41 42 4c 45 20 2a 2f 0a 0a 0a 2f 2a 0a T_TABLE */.../*.
4880: 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
4890: 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 e3_last_insert_r
48a0: 6f 77 69 64 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 owid DB.**.** Re
48b0: 74 75 72 6e 73 20 74 68 65 20 69 6e 74 65 67 65 turns the intege
48c0: 72 20 52 4f 57 49 44 20 6f 66 20 74 68 65 20 6d r ROWID of the m
48d0: 6f 73 74 20 72 65 63 65 6e 74 20 69 6e 73 65 72 ost recent inser
48e0: 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 t..*/.static int
48f0: 20 74 65 73 74 5f 6c 61 73 74 5f 72 6f 77 69 64 test_last_rowid
4900: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
4910: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
4920: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
4930: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
4940: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
4950: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
4960: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
4970: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
4980: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
4990: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
49a0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
49b0: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
49c0: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c ment */.){. sql
49d0: 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 68 61 72 ite3 *db;. char
49e0: 20 7a 42 75 66 5b 33 30 5d 3b 0a 0a 20 20 69 66 zBuf[30];.. if
49f0: 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 ( argc!=2 ){.
4a00: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
4a10: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
4a20: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
4a30: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
4a40: 20 22 20 44 42 5c 22 22 2c 20 30 29 3b 0a 20 20 " DB\"", 0);.
4a50: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
4a60: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
4a70: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
4a80: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
4a90: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
4aa0: 52 4f 52 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a ROR;. sprintf(z
4ab0: 42 75 66 2c 20 22 25 6c 6c 64 22 2c 20 73 71 6c Buf, "%lld", sql
4ac0: 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 ite3_last_insert
4ad0: 5f 72 6f 77 69 64 28 64 62 29 29 3b 0a 20 20 54 _rowid(db));. T
4ae0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
4af0: 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 interp, zBuf, 0)
4b00: 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 ;. return SQLIT
4b10: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 E_OK;.}../*.** U
4b20: 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6b sage: sqlite3_k
4b30: 65 79 20 44 42 20 4b 45 59 0a 2a 2a 0a 2a 2a 20 ey DB KEY.**.**
4b40: 53 65 74 20 74 68 65 20 63 6f 64 65 63 20 6b 65 Set the codec ke
4b50: 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 y..*/.static int
4b60: 20 74 65 73 74 5f 6b 65 79 28 0a 20 20 76 6f 69 test_key(. voi
4b70: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
4b80: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
4b90: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
4ba0: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
4bb0: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
4bc0: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
4bd0: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
4be0: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
4bf0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
4c00: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
4c10: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
4c20: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
4c30: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
4c40: 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 b;. const char
4c50: 2a 7a 4b 65 79 3b 0a 20 20 69 6e 74 20 6e 4b 65 *zKey;. int nKe
4c60: 79 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 y;. if( argc!=3
4c70: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
4c80: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
4c90: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
4ca0: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
4cb0: 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 rgv[0],. "
4cc0: 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 29 FILENAME\"", 0)
4cd0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
4ce0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
4cf0: 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
4d00: 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
4d10: 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
4d20: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 4b 65 79 20 L_ERROR;. zKey
4d30: 3d 20 61 72 67 76 5b 32 5d 3b 0a 20 20 6e 4b 65 = argv[2];. nKe
4d40: 79 20 3d 20 73 74 72 6c 65 6e 28 7a 4b 65 79 29 y = strlen(zKey)
4d50: 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ;.#ifdef SQLITE_
4d60: 48 41 53 5f 43 4f 44 45 43 0a 20 20 73 71 6c 69 HAS_CODEC. sqli
4d70: 74 65 33 5f 6b 65 79 28 64 62 2c 20 7a 4b 65 79 te3_key(db, zKey
4d80: 2c 20 6e 4b 65 79 29 3b 0a 23 65 6e 64 69 66 0a , nKey);.#endif.
4d90: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
4da0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
4db0: 20 20 73 71 6c 69 74 65 33 5f 72 65 6b 65 79 20 sqlite3_rekey
4dc0: 44 42 20 4b 45 59 0a 2a 2a 0a 2a 2a 20 43 68 61 DB KEY.**.** Cha
4dd0: 6e 67 65 20 74 68 65 20 63 6f 64 65 63 20 6b 65 nge the codec ke
4de0: 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 y..*/.static int
4df0: 20 74 65 73 74 5f 72 65 6b 65 79 28 0a 20 20 76 test_rekey(. v
4e00: 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 oid *NotUsed,.
4e10: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4e20: 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
4e30: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
4e40: 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
4e50: 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
4e60: 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 argc,
4e70: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
4e80: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
4e90: 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 char **argv
4ea0: 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f /* Text o
4eb0: 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 f each argument
4ec0: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 */.){. sqlite3
4ed0: 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 *db;. const cha
4ee0: 72 20 2a 7a 4b 65 79 3b 0a 20 20 69 6e 74 20 6e r *zKey;. int n
4ef0: 4b 65 79 3b 0a 20 20 69 66 28 20 61 72 67 63 21 Key;. if( argc!
4f00: 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =3 ){. Tcl_Ap
4f10: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
4f20: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
4f30: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
4f40: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
4f50: 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 " FILENAME\"",
4f60: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
4f70: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
4f80: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
4f90: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
4fa0: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
4fb0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 4b 65 TCL_ERROR;. zKe
4fc0: 79 20 3d 20 61 72 67 76 5b 32 5d 3b 0a 20 20 6e y = argv[2];. n
4fd0: 4b 65 79 20 3d 20 73 74 72 6c 65 6e 28 7a 4b 65 Key = strlen(zKe
4fe0: 79 29 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 y);.#ifdef SQLIT
4ff0: 45 5f 48 41 53 5f 43 4f 44 45 43 0a 20 20 73 71 E_HAS_CODEC. sq
5000: 6c 69 74 65 33 5f 72 65 6b 65 79 28 64 62 2c 20 lite3_rekey(db,
5010: 7a 4b 65 79 2c 20 6e 4b 65 79 29 3b 0a 23 65 6e zKey, nKey);.#en
5020: 64 69 66 0a 20 20 72 65 74 75 72 6e 20 54 43 4c dif. return TCL
5030: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
5040: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 63 6c age: sqlite3_cl
5050: 6f 73 65 20 44 42 0a 2a 2a 0a 2a 2a 20 43 6c 6f ose DB.**.** Clo
5060: 73 65 73 20 74 68 65 20 64 61 74 61 62 61 73 65 ses the database
5070: 20 6f 70 65 6e 65 64 20 62 79 20 73 71 6c 69 74 opened by sqlit
5080: 65 33 5f 6f 70 65 6e 2e 0a 2a 2f 0a 73 74 61 74 e3_open..*/.stat
5090: 69 63 20 69 6e 74 20 73 71 6c 69 74 65 5f 74 65 ic int sqlite_te
50a0: 73 74 5f 63 6c 6f 73 65 28 0a 20 20 76 6f 69 64 st_close(. void
50b0: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
50c0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
50d0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
50e0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
50f0: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
5100: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
5110: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
5120: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
5130: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
5140: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
5150: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
5160: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
5170: 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ){. sqlite3 *db
5180: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 66 ;. int rc;. if
5190: 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 ( argc!=2 ){.
51a0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
51b0: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
51c0: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
51d0: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
51e0: 0a 20 20 20 20 20 20 20 22 20 46 49 4c 45 4e 41 . " FILENA
51f0: 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 ME\"", 0);. r
5200: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5210: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
5220: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
5230: 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 argv[1], &db) )
5240: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5250: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
5260: 5f 63 6c 6f 73 65 28 64 62 29 3b 0a 20 20 54 63 _close(db);. Tc
5270: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
5280: 72 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 72 rp, (char *)t1Er
5290: 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c rorName(rc), TCL
52a0: 5f 53 54 41 54 49 43 29 3b 0a 20 20 72 65 74 75 _STATIC);. retu
52b0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
52c0: 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 .** Implementati
52d0: 6f 6e 20 6f 66 20 74 68 65 20 78 5f 63 6f 61 6c on of the x_coal
52e0: 65 73 63 65 28 29 20 66 75 6e 63 74 69 6f 6e 2e esce() function.
52f0: 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 66 .** Return the f
5300: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 6e 6f irst argument no
5310: 6e 2d 4e 55 4c 4c 20 61 72 67 75 6d 65 6e 74 2e n-NULL argument.
5320: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
5330: 74 31 5f 69 66 6e 75 6c 6c 46 75 6e 63 28 0a 20 t1_ifnullFunc(.
5340: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
5350: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 *context,. int
5360: 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 argc,. sqlite3
5370: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
5380: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 . int i;. for(
5390: 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b i=0; i<argc; i++
53a0: 29 7b 0a 20 20 20 20 69 66 28 20 53 51 4c 49 54 ){. if( SQLIT
53b0: 45 5f 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 33 5f E_NULL!=sqlite3_
53c0: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b value_type(argv[
53d0: 69 5d 29 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 i]) ){. int
53e0: 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c n = sqlite3_val
53f0: 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 69 5d ue_bytes(argv[i]
5400: 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 );. sqlite3
5410: 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e _result_text(con
5420: 74 65 78 74 2c 20 28 63 68 61 72 2a 29 73 71 6c text, (char*)sql
5430: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
5440: 61 72 67 76 5b 69 5d 29 2c 0a 20 20 20 20 20 20 argv[i]),.
5450: 20 20 20 20 6e 2c 20 53 51 4c 49 54 45 5f 54 52 n, SQLITE_TR
5460: 41 4e 53 49 45 4e 54 29 3b 0a 20 20 20 20 20 20 ANSIENT);.
5470: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d break;. }. }
5480: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 73 65 20 .}../*.** These
5490: 61 72 65 20 74 65 73 74 20 66 75 6e 63 74 69 6f are test functio
54a0: 6e 73 2e 20 20 20 20 68 65 78 38 28 29 20 69 6e ns. hex8() in
54b0: 74 65 72 70 72 65 74 73 20 69 74 73 20 61 72 67 terprets its arg
54c0: 75 6d 65 6e 74 20 61 73 0a 2a 2a 20 55 54 46 38 ument as.** UTF8
54d0: 20 61 6e 64 20 72 65 74 75 72 6e 73 20 61 20 68 and returns a h
54e0: 65 78 20 65 6e 63 6f 64 69 6e 67 2e 20 20 68 65 ex encoding. he
54f0: 78 31 36 6c 65 28 29 20 69 6e 74 65 72 70 72 65 x16le() interpre
5500: 74 73 20 69 74 73 20 61 72 67 75 6d 65 6e 74 0a ts its argument.
5510: 2a 2a 20 61 73 20 55 54 46 31 36 6c 65 20 61 6e ** as UTF16le an
5520: 64 20 72 65 74 75 72 6e 73 20 61 20 68 65 78 20 d returns a hex
5530: 65 6e 63 6f 64 69 6e 67 2e 0a 2a 2f 0a 73 74 61 encoding..*/.sta
5540: 74 69 63 20 76 6f 69 64 20 68 65 78 38 46 75 6e tic void hex8Fun
5550: 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 c(sqlite3_contex
5560: 74 20 2a 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 t *p, int argc,
5570: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
5580: 61 72 67 76 29 7b 0a 20 20 63 6f 6e 73 74 20 75 argv){. const u
5590: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 3b nsigned char *z;
55a0: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 68 61 72 . int i;. char
55b0: 20 7a 42 75 66 5b 32 30 30 5d 3b 0a 20 20 7a 20 zBuf[200];. z
55c0: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
55d0: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 text(argv[0]);.
55e0: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 for(i=0; i<size
55f0: 6f 66 28 7a 42 75 66 29 2f 32 20 2d 20 32 20 26 of(zBuf)/2 - 2 &
5600: 26 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 & z[i]; i++){.
5610: 20 20 73 70 72 69 6e 74 66 28 26 7a 42 75 66 5b sprintf(&zBuf[
5620: 69 2a 32 5d 2c 20 22 25 30 32 78 22 2c 20 7a 5b i*2], "%02x", z[
5630: 69 5d 26 30 78 66 66 29 3b 0a 20 20 7d 0a 20 20 i]&0xff);. }.
5640: 7a 42 75 66 5b 69 2a 32 5d 20 3d 20 30 3b 0a 20 zBuf[i*2] = 0;.
5650: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
5660: 74 65 78 74 28 70 2c 20 28 63 68 61 72 2a 29 7a text(p, (char*)z
5670: 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f Buf, -1, SQLITE_
5680: 54 52 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 23 69 TRANSIENT);.}.#i
5690: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
56a0: 54 5f 55 54 46 31 36 0a 73 74 61 74 69 63 20 76 T_UTF16.static v
56b0: 6f 69 64 20 68 65 78 31 36 46 75 6e 63 28 73 71 oid hex16Func(sq
56c0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 lite3_context *p
56d0: 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 , int argc, sqli
56e0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
56f0: 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 ){. const unsig
5700: 6e 65 64 20 73 68 6f 72 74 20 69 6e 74 20 2a 7a ned short int *z
5710: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 68 61 ;. int i;. cha
5720: 72 20 7a 42 75 66 5b 34 30 30 5d 3b 0a 20 20 7a r zBuf[400];. z
5730: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
5740: 5f 74 65 78 74 31 36 28 61 72 67 76 5b 30 5d 29 _text16(argv[0])
5750: 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 ;. for(i=0; i<s
5760: 69 7a 65 6f 66 28 7a 42 75 66 29 2f 34 20 2d 20 izeof(zBuf)/4 -
5770: 34 20 26 26 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 4 && z[i]; i++){
5780: 0a 20 20 20 20 73 70 72 69 6e 74 66 28 26 7a 42 . sprintf(&zB
5790: 75 66 5b 69 2a 34 5d 2c 20 22 25 30 34 78 22 2c uf[i*4], "%04x",
57a0: 20 7a 5b 69 5d 26 30 78 66 66 29 3b 0a 20 20 7d z[i]&0xff);. }
57b0: 0a 20 20 7a 42 75 66 5b 69 2a 34 5d 20 3d 20 30 . zBuf[i*4] = 0
57c0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 ;. sqlite3_resu
57d0: 6c 74 5f 74 65 78 74 28 70 2c 20 28 63 68 61 72 lt_text(p, (char
57e0: 2a 29 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 *)zBuf, -1, SQLI
57f0: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 7d TE_TRANSIENT);.}
5800: 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 41 .#endif../*.** A
5810: 20 73 74 72 75 63 74 75 72 65 20 69 6e 74 6f 20 structure into
5820: 77 68 69 63 68 20 74 6f 20 61 63 63 75 6d 75 6c which to accumul
5830: 61 74 65 20 74 65 78 74 2e 0a 2a 2f 0a 73 74 72 ate text..*/.str
5840: 75 63 74 20 64 73 74 72 20 7b 0a 20 20 69 6e 74 uct dstr {. int
5850: 20 6e 41 6c 6c 6f 63 3b 20 20 2f 2a 20 53 70 61 nAlloc; /* Spa
5860: 63 65 20 61 6c 6c 6f 63 61 74 65 64 20 2a 2f 0a ce allocated */.
5870: 20 20 69 6e 74 20 6e 55 73 65 64 3b 20 20 20 2f int nUsed; /
5880: 2a 20 53 70 61 63 65 20 75 73 65 64 20 2a 2f 0a * Space used */.
5890: 20 20 63 68 61 72 20 2a 7a 3b 20 20 20 20 20 2f char *z; /
58a0: 2a 20 54 68 65 20 73 70 61 63 65 20 2a 2f 0a 7d * The space */.}
58b0: 3b 0a 0a 2f 2a 0a 2a 2a 20 41 70 70 65 6e 64 20 ;../*.** Append
58c0: 74 65 78 74 20 74 6f 20 61 20 64 73 74 72 0a 2a text to a dstr.*
58d0: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 64 73 /.static void ds
58e0: 74 72 41 70 70 65 6e 64 28 73 74 72 75 63 74 20 trAppend(struct
58f0: 64 73 74 72 20 2a 70 2c 20 63 6f 6e 73 74 20 63 dstr *p, const c
5900: 68 61 72 20 2a 7a 2c 20 69 6e 74 20 64 69 76 69 har *z, int divi
5910: 64 65 72 29 7b 0a 20 20 69 6e 74 20 6e 20 3d 20 der){. int n =
5920: 73 74 72 6c 65 6e 28 7a 29 3b 0a 20 20 69 66 28 strlen(z);. if(
5930: 20 70 2d 3e 6e 55 73 65 64 20 2b 20 6e 20 2b 20 p->nUsed + n +
5940: 32 20 3e 20 70 2d 3e 6e 41 6c 6c 6f 63 20 29 7b 2 > p->nAlloc ){
5950: 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e 65 77 3b . char *zNew;
5960: 0a 20 20 20 20 70 2d 3e 6e 41 6c 6c 6f 63 20 3d . p->nAlloc =
5970: 20 70 2d 3e 6e 41 6c 6c 6f 63 2a 32 20 2b 20 6e p->nAlloc*2 + n
5980: 20 2b 20 32 30 30 3b 0a 20 20 20 20 7a 4e 65 77 + 200;. zNew
5990: 20 3d 20 73 71 6c 69 74 65 33 5f 72 65 61 6c 6c = sqlite3_reall
59a0: 6f 63 28 70 2d 3e 7a 2c 20 70 2d 3e 6e 41 6c 6c oc(p->z, p->nAll
59b0: 6f 63 29 3b 0a 20 20 20 20 69 66 28 20 7a 4e 65 oc);. if( zNe
59c0: 77 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 73 71 w==0 ){. sq
59d0: 6c 69 74 65 33 5f 66 72 65 65 28 70 2d 3e 7a 29 lite3_free(p->z)
59e0: 3b 0a 20 20 20 20 20 20 6d 65 6d 73 65 74 28 70 ;. memset(p
59f0: 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 , 0, sizeof(*p))
5a00: 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a ;. return;.
5a10: 20 20 20 20 7d 0a 20 20 20 20 70 2d 3e 7a 20 3d }. p->z =
5a20: 20 7a 4e 65 77 3b 0a 20 20 7d 0a 20 20 69 66 28 zNew;. }. if(
5a30: 20 64 69 76 69 64 65 72 20 26 26 20 70 2d 3e 6e divider && p->n
5a40: 55 73 65 64 3e 30 20 29 7b 0a 20 20 20 20 70 2d Used>0 ){. p-
5a50: 3e 7a 5b 70 2d 3e 6e 55 73 65 64 2b 2b 5d 20 3d >z[p->nUsed++] =
5a60: 20 64 69 76 69 64 65 72 3b 0a 20 20 7d 0a 20 20 divider;. }.
5a70: 6d 65 6d 63 70 79 28 26 70 2d 3e 7a 5b 70 2d 3e memcpy(&p->z[p->
5a80: 6e 55 73 65 64 5d 2c 20 7a 2c 20 6e 2b 31 29 3b nUsed], z, n+1);
5a90: 0a 20 20 70 2d 3e 6e 55 73 65 64 20 2b 3d 20 6e . p->nUsed += n
5aa0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e 76 6f 6b ;.}../*.** Invok
5ab0: 65 64 20 66 6f 72 20 65 61 63 68 20 63 61 6c 6c ed for each call
5ac0: 62 61 63 6b 20 66 72 6f 6d 20 73 71 6c 69 74 65 back from sqlite
5ad0: 33 45 78 65 63 46 75 6e 63 0a 2a 2f 0a 73 74 61 3ExecFunc.*/.sta
5ae0: 74 69 63 20 69 6e 74 20 65 78 65 63 46 75 6e 63 tic int execFunc
5af0: 43 61 6c 6c 62 61 63 6b 28 76 6f 69 64 20 2a 70 Callback(void *p
5b00: 44 61 74 61 2c 20 69 6e 74 20 61 72 67 63 2c 20 Data, int argc,
5b10: 63 68 61 72 20 2a 2a 61 72 67 76 2c 20 63 68 61 char **argv, cha
5b20: 72 20 2a 2a 4e 6f 74 55 73 65 64 29 7b 0a 20 20 r **NotUsed){.
5b30: 73 74 72 75 63 74 20 64 73 74 72 20 2a 70 20 3d struct dstr *p =
5b40: 20 28 73 74 72 75 63 74 20 64 73 74 72 2a 29 70 (struct dstr*)p
5b50: 44 61 74 61 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 Data;. int i;.
5b60: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 for(i=0; i<argc
5b70: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 ; i++){. if(
5b80: 61 72 67 76 5b 69 5d 3d 3d 30 20 29 7b 0a 20 20 argv[i]==0 ){.
5b90: 20 20 20 20 64 73 74 72 41 70 70 65 6e 64 28 70 dstrAppend(p
5ba0: 2c 20 22 4e 55 4c 4c 22 2c 20 27 20 27 29 3b 0a , "NULL", ' ');.
5bb0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
5bc0: 20 64 73 74 72 41 70 70 65 6e 64 28 70 2c 20 61 dstrAppend(p, a
5bd0: 72 67 76 5b 69 5d 2c 20 27 20 27 29 3b 0a 20 20 rgv[i], ' ');.
5be0: 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e }. }. return
5bf0: 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 0;.}../*.** Imp
5c00: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
5c10: 68 65 20 78 5f 73 71 6c 69 74 65 5f 65 78 65 63 he x_sqlite_exec
5c20: 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 () function. Th
5c30: 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 is function take
5c40: 73 0a 2a 2a 20 61 20 73 69 6e 67 6c 65 20 61 72 s.** a single ar
5c50: 67 75 6d 65 6e 74 20 61 6e 64 20 61 74 74 65 6d gument and attem
5c60: 70 74 73 20 74 6f 20 65 78 65 63 75 74 65 20 74 pts to execute t
5c70: 68 61 74 20 61 72 67 75 6d 65 6e 74 20 61 73 20 hat argument as
5c80: 53 51 4c 20 63 6f 64 65 2e 0a 2a 2a 20 54 68 69 SQL code..** Thi
5c90: 73 20 69 73 20 69 6c 6c 65 67 61 6c 20 61 6e 64 s is illegal and
5ca0: 20 73 68 6f 75 6c 64 20 73 65 74 20 74 68 65 20 should set the
5cb0: 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 66 6c SQLITE_MISUSE fl
5cc0: 61 67 20 6f 6e 20 74 68 65 20 64 61 74 61 62 61 ag on the databa
5cd0: 73 65 2e 0a 2a 2a 0a 2a 2a 20 32 30 30 34 2d 4a se..**.** 2004-J
5ce0: 61 6e 2d 30 37 3a 20 20 57 65 20 68 61 76 65 20 an-07: We have
5cf0: 63 68 61 6e 67 65 64 20 74 68 69 73 20 74 6f 20 changed this to
5d00: 6d 61 6b 65 20 69 74 20 6c 65 67 61 6c 20 74 6f make it legal to
5d10: 20 63 61 6c 6c 20 73 71 6c 69 74 65 33 5f 65 78 call sqlite3_ex
5d20: 65 63 28 29 0a 2a 2a 20 66 72 6f 6d 20 77 69 74 ec().** from wit
5d30: 68 69 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 63 hin a function c
5d40: 61 6c 6c 2e 20 20 0a 2a 2a 20 0a 2a 2a 20 54 68 all. .** .** Th
5d50: 69 73 20 72 6f 75 74 69 6e 65 20 73 69 6d 75 6c is routine simul
5d60: 61 74 65 73 20 74 68 65 20 65 66 66 65 63 74 20 ates the effect
5d70: 6f 66 20 68 61 76 69 6e 67 20 74 77 6f 20 74 68 of having two th
5d80: 72 65 61 64 73 20 61 74 74 65 6d 70 74 20 74 6f reads attempt to
5d90: 0a 2a 2a 20 75 73 65 20 74 68 65 20 73 61 6d 65 .** use the same
5da0: 20 64 61 74 61 62 61 73 65 20 61 74 20 74 68 65 database at the
5db0: 20 73 61 6d 65 20 74 69 6d 65 2e 0a 2a 2f 0a 73 same time..*/.s
5dc0: 74 61 74 69 63 20 76 6f 69 64 20 73 71 6c 69 74 tatic void sqlit
5dd0: 65 33 45 78 65 63 46 75 6e 63 28 0a 20 20 73 71 e3ExecFunc(. sq
5de0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
5df0: 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e 74 20 61 ontext, . int a
5e00: 72 67 63 2c 20 20 0a 20 20 73 71 6c 69 74 65 33 rgc, . sqlite3
5e10: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
5e20: 0a 20 20 73 74 72 75 63 74 20 64 73 74 72 20 78 . struct dstr x
5e30: 3b 0a 20 20 6d 65 6d 73 65 74 28 26 78 2c 20 30 ;. memset(&x, 0
5e40: 2c 20 73 69 7a 65 6f 66 28 78 29 29 3b 0a 20 20 , sizeof(x));.
5e50: 28 76 6f 69 64 29 73 71 6c 69 74 65 33 5f 65 78 (void)sqlite3_ex
5e60: 65 63 28 28 73 71 6c 69 74 65 33 2a 29 73 71 6c ec((sqlite3*)sql
5e70: 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 63 ite3_user_data(c
5e80: 6f 6e 74 65 78 74 29 2c 0a 20 20 20 20 20 20 28 ontext),. (
5e90: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 char*)sqlite3_va
5ea0: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d lue_text(argv[0]
5eb0: 29 2c 0a 20 20 20 20 20 20 65 78 65 63 46 75 6e ),. execFun
5ec0: 63 43 61 6c 6c 62 61 63 6b 2c 20 26 78 2c 20 30 cCallback, &x, 0
5ed0: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 );. sqlite3_res
5ee0: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 ult_text(context
5ef0: 2c 20 78 2e 7a 2c 20 78 2e 6e 55 73 65 64 2c 20 , x.z, x.nUsed,
5f00: 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 SQLITE_TRANSIENT
5f10: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 );. sqlite3_fre
5f20: 65 28 78 2e 7a 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a e(x.z);.}../*.**
5f30: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 Implementation
5f40: 6f 66 20 74 6b 74 32 32 31 33 66 75 6e 63 28 29 of tkt2213func()
5f50: 2c 20 61 20 73 63 61 6c 61 72 20 66 75 6e 63 74 , a scalar funct
5f60: 69 6f 6e 20 74 68 61 74 20 74 61 6b 65 73 20 65 ion that takes e
5f70: 78 61 63 74 6c 79 0a 2a 2a 20 6f 6e 65 20 61 72 xactly.** one ar
5f80: 67 75 6d 65 6e 74 2e 20 49 74 20 68 61 73 20 74 gument. It has t
5f90: 77 6f 20 69 6e 74 65 72 65 73 74 69 6e 67 20 66 wo interesting f
5fa0: 65 61 74 75 72 65 73 3a 0a 2a 2a 0a 2a 2a 20 2a eatures:.**.** *
5fb0: 20 49 74 20 63 61 6c 6c 73 20 73 71 6c 69 74 65 It calls sqlite
5fc0: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 29 20 33 3_value_text() 3
5fd0: 20 74 69 6d 65 73 20 6f 6e 20 74 68 65 20 61 72 times on the ar
5fe0: 67 75 6d 65 6e 74 20 73 71 6c 69 74 65 33 5f 76 gument sqlite3_v
5ff0: 61 6c 75 65 2a 2e 0a 2a 2a 20 20 20 49 66 20 74 alue*..** If t
6000: 68 65 20 74 68 72 65 65 20 70 6f 69 6e 74 65 72 he three pointer
6010: 73 20 72 65 74 75 72 6e 65 64 20 61 72 65 20 6e s returned are n
6020: 6f 74 20 74 68 65 20 73 61 6d 65 20 61 6e 20 53 ot the same an S
6030: 51 4c 20 65 72 72 6f 72 20 69 73 20 72 61 69 73 QL error is rais
6040: 65 64 2e 0a 2a 2a 0a 2a 2a 20 2a 20 4f 74 68 65 ed..**.** * Othe
6050: 72 77 69 73 65 20 69 74 20 72 65 74 75 72 6e 73 rwise it returns
6060: 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 74 a copy of the t
6070: 65 78 74 20 72 65 70 72 65 73 65 6e 74 61 74 69 ext representati
6080: 6f 6e 20 6f 66 20 69 74 73 20 0a 2a 2a 20 20 20 on of its .**
6090: 61 72 67 75 6d 65 6e 74 20 69 6e 20 73 75 63 68 argument in such
60a0: 20 61 20 77 61 79 20 61 73 20 74 68 65 20 56 44 a way as the VD
60b0: 42 45 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f BE representatio
60c0: 6e 20 69 73 20 61 20 4d 65 6d 2a 20 63 65 6c 6c n is a Mem* cell
60d0: 20 0a 2a 2a 20 20 20 77 69 74 68 20 74 68 65 20 .** with the
60e0: 4d 45 4d 5f 54 65 72 6d 20 66 6c 61 67 20 63 6c MEM_Term flag cl
60f0: 65 61 72 2e 20 0a 2a 2a 0a 2a 2a 20 54 69 63 6b ear. .**.** Tick
6100: 65 74 20 23 32 32 31 33 20 63 61 6e 20 74 68 65 et #2213 can the
6110: 72 65 66 6f 72 65 20 62 65 20 74 65 73 74 65 64 refore be tested
6120: 20 62 79 20 65 76 61 6c 75 61 74 69 6e 67 20 74 by evaluating t
6130: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 2a 2a 20 he following.**
6140: 53 51 4c 20 65 78 70 72 65 73 73 69 6f 6e 3a 0a SQL expression:.
6150: 2a 2a 0a 2a 2a 20 20 20 74 6b 74 32 32 31 33 66 **.** tkt2213f
6160: 75 6e 63 28 74 6b 74 32 32 31 33 66 75 6e 63 28 unc(tkt2213func(
6170: 27 61 20 73 74 72 69 6e 67 27 29 29 3b 0a 2a 2f 'a string'));.*/
6180: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 6b 74 .static void tkt
6190: 32 32 31 33 46 75 6e 63 74 69 6f 6e 28 0a 20 20 2213Function(.
61a0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
61b0: 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e 74 *context, . int
61c0: 20 61 72 67 63 2c 20 20 0a 20 20 73 71 6c 69 74 argc, . sqlit
61d0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a e3_value **argv.
61e0: 29 7b 0a 20 20 69 6e 74 20 6e 54 65 78 74 3b 0a ){. int nText;.
61f0: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
6200: 63 6f 6e 73 74 20 2a 7a 54 65 78 74 31 3b 0a 20 const *zText1;.
6210: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 63 unsigned char c
6220: 6f 6e 73 74 20 2a 7a 54 65 78 74 32 3b 0a 20 20 onst *zText2;.
6230: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 63 6f unsigned char co
6240: 6e 73 74 20 2a 7a 54 65 78 74 33 3b 0a 0a 20 20 nst *zText3;..
6250: 6e 54 65 78 74 20 3d 20 73 71 6c 69 74 65 33 5f nText = sqlite3_
6260: 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 value_bytes(argv
6270: 5b 30 5d 29 3b 0a 20 20 7a 54 65 78 74 31 20 3d [0]);. zText1 =
6280: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
6290: 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 ext(argv[0]);.
62a0: 7a 54 65 78 74 32 20 3d 20 73 71 6c 69 74 65 33 zText2 = sqlite3
62b0: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 _value_text(argv
62c0: 5b 30 5d 29 3b 0a 20 20 7a 54 65 78 74 33 20 3d [0]);. zText3 =
62d0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
62e0: 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 0a 20 ext(argv[0]);..
62f0: 20 69 66 28 20 7a 54 65 78 74 31 21 3d 7a 54 65 if( zText1!=zTe
6300: 78 74 32 20 7c 7c 20 7a 54 65 78 74 32 21 3d 7a xt2 || zText2!=z
6310: 54 65 78 74 33 20 29 7b 0a 20 20 20 20 73 71 6c Text3 ){. sql
6320: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
6330: 72 28 63 6f 6e 74 65 78 74 2c 20 22 74 6b 74 32 r(context, "tkt2
6340: 32 31 33 20 69 73 20 6e 6f 74 20 66 69 78 65 64 213 is not fixed
6350: 22 2c 20 2d 31 29 3b 0a 20 20 7d 65 6c 73 65 7b ", -1);. }else{
6360: 0a 20 20 20 20 63 68 61 72 20 2a 7a 43 6f 70 79 . char *zCopy
6370: 20 3d 20 28 63 68 61 72 20 2a 29 73 71 6c 69 74 = (char *)sqlit
6380: 65 33 5f 6d 61 6c 6c 6f 63 28 6e 54 65 78 74 29 e3_malloc(nText)
6390: 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 7a 43 6f ;. memcpy(zCo
63a0: 70 79 2c 20 7a 54 65 78 74 31 2c 20 6e 54 65 78 py, zText1, nTex
63b0: 74 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f t);. sqlite3_
63c0: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 result_text(cont
63d0: 65 78 74 2c 20 7a 43 6f 70 79 2c 20 6e 54 65 78 ext, zCopy, nTex
63e0: 74 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 t, sqlite3_free)
63f0: 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 ;. }.}../*.** T
6400: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 53 51 4c he following SQL
6410: 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 function takes
6420: 34 20 61 72 67 75 6d 65 6e 74 73 2e 20 20 54 68 4 arguments. Th
6430: 65 20 32 6e 64 20 61 6e 64 0a 2a 2a 20 34 74 68 e 2nd and.** 4th
6440: 20 61 72 67 75 6d 65 6e 74 20 6d 75 73 74 20 62 argument must b
6450: 65 20 6f 6e 65 20 6f 66 20 74 68 65 73 65 20 73 e one of these s
6460: 74 72 69 6e 67 73 3a 20 20 27 74 65 78 74 27 2c trings: 'text',
6470: 20 27 74 65 78 74 31 36 27 2c 0a 2a 2a 20 6f 72 'text16',.** or
6480: 20 27 62 6c 6f 62 27 20 63 6f 72 72 65 73 70 6f 'blob' correspo
6490: 6e 64 69 6e 67 20 74 6f 20 41 50 49 20 66 75 6e nding to API fun
64a0: 63 74 69 6f 6e 73 0a 2a 2a 0a 2a 2a 20 20 20 20 ctions.**.**
64b0: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f sqlite3_value_
64c0: 74 65 78 74 28 29 0a 2a 2a 20 20 20 20 20 20 73 text().** s
64d0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
64e0: 74 31 36 28 29 0a 2a 2a 20 20 20 20 20 20 73 71 t16().** sq
64f0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 lite3_value_blob
6500: 28 29 0a 2a 2a 0a 2a 2a 20 54 68 65 20 74 68 69 ().**.** The thi
6510: 72 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61 rd argument is a
6520: 20 73 74 72 69 6e 67 2c 20 65 69 74 68 65 72 20 string, either
6530: 27 62 79 74 65 73 27 20 6f 72 20 27 62 79 74 65 'bytes' or 'byte
6540: 73 31 36 27 20 6f 72 20 27 6e 6f 6f 70 27 2c 0a s16' or 'noop',.
6550: 2a 2a 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 ** corresponding
6560: 20 74 6f 20 41 50 49 73 3a 0a 2a 2a 0a 2a 2a 20 to APIs:.**.**
6570: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 76 61 6c sqlite3_val
6580: 75 65 5f 62 79 74 65 73 28 29 0a 2a 2a 20 20 20 ue_bytes().**
6590: 20 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 sqlite3_value
65a0: 5f 62 79 74 65 73 31 36 28 29 0a 2a 2a 20 20 20 _bytes16().**
65b0: 20 20 20 6e 6f 6f 70 0a 2a 2a 0a 2a 2a 20 54 68 noop.**.** Th
65c0: 65 20 41 50 49 73 20 64 65 73 69 67 6e 61 74 65 e APIs designate
65d0: 64 20 62 79 20 74 68 65 20 32 6e 64 20 74 68 72 d by the 2nd thr
65e0: 6f 75 67 68 20 34 74 68 20 61 72 67 75 6d 65 6e ough 4th argumen
65f0: 74 73 20 61 72 65 20 61 70 70 6c 69 65 64 0a 2a ts are applied.*
6600: 2a 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 61 * to the first a
6610: 72 67 75 6d 65 6e 74 20 69 6e 20 6f 72 64 65 72 rgument in order
6620: 2e 20 20 49 66 20 74 68 65 20 70 6f 69 6e 74 65 . If the pointe
6630: 72 73 20 72 65 74 75 72 6e 65 64 20 62 79 20 74 rs returned by t
6640: 68 65 0a 2a 2a 20 73 65 63 6f 6e 64 20 61 6e 64 he.** second and
6650: 20 66 6f 75 72 74 68 20 61 72 65 20 64 69 66 66 fourth are diff
6660: 65 72 65 6e 74 2c 20 74 68 69 73 20 72 6f 75 74 erent, this rout
6670: 69 6e 65 20 72 65 74 75 72 6e 73 20 31 2e 20 20 ine returns 1.
6680: 4f 74 68 65 72 77 69 73 65 2c 0a 2a 2a 20 74 68 Otherwise,.** th
6690: 69 73 20 72 6f 75 74 69 6e 65 20 72 65 74 75 72 is routine retur
66a0: 6e 73 20 30 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 ns 0..**.** This
66b0: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 function is use
66c0: 64 20 74 6f 20 74 65 73 74 20 74 6f 20 73 65 65 d to test to see
66d0: 20 77 68 65 6e 20 72 65 74 75 72 6e 65 64 20 70 when returned p
66e0: 6f 69 6e 74 65 72 73 20 66 72 6f 6d 0a 2a 2a 20 ointers from.**
66f0: 74 68 65 20 5f 74 65 78 74 28 29 2c 20 5f 74 65 the _text(), _te
6700: 78 74 31 36 28 29 20 61 6e 64 20 5f 62 6c 6f 62 xt16() and _blob
6710: 28 29 20 41 50 49 73 20 62 65 63 6f 6d 65 20 69 () APIs become i
6720: 6e 76 61 6c 69 64 61 74 65 64 2e 0a 2a 2f 0a 73 nvalidated..*/.s
6730: 74 61 74 69 63 20 76 6f 69 64 20 70 74 72 43 68 tatic void ptrCh
6740: 6e 67 46 75 6e 63 74 69 6f 6e 28 0a 20 20 73 71 ngFunction(. sq
6750: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
6760: 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e 74 20 61 ontext, . int a
6770: 72 67 63 2c 20 20 0a 20 20 73 71 6c 69 74 65 33 rgc, . sqlite3
6780: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
6790: 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 . const void *p
67a0: 31 2c 20 2a 70 32 3b 0a 20 20 63 6f 6e 73 74 20 1, *p2;. const
67b0: 63 68 61 72 20 2a 7a 43 6d 64 3b 0a 20 20 69 66 char *zCmd;. if
67c0: 28 20 61 72 67 63 21 3d 34 20 29 20 72 65 74 75 ( argc!=4 ) retu
67d0: 72 6e 3b 0a 20 20 7a 43 6d 64 20 3d 20 28 63 6f rn;. zCmd = (co
67e0: 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65 nst char*)sqlite
67f0: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
6800: 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 7a 43 6d v[1]);. if( zCm
6810: 64 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 d==0 ) return;.
6820: 20 69 66 28 20 73 74 72 63 6d 70 28 7a 43 6d 64 if( strcmp(zCmd
6830: 2c 22 74 65 78 74 22 29 3d 3d 30 20 29 7b 0a 20 ,"text")==0 ){.
6840: 20 20 20 70 31 20 3d 20 28 63 6f 6e 73 74 20 76 p1 = (const v
6850: 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c oid*)sqlite3_val
6860: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 ue_text(argv[0])
6870: 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 ;.#ifndef SQLITE
6880: 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 7d 65 _OMIT_UTF16. }e
6890: 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a lse if( strcmp(z
68a0: 43 6d 64 2c 20 22 74 65 78 74 31 36 22 29 3d 3d Cmd, "text16")==
68b0: 30 20 29 7b 0a 20 20 20 20 70 31 20 3d 20 28 63 0 ){. p1 = (c
68c0: 6f 6e 73 74 20 76 6f 69 64 2a 29 73 71 6c 69 74 onst void*)sqlit
68d0: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 e3_value_text16(
68e0: 61 72 67 76 5b 30 5d 29 3b 0a 23 65 6e 64 69 66 argv[0]);.#endif
68f0: 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 . }else if( str
6900: 63 6d 70 28 7a 43 6d 64 2c 20 22 62 6c 6f 62 22 cmp(zCmd, "blob"
6910: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 70 31 20 3d )==0 ){. p1 =
6920: 20 28 63 6f 6e 73 74 20 76 6f 69 64 2a 29 73 71 (const void*)sq
6930: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 lite3_value_blob
6940: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 7d 65 6c (argv[0]);. }el
6950: 73 65 7b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a se{. return;.
6960: 20 20 7d 0a 20 20 7a 43 6d 64 20 3d 20 28 63 6f }. zCmd = (co
6970: 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65 nst char*)sqlite
6980: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
6990: 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20 7a 43 6d v[2]);. if( zCm
69a0: 64 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 d==0 ) return;.
69b0: 20 69 66 28 20 73 74 72 63 6d 70 28 7a 43 6d 64 if( strcmp(zCmd
69c0: 2c 22 62 79 74 65 73 22 29 3d 3d 30 20 29 7b 0a ,"bytes")==0 ){.
69d0: 20 20 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 sqlite3_valu
69e0: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 e_bytes(argv[0])
69f0: 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 ;.#ifndef SQLITE
6a00: 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 7d 65 _OMIT_UTF16. }e
6a10: 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a lse if( strcmp(z
6a20: 43 6d 64 2c 20 22 62 79 74 65 73 31 36 22 29 3d Cmd, "bytes16")=
6a30: 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 =0 ){. sqlite
6a40: 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 31 36 28 3_value_bytes16(
6a50: 61 72 67 76 5b 30 5d 29 3b 0a 23 65 6e 64 69 66 argv[0]);.#endif
6a60: 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 . }else if( str
6a70: 63 6d 70 28 7a 43 6d 64 2c 20 22 6e 6f 6f 70 22 cmp(zCmd, "noop"
6a80: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 2f 2a 20 64 )==0 ){. /* d
6a90: 6f 20 6e 6f 74 68 69 6e 67 20 2a 2f 0a 20 20 7d o nothing */. }
6aa0: 65 6c 73 65 7b 0a 20 20 20 20 72 65 74 75 72 6e else{. return
6ab0: 3b 0a 20 20 7d 0a 20 20 7a 43 6d 64 20 3d 20 28 ;. }. zCmd = (
6ac0: 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 const char*)sqli
6ad0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
6ae0: 72 67 76 5b 33 5d 29 3b 0a 20 20 69 66 28 20 7a rgv[3]);. if( z
6af0: 43 6d 64 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b Cmd==0 ) return;
6b00: 0a 20 20 69 66 28 20 73 74 72 63 6d 70 28 7a 43 . if( strcmp(zC
6b10: 6d 64 2c 22 74 65 78 74 22 29 3d 3d 30 20 29 7b md,"text")==0 ){
6b20: 0a 20 20 20 20 70 32 20 3d 20 28 63 6f 6e 73 74 . p2 = (const
6b30: 20 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 76 void*)sqlite3_v
6b40: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
6b50: 5d 29 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 ]);.#ifndef SQLI
6b60: 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 TE_OMIT_UTF16.
6b70: 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 }else if( strcmp
6b80: 28 7a 43 6d 64 2c 20 22 74 65 78 74 31 36 22 29 (zCmd, "text16")
6b90: 3d 3d 30 20 29 7b 0a 20 20 20 20 70 32 20 3d 20 ==0 ){. p2 =
6ba0: 28 63 6f 6e 73 74 20 76 6f 69 64 2a 29 73 71 6c (const void*)sql
6bb0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 ite3_value_text1
6bc0: 36 28 61 72 67 76 5b 30 5d 29 3b 0a 23 65 6e 64 6(argv[0]);.#end
6bd0: 69 66 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 if. }else if( s
6be0: 74 72 63 6d 70 28 7a 43 6d 64 2c 20 22 62 6c 6f trcmp(zCmd, "blo
6bf0: 62 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 70 32 b")==0 ){. p2
6c00: 20 3d 20 28 63 6f 6e 73 74 20 76 6f 69 64 2a 29 = (const void*)
6c10: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c sqlite3_value_bl
6c20: 6f 62 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 7d ob(argv[0]);. }
6c30: 65 6c 73 65 7b 0a 20 20 20 20 72 65 74 75 72 6e else{. return
6c40: 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f ;. }. sqlite3_
6c50: 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 result_int(conte
6c60: 78 74 2c 20 70 31 21 3d 70 32 29 3b 0a 7d 0a 0a xt, p1!=p2);.}..
6c70: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
6c80: 71 6c 69 74 65 5f 74 65 73 74 5f 63 72 65 61 74 qlite_test_creat
6c90: 65 5f 66 75 6e 63 74 69 6f 6e 20 44 42 0a 2a 2a e_function DB.**
6ca0: 0a 2a 2a 20 43 61 6c 6c 20 74 68 65 20 73 71 6c .** Call the sql
6cb0: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 ite3_create_func
6cc0: 74 69 6f 6e 20 41 50 49 20 6f 6e 20 74 68 65 20 tion API on the
6cd0: 67 69 76 65 6e 20 64 61 74 61 62 61 73 65 20 69 given database i
6ce0: 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 63 72 n order.** to cr
6cf0: 65 61 74 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 eate a function
6d00: 6e 61 6d 65 64 20 22 78 5f 63 6f 61 6c 65 73 63 named "x_coalesc
6d10: 65 22 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 e". This functi
6d20: 6f 6e 20 64 6f 65 73 20 74 68 65 20 73 61 6d 65 on does the same
6d30: 20 74 68 69 6e 67 0a 2a 2a 20 61 73 20 74 68 65 thing.** as the
6d40: 20 22 63 6f 61 6c 65 73 63 65 22 20 66 75 6e 63 "coalesce" func
6d50: 74 69 6f 6e 2e 20 20 54 68 69 73 20 66 75 6e 63 tion. This func
6d60: 74 69 6f 6e 20 61 6c 73 6f 20 72 65 67 69 73 74 tion also regist
6d70: 65 72 73 20 61 6e 20 53 51 4c 20 66 75 6e 63 74 ers an SQL funct
6d80: 69 6f 6e 0a 2a 2a 20 6e 61 6d 65 64 20 22 78 5f ion.** named "x_
6d90: 73 71 6c 69 74 65 5f 65 78 65 63 22 20 74 68 61 sqlite_exec" tha
6da0: 74 20 69 6e 76 6f 6b 65 73 20 73 71 6c 69 74 65 t invokes sqlite
6db0: 33 5f 65 78 65 63 28 29 2e 20 20 49 6e 76 6f 6b 3_exec(). Invok
6dc0: 69 6e 67 20 73 71 6c 69 74 65 33 5f 65 78 65 63 ing sqlite3_exec
6dd0: 28 29 0a 2a 2a 20 69 6e 20 74 68 69 73 20 77 61 ().** in this wa
6de0: 79 20 69 73 20 69 6c 6c 65 67 61 6c 20 72 65 63 y is illegal rec
6df0: 75 72 73 69 6f 6e 20 61 6e 64 20 73 68 6f 75 6c ursion and shoul
6e00: 64 20 72 61 69 73 65 20 61 6e 20 53 51 4c 49 54 d raise an SQLIT
6e10: 45 5f 4d 49 53 55 53 45 20 65 72 72 6f 72 2e 0a E_MISUSE error..
6e20: 2a 2a 20 54 68 65 20 65 66 66 65 63 74 20 69 73 ** The effect is
6e30: 20 73 69 6d 69 6c 61 72 20 74 6f 20 74 72 79 69 similar to tryi
6e40: 6e 67 20 74 6f 20 75 73 65 20 74 68 65 20 73 61 ng to use the sa
6e50: 6d 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e me database conn
6e60: 65 63 74 69 6f 6e 20 66 72 6f 6d 0a 2a 2a 20 74 ection from.** t
6e70: 77 6f 20 74 68 72 65 61 64 73 20 61 74 20 74 68 wo threads at th
6e80: 65 20 73 61 6d 65 20 74 69 6d 65 2e 0a 2a 2a 0a e same time..**.
6e90: 2a 2a 20 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 ** The original
6ea0: 6d 6f 74 69 76 61 74 69 6f 6e 20 66 6f 72 20 74 motivation for t
6eb0: 68 69 73 20 72 6f 75 74 69 6e 65 20 77 61 73 20 his routine was
6ec0: 74 6f 20 62 65 20 61 62 6c 65 20 74 6f 20 63 61 to be able to ca
6ed0: 6c 6c 20 74 68 65 0a 2a 2a 20 73 71 6c 69 74 65 ll the.** sqlite
6ee0: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 3_create_functio
6ef0: 6e 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 6c 65 n function while
6f00: 20 61 20 71 75 65 72 79 20 69 73 20 69 6e 20 70 a query is in p
6f10: 72 6f 67 72 65 73 73 20 69 6e 20 6f 72 64 65 72 rogress in order
6f20: 0a 2a 2a 20 74 6f 20 74 65 73 74 20 74 68 65 20 .** to test the
6f30: 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 64 65 SQLITE_MISUSE de
6f40: 74 65 63 74 69 6f 6e 20 6c 6f 67 69 63 2e 0a 2a tection logic..*
6f50: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
6f60: 74 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f t_create_functio
6f70: 6e 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 n(. void *NotUs
6f80: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
6f90: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
6fa0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
6fb0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
6fc0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
6fd0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
6fe0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
6ff0: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
7000: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
7010: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
7020: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
7030: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e ument */.){. in
7040: 74 20 72 63 3b 0a 20 20 73 71 6c 69 74 65 33 20 t rc;. sqlite3
7050: 2a 64 62 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 *db;.. if( argc
7060: 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=2 ){. Tcl_A
7070: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7080: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
7090: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
70a0: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 , argv[0],.
70b0: 20 20 22 20 44 42 5c 22 22 2c 20 30 29 3b 0a 20 " DB\"", 0);.
70c0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
70d0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
70e0: 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
70f0: 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 rp, argv[1], &db
7100: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
7110: 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c RROR;. rc = sql
7120: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 ite3_create_func
7130: 74 69 6f 6e 28 64 62 2c 20 22 78 5f 63 6f 61 6c tion(db, "x_coal
7140: 65 73 63 65 22 2c 20 2d 31 2c 20 53 51 4c 49 54 esce", -1, SQLIT
7150: 45 5f 41 4e 59 2c 20 30 2c 20 0a 20 20 20 20 20 E_ANY, 0, .
7160: 20 20 20 74 31 5f 69 66 6e 75 6c 6c 46 75 6e 63 t1_ifnullFunc
7170: 2c 20 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 , 0, 0);. if( r
7180: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a c==SQLITE_OK ){.
7190: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 rc = sqlite3
71a0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
71b0: 28 64 62 2c 20 22 68 65 78 38 22 2c 20 31 2c 20 (db, "hex8", 1,
71c0: 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 20 0a SQLITE_ANY, 0, .
71d0: 20 20 20 20 20 20 20 20 20 20 68 65 78 38 46 75 hex8Fu
71e0: 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 23 nc, 0, 0);. }.#
71f0: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
7200: 49 54 5f 55 54 46 31 36 0a 20 20 69 66 28 20 72 IT_UTF16. if( r
7210: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a c==SQLITE_OK ){.
7220: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 rc = sqlite3
7230: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
7240: 28 64 62 2c 20 22 68 65 78 31 36 22 2c 20 31 2c (db, "hex16", 1,
7250: 20 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 20 SQLITE_ANY, 0,
7260: 0a 20 20 20 20 20 20 20 20 20 20 68 65 78 31 36 . hex16
7270: 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d Func, 0, 0);. }
7280: 0a 23 65 6e 64 69 66 0a 20 20 69 66 28 20 72 63 .#endif. if( rc
7290: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 ==SQLITE_OK ){.
72a0: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
72b0: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 create_function(
72c0: 64 62 2c 20 22 74 6b 74 32 32 31 33 66 75 6e 63 db, "tkt2213func
72d0: 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 41 4e 59 ", 1, SQLITE_ANY
72e0: 2c 20 30 2c 20 0a 20 20 20 20 20 20 20 20 20 20 , 0, .
72f0: 74 6b 74 32 32 31 33 46 75 6e 63 74 69 6f 6e 2c tkt2213Function,
7300: 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 0, 0);. }. if
7310: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc==SQLITE_OK
7320: 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 ){. rc = sqli
7330: 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 te3_create_funct
7340: 69 6f 6e 28 64 62 2c 20 22 70 6f 69 6e 74 65 72 ion(db, "pointer
7350: 5f 63 68 61 6e 67 65 22 2c 20 34 2c 20 53 51 4c _change", 4, SQL
7360: 49 54 45 5f 41 4e 59 2c 20 30 2c 20 0a 20 20 20 ITE_ANY, 0, .
7370: 20 20 20 20 20 20 20 70 74 72 43 68 6e 67 46 75 ptrChngFu
7380: 6e 63 74 69 6f 6e 2c 20 30 2c 20 30 29 3b 0a 20 nction, 0, 0);.
7390: 20 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 }..#ifndef SQLI
73a0: 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 TE_OMIT_UTF16.
73b0: 2f 2a 20 55 73 65 20 74 68 65 20 73 71 6c 69 74 /* Use the sqlit
73c0: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
73d0: 6f 6e 31 36 28 29 20 41 50 49 20 68 65 72 65 2e on16() API here.
73e0: 20 4d 61 69 6e 6c 79 20 66 6f 72 20 66 75 6e 2c Mainly for fun,
73f0: 20 62 75 74 20 61 6c 73 6f 20 0a 20 20 2a 2a 20 but also . **
7400: 62 65 63 61 75 73 65 20 69 74 20 69 73 20 6e 6f because it is no
7410: 74 20 74 65 73 74 65 64 20 61 6e 79 77 68 65 72 t tested anywher
7420: 65 20 65 6c 73 65 2e 20 2a 2f 0a 20 20 69 66 28 e else. */. if(
7430: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc==SQLITE_OK )
7440: 7b 0a 20 20 20 20 63 6f 6e 73 74 20 76 6f 69 64 {. const void
7450: 20 2a 7a 55 74 66 31 36 3b 0a 20 20 20 20 73 71 *zUtf16;. sq
7460: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 lite3_value *pVa
7470: 6c 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d l;. sqlite3_m
7480: 75 74 65 78 5f 65 6e 74 65 72 28 64 62 2d 3e 6d utex_enter(db->m
7490: 75 74 65 78 29 3b 0a 20 20 20 20 70 56 61 6c 20 utex);. pVal
74a0: 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 = sqlite3ValueNe
74b0: 77 28 64 62 29 3b 0a 20 20 20 20 73 71 6c 69 74 w(db);. sqlit
74c0: 65 33 56 61 6c 75 65 53 65 74 53 74 72 28 70 56 e3ValueSetStr(pV
74d0: 61 6c 2c 20 2d 31 2c 20 22 78 5f 73 71 6c 69 74 al, -1, "x_sqlit
74e0: 65 5f 65 78 65 63 22 2c 20 53 51 4c 49 54 45 5f e_exec", SQLITE_
74f0: 55 54 46 38 2c 20 53 51 4c 49 54 45 5f 53 54 41 UTF8, SQLITE_STA
7500: 54 49 43 29 3b 0a 20 20 20 20 7a 55 74 66 31 36 TIC);. zUtf16
7510: 20 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65 54 = sqlite3ValueT
7520: 65 78 74 28 70 56 61 6c 2c 20 53 51 4c 49 54 45 ext(pVal, SQLITE
7530: 5f 55 54 46 31 36 4e 41 54 49 56 45 29 3b 0a 20 _UTF16NATIVE);.
7540: 20 20 20 69 66 28 20 64 62 2d 3e 6d 61 6c 6c 6f if( db->mallo
7550: 63 46 61 69 6c 65 64 20 29 7b 0a 20 20 20 20 20 cFailed ){.
7560: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4e 4f 4d rc = SQLITE_NOM
7570: 45 4d 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 EM;. }else{.
7580: 20 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 rc = sqlite
7590: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 3_create_functio
75a0: 6e 31 36 28 64 62 2c 20 7a 55 74 66 31 36 2c 20 n16(db, zUtf16,
75b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
75c0: 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 1, SQLITE_UTF16
75d0: 2c 20 64 62 2c 20 73 71 6c 69 74 65 33 45 78 65 , db, sqlite3Exe
75e0: 63 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 cFunc, 0, 0);.
75f0: 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 56 }. sqlite3V
7600: 61 6c 75 65 46 72 65 65 28 70 56 61 6c 29 3b 0a alueFree(pVal);.
7610: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 sqlite3_mute
7620: 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 x_leave(db->mute
7630: 78 29 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 0a x);. }.#endif..
7640: 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 if( sqlite3Tes
7650: 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c tErrCode(interp,
7660: 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 db, rc) ) retur
7670: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 n TCL_ERROR;. T
7680: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
7690: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 erp, (char *)t1E
76a0: 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 rrorName(rc), 0)
76b0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
76c0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 K;.}../*.** Rout
76d0: 69 6e 65 73 20 74 6f 20 69 6d 70 6c 65 6d 65 6e ines to implemen
76e0: 74 20 74 68 65 20 78 5f 63 6f 75 6e 74 28 29 20 t the x_count()
76f0: 61 67 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 aggregate functi
7700: 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 78 5f 63 6f 75 6e on..**.** x_coun
7710: 74 28 29 20 63 6f 75 6e 74 73 20 74 68 65 20 6e t() counts the n
7720: 75 6d 62 65 72 20 6f 66 20 6e 6f 6e 2d 6e 75 6c umber of non-nul
7730: 6c 20 61 72 67 75 6d 65 6e 74 73 2e 20 20 42 75 l arguments. Bu
7740: 74 20 74 68 65 72 65 20 61 72 65 0a 2a 2a 20 73 t there are.** s
7750: 6f 6d 65 20 74 77 69 73 74 73 20 66 6f 72 20 74 ome twists for t
7760: 65 73 74 69 6e 67 20 70 75 72 70 6f 73 65 73 2e esting purposes.
7770: 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 61 72 .**.** If the ar
7780: 67 75 6d 65 6e 74 20 74 6f 20 78 5f 63 6f 75 6e gument to x_coun
7790: 74 28 29 20 69 73 20 34 30 20 74 68 65 6e 20 61 t() is 40 then a
77a0: 20 55 54 46 2d 38 20 65 72 72 6f 72 20 69 73 20 UTF-8 error is
77b0: 72 65 70 6f 72 74 65 64 0a 2a 2a 20 6f 6e 20 74 reported.** on t
77c0: 68 65 20 73 74 65 70 20 66 75 6e 63 74 69 6f 6e he step function
77d0: 2e 20 20 49 66 20 78 5f 63 6f 75 6e 74 28 34 31 . If x_count(41
77e0: 29 20 69 73 20 73 65 65 6e 2c 20 74 68 65 6e 20 ) is seen, then
77f0: 61 20 55 54 46 2d 31 36 20 65 72 72 6f 72 0a 2a a UTF-16 error.*
7800: 2a 20 69 73 20 72 65 70 6f 72 74 65 64 20 6f 6e * is reported on
7810: 20 74 68 65 20 73 74 65 70 20 66 75 6e 63 74 69 the step functi
7820: 6f 6e 2e 20 20 49 66 20 74 68 65 20 74 6f 74 61 on. If the tota
7830: 6c 20 63 6f 75 6e 74 20 69 73 20 34 32 2c 20 74 l count is 42, t
7840: 68 65 6e 0a 2a 2a 20 61 20 55 54 46 2d 38 20 65 hen.** a UTF-8 e
7850: 72 72 6f 72 20 69 73 20 72 65 70 6f 72 74 65 64 rror is reported
7860: 20 6f 6e 20 74 68 65 20 66 69 6e 61 6c 69 7a 65 on the finalize
7870: 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 function..*/.ty
7880: 70 65 64 65 66 20 73 74 72 75 63 74 20 74 31 43 pedef struct t1C
7890: 6f 75 6e 74 43 74 78 20 74 31 43 6f 75 6e 74 43 ountCtx t1CountC
78a0: 74 78 3b 0a 73 74 72 75 63 74 20 74 31 43 6f 75 tx;.struct t1Cou
78b0: 6e 74 43 74 78 20 7b 0a 20 20 69 6e 74 20 6e 3b ntCtx {. int n;
78c0: 0a 7d 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .};.static void
78d0: 74 31 43 6f 75 6e 74 53 74 65 70 28 0a 20 20 73 t1CountStep(. s
78e0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
78f0: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
7900: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 rgc,. sqlite3_v
7910: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
7920: 20 74 31 43 6f 75 6e 74 43 74 78 20 2a 70 3b 0a t1CountCtx *p;.
7930: 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 p = sqlite3_ag
7940: 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 gregate_context(
7950: 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 context, sizeof(
7960: 2a 70 29 29 3b 0a 20 20 69 66 28 20 28 61 72 67 *p));. if( (arg
7970: 63 3d 3d 30 20 7c 7c 20 53 51 4c 49 54 45 5f 4e c==0 || SQLITE_N
7980: 55 4c 4c 21 3d 73 71 6c 69 74 65 33 5f 76 61 6c ULL!=sqlite3_val
7990: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 ue_type(argv[0])
79a0: 20 29 20 26 26 20 70 20 29 7b 0a 20 20 20 20 70 ) && p ){. p
79b0: 2d 3e 6e 2b 2b 3b 0a 20 20 7d 0a 20 20 69 66 28 ->n++;. }. if(
79c0: 20 61 72 67 63 3e 30 20 29 7b 0a 20 20 20 20 69 argc>0 ){. i
79d0: 6e 74 20 76 20 3d 20 73 71 6c 69 74 65 33 5f 76 nt v = sqlite3_v
79e0: 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d alue_int(argv[0]
79f0: 29 3b 0a 20 20 20 20 69 66 28 20 76 3d 3d 34 30 );. if( v==40
7a00: 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 ){. sqlite
7a10: 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 3_result_error(c
7a20: 6f 6e 74 65 78 74 2c 20 22 76 61 6c 75 65 20 6f ontext, "value o
7a30: 66 20 34 30 20 68 61 6e 64 65 64 20 74 6f 20 78 f 40 handed to x
7a40: 5f 63 6f 75 6e 74 22 2c 20 2d 31 29 3b 0a 23 69 _count", -1);.#i
7a50: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
7a60: 54 5f 55 54 46 31 36 0a 20 20 20 20 7d 65 6c 73 T_UTF16. }els
7a70: 65 20 69 66 28 20 76 3d 3d 34 31 20 29 7b 0a 20 e if( v==41 ){.
7a80: 20 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 const char
7a90: 7a 55 74 66 31 36 45 72 72 4d 73 67 5b 5d 20 3d zUtf16ErrMsg[] =
7aa0: 20 7b 20 30 2c 20 30 78 36 31 2c 20 30 2c 20 30 { 0, 0x61, 0, 0
7ab0: 78 36 32 2c 20 30 2c 20 30 78 36 33 2c 20 30 2c x62, 0, 0x63, 0,
7ac0: 20 30 2c 20 30 7d 3b 0a 20 20 20 20 20 20 73 71 0, 0};. sq
7ad0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 lite3_result_err
7ae0: 6f 72 31 36 28 63 6f 6e 74 65 78 74 2c 20 26 7a or16(context, &z
7af0: 55 74 66 31 36 45 72 72 4d 73 67 5b 31 2d 53 51 Utf16ErrMsg[1-SQ
7b00: 4c 49 54 45 5f 42 49 47 45 4e 44 49 41 4e 5d 2c LITE_BIGENDIAN],
7b10: 20 2d 31 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 -1);.#endif.
7b20: 20 7d 0a 20 20 7d 0a 7d 20 20 20 0a 73 74 61 74 }. }.} .stat
7b30: 69 63 20 76 6f 69 64 20 74 31 43 6f 75 6e 74 46 ic void t1CountF
7b40: 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f inalize(sqlite3_
7b50: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
7b60: 29 7b 0a 20 20 74 31 43 6f 75 6e 74 43 74 78 20 ){. t1CountCtx
7b70: 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 *p;. p = sqlite
7b80: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
7b90: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a ext(context, siz
7ba0: 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 eof(*p));. if(
7bb0: 70 20 29 7b 0a 20 20 20 20 69 66 28 20 70 2d 3e p ){. if( p->
7bc0: 6e 3d 3d 34 32 20 29 7b 0a 20 20 20 20 20 20 73 n==42 ){. s
7bd0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 qlite3_result_er
7be0: 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 22 78 5f ror(context, "x_
7bf0: 63 6f 75 6e 74 20 74 6f 74 61 6c 73 20 74 6f 20 count totals to
7c00: 34 32 22 2c 20 2d 31 29 3b 0a 20 20 20 20 7d 65 42", -1);. }e
7c10: 6c 73 65 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 lse{. sqlit
7c20: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f e3_result_int(co
7c30: 6e 74 65 78 74 2c 20 70 20 3f 20 70 2d 3e 6e 20 ntext, p ? p->n
7c40: 3a 20 30 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a : 0);. }. }.
7c50: 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c }..static void l
7c60: 65 67 61 63 79 43 6f 75 6e 74 53 74 65 70 28 0a egacyCountStep(.
7c70: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
7c80: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e t *context,. in
7c90: 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 t argc,. sqlite
7ca0: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 3_value **argv.)
7cb0: 7b 0a 20 20 2f 2a 20 6e 6f 2d 6f 70 20 2a 2f 0a {. /* no-op */.
7cc0: 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 }..#ifndef SQLIT
7cd0: 45 5f 4f 4d 49 54 5f 44 45 50 52 45 43 41 54 45 E_OMIT_DEPRECATE
7ce0: 44 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 65 D.static void le
7cf0: 67 61 63 79 43 6f 75 6e 74 46 69 6e 61 6c 69 7a gacyCountFinaliz
7d00: 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 e(sqlite3_contex
7d10: 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 73 t *context){. s
7d20: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e qlite3_result_in
7d30: 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 t(context, sqlit
7d40: 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 75 e3_aggregate_cou
7d50: 6e 74 28 63 6f 6e 74 65 78 74 29 29 3b 0a 7d 0a nt(context));.}.
7d60: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 #endif../*.** Us
7d70: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 63 72 age: sqlite3_cr
7d80: 65 61 74 65 5f 61 67 67 72 65 67 61 74 65 20 44 eate_aggregate D
7d90: 42 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 74 68 65 B.**.** Call the
7da0: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
7db0: 66 75 6e 63 74 69 6f 6e 20 41 50 49 20 6f 6e 20 function API on
7dc0: 74 68 65 20 67 69 76 65 6e 20 64 61 74 61 62 61 the given databa
7dd0: 73 65 20 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 se in order.** t
7de0: 6f 20 63 72 65 61 74 65 20 61 20 66 75 6e 63 74 o create a funct
7df0: 69 6f 6e 20 6e 61 6d 65 64 20 22 78 5f 63 6f 75 ion named "x_cou
7e00: 6e 74 22 2e 20 20 54 68 69 73 20 66 75 6e 63 74 nt". This funct
7e10: 69 6f 6e 20 69 73 20 73 69 6d 69 6c 61 72 0a 2a ion is similar.*
7e20: 2a 20 74 6f 20 74 68 65 20 62 75 69 6c 74 2d 69 * to the built-i
7e30: 6e 20 63 6f 75 6e 74 28 29 20 66 75 6e 63 74 69 n count() functi
7e40: 6f 6e 2c 20 77 69 74 68 20 61 20 66 65 77 20 73 on, with a few s
7e50: 70 65 63 69 61 6c 20 71 75 69 72 6b 73 0a 2a 2a pecial quirks.**
7e60: 20 66 6f 72 20 74 65 73 74 69 6e 67 20 74 68 65 for testing the
7e70: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
7e80: 65 72 72 6f 72 28 29 20 41 50 49 73 2e 0a 2a 2a error() APIs..**
7e90: 0a 2a 2a 20 54 68 65 20 6f 72 69 67 69 6e 61 6c .** The original
7ea0: 20 6d 6f 74 69 76 61 74 69 6f 6e 20 66 6f 72 20 motivation for
7eb0: 74 68 69 73 20 72 6f 75 74 69 6e 65 20 77 61 73 this routine was
7ec0: 20 74 6f 20 62 65 20 61 62 6c 65 20 74 6f 20 63 to be able to c
7ed0: 61 6c 6c 20 74 68 65 0a 2a 2a 20 73 71 6c 69 74 all the.** sqlit
7ee0: 65 33 5f 63 72 65 61 74 65 5f 61 67 67 72 65 67 e3_create_aggreg
7ef0: 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 ate function whi
7f00: 6c 65 20 61 20 71 75 65 72 79 20 69 73 20 69 6e le a query is in
7f10: 20 70 72 6f 67 72 65 73 73 20 69 6e 20 6f 72 64 progress in ord
7f20: 65 72 0a 2a 2a 20 74 6f 20 74 65 73 74 20 74 68 er.** to test th
7f30: 65 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 e SQLITE_MISUSE
7f40: 64 65 74 65 63 74 69 6f 6e 20 6c 6f 67 69 63 2e detection logic.
7f50: 20 20 53 65 65 20 6d 69 73 75 73 65 2e 74 65 73 See misuse.tes
7f60: 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f t..**.** This ro
7f70: 75 74 69 6e 65 20 77 61 73 20 6c 61 74 65 72 20 utine was later
7f80: 65 78 74 65 6e 64 65 64 20 74 6f 20 74 65 73 74 extended to test
7f90: 20 74 68 65 20 75 73 65 20 6f 66 20 73 71 6c 69 the use of sqli
7fa0: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 te3_result_error
7fb0: 28 29 0a 2a 2a 20 77 69 74 68 69 6e 20 61 67 67 ().** within agg
7fc0: 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 73 regate functions
7fd0: 2e 0a 2a 2a 0a 2a 2a 20 4c 61 74 65 72 3a 20 49 ..**.** Later: I
7fe0: 74 20 69 73 20 6e 6f 77 20 61 6c 73 6f 20 65 78 t is now also ex
7ff0: 74 65 6e 64 65 64 20 74 6f 20 72 65 67 69 73 74 tended to regist
8000: 65 72 20 74 68 65 20 61 67 67 72 65 67 61 74 65 er the aggregate
8010: 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 22 6c 65 function.** "le
8020: 67 61 63 79 5f 63 6f 75 6e 74 28 29 22 20 77 69 gacy_count()" wi
8030: 74 68 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 th the supplied
8040: 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 2e database handle.
8050: 20 54 68 69 73 20 69 73 20 75 73 65 64 0a 2a 2a This is used.**
8060: 20 74 6f 20 74 65 73 74 20 74 68 65 20 64 65 70 to test the dep
8070: 72 65 63 61 74 65 64 20 73 71 6c 69 74 65 33 5f recated sqlite3_
8080: 61 67 67 72 65 67 61 74 65 5f 63 6f 75 6e 74 28 aggregate_count(
8090: 29 20 41 50 49 2e 0a 2a 2f 0a 73 74 61 74 69 63 ) API..*/.static
80a0: 20 69 6e 74 20 74 65 73 74 5f 63 72 65 61 74 65 int test_create
80b0: 5f 61 67 67 72 65 67 61 74 65 28 0a 20 20 76 6f _aggregate(. vo
80c0: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
80d0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
80e0: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
80f0: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
8100: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
8110: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
8120: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
8130: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
8140: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
8150: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
8160: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
8170: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
8180: 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a /.){. sqlite3 *
8190: 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 db;. int rc;.
81a0: 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 if( argc!=2 ){.
81b0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
81c0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
81d0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
81e0: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
81f0: 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 49 4c 45 ],. " FILE
8200: 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 NAME\"", 0);.
8210: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
8220: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
8230: 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
8240: 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 , argv[1], &db)
8250: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
8260: 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 OR;. rc = sqlit
8270: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
8280: 6f 6e 28 64 62 2c 20 22 78 5f 63 6f 75 6e 74 22 on(db, "x_count"
8290: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 0, SQLITE_UTF8
82a0: 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 20 74 31 , 0, 0,. t1
82b0: 43 6f 75 6e 74 53 74 65 70 2c 74 31 43 6f 75 6e CountStep,t1Coun
82c0: 74 46 69 6e 61 6c 69 7a 65 29 3b 0a 20 20 69 66 tFinalize);. if
82d0: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc==SQLITE_OK
82e0: 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 ){. rc = sqli
82f0: 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 te3_create_funct
8300: 69 6f 6e 28 64 62 2c 20 22 78 5f 63 6f 75 6e 74 ion(db, "x_count
8310: 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 ", 1, SQLITE_UTF
8320: 38 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 20 20 8, 0, 0,.
8330: 20 74 31 43 6f 75 6e 74 53 74 65 70 2c 74 31 43 t1CountStep,t1C
8340: 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 29 3b 0a 20 ountFinalize);.
8350: 20 7d 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 }.#ifndef SQLIT
8360: 45 5f 4f 4d 49 54 5f 44 45 50 52 45 43 41 54 45 E_OMIT_DEPRECATE
8370: 44 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 D. if( rc==SQLI
8380: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 TE_OK ){. rc
8390: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
83a0: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 6c _function(db, "l
83b0: 65 67 61 63 79 5f 63 6f 75 6e 74 22 2c 20 30 2c egacy_count", 0,
83c0: 20 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 20 SQLITE_ANY, 0,
83d0: 30 2c 0a 20 20 20 20 20 20 20 20 6c 65 67 61 63 0,. legac
83e0: 79 43 6f 75 6e 74 53 74 65 70 2c 20 6c 65 67 61 yCountStep, lega
83f0: 63 79 43 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 0a cyCountFinalize.
8400: 20 20 20 20 29 3b 0a 20 20 7d 0a 23 65 6e 64 69 );. }.#endi
8410: 66 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 f. if( sqlite3T
8420: 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 estErrCode(inter
8430: 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 p, db, rc) ) ret
8440: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
8450: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
8460: 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 74 nterp, (char *)t
8470: 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 1ErrorName(rc),
8480: 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 0);. return TCL
8490: 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 _OK;.}.../*.** U
84a0: 73 61 67 65 3a 20 20 70 72 69 6e 74 66 20 54 45 sage: printf TE
84b0: 58 54 0a 2a 2a 0a 2a 2a 20 53 65 6e 64 20 6f 75 XT.**.** Send ou
84c0: 74 70 75 74 20 74 6f 20 70 72 69 6e 74 66 2e 20 tput to printf.
84d0: 20 55 73 65 20 74 68 69 73 20 72 61 74 68 65 72 Use this rather
84e0: 20 74 68 61 6e 20 70 75 74 73 20 74 6f 20 6d 65 than puts to me
84f0: 72 67 65 20 74 68 65 20 6f 75 74 70 75 74 0a 2a rge the output.*
8500: 2a 20 69 6e 20 74 68 65 20 63 6f 72 72 65 63 74 * in the correct
8510: 20 73 65 71 75 65 6e 63 65 20 77 69 74 68 20 64 sequence with d
8520: 65 62 75 67 67 69 6e 67 20 70 72 69 6e 74 66 73 ebugging printfs
8530: 20 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 43 inserted into C
8540: 20 63 6f 64 65 2e 0a 2a 2a 20 50 75 74 73 20 75 code..** Puts u
8550: 73 65 73 20 61 20 73 65 70 61 72 61 74 65 20 62 ses a separate b
8560: 75 66 66 65 72 20 61 6e 64 20 64 65 62 75 67 67 uffer and debugg
8570: 69 6e 67 20 73 74 61 74 65 6d 65 6e 74 73 20 77 ing statements w
8580: 69 6c 6c 20 62 65 20 6f 75 74 20 6f 66 0a 2a 2a ill be out of.**
8590: 20 73 65 71 75 65 6e 63 65 20 69 66 20 69 74 20 sequence if it
85a0: 69 73 20 75 73 65 64 2e 0a 2a 2f 0a 73 74 61 74 is used..*/.stat
85b0: 69 63 20 69 6e 74 20 74 65 73 74 5f 70 72 69 6e ic int test_prin
85c0: 74 66 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 tf(. void *NotU
85d0: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
85e0: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
85f0: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
8600: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
8610: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
8620: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
8630: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
8640: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
8650: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
8660: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
8670: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
8680: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 gument */.){. i
8690: 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 f( argc!=2 ){.
86a0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
86b0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
86c0: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
86d0: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d be \"", argv[0]
86e0: 2c 0a 20 20 20 20 20 20 20 22 20 54 45 58 54 5c ,. " TEXT\
86f0: 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 "", 0);. retu
8700: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
8710: 7d 0a 20 20 70 72 69 6e 74 66 28 22 25 73 5c 6e }. printf("%s\n
8720: 22 2c 20 61 72 67 76 5b 31 5d 29 3b 0a 20 20 72 ", argv[1]);. r
8730: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
8740: 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 .../*.** Usage:
8750: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 sqlite3_mprintf
8760: 5f 69 6e 74 20 46 4f 52 4d 41 54 20 49 4e 54 45 _int FORMAT INTE
8770: 47 45 52 20 49 4e 54 45 47 45 52 20 49 4e 54 45 GER INTEGER INTE
8780: 47 45 52 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d GER.**.** Call m
8790: 70 72 69 6e 74 66 20 77 69 74 68 20 74 68 72 65 printf with thre
87a0: 65 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 e integer argume
87b0: 6e 74 73 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e nts.*/.static in
87c0: 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 t sqlite3_mprint
87d0: 66 5f 69 6e 74 28 0a 20 20 76 6f 69 64 20 2a 4e f_int(. void *N
87e0: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
87f0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
8800: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
8810: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
8820: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
8830: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
8840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
8850: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
8860: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
8870: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
8880: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
8890: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
88a0: 20 20 69 6e 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 int a[3], i;.
88b0: 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20 char *z;. if(
88c0: 61 72 67 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 argc!=5 ){. T
88d0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
88e0: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
88f0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
8900: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 \"", argv[0],.
8910: 20 20 20 20 20 20 22 20 46 4f 52 4d 41 54 20 49 " FORMAT I
8920: 4e 54 20 49 4e 54 20 49 4e 54 5c 22 22 2c 20 30 NT INT INT\"", 0
8930: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
8940: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 L_ERROR;. }. f
8950: 6f 72 28 69 3d 32 3b 20 69 3c 35 3b 20 69 2b 2b or(i=2; i<5; i++
8960: 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 ){. if( Tcl_G
8970: 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 etInt(interp, ar
8980: 67 76 5b 69 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 gv[i], &a[i-2])
8990: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
89a0: 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 OR;. }. z = sq
89b0: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 72 lite3_mprintf(ar
89c0: 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c 20 61 5b 31 gv[1], a[0], a[1
89d0: 5d 2c 20 61 5b 32 5d 29 3b 0a 20 20 54 63 6c 5f ], a[2]);. Tcl_
89e0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
89f0: 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 71 erp, z, 0);. sq
8a00: 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 3b 0a 20 lite3_free(z);.
8a10: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
8a20: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 7a 4e 75 6d }../*.** If zNum
8a30: 20 72 65 70 72 65 73 65 6e 74 73 20 61 6e 20 69 represents an i
8a40: 6e 74 65 67 65 72 20 74 68 61 74 20 77 69 6c 6c nteger that will
8a50: 20 66 69 74 20 69 6e 20 36 34 2d 62 69 74 73 2c fit in 64-bits,
8a60: 20 74 68 65 6e 20 73 65 74 0a 2a 2a 20 2a 70 56 then set.** *pV
8a70: 61 6c 75 65 20 74 6f 20 74 68 61 74 20 69 6e 74 alue to that int
8a80: 65 67 65 72 20 61 6e 64 20 72 65 74 75 72 6e 20 eger and return
8a90: 74 72 75 65 2e 20 20 4f 74 68 65 72 77 69 73 65 true. Otherwise
8aa0: 20 72 65 74 75 72 6e 20 66 61 6c 73 65 2e 0a 2a return false..*
8ab0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c /.static int sql
8ac0: 69 74 65 33 47 65 74 49 6e 74 36 34 28 63 6f 6e ite3GetInt64(con
8ad0: 73 74 20 63 68 61 72 20 2a 7a 4e 75 6d 2c 20 69 st char *zNum, i
8ae0: 36 34 20 2a 70 56 61 6c 75 65 29 7b 0a 20 20 69 64 *pValue){. i
8af0: 66 28 20 73 71 6c 69 74 65 33 46 69 74 73 49 6e f( sqlite3FitsIn
8b00: 36 34 42 69 74 73 28 7a 4e 75 6d 2c 20 30 29 20 64Bits(zNum, 0)
8b10: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 41 74 ){. sqlite3At
8b20: 6f 69 36 34 28 7a 4e 75 6d 2c 20 70 56 61 6c 75 oi64(zNum, pValu
8b30: 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 31 e);. return 1
8b40: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 ;. }. return 0
8b50: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
8b60: 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e : sqlite3_mprin
8b70: 74 66 5f 69 6e 74 36 34 20 46 4f 52 4d 41 54 20 tf_int64 FORMAT
8b80: 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52 20 INTEGER INTEGER
8b90: 49 4e 54 45 47 45 52 0a 2a 2a 0a 2a 2a 20 43 61 INTEGER.**.** Ca
8ba0: 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 74 68 20 ll mprintf with
8bb0: 74 68 72 65 65 20 36 34 2d 62 69 74 20 69 6e 74 three 64-bit int
8bc0: 65 67 65 72 20 61 72 67 75 6d 65 6e 74 73 0a 2a eger arguments.*
8bd0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c /.static int sql
8be0: 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 ite3_mprintf_int
8bf0: 36 34 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 64(. void *NotU
8c00: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
8c10: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
8c20: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
8c30: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
8c40: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
8c50: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
8c60: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
8c70: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
8c80: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
8c90: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
8ca0: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
8cb0: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 gument */.){. i
8cc0: 6e 74 20 69 3b 0a 20 20 73 71 6c 69 74 65 5f 69 nt i;. sqlite_i
8cd0: 6e 74 36 34 20 61 5b 33 5d 3b 0a 20 20 63 68 61 nt64 a[3];. cha
8ce0: 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 r *z;. if( argc
8cf0: 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=5 ){. Tcl_A
8d00: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8d10: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
8d20: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
8d30: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 , argv[0],.
8d40: 20 20 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 " FORMAT INT I
8d50: 4e 54 20 49 4e 54 5c 22 22 2c 20 30 29 3b 0a 20 NT INT\"", 0);.
8d60: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
8d70: 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 ROR;. }. for(i
8d80: 3d 32 3b 20 69 3c 35 3b 20 69 2b 2b 29 7b 0a 20 =2; i<5; i++){.
8d90: 20 20 20 69 66 28 20 21 73 71 6c 69 74 65 33 47 if( !sqlite3G
8da0: 65 74 49 6e 74 36 34 28 61 72 67 76 5b 69 5d 2c etInt64(argv[i],
8db0: 20 26 61 5b 69 2d 32 5d 29 20 29 7b 0a 20 20 20 &a[i-2]) ){.
8dc0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
8dd0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 61 72 67 ult(interp, "arg
8de0: 75 6d 65 6e 74 20 69 73 20 6e 6f 74 20 61 20 76 ument is not a v
8df0: 61 6c 69 64 20 36 34 2d 62 69 74 20 69 6e 74 65 alid 64-bit inte
8e00: 67 65 72 22 2c 20 30 29 3b 0a 20 20 20 20 20 20 ger", 0);.
8e10: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
8e20: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 7a 20 ;. }. }. z
8e30: 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 = sqlite3_mprint
8e40: 66 28 61 72 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c f(argv[1], a[0],
8e50: 20 61 5b 31 5d 2c 20 61 5b 32 5d 29 3b 0a 20 20 a[1], a[2]);.
8e60: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
8e70: 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a (interp, z, 0);.
8e80: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a sqlite3_free(z
8e90: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
8ea0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
8eb0: 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 ge: sqlite3_mpr
8ec0: 69 6e 74 66 5f 73 74 72 20 46 4f 52 4d 41 54 20 intf_str FORMAT
8ed0: 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52 20 INTEGER INTEGER
8ee0: 53 54 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 43 61 6c STRING.**.** Cal
8ef0: 6c 20 6d 70 72 69 6e 74 66 20 77 69 74 68 20 74 l mprintf with t
8f00: 77 6f 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d wo integer argum
8f10: 65 6e 74 73 20 61 6e 64 20 6f 6e 65 20 73 74 72 ents and one str
8f20: 69 6e 67 20 61 72 67 75 6d 65 6e 74 0a 2a 2f 0a ing argument.*/.
8f30: 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 static int sqlit
8f40: 65 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 28 0a e3_mprintf_str(.
8f50: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
8f60: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
8f70: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
8f80: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
8f90: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
8fa0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
8fb0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
8fc0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
8fd0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
8fe0: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
8ff0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
9000: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
9010: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 nt */.){. int a
9020: 5b 33 5d 2c 20 69 3b 0a 20 20 63 68 61 72 20 2a [3], i;. char *
9030: 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 3c 34 20 z;. if( argc<4
9040: 7c 7c 20 61 72 67 63 3e 35 20 29 7b 0a 20 20 20 || argc>5 ){.
9050: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
9060: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
9070: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
9080: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
9090: 0a 20 20 20 20 20 20 20 22 20 46 4f 52 4d 41 54 . " FORMAT
90a0: 20 49 4e 54 20 49 4e 54 20 3f 53 54 52 49 4e 47 INT INT ?STRING
90b0: 3f 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 ?\"", 0);. re
90c0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
90d0: 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 }. for(i=2; i
90e0: 3c 34 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 <4; i++){. if
90f0: 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 ( Tcl_GetInt(int
9100: 65 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26 61 erp, argv[i], &a
9110: 5b 69 2d 32 5d 29 20 29 20 72 65 74 75 72 6e 20 [i-2]) ) return
9120: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
9130: 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 z = sqlite3_mpr
9140: 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 5b intf(argv[1], a[
9150: 30 5d 2c 20 61 5b 31 5d 2c 20 61 72 67 63 3e 34 0], a[1], argc>4
9160: 20 3f 20 61 72 67 76 5b 34 5d 20 3a 20 4e 55 4c ? argv[4] : NUL
9170: 4c 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 L);. Tcl_Append
9180: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a Result(interp, z
9190: 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f , 0);. sqlite3_
91a0: 66 72 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 free(z);. retur
91b0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
91c0: 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
91d0: 65 33 5f 73 6e 70 72 69 6e 74 66 5f 73 74 72 20 e3_snprintf_str
91e0: 49 4e 54 45 47 45 52 20 46 4f 52 4d 41 54 20 49 INTEGER FORMAT I
91f0: 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52 20 53 NTEGER INTEGER S
9200: 54 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c TRING.**.** Call
9210: 20 6d 70 72 69 6e 74 66 20 77 69 74 68 20 74 77 mprintf with tw
9220: 6f 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 o integer argume
9230: 6e 74 73 20 61 6e 64 20 6f 6e 65 20 73 74 72 69 nts and one stri
9240: 6e 67 20 61 72 67 75 6d 65 6e 74 0a 2a 2f 0a 73 ng argument.*/.s
9250: 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 tatic int sqlite
9260: 33 5f 73 6e 70 72 69 6e 74 66 5f 73 74 72 28 0a 3_snprintf_str(.
9270: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
9280: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
9290: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
92a0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
92b0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
92c0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
92d0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
92e0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
92f0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
9300: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
9310: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
9320: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
9330: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 nt */.){. int a
9340: 5b 33 5d 2c 20 69 3b 0a 20 20 69 6e 74 20 6e 3b [3], i;. int n;
9350: 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 . char *z;. if
9360: 28 20 61 72 67 63 3c 35 20 7c 7c 20 61 72 67 63 ( argc<5 || argc
9370: 3e 36 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 >6 ){. Tcl_Ap
9380: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
9390: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
93a0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
93b0: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
93c0: 20 22 20 49 4e 54 20 46 4f 52 4d 41 54 20 49 4e " INT FORMAT IN
93d0: 54 20 49 4e 54 20 3f 53 54 52 49 4e 47 3f 5c 22 T INT ?STRING?\"
93e0: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
93f0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
9400: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
9410: 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 t(interp, argv[1
9420: 5d 2c 20 26 6e 29 20 29 20 72 65 74 75 72 6e 20 ], &n) ) return
9430: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
9440: 20 6e 3c 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f n<0 ){. Tcl_
9450: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
9460: 65 72 70 2c 20 22 4e 20 6d 75 73 74 20 62 65 20 erp, "N must be
9470: 6e 6f 6e 2d 6e 65 67 61 74 69 76 65 22 2c 20 30 non-negative", 0
9480: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
9490: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 L_ERROR;. }. f
94a0: 6f 72 28 69 3d 33 3b 20 69 3c 35 3b 20 69 2b 2b or(i=3; i<5; i++
94b0: 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 ){. if( Tcl_G
94c0: 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 etInt(interp, ar
94d0: 67 76 5b 69 5d 2c 20 26 61 5b 69 2d 33 5d 29 20 gv[i], &a[i-3])
94e0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
94f0: 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 OR;. }. z = sq
9500: 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 6e 2b lite3_malloc( n+
9510: 31 20 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 1 );. sqlite3_s
9520: 6e 70 72 69 6e 74 66 28 6e 2c 20 7a 2c 20 61 72 nprintf(n, z, ar
9530: 67 76 5b 32 5d 2c 20 61 5b 30 5d 2c 20 61 5b 31 gv[2], a[0], a[1
9540: 5d 2c 20 61 72 67 63 3e 34 20 3f 20 61 72 67 76 ], argc>4 ? argv
9550: 5b 35 5d 20 3a 20 4e 55 4c 4c 29 3b 0a 20 20 54 [5] : NULL);. T
9560: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
9570: 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 interp, z, 0);.
9580: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 sqlite3_free(z)
9590: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
95a0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
95b0: 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 e: sqlite3_mpri
95c0: 6e 74 66 5f 64 6f 75 62 6c 65 20 46 4f 52 4d 41 ntf_double FORMA
95d0: 54 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 T INTEGER INTEGE
95e0: 52 20 44 4f 55 42 4c 45 0a 2a 2a 0a 2a 2a 20 43 R DOUBLE.**.** C
95f0: 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 74 68 all mprintf with
9600: 20 74 77 6f 20 69 6e 74 65 67 65 72 20 61 72 67 two integer arg
9610: 75 6d 65 6e 74 73 20 61 6e 64 20 6f 6e 65 20 64 uments and one d
9620: 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 0a 2a ouble argument.*
9630: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c /.static int sql
9640: 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 64 6f 75 ite3_mprintf_dou
9650: 62 6c 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 ble(. void *Not
9660: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
9670: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
9680: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
9690: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
96a0: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
96b0: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
96c0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
96d0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
96e0: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
96f0: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
9700: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
9710: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
9720: 69 6e 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 20 64 int a[3], i;. d
9730: 6f 75 62 6c 65 20 72 3b 0a 20 20 63 68 61 72 20 ouble r;. char
9740: 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d *z;. if( argc!=
9750: 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 5 ){. Tcl_App
9760: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
9770: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
9780: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
9790: 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 argv[0],.
97a0: 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e 54 " FORMAT INT INT
97b0: 20 44 4f 55 42 4c 45 5c 22 22 2c 20 30 29 3b 0a DOUBLE\"", 0);.
97c0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
97d0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 RROR;. }. for(
97e0: 69 3d 32 3b 20 69 3c 34 3b 20 69 2b 2b 29 7b 0a i=2; i<4; i++){.
97f0: 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 if( Tcl_GetI
9800: 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b nt(interp, argv[
9810: 69 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 29 20 72 i], &a[i-2]) ) r
9820: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
9830: 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 . }. if( Tcl_G
9840: 65 74 44 6f 75 62 6c 65 28 69 6e 74 65 72 70 2c etDouble(interp,
9850: 20 61 72 67 76 5b 34 5d 2c 20 26 72 29 20 29 20 argv[4], &r) )
9860: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
9870: 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f ;. z = sqlite3_
9880: 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c mprintf(argv[1],
9890: 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 72 29 3b a[0], a[1], r);
98a0: 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 . Tcl_AppendRes
98b0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 ult(interp, z, 0
98c0: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 );. sqlite3_fre
98d0: 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 e(z);. return T
98e0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
98f0: 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
9900: 6d 70 72 69 6e 74 66 5f 73 63 61 6c 65 64 20 46 mprintf_scaled F
9910: 4f 52 4d 41 54 20 44 4f 55 42 4c 45 20 44 4f 55 ORMAT DOUBLE DOU
9920: 42 4c 45 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d BLE.**.** Call m
9930: 70 72 69 6e 74 66 20 77 69 74 68 20 61 20 73 69 printf with a si
9940: 6e 67 6c 65 20 64 6f 75 62 6c 65 20 61 72 67 75 ngle double argu
9950: 6d 65 6e 74 20 77 68 69 63 68 20 69 73 20 74 68 ment which is th
9960: 65 20 70 72 6f 64 75 63 74 20 6f 66 20 74 68 65 e product of the
9970: 0a 2a 2a 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 .** two argument
9980: 73 20 67 69 76 65 6e 20 61 62 6f 76 65 2e 20 20 s given above.
9990: 54 68 69 73 20 69 73 20 75 73 65 64 20 74 6f 20 This is used to
99a0: 67 65 6e 65 72 61 74 65 20 6f 76 65 72 66 6c 6f generate overflo
99b0: 77 20 61 6e 64 20 75 6e 64 65 72 66 6c 6f 77 0a w and underflow.
99c0: 2a 2a 20 64 6f 75 62 6c 65 73 20 74 6f 20 74 65 ** doubles to te
99d0: 73 74 20 74 68 61 74 20 74 68 65 79 20 61 72 65 st that they are
99e0: 20 63 6f 6e 76 65 72 74 65 64 20 70 72 6f 70 65 converted prope
99f0: 72 6c 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 rly..*/.static i
9a00: 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e nt sqlite3_mprin
9a10: 74 66 5f 73 63 61 6c 65 64 28 0a 20 20 76 6f 69 tf_scaled(. voi
9a20: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
9a30: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
9a40: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
9a50: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
9a60: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
9a70: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
9a80: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
9a90: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
9aa0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
9ab0: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
9ac0: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
9ad0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
9ae0: 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 64 .){. int i;. d
9af0: 6f 75 62 6c 65 20 72 5b 32 5d 3b 0a 20 20 63 68 ouble r[2];. ch
9b00: 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 ar *z;. if( arg
9b10: 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=4 ){. Tcl_
9b20: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
9b30: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
9b40: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
9b50: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 ", argv[0],.
9b60: 20 20 20 22 20 46 4f 52 4d 41 54 20 44 4f 55 42 " FORMAT DOUB
9b70: 4c 45 20 44 4f 55 42 4c 45 5c 22 22 2c 20 30 29 LE DOUBLE\"", 0)
9b80: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
9b90: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f _ERROR;. }. fo
9ba0: 72 28 69 3d 32 3b 20 69 3c 34 3b 20 69 2b 2b 29 r(i=2; i<4; i++)
9bb0: 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 {. if( Tcl_Ge
9bc0: 74 44 6f 75 62 6c 65 28 69 6e 74 65 72 70 2c 20 tDouble(interp,
9bd0: 61 72 67 76 5b 69 5d 2c 20 26 72 5b 69 2d 32 5d argv[i], &r[i-2]
9be0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
9bf0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 RROR;. }. z =
9c00: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 sqlite3_mprintf(
9c10: 61 72 67 76 5b 31 5d 2c 20 72 5b 30 5d 2a 72 5b argv[1], r[0]*r[
9c20: 31 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 1]);. Tcl_Appen
9c30: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
9c40: 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 z, 0);. sqlite3
9c50: 5f 66 72 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 _free(z);. retu
9c60: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
9c70: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
9c80: 74 65 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 6f te3_mprintf_stro
9c90: 6e 6c 79 20 46 4f 52 4d 41 54 20 53 54 52 49 4e nly FORMAT STRIN
9ca0: 47 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 G.**.** Call mpr
9cb0: 69 6e 74 66 20 77 69 74 68 20 61 20 73 69 6e 67 intf with a sing
9cc0: 6c 65 20 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 le double argume
9cd0: 6e 74 20 77 68 69 63 68 20 69 73 20 74 68 65 20 nt which is the
9ce0: 70 72 6f 64 75 63 74 20 6f 66 20 74 68 65 0a 2a product of the.*
9cf0: 2a 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 20 * two arguments
9d00: 67 69 76 65 6e 20 61 62 6f 76 65 2e 20 20 54 68 given above. Th
9d10: 69 73 20 69 73 20 75 73 65 64 20 74 6f 20 67 65 is is used to ge
9d20: 6e 65 72 61 74 65 20 6f 76 65 72 66 6c 6f 77 20 nerate overflow
9d30: 61 6e 64 20 75 6e 64 65 72 66 6c 6f 77 0a 2a 2a and underflow.**
9d40: 20 64 6f 75 62 6c 65 73 20 74 6f 20 74 65 73 74 doubles to test
9d50: 20 74 68 61 74 20 74 68 65 79 20 61 72 65 20 63 that they are c
9d60: 6f 6e 76 65 72 74 65 64 20 70 72 6f 70 65 72 6c onverted properl
9d70: 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 y..*/.static int
9d80: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 sqlite3_mprintf
9d90: 5f 73 74 72 6f 6e 6c 79 28 0a 20 20 76 6f 69 64 _stronly(. void
9da0: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
9db0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
9dc0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
9dd0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
9de0: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
9df0: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
9e00: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
9e10: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
9e20: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
9e30: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
9e40: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
9e50: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
9e60: 29 7b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 ){. char *z;.
9e70: 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 if( argc!=3 ){.
9e80: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
9e90: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
9ea0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
9eb0: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
9ec0: 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 4f 52 4d ],. " FORM
9ed0: 41 54 20 53 54 52 49 4e 47 5c 22 22 2c 20 30 29 AT STRING\"", 0)
9ee0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
9ef0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 _ERROR;. }. z
9f00: 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 = sqlite3_mprint
9f10: 66 28 61 72 67 76 5b 31 5d 2c 20 61 72 67 76 5b f(argv[1], argv[
9f20: 32 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 2]);. Tcl_Appen
9f30: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
9f40: 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 z, 0);. sqlite3
9f50: 5f 66 72 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 _free(z);. retu
9f60: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
9f70: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
9f80: 74 65 33 5f 6d 70 72 69 6e 74 66 5f 68 65 78 64 te3_mprintf_hexd
9f90: 6f 75 62 6c 65 20 46 4f 52 4d 41 54 20 48 45 58 ouble FORMAT HEX
9fa0: 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 .**.** Call mpri
9fb0: 6e 74 66 20 77 69 74 68 20 61 20 73 69 6e 67 6c ntf with a singl
9fc0: 65 20 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e e double argumen
9fd0: 74 20 77 68 69 63 68 20 69 73 20 64 65 72 69 76 t which is deriv
9fe0: 65 64 20 66 72 6f 6d 20 74 68 65 0a 2a 2a 20 68 ed from the.** h
9ff0: 65 78 61 64 65 63 69 6d 61 6c 20 65 6e 63 6f 64 exadecimal encod
a000: 69 6e 67 20 6f 66 20 61 6e 20 49 45 45 45 20 64 ing of an IEEE d
a010: 6f 75 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 ouble..*/.static
a020: 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 int sqlite3_mpr
a030: 69 6e 74 66 5f 68 65 78 64 6f 75 62 6c 65 28 0a intf_hexdouble(.
a040: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
a050: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
a060: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
a070: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
a080: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
a090: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
a0a0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
a0b0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
a0c0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
a0d0: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
a0e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
a0f0: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
a100: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 20 nt */.){. char
a110: 2a 7a 3b 0a 20 20 64 6f 75 62 6c 65 20 72 3b 0a *z;. double r;.
a120: 20 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 78 unsigned int x
a130: 31 2c 20 78 32 3b 0a 20 20 73 71 6c 69 74 65 5f 1, x2;. sqlite_
a140: 75 69 6e 74 36 34 20 64 3b 0a 20 20 69 66 28 20 uint64 d;. if(
a150: 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 argc!=3 ){. T
a160: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
a170: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
a180: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
a190: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 \"", argv[0],.
a1a0: 20 20 20 20 20 20 22 20 46 4f 52 4d 41 54 20 53 " FORMAT S
a1b0: 54 52 49 4e 47 5c 22 22 2c 20 30 29 3b 0a 20 20 TRING\"", 0);.
a1c0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
a1d0: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 73 73 OR;. }. if( ss
a1e0: 63 61 6e 66 28 61 72 67 76 5b 32 5d 2c 20 22 25 canf(argv[2], "%
a1f0: 30 38 78 25 30 38 78 22 2c 20 26 78 32 2c 20 26 08x%08x", &x2, &
a200: 78 31 29 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 x1)!=2 ){. Tc
a210: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
a220: 6e 74 65 72 70 2c 20 22 32 6e 64 20 61 72 67 75 nterp, "2nd argu
a230: 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 31 ment should be 1
a240: 36 2d 63 68 61 72 61 63 74 65 72 73 20 6f 66 20 6-characters of
a250: 68 65 78 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 hex", 0);. re
a260: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
a270: 20 20 7d 0a 20 20 64 20 3d 20 78 32 3b 0a 20 20 }. d = x2;.
a280: 64 20 3d 20 28 64 3c 3c 33 32 29 20 2b 20 78 31 d = (d<<32) + x1
a290: 3b 0a 20 20 6d 65 6d 63 70 79 28 26 72 2c 20 26 ;. memcpy(&r, &
a2a0: 64 2c 20 73 69 7a 65 6f 66 28 72 29 29 3b 0a 20 d, sizeof(r));.
a2b0: 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 z = sqlite3_mpr
a2c0: 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 72 29 intf(argv[1], r)
a2d0: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
a2e0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 sult(interp, z,
a2f0: 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 0);. sqlite3_fr
a300: 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 ee(z);. return
a310: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
a320: 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
a330: 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 enable_shared_ca
a340: 63 68 65 20 3f 42 4f 4f 4c 45 41 4e 3f 0a 2a 2a che ?BOOLEAN?.**
a350: 0a 2a 2f 0a 23 69 66 20 21 64 65 66 69 6e 65 64 .*/.#if !defined
a360: 28 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 53 48 41 (SQLITE_OMIT_SHA
a370: 52 45 44 5f 43 41 43 48 45 29 0a 73 74 61 74 69 RED_CACHE).stati
a380: 63 20 69 6e 74 20 74 65 73 74 5f 65 6e 61 62 6c c int test_enabl
a390: 65 5f 73 68 61 72 65 64 28 0a 20 20 43 6c 69 65 e_shared(. Clie
a3a0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
a3b0: 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f a, /* Pointer to
a3c0: 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f sqlite3_enable_
a3d0: 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a XXX function */.
a3e0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
a3f0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
a400: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
a410: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
a420: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
a430: 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 nt objc,
a440: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
a450: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
a460: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
a470: 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d objv[] /* Comm
a480: 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f and arguments */
a490: 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 .){. int rc;.
a4a0: 69 6e 74 20 65 6e 61 62 6c 65 3b 0a 20 20 69 6e int enable;. in
a4b0: 74 20 72 65 74 20 3d 20 30 3b 0a 0a 20 20 69 66 t ret = 0;.. if
a4c0: 28 20 6f 62 6a 63 21 3d 32 20 26 26 20 6f 62 6a ( objc!=2 && obj
a4d0: 63 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=1 ){. Tcl_
a4e0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
a4f0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f erp, 1, objv, "?
a500: 42 4f 4f 4c 45 41 4e 3f 22 29 3b 0a 20 20 20 20 BOOLEAN?");.
a510: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
a520: 3b 0a 20 20 7d 0a 20 20 72 65 74 20 3d 20 73 71 ;. }. ret = sq
a530: 6c 69 74 65 33 47 6c 6f 62 61 6c 43 6f 6e 66 69 lite3GlobalConfi
a540: 67 2e 73 68 61 72 65 64 43 61 63 68 65 45 6e 61 g.sharedCacheEna
a550: 62 6c 65 64 3b 0a 0a 20 20 69 66 28 20 6f 62 6a bled;.. if( obj
a560: 63 3d 3d 32 20 29 7b 0a 20 20 20 20 69 66 28 20 c==2 ){. if(
a570: 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 Tcl_GetBooleanFr
a580: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
a590: 6a 76 5b 31 5d 2c 20 26 65 6e 61 62 6c 65 29 20 jv[1], &enable)
a5a0: 29 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 ){. return
a5b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
a5c0: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 . rc = sqlite
a5d0: 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 3_enable_shared_
a5e0: 63 61 63 68 65 28 65 6e 61 62 6c 65 29 3b 0a 20 cache(enable);.
a5f0: 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 if( rc!=SQLIT
a600: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 54 63 E_OK ){. Tc
a610: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
a620: 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c 69 rp, (char *)sqli
a630: 74 65 33 45 72 72 53 74 72 28 72 63 29 2c 20 54 te3ErrStr(rc), T
a640: 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 CL_STATIC);.
a650: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
a660: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 OR;. }. }.
a670: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
a680: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
a690: 42 6f 6f 6c 65 61 6e 4f 62 6a 28 72 65 74 29 29 BooleanObj(ret))
a6a0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
a6b0: 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 0a 0a 2f K;.}.#endif..../
a6c0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 *.** Usage: sqli
a6d0: 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 te3_extended_res
a6e0: 75 6c 74 5f 63 6f 64 65 73 20 20 20 44 42 20 20 ult_codes DB
a6f0: 20 20 42 4f 4f 4c 45 41 4e 0a 2a 2a 0a 2a 2f 0a BOOLEAN.**.*/.
a700: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
a710: 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f extended_result_
a720: 63 6f 64 65 73 28 0a 20 20 43 6c 69 65 6e 74 44 codes(. ClientD
a730: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
a740: 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 /* Pointer to sq
a750: 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 lite3_enable_XXX
a760: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 function */. T
a770: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
a780: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
a790: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
a7a0: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
a7b0: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
a7c0: 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 objc,
a7d0: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
a7e0: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 arguments */. T
a7f0: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
a800: 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 jv[] /* Command
a810: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b arguments */.){
a820: 0a 20 20 69 6e 74 20 65 6e 61 62 6c 65 3b 0a 20 . int enable;.
a830: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 0a 20 sqlite3 *db;..
a840: 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a if( objc!=3 ){.
a850: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
a860: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
a870: 6f 62 6a 76 2c 20 22 44 42 20 42 4f 4f 4c 45 41 objv, "DB BOOLEA
a880: 4e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 N");. return
a890: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
a8a0: 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
a8b0: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
a8c0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
a8d0: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
a8e0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
a8f0: 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 Tcl_GetBooleanF
a900: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
a910: 62 6a 76 5b 32 5d 2c 20 26 65 6e 61 62 6c 65 29 bjv[2], &enable)
a920: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
a930: 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 33 5f 65 ROR;. sqlite3_e
a940: 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 xtended_result_c
a950: 6f 64 65 73 28 64 62 2c 20 65 6e 61 62 6c 65 29 odes(db, enable)
a960: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
a970: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
a980: 65 3a 20 73 71 6c 69 74 65 33 5f 6c 69 62 76 65 e: sqlite3_libve
a990: 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 0a 2a 2a 0a rsion_number.**.
a9a0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
a9b0: 73 74 5f 6c 69 62 76 65 72 73 69 6f 6e 5f 6e 75 st_libversion_nu
a9c0: 6d 62 65 72 28 0a 20 20 43 6c 69 65 6e 74 44 61 mber(. ClientDa
a9d0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f ta clientData, /
a9e0: 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c * Pointer to sql
a9f0: 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 ite3_enable_XXX
aa00: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 function */. Tc
aa10: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
aa20: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
aa30: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
aa40: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
aa50: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f mmand */. int o
aa60: 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 bjc,
aa70: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
aa80: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 rguments */. Tc
aa90: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
aaa0: 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 v[] /* Command
aab0: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a arguments */.){.
aac0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
aad0: 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e lt(interp, Tcl_N
aae0: 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 ewIntObj(sqlite3
aaf0: 5f 6c 69 62 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 _libversion_numb
ab00: 65 72 28 29 29 29 3b 0a 20 20 72 65 74 75 72 6e er()));. return
ab10: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
ab20: 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
ab30: 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 _table_column_me
ab40: 74 61 64 61 74 61 20 44 42 20 64 62 6e 61 6d 65 tadata DB dbname
ab50: 20 74 62 6c 6e 61 6d 65 20 63 6f 6c 6e 61 6d 65 tblname colname
ab60: 0a 2a 2a 0a 2a 2f 0a 23 69 66 64 65 66 20 53 51 .**.*/.#ifdef SQ
ab70: 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 43 4f 4c 55 LITE_ENABLE_COLU
ab80: 4d 4e 5f 4d 45 54 41 44 41 54 41 0a 73 74 61 74 MN_METADATA.stat
ab90: 69 63 20 69 6e 74 20 74 65 73 74 5f 74 61 62 6c ic int test_tabl
aba0: 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61 74 e_column_metadat
abb0: 61 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 a(. ClientData
abc0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 clientData, /* P
abd0: 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 ointer to sqlite
abe0: 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 3_enable_XXX fun
abf0: 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 ction */. Tcl_I
ac00: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
ac10: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
ac20: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
ac30: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
ac40: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 nd */. int objc
ac50: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
ac60: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
ac70: 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f ments */. Tcl_O
ac80: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
ac90: 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 /* Command arg
aca0: 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 uments */.){. s
acb0: 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 6f qlite3 *db;. co
acc0: 6e 73 74 20 63 68 61 72 20 2a 7a 44 62 3b 0a 20 nst char *zDb;.
acd0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 62 const char *zTb
ace0: 6c 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 l;. const char
acf0: 2a 7a 43 6f 6c 3b 0a 20 20 69 6e 74 20 72 63 3b *zCol;. int rc;
ad00: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 . Tcl_Obj *pRet
ad10: 3b 0a 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 ;.. const char
ad20: 2a 7a 44 61 74 61 74 79 70 65 3b 0a 20 20 63 6f *zDatatype;. co
ad30: 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 6c 6c 73 nst char *zColls
ad40: 65 71 3b 0a 20 20 69 6e 74 20 6e 6f 74 6e 75 6c eq;. int notnul
ad50: 6c 3b 0a 20 20 69 6e 74 20 70 72 69 6d 61 72 79 l;. int primary
ad60: 6b 65 79 3b 0a 20 20 69 6e 74 20 61 75 74 6f 69 key;. int autoi
ad70: 6e 63 72 65 6d 65 6e 74 3b 0a 0a 20 20 69 66 28 ncrement;.. if(
ad80: 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 objc!=5 ){.
ad90: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
ada0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
adb0: 2c 20 22 44 42 20 64 62 6e 61 6d 65 20 74 62 6c , "DB dbname tbl
adc0: 6e 61 6d 65 20 63 6f 6c 6e 61 6d 65 22 29 3b 0a name colname");.
add0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
ade0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
adf0: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
ae00: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
ae10: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
ae20: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
ae30: 52 52 4f 52 3b 0a 20 20 7a 44 62 20 3d 20 54 63 RROR;. zDb = Tc
ae40: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
ae50: 5b 32 5d 29 3b 0a 20 20 7a 54 62 6c 20 3d 20 54 [2]);. zTbl = T
ae60: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
ae70: 76 5b 33 5d 29 3b 0a 20 20 7a 43 6f 6c 20 3d 20 v[3]);. zCol =
ae80: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
ae90: 6a 76 5b 34 5d 29 3b 0a 0a 20 20 69 66 28 20 73 jv[4]);.. if( s
aea0: 74 72 6c 65 6e 28 7a 44 62 29 3d 3d 30 20 29 20 trlen(zDb)==0 )
aeb0: 7a 44 62 20 3d 20 30 3b 0a 0a 20 20 72 63 20 3d zDb = 0;.. rc =
aec0: 20 73 71 6c 69 74 65 33 5f 74 61 62 6c 65 5f 63 sqlite3_table_c
aed0: 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61 74 61 28 64 olumn_metadata(d
aee0: 62 2c 20 7a 44 62 2c 20 7a 54 62 6c 2c 20 7a 43 b, zDb, zTbl, zC
aef0: 6f 6c 2c 20 0a 20 20 20 20 20 20 26 7a 44 61 74 ol, . &zDat
af00: 61 74 79 70 65 2c 20 26 7a 43 6f 6c 6c 73 65 71 atype, &zCollseq
af10: 2c 20 26 6e 6f 74 6e 75 6c 6c 2c 20 26 70 72 69 , ¬null, &pri
af20: 6d 61 72 79 6b 65 79 2c 20 26 61 75 74 6f 69 6e marykey, &autoin
af30: 63 72 65 6d 65 6e 74 29 3b 0a 0a 20 20 69 66 28 crement);.. if(
af40: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc!=SQLITE_OK )
af50: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
af60: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 Result(interp, s
af70: 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 64 62 qlite3_errmsg(db
af80: 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ), 0);. retur
af90: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
afa0: 0a 0a 20 20 70 52 65 74 20 3d 20 54 63 6c 5f 4e .. pRet = Tcl_N
afb0: 65 77 4f 62 6a 28 29 3b 0a 20 20 54 63 6c 5f 4c ewObj();. Tcl_L
afc0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
afd0: 65 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 63 6c ent(0, pRet, Tcl
afe0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 44 _NewStringObj(zD
aff0: 61 74 61 74 79 70 65 2c 20 2d 31 29 29 3b 0a 20 atatype, -1));.
b000: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
b010: 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 ndElement(0, pRe
b020: 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 t, Tcl_NewString
b030: 4f 62 6a 28 7a 43 6f 6c 6c 73 65 71 2c 20 2d 31 Obj(zCollseq, -1
b040: 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ));. Tcl_ListOb
b050: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 jAppendElement(0
b060: 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 49 , pRet, Tcl_NewI
b070: 6e 74 4f 62 6a 28 6e 6f 74 6e 75 6c 6c 29 29 3b ntObj(notnull));
b080: 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 . Tcl_ListObjAp
b090: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 pendElement(0, p
b0a0: 52 65 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f Ret, Tcl_NewIntO
b0b0: 62 6a 28 70 72 69 6d 61 72 79 6b 65 79 29 29 3b bj(primarykey));
b0c0: 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 . Tcl_ListObjAp
b0d0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 pendElement(0, p
b0e0: 52 65 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f Ret, Tcl_NewIntO
b0f0: 62 6a 28 61 75 74 6f 69 6e 63 72 65 6d 65 6e 74 bj(autoincrement
b100: 29 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a ));. Tcl_SetObj
b110: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 Result(interp, p
b120: 52 65 74 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 Ret);.. return
b130: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 TCL_OK;.}.#endif
b140: 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 ..#ifndef SQLITE
b150: 5f 4f 4d 49 54 5f 49 4e 43 52 42 4c 4f 42 0a 0a _OMIT_INCRBLOB..
b160: 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 62 6c /*.** sqlite3_bl
b170: 6f 62 5f 72 65 61 64 20 20 43 48 41 4e 4e 45 4c ob_read CHANNEL
b180: 20 4f 46 46 53 45 54 20 4e 0a 2a 2a 0a 2a 2a 20 OFFSET N.**.**
b190: 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 This command i
b1a0: 73 20 75 73 65 64 20 74 6f 20 74 65 73 74 20 74 s used to test t
b1b0: 68 65 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f he sqlite3_blob_
b1c0: 72 65 61 64 28 29 20 69 6e 20 77 61 79 73 20 74 read() in ways t
b1d0: 68 61 74 0a 2a 2a 20 20 20 74 68 65 20 54 63 6c hat.** the Tcl
b1e0: 20 63 68 61 6e 6e 65 6c 20 69 6e 74 65 72 66 61 channel interfa
b1f0: 63 65 20 64 6f 65 73 20 6e 6f 74 2e 20 54 68 65 ce does not. The
b200: 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 first argument
b210: 73 68 6f 75 6c 64 0a 2a 2a 20 20 20 62 65 20 74 should.** be t
b220: 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 76 61 6c he name of a val
b230: 69 64 20 63 68 61 6e 6e 65 6c 20 63 72 65 61 74 id channel creat
b240: 65 64 20 62 79 20 74 68 65 20 5b 69 6e 63 72 62 ed by the [incrb
b250: 6c 6f 62 5d 20 6d 65 74 68 6f 64 0a 2a 2a 20 20 lob] method.**
b260: 20 6f 66 20 61 20 64 61 74 61 62 61 73 65 20 68 of a database h
b270: 61 6e 64 6c 65 2e 20 54 68 69 73 20 66 75 6e 63 andle. This func
b280: 74 69 6f 6e 20 63 61 6c 6c 73 20 73 71 6c 69 74 tion calls sqlit
b290: 65 33 5f 62 6c 6f 62 5f 72 65 61 64 28 29 0a 2a e3_blob_read().*
b2a0: 2a 20 20 20 74 6f 20 72 65 61 64 20 4e 20 62 79 * to read N by
b2b0: 74 65 73 20 66 72 6f 6d 20 6f 66 66 73 65 74 20 tes from offset
b2c0: 4f 46 46 53 45 54 20 66 72 6f 6d 20 74 68 65 20 OFFSET from the
b2d0: 75 6e 64 65 72 6c 79 69 6e 67 20 53 51 4c 69 74 underlying SQLit
b2e0: 65 0a 2a 2a 20 20 20 62 6c 6f 62 20 68 61 6e 64 e.** blob hand
b2f0: 6c 65 2e 0a 2a 2a 0a 2a 2a 20 20 20 4f 6e 20 73 le..**.** On s
b300: 75 63 63 65 73 73 2c 20 61 20 62 79 74 65 2d 61 uccess, a byte-a
b310: 72 72 61 79 20 6f 62 6a 65 63 74 20 63 6f 6e 74 rray object cont
b320: 61 69 6e 69 6e 67 20 74 68 65 20 72 65 61 64 20 aining the read
b330: 64 61 74 61 20 69 73 20 0a 2a 2a 20 20 20 72 65 data is .** re
b340: 74 75 72 6e 65 64 2e 20 4f 6e 20 66 61 69 6c 75 turned. On failu
b350: 72 65 2c 20 74 68 65 20 69 6e 74 65 72 70 72 65 re, the interpre
b360: 74 65 72 20 72 65 73 75 6c 74 20 69 73 20 73 65 ter result is se
b370: 74 20 74 6f 20 74 68 65 0a 2a 2a 20 20 20 74 65 t to the.** te
b380: 78 74 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f xt representatio
b390: 6e 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 n of the returne
b3a0: 64 20 65 72 72 6f 72 20 63 6f 64 65 20 28 69 2e d error code (i.
b3b0: 65 2e 20 22 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d e. "SQLITE_NOMEM
b3c0: 22 29 0a 2a 2a 20 20 20 61 6e 64 20 61 20 54 63 ").** and a Tc
b3d0: 6c 20 65 78 63 65 70 74 69 6f 6e 20 69 73 20 74 l exception is t
b3e0: 68 72 6f 77 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 hrown..*/.static
b3f0: 20 69 6e 74 20 74 65 73 74 5f 62 6c 6f 62 5f 72 int test_blob_r
b400: 65 61 64 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 ead(. ClientDat
b410: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a a clientData, /*
b420: 20 4e 6f 74 20 75 73 65 64 20 2a 2f 0a 20 20 54 Not used */. T
b430: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
b440: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
b450: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
b460: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
b470: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
b480: 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 objc,
b490: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
b4a0: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 arguments */. T
b4b0: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
b4c0: 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 jv[] /* Command
b4d0: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b arguments */.){
b4e0: 0a 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 . Tcl_Channel c
b4f0: 68 61 6e 6e 65 6c 3b 0a 20 20 43 6c 69 65 6e 74 hannel;. Client
b500: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
b510: 61 3b 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f a;. sqlite3_blo
b520: 62 20 2a 70 42 6c 6f 62 3b 0a 20 20 69 6e 74 20 b *pBlob;. int
b530: 6e 6f 74 55 73 65 64 3b 0a 20 20 69 6e 74 20 6e notUsed;. int n
b540: 42 79 74 65 3b 0a 20 20 69 6e 74 20 69 4f 66 66 Byte;. int iOff
b550: 73 65 74 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 set;. unsigned
b560: 63 68 61 72 20 2a 7a 42 75 66 3b 0a 20 20 69 6e char *zBuf;. in
b570: 74 20 72 63 3b 0a 20 20 0a 20 20 69 66 28 20 6f t rc;. . if( o
b580: 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 bjc!=4 ){. Tc
b590: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
b5a0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
b5b0: 22 43 48 41 4e 4e 45 4c 20 4f 46 46 53 45 54 20 "CHANNEL OFFSET
b5c0: 4e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 N");. return
b5d0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
b5e0: 20 20 63 68 61 6e 6e 65 6c 20 3d 20 54 63 6c 5f channel = Tcl_
b5f0: 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 GetChannel(inter
b600: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
b610: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 6e 6f 74 55 (objv[1]), ¬U
b620: 73 65 64 29 3b 0a 20 20 69 66 28 20 21 63 68 61 sed);. if( !cha
b630: 6e 6e 65 6c 0a 20 20 20 7c 7c 20 54 43 4c 5f 4f nnel. || TCL_O
b640: 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f K!=Tcl_GetIntFro
b650: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
b660: 76 5b 32 5d 2c 20 26 69 4f 66 66 73 65 74 29 0a v[2], &iOffset).
b670: 20 20 20 7c 7c 20 54 43 4c 5f 4f 4b 21 3d 54 63 || TCL_OK!=Tc
b680: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
b690: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c interp, objv[3],
b6a0: 20 26 6e 42 79 74 65 29 0a 20 20 20 7c 7c 20 6e &nByte). || n
b6b0: 42 79 74 65 3c 30 20 7c 7c 20 69 4f 66 66 73 65 Byte<0 || iOffse
b6c0: 74 3c 30 0a 20 20 29 7b 20 0a 20 20 20 20 72 65 t<0. ){ . re
b6d0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
b6e0: 20 20 7d 0a 0a 20 20 69 6e 73 74 61 6e 63 65 44 }.. instanceD
b6f0: 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 ata = Tcl_GetCha
b700: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
b710: 28 63 68 61 6e 6e 65 6c 29 3b 0a 20 20 70 42 6c (channel);. pBl
b720: 6f 62 20 3d 20 2a 28 28 73 71 6c 69 74 65 33 5f ob = *((sqlite3_
b730: 62 6c 6f 62 20 2a 2a 29 69 6e 73 74 61 6e 63 65 blob **)instance
b740: 44 61 74 61 29 3b 0a 0a 20 20 7a 42 75 66 20 3d Data);.. zBuf =
b750: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 (unsigned char
b760: 2a 29 54 63 6c 5f 41 6c 6c 6f 63 28 6e 42 79 74 *)Tcl_Alloc(nByt
b770: 65 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 e);. rc = sqlit
b780: 65 33 5f 62 6c 6f 62 5f 72 65 61 64 28 70 42 6c e3_blob_read(pBl
b790: 6f 62 2c 20 7a 42 75 66 2c 20 6e 42 79 74 65 2c ob, zBuf, nByte,
b7a0: 20 69 4f 66 66 73 65 74 29 3b 0a 20 20 69 66 28 iOffset);. if(
b7b0: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc==SQLITE_OK )
b7c0: 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a {. Tcl_SetObj
b7d0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
b7e0: 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f cl_NewByteArrayO
b7f0: 62 6a 28 7a 42 75 66 2c 20 6e 42 79 74 65 29 29 bj(zBuf, nByte))
b800: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 54 ;. }else{. T
b810: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
b820: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c erp, (char *)sql
b830: 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d ite3TestErrorNam
b840: 65 28 72 63 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 e(rc), TCL_VOLAT
b850: 49 4c 45 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f ILE);. }. Tcl_
b860: 46 72 65 65 28 28 63 68 61 72 20 2a 29 7a 42 75 Free((char *)zBu
b870: 66 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 28 72 f);.. return (r
b880: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 3f 20 54 c==SQLITE_OK ? T
b890: 43 4c 5f 4f 4b 20 3a 20 54 43 4c 5f 45 52 52 4f CL_OK : TCL_ERRO
b8a0: 52 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c R);.}../*.** sql
b8b0: 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69 74 65 20 ite3_blob_write
b8c0: 43 48 41 4e 4e 45 4c 20 4f 46 46 53 45 54 20 44 CHANNEL OFFSET D
b8d0: 41 54 41 20 3f 4e 44 41 54 41 3f 0a 2a 2a 0a 2a ATA ?NDATA?.**.*
b8e0: 2a 20 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 * This command
b8f0: 20 69 73 20 75 73 65 64 20 74 6f 20 74 65 73 74 is used to test
b900: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62 6c 6f the sqlite3_blo
b910: 62 5f 77 72 69 74 65 28 29 20 69 6e 20 77 61 79 b_write() in way
b920: 73 20 74 68 61 74 0a 2a 2a 20 20 20 74 68 65 20 s that.** the
b930: 54 63 6c 20 63 68 61 6e 6e 65 6c 20 69 6e 74 65 Tcl channel inte
b940: 72 66 61 63 65 20 64 6f 65 73 20 6e 6f 74 2e 20 rface does not.
b950: 54 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 The first argume
b960: 6e 74 20 73 68 6f 75 6c 64 0a 2a 2a 20 20 20 62 nt should.** b
b970: 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 e the name of a
b980: 76 61 6c 69 64 20 63 68 61 6e 6e 65 6c 20 63 72 valid channel cr
b990: 65 61 74 65 64 20 62 79 20 74 68 65 20 5b 69 6e eated by the [in
b9a0: 63 72 62 6c 6f 62 5d 20 6d 65 74 68 6f 64 0a 2a crblob] method.*
b9b0: 2a 20 20 20 6f 66 20 61 20 64 61 74 61 62 61 73 * of a databas
b9c0: 65 20 68 61 6e 64 6c 65 2e 20 54 68 69 73 20 66 e handle. This f
b9d0: 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 73 20 73 71 unction calls sq
b9e0: 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69 74 65 lite3_blob_write
b9f0: 28 29 0a 2a 2a 20 20 20 74 6f 20 77 72 69 74 65 ().** to write
ba00: 20 74 68 65 20 44 41 54 41 20 62 79 74 65 2d 61 the DATA byte-a
ba10: 72 72 61 79 20 74 6f 20 74 68 65 20 75 6e 64 65 rray to the unde
ba20: 72 6c 79 69 6e 67 20 53 51 4c 69 74 65 20 62 6c rlying SQLite bl
ba30: 6f 62 20 68 61 6e 64 6c 65 2e 0a 2a 2a 20 20 20 ob handle..**
ba40: 61 74 20 6f 66 66 73 65 74 20 4f 46 46 53 45 54 at offset OFFSET
ba50: 2e 0a 2a 2a 0a 2a 2a 20 20 20 4f 6e 20 73 75 63 ..**.** On suc
ba60: 63 65 73 73 2c 20 61 6e 20 65 6d 70 74 79 20 73 cess, an empty s
ba70: 74 72 69 6e 67 20 69 73 20 72 65 74 75 72 6e 65 tring is returne
ba80: 64 2e 20 4f 6e 20 66 61 69 6c 75 72 65 2c 20 74 d. On failure, t
ba90: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 0a 2a he interpreter.*
baa0: 2a 20 20 20 72 65 73 75 6c 74 20 69 73 20 73 65 * result is se
bab0: 74 20 74 6f 20 74 68 65 20 74 65 78 74 20 72 65 t to the text re
bac0: 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 presentation of
bad0: 74 68 65 20 72 65 74 75 72 6e 65 64 20 65 72 72 the returned err
bae0: 6f 72 20 63 6f 64 65 20 0a 2a 2a 20 20 20 28 69 or code .** (i
baf0: 2e 65 2e 20 22 53 51 4c 49 54 45 5f 4e 4f 4d 45 .e. "SQLITE_NOME
bb00: 4d 22 29 20 61 6e 64 20 61 20 54 63 6c 20 65 78 M") and a Tcl ex
bb10: 63 65 70 74 69 6f 6e 20 69 73 20 74 68 72 6f 77 ception is throw
bb20: 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 n..*/.static int
bb30: 20 74 65 73 74 5f 62 6c 6f 62 5f 77 72 69 74 65 test_blob_write
bb40: 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
bb50: 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 4e 6f lientData, /* No
bb60: 74 20 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f t used */. Tcl_
bb70: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
bb80: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
bb90: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
bba0: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
bbb0: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a and */. int obj
bbc0: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
bbd0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
bbe0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f uments */. Tcl_
bbf0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
bc00: 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 ] /* Command ar
bc10: 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 guments */.){.
bc20: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e Tcl_Channel chan
bc30: 6e 65 6c 3b 0a 20 20 43 6c 69 65 6e 74 44 61 74 nel;. ClientDat
bc40: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a a instanceData;.
bc50: 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 2a sqlite3_blob *
bc60: 70 42 6c 6f 62 3b 0a 20 20 69 6e 74 20 6e 6f 74 pBlob;. int not
bc70: 55 73 65 64 3b 0a 20 20 69 6e 74 20 69 4f 66 66 Used;. int iOff
bc80: 73 65 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a set;. int rc;..
bc90: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
bca0: 2a 7a 42 75 66 3b 0a 20 20 69 6e 74 20 6e 42 75 *zBuf;. int nBu
bcb0: 66 3b 0a 20 20 0a 20 20 69 66 28 20 6f 62 6a 63 f;. . if( objc
bcc0: 21 3d 34 20 26 26 20 6f 62 6a 63 21 3d 35 20 29 !=4 && objc!=5 )
bcd0: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
bce0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
bcf0: 2c 20 6f 62 6a 76 2c 20 22 43 48 41 4e 4e 45 4c , objv, "CHANNEL
bd00: 20 4f 46 46 53 45 54 20 44 41 54 41 20 3f 4e 44 OFFSET DATA ?ND
bd10: 41 54 41 3f 22 29 3b 0a 20 20 20 20 72 65 74 75 ATA?");. retu
bd20: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
bd30: 7d 0a 0a 20 20 63 68 61 6e 6e 65 6c 20 3d 20 54 }.. channel = T
bd40: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e cl_GetChannel(in
bd50: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
bd60: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 6e ing(objv[1]), &n
bd70: 6f 74 55 73 65 64 29 3b 0a 20 20 69 66 28 20 21 otUsed);. if( !
bd80: 63 68 61 6e 6e 65 6c 20 7c 7c 20 54 43 4c 5f 4f channel || TCL_O
bd90: 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f K!=Tcl_GetIntFro
bda0: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
bdb0: 76 5b 32 5d 2c 20 26 69 4f 66 66 73 65 74 29 20 v[2], &iOffset)
bdc0: 29 7b 20 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){ . return T
bdd0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
bde0: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 20 3d 20 instanceData =
bdf0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
be00: 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e 6e stanceData(chann
be10: 65 6c 29 3b 0a 20 20 70 42 6c 6f 62 20 3d 20 2a el);. pBlob = *
be20: 28 28 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 2a ((sqlite3_blob *
be30: 2a 29 69 6e 73 74 61 6e 63 65 44 61 74 61 29 3b *)instanceData);
be40: 0a 0a 20 20 7a 42 75 66 20 3d 20 54 63 6c 5f 47 .. zBuf = Tcl_G
be50: 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f etByteArrayFromO
be60: 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 42 75 bj(objv[3], &nBu
be70: 66 29 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d f);. if( objc==
be80: 35 20 26 26 20 54 63 6c 5f 47 65 74 49 6e 74 46 5 && Tcl_GetIntF
be90: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
bea0: 62 6a 76 5b 34 5d 2c 20 26 6e 42 75 66 29 20 29 bjv[4], &nBuf) )
beb0: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
bec0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 _ERROR;. }. rc
bed0: 20 3d 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f = sqlite3_blob_
bee0: 77 72 69 74 65 28 70 42 6c 6f 62 2c 20 7a 42 75 write(pBlob, zBu
bef0: 66 2c 20 6e 42 75 66 2c 20 69 4f 66 66 73 65 74 f, nBuf, iOffset
bf00: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c );. if( rc!=SQL
bf10: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 ITE_OK ){. Tc
bf20: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
bf30: 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c 69 rp, (char *)sqli
bf40: 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 te3TestErrorName
bf50: 28 72 63 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 (rc), TCL_VOLATI
bf60: 4c 45 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 LE);. }.. retu
bf70: 72 6e 20 28 72 63 3d 3d 53 51 4c 49 54 45 5f 4f rn (rc==SQLITE_O
bf80: 4b 20 3f 20 54 43 4c 5f 4f 4b 20 3a 20 54 43 4c K ? TCL_OK : TCL
bf90: 5f 45 52 52 4f 52 29 3b 0a 7d 0a 23 65 6e 64 69 _ERROR);.}.#endi
bfa0: 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 f../*.** Usage:
bfb0: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 sqlite3_create_c
bfc0: 6f 6c 6c 61 74 69 6f 6e 5f 76 32 20 44 42 2d 48 ollation_v2 DB-H
bfd0: 41 4e 44 4c 45 20 4e 41 4d 45 20 43 4d 50 2d 50 ANDLE NAME CMP-P
bfe0: 52 4f 43 20 44 45 4c 2d 50 52 4f 43 0a 2a 2a 0a ROC DEL-PROC.**.
bff0: 2a 2a 20 20 20 54 68 69 73 20 54 63 6c 20 70 72 ** This Tcl pr
c000: 6f 63 20 69 73 20 75 73 65 64 20 66 6f 72 20 74 oc is used for t
c010: 65 73 74 69 6e 67 20 74 68 65 20 65 78 70 65 72 esting the exper
c020: 69 6d 65 6e 74 61 6c 0a 2a 2a 20 20 20 73 71 6c imental.** sql
c030: 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c ite3_create_coll
c040: 61 74 69 6f 6e 5f 76 32 28 29 20 69 6e 74 65 72 ation_v2() inter
c050: 66 61 63 65 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 face..*/.struct
c060: 54 65 73 74 43 6f 6c 6c 61 74 69 6f 6e 58 20 7b TestCollationX {
c070: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
c080: 6e 74 65 72 70 3b 0a 20 20 54 63 6c 5f 4f 62 6a nterp;. Tcl_Obj
c090: 20 2a 70 43 6d 70 3b 0a 20 20 54 63 6c 5f 4f 62 *pCmp;. Tcl_Ob
c0a0: 6a 20 2a 70 44 65 6c 3b 0a 7d 3b 0a 74 79 70 65 j *pDel;.};.type
c0b0: 64 65 66 20 73 74 72 75 63 74 20 54 65 73 74 43 def struct TestC
c0c0: 6f 6c 6c 61 74 69 6f 6e 58 20 54 65 73 74 43 6f ollationX TestCo
c0d0: 6c 6c 61 74 69 6f 6e 58 3b 0a 73 74 61 74 69 63 llationX;.static
c0e0: 20 76 6f 69 64 20 74 65 73 74 43 72 65 61 74 65 void testCreate
c0f0: 43 6f 6c 6c 61 74 69 6f 6e 44 65 6c 28 76 6f 69 CollationDel(voi
c100: 64 20 2a 70 43 74 78 29 7b 0a 20 20 54 65 73 74 d *pCtx){. Test
c110: 43 6f 6c 6c 61 74 69 6f 6e 58 20 2a 70 20 3d 20 CollationX *p =
c120: 28 54 65 73 74 43 6f 6c 6c 61 74 69 6f 6e 58 20 (TestCollationX
c130: 2a 29 70 43 74 78 3b 0a 0a 20 20 69 6e 74 20 72 *)pCtx;.. int r
c140: 63 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 c = Tcl_EvalObjE
c150: 78 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 2d 3e x(p->interp, p->
c160: 70 44 65 6c 2c 20 54 43 4c 5f 45 56 41 4c 5f 44 pDel, TCL_EVAL_D
c170: 49 52 45 43 54 7c 54 43 4c 5f 45 56 41 4c 5f 47 IRECT|TCL_EVAL_G
c180: 4c 4f 42 41 4c 29 3b 0a 20 20 69 66 28 20 72 63 LOBAL);. if( rc
c190: 21 3d 54 43 4c 5f 4f 4b 20 29 7b 0a 20 20 20 20 !=TCL_OK ){.
c1a0: 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 Tcl_BackgroundEr
c1b0: 72 6f 72 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a ror(p->interp);.
c1c0: 20 20 7d 0a 0a 20 20 54 63 6c 5f 44 65 63 72 52 }.. Tcl_DecrR
c1d0: 65 66 43 6f 75 6e 74 28 70 2d 3e 70 43 6d 70 29 efCount(p->pCmp)
c1e0: 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 ;. Tcl_DecrRefC
c1f0: 6f 75 6e 74 28 70 2d 3e 70 44 65 6c 29 3b 0a 20 ount(p->pDel);.
c200: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 28 76 sqlite3_free((v
c210: 6f 69 64 20 2a 29 70 29 3b 0a 7d 0a 73 74 61 74 oid *)p);.}.stat
c220: 69 63 20 69 6e 74 20 74 65 73 74 43 72 65 61 74 ic int testCreat
c230: 65 43 6f 6c 6c 61 74 69 6f 6e 43 6d 70 28 0a 20 eCollationCmp(.
c240: 20 76 6f 69 64 20 2a 70 43 74 78 2c 0a 20 20 69 void *pCtx,. i
c250: 6e 74 20 6e 4c 65 66 74 2c 0a 20 20 63 6f 6e 73 nt nLeft,. cons
c260: 74 20 76 6f 69 64 20 2a 7a 4c 65 66 74 2c 0a 20 t void *zLeft,.
c270: 20 69 6e 74 20 6e 52 69 67 68 74 2c 0a 20 20 63 int nRight,. c
c280: 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 52 69 67 68 onst void *zRigh
c290: 74 0a 29 7b 0a 20 20 54 65 73 74 43 6f 6c 6c 61 t.){. TestColla
c2a0: 74 69 6f 6e 58 20 2a 70 20 3d 20 28 54 65 73 74 tionX *p = (Test
c2b0: 43 6f 6c 6c 61 74 69 6f 6e 58 20 2a 29 70 43 74 CollationX *)pCt
c2c0: 78 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 x;. Tcl_Obj *pS
c2d0: 63 72 69 70 74 20 3d 20 54 63 6c 5f 44 75 70 6c cript = Tcl_Dupl
c2e0: 69 63 61 74 65 4f 62 6a 28 70 2d 3e 70 43 6d 70 icateObj(p->pCmp
c2f0: 29 3b 0a 20 20 69 6e 74 20 69 52 65 73 20 3d 20 );. int iRes =
c300: 30 3b 0a 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 0;.. Tcl_IncrRe
c310: 66 43 6f 75 6e 74 28 70 53 63 72 69 70 74 29 3b fCount(pScript);
c320: 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 . Tcl_ListObjAp
c330: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 pendElement(0, p
c340: 53 63 72 69 70 74 2c 20 54 63 6c 5f 4e 65 77 53 Script, Tcl_NewS
c350: 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 72 20 2a tringObj((char *
c360: 29 7a 4c 65 66 74 2c 20 6e 4c 65 66 74 29 29 3b )zLeft, nLeft));
c370: 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 . Tcl_ListObjAp
c380: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 pendElement(0, p
c390: 53 63 72 69 70 74 2c 20 54 63 6c 5f 4e 65 77 53 Script, Tcl_NewS
c3a0: 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 72 20 2a tringObj((char *
c3b0: 29 7a 52 69 67 68 74 2c 6e 52 69 67 68 74 29 29 )zRight,nRight))
c3c0: 3b 0a 0a 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 ;.. if( TCL_OK!
c3d0: 3d 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70 =Tcl_EvalObjEx(p
c3e0: 2d 3e 69 6e 74 65 72 70 2c 20 70 53 63 72 69 70 ->interp, pScrip
c3f0: 74 2c 20 54 43 4c 5f 45 56 41 4c 5f 44 49 52 45 t, TCL_EVAL_DIRE
c400: 43 54 7c 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 CT|TCL_EVAL_GLOB
c410: 41 4c 29 0a 20 20 20 7c 7c 20 54 43 4c 5f 4f 4b AL). || TCL_OK
c420: 21 3d 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d !=Tcl_GetIntFrom
c430: 4f 62 6a 28 70 2d 3e 69 6e 74 65 72 70 2c 20 54 Obj(p->interp, T
c440: 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_GetObjResult(
c450: 70 2d 3e 69 6e 74 65 72 70 29 2c 20 26 69 52 65 p->interp), &iRe
c460: 73 29 0a 20 20 29 7b 0a 20 20 20 20 54 63 6c 5f s). ){. Tcl_
c470: 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 BackgroundError(
c480: 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a p->interp);. }.
c490: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
c4a0: 6e 74 28 70 53 63 72 69 70 74 29 3b 0a 0a 20 20 nt(pScript);..
c4b0: 72 65 74 75 72 6e 20 69 52 65 73 3b 0a 7d 0a 73 return iRes;.}.s
c4c0: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 tatic int test_c
c4d0: 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 5f reate_collation_
c4e0: 76 32 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 v2(. ClientData
c4f0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 clientData, /*
c500: 4e 6f 74 20 75 73 65 64 20 2a 2f 0a 20 20 54 63 Not used */. Tc
c510: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
c520: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
c530: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
c540: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
c550: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f mmand */. int o
c560: 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 bjc,
c570: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
c580: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 rguments */. Tc
c590: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
c5a0: 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 v[] /* Command
c5b0: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a arguments */.){.
c5c0: 20 20 54 65 73 74 43 6f 6c 6c 61 74 69 6f 6e 58 TestCollationX
c5d0: 20 2a 70 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a *p;. sqlite3 *
c5e0: 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 db;. int rc;..
c5f0: 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 7b 0a if( objc!=5 ){.
c600: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
c610: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
c620: 6f 62 6a 76 2c 20 22 44 42 2d 48 41 4e 44 4c 45 objv, "DB-HANDLE
c630: 20 4e 41 4d 45 20 43 4d 50 2d 50 52 4f 43 20 44 NAME CMP-PROC D
c640: 45 4c 2d 50 52 4f 43 22 29 3b 0a 20 20 20 20 72 EL-PROC");. r
c650: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
c660: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
c670: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
c680: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
c690: 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 jv[1]), &db) ) r
c6a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
c6b0: 0a 0a 20 20 70 20 3d 20 28 54 65 73 74 43 6f 6c .. p = (TestCol
c6c0: 6c 61 74 69 6f 6e 58 20 2a 29 73 71 6c 69 74 65 lationX *)sqlite
c6d0: 33 5f 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 3_malloc(sizeof(
c6e0: 54 65 73 74 43 6f 6c 6c 61 74 69 6f 6e 58 29 29 TestCollationX))
c6f0: 3b 0a 20 20 70 2d 3e 70 43 6d 70 20 3d 20 6f 62 ;. p->pCmp = ob
c700: 6a 76 5b 33 5d 3b 0a 20 20 70 2d 3e 70 44 65 6c jv[3];. p->pDel
c710: 20 3d 20 6f 62 6a 76 5b 34 5d 3b 0a 20 20 70 2d = objv[4];. p-
c720: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
c730: 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 ;. Tcl_IncrRefC
c740: 6f 75 6e 74 28 70 2d 3e 70 43 6d 70 29 3b 0a 20 ount(p->pCmp);.
c750: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
c760: 74 28 70 2d 3e 70 44 65 6c 29 3b 0a 0a 20 20 72 t(p->pDel);.. r
c770: 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 c = sqlite3_crea
c780: 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 28 te_collation_v2(
c790: 64 62 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e db, Tcl_GetStrin
c7a0: 67 28 6f 62 6a 76 5b 32 5d 29 2c 20 31 36 2c 20 g(objv[2]), 16,
c7b0: 0a 20 20 20 20 20 20 28 76 6f 69 64 20 2a 29 70 . (void *)p
c7c0: 2c 20 74 65 73 74 43 72 65 61 74 65 43 6f 6c 6c , testCreateColl
c7d0: 61 74 69 6f 6e 43 6d 70 2c 20 74 65 73 74 43 72 ationCmp, testCr
c7e0: 65 61 74 65 43 6f 6c 6c 61 74 69 6f 6e 44 65 6c eateCollationDel
c7f0: 0a 20 20 29 3b 0a 20 20 69 66 28 20 72 63 21 3d . );. if( rc!=
c800: 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 29 7b SQLITE_MISUSE ){
c810: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
c820: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 73 esult(interp, "s
c830: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f qlite3_create_co
c840: 6c 6c 61 74 65 5f 76 32 28 29 20 66 61 69 6c 65 llate_v2() faile
c850: 64 20 74 6f 20 64 65 74 65 63 74 20 22 0a 20 20 d to detect ".
c860: 20 20 20 20 22 61 6e 20 69 6e 76 61 6c 69 64 20 "an invalid
c870: 65 6e 63 6f 64 69 6e 67 22 2c 20 28 63 68 61 72 encoding", (char
c880: 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e *)0);. return
c890: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
c8a0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 rc = sqlite3_c
c8b0: 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 5f reate_collation_
c8c0: 76 32 28 64 62 2c 20 54 63 6c 5f 47 65 74 53 74 v2(db, Tcl_GetSt
c8d0: 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 2c 20 53 ring(objv[2]), S
c8e0: 51 4c 49 54 45 5f 55 54 46 38 2c 20 0a 20 20 20 QLITE_UTF8, .
c8f0: 20 20 20 28 76 6f 69 64 20 2a 29 70 2c 20 74 65 (void *)p, te
c900: 73 74 43 72 65 61 74 65 43 6f 6c 6c 61 74 69 6f stCreateCollatio
c910: 6e 43 6d 70 2c 20 74 65 73 74 43 72 65 61 74 65 nCmp, testCreate
c920: 43 6f 6c 6c 61 74 69 6f 6e 44 65 6c 0a 20 20 29 CollationDel. )
c930: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
c940: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
c950: 65 3a 20 73 71 6c 69 74 65 33 5f 6c 6f 61 64 5f e: sqlite3_load_
c960: 65 78 74 65 6e 73 69 6f 6e 20 44 42 2d 48 41 4e extension DB-HAN
c970: 44 4c 45 20 46 49 4c 45 20 3f 50 52 4f 43 3f 0a DLE FILE ?PROC?.
c980: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
c990: 73 74 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f st_load_extensio
c9a0: 6e 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 n(. ClientData
c9b0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 4e clientData, /* N
c9c0: 6f 74 20 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c ot used */. Tcl
c9d0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
c9e0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
c9f0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
ca00: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
ca10: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 mand */. int ob
ca20: 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 jc,
ca30: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
ca40: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c guments */. Tcl
ca50: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
ca60: 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 [] /* Command a
ca70: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 rguments */.){.
ca80: 20 54 63 6c 5f 43 6d 64 49 6e 66 6f 20 63 6d 64 Tcl_CmdInfo cmd
ca90: 49 6e 66 6f 3b 0a 20 20 73 71 6c 69 74 65 33 20 Info;. sqlite3
caa0: 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 *db;. int rc;.
cab0: 20 63 68 61 72 20 2a 7a 44 62 3b 0a 20 20 63 68 char *zDb;. ch
cac0: 61 72 20 2a 7a 46 69 6c 65 3b 0a 20 20 63 68 61 ar *zFile;. cha
cad0: 72 20 2a 7a 50 72 6f 63 20 3d 20 30 3b 0a 20 20 r *zProc = 0;.
cae0: 63 68 61 72 20 2a 7a 45 72 72 20 3d 20 30 3b 0a char *zErr = 0;.
caf0: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 26 . if( objc!=4 &
cb00: 26 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 & objc!=3 ){.
cb10: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
cb20: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
cb30: 76 2c 20 22 44 42 2d 48 41 4e 44 4c 45 20 46 49 v, "DB-HANDLE FI
cb40: 4c 45 20 3f 50 52 4f 43 3f 22 29 3b 0a 20 20 20 LE ?PROC?");.
cb50: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
cb60: 52 3b 0a 20 20 7d 0a 20 20 7a 44 62 20 3d 20 54 R;. }. zDb = T
cb70: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
cb80: 76 5b 31 5d 29 3b 0a 20 20 7a 46 69 6c 65 20 3d v[1]);. zFile =
cb90: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
cba0: 62 6a 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20 6f bjv[2]);. if( o
cbb0: 62 6a 63 3d 3d 34 20 29 7b 0a 20 20 20 20 7a 50 bjc==4 ){. zP
cbc0: 72 6f 63 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 roc = Tcl_GetStr
cbd0: 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 ing(objv[3]);.
cbe0: 7d 0a 0a 20 20 2f 2a 20 45 78 74 72 61 63 74 20 }.. /* Extract
cbf0: 74 68 65 20 43 20 64 61 74 61 62 61 73 65 20 68 the C database h
cc00: 61 6e 64 6c 65 20 66 72 6f 6d 20 74 68 65 20 54 andle from the T
cc10: 63 6c 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 cl command name
cc20: 2a 2f 0a 20 20 69 66 28 20 21 54 63 6c 5f 47 65 */. if( !Tcl_Ge
cc30: 74 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69 6e 74 tCommandInfo(int
cc40: 65 72 70 2c 20 7a 44 62 2c 20 26 63 6d 64 49 6e erp, zDb, &cmdIn
cc50: 66 6f 29 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 fo) ){. Tcl_A
cc60: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
cc70: 72 70 2c 20 22 63 6f 6d 6d 61 6e 64 20 6e 6f 74 rp, "command not
cc80: 20 66 6f 75 6e 64 3a 20 22 2c 20 7a 44 62 2c 20 found: ", zDb,
cc90: 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 72 (char*)0);. r
cca0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
ccb0: 0a 20 20 7d 0a 20 20 64 62 20 3d 20 28 28 73 74 . }. db = ((st
ccc0: 72 75 63 74 20 53 71 6c 69 74 65 44 62 2a 29 63 ruct SqliteDb*)c
ccd0: 6d 64 49 6e 66 6f 2e 6f 62 6a 43 6c 69 65 6e 74 mdInfo.objClient
cce0: 44 61 74 61 29 2d 3e 64 62 3b 0a 20 20 61 73 73 Data)->db;. ass
ccf0: 65 72 74 28 64 62 29 3b 0a 0a 20 20 2f 2a 20 43 ert(db);.. /* C
cd00: 61 6c 6c 20 74 68 65 20 75 6e 64 65 72 6c 79 69 all the underlyi
cd10: 6e 67 20 43 20 66 75 6e 63 74 69 6f 6e 2e 20 49 ng C function. I
cd20: 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 f an error occur
cd30: 73 2c 20 73 65 74 20 72 63 20 74 6f 20 0a 20 20 s, set rc to .
cd40: 2a 2a 20 54 43 4c 5f 45 52 52 4f 52 20 61 6e 64 ** TCL_ERROR and
cd50: 20 6c 6f 61 64 20 61 6e 79 20 65 72 72 6f 72 20 load any error
cd60: 73 74 72 69 6e 67 20 69 6e 74 6f 20 74 68 65 20 string into the
cd70: 69 6e 74 65 72 70 72 65 74 65 72 2e 20 49 66 20 interpreter. If
cd80: 6e 6f 20 0a 20 20 2a 2a 20 65 72 72 6f 72 20 6f no . ** error o
cd90: 63 63 75 72 73 2c 20 73 65 74 20 72 63 20 74 6f ccurs, set rc to
cda0: 20 54 43 4c 5f 4f 4b 2e 0a 20 20 2a 2f 0a 23 69 TCL_OK.. */.#i
cdb0: 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 fdef SQLITE_OMIT
cdc0: 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a _LOAD_EXTENSION.
cdd0: 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 45 52 rc = SQLITE_ER
cde0: 52 4f 52 3b 0a 20 20 7a 45 72 72 20 3d 20 73 71 ROR;. zErr = sq
cdf0: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 74 lite3_mprintf("t
ce00: 68 69 73 20 62 75 69 6c 64 20 6f 6d 69 74 73 20 his build omits
ce10: 73 71 6c 69 74 65 33 5f 6c 6f 61 64 5f 65 78 74 sqlite3_load_ext
ce20: 65 6e 73 69 6f 6e 28 29 22 29 3b 0a 23 65 6c 73 ension()");.#els
ce30: 65 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 e. rc = sqlite3
ce40: 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 28 _load_extension(
ce50: 64 62 2c 20 7a 46 69 6c 65 2c 20 7a 50 72 6f 63 db, zFile, zProc
ce60: 2c 20 26 7a 45 72 72 29 3b 0a 23 65 6e 64 69 66 , &zErr);.#endif
ce70: 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 . if( rc!=SQLIT
ce80: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f E_OK ){. Tcl_
ce90: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
cea0: 2c 20 7a 45 72 72 20 3f 20 7a 45 72 72 20 3a 20 , zErr ? zErr :
ceb0: 22 22 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 "", TCL_VOLATILE
cec0: 29 3b 0a 20 20 20 20 72 63 20 3d 20 54 43 4c 5f );. rc = TCL_
ced0: 45 52 52 4f 52 3b 0a 20 20 7d 65 6c 73 65 7b 0a ERROR;. }else{.
cee0: 20 20 20 20 72 63 20 3d 20 54 43 4c 5f 4f 4b 3b rc = TCL_OK;
cef0: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 66 . }. sqlite3_f
cf00: 72 65 65 28 7a 45 72 72 29 3b 0a 0a 20 20 72 65 ree(zErr);.. re
cf10: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a turn rc;.}../*.*
cf20: 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
cf30: 5f 65 6e 61 62 6c 65 5f 6c 6f 61 64 5f 65 78 74 _enable_load_ext
cf40: 65 6e 73 69 6f 6e 20 44 42 2d 48 41 4e 44 4c 45 ension DB-HANDLE
cf50: 20 4f 4e 4f 46 46 0a 2a 2f 0a 73 74 61 74 69 63 ONOFF.*/.static
cf60: 20 69 6e 74 20 74 65 73 74 5f 65 6e 61 62 6c 65 int test_enable
cf70: 5f 6c 6f 61 64 28 0a 20 20 43 6c 69 65 6e 74 44 _load(. ClientD
cf80: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
cf90: 2f 2a 20 4e 6f 74 20 75 73 65 64 20 2a 2f 0a 20 /* Not used */.
cfa0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
cfb0: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
cfc0: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
cfd0: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
cfe0: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
cff0: 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 t objc,
d000: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
d010: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
d020: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
d030: 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 objv[] /* Comma
d040: 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a nd arguments */.
d050: 29 7b 0a 20 20 54 63 6c 5f 43 6d 64 49 6e 66 6f ){. Tcl_CmdInfo
d060: 20 63 6d 64 49 6e 66 6f 3b 0a 20 20 73 71 6c 69 cmdInfo;. sqli
d070: 74 65 33 20 2a 64 62 3b 0a 20 20 63 68 61 72 20 te3 *db;. char
d080: 2a 7a 44 62 3b 0a 20 20 69 6e 74 20 6f 6e 6f 66 *zDb;. int onof
d090: 66 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d f;.. if( objc!=
d0a0: 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 3 ){. Tcl_Wro
d0b0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
d0c0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 2d 48 , 1, objv, "DB-H
d0d0: 41 4e 44 4c 45 20 4f 4e 4f 46 46 22 29 3b 0a 20 ANDLE ONOFF");.
d0e0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
d0f0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 44 62 20 3d ROR;. }. zDb =
d100: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
d110: 62 6a 76 5b 31 5d 29 3b 0a 0a 20 20 2f 2a 20 45 bjv[1]);.. /* E
d120: 78 74 72 61 63 74 20 74 68 65 20 43 20 64 61 74 xtract the C dat
d130: 61 62 61 73 65 20 68 61 6e 64 6c 65 20 66 72 6f abase handle fro
d140: 6d 20 74 68 65 20 54 63 6c 20 63 6f 6d 6d 61 6e m the Tcl comman
d150: 64 20 6e 61 6d 65 20 2a 2f 0a 20 20 69 66 28 20 d name */. if(
d160: 21 54 63 6c 5f 47 65 74 43 6f 6d 6d 61 6e 64 49 !Tcl_GetCommandI
d170: 6e 66 6f 28 69 6e 74 65 72 70 2c 20 7a 44 62 2c nfo(interp, zDb,
d180: 20 26 63 6d 64 49 6e 66 6f 29 20 29 7b 0a 20 20 &cmdInfo) ){.
d190: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
d1a0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 6f 6d 6d lt(interp, "comm
d1b0: 61 6e 64 20 6e 6f 74 20 66 6f 75 6e 64 3a 20 22 and not found: "
d1c0: 2c 20 7a 44 62 2c 20 28 63 68 61 72 2a 29 30 29 , zDb, (char*)0)
d1d0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
d1e0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 64 62 _ERROR;. }. db
d1f0: 20 3d 20 28 28 73 74 72 75 63 74 20 53 71 6c 69 = ((struct Sqli
d200: 74 65 44 62 2a 29 63 6d 64 49 6e 66 6f 2e 6f 62 teDb*)cmdInfo.ob
d210: 6a 43 6c 69 65 6e 74 44 61 74 61 29 2d 3e 64 62 jClientData)->db
d220: 3b 0a 20 20 61 73 73 65 72 74 28 64 62 29 3b 0a ;. assert(db);.
d230: 0a 20 20 2f 2a 20 47 65 74 20 74 68 65 20 6f 6e . /* Get the on
d240: 6f 66 66 20 70 61 72 61 6d 65 74 65 72 20 2a 2f off parameter */
d250: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f . if( Tcl_GetBo
d260: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 oleanFromObj(int
d270: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6f erp, objv[2], &o
d280: 6e 6f 66 66 29 20 29 7b 0a 20 20 20 20 72 65 74 noff) ){. ret
d290: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
d2a0: 20 7d 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 }..#ifdef SQLIT
d2b0: 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45 E_OMIT_LOAD_EXTE
d2c0: 4e 53 49 4f 4e 0a 20 20 54 63 6c 5f 41 70 70 65 NSION. Tcl_Appe
d2d0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
d2e0: 20 22 74 68 69 73 20 62 75 69 6c 64 20 6f 6d 69 "this build omi
d2f0: 74 73 20 73 71 6c 69 74 65 33 5f 6c 6f 61 64 5f ts sqlite3_load_
d300: 65 78 74 65 6e 73 69 6f 6e 28 29 22 29 3b 0a 20 extension()");.
d310: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
d320: 52 3b 0a 23 65 6c 73 65 0a 20 20 73 71 6c 69 74 R;.#else. sqlit
d330: 65 33 5f 65 6e 61 62 6c 65 5f 6c 6f 61 64 5f 65 e3_enable_load_e
d340: 78 74 65 6e 73 69 6f 6e 28 64 62 2c 20 6f 6e 6f xtension(db, ono
d350: 66 66 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 ff);. return TC
d360: 4c 5f 4f 4b 3b 0a 23 65 6e 64 69 66 0a 7d 0a 0a L_OK;.#endif.}..
d370: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
d380: 6c 69 74 65 5f 61 62 6f 72 74 0a 2a 2a 0a 2a 2a lite_abort.**.**
d390: 20 53 68 75 74 64 6f 77 6e 20 74 68 65 20 70 72 Shutdown the pr
d3a0: 6f 63 65 73 73 20 69 6d 6d 65 64 69 61 74 65 6c ocess immediatel
d3b0: 79 2e 20 20 54 68 69 73 20 69 73 20 6e 6f 74 20 y. This is not
d3c0: 61 20 63 6c 65 61 6e 20 73 68 75 74 64 6f 77 6e a clean shutdown
d3d0: 2e 0a 2a 2a 20 54 68 69 73 20 63 6f 6d 6d 61 6e ..** This comman
d3e0: 64 20 69 73 20 75 73 65 64 20 74 6f 20 74 65 73 d is used to tes
d3f0: 74 20 74 68 65 20 72 65 63 6f 76 65 72 61 62 69 t the recoverabi
d400: 6c 69 74 79 20 6f 66 20 61 20 64 61 74 61 62 61 lity of a databa
d410: 73 65 20 69 6e 0a 2a 2a 20 74 68 65 20 65 76 65 se in.** the eve
d420: 6e 74 20 6f 66 20 61 20 70 72 6f 67 72 61 6d 20 nt of a program
d430: 63 72 61 73 68 2e 0a 2a 2f 0a 73 74 61 74 69 63 crash..*/.static
d440: 20 69 6e 74 20 73 71 6c 69 74 65 5f 61 62 6f 72 int sqlite_abor
d450: 74 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 t(. void *NotUs
d460: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
d470: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
d480: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
d490: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
d4a0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
d4b0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
d4c0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
d4d0: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
d4e0: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
d4f0: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
d500: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
d510: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 61 73 ument */.){. as
d520: 73 65 72 74 28 20 69 6e 74 65 72 70 3d 3d 30 20 sert( interp==0
d530: 29 3b 20 20 20 2f 2a 20 54 68 69 73 20 77 69 6c ); /* This wil
d540: 6c 20 61 6c 77 61 79 73 20 66 61 69 6c 20 2a 2f l always fail */
d550: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
d560: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 ;.}../*.** The f
d570: 6f 6c 6c 6f 77 69 6e 67 20 72 6f 75 74 69 6e 65 ollowing routine
d580: 20 69 73 20 61 20 75 73 65 72 2d 64 65 66 69 6e is a user-defin
d590: 65 64 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 20 ed SQL function
d5a0: 77 68 6f 73 65 20 70 75 72 70 6f 73 65 0a 2a 2a whose purpose.**
d5b0: 20 69 73 20 74 6f 20 74 65 73 74 20 74 68 65 20 is to test the
d5c0: 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c sqlite_set_resul
d5d0: 74 28 29 20 41 50 49 2e 0a 2a 2f 0a 73 74 61 74 t() API..*/.stat
d5e0: 69 63 20 76 6f 69 64 20 74 65 73 74 46 75 6e 63 ic void testFunc
d5f0: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 (sqlite3_context
d600: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 *context, int a
d610: 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c rgc, sqlite3_val
d620: 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 77 68 ue **argv){. wh
d630: 69 6c 65 28 20 61 72 67 63 3e 3d 32 20 29 7b 0a ile( argc>=2 ){.
d640: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
d650: 7a 41 72 67 30 20 3d 20 28 63 68 61 72 2a 29 73 zArg0 = (char*)s
d660: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
d670: 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 t(argv[0]);.
d680: 69 66 28 20 7a 41 72 67 30 20 29 7b 0a 20 20 20 if( zArg0 ){.
d690: 20 20 20 69 66 28 20 30 3d 3d 73 71 6c 69 74 65 if( 0==sqlite
d6a0: 33 53 74 72 49 43 6d 70 28 7a 41 72 67 30 2c 20 3StrICmp(zArg0,
d6b0: 22 69 6e 74 22 29 20 29 7b 0a 20 20 20 20 20 20 "int") ){.
d6c0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
d6d0: 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 _int(context, sq
d6e0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 lite3_value_int(
d6f0: 61 72 67 76 5b 31 5d 29 29 3b 0a 20 20 20 20 20 argv[1]));.
d700: 20 7d 65 6c 73 65 20 69 66 28 20 73 71 6c 69 74 }else if( sqlit
d710: 65 33 53 74 72 49 43 6d 70 28 7a 41 72 67 30 2c e3StrICmp(zArg0,
d720: 22 69 6e 74 36 34 22 29 3d 3d 30 20 29 7b 0a 20 "int64")==0 ){.
d730: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 sqlite3_r
d740: 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 6f 6e 74 esult_int64(cont
d750: 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c ext, sqlite3_val
d760: 75 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 31 5d ue_int64(argv[1]
d770: 29 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 ));. }else
d780: 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 49 43 if( sqlite3StrIC
d790: 6d 70 28 7a 41 72 67 30 2c 22 73 74 72 69 6e 67 mp(zArg0,"string
d7a0: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 ")==0 ){.
d7b0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
d7c0: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 63 text(context, (c
d7d0: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
d7e0: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31 5d 29 ue_text(argv[1])
d7f0: 2c 20 2d 31 2c 0a 20 20 20 20 20 20 20 20 20 20 , -1,.
d800: 20 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 SQLITE_TRANSIE
d810: 4e 54 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 NT);. }else
d820: 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 49 if( sqlite3StrI
d830: 43 6d 70 28 7a 41 72 67 30 2c 22 64 6f 75 62 6c Cmp(zArg0,"doubl
d840: 65 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 e")==0 ){.
d850: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
d860: 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c _double(context,
d870: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 sqlite3_value_d
d880: 6f 75 62 6c 65 28 61 72 67 76 5b 31 5d 29 29 3b ouble(argv[1]));
d890: 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 . }else if(
d8a0: 20 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 sqlite3StrICmp(
d8b0: 7a 41 72 67 30 2c 22 6e 75 6c 6c 22 29 3d 3d 30 zArg0,"null")==0
d8c0: 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 ){. sqli
d8d0: 74 65 33 5f 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 te3_result_null(
d8e0: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20 context);.
d8f0: 7d 65 6c 73 65 20 69 66 28 20 73 71 6c 69 74 65 }else if( sqlite
d900: 33 53 74 72 49 43 6d 70 28 7a 41 72 67 30 2c 22 3StrICmp(zArg0,"
d910: 76 61 6c 75 65 22 29 3d 3d 30 20 29 7b 0a 20 20 value")==0 ){.
d920: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 sqlite3_re
d930: 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 sult_value(conte
d940: 78 74 2c 20 61 72 67 76 5b 73 71 6c 69 74 65 33 xt, argv[sqlite3
d950: 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b _value_int(argv[
d960: 31 5d 29 5d 29 3b 0a 20 20 20 20 20 20 7d 65 6c 1])]);. }el
d970: 73 65 7b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f se{. goto
d980: 20 65 72 72 6f 72 5f 6f 75 74 3b 0a 20 20 20 20 error_out;.
d990: 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 }. }else{.
d9a0: 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 5f goto error_
d9b0: 6f 75 74 3b 0a 20 20 20 20 7d 0a 20 20 20 20 61 out;. }. a
d9c0: 72 67 63 20 2d 3d 20 32 3b 0a 20 20 20 20 61 72 rgc -= 2;. ar
d9d0: 67 76 20 2b 3d 20 32 3b 0a 20 20 7d 0a 20 20 72 gv += 2;. }. r
d9e0: 65 74 75 72 6e 3b 0a 0a 65 72 72 6f 72 5f 6f 75 eturn;..error_ou
d9f0: 74 3a 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 t:. sqlite3_res
da00: 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 ult_error(contex
da10: 74 2c 22 66 69 72 73 74 20 61 72 67 75 6d 65 6e t,"first argumen
da20: 74 20 73 68 6f 75 6c 64 20 62 65 20 6f 6e 65 20 t should be one
da30: 6f 66 3a 20 22 0a 20 20 20 20 20 20 22 69 6e 74 of: ". "int
da40: 20 69 6e 74 36 34 20 73 74 72 69 6e 67 20 64 6f int64 string do
da50: 75 62 6c 65 20 6e 75 6c 6c 20 76 61 6c 75 65 22 uble null value"
da60: 2c 20 2d 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 , -1);.}../*.**
da70: 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 5f Usage: sqlite_
da80: 72 65 67 69 73 74 65 72 5f 74 65 73 74 5f 66 75 register_test_fu
da90: 6e 63 74 69 6f 6e 20 20 44 42 20 20 4e 41 4d 45 nction DB NAME
daa0: 0a 2a 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 20 .**.** Register
dab0: 74 68 65 20 74 65 73 74 20 53 51 4c 20 66 75 6e the test SQL fun
dac0: 63 74 69 6f 6e 20 6f 6e 20 74 68 65 20 64 61 74 ction on the dat
dad0: 61 62 61 73 65 20 44 42 20 75 6e 64 65 72 20 74 abase DB under t
dae0: 68 65 20 6e 61 6d 65 20 4e 41 4d 45 2e 0a 2a 2f he name NAME..*/
daf0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
db00: 5f 72 65 67 69 73 74 65 72 5f 66 75 6e 63 28 0a _register_func(.
db10: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
db20: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
db30: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
db40: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
db50: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
db60: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
db70: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
db80: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
db90: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
dba0: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
dbb0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
dbc0: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
dbd0: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 nt */.){. sqlit
dbe0: 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 e3 *db;. int rc
dbf0: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 ;. if( argc!=3
dc00: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
dc10: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
dc20: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
dc30: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
dc40: 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 gv[0], . "
dc50: 20 44 42 20 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d DB FUNCTION-NAM
dc60: 45 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 E", 0);. retu
dc70: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
dc80: 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
dc90: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 nter(interp, arg
dca0: 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 v[1], &db) ) ret
dcb0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
dcc0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 rc = sqlite3_cr
dcd0: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 eate_function(db
dce0: 2c 20 61 72 67 76 5b 32 5d 2c 20 2d 31 2c 20 53 , argv[2], -1, S
dcf0: 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 0a QLITE_UTF8, 0, .
dd00: 20 20 20 20 20 20 74 65 73 74 46 75 6e 63 2c 20 testFunc,
dd10: 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63 21 0, 0);. if( rc!
dd20: 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =0 ){. Tcl_Ap
dd30: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
dd40: 70 2c 20 73 71 6c 69 74 65 33 45 72 72 53 74 72 p, sqlite3ErrStr
dd50: 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 (rc), 0);. re
dd60: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
dd70: 20 20 7d 0a 20 20 69 66 28 20 73 71 6c 69 74 65 }. if( sqlite
dd80: 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 3TestErrCode(int
dd90: 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 erp, db, rc) ) r
dda0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
ddb0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
ddc0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
ddd0: 3a 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c : sqlite3_final
dde0: 69 7a 65 20 20 53 54 4d 54 20 0a 2a 2a 0a 2a 2a ize STMT .**.**
ddf0: 20 46 69 6e 61 6c 69 7a 65 20 61 20 73 74 61 74 Finalize a stat
de00: 65 6d 65 6e 74 20 68 61 6e 64 6c 65 2e 0a 2a 2f ement handle..*/
de10: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
de20: 5f 66 69 6e 61 6c 69 7a 65 28 0a 20 20 76 6f 69 _finalize(. voi
de30: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
de40: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
de50: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
de60: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
de70: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
de80: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
de90: 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 mt;. int rc;.
dea0: 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 30 3b sqlite3 *db = 0;
deb0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 .. if( objc!=2
dec0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
ded0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
dee0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
def0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 hould be \"",.
df00: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
df10: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
df20: 30 5d 2c 20 30 29 2c 20 22 20 3c 53 54 4d 54 3e 0], 0), " <STMT>
df30: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
df40: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
df50: 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 .. if( getStmtP
df60: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
df70: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
df80: 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 v[1]), &pStmt) )
df90: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
dfa0: 52 3b 0a 0a 20 20 69 66 28 20 70 53 74 6d 74 20 R;.. if( pStmt
dfb0: 29 7b 0a 20 20 20 20 64 62 20 3d 20 53 74 6d 74 ){. db = Stmt
dfc0: 54 6f 44 62 28 70 53 74 6d 74 29 3b 0a 20 20 7d ToDb(pStmt);. }
dfd0: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
dfe0: 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d 74 29 3b finalize(pStmt);
dff0: 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 . Tcl_SetResult
e000: 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a (interp, (char *
e010: 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 )t1ErrorName(rc)
e020: 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 , TCL_STATIC);.
e030: 20 69 66 28 20 64 62 20 26 26 20 73 71 6c 69 74 if( db && sqlit
e040: 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e e3TestErrCode(in
e050: 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 terp, db, rc) )
e060: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
e070: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
e080: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
e090: 65 3a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 e: sqlite3_stmt
e0a0: 5f 73 74 61 74 75 73 20 20 53 54 4d 54 20 20 43 _status STMT C
e0b0: 4f 44 45 20 20 52 45 53 45 54 46 4c 41 47 0a 2a ODE RESETFLAG.*
e0c0: 2a 0a 2a 2a 20 47 65 74 20 74 68 65 20 76 61 6c *.** Get the val
e0d0: 75 65 20 6f 66 20 61 20 73 74 61 74 75 73 20 63 ue of a status c
e0e0: 6f 75 6e 74 65 72 20 66 72 6f 6d 20 61 20 73 74 ounter from a st
e0f0: 61 74 65 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 atement..*/.stat
e100: 69 63 20 69 6e 74 20 74 65 73 74 5f 73 74 6d 74 ic int test_stmt
e110: 5f 73 74 61 74 75 73 28 0a 20 20 76 6f 69 64 20 _status(. void
e120: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
e130: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
e140: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
e150: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
e160: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 objv[].){. int
e170: 20 69 56 61 6c 75 65 3b 0a 20 20 69 6e 74 20 69 iValue;. int i
e180: 2c 20 6f 70 2c 20 72 65 73 65 74 46 6c 61 67 3b , op, resetFlag;
e190: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
e1a0: 4f 70 4e 61 6d 65 3b 0a 20 20 73 71 6c 69 74 65 OpName;. sqlite
e1b0: 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 3_stmt *pStmt;..
e1c0: 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 static const s
e1d0: 74 72 75 63 74 20 7b 0a 20 20 20 20 63 6f 6e 73 truct {. cons
e1e0: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 t char *zName;.
e1f0: 20 20 20 69 6e 74 20 6f 70 3b 0a 20 20 7d 20 61 int op;. } a
e200: 4f 70 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 22 Op[] = {. { "
e210: 53 51 4c 49 54 45 5f 53 54 4d 54 53 54 41 54 55 SQLITE_STMTSTATU
e220: 53 5f 46 55 4c 4c 53 43 41 4e 5f 53 54 45 50 22 S_FULLSCAN_STEP"
e230: 2c 20 20 20 53 51 4c 49 54 45 5f 53 54 4d 54 53 , SQLITE_STMTS
e240: 54 41 54 55 53 5f 46 55 4c 4c 53 43 41 4e 5f 53 TATUS_FULLSCAN_S
e250: 54 45 50 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 TEP },. { "
e260: 53 51 4c 49 54 45 5f 53 54 4d 54 53 54 41 54 55 SQLITE_STMTSTATU
e270: 53 5f 53 4f 52 54 22 2c 20 20 20 20 20 20 20 20 S_SORT",
e280: 20 20 20 20 53 51 4c 49 54 45 5f 53 54 4d 54 53 SQLITE_STMTS
e290: 54 41 54 55 53 5f 53 4f 52 54 20 20 20 20 20 20 TATUS_SORT
e2a0: 20 20 20 20 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 },. };.
e2b0: 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 if( objc!=4 ){.
e2c0: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 Tcl_WrongNumA
e2d0: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
e2e0: 62 6a 76 2c 20 22 53 54 4d 54 20 50 41 52 41 4d bjv, "STMT PARAM
e2f0: 45 54 45 52 20 52 45 53 45 54 46 4c 41 47 22 29 ETER RESETFLAG")
e300: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
e310: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
e320: 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 ( getStmtPointer
e330: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
e340: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
e350: 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 &pStmt) ) retur
e360: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a n TCL_ERROR;. z
e370: 4f 70 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 OpName = Tcl_Get
e380: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b String(objv[2]);
e390: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 41 72 . for(i=0; i<Ar
e3a0: 72 61 79 53 69 7a 65 28 61 4f 70 29 3b 20 69 2b raySize(aOp); i+
e3b0: 2b 29 7b 0a 20 20 20 20 69 66 28 20 73 74 72 63 +){. if( strc
e3c0: 6d 70 28 61 4f 70 5b 69 5d 2e 7a 4e 61 6d 65 2c mp(aOp[i].zName,
e3d0: 20 7a 4f 70 4e 61 6d 65 29 3d 3d 30 20 29 7b 0a zOpName)==0 ){.
e3e0: 20 20 20 20 20 20 6f 70 20 3d 20 61 4f 70 5b 69 op = aOp[i
e3f0: 5d 2e 6f 70 3b 0a 20 20 20 20 20 20 62 72 65 61 ].op;. brea
e400: 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 k;. }. }. i
e410: 66 28 20 69 3e 3d 41 72 72 61 79 53 69 7a 65 28 f( i>=ArraySize(
e420: 61 4f 70 29 20 29 7b 0a 20 20 20 20 69 66 28 20 aOp) ){. if(
e430: 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 Tcl_GetIntFromOb
e440: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 j(interp, objv[2
e450: 5d 2c 20 26 6f 70 29 20 29 20 72 65 74 75 72 6e ], &op) ) return
e460: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
e470: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f if( Tcl_GetBoo
e480: 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 leanFromObj(inte
e490: 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 72 65 rp, objv[3], &re
e4a0: 73 65 74 46 6c 61 67 29 20 29 20 72 65 74 75 72 setFlag) ) retur
e4b0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
e4c0: 56 61 6c 75 65 20 3d 20 73 71 6c 69 74 65 33 5f Value = sqlite3_
e4d0: 73 74 6d 74 5f 73 74 61 74 75 73 28 70 53 74 6d stmt_status(pStm
e4e0: 74 2c 20 6f 70 2c 20 72 65 73 65 74 46 6c 61 67 t, op, resetFlag
e4f0: 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 );. Tcl_SetObjR
e500: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
e510: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 56 61 6c l_NewIntObj(iVal
e520: 75 65 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 ue));. return T
e530: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
e540: 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
e550: 6e 65 78 74 5f 73 74 6d 74 20 20 44 42 20 20 53 next_stmt DB S
e560: 54 4d 54 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e TMT.**.** Return
e570: 20 74 68 65 20 6e 65 78 74 20 73 74 61 74 6d 65 the next statme
e580: 6e 74 20 69 6e 20 73 65 71 75 65 6e 63 65 20 61 nt in sequence a
e590: 66 74 65 72 20 53 54 4d 54 2e 0a 2a 2f 0a 73 74 fter STMT..*/.st
e5a0: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6e 65 atic int test_ne
e5b0: 78 74 5f 73 74 6d 74 28 0a 20 20 76 6f 69 64 20 xt_stmt(. void
e5c0: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
e5d0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
e5e0: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
e5f0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
e600: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
e610: 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 ite3_stmt *pStmt
e620: 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 ;. sqlite3 *db
e630: 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 = 0;. char zBuf
e640: 5b 35 30 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a [50];.. if( obj
e650: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. 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 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
e680: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
e690: 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 ",. Tcl_G
e6a0: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
e6b0: 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 44 objv[0], 0), " D
e6c0: 42 20 53 54 4d 54 22 2c 20 30 29 3b 0a 20 20 20 B STMT", 0);.
e6d0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
e6e0: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
e6f0: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
e700: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
e710: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 (objv[1]), &db)
e720: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
e730: 4f 52 3b 0a 20 20 69 66 28 20 67 65 74 53 74 6d OR;. if( getStm
e740: 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
e750: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
e760: 62 6a 76 5b 32 5d 29 2c 20 26 70 53 74 6d 74 29 bjv[2]), &pStmt)
e770: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
e780: 52 4f 52 3b 0a 20 20 70 53 74 6d 74 20 3d 20 73 ROR;. pStmt = s
e790: 71 6c 69 74 65 33 5f 6e 65 78 74 5f 73 74 6d 74 qlite3_next_stmt
e7a0: 28 64 62 2c 20 70 53 74 6d 74 29 3b 0a 20 20 69 (db, pStmt);. i
e7b0: 66 28 20 70 53 74 6d 74 20 29 7b 0a 20 20 20 20 f( pStmt ){.
e7c0: 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 4d if( sqlite3TestM
e7d0: 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 69 6e akePointerStr(in
e7e0: 74 65 72 70 2c 20 7a 42 75 66 2c 20 70 53 74 6d terp, zBuf, pStm
e7f0: 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f t) ) return TCL_
e800: 45 52 52 4f 52 3b 0a 20 20 20 20 54 63 6c 5f 41 ERROR;. Tcl_A
e810: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
e820: 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 rp, zBuf, 0);.
e830: 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f }. return TCL_O
e840: 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 K;.}.../*.** Usa
e850: 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 ge: sqlite3_res
e860: 65 74 20 20 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 et STMT .**.**
e870: 52 65 73 65 74 20 61 20 73 74 61 74 65 6d 65 6e Reset a statemen
e880: 74 20 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 t handle..*/.sta
e890: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 72 65 73 tic int test_res
e8a0: 65 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 et(. void * cli
e8b0: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
e8c0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
e8d0: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
e8e0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
e8f0: 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f [].){. sqlite3_
e900: 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 stmt *pStmt;. i
e910: 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 nt rc;.. if( ob
e920: 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
e930: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
e940: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
e950: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
e960: 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f "",. Tcl_
e970: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
e980: 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 (objv[0], 0), "
e990: 3c 53 54 4d 54 3e 22 2c 20 30 29 3b 0a 20 20 20 <STMT>", 0);.
e9a0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
e9b0: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
e9c0: 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
e9d0: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
e9e0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
e9f0: 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
ea00: 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d L_ERROR;.. rc =
ea10: 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 28 70 sqlite3_reset(p
ea20: 53 74 6d 74 29 3b 0a 20 20 69 66 28 20 70 53 74 Stmt);. if( pSt
ea30: 6d 74 20 26 26 20 73 71 6c 69 74 65 33 54 65 73 mt && sqlite3Tes
ea40: 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c tErrCode(interp,
ea50: 20 53 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 StmtToDb(pStmt)
ea60: 2c 20 72 63 29 20 29 7b 0a 20 20 20 20 72 65 74 , rc) ){. ret
ea70: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
ea80: 20 7d 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 }. Tcl_SetResu
ea90: 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
eaa0: 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 *)t1ErrorName(r
eab0: 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b c), TCL_STATIC);
eac0: 0a 2f 2a 0a 20 20 69 66 28 20 72 63 20 29 7b 0a ./*. if( rc ){.
ead0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
eae0: 52 52 4f 52 3b 0a 20 20 7d 0a 2a 2f 0a 20 20 72 RROR;. }.*/. r
eaf0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
eb00: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
eb10: 71 6c 69 74 65 33 5f 65 78 70 69 72 65 64 20 53 qlite3_expired S
eb20: 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 TMT .**.** Retur
eb30: 6e 20 54 52 55 45 20 69 66 20 61 20 72 65 63 6f n TRUE if a reco
eb40: 6d 70 69 6c 61 74 69 6f 6e 20 6f 66 20 74 68 65 mpilation of the
eb50: 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 72 65 statement is re
eb60: 63 6f 6d 6d 65 6e 64 65 64 2e 0a 2a 2f 0a 73 74 commended..*/.st
eb70: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 78 atic int test_ex
eb80: 70 69 72 65 64 28 0a 20 20 76 6f 69 64 20 2a 20 pired(. void *
eb90: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
eba0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
ebb0: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
ebc0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
ebd0: 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 bjv[].){.#ifndef
ebe0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 45 50 SQLITE_OMIT_DEP
ebf0: 52 45 43 41 54 45 44 0a 20 20 73 71 6c 69 74 65 RECATED. sqlite
ec00: 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
ec10: 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a if( objc!=2 ){.
ec20: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
ec30: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
ec40: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
ec50: 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 ld be \"",.
ec60: 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
ec70: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c FromObj(objv[0],
ec80: 20 30 29 2c 20 22 20 3c 53 54 4d 54 3e 22 2c 20 0), " <STMT>",
ec90: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
eca0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
ecb0: 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
ecc0: 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
ecd0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
ece0: 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
ecf0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
ed00: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
ed10: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
ed20: 77 42 6f 6f 6c 65 61 6e 4f 62 6a 28 73 71 6c 69 wBooleanObj(sqli
ed30: 74 65 33 5f 65 78 70 69 72 65 64 28 70 53 74 6d te3_expired(pStm
ed40: 74 29 29 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 t)));.#endif. r
ed50: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
ed60: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
ed70: 71 6c 69 74 65 33 5f 74 72 61 6e 73 66 65 72 5f qlite3_transfer_
ed80: 62 69 6e 64 69 6e 67 73 20 46 52 4f 4d 53 54 4d bindings FROMSTM
ed90: 54 20 54 4f 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 54 T TOSTMT.**.** T
eda0: 72 61 6e 73 66 65 72 20 61 6c 6c 20 62 69 6e 64 ransfer all bind
edb0: 69 6e 67 73 20 66 72 6f 6d 20 46 52 4f 4d 53 54 ings from FROMST
edc0: 4d 54 20 6f 76 65 72 20 74 6f 20 54 4f 53 54 4d MT over to TOSTM
edd0: 54 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 T.*/.static int
ede0: 74 65 73 74 5f 74 72 61 6e 73 66 65 72 5f 62 69 test_transfer_bi
edf0: 6e 64 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 nd(. void * cli
ee00: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
ee10: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
ee20: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
ee30: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
ee40: 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 [].){.#ifndef SQ
ee50: 4c 49 54 45 5f 4f 4d 49 54 5f 44 45 50 52 45 43 LITE_OMIT_DEPREC
ee60: 41 54 45 44 0a 20 20 73 71 6c 69 74 65 33 5f 73 ATED. sqlite3_s
ee70: 74 6d 74 20 2a 70 53 74 6d 74 31 2c 20 2a 70 53 tmt *pStmt1, *pS
ee80: 74 6d 74 32 3b 0a 20 20 69 66 28 20 6f 62 6a 63 tmt2;. if( objc
ee90: 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=3 ){. Tcl_A
eea0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
eeb0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
eec0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
eed0: 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 ,. Tcl_Ge
eee0: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
eef0: 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 46 52 bjv[0], 0), " FR
ef00: 4f 4d 2d 53 54 4d 54 20 54 4f 2d 53 54 4d 54 22 OM-STMT TO-STMT"
ef10: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
ef20: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
ef30: 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
ef40: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
ef50: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
ef60: 31 5d 29 2c 20 26 70 53 74 6d 74 31 29 29 20 72 1]), &pStmt1)) r
ef70: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
ef80: 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f . if( getStmtPo
ef90: 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
efa0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
efb0: 5b 32 5d 29 2c 20 26 70 53 74 6d 74 32 29 29 20 [2]), &pStmt2))
efc0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
efd0: 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. Tcl_SetObjRe
efe0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 0a 20 20 sult(interp, .
eff0: 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a Tcl_NewIntObj
f000: 28 73 71 6c 69 74 65 33 5f 74 72 61 6e 73 66 65 (sqlite3_transfe
f010: 72 5f 62 69 6e 64 69 6e 67 73 28 70 53 74 6d 74 r_bindings(pStmt
f020: 31 2c 70 53 74 6d 74 32 29 29 29 3b 0a 23 65 6e 1,pStmt2)));.#en
f030: 64 69 66 0a 20 20 72 65 74 75 72 6e 20 54 43 4c dif. return TCL
f040: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
f050: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 63 68 age: sqlite3_ch
f060: 61 6e 67 65 73 20 44 42 0a 2a 2a 0a 2a 2a 20 52 anges DB.**.** R
f070: 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 eturn the number
f080: 20 6f 66 20 63 68 61 6e 67 65 73 20 6d 61 64 65 of changes made
f090: 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 to the database
f0a0: 20 62 79 20 74 68 65 20 6c 61 73 74 20 53 51 4c by the last SQL
f0b0: 0a 2a 2a 20 65 78 65 63 75 74 69 6f 6e 2e 0a 2a .** execution..*
f0c0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
f0d0: 74 5f 63 68 61 6e 67 65 73 28 0a 20 20 76 6f 69 t_changes(. voi
f0e0: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
f0f0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
f100: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
f110: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
f120: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
f130: 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 qlite3 *db;. if
f140: 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
f150: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
f160: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
f170: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
f180: 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 54 be \"",. T
f190: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
f1a0: 76 5b 30 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 v[0]), " DB", 0)
f1b0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
f1c0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
f1d0: 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
f1e0: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
f1f0: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
f200: 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
f210: 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 _ERROR;. Tcl_Se
f220: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
f230: 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
f240: 28 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 (sqlite3_changes
f250: 28 64 62 29 29 29 3b 0a 20 20 72 65 74 75 72 6e (db)));. return
f260: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
f270: 2a 20 54 68 69 73 20 69 73 20 74 68 65 20 22 73 * This is the "s
f280: 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 tatic_bind_value
f290: 22 20 74 68 61 74 20 76 61 72 69 61 62 6c 65 73 " that variables
f2a0: 20 61 72 65 20 62 6f 75 6e 64 20 74 6f 20 77 68 are bound to wh
f2b0: 65 6e 0a 2a 2a 20 74 68 65 20 46 4c 41 47 20 6f en.** the FLAG o
f2c0: 70 74 69 6f 6e 20 6f 66 20 73 71 6c 69 74 65 33 ption of sqlite3
f2d0: 5f 62 69 6e 64 20 69 73 20 22 73 74 61 74 69 63 _bind is "static
f2e0: 22 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 ".*/.static char
f2f0: 20 2a 73 71 6c 69 74 65 5f 73 74 61 74 69 63 5f *sqlite_static_
f300: 62 69 6e 64 5f 76 61 6c 75 65 20 3d 20 30 3b 0a bind_value = 0;.
f310: 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 static int sqlit
f320: 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f 6e 62 e_static_bind_nb
f330: 79 74 65 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 yte = 0;../*.**
f340: 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
f350: 62 69 6e 64 20 20 56 4d 20 20 49 44 58 20 20 56 bind VM IDX V
f360: 41 4c 55 45 20 20 46 4c 41 47 53 0a 2a 2a 0a 2a ALUE FLAGS.**.*
f370: 2a 20 53 65 74 73 20 74 68 65 20 76 61 6c 75 65 * Sets the value
f380: 20 6f 66 20 74 68 65 20 49 44 58 2d 74 68 20 6f of the IDX-th o
f390: 63 63 75 72 61 6e 63 65 20 6f 66 20 22 3f 22 20 ccurance of "?"
f3a0: 69 6e 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 in the original
f3b0: 53 51 4c 0a 2a 2a 20 73 74 72 69 6e 67 2e 20 20 SQL.** string.
f3c0: 56 41 4c 55 45 20 69 73 20 74 68 65 20 6e 65 77 VALUE is the new
f3d0: 20 76 61 6c 75 65 2e 20 20 49 66 20 46 4c 41 47 value. If FLAG
f3e0: 53 3d 3d 22 6e 75 6c 6c 22 20 74 68 65 6e 20 56 S=="null" then V
f3f0: 41 4c 55 45 20 69 73 0a 2a 2a 20 69 67 6e 6f 72 ALUE is.** ignor
f400: 65 64 20 61 6e 64 20 74 68 65 20 76 61 6c 75 65 ed and the value
f410: 20 69 73 20 73 65 74 20 74 6f 20 4e 55 4c 4c 2e is set to NULL.
f420: 20 20 49 66 20 46 4c 41 47 53 3d 3d 22 73 74 61 If FLAGS=="sta
f430: 74 69 63 22 20 74 68 65 6e 0a 2a 2a 20 74 68 65 tic" then.** the
f440: 20 76 61 6c 75 65 20 69 73 20 73 65 74 20 74 6f value is set to
f450: 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20 the value of a
f460: 73 74 61 74 69 63 20 76 61 72 69 61 62 6c 65 20 static variable
f470: 6e 61 6d 65 64 0a 2a 2a 20 22 73 71 6c 69 74 65 named.** "sqlite
f480: 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c _static_bind_val
f490: 75 65 22 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d ue". If FLAGS==
f4a0: 22 6e 6f 72 6d 61 6c 22 20 74 68 65 6e 20 61 20 "normal" then a
f4b0: 63 6f 70 79 0a 2a 2a 20 6f 66 20 74 68 65 20 56 copy.** of the V
f4c0: 41 4c 55 45 20 69 73 20 6d 61 64 65 2e 20 20 49 ALUE is made. I
f4d0: 66 20 46 4c 41 47 53 3d 3d 22 62 6c 6f 62 31 30 f FLAGS=="blob10
f4e0: 22 20 74 68 65 6e 20 61 20 56 41 4c 55 45 20 69 " then a VALUE i
f4f0: 73 20 69 67 6e 6f 72 65 64 0a 2a 2a 20 61 6e 20 s ignored.** an
f500: 61 20 31 30 2d 62 79 74 65 20 62 6c 6f 62 20 22 a 10-byte blob "
f510: 61 62 63 5c 30 30 30 78 79 7a 5c 30 30 30 70 71 abc\000xyz\000pq
f520: 22 20 69 73 20 69 6e 73 65 72 74 65 64 2e 0a 2a " is inserted..*
f530: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
f540: 74 5f 62 69 6e 64 28 0a 20 20 76 6f 69 64 20 2a t_bind(. void *
f550: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
f560: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
f570: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
f580: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
f590: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
f5a0: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
f5b0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
f5c0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
f5d0: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
f5e0: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
f5f0: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
f600: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
f610: 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
f620: 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 72 63 *pStmt;. int rc
f630: 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 ;. int idx;. i
f640: 66 28 20 61 72 67 63 21 3d 35 20 29 7b 0a 20 20 f( argc!=5 ){.
f650: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
f660: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
f670: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
f680: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d be \"", argv[0]
f690: 2c 20 0a 20 20 20 20 20 20 20 22 20 56 4d 20 49 , . " VM I
f6a0: 44 58 20 56 41 4c 55 45 20 28 6e 75 6c 6c 7c 73 DX VALUE (null|s
f6b0: 74 61 74 69 63 7c 6e 6f 72 6d 61 6c 29 5c 22 22 tatic|normal)\""
f6c0: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
f6d0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
f6e0: 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
f6f0: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 nter(interp, arg
f700: 76 5b 31 5d 2c 20 26 70 53 74 6d 74 29 20 29 20 v[1], &pStmt) )
f710: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
f720: 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 ;. if( Tcl_GetI
f730: 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b nt(interp, argv[
f740: 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 2], &idx) ) retu
f750: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
f760: 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b if( strcmp(argv[
f770: 34 5d 2c 22 6e 75 6c 6c 22 29 3d 3d 30 20 29 7b 4],"null")==0 ){
f780: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 . rc = sqlite
f790: 33 5f 62 69 6e 64 5f 6e 75 6c 6c 28 70 53 74 6d 3_bind_null(pStm
f7a0: 74 2c 20 69 64 78 29 3b 0a 20 20 7d 65 6c 73 65 t, idx);. }else
f7b0: 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 if( strcmp(argv
f7c0: 5b 34 5d 2c 22 73 74 61 74 69 63 22 29 3d 3d 30 [4],"static")==0
f7d0: 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c ){. rc = sql
f7e0: 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 ite3_bind_text(p
f7f0: 53 74 6d 74 2c 20 69 64 78 2c 20 73 71 6c 69 74 Stmt, idx, sqlit
f800: 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 e_static_bind_va
f810: 6c 75 65 2c 20 2d 31 2c 20 30 29 3b 0a 20 20 7d lue, -1, 0);. }
f820: 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 else if( strcmp(
f830: 61 72 67 76 5b 34 5d 2c 22 73 74 61 74 69 63 2d argv[4],"static-
f840: 6e 62 79 74 65 73 22 29 3d 3d 30 20 29 7b 0a 20 nbytes")==0 ){.
f850: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
f860: 62 69 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 2c bind_text(pStmt,
f870: 20 69 64 78 2c 20 73 71 6c 69 74 65 5f 73 74 61 idx, sqlite_sta
f880: 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 2c 0a tic_bind_value,.
f890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
f8a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
f8b0: 20 20 20 20 20 20 20 73 71 6c 69 74 65 5f 73 74 sqlite_st
f8c0: 61 74 69 63 5f 62 69 6e 64 5f 6e 62 79 74 65 2c atic_bind_nbyte,
f8d0: 20 30 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 0);. }else if(
f8e0: 20 73 74 72 63 6d 70 28 61 72 67 76 5b 34 5d 2c strcmp(argv[4],
f8f0: 22 6e 6f 72 6d 61 6c 22 29 3d 3d 30 20 29 7b 0a "normal")==0 ){.
f900: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 rc = sqlite3
f910: 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 _bind_text(pStmt
f920: 2c 20 69 64 78 2c 20 61 72 67 76 5b 33 5d 2c 20 , idx, argv[3],
f930: 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 -1, SQLITE_TRANS
f940: 49 45 4e 54 29 3b 0a 20 20 7d 65 6c 73 65 20 69 IENT);. }else i
f950: 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b 34 f( strcmp(argv[4
f960: 5d 2c 22 62 6c 6f 62 31 30 22 29 3d 3d 30 20 29 ],"blob10")==0 )
f970: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 {. rc = sqlit
f980: 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74 e3_bind_text(pSt
f990: 6d 74 2c 20 69 64 78 2c 20 22 61 62 63 5c 30 30 mt, idx, "abc\00
f9a0: 30 78 79 7a 5c 30 30 30 70 71 22 2c 20 31 30 2c 0xyz\000pq", 10,
f9b0: 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b SQLITE_STATIC);
f9c0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 . }else{. Tc
f9d0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
f9e0: 6e 74 65 72 70 2c 20 22 34 74 68 20 61 72 67 75 nterp, "4th argu
f9f0: 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 22 ment should be "
fa00: 0a 20 20 20 20 20 20 20 20 22 5c 22 6e 75 6c 6c . "\"null
fa10: 5c 22 20 6f 72 20 5c 22 73 74 61 74 69 63 5c 22 \" or \"static\"
fa20: 20 6f 72 20 5c 22 6e 6f 72 6d 61 6c 5c 22 22 2c or \"normal\"",
fa30: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
fa40: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
fa50: 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
fa60: 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
fa70: 53 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 2c StmtToDb(pStmt),
fa80: 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 rc) ) return TC
fa90: 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 L_ERROR;. if( r
faa0: 63 20 29 7b 0a 20 20 20 20 63 68 61 72 20 7a 42 c ){. char zB
fab0: 75 66 5b 35 30 5d 3b 0a 20 20 20 20 73 70 72 69 uf[50];. spri
fac0: 6e 74 66 28 7a 42 75 66 2c 20 22 28 25 64 29 20 ntf(zBuf, "(%d)
fad0: 22 2c 20 72 63 29 3b 0a 20 20 20 20 54 63 6c 5f ", rc);. Tcl_
fae0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
faf0: 65 72 70 2c 20 7a 42 75 66 2c 20 73 71 6c 69 74 erp, zBuf, sqlit
fb00: 65 33 45 72 72 53 74 72 28 72 63 29 2c 20 30 29 e3ErrStr(rc), 0)
fb10: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
fb20: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 _ERROR;. }. re
fb30: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
fb40: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
fb50: 4d 49 54 5f 55 54 46 31 36 0a 2f 2a 0a 2a 2a 20 MIT_UTF16./*.**
fb60: 55 73 61 67 65 3a 20 61 64 64 5f 74 65 73 74 5f Usage: add_test_
fb70: 63 6f 6c 6c 61 74 65 20 3c 64 62 20 70 74 72 3e collate <db ptr>
fb80: 20 3c 75 74 66 38 3e 20 3c 75 74 66 31 36 6c 65 <utf8> <utf16le
fb90: 3e 20 3c 75 74 66 31 36 62 65 3e 0a 2a 2a 0a 2a > <utf16be>.**.*
fba0: 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 * This function
fbb0: 69 73 20 75 73 65 64 20 74 6f 20 74 65 73 74 20 is used to test
fbc0: 74 68 61 74 20 53 51 4c 69 74 65 20 73 65 6c 65 that SQLite sele
fbd0: 63 74 73 20 74 68 65 20 63 6f 72 72 65 63 74 20 cts the correct
fbe0: 63 6f 6c 6c 61 74 69 6f 6e 0a 2a 2a 20 73 65 71 collation.** seq
fbf0: 75 65 6e 63 65 20 63 61 6c 6c 62 61 63 6b 20 77 uence callback w
fc00: 68 65 6e 20 6d 75 6c 74 69 70 6c 65 20 76 65 72 hen multiple ver
fc10: 73 69 6f 6e 73 20 28 66 6f 72 20 64 69 66 66 65 sions (for diffe
fc20: 72 65 6e 74 20 74 65 78 74 20 65 6e 63 6f 64 69 rent text encodi
fc30: 6e 67 73 29 0a 2a 2a 20 61 72 65 20 61 76 61 69 ngs).** are avai
fc40: 6c 61 62 6c 65 2e 0a 2a 2a 0a 2a 2a 20 43 61 6c lable..**.** Cal
fc50: 6c 69 6e 67 20 74 68 69 73 20 72 6f 75 74 69 6e ling this routin
fc60: 65 20 72 65 67 69 73 74 65 72 73 20 74 68 65 20 e registers the
fc70: 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e collation sequen
fc80: 63 65 20 22 74 65 73 74 5f 63 6f 6c 6c 61 74 65 ce "test_collate
fc90: 22 0a 2a 2a 20 77 69 74 68 20 64 61 74 61 62 61 ".** with databa
fca0: 73 65 20 68 61 6e 64 6c 65 20 3c 64 62 3e 2e 20 se handle <db>.
fcb0: 54 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d The second argum
fcc0: 65 6e 74 20 6d 75 73 74 20 62 65 20 61 20 6c 69 ent must be a li
fcd0: 73 74 20 6f 66 20 74 68 72 65 65 0a 2a 2a 20 62 st of three.** b
fce0: 6f 6f 6c 65 61 6e 20 76 61 6c 75 65 73 2e 20 49 oolean values. I
fcf0: 66 20 74 68 65 20 66 69 72 73 74 20 69 73 20 74 f the first is t
fd00: 72 75 65 2c 20 74 68 65 6e 20 61 20 76 65 72 73 rue, then a vers
fd10: 69 6f 6e 20 6f 66 20 74 65 73 74 5f 63 6f 6c 6c ion of test_coll
fd20: 61 74 65 20 69 73 0a 2a 2a 20 72 65 67 69 73 74 ate is.** regist
fd30: 65 72 65 64 20 66 6f 72 20 55 54 46 2d 38 2c 20 ered for UTF-8,
fd40: 69 66 20 74 68 65 20 73 65 63 6f 6e 64 20 69 73 if the second is
fd50: 20 74 72 75 65 2c 20 61 20 76 65 72 73 69 6f 6e true, a version
fd60: 20 69 73 20 72 65 67 69 73 74 65 72 65 64 20 66 is registered f
fd70: 6f 72 0a 2a 2a 20 55 54 46 2d 31 36 6c 65 2c 20 or.** UTF-16le,
fd80: 69 66 20 74 68 65 20 74 68 69 72 64 20 69 73 20 if the third is
fd90: 74 72 75 65 2c 20 61 20 55 54 46 2d 31 36 62 65 true, a UTF-16be
fda0: 20 76 65 72 73 69 6f 6e 20 69 73 20 61 76 61 69 version is avai
fdb0: 6c 61 62 6c 65 2e 0a 2a 2a 20 50 72 65 76 69 6f lable..** Previo
fdc0: 75 73 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 74 us versions of t
fdd0: 65 73 74 5f 63 6f 6c 6c 61 74 65 20 61 72 65 20 est_collate are
fde0: 64 65 6c 65 74 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 deleted..**.** T
fdf0: 68 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 he collation seq
fe00: 75 65 6e 63 65 20 74 65 73 74 5f 63 6f 6c 6c 61 uence test_colla
fe10: 74 65 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 te is implemente
fe20: 64 20 62 79 20 63 61 6c 6c 69 6e 67 20 74 68 65 d by calling the
fe30: 0a 2a 2a 20 66 6f 6c 6c 6f 77 69 6e 67 20 54 43 .** following TC
fe40: 4c 20 73 63 72 69 70 74 3a 0a 2a 2a 0a 2a 2a 20 L script:.**.**
fe50: 20 20 22 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 "test_collate
fe60: 3c 65 6e 63 3e 20 3c 6c 68 73 3e 20 3c 72 68 73 <enc> <lhs> <rhs
fe70: 3e 22 0a 2a 2a 0a 2a 2a 20 54 68 65 20 3c 6c 68 >".**.** The <lh
fe80: 73 3e 20 61 6e 64 20 3c 72 68 73 3e 20 61 72 65 s> and <rhs> are
fe90: 20 74 68 65 20 74 77 6f 20 76 61 6c 75 65 73 20 the two values
fea0: 62 65 69 6e 67 20 63 6f 6d 70 61 72 65 64 2c 20 being compared,
feb0: 65 6e 63 6f 64 65 64 20 69 6e 20 55 54 46 2d 38 encoded in UTF-8
fec0: 2e 0a 2a 2a 20 54 68 65 20 3c 65 6e 63 3e 20 70 ..** The <enc> p
fed0: 61 72 61 6d 65 74 65 72 20 69 73 20 74 68 65 20 arameter is the
fee0: 65 6e 63 6f 64 69 6e 67 20 6f 66 20 74 68 65 20 encoding of the
fef0: 63 6f 6c 6c 61 74 69 6f 6e 20 66 75 6e 63 74 69 collation functi
ff00: 6f 6e 20 74 68 61 74 0a 2a 2a 20 53 51 4c 69 74 on that.** SQLit
ff10: 65 20 73 65 6c 65 63 74 65 64 20 74 6f 20 63 61 e selected to ca
ff20: 6c 6c 2e 20 54 68 65 20 54 43 4c 20 74 65 73 74 ll. The TCL test
ff30: 20 73 63 72 69 70 74 20 69 6d 70 6c 65 6d 65 6e script implemen
ff40: 74 73 20 74 68 65 0a 2a 2a 20 22 74 65 73 74 5f ts the.** "test_
ff50: 63 6f 6c 6c 61 74 65 22 20 70 72 6f 63 2e 0a 2a collate" proc..*
ff60: 2a 0a 2a 2a 20 4e 6f 74 65 20 74 68 61 74 20 74 *.** Note that t
ff70: 68 69 73 20 77 69 6c 6c 20 6f 6e 6c 79 20 77 6f his will only wo
ff80: 72 6b 20 77 69 74 68 20 6f 6e 65 20 69 6e 74 65 rk with one inte
ff90: 70 72 65 74 65 72 20 61 74 20 61 20 74 69 6d 65 preter at a time
ffa0: 2c 20 61 73 20 74 68 65 0a 2a 2a 20 69 6e 74 65 , as the.** inte
ffb0: 72 70 20 70 6f 69 6e 74 65 72 20 74 6f 20 75 73 rp pointer to us
ffc0: 65 20 77 68 65 6e 20 65 76 61 6c 75 61 74 69 6e e when evaluatin
ffd0: 67 20 74 68 65 20 54 43 4c 20 73 63 72 69 70 74 g the TCL script
ffe0: 20 69 73 20 73 74 6f 72 65 64 20 69 6e 0a 2a 2a is stored in.**
fff0: 20 70 54 65 73 74 43 6f 6c 6c 61 74 65 49 6e 74 pTestCollateInt
10000 65 72 70 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 54 erp..*/.static T
10010 63 6c 5f 49 6e 74 65 72 70 2a 20 70 54 65 73 74 cl_Interp* pTest
10020 43 6f 6c 6c 61 74 65 49 6e 74 65 72 70 3b 0a 73 CollateInterp;.s
10030 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 tatic int test_c
10040 6f 6c 6c 61 74 65 5f 66 75 6e 63 28 0a 20 20 76 ollate_func(. v
10050 6f 69 64 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e oid *pCtx, . in
10060 74 20 6e 41 2c 20 63 6f 6e 73 74 20 76 6f 69 64 t nA, const void
10070 20 2a 7a 41 2c 0a 20 20 69 6e 74 20 6e 42 2c 20 *zA,. int nB,
10080 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 42 0a 29 const void *zB.)
10090 7b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a {. Tcl_Interp *
100a0 69 20 3d 20 70 54 65 73 74 43 6f 6c 6c 61 74 65 i = pTestCollate
100b0 49 6e 74 65 72 70 3b 0a 20 20 69 6e 74 20 65 6e Interp;. int en
100c0 63 69 6e 20 3d 20 28 69 6e 74 29 70 43 74 78 3b cin = (int)pCtx;
100d0 0a 20 20 69 6e 74 20 72 65 73 3b 0a 20 20 69 6e . int res;. in
100e0 74 20 6e 3b 0a 0a 20 20 73 71 6c 69 74 65 33 5f t n;.. sqlite3_
100f0 76 61 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 20 54 value *pVal;. T
10100 63 6c 5f 4f 62 6a 20 2a 70 58 3b 0a 0a 20 20 70 cl_Obj *pX;.. p
10110 58 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e X = Tcl_NewStrin
10120 67 4f 62 6a 28 22 74 65 73 74 5f 63 6f 6c 6c 61 gObj("test_colla
10130 74 65 22 2c 20 2d 31 29 3b 0a 20 20 54 63 6c 5f te", -1);. Tcl_
10140 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 IncrRefCount(pX)
10150 3b 0a 0a 20 20 73 77 69 74 63 68 28 20 65 6e 63 ;.. switch( enc
10160 69 6e 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 in ){. case S
10170 51 4c 49 54 45 5f 55 54 46 38 3a 0a 20 20 20 20 QLITE_UTF8:.
10180 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
10190 65 6e 64 45 6c 65 6d 65 6e 74 28 69 2c 70 58 2c endElement(i,pX,
101a0 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
101b0 28 22 55 54 46 2d 38 22 2c 2d 31 29 29 3b 0a 20 ("UTF-8",-1));.
101c0 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
101d0 63 61 73 65 20 53 51 4c 49 54 45 5f 55 54 46 31 case SQLITE_UTF1
101e0 36 4c 45 3a 0a 20 20 20 20 20 20 54 63 6c 5f 4c 6LE:. Tcl_L
101f0 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
10200 65 6e 74 28 69 2c 70 58 2c 54 63 6c 5f 4e 65 77 ent(i,pX,Tcl_New
10210 53 74 72 69 6e 67 4f 62 6a 28 22 55 54 46 2d 31 StringObj("UTF-1
10220 36 4c 45 22 2c 2d 31 29 29 3b 0a 20 20 20 20 20 6LE",-1));.
10230 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
10240 20 53 51 4c 49 54 45 5f 55 54 46 31 36 42 45 3a SQLITE_UTF16BE:
10250 0a 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f . Tcl_ListO
10260 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
10270 69 2c 70 58 2c 54 63 6c 5f 4e 65 77 53 74 72 69 i,pX,Tcl_NewStri
10280 6e 67 4f 62 6a 28 22 55 54 46 2d 31 36 42 45 22 ngObj("UTF-16BE"
10290 2c 2d 31 29 29 3b 0a 20 20 20 20 20 20 62 72 65 ,-1));. bre
102a0 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a ak;. default:
102b0 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 30 29 . assert(0)
102c0 3b 0a 20 20 7d 0a 0a 20 20 70 56 61 6c 20 3d 20 ;. }.. pVal =
102d0 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28 sqlite3ValueNew(
102e0 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 0);. sqlite3Val
102f0 75 65 53 65 74 53 74 72 28 70 56 61 6c 2c 20 6e ueSetStr(pVal, n
10300 41 2c 20 7a 41 2c 20 65 6e 63 69 6e 2c 20 53 51 A, zA, encin, SQ
10310 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 LITE_STATIC);.
10320 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 n = sqlite3_valu
10330 65 5f 62 79 74 65 73 28 70 56 61 6c 29 3b 0a 20 e_bytes(pVal);.
10340 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
10350 6e 64 45 6c 65 6d 65 6e 74 28 69 2c 70 58 2c 0a ndElement(i,pX,.
10360 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 Tcl_NewStr
10370 69 6e 67 4f 62 6a 28 28 63 68 61 72 2a 29 73 71 ingObj((char*)sq
10380 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
10390 28 70 56 61 6c 29 2c 6e 29 29 3b 0a 20 20 73 71 (pVal),n));. sq
103a0 6c 69 74 65 33 56 61 6c 75 65 53 65 74 53 74 72 lite3ValueSetStr
103b0 28 70 56 61 6c 2c 20 6e 42 2c 20 7a 42 2c 20 65 (pVal, nB, zB, e
103c0 6e 63 69 6e 2c 20 53 51 4c 49 54 45 5f 53 54 41 ncin, SQLITE_STA
103d0 54 49 43 29 3b 0a 20 20 6e 20 3d 20 73 71 6c 69 TIC);. n = sqli
103e0 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 te3_value_bytes(
103f0 70 56 61 6c 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 pVal);. Tcl_Lis
10400 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
10410 74 28 69 2c 70 58 2c 0a 20 20 20 20 20 20 54 63 t(i,pX,. Tc
10420 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 l_NewStringObj((
10430 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 char*)sqlite3_va
10440 6c 75 65 5f 74 65 78 74 28 70 56 61 6c 29 2c 6e lue_text(pVal),n
10450 29 29 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 6c ));. sqlite3Val
10460 75 65 46 72 65 65 28 70 56 61 6c 29 3b 0a 0a 20 ueFree(pVal);..
10470 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 69 Tcl_EvalObjEx(i
10480 2c 20 70 58 2c 20 30 29 3b 0a 20 20 54 63 6c 5f , pX, 0);. Tcl_
10490 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 DecrRefCount(pX)
104a0 3b 0a 20 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 ;. Tcl_GetIntFr
104b0 6f 6d 4f 62 6a 28 69 2c 20 54 63 6c 5f 47 65 74 omObj(i, Tcl_Get
104c0 4f 62 6a 52 65 73 75 6c 74 28 69 29 2c 20 26 72 ObjResult(i), &r
104d0 65 73 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 65 es);. return re
104e0 73 3b 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 s;.}.static int
104f0 74 65 73 74 5f 63 6f 6c 6c 61 74 65 28 0a 20 20 test_collate(.
10500 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
10510 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
10520 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
10530 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
10540 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
10550 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
10560 20 69 6e 74 20 76 61 6c 3b 0a 20 20 73 71 6c 69 int val;. sqli
10570 74 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c 3b te3_value *pVal;
10580 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 . int rc;.. if
10590 28 20 6f 62 6a 63 21 3d 35 20 29 20 67 6f 74 6f ( objc!=5 ) goto
105a0 20 62 61 64 5f 61 72 67 73 3b 0a 20 20 70 54 65 bad_args;. pTe
105b0 73 74 43 6f 6c 6c 61 74 65 49 6e 74 65 72 70 20 stCollateInterp
105c0 3d 20 69 6e 74 65 72 70 3b 0a 20 20 69 66 28 20 = interp;. if(
105d0 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
105e0 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
105f0 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
10600 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
10610 52 52 4f 52 3b 0a 0a 20 20 69 66 28 20 54 43 4c RROR;.. if( TCL
10620 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c _OK!=Tcl_GetBool
10630 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 eanFromObj(inter
10640 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 76 61 6c p, objv[2], &val
10650 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
10660 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c RROR;. rc = sql
10670 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c ite3_create_coll
10680 61 74 69 6f 6e 28 64 62 2c 20 22 74 65 73 74 5f ation(db, "test_
10690 63 6f 6c 6c 61 74 65 22 2c 20 53 51 4c 49 54 45 collate", SQLITE
106a0 5f 55 54 46 38 2c 20 0a 20 20 20 20 20 20 20 20 _UTF8, .
106b0 20 20 28 76 6f 69 64 20 2a 29 53 51 4c 49 54 45 (void *)SQLITE
106c0 5f 55 54 46 38 2c 20 76 61 6c 3f 74 65 73 74 5f _UTF8, val?test_
106d0 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 3a 30 29 3b collate_func:0);
106e0 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 . if( rc==SQLIT
106f0 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 63 6f 6e 73 E_OK ){. cons
10700 74 20 76 6f 69 64 20 2a 7a 55 74 66 31 36 3b 0a t void *zUtf16;.
10710 20 20 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d if( TCL_OK!=
10720 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 Tcl_GetBooleanFr
10730 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
10740 6a 76 5b 33 5d 2c 20 26 76 61 6c 29 20 29 20 72 jv[3], &val) ) r
10750 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
10760 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 . rc = sqlite
10770 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 3_create_collati
10780 6f 6e 28 64 62 2c 20 22 74 65 73 74 5f 63 6f 6c on(db, "test_col
10790 6c 61 74 65 22 2c 20 53 51 4c 49 54 45 5f 55 54 late", SQLITE_UT
107a0 46 31 36 4c 45 2c 20 0a 20 20 20 20 20 20 20 20 F16LE, .
107b0 20 20 20 20 28 76 6f 69 64 20 2a 29 53 51 4c 49 (void *)SQLI
107c0 54 45 5f 55 54 46 31 36 4c 45 2c 20 76 61 6c 3f TE_UTF16LE, val?
107d0 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e test_collate_fun
107e0 63 3a 30 29 3b 0a 20 20 20 20 69 66 28 20 54 43 c:0);. if( TC
107f0 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f L_OK!=Tcl_GetBoo
10800 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 leanFromObj(inte
10810 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 76 61 rp, objv[4], &va
10820 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f l) ) return TCL_
10830 45 52 52 4f 52 3b 0a 0a 23 69 66 20 30 0a 20 20 ERROR;..#if 0.
10840 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 69 4d if( sqlite3_iM
10850 61 6c 6c 6f 63 46 61 69 6c 3e 30 20 29 7b 0a 20 allocFail>0 ){.
10860 20 20 20 20 20 73 71 6c 69 74 65 33 5f 69 4d 61 sqlite3_iMa
10870 6c 6c 6f 63 46 61 69 6c 2b 2b 3b 0a 20 20 20 20 llocFail++;.
10880 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 73 71 6c }.#endif. sql
10890 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 ite3_mutex_enter
108a0 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 20 (db->mutex);.
108b0 20 70 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 56 pVal = sqlite3V
108c0 61 6c 75 65 4e 65 77 28 64 62 29 3b 0a 20 20 20 alueNew(db);.
108d0 20 73 71 6c 69 74 65 33 56 61 6c 75 65 53 65 74 sqlite3ValueSet
108e0 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c 20 22 74 Str(pVal, -1, "t
108f0 65 73 74 5f 63 6f 6c 6c 61 74 65 22 2c 20 53 51 est_collate", SQ
10900 4c 49 54 45 5f 55 54 46 38 2c 20 53 51 4c 49 54 LITE_UTF8, SQLIT
10910 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 7a E_STATIC);. z
10920 55 74 66 31 36 20 3d 20 73 71 6c 69 74 65 33 56 Utf16 = sqlite3V
10930 61 6c 75 65 54 65 78 74 28 70 56 61 6c 2c 20 53 alueText(pVal, S
10940 51 4c 49 54 45 5f 55 54 46 31 36 4e 41 54 49 56 QLITE_UTF16NATIV
10950 45 29 3b 0a 20 20 20 20 69 66 28 20 64 62 2d 3e E);. if( db->
10960 6d 61 6c 6c 6f 63 46 61 69 6c 65 64 20 29 7b 0a mallocFailed ){.
10970 20 20 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 rc = SQLIT
10980 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 20 20 7d 65 6c E_NOMEM;. }el
10990 73 65 7b 0a 20 20 20 20 20 20 72 63 20 3d 20 73 se{. rc = s
109a0 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f qlite3_create_co
109b0 6c 6c 61 74 69 6f 6e 31 36 28 64 62 2c 20 7a 55 llation16(db, zU
109c0 74 66 31 36 2c 20 53 51 4c 49 54 45 5f 55 54 46 tf16, SQLITE_UTF
109d0 31 36 42 45 2c 20 0a 20 20 20 20 20 20 20 20 20 16BE, .
109e0 20 28 76 6f 69 64 20 2a 29 53 51 4c 49 54 45 5f (void *)SQLITE_
109f0 55 54 46 31 36 42 45 2c 20 76 61 6c 3f 74 65 73 UTF16BE, val?tes
10a00 74 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 3a 30 t_collate_func:0
10a10 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c );. }. sql
10a20 69 74 65 33 56 61 6c 75 65 46 72 65 65 28 70 56 ite3ValueFree(pV
10a30 61 6c 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 al);. sqlite3
10a40 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 62 2d _mutex_leave(db-
10a50 3e 6d 75 74 65 78 29 3b 0a 20 20 7d 0a 20 20 69 >mutex);. }. i
10a60 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 f( sqlite3TestEr
10a70 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 rCode(interp, db
10a80 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 , rc) ) return T
10a90 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 0a 20 20 69 CL_ERROR;. . i
10aa0 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b f( rc!=SQLITE_OK
10ab0 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
10ac0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
10ad0 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 6f sqlite3TestErro
10ae0 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 rName(rc), 0);.
10af0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
10b00 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 ROR;. }. retur
10b10 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 62 61 64 5f 61 n TCL_OK;..bad_a
10b20 72 67 73 3a 0a 20 20 54 63 6c 5f 41 70 70 65 6e rgs:. Tcl_Appen
10b30 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
10b40 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
10b50 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 hould be \"",.
10b60 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
10b70 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d gFromObj(objv[0]
10b80 2c 20 30 29 2c 20 22 20 3c 44 42 3e 20 3c 75 74 , 0), " <DB> <ut
10b90 66 38 3e 20 3c 75 74 66 31 36 6c 65 3e 20 3c 75 f8> <utf16le> <u
10ba0 74 66 31 36 62 65 3e 22 2c 20 30 29 3b 0a 20 20 tf16be>", 0);.
10bb0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
10bc0 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 68 65 6e 20 ;.}../*.** When
10bd0 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 6e 65 the collation ne
10be0 65 64 65 64 20 63 61 6c 6c 62 61 63 6b 20 69 73 eded callback is
10bf0 20 69 6e 76 6f 6b 65 64 2c 20 72 65 63 6f 72 64 invoked, record
10c00 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 0a 2a 2a the name of .**
10c10 20 74 68 65 20 72 65 71 75 65 73 74 65 64 20 63 the requested c
10c20 6f 6c 6c 61 74 69 6e 67 20 66 75 6e 63 74 69 6f ollating functio
10c30 6e 20 68 65 72 65 2e 20 20 54 68 65 20 72 65 63 n here. The rec
10c40 6f 72 64 65 64 20 6e 61 6d 65 20 69 73 20 6c 69 orded name is li
10c50 6e 6b 65 64 0a 2a 2a 20 74 6f 20 61 20 54 43 4c nked.** to a TCL
10c60 20 76 61 72 69 61 62 6c 65 20 61 6e 64 20 75 73 variable and us
10c70 65 64 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 ed to make sure
10c80 74 68 61 74 20 74 68 65 20 72 65 71 75 65 73 74 that the request
10c90 65 64 20 63 6f 6c 6c 61 74 69 6f 6e 0a 2a 2a 20 ed collation.**
10ca0 6e 61 6d 65 20 69 73 20 63 6f 72 72 65 63 74 2e name is correct.
10cb0 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 .*/.static char
10cc0 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f 6e zNeededCollation
10cd0 5b 32 30 30 5d 3b 0a 73 74 61 74 69 63 20 63 68 [200];.static ch
10ce0 61 72 20 2a 70 7a 4e 65 65 64 65 64 43 6f 6c 6c ar *pzNeededColl
10cf0 61 74 69 6f 6e 20 3d 20 7a 4e 65 65 64 65 64 43 ation = zNeededC
10d00 6f 6c 6c 61 74 69 6f 6e 3b 0a 0a 0a 2f 2a 0a 2a ollation;.../*.*
10d10 2a 20 43 61 6c 6c 65 64 20 77 68 65 6e 20 61 20 * Called when a
10d20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 65 6e collating sequen
10d30 63 65 20 69 73 20 6e 65 65 64 65 64 2e 20 20 52 ce is needed. R
10d40 65 67 69 73 74 65 72 65 64 20 75 73 69 6e 67 0a egistered using.
10d50 2a 2a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 6c 61 ** sqlite3_colla
10d60 74 69 6f 6e 5f 6e 65 65 64 65 64 31 36 28 29 2e tion_needed16().
10d70 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
10d80 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 test_collate_nee
10d90 64 65 64 5f 63 62 28 0a 20 20 76 6f 69 64 20 2a ded_cb(. void *
10da0 70 43 74 78 2c 20 0a 20 20 73 71 6c 69 74 65 33 pCtx, . sqlite3
10db0 20 2a 64 62 2c 0a 20 20 69 6e 74 20 65 54 65 78 *db,. int eTex
10dc0 74 52 65 70 2c 0a 20 20 63 6f 6e 73 74 20 76 6f tRep,. const vo
10dd0 69 64 20 2a 70 4e 61 6d 65 0a 29 7b 0a 20 20 69 id *pName.){. i
10de0 6e 74 20 65 6e 63 20 3d 20 45 4e 43 28 64 62 29 nt enc = ENC(db)
10df0 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 68 61 ;. int i;. cha
10e00 72 20 2a 7a 3b 0a 20 20 66 6f 72 28 7a 20 3d 20 r *z;. for(z =
10e10 28 63 68 61 72 2a 29 70 4e 61 6d 65 2c 20 69 3d (char*)pName, i=
10e20 30 3b 20 2a 7a 20 7c 7c 20 7a 5b 31 5d 3b 20 7a 0; *z || z[1]; z
10e30 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 2a 7a 20 ++){. if( *z
10e40 29 20 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 ) zNeededCollati
10e50 6f 6e 5b 69 2b 2b 5d 20 3d 20 2a 7a 3b 0a 20 20 on[i++] = *z;.
10e60 7d 0a 20 20 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 }. zNeededColla
10e70 74 69 6f 6e 5b 69 5d 20 3d 20 30 3b 0a 20 20 73 tion[i] = 0;. s
10e80 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f qlite3_create_co
10e90 6c 6c 61 74 69 6f 6e 28 0a 20 20 20 20 20 20 64 llation(. d
10ea0 62 2c 20 22 74 65 73 74 5f 63 6f 6c 6c 61 74 65 b, "test_collate
10eb0 22 2c 20 45 4e 43 28 64 62 29 2c 20 28 76 6f 69 ", ENC(db), (voi
10ec0 64 20 2a 29 65 6e 63 2c 20 74 65 73 74 5f 63 6f d *)enc, test_co
10ed0 6c 6c 61 74 65 5f 66 75 6e 63 29 3b 0a 7d 0a 0a llate_func);.}..
10ee0 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 61 64 64 /*.** Usage: add
10ef0 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 _test_collate_ne
10f00 65 64 65 64 20 44 42 0a 2a 2f 0a 73 74 61 74 69 eded DB.*/.stati
10f10 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c 6c 61 c int test_colla
10f20 74 65 5f 6e 65 65 64 65 64 28 0a 20 20 76 6f 69 te_needed(. voi
10f30 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
10f40 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
10f50 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
10f60 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
10f70 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
10f80 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e qlite3 *db;. in
10f90 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a t rc;.. if( obj
10fa0 63 21 3d 32 20 29 20 67 6f 74 6f 20 62 61 64 5f c!=2 ) goto bad_
10fb0 61 72 67 73 3b 0a 20 20 69 66 28 20 67 65 74 44 args;. if( getD
10fc0 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c bPointer(interp,
10fd0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
10fe0 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 bjv[1]), &db) )
10ff0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
11000 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
11010 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 6e 65 65 64 65 _collation_neede
11020 64 31 36 28 64 62 2c 20 30 2c 20 74 65 73 74 5f d16(db, 0, test_
11030 63 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 64 5f 63 collate_needed_c
11040 62 29 3b 0a 20 20 7a 4e 65 65 64 65 64 43 6f 6c b);. zNeededCol
11050 6c 61 74 69 6f 6e 5b 30 5d 20 3d 20 30 3b 0a 20 lation[0] = 0;.
11060 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
11070 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
11080 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e db, rc) ) return
11090 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 TCL_ERROR;. re
110a0 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 62 61 turn TCL_OK;..ba
110b0 64 5f 61 72 67 73 3a 0a 20 20 54 63 6c 5f 57 72 d_args:. Tcl_Wr
110c0 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
110d0 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 22 p, 1, objv, "DB"
110e0 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
110f0 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 ERROR;.}../*.**
11100 74 63 6c 63 6d 64 3a 20 20 20 61 64 64 5f 61 6c tclcmd: add_al
11110 69 67 6e 6d 65 6e 74 5f 74 65 73 74 5f 63 6f 6c ignment_test_col
11120 6c 61 74 69 6f 6e 73 20 20 44 42 0a 2a 2a 0a 2a lations DB.**.*
11130 2a 20 41 64 64 20 74 77 6f 20 6e 65 77 20 63 6f * Add two new co
11140 6c 6c 61 74 69 6e 67 20 73 65 71 75 65 6e 63 65 llating sequence
11150 73 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 s to the databas
11160 65 20 44 42 0a 2a 2a 0a 2a 2a 20 20 20 20 20 75 e DB.**.** u
11170 74 66 31 36 5f 61 6c 69 67 6e 65 64 0a 2a 2a 20 tf16_aligned.**
11180 20 20 20 20 75 74 66 31 36 5f 75 6e 61 6c 69 67 utf16_unalig
11190 6e 65 64 0a 2a 2a 0a 2a 2a 20 42 6f 74 68 20 63 ned.**.** Both c
111a0 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 65 6e 63 ollating sequenc
111b0 65 73 20 75 73 65 20 74 68 65 20 73 61 6d 65 20 es use the same
111c0 73 6f 72 74 20 6f 72 64 65 72 20 61 73 20 42 49 sort order as BI
111d0 4e 41 52 59 2e 0a 2a 2a 20 54 68 65 20 6f 6e 6c NARY..** The onl
111e0 79 20 64 69 66 66 65 72 65 6e 63 65 20 69 73 20 y difference is
111f0 74 68 61 74 20 74 68 65 20 75 74 66 31 36 5f 61 that the utf16_a
11200 6c 69 67 6e 65 64 20 63 6f 6c 6c 61 74 69 6e 67 ligned collating
11210 0a 2a 2a 20 73 65 71 75 65 6e 63 65 20 69 73 20 .** sequence is
11220 64 65 63 6c 61 72 65 64 20 77 69 74 68 20 74 68 declared with th
11230 65 20 53 51 4c 49 54 45 5f 55 54 46 31 36 5f 41 e SQLITE_UTF16_A
11240 4c 49 47 4e 45 44 20 66 6c 61 67 2e 0a 2a 2a 20 LIGNED flag..**
11250 42 6f 74 68 20 63 6f 6c 6c 61 74 69 6e 67 20 66 Both collating f
11260 75 6e 63 74 69 6f 6e 73 20 69 6e 63 72 65 6d 65 unctions increme
11270 6e 74 20 74 68 65 20 75 6e 61 6c 69 67 6e 65 64 nt the unaligned
11280 20 75 74 66 31 36 20 63 6f 75 6e 74 65 72 0a 2a utf16 counter.*
11290 2a 20 77 68 65 6e 65 76 65 72 20 74 68 65 79 20 * whenever they
112a0 73 65 65 20 61 20 73 74 72 69 6e 67 20 74 68 61 see a string tha
112b0 74 20 62 65 67 69 6e 73 20 6f 6e 20 61 6e 20 6f t begins on an o
112c0 64 64 20 62 79 74 65 20 62 6f 75 6e 64 61 72 79 dd byte boundary
112d0 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
112e0 75 6e 61 6c 69 67 6e 65 64 5f 73 74 72 69 6e 67 unaligned_string
112f0 5f 63 6f 75 6e 74 65 72 20 3d 20 30 3b 0a 73 74 _counter = 0;.st
11300 61 74 69 63 20 69 6e 74 20 61 6c 69 67 6e 6d 65 atic int alignme
11310 6e 74 43 6f 6c 6c 46 75 6e 63 28 0a 20 20 76 6f ntCollFunc(. vo
11320 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 69 id *NotUsed,. i
11330 6e 74 20 6e 4b 65 79 31 2c 20 63 6f 6e 73 74 20 nt nKey1, const
11340 76 6f 69 64 20 2a 70 4b 65 79 31 2c 0a 20 20 69 void *pKey1,. i
11350 6e 74 20 6e 4b 65 79 32 2c 20 63 6f 6e 73 74 20 nt nKey2, const
11360 76 6f 69 64 20 2a 70 4b 65 79 32 0a 29 7b 0a 20 void *pKey2.){.
11370 20 69 6e 74 20 72 63 2c 20 6e 3b 0a 20 20 6e 20 int rc, n;. n
11380 3d 20 6e 4b 65 79 31 3c 6e 4b 65 79 32 20 3f 20 = nKey1<nKey2 ?
11390 6e 4b 65 79 31 20 3a 20 6e 4b 65 79 32 3b 0a 20 nKey1 : nKey2;.
113a0 20 69 66 28 20 6e 4b 65 79 31 3e 30 20 26 26 20 if( nKey1>0 &&
113b0 31 3d 3d 28 31 26 28 69 6e 74 29 70 4b 65 79 31 1==(1&(int)pKey1
113c0 29 20 29 20 75 6e 61 6c 69 67 6e 65 64 5f 73 74 ) ) unaligned_st
113d0 72 69 6e 67 5f 63 6f 75 6e 74 65 72 2b 2b 3b 0a ring_counter++;.
113e0 20 20 69 66 28 20 6e 4b 65 79 32 3e 30 20 26 26 if( nKey2>0 &&
113f0 20 31 3d 3d 28 31 26 28 69 6e 74 29 70 4b 65 79 1==(1&(int)pKey
11400 32 29 20 29 20 75 6e 61 6c 69 67 6e 65 64 5f 73 2) ) unaligned_s
11410 74 72 69 6e 67 5f 63 6f 75 6e 74 65 72 2b 2b 3b tring_counter++;
11420 0a 20 20 72 63 20 3d 20 6d 65 6d 63 6d 70 28 70 . rc = memcmp(p
11430 4b 65 79 31 2c 20 70 4b 65 79 32 2c 20 6e 29 3b Key1, pKey2, n);
11440 0a 20 20 69 66 28 20 72 63 3d 3d 30 20 29 7b 0a . if( rc==0 ){.
11450 20 20 20 20 72 63 20 3d 20 6e 4b 65 79 31 20 2d rc = nKey1 -
11460 20 6e 4b 65 79 32 3b 0a 20 20 7d 0a 20 20 72 65 nKey2;. }. re
11470 74 75 72 6e 20 72 63 3b 0a 7d 0a 73 74 61 74 69 turn rc;.}.stati
11480 63 20 69 6e 74 20 61 64 64 5f 61 6c 69 67 6e 6d c int add_alignm
11490 65 6e 74 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 69 ent_test_collati
114a0 6f 6e 73 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c ons(. void * cl
114b0 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
114c0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
114d0 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
114e0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
114f0 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
11500 20 2a 64 62 3b 0a 20 20 69 66 28 20 6f 62 6a 63 *db;. if( objc
11510 3e 3d 32 20 29 7b 0a 20 20 20 20 69 66 28 20 67 >=2 ){. if( g
11520 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
11530 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
11540 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
11550 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
11560 52 4f 52 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 ROR;. sqlite3
11570 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f _create_collatio
11580 6e 28 64 62 2c 20 22 75 74 66 31 36 5f 75 6e 61 n(db, "utf16_una
11590 6c 69 67 6e 65 64 22 2c 0a 20 20 20 20 20 20 20 ligned",.
115a0 20 53 51 4c 49 54 45 5f 55 54 46 31 36 2c 20 0a SQLITE_UTF16, .
115b0 20 20 20 20 20 20 20 20 30 2c 20 61 6c 69 67 6e 0, align
115c0 6d 65 6e 74 43 6f 6c 6c 46 75 6e 63 29 3b 0a 20 mentCollFunc);.
115d0 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 sqlite3_creat
115e0 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 64 62 2c 20 e_collation(db,
115f0 22 75 74 66 31 36 5f 61 6c 69 67 6e 65 64 22 2c "utf16_aligned",
11600 0a 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f . SQLITE_
11610 55 54 46 31 36 20 7c 20 53 51 4c 49 54 45 5f 55 UTF16 | SQLITE_U
11620 54 46 31 36 5f 41 4c 49 47 4e 45 44 2c 20 0a 20 TF16_ALIGNED, .
11630 20 20 20 20 20 20 20 30 2c 20 61 6c 69 67 6e 6d 0, alignm
11640 65 6e 74 43 6f 6c 6c 46 75 6e 63 29 3b 0a 20 20 entCollFunc);.
11650 7d 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 }. return SQLIT
11660 45 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f E_OK;.}.#endif /
11670 2a 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 * !defined(SQLIT
11680 45 5f 4f 4d 49 54 5f 55 54 46 31 36 29 20 2a 2f E_OMIT_UTF16) */
11690 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 61 ../*.** Usage: a
116a0 64 64 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e dd_test_function
116b0 20 3c 64 62 20 70 74 72 3e 20 3c 75 74 66 38 3e <db ptr> <utf8>
116c0 20 3c 75 74 66 31 36 6c 65 3e 20 3c 75 74 66 31 <utf16le> <utf1
116d0 36 62 65 3e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 6be>.**.** This
116e0 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 function is used
116f0 20 74 6f 20 74 65 73 74 20 74 68 61 74 20 53 51 to test that SQ
11700 4c 69 74 65 20 73 65 6c 65 63 74 73 20 74 68 65 Lite selects the
11710 20 63 6f 72 72 65 63 74 20 75 73 65 72 0a 2a 2a correct user.**
11720 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 62 61 function callba
11730 63 6b 20 77 68 65 6e 20 6d 75 6c 74 69 70 6c 65 ck when multiple
11740 20 76 65 72 73 69 6f 6e 73 20 28 66 6f 72 20 64 versions (for d
11750 69 66 66 65 72 65 6e 74 20 74 65 78 74 20 65 6e ifferent text en
11760 63 6f 64 69 6e 67 73 29 0a 2a 2a 20 61 72 65 20 codings).** are
11770 61 76 61 69 6c 61 62 6c 65 2e 0a 2a 2a 0a 2a 2a available..**.**
11780 20 43 61 6c 6c 69 6e 67 20 74 68 69 73 20 72 6f Calling this ro
11790 75 74 69 6e 65 20 72 65 67 69 73 74 65 72 73 20 utine registers
117a0 75 70 20 74 6f 20 74 68 72 65 65 20 76 65 72 73 up to three vers
117b0 69 6f 6e 73 20 6f 66 20 74 68 65 20 75 73 65 72 ions of the user
117c0 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 22 74 65 function.** "te
117d0 73 74 5f 66 75 6e 63 74 69 6f 6e 22 20 77 69 74 st_function" wit
117e0 68 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c h database handl
117f0 65 20 3c 64 62 3e 2e 20 20 49 66 20 74 68 65 20 e <db>. If the
11800 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 second argument
11810 69 73 0a 2a 2a 20 74 72 75 65 2c 20 74 68 65 6e is.** true, then
11820 20 61 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 65 a version of te
11830 73 74 5f 66 75 6e 63 74 69 6f 6e 20 69 73 20 72 st_function is r
11840 65 67 69 73 74 65 72 65 64 20 66 6f 72 20 55 54 egistered for UT
11850 46 2d 38 2c 20 69 66 20 74 68 65 0a 2a 2a 20 74 F-8, if the.** t
11860 68 69 72 64 20 69 73 20 74 72 75 65 2c 20 61 20 hird is true, a
11870 76 65 72 73 69 6f 6e 20 69 73 20 72 65 67 69 73 version is regis
11880 74 65 72 65 64 20 66 6f 72 20 55 54 46 2d 31 36 tered for UTF-16
11890 6c 65 2c 20 69 66 20 74 68 65 20 66 6f 75 72 74 le, if the fourt
118a0 68 20 69 73 0a 2a 2a 20 74 72 75 65 2c 20 61 20 h is.** true, a
118b0 55 54 46 2d 31 36 62 65 20 76 65 72 73 69 6f 6e UTF-16be version
118c0 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e 20 20 is available.
118d0 50 72 65 76 69 6f 75 73 20 76 65 72 73 69 6f 6e Previous version
118e0 73 20 6f 66 0a 2a 2a 20 74 65 73 74 5f 66 75 6e s of.** test_fun
118f0 63 74 69 6f 6e 20 61 72 65 20 64 65 6c 65 74 65 ction are delete
11900 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 75 73 65 d..**.** The use
11910 72 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 69 6d r function is im
11920 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 63 61 6c plemented by cal
11930 6c 69 6e 67 20 74 68 65 20 66 6f 6c 6c 6f 77 69 ling the followi
11940 6e 67 20 54 43 4c 20 73 63 72 69 70 74 3a 0a 2a ng TCL script:.*
11950 2a 0a 2a 2a 20 20 20 22 74 65 73 74 5f 66 75 6e *.** "test_fun
11960 63 74 69 6f 6e 20 3c 65 6e 63 3e 20 3c 61 72 67 ction <enc> <arg
11970 3e 22 0a 2a 2a 0a 2a 2a 20 57 68 65 72 65 20 3c >".**.** Where <
11980 65 6e 63 3e 20 69 73 20 6f 6e 65 20 6f 66 20 55 enc> is one of U
11990 54 46 2d 38 2c 20 55 54 46 2d 31 36 4c 45 20 6f TF-8, UTF-16LE o
119a0 72 20 55 54 46 31 36 42 45 2c 20 61 6e 64 20 3c r UTF16BE, and <
119b0 61 72 67 3e 20 69 73 20 74 68 65 0a 2a 2a 20 73 arg> is the.** s
119c0 69 6e 67 6c 65 20 61 72 67 75 6d 65 6e 74 20 70 ingle argument p
119d0 61 73 73 65 64 20 74 6f 20 74 68 65 20 53 51 4c assed to the SQL
119e0 20 66 75 6e 63 74 69 6f 6e 2e 20 54 68 65 20 76 function. The v
119f0 61 6c 75 65 20 72 65 74 75 72 6e 65 64 20 62 79 alue returned by
11a00 0a 2a 2a 20 74 68 65 20 54 43 4c 20 73 63 72 69 .** the TCL scri
11a10 70 74 20 69 73 20 75 73 65 64 20 61 73 20 74 68 pt is used as th
11a20 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 6f e return value o
11a30 66 20 74 68 65 20 53 51 4c 20 66 75 6e 63 74 69 f the SQL functi
11a40 6f 6e 2e 20 49 74 0a 2a 2a 20 69 73 20 70 61 73 on. It.** is pas
11a50 73 65 64 20 74 6f 20 53 51 4c 69 74 65 20 75 73 sed to SQLite us
11a60 69 6e 67 20 55 54 46 2d 31 36 42 45 20 66 6f 72 ing UTF-16BE for
11a70 20 61 20 55 54 46 2d 38 20 74 65 73 74 5f 66 75 a UTF-8 test_fu
11a80 6e 63 74 69 6f 6e 28 29 2c 20 55 54 46 2d 38 0a nction(), UTF-8.
11a90 2a 2a 20 66 6f 72 20 61 20 55 54 46 2d 31 36 4c ** for a UTF-16L
11aa0 45 20 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 28 E test_function(
11ab0 29 2c 20 61 6e 64 20 55 54 46 2d 31 36 4c 45 20 ), and UTF-16LE
11ac0 66 6f 72 20 61 6e 20 69 6d 70 6c 65 6d 65 6e 74 for an implement
11ad0 61 74 69 6f 6e 20 74 68 61 74 0a 2a 2a 20 70 72 ation that.** pr
11ae0 65 66 65 72 73 20 55 54 46 2d 31 36 42 45 2e 0a efers UTF-16BE..
11af0 2a 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 */.#ifndef SQLIT
11b00 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 73 74 61 E_OMIT_UTF16.sta
11b10 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f 66 75 tic void test_fu
11b20 6e 63 74 69 6f 6e 5f 75 74 66 38 28 0a 20 20 73 nction_utf8(. s
11b30 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
11b40 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 pCtx, . int nAr
11b50 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c g,. sqlite3_val
11b60 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 54 ue **argv.){. T
11b70 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
11b80 70 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 58 p;. Tcl_Obj *pX
11b90 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ;. sqlite3_valu
11ba0 65 20 2a 70 56 61 6c 3b 0a 20 20 69 6e 74 65 72 e *pVal;. inter
11bb0 70 20 3d 20 28 54 63 6c 5f 49 6e 74 65 72 70 20 p = (Tcl_Interp
11bc0 2a 29 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 *)sqlite3_user_d
11bd0 61 74 61 28 70 43 74 78 29 3b 0a 20 20 70 58 20 ata(pCtx);. pX
11be0 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f = Tcl_NewStringO
11bf0 62 6a 28 22 74 65 73 74 5f 66 75 6e 63 74 69 6f bj("test_functio
11c00 6e 22 2c 20 2d 31 29 3b 0a 20 20 54 63 6c 5f 49 n", -1);. Tcl_I
11c10 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 3b ncrRefCount(pX);
11c20 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 . Tcl_ListObjAp
11c30 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
11c40 72 70 2c 20 70 58 2c 20 54 63 6c 5f 4e 65 77 53 rp, pX, Tcl_NewS
11c50 74 72 69 6e 67 4f 62 6a 28 22 55 54 46 2d 38 22 tringObj("UTF-8"
11c60 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 , -1));. Tcl_Li
11c70 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
11c80 6e 74 28 69 6e 74 65 72 70 2c 20 70 58 2c 20 0a nt(interp, pX, .
11c90 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 Tcl_NewStr
11ca0 69 6e 67 4f 62 6a 28 28 63 68 61 72 2a 29 73 71 ingObj((char*)sq
11cb0 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
11cc0 28 61 72 67 76 5b 30 5d 29 2c 20 2d 31 29 29 3b (argv[0]), -1));
11cd0 0a 20 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 . Tcl_EvalObjEx
11ce0 28 69 6e 74 65 72 70 2c 20 70 58 2c 20 30 29 3b (interp, pX, 0);
11cf0 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f . Tcl_DecrRefCo
11d00 75 6e 74 28 70 58 29 3b 0a 20 20 73 71 6c 69 74 unt(pX);. sqlit
11d10 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 70 e3_result_text(p
11d20 43 74 78 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 Ctx, Tcl_GetStri
11d30 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 ngResult(interp)
11d40 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 , -1, SQLITE_TRA
11d50 4e 53 49 45 4e 54 29 3b 0a 20 20 70 56 61 6c 20 NSIENT);. pVal
11d60 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 = sqlite3ValueNe
11d70 77 28 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 56 w(0);. sqlite3V
11d80 61 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c 2c alueSetStr(pVal,
11d90 20 2d 31 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 -1, Tcl_GetStri
11da0 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 ngResult(interp)
11db0 2c 20 0a 20 20 20 20 20 20 53 51 4c 49 54 45 5f , . SQLITE_
11dc0 55 54 46 38 2c 20 53 51 4c 49 54 45 5f 53 54 41 UTF8, SQLITE_STA
11dd0 54 49 43 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f TIC);. sqlite3_
11de0 72 65 73 75 6c 74 5f 74 65 78 74 31 36 62 65 28 result_text16be(
11df0 70 43 74 78 2c 20 73 71 6c 69 74 65 33 5f 76 61 pCtx, sqlite3_va
11e00 6c 75 65 5f 74 65 78 74 31 36 62 65 28 70 56 61 lue_text16be(pVa
11e10 6c 29 2c 0a 20 20 20 20 20 20 2d 31 2c 20 53 51 l),. -1, SQ
11e20 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b LITE_TRANSIENT);
11e30 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 46 . sqlite3ValueF
11e40 72 65 65 28 70 56 61 6c 29 3b 0a 7d 0a 73 74 61 ree(pVal);.}.sta
11e50 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f 66 75 tic void test_fu
11e60 6e 63 74 69 6f 6e 5f 75 74 66 31 36 6c 65 28 0a nction_utf16le(.
11e70 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
11e80 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 t *pCtx, . int
11e90 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f nArg,. sqlite3_
11ea0 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
11eb0 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
11ec0 74 65 72 70 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 terp;. Tcl_Obj
11ed0 2a 70 58 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 *pX;. sqlite3_v
11ee0 61 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 20 69 6e alue *pVal;. in
11ef0 74 65 72 70 20 3d 20 28 54 63 6c 5f 49 6e 74 65 terp = (Tcl_Inte
11f00 72 70 20 2a 29 73 71 6c 69 74 65 33 5f 75 73 65 rp *)sqlite3_use
11f10 72 5f 64 61 74 61 28 70 43 74 78 29 3b 0a 20 20 r_data(pCtx);.
11f20 70 58 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 pX = Tcl_NewStri
11f30 6e 67 4f 62 6a 28 22 74 65 73 74 5f 66 75 6e 63 ngObj("test_func
11f40 74 69 6f 6e 22 2c 20 2d 31 29 3b 0a 20 20 54 63 tion", -1);. Tc
11f50 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 l_IncrRefCount(p
11f60 58 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 X);. Tcl_ListOb
11f70 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
11f80 6e 74 65 72 70 2c 20 70 58 2c 20 54 63 6c 5f 4e nterp, pX, Tcl_N
11f90 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 55 54 46 ewStringObj("UTF
11fa0 2d 31 36 4c 45 22 2c 20 2d 31 29 29 3b 0a 20 20 -16LE", -1));.
11fb0 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
11fc0 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
11fd0 20 70 58 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f pX, . Tcl_
11fe0 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 68 NewStringObj((ch
11ff0 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 ar*)sqlite3_valu
12000 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 2c e_text(argv[0]),
12010 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 45 76 61 -1));. Tcl_Eva
12020 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 70 lObjEx(interp, p
12030 58 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 44 65 63 X, 0);. Tcl_Dec
12040 72 52 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a 20 rRefCount(pX);.
12050 20 70 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 56 pVal = sqlite3V
12060 61 6c 75 65 4e 65 77 28 30 29 3b 0a 20 20 73 71 alueNew(0);. sq
12070 6c 69 74 65 33 56 61 6c 75 65 53 65 74 53 74 72 lite3ValueSetStr
12080 28 70 56 61 6c 2c 20 2d 31 2c 20 54 63 6c 5f 47 (pVal, -1, Tcl_G
12090 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 etStringResult(i
120a0 6e 74 65 72 70 29 2c 20 0a 20 20 20 20 20 20 53 nterp), . S
120b0 51 4c 49 54 45 5f 55 54 46 38 2c 20 53 51 4c 49 QLITE_UTF8, SQLI
120c0 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 73 71 TE_STATIC);. sq
120d0 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
120e0 74 28 70 43 74 78 2c 28 63 68 61 72 2a 29 73 71 t(pCtx,(char*)sq
120f0 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
12100 28 70 56 61 6c 29 2c 2d 31 2c 53 51 4c 49 54 45 (pVal),-1,SQLITE
12110 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 73 _TRANSIENT);. s
12120 71 6c 69 74 65 33 56 61 6c 75 65 46 72 65 65 28 qlite3ValueFree(
12130 70 56 61 6c 29 3b 0a 7d 0a 73 74 61 74 69 63 20 pVal);.}.static
12140 76 6f 69 64 20 74 65 73 74 5f 66 75 6e 63 74 69 void test_functi
12150 6f 6e 5f 75 74 66 31 36 62 65 28 0a 20 20 73 71 on_utf16be(. sq
12160 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 lite3_context *p
12170 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 Ctx, . int nArg
12180 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ,. sqlite3_valu
12190 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 54 63 e **argv.){. Tc
121a0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
121b0 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 58 3b ;. Tcl_Obj *pX;
121c0 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
121d0 20 2a 70 56 61 6c 3b 0a 20 20 69 6e 74 65 72 70 *pVal;. interp
121e0 20 3d 20 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a = (Tcl_Interp *
121f0 29 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 )sqlite3_user_da
12200 74 61 28 70 43 74 78 29 3b 0a 20 20 70 58 20 3d ta(pCtx);. pX =
12210 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
12220 6a 28 22 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e j("test_function
12230 22 2c 20 2d 31 29 3b 0a 20 20 54 63 6c 5f 49 6e ", -1);. Tcl_In
12240 63 72 52 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a crRefCount(pX);.
12250 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
12260 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
12270 70 2c 20 70 58 2c 20 54 63 6c 5f 4e 65 77 53 74 p, pX, Tcl_NewSt
12280 72 69 6e 67 4f 62 6a 28 22 55 54 46 2d 31 36 42 ringObj("UTF-16B
12290 45 22 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f E", -1));. Tcl_
122a0 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
122b0 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 58 2c ment(interp, pX,
122c0 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 . Tcl_NewS
122d0 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 72 2a 29 tringObj((char*)
122e0 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
122f0 78 74 28 61 72 67 76 5b 30 5d 29 2c 20 2d 31 29 xt(argv[0]), -1)
12300 29 3b 0a 20 20 54 63 6c 5f 45 76 61 6c 4f 62 6a );. Tcl_EvalObj
12310 45 78 28 69 6e 74 65 72 70 2c 20 70 58 2c 20 30 Ex(interp, pX, 0
12320 29 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 );. Tcl_DecrRef
12330 43 6f 75 6e 74 28 70 58 29 3b 0a 20 20 70 56 61 Count(pX);. pVa
12340 6c 20 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65 l = sqlite3Value
12350 4e 65 77 28 30 29 3b 0a 20 20 73 71 6c 69 74 65 New(0);. sqlite
12360 33 56 61 6c 75 65 53 65 74 53 74 72 28 70 56 61 3ValueSetStr(pVa
12370 6c 2c 20 2d 31 2c 20 54 63 6c 5f 47 65 74 53 74 l, -1, Tcl_GetSt
12380 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 ringResult(inter
12390 70 29 2c 20 0a 20 20 20 20 20 20 53 51 4c 49 54 p), . SQLIT
123a0 45 5f 55 54 46 38 2c 20 53 51 4c 49 54 45 5f 53 E_UTF8, SQLITE_S
123b0 54 41 54 49 43 29 3b 0a 20 20 73 71 6c 69 74 65 TATIC);. sqlite
123c0 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 28 3_result_text16(
123d0 70 43 74 78 2c 20 73 71 6c 69 74 65 33 5f 76 61 pCtx, sqlite3_va
123e0 6c 75 65 5f 74 65 78 74 31 36 6c 65 28 70 56 61 lue_text16le(pVa
123f0 6c 29 2c 0a 20 20 20 20 20 20 2d 31 2c 20 53 51 l),. -1, SQ
12400 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b LITE_TRANSIENT);
12410 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c . sqlite3_resul
12420 74 5f 74 65 78 74 31 36 62 65 28 70 43 74 78 2c t_text16be(pCtx,
12430 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
12440 65 78 74 31 36 6c 65 28 70 56 61 6c 29 2c 0a 20 ext16le(pVal),.
12450 20 20 20 20 20 2d 31 2c 20 53 51 4c 49 54 45 5f -1, SQLITE_
12460 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 73 71 TRANSIENT);. sq
12470 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
12480 74 31 36 6c 65 28 70 43 74 78 2c 20 73 71 6c 69 t16le(pCtx, sqli
12490 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 te3_value_text16
124a0 6c 65 28 70 56 61 6c 29 2c 0a 20 20 20 20 20 20 le(pVal),.
124b0 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 -1, SQLITE_TRANS
124c0 49 45 4e 54 29 3b 0a 20 20 73 71 6c 69 74 65 33 IENT);. sqlite3
124d0 56 61 6c 75 65 46 72 65 65 28 70 56 61 6c 29 3b ValueFree(pVal);
124e0 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c .}.#endif /* SQL
124f0 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 2a ITE_OMIT_UTF16 *
12500 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
12510 74 5f 66 75 6e 63 74 69 6f 6e 28 0a 20 20 76 6f t_function(. vo
12520 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
12530 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
12540 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
12550 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
12560 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 NST objv[].){.#i
12570 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
12580 54 5f 55 54 46 31 36 0a 20 20 73 71 6c 69 74 65 T_UTF16. sqlite
12590 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 76 61 6c 3 *db;. int val
125a0 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 ;.. if( objc!=5
125b0 20 29 20 67 6f 74 6f 20 62 61 64 5f 61 72 67 73 ) goto bad_args
125c0 3b 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 ;. if( getDbPoi
125d0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
125e0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
125f0 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 1]), &db) ) retu
12600 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
12610 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c if( TCL_OK!=Tcl
12620 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f _GetBooleanFromO
12630 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
12640 32 5d 2c 20 26 76 61 6c 29 20 29 20 72 65 74 75 2], &val) ) retu
12650 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
12660 69 66 28 20 76 61 6c 20 29 7b 0a 20 20 20 20 73 if( val ){. s
12670 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
12680 6e 63 74 69 6f 6e 28 64 62 2c 20 22 74 65 73 74 nction(db, "test
12690 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 31 2c 20 53 _function", 1, S
126a0 51 4c 49 54 45 5f 55 54 46 38 2c 20 0a 20 20 20 QLITE_UTF8, .
126b0 20 20 20 20 20 69 6e 74 65 72 70 2c 20 74 65 73 interp, tes
126c0 74 5f 66 75 6e 63 74 69 6f 6e 5f 75 74 66 38 2c t_function_utf8,
126d0 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 0, 0);. }. if
126e0 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 ( TCL_OK!=Tcl_Ge
126f0 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 tBooleanFromObj(
12700 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c interp, objv[3],
12710 20 26 76 61 6c 29 20 29 20 72 65 74 75 72 6e 20 &val) ) return
12720 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
12730 20 76 61 6c 20 29 7b 0a 20 20 20 20 73 71 6c 69 val ){. sqli
12740 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 te3_create_funct
12750 69 6f 6e 28 64 62 2c 20 22 74 65 73 74 5f 66 75 ion(db, "test_fu
12760 6e 63 74 69 6f 6e 22 2c 20 31 2c 20 53 51 4c 49 nction", 1, SQLI
12770 54 45 5f 55 54 46 31 36 4c 45 2c 20 0a 20 20 20 TE_UTF16LE, .
12780 20 20 20 20 20 69 6e 74 65 72 70 2c 20 74 65 73 interp, tes
12790 74 5f 66 75 6e 63 74 69 6f 6e 5f 75 74 66 31 36 t_function_utf16
127a0 6c 65 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 le, 0, 0);. }.
127b0 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c if( TCL_OK!=Tcl
127c0 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f _GetBooleanFromO
127d0 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
127e0 34 5d 2c 20 26 76 61 6c 29 20 29 20 72 65 74 75 4], &val) ) retu
127f0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
12800 69 66 28 20 76 61 6c 20 29 7b 0a 20 20 20 20 73 if( val ){. s
12810 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
12820 6e 63 74 69 6f 6e 28 64 62 2c 20 22 74 65 73 74 nction(db, "test
12830 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 31 2c 20 53 _function", 1, S
12840 51 4c 49 54 45 5f 55 54 46 31 36 42 45 2c 20 0a QLITE_UTF16BE, .
12850 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 2c 20 interp,
12860 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 5f 75 74 test_function_ut
12870 66 31 36 62 65 2c 20 30 2c 20 30 29 3b 0a 20 20 f16be, 0, 0);.
12880 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f }.. return TCL_
12890 4f 4b 3b 0a 62 61 64 5f 61 72 67 73 3a 0a 20 20 OK;.bad_args:.
128a0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
128b0 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
128c0 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
128d0 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 54 63 6c e \"",. Tcl
128e0 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
128f0 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 j(objv[0], 0), "
12900 20 3c 44 42 3e 20 3c 75 74 66 38 3e 20 3c 75 74 <DB> <utf8> <ut
12910 66 31 36 6c 65 3e 20 3c 75 74 66 31 36 62 65 3e f16le> <utf16be>
12920 22 2c 20 30 29 3b 0a 23 65 6e 64 69 66 20 2f 2a ", 0);.#endif /*
12930 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 SQLITE_OMIT_UTF
12940 31 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 16 */. return T
12950 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a CL_ERROR;.}../*.
12960 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 20 20 20 ** Usage:
12970 20 20 74 65 73 74 5f 65 72 72 73 74 72 20 3c 65 test_errstr <e
12980 72 72 20 63 6f 64 65 3e 0a 2a 2a 0a 2a 2a 20 54 rr code>.**.** T
12990 65 73 74 20 74 68 61 74 20 74 68 65 20 65 6e 67 est that the eng
129a0 6c 69 73 68 20 6c 61 6e 67 75 61 67 65 20 73 74 lish language st
129b0 72 69 6e 67 20 65 71 75 69 76 61 6c 65 6e 74 73 ring equivalents
129c0 20 66 6f 72 20 73 71 6c 69 74 65 20 65 72 72 6f for sqlite erro
129d0 72 20 63 6f 64 65 73 0a 2a 2a 20 61 72 65 20 73 r codes.** are s
129e0 61 6e 65 2e 20 54 68 65 20 70 61 72 61 6d 65 74 ane. The paramet
129f0 65 72 20 69 73 20 61 6e 20 69 6e 74 65 67 65 72 er is an integer
12a00 20 72 65 70 72 65 73 65 6e 74 69 6e 67 20 61 6e representing an
12a10 20 73 71 6c 69 74 65 20 65 72 72 6f 72 20 63 6f sqlite error co
12a20 64 65 2e 0a 2a 2a 20 54 68 65 20 72 65 73 75 6c de..** The resul
12a30 74 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 74 t is a list of t
12a40 77 6f 20 65 6c 65 6d 65 6e 74 73 2c 20 74 68 65 wo elements, the
12a50 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e string represen
12a60 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 0a 2a 2a tation of the.**
12a70 20 65 72 72 6f 72 20 63 6f 64 65 20 61 6e 64 20 error code and
12a80 74 68 65 20 65 6e 67 6c 69 73 68 20 6c 61 6e 67 the english lang
12a90 75 61 67 65 20 65 78 70 6c 61 6e 61 74 69 6f 6e uage explanation
12aa0 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
12ab0 74 65 73 74 5f 65 72 72 73 74 72 28 0a 20 20 76 test_errstr(. v
12ac0 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
12ad0 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
12ae0 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
12af0 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
12b00 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
12b10 20 63 68 61 72 20 2a 7a 43 6f 64 65 3b 0a 20 20 char *zCode;.
12b20 69 6e 74 20 69 3b 0a 20 20 69 66 28 20 6f 62 6a int i;. if( obj
12b30 63 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=1 ){. Tcl_
12b40 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
12b50 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3c erp, 1, objv, "<
12b60 65 72 72 6f 72 20 63 6f 64 65 3e 22 29 3b 0a 20 error code>");.
12b70 20 7d 0a 0a 20 20 7a 43 6f 64 65 20 3d 20 54 63 }.. zCode = Tc
12b80 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
12b90 5b 31 5d 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b [1]);. for(i=0;
12ba0 20 69 3c 32 30 30 3b 20 69 2b 2b 29 7b 0a 20 20 i<200; i++){.
12bb0 20 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 if( 0==strcmp(
12bc0 74 31 45 72 72 6f 72 4e 61 6d 65 28 69 29 2c 20 t1ErrorName(i),
12bd0 7a 43 6f 64 65 29 20 29 20 62 72 65 61 6b 3b 0a zCode) ) break;.
12be0 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 }. Tcl_SetRes
12bf0 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 ult(interp, (cha
12c00 72 20 2a 29 73 71 6c 69 74 65 33 45 72 72 53 74 r *)sqlite3ErrSt
12c10 72 28 69 29 2c 20 30 29 3b 0a 20 20 72 65 74 75 r(i), 0);. retu
12c20 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
12c30 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 62 72 .** Usage: br
12c40 65 61 6b 70 6f 69 6e 74 0a 2a 2a 0a 2a 2a 20 54 eakpoint.**.** T
12c50 68 69 73 20 72 6f 75 74 69 6e 65 20 65 78 69 73 his routine exis
12c60 74 73 20 66 6f 72 20 6f 6e 65 20 70 75 72 70 6f ts for one purpo
12c70 73 65 20 2d 20 74 6f 20 70 72 6f 76 69 64 65 20 se - to provide
12c80 61 20 70 6c 61 63 65 20 74 6f 20 70 75 74 20 61 a place to put a
12c90 0a 2a 2a 20 62 72 65 61 6b 70 6f 69 6e 74 20 77 .** breakpoint w
12ca0 69 74 68 20 47 44 42 20 74 68 61 74 20 63 61 6e ith GDB that can
12cb0 20 62 65 20 74 72 69 67 67 65 72 65 64 20 75 73 be triggered us
12cc0 69 6e 67 20 54 43 4c 20 63 6f 64 65 2e 20 20 54 ing TCL code. T
12cd0 68 65 20 75 73 65 0a 2a 2a 20 66 6f 72 20 74 68 he use.** for th
12ce0 69 73 20 69 73 20 77 68 65 6e 20 61 20 70 61 72 is is when a par
12cf0 74 69 63 75 6c 61 72 20 74 65 73 74 20 66 61 69 ticular test fai
12d00 6c 73 20 6f 6e 20 28 73 61 79 29 20 74 68 65 20 ls on (say) the
12d10 31 34 38 35 74 68 20 69 74 65 72 61 74 69 6f 6e 1485th iteration
12d20 2e 0a 2a 2a 20 49 6e 20 74 68 65 20 54 43 4c 20 ..** In the TCL
12d30 74 65 73 74 20 73 63 72 69 70 74 2c 20 77 65 20 test script, we
12d40 63 61 6e 20 61 64 64 20 63 6f 64 65 20 6c 69 6b can add code lik
12d50 65 20 74 68 69 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 e this:.**.**
12d60 20 20 69 66 20 7b 24 69 3d 3d 31 34 38 35 7d 20 if {$i==1485}
12d70 62 72 65 61 6b 70 6f 69 6e 74 0a 2a 2a 0a 2a 2a breakpoint.**.**
12d80 20 54 68 65 6e 20 72 75 6e 20 74 65 73 74 66 69 Then run testfi
12d90 78 74 75 72 65 20 69 6e 20 74 68 65 20 64 65 62 xture in the deb
12da0 75 67 67 65 72 20 61 6e 64 20 77 61 69 74 20 66 ugger and wait f
12db0 6f 72 20 74 68 65 20 62 72 65 61 6b 70 6f 69 6e or the breakpoin
12dc0 74 20 74 6f 0a 2a 2a 20 66 69 72 65 2e 20 20 54 t to.** fire. T
12dd0 68 65 6e 20 61 64 64 69 74 69 6f 6e 61 6c 20 62 hen additional b
12de0 72 65 61 6b 70 6f 69 6e 74 73 20 63 61 6e 20 62 reakpoints can b
12df0 65 20 73 65 74 20 74 6f 20 74 72 61 63 65 20 64 e set to trace d
12e00 6f 77 6e 20 74 68 65 20 62 75 67 2e 0a 2a 2f 0a own the bug..*/.
12e10 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
12e20 62 72 65 61 6b 70 6f 69 6e 74 28 0a 20 20 76 6f breakpoint(. vo
12e30 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
12e40 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
12e50 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
12e60 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
12e70 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
12e80 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
12e90 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
12ea0 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
12eb0 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
12ec0 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
12ed0 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
12ee0 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
12ef0 2f 0a 29 7b 0a 20 20 72 65 74 75 72 6e 20 54 43 /.){. return TC
12f00 4c 5f 4f 4b 3b 20 20 20 20 20 20 20 20 20 2f 2a L_OK; /*
12f10 20 44 6f 20 6e 6f 74 68 69 6e 67 20 2a 2f 0a 7d Do nothing */.}
12f20 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
12f30 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 7a 65 sqlite3_bind_ze
12f40 72 6f 62 6c 6f 62 20 20 53 54 4d 54 20 49 44 58 roblob STMT IDX
12f50 20 4e 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 N.**.** Test th
12f60 65 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 7a e sqlite3_bind_z
12f70 65 72 6f 62 6c 6f 62 20 69 6e 74 65 72 66 61 63 eroblob interfac
12f80 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 72 e. STMT is a pr
12f90 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 epared statement
12fa0 2e 0a 2a 2a 20 49 44 58 20 69 73 20 74 68 65 20 ..** IDX is the
12fb0 69 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 index of a wildc
12fc0 61 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 ard in the prepa
12fd0 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 red statement.
12fe0 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 This command.**
12ff0 62 69 6e 64 73 20 61 20 4e 2d 62 79 74 65 20 7a binds a N-byte z
13000 65 72 6f 2d 66 69 6c 6c 65 64 20 42 4c 4f 42 20 ero-filled BLOB
13010 74 6f 20 74 68 65 20 77 69 6c 64 63 61 72 64 2e to the wildcard.
13020 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
13030 65 73 74 5f 62 69 6e 64 5f 7a 65 72 6f 62 6c 6f est_bind_zeroblo
13040 62 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 b(. void * clie
13050 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
13060 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
13070 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
13080 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
13090 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 ].){. sqlite3_s
130a0 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e tmt *pStmt;. in
130b0 74 20 69 64 78 3b 0a 20 20 69 6e 74 20 6e 3b 0a t idx;. int n;.
130c0 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 int rc;.. if(
130d0 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 objc!=4 ){.
130e0 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
130f0 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
13100 2c 20 22 53 54 4d 54 20 49 44 58 20 4e 22 29 3b , "STMT IDX N");
13110 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
13120 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 ERROR;. }.. if
13130 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 ( getStmtPointer
13140 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
13150 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
13160 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 &pStmt) ) retur
13170 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
13180 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
13190 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
131a0 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 v[2], &idx) ) re
131b0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
131c0 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
131d0 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
131e0 6f 62 6a 76 5b 33 5d 2c 20 26 6e 29 20 29 20 72 objv[3], &n) ) r
131f0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
13200 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 .. rc = sqlite3
13210 5f 62 69 6e 64 5f 7a 65 72 6f 62 6c 6f 62 28 70 _bind_zeroblob(p
13220 53 74 6d 74 2c 20 69 64 78 2c 20 6e 29 3b 0a 20 Stmt, idx, n);.
13230 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
13240 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
13250 53 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 2c StmtToDb(pStmt),
13260 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 rc) ) return TC
13270 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 L_ERROR;. if( r
13280 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a c!=SQLITE_OK ){.
13290 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
132a0 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 RROR;. }.. ret
132b0 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
132c0 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 *.** Usage: sq
132d0 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 20 20 lite3_bind_int
132e0 53 54 4d 54 20 4e 20 56 41 4c 55 45 0a 2a 2a 0a STMT N VALUE.**.
132f0 2a 2a 20 54 65 73 74 20 74 68 65 20 73 71 6c 69 ** Test the sqli
13300 74 65 33 5f 62 69 6e 64 5f 69 6e 74 20 69 6e 74 te3_bind_int int
13310 65 72 66 61 63 65 2e 20 20 53 54 4d 54 20 69 73 erface. STMT is
13320 20 61 20 70 72 65 70 61 72 65 64 20 73 74 61 74 a prepared stat
13330 65 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 ement..** N is t
13340 68 65 20 69 6e 64 65 78 20 6f 66 20 61 20 77 69 he index of a wi
13350 6c 64 63 61 72 64 20 69 6e 20 74 68 65 20 70 72 ldcard in the pr
13360 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 epared statement
13370 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a . This command.
13380 2a 2a 20 62 69 6e 64 73 20 61 20 33 32 2d 62 69 ** binds a 32-bi
13390 74 20 69 6e 74 65 67 65 72 20 56 41 4c 55 45 20 t integer VALUE
133a0 74 6f 20 74 68 61 74 20 77 69 6c 64 63 61 72 64 to that wildcard
133b0 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
133c0 74 65 73 74 5f 62 69 6e 64 5f 69 6e 74 28 0a 20 test_bind_int(.
133d0 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
133e0 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
133f0 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
13400 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
13410 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
13420 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
13430 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 *pStmt;. int id
13440 78 3b 0a 20 20 69 6e 74 20 76 61 6c 75 65 3b 0a x;. int value;.
13450 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 int rc;.. if(
13460 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 objc!=4 ){.
13470 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
13480 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
13490 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
134a0 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 e \"",. T
134b0 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
134c0 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c Obj(objv[0], 0),
134d0 20 22 20 53 54 4d 54 20 4e 20 56 41 4c 55 45 22 " STMT N VALUE"
134e0 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
134f0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
13500 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f . if( getStmtPo
13510 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
13520 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
13530 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 [1]), &pStmt) )
13540 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
13550 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 ;. if( Tcl_GetI
13560 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
13570 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 , objv[2], &idx)
13580 20 29 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 69 66 28 20 54 63 6c 5f 47 ROR;. if( Tcl_G
135a0 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
135b0 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 erp, objv[3], &v
135c0 61 6c 75 65 29 20 29 20 72 65 74 75 72 6e 20 54 alue) ) return T
135d0 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 CL_ERROR;.. rc
135e0 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 = sqlite3_bind_i
135f0 6e 74 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 76 nt(pStmt, idx, v
13600 61 6c 75 65 29 3b 0a 20 20 69 66 28 20 73 71 6c alue);. if( sql
13610 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 ite3TestErrCode(
13620 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 interp, StmtToDb
13630 28 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 72 (pStmt), rc) ) r
13640 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
13650 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 . if( rc!=SQLIT
13660 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 E_OK ){. retu
13670 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
13680 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f }.. return TCL_
13690 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 OK;.}.../*.** Us
136a0 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 age: sqlite3_b
136b0 69 6e 64 5f 69 6e 74 36 34 20 20 53 54 4d 54 20 ind_int64 STMT
136c0 4e 20 56 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 65 N VALUE.**.** Te
136d0 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62 st the sqlite3_b
136e0 69 6e 64 5f 69 6e 74 36 34 20 69 6e 74 65 72 66 ind_int64 interf
136f0 61 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 ace. STMT is a
13700 70 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 prepared stateme
13710 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 nt..** N is the
13720 69 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 index of a wildc
13730 61 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 ard in the prepa
13740 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 red statement.
13750 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 This command.**
13760 62 69 6e 64 73 20 61 20 36 34 2d 62 69 74 20 69 binds a 64-bit i
13770 6e 74 65 67 65 72 20 56 41 4c 55 45 20 74 6f 20 nteger VALUE to
13780 74 68 61 74 20 77 69 6c 64 63 61 72 64 2e 0a 2a that wildcard..*
13790 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
137a0 74 5f 62 69 6e 64 5f 69 6e 74 36 34 28 0a 20 20 t_bind_int64(.
137b0 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
137c0 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
137d0 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
137e0 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
137f0 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
13800 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
13810 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 pStmt;. int idx
13820 3b 0a 20 20 69 36 34 20 76 61 6c 75 65 3b 0a 20 ;. i64 value;.
13830 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
13840 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 objc!=4 ){. T
13850 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
13860 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
13870 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
13880 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 \"",. Tc
13890 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
138a0 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 bj(objv[0], 0),
138b0 22 20 53 54 4d 54 20 4e 20 56 41 4c 55 45 22 2c " STMT N VALUE",
138c0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
138d0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
138e0 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
138f0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
13900 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
13910 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
13920 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
13930 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
13940 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
13950 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 objv[2], &idx)
13960 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
13970 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
13980 74 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 tWideIntFromObj(
13990 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c interp, objv[3],
139a0 20 26 76 61 6c 75 65 29 20 29 20 72 65 74 75 72 &value) ) retur
139b0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 n TCL_ERROR;..
139c0 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e rc = sqlite3_bin
139d0 64 5f 69 6e 74 36 34 28 70 53 74 6d 74 2c 20 69 d_int64(pStmt, i
139e0 64 78 2c 20 76 61 6c 75 65 29 3b 0a 20 20 69 66 dx, value);. if
139f0 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 ( sqlite3TestErr
13a00 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 74 6d Code(interp, Stm
13a10 74 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 63 tToDb(pStmt), rc
13a20 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
13a30 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 21 3d RROR;. if( rc!=
13a40 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
13a50 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
13a60 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e R;. }.. return
13a70 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a TCL_OK;.}.../*.
13a80 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 ** Usage: sqli
13a90 74 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 20 te3_bind_double
13aa0 20 53 54 4d 54 20 4e 20 56 41 4c 55 45 0a 2a 2a STMT N VALUE.**
13ab0 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 73 71 6c .** Test the sql
13ac0 69 74 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 ite3_bind_double
13ad0 20 69 6e 74 65 72 66 61 63 65 2e 20 20 53 54 4d interface. STM
13ae0 54 20 69 73 20 61 20 70 72 65 70 61 72 65 64 20 T is a prepared
13af0 73 74 61 74 65 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 statement..** N
13b00 69 73 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 is the index of
13b10 61 20 77 69 6c 64 63 61 72 64 20 69 6e 20 74 68 a wildcard in th
13b20 65 20 70 72 65 70 61 72 65 64 20 73 74 61 74 65 e prepared state
13b30 6d 65 6e 74 2e 20 20 54 68 69 73 20 63 6f 6d 6d ment. This comm
13b40 61 6e 64 0a 2a 2a 20 62 69 6e 64 73 20 61 20 36 and.** binds a 6
13b50 34 2d 62 69 74 20 69 6e 74 65 67 65 72 20 56 41 4-bit integer VA
13b60 4c 55 45 20 74 6f 20 74 68 61 74 20 77 69 6c 64 LUE to that wild
13b70 63 61 72 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 card..*/.static
13b80 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 64 6f int test_bind_do
13b90 75 62 6c 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 uble(. void * c
13ba0 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
13bb0 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
13bc0 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
13bd0 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
13be0 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
13bf0 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
13c00 20 69 6e 74 20 69 64 78 3b 0a 20 20 64 6f 75 62 int idx;. doub
13c10 6c 65 20 76 61 6c 75 65 3b 0a 20 20 69 6e 74 20 le value;. int
13c20 72 63 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 rc;. const char
13c30 20 2a 7a 56 61 6c 3b 0a 20 20 69 6e 74 20 69 3b *zVal;. int i;
13c40 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 . static const
13c50 73 74 72 75 63 74 20 7b 0a 20 20 20 20 63 6f 6e struct {. con
13c60 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 20 st char *zName;
13c70 20 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 /* Name of t
13c80 68 65 20 73 70 65 63 69 61 6c 20 66 6c 6f 61 74 he special float
13c90 69 6e 67 20 70 6f 69 6e 74 20 76 61 6c 75 65 20 ing point value
13ca0 2a 2f 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 */. unsigned
13cb0 69 6e 74 20 69 55 70 70 65 72 3b 20 20 20 2f 2a int iUpper; /*
13cc0 20 55 70 70 65 72 20 33 32 20 62 69 74 73 20 2a Upper 32 bits *
13cd0 2f 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 69 /. unsigned i
13ce0 6e 74 20 69 4c 6f 77 65 72 3b 20 20 20 2f 2a 20 nt iLower; /*
13cf0 4c 6f 77 65 72 20 33 32 20 62 69 74 73 20 2a 2f Lower 32 bits */
13d00 0a 20 20 7d 20 61 53 70 65 63 69 61 6c 46 70 5b . } aSpecialFp[
13d10 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 20 22 4e 61 ] = {. { "Na
13d20 4e 22 2c 20 20 20 20 20 20 30 78 37 66 66 66 66 N", 0x7ffff
13d30 66 66 66 2c 20 30 78 66 66 66 66 66 66 66 66 20 fff, 0xffffffff
13d40 7d 2c 0a 20 20 20 20 7b 20 20 22 53 4e 61 4e 22 },. { "SNaN"
13d50 2c 20 20 20 20 20 30 78 37 66 66 37 66 66 66 66 , 0x7ff7ffff
13d60 2c 20 30 78 66 66 66 66 66 66 66 66 20 7d 2c 0a , 0xffffffff },.
13d70 20 20 20 20 7b 20 20 22 2d 4e 61 4e 22 2c 20 20 { "-NaN",
13d80 20 20 20 30 78 66 66 66 66 66 66 66 66 2c 20 30 0xffffffff, 0
13d90 78 66 66 66 66 66 66 66 66 20 7d 2c 0a 20 20 20 xffffffff },.
13da0 20 7b 20 20 22 2d 53 4e 61 4e 22 2c 20 20 20 20 { "-SNaN",
13db0 30 78 66 66 66 37 66 66 66 66 2c 20 30 78 66 66 0xfff7ffff, 0xff
13dc0 66 66 66 66 66 66 20 7d 2c 0a 20 20 20 20 7b 20 ffffff },. {
13dd0 20 22 2b 49 6e 66 22 2c 20 20 20 20 20 30 78 37 "+Inf", 0x7
13de0 66 66 30 30 30 30 30 2c 20 30 78 30 30 30 30 30 ff00000, 0x00000
13df0 30 30 30 20 7d 2c 0a 20 20 20 20 7b 20 20 22 2d 000 },. { "-
13e00 49 6e 66 22 2c 20 20 20 20 20 30 78 66 66 66 30 Inf", 0xfff0
13e10 30 30 30 30 2c 20 30 78 30 30 30 30 30 30 30 30 0000, 0x00000000
13e20 20 7d 2c 0a 20 20 20 20 7b 20 20 22 45 70 73 69 },. { "Epsi
13e30 6c 6f 6e 22 2c 20 20 30 78 30 30 30 30 30 30 30 lon", 0x0000000
13e40 30 2c 20 30 78 30 30 30 30 30 30 30 31 20 7d 2c 0, 0x00000001 },
13e50 0a 20 20 20 20 7b 20 20 22 2d 45 70 73 69 6c 6f . { "-Epsilo
13e60 6e 22 2c 20 30 78 38 30 30 30 30 30 30 30 2c 20 n", 0x80000000,
13e70 30 78 30 30 30 30 30 30 30 31 20 7d 2c 0a 20 20 0x00000001 },.
13e80 20 20 7b 20 20 22 4e 61 4e 30 22 2c 20 20 20 20 { "NaN0",
13e90 20 30 78 37 66 66 38 30 30 30 30 2c 20 30 78 30 0x7ff80000, 0x0
13ea0 30 30 30 30 30 30 30 20 7d 2c 0a 20 20 20 20 7b 0000000 },. {
13eb0 20 20 22 2d 4e 61 4e 30 22 2c 20 20 20 20 30 78 "-NaN0", 0x
13ec0 66 66 66 38 30 30 30 30 2c 20 30 78 30 30 30 30 fff80000, 0x0000
13ed0 30 30 30 30 20 7d 2c 0a 20 20 7d 3b 0a 0a 20 20 0000 },. };..
13ee0 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 if( objc!=4 ){.
13ef0 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
13f00 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
13f10 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
13f20 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 d be \"",.
13f30 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 Tcl_GetStringF
13f40 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 romObj(objv[0],
13f50 30 29 2c 20 22 20 53 54 4d 54 20 4e 20 56 41 4c 0), " STMT N VAL
13f60 55 45 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 UE", 0);. ret
13f70 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
13f80 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d }.. if( getStm
13f90 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
13fa0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
13fb0 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 bjv[1]), &pStmt)
13fc0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
13fd0 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 ROR;. if( Tcl_G
13fe0 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
13ff0 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 erp, objv[2], &i
14000 64 78 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c dx) ) return TCL
14010 5f 45 52 52 4f 52 3b 0a 0a 20 20 2f 2a 20 49 6e _ERROR;.. /* In
14020 74 65 72 63 65 70 74 20 74 68 65 20 73 74 72 69 tercept the stri
14030 6e 67 20 22 4e 61 4e 22 20 61 6e 64 20 67 65 6e ng "NaN" and gen
14040 65 72 61 74 65 20 61 20 4e 61 4e 20 76 61 6c 75 erate a NaN valu
14050 65 20 66 6f 72 20 69 74 2e 0a 20 20 2a 2a 20 41 e for it.. ** A
14060 6c 6c 20 6f 74 68 65 72 20 73 74 72 69 6e 67 73 ll other strings
14070 20 61 72 65 20 70 61 73 73 65 64 20 74 68 72 6f are passed thro
14080 75 67 68 20 74 6f 20 54 63 6c 5f 47 65 74 44 6f ugh to Tcl_GetDo
14090 75 62 6c 65 46 72 6f 6d 4f 62 6a 28 29 2e 0a 20 ubleFromObj()..
140a0 20 2a 2a 20 54 63 6c 5f 47 65 74 44 6f 75 62 6c ** Tcl_GetDoubl
140b0 65 46 72 6f 6d 4f 62 6a 28 29 20 73 68 6f 75 6c eFromObj() shoul
140c0 64 20 75 6e 64 65 72 73 74 61 6e 64 20 22 4e 61 d understand "Na
140d0 4e 22 20 62 75 74 20 73 6f 6d 65 20 76 65 72 73 N" but some vers
140e0 69 6f 6e 73 0a 20 20 2a 2a 20 63 6f 6e 74 61 69 ions. ** contai
140f0 6e 20 61 20 62 75 67 2e 0a 20 20 2a 2f 0a 20 20 n a bug.. */.
14100 7a 56 61 6c 20 3d 20 54 63 6c 5f 47 65 74 53 74 zVal = Tcl_GetSt
14110 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 ring(objv[3]);.
14120 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 for(i=0; i<size
14130 6f 66 28 61 53 70 65 63 69 61 6c 46 70 29 2f 73 of(aSpecialFp)/s
14140 69 7a 65 6f 66 28 61 53 70 65 63 69 61 6c 46 70 izeof(aSpecialFp
14150 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 [0]); i++){.
14160 69 66 28 20 73 74 72 63 6d 70 28 61 53 70 65 63 if( strcmp(aSpec
14170 69 61 6c 46 70 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 ialFp[i].zName,
14180 7a 56 61 6c 29 3d 3d 30 20 29 7b 0a 20 20 20 20 zVal)==0 ){.
14190 20 20 73 71 6c 69 74 65 33 5f 75 69 6e 74 36 34 sqlite3_uint64
141a0 20 78 3b 0a 20 20 20 20 20 20 78 20 3d 20 61 53 x;. x = aS
141b0 70 65 63 69 61 6c 46 70 5b 69 5d 2e 69 55 70 70 pecialFp[i].iUpp
141c0 65 72 3b 0a 20 20 20 20 20 20 78 20 3c 3c 3d 20 er;. x <<=
141d0 33 32 3b 0a 20 20 20 20 20 20 78 20 7c 3d 20 61 32;. x |= a
141e0 53 70 65 63 69 61 6c 46 70 5b 69 5d 2e 69 4c 6f SpecialFp[i].iLo
141f0 77 65 72 3b 0a 20 20 20 20 20 20 61 73 73 65 72 wer;. asser
14200 74 28 20 73 69 7a 65 6f 66 28 76 61 6c 75 65 29 t( sizeof(value)
14210 3d 3d 38 20 29 3b 0a 20 20 20 20 20 20 61 73 73 ==8 );. ass
14220 65 72 74 28 20 73 69 7a 65 6f 66 28 78 29 3d 3d ert( sizeof(x)==
14230 38 20 29 3b 0a 20 20 20 20 20 20 6d 65 6d 63 70 8 );. memcp
14240 79 28 26 76 61 6c 75 65 2c 20 26 78 2c 20 38 29 y(&value, &x, 8)
14250 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
14260 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 69 }. }. if( i
14270 3e 3d 73 69 7a 65 6f 66 28 61 53 70 65 63 69 61 >=sizeof(aSpecia
14280 6c 46 70 29 2f 73 69 7a 65 6f 66 28 61 53 70 65 lFp)/sizeof(aSpe
14290 63 69 61 6c 46 70 5b 30 5d 29 20 26 26 0a 20 20 cialFp[0]) &&.
142a0 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 44 6f Tcl_GetDo
142b0 75 62 6c 65 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 ubleFromObj(inte
142c0 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 rp, objv[3], &va
142d0 6c 75 65 29 20 29 7b 0a 20 20 20 20 72 65 74 75 lue) ){. retu
142e0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
142f0 7d 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 }. rc = sqlite3
14300 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 28 70 53 74 _bind_double(pSt
14310 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 65 29 3b mt, idx, value);
14320 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 . if( sqlite3Te
14330 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 stErrCode(interp
14340 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 , StmtToDb(pStmt
14350 29 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 ), rc) ) return
14360 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
14370 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc!=SQLITE_OK )
14380 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
14390 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 _ERROR;. }.. r
143a0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
143b0 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 ./*.** Usage:
143c0 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 6e 75 6c sqlite3_bind_nul
143d0 6c 20 20 53 54 4d 54 20 4e 0a 2a 2a 0a 2a 2a 20 l STMT N.**.**
143e0 54 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 Test the sqlite3
143f0 5f 62 69 6e 64 5f 6e 75 6c 6c 20 69 6e 74 65 72 _bind_null inter
14400 66 61 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 face. STMT is a
14410 20 70 72 65 70 61 72 65 64 20 73 74 61 74 65 6d prepared statem
14420 65 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 ent..** N is the
14430 20 69 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 index of a wild
14440 63 61 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 card in the prep
14450 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 ared statement.
14460 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a This command.**
14470 20 62 69 6e 64 73 20 61 20 4e 55 4c 4c 20 74 6f binds a NULL to
14480 20 74 68 65 20 77 69 6c 64 63 61 72 64 2e 0a 2a the wildcard..*
14490 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
144a0 74 5f 62 69 6e 64 5f 6e 75 6c 6c 28 0a 20 20 76 t_bind_null(. v
144b0 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
144c0 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
144d0 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
144e0 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
144f0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
14500 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
14510 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b Stmt;. int idx;
14520 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 . int rc;.. if
14530 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 ( objc!=3 ){.
14540 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
14550 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
14560 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
14570 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 be \"",.
14580 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
14590 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 mObj(objv[0], 0)
145a0 2c 20 22 20 53 54 4d 54 20 4e 22 2c 20 30 29 3b , " STMT N", 0);
145b0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
145c0 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 ERROR;. }.. if
145d0 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 ( getStmtPointer
145e0 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
145f0 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
14600 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 &pStmt) ) retur
14610 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
14620 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
14630 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
14640 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 v[2], &idx) ) re
14650 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
14660 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
14670 62 69 6e 64 5f 6e 75 6c 6c 28 70 53 74 6d 74 2c bind_null(pStmt,
14680 20 69 64 78 29 3b 0a 20 20 69 66 28 20 73 71 6c idx);. if( sql
14690 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 ite3TestErrCode(
146a0 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 interp, StmtToDb
146b0 28 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 72 (pStmt), rc) ) r
146c0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
146d0 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 . if( rc!=SQLIT
146e0 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 E_OK ){. retu
146f0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
14700 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f }.. return TCL_
14710 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
14720 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 ge: sqlite3_bi
14730 6e 64 5f 74 65 78 74 20 20 53 54 4d 54 20 4e 20 nd_text STMT N
14740 53 54 52 49 4e 47 20 42 59 54 45 53 0a 2a 2a 0a STRING BYTES.**.
14750 2a 2a 20 54 65 73 74 20 74 68 65 20 73 71 6c 69 ** Test the sqli
14760 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 20 69 6e te3_bind_text in
14770 74 65 72 66 61 63 65 2e 20 20 53 54 4d 54 20 69 terface. STMT i
14780 73 20 61 20 70 72 65 70 61 72 65 64 20 73 74 61 s a prepared sta
14790 74 65 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 tement..** N is
147a0 74 68 65 20 69 6e 64 65 78 20 6f 66 20 61 20 77 the index of a w
147b0 69 6c 64 63 61 72 64 20 69 6e 20 74 68 65 20 70 ildcard in the p
147c0 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
147d0 74 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 t. This command
147e0 0a 2a 2a 20 62 69 6e 64 73 20 61 20 55 54 46 2d .** binds a UTF-
147f0 38 20 73 74 72 69 6e 67 20 53 54 52 49 4e 47 20 8 string STRING
14800 74 6f 20 74 68 65 20 77 69 6c 64 63 61 72 64 2e to the wildcard.
14810 20 20 54 68 65 20 73 74 72 69 6e 67 20 69 73 20 The string is
14820 42 59 54 45 53 20 62 79 74 65 73 0a 2a 2a 20 6c BYTES bytes.** l
14830 6f 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ong..*/.static i
14840 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 74 65 78 nt test_bind_tex
14850 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 t(. void * clie
14860 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
14870 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
14880 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
14890 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
148a0 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 ].){. sqlite3_s
148b0 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e tmt *pStmt;. in
148c0 74 20 69 64 78 3b 0a 20 20 69 6e 74 20 62 79 74 t idx;. int byt
148d0 65 73 3b 0a 20 20 63 68 61 72 20 2a 76 61 6c 75 es;. char *valu
148e0 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 e;. int rc;..
148f0 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 if( objc!=5 ){.
14900 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
14910 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
14920 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
14930 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 d be \"",.
14940 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 Tcl_GetStringF
14950 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 romObj(objv[0],
14960 30 29 2c 20 22 20 53 54 4d 54 20 4e 20 56 41 4c 0), " STMT N VAL
14970 55 45 20 42 59 54 45 53 22 2c 20 30 29 3b 0a 20 UE BYTES", 0);.
14980 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
14990 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
149a0 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
149b0 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
149c0 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
149d0 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
149e0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
149f0 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
14a00 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
14a10 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 2], &idx) ) retu
14a20 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
14a30 76 61 6c 75 65 20 3d 20 28 63 68 61 72 2a 29 54 value = (char*)T
14a40 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 cl_GetByteArrayF
14a50 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 romObj(objv[3],
14a60 26 62 79 74 65 73 29 3b 0a 20 20 69 66 28 20 54 &bytes);. if( T
14a70 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
14a80 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 5d (interp, objv[4]
14a90 2c 20 26 62 79 74 65 73 29 20 29 20 72 65 74 75 , &bytes) ) retu
14aa0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
14ab0 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 rc = sqlite3_bi
14ac0 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 2c 20 69 nd_text(pStmt, i
14ad0 64 78 2c 20 76 61 6c 75 65 2c 20 62 79 74 65 73 dx, value, bytes
14ae0 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
14af0 4e 54 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 NT);. if( sqlit
14b00 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e e3TestErrCode(in
14b10 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 terp, StmtToDb(p
14b20 53 74 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 Stmt), rc) ) ret
14b30 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
14b40 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f if( rc!=SQLITE_
14b50 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 OK ){. Tcl_Ap
14b60 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
14b70 70 2c 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 p, sqlite3TestEr
14b80 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b rorName(rc), 0);
14b90 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
14ba0 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 ERROR;. }.. re
14bb0 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
14bc0 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 /*.** Usage: s
14bd0 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 qlite3_bind_text
14be0 31 36 20 3f 2d 73 74 61 74 69 63 3f 20 53 54 4d 16 ?-static? STM
14bf0 54 20 4e 20 53 54 52 49 4e 47 20 42 59 54 45 53 T N STRING BYTES
14c00 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 .**.** Test the
14c10 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 sqlite3_bind_tex
14c20 74 31 36 20 69 6e 74 65 72 66 61 63 65 2e 20 20 t16 interface.
14c30 53 54 4d 54 20 69 73 20 61 20 70 72 65 70 61 72 STMT is a prepar
14c40 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 0a 2a 2a ed statement..**
14c50 20 4e 20 69 73 20 74 68 65 20 69 6e 64 65 78 20 N is the index
14c60 6f 66 20 61 20 77 69 6c 64 63 61 72 64 20 69 6e of a wildcard in
14c70 20 74 68 65 20 70 72 65 70 61 72 65 64 20 73 74 the prepared st
14c80 61 74 65 6d 65 6e 74 2e 20 20 54 68 69 73 20 63 atement. This c
14c90 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 73 20 ommand.** binds
14ca0 61 20 55 54 46 2d 31 36 20 73 74 72 69 6e 67 20 a UTF-16 string
14cb0 53 54 52 49 4e 47 20 74 6f 20 74 68 65 20 77 69 STRING to the wi
14cc0 6c 64 63 61 72 64 2e 20 20 54 68 65 20 73 74 72 ldcard. The str
14cd0 69 6e 67 20 69 73 20 42 59 54 45 53 20 62 79 74 ing is BYTES byt
14ce0 65 73 0a 2a 2a 20 6c 6f 6e 67 2e 0a 2a 2f 0a 73 es.** long..*/.s
14cf0 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 tatic int test_b
14d00 69 6e 64 5f 74 65 78 74 31 36 28 0a 20 20 76 6f ind_text16(. vo
14d10 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
14d20 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
14d30 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
14d40 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
14d50 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 NST objv[].){.#i
14d60 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
14d70 54 5f 55 54 46 31 36 0a 20 20 73 71 6c 69 74 65 T_UTF16. sqlite
14d80 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
14d90 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 6e 74 20 int idx;. int
14da0 62 79 74 65 73 3b 0a 20 20 63 68 61 72 20 2a 76 bytes;. char *v
14db0 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a alue;. int rc;.
14dc0 0a 20 20 76 6f 69 64 20 28 2a 78 44 65 6c 29 28 . void (*xDel)(
14dd0 29 20 3d 20 28 6f 62 6a 63 3d 3d 36 3f 53 51 4c ) = (objc==6?SQL
14de0 49 54 45 5f 53 54 41 54 49 43 3a 53 51 4c 49 54 ITE_STATIC:SQLIT
14df0 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 E_TRANSIENT);.
14e00 54 63 6c 5f 4f 62 6a 20 2a 6f 53 74 6d 74 20 20 Tcl_Obj *oStmt
14e10 20 20 3d 20 6f 62 6a 76 5b 6f 62 6a 63 2d 34 5d = objv[objc-4]
14e20 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 4e 20 ;. Tcl_Obj *oN
14e30 20 20 20 20 20 20 3d 20 6f 62 6a 76 5b 6f 62 6a = objv[obj
14e40 63 2d 33 5d 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 c-3];. Tcl_Obj
14e50 2a 6f 53 74 72 69 6e 67 20 20 3d 20 6f 62 6a 76 *oString = objv
14e60 5b 6f 62 6a 63 2d 32 5d 3b 0a 20 20 54 63 6c 5f [objc-2];. Tcl_
14e70 4f 62 6a 20 2a 6f 42 79 74 65 73 20 20 20 3d 20 Obj *oBytes =
14e80 6f 62 6a 76 5b 6f 62 6a 63 2d 31 5d 3b 0a 0a 20 objv[objc-1];..
14e90 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 26 26 20 if( objc!=5 &&
14ea0 6f 62 6a 63 21 3d 36 29 7b 0a 20 20 20 20 54 63 objc!=6){. Tc
14eb0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
14ec0 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
14ed0 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
14ee0 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c \"",. Tcl
14ef0 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
14f00 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 j(objv[0], 0), "
14f10 20 53 54 4d 54 20 4e 20 56 41 4c 55 45 20 42 59 STMT N VALUE BY
14f20 54 45 53 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 TES", 0);. re
14f30 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
14f40 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 }.. if( getSt
14f50 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
14f60 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
14f70 6f 53 74 6d 74 29 2c 20 26 70 53 74 6d 74 29 20 oStmt), &pStmt)
14f80 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
14f90 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
14fa0 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
14fb0 72 70 2c 20 6f 4e 2c 20 26 69 64 78 29 20 29 20 rp, oN, &idx) )
14fc0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
14fd0 3b 0a 20 20 76 61 6c 75 65 20 3d 20 28 63 68 61 ;. value = (cha
14fe0 72 2a 29 54 63 6c 5f 47 65 74 42 79 74 65 41 72 r*)Tcl_GetByteAr
14ff0 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 53 74 72 69 rayFromObj(oStri
15000 6e 67 2c 20 30 29 3b 0a 20 20 69 66 28 20 54 63 ng, 0);. if( Tc
15010 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
15020 69 6e 74 65 72 70 2c 20 6f 42 79 74 65 73 2c 20 interp, oBytes,
15030 26 62 79 74 65 73 29 20 29 20 72 65 74 75 72 6e &bytes) ) return
15040 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 TCL_ERROR;.. r
15050 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 c = sqlite3_bind
15060 5f 74 65 78 74 31 36 28 70 53 74 6d 74 2c 20 69 _text16(pStmt, i
15070 64 78 2c 20 28 76 6f 69 64 20 2a 29 76 61 6c 75 dx, (void *)valu
15080 65 2c 20 62 79 74 65 73 2c 20 78 44 65 6c 29 3b e, bytes, xDel);
15090 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 . if( sqlite3Te
150a0 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 stErrCode(interp
150b0 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 , StmtToDb(pStmt
150c0 29 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 ), rc) ) return
150d0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
150e0 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc!=SQLITE_OK )
150f0 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
15100 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 Result(interp, s
15110 71 6c 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e qlite3TestErrorN
15120 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 ame(rc), 0);.
15130 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
15140 52 3b 0a 20 20 7d 0a 0a 23 65 6e 64 69 66 20 2f R;. }..#endif /
15150 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 * SQLITE_OMIT_UT
15160 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 F16 */. return
15170 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
15180 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 Usage: sqlite
15190 33 5f 62 69 6e 64 5f 62 6c 6f 62 20 3f 2d 73 74 3_bind_blob ?-st
151a0 61 74 69 63 3f 20 53 54 4d 54 20 4e 20 44 41 54 atic? STMT N DAT
151b0 41 20 42 59 54 45 53 0a 2a 2a 0a 2a 2a 20 54 65 A BYTES.**.** Te
151c0 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62 st the sqlite3_b
151d0 69 6e 64 5f 62 6c 6f 62 20 69 6e 74 65 72 66 61 ind_blob interfa
151e0 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 ce. STMT is a p
151f0 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
15200 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 t..** N is the i
15210 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 ndex of a wildca
15220 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 rd in the prepar
15230 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 ed statement. T
15240 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 his command.** b
15250 69 6e 64 73 20 61 20 42 4c 4f 42 20 74 6f 20 74 inds a BLOB to t
15260 68 65 20 77 69 6c 64 63 61 72 64 2e 20 20 54 68 he wildcard. Th
15270 65 20 42 4c 4f 42 20 69 73 20 42 59 54 45 53 20 e BLOB is BYTES
15280 62 79 74 65 73 20 69 6e 20 73 69 7a 65 2e 0a 2a bytes in size..*
15290 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
152a0 74 5f 62 69 6e 64 5f 62 6c 6f 62 28 0a 20 20 76 t_bind_blob(. v
152b0 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
152c0 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
152d0 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
152e0 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
152f0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
15300 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
15310 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b Stmt;. int idx;
15320 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 20 . int bytes;.
15330 63 68 61 72 20 2a 76 61 6c 75 65 3b 0a 20 20 69 char *value;. i
15340 6e 74 20 72 63 3b 0a 20 20 73 71 6c 69 74 65 33 nt rc;. sqlite3
15350 5f 64 65 73 74 72 75 63 74 6f 72 5f 74 79 70 65 _destructor_type
15360 20 78 44 65 73 74 72 75 63 74 6f 72 20 3d 20 53 xDestructor = S
15370 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 3b QLITE_TRANSIENT;
15380 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 .. if( objc!=5
15390 26 26 20 6f 62 6a 63 21 3d 36 20 29 7b 0a 20 20 && objc!=6 ){.
153a0 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
153b0 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
153c0 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
153d0 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 be \"",.
153e0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
153f0 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 omObj(objv[0], 0
15400 29 2c 20 22 20 53 54 4d 54 20 4e 20 44 41 54 41 ), " STMT N DATA
15410 20 42 59 54 45 53 22 2c 20 30 29 3b 0a 20 20 20 BYTES", 0);.
15420 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
15430 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 6f 62 R;. }.. if( ob
15440 6a 63 3d 3d 36 20 29 7b 0a 20 20 20 20 78 44 65 jc==6 ){. xDe
15450 73 74 72 75 63 74 6f 72 20 3d 20 53 51 4c 49 54 structor = SQLIT
15460 45 5f 53 54 41 54 49 43 3b 0a 20 20 20 20 6f 62 E_STATIC;. ob
15470 6a 76 2b 2b 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 jv++;. }.. if(
15480 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
15490 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
154a0 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
154b0 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e &pStmt) ) return
154c0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
154d0 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
154e0 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
154f0 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 [2], &idx) ) ret
15500 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
15510 20 76 61 6c 75 65 20 3d 20 54 63 6c 5f 47 65 74 value = Tcl_Get
15520 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b String(objv[3]);
15530 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
15540 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
15550 20 6f 62 6a 76 5b 34 5d 2c 20 26 62 79 74 65 73 objv[4], &bytes
15560 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
15570 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 RROR;.. rc = sq
15580 6c 69 74 65 33 5f 62 69 6e 64 5f 62 6c 6f 62 28 lite3_bind_blob(
15590 70 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 pStmt, idx, valu
155a0 65 2c 20 62 79 74 65 73 2c 20 78 44 65 73 74 72 e, bytes, xDestr
155b0 75 63 74 6f 72 29 3b 0a 20 20 69 66 28 20 73 71 uctor);. if( sq
155c0 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 lite3TestErrCode
155d0 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 (interp, StmtToD
155e0 62 28 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 b(pStmt), rc) )
155f0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
15600 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 ;. if( rc!=SQLI
15610 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 TE_OK ){. ret
15620 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
15630 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }.. return TCL
15640 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
15650 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 age: sqlite3_b
15660 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 63 6f ind_parameter_co
15670 75 6e 74 20 20 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 unt STMT.**.**
15680 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
15690 72 20 6f 66 20 77 69 6c 64 63 61 72 64 73 20 69 r of wildcards i
156a0 6e 20 74 68 65 20 67 69 76 65 6e 20 73 74 61 74 n the given stat
156b0 65 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 ement..*/.static
156c0 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 70 int test_bind_p
156d0 61 72 61 6d 65 74 65 72 5f 63 6f 75 6e 74 28 0a arameter_count(.
156e0 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
156f0 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
15700 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
15710 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
15720 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
15730 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 {. sqlite3_stmt
15740 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 66 28 20 *pStmt;.. if(
15750 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
15760 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
15770 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
15780 20 22 53 54 4d 54 22 29 3b 0a 20 20 20 20 72 65 "STMT");. re
15790 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
157a0 20 20 7d 0a 20 20 69 66 28 20 67 65 74 53 74 6d }. if( getStm
157b0 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
157c0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
157d0 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 bjv[1]), &pStmt)
157e0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
157f0 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 ROR;. Tcl_SetOb
15800 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
15810 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 Tcl_NewIntObj(sq
15820 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 61 6d lite3_bind_param
15830 65 74 65 72 5f 63 6f 75 6e 74 28 70 53 74 6d 74 eter_count(pStmt
15840 29 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 )));. return TC
15850 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
15860 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f sage: sqlite3_
15870 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 6e bind_parameter_n
15880 61 6d 65 20 20 53 54 4d 54 20 20 4e 0a 2a 2a 0a ame STMT N.**.
15890 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 ** Return the na
158a0 6d 65 20 6f 66 20 74 68 65 20 4e 74 68 20 77 69 me of the Nth wi
158b0 6c 64 63 61 72 64 2e 20 20 54 68 65 20 66 69 72 ldcard. The fir
158c0 73 74 20 77 69 6c 64 63 61 72 64 20 69 73 20 31 st wildcard is 1
158d0 2e 0a 2a 2a 20 41 6e 20 65 6d 70 74 79 20 73 74 ..** An empty st
158e0 72 69 6e 67 20 69 73 20 72 65 74 75 72 6e 65 64 ring is returned
158f0 20 69 66 20 4e 20 69 73 20 6f 75 74 20 6f 66 20 if N is out of
15900 72 61 6e 67 65 20 6f 72 20 69 66 20 74 68 65 20 range or if the
15910 77 69 6c 64 63 61 72 64 0a 2a 2a 20 69 73 20 6e wildcard.** is n
15920 61 6d 65 6c 65 73 73 2e 0a 2a 2f 0a 73 74 61 74 ameless..*/.stat
15930 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 ic int test_bind
15940 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 6d 65 28 _parameter_name(
15950 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
15960 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
15970 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
15980 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
15990 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
159a0 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
159b0 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 t *pStmt;. int
159c0 69 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d i;.. if( objc!=
159d0 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 3 ){. Tcl_Wro
159e0 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
159f0 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 54 4d 54 , 1, objv, "STMT
15a00 20 4e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e N");. return
15a10 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
15a20 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
15a30 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
15a40 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
15a50 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
15a60 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
15a70 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
15a80 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
15a90 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 29 20 29 20 objv[2], &i) )
15aa0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
15ab0 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. Tcl_SetObjRe
15ac0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 0a 20 20 sult(interp, .
15ad0 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
15ae0 4f 62 6a 28 73 71 6c 69 74 65 33 5f 62 69 6e 64 Obj(sqlite3_bind
15af0 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 6d 65 28 _parameter_name(
15b00 70 53 74 6d 74 2c 69 29 2c 2d 31 29 0a 20 20 29 pStmt,i),-1). )
15b10 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
15b20 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
15b30 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e e: sqlite3_bin
15b40 64 5f 70 61 72 61 6d 65 74 65 72 5f 69 6e 64 65 d_parameter_inde
15b50 78 20 20 53 54 4d 54 20 20 4e 41 4d 45 0a 2a 2a x STMT NAME.**
15b60 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 69 .** Return the i
15b70 6e 64 65 78 20 6f 66 20 74 68 65 20 77 69 6c 64 ndex of the wild
15b80 63 61 72 64 20 63 61 6c 6c 65 64 20 4e 41 4d 45 card called NAME
15b90 2e 20 20 52 65 74 75 72 6e 20 30 20 69 66 20 74 . Return 0 if t
15ba0 68 65 72 65 20 69 73 0a 2a 2a 20 6e 6f 20 73 75 here is.** no su
15bb0 63 68 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a ch wildcard..*/.
15bc0 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
15bd0 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 69 bind_parameter_i
15be0 6e 64 65 78 28 0a 20 20 76 6f 69 64 20 2a 20 63 ndex(. void * c
15bf0 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
15c00 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
15c10 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
15c20 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
15c30 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
15c40 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 3_stmt *pStmt;..
15c50 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b if( objc!=3 ){
15c60 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
15c70 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
15c80 20 6f 62 6a 76 2c 20 22 53 54 4d 54 20 4e 41 4d objv, "STMT NAM
15c90 45 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 E");. return
15ca0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
15cb0 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e if( getStmtPoin
15cc0 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
15cd0 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
15ce0 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 ]), &pStmt) ) re
15cf0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
15d00 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
15d10 6c 74 28 69 6e 74 65 72 70 2c 20 0a 20 20 20 20 lt(interp, .
15d20 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 0a Tcl_NewIntObj(.
15d30 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 62 sqlite3_b
15d40 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 69 6e ind_parameter_in
15d50 64 65 78 28 70 53 74 6d 74 2c 54 63 6c 5f 47 65 dex(pStmt,Tcl_Ge
15d60 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 tString(objv[2])
15d70 29 0a 20 20 20 20 20 29 0a 20 20 29 3b 0a 20 20 ). ). );.
15d80 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
15d90 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
15da0 20 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f 62 sqlite3_clear_b
15db0 69 6e 64 69 6e 67 73 20 53 54 4d 54 0a 2a 2a 0a indings STMT.**.
15dc0 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
15dd0 73 74 5f 63 6c 65 61 72 5f 62 69 6e 64 69 6e 67 st_clear_binding
15de0 73 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 s(. void * clie
15df0 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
15e00 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
15e10 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
15e20 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
15e30 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 ].){. sqlite3_s
15e40 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 tmt *pStmt;.. i
15e50 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 f( objc!=2 ){.
15e60 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
15e70 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
15e80 6a 76 2c 20 22 53 54 4d 54 22 29 3b 0a 20 20 20 jv, "STMT");.
15e90 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
15ea0 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
15eb0 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
15ec0 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
15ed0 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
15ee0 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
15ef0 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 _ERROR;. Tcl_Se
15f00 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
15f10 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
15f20 28 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f 62 (sqlite3_clear_b
15f30 69 6e 64 69 6e 67 73 28 70 53 74 6d 74 29 29 29 indings(pStmt)))
15f40 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
15f50 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
15f60 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 73 6c 65 e: sqlite3_sle
15f70 65 70 20 4d 49 4c 4c 49 53 45 43 4f 4e 44 53 0a ep MILLISECONDS.
15f80 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
15f90 73 74 5f 73 6c 65 65 70 28 0a 20 20 76 6f 69 64 st_sleep(. void
15fa0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
15fb0 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
15fc0 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
15fd0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
15fe0 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e T objv[].){. in
15ff0 74 20 6d 73 3b 0a 0a 20 20 69 66 28 20 6f 62 6a t ms;.. if( obj
16000 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
16010 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
16020 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 4d erp, 1, objv, "M
16030 49 4c 4c 49 53 45 43 4f 4e 44 53 22 29 3b 0a 20 ILLISECONDS");.
16040 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
16050 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 ROR;. }. if( T
16060 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
16070 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d (interp, objv[1]
16080 2c 20 26 6d 73 29 20 29 7b 0a 20 20 20 20 72 65 , &ms) ){. re
16090 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
160a0 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a }. Tcl_SetObj
160b0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
160c0 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c cl_NewIntObj(sql
160d0 69 74 65 33 5f 73 6c 65 65 70 28 6d 73 29 29 29 ite3_sleep(ms)))
160e0 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
160f0 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
16100 65 3a 20 73 71 6c 69 74 65 33 5f 65 78 74 65 6e e: sqlite3_exten
16110 64 65 64 5f 65 72 72 63 6f 64 65 20 44 42 0a 2a ded_errcode DB.*
16120 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 *.** Return the
16130 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 string represent
16140 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6d 6f 73 ation of the mos
16150 74 20 72 65 63 65 6e 74 20 73 71 6c 69 74 65 33 t recent sqlite3
16160 5f 2a 20 41 50 49 0a 2a 2a 20 65 72 72 6f 72 20 _* API.** error
16170 63 6f 64 65 2e 20 65 2e 67 2e 20 22 53 51 4c 49 code. e.g. "SQLI
16180 54 45 5f 45 52 52 4f 52 22 2e 0a 2a 2f 0a 73 74 TE_ERROR"..*/.st
16190 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 78 atic int test_ex
161a0 5f 65 72 72 63 6f 64 65 28 0a 20 20 76 6f 69 64 _errcode(. void
161b0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
161c0 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
161d0 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
161e0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
161f0 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
16200 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 lite3 *db;. int
16210 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 rc;.. if( objc
16220 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=2 ){. Tcl_A
16230 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
16240 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
16250 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
16260 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 , . Tcl_Ge
16270 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 tString(objv[0])
16280 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 , " DB", 0);.
16290 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
162a0 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
162b0 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
162c0 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
162d0 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 objv[1]), &db) )
162e0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
162f0 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 R;. rc = sqlite
16300 33 5f 65 78 74 65 6e 64 65 64 5f 65 72 72 63 6f 3_extended_errco
16310 64 65 28 64 62 29 3b 0a 20 20 54 63 6c 5f 41 70 de(db);. Tcl_Ap
16320 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
16330 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 72 72 p, (char *)t1Err
16340 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a orName(rc), 0);.
16350 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
16360 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 .}.../*.** Usage
16370 3a 20 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 : sqlite3_errcod
16380 65 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 e DB.**.** Retur
16390 6e 20 74 68 65 20 73 74 72 69 6e 67 20 72 65 70 n the string rep
163a0 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 resentation of t
163b0 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 73 he most recent s
163c0 71 6c 69 74 65 33 5f 2a 20 41 50 49 0a 2a 2a 20 qlite3_* API.**
163d0 65 72 72 6f 72 20 63 6f 64 65 2e 20 65 2e 67 2e error code. e.g.
163e0 20 22 53 51 4c 49 54 45 5f 45 52 52 4f 52 22 2e "SQLITE_ERROR".
163f0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
16400 65 73 74 5f 65 72 72 63 6f 64 65 28 0a 20 20 76 est_errcode(. v
16410 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
16420 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
16430 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
16440 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
16450 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
16460 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
16470 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
16480 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 bjc!=2 ){. Tc
16490 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
164a0 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
164b0 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
164c0 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
164d0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
164e0 30 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 0]), " DB", 0);.
164f0 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
16500 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
16510 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
16520 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
16530 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
16540 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
16550 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c RROR;. rc = sql
16560 69 74 65 33 5f 65 72 72 63 6f 64 65 28 64 62 29 ite3_errcode(db)
16570 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
16580 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 sult(interp, (ch
16590 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 ar *)t1ErrorName
165a0 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 65 74 75 (rc), 0);. retu
165b0 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
165c0 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 74 65 73 .** Usage: tes
165d0 74 5f 65 72 72 6d 73 67 20 44 42 0a 2a 2a 0a 2a t_errmsg DB.**.*
165e0 2a 20 52 65 74 75 72 6e 73 20 74 68 65 20 55 54 * Returns the UT
165f0 46 2d 38 20 72 65 70 72 65 73 65 6e 74 61 74 69 F-8 representati
16600 6f 6e 20 6f 66 20 74 68 65 20 65 72 72 6f 72 20 on of the error
16610 6d 65 73 73 61 67 65 20 73 74 72 69 6e 67 20 66 message string f
16620 6f 72 20 74 68 65 0a 2a 2a 20 6d 6f 73 74 20 72 or the.** most r
16630 65 63 65 6e 74 20 73 71 6c 69 74 65 33 5f 2a 20 ecent sqlite3_*
16640 41 50 49 20 63 61 6c 6c 2e 0a 2a 2f 0a 73 74 61 API call..*/.sta
16650 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 72 72 tic int test_err
16660 6d 73 67 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c msg(. void * cl
16670 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
16680 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
16690 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
166a0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
166b0 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
166c0 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 *db;. const ch
166d0 61 72 20 2a 7a 45 72 72 3b 0a 0a 20 20 69 66 28 ar *zErr;.. if(
166e0 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
166f0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
16700 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
16710 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
16720 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 e \"", . T
16730 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
16740 76 5b 30 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 v[0]), " DB", 0)
16750 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
16760 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
16770 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
16780 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
16790 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
167a0 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
167b0 5f 45 52 52 4f 52 3b 0a 0a 20 20 7a 45 72 72 20 _ERROR;.. zErr
167c0 3d 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 = sqlite3_errmsg
167d0 28 64 62 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f (db);. Tcl_SetO
167e0 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
167f0 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
16800 6a 28 7a 45 72 72 2c 20 2d 31 29 29 3b 0a 20 20 j(zErr, -1));.
16810 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
16820 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
16830 20 74 65 73 74 5f 65 72 72 6d 73 67 31 36 20 44 test_errmsg16 D
16840 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 20 B.**.** Returns
16850 74 68 65 20 55 54 46 2d 31 36 20 72 65 70 72 65 the UTF-16 repre
16860 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 sentation of the
16870 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 73 error message s
16880 74 72 69 6e 67 20 66 6f 72 20 74 68 65 0a 2a 2a tring for the.**
16890 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 73 71 6c most recent sql
168a0 69 74 65 33 5f 2a 20 41 50 49 20 63 61 6c 6c 2e ite3_* API call.
168b0 20 54 68 69 73 20 69 73 20 61 20 62 79 74 65 20 This is a byte
168c0 61 72 72 61 79 20 6f 62 6a 65 63 74 20 61 74 20 array object at
168d0 74 68 65 20 54 43 4c 20 0a 2a 2a 20 6c 65 76 65 the TCL .** leve
168e0 6c 2c 20 61 6e 64 20 69 74 20 69 6e 63 6c 75 64 l, and it includ
168f0 65 73 20 74 68 65 20 30 78 30 30 20 30 78 30 30 es the 0x00 0x00
16900 20 74 65 72 6d 69 6e 61 74 6f 72 20 62 79 74 65 terminator byte
16910 73 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 s at the end of
16920 74 68 65 0a 2a 2a 20 55 54 46 2d 31 36 20 73 74 the.** UTF-16 st
16930 72 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 ring..*/.static
16940 69 6e 74 20 74 65 73 74 5f 65 72 72 6d 73 67 31 int test_errmsg1
16950 36 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6(. void * clie
16960 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
16970 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
16980 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
16990 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
169a0 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c ].){.#ifndef SQL
169b0 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 ITE_OMIT_UTF16.
169c0 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
169d0 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 45 72 72 const void *zErr
169e0 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 20 3d 20 ;. int bytes =
169f0 30 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 0;.. if( objc!=
16a00 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
16a10 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
16a20 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
16a30 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
16a40 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 . Tcl_GetS
16a50 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 tring(objv[0]),
16a60 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 " DB", 0);. r
16a70 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
16a80 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
16a90 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
16aa0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
16ab0 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 jv[1]), &db) ) r
16ac0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
16ad0 0a 0a 20 20 7a 45 72 72 20 3d 20 73 71 6c 69 74 .. zErr = sqlit
16ae0 65 33 5f 65 72 72 6d 73 67 31 36 28 64 62 29 3b e3_errmsg16(db);
16af0 0a 20 20 69 66 28 20 7a 45 72 72 20 29 7b 0a 20 . if( zErr ){.
16b00 20 20 20 62 79 74 65 73 20 3d 20 73 71 6c 69 74 bytes = sqlit
16b10 65 33 55 74 66 31 36 42 79 74 65 4c 65 6e 28 7a e3Utf16ByteLen(z
16b20 45 72 72 2c 20 2d 31 29 3b 0a 20 20 7d 0a 20 20 Err, -1);. }.
16b30 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
16b40 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
16b50 42 79 74 65 41 72 72 61 79 4f 62 6a 28 7a 45 72 ByteArrayObj(zEr
16b60 72 2c 20 62 79 74 65 73 29 29 3b 0a 23 65 6e 64 r, bytes));.#end
16b70 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 if /* SQLITE_OMI
16b80 54 5f 55 54 46 31 36 20 2a 2f 0a 20 20 72 65 74 T_UTF16 */. ret
16b90 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
16ba0 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 *.** Usage: sqli
16bb0 74 65 33 5f 70 72 65 70 61 72 65 20 44 42 20 73 te3_prepare DB s
16bc0 71 6c 20 62 79 74 65 73 20 74 61 69 6c 76 61 72 ql bytes tailvar
16bd0 0a 2a 2a 0a 2a 2a 20 43 6f 6d 70 69 6c 65 20 75 .**.** Compile u
16be0 70 20 74 6f 20 3c 62 79 74 65 73 3e 20 62 79 74 p to <bytes> byt
16bf0 65 73 20 6f 66 20 74 68 65 20 73 75 70 70 6c 69 es of the suppli
16c00 65 64 20 53 51 4c 20 73 74 72 69 6e 67 20 3c 73 ed SQL string <s
16c10 71 6c 3e 20 75 73 69 6e 67 0a 2a 2a 20 64 61 74 ql> using.** dat
16c20 61 62 61 73 65 20 68 61 6e 64 6c 65 20 3c 44 42 abase handle <DB
16c30 3e 2e 20 54 68 65 20 70 61 72 61 6d 65 74 65 72 >. The parameter
16c40 20 3c 74 61 69 6c 76 61 6c 3e 20 69 73 20 74 68 <tailval> is th
16c50 65 20 6e 61 6d 65 20 6f 66 20 61 20 67 6c 6f 62 e name of a glob
16c60 61 6c 0a 2a 2a 20 76 61 72 69 61 62 6c 65 20 74 al.** variable t
16c70 68 61 74 20 69 73 20 73 65 74 20 74 6f 20 74 68 hat is set to th
16c80 65 20 75 6e 75 73 65 64 20 70 6f 72 74 69 6f 6e e unused portion
16c90 20 6f 66 20 3c 73 71 6c 3e 20 28 69 66 20 61 6e of <sql> (if an
16ca0 79 29 2e 20 41 0a 2a 2a 20 53 54 4d 54 20 68 61 y). A.** STMT ha
16cb0 6e 64 6c 65 20 69 73 20 72 65 74 75 72 6e 65 64 ndle is returned
16cc0 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
16cd0 74 65 73 74 5f 70 72 65 70 61 72 65 28 0a 20 20 test_prepare(.
16ce0 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
16cf0 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
16d00 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
16d10 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
16d20 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
16d30 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
16d40 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 71 const char *zSq
16d50 6c 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 0a l;. int bytes;.
16d60 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 const char *zT
16d70 61 69 6c 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 ail = 0;. sqlit
16d80 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 20 3d e3_stmt *pStmt =
16d90 20 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 0;. char zBuf[
16da0 35 30 5d 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 50];. int rc;..
16db0 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 7b if( objc!=5 ){
16dc0 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
16dd0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
16de0 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
16df0 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 uld be \"", .
16e00 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
16e10 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 g(objv[0]), " DB
16e20 20 73 71 6c 20 62 79 74 65 73 20 74 61 69 6c 76 sql bytes tailv
16e30 61 72 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 ar", 0);. ret
16e40 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
16e50 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
16e60 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
16e70 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
16e80 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 [1]), &db) ) ret
16e90 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
16ea0 20 7a 53 71 6c 20 3d 20 54 63 6c 5f 47 65 74 53 zSql = Tcl_GetS
16eb0 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a tring(objv[2]);.
16ec0 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
16ed0 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
16ee0 6f 62 6a 76 5b 33 5d 2c 20 26 62 79 74 65 73 29 objv[3], &bytes)
16ef0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
16f00 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c ROR;.. rc = sql
16f10 69 74 65 33 5f 70 72 65 70 61 72 65 28 64 62 2c ite3_prepare(db,
16f20 20 7a 53 71 6c 2c 20 62 79 74 65 73 2c 20 26 70 zSql, bytes, &p
16f30 53 74 6d 74 2c 20 26 7a 54 61 69 6c 29 3b 0a 20 Stmt, &zTail);.
16f40 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
16f50 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
16f60 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e db, rc) ) return
16f70 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
16f80 28 20 7a 54 61 69 6c 20 29 7b 0a 20 20 20 20 69 ( zTail ){. i
16f90 66 28 20 62 79 74 65 73 3e 3d 30 20 29 7b 0a 20 f( bytes>=0 ){.
16fa0 20 20 20 20 20 62 79 74 65 73 20 3d 20 62 79 74 bytes = byt
16fb0 65 73 20 2d 20 28 7a 54 61 69 6c 2d 7a 53 71 6c es - (zTail-zSql
16fc0 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 );. }. if(
16fd0 20 73 74 72 6c 65 6e 28 7a 54 61 69 6c 29 3c 62 strlen(zTail)<b
16fe0 79 74 65 73 20 29 7b 0a 20 20 20 20 20 20 62 79 ytes ){. by
16ff0 74 65 73 20 3d 20 73 74 72 6c 65 6e 28 7a 54 61 tes = strlen(zTa
17000 69 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 il);. }. T
17010 63 6c 5f 4f 62 6a 53 65 74 56 61 72 32 28 69 6e cl_ObjSetVar2(in
17020 74 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 30 terp, objv[4], 0
17030 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
17040 62 6a 28 7a 54 61 69 6c 2c 20 62 79 74 65 73 29 bj(zTail, bytes)
17050 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 , 0);. }. if(
17060 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b rc!=SQLITE_OK ){
17070 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 53 74 . assert( pSt
17080 6d 74 3d 3d 30 20 29 3b 0a 20 20 20 20 73 70 72 mt==0 );. spr
17090 69 6e 74 66 28 7a 42 75 66 2c 20 22 28 25 64 29 intf(zBuf, "(%d)
170a0 20 22 2c 20 72 63 29 3b 0a 20 20 20 20 54 63 6c ", rc);. Tcl
170b0 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
170c0 74 65 72 70 2c 20 7a 42 75 66 2c 20 73 71 6c 69 terp, zBuf, sqli
170d0 74 65 33 5f 65 72 72 6d 73 67 28 64 62 29 2c 20 te3_errmsg(db),
170e0 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
170f0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
17100 20 69 66 28 20 70 53 74 6d 74 20 29 7b 0a 20 20 if( pStmt ){.
17110 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 if( sqlite3Tes
17120 74 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 tMakePointerStr(
17130 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 70 53 interp, zBuf, pS
17140 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
17150 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 54 63 6c L_ERROR;. Tcl
17160 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
17170 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a terp, zBuf, 0);.
17180 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }. return TCL
17190 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
171a0 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 70 72 65 age: sqlite3_pre
171b0 70 61 72 65 5f 76 32 20 44 42 20 73 71 6c 20 62 pare_v2 DB sql b
171c0 79 74 65 73 20 74 61 69 6c 76 61 72 0a 2a 2a 0a ytes tailvar.**.
171d0 2a 2a 20 43 6f 6d 70 69 6c 65 20 75 70 20 74 6f ** Compile up to
171e0 20 3c 62 79 74 65 73 3e 20 62 79 74 65 73 20 6f <bytes> bytes o
171f0 66 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 53 f the supplied S
17200 51 4c 20 73 74 72 69 6e 67 20 3c 73 71 6c 3e 20 QL string <sql>
17210 75 73 69 6e 67 0a 2a 2a 20 64 61 74 61 62 61 73 using.** databas
17220 65 20 68 61 6e 64 6c 65 20 3c 44 42 3e 2e 20 54 e handle <DB>. T
17230 68 65 20 70 61 72 61 6d 65 74 65 72 20 3c 74 61 he parameter <ta
17240 69 6c 76 61 6c 3e 20 69 73 20 74 68 65 20 6e 61 ilval> is the na
17250 6d 65 20 6f 66 20 61 20 67 6c 6f 62 61 6c 0a 2a me of a global.*
17260 2a 20 76 61 72 69 61 62 6c 65 20 74 68 61 74 20 * variable that
17270 69 73 20 73 65 74 20 74 6f 20 74 68 65 20 75 6e is set to the un
17280 75 73 65 64 20 70 6f 72 74 69 6f 6e 20 6f 66 20 used portion of
17290 3c 73 71 6c 3e 20 28 69 66 20 61 6e 79 29 2e 20 <sql> (if any).
172a0 41 0a 2a 2a 20 53 54 4d 54 20 68 61 6e 64 6c 65 A.** STMT handle
172b0 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2f is returned..*/
172c0 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
172d0 5f 70 72 65 70 61 72 65 5f 76 32 28 0a 20 20 76 _prepare_v2(. v
172e0 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
172f0 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
17300 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
17310 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
17320 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
17330 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
17340 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 71 6c const char *zSql
17350 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 ;. int bytes;.
17360 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 61 const char *zTa
17370 69 6c 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 il = 0;. sqlite
17380 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 3_stmt *pStmt =
17390 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 35 0;. char zBuf[5
173a0 30 5d 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 0];. int rc;..
173b0 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 7b 0a if( objc!=5 ){.
173c0 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
173d0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
173e0 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
173f0 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
17400 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
17410 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 20 (objv[0]), " DB
17420 73 71 6c 20 62 79 74 65 73 20 74 61 69 6c 76 61 sql bytes tailva
17430 72 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 r", 0);. retu
17440 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
17450 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
17460 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
17470 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
17480 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 1]), &db) ) retu
17490 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
174a0 7a 53 71 6c 20 3d 20 54 63 6c 5f 47 65 74 53 74 zSql = Tcl_GetSt
174b0 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 ring(objv[2]);.
174c0 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
174d0 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
174e0 62 6a 76 5b 33 5d 2c 20 26 62 79 74 65 73 29 20 bjv[3], &bytes)
174f0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
17500 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 OR;.. rc = sqli
17510 74 65 33 5f 70 72 65 70 61 72 65 5f 76 32 28 64 te3_prepare_v2(d
17520 62 2c 20 7a 53 71 6c 2c 20 62 79 74 65 73 2c 20 b, zSql, bytes,
17530 26 70 53 74 6d 74 2c 20 26 7a 54 61 69 6c 29 3b &pStmt, &zTail);
17540 0a 20 20 61 73 73 65 72 74 28 72 63 3d 3d 53 51 . assert(rc==SQ
17550 4c 49 54 45 5f 4f 4b 20 7c 7c 20 70 53 74 6d 74 LITE_OK || pStmt
17560 3d 3d 30 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 ==0);. if( sqli
17570 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 te3TestErrCode(i
17580 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 nterp, db, rc) )
17590 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
175a0 52 3b 0a 20 20 69 66 28 20 7a 54 61 69 6c 20 29 R;. if( zTail )
175b0 7b 0a 20 20 20 20 69 66 28 20 62 79 74 65 73 3e {. if( bytes>
175c0 3d 30 20 29 7b 0a 20 20 20 20 20 20 62 79 74 65 =0 ){. byte
175d0 73 20 3d 20 62 79 74 65 73 20 2d 20 28 7a 54 61 s = bytes - (zTa
175e0 69 6c 2d 7a 53 71 6c 29 3b 0a 20 20 20 20 7d 0a il-zSql);. }.
175f0 20 20 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 Tcl_ObjSetVa
17600 72 32 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b r2(interp, objv[
17610 34 5d 2c 20 30 2c 20 54 63 6c 5f 4e 65 77 53 74 4], 0, Tcl_NewSt
17620 72 69 6e 67 4f 62 6a 28 7a 54 61 69 6c 2c 20 62 ringObj(zTail, b
17630 79 74 65 73 29 2c 20 30 29 3b 0a 20 20 7d 0a 20 ytes), 0);. }.
17640 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f if( rc!=SQLITE_
17650 4f 4b 20 29 7b 0a 20 20 20 20 61 73 73 65 72 74 OK ){. assert
17660 28 20 70 53 74 6d 74 3d 3d 30 20 29 3b 0a 20 20 ( pStmt==0 );.
17670 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 sprintf(zBuf,
17680 22 28 25 64 29 20 22 2c 20 72 63 29 3b 0a 20 20 "(%d) ", rc);.
17690 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
176a0 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c lt(interp, zBuf,
176b0 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 sqlite3_errmsg(
176c0 64 62 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 db), 0);. ret
176d0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
176e0 20 7d 0a 0a 20 20 69 66 28 20 70 53 74 6d 74 20 }.. if( pStmt
176f0 29 7b 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74 ){. if( sqlit
17700 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 e3TestMakePointe
17710 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 rStr(interp, zBu
17720 66 2c 20 70 53 74 6d 74 29 20 29 20 72 65 74 75 f, pStmt) ) retu
17730 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
17740 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
17750 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c lt(interp, zBuf,
17760 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 0);. }. retur
17770 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
17780 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
17790 33 5f 70 72 65 70 61 72 65 5f 74 6b 74 33 31 33 3_prepare_tkt313
177a0 34 20 44 42 0a 2a 2a 0a 2a 2a 20 47 65 6e 65 72 4 DB.**.** Gener
177b0 61 74 65 20 61 20 70 72 65 70 61 72 65 64 20 73 ate a prepared s
177c0 74 61 74 65 6d 65 6e 74 20 66 6f 72 20 61 20 7a tatement for a z
177d0 65 72 6f 2d 62 79 74 65 20 73 74 72 69 6e 67 20 ero-byte string
177e0 61 73 20 61 20 74 65 73 74 0a 2a 2a 20 66 6f 72 as a test.** for
177f0 20 74 69 63 6b 65 74 20 23 33 31 33 34 2e 20 20 ticket #3134.
17800 54 68 65 20 73 74 72 69 6e 67 20 73 68 6f 75 6c The string shoul
17810 64 20 62 65 20 70 72 65 63 65 65 64 65 64 20 62 d be preceeded b
17820 79 20 61 20 7a 65 72 6f 20 62 79 74 65 2e 0a 2a y a zero byte..*
17830 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
17840 74 5f 70 72 65 70 61 72 65 5f 74 6b 74 33 31 33 t_prepare_tkt313
17850 34 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 4(. void * clie
17860 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
17870 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
17880 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
17890 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
178a0 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a ].){. sqlite3 *
178b0 64 62 3b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e db;. static con
178c0 73 74 20 63 68 61 72 20 7a 53 71 6c 5b 5d 20 3d st char zSql[] =
178d0 20 22 5c 30 30 30 53 45 4c 45 43 54 20 31 22 3b "\000SELECT 1";
178e0 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
178f0 2a 70 53 74 6d 74 20 3d 20 30 3b 0a 20 20 63 68 *pStmt = 0;. ch
17900 61 72 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 69 ar zBuf[50];. i
17910 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 nt rc;.. if( ob
17920 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
17930 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
17940 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
17950 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
17960 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
17970 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
17980 5d 29 2c 20 22 20 44 42 20 73 71 6c 20 62 79 74 ]), " DB sql byt
17990 65 73 20 74 61 69 6c 76 61 72 22 2c 20 30 29 3b es tailvar", 0);
179a0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
179b0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
179c0 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
179d0 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
179e0 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 ing(objv[1]), &d
179f0 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
17a00 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 ERROR;. rc = sq
17a10 6c 69 74 65 33 5f 70 72 65 70 61 72 65 5f 76 32 lite3_prepare_v2
17a20 28 64 62 2c 20 26 7a 53 71 6c 5b 31 5d 2c 20 30 (db, &zSql[1], 0
17a30 2c 20 26 70 53 74 6d 74 2c 20 30 29 3b 0a 20 20 , &pStmt, 0);.
17a40 61 73 73 65 72 74 28 72 63 3d 3d 53 51 4c 49 54 assert(rc==SQLIT
17a50 45 5f 4f 4b 20 7c 7c 20 70 53 74 6d 74 3d 3d 30 E_OK || pStmt==0
17a60 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
17a70 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
17a80 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 rp, db, rc) ) re
17a90 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
17aa0 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 if( rc!=SQLITE
17ab0 5f 4f 4b 20 29 7b 0a 20 20 20 20 61 73 73 65 72 _OK ){. asser
17ac0 74 28 20 70 53 74 6d 74 3d 3d 30 20 29 3b 0a 20 t( pStmt==0 );.
17ad0 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c sprintf(zBuf,
17ae0 20 22 28 25 64 29 20 22 2c 20 72 63 29 3b 0a 20 "(%d) ", rc);.
17af0 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
17b00 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 ult(interp, zBuf
17b10 2c 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 , sqlite3_errmsg
17b20 28 64 62 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 (db), 0);. re
17b30 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
17b40 20 20 7d 0a 0a 20 20 69 66 28 20 70 53 74 6d 74 }.. if( pStmt
17b50 20 29 7b 0a 20 20 20 20 69 66 28 20 73 71 6c 69 ){. if( sqli
17b60 74 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 te3TestMakePoint
17b70 65 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 erStr(interp, zB
17b80 75 66 2c 20 70 53 74 6d 74 29 20 29 20 72 65 74 uf, pStmt) ) ret
17b90 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
17ba0 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
17bb0 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 ult(interp, zBuf
17bc0 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 , 0);. }. retu
17bd0 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
17be0 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
17bf0 65 33 5f 70 72 65 70 61 72 65 31 36 20 44 42 20 e3_prepare16 DB
17c00 73 71 6c 20 62 79 74 65 73 20 74 61 69 6c 76 61 sql bytes tailva
17c10 72 0a 2a 2a 0a 2a 2a 20 43 6f 6d 70 69 6c 65 20 r.**.** Compile
17c20 75 70 20 74 6f 20 3c 62 79 74 65 73 3e 20 62 79 up to <bytes> by
17c30 74 65 73 20 6f 66 20 74 68 65 20 73 75 70 70 6c tes of the suppl
17c40 69 65 64 20 53 51 4c 20 73 74 72 69 6e 67 20 3c ied SQL string <
17c50 73 71 6c 3e 20 75 73 69 6e 67 0a 2a 2a 20 64 61 sql> using.** da
17c60 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 3c 44 tabase handle <D
17c70 42 3e 2e 20 54 68 65 20 70 61 72 61 6d 65 74 65 B>. The paramete
17c80 72 20 3c 74 61 69 6c 76 61 6c 3e 20 69 73 20 74 r <tailval> is t
17c90 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 67 6c 6f he name of a glo
17ca0 62 61 6c 0a 2a 2a 20 76 61 72 69 61 62 6c 65 20 bal.** variable
17cb0 74 68 61 74 20 69 73 20 73 65 74 20 74 6f 20 74 that is set to t
17cc0 68 65 20 75 6e 75 73 65 64 20 70 6f 72 74 69 6f he unused portio
17cd0 6e 20 6f 66 20 3c 73 71 6c 3e 20 28 69 66 20 61 n of <sql> (if a
17ce0 6e 79 29 2e 20 41 0a 2a 2a 20 53 54 4d 54 20 68 ny). A.** STMT h
17cf0 61 6e 64 6c 65 20 69 73 20 72 65 74 75 72 6e 65 andle is returne
17d00 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 d..*/.static int
17d10 20 74 65 73 74 5f 70 72 65 70 61 72 65 31 36 28 test_prepare16(
17d20 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
17d30 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
17d40 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
17d50 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
17d60 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
17d70 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 ){.#ifndef SQLIT
17d80 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 73 E_OMIT_UTF16. s
17d90 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 6f qlite3 *db;. co
17da0 6e 73 74 20 76 6f 69 64 20 2a 7a 53 71 6c 3b 0a nst void *zSql;.
17db0 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 54 const void *zT
17dc0 61 69 6c 20 3d 20 30 3b 0a 20 20 54 63 6c 5f 4f ail = 0;. Tcl_O
17dd0 62 6a 20 2a 70 54 61 69 6c 20 3d 20 30 3b 0a 20 bj *pTail = 0;.
17de0 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
17df0 53 74 6d 74 20 3d 20 30 3b 0a 20 20 63 68 61 72 Stmt = 0;. char
17e00 20 7a 42 75 66 5b 35 30 5d 3b 20 0a 20 20 69 6e zBuf[50]; . in
17e10 74 20 72 63 3b 0a 20 20 69 6e 74 20 62 79 74 65 t rc;. int byte
17e20 73 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s;
17e30 20 20 2f 2a 20 54 68 65 20 69 6e 74 65 67 65 72 /* The integer
17e40 20 73 70 65 63 69 66 69 65 64 20 61 73 20 61 72 specified as ar
17e50 67 20 33 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a g 3 */. int obj
17e60 6c 65 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 len;
17e70 20 20 20 2f 2a 20 54 68 65 20 62 79 74 65 2d 61 /* The byte-a
17e80 72 72 61 79 20 6c 65 6e 67 74 68 20 6f 66 20 61 rray length of a
17e90 72 67 20 32 20 2a 2f 0a 0a 20 20 69 66 28 20 6f rg 2 */.. if( o
17ea0 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 bjc!=5 ){. Tc
17eb0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
17ec0 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
17ed0 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
17ee0 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
17ef0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
17f00 30 5d 29 2c 20 22 20 44 42 20 73 71 6c 20 62 79 0]), " DB sql by
17f10 74 65 73 20 74 61 69 6c 76 61 72 22 2c 20 30 29 tes tailvar", 0)
17f20 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
17f30 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
17f40 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
17f50 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
17f60 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
17f70 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
17f80 5f 45 52 52 4f 52 3b 0a 20 20 7a 53 71 6c 20 3d _ERROR;. zSql =
17f90 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 Tcl_GetByteArra
17fa0 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d yFromObj(objv[2]
17fb0 2c 20 26 6f 62 6a 6c 65 6e 29 3b 0a 20 20 69 66 , &objlen);. if
17fc0 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
17fd0 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
17fe0 5b 33 5d 2c 20 26 62 79 74 65 73 29 20 29 20 72 [3], &bytes) ) r
17ff0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
18000 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 .. rc = sqlite3
18010 5f 70 72 65 70 61 72 65 31 36 28 64 62 2c 20 7a _prepare16(db, z
18020 53 71 6c 2c 20 62 79 74 65 73 2c 20 26 70 53 74 Sql, bytes, &pSt
18030 6d 74 2c 20 26 7a 54 61 69 6c 29 3b 0a 20 20 69 mt, &zTail);. i
18040 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 f( sqlite3TestEr
18050 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 rCode(interp, db
18060 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 , rc) ) return T
18070 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
18080 72 63 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e rc ){. return
18090 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
180a0 0a 20 20 69 66 28 20 7a 54 61 69 6c 20 29 7b 0a . if( zTail ){.
180b0 20 20 20 20 6f 62 6a 6c 65 6e 20 3d 20 6f 62 6a objlen = obj
180c0 6c 65 6e 20 2d 20 28 28 75 38 20 2a 29 7a 54 61 len - ((u8 *)zTa
180d0 69 6c 2d 28 75 38 20 2a 29 7a 53 71 6c 29 3b 0a il-(u8 *)zSql);.
180e0 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 6f 62 6a }else{. obj
180f0 6c 65 6e 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 70 len = 0;. }. p
18100 54 61 69 6c 20 3d 20 54 63 6c 5f 4e 65 77 42 79 Tail = Tcl_NewBy
18110 74 65 41 72 72 61 79 4f 62 6a 28 28 75 38 20 2a teArrayObj((u8 *
18120 29 7a 54 61 69 6c 2c 20 6f 62 6a 6c 65 6e 29 3b )zTail, objlen);
18130 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f . Tcl_IncrRefCo
18140 75 6e 74 28 70 54 61 69 6c 29 3b 0a 20 20 54 63 unt(pTail);. Tc
18150 6c 5f 4f 62 6a 53 65 74 56 61 72 32 28 69 6e 74 l_ObjSetVar2(int
18160 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 30 2c erp, objv[4], 0,
18170 20 70 54 61 69 6c 2c 20 30 29 3b 0a 20 20 54 63 pTail, 0);. Tc
18180 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 l_DecrRefCount(p
18190 54 61 69 6c 29 3b 0a 0a 20 20 69 66 28 20 70 53 Tail);.. if( pS
181a0 74 6d 74 20 29 7b 0a 20 20 20 20 69 66 28 20 73 tmt ){. if( s
181b0 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 50 6f qlite3TestMakePo
181c0 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 2c interStr(interp,
181d0 20 7a 42 75 66 2c 20 70 53 74 6d 74 29 20 29 20 zBuf, pStmt) )
181e0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
181f0 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 ;. }. Tcl_Appe
18200 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
18210 20 7a 42 75 66 2c 20 30 29 3b 0a 23 65 6e 64 69 zBuf, 0);.#endi
18220 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 f /* SQLITE_OMIT
18230 5f 55 54 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 _UTF16 */. retu
18240 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
18250 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
18260 65 33 5f 70 72 65 70 61 72 65 31 36 5f 76 32 20 e3_prepare16_v2
18270 44 42 20 73 71 6c 20 62 79 74 65 73 20 74 61 69 DB sql bytes tai
18280 6c 76 61 72 0a 2a 2a 0a 2a 2a 20 43 6f 6d 70 69 lvar.**.** Compi
18290 6c 65 20 75 70 20 74 6f 20 3c 62 79 74 65 73 3e le up to <bytes>
182a0 20 62 79 74 65 73 20 6f 66 20 74 68 65 20 73 75 bytes of the su
182b0 70 70 6c 69 65 64 20 53 51 4c 20 73 74 72 69 6e pplied SQL strin
182c0 67 20 3c 73 71 6c 3e 20 75 73 69 6e 67 0a 2a 2a g <sql> using.**
182d0 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 database handle
182e0 20 3c 44 42 3e 2e 20 54 68 65 20 70 61 72 61 6d <DB>. The param
182f0 65 74 65 72 20 3c 74 61 69 6c 76 61 6c 3e 20 69 eter <tailval> i
18300 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 s the name of a
18310 67 6c 6f 62 61 6c 0a 2a 2a 20 76 61 72 69 61 62 global.** variab
18320 6c 65 20 74 68 61 74 20 69 73 20 73 65 74 20 74 le that is set t
18330 6f 20 74 68 65 20 75 6e 75 73 65 64 20 70 6f 72 o the unused por
18340 74 69 6f 6e 20 6f 66 20 3c 73 71 6c 3e 20 28 69 tion of <sql> (i
18350 66 20 61 6e 79 29 2e 20 41 0a 2a 2a 20 53 54 4d f any). A.** STM
18360 54 20 68 61 6e 64 6c 65 20 69 73 20 72 65 74 75 T handle is retu
18370 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 rned..*/.static
18380 69 6e 74 20 74 65 73 74 5f 70 72 65 70 61 72 65 int test_prepare
18390 31 36 5f 76 32 28 0a 20 20 76 6f 69 64 20 2a 20 16_v2(. void *
183a0 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
183b0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
183c0 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
183d0 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
183e0 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 bjv[].){.#ifndef
183f0 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 SQLITE_OMIT_UTF
18400 31 36 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 16. sqlite3 *db
18410 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a ;. const void *
18420 7a 53 71 6c 3b 0a 20 20 63 6f 6e 73 74 20 76 6f zSql;. const vo
18430 69 64 20 2a 7a 54 61 69 6c 20 3d 20 30 3b 0a 20 id *zTail = 0;.
18440 20 54 63 6c 5f 4f 62 6a 20 2a 70 54 61 69 6c 20 Tcl_Obj *pTail
18450 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 = 0;. sqlite3_s
18460 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 30 3b 0a tmt *pStmt = 0;.
18470 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 5d 3b char zBuf[50];
18480 20 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e . int rc;. in
18490 74 20 62 79 74 65 73 3b 20 20 20 20 20 20 20 20 t bytes;
184a0 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 69 /* The i
184b0 6e 74 65 67 65 72 20 73 70 65 63 69 66 69 65 64 nteger specified
184c0 20 61 73 20 61 72 67 20 33 20 2a 2f 0a 20 20 69 as arg 3 */. i
184d0 6e 74 20 6f 62 6a 6c 65 6e 3b 20 20 20 20 20 20 nt objlen;
184e0 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 /* The
184f0 62 79 74 65 2d 61 72 72 61 79 20 6c 65 6e 67 74 byte-array lengt
18500 68 20 6f 66 20 61 72 67 20 32 20 2a 2f 0a 0a 20 h of arg 2 */..
18510 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 7b 0a if( objc!=5 ){.
18520 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
18530 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
18540 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
18550 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
18560 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
18570 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 20 (objv[0]), " DB
18580 73 71 6c 20 62 79 74 65 73 20 74 61 69 6c 76 61 sql bytes tailva
18590 72 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 r", 0);. retu
185a0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
185b0 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
185c0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
185d0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
185e0 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 1]), &db) ) retu
185f0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
18600 7a 53 71 6c 20 3d 20 54 63 6c 5f 47 65 74 42 79 zSql = Tcl_GetBy
18610 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f teArrayFromObj(o
18620 62 6a 76 5b 32 5d 2c 20 26 6f 62 6a 6c 65 6e 29 bjv[2], &objlen)
18630 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 ;. if( Tcl_GetI
18640 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
18650 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 62 79 74 65 , objv[3], &byte
18660 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f s) ) return TCL_
18670 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 ERROR;.. rc = s
18680 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 qlite3_prepare16
18690 5f 76 32 28 64 62 2c 20 7a 53 71 6c 2c 20 62 79 _v2(db, zSql, by
186a0 74 65 73 2c 20 26 70 53 74 6d 74 2c 20 26 7a 54 tes, &pStmt, &zT
186b0 61 69 6c 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 ail);. if( sqli
186c0 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 te3TestErrCode(i
186d0 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 nterp, db, rc) )
186e0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
186f0 52 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 R;. if( rc ){.
18700 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
18710 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
18720 7a 54 61 69 6c 20 29 7b 0a 20 20 20 20 6f 62 6a zTail ){. obj
18730 6c 65 6e 20 3d 20 6f 62 6a 6c 65 6e 20 2d 20 28 len = objlen - (
18740 28 75 38 20 2a 29 7a 54 61 69 6c 2d 28 75 38 20 (u8 *)zTail-(u8
18750 2a 29 7a 53 71 6c 29 3b 0a 20 20 7d 65 6c 73 65 *)zSql);. }else
18760 7b 0a 20 20 20 20 6f 62 6a 6c 65 6e 20 3d 20 30 {. objlen = 0
18770 3b 0a 20 20 7d 0a 20 20 70 54 61 69 6c 20 3d 20 ;. }. pTail =
18780 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 Tcl_NewByteArray
18790 4f 62 6a 28 28 75 38 20 2a 29 7a 54 61 69 6c 2c Obj((u8 *)zTail,
187a0 20 6f 62 6a 6c 65 6e 29 3b 0a 20 20 54 63 6c 5f objlen);. Tcl_
187b0 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 54 61 IncrRefCount(pTa
187c0 69 6c 29 3b 0a 20 20 54 63 6c 5f 4f 62 6a 53 65 il);. Tcl_ObjSe
187d0 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 6f 62 tVar2(interp, ob
187e0 6a 76 5b 34 5d 2c 20 30 2c 20 70 54 61 69 6c 2c jv[4], 0, pTail,
187f0 20 30 29 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52 0);. Tcl_DecrR
18800 65 66 43 6f 75 6e 74 28 70 54 61 69 6c 29 3b 0a efCount(pTail);.
18810 0a 20 20 69 66 28 20 70 53 74 6d 74 20 29 7b 0a . if( pStmt ){.
18820 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 if( sqlite3T
18830 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 estMakePointerSt
18840 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 r(interp, zBuf,
18850 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
18860 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
18870 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
18880 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 t(interp, zBuf,
18890 30 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 0);.#endif /* SQ
188a0 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 LITE_OMIT_UTF16
188b0 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f */. return TCL_
188c0 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
188d0 67 65 3a 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e ge: sqlite3_open
188e0 20 66 69 6c 65 6e 61 6d 65 20 3f 6f 70 74 69 6f filename ?optio
188f0 6e 73 2d 6c 69 73 74 3f 0a 2a 2f 0a 73 74 61 74 ns-list?.*/.stat
18900 69 63 20 69 6e 74 20 74 65 73 74 5f 6f 70 65 6e ic int test_open
18910 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
18920 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
18930 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
18940 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
18950 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
18960 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 .){. const char
18970 20 2a 7a 46 69 6c 65 6e 61 6d 65 3b 0a 20 20 73 *zFilename;. s
18980 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e qlite3 *db;. in
18990 74 20 72 63 3b 0a 20 20 63 68 61 72 20 7a 42 75 t rc;. char zBu
189a0 66 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 28 20 6f f[100];.. if( o
189b0 62 6a 63 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d bjc!=3 && objc!=
189c0 32 20 26 26 20 6f 62 6a 63 21 3d 31 20 29 7b 0a 2 && objc!=1 ){.
189d0 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
189e0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
189f0 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
18a00 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
18a10 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
18a20 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 66 69 6c (objv[0]), " fil
18a30 65 6e 61 6d 65 20 6f 70 74 69 6f 6e 73 2d 6c 69 ename options-li
18a40 73 74 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 st", 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 7a 46 69 6c 65 6e 61 6d 65 20 }.. zFilename
18a70 3d 20 6f 62 6a 63 3e 31 20 3f 20 54 63 6c 5f 47 = objc>1 ? Tcl_G
18a80 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
18a90 29 20 3a 20 30 3b 0a 20 20 72 63 20 3d 20 73 71 ) : 0;. rc = sq
18aa0 6c 69 74 65 33 5f 6f 70 65 6e 28 7a 46 69 6c 65 lite3_open(zFile
18ab0 6e 61 6d 65 2c 20 26 64 62 29 3b 0a 20 20 0a 20 name, &db);. .
18ac0 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
18ad0 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 69 MakePointerStr(i
18ae0 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 64 62 29 nterp, zBuf, db)
18af0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
18b00 52 4f 52 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e ROR;. Tcl_Appen
18b10 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
18b20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 zBuf, 0);. retu
18b30 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
18b40 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
18b50 65 33 5f 6f 70 65 6e 31 36 20 66 69 6c 65 6e 61 e3_open16 filena
18b60 6d 65 20 6f 70 74 69 6f 6e 73 0a 2a 2f 0a 73 74 me options.*/.st
18b70 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6f 70 atic int test_op
18b80 65 6e 31 36 28 0a 20 20 76 6f 69 64 20 2a 20 63 en16(. void * c
18b90 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
18ba0 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
18bb0 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
18bc0 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
18bd0 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 jv[].){.#ifndef
18be0 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 SQLITE_OMIT_UTF1
18bf0 36 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 6. const void *
18c00 7a 46 69 6c 65 6e 61 6d 65 3b 0a 20 20 73 71 6c zFilename;. sql
18c10 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 ite3 *db;. int
18c20 72 63 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b rc;. char zBuf[
18c30 31 30 30 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 100];.. if( obj
18c40 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
18c50 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
18c60 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
18c70 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
18c80 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 ", . Tcl_G
18c90 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d etString(objv[0]
18ca0 29 2c 20 22 20 66 69 6c 65 6e 61 6d 65 20 6f 70 ), " filename op
18cb0 74 69 6f 6e 73 2d 6c 69 73 74 22 2c 20 30 29 3b tions-list", 0);
18cc0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
18cd0 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 7a 46 ERROR;. }.. zF
18ce0 69 6c 65 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 ilename = Tcl_Ge
18cf0 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 tByteArrayFromOb
18d00 6a 28 6f 62 6a 76 5b 31 5d 2c 20 30 29 3b 0a 20 j(objv[1], 0);.
18d10 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 6f 70 rc = sqlite3_op
18d20 65 6e 31 36 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 en16(zFilename,
18d30 26 64 62 29 3b 0a 20 20 0a 20 20 69 66 28 20 73 &db);. . if( s
18d40 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 50 6f qlite3TestMakePo
18d50 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 2c interStr(interp,
18d60 20 7a 42 75 66 2c 20 64 62 29 20 29 20 72 65 74 zBuf, db) ) ret
18d70 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
18d80 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
18d90 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 t(interp, zBuf,
18da0 30 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 0);.#endif /* SQ
18db0 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 LITE_OMIT_UTF16
18dc0 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f */. return TCL_
18dd0 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
18de0 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6d 70 ge: sqlite3_comp
18df0 6c 65 74 65 31 36 20 3c 55 54 46 2d 31 36 20 73 lete16 <UTF-16 s
18e00 74 72 69 6e 67 3e 0a 2a 2a 0a 2a 2a 20 52 65 74 tring>.**.** Ret
18e10 75 72 6e 20 31 20 69 66 20 74 68 65 20 73 75 70 urn 1 if the sup
18e20 70 6c 69 65 64 20 61 72 67 75 6d 65 6e 74 20 69 plied argument i
18e30 73 20 61 20 63 6f 6d 70 6c 65 74 65 20 53 51 4c s a complete SQL
18e40 20 73 74 61 74 65 6d 65 6e 74 2c 20 6f 72 20 7a statement, or z
18e50 65 72 6f 0a 2a 2a 20 6f 74 68 65 72 77 69 73 65 ero.** otherwise
18e60 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
18e70 74 65 73 74 5f 63 6f 6d 70 6c 65 74 65 31 36 28 test_complete16(
18e80 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
18e90 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
18ea0 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
18eb0 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
18ec0 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
18ed0 29 7b 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 ){.#if !defined(
18ee0 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 SQLITE_OMIT_COMP
18ef0 4c 45 54 45 29 20 26 26 20 21 64 65 66 69 6e 65 LETE) && !define
18f00 64 28 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 d(SQLITE_OMIT_UT
18f10 46 31 36 29 0a 20 20 63 68 61 72 20 2a 7a 42 75 F16). char *zBu
18f20 66 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d f;.. if( objc!=
18f30 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 2 ){. Tcl_Wro
18f40 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
18f50 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3c 75 74 66 , 1, objv, "<utf
18f60 2d 31 36 20 73 71 6c 3e 22 29 3b 0a 20 20 20 20 -16 sql>");.
18f70 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
18f80 3b 0a 20 20 7d 0a 0a 20 20 7a 42 75 66 20 3d 20 ;. }.. zBuf =
18f90 28 63 68 61 72 2a 29 54 63 6c 5f 47 65 74 42 79 (char*)Tcl_GetBy
18fa0 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f teArrayFromObj(o
18fb0 62 6a 76 5b 31 5d 2c 20 30 29 3b 0a 20 20 54 63 bjv[1], 0);. Tc
18fc0 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
18fd0 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e nterp, Tcl_NewIn
18fe0 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f 63 6f 6d tObj(sqlite3_com
18ff0 70 6c 65 74 65 31 36 28 7a 42 75 66 29 29 29 3b plete16(zBuf)));
19000 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 .#endif /* SQLIT
19010 45 5f 4f 4d 49 54 5f 43 4f 4d 50 4c 45 54 45 20 E_OMIT_COMPLETE
19020 26 26 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 && SQLITE_OMIT_U
19030 54 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e TF16 */. return
19040 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
19050 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
19060 5f 73 74 65 70 20 53 54 4d 54 0a 2a 2a 0a 2a 2a _step STMT.**.**
19070 20 41 64 76 61 6e 63 65 20 74 68 65 20 73 74 61 Advance the sta
19080 74 65 6d 65 6e 74 20 74 6f 20 74 68 65 20 6e 65 tement to the ne
19090 78 74 20 72 6f 77 2e 0a 2a 2f 0a 73 74 61 74 69 xt row..*/.stati
190a0 63 20 69 6e 74 20 74 65 73 74 5f 73 74 65 70 28 c int test_step(
190b0 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
190c0 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
190d0 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
190e0 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
190f0 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
19100 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
19110 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 t *pStmt;. int
19120 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 rc;.. if( objc!
19130 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
19140 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
19150 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
19160 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
19170 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
19180 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
19190 20 22 20 53 54 4d 54 22 2c 20 30 29 3b 0a 20 20 " STMT", 0);.
191a0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
191b0 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 OR;. }.. if( g
191c0 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e etStmtPointer(in
191d0 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
191e0 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 ing(objv[1]), &p
191f0 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 Stmt) ) return T
19200 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d CL_ERROR;. rc =
19210 20 73 71 6c 69 74 65 33 5f 73 74 65 70 28 70 53 sqlite3_step(pS
19220 74 6d 74 29 3b 0a 0a 20 20 2f 2a 20 69 66 28 20 tmt);.. /* if(
19230 72 63 21 3d 53 51 4c 49 54 45 5f 44 4f 4e 45 20 rc!=SQLITE_DONE
19240 26 26 20 72 63 21 3d 53 51 4c 49 54 45 5f 52 4f && rc!=SQLITE_RO
19250 57 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 W ) return TCL_E
19260 52 52 4f 52 3b 20 2a 2f 0a 20 20 54 63 6c 5f 53 RROR; */. Tcl_S
19270 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
19280 20 28 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 (char *)t1Error
19290 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 Name(rc), 0);.
192a0 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
192b0 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 ../*.** Usage: s
192c0 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f qlite3_column_co
192d0 75 6e 74 20 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 unt STMT .**.**
192e0 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
192f0 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 72 65 74 r of columns ret
19300 75 72 6e 65 64 20 62 79 20 74 68 65 20 73 71 6c urned by the sql
19310 20 73 74 61 74 65 6d 65 6e 74 20 53 54 4d 54 2e statement STMT.
19320 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
19330 65 73 74 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 est_column_count
19340 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
19350 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
19360 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
19370 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
19380 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
19390 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 .){. sqlite3_st
193a0 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 66 mt *pStmt;.. if
193b0 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
193c0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
193d0 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
193e0 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
193f0 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 be \"", .
19400 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
19410 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 jv[0]), " STMT c
19420 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 olumn", 0);.
19430 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
19440 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 ;. }.. if( get
19450 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
19460 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
19470 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
19480 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
19490 5f 45 52 52 4f 52 3b 0a 0a 20 20 54 63 6c 5f 53 _ERROR;.. Tcl_S
194a0 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
194b0 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 rp, Tcl_NewIntOb
194c0 6a 28 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e j(sqlite3_column
194d0 5f 63 6f 75 6e 74 28 70 53 74 6d 74 29 29 29 3b _count(pStmt)));
194e0 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
194f0 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
19500 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e : sqlite3_column
19510 5f 74 79 70 65 20 53 54 4d 54 20 63 6f 6c 75 6d _type STMT colum
19520 6e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 n.**.** Return t
19530 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 64 he type of the d
19540 61 74 61 20 69 6e 20 63 6f 6c 75 6d 6e 20 27 63 ata in column 'c
19550 6f 6c 75 6d 6e 27 20 6f 66 20 74 68 65 20 63 75 olumn' of the cu
19560 72 72 65 6e 74 20 72 6f 77 2e 0a 2a 2f 0a 73 74 rrent row..*/.st
19570 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f atic int test_co
19580 6c 75 6d 6e 5f 74 79 70 65 28 0a 20 20 76 6f 69 lumn_type(. voi
19590 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
195a0 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
195b0 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
195c0 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
195d0 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
195e0 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
195f0 6d 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 mt;. int col;.
19600 20 69 6e 74 20 74 70 3b 0a 0a 20 20 69 66 28 20 int tp;.. if(
19610 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 objc!=3 ){. T
19620 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
19630 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
19640 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
19650 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 \"", . Tc
19660 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
19670 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c [0]), " STMT col
19680 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 umn", 0);. re
19690 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
196a0 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 }.. if( getSt
196b0 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
196c0 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
196d0 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 objv[1]), &pStmt
196e0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
196f0 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
19700 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
19710 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 terp, objv[2], &
19720 63 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 col) ) return TC
19730 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 74 70 20 3d L_ERROR;.. tp =
19740 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
19750 74 79 70 65 28 70 53 74 6d 74 2c 20 63 6f 6c 29 type(pStmt, col)
19760 3b 0a 20 20 73 77 69 74 63 68 28 20 74 70 20 29 ;. switch( tp )
19770 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 {. case SQLIT
19780 45 5f 49 4e 54 45 47 45 52 3a 20 0a 20 20 20 20 E_INTEGER: .
19790 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
197a0 69 6e 74 65 72 70 2c 20 22 49 4e 54 45 47 45 52 interp, "INTEGER
197b0 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 20 ", TCL_STATIC);
197c0 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
197d0 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 case SQLITE_NU
197e0 4c 4c 3a 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 LL:. Tcl_Se
197f0 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
19800 22 4e 55 4c 4c 22 2c 20 54 43 4c 5f 53 54 41 54 "NULL", TCL_STAT
19810 49 43 29 3b 20 0a 20 20 20 20 20 20 62 72 65 61 IC); . brea
19820 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
19830 54 45 5f 46 4c 4f 41 54 3a 0a 20 20 20 20 20 20 TE_FLOAT:.
19840 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
19850 74 65 72 70 2c 20 22 46 4c 4f 41 54 22 2c 20 54 terp, "FLOAT", T
19860 43 4c 5f 53 54 41 54 49 43 29 3b 20 0a 20 20 20 CL_STATIC); .
19870 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
19880 73 65 20 53 51 4c 49 54 45 5f 54 45 58 54 3a 0a se SQLITE_TEXT:.
19890 20 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 Tcl_SetRes
198a0 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 54 45 58 ult(interp, "TEX
198b0 54 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b T", TCL_STATIC);
198c0 20 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 . break;.
198d0 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 42 case SQLITE_B
198e0 4c 4f 42 3a 0a 20 20 20 20 20 20 54 63 6c 5f 53 LOB:. Tcl_S
198f0 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
19900 20 22 42 4c 4f 42 22 2c 20 54 43 4c 5f 53 54 41 "BLOB", TCL_STA
19910 54 49 43 29 3b 20 0a 20 20 20 20 20 20 62 72 65 TIC); . bre
19920 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a ak;. default:
19930 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 30 29 . assert(0)
19940 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 ;. }.. return
19950 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
19960 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
19970 63 6f 6c 75 6d 6e 5f 69 6e 74 36 34 20 53 54 4d column_int64 STM
19980 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 52 T column.**.** R
19990 65 74 75 72 6e 20 74 68 65 20 64 61 74 61 20 69 eturn the data i
199a0 6e 20 63 6f 6c 75 6d 6e 20 27 63 6f 6c 75 6d 6e n column 'column
199b0 27 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 ' of the current
199c0 20 72 6f 77 20 63 61 73 74 20 61 73 20 61 6e 0a row cast as an.
199d0 2a 2a 20 77 69 64 65 20 28 36 34 2d 62 69 74 29 ** wide (64-bit)
199e0 20 69 6e 74 65 67 65 72 2e 0a 2a 2f 0a 73 74 61 integer..*/.sta
199f0 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c tic int test_col
19a00 75 6d 6e 5f 69 6e 74 36 34 28 0a 20 20 76 6f 69 umn_int64(. voi
19a10 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
19a20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
19a30 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
19a40 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
19a50 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
19a60 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
19a70 6d 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 mt;. int col;.
19a80 20 69 36 34 20 69 56 61 6c 3b 0a 0a 20 20 69 66 i64 iVal;.. if
19a90 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 ( objc!=3 ){.
19aa0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
19ab0 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
19ac0 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
19ad0 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 be \"", .
19ae0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
19af0 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 jv[0]), " STMT c
19b00 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 olumn", 0);.
19b10 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
19b20 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 ;. }.. if( get
19b30 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
19b40 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
19b50 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
19b60 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
19b70 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 _ERROR;. if( Tc
19b80 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
19b90 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
19ba0 20 26 63 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 &col) ) return
19bb0 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 69 56 TCL_ERROR;.. iV
19bc0 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c al = sqlite3_col
19bd0 75 6d 6e 5f 69 6e 74 36 34 28 70 53 74 6d 74 2c umn_int64(pStmt,
19be0 20 63 6f 6c 29 3b 0a 20 20 54 63 6c 5f 53 65 74 col);. Tcl_Set
19bf0 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
19c00 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 , Tcl_NewWideInt
19c10 4f 62 6a 28 69 56 61 6c 29 29 3b 0a 20 20 72 65 Obj(iVal));. re
19c20 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
19c30 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c /*.** Usage: sql
19c40 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 ite3_column_blob
19c50 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2f 0a STMT column.*/.
19c60 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
19c70 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 28 0a 20 20 76 column_blob(. v
19c80 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
19c90 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
19ca0 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
19cb0 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
19cc0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
19cd0 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
19ce0 53 74 6d 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b Stmt;. int col;
19cf0 0a 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 63 .. int len;. c
19d00 6f 6e 73 74 20 76 6f 69 64 20 2a 70 42 6c 6f 62 onst void *pBlob
19d10 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 ;.. if( objc!=3
19d20 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
19d30 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
19d40 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
19d50 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a should be \"", .
19d60 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
19d70 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 ring(objv[0]), "
19d80 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 STMT column", 0
19d90 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
19da0 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
19db0 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
19dc0 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
19dd0 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
19de0 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
19df0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
19e00 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
19e10 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
19e20 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 20 bjv[2], &col) )
19e30 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
19e40 3b 0a 0a 20 20 6c 65 6e 20 3d 20 73 71 6c 69 74 ;.. len = sqlit
19e50 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 28 e3_column_bytes(
19e60 70 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 70 pStmt, col);. p
19e70 42 6c 6f 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 Blob = sqlite3_c
19e80 6f 6c 75 6d 6e 5f 62 6c 6f 62 28 70 53 74 6d 74 olumn_blob(pStmt
19e90 2c 20 63 6f 6c 29 3b 0a 20 20 54 63 6c 5f 53 65 , col);. Tcl_Se
19ea0 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
19eb0 70 2c 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 p, Tcl_NewByteAr
19ec0 72 61 79 4f 62 6a 28 70 42 6c 6f 62 2c 20 6c 65 rayObj(pBlob, le
19ed0 6e 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 n));. return TC
19ee0 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
19ef0 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f sage: sqlite3_co
19f00 6c 75 6d 6e 5f 64 6f 75 62 6c 65 20 53 54 4d 54 lumn_double STMT
19f10 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 52 65 column.**.** Re
19f20 74 75 72 6e 20 74 68 65 20 64 61 74 61 20 69 6e turn the data in
19f30 20 63 6f 6c 75 6d 6e 20 27 63 6f 6c 75 6d 6e 27 column 'column'
19f40 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 of the current
19f50 72 6f 77 20 63 61 73 74 20 61 73 20 61 20 64 6f row cast as a do
19f60 75 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 uble..*/.static
19f70 69 6e 74 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f int test_column_
19f80 64 6f 75 62 6c 65 28 0a 20 20 76 6f 69 64 20 2a double(. void *
19f90 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
19fa0 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
19fb0 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
19fc0 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
19fd0 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
19fe0 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
19ff0 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 64 6f . int col;. do
1a000 75 62 6c 65 20 72 56 61 6c 3b 0a 0a 20 20 69 66 uble rVal;.. if
1a010 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 ( objc!=3 ){.
1a020 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1a030 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
1a040 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
1a050 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 be \"", .
1a060 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
1a070 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 jv[0]), " STMT c
1a080 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 olumn", 0);.
1a090 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1a0a0 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 ;. }.. if( get
1a0b0 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
1a0c0 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
1a0d0 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
1a0e0 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
1a0f0 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 _ERROR;. if( Tc
1a100 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
1a110 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
1a120 20 26 63 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 &col) ) return
1a130 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 56 TCL_ERROR;.. rV
1a140 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c al = sqlite3_col
1a150 75 6d 6e 5f 64 6f 75 62 6c 65 28 70 53 74 6d 74 umn_double(pStmt
1a160 2c 20 63 6f 6c 29 3b 0a 20 20 54 63 6c 5f 53 65 , col);. Tcl_Se
1a170 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
1a180 70 2c 20 54 63 6c 5f 4e 65 77 44 6f 75 62 6c 65 p, Tcl_NewDouble
1a190 4f 62 6a 28 72 56 61 6c 29 29 3b 0a 20 20 72 65 Obj(rVal));. re
1a1a0 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
1a1b0 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c /*.** Usage: sql
1a1c0 69 74 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74 20 ite3_data_count
1a1d0 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 52 65 74 75 STMT .**.** Retu
1a1e0 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 rn the number of
1a1f0 20 63 6f 6c 75 6d 6e 73 20 72 65 74 75 72 6e 65 columns returne
1a200 64 20 62 79 20 74 68 65 20 73 71 6c 20 73 74 61 d by the sql sta
1a210 74 65 6d 65 6e 74 20 53 54 4d 54 2e 0a 2a 2f 0a tement STMT..*/.
1a220 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
1a230 64 61 74 61 5f 63 6f 75 6e 74 28 0a 20 20 76 6f data_count(. vo
1a240 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
1a250 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1a260 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
1a270 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
1a280 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
1a290 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 sqlite3_stmt *pS
1a2a0 74 6d 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 tmt;.. if( objc
1a2b0 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=2 ){. Tcl_A
1a2c0 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1a2d0 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
1a2e0 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
1a2f0 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 , . Tcl_Ge
1a300 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 tString(objv[0])
1a310 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 , " STMT column"
1a320 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
1a330 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
1a340 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f . if( getStmtPo
1a350 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
1a360 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
1a370 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 [1]), &pStmt) )
1a380 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1a390 3b 0a 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 ;.. Tcl_SetObjR
1a3a0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
1a3b0 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 l_NewIntObj(sqli
1a3c0 74 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74 28 70 te3_data_count(p
1a3d0 53 74 6d 74 29 29 29 3b 0a 20 20 72 65 74 75 72 Stmt)));. retur
1a3e0 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
1a3f0 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
1a400 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 53 54 3_column_text ST
1a410 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 MT column.**.**
1a420 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 Usage: sqlite3_c
1a430 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 20 53 olumn_decltype S
1a440 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a TMT column.**.**
1a450 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
1a460 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 20 53 54 4d 54 column_name STMT
1a470 20 63 6f 6c 75 6d 6e 0a 2a 2f 0a 73 74 61 74 69 column.*/.stati
1a480 63 20 69 6e 74 20 74 65 73 74 5f 73 74 6d 74 5f c int test_stmt_
1a490 75 74 66 38 28 0a 20 20 76 6f 69 64 20 2a 20 63 utf8(. void * c
1a4a0 6c 69 65 6e 74 44 61 74 61 2c 20 20 20 20 20 20 lientData,
1a4b0 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 /* Pointer to
1a4c0 53 51 4c 69 74 65 20 41 50 49 20 66 75 6e 63 74 SQLite API funct
1a4d0 69 6f 6e 20 74 6f 20 62 65 20 69 6e 76 6f 6b 65 ion to be invoke
1a4e0 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 */. Tcl_Interp
1a4f0 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
1a500 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
1a510 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
1a520 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
1a530 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 63 6f *pStmt;. int co
1a540 6c 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 l;. const char
1a550 2a 28 2a 78 46 75 6e 63 29 28 73 71 6c 69 74 65 *(*xFunc)(sqlite
1a560 33 5f 73 74 6d 74 2a 2c 20 69 6e 74 29 3b 0a 20 3_stmt*, int);.
1a570 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 52 65 const char *zRe
1a580 74 3b 0a 0a 20 20 78 46 75 6e 63 20 3d 20 28 63 t;.. xFunc = (c
1a590 6f 6e 73 74 20 63 68 61 72 20 2a 28 2a 29 28 73 onst char *(*)(s
1a5a0 71 6c 69 74 65 33 5f 73 74 6d 74 2a 2c 20 69 6e qlite3_stmt*, in
1a5b0 74 29 29 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 t))clientData;.
1a5c0 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a if( objc!=3 ){.
1a5d0 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
1a5e0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
1a5f0 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
1a600 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
1a610 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
1a620 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d (objv[0]), " STM
1a630 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 T column", 0);.
1a640 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
1a650 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
1a660 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
1a670 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
1a680 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
1a690 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
1a6a0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
1a6b0 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
1a6c0 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
1a6d0 32 5d 2c 20 26 63 6f 6c 29 20 29 20 72 65 74 75 2], &col) ) retu
1a6e0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1a6f0 7a 52 65 74 20 3d 20 78 46 75 6e 63 28 70 53 74 zRet = xFunc(pSt
1a700 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 69 66 28 20 mt, col);. if(
1a710 7a 52 65 74 20 29 7b 0a 20 20 20 20 54 63 6c 5f zRet ){. Tcl_
1a720 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
1a730 2c 20 28 63 68 61 72 20 2a 29 7a 52 65 74 2c 20 , (char *)zRet,
1a740 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 0);. }. return
1a750 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 TCL_OK;.}..stat
1a760 69 63 20 69 6e 74 20 74 65 73 74 5f 67 6c 6f 62 ic int test_glob
1a770 61 6c 5f 72 65 63 6f 76 65 72 28 0a 20 20 76 6f al_recover(. vo
1a780 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
1a790 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1a7a0 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
1a7b0 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
1a7c0 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 NST objv[].){.#i
1a7d0 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
1a7e0 54 5f 47 4c 4f 42 41 4c 52 45 43 4f 56 45 52 0a T_GLOBALRECOVER.
1a7f0 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
1a800 4d 49 54 5f 44 45 50 52 45 43 41 54 45 44 0a 20 MIT_DEPRECATED.
1a810 20 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 6f int rc;. if( o
1a820 62 6a 63 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 bjc!=1 ){. Tc
1a830 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
1a840 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
1a850 22 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 "");. return
1a860 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
1a870 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 67 6c rc = sqlite3_gl
1a880 6f 62 61 6c 5f 72 65 63 6f 76 65 72 28 29 3b 0a obal_recover();.
1a890 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
1a8a0 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
1a8b0 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c t1ErrorName(rc),
1a8c0 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 23 65 TCL_STATIC);.#e
1a8d0 6e 64 69 66 0a 23 65 6e 64 69 66 0a 20 20 72 65 ndif.#endif. re
1a8e0 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
1a8f0 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c /*.** Usage: sql
1a900 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 ite3_column_text
1a910 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a STMT column.**.
1a920 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
1a930 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 3_column_decltyp
1a940 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a e STMT column.**
1a950 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
1a960 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 20 53 e3_column_name S
1a970 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2f 0a 73 74 TMT column.*/.st
1a980 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 74 atic int test_st
1a990 6d 74 5f 75 74 66 31 36 28 0a 20 20 76 6f 69 64 mt_utf16(. void
1a9a0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 20 * clientData,
1a9b0 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f /* Pointer to
1a9c0 20 53 51 4c 69 74 65 20 41 50 49 20 66 75 6e 63 SQLite API func
1a9d0 74 69 6f 6e 20 74 6f 20 62 65 20 69 6e 76 6f 6b tion to be invok
1a9e0 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 ed */. Tcl_Inte
1a9f0 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
1aa00 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
1aa10 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
1aa20 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 ){.#ifndef SQLIT
1aa30 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 73 E_OMIT_UTF16. s
1aa40 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
1aa50 6d 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 mt;. int col;.
1aa60 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a Tcl_Obj *pRet;.
1aa70 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 4e const void *zN
1aa80 61 6d 65 31 36 3b 0a 20 20 63 6f 6e 73 74 20 76 ame16;. const v
1aa90 6f 69 64 20 2a 28 2a 78 46 75 6e 63 29 28 73 71 oid *(*xFunc)(sq
1aaa0 6c 69 74 65 33 5f 73 74 6d 74 2a 2c 20 69 6e 74 lite3_stmt*, int
1aab0 29 3b 0a 0a 20 20 78 46 75 6e 63 20 3d 20 28 63 );.. xFunc = (c
1aac0 6f 6e 73 74 20 76 6f 69 64 20 2a 28 2a 29 28 73 onst void *(*)(s
1aad0 71 6c 69 74 65 33 5f 73 74 6d 74 2a 2c 20 69 6e qlite3_stmt*, in
1aae0 74 29 29 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 t))clientData;.
1aaf0 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a if( objc!=3 ){.
1ab00 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
1ab10 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
1ab20 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
1ab30 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
1ab40 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
1ab50 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d (objv[0]), " STM
1ab60 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 T column", 0);.
1ab70 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
1ab80 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
1ab90 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
1aba0 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
1abb0 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
1abc0 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
1abd0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
1abe0 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
1abf0 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
1ac00 32 5d 2c 20 26 63 6f 6c 29 20 29 20 72 65 74 75 2], &col) ) retu
1ac10 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
1ac20 20 7a 4e 61 6d 65 31 36 20 3d 20 78 46 75 6e 63 zName16 = xFunc
1ac30 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 (pStmt, col);.
1ac40 69 66 28 20 7a 4e 61 6d 65 31 36 20 29 7b 0a 20 if( zName16 ){.
1ac50 20 20 20 70 52 65 74 20 3d 20 54 63 6c 5f 4e 65 pRet = Tcl_Ne
1ac60 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28 7a 4e wByteArrayObj(zN
1ac70 61 6d 65 31 36 2c 20 73 71 6c 69 74 65 33 55 74 ame16, sqlite3Ut
1ac80 66 31 36 42 79 74 65 4c 65 6e 28 7a 4e 61 6d 65 f16ByteLen(zName
1ac90 31 36 2c 20 2d 31 29 2b 32 29 3b 0a 20 20 20 20 16, -1)+2);.
1aca0 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
1acb0 28 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b 0a (interp, pRet);.
1acc0 20 20 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 }.#endif /* SQ
1acd0 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 LITE_OMIT_UTF16
1ace0 2a 2f 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c */.. return TCL
1acf0 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
1ad00 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c age: sqlite3_col
1ad10 75 6d 6e 5f 69 6e 74 20 53 54 4d 54 20 63 6f 6c umn_int STMT col
1ad20 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a umn.**.** Usage:
1ad30 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
1ad40 62 79 74 65 73 20 53 54 4d 54 20 63 6f 6c 75 6d bytes STMT colum
1ad50 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 n.**.** Usage: s
1ad60 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 qlite3_column_by
1ad70 74 65 73 31 36 20 53 54 4d 54 20 63 6f 6c 75 6d tes16 STMT colum
1ad80 6e 0a 2a 2a 0a 2a 2f 0a 73 74 61 74 69 63 20 69 n.**.*/.static i
1ad90 6e 74 20 74 65 73 74 5f 73 74 6d 74 5f 69 6e 74 nt test_stmt_int
1ada0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
1adb0 74 44 61 74 61 2c 20 20 20 20 2f 2a 20 50 6f 69 tData, /* Poi
1adc0 6e 74 65 72 20 74 6f 20 53 51 4c 69 74 65 20 41 nter to SQLite A
1add0 50 49 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 62 PI function to b
1ade0 65 20 69 6e 76 6f 6b 65 64 20 2a 2f 0a 20 20 54 e invoked */. T
1adf0 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1ae00 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
1ae10 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
1ae20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
1ae30 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
1ae40 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 69 6e . int col;. in
1ae50 74 20 28 2a 78 46 75 6e 63 29 28 73 71 6c 69 74 t (*xFunc)(sqlit
1ae60 65 33 5f 73 74 6d 74 2a 2c 20 69 6e 74 29 3b 0a e3_stmt*, int);.
1ae70 0a 20 20 78 46 75 6e 63 20 3d 20 28 69 6e 74 20 . xFunc = (int
1ae80 28 2a 29 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 (*)(sqlite3_stmt
1ae90 2a 2c 20 69 6e 74 29 29 63 6c 69 65 6e 74 44 61 *, int))clientDa
1aea0 74 61 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d ta;. if( objc!=
1aeb0 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 3 ){. Tcl_App
1aec0 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
1aed0 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
1aee0 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
1aef0 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 . Tcl_GetS
1af00 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 tring(objv[0]),
1af10 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 " STMT column",
1af20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
1af30 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
1af40 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e if( getStmtPoin
1af50 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
1af60 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
1af70 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 ]), &pStmt) ) re
1af80 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1af90 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
1afa0 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
1afb0 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 objv[2], &col) )
1afc0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1afd0 52 3b 0a 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a R;.. Tcl_SetObj
1afe0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
1aff0 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 78 46 75 cl_NewIntObj(xFu
1b000 6e 63 28 70 53 74 6d 74 2c 20 63 6f 6c 29 29 29 nc(pStmt, col)))
1b010 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
1b020 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
1b030 65 3a 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 6d e: sqlite_set_m
1b040 61 67 69 63 20 20 44 42 20 20 4d 41 47 49 43 2d agic DB MAGIC-
1b050 4e 55 4d 42 45 52 0a 2a 2a 0a 2a 2a 20 53 65 74 NUMBER.**.** Set
1b060 20 74 68 65 20 64 62 2d 3e 6d 61 67 69 63 20 76 the db->magic v
1b070 61 6c 75 65 2e 20 20 54 68 69 73 20 69 73 20 75 alue. This is u
1b080 73 65 64 20 74 6f 20 74 65 73 74 20 65 72 72 6f sed to test erro
1b090 72 20 72 65 63 6f 76 65 72 79 20 6c 6f 67 69 63 r recovery logic
1b0a0 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
1b0b0 73 71 6c 69 74 65 5f 73 65 74 5f 6d 61 67 69 63 sqlite_set_magic
1b0c0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
1b0d0 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
1b0e0 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
1b0f0 6e 74 20 61 72 67 63 2c 0a 20 20 63 68 61 72 20 nt argc,. char
1b100 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 **argv.){. sqli
1b110 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 te3 *db;. if( a
1b120 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 rgc!=3 ){. Tc
1b130 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
1b140 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
1b150 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
1b160 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 \"", argv[0],.
1b170 20 20 20 20 20 20 20 22 20 44 42 20 4d 41 47 49 " DB MAGI
1b180 43 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 C", 0);. retu
1b190 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1b1a0 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
1b1b0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 nter(interp, arg
1b1c0 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 v[1], &db) ) ret
1b1d0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1b1e0 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 if( strcmp(argv
1b1f0 5b 32 5d 2c 20 22 53 51 4c 49 54 45 5f 4d 41 47 [2], "SQLITE_MAG
1b200 49 43 5f 4f 50 45 4e 22 29 3d 3d 30 20 29 7b 0a IC_OPEN")==0 ){.
1b210 20 20 20 20 64 62 2d 3e 6d 61 67 69 63 20 3d 20 db->magic =
1b220 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 4f 50 45 SQLITE_MAGIC_OPE
1b230 4e 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 N;. }else if( s
1b240 74 72 63 6d 70 28 61 72 67 76 5b 32 5d 2c 20 22 trcmp(argv[2], "
1b250 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 43 4c 4f SQLITE_MAGIC_CLO
1b260 53 45 44 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 SED")==0 ){.
1b270 64 62 2d 3e 6d 61 67 69 63 20 3d 20 53 51 4c 49 db->magic = SQLI
1b280 54 45 5f 4d 41 47 49 43 5f 43 4c 4f 53 45 44 3b TE_MAGIC_CLOSED;
1b290 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 . }else if( str
1b2a0 63 6d 70 28 61 72 67 76 5b 32 5d 2c 20 22 53 51 cmp(argv[2], "SQ
1b2b0 4c 49 54 45 5f 4d 41 47 49 43 5f 42 55 53 59 22 LITE_MAGIC_BUSY"
1b2c0 29 3d 3d 30 20 29 7b 0a 20 20 20 20 64 62 2d 3e )==0 ){. db->
1b2d0 6d 61 67 69 63 20 3d 20 53 51 4c 49 54 45 5f 4d magic = SQLITE_M
1b2e0 41 47 49 43 5f 42 55 53 59 3b 0a 20 20 7d 65 6c AGIC_BUSY;. }el
1b2f0 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 se if( strcmp(ar
1b300 67 76 5b 32 5d 2c 20 22 53 51 4c 49 54 45 5f 4d gv[2], "SQLITE_M
1b310 41 47 49 43 5f 45 52 52 4f 52 22 29 3d 3d 30 20 AGIC_ERROR")==0
1b320 29 7b 0a 20 20 20 20 64 62 2d 3e 6d 61 67 69 63 ){. db->magic
1b330 20 3d 20 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f = SQLITE_MAGIC_
1b340 45 52 52 4f 52 3b 0a 20 20 7d 65 6c 73 65 20 69 ERROR;. }else i
1b350 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e f( Tcl_GetInt(in
1b360 74 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c 20 26 terp, argv[2], &
1b370 64 62 2d 3e 6d 61 67 69 63 29 20 29 7b 0a 20 20 db->magic) ){.
1b380 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
1b390 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e OR;. }. return
1b3a0 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
1b3b0 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
1b3c0 33 5f 69 6e 74 65 72 72 75 70 74 20 20 44 42 20 3_interrupt DB
1b3d0 0a 2a 2a 0a 2a 2a 20 54 72 69 67 67 65 72 20 61 .**.** Trigger a
1b3e0 6e 20 69 6e 74 65 72 72 75 70 74 20 6f 6e 20 44 n interrupt on D
1b3f0 42 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 B.*/.static int
1b400 74 65 73 74 5f 69 6e 74 65 72 72 75 70 74 28 0a test_interrupt(.
1b410 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
1b420 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
1b430 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
1b440 20 61 72 67 63 2c 0a 20 20 63 68 61 72 20 2a 2a argc,. char **
1b450 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 argv.){. sqlite
1b460 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 72 67 3 *db;. if( arg
1b470 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
1b480 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1b490 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
1b4a0 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
1b4b0 22 2c 20 61 72 67 76 5b 30 5d 2c 20 22 20 44 42 ", argv[0], " DB
1b4c0 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
1b4d0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
1b4e0 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
1b4f0 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 ter(interp, argv
1b500 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 [1], &db) ) retu
1b510 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1b520 73 71 6c 69 74 65 33 5f 69 6e 74 65 72 72 75 70 sqlite3_interrup
1b530 74 28 64 62 29 3b 0a 20 20 72 65 74 75 72 6e 20 t(db);. return
1b540 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 TCL_OK;.}..stati
1b550 63 20 75 38 20 2a 73 71 6c 69 74 65 33 5f 73 74 c u8 *sqlite3_st
1b560 61 63 6b 5f 62 61 73 65 6c 69 6e 65 20 3d 20 30 ack_baseline = 0
1b570 3b 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c 6c 20 74 68 ;../*.** Fill th
1b580 65 20 73 74 61 63 6b 20 77 69 74 68 20 61 20 6b e stack with a k
1b590 6e 6f 77 6e 20 62 69 74 70 61 74 74 65 72 6e 2e nown bitpattern.
1b5a0 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
1b5b0 70 72 65 70 53 74 61 63 6b 28 76 6f 69 64 29 7b prepStack(void){
1b5c0 0a 20 20 69 6e 74 20 69 3b 0a 20 20 75 33 32 20 . int i;. u32
1b5d0 62 69 67 42 75 66 5b 36 35 35 33 36 5d 3b 0a 20 bigBuf[65536];.
1b5e0 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 for(i=0; i<size
1b5f0 6f 66 28 62 69 67 42 75 66 29 3b 20 69 2b 2b 29 of(bigBuf); i++)
1b600 20 62 69 67 42 75 66 5b 69 5d 20 3d 20 30 78 64 bigBuf[i] = 0xd
1b610 65 61 64 62 65 65 66 3b 0a 20 20 73 71 6c 69 74 eadbeef;. sqlit
1b620 65 33 5f 73 74 61 63 6b 5f 62 61 73 65 6c 69 6e e3_stack_baselin
1b630 65 20 3d 20 28 75 38 2a 29 26 62 69 67 42 75 66 e = (u8*)&bigBuf
1b640 5b 36 35 35 33 36 5d 3b 0a 7d 0a 0a 2f 2a 0a 2a [65536];.}../*.*
1b650 2a 20 47 65 74 20 74 68 65 20 63 75 72 72 65 6e * Get the curren
1b660 74 20 73 74 61 63 6b 20 64 65 70 74 68 2e 20 20 t stack depth.
1b670 55 73 65 64 20 66 6f 72 20 64 65 62 75 67 67 69 Used for debuggi
1b680 6e 67 20 6f 6e 6c 79 2e 0a 2a 2f 0a 75 36 34 20 ng only..*/.u64
1b690 73 71 6c 69 74 65 33 53 74 61 63 6b 44 65 70 74 sqlite3StackDept
1b6a0 68 28 76 6f 69 64 29 7b 0a 20 20 75 38 20 78 3b h(void){. u8 x;
1b6b0 0a 20 20 72 65 74 75 72 6e 20 28 75 36 34 29 28 . return (u64)(
1b6c0 73 71 6c 69 74 65 33 5f 73 74 61 63 6b 5f 62 61 sqlite3_stack_ba
1b6d0 73 65 6c 69 6e 65 20 2d 20 26 78 29 3b 0a 7d 0a seline - &x);.}.
1b6e0 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
1b6f0 71 6c 69 74 65 33 5f 73 74 61 63 6b 5f 75 73 65 qlite3_stack_use
1b700 64 20 44 42 20 53 51 4c 0a 2a 2a 0a 2a 2a 20 54 d DB SQL.**.** T
1b710 72 79 20 74 6f 20 6d 65 61 73 75 72 65 20 74 68 ry to measure th
1b720 65 20 61 6d 6f 75 6e 74 20 6f 66 20 73 74 61 63 e amount of stac
1b730 6b 20 73 70 61 63 65 20 75 73 65 64 20 62 79 20 k space used by
1b740 61 20 63 61 6c 6c 20 74 6f 20 73 71 6c 69 74 65 a call to sqlite
1b750 33 5f 65 78 65 63 0a 2a 2f 0a 73 74 61 74 69 63 3_exec.*/.static
1b760 20 69 6e 74 20 74 65 73 74 5f 73 74 61 63 6b 5f int test_stack_
1b770 75 73 65 64 28 0a 20 20 76 6f 69 64 20 2a 20 63 used(. void * c
1b780 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
1b790 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1b7a0 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 . int argc,. c
1b7b0 68 61 72 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 har **argv.){.
1b7c0 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 sqlite3 *db;. i
1b7d0 6e 74 20 69 3b 0a 20 20 69 66 28 20 61 72 67 63 nt i;. if( argc
1b7e0 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=3 ){. Tcl_A
1b7f0 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1b800 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
1b810 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
1b820 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 , argv[0], .
1b830 20 20 20 20 22 20 44 42 20 53 51 4c 22 2c 20 30 " DB SQL", 0
1b840 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1b850 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
1b860 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
1b870 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
1b880 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
1b890 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 70 72 65 70 CL_ERROR;. prep
1b8a0 53 74 61 63 6b 28 29 3b 0a 20 20 28 76 6f 69 64 Stack();. (void
1b8b0 29 73 71 6c 69 74 65 33 5f 65 78 65 63 28 64 62 )sqlite3_exec(db
1b8c0 2c 20 61 72 67 76 5b 32 5d 2c 20 30 2c 20 30 2c , argv[2], 0, 0,
1b8d0 20 30 29 3b 0a 20 20 66 6f 72 28 69 3d 36 35 35 0);. for(i=655
1b8e0 33 35 3b 20 69 3e 3d 30 20 26 26 20 28 28 75 33 35; i>=0 && ((u3
1b8f0 32 2a 29 73 71 6c 69 74 65 33 5f 73 74 61 63 6b 2*)sqlite3_stack
1b900 5f 62 61 73 65 6c 69 6e 65 29 5b 2d 69 5d 3d 3d _baseline)[-i]==
1b910 30 78 64 65 61 64 62 65 65 66 3b 20 69 2d 2d 29 0xdeadbeef; i--)
1b920 7b 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 {}. Tcl_SetObjR
1b930 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
1b940 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 2a 34 29 l_NewIntObj(i*4)
1b950 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
1b960 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
1b970 67 65 3a 20 73 71 6c 69 74 65 5f 64 65 6c 65 74 ge: sqlite_delet
1b980 65 5f 66 75 6e 63 74 69 6f 6e 20 44 42 20 66 75 e_function DB fu
1b990 6e 63 74 69 6f 6e 2d 6e 61 6d 65 0a 2a 2a 0a 2a nction-name.**.*
1b9a0 2a 20 44 65 6c 65 74 65 20 74 68 65 20 75 73 65 * Delete the use
1b9b0 72 20 66 75 6e 63 74 69 6f 6e 20 27 66 75 6e 63 r function 'func
1b9c0 74 69 6f 6e 2d 6e 61 6d 65 27 20 66 72 6f 6d 20 tion-name' from
1b9d0 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 database handle
1b9e0 44 42 2e 20 49 74 0a 2a 2a 20 69 73 20 61 73 73 DB. It.** is ass
1b9f0 75 6d 65 64 20 74 68 61 74 20 74 68 65 20 75 73 umed that the us
1ba00 65 72 20 66 75 6e 63 74 69 6f 6e 20 77 61 73 20 er function was
1ba10 63 72 65 61 74 65 64 20 61 73 20 55 54 46 38 2c created as UTF8,
1ba20 20 61 6e 79 20 6e 75 6d 62 65 72 20 6f 66 0a 2a any number of.*
1ba30 2a 20 61 72 67 75 6d 65 6e 74 73 20 28 74 68 65 * arguments (the
1ba40 20 77 61 79 20 74 68 65 20 54 43 4c 20 69 6e 74 way the TCL int
1ba50 65 72 66 61 63 65 20 64 6f 65 73 20 69 74 29 2e erface does it).
1ba60 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 64 .*/.static int d
1ba70 65 6c 65 74 65 5f 66 75 6e 63 74 69 6f 6e 28 0a elete_function(.
1ba80 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
1ba90 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
1baa0 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
1bab0 20 61 72 67 63 2c 0a 20 20 63 68 61 72 20 2a 2a argc,. char **
1bac0 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 72 63 argv.){. int rc
1bad0 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b ;. sqlite3 *db;
1bae0 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 . if( argc!=3 )
1baf0 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
1bb00 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
1bb10 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
1bb20 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
1bb30 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 20 22 v[0], . "
1bb40 20 44 42 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d DB function-nam
1bb50 65 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 e", 0);. retu
1bb60 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1bb70 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
1bb80 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 nter(interp, arg
1bb90 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 v[1], &db) ) ret
1bba0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1bbb0 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 rc = sqlite3_cr
1bbc0 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 eate_function(db
1bbd0 2c 20 61 72 67 76 5b 32 5d 2c 20 2d 31 2c 20 53 , argv[2], -1, S
1bbe0 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 30 QLITE_UTF8, 0, 0
1bbf0 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 53 , 0, 0);. Tcl_S
1bc00 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
1bc10 20 28 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 (char *)t1Error
1bc20 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 Name(rc), TCL_ST
1bc30 41 54 49 43 29 3b 0a 20 20 72 65 74 75 72 6e 20 ATIC);. return
1bc40 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
1bc50 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 5f 64 Usage: sqlite_d
1bc60 65 6c 65 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 20 elete_collation
1bc70 44 42 20 63 6f 6c 6c 61 74 69 6f 6e 2d 6e 61 6d DB collation-nam
1bc80 65 0a 2a 2a 0a 2a 2a 20 44 65 6c 65 74 65 20 74 e.**.** Delete t
1bc90 68 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 he collation seq
1bca0 75 65 6e 63 65 20 27 63 6f 6c 6c 61 74 69 6f 6e uence 'collation
1bcb0 2d 6e 61 6d 65 27 20 66 72 6f 6d 20 64 61 74 61 -name' from data
1bcc0 62 61 73 65 20 68 61 6e 64 6c 65 20 0a 2a 2a 20 base handle .**
1bcd0 44 42 2e 20 49 74 20 69 73 20 61 73 73 75 6d 65 DB. It is assume
1bce0 64 20 74 68 61 74 20 74 68 65 20 63 6f 6c 6c 61 d that the colla
1bcf0 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 77 61 tion sequence wa
1bd00 73 20 63 72 65 61 74 65 64 20 61 73 20 55 54 46 s created as UTF
1bd10 38 20 28 74 68 65 20 0a 2a 2a 20 77 61 79 20 74 8 (the .** way t
1bd20 68 65 20 54 43 4c 20 69 6e 74 65 72 66 61 63 65 he TCL interface
1bd30 20 64 6f 65 73 20 69 74 29 2e 0a 2a 2f 0a 73 74 does it)..*/.st
1bd40 61 74 69 63 20 69 6e 74 20 64 65 6c 65 74 65 5f atic int delete_
1bd50 63 6f 6c 6c 61 74 69 6f 6e 28 0a 20 20 76 6f 69 collation(. voi
1bd60 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
1bd70 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
1bd80 74 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 67 63 terp,. int argc
1bd90 2c 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 0a ,. char **argv.
1bda0 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 73 ){. int rc;. s
1bdb0 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 qlite3 *db;. if
1bdc0 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 ( argc!=3 ){.
1bdd0 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1bde0 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
1bdf0 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
1be00 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
1be10 20 0a 20 20 20 20 20 20 20 20 22 20 44 42 20 66 . " DB f
1be20 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 22 2c 20 30 unction-name", 0
1be30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1be40 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
1be50 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
1be60 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
1be70 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
1be80 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d CL_ERROR;. rc =
1be90 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
1bea0 63 6f 6c 6c 61 74 69 6f 6e 28 64 62 2c 20 61 72 collation(db, ar
1beb0 67 76 5b 32 5d 2c 20 53 51 4c 49 54 45 5f 55 54 gv[2], SQLITE_UT
1bec0 46 38 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c F8, 0, 0);. Tcl
1bed0 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
1bee0 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 72 72 p, (char *)t1Err
1bef0 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f orName(rc), TCL_
1bf00 53 54 41 54 49 43 29 3b 0a 20 20 72 65 74 75 72 STATIC);. retur
1bf10 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
1bf20 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
1bf30 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 3_get_autocommit
1bf40 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e DB.**.** Return
1bf50 20 74 72 75 65 20 69 66 20 74 68 65 20 64 61 74 true if the dat
1bf60 61 62 61 73 65 20 44 42 20 69 73 20 63 75 72 72 abase DB is curr
1bf70 65 6e 74 6c 79 20 69 6e 20 61 75 74 6f 2d 63 6f ently in auto-co
1bf80 6d 6d 69 74 20 6d 6f 64 65 2e 0a 2a 2a 20 52 65 mmit mode..** Re
1bf90 74 75 72 6e 20 66 61 6c 73 65 20 69 66 20 6e 6f turn false if no
1bfa0 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 t..*/.static int
1bfb0 20 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 28 get_autocommit(
1bfc0 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
1bfd0 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
1bfe0 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
1bff0 74 20 61 72 67 63 2c 0a 20 20 63 68 61 72 20 2a t argc,. char *
1c000 2a 61 72 67 76 0a 29 7b 0a 20 20 63 68 61 72 20 *argv.){. char
1c010 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 73 71 6c 69 zBuf[30];. sqli
1c020 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 te3 *db;. if( a
1c030 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 rgc!=2 ){. Tc
1c040 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
1c050 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
1c060 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
1c070 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 \"", argv[0], .
1c080 20 20 20 20 20 20 20 22 20 44 42 22 2c 20 30 29 " DB", 0)
1c090 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
1c0a0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
1c0b0 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
1c0c0 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
1c0d0 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
1c0e0 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 70 72 69 6e L_ERROR;. sprin
1c0f0 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 73 tf(zBuf, "%d", s
1c100 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 qlite3_get_autoc
1c110 6f 6d 6d 69 74 28 64 62 29 29 3b 0a 20 20 54 63 ommit(db));. Tc
1c120 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
1c130 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b nterp, zBuf, 0);
1c140 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
1c150 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
1c160 3a 20 73 71 6c 69 74 65 33 5f 62 75 73 79 5f 74 : sqlite3_busy_t
1c170 69 6d 65 6f 75 74 20 44 42 20 4d 53 0a 2a 2a 0a imeout DB MS.**.
1c180 2a 2a 20 53 65 74 20 74 68 65 20 62 75 73 79 20 ** Set the busy
1c190 74 69 6d 65 6f 75 74 2e 20 20 54 68 69 73 20 69 timeout. This i
1c1a0 73 20 6d 6f 72 65 20 65 61 73 69 6c 79 20 64 6f s more easily do
1c1b0 6e 65 20 75 73 69 6e 67 20 74 68 65 20 74 69 6d ne using the tim
1c1c0 65 6f 75 74 0a 2a 2a 20 6d 65 74 68 6f 64 20 6f eout.** method o
1c1d0 66 20 74 68 65 20 54 43 4c 20 69 6e 74 65 72 66 f the TCL interf
1c1e0 61 63 65 2e 20 20 42 75 74 20 77 65 20 6e 65 65 ace. But we nee
1c1f0 64 20 61 20 77 61 79 20 74 6f 20 74 65 73 74 20 d a way to test
1c200 74 68 65 20 63 61 73 65 0a 2a 2a 20 77 68 65 72 the case.** wher
1c210 65 20 69 74 20 72 65 74 75 72 6e 73 20 53 51 4c e it returns SQL
1c220 49 54 45 5f 4d 49 53 55 53 45 2e 0a 2a 2f 0a 73 ITE_MISUSE..*/.s
1c230 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 tatic int test_b
1c240 75 73 79 5f 74 69 6d 65 6f 75 74 28 0a 20 20 76 usy_timeout(. v
1c250 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
1c260 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
1c270 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 interp,. int ar
1c280 67 63 2c 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 gc,. char **arg
1c290 76 0a 29 7b 0a 20 20 69 6e 74 20 72 63 2c 20 6d v.){. int rc, m
1c2a0 73 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 s;. sqlite3 *db
1c2b0 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 ;. if( argc!=3
1c2c0 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
1c2d0 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
1c2e0 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
1c2f0 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
1c300 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 20 gv[0], .
1c310 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 " DB", 0);. r
1c320 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1c330 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
1c340 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
1c350 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 argv[1], &db) )
1c360 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1c370 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 ;. if( Tcl_GetI
1c380 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b nt(interp, argv[
1c390 32 5d 2c 20 26 6d 73 29 20 29 20 72 65 74 75 72 2], &ms) ) retur
1c3a0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 n TCL_ERROR;. r
1c3b0 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 75 73 79 c = sqlite3_busy
1c3c0 5f 74 69 6d 65 6f 75 74 28 64 62 2c 20 6d 73 29 _timeout(db, ms)
1c3d0 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
1c3e0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 71 6c sult(interp, sql
1c3f0 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d ite3TestErrorNam
1c400 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 65 74 e(rc), 0);. ret
1c410 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
1c420 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 74 63 6c *.** Usage: tcl
1c430 5f 76 61 72 69 61 62 6c 65 5f 74 79 70 65 20 56 _variable_type V
1c440 41 52 49 41 42 4c 45 4e 41 4d 45 0a 2a 2a 0a 2a ARIABLENAME.**.*
1c450 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d * Return the nam
1c460 65 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6e 61 e of the interna
1c470 6c 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e l representation
1c480 20 66 6f 72 20 74 68 65 0a 2a 2a 20 76 61 6c 75 for the.** valu
1c490 65 20 6f 66 20 74 68 65 20 67 69 76 65 6e 20 76 e of the given v
1c4a0 61 72 69 61 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 ariable..*/.stat
1c4b0 69 63 20 69 6e 74 20 74 63 6c 5f 76 61 72 69 61 ic int tcl_varia
1c4c0 62 6c 65 5f 74 79 70 65 28 0a 20 20 76 6f 69 64 ble_type(. void
1c4d0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
1c4e0 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1c4f0 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
1c500 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
1c510 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 54 63 T objv[].){. Tc
1c520 6c 5f 4f 62 6a 20 2a 70 56 61 72 3b 0a 20 20 69 l_Obj *pVar;. i
1c530 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 f( objc!=2 ){.
1c540 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
1c550 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
1c560 6a 76 2c 20 22 56 41 52 49 41 42 4c 45 22 29 3b jv, "VARIABLE");
1c570 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
1c580 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 70 56 61 ERROR;. }. pVa
1c590 72 20 3d 20 54 63 6c 5f 47 65 74 56 61 72 32 45 r = Tcl_GetVar2E
1c5a0 78 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 x(interp, Tcl_Ge
1c5b0 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
1c5c0 2c 20 30 2c 20 54 43 4c 5f 4c 45 41 56 45 5f 45 , 0, TCL_LEAVE_E
1c5d0 52 52 5f 4d 53 47 29 3b 0a 20 20 69 66 28 20 70 RR_MSG);. if( p
1c5e0 56 61 72 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 Var==0 ) return
1c5f0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
1c600 20 70 56 61 72 2d 3e 74 79 70 65 50 74 72 20 29 pVar->typePtr )
1c610 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a {. Tcl_SetObj
1c620 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
1c630 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
1c640 70 56 61 72 2d 3e 74 79 70 65 50 74 72 2d 3e 6e pVar->typePtr->n
1c650 61 6d 65 2c 20 2d 31 29 29 3b 0a 20 20 7d 0a 20 ame, -1));. }.
1c660 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
1c670 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
1c680 20 73 71 6c 69 74 65 33 5f 72 65 6c 65 61 73 65 sqlite3_release
1c690 5f 6d 65 6d 6f 72 79 20 3f 4e 3f 0a 2a 2a 0a 2a _memory ?N?.**.*
1c6a0 2a 20 41 74 74 65 6d 70 74 20 74 6f 20 72 65 6c * Attempt to rel
1c6b0 65 61 73 65 20 6d 65 6d 6f 72 79 20 63 75 72 72 ease memory curr
1c6c0 65 6e 74 6c 79 20 68 65 6c 64 20 62 75 74 20 6e ently held but n
1c6d0 6f 74 20 61 63 74 75 61 6c 6c 79 20 72 65 71 75 ot actually requ
1c6e0 69 72 65 64 2e 0a 2a 2a 20 54 68 65 20 69 6e 74 ired..** The int
1c6f0 65 67 65 72 20 4e 20 69 73 20 74 68 65 20 6e 75 eger N is the nu
1c700 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 65 mber of bytes we
1c710 20 61 72 65 20 74 72 79 69 6e 67 20 74 6f 20 72 are trying to r
1c720 65 6c 65 61 73 65 2e 20 20 54 68 65 20 0a 2a 2a elease. The .**
1c730 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 return value is
1c740 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 6d the amount of m
1c750 65 6d 6f 72 79 20 61 63 74 75 61 6c 6c 79 20 72 emory actually r
1c760 65 6c 65 61 73 65 64 2e 0a 2a 2f 0a 73 74 61 74 eleased..*/.stat
1c770 69 63 20 69 6e 74 20 74 65 73 74 5f 72 65 6c 65 ic int test_rele
1c780 61 73 65 5f 6d 65 6d 6f 72 79 28 0a 20 20 76 6f ase_memory(. vo
1c790 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
1c7a0 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1c7b0 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
1c7c0 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
1c7d0 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 NST objv[].){.#i
1c7e0 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 f defined(SQLITE
1c7f0 5f 45 4e 41 42 4c 45 5f 4d 45 4d 4f 52 59 5f 4d _ENABLE_MEMORY_M
1c800 41 4e 41 47 45 4d 45 4e 54 29 20 26 26 20 21 64 ANAGEMENT) && !d
1c810 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d efined(SQLITE_OM
1c820 49 54 5f 44 49 53 4b 49 4f 29 0a 20 20 69 6e 74 IT_DISKIO). int
1c830 20 4e 3b 0a 20 20 69 6e 74 20 61 6d 74 3b 0a 20 N;. int amt;.
1c840 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 26 26 20 if( objc!=1 &&
1c850 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
1c860 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
1c870 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
1c880 20 22 3f 4e 3f 22 29 3b 0a 20 20 20 20 72 65 74 "?N?");. ret
1c890 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1c8a0 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d 32 }. if( objc==2
1c8b0 20 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f ){. if( Tcl_
1c8c0 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
1c8d0 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 terp, objv[1], &
1c8e0 4e 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f N) ) return TCL_
1c8f0 45 52 52 4f 52 3b 0a 20 20 7d 65 6c 73 65 7b 0a ERROR;. }else{.
1c900 20 20 20 20 4e 20 3d 20 2d 31 3b 0a 20 20 7d 0a N = -1;. }.
1c910 20 20 61 6d 74 20 3d 20 73 71 6c 69 74 65 33 5f amt = sqlite3_
1c920 72 65 6c 65 61 73 65 5f 6d 65 6d 6f 72 79 28 4e release_memory(N
1c930 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 );. Tcl_SetObjR
1c940 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
1c950 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 61 6d 74 29 l_NewIntObj(amt)
1c960 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75 );.#endif. retu
1c970 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
1c980 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
1c990 74 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 te3_soft_heap_li
1c9a0 6d 69 74 20 3f 4e 3f 0a 2a 2a 0a 2a 2a 20 51 75 mit ?N?.**.** Qu
1c9b0 65 72 79 20 6f 72 20 73 65 74 20 74 68 65 20 73 ery or set the s
1c9c0 6f 66 74 20 68 65 61 70 20 6c 69 6d 69 74 20 66 oft heap limit f
1c9d0 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 or the current t
1c9e0 68 72 65 61 64 2e 20 20 54 68 65 0a 2a 2a 20 6c hread. The.** l
1c9f0 69 6d 69 74 20 69 73 20 6f 6e 6c 79 20 63 68 61 imit is only cha
1ca00 6e 67 65 64 20 69 66 20 74 68 65 20 4e 20 69 73 nged if the N is
1ca10 20 70 72 65 73 65 6e 74 2e 20 20 54 68 65 20 70 present. The p
1ca20 72 65 76 69 6f 75 73 20 6c 69 6d 69 74 0a 2a 2a revious limit.**
1ca30 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2f is returned..*/
1ca40 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
1ca50 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 _soft_heap_limit
1ca60 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
1ca70 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
1ca80 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
1ca90 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
1caa0 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
1cab0 0a 29 7b 0a 20 20 73 74 61 74 69 63 20 69 6e 74 .){. static int
1cac0 20 73 6f 66 74 48 65 61 70 4c 69 6d 69 74 20 3d softHeapLimit =
1cad0 20 30 3b 0a 20 20 69 6e 74 20 61 6d 74 3b 0a 20 0;. int amt;.
1cae0 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 26 26 20 if( objc!=1 &&
1caf0 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
1cb00 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
1cb10 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
1cb20 20 22 3f 4e 3f 22 29 3b 0a 20 20 20 20 72 65 74 "?N?");. ret
1cb30 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1cb40 20 7d 0a 20 20 61 6d 74 20 3d 20 73 6f 66 74 48 }. amt = softH
1cb50 65 61 70 4c 69 6d 69 74 3b 0a 20 20 69 66 28 20 eapLimit;. if(
1cb60 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 20 20 20 69 objc==2 ){. i
1cb70 6e 74 20 4e 3b 0a 20 20 20 20 69 66 28 20 54 63 nt N;. if( Tc
1cb80 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
1cb90 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c interp, objv[1],
1cba0 20 26 4e 29 20 29 20 72 65 74 75 72 6e 20 54 43 &N) ) return TC
1cbb0 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 73 71 6c L_ERROR;. sql
1cbc0 69 74 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c ite3_soft_heap_l
1cbd0 69 6d 69 74 28 4e 29 3b 0a 20 20 20 20 73 6f 66 imit(N);. sof
1cbe0 74 48 65 61 70 4c 69 6d 69 74 20 3d 20 4e 3b 0a tHeapLimit = N;.
1cbf0 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a }. Tcl_SetObj
1cc00 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
1cc10 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 61 6d 74 cl_NewIntObj(amt
1cc20 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ));. return TCL
1cc30 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
1cc40 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 74 age: sqlite3_t
1cc50 68 72 65 61 64 5f 63 6c 65 61 6e 75 70 0a 2a 2a hread_cleanup.**
1cc60 0a 2a 2a 20 43 61 6c 6c 20 74 68 65 20 73 71 6c .** Call the sql
1cc70 69 74 65 33 5f 74 68 72 65 61 64 5f 63 6c 65 61 ite3_thread_clea
1cc80 6e 75 70 20 41 50 49 2e 0a 2a 2f 0a 73 74 61 74 nup API..*/.stat
1cc90 69 63 20 69 6e 74 20 74 65 73 74 5f 74 68 72 65 ic int test_thre
1cca0 61 64 5f 63 6c 65 61 6e 75 70 28 0a 20 20 76 6f ad_cleanup(. vo
1ccb0 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
1ccc0 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1ccd0 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
1cce0 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
1ccf0 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 NST objv[].){.#i
1cd00 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
1cd10 54 5f 44 45 50 52 45 43 41 54 45 44 0a 20 20 73 T_DEPRECATED. s
1cd20 71 6c 69 74 65 33 5f 74 68 72 65 61 64 5f 63 6c qlite3_thread_cl
1cd30 65 61 6e 75 70 28 29 3b 0a 23 65 6e 64 69 66 0a eanup();.#endif.
1cd40 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1cd50 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
1cd60 20 20 20 73 71 6c 69 74 65 33 5f 70 61 67 65 72 sqlite3_pager
1cd70 5f 72 65 66 63 6f 75 6e 74 73 20 20 44 42 0a 2a _refcounts DB.*
1cd80 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 6c 69 *.** Return a li
1cd90 73 74 20 6f 66 20 6e 75 6d 62 65 72 73 20 77 68 st of numbers wh
1cda0 69 63 68 20 61 72 65 20 74 68 65 20 50 61 67 65 ich are the Page
1cdb0 72 52 65 66 63 6f 75 6e 74 20 66 6f 72 20 61 6c rRefcount for al
1cdc0 6c 0a 2a 2a 20 70 61 67 65 72 73 20 6f 6e 20 65 l.** pagers on e
1cdd0 61 63 68 20 64 61 74 61 62 61 73 65 20 63 6f 6e ach database con
1cde0 6e 65 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 nection..*/.stat
1cdf0 69 63 20 69 6e 74 20 74 65 73 74 5f 70 61 67 65 ic int test_page
1ce00 72 5f 72 65 66 63 6f 75 6e 74 73 28 0a 20 20 76 r_refcounts(. v
1ce10 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
1ce20 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
1ce30 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
1ce40 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
1ce50 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
1ce60 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
1ce70 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 76 2c 20 int i;. int v,
1ce80 2a 61 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 *a;. Tcl_Obj *p
1ce90 52 65 73 75 6c 74 3b 0a 0a 20 20 69 66 28 20 6f Result;.. if( o
1cea0 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 bjc!=2 ){. Tc
1ceb0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
1cec0 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
1ced0 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
1cee0 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c \"",. Tcl
1cef0 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
1cf00 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 j(objv[0], 0), "
1cf10 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 DB", 0);. re
1cf20 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1cf30 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 }. if( getDbP
1cf40 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
1cf50 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
1cf60 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 v[1]), &db) ) re
1cf70 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1cf80 20 20 70 52 65 73 75 6c 74 20 3d 20 54 63 6c 5f pResult = Tcl_
1cf90 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 66 6f 72 28 NewObj();. for(
1cfa0 69 3d 30 3b 20 69 3c 64 62 2d 3e 6e 44 62 3b 20 i=0; i<db->nDb;
1cfb0 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 64 62 i++){. if( db
1cfc0 2d 3e 61 44 62 5b 69 5d 2e 70 42 74 3d 3d 30 20 ->aDb[i].pBt==0
1cfd0 29 7b 0a 20 20 20 20 20 20 76 20 3d 20 2d 31 3b ){. v = -1;
1cfe0 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
1cff0 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f sqlite3_mutex_
1d000 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 enter(db->mutex)
1d010 3b 0a 20 20 20 20 20 20 61 20 3d 20 73 71 6c 69 ;. a = sqli
1d020 74 65 33 50 61 67 65 72 53 74 61 74 73 28 73 71 te3PagerStats(sq
1d030 6c 69 74 65 33 42 74 72 65 65 50 61 67 65 72 28 lite3BtreePager(
1d040 64 62 2d 3e 61 44 62 5b 69 5d 2e 70 42 74 29 29 db->aDb[i].pBt))
1d050 3b 0a 20 20 20 20 20 20 76 20 3d 20 61 5b 30 5d ;. v = a[0]
1d060 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f ;. sqlite3_
1d070 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e mutex_leave(db->
1d080 6d 75 74 65 78 29 3b 0a 20 20 20 20 7d 0a 20 20 mutex);. }.
1d090 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
1d0a0 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 endElement(0, pR
1d0b0 65 73 75 6c 74 2c 20 54 63 6c 5f 4e 65 77 49 6e esult, Tcl_NewIn
1d0c0 74 4f 62 6a 28 76 29 29 3b 0a 20 20 7d 0a 20 20 tObj(v));. }.
1d0d0 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
1d0e0 28 69 6e 74 65 72 70 2c 20 70 52 65 73 75 6c 74 (interp, pResult
1d0f0 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
1d100 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 74 63 OK;.}.../*.** tc
1d110 6c 63 6d 64 3a 20 20 20 77 6f 72 6b 69 6e 67 5f lcmd: working_
1d120 36 34 62 69 74 5f 69 6e 74 0a 2a 2a 0a 2a 2a 20 64bit_int.**.**
1d130 53 6f 6d 65 20 54 43 4c 20 62 75 69 6c 64 73 20 Some TCL builds
1d140 28 65 78 3a 20 63 79 67 77 69 6e 29 20 64 6f 20 (ex: cygwin) do
1d150 6e 6f 74 20 73 75 70 70 6f 72 74 20 36 34 2d 62 not support 64-b
1d160 69 74 20 69 6e 74 65 67 65 72 73 2e 20 20 54 68 it integers. Th
1d170 69 73 0a 2a 2a 20 6c 65 61 64 73 20 74 6f 20 61 is.** leads to a
1d180 20 6e 75 6d 62 65 72 20 6f 66 20 74 65 73 74 20 number of test
1d190 66 61 69 6c 75 72 65 73 2e 20 20 54 68 65 20 70 failures. The p
1d1a0 72 65 73 65 6e 74 20 63 6f 6d 6d 61 6e 64 20 63 resent command c
1d1b0 68 65 63 6b 73 20 74 68 65 0a 2a 2a 20 54 43 4c hecks the.** TCL
1d1c0 20 62 75 69 6c 64 20 74 6f 20 73 65 65 20 77 68 build to see wh
1d1d0 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 69 74 20 ether or not it
1d1e0 73 75 70 70 6f 72 74 73 20 36 34 2d 62 69 74 20 supports 64-bit
1d1f0 69 6e 74 65 67 65 72 73 2e 20 20 49 74 0a 2a 2a integers. It.**
1d200 20 72 65 74 75 72 6e 73 20 54 52 55 45 20 69 66 returns TRUE if
1d210 20 69 74 20 64 6f 65 73 20 61 6e 64 20 46 41 4c it does and FAL
1d220 53 45 20 69 66 20 6e 6f 74 2e 0a 2a 2a 0a 2a 2a SE if not..**.**
1d230 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 This command is
1d240 20 75 73 65 64 20 74 6f 20 77 61 72 6e 20 75 73 used to warn us
1d250 65 72 73 20 74 68 61 74 20 74 68 65 69 72 20 54 ers that their T
1d260 43 4c 20 62 75 69 6c 64 20 69 73 20 64 65 66 65 CL build is defe
1d270 63 74 69 76 65 0a 2a 2a 20 61 6e 64 20 74 68 61 ctive.** and tha
1d280 74 20 74 68 65 20 65 72 72 6f 72 73 20 74 68 65 t the errors the
1d290 79 20 61 72 65 20 73 65 65 69 6e 67 20 69 6e 20 y are seeing in
1d2a0 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 73 the test scripts
1d2b0 20 6d 69 67 68 74 20 62 65 0a 2a 2a 20 61 20 72 might be.** a r
1d2c0 65 73 75 6c 74 20 6f 66 20 74 68 65 69 72 20 64 esult of their d
1d2d0 65 66 65 63 74 69 76 65 20 54 43 4c 20 72 61 74 efective TCL rat
1d2e0 68 65 72 20 74 68 61 6e 20 70 72 6f 62 6c 65 6d her than problem
1d2f0 73 20 69 6e 20 53 51 4c 69 74 65 2e 0a 2a 2f 0a s in SQLite..*/.
1d300 73 74 61 74 69 63 20 69 6e 74 20 77 6f 72 6b 69 static int worki
1d310 6e 67 5f 36 34 62 69 74 5f 69 6e 74 28 0a 20 20 ng_64bit_int(.
1d320 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
1d330 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 tData, /* Pointe
1d340 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 r to sqlite3_ena
1d350 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e ble_XXX function
1d360 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 */. Tcl_Interp
1d370 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
1d380 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
1d390 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
1d3a0 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
1d3b0 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 . int objc,
1d3c0 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
1d3d0 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
1d3e0 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 */. Tcl_Obj *C
1d3f0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 ONST objv[] /*
1d400 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 Command argument
1d410 73 20 2a 2f 0a 29 7b 0a 20 20 54 63 6c 5f 4f 62 s */.){. Tcl_Ob
1d420 6a 20 2a 70 54 65 73 74 4f 62 6a 3b 0a 20 20 69 j *pTestObj;. i
1d430 6e 74 20 77 6f 72 6b 69 6e 67 20 3d 20 30 3b 0a nt working = 0;.
1d440 0a 20 20 70 54 65 73 74 4f 62 6a 20 3d 20 54 63 . pTestObj = Tc
1d450 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 l_NewWideIntObj(
1d460 31 30 30 30 30 30 30 2a 28 69 36 34 29 31 32 33 1000000*(i64)123
1d470 34 35 36 37 38 39 30 29 3b 0a 20 20 77 6f 72 6b 4567890);. work
1d480 69 6e 67 20 3d 20 73 74 72 63 6d 70 28 54 63 6c ing = strcmp(Tcl
1d490 5f 47 65 74 53 74 72 69 6e 67 28 70 54 65 73 74 _GetString(pTest
1d4a0 4f 62 6a 29 2c 20 22 31 32 33 34 35 36 37 38 39 Obj), "123456789
1d4b0 30 30 30 30 30 30 30 22 29 3d 3d 30 3b 0a 20 20 0000000")==0;.
1d4c0 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
1d4d0 28 70 54 65 73 74 4f 62 6a 29 3b 0a 20 20 54 63 (pTestObj);. Tc
1d4e0 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
1d4f0 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42 6f nterp, Tcl_NewBo
1d500 6f 6c 65 61 6e 4f 62 6a 28 77 6f 72 6b 69 6e 67 oleanObj(working
1d510 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ));. return TCL
1d520 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 74 _OK;.}.../*.** t
1d530 63 6c 63 6d 64 3a 20 20 20 76 66 73 5f 75 6e 6c clcmd: vfs_unl
1d540 69 6e 6b 5f 74 65 73 74 0a 2a 2a 0a 2a 2a 20 54 ink_test.**.** T
1d550 68 69 73 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 his TCL command
1d560 75 6e 72 65 67 69 73 74 65 72 73 20 74 68 65 20 unregisters the
1d570 70 72 69 6d 61 72 79 20 56 46 53 20 61 6e 64 20 primary VFS and
1d580 74 68 65 6e 20 72 65 67 69 73 74 65 72 73 0a 2a then registers.*
1d590 2a 20 69 74 20 62 61 63 6b 20 61 67 61 69 6e 2e * it back again.
1d5a0 20 20 54 68 69 73 20 69 73 20 75 73 65 64 20 74 This is used t
1d5b0 6f 20 74 65 73 74 20 74 68 65 20 61 62 69 6c 69 o test the abili
1d5c0 74 79 20 74 6f 20 72 65 67 69 73 74 65 72 20 61 ty to register a
1d5d0 0a 2a 2a 20 56 46 53 20 77 68 65 6e 20 6e 6f 6e .** VFS when non
1d5e0 65 20 61 72 65 20 70 72 65 76 69 6f 75 73 6c 79 e are previously
1d5f0 20 72 65 67 69 73 74 65 72 65 64 2c 20 61 6e 64 registered, and
1d600 20 74 68 65 20 61 62 69 6c 69 74 79 20 74 6f 20 the ability to
1d610 0a 2a 2a 20 75 6e 72 65 67 69 73 74 65 72 20 74 .** unregister t
1d620 68 65 20 6f 6e 6c 79 20 61 76 61 69 6c 61 62 6c he only availabl
1d630 65 20 56 46 53 2e 20 20 54 69 63 6b 65 74 20 23 e VFS. Ticket #
1d640 32 37 33 38 0a 2a 2f 0a 73 74 61 74 69 63 20 69 2738.*/.static i
1d650 6e 74 20 76 66 73 5f 75 6e 6c 69 6e 6b 5f 74 65 nt vfs_unlink_te
1d660 73 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 st(. ClientData
1d670 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 clientData, /*
1d680 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 Pointer to sqlit
1d690 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 e3_enable_XXX fu
1d6a0 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f nction */. Tcl_
1d6b0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
1d6c0 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
1d6d0 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
1d6e0 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
1d6f0 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a and */. int obj
1d700 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
1d710 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
1d720 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f uments */. Tcl_
1d730 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
1d740 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 ] /* Command ar
1d750 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 guments */.){.
1d760 69 6e 74 20 69 3b 0a 20 20 73 71 6c 69 74 65 33 int i;. sqlite3
1d770 5f 76 66 73 20 2a 70 4d 61 69 6e 3b 0a 20 20 73 _vfs *pMain;. s
1d780 71 6c 69 74 65 33 5f 76 66 73 20 2a 61 70 56 66 qlite3_vfs *apVf
1d790 73 5b 32 30 5d 3b 0a 20 20 73 71 6c 69 74 65 33 s[20];. sqlite3
1d7a0 5f 76 66 73 20 6f 6e 65 2c 20 74 77 6f 3b 0a 0a _vfs one, two;..
1d7b0 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 75 6e sqlite3_vfs_un
1d7c0 72 65 67 69 73 74 65 72 28 30 29 3b 20 20 20 2f register(0); /
1d7d0 2a 20 55 6e 72 65 67 69 73 74 65 72 20 6f 66 20 * Unregister of
1d7e0 4e 55 4c 4c 20 69 73 20 68 61 72 6d 6c 65 73 73 NULL is harmless
1d7f0 20 2a 2f 0a 20 20 6f 6e 65 2e 7a 4e 61 6d 65 20 */. one.zName
1d800 3d 20 22 5f 5f 6f 6e 65 22 3b 0a 20 20 74 77 6f = "__one";. two
1d810 2e 7a 4e 61 6d 65 20 3d 20 22 5f 5f 74 77 6f 22 .zName = "__two"
1d820 3b 0a 0a 20 20 2f 2a 20 43 61 6c 6c 69 6e 67 20 ;.. /* Calling
1d830 73 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 69 sqlite3_vfs_regi
1d840 73 74 65 72 20 77 69 74 68 20 32 6e 64 20 61 72 ster with 2nd ar
1d850 67 75 6d 65 6e 74 20 6f 66 20 30 20 64 6f 65 73 gument of 0 does
1d860 20 6e 6f 74 0a 20 20 2a 2a 20 63 68 61 6e 67 65 not. ** change
1d870 20 74 68 65 20 64 65 66 61 75 6c 74 20 56 46 53 the default VFS
1d880 0a 20 20 2a 2f 0a 20 20 70 4d 61 69 6e 20 3d 20 . */. pMain =
1d890 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 sqlite3_vfs_find
1d8a0 28 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 (0);. sqlite3_v
1d8b0 66 73 5f 72 65 67 69 73 74 65 72 28 26 6f 6e 65 fs_register(&one
1d8c0 2c 20 30 29 3b 0a 20 20 61 73 73 65 72 74 28 20 , 0);. assert(
1d8d0 70 4d 61 69 6e 3d 3d 30 20 7c 7c 20 70 4d 61 69 pMain==0 || pMai
1d8e0 6e 3d 3d 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 n==sqlite3_vfs_f
1d8f0 69 6e 64 28 30 29 20 29 3b 0a 20 20 73 71 6c 69 ind(0) );. sqli
1d900 74 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65 72 te3_vfs_register
1d910 28 26 74 77 6f 2c 20 30 29 3b 0a 20 20 61 73 73 (&two, 0);. ass
1d920 65 72 74 28 20 70 4d 61 69 6e 3d 3d 30 20 7c 7c ert( pMain==0 ||
1d930 20 70 4d 61 69 6e 3d 3d 73 71 6c 69 74 65 33 5f pMain==sqlite3_
1d940 76 66 73 5f 66 69 6e 64 28 30 29 20 29 3b 0a 0a vfs_find(0) );..
1d950 20 20 2f 2a 20 57 65 20 63 61 6e 20 66 69 6e 64 /* We can find
1d960 20 61 20 56 46 53 20 62 79 20 69 74 73 20 6e 61 a VFS by its na
1d970 6d 65 20 2a 2f 0a 20 20 61 73 73 65 72 74 28 20 me */. assert(
1d980 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 sqlite3_vfs_find
1d990 28 22 5f 5f 6f 6e 65 22 29 3d 3d 26 6f 6e 65 20 ("__one")==&one
1d9a0 29 3b 0a 20 20 61 73 73 65 72 74 28 20 73 71 6c );. assert( sql
1d9b0 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 22 5f ite3_vfs_find("_
1d9c0 5f 74 77 6f 22 29 3d 3d 26 74 77 6f 20 29 3b 0a _two")==&two );.
1d9d0 0a 20 20 2f 2a 20 43 61 6c 6c 69 6e 67 20 73 71 . /* Calling sq
1d9e0 6c 69 74 65 5f 76 66 73 5f 72 65 67 69 73 74 65 lite_vfs_registe
1d9f0 72 20 77 69 74 68 20 6e 6f 6e 2d 7a 65 72 6f 20 r with non-zero
1da00 73 65 63 6f 6e 64 20 70 61 72 61 6d 65 74 65 72 second parameter
1da10 20 63 68 61 6e 67 65 73 20 74 68 65 0a 20 20 2a changes the. *
1da20 2a 20 64 65 66 61 75 6c 74 20 56 46 53 2c 20 65 * default VFS, e
1da30 76 65 6e 20 69 66 20 74 68 65 20 31 73 74 20 70 ven if the 1st p
1da40 61 72 61 6d 65 74 65 72 20 69 73 20 61 6e 20 65 arameter is an e
1da50 78 69 73 74 69 67 20 56 46 53 20 74 68 61 74 20 xistig VFS that
1da60 69 73 0a 20 20 2a 2a 20 70 72 65 76 69 6f 75 73 is. ** previous
1da70 6c 79 20 72 65 67 69 73 74 65 72 65 64 20 61 73 ly registered as
1da80 20 74 68 65 20 6e 6f 6e 2d 64 65 66 61 75 6c 74 the non-default
1da90 2e 0a 20 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 .. */. sqlite3
1daa0 5f 76 66 73 5f 72 65 67 69 73 74 65 72 28 26 6f _vfs_register(&o
1dab0 6e 65 2c 20 31 29 3b 0a 20 20 61 73 73 65 72 74 ne, 1);. assert
1dac0 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 ( sqlite3_vfs_fi
1dad0 6e 64 28 22 5f 5f 6f 6e 65 22 29 3d 3d 26 6f 6e nd("__one")==&on
1dae0 65 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 73 e );. assert( s
1daf0 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 qlite3_vfs_find(
1db00 22 5f 5f 74 77 6f 22 29 3d 3d 26 74 77 6f 20 29 "__two")==&two )
1db10 3b 0a 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 ;. assert( sqli
1db20 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 3d te3_vfs_find(0)=
1db30 3d 26 6f 6e 65 20 29 3b 0a 20 20 73 71 6c 69 74 =&one );. sqlit
1db40 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65 72 28 e3_vfs_register(
1db50 26 74 77 6f 2c 20 31 29 3b 0a 20 20 61 73 73 65 &two, 1);. asse
1db60 72 74 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f rt( sqlite3_vfs_
1db70 66 69 6e 64 28 22 5f 5f 6f 6e 65 22 29 3d 3d 26 find("__one")==&
1db80 6f 6e 65 20 29 3b 0a 20 20 61 73 73 65 72 74 28 one );. assert(
1db90 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e sqlite3_vfs_fin
1dba0 64 28 22 5f 5f 74 77 6f 22 29 3d 3d 26 74 77 6f d("__two")==&two
1dbb0 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 73 71 );. assert( sq
1dbc0 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 lite3_vfs_find(0
1dbd0 29 3d 3d 26 74 77 6f 20 29 3b 0a 20 20 69 66 28 )==&two );. if(
1dbe0 20 70 4d 61 69 6e 20 29 7b 0a 20 20 20 20 73 71 pMain ){. sq
1dbf0 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 74 lite3_vfs_regist
1dc00 65 72 28 70 4d 61 69 6e 2c 20 31 29 3b 0a 20 20 er(pMain, 1);.
1dc10 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 assert( sqlite
1dc20 33 5f 76 66 73 5f 66 69 6e 64 28 22 5f 5f 6f 6e 3_vfs_find("__on
1dc30 65 22 29 3d 3d 26 6f 6e 65 20 29 3b 0a 20 20 20 e")==&one );.
1dc40 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 assert( sqlite3
1dc50 5f 76 66 73 5f 66 69 6e 64 28 22 5f 5f 74 77 6f _vfs_find("__two
1dc60 22 29 3d 3d 26 74 77 6f 20 29 3b 0a 20 20 20 20 ")==&two );.
1dc70 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f assert( sqlite3_
1dc80 76 66 73 5f 66 69 6e 64 28 30 29 3d 3d 70 4d 61 vfs_find(0)==pMa
1dc90 69 6e 20 29 3b 0a 20 20 7d 0a 20 20 0a 20 20 2f in );. }. . /
1dca0 2a 20 55 6e 6c 69 6e 6b 20 74 68 65 20 64 65 66 * Unlink the def
1dcb0 61 75 6c 74 20 56 46 53 2e 20 20 52 65 70 65 61 ault VFS. Repea
1dcc0 74 20 75 6e 74 69 6c 20 74 68 65 72 65 20 61 72 t until there ar
1dcd0 65 20 6e 6f 20 6d 6f 72 65 20 56 46 53 65 73 0a e no more VFSes.
1dce0 20 20 2a 2a 20 72 65 67 69 73 74 65 72 65 64 2e ** registered.
1dcf0 0a 20 20 2a 2f 0a 20 20 66 6f 72 28 69 3d 30 3b . */. for(i=0;
1dd00 20 69 3c 73 69 7a 65 6f 66 28 61 70 56 66 73 29 i<sizeof(apVfs)
1dd10 2f 73 69 7a 65 6f 66 28 61 70 56 66 73 5b 30 5d /sizeof(apVfs[0]
1dd20 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 61 70 56 ); i++){. apV
1dd30 66 73 5b 69 5d 20 3d 20 73 71 6c 69 74 65 33 5f fs[i] = sqlite3_
1dd40 76 66 73 5f 66 69 6e 64 28 30 29 3b 0a 20 20 20 vfs_find(0);.
1dd50 20 69 66 28 20 61 70 56 66 73 5b 69 5d 20 29 7b if( apVfs[i] ){
1dd60 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 20 61 . assert( a
1dd70 70 56 66 73 5b 69 5d 3d 3d 73 71 6c 69 74 65 33 pVfs[i]==sqlite3
1dd80 5f 76 66 73 5f 66 69 6e 64 28 61 70 56 66 73 5b _vfs_find(apVfs[
1dd90 69 5d 2d 3e 7a 4e 61 6d 65 29 20 29 3b 0a 20 20 i]->zName) );.
1dda0 20 20 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f sqlite3_vfs_
1ddb0 75 6e 72 65 67 69 73 74 65 72 28 61 70 56 66 73 unregister(apVfs
1ddc0 5b 69 5d 29 3b 0a 20 20 20 20 20 20 61 73 73 65 [i]);. asse
1ddd0 72 74 28 20 30 3d 3d 73 71 6c 69 74 65 33 5f 76 rt( 0==sqlite3_v
1dde0 66 73 5f 66 69 6e 64 28 61 70 56 66 73 5b 69 5d fs_find(apVfs[i]
1ddf0 2d 3e 7a 4e 61 6d 65 29 20 29 3b 0a 20 20 20 20 ->zName) );.
1de00 7d 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28 20 }. }. assert(
1de10 30 3d 3d 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 0==sqlite3_vfs_f
1de20 69 6e 64 28 30 29 20 29 3b 0a 20 20 0a 20 20 2f ind(0) );. . /
1de30 2a 20 52 65 67 69 73 74 65 72 20 74 68 65 20 6d * Register the m
1de40 61 69 6e 20 56 46 53 20 61 73 20 6e 6f 6e 2d 64 ain VFS as non-d
1de50 65 66 61 75 6c 74 20 28 77 69 6c 6c 20 62 65 20 efault (will be
1de60 6d 61 64 65 20 64 65 66 61 75 6c 74 2c 20 73 69 made default, si
1de70 6e 63 65 0a 20 20 2a 2a 20 69 74 27 6c 6c 20 62 nce. ** it'll b
1de80 65 20 74 68 65 20 6f 6e 6c 79 20 6f 6e 65 20 69 e the only one i
1de90 6e 20 65 78 69 73 74 65 6e 63 65 29 2e 0a 20 20 n existence)..
1dea0 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 */. sqlite3_vfs
1deb0 5f 72 65 67 69 73 74 65 72 28 70 4d 61 69 6e 2c _register(pMain,
1dec0 20 30 29 3b 0a 20 20 61 73 73 65 72 74 28 20 73 0);. assert( s
1ded0 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 qlite3_vfs_find(
1dee0 30 29 3d 3d 70 4d 61 69 6e 20 29 3b 0a 20 20 0a 0)==pMain );. .
1def0 20 20 2f 2a 20 55 6e 2d 72 65 67 69 73 74 65 72 /* Un-register
1df00 20 74 68 65 20 6d 61 69 6e 20 56 46 53 20 61 67 the main VFS ag
1df10 61 69 6e 20 74 6f 20 72 65 73 74 6f 72 65 20 61 ain to restore a
1df20 6e 20 65 6d 70 74 79 20 56 46 53 20 6c 69 73 74 n empty VFS list
1df30 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 */. sqlite3_vf
1df40 73 5f 75 6e 72 65 67 69 73 74 65 72 28 70 4d 61 s_unregister(pMa
1df50 69 6e 29 3b 0a 20 20 61 73 73 65 72 74 28 20 30 in);. assert( 0
1df60 3d 3d 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 ==sqlite3_vfs_fi
1df70 6e 64 28 30 29 20 29 3b 0a 0a 20 20 2f 2a 20 52 nd(0) );.. /* R
1df80 65 6c 69 6e 6b 20 61 6c 6c 20 56 46 53 65 73 20 elink all VFSes
1df90 69 6e 20 72 65 76 65 72 73 65 20 6f 72 64 65 72 in reverse order
1dfa0 2e 20 2a 2f 20 20 0a 20 20 66 6f 72 28 69 3d 73 . */ . for(i=s
1dfb0 69 7a 65 6f 66 28 61 70 56 66 73 29 2f 73 69 7a izeof(apVfs)/siz
1dfc0 65 6f 66 28 61 70 56 66 73 5b 30 5d 29 2d 31 3b eof(apVfs[0])-1;
1dfd0 20 69 3e 3d 30 3b 20 69 2d 2d 29 7b 0a 20 20 20 i>=0; i--){.
1dfe0 20 69 66 28 20 61 70 56 66 73 5b 69 5d 20 29 7b if( apVfs[i] ){
1dff0 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 76 . sqlite3_v
1e000 66 73 5f 72 65 67 69 73 74 65 72 28 61 70 56 66 fs_register(apVf
1e010 73 5b 69 5d 2c 20 31 29 3b 0a 20 20 20 20 20 20 s[i], 1);.
1e020 61 73 73 65 72 74 28 20 61 70 56 66 73 5b 69 5d assert( apVfs[i]
1e030 3d 3d 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 ==sqlite3_vfs_fi
1e040 6e 64 28 30 29 20 29 3b 0a 20 20 20 20 20 20 61 nd(0) );. a
1e050 73 73 65 72 74 28 20 61 70 56 66 73 5b 69 5d 3d ssert( apVfs[i]=
1e060 3d 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e =sqlite3_vfs_fin
1e070 64 28 61 70 56 66 73 5b 69 5d 2d 3e 7a 4e 61 6d d(apVfs[i]->zNam
1e080 65 29 20 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a e) );. }. }.
1e090 0a 20 20 2f 2a 20 55 6e 72 65 67 69 73 74 65 72 . /* Unregister
1e0a0 20 6f 75 74 20 73 61 6d 70 6c 65 20 56 46 53 65 out sample VFSe
1e0b0 73 2e 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f s. */. sqlite3_
1e0c0 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 28 26 vfs_unregister(&
1e0d0 6f 6e 65 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f one);. sqlite3_
1e0e0 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 28 26 vfs_unregister(&
1e0f0 74 77 6f 29 3b 0a 0a 20 20 2f 2a 20 55 6e 72 65 two);.. /* Unre
1e100 67 69 73 74 65 72 69 6e 67 20 61 20 56 46 53 20 gistering a VFS
1e110 74 68 61 74 20 69 73 20 6e 6f 74 20 63 75 72 72 that is not curr
1e120 65 6e 74 6c 79 20 72 65 67 69 73 74 65 72 65 64 ently registered
1e130 20 69 73 20 68 61 72 6d 6c 65 73 73 20 2a 2f 0a is harmless */.
1e140 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 75 6e sqlite3_vfs_un
1e150 72 65 67 69 73 74 65 72 28 26 6f 6e 65 29 3b 0a register(&one);.
1e160 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 75 6e sqlite3_vfs_un
1e170 72 65 67 69 73 74 65 72 28 26 74 77 6f 29 3b 0a register(&two);.
1e180 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 assert( sqlite
1e190 33 5f 76 66 73 5f 66 69 6e 64 28 22 5f 5f 6f 6e 3_vfs_find("__on
1e1a0 65 22 29 3d 3d 30 20 29 3b 0a 20 20 61 73 73 65 e")==0 );. asse
1e1b0 72 74 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f rt( sqlite3_vfs_
1e1c0 66 69 6e 64 28 22 5f 5f 74 77 6f 22 29 3d 3d 30 find("__two")==0
1e1d0 20 29 3b 0a 0a 20 20 2f 2a 20 57 65 20 73 68 6f );.. /* We sho
1e1e0 75 6c 64 20 62 65 20 6c 65 66 74 20 77 69 74 68 uld be left with
1e1f0 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 64 65 the original de
1e200 66 61 75 6c 74 20 56 46 53 20 62 61 63 6b 20 61 fault VFS back a
1e210 73 20 74 68 65 0a 20 20 2a 2a 20 6f 72 69 67 69 s the. ** origi
1e220 6e 61 6c 20 2a 2f 0a 20 20 61 73 73 65 72 74 28 nal */. assert(
1e230 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e sqlite3_vfs_fin
1e240 64 28 30 29 3d 3d 70 4d 61 69 6e 20 29 3b 0a 0a d(0)==pMain );..
1e250 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1e260 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 .}../*.** tclcmd
1e270 3a 20 20 20 76 66 73 5f 69 6e 69 74 66 61 69 6c : vfs_initfail
1e280 5f 74 65 73 74 0a 2a 2a 0a 2a 2a 20 54 68 69 73 _test.**.** This
1e290 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 61 74 74 TCL command att
1e2a0 65 6d 70 74 73 20 74 6f 20 76 66 73 5f 66 69 6e empts to vfs_fin
1e2b0 64 20 61 6e 64 20 76 66 73 5f 72 65 67 69 73 74 d and vfs_regist
1e2c0 65 72 20 77 68 65 6e 20 74 68 65 0a 2a 2a 20 73 er when the.** s
1e2d0 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c 69 7a qlite3_initializ
1e2e0 65 28 29 20 69 6e 74 65 72 66 61 63 65 20 69 73 e() interface is
1e2f0 20 66 61 69 6c 69 6e 67 2e 20 20 41 6c 6c 20 63 failing. All c
1e300 61 6c 6c 73 20 73 68 6f 75 6c 64 20 66 61 69 6c alls should fail
1e310 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
1e320 76 66 73 5f 69 6e 69 74 66 61 69 6c 5f 74 65 73 vfs_initfail_tes
1e330 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 t(. ClientData
1e340 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 clientData, /* P
1e350 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 ointer to sqlite
1e360 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 3_enable_XXX fun
1e370 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 ction */. Tcl_I
1e380 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
1e390 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
1e3a0 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
1e3b0 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
1e3c0 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 nd */. int objc
1e3d0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
1e3e0 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
1e3f0 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f ments */. Tcl_O
1e400 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
1e410 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 /* Command arg
1e420 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 uments */.){. s
1e430 71 6c 69 74 65 33 5f 76 66 73 20 6f 6e 65 3b 0a qlite3_vfs one;.
1e440 20 20 6f 6e 65 2e 7a 4e 61 6d 65 20 3d 20 22 5f one.zName = "_
1e450 5f 6f 6e 65 22 3b 0a 0a 20 20 69 66 28 20 73 71 _one";.. if( sq
1e460 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 lite3_vfs_find(0
1e470 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
1e480 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 33 5f RROR;. sqlite3_
1e490 76 66 73 5f 72 65 67 69 73 74 65 72 28 26 6f 6e vfs_register(&on
1e4a0 65 2c 20 30 29 3b 0a 20 20 69 66 28 20 73 71 6c e, 0);. if( sql
1e4b0 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 ite3_vfs_find(0)
1e4c0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
1e4d0 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 ROR;. sqlite3_v
1e4e0 66 73 5f 72 65 67 69 73 74 65 72 28 26 6f 6e 65 fs_register(&one
1e4f0 2c 20 31 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 , 1);. if( sqli
1e500 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 20 te3_vfs_find(0)
1e510 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1e520 4f 52 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c OR;. return TCL
1e530 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 61 _OK;.}../*.** Sa
1e540 76 65 64 20 56 46 53 65 73 0a 2a 2f 0a 73 74 61 ved VFSes.*/.sta
1e550 74 69 63 20 73 71 6c 69 74 65 33 5f 76 66 73 20 tic sqlite3_vfs
1e560 2a 61 70 56 66 73 5b 32 30 5d 3b 0a 73 74 61 74 *apVfs[20];.stat
1e570 69 63 20 69 6e 74 20 6e 56 66 73 20 3d 20 30 3b ic int nVfs = 0;
1e580 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 ../*.** tclcmd:
1e590 20 20 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 vfs_unregister
1e5a0 5f 61 6c 6c 0a 2a 2a 0a 2a 2a 20 55 6e 72 65 67 _all.**.** Unreg
1e5b0 69 73 74 65 72 20 61 6c 6c 20 56 46 53 65 73 2e ister all VFSes.
1e5c0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 76 .*/.static int v
1e5d0 66 73 5f 75 6e 72 65 67 69 73 74 65 72 5f 61 6c fs_unregister_al
1e5e0 6c 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 l(. ClientData
1e5f0 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 clientData, /* P
1e600 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 ointer to sqlite
1e610 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 3_enable_XXX fun
1e620 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 ction */. Tcl_I
1e630 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
1e640 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
1e650 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
1e660 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
1e670 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 nd */. int objc
1e680 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
1e690 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
1e6a0 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f ments */. Tcl_O
1e6b0 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
1e6c0 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 /* Command arg
1e6d0 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 uments */.){. i
1e6e0 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d 30 3b nt i;. for(i=0;
1e6f0 20 69 3c 41 72 72 61 79 53 69 7a 65 28 61 70 56 i<ArraySize(apV
1e700 66 73 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 61 fs); i++){. a
1e710 70 56 66 73 5b 69 5d 20 3d 20 73 71 6c 69 74 65 pVfs[i] = sqlite
1e720 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 3b 0a 20 3_vfs_find(0);.
1e730 20 20 20 69 66 28 20 61 70 56 66 73 5b 69 5d 3d if( apVfs[i]=
1e740 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 =0 ) break;.
1e750 73 71 6c 69 74 65 33 5f 76 66 73 5f 75 6e 72 65 sqlite3_vfs_unre
1e760 67 69 73 74 65 72 28 61 70 56 66 73 5b 69 5d 29 gister(apVfs[i])
1e770 3b 0a 20 20 7d 0a 20 20 6e 56 66 73 20 3d 20 69 ;. }. nVfs = i
1e780 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
1e790 4b 3b 0a 7d 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d K;.}./*.** tclcm
1e7a0 64 3a 20 20 20 76 66 73 5f 72 65 72 65 67 69 73 d: vfs_reregis
1e7b0 74 65 72 5f 61 6c 6c 0a 2a 2a 0a 2a 2a 20 52 65 ter_all.**.** Re
1e7c0 73 74 6f 72 65 20 61 6c 6c 20 56 46 53 65 73 20 store all VFSes
1e7d0 74 68 61 74 20 77 65 72 65 20 72 65 6d 6f 76 65 that were remove
1e7e0 64 20 75 73 69 6e 67 20 76 66 73 5f 75 6e 72 65 d using vfs_unre
1e7f0 67 69 73 74 65 72 5f 61 6c 6c 0a 2a 2f 0a 73 74 gister_all.*/.st
1e800 61 74 69 63 20 69 6e 74 20 76 66 73 5f 72 65 72 atic int vfs_rer
1e810 65 67 69 73 74 65 72 5f 61 6c 6c 28 0a 20 20 43 egister_all(. C
1e820 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
1e830 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 Data, /* Pointer
1e840 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 to sqlite3_enab
1e850 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 le_XXX function
1e860 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 */. Tcl_Interp
1e870 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
1e880 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
1e890 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
1e8a0 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
1e8b0 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 int objc,
1e8c0 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
1e8d0 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
1e8e0 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f */. Tcl_Obj *CO
1e8f0 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 NST objv[] /* C
1e900 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 ommand arguments
1e910 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a */.){. int i;.
1e920 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 56 66 for(i=0; i<nVf
1e930 73 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 73 71 6c s; i++){. sql
1e940 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65 ite3_vfs_registe
1e950 72 28 61 70 56 66 73 5b 69 5d 2c 20 69 3d 3d 30 r(apVfs[i], i==0
1e960 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 );. }. return
1e970 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a TCL_OK;.}.../*.*
1e980 2a 20 74 63 6c 63 6d 64 3a 20 20 20 66 69 6c 65 * tclcmd: file
1e990 5f 63 6f 6e 74 72 6f 6c 5f 74 65 73 74 20 44 42 _control_test DB
1e9a0 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 54 43 4c 20 .**.** This TCL
1e9b0 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 20 74 68 65 command runs the
1e9c0 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f sqlite3_file_co
1e9d0 6e 74 72 6f 6c 20 69 6e 74 65 72 66 61 63 65 20 ntrol interface
1e9e0 61 6e 64 0a 2a 2a 20 76 65 72 69 66 69 65 73 20 and.** verifies
1e9f0 63 6f 72 72 65 63 74 20 6f 70 65 72 61 74 69 6f correct operatio
1ea00 6e 20 6f 66 20 74 68 65 20 73 61 6d 65 2e 0a 2a n of the same..*
1ea10 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66 69 6c /.static int fil
1ea20 65 5f 63 6f 6e 74 72 6f 6c 5f 74 65 73 74 28 0a e_control_test(.
1ea30 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
1ea40 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e entData, /* Poin
1ea50 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 ter to sqlite3_e
1ea60 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 nable_XXX functi
1ea70 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 on */. Tcl_Inte
1ea80 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
1ea90 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
1eaa0 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
1eab0 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
1eac0 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 */. int objc,
1ead0 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
1eae0 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
1eaf0 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 ts */. Tcl_Obj
1eb00 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f *CONST objv[] /
1eb10 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 * Command argume
1eb20 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 nts */.){. int
1eb30 69 41 72 67 20 3d 20 30 3b 0a 20 20 73 71 6c 69 iArg = 0;. sqli
1eb40 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 te3 *db;. int r
1eb50 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d c;.. if( objc!=
1eb60 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
1eb70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
1eb80 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
1eb90 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a should be \"",.
1eba0 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 Tcl_GetS
1ebb0 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
1ebc0 76 5b 30 5d 2c 20 30 29 2c 20 22 20 44 42 22 2c v[0], 0), " DB",
1ebd0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
1ebe0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
1ebf0 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
1ec00 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
1ec10 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
1ec20 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
1ec30 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 TCL_ERROR;. rc
1ec40 3d 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 5f 63 = sqlite3_file_c
1ec50 6f 6e 74 72 6f 6c 28 64 62 2c 20 30 2c 20 30 2c ontrol(db, 0, 0,
1ec60 20 26 69 41 72 67 29 3b 0a 20 20 61 73 73 65 72 &iArg);. asser
1ec70 74 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 45 52 t( rc==SQLITE_ER
1ec80 52 4f 52 20 29 3b 0a 20 20 72 63 20 3d 20 73 71 ROR );. rc = sq
1ec90 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 lite3_file_contr
1eca0 6f 6c 28 64 62 2c 20 22 6e 6f 74 61 64 61 74 61 ol(db, "notadata
1ecb0 62 61 73 65 22 2c 20 53 51 4c 49 54 45 5f 46 43 base", SQLITE_FC
1ecc0 4e 54 4c 5f 4c 4f 43 4b 53 54 41 54 45 2c 20 26 NTL_LOCKSTATE, &
1ecd0 69 41 72 67 29 3b 0a 20 20 61 73 73 65 72 74 28 iArg);. assert(
1ece0 20 72 63 3d 3d 53 51 4c 49 54 45 5f 45 52 52 4f rc==SQLITE_ERRO
1ecf0 52 20 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 R );. rc = sqli
1ed00 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c te3_file_control
1ed10 28 64 62 2c 20 22 6d 61 69 6e 22 2c 20 2d 31 2c (db, "main", -1,
1ed20 20 26 69 41 72 67 29 3b 0a 20 20 61 73 73 65 72 &iArg);. asser
1ed30 74 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 45 52 t( rc==SQLITE_ER
1ed40 52 4f 52 20 29 3b 0a 20 20 72 63 20 3d 20 73 71 ROR );. rc = sq
1ed50 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 lite3_file_contr
1ed60 6f 6c 28 64 62 2c 20 22 74 65 6d 70 22 2c 20 2d ol(db, "temp", -
1ed70 31 2c 20 26 69 41 72 67 29 3b 0a 20 20 61 73 73 1, &iArg);. ass
1ed80 65 72 74 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f ert( rc==SQLITE_
1ed90 45 52 52 4f 52 20 29 3b 0a 0a 20 20 72 65 74 75 ERROR );.. retu
1eda0 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f rn TCL_OK;.}.../
1edb0 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 66 *.** tclcmd: f
1edc0 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c 61 73 74 ile_control_last
1edd0 65 72 72 6e 6f 5f 74 65 73 74 20 44 42 0a 2a 2a errno_test DB.**
1ede0 0a 2a 2a 20 54 68 69 73 20 54 43 4c 20 63 6f 6d .** This TCL com
1edf0 6d 61 6e 64 20 72 75 6e 73 20 74 68 65 20 73 71 mand runs the sq
1ee00 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 lite3_file_contr
1ee10 6f 6c 20 69 6e 74 65 72 66 61 63 65 20 61 6e 64 ol interface and
1ee20 0a 2a 2a 20 76 65 72 69 66 69 65 73 20 63 6f 72 .** verifies cor
1ee30 72 65 63 74 20 6f 70 65 72 61 74 69 6f 6e 20 6f rect operation o
1ee40 66 20 74 68 65 20 53 51 4c 49 54 45 5f 4c 41 53 f the SQLITE_LAS
1ee50 54 5f 45 52 52 4e 4f 20 76 65 72 62 2e 0a 2a 2f T_ERRNO verb..*/
1ee60 0a 73 74 61 74 69 63 20 69 6e 74 20 66 69 6c 65 .static int file
1ee70 5f 63 6f 6e 74 72 6f 6c 5f 6c 61 73 74 65 72 72 _control_lasterr
1ee80 6e 6f 5f 74 65 73 74 28 0a 20 20 43 6c 69 65 6e no_test(. Clien
1ee90 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
1eea0 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 , /* Pointer to
1eeb0 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 sqlite3_enable_X
1eec0 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 XX function */.
1eed0 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1eee0 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
1eef0 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
1ef00 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
1ef10 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
1ef20 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 t objc,
1ef30 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
1ef40 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
1ef50 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
1ef60 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 objv[] /* Comma
1ef70 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a nd arguments */.
1ef80 29 7b 0a 20 20 69 6e 74 20 69 41 72 67 20 3d 20 ){. int iArg =
1ef90 30 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 0;. sqlite3 *db
1efa0 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 ;. int rc;.. i
1efb0 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 f( objc!=2 ){.
1efc0 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
1efd0 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
1efe0 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
1eff0 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 be \"",.
1f000 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
1f010 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 omObj(objv[0], 0
1f020 29 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 ), " DB", 0);.
1f030 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
1f040 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
1f050 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
1f060 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
1f070 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 (objv[1]), &db)
1f080 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1f090 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 OR;. rc = sqlit
1f0a0 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 28 e3_file_control(
1f0b0 64 62 2c 20 4e 55 4c 4c 2c 20 53 51 4c 49 54 45 db, NULL, SQLITE
1f0c0 5f 4c 41 53 54 5f 45 52 52 4e 4f 2c 20 26 69 41 _LAST_ERRNO, &iA
1f0d0 72 67 29 3b 0a 20 20 69 66 28 20 72 63 20 29 20 rg);. if( rc )
1f0e0 7b 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 { Tcl_SetObjResu
1f0f0 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e lt(interp, Tcl_N
1f100 65 77 49 6e 74 4f 62 6a 28 72 63 29 29 3b 20 72 ewIntObj(rc)); r
1f110 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1f120 20 7d 0a 20 20 69 66 28 20 69 41 72 67 21 3d 30 }. if( iArg!=0
1f130 20 29 20 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 ) {. Tcl_App
1f140 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
1f150 2c 20 22 55 6e 65 78 70 65 63 74 65 64 20 6e 6f , "Unexpected no
1f160 6e 2d 7a 65 72 6f 20 65 72 72 6e 6f 3a 20 22 2c n-zero errno: ",
1f170 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1f180 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
1f190 69 6e 67 46 72 6f 6d 4f 62 6a 28 54 63 6c 5f 4e ingFromObj(Tcl_N
1f1a0 65 77 49 6e 74 4f 62 6a 28 69 41 72 67 29 2c 20 ewIntObj(iArg),
1f1b0 30 29 2c 20 22 20 22 2c 20 30 29 3b 0a 20 20 20 0), " ", 0);.
1f1c0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1f1d0 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 R;. }. return
1f1e0 54 43 4c 5f 4f 4b 3b 20 20 0a 7d 0a 0a 2f 2a 0a TCL_OK; .}../*.
1f1f0 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 66 69 6c ** tclcmd: fil
1f200 65 5f 63 6f 6e 74 72 6f 6c 5f 6c 6f 63 6b 70 72 e_control_lockpr
1f210 6f 78 79 5f 74 65 73 74 20 44 42 0a 2a 2a 0a 2a oxy_test DB.**.*
1f220 2a 20 54 68 69 73 20 54 43 4c 20 63 6f 6d 6d 61 * This TCL comma
1f230 6e 64 20 72 75 6e 73 20 74 68 65 20 73 71 6c 69 nd runs the sqli
1f240 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c te3_file_control
1f250 20 69 6e 74 65 72 66 61 63 65 20 61 6e 64 0a 2a interface and.*
1f260 2a 20 76 65 72 69 66 69 65 73 20 63 6f 72 72 65 * verifies corre
1f270 63 74 20 6f 70 65 72 61 74 69 6f 6e 20 6f 66 20 ct operation of
1f280 74 68 65 20 53 51 4c 49 54 45 5f 47 45 54 5f 4c the SQLITE_GET_L
1f290 4f 43 4b 50 52 4f 58 59 46 49 4c 45 20 61 6e 64 OCKPROXYFILE and
1f2a0 0a 2a 2a 20 53 51 4c 49 54 45 5f 53 45 54 5f 4c .** SQLITE_SET_L
1f2b0 4f 43 4b 50 52 4f 58 59 46 49 4c 45 20 76 65 72 OCKPROXYFILE ver
1f2c0 62 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e bs..*/.static in
1f2d0 74 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c t file_control_l
1f2e0 6f 63 6b 70 72 6f 78 79 5f 74 65 73 74 28 0a 20 ockproxy_test(.
1f2f0 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 ClientData clie
1f300 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 ntData, /* Point
1f310 65 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e er to sqlite3_en
1f320 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f able_XXX functio
1f330 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 n */. Tcl_Inter
1f340 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
1f350 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
1f360 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
1f370 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
1f380 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 /. int objc,
1f390 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
1f3a0 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
1f3b0 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a s */. Tcl_Obj *
1f3c0 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a CONST objv[] /*
1f3d0 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e Command argumen
1f3e0 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 ts */.){. int i
1f3f0 41 72 67 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 Arg = 0;. sqlit
1f400 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 e3 *db;. int rc
1f410 3b 0a 20 20 0a 20 20 69 66 28 20 6f 62 6a 63 21 ;. . if( objc!
1f420 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
1f430 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1f440 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
1f450 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
1f460 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1f470 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
1f480 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
1f490 30 5d 2c 20 30 29 2c 20 22 20 44 42 22 2c 20 30 0], 0), " DB", 0
1f4a0 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1f4b0 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
1f4c0 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
1f4d0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
1f4e0 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
1f4f0 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
1f500 4c 5f 45 52 52 4f 52 3b 0a 20 20 0a 23 69 66 64 L_ERROR;. .#ifd
1f510 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 ef SQLITE_ENABLE
1f520 5f 4c 4f 43 4b 49 4e 47 5f 53 54 59 4c 45 0a 09 _LOCKING_STYLE..
1f530 7b 0a 20 20 20 20 63 68 61 72 20 2a 70 72 6f 78 {. char *prox
1f540 79 50 61 74 68 20 3d 20 22 74 65 73 74 2e 70 72 yPath = "test.pr
1f550 6f 78 79 22 3b 0a 20 20 20 20 63 68 61 72 20 2a oxy";. char *
1f560 74 65 73 74 50 61 74 68 3b 0a 09 09 72 63 20 3d testPath;...rc =
1f570 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f sqlite3_file_co
1f580 6e 74 72 6f 6c 28 64 62 2c 20 4e 55 4c 4c 2c 20 ntrol(db, NULL,
1f590 53 51 4c 49 54 45 5f 53 45 54 5f 4c 4f 43 4b 50 SQLITE_SET_LOCKP
1f5a0 52 4f 58 59 46 49 4c 45 2c 20 70 72 6f 78 79 50 ROXYFILE, proxyP
1f5b0 61 74 68 29 3b 0a 20 20 20 20 69 66 28 20 72 63 ath);. if( rc
1f5c0 20 29 20 7b 20 54 63 6c 5f 53 65 74 4f 62 6a 52 ) { Tcl_SetObjR
1f5d0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
1f5e0 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 63 29 29 l_NewIntObj(rc))
1f5f0 3b 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ; return TCL_ERR
1f600 4f 52 3b 20 7d 0a 20 20 20 20 72 63 20 3d 20 73 OR; }. rc = s
1f610 71 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 qlite3_file_cont
1f620 72 6f 6c 28 64 62 2c 20 4e 55 4c 4c 2c 20 53 51 rol(db, NULL, SQ
1f630 4c 49 54 45 5f 47 45 54 5f 4c 4f 43 4b 50 52 4f LITE_GET_LOCKPRO
1f640 58 59 46 49 4c 45 2c 20 26 74 65 73 74 50 61 74 XYFILE, &testPat
1f650 68 29 3b 0a 20 20 20 20 69 66 28 20 73 74 72 6e h);. if( strn
1f660 63 6d 70 28 70 72 6f 78 79 50 61 74 68 2c 74 65 cmp(proxyPath,te
1f670 73 74 50 61 74 68 2c 31 31 29 20 29 20 7b 0a 20 stPath,11) ) {.
1f680 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 Tcl_AppendR
1f690 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4c esult(interp, "L
1f6a0 6f 63 6b 20 70 72 6f 78 79 20 66 69 6c 65 20 64 ock proxy file d
1f6b0 69 64 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 id not match the
1f6c0 20 70 72 65 76 69 6f 75 73 6c 79 20 61 73 73 69 previously assi
1f6d0 67 6e 65 64 20 76 61 6c 75 65 22 2c 20 30 29 3b gned value", 0);
1f6e0 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 . return TC
1f6f0 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
1f700 20 20 20 69 66 28 20 72 63 20 29 20 7b 20 54 63 if( rc ) { Tc
1f710 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
1f720 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e nterp, Tcl_NewIn
1f730 74 4f 62 6a 28 72 63 29 29 3b 20 72 65 74 75 72 tObj(rc)); retur
1f740 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 20 7d 0a 09 n TCL_ERROR; }..
1f750 09 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 .rc = sqlite3_fi
1f760 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 4e le_control(db, N
1f770 55 4c 4c 2c 20 53 51 4c 49 54 45 5f 53 45 54 5f ULL, SQLITE_SET_
1f780 4c 4f 43 4b 50 52 4f 58 59 46 49 4c 45 2c 20 70 LOCKPROXYFILE, p
1f790 72 6f 78 79 50 61 74 68 29 3b 0a 20 20 20 20 69 roxyPath);. i
1f7a0 66 28 20 72 63 20 29 20 7b 20 54 63 6c 5f 53 65 f( rc ) { Tcl_Se
1f7b0 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
1f7c0 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
1f7d0 28 72 63 29 29 3b 20 72 65 74 75 72 6e 20 54 43 (rc)); return TC
1f7e0 4c 5f 45 52 52 4f 52 3b 20 7d 0a 20 20 7d 0a 23 L_ERROR; }. }.#
1f7f0 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 54 endif. return T
1f800 43 4c 5f 4f 4b 3b 20 20 0a 7d 0a 0a 0a 2f 2a 0a CL_OK; .}.../*.
1f810 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 73 71 6c ** tclcmd: sql
1f820 69 74 65 33 5f 76 66 73 5f 6c 69 73 74 0a 2a 2a ite3_vfs_list.**
1f830 0a 2a 2a 20 20 20 52 65 74 75 72 6e 20 61 20 74 .** Return a t
1f840 63 6c 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 cl list containi
1f850 6e 67 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 ng the names of
1f860 61 6c 6c 20 72 65 67 69 73 74 65 72 65 64 20 76 all registered v
1f870 66 73 27 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 fs's..*/.static
1f880 69 6e 74 20 76 66 73 5f 6c 69 73 74 28 0a 20 20 int vfs_list(.
1f890 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
1f8a0 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 tData, /* Pointe
1f8b0 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 r to sqlite3_ena
1f8c0 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e ble_XXX function
1f8d0 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 */. Tcl_Interp
1f8e0 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
1f8f0 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
1f900 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
1f910 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
1f920 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 . int objc,
1f930 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
1f940 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
1f950 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 */. Tcl_Obj *C
1f960 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 ONST objv[] /*
1f970 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 Command argument
1f980 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 s */.){. sqlite
1f990 33 5f 76 66 73 20 2a 70 56 66 73 3b 0a 20 20 54 3_vfs *pVfs;. T
1f9a0 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 20 3d 20 54 cl_Obj *pRet = T
1f9b0 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 69 cl_NewObj();. i
1f9c0 66 28 20 6f 62 6a 63 21 3d 31 20 29 7b 0a 20 20 f( objc!=1 ){.
1f9d0 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
1f9e0 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
1f9f0 6a 76 2c 20 22 22 29 3b 0a 20 20 20 20 72 65 74 jv, "");. ret
1fa00 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1fa10 20 7d 0a 20 20 66 6f 72 28 70 56 66 73 3d 73 71 }. for(pVfs=sq
1fa20 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 lite3_vfs_find(0
1fa30 29 3b 20 70 56 66 73 3b 20 70 56 66 73 3d 70 56 ); pVfs; pVfs=pV
1fa40 66 73 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20 20 fs->pNext){.
1fa50 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
1fa60 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
1fa70 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 pRet, Tcl_NewSt
1fa80 72 69 6e 67 4f 62 6a 28 70 56 66 73 2d 3e 7a 4e ringObj(pVfs->zN
1fa90 61 6d 65 2c 20 2d 31 29 29 3b 0a 20 20 7d 0a 20 ame, -1));. }.
1faa0 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
1fab0 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b t(interp, pRet);
1fac0 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
1fad0 3b 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c ; .}../*.** tcl
1fae0 63 6d 64 3a 20 20 20 73 71 6c 69 74 65 33 5f 6c cmd: sqlite3_l
1faf0 69 6d 69 74 20 44 42 20 49 44 20 56 41 4c 55 45 imit DB ID VALUE
1fb00 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 54 43 4c 20 .**.** This TCL
1fb10 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 20 74 68 65 command runs the
1fb20 20 73 71 6c 69 74 65 33 5f 6c 69 6d 69 74 20 69 sqlite3_limit i
1fb30 6e 74 65 72 66 61 63 65 20 61 6e 64 0a 2a 2a 20 nterface and.**
1fb40 76 65 72 69 66 69 65 73 20 63 6f 72 72 65 63 74 verifies correct
1fb50 20 6f 70 65 72 61 74 69 6f 6e 20 6f 66 20 74 68 operation of th
1fb60 65 20 73 61 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 e same..*/.stati
1fb70 63 20 69 6e 74 20 74 65 73 74 5f 6c 69 6d 69 74 c int test_limit
1fb80 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
1fb90 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f lientData, /* Po
1fba0 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 inter to sqlite3
1fbb0 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 _enable_XXX func
1fbc0 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e tion */. Tcl_In
1fbd0 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
1fbe0 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
1fbf0 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
1fc00 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
1fc10 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c d */. int objc,
1fc20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
1fc30 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
1fc40 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 ents */. Tcl_Ob
1fc50 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 j *CONST objv[]
1fc60 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 /* Command argu
1fc70 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 ments */.){. sq
1fc80 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 lite3 *db;. int
1fc90 20 72 63 3b 0a 20 20 73 74 61 74 69 63 20 63 6f rc;. static co
1fca0 6e 73 74 20 73 74 72 75 63 74 20 7b 0a 20 20 20 nst struct {.
1fcb0 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 char *zName;.
1fcc0 20 20 20 20 69 6e 74 20 69 64 3b 0a 20 20 7d 20 int id;. }
1fcd0 61 49 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 aId[] = {. {
1fce0 22 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 45 "SQLITE_LIMIT_LE
1fcf0 4e 47 54 48 22 2c 20 20 20 20 20 20 20 20 20 20 NGTH",
1fd00 20 20 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 SQLITE_LIMIT
1fd10 5f 4c 45 4e 47 54 48 20 20 20 20 20 20 20 20 20 _LENGTH
1fd20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
1fd30 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 53 51 4c SQLITE_LIMIT_SQL
1fd40 5f 4c 45 4e 47 54 48 22 2c 20 20 20 20 20 20 20 _LENGTH",
1fd50 20 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f SQLITE_LIMIT_
1fd60 53 51 4c 5f 4c 45 4e 47 54 48 20 20 20 20 20 20 SQL_LENGTH
1fd70 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 },. { "S
1fd80 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 43 4f 4c 55 QLITE_LIMIT_COLU
1fd90 4d 4e 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 MN",
1fda0 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 43 SQLITE_LIMIT_C
1fdb0 4f 4c 55 4d 4e 20 20 20 20 20 20 20 20 20 20 20 OLUMN
1fdc0 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 },. { "SQ
1fdd0 4c 49 54 45 5f 4c 49 4d 49 54 5f 45 58 50 52 5f LITE_LIMIT_EXPR_
1fde0 44 45 50 54 48 22 2c 20 20 20 20 20 20 20 20 20 DEPTH",
1fdf0 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 45 58 SQLITE_LIMIT_EX
1fe00 50 52 5f 44 45 50 54 48 20 20 20 20 20 20 20 20 PR_DEPTH
1fe10 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c },. { "SQL
1fe20 49 54 45 5f 4c 49 4d 49 54 5f 43 4f 4d 50 4f 55 ITE_LIMIT_COMPOU
1fe30 4e 44 5f 53 45 4c 45 43 54 22 2c 20 20 20 20 20 ND_SELECT",
1fe40 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 43 4f 4d SQLITE_LIMIT_COM
1fe50 50 4f 55 4e 44 5f 53 45 4c 45 43 54 20 20 20 20 POUND_SELECT
1fe60 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c 49 },. { "SQLI
1fe70 54 45 5f 4c 49 4d 49 54 5f 56 44 42 45 5f 4f 50 TE_LIMIT_VDBE_OP
1fe80 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 53 ", S
1fe90 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 56 44 42 45 QLITE_LIMIT_VDBE
1fea0 5f 4f 50 20 20 20 20 20 20 20 20 20 20 20 20 20 _OP
1feb0 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c 49 54 },. { "SQLIT
1fec0 45 5f 4c 49 4d 49 54 5f 46 55 4e 43 54 49 4f 4e E_LIMIT_FUNCTION
1fed0 5f 41 52 47 22 2c 20 20 20 20 20 20 20 20 53 51 _ARG", SQ
1fee0 4c 49 54 45 5f 4c 49 4d 49 54 5f 46 55 4e 43 54 LITE_LIMIT_FUNCT
1fef0 49 4f 4e 5f 41 52 47 20 20 20 20 20 20 20 20 20 ION_ARG
1ff00 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c 49 54 45 },. { "SQLITE
1ff10 5f 4c 49 4d 49 54 5f 41 54 54 41 43 48 45 44 22 _LIMIT_ATTACHED"
1ff20 2c 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c , SQL
1ff30 49 54 45 5f 4c 49 4d 49 54 5f 41 54 54 41 43 48 ITE_LIMIT_ATTACH
1ff40 45 44 20 20 20 20 20 20 20 20 20 20 20 20 20 7d ED }
1ff50 2c 0a 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f ,. { "SQLITE_
1ff60 4c 49 4d 49 54 5f 4c 49 4b 45 5f 50 41 54 54 45 LIMIT_LIKE_PATTE
1ff70 52 4e 5f 4c 45 4e 47 54 48 22 2c 20 53 51 4c 49 RN_LENGTH", SQLI
1ff80 54 45 5f 4c 49 4d 49 54 5f 4c 49 4b 45 5f 50 41 TE_LIMIT_LIKE_PA
1ff90 54 54 45 52 4e 5f 4c 45 4e 47 54 48 20 20 7d 2c TTERN_LENGTH },
1ffa0 0a 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 4c . { "SQLITE_L
1ffb0 49 4d 49 54 5f 56 41 52 49 41 42 4c 45 5f 4e 55 IMIT_VARIABLE_NU
1ffc0 4d 42 45 52 22 2c 20 20 20 20 20 53 51 4c 49 54 MBER", SQLIT
1ffd0 45 5f 4c 49 4d 49 54 5f 56 41 52 49 41 42 4c 45 E_LIMIT_VARIABLE
1ffe0 5f 4e 55 4d 42 45 52 20 20 20 20 20 20 7d 2c 0a _NUMBER },.
1fff0 20 20 20 20 0a 20 20 20 20 2f 2a 20 4f 75 74 20 . /* Out
20000 6f 66 20 72 61 6e 67 65 20 74 65 73 74 20 63 61 of range test ca
20010 73 65 73 20 2a 2f 0a 20 20 20 20 7b 20 22 53 51 ses */. { "SQ
20020 4c 49 54 45 5f 4c 49 4d 49 54 5f 54 4f 4f 53 4d LITE_LIMIT_TOOSM
20030 41 4c 4c 22 2c 20 20 20 20 20 20 20 20 20 20 20 ALL",
20040 20 2d 31 2c 20 20 20 20 20 20 20 20 20 20 20 20 -1,
20050 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20060 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c },. { "SQL
20070 49 54 45 5f 4c 49 4d 49 54 5f 54 4f 4f 42 49 47 ITE_LIMIT_TOOBIG
20080 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
20090 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 56 41 52 SQLITE_LIMIT_VAR
200a0 49 41 42 4c 45 5f 4e 55 4d 42 45 52 2b 31 20 20 IABLE_NUMBER+1
200b0 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 },. };. int
200c0 69 2c 20 69 64 3b 0a 20 20 69 6e 74 20 76 61 6c i, id;. int val
200d0 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ;. const char *
200e0 7a 49 64 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 zId;.. if( objc
200f0 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=4 ){. Tcl_A
20100 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
20110 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
20120 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
20130 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 ,. Tcl_Ge
20140 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
20150 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 44 42 bjv[0], 0), " DB
20160 20 49 44 20 56 41 4c 55 45 22 2c 20 30 29 3b 0a ID VALUE", 0);.
20170 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
20180 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
20190 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
201a0 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
201b0 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
201c0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
201d0 52 52 4f 52 3b 0a 20 20 7a 49 64 20 3d 20 54 63 RROR;. zId = Tc
201e0 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
201f0 5b 32 5d 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b [2]);. for(i=0;
20200 20 69 3c 73 69 7a 65 6f 66 28 61 49 64 29 2f 73 i<sizeof(aId)/s
20210 69 7a 65 6f 66 28 61 49 64 5b 30 5d 29 3b 20 69 izeof(aId[0]); i
20220 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 73 74 72 ++){. if( str
20230 63 6d 70 28 7a 49 64 2c 20 61 49 64 5b 69 5d 2e cmp(zId, aId[i].
20240 7a 4e 61 6d 65 29 3d 3d 30 20 29 7b 0a 20 20 20 zName)==0 ){.
20250 20 20 20 69 64 20 3d 20 61 49 64 5b 69 5d 2e 69 id = aId[i].i
20260 64 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a d;. break;.
20270 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 }. }. if(
20280 69 3e 3d 73 69 7a 65 6f 66 28 61 49 64 29 2f 73 i>=sizeof(aId)/s
20290 69 7a 65 6f 66 28 61 49 64 5b 30 5d 29 20 29 7b izeof(aId[0]) ){
202a0 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
202b0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 75 esult(interp, "u
202c0 6e 6b 6e 6f 77 6e 20 6c 69 6d 69 74 20 74 79 70 nknown limit typ
202d0 65 3a 20 22 2c 20 7a 49 64 2c 20 28 63 68 61 72 e: ", zId, (char
202e0 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e *)0);. return
202f0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
20300 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
20310 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
20320 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 29 20 29 objv[3], &val) )
20330 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
20340 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 R;. rc = sqlite
20350 33 5f 6c 69 6d 69 74 28 64 62 2c 20 69 64 2c 20 3_limit(db, id,
20360 76 61 6c 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f val);. Tcl_SetO
20370 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
20380 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 Tcl_NewIntObj(r
20390 63 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 c));. return TC
203a0 4c 5f 4f 4b 3b 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a L_OK; .}../*.**
203b0 20 74 63 6c 63 6d 64 3a 20 20 73 61 76 65 5f 70 tclcmd: save_p
203c0 72 6e 67 5f 73 74 61 74 65 0a 2a 2a 0a 2a 2a 20 rng_state.**.**
203d0 53 61 76 65 20 74 68 65 20 73 74 61 74 65 20 6f Save the state o
203e0 66 20 74 68 65 20 70 73 65 75 64 6f 2d 72 61 6e f the pseudo-ran
203f0 64 6f 6d 20 6e 75 6d 62 65 72 20 67 65 6e 65 72 dom number gener
20400 61 74 6f 72 2e 0a 2a 2a 20 41 74 20 74 68 65 20 ator..** At the
20410 73 61 6d 65 20 74 69 6d 65 2c 20 76 65 72 69 66 same time, verif
20420 79 20 74 68 61 74 20 73 71 6c 69 74 65 33 5f 74 y that sqlite3_t
20430 65 73 74 5f 63 6f 6e 74 72 6f 6c 20 77 6f 72 6b est_control work
20440 73 20 65 76 65 6e 20 77 68 65 6e 0a 2a 2a 20 63 s even when.** c
20450 61 6c 6c 65 64 20 77 69 74 68 20 61 6e 20 6f 75 alled with an ou
20460 74 2d 6f 66 2d 72 61 6e 67 65 20 6f 70 63 6f 64 t-of-range opcod
20470 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 e..*/.static int
20480 20 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 74 65 save_prng_state
20490 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
204a0 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f lientData, /* Po
204b0 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 inter to sqlite3
204c0 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 _enable_XXX func
204d0 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e tion */. Tcl_In
204e0 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
204f0 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
20500 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
20510 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
20520 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c d */. int objc,
20530 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
20540 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
20550 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 ents */. Tcl_Ob
20560 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 j *CONST objv[]
20570 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 /* Command argu
20580 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e ments */.){. in
20590 74 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 74 t rc = sqlite3_t
205a0 65 73 74 5f 63 6f 6e 74 72 6f 6c 28 39 39 39 39 est_control(9999
205b0 29 3b 0a 20 20 61 73 73 65 72 74 28 20 72 63 3d );. assert( rc=
205c0 3d 30 20 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c =0 );. rc = sql
205d0 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f ite3_test_contro
205e0 6c 28 2d 31 29 3b 0a 20 20 61 73 73 65 72 74 28 l(-1);. assert(
205f0 20 72 63 3d 3d 30 20 29 3b 0a 20 20 73 71 6c 69 rc==0 );. sqli
20600 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c te3_test_control
20610 28 53 51 4c 49 54 45 5f 54 45 53 54 43 54 52 4c (SQLITE_TESTCTRL
20620 5f 50 52 4e 47 5f 53 41 56 45 29 3b 0a 20 20 72 _PRNG_SAVE);. r
20630 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
20640 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 72 /*.** tclcmd: r
20650 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73 74 61 74 estore_prng_stat
20660 65 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 e.*/.static int
20670 72 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73 74 61 restore_prng_sta
20680 74 65 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 te(. ClientData
20690 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 clientData, /*
206a0 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 Pointer to sqlit
206b0 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 e3_enable_XXX fu
206c0 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f nction */. Tcl_
206d0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
206e0 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
206f0 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
20700 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
20710 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a and */. int obj
20720 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
20730 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
20740 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f uments */. Tcl_
20750 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
20760 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 ] /* Command ar
20770 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 guments */.){.
20780 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e sqlite3_test_con
20790 74 72 6f 6c 28 53 51 4c 49 54 45 5f 54 45 53 54 trol(SQLITE_TEST
207a0 43 54 52 4c 5f 50 52 4e 47 5f 52 45 53 54 4f 52 CTRL_PRNG_RESTOR
207b0 45 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c E);. return TCL
207c0 5f 4f 4b 3b 0a 7d 0a 2f 2a 0a 2a 2a 20 74 63 6c _OK;.}./*.** tcl
207d0 63 6d 64 3a 20 20 72 65 73 65 74 5f 70 72 6e 67 cmd: reset_prng
207e0 5f 73 74 61 74 65 0a 2a 2f 0a 73 74 61 74 69 63 _state.*/.static
207f0 20 69 6e 74 20 72 65 73 65 74 5f 70 72 6e 67 5f int reset_prng_
20800 73 74 61 74 65 28 0a 20 20 43 6c 69 65 6e 74 44 state(. ClientD
20810 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
20820 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 /* Pointer to sq
20830 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 lite3_enable_XXX
20840 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 function */. T
20850 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
20860 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
20870 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
20880 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
20890 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
208a0 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 objc,
208b0 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
208c0 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 arguments */. T
208d0 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
208e0 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 jv[] /* Command
208f0 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b arguments */.){
20900 0a 20 20 73 71 6c 69 74 65 33 5f 74 65 73 74 5f . sqlite3_test_
20910 63 6f 6e 74 72 6f 6c 28 53 51 4c 49 54 45 5f 54 control(SQLITE_T
20920 45 53 54 43 54 52 4c 5f 50 52 4e 47 5f 52 45 53 ESTCTRL_PRNG_RES
20930 45 54 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 ET);. return TC
20940 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 L_OK;.}../*.** t
20950 63 6c 63 6d 64 3a 20 20 70 63 61 63 68 65 5f 73 clcmd: pcache_s
20960 74 61 74 73 0a 2a 2f 0a 73 74 61 74 69 63 20 69 tats.*/.static i
20970 6e 74 20 74 65 73 74 5f 70 63 61 63 68 65 5f 73 nt test_pcache_s
20980 74 61 74 73 28 0a 20 20 43 6c 69 65 6e 74 44 61 tats(. ClientDa
20990 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f ta clientData, /
209a0 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c * Pointer to sql
209b0 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 ite3_enable_XXX
209c0 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 function */. Tc
209d0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
209e0 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
209f0 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
20a00 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
20a10 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f mmand */. int o
20a20 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 bjc,
20a30 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
20a40 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 rguments */. Tc
20a50 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
20a60 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 v[] /* Command
20a70 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a arguments */.){.
20a80 20 20 69 6e 74 20 6e 4d 69 6e 3b 0a 20 20 69 6e int nMin;. in
20a90 74 20 6e 4d 61 78 3b 0a 20 20 69 6e 74 20 6e 43 t nMax;. int nC
20aa0 75 72 72 65 6e 74 3b 0a 20 20 69 6e 74 20 6e 52 urrent;. int nR
20ab0 65 63 79 63 6c 61 62 6c 65 3b 0a 20 20 54 63 6c ecyclable;. Tcl
20ac0 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a 0a 20 20 73 _Obj *pRet;.. s
20ad0 71 6c 69 74 65 33 50 63 61 63 68 65 53 74 61 74 qlite3PcacheStat
20ae0 73 28 26 6e 43 75 72 72 65 6e 74 2c 20 26 6e 4d s(&nCurrent, &nM
20af0 61 78 2c 20 26 6e 4d 69 6e 2c 20 26 6e 52 65 63 ax, &nMin, &nRec
20b00 79 63 6c 61 62 6c 65 29 3b 0a 0a 20 20 70 52 65 yclable);.. pRe
20b10 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 t = Tcl_NewObj()
20b20 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 ;. Tcl_ListObjA
20b30 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
20b40 65 72 70 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e erp, pRet, Tcl_N
20b50 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 75 72 ewStringObj("cur
20b60 72 65 6e 74 22 2c 20 2d 31 29 29 3b 0a 20 20 54 rent", -1));. T
20b70 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
20b80 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
20b90 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 pRet, Tcl_NewInt
20ba0 4f 62 6a 28 6e 43 75 72 72 65 6e 74 29 29 3b 0a Obj(nCurrent));.
20bb0 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
20bc0 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
20bd0 70 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 p, pRet, Tcl_New
20be0 53 74 72 69 6e 67 4f 62 6a 28 22 6d 61 78 22 2c StringObj("max",
20bf0 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 -1));. Tcl_Lis
20c00 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
20c10 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 t(interp, pRet,
20c20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e 4d Tcl_NewIntObj(nM
20c30 61 78 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 ax));. Tcl_List
20c40 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
20c50 28 69 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 54 (interp, pRet, T
20c60 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
20c70 22 6d 69 6e 22 2c 20 2d 31 29 29 3b 0a 20 20 54 "min", -1));. T
20c80 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
20c90 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
20ca0 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 pRet, Tcl_NewInt
20cb0 4f 62 6a 28 6e 4d 69 6e 29 29 3b 0a 20 20 54 63 Obj(nMin));. Tc
20cc0 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
20cd0 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 lement(interp, p
20ce0 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Ret, Tcl_NewStri
20cf0 6e 67 4f 62 6a 28 22 72 65 63 79 63 6c 61 62 6c ngObj("recyclabl
20d00 65 22 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f e", -1));. Tcl_
20d10 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
20d20 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 52 65 ment(interp, pRe
20d30 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a t, Tcl_NewIntObj
20d40 28 6e 52 65 63 79 63 6c 61 62 6c 65 29 29 3b 0a (nRecyclable));.
20d50 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 . Tcl_SetObjRes
20d60 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 ult(interp, pRet
20d70 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c );.. return TCL
20d80 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52 _OK;.}.../*.** R
20d90 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73 egister commands
20da0 20 77 69 74 68 20 74 68 65 20 54 43 4c 20 69 6e with the TCL in
20db0 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e terpreter..*/.in
20dc0 74 20 53 71 6c 69 74 65 74 65 73 74 31 5f 49 6e t Sqlitetest1_In
20dd0 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 it(Tcl_Interp *i
20de0 6e 74 65 72 70 29 7b 0a 20 20 65 78 74 65 72 6e nterp){. extern
20df0 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 73 65 61 int sqlite3_sea
20e00 72 63 68 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 rch_count;. ext
20e10 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
20e20 69 6e 74 65 72 72 75 70 74 5f 63 6f 75 6e 74 3b interrupt_count;
20e30 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
20e40 6c 69 74 65 33 5f 6f 70 65 6e 5f 66 69 6c 65 5f lite3_open_file_
20e50 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 count;. extern
20e60 69 6e 74 20 73 71 6c 69 74 65 33 5f 73 6f 72 74 int sqlite3_sort
20e70 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 6e _count;. extern
20e80 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 63 75 72 int sqlite3_cur
20e90 72 65 6e 74 5f 74 69 6d 65 3b 0a 23 69 66 20 53 rent_time;.#if S
20ea0 51 4c 49 54 45 5f 4f 53 5f 55 4e 49 58 0a 20 20 QLITE_OS_UNIX.
20eb0 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
20ec0 65 33 5f 68 6f 73 74 69 64 5f 6e 75 6d 3b 0a 23 e3_hostid_num;.#
20ed0 65 6e 64 69 66 0a 20 20 65 78 74 65 72 6e 20 69 endif. extern i
20ee0 6e 74 20 73 71 6c 69 74 65 33 5f 6d 61 78 5f 62 nt sqlite3_max_b
20ef0 6c 6f 62 73 69 7a 65 3b 0a 20 20 65 78 74 65 72 lobsize;. exter
20f00 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 42 74 72 n int sqlite3Btr
20f10 65 65 53 68 61 72 65 64 43 61 63 68 65 52 65 70 eeSharedCacheRep
20f20 6f 72 74 28 76 6f 69 64 2a 2c 0a 20 20 20 20 20 ort(void*,.
20f30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20f50 20 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 2a Tcl_Interp*
20f60 2c 69 6e 74 2c 54 63 6c 5f 4f 62 6a 2a 43 4f 4e ,int,Tcl_Obj*CON
20f70 53 54 2a 29 3b 0a 20 20 73 74 61 74 69 63 20 73 ST*);. static s
20f80 74 72 75 63 74 20 7b 0a 20 20 20 20 20 63 68 61 truct {. cha
20f90 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 54 r *zName;. T
20fa0 63 6c 5f 43 6d 64 50 72 6f 63 20 2a 78 50 72 6f cl_CmdProc *xPro
20fb0 63 3b 0a 20 20 7d 20 61 43 6d 64 5b 5d 20 3d 20 c;. } aCmd[] =
20fc0 7b 0a 20 20 20 20 20 7b 20 22 64 62 5f 65 6e 74 {. { "db_ent
20fd0 65 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 er",
20fe0 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 (Tcl_C
20ff0 6d 64 50 72 6f 63 2a 29 64 62 5f 65 6e 74 65 72 mdProc*)db_enter
21000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
21010 2c 0a 20 20 20 20 20 7b 20 22 64 62 5f 6c 65 61 ,. { "db_lea
21020 76 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 ve",
21030 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 (Tcl_C
21040 6d 64 50 72 6f 63 2a 29 64 62 5f 6c 65 61 76 65 mdProc*)db_leave
21050 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
21060 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
21070 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 22 2c 20 3_mprintf_int",
21080 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 (Tcl_C
21090 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f mdProc*)sqlite3_
210a0 6d 70 72 69 6e 74 66 5f 69 6e 74 20 20 20 20 7d mprintf_int }
210b0 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
210c0 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 36 34 22 3_mprintf_int64"
210d0 2c 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 , (Tcl_C
210e0 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f mdProc*)sqlite3_
210f0 6d 70 72 69 6e 74 66 5f 69 6e 74 36 34 20 20 7d mprintf_int64 }
21100 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
21110 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 22 2c 20 3_mprintf_str",
21120 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 (Tcl_C
21130 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f mdProc*)sqlite3_
21140 6d 70 72 69 6e 74 66 5f 73 74 72 20 20 20 20 7d mprintf_str }
21150 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
21160 33 5f 73 6e 70 72 69 6e 74 66 5f 73 74 72 22 2c 3_snprintf_str",
21170 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 (Tcl_C
21180 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f mdProc*)sqlite3_
21190 73 6e 70 72 69 6e 74 66 5f 73 74 72 20 20 20 7d snprintf_str }
211a0 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
211b0 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 6f 6e 6c 3_mprintf_stronl
211c0 79 22 2c 20 20 20 20 20 20 20 28 54 63 6c 5f 43 y", (Tcl_C
211d0 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f mdProc*)sqlite3_
211e0 6d 70 72 69 6e 74 66 5f 73 74 72 6f 6e 6c 79 7d mprintf_stronly}
211f0 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
21200 33 5f 6d 70 72 69 6e 74 66 5f 64 6f 75 62 6c 65 3_mprintf_double
21210 22 2c 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 ", (Tcl_C
21220 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f mdProc*)sqlite3_
21230 6d 70 72 69 6e 74 66 5f 64 6f 75 62 6c 65 20 7d mprintf_double }
21240 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
21250 33 5f 6d 70 72 69 6e 74 66 5f 73 63 61 6c 65 64 3_mprintf_scaled
21260 22 2c 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 ", (Tcl_C
21270 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f mdProc*)sqlite3_
21280 6d 70 72 69 6e 74 66 5f 73 63 61 6c 65 64 20 7d mprintf_scaled }
21290 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
212a0 33 5f 6d 70 72 69 6e 74 66 5f 68 65 78 64 6f 75 3_mprintf_hexdou
212b0 62 6c 65 22 2c 20 20 20 28 54 63 6c 5f 43 6d 64 ble", (Tcl_Cmd
212c0 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 Proc*)sqlite3_mp
212d0 72 69 6e 74 66 5f 68 65 78 64 6f 75 62 6c 65 7d rintf_hexdouble}
212e0 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
212f0 33 5f 6d 70 72 69 6e 74 66 5f 7a 5f 74 65 73 74 3_mprintf_z_test
21300 22 2c 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 ", (Tcl_C
21310 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 6d 70 72 mdProc*)test_mpr
21320 69 6e 74 66 5f 7a 20 20 20 20 20 20 20 20 7d 2c intf_z },
21330 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
21340 5f 6d 70 72 69 6e 74 66 5f 6e 5f 74 65 73 74 22 _mprintf_n_test"
21350 2c 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d , (Tcl_Cm
21360 64 50 72 6f 63 2a 29 74 65 73 74 5f 6d 70 72 69 dProc*)test_mpri
21370 6e 74 66 5f 6e 20 20 20 20 20 20 20 20 7d 2c 0a ntf_n },.
21380 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
21390 73 6e 70 72 69 6e 74 66 5f 69 6e 74 22 2c 20 20 snprintf_int",
213a0 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
213b0 50 72 6f 63 2a 29 74 65 73 74 5f 73 6e 70 72 69 Proc*)test_snpri
213c0 6e 74 66 5f 69 6e 74 20 20 20 20 20 7d 2c 0a 20 ntf_int },.
213d0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6c { "sqlite3_l
213e0 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 ast_insert_rowid
213f0 22 2c 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 ", (Tcl_CmdP
21400 72 6f 63 2a 29 74 65 73 74 5f 6c 61 73 74 5f 72 roc*)test_last_r
21410 6f 77 69 64 20 20 20 20 20 20 20 7d 2c 0a 20 20 owid },.
21420 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 78 { "sqlite3_ex
21430 65 63 5f 70 72 69 6e 74 66 22 2c 20 20 20 20 20 ec_printf",
21440 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
21450 6f 63 2a 29 74 65 73 74 5f 65 78 65 63 5f 70 72 oc*)test_exec_pr
21460 69 6e 74 66 20 20 20 20 20 20 7d 2c 0a 20 20 20 intf },.
21470 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 78 65 { "sqlite3_exe
21480 63 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 c",
21490 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f (Tcl_CmdPro
214a0 63 2a 29 74 65 73 74 5f 65 78 65 63 20 20 20 20 c*)test_exec
214b0 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
214c0 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 78 65 63 { "sqlite3_exec
214d0 5f 6e 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 _nr",
214e0 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 (Tcl_CmdProc
214f0 2a 29 74 65 73 74 5f 65 78 65 63 5f 6e 72 20 20 *)test_exec_nr
21500 20 20 20 20 20 20 20 20 7d 2c 0a 23 69 66 6e 64 },.#ifnd
21510 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 47 ef SQLITE_OMIT_G
21520 45 54 5f 54 41 42 4c 45 0a 20 20 20 20 20 7b 20 ET_TABLE. {
21530 22 73 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 62 "sqlite3_get_tab
21540 6c 65 5f 70 72 69 6e 74 66 22 2c 20 20 20 20 20 le_printf",
21550 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 (Tcl_CmdProc*)t
21560 65 73 74 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 est_get_table_pr
21570 69 6e 74 66 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 intf },.#endif.
21580 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 { "sqlite3_c
21590 6c 6f 73 65 22 2c 20 20 20 20 20 20 20 20 20 20 lose",
215a0 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
215b0 72 6f 63 2a 29 73 71 6c 69 74 65 5f 74 65 73 74 roc*)sqlite_test
215c0 5f 63 6c 6f 73 65 20 20 20 20 20 7d 2c 0a 20 20 _close },.
215d0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 72 { "sqlite3_cr
215e0 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 eate_function",
215f0 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
21600 6f 63 2a 29 74 65 73 74 5f 63 72 65 61 74 65 5f oc*)test_create_
21610 66 75 6e 63 74 69 6f 6e 20 20 7d 2c 0a 20 20 20 function },.
21620 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 72 65 { "sqlite3_cre
21630 61 74 65 5f 61 67 67 72 65 67 61 74 65 22 2c 20 ate_aggregate",
21640 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f (Tcl_CmdPro
21650 63 2a 29 74 65 73 74 5f 63 72 65 61 74 65 5f 61 c*)test_create_a
21660 67 67 72 65 67 61 74 65 20 7d 2c 0a 20 20 20 20 ggregate },.
21670 20 7b 20 22 73 71 6c 69 74 65 5f 72 65 67 69 73 { "sqlite_regis
21680 74 65 72 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f ter_test_functio
21690 6e 22 2c 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 n", (Tcl_CmdProc
216a0 2a 29 74 65 73 74 5f 72 65 67 69 73 74 65 72 5f *)test_register_
216b0 66 75 6e 63 20 20 20 20 7d 2c 0a 20 20 20 20 20 func },.
216c0 7b 20 22 73 71 6c 69 74 65 5f 61 62 6f 72 74 22 { "sqlite_abort"
216d0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
216e0 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
216f0 29 73 71 6c 69 74 65 5f 61 62 6f 72 74 20 20 20 )sqlite_abort
21700 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b },. {
21710 20 22 73 71 6c 69 74 65 5f 62 69 6e 64 22 2c 20 "sqlite_bind",
21720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21730 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
21740 74 65 73 74 5f 62 69 6e 64 20 20 20 20 20 20 20 test_bind
21750 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 },. {
21760 22 62 72 65 61 6b 70 6f 69 6e 74 22 2c 20 20 20 "breakpoint",
21770 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21780 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 (Tcl_CmdProc*)t
21790 65 73 74 5f 62 72 65 61 6b 70 6f 69 6e 74 20 20 est_breakpoint
217a0 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 },. { "
217b0 73 71 6c 69 74 65 33 5f 6b 65 79 22 2c 20 20 20 sqlite3_key",
217c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
217d0 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 (Tcl_CmdProc*)te
217e0 73 74 5f 6b 65 79 20 20 20 20 20 20 20 20 20 20 st_key
217f0 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
21800 71 6c 69 74 65 33 5f 72 65 6b 65 79 22 2c 20 20 qlite3_rekey",
21810 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
21820 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 Tcl_CmdProc*)tes
21830 74 5f 72 65 6b 65 79 20 20 20 20 20 20 20 20 20 t_rekey
21840 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 },. { "sq
21850 6c 69 74 65 5f 73 65 74 5f 6d 61 67 69 63 22 2c lite_set_magic",
21860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 (T
21870 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 cl_CmdProc*)sqli
21880 74 65 5f 73 65 74 5f 6d 61 67 69 63 20 20 20 20 te_set_magic
21890 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c },. { "sql
218a0 69 74 65 33 5f 69 6e 74 65 72 72 75 70 74 22 2c ite3_interrupt",
218b0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
218c0 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
218d0 69 6e 74 65 72 72 75 70 74 20 20 20 20 20 20 20 interrupt
218e0 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
218f0 74 65 5f 64 65 6c 65 74 65 5f 66 75 6e 63 74 69 te_delete_functi
21900 6f 6e 22 2c 20 20 20 20 20 20 20 20 28 54 63 6c on", (Tcl
21910 5f 43 6d 64 50 72 6f 63 2a 29 64 65 6c 65 74 65 _CmdProc*)delete
21920 5f 66 75 6e 63 74 69 6f 6e 20 20 20 20 20 20 20 _function
21930 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
21940 65 5f 64 65 6c 65 74 65 5f 63 6f 6c 6c 61 74 69 e_delete_collati
21950 6f 6e 22 2c 20 20 20 20 20 20 20 28 54 63 6c 5f on", (Tcl_
21960 43 6d 64 50 72 6f 63 2a 29 64 65 6c 65 74 65 5f CmdProc*)delete_
21970 63 6f 6c 6c 61 74 69 6f 6e 20 20 20 20 20 20 7d collation }
21980 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
21990 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 3_get_autocommit
219a0 22 2c 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 ", (Tcl_C
219b0 6d 64 50 72 6f 63 2a 29 67 65 74 5f 61 75 74 6f mdProc*)get_auto
219c0 63 6f 6d 6d 69 74 20 20 20 20 20 20 20 20 7d 2c commit },
219d0 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
219e0 5f 73 74 61 63 6b 5f 75 73 65 64 22 2c 20 20 20 _stack_used",
219f0 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d (Tcl_Cm
21a00 64 50 72 6f 63 2a 29 74 65 73 74 5f 73 74 61 63 dProc*)test_stac
21a10 6b 5f 75 73 65 64 20 20 20 20 20 20 20 7d 2c 0a k_used },.
21a20 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
21a30 62 75 73 79 5f 74 69 6d 65 6f 75 74 22 2c 20 20 busy_timeout",
21a40 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
21a50 50 72 6f 63 2a 29 74 65 73 74 5f 62 75 73 79 5f Proc*)test_busy_
21a60 74 69 6d 65 6f 75 74 20 20 20 20 20 7d 2c 0a 20 timeout },.
21a70 20 20 20 20 7b 20 22 70 72 69 6e 74 66 22 2c 20 { "printf",
21a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21a90 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
21aa0 72 6f 63 2a 29 74 65 73 74 5f 70 72 69 6e 74 66 roc*)test_printf
21ab0 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
21ac0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 49 6f 54 { "sqlite3IoT
21ad0 72 61 63 65 22 2c 20 20 20 20 20 20 20 20 20 20 race",
21ae0 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 (Tcl_CmdProc
21af0 2a 29 74 65 73 74 5f 69 6f 5f 74 72 61 63 65 20 *)test_io_trace
21b00 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 7d 3b 0a },. };.
21b10 20 20 73 74 61 74 69 63 20 73 74 72 75 63 74 20 static struct
21b20 7b 0a 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 {. char *zNa
21b30 6d 65 3b 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a me;. Tcl_Obj
21b40 43 6d 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a CmdProc *xProc;.
21b50 20 20 20 20 20 76 6f 69 64 20 2a 63 6c 69 65 6e void *clien
21b60 74 44 61 74 61 3b 0a 20 20 7d 20 61 4f 62 6a 43 tData;. } aObjC
21b70 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 7b 20 md[] = {. {
21b80 22 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 "sqlite3_connect
21b90 69 6f 6e 5f 70 6f 69 6e 74 65 72 22 2c 20 20 20 ion_pointer",
21ba0 20 67 65 74 5f 73 71 6c 69 74 65 5f 70 6f 69 6e get_sqlite_poin
21bb0 74 65 72 2c 20 30 20 7d 2c 0a 20 20 20 20 20 7b ter, 0 },. {
21bc0 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 "sqlite3_bind_i
21bd0 6e 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 nt",
21be0 20 20 74 65 73 74 5f 62 69 6e 64 5f 69 6e 74 2c test_bind_int,
21bf0 20 20 20 20 20 20 30 20 7d 2c 0a 20 20 20 20 20 0 },.
21c00 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f { "sqlite3_bind_
21c10 7a 65 72 6f 62 6c 6f 62 22 2c 20 20 20 20 20 20 zeroblob",
21c20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 7a 65 72 test_bind_zer
21c30 6f 62 6c 6f 62 2c 20 30 20 7d 2c 0a 20 20 20 20 oblob, 0 },.
21c40 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 { "sqlite3_bind
21c50 5f 69 6e 74 36 34 22 2c 20 20 20 20 20 20 20 20 _int64",
21c60 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 69 6e test_bind_in
21c70 74 36 34 2c 20 20 20 20 30 20 7d 2c 0a 20 20 20 t64, 0 },.
21c80 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e { "sqlite3_bin
21c90 64 5f 64 6f 75 62 6c 65 22 2c 20 20 20 20 20 20 d_double",
21ca0 20 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 64 test_bind_d
21cb0 6f 75 62 6c 65 2c 20 20 20 30 20 7d 2c 0a 20 20 ouble, 0 },.
21cc0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 { "sqlite3_bi
21cd0 6e 64 5f 6e 75 6c 6c 22 2c 20 20 20 20 20 20 20 nd_null",
21ce0 20 20 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f test_bind_
21cf0 6e 75 6c 6c 20 20 20 20 20 2c 30 20 7d 2c 0a 20 null ,0 },.
21d00 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 { "sqlite3_b
21d10 69 6e 64 5f 74 65 78 74 22 2c 20 20 20 20 20 20 ind_text",
21d20 20 20 20 20 20 20 20 74 65 73 74 5f 62 69 6e 64 test_bind
21d30 5f 74 65 78 74 20 20 20 20 20 2c 30 20 7d 2c 0a _text ,0 },.
21d40 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
21d50 62 69 6e 64 5f 74 65 78 74 31 36 22 2c 20 20 20 bind_text16",
21d60 20 20 20 20 20 20 20 20 74 65 73 74 5f 62 69 6e test_bin
21d70 64 5f 74 65 78 74 31 36 20 20 20 2c 30 20 7d 2c d_text16 ,0 },
21d80 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
21d90 5f 62 69 6e 64 5f 62 6c 6f 62 22 2c 20 20 20 20 _bind_blob",
21da0 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 62 69 test_bi
21db0 6e 64 5f 62 6c 6f 62 20 20 20 20 20 2c 30 20 7d nd_blob ,0 }
21dc0 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
21dd0 33 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 3_bind_parameter
21de0 5f 63 6f 75 6e 74 22 2c 20 20 74 65 73 74 5f 62 _count", test_b
21df0 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 63 6f ind_parameter_co
21e00 75 6e 74 2c 20 30 7d 2c 0a 20 20 20 20 20 7b 20 unt, 0},. {
21e10 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 "sqlite3_bind_pa
21e20 72 61 6d 65 74 65 72 5f 6e 61 6d 65 22 2c 20 20 rameter_name",
21e30 20 74 65 73 74 5f 62 69 6e 64 5f 70 61 72 61 6d test_bind_param
21e40 65 74 65 72 5f 6e 61 6d 65 2c 20 20 30 7d 2c 0a eter_name, 0},.
21e50 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
21e60 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 69 bind_parameter_i
21e70 6e 64 65 78 22 2c 20 20 74 65 73 74 5f 62 69 6e ndex", test_bin
21e80 64 5f 70 61 72 61 6d 65 74 65 72 5f 69 6e 64 65 d_parameter_inde
21e90 78 2c 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 x, 0},. { "s
21ea0 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f 62 69 6e qlite3_clear_bin
21eb0 64 69 6e 67 73 22 2c 20 20 20 20 20 20 20 20 74 dings", t
21ec0 65 73 74 5f 63 6c 65 61 72 5f 62 69 6e 64 69 6e est_clear_bindin
21ed0 67 73 2c 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 gs, 0},. { "
21ee0 73 71 6c 69 74 65 33 5f 73 6c 65 65 70 22 2c 20 sqlite3_sleep",
21ef0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21f00 74 65 73 74 5f 73 6c 65 65 70 2c 20 20 20 20 20 test_sleep,
21f10 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 20 7b 20 0},. {
21f20 22 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 "sqlite3_errcode
21f30 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
21f40 20 74 65 73 74 5f 65 72 72 63 6f 64 65 20 20 20 test_errcode
21f50 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b ,0 },. {
21f60 20 22 73 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 "sqlite3_extend
21f70 65 64 5f 65 72 72 63 6f 64 65 22 2c 20 20 20 20 ed_errcode",
21f80 20 20 74 65 73 74 5f 65 78 5f 65 72 72 63 6f 64 test_ex_errcod
21f90 65 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 e ,0 },.
21fa0 7b 20 22 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 { "sqlite3_errms
21fb0 67 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 g",
21fc0 20 20 20 74 65 73 74 5f 65 72 72 6d 73 67 20 20 test_errmsg
21fd0 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 ,0 },.
21fe0 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 72 72 6d { "sqlite3_errm
21ff0 73 67 31 36 22 2c 20 20 20 20 20 20 20 20 20 20 sg16",
22000 20 20 20 20 74 65 73 74 5f 65 72 72 6d 73 67 31 test_errmsg1
22010 36 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 6 ,0 },.
22020 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6f 70 65 { "sqlite3_ope
22030 6e 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 n",
22040 20 20 20 20 20 74 65 73 74 5f 6f 70 65 6e 20 20 test_open
22050 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 ,0 },.
22060 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6f 70 { "sqlite3_op
22070 65 6e 31 36 22 2c 20 20 20 20 20 20 20 20 20 20 en16",
22080 20 20 20 20 20 20 74 65 73 74 5f 6f 70 65 6e 31 test_open1
22090 36 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 6 ,0 },.
220a0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 { "sqlite3_c
220b0 6f 6d 70 6c 65 74 65 31 36 22 2c 20 20 20 20 20 omplete16",
220c0 20 20 20 20 20 20 20 74 65 73 74 5f 63 6f 6d 70 test_comp
220d0 6c 65 74 65 31 36 20 20 20 20 2c 30 20 7d 2c 0a lete16 ,0 },.
220e0 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
220f0 5f 70 72 65 70 61 72 65 22 2c 20 20 20 20 20 20 _prepare",
22100 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 70 72 test_pr
22110 65 70 61 72 65 20 20 20 20 20 20 20 2c 30 20 7d epare ,0 }
22120 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
22130 33 5f 70 72 65 70 61 72 65 31 36 22 2c 20 20 20 3_prepare16",
22140 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 70 test_p
22150 72 65 70 61 72 65 31 36 20 20 20 20 20 2c 30 20 repare16 ,0
22160 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
22170 65 33 5f 70 72 65 70 61 72 65 5f 76 32 22 2c 20 e3_prepare_v2",
22180 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f test_
22190 70 72 65 70 61 72 65 5f 76 32 20 20 20 20 2c 30 prepare_v2 ,0
221a0 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
221b0 74 65 33 5f 70 72 65 70 61 72 65 5f 74 6b 74 33 te3_prepare_tkt3
221c0 31 33 34 22 2c 20 20 20 20 20 20 20 74 65 73 74 134", test
221d0 5f 70 72 65 70 61 72 65 5f 74 6b 74 33 31 33 34 _prepare_tkt3134
221e0 2c 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 , 0},. { "sq
221f0 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 5f lite3_prepare16_
22200 76 32 22 2c 20 20 20 20 20 20 20 20 20 20 74 65 v2", te
22210 73 74 5f 70 72 65 70 61 72 65 31 36 5f 76 32 20 st_prepare16_v2
22220 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
22230 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 22 qlite3_finalize"
22240 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 , t
22250 65 73 74 5f 66 69 6e 61 6c 69 7a 65 20 20 20 20 est_finalize
22260 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
22270 73 71 6c 69 74 65 33 5f 73 74 6d 74 5f 73 74 61 sqlite3_stmt_sta
22280 74 75 73 22 2c 20 20 20 20 20 20 20 20 20 20 20 tus",
22290 74 65 73 74 5f 73 74 6d 74 5f 73 74 61 74 75 73 test_stmt_status
222a0 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
222b0 22 73 71 6c 69 74 65 33 5f 72 65 73 65 74 22 2c "sqlite3_reset",
222c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
222d0 20 74 65 73 74 5f 72 65 73 65 74 20 20 20 20 20 test_reset
222e0 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b ,0 },. {
222f0 20 22 73 71 6c 69 74 65 33 5f 65 78 70 69 72 65 "sqlite3_expire
22300 64 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 d",
22310 20 20 74 65 73 74 5f 65 78 70 69 72 65 64 20 20 test_expired
22320 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 ,0 },.
22330 7b 20 22 73 71 6c 69 74 65 33 5f 74 72 61 6e 73 { "sqlite3_trans
22340 66 65 72 5f 62 69 6e 64 69 6e 67 73 22 2c 20 20 fer_bindings",
22350 20 20 20 74 65 73 74 5f 74 72 61 6e 73 66 65 72 test_transfer
22360 5f 62 69 6e 64 20 2c 30 20 7d 2c 0a 20 20 20 20 _bind ,0 },.
22370 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 68 61 6e { "sqlite3_chan
22380 67 65 73 22 2c 20 20 20 20 20 20 20 20 20 20 20 ges",
22390 20 20 20 20 74 65 73 74 5f 63 68 61 6e 67 65 73 test_changes
223a0 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 ,0 },.
223b0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 74 65 { "sqlite3_ste
223c0 70 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 p",
223d0 20 20 20 20 20 74 65 73 74 5f 73 74 65 70 20 20 test_step
223e0 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 ,0 },.
223f0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6e 65 { "sqlite3_ne
22400 78 74 5f 73 74 6d 74 22 2c 20 20 20 20 20 20 20 xt_stmt",
22410 20 20 20 20 20 20 74 65 73 74 5f 6e 65 78 74 5f test_next_
22420 73 74 6d 74 20 20 20 20 20 2c 30 20 7d 2c 0a 0a stmt ,0 },..
22430 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
22440 72 65 6c 65 61 73 65 5f 6d 65 6d 6f 72 79 22 2c release_memory",
22450 20 20 20 20 20 20 20 20 74 65 73 74 5f 72 65 6c test_rel
22460 65 61 73 65 5f 6d 65 6d 6f 72 79 2c 20 20 20 20 ease_memory,
22470 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0},. { "sql
22480 69 74 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c ite3_soft_heap_l
22490 69 6d 69 74 22 2c 20 20 20 20 20 20 20 74 65 73 imit", tes
224a0 74 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 t_soft_heap_limi
224b0 74 2c 20 20 20 20 30 7d 2c 0a 20 20 20 20 20 7b t, 0},. {
224c0 20 22 73 71 6c 69 74 65 33 5f 74 68 72 65 61 64 "sqlite3_thread
224d0 5f 63 6c 65 61 6e 75 70 22 2c 20 20 20 20 20 20 _cleanup",
224e0 20 20 74 65 73 74 5f 74 68 72 65 61 64 5f 63 6c test_thread_cl
224f0 65 61 6e 75 70 2c 20 20 20 20 20 30 7d 2c 0a 20 eanup, 0},.
22500 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 70 { "sqlite3_p
22510 61 67 65 72 5f 72 65 66 63 6f 75 6e 74 73 22 2c ager_refcounts",
22520 20 20 20 20 20 20 20 74 65 73 74 5f 70 61 67 65 test_page
22530 72 5f 72 65 66 63 6f 75 6e 74 73 2c 20 20 20 20 r_refcounts,
22540 30 7d 2c 0a 0a 20 20 20 20 20 7b 20 22 73 71 6c 0},.. { "sql
22550 69 74 65 33 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 ite3_load_extens
22560 69 6f 6e 22 2c 20 20 20 20 20 20 20 20 74 65 73 ion", tes
22570 74 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e t_load_extension
22580 2c 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 20 7b , 0},. {
22590 20 22 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 "sqlite3_enable
225a0 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 22 _load_extension"
225b0 2c 20 74 65 73 74 5f 65 6e 61 62 6c 65 5f 6c 6f , test_enable_lo
225c0 61 64 2c 20 20 20 20 20 20 20 20 30 7d 2c 0a 20 ad, 0},.
225d0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 { "sqlite3_e
225e0 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 xtended_result_c
225f0 6f 64 65 73 22 2c 20 74 65 73 74 5f 65 78 74 65 odes", test_exte
22600 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 nded_result_code
22610 73 2c 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 s, 0},. { "s
22620 71 6c 69 74 65 33 5f 6c 69 6d 69 74 22 2c 20 20 qlite3_limit",
22630 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
22640 65 73 74 5f 6c 69 6d 69 74 2c 20 20 20 20 20 20 est_limit,
22650 20 20 20 20 20 20 20 20 20 20 20 30 7d 2c 0a 0a 0},..
22660 20 20 20 20 20 7b 20 22 73 61 76 65 5f 70 72 6e { "save_prn
22670 67 5f 73 74 61 74 65 22 2c 20 20 20 20 20 20 20 g_state",
22680 20 20 20 20 20 20 20 20 73 61 76 65 5f 70 72 6e save_prn
22690 67 5f 73 74 61 74 65 2c 20 20 20 20 30 20 7d 2c g_state, 0 },
226a0 0a 20 20 20 20 20 7b 20 22 72 65 73 74 6f 72 65 . { "restore
226b0 5f 70 72 6e 67 5f 73 74 61 74 65 22 2c 20 20 20 _prng_state",
226c0 20 20 20 20 20 20 20 20 20 72 65 73 74 6f 72 65 restore
226d0 5f 70 72 6e 67 5f 73 74 61 74 65 2c 20 30 20 7d _prng_state, 0 }
226e0 2c 0a 20 20 20 20 20 7b 20 22 72 65 73 65 74 5f ,. { "reset_
226f0 70 72 6e 67 5f 73 74 61 74 65 22 2c 20 20 20 20 prng_state",
22700 20 20 20 20 20 20 20 20 20 20 72 65 73 65 74 5f reset_
22710 70 72 6e 67 5f 73 74 61 74 65 2c 20 20 20 30 20 prng_state, 0
22720 7d 2c 0a 0a 20 20 20 20 20 2f 2a 20 73 71 6c 69 },.. /* sqli
22730 74 65 33 5f 63 6f 6c 75 6d 6e 5f 2a 28 29 20 41 te3_column_*() A
22740 50 49 20 2a 2f 0a 20 20 20 20 20 7b 20 22 73 71 PI */. { "sq
22750 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 lite3_column_cou
22760 6e 74 22 2c 20 20 20 20 20 20 20 20 20 20 74 65 nt", te
22770 73 74 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 20 st_column_count
22780 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
22790 71 6c 69 74 65 33 5f 64 61 74 61 5f 63 6f 75 6e qlite3_data_coun
227a0 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 74 t", t
227b0 65 73 74 5f 64 61 74 61 5f 63 6f 75 6e 74 20 20 est_data_count
227c0 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
227d0 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 sqlite3_column_t
227e0 79 70 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 ype",
227f0 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 74 79 70 65 test_column_type
22800 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
22810 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f "sqlite3_column_
22820 62 6c 6f 62 22 2c 20 20 20 20 20 20 20 20 20 20 blob",
22830 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 62 6c 6f test_column_blo
22840 62 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b b ,0 },. {
22850 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e "sqlite3_column
22860 5f 64 6f 75 62 6c 65 22 2c 20 20 20 20 20 20 20 _double",
22870 20 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 64 6f test_column_do
22880 75 62 6c 65 20 2c 30 20 7d 2c 0a 20 20 20 20 20 uble ,0 },.
22890 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d { "sqlite3_colum
228a0 6e 5f 69 6e 74 36 34 22 2c 20 20 20 20 20 20 20 n_int64",
228b0 20 20 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 69 test_column_i
228c0 6e 74 36 34 20 20 2c 30 20 7d 2c 0a 20 20 20 20 nt64 ,0 },.
228d0 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 { "sqlite3_colu
228e0 6d 6e 5f 74 65 78 74 22 2c 20 20 20 74 65 73 74 mn_text", test
228f0 5f 73 74 6d 74 5f 75 74 66 38 2c 20 20 28 76 6f _stmt_utf8, (vo
22900 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 id*)sqlite3_colu
22910 6d 6e 5f 74 65 78 74 20 7d 2c 0a 20 20 20 20 20 mn_text },.
22920 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d { "sqlite3_colum
22930 6e 5f 6e 61 6d 65 22 2c 20 20 20 74 65 73 74 5f n_name", test_
22940 73 74 6d 74 5f 75 74 66 38 2c 20 20 28 76 6f 69 stmt_utf8, (voi
22950 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d d*)sqlite3_colum
22960 6e 5f 6e 61 6d 65 20 7d 2c 0a 20 20 20 20 20 7b n_name },. {
22970 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e "sqlite3_column
22980 5f 69 6e 74 22 2c 20 20 20 20 74 65 73 74 5f 73 _int", test_s
22990 74 6d 74 5f 69 6e 74 2c 20 20 20 28 76 6f 69 64 tmt_int, (void
229a0 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e *)sqlite3_column
229b0 5f 69 6e 74 20 20 7d 2c 0a 20 20 20 20 20 7b 20 _int },. {
229c0 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f "sqlite3_column_
229d0 62 79 74 65 73 22 2c 20 20 74 65 73 74 5f 73 74 bytes", test_st
229e0 6d 74 5f 69 6e 74 2c 20 20 20 28 76 6f 69 64 2a mt_int, (void*
229f0 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f )sqlite3_column_
22a00 62 79 74 65 73 7d 2c 0a 23 69 66 6e 64 65 66 20 bytes},.#ifndef
22a10 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 45 43 4c SQLITE_OMIT_DECL
22a20 54 59 50 45 0a 20 20 20 20 20 7b 20 22 73 71 6c TYPE. { "sql
22a30 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c ite3_column_decl
22a40 74 79 70 65 22 2c 74 65 73 74 5f 73 74 6d 74 5f type",test_stmt_
22a50 75 74 66 38 2c 28 76 6f 69 64 2a 29 73 71 6c 69 utf8,(void*)sqli
22a60 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 te3_column_declt
22a70 79 70 65 7d 2c 0a 23 65 6e 64 69 66 0a 23 69 66 ype},.#endif.#if
22a80 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c def SQLITE_ENABL
22a90 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 41 44 41 54 E_COLUMN_METADAT
22aa0 41 0a 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c A.{ "sqlite3_col
22ab0 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d umn_database_nam
22ac0 65 22 2c 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 e",test_stmt_utf
22ad0 38 2c 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 8,(void*)sqlite3
22ae0 5f 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 61 73 65 _column_database
22af0 5f 6e 61 6d 65 7d 2c 0a 7b 20 22 73 71 6c 69 74 _name},.{ "sqlit
22b00 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f e3_column_table_
22b10 6e 61 6d 65 22 2c 74 65 73 74 5f 73 74 6d 74 5f name",test_stmt_
22b20 75 74 66 38 2c 28 76 6f 69 64 2a 29 73 71 6c 69 utf8,(void*)sqli
22b30 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 te3_column_table
22b40 5f 6e 61 6d 65 7d 2c 0a 7b 20 22 73 71 6c 69 74 _name},.{ "sqlit
22b50 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e e3_column_origin
22b60 5f 6e 61 6d 65 22 2c 74 65 73 74 5f 73 74 6d 74 _name",test_stmt
22b70 5f 75 74 66 38 2c 28 76 6f 69 64 2a 29 73 71 6c _utf8,(void*)sql
22b80 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 ite3_column_orig
22b90 69 6e 5f 6e 61 6d 65 7d 2c 0a 23 65 6e 64 69 66 in_name},.#endif
22ba0 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 ..#ifndef SQLITE
22bb0 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 20 20 _OMIT_UTF16.
22bc0 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 { "sqlite3_colu
22bd0 6d 6e 5f 62 79 74 65 73 31 36 22 2c 20 74 65 73 mn_bytes16", tes
22be0 74 5f 73 74 6d 74 5f 69 6e 74 2c 20 28 76 6f 69 t_stmt_int, (voi
22bf0 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d d*)sqlite3_colum
22c00 6e 5f 62 79 74 65 73 31 36 20 7d 2c 0a 20 20 20 n_bytes16 },.
22c10 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c { "sqlite3_col
22c20 75 6d 6e 5f 74 65 78 74 31 36 22 2c 20 20 74 65 umn_text16", te
22c30 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c 20 28 st_stmt_utf16, (
22c40 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f void*)sqlite3_co
22c50 6c 75 6d 6e 5f 74 65 78 74 31 36 7d 2c 0a 20 20 lumn_text16},.
22c60 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f { "sqlite3_co
22c70 6c 75 6d 6e 5f 6e 61 6d 65 31 36 22 2c 20 20 74 lumn_name16", t
22c80 65 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c 20 est_stmt_utf16,
22c90 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 (void*)sqlite3_c
22ca0 6f 6c 75 6d 6e 5f 6e 61 6d 65 31 36 7d 2c 0a 20 olumn_name16},.
22cb0 20 20 20 20 7b 20 22 61 64 64 5f 61 6c 69 67 6e { "add_align
22cc0 6d 65 6e 74 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 ment_test_collat
22cd0 69 6f 6e 73 22 2c 20 61 64 64 5f 61 6c 69 67 6e ions", add_align
22ce0 6d 65 6e 74 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 ment_test_collat
22cf0 69 6f 6e 73 2c 20 30 20 20 20 20 20 20 7d 2c 0a ions, 0 },.
22d00 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
22d10 4d 49 54 5f 44 45 43 4c 54 59 50 45 0a 20 20 20 MIT_DECLTYPE.
22d20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c { "sqlite3_col
22d30 75 6d 6e 5f 64 65 63 6c 74 79 70 65 31 36 22 2c umn_decltype16",
22d40 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c test_stmt_utf16,
22d50 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 (void*)sqlite3_c
22d60 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 31 36 olumn_decltype16
22d70 7d 2c 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 },.#endif.#ifdef
22d80 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 43 SQLITE_ENABLE_C
22d90 4f 4c 55 4d 4e 5f 4d 45 54 41 44 41 54 41 0a 7b OLUMN_METADATA.{
22da0 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f "sqlite3_column_
22db0 64 61 74 61 62 61 73 65 5f 6e 61 6d 65 31 36 22 database_name16"
22dc0 2c 0a 20 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 ,. test_stmt_ut
22dd0 66 31 36 2c 20 73 71 6c 69 74 65 33 5f 63 6f 6c f16, sqlite3_col
22de0 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d umn_database_nam
22df0 65 31 36 7d 2c 0a 7b 22 73 71 6c 69 74 65 33 5f e16},.{"sqlite3_
22e00 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 61 6d column_table_nam
22e10 65 31 36 22 2c 20 74 65 73 74 5f 73 74 6d 74 5f e16", test_stmt_
22e20 75 74 66 31 36 2c 20 28 76 6f 69 64 2a 29 73 71 utf16, (void*)sq
22e30 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 lite3_column_tab
22e40 6c 65 5f 6e 61 6d 65 31 36 7d 2c 0a 7b 22 73 71 le_name16},.{"sq
22e50 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 lite3_column_ori
22e60 67 69 6e 5f 6e 61 6d 65 31 36 22 2c 20 74 65 73 gin_name16", tes
22e70 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c 20 28 76 t_stmt_utf16, (v
22e80 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c oid*)sqlite3_col
22e90 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 31 umn_origin_name1
22ea0 36 7d 2c 0a 23 65 6e 64 69 66 0a 23 65 6e 64 69 6},.#endif.#endi
22eb0 66 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 f. { "sqlite
22ec0 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 3_create_collati
22ed0 6f 6e 5f 76 32 22 2c 20 74 65 73 74 5f 63 72 65 on_v2", test_cre
22ee0 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 ate_collation_v2
22ef0 2c 20 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 , 0 },. { "s
22f00 71 6c 69 74 65 33 5f 67 6c 6f 62 61 6c 5f 72 65 qlite3_global_re
22f10 63 6f 76 65 72 22 2c 20 20 20 20 20 74 65 73 74 cover", test
22f20 5f 67 6c 6f 62 61 6c 5f 72 65 63 6f 76 65 72 2c _global_recover,
22f30 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 0 },. { "
22f40 77 6f 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e working_64bit_in
22f50 74 22 2c 20 20 20 20 20 20 20 20 20 20 77 6f 72 t", wor
22f60 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e 74 2c 20 king_64bit_int,
22f70 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 0 },. {
22f80 22 76 66 73 5f 75 6e 6c 69 6e 6b 5f 74 65 73 74 "vfs_unlink_test
22f90 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 76 66 ", vf
22fa0 73 5f 75 6e 6c 69 6e 6b 5f 74 65 73 74 2c 20 20 s_unlink_test,
22fb0 20 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 0 },. {
22fc0 20 22 76 66 73 5f 69 6e 69 74 66 61 69 6c 5f 74 "vfs_initfail_t
22fd0 65 73 74 22 2c 20 20 20 20 20 20 20 20 20 20 76 est", v
22fe0 66 73 5f 69 6e 69 74 66 61 69 6c 5f 74 65 73 74 fs_initfail_test
22ff0 2c 20 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 , 0 },.
23000 7b 20 22 76 66 73 5f 75 6e 72 65 67 69 73 74 65 { "vfs_unregiste
23010 72 5f 61 6c 6c 22 2c 20 20 20 20 20 20 20 20 20 r_all",
23020 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 5f 61 vfs_unregister_a
23030 6c 6c 2c 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 ll, 0 },.
23040 20 7b 20 22 76 66 73 5f 72 65 72 65 67 69 73 74 { "vfs_reregist
23050 65 72 5f 61 6c 6c 22 2c 20 20 20 20 20 20 20 20 er_all",
23060 20 76 66 73 5f 72 65 72 65 67 69 73 74 65 72 5f vfs_reregister_
23070 61 6c 6c 2c 20 20 30 20 20 20 7d 2c 0a 20 20 20 all, 0 },.
23080 20 20 7b 20 22 66 69 6c 65 5f 63 6f 6e 74 72 6f { "file_contro
23090 6c 5f 74 65 73 74 22 2c 20 20 20 20 20 20 20 20 l_test",
230a0 20 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 74 file_control_t
230b0 65 73 74 2c 20 20 20 30 20 20 20 7d 2c 0a 20 20 est, 0 },.
230c0 20 20 20 7b 20 22 66 69 6c 65 5f 63 6f 6e 74 72 { "file_contr
230d0 6f 6c 5f 6c 61 73 74 65 72 72 6e 6f 5f 74 65 73 ol_lasterrno_tes
230e0 74 22 2c 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c t", file_control
230f0 5f 6c 61 73 74 65 72 72 6e 6f 5f 74 65 73 74 2c _lasterrno_test,
23100 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 0 },. {
23110 22 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c 6f "file_control_lo
23120 63 6b 70 72 6f 78 79 5f 74 65 73 74 22 2c 20 66 ckproxy_test", f
23130 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c 6f 63 6b ile_control_lock
23140 70 72 6f 78 79 5f 74 65 73 74 2c 20 20 30 20 20 proxy_test, 0
23150 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
23160 74 65 33 5f 76 66 73 5f 6c 69 73 74 22 2c 20 20 te3_vfs_list",
23170 20 20 20 20 20 20 20 20 20 76 66 73 5f 6c 69 73 vfs_lis
23180 74 2c 20 20 20 20 20 30 20 20 20 7d 2c 0a 0a 20 t, 0 },..
23190 20 20 20 20 2f 2a 20 46 75 6e 63 74 69 6f 6e 73 /* Functions
231a0 20 66 72 6f 6d 20 6f 73 2e 68 20 2a 2f 0a 23 69 from os.h */.#i
231b0 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
231c0 54 5f 55 54 46 31 36 0a 20 20 20 20 20 7b 20 22 T_UTF16. { "
231d0 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 add_test_collate
231e0 22 2c 20 20 20 20 20 20 20 20 74 65 73 74 5f 63 ", test_c
231f0 6f 6c 6c 61 74 65 2c 20 30 20 20 20 20 20 20 20 ollate, 0
23200 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 },. { "
23210 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 add_test_collate
23220 5f 6e 65 65 64 65 64 22 2c 20 74 65 73 74 5f 63 _needed", test_c
23230 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 64 2c 20 30 ollate_needed, 0
23240 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 },. { "
23250 61 64 64 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f add_test_functio
23260 6e 22 2c 20 20 20 20 20 20 20 74 65 73 74 5f 66 n", test_f
23270 75 6e 63 74 69 6f 6e 2c 20 30 20 20 20 20 20 20 unction, 0
23280 20 20 20 20 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 },.#endif.
23290 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 74 { "sqlite3_t
232a0 65 73 74 5f 65 72 72 73 74 72 22 2c 20 20 20 20 est_errstr",
232b0 20 74 65 73 74 5f 65 72 72 73 74 72 2c 20 30 20 test_errstr, 0
232c0 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 },.
232d0 20 20 20 20 7b 20 22 74 63 6c 5f 76 61 72 69 61 { "tcl_varia
232e0 62 6c 65 5f 74 79 70 65 22 2c 20 20 20 20 20 20 ble_type",
232f0 20 74 63 6c 5f 76 61 72 69 61 62 6c 65 5f 74 79 tcl_variable_ty
23300 70 65 2c 20 30 20 20 20 20 20 20 20 7d 2c 0a 23 pe, 0 },.#
23310 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
23320 49 54 5f 53 48 41 52 45 44 5f 43 41 43 48 45 0a IT_SHARED_CACHE.
23330 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
23340 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 enable_shared_ca
23350 63 68 65 22 2c 20 74 65 73 74 5f 65 6e 61 62 6c che", test_enabl
23360 65 5f 73 68 61 72 65 64 2c 20 30 20 20 7d 2c 0a e_shared, 0 },.
23370 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
23380 73 68 61 72 65 64 5f 63 61 63 68 65 5f 72 65 70 shared_cache_rep
23390 6f 72 74 22 2c 20 73 71 6c 69 74 65 33 42 74 72 ort", sqlite3Btr
233a0 65 65 53 68 61 72 65 64 43 61 63 68 65 52 65 70 eeSharedCacheRep
233b0 6f 72 74 2c 20 30 7d 2c 0a 23 65 6e 64 69 66 0a ort, 0},.#endif.
233c0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
233d0 6c 69 62 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 libversion_numbe
233e0 72 22 2c 20 74 65 73 74 5f 6c 69 62 76 65 72 73 r", test_libvers
233f0 69 6f 6e 5f 6e 75 6d 62 65 72 2c 20 30 20 20 7d ion_number, 0 }
23400 2c 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ,.#ifdef SQLITE_
23410 45 4e 41 42 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 ENABLE_COLUMN_ME
23420 54 41 44 41 54 41 0a 20 20 20 20 20 7b 20 22 73 TADATA. { "s
23430 71 6c 69 74 65 33 5f 74 61 62 6c 65 5f 63 6f 6c qlite3_table_col
23440 75 6d 6e 5f 6d 65 74 61 64 61 74 61 22 2c 20 74 umn_metadata", t
23450 65 73 74 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e est_table_column
23460 5f 6d 65 74 61 64 61 74 61 2c 20 30 20 20 7d 2c _metadata, 0 },
23470 0a 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 .#endif.#ifndef
23480 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 49 4e 43 52 SQLITE_OMIT_INCR
23490 42 4c 4f 42 0a 20 20 20 20 20 7b 20 22 73 71 6c BLOB. { "sql
234a0 69 74 65 33 5f 62 6c 6f 62 5f 72 65 61 64 22 2c ite3_blob_read",
234b0 20 20 74 65 73 74 5f 62 6c 6f 62 5f 72 65 61 64 test_blob_read
234c0 2c 20 30 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 , 0 },. { "
234d0 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69 sqlite3_blob_wri
234e0 74 65 22 2c 20 74 65 73 74 5f 62 6c 6f 62 5f 77 te", test_blob_w
234f0 72 69 74 65 2c 20 30 20 20 7d 2c 0a 23 65 6e 64 rite, 0 },.#end
23500 69 66 0a 20 20 20 20 20 7b 20 22 70 63 61 63 68 if. { "pcach
23510 65 5f 73 74 61 74 73 22 2c 20 20 20 20 20 20 20 e_stats",
23520 74 65 73 74 5f 70 63 61 63 68 65 5f 73 74 61 74 test_pcache_stat
23530 73 2c 20 30 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 s, 0 },. };.
23540 73 74 61 74 69 63 20 69 6e 74 20 62 69 74 6d 61 static int bitma
23550 73 6b 5f 73 69 7a 65 20 3d 20 73 69 7a 65 6f 66 sk_size = sizeof
23560 28 42 69 74 6d 61 73 6b 29 2a 38 3b 0a 20 20 69 (Bitmask)*8;. i
23570 6e 74 20 69 3b 0a 20 20 65 78 74 65 72 6e 20 69 nt i;. extern i
23580 6e 74 20 73 71 6c 69 74 65 33 5f 73 79 6e 63 5f nt sqlite3_sync_
23590 63 6f 75 6e 74 2c 20 73 71 6c 69 74 65 33 5f 66 count, sqlite3_f
235a0 75 6c 6c 73 79 6e 63 5f 63 6f 75 6e 74 3b 0a 20 ullsync_count;.
235b0 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 extern int sqli
235c0 74 65 33 5f 6f 70 65 6e 74 65 6d 70 5f 63 6f 75 te3_opentemp_cou
235d0 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 nt;. extern int
235e0 20 73 71 6c 69 74 65 33 5f 6c 69 6b 65 5f 63 6f sqlite3_like_co
235f0 75 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e unt;. extern in
23600 74 20 73 71 6c 69 74 65 33 5f 78 66 65 72 6f 70 t sqlite3_xferop
23610 74 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 t_count;. exter
23620 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 70 61 n int sqlite3_pa
23630 67 65 72 5f 72 65 61 64 64 62 5f 63 6f 75 6e 74 ger_readdb_count
23640 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 ;. extern int s
23650 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 77 72 69 qlite3_pager_wri
23660 74 65 64 62 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 tedb_count;. ex
23670 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 tern int sqlite3
23680 5f 70 61 67 65 72 5f 77 72 69 74 65 6a 5f 63 6f _pager_writej_co
23690 75 6e 74 3b 0a 23 69 66 20 53 51 4c 49 54 45 5f unt;.#if SQLITE_
236a0 4f 53 5f 55 4e 49 58 20 26 26 20 64 65 66 69 6e OS_UNIX && defin
236b0 65 64 28 53 51 4c 49 54 45 5f 54 45 53 54 29 20 ed(SQLITE_TEST)
236c0 26 26 20 53 51 4c 49 54 45 5f 54 48 52 45 41 44 && SQLITE_THREAD
236d0 53 41 46 45 0a 20 20 65 78 74 65 72 6e 20 69 6e SAFE. extern in
236e0 74 20 74 68 72 65 61 64 73 4f 76 65 72 72 69 64 t threadsOverrid
236f0 65 45 61 63 68 4f 74 68 65 72 73 4c 6f 63 6b 73 eEachOthersLocks
23700 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 53 51 4c ;.#endif.#if SQL
23710 49 54 45 5f 4f 53 5f 57 49 4e 0a 20 20 65 78 74 ITE_OS_WIN. ext
23720 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
23730 6f 73 5f 74 79 70 65 3b 0a 23 65 6e 64 69 66 0a os_type;.#endif.
23740 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 44 45 #ifdef SQLITE_DE
23750 42 55 47 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 BUG. extern int
23760 20 73 71 6c 69 74 65 33 57 68 65 72 65 54 72 61 sqlite3WhereTra
23770 63 65 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 ce;. extern int
23780 20 73 71 6c 69 74 65 33 4f 53 54 72 61 63 65 3b sqlite3OSTrace;
23790 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
237a0 6c 69 74 65 33 56 64 62 65 41 64 64 6f 70 54 72 lite3VdbeAddopTr
237b0 61 63 65 3b 0a 23 65 6e 64 69 66 0a 23 69 66 64 ace;.#endif.#ifd
237c0 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 ef SQLITE_TEST.
237d0 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 extern int sqli
237e0 74 65 33 5f 65 6e 61 62 6c 65 5f 69 6e 5f 6f 70 te3_enable_in_op
237f0 74 3b 0a 20 20 65 78 74 65 72 6e 20 63 68 61 72 t;. extern char
23800 20 73 71 6c 69 74 65 33 5f 71 75 65 72 79 5f 70 sqlite3_query_p
23810 6c 61 6e 5b 5d 3b 0a 20 20 73 74 61 74 69 63 20 lan[];. static
23820 63 68 61 72 20 2a 71 75 65 72 79 5f 70 6c 61 6e char *query_plan
23830 20 3d 20 73 71 6c 69 74 65 33 5f 71 75 65 72 79 = sqlite3_query
23840 5f 70 6c 61 6e 3b 0a 23 65 6e 64 69 66 0a 0a 20 _plan;.#endif..
23850 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 for(i=0; i<size
23860 6f 66 28 61 43 6d 64 29 2f 73 69 7a 65 6f 66 28 of(aCmd)/sizeof(
23870 61 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a aCmd[0]); i++){.
23880 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f Tcl_CreateCo
23890 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61 43 mmand(interp, aC
238a0 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 43 6d md[i].zName, aCm
238b0 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 30 2c 20 30 d[i].xProc, 0, 0
238c0 29 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 );. }. for(i=0
238d0 3b 20 69 3c 73 69 7a 65 6f 66 28 61 4f 62 6a 43 ; i<sizeof(aObjC
238e0 6d 64 29 2f 73 69 7a 65 6f 66 28 61 4f 62 6a 43 md)/sizeof(aObjC
238f0 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 md[0]); i++){.
23900 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
23910 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61 ommand(interp, a
23920 4f 62 6a 43 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c ObjCmd[i].zName,
23930 20 0a 20 20 20 20 20 20 20 20 61 4f 62 6a 43 6d . aObjCm
23940 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 61 4f 62 6a d[i].xProc, aObj
23950 43 6d 64 5b 69 5d 2e 63 6c 69 65 6e 74 44 61 74 Cmd[i].clientDat
23960 61 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 54 63 6c a, 0);. }. Tcl
23970 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c _LinkVar(interp,
23980 20 22 73 71 6c 69 74 65 5f 73 65 61 72 63 68 5f "sqlite_search_
23990 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 count", . (
239a0 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 73 char*)&sqlite3_s
239b0 65 61 72 63 68 5f 63 6f 75 6e 74 2c 20 54 43 4c earch_count, TCL
239c0 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 _LINK_INT);. Tc
239d0 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
239e0 2c 20 22 73 71 6c 69 74 65 5f 73 6f 72 74 5f 63 , "sqlite_sort_c
239f0 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 63 ount", . (c
23a00 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 73 6f har*)&sqlite3_so
23a10 72 74 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 rt_count, TCL_LI
23a20 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c NK_INT);. Tcl_L
23a30 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 inkVar(interp, "
23a40 73 71 6c 69 74 65 33 5f 6d 61 78 5f 62 6c 6f 62 sqlite3_max_blob
23a50 73 69 7a 65 22 2c 20 0a 20 20 20 20 20 20 28 63 size", . (c
23a60 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6d 61 har*)&sqlite3_ma
23a70 78 5f 62 6c 6f 62 73 69 7a 65 2c 20 54 43 4c 5f x_blobsize, TCL_
23a80 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c LINK_INT);. Tcl
23a90 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c _LinkVar(interp,
23aa0 20 22 73 71 6c 69 74 65 5f 6c 69 6b 65 5f 63 6f "sqlite_like_co
23ab0 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 63 68 unt", . (ch
23ac0 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6c 69 6b ar*)&sqlite3_lik
23ad0 65 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e e_count, TCL_LIN
23ae0 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 K_INT);. Tcl_Li
23af0 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
23b00 71 6c 69 74 65 5f 69 6e 74 65 72 72 75 70 74 5f qlite_interrupt_
23b10 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 count", . (
23b20 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 69 char*)&sqlite3_i
23b30 6e 74 65 72 72 75 70 74 5f 63 6f 75 6e 74 2c 20 nterrupt_count,
23b40 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 TCL_LINK_INT);.
23b50 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
23b60 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 65 erp, "sqlite_ope
23b70 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 22 2c 20 0a n_file_count", .
23b80 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 (char*)&sq
23b90 6c 69 74 65 33 5f 6f 70 65 6e 5f 66 69 6c 65 5f lite3_open_file_
23ba0 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f count, TCL_LINK_
23bb0 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b INT);. Tcl_Link
23bc0 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c Var(interp, "sql
23bd0 69 74 65 5f 63 75 72 72 65 6e 74 5f 74 69 6d 65 ite_current_time
23be0 22 2c 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a ", . (char*
23bf0 29 26 73 71 6c 69 74 65 33 5f 63 75 72 72 65 6e )&sqlite3_curren
23c00 74 5f 74 69 6d 65 2c 20 54 43 4c 5f 4c 49 4e 4b t_time, TCL_LINK
23c10 5f 49 4e 54 29 3b 0a 23 69 66 20 53 51 4c 49 54 _INT);.#if SQLIT
23c20 45 5f 4f 53 5f 55 4e 49 58 0a 20 20 54 63 6c 5f E_OS_UNIX. Tcl_
23c30 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 LinkVar(interp,
23c40 22 73 71 6c 69 74 65 5f 68 6f 73 74 69 64 5f 6e "sqlite_hostid_n
23c50 75 6d 22 2c 20 0a 20 20 20 20 20 20 28 63 68 61 um", . (cha
23c60 72 2a 29 26 73 71 6c 69 74 65 33 5f 68 6f 73 74 r*)&sqlite3_host
23c70 69 64 5f 6e 75 6d 2c 20 54 43 4c 5f 4c 49 4e 4b id_num, TCL_LINK
23c80 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 20 20 _INT);.#endif.
23c90 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 Tcl_LinkVar(inte
23ca0 72 70 2c 20 22 73 71 6c 69 74 65 33 5f 78 66 65 rp, "sqlite3_xfe
23cb0 72 6f 70 74 5f 63 6f 75 6e 74 22 2c 0a 20 20 20 ropt_count",.
23cc0 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 (char*)&sqlit
23cd0 65 33 5f 78 66 65 72 6f 70 74 5f 63 6f 75 6e 74 e3_xferopt_count
23ce0 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b , TCL_LINK_INT);
23cf0 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
23d00 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 33 5f nterp, "sqlite3_
23d10 70 61 67 65 72 5f 72 65 61 64 64 62 5f 63 6f 75 pager_readdb_cou
23d20 6e 74 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 nt",. (char
23d30 2a 29 26 73 71 6c 69 74 65 33 5f 70 61 67 65 72 *)&sqlite3_pager
23d40 5f 72 65 61 64 64 62 5f 63 6f 75 6e 74 2c 20 54 _readdb_count, T
23d50 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 CL_LINK_INT);.
23d60 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 Tcl_LinkVar(inte
23d70 72 70 2c 20 22 73 71 6c 69 74 65 33 5f 70 61 67 rp, "sqlite3_pag
23d80 65 72 5f 77 72 69 74 65 64 62 5f 63 6f 75 6e 74 er_writedb_count
23d90 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 ",. (char*)
23da0 26 73 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 77 &sqlite3_pager_w
23db0 72 69 74 65 64 62 5f 63 6f 75 6e 74 2c 20 54 43 ritedb_count, TC
23dc0 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 L_LINK_INT);. T
23dd0 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 cl_LinkVar(inter
23de0 70 2c 20 22 73 71 6c 69 74 65 33 5f 70 61 67 65 p, "sqlite3_page
23df0 72 5f 77 72 69 74 65 6a 5f 63 6f 75 6e 74 22 2c r_writej_count",
23e00 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 . (char*)&s
23e10 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 77 72 69 qlite3_pager_wri
23e20 74 65 6a 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c tej_count, TCL_L
23e30 49 4e 4b 5f 49 4e 54 29 3b 0a 23 69 66 6e 64 65 INK_INT);.#ifnde
23e40 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 f SQLITE_OMIT_UT
23e50 46 31 36 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 F16. Tcl_LinkVa
23e60 72 28 69 6e 74 65 72 70 2c 20 22 75 6e 61 6c 69 r(interp, "unali
23e70 67 6e 65 64 5f 73 74 72 69 6e 67 5f 63 6f 75 6e gned_string_coun
23e80 74 65 72 22 2c 0a 20 20 20 20 20 20 28 63 68 61 ter",. (cha
23e90 72 2a 29 26 75 6e 61 6c 69 67 6e 65 64 5f 73 74 r*)&unaligned_st
23ea0 72 69 6e 67 5f 63 6f 75 6e 74 65 72 2c 20 54 43 ring_counter, TC
23eb0 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e L_LINK_INT);.#en
23ec0 64 69 66 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f dif.#if SQLITE_O
23ed0 53 5f 55 4e 49 58 20 26 26 20 64 65 66 69 6e 65 S_UNIX && define
23ee0 64 28 53 51 4c 49 54 45 5f 54 45 53 54 29 20 26 d(SQLITE_TEST) &
23ef0 26 20 53 51 4c 49 54 45 5f 54 48 52 45 41 44 53 & SQLITE_THREADS
23f00 41 46 45 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 AFE. Tcl_LinkVa
23f10 72 28 69 6e 74 65 72 70 2c 20 22 74 68 72 65 61 r(interp, "threa
23f20 64 73 4f 76 65 72 72 69 64 65 45 61 63 68 4f 74 dsOverrideEachOt
23f30 68 65 72 73 4c 6f 63 6b 73 22 2c 0a 20 20 20 20 hersLocks",.
23f40 20 20 28 63 68 61 72 2a 29 26 74 68 72 65 61 64 (char*)&thread
23f50 73 4f 76 65 72 72 69 64 65 45 61 63 68 4f 74 68 sOverrideEachOth
23f60 65 72 73 4c 6f 63 6b 73 2c 20 54 43 4c 5f 4c 49 ersLocks, TCL_LI
23f70 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 0a NK_INT);.#endif.
23f80 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
23f90 4d 49 54 5f 55 54 46 31 36 0a 20 20 54 63 6c 5f MIT_UTF16. Tcl_
23fa0 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 LinkVar(interp,
23fb0 22 73 71 6c 69 74 65 5f 6c 61 73 74 5f 6e 65 65 "sqlite_last_nee
23fc0 64 65 64 5f 63 6f 6c 6c 61 74 69 6f 6e 22 2c 0a ded_collation",.
23fd0 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 70 7a (char*)&pz
23fe0 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f 6e 2c NeededCollation,
23ff0 20 54 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 TCL_LINK_STRING
24000 7c 54 43 4c 5f 4c 49 4e 4b 5f 52 45 41 44 5f 4f |TCL_LINK_READ_O
24010 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 NLY);.#endif.#if
24020 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 0a 20 SQLITE_OS_WIN.
24030 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
24040 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 73 5f erp, "sqlite_os_
24050 74 79 70 65 22 2c 0a 20 20 20 20 20 20 28 63 68 type",. (ch
24060 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6f 73 5f ar*)&sqlite3_os_
24070 74 79 70 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 type, TCL_LINK_I
24080 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 64 NT);.#endif.#ifd
24090 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 ef SQLITE_TEST.
240a0 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
240b0 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 71 75 65 erp, "sqlite_que
240c0 72 79 5f 70 6c 61 6e 22 2c 0a 20 20 20 20 20 20 ry_plan",.
240d0 28 63 68 61 72 2a 29 26 71 75 65 72 79 5f 70 6c (char*)&query_pl
240e0 61 6e 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 53 54 52 an, TCL_LINK_STR
240f0 49 4e 47 7c 54 43 4c 5f 4c 49 4e 4b 5f 52 45 41 ING|TCL_LINK_REA
24100 44 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a D_ONLY);.#endif.
24110 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 44 45 #ifdef SQLITE_DE
24120 42 55 47 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 BUG. Tcl_LinkVa
24130 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 r(interp, "sqlit
24140 65 5f 61 64 64 6f 70 5f 74 72 61 63 65 22 2c 0a e_addop_trace",.
24150 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 (char*)&sq
24160 6c 69 74 65 33 56 64 62 65 41 64 64 6f 70 54 72 lite3VdbeAddopTr
24170 61 63 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e ace, TCL_LINK_IN
24180 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 T);. Tcl_LinkVa
24190 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 r(interp, "sqlit
241a0 65 5f 77 68 65 72 65 5f 74 72 61 63 65 22 2c 0a e_where_trace",.
241b0 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 (char*)&sq
241c0 6c 69 74 65 33 57 68 65 72 65 54 72 61 63 65 2c lite3WhereTrace,
241d0 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a TCL_LINK_INT);.
241e0 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e Tcl_LinkVar(in
241f0 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 73 terp, "sqlite_os
24200 5f 74 72 61 63 65 22 2c 0a 20 20 20 20 20 20 28 _trace",. (
24210 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 4f 53 char*)&sqlite3OS
24220 54 72 61 63 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f Trace, TCL_LINK_
24230 49 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 INT);.#endif.#if
24240 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 ndef SQLITE_OMIT
24250 5f 44 49 53 4b 49 4f 0a 20 20 54 63 6c 5f 4c 69 _DISKIO. Tcl_Li
24260 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
24270 71 6c 69 74 65 5f 6f 70 65 6e 74 65 6d 70 5f 63 qlite_opentemp_c
24280 6f 75 6e 74 22 2c 0a 20 20 20 20 20 20 28 63 68 ount",. (ch
24290 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6f 70 65 ar*)&sqlite3_ope
242a0 6e 74 65 6d 70 5f 63 6f 75 6e 74 2c 20 54 43 4c ntemp_count, TCL
242b0 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 _LINK_INT);.#end
242c0 69 66 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 if. Tcl_LinkVar
242d0 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
242e0 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c _static_bind_val
242f0 75 65 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 ue",. (char
24300 2a 29 26 73 71 6c 69 74 65 5f 73 74 61 74 69 63 *)&sqlite_static
24310 5f 62 69 6e 64 5f 76 61 6c 75 65 2c 20 54 43 4c _bind_value, TCL
24320 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 29 3b 0a 20 _LINK_STRING);.
24330 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
24340 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 73 74 61 erp, "sqlite_sta
24350 74 69 63 5f 62 69 6e 64 5f 6e 62 79 74 65 22 2c tic_bind_nbyte",
24360 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 . (char*)&s
24370 71 6c 69 74 65 5f 73 74 61 74 69 63 5f 62 69 6e qlite_static_bin
24380 64 5f 6e 62 79 74 65 2c 20 54 43 4c 5f 4c 49 4e d_nbyte, TCL_LIN
24390 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 K_INT);. Tcl_Li
243a0 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
243b0 71 6c 69 74 65 5f 74 65 6d 70 5f 64 69 72 65 63 qlite_temp_direc
243c0 74 6f 72 79 22 2c 0a 20 20 20 20 20 20 28 63 68 tory",. (ch
243d0 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 74 65 6d ar*)&sqlite3_tem
243e0 70 5f 64 69 72 65 63 74 6f 72 79 2c 20 54 43 4c p_directory, TCL
243f0 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 29 3b 0a 20 _LINK_STRING);.
24400 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
24410 65 72 70 2c 20 22 62 69 74 6d 61 73 6b 5f 73 69 erp, "bitmask_si
24420 7a 65 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 ze",. (char
24430 2a 29 26 62 69 74 6d 61 73 6b 5f 73 69 7a 65 2c *)&bitmask_size,
24440 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 7c 54 43 TCL_LINK_INT|TC
24450 4c 5f 4c 49 4e 4b 5f 52 45 41 44 5f 4f 4e 4c 59 L_LINK_READ_ONLY
24460 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 );. Tcl_LinkVar
24470 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
24480 5f 73 79 6e 63 5f 63 6f 75 6e 74 22 2c 0a 20 20 _sync_count",.
24490 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 (char*)&sqli
244a0 74 65 33 5f 73 79 6e 63 5f 63 6f 75 6e 74 2c 20 te3_sync_count,
244b0 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 TCL_LINK_INT);.
244c0 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
244d0 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 66 75 6c erp, "sqlite_ful
244e0 6c 73 79 6e 63 5f 63 6f 75 6e 74 22 2c 0a 20 20 lsync_count",.
244f0 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 (char*)&sqli
24500 74 65 33 5f 66 75 6c 6c 73 79 6e 63 5f 63 6f 75 te3_fullsync_cou
24510 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 nt, TCL_LINK_INT
24520 29 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 );.#ifdef SQLITE
24530 5f 54 45 53 54 0a 20 20 54 63 6c 5f 4c 69 6e 6b _TEST. Tcl_Link
24540 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c Var(interp, "sql
24550 69 74 65 5f 65 6e 61 62 6c 65 5f 69 6e 5f 6f 70 ite_enable_in_op
24560 74 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a t",. (char*
24570 29 26 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 )&sqlite3_enable
24580 5f 69 6e 5f 6f 70 74 2c 20 54 43 4c 5f 4c 49 4e _in_opt, TCL_LIN
24590 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 20 K_INT);.#endif.
245a0 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
245b0 7d 0a }.