0000: 2f 2a 0a 2a 2a 20 32 30 30 31 20 53 65 70 74 65 /*.** 2001 Septe
0010: 6d 62 65 72 20 31 35 0a 2a 2a 0a 2a 2a 20 54 68 mber 15.**.** Th
0020: 65 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 e author disclai
0030: 6d 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 ms copyright to
0040: 74 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 this source code
0050: 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a . In place of.*
0060: 2a 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 * a legal notice
0070: 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 , here is a bles
0080: 73 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d sing:.**.** M
0090: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 ay you do good a
00a0: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 nd not evil..**
00b0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 May you find
00c0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 forgiveness for
00d0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 yourself and for
00e0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 give others..**
00f0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 May you share
0100: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 freely, never t
0110: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 aking more than
0120: 79 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a you give..**.***
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0170: 2a 2a 2a 2a 2a 2a 0a 2a 2a 20 43 6f 64 65 20 66 ******.** Code f
0180: 6f 72 20 74 65 73 74 69 6e 67 20 61 6c 6c 20 73 or testing all s
0190: 6f 72 74 73 20 6f 66 20 53 51 4c 69 74 65 20 69 orts of SQLite i
01a0: 6e 74 65 72 66 61 63 65 73 2e 20 20 54 68 69 73 nterfaces. This
01b0: 20 63 6f 64 65 0a 2a 2a 20 69 73 20 6e 6f 74 20 code.** is not
01c0: 69 6e 63 6c 75 64 65 64 20 69 6e 20 74 68 65 20 included in the
01d0: 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 20 SQLite library.
01e0: 20 49 74 20 69 73 20 75 73 65 64 20 66 6f 72 20 It is used for
01f0: 61 75 74 6f 6d 61 74 65 64 0a 2a 2a 20 74 65 73 automated.** tes
0200: 74 69 6e 67 20 6f 66 20 74 68 65 20 53 51 4c 69 ting of the SQLi
0210: 74 65 20 6c 69 62 72 61 72 79 2e 0a 2a 2f 0a 23 te library..*/.#
0220: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 49 include "sqliteI
0230: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 nt.h".#include "
0240: 74 63 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 tcl.h".#include
0250: 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c <stdlib.h>.#incl
0260: 75 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 0a ude <string.h>..
0270: 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 61 20 /*.** This is a
0280: 63 6f 70 79 20 6f 66 20 74 68 65 20 66 69 72 73 copy of the firs
0290: 74 20 70 61 72 74 20 6f 66 20 74 68 65 20 53 71 t part of the Sq
02a0: 6c 69 74 65 44 62 20 73 74 72 75 63 74 75 72 65 liteDb structure
02b0: 20 69 6e 20 0a 2a 2a 20 74 63 6c 73 71 6c 69 74 in .** tclsqlit
02c0: 65 2e 63 2e 20 20 57 65 20 6e 65 65 64 20 69 74 e.c. We need it
02d0: 20 68 65 72 65 20 73 6f 20 74 68 61 74 20 74 68 here so that th
02e0: 65 20 67 65 74 5f 73 71 6c 69 74 65 5f 70 6f 69 e get_sqlite_poi
02f0: 6e 74 65 72 20 72 6f 75 74 69 6e 65 0a 2a 2a 20 nter routine.**
0300: 63 61 6e 20 65 78 74 72 61 63 74 20 74 68 65 20 can extract the
0310: 73 71 6c 69 74 65 33 2a 20 70 6f 69 6e 74 65 72 sqlite3* pointer
0320: 20 66 72 6f 6d 20 61 6e 20 65 78 69 73 74 69 6e from an existin
0330: 67 20 54 63 6c 20 53 51 4c 69 74 65 0a 2a 2a 20 g Tcl SQLite.**
0340: 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 connection..*/.s
0350: 74 72 75 63 74 20 53 71 6c 69 74 65 44 62 20 7b truct SqliteDb {
0360: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
0370: 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72 };../*.** Conver
0380: 74 20 74 65 78 74 20 67 65 6e 65 72 61 74 65 64 t text generated
0390: 20 62 79 20 74 68 65 20 22 25 70 22 20 63 6f 6e by the "%p" con
03a0: 76 65 72 73 69 6f 6e 20 66 6f 72 6d 61 74 20 62 version format b
03b0: 61 63 6b 20 69 6e 74 6f 0a 2a 2a 20 61 20 70 6f ack into.** a po
03c0: 69 6e 74 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 inter..*/.static
03d0: 20 69 6e 74 20 74 65 73 74 48 65 78 54 6f 49 6e int testHexToIn
03e0: 74 28 69 6e 74 20 68 29 7b 0a 20 20 69 66 28 20 t(int h){. if(
03f0: 68 3e 3d 27 30 27 20 26 26 20 68 3c 3d 27 39 27 h>='0' && h<='9'
0400: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 68 ){. return h
0410: 20 2d 20 27 30 27 3b 0a 20 20 7d 65 6c 73 65 20 - '0';. }else
0420: 69 66 28 20 68 3e 3d 27 61 27 20 26 26 20 68 3c if( h>='a' && h<
0430: 3d 27 66 27 20 29 7b 0a 20 20 20 20 72 65 74 75 ='f' ){. retu
0440: 72 6e 20 68 20 2d 20 27 61 27 20 2b 20 31 30 3b rn h - 'a' + 10;
0450: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 61 73 . }else{. as
0460: 73 65 72 74 28 20 68 3e 3d 27 41 27 20 26 26 20 sert( h>='A' &&
0470: 68 3c 3d 27 46 27 20 29 3b 0a 20 20 20 20 72 65 h<='F' );. re
0480: 74 75 72 6e 20 68 20 2d 20 27 41 27 20 2b 20 31 turn h - 'A' + 1
0490: 30 3b 0a 20 20 7d 0a 7d 0a 76 6f 69 64 20 2a 73 0;. }.}.void *s
04a0: 71 6c 69 74 65 33 54 65 73 74 54 65 78 74 54 6f qlite3TestTextTo
04b0: 50 74 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a Ptr(const char *
04c0: 7a 29 7b 0a 20 20 76 6f 69 64 20 2a 70 3b 0a 20 z){. void *p;.
04d0: 20 75 36 34 20 76 3b 0a 20 20 75 33 32 20 76 32 u64 v;. u32 v2
04e0: 3b 0a 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 30 ;. if( z[0]=='0
04f0: 27 20 26 26 20 7a 5b 31 5d 3d 3d 27 78 27 20 29 ' && z[1]=='x' )
0500: 7b 0a 20 20 20 20 7a 20 2b 3d 20 32 3b 0a 20 20 {. z += 2;.
0510: 7d 0a 20 20 76 20 3d 20 30 3b 0a 20 20 77 68 69 }. v = 0;. whi
0520: 6c 65 28 20 2a 7a 20 29 7b 0a 20 20 20 20 76 20 le( *z ){. v
0530: 3d 20 28 76 3c 3c 34 29 20 2b 20 74 65 73 74 48 = (v<<4) + testH
0540: 65 78 54 6f 49 6e 74 28 2a 7a 29 3b 0a 20 20 20 exToInt(*z);.
0550: 20 7a 2b 2b 3b 0a 20 20 7d 0a 20 20 69 66 28 20 z++;. }. if(
0560: 73 69 7a 65 6f 66 28 70 29 3d 3d 73 69 7a 65 6f sizeof(p)==sizeo
0570: 66 28 76 29 20 29 7b 0a 20 20 20 20 6d 65 6d 63 f(v) ){. memc
0580: 70 79 28 26 70 2c 20 26 76 2c 20 73 69 7a 65 6f py(&p, &v, sizeo
0590: 66 28 70 29 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a f(p));. }else{.
05a0: 20 20 20 20 61 73 73 65 72 74 28 20 73 69 7a 65 assert( size
05b0: 6f 66 28 70 29 3d 3d 73 69 7a 65 6f 66 28 76 32 of(p)==sizeof(v2
05c0: 29 20 29 3b 0a 20 20 20 20 76 32 20 3d 20 28 75 ) );. v2 = (u
05d0: 33 32 29 76 3b 0a 20 20 20 20 6d 65 6d 63 70 79 32)v;. memcpy
05e0: 28 26 70 2c 20 26 76 32 2c 20 73 69 7a 65 6f 66 (&p, &v2, sizeof
05f0: 28 70 29 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 (p));. }. retu
0600: 72 6e 20 70 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 rn p;.}.../*.**
0610: 41 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 74 68 A TCL command th
0620: 61 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 61 at returns the a
0630: 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 73 71 ddress of the sq
0640: 6c 69 74 65 2a 20 70 6f 69 6e 74 65 72 0a 2a 2a lite* pointer.**
0650: 20 66 6f 72 20 61 6e 20 73 71 6c 69 74 65 20 63 for an sqlite c
0660: 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 73 74 61 6e onnection instan
0670: 63 65 2e 20 20 42 61 64 20 74 68 69 6e 67 73 20 ce. Bad things
0680: 68 61 70 70 65 6e 20 69 66 20 74 68 65 0a 2a 2a happen if the.**
0690: 20 69 6e 70 75 74 20 69 73 20 6e 6f 74 20 61 6e input is not an
06a0: 20 73 71 6c 69 74 65 20 63 6f 6e 6e 65 63 74 69 sqlite connecti
06b0: 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e on..*/.static in
06c0: 74 20 67 65 74 5f 73 71 6c 69 74 65 5f 70 6f 69 t get_sqlite_poi
06d0: 6e 74 65 72 28 0a 20 20 76 6f 69 64 20 2a 20 63 nter(. void * c
06e0: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
06f0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
0700: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
0710: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
0720: 6a 76 5b 5d 0a 29 7b 0a 20 20 73 74 72 75 63 74 jv[].){. struct
0730: 20 53 71 6c 69 74 65 44 62 20 2a 70 3b 0a 20 20 SqliteDb *p;.
0740: 54 63 6c 5f 43 6d 64 49 6e 66 6f 20 63 6d 64 49 Tcl_CmdInfo cmdI
0750: 6e 66 6f 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 nfo;. char zBuf
0760: 5b 31 30 30 5d 3b 0a 20 20 69 66 28 20 6f 62 6a [100];. if( obj
0770: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
0780: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
0790: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 erp, 1, objv, "S
07a0: 51 4c 49 54 45 2d 43 4f 4e 4e 45 43 54 49 4f 4e QLITE-CONNECTION
07b0: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
07c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
07d0: 69 66 28 20 21 54 63 6c 5f 47 65 74 43 6f 6d 6d if( !Tcl_GetComm
07e0: 61 6e 64 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 andInfo(interp,
07f0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
0800: 6a 76 5b 31 5d 29 2c 20 26 63 6d 64 49 6e 66 6f jv[1]), &cmdInfo
0810: 29 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 ) ){. Tcl_App
0820: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
0830: 2c 20 22 63 6f 6d 6d 61 6e 64 20 6e 6f 74 20 66 , "command not f
0840: 6f 75 6e 64 3a 20 22 2c 0a 20 20 20 20 20 20 20 ound: ",.
0850: 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
0860: 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 28 63 68 61 g(objv[1]), (cha
0870: 72 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 72 r*)0);. retur
0880: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
0890: 0a 20 20 70 20 3d 20 28 73 74 72 75 63 74 20 53 . p = (struct S
08a0: 71 6c 69 74 65 44 62 2a 29 63 6d 64 49 6e 66 6f qliteDb*)cmdInfo
08b0: 2e 6f 62 6a 43 6c 69 65 6e 74 44 61 74 61 3b 0a .objClientData;.
08c0: 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 sprintf(zBuf,
08d0: 22 25 70 22 2c 20 70 2d 3e 64 62 29 3b 0a 20 20 "%p", p->db);.
08e0: 69 66 28 20 73 74 72 6e 63 6d 70 28 7a 42 75 66 if( strncmp(zBuf
08f0: 2c 22 30 78 22 2c 32 29 20 29 7b 0a 20 20 20 20 ,"0x",2) ){.
0900: 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 30 sprintf(zBuf, "0
0910: 78 25 70 22 2c 20 70 2d 3e 64 62 29 3b 0a 20 20 x%p", p->db);.
0920: 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 }. Tcl_AppendRe
0930: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 sult(interp, zBu
0940: 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 f, 0);. return
0950: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
0960: 20 44 65 63 6f 64 65 20 61 20 70 6f 69 6e 74 65 Decode a pointe
0970: 72 20 74 6f 20 61 6e 20 73 71 6c 69 74 65 33 20 r to an sqlite3
0980: 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 69 6e 74 20 67 object..*/.int g
0990: 65 74 44 62 50 6f 69 6e 74 65 72 28 54 63 6c 5f etDbPointer(Tcl_
09a0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
09b0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 2c 20 const char *zA,
09c0: 73 71 6c 69 74 65 33 20 2a 2a 70 70 44 62 29 7b sqlite3 **ppDb){
09d0: 0a 20 20 73 74 72 75 63 74 20 53 71 6c 69 74 65 . struct Sqlite
09e0: 44 62 20 2a 70 3b 0a 20 20 54 63 6c 5f 43 6d 64 Db *p;. Tcl_Cmd
09f0: 49 6e 66 6f 20 63 6d 64 49 6e 66 6f 3b 0a 20 20 Info cmdInfo;.
0a00: 69 66 28 20 54 63 6c 5f 47 65 74 43 6f 6d 6d 61 if( Tcl_GetComma
0a10: 6e 64 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 7a ndInfo(interp, z
0a20: 41 2c 20 26 63 6d 64 49 6e 66 6f 29 20 29 7b 0a A, &cmdInfo) ){.
0a30: 20 20 20 20 70 20 3d 20 28 73 74 72 75 63 74 20 p = (struct
0a40: 53 71 6c 69 74 65 44 62 2a 29 63 6d 64 49 6e 66 SqliteDb*)cmdInf
0a50: 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 61 74 61 3b o.objClientData;
0a60: 0a 20 20 20 20 2a 70 70 44 62 20 3d 20 70 2d 3e . *ppDb = p->
0a70: 64 62 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 db;. }else{.
0a80: 20 2a 70 70 44 62 20 3d 20 28 73 71 6c 69 74 65 *ppDb = (sqlite
0a90: 33 2a 29 73 71 6c 69 74 65 33 54 65 73 74 54 65 3*)sqlite3TestTe
0aa0: 78 74 54 6f 50 74 72 28 7a 41 29 3b 0a 20 20 7d xtToPtr(zA);. }
0ab0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
0ac0: 3b 0a 7d 0a 0a 0a 63 6f 6e 73 74 20 63 68 61 72 ;.}...const char
0ad0: 20 2a 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 *sqlite3TestErr
0ae0: 6f 72 4e 61 6d 65 28 69 6e 74 20 72 63 29 7b 0a orName(int rc){.
0af0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e const char *zN
0b00: 61 6d 65 20 3d 20 30 3b 0a 20 20 73 77 69 74 63 ame = 0;. switc
0b10: 68 28 20 72 63 20 29 7b 0a 20 20 20 20 63 61 73 h( rc ){. cas
0b20: 65 20 53 51 4c 49 54 45 5f 4f 4b 3a 20 20 20 20 e SQLITE_OK:
0b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
0b40: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4f 4b ame = "SQLITE_OK
0b50: 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ";
0b60: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0b70: 65 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3a 20 e SQLITE_ERROR:
0b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
0b90: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 45 52 ame = "SQLITE_ER
0ba0: 52 4f 52 22 3b 20 20 20 20 20 20 20 20 20 20 20 ROR";
0bb0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0bc0: 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 52 4e 41 e SQLITE_INTERNA
0bd0: 4c 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e L: zN
0be0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4e ame = "SQLITE_IN
0bf0: 54 45 52 4e 41 4c 22 3b 20 20 20 20 20 20 20 20 TERNAL";
0c00: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0c10: 65 20 53 51 4c 49 54 45 5f 50 45 52 4d 3a 20 20 e SQLITE_PERM:
0c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
0c30: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 50 45 ame = "SQLITE_PE
0c40: 52 4d 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 RM";
0c50: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0c60: 65 20 53 51 4c 49 54 45 5f 41 42 4f 52 54 3a 20 e SQLITE_ABORT:
0c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
0c80: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 41 42 ame = "SQLITE_AB
0c90: 4f 52 54 22 3b 20 20 20 20 20 20 20 20 20 20 20 ORT";
0ca0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0cb0: 65 20 53 51 4c 49 54 45 5f 42 55 53 59 3a 20 20 e SQLITE_BUSY:
0cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
0cd0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 42 55 ame = "SQLITE_BU
0ce0: 53 59 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 SY";
0cf0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0d00: 65 20 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 3a e SQLITE_LOCKED:
0d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
0d20: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4c 4f ame = "SQLITE_LO
0d30: 43 4b 45 44 22 3b 20 20 20 20 20 20 20 20 20 20 CKED";
0d40: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0d50: 65 20 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 5f e SQLITE_LOCKED_
0d60: 53 48 41 52 45 44 43 41 43 48 45 3a 20 20 7a 4e SHAREDCACHE: zN
0d70: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4c 4f ame = "SQLITE_LO
0d80: 43 4b 45 44 5f 53 48 41 52 45 44 43 41 43 48 45 CKED_SHAREDCACHE
0d90: 22 3b 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 ";break;. cas
0da0: 65 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3a 20 e SQLITE_NOMEM:
0db0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
0dc0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e 4f ame = "SQLITE_NO
0dd0: 4d 45 4d 22 3b 20 20 20 20 20 20 20 20 20 20 20 MEM";
0de0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0df0: 65 20 53 51 4c 49 54 45 5f 52 45 41 44 4f 4e 4c e SQLITE_READONL
0e00: 59 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e Y: zN
0e10: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 45 ame = "SQLITE_RE
0e20: 41 44 4f 4e 4c 59 22 3b 20 20 20 20 20 20 20 20 ADONLY";
0e30: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0e40: 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 52 52 55 e SQLITE_INTERRU
0e50: 50 54 3a 20 20 20 20 20 20 20 20 20 20 20 7a 4e PT: zN
0e60: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4e ame = "SQLITE_IN
0e70: 54 45 52 52 55 50 54 22 3b 20 20 20 20 20 20 20 TERRUPT";
0e80: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0e90: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3a 20 e SQLITE_IOERR:
0ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
0eb0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
0ec0: 45 52 52 22 3b 20 20 20 20 20 20 20 20 20 20 20 ERR";
0ed0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0ee0: 65 20 53 51 4c 49 54 45 5f 43 4f 52 52 55 50 54 e SQLITE_CORRUPT
0ef0: 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e : zN
0f00: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 43 4f ame = "SQLITE_CO
0f10: 52 52 55 50 54 22 3b 20 20 20 20 20 20 20 20 20 RRUPT";
0f20: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0f30: 65 20 53 51 4c 49 54 45 5f 4e 4f 54 46 4f 55 4e e SQLITE_NOTFOUN
0f40: 44 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e D: zN
0f50: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e 4f ame = "SQLITE_NO
0f60: 54 46 4f 55 4e 44 22 3b 20 20 20 20 20 20 20 20 TFOUND";
0f70: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0f80: 65 20 53 51 4c 49 54 45 5f 46 55 4c 4c 3a 20 20 e SQLITE_FULL:
0f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
0fa0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 46 55 ame = "SQLITE_FU
0fb0: 4c 4c 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 LL";
0fc0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0fd0: 65 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 e SQLITE_CANTOPE
0fe0: 4e 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e N: zN
0ff0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 43 41 ame = "SQLITE_CA
1000: 4e 54 4f 50 45 4e 22 3b 20 20 20 20 20 20 20 20 NTOPEN";
1010: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1020: 65 20 53 51 4c 49 54 45 5f 50 52 4f 54 4f 43 4f e SQLITE_PROTOCO
1030: 4c 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e L: zN
1040: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 50 52 ame = "SQLITE_PR
1050: 4f 54 4f 43 4f 4c 22 3b 20 20 20 20 20 20 20 20 OTOCOL";
1060: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1070: 65 20 53 51 4c 49 54 45 5f 45 4d 50 54 59 3a 20 e SQLITE_EMPTY:
1080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
1090: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 45 4d ame = "SQLITE_EM
10a0: 50 54 59 22 3b 20 20 20 20 20 20 20 20 20 20 20 PTY";
10b0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
10c0: 65 20 53 51 4c 49 54 45 5f 53 43 48 45 4d 41 3a e SQLITE_SCHEMA:
10d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
10e0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 53 43 ame = "SQLITE_SC
10f0: 48 45 4d 41 22 3b 20 20 20 20 20 20 20 20 20 20 HEMA";
1100: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1110: 65 20 53 51 4c 49 54 45 5f 54 4f 4f 42 49 47 3a e SQLITE_TOOBIG:
1120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
1130: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 54 4f ame = "SQLITE_TO
1140: 4f 42 49 47 22 3b 20 20 20 20 20 20 20 20 20 20 OBIG";
1150: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1160: 65 20 53 51 4c 49 54 45 5f 43 4f 4e 53 54 52 41 e SQLITE_CONSTRA
1170: 49 4e 54 3a 20 20 20 20 20 20 20 20 20 20 7a 4e INT: zN
1180: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 43 4f ame = "SQLITE_CO
1190: 4e 53 54 52 41 49 4e 54 22 3b 20 20 20 20 20 20 NSTRAINT";
11a0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
11b0: 65 20 53 51 4c 49 54 45 5f 4d 49 53 4d 41 54 43 e SQLITE_MISMATC
11c0: 48 3a 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e H: zN
11d0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4d 49 ame = "SQLITE_MI
11e0: 53 4d 41 54 43 48 22 3b 20 20 20 20 20 20 20 20 SMATCH";
11f0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1200: 65 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 3a e SQLITE_MISUSE:
1210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
1220: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4d 49 ame = "SQLITE_MI
1230: 53 55 53 45 22 3b 20 20 20 20 20 20 20 20 20 20 SUSE";
1240: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1250: 65 20 53 51 4c 49 54 45 5f 4e 4f 4c 46 53 3a 20 e SQLITE_NOLFS:
1260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
1270: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e 4f ame = "SQLITE_NO
1280: 4c 46 53 22 3b 20 20 20 20 20 20 20 20 20 20 20 LFS";
1290: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
12a0: 65 20 53 51 4c 49 54 45 5f 41 55 54 48 3a 20 20 e SQLITE_AUTH:
12b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
12c0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 41 55 ame = "SQLITE_AU
12d0: 54 48 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 TH";
12e0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
12f0: 65 20 53 51 4c 49 54 45 5f 46 4f 52 4d 41 54 3a e SQLITE_FORMAT:
1300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
1310: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 46 4f ame = "SQLITE_FO
1320: 52 4d 41 54 22 3b 20 20 20 20 20 20 20 20 20 20 RMAT";
1330: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1340: 65 20 53 51 4c 49 54 45 5f 52 41 4e 47 45 3a 20 e SQLITE_RANGE:
1350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
1360: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 41 ame = "SQLITE_RA
1370: 4e 47 45 22 3b 20 20 20 20 20 20 20 20 20 20 20 NGE";
1380: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1390: 65 20 53 51 4c 49 54 45 5f 4e 4f 54 41 44 42 3a e SQLITE_NOTADB:
13a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
13b0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e 4f ame = "SQLITE_NO
13c0: 54 41 44 42 22 3b 20 20 20 20 20 20 20 20 20 20 TADB";
13d0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
13e0: 65 20 53 51 4c 49 54 45 5f 52 4f 57 3a 20 20 20 e SQLITE_ROW:
13f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
1400: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 4f ame = "SQLITE_RO
1410: 57 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 W";
1420: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1430: 65 20 53 51 4c 49 54 45 5f 44 4f 4e 45 3a 20 20 e SQLITE_DONE:
1440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 4e zN
1450: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 44 4f ame = "SQLITE_DO
1460: 4e 45 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 NE";
1470: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1480: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 52 e SQLITE_IOERR_R
1490: 45 41 44 3a 20 20 20 20 20 20 20 20 20 20 7a 4e EAD: zN
14a0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
14b0: 45 52 52 5f 52 45 41 44 22 3b 20 20 20 20 20 20 ERR_READ";
14c0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
14d0: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 53 e SQLITE_IOERR_S
14e0: 48 4f 52 54 5f 52 45 41 44 3a 20 20 20 20 7a 4e HORT_READ: zN
14f0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
1500: 45 52 52 5f 53 48 4f 52 54 5f 52 45 41 44 22 3b ERR_SHORT_READ";
1510: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1520: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 57 e SQLITE_IOERR_W
1530: 52 49 54 45 3a 20 20 20 20 20 20 20 20 20 7a 4e RITE: zN
1540: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
1550: 45 52 52 5f 57 52 49 54 45 22 3b 20 20 20 20 20 ERR_WRITE";
1560: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1570: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 46 e SQLITE_IOERR_F
1580: 53 59 4e 43 3a 20 20 20 20 20 20 20 20 20 7a 4e SYNC: zN
1590: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
15a0: 45 52 52 5f 46 53 59 4e 43 22 3b 20 20 20 20 20 ERR_FSYNC";
15b0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
15c0: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 44 e SQLITE_IOERR_D
15d0: 49 52 5f 46 53 59 4e 43 3a 20 20 20 20 20 7a 4e IR_FSYNC: zN
15e0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
15f0: 45 52 52 5f 44 49 52 5f 46 53 59 4e 43 22 3b 20 ERR_DIR_FSYNC";
1600: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1610: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 54 e SQLITE_IOERR_T
1620: 52 55 4e 43 41 54 45 3a 20 20 20 20 20 20 7a 4e RUNCATE: zN
1630: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
1640: 45 52 52 5f 54 52 55 4e 43 41 54 45 22 3b 20 20 ERR_TRUNCATE";
1650: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1660: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 46 e SQLITE_IOERR_F
1670: 53 54 41 54 3a 20 20 20 20 20 20 20 20 20 7a 4e STAT: zN
1680: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
1690: 45 52 52 5f 46 53 54 41 54 22 3b 20 20 20 20 20 ERR_FSTAT";
16a0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
16b0: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 55 e SQLITE_IOERR_U
16c0: 4e 4c 4f 43 4b 3a 20 20 20 20 20 20 20 20 7a 4e NLOCK: zN
16d0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
16e0: 45 52 52 5f 55 4e 4c 4f 43 4b 22 3b 20 20 20 20 ERR_UNLOCK";
16f0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1700: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 52 e SQLITE_IOERR_R
1710: 44 4c 4f 43 4b 3a 20 20 20 20 20 20 20 20 7a 4e DLOCK: zN
1720: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
1730: 45 52 52 5f 52 44 4c 4f 43 4b 22 3b 20 20 20 20 ERR_RDLOCK";
1740: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1750: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 44 e SQLITE_IOERR_D
1760: 45 4c 45 54 45 3a 20 20 20 20 20 20 20 20 7a 4e ELETE: zN
1770: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
1780: 45 52 52 5f 44 45 4c 45 54 45 22 3b 20 20 20 20 ERR_DELETE";
1790: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
17a0: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 42 e SQLITE_IOERR_B
17b0: 4c 4f 43 4b 45 44 3a 20 20 20 20 20 20 20 7a 4e LOCKED: zN
17c0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
17d0: 45 52 52 5f 42 4c 4f 43 4b 45 44 22 3b 20 20 20 ERR_BLOCKED";
17e0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
17f0: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 4e e SQLITE_IOERR_N
1800: 4f 4d 45 4d 3a 20 20 20 20 20 20 20 20 20 7a 4e OMEM: zN
1810: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
1820: 45 52 52 5f 4e 4f 4d 45 4d 22 3b 20 20 20 20 20 ERR_NOMEM";
1830: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1840: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 41 e SQLITE_IOERR_A
1850: 43 43 45 53 53 3a 20 20 20 20 20 20 20 20 7a 4e CCESS: zN
1860: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f ame = "SQLITE_IO
1870: 45 52 52 5f 41 43 43 45 53 53 22 3b 20 20 20 20 ERR_ACCESS";
1880: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
1890: 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 43 e SQLITE_IOERR_C
18a0: 48 45 43 4b 52 45 53 45 52 56 45 44 4c 4f 43 4b HECKRESERVEDLOCK
18b0: 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 :.
18c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
18d0: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 zName = "SQLITE
18e0: 5f 49 4f 45 52 52 5f 43 48 45 43 4b 52 45 53 45 _IOERR_CHECKRESE
18f0: 52 56 45 44 4c 4f 43 4b 22 3b 20 62 72 65 61 6b RVEDLOCK"; break
1900: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
1910: 45 5f 49 4f 45 52 52 5f 4c 4f 43 4b 3a 20 20 20 E_IOERR_LOCK:
1920: 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 zName = "
1930: 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 4c 4f 43 SQLITE_IOERR_LOC
1940: 4b 22 3b 20 20 20 20 20 20 20 20 62 72 65 61 6b K"; break
1950: 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 20 20 ;. default:
1960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1970: 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 zName = "
1980: 53 51 4c 49 54 45 5f 55 6e 6b 6e 6f 77 6e 22 3b SQLITE_Unknown";
1990: 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b break
19a0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a ;. }. return z
19b0: 4e 61 6d 65 3b 0a 7d 0a 23 64 65 66 69 6e 65 20 Name;.}.#define
19c0: 74 31 45 72 72 6f 72 4e 61 6d 65 20 73 71 6c 69 t1ErrorName sqli
19d0: 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 te3TestErrorName
19e0: 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 ../*.** Convert
19f0: 61 6e 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a an sqlite3_stmt*
1a00: 20 69 6e 74 6f 20 61 6e 20 73 71 6c 69 74 65 33 into an sqlite3
1a10: 2a 2e 20 20 54 68 69 73 20 64 65 70 65 6e 64 73 *. This depends
1a20: 20 6f 6e 20 74 68 65 0a 2a 2a 20 66 61 63 74 20 on the.** fact
1a30: 74 68 61 74 20 74 68 65 20 73 71 6c 69 74 65 33 that the sqlite3
1a40: 2a 20 69 73 20 74 68 65 20 66 69 72 73 74 20 66 * is the first f
1a50: 69 65 6c 64 20 69 6e 20 74 68 65 20 56 64 62 65 ield in the Vdbe
1a60: 20 73 74 72 75 63 74 75 72 65 2e 0a 2a 2f 0a 23 structure..*/.#
1a70: 64 65 66 69 6e 65 20 53 74 6d 74 54 6f 44 62 28 define StmtToDb(
1a80: 58 29 20 20 20 73 71 6c 69 74 65 33 5f 64 62 5f X) sqlite3_db_
1a90: 68 61 6e 64 6c 65 28 58 29 0a 0a 2f 2a 0a 2a 2a handle(X)../*.**
1aa0: 20 43 68 65 63 6b 20 61 20 72 65 74 75 72 6e 20 Check a return
1ab0: 76 61 6c 75 65 20 74 6f 20 6d 61 6b 65 20 73 75 value to make su
1ac0: 72 65 20 69 74 20 61 67 72 65 65 73 20 77 69 74 re it agrees wit
1ad0: 68 20 74 68 65 20 72 65 73 75 6c 74 73 0a 2a 2a h the results.**
1ae0: 20 66 72 6f 6d 20 73 71 6c 69 74 65 33 5f 65 72 from sqlite3_er
1af0: 72 63 6f 64 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71 rcode..*/.int sq
1b00: 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 lite3TestErrCode
1b10: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
1b20: 65 72 70 2c 20 73 71 6c 69 74 65 33 20 2a 64 62 erp, sqlite3 *db
1b30: 2c 20 69 6e 74 20 72 63 29 7b 0a 20 20 69 66 28 , int rc){. if(
1b40: 20 73 71 6c 69 74 65 33 5f 74 68 72 65 61 64 73 sqlite3_threads
1b50: 61 66 65 28 29 3d 3d 30 20 26 26 20 72 63 21 3d afe()==0 && rc!=
1b60: 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 26 26 SQLITE_MISUSE &&
1b70: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 0a 20 rc!=SQLITE_OK.
1b80: 20 20 26 26 20 73 71 6c 69 74 65 33 5f 65 72 72 && sqlite3_err
1b90: 63 6f 64 65 28 64 62 29 21 3d 72 63 20 29 7b 0a code(db)!=rc ){.
1ba0: 20 20 20 20 63 68 61 72 20 7a 42 75 66 5b 32 30 char zBuf[20
1bb0: 30 5d 3b 0a 20 20 20 20 69 6e 74 20 72 32 20 3d 0];. int r2 =
1bc0: 20 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 sqlite3_errcode
1bd0: 28 64 62 29 3b 0a 20 20 20 20 73 70 72 69 6e 74 (db);. sprint
1be0: 66 28 7a 42 75 66 2c 20 22 65 72 72 6f 72 20 63 f(zBuf, "error c
1bf0: 6f 64 65 20 25 73 20 28 25 64 29 20 64 6f 65 73 ode %s (%d) does
1c00: 20 6e 6f 74 20 6d 61 74 63 68 20 73 71 6c 69 74 not match sqlit
1c10: 65 33 5f 65 72 72 63 6f 64 65 20 25 73 20 28 25 e3_errcode %s (%
1c20: 64 29 22 2c 0a 20 20 20 20 20 20 20 74 31 45 72 d)",. t1Er
1c30: 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 72 63 2c rorName(rc), rc,
1c40: 20 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 32 29 t1ErrorName(r2)
1c50: 2c 20 72 32 29 3b 0a 20 20 20 20 54 63 6c 5f 52 , r2);. Tcl_R
1c60: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 esetResult(inter
1c70: 70 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 p);. Tcl_Appe
1c80: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1c90: 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 20 20 72 zBuf, 0);. r
1ca0: 65 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 72 eturn 1;. }. r
1cb0: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a eturn 0;.}../*.*
1cc0: 2a 20 44 65 63 6f 64 65 20 61 20 70 6f 69 6e 74 * Decode a point
1cd0: 65 72 20 74 6f 20 61 6e 20 73 71 6c 69 74 65 33 er to an sqlite3
1ce0: 5f 73 74 6d 74 20 6f 62 6a 65 63 74 2e 0a 2a 2f _stmt object..*/
1cf0: 0a 73 74 61 74 69 63 20 69 6e 74 20 67 65 74 53 .static int getS
1d00: 74 6d 74 50 6f 69 6e 74 65 72 28 0a 20 20 54 63 tmtPointer(. Tc
1d10: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1d20: 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 , . const char
1d30: 2a 7a 41 72 67 2c 20 20 0a 20 20 73 71 6c 69 74 *zArg, . sqlit
1d40: 65 33 5f 73 74 6d 74 20 2a 2a 70 70 53 74 6d 74 e3_stmt **ppStmt
1d50: 0a 29 7b 0a 20 20 2a 70 70 53 74 6d 74 20 3d 20 .){. *ppStmt =
1d60: 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a 29 73 (sqlite3_stmt*)s
1d70: 71 6c 69 74 65 33 54 65 73 74 54 65 78 74 54 6f qlite3TestTextTo
1d80: 50 74 72 28 7a 41 72 67 29 3b 0a 20 20 72 65 74 Ptr(zArg);. ret
1d90: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
1da0: 2a 0a 2a 2a 20 47 65 6e 65 72 61 74 65 20 61 20 *.** Generate a
1db0: 74 65 78 74 20 72 65 70 72 65 73 65 6e 74 61 74 text representat
1dc0: 69 6f 6e 20 6f 66 20 61 20 70 6f 69 6e 74 65 72 ion of a pointer
1dd0: 20 74 68 61 74 20 63 61 6e 20 62 65 20 75 6e 64 that can be und
1de0: 65 72 73 74 6f 6f 64 0a 2a 2a 20 62 79 20 74 68 erstood.** by th
1df0: 65 20 67 65 74 44 62 50 6f 69 6e 74 65 72 20 61 e getDbPointer a
1e00: 6e 64 20 67 65 74 56 6d 50 6f 69 6e 74 65 72 20 nd getVmPointer
1e10: 72 6f 75 74 69 6e 65 73 20 61 62 6f 76 65 2e 0a routines above..
1e20: 2a 2a 0a 2a 2a 20 54 68 65 20 70 72 6f 62 6c 65 **.** The proble
1e30: 6d 20 69 73 2c 20 6f 6e 20 73 6f 6d 65 20 6d 61 m is, on some ma
1e40: 63 68 69 6e 65 73 20 28 53 6f 6c 61 72 69 73 29 chines (Solaris)
1e50: 20 69 66 20 79 6f 75 20 64 6f 20 61 20 70 72 69 if you do a pri
1e60: 6e 74 66 20 77 69 74 68 0a 2a 2a 20 22 25 70 22 ntf with.** "%p"
1e70: 20 79 6f 75 20 63 61 6e 6e 6f 74 20 74 75 72 6e you cannot turn
1e80: 20 61 72 6f 75 6e 64 20 61 6e 64 20 64 6f 20 61 around and do a
1e90: 20 73 63 61 6e 66 20 77 69 74 68 20 74 68 65 20 scanf with the
1ea0: 73 61 6d 65 20 22 25 70 22 20 61 6e 64 0a 2a 2a same "%p" and.**
1eb0: 20 67 65 74 20 79 6f 75 72 20 70 6f 69 6e 74 65 get your pointe
1ec0: 72 20 62 61 63 6b 2e 20 20 59 6f 75 20 68 61 76 r back. You hav
1ed0: 65 20 74 6f 20 70 72 65 70 65 6e 64 20 61 20 22 e to prepend a "
1ee0: 30 78 22 20 62 65 66 6f 72 65 20 69 74 20 77 69 0x" before it wi
1ef0: 6c 6c 0a 2a 2a 20 77 6f 72 6b 2e 20 20 4f 72 20 ll.** work. Or
1f00: 61 74 20 6c 65 61 73 74 20 74 68 61 74 20 69 73 at least that is
1f10: 20 77 68 61 74 20 69 73 20 72 65 70 6f 72 74 65 what is reporte
1f20: 64 20 74 6f 20 6d 65 20 28 64 72 68 29 2e 20 20 d to me (drh).
1f30: 42 75 74 20 74 68 69 73 0a 2a 2a 20 62 65 68 61 But this.** beha
1f40: 76 69 6f 72 20 76 61 72 69 65 73 20 66 72 6f 6d vior varies from
1f50: 20 6d 61 63 68 69 6e 65 20 74 6f 20 6d 61 63 68 machine to mach
1f60: 69 6e 65 2e 20 20 54 68 65 20 73 6f 6c 75 74 69 ine. The soluti
1f70: 6f 6e 20 75 73 65 64 20 68 65 72 20 69 73 0a 2a on used her is.*
1f80: 2a 20 74 6f 20 74 65 73 74 20 74 68 65 20 73 74 * to test the st
1f90: 72 69 6e 67 20 72 69 67 68 74 20 61 66 74 65 72 ring right after
1fa0: 20 69 74 20 69 73 20 67 65 6e 65 72 61 74 65 64 it is generated
1fb0: 20 74 6f 20 73 65 65 20 69 66 20 69 74 20 63 61 to see if it ca
1fc0: 6e 20 62 65 0a 2a 2a 20 75 6e 64 65 72 73 74 6f n be.** understo
1fd0: 6f 64 20 62 79 20 73 63 61 6e 66 2c 20 61 6e 64 od by scanf, and
1fe0: 20 69 66 20 6e 6f 74 2c 20 74 72 79 20 70 72 65 if not, try pre
1ff0: 70 65 6e 64 69 6e 67 20 61 6e 20 22 30 78 22 20 pending an "0x"
2000: 74 6f 20 73 65 65 20 69 66 0a 2a 2a 20 74 68 61 to see if.** tha
2010: 74 20 68 65 6c 70 73 2e 20 20 49 66 20 6e 6f 74 t helps. If not
2020: 68 69 6e 67 20 77 6f 72 6b 73 2c 20 61 20 66 61 hing works, a fa
2030: 74 61 6c 20 65 72 72 6f 72 20 69 73 20 67 65 6e tal error is gen
2040: 65 72 61 74 65 64 2e 0a 2a 2f 0a 69 6e 74 20 73 erated..*/.int s
2050: 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 50 6f qlite3TestMakePo
2060: 69 6e 74 65 72 53 74 72 28 54 63 6c 5f 49 6e 74 interStr(Tcl_Int
2070: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 68 61 erp *interp, cha
2080: 72 20 2a 7a 50 74 72 2c 20 76 6f 69 64 20 2a 70 r *zPtr, void *p
2090: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 ){. sqlite3_snp
20a0: 72 69 6e 74 66 28 31 30 30 2c 20 7a 50 74 72 2c rintf(100, zPtr,
20b0: 20 22 25 70 22 2c 20 70 29 3b 0a 20 20 72 65 74 "%p", p);. ret
20c0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
20d0: 2a 0a 2a 2a 20 54 68 65 20 63 61 6c 6c 62 61 63 *.** The callbac
20e0: 6b 20 72 6f 75 74 69 6e 65 20 66 6f 72 20 73 71 k routine for sq
20f0: 6c 69 74 65 33 5f 65 78 65 63 5f 70 72 69 6e 74 lite3_exec_print
2100: 66 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 f()..*/.static i
2110: 6e 74 20 65 78 65 63 5f 70 72 69 6e 74 66 5f 63 nt exec_printf_c
2120: 62 28 76 6f 69 64 20 2a 70 41 72 67 2c 20 69 6e b(void *pArg, in
2130: 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 t argc, char **a
2140: 72 67 76 2c 20 63 68 61 72 20 2a 2a 6e 61 6d 65 rgv, char **name
2150: 29 7b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 ){. Tcl_DString
2160: 20 2a 73 74 72 20 3d 20 28 54 63 6c 5f 44 53 74 *str = (Tcl_DSt
2170: 72 69 6e 67 2a 29 70 41 72 67 3b 0a 20 20 69 6e ring*)pArg;. in
2180: 74 20 69 3b 0a 0a 20 20 69 66 28 20 54 63 6c 5f t i;.. if( Tcl_
2190: 44 53 74 72 69 6e 67 4c 65 6e 67 74 68 28 73 74 DStringLength(st
21a0: 72 29 3d 3d 30 20 29 7b 0a 20 20 20 20 66 6f 72 r)==0 ){. for
21b0: 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b (i=0; i<argc; i+
21c0: 2b 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 44 53 +){. Tcl_DS
21d0: 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d 65 tringAppendEleme
21e0: 6e 74 28 73 74 72 2c 20 6e 61 6d 65 5b 69 5d 20 nt(str, name[i]
21f0: 3f 20 6e 61 6d 65 5b 69 5d 20 3a 20 22 4e 55 4c ? name[i] : "NUL
2200: 4c 22 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 L");. }. }.
2210: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 for(i=0; i<argc
2220: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f ; i++){. Tcl_
2230: 44 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 DStringAppendEle
2240: 6d 65 6e 74 28 73 74 72 2c 20 61 72 67 76 5b 69 ment(str, argv[i
2250: 5d 20 3f 20 61 72 67 76 5b 69 5d 20 3a 20 22 4e ] ? argv[i] : "N
2260: 55 4c 4c 22 29 3b 0a 20 20 7d 0a 20 20 72 65 74 ULL");. }. ret
2270: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 urn 0;.}../*.**
2280: 54 68 65 20 49 2f 4f 20 74 72 61 63 69 6e 67 20 The I/O tracing
2290: 63 61 6c 6c 62 61 63 6b 2e 0a 2a 2f 0a 23 69 66 callback..*/.#if
22a0: 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 !defined(SQLITE
22b0: 5f 4f 4d 49 54 5f 54 52 41 43 45 29 20 26 26 20 _OMIT_TRACE) &&
22c0: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 45 defined(SQLITE_E
22d0: 4e 41 42 4c 45 5f 49 4f 54 52 41 43 45 29 0a 73 NABLE_IOTRACE).s
22e0: 74 61 74 69 63 20 46 49 4c 45 20 2a 69 6f 74 72 tatic FILE *iotr
22f0: 61 63 65 5f 66 69 6c 65 20 3d 20 30 3b 0a 73 74 ace_file = 0;.st
2300: 61 74 69 63 20 76 6f 69 64 20 69 6f 5f 74 72 61 atic void io_tra
2310: 63 65 5f 63 61 6c 6c 62 61 63 6b 28 63 6f 6e 73 ce_callback(cons
2320: 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c t char *zFormat,
2330: 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 74 ...){. va_list
2340: 20 61 70 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 ap;. va_start(
2350: 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 ap, zFormat);.
2360: 76 66 70 72 69 6e 74 66 28 69 6f 74 72 61 63 65 vfprintf(iotrace
2370: 5f 66 69 6c 65 2c 20 7a 46 6f 72 6d 61 74 2c 20 _file, zFormat,
2380: 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 ap);. va_end(ap
2390: 29 3b 0a 20 20 66 66 6c 75 73 68 28 69 6f 74 72 );. fflush(iotr
23a0: 61 63 65 5f 66 69 6c 65 29 3b 0a 7d 0a 23 65 6e ace_file);.}.#en
23b0: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 dif../*.** Usage
23c0: 3a 20 20 69 6f 5f 74 72 61 63 65 20 46 49 4c 45 : io_trace FILE
23d0: 4e 41 4d 45 0a 2a 2a 0a 2a 2a 20 54 75 72 6e 20 NAME.**.** Turn
23e0: 49 2f 4f 20 74 72 61 63 69 6e 67 20 6f 6e 20 6f I/O tracing on o
23f0: 72 20 6f 66 66 2e 20 20 49 66 20 46 49 4c 45 4e r off. If FILEN
2400: 41 4d 45 20 69 73 20 6e 6f 74 20 61 6e 20 65 6d AME is not an em
2410: 70 74 79 20 73 74 72 69 6e 67 2c 0a 2a 2a 20 49 pty string,.** I
2420: 2f 4f 20 74 72 61 63 69 6e 67 20 62 65 67 69 6e /O tracing begin
2430: 73 20 67 6f 69 6e 67 20 69 6e 74 6f 20 46 49 4c s going into FIL
2440: 45 4e 41 4d 45 2e 20 49 66 20 46 49 4c 45 4e 41 ENAME. If FILENA
2450: 4d 45 20 69 73 20 61 6e 20 65 6d 70 74 79 0a 2a ME is an empty.*
2460: 2a 20 73 74 72 69 6e 67 2c 20 49 2f 4f 20 74 72 * string, I/O tr
2470: 61 63 69 6e 67 20 69 73 20 74 75 72 6e 65 64 20 acing is turned
2480: 6f 66 66 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 off..*/.static i
2490: 6e 74 20 74 65 73 74 5f 69 6f 5f 74 72 61 63 65 nt test_io_trace
24a0: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
24b0: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
24c0: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
24d0: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
24e0: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
24f0: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
2500: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
2510: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
2520: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
2530: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
2540: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
2550: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
2560: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 23 69 66 20 21 ment */.){.#if !
2570: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f defined(SQLITE_O
2580: 4d 49 54 5f 54 52 41 43 45 29 20 26 26 20 64 65 MIT_TRACE) && de
2590: 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 45 4e 41 fined(SQLITE_ENA
25a0: 42 4c 45 5f 49 4f 54 52 41 43 45 29 0a 20 20 69 BLE_IOTRACE). i
25b0: 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 f( argc!=2 ){.
25c0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
25d0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
25e0: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
25f0: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d be \"", argv[0]
2600: 2c 0a 20 20 20 20 20 20 20 20 20 20 22 20 46 49 ,. " FI
2610: 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 LENAME\"", 0);.
2620: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
2630: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 69 ROR;. }. if( i
2640: 6f 74 72 61 63 65 5f 66 69 6c 65 20 29 7b 0a 20 otrace_file ){.
2650: 20 20 20 69 66 28 20 69 6f 74 72 61 63 65 5f 66 if( iotrace_f
2660: 69 6c 65 21 3d 73 74 64 6f 75 74 20 26 26 20 69 ile!=stdout && i
2670: 6f 74 72 61 63 65 5f 66 69 6c 65 21 3d 73 74 64 otrace_file!=std
2680: 65 72 72 20 29 7b 0a 20 20 20 20 20 20 66 63 6c err ){. fcl
2690: 6f 73 65 28 69 6f 74 72 61 63 65 5f 66 69 6c 65 ose(iotrace_file
26a0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 6f 74 );. }. iot
26b0: 72 61 63 65 5f 66 69 6c 65 20 3d 20 30 3b 0a 20 race_file = 0;.
26c0: 20 20 20 73 71 6c 69 74 65 33 49 6f 54 72 61 63 sqlite3IoTrac
26d0: 65 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 e = 0;. }. if(
26e0: 20 61 72 67 76 5b 31 5d 5b 30 5d 20 29 7b 0a 20 argv[1][0] ){.
26f0: 20 20 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 if( strcmp(ar
2700: 67 76 5b 31 5d 2c 22 73 74 64 6f 75 74 22 29 3d gv[1],"stdout")=
2710: 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 6f 74 72 =0 ){. iotr
2720: 61 63 65 5f 66 69 6c 65 20 3d 20 73 74 64 6f 75 ace_file = stdou
2730: 74 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 t;. }else if(
2740: 20 73 74 72 63 6d 70 28 61 72 67 76 5b 31 5d 2c strcmp(argv[1],
2750: 22 73 74 64 65 72 72 22 29 3d 3d 30 20 29 7b 0a "stderr")==0 ){.
2760: 20 20 20 20 20 20 69 6f 74 72 61 63 65 5f 66 69 iotrace_fi
2770: 6c 65 20 3d 20 73 74 64 65 72 72 3b 0a 20 20 20 le = stderr;.
2780: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 69 6f }else{. io
2790: 74 72 61 63 65 5f 66 69 6c 65 20 3d 20 66 6f 70 trace_file = fop
27a0: 65 6e 28 61 72 67 76 5b 31 5d 2c 20 22 77 22 29 en(argv[1], "w")
27b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 ;. }. sqli
27c0: 74 65 33 49 6f 54 72 61 63 65 20 3d 20 69 6f 5f te3IoTrace = io_
27d0: 74 72 61 63 65 5f 63 61 6c 6c 62 61 63 6b 3b 0a trace_callback;.
27e0: 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 }.#endif. ret
27f0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a urn TCL_OK;.}...
2800: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
2810: 6c 69 74 65 33 5f 65 78 65 63 5f 70 72 69 6e 74 lite3_exec_print
2820: 66 20 20 44 42 20 20 46 4f 52 4d 41 54 20 20 53 f DB FORMAT S
2830: 54 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f TRING.**.** Invo
2840: 6b 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 65 ke the sqlite3_e
2850: 78 65 63 5f 70 72 69 6e 74 66 28 29 20 69 6e 74 xec_printf() int
2860: 65 72 66 61 63 65 20 75 73 69 6e 67 20 74 68 65 erface using the
2870: 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 0a 2a open database.*
2880: 2a 20 44 42 2e 20 20 54 68 65 20 53 51 4c 20 69 * DB. The SQL i
2890: 73 20 74 68 65 20 73 74 72 69 6e 67 20 46 4f 52 s the string FOR
28a0: 4d 41 54 2e 20 20 54 68 65 20 66 6f 72 6d 61 74 MAT. The format
28b0: 20 73 74 72 69 6e 67 20 73 68 6f 75 6c 64 20 63 string should c
28c0: 6f 6e 74 61 69 6e 0a 2a 2a 20 6f 6e 65 20 25 73 ontain.** one %s
28d0: 20 6f 72 20 25 71 2e 20 20 53 54 52 49 4e 47 20 or %q. STRING
28e0: 69 73 20 74 68 65 20 76 61 6c 75 65 20 69 6e 73 is the value ins
28f0: 65 72 74 65 64 20 69 6e 74 6f 20 25 73 20 6f 72 erted into %s or
2900: 20 25 71 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 %q..*/.static i
2910: 6e 74 20 74 65 73 74 5f 65 78 65 63 5f 70 72 69 nt test_exec_pri
2920: 6e 74 66 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 ntf(. void *Not
2930: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
2940: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
2950: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
2960: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
2970: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
2980: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
2990: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
29a0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
29b0: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
29c0: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
29d0: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
29e0: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
29f0: 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 54 sqlite3 *db;. T
2a00: 63 6c 5f 44 53 74 72 69 6e 67 20 73 74 72 3b 0a cl_DString str;.
2a10: 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 int rc;. char
2a20: 20 2a 7a 45 72 72 20 3d 20 30 3b 0a 20 20 63 68 *zErr = 0;. ch
2a30: 61 72 20 2a 7a 53 71 6c 3b 0a 20 20 63 68 61 72 ar *zSql;. char
2a40: 20 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 69 66 28 zBuf[30];. if(
2a50: 20 61 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 argc!=4 ){.
2a60: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
2a70: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
2a80: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
2a90: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 e \"", argv[0],
2aa0: 0a 20 20 20 20 20 20 20 22 20 44 42 20 46 4f 52 . " DB FOR
2ab0: 4d 41 54 20 53 54 52 49 4e 47 22 2c 20 30 29 3b MAT STRING", 0);
2ac0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2ad0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
2ae0: 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
2af0: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 terp, argv[1], &
2b00: 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
2b10: 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 44 53 _ERROR;. Tcl_DS
2b20: 74 72 69 6e 67 49 6e 69 74 28 26 73 74 72 29 3b tringInit(&str);
2b30: 0a 20 20 7a 53 71 6c 20 3d 20 73 71 6c 69 74 65 . zSql = sqlite
2b40: 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 32 3_mprintf(argv[2
2b50: 5d 2c 20 61 72 67 76 5b 33 5d 29 3b 0a 20 20 72 ], argv[3]);. r
2b60: 63 20 3d 20 73 71 6c 69 74 65 33 5f 65 78 65 63 c = sqlite3_exec
2b70: 28 64 62 2c 20 7a 53 71 6c 2c 20 65 78 65 63 5f (db, zSql, exec_
2b80: 70 72 69 6e 74 66 5f 63 62 2c 20 26 73 74 72 2c printf_cb, &str,
2b90: 20 26 7a 45 72 72 29 3b 0a 20 20 73 71 6c 69 74 &zErr);. sqlit
2ba0: 65 33 5f 66 72 65 65 28 7a 53 71 6c 29 3b 0a 20 e3_free(zSql);.
2bb0: 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 sprintf(zBuf, "
2bc0: 25 64 22 2c 20 72 63 29 3b 0a 20 20 54 63 6c 5f %d", rc);. Tcl_
2bd0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
2be0: 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 54 terp, zBuf);. T
2bf0: 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 cl_AppendElement
2c00: 28 69 6e 74 65 72 70 2c 20 72 63 3d 3d 53 51 4c (interp, rc==SQL
2c10: 49 54 45 5f 4f 4b 20 3f 20 54 63 6c 5f 44 53 74 ITE_OK ? Tcl_DSt
2c20: 72 69 6e 67 56 61 6c 75 65 28 26 73 74 72 29 20 ringValue(&str)
2c30: 3a 20 7a 45 72 72 29 3b 0a 20 20 54 63 6c 5f 44 : zErr);. Tcl_D
2c40: 53 74 72 69 6e 67 46 72 65 65 28 26 73 74 72 29 StringFree(&str)
2c50: 3b 0a 20 20 69 66 28 20 7a 45 72 72 20 29 20 73 ;. if( zErr ) s
2c60: 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 45 72 72 qlite3_free(zErr
2c70: 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
2c80: 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
2c90: 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 rp, db, rc) ) re
2ca0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2cb0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
2cc0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
2cd0: 20 20 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 68 sqlite3_exec_h
2ce0: 65 78 20 20 44 42 20 20 48 45 58 0a 2a 2a 0a 2a ex DB HEX.**.*
2cf0: 2a 20 49 6e 76 6f 6b 65 20 74 68 65 20 73 71 6c * Invoke the sql
2d00: 69 74 65 33 5f 65 78 65 63 28 29 20 6f 6e 20 61 ite3_exec() on a
2d10: 20 73 74 72 69 6e 67 20 74 68 61 74 20 69 73 20 string that is
2d20: 6f 62 74 61 69 6e 65 64 20 62 79 20 74 72 61 6e obtained by tran
2d30: 73 6c 61 74 69 6e 67 0a 2a 2a 20 48 45 58 20 69 slating.** HEX i
2d40: 6e 74 6f 20 41 53 43 49 49 2e 20 20 4d 6f 73 74 nto ASCII. Most
2d50: 20 63 68 61 72 61 63 74 65 72 73 20 61 72 65 20 characters are
2d60: 74 72 61 6e 73 6c 61 74 65 64 20 61 73 20 69 73 translated as is
2d70: 2e 20 20 25 48 48 20 62 65 63 6f 6d 65 73 0a 2a . %HH becomes.*
2d80: 2a 20 61 20 68 65 78 20 63 68 61 72 61 63 74 65 * a hex characte
2d90: 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 r..*/.static int
2da0: 20 74 65 73 74 5f 65 78 65 63 5f 68 65 78 28 0a test_exec_hex(.
2db0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
2dc0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
2dd0: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
2de0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
2df0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
2e00: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
2e10: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
2e20: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
2e30: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
2e40: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
2e50: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
2e60: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
2e70: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 nt */.){. sqlit
2e80: 65 33 20 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 53 e3 *db;. Tcl_DS
2e90: 74 72 69 6e 67 20 73 74 72 3b 0a 20 20 69 6e 74 tring str;. int
2ea0: 20 72 63 2c 20 69 2c 20 6a 3b 0a 20 20 63 68 61 rc, i, j;. cha
2eb0: 72 20 2a 7a 45 72 72 20 3d 20 30 3b 0a 20 20 63 r *zErr = 0;. c
2ec0: 68 61 72 20 2a 7a 48 65 78 3b 0a 20 20 63 68 61 har *zHex;. cha
2ed0: 72 20 7a 53 71 6c 5b 35 30 30 5d 3b 0a 20 20 63 r zSql[500];. c
2ee0: 68 61 72 20 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 har zBuf[30];.
2ef0: 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 if( argc!=3 ){.
2f00: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
2f10: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
2f20: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
2f30: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
2f40: 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 44 42 20 ], . " DB
2f50: 48 45 58 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 HEX", 0);. re
2f60: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2f70: 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 }. if( getDbP
2f80: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 ointer(interp, a
2f90: 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 rgv[1], &db) ) r
2fa0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
2fb0: 0a 20 20 7a 48 65 78 20 3d 20 61 72 67 76 5b 32 . zHex = argv[2
2fc0: 5d 3b 0a 20 20 66 6f 72 28 69 3d 6a 3d 30 3b 20 ];. for(i=j=0;
2fd0: 69 3c 73 69 7a 65 6f 66 28 7a 53 71 6c 29 20 26 i<sizeof(zSql) &
2fe0: 26 20 7a 48 65 78 5b 6a 5d 3b 20 69 2b 2b 2c 20 & zHex[j]; i++,
2ff0: 6a 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 7a 48 j++){. if( zH
3000: 65 78 5b 6a 5d 3d 3d 27 25 27 20 26 26 20 7a 48 ex[j]=='%' && zH
3010: 65 78 5b 6a 2b 32 5d 20 26 26 20 7a 48 65 78 5b ex[j+2] && zHex[
3020: 6a 2b 32 5d 20 29 7b 0a 20 20 20 20 20 20 7a 53 j+2] ){. zS
3030: 71 6c 5b 69 5d 20 3d 20 28 74 65 73 74 48 65 78 ql[i] = (testHex
3040: 54 6f 49 6e 74 28 7a 48 65 78 5b 6a 2b 31 5d 29 ToInt(zHex[j+1])
3050: 3c 3c 34 29 20 2b 20 74 65 73 74 48 65 78 54 6f <<4) + testHexTo
3060: 49 6e 74 28 7a 48 65 78 5b 6a 2b 32 5d 29 3b 0a Int(zHex[j+2]);.
3070: 20 20 20 20 20 20 6a 20 2b 3d 20 32 3b 0a 20 20 j += 2;.
3080: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 7a }else{. z
3090: 53 71 6c 5b 69 5d 20 3d 20 7a 48 65 78 5b 6a 5d Sql[i] = zHex[j]
30a0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 7a 53 ;. }. }. zS
30b0: 71 6c 5b 69 5d 20 3d 20 30 3b 0a 20 20 54 63 6c ql[i] = 0;. Tcl
30c0: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 73 74 _DStringInit(&st
30d0: 72 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 r);. rc = sqlit
30e0: 65 33 5f 65 78 65 63 28 64 62 2c 20 7a 53 71 6c e3_exec(db, zSql
30f0: 2c 20 65 78 65 63 5f 70 72 69 6e 74 66 5f 63 62 , exec_printf_cb
3100: 2c 20 26 73 74 72 2c 20 26 7a 45 72 72 29 3b 0a , &str, &zErr);.
3110: 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 sprintf(zBuf,
3120: 22 25 64 22 2c 20 72 63 29 3b 0a 20 20 54 63 6c "%d", rc);. Tcl
3130: 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 _AppendElement(i
3140: 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 nterp, zBuf);.
3150: 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e Tcl_AppendElemen
3160: 74 28 69 6e 74 65 72 70 2c 20 72 63 3d 3d 53 51 t(interp, rc==SQ
3170: 4c 49 54 45 5f 4f 4b 20 3f 20 54 63 6c 5f 44 53 LITE_OK ? Tcl_DS
3180: 74 72 69 6e 67 56 61 6c 75 65 28 26 73 74 72 29 tringValue(&str)
3190: 20 3a 20 7a 45 72 72 29 3b 0a 20 20 54 63 6c 5f : zErr);. Tcl_
31a0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 73 74 72 DStringFree(&str
31b0: 29 3b 0a 20 20 69 66 28 20 7a 45 72 72 20 29 20 );. if( zErr )
31c0: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 45 72 sqlite3_free(zEr
31d0: 72 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 r);. if( sqlite
31e0: 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 3TestErrCode(int
31f0: 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 erp, db, rc) ) r
3200: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3210: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
3220: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
3230: 3a 20 20 64 62 5f 65 6e 74 65 72 20 44 42 0a 2a : db_enter DB.*
3240: 2a 20 20 20 20 20 20 20 20 20 64 62 5f 6c 65 61 * db_lea
3250: 76 65 20 44 42 0a 2a 2a 0a 2a 2a 20 45 6e 74 65 ve DB.**.** Ente
3260: 72 20 6f 72 20 6c 65 61 76 65 20 74 68 65 20 6d r or leave the m
3270: 75 74 65 78 20 6f 6e 20 61 20 64 61 74 61 62 61 utex on a databa
3280: 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 2a se connection..*
3290: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 64 62 5f /.static int db_
32a0: 65 6e 74 65 72 28 0a 20 20 76 6f 69 64 20 2a 4e enter(. void *N
32b0: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
32c0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
32d0: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
32e0: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
32f0: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
3300: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
3310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
3320: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
3330: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
3340: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
3350: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
3360: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
3370: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
3380: 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a if( argc!=2 ){.
3390: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
33a0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
33b0: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
33c0: 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b ld be \"", argv[
33d0: 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 44 42 0], . " DB
33e0: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
33f0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
3400: 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
3410: 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 ter(interp, argv
3420: 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 [1], &db) ) retu
3430: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3440: 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e sqlite3_mutex_en
3450: 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a ter(db->mutex);.
3460: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
3470: 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 64 62 .}.static int db
3480: 5f 6c 65 61 76 65 28 0a 20 20 76 6f 69 64 20 2a _leave(. void *
3490: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
34a0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
34b0: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
34c0: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
34d0: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
34e0: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
34f0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
3500: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
3510: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
3520: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
3530: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
3540: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
3550: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
3560: 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b if( argc!=2 ){
3570: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
3580: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
3590: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
35a0: 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 uld be \"", argv
35b0: 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 44 [0], . " D
35c0: 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 B", 0);. retu
35d0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
35e0: 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
35f0: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 nter(interp, arg
3600: 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 v[1], &db) ) ret
3610: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3620: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c sqlite3_mutex_l
3630: 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b eave(db->mutex);
3640: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
3650: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
3660: 3a 20 20 73 71 6c 69 74 65 33 5f 65 78 65 63 20 : sqlite3_exec
3670: 20 44 42 20 20 53 51 4c 0a 2a 2a 0a 2a 2a 20 49 DB SQL.**.** I
3680: 6e 76 6f 6b 65 20 74 68 65 20 73 71 6c 69 74 65 nvoke the sqlite
3690: 33 5f 65 78 65 63 20 69 6e 74 65 72 66 61 63 65 3_exec interface
36a0: 20 75 73 69 6e 67 20 74 68 65 20 6f 70 65 6e 20 using the open
36b0: 64 61 74 61 62 61 73 65 20 44 42 0a 2a 2f 0a 73 database DB.*/.s
36c0: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 tatic int test_e
36d0: 78 65 63 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 xec(. void *Not
36e0: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
36f0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
3700: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
3710: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
3720: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
3730: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
3740: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
3750: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
3760: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
3770: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
3780: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
3790: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
37a0: 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 54 sqlite3 *db;. T
37b0: 63 6c 5f 44 53 74 72 69 6e 67 20 73 74 72 3b 0a cl_DString str;.
37c0: 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 int rc;. char
37d0: 20 2a 7a 45 72 72 20 3d 20 30 3b 0a 20 20 63 68 *zErr = 0;. ch
37e0: 61 72 20 2a 7a 53 71 6c 3b 0a 20 20 69 6e 74 20 ar *zSql;. int
37f0: 69 2c 20 6a 3b 0a 20 20 63 68 61 72 20 7a 42 75 i, j;. char zBu
3800: 66 5b 33 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 f[30];. if( arg
3810: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
3820: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
3830: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
3840: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
3850: 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 ", argv[0], .
3860: 20 20 20 20 22 20 44 42 20 53 51 4c 22 2c 20 30 " DB SQL", 0
3870: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
3880: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
3890: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
38a0: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
38b0: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
38c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f CL_ERROR;. Tcl_
38d0: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 73 74 72 DStringInit(&str
38e0: 29 3b 0a 20 20 7a 53 71 6c 20 3d 20 73 71 6c 69 );. zSql = sqli
38f0: 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 te3_mprintf("%s"
3900: 2c 20 61 72 67 76 5b 32 5d 29 3b 0a 20 20 66 6f , argv[2]);. fo
3910: 72 28 69 3d 6a 3d 30 3b 20 7a 53 71 6c 5b 69 5d r(i=j=0; zSql[i]
3920: 3b 29 7b 0a 20 20 20 20 69 66 28 20 7a 53 71 6c ;){. if( zSql
3930: 5b 69 5d 3d 3d 27 25 27 20 29 7b 0a 20 20 20 20 [i]=='%' ){.
3940: 20 20 7a 53 71 6c 5b 6a 2b 2b 5d 20 3d 20 28 74 zSql[j++] = (t
3950: 65 73 74 48 65 78 54 6f 49 6e 74 28 7a 53 71 6c estHexToInt(zSql
3960: 5b 69 2b 31 5d 29 3c 3c 34 29 20 2b 20 74 65 73 [i+1])<<4) + tes
3970: 74 48 65 78 54 6f 49 6e 74 28 7a 53 71 6c 5b 69 tHexToInt(zSql[i
3980: 2b 32 5d 29 3b 0a 20 20 20 20 20 20 69 20 2b 3d +2]);. i +=
3990: 20 33 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 3;. }else{.
39a0: 20 20 20 20 20 7a 53 71 6c 5b 6a 2b 2b 5d 20 3d zSql[j++] =
39b0: 20 7a 53 71 6c 5b 69 2b 2b 5d 3b 0a 20 20 20 20 zSql[i++];.
39c0: 7d 0a 20 20 7d 0a 20 20 7a 53 71 6c 5b 6a 5d 20 }. }. zSql[j]
39d0: 3d 20 30 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 = 0;. rc = sqli
39e0: 74 65 33 5f 65 78 65 63 28 64 62 2c 20 7a 53 71 te3_exec(db, zSq
39f0: 6c 2c 20 65 78 65 63 5f 70 72 69 6e 74 66 5f 63 l, exec_printf_c
3a00: 62 2c 20 26 73 74 72 2c 20 26 7a 45 72 72 29 3b b, &str, &zErr);
3a10: 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 . sqlite3_free(
3a20: 7a 53 71 6c 29 3b 0a 20 20 73 70 72 69 6e 74 66 zSql);. sprintf
3a30: 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 72 63 29 (zBuf, "%d", rc)
3a40: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c ;. Tcl_AppendEl
3a50: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a 42 ement(interp, zB
3a60: 75 66 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e uf);. Tcl_Appen
3a70: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
3a80: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 3f rc==SQLITE_OK ?
3a90: 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 Tcl_DStringValu
3aa0: 65 28 26 73 74 72 29 20 3a 20 7a 45 72 72 29 3b e(&str) : zErr);
3ab0: 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 . Tcl_DStringFr
3ac0: 65 65 28 26 73 74 72 29 3b 0a 20 20 69 66 28 20 ee(&str);. if(
3ad0: 7a 45 72 72 20 29 20 73 71 6c 69 74 65 33 5f 66 zErr ) sqlite3_f
3ae0: 72 65 65 28 7a 45 72 72 29 3b 0a 20 20 69 66 28 ree(zErr);. if(
3af0: 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 sqlite3TestErrC
3b00: 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c 20 ode(interp, db,
3b10: 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c rc) ) return TCL
3b20: 5f 45 52 52 4f 52 3b 0a 20 20 72 65 74 75 72 6e _ERROR;. return
3b30: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
3b40: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
3b50: 33 5f 65 78 65 63 5f 6e 72 20 20 44 42 20 20 53 3_exec_nr DB S
3b60: 51 4c 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 QL.**.** Invoke
3b70: 74 68 65 20 73 71 6c 69 74 65 33 5f 65 78 65 63 the sqlite3_exec
3b80: 20 69 6e 74 65 72 66 61 63 65 20 75 73 69 6e 67 interface using
3b90: 20 74 68 65 20 6f 70 65 6e 20 64 61 74 61 62 61 the open databa
3ba0: 73 65 20 44 42 2e 20 20 44 69 73 63 61 72 64 0a se DB. Discard.
3bb0: 2a 2a 20 61 6c 6c 20 72 65 73 75 6c 74 73 0a 2a ** all results.*
3bc0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
3bd0: 74 5f 65 78 65 63 5f 6e 72 28 0a 20 20 76 6f 69 t_exec_nr(. voi
3be0: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
3bf0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
3c00: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
3c10: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
3c20: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
3c30: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
3c40: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
3c50: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
3c60: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
3c70: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
3c80: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
3c90: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
3ca0: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
3cb0: 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 b;. int rc;. c
3cc0: 68 61 72 20 2a 7a 45 72 72 20 3d 20 30 3b 0a 20 har *zErr = 0;.
3cd0: 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b 0a if( argc!=3 ){.
3ce0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
3cf0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
3d00: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
3d10: 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b ld be \"", argv[
3d20: 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 44 42 0], . " DB
3d30: 20 53 51 4c 22 2c 20 30 29 3b 0a 20 20 20 20 72 SQL", 0);. r
3d40: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3d50: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
3d60: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
3d70: 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 argv[1], &db) )
3d80: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3d90: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
3da0: 5f 65 78 65 63 28 64 62 2c 20 61 72 67 76 5b 32 _exec(db, argv[2
3db0: 5d 2c 20 30 2c 20 30 2c 20 26 7a 45 72 72 29 3b ], 0, 0, &zErr);
3dc0: 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 . if( sqlite3Te
3dd0: 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 stErrCode(interp
3de0: 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 , db, rc) ) retu
3df0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3e00: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
3e10: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
3e20: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
3e30: 7a 5f 74 65 73 74 20 20 53 45 50 41 52 41 54 4f z_test SEPARATO
3e40: 52 20 20 41 52 47 30 20 20 41 52 47 31 20 2e 2e R ARG0 ARG1 ..
3e50: 2e 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 ..**.** Test the
3e60: 20 25 7a 20 66 6f 72 6d 61 74 20 6f 66 20 73 71 %z format of sq
3e70: 6c 69 74 65 5f 6d 70 72 69 6e 74 66 28 29 2e 20 lite_mprintf().
3e80: 20 55 73 65 20 6d 75 6c 74 69 70 6c 65 20 6d 70 Use multiple mp
3e90: 72 69 6e 74 66 28 29 20 63 61 6c 6c 73 20 74 6f rintf() calls to
3ea0: 20 0a 2a 2a 20 63 6f 6e 63 61 74 65 6e 61 74 65 .** concatenate
3eb0: 20 61 72 67 30 20 74 68 72 6f 75 67 68 20 61 72 arg0 through ar
3ec0: 67 6e 20 75 73 69 6e 67 20 73 65 70 61 72 61 74 gn using separat
3ed0: 6f 72 20 61 73 20 74 68 65 20 73 65 70 61 72 61 or as the separa
3ee0: 74 6f 72 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 74 tor..** Return t
3ef0: 68 65 20 72 65 73 75 6c 74 2e 0a 2a 2f 0a 73 74 he result..*/.st
3f00: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6d 70 atic int test_mp
3f10: 72 69 6e 74 66 5f 7a 28 0a 20 20 76 6f 69 64 20 rintf_z(. void
3f20: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f *NotUsed,. Tcl_
3f30: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
3f40: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
3f50: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
3f60: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
3f70: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 and */. int arg
3f80: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
3f90: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
3fa0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 uments */. char
3fb0: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 **argv
3fc0: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 /* Text of ea
3fd0: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 ch argument */.)
3fe0: 7b 0a 20 20 63 68 61 72 20 2a 7a 52 65 73 75 6c {. char *zResul
3ff0: 74 20 3d 20 30 3b 0a 20 20 69 6e 74 20 69 3b 0a t = 0;. int i;.
4000: 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 61 72 . for(i=2; i<ar
4010: 67 63 20 26 26 20 28 69 3d 3d 32 20 7c 7c 20 7a gc && (i==2 || z
4020: 52 65 73 75 6c 74 29 3b 20 69 2b 2b 29 7b 0a 20 Result); i++){.
4030: 20 20 20 7a 52 65 73 75 6c 74 20 3d 20 73 71 6c zResult = sql
4040: 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 7a ite3_mprintf("%z
4050: 25 73 25 73 22 2c 20 7a 52 65 73 75 6c 74 2c 20 %s%s", zResult,
4060: 61 72 67 76 5b 31 5d 2c 20 61 72 67 76 5b 69 5d argv[1], argv[i]
4070: 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 41 70 70 );. }. Tcl_App
4080: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
4090: 2c 20 7a 52 65 73 75 6c 74 2c 20 30 29 3b 0a 20 , zResult, 0);.
40a0: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 52 sqlite3_free(zR
40b0: 65 73 75 6c 74 29 3b 0a 20 20 72 65 74 75 72 6e esult);. return
40c0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
40d0: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
40e0: 33 5f 6d 70 72 69 6e 74 66 5f 6e 5f 74 65 73 74 3_mprintf_n_test
40f0: 20 20 53 54 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 54 STRING.**.** T
4100: 65 73 74 20 74 68 65 20 25 6e 20 66 6f 72 6d 61 est the %n forma
4110: 74 20 6f 66 20 73 71 6c 69 74 65 5f 6d 70 72 69 t of sqlite_mpri
4120: 6e 74 66 28 29 2e 20 20 52 65 74 75 72 6e 20 74 ntf(). Return t
4130: 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 he length of the
4140: 0a 2a 2a 20 69 6e 70 75 74 20 73 74 72 69 6e 67 .** input string
4150: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
4160: 74 65 73 74 5f 6d 70 72 69 6e 74 66 5f 6e 28 0a test_mprintf_n(.
4170: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
4180: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
4190: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
41a0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
41b0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
41c0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
41d0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
41e0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
41f0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
4200: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
4210: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
4220: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
4230: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 20 nt */.){. char
4240: 2a 7a 53 74 72 3b 0a 20 20 69 6e 74 20 6e 20 3d *zStr;. int n =
4250: 20 30 3b 0a 20 20 7a 53 74 72 20 3d 20 73 71 6c 0;. zStr = sql
4260: 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 ite3_mprintf("%s
4270: 25 6e 22 2c 20 61 72 67 76 5b 31 5d 2c 20 26 6e %n", argv[1], &n
4280: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 );. sqlite3_fre
4290: 65 28 7a 53 74 72 29 3b 0a 20 20 54 63 6c 5f 53 e(zStr);. Tcl_S
42a0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
42b0: 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 rp, Tcl_NewIntOb
42c0: 6a 28 6e 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 j(n));. return
42d0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
42e0: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
42f0: 5f 73 6e 70 72 69 6e 74 66 5f 69 6e 74 20 20 53 _snprintf_int S
4300: 49 5a 45 20 46 4f 52 4d 41 54 20 20 49 4e 54 0a IZE FORMAT INT.
4310: 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 6f **.** Test the o
4320: 66 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e f sqlite3_snprin
4330: 74 66 28 29 20 72 6f 75 74 69 6e 65 2e 20 20 53 tf() routine. S
4340: 49 5a 45 20 69 73 20 74 68 65 20 73 69 7a 65 20 IZE is the size
4350: 6f 66 20 74 68 65 0a 2a 2a 20 6f 75 74 70 75 74 of the.** output
4360: 20 62 75 66 66 65 72 20 69 6e 20 62 79 74 65 73 buffer in bytes
4370: 2e 20 20 54 68 65 20 6d 61 78 69 6d 75 6d 20 73 . The maximum s
4380: 69 7a 65 20 69 73 20 31 30 30 2e 20 20 46 4f 52 ize is 100. FOR
4390: 4d 41 54 20 69 73 20 74 68 65 0a 2a 2a 20 66 6f MAT is the.** fo
43a0: 72 6d 61 74 20 73 74 72 69 6e 67 2e 20 20 49 4e rmat string. IN
43b0: 54 20 69 73 20 61 20 73 69 6e 67 6c 65 20 69 6e T is a single in
43c0: 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 2e 20 teger argument.
43d0: 20 54 68 65 20 46 4f 52 4d 41 54 0a 2a 2a 20 73 The FORMAT.** s
43e0: 74 72 69 6e 67 20 6d 75 73 74 20 72 65 71 75 69 tring must requi
43f0: 72 65 20 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 re no more than
4400: 74 68 69 73 20 6f 6e 65 20 69 6e 74 65 67 65 72 this one integer
4410: 20 61 72 67 75 6d 65 6e 74 2e 20 20 49 66 0a 2a argument. If.*
4420: 2a 20 59 6f 75 20 70 61 73 73 20 69 6e 20 61 20 * You pass in a
4430: 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 74 68 format string th
4440: 61 74 20 72 65 71 75 69 72 65 73 20 6d 6f 72 65 at requires more
4450: 20 74 68 61 6e 20 6f 6e 65 20 61 72 67 75 6d 65 than one argume
4460: 6e 74 2c 0a 2a 2a 20 62 61 64 20 74 68 69 6e 67 nt,.** bad thing
4470: 73 20 77 69 6c 6c 20 68 61 70 70 65 6e 2e 0a 2a s will happen..*
4480: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
4490: 74 5f 73 6e 70 72 69 6e 74 66 5f 69 6e 74 28 0a t_snprintf_int(.
44a0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
44b0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
44c0: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
44d0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
44e0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
44f0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
4500: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
4510: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
4520: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
4530: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
4540: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
4550: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
4560: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 20 nt */.){. char
4570: 7a 53 74 72 5b 31 30 30 5d 3b 0a 20 20 69 6e 74 zStr[100];. int
4580: 20 6e 20 3d 20 61 74 6f 69 28 61 72 67 76 5b 31 n = atoi(argv[1
4590: 5d 29 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 ]);. const char
45a0: 20 2a 7a 46 6f 72 6d 61 74 20 3d 20 61 72 67 76 *zFormat = argv
45b0: 5b 32 5d 3b 0a 20 20 69 6e 74 20 61 31 20 3d 20 [2];. int a1 =
45c0: 61 74 6f 69 28 61 72 67 76 5b 33 5d 29 3b 0a 20 atoi(argv[3]);.
45d0: 20 69 66 28 20 6e 3e 73 69 7a 65 6f 66 28 7a 53 if( n>sizeof(zS
45e0: 74 72 29 20 29 20 6e 20 3d 20 73 69 7a 65 6f 66 tr) ) n = sizeof
45f0: 28 7a 53 74 72 29 3b 0a 20 20 73 71 6c 69 74 65 (zStr);. sqlite
4600: 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 3_snprintf(sizeo
4610: 66 28 7a 53 74 72 29 2c 20 7a 53 74 72 2c 20 22 f(zStr), zStr, "
4620: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 abcdefghijklmnop
4630: 71 72 73 74 75 76 77 78 79 7a 22 29 3b 0a 20 20 qrstuvwxyz");.
4640: 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 sqlite3_snprintf
4650: 28 6e 2c 20 7a 53 74 72 2c 20 7a 46 6f 72 6d 61 (n, zStr, zForma
4660: 74 2c 20 61 31 29 3b 0a 20 20 54 63 6c 5f 41 70 t, a1);. Tcl_Ap
4670: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
4680: 70 2c 20 7a 53 74 72 2c 20 30 29 3b 0a 20 20 72 p, zStr, 0);. r
4690: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
46a0: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f .#ifndef SQLITE_
46b0: 4f 4d 49 54 5f 47 45 54 5f 54 41 42 4c 45 0a 0a OMIT_GET_TABLE..
46c0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
46d0: 6c 69 74 65 33 5f 67 65 74 5f 74 61 62 6c 65 5f lite3_get_table_
46e0: 70 72 69 6e 74 66 20 20 44 42 20 20 46 4f 52 4d printf DB FORM
46f0: 41 54 20 20 53 54 52 49 4e 47 20 20 3f 2d 2d 6e AT STRING ?--n
4700: 6f 2d 63 6f 75 6e 74 73 3f 0a 2a 2a 0a 2a 2a 20 o-counts?.**.**
4710: 49 6e 76 6f 6b 65 20 74 68 65 20 73 71 6c 69 74 Invoke the sqlit
4720: 65 33 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 e3_get_table_pri
4730: 6e 74 66 28 29 20 69 6e 74 65 72 66 61 63 65 20 ntf() interface
4740: 75 73 69 6e 67 20 74 68 65 20 6f 70 65 6e 20 64 using the open d
4750: 61 74 61 62 61 73 65 0a 2a 2a 20 44 42 2e 20 20 atabase.** DB.
4760: 54 68 65 20 53 51 4c 20 69 73 20 74 68 65 20 73 The SQL is the s
4770: 74 72 69 6e 67 20 46 4f 52 4d 41 54 2e 20 20 54 tring FORMAT. T
4780: 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 he format string
4790: 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 69 6e 0a should contain.
47a0: 2a 2a 20 6f 6e 65 20 25 73 20 6f 72 20 25 71 2e ** one %s or %q.
47b0: 20 20 53 54 52 49 4e 47 20 69 73 20 74 68 65 20 STRING is the
47c0: 76 61 6c 75 65 20 69 6e 73 65 72 74 65 64 20 69 value inserted i
47d0: 6e 74 6f 20 25 73 20 6f 72 20 25 71 2e 0a 2a 2f nto %s or %q..*/
47e0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
47f0: 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74 _get_table_print
4800: 66 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 f(. void *NotUs
4810: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
4820: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
4830: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
4840: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
4850: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
4860: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
4870: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
4880: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
4890: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
48a0: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
48b0: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
48c0: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 ument */.){. sq
48d0: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 54 63 6c lite3 *db;. Tcl
48e0: 5f 44 53 74 72 69 6e 67 20 73 74 72 3b 0a 20 20 _DString str;.
48f0: 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 2a int rc;. char *
4900: 7a 45 72 72 20 3d 20 30 3b 0a 20 20 69 6e 74 20 zErr = 0;. int
4910: 6e 52 6f 77 2c 20 6e 43 6f 6c 3b 0a 20 20 63 68 nRow, nCol;. ch
4920: 61 72 20 2a 2a 61 52 65 73 75 6c 74 3b 0a 20 20 ar **aResult;.
4930: 69 6e 74 20 69 3b 0a 20 20 63 68 61 72 20 7a 42 int i;. char zB
4940: 75 66 5b 33 30 5d 3b 0a 20 20 63 68 61 72 20 2a uf[30];. char *
4950: 7a 53 71 6c 3b 0a 20 20 69 6e 74 20 72 65 73 43 zSql;. int resC
4960: 6f 75 6e 74 20 3d 20 2d 31 3b 0a 20 20 69 66 28 ount = -1;. if(
4970: 20 61 72 67 63 3d 3d 35 20 29 7b 0a 20 20 20 20 argc==5 ){.
4980: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 if( Tcl_GetInt(i
4990: 6e 74 65 72 70 2c 20 61 72 67 76 5b 34 5d 2c 20 nterp, argv[4],
49a0: 26 72 65 73 43 6f 75 6e 74 29 20 29 20 72 65 74 &resCount) ) ret
49b0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
49c0: 20 7d 0a 20 20 69 66 28 20 61 72 67 63 21 3d 34 }. if( argc!=4
49d0: 20 26 26 20 61 72 67 63 21 3d 35 20 29 7b 0a 20 && argc!=5 ){.
49e0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
49f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
4a00: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
4a10: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
4a20: 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 44 42 20 ], . " DB
4a30: 46 4f 52 4d 41 54 20 53 54 52 49 4e 47 20 3f 43 FORMAT STRING ?C
4a40: 4f 55 4e 54 3f 22 2c 20 30 29 3b 0a 20 20 20 20 OUNT?", 0);.
4a50: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4a60: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 ;. }. if( getD
4a70: 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c bPointer(interp,
4a80: 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 argv[1], &db) )
4a90: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
4aa0: 52 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 R;. Tcl_DString
4ab0: 49 6e 69 74 28 26 73 74 72 29 3b 0a 20 20 7a 53 Init(&str);. zS
4ac0: 71 6c 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 ql = sqlite3_mpr
4ad0: 69 6e 74 66 28 61 72 67 76 5b 32 5d 2c 61 72 67 intf(argv[2],arg
4ae0: 76 5b 33 5d 29 3b 0a 20 20 69 66 28 20 61 72 67 v[3]);. if( arg
4af0: 63 3d 3d 35 20 29 7b 0a 20 20 20 20 72 63 20 3d c==5 ){. rc =
4b00: 20 73 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 62 sqlite3_get_tab
4b10: 6c 65 28 64 62 2c 20 7a 53 71 6c 2c 20 26 61 52 le(db, zSql, &aR
4b20: 65 73 75 6c 74 2c 20 30 2c 20 30 2c 20 26 7a 45 esult, 0, 0, &zE
4b30: 72 72 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 rr);. }else{.
4b40: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 67 rc = sqlite3_g
4b50: 65 74 5f 74 61 62 6c 65 28 64 62 2c 20 7a 53 71 et_table(db, zSq
4b60: 6c 2c 20 26 61 52 65 73 75 6c 74 2c 20 26 6e 52 l, &aResult, &nR
4b70: 6f 77 2c 20 26 6e 43 6f 6c 2c 20 26 7a 45 72 72 ow, &nCol, &zErr
4b80: 29 3b 0a 20 20 20 20 72 65 73 43 6f 75 6e 74 20 );. resCount
4b90: 3d 20 28 6e 52 6f 77 2b 31 29 2a 6e 43 6f 6c 3b = (nRow+1)*nCol;
4ba0: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 66 . }. sqlite3_f
4bb0: 72 65 65 28 7a 53 71 6c 29 3b 0a 20 20 73 70 72 ree(zSql);. spr
4bc0: 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c intf(zBuf, "%d",
4bd0: 20 72 63 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 rc);. Tcl_Appe
4be0: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
4bf0: 2c 20 7a 42 75 66 29 3b 0a 20 20 69 66 28 20 72 , zBuf);. if( r
4c00: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a c==SQLITE_OK ){.
4c10: 20 20 20 20 69 66 28 20 61 72 67 63 3d 3d 34 20 if( argc==4
4c20: 29 7b 0a 20 20 20 20 20 20 73 70 72 69 6e 74 66 ){. sprintf
4c30: 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 6e 52 6f (zBuf, "%d", nRo
4c40: 77 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 w);. Tcl_Ap
4c50: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
4c60: 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 20 20 20 rp, zBuf);.
4c70: 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 sprintf(zBuf, "
4c80: 25 64 22 2c 20 6e 43 6f 6c 29 3b 0a 20 20 20 20 %d", nCol);.
4c90: 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d Tcl_AppendElem
4ca0: 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 ent(interp, zBuf
4cb0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 66 6f 72 );. }. for
4cc0: 28 69 3d 30 3b 20 69 3c 72 65 73 43 6f 75 6e 74 (i=0; i<resCount
4cd0: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 54 63 ; i++){. Tc
4ce0: 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 l_AppendElement(
4cf0: 69 6e 74 65 72 70 2c 20 61 52 65 73 75 6c 74 5b interp, aResult[
4d00: 69 5d 20 3f 20 61 52 65 73 75 6c 74 5b 69 5d 20 i] ? aResult[i]
4d10: 3a 20 22 4e 55 4c 4c 22 29 3b 0a 20 20 20 20 7d : "NULL");. }
4d20: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 . }else{. Tc
4d30: 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 l_AppendElement(
4d40: 69 6e 74 65 72 70 2c 20 7a 45 72 72 29 3b 0a 20 interp, zErr);.
4d50: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 }. sqlite3_fre
4d60: 65 5f 74 61 62 6c 65 28 61 52 65 73 75 6c 74 29 e_table(aResult)
4d70: 3b 0a 20 20 69 66 28 20 7a 45 72 72 20 29 20 73 ;. if( zErr ) s
4d80: 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 45 72 72 qlite3_free(zErr
4d90: 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
4da0: 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
4db0: 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 rp, db, rc) ) re
4dc0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
4dd0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
4de0: 0a 7d 0a 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 .}..#endif /* SQ
4df0: 4c 49 54 45 5f 4f 4d 49 54 5f 47 45 54 5f 54 41 LITE_OMIT_GET_TA
4e00: 42 4c 45 20 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a 20 55 BLE */.../*.** U
4e10: 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6c sage: sqlite3_l
4e20: 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 ast_insert_rowid
4e30: 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e DB.**.** Return
4e40: 73 20 74 68 65 20 69 6e 74 65 67 65 72 20 52 4f s the integer RO
4e50: 57 49 44 20 6f 66 20 74 68 65 20 6d 6f 73 74 20 WID of the most
4e60: 72 65 63 65 6e 74 20 69 6e 73 65 72 74 2e 0a 2a recent insert..*
4e70: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
4e80: 74 5f 6c 61 73 74 5f 72 6f 77 69 64 28 0a 20 20 t_last_rowid(.
4e90: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 void *NotUsed,.
4ea0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
4eb0: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
4ec0: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
4ed0: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
4ee0: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
4ef0: 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 t argc,
4f00: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
4f10: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
4f20: 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 char **argv
4f30: 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 /* Text
4f40: 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 of each argument
4f50: 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 */.){. sqlite3
4f60: 20 2a 64 62 3b 0a 20 20 63 68 61 72 20 7a 42 75 *db;. char zBu
4f70: 66 5b 33 30 5d 3b 0a 0a 20 20 69 66 28 20 61 72 f[30];.. if( ar
4f80: 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c gc!=2 ){. Tcl
4f90: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
4fa0: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
4fb0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
4fc0: 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 22 20 44 "", argv[0], " D
4fd0: 42 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 B\"", 0);. re
4fe0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
4ff0: 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 }. if( getDbP
5000: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 ointer(interp, a
5010: 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 rgv[1], &db) ) r
5020: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5030: 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c . sprintf(zBuf,
5040: 20 22 25 6c 6c 64 22 2c 20 73 71 6c 69 74 65 33 "%lld", sqlite3
5050: 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 _last_insert_row
5060: 69 64 28 64 62 29 29 3b 0a 20 20 54 63 6c 5f 41 id(db));. Tcl_A
5070: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
5080: 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 rp, zBuf, 0);.
5090: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b return SQLITE_OK
50a0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
50b0: 3a 20 20 73 71 6c 69 74 65 33 5f 6b 65 79 20 44 : sqlite3_key D
50c0: 42 20 4b 45 59 0a 2a 2a 0a 2a 2a 20 53 65 74 20 B KEY.**.** Set
50d0: 74 68 65 20 63 6f 64 65 63 20 6b 65 79 2e 0a 2a the codec key..*
50e0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
50f0: 74 5f 6b 65 79 28 0a 20 20 76 6f 69 64 20 2a 4e t_key(. void *N
5100: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
5110: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
5120: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
5130: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
5140: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
5150: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
5160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
5170: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
5180: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
5190: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
51a0: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
51b0: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
51c0: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
51d0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4b 65 const char *zKe
51e0: 79 3b 0a 20 20 69 6e 74 20 6e 4b 65 79 3b 0a 20 y;. int nKey;.
51f0: 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b 0a if( argc!=3 ){.
5200: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
5210: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
5220: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
5230: 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b ld be \"", argv[
5240: 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 49 4c 0],. " FIL
5250: 45 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 ENAME\"", 0);.
5260: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
5270: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
5280: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
5290: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
52a0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
52b0: 52 4f 52 3b 0a 20 20 7a 4b 65 79 20 3d 20 61 72 ROR;. zKey = ar
52c0: 67 76 5b 32 5d 3b 0a 20 20 6e 4b 65 79 20 3d 20 gv[2];. nKey =
52d0: 73 74 72 6c 65 6e 28 7a 4b 65 79 29 3b 0a 23 69 strlen(zKey);.#i
52e0: 66 64 65 66 20 53 51 4c 49 54 45 5f 48 41 53 5f fdef SQLITE_HAS_
52f0: 43 4f 44 45 43 0a 20 20 73 71 6c 69 74 65 33 5f CODEC. sqlite3_
5300: 6b 65 79 28 64 62 2c 20 7a 4b 65 79 2c 20 6e 4b key(db, zKey, nK
5310: 65 79 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 ey);.#endif. re
5320: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
5330: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
5340: 6c 69 74 65 33 5f 72 65 6b 65 79 20 44 42 20 4b lite3_rekey DB K
5350: 45 59 0a 2a 2a 0a 2a 2a 20 43 68 61 6e 67 65 20 EY.**.** Change
5360: 74 68 65 20 63 6f 64 65 63 20 6b 65 79 2e 0a 2a the codec key..*
5370: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
5380: 74 5f 72 65 6b 65 79 28 0a 20 20 76 6f 69 64 20 t_rekey(. void
5390: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f *NotUsed,. Tcl_
53a0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
53b0: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
53c0: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
53d0: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
53e0: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 and */. int arg
53f0: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
5400: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
5410: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 uments */. char
5420: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 **argv
5430: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 /* Text of ea
5440: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 ch argument */.)
5450: 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
5460: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
5470: 4b 65 79 3b 0a 20 20 69 6e 74 20 6e 4b 65 79 3b Key;. int nKey;
5480: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 . if( argc!=3 )
5490: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
54a0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
54b0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
54c0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
54d0: 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 v[0],. " F
54e0: 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a ILENAME\"", 0);.
54f0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
5500: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
5510: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
5520: 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 erp, argv[1], &d
5530: 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
5540: 45 52 52 4f 52 3b 0a 20 20 7a 4b 65 79 20 3d 20 ERROR;. zKey =
5550: 61 72 67 76 5b 32 5d 3b 0a 20 20 6e 4b 65 79 20 argv[2];. nKey
5560: 3d 20 73 74 72 6c 65 6e 28 7a 4b 65 79 29 3b 0a = strlen(zKey);.
5570: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 48 41 #ifdef SQLITE_HA
5580: 53 5f 43 4f 44 45 43 0a 20 20 73 71 6c 69 74 65 S_CODEC. sqlite
5590: 33 5f 72 65 6b 65 79 28 64 62 2c 20 7a 4b 65 79 3_rekey(db, zKey
55a0: 2c 20 6e 4b 65 79 29 3b 0a 23 65 6e 64 69 66 0a , nKey);.#endif.
55b0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
55c0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
55d0: 20 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 20 sqlite3_close
55e0: 44 42 0a 2a 2a 0a 2a 2a 20 43 6c 6f 73 65 73 20 DB.**.** Closes
55f0: 74 68 65 20 64 61 74 61 62 61 73 65 20 6f 70 65 the database ope
5600: 6e 65 64 20 62 79 20 73 71 6c 69 74 65 33 5f 6f ned by sqlite3_o
5610: 70 65 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 pen..*/.static i
5620: 6e 74 20 73 71 6c 69 74 65 5f 74 65 73 74 5f 63 nt sqlite_test_c
5630: 6c 6f 73 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f lose(. void *No
5640: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 tUsed,. Tcl_Int
5650: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
5660: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
5670: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
5680: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
5690: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 */. int argc,
56a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
56b0: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
56c0: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a nts */. char **
56d0: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 argv
56e0: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 /* Text of each
56f0: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 argument */.){.
5700: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
5710: 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 61 72 int rc;. if( ar
5720: 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c gc!=2 ){. Tcl
5730: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
5740: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
5750: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
5760: 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 "", argv[0],.
5770: 20 20 20 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 " FILENAME\"
5780: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
5790: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
57a0: 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
57b0: 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 ter(interp, argv
57c0: 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 [1], &db) ) retu
57d0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
57e0: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 6c 6f rc = sqlite3_clo
57f0: 73 65 28 64 62 29 3b 0a 20 20 54 63 6c 5f 53 65 se(db);. Tcl_Se
5800: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
5810: 28 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e (char *)t1ErrorN
5820: 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 ame(rc), TCL_STA
5830: 54 49 43 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 TIC);. return T
5840: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
5850: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f Implementation o
5860: 66 20 74 68 65 20 78 5f 63 6f 61 6c 65 73 63 65 f the x_coalesce
5870: 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 20 () function..**
5880: 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 Return the first
5890: 20 61 72 67 75 6d 65 6e 74 20 6e 6f 6e 2d 4e 55 argument non-NU
58a0: 4c 4c 20 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a LL argument..*/.
58b0: 73 74 61 74 69 63 20 76 6f 69 64 20 74 31 5f 69 static void t1_i
58c0: 66 6e 75 6c 6c 46 75 6e 63 28 0a 20 20 73 71 6c fnullFunc(. sql
58d0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
58e0: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 ntext,. int arg
58f0: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c c,. sqlite3_val
5900: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 ue **argv.){. i
5910: 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d 30 3b nt i;. for(i=0;
5920: 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 i<argc; i++){.
5930: 20 20 20 69 66 28 20 53 51 4c 49 54 45 5f 4e 55 if( SQLITE_NU
5940: 4c 4c 21 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 LL!=sqlite3_valu
5950: 65 5f 74 79 70 65 28 61 72 67 76 5b 69 5d 29 20 e_type(argv[i])
5960: 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 6e 20 3d ){. int n =
5970: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 sqlite3_value_b
5980: 79 74 65 73 28 61 72 67 76 5b 69 5d 29 3b 0a 20 ytes(argv[i]);.
5990: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 sqlite3_res
59a0: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 ult_text(context
59b0: 2c 20 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 , (char*)sqlite3
59c0: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 _value_text(argv
59d0: 5b 69 5d 29 2c 0a 20 20 20 20 20 20 20 20 20 20 [i]),.
59e0: 6e 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 n, SQLITE_TRANSI
59f0: 45 4e 54 29 3b 0a 20 20 20 20 20 20 62 72 65 61 ENT);. brea
5a00: 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a k;. }. }.}..
5a10: 2f 2a 0a 2a 2a 20 54 68 65 73 65 20 61 72 65 20 /*.** These are
5a20: 74 65 73 74 20 66 75 6e 63 74 69 6f 6e 73 2e 20 test functions.
5a30: 20 20 20 68 65 78 38 28 29 20 69 6e 74 65 72 70 hex8() interp
5a40: 72 65 74 73 20 69 74 73 20 61 72 67 75 6d 65 6e rets its argumen
5a50: 74 20 61 73 0a 2a 2a 20 55 54 46 38 20 61 6e 64 t as.** UTF8 and
5a60: 20 72 65 74 75 72 6e 73 20 61 20 68 65 78 20 65 returns a hex e
5a70: 6e 63 6f 64 69 6e 67 2e 20 20 68 65 78 31 36 6c ncoding. hex16l
5a80: 65 28 29 20 69 6e 74 65 72 70 72 65 74 73 20 69 e() interprets i
5a90: 74 73 20 61 72 67 75 6d 65 6e 74 0a 2a 2a 20 61 ts argument.** a
5aa0: 73 20 55 54 46 31 36 6c 65 20 61 6e 64 20 72 65 s UTF16le and re
5ab0: 74 75 72 6e 73 20 61 20 68 65 78 20 65 6e 63 6f turns a hex enco
5ac0: 64 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 ding..*/.static
5ad0: 76 6f 69 64 20 68 65 78 38 46 75 6e 63 28 73 71 void hex8Func(sq
5ae0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 lite3_context *p
5af0: 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 , int argc, sqli
5b00: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
5b10: 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 ){. const unsig
5b20: 6e 65 64 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 ned char *z;. i
5b30: 6e 74 20 69 3b 0a 20 20 63 68 61 72 20 7a 42 75 nt i;. char zBu
5b40: 66 5b 32 30 30 5d 3b 0a 20 20 7a 20 3d 20 73 71 f[200];. z = sq
5b50: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
5b60: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 66 6f 72 (argv[0]);. for
5b70: 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 7a (i=0; i<sizeof(z
5b80: 42 75 66 29 2f 32 20 2d 20 32 20 26 26 20 7a 5b Buf)/2 - 2 && z[
5b90: 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 73 70 i]; i++){. sp
5ba0: 72 69 6e 74 66 28 26 7a 42 75 66 5b 69 2a 32 5d rintf(&zBuf[i*2]
5bb0: 2c 20 22 25 30 32 78 22 2c 20 7a 5b 69 5d 26 30 , "%02x", z[i]&0
5bc0: 78 66 66 29 3b 0a 20 20 7d 0a 20 20 7a 42 75 66 xff);. }. zBuf
5bd0: 5b 69 2a 32 5d 20 3d 20 30 3b 0a 20 20 73 71 6c [i*2] = 0;. sql
5be0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
5bf0: 28 70 2c 20 28 63 68 61 72 2a 29 7a 42 75 66 2c (p, (char*)zBuf,
5c00: 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e -1, SQLITE_TRAN
5c10: 53 49 45 4e 54 29 3b 0a 7d 0a 23 69 66 6e 64 65 SIENT);.}.#ifnde
5c20: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 f SQLITE_OMIT_UT
5c30: 46 31 36 0a 73 74 61 74 69 63 20 76 6f 69 64 20 F16.static void
5c40: 68 65 78 31 36 46 75 6e 63 28 73 71 6c 69 74 65 hex16Func(sqlite
5c50: 33 5f 63 6f 6e 74 65 78 74 20 2a 70 2c 20 69 6e 3_context *p, in
5c60: 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f t argc, sqlite3_
5c70: 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 value **argv){.
5c80: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
5c90: 73 68 6f 72 74 20 69 6e 74 20 2a 7a 3b 0a 20 20 short int *z;.
5ca0: 69 6e 74 20 69 3b 0a 20 20 63 68 61 72 20 7a 42 int i;. char zB
5cb0: 75 66 5b 34 30 30 5d 3b 0a 20 20 7a 20 3d 20 73 uf[400];. z = s
5cc0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
5cd0: 74 31 36 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 t16(argv[0]);.
5ce0: 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f for(i=0; i<sizeo
5cf0: 66 28 7a 42 75 66 29 2f 34 20 2d 20 34 20 26 26 f(zBuf)/4 - 4 &&
5d00: 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 z[i]; i++){.
5d10: 20 73 70 72 69 6e 74 66 28 26 7a 42 75 66 5b 69 sprintf(&zBuf[i
5d20: 2a 34 5d 2c 20 22 25 30 34 78 22 2c 20 7a 5b 69 *4], "%04x", z[i
5d30: 5d 26 30 78 66 66 29 3b 0a 20 20 7d 0a 20 20 7a ]&0xff);. }. z
5d40: 42 75 66 5b 69 2a 34 5d 20 3d 20 30 3b 0a 20 20 Buf[i*4] = 0;.
5d50: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 sqlite3_result_t
5d60: 65 78 74 28 70 2c 20 28 63 68 61 72 2a 29 7a 42 ext(p, (char*)zB
5d70: 75 66 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 uf, -1, SQLITE_T
5d80: 52 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 23 65 6e RANSIENT);.}.#en
5d90: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 74 72 dif../*.** A str
5da0: 75 63 74 75 72 65 20 69 6e 74 6f 20 77 68 69 63 ucture into whic
5db0: 68 20 74 6f 20 61 63 63 75 6d 75 6c 61 74 65 20 h to accumulate
5dc0: 74 65 78 74 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 text..*/.struct
5dd0: 64 73 74 72 20 7b 0a 20 20 69 6e 74 20 6e 41 6c dstr {. int nAl
5de0: 6c 6f 63 3b 20 20 2f 2a 20 53 70 61 63 65 20 61 loc; /* Space a
5df0: 6c 6c 6f 63 61 74 65 64 20 2a 2f 0a 20 20 69 6e llocated */. in
5e00: 74 20 6e 55 73 65 64 3b 20 20 20 2f 2a 20 53 70 t nUsed; /* Sp
5e10: 61 63 65 20 75 73 65 64 20 2a 2f 0a 20 20 63 68 ace used */. ch
5e20: 61 72 20 2a 7a 3b 20 20 20 20 20 2f 2a 20 54 68 ar *z; /* Th
5e30: 65 20 73 70 61 63 65 20 2a 2f 0a 7d 3b 0a 0a 2f e space */.};../
5e40: 2a 0a 2a 2a 20 41 70 70 65 6e 64 20 74 65 78 74 *.** Append text
5e50: 20 74 6f 20 61 20 64 73 74 72 0a 2a 2f 0a 73 74 to a dstr.*/.st
5e60: 61 74 69 63 20 76 6f 69 64 20 64 73 74 72 41 70 atic void dstrAp
5e70: 70 65 6e 64 28 73 74 72 75 63 74 20 64 73 74 72 pend(struct dstr
5e80: 20 2a 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 *p, const char
5e90: 2a 7a 2c 20 69 6e 74 20 64 69 76 69 64 65 72 29 *z, int divider)
5ea0: 7b 0a 20 20 69 6e 74 20 6e 20 3d 20 73 74 72 6c {. int n = strl
5eb0: 65 6e 28 7a 29 3b 0a 20 20 69 66 28 20 70 2d 3e en(z);. if( p->
5ec0: 6e 55 73 65 64 20 2b 20 6e 20 2b 20 32 20 3e 20 nUsed + n + 2 >
5ed0: 70 2d 3e 6e 41 6c 6c 6f 63 20 29 7b 0a 20 20 20 p->nAlloc ){.
5ee0: 20 63 68 61 72 20 2a 7a 4e 65 77 3b 0a 20 20 20 char *zNew;.
5ef0: 20 70 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 70 2d 3e p->nAlloc = p->
5f00: 6e 41 6c 6c 6f 63 2a 32 20 2b 20 6e 20 2b 20 32 nAlloc*2 + n + 2
5f10: 30 30 3b 0a 20 20 20 20 7a 4e 65 77 20 3d 20 73 00;. zNew = s
5f20: 71 6c 69 74 65 33 5f 72 65 61 6c 6c 6f 63 28 70 qlite3_realloc(p
5f30: 2d 3e 7a 2c 20 70 2d 3e 6e 41 6c 6c 6f 63 29 3b ->z, p->nAlloc);
5f40: 0a 20 20 20 20 69 66 28 20 7a 4e 65 77 3d 3d 30 . if( zNew==0
5f50: 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 ){. sqlite
5f60: 33 5f 66 72 65 65 28 70 2d 3e 7a 29 3b 0a 20 20 3_free(p->z);.
5f70: 20 20 20 20 6d 65 6d 73 65 74 28 70 2c 20 30 2c memset(p, 0,
5f80: 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 sizeof(*p));.
5f90: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 return;.
5fa0: 7d 0a 20 20 20 20 70 2d 3e 7a 20 3d 20 7a 4e 65 }. p->z = zNe
5fb0: 77 3b 0a 20 20 7d 0a 20 20 69 66 28 20 64 69 76 w;. }. if( div
5fc0: 69 64 65 72 20 26 26 20 70 2d 3e 6e 55 73 65 64 ider && p->nUsed
5fd0: 3e 30 20 29 7b 0a 20 20 20 20 70 2d 3e 7a 5b 70 >0 ){. p->z[p
5fe0: 2d 3e 6e 55 73 65 64 2b 2b 5d 20 3d 20 64 69 76 ->nUsed++] = div
5ff0: 69 64 65 72 3b 0a 20 20 7d 0a 20 20 6d 65 6d 63 ider;. }. memc
6000: 70 79 28 26 70 2d 3e 7a 5b 70 2d 3e 6e 55 73 65 py(&p->z[p->nUse
6010: 64 5d 2c 20 7a 2c 20 6e 2b 31 29 3b 0a 20 20 70 d], z, n+1);. p
6020: 2d 3e 6e 55 73 65 64 20 2b 3d 20 6e 3b 0a 7d 0a ->nUsed += n;.}.
6030: 0a 2f 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 64 20 66 ./*.** Invoked f
6040: 6f 72 20 65 61 63 68 20 63 61 6c 6c 62 61 63 6b or each callback
6050: 20 66 72 6f 6d 20 73 71 6c 69 74 65 33 45 78 65 from sqlite3Exe
6060: 63 46 75 6e 63 0a 2a 2f 0a 73 74 61 74 69 63 20 cFunc.*/.static
6070: 69 6e 74 20 65 78 65 63 46 75 6e 63 43 61 6c 6c int execFuncCall
6080: 62 61 63 6b 28 76 6f 69 64 20 2a 70 44 61 74 61 back(void *pData
6090: 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72 , int argc, char
60a0: 20 2a 2a 61 72 67 76 2c 20 63 68 61 72 20 2a 2a **argv, char **
60b0: 4e 6f 74 55 73 65 64 29 7b 0a 20 20 73 74 72 75 NotUsed){. stru
60c0: 63 74 20 64 73 74 72 20 2a 70 20 3d 20 28 73 74 ct dstr *p = (st
60d0: 72 75 63 74 20 64 73 74 72 2a 29 70 44 61 74 61 ruct dstr*)pData
60e0: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 ;. int i;. for
60f0: 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b (i=0; i<argc; i+
6100: 2b 29 7b 0a 20 20 20 20 69 66 28 20 61 72 67 76 +){. if( argv
6110: 5b 69 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 [i]==0 ){.
6120: 64 73 74 72 41 70 70 65 6e 64 28 70 2c 20 22 4e dstrAppend(p, "N
6130: 55 4c 4c 22 2c 20 27 20 27 29 3b 0a 20 20 20 20 ULL", ' ');.
6140: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 64 73 74 }else{. dst
6150: 72 41 70 70 65 6e 64 28 70 2c 20 61 72 67 76 5b rAppend(p, argv[
6160: 69 5d 2c 20 27 20 27 29 3b 0a 20 20 20 20 7d 0a i], ' ');. }.
6170: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a }. return 0;.
6180: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 }../*.** Impleme
6190: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 78 ntation of the x
61a0: 5f 73 71 6c 69 74 65 5f 65 78 65 63 28 29 20 66 _sqlite_exec() f
61b0: 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 66 unction. This f
61c0: 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 0a 2a 2a unction takes.**
61d0: 20 61 20 73 69 6e 67 6c 65 20 61 72 67 75 6d 65 a single argume
61e0: 6e 74 20 61 6e 64 20 61 74 74 65 6d 70 74 73 20 nt and attempts
61f0: 74 6f 20 65 78 65 63 75 74 65 20 74 68 61 74 20 to execute that
6200: 61 72 67 75 6d 65 6e 74 20 61 73 20 53 51 4c 20 argument as SQL
6210: 63 6f 64 65 2e 0a 2a 2a 20 54 68 69 73 20 69 73 code..** This is
6220: 20 69 6c 6c 65 67 61 6c 20 61 6e 64 20 73 68 6f illegal and sho
6230: 75 6c 64 20 73 65 74 20 74 68 65 20 53 51 4c 49 uld set the SQLI
6240: 54 45 5f 4d 49 53 55 53 45 20 66 6c 61 67 20 6f TE_MISUSE flag o
6250: 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a n the database..
6260: 2a 2a 0a 2a 2a 20 32 30 30 34 2d 4a 61 6e 2d 30 **.** 2004-Jan-0
6270: 37 3a 20 20 57 65 20 68 61 76 65 20 63 68 61 6e 7: We have chan
6280: 67 65 64 20 74 68 69 73 20 74 6f 20 6d 61 6b 65 ged this to make
6290: 20 69 74 20 6c 65 67 61 6c 20 74 6f 20 63 61 6c it legal to cal
62a0: 6c 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28 29 l sqlite3_exec()
62b0: 0a 2a 2a 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 .** from within
62c0: 61 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 2e a function call.
62d0: 20 20 0a 2a 2a 20 0a 2a 2a 20 54 68 69 73 20 72 .** .** This r
62e0: 6f 75 74 69 6e 65 20 73 69 6d 75 6c 61 74 65 73 outine simulates
62f0: 20 74 68 65 20 65 66 66 65 63 74 20 6f 66 20 68 the effect of h
6300: 61 76 69 6e 67 20 74 77 6f 20 74 68 72 65 61 64 aving two thread
6310: 73 20 61 74 74 65 6d 70 74 20 74 6f 0a 2a 2a 20 s attempt to.**
6320: 75 73 65 20 74 68 65 20 73 61 6d 65 20 64 61 74 use the same dat
6330: 61 62 61 73 65 20 61 74 20 74 68 65 20 73 61 6d abase at the sam
6340: 65 20 74 69 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 e time..*/.stati
6350: 63 20 76 6f 69 64 20 73 71 6c 69 74 65 33 45 78 c void sqlite3Ex
6360: 65 63 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 ecFunc(. sqlite
6370: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
6380: 78 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c xt, . int argc,
6390: 20 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c . sqlite3_val
63a0: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 ue **argv.){. s
63b0: 74 72 75 63 74 20 64 73 74 72 20 78 3b 0a 20 20 truct dstr x;.
63c0: 6d 65 6d 73 65 74 28 26 78 2c 20 30 2c 20 73 69 memset(&x, 0, si
63d0: 7a 65 6f 66 28 78 29 29 3b 0a 20 20 28 76 6f 69 zeof(x));. (voi
63e0: 64 29 73 71 6c 69 74 65 33 5f 65 78 65 63 28 28 d)sqlite3_exec((
63f0: 73 71 6c 69 74 65 33 2a 29 73 71 6c 69 74 65 33 sqlite3*)sqlite3
6400: 5f 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 _user_data(conte
6410: 78 74 29 2c 0a 20 20 20 20 20 20 28 63 68 61 72 xt),. (char
6420: 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f *)sqlite3_value_
6430: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 2c 0a 20 text(argv[0]),.
6440: 20 20 20 20 20 65 78 65 63 46 75 6e 63 43 61 6c execFuncCal
6450: 6c 62 61 63 6b 2c 20 26 78 2c 20 30 29 3b 0a 20 lback, &x, 0);.
6460: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
6470: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 78 2e text(context, x.
6480: 7a 2c 20 78 2e 6e 55 73 65 64 2c 20 53 51 4c 49 z, x.nUsed, SQLI
6490: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 TE_TRANSIENT);.
64a0: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 78 2e sqlite3_free(x.
64b0: 7a 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 z);.}../*.** Imp
64c0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
64d0: 6b 74 32 32 31 33 66 75 6e 63 28 29 2c 20 61 20 kt2213func(), a
64e0: 73 63 61 6c 61 72 20 66 75 6e 63 74 69 6f 6e 20 scalar function
64f0: 74 68 61 74 20 74 61 6b 65 73 20 65 78 61 63 74 that takes exact
6500: 6c 79 0a 2a 2a 20 6f 6e 65 20 61 72 67 75 6d 65 ly.** one argume
6510: 6e 74 2e 20 49 74 20 68 61 73 20 74 77 6f 20 69 nt. It has two i
6520: 6e 74 65 72 65 73 74 69 6e 67 20 66 65 61 74 75 nteresting featu
6530: 72 65 73 3a 0a 2a 2a 0a 2a 2a 20 2a 20 49 74 20 res:.**.** * It
6540: 63 61 6c 6c 73 20 73 71 6c 69 74 65 33 5f 76 61 calls sqlite3_va
6550: 6c 75 65 5f 74 65 78 74 28 29 20 33 20 74 69 6d lue_text() 3 tim
6560: 65 73 20 6f 6e 20 74 68 65 20 61 72 67 75 6d 65 es on the argume
6570: 6e 74 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 nt sqlite3_value
6580: 2a 2e 0a 2a 2a 20 20 20 49 66 20 74 68 65 20 74 *..** If the t
6590: 68 72 65 65 20 70 6f 69 6e 74 65 72 73 20 72 65 hree pointers re
65a0: 74 75 72 6e 65 64 20 61 72 65 20 6e 6f 74 20 74 turned are not t
65b0: 68 65 20 73 61 6d 65 20 61 6e 20 53 51 4c 20 65 he same an SQL e
65c0: 72 72 6f 72 20 69 73 20 72 61 69 73 65 64 2e 0a rror is raised..
65d0: 2a 2a 0a 2a 2a 20 2a 20 4f 74 68 65 72 77 69 73 **.** * Otherwis
65e0: 65 20 69 74 20 72 65 74 75 72 6e 73 20 61 20 63 e it returns a c
65f0: 6f 70 79 20 6f 66 20 74 68 65 20 74 65 78 74 20 opy of the text
6600: 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f representation o
6610: 66 20 69 74 73 20 0a 2a 2a 20 20 20 61 72 67 75 f its .** argu
6620: 6d 65 6e 74 20 69 6e 20 73 75 63 68 20 61 20 77 ment in such a w
6630: 61 79 20 61 73 20 74 68 65 20 56 44 42 45 20 72 ay as the VDBE r
6640: 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 69 73 epresentation is
6650: 20 61 20 4d 65 6d 2a 20 63 65 6c 6c 20 0a 2a 2a a Mem* cell .**
6660: 20 20 20 77 69 74 68 20 74 68 65 20 4d 45 4d 5f with the MEM_
6670: 54 65 72 6d 20 66 6c 61 67 20 63 6c 65 61 72 2e Term flag clear.
6680: 20 0a 2a 2a 0a 2a 2a 20 54 69 63 6b 65 74 20 23 .**.** Ticket #
6690: 32 32 31 33 20 63 61 6e 20 74 68 65 72 65 66 6f 2213 can therefo
66a0: 72 65 20 62 65 20 74 65 73 74 65 64 20 62 79 20 re be tested by
66b0: 65 76 61 6c 75 61 74 69 6e 67 20 74 68 65 20 66 evaluating the f
66c0: 6f 6c 6c 6f 77 69 6e 67 0a 2a 2a 20 53 51 4c 20 ollowing.** SQL
66d0: 65 78 70 72 65 73 73 69 6f 6e 3a 0a 2a 2a 0a 2a expression:.**.*
66e0: 2a 20 20 20 74 6b 74 32 32 31 33 66 75 6e 63 28 * tkt2213func(
66f0: 74 6b 74 32 32 31 33 66 75 6e 63 28 27 61 20 73 tkt2213func('a s
6700: 74 72 69 6e 67 27 29 29 3b 0a 2a 2f 0a 73 74 61 tring'));.*/.sta
6710: 74 69 63 20 76 6f 69 64 20 74 6b 74 32 32 31 33 tic void tkt2213
6720: 46 75 6e 63 74 69 6f 6e 28 0a 20 20 73 71 6c 69 Function(. sqli
6730: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
6740: 74 65 78 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 text, . int arg
6750: 63 2c 20 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 c, . sqlite3_v
6760: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
6770: 20 69 6e 74 20 6e 54 65 78 74 3b 0a 20 20 75 6e int nText;. un
6780: 73 69 67 6e 65 64 20 63 68 61 72 20 63 6f 6e 73 signed char cons
6790: 74 20 2a 7a 54 65 78 74 31 3b 0a 20 20 75 6e 73 t *zText1;. uns
67a0: 69 67 6e 65 64 20 63 68 61 72 20 63 6f 6e 73 74 igned char const
67b0: 20 2a 7a 54 65 78 74 32 3b 0a 20 20 75 6e 73 69 *zText2;. unsi
67c0: 67 6e 65 64 20 63 68 61 72 20 63 6f 6e 73 74 20 gned char const
67d0: 2a 7a 54 65 78 74 33 3b 0a 0a 20 20 6e 54 65 78 *zText3;.. nTex
67e0: 74 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 t = sqlite3_valu
67f0: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 e_bytes(argv[0])
6800: 3b 0a 20 20 7a 54 65 78 74 31 20 3d 20 73 71 6c ;. zText1 = sql
6810: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
6820: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 7a 54 65 78 argv[0]);. zTex
6830: 74 32 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c t2 = sqlite3_val
6840: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 ue_text(argv[0])
6850: 3b 0a 20 20 7a 54 65 78 74 33 20 3d 20 73 71 6c ;. zText3 = sql
6860: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
6870: 61 72 67 76 5b 30 5d 29 3b 0a 0a 20 20 69 66 28 argv[0]);.. if(
6880: 20 7a 54 65 78 74 31 21 3d 7a 54 65 78 74 32 20 zText1!=zText2
6890: 7c 7c 20 7a 54 65 78 74 32 21 3d 7a 54 65 78 74 || zText2!=zText
68a0: 33 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 3 ){. sqlite3
68b0: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f _result_error(co
68c0: 6e 74 65 78 74 2c 20 22 74 6b 74 32 32 31 33 20 ntext, "tkt2213
68d0: 69 73 20 6e 6f 74 20 66 69 78 65 64 22 2c 20 2d is not fixed", -
68e0: 31 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 1);. }else{.
68f0: 20 63 68 61 72 20 2a 7a 43 6f 70 79 20 3d 20 28 char *zCopy = (
6900: 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 5f 6d char *)sqlite3_m
6910: 61 6c 6c 6f 63 28 6e 54 65 78 74 29 3b 0a 20 20 alloc(nText);.
6920: 20 20 6d 65 6d 63 70 79 28 7a 43 6f 70 79 2c 20 memcpy(zCopy,
6930: 7a 54 65 78 74 31 2c 20 6e 54 65 78 74 29 3b 0a zText1, nText);.
6940: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
6950: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
6960: 20 7a 43 6f 70 79 2c 20 6e 54 65 78 74 2c 20 73 zCopy, nText, s
6970: 71 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 qlite3_free);.
6980: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 }.}../*.** The f
6990: 6f 6c 6c 6f 77 69 6e 67 20 53 51 4c 20 66 75 6e ollowing SQL fun
69a0: 63 74 69 6f 6e 20 74 61 6b 65 73 20 34 20 61 72 ction takes 4 ar
69b0: 67 75 6d 65 6e 74 73 2e 20 20 54 68 65 20 32 6e guments. The 2n
69c0: 64 20 61 6e 64 0a 2a 2a 20 34 74 68 20 61 72 67 d and.** 4th arg
69d0: 75 6d 65 6e 74 20 6d 75 73 74 20 62 65 20 6f 6e ument must be on
69e0: 65 20 6f 66 20 74 68 65 73 65 20 73 74 72 69 6e e of these strin
69f0: 67 73 3a 20 20 27 74 65 78 74 27 2c 20 27 74 65 gs: 'text', 'te
6a00: 78 74 31 36 27 2c 0a 2a 2a 20 6f 72 20 27 62 6c xt16',.** or 'bl
6a10: 6f 62 27 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e ob' correspondin
6a20: 67 20 74 6f 20 41 50 49 20 66 75 6e 63 74 69 6f g to API functio
6a30: 6e 73 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 73 71 ns.**.** sq
6a40: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
6a50: 28 29 0a 2a 2a 20 20 20 20 20 20 73 71 6c 69 74 ().** sqlit
6a60: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 e3_value_text16(
6a70: 29 0a 2a 2a 20 20 20 20 20 20 73 71 6c 69 74 65 ).** sqlite
6a80: 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 29 0a 2a 3_value_blob().*
6a90: 2a 0a 2a 2a 20 54 68 65 20 74 68 69 72 64 20 61 *.** The third a
6aa0: 72 67 75 6d 65 6e 74 20 69 73 20 61 20 73 74 72 rgument is a str
6ab0: 69 6e 67 2c 20 65 69 74 68 65 72 20 27 62 79 74 ing, either 'byt
6ac0: 65 73 27 20 6f 72 20 27 62 79 74 65 73 31 36 27 es' or 'bytes16'
6ad0: 20 6f 72 20 27 6e 6f 6f 70 27 2c 0a 2a 2a 20 63 or 'noop',.** c
6ae0: 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 orresponding to
6af0: 41 50 49 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 APIs:.**.**
6b00: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 sqlite3_value_b
6b10: 79 74 65 73 28 29 0a 2a 2a 20 20 20 20 20 20 73 ytes().** s
6b20: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 qlite3_value_byt
6b30: 65 73 31 36 28 29 0a 2a 2a 20 20 20 20 20 20 6e es16().** n
6b40: 6f 6f 70 0a 2a 2a 0a 2a 2a 20 54 68 65 20 41 50 oop.**.** The AP
6b50: 49 73 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 Is designated by
6b60: 20 74 68 65 20 32 6e 64 20 74 68 72 6f 75 67 68 the 2nd through
6b70: 20 34 74 68 20 61 72 67 75 6d 65 6e 74 73 20 61 4th arguments a
6b80: 72 65 20 61 70 70 6c 69 65 64 0a 2a 2a 20 74 6f re applied.** to
6b90: 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d the first argum
6ba0: 65 6e 74 20 69 6e 20 6f 72 64 65 72 2e 20 20 49 ent in order. I
6bb0: 66 20 74 68 65 20 70 6f 69 6e 74 65 72 73 20 72 f the pointers r
6bc0: 65 74 75 72 6e 65 64 20 62 79 20 74 68 65 0a 2a eturned by the.*
6bd0: 2a 20 73 65 63 6f 6e 64 20 61 6e 64 20 66 6f 75 * second and fou
6be0: 72 74 68 20 61 72 65 20 64 69 66 66 65 72 65 6e rth are differen
6bf0: 74 2c 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 t, this routine
6c00: 72 65 74 75 72 6e 73 20 31 2e 20 20 4f 74 68 65 returns 1. Othe
6c10: 72 77 69 73 65 2c 0a 2a 2a 20 74 68 69 73 20 72 rwise,.** this r
6c20: 6f 75 74 69 6e 65 20 72 65 74 75 72 6e 73 20 30 outine returns 0
6c30: 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e ..**.** This fun
6c40: 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f ction is used to
6c50: 20 74 65 73 74 20 74 6f 20 73 65 65 20 77 68 65 test to see whe
6c60: 6e 20 72 65 74 75 72 6e 65 64 20 70 6f 69 6e 74 n returned point
6c70: 65 72 73 20 66 72 6f 6d 0a 2a 2a 20 74 68 65 20 ers from.** the
6c80: 5f 74 65 78 74 28 29 2c 20 5f 74 65 78 74 31 36 _text(), _text16
6c90: 28 29 20 61 6e 64 20 5f 62 6c 6f 62 28 29 20 41 () and _blob() A
6ca0: 50 49 73 20 62 65 63 6f 6d 65 20 69 6e 76 61 6c PIs become inval
6cb0: 69 64 61 74 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 idated..*/.stati
6cc0: 63 20 76 6f 69 64 20 70 74 72 43 68 6e 67 46 75 c void ptrChngFu
6cd0: 6e 63 74 69 6f 6e 28 0a 20 20 73 71 6c 69 74 65 nction(. sqlite
6ce0: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
6cf0: 78 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c xt, . int argc,
6d00: 20 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c . sqlite3_val
6d10: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 ue **argv.){. c
6d20: 6f 6e 73 74 20 76 6f 69 64 20 2a 70 31 2c 20 2a onst void *p1, *
6d30: 70 32 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 p2;. const char
6d40: 20 2a 7a 43 6d 64 3b 0a 20 20 69 66 28 20 61 72 *zCmd;. if( ar
6d50: 67 63 21 3d 34 20 29 20 72 65 74 75 72 6e 3b 0a gc!=4 ) return;.
6d60: 20 20 7a 43 6d 64 20 3d 20 28 63 6f 6e 73 74 20 zCmd = (const
6d70: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 char*)sqlite3_va
6d80: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31 5d lue_text(argv[1]
6d90: 29 3b 0a 20 20 69 66 28 20 7a 43 6d 64 3d 3d 30 );. if( zCmd==0
6da0: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 66 28 ) return;. if(
6db0: 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c 22 74 65 strcmp(zCmd,"te
6dc0: 78 74 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 70 xt")==0 ){. p
6dd0: 31 20 3d 20 28 63 6f 6e 73 74 20 76 6f 69 64 2a 1 = (const void*
6de0: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 )sqlite3_value_t
6df0: 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 23 69 ext(argv[0]);.#i
6e00: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
6e10: 54 5f 55 54 46 31 36 0a 20 20 7d 65 6c 73 65 20 T_UTF16. }else
6e20: 69 66 28 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c if( strcmp(zCmd,
6e30: 20 22 74 65 78 74 31 36 22 29 3d 3d 30 20 29 7b "text16")==0 ){
6e40: 0a 20 20 20 20 70 31 20 3d 20 28 63 6f 6e 73 74 . p1 = (const
6e50: 20 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 76 void*)sqlite3_v
6e60: 61 6c 75 65 5f 74 65 78 74 31 36 28 61 72 67 76 alue_text16(argv
6e70: 5b 30 5d 29 3b 0a 23 65 6e 64 69 66 0a 20 20 7d [0]);.#endif. }
6e80: 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 else if( strcmp(
6e90: 7a 43 6d 64 2c 20 22 62 6c 6f 62 22 29 3d 3d 30 zCmd, "blob")==0
6ea0: 20 29 7b 0a 20 20 20 20 70 31 20 3d 20 28 63 6f ){. p1 = (co
6eb0: 6e 73 74 20 76 6f 69 64 2a 29 73 71 6c 69 74 65 nst void*)sqlite
6ec0: 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 3_value_blob(arg
6ed0: 76 5b 30 5d 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a v[0]);. }else{.
6ee0: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a return;. }.
6ef0: 20 20 7a 43 6d 64 20 3d 20 28 63 6f 6e 73 74 20 zCmd = (const
6f00: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 char*)sqlite3_va
6f10: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 32 5d lue_text(argv[2]
6f20: 29 3b 0a 20 20 69 66 28 20 7a 43 6d 64 3d 3d 30 );. if( zCmd==0
6f30: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 66 28 ) return;. if(
6f40: 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c 22 62 79 strcmp(zCmd,"by
6f50: 74 65 73 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 tes")==0 ){.
6f60: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 sqlite3_value_by
6f70: 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 23 69 tes(argv[0]);.#i
6f80: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
6f90: 54 5f 55 54 46 31 36 0a 20 20 7d 65 6c 73 65 20 T_UTF16. }else
6fa0: 69 66 28 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c if( strcmp(zCmd,
6fb0: 20 22 62 79 74 65 73 31 36 22 29 3d 3d 30 20 29 "bytes16")==0 )
6fc0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 76 61 {. sqlite3_va
6fd0: 6c 75 65 5f 62 79 74 65 73 31 36 28 61 72 67 76 lue_bytes16(argv
6fe0: 5b 30 5d 29 3b 0a 23 65 6e 64 69 66 0a 20 20 7d [0]);.#endif. }
6ff0: 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 else if( strcmp(
7000: 7a 43 6d 64 2c 20 22 6e 6f 6f 70 22 29 3d 3d 30 zCmd, "noop")==0
7010: 20 29 7b 0a 20 20 20 20 2f 2a 20 64 6f 20 6e 6f ){. /* do no
7020: 74 68 69 6e 67 20 2a 2f 0a 20 20 7d 65 6c 73 65 thing */. }else
7030: 7b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 {. return;.
7040: 7d 0a 20 20 7a 43 6d 64 20 3d 20 28 63 6f 6e 73 }. zCmd = (cons
7050: 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f t char*)sqlite3_
7060: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
7070: 33 5d 29 3b 0a 20 20 69 66 28 20 7a 43 6d 64 3d 3]);. if( zCmd=
7080: 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 =0 ) return;. i
7090: 66 28 20 73 74 72 63 6d 70 28 7a 43 6d 64 2c 22 f( strcmp(zCmd,"
70a0: 74 65 78 74 22 29 3d 3d 30 20 29 7b 0a 20 20 20 text")==0 ){.
70b0: 20 70 32 20 3d 20 28 63 6f 6e 73 74 20 76 6f 69 p2 = (const voi
70c0: 64 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 d*)sqlite3_value
70d0: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a _text(argv[0]);.
70e0: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
70f0: 4d 49 54 5f 55 54 46 31 36 0a 20 20 7d 65 6c 73 MIT_UTF16. }els
7100: 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a 43 6d e if( strcmp(zCm
7110: 64 2c 20 22 74 65 78 74 31 36 22 29 3d 3d 30 20 d, "text16")==0
7120: 29 7b 0a 20 20 20 20 70 32 20 3d 20 28 63 6f 6e ){. p2 = (con
7130: 73 74 20 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 st void*)sqlite3
7140: 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 61 72 _value_text16(ar
7150: 67 76 5b 30 5d 29 3b 0a 23 65 6e 64 69 66 0a 20 gv[0]);.#endif.
7160: 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d }else if( strcm
7170: 70 28 7a 43 6d 64 2c 20 22 62 6c 6f 62 22 29 3d p(zCmd, "blob")=
7180: 3d 30 20 29 7b 0a 20 20 20 20 70 32 20 3d 20 28 =0 ){. p2 = (
7190: 63 6f 6e 73 74 20 76 6f 69 64 2a 29 73 71 6c 69 const void*)sqli
71a0: 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 te3_value_blob(a
71b0: 72 67 76 5b 30 5d 29 3b 0a 20 20 7d 65 6c 73 65 rgv[0]);. }else
71c0: 7b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 {. return;.
71d0: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 }. sqlite3_resu
71e0: 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 lt_int(context,
71f0: 70 31 21 3d 70 32 29 3b 0a 7d 0a 0a 0a 2f 2a 0a p1!=p2);.}.../*.
7200: 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
7210: 65 5f 74 65 73 74 5f 63 72 65 61 74 65 5f 66 75 e_test_create_fu
7220: 6e 63 74 69 6f 6e 20 44 42 0a 2a 2a 0a 2a 2a 20 nction DB.**.**
7230: 43 61 6c 6c 20 74 68 65 20 73 71 6c 69 74 65 33 Call the sqlite3
7240: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
7250: 20 41 50 49 20 6f 6e 20 74 68 65 20 67 69 76 65 API on the give
7260: 6e 20 64 61 74 61 62 61 73 65 20 69 6e 20 6f 72 n database in or
7270: 64 65 72 0a 2a 2a 20 74 6f 20 63 72 65 61 74 65 der.** to create
7280: 20 61 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 a function name
7290: 64 20 22 78 5f 63 6f 61 6c 65 73 63 65 22 2e 20 d "x_coalesce".
72a0: 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 This function d
72b0: 6f 65 73 20 74 68 65 20 73 61 6d 65 20 74 68 69 oes the same thi
72c0: 6e 67 0a 2a 2a 20 61 73 20 74 68 65 20 22 63 6f ng.** as the "co
72d0: 61 6c 65 73 63 65 22 20 66 75 6e 63 74 69 6f 6e alesce" function
72e0: 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e . This function
72f0: 20 61 6c 73 6f 20 72 65 67 69 73 74 65 72 73 20 also registers
7300: 61 6e 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 0a an SQL function.
7310: 2a 2a 20 6e 61 6d 65 64 20 22 78 5f 73 71 6c 69 ** named "x_sqli
7320: 74 65 5f 65 78 65 63 22 20 74 68 61 74 20 69 6e te_exec" that in
7330: 76 6f 6b 65 73 20 73 71 6c 69 74 65 33 5f 65 78 vokes sqlite3_ex
7340: 65 63 28 29 2e 20 20 49 6e 76 6f 6b 69 6e 67 20 ec(). Invoking
7350: 73 71 6c 69 74 65 33 5f 65 78 65 63 28 29 0a 2a sqlite3_exec().*
7360: 2a 20 69 6e 20 74 68 69 73 20 77 61 79 20 69 73 * in this way is
7370: 20 69 6c 6c 65 67 61 6c 20 72 65 63 75 72 73 69 illegal recursi
7380: 6f 6e 20 61 6e 64 20 73 68 6f 75 6c 64 20 72 61 on and should ra
7390: 69 73 65 20 61 6e 20 53 51 4c 49 54 45 5f 4d 49 ise an SQLITE_MI
73a0: 53 55 53 45 20 65 72 72 6f 72 2e 0a 2a 2a 20 54 SUSE error..** T
73b0: 68 65 20 65 66 66 65 63 74 20 69 73 20 73 69 6d he effect is sim
73c0: 69 6c 61 72 20 74 6f 20 74 72 79 69 6e 67 20 74 ilar to trying t
73d0: 6f 20 75 73 65 20 74 68 65 20 73 61 6d 65 20 64 o use the same d
73e0: 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 atabase connecti
73f0: 6f 6e 20 66 72 6f 6d 0a 2a 2a 20 74 77 6f 20 74 on from.** two t
7400: 68 72 65 61 64 73 20 61 74 20 74 68 65 20 73 61 hreads at the sa
7410: 6d 65 20 74 69 6d 65 2e 0a 2a 2a 0a 2a 2a 20 54 me time..**.** T
7420: 68 65 20 6f 72 69 67 69 6e 61 6c 20 6d 6f 74 69 he original moti
7430: 76 61 74 69 6f 6e 20 66 6f 72 20 74 68 69 73 20 vation for this
7440: 72 6f 75 74 69 6e 65 20 77 61 73 20 74 6f 20 62 routine was to b
7450: 65 20 61 62 6c 65 20 74 6f 20 63 61 6c 6c 20 74 e able to call t
7460: 68 65 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 63 72 he.** sqlite3_cr
7470: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 66 75 eate_function fu
7480: 6e 63 74 69 6f 6e 20 77 68 69 6c 65 20 61 20 71 nction while a q
7490: 75 65 72 79 20 69 73 20 69 6e 20 70 72 6f 67 72 uery is in progr
74a0: 65 73 73 20 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 ess in order.**
74b0: 74 6f 20 74 65 73 74 20 74 68 65 20 53 51 4c 49 to test the SQLI
74c0: 54 45 5f 4d 49 53 55 53 45 20 64 65 74 65 63 74 TE_MISUSE detect
74d0: 69 6f 6e 20 6c 6f 67 69 63 2e 0a 2a 2f 0a 73 74 ion logic..*/.st
74e0: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 72 atic int test_cr
74f0: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 0a 20 eate_function(.
7500: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
7510: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
7520: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
7530: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
7540: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
7550: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
7560: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
7570: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
7580: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
7590: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
75a0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
75b0: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
75c0: 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 72 63 t */.){. int rc
75d0: 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b ;. sqlite3 *db;
75e0: 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 .. if( argc!=2
75f0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
7600: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
7610: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
7620: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
7630: 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 gv[0],. "
7640: 44 42 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 DB\"", 0);. r
7650: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
7660: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
7670: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
7680: 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 argv[1], &db) )
7690: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
76a0: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
76b0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
76c0: 28 64 62 2c 20 22 78 5f 63 6f 61 6c 65 73 63 65 (db, "x_coalesce
76d0: 22 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 41 4e ", -1, SQLITE_AN
76e0: 59 2c 20 30 2c 20 0a 20 20 20 20 20 20 20 20 74 Y, 0, . t
76f0: 31 5f 69 66 6e 75 6c 6c 46 75 6e 63 2c 20 30 2c 1_ifnullFunc, 0,
7700: 20 30 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 0);. if( rc==S
7710: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 QLITE_OK ){.
7720: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 rc = sqlite3_cre
7730: 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c ate_function(db,
7740: 20 22 68 65 78 38 22 2c 20 31 2c 20 53 51 4c 49 "hex8", 1, SQLI
7750: 54 45 5f 41 4e 59 2c 20 30 2c 20 0a 20 20 20 20 TE_ANY, 0, .
7760: 20 20 20 20 20 20 68 65 78 38 46 75 6e 63 2c 20 hex8Func,
7770: 30 2c 20 30 29 3b 0a 20 20 7d 0a 23 69 66 6e 64 0, 0);. }.#ifnd
7780: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 ef SQLITE_OMIT_U
7790: 54 46 31 36 0a 20 20 69 66 28 20 72 63 3d 3d 53 TF16. if( rc==S
77a0: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 QLITE_OK ){.
77b0: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 rc = sqlite3_cre
77c0: 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c ate_function(db,
77d0: 20 22 68 65 78 31 36 22 2c 20 31 2c 20 53 51 4c "hex16", 1, SQL
77e0: 49 54 45 5f 41 4e 59 2c 20 30 2c 20 0a 20 20 20 ITE_ANY, 0, .
77f0: 20 20 20 20 20 20 20 68 65 78 31 36 46 75 6e 63 hex16Func
7800: 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 23 65 6e , 0, 0);. }.#en
7810: 64 69 66 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 dif. if( rc==SQ
7820: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 LITE_OK ){. r
7830: 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 c = sqlite3_crea
7840: 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 te_function(db,
7850: 22 74 6b 74 32 32 31 33 66 75 6e 63 22 2c 20 31 "tkt2213func", 1
7860: 2c 20 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c , SQLITE_ANY, 0,
7870: 20 0a 20 20 20 20 20 20 20 20 20 20 74 6b 74 32 . tkt2
7880: 32 31 33 46 75 6e 63 74 69 6f 6e 2c 20 30 2c 20 213Function, 0,
7890: 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 0);. }. if( rc
78a0: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 ==SQLITE_OK ){.
78b0: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
78c0: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 create_function(
78d0: 64 62 2c 20 22 70 6f 69 6e 74 65 72 5f 63 68 61 db, "pointer_cha
78e0: 6e 67 65 22 2c 20 34 2c 20 53 51 4c 49 54 45 5f nge", 4, SQLITE_
78f0: 41 4e 59 2c 20 30 2c 20 0a 20 20 20 20 20 20 20 ANY, 0, .
7900: 20 20 20 70 74 72 43 68 6e 67 46 75 6e 63 74 69 ptrChngFuncti
7910: 6f 6e 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 0a on, 0, 0);. }..
7920: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
7930: 4d 49 54 5f 55 54 46 31 36 0a 20 20 2f 2a 20 55 MIT_UTF16. /* U
7940: 73 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 63 se the sqlite3_c
7950: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 31 36 reate_function16
7960: 28 29 20 41 50 49 20 68 65 72 65 2e 20 4d 61 69 () API here. Mai
7970: 6e 6c 79 20 66 6f 72 20 66 75 6e 2c 20 62 75 74 nly for fun, but
7980: 20 61 6c 73 6f 20 0a 20 20 2a 2a 20 62 65 63 61 also . ** beca
7990: 75 73 65 20 69 74 20 69 73 20 6e 6f 74 20 74 65 use it is not te
79a0: 73 74 65 64 20 61 6e 79 77 68 65 72 65 20 65 6c sted anywhere el
79b0: 73 65 2e 20 2a 2f 0a 20 20 69 66 28 20 72 63 3d se. */. if( rc=
79c0: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 =SQLITE_OK ){.
79d0: 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 55 const void *zU
79e0: 74 66 31 36 3b 0a 20 20 20 20 73 71 6c 69 74 65 tf16;. sqlite
79f0: 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 3_value *pVal;.
7a00: 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 sqlite3_mutex
7a10: 5f 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 _enter(db->mutex
7a20: 29 3b 0a 20 20 20 20 70 56 61 6c 20 3d 20 73 71 );. pVal = sq
7a30: 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28 64 62 lite3ValueNew(db
7a40: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 56 61 );. sqlite3Va
7a50: 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c 2c 20 lueSetStr(pVal,
7a60: 2d 31 2c 20 22 78 5f 73 71 6c 69 74 65 5f 65 78 -1, "x_sqlite_ex
7a70: 65 63 22 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 ec", SQLITE_UTF8
7a80: 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 , SQLITE_STATIC)
7a90: 3b 0a 20 20 20 20 7a 55 74 66 31 36 20 3d 20 73 ;. zUtf16 = s
7aa0: 71 6c 69 74 65 33 56 61 6c 75 65 54 65 78 74 28 qlite3ValueText(
7ab0: 70 56 61 6c 2c 20 53 51 4c 49 54 45 5f 55 54 46 pVal, SQLITE_UTF
7ac0: 31 36 4e 41 54 49 56 45 29 3b 0a 20 20 20 20 69 16NATIVE);. i
7ad0: 66 28 20 64 62 2d 3e 6d 61 6c 6c 6f 63 46 61 69 f( db->mallocFai
7ae0: 6c 65 64 20 29 7b 0a 20 20 20 20 20 20 72 63 20 led ){. rc
7af0: 3d 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a = SQLITE_NOMEM;.
7b00: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
7b10: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 rc = sqlite3_cr
7b20: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 31 36 28 eate_function16(
7b30: 64 62 2c 20 7a 55 74 66 31 36 2c 20 0a 20 20 20 db, zUtf16, .
7b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 1,
7b50: 53 51 4c 49 54 45 5f 55 54 46 31 36 2c 20 64 62 SQLITE_UTF16, db
7b60: 2c 20 73 71 6c 69 74 65 33 45 78 65 63 46 75 6e , sqlite3ExecFun
7b70: 63 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 7d 0a c, 0, 0);. }.
7b80: 20 20 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 sqlite3Value
7b90: 46 72 65 65 28 70 56 61 6c 29 3b 0a 20 20 20 20 Free(pVal);.
7ba0: 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 sqlite3_mutex_le
7bb0: 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a ave(db->mutex);.
7bc0: 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 69 66 }.#endif.. if
7bd0: 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 ( sqlite3TestErr
7be0: 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 62 2c Code(interp, db,
7bf0: 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 rc) ) return TC
7c00: 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 L_ERROR;. Tcl_S
7c10: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
7c20: 20 28 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 (char *)t1Error
7c30: 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 Name(rc), 0);.
7c40: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
7c50: 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 ../*.** Routines
7c60: 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 to implement th
7c70: 65 20 78 5f 63 6f 75 6e 74 28 29 20 61 67 67 72 e x_count() aggr
7c80: 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 2e 0a egate function..
7c90: 2a 2a 0a 2a 2a 20 78 5f 63 6f 75 6e 74 28 29 20 **.** x_count()
7ca0: 63 6f 75 6e 74 73 20 74 68 65 20 6e 75 6d 62 65 counts the numbe
7cb0: 72 20 6f 66 20 6e 6f 6e 2d 6e 75 6c 6c 20 61 72 r of non-null ar
7cc0: 67 75 6d 65 6e 74 73 2e 20 20 42 75 74 20 74 68 guments. But th
7cd0: 65 72 65 20 61 72 65 0a 2a 2a 20 73 6f 6d 65 20 ere are.** some
7ce0: 74 77 69 73 74 73 20 66 6f 72 20 74 65 73 74 69 twists for testi
7cf0: 6e 67 20 70 75 72 70 6f 73 65 73 2e 0a 2a 2a 0a ng purposes..**.
7d00: 2a 2a 20 49 66 20 74 68 65 20 61 72 67 75 6d 65 ** If the argume
7d10: 6e 74 20 74 6f 20 78 5f 63 6f 75 6e 74 28 29 20 nt to x_count()
7d20: 69 73 20 34 30 20 74 68 65 6e 20 61 20 55 54 46 is 40 then a UTF
7d30: 2d 38 20 65 72 72 6f 72 20 69 73 20 72 65 70 6f -8 error is repo
7d40: 72 74 65 64 0a 2a 2a 20 6f 6e 20 74 68 65 20 73 rted.** on the s
7d50: 74 65 70 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 tep function. I
7d60: 66 20 78 5f 63 6f 75 6e 74 28 34 31 29 20 69 73 f x_count(41) is
7d70: 20 73 65 65 6e 2c 20 74 68 65 6e 20 61 20 55 54 seen, then a UT
7d80: 46 2d 31 36 20 65 72 72 6f 72 0a 2a 2a 20 69 73 F-16 error.** is
7d90: 20 72 65 70 6f 72 74 65 64 20 6f 6e 20 74 68 65 reported on the
7da0: 20 73 74 65 70 20 66 75 6e 63 74 69 6f 6e 2e 20 step function.
7db0: 20 49 66 20 74 68 65 20 74 6f 74 61 6c 20 63 6f If the total co
7dc0: 75 6e 74 20 69 73 20 34 32 2c 20 74 68 65 6e 0a unt is 42, then.
7dd0: 2a 2a 20 61 20 55 54 46 2d 38 20 65 72 72 6f 72 ** a UTF-8 error
7de0: 20 69 73 20 72 65 70 6f 72 74 65 64 20 6f 6e 20 is reported on
7df0: 74 68 65 20 66 69 6e 61 6c 69 7a 65 20 66 75 6e the finalize fun
7e00: 63 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 ction..*/.typede
7e10: 66 20 73 74 72 75 63 74 20 74 31 43 6f 75 6e 74 f struct t1Count
7e20: 43 74 78 20 74 31 43 6f 75 6e 74 43 74 78 3b 0a Ctx t1CountCtx;.
7e30: 73 74 72 75 63 74 20 74 31 43 6f 75 6e 74 43 74 struct t1CountCt
7e40: 78 20 7b 0a 20 20 69 6e 74 20 6e 3b 0a 7d 3b 0a x {. int n;.};.
7e50: 73 74 61 74 69 63 20 76 6f 69 64 20 74 31 43 6f static void t1Co
7e60: 75 6e 74 53 74 65 70 28 0a 20 20 73 71 6c 69 74 untStep(. sqlit
7e70: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
7e80: 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c ext,. int argc,
7e90: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
7ea0: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 74 31 43 **argv.){. t1C
7eb0: 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 ountCtx *p;. p
7ec0: 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 = sqlite3_aggreg
7ed0: 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 ate_context(cont
7ee0: 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 ext, sizeof(*p))
7ef0: 3b 0a 20 20 69 66 28 20 28 61 72 67 63 3d 3d 30 ;. if( (argc==0
7f00: 20 7c 7c 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 21 || SQLITE_NULL!
7f10: 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 =sqlite3_value_t
7f20: 79 70 65 28 61 72 67 76 5b 30 5d 29 20 29 20 26 ype(argv[0]) ) &
7f30: 26 20 70 20 29 7b 0a 20 20 20 20 70 2d 3e 6e 2b & p ){. p->n+
7f40: 2b 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 72 67 +;. }. if( arg
7f50: 63 3e 30 20 29 7b 0a 20 20 20 20 69 6e 74 20 76 c>0 ){. int v
7f60: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
7f70: 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 _int(argv[0]);.
7f80: 20 20 20 69 66 28 20 76 3d 3d 34 30 20 29 7b 0a if( v==40 ){.
7f90: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 sqlite3_re
7fa0: 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 sult_error(conte
7fb0: 78 74 2c 20 22 76 61 6c 75 65 20 6f 66 20 34 30 xt, "value of 40
7fc0: 20 68 61 6e 64 65 64 20 74 6f 20 78 5f 63 6f 75 handed to x_cou
7fd0: 6e 74 22 2c 20 2d 31 29 3b 0a 23 69 66 6e 64 65 nt", -1);.#ifnde
7fe0: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 f SQLITE_OMIT_UT
7ff0: 46 31 36 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 F16. }else if
8000: 28 20 76 3d 3d 34 31 20 29 7b 0a 20 20 20 20 20 ( v==41 ){.
8010: 20 63 6f 6e 73 74 20 63 68 61 72 20 7a 55 74 66 const char zUtf
8020: 31 36 45 72 72 4d 73 67 5b 5d 20 3d 20 7b 20 30 16ErrMsg[] = { 0
8030: 2c 20 30 78 36 31 2c 20 30 2c 20 30 78 36 32 2c , 0x61, 0, 0x62,
8040: 20 30 2c 20 30 78 36 33 2c 20 30 2c 20 30 2c 20 0, 0x63, 0, 0,
8050: 30 7d 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 0};. sqlite
8060: 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 31 36 3_result_error16
8070: 28 63 6f 6e 74 65 78 74 2c 20 26 7a 55 74 66 31 (context, &zUtf1
8080: 36 45 72 72 4d 73 67 5b 31 2d 53 51 4c 49 54 45 6ErrMsg[1-SQLITE
8090: 5f 42 49 47 45 4e 44 49 41 4e 5d 2c 20 2d 31 29 _BIGENDIAN], -1)
80a0: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a 20 ;.#endif. }.
80b0: 20 7d 0a 7d 20 20 20 0a 73 74 61 74 69 63 20 76 }.} .static v
80c0: 6f 69 64 20 74 31 43 6f 75 6e 74 46 69 6e 61 6c oid t1CountFinal
80d0: 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 ize(sqlite3_cont
80e0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 ext *context){.
80f0: 20 74 31 43 6f 75 6e 74 43 74 78 20 2a 70 3b 0a t1CountCtx *p;.
8100: 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 p = sqlite3_ag
8110: 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 gregate_context(
8120: 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 context, sizeof(
8130: 2a 70 29 29 3b 0a 20 20 69 66 28 20 70 20 29 7b *p));. if( p ){
8140: 0a 20 20 20 20 69 66 28 20 70 2d 3e 6e 3d 3d 34 . if( p->n==4
8150: 32 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 2 ){. sqlit
8160: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 e3_result_error(
8170: 63 6f 6e 74 65 78 74 2c 20 22 78 5f 63 6f 75 6e context, "x_coun
8180: 74 20 74 6f 74 61 6c 73 20 74 6f 20 34 32 22 2c t totals to 42",
8190: 20 2d 31 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b -1);. }else{
81a0: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 . sqlite3_r
81b0: 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 esult_int(contex
81c0: 74 2c 20 70 20 3f 20 70 2d 3e 6e 20 3a 20 30 29 t, p ? p->n : 0)
81d0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 ;. }. }.}..#
81e0: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
81f0: 49 54 5f 44 45 50 52 45 43 41 54 45 44 0a 73 74 IT_DEPRECATED.st
8200: 61 74 69 63 20 76 6f 69 64 20 6c 65 67 61 63 79 atic void legacy
8210: 43 6f 75 6e 74 53 74 65 70 28 0a 20 20 73 71 6c CountStep(. sql
8220: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
8230: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 ntext,. int arg
8240: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c c,. sqlite3_val
8250: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 2f ue **argv.){. /
8260: 2a 20 6e 6f 2d 6f 70 20 2a 2f 0a 7d 0a 0a 73 74 * no-op */.}..st
8270: 61 74 69 63 20 76 6f 69 64 20 6c 65 67 61 63 79 atic void legacy
8280: 43 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 28 73 71 CountFinalize(sq
8290: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
82a0: 6f 6e 74 65 78 74 29 7b 0a 20 20 73 71 6c 69 74 ontext){. sqlit
82b0: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f e3_result_int(co
82c0: 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 61 ntext, sqlite3_a
82d0: 67 67 72 65 67 61 74 65 5f 63 6f 75 6e 74 28 63 ggregate_count(c
82e0: 6f 6e 74 65 78 74 29 29 3b 0a 7d 0a 23 65 6e 64 ontext));.}.#end
82f0: 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a if../*.** Usage:
8300: 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 sqlite3_create
8310: 5f 61 67 67 72 65 67 61 74 65 20 44 42 0a 2a 2a _aggregate DB.**
8320: 0a 2a 2a 20 43 61 6c 6c 20 74 68 65 20 73 71 6c .** Call the sql
8330: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 ite3_create_func
8340: 74 69 6f 6e 20 41 50 49 20 6f 6e 20 74 68 65 20 tion API on the
8350: 67 69 76 65 6e 20 64 61 74 61 62 61 73 65 20 69 given database i
8360: 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 63 72 n order.** to cr
8370: 65 61 74 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 eate a function
8380: 6e 61 6d 65 64 20 22 78 5f 63 6f 75 6e 74 22 2e named "x_count".
8390: 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 This function
83a0: 69 73 20 73 69 6d 69 6c 61 72 0a 2a 2a 20 74 6f is similar.** to
83b0: 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 63 6f the built-in co
83c0: 75 6e 74 28 29 20 66 75 6e 63 74 69 6f 6e 2c 20 unt() function,
83d0: 77 69 74 68 20 61 20 66 65 77 20 73 70 65 63 69 with a few speci
83e0: 61 6c 20 71 75 69 72 6b 73 0a 2a 2a 20 66 6f 72 al quirks.** for
83f0: 20 74 65 73 74 69 6e 67 20 74 68 65 20 73 71 6c testing the sql
8400: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
8410: 72 28 29 20 41 50 49 73 2e 0a 2a 2a 0a 2a 2a 20 r() APIs..**.**
8420: 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 6d 6f 74 The original mot
8430: 69 76 61 74 69 6f 6e 20 66 6f 72 20 74 68 69 73 ivation for this
8440: 20 72 6f 75 74 69 6e 65 20 77 61 73 20 74 6f 20 routine was to
8450: 62 65 20 61 62 6c 65 20 74 6f 20 63 61 6c 6c 20 be able to call
8460: 74 68 65 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 63 the.** sqlite3_c
8470: 72 65 61 74 65 5f 61 67 67 72 65 67 61 74 65 20 reate_aggregate
8480: 66 75 6e 63 74 69 6f 6e 20 77 68 69 6c 65 20 61 function while a
8490: 20 71 75 65 72 79 20 69 73 20 69 6e 20 70 72 6f query is in pro
84a0: 67 72 65 73 73 20 69 6e 20 6f 72 64 65 72 0a 2a gress in order.*
84b0: 2a 20 74 6f 20 74 65 73 74 20 74 68 65 20 53 51 * to test the SQ
84c0: 4c 49 54 45 5f 4d 49 53 55 53 45 20 64 65 74 65 LITE_MISUSE dete
84d0: 63 74 69 6f 6e 20 6c 6f 67 69 63 2e 20 20 53 65 ction logic. Se
84e0: 65 20 6d 69 73 75 73 65 2e 74 65 73 74 2e 0a 2a e misuse.test..*
84f0: 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e *.** This routin
8500: 65 20 77 61 73 20 6c 61 74 65 72 20 65 78 74 65 e was later exte
8510: 6e 64 65 64 20 74 6f 20 74 65 73 74 20 74 68 65 nded to test the
8520: 20 75 73 65 20 6f 66 20 73 71 6c 69 74 65 33 5f use of sqlite3_
8530: 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 29 0a 2a result_error().*
8540: 2a 20 77 69 74 68 69 6e 20 61 67 67 72 65 67 61 * within aggrega
8550: 74 65 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2a te functions..**
8560: 0a 2a 2a 20 4c 61 74 65 72 3a 20 49 74 20 69 73 .** Later: It is
8570: 20 6e 6f 77 20 61 6c 73 6f 20 65 78 74 65 6e 64 now also extend
8580: 65 64 20 74 6f 20 72 65 67 69 73 74 65 72 20 74 ed to register t
8590: 68 65 20 61 67 67 72 65 67 61 74 65 20 66 75 6e he aggregate fun
85a0: 63 74 69 6f 6e 0a 2a 2a 20 22 6c 65 67 61 63 79 ction.** "legacy
85b0: 5f 63 6f 75 6e 74 28 29 22 20 77 69 74 68 20 74 _count()" with t
85c0: 68 65 20 73 75 70 70 6c 69 65 64 20 64 61 74 61 he supplied data
85d0: 62 61 73 65 20 68 61 6e 64 6c 65 2e 20 54 68 69 base handle. Thi
85e0: 73 20 69 73 20 75 73 65 64 0a 2a 2a 20 74 6f 20 s is used.** to
85f0: 74 65 73 74 20 74 68 65 20 64 65 70 72 65 63 61 test the depreca
8600: 74 65 64 20 73 71 6c 69 74 65 33 5f 61 67 67 72 ted sqlite3_aggr
8610: 65 67 61 74 65 5f 63 6f 75 6e 74 28 29 20 41 50 egate_count() AP
8620: 49 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 I..*/.static int
8630: 20 74 65 73 74 5f 63 72 65 61 74 65 5f 61 67 67 test_create_agg
8640: 72 65 67 61 74 65 28 0a 20 20 76 6f 69 64 20 2a regate(. void *
8650: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
8660: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
8670: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
8680: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
8690: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
86a0: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
86b0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
86c0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
86d0: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
86e0: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
86f0: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
8700: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
8710: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
8720: 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 int rc;. if(
8730: 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 argc!=2 ){. T
8740: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
8750: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
8760: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
8770: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 \"", argv[0],.
8780: 20 20 20 20 20 20 22 20 46 49 4c 45 4e 41 4d 45 " FILENAME
8790: 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 \"", 0);. ret
87a0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
87b0: 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
87c0: 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 inter(interp, ar
87d0: 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 gv[1], &db) ) re
87e0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
87f0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 rc = sqlite3_c
8800: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 reate_function(d
8810: 62 2c 20 22 78 5f 63 6f 75 6e 74 22 2c 20 30 2c b, "x_count", 0,
8820: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c SQLITE_UTF8, 0,
8830: 20 30 2c 0a 20 20 20 20 20 20 74 31 43 6f 75 6e 0,. t1Coun
8840: 74 53 74 65 70 2c 74 31 43 6f 75 6e 74 46 69 6e tStep,t1CountFin
8850: 61 6c 69 7a 65 29 3b 0a 20 20 69 66 28 20 72 63 alize);. if( rc
8860: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 ==SQLITE_OK ){.
8870: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
8880: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 create_function(
8890: 64 62 2c 20 22 78 5f 63 6f 75 6e 74 22 2c 20 31 db, "x_count", 1
88a0: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 , SQLITE_UTF8, 0
88b0: 2c 20 30 2c 0a 20 20 20 20 20 20 20 20 74 31 43 , 0,. t1C
88c0: 6f 75 6e 74 53 74 65 70 2c 74 31 43 6f 75 6e 74 ountStep,t1Count
88d0: 46 69 6e 61 6c 69 7a 65 29 3b 0a 20 20 7d 0a 23 Finalize);. }.#
88e0: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
88f0: 49 54 5f 44 45 50 52 45 43 41 54 45 44 0a 20 20 IT_DEPRECATED.
8900: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f if( rc==SQLITE_O
8910: 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 K ){. rc = sq
8920: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e lite3_create_fun
8930: 63 74 69 6f 6e 28 64 62 2c 20 22 6c 65 67 61 63 ction(db, "legac
8940: 79 5f 63 6f 75 6e 74 22 2c 20 30 2c 20 53 51 4c y_count", 0, SQL
8950: 49 54 45 5f 41 4e 59 2c 20 30 2c 20 30 2c 0a 20 ITE_ANY, 0, 0,.
8960: 20 20 20 20 20 20 20 6c 65 67 61 63 79 43 6f 75 legacyCou
8970: 6e 74 53 74 65 70 2c 20 6c 65 67 61 63 79 43 6f ntStep, legacyCo
8980: 75 6e 74 46 69 6e 61 6c 69 7a 65 0a 20 20 20 20 untFinalize.
8990: 29 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 );. }.#endif.
89a0: 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 if( sqlite3TestE
89b0: 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 64 rrCode(interp, d
89c0: 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 b, rc) ) return
89d0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c TCL_ERROR;. Tcl
89e0: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
89f0: 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 72 72 p, (char *)t1Err
8a00: 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a orName(rc), 0);.
8a10: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
8a20: 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 .}.../*.** Usage
8a30: 3a 20 20 70 72 69 6e 74 66 20 54 45 58 54 0a 2a : printf TEXT.*
8a40: 2a 0a 2a 2a 20 53 65 6e 64 20 6f 75 74 70 75 74 *.** Send output
8a50: 20 74 6f 20 70 72 69 6e 74 66 2e 20 20 55 73 65 to printf. Use
8a60: 20 74 68 69 73 20 72 61 74 68 65 72 20 74 68 61 this rather tha
8a70: 6e 20 70 75 74 73 20 74 6f 20 6d 65 72 67 65 20 n puts to merge
8a80: 74 68 65 20 6f 75 74 70 75 74 0a 2a 2a 20 69 6e the output.** in
8a90: 20 74 68 65 20 63 6f 72 72 65 63 74 20 73 65 71 the correct seq
8aa0: 75 65 6e 63 65 20 77 69 74 68 20 64 65 62 75 67 uence with debug
8ab0: 67 69 6e 67 20 70 72 69 6e 74 66 73 20 69 6e 73 ging printfs ins
8ac0: 65 72 74 65 64 20 69 6e 74 6f 20 43 20 63 6f 64 erted into C cod
8ad0: 65 2e 0a 2a 2a 20 50 75 74 73 20 75 73 65 73 20 e..** Puts uses
8ae0: 61 20 73 65 70 61 72 61 74 65 20 62 75 66 66 65 a separate buffe
8af0: 72 20 61 6e 64 20 64 65 62 75 67 67 69 6e 67 20 r and debugging
8b00: 73 74 61 74 65 6d 65 6e 74 73 20 77 69 6c 6c 20 statements will
8b10: 62 65 20 6f 75 74 20 6f 66 0a 2a 2a 20 73 65 71 be out of.** seq
8b20: 75 65 6e 63 65 20 69 66 20 69 74 20 69 73 20 75 uence if it is u
8b30: 73 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 sed..*/.static i
8b40: 6e 74 20 74 65 73 74 5f 70 72 69 6e 74 66 28 0a nt test_printf(.
8b50: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
8b60: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
8b70: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
8b80: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
8b90: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
8ba0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
8bb0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
8bc0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
8bd0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
8be0: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
8bf0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
8c00: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
8c10: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 66 28 20 61 nt */.){. if( a
8c20: 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 rgc!=2 ){. Tc
8c30: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
8c40: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
8c50: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
8c60: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 \"", argv[0],.
8c70: 20 20 20 20 20 22 20 54 45 58 54 5c 22 22 2c 20 " TEXT\"",
8c80: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
8c90: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
8ca0: 70 72 69 6e 74 66 28 22 25 73 5c 6e 22 2c 20 61 printf("%s\n", a
8cb0: 72 67 76 5b 31 5d 29 3b 0a 20 20 72 65 74 75 72 rgv[1]);. retur
8cc0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 0a 2f n TCL_OK;.}..../
8cd0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
8ce0: 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 ite3_mprintf_int
8cf0: 20 46 4f 52 4d 41 54 20 49 4e 54 45 47 45 52 20 FORMAT INTEGER
8d00: 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52 0a INTEGER INTEGER.
8d10: 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e **.** Call mprin
8d20: 74 66 20 77 69 74 68 20 74 68 72 65 65 20 69 6e tf with three in
8d30: 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 73 0a teger arguments.
8d40: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 */.static int sq
8d50: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e lite3_mprintf_in
8d60: 74 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 t(. void *NotUs
8d70: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
8d80: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
8d90: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
8da0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
8db0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
8dc0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
8dd0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
8de0: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
8df0: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
8e00: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
8e10: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
8e20: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e ument */.){. in
8e30: 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 20 63 68 61 t a[3], i;. cha
8e40: 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 r *z;. if( argc
8e50: 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=5 ){. Tcl_A
8e60: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8e70: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
8e80: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
8e90: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 , argv[0],.
8ea0: 20 20 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 " FORMAT INT I
8eb0: 4e 54 20 49 4e 54 5c 22 22 2c 20 30 29 3b 0a 20 NT INT\"", 0);.
8ec0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
8ed0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 ROR;. }. for(i
8ee0: 3d 32 3b 20 69 3c 35 3b 20 69 2b 2b 29 7b 0a 20 =2; i<5; i++){.
8ef0: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e if( Tcl_GetIn
8f00: 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 t(interp, argv[i
8f10: 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 29 20 72 65 ], &a[i-2]) ) re
8f20: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8f30: 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 }. z = sqlite
8f40: 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 31 3_mprintf(argv[1
8f50: 5d 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 61 ], a[0], a[1], a
8f60: 5b 32 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 [2]);. Tcl_Appe
8f70: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
8f80: 20 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 z, 0);. sqlite
8f90: 33 5f 66 72 65 65 28 7a 29 3b 0a 20 20 72 65 74 3_free(z);. ret
8fa0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
8fb0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
8fc0: 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 ite3_mprintf_int
8fd0: 36 34 20 46 4f 52 4d 41 54 20 49 4e 54 45 47 45 64 FORMAT INTEGE
8fe0: 52 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 R INTEGER INTEGE
8ff0: 52 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 R.**.** Call mpr
9000: 69 6e 74 66 20 77 69 74 68 20 74 68 72 65 65 20 intf with three
9010: 36 34 2d 62 69 74 20 69 6e 74 65 67 65 72 20 61 64-bit integer a
9020: 72 67 75 6d 65 6e 74 73 0a 2a 2f 0a 73 74 61 74 rguments.*/.stat
9030: 69 63 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6d ic int sqlite3_m
9040: 70 72 69 6e 74 66 5f 69 6e 74 36 34 28 0a 20 20 printf_int64(.
9050: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 void *NotUsed,.
9060: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
9070: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
9080: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
9090: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
90a0: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
90b0: 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 t argc,
90c0: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
90d0: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
90e0: 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 char **argv
90f0: 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 /* Text
9100: 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 of each argument
9110: 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a */.){. int i;.
9120: 20 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 61 sqlite_int64 a
9130: 5b 33 5d 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a [3];. char *z;.
9140: 20 20 69 66 28 20 61 72 67 63 21 3d 35 20 29 7b if( argc!=5 ){
9150: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
9160: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
9170: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
9180: 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 uld be \"", argv
9190: 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 4f [0],. " FO
91a0: 52 4d 41 54 20 49 4e 54 20 49 4e 54 20 49 4e 54 RMAT INT INT INT
91b0: 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 \"", 0);. ret
91c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
91d0: 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c }. for(i=2; i<
91e0: 35 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 5; i++){. if(
91f0: 20 73 71 6c 69 74 65 33 41 74 6f 69 36 34 28 61 sqlite3Atoi64(a
9200: 72 67 76 5b 69 5d 2c 20 26 61 5b 69 2d 32 5d 2c rgv[i], &a[i-2],
9210: 20 31 30 30 30 30 30 30 2c 20 53 51 4c 49 54 45 1000000, SQLITE
9220: 5f 55 54 46 38 29 20 29 7b 0a 20 20 20 20 20 20 _UTF8) ){.
9230: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
9240: 28 69 6e 74 65 72 70 2c 20 22 61 72 67 75 6d 65 (interp, "argume
9250: 6e 74 20 69 73 20 6e 6f 74 20 61 20 76 61 6c 69 nt is not a vali
9260: 64 20 36 34 2d 62 69 74 20 69 6e 74 65 67 65 72 d 64-bit integer
9270: 22 2c 20 30 29 3b 0a 20 20 20 20 20 20 72 65 74 ", 0);. ret
9280: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
9290: 20 20 20 7d 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 }. }. z = s
92a0: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 qlite3_mprintf(a
92b0: 72 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c 20 61 5b rgv[1], a[0], a[
92c0: 31 5d 2c 20 61 5b 32 5d 29 3b 0a 20 20 54 63 6c 1], a[2]);. Tcl
92d0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
92e0: 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 terp, z, 0);. s
92f0: 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 3b 0a qlite3_free(z);.
9300: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
9310: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
9320: 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 sqlite3_mprint
9330: 66 5f 6c 6f 6e 67 20 46 4f 52 4d 41 54 20 49 4e f_long FORMAT IN
9340: 54 45 47 45 52 20 49 4e 54 45 47 45 52 20 49 4e TEGER INTEGER IN
9350: 54 45 47 45 52 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c TEGER.**.** Call
9360: 20 6d 70 72 69 6e 74 66 20 77 69 74 68 20 74 68 mprintf with th
9370: 72 65 65 20 6c 6f 6e 67 20 69 6e 74 65 67 65 72 ree long integer
9380: 20 61 72 67 75 6d 65 6e 74 73 2e 20 20 20 54 68 arguments. Th
9390: 69 73 20 6d 69 67 68 74 20 62 65 20 74 68 65 0a is might be the.
93a0: 2a 2a 20 73 61 6d 65 20 61 73 20 73 71 6c 69 74 ** same as sqlit
93b0: 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 20 6f e3_mprintf_int o
93c0: 72 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 r sqlite3_mprint
93d0: 66 5f 69 6e 74 36 34 2c 20 64 65 70 65 6e 64 69 f_int64, dependi
93e0: 6e 67 20 6f 6e 0a 2a 2a 20 70 6c 61 74 66 6f 72 ng on.** platfor
93f0: 6d 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 m..*/.static int
9400: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 sqlite3_mprintf
9410: 5f 6c 6f 6e 67 28 0a 20 20 76 6f 69 64 20 2a 4e _long(. void *N
9420: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
9430: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
9440: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
9450: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
9460: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
9470: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
9480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
9490: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
94a0: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
94b0: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
94c0: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
94d0: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
94e0: 20 20 69 6e 74 20 69 3b 0a 20 20 6c 6f 6e 67 20 int i;. long
94f0: 69 6e 74 20 61 5b 33 5d 3b 0a 20 20 69 6e 74 20 int a[3];. int
9500: 62 5b 33 5d 3b 0a 20 20 63 68 61 72 20 2a 7a 3b b[3];. char *z;
9510: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 35 20 29 . if( argc!=5 )
9520: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
9530: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
9540: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
9550: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
9560: 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 v[0],. " F
9570: 4f 52 4d 41 54 20 49 4e 54 20 49 4e 54 20 49 4e ORMAT INT INT IN
9580: 54 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 T\"", 0);. re
9590: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
95a0: 20 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 }. for(i=2; i
95b0: 3c 35 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 <5; i++){. if
95c0: 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 ( Tcl_GetInt(int
95d0: 65 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26 62 erp, argv[i], &b
95e0: 5b 69 2d 32 5d 29 20 29 20 72 65 74 75 72 6e 20 [i-2]) ) return
95f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 61 TCL_ERROR;. a
9600: 5b 69 2d 32 5d 20 3d 20 28 6c 6f 6e 67 20 69 6e [i-2] = (long in
9610: 74 29 62 5b 69 2d 32 5d 3b 0a 20 20 20 20 61 5b t)b[i-2];. a[
9620: 69 2d 32 5d 20 26 3d 20 28 28 28 75 36 34 29 31 i-2] &= (((u64)1
9630: 29 3c 3c 28 73 69 7a 65 6f 66 28 69 6e 74 29 2a )<<(sizeof(int)*
9640: 38 29 29 2d 31 3b 0a 20 20 7d 0a 20 20 7a 20 3d 8))-1;. }. z =
9650: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 sqlite3_mprintf
9660: 28 61 72 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c 20 (argv[1], a[0],
9670: 61 5b 31 5d 2c 20 61 5b 32 5d 29 3b 0a 20 20 54 a[1], a[2]);. T
9680: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
9690: 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 interp, z, 0);.
96a0: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 sqlite3_free(z)
96b0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
96c0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
96d0: 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 e: sqlite3_mpri
96e0: 6e 74 66 5f 73 74 72 20 46 4f 52 4d 41 54 20 49 ntf_str FORMAT I
96f0: 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52 20 53 NTEGER INTEGER S
9700: 54 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c TRING.**.** Call
9710: 20 6d 70 72 69 6e 74 66 20 77 69 74 68 20 74 77 mprintf with tw
9720: 6f 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 o integer argume
9730: 6e 74 73 20 61 6e 64 20 6f 6e 65 20 73 74 72 69 nts and one stri
9740: 6e 67 20 61 72 67 75 6d 65 6e 74 0a 2a 2f 0a 73 ng argument.*/.s
9750: 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 tatic int sqlite
9760: 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 28 0a 20 3_mprintf_str(.
9770: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
9780: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
9790: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
97a0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
97b0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
97c0: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
97d0: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
97e0: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
97f0: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
9800: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
9810: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
9820: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
9830: 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 5b t */.){. int a[
9840: 33 5d 2c 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a 3], i;. char *z
9850: 3b 0a 20 20 69 66 28 20 61 72 67 63 3c 34 20 7c ;. if( argc<4 |
9860: 7c 20 61 72 67 63 3e 35 20 29 7b 0a 20 20 20 20 | argc>5 ){.
9870: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
9880: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
9890: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
98a0: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a e \"", argv[0],.
98b0: 20 20 20 20 20 20 20 22 20 46 4f 52 4d 41 54 20 " FORMAT
98c0: 49 4e 54 20 49 4e 54 20 3f 53 54 52 49 4e 47 3f INT INT ?STRING?
98d0: 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 \"", 0);. ret
98e0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
98f0: 20 7d 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c }. for(i=2; i<
9900: 34 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 4; i++){. if(
9910: 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 Tcl_GetInt(inte
9920: 72 70 2c 20 61 72 67 76 5b 69 5d 2c 20 26 61 5b rp, argv[i], &a[
9930: 69 2d 32 5d 29 20 29 20 72 65 74 75 72 6e 20 54 i-2]) ) return T
9940: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
9950: 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 z = sqlite3_mpri
9960: 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 61 5b 30 ntf(argv[1], a[0
9970: 5d 2c 20 61 5b 31 5d 2c 20 61 72 67 63 3e 34 20 ], a[1], argc>4
9980: 3f 20 61 72 67 76 5b 34 5d 20 3a 20 4e 55 4c 4c ? argv[4] : NULL
9990: 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 );. Tcl_AppendR
99a0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c esult(interp, z,
99b0: 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 0);. sqlite3_f
99c0: 72 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e ree(z);. return
99d0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
99e0: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
99f0: 33 5f 73 6e 70 72 69 6e 74 66 5f 73 74 72 20 49 3_snprintf_str I
9a00: 4e 54 45 47 45 52 20 46 4f 52 4d 41 54 20 49 4e NTEGER FORMAT IN
9a10: 54 45 47 45 52 20 49 4e 54 45 47 45 52 20 53 54 TEGER INTEGER ST
9a20: 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 RING.**.** Call
9a30: 6d 70 72 69 6e 74 66 20 77 69 74 68 20 74 77 6f mprintf with two
9a40: 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 6e integer argumen
9a50: 74 73 20 61 6e 64 20 6f 6e 65 20 73 74 72 69 6e ts and one strin
9a60: 67 20 61 72 67 75 6d 65 6e 74 0a 2a 2f 0a 73 74 g argument.*/.st
9a70: 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 33 atic int sqlite3
9a80: 5f 73 6e 70 72 69 6e 74 66 5f 73 74 72 28 0a 20 _snprintf_str(.
9a90: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
9aa0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
9ab0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
9ac0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
9ad0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
9ae0: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
9af0: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
9b00: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
9b10: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
9b20: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
9b30: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
9b40: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
9b50: 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 61 5b t */.){. int a[
9b60: 33 5d 2c 20 69 3b 0a 20 20 69 6e 74 20 6e 3b 0a 3], i;. int n;.
9b70: 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 char *z;. if(
9b80: 20 61 72 67 63 3c 35 20 7c 7c 20 61 72 67 63 3e argc<5 || argc>
9b90: 36 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 6 ){. Tcl_App
9ba0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
9bb0: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
9bc0: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
9bd0: 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 argv[0],.
9be0: 22 20 49 4e 54 20 46 4f 52 4d 41 54 20 49 4e 54 " INT FORMAT INT
9bf0: 20 49 4e 54 20 3f 53 54 52 49 4e 47 3f 5c 22 22 INT ?STRING?\""
9c00: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
9c10: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
9c20: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
9c30: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
9c40: 2c 20 26 6e 29 20 29 20 72 65 74 75 72 6e 20 54 , &n) ) return T
9c50: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
9c60: 6e 3c 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 n<0 ){. Tcl_A
9c70: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
9c80: 72 70 2c 20 22 4e 20 6d 75 73 74 20 62 65 20 6e rp, "N must be n
9c90: 6f 6e 2d 6e 65 67 61 74 69 76 65 22 2c 20 30 29 on-negative", 0)
9ca0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
9cb0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f _ERROR;. }. fo
9cc0: 72 28 69 3d 33 3b 20 69 3c 35 3b 20 69 2b 2b 29 r(i=3; i<5; i++)
9cd0: 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 {. if( Tcl_Ge
9ce0: 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 tInt(interp, arg
9cf0: 76 5b 69 5d 2c 20 26 61 5b 69 2d 33 5d 29 20 29 v[i], &a[i-3]) )
9d00: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
9d10: 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c R;. }. z = sql
9d20: 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 6e 2b 31 ite3_malloc( n+1
9d30: 20 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e );. sqlite3_sn
9d40: 70 72 69 6e 74 66 28 6e 2c 20 7a 2c 20 61 72 67 printf(n, z, arg
9d50: 76 5b 32 5d 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d v[2], a[0], a[1]
9d60: 2c 20 61 72 67 63 3e 34 20 3f 20 61 72 67 76 5b , argc>4 ? argv[
9d70: 35 5d 20 3a 20 4e 55 4c 4c 29 3b 0a 20 20 54 63 5] : NULL);. Tc
9d80: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
9d90: 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a 20 20 nterp, z, 0);.
9da0: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 29 3b sqlite3_free(z);
9db0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
9dc0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
9dd0: 3a 20 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e : sqlite3_mprin
9de0: 74 66 5f 64 6f 75 62 6c 65 20 46 4f 52 4d 41 54 tf_double FORMAT
9df0: 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52 INTEGER INTEGER
9e00: 20 44 4f 55 42 4c 45 0a 2a 2a 0a 2a 2a 20 43 61 DOUBLE.**.** Ca
9e10: 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 74 68 20 ll mprintf with
9e20: 74 77 6f 20 69 6e 74 65 67 65 72 20 61 72 67 75 two integer argu
9e30: 6d 65 6e 74 73 20 61 6e 64 20 6f 6e 65 20 64 6f ments and one do
9e40: 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 0a 2a 2f uble argument.*/
9e50: 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 .static int sqli
9e60: 74 65 33 5f 6d 70 72 69 6e 74 66 5f 64 6f 75 62 te3_mprintf_doub
9e70: 6c 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 le(. void *NotU
9e80: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
9e90: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
9ea0: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
9eb0: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
9ec0: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
9ed0: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
9ee0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
9ef0: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
9f00: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
9f10: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
9f20: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
9f30: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 gument */.){. i
9f40: 6e 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 20 64 6f nt a[3], i;. do
9f50: 75 62 6c 65 20 72 3b 0a 20 20 63 68 61 72 20 2a uble r;. char *
9f60: 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 35 z;. if( argc!=5
9f70: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
9f80: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
9f90: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
9fa0: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
9fb0: 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 rgv[0],. "
9fc0: 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e 54 20 FORMAT INT INT
9fd0: 44 4f 55 42 4c 45 5c 22 22 2c 20 30 29 3b 0a 20 DOUBLE\"", 0);.
9fe0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
9ff0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 ROR;. }. for(i
a000: 3d 32 3b 20 69 3c 34 3b 20 69 2b 2b 29 7b 0a 20 =2; i<4; i++){.
a010: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e if( Tcl_GetIn
a020: 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 t(interp, argv[i
a030: 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 29 20 72 65 ], &a[i-2]) ) re
a040: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
a050: 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 }. if( Tcl_Ge
a060: 74 44 6f 75 62 6c 65 28 69 6e 74 65 72 70 2c 20 tDouble(interp,
a070: 61 72 67 76 5b 34 5d 2c 20 26 72 29 20 29 20 72 argv[4], &r) ) r
a080: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a090: 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d . z = sqlite3_m
a0a0: 70 72 69 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 printf(argv[1],
a0b0: 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 72 29 3b 0a a[0], a[1], r);.
a0c0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
a0d0: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 lt(interp, z, 0)
a0e0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 ;. sqlite3_free
a0f0: 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 (z);. return TC
a100: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
a110: 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6d sage: sqlite3_m
a120: 70 72 69 6e 74 66 5f 73 63 61 6c 65 64 20 46 4f printf_scaled FO
a130: 52 4d 41 54 20 44 4f 55 42 4c 45 20 44 4f 55 42 RMAT DOUBLE DOUB
a140: 4c 45 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 LE.**.** Call mp
a150: 72 69 6e 74 66 20 77 69 74 68 20 61 20 73 69 6e rintf with a sin
a160: 67 6c 65 20 64 6f 75 62 6c 65 20 61 72 67 75 6d gle double argum
a170: 65 6e 74 20 77 68 69 63 68 20 69 73 20 74 68 65 ent which is the
a180: 20 70 72 6f 64 75 63 74 20 6f 66 20 74 68 65 0a product of the.
a190: 2a 2a 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 ** two arguments
a1a0: 20 67 69 76 65 6e 20 61 62 6f 76 65 2e 20 20 54 given above. T
a1b0: 68 69 73 20 69 73 20 75 73 65 64 20 74 6f 20 67 his is used to g
a1c0: 65 6e 65 72 61 74 65 20 6f 76 65 72 66 6c 6f 77 enerate overflow
a1d0: 20 61 6e 64 20 75 6e 64 65 72 66 6c 6f 77 0a 2a and underflow.*
a1e0: 2a 20 64 6f 75 62 6c 65 73 20 74 6f 20 74 65 73 * doubles to tes
a1f0: 74 20 74 68 61 74 20 74 68 65 79 20 61 72 65 20 t that they are
a200: 63 6f 6e 76 65 72 74 65 64 20 70 72 6f 70 65 72 converted proper
a210: 6c 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ly..*/.static in
a220: 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 t sqlite3_mprint
a230: 66 5f 73 63 61 6c 65 64 28 0a 20 20 76 6f 69 64 f_scaled(. void
a240: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
a250: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
a260: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
a270: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
a280: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
a290: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
a2a0: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
a2b0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
a2c0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
a2d0: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
a2e0: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
a2f0: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
a300: 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 64 6f ){. int i;. do
a310: 75 62 6c 65 20 72 5b 32 5d 3b 0a 20 20 63 68 61 uble r[2];. cha
a320: 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 r *z;. if( argc
a330: 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=4 ){. Tcl_A
a340: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
a350: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
a360: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
a370: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 , argv[0],.
a380: 20 20 22 20 46 4f 52 4d 41 54 20 44 4f 55 42 4c " FORMAT DOUBL
a390: 45 20 44 4f 55 42 4c 45 5c 22 22 2c 20 30 29 3b E DOUBLE\"", 0);
a3a0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
a3b0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 ERROR;. }. for
a3c0: 28 69 3d 32 3b 20 69 3c 34 3b 20 69 2b 2b 29 7b (i=2; i<4; i++){
a3d0: 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 . if( Tcl_Get
a3e0: 44 6f 75 62 6c 65 28 69 6e 74 65 72 70 2c 20 61 Double(interp, a
a3f0: 72 67 76 5b 69 5d 2c 20 26 72 5b 69 2d 32 5d 29 rgv[i], &r[i-2])
a400: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
a410: 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 ROR;. }. z = s
a420: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 qlite3_mprintf(a
a430: 72 67 76 5b 31 5d 2c 20 72 5b 30 5d 2a 72 5b 31 rgv[1], r[0]*r[1
a440: 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 ]);. Tcl_Append
a450: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a Result(interp, z
a460: 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f , 0);. sqlite3_
a470: 66 72 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 free(z);. retur
a480: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
a490: 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
a4a0: 65 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 6f 6e e3_mprintf_stron
a4b0: 6c 79 20 46 4f 52 4d 41 54 20 53 54 52 49 4e 47 ly FORMAT STRING
a4c0: 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 .**.** Call mpri
a4d0: 6e 74 66 20 77 69 74 68 20 61 20 73 69 6e 67 6c ntf with a singl
a4e0: 65 20 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e e double argumen
a4f0: 74 20 77 68 69 63 68 20 69 73 20 74 68 65 20 70 t which is the p
a500: 72 6f 64 75 63 74 20 6f 66 20 74 68 65 0a 2a 2a roduct of the.**
a510: 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 20 67 two arguments g
a520: 69 76 65 6e 20 61 62 6f 76 65 2e 20 20 54 68 69 iven above. Thi
a530: 73 20 69 73 20 75 73 65 64 20 74 6f 20 67 65 6e s is used to gen
a540: 65 72 61 74 65 20 6f 76 65 72 66 6c 6f 77 20 61 erate overflow a
a550: 6e 64 20 75 6e 64 65 72 66 6c 6f 77 0a 2a 2a 20 nd underflow.**
a560: 64 6f 75 62 6c 65 73 20 74 6f 20 74 65 73 74 20 doubles to test
a570: 74 68 61 74 20 74 68 65 79 20 61 72 65 20 63 6f that they are co
a580: 6e 76 65 72 74 65 64 20 70 72 6f 70 65 72 6c 79 nverted properly
a590: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
a5a0: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
a5b0: 73 74 72 6f 6e 6c 79 28 0a 20 20 76 6f 69 64 20 stronly(. void
a5c0: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f *NotUsed,. Tcl_
a5d0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
a5e0: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
a5f0: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
a600: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
a610: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 and */. int arg
a620: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
a630: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
a640: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 uments */. char
a650: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 **argv
a660: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 /* Text of ea
a670: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 ch argument */.)
a680: 7b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 {. char *z;. i
a690: 66 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 f( argc!=3 ){.
a6a0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
a6b0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
a6c0: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
a6d0: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d be \"", argv[0]
a6e0: 2c 0a 20 20 20 20 20 20 20 22 20 46 4f 52 4d 41 ,. " FORMA
a6f0: 54 20 53 54 52 49 4e 47 5c 22 22 2c 20 30 29 3b T STRING\"", 0);
a700: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
a710: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d ERROR;. }. z =
a720: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 sqlite3_mprintf
a730: 28 61 72 67 76 5b 31 5d 2c 20 61 72 67 76 5b 32 (argv[1], argv[2
a740: 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 ]);. Tcl_Append
a750: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a Result(interp, z
a760: 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f , 0);. sqlite3_
a770: 66 72 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 free(z);. retur
a780: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
a790: 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
a7a0: 65 33 5f 6d 70 72 69 6e 74 66 5f 68 65 78 64 6f e3_mprintf_hexdo
a7b0: 75 62 6c 65 20 46 4f 52 4d 41 54 20 48 45 58 0a uble FORMAT HEX.
a7c0: 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e **.** Call mprin
a7d0: 74 66 20 77 69 74 68 20 61 20 73 69 6e 67 6c 65 tf with a single
a7e0: 20 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 double argument
a7f0: 20 77 68 69 63 68 20 69 73 20 64 65 72 69 76 65 which is derive
a800: 64 20 66 72 6f 6d 20 74 68 65 0a 2a 2a 20 68 65 d from the.** he
a810: 78 61 64 65 63 69 6d 61 6c 20 65 6e 63 6f 64 69 xadecimal encodi
a820: 6e 67 20 6f 66 20 61 6e 20 49 45 45 45 20 64 6f ng of an IEEE do
a830: 75 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 uble..*/.static
a840: 69 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 int sqlite3_mpri
a850: 6e 74 66 5f 68 65 78 64 6f 75 62 6c 65 28 0a 20 ntf_hexdouble(.
a860: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
a870: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
a880: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
a890: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
a8a0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
a8b0: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
a8c0: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
a8d0: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
a8e0: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
a8f0: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
a900: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
a910: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
a920: 74 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 20 2a t */.){. char *
a930: 7a 3b 0a 20 20 64 6f 75 62 6c 65 20 72 3b 0a 20 z;. double r;.
a940: 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 78 31 unsigned int x1
a950: 2c 20 78 32 3b 0a 20 20 73 71 6c 69 74 65 5f 75 , x2;. sqlite_u
a960: 69 6e 74 36 34 20 64 3b 0a 20 20 69 66 28 20 61 int64 d;. if( a
a970: 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 rgc!=3 ){. Tc
a980: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
a990: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
a9a0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
a9b0: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 \"", argv[0],.
a9c0: 20 20 20 20 20 22 20 46 4f 52 4d 41 54 20 53 54 " FORMAT ST
a9d0: 52 49 4e 47 5c 22 22 2c 20 30 29 3b 0a 20 20 20 RING\"", 0);.
a9e0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
a9f0: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 73 73 63 R;. }. if( ssc
aa00: 61 6e 66 28 61 72 67 76 5b 32 5d 2c 20 22 25 30 anf(argv[2], "%0
aa10: 38 78 25 30 38 78 22 2c 20 26 78 32 2c 20 26 78 8x%08x", &x2, &x
aa20: 31 29 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 1)!=2 ){. Tcl
aa30: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
aa40: 74 65 72 70 2c 20 22 32 6e 64 20 61 72 67 75 6d terp, "2nd argum
aa50: 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 31 36 ent should be 16
aa60: 2d 63 68 61 72 61 63 74 65 72 73 20 6f 66 20 68 -characters of h
aa70: 65 78 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 ex", 0);. ret
aa80: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
aa90: 20 7d 0a 20 20 64 20 3d 20 78 32 3b 0a 20 20 64 }. d = x2;. d
aaa0: 20 3d 20 28 64 3c 3c 33 32 29 20 2b 20 78 31 3b = (d<<32) + x1;
aab0: 0a 20 20 6d 65 6d 63 70 79 28 26 72 2c 20 26 64 . memcpy(&r, &d
aac0: 2c 20 73 69 7a 65 6f 66 28 72 29 29 3b 0a 20 20 , sizeof(r));.
aad0: 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 z = sqlite3_mpri
aae0: 6e 74 66 28 61 72 67 76 5b 31 5d 2c 20 72 29 3b ntf(argv[1], r);
aaf0: 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 . Tcl_AppendRes
ab00: 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 ult(interp, z, 0
ab10: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 );. sqlite3_fre
ab20: 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 e(z);. return T
ab30: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
ab40: 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 65 Usage: sqlite3_e
ab50: 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 nable_shared_cac
ab60: 68 65 20 3f 42 4f 4f 4c 45 41 4e 3f 0a 2a 2a 0a he ?BOOLEAN?.**.
ab70: 2a 2f 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 */.#if !defined(
ab80: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 53 48 41 52 SQLITE_OMIT_SHAR
ab90: 45 44 5f 43 41 43 48 45 29 0a 73 74 61 74 69 63 ED_CACHE).static
aba0: 20 69 6e 74 20 74 65 73 74 5f 65 6e 61 62 6c 65 int test_enable
abb0: 5f 73 68 61 72 65 64 28 0a 20 20 43 6c 69 65 6e _shared(. Clien
abc0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
abd0: 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 , /* Pointer to
abe0: 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 sqlite3_enable_X
abf0: 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 XX function */.
ac00: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
ac10: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
ac20: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
ac30: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
ac40: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
ac50: 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 t objc,
ac60: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
ac70: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
ac80: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
ac90: 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 objv[] /* Comma
aca0: 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a nd arguments */.
acb0: 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 ){. int rc;. i
acc0: 6e 74 20 65 6e 61 62 6c 65 3b 0a 20 20 69 6e 74 nt enable;. int
acd0: 20 72 65 74 20 3d 20 30 3b 0a 0a 20 20 69 66 28 ret = 0;.. if(
ace0: 20 6f 62 6a 63 21 3d 32 20 26 26 20 6f 62 6a 63 objc!=2 && objc
acf0: 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 !=1 ){. Tcl_W
ad00: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
ad10: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 42 rp, 1, objv, "?B
ad20: 4f 4f 4c 45 41 4e 3f 22 29 3b 0a 20 20 20 20 72 OOLEAN?");. r
ad30: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
ad40: 0a 20 20 7d 0a 20 20 72 65 74 20 3d 20 73 71 6c . }. ret = sql
ad50: 69 74 65 33 47 6c 6f 62 61 6c 43 6f 6e 66 69 67 ite3GlobalConfig
ad60: 2e 73 68 61 72 65 64 43 61 63 68 65 45 6e 61 62 .sharedCacheEnab
ad70: 6c 65 64 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 led;.. if( objc
ad80: 3d 3d 32 20 29 7b 0a 20 20 20 20 69 66 28 20 54 ==2 ){. if( T
ad90: 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f cl_GetBooleanFro
ada0: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
adb0: 76 5b 31 5d 2c 20 26 65 6e 61 62 6c 65 29 20 29 v[1], &enable) )
adc0: 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 {. return T
add0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
ade0: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 rc = sqlite3
adf0: 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 _enable_shared_c
ae00: 61 63 68 65 28 65 6e 61 62 6c 65 29 3b 0a 20 20 ache(enable);.
ae10: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 if( rc!=SQLITE
ae20: 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 54 63 6c _OK ){. Tcl
ae30: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
ae40: 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c 69 74 p, (char *)sqlit
ae50: 65 33 45 72 72 53 74 72 28 72 63 29 2c 20 54 43 e3ErrStr(rc), TC
ae60: 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 20 L_STATIC);.
ae70: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
ae80: 52 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 54 R;. }. }. T
ae90: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
aea0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42 interp, Tcl_NewB
aeb0: 6f 6f 6c 65 61 6e 4f 62 6a 28 72 65 74 29 29 3b ooleanObj(ret));
aec0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
aed0: 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 0a 0a 2f 2a ;.}.#endif..../*
aee0: 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
aef0: 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75 e3_extended_resu
af00: 6c 74 5f 63 6f 64 65 73 20 20 20 44 42 20 20 20 lt_codes DB
af10: 20 42 4f 4f 4c 45 41 4e 0a 2a 2a 0a 2a 2f 0a 73 BOOLEAN.**.*/.s
af20: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 tatic int test_e
af30: 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 xtended_result_c
af40: 6f 64 65 73 28 0a 20 20 43 6c 69 65 6e 74 44 61 odes(. ClientDa
af50: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f ta clientData, /
af60: 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c * Pointer to sql
af70: 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 ite3_enable_XXX
af80: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 function */. Tc
af90: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
afa0: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
afb0: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
afc0: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
afd0: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f mmand */. int o
afe0: 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 bjc,
aff0: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
b000: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 rguments */. Tc
b010: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
b020: 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 v[] /* Command
b030: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a arguments */.){.
b040: 20 20 69 6e 74 20 65 6e 61 62 6c 65 3b 0a 20 20 int enable;.
b050: 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 0a 20 20 sqlite3 *db;..
b060: 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 if( objc!=3 ){.
b070: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 Tcl_WrongNumA
b080: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
b090: 62 6a 76 2c 20 22 44 42 20 42 4f 4f 4c 45 41 4e bjv, "DB BOOLEAN
b0a0: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
b0b0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
b0c0: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
b0d0: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
b0e0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
b0f0: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
b100: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
b110: 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 Tcl_GetBooleanFr
b120: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
b130: 6a 76 5b 32 5d 2c 20 26 65 6e 61 62 6c 65 29 20 jv[2], &enable)
b140: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
b150: 4f 52 3b 0a 20 20 73 71 6c 69 74 65 33 5f 65 78 OR;. sqlite3_ex
b160: 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f tended_result_co
b170: 64 65 73 28 64 62 2c 20 65 6e 61 62 6c 65 29 3b des(db, enable);
b180: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
b190: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
b1a0: 3a 20 73 71 6c 69 74 65 33 5f 6c 69 62 76 65 72 : sqlite3_libver
b1b0: 73 69 6f 6e 5f 6e 75 6d 62 65 72 0a 2a 2a 0a 2a sion_number.**.*
b1c0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
b1d0: 74 5f 6c 69 62 76 65 72 73 69 6f 6e 5f 6e 75 6d t_libversion_num
b1e0: 62 65 72 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 ber(. ClientDat
b1f0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a a clientData, /*
b200: 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 Pointer to sqli
b210: 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 te3_enable_XXX f
b220: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c unction */. Tcl
b230: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
b240: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
b250: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
b260: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
b270: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 mand */. int ob
b280: 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 jc,
b290: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
b2a0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c guments */. Tcl
b2b0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
b2c0: 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 [] /* Command a
b2d0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 rguments */.){.
b2e0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
b2f0: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
b300: 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f wIntObj(sqlite3_
b310: 6c 69 62 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 libversion_numbe
b320: 72 28 29 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 r()));. return
b330: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
b340: 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
b350: 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 table_column_met
b360: 61 64 61 74 61 20 44 42 20 64 62 6e 61 6d 65 20 adata DB dbname
b370: 74 62 6c 6e 61 6d 65 20 63 6f 6c 6e 61 6d 65 0a tblname colname.
b380: 2a 2a 0a 2a 2f 0a 23 69 66 64 65 66 20 53 51 4c **.*/.#ifdef SQL
b390: 49 54 45 5f 45 4e 41 42 4c 45 5f 43 4f 4c 55 4d ITE_ENABLE_COLUM
b3a0: 4e 5f 4d 45 54 41 44 41 54 41 0a 73 74 61 74 69 N_METADATA.stati
b3b0: 63 20 69 6e 74 20 74 65 73 74 5f 74 61 62 6c 65 c int test_table
b3c0: 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61 74 61 _column_metadata
b3d0: 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
b3e0: 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f lientData, /* Po
b3f0: 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 inter to sqlite3
b400: 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 _enable_XXX func
b410: 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e tion */. Tcl_In
b420: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
b430: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
b440: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
b450: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
b460: 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c d */. int objc,
b470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
b480: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
b490: 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 ents */. Tcl_Ob
b4a0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 j *CONST objv[]
b4b0: 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 /* Command argu
b4c0: 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 ments */.){. sq
b4d0: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 6f 6e lite3 *db;. con
b4e0: 73 74 20 63 68 61 72 20 2a 7a 44 62 3b 0a 20 20 st char *zDb;.
b4f0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 62 6c const char *zTbl
b500: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ;. const char *
b510: 7a 43 6f 6c 3b 0a 20 20 69 6e 74 20 72 63 3b 0a zCol;. int rc;.
b520: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b Tcl_Obj *pRet;
b530: 0a 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a .. const char *
b540: 7a 44 61 74 61 74 79 70 65 3b 0a 20 20 63 6f 6e zDatatype;. con
b550: 73 74 20 63 68 61 72 20 2a 7a 43 6f 6c 6c 73 65 st char *zCollse
b560: 71 3b 0a 20 20 69 6e 74 20 6e 6f 74 6e 75 6c 6c q;. int notnull
b570: 3b 0a 20 20 69 6e 74 20 70 72 69 6d 61 72 79 6b ;. int primaryk
b580: 65 79 3b 0a 20 20 69 6e 74 20 61 75 74 6f 69 6e ey;. int autoin
b590: 63 72 65 6d 65 6e 74 3b 0a 0a 20 20 69 66 28 20 crement;.. if(
b5a0: 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 objc!=5 ){. T
b5b0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
b5c0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
b5d0: 20 22 44 42 20 64 62 6e 61 6d 65 20 74 62 6c 6e "DB dbname tbln
b5e0: 61 6d 65 20 63 6f 6c 6e 61 6d 65 22 29 3b 0a 20 ame colname");.
b5f0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
b600: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
b610: 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
b620: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
b630: 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
b640: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
b650: 52 4f 52 3b 0a 20 20 7a 44 62 20 3d 20 54 63 6c ROR;. zDb = Tcl
b660: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
b670: 32 5d 29 3b 0a 20 20 7a 54 62 6c 20 3d 20 54 63 2]);. zTbl = Tc
b680: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
b690: 5b 33 5d 29 3b 0a 20 20 7a 43 6f 6c 20 3d 20 54 [3]);. zCol = T
b6a0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
b6b0: 76 5b 34 5d 29 3b 0a 0a 20 20 69 66 28 20 73 74 v[4]);.. if( st
b6c0: 72 6c 65 6e 28 7a 44 62 29 3d 3d 30 20 29 20 7a rlen(zDb)==0 ) z
b6d0: 44 62 20 3d 20 30 3b 0a 0a 20 20 72 63 20 3d 20 Db = 0;.. rc =
b6e0: 73 71 6c 69 74 65 33 5f 74 61 62 6c 65 5f 63 6f sqlite3_table_co
b6f0: 6c 75 6d 6e 5f 6d 65 74 61 64 61 74 61 28 64 62 lumn_metadata(db
b700: 2c 20 7a 44 62 2c 20 7a 54 62 6c 2c 20 7a 43 6f , zDb, zTbl, zCo
b710: 6c 2c 20 0a 20 20 20 20 20 20 26 7a 44 61 74 61 l, . &zData
b720: 74 79 70 65 2c 20 26 7a 43 6f 6c 6c 73 65 71 2c type, &zCollseq,
b730: 20 26 6e 6f 74 6e 75 6c 6c 2c 20 26 70 72 69 6d ¬null, &prim
b740: 61 72 79 6b 65 79 2c 20 26 61 75 74 6f 69 6e 63 arykey, &autoinc
b750: 72 65 6d 65 6e 74 29 3b 0a 0a 20 20 69 66 28 20 rement);.. if(
b760: 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b rc!=SQLITE_OK ){
b770: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
b780: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 71 esult(interp, sq
b790: 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 64 62 29 lite3_errmsg(db)
b7a0: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
b7b0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
b7c0: 0a 20 20 70 52 65 74 20 3d 20 54 63 6c 5f 4e 65 . pRet = Tcl_Ne
b7d0: 77 4f 62 6a 28 29 3b 0a 20 20 54 63 6c 5f 4c 69 wObj();. Tcl_Li
b7e0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
b7f0: 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 63 6c 5f nt(0, pRet, Tcl_
b800: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 44 61 NewStringObj(zDa
b810: 74 61 74 79 70 65 2c 20 2d 31 29 29 3b 0a 20 20 tatype, -1));.
b820: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
b830: 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 dElement(0, pRet
b840: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
b850: 62 6a 28 7a 43 6f 6c 6c 73 65 71 2c 20 2d 31 29 bj(zCollseq, -1)
b860: 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a );. Tcl_ListObj
b870: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c AppendElement(0,
b880: 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 49 6e pRet, Tcl_NewIn
b890: 74 4f 62 6a 28 6e 6f 74 6e 75 6c 6c 29 29 3b 0a tObj(notnull));.
b8a0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
b8b0: 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 endElement(0, pR
b8c0: 65 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 et, Tcl_NewIntOb
b8d0: 6a 28 70 72 69 6d 61 72 79 6b 65 79 29 29 3b 0a j(primarykey));.
b8e0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
b8f0: 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 endElement(0, pR
b900: 65 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 et, Tcl_NewIntOb
b910: 6a 28 61 75 74 6f 69 6e 63 72 65 6d 65 6e 74 29 j(autoincrement)
b920: 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 );. Tcl_SetObjR
b930: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52 esult(interp, pR
b940: 65 74 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 et);.. return T
b950: 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a CL_OK;.}.#endif.
b960: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f .#ifndef SQLITE_
b970: 4f 4d 49 54 5f 49 4e 43 52 42 4c 4f 42 0a 0a 73 OMIT_INCRBLOB..s
b980: 74 61 74 69 63 20 69 6e 74 20 62 6c 6f 62 48 61 tatic int blobHa
b990: 6e 64 6c 65 46 72 6f 6d 4f 62 6a 28 0a 20 20 54 ndleFromObj(. T
b9a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
b9b0: 70 2c 20 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 p, . Tcl_Obj *p
b9c0: 4f 62 6a 2c 0a 20 20 73 71 6c 69 74 65 33 5f 62 Obj,. sqlite3_b
b9d0: 6c 6f 62 20 2a 2a 70 70 42 6c 6f 62 0a 29 7b 0a lob **ppBlob.){.
b9e0: 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 char *z;. int
b9f0: 20 6e 3b 0a 0a 20 20 7a 20 3d 20 54 63 6c 5f 47 n;.. z = Tcl_G
ba00: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
ba10: 70 4f 62 6a 2c 20 26 6e 29 3b 0a 20 20 69 66 28 pObj, &n);. if(
ba20: 20 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 2a 70 70 n==0 ){. *pp
ba30: 42 6c 6f 62 20 3d 20 30 3b 0a 20 20 7d 65 6c 73 Blob = 0;. }els
ba40: 65 7b 0a 20 20 20 20 69 6e 74 20 6e 6f 74 55 73 e{. int notUs
ba50: 65 64 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ed;. Tcl_Chan
ba60: 6e 65 6c 20 63 68 61 6e 6e 65 6c 3b 0a 20 20 20 nel channel;.
ba70: 20 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 ClientData inst
ba80: 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 0a 20 anceData;. .
ba90: 20 20 20 63 68 61 6e 6e 65 6c 20 3d 20 54 63 6c channel = Tcl
baa0: 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 _GetChannel(inte
bab0: 72 70 2c 20 7a 2c 20 26 6e 6f 74 55 73 65 64 29 rp, z, ¬Used)
bac0: 3b 0a 20 20 20 20 69 66 28 20 21 63 68 61 6e 6e ;. if( !chann
bad0: 65 6c 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f el ) return TCL_
bae0: 45 52 52 4f 52 3b 0a 0a 20 20 20 20 54 63 6c 5f ERROR;.. Tcl_
baf0: 46 6c 75 73 68 28 63 68 61 6e 6e 65 6c 29 3b 0a Flush(channel);.
bb00: 20 20 20 20 54 63 6c 5f 53 65 65 6b 28 63 68 61 Tcl_Seek(cha
bb10: 6e 6e 65 6c 2c 20 30 2c 20 53 45 45 4b 5f 53 45 nnel, 0, SEEK_SE
bb20: 54 29 3b 0a 0a 20 20 20 20 69 6e 73 74 61 6e 63 T);.. instanc
bb30: 65 44 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 43 eData = Tcl_GetC
bb40: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
bb50: 74 61 28 63 68 61 6e 6e 65 6c 29 3b 0a 20 20 20 ta(channel);.
bb60: 20 2a 70 70 42 6c 6f 62 20 3d 20 2a 28 28 73 71 *ppBlob = *((sq
bb70: 6c 69 74 65 33 5f 62 6c 6f 62 20 2a 2a 29 69 6e lite3_blob **)in
bb80: 73 74 61 6e 63 65 44 61 74 61 29 3b 0a 20 20 7d stanceData);. }
bb90: 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f .. return TCL_O
bba0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 K;.}../*.** sqli
bbb0: 74 65 33 5f 62 6c 6f 62 5f 62 79 74 65 73 20 20 te3_blob_bytes
bbc0: 43 48 41 4e 4e 45 4c 0a 2a 2f 0a 73 74 61 74 69 CHANNEL.*/.stati
bbd0: 63 20 69 6e 74 20 74 65 73 74 5f 62 6c 6f 62 5f c int test_blob_
bbe0: 62 79 74 65 73 28 0a 20 20 43 6c 69 65 6e 74 44 bytes(. ClientD
bbf0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
bc00: 2f 2a 20 4e 6f 74 20 75 73 65 64 20 2a 2f 0a 20 /* Not used */.
bc10: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
bc20: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
bc30: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
bc40: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
bc50: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
bc60: 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 t objc,
bc70: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
bc80: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
bc90: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
bca0: 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 objv[] /* Comma
bcb0: 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a nd arguments */.
bcc0: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f ){. sqlite3_blo
bcd0: 62 20 2a 70 42 6c 6f 62 3b 0a 20 20 69 6e 74 20 b *pBlob;. int
bce0: 6e 42 79 74 65 3b 0a 20 20 0a 20 20 69 66 28 20 nByte;. . if(
bcf0: 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
bd00: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
bd10: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
bd20: 20 22 43 48 41 4e 4e 45 4c 22 29 3b 0a 20 20 20 "CHANNEL");.
bd30: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
bd40: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 62 6c R;. }.. if( bl
bd50: 6f 62 48 61 6e 64 6c 65 46 72 6f 6d 4f 62 6a 28 obHandleFromObj(
bd60: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c interp, objv[1],
bd70: 20 26 70 42 6c 6f 62 29 20 29 20 72 65 74 75 72 &pBlob) ) retur
bd80: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 6e n TCL_ERROR;. n
bd90: 42 79 74 65 20 3d 20 73 71 6c 69 74 65 33 5f 62 Byte = sqlite3_b
bda0: 6c 6f 62 5f 62 79 74 65 73 28 70 42 6c 6f 62 29 lob_bytes(pBlob)
bdb0: 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. Tcl_SetObjRe
bdc0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
bdd0: 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e 42 79 74 65 _NewIntObj(nByte
bde0: 29 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 ));.. return TC
bdf0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 L_OK;.}../*.** s
be00: 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 63 6c 6f 73 qlite3_blob_clos
be10: 65 20 20 43 48 41 4e 4e 45 4c 0a 2a 2f 0a 73 74 e CHANNEL.*/.st
be20: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 6c atic int test_bl
be30: 6f 62 5f 63 6c 6f 73 65 28 0a 20 20 43 6c 69 65 ob_close(. Clie
be40: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
be50: 61 2c 20 2f 2a 20 4e 6f 74 20 75 73 65 64 20 2a a, /* Not used *
be60: 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a /. Tcl_Interp *
be70: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
be80: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
be90: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
bea0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
beb0: 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 int objc,
bec0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
bed0: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
bee0: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e /. Tcl_Obj *CON
bef0: 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f ST objv[] /* Co
bf00: 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 mmand arguments
bf10: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f */.){. sqlite3_
bf20: 62 6c 6f 62 20 2a 70 42 6c 6f 62 3b 0a 20 20 0a blob *pBlob;. .
bf30: 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b if( objc!=2 ){
bf40: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
bf50: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
bf60: 20 6f 62 6a 76 2c 20 22 43 48 41 4e 4e 45 4c 22 objv, "CHANNEL"
bf70: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
bf80: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
bf90: 69 66 28 20 62 6c 6f 62 48 61 6e 64 6c 65 46 72 if( blobHandleFr
bfa0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
bfb0: 6a 76 5b 31 5d 2c 20 26 70 42 6c 6f 62 29 20 29 jv[1], &pBlob) )
bfc0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
bfd0: 52 3b 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f R;. sqlite3_blo
bfe0: 62 5f 63 6c 6f 73 65 28 70 42 6c 6f 62 29 3b 0a b_close(pBlob);.
bff0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
c000: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 ;.}../*.** sqlit
c010: 65 33 5f 62 6c 6f 62 5f 72 65 61 64 20 20 43 48 e3_blob_read CH
c020: 41 4e 4e 45 4c 20 4f 46 46 53 45 54 20 4e 0a 2a ANNEL OFFSET N.*
c030: 2a 0a 2a 2a 20 20 20 54 68 69 73 20 63 6f 6d 6d *.** This comm
c040: 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 74 and is used to t
c050: 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f est the sqlite3_
c060: 62 6c 6f 62 5f 72 65 61 64 28 29 20 69 6e 20 77 blob_read() in w
c070: 61 79 73 20 74 68 61 74 0a 2a 2a 20 20 20 74 68 ays that.** th
c080: 65 20 54 63 6c 20 63 68 61 6e 6e 65 6c 20 69 6e e Tcl channel in
c090: 74 65 72 66 61 63 65 20 64 6f 65 73 20 6e 6f 74 terface does not
c0a0: 2e 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75 . The first argu
c0b0: 6d 65 6e 74 20 73 68 6f 75 6c 64 0a 2a 2a 20 20 ment should.**
c0c0: 20 62 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 be the name of
c0d0: 61 20 76 61 6c 69 64 20 63 68 61 6e 6e 65 6c 20 a valid channel
c0e0: 63 72 65 61 74 65 64 20 62 79 20 74 68 65 20 5b created by the [
c0f0: 69 6e 63 72 62 6c 6f 62 5d 20 6d 65 74 68 6f 64 incrblob] method
c100: 0a 2a 2a 20 20 20 6f 66 20 61 20 64 61 74 61 62 .** of a datab
c110: 61 73 65 20 68 61 6e 64 6c 65 2e 20 54 68 69 73 ase handle. This
c120: 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 73 20 function calls
c130: 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 72 65 61 sqlite3_blob_rea
c140: 64 28 29 0a 2a 2a 20 20 20 74 6f 20 72 65 61 64 d().** to read
c150: 20 4e 20 62 79 74 65 73 20 66 72 6f 6d 20 6f 66 N bytes from of
c160: 66 73 65 74 20 4f 46 46 53 45 54 20 66 72 6f 6d fset OFFSET from
c170: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
c180: 53 51 4c 69 74 65 0a 2a 2a 20 20 20 62 6c 6f 62 SQLite.** blob
c190: 20 68 61 6e 64 6c 65 2e 0a 2a 2a 0a 2a 2a 20 20 handle..**.**
c1a0: 20 4f 6e 20 73 75 63 63 65 73 73 2c 20 61 20 62 On success, a b
c1b0: 79 74 65 2d 61 72 72 61 79 20 6f 62 6a 65 63 74 yte-array object
c1c0: 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 containing the
c1d0: 72 65 61 64 20 64 61 74 61 20 69 73 20 0a 2a 2a read data is .**
c1e0: 20 20 20 72 65 74 75 72 6e 65 64 2e 20 4f 6e 20 returned. On
c1f0: 66 61 69 6c 75 72 65 2c 20 74 68 65 20 69 6e 74 failure, the int
c200: 65 72 70 72 65 74 65 72 20 72 65 73 75 6c 74 20 erpreter result
c210: 69 73 20 73 65 74 20 74 6f 20 74 68 65 0a 2a 2a is set to the.**
c220: 20 20 20 74 65 78 74 20 72 65 70 72 65 73 65 6e text represen
c230: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 tation of the re
c240: 74 75 72 6e 65 64 20 65 72 72 6f 72 20 63 6f 64 turned error cod
c250: 65 20 28 69 2e 65 2e 20 22 53 51 4c 49 54 45 5f e (i.e. "SQLITE_
c260: 4e 4f 4d 45 4d 22 29 0a 2a 2a 20 20 20 61 6e 64 NOMEM").** and
c270: 20 61 20 54 63 6c 20 65 78 63 65 70 74 69 6f 6e a Tcl exception
c280: 20 69 73 20 74 68 72 6f 77 6e 2e 0a 2a 2f 0a 73 is thrown..*/.s
c290: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 tatic int test_b
c2a0: 6c 6f 62 5f 72 65 61 64 28 0a 20 20 43 6c 69 65 lob_read(. Clie
c2b0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
c2c0: 61 2c 20 2f 2a 20 4e 6f 74 20 75 73 65 64 20 2a a, /* Not used *
c2d0: 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a /. Tcl_Interp *
c2e0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
c2f0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
c300: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
c310: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
c320: 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 int objc,
c330: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
c340: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
c350: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e /. Tcl_Obj *CON
c360: 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f ST objv[] /* Co
c370: 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 mmand arguments
c380: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f */.){. sqlite3_
c390: 62 6c 6f 62 20 2a 70 42 6c 6f 62 3b 0a 20 20 69 blob *pBlob;. i
c3a0: 6e 74 20 6e 42 79 74 65 3b 0a 20 20 69 6e 74 20 nt nByte;. int
c3b0: 69 4f 66 66 73 65 74 3b 0a 20 20 75 6e 73 69 67 iOffset;. unsig
c3c0: 6e 65 64 20 63 68 61 72 20 2a 7a 42 75 66 20 3d ned char *zBuf =
c3d0: 20 30 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 0;. int rc;.
c3e0: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 . if( objc!=4 )
c3f0: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
c400: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
c410: 2c 20 6f 62 6a 76 2c 20 22 43 48 41 4e 4e 45 4c , objv, "CHANNEL
c420: 20 4f 46 46 53 45 54 20 4e 22 29 3b 0a 20 20 20 OFFSET N");.
c430: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
c440: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 62 6c R;. }.. if( bl
c450: 6f 62 48 61 6e 64 6c 65 46 72 6f 6d 4f 62 6a 28 obHandleFromObj(
c460: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c interp, objv[1],
c470: 20 26 70 42 6c 6f 62 29 20 29 20 72 65 74 75 72 &pBlob) ) retur
c480: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
c490: 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 f( TCL_OK!=Tcl_G
c4a0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
c4b0: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 erp, objv[2], &i
c4c0: 4f 66 66 73 65 74 29 0a 20 20 20 7c 7c 20 54 43 Offset). || TC
c4d0: 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 L_OK!=Tcl_GetInt
c4e0: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
c4f0: 6f 62 6a 76 5b 33 5d 2c 20 26 6e 42 79 74 65 29 objv[3], &nByte)
c500: 0a 20 20 29 7b 20 0a 20 20 20 20 72 65 74 75 72 . ){ . retur
c510: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
c520: 0a 0a 20 20 69 66 28 20 6e 42 79 74 65 3e 30 20 .. if( nByte>0
c530: 29 7b 0a 20 20 20 20 7a 42 75 66 20 3d 20 28 75 ){. zBuf = (u
c540: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 54 nsigned char *)T
c550: 63 6c 5f 41 6c 6c 6f 63 28 6e 42 79 74 65 29 3b cl_Alloc(nByte);
c560: 0a 20 20 7d 0a 20 20 72 63 20 3d 20 73 71 6c 69 . }. rc = sqli
c570: 74 65 33 5f 62 6c 6f 62 5f 72 65 61 64 28 70 42 te3_blob_read(pB
c580: 6c 6f 62 2c 20 7a 42 75 66 2c 20 6e 42 79 74 65 lob, zBuf, nByte
c590: 2c 20 69 4f 66 66 73 65 74 29 3b 0a 20 20 69 66 , iOffset);. if
c5a0: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc==SQLITE_OK
c5b0: 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 ){. Tcl_SetOb
c5c0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
c5d0: 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 Tcl_NewByteArray
c5e0: 4f 62 6a 28 7a 42 75 66 2c 20 6e 42 79 74 65 29 Obj(zBuf, nByte)
c5f0: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 );. }else{.
c600: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
c610: 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71 terp, (char *)sq
c620: 6c 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 lite3TestErrorNa
c630: 6d 65 28 72 63 29 2c 20 54 43 4c 5f 56 4f 4c 41 me(rc), TCL_VOLA
c640: 54 49 4c 45 29 3b 0a 20 20 7d 0a 20 20 54 63 6c TILE);. }. Tcl
c650: 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 7a 42 _Free((char *)zB
c660: 75 66 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 28 uf);.. return (
c670: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 3f 20 rc==SQLITE_OK ?
c680: 54 43 4c 5f 4f 4b 20 3a 20 54 43 4c 5f 45 52 52 TCL_OK : TCL_ERR
c690: 4f 52 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 OR);.}../*.** sq
c6a0: 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69 74 65 lite3_blob_write
c6b0: 20 43 48 41 4e 4e 45 4c 20 4f 46 46 53 45 54 20 CHANNEL OFFSET
c6c0: 44 41 54 41 20 3f 4e 44 41 54 41 3f 0a 2a 2a 0a DATA ?NDATA?.**.
c6d0: 2a 2a 20 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e ** This comman
c6e0: 64 20 69 73 20 75 73 65 64 20 74 6f 20 74 65 73 d is used to tes
c6f0: 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62 6c t the sqlite3_bl
c700: 6f 62 5f 77 72 69 74 65 28 29 20 69 6e 20 77 61 ob_write() in wa
c710: 79 73 20 74 68 61 74 0a 2a 2a 20 20 20 74 68 65 ys that.** the
c720: 20 54 63 6c 20 63 68 61 6e 6e 65 6c 20 69 6e 74 Tcl channel int
c730: 65 72 66 61 63 65 20 64 6f 65 73 20 6e 6f 74 2e erface does not.
c740: 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75 6d The first argum
c750: 65 6e 74 20 73 68 6f 75 6c 64 0a 2a 2a 20 20 20 ent should.**
c760: 62 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 be the name of a
c770: 20 76 61 6c 69 64 20 63 68 61 6e 6e 65 6c 20 63 valid channel c
c780: 72 65 61 74 65 64 20 62 79 20 74 68 65 20 5b 69 reated by the [i
c790: 6e 63 72 62 6c 6f 62 5d 20 6d 65 74 68 6f 64 0a ncrblob] method.
c7a0: 2a 2a 20 20 20 6f 66 20 61 20 64 61 74 61 62 61 ** of a databa
c7b0: 73 65 20 68 61 6e 64 6c 65 2e 20 54 68 69 73 20 se handle. This
c7c0: 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 73 20 73 function calls s
c7d0: 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69 74 qlite3_blob_writ
c7e0: 65 28 29 0a 2a 2a 20 20 20 74 6f 20 77 72 69 74 e().** to writ
c7f0: 65 20 74 68 65 20 44 41 54 41 20 62 79 74 65 2d e the DATA byte-
c800: 61 72 72 61 79 20 74 6f 20 74 68 65 20 75 6e 64 array to the und
c810: 65 72 6c 79 69 6e 67 20 53 51 4c 69 74 65 20 62 erlying SQLite b
c820: 6c 6f 62 20 68 61 6e 64 6c 65 2e 0a 2a 2a 20 20 lob handle..**
c830: 20 61 74 20 6f 66 66 73 65 74 20 4f 46 46 53 45 at offset OFFSE
c840: 54 2e 0a 2a 2a 0a 2a 2a 20 20 20 4f 6e 20 73 75 T..**.** On su
c850: 63 63 65 73 73 2c 20 61 6e 20 65 6d 70 74 79 20 ccess, an empty
c860: 73 74 72 69 6e 67 20 69 73 20 72 65 74 75 72 6e string is return
c870: 65 64 2e 20 4f 6e 20 66 61 69 6c 75 72 65 2c 20 ed. On failure,
c880: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 0a the interpreter.
c890: 2a 2a 20 20 20 72 65 73 75 6c 74 20 69 73 20 73 ** result is s
c8a0: 65 74 20 74 6f 20 74 68 65 20 74 65 78 74 20 72 et to the text r
c8b0: 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 epresentation of
c8c0: 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 65 72 the returned er
c8d0: 72 6f 72 20 63 6f 64 65 20 0a 2a 2a 20 20 20 28 ror code .** (
c8e0: 69 2e 65 2e 20 22 53 51 4c 49 54 45 5f 4e 4f 4d i.e. "SQLITE_NOM
c8f0: 45 4d 22 29 20 61 6e 64 20 61 20 54 63 6c 20 65 EM") and a Tcl e
c900: 78 63 65 70 74 69 6f 6e 20 69 73 20 74 68 72 6f xception is thro
c910: 77 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e wn..*/.static in
c920: 74 20 74 65 73 74 5f 62 6c 6f 62 5f 77 72 69 74 t test_blob_writ
c930: 65 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 e(. ClientData
c940: 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 4e clientData, /* N
c950: 6f 74 20 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c ot used */. Tcl
c960: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
c970: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
c980: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
c990: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
c9a0: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 mand */. int ob
c9b0: 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 jc,
c9c0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
c9d0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c guments */. Tcl
c9e0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
c9f0: 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 [] /* Command a
ca00: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 rguments */.){.
ca10: 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 2a 70 sqlite3_blob *p
ca20: 42 6c 6f 62 3b 0a 20 20 69 6e 74 20 69 4f 66 66 Blob;. int iOff
ca30: 73 65 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a set;. int rc;..
ca40: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
ca50: 2a 7a 42 75 66 3b 0a 20 20 69 6e 74 20 6e 42 75 *zBuf;. int nBu
ca60: 66 3b 0a 20 20 0a 20 20 69 66 28 20 6f 62 6a 63 f;. . if( objc
ca70: 21 3d 34 20 26 26 20 6f 62 6a 63 21 3d 35 20 29 !=4 && objc!=5 )
ca80: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
ca90: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
caa0: 2c 20 6f 62 6a 76 2c 20 22 43 48 41 4e 4e 45 4c , objv, "CHANNEL
cab0: 20 4f 46 46 53 45 54 20 44 41 54 41 20 3f 4e 44 OFFSET DATA ?ND
cac0: 41 54 41 3f 22 29 3b 0a 20 20 20 20 72 65 74 75 ATA?");. retu
cad0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
cae0: 7d 0a 0a 20 20 69 66 28 20 62 6c 6f 62 48 61 6e }.. if( blobHan
caf0: 64 6c 65 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 dleFromObj(inter
cb00: 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 70 42 6c p, objv[1], &pBl
cb10: 6f 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c ob) ) return TCL
cb20: 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 43 _ERROR;. if( TC
cb30: 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 L_OK!=Tcl_GetInt
cb40: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
cb50: 6f 62 6a 76 5b 32 5d 2c 20 26 69 4f 66 66 73 65 objv[2], &iOffse
cb60: 74 29 20 29 7b 20 0a 20 20 20 20 72 65 74 75 72 t) ){ . retur
cb70: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
cb80: 0a 0a 20 20 7a 42 75 66 20 3d 20 54 63 6c 5f 47 .. zBuf = Tcl_G
cb90: 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f etByteArrayFromO
cba0: 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 42 75 bj(objv[3], &nBu
cbb0: 66 29 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d f);. if( objc==
cbc0: 35 20 26 26 20 54 63 6c 5f 47 65 74 49 6e 74 46 5 && Tcl_GetIntF
cbd0: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
cbe0: 62 6a 76 5b 34 5d 2c 20 26 6e 42 75 66 29 20 29 bjv[4], &nBuf) )
cbf0: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
cc00: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 _ERROR;. }. rc
cc10: 20 3d 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f = sqlite3_blob_
cc20: 77 72 69 74 65 28 70 42 6c 6f 62 2c 20 7a 42 75 write(pBlob, zBu
cc30: 66 2c 20 6e 42 75 66 2c 20 69 4f 66 66 73 65 74 f, nBuf, iOffset
cc40: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c );. if( rc!=SQL
cc50: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 ITE_OK ){. Tc
cc60: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
cc70: 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c 69 rp, (char *)sqli
cc80: 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 te3TestErrorName
cc90: 28 72 63 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 (rc), TCL_VOLATI
cca0: 4c 45 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 LE);. }.. retu
ccb0: 72 6e 20 28 72 63 3d 3d 53 51 4c 49 54 45 5f 4f rn (rc==SQLITE_O
ccc0: 4b 20 3f 20 54 43 4c 5f 4f 4b 20 3a 20 54 43 4c K ? TCL_OK : TCL
ccd0: 5f 45 52 52 4f 52 29 3b 0a 7d 0a 0a 73 74 61 74 _ERROR);.}..stat
cce0: 69 63 20 69 6e 74 20 74 65 73 74 5f 62 6c 6f 62 ic int test_blob
ccf0: 5f 72 65 6f 70 65 6e 28 0a 20 20 43 6c 69 65 6e _reopen(. Clien
cd00: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
cd10: 2c 20 2f 2a 20 4e 6f 74 20 75 73 65 64 20 2a 2f , /* Not used */
cd20: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
cd30: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
cd40: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
cd50: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
cd60: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
cd70: 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 int objc,
cd80: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
cd90: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
cda0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
cdb0: 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d T objv[] /* Com
cdc0: 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a mand arguments *
cdd0: 2f 0a 29 7b 0a 20 20 54 63 6c 5f 57 69 64 65 49 /.){. Tcl_WideI
cde0: 6e 74 20 69 52 6f 77 69 64 3b 0a 20 20 73 71 6c nt iRowid;. sql
cdf0: 69 74 65 33 5f 62 6c 6f 62 20 2a 70 42 6c 6f 62 ite3_blob *pBlob
ce00: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 ;. int rc;.. i
ce10: 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 f( objc!=3 ){.
ce20: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
ce30: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
ce40: 6a 76 2c 20 22 43 48 41 4e 4e 45 4c 20 52 4f 57 jv, "CHANNEL ROW
ce50: 49 44 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ID");. return
ce60: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
ce70: 0a 20 20 69 66 28 20 62 6c 6f 62 48 61 6e 64 6c . if( blobHandl
ce80: 65 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c eFromObj(interp,
ce90: 20 6f 62 6a 76 5b 31 5d 2c 20 26 70 42 6c 6f 62 objv[1], &pBlob
cea0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
ceb0: 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
cec0: 47 65 74 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 GetWideIntFromOb
ced0: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 j(interp, objv[2
cee0: 5d 2c 20 26 69 52 6f 77 69 64 29 20 29 20 72 65 ], &iRowid) ) re
cef0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
cf00: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
cf10: 62 6c 6f 62 5f 72 65 6f 70 65 6e 28 70 42 6c 6f blob_reopen(pBlo
cf20: 62 2c 20 69 52 6f 77 69 64 29 3b 0a 20 20 69 66 b, iRowid);. if
cf30: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc!=SQLITE_OK
cf40: 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 ){. Tcl_SetRe
cf50: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 sult(interp, (ch
cf60: 61 72 20 2a 29 73 71 6c 69 74 65 33 54 65 73 74 ar *)sqlite3Test
cf70: 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 ErrorName(rc), T
cf80: 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 CL_VOLATILE);.
cf90: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 28 72 63 3d }.. return (rc=
cfa0: 3d 53 51 4c 49 54 45 5f 4f 4b 20 3f 20 54 43 4c =SQLITE_OK ? TCL
cfb0: 5f 4f 4b 20 3a 20 54 43 4c 5f 45 52 52 4f 52 29 _OK : TCL_ERROR)
cfc0: 3b 0a 7d 0a 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a ;.}..#endif../*.
cfd0: 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
cfe0: 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 3_create_collati
cff0: 6f 6e 5f 76 32 20 44 42 2d 48 41 4e 44 4c 45 20 on_v2 DB-HANDLE
d000: 4e 41 4d 45 20 43 4d 50 2d 50 52 4f 43 20 44 45 NAME CMP-PROC DE
d010: 4c 2d 50 52 4f 43 0a 2a 2a 0a 2a 2a 20 20 20 54 L-PROC.**.** T
d020: 68 69 73 20 54 63 6c 20 70 72 6f 63 20 69 73 20 his Tcl proc is
d030: 75 73 65 64 20 66 6f 72 20 74 65 73 74 69 6e 67 used for testing
d040: 20 74 68 65 20 65 78 70 65 72 69 6d 65 6e 74 61 the experimenta
d050: 6c 0a 2a 2a 20 20 20 73 71 6c 69 74 65 33 5f 63 l.** sqlite3_c
d060: 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 5f reate_collation_
d070: 76 32 28 29 20 69 6e 74 65 72 66 61 63 65 2e 0a v2() interface..
d080: 2a 2f 0a 73 74 72 75 63 74 20 54 65 73 74 43 6f */.struct TestCo
d090: 6c 6c 61 74 69 6f 6e 58 20 7b 0a 20 20 54 63 6c llationX {. Tcl
d0a0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b _Interp *interp;
d0b0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 43 6d 70 . Tcl_Obj *pCmp
d0c0: 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 44 65 ;. Tcl_Obj *pDe
d0d0: 6c 3b 0a 7d 3b 0a 74 79 70 65 64 65 66 20 73 74 l;.};.typedef st
d0e0: 72 75 63 74 20 54 65 73 74 43 6f 6c 6c 61 74 69 ruct TestCollati
d0f0: 6f 6e 58 20 54 65 73 74 43 6f 6c 6c 61 74 69 6f onX TestCollatio
d100: 6e 58 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 20 nX;.static void
d110: 74 65 73 74 43 72 65 61 74 65 43 6f 6c 6c 61 74 testCreateCollat
d120: 69 6f 6e 44 65 6c 28 76 6f 69 64 20 2a 70 43 74 ionDel(void *pCt
d130: 78 29 7b 0a 20 20 54 65 73 74 43 6f 6c 6c 61 74 x){. TestCollat
d140: 69 6f 6e 58 20 2a 70 20 3d 20 28 54 65 73 74 43 ionX *p = (TestC
d150: 6f 6c 6c 61 74 69 6f 6e 58 20 2a 29 70 43 74 78 ollationX *)pCtx
d160: 3b 0a 0a 20 20 69 6e 74 20 72 63 20 3d 20 54 63 ;.. int rc = Tc
d170: 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70 2d 3e 69 l_EvalObjEx(p->i
d180: 6e 74 65 72 70 2c 20 70 2d 3e 70 44 65 6c 2c 20 nterp, p->pDel,
d190: 54 43 4c 5f 45 56 41 4c 5f 44 49 52 45 43 54 7c TCL_EVAL_DIRECT|
d1a0: 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 TCL_EVAL_GLOBAL)
d1b0: 3b 0a 20 20 69 66 28 20 72 63 21 3d 54 43 4c 5f ;. if( rc!=TCL_
d1c0: 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 42 61 OK ){. Tcl_Ba
d1d0: 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 70 2d ckgroundError(p-
d1e0: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a 0a 20 >interp);. }..
d1f0: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
d200: 74 28 70 2d 3e 70 43 6d 70 29 3b 0a 20 20 54 63 t(p->pCmp);. Tc
d210: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 l_DecrRefCount(p
d220: 2d 3e 70 44 65 6c 29 3b 0a 20 20 73 71 6c 69 74 ->pDel);. sqlit
d230: 65 33 5f 66 72 65 65 28 28 76 6f 69 64 20 2a 29 e3_free((void *)
d240: 70 29 3b 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 p);.}.static int
d250: 20 74 65 73 74 43 72 65 61 74 65 43 6f 6c 6c 61 testCreateColla
d260: 74 69 6f 6e 43 6d 70 28 0a 20 20 76 6f 69 64 20 tionCmp(. void
d270: 2a 70 43 74 78 2c 0a 20 20 69 6e 74 20 6e 4c 65 *pCtx,. int nLe
d280: 66 74 2c 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 ft,. const void
d290: 20 2a 7a 4c 65 66 74 2c 0a 20 20 69 6e 74 20 6e *zLeft,. int n
d2a0: 52 69 67 68 74 2c 0a 20 20 63 6f 6e 73 74 20 76 Right,. const v
d2b0: 6f 69 64 20 2a 7a 52 69 67 68 74 0a 29 7b 0a 20 oid *zRight.){.
d2c0: 20 54 65 73 74 43 6f 6c 6c 61 74 69 6f 6e 58 20 TestCollationX
d2d0: 2a 70 20 3d 20 28 54 65 73 74 43 6f 6c 6c 61 74 *p = (TestCollat
d2e0: 69 6f 6e 58 20 2a 29 70 43 74 78 3b 0a 20 20 54 ionX *)pCtx;. T
d2f0: 63 6c 5f 4f 62 6a 20 2a 70 53 63 72 69 70 74 20 cl_Obj *pScript
d300: 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f = Tcl_DuplicateO
d310: 62 6a 28 70 2d 3e 70 43 6d 70 29 3b 0a 20 20 69 bj(p->pCmp);. i
d320: 6e 74 20 69 52 65 73 20 3d 20 30 3b 0a 0a 20 20 nt iRes = 0;..
d330: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
d340: 28 70 53 63 72 69 70 74 29 3b 0a 20 20 54 63 6c (pScript);. Tcl
d350: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
d360: 65 6d 65 6e 74 28 30 2c 20 70 53 63 72 69 70 74 ement(0, pScript
d370: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
d380: 62 6a 28 28 63 68 61 72 20 2a 29 7a 4c 65 66 74 bj((char *)zLeft
d390: 2c 20 6e 4c 65 66 74 29 29 3b 0a 20 20 54 63 6c , nLeft));. Tcl
d3a0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
d3b0: 65 6d 65 6e 74 28 30 2c 20 70 53 63 72 69 70 74 ement(0, pScript
d3c0: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
d3d0: 62 6a 28 28 63 68 61 72 20 2a 29 7a 52 69 67 68 bj((char *)zRigh
d3e0: 74 2c 6e 52 69 67 68 74 29 29 3b 0a 0a 20 20 69 t,nRight));.. i
d3f0: 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 45 f( TCL_OK!=Tcl_E
d400: 76 61 6c 4f 62 6a 45 78 28 70 2d 3e 69 6e 74 65 valObjEx(p->inte
d410: 72 70 2c 20 70 53 63 72 69 70 74 2c 20 54 43 4c rp, pScript, TCL
d420: 5f 45 56 41 4c 5f 44 49 52 45 43 54 7c 54 43 4c _EVAL_DIRECT|TCL
d430: 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 0a 20 20 _EVAL_GLOBAL).
d440: 20 7c 7c 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f || TCL_OK!=Tcl_
d450: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 70 2d GetIntFromObj(p-
d460: 3e 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 >interp, Tcl_Get
d470: 4f 62 6a 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74 ObjResult(p->int
d480: 65 72 70 29 2c 20 26 69 52 65 73 29 0a 20 20 29 erp), &iRes). )
d490: 7b 0a 20 20 20 20 54 63 6c 5f 42 61 63 6b 67 72 {. Tcl_Backgr
d4a0: 6f 75 6e 64 45 72 72 6f 72 28 70 2d 3e 69 6e 74 oundError(p->int
d4b0: 65 72 70 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f erp);. }. Tcl_
d4c0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 53 63 DecrRefCount(pSc
d4d0: 72 69 70 74 29 3b 0a 0a 20 20 72 65 74 75 72 6e ript);.. return
d4e0: 20 69 52 65 73 3b 0a 7d 0a 73 74 61 74 69 63 20 iRes;.}.static
d4f0: 69 6e 74 20 74 65 73 74 5f 63 72 65 61 74 65 5f int test_create_
d500: 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 28 0a 20 20 collation_v2(.
d510: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
d520: 74 44 61 74 61 2c 20 2f 2a 20 4e 6f 74 20 75 73 tData, /* Not us
d530: 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 ed */. Tcl_Inte
d540: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
d550: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
d560: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
d570: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
d580: 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 */. int objc,
d590: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
d5a0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
d5b0: 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 ts */. Tcl_Obj
d5c0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f *CONST objv[] /
d5d0: 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 * Command argume
d5e0: 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 54 65 73 74 nts */.){. Test
d5f0: 43 6f 6c 6c 61 74 69 6f 6e 58 20 2a 70 3b 0a 20 CollationX *p;.
d600: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
d610: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
d620: 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 bjc!=5 ){. Tc
d630: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
d640: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
d650: 22 44 42 2d 48 41 4e 44 4c 45 20 4e 41 4d 45 20 "DB-HANDLE NAME
d660: 43 4d 50 2d 50 52 4f 43 20 44 45 4c 2d 50 52 4f CMP-PROC DEL-PRO
d670: 43 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 C");. return
d680: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
d690: 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
d6a0: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
d6b0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
d6c0: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
d6d0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 70 20 TCL_ERROR;.. p
d6e0: 3d 20 28 54 65 73 74 43 6f 6c 6c 61 74 69 6f 6e = (TestCollation
d6f0: 58 20 2a 29 73 71 6c 69 74 65 33 5f 6d 61 6c 6c X *)sqlite3_mall
d700: 6f 63 28 73 69 7a 65 6f 66 28 54 65 73 74 43 6f oc(sizeof(TestCo
d710: 6c 6c 61 74 69 6f 6e 58 29 29 3b 0a 20 20 70 2d llationX));. p-
d720: 3e 70 43 6d 70 20 3d 20 6f 62 6a 76 5b 33 5d 3b >pCmp = objv[3];
d730: 0a 20 20 70 2d 3e 70 44 65 6c 20 3d 20 6f 62 6a . p->pDel = obj
d740: 76 5b 34 5d 3b 0a 20 20 70 2d 3e 69 6e 74 65 72 v[4];. p->inter
d750: 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20 54 63 p = interp;. Tc
d760: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 l_IncrRefCount(p
d770: 2d 3e 70 43 6d 70 29 3b 0a 20 20 54 63 6c 5f 49 ->pCmp);. Tcl_I
d780: 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 ncrRefCount(p->p
d790: 44 65 6c 29 3b 0a 0a 20 20 72 63 20 3d 20 73 71 Del);.. rc = sq
d7a0: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c lite3_create_col
d7b0: 6c 61 74 69 6f 6e 5f 76 32 28 64 62 2c 20 54 63 lation_v2(db, Tc
d7c0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
d7d0: 5b 32 5d 29 2c 20 31 36 2c 20 0a 20 20 20 20 20 [2]), 16, .
d7e0: 20 28 76 6f 69 64 20 2a 29 70 2c 20 74 65 73 74 (void *)p, test
d7f0: 43 72 65 61 74 65 43 6f 6c 6c 61 74 69 6f 6e 43 CreateCollationC
d800: 6d 70 2c 20 74 65 73 74 43 72 65 61 74 65 43 6f mp, testCreateCo
d810: 6c 6c 61 74 69 6f 6e 44 65 6c 0a 20 20 29 3b 0a llationDel. );.
d820: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 if( rc!=SQLITE
d830: 5f 4d 49 53 55 53 45 20 29 7b 0a 20 20 20 20 54 _MISUSE ){. T
d840: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
d850: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 33 interp, "sqlite3
d860: 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 65 5f _create_collate_
d870: 76 32 28 29 20 66 61 69 6c 65 64 20 74 6f 20 64 v2() failed to d
d880: 65 74 65 63 74 20 22 0a 20 20 20 20 20 20 22 61 etect ". "a
d890: 6e 20 69 6e 76 61 6c 69 64 20 65 6e 63 6f 64 69 n invalid encodi
d8a0: 6e 67 22 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a ng", (char*)0);.
d8b0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
d8c0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 20 3d RROR;. }. rc =
d8d0: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
d8e0: 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 28 64 62 2c collation_v2(db,
d8f0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
d900: 62 6a 76 5b 32 5d 29 2c 20 53 51 4c 49 54 45 5f bjv[2]), SQLITE_
d910: 55 54 46 38 2c 20 0a 20 20 20 20 20 20 28 76 6f UTF8, . (vo
d920: 69 64 20 2a 29 70 2c 20 74 65 73 74 43 72 65 61 id *)p, testCrea
d930: 74 65 43 6f 6c 6c 61 74 69 6f 6e 43 6d 70 2c 20 teCollationCmp,
d940: 74 65 73 74 43 72 65 61 74 65 43 6f 6c 6c 61 74 testCreateCollat
d950: 69 6f 6e 44 65 6c 0a 20 20 29 3b 0a 20 20 72 65 ionDel. );. re
d960: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
d970: 2f 2a 0a 2a 2a 20 55 53 41 47 45 3a 20 73 71 6c /*.** USAGE: sql
d980: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 ite3_create_func
d990: 74 69 6f 6e 5f 76 32 20 44 42 20 4e 41 4d 45 20 tion_v2 DB NAME
d9a0: 4e 41 52 47 20 45 4e 43 20 3f 53 57 49 54 43 48 NARG ENC ?SWITCH
d9b0: 45 53 3f 0a 2a 2a 0a 2a 2a 20 41 76 61 69 6c 61 ES?.**.** Availa
d9c0: 62 6c 65 20 73 77 69 74 63 68 65 73 20 61 72 65 ble switches are
d9d0: 3a 0a 2a 2a 0a 2a 2a 20 20 20 2d 66 75 6e 63 20 :.**.** -func
d9e0: 20 20 20 53 43 52 49 50 54 0a 2a 2a 20 20 20 2d SCRIPT.** -
d9f0: 73 74 65 70 20 20 20 20 53 43 52 49 50 54 0a 2a step SCRIPT.*
da00: 2a 20 20 20 2d 66 69 6e 61 6c 20 20 20 53 43 52 * -final SCR
da10: 49 50 54 0a 2a 2a 20 20 20 2d 64 65 73 74 72 6f IPT.** -destro
da20: 79 20 53 43 52 49 50 54 0a 2a 2f 0a 74 79 70 65 y SCRIPT.*/.type
da30: 64 65 66 20 73 74 72 75 63 74 20 43 72 65 61 74 def struct Creat
da40: 65 46 75 6e 63 74 69 6f 6e 56 32 20 43 72 65 61 eFunctionV2 Crea
da50: 74 65 46 75 6e 63 74 69 6f 6e 56 32 3b 0a 73 74 teFunctionV2;.st
da60: 72 75 63 74 20 43 72 65 61 74 65 46 75 6e 63 74 ruct CreateFunct
da70: 69 6f 6e 56 32 20 7b 0a 20 20 54 63 6c 5f 49 6e ionV2 {. Tcl_In
da80: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 terp *interp;.
da90: 54 63 6c 5f 4f 62 6a 20 2a 70 46 75 6e 63 3b 20 Tcl_Obj *pFunc;
daa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
dab0: 2f 2a 20 53 63 72 69 70 74 20 66 6f 72 20 66 75 /* Script for fu
dac0: 6e 63 74 69 6f 6e 20 69 6e 76 6f 63 61 74 69 6f nction invocatio
dad0: 6e 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a n */. Tcl_Obj *
dae0: 70 53 74 65 70 3b 20 20 20 20 20 20 20 20 20 20 pStep;
daf0: 20 20 20 20 20 20 20 2f 2a 20 53 63 72 69 70 74 /* Script
db00: 20 66 6f 72 20 61 67 67 2e 20 73 74 65 70 20 69 for agg. step i
db10: 6e 76 6f 63 61 74 69 6f 6e 20 2a 2f 0a 20 20 54 nvocation */. T
db20: 63 6c 5f 4f 62 6a 20 2a 70 46 69 6e 61 6c 3b 20 cl_Obj *pFinal;
db30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
db40: 2a 20 53 63 72 69 70 74 20 66 6f 72 20 61 67 67 * Script for agg
db50: 2e 20 66 69 6e 61 6c 69 7a 61 74 69 6f 6e 20 69 . finalization i
db60: 6e 76 6f 63 61 74 69 6f 6e 20 2a 2f 0a 20 20 54 nvocation */. T
db70: 63 6c 5f 4f 62 6a 20 2a 70 44 65 73 74 72 6f 79 cl_Obj *pDestroy
db80: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f ; /
db90: 2a 20 44 65 73 74 72 75 63 74 6f 72 20 73 63 72 * Destructor scr
dba0: 69 70 74 20 2a 2f 0a 7d 3b 0a 73 74 61 74 69 63 ipt */.};.static
dbb0: 20 76 6f 69 64 20 63 66 32 46 75 6e 63 28 73 71 void cf2Func(sq
dbc0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
dbd0: 74 78 2c 20 69 6e 74 20 6e 41 72 67 2c 20 73 71 tx, int nArg, sq
dbe0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 41 lite3_value **aA
dbf0: 72 67 29 7b 0a 7d 0a 73 74 61 74 69 63 20 76 6f rg){.}.static vo
dc00: 69 64 20 63 66 32 53 74 65 70 28 73 71 6c 69 74 id cf2Step(sqlit
dc10: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c e3_context *ctx,
dc20: 20 69 6e 74 20 6e 41 72 67 2c 20 73 71 6c 69 74 int nArg, sqlit
dc30: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 41 72 67 29 e3_value **aArg)
dc40: 7b 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 {.}.static void
dc50: 63 66 32 46 69 6e 61 6c 28 73 71 6c 69 74 65 33 cf2Final(sqlite3
dc60: 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 29 7b 0a _context *ctx){.
dc70: 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 66 }.static void cf
dc80: 32 44 65 73 74 72 6f 79 28 76 6f 69 64 20 2a 70 2Destroy(void *p
dc90: 55 73 65 72 29 7b 0a 20 20 43 72 65 61 74 65 46 User){. CreateF
dca0: 75 6e 63 74 69 6f 6e 56 32 20 2a 70 20 3d 20 28 unctionV2 *p = (
dcb0: 43 72 65 61 74 65 46 75 6e 63 74 69 6f 6e 56 32 CreateFunctionV2
dcc0: 20 2a 29 70 55 73 65 72 3b 0a 0a 20 20 69 66 28 *)pUser;.. if(
dcd0: 20 70 2d 3e 69 6e 74 65 72 70 20 26 26 20 70 2d p->interp && p-
dce0: 3e 70 44 65 73 74 72 6f 79 20 29 7b 0a 20 20 20 >pDestroy ){.
dcf0: 20 69 6e 74 20 72 63 20 3d 20 54 63 6c 5f 45 76 int rc = Tcl_Ev
dd00: 61 6c 4f 62 6a 45 78 28 70 2d 3e 69 6e 74 65 72 alObjEx(p->inter
dd10: 70 2c 20 70 2d 3e 70 44 65 73 74 72 6f 79 2c 20 p, p->pDestroy,
dd20: 30 29 3b 0a 20 20 20 20 69 66 28 20 72 63 21 3d 0);. if( rc!=
dd30: 54 43 4c 5f 4f 4b 20 29 20 54 63 6c 5f 42 61 63 TCL_OK ) Tcl_Bac
dd40: 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 70 2d 3e kgroundError(p->
dd50: 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a 0a 20 20 interp);. }..
dd60: 69 66 28 20 70 2d 3e 70 46 75 6e 63 20 29 20 54 if( p->pFunc ) T
dd70: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
dd80: 70 2d 3e 70 46 75 6e 63 29 3b 20 0a 20 20 69 66 p->pFunc); . if
dd90: 28 20 70 2d 3e 70 53 74 65 70 20 29 20 54 63 6c ( p->pStep ) Tcl
dda0: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 2d _DecrRefCount(p-
ddb0: 3e 70 53 74 65 70 29 3b 20 0a 20 20 69 66 28 20 >pStep); . if(
ddc0: 70 2d 3e 70 46 69 6e 61 6c 20 29 20 54 63 6c 5f p->pFinal ) Tcl_
ddd0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e DecrRefCount(p->
dde0: 70 46 69 6e 61 6c 29 3b 20 0a 20 20 69 66 28 20 pFinal); . if(
ddf0: 70 2d 3e 70 44 65 73 74 72 6f 79 20 29 20 54 63 p->pDestroy ) Tc
de00: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 l_DecrRefCount(p
de10: 2d 3e 70 44 65 73 74 72 6f 79 29 3b 20 0a 20 20 ->pDestroy); .
de20: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70 29 3b sqlite3_free(p);
de30: 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 .}.static int te
de40: 73 74 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 st_create_functi
de50: 6f 6e 5f 76 32 28 0a 20 20 43 6c 69 65 6e 74 44 on_v2(. ClientD
de60: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
de70: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 74 20 /* Not
de80: 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e used */. Tcl_In
de90: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
dea0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 /* The
deb0: 20 69 6e 76 6f 6b 69 6e 67 20 54 43 4c 20 69 6e invoking TCL in
dec0: 74 65 72 70 72 65 74 65 72 20 2a 2f 0a 20 20 69 terpreter */. i
ded0: 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 nt objc,
dee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
def0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
df00: 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f ments */. Tcl_O
df10: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
df20: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6f /* Co
df30: 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 mmand arguments
df40: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 */.){. sqlite3
df50: 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 *db;. const cha
df60: 72 20 2a 7a 46 75 6e 63 3b 0a 20 20 69 6e 74 20 r *zFunc;. int
df70: 6e 41 72 67 3b 0a 20 20 69 6e 74 20 65 6e 63 3b nArg;. int enc;
df80: 0a 20 20 43 72 65 61 74 65 46 75 6e 63 74 69 6f . CreateFunctio
df90: 6e 56 32 20 2a 70 3b 0a 20 20 69 6e 74 20 69 3b nV2 *p;. int i;
dfa0: 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 73 74 . int rc;.. st
dfb0: 72 75 63 74 20 45 6e 63 54 61 62 6c 65 20 7b 0a ruct EncTable {.
dfc0: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
dfd0: 7a 45 6e 63 3b 0a 20 20 20 20 69 6e 74 20 65 6e zEnc;. int en
dfe0: 63 3b 0a 20 20 7d 20 61 45 6e 63 5b 5d 20 3d 20 c;. } aEnc[] =
dff0: 7b 0a 20 20 20 20 7b 22 75 74 66 38 22 2c 20 20 {. {"utf8",
e000: 20 20 53 51 4c 49 54 45 5f 55 54 46 38 20 7d 2c SQLITE_UTF8 },
e010: 0a 20 20 20 20 7b 22 75 74 66 31 36 22 2c 20 20 . {"utf16",
e020: 20 53 51 4c 49 54 45 5f 55 54 46 31 36 20 7d 2c SQLITE_UTF16 },
e030: 0a 20 20 20 20 7b 22 75 74 66 31 36 6c 65 22 2c . {"utf16le",
e040: 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 45 20 SQLITE_UTF16LE
e050: 7d 2c 0a 20 20 20 20 7b 22 75 74 66 31 36 62 65 },. {"utf16be
e060: 22 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 42 ", SQLITE_UTF16B
e070: 45 20 7d 2c 0a 20 20 20 20 7b 22 61 6e 79 22 2c E },. {"any",
e080: 20 20 20 20 20 53 51 4c 49 54 45 5f 41 4e 59 20 SQLITE_ANY
e090: 7d 2c 0a 20 20 20 20 7b 22 30 22 2c 20 30 20 7d },. {"0", 0 }
e0a0: 0a 20 20 7d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a . };.. if( obj
e0b0: 63 3c 35 20 7c 7c 20 28 6f 62 6a 63 25 32 29 3d c<5 || (objc%2)=
e0c0: 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 =0 ){. Tcl_Wr
e0d0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
e0e0: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 20 p, 1, objv, "DB
e0f0: 4e 41 4d 45 20 4e 41 52 47 20 45 4e 43 20 53 57 NAME NARG ENC SW
e100: 49 54 43 48 45 53 2e 2e 2e 22 29 3b 0a 20 20 20 ITCHES...");.
e110: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
e120: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
e130: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
e140: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
e150: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 (objv[1]), &db)
e160: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
e170: 4f 52 3b 0a 20 20 7a 46 75 6e 63 20 3d 20 54 63 OR;. zFunc = Tc
e180: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
e190: 5b 32 5d 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f [2]);. if( Tcl_
e1a0: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
e1b0: 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 terp, objv[3], &
e1c0: 6e 41 72 67 29 20 29 20 72 65 74 75 72 6e 20 54 nArg) ) return T
e1d0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
e1e0: 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d Tcl_GetIndexFrom
e1f0: 4f 62 6a 53 74 72 75 63 74 28 69 6e 74 65 72 70 ObjStruct(interp
e200: 2c 20 6f 62 6a 76 5b 34 5d 2c 20 61 45 6e 63 2c , objv[4], aEnc,
e210: 20 73 69 7a 65 6f 66 28 61 45 6e 63 5b 30 5d 29 sizeof(aEnc[0])
e220: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 22 65 6e , . "en
e230: 63 6f 64 69 6e 67 22 2c 20 30 2c 20 26 65 6e 63 coding", 0, &enc
e240: 29 0a 20 20 29 7b 0a 20 20 20 20 72 65 74 75 72 ). ){. retur
e250: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
e260: 0a 20 20 65 6e 63 20 3d 20 61 45 6e 63 5b 65 6e . enc = aEnc[en
e270: 63 5d 2e 65 6e 63 3b 0a 0a 20 20 70 20 3d 20 73 c].enc;.. p = s
e280: 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 73 69 qlite3_malloc(si
e290: 7a 65 6f 66 28 43 72 65 61 74 65 46 75 6e 63 74 zeof(CreateFunct
e2a0: 69 6f 6e 56 32 29 29 3b 0a 20 20 61 73 73 65 72 ionV2));. asser
e2b0: 74 28 20 70 20 29 3b 0a 20 20 6d 65 6d 73 65 74 t( p );. memset
e2c0: 28 70 2c 20 30 2c 20 73 69 7a 65 6f 66 28 43 72 (p, 0, sizeof(Cr
e2d0: 65 61 74 65 46 75 6e 63 74 69 6f 6e 56 32 29 29 eateFunctionV2))
e2e0: 3b 0a 20 20 70 2d 3e 69 6e 74 65 72 70 20 3d 20 ;. p->interp =
e2f0: 69 6e 74 65 72 70 3b 0a 0a 20 20 66 6f 72 28 69 interp;.. for(i
e300: 3d 35 3b 20 69 3c 6f 62 6a 63 3b 20 69 2b 3d 32 =5; i<objc; i+=2
e310: 29 7b 0a 20 20 20 20 69 6e 74 20 69 53 77 69 74 ){. int iSwit
e320: 63 68 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 ch;. const ch
e330: 61 72 20 2a 61 7a 53 77 69 74 63 68 5b 5d 20 3d ar *azSwitch[] =
e340: 20 7b 22 2d 66 75 6e 63 22 2c 20 22 2d 73 74 65 {"-func", "-ste
e350: 70 22 2c 20 22 2d 66 69 6e 61 6c 22 2c 20 22 2d p", "-final", "-
e360: 64 65 73 74 72 6f 79 22 2c 20 30 7d 3b 0a 20 20 destroy", 0};.
e370: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 64 if( Tcl_GetInd
e380: 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 exFromObj(interp
e390: 2c 20 6f 62 6a 76 5b 69 5d 2c 20 61 7a 53 77 69 , objv[i], azSwi
e3a0: 74 63 68 2c 20 22 73 77 69 74 63 68 22 2c 20 30 tch, "switch", 0
e3b0: 2c 20 26 69 53 77 69 74 63 68 29 20 29 7b 0a 20 , &iSwitch) ){.
e3c0: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 sqlite3_fre
e3d0: 65 28 70 29 3b 0a 20 20 20 20 20 20 72 65 74 75 e(p);. retu
e3e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
e3f0: 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 28 }.. switch(
e400: 20 69 53 77 69 74 63 68 20 29 7b 0a 20 20 20 20 iSwitch ){.
e410: 20 20 63 61 73 65 20 30 3a 20 70 2d 3e 70 46 75 case 0: p->pFu
e420: 6e 63 20 3d 20 6f 62 6a 76 5b 69 2b 31 5d 3b 20 nc = objv[i+1];
e430: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
e440: 20 20 63 61 73 65 20 31 3a 20 70 2d 3e 70 53 74 case 1: p->pSt
e450: 65 70 20 3d 20 6f 62 6a 76 5b 69 2b 31 5d 3b 20 ep = objv[i+1];
e460: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
e470: 20 20 63 61 73 65 20 32 3a 20 70 2d 3e 70 46 69 case 2: p->pFi
e480: 6e 61 6c 20 3d 20 6f 62 6a 76 5b 69 2b 31 5d 3b nal = objv[i+1];
e490: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
e4a0: 20 20 63 61 73 65 20 33 3a 20 70 2d 3e 70 44 65 case 3: p->pDe
e4b0: 73 74 72 6f 79 20 3d 20 6f 62 6a 76 5b 69 2b 31 stroy = objv[i+1
e4c0: 5d 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 ]; break;.
e4d0: 7d 0a 20 20 7d 0a 20 20 69 66 28 20 70 2d 3e 70 }. }. if( p->p
e4e0: 46 75 6e 63 20 29 20 70 2d 3e 70 46 75 6e 63 20 Func ) p->pFunc
e4f0: 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f = Tcl_DuplicateO
e500: 62 6a 28 70 2d 3e 70 46 75 6e 63 29 3b 20 0a 20 bj(p->pFunc); .
e510: 20 69 66 28 20 70 2d 3e 70 53 74 65 70 20 29 20 if( p->pStep )
e520: 70 2d 3e 70 53 74 65 70 20 3d 20 54 63 6c 5f 44 p->pStep = Tcl_D
e530: 75 70 6c 69 63 61 74 65 4f 62 6a 28 70 2d 3e 70 uplicateObj(p->p
e540: 53 74 65 70 29 3b 20 0a 20 20 69 66 28 20 70 2d Step); . if( p-
e550: 3e 70 46 69 6e 61 6c 20 29 20 70 2d 3e 70 46 69 >pFinal ) p->pFi
e560: 6e 61 6c 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 nal = Tcl_Duplic
e570: 61 74 65 4f 62 6a 28 70 2d 3e 70 46 69 6e 61 6c ateObj(p->pFinal
e580: 29 3b 20 0a 20 20 69 66 28 20 70 2d 3e 70 44 65 ); . if( p->pDe
e590: 73 74 72 6f 79 20 29 20 70 2d 3e 70 44 65 73 74 stroy ) p->pDest
e5a0: 72 6f 79 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 roy = Tcl_Duplic
e5b0: 61 74 65 4f 62 6a 28 70 2d 3e 70 44 65 73 74 72 ateObj(p->pDestr
e5c0: 6f 79 29 3b 20 0a 0a 20 20 69 66 28 20 70 2d 3e oy); .. if( p->
e5d0: 70 46 75 6e 63 20 29 20 54 63 6c 5f 49 6e 63 72 pFunc ) Tcl_Incr
e5e0: 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 46 75 6e RefCount(p->pFun
e5f0: 63 29 3b 20 0a 20 20 69 66 28 20 70 2d 3e 70 53 c); . if( p->pS
e600: 74 65 70 20 29 20 54 63 6c 5f 49 6e 63 72 52 65 tep ) Tcl_IncrRe
e610: 66 43 6f 75 6e 74 28 70 2d 3e 70 53 74 65 70 29 fCount(p->pStep)
e620: 3b 20 0a 20 20 69 66 28 20 70 2d 3e 70 46 69 6e ; . if( p->pFin
e630: 61 6c 20 29 20 54 63 6c 5f 49 6e 63 72 52 65 66 al ) Tcl_IncrRef
e640: 43 6f 75 6e 74 28 70 2d 3e 70 46 69 6e 61 6c 29 Count(p->pFinal)
e650: 3b 20 0a 20 20 69 66 28 20 70 2d 3e 70 44 65 73 ; . if( p->pDes
e660: 74 72 6f 79 20 29 20 54 63 6c 5f 49 6e 63 72 52 troy ) Tcl_IncrR
e670: 65 66 43 6f 75 6e 74 28 70 2d 3e 70 44 65 73 74 efCount(p->pDest
e680: 72 6f 79 29 3b 20 0a 0a 20 20 72 63 20 3d 20 73 roy); .. rc = s
e690: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
e6a0: 6e 63 74 69 6f 6e 5f 76 32 28 64 62 2c 20 7a 46 nction_v2(db, zF
e6b0: 75 6e 63 2c 20 6e 41 72 67 2c 20 65 6e 63 2c 20 unc, nArg, enc,
e6c0: 28 76 6f 69 64 20 2a 29 70 2c 20 0a 20 20 20 20 (void *)p, .
e6d0: 20 20 28 70 2d 3e 70 46 75 6e 63 20 3f 20 63 66 (p->pFunc ? cf
e6e0: 32 46 75 6e 63 20 3a 20 30 29 2c 0a 20 20 20 20 2Func : 0),.
e6f0: 20 20 28 70 2d 3e 70 53 74 65 70 20 3f 20 63 66 (p->pStep ? cf
e700: 32 53 74 65 70 20 3a 20 30 29 2c 0a 20 20 20 20 2Step : 0),.
e710: 20 20 28 70 2d 3e 70 46 69 6e 61 6c 20 3f 20 63 (p->pFinal ? c
e720: 66 32 46 69 6e 61 6c 20 3a 20 30 29 2c 0a 20 20 f2Final : 0),.
e730: 20 20 20 20 63 66 32 44 65 73 74 72 6f 79 0a 20 cf2Destroy.
e740: 20 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 );. if( rc!=SQ
e750: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 LITE_OK ){. T
e760: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 cl_ResetResult(i
e770: 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f nterp);. Tcl_
e780: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
e790: 65 72 70 2c 20 73 71 6c 69 74 65 33 54 65 73 74 erp, sqlite3Test
e7a0: 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 ErrorName(rc), 0
e7b0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
e7c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 L_ERROR;. }. r
e7d0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
e7e0: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
e7f0: 6c 69 74 65 33 5f 6c 6f 61 64 5f 65 78 74 65 6e lite3_load_exten
e800: 73 69 6f 6e 20 44 42 2d 48 41 4e 44 4c 45 20 46 sion DB-HANDLE F
e810: 49 4c 45 20 3f 50 52 4f 43 3f 0a 2a 2f 0a 73 74 ILE ?PROC?.*/.st
e820: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6c 6f atic int test_lo
e830: 61 64 5f 65 78 74 65 6e 73 69 6f 6e 28 0a 20 20 ad_extension(.
e840: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
e850: 74 44 61 74 61 2c 20 2f 2a 20 4e 6f 74 20 75 73 tData, /* Not us
e860: 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 ed */. Tcl_Inte
e870: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
e880: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
e890: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
e8a0: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
e8b0: 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 */. int objc,
e8c0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
e8d0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
e8e0: 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 ts */. Tcl_Obj
e8f0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f *CONST objv[] /
e900: 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 * Command argume
e910: 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 54 63 6c 5f nts */.){. Tcl_
e920: 43 6d 64 49 6e 66 6f 20 63 6d 64 49 6e 66 6f 3b CmdInfo cmdInfo;
e930: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
e940: 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 int rc;. char
e950: 20 2a 7a 44 62 3b 0a 20 20 63 68 61 72 20 2a 7a *zDb;. char *z
e960: 46 69 6c 65 3b 0a 20 20 63 68 61 72 20 2a 7a 50 File;. char *zP
e970: 72 6f 63 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 roc = 0;. char
e980: 2a 7a 45 72 72 20 3d 20 30 3b 0a 0a 20 20 69 66 *zErr = 0;.. if
e990: 28 20 6f 62 6a 63 21 3d 34 20 26 26 20 6f 62 6a ( objc!=4 && obj
e9a0: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
e9b0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
e9c0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 erp, 1, objv, "D
e9d0: 42 2d 48 41 4e 44 4c 45 20 46 49 4c 45 20 3f 50 B-HANDLE FILE ?P
e9e0: 52 4f 43 3f 22 29 3b 0a 20 20 20 20 72 65 74 75 ROC?");. retu
e9f0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
ea00: 7d 0a 20 20 7a 44 62 20 3d 20 54 63 6c 5f 47 65 }. zDb = Tcl_Ge
ea10: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
ea20: 3b 0a 20 20 7a 46 69 6c 65 20 3d 20 54 63 6c 5f ;. zFile = Tcl_
ea30: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 GetString(objv[2
ea40: 5d 29 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d ]);. if( objc==
ea50: 34 20 29 7b 0a 20 20 20 20 7a 50 72 6f 63 20 3d 4 ){. zProc =
ea60: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
ea70: 62 6a 76 5b 33 5d 29 3b 0a 20 20 7d 0a 0a 20 20 bjv[3]);. }..
ea80: 2f 2a 20 45 78 74 72 61 63 74 20 74 68 65 20 43 /* Extract the C
ea90: 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 database handle
eaa0: 20 66 72 6f 6d 20 74 68 65 20 54 63 6c 20 63 6f from the Tcl co
eab0: 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a 20 20 mmand name */.
eac0: 69 66 28 20 21 54 63 6c 5f 47 65 74 43 6f 6d 6d if( !Tcl_GetComm
ead0: 61 6e 64 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 andInfo(interp,
eae0: 7a 44 62 2c 20 26 63 6d 64 49 6e 66 6f 29 20 29 zDb, &cmdInfo) )
eaf0: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
eb00: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
eb10: 63 6f 6d 6d 61 6e 64 20 6e 6f 74 20 66 6f 75 6e command not foun
eb20: 64 3a 20 22 2c 20 7a 44 62 2c 20 28 63 68 61 72 d: ", zDb, (char
eb30: 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e *)0);. return
eb40: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
eb50: 20 20 64 62 20 3d 20 28 28 73 74 72 75 63 74 20 db = ((struct
eb60: 53 71 6c 69 74 65 44 62 2a 29 63 6d 64 49 6e 66 SqliteDb*)cmdInf
eb70: 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 61 74 61 29 o.objClientData)
eb80: 2d 3e 64 62 3b 0a 20 20 61 73 73 65 72 74 28 64 ->db;. assert(d
eb90: 62 29 3b 0a 0a 20 20 2f 2a 20 43 61 6c 6c 20 74 b);.. /* Call t
eba0: 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 43 20 he underlying C
ebb0: 66 75 6e 63 74 69 6f 6e 2e 20 49 66 20 61 6e 20 function. If an
ebc0: 65 72 72 6f 72 20 6f 63 63 75 72 73 2c 20 73 65 error occurs, se
ebd0: 74 20 72 63 20 74 6f 20 0a 20 20 2a 2a 20 54 43 t rc to . ** TC
ebe0: 4c 5f 45 52 52 4f 52 20 61 6e 64 20 6c 6f 61 64 L_ERROR and load
ebf0: 20 61 6e 79 20 65 72 72 6f 72 20 73 74 72 69 6e any error strin
ec00: 67 20 69 6e 74 6f 20 74 68 65 20 69 6e 74 65 72 g into the inter
ec10: 70 72 65 74 65 72 2e 20 49 66 20 6e 6f 20 0a 20 preter. If no .
ec20: 20 2a 2a 20 65 72 72 6f 72 20 6f 63 63 75 72 73 ** error occurs
ec30: 2c 20 73 65 74 20 72 63 20 74 6f 20 54 43 4c 5f , set rc to TCL_
ec40: 4f 4b 2e 0a 20 20 2a 2f 0a 23 69 66 64 65 66 20 OK.. */.#ifdef
ec50: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 SQLITE_OMIT_LOAD
ec60: 5f 45 58 54 45 4e 53 49 4f 4e 0a 20 20 72 63 20 _EXTENSION. rc
ec70: 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a = SQLITE_ERROR;.
ec80: 20 20 7a 45 72 72 20 3d 20 73 71 6c 69 74 65 33 zErr = sqlite3
ec90: 5f 6d 70 72 69 6e 74 66 28 22 74 68 69 73 20 62 _mprintf("this b
eca0: 75 69 6c 64 20 6f 6d 69 74 73 20 73 71 6c 69 74 uild omits sqlit
ecb0: 65 33 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f e3_load_extensio
ecc0: 6e 28 29 22 29 3b 0a 23 65 6c 73 65 0a 20 20 72 n()");.#else. r
ecd0: 63 20 3d 20 73 71 6c 69 74 65 33 5f 6c 6f 61 64 c = sqlite3_load
ece0: 5f 65 78 74 65 6e 73 69 6f 6e 28 64 62 2c 20 7a _extension(db, z
ecf0: 46 69 6c 65 2c 20 7a 50 72 6f 63 2c 20 26 7a 45 File, zProc, &zE
ed00: 72 72 29 3b 0a 23 65 6e 64 69 66 0a 20 20 69 66 rr);.#endif. if
ed10: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc!=SQLITE_OK
ed20: 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 ){. Tcl_SetRe
ed30: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 45 72 sult(interp, zEr
ed40: 72 20 3f 20 7a 45 72 72 20 3a 20 22 22 2c 20 54 r ? zErr : "", T
ed50: 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 CL_VOLATILE);.
ed60: 20 20 72 63 20 3d 20 54 43 4c 5f 45 52 52 4f 52 rc = TCL_ERROR
ed70: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 ;. }else{. r
ed80: 63 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 7d 0a c = TCL_OK;. }.
ed90: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a sqlite3_free(z
eda0: 45 72 72 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 Err);.. return
edb0: 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 rc;.}../*.** Usa
edc0: 67 65 3a 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 ge: sqlite3_enab
edd0: 6c 65 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f le_load_extensio
ede0: 6e 20 44 42 2d 48 41 4e 44 4c 45 20 4f 4e 4f 46 n DB-HANDLE ONOF
edf0: 46 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 F.*/.static int
ee00: 74 65 73 74 5f 65 6e 61 62 6c 65 5f 6c 6f 61 64 test_enable_load
ee10: 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
ee20: 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 4e 6f lientData, /* No
ee30: 74 20 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f t used */. Tcl_
ee40: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
ee50: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
ee60: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
ee70: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
ee80: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a and */. int obj
ee90: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
eea0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
eeb0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f uments */. Tcl_
eec0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
eed0: 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 ] /* Command ar
eee0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 guments */.){.
eef0: 54 63 6c 5f 43 6d 64 49 6e 66 6f 20 63 6d 64 49 Tcl_CmdInfo cmdI
ef00: 6e 66 6f 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a nfo;. sqlite3 *
ef10: 64 62 3b 0a 20 20 63 68 61 72 20 2a 7a 44 62 3b db;. char *zDb;
ef20: 0a 20 20 69 6e 74 20 6f 6e 6f 66 66 3b 0a 0a 20 . int onoff;..
ef30: 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a if( objc!=3 ){.
ef40: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
ef50: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
ef60: 6f 62 6a 76 2c 20 22 44 42 2d 48 41 4e 44 4c 45 objv, "DB-HANDLE
ef70: 20 4f 4e 4f 46 46 22 29 3b 0a 20 20 20 20 72 65 ONOFF");. re
ef80: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
ef90: 20 20 7d 0a 20 20 7a 44 62 20 3d 20 54 63 6c 5f }. zDb = Tcl_
efa0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
efb0: 5d 29 3b 0a 0a 20 20 2f 2a 20 45 78 74 72 61 63 ]);.. /* Extrac
efc0: 74 20 74 68 65 20 43 20 64 61 74 61 62 61 73 65 t the C database
efd0: 20 68 61 6e 64 6c 65 20 66 72 6f 6d 20 74 68 65 handle from the
efe0: 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d Tcl command nam
eff0: 65 20 2a 2f 0a 20 20 69 66 28 20 21 54 63 6c 5f e */. if( !Tcl_
f000: 47 65 74 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69 GetCommandInfo(i
f010: 6e 74 65 72 70 2c 20 7a 44 62 2c 20 26 63 6d 64 nterp, zDb, &cmd
f020: 49 6e 66 6f 29 20 29 7b 0a 20 20 20 20 54 63 6c Info) ){. Tcl
f030: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
f040: 74 65 72 70 2c 20 22 63 6f 6d 6d 61 6e 64 20 6e terp, "command n
f050: 6f 74 20 66 6f 75 6e 64 3a 20 22 2c 20 7a 44 62 ot found: ", zDb
f060: 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 , (char*)0);.
f070: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
f080: 52 3b 0a 20 20 7d 0a 20 20 64 62 20 3d 20 28 28 R;. }. db = ((
f090: 73 74 72 75 63 74 20 53 71 6c 69 74 65 44 62 2a struct SqliteDb*
f0a0: 29 63 6d 64 49 6e 66 6f 2e 6f 62 6a 43 6c 69 65 )cmdInfo.objClie
f0b0: 6e 74 44 61 74 61 29 2d 3e 64 62 3b 0a 20 20 61 ntData)->db;. a
f0c0: 73 73 65 72 74 28 64 62 29 3b 0a 0a 20 20 2f 2a ssert(db);.. /*
f0d0: 20 47 65 74 20 74 68 65 20 6f 6e 6f 66 66 20 70 Get the onoff p
f0e0: 61 72 61 6d 65 74 65 72 20 2a 2f 0a 20 20 69 66 arameter */. if
f0f0: 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e ( Tcl_GetBoolean
f100: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
f110: 6f 62 6a 76 5b 32 5d 2c 20 26 6f 6e 6f 66 66 29 objv[2], &onoff)
f120: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
f130: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 23 CL_ERROR;. }..#
f140: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 ifdef SQLITE_OMI
f150: 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e T_LOAD_EXTENSION
f160: 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 . Tcl_AppendRes
f170: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 74 68 69 ult(interp, "thi
f180: 73 20 62 75 69 6c 64 20 6f 6d 69 74 73 20 73 71 s build omits sq
f190: 6c 69 74 65 33 5f 6c 6f 61 64 5f 65 78 74 65 6e lite3_load_exten
f1a0: 73 69 6f 6e 28 29 22 29 3b 0a 20 20 72 65 74 75 sion()");. retu
f1b0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 rn TCL_ERROR;.#e
f1c0: 6c 73 65 0a 20 20 73 71 6c 69 74 65 33 5f 65 6e lse. sqlite3_en
f1d0: 61 62 6c 65 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 able_load_extens
f1e0: 69 6f 6e 28 64 62 2c 20 6f 6e 6f 66 66 29 3b 0a ion(db, onoff);.
f1f0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
f200: 0a 23 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a .#endif.}../*.**
f210: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 5f Usage: sqlite_
f220: 61 62 6f 72 74 0a 2a 2a 0a 2a 2a 20 53 68 75 74 abort.**.** Shut
f230: 64 6f 77 6e 20 74 68 65 20 70 72 6f 63 65 73 73 down the process
f240: 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 20 20 54 immediately. T
f250: 68 69 73 20 69 73 20 6e 6f 74 20 61 20 63 6c 65 his is not a cle
f260: 61 6e 20 73 68 75 74 64 6f 77 6e 2e 0a 2a 2a 20 an shutdown..**
f270: 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 This command is
f280: 75 73 65 64 20 74 6f 20 74 65 73 74 20 74 68 65 used to test the
f290: 20 72 65 63 6f 76 65 72 61 62 69 6c 69 74 79 20 recoverability
f2a0: 6f 66 20 61 20 64 61 74 61 62 61 73 65 20 69 6e of a database in
f2b0: 0a 2a 2a 20 74 68 65 20 65 76 65 6e 74 20 6f 66 .** the event of
f2c0: 20 61 20 70 72 6f 67 72 61 6d 20 63 72 61 73 68 a program crash
f2d0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
f2e0: 73 71 6c 69 74 65 5f 61 62 6f 72 74 28 0a 20 20 sqlite_abort(.
f2f0: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 void *NotUsed,.
f300: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
f310: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
f320: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
f330: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
f340: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
f350: 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 t argc,
f360: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
f370: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
f380: 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 char **argv
f390: 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 /* Text
f3a0: 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 of each argument
f3b0: 20 2a 2f 0a 29 7b 0a 23 69 66 20 64 65 66 69 6e */.){.#if defin
f3c0: 65 64 28 5f 4d 53 43 5f 56 45 52 29 0a 20 20 2f ed(_MSC_VER). /
f3d0: 2a 20 57 65 20 64 6f 20 74 68 69 73 2c 20 6f 74 * We do this, ot
f3e0: 68 65 72 77 69 73 65 20 74 68 65 20 74 65 73 74 herwise the test
f3f0: 20 77 69 6c 6c 20 68 61 6c 74 20 77 69 74 68 20 will halt with
f400: 61 20 70 6f 70 75 70 20 6d 65 73 73 61 67 65 0a a popup message.
f410: 20 20 20 2a 20 74 68 61 74 20 77 65 20 68 61 76 * that we hav
f420: 65 20 74 6f 20 63 6c 69 63 6b 20 61 77 61 79 20 e to click away
f430: 62 65 66 6f 72 65 20 74 68 65 20 74 65 73 74 20 before the test
f440: 77 69 6c 6c 20 63 6f 6e 74 69 6e 75 65 2e 0a 20 will continue..
f450: 20 20 2a 2f 0a 20 20 5f 73 65 74 5f 61 62 6f 72 */. _set_abor
f460: 74 5f 62 65 68 61 76 69 6f 72 28 20 30 2c 20 5f t_behavior( 0, _
f470: 43 41 4c 4c 5f 52 45 50 4f 52 54 46 41 55 4c 54 CALL_REPORTFAULT
f480: 20 29 3b 0a 23 65 6e 64 69 66 0a 20 20 65 78 69 );.#endif. exi
f490: 74 28 32 35 35 29 3b 0a 20 20 61 73 73 65 72 74 t(255);. assert
f4a0: 28 20 69 6e 74 65 72 70 3d 3d 30 20 29 3b 20 20 ( interp==0 );
f4b0: 20 2f 2a 20 54 68 69 73 20 77 69 6c 6c 20 61 6c /* This will al
f4c0: 77 61 79 73 20 66 61 69 6c 20 2a 2f 0a 20 20 72 ways fail */. r
f4d0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
f4e0: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f ./*.** The follo
f4f0: 77 69 6e 67 20 72 6f 75 74 69 6e 65 20 69 73 20 wing routine is
f500: 61 20 75 73 65 72 2d 64 65 66 69 6e 65 64 20 53 a user-defined S
f510: 51 4c 20 66 75 6e 63 74 69 6f 6e 20 77 68 6f 73 QL function whos
f520: 65 20 70 75 72 70 6f 73 65 0a 2a 2a 20 69 73 20 e purpose.** is
f530: 74 6f 20 74 65 73 74 20 74 68 65 20 73 71 6c 69 to test the sqli
f540: 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 28 29 20 te_set_result()
f550: 41 50 49 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 API..*/.static v
f560: 6f 69 64 20 74 65 73 74 46 75 6e 63 28 73 71 6c oid testFunc(sql
f570: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
f580: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
f590: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
f5a0: 2a 61 72 67 76 29 7b 0a 20 20 77 68 69 6c 65 28 *argv){. while(
f5b0: 20 61 72 67 63 3e 3d 32 20 29 7b 0a 20 20 20 20 argc>=2 ){.
f5c0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 72 67 const char *zArg
f5d0: 30 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69 74 0 = (char*)sqlit
f5e0: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
f5f0: 67 76 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 gv[0]);. if(
f600: 7a 41 72 67 30 20 29 7b 0a 20 20 20 20 20 20 69 zArg0 ){. i
f610: 66 28 20 30 3d 3d 73 71 6c 69 74 65 33 53 74 72 f( 0==sqlite3Str
f620: 49 43 6d 70 28 7a 41 72 67 30 2c 20 22 69 6e 74 ICmp(zArg0, "int
f630: 22 29 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 ") ){. sq
f640: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 lite3_result_int
f650: 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 (context, sqlite
f660: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 3_value_int(argv
f670: 5b 31 5d 29 29 3b 0a 20 20 20 20 20 20 7d 65 6c [1]));. }el
f680: 73 65 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 se if( sqlite3St
f690: 72 49 43 6d 70 28 7a 41 72 67 30 2c 22 69 6e 74 rICmp(zArg0,"int
f6a0: 36 34 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 64")==0 ){.
f6b0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
f6c0: 74 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c t_int64(context,
f6d0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 sqlite3_value_i
f6e0: 6e 74 36 34 28 61 72 67 76 5b 31 5d 29 29 3b 0a nt64(argv[1]));.
f6f0: 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 }else if(
f700: 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 7a sqlite3StrICmp(z
f710: 41 72 67 30 2c 22 73 74 72 69 6e 67 22 29 3d 3d Arg0,"string")==
f720: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 0 ){. sql
f730: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
f740: 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a (context, (char*
f750: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 )sqlite3_value_t
f760: 65 78 74 28 61 72 67 76 5b 31 5d 29 2c 20 2d 31 ext(argv[1]), -1
f770: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 51 ,. SQ
f780: 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b LITE_TRANSIENT);
f790: 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 . }else if(
f7a0: 20 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 sqlite3StrICmp(
f7b0: 7a 41 72 67 30 2c 22 64 6f 75 62 6c 65 22 29 3d zArg0,"double")=
f7c0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 =0 ){. sq
f7d0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 lite3_result_dou
f7e0: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c ble(context, sql
f7f0: 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c ite3_value_doubl
f800: 65 28 61 72 67 76 5b 31 5d 29 29 3b 0a 20 20 20 e(argv[1]));.
f810: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 71 6c }else if( sql
f820: 69 74 65 33 53 74 72 49 43 6d 70 28 7a 41 72 67 ite3StrICmp(zArg
f830: 30 2c 22 6e 75 6c 6c 22 29 3d 3d 30 20 29 7b 0a 0,"null")==0 ){.
f840: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f sqlite3_
f850: 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 result_null(cont
f860: 65 78 74 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 ext);. }els
f870: 65 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 e if( sqlite3Str
f880: 49 43 6d 70 28 7a 41 72 67 30 2c 22 76 61 6c 75 ICmp(zArg0,"valu
f890: 65 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 e")==0 ){.
f8a0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
f8b0: 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20 _value(context,
f8c0: 61 72 67 76 5b 73 71 6c 69 74 65 33 5f 76 61 6c argv[sqlite3_val
f8d0: 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 5d ue_int(argv[1])]
f8e0: 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a );. }else{.
f8f0: 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 goto err
f900: 6f 72 5f 6f 75 74 3b 0a 20 20 20 20 20 20 7d 0a or_out;. }.
f910: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
f920: 20 67 6f 74 6f 20 65 72 72 6f 72 5f 6f 75 74 3b goto error_out;
f930: 0a 20 20 20 20 7d 0a 20 20 20 20 61 72 67 63 20 . }. argc
f940: 2d 3d 20 32 3b 0a 20 20 20 20 61 72 67 76 20 2b -= 2;. argv +
f950: 3d 20 32 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 = 2;. }. retur
f960: 6e 3b 0a 0a 65 72 72 6f 72 5f 6f 75 74 3a 0a 20 n;..error_out:.
f970: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
f980: 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 22 66 error(context,"f
f990: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 73 68 irst argument sh
f9a0: 6f 75 6c 64 20 62 65 20 6f 6e 65 20 6f 66 3a 20 ould be one of:
f9b0: 22 0a 20 20 20 20 20 20 22 69 6e 74 20 69 6e 74 ". "int int
f9c0: 36 34 20 73 74 72 69 6e 67 20 64 6f 75 62 6c 65 64 string double
f9d0: 20 6e 75 6c 6c 20 76 61 6c 75 65 22 2c 20 2d 31 null value", -1
f9e0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 );.}../*.** Usag
f9f0: 65 3a 20 20 20 73 71 6c 69 74 65 5f 72 65 67 69 e: sqlite_regi
fa00: 73 74 65 72 5f 74 65 73 74 5f 66 75 6e 63 74 69 ster_test_functi
fa10: 6f 6e 20 20 44 42 20 20 4e 41 4d 45 0a 2a 2a 0a on DB NAME.**.
fa20: 2a 2a 20 52 65 67 69 73 74 65 72 20 74 68 65 20 ** Register the
fa30: 74 65 73 74 20 53 51 4c 20 66 75 6e 63 74 69 6f test SQL functio
fa40: 6e 20 6f 6e 20 74 68 65 20 64 61 74 61 62 61 73 n on the databas
fa50: 65 20 44 42 20 75 6e 64 65 72 20 74 68 65 20 6e e DB under the n
fa60: 61 6d 65 20 4e 41 4d 45 2e 0a 2a 2f 0a 73 74 61 ame NAME..*/.sta
fa70: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 72 65 67 tic int test_reg
fa80: 69 73 74 65 72 5f 66 75 6e 63 28 0a 20 20 76 6f ister_func(. vo
fa90: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
faa0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
fab0: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
fac0: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
fad0: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
fae0: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
faf0: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
fb00: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
fb10: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
fb20: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
fb30: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
fb40: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
fb50: 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a /.){. sqlite3 *
fb60: 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 db;. int rc;.
fb70: 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 if( argc!=3 ){.
fb80: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
fb90: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
fba0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
fbb0: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
fbc0: 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 44 42 20 ], . " DB
fbd0: 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 22 2c 20 FUNCTION-NAME",
fbe0: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
fbf0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
fc00: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
fc10: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
fc20: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
fc30: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 TCL_ERROR;. rc
fc40: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
fc50: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 61 72 _function(db, ar
fc60: 67 76 5b 32 5d 2c 20 2d 31 2c 20 53 51 4c 49 54 gv[2], -1, SQLIT
fc70: 45 5f 55 54 46 38 2c 20 30 2c 20 0a 20 20 20 20 E_UTF8, 0, .
fc80: 20 20 74 65 73 74 46 75 6e 63 2c 20 30 2c 20 30 testFunc, 0, 0
fc90: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 30 20 29 );. if( rc!=0 )
fca0: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
fcb0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 Result(interp, s
fcc0: 71 6c 69 74 65 33 45 72 72 53 74 72 28 72 63 29 qlite3ErrStr(rc)
fcd0: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
fce0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
fcf0: 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 if( sqlite3Tes
fd00: 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c tErrCode(interp,
fd10: 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 db, rc) ) retur
fd20: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 n TCL_ERROR;. r
fd30: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
fd40: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
fd50: 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 qlite3_finalize
fd60: 20 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 46 69 6e STMT .**.** Fin
fd70: 61 6c 69 7a 65 20 61 20 73 74 61 74 65 6d 65 6e alize a statemen
fd80: 74 20 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 t handle..*/.sta
fd90: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 66 69 6e tic int test_fin
fda0: 61 6c 69 7a 65 28 0a 20 20 76 6f 69 64 20 2a 20 alize(. void *
fdb0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
fdc0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
fdd0: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
fde0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
fdf0: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
fe00: 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
fe10: 20 20 69 6e 74 20 72 63 3b 0a 20 20 73 71 6c 69 int rc;. sqli
fe20: 74 65 33 20 2a 64 62 20 3d 20 30 3b 0a 0a 20 20 te3 *db = 0;..
fe30: 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 if( objc!=2 ){.
fe40: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
fe50: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
fe60: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
fe70: 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 d be \"",.
fe80: 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 Tcl_GetStringF
fe90: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 romObj(objv[0],
fea0: 30 29 2c 20 22 20 3c 53 54 4d 54 3e 22 2c 20 30 0), " <STMT>", 0
feb0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
fec0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
fed0: 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
fee0: 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
fef0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
ff00: 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
ff10: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a urn TCL_ERROR;..
ff20: 20 20 69 66 28 20 70 53 74 6d 74 20 29 7b 0a 20 if( pStmt ){.
ff30: 20 20 20 64 62 20 3d 20 53 74 6d 74 54 6f 44 62 db = StmtToDb
ff40: 28 70 53 74 6d 74 29 3b 0a 20 20 7d 0a 20 20 72 (pStmt);. }. r
ff50: 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 c = sqlite3_fina
ff60: 6c 69 7a 65 28 70 53 74 6d 74 29 3b 0a 20 20 54 lize(pStmt);. T
ff70: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
ff80: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 erp, (char *)t1E
ff90: 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 rrorName(rc), TC
ffa0: 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 69 66 28 L_STATIC);. if(
ffb0: 20 64 62 20 26 26 20 73 71 6c 69 74 65 33 54 65 db && sqlite3Te
ffc0: 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 stErrCode(interp
ffd0: 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 , db, rc) ) retu
ffe0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
fff0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
10000 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
10010 73 71 6c 69 74 65 33 5f 73 74 6d 74 5f 73 74 61 sqlite3_stmt_sta
10020 74 75 73 20 20 53 54 4d 54 20 20 43 4f 44 45 20 tus STMT CODE
10030 20 52 45 53 45 54 46 4c 41 47 0a 2a 2a 0a 2a 2a RESETFLAG.**.**
10040 20 47 65 74 20 74 68 65 20 76 61 6c 75 65 20 6f Get the value o
10050 66 20 61 20 73 74 61 74 75 73 20 63 6f 75 6e 74 f a status count
10060 65 72 20 66 72 6f 6d 20 61 20 73 74 61 74 65 6d er from a statem
10070 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ent..*/.static i
10080 6e 74 20 74 65 73 74 5f 73 74 6d 74 5f 73 74 61 nt test_stmt_sta
10090 74 75 73 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c tus(. void * cl
100a0 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
100b0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
100c0 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
100d0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
100e0 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 69 56 61 v[].){. int iVa
100f0 6c 75 65 3b 0a 20 20 69 6e 74 20 69 2c 20 6f 70 lue;. int i, op
10100 2c 20 72 65 73 65 74 46 6c 61 67 3b 0a 20 20 63 , resetFlag;. c
10110 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4f 70 4e 61 onst char *zOpNa
10120 6d 65 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 me;. sqlite3_st
10130 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 73 74 mt *pStmt;.. st
10140 61 74 69 63 20 63 6f 6e 73 74 20 73 74 72 75 63 atic const struc
10150 74 20 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 t {. const ch
10160 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 69 ar *zName;. i
10170 6e 74 20 6f 70 3b 0a 20 20 7d 20 61 4f 70 5b 5d nt op;. } aOp[]
10180 20 3d 20 7b 0a 20 20 20 20 7b 20 22 53 51 4c 49 = {. { "SQLI
10190 54 45 5f 53 54 4d 54 53 54 41 54 55 53 5f 46 55 TE_STMTSTATUS_FU
101a0 4c 4c 53 43 41 4e 5f 53 54 45 50 22 2c 20 20 20 LLSCAN_STEP",
101b0 53 51 4c 49 54 45 5f 53 54 4d 54 53 54 41 54 55 SQLITE_STMTSTATU
101c0 53 5f 46 55 4c 4c 53 43 41 4e 5f 53 54 45 50 20 S_FULLSCAN_STEP
101d0 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c 49 },. { "SQLI
101e0 54 45 5f 53 54 4d 54 53 54 41 54 55 53 5f 53 4f TE_STMTSTATUS_SO
101f0 52 54 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 RT",
10200 53 51 4c 49 54 45 5f 53 54 4d 54 53 54 41 54 55 SQLITE_STMTSTATU
10210 53 5f 53 4f 52 54 20 20 20 20 20 20 20 20 20 20 S_SORT
10220 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 51 4c 49 },. { "SQLI
10230 54 45 5f 53 54 4d 54 53 54 41 54 55 53 5f 41 55 TE_STMTSTATUS_AU
10240 54 4f 49 4e 44 45 58 22 2c 20 20 20 20 20 20 20 TOINDEX",
10250 53 51 4c 49 54 45 5f 53 54 4d 54 53 54 41 54 55 SQLITE_STMTSTATU
10260 53 5f 41 55 54 4f 49 4e 44 45 58 20 20 20 20 20 S_AUTOINDEX
10270 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 69 66 28 20 },. };. if(
10280 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 objc!=4 ){. T
10290 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
102a0 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
102b0 20 22 53 54 4d 54 20 50 41 52 41 4d 45 54 45 52 "STMT PARAMETER
102c0 20 52 45 53 45 54 46 4c 41 47 22 29 3b 0a 20 20 RESETFLAG");.
102d0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
102e0 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
102f0 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
10300 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
10310 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
10320 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
10330 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 4f 70 4e 61 L_ERROR;. zOpNa
10340 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 me = Tcl_GetStri
10350 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 66 ng(objv[2]);. f
10360 6f 72 28 69 3d 30 3b 20 69 3c 41 72 72 61 79 53 or(i=0; i<ArrayS
10370 69 7a 65 28 61 4f 70 29 3b 20 69 2b 2b 29 7b 0a ize(aOp); i++){.
10380 20 20 20 20 69 66 28 20 73 74 72 63 6d 70 28 61 if( strcmp(a
10390 4f 70 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 7a 4f 70 Op[i].zName, zOp
103a0 4e 61 6d 65 29 3d 3d 30 20 29 7b 0a 20 20 20 20 Name)==0 ){.
103b0 20 20 6f 70 20 3d 20 61 4f 70 5b 69 5d 2e 6f 70 op = aOp[i].op
103c0 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
103d0 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 69 }. }. if( i
103e0 3e 3d 41 72 72 61 79 53 69 7a 65 28 61 4f 70 29 >=ArraySize(aOp)
103f0 20 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f ){. if( Tcl_
10400 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
10410 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 terp, objv[2], &
10420 6f 70 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c op) ) return TCL
10430 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
10440 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e ( Tcl_GetBoolean
10450 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
10460 6f 62 6a 76 5b 33 5d 2c 20 26 72 65 73 65 74 46 objv[3], &resetF
10470 6c 61 67 29 20 29 20 72 65 74 75 72 6e 20 54 43 lag) ) return TC
10480 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 56 61 6c 75 L_ERROR;. iValu
10490 65 20 3d 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 e = sqlite3_stmt
104a0 5f 73 74 61 74 75 73 28 70 53 74 6d 74 2c 20 6f _status(pStmt, o
104b0 70 2c 20 72 65 73 65 74 46 6c 61 67 29 3b 0a 20 p, resetFlag);.
104c0 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
104d0 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
104e0 77 49 6e 74 4f 62 6a 28 69 56 61 6c 75 65 29 29 wIntObj(iValue))
104f0 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
10500 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
10510 65 3a 20 20 73 71 6c 69 74 65 33 5f 6e 65 78 74 e: sqlite3_next
10520 5f 73 74 6d 74 20 20 44 42 20 20 53 54 4d 54 0a _stmt DB STMT.
10530 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 **.** Return the
10540 20 6e 65 78 74 20 73 74 61 74 6d 65 6e 74 20 69 next statment i
10550 6e 20 73 65 71 75 65 6e 63 65 20 61 66 74 65 72 n sequence after
10560 20 53 54 4d 54 2e 0a 2a 2f 0a 73 74 61 74 69 63 STMT..*/.static
10570 20 69 6e 74 20 74 65 73 74 5f 6e 65 78 74 5f 73 int test_next_s
10580 74 6d 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c tmt(. void * cl
10590 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
105a0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
105b0 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
105c0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
105d0 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
105e0 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 _stmt *pStmt;.
105f0 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 30 3b sqlite3 *db = 0;
10600 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 5d . char zBuf[50]
10610 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 ;.. if( objc!=3
10620 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
10630 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
10640 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
10650 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 should be \"",.
10660 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
10670 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
10680 5b 30 5d 2c 20 30 29 2c 20 22 20 44 42 20 53 54 [0], 0), " DB ST
10690 4d 54 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 MT", 0);. ret
106a0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
106b0 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 44 62 50 }.. if( getDbP
106c0 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
106d0 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
106e0 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 v[1]), &db) ) re
106f0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
10700 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
10710 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
10720 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
10730 32 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 2]), &pStmt) ) r
10740 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
10750 0a 20 20 70 53 74 6d 74 20 3d 20 73 71 6c 69 74 . pStmt = sqlit
10760 65 33 5f 6e 65 78 74 5f 73 74 6d 74 28 64 62 2c e3_next_stmt(db,
10770 20 70 53 74 6d 74 29 3b 0a 20 20 69 66 28 20 70 pStmt);. if( p
10780 53 74 6d 74 20 29 7b 0a 20 20 20 20 69 66 28 20 Stmt ){. if(
10790 73 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 50 sqlite3TestMakeP
107a0 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 ointerStr(interp
107b0 2c 20 7a 42 75 66 2c 20 70 53 74 6d 74 29 20 29 , zBuf, pStmt) )
107c0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
107d0 52 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e R;. Tcl_Appen
107e0 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
107f0 7a 42 75 66 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 zBuf, 0);. }.
10800 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
10810 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 .../*.** Usage:
10820 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 20 20 sqlite3_reset
10830 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 52 65 73 65 STMT .**.** Rese
10840 74 20 61 20 73 74 61 74 65 6d 65 6e 74 20 68 61 t a statement ha
10850 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 ndle..*/.static
10860 69 6e 74 20 74 65 73 74 5f 72 65 73 65 74 28 0a int test_reset(.
10870 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
10880 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
10890 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
108a0 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
108b0 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
108c0 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 {. sqlite3_stmt
108d0 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 72 *pStmt;. int r
108e0 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d c;.. if( objc!=
108f0 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
10900 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
10910 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
10920 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a should be \"",.
10930 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 Tcl_GetS
10940 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
10950 76 5b 30 5d 2c 20 30 29 2c 20 22 20 3c 53 54 4d v[0], 0), " <STM
10960 54 3e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 T>", 0);. ret
10970 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
10980 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d }.. if( getStm
10990 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
109a0 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
109b0 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 bjv[1]), &pStmt)
109c0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
109d0 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c ROR;.. rc = sql
109e0 69 74 65 33 5f 72 65 73 65 74 28 70 53 74 6d 74 ite3_reset(pStmt
109f0 29 3b 0a 20 20 69 66 28 20 70 53 74 6d 74 20 26 );. if( pStmt &
10a00 26 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 & sqlite3TestErr
10a10 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 74 6d Code(interp, Stm
10a20 74 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 63 tToDb(pStmt), rc
10a30 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 ) ){. return
10a40 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
10a50 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
10a60 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 74 nterp, (char *)t
10a70 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 1ErrorName(rc),
10a80 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 2f 2a 0a TCL_STATIC);./*.
10a90 20 20 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 if( rc ){.
10aa0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
10ab0 3b 0a 20 20 7d 0a 2a 2f 0a 20 20 72 65 74 75 72 ;. }.*/. retur
10ac0 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
10ad0 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
10ae0 65 33 5f 65 78 70 69 72 65 64 20 53 54 4d 54 20 e3_expired STMT
10af0 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 52 .**.** Return TR
10b00 55 45 20 69 66 20 61 20 72 65 63 6f 6d 70 69 6c UE if a recompil
10b10 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 74 61 ation of the sta
10b20 74 65 6d 65 6e 74 20 69 73 20 72 65 63 6f 6d 6d tement is recomm
10b30 65 6e 64 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 ended..*/.static
10b40 20 69 6e 74 20 74 65 73 74 5f 65 78 70 69 72 65 int test_expire
10b50 64 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 d(. void * clie
10b60 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
10b70 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
10b80 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
10b90 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
10ba0 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c ].){.#ifndef SQL
10bb0 49 54 45 5f 4f 4d 49 54 5f 44 45 50 52 45 43 41 ITE_OMIT_DEPRECA
10bc0 54 45 44 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 TED. sqlite3_st
10bd0 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 66 28 mt *pStmt;. if(
10be0 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
10bf0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
10c00 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
10c10 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
10c20 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 e \"",. T
10c30 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
10c40 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c Obj(objv[0], 0),
10c50 20 22 20 3c 53 54 4d 54 3e 22 2c 20 30 29 3b 0a " <STMT>", 0);.
10c60 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
10c70 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
10c80 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
10c90 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
10ca0 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
10cb0 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
10cc0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c TCL_ERROR;. Tcl
10cd0 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
10ce0 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42 6f 6f terp, Tcl_NewBoo
10cf0 6c 65 61 6e 4f 62 6a 28 73 71 6c 69 74 65 33 5f leanObj(sqlite3_
10d00 65 78 70 69 72 65 64 28 70 53 74 6d 74 29 29 29 expired(pStmt)))
10d10 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 ;.#endif. retur
10d20 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
10d30 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
10d40 65 33 5f 74 72 61 6e 73 66 65 72 5f 62 69 6e 64 e3_transfer_bind
10d50 69 6e 67 73 20 46 52 4f 4d 53 54 4d 54 20 54 4f ings FROMSTMT TO
10d60 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 54 72 61 6e 73 STMT.**.** Trans
10d70 66 65 72 20 61 6c 6c 20 62 69 6e 64 69 6e 67 73 fer all bindings
10d80 20 66 72 6f 6d 20 46 52 4f 4d 53 54 4d 54 20 6f from FROMSTMT o
10d90 76 65 72 20 74 6f 20 54 4f 53 54 4d 54 0a 2a 2f ver to TOSTMT.*/
10da0 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
10db0 5f 74 72 61 6e 73 66 65 72 5f 62 69 6e 64 28 0a _transfer_bind(.
10dc0 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
10dd0 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
10de0 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
10df0 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
10e00 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
10e10 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 {.#ifndef SQLITE
10e20 5f 4f 4d 49 54 5f 44 45 50 52 45 43 41 54 45 44 _OMIT_DEPRECATED
10e30 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
10e40 2a 70 53 74 6d 74 31 2c 20 2a 70 53 74 6d 74 32 *pStmt1, *pStmt2
10e50 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 ;. if( objc!=3
10e60 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
10e70 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
10e80 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
10e90 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 hould be \"",.
10ea0 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
10eb0 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
10ec0 30 5d 2c 20 30 29 2c 20 22 20 46 52 4f 4d 2d 53 0], 0), " FROM-S
10ed0 54 4d 54 20 54 4f 2d 53 54 4d 54 22 2c 20 30 29 TMT TO-STMT", 0)
10ee0 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
10ef0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
10f00 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 ( getStmtPointer
10f10 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
10f20 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
10f30 20 26 70 53 74 6d 74 31 29 29 20 72 65 74 75 72 &pStmt1)) retur
10f40 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
10f50 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 f( getStmtPointe
10f60 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
10f70 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 tString(objv[2])
10f80 2c 20 26 70 53 74 6d 74 32 29 29 20 72 65 74 75 , &pStmt2)) retu
10f90 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
10fa0 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
10fb0 28 69 6e 74 65 72 70 2c 20 0a 20 20 20 20 20 54 (interp, . T
10fc0 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c cl_NewIntObj(sql
10fd0 69 74 65 33 5f 74 72 61 6e 73 66 65 72 5f 62 69 ite3_transfer_bi
10fe0 6e 64 69 6e 67 73 28 70 53 74 6d 74 31 2c 70 53 ndings(pStmt1,pS
10ff0 74 6d 74 32 29 29 29 3b 0a 23 65 6e 64 69 66 0a tmt2)));.#endif.
11000 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
11010 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
11020 20 20 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 sqlite3_change
11030 73 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 s DB.**.** Retur
11040 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 n the number of
11050 63 68 61 6e 67 65 73 20 6d 61 64 65 20 74 6f 20 changes made to
11060 74 68 65 20 64 61 74 61 62 61 73 65 20 62 79 20 the database by
11070 74 68 65 20 6c 61 73 74 20 53 51 4c 0a 2a 2a 20 the last SQL.**
11080 65 78 65 63 75 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 execution..*/.st
11090 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 68 atic int test_ch
110a0 61 6e 67 65 73 28 0a 20 20 76 6f 69 64 20 2a 20 anges(. void *
110b0 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
110c0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
110d0 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
110e0 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
110f0 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
11100 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 6f 62 e3 *db;. if( ob
11110 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
11120 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
11130 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
11140 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
11150 22 22 2c 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 "",. Tcl_G
11160 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d etString(objv[0]
11170 29 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 ), " DB", 0);.
11180 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
11190 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
111a0 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
111b0 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
111c0 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 (objv[1]), &db)
111d0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
111e0 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a OR;. Tcl_SetObj
111f0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
11200 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c cl_NewIntObj(sql
11210 69 74 65 33 5f 63 68 61 6e 67 65 73 28 64 62 29 ite3_changes(db)
11220 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ));. return TCL
11230 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 _OK;.}../*.** Th
11240 69 73 20 69 73 20 74 68 65 20 22 73 74 61 74 69 is is the "stati
11250 63 5f 62 69 6e 64 5f 76 61 6c 75 65 22 20 74 68 c_bind_value" th
11260 61 74 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 at variables are
11270 20 62 6f 75 6e 64 20 74 6f 20 77 68 65 6e 0a 2a bound to when.*
11280 2a 20 74 68 65 20 46 4c 41 47 20 6f 70 74 69 6f * the FLAG optio
11290 6e 20 6f 66 20 73 71 6c 69 74 65 33 5f 62 69 6e n of sqlite3_bin
112a0 64 20 69 73 20 22 73 74 61 74 69 63 22 0a 2a 2f d is "static".*/
112b0 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 73 71 .static char *sq
112c0 6c 69 74 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 lite_static_bind
112d0 5f 76 61 6c 75 65 20 3d 20 30 3b 0a 73 74 61 74 _value = 0;.stat
112e0 69 63 20 69 6e 74 20 73 71 6c 69 74 65 5f 73 74 ic int sqlite_st
112f0 61 74 69 63 5f 62 69 6e 64 5f 6e 62 79 74 65 20 atic_bind_nbyte
11300 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 = 0;../*.** Usag
11310 65 3a 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 e: sqlite3_bind
11320 20 20 56 4d 20 20 49 44 58 20 20 56 41 4c 55 45 VM IDX VALUE
11330 20 20 46 4c 41 47 53 0a 2a 2a 0a 2a 2a 20 53 65 FLAGS.**.** Se
11340 74 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 ts the value of
11350 74 68 65 20 49 44 58 2d 74 68 20 6f 63 63 75 72 the IDX-th occur
11360 61 6e 63 65 20 6f 66 20 22 3f 22 20 69 6e 20 74 ance of "?" in t
11370 68 65 20 6f 72 69 67 69 6e 61 6c 20 53 51 4c 0a he original SQL.
11380 2a 2a 20 73 74 72 69 6e 67 2e 20 20 56 41 4c 55 ** string. VALU
11390 45 20 69 73 20 74 68 65 20 6e 65 77 20 76 61 6c E is the new val
113a0 75 65 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d 22 ue. If FLAGS=="
113b0 6e 75 6c 6c 22 20 74 68 65 6e 20 56 41 4c 55 45 null" then VALUE
113c0 20 69 73 0a 2a 2a 20 69 67 6e 6f 72 65 64 20 61 is.** ignored a
113d0 6e 64 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 nd the value is
113e0 73 65 74 20 74 6f 20 4e 55 4c 4c 2e 20 20 49 66 set to NULL. If
113f0 20 46 4c 41 47 53 3d 3d 22 73 74 61 74 69 63 22 FLAGS=="static"
11400 20 74 68 65 6e 0a 2a 2a 20 74 68 65 20 76 61 6c then.** the val
11410 75 65 20 69 73 20 73 65 74 20 74 6f 20 74 68 65 ue is set to the
11420 20 76 61 6c 75 65 20 6f 66 20 61 20 73 74 61 74 value of a stat
11430 69 63 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 ic variable name
11440 64 0a 2a 2a 20 22 73 71 6c 69 74 65 5f 73 74 61 d.** "sqlite_sta
11450 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 22 2e tic_bind_value".
11460 20 20 49 66 20 46 4c 41 47 53 3d 3d 22 6e 6f 72 If FLAGS=="nor
11470 6d 61 6c 22 20 74 68 65 6e 20 61 20 63 6f 70 79 mal" then a copy
11480 0a 2a 2a 20 6f 66 20 74 68 65 20 56 41 4c 55 45 .** of the VALUE
11490 20 69 73 20 6d 61 64 65 2e 20 20 49 66 20 46 4c is made. If FL
114a0 41 47 53 3d 3d 22 62 6c 6f 62 31 30 22 20 74 68 AGS=="blob10" th
114b0 65 6e 20 61 20 56 41 4c 55 45 20 69 73 20 69 67 en a VALUE is ig
114c0 6e 6f 72 65 64 0a 2a 2a 20 61 6e 20 61 20 31 30 nored.** an a 10
114d0 2d 62 79 74 65 20 62 6c 6f 62 20 22 61 62 63 5c -byte blob "abc\
114e0 30 30 30 78 79 7a 5c 30 30 30 70 71 22 20 69 73 000xyz\000pq" is
114f0 20 69 6e 73 65 72 74 65 64 2e 0a 2a 2f 0a 73 74 inserted..*/.st
11500 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 atic int test_bi
11510 6e 64 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 nd(. void *NotU
11520 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
11530 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
11540 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
11550 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
11560 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
11570 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
11580 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
11590 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
115a0 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
115b0 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
115c0 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
115d0 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 gument */.){. s
115e0 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
115f0 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 mt;. int rc;.
11600 69 6e 74 20 69 64 78 3b 0a 20 20 69 66 28 20 61 int idx;. if( a
11610 72 67 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 rgc!=5 ){. Tc
11620 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
11630 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
11640 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
11650 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 \"", argv[0], .
11660 20 20 20 20 20 20 22 20 56 4d 20 49 44 58 20 56 " VM IDX V
11670 41 4c 55 45 20 28 6e 75 6c 6c 7c 73 74 61 74 69 ALUE (null|stati
11680 63 7c 6e 6f 72 6d 61 6c 29 5c 22 22 2c 20 30 29 c|normal)\"", 0)
11690 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
116a0 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
116b0 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 ( getStmtPointer
116c0 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
116d0 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
116e0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
116f0 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 if( Tcl_GetInt(i
11700 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c 20 nterp, argv[2],
11710 26 69 64 78 29 20 29 20 72 65 74 75 72 6e 20 54 &idx) ) return T
11720 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
11730 73 74 72 63 6d 70 28 61 72 67 76 5b 34 5d 2c 22 strcmp(argv[4],"
11740 6e 75 6c 6c 22 29 3d 3d 30 20 29 7b 0a 20 20 20 null")==0 ){.
11750 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 rc = sqlite3_bi
11760 6e 64 5f 6e 75 6c 6c 28 70 53 74 6d 74 2c 20 69 nd_null(pStmt, i
11770 64 78 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 dx);. }else if(
11780 20 73 74 72 63 6d 70 28 61 72 67 76 5b 34 5d 2c strcmp(argv[4],
11790 22 73 74 61 74 69 63 22 29 3d 3d 30 20 29 7b 0a "static")==0 ){.
117a0 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 rc = sqlite3
117b0 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 _bind_text(pStmt
117c0 2c 20 69 64 78 2c 20 73 71 6c 69 74 65 5f 73 74 , idx, sqlite_st
117d0 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 2c atic_bind_value,
117e0 20 2d 31 2c 20 30 29 3b 0a 20 20 7d 65 6c 73 65 -1, 0);. }else
117f0 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 if( strcmp(argv
11800 5b 34 5d 2c 22 73 74 61 74 69 63 2d 6e 62 79 74 [4],"static-nbyt
11810 65 73 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 es")==0 ){. r
11820 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 c = sqlite3_bind
11830 5f 74 65 78 74 28 70 53 74 6d 74 2c 20 69 64 78 _text(pStmt, idx
11840 2c 20 73 71 6c 69 74 65 5f 73 74 61 74 69 63 5f , sqlite_static_
11850 62 69 6e 64 5f 76 61 6c 75 65 2c 0a 20 20 20 20 bind_value,.
11860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11870 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11880 20 20 20 73 71 6c 69 74 65 5f 73 74 61 74 69 63 sqlite_static
11890 5f 62 69 6e 64 5f 6e 62 79 74 65 2c 20 30 29 3b _bind_nbyte, 0);
118a0 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 . }else if( str
118b0 63 6d 70 28 61 72 67 76 5b 34 5d 2c 22 6e 6f 72 cmp(argv[4],"nor
118c0 6d 61 6c 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 mal")==0 ){.
118d0 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e rc = sqlite3_bin
118e0 64 5f 74 65 78 74 28 70 53 74 6d 74 2c 20 69 64 d_text(pStmt, id
118f0 78 2c 20 61 72 67 76 5b 33 5d 2c 20 2d 31 2c 20 x, argv[3], -1,
11900 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 SQLITE_TRANSIENT
11910 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 );. }else if( s
11920 74 72 63 6d 70 28 61 72 67 76 5b 34 5d 2c 22 62 trcmp(argv[4],"b
11930 6c 6f 62 31 30 22 29 3d 3d 30 20 29 7b 0a 20 20 lob10")==0 ){.
11940 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 rc = sqlite3_b
11950 69 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 2c 20 ind_text(pStmt,
11960 69 64 78 2c 20 22 61 62 63 5c 30 30 30 78 79 7a idx, "abc\000xyz
11970 5c 30 30 30 70 71 22 2c 20 31 30 2c 20 53 51 4c \000pq", 10, SQL
11980 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 7d ITE_STATIC);. }
11990 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f 41 70 else{. Tcl_Ap
119a0 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
119b0 70 2c 20 22 34 74 68 20 61 72 67 75 6d 65 6e 74 p, "4th argument
119c0 20 73 68 6f 75 6c 64 20 62 65 20 22 0a 20 20 20 should be ".
119d0 20 20 20 20 20 22 5c 22 6e 75 6c 6c 5c 22 20 6f "\"null\" o
119e0 72 20 5c 22 73 74 61 74 69 63 5c 22 20 6f 72 20 r \"static\" or
119f0 5c 22 6e 6f 72 6d 61 6c 5c 22 22 2c 20 30 29 3b \"normal\"", 0);
11a00 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
11a10 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
11a20 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 sqlite3TestErrC
11a30 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 ode(interp, Stmt
11a40 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 63 29 ToDb(pStmt), rc)
11a50 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
11a60 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 20 29 7b ROR;. if( rc ){
11a70 0a 20 20 20 20 63 68 61 72 20 7a 42 75 66 5b 35 . char zBuf[5
11a80 30 5d 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 0];. sprintf(
11a90 7a 42 75 66 2c 20 22 28 25 64 29 20 22 2c 20 72 zBuf, "(%d) ", r
11aa0 63 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 c);. Tcl_Appe
11ab0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
11ac0 20 7a 42 75 66 2c 20 73 71 6c 69 74 65 33 45 72 zBuf, sqlite3Er
11ad0 72 53 74 72 28 72 63 29 2c 20 30 29 3b 0a 20 20 rStr(rc), 0);.
11ae0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
11af0 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e OR;. }. return
11b00 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 69 66 6e TCL_OK;.}..#ifn
11b10 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
11b20 55 54 46 31 36 0a 2f 2a 0a 2a 2a 20 55 73 61 67 UTF16./*.** Usag
11b30 65 3a 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c e: add_test_coll
11b40 61 74 65 20 3c 64 62 20 70 74 72 3e 20 3c 75 74 ate <db ptr> <ut
11b50 66 38 3e 20 3c 75 74 66 31 36 6c 65 3e 20 3c 75 f8> <utf16le> <u
11b60 74 66 31 36 62 65 3e 0a 2a 2a 0a 2a 2a 20 54 68 tf16be>.**.** Th
11b70 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 is function is u
11b80 73 65 64 20 74 6f 20 74 65 73 74 20 74 68 61 74 sed to test that
11b90 20 53 51 4c 69 74 65 20 73 65 6c 65 63 74 73 20 SQLite selects
11ba0 74 68 65 20 63 6f 72 72 65 63 74 20 63 6f 6c 6c the correct coll
11bb0 61 74 69 6f 6e 0a 2a 2a 20 73 65 71 75 65 6e 63 ation.** sequenc
11bc0 65 20 63 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 e callback when
11bd0 6d 75 6c 74 69 70 6c 65 20 76 65 72 73 69 6f 6e multiple version
11be0 73 20 28 66 6f 72 20 64 69 66 66 65 72 65 6e 74 s (for different
11bf0 20 74 65 78 74 20 65 6e 63 6f 64 69 6e 67 73 29 text encodings)
11c00 0a 2a 2a 20 61 72 65 20 61 76 61 69 6c 61 62 6c .** are availabl
11c10 65 2e 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 69 6e 67 e..**.** Calling
11c20 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 72 65 this routine re
11c30 67 69 73 74 65 72 73 20 74 68 65 20 63 6f 6c 6c gisters the coll
11c40 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 22 ation sequence "
11c50 74 65 73 74 5f 63 6f 6c 6c 61 74 65 22 0a 2a 2a test_collate".**
11c60 20 77 69 74 68 20 64 61 74 61 62 61 73 65 20 68 with database h
11c70 61 6e 64 6c 65 20 3c 64 62 3e 2e 20 54 68 65 20 andle <db>. The
11c80 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 second argument
11c90 6d 75 73 74 20 62 65 20 61 20 6c 69 73 74 20 6f must be a list o
11ca0 66 20 74 68 72 65 65 0a 2a 2a 20 62 6f 6f 6c 65 f three.** boole
11cb0 61 6e 20 76 61 6c 75 65 73 2e 20 49 66 20 74 68 an values. If th
11cc0 65 20 66 69 72 73 74 20 69 73 20 74 72 75 65 2c e first is true,
11cd0 20 74 68 65 6e 20 61 20 76 65 72 73 69 6f 6e 20 then a version
11ce0 6f 66 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 of test_collate
11cf0 69 73 0a 2a 2a 20 72 65 67 69 73 74 65 72 65 64 is.** registered
11d00 20 66 6f 72 20 55 54 46 2d 38 2c 20 69 66 20 74 for UTF-8, if t
11d10 68 65 20 73 65 63 6f 6e 64 20 69 73 20 74 72 75 he second is tru
11d20 65 2c 20 61 20 76 65 72 73 69 6f 6e 20 69 73 20 e, a version is
11d30 72 65 67 69 73 74 65 72 65 64 20 66 6f 72 0a 2a registered for.*
11d40 2a 20 55 54 46 2d 31 36 6c 65 2c 20 69 66 20 74 * UTF-16le, if t
11d50 68 65 20 74 68 69 72 64 20 69 73 20 74 72 75 65 he third is true
11d60 2c 20 61 20 55 54 46 2d 31 36 62 65 20 76 65 72 , a UTF-16be ver
11d70 73 69 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c sion is availabl
11d80 65 2e 0a 2a 2a 20 50 72 65 76 69 6f 75 73 20 76 e..** Previous v
11d90 65 72 73 69 6f 6e 73 20 6f 66 20 74 65 73 74 5f ersions of test_
11da0 63 6f 6c 6c 61 74 65 20 61 72 65 20 64 65 6c 65 collate are dele
11db0 74 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 ted..**.** The c
11dc0 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 ollation sequenc
11dd0 65 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 69 e test_collate i
11de0 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 s implemented by
11df0 20 63 61 6c 6c 69 6e 67 20 74 68 65 0a 2a 2a 20 calling the.**
11e00 66 6f 6c 6c 6f 77 69 6e 67 20 54 43 4c 20 73 63 following TCL sc
11e10 72 69 70 74 3a 0a 2a 2a 0a 2a 2a 20 20 20 22 74 ript:.**.** "t
11e20 65 73 74 5f 63 6f 6c 6c 61 74 65 20 3c 65 6e 63 est_collate <enc
11e30 3e 20 3c 6c 68 73 3e 20 3c 72 68 73 3e 22 0a 2a > <lhs> <rhs>".*
11e40 2a 0a 2a 2a 20 54 68 65 20 3c 6c 68 73 3e 20 61 *.** The <lhs> a
11e50 6e 64 20 3c 72 68 73 3e 20 61 72 65 20 74 68 65 nd <rhs> are the
11e60 20 74 77 6f 20 76 61 6c 75 65 73 20 62 65 69 6e two values bein
11e70 67 20 63 6f 6d 70 61 72 65 64 2c 20 65 6e 63 6f g compared, enco
11e80 64 65 64 20 69 6e 20 55 54 46 2d 38 2e 0a 2a 2a ded in UTF-8..**
11e90 20 54 68 65 20 3c 65 6e 63 3e 20 70 61 72 61 6d The <enc> param
11ea0 65 74 65 72 20 69 73 20 74 68 65 20 65 6e 63 6f eter is the enco
11eb0 64 69 6e 67 20 6f 66 20 74 68 65 20 63 6f 6c 6c ding of the coll
11ec0 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 74 ation function t
11ed0 68 61 74 0a 2a 2a 20 53 51 4c 69 74 65 20 73 65 hat.** SQLite se
11ee0 6c 65 63 74 65 64 20 74 6f 20 63 61 6c 6c 2e 20 lected to call.
11ef0 54 68 65 20 54 43 4c 20 74 65 73 74 20 73 63 72 The TCL test scr
11f00 69 70 74 20 69 6d 70 6c 65 6d 65 6e 74 73 20 74 ipt implements t
11f10 68 65 0a 2a 2a 20 22 74 65 73 74 5f 63 6f 6c 6c he.** "test_coll
11f20 61 74 65 22 20 70 72 6f 63 2e 0a 2a 2a 0a 2a 2a ate" proc..**.**
11f30 20 4e 6f 74 65 20 74 68 61 74 20 74 68 69 73 20 Note that this
11f40 77 69 6c 6c 20 6f 6e 6c 79 20 77 6f 72 6b 20 77 will only work w
11f50 69 74 68 20 6f 6e 65 20 69 6e 74 65 70 72 65 74 ith one intepret
11f60 65 72 20 61 74 20 61 20 74 69 6d 65 2c 20 61 73 er at a time, as
11f70 20 74 68 65 0a 2a 2a 20 69 6e 74 65 72 70 20 70 the.** interp p
11f80 6f 69 6e 74 65 72 20 74 6f 20 75 73 65 20 77 68 ointer to use wh
11f90 65 6e 20 65 76 61 6c 75 61 74 69 6e 67 20 74 68 en evaluating th
11fa0 65 20 54 43 4c 20 73 63 72 69 70 74 20 69 73 20 e TCL script is
11fb0 73 74 6f 72 65 64 20 69 6e 0a 2a 2a 20 70 54 65 stored in.** pTe
11fc0 73 74 43 6f 6c 6c 61 74 65 49 6e 74 65 72 70 2e stCollateInterp.
11fd0 0a 2a 2f 0a 73 74 61 74 69 63 20 54 63 6c 5f 49 .*/.static Tcl_I
11fe0 6e 74 65 72 70 2a 20 70 54 65 73 74 43 6f 6c 6c nterp* pTestColl
11ff0 61 74 65 49 6e 74 65 72 70 3b 0a 73 74 61 74 69 ateInterp;.stati
12000 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c 6c 61 c int test_colla
12010 74 65 5f 66 75 6e 63 28 0a 20 20 76 6f 69 64 20 te_func(. void
12020 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 *pCtx, . int nA
12030 2c 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 41 , const void *zA
12040 2c 0a 20 20 69 6e 74 20 6e 42 2c 20 63 6f 6e 73 ,. int nB, cons
12050 74 20 76 6f 69 64 20 2a 7a 42 0a 29 7b 0a 20 20 t void *zB.){.
12060 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 20 3d 20 Tcl_Interp *i =
12070 70 54 65 73 74 43 6f 6c 6c 61 74 65 49 6e 74 65 pTestCollateInte
12080 72 70 3b 0a 20 20 69 6e 74 20 65 6e 63 69 6e 20 rp;. int encin
12090 3d 20 53 51 4c 49 54 45 5f 50 54 52 5f 54 4f 5f = SQLITE_PTR_TO_
120a0 49 4e 54 28 70 43 74 78 29 3b 0a 20 20 69 6e 74 INT(pCtx);. int
120b0 20 72 65 73 3b 0a 20 20 69 6e 74 20 6e 3b 0a 0a res;. int n;..
120c0 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
120d0 2a 70 56 61 6c 3b 0a 20 20 54 63 6c 5f 4f 62 6a *pVal;. Tcl_Obj
120e0 20 2a 70 58 3b 0a 0a 20 20 70 58 20 3d 20 54 63 *pX;.. pX = Tc
120f0 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
12100 74 65 73 74 5f 63 6f 6c 6c 61 74 65 22 2c 20 2d test_collate", -
12110 31 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 1);. Tcl_IncrRe
12120 66 43 6f 75 6e 74 28 70 58 29 3b 0a 0a 20 20 73 fCount(pX);.. s
12130 77 69 74 63 68 28 20 65 6e 63 69 6e 20 29 7b 0a witch( encin ){.
12140 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
12150 55 54 46 38 3a 0a 20 20 20 20 20 20 54 63 6c 5f UTF8:. Tcl_
12160 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
12170 6d 65 6e 74 28 69 2c 70 58 2c 54 63 6c 5f 4e 65 ment(i,pX,Tcl_Ne
12180 77 53 74 72 69 6e 67 4f 62 6a 28 22 55 54 46 2d wStringObj("UTF-
12190 38 22 2c 2d 31 29 29 3b 0a 20 20 20 20 20 20 62 8",-1));. b
121a0 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
121b0 51 4c 49 54 45 5f 55 54 46 31 36 4c 45 3a 0a 20 QLITE_UTF16LE:.
121c0 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a Tcl_ListObj
121d0 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 2c AppendElement(i,
121e0 70 58 2c 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 pX,Tcl_NewString
121f0 4f 62 6a 28 22 55 54 46 2d 31 36 4c 45 22 2c 2d Obj("UTF-16LE",-
12200 31 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 1));. break
12210 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
12220 45 5f 55 54 46 31 36 42 45 3a 0a 20 20 20 20 20 E_UTF16BE:.
12230 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
12240 6e 64 45 6c 65 6d 65 6e 74 28 69 2c 70 58 2c 54 ndElement(i,pX,T
12250 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
12260 22 55 54 46 2d 31 36 42 45 22 2c 2d 31 29 29 3b "UTF-16BE",-1));
12270 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
12280 20 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 default:.
12290 20 61 73 73 65 72 74 28 30 29 3b 0a 20 20 7d 0a assert(0);. }.
122a0 0a 20 20 73 71 6c 69 74 65 33 42 65 67 69 6e 42 . sqlite3BeginB
122b0 65 6e 69 67 6e 4d 61 6c 6c 6f 63 28 29 3b 0a 20 enignMalloc();.
122c0 20 70 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 56 pVal = sqlite3V
122d0 61 6c 75 65 4e 65 77 28 30 29 3b 0a 20 20 69 66 alueNew(0);. if
122e0 28 20 70 56 61 6c 20 29 7b 0a 20 20 20 20 73 71 ( pVal ){. sq
122f0 6c 69 74 65 33 56 61 6c 75 65 53 65 74 53 74 72 lite3ValueSetStr
12300 28 70 56 61 6c 2c 20 6e 41 2c 20 7a 41 2c 20 65 (pVal, nA, zA, e
12310 6e 63 69 6e 2c 20 53 51 4c 49 54 45 5f 53 54 41 ncin, SQLITE_STA
12320 54 49 43 29 3b 0a 20 20 20 20 6e 20 3d 20 73 71 TIC);. n = sq
12330 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 lite3_value_byte
12340 73 28 70 56 61 6c 29 3b 0a 20 20 20 20 54 63 6c s(pVal);. Tcl
12350 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
12360 65 6d 65 6e 74 28 69 2c 70 58 2c 0a 20 20 20 20 ement(i,pX,.
12370 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
12380 67 4f 62 6a 28 28 63 68 61 72 2a 29 73 71 6c 69 gObj((char*)sqli
12390 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 70 te3_value_text(p
123a0 56 61 6c 29 2c 6e 29 29 3b 0a 20 20 20 20 73 71 Val),n));. sq
123b0 6c 69 74 65 33 56 61 6c 75 65 53 65 74 53 74 72 lite3ValueSetStr
123c0 28 70 56 61 6c 2c 20 6e 42 2c 20 7a 42 2c 20 65 (pVal, nB, zB, e
123d0 6e 63 69 6e 2c 20 53 51 4c 49 54 45 5f 53 54 41 ncin, SQLITE_STA
123e0 54 49 43 29 3b 0a 20 20 20 20 6e 20 3d 20 73 71 TIC);. n = sq
123f0 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 lite3_value_byte
12400 73 28 70 56 61 6c 29 3b 0a 20 20 20 20 54 63 6c s(pVal);. Tcl
12410 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
12420 65 6d 65 6e 74 28 69 2c 70 58 2c 0a 20 20 20 20 ement(i,pX,.
12430 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
12440 67 4f 62 6a 28 28 63 68 61 72 2a 29 73 71 6c 69 gObj((char*)sqli
12450 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 70 te3_value_text(p
12460 56 61 6c 29 2c 6e 29 29 3b 0a 20 20 20 20 73 71 Val),n));. sq
12470 6c 69 74 65 33 56 61 6c 75 65 46 72 65 65 28 70 lite3ValueFree(p
12480 56 61 6c 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 Val);. }. sqli
12490 74 65 33 45 6e 64 42 65 6e 69 67 6e 4d 61 6c 6c te3EndBenignMall
124a0 6f 63 28 29 3b 0a 0a 20 20 54 63 6c 5f 45 76 61 oc();.. Tcl_Eva
124b0 6c 4f 62 6a 45 78 28 69 2c 20 70 58 2c 20 30 29 lObjEx(i, pX, 0)
124c0 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 ;. Tcl_DecrRefC
124d0 6f 75 6e 74 28 70 58 29 3b 0a 20 20 54 63 6c 5f ount(pX);. Tcl_
124e0 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 2c GetIntFromObj(i,
124f0 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c Tcl_GetObjResul
12500 74 28 69 29 2c 20 26 72 65 73 29 3b 0a 20 20 72 t(i), &res);. r
12510 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 73 74 61 eturn res;.}.sta
12520 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c tic int test_col
12530 6c 61 74 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 late(. void * c
12540 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
12550 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
12560 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
12570 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
12580 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. 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 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ;. sqlite3_valu
125b0 65 20 2a 70 56 61 6c 3b 0a 20 20 69 6e 74 20 72 e *pVal;. int r
125c0 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d c;.. if( objc!=
125d0 35 20 29 20 67 6f 74 6f 20 62 61 64 5f 61 72 67 5 ) goto bad_arg
125e0 73 3b 0a 20 20 70 54 65 73 74 43 6f 6c 6c 61 74 s;. pTestCollat
125f0 65 49 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 eInterp = interp
12600 3b 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 ;. if( getDbPoi
12610 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
12620 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
12630 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 1]), &db) ) retu
12640 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
12650 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c if( TCL_OK!=Tcl
12660 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f _GetBooleanFromO
12670 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
12680 32 5d 2c 20 26 76 61 6c 29 20 29 20 72 65 74 75 2], &val) ) retu
12690 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
126a0 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 rc = sqlite3_cre
126b0 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 64 62 ate_collation(db
126c0 2c 20 22 74 65 73 74 5f 63 6f 6c 6c 61 74 65 22 , "test_collate"
126d0 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0a , SQLITE_UTF8, .
126e0 20 20 20 20 20 20 20 20 20 20 28 76 6f 69 64 20 (void
126f0 2a 29 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 76 *)SQLITE_UTF8, v
12700 61 6c 3f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f al?test_collate_
12710 66 75 6e 63 3a 30 29 3b 0a 20 20 69 66 28 20 72 func:0);. if( r
12720 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a c==SQLITE_OK ){.
12730 20 20 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a const void *
12740 7a 55 74 66 31 36 3b 0a 20 20 20 20 69 66 28 20 zUtf16;. if(
12750 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 TCL_OK!=Tcl_GetB
12760 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e ooleanFromObj(in
12770 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 terp, objv[3], &
12780 76 61 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 val) ) return TC
12790 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 72 63 20 L_ERROR;. rc
127a0 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
127b0 5f 63 6f 6c 6c 61 74 69 6f 6e 28 64 62 2c 20 22 _collation(db, "
127c0 74 65 73 74 5f 63 6f 6c 6c 61 74 65 22 2c 20 53 test_collate", S
127d0 51 4c 49 54 45 5f 55 54 46 31 36 4c 45 2c 20 0a QLITE_UTF16LE, .
127e0 20 20 20 20 20 20 20 20 20 20 20 20 28 76 6f 69 (voi
127f0 64 20 2a 29 53 51 4c 49 54 45 5f 55 54 46 31 36 d *)SQLITE_UTF16
12800 4c 45 2c 20 76 61 6c 3f 74 65 73 74 5f 63 6f 6c LE, val?test_col
12810 6c 61 74 65 5f 66 75 6e 63 3a 30 29 3b 0a 20 20 late_func:0);.
12820 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 if( TCL_OK!=Tc
12830 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d l_GetBooleanFrom
12840 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
12850 5b 34 5d 2c 20 26 76 61 6c 29 20 29 20 72 65 74 [4], &val) ) ret
12860 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a urn TCL_ERROR;..
12870 23 69 66 20 30 0a 20 20 20 20 69 66 28 20 73 71 #if 0. if( sq
12880 6c 69 74 65 33 5f 69 4d 61 6c 6c 6f 63 46 61 69 lite3_iMallocFai
12890 6c 3e 30 20 29 7b 0a 20 20 20 20 20 20 73 71 6c l>0 ){. sql
128a0 69 74 65 33 5f 69 4d 61 6c 6c 6f 63 46 61 69 6c ite3_iMallocFail
128b0 2b 2b 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 ++;. }.#endif
128c0 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 . sqlite3_mut
128d0 65 78 5f 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 ex_enter(db->mut
128e0 65 78 29 3b 0a 20 20 20 20 70 56 61 6c 20 3d 20 ex);. pVal =
128f0 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28 sqlite3ValueNew(
12900 64 62 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 db);. sqlite3
12910 56 61 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c ValueSetStr(pVal
12920 2c 20 2d 31 2c 20 22 74 65 73 74 5f 63 6f 6c 6c , -1, "test_coll
12930 61 74 65 22 2c 20 53 51 4c 49 54 45 5f 55 54 46 ate", SQLITE_UTF
12940 38 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 8, SQLITE_STATIC
12950 29 3b 0a 20 20 20 20 7a 55 74 66 31 36 20 3d 20 );. zUtf16 =
12960 73 71 6c 69 74 65 33 56 61 6c 75 65 54 65 78 74 sqlite3ValueText
12970 28 70 56 61 6c 2c 20 53 51 4c 49 54 45 5f 55 54 (pVal, SQLITE_UT
12980 46 31 36 4e 41 54 49 56 45 29 3b 0a 20 20 20 20 F16NATIVE);.
12990 69 66 28 20 64 62 2d 3e 6d 61 6c 6c 6f 63 46 61 if( db->mallocFa
129a0 69 6c 65 64 20 29 7b 0a 20 20 20 20 20 20 72 63 iled ){. rc
129b0 20 3d 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b = SQLITE_NOMEM;
129c0 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
129d0 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 rc = sqlite3_c
129e0 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 31 reate_collation1
129f0 36 28 64 62 2c 20 7a 55 74 66 31 36 2c 20 53 51 6(db, zUtf16, SQ
12a00 4c 49 54 45 5f 55 54 46 31 36 42 45 2c 20 0a 20 LITE_UTF16BE, .
12a10 20 20 20 20 20 20 20 20 20 28 76 6f 69 64 20 2a (void *
12a20 29 53 51 4c 49 54 45 5f 55 54 46 31 36 42 45 2c )SQLITE_UTF16BE,
12a30 20 76 61 6c 3f 74 65 73 74 5f 63 6f 6c 6c 61 74 val?test_collat
12a40 65 5f 66 75 6e 63 3a 30 29 3b 0a 20 20 20 20 7d e_func:0);. }
12a50 0a 20 20 20 20 73 71 6c 69 74 65 33 56 61 6c 75 . sqlite3Valu
12a60 65 46 72 65 65 28 70 56 61 6c 29 3b 0a 20 20 20 eFree(pVal);.
12a70 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c sqlite3_mutex_l
12a80 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b eave(db->mutex);
12a90 0a 20 20 7d 0a 20 20 69 66 28 20 73 71 6c 69 74 . }. if( sqlit
12aa0 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e e3TestErrCode(in
12ab0 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 terp, db, rc) )
12ac0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
12ad0 3b 0a 20 20 0a 20 20 69 66 28 20 72 63 21 3d 53 ;. . if( rc!=S
12ae0 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 QLITE_OK ){.
12af0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
12b00 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 33 (interp, sqlite3
12b10 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 72 63 TestErrorName(rc
12b20 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ), 0);. retur
12b30 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
12b40 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
12b50 3b 0a 0a 62 61 64 5f 61 72 67 73 3a 0a 20 20 54 ;..bad_args:. T
12b60 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
12b70 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
12b80 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
12b90 20 5c 22 22 2c 0a 20 20 20 20 20 20 54 63 6c 5f \"",. Tcl_
12ba0 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
12bb0 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 (objv[0], 0), "
12bc0 3c 44 42 3e 20 3c 75 74 66 38 3e 20 3c 75 74 66 <DB> <utf8> <utf
12bd0 31 36 6c 65 3e 20 3c 75 74 66 31 36 62 65 3e 22 16le> <utf16be>"
12be0 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 , 0);. return T
12bf0 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a CL_ERROR;.}../*.
12c00 2a 2a 20 57 68 65 6e 20 74 68 65 20 63 6f 6c 6c ** When the coll
12c10 61 74 69 6f 6e 20 6e 65 65 64 65 64 20 63 61 6c ation needed cal
12c20 6c 62 61 63 6b 20 69 73 20 69 6e 76 6f 6b 65 64 lback is invoked
12c30 2c 20 72 65 63 6f 72 64 20 74 68 65 20 6e 61 6d , record the nam
12c40 65 20 6f 66 20 0a 2a 2a 20 74 68 65 20 72 65 71 e of .** the req
12c50 75 65 73 74 65 64 20 63 6f 6c 6c 61 74 69 6e 67 uested collating
12c60 20 66 75 6e 63 74 69 6f 6e 20 68 65 72 65 2e 20 function here.
12c70 20 54 68 65 20 72 65 63 6f 72 64 65 64 20 6e 61 The recorded na
12c80 6d 65 20 69 73 20 6c 69 6e 6b 65 64 0a 2a 2a 20 me is linked.**
12c90 74 6f 20 61 20 54 43 4c 20 76 61 72 69 61 62 6c to a TCL variabl
12ca0 65 20 61 6e 64 20 75 73 65 64 20 74 6f 20 6d 61 e and used to ma
12cb0 6b 65 20 73 75 72 65 20 74 68 61 74 20 74 68 65 ke sure that the
12cc0 20 72 65 71 75 65 73 74 65 64 20 63 6f 6c 6c 61 requested colla
12cd0 74 69 6f 6e 0a 2a 2a 20 6e 61 6d 65 20 69 73 20 tion.** name is
12ce0 63 6f 72 72 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 correct..*/.stat
12cf0 69 63 20 63 68 61 72 20 7a 4e 65 65 64 65 64 43 ic char zNeededC
12d00 6f 6c 6c 61 74 69 6f 6e 5b 32 30 30 5d 3b 0a 73 ollation[200];.s
12d10 74 61 74 69 63 20 63 68 61 72 20 2a 70 7a 4e 65 tatic char *pzNe
12d20 65 64 65 64 43 6f 6c 6c 61 74 69 6f 6e 20 3d 20 ededCollation =
12d30 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f 6e zNeededCollation
12d40 3b 0a 0a 0a 2f 2a 0a 2a 2a 20 43 61 6c 6c 65 64 ;.../*.** Called
12d50 20 77 68 65 6e 20 61 20 63 6f 6c 6c 61 74 69 6e when a collatin
12d60 67 20 73 65 71 75 65 6e 63 65 20 69 73 20 6e 65 g sequence is ne
12d70 65 64 65 64 2e 20 20 52 65 67 69 73 74 65 72 65 eded. Registere
12d80 64 20 75 73 69 6e 67 0a 2a 2a 20 73 71 6c 69 74 d using.** sqlit
12d90 65 33 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 6e 65 65 e3_collation_nee
12da0 64 65 64 31 36 28 29 2e 0a 2a 2f 0a 73 74 61 74 ded16()..*/.stat
12db0 69 63 20 76 6f 69 64 20 74 65 73 74 5f 63 6f 6c ic void test_col
12dc0 6c 61 74 65 5f 6e 65 65 64 65 64 5f 63 62 28 0a late_needed_cb(.
12dd0 20 20 76 6f 69 64 20 2a 70 43 74 78 2c 20 0a 20 void *pCtx, .
12de0 20 73 71 6c 69 74 65 33 20 2a 64 62 2c 0a 20 20 sqlite3 *db,.
12df0 69 6e 74 20 65 54 65 78 74 52 65 70 2c 0a 20 20 int eTextRep,.
12e00 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 4e 61 6d const void *pNam
12e10 65 0a 29 7b 0a 20 20 69 6e 74 20 65 6e 63 20 3d e.){. int enc =
12e20 20 45 4e 43 28 64 62 29 3b 0a 20 20 69 6e 74 20 ENC(db);. int
12e30 69 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 i;. char *z;.
12e40 66 6f 72 28 7a 20 3d 20 28 63 68 61 72 2a 29 70 for(z = (char*)p
12e50 4e 61 6d 65 2c 20 69 3d 30 3b 20 2a 7a 20 7c 7c Name, i=0; *z ||
12e60 20 7a 5b 31 5d 3b 20 7a 2b 2b 29 7b 0a 20 20 20 z[1]; z++){.
12e70 20 69 66 28 20 2a 7a 20 29 20 7a 4e 65 65 64 65 if( *z ) zNeede
12e80 64 43 6f 6c 6c 61 74 69 6f 6e 5b 69 2b 2b 5d 20 dCollation[i++]
12e90 3d 20 2a 7a 3b 0a 20 20 7d 0a 20 20 7a 4e 65 65 = *z;. }. zNee
12ea0 64 65 64 43 6f 6c 6c 61 74 69 6f 6e 5b 69 5d 20 dedCollation[i]
12eb0 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 63 = 0;. sqlite3_c
12ec0 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 reate_collation(
12ed0 0a 20 20 20 20 20 20 64 62 2c 20 22 74 65 73 74 . db, "test
12ee0 5f 63 6f 6c 6c 61 74 65 22 2c 20 45 4e 43 28 64 _collate", ENC(d
12ef0 62 29 2c 20 53 51 4c 49 54 45 5f 49 4e 54 5f 54 b), SQLITE_INT_T
12f00 4f 5f 50 54 52 28 65 6e 63 29 2c 20 74 65 73 74 O_PTR(enc), test
12f10 5f 63 6f 6c 6c 61 74 65 5f 66 75 6e 63 29 3b 0a _collate_func);.
12f20 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
12f30 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 add_test_collate
12f40 5f 6e 65 65 64 65 64 20 44 42 0a 2a 2f 0a 73 74 _needed DB.*/.st
12f50 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f atic int test_co
12f60 6c 6c 61 74 65 5f 6e 65 65 64 65 64 28 0a 20 20 llate_needed(.
12f70 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
12f80 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
12f90 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
12fa0 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
12fb0 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
12fc0 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
12fd0 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
12fe0 6f 62 6a 63 21 3d 32 20 29 20 67 6f 74 6f 20 62 objc!=2 ) goto b
12ff0 61 64 5f 61 72 67 73 3b 0a 20 20 69 66 28 20 67 ad_args;. if( g
13000 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
13010 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
13020 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
13030 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
13040 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 ROR;. rc = sqli
13050 74 65 33 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 6e 65 te3_collation_ne
13060 65 64 65 64 31 36 28 64 62 2c 20 30 2c 20 74 65 eded16(db, 0, te
13070 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 st_collate_neede
13080 64 5f 63 62 29 3b 0a 20 20 7a 4e 65 65 64 65 64 d_cb);. zNeeded
13090 43 6f 6c 6c 61 74 69 6f 6e 5b 30 5d 20 3d 20 30 Collation[0] = 0
130a0 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 ;. if( sqlite3T
130b0 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 estErrCode(inter
130c0 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 p, db, rc) ) ret
130d0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
130e0 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
130f0 0a 62 61 64 5f 61 72 67 73 3a 0a 20 20 54 63 6c .bad_args:. Tcl
13100 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
13110 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
13120 44 42 22 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 DB");. return T
13130 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a CL_ERROR;.}../*.
13140 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 61 64 64 ** tclcmd: add
13150 5f 61 6c 69 67 6e 6d 65 6e 74 5f 74 65 73 74 5f _alignment_test_
13160 63 6f 6c 6c 61 74 69 6f 6e 73 20 20 44 42 0a 2a collations DB.*
13170 2a 0a 2a 2a 20 41 64 64 20 74 77 6f 20 6e 65 77 *.** Add two new
13180 20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 65 collating seque
13190 6e 63 65 73 20 74 6f 20 74 68 65 20 64 61 74 61 nces to the data
131a0 62 61 73 65 20 44 42 0a 2a 2a 0a 2a 2a 20 20 20 base DB.**.**
131b0 20 20 75 74 66 31 36 5f 61 6c 69 67 6e 65 64 0a utf16_aligned.
131c0 2a 2a 20 20 20 20 20 75 74 66 31 36 5f 75 6e 61 ** utf16_una
131d0 6c 69 67 6e 65 64 0a 2a 2a 0a 2a 2a 20 42 6f 74 ligned.**.** Bot
131e0 68 20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 h collating sequ
131f0 65 6e 63 65 73 20 75 73 65 20 74 68 65 20 73 61 ences use the sa
13200 6d 65 20 73 6f 72 74 20 6f 72 64 65 72 20 61 73 me sort order as
13210 20 42 49 4e 41 52 59 2e 0a 2a 2a 20 54 68 65 20 BINARY..** The
13220 6f 6e 6c 79 20 64 69 66 66 65 72 65 6e 63 65 20 only difference
13230 69 73 20 74 68 61 74 20 74 68 65 20 75 74 66 31 is that the utf1
13240 36 5f 61 6c 69 67 6e 65 64 20 63 6f 6c 6c 61 74 6_aligned collat
13250 69 6e 67 0a 2a 2a 20 73 65 71 75 65 6e 63 65 20 ing.** sequence
13260 69 73 20 64 65 63 6c 61 72 65 64 20 77 69 74 68 is declared with
13270 20 74 68 65 20 53 51 4c 49 54 45 5f 55 54 46 31 the SQLITE_UTF1
13280 36 5f 41 4c 49 47 4e 45 44 20 66 6c 61 67 2e 0a 6_ALIGNED flag..
13290 2a 2a 20 42 6f 74 68 20 63 6f 6c 6c 61 74 69 6e ** Both collatin
132a0 67 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 63 72 g functions incr
132b0 65 6d 65 6e 74 20 74 68 65 20 75 6e 61 6c 69 67 ement the unalig
132c0 6e 65 64 20 75 74 66 31 36 20 63 6f 75 6e 74 65 ned utf16 counte
132d0 72 0a 2a 2a 20 77 68 65 6e 65 76 65 72 20 74 68 r.** whenever th
132e0 65 79 20 73 65 65 20 61 20 73 74 72 69 6e 67 20 ey see a string
132f0 74 68 61 74 20 62 65 67 69 6e 73 20 6f 6e 20 61 that begins on a
13300 6e 20 6f 64 64 20 62 79 74 65 20 62 6f 75 6e 64 n odd byte bound
13310 61 72 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ary..*/.static i
13320 6e 74 20 75 6e 61 6c 69 67 6e 65 64 5f 73 74 72 nt unaligned_str
13330 69 6e 67 5f 63 6f 75 6e 74 65 72 20 3d 20 30 3b ing_counter = 0;
13340 0a 73 74 61 74 69 63 20 69 6e 74 20 61 6c 69 67 .static int alig
13350 6e 6d 65 6e 74 43 6f 6c 6c 46 75 6e 63 28 0a 20 nmentCollFunc(.
13360 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
13370 20 20 69 6e 74 20 6e 4b 65 79 31 2c 20 63 6f 6e int nKey1, con
13380 73 74 20 76 6f 69 64 20 2a 70 4b 65 79 31 2c 0a st void *pKey1,.
13390 20 20 69 6e 74 20 6e 4b 65 79 32 2c 20 63 6f 6e int nKey2, con
133a0 73 74 20 76 6f 69 64 20 2a 70 4b 65 79 32 0a 29 st void *pKey2.)
133b0 7b 0a 20 20 69 6e 74 20 72 63 2c 20 6e 3b 0a 20 {. int rc, n;.
133c0 20 6e 20 3d 20 6e 4b 65 79 31 3c 6e 4b 65 79 32 n = nKey1<nKey2
133d0 20 3f 20 6e 4b 65 79 31 20 3a 20 6e 4b 65 79 32 ? nKey1 : nKey2
133e0 3b 0a 20 20 69 66 28 20 6e 4b 65 79 31 3e 30 20 ;. if( nKey1>0
133f0 26 26 20 31 3d 3d 28 31 26 28 53 51 4c 49 54 45 && 1==(1&(SQLITE
13400 5f 50 54 52 5f 54 4f 5f 49 4e 54 28 70 4b 65 79 _PTR_TO_INT(pKey
13410 31 29 29 29 20 29 20 75 6e 61 6c 69 67 6e 65 64 1))) ) unaligned
13420 5f 73 74 72 69 6e 67 5f 63 6f 75 6e 74 65 72 2b _string_counter+
13430 2b 3b 0a 20 20 69 66 28 20 6e 4b 65 79 32 3e 30 +;. if( nKey2>0
13440 20 26 26 20 31 3d 3d 28 31 26 28 53 51 4c 49 54 && 1==(1&(SQLIT
13450 45 5f 50 54 52 5f 54 4f 5f 49 4e 54 28 70 4b 65 E_PTR_TO_INT(pKe
13460 79 32 29 29 29 20 29 20 75 6e 61 6c 69 67 6e 65 y2))) ) unaligne
13470 64 5f 73 74 72 69 6e 67 5f 63 6f 75 6e 74 65 72 d_string_counter
13480 2b 2b 3b 0a 20 20 72 63 20 3d 20 6d 65 6d 63 6d ++;. rc = memcm
13490 70 28 70 4b 65 79 31 2c 20 70 4b 65 79 32 2c 20 p(pKey1, pKey2,
134a0 6e 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 30 20 n);. if( rc==0
134b0 29 7b 0a 20 20 20 20 72 63 20 3d 20 6e 4b 65 79 ){. rc = nKey
134c0 31 20 2d 20 6e 4b 65 79 32 3b 0a 20 20 7d 0a 20 1 - nKey2;. }.
134d0 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 73 74 return rc;.}.st
134e0 61 74 69 63 20 69 6e 74 20 61 64 64 5f 61 6c 69 atic int add_ali
134f0 67 6e 6d 65 6e 74 5f 74 65 73 74 5f 63 6f 6c 6c gnment_test_coll
13500 61 74 69 6f 6e 73 28 0a 20 20 76 6f 69 64 20 2a ations(. void *
13510 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
13520 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
13530 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
13540 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
13550 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
13560 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 6f te3 *db;. if( o
13570 62 6a 63 3e 3d 32 20 29 7b 0a 20 20 20 20 69 66 bjc>=2 ){. if
13580 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
13590 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
135a0 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
135b0 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
135c0 5f 45 52 52 4f 52 3b 0a 20 20 20 20 73 71 6c 69 _ERROR;. sqli
135d0 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 te3_create_colla
135e0 74 69 6f 6e 28 64 62 2c 20 22 75 74 66 31 36 5f tion(db, "utf16_
135f0 75 6e 61 6c 69 67 6e 65 64 22 2c 20 53 51 4c 49 unaligned", SQLI
13600 54 45 5f 55 54 46 31 36 2c 20 0a 20 20 20 20 20 TE_UTF16, .
13610 20 20 20 30 2c 20 61 6c 69 67 6e 6d 65 6e 74 43 0, alignmentC
13620 6f 6c 6c 46 75 6e 63 29 3b 0a 20 20 20 20 73 71 ollFunc);. sq
13630 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c lite3_create_col
13640 6c 61 74 69 6f 6e 28 64 62 2c 20 22 75 74 66 31 lation(db, "utf1
13650 36 5f 61 6c 69 67 6e 65 64 22 2c 20 53 51 4c 49 6_aligned", SQLI
13660 54 45 5f 55 54 46 31 36 5f 41 4c 49 47 4e 45 44 TE_UTF16_ALIGNED
13670 2c 20 0a 20 20 20 20 20 20 20 20 30 2c 20 61 6c , . 0, al
13680 69 67 6e 6d 65 6e 74 43 6f 6c 6c 46 75 6e 63 29 ignmentCollFunc)
13690 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 53 ;. }. return S
136a0 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 QLITE_OK;.}.#end
136b0 69 66 20 2f 2a 20 21 64 65 66 69 6e 65 64 28 53 if /* !defined(S
136c0 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 QLITE_OMIT_UTF16
136d0 29 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 ) */../*.** Usag
136e0 65 3a 20 61 64 64 5f 74 65 73 74 5f 66 75 6e 63 e: add_test_func
136f0 74 69 6f 6e 20 3c 64 62 20 70 74 72 3e 20 3c 75 tion <db ptr> <u
13700 74 66 38 3e 20 3c 75 74 66 31 36 6c 65 3e 20 3c tf8> <utf16le> <
13710 75 74 66 31 36 62 65 3e 0a 2a 2a 0a 2a 2a 20 54 utf16be>.**.** T
13720 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
13730 75 73 65 64 20 74 6f 20 74 65 73 74 20 74 68 61 used to test tha
13740 74 20 53 51 4c 69 74 65 20 73 65 6c 65 63 74 73 t SQLite selects
13750 20 74 68 65 20 63 6f 72 72 65 63 74 20 75 73 65 the correct use
13760 72 0a 2a 2a 20 66 75 6e 63 74 69 6f 6e 20 63 61 r.** function ca
13770 6c 6c 62 61 63 6b 20 77 68 65 6e 20 6d 75 6c 74 llback when mult
13780 69 70 6c 65 20 76 65 72 73 69 6f 6e 73 20 28 66 iple versions (f
13790 6f 72 20 64 69 66 66 65 72 65 6e 74 20 74 65 78 or different tex
137a0 74 20 65 6e 63 6f 64 69 6e 67 73 29 0a 2a 2a 20 t encodings).**
137b0 61 72 65 20 61 76 61 69 6c 61 62 6c 65 2e 0a 2a are available..*
137c0 2a 0a 2a 2a 20 43 61 6c 6c 69 6e 67 20 74 68 69 *.** Calling thi
137d0 73 20 72 6f 75 74 69 6e 65 20 72 65 67 69 73 74 s routine regist
137e0 65 72 73 20 75 70 20 74 6f 20 74 68 72 65 65 20 ers up to three
137f0 76 65 72 73 69 6f 6e 73 20 6f 66 20 74 68 65 20 versions of the
13800 75 73 65 72 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a user function.**
13810 20 22 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 "test_function"
13820 20 77 69 74 68 20 64 61 74 61 62 61 73 65 20 68 with database h
13830 61 6e 64 6c 65 20 3c 64 62 3e 2e 20 20 49 66 20 andle <db>. If
13840 74 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d the second argum
13850 65 6e 74 20 69 73 0a 2a 2a 20 74 72 75 65 2c 20 ent is.** true,
13860 74 68 65 6e 20 61 20 76 65 72 73 69 6f 6e 20 6f then a version o
13870 66 20 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 f test_function
13880 69 73 20 72 65 67 69 73 74 65 72 65 64 20 66 6f is registered fo
13890 72 20 55 54 46 2d 38 2c 20 69 66 20 74 68 65 0a r UTF-8, if the.
138a0 2a 2a 20 74 68 69 72 64 20 69 73 20 74 72 75 65 ** third is true
138b0 2c 20 61 20 76 65 72 73 69 6f 6e 20 69 73 20 72 , a version is r
138c0 65 67 69 73 74 65 72 65 64 20 66 6f 72 20 55 54 egistered for UT
138d0 46 2d 31 36 6c 65 2c 20 69 66 20 74 68 65 20 66 F-16le, if the f
138e0 6f 75 72 74 68 20 69 73 0a 2a 2a 20 74 72 75 65 ourth is.** true
138f0 2c 20 61 20 55 54 46 2d 31 36 62 65 20 76 65 72 , a UTF-16be ver
13900 73 69 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c sion is availabl
13910 65 2e 20 20 50 72 65 76 69 6f 75 73 20 76 65 72 e. Previous ver
13920 73 69 6f 6e 73 20 6f 66 0a 2a 2a 20 74 65 73 74 sions of.** test
13930 5f 66 75 6e 63 74 69 6f 6e 20 61 72 65 20 64 65 _function are de
13940 6c 65 74 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 leted..**.** The
13950 20 75 73 65 72 20 66 75 6e 63 74 69 6f 6e 20 69 user function i
13960 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 s implemented by
13970 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 66 6f 6c calling the fol
13980 6c 6f 77 69 6e 67 20 54 43 4c 20 73 63 72 69 70 lowing TCL scrip
13990 74 3a 0a 2a 2a 0a 2a 2a 20 20 20 22 74 65 73 74 t:.**.** "test
139a0 5f 66 75 6e 63 74 69 6f 6e 20 3c 65 6e 63 3e 20 _function <enc>
139b0 3c 61 72 67 3e 22 0a 2a 2a 0a 2a 2a 20 57 68 65 <arg>".**.** Whe
139c0 72 65 20 3c 65 6e 63 3e 20 69 73 20 6f 6e 65 20 re <enc> is one
139d0 6f 66 20 55 54 46 2d 38 2c 20 55 54 46 2d 31 36 of UTF-8, UTF-16
139e0 4c 45 20 6f 72 20 55 54 46 31 36 42 45 2c 20 61 LE or UTF16BE, a
139f0 6e 64 20 3c 61 72 67 3e 20 69 73 20 74 68 65 0a nd <arg> is the.
13a00 2a 2a 20 73 69 6e 67 6c 65 20 61 72 67 75 6d 65 ** single argume
13a10 6e 74 20 70 61 73 73 65 64 20 74 6f 20 74 68 65 nt passed to the
13a20 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 54 SQL function. T
13a30 68 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 he value returne
13a40 64 20 62 79 0a 2a 2a 20 74 68 65 20 54 43 4c 20 d by.** the TCL
13a50 73 63 72 69 70 74 20 69 73 20 75 73 65 64 20 61 script is used a
13a60 73 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c s the return val
13a70 75 65 20 6f 66 20 74 68 65 20 53 51 4c 20 66 75 ue of the SQL fu
13a80 6e 63 74 69 6f 6e 2e 20 49 74 0a 2a 2a 20 69 73 nction. It.** is
13a90 20 70 61 73 73 65 64 20 74 6f 20 53 51 4c 69 74 passed to SQLit
13aa0 65 20 75 73 69 6e 67 20 55 54 46 2d 31 36 42 45 e using UTF-16BE
13ab0 20 66 6f 72 20 61 20 55 54 46 2d 38 20 74 65 73 for a UTF-8 tes
13ac0 74 5f 66 75 6e 63 74 69 6f 6e 28 29 2c 20 55 54 t_function(), UT
13ad0 46 2d 38 0a 2a 2a 20 66 6f 72 20 61 20 55 54 46 F-8.** for a UTF
13ae0 2d 31 36 4c 45 20 74 65 73 74 5f 66 75 6e 63 74 -16LE test_funct
13af0 69 6f 6e 28 29 2c 20 61 6e 64 20 55 54 46 2d 31 ion(), and UTF-1
13b00 36 4c 45 20 66 6f 72 20 61 6e 20 69 6d 70 6c 65 6LE for an imple
13b10 6d 65 6e 74 61 74 69 6f 6e 20 74 68 61 74 0a 2a mentation that.*
13b20 2a 20 70 72 65 66 65 72 73 20 55 54 46 2d 31 36 * prefers UTF-16
13b30 42 45 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66 20 53 BE..*/.#ifndef S
13b40 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 QLITE_OMIT_UTF16
13b50 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 .static void tes
13b60 74 5f 66 75 6e 63 74 69 6f 6e 5f 75 74 66 38 28 t_function_utf8(
13b70 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 . sqlite3_conte
13b80 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 xt *pCtx, . int
13b90 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 nArg,. sqlite3
13ba0 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
13bb0 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
13bc0 6e 74 65 72 70 3b 0a 20 20 54 63 6c 5f 4f 62 6a nterp;. Tcl_Obj
13bd0 20 2a 70 58 3b 0a 20 20 73 71 6c 69 74 65 33 5f *pX;. sqlite3_
13be0 76 61 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 20 69 value *pVal;. i
13bf0 6e 74 65 72 70 20 3d 20 28 54 63 6c 5f 49 6e 74 nterp = (Tcl_Int
13c00 65 72 70 20 2a 29 73 71 6c 69 74 65 33 5f 75 73 erp *)sqlite3_us
13c10 65 72 5f 64 61 74 61 28 70 43 74 78 29 3b 0a 20 er_data(pCtx);.
13c20 20 70 58 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 pX = Tcl_NewStr
13c30 69 6e 67 4f 62 6a 28 22 74 65 73 74 5f 66 75 6e ingObj("test_fun
13c40 63 74 69 6f 6e 22 2c 20 2d 31 29 3b 0a 20 20 54 ction", -1);. T
13c50 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
13c60 70 58 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f pX);. Tcl_ListO
13c70 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
13c80 69 6e 74 65 72 70 2c 20 70 58 2c 20 54 63 6c 5f interp, pX, Tcl_
13c90 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 55 54 NewStringObj("UT
13ca0 46 2d 38 22 2c 20 2d 31 29 29 3b 0a 20 20 54 63 F-8", -1));. Tc
13cb0 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
13cc0 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 lement(interp, p
13cd0 58 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 X, . Tcl_Ne
13ce0 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 72 wStringObj((char
13cf0 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f *)sqlite3_value_
13d00 74 65 78 74 28 61 72 67 76 5b 30 5d 29 2c 20 2d text(argv[0]), -
13d10 31 29 29 3b 0a 20 20 54 63 6c 5f 45 76 61 6c 4f 1));. Tcl_EvalO
13d20 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 70 58 2c bjEx(interp, pX,
13d30 20 30 29 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52 0);. Tcl_DecrR
13d40 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a 20 20 73 efCount(pX);. s
13d50 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 qlite3_result_te
13d60 78 74 28 70 43 74 78 2c 20 54 63 6c 5f 47 65 74 xt(pCtx, Tcl_Get
13d70 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 StringResult(int
13d80 65 72 70 29 2c 20 2d 31 2c 20 53 51 4c 49 54 45 erp), -1, SQLITE
13d90 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 70 _TRANSIENT);. p
13da0 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 56 61 6c Val = sqlite3Val
13db0 75 65 4e 65 77 28 30 29 3b 0a 20 20 73 71 6c 69 ueNew(0);. sqli
13dc0 74 65 33 56 61 6c 75 65 53 65 74 53 74 72 28 70 te3ValueSetStr(p
13dd0 56 61 6c 2c 20 2d 31 2c 20 54 63 6c 5f 47 65 74 Val, -1, Tcl_Get
13de0 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 StringResult(int
13df0 65 72 70 29 2c 20 0a 20 20 20 20 20 20 53 51 4c erp), . SQL
13e00 49 54 45 5f 55 54 46 38 2c 20 53 51 4c 49 54 45 ITE_UTF8, SQLITE
13e10 5f 53 54 41 54 49 43 29 3b 0a 20 20 73 71 6c 69 _STATIC);. sqli
13e20 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 te3_result_text1
13e30 36 62 65 28 70 43 74 78 2c 20 73 71 6c 69 74 65 6be(pCtx, sqlite
13e40 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 62 65 3_value_text16be
13e50 28 70 56 61 6c 29 2c 0a 20 20 20 20 20 20 2d 31 (pVal),. -1
13e60 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
13e70 4e 54 29 3b 0a 20 20 73 71 6c 69 74 65 33 56 61 NT);. sqlite3Va
13e80 6c 75 65 46 72 65 65 28 70 56 61 6c 29 3b 0a 7d lueFree(pVal);.}
13e90 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 .static void tes
13ea0 74 5f 66 75 6e 63 74 69 6f 6e 5f 75 74 66 31 36 t_function_utf16
13eb0 6c 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f le(. sqlite3_co
13ec0 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 ntext *pCtx, .
13ed0 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 int nArg,. sqli
13ee0 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
13ef0 0a 29 7b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 .){. Tcl_Interp
13f00 20 2a 69 6e 74 65 72 70 3b 0a 20 20 54 63 6c 5f *interp;. Tcl_
13f10 4f 62 6a 20 2a 70 58 3b 0a 20 20 73 71 6c 69 74 Obj *pX;. sqlit
13f20 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c 3b 0a e3_value *pVal;.
13f30 20 20 69 6e 74 65 72 70 20 3d 20 28 54 63 6c 5f interp = (Tcl_
13f40 49 6e 74 65 72 70 20 2a 29 73 71 6c 69 74 65 33 Interp *)sqlite3
13f50 5f 75 73 65 72 5f 64 61 74 61 28 70 43 74 78 29 _user_data(pCtx)
13f60 3b 0a 20 20 70 58 20 3d 20 54 63 6c 5f 4e 65 77 ;. pX = Tcl_New
13f70 53 74 72 69 6e 67 4f 62 6a 28 22 74 65 73 74 5f StringObj("test_
13f80 66 75 6e 63 74 69 6f 6e 22 2c 20 2d 31 29 3b 0a function", -1);.
13f90 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
13fa0 6e 74 28 70 58 29 3b 0a 20 20 54 63 6c 5f 4c 69 nt(pX);. Tcl_Li
13fb0 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
13fc0 6e 74 28 69 6e 74 65 72 70 2c 20 70 58 2c 20 54 nt(interp, pX, T
13fd0 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
13fe0 22 55 54 46 2d 31 36 4c 45 22 2c 20 2d 31 29 29 "UTF-16LE", -1))
13ff0 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 ;. Tcl_ListObjA
14000 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
14010 65 72 70 2c 20 70 58 2c 20 0a 20 20 20 20 20 20 erp, pX, .
14020 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
14030 28 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f ((char*)sqlite3_
14040 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
14050 30 5d 29 2c 20 2d 31 29 29 3b 0a 20 20 54 63 6c 0]), -1));. Tcl
14060 5f 45 76 61 6c 4f 62 6a 45 78 28 69 6e 74 65 72 _EvalObjEx(inter
14070 70 2c 20 70 58 2c 20 30 29 3b 0a 20 20 54 63 6c p, pX, 0);. Tcl
14080 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 58 _DecrRefCount(pX
14090 29 3b 0a 20 20 70 56 61 6c 20 3d 20 73 71 6c 69 );. pVal = sqli
140a0 74 65 33 56 61 6c 75 65 4e 65 77 28 30 29 3b 0a te3ValueNew(0);.
140b0 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 53 65 sqlite3ValueSe
140c0 74 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c 20 54 tStr(pVal, -1, T
140d0 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 cl_GetStringResu
140e0 6c 74 28 69 6e 74 65 72 70 29 2c 20 0a 20 20 20 lt(interp), .
140f0 20 20 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 SQLITE_UTF8,
14100 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a SQLITE_STATIC);.
14110 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
14120 5f 74 65 78 74 28 70 43 74 78 2c 28 63 68 61 72 _text(pCtx,(char
14130 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f *)sqlite3_value_
14140 74 65 78 74 28 70 56 61 6c 29 2c 2d 31 2c 53 51 text(pVal),-1,SQ
14150 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b LITE_TRANSIENT);
14160 0a 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 46 . sqlite3ValueF
14170 72 65 65 28 70 56 61 6c 29 3b 0a 7d 0a 73 74 61 ree(pVal);.}.sta
14180 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f 66 75 tic void test_fu
14190 6e 63 74 69 6f 6e 5f 75 74 66 31 36 62 65 28 0a nction_utf16be(.
141a0 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
141b0 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 t *pCtx, . int
141c0 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f nArg,. sqlite3_
141d0 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
141e0 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
141f0 74 65 72 70 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 terp;. Tcl_Obj
14200 2a 70 58 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 *pX;. sqlite3_v
14210 61 6c 75 65 20 2a 70 56 61 6c 3b 0a 20 20 69 6e alue *pVal;. in
14220 74 65 72 70 20 3d 20 28 54 63 6c 5f 49 6e 74 65 terp = (Tcl_Inte
14230 72 70 20 2a 29 73 71 6c 69 74 65 33 5f 75 73 65 rp *)sqlite3_use
14240 72 5f 64 61 74 61 28 70 43 74 78 29 3b 0a 20 20 r_data(pCtx);.
14250 70 58 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 pX = Tcl_NewStri
14260 6e 67 4f 62 6a 28 22 74 65 73 74 5f 66 75 6e 63 ngObj("test_func
14270 74 69 6f 6e 22 2c 20 2d 31 29 3b 0a 20 20 54 63 tion", -1);. Tc
14280 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 l_IncrRefCount(p
14290 58 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 X);. Tcl_ListOb
142a0 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
142b0 6e 74 65 72 70 2c 20 70 58 2c 20 54 63 6c 5f 4e nterp, pX, Tcl_N
142c0 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 55 54 46 ewStringObj("UTF
142d0 2d 31 36 42 45 22 2c 20 2d 31 29 29 3b 0a 20 20 -16BE", -1));.
142e0 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
142f0 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
14300 20 70 58 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f pX, . Tcl_
14310 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 68 NewStringObj((ch
14320 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 ar*)sqlite3_valu
14330 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 2c e_text(argv[0]),
14340 20 2d 31 29 29 3b 0a 20 20 54 63 6c 5f 45 76 61 -1));. Tcl_Eva
14350 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 70 lObjEx(interp, p
14360 58 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 44 65 63 X, 0);. Tcl_Dec
14370 72 52 65 66 43 6f 75 6e 74 28 70 58 29 3b 0a 20 rRefCount(pX);.
14380 20 70 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 56 pVal = sqlite3V
14390 61 6c 75 65 4e 65 77 28 30 29 3b 0a 20 20 73 71 alueNew(0);. sq
143a0 6c 69 74 65 33 56 61 6c 75 65 53 65 74 53 74 72 lite3ValueSetStr
143b0 28 70 56 61 6c 2c 20 2d 31 2c 20 54 63 6c 5f 47 (pVal, -1, Tcl_G
143c0 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 etStringResult(i
143d0 6e 74 65 72 70 29 2c 20 0a 20 20 20 20 20 20 53 nterp), . S
143e0 51 4c 49 54 45 5f 55 54 46 38 2c 20 53 51 4c 49 QLITE_UTF8, SQLI
143f0 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 73 71 TE_STATIC);. sq
14400 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
14410 74 31 36 28 70 43 74 78 2c 20 73 71 6c 69 74 65 t16(pCtx, sqlite
14420 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 6c 65 3_value_text16le
14430 28 70 56 61 6c 29 2c 0a 20 20 20 20 20 20 2d 31 (pVal),. -1
14440 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
14450 4e 54 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 NT);. sqlite3_r
14460 65 73 75 6c 74 5f 74 65 78 74 31 36 62 65 28 70 esult_text16be(p
14470 43 74 78 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c Ctx, sqlite3_val
14480 75 65 5f 74 65 78 74 31 36 6c 65 28 70 56 61 6c ue_text16le(pVal
14490 29 2c 0a 20 20 20 20 20 20 2d 31 2c 20 53 51 4c ),. -1, SQL
144a0 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a ITE_TRANSIENT);.
144b0 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
144c0 5f 74 65 78 74 31 36 6c 65 28 70 43 74 78 2c 20 _text16le(pCtx,
144d0 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
144e0 78 74 31 36 6c 65 28 70 56 61 6c 29 2c 0a 20 20 xt16le(pVal),.
144f0 20 20 20 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 -1, SQLITE_T
14500 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 73 71 6c RANSIENT);. sql
14510 69 74 65 33 56 61 6c 75 65 46 72 65 65 28 70 56 ite3ValueFree(pV
14520 61 6c 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a al);.}.#endif /*
14530 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 SQLITE_OMIT_UTF
14540 31 36 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 16 */.static int
14550 20 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 28 0a test_function(.
14560 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
14570 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
14580 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
14590 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
145a0 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
145b0 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 {.#ifndef SQLITE
145c0 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 73 71 _OMIT_UTF16. sq
145d0 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 lite3 *db;. int
145e0 20 76 61 6c 3b 0a 0a 20 20 69 66 28 20 6f 62 6a val;.. if( obj
145f0 63 21 3d 35 20 29 20 67 6f 74 6f 20 62 61 64 5f c!=5 ) goto bad_
14600 61 72 67 73 3b 0a 20 20 69 66 28 20 67 65 74 44 args;. if( getD
14610 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c bPointer(interp,
14620 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
14630 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 bjv[1]), &db) )
14640 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
14650 3b 0a 0a 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 ;.. if( TCL_OK!
14660 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 =Tcl_GetBooleanF
14670 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
14680 62 6a 76 5b 32 5d 2c 20 26 76 61 6c 29 20 29 20 bjv[2], &val) )
14690 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
146a0 3b 0a 20 20 69 66 28 20 76 61 6c 20 29 7b 0a 20 ;. if( val ){.
146b0 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 sqlite3_creat
146c0 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 e_function(db, "
146d0 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 test_function",
146e0 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 1, SQLITE_UTF8,
146f0 0a 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 2c . interp,
14700 20 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 5f 75 test_function_u
14710 74 66 38 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a tf8, 0, 0);. }.
14720 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 if( TCL_OK!=Tc
14730 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d l_GetBooleanFrom
14740 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
14750 5b 33 5d 2c 20 26 76 61 6c 29 20 29 20 72 65 74 [3], &val) ) ret
14760 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
14770 20 69 66 28 20 76 61 6c 20 29 7b 0a 20 20 20 20 if( val ){.
14780 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 sqlite3_create_f
14790 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 74 65 73 unction(db, "tes
147a0 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 31 2c 20 t_function", 1,
147b0 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 45 2c 20 SQLITE_UTF16LE,
147c0 0a 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 2c . interp,
147d0 20 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 5f 75 test_function_u
147e0 74 66 31 36 6c 65 2c 20 30 2c 20 30 29 3b 0a 20 tf16le, 0, 0);.
147f0 20 7d 0a 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 }. if( TCL_OK!
14800 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 =Tcl_GetBooleanF
14810 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
14820 62 6a 76 5b 34 5d 2c 20 26 76 61 6c 29 20 29 20 bjv[4], &val) )
14830 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
14840 3b 0a 20 20 69 66 28 20 76 61 6c 20 29 7b 0a 20 ;. if( val ){.
14850 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 sqlite3_creat
14860 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 e_function(db, "
14870 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 test_function",
14880 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 42 1, SQLITE_UTF16B
14890 45 2c 20 0a 20 20 20 20 20 20 20 20 69 6e 74 65 E, . inte
148a0 72 70 2c 20 74 65 73 74 5f 66 75 6e 63 74 69 6f rp, test_functio
148b0 6e 5f 75 74 66 31 36 62 65 2c 20 30 2c 20 30 29 n_utf16be, 0, 0)
148c0 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 ;. }.. return
148d0 54 43 4c 5f 4f 4b 3b 0a 62 61 64 5f 61 72 67 73 TCL_OK;.bad_args
148e0 3a 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 :. Tcl_AppendRe
148f0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
14900 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
14910 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 ld be \"",.
14920 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
14930 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 omObj(objv[0], 0
14940 29 2c 20 22 20 3c 44 42 3e 20 3c 75 74 66 38 3e ), " <DB> <utf8>
14950 20 3c 75 74 66 31 36 6c 65 3e 20 3c 75 74 66 31 <utf16le> <utf1
14960 36 62 65 3e 22 2c 20 30 29 3b 0a 23 65 6e 64 69 6be>", 0);.#endi
14970 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 f /* SQLITE_OMIT
14980 5f 55 54 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 _UTF16 */. retu
14990 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a rn TCL_ERROR;.}.
149a0 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 ./*.** Usage:
149b0 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 74 65 sqlite3_te
149c0 73 74 5f 65 72 72 73 74 72 20 3c 65 72 72 20 63 st_errstr <err c
149d0 6f 64 65 3e 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 ode>.**.** Test
149e0 74 68 61 74 20 74 68 65 20 65 6e 67 6c 69 73 68 that the english
149f0 20 6c 61 6e 67 75 61 67 65 20 73 74 72 69 6e 67 language string
14a00 20 65 71 75 69 76 61 6c 65 6e 74 73 20 66 6f 72 equivalents for
14a10 20 73 71 6c 69 74 65 20 65 72 72 6f 72 20 63 6f sqlite error co
14a20 64 65 73 0a 2a 2a 20 61 72 65 20 73 61 6e 65 2e des.** are sane.
14a30 20 54 68 65 20 70 61 72 61 6d 65 74 65 72 20 69 The parameter i
14a40 73 20 61 6e 20 69 6e 74 65 67 65 72 20 72 65 70 s an integer rep
14a50 72 65 73 65 6e 74 69 6e 67 20 61 6e 20 73 71 6c resenting an sql
14a60 69 74 65 20 65 72 72 6f 72 20 63 6f 64 65 2e 0a ite error code..
14a70 2a 2a 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 ** The result is
14a80 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65 a list of two e
14a90 6c 65 6d 65 6e 74 73 2c 20 74 68 65 20 73 74 72 lements, the str
14aa0 69 6e 67 20 72 65 70 72 65 73 65 6e 74 61 74 69 ing representati
14ab0 6f 6e 20 6f 66 20 74 68 65 0a 2a 2a 20 65 72 72 on of the.** err
14ac0 6f 72 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 or code and the
14ad0 65 6e 67 6c 69 73 68 20 6c 61 6e 67 75 61 67 65 english language
14ae0 20 65 78 70 6c 61 6e 61 74 69 6f 6e 2e 0a 2a 2f explanation..*/
14af0 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
14b00 5f 65 72 72 73 74 72 28 0a 20 20 76 6f 69 64 20 _errstr(. void
14b10 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
14b20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
14b30 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
14b40 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
14b50 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 63 68 61 objv[].){. cha
14b60 72 20 2a 7a 43 6f 64 65 3b 0a 20 20 69 6e 74 20 r *zCode;. int
14b70 69 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 i;. if( objc!=1
14b80 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e ){. Tcl_Wron
14b90 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
14ba0 20 31 2c 20 6f 62 6a 76 2c 20 22 3c 65 72 72 6f 1, objv, "<erro
14bb0 72 20 63 6f 64 65 3e 22 29 3b 0a 20 20 7d 0a 0a r code>");. }..
14bc0 20 20 7a 43 6f 64 65 20 3d 20 54 63 6c 5f 47 65 zCode = Tcl_Ge
14bd0 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
14be0 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 32 ;. for(i=0; i<2
14bf0 30 30 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 00; i++){. if
14c00 28 20 30 3d 3d 73 74 72 63 6d 70 28 74 31 45 72 ( 0==strcmp(t1Er
14c10 72 6f 72 4e 61 6d 65 28 69 29 2c 20 7a 43 6f 64 rorName(i), zCod
14c20 65 29 20 29 20 62 72 65 61 6b 3b 0a 20 20 7d 0a e) ) break;. }.
14c30 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
14c40 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
14c50 73 71 6c 69 74 65 33 45 72 72 53 74 72 28 69 29 sqlite3ErrStr(i)
14c60 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 , 0);. return T
14c70 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
14c80 55 73 61 67 65 3a 20 20 20 20 62 72 65 61 6b 70 Usage: breakp
14c90 6f 69 6e 74 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 oint.**.** This
14ca0 72 6f 75 74 69 6e 65 20 65 78 69 73 74 73 20 66 routine exists f
14cb0 6f 72 20 6f 6e 65 20 70 75 72 70 6f 73 65 20 2d or one purpose -
14cc0 20 74 6f 20 70 72 6f 76 69 64 65 20 61 20 70 6c to provide a pl
14cd0 61 63 65 20 74 6f 20 70 75 74 20 61 0a 2a 2a 20 ace to put a.**
14ce0 62 72 65 61 6b 70 6f 69 6e 74 20 77 69 74 68 20 breakpoint with
14cf0 47 44 42 20 74 68 61 74 20 63 61 6e 20 62 65 20 GDB that can be
14d00 74 72 69 67 67 65 72 65 64 20 75 73 69 6e 67 20 triggered using
14d10 54 43 4c 20 63 6f 64 65 2e 20 20 54 68 65 20 75 TCL code. The u
14d20 73 65 0a 2a 2a 20 66 6f 72 20 74 68 69 73 20 69 se.** for this i
14d30 73 20 77 68 65 6e 20 61 20 70 61 72 74 69 63 75 s when a particu
14d40 6c 61 72 20 74 65 73 74 20 66 61 69 6c 73 20 6f lar test fails o
14d50 6e 20 28 73 61 79 29 20 74 68 65 20 31 34 38 35 n (say) the 1485
14d60 74 68 20 69 74 65 72 61 74 69 6f 6e 2e 0a 2a 2a th iteration..**
14d70 20 49 6e 20 74 68 65 20 54 43 4c 20 74 65 73 74 In the TCL test
14d80 20 73 63 72 69 70 74 2c 20 77 65 20 63 61 6e 20 script, we can
14d90 61 64 64 20 63 6f 64 65 20 6c 69 6b 65 20 74 68 add code like th
14da0 69 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 69 66 is:.**.** if
14db0 20 7b 24 69 3d 3d 31 34 38 35 7d 20 62 72 65 61 {$i==1485} brea
14dc0 6b 70 6f 69 6e 74 0a 2a 2a 0a 2a 2a 20 54 68 65 kpoint.**.** The
14dd0 6e 20 72 75 6e 20 74 65 73 74 66 69 78 74 75 72 n run testfixtur
14de0 65 20 69 6e 20 74 68 65 20 64 65 62 75 67 67 65 e in the debugge
14df0 72 20 61 6e 64 20 77 61 69 74 20 66 6f 72 20 74 r and wait for t
14e00 68 65 20 62 72 65 61 6b 70 6f 69 6e 74 20 74 6f he breakpoint to
14e10 0a 2a 2a 20 66 69 72 65 2e 20 20 54 68 65 6e 20 .** fire. Then
14e20 61 64 64 69 74 69 6f 6e 61 6c 20 62 72 65 61 6b additional break
14e30 70 6f 69 6e 74 73 20 63 61 6e 20 62 65 20 73 65 points can be se
14e40 74 20 74 6f 20 74 72 61 63 65 20 64 6f 77 6e 20 t to trace down
14e50 74 68 65 20 62 75 67 2e 0a 2a 2f 0a 73 74 61 74 the bug..*/.stat
14e60 69 63 20 69 6e 74 20 74 65 73 74 5f 62 72 65 61 ic int test_brea
14e70 6b 70 6f 69 6e 74 28 0a 20 20 76 6f 69 64 20 2a kpoint(. void *
14e80 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
14e90 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
14ea0 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
14eb0 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
14ec0 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
14ed0 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
14ee0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
14ef0 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
14f00 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
14f10 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
14f20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
14f30 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
14f40 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
14f50 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 44 6f 20 ; /* Do
14f60 6e 6f 74 68 69 6e 67 20 2a 2f 0a 7d 0a 0a 2f 2a nothing */.}../*
14f70 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c .** Usage: sql
14f80 69 74 65 33 5f 62 69 6e 64 5f 7a 65 72 6f 62 6c ite3_bind_zerobl
14f90 6f 62 20 20 53 54 4d 54 20 49 44 58 20 4e 0a 2a ob STMT IDX N.*
14fa0 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 73 71 *.** Test the sq
14fb0 6c 69 74 65 33 5f 62 69 6e 64 5f 7a 65 72 6f 62 lite3_bind_zerob
14fc0 6c 6f 62 20 69 6e 74 65 72 66 61 63 65 2e 20 20 lob interface.
14fd0 53 54 4d 54 20 69 73 20 61 20 70 72 65 70 61 72 STMT is a prepar
14fe0 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 0a 2a 2a ed statement..**
14ff0 20 49 44 58 20 69 73 20 74 68 65 20 69 6e 64 65 IDX is the inde
15000 78 20 6f 66 20 61 20 77 69 6c 64 63 61 72 64 20 x of a wildcard
15010 69 6e 20 74 68 65 20 70 72 65 70 61 72 65 64 20 in the prepared
15020 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 68 69 73 statement. This
15030 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 command.** bind
15040 73 20 61 20 4e 2d 62 79 74 65 20 7a 65 72 6f 2d s a N-byte zero-
15050 66 69 6c 6c 65 64 20 42 4c 4f 42 20 74 6f 20 74 filled BLOB to t
15060 68 65 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a he wildcard..*/.
15070 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
15080 62 69 6e 64 5f 7a 65 72 6f 62 6c 6f 62 28 0a 20 bind_zeroblob(.
15090 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
150a0 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
150b0 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
150c0 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
150d0 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
150e0 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
150f0 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 *pStmt;. int id
15100 78 3b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 69 6e x;. int n;. in
15110 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a t rc;.. if( obj
15120 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=4 ){. Tcl_
15130 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
15140 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 erp, 1, objv, "S
15150 54 4d 54 20 49 44 58 20 4e 22 29 3b 0a 20 20 20 TMT IDX N");.
15160 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
15170 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
15180 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
15190 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
151a0 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
151b0 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
151c0 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
151d0 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
151e0 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
151f0 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
15200 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
15210 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
15220 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
15230 5b 33 5d 2c 20 26 6e 29 20 29 20 72 65 74 75 72 [3], &n) ) retur
15240 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 n TCL_ERROR;..
15250 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e rc = sqlite3_bin
15260 64 5f 7a 65 72 6f 62 6c 6f 62 28 70 53 74 6d 74 d_zeroblob(pStmt
15270 2c 20 69 64 78 2c 20 6e 29 3b 0a 20 20 69 66 28 , idx, n);. if(
15280 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 43 sqlite3TestErrC
15290 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 ode(interp, Stmt
152a0 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 63 29 ToDb(pStmt), rc)
152b0 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
152c0 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 ROR;. if( rc!=S
152d0 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 QLITE_OK ){.
152e0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
152f0 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 ;. }.. return
15300 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
15310 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 Usage: sqlite
15320 33 5f 62 69 6e 64 5f 69 6e 74 20 20 53 54 4d 54 3_bind_int STMT
15330 20 4e 20 56 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 N VALUE.**.** T
15340 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f est the sqlite3_
15350 62 69 6e 64 5f 69 6e 74 20 69 6e 74 65 72 66 61 bind_int interfa
15360 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 ce. STMT is a p
15370 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
15380 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 t..** N is the i
15390 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 ndex of a wildca
153a0 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 rd in the prepar
153b0 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 ed statement. T
153c0 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 his command.** b
153d0 69 6e 64 73 20 61 20 33 32 2d 62 69 74 20 69 6e inds a 32-bit in
153e0 74 65 67 65 72 20 56 41 4c 55 45 20 74 6f 20 74 teger VALUE to t
153f0 68 61 74 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f hat wildcard..*/
15400 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
15410 5f 62 69 6e 64 5f 69 6e 74 28 0a 20 20 76 6f 69 _bind_int(. voi
15420 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
15430 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
15440 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
15450 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
15460 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
15470 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
15480 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 mt;. int idx;.
15490 20 69 6e 74 20 76 61 6c 75 65 3b 0a 20 20 69 6e int value;. in
154a0 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a t rc;.. if( obj
154b0 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=4 ){. Tcl_
154c0 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
154d0 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
154e0 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
154f0 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 ",. Tcl_G
15500 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
15510 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 53 objv[0], 0), " S
15520 54 4d 54 20 4e 20 56 41 4c 55 45 22 2c 20 30 29 TMT N VALUE", 0)
15530 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
15540 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
15550 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 f( getStmtPointe
15560 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
15570 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
15580 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
15590 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
155a0 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
155b0 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
155c0 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 jv[2], &idx) ) r
155d0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
155e0 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
155f0 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
15600 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 75 65 objv[3], &value
15610 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
15620 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 RROR;.. rc = sq
15630 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 28 70 lite3_bind_int(p
15640 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 65 Stmt, idx, value
15650 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
15660 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
15670 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 rp, StmtToDb(pSt
15680 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 75 72 mt), rc) ) retur
15690 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
156a0 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b f( rc!=SQLITE_OK
156b0 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
156c0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
156d0 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
156e0 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a }.../*.** Usage:
156f0 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f sqlite3_bind_
15700 69 6e 74 36 34 20 20 53 54 4d 54 20 4e 20 56 41 int64 STMT N VA
15710 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 LUE.**.** Test t
15720 68 65 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f he sqlite3_bind_
15730 69 6e 74 36 34 20 69 6e 74 65 72 66 61 63 65 2e int64 interface.
15740 20 20 53 54 4d 54 20 69 73 20 61 20 70 72 65 70 STMT is a prep
15750 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 0a ared statement..
15760 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 6e 64 65 ** N is the inde
15770 78 20 6f 66 20 61 20 77 69 6c 64 63 61 72 64 20 x of a wildcard
15780 69 6e 20 74 68 65 20 70 72 65 70 61 72 65 64 20 in the prepared
15790 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 68 69 73 statement. This
157a0 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 command.** bind
157b0 73 20 61 20 36 34 2d 62 69 74 20 69 6e 74 65 67 s a 64-bit integ
157c0 65 72 20 56 41 4c 55 45 20 74 6f 20 74 68 61 74 er VALUE to that
157d0 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a 73 74 wildcard..*/.st
157e0 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 atic int test_bi
157f0 6e 64 5f 69 6e 74 36 34 28 0a 20 20 76 6f 69 64 nd_int64(. void
15800 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
15810 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
15820 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
15830 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
15840 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
15850 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d lite3_stmt *pStm
15860 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 t;. int idx;.
15870 69 36 34 20 76 61 6c 75 65 3b 0a 20 20 69 6e 74 i64 value;. int
15880 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 rc;.. if( objc
15890 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=4 ){. Tcl_A
158a0 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
158b0 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
158c0 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
158d0 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 ,. Tcl_Ge
158e0 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
158f0 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 53 54 bjv[0], 0), " ST
15900 4d 54 20 4e 20 56 41 4c 55 45 22 2c 20 30 29 3b MT N VALUE", 0);
15910 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
15920 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 ERROR;. }.. if
15930 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 ( getStmtPointer
15940 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
15950 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
15960 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 &pStmt) ) retur
15970 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
15980 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
15990 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
159a0 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 v[2], &idx) ) re
159b0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
159c0 20 20 69 66 28 20 54 63 6c 5f 47 65 74 57 69 64 if( Tcl_GetWid
159d0 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 eIntFromObj(inte
159e0 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 rp, objv[3], &va
159f0 6c 75 65 29 20 29 20 72 65 74 75 72 6e 20 54 43 lue) ) return TC
15a00 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d L_ERROR;.. rc =
15a10 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e sqlite3_bind_in
15a20 74 36 34 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 t64(pStmt, idx,
15a30 76 61 6c 75 65 29 3b 0a 20 20 69 66 28 20 73 71 value);. if( sq
15a40 6c 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 lite3TestErrCode
15a50 28 69 6e 74 65 72 70 2c 20 53 74 6d 74 54 6f 44 (interp, StmtToD
15a60 62 28 70 53 74 6d 74 29 2c 20 72 63 29 20 29 20 b(pStmt), rc) )
15a70 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
15a80 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 ;. if( rc!=SQLI
15a90 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 TE_OK ){. ret
15aa0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
15ab0 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }.. return TCL
15ac0 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 _OK;.}.../*.** U
15ad0 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f sage: sqlite3_
15ae0 62 69 6e 64 5f 64 6f 75 62 6c 65 20 20 53 54 4d bind_double STM
15af0 54 20 4e 20 56 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 T N VALUE.**.**
15b00 54 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 Test the sqlite3
15b10 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 20 69 6e 74 _bind_double int
15b20 65 72 66 61 63 65 2e 20 20 53 54 4d 54 20 69 73 erface. STMT is
15b30 20 61 20 70 72 65 70 61 72 65 64 20 73 74 61 74 a prepared stat
15b40 65 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 ement..** N is t
15b50 68 65 20 69 6e 64 65 78 20 6f 66 20 61 20 77 69 he index of a wi
15b60 6c 64 63 61 72 64 20 69 6e 20 74 68 65 20 70 72 ldcard in the pr
15b70 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 epared statement
15b80 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a . This command.
15b90 2a 2a 20 62 69 6e 64 73 20 61 20 36 34 2d 62 69 ** binds a 64-bi
15ba0 74 20 69 6e 74 65 67 65 72 20 56 41 4c 55 45 20 t integer VALUE
15bb0 74 6f 20 74 68 61 74 20 77 69 6c 64 63 61 72 64 to that wildcard
15bc0 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
15bd0 74 65 73 74 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 test_bind_double
15be0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
15bf0 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
15c00 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
15c10 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
15c20 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
15c30 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 .){. sqlite3_st
15c40 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 mt *pStmt;. int
15c50 20 69 64 78 3b 0a 20 20 64 6f 75 62 6c 65 20 76 idx;. double v
15c60 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a alue;. int rc;.
15c70 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 const char *zV
15c80 61 6c 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 73 al;. int i;. s
15c90 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74 72 75 tatic const stru
15ca0 63 74 20 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 ct {. const c
15cb0 68 61 72 20 2a 7a 4e 61 6d 65 3b 20 20 20 20 20 har *zName;
15cc0 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 73 /* Name of the s
15cd0 70 65 63 69 61 6c 20 66 6c 6f 61 74 69 6e 67 20 pecial floating
15ce0 70 6f 69 6e 74 20 76 61 6c 75 65 20 2a 2f 0a 20 point value */.
15cf0 20 20 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 unsigned int
15d00 69 55 70 70 65 72 3b 20 20 20 2f 2a 20 55 70 70 iUpper; /* Upp
15d10 65 72 20 33 32 20 62 69 74 73 20 2a 2f 0a 20 20 er 32 bits */.
15d20 20 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 69 unsigned int i
15d30 4c 6f 77 65 72 3b 20 20 20 2f 2a 20 4c 6f 77 65 Lower; /* Lowe
15d40 72 20 33 32 20 62 69 74 73 20 2a 2f 0a 20 20 7d r 32 bits */. }
15d50 20 61 53 70 65 63 69 61 6c 46 70 5b 5d 20 3d 20 aSpecialFp[] =
15d60 7b 0a 20 20 20 20 7b 20 20 22 4e 61 4e 22 2c 20 {. { "NaN",
15d70 20 20 20 20 20 30 78 37 66 66 66 66 66 66 66 2c 0x7fffffff,
15d80 20 30 78 66 66 66 66 66 66 66 66 20 7d 2c 0a 20 0xffffffff },.
15d90 20 20 20 7b 20 20 22 53 4e 61 4e 22 2c 20 20 20 { "SNaN",
15da0 20 20 30 78 37 66 66 37 66 66 66 66 2c 20 30 78 0x7ff7ffff, 0x
15db0 66 66 66 66 66 66 66 66 20 7d 2c 0a 20 20 20 20 ffffffff },.
15dc0 7b 20 20 22 2d 4e 61 4e 22 2c 20 20 20 20 20 30 { "-NaN", 0
15dd0 78 66 66 66 66 66 66 66 66 2c 20 30 78 66 66 66 xffffffff, 0xfff
15de0 66 66 66 66 66 20 7d 2c 0a 20 20 20 20 7b 20 20 fffff },. {
15df0 22 2d 53 4e 61 4e 22 2c 20 20 20 20 30 78 66 66 "-SNaN", 0xff
15e00 66 37 66 66 66 66 2c 20 30 78 66 66 66 66 66 66 f7ffff, 0xffffff
15e10 66 66 20 7d 2c 0a 20 20 20 20 7b 20 20 22 2b 49 ff },. { "+I
15e20 6e 66 22 2c 20 20 20 20 20 30 78 37 66 66 30 30 nf", 0x7ff00
15e30 30 30 30 2c 20 30 78 30 30 30 30 30 30 30 30 20 000, 0x00000000
15e40 7d 2c 0a 20 20 20 20 7b 20 20 22 2d 49 6e 66 22 },. { "-Inf"
15e50 2c 20 20 20 20 20 30 78 66 66 66 30 30 30 30 30 , 0xfff00000
15e60 2c 20 30 78 30 30 30 30 30 30 30 30 20 7d 2c 0a , 0x00000000 },.
15e70 20 20 20 20 7b 20 20 22 45 70 73 69 6c 6f 6e 22 { "Epsilon"
15e80 2c 20 20 30 78 30 30 30 30 30 30 30 30 2c 20 30 , 0x00000000, 0
15e90 78 30 30 30 30 30 30 30 31 20 7d 2c 0a 20 20 20 x00000001 },.
15ea0 20 7b 20 20 22 2d 45 70 73 69 6c 6f 6e 22 2c 20 { "-Epsilon",
15eb0 30 78 38 30 30 30 30 30 30 30 2c 20 30 78 30 30 0x80000000, 0x00
15ec0 30 30 30 30 30 31 20 7d 2c 0a 20 20 20 20 7b 20 000001 },. {
15ed0 20 22 4e 61 4e 30 22 2c 20 20 20 20 20 30 78 37 "NaN0", 0x7
15ee0 66 66 38 30 30 30 30 2c 20 30 78 30 30 30 30 30 ff80000, 0x00000
15ef0 30 30 30 20 7d 2c 0a 20 20 20 20 7b 20 20 22 2d 000 },. { "-
15f00 4e 61 4e 30 22 2c 20 20 20 20 30 78 66 66 66 38 NaN0", 0xfff8
15f10 30 30 30 30 2c 20 30 78 30 30 30 30 30 30 30 30 0000, 0x00000000
15f20 20 7d 2c 0a 20 20 7d 3b 0a 0a 20 20 69 66 28 20 },. };.. if(
15f30 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 objc!=4 ){. T
15f40 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
15f50 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
15f60 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
15f70 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 \"",. Tc
15f80 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
15f90 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 bj(objv[0], 0),
15fa0 22 20 53 54 4d 54 20 4e 20 56 41 4c 55 45 22 2c " STMT N VALUE",
15fb0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
15fc0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
15fd0 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
15fe0 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
15ff0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
16000 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
16010 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
16020 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
16030 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
16040 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 objv[2], &idx)
16050 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
16060 4f 52 3b 0a 0a 20 20 2f 2a 20 49 6e 74 65 72 63 OR;.. /* Interc
16070 65 70 74 20 74 68 65 20 73 74 72 69 6e 67 20 22 ept the string "
16080 4e 61 4e 22 20 61 6e 64 20 67 65 6e 65 72 61 74 NaN" and generat
16090 65 20 61 20 4e 61 4e 20 76 61 6c 75 65 20 66 6f e a NaN value fo
160a0 72 20 69 74 2e 0a 20 20 2a 2a 20 41 6c 6c 20 6f r it.. ** All o
160b0 74 68 65 72 20 73 74 72 69 6e 67 73 20 61 72 65 ther strings are
160c0 20 70 61 73 73 65 64 20 74 68 72 6f 75 67 68 20 passed through
160d0 74 6f 20 54 63 6c 5f 47 65 74 44 6f 75 62 6c 65 to Tcl_GetDouble
160e0 46 72 6f 6d 4f 62 6a 28 29 2e 0a 20 20 2a 2a 20 FromObj().. **
160f0 54 63 6c 5f 47 65 74 44 6f 75 62 6c 65 46 72 6f Tcl_GetDoubleFro
16100 6d 4f 62 6a 28 29 20 73 68 6f 75 6c 64 20 75 6e mObj() should un
16110 64 65 72 73 74 61 6e 64 20 22 4e 61 4e 22 20 62 derstand "NaN" b
16120 75 74 20 73 6f 6d 65 20 76 65 72 73 69 6f 6e 73 ut some versions
16130 0a 20 20 2a 2a 20 63 6f 6e 74 61 69 6e 20 61 20 . ** contain a
16140 62 75 67 2e 0a 20 20 2a 2f 0a 20 20 7a 56 61 6c bug.. */. zVal
16150 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
16160 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 66 6f 72 (objv[3]);. for
16170 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 (i=0; i<sizeof(a
16180 53 70 65 63 69 61 6c 46 70 29 2f 73 69 7a 65 6f SpecialFp)/sizeo
16190 66 28 61 53 70 65 63 69 61 6c 46 70 5b 30 5d 29 f(aSpecialFp[0])
161a0 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 ; i++){. if(
161b0 73 74 72 63 6d 70 28 61 53 70 65 63 69 61 6c 46 strcmp(aSpecialF
161c0 70 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 7a 56 61 6c p[i].zName, zVal
161d0 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 73 71 )==0 ){. sq
161e0 6c 69 74 65 33 5f 75 69 6e 74 36 34 20 78 3b 0a lite3_uint64 x;.
161f0 20 20 20 20 20 20 78 20 3d 20 61 53 70 65 63 69 x = aSpeci
16200 61 6c 46 70 5b 69 5d 2e 69 55 70 70 65 72 3b 0a alFp[i].iUpper;.
16210 20 20 20 20 20 20 78 20 3c 3c 3d 20 33 32 3b 0a x <<= 32;.
16220 20 20 20 20 20 20 78 20 7c 3d 20 61 53 70 65 63 x |= aSpec
16230 69 61 6c 46 70 5b 69 5d 2e 69 4c 6f 77 65 72 3b ialFp[i].iLower;
16240 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 20 73 . assert( s
16250 69 7a 65 6f 66 28 76 61 6c 75 65 29 3d 3d 38 20 izeof(value)==8
16260 29 3b 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 );. assert(
16270 20 73 69 7a 65 6f 66 28 78 29 3d 3d 38 20 29 3b sizeof(x)==8 );
16280 0a 20 20 20 20 20 20 6d 65 6d 63 70 79 28 26 76 . memcpy(&v
16290 61 6c 75 65 2c 20 26 78 2c 20 38 29 3b 0a 20 20 alue, &x, 8);.
162a0 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d break;. }
162b0 0a 20 20 7d 0a 20 20 69 66 28 20 69 3e 3d 73 69 . }. if( i>=si
162c0 7a 65 6f 66 28 61 53 70 65 63 69 61 6c 46 70 29 zeof(aSpecialFp)
162d0 2f 73 69 7a 65 6f 66 28 61 53 70 65 63 69 61 6c /sizeof(aSpecial
162e0 46 70 5b 30 5d 29 20 26 26 0a 20 20 20 20 20 20 Fp[0]) &&.
162f0 20 20 20 54 63 6c 5f 47 65 74 44 6f 75 62 6c 65 Tcl_GetDouble
16300 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
16310 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 75 65 29 objv[3], &value)
16320 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
16330 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
16340 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e rc = sqlite3_bin
16350 64 5f 64 6f 75 62 6c 65 28 70 53 74 6d 74 2c 20 d_double(pStmt,
16360 69 64 78 2c 20 76 61 6c 75 65 29 3b 0a 20 20 69 idx, value);. i
16370 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 f( sqlite3TestEr
16380 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 74 rCode(interp, St
16390 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 mtToDb(pStmt), r
163a0 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f c) ) return TCL_
163b0 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 21 ERROR;. if( rc!
163c0 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 =SQLITE_OK ){.
163d0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
163e0 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 OR;. }.. retur
163f0 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
16400 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 ** Usage: sqli
16410 74 65 33 5f 62 69 6e 64 5f 6e 75 6c 6c 20 20 53 te3_bind_null S
16420 54 4d 54 20 4e 0a 2a 2a 0a 2a 2a 20 54 65 73 74 TMT N.**.** Test
16430 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62 69 6e the sqlite3_bin
16440 64 5f 6e 75 6c 6c 20 69 6e 74 65 72 66 61 63 65 d_null interface
16450 2e 20 20 53 54 4d 54 20 69 73 20 61 20 70 72 65 . STMT is a pre
16460 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e pared statement.
16470 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 69 6e 64 .** N is the ind
16480 65 78 20 6f 66 20 61 20 77 69 6c 64 63 61 72 64 ex of a wildcard
16490 20 69 6e 20 74 68 65 20 70 72 65 70 61 72 65 64 in the prepared
164a0 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 54 68 69 statement. Thi
164b0 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 69 6e s command.** bin
164c0 64 73 20 61 20 4e 55 4c 4c 20 74 6f 20 74 68 65 ds a NULL to the
164d0 20 77 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a 73 74 wildcard..*/.st
164e0 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 atic int test_bi
164f0 6e 64 5f 6e 75 6c 6c 28 0a 20 20 76 6f 69 64 20 nd_null(. void
16500 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
16510 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
16520 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
16530 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
16540 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
16550 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 ite3_stmt *pStmt
16560 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 ;. int idx;. i
16570 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 nt rc;.. if( ob
16580 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c jc!=3 ){. Tcl
16590 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
165a0 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
165b0 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
165c0 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f "",. Tcl_
165d0 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
165e0 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 (objv[0], 0), "
165f0 53 54 4d 54 20 4e 22 2c 20 30 29 3b 0a 20 20 20 STMT N", 0);.
16600 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
16610 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
16620 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
16630 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
16640 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
16650 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
16660 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
16670 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
16680 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
16690 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
166a0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 TCL_ERROR;.. r
166b0 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 c = sqlite3_bind
166c0 5f 6e 75 6c 6c 28 70 53 74 6d 74 2c 20 69 64 78 _null(pStmt, idx
166d0 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 );. if( sqlite3
166e0 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 TestErrCode(inte
166f0 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 rp, StmtToDb(pSt
16700 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 75 72 mt), rc) ) retur
16710 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
16720 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b f( rc!=SQLITE_OK
16730 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
16740 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
16750 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
16760 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
16770 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 sqlite3_bind_t
16780 65 78 74 20 20 53 54 4d 54 20 4e 20 53 54 52 49 ext STMT N STRI
16790 4e 47 20 42 59 54 45 53 0a 2a 2a 0a 2a 2a 20 54 NG BYTES.**.** T
167a0 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f est the sqlite3_
167b0 62 69 6e 64 5f 74 65 78 74 20 69 6e 74 65 72 66 bind_text interf
167c0 61 63 65 2e 20 20 53 54 4d 54 20 69 73 20 61 20 ace. STMT is a
167d0 70 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 prepared stateme
167e0 6e 74 2e 0a 2a 2a 20 4e 20 69 73 20 74 68 65 20 nt..** N is the
167f0 69 6e 64 65 78 20 6f 66 20 61 20 77 69 6c 64 63 index of a wildc
16800 61 72 64 20 69 6e 20 74 68 65 20 70 72 65 70 61 ard in the prepa
16810 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 red statement.
16820 54 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 This command.**
16830 62 69 6e 64 73 20 61 20 55 54 46 2d 38 20 73 74 binds a UTF-8 st
16840 72 69 6e 67 20 53 54 52 49 4e 47 20 74 6f 20 74 ring STRING to t
16850 68 65 20 77 69 6c 64 63 61 72 64 2e 20 20 54 68 he wildcard. Th
16860 65 20 73 74 72 69 6e 67 20 69 73 20 42 59 54 45 e string is BYTE
16870 53 20 62 79 74 65 73 0a 2a 2a 20 6c 6f 6e 67 2e S bytes.** long.
16880 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
16890 65 73 74 5f 62 69 6e 64 5f 74 65 78 74 28 0a 20 est_bind_text(.
168a0 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
168b0 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
168c0 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
168d0 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
168e0 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
168f0 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
16900 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 *pStmt;. int id
16910 78 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 0a x;. int bytes;.
16920 20 20 63 68 61 72 20 2a 76 61 6c 75 65 3b 0a 20 char *value;.
16930 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
16940 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 objc!=5 ){. T
16950 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
16960 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
16970 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
16980 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 \"",. Tc
16990 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
169a0 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 bj(objv[0], 0),
169b0 22 20 53 54 4d 54 20 4e 20 56 41 4c 55 45 20 42 " STMT N VALUE B
169c0 59 54 45 53 22 2c 20 30 29 3b 0a 20 20 20 20 72 YTES", 0);. r
169d0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
169e0 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 . }.. if( getS
169f0 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tmtPointer(inter
16a00 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
16a10 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d (objv[1]), &pStm
16a20 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f t) ) return TCL_
16a30 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c ERROR;. if( Tcl
16a40 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
16a50 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 nterp, objv[2],
16a60 26 69 64 78 29 20 29 20 72 65 74 75 72 6e 20 54 &idx) ) return T
16a70 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 76 61 6c 75 CL_ERROR;. valu
16a80 65 20 3d 20 28 63 68 61 72 2a 29 54 63 6c 5f 47 e = (char*)Tcl_G
16a90 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f etByteArrayFromO
16aa0 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 62 79 74 bj(objv[3], &byt
16ab0 65 73 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 es);. if( Tcl_G
16ac0 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
16ad0 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 62 erp, objv[4], &b
16ae0 79 74 65 73 29 20 29 20 72 65 74 75 72 6e 20 54 ytes) ) return T
16af0 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 CL_ERROR;.. rc
16b00 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 = sqlite3_bind_t
16b10 65 78 74 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 ext(pStmt, idx,
16b20 76 61 6c 75 65 2c 20 62 79 74 65 73 2c 20 53 51 value, bytes, SQ
16b30 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b LITE_TRANSIENT);
16b40 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 . if( sqlite3Te
16b50 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 stErrCode(interp
16b60 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 74 6d 74 , StmtToDb(pStmt
16b70 29 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e 20 ), rc) ) return
16b80 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
16b90 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc!=SQLITE_OK )
16ba0 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
16bb0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 Result(interp, s
16bc0 71 6c 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e qlite3TestErrorN
16bd0 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 ame(rc), 0);.
16be0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
16bf0 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e R;. }.. return
16c00 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
16c10 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 * Usage: sqlit
16c20 65 33 5f 62 69 6e 64 5f 74 65 78 74 31 36 20 3f e3_bind_text16 ?
16c30 2d 73 74 61 74 69 63 3f 20 53 54 4d 54 20 4e 20 -static? STMT N
16c40 53 54 52 49 4e 47 20 42 59 54 45 53 0a 2a 2a 0a STRING BYTES.**.
16c50 2a 2a 20 54 65 73 74 20 74 68 65 20 73 71 6c 69 ** Test the sqli
16c60 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 31 36 20 te3_bind_text16
16c70 69 6e 74 65 72 66 61 63 65 2e 20 20 53 54 4d 54 interface. STMT
16c80 20 69 73 20 61 20 70 72 65 70 61 72 65 64 20 73 is a prepared s
16c90 74 61 74 65 6d 65 6e 74 2e 0a 2a 2a 20 4e 20 69 tatement..** N i
16ca0 73 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 61 s the index of a
16cb0 20 77 69 6c 64 63 61 72 64 20 69 6e 20 74 68 65 wildcard in the
16cc0 20 70 72 65 70 61 72 65 64 20 73 74 61 74 65 6d prepared statem
16cd0 65 6e 74 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 ent. This comma
16ce0 6e 64 0a 2a 2a 20 62 69 6e 64 73 20 61 20 55 54 nd.** binds a UT
16cf0 46 2d 31 36 20 73 74 72 69 6e 67 20 53 54 52 49 F-16 string STRI
16d00 4e 47 20 74 6f 20 74 68 65 20 77 69 6c 64 63 61 NG to the wildca
16d10 72 64 2e 20 20 54 68 65 20 73 74 72 69 6e 67 20 rd. The string
16d20 69 73 20 42 59 54 45 53 20 62 79 74 65 73 0a 2a is BYTES bytes.*
16d30 2a 20 6c 6f 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 * long..*/.stati
16d40 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f c int test_bind_
16d50 74 65 78 74 31 36 28 0a 20 20 76 6f 69 64 20 2a text16(. void *
16d60 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
16d70 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
16d80 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
16d90 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
16da0 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 objv[].){.#ifnde
16db0 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 f SQLITE_OMIT_UT
16dc0 46 31 36 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 F16. sqlite3_st
16dd0 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 mt *pStmt;. int
16de0 20 69 64 78 3b 0a 20 20 69 6e 74 20 62 79 74 65 idx;. int byte
16df0 73 3b 0a 20 20 63 68 61 72 20 2a 76 61 6c 75 65 s;. char *value
16e00 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 76 ;. int rc;.. v
16e10 6f 69 64 20 28 2a 78 44 65 6c 29 28 29 20 3d 20 oid (*xDel)() =
16e20 28 6f 62 6a 63 3d 3d 36 3f 53 51 4c 49 54 45 5f (objc==6?SQLITE_
16e30 53 54 41 54 49 43 3a 53 51 4c 49 54 45 5f 54 52 STATIC:SQLITE_TR
16e40 41 4e 53 49 45 4e 54 29 3b 0a 20 20 54 63 6c 5f ANSIENT);. Tcl_
16e50 4f 62 6a 20 2a 6f 53 74 6d 74 20 20 20 20 3d 20 Obj *oStmt =
16e60 6f 62 6a 76 5b 6f 62 6a 63 2d 34 5d 3b 0a 20 20 objv[objc-4];.
16e70 54 63 6c 5f 4f 62 6a 20 2a 6f 4e 20 20 20 20 20 Tcl_Obj *oN
16e80 20 20 3d 20 6f 62 6a 76 5b 6f 62 6a 63 2d 33 5d = objv[objc-3]
16e90 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 53 74 ;. Tcl_Obj *oSt
16ea0 72 69 6e 67 20 20 3d 20 6f 62 6a 76 5b 6f 62 6a ring = objv[obj
16eb0 63 2d 32 5d 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 c-2];. Tcl_Obj
16ec0 2a 6f 42 79 74 65 73 20 20 20 3d 20 6f 62 6a 76 *oBytes = objv
16ed0 5b 6f 62 6a 63 2d 31 5d 3b 0a 0a 20 20 69 66 28 [objc-1];.. if(
16ee0 20 6f 62 6a 63 21 3d 35 20 26 26 20 6f 62 6a 63 objc!=5 && objc
16ef0 21 3d 36 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 !=6){. Tcl_Ap
16f00 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
16f10 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
16f20 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
16f30 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
16f40 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
16f50 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 53 54 4d jv[0], 0), " STM
16f60 54 20 4e 20 56 41 4c 55 45 20 42 59 54 45 53 22 T N VALUE BYTES"
16f70 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
16f80 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
16f90 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f . if( getStmtPo
16fa0 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
16fb0 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 53 74 6d l_GetString(oStm
16fc0 74 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 t), &pStmt) ) re
16fd0 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
16fe0 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
16ff0 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
17000 6f 4e 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 oN, &idx) ) retu
17010 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
17020 76 61 6c 75 65 20 3d 20 28 63 68 61 72 2a 29 54 value = (char*)T
17030 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 cl_GetByteArrayF
17040 72 6f 6d 4f 62 6a 28 6f 53 74 72 69 6e 67 2c 20 romObj(oString,
17050 30 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 0);. if( Tcl_Ge
17060 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
17070 72 70 2c 20 6f 42 79 74 65 73 2c 20 26 62 79 74 rp, oBytes, &byt
17080 65 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c es) ) return TCL
17090 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 _ERROR;.. rc =
170a0 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 sqlite3_bind_tex
170b0 74 31 36 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 t16(pStmt, idx,
170c0 28 76 6f 69 64 20 2a 29 76 61 6c 75 65 2c 20 62 (void *)value, b
170d0 79 74 65 73 2c 20 78 44 65 6c 29 3b 0a 20 20 69 ytes, xDel);. i
170e0 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 45 72 f( sqlite3TestEr
170f0 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 53 74 rCode(interp, St
17100 6d 74 54 6f 44 62 28 70 53 74 6d 74 29 2c 20 72 mtToDb(pStmt), r
17110 63 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f c) ) return TCL_
17120 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 72 63 21 ERROR;. if( rc!
17130 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 =SQLITE_OK ){.
17140 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
17150 6c 74 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 74 lt(interp, sqlit
17160 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 e3TestErrorName(
17170 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 rc), 0);. ret
17180 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
17190 20 7d 0a 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 }..#endif /* SQ
171a0 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 LITE_OMIT_UTF16
171b0 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f */. return TCL_
171c0 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
171d0 67 65 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 ge: sqlite3_bi
171e0 6e 64 5f 62 6c 6f 62 20 3f 2d 73 74 61 74 69 63 nd_blob ?-static
171f0 3f 20 53 54 4d 54 20 4e 20 44 41 54 41 20 42 59 ? STMT N DATA BY
17200 54 45 53 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 TES.**.** Test t
17210 68 65 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f he sqlite3_bind_
17220 62 6c 6f 62 20 69 6e 74 65 72 66 61 63 65 2e 20 blob interface.
17230 20 53 54 4d 54 20 69 73 20 61 20 70 72 65 70 61 STMT is a prepa
17240 72 65 64 20 73 74 61 74 65 6d 65 6e 74 2e 0a 2a red statement..*
17250 2a 20 4e 20 69 73 20 74 68 65 20 69 6e 64 65 78 * N is the index
17260 20 6f 66 20 61 20 77 69 6c 64 63 61 72 64 20 69 of a wildcard i
17270 6e 20 74 68 65 20 70 72 65 70 61 72 65 64 20 73 n the prepared s
17280 74 61 74 65 6d 65 6e 74 2e 20 20 54 68 69 73 20 tatement. This
17290 63 6f 6d 6d 61 6e 64 0a 2a 2a 20 62 69 6e 64 73 command.** binds
172a0 20 61 20 42 4c 4f 42 20 74 6f 20 74 68 65 20 77 a BLOB to the w
172b0 69 6c 64 63 61 72 64 2e 20 20 54 68 65 20 42 4c ildcard. The BL
172c0 4f 42 20 69 73 20 42 59 54 45 53 20 62 79 74 65 OB is BYTES byte
172d0 73 20 69 6e 20 73 69 7a 65 2e 0a 2a 2f 0a 73 74 s in size..*/.st
172e0 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 atic int test_bi
172f0 6e 64 5f 62 6c 6f 62 28 0a 20 20 76 6f 69 64 20 nd_blob(. void
17300 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
17310 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
17320 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
17330 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
17340 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
17350 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 ite3_stmt *pStmt
17360 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 ;. int idx;. i
17370 6e 74 20 62 79 74 65 73 3b 0a 20 20 63 68 61 72 nt bytes;. char
17380 20 2a 76 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 *value;. int r
17390 63 3b 0a 20 20 73 71 6c 69 74 65 33 5f 64 65 73 c;. sqlite3_des
173a0 74 72 75 63 74 6f 72 5f 74 79 70 65 20 78 44 65 tructor_type xDe
173b0 73 74 72 75 63 74 6f 72 20 3d 20 53 51 4c 49 54 structor = SQLIT
173c0 45 5f 54 52 41 4e 53 49 45 4e 54 3b 0a 0a 20 20 E_TRANSIENT;..
173d0 69 66 28 20 6f 62 6a 63 21 3d 35 20 26 26 20 6f if( objc!=5 && o
173e0 62 6a 63 21 3d 36 20 29 7b 0a 20 20 20 20 54 63 bjc!=6 ){. Tc
173f0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
17400 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
17410 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
17420 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c \"",. Tcl
17430 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
17440 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 j(objv[0], 0), "
17450 20 53 54 4d 54 20 4e 20 44 41 54 41 20 42 59 54 STMT N DATA BYT
17460 45 53 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 ES", 0);. ret
17470 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
17480 20 7d 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d }.. if( objc==
17490 36 20 29 7b 0a 20 20 20 20 78 44 65 73 74 72 75 6 ){. xDestru
174a0 63 74 6f 72 20 3d 20 53 51 4c 49 54 45 5f 53 54 ctor = SQLITE_ST
174b0 41 54 49 43 3b 0a 20 20 20 20 6f 62 6a 76 2b 2b ATIC;. objv++
174c0 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 ;. }.. if( get
174d0 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 StmtPointer(inte
174e0 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
174f0 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 g(objv[1]), &pSt
17500 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c mt) ) return TCL
17510 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 _ERROR;. if( Tc
17520 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
17530 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
17540 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e 20 &idx) ) return
17550 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 76 61 6c TCL_ERROR;. val
17560 75 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 ue = Tcl_GetStri
17570 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 69 ng(objv[3]);. i
17580 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
17590 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
175a0 76 5b 34 5d 2c 20 26 62 79 74 65 73 29 20 29 20 v[4], &bytes) )
175b0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
175c0 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 ;.. rc = sqlite
175d0 33 5f 62 69 6e 64 5f 62 6c 6f 62 28 70 53 74 6d 3_bind_blob(pStm
175e0 74 2c 20 69 64 78 2c 20 76 61 6c 75 65 2c 20 62 t, idx, value, b
175f0 79 74 65 73 2c 20 78 44 65 73 74 72 75 63 74 6f ytes, xDestructo
17600 72 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 r);. if( sqlite
17610 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 3TestErrCode(int
17620 65 72 70 2c 20 53 74 6d 74 54 6f 44 62 28 70 53 erp, StmtToDb(pS
17630 74 6d 74 29 2c 20 72 63 29 20 29 20 72 65 74 75 tmt), rc) ) retu
17640 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
17650 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f if( rc!=SQLITE_O
17660 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 K ){. return
17670 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
17680 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
17690 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
176a0 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f sqlite3_bind_
176b0 70 61 72 61 6d 65 74 65 72 5f 63 6f 75 6e 74 20 parameter_count
176c0 20 53 54 4d 54 0a 2a 2a 0a 2a 2a 20 52 65 74 75 STMT.**.** Retu
176d0 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 rn the number of
176e0 20 77 69 6c 64 63 61 72 64 73 20 69 6e 20 74 68 wildcards in th
176f0 65 20 67 69 76 65 6e 20 73 74 61 74 65 6d 65 6e e given statemen
17700 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 t..*/.static int
17710 20 74 65 73 74 5f 62 69 6e 64 5f 70 61 72 61 6d test_bind_param
17720 65 74 65 72 5f 63 6f 75 6e 74 28 0a 20 20 76 6f eter_count(. vo
17730 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
17740 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
17750 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
17760 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
17770 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
17780 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 sqlite3_stmt *pS
17790 74 6d 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 tmt;.. if( objc
177a0 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 !=2 ){. Tcl_W
177b0 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
177c0 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 54 rp, 1, objv, "ST
177d0 4d 54 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e MT");. return
177e0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
177f0 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
17800 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
17810 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
17820 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
17830 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
17840 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 . Tcl_SetObjRes
17850 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
17860 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 NewIntObj(sqlite
17870 33 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 3_bind_parameter
17880 5f 63 6f 75 6e 74 28 70 53 74 6d 74 29 29 29 3b _count(pStmt)));
17890 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
178a0 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
178b0 3a 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 : sqlite3_bind
178c0 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 6d 65 20 _parameter_name
178d0 20 53 54 4d 54 20 20 4e 0a 2a 2a 0a 2a 2a 20 52 STMT N.**.** R
178e0 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f eturn the name o
178f0 66 20 74 68 65 20 4e 74 68 20 77 69 6c 64 63 61 f the Nth wildca
17900 72 64 2e 20 20 54 68 65 20 66 69 72 73 74 20 77 rd. The first w
17910 69 6c 64 63 61 72 64 20 69 73 20 31 2e 0a 2a 2a ildcard is 1..**
17920 20 41 6e 20 65 6d 70 74 79 20 73 74 72 69 6e 67 An empty string
17930 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 66 20 is returned if
17940 4e 20 69 73 20 6f 75 74 20 6f 66 20 72 61 6e 67 N is out of rang
17950 65 20 6f 72 20 69 66 20 74 68 65 20 77 69 6c 64 e or if the wild
17960 63 61 72 64 0a 2a 2a 20 69 73 20 6e 61 6d 65 6c card.** is namel
17970 65 73 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ess..*/.static i
17980 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 70 61 72 nt test_bind_par
17990 61 6d 65 74 65 72 5f 6e 61 6d 65 28 0a 20 20 76 ameter_name(. v
179a0 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
179b0 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
179c0 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
179d0 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
179e0 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
179f0 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 sqlite3_stmt *p
17a00 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a Stmt;. int i;..
17a10 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b if( objc!=3 ){
17a20 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
17a30 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
17a40 20 6f 62 6a 76 2c 20 22 53 54 4d 54 20 4e 22 29 objv, "STMT N")
17a50 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
17a60 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
17a70 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 ( getStmtPointer
17a80 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
17a90 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
17aa0 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 &pStmt) ) retur
17ab0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
17ac0 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
17ad0 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
17ae0 76 5b 32 5d 2c 20 26 69 29 20 29 20 72 65 74 75 v[2], &i) ) retu
17af0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
17b00 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
17b10 28 69 6e 74 65 72 70 2c 20 0a 20 20 20 20 20 54 (interp, . T
17b20 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
17b30 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 sqlite3_bind_par
17b40 61 6d 65 74 65 72 5f 6e 61 6d 65 28 70 53 74 6d ameter_name(pStm
17b50 74 2c 69 29 2c 2d 31 29 0a 20 20 29 3b 0a 20 20 t,i),-1). );.
17b60 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
17b70 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
17b80 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 sqlite3_bind_pa
17b90 72 61 6d 65 74 65 72 5f 69 6e 64 65 78 20 20 53 rameter_index S
17ba0 54 4d 54 20 20 4e 41 4d 45 0a 2a 2a 0a 2a 2a 20 TMT NAME.**.**
17bb0 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 Return the index
17bc0 20 6f 66 20 74 68 65 20 77 69 6c 64 63 61 72 64 of the wildcard
17bd0 20 63 61 6c 6c 65 64 20 4e 41 4d 45 2e 20 20 52 called NAME. R
17be0 65 74 75 72 6e 20 30 20 69 66 20 74 68 65 72 65 eturn 0 if there
17bf0 20 69 73 0a 2a 2a 20 6e 6f 20 73 75 63 68 20 77 is.** no such w
17c00 69 6c 64 63 61 72 64 2e 0a 2a 2f 0a 73 74 61 74 ildcard..*/.stat
17c10 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 ic int test_bind
17c20 5f 70 61 72 61 6d 65 74 65 72 5f 69 6e 64 65 78 _parameter_index
17c30 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
17c40 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
17c50 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
17c60 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
17c70 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
17c80 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 .){. sqlite3_st
17c90 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 66 mt *pStmt;.. if
17ca0 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 ( objc!=3 ){.
17cb0 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
17cc0 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
17cd0 76 2c 20 22 53 54 4d 54 20 4e 41 4d 45 22 29 3b v, "STMT NAME");
17ce0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
17cf0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
17d00 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
17d10 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
17d20 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
17d30 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e &pStmt) ) return
17d40 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 TCL_ERROR;. Tc
17d50 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
17d60 6e 74 65 72 70 2c 20 0a 20 20 20 20 20 54 63 6c nterp, . Tcl
17d70 5f 4e 65 77 49 6e 74 4f 62 6a 28 0a 20 20 20 20 _NewIntObj(.
17d80 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f sqlite3_bind_
17d90 70 61 72 61 6d 65 74 65 72 5f 69 6e 64 65 78 28 parameter_index(
17da0 70 53 74 6d 74 2c 54 63 6c 5f 47 65 74 53 74 72 pStmt,Tcl_GetStr
17db0 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 29 0a 20 20 ing(objv[2])).
17dc0 20 20 20 29 0a 20 20 29 3b 0a 20 20 72 65 74 75 ). );. retu
17dd0 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
17de0 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c .** Usage: sql
17df0 69 74 65 33 5f 63 6c 65 61 72 5f 62 69 6e 64 69 ite3_clear_bindi
17e00 6e 67 73 20 53 54 4d 54 0a 2a 2a 0a 2a 2f 0a 73 ngs STMT.**.*/.s
17e10 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 tatic int test_c
17e20 6c 65 61 72 5f 62 69 6e 64 69 6e 67 73 28 0a 20 lear_bindings(.
17e30 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
17e40 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
17e50 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
17e60 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
17e70 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
17e80 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
17e90 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 66 28 20 6f *pStmt;.. if( o
17ea0 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 bjc!=2 ){. Tc
17eb0 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
17ec0 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
17ed0 22 53 54 4d 54 22 29 3b 0a 20 20 20 20 72 65 74 "STMT");. ret
17ee0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
17ef0 20 7d 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 }. if( getStmt
17f00 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
17f10 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
17f20 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 jv[1]), &pStmt)
17f30 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
17f40 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a OR;. Tcl_SetObj
17f50 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
17f60 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c cl_NewIntObj(sql
17f70 69 74 65 33 5f 63 6c 65 61 72 5f 62 69 6e 64 69 ite3_clear_bindi
17f80 6e 67 73 28 70 53 74 6d 74 29 29 29 3b 0a 20 20 ngs(pStmt)));.
17f90 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
17fa0 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
17fb0 20 73 71 6c 69 74 65 33 5f 73 6c 65 65 70 20 4d sqlite3_sleep M
17fc0 49 4c 4c 49 53 45 43 4f 4e 44 53 0a 2a 2f 0a 73 ILLISECONDS.*/.s
17fd0 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 tatic int test_s
17fe0 6c 65 65 70 28 0a 20 20 76 6f 69 64 20 2a 20 63 leep(. void * c
17ff0 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
18000 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
18010 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
18020 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
18030 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 6d 73 jv[].){. int ms
18040 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 ;.. if( objc!=2
18050 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e ){. Tcl_Wron
18060 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
18070 20 31 2c 20 6f 62 6a 76 2c 20 22 4d 49 4c 4c 49 1, objv, "MILLI
18080 53 45 43 4f 4e 44 53 22 29 3b 0a 20 20 20 20 72 SECONDS");. r
18090 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
180a0 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 . }. if( Tcl_G
180b0 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
180c0 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 6d erp, objv[1], &m
180d0 73 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e s) ){. return
180e0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
180f0 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
18100 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e lt(interp, Tcl_N
18110 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 ewIntObj(sqlite3
18120 5f 73 6c 65 65 70 28 6d 73 29 29 29 3b 0a 20 20 _sleep(ms)));.
18130 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
18140 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 ../*.** Usage: s
18150 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f qlite3_extended_
18160 65 72 72 63 6f 64 65 20 44 42 0a 2a 2a 0a 2a 2a errcode DB.**.**
18170 20 52 65 74 75 72 6e 20 74 68 65 20 73 74 72 69 Return the stri
18180 6e 67 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f ng representatio
18190 6e 20 6f 66 20 74 68 65 20 6d 6f 73 74 20 72 65 n of the most re
181a0 63 65 6e 74 20 73 71 6c 69 74 65 33 5f 2a 20 41 cent sqlite3_* A
181b0 50 49 0a 2a 2a 20 65 72 72 6f 72 20 63 6f 64 65 PI.** error code
181c0 2e 20 65 2e 67 2e 20 22 53 51 4c 49 54 45 5f 45 . e.g. "SQLITE_E
181d0 52 52 4f 52 22 2e 0a 2a 2f 0a 73 74 61 74 69 63 RROR"..*/.static
181e0 20 69 6e 74 20 74 65 73 74 5f 65 78 5f 65 72 72 int test_ex_err
181f0 63 6f 64 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 code(. void * c
18200 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
18210 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
18220 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
18230 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
18240 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
18250 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 3 *db;. int rc;
18260 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 .. if( objc!=2
18270 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
18280 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
18290 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
182a0 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 hould be \"", .
182b0 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
182c0 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 ing(objv[0]), "
182d0 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 DB", 0);. ret
182e0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
182f0 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
18300 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
18310 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
18320 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 [1]), &db) ) ret
18330 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
18340 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 65 78 rc = sqlite3_ex
18350 74 65 6e 64 65 64 5f 65 72 72 63 6f 64 65 28 64 tended_errcode(d
18360 62 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 b);. Tcl_Append
18370 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 Result(interp, (
18380 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e 61 char *)t1ErrorNa
18390 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 65 me(rc), 0);. re
183a0 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
183b0 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
183c0 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 20 44 42 lite3_errcode DB
183d0 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 .**.** Return th
183e0 65 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 e string represe
183f0 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6d ntation of the m
18400 6f 73 74 20 72 65 63 65 6e 74 20 73 71 6c 69 74 ost recent sqlit
18410 65 33 5f 2a 20 41 50 49 0a 2a 2a 20 65 72 72 6f e3_* API.** erro
18420 72 20 63 6f 64 65 2e 20 65 2e 67 2e 20 22 53 51 r code. e.g. "SQ
18430 4c 49 54 45 5f 45 52 52 4f 52 22 2e 0a 2a 2f 0a LITE_ERROR"..*/.
18440 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
18450 65 72 72 63 6f 64 65 28 0a 20 20 76 6f 69 64 20 errcode(. void
18460 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
18470 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
18480 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
18490 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
184a0 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
184b0 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 ite3 *db;. int
184c0 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 rc;.. if( objc!
184d0 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
184e0 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
184f0 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
18500 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
18510 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
18520 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
18530 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 " DB", 0);.
18540 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
18550 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 ;. }. if( getD
18560 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c bPointer(interp,
18570 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
18580 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 bjv[1]), &db) )
18590 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
185a0 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
185b0 5f 65 72 72 63 6f 64 65 28 64 62 29 3b 0a 20 20 _errcode(db);.
185c0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
185d0 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a (interp, (char *
185e0 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 )t1ErrorName(rc)
185f0 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 , 0);. return T
18600 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
18610 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
18620 5f 65 72 72 6d 73 67 20 44 42 0a 2a 2a 0a 2a 2a _errmsg DB.**.**
18630 20 52 65 74 75 72 6e 73 20 74 68 65 20 55 54 46 Returns the UTF
18640 2d 38 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f -8 representatio
18650 6e 20 6f 66 20 74 68 65 20 65 72 72 6f 72 20 6d n of the error m
18660 65 73 73 61 67 65 20 73 74 72 69 6e 67 20 66 6f essage string fo
18670 72 20 74 68 65 0a 2a 2a 20 6d 6f 73 74 20 72 65 r the.** most re
18680 63 65 6e 74 20 73 71 6c 69 74 65 33 5f 2a 20 41 cent sqlite3_* A
18690 50 49 20 63 61 6c 6c 2e 0a 2a 2f 0a 73 74 61 74 PI call..*/.stat
186a0 69 63 20 69 6e 74 20 74 65 73 74 5f 65 72 72 6d ic int test_errm
186b0 73 67 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 sg(. void * cli
186c0 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
186d0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
186e0 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
186f0 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
18700 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 [].){. sqlite3
18710 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 *db;. const cha
18720 72 20 2a 7a 45 72 72 3b 0a 0a 20 20 69 66 28 20 r *zErr;.. if(
18730 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
18740 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
18750 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
18760 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
18770 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 \"", . Tc
18780 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
18790 5b 30 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 3b [0]), " DB", 0);
187a0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
187b0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
187c0 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
187d0 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
187e0 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 ing(objv[1]), &d
187f0 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
18800 45 52 52 4f 52 3b 0a 0a 20 20 7a 45 72 72 20 3d ERROR;.. zErr =
18810 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 sqlite3_errmsg(
18820 64 62 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 db);. Tcl_SetOb
18830 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
18840 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
18850 28 7a 45 72 72 2c 20 2d 31 29 29 3b 0a 20 20 72 (zErr, -1));. r
18860 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
18870 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 ./*.** Usage:
18880 74 65 73 74 5f 65 72 72 6d 73 67 31 36 20 44 42 test_errmsg16 DB
18890 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 20 74 .**.** Returns t
188a0 68 65 20 55 54 46 2d 31 36 20 72 65 70 72 65 73 he UTF-16 repres
188b0 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 entation of the
188c0 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 73 74 error message st
188d0 72 69 6e 67 20 66 6f 72 20 74 68 65 0a 2a 2a 20 ring for the.**
188e0 6d 6f 73 74 20 72 65 63 65 6e 74 20 73 71 6c 69 most recent sqli
188f0 74 65 33 5f 2a 20 41 50 49 20 63 61 6c 6c 2e 20 te3_* API call.
18900 54 68 69 73 20 69 73 20 61 20 62 79 74 65 20 61 This is a byte a
18910 72 72 61 79 20 6f 62 6a 65 63 74 20 61 74 20 74 rray object at t
18920 68 65 20 54 43 4c 20 0a 2a 2a 20 6c 65 76 65 6c he TCL .** level
18930 2c 20 61 6e 64 20 69 74 20 69 6e 63 6c 75 64 65 , and it include
18940 73 20 74 68 65 20 30 78 30 30 20 30 78 30 30 20 s the 0x00 0x00
18950 74 65 72 6d 69 6e 61 74 6f 72 20 62 79 74 65 73 terminator bytes
18960 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 at the end of t
18970 68 65 0a 2a 2a 20 55 54 46 2d 31 36 20 73 74 72 he.** UTF-16 str
18980 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ing..*/.static i
18990 6e 74 20 74 65 73 74 5f 65 72 72 6d 73 67 31 36 nt test_errmsg16
189a0 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
189b0 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
189c0 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
189d0 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
189e0 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
189f0 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 .){.#ifndef SQLI
18a00 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 TE_OMIT_UTF16.
18a10 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 sqlite3 *db;. c
18a20 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 45 72 72 3b onst void *zErr;
18a30 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
18a40 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 20 3d 20 ;. int bytes =
18a50 30 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 0;.. if( objc!=
18a60 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
18a70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
18a80 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
18a90 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
18aa0 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 . Tcl_GetS
18ab0 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 tring(objv[0]),
18ac0 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 " DB", 0);. r
18ad0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
18ae0 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
18af0 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
18b00 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
18b10 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 jv[1]), &db) ) r
18b20 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
18b30 0a 0a 20 20 7a 45 72 72 20 3d 20 73 71 6c 69 74 .. zErr = sqlit
18b40 65 33 5f 65 72 72 6d 73 67 31 36 28 64 62 29 3b e3_errmsg16(db);
18b50 0a 20 20 69 66 28 20 7a 45 72 72 20 29 7b 0a 20 . if( zErr ){.
18b60 20 20 20 7a 20 3d 20 7a 45 72 72 3b 0a 20 20 20 z = zErr;.
18b70 20 66 6f 72 28 62 79 74 65 73 3d 30 3b 20 7a 5b for(bytes=0; z[
18b80 62 79 74 65 73 5d 20 7c 7c 20 7a 5b 62 79 74 65 bytes] || z[byte
18b90 73 2b 31 5d 3b 20 62 79 74 65 73 2b 3d 32 29 7b s+1]; bytes+=2){
18ba0 7d 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f }. }. Tcl_SetO
18bb0 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
18bc0 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 Tcl_NewByteArra
18bd0 79 4f 62 6a 28 7a 45 72 72 2c 20 62 79 74 65 73 yObj(zErr, bytes
18be0 29 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 ));.#endif /* SQ
18bf0 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 LITE_OMIT_UTF16
18c00 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f */. return TCL_
18c10 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
18c20 67 65 3a 20 73 71 6c 69 74 65 33 5f 70 72 65 70 ge: sqlite3_prep
18c30 61 72 65 20 44 42 20 73 71 6c 20 62 79 74 65 73 are DB sql bytes
18c40 20 3f 74 61 69 6c 76 61 72 3f 0a 2a 2a 0a 2a 2a ?tailvar?.**.**
18c50 20 43 6f 6d 70 69 6c 65 20 75 70 20 74 6f 20 3c Compile up to <
18c60 62 79 74 65 73 3e 20 62 79 74 65 73 20 6f 66 20 bytes> bytes of
18c70 74 68 65 20 73 75 70 70 6c 69 65 64 20 53 51 4c the supplied SQL
18c80 20 73 74 72 69 6e 67 20 3c 73 71 6c 3e 20 75 73 string <sql> us
18c90 69 6e 67 0a 2a 2a 20 64 61 74 61 62 61 73 65 20 ing.** database
18ca0 68 61 6e 64 6c 65 20 3c 44 42 3e 2e 20 54 68 65 handle <DB>. The
18cb0 20 70 61 72 61 6d 65 74 65 72 20 3c 74 61 69 6c parameter <tail
18cc0 76 61 6c 3e 20 69 73 20 74 68 65 20 6e 61 6d 65 val> is the name
18cd0 20 6f 66 20 61 20 67 6c 6f 62 61 6c 0a 2a 2a 20 of a global.**
18ce0 76 61 72 69 61 62 6c 65 20 74 68 61 74 20 69 73 variable that is
18cf0 20 73 65 74 20 74 6f 20 74 68 65 20 75 6e 75 73 set to the unus
18d00 65 64 20 70 6f 72 74 69 6f 6e 20 6f 66 20 3c 73 ed portion of <s
18d10 71 6c 3e 20 28 69 66 20 61 6e 79 29 2e 20 41 0a ql> (if any). A.
18d20 2a 2a 20 53 54 4d 54 20 68 61 6e 64 6c 65 20 69 ** STMT handle i
18d30 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2f 0a 73 s returned..*/.s
18d40 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 70 tatic int test_p
18d50 72 65 70 61 72 65 28 0a 20 20 76 6f 69 64 20 2a repare(. void *
18d60 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
18d70 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
18d80 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
18d90 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
18da0 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
18db0 74 65 33 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 te3 *db;. const
18dc0 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 20 69 char *zSql;. i
18dd0 6e 74 20 62 79 74 65 73 3b 0a 20 20 63 6f 6e 73 nt bytes;. cons
18de0 74 20 63 68 61 72 20 2a 7a 54 61 69 6c 20 3d 20 t char *zTail =
18df0 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 0;. sqlite3_stm
18e00 74 20 2a 70 53 74 6d 74 20 3d 20 30 3b 0a 20 20 t *pStmt = 0;.
18e10 63 68 61 72 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 char zBuf[50];.
18e20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
18e30 6f 62 6a 63 21 3d 35 20 26 26 20 6f 62 6a 63 21 objc!=5 && objc!
18e40 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =4 ){. Tcl_Ap
18e50 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
18e60 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
18e70 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
18e80 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
18e90 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
18ea0 20 22 20 44 42 20 73 71 6c 20 62 79 74 65 73 20 " DB sql bytes
18eb0 3f 74 61 69 6c 76 61 72 3f 22 2c 20 30 29 3b 0a ?tailvar?", 0);.
18ec0 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
18ed0 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
18ee0 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
18ef0 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
18f00 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
18f10 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
18f20 52 52 4f 52 3b 0a 20 20 7a 53 71 6c 20 3d 20 54 RROR;. zSql = T
18f30 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
18f40 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20 54 63 6c v[2]);. if( Tcl
18f50 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
18f60 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 nterp, objv[3],
18f70 26 62 79 74 65 73 29 20 29 20 72 65 74 75 72 6e &bytes) ) return
18f80 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 TCL_ERROR;.. r
18f90 63 20 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 70 c = sqlite3_prep
18fa0 61 72 65 28 64 62 2c 20 7a 53 71 6c 2c 20 62 79 are(db, zSql, by
18fb0 74 65 73 2c 20 26 70 53 74 6d 74 2c 20 6f 62 6a tes, &pStmt, obj
18fc0 63 3e 3d 35 20 3f 20 26 7a 54 61 69 6c 20 3a 20 c>=5 ? &zTail :
18fd0 30 29 3b 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 0);. Tcl_ResetR
18fe0 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 esult(interp);.
18ff0 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
19000 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
19010 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e db, rc) ) return
19020 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
19030 28 20 7a 54 61 69 6c 20 26 26 20 6f 62 6a 63 3e ( zTail && objc>
19040 3d 35 20 29 7b 0a 20 20 20 20 69 66 28 20 62 79 =5 ){. if( by
19050 74 65 73 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 tes>=0 ){.
19060 62 79 74 65 73 20 3d 20 62 79 74 65 73 20 2d 20 bytes = bytes -
19070 28 7a 54 61 69 6c 2d 7a 53 71 6c 29 3b 0a 20 20 (zTail-zSql);.
19080 20 20 7d 0a 20 20 20 20 69 66 28 20 73 74 72 6c }. if( strl
19090 65 6e 28 7a 54 61 69 6c 29 3c 62 79 74 65 73 20 en(zTail)<bytes
190a0 29 7b 0a 20 20 20 20 20 20 62 79 74 65 73 20 3d ){. bytes =
190b0 20 73 74 72 6c 65 6e 28 7a 54 61 69 6c 29 3b 0a strlen(zTail);.
190c0 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 4f 62 }. Tcl_Ob
190d0 6a 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c jSetVar2(interp,
190e0 20 6f 62 6a 76 5b 34 5d 2c 20 30 2c 20 54 63 6c objv[4], 0, Tcl
190f0 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 54 _NewStringObj(zT
19100 61 69 6c 2c 20 62 79 74 65 73 29 2c 20 30 29 3b ail, bytes), 0);
19110 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 21 3d 53 . }. if( rc!=S
19120 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 QLITE_OK ){.
19130 61 73 73 65 72 74 28 20 70 53 74 6d 74 3d 3d 30 assert( pStmt==0
19140 20 29 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 );. sprintf(
19150 7a 42 75 66 2c 20 22 28 25 64 29 20 22 2c 20 72 zBuf, "(%d) ", r
19160 63 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 c);. Tcl_Appe
19170 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
19180 20 7a 42 75 66 2c 20 73 71 6c 69 74 65 33 5f 65 zBuf, sqlite3_e
19190 72 72 6d 73 67 28 64 62 29 2c 20 30 29 3b 0a 20 rrmsg(db), 0);.
191a0 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
191b0 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
191c0 70 53 74 6d 74 20 29 7b 0a 20 20 20 20 69 66 28 pStmt ){. if(
191d0 20 73 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 sqlite3TestMake
191e0 50 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 PointerStr(inter
191f0 70 2c 20 7a 42 75 66 2c 20 70 53 74 6d 74 29 20 p, zBuf, pStmt)
19200 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
19210 4f 52 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 OR;. Tcl_Appe
19220 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
19230 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 7d 0a 20 zBuf, 0);. }.
19240 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
19250 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
19260 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 5f sqlite3_prepare_
19270 76 32 20 44 42 20 73 71 6c 20 62 79 74 65 73 20 v2 DB sql bytes
19280 3f 74 61 69 6c 76 61 72 3f 0a 2a 2a 0a 2a 2a 20 ?tailvar?.**.**
19290 43 6f 6d 70 69 6c 65 20 75 70 20 74 6f 20 3c 62 Compile up to <b
192a0 79 74 65 73 3e 20 62 79 74 65 73 20 6f 66 20 74 ytes> bytes of t
192b0 68 65 20 73 75 70 70 6c 69 65 64 20 53 51 4c 20 he supplied SQL
192c0 73 74 72 69 6e 67 20 3c 73 71 6c 3e 20 75 73 69 string <sql> usi
192d0 6e 67 0a 2a 2a 20 64 61 74 61 62 61 73 65 20 68 ng.** database h
192e0 61 6e 64 6c 65 20 3c 44 42 3e 2e 20 54 68 65 20 andle <DB>. The
192f0 70 61 72 61 6d 65 74 65 72 20 3c 74 61 69 6c 76 parameter <tailv
19300 61 6c 3e 20 69 73 20 74 68 65 20 6e 61 6d 65 20 al> is the name
19310 6f 66 20 61 20 67 6c 6f 62 61 6c 0a 2a 2a 20 76 of a global.** v
19320 61 72 69 61 62 6c 65 20 74 68 61 74 20 69 73 20 ariable that is
19330 73 65 74 20 74 6f 20 74 68 65 20 75 6e 75 73 65 set to the unuse
19340 64 20 70 6f 72 74 69 6f 6e 20 6f 66 20 3c 73 71 d portion of <sq
19350 6c 3e 20 28 69 66 20 61 6e 79 29 2e 20 41 0a 2a l> (if any). A.*
19360 2a 20 53 54 4d 54 20 68 61 6e 64 6c 65 20 69 73 * STMT handle is
19370 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 returned..*/.st
19380 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 70 72 atic int test_pr
19390 65 70 61 72 65 5f 76 32 28 0a 20 20 76 6f 69 64 epare_v2(. void
193a0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
193b0 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
193c0 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
193d0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
193e0 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
193f0 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 6f 6e lite3 *db;. con
19400 73 74 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 st char *zSql;.
19410 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 20 63 6f int bytes;. co
19420 6e 73 74 20 63 68 61 72 20 2a 7a 54 61 69 6c 20 nst char *zTail
19430 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 = 0;. sqlite3_s
19440 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 30 3b 0a tmt *pStmt = 0;.
19450 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 5d 3b char zBuf[50];
19460 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 . int rc;.. if
19470 28 20 6f 62 6a 63 21 3d 35 20 26 26 20 6f 62 6a ( objc!=5 && obj
19480 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=4 ){. Tcl_
19490 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
194a0 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
194b0 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
194c0 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 ", . Tcl_G
194d0 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d etString(objv[0]
194e0 29 2c 20 22 20 44 42 20 73 71 6c 20 62 79 74 65 ), " DB sql byte
194f0 73 20 74 61 69 6c 76 61 72 22 2c 20 30 29 3b 0a s tailvar", 0);.
19500 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
19510 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
19520 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
19530 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
19540 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
19550 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
19560 52 52 4f 52 3b 0a 20 20 7a 53 71 6c 20 3d 20 54 RROR;. zSql = T
19570 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
19580 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20 54 63 6c v[2]);. if( Tcl
19590 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
195a0 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 nterp, objv[3],
195b0 26 62 79 74 65 73 29 20 29 20 72 65 74 75 72 6e &bytes) ) return
195c0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 TCL_ERROR;.. r
195d0 63 20 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 70 c = sqlite3_prep
195e0 61 72 65 5f 76 32 28 64 62 2c 20 7a 53 71 6c 2c are_v2(db, zSql,
195f0 20 62 79 74 65 73 2c 20 26 70 53 74 6d 74 2c 20 bytes, &pStmt,
19600 6f 62 6a 63 3e 3d 35 20 3f 20 26 7a 54 61 69 6c objc>=5 ? &zTail
19610 20 3a 20 30 29 3b 0a 20 20 61 73 73 65 72 74 28 : 0);. assert(
19620 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 7c 7c rc==SQLITE_OK ||
19630 20 70 53 74 6d 74 3d 3d 30 29 3b 0a 20 20 54 63 pStmt==0);. Tc
19640 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
19650 74 65 72 70 29 3b 0a 20 20 69 66 28 20 73 71 6c terp);. if( sql
19660 69 74 65 33 54 65 73 74 45 72 72 43 6f 64 65 28 ite3TestErrCode(
19670 69 6e 74 65 72 70 2c 20 64 62 2c 20 72 63 29 20 interp, db, rc)
19680 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
19690 4f 52 3b 0a 20 20 69 66 28 20 7a 54 61 69 6c 20 OR;. if( zTail
196a0 26 26 20 6f 62 6a 63 3e 3d 35 20 29 7b 0a 20 20 && objc>=5 ){.
196b0 20 20 69 66 28 20 62 79 74 65 73 3e 3d 30 20 29 if( bytes>=0 )
196c0 7b 0a 20 20 20 20 20 20 62 79 74 65 73 20 3d 20 {. bytes =
196d0 62 79 74 65 73 20 2d 20 28 7a 54 61 69 6c 2d 7a bytes - (zTail-z
196e0 53 71 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 Sql);. }.
196f0 54 63 6c 5f 4f 62 6a 53 65 74 56 61 72 32 28 69 Tcl_ObjSetVar2(i
19700 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 nterp, objv[4],
19710 30 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 0, Tcl_NewString
19720 4f 62 6a 28 7a 54 61 69 6c 2c 20 62 79 74 65 73 Obj(zTail, bytes
19730 29 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28 ), 0);. }. if(
19740 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc!=SQLITE_OK )
19750 7b 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 53 {. assert( pS
19760 74 6d 74 3d 3d 30 20 29 3b 0a 20 20 20 20 73 70 tmt==0 );. sp
19770 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 28 25 64 rintf(zBuf, "(%d
19780 29 20 22 2c 20 72 63 29 3b 0a 20 20 20 20 54 63 ) ", rc);. Tc
19790 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
197a0 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 73 71 6c nterp, zBuf, sql
197b0 69 74 65 33 5f 65 72 72 6d 73 67 28 64 62 29 2c ite3_errmsg(db),
197c0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
197d0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
197e0 20 20 69 66 28 20 70 53 74 6d 74 20 29 7b 0a 20 if( pStmt ){.
197f0 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 if( sqlite3Te
19800 73 74 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 stMakePointerStr
19810 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 70 (interp, zBuf, p
19820 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 Stmt) ) return T
19830 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 54 63 CL_ERROR;. Tc
19840 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
19850 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b nterp, zBuf, 0);
19860 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 . }. return TC
19870 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
19880 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 70 72 sage: sqlite3_pr
19890 65 70 61 72 65 5f 74 6b 74 33 31 33 34 20 44 42 epare_tkt3134 DB
198a0 0a 2a 2a 0a 2a 2a 20 47 65 6e 65 72 61 74 65 20 .**.** Generate
198b0 61 20 70 72 65 70 61 72 65 64 20 73 74 61 74 65 a prepared state
198c0 6d 65 6e 74 20 66 6f 72 20 61 20 7a 65 72 6f 2d ment for a zero-
198d0 62 79 74 65 20 73 74 72 69 6e 67 20 61 73 20 61 byte string as a
198e0 20 74 65 73 74 0a 2a 2a 20 66 6f 72 20 74 69 63 test.** for tic
198f0 6b 65 74 20 23 33 31 33 34 2e 20 20 54 68 65 20 ket #3134. The
19900 73 74 72 69 6e 67 20 73 68 6f 75 6c 64 20 62 65 string should be
19910 20 70 72 65 63 65 65 64 65 64 20 62 79 20 61 20 preceeded by a
19920 7a 65 72 6f 20 62 79 74 65 2e 0a 2a 2f 0a 73 74 zero byte..*/.st
19930 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 70 72 atic int test_pr
19940 65 70 61 72 65 5f 74 6b 74 33 31 33 34 28 0a 20 epare_tkt3134(.
19950 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
19960 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
19970 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
19980 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
19990 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
199a0 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
199b0 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 static const c
199c0 68 61 72 20 7a 53 71 6c 5b 5d 20 3d 20 22 5c 30 har zSql[] = "\0
199d0 30 30 53 45 4c 45 43 54 20 31 22 3b 0a 20 20 73 00SELECT 1";. s
199e0 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
199f0 6d 74 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a mt = 0;. char z
19a00 42 75 66 5b 35 30 5d 3b 0a 20 20 69 6e 74 20 72 Buf[50];. int r
19a10 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d c;.. if( objc!=
19a20 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 2 ){. Tcl_App
19a30 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
19a40 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
19a50 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
19a60 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 . Tcl_GetS
19a70 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 tring(objv[0]),
19a80 22 20 44 42 20 73 71 6c 20 62 79 74 65 73 20 74 " DB sql bytes t
19a90 61 69 6c 76 61 72 22 2c 20 30 29 3b 0a 20 20 20 ailvar", 0);.
19aa0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
19ab0 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
19ac0 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
19ad0 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
19ae0 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 objv[1]), &db) )
19af0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
19b00 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 R;. rc = sqlite
19b10 33 5f 70 72 65 70 61 72 65 5f 76 32 28 64 62 2c 3_prepare_v2(db,
19b20 20 26 7a 53 71 6c 5b 31 5d 2c 20 30 2c 20 26 70 &zSql[1], 0, &p
19b30 53 74 6d 74 2c 20 30 29 3b 0a 20 20 61 73 73 65 Stmt, 0);. asse
19b40 72 74 28 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b rt(rc==SQLITE_OK
19b50 20 7c 7c 20 70 53 74 6d 74 3d 3d 30 29 3b 0a 20 || pStmt==0);.
19b60 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 73 74 if( sqlite3Test
19b70 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 ErrCode(interp,
19b80 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 72 6e db, rc) ) return
19b90 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
19ba0 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc!=SQLITE_OK
19bb0 29 7b 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 ){. assert( p
19bc0 53 74 6d 74 3d 3d 30 20 29 3b 0a 20 20 20 20 73 Stmt==0 );. s
19bd0 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 28 25 printf(zBuf, "(%
19be0 64 29 20 22 2c 20 72 63 29 3b 0a 20 20 20 20 54 d) ", rc);. T
19bf0 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
19c00 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 73 71 interp, zBuf, sq
19c10 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 64 62 29 lite3_errmsg(db)
19c20 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
19c30 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
19c40 0a 20 20 69 66 28 20 70 53 74 6d 74 20 29 7b 0a . if( pStmt ){.
19c50 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 if( sqlite3T
19c60 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 estMakePointerSt
19c70 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 r(interp, zBuf,
19c80 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
19c90 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 54 TCL_ERROR;. T
19ca0 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
19cb0 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 interp, zBuf, 0)
19cc0 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 ;. }. return T
19cd0 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
19ce0 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 70 Usage: sqlite3_p
19cf0 72 65 70 61 72 65 31 36 20 44 42 20 73 71 6c 20 repare16 DB sql
19d00 62 79 74 65 73 20 74 61 69 6c 76 61 72 0a 2a 2a bytes tailvar.**
19d10 0a 2a 2a 20 43 6f 6d 70 69 6c 65 20 75 70 20 74 .** Compile up t
19d20 6f 20 3c 62 79 74 65 73 3e 20 62 79 74 65 73 20 o <bytes> bytes
19d30 6f 66 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 of the supplied
19d40 53 51 4c 20 73 74 72 69 6e 67 20 3c 73 71 6c 3e SQL string <sql>
19d50 20 75 73 69 6e 67 0a 2a 2a 20 64 61 74 61 62 61 using.** databa
19d60 73 65 20 68 61 6e 64 6c 65 20 3c 44 42 3e 2e 20 se handle <DB>.
19d70 54 68 65 20 70 61 72 61 6d 65 74 65 72 20 3c 74 The parameter <t
19d80 61 69 6c 76 61 6c 3e 20 69 73 20 74 68 65 20 6e ailval> is the n
19d90 61 6d 65 20 6f 66 20 61 20 67 6c 6f 62 61 6c 0a ame of a global.
19da0 2a 2a 20 76 61 72 69 61 62 6c 65 20 74 68 61 74 ** variable that
19db0 20 69 73 20 73 65 74 20 74 6f 20 74 68 65 20 75 is set to the u
19dc0 6e 75 73 65 64 20 70 6f 72 74 69 6f 6e 20 6f 66 nused portion of
19dd0 20 3c 73 71 6c 3e 20 28 69 66 20 61 6e 79 29 2e <sql> (if any).
19de0 20 41 0a 2a 2a 20 53 54 4d 54 20 68 61 6e 64 6c A.** STMT handl
19df0 65 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a e is returned..*
19e00 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
19e10 74 5f 70 72 65 70 61 72 65 31 36 28 0a 20 20 76 t_prepare16(. v
19e20 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
19e30 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
19e40 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
19e50 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
19e60 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 ONST objv[].){.#
19e70 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
19e80 49 54 5f 55 54 46 31 36 0a 20 20 73 71 6c 69 74 IT_UTF16. sqlit
19e90 65 33 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 e3 *db;. const
19ea0 76 6f 69 64 20 2a 7a 53 71 6c 3b 0a 20 20 63 6f void *zSql;. co
19eb0 6e 73 74 20 76 6f 69 64 20 2a 7a 54 61 69 6c 20 nst void *zTail
19ec0 3d 20 30 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a = 0;. Tcl_Obj *
19ed0 70 54 61 69 6c 20 3d 20 30 3b 0a 20 20 73 71 6c pTail = 0;. sql
19ee0 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 ite3_stmt *pStmt
19ef0 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 = 0;. char zBu
19f00 66 5b 35 30 5d 3b 20 0a 20 20 69 6e 74 20 72 63 f[50]; . int rc
19f10 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 20 20 ;. int bytes;
19f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
19f30 20 54 68 65 20 69 6e 74 65 67 65 72 20 73 70 65 The integer spe
19f40 63 69 66 69 65 64 20 61 73 20 61 72 67 20 33 20 cified as arg 3
19f50 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 6c 65 6e 3b */. int objlen;
19f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
19f70 2a 20 54 68 65 20 62 79 74 65 2d 61 72 72 61 79 * The byte-array
19f80 20 6c 65 6e 67 74 68 20 6f 66 20 61 72 67 20 32 length of arg 2
19f90 20 2a 2f 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 */.. if( objc!
19fa0 3d 35 20 26 26 20 6f 62 6a 63 21 3d 34 20 29 7b =5 && objc!=4 ){
19fb0 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
19fc0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
19fd0 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
19fe0 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 uld be \"", .
19ff0 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
1a000 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 g(objv[0]), " DB
1a010 20 73 71 6c 20 62 79 74 65 73 20 3f 74 61 69 6c sql bytes ?tail
1a020 76 61 72 3f 22 2c 20 30 29 3b 0a 20 20 20 20 72 var?", 0);. r
1a030 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1a040 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
1a050 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
1a060 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
1a070 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 jv[1]), &db) ) r
1a080 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1a090 0a 20 20 7a 53 71 6c 20 3d 20 54 63 6c 5f 47 65 . zSql = Tcl_Ge
1a0a0 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 tByteArrayFromOb
1a0b0 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 6f 62 6a 6c j(objv[2], &objl
1a0c0 65 6e 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 en);. if( Tcl_G
1a0d0 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
1a0e0 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 62 erp, objv[3], &b
1a0f0 79 74 65 73 29 20 29 20 72 65 74 75 72 6e 20 54 ytes) ) return T
1a100 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 CL_ERROR;.. rc
1a110 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 = sqlite3_prepar
1a120 65 31 36 28 64 62 2c 20 7a 53 71 6c 2c 20 62 79 e16(db, zSql, by
1a130 74 65 73 2c 20 26 70 53 74 6d 74 2c 20 6f 62 6a tes, &pStmt, obj
1a140 63 3e 3d 35 20 3f 20 26 7a 54 61 69 6c 20 3a 20 c>=5 ? &zTail :
1a150 30 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 0);. if( sqlite
1a160 33 54 65 73 74 45 72 72 43 6f 64 65 28 69 6e 74 3TestErrCode(int
1a170 65 72 70 2c 20 64 62 2c 20 72 63 29 20 29 20 72 erp, db, rc) ) r
1a180 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1a190 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 20 20 . if( rc ){.
1a1a0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1a1b0 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 6f 62 R;. }.. if( ob
1a1c0 6a 63 3e 3d 35 20 29 7b 0a 20 20 20 20 69 66 28 jc>=5 ){. if(
1a1d0 20 7a 54 61 69 6c 20 29 7b 0a 20 20 20 20 20 20 zTail ){.
1a1e0 6f 62 6a 6c 65 6e 20 3d 20 6f 62 6a 6c 65 6e 20 objlen = objlen
1a1f0 2d 20 28 28 75 38 20 2a 29 7a 54 61 69 6c 2d 28 - ((u8 *)zTail-(
1a200 75 38 20 2a 29 7a 53 71 6c 29 3b 0a 20 20 20 20 u8 *)zSql);.
1a210 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 6f 62 6a }else{. obj
1a220 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 len = 0;. }.
1a230 20 20 20 70 54 61 69 6c 20 3d 20 54 63 6c 5f 4e pTail = Tcl_N
1a240 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28 28 ewByteArrayObj((
1a250 75 38 20 2a 29 7a 54 61 69 6c 2c 20 6f 62 6a 6c u8 *)zTail, objl
1a260 65 6e 29 3b 0a 20 20 20 20 54 63 6c 5f 49 6e 63 en);. Tcl_Inc
1a270 72 52 65 66 43 6f 75 6e 74 28 70 54 61 69 6c 29 rRefCount(pTail)
1a280 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 53 65 74 ;. Tcl_ObjSet
1a290 56 61 72 32 28 69 6e 74 65 72 70 2c 20 6f 62 6a Var2(interp, obj
1a2a0 76 5b 34 5d 2c 20 30 2c 20 70 54 61 69 6c 2c 20 v[4], 0, pTail,
1a2b0 30 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 0);. Tcl_Decr
1a2c0 52 65 66 43 6f 75 6e 74 28 70 54 61 69 6c 29 3b RefCount(pTail);
1a2d0 0a 20 20 7d 0a 0a 20 20 69 66 28 20 70 53 74 6d . }.. if( pStm
1a2e0 74 20 29 7b 0a 20 20 20 20 69 66 28 20 73 71 6c t ){. if( sql
1a2f0 69 74 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e ite3TestMakePoin
1a300 74 65 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a terStr(interp, z
1a310 42 75 66 2c 20 70 53 74 6d 74 29 20 29 20 72 65 Buf, pStmt) ) re
1a320 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1a330 20 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 }. Tcl_Append
1a340 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a Result(interp, z
1a350 42 75 66 2c 20 30 29 3b 0a 23 65 6e 64 69 66 20 Buf, 0);.#endif
1a360 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 /* SQLITE_OMIT_U
1a370 54 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e TF16 */. return
1a380 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
1a390 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
1a3a0 5f 70 72 65 70 61 72 65 31 36 5f 76 32 20 44 42 _prepare16_v2 DB
1a3b0 20 73 71 6c 20 62 79 74 65 73 20 3f 74 61 69 6c sql bytes ?tail
1a3c0 76 61 72 3f 0a 2a 2a 0a 2a 2a 20 43 6f 6d 70 69 var?.**.** Compi
1a3d0 6c 65 20 75 70 20 74 6f 20 3c 62 79 74 65 73 3e le up to <bytes>
1a3e0 20 62 79 74 65 73 20 6f 66 20 74 68 65 20 73 75 bytes of the su
1a3f0 70 70 6c 69 65 64 20 53 51 4c 20 73 74 72 69 6e pplied SQL strin
1a400 67 20 3c 73 71 6c 3e 20 75 73 69 6e 67 0a 2a 2a g <sql> using.**
1a410 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 database handle
1a420 20 3c 44 42 3e 2e 20 54 68 65 20 70 61 72 61 6d <DB>. The param
1a430 65 74 65 72 20 3c 74 61 69 6c 76 61 6c 3e 20 69 eter <tailval> i
1a440 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 s the name of a
1a450 67 6c 6f 62 61 6c 0a 2a 2a 20 76 61 72 69 61 62 global.** variab
1a460 6c 65 20 74 68 61 74 20 69 73 20 73 65 74 20 74 le that is set t
1a470 6f 20 74 68 65 20 75 6e 75 73 65 64 20 70 6f 72 o the unused por
1a480 74 69 6f 6e 20 6f 66 20 3c 73 71 6c 3e 20 28 69 tion of <sql> (i
1a490 66 20 61 6e 79 29 2e 20 41 0a 2a 2a 20 53 54 4d f any). A.** STM
1a4a0 54 20 68 61 6e 64 6c 65 20 69 73 20 72 65 74 75 T handle is retu
1a4b0 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 rned..*/.static
1a4c0 69 6e 74 20 74 65 73 74 5f 70 72 65 70 61 72 65 int test_prepare
1a4d0 31 36 5f 76 32 28 0a 20 20 76 6f 69 64 20 2a 20 16_v2(. void *
1a4e0 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
1a4f0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1a500 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
1a510 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
1a520 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 bjv[].){.#ifndef
1a530 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 SQLITE_OMIT_UTF
1a540 31 36 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 16. sqlite3 *db
1a550 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a ;. const void *
1a560 7a 53 71 6c 3b 0a 20 20 63 6f 6e 73 74 20 76 6f zSql;. const vo
1a570 69 64 20 2a 7a 54 61 69 6c 20 3d 20 30 3b 0a 20 id *zTail = 0;.
1a580 20 54 63 6c 5f 4f 62 6a 20 2a 70 54 61 69 6c 20 Tcl_Obj *pTail
1a590 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 = 0;. sqlite3_s
1a5a0 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 30 3b 0a tmt *pStmt = 0;.
1a5b0 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 5d 3b char zBuf[50];
1a5c0 20 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e . int rc;. in
1a5d0 74 20 62 79 74 65 73 3b 20 20 20 20 20 20 20 20 t bytes;
1a5e0 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 69 /* The i
1a5f0 6e 74 65 67 65 72 20 73 70 65 63 69 66 69 65 64 nteger specified
1a600 20 61 73 20 61 72 67 20 33 20 2a 2f 0a 20 20 69 as arg 3 */. i
1a610 6e 74 20 6f 62 6a 6c 65 6e 3b 20 20 20 20 20 20 nt objlen;
1a620 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 /* The
1a630 62 79 74 65 2d 61 72 72 61 79 20 6c 65 6e 67 74 byte-array lengt
1a640 68 20 6f 66 20 61 72 67 20 32 20 2a 2f 0a 0a 20 h of arg 2 */..
1a650 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 26 26 20 if( objc!=5 &&
1a660 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 objc!=4 ){. T
1a670 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1a680 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
1a690 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
1a6a0 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 \"", . Tc
1a6b0 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
1a6c0 5b 30 5d 29 2c 20 22 20 44 42 20 73 71 6c 20 62 [0]), " DB sql b
1a6d0 79 74 65 73 20 3f 74 61 69 6c 76 61 72 3f 22 2c ytes ?tailvar?",
1a6e0 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
1a6f0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
1a700 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 if( getDbPointe
1a710 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
1a720 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
1a730 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
1a740 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 53 71 TCL_ERROR;. zSq
1a750 6c 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41 l = Tcl_GetByteA
1a760 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 rrayFromObj(objv
1a770 5b 32 5d 2c 20 26 6f 62 6a 6c 65 6e 29 3b 0a 20 [2], &objlen);.
1a780 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
1a790 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
1a7a0 62 6a 76 5b 33 5d 2c 20 26 62 79 74 65 73 29 20 bjv[3], &bytes)
1a7b0 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
1a7c0 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 OR;.. rc = sqli
1a7d0 74 65 33 5f 70 72 65 70 61 72 65 31 36 5f 76 32 te3_prepare16_v2
1a7e0 28 64 62 2c 20 7a 53 71 6c 2c 20 62 79 74 65 73 (db, zSql, bytes
1a7f0 2c 20 26 70 53 74 6d 74 2c 20 6f 62 6a 63 3e 3d , &pStmt, objc>=
1a800 35 20 3f 20 26 7a 54 61 69 6c 20 3a 20 30 29 3b 5 ? &zTail : 0);
1a810 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 . if( sqlite3Te
1a820 73 74 45 72 72 43 6f 64 65 28 69 6e 74 65 72 70 stErrCode(interp
1a830 2c 20 64 62 2c 20 72 63 29 20 29 20 72 65 74 75 , db, rc) ) retu
1a840 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1a850 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 72 65 if( rc ){. re
1a860 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1a870 20 20 7d 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3e }.. if( objc>
1a880 3d 35 20 29 7b 0a 20 20 20 20 69 66 28 20 7a 54 =5 ){. if( zT
1a890 61 69 6c 20 29 7b 0a 20 20 20 20 20 20 6f 62 6a ail ){. obj
1a8a0 6c 65 6e 20 3d 20 6f 62 6a 6c 65 6e 20 2d 20 28 len = objlen - (
1a8b0 28 75 38 20 2a 29 7a 54 61 69 6c 2d 28 75 38 20 (u8 *)zTail-(u8
1a8c0 2a 29 7a 53 71 6c 29 3b 0a 20 20 20 20 7d 65 6c *)zSql);. }el
1a8d0 73 65 7b 0a 20 20 20 20 20 20 6f 62 6a 6c 65 6e se{. objlen
1a8e0 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 = 0;. }.
1a8f0 70 54 61 69 6c 20 3d 20 54 63 6c 5f 4e 65 77 42 pTail = Tcl_NewB
1a900 79 74 65 41 72 72 61 79 4f 62 6a 28 28 75 38 20 yteArrayObj((u8
1a910 2a 29 7a 54 61 69 6c 2c 20 6f 62 6a 6c 65 6e 29 *)zTail, objlen)
1a920 3b 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 ;. Tcl_IncrRe
1a930 66 43 6f 75 6e 74 28 70 54 61 69 6c 29 3b 0a 20 fCount(pTail);.
1a940 20 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 72 Tcl_ObjSetVar
1a950 32 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 2(interp, objv[4
1a960 5d 2c 20 30 2c 20 70 54 61 69 6c 2c 20 30 29 3b ], 0, pTail, 0);
1a970 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 . Tcl_DecrRef
1a980 43 6f 75 6e 74 28 70 54 61 69 6c 29 3b 0a 20 20 Count(pTail);.
1a990 7d 0a 0a 20 20 69 66 28 20 70 53 74 6d 74 20 29 }.. if( pStmt )
1a9a0 7b 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 {. if( sqlite
1a9b0 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 72 3TestMakePointer
1a9c0 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 Str(interp, zBuf
1a9d0 2c 20 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 , pStmt) ) retur
1a9e0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
1a9f0 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 . Tcl_AppendRes
1aa00 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 ult(interp, zBuf
1aa10 2c 20 30 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 , 0);.#endif /*
1aa20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 SQLITE_OMIT_UTF1
1aa30 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 6 */. return TC
1aa40 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
1aa50 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 6f 70 sage: sqlite3_op
1aa60 65 6e 20 66 69 6c 65 6e 61 6d 65 20 3f 6f 70 74 en filename ?opt
1aa70 69 6f 6e 73 2d 6c 69 73 74 3f 0a 2a 2f 0a 73 74 ions-list?.*/.st
1aa80 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6f 70 atic int test_op
1aa90 65 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 en(. void * cli
1aaa0 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
1aab0 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
1aac0 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
1aad0 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
1aae0 5b 5d 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 [].){. const ch
1aaf0 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 3b 0a 20 ar *zFilename;.
1ab00 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
1ab10 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 7a int rc;. char z
1ab20 42 75 66 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 28 Buf[100];.. if(
1ab30 20 6f 62 6a 63 21 3d 33 20 26 26 20 6f 62 6a 63 objc!=3 && objc
1ab40 21 3d 32 20 26 26 20 6f 62 6a 63 21 3d 31 20 29 !=2 && objc!=1 )
1ab50 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
1ab60 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
1ab70 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
1ab80 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 ould be \"", .
1ab90 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
1aba0 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 66 ng(objv[0]), " f
1abb0 69 6c 65 6e 61 6d 65 20 6f 70 74 69 6f 6e 73 2d ilename options-
1abc0 6c 69 73 74 22 2c 20 30 29 3b 0a 20 20 20 20 72 list", 0);. r
1abd0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1abe0 0a 20 20 7d 0a 0a 20 20 7a 46 69 6c 65 6e 61 6d . }.. zFilenam
1abf0 65 20 3d 20 6f 62 6a 63 3e 31 20 3f 20 54 63 6c e = objc>1 ? Tcl
1ac00 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
1ac10 31 5d 29 20 3a 20 30 3b 0a 20 20 72 63 20 3d 20 1]) : 0;. rc =
1ac20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 28 7a 46 69 sqlite3_open(zFi
1ac30 6c 65 6e 61 6d 65 2c 20 26 64 62 29 3b 0a 20 20 lename, &db);.
1ac40 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 54 65 . if( sqlite3Te
1ac50 73 74 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 stMakePointerStr
1ac60 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 64 (interp, zBuf, d
1ac70 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
1ac80 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 41 70 70 ERROR;. Tcl_App
1ac90 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
1aca0 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 , zBuf, 0);. re
1acb0 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
1acc0 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c /*.** Usage: sql
1acd0 69 74 65 33 5f 6f 70 65 6e 31 36 20 66 69 6c 65 ite3_open16 file
1ace0 6e 61 6d 65 20 6f 70 74 69 6f 6e 73 0a 2a 2f 0a name options.*/.
1acf0 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
1ad00 6f 70 65 6e 31 36 28 0a 20 20 76 6f 69 64 20 2a open16(. void *
1ad10 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
1ad20 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1ad30 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
1ad40 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
1ad50 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 objv[].){.#ifnde
1ad60 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 f SQLITE_OMIT_UT
1ad70 46 31 36 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 F16. const void
1ad80 20 2a 7a 46 69 6c 65 6e 61 6d 65 3b 0a 20 20 73 *zFilename;. s
1ad90 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e qlite3 *db;. in
1ada0 74 20 72 63 3b 0a 20 20 63 68 61 72 20 7a 42 75 t rc;. char zBu
1adb0 66 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 28 20 6f f[100];.. if( o
1adc0 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 bjc!=3 ){. Tc
1add0 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
1ade0 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
1adf0 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
1ae00 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
1ae10 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
1ae20 30 5d 29 2c 20 22 20 66 69 6c 65 6e 61 6d 65 20 0]), " filename
1ae30 6f 70 74 69 6f 6e 73 2d 6c 69 73 74 22 2c 20 30 options-list", 0
1ae40 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1ae50 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
1ae60 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 54 63 6c 5f zFilename = Tcl_
1ae70 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d GetByteArrayFrom
1ae80 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 30 29 3b Obj(objv[1], 0);
1ae90 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
1aea0 6f 70 65 6e 31 36 28 7a 46 69 6c 65 6e 61 6d 65 open16(zFilename
1aeb0 2c 20 26 64 62 29 3b 0a 20 20 0a 20 20 69 66 28 , &db);. . if(
1aec0 20 73 71 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 sqlite3TestMake
1aed0 50 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 PointerStr(inter
1aee0 70 2c 20 7a 42 75 66 2c 20 64 62 29 20 29 20 72 p, zBuf, db) ) r
1aef0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1af00 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 . Tcl_AppendRes
1af10 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 ult(interp, zBuf
1af20 2c 20 30 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 , 0);.#endif /*
1af30 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 SQLITE_OMIT_UTF1
1af40 36 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 54 43 6 */. return TC
1af50 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
1af60 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f sage: sqlite3_co
1af70 6d 70 6c 65 74 65 31 36 20 3c 55 54 46 2d 31 36 mplete16 <UTF-16
1af80 20 73 74 72 69 6e 67 3e 0a 2a 2a 0a 2a 2a 20 52 string>.**.** R
1af90 65 74 75 72 6e 20 31 20 69 66 20 74 68 65 20 73 eturn 1 if the s
1afa0 75 70 70 6c 69 65 64 20 61 72 67 75 6d 65 6e 74 upplied argument
1afb0 20 69 73 20 61 20 63 6f 6d 70 6c 65 74 65 20 53 is a complete S
1afc0 51 4c 20 73 74 61 74 65 6d 65 6e 74 2c 20 6f 72 QL statement, or
1afd0 20 7a 65 72 6f 0a 2a 2a 20 6f 74 68 65 72 77 69 zero.** otherwi
1afe0 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e se..*/.static in
1aff0 74 20 74 65 73 74 5f 63 6f 6d 70 6c 65 74 65 31 t test_complete1
1b000 36 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6(. void * clie
1b010 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
1b020 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
1b030 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
1b040 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
1b050 5d 0a 29 7b 0a 23 69 66 20 21 64 65 66 69 6e 65 ].){.#if !define
1b060 64 28 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f d(SQLITE_OMIT_CO
1b070 4d 50 4c 45 54 45 29 20 26 26 20 21 64 65 66 69 MPLETE) && !defi
1b080 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d 49 54 5f ned(SQLITE_OMIT_
1b090 55 54 46 31 36 29 0a 20 20 63 68 61 72 20 2a 7a UTF16). char *z
1b0a0 42 75 66 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 Buf;.. if( objc
1b0b0 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 !=2 ){. Tcl_W
1b0c0 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
1b0d0 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3c 75 rp, 1, objv, "<u
1b0e0 74 66 2d 31 36 20 73 71 6c 3e 22 29 3b 0a 20 20 tf-16 sql>");.
1b0f0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
1b100 4f 52 3b 0a 20 20 7d 0a 0a 20 20 7a 42 75 66 20 OR;. }.. zBuf
1b110 3d 20 28 63 68 61 72 2a 29 54 63 6c 5f 47 65 74 = (char*)Tcl_Get
1b120 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a ByteArrayFromObj
1b130 28 6f 62 6a 76 5b 31 5d 2c 20 30 29 3b 0a 20 20 (objv[1], 0);.
1b140 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
1b150 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
1b160 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f 63 IntObj(sqlite3_c
1b170 6f 6d 70 6c 65 74 65 31 36 28 7a 42 75 66 29 29 omplete16(zBuf))
1b180 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c );.#endif /* SQL
1b190 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 4c 45 54 ITE_OMIT_COMPLET
1b1a0 45 20 26 26 20 53 51 4c 49 54 45 5f 4f 4d 49 54 E && SQLITE_OMIT
1b1b0 5f 55 54 46 31 36 20 2a 2f 0a 20 20 72 65 74 75 _UTF16 */. retu
1b1c0 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
1b1d0 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
1b1e0 65 33 5f 73 74 65 70 20 53 54 4d 54 0a 2a 2a 0a e3_step STMT.**.
1b1f0 2a 2a 20 41 64 76 61 6e 63 65 20 74 68 65 20 73 ** Advance the s
1b200 74 61 74 65 6d 65 6e 74 20 74 6f 20 74 68 65 20 tatement to the
1b210 6e 65 78 74 20 72 6f 77 2e 0a 2a 2f 0a 73 74 61 next row..*/.sta
1b220 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 74 65 tic int test_ste
1b230 70 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 p(. void * clie
1b240 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
1b250 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
1b260 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
1b270 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
1b280 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 ].){. sqlite3_s
1b290 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e tmt *pStmt;. in
1b2a0 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a t rc;.. if( obj
1b2b0 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
1b2c0 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1b2d0 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
1b2e0 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
1b2f0 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 ", . Tcl_G
1b300 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d etString(objv[0]
1b310 29 2c 20 22 20 53 54 4d 54 22 2c 20 30 29 3b 0a ), " STMT", 0);.
1b320 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
1b330 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 RROR;. }.. if(
1b340 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
1b350 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
1b360 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
1b370 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e &pStmt) ) return
1b380 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 TCL_ERROR;. rc
1b390 20 3d 20 73 71 6c 69 74 65 33 5f 73 74 65 70 28 = sqlite3_step(
1b3a0 70 53 74 6d 74 29 3b 0a 0a 20 20 2f 2a 20 69 66 pStmt);.. /* if
1b3b0 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 44 4f 4e ( rc!=SQLITE_DON
1b3c0 45 20 26 26 20 72 63 21 3d 53 51 4c 49 54 45 5f E && rc!=SQLITE_
1b3d0 52 4f 57 20 29 20 72 65 74 75 72 6e 20 54 43 4c ROW ) return TCL
1b3e0 5f 45 52 52 4f 52 3b 20 2a 2f 0a 20 20 54 63 6c _ERROR; */. Tcl
1b3f0 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
1b400 70 2c 20 28 63 68 61 72 20 2a 29 74 31 45 72 72 p, (char *)t1Err
1b410 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a orName(rc), 0);.
1b420 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1b430 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .}..static int t
1b440 65 73 74 5f 73 71 6c 28 0a 20 20 76 6f 69 64 20 est_sql(. void
1b450 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
1b460 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
1b470 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
1b480 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
1b490 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
1b4a0 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 ite3_stmt *pStmt
1b4b0 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 ;.. if( objc!=2
1b4c0 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e ){. Tcl_Wron
1b4d0 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
1b4e0 20 31 2c 20 6f 62 6a 76 2c 20 22 53 54 4d 54 22 1, objv, "STMT"
1b4f0 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1b500 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
1b510 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
1b520 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
1b530 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
1b540 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
1b550 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1b560 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
1b570 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 73 nterp, (char *)s
1b580 71 6c 69 74 65 33 5f 73 71 6c 28 70 53 74 6d 74 qlite3_sql(pStmt
1b590 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 ), TCL_VOLATILE)
1b5a0 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
1b5b0 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
1b5c0 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d e: sqlite3_colum
1b5d0 6e 5f 63 6f 75 6e 74 20 53 54 4d 54 20 0a 2a 2a n_count STMT .**
1b5e0 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e .** Return the n
1b5f0 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 umber of columns
1b600 20 72 65 74 75 72 6e 65 64 20 62 79 20 74 68 65 returned by the
1b610 20 73 71 6c 20 73 74 61 74 65 6d 65 6e 74 20 53 sql statement S
1b620 54 4d 54 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 TMT..*/.static i
1b630 6e 74 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 63 nt test_column_c
1b640 6f 75 6e 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 ount(. void * c
1b650 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
1b660 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1b670 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
1b680 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
1b690 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
1b6a0 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 3_stmt *pStmt;..
1b6b0 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b if( objc!=2 ){
1b6c0 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
1b6d0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
1b6e0 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
1b6f0 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 uld be \"", .
1b700 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
1b710 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 g(objv[0]), " ST
1b720 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a MT column", 0);.
1b730 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
1b740 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 RROR;. }.. if(
1b750 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
1b760 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
1b770 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
1b780 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e &pStmt) ) return
1b790 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 54 TCL_ERROR;.. T
1b7a0 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
1b7b0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 interp, Tcl_NewI
1b7c0 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f 63 6f ntObj(sqlite3_co
1b7d0 6c 75 6d 6e 5f 63 6f 75 6e 74 28 70 53 74 6d 74 lumn_count(pStmt
1b7e0 29 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 )));. return TC
1b7f0 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
1b800 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f sage: sqlite3_co
1b810 6c 75 6d 6e 5f 74 79 70 65 20 53 54 4d 54 20 63 lumn_type STMT c
1b820 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 olumn.**.** Retu
1b830 72 6e 20 74 68 65 20 74 79 70 65 20 6f 66 20 74 rn the type of t
1b840 68 65 20 64 61 74 61 20 69 6e 20 63 6f 6c 75 6d he data in colum
1b850 6e 20 27 63 6f 6c 75 6d 6e 27 20 6f 66 20 74 68 n 'column' of th
1b860 65 20 63 75 72 72 65 6e 74 20 72 6f 77 2e 0a 2a e current row..*
1b870 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
1b880 74 5f 63 6f 6c 75 6d 6e 5f 74 79 70 65 28 0a 20 t_column_type(.
1b890 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
1b8a0 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
1b8b0 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
1b8c0 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
1b8d0 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
1b8e0 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
1b8f0 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 63 6f *pStmt;. int co
1b900 6c 3b 0a 20 20 69 6e 74 20 74 70 3b 0a 0a 20 20 l;. int tp;..
1b910 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 if( objc!=3 ){.
1b920 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
1b930 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
1b940 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
1b950 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 d be \"", .
1b960 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 Tcl_GetString(
1b970 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 objv[0]), " STMT
1b980 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 column", 0);.
1b990 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
1b9a0 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 OR;. }.. if( g
1b9b0 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e etStmtPointer(in
1b9c0 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
1b9d0 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 ing(objv[1]), &p
1b9e0 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 Stmt) ) return T
1b9f0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
1ba00 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 Tcl_GetIntFromOb
1ba10 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 j(interp, objv[2
1ba20 5d 2c 20 26 63 6f 6c 29 20 29 20 72 65 74 75 72 ], &col) ) retur
1ba30 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 n TCL_ERROR;..
1ba40 74 70 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c tp = sqlite3_col
1ba50 75 6d 6e 5f 74 79 70 65 28 70 53 74 6d 74 2c 20 umn_type(pStmt,
1ba60 63 6f 6c 29 3b 0a 20 20 73 77 69 74 63 68 28 20 col);. switch(
1ba70 74 70 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 tp ){. case S
1ba80 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a 20 0a QLITE_INTEGER: .
1ba90 20 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 Tcl_SetRes
1baa0 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 4e 54 ult(interp, "INT
1bab0 45 47 45 52 22 2c 20 54 43 4c 5f 53 54 41 54 49 EGER", TCL_STATI
1bac0 43 29 3b 20 0a 20 20 20 20 20 20 62 72 65 61 6b C); . break
1bad0 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
1bae0 45 5f 4e 55 4c 4c 3a 0a 20 20 20 20 20 20 54 63 E_NULL:. Tc
1baf0 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
1bb00 72 70 2c 20 22 4e 55 4c 4c 22 2c 20 54 43 4c 5f rp, "NULL", TCL_
1bb10 53 54 41 54 49 43 29 3b 20 0a 20 20 20 20 20 20 STATIC); .
1bb20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
1bb30 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a 0a 20 20 SQLITE_FLOAT:.
1bb40 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c Tcl_SetResul
1bb50 74 28 69 6e 74 65 72 70 2c 20 22 46 4c 4f 41 54 t(interp, "FLOAT
1bb60 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 20 ", TCL_STATIC);
1bb70 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
1bb80 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 54 45 case SQLITE_TE
1bb90 58 54 3a 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 XT:. Tcl_Se
1bba0 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
1bbb0 22 54 45 58 54 22 2c 20 54 43 4c 5f 53 54 41 54 "TEXT", TCL_STAT
1bbc0 49 43 29 3b 20 0a 20 20 20 20 20 20 62 72 65 61 IC); . brea
1bbd0 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
1bbe0 54 45 5f 42 4c 4f 42 3a 0a 20 20 20 20 20 20 54 TE_BLOB:. T
1bbf0 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
1bc00 65 72 70 2c 20 22 42 4c 4f 42 22 2c 20 54 43 4c erp, "BLOB", TCL
1bc10 5f 53 54 41 54 49 43 29 3b 20 0a 20 20 20 20 20 _STATIC); .
1bc20 20 62 72 65 61 6b 3b 0a 20 20 20 20 64 65 66 61 break;. defa
1bc30 75 6c 74 3a 0a 20 20 20 20 20 20 61 73 73 65 72 ult:. asser
1bc40 74 28 30 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 t(0);. }.. ret
1bc50 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
1bc60 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 *.** Usage: sqli
1bc70 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 36 34 te3_column_int64
1bc80 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a STMT column.**.
1bc90 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 64 61 ** Return the da
1bca0 74 61 20 69 6e 20 63 6f 6c 75 6d 6e 20 27 63 6f ta in column 'co
1bcb0 6c 75 6d 6e 27 20 6f 66 20 74 68 65 20 63 75 72 lumn' of the cur
1bcc0 72 65 6e 74 20 72 6f 77 20 63 61 73 74 20 61 73 rent row cast as
1bcd0 20 61 6e 0a 2a 2a 20 77 69 64 65 20 28 36 34 2d an.** wide (64-
1bce0 62 69 74 29 20 69 6e 74 65 67 65 72 2e 0a 2a 2f bit) integer..*/
1bcf0 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
1bd00 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 36 34 28 0a 20 _column_int64(.
1bd10 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
1bd20 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
1bd30 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
1bd40 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
1bd50 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
1bd60 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
1bd70 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 63 6f *pStmt;. int co
1bd80 6c 3b 0a 20 20 69 36 34 20 69 56 61 6c 3b 0a 0a l;. i64 iVal;..
1bd90 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b if( objc!=3 ){
1bda0 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
1bdb0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
1bdc0 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
1bdd0 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 uld be \"", .
1bde0 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
1bdf0 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 g(objv[0]), " ST
1be00 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a MT column", 0);.
1be10 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
1be20 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 RROR;. }.. if(
1be30 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
1be40 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
1be50 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
1be60 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e &pStmt) ) return
1be70 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
1be80 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
1be90 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
1bea0 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 20 72 65 74 [2], &col) ) ret
1beb0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a urn TCL_ERROR;..
1bec0 20 20 69 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 iVal = sqlite3
1bed0 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 36 34 28 70 53 _column_int64(pS
1bee0 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 54 63 6c tmt, col);. Tcl
1bef0 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
1bf00 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 57 69 64 terp, Tcl_NewWid
1bf10 65 49 6e 74 4f 62 6a 28 69 56 61 6c 29 29 3b 0a eIntObj(iVal));.
1bf20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1bf30 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
1bf40 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
1bf50 62 6c 6f 62 20 53 54 4d 54 20 63 6f 6c 75 6d 6e blob STMT column
1bf60 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
1bf70 65 73 74 5f 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 28 est_column_blob(
1bf80 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
1bf90 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
1bfa0 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
1bfb0 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
1bfc0 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
1bfd0 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
1bfe0 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 t *pStmt;. int
1bff0 63 6f 6c 3b 0a 0a 20 20 69 6e 74 20 6c 65 6e 3b col;.. int len;
1c000 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 . const void *p
1c010 42 6c 6f 62 3b 0a 0a 20 20 69 66 28 20 6f 62 6a Blob;.. if( obj
1c020 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
1c030 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1c040 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
1c050 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
1c060 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 ", . Tcl_G
1c070 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d etString(objv[0]
1c080 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e ), " STMT column
1c090 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
1c0a0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
1c0b0 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 .. if( getStmtP
1c0c0 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
1c0d0 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
1c0e0 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 v[1]), &pStmt) )
1c0f0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1c100 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 R;. if( Tcl_Get
1c110 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
1c120 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c p, objv[2], &col
1c130 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
1c140 52 52 4f 52 3b 0a 0a 20 20 6c 65 6e 20 3d 20 73 RROR;.. len = s
1c150 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 qlite3_column_by
1c160 74 65 73 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b tes(pStmt, col);
1c170 0a 20 20 70 42 6c 6f 62 20 3d 20 73 71 6c 69 74 . pBlob = sqlit
1c180 65 33 5f 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 28 70 e3_column_blob(p
1c190 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 54 63 Stmt, col);. Tc
1c1a0 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
1c1b0 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42 79 nterp, Tcl_NewBy
1c1c0 74 65 41 72 72 61 79 4f 62 6a 28 70 42 6c 6f 62 teArrayObj(pBlob
1c1d0 2c 20 6c 65 6e 29 29 3b 0a 20 20 72 65 74 75 72 , len));. retur
1c1e0 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
1c1f0 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
1c200 33 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 6c 65 20 3_column_double
1c210 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a STMT column.**.*
1c220 2a 20 52 65 74 75 72 6e 20 74 68 65 20 64 61 74 * Return the dat
1c230 61 20 69 6e 20 63 6f 6c 75 6d 6e 20 27 63 6f 6c a in column 'col
1c240 75 6d 6e 27 20 6f 66 20 74 68 65 20 63 75 72 72 umn' of the curr
1c250 65 6e 74 20 72 6f 77 20 63 61 73 74 20 61 73 20 ent row cast as
1c260 61 20 64 6f 75 62 6c 65 2e 0a 2a 2f 0a 73 74 61 a double..*/.sta
1c270 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c tic int test_col
1c280 75 6d 6e 5f 64 6f 75 62 6c 65 28 0a 20 20 76 6f umn_double(. vo
1c290 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
1c2a0 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1c2b0 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
1c2c0 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
1c2d0 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
1c2e0 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 sqlite3_stmt *pS
1c2f0 74 6d 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a tmt;. int col;.
1c300 20 20 64 6f 75 62 6c 65 20 72 56 61 6c 3b 0a 0a double rVal;..
1c310 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b if( objc!=3 ){
1c320 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
1c330 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
1c340 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
1c350 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 uld be \"", .
1c360 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
1c370 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 g(objv[0]), " ST
1c380 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a MT column", 0);.
1c390 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
1c3a0 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 RROR;. }.. if(
1c3b0 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 getStmtPointer(
1c3c0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
1c3d0 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
1c3e0 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e &pStmt) ) return
1c3f0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
1c400 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
1c410 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
1c420 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 20 72 65 74 [2], &col) ) ret
1c430 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a urn TCL_ERROR;..
1c440 20 20 72 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 rVal = sqlite3
1c450 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 6c 65 28 70 _column_double(p
1c460 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 54 63 Stmt, col);. Tc
1c470 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
1c480 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 44 6f nterp, Tcl_NewDo
1c490 75 62 6c 65 4f 62 6a 28 72 56 61 6c 29 29 3b 0a ubleObj(rVal));.
1c4a0 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1c4b0 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
1c4c0 20 73 71 6c 69 74 65 33 5f 64 61 74 61 5f 63 6f sqlite3_data_co
1c4d0 75 6e 74 20 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 unt STMT .**.**
1c4e0 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
1c4f0 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 72 65 74 r of columns ret
1c500 75 72 6e 65 64 20 62 79 20 74 68 65 20 73 71 6c urned by the sql
1c510 20 73 74 61 74 65 6d 65 6e 74 20 53 54 4d 54 2e statement STMT.
1c520 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
1c530 65 73 74 5f 64 61 74 61 5f 63 6f 75 6e 74 28 0a est_data_count(.
1c540 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
1c550 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
1c560 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
1c570 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
1c580 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
1c590 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 {. sqlite3_stmt
1c5a0 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 66 28 20 *pStmt;.. if(
1c5b0 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
1c5c0 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1c5d0 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
1c5e0 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
1c5f0 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 \"", . Tc
1c600 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
1c610 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c [0]), " STMT col
1c620 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 umn", 0);. re
1c630 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1c640 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 }.. if( getSt
1c650 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
1c660 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
1c670 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 objv[1]), &pStmt
1c680 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
1c690 52 52 4f 52 3b 0a 0a 20 20 54 63 6c 5f 53 65 74 RROR;.. Tcl_Set
1c6a0 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
1c6b0 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 , Tcl_NewIntObj(
1c6c0 73 71 6c 69 74 65 33 5f 64 61 74 61 5f 63 6f 75 sqlite3_data_cou
1c6d0 6e 74 28 70 53 74 6d 74 29 29 29 3b 0a 20 20 72 nt(pStmt)));. r
1c6e0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
1c6f0 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
1c700 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 lite3_column_tex
1c710 74 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a t STMT column.**
1c720 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
1c730 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 e3_column_declty
1c740 70 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a pe STMT column.*
1c750 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 *.** Usage: sqli
1c760 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 20 te3_column_name
1c770 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2f 0a 73 STMT column.*/.s
1c780 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 tatic int test_s
1c790 74 6d 74 5f 75 74 66 38 28 0a 20 20 76 6f 69 64 tmt_utf8(. void
1c7a0 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 20 * clientData,
1c7b0 20 20 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 /* Pointer
1c7c0 20 74 6f 20 53 51 4c 69 74 65 20 41 50 49 20 66 to SQLite API f
1c7d0 75 6e 63 74 69 6f 6e 20 74 6f 20 62 65 20 69 6e unction to be in
1c7e0 76 6f 6b 65 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e voke */. Tcl_In
1c7f0 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
1c800 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
1c810 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
1c820 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 ].){. sqlite3_s
1c830 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e tmt *pStmt;. in
1c840 74 20 63 6f 6c 3b 0a 20 20 63 6f 6e 73 74 20 63 t col;. const c
1c850 68 61 72 20 2a 28 2a 78 46 75 6e 63 29 28 73 71 har *(*xFunc)(sq
1c860 6c 69 74 65 33 5f 73 74 6d 74 2a 2c 20 69 6e 74 lite3_stmt*, int
1c870 29 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 );. const char
1c880 2a 7a 52 65 74 3b 0a 0a 20 20 78 46 75 6e 63 20 *zRet;.. xFunc
1c890 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 28 = (const char *(
1c8a0 2a 29 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a *)(sqlite3_stmt*
1c8b0 2c 20 69 6e 74 29 29 63 6c 69 65 6e 74 44 61 74 , int))clientDat
1c8c0 61 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 a;. if( objc!=3
1c8d0 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
1c8e0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1c8f0 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
1c900 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a should be \"", .
1c910 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
1c920 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 ring(objv[0]), "
1c930 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 STMT column", 0
1c940 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1c950 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
1c960 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
1c970 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
1c980 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
1c990 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
1c9a0 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1c9b0 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
1c9c0 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
1c9d0 62 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 20 bjv[2], &col) )
1c9e0 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1c9f0 3b 0a 20 20 7a 52 65 74 20 3d 20 78 46 75 6e 63 ;. zRet = xFunc
1ca00 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 (pStmt, col);.
1ca10 69 66 28 20 7a 52 65 74 20 29 7b 0a 20 20 20 20 if( zRet ){.
1ca20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
1ca30 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 7a 52 terp, (char *)zR
1ca40 65 74 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 et, 0);. }. re
1ca50 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
1ca60 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
1ca70 67 6c 6f 62 61 6c 5f 72 65 63 6f 76 65 72 28 0a global_recover(.
1ca80 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
1ca90 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
1caa0 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
1cab0 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
1cac0 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
1cad0 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 {.#ifndef SQLITE
1cae0 5f 4f 4d 49 54 5f 44 45 50 52 45 43 41 54 45 44 _OMIT_DEPRECATED
1caf0 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 . int rc;. if(
1cb00 20 6f 62 6a 63 21 3d 31 20 29 7b 0a 20 20 20 20 objc!=1 ){.
1cb10 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
1cb20 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
1cb30 2c 20 22 22 29 3b 0a 20 20 20 20 72 65 74 75 72 , "");. retur
1cb40 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
1cb50 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
1cb60 67 6c 6f 62 61 6c 5f 72 65 63 6f 76 65 72 28 29 global_recover()
1cb70 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c ;. Tcl_SetResul
1cb80 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 t(interp, (char
1cb90 2a 29 74 31 45 72 72 6f 72 4e 61 6d 65 28 72 63 *)t1ErrorName(rc
1cba0 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a ), TCL_STATIC);.
1cbb0 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 #endif. return
1cbc0 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
1cbd0 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
1cbe0 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 53 54 4d 54 column_text STMT
1cbf0 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 column.**.** Us
1cc00 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c age: sqlite3_col
1cc10 75 6d 6e 5f 64 65 63 6c 74 79 70 65 20 53 54 4d umn_decltype STM
1cc20 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 T column.**.** U
1cc30 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f sage: sqlite3_co
1cc40 6c 75 6d 6e 5f 6e 61 6d 65 20 53 54 4d 54 20 63 lumn_name STMT c
1cc50 6f 6c 75 6d 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 olumn.*/.static
1cc60 69 6e 74 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 int test_stmt_ut
1cc70 66 31 36 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c f16(. void * cl
1cc80 69 65 6e 74 44 61 74 61 2c 20 20 20 20 20 2f 2a ientData, /*
1cc90 20 50 6f 69 6e 74 65 72 20 74 6f 20 53 51 4c 69 Pointer to SQLi
1cca0 74 65 20 41 50 49 20 66 75 6e 63 74 69 6f 6e 20 te API function
1ccb0 74 6f 20 62 65 20 69 6e 76 6f 6b 65 64 20 2a 2f to be invoked */
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 55 54 46 31 36 0a 20 20 73 71 6c 69 74 65 T_UTF16. sqlite
1cd20 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
1cd30 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 54 63 6c 5f int col;. Tcl_
1cd40 4f 62 6a 20 2a 70 52 65 74 3b 0a 20 20 63 6f 6e Obj *pRet;. con
1cd50 73 74 20 76 6f 69 64 20 2a 7a 4e 61 6d 65 31 36 st void *zName16
1cd60 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a ;. const void *
1cd70 28 2a 78 46 75 6e 63 29 28 73 71 6c 69 74 65 33 (*xFunc)(sqlite3
1cd80 5f 73 74 6d 74 2a 2c 20 69 6e 74 29 3b 0a 0a 20 _stmt*, int);..
1cd90 20 78 46 75 6e 63 20 3d 20 28 63 6f 6e 73 74 20 xFunc = (const
1cda0 76 6f 69 64 20 2a 28 2a 29 28 73 71 6c 69 74 65 void *(*)(sqlite
1cdb0 33 5f 73 74 6d 74 2a 2c 20 69 6e 74 29 29 63 6c 3_stmt*, int))cl
1cdc0 69 65 6e 74 44 61 74 61 3b 0a 20 20 69 66 28 20 ientData;. if(
1cdd0 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 objc!=3 ){. T
1cde0 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1cdf0 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
1ce00 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
1ce10 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 \"", . Tc
1ce20 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
1ce30 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c [0]), " STMT col
1ce40 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 umn", 0);. re
1ce50 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1ce60 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 }.. if( getSt
1ce70 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
1ce80 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
1ce90 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 objv[1]), &pStmt
1cea0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
1ceb0 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
1cec0 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
1ced0 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 terp, objv[2], &
1cee0 63 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 col) ) return TC
1cef0 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 7a 4e 61 6d L_ERROR;.. zNam
1cf00 65 31 36 20 3d 20 78 46 75 6e 63 28 70 53 74 6d e16 = xFunc(pStm
1cf10 74 2c 20 63 6f 6c 29 3b 0a 20 20 69 66 28 20 7a t, col);. if( z
1cf20 4e 61 6d 65 31 36 20 29 7b 0a 20 20 20 20 69 6e Name16 ){. in
1cf30 74 20 6e 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 t n;. const c
1cf40 68 61 72 20 2a 7a 20 3d 20 7a 4e 61 6d 65 31 36 har *z = zName16
1cf50 3b 0a 20 20 20 20 66 6f 72 28 6e 3d 30 3b 20 7a ;. for(n=0; z
1cf60 5b 6e 5d 20 7c 7c 20 7a 5b 6e 2b 31 5d 3b 20 6e [n] || z[n+1]; n
1cf70 2b 3d 32 29 7b 7d 0a 20 20 20 20 70 52 65 74 20 +=2){}. pRet
1cf80 3d 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 = Tcl_NewByteArr
1cf90 61 79 4f 62 6a 28 7a 4e 61 6d 65 31 36 2c 20 6e ayObj(zName16, n
1cfa0 2b 32 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 +2);. Tcl_Set
1cfb0 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
1cfc0 2c 20 70 52 65 74 29 3b 0a 20 20 7d 0a 23 65 6e , pRet);. }.#en
1cfd0 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d dif /* SQLITE_OM
1cfe0 49 54 5f 55 54 46 31 36 20 2a 2f 0a 0a 20 20 72 IT_UTF16 */.. r
1cff0 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
1d000 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
1d010 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 lite3_column_int
1d020 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a STMT column.**.
1d030 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
1d040 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 20 53 3_column_bytes S
1d050 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a TMT column.**.**
1d060 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
1d070 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 31 36 20 53 column_bytes16 S
1d080 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2f TMT column.**.*/
1d090 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
1d0a0 5f 73 74 6d 74 5f 69 6e 74 28 0a 20 20 76 6f 69 _stmt_int(. voi
1d0b0 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 d * clientData,
1d0c0 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f /* Pointer to
1d0d0 20 53 51 4c 69 74 65 20 41 50 49 20 66 75 6e 63 SQLite API func
1d0e0 74 69 6f 6e 20 74 6f 20 62 65 20 69 6e 76 6f 6b tion to be invok
1d0f0 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 ed */. Tcl_Inte
1d100 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
1d110 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
1d120 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
1d130 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
1d140 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 t *pStmt;. int
1d150 63 6f 6c 3b 0a 20 20 69 6e 74 20 28 2a 78 46 75 col;. int (*xFu
1d160 6e 63 29 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 nc)(sqlite3_stmt
1d170 2a 2c 20 69 6e 74 29 3b 0a 0a 20 20 78 46 75 6e *, int);.. xFun
1d180 63 20 3d 20 28 69 6e 74 20 28 2a 29 28 73 71 6c c = (int (*)(sql
1d190 69 74 65 33 5f 73 74 6d 74 2a 2c 20 69 6e 74 29 ite3_stmt*, int)
1d1a0 29 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 69 )clientData;. i
1d1b0 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 f( objc!=3 ){.
1d1c0 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
1d1d0 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
1d1e0 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
1d1f0 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 be \"", .
1d200 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
1d210 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 bjv[0]), " STMT
1d220 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 column", 0);.
1d230 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1d240 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
1d250 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
1d260 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
1d270 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
1d280 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
1d290 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
1d2a0 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
1d2b0 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
1d2c0 2c 20 26 63 6f 6c 29 20 29 20 72 65 74 75 72 6e , &col) ) return
1d2d0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 54 TCL_ERROR;.. T
1d2e0 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
1d2f0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 interp, Tcl_NewI
1d300 6e 74 4f 62 6a 28 78 46 75 6e 63 28 70 53 74 6d ntObj(xFunc(pStm
1d310 74 2c 20 63 6f 6c 29 29 29 3b 0a 20 20 72 65 74 t, col)));. ret
1d320 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
1d330 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
1d340 69 74 65 5f 73 65 74 5f 6d 61 67 69 63 20 20 44 ite_set_magic D
1d350 42 20 20 4d 41 47 49 43 2d 4e 55 4d 42 45 52 0a B MAGIC-NUMBER.
1d360 2a 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20 64 62 **.** Set the db
1d370 2d 3e 6d 61 67 69 63 20 76 61 6c 75 65 2e 20 20 ->magic value.
1d380 54 68 69 73 20 69 73 20 75 73 65 64 20 74 6f 20 This is used to
1d390 74 65 73 74 20 65 72 72 6f 72 20 72 65 63 6f 76 test error recov
1d3a0 65 72 79 20 6c 6f 67 69 63 2e 0a 2a 2f 0a 73 74 ery logic..*/.st
1d3b0 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 65 5f atic int sqlite_
1d3c0 73 65 74 5f 6d 61 67 69 63 28 0a 20 20 76 6f 69 set_magic(. voi
1d3d0 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
1d3e0 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
1d3f0 74 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 67 63 terp,. int argc
1d400 2c 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 0a ,. char **argv.
1d410 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ){. sqlite3 *db
1d420 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 ;. if( argc!=3
1d430 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
1d440 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
1d450 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
1d460 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
1d470 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 20 20 gv[0],.
1d480 22 20 44 42 20 4d 41 47 49 43 22 2c 20 30 29 3b " DB MAGIC", 0);
1d490 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
1d4a0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
1d4b0 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
1d4c0 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 terp, argv[1], &
1d4d0 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
1d4e0 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 73 74 _ERROR;. if( st
1d4f0 72 63 6d 70 28 61 72 67 76 5b 32 5d 2c 20 22 53 rcmp(argv[2], "S
1d500 51 4c 49 54 45 5f 4d 41 47 49 43 5f 4f 50 45 4e QLITE_MAGIC_OPEN
1d510 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 64 62 2d ")==0 ){. db-
1d520 3e 6d 61 67 69 63 20 3d 20 53 51 4c 49 54 45 5f >magic = SQLITE_
1d530 4d 41 47 49 43 5f 4f 50 45 4e 3b 0a 20 20 7d 65 MAGIC_OPEN;. }e
1d540 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 61 lse if( strcmp(a
1d550 72 67 76 5b 32 5d 2c 20 22 53 51 4c 49 54 45 5f rgv[2], "SQLITE_
1d560 4d 41 47 49 43 5f 43 4c 4f 53 45 44 22 29 3d 3d MAGIC_CLOSED")==
1d570 30 20 29 7b 0a 20 20 20 20 64 62 2d 3e 6d 61 67 0 ){. db->mag
1d580 69 63 20 3d 20 53 51 4c 49 54 45 5f 4d 41 47 49 ic = SQLITE_MAGI
1d590 43 5f 43 4c 4f 53 45 44 3b 0a 20 20 7d 65 6c 73 C_CLOSED;. }els
1d5a0 65 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 e if( strcmp(arg
1d5b0 76 5b 32 5d 2c 20 22 53 51 4c 49 54 45 5f 4d 41 v[2], "SQLITE_MA
1d5c0 47 49 43 5f 42 55 53 59 22 29 3d 3d 30 20 29 7b GIC_BUSY")==0 ){
1d5d0 0a 20 20 20 20 64 62 2d 3e 6d 61 67 69 63 20 3d . db->magic =
1d5e0 20 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 42 55 SQLITE_MAGIC_BU
1d5f0 53 59 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 SY;. }else if(
1d600 73 74 72 63 6d 70 28 61 72 67 76 5b 32 5d 2c 20 strcmp(argv[2],
1d610 22 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 45 52 "SQLITE_MAGIC_ER
1d620 52 4f 52 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 ROR")==0 ){.
1d630 64 62 2d 3e 6d 61 67 69 63 20 3d 20 53 51 4c 49 db->magic = SQLI
1d640 54 45 5f 4d 41 47 49 43 5f 45 52 52 4f 52 3b 0a TE_MAGIC_ERROR;.
1d650 20 20 7d 65 6c 73 65 20 69 66 28 20 54 63 6c 5f }else if( Tcl_
1d660 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 GetInt(interp, a
1d670 72 67 76 5b 32 5d 2c 20 28 69 6e 74 2a 29 26 64 rgv[2], (int*)&d
1d680 62 2d 3e 6d 61 67 69 63 29 20 29 7b 0a 20 20 20 b->magic) ){.
1d690 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1d6a0 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 R;. }. return
1d6b0 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
1d6c0 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
1d6d0 5f 69 6e 74 65 72 72 75 70 74 20 20 44 42 20 0a _interrupt DB .
1d6e0 2a 2a 0a 2a 2a 20 54 72 69 67 67 65 72 20 61 6e **.** Trigger an
1d6f0 20 69 6e 74 65 72 72 75 70 74 20 6f 6e 20 44 42 interrupt on DB
1d700 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
1d710 65 73 74 5f 69 6e 74 65 72 72 75 70 74 28 0a 20 est_interrupt(.
1d720 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
1d730 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
1d740 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
1d750 61 72 67 63 2c 0a 20 20 63 68 61 72 20 2a 2a 61 argc,. char **a
1d760 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 rgv.){. sqlite3
1d770 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 72 67 63 *db;. if( argc
1d780 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=2 ){. Tcl_A
1d790 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1d7a0 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
1d7b0 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
1d7c0 2c 20 61 72 67 76 5b 30 5d 2c 20 22 20 44 42 22 , argv[0], " DB"
1d7d0 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
1d7e0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
1d7f0 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
1d800 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
1d810 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 1], &db) ) retur
1d820 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 n TCL_ERROR;. s
1d830 71 6c 69 74 65 33 5f 69 6e 74 65 72 72 75 70 74 qlite3_interrupt
1d840 28 64 62 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 (db);. return T
1d850 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 CL_OK;.}..static
1d860 20 75 38 20 2a 73 71 6c 69 74 65 33 5f 73 74 61 u8 *sqlite3_sta
1d870 63 6b 5f 62 61 73 65 6c 69 6e 65 20 3d 20 30 3b ck_baseline = 0;
1d880 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c 6c 20 74 68 65 ../*.** Fill the
1d890 20 73 74 61 63 6b 20 77 69 74 68 20 61 20 6b 6e stack with a kn
1d8a0 6f 77 6e 20 62 69 74 70 61 74 74 65 72 6e 2e 0a own bitpattern..
1d8b0 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 70 */.static void p
1d8c0 72 65 70 53 74 61 63 6b 28 76 6f 69 64 29 7b 0a repStack(void){.
1d8d0 20 20 69 6e 74 20 69 3b 0a 20 20 75 33 32 20 62 int i;. u32 b
1d8e0 69 67 42 75 66 5b 36 35 35 33 36 5d 3b 0a 20 20 igBuf[65536];.
1d8f0 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f for(i=0; i<sizeo
1d900 66 28 62 69 67 42 75 66 29 3b 20 69 2b 2b 29 20 f(bigBuf); i++)
1d910 62 69 67 42 75 66 5b 69 5d 20 3d 20 30 78 64 65 bigBuf[i] = 0xde
1d920 61 64 62 65 65 66 3b 0a 20 20 73 71 6c 69 74 65 adbeef;. sqlite
1d930 33 5f 73 74 61 63 6b 5f 62 61 73 65 6c 69 6e 65 3_stack_baseline
1d940 20 3d 20 28 75 38 2a 29 26 62 69 67 42 75 66 5b = (u8*)&bigBuf[
1d950 36 35 35 33 36 5d 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 65536];.}../*.**
1d960 20 47 65 74 20 74 68 65 20 63 75 72 72 65 6e 74 Get the current
1d970 20 73 74 61 63 6b 20 64 65 70 74 68 2e 20 20 55 stack depth. U
1d980 73 65 64 20 66 6f 72 20 64 65 62 75 67 67 69 6e sed for debuggin
1d990 67 20 6f 6e 6c 79 2e 0a 2a 2f 0a 75 36 34 20 73 g only..*/.u64 s
1d9a0 71 6c 69 74 65 33 53 74 61 63 6b 44 65 70 74 68 qlite3StackDepth
1d9b0 28 76 6f 69 64 29 7b 0a 20 20 75 38 20 78 3b 0a (void){. u8 x;.
1d9c0 20 20 72 65 74 75 72 6e 20 28 75 36 34 29 28 73 return (u64)(s
1d9d0 71 6c 69 74 65 33 5f 73 74 61 63 6b 5f 62 61 73 qlite3_stack_bas
1d9e0 65 6c 69 6e 65 20 2d 20 26 78 29 3b 0a 7d 0a 0a eline - &x);.}..
1d9f0 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
1da00 6c 69 74 65 33 5f 73 74 61 63 6b 5f 75 73 65 64 lite3_stack_used
1da10 20 44 42 20 53 51 4c 0a 2a 2a 0a 2a 2a 20 54 72 DB SQL.**.** Tr
1da20 79 20 74 6f 20 6d 65 61 73 75 72 65 20 74 68 65 y to measure the
1da30 20 61 6d 6f 75 6e 74 20 6f 66 20 73 74 61 63 6b amount of stack
1da40 20 73 70 61 63 65 20 75 73 65 64 20 62 79 20 61 space used by a
1da50 20 63 61 6c 6c 20 74 6f 20 73 71 6c 69 74 65 33 call to sqlite3
1da60 5f 65 78 65 63 0a 2a 2f 0a 73 74 61 74 69 63 20 _exec.*/.static
1da70 69 6e 74 20 74 65 73 74 5f 73 74 61 63 6b 5f 75 int test_stack_u
1da80 73 65 64 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c sed(. void * cl
1da90 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
1daa0 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
1dab0 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 68 int argc,. ch
1dac0 61 72 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 ar **argv.){. s
1dad0 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e qlite3 *db;. in
1dae0 74 20 69 3b 0a 20 20 69 66 28 20 61 72 67 63 21 t i;. if( argc!
1daf0 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =3 ){. Tcl_Ap
1db00 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1db10 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
1db20 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
1db30 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 argv[0], .
1db40 20 20 20 22 20 44 42 20 53 51 4c 22 2c 20 30 29 " DB SQL", 0)
1db50 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
1db60 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
1db70 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
1db80 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
1db90 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
1dba0 4c 5f 45 52 52 4f 52 3b 0a 20 20 70 72 65 70 53 L_ERROR;. prepS
1dbb0 74 61 63 6b 28 29 3b 0a 20 20 28 76 6f 69 64 29 tack();. (void)
1dbc0 73 71 6c 69 74 65 33 5f 65 78 65 63 28 64 62 2c sqlite3_exec(db,
1dbd0 20 61 72 67 76 5b 32 5d 2c 20 30 2c 20 30 2c 20 argv[2], 0, 0,
1dbe0 30 29 3b 0a 20 20 66 6f 72 28 69 3d 36 35 35 33 0);. for(i=6553
1dbf0 35 3b 20 69 3e 3d 30 20 26 26 20 28 28 75 33 32 5; i>=0 && ((u32
1dc00 2a 29 73 71 6c 69 74 65 33 5f 73 74 61 63 6b 5f *)sqlite3_stack_
1dc10 62 61 73 65 6c 69 6e 65 29 5b 2d 69 5d 3d 3d 30 baseline)[-i]==0
1dc20 78 64 65 61 64 62 65 65 66 3b 20 69 2d 2d 29 7b xdeadbeef; i--){
1dc30 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 }. Tcl_SetObjRe
1dc40 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
1dc50 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 2a 34 29 29 _NewIntObj(i*4))
1dc60 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
1dc70 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
1dc80 65 3a 20 73 71 6c 69 74 65 5f 64 65 6c 65 74 65 e: sqlite_delete
1dc90 5f 66 75 6e 63 74 69 6f 6e 20 44 42 20 66 75 6e _function DB fun
1dca0 63 74 69 6f 6e 2d 6e 61 6d 65 0a 2a 2a 0a 2a 2a ction-name.**.**
1dcb0 20 44 65 6c 65 74 65 20 74 68 65 20 75 73 65 72 Delete the user
1dcc0 20 66 75 6e 63 74 69 6f 6e 20 27 66 75 6e 63 74 function 'funct
1dcd0 69 6f 6e 2d 6e 61 6d 65 27 20 66 72 6f 6d 20 64 ion-name' from d
1dce0 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 44 atabase handle D
1dcf0 42 2e 20 49 74 0a 2a 2a 20 69 73 20 61 73 73 75 B. It.** is assu
1dd00 6d 65 64 20 74 68 61 74 20 74 68 65 20 75 73 65 med that the use
1dd10 72 20 66 75 6e 63 74 69 6f 6e 20 77 61 73 20 63 r function was c
1dd20 72 65 61 74 65 64 20 61 73 20 55 54 46 38 2c 20 reated as UTF8,
1dd30 61 6e 79 20 6e 75 6d 62 65 72 20 6f 66 0a 2a 2a any number of.**
1dd40 20 61 72 67 75 6d 65 6e 74 73 20 28 74 68 65 20 arguments (the
1dd50 77 61 79 20 74 68 65 20 54 43 4c 20 69 6e 74 65 way the TCL inte
1dd60 72 66 61 63 65 20 64 6f 65 73 20 69 74 29 2e 0a rface does it)..
1dd70 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 64 65 */.static int de
1dd80 6c 65 74 65 5f 66 75 6e 63 74 69 6f 6e 28 0a 20 lete_function(.
1dd90 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
1dda0 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
1ddb0 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
1ddc0 61 72 67 63 2c 0a 20 20 63 68 61 72 20 2a 2a 61 argc,. char **a
1ddd0 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b rgv.){. int rc;
1dde0 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
1ddf0 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b if( argc!=3 ){
1de00 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
1de10 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
1de20 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
1de30 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 uld be \"", argv
1de40 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 20 22 20 [0], . "
1de50 44 42 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 DB function-name
1de60 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
1de70 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
1de80 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
1de90 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 ter(interp, argv
1dea0 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 [1], &db) ) retu
1deb0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1dec0 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 rc = sqlite3_cre
1ded0 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c ate_function(db,
1dee0 20 61 72 67 76 5b 32 5d 2c 20 2d 31 2c 20 53 51 argv[2], -1, SQ
1def0 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 30 2c LITE_UTF8, 0, 0,
1df00 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 53 65 0, 0);. Tcl_Se
1df10 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
1df20 28 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e (char *)t1ErrorN
1df30 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 ame(rc), TCL_STA
1df40 54 49 43 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 TIC);. return T
1df50 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
1df60 55 73 61 67 65 3a 20 73 71 6c 69 74 65 5f 64 65 Usage: sqlite_de
1df70 6c 65 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 20 44 lete_collation D
1df80 42 20 63 6f 6c 6c 61 74 69 6f 6e 2d 6e 61 6d 65 B collation-name
1df90 0a 2a 2a 0a 2a 2a 20 44 65 6c 65 74 65 20 74 68 .**.** Delete th
1dfa0 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75 e collation sequ
1dfb0 65 6e 63 65 20 27 63 6f 6c 6c 61 74 69 6f 6e 2d ence 'collation-
1dfc0 6e 61 6d 65 27 20 66 72 6f 6d 20 64 61 74 61 62 name' from datab
1dfd0 61 73 65 20 68 61 6e 64 6c 65 20 0a 2a 2a 20 44 ase handle .** D
1dfe0 42 2e 20 49 74 20 69 73 20 61 73 73 75 6d 65 64 B. It is assumed
1dff0 20 74 68 61 74 20 74 68 65 20 63 6f 6c 6c 61 74 that the collat
1e000 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 77 61 73 ion sequence was
1e010 20 63 72 65 61 74 65 64 20 61 73 20 55 54 46 38 created as UTF8
1e020 20 28 74 68 65 20 0a 2a 2a 20 77 61 79 20 74 68 (the .** way th
1e030 65 20 54 43 4c 20 69 6e 74 65 72 66 61 63 65 20 e TCL interface
1e040 64 6f 65 73 20 69 74 29 2e 0a 2a 2f 0a 73 74 61 does it)..*/.sta
1e050 74 69 63 20 69 6e 74 20 64 65 6c 65 74 65 5f 63 tic int delete_c
1e060 6f 6c 6c 61 74 69 6f 6e 28 0a 20 20 76 6f 69 64 ollation(. void
1e070 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
1e080 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1e090 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c erp,. int argc,
1e0a0 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 0a 29 . char **argv.)
1e0b0 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 73 71 {. int rc;. sq
1e0c0 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 lite3 *db;. if(
1e0d0 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 argc!=3 ){.
1e0e0 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1e0f0 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
1e100 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
1e110 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 e \"", argv[0],
1e120 0a 20 20 20 20 20 20 20 20 22 20 44 42 20 66 75 . " DB fu
1e130 6e 63 74 69 6f 6e 2d 6e 61 6d 65 22 2c 20 30 29 nction-name", 0)
1e140 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
1e150 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
1e160 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
1e170 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
1e180 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 &db) ) return TC
1e190 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 L_ERROR;. rc =
1e1a0 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 sqlite3_create_c
1e1b0 6f 6c 6c 61 74 69 6f 6e 28 64 62 2c 20 61 72 67 ollation(db, arg
1e1c0 76 5b 32 5d 2c 20 53 51 4c 49 54 45 5f 55 54 46 v[2], SQLITE_UTF
1e1d0 38 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 8, 0, 0);. Tcl_
1e1e0 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
1e1f0 2c 20 28 63 68 61 72 20 2a 29 74 31 45 72 72 6f , (char *)t1Erro
1e200 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 rName(rc), TCL_S
1e210 54 41 54 49 43 29 3b 0a 20 20 72 65 74 75 72 6e TATIC);. return
1e220 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
1e230 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
1e240 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20 _get_autocommit
1e250 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 DB.**.** Return
1e260 74 72 75 65 20 69 66 20 74 68 65 20 64 61 74 61 true if the data
1e270 62 61 73 65 20 44 42 20 69 73 20 63 75 72 72 65 base DB is curre
1e280 6e 74 6c 79 20 69 6e 20 61 75 74 6f 2d 63 6f 6d ntly in auto-com
1e290 6d 69 74 20 6d 6f 64 65 2e 0a 2a 2a 20 52 65 74 mit mode..** Ret
1e2a0 75 72 6e 20 66 61 6c 73 65 20 69 66 20 6e 6f 74 urn false if not
1e2b0 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
1e2c0 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 28 0a get_autocommit(.
1e2d0 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
1e2e0 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
1e2f0 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
1e300 20 61 72 67 63 2c 0a 20 20 63 68 61 72 20 2a 2a argc,. char **
1e310 61 72 67 76 0a 29 7b 0a 20 20 63 68 61 72 20 7a argv.){. char z
1e320 42 75 66 5b 33 30 5d 3b 0a 20 20 73 71 6c 69 74 Buf[30];. sqlit
1e330 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 72 e3 *db;. if( ar
1e340 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c gc!=2 ){. Tcl
1e350 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1e360 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
1e370 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
1e380 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 "", argv[0], .
1e390 20 20 20 20 20 20 22 20 44 42 22 2c 20 30 29 3b " DB", 0);
1e3a0 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
1e3b0 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
1e3c0 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
1e3d0 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 terp, argv[1], &
1e3e0 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
1e3f0 5f 45 52 52 4f 52 3b 0a 20 20 73 70 72 69 6e 74 _ERROR;. sprint
1e400 66 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 73 71 f(zBuf, "%d", sq
1e410 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f lite3_get_autoco
1e420 6d 6d 69 74 28 64 62 29 29 3b 0a 20 20 54 63 6c mmit(db));. Tcl
1e430 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1e440 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a terp, zBuf, 0);.
1e450 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1e460 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
1e470 20 73 71 6c 69 74 65 33 5f 62 75 73 79 5f 74 69 sqlite3_busy_ti
1e480 6d 65 6f 75 74 20 44 42 20 4d 53 0a 2a 2a 0a 2a meout DB MS.**.*
1e490 2a 20 53 65 74 20 74 68 65 20 62 75 73 79 20 74 * Set the busy t
1e4a0 69 6d 65 6f 75 74 2e 20 20 54 68 69 73 20 69 73 imeout. This is
1e4b0 20 6d 6f 72 65 20 65 61 73 69 6c 79 20 64 6f 6e more easily don
1e4c0 65 20 75 73 69 6e 67 20 74 68 65 20 74 69 6d 65 e using the time
1e4d0 6f 75 74 0a 2a 2a 20 6d 65 74 68 6f 64 20 6f 66 out.** method of
1e4e0 20 74 68 65 20 54 43 4c 20 69 6e 74 65 72 66 61 the TCL interfa
1e4f0 63 65 2e 20 20 42 75 74 20 77 65 20 6e 65 65 64 ce. But we need
1e500 20 61 20 77 61 79 20 74 6f 20 74 65 73 74 20 74 a way to test t
1e510 68 65 20 63 61 73 65 0a 2a 2a 20 77 68 65 72 65 he case.** where
1e520 20 69 74 20 72 65 74 75 72 6e 73 20 53 51 4c 49 it returns SQLI
1e530 54 45 5f 4d 49 53 55 53 45 2e 0a 2a 2f 0a 73 74 TE_MISUSE..*/.st
1e540 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 75 atic int test_bu
1e550 73 79 5f 74 69 6d 65 6f 75 74 28 0a 20 20 76 6f sy_timeout(. vo
1e560 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
1e570 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1e580 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 61 72 67 nterp,. int arg
1e590 63 2c 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 c,. char **argv
1e5a0 0a 29 7b 0a 20 20 69 6e 74 20 72 63 2c 20 6d 73 .){. int rc, ms
1e5b0 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b ;. sqlite3 *db;
1e5c0 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 . if( argc!=3 )
1e5d0 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
1e5e0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
1e5f0 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
1e600 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
1e610 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 20 22 v[0], . "
1e620 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 DB", 0);. re
1e630 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1e640 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 }. if( getDbP
1e650 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 ointer(interp, a
1e660 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 rgv[1], &db) ) r
1e670 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1e680 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
1e690 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 t(interp, argv[2
1e6a0 5d 2c 20 26 6d 73 29 20 29 20 72 65 74 75 72 6e ], &ms) ) return
1e6b0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 TCL_ERROR;. rc
1e6c0 20 3d 20 73 71 6c 69 74 65 33 5f 62 75 73 79 5f = sqlite3_busy_
1e6d0 74 69 6d 65 6f 75 74 28 64 62 2c 20 6d 73 29 3b timeout(db, ms);
1e6e0 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 . Tcl_AppendRes
1e6f0 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 71 6c 69 ult(interp, sqli
1e700 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 te3TestErrorName
1e710 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 65 74 75 (rc), 0);. retu
1e720 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
1e730 0a 2a 2a 20 55 73 61 67 65 3a 20 20 74 63 6c 5f .** Usage: tcl_
1e740 76 61 72 69 61 62 6c 65 5f 74 79 70 65 20 56 41 variable_type VA
1e750 52 49 41 42 4c 45 4e 41 4d 45 0a 2a 2a 0a 2a 2a RIABLENAME.**.**
1e760 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 Return the name
1e770 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6e 61 6c of the internal
1e780 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 representation
1e790 66 6f 72 20 74 68 65 0a 2a 2a 20 76 61 6c 75 65 for the.** value
1e7a0 20 6f 66 20 74 68 65 20 67 69 76 65 6e 20 76 61 of the given va
1e7b0 72 69 61 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 riable..*/.stati
1e7c0 63 20 69 6e 74 20 74 63 6c 5f 76 61 72 69 61 62 c int tcl_variab
1e7d0 6c 65 5f 74 79 70 65 28 0a 20 20 76 6f 69 64 20 le_type(. void
1e7e0 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
1e7f0 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
1e800 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
1e810 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
1e820 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 54 63 6c objv[].){. Tcl
1e830 5f 4f 62 6a 20 2a 70 56 61 72 3b 0a 20 20 69 66 _Obj *pVar;. if
1e840 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
1e850 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
1e860 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
1e870 76 2c 20 22 56 41 52 49 41 42 4c 45 22 29 3b 0a v, "VARIABLE");.
1e880 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
1e890 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 70 56 61 72 RROR;. }. pVar
1e8a0 20 3d 20 54 63 6c 5f 47 65 74 56 61 72 32 45 78 = Tcl_GetVar2Ex
1e8b0 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
1e8c0 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
1e8d0 20 30 2c 20 54 43 4c 5f 4c 45 41 56 45 5f 45 52 0, TCL_LEAVE_ER
1e8e0 52 5f 4d 53 47 29 3b 0a 20 20 69 66 28 20 70 56 R_MSG);. if( pV
1e8f0 61 72 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 54 ar==0 ) return T
1e900 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
1e910 70 56 61 72 2d 3e 74 79 70 65 50 74 72 20 29 7b pVar->typePtr ){
1e920 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
1e930 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
1e940 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 l_NewStringObj(p
1e950 56 61 72 2d 3e 74 79 70 65 50 74 72 2d 3e 6e 61 Var->typePtr->na
1e960 6d 65 2c 20 2d 31 29 29 3b 0a 20 20 7d 0a 20 20 me, -1));. }.
1e970 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
1e980 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
1e990 73 71 6c 69 74 65 33 5f 72 65 6c 65 61 73 65 5f sqlite3_release_
1e9a0 6d 65 6d 6f 72 79 20 3f 4e 3f 0a 2a 2a 0a 2a 2a memory ?N?.**.**
1e9b0 20 41 74 74 65 6d 70 74 20 74 6f 20 72 65 6c 65 Attempt to rele
1e9c0 61 73 65 20 6d 65 6d 6f 72 79 20 63 75 72 72 65 ase memory curre
1e9d0 6e 74 6c 79 20 68 65 6c 64 20 62 75 74 20 6e 6f ntly held but no
1e9e0 74 20 61 63 74 75 61 6c 6c 79 20 72 65 71 75 69 t actually requi
1e9f0 72 65 64 2e 0a 2a 2a 20 54 68 65 20 69 6e 74 65 red..** The inte
1ea00 67 65 72 20 4e 20 69 73 20 74 68 65 20 6e 75 6d ger N is the num
1ea10 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 65 20 ber of bytes we
1ea20 61 72 65 20 74 72 79 69 6e 67 20 74 6f 20 72 65 are trying to re
1ea30 6c 65 61 73 65 2e 20 20 54 68 65 20 0a 2a 2a 20 lease. The .**
1ea40 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 return value is
1ea50 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 6d 65 the amount of me
1ea60 6d 6f 72 79 20 61 63 74 75 61 6c 6c 79 20 72 65 mory actually re
1ea70 6c 65 61 73 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 leased..*/.stati
1ea80 63 20 69 6e 74 20 74 65 73 74 5f 72 65 6c 65 61 c int test_relea
1ea90 73 65 5f 6d 65 6d 6f 72 79 28 0a 20 20 76 6f 69 se_memory(. voi
1eaa0 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
1eab0 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
1eac0 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
1ead0 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
1eae0 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 ST objv[].){.#if
1eaf0 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f defined(SQLITE_
1eb00 45 4e 41 42 4c 45 5f 4d 45 4d 4f 52 59 5f 4d 41 ENABLE_MEMORY_MA
1eb10 4e 41 47 45 4d 45 4e 54 29 20 26 26 20 21 64 65 NAGEMENT) && !de
1eb20 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d 49 fined(SQLITE_OMI
1eb30 54 5f 44 49 53 4b 49 4f 29 0a 20 20 69 6e 74 20 T_DISKIO). int
1eb40 4e 3b 0a 20 20 69 6e 74 20 61 6d 74 3b 0a 20 20 N;. int amt;.
1eb50 69 66 28 20 6f 62 6a 63 21 3d 31 20 26 26 20 6f if( objc!=1 && o
1eb60 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 bjc!=2 ){. Tc
1eb70 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
1eb80 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
1eb90 22 3f 4e 3f 22 29 3b 0a 20 20 20 20 72 65 74 75 "?N?");. retu
1eba0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1ebb0 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d 32 20 }. if( objc==2
1ebc0 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 ){. if( Tcl_G
1ebd0 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
1ebe0 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 4e erp, objv[1], &N
1ebf0 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
1ec00 52 52 4f 52 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 RROR;. }else{.
1ec10 20 20 20 4e 20 3d 20 2d 31 3b 0a 20 20 7d 0a 20 N = -1;. }.
1ec20 20 61 6d 74 20 3d 20 73 71 6c 69 74 65 33 5f 72 amt = sqlite3_r
1ec30 65 6c 65 61 73 65 5f 6d 65 6d 6f 72 79 28 4e 29 elease_memory(N)
1ec40 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. Tcl_SetObjRe
1ec50 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
1ec60 5f 4e 65 77 49 6e 74 4f 62 6a 28 61 6d 74 29 29 _NewIntObj(amt))
1ec70 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 ;.#endif. retur
1ec80 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
1ec90 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 ** Usage: sqlit
1eca0 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d e3_soft_heap_lim
1ecb0 69 74 20 3f 4e 3f 0a 2a 2a 0a 2a 2a 20 51 75 65 it ?N?.**.** Que
1ecc0 72 79 20 6f 72 20 73 65 74 20 74 68 65 20 73 6f ry or set the so
1ecd0 66 74 20 68 65 61 70 20 6c 69 6d 69 74 20 66 6f ft heap limit fo
1ece0 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 68 r the current th
1ecf0 72 65 61 64 2e 20 20 54 68 65 0a 2a 2a 20 6c 69 read. The.** li
1ed00 6d 69 74 20 69 73 20 6f 6e 6c 79 20 63 68 61 6e mit is only chan
1ed10 67 65 64 20 69 66 20 74 68 65 20 4e 20 69 73 20 ged if the N is
1ed20 70 72 65 73 65 6e 74 2e 20 20 54 68 65 20 70 72 present. The pr
1ed30 65 76 69 6f 75 73 20 6c 69 6d 69 74 0a 2a 2a 20 evious limit.**
1ed40 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2f 0a is returned..*/.
1ed50 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
1ed60 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 28 soft_heap_limit(
1ed70 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
1ed80 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
1ed90 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
1eda0 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
1edb0 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
1edc0 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 ){. sqlite3_int
1edd0 36 34 20 61 6d 74 3b 0a 20 20 73 71 6c 69 74 65 64 amt;. sqlite
1ede0 33 5f 69 6e 74 36 34 20 4e 20 3d 20 2d 31 3b 0a 3_int64 N = -1;.
1edf0 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 26 26 if( objc!=1 &&
1ee00 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
1ee10 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
1ee20 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
1ee30 2c 20 22 3f 4e 3f 22 29 3b 0a 20 20 20 20 72 65 , "?N?");. re
1ee40 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1ee50 20 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d }. if( objc==
1ee60 32 20 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 2 ){. if( Tcl
1ee70 5f 47 65 74 57 69 64 65 49 6e 74 46 72 6f 6d 4f _GetWideIntFromO
1ee80 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
1ee90 31 5d 2c 20 26 4e 29 20 29 20 72 65 74 75 72 6e 1], &N) ) return
1eea0 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
1eeb0 20 20 61 6d 74 20 3d 20 73 71 6c 69 74 65 33 5f amt = sqlite3_
1eec0 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 36 soft_heap_limit6
1eed0 34 28 4e 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 4(N);. Tcl_SetO
1eee0 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
1eef0 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f Tcl_NewWideIntO
1ef00 62 6a 28 61 6d 74 29 29 3b 0a 20 20 72 65 74 75 bj(amt));. retu
1ef10 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
1ef20 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c .** Usage: sql
1ef30 69 74 65 33 5f 74 68 72 65 61 64 5f 63 6c 65 61 ite3_thread_clea
1ef40 6e 75 70 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 74 nup.**.** Call t
1ef50 68 65 20 73 71 6c 69 74 65 33 5f 74 68 72 65 61 he sqlite3_threa
1ef60 64 5f 63 6c 65 61 6e 75 70 20 41 50 49 2e 0a 2a d_cleanup API..*
1ef70 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
1ef80 74 5f 74 68 72 65 61 64 5f 63 6c 65 61 6e 75 70 t_thread_cleanup
1ef90 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
1efa0 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
1efb0 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
1efc0 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
1efd0 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
1efe0 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 .){.#ifndef SQLI
1eff0 54 45 5f 4f 4d 49 54 5f 44 45 50 52 45 43 41 54 TE_OMIT_DEPRECAT
1f000 45 44 0a 20 20 73 71 6c 69 74 65 33 5f 74 68 72 ED. sqlite3_thr
1f010 65 61 64 5f 63 6c 65 61 6e 75 70 28 29 3b 0a 23 ead_cleanup();.#
1f020 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 54 endif. return T
1f030 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
1f040 55 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
1f050 5f 70 61 67 65 72 5f 72 65 66 63 6f 75 6e 74 73 _pager_refcounts
1f060 20 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 DB.**.** Retur
1f070 6e 20 61 20 6c 69 73 74 20 6f 66 20 6e 75 6d 62 n a list of numb
1f080 65 72 73 20 77 68 69 63 68 20 61 72 65 20 74 68 ers which are th
1f090 65 20 50 61 67 65 72 52 65 66 63 6f 75 6e 74 20 e PagerRefcount
1f0a0 66 6f 72 20 61 6c 6c 0a 2a 2a 20 70 61 67 65 72 for all.** pager
1f0b0 73 20 6f 6e 20 65 61 63 68 20 64 61 74 61 62 61 s on each databa
1f0c0 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 2a se connection..*
1f0d0 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
1f0e0 74 5f 70 61 67 65 72 5f 72 65 66 63 6f 75 6e 74 t_pager_refcount
1f0f0 73 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 s(. void * clie
1f100 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
1f110 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
1f120 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
1f130 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
1f140 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a ].){. sqlite3 *
1f150 64 62 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 db;. int i;. i
1f160 6e 74 20 76 2c 20 2a 61 3b 0a 20 20 54 63 6c 5f nt v, *a;. Tcl_
1f170 4f 62 6a 20 2a 70 52 65 73 75 6c 74 3b 0a 0a 20 Obj *pResult;..
1f180 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a if( objc!=2 ){.
1f190 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
1f1a0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
1f1b0 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
1f1c0 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 ld be \"",.
1f1d0 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
1f1e0 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c FromObj(objv[0],
1f1f0 20 30 29 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 0), " DB", 0);.
1f200 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
1f210 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
1f220 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
1f230 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
1f240 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
1f250 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
1f260 52 52 4f 52 3b 0a 20 20 70 52 65 73 75 6c 74 20 RROR;. pResult
1f270 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a = Tcl_NewObj();.
1f280 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 64 62 2d for(i=0; i<db-
1f290 3e 6e 44 62 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 >nDb; i++){.
1f2a0 69 66 28 20 64 62 2d 3e 61 44 62 5b 69 5d 2e 70 if( db->aDb[i].p
1f2b0 42 74 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 76 Bt==0 ){. v
1f2c0 20 3d 20 2d 31 3b 0a 20 20 20 20 7d 65 6c 73 65 = -1;. }else
1f2d0 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f {. sqlite3_
1f2e0 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 2d 3e mutex_enter(db->
1f2f0 6d 75 74 65 78 29 3b 0a 20 20 20 20 20 20 61 20 mutex);. a
1f300 3d 20 73 71 6c 69 74 65 33 50 61 67 65 72 53 74 = sqlite3PagerSt
1f310 61 74 73 28 73 71 6c 69 74 65 33 42 74 72 65 65 ats(sqlite3Btree
1f320 50 61 67 65 72 28 64 62 2d 3e 61 44 62 5b 69 5d Pager(db->aDb[i]
1f330 2e 70 42 74 29 29 3b 0a 20 20 20 20 20 20 76 20 .pBt));. v
1f340 3d 20 61 5b 30 5d 3b 0a 20 20 20 20 20 20 73 71 = a[0];. sq
1f350 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 lite3_mutex_leav
1f360 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 e(db->mutex);.
1f370 20 20 7d 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 }. Tcl_List
1f380 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1f390 28 30 2c 20 70 52 65 73 75 6c 74 2c 20 54 63 6c (0, pResult, Tcl
1f3a0 5f 4e 65 77 49 6e 74 4f 62 6a 28 76 29 29 3b 0a _NewIntObj(v));.
1f3b0 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a }. Tcl_SetObj
1f3c0 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 Result(interp, p
1f3d0 52 65 73 75 6c 74 29 3b 0a 20 20 72 65 74 75 72 Result);. retur
1f3e0 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a n TCL_OK;.}.../*
1f3f0 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 77 6f .** tclcmd: wo
1f400 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e 74 0a rking_64bit_int.
1f410 2a 2a 0a 2a 2a 20 53 6f 6d 65 20 54 43 4c 20 62 **.** Some TCL b
1f420 75 69 6c 64 73 20 28 65 78 3a 20 63 79 67 77 69 uilds (ex: cygwi
1f430 6e 29 20 64 6f 20 6e 6f 74 20 73 75 70 70 6f 72 n) do not suppor
1f440 74 20 36 34 2d 62 69 74 20 69 6e 74 65 67 65 72 t 64-bit integer
1f450 73 2e 20 20 54 68 69 73 0a 2a 2a 20 6c 65 61 64 s. This.** lead
1f460 73 20 74 6f 20 61 20 6e 75 6d 62 65 72 20 6f 66 s to a number of
1f470 20 74 65 73 74 20 66 61 69 6c 75 72 65 73 2e 20 test failures.
1f480 20 54 68 65 20 70 72 65 73 65 6e 74 20 63 6f 6d The present com
1f490 6d 61 6e 64 20 63 68 65 63 6b 73 20 74 68 65 0a mand checks the.
1f4a0 2a 2a 20 54 43 4c 20 62 75 69 6c 64 20 74 6f 20 ** TCL build to
1f4b0 73 65 65 20 77 68 65 74 68 65 72 20 6f 72 20 6e see whether or n
1f4c0 6f 74 20 69 74 20 73 75 70 70 6f 72 74 73 20 36 ot it supports 6
1f4d0 34 2d 62 69 74 20 69 6e 74 65 67 65 72 73 2e 20 4-bit integers.
1f4e0 20 49 74 0a 2a 2a 20 72 65 74 75 72 6e 73 20 54 It.** returns T
1f4f0 52 55 45 20 69 66 20 69 74 20 64 6f 65 73 20 61 RUE if it does a
1f500 6e 64 20 46 41 4c 53 45 20 69 66 20 6e 6f 74 2e nd FALSE if not.
1f510 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 63 6f 6d 6d .**.** This comm
1f520 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 77 and is used to w
1f530 61 72 6e 20 75 73 65 72 73 20 74 68 61 74 20 74 arn users that t
1f540 68 65 69 72 20 54 43 4c 20 62 75 69 6c 64 20 69 heir TCL build i
1f550 73 20 64 65 66 65 63 74 69 76 65 0a 2a 2a 20 61 s defective.** a
1f560 6e 64 20 74 68 61 74 20 74 68 65 20 65 72 72 6f nd that the erro
1f570 72 73 20 74 68 65 79 20 61 72 65 20 73 65 65 69 rs they are seei
1f580 6e 67 20 69 6e 20 74 68 65 20 74 65 73 74 20 73 ng in the test s
1f590 63 72 69 70 74 73 20 6d 69 67 68 74 20 62 65 0a cripts might be.
1f5a0 2a 2a 20 61 20 72 65 73 75 6c 74 20 6f 66 20 74 ** a result of t
1f5b0 68 65 69 72 20 64 65 66 65 63 74 69 76 65 20 54 heir defective T
1f5c0 43 4c 20 72 61 74 68 65 72 20 74 68 61 6e 20 70 CL rather than p
1f5d0 72 6f 62 6c 65 6d 73 20 69 6e 20 53 51 4c 69 74 roblems in SQLit
1f5e0 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 e..*/.static int
1f5f0 20 77 6f 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 working_64bit_i
1f600 6e 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 nt(. ClientData
1f610 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 clientData, /*
1f620 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 Pointer to sqlit
1f630 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 e3_enable_XXX fu
1f640 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f nction */. Tcl_
1f650 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
1f660 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
1f670 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
1f680 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
1f690 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a and */. int obj
1f6a0 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
1f6b0 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
1f6c0 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f uments */. Tcl_
1f6d0 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
1f6e0 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 ] /* Command ar
1f6f0 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 guments */.){.
1f700 54 63 6c 5f 4f 62 6a 20 2a 70 54 65 73 74 4f 62 Tcl_Obj *pTestOb
1f710 6a 3b 0a 20 20 69 6e 74 20 77 6f 72 6b 69 6e 67 j;. int working
1f720 20 3d 20 30 3b 0a 0a 20 20 70 54 65 73 74 4f 62 = 0;.. pTestOb
1f730 6a 20 3d 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 j = Tcl_NewWideI
1f740 6e 74 4f 62 6a 28 31 30 30 30 30 30 30 2a 28 69 ntObj(1000000*(i
1f750 36 34 29 31 32 33 34 35 36 37 38 39 30 29 3b 0a 64)1234567890);.
1f760 20 20 77 6f 72 6b 69 6e 67 20 3d 20 73 74 72 63 working = strc
1f770 6d 70 28 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 mp(Tcl_GetString
1f780 28 70 54 65 73 74 4f 62 6a 29 2c 20 22 31 32 33 (pTestObj), "123
1f790 34 35 36 37 38 39 30 30 30 30 30 30 30 22 29 3d 4567890000000")=
1f7a0 3d 30 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 =0;. Tcl_DecrRe
1f7b0 66 43 6f 75 6e 74 28 70 54 65 73 74 4f 62 6a 29 fCount(pTestObj)
1f7c0 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. Tcl_SetObjRe
1f7d0 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
1f7e0 5f 4e 65 77 42 6f 6f 6c 65 61 6e 4f 62 6a 28 77 _NewBooleanObj(w
1f7f0 6f 72 6b 69 6e 67 29 29 3b 0a 20 20 72 65 74 75 orking));. retu
1f800 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f rn TCL_OK;.}.../
1f810 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 76 *.** tclcmd: v
1f820 66 73 5f 75 6e 6c 69 6e 6b 5f 74 65 73 74 0a 2a fs_unlink_test.*
1f830 2a 0a 2a 2a 20 54 68 69 73 20 54 43 4c 20 63 6f *.** This TCL co
1f840 6d 6d 61 6e 64 20 75 6e 72 65 67 69 73 74 65 72 mmand unregister
1f850 73 20 74 68 65 20 70 72 69 6d 61 72 79 20 56 46 s the primary VF
1f860 53 20 61 6e 64 20 74 68 65 6e 20 72 65 67 69 73 S and then regis
1f870 74 65 72 73 0a 2a 2a 20 69 74 20 62 61 63 6b 20 ters.** it back
1f880 61 67 61 69 6e 2e 20 20 54 68 69 73 20 69 73 20 again. This is
1f890 75 73 65 64 20 74 6f 20 74 65 73 74 20 74 68 65 used to test the
1f8a0 20 61 62 69 6c 69 74 79 20 74 6f 20 72 65 67 69 ability to regi
1f8b0 73 74 65 72 20 61 0a 2a 2a 20 56 46 53 20 77 68 ster a.** VFS wh
1f8c0 65 6e 20 6e 6f 6e 65 20 61 72 65 20 70 72 65 76 en none are prev
1f8d0 69 6f 75 73 6c 79 20 72 65 67 69 73 74 65 72 65 iously registere
1f8e0 64 2c 20 61 6e 64 20 74 68 65 20 61 62 69 6c 69 d, and the abili
1f8f0 74 79 20 74 6f 20 0a 2a 2a 20 75 6e 72 65 67 69 ty to .** unregi
1f900 73 74 65 72 20 74 68 65 20 6f 6e 6c 79 20 61 76 ster the only av
1f910 61 69 6c 61 62 6c 65 20 56 46 53 2e 20 20 54 69 ailable VFS. Ti
1f920 63 6b 65 74 20 23 32 37 33 38 0a 2a 2f 0a 73 74 cket #2738.*/.st
1f930 61 74 69 63 20 69 6e 74 20 76 66 73 5f 75 6e 6c atic int vfs_unl
1f940 69 6e 6b 5f 74 65 73 74 28 0a 20 20 43 6c 69 65 ink_test(. Clie
1f950 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
1f960 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f a, /* Pointer to
1f970 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f sqlite3_enable_
1f980 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a XXX function */.
1f990 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
1f9a0 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
1f9b0 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
1f9c0 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
1f9d0 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
1f9e0 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 nt objc,
1f9f0 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
1fa00 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
1fa10 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
1fa20 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d objv[] /* Comm
1fa30 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f and arguments */
1fa40 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 73 .){. int i;. s
1fa50 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 4d 61 69 qlite3_vfs *pMai
1fa60 6e 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 n;. sqlite3_vfs
1fa70 20 2a 61 70 56 66 73 5b 32 30 5d 3b 0a 20 20 73 *apVfs[20];. s
1fa80 71 6c 69 74 65 33 5f 76 66 73 20 6f 6e 65 2c 20 qlite3_vfs one,
1fa90 74 77 6f 3b 0a 0a 20 20 73 71 6c 69 74 65 33 5f two;.. sqlite3_
1faa0 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 28 30 vfs_unregister(0
1fab0 29 3b 20 20 20 2f 2a 20 55 6e 72 65 67 69 73 74 ); /* Unregist
1fac0 65 72 20 6f 66 20 4e 55 4c 4c 20 69 73 20 68 61 er of NULL is ha
1fad0 72 6d 6c 65 73 73 20 2a 2f 0a 20 20 6f 6e 65 2e rmless */. one.
1fae0 7a 4e 61 6d 65 20 3d 20 22 5f 5f 6f 6e 65 22 3b zName = "__one";
1faf0 0a 20 20 74 77 6f 2e 7a 4e 61 6d 65 20 3d 20 22 . two.zName = "
1fb00 5f 5f 74 77 6f 22 3b 0a 0a 20 20 2f 2a 20 43 61 __two";.. /* Ca
1fb10 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 76 66 lling sqlite3_vf
1fb20 73 5f 72 65 67 69 73 74 65 72 20 77 69 74 68 20 s_register with
1fb30 32 6e 64 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 2nd argument of
1fb40 30 20 64 6f 65 73 20 6e 6f 74 0a 20 20 2a 2a 20 0 does not. **
1fb50 63 68 61 6e 67 65 20 74 68 65 20 64 65 66 61 75 change the defau
1fb60 6c 74 20 56 46 53 0a 20 20 2a 2f 0a 20 20 70 4d lt VFS. */. pM
1fb70 61 69 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 66 ain = sqlite3_vf
1fb80 73 5f 66 69 6e 64 28 30 29 3b 0a 20 20 73 71 6c s_find(0);. sql
1fb90 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65 ite3_vfs_registe
1fba0 72 28 26 6f 6e 65 2c 20 30 29 3b 0a 20 20 61 73 r(&one, 0);. as
1fbb0 73 65 72 74 28 20 70 4d 61 69 6e 3d 3d 30 20 7c sert( pMain==0 |
1fbc0 7c 20 70 4d 61 69 6e 3d 3d 73 71 6c 69 74 65 33 | pMain==sqlite3
1fbd0 5f 76 66 73 5f 66 69 6e 64 28 30 29 20 29 3b 0a _vfs_find(0) );.
1fbe0 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 sqlite3_vfs_re
1fbf0 67 69 73 74 65 72 28 26 74 77 6f 2c 20 30 29 3b gister(&two, 0);
1fc00 0a 20 20 61 73 73 65 72 74 28 20 70 4d 61 69 6e . assert( pMain
1fc10 3d 3d 30 20 7c 7c 20 70 4d 61 69 6e 3d 3d 73 71 ==0 || pMain==sq
1fc20 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 lite3_vfs_find(0
1fc30 29 20 29 3b 0a 0a 20 20 2f 2a 20 57 65 20 63 61 ) );.. /* We ca
1fc40 6e 20 66 69 6e 64 20 61 20 56 46 53 20 62 79 20 n find a VFS by
1fc50 69 74 73 20 6e 61 6d 65 20 2a 2f 0a 20 20 61 73 its name */. as
1fc60 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 66 sert( sqlite3_vf
1fc70 73 5f 66 69 6e 64 28 22 5f 5f 6f 6e 65 22 29 3d s_find("__one")=
1fc80 3d 26 6f 6e 65 20 29 3b 0a 20 20 61 73 73 65 72 =&one );. asser
1fc90 74 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 t( sqlite3_vfs_f
1fca0 69 6e 64 28 22 5f 5f 74 77 6f 22 29 3d 3d 26 74 ind("__two")==&t
1fcb0 77 6f 20 29 3b 0a 0a 20 20 2f 2a 20 43 61 6c 6c wo );.. /* Call
1fcc0 69 6e 67 20 73 71 6c 69 74 65 5f 76 66 73 5f 72 ing sqlite_vfs_r
1fcd0 65 67 69 73 74 65 72 20 77 69 74 68 20 6e 6f 6e egister with non
1fce0 2d 7a 65 72 6f 20 73 65 63 6f 6e 64 20 70 61 72 -zero second par
1fcf0 61 6d 65 74 65 72 20 63 68 61 6e 67 65 73 20 74 ameter changes t
1fd00 68 65 0a 20 20 2a 2a 20 64 65 66 61 75 6c 74 20 he. ** default
1fd10 56 46 53 2c 20 65 76 65 6e 20 69 66 20 74 68 65 VFS, even if the
1fd20 20 31 73 74 20 70 61 72 61 6d 65 74 65 72 20 69 1st parameter i
1fd30 73 20 61 6e 20 65 78 69 73 74 69 67 20 56 46 53 s an existig VFS
1fd40 20 74 68 61 74 20 69 73 0a 20 20 2a 2a 20 70 72 that is. ** pr
1fd50 65 76 69 6f 75 73 6c 79 20 72 65 67 69 73 74 65 eviously registe
1fd60 72 65 64 20 61 73 20 74 68 65 20 6e 6f 6e 2d 64 red as the non-d
1fd70 65 66 61 75 6c 74 2e 0a 20 20 2a 2f 0a 20 20 73 efault.. */. s
1fd80 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 qlite3_vfs_regis
1fd90 74 65 72 28 26 6f 6e 65 2c 20 31 29 3b 0a 20 20 ter(&one, 1);.
1fda0 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f assert( sqlite3_
1fdb0 76 66 73 5f 66 69 6e 64 28 22 5f 5f 6f 6e 65 22 vfs_find("__one"
1fdc0 29 3d 3d 26 6f 6e 65 20 29 3b 0a 20 20 61 73 73 )==&one );. ass
1fdd0 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 66 73 ert( sqlite3_vfs
1fde0 5f 66 69 6e 64 28 22 5f 5f 74 77 6f 22 29 3d 3d _find("__two")==
1fdf0 26 74 77 6f 20 29 3b 0a 20 20 61 73 73 65 72 74 &two );. assert
1fe00 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 ( sqlite3_vfs_fi
1fe10 6e 64 28 30 29 3d 3d 26 6f 6e 65 20 29 3b 0a 20 nd(0)==&one );.
1fe20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 sqlite3_vfs_reg
1fe30 69 73 74 65 72 28 26 74 77 6f 2c 20 31 29 3b 0a ister(&two, 1);.
1fe40 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 assert( sqlite
1fe50 33 5f 76 66 73 5f 66 69 6e 64 28 22 5f 5f 6f 6e 3_vfs_find("__on
1fe60 65 22 29 3d 3d 26 6f 6e 65 20 29 3b 0a 20 20 61 e")==&one );. a
1fe70 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 ssert( sqlite3_v
1fe80 66 73 5f 66 69 6e 64 28 22 5f 5f 74 77 6f 22 29 fs_find("__two")
1fe90 3d 3d 26 74 77 6f 20 29 3b 0a 20 20 61 73 73 65 ==&two );. asse
1fea0 72 74 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f rt( sqlite3_vfs_
1feb0 66 69 6e 64 28 30 29 3d 3d 26 74 77 6f 20 29 3b find(0)==&two );
1fec0 0a 20 20 69 66 28 20 70 4d 61 69 6e 20 29 7b 0a . if( pMain ){.
1fed0 20 20 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f sqlite3_vfs_
1fee0 72 65 67 69 73 74 65 72 28 70 4d 61 69 6e 2c 20 register(pMain,
1fef0 31 29 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 1);. assert(
1ff00 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 sqlite3_vfs_find
1ff10 28 22 5f 5f 6f 6e 65 22 29 3d 3d 26 6f 6e 65 20 ("__one")==&one
1ff20 29 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 73 );. assert( s
1ff30 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 qlite3_vfs_find(
1ff40 22 5f 5f 74 77 6f 22 29 3d 3d 26 74 77 6f 20 29 "__two")==&two )
1ff50 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 73 71 ;. assert( sq
1ff60 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 lite3_vfs_find(0
1ff70 29 3d 3d 70 4d 61 69 6e 20 29 3b 0a 20 20 7d 0a )==pMain );. }.
1ff80 20 20 0a 20 20 2f 2a 20 55 6e 6c 69 6e 6b 20 74 . /* Unlink t
1ff90 68 65 20 64 65 66 61 75 6c 74 20 56 46 53 2e 20 he default VFS.
1ffa0 20 52 65 70 65 61 74 20 75 6e 74 69 6c 20 74 68 Repeat until th
1ffb0 65 72 65 20 61 72 65 20 6e 6f 20 6d 6f 72 65 20 ere are no more
1ffc0 56 46 53 65 73 0a 20 20 2a 2a 20 72 65 67 69 73 VFSes. ** regis
1ffd0 74 65 72 65 64 2e 0a 20 20 2a 2f 0a 20 20 66 6f tered.. */. fo
1ffe0 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 r(i=0; i<sizeof(
1fff0 61 70 56 66 73 29 2f 73 69 7a 65 6f 66 28 61 70 apVfs)/sizeof(ap
20000 56 66 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 Vfs[0]); i++){.
20010 20 20 20 61 70 56 66 73 5b 69 5d 20 3d 20 73 71 apVfs[i] = sq
20020 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 lite3_vfs_find(0
20030 29 3b 0a 20 20 20 20 69 66 28 20 61 70 56 66 73 );. if( apVfs
20040 5b 69 5d 20 29 7b 0a 20 20 20 20 20 20 61 73 73 [i] ){. ass
20050 65 72 74 28 20 61 70 56 66 73 5b 69 5d 3d 3d 73 ert( apVfs[i]==s
20060 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 qlite3_vfs_find(
20070 61 70 56 66 73 5b 69 5d 2d 3e 7a 4e 61 6d 65 29 apVfs[i]->zName)
20080 20 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 );. sqlite
20090 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 3_vfs_unregister
200a0 28 61 70 56 66 73 5b 69 5d 29 3b 0a 20 20 20 20 (apVfs[i]);.
200b0 20 20 61 73 73 65 72 74 28 20 30 3d 3d 73 71 6c assert( 0==sql
200c0 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 61 70 ite3_vfs_find(ap
200d0 56 66 73 5b 69 5d 2d 3e 7a 4e 61 6d 65 29 20 29 Vfs[i]->zName) )
200e0 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 61 73 ;. }. }. as
200f0 73 65 72 74 28 20 30 3d 3d 73 71 6c 69 74 65 33 sert( 0==sqlite3
20100 5f 76 66 73 5f 66 69 6e 64 28 30 29 20 29 3b 0a _vfs_find(0) );.
20110 20 20 0a 20 20 2f 2a 20 52 65 67 69 73 74 65 72 . /* Register
20120 20 74 68 65 20 6d 61 69 6e 20 56 46 53 20 61 73 the main VFS as
20130 20 6e 6f 6e 2d 64 65 66 61 75 6c 74 20 28 77 69 non-default (wi
20140 6c 6c 20 62 65 20 6d 61 64 65 20 64 65 66 61 75 ll be made defau
20150 6c 74 2c 20 73 69 6e 63 65 0a 20 20 2a 2a 20 69 lt, since. ** i
20160 74 27 6c 6c 20 62 65 20 74 68 65 20 6f 6e 6c 79 t'll be the only
20170 20 6f 6e 65 20 69 6e 20 65 78 69 73 74 65 6e 63 one in existenc
20180 65 29 2e 0a 20 20 2a 2f 0a 20 20 73 71 6c 69 74 e).. */. sqlit
20190 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65 72 28 e3_vfs_register(
201a0 70 4d 61 69 6e 2c 20 30 29 3b 0a 20 20 61 73 73 pMain, 0);. ass
201b0 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 66 73 ert( sqlite3_vfs
201c0 5f 66 69 6e 64 28 30 29 3d 3d 70 4d 61 69 6e 20 _find(0)==pMain
201d0 29 3b 0a 20 20 0a 20 20 2f 2a 20 55 6e 2d 72 65 );. . /* Un-re
201e0 67 69 73 74 65 72 20 74 68 65 20 6d 61 69 6e 20 gister the main
201f0 56 46 53 20 61 67 61 69 6e 20 74 6f 20 72 65 73 VFS again to res
20200 74 6f 72 65 20 61 6e 20 65 6d 70 74 79 20 56 46 tore an empty VF
20210 53 20 6c 69 73 74 20 2a 2f 0a 20 20 73 71 6c 69 S list */. sqli
20220 74 65 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 te3_vfs_unregist
20230 65 72 28 70 4d 61 69 6e 29 3b 0a 20 20 61 73 73 er(pMain);. ass
20240 65 72 74 28 20 30 3d 3d 73 71 6c 69 74 65 33 5f ert( 0==sqlite3_
20250 76 66 73 5f 66 69 6e 64 28 30 29 20 29 3b 0a 0a vfs_find(0) );..
20260 20 20 2f 2a 20 52 65 6c 69 6e 6b 20 61 6c 6c 20 /* Relink all
20270 56 46 53 65 73 20 69 6e 20 72 65 76 65 72 73 65 VFSes in reverse
20280 20 6f 72 64 65 72 2e 20 2a 2f 20 20 0a 20 20 66 order. */ . f
20290 6f 72 28 69 3d 73 69 7a 65 6f 66 28 61 70 56 66 or(i=sizeof(apVf
202a0 73 29 2f 73 69 7a 65 6f 66 28 61 70 56 66 73 5b s)/sizeof(apVfs[
202b0 30 5d 29 2d 31 3b 20 69 3e 3d 30 3b 20 69 2d 2d 0])-1; i>=0; i--
202c0 29 7b 0a 20 20 20 20 69 66 28 20 61 70 56 66 73 ){. if( apVfs
202d0 5b 69 5d 20 29 7b 0a 20 20 20 20 20 20 73 71 6c [i] ){. sql
202e0 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65 ite3_vfs_registe
202f0 72 28 61 70 56 66 73 5b 69 5d 2c 20 31 29 3b 0a r(apVfs[i], 1);.
20300 20 20 20 20 20 20 61 73 73 65 72 74 28 20 61 70 assert( ap
20310 56 66 73 5b 69 5d 3d 3d 73 71 6c 69 74 65 33 5f Vfs[i]==sqlite3_
20320 76 66 73 5f 66 69 6e 64 28 30 29 20 29 3b 0a 20 vfs_find(0) );.
20330 20 20 20 20 20 61 73 73 65 72 74 28 20 61 70 56 assert( apV
20340 66 73 5b 69 5d 3d 3d 73 71 6c 69 74 65 33 5f 76 fs[i]==sqlite3_v
20350 66 73 5f 66 69 6e 64 28 61 70 56 66 73 5b 69 5d fs_find(apVfs[i]
20360 2d 3e 7a 4e 61 6d 65 29 20 29 3b 0a 20 20 20 20 ->zName) );.
20370 7d 0a 20 20 7d 0a 0a 20 20 2f 2a 20 55 6e 72 65 }. }.. /* Unre
20380 67 69 73 74 65 72 20 6f 75 74 20 73 61 6d 70 6c gister out sampl
20390 65 20 56 46 53 65 73 2e 20 2a 2f 0a 20 20 73 71 e VFSes. */. sq
203a0 6c 69 74 65 33 5f 76 66 73 5f 75 6e 72 65 67 69 lite3_vfs_unregi
203b0 73 74 65 72 28 26 6f 6e 65 29 3b 0a 20 20 73 71 ster(&one);. sq
203c0 6c 69 74 65 33 5f 76 66 73 5f 75 6e 72 65 67 69 lite3_vfs_unregi
203d0 73 74 65 72 28 26 74 77 6f 29 3b 0a 0a 20 20 2f ster(&two);.. /
203e0 2a 20 55 6e 72 65 67 69 73 74 65 72 69 6e 67 20 * Unregistering
203f0 61 20 56 46 53 20 74 68 61 74 20 69 73 20 6e 6f a VFS that is no
20400 74 20 63 75 72 72 65 6e 74 6c 79 20 72 65 67 69 t currently regi
20410 73 74 65 72 65 64 20 69 73 20 68 61 72 6d 6c 65 stered is harmle
20420 73 73 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f ss */. sqlite3_
20430 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 28 26 vfs_unregister(&
20440 6f 6e 65 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f one);. sqlite3_
20450 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 28 26 vfs_unregister(&
20460 74 77 6f 29 3b 0a 20 20 61 73 73 65 72 74 28 20 two);. assert(
20470 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 sqlite3_vfs_find
20480 28 22 5f 5f 6f 6e 65 22 29 3d 3d 30 20 29 3b 0a ("__one")==0 );.
20490 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65 assert( sqlite
204a0 33 5f 76 66 73 5f 66 69 6e 64 28 22 5f 5f 74 77 3_vfs_find("__tw
204b0 6f 22 29 3d 3d 30 20 29 3b 0a 0a 20 20 2f 2a 20 o")==0 );.. /*
204c0 57 65 20 73 68 6f 75 6c 64 20 62 65 20 6c 65 66 We should be lef
204d0 74 20 77 69 74 68 20 74 68 65 20 6f 72 69 67 69 t with the origi
204e0 6e 61 6c 20 64 65 66 61 75 6c 74 20 56 46 53 20 nal default VFS
204f0 62 61 63 6b 20 61 73 20 74 68 65 0a 20 20 2a 2a back as the. **
20500 20 6f 72 69 67 69 6e 61 6c 20 2a 2f 0a 20 20 61 original */. a
20510 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 ssert( sqlite3_v
20520 66 73 5f 66 69 6e 64 28 30 29 3d 3d 70 4d 61 69 fs_find(0)==pMai
20530 6e 20 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 n );.. return T
20540 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
20550 74 63 6c 63 6d 64 3a 20 20 20 76 66 73 5f 69 6e tclcmd: vfs_in
20560 69 74 66 61 69 6c 5f 74 65 73 74 0a 2a 2a 0a 2a itfail_test.**.*
20570 2a 20 54 68 69 73 20 54 43 4c 20 63 6f 6d 6d 61 * This TCL comma
20580 6e 64 20 61 74 74 65 6d 70 74 73 20 74 6f 20 76 nd attempts to v
20590 66 73 5f 66 69 6e 64 20 61 6e 64 20 76 66 73 5f fs_find and vfs_
205a0 72 65 67 69 73 74 65 72 20 77 68 65 6e 20 74 68 register when th
205b0 65 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 69 6e 69 e.** sqlite3_ini
205c0 74 69 61 6c 69 7a 65 28 29 20 69 6e 74 65 72 66 tialize() interf
205d0 61 63 65 20 69 73 20 66 61 69 6c 69 6e 67 2e 20 ace is failing.
205e0 20 41 6c 6c 20 63 61 6c 6c 73 20 73 68 6f 75 6c All calls shoul
205f0 64 20 66 61 69 6c 2e 0a 2a 2f 0a 73 74 61 74 69 d fail..*/.stati
20600 63 20 69 6e 74 20 76 66 73 5f 69 6e 69 74 66 61 c int vfs_initfa
20610 69 6c 5f 74 65 73 74 28 0a 20 20 43 6c 69 65 6e il_test(. Clien
20620 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
20630 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 , /* Pointer to
20640 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 sqlite3_enable_X
20650 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 XX function */.
20660 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
20670 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
20680 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
20690 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
206a0 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
206b0 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 t objc,
206c0 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
206d0 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
206e0 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
206f0 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 objv[] /* Comma
20700 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a nd arguments */.
20710 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 ){. sqlite3_vfs
20720 20 6f 6e 65 3b 0a 20 20 6f 6e 65 2e 7a 4e 61 6d one;. one.zNam
20730 65 20 3d 20 22 5f 5f 6f 6e 65 22 3b 0a 0a 20 20 e = "__one";..
20740 69 66 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f if( sqlite3_vfs_
20750 66 69 6e 64 28 30 29 20 29 20 72 65 74 75 72 6e find(0) ) return
20760 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71 TCL_ERROR;. sq
20770 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 74 lite3_vfs_regist
20780 65 72 28 26 6f 6e 65 2c 20 30 29 3b 0a 20 20 69 er(&one, 0);. i
20790 66 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 f( sqlite3_vfs_f
207a0 69 6e 64 28 30 29 20 29 20 72 65 74 75 72 6e 20 ind(0) ) return
207b0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c TCL_ERROR;. sql
207c0 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65 ite3_vfs_registe
207d0 72 28 26 6f 6e 65 2c 20 31 29 3b 0a 20 20 69 66 r(&one, 1);. if
207e0 28 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 ( sqlite3_vfs_fi
207f0 6e 64 28 30 29 20 29 20 72 65 74 75 72 6e 20 54 nd(0) ) return T
20800 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 65 74 75 CL_ERROR;. retu
20810 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
20820 0a 2a 2a 20 53 61 76 65 64 20 56 46 53 65 73 0a .** Saved VFSes.
20830 2a 2f 0a 73 74 61 74 69 63 20 73 71 6c 69 74 65 */.static sqlite
20840 33 5f 76 66 73 20 2a 61 70 56 66 73 5b 32 30 5d 3_vfs *apVfs[20]
20850 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 6e 56 66 ;.static int nVf
20860 73 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 74 63 s = 0;../*.** tc
20870 6c 63 6d 64 3a 20 20 20 76 66 73 5f 75 6e 72 65 lcmd: vfs_unre
20880 67 69 73 74 65 72 5f 61 6c 6c 0a 2a 2a 0a 2a 2a gister_all.**.**
20890 20 55 6e 72 65 67 69 73 74 65 72 20 61 6c 6c 20 Unregister all
208a0 56 46 53 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 VFSes..*/.static
208b0 20 69 6e 74 20 76 66 73 5f 75 6e 72 65 67 69 73 int vfs_unregis
208c0 74 65 72 5f 61 6c 6c 28 0a 20 20 43 6c 69 65 6e ter_all(. Clien
208d0 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
208e0 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 , /* Pointer to
208f0 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 sqlite3_enable_X
20900 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 XX function */.
20910 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
20920 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
20930 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
20940 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
20950 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
20960 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 t objc,
20970 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
20980 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
20990 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
209a0 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 objv[] /* Comma
209b0 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a nd arguments */.
209c0 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f ){. int i;. fo
209d0 72 28 69 3d 30 3b 20 69 3c 41 72 72 61 79 53 69 r(i=0; i<ArraySi
209e0 7a 65 28 61 70 56 66 73 29 3b 20 69 2b 2b 29 7b ze(apVfs); i++){
209f0 0a 20 20 20 20 61 70 56 66 73 5b 69 5d 20 3d 20 . apVfs[i] =
20a00 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 sqlite3_vfs_find
20a10 28 30 29 3b 0a 20 20 20 20 69 66 28 20 61 70 56 (0);. if( apV
20a20 66 73 5b 69 5d 3d 3d 30 20 29 20 62 72 65 61 6b fs[i]==0 ) break
20a30 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 76 66 ;. sqlite3_vf
20a40 73 5f 75 6e 72 65 67 69 73 74 65 72 28 61 70 56 s_unregister(apV
20a50 66 73 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 6e 56 fs[i]);. }. nV
20a60 66 73 20 3d 20 69 3b 0a 20 20 72 65 74 75 72 6e fs = i;. return
20a70 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 2f 2a 0a 2a 2a TCL_OK;.}./*.**
20a80 20 74 63 6c 63 6d 64 3a 20 20 20 76 66 73 5f 72 tclcmd: vfs_r
20a90 65 72 65 67 69 73 74 65 72 5f 61 6c 6c 0a 2a 2a eregister_all.**
20aa0 0a 2a 2a 20 52 65 73 74 6f 72 65 20 61 6c 6c 20 .** Restore all
20ab0 56 46 53 65 73 20 74 68 61 74 20 77 65 72 65 20 VFSes that were
20ac0 72 65 6d 6f 76 65 64 20 75 73 69 6e 67 20 76 66 removed using vf
20ad0 73 5f 75 6e 72 65 67 69 73 74 65 72 5f 61 6c 6c s_unregister_all
20ae0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 76 .*/.static int v
20af0 66 73 5f 72 65 72 65 67 69 73 74 65 72 5f 61 6c fs_reregister_al
20b00 6c 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 l(. ClientData
20b10 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 clientData, /* P
20b20 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 ointer to sqlite
20b30 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 3_enable_XXX fun
20b40 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 ction */. Tcl_I
20b50 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
20b60 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
20b70 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
20b80 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
20b90 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 nd */. int objc
20ba0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
20bb0 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
20bc0 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f ments */. Tcl_O
20bd0 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
20be0 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 /* Command arg
20bf0 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 uments */.){. i
20c00 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d 30 3b nt i;. for(i=0;
20c10 20 69 3c 6e 56 66 73 3b 20 69 2b 2b 29 7b 0a 20 i<nVfs; i++){.
20c20 20 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 72 sqlite3_vfs_r
20c30 65 67 69 73 74 65 72 28 61 70 56 66 73 5b 69 5d egister(apVfs[i]
20c40 2c 20 69 3d 3d 30 29 3b 0a 20 20 7d 0a 20 20 72 , i==0);. }. r
20c50 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
20c60 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 ../*.** tclcmd:
20c70 20 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 74 file_control_t
20c80 65 73 74 20 44 42 0a 2a 2a 0a 2a 2a 20 54 68 69 est DB.**.** Thi
20c90 73 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 72 75 s TCL command ru
20ca0 6e 73 20 74 68 65 20 73 71 6c 69 74 65 33 5f 66 ns the sqlite3_f
20cb0 69 6c 65 5f 63 6f 6e 74 72 6f 6c 20 69 6e 74 65 ile_control inte
20cc0 72 66 61 63 65 20 61 6e 64 0a 2a 2a 20 76 65 72 rface and.** ver
20cd0 69 66 69 65 73 20 63 6f 72 72 65 63 74 20 6f 70 ifies correct op
20ce0 65 72 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 eration of the s
20cf0 61 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ame..*/.static i
20d00 6e 74 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f nt file_control_
20d10 74 65 73 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 test(. ClientDa
20d20 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f ta clientData, /
20d30 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c * Pointer to sql
20d40 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 ite3_enable_XXX
20d50 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 function */. Tc
20d60 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
20d70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
20d80 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
20d90 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
20da0 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f mmand */. int o
20db0 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 bjc,
20dc0 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
20dd0 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 rguments */. Tc
20de0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
20df0 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 v[] /* Command
20e00 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a arguments */.){.
20e10 20 20 69 6e 74 20 69 41 72 67 20 3d 20 30 3b 0a int iArg = 0;.
20e20 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
20e30 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
20e40 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
20e50 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
20e60 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
20e70 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
20e80 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 \"",. Tc
20e90 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
20ea0 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 bj(objv[0], 0),
20eb0 22 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 " DB", 0);. r
20ec0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
20ed0 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
20ee0 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
20ef0 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
20f00 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 jv[1]), &db) ) r
20f10 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
20f20 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
20f30 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c file_control(db,
20f40 20 30 2c 20 30 2c 20 26 69 41 72 67 29 3b 0a 20 0, 0, &iArg);.
20f50 20 61 73 73 65 72 74 28 20 72 63 3d 3d 53 51 4c assert( rc==SQL
20f60 49 54 45 5f 45 52 52 4f 52 20 29 3b 0a 20 20 72 ITE_ERROR );. r
20f70 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 c = sqlite3_file
20f80 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 22 6e 6f _control(db, "no
20f90 74 61 64 61 74 61 62 61 73 65 22 2c 20 53 51 4c tadatabase", SQL
20fa0 49 54 45 5f 46 43 4e 54 4c 5f 4c 4f 43 4b 53 54 ITE_FCNTL_LOCKST
20fb0 41 54 45 2c 20 26 69 41 72 67 29 3b 0a 20 20 61 ATE, &iArg);. a
20fc0 73 73 65 72 74 28 20 72 63 3d 3d 53 51 4c 49 54 ssert( rc==SQLIT
20fd0 45 5f 45 52 52 4f 52 20 29 3b 0a 20 20 72 63 20 E_ERROR );. rc
20fe0 3d 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 5f 63 = sqlite3_file_c
20ff0 6f 6e 74 72 6f 6c 28 64 62 2c 20 22 6d 61 69 6e ontrol(db, "main
21000 22 2c 20 2d 31 2c 20 26 69 41 72 67 29 3b 0a 20 ", -1, &iArg);.
21010 20 61 73 73 65 72 74 28 20 72 63 3d 3d 53 51 4c assert( rc==SQL
21020 49 54 45 5f 45 52 52 4f 52 20 29 3b 0a 20 20 72 ITE_ERROR );. r
21030 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 c = sqlite3_file
21040 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 22 74 65 _control(db, "te
21050 6d 70 22 2c 20 2d 31 2c 20 26 69 41 72 67 29 3b mp", -1, &iArg);
21060 0a 20 20 61 73 73 65 72 74 28 20 72 63 3d 3d 53 . assert( rc==S
21070 51 4c 49 54 45 5f 45 52 52 4f 52 20 29 3b 0a 0a QLITE_ERROR );..
21080 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
21090 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d .}.../*.** tclcm
210a0 64 3a 20 20 20 66 69 6c 65 5f 63 6f 6e 74 72 6f d: file_contro
210b0 6c 5f 6c 61 73 74 65 72 72 6e 6f 5f 74 65 73 74 l_lasterrno_test
210c0 20 44 42 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 54 DB.**.** This T
210d0 43 4c 20 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 20 CL command runs
210e0 74 68 65 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 the sqlite3_file
210f0 5f 63 6f 6e 74 72 6f 6c 20 69 6e 74 65 72 66 61 _control interfa
21100 63 65 20 61 6e 64 0a 2a 2a 20 76 65 72 69 66 69 ce and.** verifi
21110 65 73 20 63 6f 72 72 65 63 74 20 6f 70 65 72 61 es correct opera
21120 74 69 6f 6e 20 6f 66 20 74 68 65 20 53 51 4c 49 tion of the SQLI
21130 54 45 5f 4c 41 53 54 5f 45 52 52 4e 4f 20 76 65 TE_LAST_ERRNO ve
21140 72 62 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e rb..*/.static in
21150 74 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c t file_control_l
21160 61 73 74 65 72 72 6e 6f 5f 74 65 73 74 28 0a 20 asterrno_test(.
21170 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 ClientData clie
21180 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 ntData, /* Point
21190 65 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e er to sqlite3_en
211a0 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f able_XXX functio
211b0 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 n */. Tcl_Inter
211c0 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
211d0 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
211e0 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
211f0 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
21200 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 /. int objc,
21210 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
21220 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
21230 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a s */. Tcl_Obj *
21240 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a CONST objv[] /*
21250 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e Command argumen
21260 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 ts */.){. int i
21270 41 72 67 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 Arg = 0;. sqlit
21280 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 e3 *db;. int rc
21290 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 ;.. if( objc!=2
212a0 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
212b0 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
212c0 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
212d0 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 should be \"",.
212e0 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
212f0 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
21300 5b 30 5d 2c 20 30 29 2c 20 22 20 44 42 22 2c 20 [0], 0), " DB",
21310 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
21320 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
21330 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
21340 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
21350 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
21360 20 26 64 62 29 20 29 7b 0a 20 20 20 20 72 65 74 &db) ){. ret
21370 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
21380 20 7d 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 }. rc = sqlite
21390 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 3_file_control(d
213a0 62 2c 20 4e 55 4c 4c 2c 20 53 51 4c 49 54 45 5f b, NULL, SQLITE_
213b0 4c 41 53 54 5f 45 52 52 4e 4f 2c 20 26 69 41 72 LAST_ERRNO, &iAr
213c0 67 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 20 g);. if( rc ){
213d0 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
213e0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
213f0 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 63 29 29 l_NewIntObj(rc))
21400 3b 20 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 ; . return TC
21410 4c 5f 45 52 52 4f 52 3b 20 0a 20 20 7d 0a 20 20 L_ERROR; . }.
21420 69 66 28 20 69 41 72 67 21 3d 30 20 29 20 7b 0a if( iArg!=0 ) {.
21430 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
21440 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 55 6e sult(interp, "Un
21450 65 78 70 65 63 74 65 64 20 6e 6f 6e 2d 7a 65 72 expected non-zer
21460 6f 20 65 72 72 6e 6f 3a 20 22 2c 0a 20 20 20 20 o errno: ",.
21470 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21480 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
21490 6f 6d 4f 62 6a 28 54 63 6c 5f 4e 65 77 49 6e 74 omObj(Tcl_NewInt
214a0 4f 62 6a 28 69 41 72 67 29 2c 20 30 29 2c 20 22 Obj(iArg), 0), "
214b0 20 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 ", 0);. retu
214c0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
214d0 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f }. return TCL_O
214e0 4b 3b 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 K; .}../*.** tc
214f0 6c 63 6d 64 3a 20 20 20 66 69 6c 65 5f 63 6f 6e lcmd: file_con
21500 74 72 6f 6c 5f 63 68 75 6e 6b 73 69 7a 65 5f 74 trol_chunksize_t
21510 65 73 74 20 44 42 20 44 42 4e 41 4d 45 20 53 49 est DB DBNAME SI
21520 5a 45 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 54 43 ZE.**.** This TC
21530 4c 20 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 20 74 L command runs t
21540 68 65 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 5f he sqlite3_file_
21550 63 6f 6e 74 72 6f 6c 20 69 6e 74 65 72 66 61 63 control interfac
21560 65 20 61 6e 64 0a 2a 2a 20 76 65 72 69 66 69 65 e and.** verifie
21570 73 20 63 6f 72 72 65 63 74 20 6f 70 65 72 61 74 s correct operat
21580 69 6f 6e 20 6f 66 20 74 68 65 20 53 51 4c 49 54 ion of the SQLIT
21590 45 5f 47 45 54 5f 4c 4f 43 4b 50 52 4f 58 59 46 E_GET_LOCKPROXYF
215a0 49 4c 45 20 61 6e 64 0a 2a 2a 20 53 51 4c 49 54 ILE and.** SQLIT
215b0 45 5f 53 45 54 5f 4c 4f 43 4b 50 52 4f 58 59 46 E_SET_LOCKPROXYF
215c0 49 4c 45 20 76 65 72 62 73 2e 0a 2a 2f 0a 73 74 ILE verbs..*/.st
215d0 61 74 69 63 20 69 6e 74 20 66 69 6c 65 5f 63 6f atic int file_co
215e0 6e 74 72 6f 6c 5f 63 68 75 6e 6b 73 69 7a 65 5f ntrol_chunksize_
215f0 74 65 73 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 test(. ClientDa
21600 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f ta clientData, /
21610 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c * Pointer to sql
21620 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 ite3_enable_XXX
21630 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 function */. Tc
21640 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
21650 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
21660 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
21670 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
21680 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f mmand */. int o
21690 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 bjc,
216a0 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
216b0 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 rguments */. Tc
216c0 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
216d0 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 v[] /* Command
216e0 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a arguments */.){.
216f0 20 20 69 6e 74 20 6e 53 69 7a 65 3b 20 20 20 20 int nSize;
21700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21710 20 20 2f 2a 20 4e 65 77 20 63 68 75 6e 6b 20 73 /* New chunk s
21720 69 7a 65 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a ize */. char *z
21730 44 62 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 Db;
21740 20 20 20 20 20 20 20 20 20 2f 2a 20 44 62 20 6e /* Db n
21750 61 6d 65 20 28 22 6d 61 69 6e 22 2c 20 22 74 65 ame ("main", "te
21760 6d 70 22 20 65 74 63 2e 29 20 2a 2f 0a 20 20 73 mp" etc.) */. s
21770 71 6c 69 74 65 33 20 2a 64 62 3b 20 20 20 20 20 qlite3 *db;
21780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
21790 2a 20 44 61 74 61 62 61 73 65 20 68 61 6e 64 6c * Database handl
217a0 65 20 2a 2f 0a 20 20 69 6e 74 20 72 63 3b 20 20 e */. int rc;
217b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
217c0 20 20 20 20 20 20 20 2f 2a 20 66 69 6c 65 5f 63 /* file_c
217d0 6f 6e 74 72 6f 6c 28 29 20 72 65 74 75 72 6e 20 ontrol() return
217e0 63 6f 64 65 20 2a 2f 0a 0a 20 20 69 66 28 20 6f code */.. if( o
217f0 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 bjc!=4 ){. Tc
21800 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
21810 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
21820 22 44 42 20 44 42 4e 41 4d 45 20 53 49 5a 45 22 "DB DBNAME SIZE"
21830 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
21840 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
21850 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
21860 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
21870 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
21880 26 64 62 29 20 0a 20 20 20 7c 7c 20 54 63 6c 5f &db) . || Tcl_
21890 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
218a0 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 terp, objv[3], &
218b0 6e 53 69 7a 65 29 0a 20 20 29 7b 0a 20 20 20 72 nSize). ){. r
218c0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
218d0 0a 20 20 7d 0a 20 20 7a 44 62 20 3d 20 54 63 6c . }. zDb = Tcl
218e0 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
218f0 32 5d 29 3b 0a 20 20 69 66 28 20 7a 44 62 5b 30 2]);. if( zDb[0
21900 5d 3d 3d 27 5c 30 27 20 29 20 7a 44 62 20 3d 20 ]=='\0' ) zDb =
21910 4e 55 4c 4c 3b 0a 0a 20 20 72 63 20 3d 20 73 71 NULL;.. rc = sq
21920 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 lite3_file_contr
21930 6f 6c 28 64 62 2c 20 7a 44 62 2c 20 53 51 4c 49 ol(db, zDb, SQLI
21940 54 45 5f 46 43 4e 54 4c 5f 43 48 55 4e 4b 5f 53 TE_FCNTL_CHUNK_S
21950 49 5a 45 2c 20 28 76 6f 69 64 20 2a 29 26 6e 53 IZE, (void *)&nS
21960 69 7a 65 29 3b 0a 20 20 69 66 28 20 72 63 20 29 ize);. if( rc )
21970 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 {. Tcl_SetRes
21980 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 ult(interp, (cha
21990 72 20 2a 29 73 71 6c 69 74 65 33 54 65 73 74 45 r *)sqlite3TestE
219a0 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 rrorName(rc), TC
219b0 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 72 L_STATIC);. r
219c0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
219d0 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 . }. return TC
219e0 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 L_OK;.}../*.** t
219f0 63 6c 63 6d 64 3a 20 20 20 66 69 6c 65 5f 63 6f clcmd: file_co
21a00 6e 74 72 6f 6c 5f 6c 6f 63 6b 70 72 6f 78 79 5f ntrol_lockproxy_
21a10 74 65 73 74 20 44 42 20 50 57 44 0a 2a 2a 0a 2a test DB PWD.**.*
21a20 2a 20 54 68 69 73 20 54 43 4c 20 63 6f 6d 6d 61 * This TCL comma
21a30 6e 64 20 72 75 6e 73 20 74 68 65 20 73 71 6c 69 nd runs the sqli
21a40 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c te3_file_control
21a50 20 69 6e 74 65 72 66 61 63 65 20 61 6e 64 0a 2a interface and.*
21a60 2a 20 76 65 72 69 66 69 65 73 20 63 6f 72 72 65 * verifies corre
21a70 63 74 20 6f 70 65 72 61 74 69 6f 6e 20 6f 66 20 ct operation of
21a80 74 68 65 20 53 51 4c 49 54 45 5f 47 45 54 5f 4c the SQLITE_GET_L
21a90 4f 43 4b 50 52 4f 58 59 46 49 4c 45 20 61 6e 64 OCKPROXYFILE and
21aa0 0a 2a 2a 20 53 51 4c 49 54 45 5f 53 45 54 5f 4c .** SQLITE_SET_L
21ab0 4f 43 4b 50 52 4f 58 59 46 49 4c 45 20 76 65 72 OCKPROXYFILE ver
21ac0 62 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e bs..*/.static in
21ad0 74 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c t file_control_l
21ae0 6f 63 6b 70 72 6f 78 79 5f 74 65 73 74 28 0a 20 ockproxy_test(.
21af0 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 ClientData clie
21b00 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 ntData, /* Point
21b10 65 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e er to sqlite3_en
21b20 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f able_XXX functio
21b30 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 n */. Tcl_Inter
21b40 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
21b50 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
21b60 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
21b70 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
21b80 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 /. int objc,
21b90 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
21ba0 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
21bb0 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a s */. Tcl_Obj *
21bc0 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a CONST objv[] /*
21bd0 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e Command argumen
21be0 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 ts */.){. sqlit
21bf0 65 33 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 e3 *db;. const
21c00 63 68 61 72 20 2a 7a 50 77 64 3b 0a 20 20 69 6e char *zPwd;. in
21c10 74 20 6e 50 77 64 3b 0a 20 20 0a 20 20 69 66 28 t nPwd;. . if(
21c20 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 objc!=3 ){.
21c30 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
21c40 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
21c50 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
21c60 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 20 e \"",.
21c70 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f Tcl_
21c80 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
21c90 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 (objv[0], 0), "
21ca0 44 42 20 50 57 44 22 2c 20 30 29 3b 0a 20 20 20 DB PWD", 0);.
21cb0 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
21cc0 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
21cd0 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
21ce0 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
21cf0 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 objv[1]), &db) )
21d00 7b 0a 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f {. return TCL_
21d10 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 50 77 ERROR;. }. zPw
21d20 64 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e d = Tcl_GetStrin
21d30 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d gFromObj(objv[2]
21d40 2c 20 26 6e 50 77 64 29 3b 0a 20 20 0a 23 69 66 , &nPwd);. .#if
21d50 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 !defined(SQLITE
21d60 5f 45 4e 41 42 4c 45 5f 4c 4f 43 4b 49 4e 47 5f _ENABLE_LOCKING_
21d70 53 54 59 4c 45 29 0a 23 20 20 69 66 20 64 65 66 STYLE).# if def
21d80 69 6e 65 64 28 5f 5f 41 50 50 4c 45 5f 5f 29 0a ined(__APPLE__).
21d90 23 20 20 20 20 64 65 66 69 6e 65 20 53 51 4c 49 # define SQLI
21da0 54 45 5f 45 4e 41 42 4c 45 5f 4c 4f 43 4b 49 4e TE_ENABLE_LOCKIN
21db0 47 5f 53 54 59 4c 45 20 31 0a 23 20 20 65 6c 73 G_STYLE 1.# els
21dc0 65 0a 23 20 20 20 20 64 65 66 69 6e 65 20 53 51 e.# define SQ
21dd0 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 4c 4f 43 4b LITE_ENABLE_LOCK
21de0 49 4e 47 5f 53 54 59 4c 45 20 30 0a 23 20 20 65 ING_STYLE 0.# e
21df0 6e 64 69 66 0a 23 65 6e 64 69 66 0a 23 69 66 20 ndif.#endif.#if
21e00 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 4c 4f SQLITE_ENABLE_LO
21e10 43 4b 49 4e 47 5f 53 54 59 4c 45 20 26 26 20 64 CKING_STYLE && d
21e20 65 66 69 6e 65 64 28 5f 5f 41 50 50 4c 45 5f 5f efined(__APPLE__
21e30 29 0a 20 20 7b 0a 20 20 20 20 63 68 61 72 20 2a ). {. char *
21e40 74 65 73 74 50 61 74 68 3b 0a 20 20 20 20 69 6e testPath;. in
21e50 74 20 72 63 3b 0a 20 20 20 20 63 68 61 72 20 70 t rc;. char p
21e60 72 6f 78 79 50 61 74 68 5b 34 30 30 5d 3b 0a 20 roxyPath[400];.
21e70 20 20 20 0a 20 20 20 20 69 66 28 20 73 69 7a 65 . if( size
21e80 6f 66 28 70 72 6f 78 79 50 61 74 68 29 3c 6e 50 of(proxyPath)<nP
21e90 77 64 2b 32 30 20 29 7b 0a 20 20 20 20 20 20 54 wd+20 ){. T
21ea0 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
21eb0 69 6e 74 65 72 70 2c 20 22 50 57 44 20 74 6f 6f interp, "PWD too
21ec0 20 62 69 67 22 2c 20 28 76 6f 69 64 2a 29 30 29 big", (void*)0)
21ed0 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 ;. return T
21ee0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
21ef0 20 20 20 20 73 70 72 69 6e 74 66 28 70 72 6f 78 sprintf(prox
21f00 79 50 61 74 68 2c 20 22 25 73 2f 74 65 73 74 2e yPath, "%s/test.
21f10 70 72 6f 78 79 22 2c 20 7a 50 77 64 29 3b 0a 20 proxy", zPwd);.
21f20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
21f30 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c file_control(db,
21f40 20 4e 55 4c 4c 2c 20 53 51 4c 49 54 45 5f 53 45 NULL, SQLITE_SE
21f50 54 5f 4c 4f 43 4b 50 52 4f 58 59 46 49 4c 45 2c T_LOCKPROXYFILE,
21f60 20 70 72 6f 78 79 50 61 74 68 29 3b 0a 20 20 20 proxyPath);.
21f70 20 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 20 if( rc ){.
21f80 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
21f90 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
21fa0 77 49 6e 74 4f 62 6a 28 72 63 29 29 3b 20 0a 20 wIntObj(rc)); .
21fb0 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f return TCL_
21fc0 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
21fd0 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 rc = sqlite3_fi
21fe0 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 4e le_control(db, N
21ff0 55 4c 4c 2c 20 53 51 4c 49 54 45 5f 47 45 54 5f ULL, SQLITE_GET_
22000 4c 4f 43 4b 50 52 4f 58 59 46 49 4c 45 2c 20 26 LOCKPROXYFILE, &
22010 74 65 73 74 50 61 74 68 29 3b 0a 20 20 20 20 69 testPath);. i
22020 66 28 20 73 74 72 6e 63 6d 70 28 70 72 6f 78 79 f( strncmp(proxy
22030 50 61 74 68 2c 74 65 73 74 50 61 74 68 2c 31 31 Path,testPath,11
22040 29 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41 ) ){. Tcl_A
22050 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
22060 72 70 2c 20 22 4c 6f 63 6b 20 70 72 6f 78 79 20 rp, "Lock proxy
22070 66 69 6c 65 20 64 69 64 20 6e 6f 74 20 6d 61 74 file did not mat
22080 63 68 20 74 68 65 20 22 0a 20 20 20 20 20 20 20 ch the ".
22090 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
220a0 20 20 20 20 20 20 20 20 22 70 72 65 76 69 6f 75 "previou
220b0 73 6c 79 20 61 73 73 69 67 6e 65 64 20 76 61 6c sly assigned val
220c0 75 65 22 2c 20 30 29 3b 0a 20 20 20 20 20 20 72 ue", 0);. r
220d0 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
220e0 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 72 . }. if( r
220f0 63 20 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53 c ){. Tcl_S
22100 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
22110 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 rp, Tcl_NewIntOb
22120 6a 28 72 63 29 29 3b 0a 20 20 20 20 20 20 72 65 j(rc));. re
22130 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
22140 20 20 20 20 7d 0a 20 20 20 20 72 63 20 3d 20 73 }. rc = s
22150 71 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 qlite3_file_cont
22160 72 6f 6c 28 64 62 2c 20 4e 55 4c 4c 2c 20 53 51 rol(db, NULL, SQ
22170 4c 49 54 45 5f 53 45 54 5f 4c 4f 43 4b 50 52 4f LITE_SET_LOCKPRO
22180 58 59 46 49 4c 45 2c 20 70 72 6f 78 79 50 61 74 XYFILE, proxyPat
22190 68 29 3b 0a 20 20 20 20 69 66 28 20 72 63 20 29 h);. if( rc )
221a0 7b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f {. Tcl_SetO
221b0 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
221c0 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 Tcl_NewIntObj(r
221d0 63 29 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 c));. retur
221e0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
221f0 20 7d 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 }. }.#endif.
22200 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 20 20 return TCL_OK;
22210 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d .}.../*.** tclcm
22220 64 3a 20 20 20 73 71 6c 69 74 65 33 5f 76 66 73 d: sqlite3_vfs
22230 5f 6c 69 73 74 0a 2a 2a 0a 2a 2a 20 20 20 52 65 _list.**.** Re
22240 74 75 72 6e 20 61 20 74 63 6c 20 6c 69 73 74 20 turn a tcl list
22250 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 6e containing the n
22260 61 6d 65 73 20 6f 66 20 61 6c 6c 20 72 65 67 69 ames of all regi
22270 73 74 65 72 65 64 20 76 66 73 27 73 2e 0a 2a 2f stered vfs's..*/
22280 0a 73 74 61 74 69 63 20 69 6e 74 20 76 66 73 5f .static int vfs_
22290 6c 69 73 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 list(. ClientDa
222a0 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f ta clientData, /
222b0 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c * Pointer to sql
222c0 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 ite3_enable_XXX
222d0 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 function */. Tc
222e0 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
222f0 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
22300 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
22310 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
22320 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f mmand */. int o
22330 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 bjc,
22340 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
22350 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 rguments */. Tc
22360 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
22370 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 v[] /* Command
22380 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a arguments */.){.
22390 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 sqlite3_vfs *p
223a0 56 66 73 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a Vfs;. Tcl_Obj *
223b0 70 52 65 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 pRet = Tcl_NewOb
223c0 6a 28 29 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 j();. if( objc!
223d0 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 =1 ){. Tcl_Wr
223e0 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
223f0 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 22 29 3b p, 1, objv, "");
22400 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
22410 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 ERROR;. }. for
22420 28 70 56 66 73 3d 73 71 6c 69 74 65 33 5f 76 66 (pVfs=sqlite3_vf
22430 73 5f 66 69 6e 64 28 30 29 3b 20 70 56 66 73 3b s_find(0); pVfs;
22440 20 70 56 66 73 3d 70 56 66 73 2d 3e 70 4e 65 78 pVfs=pVfs->pNex
22450 74 29 7b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 t){. Tcl_List
22460 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
22470 28 69 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 54 (interp, pRet, T
22480 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
22490 70 56 66 73 2d 3e 7a 4e 61 6d 65 2c 20 2d 31 29 pVfs->zName, -1)
224a0 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 );. }. Tcl_Set
224b0 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
224c0 2c 20 70 52 65 74 29 3b 0a 20 20 72 65 74 75 72 , pRet);. retur
224d0 6e 20 54 43 4c 5f 4f 4b 3b 20 20 0a 7d 0a 0a 2f n TCL_OK; .}../
224e0 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 20 73 *.** tclcmd: s
224f0 71 6c 69 74 65 33 5f 6c 69 6d 69 74 20 44 42 20 qlite3_limit DB
22500 49 44 20 56 41 4c 55 45 0a 2a 2a 0a 2a 2a 20 54 ID VALUE.**.** T
22510 68 69 73 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 his TCL command
22520 72 75 6e 73 20 74 68 65 20 73 71 6c 69 74 65 33 runs the sqlite3
22530 5f 6c 69 6d 69 74 20 69 6e 74 65 72 66 61 63 65 _limit interface
22540 20 61 6e 64 0a 2a 2a 20 76 65 72 69 66 69 65 73 and.** verifies
22550 20 63 6f 72 72 65 63 74 20 6f 70 65 72 61 74 69 correct operati
22560 6f 6e 20 6f 66 20 74 68 65 20 73 61 6d 65 2e 0a on of the same..
22570 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
22580 73 74 5f 6c 69 6d 69 74 28 0a 20 20 43 6c 69 65 st_limit(. Clie
22590 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
225a0 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f a, /* Pointer to
225b0 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f sqlite3_enable_
225c0 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a XXX function */.
225d0 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
225e0 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
225f0 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
22600 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
22610 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
22620 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 nt objc,
22630 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
22640 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
22650 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
22660 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d objv[] /* Comm
22670 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f and arguments */
22680 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
22690 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 73 b;. int rc;. s
226a0 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74 72 75 tatic const stru
226b0 63 74 20 7b 0a 20 20 20 20 20 63 68 61 72 20 2a ct {. char *
226c0 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 69 6e 74 20 zName;. int
226d0 69 64 3b 0a 20 20 7d 20 61 49 64 5b 5d 20 3d 20 id;. } aId[] =
226e0 7b 0a 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f {. { "SQLITE_
226f0 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 22 2c 20 20 LIMIT_LENGTH",
22700 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 SQLI
22710 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 20 TE_LIMIT_LENGTH
22720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c },
22730 0a 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 4c . { "SQLITE_L
22740 49 4d 49 54 5f 53 51 4c 5f 4c 45 4e 47 54 48 22 IMIT_SQL_LENGTH"
22750 2c 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 , SQLIT
22760 45 5f 4c 49 4d 49 54 5f 53 51 4c 5f 4c 45 4e 47 E_LIMIT_SQL_LENG
22770 54 48 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a TH },.
22780 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 4c 49 { "SQLITE_LI
22790 4d 49 54 5f 43 4f 4c 55 4d 4e 22 2c 20 20 20 20 MIT_COLUMN",
227a0 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 SQLITE
227b0 5f 4c 49 4d 49 54 5f 43 4f 4c 55 4d 4e 20 20 20 _LIMIT_COLUMN
227c0 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 },.
227d0 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 4c 49 4d { "SQLITE_LIM
227e0 49 54 5f 45 58 50 52 5f 44 45 50 54 48 22 2c 20 IT_EXPR_DEPTH",
227f0 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f SQLITE_
22800 4c 49 4d 49 54 5f 45 58 50 52 5f 44 45 50 54 48 LIMIT_EXPR_DEPTH
22810 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
22820 20 20 7b 20 22 53 51 4c 49 54 45 5f 4c 49 4d 49 { "SQLITE_LIMI
22830 54 5f 43 4f 4d 50 4f 55 4e 44 5f 53 45 4c 45 43 T_COMPOUND_SELEC
22840 54 22 2c 20 20 20 20 20 53 51 4c 49 54 45 5f 4c T", SQLITE_L
22850 49 4d 49 54 5f 43 4f 4d 50 4f 55 4e 44 5f 53 45 IMIT_COMPOUND_SE
22860 4c 45 43 54 20 20 20 20 20 20 7d 2c 0a 20 20 20 LECT },.
22870 20 7b 20 22 53 51 4c 49 54 45 5f 4c 49 4d 49 54 { "SQLITE_LIMIT
22880 5f 56 44 42 45 5f 4f 50 22 2c 20 20 20 20 20 20 _VDBE_OP",
22890 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 4c 49 SQLITE_LI
228a0 4d 49 54 5f 56 44 42 45 5f 4f 50 20 20 20 20 20 MIT_VDBE_OP
228b0 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
228c0 7b 20 22 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f { "SQLITE_LIMIT_
228d0 46 55 4e 43 54 49 4f 4e 5f 41 52 47 22 2c 20 20 FUNCTION_ARG",
228e0 20 20 20 20 20 20 53 51 4c 49 54 45 5f 4c 49 4d SQLITE_LIM
228f0 49 54 5f 46 55 4e 43 54 49 4f 4e 5f 41 52 47 20 IT_FUNCTION_ARG
22900 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b },. {
22910 20 22 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 41 "SQLITE_LIMIT_A
22920 54 54 41 43 48 45 44 22 2c 20 20 20 20 20 20 20 TTACHED",
22930 20 20 20 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 SQLITE_LIMI
22940 54 5f 41 54 54 41 43 48 45 44 20 20 20 20 20 20 T_ATTACHED
22950 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
22960 22 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 49 "SQLITE_LIMIT_LI
22970 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47 54 KE_PATTERN_LENGT
22980 48 22 2c 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 H", SQLITE_LIMIT
22990 5f 4c 49 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45 _LIKE_PATTERN_LE
229a0 4e 47 54 48 20 20 7d 2c 0a 20 20 20 20 7b 20 22 NGTH },. { "
229b0 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 56 41 52 SQLITE_LIMIT_VAR
229c0 49 41 42 4c 45 5f 4e 55 4d 42 45 52 22 2c 20 20 IABLE_NUMBER",
229d0 20 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f SQLITE_LIMIT_
229e0 56 41 52 49 41 42 4c 45 5f 4e 55 4d 42 45 52 20 VARIABLE_NUMBER
229f0 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 },. { "S
22a00 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 54 52 49 47 QLITE_LIMIT_TRIG
22a10 47 45 52 5f 44 45 50 54 48 22 2c 20 20 20 20 20 GER_DEPTH",
22a20 20 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 54 SQLITE_LIMIT_T
22a30 52 49 47 47 45 52 5f 44 45 50 54 48 20 20 20 20 RIGGER_DEPTH
22a40 20 20 20 20 7d 2c 0a 20 20 20 20 0a 20 20 20 20 },. .
22a50 2f 2a 20 4f 75 74 20 6f 66 20 72 61 6e 67 65 20 /* Out of range
22a60 74 65 73 74 20 63 61 73 65 73 20 2a 2f 0a 20 20 test cases */.
22a70 20 20 7b 20 22 53 51 4c 49 54 45 5f 4c 49 4d 49 { "SQLITE_LIMI
22a80 54 5f 54 4f 4f 53 4d 41 4c 4c 22 2c 20 20 20 20 T_TOOSMALL",
22a90 20 20 20 20 20 20 20 20 2d 31 2c 20 20 20 20 20 -1,
22aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
22ab0 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 },.
22ac0 20 7b 20 22 53 51 4c 49 54 45 5f 4c 49 4d 49 54 { "SQLITE_LIMIT
22ad0 5f 54 4f 4f 42 49 47 22 2c 20 20 20 20 20 20 20 _TOOBIG",
22ae0 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 4c 49 SQLITE_LI
22af0 4d 49 54 5f 54 52 49 47 47 45 52 5f 44 45 50 54 MIT_TRIGGER_DEPT
22b00 48 2b 31 20 20 20 20 20 20 7d 2c 0a 20 20 7d 3b H+1 },. };
22b10 0a 20 20 69 6e 74 20 69 2c 20 69 64 3b 0a 20 20 . int i, id;.
22b20 69 6e 74 20 76 61 6c 3b 0a 20 20 63 6f 6e 73 74 int val;. const
22b30 20 63 68 61 72 20 2a 7a 49 64 3b 0a 0a 20 20 69 char *zId;.. i
22b40 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 f( objc!=4 ){.
22b50 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
22b60 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e lt(interp, "wron
22b70 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
22b80 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 be \"",.
22b90 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
22ba0 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 omObj(objv[0], 0
22bb0 29 2c 20 22 20 44 42 20 49 44 20 56 41 4c 55 45 ), " DB ID VALUE
22bc0 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
22bd0 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
22be0 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
22bf0 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
22c00 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
22c10 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 ]), &db) ) retur
22c20 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a n TCL_ERROR;. z
22c30 49 64 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 Id = Tcl_GetStri
22c40 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 66 ng(objv[2]);. f
22c50 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 or(i=0; i<sizeof
22c60 28 61 49 64 29 2f 73 69 7a 65 6f 66 28 61 49 64 (aId)/sizeof(aId
22c70 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 [0]); i++){.
22c80 69 66 28 20 73 74 72 63 6d 70 28 7a 49 64 2c 20 if( strcmp(zId,
22c90 61 49 64 5b 69 5d 2e 7a 4e 61 6d 65 29 3d 3d 30 aId[i].zName)==0
22ca0 20 29 7b 0a 20 20 20 20 20 20 69 64 20 3d 20 61 ){. id = a
22cb0 49 64 5b 69 5d 2e 69 64 3b 0a 20 20 20 20 20 20 Id[i].id;.
22cc0 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d break;. }. }
22cd0 0a 20 20 69 66 28 20 69 3e 3d 73 69 7a 65 6f 66 . if( i>=sizeof
22ce0 28 61 49 64 29 2f 73 69 7a 65 6f 66 28 61 49 64 (aId)/sizeof(aId
22cf0 5b 30 5d 29 20 29 7b 0a 20 20 20 20 54 63 6c 5f [0]) ){. Tcl_
22d00 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
22d10 65 72 70 2c 20 22 75 6e 6b 6e 6f 77 6e 20 6c 69 erp, "unknown li
22d20 6d 69 74 20 74 79 70 65 3a 20 22 2c 20 7a 49 64 mit type: ", zId
22d30 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 , (char*)0);.
22d40 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
22d50 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c R;. }. if( Tcl
22d60 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
22d70 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 nterp, objv[3],
22d80 26 76 61 6c 29 20 29 20 72 65 74 75 72 6e 20 54 &val) ) return T
22d90 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d CL_ERROR;. rc =
22da0 20 73 71 6c 69 74 65 33 5f 6c 69 6d 69 74 28 64 sqlite3_limit(d
22db0 62 2c 20 69 64 2c 20 76 61 6c 29 3b 0a 20 20 54 b, id, val);. T
22dc0 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
22dd0 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 interp, Tcl_NewI
22de0 6e 74 4f 62 6a 28 72 63 29 29 3b 0a 20 20 72 65 ntObj(rc));. re
22df0 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 20 20 0a 7d turn TCL_OK; .}
22e00 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 ../*.** tclcmd:
22e10 20 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 74 65 save_prng_state
22e20 0a 2a 2a 0a 2a 2a 20 53 61 76 65 20 74 68 65 20 .**.** Save the
22e30 73 74 61 74 65 20 6f 66 20 74 68 65 20 70 73 65 state of the pse
22e40 75 64 6f 2d 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 udo-random numbe
22e50 72 20 67 65 6e 65 72 61 74 6f 72 2e 0a 2a 2a 20 r generator..**
22e60 41 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 At the same time
22e70 2c 20 76 65 72 69 66 79 20 74 68 61 74 20 73 71 , verify that sq
22e80 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 lite3_test_contr
22e90 6f 6c 20 77 6f 72 6b 73 20 65 76 65 6e 20 77 68 ol works even wh
22ea0 65 6e 0a 2a 2a 20 63 61 6c 6c 65 64 20 77 69 74 en.** called wit
22eb0 68 20 61 6e 20 6f 75 74 2d 6f 66 2d 72 61 6e 67 h an out-of-rang
22ec0 65 20 6f 70 63 6f 64 65 2e 0a 2a 2f 0a 73 74 61 e opcode..*/.sta
22ed0 74 69 63 20 69 6e 74 20 73 61 76 65 5f 70 72 6e tic int save_prn
22ee0 67 5f 73 74 61 74 65 28 0a 20 20 43 6c 69 65 6e g_state(. Clien
22ef0 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
22f00 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 , /* Pointer to
22f10 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 sqlite3_enable_X
22f20 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 XX function */.
22f30 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
22f40 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
22f50 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
22f60 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
22f70 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
22f80 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 t objc,
22f90 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
22fa0 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
22fb0 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
22fc0 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 objv[] /* Comma
22fd0 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a nd arguments */.
22fe0 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 73 71 ){. int rc = sq
22ff0 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 lite3_test_contr
23000 6f 6c 28 39 39 39 39 29 3b 0a 20 20 61 73 73 65 ol(9999);. asse
23010 72 74 28 20 72 63 3d 3d 30 20 29 3b 0a 20 20 72 rt( rc==0 );. r
23020 63 20 3d 20 73 71 6c 69 74 65 33 5f 74 65 73 74 c = sqlite3_test
23030 5f 63 6f 6e 74 72 6f 6c 28 2d 31 29 3b 0a 20 20 _control(-1);.
23040 61 73 73 65 72 74 28 20 72 63 3d 3d 30 20 29 3b assert( rc==0 );
23050 0a 20 20 73 71 6c 69 74 65 33 5f 74 65 73 74 5f . sqlite3_test_
23060 63 6f 6e 74 72 6f 6c 28 53 51 4c 49 54 45 5f 54 control(SQLITE_T
23070 45 53 54 43 54 52 4c 5f 50 52 4e 47 5f 53 41 56 ESTCTRL_PRNG_SAV
23080 45 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c E);. return TCL
23090 5f 4f 4b 3b 0a 7d 0a 2f 2a 0a 2a 2a 20 74 63 6c _OK;.}./*.** tcl
230a0 63 6d 64 3a 20 20 72 65 73 74 6f 72 65 5f 70 72 cmd: restore_pr
230b0 6e 67 5f 73 74 61 74 65 0a 2a 2f 0a 73 74 61 74 ng_state.*/.stat
230c0 69 63 20 69 6e 74 20 72 65 73 74 6f 72 65 5f 70 ic int restore_p
230d0 72 6e 67 5f 73 74 61 74 65 28 0a 20 20 43 6c 69 rng_state(. Cli
230e0 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
230f0 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 ta, /* Pointer t
23100 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 o sqlite3_enable
23110 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f _XXX function */
23120 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
23130 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
23140 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
23150 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
23160 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
23170 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 int objc,
23180 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
23190 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
231a0 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
231b0 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d T objv[] /* Com
231c0 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a mand arguments *
231d0 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 74 /.){. sqlite3_t
231e0 65 73 74 5f 63 6f 6e 74 72 6f 6c 28 53 51 4c 49 est_control(SQLI
231f0 54 45 5f 54 45 53 54 43 54 52 4c 5f 50 52 4e 47 TE_TESTCTRL_PRNG
23200 5f 52 45 53 54 4f 52 45 29 3b 0a 20 20 72 65 74 _RESTORE);. ret
23210 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 2f 2a urn TCL_OK;.}./*
23220 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 72 65 73 .** tclcmd: res
23230 65 74 5f 70 72 6e 67 5f 73 74 61 74 65 0a 2a 2f et_prng_state.*/
23240 0a 73 74 61 74 69 63 20 69 6e 74 20 72 65 73 65 .static int rese
23250 74 5f 70 72 6e 67 5f 73 74 61 74 65 28 0a 20 20 t_prng_state(.
23260 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
23270 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 tData, /* Pointe
23280 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 r to sqlite3_ena
23290 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e ble_XXX function
232a0 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 */. Tcl_Interp
232b0 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
232c0 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
232d0 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
232e0 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
232f0 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 . int objc,
23300 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
23310 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
23320 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 */. Tcl_Obj *C
23330 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 ONST objv[] /*
23340 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 Command argument
23350 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 s */.){. sqlite
23360 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 28 53 3_test_control(S
23370 51 4c 49 54 45 5f 54 45 53 54 43 54 52 4c 5f 50 QLITE_TESTCTRL_P
23380 52 4e 47 5f 52 45 53 45 54 29 3b 0a 20 20 72 65 RNG_RESET);. re
23390 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
233a0 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 70 /*.** tclcmd: p
233b0 63 61 63 68 65 5f 73 74 61 74 73 0a 2a 2f 0a 73 cache_stats.*/.s
233c0 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 70 tatic int test_p
233d0 63 61 63 68 65 5f 73 74 61 74 73 28 0a 20 20 43 cache_stats(. C
233e0 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
233f0 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72 Data, /* Pointer
23400 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 to sqlite3_enab
23410 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20 le_XXX function
23420 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 */. Tcl_Interp
23430 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
23440 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
23450 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
23460 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
23470 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 int objc,
23480 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
23490 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
234a0 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f */. Tcl_Obj *CO
234b0 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 NST objv[] /* C
234c0 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 ommand arguments
234d0 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 6e 4d 69 */.){. int nMi
234e0 6e 3b 0a 20 20 69 6e 74 20 6e 4d 61 78 3b 0a 20 n;. int nMax;.
234f0 20 69 6e 74 20 6e 43 75 72 72 65 6e 74 3b 0a 20 int nCurrent;.
23500 20 69 6e 74 20 6e 52 65 63 79 63 6c 61 62 6c 65 int nRecyclable
23510 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 ;. Tcl_Obj *pRe
23520 74 3b 0a 0a 20 20 73 71 6c 69 74 65 33 50 63 61 t;.. sqlite3Pca
23530 63 68 65 53 74 61 74 73 28 26 6e 43 75 72 72 65 cheStats(&nCurre
23540 6e 74 2c 20 26 6e 4d 61 78 2c 20 26 6e 4d 69 6e nt, &nMax, &nMin
23550 2c 20 26 6e 52 65 63 79 63 6c 61 62 6c 65 29 3b , &nRecyclable);
23560 0a 0a 20 20 70 52 65 74 20 3d 20 54 63 6c 5f 4e .. pRet = Tcl_N
23570 65 77 4f 62 6a 28 29 3b 0a 20 20 54 63 6c 5f 4c ewObj();. Tcl_L
23580 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
23590 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 ent(interp, pRet
235a0 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
235b0 62 6a 28 22 63 75 72 72 65 6e 74 22 2c 20 2d 31 bj("current", -1
235c0 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ));. Tcl_ListOb
235d0 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
235e0 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 54 63 6c nterp, pRet, Tcl
235f0 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e 43 75 72 72 _NewIntObj(nCurr
23600 65 6e 74 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 ent));. Tcl_Lis
23610 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
23620 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 t(interp, pRet,
23630 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
23640 28 22 6d 61 78 22 2c 20 2d 31 29 29 3b 0a 20 20 ("max", -1));.
23650 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
23660 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
23670 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 49 6e pRet, Tcl_NewIn
23680 74 4f 62 6a 28 6e 4d 61 78 29 29 3b 0a 20 20 54 tObj(nMax));. T
23690 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
236a0 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
236b0 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 pRet, Tcl_NewStr
236c0 69 6e 67 4f 62 6a 28 22 6d 69 6e 22 2c 20 2d 31 ingObj("min", -1
236d0 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ));. Tcl_ListOb
236e0 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
236f0 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 54 63 6c nterp, pRet, Tcl
23700 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e 4d 69 6e 29 _NewIntObj(nMin)
23710 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a );. Tcl_ListObj
23720 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
23730 74 65 72 70 2c 20 70 52 65 74 2c 20 54 63 6c 5f terp, pRet, Tcl_
23740 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 72 65 NewStringObj("re
23750 63 79 63 6c 61 62 6c 65 22 2c 20 2d 31 29 29 3b cyclable", -1));
23760 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 . Tcl_ListObjAp
23770 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
23780 72 70 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 rp, pRet, Tcl_Ne
23790 77 49 6e 74 4f 62 6a 28 6e 52 65 63 79 63 6c 61 wIntObj(nRecycla
237a0 62 6c 65 29 29 3b 0a 0a 20 20 54 63 6c 5f 53 65 ble));.. Tcl_Se
237b0 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
237c0 70 2c 20 70 52 65 74 29 3b 0a 0a 20 20 72 65 74 p, pRet);.. ret
237d0 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 urn TCL_OK;.}..#
237e0 69 66 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 ifdef SQLITE_ENA
237f0 42 4c 45 5f 55 4e 4c 4f 43 4b 5f 4e 4f 54 49 46 BLE_UNLOCK_NOTIF
23800 59 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 Y.static void te
23810 73 74 5f 75 6e 6c 6f 63 6b 5f 6e 6f 74 69 66 79 st_unlock_notify
23820 5f 63 62 28 76 6f 69 64 20 2a 2a 61 41 72 67 2c _cb(void **aArg,
23830 20 69 6e 74 20 6e 41 72 67 29 7b 0a 20 20 69 6e int nArg){. in
23840 74 20 69 69 3b 0a 20 20 66 6f 72 28 69 69 3d 30 t ii;. for(ii=0
23850 3b 20 69 69 3c 6e 41 72 67 3b 20 69 69 2b 2b 29 ; ii<nArg; ii++)
23860 7b 0a 20 20 20 20 54 63 6c 5f 45 76 61 6c 45 78 {. Tcl_EvalEx
23870 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 29 61 ((Tcl_Interp *)a
23880 41 72 67 5b 69 69 5d 2c 20 22 75 6e 6c 6f 63 6b Arg[ii], "unlock
23890 5f 6e 6f 74 69 66 79 22 2c 20 2d 31 2c 20 54 43 _notify", -1, TC
238a0 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a L_EVAL_GLOBAL);.
238b0 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 }.}.#endif /*
238c0 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 55 4e SQLITE_ENABLE_UN
238d0 4c 4f 43 4b 5f 4e 4f 54 49 46 59 20 2a 2f 0a 0a LOCK_NOTIFY */..
238e0 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 73 /*.** tclcmd: s
238f0 71 6c 69 74 65 33 5f 75 6e 6c 6f 63 6b 5f 6e 6f qlite3_unlock_no
23900 74 69 66 79 20 64 62 0a 2a 2f 0a 23 69 66 64 65 tify db.*/.#ifde
23910 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f f SQLITE_ENABLE_
23920 55 4e 4c 4f 43 4b 5f 4e 4f 54 49 46 59 0a 73 74 UNLOCK_NOTIFY.st
23930 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 75 6e atic int test_un
23940 6c 6f 63 6b 5f 6e 6f 74 69 66 79 28 0a 20 20 43 lock_notify(. C
23950 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
23960 44 61 74 61 2c 20 2f 2a 20 55 6e 75 73 65 64 20 Data, /* Unused
23970 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 */. Tcl_Interp
23980 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
23990 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
239a0 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
239b0 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
239c0 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 int objc,
239d0 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
239e0 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
239f0 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f */. Tcl_Obj *CO
23a00 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 NST objv[] /* C
23a10 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 ommand arguments
23a20 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 */.){. sqlite3
23a30 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a *db;. int rc;.
23a40 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 . if( objc!=2 )
23a50 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
23a60 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
23a70 2c 20 6f 62 6a 76 2c 20 22 44 42 22 29 3b 0a 20 , objv, "DB");.
23a80 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
23a90 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
23aa0 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
23ab0 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
23ac0 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
23ad0 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 ) ){. return
23ae0 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
23af0 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 75 6e rc = sqlite3_un
23b00 6c 6f 63 6b 5f 6e 6f 74 69 66 79 28 64 62 2c 20 lock_notify(db,
23b10 74 65 73 74 5f 75 6e 6c 6f 63 6b 5f 6e 6f 74 69 test_unlock_noti
23b20 66 79 5f 63 62 2c 20 28 76 6f 69 64 20 2a 29 69 fy_cb, (void *)i
23b30 6e 74 65 72 70 29 3b 0a 20 20 54 63 6c 5f 53 65 nterp);. Tcl_Se
23b40 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
23b50 28 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e (char *)t1ErrorN
23b60 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 ame(rc), TCL_STA
23b70 54 49 43 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 TIC);. return T
23b80 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a CL_OK;.}.#endif.
23b90 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 ./*.** tclcmd:
23ba0 73 71 6c 69 74 65 33 5f 77 61 6c 5f 63 68 65 63 sqlite3_wal_chec
23bb0 6b 70 6f 69 6e 74 20 64 62 20 3f 4e 41 4d 45 3f kpoint db ?NAME?
23bc0 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
23bd0 65 73 74 5f 77 61 6c 5f 63 68 65 63 6b 70 6f 69 est_wal_checkpoi
23be0 6e 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 nt(. ClientData
23bf0 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 clientData, /*
23c00 55 6e 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f Unused */. Tcl_
23c10 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
23c20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
23c30 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
23c40 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
23c50 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a and */. int obj
23c60 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
23c70 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
23c80 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f uments */. Tcl_
23c90 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
23ca0 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 ] /* Command ar
23cb0 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 guments */.){.
23cc0 63 68 61 72 20 2a 7a 44 62 20 3d 20 30 3b 0a 20 char *zDb = 0;.
23cd0 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
23ce0 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
23cf0 62 6a 63 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d bjc!=3 && objc!=
23d00 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 2 ){. Tcl_Wro
23d10 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
23d20 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 20 3f , 1, objv, "DB ?
23d30 4e 41 4d 45 3f 22 29 3b 0a 20 20 20 20 72 65 74 NAME?");. ret
23d40 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
23d50 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 44 62 50 }.. if( getDbP
23d60 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
23d70 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
23d80 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 7b 0a 20 v[1]), &db) ){.
23d90 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
23da0 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6f ROR;. }. if( o
23db0 62 6a 63 3d 3d 33 20 29 7b 0a 20 20 20 20 7a 44 bjc==3 ){. zD
23dc0 62 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e b = Tcl_GetStrin
23dd0 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 7d 0a g(objv[2]);. }.
23de0 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 77 rc = sqlite3_w
23df0 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 28 64 62 al_checkpoint(db
23e00 2c 20 7a 44 62 29 3b 0a 20 20 54 63 6c 5f 53 65 , zDb);. Tcl_Se
23e10 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
23e20 28 63 68 61 72 20 2a 29 74 31 45 72 72 6f 72 4e (char *)t1ErrorN
23e30 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 ame(rc), TCL_STA
23e40 54 49 43 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 TIC);. return T
23e50 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
23e60 74 63 6c 63 6d 64 3a 20 20 74 65 73 74 5f 73 71 tclcmd: test_sq
23e70 6c 69 74 65 33 5f 6c 6f 67 20 3f 53 43 52 49 50 lite3_log ?SCRIP
23e80 54 3f 0a 2a 2f 0a 73 74 61 74 69 63 20 73 74 72 T?.*/.static str
23e90 75 63 74 20 4c 6f 67 43 61 6c 6c 62 61 63 6b 20 uct LogCallback
23ea0 7b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a {. Tcl_Interp *
23eb0 70 49 6e 74 65 72 70 3b 0a 20 20 54 63 6c 5f 4f pInterp;. Tcl_O
23ec0 62 6a 20 2a 70 4f 62 6a 3b 0a 7d 20 6c 6f 67 63 bj *pObj;.} logc
23ed0 61 6c 6c 62 61 63 6b 20 3d 20 7b 30 2c 20 30 7d allback = {0, 0}
23ee0 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 20 78 4c ;.static void xL
23ef0 6f 67 63 61 6c 6c 62 61 63 6b 28 76 6f 69 64 20 ogcallback(void
23f00 2a 75 6e 75 73 65 64 2c 20 69 6e 74 20 65 72 72 *unused, int err
23f10 2c 20 63 68 61 72 20 2a 7a 4d 73 67 29 7b 0a 20 , char *zMsg){.
23f20 20 54 63 6c 5f 4f 62 6a 20 2a 70 4e 65 77 20 3d Tcl_Obj *pNew =
23f30 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 Tcl_DuplicateOb
23f40 6a 28 6c 6f 67 63 61 6c 6c 62 61 63 6b 2e 70 4f j(logcallback.pO
23f50 62 6a 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 bj);. Tcl_IncrR
23f60 65 66 43 6f 75 6e 74 28 70 4e 65 77 29 3b 0a 20 efCount(pNew);.
23f70 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
23f80 6e 64 45 6c 65 6d 65 6e 74 28 0a 20 20 20 20 20 ndElement(.
23f90 20 30 2c 20 70 4e 65 77 2c 20 54 63 6c 5f 4e 65 0, pNew, Tcl_Ne
23fa0 77 53 74 72 69 6e 67 4f 62 6a 28 73 71 6c 69 74 wStringObj(sqlit
23fb0 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 e3TestErrorName(
23fc0 65 72 72 29 2c 20 2d 31 29 0a 20 20 29 3b 0a 20 err), -1). );.
23fd0 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
23fe0 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 4e 65 ndElement(0, pNe
23ff0 77 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 w, Tcl_NewString
24000 4f 62 6a 28 7a 4d 73 67 2c 20 2d 31 29 29 3b 0a Obj(zMsg, -1));.
24010 20 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 Tcl_EvalObjEx(
24020 6c 6f 67 63 61 6c 6c 62 61 63 6b 2e 70 49 6e 74 logcallback.pInt
24030 65 72 70 2c 20 70 4e 65 77 2c 20 54 43 4c 5f 45 erp, pNew, TCL_E
24040 56 41 4c 5f 47 4c 4f 42 41 4c 7c 54 43 4c 5f 45 VAL_GLOBAL|TCL_E
24050 56 41 4c 5f 44 49 52 45 43 54 29 3b 0a 20 20 54 VAL_DIRECT);. T
24060 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
24070 70 4e 65 77 29 3b 0a 7d 0a 73 74 61 74 69 63 20 pNew);.}.static
24080 69 6e 74 20 74 65 73 74 5f 73 71 6c 69 74 65 33 int test_sqlite3
24090 5f 6c 6f 67 28 0a 20 20 43 6c 69 65 6e 74 44 61 _log(. ClientDa
240a0 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 ta clientData,.
240b0 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
240c0 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 erp, /* The T
240d0 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 CL interpreter t
240e0 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 hat invoked this
240f0 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e command */. in
24100 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 t objc,
24110 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
24120 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 f arguments */.
24130 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
24140 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 objv[] /* Comma
24150 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a nd arguments */.
24160 29 7b 0a 20 20 69 66 28 20 6f 62 6a 63 3e 32 20 ){. if( objc>2
24170 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
24180 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
24190 31 2c 20 6f 62 6a 76 2c 20 22 53 43 52 49 50 54 1, objv, "SCRIPT
241a0 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
241b0 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
241c0 69 66 28 20 6c 6f 67 63 61 6c 6c 62 61 63 6b 2e if( logcallback.
241d0 70 4f 62 6a 20 29 7b 0a 20 20 20 20 54 63 6c 5f pObj ){. Tcl_
241e0 44 65 63 72 52 65 66 43 6f 75 6e 74 28 6c 6f 67 DecrRefCount(log
241f0 63 61 6c 6c 62 61 63 6b 2e 70 4f 62 6a 29 3b 0a callback.pObj);.
24200 20 20 20 20 6c 6f 67 63 61 6c 6c 62 61 63 6b 2e logcallback.
24210 70 4f 62 6a 20 3d 20 30 3b 0a 20 20 20 20 6c 6f pObj = 0;. lo
24220 67 63 61 6c 6c 62 61 63 6b 2e 70 49 6e 74 65 72 gcallback.pInter
24230 70 20 3d 20 30 3b 0a 20 20 20 20 73 71 6c 69 74 p = 0;. sqlit
24240 65 33 5f 63 6f 6e 66 69 67 28 53 51 4c 49 54 45 e3_config(SQLITE
24250 5f 43 4f 4e 46 49 47 5f 4c 4f 47 2c 20 30 2c 20 _CONFIG_LOG, 0,
24260 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6f 62 0);. }. if( ob
24270 6a 63 3e 31 20 29 7b 0a 20 20 20 20 6c 6f 67 63 jc>1 ){. logc
24280 61 6c 6c 62 61 63 6b 2e 70 4f 62 6a 20 3d 20 6f allback.pObj = o
24290 62 6a 76 5b 31 5d 3b 0a 20 20 20 20 54 63 6c 5f bjv[1];. Tcl_
242a0 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6c 6f 67 IncrRefCount(log
242b0 63 61 6c 6c 62 61 63 6b 2e 70 4f 62 6a 29 3b 0a callback.pObj);.
242c0 20 20 20 20 6c 6f 67 63 61 6c 6c 62 61 63 6b 2e logcallback.
242d0 70 49 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 pInterp = interp
242e0 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6f ;. sqlite3_co
242f0 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 4f 4e 46 nfig(SQLITE_CONF
24300 49 47 5f 4c 4f 47 2c 20 78 4c 6f 67 63 61 6c 6c IG_LOG, xLogcall
24310 62 61 63 6b 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 back, 0);. }.
24320 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
24330 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 74 63 6c 5f ../*.** tcl_
24340 6f 62 6a 70 72 6f 63 20 43 4f 4d 4d 41 4e 44 4e objproc COMMANDN
24350 41 4d 45 20 41 52 47 53 2e 2e 2e 0a 2a 2a 0a 2a AME ARGS....**.*
24360 2a 20 52 75 6e 20 61 20 54 43 4c 20 63 6f 6d 6d * Run a TCL comm
24370 61 6e 64 20 75 73 69 6e 67 20 69 74 73 20 6f 62 and using its ob
24380 6a 50 72 6f 63 20 69 6e 74 65 72 66 61 63 65 2e jProc interface.
24390 20 20 54 68 72 6f 77 20 61 6e 20 65 72 72 6f 72 Throw an error
243a0 20 69 66 0a 2a 2a 20 74 68 65 20 63 6f 6d 6d 61 if.** the comma
243b0 6e 64 20 68 61 73 20 6e 6f 20 6f 62 6a 50 72 6f nd has no objPro
243c0 63 20 69 6e 74 65 72 66 61 63 65 2e 0a 2a 2f 0a c interface..*/.
243d0 73 74 61 74 69 63 20 69 6e 74 20 72 75 6e 41 73 static int runAs
243e0 4f 62 6a 50 72 6f 63 28 0a 20 20 76 6f 69 64 20 ObjProc(. void
243f0 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
24400 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
24410 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
24420 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
24430 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 54 63 6c objv[].){. Tcl
24440 5f 43 6d 64 49 6e 66 6f 20 63 6d 64 49 6e 66 6f _CmdInfo cmdInfo
24450 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3c 32 20 29 ;. if( objc<2 )
24460 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
24470 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
24480 2c 20 6f 62 6a 76 2c 20 22 43 4f 4d 4d 41 4e 44 , objv, "COMMAND
24490 20 2e 2e 2e 22 29 3b 0a 20 20 20 20 72 65 74 75 ...");. retu
244a0 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
244b0 7d 0a 20 20 69 66 28 20 21 54 63 6c 5f 47 65 74 }. if( !Tcl_Get
244c0 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69 6e 74 65 CommandInfo(inte
244d0 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
244e0 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 63 6d 64 g(objv[1]), &cmd
244f0 49 6e 66 6f 29 20 29 7b 0a 20 20 20 20 54 63 6c Info) ){. Tcl
24500 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
24510 74 65 72 70 2c 20 22 63 6f 6d 6d 61 6e 64 20 6e terp, "command n
24520 6f 74 20 66 6f 75 6e 64 3a 20 22 2c 0a 20 20 20 ot found: ",.
24530 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 Tcl_GetS
24540 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 tring(objv[1]),
24550 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 72 (char*)0);. r
24560 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
24570 0a 20 20 7d 0a 20 20 69 66 28 20 63 6d 64 49 6e . }. if( cmdIn
24580 66 6f 2e 6f 62 6a 50 72 6f 63 3d 3d 30 20 29 7b fo.objProc==0 ){
24590 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
245a0 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 esult(interp, "c
245b0 6f 6d 6d 61 6e 64 20 68 61 73 20 6e 6f 20 6f 62 ommand has no ob
245c0 6a 50 72 6f 63 3a 20 22 2c 0a 20 20 20 20 20 20 jProc: ",.
245d0 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
245e0 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 28 63 68 ng(objv[1]), (ch
245f0 61 72 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 75 ar*)0);. retu
24600 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
24610 7d 0a 20 20 72 65 74 75 72 6e 20 63 6d 64 49 6e }. return cmdIn
24620 66 6f 2e 6f 62 6a 50 72 6f 63 28 63 6d 64 49 6e fo.objProc(cmdIn
24630 66 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 61 74 61 fo.objClientData
24640 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2d 31 , interp, objc-1
24650 2c 20 6f 62 6a 76 2b 31 29 3b 0a 7d 0a 0a 0a 2f , objv+1);.}.../
24660 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 20 63 6f *.** Register co
24670 6d 6d 61 6e 64 73 20 77 69 74 68 20 74 68 65 20 mmands with the
24680 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 2e TCL interpreter.
24690 0a 2a 2f 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 .*/.int Sqlitete
246a0 73 74 31 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 st1_Init(Tcl_Int
246b0 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 erp *interp){.
246c0 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
246d0 65 33 5f 73 65 61 72 63 68 5f 63 6f 75 6e 74 3b e3_search_count;
246e0 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
246f0 6c 69 74 65 33 5f 66 6f 75 6e 64 5f 63 6f 75 6e lite3_found_coun
24700 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 t;. extern int
24710 73 71 6c 69 74 65 33 5f 69 6e 74 65 72 72 75 70 sqlite3_interrup
24720 74 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 t_count;. exter
24730 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6f 70 n int sqlite3_op
24740 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 3b 0a 20 en_file_count;.
24750 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 extern int sqli
24760 74 65 33 5f 73 6f 72 74 5f 63 6f 75 6e 74 3b 0a te3_sort_count;.
24770 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c extern int sql
24780 69 74 65 33 5f 63 75 72 72 65 6e 74 5f 74 69 6d ite3_current_tim
24790 65 3b 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 e;.#if SQLITE_OS
247a0 5f 55 4e 49 58 20 26 26 20 64 65 66 69 6e 65 64 _UNIX && defined
247b0 28 5f 5f 41 50 50 4c 45 5f 5f 29 20 26 26 20 53 (__APPLE__) && S
247c0 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 4c 4f 43 QLITE_ENABLE_LOC
247d0 4b 49 4e 47 5f 53 54 59 4c 45 0a 20 20 65 78 74 KING_STYLE. ext
247e0 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
247f0 68 6f 73 74 69 64 5f 6e 75 6d 3b 0a 23 65 6e 64 hostid_num;.#end
24800 69 66 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 if. extern int
24810 73 71 6c 69 74 65 33 5f 6d 61 78 5f 62 6c 6f 62 sqlite3_max_blob
24820 73 69 7a 65 3b 0a 20 20 65 78 74 65 72 6e 20 69 size;. extern i
24830 6e 74 20 73 71 6c 69 74 65 33 42 74 72 65 65 53 nt sqlite3BtreeS
24840 68 61 72 65 64 43 61 63 68 65 52 65 70 6f 72 74 haredCacheReport
24850 28 76 6f 69 64 2a 2c 0a 20 20 20 20 20 20 20 20 (void*,.
24860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
24870 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
24880 20 20 54 63 6c 5f 49 6e 74 65 72 70 2a 2c 69 6e Tcl_Interp*,in
24890 74 2c 54 63 6c 5f 4f 62 6a 2a 43 4f 4e 53 54 2a t,Tcl_Obj*CONST*
248a0 29 3b 0a 20 20 73 74 61 74 69 63 20 73 74 72 75 );. static stru
248b0 63 74 20 7b 0a 20 20 20 20 20 63 68 61 72 20 2a ct {. char *
248c0 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 54 63 6c 5f zName;. Tcl_
248d0 43 6d 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a CmdProc *xProc;.
248e0 20 20 7d 20 61 43 6d 64 5b 5d 20 3d 20 7b 0a 20 } aCmd[] = {.
248f0 20 20 20 20 7b 20 22 64 62 5f 65 6e 74 65 72 22 { "db_enter"
24900 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
24910 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
24920 72 6f 63 2a 29 64 62 5f 65 6e 74 65 72 20 20 20 roc*)db_enter
24930 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 },.
24940 20 20 20 20 7b 20 22 64 62 5f 6c 65 61 76 65 22 { "db_leave"
24950 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
24960 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
24970 72 6f 63 2a 29 64 62 5f 6c 65 61 76 65 20 20 20 roc*)db_leave
24980 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 },.
24990 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
249a0 70 72 69 6e 74 66 5f 69 6e 74 22 2c 20 20 20 20 printf_int",
249b0 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
249c0 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 roc*)sqlite3_mpr
249d0 69 6e 74 66 5f 69 6e 74 20 20 20 20 7d 2c 0a 20 intf_int },.
249e0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
249f0 70 72 69 6e 74 66 5f 69 6e 74 36 34 22 2c 20 20 printf_int64",
24a00 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
24a10 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 roc*)sqlite3_mpr
24a20 69 6e 74 66 5f 69 6e 74 36 34 20 20 7d 2c 0a 20 intf_int64 },.
24a30 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
24a40 70 72 69 6e 74 66 5f 6c 6f 6e 67 22 2c 20 20 20 printf_long",
24a50 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
24a60 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 roc*)sqlite3_mpr
24a70 69 6e 74 66 5f 6c 6f 6e 67 20 20 20 7d 2c 0a 20 intf_long },.
24a80 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
24a90 70 72 69 6e 74 66 5f 73 74 72 22 2c 20 20 20 20 printf_str",
24aa0 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
24ab0 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 roc*)sqlite3_mpr
24ac0 69 6e 74 66 5f 73 74 72 20 20 20 20 7d 2c 0a 20 intf_str },.
24ad0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 { "sqlite3_s
24ae0 6e 70 72 69 6e 74 66 5f 73 74 72 22 2c 20 20 20 nprintf_str",
24af0 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
24b00 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 73 6e 70 roc*)sqlite3_snp
24b10 72 69 6e 74 66 5f 73 74 72 20 20 20 7d 2c 0a 20 rintf_str },.
24b20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
24b30 70 72 69 6e 74 66 5f 73 74 72 6f 6e 6c 79 22 2c printf_stronly",
24b40 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
24b50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 roc*)sqlite3_mpr
24b60 69 6e 74 66 5f 73 74 72 6f 6e 6c 79 7d 2c 0a 20 intf_stronly},.
24b70 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
24b80 70 72 69 6e 74 66 5f 64 6f 75 62 6c 65 22 2c 20 printf_double",
24b90 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
24ba0 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 roc*)sqlite3_mpr
24bb0 69 6e 74 66 5f 64 6f 75 62 6c 65 20 7d 2c 0a 20 intf_double },.
24bc0 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
24bd0 70 72 69 6e 74 66 5f 73 63 61 6c 65 64 22 2c 20 printf_scaled",
24be0 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
24bf0 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 roc*)sqlite3_mpr
24c00 69 6e 74 66 5f 73 63 61 6c 65 64 20 7d 2c 0a 20 intf_scaled },.
24c10 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
24c20 70 72 69 6e 74 66 5f 68 65 78 64 6f 75 62 6c 65 printf_hexdouble
24c30 22 2c 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f ", (Tcl_CmdPro
24c40 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e c*)sqlite3_mprin
24c50 74 66 5f 68 65 78 64 6f 75 62 6c 65 7d 2c 0a 20 tf_hexdouble},.
24c60 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
24c70 70 72 69 6e 74 66 5f 7a 5f 74 65 73 74 22 2c 20 printf_z_test",
24c80 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
24c90 72 6f 63 2a 29 74 65 73 74 5f 6d 70 72 69 6e 74 roc*)test_mprint
24ca0 66 5f 7a 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 f_z },.
24cb0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d 70 { "sqlite3_mp
24cc0 72 69 6e 74 66 5f 6e 5f 74 65 73 74 22 2c 20 20 rintf_n_test",
24cd0 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
24ce0 6f 63 2a 29 74 65 73 74 5f 6d 70 72 69 6e 74 66 oc*)test_mprintf
24cf0 5f 6e 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 _n },.
24d00 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 6e 70 { "sqlite3_snp
24d10 72 69 6e 74 66 5f 69 6e 74 22 2c 20 20 20 20 20 rintf_int",
24d20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f (Tcl_CmdPro
24d30 63 2a 29 74 65 73 74 5f 73 6e 70 72 69 6e 74 66 c*)test_snprintf
24d40 5f 69 6e 74 20 20 20 20 20 7d 2c 0a 20 20 20 20 _int },.
24d50 20 7b 20 22 73 71 6c 69 74 65 33 5f 6c 61 73 74 { "sqlite3_last
24d60 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 22 2c 20 _insert_rowid",
24d70 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 (Tcl_CmdProc
24d80 2a 29 74 65 73 74 5f 6c 61 73 74 5f 72 6f 77 69 *)test_last_rowi
24d90 64 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 d },.
24da0 7b 20 22 73 71 6c 69 74 65 33 5f 65 78 65 63 5f { "sqlite3_exec_
24db0 70 72 69 6e 74 66 22 2c 20 20 20 20 20 20 20 20 printf",
24dc0 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
24dd0 29 74 65 73 74 5f 65 78 65 63 5f 70 72 69 6e 74 )test_exec_print
24de0 66 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b f },. {
24df0 20 22 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 68 "sqlite3_exec_h
24e00 65 78 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 ex",
24e10 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
24e20 74 65 73 74 5f 65 78 65 63 5f 68 65 78 20 20 20 test_exec_hex
24e30 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 },. {
24e40 22 73 71 6c 69 74 65 33 5f 65 78 65 63 22 2c 20 "sqlite3_exec",
24e50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
24e60 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 (Tcl_CmdProc*)t
24e70 65 73 74 5f 65 78 65 63 20 20 20 20 20 20 20 20 est_exec
24e80 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 },. { "
24e90 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 6e 72 22 sqlite3_exec_nr"
24ea0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
24eb0 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 (Tcl_CmdProc*)te
24ec0 73 74 5f 65 78 65 63 5f 6e 72 20 20 20 20 20 20 st_exec_nr
24ed0 20 20 20 20 7d 2c 0a 23 69 66 6e 64 65 66 20 53 },.#ifndef S
24ee0 51 4c 49 54 45 5f 4f 4d 49 54 5f 47 45 54 5f 54 QLITE_OMIT_GET_T
24ef0 41 42 4c 45 0a 20 20 20 20 20 7b 20 22 73 71 6c ABLE. { "sql
24f00 69 74 65 33 5f 67 65 74 5f 74 61 62 6c 65 5f 70 ite3_get_table_p
24f10 72 69 6e 74 66 22 2c 20 20 20 20 20 20 28 54 63 rintf", (Tc
24f20 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
24f30 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74 66 get_table_printf
24f40 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 },.#endif.
24f50 7b 20 22 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 { "sqlite3_close
24f60 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
24f70 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
24f80 29 73 71 6c 69 74 65 5f 74 65 73 74 5f 63 6c 6f )sqlite_test_clo
24f90 73 65 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b se },. {
24fa0 20 22 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 "sqlite3_create
24fb0 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 20 20 20 20 _function",
24fc0 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
24fd0 74 65 73 74 5f 63 72 65 61 74 65 5f 66 75 6e 63 test_create_func
24fe0 74 69 6f 6e 20 20 7d 2c 0a 20 20 20 20 20 7b 20 tion },. {
24ff0 22 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f "sqlite3_create_
25000 61 67 67 72 65 67 61 74 65 22 2c 20 20 20 20 20 aggregate",
25010 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 (Tcl_CmdProc*)t
25020 65 73 74 5f 63 72 65 61 74 65 5f 61 67 67 72 65 est_create_aggre
25030 67 61 74 65 20 7d 2c 0a 20 20 20 20 20 7b 20 22 gate },. { "
25040 73 71 6c 69 74 65 5f 72 65 67 69 73 74 65 72 5f sqlite_register_
25050 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 test_function",
25060 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 (Tcl_CmdProc*)te
25070 73 74 5f 72 65 67 69 73 74 65 72 5f 66 75 6e 63 st_register_func
25080 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
25090 71 6c 69 74 65 5f 61 62 6f 72 74 22 2c 20 20 20 qlite_abort",
250a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
250b0 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c Tcl_CmdProc*)sql
250c0 69 74 65 5f 61 62 6f 72 74 20 20 20 20 20 20 20 ite_abort
250d0 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 },. { "sq
250e0 6c 69 74 65 5f 62 69 6e 64 22 2c 20 20 20 20 20 lite_bind",
250f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 (T
25100 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 cl_CmdProc*)test
25110 5f 62 69 6e 64 20 20 20 20 20 20 20 20 20 20 20 _bind
25120 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 62 72 65 },. { "bre
25130 61 6b 70 6f 69 6e 74 22 2c 20 20 20 20 20 20 20 akpoint",
25140 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
25150 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
25160 62 72 65 61 6b 70 6f 69 6e 74 20 20 20 20 20 20 breakpoint
25170 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
25180 74 65 33 5f 6b 65 79 22 2c 20 20 20 20 20 20 20 te3_key",
25190 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c (Tcl
251a0 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 6b _CmdProc*)test_k
251b0 65 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ey
251c0 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
251d0 65 33 5f 72 65 6b 65 79 22 2c 20 20 20 20 20 20 e3_rekey",
251e0 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f (Tcl_
251f0 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 72 65 CmdProc*)test_re
25200 6b 65 79 20 20 20 20 20 20 20 20 20 20 20 20 7d key }
25210 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
25220 5f 73 65 74 5f 6d 61 67 69 63 22 2c 20 20 20 20 _set_magic",
25230 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 (Tcl_C
25240 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 5f 73 mdProc*)sqlite_s
25250 65 74 5f 6d 61 67 69 63 20 20 20 20 20 20 7d 2c et_magic },
25260 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
25270 5f 69 6e 74 65 72 72 75 70 74 22 2c 20 20 20 20 _interrupt",
25280 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d (Tcl_Cm
25290 64 50 72 6f 63 2a 29 74 65 73 74 5f 69 6e 74 65 dProc*)test_inte
252a0 72 72 75 70 74 20 20 20 20 20 20 20 20 7d 2c 0a rrupt },.
252b0 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f 64 { "sqlite_d
252c0 65 6c 65 74 65 5f 66 75 6e 63 74 69 6f 6e 22 2c elete_function",
252d0 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 (Tcl_Cmd
252e0 50 72 6f 63 2a 29 64 65 6c 65 74 65 5f 66 75 6e Proc*)delete_fun
252f0 63 74 69 6f 6e 20 20 20 20 20 20 20 7d 2c 0a 20 ction },.
25300 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f 64 65 { "sqlite_de
25310 6c 65 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 22 2c lete_collation",
25320 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
25330 72 6f 63 2a 29 64 65 6c 65 74 65 5f 63 6f 6c 6c roc*)delete_coll
25340 61 74 69 6f 6e 20 20 20 20 20 20 7d 2c 0a 20 20 ation },.
25350 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 67 65 { "sqlite3_ge
25360 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 22 2c 20 20 t_autocommit",
25370 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
25380 6f 63 2a 29 67 65 74 5f 61 75 74 6f 63 6f 6d 6d oc*)get_autocomm
25390 69 74 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 it },.
253a0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 74 61 { "sqlite3_sta
253b0 63 6b 5f 75 73 65 64 22 2c 20 20 20 20 20 20 20 ck_used",
253c0 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f (Tcl_CmdPro
253d0 63 2a 29 74 65 73 74 5f 73 74 61 63 6b 5f 75 73 c*)test_stack_us
253e0 65 64 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 ed },.
253f0 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 75 73 79 { "sqlite3_busy
25400 5f 74 69 6d 65 6f 75 74 22 2c 20 20 20 20 20 20 _timeout",
25410 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 (Tcl_CmdProc
25420 2a 29 74 65 73 74 5f 62 75 73 79 5f 74 69 6d 65 *)test_busy_time
25430 6f 75 74 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 out },.
25440 7b 20 22 70 72 69 6e 74 66 22 2c 20 20 20 20 20 { "printf",
25450 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25460 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
25470 29 74 65 73 74 5f 70 72 69 6e 74 66 20 20 20 20 )test_printf
25480 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b },. {
25490 20 22 73 71 6c 69 74 65 33 49 6f 54 72 61 63 65 "sqlite3IoTrace
254a0 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
254b0 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 (Tcl_CmdProc*)te
254c0 73 74 5f 69 6f 5f 74 72 61 63 65 20 20 20 20 20 st_io_trace
254d0 20 20 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 73 74 },. };. st
254e0 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 atic struct {.
254f0 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a char *zName;.
25500 20 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 Tcl_ObjCmdP
25510 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 20 20 roc *xProc;.
25520 20 76 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61 74 void *clientDat
25530 61 3b 0a 20 20 7d 20 61 4f 62 6a 43 6d 64 5b 5d a;. } aObjCmd[]
25540 20 3d 20 7b 0a 20 20 20 20 20 7b 20 22 73 71 6c = {. { "sql
25550 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f ite3_connection_
25560 70 6f 69 6e 74 65 72 22 2c 20 20 20 20 67 65 74 pointer", get
25570 5f 73 71 6c 69 74 65 5f 70 6f 69 6e 74 65 72 2c _sqlite_pointer,
25580 20 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 0 },. { "sq
25590 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 22 2c lite3_bind_int",
255a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 te
255b0 73 74 5f 62 69 6e 64 5f 69 6e 74 2c 20 20 20 20 st_bind_int,
255c0 20 20 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 0 },. { "s
255d0 71 6c 69 74 65 33 5f 62 69 6e 64 5f 7a 65 72 6f qlite3_bind_zero
255e0 62 6c 6f 62 22 2c 20 20 20 20 20 20 20 20 20 74 blob", t
255f0 65 73 74 5f 62 69 6e 64 5f 7a 65 72 6f 62 6c 6f est_bind_zeroblo
25600 62 2c 20 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 b, 0 },. { "
25610 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 sqlite3_bind_int
25620 36 34 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 64",
25630 74 65 73 74 5f 62 69 6e 64 5f 69 6e 74 36 34 2c test_bind_int64,
25640 20 20 20 20 30 20 7d 2c 0a 20 20 20 20 20 7b 20 0 },. {
25650 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 64 6f "sqlite3_bind_do
25660 75 62 6c 65 22 2c 20 20 20 20 20 20 20 20 20 20 uble",
25670 20 74 65 73 74 5f 62 69 6e 64 5f 64 6f 75 62 6c test_bind_doubl
25680 65 2c 20 20 20 30 20 7d 2c 0a 20 20 20 20 20 7b e, 0 },. {
25690 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 6e "sqlite3_bind_n
256a0 75 6c 6c 22 2c 20 20 20 20 20 20 20 20 20 20 20 ull",
256b0 20 20 74 65 73 74 5f 62 69 6e 64 5f 6e 75 6c 6c test_bind_null
256c0 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 ,0 },.
256d0 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f { "sqlite3_bind_
256e0 74 65 78 74 22 2c 20 20 20 20 20 20 20 20 20 20 text",
256f0 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 74 65 78 test_bind_tex
25700 74 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 t ,0 },.
25710 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 { "sqlite3_bind
25720 5f 74 65 78 74 31 36 22 2c 20 20 20 20 20 20 20 _text16",
25730 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 74 65 test_bind_te
25740 78 74 31 36 20 20 20 2c 30 20 7d 2c 0a 20 20 20 xt16 ,0 },.
25750 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e { "sqlite3_bin
25760 64 5f 62 6c 6f 62 22 2c 20 20 20 20 20 20 20 20 d_blob",
25770 20 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 62 test_bind_b
25780 6c 6f 62 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 lob ,0 },.
25790 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 { "sqlite3_bi
257a0 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 63 6f 75 nd_parameter_cou
257b0 6e 74 22 2c 20 20 74 65 73 74 5f 62 69 6e 64 5f nt", test_bind_
257c0 70 61 72 61 6d 65 74 65 72 5f 63 6f 75 6e 74 2c parameter_count,
257d0 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0},. { "sql
257e0 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 61 6d 65 ite3_bind_parame
257f0 74 65 72 5f 6e 61 6d 65 22 2c 20 20 20 74 65 73 ter_name", tes
25800 74 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 t_bind_parameter
25810 5f 6e 61 6d 65 2c 20 20 30 7d 2c 0a 20 20 20 20 _name, 0},.
25820 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 { "sqlite3_bind
25830 5f 70 61 72 61 6d 65 74 65 72 5f 69 6e 64 65 78 _parameter_index
25840 22 2c 20 20 74 65 73 74 5f 62 69 6e 64 5f 70 61 ", test_bind_pa
25850 72 61 6d 65 74 65 72 5f 69 6e 64 65 78 2c 20 30 rameter_index, 0
25860 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
25870 65 33 5f 63 6c 65 61 72 5f 62 69 6e 64 69 6e 67 e3_clear_binding
25880 73 22 2c 20 20 20 20 20 20 20 20 74 65 73 74 5f s", test_
25890 63 6c 65 61 72 5f 62 69 6e 64 69 6e 67 73 2c 20 clear_bindings,
258a0 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 0},. { "sqli
258b0 74 65 33 5f 73 6c 65 65 70 22 2c 20 20 20 20 20 te3_sleep",
258c0 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
258d0 5f 73 6c 65 65 70 2c 20 20 20 20 20 20 20 20 20 _sleep,
258e0 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0},. { "sql
258f0 69 74 65 33 5f 65 72 72 63 6f 64 65 22 2c 20 20 ite3_errcode",
25900 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
25910 74 5f 65 72 72 63 6f 64 65 20 20 20 20 20 20 20 t_errcode
25920 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
25930 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 65 lite3_extended_e
25940 72 72 63 6f 64 65 22 2c 20 20 20 20 20 20 74 65 rrcode", te
25950 73 74 5f 65 78 5f 65 72 72 63 6f 64 65 20 20 20 st_ex_errcode
25960 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
25970 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 22 2c 20 qlite3_errmsg",
25980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
25990 65 73 74 5f 65 72 72 6d 73 67 20 20 20 20 20 20 est_errmsg
259a0 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
259b0 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 31 36 sqlite3_errmsg16
259c0 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
259d0 74 65 73 74 5f 65 72 72 6d 73 67 31 36 20 20 20 test_errmsg16
259e0 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
259f0 22 73 71 6c 69 74 65 33 5f 6f 70 65 6e 22 2c 20 "sqlite3_open",
25a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25a10 20 74 65 73 74 5f 6f 70 65 6e 20 20 20 20 20 20 test_open
25a20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b ,0 },. {
25a30 20 22 73 71 6c 69 74 65 33 5f 6f 70 65 6e 31 36 "sqlite3_open16
25a40 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
25a50 20 20 74 65 73 74 5f 6f 70 65 6e 31 36 20 20 20 test_open16
25a60 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 ,0 },.
25a70 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6d 70 6c { "sqlite3_compl
25a80 65 74 65 31 36 22 2c 20 20 20 20 20 20 20 20 20 ete16",
25a90 20 20 20 74 65 73 74 5f 63 6f 6d 70 6c 65 74 65 test_complete
25aa0 31 36 20 20 20 20 2c 30 20 7d 2c 0a 0a 20 20 20 16 ,0 },..
25ab0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 70 72 65 { "sqlite3_pre
25ac0 70 61 72 65 22 2c 20 20 20 20 20 20 20 20 20 20 pare",
25ad0 20 20 20 20 20 74 65 73 74 5f 70 72 65 70 61 72 test_prepar
25ae0 65 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 e ,0 },.
25af0 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 70 72 { "sqlite3_pr
25b00 65 70 61 72 65 31 36 22 2c 20 20 20 20 20 20 20 epare16",
25b10 20 20 20 20 20 20 74 65 73 74 5f 70 72 65 70 61 test_prepa
25b20 72 65 31 36 20 20 20 20 20 2c 30 20 7d 2c 0a 20 re16 ,0 },.
25b30 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 70 { "sqlite3_p
25b40 72 65 70 61 72 65 5f 76 32 22 2c 20 20 20 20 20 repare_v2",
25b50 20 20 20 20 20 20 20 74 65 73 74 5f 70 72 65 70 test_prep
25b60 61 72 65 5f 76 32 20 20 20 20 2c 30 20 7d 2c 0a are_v2 ,0 },.
25b70 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
25b80 70 72 65 70 61 72 65 5f 74 6b 74 33 31 33 34 22 prepare_tkt3134"
25b90 2c 20 20 20 20 20 20 20 74 65 73 74 5f 70 72 65 , test_pre
25ba0 70 61 72 65 5f 74 6b 74 33 31 33 34 2c 20 30 7d pare_tkt3134, 0}
25bb0 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
25bc0 33 5f 70 72 65 70 61 72 65 31 36 5f 76 32 22 2c 3_prepare16_v2",
25bd0 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 70 test_p
25be0 72 65 70 61 72 65 31 36 5f 76 32 20 20 2c 30 20 repare16_v2 ,0
25bf0 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
25c00 65 33 5f 66 69 6e 61 6c 69 7a 65 22 2c 20 20 20 e3_finalize",
25c10 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f test_
25c20 66 69 6e 61 6c 69 7a 65 20 20 20 20 20 20 2c 30 finalize ,0
25c30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
25c40 74 65 33 5f 73 74 6d 74 5f 73 74 61 74 75 73 22 te3_stmt_status"
25c50 2c 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 , test
25c60 5f 73 74 6d 74 5f 73 74 61 74 75 73 20 20 20 2c _stmt_status ,
25c70 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
25c80 69 74 65 33 5f 72 65 73 65 74 22 2c 20 20 20 20 ite3_reset",
25c90 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
25ca0 74 5f 72 65 73 65 74 20 20 20 20 20 20 20 20 20 t_reset
25cb0 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
25cc0 6c 69 74 65 33 5f 65 78 70 69 72 65 64 22 2c 20 lite3_expired",
25cd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 te
25ce0 73 74 5f 65 78 70 69 72 65 64 20 20 20 20 20 20 st_expired
25cf0 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
25d00 71 6c 69 74 65 33 5f 74 72 61 6e 73 66 65 72 5f qlite3_transfer_
25d10 62 69 6e 64 69 6e 67 73 22 2c 20 20 20 20 20 74 bindings", t
25d20 65 73 74 5f 74 72 61 6e 73 66 65 72 5f 62 69 6e est_transfer_bin
25d30 64 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 d ,0 },. { "
25d40 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 22 sqlite3_changes"
25d50 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
25d60 74 65 73 74 5f 63 68 61 6e 67 65 73 20 20 20 20 test_changes
25d70 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
25d80 22 73 71 6c 69 74 65 33 5f 73 74 65 70 22 2c 20 "sqlite3_step",
25d90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25da0 20 74 65 73 74 5f 73 74 65 70 20 20 20 20 20 20 test_step
25db0 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b ,0 },. {
25dc0 20 22 73 71 6c 69 74 65 33 5f 73 71 6c 22 2c 20 "sqlite3_sql",
25dd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25de0 20 20 74 65 73 74 5f 73 71 6c 20 20 20 20 20 20 test_sql
25df0 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 ,0 },.
25e00 7b 20 22 73 71 6c 69 74 65 33 5f 6e 65 78 74 5f { "sqlite3_next_
25e10 73 74 6d 74 22 2c 20 20 20 20 20 20 20 20 20 20 stmt",
25e20 20 20 20 74 65 73 74 5f 6e 65 78 74 5f 73 74 6d test_next_stm
25e30 74 20 20 20 20 20 2c 30 20 7d 2c 0a 0a 20 20 20 t ,0 },..
25e40 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 72 65 6c { "sqlite3_rel
25e50 65 61 73 65 5f 6d 65 6d 6f 72 79 22 2c 20 20 20 ease_memory",
25e60 20 20 20 20 20 74 65 73 74 5f 72 65 6c 65 61 73 test_releas
25e70 65 5f 6d 65 6d 6f 72 79 2c 20 20 20 20 20 30 7d e_memory, 0}
25e80 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
25e90 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 3_soft_heap_limi
25ea0 74 22 2c 20 20 20 20 20 20 20 74 65 73 74 5f 73 t", test_s
25eb0 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 2c 20 oft_heap_limit,
25ec0 20 20 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 0},. { "s
25ed0 71 6c 69 74 65 33 5f 74 68 72 65 61 64 5f 63 6c qlite3_thread_cl
25ee0 65 61 6e 75 70 22 2c 20 20 20 20 20 20 20 20 74 eanup", t
25ef0 65 73 74 5f 74 68 72 65 61 64 5f 63 6c 65 61 6e est_thread_clean
25f00 75 70 2c 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 up, 0},.
25f10 20 7b 20 22 73 71 6c 69 74 65 33 5f 70 61 67 65 { "sqlite3_page
25f20 72 5f 72 65 66 63 6f 75 6e 74 73 22 2c 20 20 20 r_refcounts",
25f30 20 20 20 20 74 65 73 74 5f 70 61 67 65 72 5f 72 test_pager_r
25f40 65 66 63 6f 75 6e 74 73 2c 20 20 20 20 30 7d 2c efcounts, 0},
25f50 0a 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 .. { "sqlite
25f60 33 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 3_load_extension
25f70 22 2c 20 20 20 20 20 20 20 20 74 65 73 74 5f 6c ", test_l
25f80 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 2c 20 20 oad_extension,
25f90 20 20 20 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 0},. { "s
25fa0 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 6c 6f qlite3_enable_lo
25fb0 61 64 5f 65 78 74 65 6e 73 69 6f 6e 22 2c 20 74 ad_extension", t
25fc0 65 73 74 5f 65 6e 61 62 6c 65 5f 6c 6f 61 64 2c est_enable_load,
25fd0 20 20 20 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 0},.
25fe0 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 78 74 65 { "sqlite3_exte
25ff0 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 nded_result_code
26000 73 22 2c 20 74 65 73 74 5f 65 78 74 65 6e 64 65 s", test_extende
26010 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 2c 20 d_result_codes,
26020 30 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 0},. { "sqli
26030 74 65 33 5f 6c 69 6d 69 74 22 2c 20 20 20 20 20 te3_limit",
26040 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
26050 5f 6c 69 6d 69 74 2c 20 20 20 20 20 20 20 20 20 _limit,
26060 20 20 20 20 20 20 20 20 30 7d 2c 0a 0a 20 20 20 0},..
26070 20 20 7b 20 22 73 61 76 65 5f 70 72 6e 67 5f 73 { "save_prng_s
26080 74 61 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 tate",
26090 20 20 20 20 20 73 61 76 65 5f 70 72 6e 67 5f 73 save_prng_s
260a0 74 61 74 65 2c 20 20 20 20 30 20 7d 2c 0a 20 20 tate, 0 },.
260b0 20 20 20 7b 20 22 72 65 73 74 6f 72 65 5f 70 72 { "restore_pr
260c0 6e 67 5f 73 74 61 74 65 22 2c 20 20 20 20 20 20 ng_state",
260d0 20 20 20 20 20 20 72 65 73 74 6f 72 65 5f 70 72 restore_pr
260e0 6e 67 5f 73 74 61 74 65 2c 20 30 20 7d 2c 0a 20 ng_state, 0 },.
260f0 20 20 20 20 7b 20 22 72 65 73 65 74 5f 70 72 6e { "reset_prn
26100 67 5f 73 74 61 74 65 22 2c 20 20 20 20 20 20 20 g_state",
26110 20 20 20 20 20 20 20 72 65 73 65 74 5f 70 72 6e reset_prn
26120 67 5f 73 74 61 74 65 2c 20 20 20 30 20 7d 2c 0a g_state, 0 },.
26130 20 20 20 20 20 7b 20 22 74 63 6c 5f 6f 62 6a 70 { "tcl_objp
26140 72 6f 63 22 2c 20 20 20 20 20 20 20 20 20 20 20 roc",
26150 20 20 20 20 20 20 20 20 72 75 6e 41 73 4f 62 6a runAsObj
26160 50 72 6f 63 2c 20 20 20 20 20 20 20 30 20 7d 2c Proc, 0 },
26170 0a 0a 20 20 20 20 20 2f 2a 20 73 71 6c 69 74 65 .. /* sqlite
26180 33 5f 63 6f 6c 75 6d 6e 5f 2a 28 29 20 41 50 49 3_column_*() API
26190 20 2a 2f 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 */. { "sqli
261a0 74 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 te3_column_count
261b0 22 2c 20 20 20 20 20 20 20 20 20 20 74 65 73 74 ", test
261c0 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 20 20 2c _column_count ,
261d0 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
261e0 69 74 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74 22 ite3_data_count"
261f0 2c 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 , tes
26200 74 5f 64 61 74 61 5f 63 6f 75 6e 74 20 20 20 20 t_data_count
26210 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
26220 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 79 70 lite3_column_typ
26230 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 74 65 e", te
26240 73 74 5f 63 6f 6c 75 6d 6e 5f 74 79 70 65 20 20 st_column_type
26250 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
26260 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 6c qlite3_column_bl
26270 6f 62 22 2c 20 20 20 20 20 20 20 20 20 20 20 74 ob", t
26280 65 73 74 5f 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 20 est_column_blob
26290 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
262a0 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 sqlite3_column_d
262b0 6f 75 62 6c 65 22 2c 20 20 20 20 20 20 20 20 20 ouble",
262c0 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 test_column_doub
262d0 6c 65 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 le ,0 },. {
262e0 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f "sqlite3_column_
262f0 69 6e 74 36 34 22 2c 20 20 20 20 20 20 20 20 20 int64",
26300 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 test_column_int
26310 36 34 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 64 ,0 },. {
26320 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e "sqlite3_column
26330 5f 74 65 78 74 22 2c 20 20 20 74 65 73 74 5f 73 _text", test_s
26340 74 6d 74 5f 75 74 66 38 2c 20 20 28 76 6f 69 64 tmt_utf8, (void
26350 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e *)sqlite3_column
26360 5f 74 65 78 74 20 7d 2c 0a 20 20 20 20 20 7b 20 _text },. {
26370 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f "sqlite3_column_
26380 6e 61 6d 65 22 2c 20 20 20 74 65 73 74 5f 73 74 name", test_st
26390 6d 74 5f 75 74 66 38 2c 20 20 28 76 6f 69 64 2a mt_utf8, (void*
263a0 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f )sqlite3_column_
263b0 6e 61 6d 65 20 7d 2c 0a 20 20 20 20 20 7b 20 22 name },. { "
263c0 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 sqlite3_column_i
263d0 6e 74 22 2c 20 20 20 20 74 65 73 74 5f 73 74 6d nt", test_stm
263e0 74 5f 69 6e 74 2c 20 20 20 28 76 6f 69 64 2a 29 t_int, (void*)
263f0 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 sqlite3_column_i
26400 6e 74 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 nt },. { "s
26410 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 qlite3_column_by
26420 74 65 73 22 2c 20 20 74 65 73 74 5f 73 74 6d 74 tes", test_stmt
26430 5f 69 6e 74 2c 20 20 20 28 76 6f 69 64 2a 29 73 _int, (void*)s
26440 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 qlite3_column_by
26450 74 65 73 7d 2c 0a 23 69 66 6e 64 65 66 20 53 51 tes},.#ifndef SQ
26460 4c 49 54 45 5f 4f 4d 49 54 5f 44 45 43 4c 54 59 LITE_OMIT_DECLTY
26470 50 45 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 PE. { "sqlit
26480 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 e3_column_declty
26490 70 65 22 2c 74 65 73 74 5f 73 74 6d 74 5f 75 74 pe",test_stmt_ut
264a0 66 38 2c 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 f8,(void*)sqlite
264b0 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 3_column_decltyp
264c0 65 7d 2c 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 e},.#endif.#ifde
264d0 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f f SQLITE_ENABLE_
264e0 43 4f 4c 55 4d 4e 5f 4d 45 54 41 44 41 54 41 0a COLUMN_METADATA.
264f0 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d { "sqlite3_colum
26500 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d 65 22 n_database_name"
26510 2c 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 38 2c ,test_stmt_utf8,
26520 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 (void*)sqlite3_c
26530 6f 6c 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e olumn_database_n
26540 61 6d 65 7d 2c 0a 7b 20 22 73 71 6c 69 74 65 33 ame},.{ "sqlite3
26550 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 61 _column_table_na
26560 6d 65 22 2c 74 65 73 74 5f 73 74 6d 74 5f 75 74 me",test_stmt_ut
26570 66 38 2c 28 76 6f 69 64 2a 29 73 71 6c 69 74 65 f8,(void*)sqlite
26580 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 3_column_table_n
26590 61 6d 65 7d 2c 0a 7b 20 22 73 71 6c 69 74 65 33 ame},.{ "sqlite3
265a0 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e _column_origin_n
265b0 61 6d 65 22 2c 74 65 73 74 5f 73 74 6d 74 5f 75 ame",test_stmt_u
265c0 74 66 38 2c 28 76 6f 69 64 2a 29 73 71 6c 69 74 tf8,(void*)sqlit
265d0 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e e3_column_origin
265e0 5f 6e 61 6d 65 7d 2c 0a 23 65 6e 64 69 66 0a 0a _name},.#endif..
265f0 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
26600 4d 49 54 5f 55 54 46 31 36 0a 20 20 20 20 20 7b MIT_UTF16. {
26610 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e "sqlite3_column
26620 5f 62 79 74 65 73 31 36 22 2c 20 74 65 73 74 5f _bytes16", test_
26630 73 74 6d 74 5f 69 6e 74 2c 20 28 76 6f 69 64 2a stmt_int, (void*
26640 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f )sqlite3_column_
26650 62 79 74 65 73 31 36 20 7d 2c 0a 20 20 20 20 20 bytes16 },.
26660 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d { "sqlite3_colum
26670 6e 5f 74 65 78 74 31 36 22 2c 20 20 74 65 73 74 n_text16", test
26680 5f 73 74 6d 74 5f 75 74 66 31 36 2c 20 28 76 6f _stmt_utf16, (vo
26690 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 id*)sqlite3_colu
266a0 6d 6e 5f 74 65 78 74 31 36 7d 2c 0a 20 20 20 20 mn_text16},.
266b0 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 { "sqlite3_colu
266c0 6d 6e 5f 6e 61 6d 65 31 36 22 2c 20 20 74 65 73 mn_name16", tes
266d0 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c 20 28 76 t_stmt_utf16, (v
266e0 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c oid*)sqlite3_col
266f0 75 6d 6e 5f 6e 61 6d 65 31 36 7d 2c 0a 20 20 20 umn_name16},.
26700 20 20 7b 20 22 61 64 64 5f 61 6c 69 67 6e 6d 65 { "add_alignme
26710 6e 74 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 69 6f nt_test_collatio
26720 6e 73 22 2c 20 61 64 64 5f 61 6c 69 67 6e 6d 65 ns", add_alignme
26730 6e 74 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 69 6f nt_test_collatio
26740 6e 73 2c 20 30 20 20 20 20 20 20 7d 2c 0a 23 69 ns, 0 },.#i
26750 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
26760 54 5f 44 45 43 4c 54 59 50 45 0a 20 20 20 20 20 T_DECLTYPE.
26770 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d { "sqlite3_colum
26780 6e 5f 64 65 63 6c 74 79 70 65 31 36 22 2c 74 65 n_decltype16",te
26790 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c 28 76 st_stmt_utf16,(v
267a0 6f 69 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c oid*)sqlite3_col
267b0 75 6d 6e 5f 64 65 63 6c 74 79 70 65 31 36 7d 2c umn_decltype16},
267c0 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 53 .#endif.#ifdef S
267d0 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 43 4f 4c QLITE_ENABLE_COL
267e0 55 4d 4e 5f 4d 45 54 41 44 41 54 41 0a 7b 22 73 UMN_METADATA.{"s
267f0 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 qlite3_column_da
26800 74 61 62 61 73 65 5f 6e 61 6d 65 31 36 22 2c 0a tabase_name16",.
26810 20 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 31 test_stmt_utf1
26820 36 2c 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6, sqlite3_colum
26830 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d 65 31 n_database_name1
26840 36 7d 2c 0a 7b 22 73 71 6c 69 74 65 33 5f 63 6f 6},.{"sqlite3_co
26850 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 61 6d 65 31 lumn_table_name1
26860 36 22 2c 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 6", test_stmt_ut
26870 66 31 36 2c 20 28 76 6f 69 64 2a 29 73 71 6c 69 f16, (void*)sqli
26880 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 te3_column_table
26890 5f 6e 61 6d 65 31 36 7d 2c 0a 7b 22 73 71 6c 69 _name16},.{"sqli
268a0 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 te3_column_origi
268b0 6e 5f 6e 61 6d 65 31 36 22 2c 20 74 65 73 74 5f n_name16", test_
268c0 73 74 6d 74 5f 75 74 66 31 36 2c 20 28 76 6f 69 stmt_utf16, (voi
268d0 64 2a 29 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d d*)sqlite3_colum
268e0 6e 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 31 36 7d n_origin_name16}
268f0 2c 0a 23 65 6e 64 69 66 0a 23 65 6e 64 69 66 0a ,.#endif.#endif.
26900 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
26910 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e create_collation
26920 5f 76 32 22 2c 20 74 65 73 74 5f 63 72 65 61 74 _v2", test_creat
26930 65 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 2c 20 e_collation_v2,
26940 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
26950 69 74 65 33 5f 67 6c 6f 62 61 6c 5f 72 65 63 6f ite3_global_reco
26960 76 65 72 22 2c 20 20 20 20 20 74 65 73 74 5f 67 ver", test_g
26970 6c 6f 62 61 6c 5f 72 65 63 6f 76 65 72 2c 20 30 lobal_recover, 0
26980 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 77 6f },. { "wo
26990 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e 74 22 rking_64bit_int"
269a0 2c 20 20 20 20 20 20 20 20 20 20 77 6f 72 6b 69 , worki
269b0 6e 67 5f 36 34 62 69 74 5f 69 6e 74 2c 20 20 20 ng_64bit_int,
269c0 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 76 0 },. { "v
269d0 66 73 5f 75 6e 6c 69 6e 6b 5f 74 65 73 74 22 2c fs_unlink_test",
269e0 20 20 20 20 20 20 20 20 20 20 20 20 76 66 73 5f vfs_
269f0 75 6e 6c 69 6e 6b 5f 74 65 73 74 2c 20 20 20 20 unlink_test,
26a00 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 0 },. { "
26a10 76 66 73 5f 69 6e 69 74 66 61 69 6c 5f 74 65 73 vfs_initfail_tes
26a20 74 22 2c 20 20 20 20 20 20 20 20 20 20 76 66 73 t", vfs
26a30 5f 69 6e 69 74 66 61 69 6c 5f 74 65 73 74 2c 20 _initfail_test,
26a40 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 0 },. {
26a50 22 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 5f "vfs_unregister_
26a60 61 6c 6c 22 2c 20 20 20 20 20 20 20 20 20 76 66 all", vf
26a70 73 5f 75 6e 72 65 67 69 73 74 65 72 5f 61 6c 6c s_unregister_all
26a80 2c 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b , 0 },. {
26a90 20 22 76 66 73 5f 72 65 72 65 67 69 73 74 65 72 "vfs_reregister
26aa0 5f 61 6c 6c 22 2c 20 20 20 20 20 20 20 20 20 76 _all", v
26ab0 66 73 5f 72 65 72 65 67 69 73 74 65 72 5f 61 6c fs_reregister_al
26ac0 6c 2c 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 l, 0 },.
26ad0 7b 20 22 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f { "file_control_
26ae0 74 65 73 74 22 2c 20 20 20 20 20 20 20 20 20 20 test",
26af0 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 74 65 73 file_control_tes
26b00 74 2c 20 20 20 30 20 20 20 7d 2c 0a 20 20 20 20 t, 0 },.
26b10 20 7b 20 22 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c { "file_control
26b20 5f 6c 61 73 74 65 72 72 6e 6f 5f 74 65 73 74 22 _lasterrno_test"
26b30 2c 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c , file_control_l
26b40 61 73 74 65 72 72 6e 6f 5f 74 65 73 74 2c 20 20 asterrno_test,
26b50 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 66 0 },. { "f
26b60 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 6c 6f 63 6b ile_control_lock
26b70 70 72 6f 78 79 5f 74 65 73 74 22 2c 20 66 69 6c proxy_test", fil
26b80 65 5f 63 6f 6e 74 72 6f 6c 5f 6c 6f 63 6b 70 72 e_control_lockpr
26b90 6f 78 79 5f 74 65 73 74 2c 20 20 30 20 20 20 7d oxy_test, 0 }
26ba0 2c 0a 20 20 20 20 20 7b 20 22 66 69 6c 65 5f 63 ,. { "file_c
26bb0 6f 6e 74 72 6f 6c 5f 63 68 75 6e 6b 73 69 7a 65 ontrol_chunksize
26bc0 5f 74 65 73 74 22 2c 20 66 69 6c 65 5f 63 6f 6e _test", file_con
26bd0 74 72 6f 6c 5f 63 68 75 6e 6b 73 69 7a 65 5f 74 trol_chunksize_t
26be0 65 73 74 2c 20 20 30 20 20 20 7d 2c 0a 20 20 20 est, 0 },.
26bf0 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 76 66 73 { "sqlite3_vfs
26c00 5f 6c 69 73 74 22 2c 20 20 20 20 20 20 20 20 20 _list",
26c10 20 20 76 66 73 5f 6c 69 73 74 2c 20 20 20 20 20 vfs_list,
26c20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 0 },. { "s
26c30 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
26c40 6e 63 74 69 6f 6e 5f 76 32 22 2c 20 74 65 73 74 nction_v2", test
26c50 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
26c60 5f 76 32 2c 20 30 20 7d 2c 0a 0a 20 20 20 20 20 _v2, 0 },..
26c70 2f 2a 20 46 75 6e 63 74 69 6f 6e 73 20 66 72 6f /* Functions fro
26c80 6d 20 6f 73 2e 68 20 2a 2f 0a 23 69 66 6e 64 65 m os.h */.#ifnde
26c90 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 f SQLITE_OMIT_UT
26ca0 46 31 36 0a 20 20 20 20 20 7b 20 22 61 64 64 5f F16. { "add_
26cb0 74 65 73 74 5f 63 6f 6c 6c 61 74 65 22 2c 20 20 test_collate",
26cc0 20 20 20 20 20 20 74 65 73 74 5f 63 6f 6c 6c 61 test_colla
26cd0 74 65 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 te, 0
26ce0 20 7d 2c 0a 20 20 20 20 20 7b 20 22 61 64 64 5f },. { "add_
26cf0 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 test_collate_nee
26d00 64 65 64 22 2c 20 74 65 73 74 5f 63 6f 6c 6c 61 ded", test_colla
26d10 74 65 5f 6e 65 65 64 65 64 2c 20 30 20 20 20 20 te_needed, 0
26d20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 61 64 64 5f },. { "add_
26d30 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c 20 test_function",
26d40 20 20 20 20 20 20 74 65 73 74 5f 66 75 6e 63 74 test_funct
26d50 69 6f 6e 2c 20 30 20 20 20 20 20 20 20 20 20 20 ion, 0
26d60 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 },.#endif.
26d70 7b 20 22 73 71 6c 69 74 65 33 5f 74 65 73 74 5f { "sqlite3_test_
26d80 65 72 72 73 74 72 22 2c 20 20 20 20 20 74 65 73 errstr", tes
26d90 74 5f 65 72 72 73 74 72 2c 20 30 20 20 20 20 20 t_errstr, 0
26da0 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 },.
26db0 7b 20 22 74 63 6c 5f 76 61 72 69 61 62 6c 65 5f { "tcl_variable_
26dc0 74 79 70 65 22 2c 20 20 20 20 20 20 20 74 63 6c type", tcl
26dd0 5f 76 61 72 69 61 62 6c 65 5f 74 79 70 65 2c 20 _variable_type,
26de0 30 20 20 20 20 20 20 20 7d 2c 0a 23 69 66 6e 64 0 },.#ifnd
26df0 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 53 ef SQLITE_OMIT_S
26e00 48 41 52 45 44 5f 43 41 43 48 45 0a 20 20 20 20 HARED_CACHE.
26e10 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 6e 61 62 { "sqlite3_enab
26e20 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65 22 le_shared_cache"
26e30 2c 20 74 65 73 74 5f 65 6e 61 62 6c 65 5f 73 68 , test_enable_sh
26e40 61 72 65 64 2c 20 30 20 20 7d 2c 0a 20 20 20 20 ared, 0 },.
26e50 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 68 61 72 { "sqlite3_shar
26e60 65 64 5f 63 61 63 68 65 5f 72 65 70 6f 72 74 22 ed_cache_report"
26e70 2c 20 73 71 6c 69 74 65 33 42 74 72 65 65 53 68 , sqlite3BtreeSh
26e80 61 72 65 64 43 61 63 68 65 52 65 70 6f 72 74 2c aredCacheReport,
26e90 20 30 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 0},.#endif.
26ea0 20 7b 20 22 73 71 6c 69 74 65 33 5f 6c 69 62 76 { "sqlite3_libv
26eb0 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 22 2c 20 ersion_number",
26ec0 74 65 73 74 5f 6c 69 62 76 65 72 73 69 6f 6e 5f test_libversion_
26ed0 6e 75 6d 62 65 72 2c 20 30 20 20 7d 2c 0a 23 69 number, 0 },.#i
26ee0 66 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 fdef SQLITE_ENAB
26ef0 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 41 44 41 LE_COLUMN_METADA
26f00 54 41 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 TA. { "sqlit
26f10 65 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f e3_table_column_
26f20 6d 65 74 61 64 61 74 61 22 2c 20 74 65 73 74 5f metadata", test_
26f30 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 table_column_met
26f40 61 64 61 74 61 2c 20 30 20 20 7d 2c 0a 23 65 6e adata, 0 },.#en
26f50 64 69 66 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 dif.#ifndef SQLI
26f60 54 45 5f 4f 4d 49 54 5f 49 4e 43 52 42 4c 4f 42 TE_OMIT_INCRBLOB
26f70 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
26f80 5f 62 6c 6f 62 5f 72 65 61 64 22 2c 20 20 20 74 _blob_read", t
26f90 65 73 74 5f 62 6c 6f 62 5f 72 65 61 64 2c 20 30 est_blob_read, 0
26fa0 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c },. { "sql
26fb0 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69 74 65 22 ite3_blob_write"
26fc0 2c 20 20 74 65 73 74 5f 62 6c 6f 62 5f 77 72 69 , test_blob_wri
26fd0 74 65 2c 20 30 20 20 7d 2c 0a 20 20 20 20 20 7b te, 0 },. {
26fe0 20 22 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 72 "sqlite3_blob_r
26ff0 65 6f 70 65 6e 22 2c 20 74 65 73 74 5f 62 6c 6f eopen", test_blo
27000 62 5f 72 65 6f 70 65 6e 2c 20 30 20 20 7d 2c 0a b_reopen, 0 },.
27010 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
27020 62 6c 6f 62 5f 62 79 74 65 73 22 2c 20 20 74 65 blob_bytes", te
27030 73 74 5f 62 6c 6f 62 5f 62 79 74 65 73 2c 20 30 st_blob_bytes, 0
27040 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c },. { "sql
27050 69 74 65 33 5f 62 6c 6f 62 5f 63 6c 6f 73 65 22 ite3_blob_close"
27060 2c 20 20 74 65 73 74 5f 62 6c 6f 62 5f 63 6c 6f , test_blob_clo
27070 73 65 2c 20 30 20 20 7d 2c 0a 23 65 6e 64 69 66 se, 0 },.#endif
27080 0a 20 20 20 20 20 7b 20 22 70 63 61 63 68 65 5f . { "pcache_
27090 73 74 61 74 73 22 2c 20 20 20 20 20 20 20 74 65 stats", te
270a0 73 74 5f 70 63 61 63 68 65 5f 73 74 61 74 73 2c st_pcache_stats,
270b0 20 30 20 20 7d 2c 0a 23 69 66 64 65 66 20 53 51 0 },.#ifdef SQ
270c0 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 55 4e 4c 4f LITE_ENABLE_UNLO
270d0 43 4b 5f 4e 4f 54 49 46 59 0a 20 20 20 20 20 7b CK_NOTIFY. {
270e0 20 22 73 71 6c 69 74 65 33 5f 75 6e 6c 6f 63 6b "sqlite3_unlock
270f0 5f 6e 6f 74 69 66 79 22 2c 20 74 65 73 74 5f 75 _notify", test_u
27100 6e 6c 6f 63 6b 5f 6e 6f 74 69 66 79 2c 20 30 20 nlock_notify, 0
27110 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 },.#endif.
27120 7b 20 22 73 71 6c 69 74 65 33 5f 77 61 6c 5f 63 { "sqlite3_wal_c
27130 68 65 63 6b 70 6f 69 6e 74 22 2c 20 74 65 73 74 heckpoint", test
27140 5f 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 2c _wal_checkpoint,
27150 20 30 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 74 0 },. { "t
27160 65 73 74 5f 73 71 6c 69 74 65 33 5f 6c 6f 67 22 est_sqlite3_log"
27170 2c 20 20 20 20 20 74 65 73 74 5f 73 71 6c 69 74 , test_sqlit
27180 65 33 5f 6c 6f 67 2c 20 30 20 20 7d 2c 0a 20 20 e3_log, 0 },.
27190 7d 3b 0a 20 20 73 74 61 74 69 63 20 69 6e 74 20 };. static int
271a0 62 69 74 6d 61 73 6b 5f 73 69 7a 65 20 3d 20 73 bitmask_size = s
271b0 69 7a 65 6f 66 28 42 69 74 6d 61 73 6b 29 2a 38 izeof(Bitmask)*8
271c0 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 65 78 74 ;. int i;. ext
271d0 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
271e0 73 79 6e 63 5f 63 6f 75 6e 74 2c 20 73 71 6c 69 sync_count, sqli
271f0 74 65 33 5f 66 75 6c 6c 73 79 6e 63 5f 63 6f 75 te3_fullsync_cou
27200 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 nt;. extern int
27210 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 74 65 6d sqlite3_opentem
27220 70 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 p_count;. exter
27230 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6c 69 n int sqlite3_li
27240 6b 65 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 ke_count;. exte
27250 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 78 rn int sqlite3_x
27260 66 65 72 6f 70 74 5f 63 6f 75 6e 74 3b 0a 20 20 feropt_count;.
27270 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
27280 65 33 5f 70 61 67 65 72 5f 72 65 61 64 64 62 5f e3_pager_readdb_
27290 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 count;. extern
272a0 69 6e 74 20 73 71 6c 69 74 65 33 5f 70 61 67 65 int sqlite3_page
272b0 72 5f 77 72 69 74 65 64 62 5f 63 6f 75 6e 74 3b r_writedb_count;
272c0 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 . extern int sq
272d0 6c 69 74 65 33 5f 70 61 67 65 72 5f 77 72 69 74 lite3_pager_writ
272e0 65 6a 5f 63 6f 75 6e 74 3b 0a 23 69 66 20 53 51 ej_count;.#if SQ
272f0 4c 49 54 45 5f 4f 53 5f 57 49 4e 0a 20 20 65 78 LITE_OS_WIN. ex
27300 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 tern int sqlite3
27310 5f 6f 73 5f 74 79 70 65 3b 0a 23 65 6e 64 69 66 _os_type;.#endif
27320 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 44 .#ifdef SQLITE_D
27330 45 42 55 47 0a 20 20 65 78 74 65 72 6e 20 69 6e EBUG. extern in
27340 74 20 73 71 6c 69 74 65 33 57 68 65 72 65 54 72 t sqlite3WhereTr
27350 61 63 65 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e ace;. extern in
27360 74 20 73 71 6c 69 74 65 33 4f 53 54 72 61 63 65 t sqlite3OSTrace
27370 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 ;. extern int s
27380 71 6c 69 74 65 33 56 64 62 65 41 64 64 6f 70 54 qlite3VdbeAddopT
27390 72 61 63 65 3b 0a 20 20 65 78 74 65 72 6e 20 69 race;. extern i
273a0 6e 74 20 73 71 6c 69 74 65 33 57 61 6c 54 72 61 nt sqlite3WalTra
273b0 63 65 3b 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 ce;.#endif.#ifde
273c0 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 f SQLITE_TEST.
273d0 65 78 74 65 72 6e 20 63 68 61 72 20 73 71 6c 69 extern char sqli
273e0 74 65 33 5f 71 75 65 72 79 5f 70 6c 61 6e 5b 5d te3_query_plan[]
273f0 3b 0a 20 20 73 74 61 74 69 63 20 63 68 61 72 20 ;. static char
27400 2a 71 75 65 72 79 5f 70 6c 61 6e 20 3d 20 73 71 *query_plan = sq
27410 6c 69 74 65 33 5f 71 75 65 72 79 5f 70 6c 61 6e lite3_query_plan
27420 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ;.#ifdef SQLITE_
27430 45 4e 41 42 4c 45 5f 46 54 53 33 0a 20 20 65 78 ENABLE_FTS3. ex
27440 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 tern int sqlite3
27450 5f 66 74 73 33 5f 65 6e 61 62 6c 65 5f 70 61 72 _fts3_enable_par
27460 65 6e 74 68 65 73 65 73 3b 0a 23 65 6e 64 69 66 entheses;.#endif
27470 0a 23 65 6e 64 69 66 0a 0a 20 20 66 6f 72 28 69 .#endif.. for(i
27480 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 43 6d =0; i<sizeof(aCm
27490 64 29 2f 73 69 7a 65 6f 66 28 61 43 6d 64 5b 30 d)/sizeof(aCmd[0
274a0 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 ]); i++){. Tc
274b0 6c 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 l_CreateCommand(
274c0 69 6e 74 65 72 70 2c 20 61 43 6d 64 5b 69 5d 2e interp, aCmd[i].
274d0 7a 4e 61 6d 65 2c 20 61 43 6d 64 5b 69 5d 2e 78 zName, aCmd[i].x
274e0 50 72 6f 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d Proc, 0, 0);. }
274f0 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 . for(i=0; i<si
27500 7a 65 6f 66 28 61 4f 62 6a 43 6d 64 29 2f 73 69 zeof(aObjCmd)/si
27510 7a 65 6f 66 28 61 4f 62 6a 43 6d 64 5b 30 5d 29 zeof(aObjCmd[0])
27520 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f ; i++){. Tcl_
27530 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
27540 28 69 6e 74 65 72 70 2c 20 61 4f 62 6a 43 6d 64 (interp, aObjCmd
27550 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 0a 20 20 20 20 [i].zName, .
27560 20 20 20 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 78 aObjCmd[i].x
27570 50 72 6f 63 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d Proc, aObjCmd[i]
27580 2e 63 6c 69 65 6e 74 44 61 74 61 2c 20 30 29 3b .clientData, 0);
27590 0a 20 20 7d 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 . }. Tcl_LinkV
275a0 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 ar(interp, "sqli
275b0 74 65 5f 73 65 61 72 63 68 5f 63 6f 75 6e 74 22 te_search_count"
275c0 2c 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 , . (char*)
275d0 26 73 71 6c 69 74 65 33 5f 73 65 61 72 63 68 5f &sqlite3_search_
275e0 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f count, TCL_LINK_
275f0 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b INT);. Tcl_Link
27600 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c Var(interp, "sql
27610 69 74 65 5f 66 6f 75 6e 64 5f 63 6f 75 6e 74 22 ite_found_count"
27620 2c 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 , . (char*)
27630 26 73 71 6c 69 74 65 33 5f 66 6f 75 6e 64 5f 63 &sqlite3_found_c
27640 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 ount, TCL_LINK_I
27650 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 NT);. Tcl_LinkV
27660 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 ar(interp, "sqli
27670 74 65 5f 73 6f 72 74 5f 63 6f 75 6e 74 22 2c 20 te_sort_count",
27680 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 . (char*)&s
27690 71 6c 69 74 65 33 5f 73 6f 72 74 5f 63 6f 75 6e qlite3_sort_coun
276a0 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 t, TCL_LINK_INT)
276b0 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 ;. Tcl_LinkVar(
276c0 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 33 interp, "sqlite3
276d0 5f 6d 61 78 5f 62 6c 6f 62 73 69 7a 65 22 2c 20 _max_blobsize",
276e0 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 . (char*)&s
276f0 71 6c 69 74 65 33 5f 6d 61 78 5f 62 6c 6f 62 73 qlite3_max_blobs
27700 69 7a 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e ize, TCL_LINK_IN
27710 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 T);. Tcl_LinkVa
27720 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 r(interp, "sqlit
27730 65 5f 6c 69 6b 65 5f 63 6f 75 6e 74 22 2c 20 0a e_like_count", .
27740 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 (char*)&sq
27750 6c 69 74 65 33 5f 6c 69 6b 65 5f 63 6f 75 6e 74 lite3_like_count
27760 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b , TCL_LINK_INT);
27770 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
27780 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 69 nterp, "sqlite_i
27790 6e 74 65 72 72 75 70 74 5f 63 6f 75 6e 74 22 2c nterrupt_count",
277a0 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 . (char*)&
277b0 73 71 6c 69 74 65 33 5f 69 6e 74 65 72 72 75 70 sqlite3_interrup
277c0 74 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e t_count, TCL_LIN
277d0 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 K_INT);. Tcl_Li
277e0 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
277f0 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f qlite_open_file_
27800 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 count", . (
27810 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6f char*)&sqlite3_o
27820 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 2c 20 pen_file_count,
27830 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 TCL_LINK_INT);.
27840 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
27850 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 63 75 72 erp, "sqlite_cur
27860 72 65 6e 74 5f 74 69 6d 65 22 2c 20 0a 20 20 20 rent_time", .
27870 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 (char*)&sqlit
27880 65 33 5f 63 75 72 72 65 6e 74 5f 74 69 6d 65 2c e3_current_time,
27890 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a TCL_LINK_INT);.
278a0 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f 55 4e #if SQLITE_OS_UN
278b0 49 58 20 26 26 20 64 65 66 69 6e 65 64 28 5f 5f IX && defined(__
278c0 41 50 50 4c 45 5f 5f 29 20 26 26 20 53 51 4c 49 APPLE__) && SQLI
278d0 54 45 5f 45 4e 41 42 4c 45 5f 4c 4f 43 4b 49 4e TE_ENABLE_LOCKIN
278e0 47 5f 53 54 59 4c 45 0a 20 20 54 63 6c 5f 4c 69 G_STYLE. Tcl_Li
278f0 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
27900 71 6c 69 74 65 5f 68 6f 73 74 69 64 5f 6e 75 6d qlite_hostid_num
27910 22 2c 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a ", . (char*
27920 29 26 73 71 6c 69 74 65 33 5f 68 6f 73 74 69 64 )&sqlite3_hostid
27930 5f 6e 75 6d 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 _num, TCL_LINK_I
27940 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 20 20 54 63 NT);.#endif. Tc
27950 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
27960 2c 20 22 73 71 6c 69 74 65 33 5f 78 66 65 72 6f , "sqlite3_xfero
27970 70 74 5f 63 6f 75 6e 74 22 2c 0a 20 20 20 20 20 pt_count",.
27980 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 (char*)&sqlite3
27990 5f 78 66 65 72 6f 70 74 5f 63 6f 75 6e 74 2c 20 _xferopt_count,
279a0 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 TCL_LINK_INT);.
279b0 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 Tcl_LinkVar(int
279c0 65 72 70 2c 20 22 73 71 6c 69 74 65 33 5f 70 61 erp, "sqlite3_pa
279d0 67 65 72 5f 72 65 61 64 64 62 5f 63 6f 75 6e 74 ger_readdb_count
279e0 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 ",. (char*)
279f0 26 73 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 72 &sqlite3_pager_r
27a00 65 61 64 64 62 5f 63 6f 75 6e 74 2c 20 54 43 4c eaddb_count, TCL
27a10 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 _LINK_INT);. Tc
27a20 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
27a30 2c 20 22 73 71 6c 69 74 65 33 5f 70 61 67 65 72 , "sqlite3_pager
27a40 5f 77 72 69 74 65 64 62 5f 63 6f 75 6e 74 22 2c _writedb_count",
27a50 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 . (char*)&s
27a60 71 6c 69 74 65 33 5f 70 61 67 65 72 5f 77 72 69 qlite3_pager_wri
27a70 74 65 64 62 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f tedb_count, TCL_
27a80 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c LINK_INT);. Tcl
27a90 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c _LinkVar(interp,
27aa0 20 22 73 71 6c 69 74 65 33 5f 70 61 67 65 72 5f "sqlite3_pager_
27ab0 77 72 69 74 65 6a 5f 63 6f 75 6e 74 22 2c 0a 20 writej_count",.
27ac0 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c (char*)&sql
27ad0 69 74 65 33 5f 70 61 67 65 72 5f 77 72 69 74 65 ite3_pager_write
27ae0 6a 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e j_count, TCL_LIN
27af0 4b 5f 49 4e 54 29 3b 0a 23 69 66 6e 64 65 66 20 K_INT);.#ifndef
27b00 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 SQLITE_OMIT_UTF1
27b10 36 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 6. Tcl_LinkVar(
27b20 69 6e 74 65 72 70 2c 20 22 75 6e 61 6c 69 67 6e interp, "unalign
27b30 65 64 5f 73 74 72 69 6e 67 5f 63 6f 75 6e 74 65 ed_string_counte
27b40 72 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a r",. (char*
27b50 29 26 75 6e 61 6c 69 67 6e 65 64 5f 73 74 72 69 )&unaligned_stri
27b60 6e 67 5f 63 6f 75 6e 74 65 72 2c 20 54 43 4c 5f ng_counter, TCL_
27b70 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 LINK_INT);.#endi
27b80 66 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 f.#ifndef SQLITE
27b90 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 54 63 _OMIT_UTF16. Tc
27ba0 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
27bb0 2c 20 22 73 71 6c 69 74 65 5f 6c 61 73 74 5f 6e , "sqlite_last_n
27bc0 65 65 64 65 64 5f 63 6f 6c 6c 61 74 69 6f 6e 22 eeded_collation"
27bd0 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 ,. (char*)&
27be0 70 7a 4e 65 65 64 65 64 43 6f 6c 6c 61 74 69 6f pzNeededCollatio
27bf0 6e 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 n, TCL_LINK_STRI
27c00 4e 47 7c 54 43 4c 5f 4c 49 4e 4b 5f 52 45 41 44 NG|TCL_LINK_READ
27c10 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 23 _ONLY);.#endif.#
27c20 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e if SQLITE_OS_WIN
27c30 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
27c40 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f nterp, "sqlite_o
27c50 73 5f 74 79 70 65 22 2c 0a 20 20 20 20 20 20 28 s_type",. (
27c60 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 6f char*)&sqlite3_o
27c70 73 5f 74 79 70 65 2c 20 54 43 4c 5f 4c 49 4e 4b s_type, TCL_LINK
27c80 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 23 69 _INT);.#endif.#i
27c90 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 fdef SQLITE_TEST
27ca0 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
27cb0 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 71 nterp, "sqlite_q
27cc0 75 65 72 79 5f 70 6c 61 6e 22 2c 0a 20 20 20 20 uery_plan",.
27cd0 20 20 28 63 68 61 72 2a 29 26 71 75 65 72 79 5f (char*)&query_
27ce0 70 6c 61 6e 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 53 plan, TCL_LINK_S
27cf0 54 52 49 4e 47 7c 54 43 4c 5f 4c 49 4e 4b 5f 52 TRING|TCL_LINK_R
27d00 45 41 44 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 EAD_ONLY);.#endi
27d10 66 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f f.#ifdef SQLITE_
27d20 44 45 42 55 47 0a 20 20 54 63 6c 5f 4c 69 6e 6b DEBUG. Tcl_Link
27d30 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c Var(interp, "sql
27d40 69 74 65 5f 61 64 64 6f 70 5f 74 72 61 63 65 22 ite_addop_trace"
27d50 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 ,. (char*)&
27d60 73 71 6c 69 74 65 33 56 64 62 65 41 64 64 6f 70 sqlite3VdbeAddop
27d70 54 72 61 63 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f Trace, TCL_LINK_
27d80 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b INT);. Tcl_Link
27d90 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c Var(interp, "sql
27da0 69 74 65 5f 77 68 65 72 65 5f 74 72 61 63 65 22 ite_where_trace"
27db0 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 ,. (char*)&
27dc0 73 71 6c 69 74 65 33 57 68 65 72 65 54 72 61 63 sqlite3WhereTrac
27dd0 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 e, TCL_LINK_INT)
27de0 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 ;. Tcl_LinkVar(
27df0 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
27e00 6f 73 5f 74 72 61 63 65 22 2c 0a 20 20 20 20 20 os_trace",.
27e10 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 (char*)&sqlite3
27e20 4f 53 54 72 61 63 65 2c 20 54 43 4c 5f 4c 49 4e OSTrace, TCL_LIN
27e30 4b 5f 49 4e 54 29 3b 0a 23 69 66 6e 64 65 66 20 K_INT);.#ifndef
27e40 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 57 41 4c 0a SQLITE_OMIT_WAL.
27e50 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e Tcl_LinkVar(in
27e60 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 77 61 terp, "sqlite_wa
27e70 6c 5f 74 72 61 63 65 22 2c 0a 20 20 20 20 20 20 l_trace",.
27e80 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 57 (char*)&sqlite3W
27e90 61 6c 54 72 61 63 65 2c 20 54 43 4c 5f 4c 49 4e alTrace, TCL_LIN
27ea0 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 23 K_INT);.#endif.#
27eb0 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 53 51 endif.#ifndef SQ
27ec0 4c 49 54 45 5f 4f 4d 49 54 5f 44 49 53 4b 49 4f LITE_OMIT_DISKIO
27ed0 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
27ee0 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f nterp, "sqlite_o
27ef0 70 65 6e 74 65 6d 70 5f 63 6f 75 6e 74 22 2c 0a pentemp_count",.
27f00 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 (char*)&sq
27f10 6c 69 74 65 33 5f 6f 70 65 6e 74 65 6d 70 5f 63 lite3_opentemp_c
27f20 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 ount, TCL_LINK_I
27f30 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 20 20 54 63 NT);.#endif. Tc
27f40 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
27f50 2c 20 22 73 71 6c 69 74 65 5f 73 74 61 74 69 63 , "sqlite_static
27f60 5f 62 69 6e 64 5f 76 61 6c 75 65 22 2c 0a 20 20 _bind_value",.
27f70 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 (char*)&sqli
27f80 74 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 te_static_bind_v
27f90 61 6c 75 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 53 alue, TCL_LINK_S
27fa0 54 52 49 4e 47 29 3b 0a 20 20 54 63 6c 5f 4c 69 TRING);. Tcl_Li
27fb0 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
27fc0 71 6c 69 74 65 5f 73 74 61 74 69 63 5f 62 69 6e qlite_static_bin
27fd0 64 5f 6e 62 79 74 65 22 2c 0a 20 20 20 20 20 20 d_nbyte",.
27fe0 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 5f 73 (char*)&sqlite_s
27ff0 74 61 74 69 63 5f 62 69 6e 64 5f 6e 62 79 74 65 tatic_bind_nbyte
28000 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b , TCL_LINK_INT);
28010 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
28020 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 74 nterp, "sqlite_t
28030 65 6d 70 5f 64 69 72 65 63 74 6f 72 79 22 2c 0a emp_directory",.
28040 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 (char*)&sq
28050 6c 69 74 65 33 5f 74 65 6d 70 5f 64 69 72 65 63 lite3_temp_direc
28060 74 6f 72 79 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 53 tory, TCL_LINK_S
28070 54 52 49 4e 47 29 3b 0a 20 20 54 63 6c 5f 4c 69 TRING);. Tcl_Li
28080 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 62 nkVar(interp, "b
28090 69 74 6d 61 73 6b 5f 73 69 7a 65 22 2c 0a 20 20 itmask_size",.
280a0 20 20 20 20 28 63 68 61 72 2a 29 26 62 69 74 6d (char*)&bitm
280b0 61 73 6b 5f 73 69 7a 65 2c 20 54 43 4c 5f 4c 49 ask_size, TCL_LI
280c0 4e 4b 5f 49 4e 54 7c 54 43 4c 5f 4c 49 4e 4b 5f NK_INT|TCL_LINK_
280d0 52 45 41 44 5f 4f 4e 4c 59 29 3b 0a 20 20 54 63 READ_ONLY);. Tc
280e0 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
280f0 2c 20 22 73 71 6c 69 74 65 5f 73 79 6e 63 5f 63 , "sqlite_sync_c
28100 6f 75 6e 74 22 2c 0a 20 20 20 20 20 20 28 63 68 ount",. (ch
28110 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 73 79 6e ar*)&sqlite3_syn
28120 63 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e c_count, TCL_LIN
28130 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 K_INT);. Tcl_Li
28140 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 73 nkVar(interp, "s
28150 71 6c 69 74 65 5f 66 75 6c 6c 73 79 6e 63 5f 63 qlite_fullsync_c
28160 6f 75 6e 74 22 2c 0a 20 20 20 20 20 20 28 63 68 ount",. (ch
28170 61 72 2a 29 26 73 71 6c 69 74 65 33 5f 66 75 6c ar*)&sqlite3_ful
28180 6c 73 79 6e 63 5f 63 6f 75 6e 74 2c 20 54 43 4c lsync_count, TCL
28190 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 23 69 66 20 _LINK_INT);.#if
281a0 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 45 defined(SQLITE_E
281b0 4e 41 42 4c 45 5f 46 54 53 33 29 20 26 26 20 64 NABLE_FTS3) && d
281c0 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 54 45 efined(SQLITE_TE
281d0 53 54 29 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 ST). Tcl_LinkVa
281e0 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 r(interp, "sqlit
281f0 65 5f 66 74 73 33 5f 65 6e 61 62 6c 65 5f 70 61 e_fts3_enable_pa
28200 72 65 6e 74 68 65 73 65 73 22 2c 0a 20 20 20 20 rentheses",.
28210 20 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 (char*)&sqlite
28220 33 5f 66 74 73 33 5f 65 6e 61 62 6c 65 5f 70 61 3_fts3_enable_pa
28230 72 65 6e 74 68 65 73 65 73 2c 20 54 43 4c 5f 4c rentheses, TCL_L
28240 49 4e 4b 5f 49 4e 54 29 3b 0a 23 65 6e 64 69 66 INK_INT);.#endif
28250 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
28260 3b 0a 7d 0a ;.}.