0000: 2f 2a 0a 2a 2a 20 32 30 30 31 20 53 65 70 74 65 /*.** 2001 Septe
0010: 6d 62 65 72 20 31 35 0a 2a 2a 0a 2a 2a 20 54 68 mber 15.**.** Th
0020: 65 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 e author disclai
0030: 6d 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 ms copyright to
0040: 74 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 this source code
0050: 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a . In place of.*
0060: 2a 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 * a legal notice
0070: 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 , here is a bles
0080: 73 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d sing:.**.** M
0090: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 ay you do good a
00a0: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 nd not evil..**
00b0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 May you find
00c0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 forgiveness for
00d0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 yourself and for
00e0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 give others..**
00f0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 May you share
0100: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 freely, never t
0110: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 aking more than
0120: 79 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a you give..**.***
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0170: 2a 2a 2a 2a 2a 2a 0a 2a 2a 20 43 6f 64 65 20 66 ******.** Code f
0180: 6f 72 20 74 65 73 74 69 6e 67 20 74 68 65 20 70 or testing the p
0190: 72 69 6e 74 66 28 29 20 69 6e 74 65 72 66 61 63 rintf() interfac
01a0: 65 20 74 6f 20 53 51 4c 69 74 65 2e 20 20 54 68 e to SQLite. Th
01b0: 69 73 20 63 6f 64 65 0a 2a 2a 20 69 73 20 6e 6f is code.** is no
01c0: 74 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 74 68 t included in th
01d0: 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 e SQLite library
01e0: 2e 20 20 49 74 20 69 73 20 75 73 65 64 20 66 6f . It is used fo
01f0: 72 20 61 75 74 6f 6d 61 74 65 64 0a 2a 2a 20 74 r automated.** t
0200: 65 73 74 69 6e 67 20 6f 66 20 74 68 65 20 53 51 esting of the SQ
0210: 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 0a 2a 2a Lite library..**
0220: 0a 2a 2a 20 24 49 64 3a 20 74 65 73 74 31 2e 63 .** $Id: test1.c
0230: 2c 76 20 31 2e 34 32 20 32 30 30 34 2f 30 35 2f ,v 1.42 2004/05/
0240: 32 30 20 31 31 3a 30 30 3a 35 32 20 64 61 6e 69 20 11:00:52 dani
0250: 65 6c 6b 31 39 37 37 20 45 78 70 20 24 0a 2a 2f elk1977 Exp $.*/
0260: 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 .#include "sqlit
0270: 65 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 eInt.h".#include
0280: 20 22 74 63 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 "tcl.h".#includ
0290: 65 20 22 6f 73 2e 68 22 0a 23 69 6e 63 6c 75 64 e "os.h".#includ
02a0: 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e e <stdlib.h>.#in
02b0: 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e clude <string.h>
02c0: 0a 0a 23 69 66 20 4f 53 5f 57 49 4e 0a 23 20 64 ..#if OS_WIN.# d
02d0: 65 66 69 6e 65 20 50 54 52 5f 46 4d 54 20 22 25 efine PTR_FMT "%
02e0: 78 22 0a 23 65 6c 73 65 0a 23 20 64 65 66 69 6e x".#else.# defin
02f0: 65 20 50 54 52 5f 46 4d 54 20 22 25 70 22 0a 23 e PTR_FMT "%p".#
0300: 65 6e 64 69 66 0a 0a 73 74 61 74 69 63 20 63 6f endif..static co
0310: 6e 73 74 20 63 68 61 72 20 2a 20 65 72 72 6f 72 nst char * error
0320: 4e 61 6d 65 28 69 6e 74 20 72 63 29 7b 0a 20 20 Name(int rc){.
0330: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d const char *zNam
0340: 65 20 3d 20 30 3b 0a 20 20 73 77 69 74 63 68 28 e = 0;. switch(
0350: 20 72 63 20 29 7b 0a 20 20 20 20 63 61 73 65 20 rc ){. case
0360: 53 51 4c 49 54 45 5f 4f 4b 3a 20 20 20 20 20 20 SQLITE_OK:
0370: 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 zName = "SQLI
0380: 54 45 5f 4f 4b 22 3b 20 20 20 20 20 20 20 20 20 TE_OK";
0390: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
03a0: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3a 20 20 SQLITE_ERROR:
03b0: 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c zName = "SQL
03c0: 49 54 45 5f 45 52 52 4f 52 22 3b 20 20 20 20 20 ITE_ERROR";
03d0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
03e0: 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 52 4e 41 e SQLITE_INTERNA
03f0: 4c 3a 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 L: zName = "SQ
0400: 4c 49 54 45 5f 49 4e 54 45 52 4e 41 4c 22 3b 20 LITE_INTERNAL";
0410: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0420: 73 65 20 53 51 4c 49 54 45 5f 50 45 52 4d 3a 20 se SQLITE_PERM:
0430: 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 zName = "S
0440: 51 4c 49 54 45 5f 50 45 52 4d 22 3b 20 20 20 20 QLITE_PERM";
0450: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 break;. c
0460: 61 73 65 20 53 51 4c 49 54 45 5f 41 42 4f 52 54 ase SQLITE_ABORT
0470: 3a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 : zName = "
0480: 53 51 4c 49 54 45 5f 41 42 4f 52 54 22 3b 20 20 SQLITE_ABORT";
0490: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
04a0: 63 61 73 65 20 53 51 4c 49 54 45 5f 42 55 53 59 case SQLITE_BUSY
04b0: 3a 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 : zName =
04c0: 22 53 51 4c 49 54 45 5f 42 55 53 59 22 3b 20 20 "SQLITE_BUSY";
04d0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
04e0: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4c 4f 43 case SQLITE_LOC
04f0: 4b 45 44 3a 20 20 20 20 20 7a 4e 61 6d 65 20 3d KED: zName =
0500: 20 22 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 22 "SQLITE_LOCKED"
0510: 3b 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 ; break;.
0520: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 4f case SQLITE_NO
0530: 4d 45 4d 3a 20 20 20 20 20 20 7a 4e 61 6d 65 20 MEM: zName
0540: 3d 20 22 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 22 = "SQLITE_NOMEM"
0550: 3b 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ; break;.
0560: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 52 case SQLITE_R
0570: 45 41 44 4f 4e 4c 59 3a 20 20 20 7a 4e 61 6d 65 EADONLY: zName
0580: 20 3d 20 22 53 51 4c 49 54 45 5f 52 45 41 44 4f = "SQLITE_READO
0590: 4e 4c 59 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a NLY"; break;.
05a0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
05b0: 49 4e 54 45 52 52 55 50 54 3a 20 20 7a 4e 61 6d INTERRUPT: zNam
05c0: 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4e 54 45 e = "SQLITE_INTE
05d0: 52 52 55 50 54 22 3b 20 20 20 62 72 65 61 6b 3b RRUPT"; break;
05e0: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
05f0: 5f 49 4f 45 52 52 3a 20 20 20 20 20 20 7a 4e 61 _IOERR: zNa
0600: 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f 45 me = "SQLITE_IOE
0610: 52 52 22 3b 20 20 20 20 20 20 20 62 72 65 61 6b RR"; break
0620: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
0630: 45 5f 43 4f 52 52 55 50 54 3a 20 20 20 20 7a 4e E_CORRUPT: zN
0640: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 43 4f ame = "SQLITE_CO
0650: 52 52 55 50 54 22 3b 20 20 20 20 20 62 72 65 61 RRUPT"; brea
0660: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
0670: 54 45 5f 4e 4f 54 46 4f 55 4e 44 3a 20 20 20 7a TE_NOTFOUND: z
0680: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e Name = "SQLITE_N
0690: 4f 54 46 4f 55 4e 44 22 3b 20 20 20 20 62 72 65 OTFOUND"; bre
06a0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ak;. case SQL
06b0: 49 54 45 5f 46 55 4c 4c 3a 20 20 20 20 20 20 20 ITE_FULL:
06c0: 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f zName = "SQLITE_
06d0: 46 55 4c 4c 22 3b 20 20 20 20 20 20 20 20 62 72 FULL"; br
06e0: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 eak;. case SQ
06f0: 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3a 20 20 LITE_CANTOPEN:
0700: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 zName = "SQLITE
0710: 5f 43 41 4e 54 4f 50 45 4e 22 3b 20 20 20 20 62 _CANTOPEN"; b
0720: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
0730: 51 4c 49 54 45 5f 50 52 4f 54 4f 43 4f 4c 3a 20 QLITE_PROTOCOL:
0740: 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 zName = "SQLIT
0750: 45 5f 50 52 4f 54 4f 43 4f 4c 22 3b 20 20 20 20 E_PROTOCOL";
0760: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
0770: 53 51 4c 49 54 45 5f 45 4d 50 54 59 3a 20 20 20 SQLITE_EMPTY:
0780: 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 zName = "SQLI
0790: 54 45 5f 45 4d 50 54 59 22 3b 20 20 20 20 20 20 TE_EMPTY";
07a0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
07b0: 20 53 51 4c 49 54 45 5f 53 43 48 45 4d 41 3a 20 SQLITE_SCHEMA:
07c0: 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c zName = "SQL
07d0: 49 54 45 5f 53 43 48 45 4d 41 22 3b 20 20 20 20 ITE_SCHEMA";
07e0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
07f0: 65 20 53 51 4c 49 54 45 5f 54 4f 4f 42 49 47 3a e SQLITE_TOOBIG:
0800: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 zName = "SQ
0810: 4c 49 54 45 5f 54 4f 4f 42 49 47 22 3b 20 20 20 LITE_TOOBIG";
0820: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0830: 73 65 20 53 51 4c 49 54 45 5f 43 4f 4e 53 54 52 se SQLITE_CONSTR
0840: 41 49 4e 54 3a 20 7a 4e 61 6d 65 20 3d 20 22 53 AINT: zName = "S
0850: 51 4c 49 54 45 5f 43 4f 4e 53 54 52 41 49 4e 54 QLITE_CONSTRAINT
0860: 22 3b 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 "; break;. c
0870: 61 73 65 20 53 51 4c 49 54 45 5f 4d 49 53 4d 41 ase SQLITE_MISMA
0880: 54 43 48 3a 20 20 20 7a 4e 61 6d 65 20 3d 20 22 TCH: zName = "
0890: 53 51 4c 49 54 45 5f 4d 49 53 4d 41 54 43 48 22 SQLITE_MISMATCH"
08a0: 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 ; break;.
08b0: 63 61 73 65 20 53 51 4c 49 54 45 5f 4d 49 53 55 case SQLITE_MISU
08c0: 53 45 3a 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 SE: zName =
08d0: 22 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 22 3b "SQLITE_MISUSE";
08e0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
08f0: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 4f 4c case SQLITE_NOL
0900: 46 53 3a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d FS: zName =
0910: 20 22 53 51 4c 49 54 45 5f 4e 4f 4c 46 53 22 3b "SQLITE_NOLFS";
0920: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
0930: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 41 55 case SQLITE_AU
0940: 54 48 3a 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 TH: zName
0950: 3d 20 22 53 51 4c 49 54 45 5f 41 55 54 48 22 3b = "SQLITE_AUTH";
0960: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
0970: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 46 case SQLITE_F
0980: 4f 52 4d 41 54 3a 20 20 20 20 20 7a 4e 61 6d 65 ORMAT: zName
0990: 20 3d 20 22 53 51 4c 49 54 45 5f 46 4f 52 4d 41 = "SQLITE_FORMA
09a0: 54 22 3b 20 20 20 20 20 20 62 72 65 61 6b 3b 0a T"; break;.
09b0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
09c0: 52 41 4e 47 45 3a 20 20 20 20 20 20 7a 4e 61 6d RANGE: zNam
09d0: 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 41 4e 47 e = "SQLITE_RANG
09e0: 45 22 3b 20 20 20 20 20 20 20 62 72 65 61 6b 3b E"; break;
09f0: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
0a00: 5f 52 4f 57 3a 20 20 20 20 20 20 20 20 7a 4e 61 _ROW: zNa
0a10: 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 4f 57 me = "SQLITE_ROW
0a20: 22 3b 20 20 20 20 20 20 20 20 20 62 72 65 61 6b "; break
0a30: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
0a40: 45 5f 44 4f 4e 45 3a 20 20 20 20 20 20 20 7a 4e E_DONE: zN
0a50: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 44 4f ame = "SQLITE_DO
0a60: 4e 45 22 3b 20 20 20 20 20 20 20 20 62 72 65 61 NE"; brea
0a70: 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 20 k;. default:
0a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a z
0a90: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 55 Name = "SQLITE_U
0aa0: 6e 6b 6e 6f 77 6e 22 3b 20 20 20 20 20 62 72 65 nknown"; bre
0ab0: 61 6b 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e ak;. }. return
0ac0: 20 7a 4e 61 6d 65 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a zName;.}../*.**
0ad0: 20 44 65 63 6f 64 65 20 61 20 70 6f 69 6e 74 65 Decode a pointe
0ae0: 72 20 74 6f 20 61 6e 20 73 71 6c 69 74 65 20 6f r to an sqlite o
0af0: 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 bject..*/.static
0b00: 20 69 6e 74 20 67 65 74 44 62 50 6f 69 6e 74 65 int getDbPointe
0b10: 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e r(Tcl_Interp *in
0b20: 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 terp, const char
0b30: 20 2a 7a 41 2c 20 73 71 6c 69 74 65 20 2a 2a 70 *zA, sqlite **p
0b40: 70 44 62 29 7b 0a 20 20 69 66 28 20 73 73 63 61 pDb){. if( ssca
0b50: 6e 66 28 7a 41 2c 20 50 54 52 5f 46 4d 54 2c 20 nf(zA, PTR_FMT,
0b60: 28 76 6f 69 64 2a 2a 29 70 70 44 62 29 21 3d 31 (void**)ppDb)!=1
0b70: 20 26 26 20 0a 20 20 20 20 20 20 28 7a 41 5b 30 && . (zA[0
0b80: 5d 21 3d 27 30 27 20 7c 7c 20 7a 41 5b 31 5d 21 ]!='0' || zA[1]!
0b90: 3d 27 78 27 20 7c 7c 20 73 73 63 61 6e 66 28 26 ='x' || sscanf(&
0ba0: 7a 41 5b 32 5d 2c 20 50 54 52 5f 46 4d 54 2c 20 zA[2], PTR_FMT,
0bb0: 28 76 6f 69 64 2a 2a 29 70 70 44 62 29 21 3d 31 (void**)ppDb)!=1
0bc0: 29 0a 20 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 ). ){. Tcl_A
0bd0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
0be0: 72 70 2c 20 22 5c 22 22 2c 20 7a 41 2c 20 22 5c rp, "\"", zA, "\
0bf0: 22 20 69 73 20 6e 6f 74 20 61 20 76 61 6c 69 64 " is not a valid
0c00: 20 70 6f 69 6e 74 65 72 20 76 61 6c 75 65 22 2c pointer value",
0c10: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
0c20: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
0c30: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
0c40: 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 63 6f 64 65 20 }../*.** Decode
0c50: 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e 20 a pointer to an
0c60: 73 71 6c 69 74 65 5f 76 6d 20 6f 62 6a 65 63 74 sqlite_vm object
0c70: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
0c80: 67 65 74 56 6d 50 6f 69 6e 74 65 72 28 54 63 6c getVmPointer(Tcl
0c90: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
0ca0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 72 const char *zAr
0cb0: 67 2c 20 73 71 6c 69 74 65 5f 76 6d 20 2a 2a 70 g, sqlite_vm **p
0cc0: 70 56 6d 29 7b 0a 20 20 69 66 28 20 73 73 63 61 pVm){. if( ssca
0cd0: 6e 66 28 7a 41 72 67 2c 20 50 54 52 5f 46 4d 54 nf(zArg, PTR_FMT
0ce0: 2c 20 28 76 6f 69 64 2a 2a 29 70 70 56 6d 29 21 , (void**)ppVm)!
0cf0: 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =1 ){. Tcl_Ap
0d00: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
0d10: 70 2c 20 22 5c 22 22 2c 20 7a 41 72 67 2c 20 22 p, "\"", zArg, "
0d20: 5c 22 20 69 73 20 6e 6f 74 20 61 20 76 61 6c 69 \" is not a vali
0d30: 64 20 70 6f 69 6e 74 65 72 20 76 61 6c 75 65 22 d pointer value"
0d40: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
0d50: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
0d60: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
0d70: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 63 6f 64 65 .}../*.** Decode
0d80: 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e a pointer to an
0d90: 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 6f 62 sqlite3_stmt ob
0da0: 6a 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 ject..*/.static
0db0: 69 6e 74 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 int getStmtPoint
0dc0: 65 72 28 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 er(. Tcl_Interp
0dd0: 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 63 6f 6e *interp, . con
0de0: 73 74 20 63 68 61 72 20 2a 7a 41 72 67 2c 20 20 st char *zArg,
0df0: 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
0e00: 2a 2a 70 70 53 74 6d 74 0a 29 7b 0a 20 20 69 66 **ppStmt.){. if
0e10: 28 20 73 73 63 61 6e 66 28 7a 41 72 67 2c 20 50 ( sscanf(zArg, P
0e20: 54 52 5f 46 4d 54 2c 20 28 76 6f 69 64 2a 2a 29 TR_FMT, (void**)
0e30: 70 70 53 74 6d 74 29 21 3d 31 20 29 7b 0a 20 20 ppStmt)!=1 ){.
0e40: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
0e50: 6c 74 28 69 6e 74 65 72 70 2c 20 22 5c 22 22 2c lt(interp, "\"",
0e60: 20 7a 41 72 67 2c 20 22 5c 22 20 69 73 20 6e 6f zArg, "\" is no
0e70: 74 20 61 20 76 61 6c 69 64 20 70 6f 69 6e 74 65 t a valid pointe
0e80: 72 20 76 61 6c 75 65 22 2c 20 30 29 3b 0a 20 20 r value", 0);.
0e90: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
0ea0: 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e OR;. }. return
0eb0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
0ec0: 2a 20 47 65 6e 65 72 61 74 65 20 61 20 74 65 78 * Generate a tex
0ed0: 74 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e t representation
0ee0: 20 6f 66 20 61 20 70 6f 69 6e 74 65 72 20 74 68 of a pointer th
0ef0: 61 74 20 63 61 6e 20 62 65 20 75 6e 64 65 72 73 at can be unders
0f00: 74 6f 6f 64 0a 2a 2a 20 62 79 20 74 68 65 20 67 tood.** by the g
0f10: 65 74 44 62 50 6f 69 6e 74 65 72 20 61 6e 64 20 etDbPointer and
0f20: 67 65 74 56 6d 50 6f 69 6e 74 65 72 20 72 6f 75 getVmPointer rou
0f30: 74 69 6e 65 73 20 61 62 6f 76 65 2e 0a 2a 2a 0a tines above..**.
0f40: 2a 2a 20 54 68 65 20 70 72 6f 62 6c 65 6d 20 69 ** The problem i
0f50: 73 2c 20 6f 6e 20 73 6f 6d 65 20 6d 61 63 68 69 s, on some machi
0f60: 6e 65 73 20 28 53 6f 6c 61 72 69 73 29 20 69 66 nes (Solaris) if
0f70: 20 79 6f 75 20 64 6f 20 61 20 70 72 69 6e 74 66 you do a printf
0f80: 20 77 69 74 68 0a 2a 2a 20 22 25 70 22 20 79 6f with.** "%p" yo
0f90: 75 20 63 61 6e 6e 6f 74 20 74 75 72 6e 20 61 72 u cannot turn ar
0fa0: 6f 75 6e 64 20 61 6e 64 20 64 6f 20 61 20 73 63 ound and do a sc
0fb0: 61 6e 66 20 77 69 74 68 20 74 68 65 20 73 61 6d anf with the sam
0fc0: 65 20 22 25 70 22 20 61 6e 64 0a 2a 2a 20 67 65 e "%p" and.** ge
0fd0: 74 20 79 6f 75 72 20 70 6f 69 6e 74 65 72 20 62 t your pointer b
0fe0: 61 63 6b 2e 20 20 59 6f 75 20 68 61 76 65 20 74 ack. You have t
0ff0: 6f 20 70 72 65 70 65 6e 64 20 61 20 22 30 78 22 o prepend a "0x"
1000: 20 62 65 66 6f 72 65 20 69 74 20 77 69 6c 6c 0a before it will.
1010: 2a 2a 20 77 6f 72 6b 2e 20 20 4f 72 20 61 74 20 ** work. Or at
1020: 6c 65 61 73 74 20 74 68 61 74 20 69 73 20 77 68 least that is wh
1030: 61 74 20 69 73 20 72 65 70 6f 72 74 65 64 20 74 at is reported t
1040: 6f 20 6d 65 20 28 64 72 68 29 2e 20 20 42 75 74 o me (drh). But
1050: 20 74 68 69 73 0a 2a 2a 20 62 65 68 61 76 69 6f this.** behavio
1060: 72 20 76 61 72 69 65 73 20 66 72 6f 6d 20 6d 61 r varies from ma
1070: 63 68 69 6e 65 20 74 6f 20 6d 61 63 68 69 6e 65 chine to machine
1080: 2e 20 20 54 68 65 20 73 6f 6c 75 74 69 6f 6e 20 . The solution
1090: 75 73 65 64 20 68 65 72 20 69 73 0a 2a 2a 20 74 used her is.** t
10a0: 6f 20 74 65 73 74 20 74 68 65 20 73 74 72 69 6e o test the strin
10b0: 67 20 72 69 67 68 74 20 61 66 74 65 72 20 69 74 g right after it
10c0: 20 69 73 20 67 65 6e 65 72 61 74 65 64 20 74 6f is generated to
10d0: 20 73 65 65 20 69 66 20 69 74 20 63 61 6e 20 62 see if it can b
10e0: 65 0a 2a 2a 20 75 6e 64 65 72 73 74 6f 6f 64 20 e.** understood
10f0: 62 79 20 73 63 61 6e 66 2c 20 61 6e 64 20 69 66 by scanf, and if
1100: 20 6e 6f 74 2c 20 74 72 79 20 70 72 65 70 65 6e not, try prepen
1110: 64 69 6e 67 20 61 6e 20 22 30 78 22 20 74 6f 20 ding an "0x" to
1120: 73 65 65 20 69 66 0a 2a 2a 20 74 68 61 74 20 68 see if.** that h
1130: 65 6c 70 73 2e 20 20 49 66 20 6e 6f 74 68 69 6e elps. If nothin
1140: 67 20 77 6f 72 6b 73 2c 20 61 20 66 61 74 61 6c g works, a fatal
1150: 20 65 72 72 6f 72 20 69 73 20 67 65 6e 65 72 61 error is genera
1160: 74 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ted..*/.static i
1170: 6e 74 20 6d 61 6b 65 50 6f 69 6e 74 65 72 53 74 nt makePointerSt
1180: 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e r(Tcl_Interp *in
1190: 74 65 72 70 2c 20 63 68 61 72 20 2a 7a 50 74 72 terp, char *zPtr
11a0: 2c 20 76 6f 69 64 20 2a 70 29 7b 0a 20 20 76 6f , void *p){. vo
11b0: 69 64 20 2a 70 32 3b 0a 20 20 73 70 72 69 6e 74 id *p2;. sprint
11c0: 66 28 7a 50 74 72 2c 20 50 54 52 5f 46 4d 54 2c f(zPtr, PTR_FMT,
11d0: 20 70 29 3b 0a 20 20 69 66 28 20 73 73 63 61 6e p);. if( sscan
11e0: 66 28 7a 50 74 72 2c 20 50 54 52 5f 46 4d 54 2c f(zPtr, PTR_FMT,
11f0: 20 26 70 32 29 21 3d 31 20 7c 7c 20 70 32 21 3d &p2)!=1 || p2!=
1200: 70 20 29 7b 0a 20 20 20 20 73 70 72 69 6e 74 66 p ){. sprintf
1210: 28 7a 50 74 72 2c 20 22 30 78 22 20 50 54 52 5f (zPtr, "0x" PTR_
1220: 46 4d 54 2c 20 70 29 3b 0a 20 20 20 20 69 66 28 FMT, p);. if(
1230: 20 73 73 63 61 6e 66 28 7a 50 74 72 2c 20 50 54 sscanf(zPtr, PT
1240: 52 5f 46 4d 54 2c 20 26 70 32 29 21 3d 31 20 7c R_FMT, &p2)!=1 |
1250: 7c 20 70 32 21 3d 70 20 29 7b 0a 20 20 20 20 20 | p2!=p ){.
1260: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1270: 74 28 69 6e 74 65 72 70 2c 20 22 75 6e 61 62 6c t(interp, "unabl
1280: 65 20 74 6f 20 63 6f 6e 76 65 72 74 20 61 20 70 e to convert a p
1290: 6f 69 6e 74 65 72 20 74 6f 20 61 20 73 74 72 69 ointer to a stri
12a0: 6e 67 20 22 0a 20 20 20 20 20 20 20 20 20 22 69 ng ". "i
12b0: 6e 20 74 68 65 20 66 69 6c 65 20 22 20 5f 5f 46 n the file " __F
12c0: 49 4c 45 5f 5f 20 22 20 69 6e 20 66 75 6e 63 74 ILE__ " in funct
12d0: 69 6f 6e 20 6d 61 6b 65 50 6f 69 6e 74 65 72 53 ion makePointerS
12e0: 74 72 28 29 2e 20 20 50 6c 65 61 73 65 20 22 0a tr(). Please ".
12f0: 20 20 20 20 20 20 20 20 20 22 72 65 70 6f 72 74 "report
1300: 20 74 68 69 73 20 70 72 6f 62 6c 65 6d 20 74 6f this problem to
1310: 20 74 68 65 20 53 51 4c 69 74 65 20 6d 61 69 6c the SQLite mail
1320: 69 6e 67 20 6c 69 73 74 20 6f 72 20 61 73 20 61 ing list or as a
1330: 20 6e 65 77 20 62 75 74 20 22 0a 20 20 20 20 20 new but ".
1340: 20 20 20 20 22 72 65 70 6f 72 74 2e 20 20 50 6c "report. Pl
1350: 65 61 73 65 20 70 72 6f 76 69 64 65 20 64 65 74 ease provide det
1360: 61 69 6c 65 64 20 69 6e 66 6f 72 6d 61 74 69 6f ailed informatio
1370: 6e 20 61 62 6f 75 74 20 68 6f 77 20 79 6f 75 20 n about how you
1380: 63 6f 6d 70 69 6c 65 64 20 22 0a 20 20 20 20 20 compiled ".
1390: 20 20 20 20 22 53 51 4c 69 74 65 20 61 6e 64 20 "SQLite and
13a0: 77 68 61 74 20 63 6f 6d 70 75 74 65 72 20 79 6f what computer yo
13b0: 75 20 61 72 65 20 72 75 6e 6e 69 6e 67 20 6f 6e u are running on
13c0: 2e 22 2c 20 30 29 3b 0a 20 20 20 20 20 20 72 65 .", 0);. re
13d0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
13e0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 }. }. retu
13f0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
1400: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 71 6c .** Usage: sql
1410: 69 74 65 33 5f 6f 70 65 6e 20 66 69 6c 65 6e 61 ite3_open filena
1420: 6d 65 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 me.**.** Returns
1430: 3a 20 20 54 68 65 20 6e 61 6d 65 20 6f 66 20 61 : The name of a
1440: 6e 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 2e n open database.
1450: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 .*/.static int s
1460: 71 6c 69 74 65 5f 74 65 73 74 5f 6f 70 65 6e 28 qlite_test_open(
1470: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 . void *NotUsed
1480: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
1490: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
14a0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
14b0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
14c0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
14d0: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 int argc,
14e0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
14f0: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
1500: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 /. char **argv
1510: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 /* Te
1520: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d xt of each argum
1530: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 ent */.){. sqli
1540: 74 65 20 2a 64 62 3b 0a 20 20 63 68 61 72 20 2a te *db;. char *
1550: 7a 45 72 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 zErr = 0;. char
1560: 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20 69 66 zBuf[100];. if
1570: 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 ( argc!=2 ){.
1580: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1590: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
15a0: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
15b0: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
15c0: 0a 20 20 20 20 20 20 20 22 20 46 49 4c 45 4e 41 . " FILENA
15d0: 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 ME\"", 0);. r
15e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
15f0: 0a 20 20 7d 0a 20 20 64 62 20 3d 20 73 71 6c 69 . }. db = sqli
1600: 74 65 33 5f 6f 70 65 6e 28 61 72 67 76 5b 31 5d te3_open(argv[1]
1610: 2c 20 30 36 36 36 2c 20 26 7a 45 72 72 29 3b 0a , 0666, &zErr);.
1620: 20 20 69 66 28 20 64 62 3d 3d 30 20 29 7b 0a 20 if( db==0 ){.
1630: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
1640: 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 45 72 72 ult(interp, zErr
1650: 2c 20 30 29 3b 0a 20 20 20 20 66 72 65 65 28 7a , 0);. free(z
1660: 45 72 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Err);. return
1670: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
1680: 20 20 69 66 28 20 6d 61 6b 65 50 6f 69 6e 74 65 if( makePointe
1690: 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 rStr(interp, zBu
16a0: 66 2c 20 64 62 29 20 29 20 72 65 74 75 72 6e 20 f, db) ) return
16b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c TCL_ERROR;. Tcl
16c0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
16d0: 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a terp, zBuf, 0);.
16e0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
16f0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 63 61 .}../*.** The ca
1700: 6c 6c 62 61 63 6b 20 72 6f 75 74 69 6e 65 20 66 llback routine f
1710: 6f 72 20 73 71 6c 69 74 65 33 5f 65 78 65 63 5f or sqlite3_exec_
1720: 70 72 69 6e 74 66 28 29 2e 0a 2a 2f 0a 73 74 61 printf()..*/.sta
1730: 74 69 63 20 69 6e 74 20 65 78 65 63 5f 70 72 69 tic int exec_pri
1740: 6e 74 66 5f 63 62 28 76 6f 69 64 20 2a 70 41 72 ntf_cb(void *pAr
1750: 67 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 68 61 g, int argc, cha
1760: 72 20 2a 2a 61 72 67 76 2c 20 63 68 61 72 20 2a r **argv, char *
1770: 2a 6e 61 6d 65 29 7b 0a 20 20 54 63 6c 5f 44 53 *name){. Tcl_DS
1780: 74 72 69 6e 67 20 2a 73 74 72 20 3d 20 28 54 63 tring *str = (Tc
1790: 6c 5f 44 53 74 72 69 6e 67 2a 29 70 41 72 67 3b l_DString*)pArg;
17a0: 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 69 66 28 . int i;.. if(
17b0: 20 54 63 6c 5f 44 53 74 72 69 6e 67 4c 65 6e 67 Tcl_DStringLeng
17c0: 74 68 28 73 74 72 29 3d 3d 30 20 29 7b 0a 20 20 th(str)==0 ){.
17d0: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 for(i=0; i<arg
17e0: 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 54 c; i++){. T
17f0: 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 6e 64 cl_DStringAppend
1800: 45 6c 65 6d 65 6e 74 28 73 74 72 2c 20 6e 61 6d Element(str, nam
1810: 65 5b 69 5d 20 3f 20 6e 61 6d 65 5b 69 5d 20 3a e[i] ? name[i] :
1820: 20 22 4e 55 4c 4c 22 29 3b 0a 20 20 20 20 7d 0a "NULL");. }.
1830: 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 }. for(i=0; i
1840: 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 <argc; i++){.
1850: 20 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 65 Tcl_DStringAppe
1860: 6e 64 45 6c 65 6d 65 6e 74 28 73 74 72 2c 20 61 ndElement(str, a
1870: 72 67 76 5b 69 5d 20 3f 20 61 72 67 76 5b 69 5d rgv[i] ? argv[i]
1880: 20 3a 20 22 4e 55 4c 4c 22 29 3b 0a 20 20 7d 0a : "NULL");. }.
1890: 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f return 0;.}../
18a0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
18b0: 69 74 65 33 5f 65 78 65 63 5f 70 72 69 6e 74 66 ite3_exec_printf
18c0: 20 20 44 42 20 20 46 4f 52 4d 41 54 20 20 53 54 DB FORMAT ST
18d0: 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b RING.**.** Invok
18e0: 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 65 78 e the sqlite3_ex
18f0: 65 63 5f 70 72 69 6e 74 66 28 29 20 69 6e 74 65 ec_printf() inte
1900: 72 66 61 63 65 20 75 73 69 6e 67 20 74 68 65 20 rface using the
1910: 6f 70 65 6e 20 64 61 74 61 62 61 73 65 0a 2a 2a open database.**
1920: 20 44 42 2e 20 20 54 68 65 20 53 51 4c 20 69 73 DB. The SQL is
1930: 20 74 68 65 20 73 74 72 69 6e 67 20 46 4f 52 4d the string FORM
1940: 41 54 2e 20 20 54 68 65 20 66 6f 72 6d 61 74 20 AT. The format
1950: 73 74 72 69 6e 67 20 73 68 6f 75 6c 64 20 63 6f string should co
1960: 6e 74 61 69 6e 0a 2a 2a 20 6f 6e 65 20 25 73 20 ntain.** one %s
1970: 6f 72 20 25 71 2e 20 20 53 54 52 49 4e 47 20 69 or %q. STRING i
1980: 73 20 74 68 65 20 76 61 6c 75 65 20 69 6e 73 65 s the value inse
1990: 72 74 65 64 20 69 6e 74 6f 20 25 73 20 6f 72 20 rted into %s or
19a0: 25 71 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e %q..*/.static in
19b0: 74 20 74 65 73 74 5f 65 78 65 63 5f 70 72 69 6e t test_exec_prin
19c0: 74 66 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 tf(. void *NotU
19d0: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
19e0: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
19f0: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
1a00: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
1a10: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
1a20: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
1a30: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
1a40: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
1a50: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
1a60: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
1a70: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
1a80: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 gument */.){. s
1a90: 71 6c 69 74 65 20 2a 64 62 3b 0a 20 20 54 63 6c qlite *db;. Tcl
1aa0: 5f 44 53 74 72 69 6e 67 20 73 74 72 3b 0a 20 20 _DString str;.
1ab0: 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 2a int rc;. char *
1ac0: 7a 45 72 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 zErr = 0;. char
1ad0: 20 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 69 66 28 zBuf[30];. if(
1ae0: 20 61 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 argc!=4 ){.
1af0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1b00: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
1b10: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
1b20: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 e \"", argv[0],
1b30: 0a 20 20 20 20 20 20 20 22 20 44 42 20 46 4f 52 . " DB FOR
1b40: 4d 41 54 20 53 54 52 49 4e 47 22 2c 20 30 29 3b MAT STRING", 0);
1b50: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
1b60: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 ERROR;. }. if(
1b70: 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e getDbPointer(in
1b80: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 terp, argv[1], &
1b90: 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
1ba0: 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f 44 53 _ERROR;. Tcl_DS
1bb0: 74 72 69 6e 67 49 6e 69 74 28 26 73 74 72 29 3b tringInit(&str);
1bc0: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
1bd0: 65 78 65 63 5f 70 72 69 6e 74 66 28 64 62 2c 20 exec_printf(db,
1be0: 61 72 67 76 5b 32 5d 2c 20 65 78 65 63 5f 70 72 argv[2], exec_pr
1bf0: 69 6e 74 66 5f 63 62 2c 20 26 73 74 72 2c 20 26 intf_cb, &str, &
1c00: 7a 45 72 72 2c 20 61 72 67 76 5b 33 5d 29 3b 0a zErr, argv[3]);.
1c10: 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 sprintf(zBuf,
1c20: 22 25 64 22 2c 20 72 63 29 3b 0a 20 20 54 63 6c "%d", rc);. Tcl
1c30: 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 _AppendElement(i
1c40: 6e 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 nterp, zBuf);.
1c50: 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e Tcl_AppendElemen
1c60: 74 28 69 6e 74 65 72 70 2c 20 72 63 3d 3d 53 51 t(interp, rc==SQ
1c70: 4c 49 54 45 5f 4f 4b 20 3f 20 54 63 6c 5f 44 53 LITE_OK ? Tcl_DS
1c80: 74 72 69 6e 67 56 61 6c 75 65 28 26 73 74 72 29 tringValue(&str)
1c90: 20 3a 20 7a 45 72 72 29 3b 0a 20 20 54 63 6c 5f : zErr);. Tcl_
1ca0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 73 74 72 DStringFree(&str
1cb0: 29 3b 0a 20 20 69 66 28 20 7a 45 72 72 20 29 20 );. if( zErr )
1cc0: 66 72 65 65 28 7a 45 72 72 29 3b 0a 20 20 72 65 free(zErr);. re
1cd0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
1ce0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
1cf0: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 7a 5f lite3_mprintf_z_
1d00: 74 65 73 74 20 20 53 45 50 41 52 41 54 4f 52 20 test SEPARATOR
1d10: 20 41 52 47 30 20 20 41 52 47 31 20 2e 2e 2e 0a ARG0 ARG1 ....
1d20: 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 25 **.** Test the %
1d30: 7a 20 66 6f 72 6d 61 74 20 6f 66 20 6d 70 72 69 z format of mpri
1d40: 6e 74 66 28 29 2e 20 20 55 73 65 20 6d 75 6c 74 ntf(). Use mult
1d50: 69 70 6c 65 20 6d 70 72 69 6e 74 66 28 29 20 63 iple mprintf() c
1d60: 61 6c 6c 73 20 74 6f 20 0a 2a 2a 20 63 6f 6e 63 alls to .** conc
1d70: 61 74 65 6e 61 74 65 20 61 72 67 30 20 74 68 72 atenate arg0 thr
1d80: 6f 75 67 68 20 61 72 67 6e 20 75 73 69 6e 67 20 ough argn using
1d90: 73 65 70 61 72 61 74 6f 72 20 61 73 20 74 68 65 separator as the
1da0: 20 73 65 70 61 72 61 74 6f 72 2e 0a 2a 2a 20 52 separator..** R
1db0: 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 eturn the result
1dc0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
1dd0: 74 65 73 74 5f 6d 70 72 69 6e 74 66 5f 7a 28 0a test_mprintf_z(.
1de0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
1df0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
1e00: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
1e10: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
1e20: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
1e30: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
1e40: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
1e50: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
1e60: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
1e70: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
1e80: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
1e90: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
1ea0: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 20 nt */.){. char
1eb0: 2a 7a 52 65 73 75 6c 74 20 3d 20 30 3b 0a 20 20 *zResult = 0;.
1ec0: 69 6e 74 20 69 3b 0a 0a 20 20 66 6f 72 28 69 3d int i;.. for(i=
1ed0: 32 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 2; i<argc; i++){
1ee0: 0a 20 20 20 20 7a 52 65 73 75 6c 74 20 3d 20 73 . zResult = s
1ef0: 71 6c 69 74 65 33 4d 50 72 69 6e 74 66 28 22 25 qlite3MPrintf("%
1f00: 7a 25 73 25 73 22 2c 20 7a 52 65 73 75 6c 74 2c z%s%s", zResult,
1f10: 20 61 72 67 76 5b 31 5d 2c 20 61 72 67 76 5b 69 argv[1], argv[i
1f20: 5d 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 41 70 ]);. }. Tcl_Ap
1f30: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1f40: 70 2c 20 7a 52 65 73 75 6c 74 2c 20 30 29 3b 0a p, zResult, 0);.
1f50: 20 20 73 71 6c 69 74 65 46 72 65 65 28 7a 52 65 sqliteFree(zRe
1f60: 73 75 6c 74 29 3b 0a 20 20 72 65 74 75 72 6e 20 sult);. return
1f70: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
1f80: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
1f90: 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74 _get_table_print
1fa0: 66 20 20 44 42 20 20 46 4f 52 4d 41 54 20 20 53 f DB FORMAT S
1fb0: 54 52 49 4e 47 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f TRING.**.** Invo
1fc0: 6b 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 67 ke the sqlite3_g
1fd0: 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74 66 28 et_table_printf(
1fe0: 29 20 69 6e 74 65 72 66 61 63 65 20 75 73 69 6e ) interface usin
1ff0: 67 20 74 68 65 20 6f 70 65 6e 20 64 61 74 61 62 g the open datab
2000: 61 73 65 0a 2a 2a 20 44 42 2e 20 20 54 68 65 20 ase.** DB. The
2010: 53 51 4c 20 69 73 20 74 68 65 20 73 74 72 69 6e SQL is the strin
2020: 67 20 46 4f 52 4d 41 54 2e 20 20 54 68 65 20 66 g FORMAT. The f
2030: 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 73 68 6f ormat string sho
2040: 75 6c 64 20 63 6f 6e 74 61 69 6e 0a 2a 2a 20 6f uld contain.** o
2050: 6e 65 20 25 73 20 6f 72 20 25 71 2e 20 20 53 54 ne %s or %q. ST
2060: 52 49 4e 47 20 69 73 20 74 68 65 20 76 61 6c 75 RING is the valu
2070: 65 20 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 e inserted into
2080: 25 73 20 6f 72 20 25 71 2e 0a 2a 2f 0a 73 74 61 %s or %q..*/.sta
2090: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 67 65 74 tic int test_get
20a0: 5f 74 61 62 6c 65 5f 70 72 69 6e 74 66 28 0a 20 _table_printf(.
20b0: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
20c0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
20d0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
20e0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
20f0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
2100: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
2110: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
2120: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
2130: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
2140: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
2150: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
2160: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
2170: 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 t */.){. sqlite
2180: 20 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 53 74 72 *db;. Tcl_DStr
2190: 69 6e 67 20 73 74 72 3b 0a 20 20 69 6e 74 20 72 ing str;. int r
21a0: 63 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 72 20 c;. char *zErr
21b0: 3d 20 30 3b 0a 20 20 69 6e 74 20 6e 52 6f 77 2c = 0;. int nRow,
21c0: 20 6e 43 6f 6c 3b 0a 20 20 63 68 61 72 20 2a 2a nCol;. char **
21d0: 61 52 65 73 75 6c 74 3b 0a 20 20 69 6e 74 20 69 aResult;. int i
21e0: 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33 30 ;. char zBuf[30
21f0: 5d 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 34 ];. if( argc!=4
2200: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
2210: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
2220: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
2230: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
2240: 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 rgv[0], .
2250: 22 20 44 42 20 46 4f 52 4d 41 54 20 53 54 52 49 " DB FORMAT STRI
2260: 4e 47 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 NG", 0);. ret
2270: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2280: 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
2290: 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 inter(interp, ar
22a0: 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 gv[1], &db) ) re
22b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
22c0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 Tcl_DStringIni
22d0: 74 28 26 73 74 72 29 3b 0a 20 20 72 63 20 3d 20 t(&str);. rc =
22e0: 73 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 62 6c sqlite3_get_tabl
22f0: 65 5f 70 72 69 6e 74 66 28 64 62 2c 20 61 72 67 e_printf(db, arg
2300: 76 5b 32 5d 2c 20 26 61 52 65 73 75 6c 74 2c 20 v[2], &aResult,
2310: 26 6e 52 6f 77 2c 20 26 6e 43 6f 6c 2c 20 0a 20 &nRow, &nCol, .
2320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 7a &z
2330: 45 72 72 2c 20 61 72 67 76 5b 33 5d 29 3b 0a 20 Err, argv[3]);.
2340: 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 sprintf(zBuf, "
2350: 25 64 22 2c 20 72 63 29 3b 0a 20 20 54 63 6c 5f %d", rc);. Tcl_
2360: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
2370: 74 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 69 terp, zBuf);. i
2380: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b f( rc==SQLITE_OK
2390: 20 29 7b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 ){. sprintf(
23a0: 7a 42 75 66 2c 20 22 25 64 22 2c 20 6e 52 6f 77 zBuf, "%d", nRow
23b0: 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e );. Tcl_Appen
23c0: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
23d0: 20 7a 42 75 66 29 3b 0a 20 20 20 20 73 70 72 69 zBuf);. spri
23e0: 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 ntf(zBuf, "%d",
23f0: 6e 43 6f 6c 29 3b 0a 20 20 20 20 54 63 6c 5f 41 nCol);. Tcl_A
2400: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
2410: 65 72 70 2c 20 7a 42 75 66 29 3b 0a 20 20 20 20 erp, zBuf);.
2420: 66 6f 72 28 69 3d 30 3b 20 69 3c 28 6e 52 6f 77 for(i=0; i<(nRow
2430: 2b 31 29 2a 6e 43 6f 6c 3b 20 69 2b 2b 29 7b 0a +1)*nCol; i++){.
2440: 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 Tcl_Append
2450: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
2460: 61 52 65 73 75 6c 74 5b 69 5d 20 3f 20 61 52 65 aResult[i] ? aRe
2470: 73 75 6c 74 5b 69 5d 20 3a 20 22 4e 55 4c 4c 22 sult[i] : "NULL"
2480: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 );. }. }else
2490: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
24a0: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
24b0: 7a 45 72 72 29 3b 0a 20 20 7d 0a 20 20 73 71 6c zErr);. }. sql
24c0: 69 74 65 33 5f 66 72 65 65 5f 74 61 62 6c 65 28 ite3_free_table(
24d0: 61 52 65 73 75 6c 74 29 3b 0a 20 20 69 66 28 20 aResult);. if(
24e0: 7a 45 72 72 20 29 20 66 72 65 65 28 7a 45 72 72 zErr ) free(zErr
24f0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
2500: 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 OK;.}.../*.** Us
2510: 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 6c 61 age: sqlite3_la
2520: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 20 st_insert_rowid
2530: 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 DB.**.** Returns
2540: 20 74 68 65 20 69 6e 74 65 67 65 72 20 52 4f 57 the integer ROW
2550: 49 44 20 6f 66 20 74 68 65 20 6d 6f 73 74 20 72 ID of the most r
2560: 65 63 65 6e 74 20 69 6e 73 65 72 74 2e 0a 2a 2f ecent insert..*/
2570: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
2580: 5f 6c 61 73 74 5f 72 6f 77 69 64 28 0a 20 20 76 _last_rowid(. v
2590: 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 oid *NotUsed,.
25a0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
25b0: 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
25c0: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
25d0: 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
25e0: 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
25f0: 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 argc,
2600: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
2610: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
2620: 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 char **argv
2630: 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f /* Text o
2640: 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 f each argument
2650: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a */.){. sqlite *
2660: 64 62 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b db;. char zBuf[
2670: 33 30 5d 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 30];.. if( argc
2680: 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=2 ){. Tcl_A
2690: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
26a0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
26b0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
26c0: 2c 20 61 72 67 76 5b 30 5d 2c 20 22 20 44 42 5c , argv[0], " DB\
26d0: 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 "", 0);. retu
26e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
26f0: 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
2700: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 nter(interp, arg
2710: 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 v[1], &db) ) ret
2720: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2730: 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 sprintf(zBuf, "
2740: 25 64 22 2c 20 73 71 6c 69 74 65 33 5f 6c 61 73 %d", sqlite3_las
2750: 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 64 t_insert_rowid(d
2760: 62 29 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e b));. Tcl_Appen
2770: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
2780: 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 zBuf, 0);. retu
2790: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a rn SQLITE_OK;.}.
27a0: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
27b0: 71 6c 69 74 65 33 5f 63 6c 6f 73 65 20 44 42 0a qlite3_close DB.
27c0: 2a 2a 0a 2a 2a 20 43 6c 6f 73 65 73 20 74 68 65 **.** Closes the
27d0: 20 64 61 74 61 62 61 73 65 20 6f 70 65 6e 65 64 database opened
27e0: 20 62 79 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e by sqlite3_open
27f0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
2800: 73 71 6c 69 74 65 5f 74 65 73 74 5f 63 6c 6f 73 sqlite_test_clos
2810: 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 e(. void *NotUs
2820: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
2830: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
2840: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
2850: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
2860: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
2870: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
2880: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
2890: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
28a0: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
28b0: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
28c0: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
28d0: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 ument */.){. sq
28e0: 6c 69 74 65 20 2a 64 62 3b 0a 20 20 69 66 28 20 lite *db;. if(
28f0: 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 argc!=2 ){. T
2900: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
2910: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
2920: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
2930: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 \"", argv[0],.
2940: 20 20 20 20 20 20 22 20 46 49 4c 45 4e 41 4d 45 " FILENAME
2950: 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 \"", 0);. ret
2960: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2970: 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
2980: 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 inter(interp, ar
2990: 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 72 65 gv[1], &db) ) re
29a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
29b0: 20 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 sqlite3_close(
29c0: 64 62 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 db);. return TC
29d0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 L_OK;.}../*.** I
29e0: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
29f0: 20 74 68 65 20 78 5f 63 6f 61 6c 65 73 63 65 28 the x_coalesce(
2a00: 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 20 52 ) function..** R
2a10: 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 eturn the first
2a20: 61 72 67 75 6d 65 6e 74 20 6e 6f 6e 2d 4e 55 4c argument non-NUL
2a30: 4c 20 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 L argument..*/.s
2a40: 74 61 74 69 63 20 76 6f 69 64 20 69 66 6e 75 6c tatic void ifnul
2a50: 6c 46 75 6e 63 28 73 71 6c 69 74 65 5f 66 75 6e lFunc(sqlite_fun
2a60: 63 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 c *context, int
2a70: 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 argc, const char
2a80: 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 6e 74 20 **argv){. int
2a90: 69 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c i;. for(i=0; i<
2aa0: 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 argc; i++){.
2ab0: 69 66 28 20 61 72 67 76 5b 69 5d 20 29 7b 0a 20 if( argv[i] ){.
2ac0: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 73 65 74 sqlite3_set
2ad0: 5f 72 65 73 75 6c 74 5f 73 74 72 69 6e 67 28 63 _result_string(c
2ae0: 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b 69 5d 2c ontext, argv[i],
2af0: 20 2d 31 29 3b 0a 20 20 20 20 20 20 62 72 65 61 -1);. brea
2b00: 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a k;. }. }.}..
2b10: 2f 2a 0a 2a 2a 20 41 20 73 74 72 75 63 74 75 72 /*.** A structur
2b20: 65 20 69 6e 74 6f 20 77 68 69 63 68 20 74 6f 20 e into which to
2b30: 61 63 63 75 6d 75 6c 61 74 65 20 74 65 78 74 2e accumulate text.
2b40: 0a 2a 2f 0a 73 74 72 75 63 74 20 64 73 74 72 20 .*/.struct dstr
2b50: 7b 0a 20 20 69 6e 74 20 6e 41 6c 6c 6f 63 3b 20 {. int nAlloc;
2b60: 20 2f 2a 20 53 70 61 63 65 20 61 6c 6c 6f 63 61 /* Space alloca
2b70: 74 65 64 20 2a 2f 0a 20 20 69 6e 74 20 6e 55 73 ted */. int nUs
2b80: 65 64 3b 20 20 20 2f 2a 20 53 70 61 63 65 20 75 ed; /* Space u
2b90: 73 65 64 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a sed */. char *z
2ba0: 3b 20 20 20 20 20 2f 2a 20 54 68 65 20 73 70 61 ; /* The spa
2bb0: 63 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 ce */.};../*.**
2bc0: 41 70 70 65 6e 64 20 74 65 78 74 20 74 6f 20 61 Append text to a
2bd0: 20 64 73 74 72 0a 2a 2f 0a 73 74 61 74 69 63 20 dstr.*/.static
2be0: 76 6f 69 64 20 64 73 74 72 41 70 70 65 6e 64 28 void dstrAppend(
2bf0: 73 74 72 75 63 74 20 64 73 74 72 20 2a 70 2c 20 struct dstr *p,
2c00: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c 20 69 const char *z, i
2c10: 6e 74 20 64 69 76 69 64 65 72 29 7b 0a 20 20 69 nt divider){. i
2c20: 6e 74 20 6e 20 3d 20 73 74 72 6c 65 6e 28 7a 29 nt n = strlen(z)
2c30: 3b 0a 20 20 69 66 28 20 70 2d 3e 6e 55 73 65 64 ;. if( p->nUsed
2c40: 20 2b 20 6e 20 2b 20 32 20 3e 20 70 2d 3e 6e 41 + n + 2 > p->nA
2c50: 6c 6c 6f 63 20 29 7b 0a 20 20 20 20 63 68 61 72 lloc ){. char
2c60: 20 2a 7a 4e 65 77 3b 0a 20 20 20 20 70 2d 3e 6e *zNew;. p->n
2c70: 41 6c 6c 6f 63 20 3d 20 70 2d 3e 6e 41 6c 6c 6f Alloc = p->nAllo
2c80: 63 2a 32 20 2b 20 6e 20 2b 20 32 30 30 3b 0a 20 c*2 + n + 200;.
2c90: 20 20 20 7a 4e 65 77 20 3d 20 73 71 6c 69 74 65 zNew = sqlite
2ca0: 52 65 61 6c 6c 6f 63 28 70 2d 3e 7a 2c 20 70 2d Realloc(p->z, p-
2cb0: 3e 6e 41 6c 6c 6f 63 29 3b 0a 20 20 20 20 69 66 >nAlloc);. if
2cc0: 28 20 7a 4e 65 77 3d 3d 30 20 29 7b 0a 20 20 20 ( zNew==0 ){.
2cd0: 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 70 2d sqliteFree(p-
2ce0: 3e 7a 29 3b 0a 20 20 20 20 20 20 6d 65 6d 73 65 >z);. memse
2cf0: 74 28 70 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a t(p, 0, sizeof(*
2d00: 70 29 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 p));. retur
2d10: 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70 2d 3e n;. }. p->
2d20: 7a 20 3d 20 7a 4e 65 77 3b 0a 20 20 7d 0a 20 20 z = zNew;. }.
2d30: 69 66 28 20 64 69 76 69 64 65 72 20 26 26 20 70 if( divider && p
2d40: 2d 3e 6e 55 73 65 64 3e 30 20 29 7b 0a 20 20 20 ->nUsed>0 ){.
2d50: 20 70 2d 3e 7a 5b 70 2d 3e 6e 55 73 65 64 2b 2b p->z[p->nUsed++
2d60: 5d 20 3d 20 64 69 76 69 64 65 72 3b 0a 20 20 7d ] = divider;. }
2d70: 0a 20 20 6d 65 6d 63 70 79 28 26 70 2d 3e 7a 5b . memcpy(&p->z[
2d80: 70 2d 3e 6e 55 73 65 64 5d 2c 20 7a 2c 20 6e 2b p->nUsed], z, n+
2d90: 31 29 3b 0a 20 20 70 2d 3e 6e 55 73 65 64 20 2b 1);. p->nUsed +
2da0: 3d 20 6e 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e = n;.}../*.** In
2db0: 76 6f 6b 65 64 20 66 6f 72 20 65 61 63 68 20 63 voked for each c
2dc0: 61 6c 6c 62 61 63 6b 20 66 72 6f 6d 20 73 71 6c allback from sql
2dd0: 69 74 65 33 45 78 65 63 46 75 6e 63 0a 2a 2f 0a ite3ExecFunc.*/.
2de0: 73 74 61 74 69 63 20 69 6e 74 20 65 78 65 63 46 static int execF
2df0: 75 6e 63 43 61 6c 6c 62 61 63 6b 28 76 6f 69 64 uncCallback(void
2e00: 20 2a 70 44 61 74 61 2c 20 69 6e 74 20 61 72 67 *pData, int arg
2e10: 63 2c 20 63 68 61 72 20 2a 2a 61 72 67 76 2c 20 c, char **argv,
2e20: 63 68 61 72 20 2a 2a 4e 6f 74 55 73 65 64 29 7b char **NotUsed){
2e30: 0a 20 20 73 74 72 75 63 74 20 64 73 74 72 20 2a . struct dstr *
2e40: 70 20 3d 20 28 73 74 72 75 63 74 20 64 73 74 72 p = (struct dstr
2e50: 2a 29 70 44 61 74 61 3b 0a 20 20 69 6e 74 20 69 *)pData;. int i
2e60: 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 ;. for(i=0; i<a
2e70: 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 rgc; i++){. i
2e80: 66 28 20 61 72 67 76 5b 69 5d 3d 3d 30 20 29 7b f( argv[i]==0 ){
2e90: 0a 20 20 20 20 20 20 64 73 74 72 41 70 70 65 6e . dstrAppen
2ea0: 64 28 70 2c 20 22 4e 55 4c 4c 22 2c 20 27 20 27 d(p, "NULL", ' '
2eb0: 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 );. }else{.
2ec0: 20 20 20 20 64 73 74 72 41 70 70 65 6e 64 28 70 dstrAppend(p
2ed0: 2c 20 61 72 67 76 5b 69 5d 2c 20 27 20 27 29 3b , argv[i], ' ');
2ee0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 . }. }. ret
2ef0: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 urn 0;.}../*.**
2f00: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f Implementation o
2f10: 66 20 74 68 65 20 78 5f 73 71 6c 69 74 65 33 5f f the x_sqlite3_
2f20: 65 78 65 63 28 29 20 66 75 6e 63 74 69 6f 6e 2e exec() function.
2f30: 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 This function
2f40: 74 61 6b 65 73 0a 2a 2a 20 61 20 73 69 6e 67 6c takes.** a singl
2f50: 65 20 61 72 67 75 6d 65 6e 74 20 61 6e 64 20 61 e argument and a
2f60: 74 74 65 6d 70 74 73 20 74 6f 20 65 78 65 63 75 ttempts to execu
2f70: 74 65 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74 te that argument
2f80: 20 61 73 20 53 51 4c 20 63 6f 64 65 2e 0a 2a 2a as SQL code..**
2f90: 20 54 68 69 73 20 69 73 20 69 6c 6c 65 67 61 6c This is illegal
2fa0: 20 61 6e 64 20 73 68 6f 75 6c 64 20 73 65 74 20 and should set
2fb0: 74 68 65 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 the SQLITE_MISUS
2fc0: 45 20 66 6c 61 67 20 6f 6e 20 74 68 65 20 64 61 E flag on the da
2fd0: 74 61 62 61 73 65 2e 0a 2a 2a 0a 2a 2a 20 32 30 tabase..**.** 20
2fe0: 30 34 2d 4a 61 6e 2d 30 37 3a 20 20 57 65 20 68 04-Jan-07: We h
2ff0: 61 76 65 20 63 68 61 6e 67 65 64 20 74 68 69 73 ave changed this
3000: 20 74 6f 20 6d 61 6b 65 20 69 74 20 6c 65 67 61 to make it lega
3010: 6c 20 74 6f 20 63 61 6c 6c 20 73 71 6c 69 74 65 l to call sqlite
3020: 33 5f 65 78 65 63 28 29 0a 2a 2a 20 66 72 6f 6d 3_exec().** from
3030: 20 77 69 74 68 69 6e 20 61 20 66 75 6e 63 74 69 within a functi
3040: 6f 6e 20 63 61 6c 6c 2e 20 20 0a 2a 2a 20 0a 2a on call. .** .*
3050: 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 73 * This routine s
3060: 69 6d 75 6c 61 74 65 73 20 74 68 65 20 65 66 66 imulates the eff
3070: 65 63 74 20 6f 66 20 68 61 76 69 6e 67 20 74 77 ect of having tw
3080: 6f 20 74 68 72 65 61 64 73 20 61 74 74 65 6d 70 o threads attemp
3090: 74 20 74 6f 0a 2a 2a 20 75 73 65 20 74 68 65 20 t to.** use the
30a0: 73 61 6d 65 20 64 61 74 61 62 61 73 65 20 61 74 same database at
30b0: 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 2e 0a the same time..
30c0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73 */.static void s
30d0: 71 6c 69 74 65 33 45 78 65 63 46 75 6e 63 28 73 qlite3ExecFunc(s
30e0: 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 6f 6e 74 qlite_func *cont
30f0: 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 ext, int argc, c
3100: 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 onst char **argv
3110: 29 7b 0a 20 20 73 74 72 75 63 74 20 64 73 74 72 ){. struct dstr
3120: 20 78 3b 0a 20 20 6d 65 6d 73 65 74 28 26 78 2c x;. memset(&x,
3130: 20 30 2c 20 73 69 7a 65 6f 66 28 78 29 29 3b 0a 0, sizeof(x));.
3140: 20 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28 28 sqlite3_exec((
3150: 73 71 6c 69 74 65 2a 29 73 71 6c 69 74 65 33 5f sqlite*)sqlite3_
3160: 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 user_data(contex
3170: 74 29 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 t), argv[0], .
3180: 20 20 20 20 65 78 65 63 46 75 6e 63 43 61 6c 6c execFuncCall
3190: 62 61 63 6b 2c 20 26 78 2c 20 30 29 3b 0a 20 20 back, &x, 0);.
31a0: 73 71 6c 69 74 65 33 5f 73 65 74 5f 72 65 73 75 sqlite3_set_resu
31b0: 6c 74 5f 73 74 72 69 6e 67 28 63 6f 6e 74 65 78 lt_string(contex
31c0: 74 2c 20 78 2e 7a 2c 20 78 2e 6e 55 73 65 64 29 t, x.z, x.nUsed)
31d0: 3b 0a 20 20 73 71 6c 69 74 65 46 72 65 65 28 78 ;. sqliteFree(x
31e0: 2e 7a 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 .z);.}../*.** Us
31f0: 61 67 65 3a 20 20 73 71 6c 69 74 65 5f 74 65 73 age: sqlite_tes
3200: 74 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f t_create_functio
3210: 6e 20 44 42 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 n DB.**.** Call
3220: 74 68 65 20 73 71 6c 69 74 65 33 5f 63 72 65 61 the sqlite3_crea
3230: 74 65 5f 66 75 6e 63 74 69 6f 6e 20 41 50 49 20 te_function API
3240: 6f 6e 20 74 68 65 20 67 69 76 65 6e 20 64 61 74 on the given dat
3250: 61 62 61 73 65 20 69 6e 20 6f 72 64 65 72 0a 2a abase in order.*
3260: 2a 20 74 6f 20 63 72 65 61 74 65 20 61 20 66 75 * to create a fu
3270: 6e 63 74 69 6f 6e 20 6e 61 6d 65 64 20 22 78 5f nction named "x_
3280: 63 6f 61 6c 65 73 63 65 22 2e 20 20 54 68 69 73 coalesce". This
3290: 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 74 function does t
32a0: 68 65 20 73 61 6d 65 20 74 68 69 6e 67 0a 2a 2a he same thing.**
32b0: 20 61 73 20 74 68 65 20 22 63 6f 61 6c 65 73 63 as the "coalesc
32c0: 65 22 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 e" function. Th
32d0: 69 73 20 66 75 6e 63 74 69 6f 6e 20 61 6c 73 6f is function also
32e0: 20 72 65 67 69 73 74 65 72 73 20 61 6e 20 53 51 registers an SQ
32f0: 4c 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 6e 61 L function.** na
3300: 6d 65 64 20 22 78 5f 73 71 6c 69 74 65 33 5f 65 med "x_sqlite3_e
3310: 78 65 63 22 20 74 68 61 74 20 69 6e 76 6f 6b 65 xec" that invoke
3320: 73 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28 29 s sqlite3_exec()
3330: 2e 20 20 49 6e 76 6f 6b 69 6e 67 20 73 71 6c 69 . Invoking sqli
3340: 74 65 33 5f 65 78 65 63 28 29 0a 2a 2a 20 69 6e te3_exec().** in
3350: 20 74 68 69 73 20 77 61 79 20 69 73 20 69 6c 6c this way is ill
3360: 65 67 61 6c 20 72 65 63 75 72 73 69 6f 6e 20 61 egal recursion a
3370: 6e 64 20 73 68 6f 75 6c 64 20 72 61 69 73 65 20 nd should raise
3380: 61 6e 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 an SQLITE_MISUSE
3390: 20 65 72 72 6f 72 2e 0a 2a 2a 20 54 68 65 20 65 error..** The e
33a0: 66 66 65 63 74 20 69 73 20 73 69 6d 69 6c 61 72 ffect is similar
33b0: 20 74 6f 20 74 72 79 69 6e 67 20 74 6f 20 75 73 to trying to us
33c0: 65 20 74 68 65 20 73 61 6d 65 20 64 61 74 61 62 e the same datab
33d0: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 ase connection f
33e0: 72 6f 6d 0a 2a 2a 20 74 77 6f 20 74 68 72 65 61 rom.** two threa
33f0: 64 73 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 ds at the same t
3400: 69 6d 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6f ime..**.** The o
3410: 72 69 67 69 6e 61 6c 20 6d 6f 74 69 76 61 74 69 riginal motivati
3420: 6f 6e 20 66 6f 72 20 74 68 69 73 20 72 6f 75 74 on for this rout
3430: 69 6e 65 20 77 61 73 20 74 6f 20 62 65 20 61 62 ine was to be ab
3440: 6c 65 20 74 6f 20 63 61 6c 6c 20 74 68 65 0a 2a le to call the.*
3450: 2a 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 * sqlite3_create
3460: 5f 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 _function functi
3470: 6f 6e 20 77 68 69 6c 65 20 61 20 71 75 65 72 79 on while a query
3480: 20 69 73 20 69 6e 20 70 72 6f 67 72 65 73 73 20 is in progress
3490: 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 74 in order.** to t
34a0: 65 73 74 20 74 68 65 20 53 51 4c 49 54 45 5f 4d est the SQLITE_M
34b0: 49 53 55 53 45 20 64 65 74 65 63 74 69 6f 6e 20 ISUSE detection
34c0: 6c 6f 67 69 63 2e 0a 2a 2f 0a 73 74 61 74 69 63 logic..*/.static
34d0: 20 69 6e 74 20 74 65 73 74 5f 63 72 65 61 74 65 int test_create
34e0: 5f 66 75 6e 63 74 69 6f 6e 28 0a 20 20 76 6f 69 _function(. voi
34f0: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
3500: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
3510: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
3520: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
3530: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
3540: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
3550: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
3560: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
3570: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
3580: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
3590: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
35a0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
35b0: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 .){. sqlite *db
35c0: 3b 0a 20 20 65 78 74 65 72 6e 20 76 6f 69 64 20 ;. extern void
35d0: 4d 64 35 5f 52 65 67 69 73 74 65 72 28 73 71 6c Md5_Register(sql
35e0: 69 74 65 2a 29 3b 0a 20 20 69 66 28 20 61 72 67 ite*);. if( arg
35f0: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
3600: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
3610: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
3620: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
3630: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 ", argv[0],.
3640: 20 20 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 " FILENAME\""
3650: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
3660: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
3670: 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
3680: 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
3690: 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 1], &db) ) retur
36a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 n TCL_ERROR;. s
36b0: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
36c0: 6e 63 74 69 6f 6e 28 64 62 2c 20 22 78 5f 63 6f nction(db, "x_co
36d0: 61 6c 65 73 63 65 22 2c 20 2d 31 2c 20 69 66 6e alesce", -1, ifn
36e0: 75 6c 6c 46 75 6e 63 2c 20 30 29 3b 0a 20 20 73 ullFunc, 0);. s
36f0: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
3700: 6e 63 74 69 6f 6e 28 64 62 2c 20 22 78 5f 73 71 nction(db, "x_sq
3710: 6c 69 74 65 33 5f 65 78 65 63 22 2c 20 31 2c 20 lite3_exec", 1,
3720: 73 71 6c 69 74 65 33 45 78 65 63 46 75 6e 63 2c sqlite3ExecFunc,
3730: 20 64 62 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 db);. return T
3740: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
3750: 52 6f 75 74 69 6e 65 73 20 74 6f 20 69 6d 70 6c Routines to impl
3760: 65 6d 65 6e 74 20 74 68 65 20 78 5f 63 6f 75 6e ement the x_coun
3770: 74 28 29 20 61 67 67 72 65 67 61 74 65 20 66 75 t() aggregate fu
3780: 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 nction..*/.typed
3790: 65 66 20 73 74 72 75 63 74 20 43 6f 75 6e 74 43 ef struct CountC
37a0: 74 78 20 43 6f 75 6e 74 43 74 78 3b 0a 73 74 72 tx CountCtx;.str
37b0: 75 63 74 20 43 6f 75 6e 74 43 74 78 20 7b 0a 20 uct CountCtx {.
37c0: 20 69 6e 74 20 6e 3b 0a 7d 3b 0a 73 74 61 74 69 int n;.};.stati
37d0: 63 20 76 6f 69 64 20 63 6f 75 6e 74 53 74 65 70 c void countStep
37e0: 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 6f (sqlite_func *co
37f0: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
3800: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 const char **ar
3810: 67 76 29 7b 0a 20 20 43 6f 75 6e 74 43 74 78 20 gv){. CountCtx
3820: 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 *p;. p = sqlite
3830: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
3840: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a ext(context, siz
3850: 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 eof(*p));. if(
3860: 28 61 72 67 63 3d 3d 30 20 7c 7c 20 61 72 67 76 (argc==0 || argv
3870: 5b 30 5d 29 20 26 26 20 70 20 29 7b 0a 20 20 20 [0]) && p ){.
3880: 20 70 2d 3e 6e 2b 2b 3b 0a 20 20 7d 0a 7d 20 20 p->n++;. }.}
3890: 20 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f .static void co
38a0: 75 6e 74 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 untFinalize(sqli
38b0: 74 65 5f 66 75 6e 63 20 2a 63 6f 6e 74 65 78 74 te_func *context
38c0: 29 7b 0a 20 20 43 6f 75 6e 74 43 74 78 20 2a 70 ){. CountCtx *p
38d0: 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f ;. p = sqlite3_
38e0: 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 aggregate_contex
38f0: 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f t(context, sizeo
3900: 66 28 2a 70 29 29 3b 0a 20 20 73 71 6c 69 74 65 f(*p));. sqlite
3910: 33 5f 73 65 74 5f 72 65 73 75 6c 74 5f 69 6e 74 3_set_result_int
3920: 28 63 6f 6e 74 65 78 74 2c 20 70 20 3f 20 70 2d (context, p ? p-
3930: 3e 6e 20 3a 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a >n : 0);.}../*.*
3940: 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 * Usage: sqlite
3950: 5f 74 65 73 74 5f 63 72 65 61 74 65 5f 61 67 67 _test_create_agg
3960: 72 65 67 61 74 65 20 44 42 0a 2a 2a 0a 2a 2a 20 regate DB.**.**
3970: 43 61 6c 6c 20 74 68 65 20 73 71 6c 69 74 65 33 Call the sqlite3
3980: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
3990: 20 41 50 49 20 6f 6e 20 74 68 65 20 67 69 76 65 API on the give
39a0: 6e 20 64 61 74 61 62 61 73 65 20 69 6e 20 6f 72 n database in or
39b0: 64 65 72 0a 2a 2a 20 74 6f 20 63 72 65 61 74 65 der.** to create
39c0: 20 61 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 a function name
39d0: 64 20 22 78 5f 63 6f 75 6e 74 22 2e 20 20 54 68 d "x_count". Th
39e0: 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 is function does
39f0: 20 74 68 65 20 73 61 6d 65 20 74 68 69 6e 67 0a the same thing.
3a00: 2a 2a 20 61 73 20 74 68 65 20 22 6d 64 35 73 75 ** as the "md5su
3a10: 6d 22 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a m" function..**.
3a20: 2a 2a 20 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 ** The original
3a30: 6d 6f 74 69 76 61 74 69 6f 6e 20 66 6f 72 20 74 motivation for t
3a40: 68 69 73 20 72 6f 75 74 69 6e 65 20 77 61 73 20 his routine was
3a50: 74 6f 20 62 65 20 61 62 6c 65 20 74 6f 20 63 61 to be able to ca
3a60: 6c 6c 20 74 68 65 0a 2a 2a 20 73 71 6c 69 74 65 ll the.** sqlite
3a70: 33 5f 63 72 65 61 74 65 5f 61 67 67 72 65 67 61 3_create_aggrega
3a80: 74 65 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 6c te function whil
3a90: 65 20 61 20 71 75 65 72 79 20 69 73 20 69 6e 20 e a query is in
3aa0: 70 72 6f 67 72 65 73 73 20 69 6e 20 6f 72 64 65 progress in orde
3ab0: 72 0a 2a 2a 20 74 6f 20 74 65 73 74 20 74 68 65 r.** to test the
3ac0: 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 64 SQLITE_MISUSE d
3ad0: 65 74 65 63 74 69 6f 6e 20 6c 6f 67 69 63 2e 0a etection logic..
3ae0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
3af0: 73 74 5f 63 72 65 61 74 65 5f 61 67 67 72 65 67 st_create_aggreg
3b00: 61 74 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 ate(. void *Not
3b10: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
3b20: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
3b30: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
3b40: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
3b50: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
3b60: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
3b70: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
3b80: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
3b90: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
3ba0: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
3bb0: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
3bc0: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
3bd0: 73 71 6c 69 74 65 20 2a 64 62 3b 0a 20 20 69 66 sqlite *db;. if
3be0: 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 ( argc!=2 ){.
3bf0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
3c00: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
3c10: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
3c20: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
3c30: 0a 20 20 20 20 20 20 20 22 20 46 49 4c 45 4e 41 . " FILENA
3c40: 4d 45 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 ME\"", 0);. r
3c50: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3c60: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
3c70: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
3c80: 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 20 argv[1], &db) )
3c90: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3ca0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 ;. sqlite3_crea
3cb0: 74 65 5f 61 67 67 72 65 67 61 74 65 28 64 62 2c te_aggregate(db,
3cc0: 20 22 78 5f 63 6f 75 6e 74 22 2c 20 30 2c 20 63 "x_count", 0, c
3cd0: 6f 75 6e 74 53 74 65 70 2c 20 63 6f 75 6e 74 46 ountStep, countF
3ce0: 69 6e 61 6c 69 7a 65 2c 20 30 29 3b 0a 20 20 73 inalize, 0);. s
3cf0: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 61 67 qlite3_create_ag
3d00: 67 72 65 67 61 74 65 28 64 62 2c 20 22 78 5f 63 gregate(db, "x_c
3d10: 6f 75 6e 74 22 2c 20 31 2c 20 63 6f 75 6e 74 53 ount", 1, countS
3d20: 74 65 70 2c 20 63 6f 75 6e 74 46 69 6e 61 6c 69 tep, countFinali
3d30: 7a 65 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e ze, 0);. return
3d40: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 0a 2f 2a TCL_OK;.}..../*
3d50: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
3d60: 74 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 20 te3_mprintf_int
3d70: 46 4f 52 4d 41 54 20 49 4e 54 45 47 45 52 20 49 FORMAT INTEGER I
3d80: 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52 0a 2a NTEGER INTEGER.*
3d90: 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e 74 *.** Call mprint
3da0: 66 20 77 69 74 68 20 74 68 72 65 65 20 69 6e 74 f with three int
3db0: 65 67 65 72 20 61 72 67 75 6d 65 6e 74 73 0a 2a eger arguments.*
3dc0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c /.static int sql
3dd0: 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 ite3_mprintf_int
3de0: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 (. void *NotUse
3df0: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 d,. Tcl_Interp
3e00: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 *interp, /* T
3e10: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 he TCL interpret
3e20: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 er that invoked
3e30: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a this command */.
3e40: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 int argc,
3e50: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
3e60: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
3e70: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 */. char **argv
3e80: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
3e90: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 ext of each argu
3ea0: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 ment */.){. int
3eb0: 20 61 5b 33 5d 2c 20 69 3b 0a 20 20 63 68 61 72 a[3], i;. char
3ec0: 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 21 *z;. if( argc!
3ed0: 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =5 ){. Tcl_Ap
3ee0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
3ef0: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
3f00: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
3f10: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
3f20: 20 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e " FORMAT INT IN
3f30: 54 20 49 4e 54 5c 22 22 2c 20 30 29 3b 0a 20 20 T INT\"", 0);.
3f40: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
3f50: 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d OR;. }. for(i=
3f60: 32 3b 20 69 3c 35 3b 20 69 2b 2b 29 7b 0a 20 20 2; i<5; i++){.
3f70: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
3f80: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 5d (interp, argv[i]
3f90: 2c 20 26 61 5b 69 2d 32 5d 29 20 29 20 72 65 74 , &a[i-2]) ) ret
3fa0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3fb0: 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 }. z = sqlite3
3fc0: 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 31 5d _mprintf(argv[1]
3fd0: 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 61 5b , a[0], a[1], a[
3fe0: 32 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 2]);. Tcl_Appen
3ff0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
4000: 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 z, 0);. sqlite3
4010: 5f 66 72 65 65 6d 65 6d 28 7a 29 3b 0a 20 20 72 _freemem(z);. r
4020: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
4030: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
4040: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 73 qlite3_mprintf_s
4050: 74 72 20 46 4f 52 4d 41 54 20 49 4e 54 45 47 45 tr FORMAT INTEGE
4060: 52 20 49 4e 54 45 47 45 52 20 53 54 52 49 4e 47 R INTEGER STRING
4070: 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 .**.** Call mpri
4080: 6e 74 66 20 77 69 74 68 20 74 77 6f 20 69 6e 74 ntf with two int
4090: 65 67 65 72 20 61 72 67 75 6d 65 6e 74 73 20 61 eger arguments a
40a0: 6e 64 20 6f 6e 65 20 73 74 72 69 6e 67 20 61 72 nd one string ar
40b0: 67 75 6d 65 6e 74 0a 2a 2f 0a 73 74 61 74 69 63 gument.*/.static
40c0: 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 int sqlite3_mpr
40d0: 69 6e 74 66 5f 73 74 72 28 0a 20 20 76 6f 69 64 intf_str(. void
40e0: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
40f0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
4100: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
4110: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
4120: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
4130: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
4140: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
4150: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
4160: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
4170: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
4180: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
4190: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
41a0: 29 7b 0a 20 20 69 6e 74 20 61 5b 33 5d 2c 20 69 ){. int a[3], i
41b0: 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 ;. char *z;. i
41c0: 66 28 20 61 72 67 63 3c 34 20 7c 7c 20 61 72 67 f( argc<4 || arg
41d0: 63 3e 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 c>5 ){. Tcl_A
41e0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
41f0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
4200: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
4210: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 , argv[0],.
4220: 20 20 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 " FORMAT INT I
4230: 4e 54 20 3f 53 54 52 49 4e 47 3f 5c 22 22 2c 20 NT ?STRING?\"",
4240: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
4250: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
4260: 66 6f 72 28 69 3d 32 3b 20 69 3c 34 3b 20 69 2b for(i=2; i<4; i+
4270: 2b 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f +){. if( Tcl_
4280: 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 GetInt(interp, a
4290: 72 67 76 5b 69 5d 2c 20 26 61 5b 69 2d 32 5d 29 rgv[i], &a[i-2])
42a0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
42b0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 73 ROR;. }. z = s
42c0: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 61 qlite3_mprintf(a
42d0: 72 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c 20 61 5b rgv[1], a[0], a[
42e0: 31 5d 2c 20 61 72 67 63 3e 34 20 3f 20 61 72 67 1], argc>4 ? arg
42f0: 76 5b 34 5d 20 3a 20 4e 55 4c 4c 29 3b 0a 20 20 v[4] : NULL);.
4300: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
4310: 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b 0a (interp, z, 0);.
4320: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 6d 65 sqlite3_freeme
4330: 6d 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 m(z);. return T
4340: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
4350: 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
4360: 6d 70 72 69 6e 74 66 5f 73 74 72 20 46 4f 52 4d mprintf_str FORM
4370: 41 54 20 49 4e 54 45 47 45 52 20 49 4e 54 45 47 AT INTEGER INTEG
4380: 45 52 20 44 4f 55 42 4c 45 0a 2a 2a 0a 2a 2a 20 ER DOUBLE.**.**
4390: 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 74 Call mprintf wit
43a0: 68 20 74 77 6f 20 69 6e 74 65 67 65 72 20 61 72 h two integer ar
43b0: 67 75 6d 65 6e 74 73 20 61 6e 64 20 6f 6e 65 20 guments and one
43c0: 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 0a double argument.
43d0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 */.static int sq
43e0: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 64 6f lite3_mprintf_do
43f0: 75 62 6c 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f uble(. void *No
4400: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 tUsed,. Tcl_Int
4410: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
4420: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
4430: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
4440: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
4450: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 */. int argc,
4460: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
4470: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
4480: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a nts */. char **
4490: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 argv
44a0: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 /* Text of each
44b0: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 argument */.){.
44c0: 20 69 6e 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 20 int a[3], i;.
44d0: 64 6f 75 62 6c 65 20 72 3b 0a 20 20 63 68 61 72 double r;. char
44e0: 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 21 *z;. if( argc!
44f0: 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =5 ){. Tcl_Ap
4500: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
4510: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
4520: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
4530: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
4540: 20 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 4e " FORMAT INT IN
4550: 54 20 53 54 52 49 4e 47 5c 22 22 2c 20 30 29 3b T STRING\"", 0);
4560: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
4570: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 ERROR;. }. for
4580: 28 69 3d 32 3b 20 69 3c 34 3b 20 69 2b 2b 29 7b (i=2; i<4; i++){
4590: 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 . if( Tcl_Get
45a0: 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 Int(interp, argv
45b0: 5b 69 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 29 20 [i], &a[i-2]) )
45c0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
45d0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f ;. }. if( Tcl_
45e0: 47 65 74 44 6f 75 62 6c 65 28 69 6e 74 65 72 70 GetDouble(interp
45f0: 2c 20 61 72 67 76 5b 34 5d 2c 20 26 72 29 20 29 , argv[4], &r) )
4600: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
4610: 52 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 R;. z = sqlite3
4620: 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 31 5d _mprintf(argv[1]
4630: 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 72 29 , a[0], a[1], r)
4640: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
4650: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 sult(interp, z,
4660: 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 0);. sqlite3_fr
4670: 65 65 6d 65 6d 28 7a 29 3b 0a 20 20 72 65 74 75 eemem(z);. retu
4680: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
4690: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
46a0: 74 65 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 20 te3_mprintf_str
46b0: 46 4f 52 4d 41 54 20 44 4f 55 42 4c 45 20 44 4f FORMAT DOUBLE DO
46c0: 55 42 4c 45 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 UBLE.**.** Call
46d0: 6d 70 72 69 6e 74 66 20 77 69 74 68 20 61 20 73 mprintf with a s
46e0: 69 6e 67 6c 65 20 64 6f 75 62 6c 65 20 61 72 67 ingle double arg
46f0: 75 6d 65 6e 74 20 77 68 69 63 68 20 69 73 20 74 ument which is t
4700: 68 65 20 70 72 6f 64 75 63 74 20 6f 66 20 74 68 he product of th
4710: 65 0a 2a 2a 20 74 77 6f 20 61 72 67 75 6d 65 6e e.** two argumen
4720: 74 73 20 67 69 76 65 6e 20 61 62 6f 76 65 2e 20 ts given above.
4730: 20 54 68 69 73 20 69 73 20 75 73 65 64 20 74 6f This is used to
4740: 20 67 65 6e 65 72 61 74 65 20 6f 76 65 72 66 6c generate overfl
4750: 6f 77 20 61 6e 64 20 75 6e 64 65 72 66 6c 6f 77 ow and underflow
4760: 0a 2a 2a 20 64 6f 75 62 6c 65 73 20 74 6f 20 74 .** doubles to t
4770: 65 73 74 20 74 68 61 74 20 74 68 65 79 20 61 72 est that they ar
4780: 65 20 63 6f 6e 76 65 72 74 65 64 20 70 72 6f 70 e converted prop
4790: 65 72 6c 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 erly..*/.static
47a0: 69 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 int sqlite3_mpri
47b0: 6e 74 66 5f 73 63 61 6c 65 64 28 0a 20 20 76 6f ntf_scaled(. vo
47c0: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
47d0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
47e0: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
47f0: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
4800: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
4810: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
4820: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
4830: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
4840: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
4850: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
4860: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
4870: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
4880: 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 /.){. int i;.
4890: 64 6f 75 62 6c 65 20 72 5b 32 5d 3b 0a 20 20 63 double r[2];. c
48a0: 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 har *z;. if( ar
48b0: 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c gc!=4 ){. Tcl
48c0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
48d0: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
48e0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
48f0: 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 "", argv[0],.
4900: 20 20 20 20 22 20 46 4f 52 4d 41 54 20 44 4f 55 " FORMAT DOU
4910: 42 4c 45 20 44 4f 55 42 4c 45 5c 22 22 2c 20 30 BLE DOUBLE\"", 0
4920: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
4930: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 L_ERROR;. }. f
4940: 6f 72 28 69 3d 32 3b 20 69 3c 34 3b 20 69 2b 2b or(i=2; i<4; i++
4950: 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 ){. if( Tcl_G
4960: 65 74 44 6f 75 62 6c 65 28 69 6e 74 65 72 70 2c etDouble(interp,
4970: 20 61 72 67 76 5b 69 5d 2c 20 26 72 5b 69 2d 32 argv[i], &r[i-2
4980: 5d 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f ]) ) return TCL_
4990: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d ERROR;. }. z =
49a0: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 sqlite3_mprintf
49b0: 28 61 72 67 76 5b 31 5d 2c 20 72 5b 30 5d 2a 72 (argv[1], r[0]*r
49c0: 5b 31 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 [1]);. Tcl_Appe
49d0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
49e0: 20 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 z, 0);. sqlite
49f0: 33 5f 66 72 65 65 6d 65 6d 28 7a 29 3b 0a 20 20 3_freemem(z);.
4a00: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
4a10: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 ../*.** Usage: s
4a20: 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 qlite_malloc_fai
4a30: 6c 20 4e 0a 2a 2a 0a 2a 2a 20 52 69 67 20 73 71 l N.**.** Rig sq
4a40: 6c 69 74 65 4d 61 6c 6c 6f 63 28 29 20 74 6f 20 liteMalloc() to
4a50: 66 61 69 6c 20 6f 6e 20 74 68 65 20 4e 2d 74 68 fail on the N-th
4a60: 20 63 61 6c 6c 2e 20 20 54 75 72 6e 20 6f 66 66 call. Turn off
4a70: 20 74 68 69 73 20 6d 65 63 68 61 6e 69 73 6d 0a this mechanism.
4a80: 2a 2a 20 61 6e 64 20 72 65 73 65 74 20 74 68 65 ** and reset the
4a90: 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 5f sqlite3_malloc_
4aa0: 66 61 69 6c 65 64 20 76 61 72 69 61 62 6c 65 20 failed variable
4ab0: 69 73 20 4e 3d 3d 30 2e 0a 2a 2f 0a 23 69 66 64 is N==0..*/.#ifd
4ac0: 65 66 20 4d 45 4d 4f 52 59 5f 44 45 42 55 47 0a ef MEMORY_DEBUG.
4ad0: 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 74 static int sqlit
4ae0: 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c 28 0a 20 e_malloc_fail(.
4af0: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
4b00: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
4b10: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
4b20: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
4b30: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
4b40: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
4b50: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
4b60: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
4b70: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
4b80: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
4b90: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
4ba0: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
4bb0: 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 6e 3b t */.){. int n;
4bc0: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 . if( argc!=2 )
4bd0: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
4be0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
4bf0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
4c00: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
4c10: 76 5b 30 5d 2c 20 22 20 4e 5c 22 22 2c 20 30 29 v[0], " N\"", 0)
4c20: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
4c30: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
4c40: 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 ( Tcl_GetInt(int
4c50: 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 6e erp, argv[1], &n
4c60: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
4c70: 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 33 5f RROR;. sqlite3_
4c80: 69 4d 61 6c 6c 6f 63 46 61 69 6c 20 3d 20 6e 3b iMallocFail = n;
4c90: 0a 20 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f . sqlite3_mallo
4ca0: 63 5f 66 61 69 6c 65 64 20 3d 20 30 3b 0a 20 20 c_failed = 0;.
4cb0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
4cc0: 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 .#endif../*.** U
4cd0: 73 61 67 65 3a 20 73 71 6c 69 74 65 5f 6d 61 6c sage: sqlite_mal
4ce0: 6c 6f 63 5f 73 74 61 74 0a 2a 2a 0a 2a 2a 20 52 loc_stat.**.** R
4cf0: 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 eturn the number
4d00: 20 6f 66 20 70 72 69 6f 72 20 63 61 6c 6c 73 20 of prior calls
4d10: 74 6f 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 to sqliteMalloc(
4d20: 29 20 61 6e 64 20 73 71 6c 69 74 65 46 72 65 65 ) and sqliteFree
4d30: 28 29 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 4d 45 ()..*/.#ifdef ME
4d40: 4d 4f 52 59 5f 44 45 42 55 47 0a 73 74 61 74 69 MORY_DEBUG.stati
4d50: 63 20 69 6e 74 20 73 71 6c 69 74 65 5f 6d 61 6c c int sqlite_mal
4d60: 6c 6f 63 5f 73 74 61 74 28 0a 20 20 76 6f 69 64 loc_stat(. void
4d70: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
4d80: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
4d90: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
4da0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
4db0: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
4dc0: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
4dd0: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
4de0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
4df0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
4e00: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
4e10: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
4e20: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
4e30: 29 7b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 32 ){. char zBuf[2
4e40: 30 30 5d 3b 0a 20 20 73 70 72 69 6e 74 66 28 7a 00];. sprintf(z
4e50: 42 75 66 2c 20 22 25 64 20 25 64 20 25 64 22 2c Buf, "%d %d %d",
4e60: 20 73 71 6c 69 74 65 33 5f 6e 4d 61 6c 6c 6f 63 sqlite3_nMalloc
4e70: 2c 20 73 71 6c 69 74 65 33 5f 6e 46 72 65 65 2c , sqlite3_nFree,
4e80: 20 73 71 6c 69 74 65 33 5f 69 4d 61 6c 6c 6f 63 sqlite3_iMalloc
4e90: 46 61 69 6c 29 3b 0a 20 20 54 63 6c 5f 41 70 70 Fail);. Tcl_App
4ea0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
4eb0: 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 , zBuf, 0);. re
4ec0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 turn TCL_OK;.}.#
4ed0: 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 endif../*.** Usa
4ee0: 67 65 3a 20 20 73 71 6c 69 74 65 5f 61 62 6f 72 ge: sqlite_abor
4ef0: 74 0a 2a 2a 0a 2a 2a 20 53 68 75 74 64 6f 77 6e t.**.** Shutdown
4f00: 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 6d 6d the process imm
4f10: 65 64 69 61 74 65 6c 79 2e 20 20 54 68 69 73 20 ediately. This
4f20: 69 73 20 6e 6f 74 20 61 20 63 6c 65 61 6e 20 73 is not a clean s
4f30: 68 75 74 64 6f 77 6e 2e 0a 2a 2a 20 54 68 69 73 hutdown..** This
4f40: 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 command is used
4f50: 20 74 6f 20 74 65 73 74 20 74 68 65 20 72 65 63 to test the rec
4f60: 6f 76 65 72 61 62 69 6c 69 74 79 20 6f 66 20 61 overability of a
4f70: 20 64 61 74 61 62 61 73 65 20 69 6e 0a 2a 2a 20 database in.**
4f80: 74 68 65 20 65 76 65 6e 74 20 6f 66 20 61 20 70 the event of a p
4f90: 72 6f 67 72 61 6d 20 63 72 61 73 68 2e 0a 2a 2f rogram crash..*/
4fa0: 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 .static int sqli
4fb0: 74 65 5f 61 62 6f 72 74 28 0a 20 20 76 6f 69 64 te_abort(. void
4fc0: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
4fd0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
4fe0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
4ff0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
5000: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
5010: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
5020: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
5030: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
5040: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
5050: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
5060: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
5070: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
5080: 29 7b 0a 20 20 61 73 73 65 72 74 28 20 69 6e 74 ){. assert( int
5090: 65 72 70 3d 3d 30 20 29 3b 20 20 20 2f 2a 20 54 erp==0 ); /* T
50a0: 68 69 73 20 77 69 6c 6c 20 61 6c 77 61 79 73 20 his will always
50b0: 66 61 69 6c 20 2a 2f 0a 20 20 72 65 74 75 72 6e fail */. return
50c0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
50d0: 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 * The following
50e0: 72 6f 75 74 69 6e 65 20 69 73 20 61 20 75 73 65 routine is a use
50f0: 72 2d 64 65 66 69 6e 65 64 20 53 51 4c 20 66 75 r-defined SQL fu
5100: 6e 63 74 69 6f 6e 20 77 68 6f 73 65 20 70 75 72 nction whose pur
5110: 70 6f 73 65 0a 2a 2a 20 69 73 20 74 6f 20 74 65 pose.** is to te
5120: 73 74 20 74 68 65 20 73 71 6c 69 74 65 5f 73 65 st the sqlite_se
5130: 74 5f 72 65 73 75 6c 74 28 29 20 41 50 49 2e 0a t_result() API..
5140: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 */.static void t
5150: 65 73 74 46 75 6e 63 28 73 71 6c 69 74 65 5f 66 estFunc(sqlite_f
5160: 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e unc *context, in
5170: 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 t argc, const ch
5180: 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 77 68 ar **argv){. wh
5190: 69 6c 65 28 20 61 72 67 63 3e 3d 32 20 29 7b 0a ile( argc>=2 ){.
51a0: 20 20 20 20 69 66 28 20 61 72 67 76 5b 30 5d 3d if( argv[0]=
51b0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 =0 ){. sqli
51c0: 74 65 33 5f 73 65 74 5f 72 65 73 75 6c 74 5f 65 te3_set_result_e
51d0: 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 22 66 rror(context, "f
51e0: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f irst argument to
51f0: 20 74 65 73 74 20 66 75 6e 63 74 69 6f 6e 20 22 test function "
5200: 0a 20 20 20 20 20 20 20 20 20 22 6d 61 79 20 6e . "may n
5210: 6f 74 20 62 65 20 4e 55 4c 4c 22 2c 20 2d 31 29 ot be NULL", -1)
5220: 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 ;. }else if(
5230: 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 61 sqlite3StrICmp(a
5240: 72 67 76 5b 30 5d 2c 22 73 74 72 69 6e 67 22 29 rgv[0],"string")
5250: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 73 71 6c ==0 ){. sql
5260: 69 74 65 33 5f 73 65 74 5f 72 65 73 75 6c 74 5f ite3_set_result_
5270: 73 74 72 69 6e 67 28 63 6f 6e 74 65 78 74 2c 20 string(context,
5280: 61 72 67 76 5b 31 5d 2c 20 2d 31 29 3b 0a 20 20 argv[1], -1);.
5290: 20 20 7d 65 6c 73 65 20 69 66 28 20 61 72 67 76 }else if( argv
52a0: 5b 31 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 [1]==0 ){.
52b0: 73 71 6c 69 74 65 33 5f 73 65 74 5f 72 65 73 75 sqlite3_set_resu
52c0: 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 lt_error(context
52d0: 2c 20 22 32 6e 64 20 61 72 67 75 6d 65 6e 74 20 , "2nd argument
52e0: 6d 61 79 20 6e 6f 74 20 62 65 20 4e 55 4c 4c 20 may not be NULL
52f0: 69 66 20 74 68 65 20 22 0a 20 20 20 20 20 20 20 if the ".
5300: 20 20 22 66 69 72 73 74 20 61 72 67 75 6d 65 6e "first argumen
5310: 74 20 69 73 20 6e 6f 74 20 5c 22 73 74 72 69 6e t is not \"strin
5320: 67 5c 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 7d g\"", -1);. }
5330: 65 6c 73 65 20 69 66 28 20 73 71 6c 69 74 65 33 else if( sqlite3
5340: 53 74 72 49 43 6d 70 28 61 72 67 76 5b 30 5d 2c StrICmp(argv[0],
5350: 22 69 6e 74 22 29 3d 3d 30 20 29 7b 0a 20 20 20 "int")==0 ){.
5360: 20 20 20 73 71 6c 69 74 65 33 5f 73 65 74 5f 72 sqlite3_set_r
5370: 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 esult_int(contex
5380: 74 2c 20 61 74 6f 69 28 61 72 67 76 5b 31 5d 29 t, atoi(argv[1])
5390: 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 );. }else if(
53a0: 20 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 sqlite3StrICmp(
53b0: 61 72 67 76 5b 30 5d 2c 22 64 6f 75 62 6c 65 22 argv[0],"double"
53c0: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 73 71 )==0 ){. sq
53d0: 6c 69 74 65 33 5f 73 65 74 5f 72 65 73 75 6c 74 lite3_set_result
53e0: 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c _double(context,
53f0: 20 73 71 6c 69 74 65 33 41 74 6f 46 28 61 72 67 sqlite3AtoF(arg
5400: 76 5b 31 5d 2c 20 30 29 29 3b 0a 20 20 20 20 7d v[1], 0));. }
5410: 65 6c 73 65 7b 0a 20 20 20 20 20 20 73 71 6c 69 else{. sqli
5420: 74 65 33 5f 73 65 74 5f 72 65 73 75 6c 74 5f 65 te3_set_result_e
5430: 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 22 66 69 rror(context,"fi
5440: 72 73 74 20 61 72 67 75 6d 65 6e 74 20 73 68 6f rst argument sho
5450: 75 6c 64 20 62 65 20 6f 6e 65 20 6f 66 3a 20 22 uld be one of: "
5460: 0a 20 20 20 20 20 20 20 20 20 20 22 73 74 72 69 . "stri
5470: 6e 67 20 69 6e 74 20 64 6f 75 62 6c 65 22 2c 20 ng int double",
5480: 2d 31 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 61 -1);. }. a
5490: 72 67 63 20 2d 3d 20 32 3b 0a 20 20 20 20 61 72 rgc -= 2;. ar
54a0: 67 76 20 2b 3d 20 32 3b 0a 20 20 7d 0a 7d 0a 0a gv += 2;. }.}..
54b0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 73 /*.** Usage: s
54c0: 71 6c 69 74 65 5f 72 65 67 69 73 74 65 72 5f 74 qlite_register_t
54d0: 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 20 44 42 est_function DB
54e0: 20 20 4e 41 4d 45 0a 2a 2a 0a 2a 2a 20 52 65 67 NAME.**.** Reg
54f0: 69 73 74 65 72 20 74 68 65 20 74 65 73 74 20 53 ister the test S
5500: 51 4c 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 74 QL function on t
5510: 68 65 20 64 61 74 61 62 61 73 65 20 44 42 20 75 he database DB u
5520: 6e 64 65 72 20 74 68 65 20 6e 61 6d 65 20 4e 41 nder the name NA
5530: 4d 45 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ME..*/.static in
5540: 74 20 74 65 73 74 5f 72 65 67 69 73 74 65 72 5f t test_register_
5550: 66 75 6e 63 28 0a 20 20 76 6f 69 64 20 2a 4e 6f func(. void *No
5560: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 tUsed,. Tcl_Int
5570: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
5580: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
5590: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
55a0: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
55b0: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 */. int argc,
55c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
55d0: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
55e0: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a nts */. char **
55f0: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 argv
5600: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 /* Text of each
5610: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 argument */.){.
5620: 20 73 71 6c 69 74 65 20 2a 64 62 3b 0a 20 20 69 sqlite *db;. i
5630: 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 61 72 67 nt rc;. if( arg
5640: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
5650: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
5660: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
5670: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
5680: 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 ", argv[0], .
5690: 20 20 20 20 22 20 44 42 20 46 55 4e 43 54 49 4f " DB FUNCTIO
56a0: 4e 2d 4e 41 4d 45 22 2c 20 30 29 3b 0a 20 20 20 N-NAME", 0);.
56b0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
56c0: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
56d0: 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
56e0: 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 , argv[1], &db)
56f0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
5700: 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 OR;. rc = sqlit
5710: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
5720: 6f 6e 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c 20 on(db, argv[2],
5730: 2d 31 2c 20 74 65 73 74 46 75 6e 63 2c 20 30 29 -1, testFunc, 0)
5740: 3b 0a 20 20 69 66 28 20 72 63 21 3d 30 20 29 7b ;. if( rc!=0 ){
5750: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
5760: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 73 71 esult(interp, sq
5770: 6c 69 74 65 33 5f 65 72 72 6f 72 5f 73 74 72 69 lite3_error_stri
5780: 6e 67 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 ng(rc), 0);.
5790: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
57a0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 ;. }. return T
57b0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
57c0: 54 68 69 73 20 53 51 4c 69 74 65 20 63 61 6c 6c This SQLite call
57d0: 62 61 63 6b 20 72 65 63 6f 72 64 73 20 74 68 65 back records the
57e0: 20 64 61 74 61 74 79 70 65 20 6f 66 20 61 6c 6c datatype of all
57f0: 20 63 6f 6c 75 6d 6e 73 2e 0a 2a 2a 0a 2a 2a 20 columns..**.**
5800: 54 68 65 20 70 41 72 67 20 61 72 67 75 6d 65 6e The pArg argumen
5810: 74 20 69 73 20 72 65 61 6c 6c 79 20 61 20 70 6f t is really a po
5820: 69 6e 74 65 72 20 74 6f 20 61 20 54 43 4c 20 69 inter to a TCL i
5830: 6e 74 65 72 70 72 65 74 65 72 2e 20 20 54 68 65 nterpreter. The
5840: 0a 2a 2a 20 63 6f 6c 75 6d 6e 20 6e 61 6d 65 73 .** column names
5850: 20 61 72 65 20 69 6e 73 65 72 74 65 64 20 61 73 are inserted as
5860: 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 the result of t
5870: 68 69 73 20 69 6e 74 65 72 70 72 65 74 65 72 2e his interpreter.
5880: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 .**.** This rout
5890: 69 6e 65 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d ine returns non-
58a0: 7a 65 72 6f 20 77 68 69 63 68 20 63 61 75 73 65 zero which cause
58b0: 73 20 74 68 65 20 71 75 65 72 79 20 74 6f 20 61 s the query to a
58c0: 62 6f 72 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 bort..*/.static
58d0: 69 6e 74 20 72 65 6d 65 6d 62 65 72 44 61 74 61 int rememberData
58e0: 54 79 70 65 73 28 76 6f 69 64 20 2a 70 41 72 67 Types(void *pArg
58f0: 2c 20 69 6e 74 20 6e 43 6f 6c 2c 20 63 68 61 72 , int nCol, char
5900: 20 2a 2a 61 72 67 76 2c 20 63 68 61 72 20 2a 2a **argv, char **
5910: 63 6f 6c 76 29 7b 0a 20 20 69 6e 74 20 69 3b 0a colv){. int i;.
5920: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
5930: 74 65 72 70 20 3d 20 28 54 63 6c 5f 49 6e 74 65 terp = (Tcl_Inte
5940: 72 70 2a 29 70 41 72 67 3b 0a 20 20 54 63 6c 5f rp*)pArg;. Tcl_
5950: 4f 62 6a 20 2a 70 4c 69 73 74 2c 20 2a 70 45 6c Obj *pList, *pEl
5960: 65 6d 3b 0a 20 20 69 66 28 20 63 6f 6c 76 5b 6e em;. if( colv[n
5970: 43 6f 6c 2b 31 5d 3d 3d 30 20 29 7b 0a 20 20 20 Col+1]==0 ){.
5980: 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 return 1;. }.
5990: 20 70 4c 69 73 74 20 3d 20 54 63 6c 5f 4e 65 77 pList = Tcl_New
59a0: 4f 62 6a 28 29 3b 0a 20 20 66 6f 72 28 69 3d 30 Obj();. for(i=0
59b0: 3b 20 69 3c 6e 43 6f 6c 3b 20 69 2b 2b 29 7b 0a ; i<nCol; i++){.
59c0: 20 20 20 20 70 45 6c 65 6d 20 3d 20 54 63 6c 5f pElem = Tcl_
59d0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 63 6f 6c NewStringObj(col
59e0: 76 5b 69 2b 6e 43 6f 6c 5d 20 3f 20 63 6f 6c 76 v[i+nCol] ? colv
59f0: 5b 69 2b 6e 43 6f 6c 5d 20 3a 20 22 4e 55 4c 4c [i+nCol] : "NULL
5a00: 22 2c 20 2d 31 29 3b 0a 20 20 20 20 54 63 6c 5f ", -1);. Tcl_
5a10: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
5a20: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 4c 69 ment(interp, pLi
5a30: 73 74 2c 20 70 45 6c 65 6d 29 3b 0a 20 20 7d 0a st, pElem);. }.
5a40: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
5a50: 6c 74 28 69 6e 74 65 72 70 2c 20 70 4c 69 73 74 lt(interp, pList
5a60: 29 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d );. return 1;.}
5a70: 0a 0a 2f 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 61 ../*.** Invoke a
5a80: 6e 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 n SQL statement
5a90: 62 75 74 20 69 67 6e 6f 72 65 20 61 6c 6c 20 74 but ignore all t
5aa0: 68 65 20 64 61 74 61 20 69 6e 20 74 68 65 20 72 he data in the r
5ab0: 65 73 75 6c 74 2e 20 20 49 6e 73 74 65 61 64 2c esult. Instead,
5ac0: 0a 2a 2a 20 72 65 74 75 72 6e 20 61 20 6c 69 73 .** return a lis
5ad0: 74 20 74 68 61 74 20 63 6f 6e 73 69 73 74 73 20 t that consists
5ae0: 6f 66 20 74 68 65 20 64 61 74 61 74 79 70 65 73 of the datatypes
5af0: 20 6f 66 20 74 68 65 20 76 61 72 69 6f 75 73 20 of the various
5b00: 63 6f 6c 75 6d 6e 73 2e 0a 2a 2a 0a 2a 2a 20 54 columns..**.** T
5b10: 68 69 73 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 69 his only works i
5b20: 66 20 22 50 52 41 47 4d 41 20 73 68 6f 77 5f 64 f "PRAGMA show_d
5b30: 61 74 61 74 79 70 65 73 3d 6f 6e 22 20 68 61 73 atatypes=on" has
5b40: 20 62 65 65 6e 20 65 78 65 63 75 74 65 64 20 61 been executed a
5b50: 67 61 69 6e 73 74 0a 2a 2a 20 74 68 65 20 64 61 gainst.** the da
5b60: 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f tabase connectio
5b70: 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 n..*/.static int
5b80: 20 73 71 6c 69 74 65 5f 64 61 74 61 74 79 70 65 sqlite_datatype
5b90: 73 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 s(. void *NotUs
5ba0: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
5bb0: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
5bc0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
5bd0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
5be0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
5bf0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
5c00: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
5c10: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
5c20: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
5c30: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
5c40: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
5c50: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 ument */.){. sq
5c60: 6c 69 74 65 20 2a 64 62 3b 0a 20 20 69 6e 74 20 lite *db;. int
5c70: 72 63 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d rc;. if( argc!=
5c80: 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 3 ){. Tcl_App
5c90: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
5ca0: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
5cb0: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
5cc0: 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 argv[0], .
5cd0: 20 22 20 44 42 20 53 51 4c 22 2c 20 30 29 3b 0a " DB SQL", 0);.
5ce0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
5cf0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
5d00: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
5d10: 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 erp, argv[1], &d
5d20: 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
5d30: 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 ERROR;. rc = sq
5d40: 6c 69 74 65 33 5f 65 78 65 63 28 64 62 2c 20 61 lite3_exec(db, a
5d50: 72 67 76 5b 32 5d 2c 20 72 65 6d 65 6d 62 65 72 rgv[2], remember
5d60: 44 61 74 61 54 79 70 65 73 2c 20 69 6e 74 65 72 DataTypes, inter
5d70: 70 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63 21 p, 0);. if( rc!
5d80: 3d 30 20 26 26 20 72 63 21 3d 53 51 4c 49 54 45 =0 && rc!=SQLITE
5d90: 5f 41 42 4f 52 54 20 29 7b 0a 20 20 20 20 54 63 _ABORT ){. Tc
5da0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
5db0: 6e 74 65 72 70 2c 20 73 71 6c 69 74 65 33 5f 65 nterp, sqlite3_e
5dc0: 72 72 6f 72 5f 73 74 72 69 6e 67 28 72 63 29 2c rror_string(rc),
5dd0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
5de0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
5df0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
5e00: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
5e10: 20 73 71 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65 sqlite3_compile
5e20: 20 20 44 42 20 20 53 51 4c 20 20 3f 54 41 49 4c DB SQL ?TAIL
5e30: 56 41 52 3f 0a 2a 2a 0a 2a 2a 20 41 74 74 65 6d VAR?.**.** Attem
5e40: 70 74 20 74 6f 20 63 6f 6d 70 69 6c 65 20 61 6e pt to compile an
5e50: 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 2e 20 SQL statement.
5e60: 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 Return a pointe
5e70: 72 20 74 6f 20 74 68 65 20 76 69 72 74 75 61 6c r to the virtual
5e80: 0a 2a 2a 20 6d 61 63 68 69 6e 65 20 75 73 65 64 .** machine used
5e90: 20 74 6f 20 65 78 65 63 75 74 65 20 74 68 61 74 to execute that
5ea0: 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 55 6e 70 statement. Unp
5eb0: 72 6f 63 65 73 73 65 64 20 53 51 4c 20 69 73 20 rocessed SQL is
5ec0: 77 72 69 74 74 65 6e 0a 2a 2a 20 69 6e 74 6f 20 written.** into
5ed0: 54 41 49 4c 56 41 52 2e 0a 2a 2f 0a 73 74 61 74 TAILVAR..*/.stat
5ee0: 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6d 70 ic int test_comp
5ef0: 69 6c 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 ile(. void *Not
5f00: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Used,. Tcl_Inte
5f10: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f rp *interp, /
5f20: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 * The TCL interp
5f30: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b reter that invok
5f40: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ed this command
5f50: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 */. int argc,
5f60: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
5f70: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e umber of argumen
5f80: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 ts */. char **a
5f90: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f rgv /
5fa0: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 * Text of each a
5fb0: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 rgument */.){.
5fc0: 73 71 6c 69 74 65 20 2a 64 62 3b 0a 20 20 73 71 sqlite *db;. sq
5fd0: 6c 69 74 65 5f 76 6d 20 2a 76 6d 3b 0a 20 20 69 lite_vm *vm;. i
5fe0: 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a nt rc;. char *z
5ff0: 45 72 72 20 3d 20 30 3b 0a 20 20 63 6f 6e 73 74 Err = 0;. const
6000: 20 63 68 61 72 20 2a 7a 54 61 69 6c 3b 0a 20 20 char *zTail;.
6010: 63 68 61 72 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 char zBuf[50];.
6020: 20 69 66 28 20 61 72 67 63 21 3d 33 20 26 26 20 if( argc!=3 &&
6030: 61 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 argc!=4 ){. T
6040: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
6050: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
6060: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
6070: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a \"", argv[0], .
6080: 20 20 20 20 20 20 20 22 20 44 42 20 53 51 4c 20 " DB SQL
6090: 54 41 49 4c 56 41 52 22 2c 20 30 29 3b 0a 20 20 TAILVAR", 0);.
60a0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
60b0: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 OR;. }. if( ge
60c0: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
60d0: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 p, argv[1], &db)
60e0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
60f0: 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 ROR;. rc = sqli
6100: 74 65 33 5f 63 6f 6d 70 69 6c 65 28 64 62 2c 20 te3_compile(db,
6110: 61 72 67 76 5b 32 5d 2c 20 61 72 67 63 3d 3d 34 argv[2], argc==4
6120: 20 3f 20 26 7a 54 61 69 6c 20 3a 20 30 2c 20 26 ? &zTail : 0, &
6130: 76 6d 2c 20 26 7a 45 72 72 29 3b 0a 20 20 69 66 vm, &zErr);. if
6140: 28 20 61 72 67 63 3d 3d 34 20 29 20 54 63 6c 5f ( argc==4 ) Tcl_
6150: 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 61 SetVar(interp, a
6160: 72 67 76 5b 33 5d 2c 20 7a 54 61 69 6c 2c 20 30 rgv[3], zTail, 0
6170: 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 );. if( rc ){.
6180: 20 20 20 61 73 73 65 72 74 28 20 76 6d 3d 3d 30 assert( vm==0
6190: 20 29 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 );. sprintf(
61a0: 7a 42 75 66 2c 20 22 28 25 64 29 20 22 2c 20 72 zBuf, "(%d) ", r
61b0: 63 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 c);. Tcl_Appe
61c0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
61d0: 20 7a 42 75 66 2c 20 7a 45 72 72 2c 20 30 29 3b zBuf, zErr, 0);
61e0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 . sqlite3_fre
61f0: 65 6d 65 6d 28 7a 45 72 72 29 3b 0a 20 20 20 20 emem(zErr);.
6200: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6210: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 76 6d 20 29 ;. }. if( vm )
6220: 7b 0a 20 20 20 20 69 66 28 20 6d 61 6b 65 50 6f {. if( makePo
6230: 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 2c interStr(interp,
6240: 20 7a 42 75 66 2c 20 76 6d 29 20 29 20 72 65 74 zBuf, vm) ) ret
6250: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6260: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
6270: 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 ult(interp, zBuf
6280: 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 , 0);. }. retu
6290: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
62a0: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
62b0: 74 65 33 5f 73 74 65 70 20 20 56 4d 20 20 3f 4e te3_step VM ?N
62c0: 56 41 52 3f 20 20 3f 56 41 4c 55 45 56 41 52 3f VAR? ?VALUEVAR?
62d0: 20 20 3f 43 4f 4c 4e 41 4d 45 56 41 52 3f 0a 2a ?COLNAMEVAR?.*
62e0: 2a 0a 2a 2a 20 53 74 65 70 20 61 20 76 69 72 74 *.** Step a virt
62f0: 75 61 6c 20 6d 61 63 68 69 6e 65 2e 20 20 52 65 ual machine. Re
6300: 74 75 72 6e 20 61 20 74 68 65 20 72 65 73 75 6c turn a the resul
6310: 74 20 63 6f 64 65 20 61 73 20 61 20 73 74 72 69 t code as a stri
6320: 6e 67 2e 0a 2a 2a 20 43 6f 6c 75 6d 6e 20 72 65 ng..** Column re
6330: 73 75 6c 74 73 20 61 72 65 20 77 72 69 74 74 65 sults are writte
6340: 6e 20 69 6e 74 6f 20 74 68 72 65 65 20 76 61 72 n into three var
6350: 69 61 62 6c 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 iables..*/.stati
6360: 63 20 69 6e 74 20 74 65 73 74 5f 73 74 65 70 28 c int test_step(
6370: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 . void *NotUsed
6380: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
6390: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 interp, /* Th
63a0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 e TCL interprete
63b0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 r that invoked t
63c0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 his command */.
63d0: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 int argc,
63e0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
63f0: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a r of arguments *
6400: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 /. char **argv
6410: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 /* Te
6420: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d xt of each argum
6430: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 ent */.){. sqli
6440: 74 65 5f 76 6d 20 2a 76 6d 3b 0a 20 20 69 6e 74 te_vm *vm;. int
6450: 20 72 63 2c 20 69 3b 0a 20 20 63 6f 6e 73 74 20 rc, i;. const
6460: 63 68 61 72 20 2a 2a 61 7a 56 61 6c 75 65 20 3d char **azValue =
6470: 20 30 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 0;. const char
6480: 20 2a 2a 61 7a 43 6f 6c 4e 61 6d 65 20 3d 20 30 **azColName = 0
6490: 3b 0a 20 20 69 6e 74 20 4e 20 3d 20 30 3b 0a 20 ;. int N = 0;.
64a0: 20 63 68 61 72 20 2a 7a 52 63 3b 0a 20 20 63 68 char *zRc;. ch
64b0: 61 72 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 69 ar zBuf[50];. i
64c0: 66 28 20 61 72 67 63 3c 32 20 7c 7c 20 61 72 67 f( argc<2 || arg
64d0: 63 3e 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 c>5 ){. Tcl_A
64e0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
64f0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
6500: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
6510: 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 , argv[0], .
6520: 20 20 20 22 20 56 4d 20 4e 56 41 52 20 56 41 4c " VM NVAR VAL
6530: 55 45 56 41 52 20 43 4f 4c 4e 41 4d 45 56 41 52 UEVAR COLNAMEVAR
6540: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
6550: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
6560: 0a 20 20 69 66 28 20 67 65 74 56 6d 50 6f 69 6e . if( getVmPoin
6570: 74 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 ter(interp, argv
6580: 5b 31 5d 2c 20 26 76 6d 29 20 29 20 72 65 74 75 [1], &vm) ) retu
6590: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
65a0: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 73 74 65 rc = sqlite3_ste
65b0: 70 28 76 6d 2c 20 61 72 67 63 3e 3d 33 3f 26 4e p(vm, argc>=3?&N
65c0: 3a 30 2c 20 61 72 67 63 3e 3d 34 3f 26 61 7a 56 :0, argc>=4?&azV
65d0: 61 6c 75 65 3a 30 2c 20 61 72 67 63 3d 3d 35 3f alue:0, argc==5?
65e0: 26 61 7a 43 6f 6c 4e 61 6d 65 3a 30 29 3b 0a 20 &azColName:0);.
65f0: 20 69 66 28 20 61 72 67 63 3e 3d 33 20 29 7b 0a if( argc>=3 ){.
6600: 20 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 sprintf(zBuf
6610: 2c 20 22 25 64 22 2c 20 4e 29 3b 0a 20 20 20 20 , "%d", N);.
6620: 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72 Tcl_SetVar(inter
6630: 70 2c 20 61 72 67 76 5b 32 5d 2c 20 7a 42 75 66 p, argv[2], zBuf
6640: 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 , 0);. }. if(
6650: 61 72 67 63 3e 3d 34 20 29 7b 0a 20 20 20 20 54 argc>=4 ){. T
6660: 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70 cl_SetVar(interp
6670: 2c 20 61 72 67 76 5b 33 5d 2c 20 22 22 2c 20 30 , argv[3], "", 0
6680: 29 3b 0a 20 20 20 20 69 66 28 20 61 7a 56 61 6c );. if( azVal
6690: 75 65 20 29 7b 0a 20 20 20 20 20 20 66 6f 72 28 ue ){. for(
66a0: 69 3d 30 3b 20 69 3c 4e 3b 20 69 2b 2b 29 7b 0a i=0; i<N; i++){.
66b0: 20 20 20 20 20 20 20 20 54 63 6c 5f 53 65 74 56 Tcl_SetV
66c0: 61 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b ar(interp, argv[
66d0: 33 5d 2c 20 61 7a 56 61 6c 75 65 5b 69 5d 20 3f 3], azValue[i] ?
66e0: 20 61 7a 56 61 6c 75 65 5b 69 5d 20 3a 20 22 22 azValue[i] : ""
66f0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 43 ,. TC
6700: 4c 5f 41 50 50 45 4e 44 5f 56 41 4c 55 45 20 7c L_APPEND_VALUE |
6710: 20 54 43 4c 5f 4c 49 53 54 5f 45 4c 45 4d 45 4e TCL_LIST_ELEMEN
6720: 54 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 T);. }.
6730: 7d 0a 20 20 7d 0a 20 20 69 66 28 20 61 72 67 63 }. }. if( argc
6740: 3d 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 ==5 ){. Tcl_S
6750: 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 61 72 etVar(interp, ar
6760: 67 76 5b 34 5d 2c 20 22 22 2c 20 30 29 3b 0a 20 gv[4], "", 0);.
6770: 20 20 20 69 66 28 20 61 7a 43 6f 6c 4e 61 6d 65 if( azColName
6780: 20 29 7b 0a 20 20 20 20 20 20 66 6f 72 28 69 3d ){. for(i=
6790: 30 3b 20 69 3c 4e 2a 32 3b 20 69 2b 2b 29 7b 0a 0; i<N*2; i++){.
67a0: 20 20 20 20 20 20 20 20 54 63 6c 5f 53 65 74 56 Tcl_SetV
67b0: 61 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b ar(interp, argv[
67c0: 34 5d 2c 20 61 7a 43 6f 6c 4e 61 6d 65 5b 69 5d 4], azColName[i]
67d0: 20 3f 20 61 7a 43 6f 6c 4e 61 6d 65 5b 69 5d 20 ? azColName[i]
67e0: 3a 20 22 22 2c 0a 20 20 20 20 20 20 20 20 20 20 : "",.
67f0: 20 20 54 43 4c 5f 41 50 50 45 4e 44 5f 56 41 4c TCL_APPEND_VAL
6800: 55 45 20 7c 20 54 43 4c 5f 4c 49 53 54 5f 45 4c UE | TCL_LIST_EL
6810: 45 4d 45 4e 54 29 3b 0a 20 20 20 20 20 20 7d 0a EMENT);. }.
6820: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 77 69 74 }. }. swit
6830: 63 68 28 20 72 63 20 29 7b 0a 20 20 20 20 63 61 ch( rc ){. ca
6840: 73 65 20 53 51 4c 49 54 45 5f 44 4f 4e 45 3a 20 se SQLITE_DONE:
6850: 20 20 7a 52 63 20 3d 20 22 53 51 4c 49 54 45 5f zRc = "SQLITE_
6860: 44 4f 4e 45 22 3b 20 20 20 20 62 72 65 61 6b 3b DONE"; break;
6870: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
6880: 5f 42 55 53 59 3a 20 20 20 7a 52 63 20 3d 20 22 _BUSY: zRc = "
6890: 53 51 4c 49 54 45 5f 42 55 53 59 22 3b 20 20 20 SQLITE_BUSY";
68a0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
68b0: 20 53 51 4c 49 54 45 5f 52 4f 57 3a 20 20 20 20 SQLITE_ROW:
68c0: 7a 52 63 20 3d 20 22 53 51 4c 49 54 45 5f 52 4f zRc = "SQLITE_RO
68d0: 57 22 3b 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 W"; break;.
68e0: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 45 case SQLITE_E
68f0: 52 52 4f 52 3a 20 20 7a 52 63 20 3d 20 22 53 51 RROR: zRc = "SQ
6900: 4c 49 54 45 5f 45 52 52 4f 52 22 3b 20 20 20 62 LITE_ERROR"; b
6910: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
6920: 51 4c 49 54 45 5f 4d 49 53 55 53 45 3a 20 7a 52 QLITE_MISUSE: zR
6930: 63 20 3d 20 22 53 51 4c 49 54 45 5f 4d 49 53 55 c = "SQLITE_MISU
6940: 53 45 22 3b 20 20 62 72 65 61 6b 3b 0a 20 20 20 SE"; break;.
6950: 20 64 65 66 61 75 6c 74 3a 20 20 20 20 20 20 20 default:
6960: 20 20 20 20 20 7a 52 63 20 3d 20 22 75 6e 6b 6e zRc = "unkn
6970: 6f 77 6e 22 3b 20 20 20 20 20 20 20 20 62 72 65 own"; bre
6980: 61 6b 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 41 70 ak;. }. Tcl_Ap
6990: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
69a0: 70 2c 20 7a 52 63 2c 20 30 29 3b 0a 20 20 72 65 p, zRc, 0);. re
69b0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
69c0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 /*.** Usage: sq
69d0: 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 20 lite3_finalize
69e0: 56 4d 20 0a 2a 2a 0a 2a 2a 20 53 68 75 74 64 6f VM .**.** Shutdo
69f0: 77 6e 20 61 20 76 69 72 74 75 61 6c 20 6d 61 63 wn a virtual mac
6a00: 68 69 6e 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 hine..*/.static
6a10: 69 6e 74 20 74 65 73 74 5f 66 69 6e 61 6c 69 7a int test_finaliz
6a20: 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 e(. void *NotUs
6a30: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
6a40: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
6a50: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
6a60: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
6a70: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
6a80: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
6a90: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
6aa0: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
6ab0: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
6ac0: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
6ad0: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
6ae0: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 ument */.){. sq
6af0: 6c 69 74 65 5f 76 6d 20 2a 76 6d 3b 0a 20 20 69 lite_vm *vm;. i
6b00: 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a nt rc;. char *z
6b10: 45 72 72 4d 73 67 20 3d 20 30 3b 0a 20 20 69 66 ErrMsg = 0;. if
6b20: 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 ( argc!=2 ){.
6b30: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
6b40: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
6b50: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
6b60: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c be \"", argv[0],
6b70: 20 0a 20 20 20 20 20 20 20 22 20 56 4d 5c 22 22 . " VM\""
6b80: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
6b90: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
6ba0: 20 20 69 66 28 20 67 65 74 56 6d 50 6f 69 6e 74 if( getVmPoint
6bb0: 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
6bc0: 31 5d 2c 20 26 76 6d 29 20 29 20 72 65 74 75 72 1], &vm) ) retur
6bd0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 n TCL_ERROR;. r
6be0: 63 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 c = sqlite3_fina
6bf0: 6c 69 7a 65 28 76 6d 2c 20 26 7a 45 72 72 4d 73 lize(vm, &zErrMs
6c00: 67 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 0a g);. if( rc ){.
6c10: 20 20 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 char zBuf[50
6c20: 5d 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 7a ];. sprintf(z
6c30: 42 75 66 2c 20 22 28 25 64 29 20 22 2c 20 72 63 Buf, "(%d) ", rc
6c40: 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e );. Tcl_Appen
6c50: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
6c60: 7a 42 75 66 2c 20 7a 45 72 72 4d 73 67 2c 20 30 zBuf, zErrMsg, 0
6c70: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66 );. sqlite3_f
6c80: 72 65 65 6d 65 6d 28 7a 45 72 72 4d 73 67 29 3b reemem(zErrMsg);
6c90: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
6ca0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 ERROR;. }. ret
6cb0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
6cc0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
6cd0: 69 74 65 33 5f 72 65 73 65 74 20 20 20 56 4d 20 ite3_reset VM
6ce0: 0a 2a 2a 0a 2a 2a 20 52 65 73 65 74 20 61 20 76 .**.** Reset a v
6cf0: 69 72 74 75 61 6c 20 6d 61 63 68 69 6e 65 20 61 irtual machine a
6d00: 6e 64 20 70 72 65 70 61 72 65 20 69 74 20 74 6f nd prepare it to
6d10: 20 62 65 20 72 75 6e 20 61 67 61 69 6e 2e 0a 2a be run again..*
6d20: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
6d30: 74 5f 72 65 73 65 74 28 0a 20 20 76 6f 69 64 20 t_reset(. void
6d40: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f *NotUsed,. Tcl_
6d50: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
6d60: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
6d70: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
6d80: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
6d90: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 and */. int arg
6da0: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
6db0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
6dc0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 uments */. char
6dd0: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 **argv
6de0: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 /* Text of ea
6df0: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 ch argument */.)
6e00: 7b 0a 20 20 73 71 6c 69 74 65 5f 76 6d 20 2a 76 {. sqlite_vm *v
6e10: 6d 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 m;. int rc;. c
6e20: 68 61 72 20 2a 7a 45 72 72 4d 73 67 20 3d 20 30 har *zErrMsg = 0
6e30: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 ;. if( argc!=2
6e40: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
6e50: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
6e60: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
6e70: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
6e80: 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 gv[0], . "
6e90: 20 56 4d 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 VM\"", 0);.
6ea0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6eb0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 56 ;. }. if( getV
6ec0: 6d 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c mPointer(interp,
6ed0: 20 61 72 67 76 5b 31 5d 2c 20 26 76 6d 29 20 29 argv[1], &vm) )
6ee0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
6ef0: 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 R;. rc = sqlite
6f00: 33 5f 72 65 73 65 74 28 76 6d 2c 20 26 7a 45 72 3_reset(vm, &zEr
6f10: 72 4d 73 67 29 3b 0a 20 20 69 66 28 20 72 63 20 rMsg);. if( rc
6f20: 29 7b 0a 20 20 20 20 63 68 61 72 20 7a 42 75 66 ){. char zBuf
6f30: 5b 35 30 5d 3b 0a 20 20 20 20 73 70 72 69 6e 74 [50];. sprint
6f40: 66 28 7a 42 75 66 2c 20 22 28 25 64 29 20 22 2c f(zBuf, "(%d) ",
6f50: 20 72 63 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 rc);. Tcl_Ap
6f60: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
6f70: 70 2c 20 7a 42 75 66 2c 20 7a 45 72 72 4d 73 67 p, zBuf, zErrMsg
6f80: 2c 20 30 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 , 0);. sqlite
6f90: 33 5f 66 72 65 65 6d 65 6d 28 7a 45 72 72 4d 73 3_freemem(zErrMs
6fa0: 67 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 g);. return T
6fb0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
6fc0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
6fd0: 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 ../*.** This is
6fe0: 74 68 65 20 22 73 74 61 74 69 63 5f 62 69 6e 64 the "static_bind
6ff0: 5f 76 61 6c 75 65 22 20 74 68 61 74 20 76 61 72 _value" that var
7000: 69 61 62 6c 65 73 20 61 72 65 20 62 6f 75 6e 64 iables are bound
7010: 20 74 6f 20 77 68 65 6e 0a 2a 2a 20 74 68 65 20 to when.** the
7020: 46 4c 41 47 20 6f 70 74 69 6f 6e 20 6f 66 20 73 FLAG option of s
7030: 71 6c 69 74 65 33 5f 62 69 6e 64 20 69 73 20 22 qlite3_bind is "
7040: 73 74 61 74 69 63 22 0a 2a 2f 0a 73 74 61 74 69 static".*/.stati
7050: 63 20 63 68 61 72 20 2a 73 71 6c 69 74 65 5f 73 c char *sqlite_s
7060: 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 tatic_bind_value
7070: 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 = 0;../*.** Usa
7080: 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 62 69 6e ge: sqlite3_bin
7090: 64 20 20 56 4d 20 20 49 44 58 20 20 56 41 4c 55 d VM IDX VALU
70a0: 45 20 20 46 4c 41 47 53 0a 2a 2a 0a 2a 2a 20 53 E FLAGS.**.** S
70b0: 65 74 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 ets the value of
70c0: 20 74 68 65 20 49 44 58 2d 74 68 20 6f 63 63 75 the IDX-th occu
70d0: 72 61 6e 63 65 20 6f 66 20 22 3f 22 20 69 6e 20 rance of "?" in
70e0: 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 53 51 4c the original SQL
70f0: 0a 2a 2a 20 73 74 72 69 6e 67 2e 20 20 56 41 4c .** string. VAL
7100: 55 45 20 69 73 20 74 68 65 20 6e 65 77 20 76 61 UE is the new va
7110: 6c 75 65 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d lue. If FLAGS==
7120: 22 6e 75 6c 6c 22 20 74 68 65 6e 20 56 41 4c 55 "null" then VALU
7130: 45 20 69 73 0a 2a 2a 20 69 67 6e 6f 72 65 64 20 E is.** ignored
7140: 61 6e 64 20 74 68 65 20 76 61 6c 75 65 20 69 73 and the value is
7150: 20 73 65 74 20 74 6f 20 4e 55 4c 4c 2e 20 20 49 set to NULL. I
7160: 66 20 46 4c 41 47 53 3d 3d 22 73 74 61 74 69 63 f FLAGS=="static
7170: 22 20 74 68 65 6e 0a 2a 2a 20 74 68 65 20 76 61 " then.** the va
7180: 6c 75 65 20 69 73 20 73 65 74 20 74 6f 20 74 68 lue is set to th
7190: 65 20 76 61 6c 75 65 20 6f 66 20 61 20 73 74 61 e value of a sta
71a0: 74 69 63 20 76 61 72 69 61 62 6c 65 20 6e 61 6d tic variable nam
71b0: 65 64 0a 2a 2a 20 22 73 71 6c 69 74 65 5f 73 74 ed.** "sqlite_st
71c0: 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 22 atic_bind_value"
71d0: 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d 22 6e 6f . If FLAGS=="no
71e0: 72 6d 61 6c 22 20 74 68 65 6e 20 61 20 63 6f 70 rmal" then a cop
71f0: 79 0a 2a 2a 20 6f 66 20 74 68 65 20 56 41 4c 55 y.** of the VALU
7200: 45 20 69 73 20 6d 61 64 65 2e 0a 2a 2f 0a 73 74 E is made..*/.st
7210: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 atic int test_bi
7220: 6e 64 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 nd(. void *NotU
7230: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
7240: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
7250: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
7260: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
7270: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
7280: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
7290: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
72a0: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
72b0: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
72c0: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
72d0: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
72e0: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 gument */.){. s
72f0: 71 6c 69 74 65 5f 76 6d 20 2a 76 6d 3b 0a 20 20 qlite_vm *vm;.
7300: 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 69 64 int rc;. int id
7310: 78 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 35 x;. if( argc!=5
7320: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
7330: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
7340: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
7350: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 should be \"", a
7360: 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 rgv[0], .
7370: 22 20 56 4d 20 49 44 58 20 56 41 4c 55 45 20 28 " VM IDX VALUE (
7380: 6e 75 6c 6c 7c 73 74 61 74 69 63 7c 6e 6f 72 6d null|static|norm
7390: 61 6c 29 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 al)\"", 0);.
73a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
73b0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 56 ;. }. if( getV
73c0: 6d 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c mPointer(interp,
73d0: 20 61 72 67 76 5b 31 5d 2c 20 26 76 6d 29 20 29 argv[1], &vm) )
73e0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
73f0: 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 R;. if( Tcl_Get
7400: 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 Int(interp, argv
7410: 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 [2], &idx) ) ret
7420: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
7430: 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 if( strcmp(argv
7440: 5b 34 5d 2c 22 6e 75 6c 6c 22 29 3d 3d 30 20 29 [4],"null")==0 )
7450: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 {. rc = sqlit
7460: 65 33 5f 62 69 6e 64 28 76 6d 2c 20 69 64 78 2c e3_bind(vm, idx,
7470: 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 65 6c 0, 0, 0);. }el
7480: 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 se if( strcmp(ar
7490: 67 76 5b 34 5d 2c 22 73 74 61 74 69 63 22 29 3d gv[4],"static")=
74a0: 3d 30 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 =0 ){. rc = s
74b0: 71 6c 69 74 65 33 5f 62 69 6e 64 28 76 6d 2c 20 qlite3_bind(vm,
74c0: 69 64 78 2c 20 73 71 6c 69 74 65 5f 73 74 61 74 idx, sqlite_stat
74d0: 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 2c 20 2d ic_bind_value, -
74e0: 31 2c 20 30 29 3b 0a 20 20 7d 65 6c 73 65 20 69 1, 0);. }else i
74f0: 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 5b 34 f( strcmp(argv[4
7500: 5d 2c 22 6e 6f 72 6d 61 6c 22 29 3d 3d 30 20 29 ],"normal")==0 )
7510: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 {. rc = sqlit
7520: 65 33 5f 62 69 6e 64 28 76 6d 2c 20 69 64 78 2c e3_bind(vm, idx,
7530: 20 61 72 67 76 5b 33 5d 2c 20 2d 31 2c 20 31 29 argv[3], -1, 1)
7540: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 54 ;. }else{. T
7550: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
7560: 69 6e 74 65 72 70 2c 20 22 34 74 68 20 61 72 67 interp, "4th arg
7570: 75 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 ument should be
7580: 22 0a 20 20 20 20 20 20 20 20 22 5c 22 6e 75 6c ". "\"nul
7590: 6c 5c 22 20 6f 72 20 5c 22 73 74 61 74 69 63 5c l\" or \"static\
75a0: 22 20 6f 72 20 5c 22 6e 6f 72 6d 61 6c 5c 22 22 " or \"normal\""
75b0: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
75c0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
75d0: 20 20 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 if( rc ){.
75e0: 63 68 61 72 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 char zBuf[50];.
75f0: 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c sprintf(zBuf,
7600: 20 22 28 25 64 29 20 22 2c 20 72 63 29 3b 0a 20 "(%d) ", rc);.
7610: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
7620: 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 ult(interp, zBuf
7630: 2c 20 73 71 6c 69 74 65 33 5f 65 72 72 6f 72 5f , sqlite3_error_
7640: 73 74 72 69 6e 67 28 72 63 29 2c 20 30 29 3b 0a string(rc), 0);.
7650: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
7660: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 RROR;. }. retu
7670: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
7680: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 62 72 .** Usage: br
7690: 65 61 6b 70 6f 69 6e 74 0a 2a 2a 0a 2a 2a 20 54 eakpoint.**.** T
76a0: 68 69 73 20 72 6f 75 74 69 6e 65 20 65 78 69 73 his routine exis
76b0: 74 73 20 66 6f 72 20 6f 6e 65 20 70 75 72 70 6f ts for one purpo
76c0: 73 65 20 2d 20 74 6f 20 70 72 6f 76 69 64 65 20 se - to provide
76d0: 61 20 70 6c 61 63 65 20 74 6f 20 70 75 74 20 61 a place to put a
76e0: 0a 2a 2a 20 62 72 65 61 6b 70 6f 69 6e 74 20 77 .** breakpoint w
76f0: 69 74 68 20 47 44 42 20 74 68 61 74 20 63 61 6e ith GDB that can
7700: 20 62 65 20 74 72 69 67 67 65 72 65 64 20 75 73 be triggered us
7710: 69 6e 67 20 54 43 4c 20 63 6f 64 65 2e 20 20 54 ing TCL code. T
7720: 68 65 20 75 73 65 0a 2a 2a 20 66 6f 72 20 74 68 he use.** for th
7730: 69 73 20 69 73 20 77 68 65 6e 20 61 20 70 61 72 is is when a par
7740: 74 69 63 75 6c 61 72 20 74 65 73 74 20 66 61 69 ticular test fai
7750: 6c 73 20 6f 6e 20 28 73 61 79 29 20 74 68 65 20 ls on (say) the
7760: 31 34 38 35 74 68 20 69 74 65 72 61 74 69 6f 6e 1485th iteration
7770: 2e 0a 2a 2a 20 49 6e 20 74 68 65 20 54 43 4c 20 ..** In the TCL
7780: 74 65 73 74 20 73 63 72 69 70 74 2c 20 77 65 20 test script, we
7790: 63 61 6e 20 61 64 64 20 63 6f 64 65 20 6c 69 6b can add code lik
77a0: 65 20 74 68 69 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 e this:.**.**
77b0: 20 20 69 66 20 7b 24 69 3d 3d 31 34 38 35 7d 20 if {$i==1485}
77c0: 62 72 65 61 6b 70 6f 69 6e 74 0a 2a 2a 0a 2a 2a breakpoint.**.**
77d0: 20 54 68 65 6e 20 72 75 6e 20 74 65 73 74 66 69 Then run testfi
77e0: 78 74 75 72 65 20 69 6e 20 74 68 65 20 64 65 62 xture in the deb
77f0: 75 67 67 65 72 20 61 6e 64 20 77 61 69 74 20 66 ugger and wait f
7800: 6f 72 20 74 68 65 20 62 72 65 61 6b 70 6f 69 6e or the breakpoin
7810: 74 20 74 6f 0a 2a 2a 20 66 69 72 65 2e 20 20 54 t to.** fire. T
7820: 68 65 6e 20 61 64 64 69 74 69 6f 6e 61 6c 20 62 hen additional b
7830: 72 65 61 6b 70 6f 69 6e 74 73 20 63 61 6e 20 62 reakpoints can b
7840: 65 20 73 65 74 20 74 6f 20 74 72 61 63 65 20 64 e set to trace d
7850: 6f 77 6e 20 74 68 65 20 62 75 67 2e 0a 2a 2f 0a own the bug..*/.
7860: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
7870: 62 72 65 61 6b 70 6f 69 6e 74 28 0a 20 20 76 6f breakpoint(. vo
7880: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 id *NotUsed,. T
7890: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
78a0: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c p, /* The TCL
78b0: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 interpreter tha
78c0: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 t invoked this c
78d0: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ommand */. int
78e0: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 argc,
78f0: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
7900: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 arguments */. c
7910: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 har **argv
7920: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 /* Text of
7930: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a each argument *
7940: 2f 0a 29 7b 0a 20 20 72 65 74 75 72 6e 20 54 43 /.){. return TC
7950: 4c 5f 4f 4b 3b 20 20 20 20 20 20 20 20 20 2f 2a L_OK; /*
7960: 20 44 6f 20 6e 6f 74 68 69 6e 67 20 2a 2f 0a 7d Do nothing */.}
7970: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 ..static int tes
7980: 74 5f 62 69 6e 64 5f 69 6e 74 33 32 28 0a 20 20 t_bind_int32(.
7990: 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
79a0: 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
79b0: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
79c0: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
79d0: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
79e0: 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
79f0: 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 pStmt;. int idx
7a00: 3b 0a 20 20 69 6e 74 20 76 61 6c 75 65 3b 0a 20 ;. int value;.
7a10: 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 int rc;.. if(
7a20: 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 objc!=4 ){. T
7a30: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
7a40: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
7a50: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
7a60: 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 \"",. Tc
7a70: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
7a80: 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 bj(objv[0], 0),
7a90: 22 20 3c 53 54 4d 54 3e 20 3c 70 61 72 61 6d 20 " <STMT> <param
7aa0: 6e 6f 2e 3e 20 3c 76 61 6c 75 65 3e 22 2c 20 30 no.> <value>", 0
7ab0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
7ac0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
7ad0: 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 if( getStmtPoint
7ae0: 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 er(interp, Tcl_G
7af0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
7b00: 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 ), &pStmt) ) ret
7b10: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
7b20: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
7b30: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
7b40: 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 bjv[2], &idx) )
7b50: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
7b60: 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 ;. if( Tcl_GetI
7b70: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
7b80: 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 75 , objv[3], &valu
7b90: 65 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f e) ) return TCL_
7ba0: 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 ERROR;.. rc = s
7bb0: 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 33 qlite3_bind_int3
7bc0: 32 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 2(pStmt, idx, va
7bd0: 6c 75 65 29 3b 0a 20 20 69 66 28 20 72 63 21 3d lue);. if( rc!=
7be0: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
7bf0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
7c00: 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e R;. }.. return
7c10: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 TCL_OK;.}..stat
7c20: 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 ic int test_bind
7c30: 5f 69 6e 74 36 34 28 0a 20 20 76 6f 69 64 20 2a _int64(. void *
7c40: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
7c50: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
7c60: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
7c70: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
7c80: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
7c90: 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
7ca0: 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 36 . int idx;. i6
7cb0: 34 20 76 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 4 value;. int r
7cc0: 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d c;.. if( objc!=
7cd0: 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 4 ){. Tcl_App
7ce0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
7cf0: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
7d00: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a should be \"",.
7d10: 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 Tcl_GetS
7d20: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
7d30: 76 5b 30 5d 2c 20 30 29 2c 20 22 20 3c 53 54 4d v[0], 0), " <STM
7d40: 54 3e 20 3c 70 61 72 61 6d 20 6e 6f 2e 3e 20 3c T> <param no.> <
7d50: 76 61 6c 75 65 3e 22 2c 20 30 29 3b 0a 20 20 20 value>", 0);.
7d60: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
7d70: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
7d80: 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
7d90: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
7da0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
7db0: 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
7dc0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
7dd0: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
7de0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
7df0: 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
7e00: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
7e10: 28 20 54 63 6c 5f 47 65 74 57 69 64 65 49 6e 74 ( Tcl_GetWideInt
7e20: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
7e30: 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 75 65 29 objv[3], &value)
7e40: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
7e50: 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c ROR;.. rc = sql
7e60: 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 36 34 28 ite3_bind_int64(
7e70: 70 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 pStmt, idx, valu
7e80: 65 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 e);. if( rc!=SQ
7e90: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 LITE_OK ){. r
7ea0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
7eb0: 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 . }.. return T
7ec0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 CL_OK;.}..static
7ed0: 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 64 int test_bind_d
7ee0: 6f 75 62 6c 65 28 0a 20 20 76 6f 69 64 20 2a 20 ouble(. void *
7ef0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
7f00: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
7f10: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
7f20: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
7f30: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
7f40: 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
7f50: 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 64 6f 75 int idx;. dou
7f60: 62 6c 65 20 76 61 6c 75 65 3b 0a 20 20 69 6e 74 ble value;. int
7f70: 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 rc;.. if( objc
7f80: 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=4 ){. Tcl_A
7f90: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7fa0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
7fb0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
7fc0: 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 ,. Tcl_Ge
7fd0: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
7fe0: 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 3c 53 bjv[0], 0), " <S
7ff0: 54 4d 54 3e 20 3c 70 61 72 61 6d 20 6e 6f 2e 3e TMT> <param no.>
8000: 20 3c 76 61 6c 75 65 3e 22 2c 20 30 29 3b 0a 20 <value>", 0);.
8010: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
8020: 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
8030: 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
8040: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
8050: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
8060: 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
8070: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
8080: 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
8090: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
80a0: 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 2], &idx) ) retu
80b0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
80c0: 69 66 28 20 54 63 6c 5f 47 65 74 44 6f 75 62 6c if( Tcl_GetDoubl
80d0: 65 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c eFromObj(interp,
80e0: 20 6f 62 6a 76 5b 33 5d 2c 20 26 76 61 6c 75 65 objv[3], &value
80f0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
8100: 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 RROR;.. rc = sq
8110: 6c 69 74 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c lite3_bind_doubl
8120: 65 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 e(pStmt, idx, va
8130: 6c 75 65 29 3b 0a 20 20 69 66 28 20 72 63 21 3d lue);. if( rc!=
8140: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
8150: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
8160: 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e R;. }.. return
8170: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 TCL_OK;.}..stat
8180: 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 ic int test_bind
8190: 5f 6e 75 6c 6c 28 0a 20 20 76 6f 69 64 20 2a 20 _null(. void *
81a0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
81b0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
81c0: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
81d0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
81e0: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
81f0: 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
8200: 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 6e 74 int idx;. int
8210: 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 rc;.. if( objc
8220: 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=3 ){. Tcl_A
8230: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8240: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
8250: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
8260: 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 ,. Tcl_Ge
8270: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
8280: 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 3c 53 bjv[0], 0), " <S
8290: 54 4d 54 3e 20 3c 70 61 72 61 6d 20 6e 6f 2e 3e TMT> <param no.>
82a0: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
82b0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
82c0: 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 .. if( getStmtP
82d0: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
82e0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
82f0: 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 v[1]), &pStmt) )
8300: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
8310: 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 R;. if( Tcl_Get
8320: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
8330: 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 p, objv[2], &idx
8340: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
8350: 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 RROR;.. rc = sq
8360: 6c 69 74 65 33 5f 62 69 6e 64 5f 6e 75 6c 6c 28 lite3_bind_null(
8370: 70 53 74 6d 74 2c 20 69 64 78 29 3b 0a 20 20 69 pStmt, idx);. i
8380: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b f( rc!=SQLITE_OK
8390: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
83a0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
83b0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
83c0: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 }..static int te
83d0: 73 74 5f 62 69 6e 64 5f 74 65 78 74 28 0a 20 20 st_bind_text(.
83e0: 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
83f0: 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
8400: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
8410: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
8420: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
8430: 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
8440: 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 pStmt;. int idx
8450: 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 ;. int bytes;.
8460: 20 63 68 61 72 20 2a 76 61 6c 75 65 3b 0a 20 20 char *value;.
8470: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
8480: 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 bjc!=5 ){. Tc
8490: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
84a0: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
84b0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
84c0: 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c \"",. Tcl
84d0: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
84e0: 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 j(objv[0], 0), "
84f0: 20 3c 53 54 4d 54 3e 20 3c 70 61 72 61 6d 20 6e <STMT> <param n
8500: 6f 2e 3e 20 3c 76 61 6c 75 65 3e 22 0a 20 20 20 o.> <value>".
8510: 20 20 20 20 20 22 20 3c 62 79 74 65 73 3e 22 2c " <bytes>",
8520: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
8530: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
8540: 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
8550: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
8560: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
8570: 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
8580: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
8590: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
85a0: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
85b0: 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 objv[2], &idx)
85c0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
85d0: 4f 52 3b 0a 20 20 76 61 6c 75 65 20 3d 20 54 63 OR;. value = Tc
85e0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
85f0: 5b 33 5d 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f [3]);. if( Tcl_
8600: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
8610: 74 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 terp, objv[4], &
8620: 62 79 74 65 73 29 20 29 20 72 65 74 75 72 6e 20 bytes) ) return
8630: 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 TCL_ERROR;.. rc
8640: 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f = sqlite3_bind_
8650: 74 65 78 74 28 70 53 74 6d 74 2c 20 69 64 78 2c text(pStmt, idx,
8660: 20 76 61 6c 75 65 2c 20 62 79 74 65 73 2c 20 31 value, bytes, 1
8670: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c );. if( rc!=SQL
8680: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 ITE_OK ){. re
8690: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
86a0: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 }.. return TC
86b0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 L_OK;.}..static
86c0: 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 74 65 int test_bind_te
86d0: 78 74 31 36 28 0a 20 20 76 6f 69 64 20 2a 20 63 xt16(. void * c
86e0: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
86f0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
8700: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
8710: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
8720: 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
8730: 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
8740: 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 6e 74 20 int idx;. int
8750: 62 79 74 65 73 3b 0a 20 20 63 68 61 72 20 2a 76 bytes;. char *v
8760: 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a alue;. int rc;.
8770: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 . if( objc!=5 )
8780: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
8790: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
87a0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
87b0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 ould be \"",.
87c0: 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
87d0: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 ngFromObj(objv[0
87e0: 5d 2c 20 30 29 2c 20 22 20 3c 53 54 4d 54 3e 20 ], 0), " <STMT>
87f0: 3c 70 61 72 61 6d 20 6e 6f 2e 3e 20 3c 76 61 6c <param no.> <val
8800: 75 65 3e 22 0a 20 20 20 20 20 20 20 20 22 20 3c ue>". " <
8810: 62 79 74 65 73 3e 22 2c 20 30 29 3b 0a 20 20 20 bytes>", 0);.
8820: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
8830: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
8840: 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
8850: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
8860: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
8870: 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
8880: 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
8890: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
88a0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
88b0: 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
88c0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 76 61 TCL_ERROR;. va
88d0: 6c 75 65 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 lue = Tcl_GetByt
88e0: 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 eArrayFromObj(ob
88f0: 6a 76 5b 33 5d 2c 20 30 29 3b 0a 20 20 69 66 28 jv[3], 0);. if(
8900: 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
8910: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
8920: 34 5d 2c 20 26 62 79 74 65 73 29 20 29 20 72 65 4], &bytes) ) re
8930: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8940: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
8950: 62 69 6e 64 5f 74 65 78 74 31 36 28 70 53 74 6d bind_text16(pStm
8960: 74 2c 20 69 64 78 2c 20 28 76 6f 69 64 20 2a 29 t, idx, (void *)
8970: 76 61 6c 75 65 2c 20 62 79 74 65 73 2c 20 31 29 value, bytes, 1)
8980: 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 ;. if( rc!=SQLI
8990: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 TE_OK ){. ret
89a0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
89b0: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }.. return TCL
89c0: 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 _OK;.}..static i
89d0: 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f 62 6c 6f nt test_bind_blo
89e0: 62 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 b(. void * clie
89f0: 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
8a00: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
8a10: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
8a20: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
8a30: 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 ].){. sqlite3_s
8a40: 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e tmt *pStmt;. in
8a50: 74 20 69 64 78 3b 0a 20 20 69 6e 74 20 62 79 74 t idx;. int byt
8a60: 65 73 3b 0a 20 20 63 68 61 72 20 2a 76 61 6c 75 es;. char *valu
8a70: 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 e;. int rc;..
8a80: 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 if( objc!=5 ){.
8a90: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
8aa0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
8ab0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
8ac0: 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 d be \"",.
8ad0: 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 Tcl_GetStringF
8ae0: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 romObj(objv[0],
8af0: 30 29 2c 20 22 20 3c 53 54 4d 54 3e 20 3c 70 61 0), " <STMT> <pa
8b00: 72 61 6d 20 6e 6f 2e 3e 20 3c 76 61 6c 75 65 3e ram no.> <value>
8b10: 22 0a 20 20 20 20 20 20 20 20 22 20 3c 62 79 74 ". " <byt
8b20: 65 73 3e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 es>", 0);. re
8b30: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8b40: 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 }.. if( getSt
8b50: 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
8b60: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
8b70: 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 objv[1]), &pStmt
8b80: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
8b90: 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
8ba0: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
8bb0: 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 terp, objv[2], &
8bc0: 69 64 78 29 20 29 20 72 65 74 75 72 6e 20 54 43 idx) ) return TC
8bd0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 76 61 6c 75 65 L_ERROR;. value
8be0: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
8bf0: 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 69 66 28 (objv[3]);. if(
8c00: 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
8c10: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
8c20: 32 5d 2c 20 26 62 79 74 65 73 29 20 29 20 72 65 2], &bytes) ) re
8c30: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8c40: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
8c50: 62 69 6e 64 5f 62 6c 6f 62 28 70 53 74 6d 74 2c bind_blob(pStmt,
8c60: 20 69 64 78 2c 20 76 61 6c 75 65 2c 20 62 79 74 idx, value, byt
8c70: 65 73 2c 20 31 29 3b 0a 20 20 69 66 28 20 72 63 es, 1);. if( rc
8c80: 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 !=SQLITE_OK ){.
8c90: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
8ca0: 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 ROR;. }.. retu
8cb0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
8cc0: 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 .** Usage: sqlit
8cd0: 65 33 5f 65 72 72 63 6f 64 65 20 44 42 0a 2a 2a e3_errcode DB.**
8ce0: 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 73 .** Return the s
8cf0: 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 61 tring representa
8d00: 74 69 6f 6e 20 6f 66 20 74 68 65 20 6d 6f 73 74 tion of the most
8d10: 20 72 65 63 65 6e 74 20 73 71 6c 69 74 65 33 5f recent sqlite3_
8d20: 2a 20 41 50 49 0a 2a 2a 20 65 72 72 6f 72 20 63 * API.** error c
8d30: 6f 64 65 2e 20 65 2e 67 2e 20 22 53 51 4c 49 54 ode. e.g. "SQLIT
8d40: 45 5f 45 52 52 4f 52 22 2e 0a 2a 2f 0a 73 74 61 E_ERROR"..*/.sta
8d50: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 72 72 tic int test_err
8d60: 63 6f 64 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 code(. void * c
8d70: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
8d80: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
8d90: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
8da0: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
8db0: 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
8dc0: 33 20 2a 64 62 3b 0a 0a 20 20 69 66 28 20 6f 62 3 *db;.. if( ob
8dd0: 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c jc!=2 ){. Tcl
8de0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
8df0: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
8e00: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
8e10: 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f "", . Tcl_
8e20: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 GetString(objv[0
8e30: 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 20 ]), " DB", 0);.
8e40: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
8e50: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
8e60: 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
8e70: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
8e80: 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
8e90: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
8ea0: 52 4f 52 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 ROR;. Tcl_SetRe
8eb0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 sult(interp, (ch
8ec0: 61 72 20 2a 29 65 72 72 6f 72 4e 61 6d 65 28 73 ar *)errorName(s
8ed0: 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 28 64 qlite3_errcode(d
8ee0: 62 29 29 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 b)), 0);. retur
8ef0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
8f00: 2a 2a 20 55 73 61 67 65 3a 20 20 20 74 65 73 74 ** Usage: test
8f10: 5f 65 72 72 6d 73 67 20 44 42 0a 2a 2a 0a 2a 2a _errmsg DB.**.**
8f20: 20 52 65 74 75 72 6e 73 20 74 68 65 20 55 54 46 Returns the UTF
8f30: 2d 38 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f -8 representatio
8f40: 6e 20 6f 66 20 74 68 65 20 65 72 72 6f 72 20 6d n of the error m
8f50: 65 73 73 61 67 65 20 73 74 72 69 6e 67 20 66 6f essage string fo
8f60: 72 20 74 68 65 0a 2a 2a 20 6d 6f 73 74 20 72 65 r the.** most re
8f70: 63 65 6e 74 20 73 71 6c 69 74 65 33 5f 2a 20 41 cent sqlite3_* A
8f80: 50 49 20 63 61 6c 6c 2e 0a 2a 2f 0a 73 74 61 74 PI call..*/.stat
8f90: 69 63 20 69 6e 74 20 74 65 73 74 5f 65 72 72 6d ic int test_errm
8fa0: 73 67 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 sg(. void * cli
8fb0: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
8fc0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
8fd0: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
8fe0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
8ff0: 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a [].){. sqlite *
9000: 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 db;. const char
9010: 20 2a 7a 45 72 72 3b 0a 0a 20 20 69 66 28 20 6f *zErr;.. if( o
9020: 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 bjc!=2 ){. Tc
9030: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
9040: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
9050: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
9060: 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
9070: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
9080: 30 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 3b 0a 0]), " DB", 0);.
9090: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
90a0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
90b0: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
90c0: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
90d0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
90e0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
90f0: 52 52 4f 52 3b 0a 0a 20 20 7a 45 72 72 20 3d 20 RROR;.. zErr =
9100: 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 64 sqlite3_errmsg(d
9110: 62 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a b);. Tcl_SetObj
9120: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
9130: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
9140: 7a 45 72 72 2c 20 2d 31 29 29 3b 0a 20 20 72 65 zErr, -1));. re
9150: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
9160: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 74 /*.** Usage: t
9170: 65 73 74 5f 65 72 72 6d 73 67 31 36 20 44 42 0a est_errmsg16 DB.
9180: 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 20 74 68 **.** Returns th
9190: 65 20 55 54 46 2d 31 36 20 72 65 70 72 65 73 65 e UTF-16 represe
91a0: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 65 ntation of the e
91b0: 72 72 6f 72 20 6d 65 73 73 61 67 65 20 73 74 72 rror message str
91c0: 69 6e 67 20 66 6f 72 20 74 68 65 0a 2a 2a 20 6d ing for the.** m
91d0: 6f 73 74 20 72 65 63 65 6e 74 20 73 71 6c 69 74 ost recent sqlit
91e0: 65 33 5f 2a 20 41 50 49 20 63 61 6c 6c 2e 20 54 e3_* API call. T
91f0: 68 69 73 20 69 73 20 61 20 62 79 74 65 20 61 72 his is a byte ar
9200: 72 61 79 20 6f 62 6a 65 63 74 20 61 74 20 74 68 ray object at th
9210: 65 20 54 43 4c 20 0a 2a 2a 20 6c 65 76 65 6c 2c e TCL .** level,
9220: 20 61 6e 64 20 69 74 20 69 6e 63 6c 75 64 65 73 and it includes
9230: 20 74 68 65 20 30 78 30 30 20 30 78 30 30 20 74 the 0x00 0x00 t
9240: 65 72 6d 69 6e 61 74 6f 72 20 62 79 74 65 73 20 erminator bytes
9250: 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 at the end of th
9260: 65 0a 2a 2a 20 55 54 46 2d 31 36 20 73 74 72 69 e.** UTF-16 stri
9270: 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ng..*/.static in
9280: 74 20 74 65 73 74 5f 65 72 72 6d 73 67 31 36 28 t test_errmsg16(
9290: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
92a0: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
92b0: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
92c0: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
92d0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
92e0: 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 3b ){. sqlite *db;
92f0: 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a . const void *z
9300: 45 72 72 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 Err;. int bytes
9310: 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 ;.. if( objc!=2
9320: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
9330: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
9340: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 "wrong # args:
9350: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a should be \"", .
9360: 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 Tcl_GetSt
9370: 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 ring(objv[0]), "
9380: 20 44 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 DB", 0);. re
9390: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
93a0: 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 }. if( getDbP
93b0: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
93c0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
93d0: 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 v[1]), &db) ) re
93e0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
93f0: 0a 20 20 7a 45 72 72 20 3d 20 73 71 6c 69 74 65 . zErr = sqlite
9400: 33 5f 65 72 72 6d 73 67 31 36 28 64 62 29 3b 0a 3_errmsg16(db);.
9410: 20 20 62 79 74 65 73 20 3d 20 73 71 6c 69 74 65 bytes = sqlite
9420: 33 75 74 66 31 36 42 79 74 65 4c 65 6e 28 7a 45 3utf16ByteLen(zE
9430: 72 72 2c 20 2d 31 29 3b 0a 20 20 54 63 6c 5f 53 rr, -1);. Tcl_S
9440: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
9450: 72 70 2c 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 rp, Tcl_NewByteA
9460: 72 72 61 79 4f 62 6a 28 7a 45 72 72 2c 20 62 79 rrayObj(zErr, by
9470: 74 65 73 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 tes));. return
9480: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
9490: 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
94a0: 70 72 65 70 61 72 65 20 44 42 20 73 71 6c 20 62 prepare DB sql b
94b0: 79 74 65 73 20 74 61 69 6c 76 61 72 0a 2a 2a 0a ytes tailvar.**.
94c0: 2a 2a 20 43 6f 6d 70 69 6c 65 20 75 70 20 74 6f ** Compile up to
94d0: 20 3c 62 79 74 65 73 3e 20 62 79 74 65 73 20 6f <bytes> bytes o
94e0: 66 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 53 f the supplied S
94f0: 51 4c 20 73 74 72 69 6e 67 20 3c 73 71 6c 3e 20 QL string <sql>
9500: 75 73 69 6e 67 0a 2a 2a 20 64 61 74 61 62 61 73 using.** databas
9510: 65 20 68 61 6e 64 6c 65 20 3c 44 42 3e 2e 20 54 e handle <DB>. T
9520: 68 65 20 70 61 72 61 6d 65 74 65 72 20 3c 74 61 he parameter <ta
9530: 69 6c 76 61 6c 3e 20 69 73 20 74 68 65 20 6e 61 ilval> is the na
9540: 6d 65 20 6f 66 20 61 20 67 6c 6f 62 61 6c 0a 2a me of a global.*
9550: 2a 20 76 61 72 69 61 62 6c 65 20 74 68 61 74 20 * variable that
9560: 69 73 20 73 65 74 20 74 6f 20 74 68 65 20 75 6e is set to the un
9570: 75 73 65 64 20 70 6f 72 74 69 6f 6e 20 6f 66 20 used portion of
9580: 3c 73 71 6c 3e 20 28 69 66 20 61 6e 79 29 2e 20 <sql> (if any).
9590: 41 0a 2a 2a 20 53 54 4d 54 20 68 61 6e 64 6c 65 A.** STMT handle
95a0: 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2f is returned..*/
95b0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
95c0: 5f 70 72 65 70 61 72 65 28 0a 20 20 76 6f 69 64 _prepare(. void
95d0: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
95e0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
95f0: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
9600: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
9610: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
9620: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 63 6f 6e lite3 *db;. con
9630: 73 74 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 st char *zSql;.
9640: 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 20 63 6f int bytes;. co
9650: 6e 73 74 20 63 68 61 72 20 2a 7a 54 61 69 6c 20 nst char *zTail
9660: 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 = 0;. sqlite3_s
9670: 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 30 3b 0a tmt *pStmt = 0;.
9680: 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 5d 3b char zBuf[50];
9690: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 .. if( objc!=5
96a0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
96b0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
96c0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
96d0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 hould be \"", .
96e0: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
96f0: 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 ing(objv[0]), "
9700: 44 42 20 73 71 6c 20 62 79 74 65 73 20 74 61 69 DB sql bytes tai
9710: 6c 76 61 72 22 2c 20 30 29 3b 0a 20 20 20 20 72 lvar", 0);. r
9720: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
9730: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
9740: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
9750: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
9760: 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 jv[1]), &db) ) r
9770: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
9780: 0a 20 20 7a 53 71 6c 20 3d 20 54 63 6c 5f 47 65 . zSql = Tcl_Ge
9790: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 tString(objv[2])
97a0: 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 ;. if( Tcl_GetI
97b0: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
97c0: 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 62 79 74 65 , objv[3], &byte
97d0: 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f s) ) return TCL_
97e0: 45 52 52 4f 52 3b 0a 0a 20 20 69 66 28 20 53 51 ERROR;.. if( SQ
97f0: 4c 49 54 45 5f 4f 4b 21 3d 73 71 6c 69 74 65 33 LITE_OK!=sqlite3
9800: 5f 70 72 65 70 61 72 65 28 64 62 2c 20 7a 53 71 _prepare(db, zSq
9810: 6c 2c 20 62 79 74 65 73 2c 20 26 70 53 74 6d 74 l, bytes, &pStmt
9820: 2c 20 26 7a 54 61 69 6c 29 20 29 7b 0a 20 20 20 , &zTail) ){.
9830: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
9840: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 7a 54 R;. }.. if( zT
9850: 61 69 6c 20 29 7b 0a 20 20 20 20 69 66 28 20 62 ail ){. if( b
9860: 79 74 65 73 3e 3d 30 20 29 7b 0a 20 20 20 20 20 ytes>=0 ){.
9870: 20 62 79 74 65 73 20 3d 20 62 79 74 65 73 20 2d bytes = bytes -
9880: 20 28 7a 54 61 69 6c 2d 7a 53 71 6c 29 3b 0a 20 (zTail-zSql);.
9890: 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 4f 62 6a }. Tcl_Obj
98a0: 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 SetVar2(interp,
98b0: 6f 62 6a 76 5b 34 5d 2c 20 30 2c 20 54 63 6c 5f objv[4], 0, Tcl_
98c0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 54 61 NewStringObj(zTa
98d0: 69 6c 2c 20 62 79 74 65 73 29 2c 20 30 29 3b 0a il, bytes), 0);.
98e0: 20 20 7d 0a 0a 20 20 69 66 28 20 6d 61 6b 65 50 }.. if( makeP
98f0: 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 ointerStr(interp
9900: 2c 20 7a 42 75 66 2c 20 70 53 74 6d 74 29 20 29 , zBuf, pStmt) )
9910: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
9920: 52 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 R;. Tcl_AppendR
9930: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 esult(interp, zB
9940: 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e uf, 0);. return
9950: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
9960: 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
9970: 5f 70 72 65 70 61 72 65 20 44 42 20 73 71 6c 20 _prepare DB sql
9980: 62 79 74 65 73 20 74 61 69 6c 76 61 72 0a 2a 2a bytes tailvar.**
9990: 0a 2a 2a 20 43 6f 6d 70 69 6c 65 20 75 70 20 74 .** Compile up t
99a0: 6f 20 3c 62 79 74 65 73 3e 20 62 79 74 65 73 20 o <bytes> bytes
99b0: 6f 66 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 of the supplied
99c0: 53 51 4c 20 73 74 72 69 6e 67 20 3c 73 71 6c 3e SQL string <sql>
99d0: 20 75 73 69 6e 67 0a 2a 2a 20 64 61 74 61 62 61 using.** databa
99e0: 73 65 20 68 61 6e 64 6c 65 20 3c 44 42 3e 2e 20 se handle <DB>.
99f0: 54 68 65 20 70 61 72 61 6d 65 74 65 72 20 3c 74 The parameter <t
9a00: 61 69 6c 76 61 6c 3e 20 69 73 20 74 68 65 20 6e ailval> is the n
9a10: 61 6d 65 20 6f 66 20 61 20 67 6c 6f 62 61 6c 0a ame of a global.
9a20: 2a 2a 20 76 61 72 69 61 62 6c 65 20 74 68 61 74 ** variable that
9a30: 20 69 73 20 73 65 74 20 74 6f 20 74 68 65 20 75 is set to the u
9a40: 6e 75 73 65 64 20 70 6f 72 74 69 6f 6e 20 6f 66 nused portion of
9a50: 20 3c 73 71 6c 3e 20 28 69 66 20 61 6e 79 29 2e <sql> (if any).
9a60: 20 41 0a 2a 2a 20 53 54 4d 54 20 68 61 6e 64 6c A.** STMT handl
9a70: 65 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a e is returned..*
9a80: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
9a90: 74 5f 70 72 65 70 61 72 65 31 36 28 0a 20 20 76 t_prepare16(. v
9aa0: 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
9ab0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
9ac0: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
9ad0: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
9ae0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
9af0: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
9b00: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 53 71 6c const void *zSql
9b10: 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a ;. const void *
9b20: 7a 54 61 69 6c 20 3d 20 30 3b 0a 20 20 54 63 6c zTail = 0;. Tcl
9b30: 5f 4f 62 6a 20 2a 70 54 61 69 6c 20 3d 20 30 3b _Obj *pTail = 0;
9b40: 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
9b50: 2a 70 53 74 6d 74 20 3d 20 30 3b 0a 20 20 63 68 *pStmt = 0;. ch
9b60: 61 72 20 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 69 ar zBuf[50];. i
9b70: 6e 74 20 62 79 74 65 73 3b 20 20 20 20 20 20 20 nt bytes;
9b80: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 /* The
9b90: 69 6e 74 65 67 65 72 20 73 70 65 63 69 66 69 65 integer specifie
9ba0: 64 20 61 73 20 61 72 67 20 33 20 2a 2f 0a 20 20 d as arg 3 */.
9bb0: 69 6e 74 20 6f 62 6a 6c 65 6e 3b 20 20 20 20 20 int objlen;
9bc0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 /* The
9bd0: 20 62 79 74 65 2d 61 72 72 61 79 20 6c 65 6e 67 byte-array leng
9be0: 74 68 20 6f 66 20 61 72 67 20 32 20 2a 2f 0a 0a th of arg 2 */..
9bf0: 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 7b if( objc!=5 ){
9c00: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
9c10: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
9c20: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
9c30: 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 uld be \"", .
9c40: 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
9c50: 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 g(objv[0]), " DB
9c60: 20 73 71 6c 20 62 79 74 65 73 20 74 61 69 6c 76 sql bytes tailv
9c70: 61 72 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 ar", 0);. ret
9c80: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
9c90: 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
9ca0: 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
9cb0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
9cc0: 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 [1]), &db) ) ret
9cd0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
9ce0: 20 7a 53 71 6c 20 3d 20 54 63 6c 5f 47 65 74 42 zSql = Tcl_GetB
9cf0: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 yteArrayFromObj(
9d00: 6f 62 6a 76 5b 32 5d 2c 20 26 6f 62 6a 6c 65 6e objv[2], &objlen
9d10: 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 );. if( Tcl_Get
9d20: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
9d30: 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 62 79 74 p, objv[3], &byt
9d40: 65 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c es) ) return TCL
9d50: 5f 45 52 52 4f 52 3b 0a 0a 20 20 69 66 28 20 53 _ERROR;.. if( S
9d60: 51 4c 49 54 45 5f 4f 4b 21 3d 73 71 6c 69 74 65 QLITE_OK!=sqlite
9d70: 33 5f 70 72 65 70 61 72 65 31 36 28 64 62 2c 20 3_prepare16(db,
9d80: 7a 53 71 6c 2c 20 62 79 74 65 73 2c 20 26 70 53 zSql, bytes, &pS
9d90: 74 6d 74 2c 20 26 7a 54 61 69 6c 29 20 29 7b 0a tmt, &zTail) ){.
9da0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
9db0: 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 RROR;. }.. if(
9dc0: 20 7a 54 61 69 6c 20 29 7b 0a 20 20 20 20 6f 62 zTail ){. ob
9dd0: 6a 6c 65 6e 20 3d 20 6f 62 6a 6c 65 6e 20 2d 20 jlen = objlen -
9de0: 28 28 75 38 20 2a 29 7a 54 61 69 6c 2d 28 75 38 ((u8 *)zTail-(u8
9df0: 20 2a 29 7a 53 71 6c 29 3b 0a 20 20 7d 65 6c 73 *)zSql);. }els
9e00: 65 7b 0a 20 20 20 20 6f 62 6a 6c 65 6e 20 3d 20 e{. objlen =
9e10: 30 3b 0a 20 20 7d 0a 20 20 70 54 61 69 6c 20 3d 0;. }. pTail =
9e20: 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 Tcl_NewByteArra
9e30: 79 4f 62 6a 28 28 75 38 20 2a 29 7a 54 61 69 6c yObj((u8 *)zTail
9e40: 2c 20 6f 62 6a 6c 65 6e 29 3b 0a 20 20 54 63 6c , objlen);. Tcl
9e50: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 54 _IncrRefCount(pT
9e60: 61 69 6c 29 3b 0a 20 20 54 63 6c 5f 4f 62 6a 53 ail);. Tcl_ObjS
9e70: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 6f etVar2(interp, o
9e80: 62 6a 76 5b 34 5d 2c 20 30 2c 20 70 54 61 69 6c bjv[4], 0, pTail
9e90: 2c 20 30 29 3b 0a 20 20 2f 2f 20 54 63 6c 5f 44 , 0);. // Tcl_D
9ea0: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 54 61 69 ecrRefCount(pTai
9eb0: 6c 29 3b 0a 0a 20 20 69 66 28 20 6d 61 6b 65 50 l);.. if( makeP
9ec0: 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 ointerStr(interp
9ed0: 2c 20 7a 42 75 66 2c 20 70 53 74 6d 74 29 20 29 , zBuf, pStmt) )
9ee0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
9ef0: 52 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 R;. Tcl_AppendR
9f00: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 esult(interp, zB
9f10: 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e uf, 0);. return
9f20: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
9f30: 2a 20 52 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 * Register comma
9f40: 6e 64 73 20 77 69 74 68 20 74 68 65 20 54 43 4c nds with the TCL
9f50: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f interpreter..*/
9f60: 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 31 .int Sqlitetest1
9f70: 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 _Init(Tcl_Interp
9f80: 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 65 78 74 *interp){. ext
9f90: 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
9fa0: 73 65 61 72 63 68 5f 63 6f 75 6e 74 3b 0a 20 20 search_count;.
9fb0: 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 extern int sqlit
9fc0: 65 33 5f 69 6e 74 65 72 72 75 70 74 5f 63 6f 75 e3_interrupt_cou
9fd0: 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 nt;. extern int
9fe0: 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 66 69 sqlite3_open_fi
9ff0: 6c 65 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 65 le_count;. exte
a000: 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 63 rn int sqlite3_c
a010: 75 72 72 65 6e 74 5f 74 69 6d 65 3b 0a 20 20 73 urrent_time;. s
a020: 74 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20 tatic struct {.
a030: 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b char *zName;
a040: 0a 20 20 20 20 20 54 63 6c 5f 43 6d 64 50 72 6f . Tcl_CmdPro
a050: 63 20 2a 78 50 72 6f 63 3b 0a 20 20 7d 20 61 43 c *xProc;. } aC
a060: 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 7b 20 md[] = {. {
a070: 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 "sqlite3_mprintf
a080: 5f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20 20 _int",
a090: 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
a0a0: 29 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 )sqlite3_mprintf
a0b0: 5f 69 6e 74 20 20 20 20 7d 2c 0a 20 20 20 20 20 _int },.
a0c0: 7b 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e { "sqlite3_mprin
a0d0: 74 66 5f 73 74 72 22 2c 20 20 20 20 20 20 20 20 tf_str",
a0e0: 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f (Tcl_CmdPro
a0f0: 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e c*)sqlite3_mprin
a100: 74 66 5f 73 74 72 20 20 20 20 7d 2c 0a 20 20 20 tf_str },.
a110: 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 { "sqlite3_mpr
a120: 69 6e 74 66 5f 64 6f 75 62 6c 65 22 2c 20 20 20 intf_double",
a130: 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 (Tcl_CmdP
a140: 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d 70 72 roc*)sqlite3_mpr
a150: 69 6e 74 66 5f 64 6f 75 62 6c 65 20 7d 2c 0a 20 intf_double },.
a160: 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
a170: 70 72 69 6e 74 66 5f 73 63 61 6c 65 64 22 2c 20 printf_scaled",
a180: 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d (Tcl_Cm
a190: 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 6d dProc*)sqlite3_m
a1a0: 70 72 69 6e 74 66 5f 73 63 61 6c 65 64 20 7d 2c printf_scaled },
a1b0: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
a1c0: 5f 6d 70 72 69 6e 74 66 5f 7a 5f 74 65 73 74 22 _mprintf_z_test"
a1d0: 2c 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f , (Tcl_
a1e0: 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 6d 70 CmdProc*)test_mp
a1f0: 72 69 6e 74 66 5f 7a 20 20 20 20 20 20 20 20 7d rintf_z }
a200: 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
a210: 33 5f 6f 70 65 6e 22 2c 20 20 20 20 20 20 20 20 3_open",
a220: 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c (Tcl
a230: 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 _CmdProc*)sqlite
a240: 5f 74 65 73 74 5f 6f 70 65 6e 20 20 20 20 20 20 _test_open
a250: 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
a260: 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 e3_last_insert_r
a270: 6f 77 69 64 22 2c 20 20 20 20 20 20 20 28 54 63 owid", (Tc
a280: 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
a290: 6c 61 73 74 5f 72 6f 77 69 64 20 20 20 20 20 20 last_rowid
a2a0: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
a2b0: 74 65 33 5f 65 78 65 63 5f 70 72 69 6e 74 66 22 te3_exec_printf"
a2c0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 , (T
a2d0: 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 cl_CmdProc*)test
a2e0: 5f 65 78 65 63 5f 70 72 69 6e 74 66 20 20 20 20 _exec_printf
a2f0: 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c },. { "sql
a300: 69 74 65 33 5f 67 65 74 5f 74 61 62 6c 65 5f 70 ite3_get_table_p
a310: 72 69 6e 74 66 22 2c 20 20 20 20 20 20 20 20 28 rintf", (
a320: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 Tcl_CmdProc*)tes
a330: 74 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e t_get_table_prin
a340: 74 66 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 tf },. { "sq
a350: 6c 69 74 65 33 5f 63 6c 6f 73 65 22 2c 20 20 20 lite3_close",
a360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
a370: 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 (Tcl_CmdProc*)sq
a380: 6c 69 74 65 5f 74 65 73 74 5f 63 6c 6f 73 65 20 lite_test_close
a390: 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
a3a0: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
a3b0: 6e 63 74 69 6f 6e 22 2c 20 20 20 20 20 20 20 20 nction",
a3c0: 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 (Tcl_CmdProc*)t
a3d0: 65 73 74 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 est_create_funct
a3e0: 69 6f 6e 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ion },. { "
a3f0: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 61 sqlite3_create_a
a400: 67 67 72 65 67 61 74 65 22 2c 20 20 20 20 20 20 ggregate",
a410: 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
a420: 74 65 73 74 5f 63 72 65 61 74 65 5f 61 67 67 72 test_create_aggr
a430: 65 67 61 74 65 20 7d 2c 0a 20 20 20 20 20 7b 20 egate },. {
a440: 22 73 71 6c 69 74 65 5f 72 65 67 69 73 74 65 72 "sqlite_register
a450: 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 22 2c _test_function",
a460: 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
a470: 74 65 73 74 5f 72 65 67 69 73 74 65 72 5f 66 75 test_register_fu
a480: 6e 63 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 nc },. {
a490: 22 73 71 6c 69 74 65 5f 61 62 6f 72 74 22 2c 20 "sqlite_abort",
a4a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
a4b0: 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
a4c0: 73 71 6c 69 74 65 5f 61 62 6f 72 74 20 20 20 20 sqlite_abort
a4d0: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 },. {
a4e0: 22 73 71 6c 69 74 65 5f 64 61 74 61 74 79 70 65 "sqlite_datatype
a4f0: 73 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 s",
a500: 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
a510: 73 71 6c 69 74 65 5f 64 61 74 61 74 79 70 65 73 sqlite_datatypes
a520: 20 20 20 20 20 20 7d 2c 0a 23 69 66 64 65 66 20 },.#ifdef
a530: 4d 45 4d 4f 52 59 5f 44 45 42 55 47 0a 20 20 20 MEMORY_DEBUG.
a540: 20 20 7b 20 22 73 71 6c 69 74 65 5f 6d 61 6c 6c { "sqlite_mall
a550: 6f 63 5f 66 61 69 6c 22 2c 20 20 20 20 20 20 20 oc_fail",
a560: 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
a570: 6f 63 2a 29 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f oc*)sqlite_mallo
a580: 63 5f 66 61 69 6c 20 20 20 20 7d 2c 0a 20 20 20 c_fail },.
a590: 20 20 7b 20 22 73 71 6c 69 74 65 5f 6d 61 6c 6c { "sqlite_mall
a5a0: 6f 63 5f 73 74 61 74 22 2c 20 20 20 20 20 20 20 oc_stat",
a5b0: 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 (Tcl_CmdPr
a5c0: 6f 63 2a 29 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f oc*)sqlite_mallo
a5d0: 63 5f 73 74 61 74 20 20 20 20 7d 2c 0a 23 65 6e c_stat },.#en
a5e0: 64 69 66 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 dif. { "sqli
a5f0: 74 65 5f 63 6f 6d 70 69 6c 65 22 2c 20 20 20 20 te_compile",
a600: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
a610: 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
a620: 63 6f 6d 70 69 6c 65 20 20 20 20 20 20 20 20 20 compile
a630: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
a640: 74 65 5f 73 74 65 70 22 2c 20 20 20 20 20 20 20 te_step",
a650: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
a660: 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
a670: 73 74 65 70 20 20 20 20 20 20 20 20 20 20 20 20 step
a680: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
a690: 74 65 5f 66 69 6e 61 6c 69 7a 65 22 2c 20 20 20 te_finalize",
a6a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
a6b0: 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
a6c0: 66 69 6e 61 6c 69 7a 65 20 20 20 20 20 20 20 20 finalize
a6d0: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
a6e0: 74 65 5f 62 69 6e 64 22 2c 20 20 20 20 20 20 20 te_bind",
a6f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
a700: 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
a710: 62 69 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 bind
a720: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
a730: 74 65 5f 72 65 73 65 74 22 2c 20 20 20 20 20 20 te_reset",
a740: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
a750: 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
a760: 72 65 73 65 74 20 20 20 20 20 20 20 20 20 20 20 reset
a770: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 62 72 65 61 },. { "brea
a780: 6b 70 6f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 kpoint",
a790: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
a7a0: 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
a7b0: 62 72 65 61 6b 70 6f 69 6e 74 20 20 20 20 20 20 breakpoint
a7c0: 20 7d 2c 0a 20 20 7d 3b 0a 20 20 73 74 61 74 69 },. };. stati
a7d0: 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20 20 20 c struct {.
a7e0: 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 char *zName;.
a7f0: 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 Tcl_ObjCmdProc
a800: 20 2a 78 50 72 6f 63 3b 0a 20 20 7d 20 61 4f 62 *xProc;. } aOb
a810: 6a 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 jCmd[] = {.
a820: 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f { "sqlite3_bind_
a830: 69 6e 74 33 32 22 2c 20 20 20 20 20 20 20 20 20 int32",
a840: 20 20 20 28 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 (Tcl_ObjCmdPr
a850: 6f 63 2a 29 74 65 73 74 5f 62 69 6e 64 5f 69 6e oc*)test_bind_in
a860: 74 33 32 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b t32 },. {
a870: 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 "sqlite3_bind_i
a880: 6e 74 36 34 22 2c 20 20 20 20 20 20 20 20 20 20 nt64",
a890: 20 20 28 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f (Tcl_ObjCmdPro
a8a0: 63 2a 29 74 65 73 74 5f 62 69 6e 64 5f 69 6e 74 c*)test_bind_int
a8b0: 36 34 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 64 },. {
a8c0: 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 64 6f "sqlite3_bind_do
a8d0: 75 62 6c 65 22 2c 20 20 20 20 20 20 20 20 20 20 uble",
a8e0: 20 28 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 (Tcl_ObjCmdProc
a8f0: 2a 29 74 65 73 74 5f 62 69 6e 64 5f 64 6f 75 62 *)test_bind_doub
a900: 6c 65 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 le },. { "
a910: 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 6e 75 6c sqlite3_bind_nul
a920: 6c 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 l",
a930: 28 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a (Tcl_ObjCmdProc*
a940: 29 74 65 73 74 5f 62 69 6e 64 5f 6e 75 6c 6c 20 )test_bind_null
a950: 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
a960: 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 qlite3_bind_text
a970: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ", (
a980: 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 Tcl_ObjCmdProc*)
a990: 74 65 73 74 5f 62 69 6e 64 5f 74 65 78 74 20 20 test_bind_text
a9a0: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 },. { "sq
a9b0: 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 31 lite3_bind_text1
a9c0: 36 22 2c 20 20 20 20 20 20 20 20 20 20 20 28 54 6", (T
a9d0: 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 74 cl_ObjCmdProc*)t
a9e0: 65 73 74 5f 62 69 6e 64 5f 74 65 78 74 31 36 20 est_bind_text16
a9f0: 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c },. { "sql
aa00: 69 74 65 33 5f 62 69 6e 64 5f 62 6c 6f 62 22 2c ite3_bind_blob",
aa10: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
aa20: 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 74 65 l_ObjCmdProc*)te
aa30: 73 74 5f 62 69 6e 64 5f 62 6c 6f 62 20 20 20 20 st_bind_blob
aa40: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
aa50: 74 65 33 5f 65 72 72 63 6f 64 65 22 2c 20 20 20 te3_errcode",
aa60: 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c (Tcl
aa70: 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 74 65 73 _ObjCmdProc*)tes
aa80: 74 5f 65 72 72 63 6f 64 65 20 20 20 20 20 20 20 t_errcode
aa90: 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
aaa0: 65 33 5f 65 72 72 6d 73 67 22 2c 20 20 20 20 20 e3_errmsg",
aab0: 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f (Tcl_
aac0: 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 ObjCmdProc*)test
aad0: 5f 65 72 72 6d 73 67 20 20 20 20 20 20 20 20 7d _errmsg }
aae0: 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
aaf0: 33 5f 65 72 72 6d 73 67 31 36 22 2c 20 20 20 20 3_errmsg16",
ab00: 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 4f (Tcl_O
ab10: 62 6a 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f bjCmdProc*)test_
ab20: 65 72 72 6d 73 67 31 36 20 20 20 20 20 20 7d 2c errmsg16 },
ab30: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
ab40: 5f 70 72 65 70 61 72 65 22 2c 20 20 20 20 20 20 _prepare",
ab50: 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 4f 62 (Tcl_Ob
ab60: 6a 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 70 jCmdProc*)test_p
ab70: 72 65 70 61 72 65 20 20 20 20 20 20 20 7d 2c 0a repare },.
ab80: 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
ab90: 70 72 65 70 61 72 65 31 36 22 2c 20 20 20 20 20 prepare16",
aba0: 20 20 20 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a (Tcl_Obj
abb0: 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 70 72 CmdProc*)test_pr
abc0: 65 70 61 72 65 31 36 20 20 20 20 20 7d 2c 0a 20 epare16 },.
abd0: 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 };. int i;..
abe0: 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f for(i=0; i<sizeo
abf0: 66 28 61 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61 f(aCmd)/sizeof(a
ac00: 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 Cmd[0]); i++){.
ac10: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d Tcl_CreateCom
ac20: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61 43 6d mand(interp, aCm
ac30: 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 43 6d 64 d[i].zName, aCmd
ac40: 5b 69 5d 2e 78 50 72 6f 63 2c 20 30 2c 20 30 29 [i].xProc, 0, 0)
ac50: 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 3b ;. }. for(i=0;
ac60: 20 69 3c 73 69 7a 65 6f 66 28 61 4f 62 6a 43 6d i<sizeof(aObjCm
ac70: 64 29 2f 73 69 7a 65 6f 66 28 61 4f 62 6a 43 6d d)/sizeof(aObjCm
ac80: 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 d[0]); i++){.
ac90: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
aca0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61 4f mmand(interp, aO
acb0: 62 6a 43 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 bjCmd[i].zName,
acc0: 61 4f 62 6a 43 6d 64 5b 69 5d 2e 78 50 72 6f 63 aObjCmd[i].xProc
acd0: 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 54 , 0, 0);. }. T
ace0: 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 cl_LinkVar(inter
acf0: 70 2c 20 22 73 71 6c 69 74 65 5f 73 65 61 72 63 p, "sqlite_searc
ad00: 68 5f 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 h_count", .
ad10: 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 (char*)&sqlite3
ad20: 5f 73 65 61 72 63 68 5f 63 6f 75 6e 74 2c 20 54 _search_count, T
ad30: 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 CL_LINK_INT);.
ad40: 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 Tcl_LinkVar(inte
ad50: 72 70 2c 20 22 73 71 6c 69 74 65 5f 69 6e 74 65 rp, "sqlite_inte
ad60: 72 72 75 70 74 5f 63 6f 75 6e 74 22 2c 20 0a 20 rrupt_count", .
ad70: 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c (char*)&sql
ad80: 69 74 65 33 5f 69 6e 74 65 72 72 75 70 74 5f 63 ite3_interrupt_c
ad90: 6f 75 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 ount, TCL_LINK_I
ada0: 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 NT);. Tcl_LinkV
adb0: 61 72 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 ar(interp, "sqli
adc0: 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 te_open_file_cou
add0: 6e 74 22 2c 20 0a 20 20 20 20 20 20 28 63 68 61 nt", . (cha
ade0: 72 2a 29 26 73 71 6c 69 74 65 33 5f 6f 70 65 6e r*)&sqlite3_open
adf0: 5f 66 69 6c 65 5f 63 6f 75 6e 74 2c 20 54 43 4c _file_count, TCL
ae00: 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 _LINK_INT);. Tc
ae10: 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 l_LinkVar(interp
ae20: 2c 20 22 73 71 6c 69 74 65 5f 63 75 72 72 65 6e , "sqlite_curren
ae30: 74 5f 74 69 6d 65 22 2c 20 0a 20 20 20 20 20 20 t_time", .
ae40: 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 5f (char*)&sqlite3_
ae50: 63 75 72 72 65 6e 74 5f 74 69 6d 65 2c 20 54 43 current_time, TC
ae60: 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 L_LINK_INT);. T
ae70: 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 cl_LinkVar(inter
ae80: 70 2c 20 22 73 71 6c 69 74 65 5f 73 74 61 74 69 p, "sqlite_stati
ae90: 63 5f 62 69 6e 64 5f 76 61 6c 75 65 22 2c 0a 20 c_bind_value",.
aea0: 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c (char*)&sql
aeb0: 69 74 65 5f 73 74 61 74 69 63 5f 62 69 6e 64 5f ite_static_bind_
aec0: 76 61 6c 75 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f value, TCL_LINK_
aed0: 53 54 52 49 4e 47 29 3b 0a 20 20 72 65 74 75 72 STRING);. retur
aee0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a n TCL_OK;.}...