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 36 36 20 32 30 30 34 2f 30 35 2f ,v 1.66 2004/05/
0240: 33 31 20 31 38 3a 35 31 3a 35 38 20 64 72 68 20 31 18:51:58 drh
0250: 45 78 70 20 24 0a 2a 2f 0a 23 69 6e 63 6c 75 64 Exp $.*/.#includ
0260: 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a e "sqliteInt.h".
0270: 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e 68 22 #include "tcl.h"
0280: 0a 23 69 6e 63 6c 75 64 65 20 22 6f 73 2e 68 22 .#include "os.h"
0290: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 .#include <stdli
02a0: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 b.h>.#include <s
02b0: 74 72 69 6e 67 2e 68 3e 0a 0a 23 69 66 20 4f 53 tring.h>..#if OS
02c0: 5f 57 49 4e 0a 23 20 64 65 66 69 6e 65 20 50 54 _WIN.# define PT
02d0: 52 5f 46 4d 54 20 22 25 78 22 0a 23 65 6c 73 65 R_FMT "%x".#else
02e0: 0a 23 20 64 65 66 69 6e 65 20 50 54 52 5f 46 4d .# define PTR_FM
02f0: 54 20 22 25 70 22 0a 23 65 6e 64 69 66 0a 0a 69 T "%p".#endif..i
0300: 6e 74 20 73 71 6c 69 74 65 33 5f 65 78 65 63 5f nt sqlite3_exec_
0310: 70 72 69 6e 74 66 28 0a 20 20 73 71 6c 69 74 65 printf(. sqlite
0320: 20 2a 64 62 2c 20 20 20 20 20 20 20 20 20 20 20 *db,
0330: 20 20 20 20 20 20 20 20 2f 2a 20 41 6e 20 6f 70 /* An op
0340: 65 6e 20 64 61 74 61 62 61 73 65 20 2a 2f 0a 20 en database */.
0350: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 71 6c const char *sql
0360: 46 6f 72 6d 61 74 2c 20 20 20 20 20 20 20 20 2f Format, /
0370: 2a 20 70 72 69 6e 74 66 2d 73 74 79 6c 65 20 66 * printf-style f
0380: 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 66 6f 72 ormat string for
0390: 20 74 68 65 20 53 51 4c 20 2a 2f 0a 20 20 73 71 the SQL */. sq
03a0: 6c 69 74 65 5f 63 61 6c 6c 62 61 63 6b 20 78 43 lite_callback xC
03b0: 61 6c 6c 62 61 63 6b 2c 20 20 20 20 2f 2a 20 43 allback, /* C
03c0: 61 6c 6c 62 61 63 6b 20 66 75 6e 63 74 69 6f 6e allback function
03d0: 20 2a 2f 0a 20 20 76 6f 69 64 20 2a 70 41 72 67 */. void *pArg
03e0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
03f0: 20 20 20 20 2f 2a 20 31 73 74 20 61 72 67 75 6d /* 1st argum
0400: 65 6e 74 20 74 6f 20 63 61 6c 6c 62 61 63 6b 20 ent to callback
0410: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 63 68 function */. ch
0420: 61 72 20 2a 2a 65 72 72 6d 73 67 2c 20 20 20 20 ar **errmsg,
0430: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 45 /* E
0440: 72 72 6f 72 20 6d 73 67 20 77 72 69 74 74 65 6e rror msg written
0450: 20 68 65 72 65 20 2a 2f 0a 20 20 2e 2e 2e 20 20 here */. ...
0460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0470: 20 20 20 20 20 20 20 20 20 2f 2a 20 41 72 67 75 /* Argu
0480: 6d 65 6e 74 73 20 74 6f 20 74 68 65 20 66 6f 72 ments to the for
0490: 6d 61 74 20 73 74 72 69 6e 67 2e 20 2a 2f 0a 29 mat string. */.)
04a0: 3b 0a 69 6e 74 20 73 71 6c 69 74 65 33 5f 65 78 ;.int sqlite3_ex
04b0: 65 63 5f 70 72 69 6e 74 66 28 0a 20 20 73 71 6c ec_printf(. sql
04c0: 69 74 65 20 2a 64 62 2c 20 20 20 20 20 20 20 20 ite *db,
04d0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 6e /* An
04e0: 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 2a open database *
04f0: 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a /. const char *
0500: 73 71 6c 46 6f 72 6d 61 74 2c 20 20 20 20 20 20 sqlFormat,
0510: 20 20 2f 2a 20 70 72 69 6e 74 66 2d 73 74 79 6c /* printf-styl
0520: 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 e format string
0530: 66 6f 72 20 74 68 65 20 53 51 4c 20 2a 2f 0a 20 for the SQL */.
0540: 20 73 71 6c 69 74 65 5f 63 61 6c 6c 62 61 63 6b sqlite_callback
0550: 20 78 43 61 6c 6c 62 61 63 6b 2c 20 20 20 20 2f xCallback, /
0560: 2a 20 43 61 6c 6c 62 61 63 6b 20 66 75 6e 63 74 * Callback funct
0570: 69 6f 6e 20 2a 2f 0a 20 20 76 6f 69 64 20 2a 70 ion */. void *p
0580: 41 72 67 2c 20 20 20 20 20 20 20 20 20 20 20 20 Arg,
0590: 20 20 20 20 20 20 20 2f 2a 20 31 73 74 20 61 72 /* 1st ar
05a0: 67 75 6d 65 6e 74 20 74 6f 20 63 61 6c 6c 62 61 gument to callba
05b0: 63 6b 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 ck function */.
05c0: 20 63 68 61 72 20 2a 2a 65 72 72 6d 73 67 2c 20 char **errmsg,
05d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
05e0: 2a 20 45 72 72 6f 72 20 6d 73 67 20 77 72 69 74 * Error msg writ
05f0: 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20 2e 2e ten here */. ..
0600: 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0610: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 /* A
0620: 72 67 75 6d 65 6e 74 73 20 74 6f 20 74 68 65 20 rguments to the
0630: 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 2e 20 2a format string. *
0640: 2f 0a 29 3b 0a 69 6e 74 20 73 71 6c 69 74 65 33 /.);.int sqlite3
0650: 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74 _get_table_print
0660: 66 28 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 2c f(. sqlite *db,
0670: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 /* A
0680: 6e 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 n open database
0690: 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 */. const char
06a0: 2a 73 71 6c 46 6f 72 6d 61 74 2c 20 2f 2a 20 70 *sqlFormat, /* p
06b0: 72 69 6e 74 66 2d 73 74 79 6c 65 20 66 6f 72 6d rintf-style form
06c0: 61 74 20 73 74 72 69 6e 67 20 66 6f 72 20 74 68 at string for th
06d0: 65 20 53 51 4c 20 2a 2f 0a 20 20 63 68 61 72 20 e SQL */. char
06e0: 2a 2a 2a 72 65 73 75 6c 74 70 2c 20 20 20 20 20 ***resultp,
06f0: 20 20 2f 2a 20 52 65 73 75 6c 74 20 77 72 69 74 /* Result writ
0700: 74 65 6e 20 74 6f 20 61 20 63 68 61 72 20 2a 5b ten to a char *[
0710: 5d 20 20 74 68 61 74 20 74 68 69 73 20 70 6f 69 ] that this poi
0720: 6e 74 73 20 74 6f 20 2a 2f 0a 20 20 69 6e 74 20 nts to */. int
0730: 2a 6e 72 6f 77 2c 20 20 20 20 20 20 20 20 20 20 *nrow,
0740: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
0750: 72 65 73 75 6c 74 20 72 6f 77 73 20 77 72 69 74 result rows writ
0760: 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20 69 6e ten here */. in
0770: 74 20 2a 6e 63 6f 6c 2c 20 20 20 20 20 20 20 20 t *ncol,
0780: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
0790: 66 20 72 65 73 75 6c 74 20 63 6f 6c 75 6d 6e 73 f result columns
07a0: 20 77 72 69 74 74 65 6e 20 68 65 72 65 20 2a 2f written here */
07b0: 0a 20 20 63 68 61 72 20 2a 2a 65 72 72 6d 73 67 . char **errmsg
07c0: 2c 20 20 20 20 20 20 20 20 20 2f 2a 20 45 72 72 , /* Err
07d0: 6f 72 20 6d 73 67 20 77 72 69 74 74 65 6e 20 68 or msg written h
07e0: 65 72 65 20 2a 2f 0a 20 20 2e 2e 2e 20 20 20 20 ere */. ...
07f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0800: 2f 2a 20 41 72 67 75 6d 65 6e 74 73 20 74 6f 20 /* Arguments to
0810: 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e the format strin
0820: 67 20 2a 2f 0a 29 3b 0a 0a 73 74 61 74 69 63 20 g */.);..static
0830: 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 65 72 72 const char * err
0840: 6f 72 4e 61 6d 65 28 69 6e 74 20 72 63 29 7b 0a orName(int rc){.
0850: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e const char *zN
0860: 61 6d 65 20 3d 20 30 3b 0a 20 20 73 77 69 74 63 ame = 0;. switc
0870: 68 28 20 72 63 20 29 7b 0a 20 20 20 20 63 61 73 h( rc ){. cas
0880: 65 20 53 51 4c 49 54 45 5f 4f 4b 3a 20 20 20 20 e SQLITE_OK:
0890: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 zName = "SQ
08a0: 4c 49 54 45 5f 4f 4b 22 3b 20 20 20 20 20 20 20 LITE_OK";
08b0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
08c0: 73 65 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3a se SQLITE_ERROR:
08d0: 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 zName = "S
08e0: 51 4c 49 54 45 5f 45 52 52 4f 52 22 3b 20 20 20 QLITE_ERROR";
08f0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 break;. c
0900: 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 52 ase SQLITE_INTER
0910: 4e 41 4c 3a 20 20 20 7a 4e 61 6d 65 20 3d 20 22 NAL: zName = "
0920: 53 51 4c 49 54 45 5f 49 4e 54 45 52 4e 41 4c 22 SQLITE_INTERNAL"
0930: 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 ; break;.
0940: 63 61 73 65 20 53 51 4c 49 54 45 5f 50 45 52 4d case SQLITE_PERM
0950: 3a 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 : zName =
0960: 22 53 51 4c 49 54 45 5f 50 45 52 4d 22 3b 20 20 "SQLITE_PERM";
0970: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
0980: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 41 42 4f case SQLITE_ABO
0990: 52 54 3a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d RT: zName =
09a0: 20 22 53 51 4c 49 54 45 5f 41 42 4f 52 54 22 3b "SQLITE_ABORT";
09b0: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
09c0: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 42 55 case SQLITE_BU
09d0: 53 59 3a 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 SY: zName
09e0: 3d 20 22 53 51 4c 49 54 45 5f 42 55 53 59 22 3b = "SQLITE_BUSY";
09f0: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
0a00: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4c case SQLITE_L
0a10: 4f 43 4b 45 44 3a 20 20 20 20 20 7a 4e 61 6d 65 OCKED: zName
0a20: 20 3d 20 22 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 = "SQLITE_LOCKE
0a30: 44 22 3b 20 20 20 20 20 20 62 72 65 61 6b 3b 0a D"; break;.
0a40: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
0a50: 4e 4f 4d 45 4d 3a 20 20 20 20 20 20 7a 4e 61 6d NOMEM: zNam
0a60: 65 20 3d 20 22 53 51 4c 49 54 45 5f 4e 4f 4d 45 e = "SQLITE_NOME
0a70: 4d 22 3b 20 20 20 20 20 20 20 62 72 65 61 6b 3b M"; break;
0a80: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
0a90: 5f 52 45 41 44 4f 4e 4c 59 3a 20 20 20 7a 4e 61 _READONLY: zNa
0aa0: 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 45 41 me = "SQLITE_REA
0ab0: 44 4f 4e 4c 59 22 3b 20 20 20 20 62 72 65 61 6b DONLY"; break
0ac0: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
0ad0: 45 5f 49 4e 54 45 52 52 55 50 54 3a 20 20 7a 4e E_INTERRUPT: zN
0ae0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4e ame = "SQLITE_IN
0af0: 54 45 52 52 55 50 54 22 3b 20 20 20 62 72 65 61 TERRUPT"; brea
0b00: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
0b10: 54 45 5f 49 4f 45 52 52 3a 20 20 20 20 20 20 7a TE_IOERR: z
0b20: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 Name = "SQLITE_I
0b30: 4f 45 52 52 22 3b 20 20 20 20 20 20 20 62 72 65 OERR"; bre
0b40: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ak;. case SQL
0b50: 49 54 45 5f 43 4f 52 52 55 50 54 3a 20 20 20 20 ITE_CORRUPT:
0b60: 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f zName = "SQLITE_
0b70: 43 4f 52 52 55 50 54 22 3b 20 20 20 20 20 62 72 CORRUPT"; br
0b80: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 eak;. case SQ
0b90: 4c 49 54 45 5f 4e 4f 54 46 4f 55 4e 44 3a 20 20 LITE_NOTFOUND:
0ba0: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 zName = "SQLITE
0bb0: 5f 4e 4f 54 46 4f 55 4e 44 22 3b 20 20 20 20 62 _NOTFOUND"; b
0bc0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
0bd0: 51 4c 49 54 45 5f 46 55 4c 4c 3a 20 20 20 20 20 QLITE_FULL:
0be0: 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 zName = "SQLIT
0bf0: 45 5f 46 55 4c 4c 22 3b 20 20 20 20 20 20 20 20 E_FULL";
0c00: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
0c10: 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3a SQLITE_CANTOPEN:
0c20: 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 zName = "SQLI
0c30: 54 45 5f 43 41 4e 54 4f 50 45 4e 22 3b 20 20 20 TE_CANTOPEN";
0c40: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
0c50: 20 53 51 4c 49 54 45 5f 50 52 4f 54 4f 43 4f 4c SQLITE_PROTOCOL
0c60: 3a 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c : zName = "SQL
0c70: 49 54 45 5f 50 52 4f 54 4f 43 4f 4c 22 3b 20 20 ITE_PROTOCOL";
0c80: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0c90: 65 20 53 51 4c 49 54 45 5f 45 4d 50 54 59 3a 20 e SQLITE_EMPTY:
0ca0: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 zName = "SQ
0cb0: 4c 49 54 45 5f 45 4d 50 54 59 22 3b 20 20 20 20 LITE_EMPTY";
0cc0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0cd0: 73 65 20 53 51 4c 49 54 45 5f 53 43 48 45 4d 41 se SQLITE_SCHEMA
0ce0: 3a 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 : zName = "S
0cf0: 51 4c 49 54 45 5f 53 43 48 45 4d 41 22 3b 20 20 QLITE_SCHEMA";
0d00: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 break;. c
0d10: 61 73 65 20 53 51 4c 49 54 45 5f 54 4f 4f 42 49 ase SQLITE_TOOBI
0d20: 47 3a 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 G: zName = "
0d30: 53 51 4c 49 54 45 5f 54 4f 4f 42 49 47 22 3b 20 SQLITE_TOOBIG";
0d40: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
0d50: 63 61 73 65 20 53 51 4c 49 54 45 5f 43 4f 4e 53 case SQLITE_CONS
0d60: 54 52 41 49 4e 54 3a 20 7a 4e 61 6d 65 20 3d 20 TRAINT: zName =
0d70: 22 53 51 4c 49 54 45 5f 43 4f 4e 53 54 52 41 49 "SQLITE_CONSTRAI
0d80: 4e 54 22 3b 20 20 62 72 65 61 6b 3b 0a 20 20 20 NT"; break;.
0d90: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4d 49 53 case SQLITE_MIS
0da0: 4d 41 54 43 48 3a 20 20 20 7a 4e 61 6d 65 20 3d MATCH: zName =
0db0: 20 22 53 51 4c 49 54 45 5f 4d 49 53 4d 41 54 43 "SQLITE_MISMATC
0dc0: 48 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 H"; break;.
0dd0: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4d 49 case SQLITE_MI
0de0: 53 55 53 45 3a 20 20 20 20 20 7a 4e 61 6d 65 20 SUSE: zName
0df0: 3d 20 22 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 = "SQLITE_MISUSE
0e00: 22 3b 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 "; break;.
0e10: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4e case SQLITE_N
0e20: 4f 4c 46 53 3a 20 20 20 20 20 20 7a 4e 61 6d 65 OLFS: zName
0e30: 20 3d 20 22 53 51 4c 49 54 45 5f 4e 4f 4c 46 53 = "SQLITE_NOLFS
0e40: 22 3b 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a "; break;.
0e50: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
0e60: 41 55 54 48 3a 20 20 20 20 20 20 20 7a 4e 61 6d AUTH: zNam
0e70: 65 20 3d 20 22 53 51 4c 49 54 45 5f 41 55 54 48 e = "SQLITE_AUTH
0e80: 22 3b 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b "; break;
0e90: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
0ea0: 5f 46 4f 52 4d 41 54 3a 20 20 20 20 20 7a 4e 61 _FORMAT: zNa
0eb0: 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 46 4f 52 me = "SQLITE_FOR
0ec0: 4d 41 54 22 3b 20 20 20 20 20 20 62 72 65 61 6b MAT"; break
0ed0: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
0ee0: 45 5f 52 41 4e 47 45 3a 20 20 20 20 20 20 7a 4e E_RANGE: zN
0ef0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 41 ame = "SQLITE_RA
0f00: 4e 47 45 22 3b 20 20 20 20 20 20 20 62 72 65 61 NGE"; brea
0f10: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
0f20: 54 45 5f 52 4f 57 3a 20 20 20 20 20 20 20 20 7a TE_ROW: z
0f30: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 Name = "SQLITE_R
0f40: 4f 57 22 3b 20 20 20 20 20 20 20 20 20 62 72 65 OW"; bre
0f50: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ak;. case SQL
0f60: 49 54 45 5f 44 4f 4e 45 3a 20 20 20 20 20 20 20 ITE_DONE:
0f70: 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f zName = "SQLITE_
0f80: 44 4f 4e 45 22 3b 20 20 20 20 20 20 20 20 62 72 DONE"; br
0f90: 65 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 eak;. default
0fa0: 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 :
0fb0: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 zName = "SQLITE
0fc0: 5f 55 6e 6b 6e 6f 77 6e 22 3b 20 20 20 20 20 62 _Unknown"; b
0fd0: 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 72 65 74 75 reak;. }. retu
0fe0: 72 6e 20 7a 4e 61 6d 65 3b 0a 7d 0a 0a 2f 2a 0a rn zName;.}../*.
0ff0: 2a 2a 20 44 65 63 6f 64 65 20 61 20 70 6f 69 6e ** Decode a poin
1000: 74 65 72 20 74 6f 20 61 6e 20 73 71 6c 69 74 65 ter to an sqlite
1010: 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 object..*/.stat
1020: 69 63 20 69 6e 74 20 67 65 74 44 62 50 6f 69 6e ic int getDbPoin
1030: 74 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a ter(Tcl_Interp *
1040: 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 interp, const ch
1050: 61 72 20 2a 7a 41 2c 20 73 71 6c 69 74 65 20 2a ar *zA, sqlite *
1060: 2a 70 70 44 62 29 7b 0a 20 20 69 66 28 20 73 73 *ppDb){. if( ss
1070: 63 61 6e 66 28 7a 41 2c 20 50 54 52 5f 46 4d 54 canf(zA, PTR_FMT
1080: 2c 20 28 76 6f 69 64 2a 2a 29 70 70 44 62 29 21 , (void**)ppDb)!
1090: 3d 31 20 26 26 20 0a 20 20 20 20 20 20 28 7a 41 =1 && . (zA
10a0: 5b 30 5d 21 3d 27 30 27 20 7c 7c 20 7a 41 5b 31 [0]!='0' || zA[1
10b0: 5d 21 3d 27 78 27 20 7c 7c 20 73 73 63 61 6e 66 ]!='x' || sscanf
10c0: 28 26 7a 41 5b 32 5d 2c 20 50 54 52 5f 46 4d 54 (&zA[2], PTR_FMT
10d0: 2c 20 28 76 6f 69 64 2a 2a 29 70 70 44 62 29 21 , (void**)ppDb)!
10e0: 3d 31 29 0a 20 20 29 7b 0a 20 20 20 20 54 63 6c =1). ){. Tcl
10f0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1100: 74 65 72 70 2c 20 22 5c 22 22 2c 20 7a 41 2c 20 terp, "\"", zA,
1110: 22 5c 22 20 69 73 20 6e 6f 74 20 61 20 76 61 6c "\" is not a val
1120: 69 64 20 70 6f 69 6e 74 65 72 20 76 61 6c 75 65 id pointer value
1130: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
1140: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
1150: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
1160: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 63 6f 64 ;.}../*.** Decod
1170: 65 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 e a pointer to a
1180: 6e 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 6f n sqlite3_stmt o
1190: 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 bject..*/.static
11a0: 20 69 6e 74 20 67 65 74 53 74 6d 74 50 6f 69 6e int getStmtPoin
11b0: 74 65 72 28 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ter(. Tcl_Inter
11c0: 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 63 6f p *interp, . co
11d0: 6e 73 74 20 63 68 61 72 20 2a 7a 41 72 67 2c 20 nst char *zArg,
11e0: 20 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 . sqlite3_stmt
11f0: 20 2a 2a 70 70 53 74 6d 74 0a 29 7b 0a 20 20 69 **ppStmt.){. i
1200: 66 28 20 73 73 63 61 6e 66 28 7a 41 72 67 2c 20 f( sscanf(zArg,
1210: 50 54 52 5f 46 4d 54 2c 20 28 76 6f 69 64 2a 2a PTR_FMT, (void**
1220: 29 70 70 53 74 6d 74 29 21 3d 31 20 29 7b 0a 20 )ppStmt)!=1 ){.
1230: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
1240: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 5c 22 22 ult(interp, "\""
1250: 2c 20 7a 41 72 67 2c 20 22 5c 22 20 69 73 20 6e , zArg, "\" is n
1260: 6f 74 20 61 20 76 61 6c 69 64 20 70 6f 69 6e 74 ot a valid point
1270: 65 72 20 76 61 6c 75 65 22 2c 20 30 29 3b 0a 20 er value", 0);.
1280: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
1290: 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 ROR;. }. retur
12a0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
12b0: 2a 2a 20 47 65 6e 65 72 61 74 65 20 61 20 74 65 ** Generate a te
12c0: 78 74 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f xt representatio
12d0: 6e 20 6f 66 20 61 20 70 6f 69 6e 74 65 72 20 74 n of a pointer t
12e0: 68 61 74 20 63 61 6e 20 62 65 20 75 6e 64 65 72 hat can be under
12f0: 73 74 6f 6f 64 0a 2a 2a 20 62 79 20 74 68 65 20 stood.** by the
1300: 67 65 74 44 62 50 6f 69 6e 74 65 72 20 61 6e 64 getDbPointer and
1310: 20 67 65 74 56 6d 50 6f 69 6e 74 65 72 20 72 6f getVmPointer ro
1320: 75 74 69 6e 65 73 20 61 62 6f 76 65 2e 0a 2a 2a utines above..**
1330: 0a 2a 2a 20 54 68 65 20 70 72 6f 62 6c 65 6d 20 .** The problem
1340: 69 73 2c 20 6f 6e 20 73 6f 6d 65 20 6d 61 63 68 is, on some mach
1350: 69 6e 65 73 20 28 53 6f 6c 61 72 69 73 29 20 69 ines (Solaris) i
1360: 66 20 79 6f 75 20 64 6f 20 61 20 70 72 69 6e 74 f you do a print
1370: 66 20 77 69 74 68 0a 2a 2a 20 22 25 70 22 20 79 f with.** "%p" y
1380: 6f 75 20 63 61 6e 6e 6f 74 20 74 75 72 6e 20 61 ou cannot turn a
1390: 72 6f 75 6e 64 20 61 6e 64 20 64 6f 20 61 20 73 round and do a s
13a0: 63 61 6e 66 20 77 69 74 68 20 74 68 65 20 73 61 canf with the sa
13b0: 6d 65 20 22 25 70 22 20 61 6e 64 0a 2a 2a 20 67 me "%p" and.** g
13c0: 65 74 20 79 6f 75 72 20 70 6f 69 6e 74 65 72 20 et your pointer
13d0: 62 61 63 6b 2e 20 20 59 6f 75 20 68 61 76 65 20 back. You have
13e0: 74 6f 20 70 72 65 70 65 6e 64 20 61 20 22 30 78 to prepend a "0x
13f0: 22 20 62 65 66 6f 72 65 20 69 74 20 77 69 6c 6c " before it will
1400: 0a 2a 2a 20 77 6f 72 6b 2e 20 20 4f 72 20 61 74 .** work. Or at
1410: 20 6c 65 61 73 74 20 74 68 61 74 20 69 73 20 77 least that is w
1420: 68 61 74 20 69 73 20 72 65 70 6f 72 74 65 64 20 hat is reported
1430: 74 6f 20 6d 65 20 28 64 72 68 29 2e 20 20 42 75 to me (drh). Bu
1440: 74 20 74 68 69 73 0a 2a 2a 20 62 65 68 61 76 69 t this.** behavi
1450: 6f 72 20 76 61 72 69 65 73 20 66 72 6f 6d 20 6d or varies from m
1460: 61 63 68 69 6e 65 20 74 6f 20 6d 61 63 68 69 6e achine to machin
1470: 65 2e 20 20 54 68 65 20 73 6f 6c 75 74 69 6f 6e e. The solution
1480: 20 75 73 65 64 20 68 65 72 20 69 73 0a 2a 2a 20 used her is.**
1490: 74 6f 20 74 65 73 74 20 74 68 65 20 73 74 72 69 to test the stri
14a0: 6e 67 20 72 69 67 68 74 20 61 66 74 65 72 20 69 ng right after i
14b0: 74 20 69 73 20 67 65 6e 65 72 61 74 65 64 20 74 t is generated t
14c0: 6f 20 73 65 65 20 69 66 20 69 74 20 63 61 6e 20 o see if it can
14d0: 62 65 0a 2a 2a 20 75 6e 64 65 72 73 74 6f 6f 64 be.** understood
14e0: 20 62 79 20 73 63 61 6e 66 2c 20 61 6e 64 20 69 by scanf, and i
14f0: 66 20 6e 6f 74 2c 20 74 72 79 20 70 72 65 70 65 f not, try prepe
1500: 6e 64 69 6e 67 20 61 6e 20 22 30 78 22 20 74 6f nding an "0x" to
1510: 20 73 65 65 20 69 66 0a 2a 2a 20 74 68 61 74 20 see if.** that
1520: 68 65 6c 70 73 2e 20 20 49 66 20 6e 6f 74 68 69 helps. If nothi
1530: 6e 67 20 77 6f 72 6b 73 2c 20 61 20 66 61 74 61 ng works, a fata
1540: 6c 20 65 72 72 6f 72 20 69 73 20 67 65 6e 65 72 l error is gener
1550: 61 74 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 ated..*/.static
1560: 69 6e 74 20 6d 61 6b 65 50 6f 69 6e 74 65 72 53 int makePointerS
1570: 74 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 tr(Tcl_Interp *i
1580: 6e 74 65 72 70 2c 20 63 68 61 72 20 2a 7a 50 74 nterp, char *zPt
1590: 72 2c 20 76 6f 69 64 20 2a 70 29 7b 0a 20 20 76 r, void *p){. v
15a0: 6f 69 64 20 2a 70 32 3b 0a 20 20 73 70 72 69 6e oid *p2;. sprin
15b0: 74 66 28 7a 50 74 72 2c 20 50 54 52 5f 46 4d 54 tf(zPtr, PTR_FMT
15c0: 2c 20 70 29 3b 0a 20 20 69 66 28 20 73 73 63 61 , p);. if( ssca
15d0: 6e 66 28 7a 50 74 72 2c 20 50 54 52 5f 46 4d 54 nf(zPtr, PTR_FMT
15e0: 2c 20 26 70 32 29 21 3d 31 20 7c 7c 20 70 32 21 , &p2)!=1 || p2!
15f0: 3d 70 20 29 7b 0a 20 20 20 20 73 70 72 69 6e 74 =p ){. sprint
1600: 66 28 7a 50 74 72 2c 20 22 30 78 22 20 50 54 52 f(zPtr, "0x" PTR
1610: 5f 46 4d 54 2c 20 70 29 3b 0a 20 20 20 20 69 66 _FMT, p);. if
1620: 28 20 73 73 63 61 6e 66 28 7a 50 74 72 2c 20 50 ( sscanf(zPtr, P
1630: 54 52 5f 46 4d 54 2c 20 26 70 32 29 21 3d 31 20 TR_FMT, &p2)!=1
1640: 7c 7c 20 70 32 21 3d 70 20 29 7b 0a 20 20 20 20 || p2!=p ){.
1650: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
1660: 6c 74 28 69 6e 74 65 72 70 2c 20 22 75 6e 61 62 lt(interp, "unab
1670: 6c 65 20 74 6f 20 63 6f 6e 76 65 72 74 20 61 20 le to convert a
1680: 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 73 74 72 pointer to a str
1690: 69 6e 67 20 22 0a 20 20 20 20 20 20 20 20 20 22 ing ". "
16a0: 69 6e 20 74 68 65 20 66 69 6c 65 20 22 20 5f 5f in the file " __
16b0: 46 49 4c 45 5f 5f 20 22 20 69 6e 20 66 75 6e 63 FILE__ " in func
16c0: 74 69 6f 6e 20 6d 61 6b 65 50 6f 69 6e 74 65 72 tion makePointer
16d0: 53 74 72 28 29 2e 20 20 50 6c 65 61 73 65 20 22 Str(). Please "
16e0: 0a 20 20 20 20 20 20 20 20 20 22 72 65 70 6f 72 . "repor
16f0: 74 20 74 68 69 73 20 70 72 6f 62 6c 65 6d 20 74 t this problem t
1700: 6f 20 74 68 65 20 53 51 4c 69 74 65 20 6d 61 69 o the SQLite mai
1710: 6c 69 6e 67 20 6c 69 73 74 20 6f 72 20 61 73 20 ling list or as
1720: 61 20 6e 65 77 20 62 75 74 20 22 0a 20 20 20 20 a new but ".
1730: 20 20 20 20 20 22 72 65 70 6f 72 74 2e 20 20 50 "report. P
1740: 6c 65 61 73 65 20 70 72 6f 76 69 64 65 20 64 65 lease provide de
1750: 74 61 69 6c 65 64 20 69 6e 66 6f 72 6d 61 74 69 tailed informati
1760: 6f 6e 20 61 62 6f 75 74 20 68 6f 77 20 79 6f 75 on about how you
1770: 20 63 6f 6d 70 69 6c 65 64 20 22 0a 20 20 20 20 compiled ".
1780: 20 20 20 20 20 22 53 51 4c 69 74 65 20 61 6e 64 "SQLite and
1790: 20 77 68 61 74 20 63 6f 6d 70 75 74 65 72 20 79 what computer y
17a0: 6f 75 20 61 72 65 20 72 75 6e 6e 69 6e 67 20 6f ou are running o
17b0: 6e 2e 22 2c 20 30 29 3b 0a 20 20 20 20 20 20 72 n.", 0);. r
17c0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
17d0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 . }. }. ret
17e0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
17f0: 2a 0a 2a 2a 20 54 68 65 20 63 61 6c 6c 62 61 63 *.** The callbac
1800: 6b 20 72 6f 75 74 69 6e 65 20 66 6f 72 20 73 71 k routine for sq
1810: 6c 69 74 65 33 5f 65 78 65 63 5f 70 72 69 6e 74 lite3_exec_print
1820: 66 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 f()..*/.static i
1830: 6e 74 20 65 78 65 63 5f 70 72 69 6e 74 66 5f 63 nt exec_printf_c
1840: 62 28 76 6f 69 64 20 2a 70 41 72 67 2c 20 69 6e b(void *pArg, in
1850: 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 t argc, char **a
1860: 72 67 76 2c 20 63 68 61 72 20 2a 2a 6e 61 6d 65 rgv, char **name
1870: 29 7b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 ){. Tcl_DString
1880: 20 2a 73 74 72 20 3d 20 28 54 63 6c 5f 44 53 74 *str = (Tcl_DSt
1890: 72 69 6e 67 2a 29 70 41 72 67 3b 0a 20 20 69 6e ring*)pArg;. in
18a0: 74 20 69 3b 0a 0a 20 20 69 66 28 20 54 63 6c 5f t i;.. if( Tcl_
18b0: 44 53 74 72 69 6e 67 4c 65 6e 67 74 68 28 73 74 DStringLength(st
18c0: 72 29 3d 3d 30 20 29 7b 0a 20 20 20 20 66 6f 72 r)==0 ){. for
18d0: 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b (i=0; i<argc; i+
18e0: 2b 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 44 53 +){. Tcl_DS
18f0: 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d 65 tringAppendEleme
1900: 6e 74 28 73 74 72 2c 20 6e 61 6d 65 5b 69 5d 20 nt(str, name[i]
1910: 3f 20 6e 61 6d 65 5b 69 5d 20 3a 20 22 4e 55 4c ? name[i] : "NUL
1920: 4c 22 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 L");. }. }.
1930: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 for(i=0; i<argc
1940: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f ; i++){. Tcl_
1950: 44 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 DStringAppendEle
1960: 6d 65 6e 74 28 73 74 72 2c 20 61 72 67 76 5b 69 ment(str, argv[i
1970: 5d 20 3f 20 61 72 67 76 5b 69 5d 20 3a 20 22 4e ] ? argv[i] : "N
1980: 55 4c 4c 22 29 3b 0a 20 20 7d 0a 20 20 72 65 74 ULL");. }. ret
1990: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 urn 0;.}../*.**
19a0: 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
19b0: 65 78 65 63 5f 70 72 69 6e 74 66 20 20 44 42 20 exec_printf DB
19c0: 20 46 4f 52 4d 41 54 20 20 53 54 52 49 4e 47 0a FORMAT STRING.
19d0: 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 65 **.** Invoke the
19e0: 20 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 70 72 sqlite3_exec_pr
19f0: 69 6e 74 66 28 29 20 69 6e 74 65 72 66 61 63 65 intf() interface
1a00: 20 75 73 69 6e 67 20 74 68 65 20 6f 70 65 6e 20 using the open
1a10: 64 61 74 61 62 61 73 65 0a 2a 2a 20 44 42 2e 20 database.** DB.
1a20: 20 54 68 65 20 53 51 4c 20 69 73 20 74 68 65 20 The SQL is the
1a30: 73 74 72 69 6e 67 20 46 4f 52 4d 41 54 2e 20 20 string FORMAT.
1a40: 54 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e The format strin
1a50: 67 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 69 6e g should contain
1a60: 0a 2a 2a 20 6f 6e 65 20 25 73 20 6f 72 20 25 71 .** one %s or %q
1a70: 2e 20 20 53 54 52 49 4e 47 20 69 73 20 74 68 65 . STRING is the
1a80: 20 76 61 6c 75 65 20 69 6e 73 65 72 74 65 64 20 value inserted
1a90: 69 6e 74 6f 20 25 73 20 6f 72 20 25 71 2e 0a 2a into %s or %q..*
1aa0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
1ab0: 74 5f 65 78 65 63 5f 70 72 69 6e 74 66 28 0a 20 t_exec_printf(.
1ac0: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
1ad0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
1ae0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
1af0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
1b00: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
1b10: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
1b20: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
1b30: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
1b40: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
1b50: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
1b60: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
1b70: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
1b80: 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 t */.){. sqlite
1b90: 20 2a 64 62 3b 0a 20 20 54 63 6c 5f 44 53 74 72 *db;. Tcl_DStr
1ba0: 69 6e 67 20 73 74 72 3b 0a 20 20 69 6e 74 20 72 ing str;. int r
1bb0: 63 3b 0a 20 20 63 68 61 72 20 2a 7a 45 72 72 20 c;. char *zErr
1bc0: 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 = 0;. char zBuf
1bd0: 5b 33 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 63 [30];. if( argc
1be0: 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=4 ){. Tcl_A
1bf0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1c00: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
1c10: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
1c20: 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 20 20 20 , argv[0], .
1c30: 20 20 20 22 20 44 42 20 46 4f 52 4d 41 54 20 53 " DB FORMAT S
1c40: 54 52 49 4e 47 22 2c 20 30 29 3b 0a 20 20 20 20 TRING", 0);.
1c50: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1c60: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 ;. }. if( getD
1c70: 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c bPointer(interp,
1c80: 20 61 72 67 76 5b 31 5d 2c 20 26 64 62 29 20 29 argv[1], &db) )
1c90: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1ca0: 52 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 R;. Tcl_DString
1cb0: 49 6e 69 74 28 26 73 74 72 29 3b 0a 20 20 72 63 Init(&str);. rc
1cc0: 20 3d 20 73 71 6c 69 74 65 33 5f 65 78 65 63 5f = sqlite3_exec_
1cd0: 70 72 69 6e 74 66 28 64 62 2c 20 61 72 67 76 5b printf(db, argv[
1ce0: 32 5d 2c 20 65 78 65 63 5f 70 72 69 6e 74 66 5f 2], exec_printf_
1cf0: 63 62 2c 20 26 73 74 72 2c 20 26 7a 45 72 72 2c cb, &str, &zErr,
1d00: 20 61 72 67 76 5b 33 5d 29 3b 0a 20 20 73 70 72 argv[3]);. spr
1d10: 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c intf(zBuf, "%d",
1d20: 20 72 63 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 rc);. Tcl_Appe
1d30: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
1d40: 2c 20 7a 42 75 66 29 3b 0a 20 20 54 63 6c 5f 41 , zBuf);. Tcl_A
1d50: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
1d60: 65 72 70 2c 20 72 63 3d 3d 53 51 4c 49 54 45 5f erp, rc==SQLITE_
1d70: 4f 4b 20 3f 20 54 63 6c 5f 44 53 74 72 69 6e 67 OK ? Tcl_DString
1d80: 56 61 6c 75 65 28 26 73 74 72 29 20 3a 20 7a 45 Value(&str) : zE
1d90: 72 72 29 3b 0a 20 20 54 63 6c 5f 44 53 74 72 69 rr);. Tcl_DStri
1da0: 6e 67 46 72 65 65 28 26 73 74 72 29 3b 0a 20 20 ngFree(&str);.
1db0: 69 66 28 20 7a 45 72 72 20 29 20 66 72 65 65 28 if( zErr ) free(
1dc0: 7a 45 72 72 29 3b 0a 20 20 72 65 74 75 72 6e 20 zErr);. return
1dd0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
1de0: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
1df0: 5f 6d 70 72 69 6e 74 66 5f 7a 5f 74 65 73 74 20 _mprintf_z_test
1e00: 20 53 45 50 41 52 41 54 4f 52 20 20 41 52 47 30 SEPARATOR ARG0
1e10: 20 20 41 52 47 31 20 2e 2e 2e 0a 2a 2a 0a 2a 2a ARG1 ....**.**
1e20: 20 54 65 73 74 20 74 68 65 20 25 7a 20 66 6f 72 Test the %z for
1e30: 6d 61 74 20 6f 66 20 6d 70 72 69 6e 74 66 28 29 mat of mprintf()
1e40: 2e 20 20 55 73 65 20 6d 75 6c 74 69 70 6c 65 20 . Use multiple
1e50: 6d 70 72 69 6e 74 66 28 29 20 63 61 6c 6c 73 20 mprintf() calls
1e60: 74 6f 20 0a 2a 2a 20 63 6f 6e 63 61 74 65 6e 61 to .** concatena
1e70: 74 65 20 61 72 67 30 20 74 68 72 6f 75 67 68 20 te arg0 through
1e80: 61 72 67 6e 20 75 73 69 6e 67 20 73 65 70 61 72 argn using separ
1e90: 61 74 6f 72 20 61 73 20 74 68 65 20 73 65 70 61 ator as the sepa
1ea0: 72 61 74 6f 72 2e 0a 2a 2a 20 52 65 74 75 72 6e rator..** Return
1eb0: 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 2a 2f 0a the result..*/.
1ec0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
1ed0: 6d 70 72 69 6e 74 66 5f 7a 28 0a 20 20 76 6f 69 mprintf_z(. voi
1ee0: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
1ef0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1f00: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
1f10: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
1f20: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
1f30: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
1f40: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
1f50: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
1f60: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
1f70: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
1f80: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
1f90: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
1fa0: 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 52 65 73 .){. char *zRes
1fb0: 75 6c 74 20 3d 20 30 3b 0a 20 20 69 6e 74 20 69 ult = 0;. int i
1fc0: 3b 0a 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c ;.. for(i=2; i<
1fd0: 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 argc; i++){.
1fe0: 7a 52 65 73 75 6c 74 20 3d 20 73 71 6c 69 74 65 zResult = sqlite
1ff0: 33 4d 50 72 69 6e 74 66 28 22 25 7a 25 73 25 73 3MPrintf("%z%s%s
2000: 22 2c 20 7a 52 65 73 75 6c 74 2c 20 61 72 67 76 ", zResult, argv
2010: 5b 31 5d 2c 20 61 72 67 76 5b 69 5d 29 3b 0a 20 [1], argv[i]);.
2020: 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 }. Tcl_AppendR
2030: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 52 esult(interp, zR
2040: 65 73 75 6c 74 2c 20 30 29 3b 0a 20 20 73 71 6c esult, 0);. sql
2050: 69 74 65 46 72 65 65 28 7a 52 65 73 75 6c 74 29 iteFree(zResult)
2060: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
2070: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
2080: 65 3a 20 20 73 71 6c 69 74 65 33 5f 67 65 74 5f e: sqlite3_get_
2090: 74 61 62 6c 65 5f 70 72 69 6e 74 66 20 20 44 42 table_printf DB
20a0: 20 20 46 4f 52 4d 41 54 20 20 53 54 52 49 4e 47 FORMAT STRING
20b0: 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 .**.** Invoke th
20c0: 65 20 73 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 e sqlite3_get_ta
20d0: 62 6c 65 5f 70 72 69 6e 74 66 28 29 20 69 6e 74 ble_printf() int
20e0: 65 72 66 61 63 65 20 75 73 69 6e 67 20 74 68 65 erface using the
20f0: 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 0a 2a open database.*
2100: 2a 20 44 42 2e 20 20 54 68 65 20 53 51 4c 20 69 * DB. The SQL i
2110: 73 20 74 68 65 20 73 74 72 69 6e 67 20 46 4f 52 s the string FOR
2120: 4d 41 54 2e 20 20 54 68 65 20 66 6f 72 6d 61 74 MAT. The format
2130: 20 73 74 72 69 6e 67 20 73 68 6f 75 6c 64 20 63 string should c
2140: 6f 6e 74 61 69 6e 0a 2a 2a 20 6f 6e 65 20 25 73 ontain.** one %s
2150: 20 6f 72 20 25 71 2e 20 20 53 54 52 49 4e 47 20 or %q. STRING
2160: 69 73 20 74 68 65 20 76 61 6c 75 65 20 69 6e 73 is the value ins
2170: 65 72 74 65 64 20 69 6e 74 6f 20 25 73 20 6f 72 erted into %s or
2180: 20 25 71 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 %q..*/.static i
2190: 6e 74 20 74 65 73 74 5f 67 65 74 5f 74 61 62 6c nt test_get_tabl
21a0: 65 5f 70 72 69 6e 74 66 28 0a 20 20 76 6f 69 64 e_printf(. void
21b0: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
21c0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
21d0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
21e0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
21f0: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
2200: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
2210: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
2220: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
2230: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
2240: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
2250: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
2260: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
2270: 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 3b ){. sqlite *db;
2280: 0a 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 73 . Tcl_DString s
2290: 74 72 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 tr;. int rc;.
22a0: 63 68 61 72 20 2a 7a 45 72 72 20 3d 20 30 3b 0a char *zErr = 0;.
22b0: 20 20 69 6e 74 20 6e 52 6f 77 2c 20 6e 43 6f 6c int nRow, nCol
22c0: 3b 0a 20 20 63 68 61 72 20 2a 2a 61 52 65 73 75 ;. char **aResu
22d0: 6c 74 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 lt;. int i;. c
22e0: 68 61 72 20 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 har zBuf[30];.
22f0: 69 66 28 20 61 72 67 63 21 3d 34 20 29 7b 0a 20 if( argc!=4 ){.
2300: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
2310: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
2320: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
2330: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 d be \"", argv[0
2340: 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 44 42 20 ], . " DB
2350: 46 4f 52 4d 41 54 20 53 54 52 49 4e 47 22 2c 20 FORMAT STRING",
2360: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
2370: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
2380: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
2390: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
23a0: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
23b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c TCL_ERROR;. Tcl
23c0: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 73 74 _DStringInit(&st
23d0: 72 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 r);. rc = sqlit
23e0: 65 33 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 e3_get_table_pri
23f0: 6e 74 66 28 64 62 2c 20 61 72 67 76 5b 32 5d 2c ntf(db, argv[2],
2400: 20 26 61 52 65 73 75 6c 74 2c 20 26 6e 52 6f 77 &aResult, &nRow
2410: 2c 20 26 6e 43 6f 6c 2c 20 0a 20 20 20 20 20 20 , &nCol, .
2420: 20 20 20 20 20 20 20 20 20 26 7a 45 72 72 2c 20 &zErr,
2430: 61 72 67 76 5b 33 5d 29 3b 0a 20 20 73 70 72 69 argv[3]);. spri
2440: 6e 74 66 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 ntf(zBuf, "%d",
2450: 72 63 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e rc);. Tcl_Appen
2460: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
2470: 20 7a 42 75 66 29 3b 0a 20 20 69 66 28 20 72 63 zBuf);. if( rc
2480: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 ==SQLITE_OK ){.
2490: 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c sprintf(zBuf,
24a0: 20 22 25 64 22 2c 20 6e 52 6f 77 29 3b 0a 20 20 "%d", nRow);.
24b0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d Tcl_AppendElem
24c0: 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 ent(interp, zBuf
24d0: 29 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 7a );. sprintf(z
24e0: 42 75 66 2c 20 22 25 64 22 2c 20 6e 43 6f 6c 29 Buf, "%d", nCol)
24f0: 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 ;. Tcl_Append
2500: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
2510: 7a 42 75 66 29 3b 0a 20 20 20 20 66 6f 72 28 69 zBuf);. for(i
2520: 3d 30 3b 20 69 3c 28 6e 52 6f 77 2b 31 29 2a 6e =0; i<(nRow+1)*n
2530: 43 6f 6c 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 Col; i++){.
2540: 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 Tcl_AppendEleme
2550: 6e 74 28 69 6e 74 65 72 70 2c 20 61 52 65 73 75 nt(interp, aResu
2560: 6c 74 5b 69 5d 20 3f 20 61 52 65 73 75 6c 74 5b lt[i] ? aResult[
2570: 69 5d 20 3a 20 22 4e 55 4c 4c 22 29 3b 0a 20 20 i] : "NULL");.
2580: 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 }. }else{.
2590: 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 Tcl_AppendEleme
25a0: 6e 74 28 69 6e 74 65 72 70 2c 20 7a 45 72 72 29 nt(interp, zErr)
25b0: 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f ;. }. sqlite3_
25c0: 66 72 65 65 5f 74 61 62 6c 65 28 61 52 65 73 75 free_table(aResu
25d0: 6c 74 29 3b 0a 20 20 69 66 28 20 7a 45 72 72 20 lt);. if( zErr
25e0: 29 20 66 72 65 65 28 7a 45 72 72 29 3b 0a 20 20 ) free(zErr);.
25f0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
2600: 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 .../*.** Usage:
2610: 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e sqlite3_last_in
2620: 73 65 72 74 5f 72 6f 77 69 64 20 44 42 0a 2a 2a sert_rowid DB.**
2630: 0a 2a 2a 20 52 65 74 75 72 6e 73 20 74 68 65 20 .** Returns the
2640: 69 6e 74 65 67 65 72 20 52 4f 57 49 44 20 6f 66 integer ROWID of
2650: 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 the most recent
2660: 20 69 6e 73 65 72 74 2e 0a 2a 2f 0a 73 74 61 74 insert..*/.stat
2670: 69 63 20 69 6e 74 20 74 65 73 74 5f 6c 61 73 74 ic int test_last
2680: 5f 72 6f 77 69 64 28 0a 20 20 76 6f 69 64 20 2a _rowid(. void *
2690: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 NotUsed,. Tcl_I
26a0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 nterp *interp,
26b0: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 /* The TCL int
26c0: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e erpreter that in
26d0: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 voked this comma
26e0: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 nd */. int argc
26f0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f , /
2700: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
2710: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 ments */. char
2720: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 **argv
2730: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 /* Text of eac
2740: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b h argument */.){
2750: 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 3b 0a 20 . sqlite *db;.
2760: 20 63 68 61 72 20 7a 42 75 66 5b 33 30 5d 3b 0a char zBuf[30];.
2770: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 . if( argc!=2 )
2780: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
2790: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
27a0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
27b0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
27c0: 76 5b 30 5d 2c 20 22 20 44 42 5c 22 22 2c 20 30 v[0], " DB\"", 0
27d0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
27e0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
27f0: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 f( getDbPointer(
2800: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
2810: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
2820: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 70 72 69 CL_ERROR;. spri
2830: 6e 74 66 28 7a 42 75 66 2c 20 22 25 6c 6c 64 22 ntf(zBuf, "%lld"
2840: 2c 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 , sqlite3_last_i
2850: 6e 73 65 72 74 5f 72 6f 77 69 64 28 64 62 29 29 nsert_rowid(db))
2860: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
2870: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 sult(interp, zBu
2880: 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 f, 0);. return
2890: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a SQLITE_OK;.}../*
28a0: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
28b0: 74 65 33 5f 63 6c 6f 73 65 20 44 42 0a 2a 2a 0a te3_close DB.**.
28c0: 2a 2a 20 43 6c 6f 73 65 73 20 74 68 65 20 64 61 ** Closes the da
28d0: 74 61 62 61 73 65 20 6f 70 65 6e 65 64 20 62 79 tabase opened by
28e0: 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 2e 0a 2a sqlite3_open..*
28f0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c /.static int sql
2900: 69 74 65 5f 74 65 73 74 5f 63 6c 6f 73 65 28 0a ite_test_close(.
2910: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
2920: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
2930: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
2940: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
2950: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
2960: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
2970: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
2980: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
2990: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
29a0: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
29b0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
29c0: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
29d0: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 nt */.){. sqlit
29e0: 65 20 2a 64 62 3b 0a 20 20 69 66 28 20 61 72 67 e *db;. if( arg
29f0: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
2a00: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
2a10: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
2a20: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
2a30: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 ", argv[0],.
2a40: 20 20 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 " FILENAME\""
2a50: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
2a60: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
2a70: 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
2a80: 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
2a90: 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 1], &db) ) retur
2aa0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 n TCL_ERROR;. s
2ab0: 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 64 62 29 qlite3_close(db)
2ac0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
2ad0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c K;.}../*.** Impl
2ae0: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 ementation of th
2af0: 65 20 78 5f 63 6f 61 6c 65 73 63 65 28 29 20 66 e x_coalesce() f
2b00: 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 20 52 65 74 75 unction..** Retu
2b10: 72 6e 20 74 68 65 20 66 69 72 73 74 20 61 72 67 rn the first arg
2b20: 75 6d 65 6e 74 20 6e 6f 6e 2d 4e 55 4c 4c 20 61 ument non-NULL a
2b30: 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 rgument..*/.stat
2b40: 69 63 20 76 6f 69 64 20 69 66 6e 75 6c 6c 46 75 ic void ifnullFu
2b50: 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 nc(sqlite3_conte
2b60: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 xt *context, int
2b70: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 argc, sqlite3_v
2b80: 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 alue **argv){.
2b90: 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d 30 int i;. for(i=0
2ba0: 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a ; i<argc; i++){.
2bb0: 20 20 20 20 69 66 28 20 53 51 4c 49 54 45 5f 4e if( SQLITE_N
2bc0: 55 4c 4c 21 3d 73 71 6c 69 74 65 33 5f 76 61 6c ULL!=sqlite3_val
2bd0: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 69 5d 29 ue_type(argv[i])
2be0: 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 ){. sqlite
2bf0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 3_result_text(co
2c00: 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 ntext, sqlite3_v
2c10: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 69 alue_text(argv[i
2c20: 5d 29 2c 20 2d 31 2c 20 31 29 3b 0a 20 20 20 20 ]), -1, 1);.
2c30: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 break;. }.
2c40: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 74 }.}../*.** A st
2c50: 72 75 63 74 75 72 65 20 69 6e 74 6f 20 77 68 69 ructure into whi
2c60: 63 68 20 74 6f 20 61 63 63 75 6d 75 6c 61 74 65 ch to accumulate
2c70: 20 74 65 78 74 2e 0a 2a 2f 0a 73 74 72 75 63 74 text..*/.struct
2c80: 20 64 73 74 72 20 7b 0a 20 20 69 6e 74 20 6e 41 dstr {. int nA
2c90: 6c 6c 6f 63 3b 20 20 2f 2a 20 53 70 61 63 65 20 lloc; /* Space
2ca0: 61 6c 6c 6f 63 61 74 65 64 20 2a 2f 0a 20 20 69 allocated */. i
2cb0: 6e 74 20 6e 55 73 65 64 3b 20 20 20 2f 2a 20 53 nt nUsed; /* S
2cc0: 70 61 63 65 20 75 73 65 64 20 2a 2f 0a 20 20 63 pace used */. c
2cd0: 68 61 72 20 2a 7a 3b 20 20 20 20 20 2f 2a 20 54 har *z; /* T
2ce0: 68 65 20 73 70 61 63 65 20 2a 2f 0a 7d 3b 0a 0a he space */.};..
2cf0: 2f 2a 0a 2a 2a 20 41 70 70 65 6e 64 20 74 65 78 /*.** Append tex
2d00: 74 20 74 6f 20 61 20 64 73 74 72 0a 2a 2f 0a 73 t to a dstr.*/.s
2d10: 74 61 74 69 63 20 76 6f 69 64 20 64 73 74 72 41 tatic void dstrA
2d20: 70 70 65 6e 64 28 73 74 72 75 63 74 20 64 73 74 ppend(struct dst
2d30: 72 20 2a 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 r *p, const char
2d40: 20 2a 7a 2c 20 69 6e 74 20 64 69 76 69 64 65 72 *z, int divider
2d50: 29 7b 0a 20 20 69 6e 74 20 6e 20 3d 20 73 74 72 ){. int n = str
2d60: 6c 65 6e 28 7a 29 3b 0a 20 20 69 66 28 20 70 2d len(z);. if( p-
2d70: 3e 6e 55 73 65 64 20 2b 20 6e 20 2b 20 32 20 3e >nUsed + n + 2 >
2d80: 20 70 2d 3e 6e 41 6c 6c 6f 63 20 29 7b 0a 20 20 p->nAlloc ){.
2d90: 20 20 63 68 61 72 20 2a 7a 4e 65 77 3b 0a 20 20 char *zNew;.
2da0: 20 20 70 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 70 2d p->nAlloc = p-
2db0: 3e 6e 41 6c 6c 6f 63 2a 32 20 2b 20 6e 20 2b 20 >nAlloc*2 + n +
2dc0: 32 30 30 3b 0a 20 20 20 20 7a 4e 65 77 20 3d 20 200;. zNew =
2dd0: 73 71 6c 69 74 65 52 65 61 6c 6c 6f 63 28 70 2d sqliteRealloc(p-
2de0: 3e 7a 2c 20 70 2d 3e 6e 41 6c 6c 6f 63 29 3b 0a >z, p->nAlloc);.
2df0: 20 20 20 20 69 66 28 20 7a 4e 65 77 3d 3d 30 20 if( zNew==0
2e00: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 46 ){. sqliteF
2e10: 72 65 65 28 70 2d 3e 7a 29 3b 0a 20 20 20 20 20 ree(p->z);.
2e20: 20 6d 65 6d 73 65 74 28 70 2c 20 30 2c 20 73 69 memset(p, 0, si
2e30: 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 20 20 20 zeof(*p));.
2e40: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 return;. }.
2e50: 20 20 20 70 2d 3e 7a 20 3d 20 7a 4e 65 77 3b 0a p->z = zNew;.
2e60: 20 20 7d 0a 20 20 69 66 28 20 64 69 76 69 64 65 }. if( divide
2e70: 72 20 26 26 20 70 2d 3e 6e 55 73 65 64 3e 30 20 r && p->nUsed>0
2e80: 29 7b 0a 20 20 20 20 70 2d 3e 7a 5b 70 2d 3e 6e ){. p->z[p->n
2e90: 55 73 65 64 2b 2b 5d 20 3d 20 64 69 76 69 64 65 Used++] = divide
2ea0: 72 3b 0a 20 20 7d 0a 20 20 6d 65 6d 63 70 79 28 r;. }. memcpy(
2eb0: 26 70 2d 3e 7a 5b 70 2d 3e 6e 55 73 65 64 5d 2c &p->z[p->nUsed],
2ec0: 20 7a 2c 20 6e 2b 31 29 3b 0a 20 20 70 2d 3e 6e z, n+1);. p->n
2ed0: 55 73 65 64 20 2b 3d 20 6e 3b 0a 7d 0a 0a 2f 2a Used += n;.}../*
2ee0: 0a 2a 2a 20 49 6e 76 6f 6b 65 64 20 66 6f 72 20 .** Invoked for
2ef0: 65 61 63 68 20 63 61 6c 6c 62 61 63 6b 20 66 72 each callback fr
2f00: 6f 6d 20 73 71 6c 69 74 65 33 45 78 65 63 46 75 om sqlite3ExecFu
2f10: 6e 63 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 nc.*/.static int
2f20: 20 65 78 65 63 46 75 6e 63 43 61 6c 6c 62 61 63 execFuncCallbac
2f30: 6b 28 76 6f 69 64 20 2a 70 44 61 74 61 2c 20 69 k(void *pData, i
2f40: 6e 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a nt argc, char **
2f50: 61 72 67 76 2c 20 63 68 61 72 20 2a 2a 4e 6f 74 argv, char **Not
2f60: 55 73 65 64 29 7b 0a 20 20 73 74 72 75 63 74 20 Used){. struct
2f70: 64 73 74 72 20 2a 70 20 3d 20 28 73 74 72 75 63 dstr *p = (struc
2f80: 74 20 64 73 74 72 2a 29 70 44 61 74 61 3b 0a 20 t dstr*)pData;.
2f90: 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d int i;. for(i=
2fa0: 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0; i<argc; i++){
2fb0: 0a 20 20 20 20 69 66 28 20 61 72 67 76 5b 69 5d . if( argv[i]
2fc0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 64 73 74 ==0 ){. dst
2fd0: 72 41 70 70 65 6e 64 28 70 2c 20 22 4e 55 4c 4c rAppend(p, "NULL
2fe0: 22 2c 20 27 20 27 29 3b 0a 20 20 20 20 7d 65 6c ", ' ');. }el
2ff0: 73 65 7b 0a 20 20 20 20 20 20 64 73 74 72 41 70 se{. dstrAp
3000: 70 65 6e 64 28 70 2c 20 61 72 67 76 5b 69 5d 2c pend(p, argv[i],
3010: 20 27 20 27 29 3b 0a 20 20 20 20 7d 0a 20 20 7d ' ');. }. }
3020: 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a . return 0;.}..
3030: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 /*.** Implementa
3040: 74 69 6f 6e 20 6f 66 20 74 68 65 20 78 5f 73 71 tion of the x_sq
3050: 6c 69 74 65 33 5f 65 78 65 63 28 29 20 66 75 6e lite3_exec() fun
3060: 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 66 75 6e ction. This fun
3070: 63 74 69 6f 6e 20 74 61 6b 65 73 0a 2a 2a 20 61 ction takes.** a
3080: 20 73 69 6e 67 6c 65 20 61 72 67 75 6d 65 6e 74 single argument
3090: 20 61 6e 64 20 61 74 74 65 6d 70 74 73 20 74 6f and attempts to
30a0: 20 65 78 65 63 75 74 65 20 74 68 61 74 20 61 72 execute that ar
30b0: 67 75 6d 65 6e 74 20 61 73 20 53 51 4c 20 63 6f gument as SQL co
30c0: 64 65 2e 0a 2a 2a 20 54 68 69 73 20 69 73 20 69 de..** This is i
30d0: 6c 6c 65 67 61 6c 20 61 6e 64 20 73 68 6f 75 6c llegal and shoul
30e0: 64 20 73 65 74 20 74 68 65 20 53 51 4c 49 54 45 d set the SQLITE
30f0: 5f 4d 49 53 55 53 45 20 66 6c 61 67 20 6f 6e 20 _MISUSE flag on
3100: 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a 2a 2a the database..**
3110: 0a 2a 2a 20 32 30 30 34 2d 4a 61 6e 2d 30 37 3a .** 2004-Jan-07:
3120: 20 20 57 65 20 68 61 76 65 20 63 68 61 6e 67 65 We have change
3130: 64 20 74 68 69 73 20 74 6f 20 6d 61 6b 65 20 69 d this to make i
3140: 74 20 6c 65 67 61 6c 20 74 6f 20 63 61 6c 6c 20 t legal to call
3150: 73 71 6c 69 74 65 33 5f 65 78 65 63 28 29 0a 2a sqlite3_exec().*
3160: 2a 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 61 20 * from within a
3170: 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 2e 20 20 function call.
3180: 0a 2a 2a 20 0a 2a 2a 20 54 68 69 73 20 72 6f 75 .** .** This rou
3190: 74 69 6e 65 20 73 69 6d 75 6c 61 74 65 73 20 74 tine simulates t
31a0: 68 65 20 65 66 66 65 63 74 20 6f 66 20 68 61 76 he effect of hav
31b0: 69 6e 67 20 74 77 6f 20 74 68 72 65 61 64 73 20 ing two threads
31c0: 61 74 74 65 6d 70 74 20 74 6f 0a 2a 2a 20 75 73 attempt to.** us
31d0: 65 20 74 68 65 20 73 61 6d 65 20 64 61 74 61 62 e the same datab
31e0: 61 73 65 20 61 74 20 74 68 65 20 73 61 6d 65 20 ase at the same
31f0: 74 69 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 time..*/.static
3200: 76 6f 69 64 20 73 71 6c 69 74 65 33 45 78 65 63 void sqlite3Exec
3210: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
3220: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
3230: 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 , . int argc,
3240: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
3250: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 74 72 **argv.){. str
3260: 75 63 74 20 64 73 74 72 20 78 3b 0a 20 20 6d 65 uct dstr x;. me
3270: 6d 73 65 74 28 26 78 2c 20 30 2c 20 73 69 7a 65 mset(&x, 0, size
3280: 6f 66 28 78 29 29 3b 0a 20 20 73 71 6c 69 74 65 of(x));. sqlite
3290: 33 5f 65 78 65 63 28 28 73 71 6c 69 74 65 2a 29 3_exec((sqlite*)
32a0: 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 sqlite3_user_dat
32b0: 61 28 63 6f 6e 74 65 78 74 29 2c 0a 20 20 20 20 a(context),.
32c0: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f sqlite3_value_
32d0: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 2c 0a 20 text(argv[0]),.
32e0: 20 20 20 20 20 65 78 65 63 46 75 6e 63 43 61 6c execFuncCal
32f0: 6c 62 61 63 6b 2c 20 26 78 2c 20 30 29 3b 0a 20 lback, &x, 0);.
3300: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
3310: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 78 2e text(context, x.
3320: 7a 2c 20 78 2e 6e 55 73 65 64 2c 20 31 29 3b 0a z, x.nUsed, 1);.
3330: 20 20 73 71 6c 69 74 65 46 72 65 65 28 78 2e 7a sqliteFree(x.z
3340: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 );.}../*.** Usag
3350: 65 3a 20 20 73 71 6c 69 74 65 5f 74 65 73 74 5f e: sqlite_test_
3360: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 create_function
3370: 44 42 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 74 68 DB.**.** Call th
3380: 65 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 e sqlite3_create
3390: 5f 66 75 6e 63 74 69 6f 6e 20 41 50 49 20 6f 6e _function API on
33a0: 20 74 68 65 20 67 69 76 65 6e 20 64 61 74 61 62 the given datab
33b0: 61 73 65 20 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 ase in order.**
33c0: 74 6f 20 63 72 65 61 74 65 20 61 20 66 75 6e 63 to create a func
33d0: 74 69 6f 6e 20 6e 61 6d 65 64 20 22 78 5f 63 6f tion named "x_co
33e0: 61 6c 65 73 63 65 22 2e 20 20 54 68 69 73 20 66 alesce". This f
33f0: 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 74 68 65 unction does the
3400: 20 73 61 6d 65 20 74 68 69 6e 67 0a 2a 2a 20 61 same thing.** a
3410: 73 20 74 68 65 20 22 63 6f 61 6c 65 73 63 65 22 s the "coalesce"
3420: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 function. This
3430: 20 66 75 6e 63 74 69 6f 6e 20 61 6c 73 6f 20 72 function also r
3440: 65 67 69 73 74 65 72 73 20 61 6e 20 53 51 4c 20 egisters an SQL
3450: 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 6e 61 6d 65 function.** name
3460: 64 20 22 78 5f 73 71 6c 69 74 65 33 5f 65 78 65 d "x_sqlite3_exe
3470: 63 22 20 74 68 61 74 20 69 6e 76 6f 6b 65 73 20 c" that invokes
3480: 73 71 6c 69 74 65 33 5f 65 78 65 63 28 29 2e 20 sqlite3_exec().
3490: 20 49 6e 76 6f 6b 69 6e 67 20 73 71 6c 69 74 65 Invoking sqlite
34a0: 33 5f 65 78 65 63 28 29 0a 2a 2a 20 69 6e 20 74 3_exec().** in t
34b0: 68 69 73 20 77 61 79 20 69 73 20 69 6c 6c 65 67 his way is illeg
34c0: 61 6c 20 72 65 63 75 72 73 69 6f 6e 20 61 6e 64 al recursion and
34d0: 20 73 68 6f 75 6c 64 20 72 61 69 73 65 20 61 6e should raise an
34e0: 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 65 SQLITE_MISUSE e
34f0: 72 72 6f 72 2e 0a 2a 2a 20 54 68 65 20 65 66 66 rror..** The eff
3500: 65 63 74 20 69 73 20 73 69 6d 69 6c 61 72 20 74 ect is similar t
3510: 6f 20 74 72 79 69 6e 67 20 74 6f 20 75 73 65 20 o trying to use
3520: 74 68 65 20 73 61 6d 65 20 64 61 74 61 62 61 73 the same databas
3530: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 72 6f e connection fro
3540: 6d 0a 2a 2a 20 74 77 6f 20 74 68 72 65 61 64 73 m.** two threads
3550: 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d at the same tim
3560: 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6f 72 69 e..**.** The ori
3570: 67 69 6e 61 6c 20 6d 6f 74 69 76 61 74 69 6f 6e ginal motivation
3580: 20 66 6f 72 20 74 68 69 73 20 72 6f 75 74 69 6e for this routin
3590: 65 20 77 61 73 20 74 6f 20 62 65 20 61 62 6c 65 e was to be able
35a0: 20 74 6f 20 63 61 6c 6c 20 74 68 65 0a 2a 2a 20 to call the.**
35b0: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 sqlite3_create_f
35c0: 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e unction function
35d0: 20 77 68 69 6c 65 20 61 20 71 75 65 72 79 20 69 while a query i
35e0: 73 20 69 6e 20 70 72 6f 67 72 65 73 73 20 69 6e s in progress in
35f0: 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 74 65 73 order.** to tes
3600: 74 20 74 68 65 20 53 51 4c 49 54 45 5f 4d 49 53 t the SQLITE_MIS
3610: 55 53 45 20 64 65 74 65 63 74 69 6f 6e 20 6c 6f USE detection lo
3620: 67 69 63 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 gic..*/.static i
3630: 6e 74 20 74 65 73 74 5f 63 72 65 61 74 65 5f 66 nt test_create_f
3640: 75 6e 63 74 69 6f 6e 28 0a 20 20 76 6f 69 64 20 unction(. void
3650: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f *NotUsed,. Tcl_
3660: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
3670: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e /* The TCL in
3680: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 terpreter that i
3690: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d nvoked this comm
36a0: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 and */. int arg
36b0: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c,
36c0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
36d0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 uments */. char
36e0: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 **argv
36f0: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 /* Text of ea
3700: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 ch argument */.)
3710: 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 3b 0a {. sqlite *db;.
3720: 20 20 65 78 74 65 72 6e 20 76 6f 69 64 20 4d 64 extern void Md
3730: 35 5f 52 65 67 69 73 74 65 72 28 73 71 6c 69 74 5_Register(sqlit
3740: 65 2a 29 3b 0a 20 20 69 66 28 20 61 72 67 63 21 e*);. if( argc!
3750: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
3760: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
3770: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
3780: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
3790: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
37a0: 20 22 20 46 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 " FILENAME\"",
37b0: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
37c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
37d0: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
37e0: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
37f0: 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 , &db) ) return
3800: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c TCL_ERROR;. sql
3810: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 ite3_create_func
3820: 74 69 6f 6e 28 64 62 2c 20 22 78 5f 63 6f 61 6c tion(db, "x_coal
3830: 65 73 63 65 22 2c 20 2d 31 2c 20 30 2c 20 30 2c esce", -1, 0, 0,
3840: 20 30 2c 20 69 66 6e 75 6c 6c 46 75 6e 63 2c 20 0, ifnullFunc,
3850: 30 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 0, 0);. sqlite3
3860: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
3870: 28 64 62 2c 20 22 78 5f 73 71 6c 69 74 65 33 5f (db, "x_sqlite3_
3880: 65 78 65 63 22 2c 20 31 2c 20 30 2c 20 30 2c 20 exec", 1, 0, 0,
3890: 64 62 2c 0a 20 20 20 20 20 20 73 71 6c 69 74 65 db,. sqlite
38a0: 33 45 78 65 63 46 75 6e 63 2c 20 30 2c 20 30 29 3ExecFunc, 0, 0)
38b0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
38c0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 K;.}../*.** Rout
38d0: 69 6e 65 73 20 74 6f 20 69 6d 70 6c 65 6d 65 6e ines to implemen
38e0: 74 20 74 68 65 20 78 5f 63 6f 75 6e 74 28 29 20 t the x_count()
38f0: 61 67 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 aggregate functi
3900: 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 on..*/.typedef s
3910: 74 72 75 63 74 20 43 6f 75 6e 74 43 74 78 20 43 truct CountCtx C
3920: 6f 75 6e 74 43 74 78 3b 0a 73 74 72 75 63 74 20 ountCtx;.struct
3930: 43 6f 75 6e 74 43 74 78 20 7b 0a 20 20 69 6e 74 CountCtx {. int
3940: 20 6e 3b 0a 7d 3b 0a 73 74 61 74 69 63 20 76 6f n;.};.static vo
3950: 69 64 20 63 6f 75 6e 74 53 74 65 70 28 73 71 6c id countStep(sql
3960: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
3970: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
3980: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
3990: 2a 61 72 67 76 29 7b 0a 20 20 43 6f 75 6e 74 43 *argv){. CountC
39a0: 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c tx *p;. p = sql
39b0: 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 ite3_aggregate_c
39c0: 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 ontext(context,
39d0: 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 sizeof(*p));. i
39e0: 66 28 20 28 61 72 67 63 3d 3d 30 20 7c 7c 20 53 f( (argc==0 || S
39f0: 51 4c 49 54 45 5f 4e 55 4c 4c 21 3d 73 71 6c 69 QLITE_NULL!=sqli
3a00: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
3a10: 72 67 76 5b 30 5d 29 20 29 20 26 26 20 70 20 29 rgv[0]) ) && p )
3a20: 7b 0a 20 20 20 20 70 2d 3e 6e 2b 2b 3b 0a 20 20 {. p->n++;.
3a30: 7d 0a 7d 20 20 20 0a 73 74 61 74 69 63 20 76 6f }.} .static vo
3a40: 69 64 20 63 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 id countFinalize
3a50: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 (sqlite3_context
3a60: 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 43 6f *context){. Co
3a70: 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d untCtx *p;. p =
3a80: 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 sqlite3_aggrega
3a90: 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 te_context(conte
3aa0: 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b xt, sizeof(*p));
3ab0: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c . sqlite3_resul
3ac0: 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 70 t_int(context, p
3ad0: 20 3f 20 70 2d 3e 6e 20 3a 20 30 29 3b 0a 7d 0a ? p->n : 0);.}.
3ae0: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
3af0: 71 6c 69 74 65 5f 74 65 73 74 5f 63 72 65 61 74 qlite_test_creat
3b00: 65 5f 61 67 67 72 65 67 61 74 65 20 44 42 0a 2a e_aggregate DB.*
3b10: 2a 0a 2a 2a 20 43 61 6c 6c 20 74 68 65 20 73 71 *.** Call the sq
3b20: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e lite3_create_fun
3b30: 63 74 69 6f 6e 20 41 50 49 20 6f 6e 20 74 68 65 ction API on the
3b40: 20 67 69 76 65 6e 20 64 61 74 61 62 61 73 65 20 given database
3b50: 69 6e 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 63 in order.** to c
3b60: 72 65 61 74 65 20 61 20 66 75 6e 63 74 69 6f 6e reate a function
3b70: 20 6e 61 6d 65 64 20 22 78 5f 63 6f 75 6e 74 22 named "x_count"
3b80: 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e . This function
3b90: 20 64 6f 65 73 20 74 68 65 20 73 61 6d 65 20 74 does the same t
3ba0: 68 69 6e 67 0a 2a 2a 20 61 73 20 74 68 65 20 22 hing.** as the "
3bb0: 6d 64 35 73 75 6d 22 20 66 75 6e 63 74 69 6f 6e md5sum" function
3bc0: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6f 72 69 67 ..**.** The orig
3bd0: 69 6e 61 6c 20 6d 6f 74 69 76 61 74 69 6f 6e 20 inal motivation
3be0: 66 6f 72 20 74 68 69 73 20 72 6f 75 74 69 6e 65 for this routine
3bf0: 20 77 61 73 20 74 6f 20 62 65 20 61 62 6c 65 20 was to be able
3c00: 74 6f 20 63 61 6c 6c 20 74 68 65 0a 2a 2a 20 73 to call the.** s
3c10: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 61 67 qlite3_create_ag
3c20: 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e gregate function
3c30: 20 77 68 69 6c 65 20 61 20 71 75 65 72 79 20 69 while a query i
3c40: 73 20 69 6e 20 70 72 6f 67 72 65 73 73 20 69 6e s in progress in
3c50: 20 6f 72 64 65 72 0a 2a 2a 20 74 6f 20 74 65 73 order.** to tes
3c60: 74 20 74 68 65 20 53 51 4c 49 54 45 5f 4d 49 53 t the SQLITE_MIS
3c70: 55 53 45 20 64 65 74 65 63 74 69 6f 6e 20 6c 6f USE detection lo
3c80: 67 69 63 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 gic..*/.static i
3c90: 6e 74 20 74 65 73 74 5f 63 72 65 61 74 65 5f 61 nt test_create_a
3ca0: 67 67 72 65 67 61 74 65 28 0a 20 20 76 6f 69 64 ggregate(. void
3cb0: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c *NotUsed,. Tcl
3cc0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3cd0: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 /* The TCL i
3ce0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 nterpreter that
3cf0: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d invoked this com
3d00: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 mand */. int ar
3d10: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 gc,
3d20: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 /* Number of ar
3d30: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 guments */. cha
3d40: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 r **argv
3d50: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 /* Text of e
3d60: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a ach argument */.
3d70: 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 3b ){. sqlite *db;
3d80: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 . if( argc!=2 )
3d90: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
3da0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
3db0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
3dc0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 ould be \"", arg
3dd0: 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 46 v[0],. " F
3de0: 49 4c 45 4e 41 4d 45 5c 22 22 2c 20 30 29 3b 0a ILENAME\"", 0);.
3df0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
3e00: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
3e10: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
3e20: 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 64 erp, argv[1], &d
3e30: 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f b) ) return TCL_
3e40: 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 33 ERROR;. sqlite3
3e50: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
3e60: 28 64 62 2c 20 22 78 5f 63 6f 75 6e 74 22 2c 20 (db, "x_count",
3e70: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 63 6f 0, 0, 0, 0, 0,co
3e80: 75 6e 74 53 74 65 70 2c 63 6f 75 6e 74 46 69 6e untStep,countFin
3e90: 61 6c 69 7a 65 29 3b 0a 20 20 73 71 6c 69 74 65 alize);. sqlite
3ea0: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 3_create_functio
3eb0: 6e 28 64 62 2c 20 22 78 5f 63 6f 75 6e 74 22 2c n(db, "x_count",
3ec0: 20 31 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 63 1, 0, 0, 0, 0,c
3ed0: 6f 75 6e 74 53 74 65 70 2c 63 6f 75 6e 74 46 69 ountStep,countFi
3ee0: 6e 61 6c 69 7a 65 29 3b 0a 20 20 72 65 74 75 72 nalize);. retur
3ef0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 0a 2f n TCL_OK;.}..../
3f00: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
3f10: 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e 74 ite3_mprintf_int
3f20: 20 46 4f 52 4d 41 54 20 49 4e 54 45 47 45 52 20 FORMAT INTEGER
3f30: 49 4e 54 45 47 45 52 20 49 4e 54 45 47 45 52 0a INTEGER INTEGER.
3f40: 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 69 6e **.** Call mprin
3f50: 74 66 20 77 69 74 68 20 74 68 72 65 65 20 69 6e tf with three in
3f60: 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 73 0a teger arguments.
3f70: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 */.static int sq
3f80: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 69 6e lite3_mprintf_in
3f90: 74 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 t(. void *NotUs
3fa0: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ed,. Tcl_Interp
3fb0: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 *interp, /*
3fc0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 The TCL interpre
3fd0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 ter that invoked
3fe0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f this command */
3ff0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 . int argc,
4000: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
4010: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
4020: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 */. char **arg
4030: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 v /*
4040: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 Text of each arg
4050: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e ument */.){. in
4060: 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 20 63 68 61 t a[3], i;. cha
4070: 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 r *z;. if( argc
4080: 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=5 ){. Tcl_A
4090: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
40a0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
40b0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
40c0: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 , argv[0],.
40d0: 20 20 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 " FORMAT INT I
40e0: 4e 54 20 49 4e 54 5c 22 22 2c 20 30 29 3b 0a 20 NT INT\"", 0);.
40f0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
4100: 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 ROR;. }. for(i
4110: 3d 32 3b 20 69 3c 35 3b 20 69 2b 2b 29 7b 0a 20 =2; i<5; i++){.
4120: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e if( Tcl_GetIn
4130: 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 t(interp, argv[i
4140: 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 29 20 72 65 ], &a[i-2]) ) re
4150: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
4160: 20 20 7d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 }. z = sqlite
4170: 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 31 3_mprintf(argv[1
4180: 5d 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 61 ], a[0], a[1], a
4190: 5b 32 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 [2]);. Tcl_Appe
41a0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
41b0: 20 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 z, 0);. sqlite
41c0: 33 5f 66 72 65 65 6d 65 6d 28 7a 29 3b 0a 20 20 3_freemem(z);.
41d0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
41e0: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
41f0: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
4200: 73 74 72 20 46 4f 52 4d 41 54 20 49 4e 54 45 47 str FORMAT INTEG
4210: 45 52 20 49 4e 54 45 47 45 52 20 53 54 52 49 4e ER INTEGER STRIN
4220: 47 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 20 6d 70 72 G.**.** Call mpr
4230: 69 6e 74 66 20 77 69 74 68 20 74 77 6f 20 69 6e intf with two in
4240: 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 73 20 teger arguments
4250: 61 6e 64 20 6f 6e 65 20 73 74 72 69 6e 67 20 61 and one string a
4260: 72 67 75 6d 65 6e 74 0a 2a 2f 0a 73 74 61 74 69 rgument.*/.stati
4270: 63 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 c int sqlite3_mp
4280: 72 69 6e 74 66 5f 73 74 72 28 0a 20 20 76 6f 69 rintf_str(. voi
4290: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
42a0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
42b0: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
42c0: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
42d0: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
42e0: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
42f0: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
4300: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
4310: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
4320: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
4330: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
4340: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
4350: 0a 29 7b 0a 20 20 69 6e 74 20 61 5b 33 5d 2c 20 .){. int a[3],
4360: 69 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 i;. char *z;.
4370: 69 66 28 20 61 72 67 63 3c 34 20 7c 7c 20 61 72 if( argc<4 || ar
4380: 67 63 3e 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f gc>5 ){. Tcl_
4390: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
43a0: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 erp, "wrong # ar
43b0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
43c0: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 ", argv[0],.
43d0: 20 20 20 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 " FORMAT INT
43e0: 49 4e 54 20 3f 53 54 52 49 4e 47 3f 5c 22 22 2c INT ?STRING?\"",
43f0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
4400: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
4410: 20 66 6f 72 28 69 3d 32 3b 20 69 3c 34 3b 20 69 for(i=2; i<4; i
4420: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c ++){. if( Tcl
4430: 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 _GetInt(interp,
4440: 61 72 67 76 5b 69 5d 2c 20 26 61 5b 69 2d 32 5d argv[i], &a[i-2]
4450: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
4460: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 3d 20 RROR;. }. z =
4470: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 sqlite3_mprintf(
4480: 61 72 67 76 5b 31 5d 2c 20 61 5b 30 5d 2c 20 61 argv[1], a[0], a
4490: 5b 31 5d 2c 20 61 72 67 63 3e 34 20 3f 20 61 72 [1], argc>4 ? ar
44a0: 67 76 5b 34 5d 20 3a 20 4e 55 4c 4c 29 3b 0a 20 gv[4] : NULL);.
44b0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
44c0: 74 28 69 6e 74 65 72 70 2c 20 7a 2c 20 30 29 3b t(interp, z, 0);
44d0: 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 6d . sqlite3_freem
44e0: 65 6d 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 em(z);. return
44f0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
4500: 20 55 73 61 67 65 3a 20 20 73 71 6c 69 74 65 33 Usage: sqlite3
4510: 5f 6d 70 72 69 6e 74 66 5f 73 74 72 20 46 4f 52 _mprintf_str FOR
4520: 4d 41 54 20 49 4e 54 45 47 45 52 20 49 4e 54 45 MAT INTEGER INTE
4530: 47 45 52 20 44 4f 55 42 4c 45 0a 2a 2a 0a 2a 2a GER DOUBLE.**.**
4540: 20 43 61 6c 6c 20 6d 70 72 69 6e 74 66 20 77 69 Call mprintf wi
4550: 74 68 20 74 77 6f 20 69 6e 74 65 67 65 72 20 61 th two integer a
4560: 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 6f 6e 65 rguments and one
4570: 20 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e 74 double argument
4580: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 .*/.static int s
4590: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 64 qlite3_mprintf_d
45a0: 6f 75 62 6c 65 28 0a 20 20 76 6f 69 64 20 2a 4e ouble(. void *N
45b0: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e otUsed,. Tcl_In
45c0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
45d0: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
45e0: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
45f0: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
4600: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c d */. int argc,
4610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
4620: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
4630: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a ents */. char *
4640: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 *argv
4650: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 /* Text of each
4660: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a argument */.){.
4670: 20 20 69 6e 74 20 61 5b 33 5d 2c 20 69 3b 0a 20 int a[3], i;.
4680: 20 64 6f 75 62 6c 65 20 72 3b 0a 20 20 63 68 61 double r;. cha
4690: 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 72 67 63 r *z;. if( argc
46a0: 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=5 ){. Tcl_A
46b0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
46c0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
46d0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
46e0: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 , argv[0],.
46f0: 20 20 22 20 46 4f 52 4d 41 54 20 49 4e 54 20 49 " FORMAT INT I
4700: 4e 54 20 53 54 52 49 4e 47 5c 22 22 2c 20 30 29 NT STRING\"", 0)
4710: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
4720: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 6f _ERROR;. }. fo
4730: 72 28 69 3d 32 3b 20 69 3c 34 3b 20 69 2b 2b 29 r(i=2; i<4; i++)
4740: 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 {. if( Tcl_Ge
4750: 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 tInt(interp, arg
4760: 76 5b 69 5d 2c 20 26 61 5b 69 2d 32 5d 29 20 29 v[i], &a[i-2]) )
4770: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
4780: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c R;. }. if( Tcl
4790: 5f 47 65 74 44 6f 75 62 6c 65 28 69 6e 74 65 72 _GetDouble(inter
47a0: 70 2c 20 61 72 67 76 5b 34 5d 2c 20 26 72 29 20 p, argv[4], &r)
47b0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
47c0: 4f 52 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 OR;. z = sqlite
47d0: 33 5f 6d 70 72 69 6e 74 66 28 61 72 67 76 5b 31 3_mprintf(argv[1
47e0: 5d 2c 20 61 5b 30 5d 2c 20 61 5b 31 5d 2c 20 72 ], a[0], a[1], r
47f0: 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 );. Tcl_AppendR
4800: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 2c esult(interp, z,
4810: 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 0);. sqlite3_f
4820: 72 65 65 6d 65 6d 28 7a 29 3b 0a 20 20 72 65 74 reemem(z);. ret
4830: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
4840: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
4850: 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f 73 74 72 ite3_mprintf_str
4860: 20 46 4f 52 4d 41 54 20 44 4f 55 42 4c 45 20 44 FORMAT DOUBLE D
4870: 4f 55 42 4c 45 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c OUBLE.**.** Call
4880: 20 6d 70 72 69 6e 74 66 20 77 69 74 68 20 61 20 mprintf with a
4890: 73 69 6e 67 6c 65 20 64 6f 75 62 6c 65 20 61 72 single double ar
48a0: 67 75 6d 65 6e 74 20 77 68 69 63 68 20 69 73 20 gument which is
48b0: 74 68 65 20 70 72 6f 64 75 63 74 20 6f 66 20 74 the product of t
48c0: 68 65 0a 2a 2a 20 74 77 6f 20 61 72 67 75 6d 65 he.** two argume
48d0: 6e 74 73 20 67 69 76 65 6e 20 61 62 6f 76 65 2e nts given above.
48e0: 20 20 54 68 69 73 20 69 73 20 75 73 65 64 20 74 This is used t
48f0: 6f 20 67 65 6e 65 72 61 74 65 20 6f 76 65 72 66 o generate overf
4900: 6c 6f 77 20 61 6e 64 20 75 6e 64 65 72 66 6c 6f low and underflo
4910: 77 0a 2a 2a 20 64 6f 75 62 6c 65 73 20 74 6f 20 w.** doubles to
4920: 74 65 73 74 20 74 68 61 74 20 74 68 65 79 20 61 test that they a
4930: 72 65 20 63 6f 6e 76 65 72 74 65 64 20 70 72 6f re converted pro
4940: 70 65 72 6c 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 perly..*/.static
4950: 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 6d 70 72 int sqlite3_mpr
4960: 69 6e 74 66 5f 73 63 61 6c 65 64 28 0a 20 20 76 intf_scaled(. v
4970: 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 oid *NotUsed,.
4980: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4990: 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 rp, /* The TC
49a0: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 L interpreter th
49b0: 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 at invoked this
49c0: 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 command */. int
49d0: 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 argc,
49e0: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
49f0: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 arguments */.
4a00: 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 char **argv
4a10: 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f /* Text o
4a20: 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 f each argument
4a30: 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 */.){. int i;.
4a40: 20 64 6f 75 62 6c 65 20 72 5b 32 5d 3b 0a 20 20 double r[2];.
4a50: 63 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20 61 char *z;. if( a
4a60: 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 rgc!=4 ){. Tc
4a70: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
4a80: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
4a90: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
4aa0: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 \"", argv[0],.
4ab0: 20 20 20 20 20 22 20 46 4f 52 4d 41 54 20 44 4f " FORMAT DO
4ac0: 55 42 4c 45 20 44 4f 55 42 4c 45 5c 22 22 2c 20 UBLE DOUBLE\"",
4ad0: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
4ae0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
4af0: 66 6f 72 28 69 3d 32 3b 20 69 3c 34 3b 20 69 2b for(i=2; i<4; i+
4b00: 2b 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f +){. if( Tcl_
4b10: 47 65 74 44 6f 75 62 6c 65 28 69 6e 74 65 72 70 GetDouble(interp
4b20: 2c 20 61 72 67 76 5b 69 5d 2c 20 26 72 5b 69 2d , argv[i], &r[i-
4b30: 32 5d 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 2]) ) return TCL
4b40: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 20 _ERROR;. }. z
4b50: 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 = sqlite3_mprint
4b60: 66 28 61 72 67 76 5b 31 5d 2c 20 72 5b 30 5d 2a f(argv[1], r[0]*
4b70: 72 5b 31 5d 29 3b 0a 20 20 54 63 6c 5f 41 70 70 r[1]);. Tcl_App
4b80: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
4b90: 2c 20 7a 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 , z, 0);. sqlit
4ba0: 65 33 5f 66 72 65 65 6d 65 6d 28 7a 29 3b 0a 20 e3_freemem(z);.
4bb0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
4bc0: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
4bd0: 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 sqlite_malloc_fa
4be0: 69 6c 20 4e 0a 2a 2a 0a 2a 2a 20 52 69 67 20 73 il N.**.** Rig s
4bf0: 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 29 20 74 6f qliteMalloc() to
4c00: 20 66 61 69 6c 20 6f 6e 20 74 68 65 20 4e 2d 74 fail on the N-t
4c10: 68 20 63 61 6c 6c 2e 20 20 54 75 72 6e 20 6f 66 h call. Turn of
4c20: 66 20 74 68 69 73 20 6d 65 63 68 61 6e 69 73 6d f this mechanism
4c30: 0a 2a 2a 20 61 6e 64 20 72 65 73 65 74 20 74 68 .** and reset th
4c40: 65 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 e sqlite3_malloc
4c50: 5f 66 61 69 6c 65 64 20 76 61 72 69 61 62 6c 65 _failed variable
4c60: 20 69 73 20 4e 3d 3d 30 2e 0a 2a 2f 0a 23 69 66 is N==0..*/.#if
4c70: 64 65 66 20 4d 45 4d 4f 52 59 5f 44 45 42 55 47 def MEMORY_DEBUG
4c80: 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c 69 .static int sqli
4c90: 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c 28 0a te_malloc_fail(.
4ca0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c void *NotUsed,
4cb0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
4cc0: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 nterp, /* The
4cd0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
4ce0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 that invoked th
4cf0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 is command */.
4d00: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 int argc,
4d10: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
4d20: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f of arguments */
4d30: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 . char **argv
4d40: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 /* Tex
4d50: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 t of each argume
4d60: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 6e nt */.){. int n
4d70: 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 ;. if( argc!=2
4d80: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
4d90: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
4da0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
4db0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 hould be \"", ar
4dc0: 67 76 5b 30 5d 2c 20 22 20 4e 5c 22 22 2c 20 30 gv[0], " N\"", 0
4dd0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
4de0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
4df0: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e f( Tcl_GetInt(in
4e00: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 terp, argv[1], &
4e10: 6e 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f n) ) return TCL_
4e20: 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 33 ERROR;. sqlite3
4e30: 5f 69 4d 61 6c 6c 6f 63 46 61 69 6c 20 3d 20 6e _iMallocFail = n
4e40: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c ;. sqlite3_mall
4e50: 6f 63 5f 66 61 69 6c 65 64 20 3d 20 30 3b 0a 20 oc_failed = 0;.
4e60: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
4e70: 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 }.#endif../*.**
4e80: 55 73 61 67 65 3a 20 73 71 6c 69 74 65 5f 6d 61 Usage: sqlite_ma
4e90: 6c 6c 6f 63 5f 73 74 61 74 0a 2a 2a 0a 2a 2a 20 lloc_stat.**.**
4ea0: 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
4eb0: 72 20 6f 66 20 70 72 69 6f 72 20 63 61 6c 6c 73 r of prior calls
4ec0: 20 74 6f 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 to sqliteMalloc
4ed0: 28 29 20 61 6e 64 20 73 71 6c 69 74 65 46 72 65 () and sqliteFre
4ee0: 65 28 29 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 4d e()..*/.#ifdef M
4ef0: 45 4d 4f 52 59 5f 44 45 42 55 47 0a 73 74 61 74 EMORY_DEBUG.stat
4f00: 69 63 20 69 6e 74 20 73 71 6c 69 74 65 5f 6d 61 ic int sqlite_ma
4f10: 6c 6c 6f 63 5f 73 74 61 74 28 0a 20 20 76 6f 69 lloc_stat(. voi
4f20: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
4f30: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
4f40: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
4f50: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
4f60: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
4f70: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
4f80: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
4f90: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
4fa0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
4fb0: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
4fc0: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
4fd0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
4fe0: 0a 29 7b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b .){. char zBuf[
4ff0: 32 30 30 5d 3b 0a 20 20 73 70 72 69 6e 74 66 28 200];. sprintf(
5000: 7a 42 75 66 2c 20 22 25 64 20 25 64 20 25 64 22 zBuf, "%d %d %d"
5010: 2c 20 73 71 6c 69 74 65 33 5f 6e 4d 61 6c 6c 6f , sqlite3_nMallo
5020: 63 2c 20 73 71 6c 69 74 65 33 5f 6e 46 72 65 65 c, sqlite3_nFree
5030: 2c 20 73 71 6c 69 74 65 33 5f 69 4d 61 6c 6c 6f , sqlite3_iMallo
5040: 63 46 61 69 6c 29 3b 0a 20 20 54 63 6c 5f 41 70 cFail);. Tcl_Ap
5050: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
5060: 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 p, zBuf, 0);. r
5070: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
5080: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 55 73 #endif../*.** Us
5090: 61 67 65 3a 20 20 73 71 6c 69 74 65 5f 61 62 6f age: sqlite_abo
50a0: 72 74 0a 2a 2a 0a 2a 2a 20 53 68 75 74 64 6f 77 rt.**.** Shutdow
50b0: 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 6d n the process im
50c0: 6d 65 64 69 61 74 65 6c 79 2e 20 20 54 68 69 73 mediately. This
50d0: 20 69 73 20 6e 6f 74 20 61 20 63 6c 65 61 6e 20 is not a clean
50e0: 73 68 75 74 64 6f 77 6e 2e 0a 2a 2a 20 54 68 69 shutdown..** Thi
50f0: 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 s command is use
5100: 64 20 74 6f 20 74 65 73 74 20 74 68 65 20 72 65 d to test the re
5110: 63 6f 76 65 72 61 62 69 6c 69 74 79 20 6f 66 20 coverability of
5120: 61 20 64 61 74 61 62 61 73 65 20 69 6e 0a 2a 2a a database in.**
5130: 20 74 68 65 20 65 76 65 6e 74 20 6f 66 20 61 20 the event of a
5140: 70 72 6f 67 72 61 6d 20 63 72 61 73 68 2e 0a 2a program crash..*
5150: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71 6c /.static int sql
5160: 69 74 65 5f 61 62 6f 72 74 28 0a 20 20 76 6f 69 ite_abort(. voi
5170: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 d *NotUsed,. Tc
5180: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
5190: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 , /* The TCL
51a0: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 interpreter that
51b0: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f invoked this co
51c0: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 mmand */. int a
51d0: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 rgc,
51e0: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 /* Number of a
51f0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 rguments */. ch
5200: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 ar **argv
5210: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 /* Text of
5220: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f each argument */
5230: 0a 29 7b 0a 20 20 61 73 73 65 72 74 28 20 69 6e .){. assert( in
5240: 74 65 72 70 3d 3d 30 20 29 3b 20 20 20 2f 2a 20 terp==0 ); /*
5250: 54 68 69 73 20 77 69 6c 6c 20 61 6c 77 61 79 73 This will always
5260: 20 66 61 69 6c 20 2a 2f 0a 20 20 72 65 74 75 72 fail */. retur
5270: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
5280: 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 ** The following
5290: 20 72 6f 75 74 69 6e 65 20 69 73 20 61 20 75 73 routine is a us
52a0: 65 72 2d 64 65 66 69 6e 65 64 20 53 51 4c 20 66 er-defined SQL f
52b0: 75 6e 63 74 69 6f 6e 20 77 68 6f 73 65 20 70 75 unction whose pu
52c0: 72 70 6f 73 65 0a 2a 2a 20 69 73 20 74 6f 20 74 rpose.** is to t
52d0: 65 73 74 20 74 68 65 20 73 71 6c 69 74 65 5f 73 est the sqlite_s
52e0: 65 74 5f 72 65 73 75 6c 74 28 29 20 41 50 49 2e et_result() API.
52f0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
5300: 74 65 73 74 46 75 6e 63 28 73 71 6c 69 74 65 33 testFunc(sqlite3
5310: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
5320: 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c t, int argc, sql
5330: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
5340: 76 29 7b 0a 20 20 77 68 69 6c 65 28 20 61 72 67 v){. while( arg
5350: 63 3e 3d 32 20 29 7b 0a 20 20 20 20 63 6f 6e 73 c>=2 ){. cons
5360: 74 20 63 68 61 72 20 2a 7a 41 72 67 30 20 3d 20 t char *zArg0 =
5370: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
5380: 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 xt(argv[0]);.
5390: 20 69 66 28 20 7a 41 72 67 30 20 29 7b 0a 20 20 if( zArg0 ){.
53a0: 20 20 20 20 69 66 28 20 30 3d 3d 73 71 6c 69 74 if( 0==sqlit
53b0: 65 33 53 74 72 49 43 6d 70 28 7a 41 72 67 30 2c e3StrICmp(zArg0,
53c0: 20 22 69 6e 74 22 29 20 29 7b 0a 20 20 20 20 20 "int") ){.
53d0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
53e0: 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 t_int(context, s
53f0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 qlite3_value_int
5400: 28 61 72 67 76 5b 31 5d 29 29 3b 0a 20 20 20 20 (argv[1]));.
5410: 20 20 7d 65 6c 73 65 20 69 66 28 20 73 71 6c 69 }else if( sqli
5420: 74 65 33 53 74 72 49 43 6d 70 28 7a 41 72 67 30 te3StrICmp(zArg0
5430: 2c 22 69 6e 74 36 34 22 29 3d 3d 30 20 29 7b 0a ,"int64")==0 ){.
5440: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f sqlite3_
5450: 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 6f 6e result_int64(con
5460: 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 61 text, sqlite3_va
5470: 6c 75 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 31 lue_int64(argv[1
5480: 5d 29 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 ]));. }else
5490: 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 49 if( sqlite3StrI
54a0: 43 6d 70 28 7a 41 72 67 30 2c 22 73 74 72 69 6e Cmp(zArg0,"strin
54b0: 67 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 g")==0 ){.
54c0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
54d0: 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 _text(context, s
54e0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
54f0: 74 28 61 72 67 76 5b 31 5d 29 2c 20 2d 31 2c 20 t(argv[1]), -1,
5500: 31 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 1);. }else
5510: 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 49 43 if( sqlite3StrIC
5520: 6d 70 28 7a 41 72 67 30 2c 22 64 6f 75 62 6c 65 mp(zArg0,"double
5530: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 ")==0 ){.
5540: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
5550: 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 double(context,
5560: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f sqlite3_value_do
5570: 75 62 6c 65 28 61 72 67 76 5b 31 5d 29 29 3b 0a uble(argv[1]));.
5580: 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 }else if(
5590: 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 7a sqlite3StrICmp(z
55a0: 41 72 67 30 2c 22 6e 75 6c 6c 22 29 3d 3d 30 20 Arg0,"null")==0
55b0: 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 ){. sqlit
55c0: 65 33 5f 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 e3_result_null(c
55d0: 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20 7d ontext);. }
55e0: 65 6c 73 65 20 69 66 28 20 73 71 6c 69 74 65 33 else if( sqlite3
55f0: 53 74 72 49 43 6d 70 28 7a 41 72 67 30 2c 22 76 StrICmp(zArg0,"v
5600: 61 6c 75 65 22 29 3d 3d 30 20 29 7b 0a 20 20 20 alue")==0 ){.
5610: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 sqlite3_res
5620: 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 ult_value(contex
5630: 74 2c 20 61 72 67 76 5b 73 71 6c 69 74 65 33 5f t, argv[sqlite3_
5640: 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 value_int(argv[1
5650: 5d 29 5d 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 ])]);. }els
5660: 65 7b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 e{. goto
5670: 65 72 72 6f 72 5f 6f 75 74 3b 0a 20 20 20 20 20 error_out;.
5680: 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 }. }else{.
5690: 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 5f 6f goto error_o
56a0: 75 74 3b 0a 20 20 20 20 7d 0a 20 20 20 20 61 72 ut;. }. ar
56b0: 67 63 20 2d 3d 20 32 3b 0a 20 20 20 20 61 72 67 gc -= 2;. arg
56c0: 76 20 2b 3d 20 32 3b 0a 20 20 7d 0a 20 20 72 65 v += 2;. }. re
56d0: 74 75 72 6e 3b 0a 0a 65 72 72 6f 72 5f 6f 75 74 turn;..error_out
56e0: 3a 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 :. sqlite3_resu
56f0: 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 lt_error(context
5700: 2c 22 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 ,"first argument
5710: 20 73 68 6f 75 6c 64 20 62 65 20 6f 6e 65 20 6f should be one o
5720: 66 3a 20 22 0a 20 20 20 20 20 20 22 69 6e 74 20 f: ". "int
5730: 69 6e 74 36 34 20 73 74 72 69 6e 67 20 64 6f 75 int64 string dou
5740: 62 6c 65 20 6e 75 6c 6c 20 76 61 6c 75 65 22 2c ble null value",
5750: 20 2d 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 -1);.}../*.** U
5760: 73 61 67 65 3a 20 20 20 73 71 6c 69 74 65 5f 72 sage: sqlite_r
5770: 65 67 69 73 74 65 72 5f 74 65 73 74 5f 66 75 6e egister_test_fun
5780: 63 74 69 6f 6e 20 20 44 42 20 20 4e 41 4d 45 0a ction DB NAME.
5790: 2a 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 20 74 **.** Register t
57a0: 68 65 20 74 65 73 74 20 53 51 4c 20 66 75 6e 63 he test SQL func
57b0: 74 69 6f 6e 20 6f 6e 20 74 68 65 20 64 61 74 61 tion on the data
57c0: 62 61 73 65 20 44 42 20 75 6e 64 65 72 20 74 68 base DB under th
57d0: 65 20 6e 61 6d 65 20 4e 41 4d 45 2e 0a 2a 2f 0a e name NAME..*/.
57e0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
57f0: 72 65 67 69 73 74 65 72 5f 66 75 6e 63 28 0a 20 register_func(.
5800: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a void *NotUsed,.
5810: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
5820: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 terp, /* The
5830: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 TCL interpreter
5840: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 that invoked thi
5850: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 s command */. i
5860: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 nt argc,
5870: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
5880: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a of arguments */.
5890: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 char **argv
58a0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 /* Text
58b0: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e of each argumen
58c0: 74 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 t */.){. sqlite
58d0: 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a *db;. int rc;.
58e0: 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 7b if( argc!=3 ){
58f0: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
5900: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
5910: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
5920: 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 uld be \"", argv
5930: 5b 30 5d 2c 20 0a 20 20 20 20 20 20 20 22 20 44 [0], . " D
5940: 42 20 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 22 B FUNCTION-NAME"
5950: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e , 0);. return
5960: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
5970: 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 if( getDbPoint
5980: 65 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b er(interp, argv[
5990: 31 5d 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 1], &db) ) retur
59a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 n TCL_ERROR;. r
59b0: 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 c = sqlite3_crea
59c0: 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 te_function(db,
59d0: 61 72 67 76 5b 32 5d 2c 20 2d 31 2c 20 30 2c 20 argv[2], -1, 0,
59e0: 30 2c 20 30 2c 20 74 65 73 74 46 75 6e 63 2c 20 0, 0, testFunc,
59f0: 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63 21 0, 0);. if( rc!
5a00: 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =0 ){. Tcl_Ap
5a10: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
5a20: 70 2c 20 73 71 6c 69 74 65 33 5f 65 72 72 6f 72 p, sqlite3_error
5a30: 5f 73 74 72 69 6e 67 28 72 63 29 2c 20 30 29 3b _string(rc), 0);
5a40: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
5a50: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 ERROR;. }. ret
5a60: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
5a70: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c *.** Usage: sql
5a80: 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 20 53 ite3_finalize S
5a90: 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 46 69 6e 61 6c TMT .**.** Final
5aa0: 69 7a 65 20 61 20 73 74 61 74 65 6d 65 6e 74 20 ize a statement
5ab0: 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 handle..*/.stati
5ac0: 63 20 69 6e 74 20 74 65 73 74 5f 66 69 6e 61 6c c int test_final
5ad0: 69 7a 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c ize(. void * cl
5ae0: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
5af0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
5b00: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
5b10: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
5b20: 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 v[].){. sqlite3
5b30: 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 _stmt *pStmt;.
5b40: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
5b50: 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 bjc!=2 ){. Tc
5b60: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
5b70: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
5b80: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
5b90: 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c \"",. Tcl
5ba0: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
5bb0: 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 j(objv[0], 0), "
5bc0: 20 3c 53 54 4d 54 3e 22 2c 20 30 29 3b 0a 20 20 <STMT>", 0);.
5bd0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
5be0: 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 OR;. }.. if( g
5bf0: 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e etStmtPointer(in
5c00: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
5c10: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 ing(objv[1]), &p
5c20: 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 Stmt) ) return T
5c30: 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 CL_ERROR;.. rc
5c40: 3d 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 = sqlite3_finali
5c50: 7a 65 28 70 53 74 6d 74 29 3b 0a 20 20 54 63 6c ze(pStmt);. Tcl
5c60: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
5c70: 70 2c 20 28 63 68 61 72 20 2a 29 65 72 72 6f 72 p, (char *)error
5c80: 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 Name(rc), TCL_ST
5c90: 41 54 49 43 29 3b 0a 20 20 69 66 28 20 72 63 20 ATIC);. if( rc
5ca0: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 ){. return TC
5cb0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 L_ERROR;. }. r
5cc0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
5cd0: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 ./*.** Usage: s
5ce0: 71 6c 69 74 65 33 5f 72 65 73 65 74 20 20 53 54 qlite3_reset ST
5cf0: 4d 54 20 0a 2a 2a 0a 2a 2a 20 46 69 6e 61 6c 69 MT .**.** Finali
5d00: 7a 65 20 61 20 73 74 61 74 65 6d 65 6e 74 20 68 ze a statement h
5d10: 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 andle..*/.static
5d20: 20 69 6e 74 20 74 65 73 74 5f 72 65 73 65 74 28 int test_reset(
5d30: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
5d40: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
5d50: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
5d60: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
5d70: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
5d80: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
5d90: 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 t *pStmt;. int
5da0: 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 rc;.. if( objc!
5db0: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
5dc0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
5dd0: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
5de0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
5df0: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
5e00: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
5e10: 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 3c 53 54 jv[0], 0), " <ST
5e20: 4d 54 3e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 MT>", 0);. re
5e30: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5e40: 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 }.. if( getSt
5e50: 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 mtPointer(interp
5e60: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
5e70: 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 objv[1]), &pStmt
5e80: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
5e90: 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 RROR;.. rc = sq
5ea0: 6c 69 74 65 33 5f 72 65 73 65 74 28 70 53 74 6d lite3_reset(pStm
5eb0: 74 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 0a t);. if( rc ){.
5ec0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
5ed0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 RROR;. }. retu
5ee0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
5ef0: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 73 71 6c 69 .** Usage: sqli
5f00: 74 65 33 5f 72 65 73 65 74 20 20 20 56 4d 20 0a te3_reset VM .
5f10: 2a 2a 0a 2a 2a 20 52 65 73 65 74 20 61 20 76 69 **.** Reset a vi
5f20: 72 74 75 61 6c 20 6d 61 63 68 69 6e 65 20 61 6e rtual machine an
5f30: 64 20 70 72 65 70 61 72 65 20 69 74 20 74 6f 20 d prepare it to
5f40: 62 65 20 72 75 6e 20 61 67 61 69 6e 2e 0a 2a 2f be run again..*/
5f50: 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 ../*.** This is
5f60: 74 68 65 20 22 73 74 61 74 69 63 5f 62 69 6e 64 the "static_bind
5f70: 5f 76 61 6c 75 65 22 20 74 68 61 74 20 76 61 72 _value" that var
5f80: 69 61 62 6c 65 73 20 61 72 65 20 62 6f 75 6e 64 iables are bound
5f90: 20 74 6f 20 77 68 65 6e 0a 2a 2a 20 74 68 65 20 to when.** the
5fa0: 46 4c 41 47 20 6f 70 74 69 6f 6e 20 6f 66 20 73 FLAG option of s
5fb0: 71 6c 69 74 65 33 5f 62 69 6e 64 20 69 73 20 22 qlite3_bind is "
5fc0: 73 74 61 74 69 63 22 0a 2a 2f 0a 73 74 61 74 69 static".*/.stati
5fd0: 63 20 63 68 61 72 20 2a 73 71 6c 69 74 65 5f 73 c char *sqlite_s
5fe0: 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 tatic_bind_value
5ff0: 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 = 0;../*.** Usa
6000: 67 65 3a 20 20 73 71 6c 69 74 65 33 5f 62 69 6e ge: sqlite3_bin
6010: 64 20 20 56 4d 20 20 49 44 58 20 20 56 41 4c 55 d VM IDX VALU
6020: 45 20 20 46 4c 41 47 53 0a 2a 2a 0a 2a 2a 20 53 E FLAGS.**.** S
6030: 65 74 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 ets the value of
6040: 20 74 68 65 20 49 44 58 2d 74 68 20 6f 63 63 75 the IDX-th occu
6050: 72 61 6e 63 65 20 6f 66 20 22 3f 22 20 69 6e 20 rance of "?" in
6060: 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 53 51 4c the original SQL
6070: 0a 2a 2a 20 73 74 72 69 6e 67 2e 20 20 56 41 4c .** string. VAL
6080: 55 45 20 69 73 20 74 68 65 20 6e 65 77 20 76 61 UE is the new va
6090: 6c 75 65 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d lue. If FLAGS==
60a0: 22 6e 75 6c 6c 22 20 74 68 65 6e 20 56 41 4c 55 "null" then VALU
60b0: 45 20 69 73 0a 2a 2a 20 69 67 6e 6f 72 65 64 20 E is.** ignored
60c0: 61 6e 64 20 74 68 65 20 76 61 6c 75 65 20 69 73 and the value is
60d0: 20 73 65 74 20 74 6f 20 4e 55 4c 4c 2e 20 20 49 set to NULL. I
60e0: 66 20 46 4c 41 47 53 3d 3d 22 73 74 61 74 69 63 f FLAGS=="static
60f0: 22 20 74 68 65 6e 0a 2a 2a 20 74 68 65 20 76 61 " then.** the va
6100: 6c 75 65 20 69 73 20 73 65 74 20 74 6f 20 74 68 lue is set to th
6110: 65 20 76 61 6c 75 65 20 6f 66 20 61 20 73 74 61 e value of a sta
6120: 74 69 63 20 76 61 72 69 61 62 6c 65 20 6e 61 6d tic variable nam
6130: 65 64 0a 2a 2a 20 22 73 71 6c 69 74 65 5f 73 74 ed.** "sqlite_st
6140: 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 22 atic_bind_value"
6150: 2e 20 20 49 66 20 46 4c 41 47 53 3d 3d 22 6e 6f . If FLAGS=="no
6160: 72 6d 61 6c 22 20 74 68 65 6e 20 61 20 63 6f 70 rmal" then a cop
6170: 79 0a 2a 2a 20 6f 66 20 74 68 65 20 56 41 4c 55 y.** of the VALU
6180: 45 20 69 73 20 6d 61 64 65 2e 0a 2a 2f 0a 73 74 E is made..*/.st
6190: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 atic int test_bi
61a0: 6e 64 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 nd(. void *NotU
61b0: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 sed,. Tcl_Inter
61c0: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a p *interp, /*
61d0: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 The TCL interpr
61e0: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 eter that invoke
61f0: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a d this command *
6200: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 /. int argc,
6210: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
6220: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
6230: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 s */. char **ar
6240: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a gv /*
6250: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 Text of each ar
6260: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 73 gument */.){. s
6270: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
6280: 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 mt;. int rc;.
6290: 69 6e 74 20 69 64 78 3b 0a 20 20 69 66 28 20 61 int idx;. if( a
62a0: 72 67 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 rgc!=5 ){. Tc
62b0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
62c0: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
62d0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
62e0: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 20 0a 20 \"", argv[0], .
62f0: 20 20 20 20 20 20 22 20 56 4d 20 49 44 58 20 56 " VM IDX V
6300: 41 4c 55 45 20 28 6e 75 6c 6c 7c 73 74 61 74 69 ALUE (null|stati
6310: 63 7c 6e 6f 72 6d 61 6c 29 5c 22 22 2c 20 30 29 c|normal)\"", 0)
6320: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
6330: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
6340: 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 ( getStmtPointer
6350: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
6360: 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
6370: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
6380: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 if( Tcl_GetInt(i
6390: 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c 20 nterp, argv[2],
63a0: 26 69 64 78 29 20 29 20 72 65 74 75 72 6e 20 54 &idx) ) return T
63b0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 CL_ERROR;. if(
63c0: 73 74 72 63 6d 70 28 61 72 67 76 5b 34 5d 2c 22 strcmp(argv[4],"
63d0: 6e 75 6c 6c 22 29 3d 3d 30 20 29 7b 0a 20 20 20 null")==0 ){.
63e0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 rc = sqlite3_bi
63f0: 6e 64 5f 6e 75 6c 6c 28 70 53 74 6d 74 2c 20 69 nd_null(pStmt, i
6400: 64 78 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 dx);. }else if(
6410: 20 73 74 72 63 6d 70 28 61 72 67 76 5b 34 5d 2c strcmp(argv[4],
6420: 22 73 74 61 74 69 63 22 29 3d 3d 30 20 29 7b 0a "static")==0 ){.
6430: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 rc = sqlite3
6440: 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 _bind_text(pStmt
6450: 2c 20 69 64 78 2c 20 73 71 6c 69 74 65 5f 73 74 , idx, sqlite_st
6460: 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 65 2c atic_bind_value,
6470: 20 2d 31 2c 20 30 29 3b 0a 20 20 7d 65 6c 73 65 -1, 0);. }else
6480: 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67 76 if( strcmp(argv
6490: 5b 34 5d 2c 22 6e 6f 72 6d 61 6c 22 29 3d 3d 30 [4],"normal")==0
64a0: 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c ){. rc = sql
64b0: 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 ite3_bind_text(p
64c0: 53 74 6d 74 2c 20 69 64 78 2c 20 61 72 67 76 5b Stmt, idx, argv[
64d0: 33 5d 2c 20 2d 31 2c 20 31 29 3b 0a 20 20 7d 65 3], -1, 1);. }e
64e0: 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 lse{. Tcl_App
64f0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
6500: 2c 20 22 34 74 68 20 61 72 67 75 6d 65 6e 74 20 , "4th argument
6510: 73 68 6f 75 6c 64 20 62 65 20 22 0a 20 20 20 20 should be ".
6520: 20 20 20 20 22 5c 22 6e 75 6c 6c 5c 22 20 6f 72 "\"null\" or
6530: 20 5c 22 73 74 61 74 69 63 5c 22 20 6f 72 20 5c \"static\" or \
6540: 22 6e 6f 72 6d 61 6c 5c 22 22 2c 20 30 29 3b 0a "normal\"", 0);.
6550: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
6560: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
6570: 72 63 20 29 7b 0a 20 20 20 20 63 68 61 72 20 7a rc ){. char z
6580: 42 75 66 5b 35 30 5d 3b 0a 20 20 20 20 73 70 72 Buf[50];. spr
6590: 69 6e 74 66 28 7a 42 75 66 2c 20 22 28 25 64 29 intf(zBuf, "(%d)
65a0: 20 22 2c 20 72 63 29 3b 0a 20 20 20 20 54 63 6c ", rc);. Tcl
65b0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
65c0: 74 65 72 70 2c 20 7a 42 75 66 2c 20 73 71 6c 69 terp, zBuf, sqli
65d0: 74 65 33 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 te3_error_string
65e0: 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 (rc), 0);. re
65f0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
6600: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c }. return TCL
6610: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
6620: 61 67 65 3a 20 20 20 20 62 72 65 61 6b 70 6f 69 age: breakpoi
6630: 6e 74 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f nt.**.** This ro
6640: 75 74 69 6e 65 20 65 78 69 73 74 73 20 66 6f 72 utine exists for
6650: 20 6f 6e 65 20 70 75 72 70 6f 73 65 20 2d 20 74 one purpose - t
6660: 6f 20 70 72 6f 76 69 64 65 20 61 20 70 6c 61 63 o provide a plac
6670: 65 20 74 6f 20 70 75 74 20 61 0a 2a 2a 20 62 72 e to put a.** br
6680: 65 61 6b 70 6f 69 6e 74 20 77 69 74 68 20 47 44 eakpoint with GD
6690: 42 20 74 68 61 74 20 63 61 6e 20 62 65 20 74 72 B that can be tr
66a0: 69 67 67 65 72 65 64 20 75 73 69 6e 67 20 54 43 iggered using TC
66b0: 4c 20 63 6f 64 65 2e 20 20 54 68 65 20 75 73 65 L code. The use
66c0: 0a 2a 2a 20 66 6f 72 20 74 68 69 73 20 69 73 20 .** for this is
66d0: 77 68 65 6e 20 61 20 70 61 72 74 69 63 75 6c 61 when a particula
66e0: 72 20 74 65 73 74 20 66 61 69 6c 73 20 6f 6e 20 r test fails on
66f0: 28 73 61 79 29 20 74 68 65 20 31 34 38 35 74 68 (say) the 1485th
6700: 20 69 74 65 72 61 74 69 6f 6e 2e 0a 2a 2a 20 49 iteration..** I
6710: 6e 20 74 68 65 20 54 43 4c 20 74 65 73 74 20 73 n the TCL test s
6720: 63 72 69 70 74 2c 20 77 65 20 63 61 6e 20 61 64 cript, we can ad
6730: 64 20 63 6f 64 65 20 6c 69 6b 65 20 74 68 69 73 d code like this
6740: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 69 66 20 7b :.**.** if {
6750: 24 69 3d 3d 31 34 38 35 7d 20 62 72 65 61 6b 70 $i==1485} breakp
6760: 6f 69 6e 74 0a 2a 2a 0a 2a 2a 20 54 68 65 6e 20 oint.**.** Then
6770: 72 75 6e 20 74 65 73 74 66 69 78 74 75 72 65 20 run testfixture
6780: 69 6e 20 74 68 65 20 64 65 62 75 67 67 65 72 20 in the debugger
6790: 61 6e 64 20 77 61 69 74 20 66 6f 72 20 74 68 65 and wait for the
67a0: 20 62 72 65 61 6b 70 6f 69 6e 74 20 74 6f 0a 2a breakpoint to.*
67b0: 2a 20 66 69 72 65 2e 20 20 54 68 65 6e 20 61 64 * fire. Then ad
67c0: 64 69 74 69 6f 6e 61 6c 20 62 72 65 61 6b 70 6f ditional breakpo
67d0: 69 6e 74 73 20 63 61 6e 20 62 65 20 73 65 74 20 ints can be set
67e0: 74 6f 20 74 72 61 63 65 20 64 6f 77 6e 20 74 68 to trace down th
67f0: 65 20 62 75 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 e bug..*/.static
6800: 20 69 6e 74 20 74 65 73 74 5f 62 72 65 61 6b 70 int test_breakp
6810: 6f 69 6e 74 28 0a 20 20 76 6f 69 64 20 2a 4e 6f oint(. void *No
6820: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 tUsed,. Tcl_Int
6830: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 erp *interp,
6840: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 /* The TCL inter
6850: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f preter that invo
6860: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 ked this command
6870: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 */. int argc,
6880: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
6890: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 Number of argume
68a0: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a nts */. char **
68b0: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 argv
68c0: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 /* Text of each
68d0: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 argument */.){.
68e0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 20 return TCL_OK;
68f0: 20 20 20 20 20 20 20 20 2f 2a 20 44 6f 20 6e 6f /* Do no
6900: 74 68 69 6e 67 20 2a 2f 0a 7d 0a 0a 73 74 61 74 thing */.}..stat
6910: 69 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 ic int test_bind
6920: 5f 69 6e 74 33 32 28 0a 20 20 76 6f 69 64 20 2a _int32(. void *
6930: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
6940: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
6950: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
6960: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
6970: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
6980: 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
6990: 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 6e . int idx;. in
69a0: 74 20 76 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 t value;. int r
69b0: 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d c;.. if( objc!=
69c0: 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 4 ){. Tcl_App
69d0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
69e0: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
69f0: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a should be \"",.
6a00: 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 Tcl_GetS
6a10: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
6a20: 76 5b 30 5d 2c 20 30 29 2c 20 22 20 3c 53 54 4d v[0], 0), " <STM
6a30: 54 3e 20 3c 70 61 72 61 6d 20 6e 6f 2e 3e 20 3c T> <param no.> <
6a40: 76 61 6c 75 65 3e 22 2c 20 30 29 3b 0a 20 20 20 value>", 0);.
6a50: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
6a60: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
6a70: 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
6a80: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
6a90: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
6aa0: 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
6ab0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
6ac0: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
6ad0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
6ae0: 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
6af0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 TCL_ERROR;. if
6b00: 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
6b10: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
6b20: 5b 33 5d 2c 20 26 76 61 6c 75 65 29 20 29 20 72 [3], &value) ) r
6b30: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6b40: 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 .. rc = sqlite3
6b50: 5f 62 69 6e 64 5f 69 6e 74 28 70 53 74 6d 74 2c _bind_int(pStmt,
6b60: 20 69 64 78 2c 20 76 61 6c 75 65 29 3b 0a 20 20 idx, value);.
6b70: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f if( rc!=SQLITE_O
6b80: 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 K ){. return
6b90: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
6ba0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
6bb0: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .}..static int t
6bc0: 65 73 74 5f 62 69 6e 64 5f 69 6e 74 36 34 28 0a est_bind_int64(.
6bd0: 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
6be0: 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
6bf0: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
6c00: 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
6c10: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
6c20: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 {. sqlite3_stmt
6c30: 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 *pStmt;. int i
6c40: 64 78 3b 0a 20 20 69 36 34 20 76 61 6c 75 65 3b dx;. i64 value;
6c50: 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 . int rc;.. if
6c60: 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 ( objc!=4 ){.
6c70: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
6c80: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
6c90: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
6ca0: 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 be \"",.
6cb0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
6cc0: 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 mObj(objv[0], 0)
6cd0: 2c 20 22 20 3c 53 54 4d 54 3e 20 3c 70 61 72 61 , " <STMT> <para
6ce0: 6d 20 6e 6f 2e 3e 20 3c 76 61 6c 75 65 3e 22 2c m no.> <value>",
6cf0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
6d00: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
6d10: 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
6d20: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
6d30: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
6d40: 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
6d50: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6d60: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
6d70: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
6d80: 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 objv[2], &idx)
6d90: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
6da0: 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
6db0: 74 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 tWideIntFromObj(
6dc0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c interp, objv[3],
6dd0: 20 26 76 61 6c 75 65 29 20 29 20 72 65 74 75 72 &value) ) retur
6de0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 n TCL_ERROR;..
6df0: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 6e rc = sqlite3_bin
6e00: 64 5f 69 6e 74 36 34 28 70 53 74 6d 74 2c 20 69 d_int64(pStmt, i
6e10: 64 78 2c 20 76 61 6c 75 65 29 3b 0a 20 20 69 66 dx, value);. if
6e20: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc!=SQLITE_OK
6e30: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 ){. return TC
6e40: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 L_ERROR;. }..
6e50: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
6e60: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 ..static int tes
6e70: 74 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 28 0a 20 t_bind_double(.
6e80: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
6e90: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
6ea0: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
6eb0: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
6ec0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
6ed0: 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
6ee0: 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 *pStmt;. int id
6ef0: 78 3b 0a 20 20 64 6f 75 62 6c 65 20 76 61 6c 75 x;. double valu
6f00: 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 e;. int rc;..
6f10: 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 if( objc!=4 ){.
6f20: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
6f30: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
6f40: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
6f50: 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 d be \"",.
6f60: 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 Tcl_GetStringF
6f70: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 romObj(objv[0],
6f80: 30 29 2c 20 22 20 3c 53 54 4d 54 3e 20 3c 70 61 0), " <STMT> <pa
6f90: 72 61 6d 20 6e 6f 2e 3e 20 3c 76 61 6c 75 65 3e ram no.> <value>
6fa0: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
6fb0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
6fc0: 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 .. if( getStmtP
6fd0: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 ointer(interp, T
6fe0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
6ff0: 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 v[1]), &pStmt) )
7000: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
7010: 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 R;. if( Tcl_Get
7020: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
7030: 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 p, objv[2], &idx
7040: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
7050: 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
7060: 47 65 74 44 6f 75 62 6c 65 46 72 6f 6d 4f 62 6a GetDoubleFromObj
7070: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d (interp, objv[3]
7080: 2c 20 26 76 61 6c 75 65 29 20 29 20 72 65 74 75 , &value) ) retu
7090: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
70a0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 rc = sqlite3_bi
70b0: 6e 64 5f 64 6f 75 62 6c 65 28 70 53 74 6d 74 2c nd_double(pStmt,
70c0: 20 69 64 78 2c 20 76 61 6c 75 65 29 3b 0a 20 20 idx, value);.
70d0: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f if( rc!=SQLITE_O
70e0: 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 K ){. return
70f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
7100: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
7110: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .}..static int t
7120: 65 73 74 5f 62 69 6e 64 5f 6e 75 6c 6c 28 0a 20 est_bind_null(.
7130: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
7140: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
7150: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
7160: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
7170: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
7180: 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 . sqlite3_stmt
7190: 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 *pStmt;. int id
71a0: 78 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 x;. int rc;..
71b0: 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 if( objc!=3 ){.
71c0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
71d0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f ult(interp, "wro
71e0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
71f0: 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 d be \"",.
7200: 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 Tcl_GetStringF
7210: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 romObj(objv[0],
7220: 30 29 2c 20 22 20 3c 53 54 4d 54 3e 20 3c 70 61 0), " <STMT> <pa
7230: 72 61 6d 20 6e 6f 2e 3e 22 2c 20 30 29 3b 0a 20 ram no.>", 0);.
7240: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
7250: 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
7260: 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
7270: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
7280: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
7290: 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
72a0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
72b0: 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
72c0: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
72d0: 32 5d 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 2], &idx) ) retu
72e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
72f0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 rc = sqlite3_bi
7300: 6e 64 5f 6e 75 6c 6c 28 70 53 74 6d 74 2c 20 69 nd_null(pStmt, i
7310: 64 78 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 dx);. if( rc!=S
7320: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 QLITE_OK ){.
7330: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
7340: 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 ;. }.. return
7350: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 TCL_OK;.}..stati
7360: 63 20 69 6e 74 20 74 65 73 74 5f 62 69 6e 64 5f c int test_bind_
7370: 74 65 78 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 text(. void * c
7380: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
7390: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
73a0: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
73b0: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
73c0: 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 jv[].){. sqlite
73d0: 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 3_stmt *pStmt;.
73e0: 20 69 6e 74 20 69 64 78 3b 0a 20 20 69 6e 74 20 int idx;. int
73f0: 62 79 74 65 73 3b 0a 20 20 63 68 61 72 20 2a 76 bytes;. char *v
7400: 61 6c 75 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a alue;. int rc;.
7410: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 29 . if( objc!=5 )
7420: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
7430: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
7440: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
7450: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 ould be \"",.
7460: 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
7470: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 ngFromObj(objv[0
7480: 5d 2c 20 30 29 2c 20 22 20 3c 53 54 4d 54 3e 20 ], 0), " <STMT>
7490: 3c 70 61 72 61 6d 20 6e 6f 2e 3e 20 3c 76 61 6c <param no.> <val
74a0: 75 65 3e 22 0a 20 20 20 20 20 20 20 20 22 20 3c ue>". " <
74b0: 62 79 74 65 73 3e 22 2c 20 30 29 3b 0a 20 20 20 bytes>", 0);.
74c0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
74d0: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 R;. }.. if( ge
74e0: 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 tStmtPointer(int
74f0: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
7500: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 ng(objv[1]), &pS
7510: 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 tmt) ) return TC
7520: 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 L_ERROR;. if( T
7530: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
7540: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
7550: 2c 20 26 69 64 78 29 20 29 20 72 65 74 75 72 6e , &idx) ) return
7560: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 76 61 TCL_ERROR;. va
7570: 6c 75 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 lue = Tcl_GetStr
7580: 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 ing(objv[3]);.
7590: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
75a0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
75b0: 6a 76 5b 34 5d 2c 20 26 62 79 74 65 73 29 20 29 jv[4], &bytes) )
75c0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
75d0: 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 R;.. rc = sqlit
75e0: 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74 e3_bind_text(pSt
75f0: 6d 74 2c 20 69 64 78 2c 20 76 61 6c 75 65 2c 20 mt, idx, value,
7600: 62 79 74 65 73 2c 20 31 29 3b 0a 20 20 69 66 28 bytes, 1);. if(
7610: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc!=SQLITE_OK )
7620: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
7630: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 _ERROR;. }.. r
7640: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
7650: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
7660: 5f 62 69 6e 64 5f 74 65 78 74 31 36 28 0a 20 20 _bind_text16(.
7670: 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
7680: 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
7690: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
76a0: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
76b0: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
76c0: 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
76d0: 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 pStmt;. int idx
76e0: 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 ;. int bytes;.
76f0: 20 63 68 61 72 20 2a 76 61 6c 75 65 3b 0a 20 20 char *value;.
7700: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f int rc;.. if( o
7710: 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 bjc!=5 ){. Tc
7720: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
7730: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
7740: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
7750: 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c \"",. Tcl
7760: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
7770: 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 j(objv[0], 0), "
7780: 20 3c 53 54 4d 54 3e 20 3c 70 61 72 61 6d 20 6e <STMT> <param n
7790: 6f 2e 3e 20 3c 76 61 6c 75 65 3e 22 0a 20 20 20 o.> <value>".
77a0: 20 20 20 20 20 22 20 3c 62 79 74 65 73 3e 22 2c " <bytes>",
77b0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
77c0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
77d0: 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
77e0: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
77f0: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
7800: 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
7810: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
7820: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
7830: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
7840: 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 objv[2], &idx)
7850: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
7860: 4f 52 3b 0a 20 20 76 61 6c 75 65 20 3d 20 54 63 OR;. value = Tc
7870: 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 l_GetByteArrayFr
7880: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 30 omObj(objv[3], 0
7890: 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 );. if( Tcl_Get
78a0: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
78b0: 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 62 79 74 p, objv[4], &byt
78c0: 65 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c es) ) return TCL
78d0: 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 _ERROR;.. rc =
78e0: 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 sqlite3_bind_tex
78f0: 74 31 36 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 t16(pStmt, idx,
7900: 28 76 6f 69 64 20 2a 29 76 61 6c 75 65 2c 20 62 (void *)value, b
7910: 79 74 65 73 2c 20 31 29 3b 0a 20 20 69 66 28 20 ytes, 1);. if(
7920: 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b rc!=SQLITE_OK ){
7930: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
7940: 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 ERROR;. }.. re
7950: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
7960: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
7970: 62 69 6e 64 5f 62 6c 6f 62 28 0a 20 20 76 6f 69 bind_blob(. voi
7980: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
7990: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
79a0: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
79b0: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
79c0: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
79d0: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
79e0: 6d 74 3b 0a 20 20 69 6e 74 20 69 64 78 3b 0a 20 mt;. int idx;.
79f0: 20 69 6e 74 20 62 79 74 65 73 3b 0a 20 20 63 68 int bytes;. ch
7a00: 61 72 20 2a 76 61 6c 75 65 3b 0a 20 20 69 6e 74 ar *value;. int
7a10: 20 72 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 rc;.. if( objc
7a20: 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=5 ){. Tcl_A
7a30: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7a40: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
7a50: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
7a60: 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 ,. Tcl_Ge
7a70: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
7a80: 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 3c 53 bjv[0], 0), " <S
7a90: 54 4d 54 3e 20 3c 70 61 72 61 6d 20 6e 6f 2e 3e TMT> <param no.>
7aa0: 20 3c 76 61 6c 75 65 3e 22 0a 20 20 20 20 20 20 <value>".
7ab0: 20 20 22 20 3c 62 79 74 65 73 3e 22 2c 20 30 29 " <bytes>", 0)
7ac0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
7ad0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
7ae0: 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 f( getStmtPointe
7af0: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
7b00: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
7b10: 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
7b20: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
7b30: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
7b40: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
7b50: 6a 76 5b 32 5d 2c 20 26 69 64 78 29 20 29 20 72 jv[2], &idx) ) r
7b60: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
7b70: 0a 20 20 76 61 6c 75 65 20 3d 20 54 63 6c 5f 47 . value = Tcl_G
7b80: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d etString(objv[3]
7b90: 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 );. if( Tcl_Get
7ba0: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
7bb0: 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 62 79 74 p, objv[4], &byt
7bc0: 65 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c es) ) return TCL
7bd0: 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 _ERROR;.. rc =
7be0: 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 62 6c 6f sqlite3_bind_blo
7bf0: 62 28 70 53 74 6d 74 2c 20 69 64 78 2c 20 76 61 b(pStmt, idx, va
7c00: 6c 75 65 2c 20 62 79 74 65 73 2c 20 31 29 3b 0a lue, bytes, 1);.
7c10: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 if( rc!=SQLITE
7c20: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 72 _OK ){. retur
7c30: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
7c40: 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f .. return TCL_O
7c50: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
7c60: 65 3a 20 73 71 6c 69 74 65 33 5f 65 72 72 63 6f e: sqlite3_errco
7c70: 64 65 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 de DB.**.** Retu
7c80: 72 6e 20 74 68 65 20 73 74 72 69 6e 67 20 72 65 rn the string re
7c90: 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 presentation of
7ca0: 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 the most recent
7cb0: 73 71 6c 69 74 65 33 5f 2a 20 41 50 49 0a 2a 2a sqlite3_* API.**
7cc0: 20 65 72 72 6f 72 20 63 6f 64 65 2e 20 65 2e 67 error code. e.g
7cd0: 2e 20 22 53 51 4c 49 54 45 5f 45 52 52 4f 52 22 . "SQLITE_ERROR"
7ce0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
7cf0: 74 65 73 74 5f 65 72 72 63 6f 64 65 28 0a 20 20 test_errcode(.
7d00: 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 void * clientDat
7d10: 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 a,. Tcl_Interp
7d20: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
7d30: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
7d40: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
7d50: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 0a sqlite3 *db;..
7d60: 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b if( objc!=2 ){
7d70: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
7d80: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 esult(interp, "w
7d90: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
7da0: 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 uld be \"", .
7db0: 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e Tcl_GetStrin
7dc0: 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 42 g(objv[0]), " DB
7dd0: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 ", 0);. retur
7de0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
7df0: 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
7e00: 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
7e10: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
7e20: 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 ]), &db) ) retur
7e30: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 n TCL_ERROR;. T
7e40: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
7e50: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 65 72 72 erp, (char *)err
7e60: 6f 72 4e 61 6d 65 28 73 71 6c 69 74 65 33 5f 65 orName(sqlite3_e
7e70: 72 72 63 6f 64 65 28 64 62 29 29 2c 20 30 29 3b rrcode(db)), 0);
7e80: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
7e90: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
7ea0: 3a 20 20 20 74 65 73 74 5f 65 72 72 6d 73 67 20 : test_errmsg
7eb0: 44 42 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 73 DB.**.** Returns
7ec0: 20 74 68 65 20 55 54 46 2d 38 20 72 65 70 72 65 the UTF-8 repre
7ed0: 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 sentation of the
7ee0: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 73 error message s
7ef0: 74 72 69 6e 67 20 66 6f 72 20 74 68 65 0a 2a 2a tring for the.**
7f00: 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 73 71 6c most recent sql
7f10: 69 74 65 33 5f 2a 20 41 50 49 20 63 61 6c 6c 2e ite3_* API call.
7f20: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
7f30: 65 73 74 5f 65 72 72 6d 73 67 28 0a 20 20 76 6f est_errmsg(. vo
7f40: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
7f50: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
7f60: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
7f70: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
7f80: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
7f90: 73 71 6c 69 74 65 20 2a 64 62 3b 0a 20 20 63 6f sqlite *db;. co
7fa0: 6e 73 74 20 63 68 61 72 20 2a 7a 45 72 72 3b 0a nst char *zErr;.
7fb0: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 . if( objc!=2 )
7fc0: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
7fd0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
7fe0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
7ff0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 ould be \"", .
8000: 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
8010: 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 44 ng(objv[0]), " D
8020: 42 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 B", 0);. retu
8030: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
8040: 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 }. if( getDbPoi
8050: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
8060: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
8070: 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 1]), &db) ) retu
8080: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
8090: 20 7a 45 72 72 20 3d 20 73 71 6c 69 74 65 33 5f zErr = sqlite3_
80a0: 65 72 72 6d 73 67 28 64 62 29 3b 0a 20 20 54 63 errmsg(db);. Tc
80b0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
80c0: 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 nterp, Tcl_NewSt
80d0: 72 69 6e 67 4f 62 6a 28 7a 45 72 72 2c 20 2d 31 ringObj(zErr, -1
80e0: 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ));. return TCL
80f0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
8100: 61 67 65 3a 20 20 20 74 65 73 74 5f 65 72 72 6d age: test_errm
8110: 73 67 31 36 20 44 42 0a 2a 2a 0a 2a 2a 20 52 65 sg16 DB.**.** Re
8120: 74 75 72 6e 73 20 74 68 65 20 55 54 46 2d 31 36 turns the UTF-16
8130: 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 representation
8140: 6f 66 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73 of the error mes
8150: 73 61 67 65 20 73 74 72 69 6e 67 20 66 6f 72 20 sage string for
8160: 74 68 65 0a 2a 2a 20 6d 6f 73 74 20 72 65 63 65 the.** most rece
8170: 6e 74 20 73 71 6c 69 74 65 33 5f 2a 20 41 50 49 nt sqlite3_* API
8180: 20 63 61 6c 6c 2e 20 54 68 69 73 20 69 73 20 61 call. This is a
8190: 20 62 79 74 65 20 61 72 72 61 79 20 6f 62 6a 65 byte array obje
81a0: 63 74 20 61 74 20 74 68 65 20 54 43 4c 20 0a 2a ct at the TCL .*
81b0: 2a 20 6c 65 76 65 6c 2c 20 61 6e 64 20 69 74 20 * level, and it
81c0: 69 6e 63 6c 75 64 65 73 20 74 68 65 20 30 78 30 includes the 0x0
81d0: 30 20 30 78 30 30 20 74 65 72 6d 69 6e 61 74 6f 0 0x00 terminato
81e0: 72 20 62 79 74 65 73 20 61 74 20 74 68 65 20 65 r bytes at the e
81f0: 6e 64 20 6f 66 20 74 68 65 0a 2a 2a 20 55 54 46 nd of the.** UTF
8200: 2d 31 36 20 73 74 72 69 6e 67 2e 0a 2a 2f 0a 73 -16 string..*/.s
8210: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 65 tatic int test_e
8220: 72 72 6d 73 67 31 36 28 0a 20 20 76 6f 69 64 20 rrmsg16(. void
8230: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
8240: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
8250: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
8260: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
8270: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
8280: 69 74 65 20 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 ite *db;. const
8290: 20 76 6f 69 64 20 2a 7a 45 72 72 3b 0a 20 20 69 void *zErr;. i
82a0: 6e 74 20 62 79 74 65 73 3b 0a 0a 20 20 69 66 28 nt bytes;.. if(
82b0: 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
82c0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
82d0: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
82e0: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
82f0: 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 e \"", . T
8300: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
8310: 76 5b 30 5d 29 2c 20 22 20 44 42 22 2c 20 30 29 v[0]), " DB", 0)
8320: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
8330: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
8340: 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 ( getDbPointer(i
8350: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
8360: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
8370: 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c db) ) return TCL
8380: 5f 45 52 52 4f 52 3b 0a 0a 20 20 7a 45 72 72 20 _ERROR;.. zErr
8390: 3d 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 = sqlite3_errmsg
83a0: 31 36 28 64 62 29 3b 0a 20 20 62 79 74 65 73 20 16(db);. bytes
83b0: 3d 20 73 71 6c 69 74 65 33 75 74 66 31 36 42 79 = sqlite3utf16By
83c0: 74 65 4c 65 6e 28 7a 45 72 72 2c 20 2d 31 29 3b teLen(zErr, -1);
83d0: 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 . Tcl_SetObjRes
83e0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
83f0: 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28 NewByteArrayObj(
8400: 7a 45 72 72 2c 20 62 79 74 65 73 29 29 3b 0a 20 zErr, bytes));.
8410: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
8420: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
8430: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20 sqlite3_prepare
8440: 44 42 20 73 71 6c 20 62 79 74 65 73 20 74 61 69 DB sql bytes tai
8450: 6c 76 61 72 0a 2a 2a 0a 2a 2a 20 43 6f 6d 70 69 lvar.**.** Compi
8460: 6c 65 20 75 70 20 74 6f 20 3c 62 79 74 65 73 3e le up to <bytes>
8470: 20 62 79 74 65 73 20 6f 66 20 74 68 65 20 73 75 bytes of the su
8480: 70 70 6c 69 65 64 20 53 51 4c 20 73 74 72 69 6e pplied SQL strin
8490: 67 20 3c 73 71 6c 3e 20 75 73 69 6e 67 0a 2a 2a g <sql> using.**
84a0: 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 database handle
84b0: 20 3c 44 42 3e 2e 20 54 68 65 20 70 61 72 61 6d <DB>. The param
84c0: 65 74 65 72 20 3c 74 61 69 6c 76 61 6c 3e 20 69 eter <tailval> i
84d0: 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 s the name of a
84e0: 67 6c 6f 62 61 6c 0a 2a 2a 20 76 61 72 69 61 62 global.** variab
84f0: 6c 65 20 74 68 61 74 20 69 73 20 73 65 74 20 74 le that is set t
8500: 6f 20 74 68 65 20 75 6e 75 73 65 64 20 70 6f 72 o the unused por
8510: 74 69 6f 6e 20 6f 66 20 3c 73 71 6c 3e 20 28 69 tion of <sql> (i
8520: 66 20 61 6e 79 29 2e 20 41 0a 2a 2a 20 53 54 4d f any). A.** STM
8530: 54 20 68 61 6e 64 6c 65 20 69 73 20 72 65 74 75 T handle is retu
8540: 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 rned..*/.static
8550: 69 6e 74 20 74 65 73 74 5f 70 72 65 70 61 72 65 int test_prepare
8560: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
8570: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
8580: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
8590: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
85a0: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
85b0: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 .){. sqlite3 *d
85c0: 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 b;. const char
85d0: 2a 7a 53 71 6c 3b 0a 20 20 69 6e 74 20 62 79 74 *zSql;. int byt
85e0: 65 73 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 es;. const char
85f0: 20 2a 7a 54 61 69 6c 20 3d 20 30 3b 0a 20 20 73 *zTail = 0;. s
8600: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
8610: 6d 74 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 7a mt = 0;. char z
8620: 42 75 66 5b 35 30 5d 3b 0a 20 20 69 6e 74 20 72 Buf[50];. int r
8630: 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d c;.. if( objc!=
8640: 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 5 ){. Tcl_App
8650: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
8660: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a , "wrong # args:
8670: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 should be \"",
8680: 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 . Tcl_GetS
8690: 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 tring(objv[0]),
86a0: 22 20 44 42 20 73 71 6c 20 62 79 74 65 73 20 74 " DB sql bytes t
86b0: 61 69 6c 76 61 72 22 2c 20 30 29 3b 0a 20 20 20 ailvar", 0);.
86c0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
86d0: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 R;. }. if( get
86e0: 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 DbPointer(interp
86f0: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
8700: 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 objv[1]), &db) )
8710: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
8720: 52 3b 0a 20 20 7a 53 71 6c 20 3d 20 54 63 6c 5f R;. zSql = Tcl_
8730: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 GetString(objv[2
8740: 5d 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 ]);. if( Tcl_Ge
8750: 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
8760: 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 62 79 rp, objv[3], &by
8770: 74 65 73 29 20 29 20 72 65 74 75 72 6e 20 54 43 tes) ) return TC
8780: 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d L_ERROR;.. rc =
8790: 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 sqlite3_prepare
87a0: 28 64 62 2c 20 7a 53 71 6c 2c 20 62 79 74 65 73 (db, zSql, bytes
87b0: 2c 20 26 70 53 74 6d 74 2c 20 26 7a 54 61 69 6c , &pStmt, &zTail
87c0: 29 3b 0a 20 20 69 66 28 20 7a 54 61 69 6c 20 29 );. if( zTail )
87d0: 7b 0a 20 20 20 20 69 66 28 20 62 79 74 65 73 3e {. if( bytes>
87e0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 62 79 74 65 =0 ){. byte
87f0: 73 20 3d 20 62 79 74 65 73 20 2d 20 28 7a 54 61 s = bytes - (zTa
8800: 69 6c 2d 7a 53 71 6c 29 3b 0a 20 20 20 20 7d 0a il-zSql);. }.
8810: 20 20 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 Tcl_ObjSetVa
8820: 72 32 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b r2(interp, objv[
8830: 34 5d 2c 20 30 2c 20 54 63 6c 5f 4e 65 77 53 74 4], 0, Tcl_NewSt
8840: 72 69 6e 67 4f 62 6a 28 7a 54 61 69 6c 2c 20 62 ringObj(zTail, b
8850: 79 74 65 73 29 2c 20 30 29 3b 0a 20 20 7d 0a 20 ytes), 0);. }.
8860: 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f if( rc!=SQLITE_
8870: 4f 4b 20 29 7b 0a 20 20 20 20 61 73 73 65 72 74 OK ){. assert
8880: 28 20 70 53 74 6d 74 3d 3d 30 20 29 3b 0a 20 20 ( pStmt==0 );.
8890: 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 sprintf(zBuf,
88a0: 22 28 25 64 29 20 22 2c 20 72 63 29 3b 0a 20 20 "(%d) ", rc);.
88b0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
88c0: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c lt(interp, zBuf,
88d0: 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 sqlite3_errmsg(
88e0: 64 62 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 db), 0);. ret
88f0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
8900: 20 7d 0a 0a 20 20 69 66 28 20 70 53 74 6d 74 20 }.. if( pStmt
8910: 29 7b 0a 20 20 20 20 69 66 28 20 6d 61 6b 65 50 ){. if( makeP
8920: 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 ointerStr(interp
8930: 2c 20 7a 42 75 66 2c 20 70 53 74 6d 74 29 20 29 , zBuf, pStmt) )
8940: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
8950: 52 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e R;. Tcl_Appen
8960: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
8970: 7a 42 75 66 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 zBuf, 0);. }.
8980: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
8990: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 ../*.** Usage: s
89a0: 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20 44 qlite3_prepare D
89b0: 42 20 73 71 6c 20 62 79 74 65 73 20 74 61 69 6c B sql bytes tail
89c0: 76 61 72 0a 2a 2a 0a 2a 2a 20 43 6f 6d 70 69 6c var.**.** Compil
89d0: 65 20 75 70 20 74 6f 20 3c 62 79 74 65 73 3e 20 e up to <bytes>
89e0: 62 79 74 65 73 20 6f 66 20 74 68 65 20 73 75 70 bytes of the sup
89f0: 70 6c 69 65 64 20 53 51 4c 20 73 74 72 69 6e 67 plied SQL string
8a00: 20 3c 73 71 6c 3e 20 75 73 69 6e 67 0a 2a 2a 20 <sql> using.**
8a10: 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 database handle
8a20: 3c 44 42 3e 2e 20 54 68 65 20 70 61 72 61 6d 65 <DB>. The parame
8a30: 74 65 72 20 3c 74 61 69 6c 76 61 6c 3e 20 69 73 ter <tailval> is
8a40: 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 67 the name of a g
8a50: 6c 6f 62 61 6c 0a 2a 2a 20 76 61 72 69 61 62 6c lobal.** variabl
8a60: 65 20 74 68 61 74 20 69 73 20 73 65 74 20 74 6f e that is set to
8a70: 20 74 68 65 20 75 6e 75 73 65 64 20 70 6f 72 74 the unused port
8a80: 69 6f 6e 20 6f 66 20 3c 73 71 6c 3e 20 28 69 66 ion of <sql> (if
8a90: 20 61 6e 79 29 2e 20 41 0a 2a 2a 20 53 54 4d 54 any). A.** STMT
8aa0: 20 68 61 6e 64 6c 65 20 69 73 20 72 65 74 75 72 handle is retur
8ab0: 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ned..*/.static i
8ac0: 6e 74 20 74 65 73 74 5f 70 72 65 70 61 72 65 31 nt test_prepare1
8ad0: 36 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6(. void * clie
8ae0: 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
8af0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
8b00: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
8b10: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
8b20: 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a ].){. sqlite3 *
8b30: 64 62 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 db;. const void
8b40: 20 2a 7a 53 71 6c 3b 0a 20 20 63 6f 6e 73 74 20 *zSql;. const
8b50: 76 6f 69 64 20 2a 7a 54 61 69 6c 20 3d 20 30 3b void *zTail = 0;
8b60: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 54 61 69 . Tcl_Obj *pTai
8b70: 6c 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 l = 0;. sqlite3
8b80: 5f 73 74 6d 74 20 2a 70 53 74 6d 74 20 3d 20 30 _stmt *pStmt = 0
8b90: 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 ;. char zBuf[50
8ba0: 5d 3b 0a 20 20 69 6e 74 20 62 79 74 65 73 3b 20 ];. int bytes;
8bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
8bc0: 2a 20 54 68 65 20 69 6e 74 65 67 65 72 20 73 70 * The integer sp
8bd0: 65 63 69 66 69 65 64 20 61 73 20 61 72 67 20 33 ecified as arg 3
8be0: 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 6c 65 6e */. int objlen
8bf0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
8c00: 2f 2a 20 54 68 65 20 62 79 74 65 2d 61 72 72 61 /* The byte-arra
8c10: 79 20 6c 65 6e 67 74 68 20 6f 66 20 61 72 67 20 y length of arg
8c20: 32 20 2a 2f 0a 0a 20 20 69 66 28 20 6f 62 6a 63 2 */.. if( objc
8c30: 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 !=5 ){. Tcl_A
8c40: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8c50: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 rp, "wrong # arg
8c60: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 s: should be \""
8c70: 2c 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 , . Tcl_Ge
8c80: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 tString(objv[0])
8c90: 2c 20 22 20 44 42 20 73 71 6c 20 62 79 74 65 73 , " DB sql bytes
8ca0: 20 74 61 69 6c 76 61 72 22 2c 20 30 29 3b 0a 20 tailvar", 0);.
8cb0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
8cc0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 ROR;. }. if( g
8cd0: 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 etDbPointer(inte
8ce0: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
8cf0: 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 g(objv[1]), &db)
8d00: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
8d10: 52 4f 52 3b 0a 20 20 7a 53 71 6c 20 3d 20 54 63 ROR;. zSql = Tc
8d20: 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 l_GetByteArrayFr
8d30: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 omObj(objv[2], &
8d40: 6f 62 6a 6c 65 6e 29 3b 0a 20 20 69 66 28 20 54 objlen);. if( T
8d50: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
8d60: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d (interp, objv[3]
8d70: 2c 20 26 62 79 74 65 73 29 20 29 20 72 65 74 75 , &bytes) ) retu
8d80: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
8d90: 20 69 66 28 20 53 51 4c 49 54 45 5f 4f 4b 21 3d if( SQLITE_OK!=
8da0: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 sqlite3_prepare1
8db0: 36 28 64 62 2c 20 7a 53 71 6c 2c 20 62 79 74 65 6(db, zSql, byte
8dc0: 73 2c 20 26 70 53 74 6d 74 2c 20 26 7a 54 61 69 s, &pStmt, &zTai
8dd0: 6c 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e l) ){. return
8de0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
8df0: 0a 20 20 69 66 28 20 7a 54 61 69 6c 20 29 7b 0a . if( zTail ){.
8e00: 20 20 20 20 6f 62 6a 6c 65 6e 20 3d 20 6f 62 6a objlen = obj
8e10: 6c 65 6e 20 2d 20 28 28 75 38 20 2a 29 7a 54 61 len - ((u8 *)zTa
8e20: 69 6c 2d 28 75 38 20 2a 29 7a 53 71 6c 29 3b 0a il-(u8 *)zSql);.
8e30: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 6f 62 6a }else{. obj
8e40: 6c 65 6e 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 70 len = 0;. }. p
8e50: 54 61 69 6c 20 3d 20 54 63 6c 5f 4e 65 77 42 79 Tail = Tcl_NewBy
8e60: 74 65 41 72 72 61 79 4f 62 6a 28 28 75 38 20 2a teArrayObj((u8 *
8e70: 29 7a 54 61 69 6c 2c 20 6f 62 6a 6c 65 6e 29 3b )zTail, objlen);
8e80: 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f . Tcl_IncrRefCo
8e90: 75 6e 74 28 70 54 61 69 6c 29 3b 0a 20 20 54 63 unt(pTail);. Tc
8ea0: 6c 5f 4f 62 6a 53 65 74 56 61 72 32 28 69 6e 74 l_ObjSetVar2(int
8eb0: 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 30 2c erp, objv[4], 0,
8ec0: 20 70 54 61 69 6c 2c 20 30 29 3b 0a 20 20 54 63 pTail, 0);. Tc
8ed0: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 l_DecrRefCount(p
8ee0: 54 61 69 6c 29 3b 0a 0a 20 20 69 66 28 20 70 53 Tail);.. if( pS
8ef0: 74 6d 74 20 29 7b 0a 20 20 20 20 69 66 28 20 6d tmt ){. if( m
8f00: 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 69 6e akePointerStr(in
8f10: 74 65 72 70 2c 20 7a 42 75 66 2c 20 70 53 74 6d terp, zBuf, pStm
8f20: 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f t) ) return TCL_
8f30: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 54 63 6c ERROR;. }. Tcl
8f40: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
8f50: 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a terp, zBuf, 0);.
8f60: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
8f70: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
8f80: 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 20 66 69 sqlite3_open fi
8f90: 6c 65 6e 61 6d 65 20 3f 6f 70 74 69 6f 6e 73 2d lename ?options-
8fa0: 6c 69 73 74 3f 0a 2a 2f 0a 73 74 61 74 69 63 20 list?.*/.static
8fb0: 69 6e 74 20 74 65 73 74 5f 6f 70 65 6e 28 0a 20 int test_open(.
8fc0: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
8fd0: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
8fe0: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
8ff0: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
9000: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
9010: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
9020: 46 69 6c 65 6e 61 6d 65 3b 0a 20 20 73 71 6c 69 Filename;. sqli
9030: 74 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 te3 *db;. int r
9040: 63 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 31 c;. char zBuf[1
9050: 30 30 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 00];.. if( objc
9060: 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d 32 20 29 !=3 && objc!=2 )
9070: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 {. Tcl_Append
9080: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
9090: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
90a0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 ould be \"", .
90b0: 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 Tcl_GetStri
90c0: 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 66 ng(objv[0]), " f
90d0: 69 6c 65 6e 61 6d 65 20 6f 70 74 69 6f 6e 73 2d ilename options-
90e0: 6c 69 73 74 22 2c 20 30 29 3b 0a 20 20 20 20 72 list", 0);. r
90f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
9100: 0a 20 20 7d 0a 0a 20 20 7a 46 69 6c 65 6e 61 6d . }.. zFilenam
9110: 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e e = Tcl_GetStrin
9120: 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 72 63 g(objv[1]);. rc
9130: 20 3d 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 28 = sqlite3_open(
9140: 7a 46 69 6c 65 6e 61 6d 65 2c 20 26 64 62 2c 20 zFilename, &db,
9150: 30 29 3b 0a 20 20 0a 20 20 69 66 28 20 6d 61 6b 0);. . if( mak
9160: 65 50 6f 69 6e 74 65 72 53 74 72 28 69 6e 74 65 ePointerStr(inte
9170: 72 70 2c 20 7a 42 75 66 2c 20 64 62 29 20 29 20 rp, zBuf, db) )
9180: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
9190: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;. Tcl_AppendRe
91a0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 sult(interp, zBu
91b0: 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 f, 0);. return
91c0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
91d0: 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f Usage: sqlite3_
91e0: 6f 70 65 6e 31 36 20 66 69 6c 65 6e 61 6d 65 20 open16 filename
91f0: 6f 70 74 69 6f 6e 73 0a 2a 2f 0a 73 74 61 74 69 options.*/.stati
9200: 63 20 69 6e 74 20 74 65 73 74 5f 6f 70 65 6e 31 c int test_open1
9210: 36 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6(. void * clie
9220: 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
9230: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
9240: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
9250: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
9260: 5d 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 ].){. const voi
9270: 64 20 2a 7a 46 69 6c 65 6e 61 6d 65 3b 0a 20 20 d *zFilename;.
9280: 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 sqlite3 *db;. i
9290: 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 7a 42 nt rc;. char zB
92a0: 75 66 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 28 20 uf[100];.. if(
92b0: 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 objc!=3 ){. T
92c0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
92d0: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 interp, "wrong #
92e0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
92f0: 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 \"", . Tc
9300: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
9310: 5b 30 5d 29 2c 20 22 20 66 69 6c 65 6e 61 6d 65 [0]), " filename
9320: 20 6f 70 74 69 6f 6e 73 2d 6c 69 73 74 22 2c 20 options-list",
9330: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 0);. return T
9340: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
9350: 20 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 54 63 6c zFilename = Tcl
9360: 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f _GetByteArrayFro
9370: 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 30 29 mObj(objv[1], 0)
9380: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
9390: 5f 6f 70 65 6e 31 36 28 7a 46 69 6c 65 6e 61 6d _open16(zFilenam
93a0: 65 2c 20 26 64 62 2c 20 30 29 3b 0a 20 20 0a 20 e, &db, 0);. .
93b0: 20 69 66 28 20 6d 61 6b 65 50 6f 69 6e 74 65 72 if( makePointer
93c0: 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 Str(interp, zBuf
93d0: 2c 20 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 , db) ) return T
93e0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f CL_ERROR;. Tcl_
93f0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
9400: 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a 20 erp, zBuf, 0);.
9410: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
9420: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
9430: 73 71 6c 69 74 65 33 5f 73 74 65 70 20 53 54 4d sqlite3_step STM
9440: 54 0a 2a 2a 0a 2a 2a 20 41 64 76 61 6e 63 65 20 T.**.** Advance
9450: 74 68 65 20 73 74 61 74 65 6d 65 6e 74 20 74 6f the statement to
9460: 20 74 68 65 20 6e 65 78 74 20 72 6f 77 2e 0a 2a the next row..*
9470: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
9480: 74 5f 73 74 65 70 28 0a 20 20 76 6f 69 64 20 2a t_step(. void *
9490: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
94a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
94b0: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
94c0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
94d0: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 objv[].){. sqli
94e0: 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b te3_stmt *pStmt;
94f0: 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 . int rc;.. if
9500: 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
9510: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
9520: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 t(interp, "wrong
9530: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
9540: 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 be \"", .
9550: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
9560: 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 22 2c jv[0]), " STMT",
9570: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
9580: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
9590: 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
95a0: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
95b0: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
95c0: 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
95d0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
95e0: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
95f0: 73 74 65 70 28 70 53 74 6d 74 29 3b 0a 0a 20 20 step(pStmt);..
9600: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 44 if( rc!=SQLITE_D
9610: 4f 4e 45 20 26 26 20 72 63 21 3d 53 51 4c 49 54 ONE && rc!=SQLIT
9620: 45 5f 52 4f 57 20 29 20 72 65 74 75 72 6e 20 54 E_ROW ) return T
9630: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 54 63 6c 5f CL_ERROR;. Tcl_
9640: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
9650: 2c 20 28 63 68 61 72 20 2a 29 65 72 72 6f 72 4e , (char *)errorN
9660: 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 72 ame(rc), 0);. r
9670: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
9680: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 ./*.** Usage: sq
9690: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 lite3_column_cou
96a0: 6e 74 20 53 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 52 nt STMT .**.** R
96b0: 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 eturn the number
96c0: 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 72 65 74 75 of columns retu
96d0: 72 6e 65 64 20 62 79 20 74 68 65 20 73 71 6c 20 rned by the sql
96e0: 73 74 61 74 65 6d 65 6e 74 20 53 54 4d 54 2e 0a statement STMT..
96f0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
9700: 73 74 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 28 st_column_count(
9710: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
9720: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
9730: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
9740: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
9750: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
9760: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d ){. sqlite3_stm
9770: 74 20 2a 70 53 74 6d 74 3b 0a 0a 20 20 69 66 28 t *pStmt;.. if(
9780: 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
9790: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
97a0: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
97b0: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
97c0: 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 e \"", . T
97d0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
97e0: 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f v[0]), " STMT co
97f0: 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 lumn", 0);. r
9800: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
9810: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 . }.. if( getS
9820: 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tmtPointer(inter
9830: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
9840: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d (objv[1]), &pStm
9850: 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f t) ) return TCL_
9860: 45 52 52 4f 52 3b 0a 0a 20 20 54 63 6c 5f 53 65 ERROR;.. Tcl_Se
9870: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
9880: 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
9890: 28 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f (sqlite3_column_
98a0: 63 6f 75 6e 74 28 70 53 74 6d 74 29 29 29 3b 0a count(pStmt)));.
98b0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
98c0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
98d0: 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
98e0: 74 79 70 65 20 53 54 4d 54 20 63 6f 6c 75 6d 6e type STMT column
98f0: 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 .**.** Return th
9900: 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 64 61 e type of the da
9910: 74 61 20 69 6e 20 63 6f 6c 75 6d 6e 20 27 63 6f ta in column 'co
9920: 6c 75 6d 6e 27 20 6f 66 20 74 68 65 20 63 75 72 lumn' of the cur
9930: 72 65 6e 74 20 72 6f 77 2e 0a 2a 2f 0a 73 74 61 rent row..*/.sta
9940: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c tic int test_col
9950: 75 6d 6e 5f 74 79 70 65 28 0a 20 20 76 6f 69 64 umn_type(. void
9960: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
9970: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
9980: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
9990: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
99a0: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
99b0: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d lite3_stmt *pStm
99c0: 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 t;. int col;.
99d0: 69 6e 74 20 74 70 3b 0a 0a 20 20 69 66 28 20 6f int tp;.. if( o
99e0: 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 bjc!=3 ){. Tc
99f0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
9a00: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
9a10: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
9a20: 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
9a30: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
9a40: 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 0]), " STMT colu
9a50: 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 mn", 0);. ret
9a60: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
9a70: 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d }.. if( getStm
9a80: 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
9a90: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
9aa0: 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 bjv[1]), &pStmt)
9ab0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
9ac0: 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 ROR;. if( Tcl_G
9ad0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
9ae0: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 erp, objv[2], &c
9af0: 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c ol) ) return TCL
9b00: 5f 45 52 52 4f 52 3b 0a 0a 20 20 74 70 20 3d 20 _ERROR;.. tp =
9b10: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 sqlite3_column_t
9b20: 79 70 65 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b ype(pStmt, col);
9b30: 0a 20 20 73 77 69 74 63 68 28 20 74 70 20 29 7b . switch( tp ){
9b40: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
9b50: 5f 49 4e 54 45 47 45 52 3a 20 0a 20 20 20 20 20 _INTEGER: .
9b60: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
9b70: 6e 74 65 72 70 2c 20 22 49 4e 54 45 47 45 52 22 nterp, "INTEGER"
9b80: 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 20 0a , TCL_STATIC); .
9b90: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
9ba0: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c case SQLITE_NUL
9bb0: 4c 3a 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 L:. Tcl_Set
9bc0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
9bd0: 4e 55 4c 4c 22 2c 20 54 43 4c 5f 53 54 41 54 49 NULL", TCL_STATI
9be0: 43 29 3b 20 0a 20 20 20 20 20 20 62 72 65 61 6b C); . break
9bf0: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
9c00: 45 5f 46 4c 4f 41 54 3a 0a 20 20 20 20 20 20 54 E_FLOAT:. T
9c10: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
9c20: 65 72 70 2c 20 22 46 4c 4f 41 54 22 2c 20 54 43 erp, "FLOAT", TC
9c30: 4c 5f 53 54 41 54 49 43 29 3b 20 0a 20 20 20 20 L_STATIC); .
9c40: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
9c50: 65 20 53 51 4c 49 54 45 5f 54 45 58 54 3a 0a 20 e SQLITE_TEXT:.
9c60: 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 Tcl_SetResu
9c70: 6c 74 28 69 6e 74 65 72 70 2c 20 22 54 45 58 54 lt(interp, "TEXT
9c80: 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 20 ", TCL_STATIC);
9c90: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
9ca0: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 42 4c case SQLITE_BL
9cb0: 4f 42 3a 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 OB:. Tcl_Se
9cc0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
9cd0: 22 42 4c 4f 42 22 2c 20 54 43 4c 5f 53 54 41 54 "BLOB", TCL_STAT
9ce0: 49 43 29 3b 20 0a 20 20 20 20 20 20 62 72 65 61 IC); . brea
9cf0: 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a k;. default:.
9d00: 20 20 20 20 20 20 61 73 73 65 72 74 28 30 29 3b assert(0);
9d10: 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 . }.. return T
9d20: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
9d30: 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 Usage: sqlite3_c
9d40: 6f 6c 75 6d 6e 5f 69 6e 74 36 34 20 53 54 4d 54 olumn_int64 STMT
9d50: 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 52 65 column.**.** Re
9d60: 74 75 72 6e 20 74 68 65 20 64 61 74 61 20 69 6e turn the data in
9d70: 20 63 6f 6c 75 6d 6e 20 27 63 6f 6c 75 6d 6e 27 column 'column'
9d80: 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 of the current
9d90: 72 6f 77 20 63 61 73 74 20 61 73 20 61 6e 0a 2a row cast as an.*
9da0: 2a 20 77 69 64 65 20 28 36 34 2d 62 69 74 29 20 * wide (64-bit)
9db0: 69 6e 74 65 67 65 72 2e 0a 2a 2f 0a 73 74 61 74 integer..*/.stat
9dc0: 69 63 20 69 6e 74 20 74 65 73 74 5f 63 6f 6c 75 ic int test_colu
9dd0: 6d 6e 5f 69 6e 74 36 34 28 0a 20 20 76 6f 69 64 mn_int64(. void
9de0: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
9df0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
9e00: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
9e10: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
9e20: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 T objv[].){. sq
9e30: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d lite3_stmt *pStm
9e40: 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 t;. int col;.
9e50: 69 36 34 20 69 56 61 6c 3b 0a 0a 20 20 69 66 28 i64 iVal;.. if(
9e60: 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 objc!=3 ){.
9e70: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
9e80: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
9e90: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
9ea0: 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 e \"", . T
9eb0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
9ec0: 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f v[0]), " STMT co
9ed0: 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 lumn", 0);. r
9ee0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
9ef0: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 . }.. if( getS
9f00: 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tmtPointer(inter
9f10: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
9f20: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d (objv[1]), &pStm
9f30: 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f t) ) return TCL_
9f40: 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c ERROR;. if( Tcl
9f50: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
9f60: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 nterp, objv[2],
9f70: 26 63 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 54 &col) ) return T
9f80: 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 69 56 61 CL_ERROR;.. iVa
9f90: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 l = sqlite3_colu
9fa0: 6d 6e 5f 69 6e 74 36 34 28 70 53 74 6d 74 2c 20 mn_int64(pStmt,
9fb0: 63 6f 6c 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f col);. Tcl_SetO
9fc0: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
9fd0: 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f Tcl_NewWideIntO
9fe0: 62 6a 28 69 56 61 6c 29 29 3b 0a 20 20 72 65 74 bj(iVal));. ret
9ff0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
a000: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 *.** Usage: sqli
a010: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 20 te3_column_blob
a020: 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2f 0a 73 STMT column.*/.s
a030: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 tatic int test_c
a040: 6f 6c 75 6d 6e 5f 62 6c 6f 62 28 0a 20 20 76 6f olumn_blob(. vo
a050: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
a060: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
a070: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
a080: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
a090: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
a0a0: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 sqlite3_stmt *pS
a0b0: 74 6d 74 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a tmt;. int col;.
a0c0: 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 63 6f . int len;. co
a0d0: 6e 73 74 20 76 6f 69 64 20 2a 70 42 6c 6f 62 3b nst void *pBlob;
a0e0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 .. if( objc!=3
a0f0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
a100: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
a110: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
a120: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 hould be \"", .
a130: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
a140: 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 ing(objv[0]), "
a150: 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 STMT column", 0)
a160: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
a170: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
a180: 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 f( getStmtPointe
a190: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
a1a0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
a1b0: 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
a1c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
a1d0: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
a1e0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
a1f0: 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 20 72 jv[2], &col) ) r
a200: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a210: 0a 0a 20 20 70 42 6c 6f 62 20 3d 20 73 71 6c 69 .. pBlob = sqli
a220: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 28 te3_column_blob(
a230: 70 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 6c pStmt, col);. l
a240: 65 6e 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c en = sqlite3_col
a250: 75 6d 6e 5f 62 79 74 65 73 28 70 53 74 6d 74 2c umn_bytes(pStmt,
a260: 20 63 6f 6c 29 3b 0a 20 20 54 63 6c 5f 53 65 74 col);. Tcl_Set
a270: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
a280: 2c 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 , Tcl_NewByteArr
a290: 61 79 4f 62 6a 28 70 42 6c 6f 62 2c 20 6c 65 6e ayObj(pBlob, len
a2a0: 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ));. return TCL
a2b0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
a2c0: 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c age: sqlite3_col
a2d0: 75 6d 6e 5f 64 6f 75 62 6c 65 20 53 54 4d 54 20 umn_double STMT
a2e0: 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 52 65 74 column.**.** Ret
a2f0: 75 72 6e 20 74 68 65 20 64 61 74 61 20 69 6e 20 urn the data in
a300: 63 6f 6c 75 6d 6e 20 27 63 6f 6c 75 6d 6e 27 20 column 'column'
a310: 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 of the current r
a320: 6f 77 20 63 61 73 74 20 61 73 20 61 20 64 6f 75 ow cast as a dou
a330: 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ble..*/.static i
a340: 6e 74 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 64 nt test_column_d
a350: 6f 75 62 6c 65 28 0a 20 20 76 6f 69 64 20 2a 20 ouble(. void *
a360: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
a370: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
a380: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
a390: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
a3a0: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 bjv[].){. sqlit
a3b0: 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a e3_stmt *pStmt;.
a3c0: 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 64 6f 75 int col;. dou
a3d0: 62 6c 65 20 72 56 61 6c 3b 0a 0a 20 20 69 66 28 ble rVal;.. if(
a3e0: 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 objc!=3 ){.
a3f0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
a400: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 (interp, "wrong
a410: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
a420: 65 20 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 e \"", . T
a430: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
a440: 76 5b 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f v[0]), " STMT co
a450: 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 lumn", 0);. r
a460: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a470: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 . }.. if( getS
a480: 74 6d 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tmtPointer(inter
a490: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
a4a0: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d (objv[1]), &pStm
a4b0: 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f t) ) return TCL_
a4c0: 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c ERROR;. if( Tcl
a4d0: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
a4e0: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 nterp, objv[2],
a4f0: 26 63 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 54 &col) ) return T
a500: 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 56 61 CL_ERROR;.. rVa
a510: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 l = sqlite3_colu
a520: 6d 6e 5f 64 6f 75 62 6c 65 28 70 53 74 6d 74 2c mn_double(pStmt,
a530: 20 63 6f 6c 29 3b 0a 20 20 54 63 6c 5f 53 65 74 col);. Tcl_Set
a540: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
a550: 2c 20 54 63 6c 5f 4e 65 77 44 6f 75 62 6c 65 4f , Tcl_NewDoubleO
a560: 62 6a 28 72 56 61 6c 29 29 3b 0a 20 20 72 65 74 bj(rVal));. ret
a570: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
a580: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 *.** Usage: sqli
a590: 74 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74 20 53 te3_data_count S
a5a0: 54 4d 54 20 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 TMT .**.** Retur
a5b0: 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 n the number of
a5c0: 63 6f 6c 75 6d 6e 73 20 72 65 74 75 72 6e 65 64 columns returned
a5d0: 20 62 79 20 74 68 65 20 73 71 6c 20 73 74 61 74 by the sql stat
a5e0: 65 6d 65 6e 74 20 53 54 4d 54 2e 0a 2a 2f 0a 73 ement STMT..*/.s
a5f0: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 64 tatic int test_d
a600: 61 74 61 5f 63 6f 75 6e 74 28 0a 20 20 76 6f 69 ata_count(. voi
a610: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
a620: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
a630: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
a640: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
a650: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 ST objv[].){. s
a660: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 qlite3_stmt *pSt
a670: 6d 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 mt;.. if( objc!
a680: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 =2 ){. Tcl_Ap
a690: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
a6a0: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 p, "wrong # args
a6b0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c : should be \"",
a6c0: 20 0a 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 . Tcl_Get
a6d0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c String(objv[0]),
a6e0: 20 22 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c " STMT column",
a6f0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
a700: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
a710: 20 20 69 66 28 20 67 65 74 53 74 6d 74 50 6f 69 if( getStmtPoi
a720: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c nter(interp, Tcl
a730: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
a740: 31 5d 29 2c 20 26 70 53 74 6d 74 29 20 29 20 72 1]), &pStmt) ) r
a750: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a760: 0a 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 .. Tcl_SetObjRe
a770: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
a780: 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 _NewIntObj(sqlit
a790: 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74 28 70 53 e3_data_count(pS
a7a0: 74 6d 74 29 29 29 3b 0a 20 20 72 65 74 75 72 6e tmt)));. return
a7b0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
a7c0: 2a 20 54 68 69 73 20 69 73 20 61 20 63 6f 6c 6c * This is a coll
a7d0: 61 74 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 6e ating function n
a7e0: 61 6d 65 64 20 22 52 45 56 45 52 53 45 22 20 77 amed "REVERSE" w
a7f0: 68 69 63 68 20 73 6f 72 74 73 20 74 65 78 74 0a hich sorts text.
a800: 2a 2a 20 69 6e 20 72 65 76 65 72 73 65 20 6f 72 ** in reverse or
a810: 64 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 der..*/.static i
a820: 6e 74 20 72 65 76 65 72 73 65 43 6f 6c 6c 61 74 nt reverseCollat
a830: 69 6e 67 46 75 6e 63 28 0a 20 20 76 6f 69 64 20 ingFunc(. void
a840: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 69 6e 74 20 *NotUsed,. int
a850: 6e 4b 65 79 31 2c 20 63 6f 6e 73 74 20 76 6f 69 nKey1, const voi
a860: 64 20 2a 70 4b 65 79 31 2c 0a 20 20 69 6e 74 20 d *pKey1,. int
a870: 6e 4b 65 79 32 2c 20 63 6f 6e 73 74 20 76 6f 69 nKey2, const voi
a880: 64 20 2a 70 4b 65 79 32 0a 29 7b 0a 20 20 69 6e d *pKey2.){. in
a890: 74 20 72 63 2c 20 6e 3b 0a 20 20 6e 20 3d 20 6e t rc, n;. n = n
a8a0: 4b 65 79 31 3c 6e 4b 65 79 32 20 3f 20 6e 4b 65 Key1<nKey2 ? nKe
a8b0: 79 31 20 3a 20 6e 4b 65 79 32 3b 0a 20 20 72 63 y1 : nKey2;. rc
a8c0: 20 3d 20 6d 65 6d 63 6d 70 28 70 4b 65 79 31 2c = memcmp(pKey1,
a8d0: 20 70 4b 65 79 32 2c 20 6e 29 3b 0a 20 20 69 66 pKey2, n);. if
a8e0: 28 20 72 63 3d 3d 30 20 29 7b 0a 20 20 20 20 72 ( rc==0 ){. r
a8f0: 63 20 3d 20 6e 4b 65 79 31 20 2d 20 6e 4b 65 79 c = nKey1 - nKey
a900: 32 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 2;. }. return
a910: 2d 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 -rc;.}../*.** Us
a920: 61 67 65 3a 20 61 64 64 5f 72 65 76 65 72 73 65 age: add_reverse
a930: 5f 63 6f 6c 6c 61 74 69 6e 67 5f 66 75 6e 63 20 _collating_func
a940: 44 42 20 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 DB .**.** This r
a950: 6f 75 74 69 6e 65 20 61 64 64 73 20 61 20 63 6f outine adds a co
a960: 6c 6c 61 74 69 6f 6e 20 6e 61 6d 65 64 20 22 52 llation named "R
a970: 45 56 45 52 53 45 22 20 74 6f 20 64 61 74 61 62 EVERSE" to datab
a980: 61 73 65 20 67 69 76 65 6e 2e 0a 2a 2a 20 52 45 ase given..** RE
a990: 56 45 52 53 45 20 69 73 20 75 73 65 64 20 66 6f VERSE is used fo
a9a0: 72 20 74 65 73 74 69 6e 67 20 6f 6e 6c 79 2e 0a r testing only..
a9b0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 72 65 */.static int re
a9c0: 76 65 72 73 65 5f 63 6f 6c 6c 66 75 6e 63 28 0a verse_collfunc(.
a9d0: 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
a9e0: 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
a9f0: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
aa00: 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
aa10: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
aa20: 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
aa30: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 .. if( objc!=2
aa40: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
aa50: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
aa60: 31 2c 20 6f 62 6a 76 2c 20 22 44 42 22 29 3b 0a 1, objv, "DB");.
aa70: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
aa80: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
aa90: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 getDbPointer(int
aaa0: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
aab0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 ng(objv[1]), &db
aac0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
aad0: 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 33 43 RROR;. sqlite3C
aae0: 68 61 6e 67 65 43 6f 6c 6c 61 74 69 6e 67 46 75 hangeCollatingFu
aaf0: 6e 63 74 69 6f 6e 28 64 62 2c 20 22 52 45 56 45 nction(db, "REVE
ab00: 52 53 45 22 2c 20 37 2c 20 30 2c 20 72 65 76 65 RSE", 7, 0, reve
ab10: 72 73 65 43 6f 6c 6c 61 74 69 6e 67 46 75 6e 63 rseCollatingFunc
ab20: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
ab30: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
ab40: 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 ge: sqlite3_colu
ab50: 6d 6e 5f 74 65 78 74 20 53 54 4d 54 20 63 6f 6c mn_text STMT col
ab60: 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a umn.**.** Usage:
ab70: 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
ab80: 64 65 63 6c 74 79 70 65 20 53 54 4d 54 20 63 6f decltype STMT co
ab90: 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 lumn.**.** Usage
aba0: 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e : sqlite3_column
abb0: 5f 6e 61 6d 65 20 53 54 4d 54 20 63 6f 6c 75 6d _name STMT colum
abc0: 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 n.*/.static int
abd0: 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 38 28 0a test_stmt_utf8(.
abe0: 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
abf0: 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
ac00: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
ac10: 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
ac20: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
ac30: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 {. sqlite3_stmt
ac40: 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 63 *pStmt;. int c
ac50: 6f 6c 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 ol;. const char
ac60: 20 2a 28 2a 78 46 75 6e 63 29 28 73 71 6c 69 74 *(*xFunc)(sqlit
ac70: 65 33 5f 73 74 6d 74 2a 2c 20 69 6e 74 29 20 3d e3_stmt*, int) =
ac80: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 63 clientData;. c
ac90: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 52 65 74 3b onst char *zRet;
aca0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 .. if( objc!=3
acb0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ){. Tcl_Appen
acc0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
acd0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 "wrong # args: s
ace0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 hould be \"", .
acf0: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 Tcl_GetStr
ad00: 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 ing(objv[0]), "
ad10: 53 54 4d 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 STMT column", 0)
ad20: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
ad30: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 _ERROR;. }.. i
ad40: 66 28 20 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 f( getStmtPointe
ad50: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 r(interp, Tcl_Ge
ad60: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
ad70: 2c 20 26 70 53 74 6d 74 29 20 29 20 72 65 74 75 , &pStmt) ) retu
ad80: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
ad90: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
ada0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
adb0: 6a 76 5b 32 5d 2c 20 26 63 6f 6c 29 20 29 20 72 jv[2], &col) ) r
adc0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
add0: 0a 20 20 7a 52 65 74 20 3d 20 78 46 75 6e 63 28 . zRet = xFunc(
ade0: 70 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 69 pStmt, col);. i
adf0: 66 28 20 7a 52 65 74 20 29 7b 0a 20 20 20 20 54 f( zRet ){. T
ae00: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
ae10: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 7a 52 65 erp, (char *)zRe
ae20: 74 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 t, 0);. }. ret
ae30: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
ae40: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 *.** Usage: sqli
ae50: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 te3_column_text
ae60: 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a 2a STMT column.**.*
ae70: 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 * Usage: sqlite3
ae80: 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 _column_decltype
ae90: 20 53 54 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2a 0a STMT column.**.
aea0: 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69 74 65 ** Usage: sqlite
aeb0: 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 20 53 54 3_column_name ST
aec0: 4d 54 20 63 6f 6c 75 6d 6e 0a 2a 2f 0a 73 74 61 MT column.*/.sta
aed0: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 74 6d tic int test_stm
aee0: 74 5f 75 74 66 31 36 28 0a 20 20 76 6f 69 64 20 t_utf16(. void
aef0: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
af00: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
af10: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
af20: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
af30: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c objv[].){. sql
af40: 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74 ite3_stmt *pStmt
af50: 3b 0a 20 20 69 6e 74 20 63 6f 6c 3b 0a 20 20 54 ;. int col;. T
af60: 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a 20 20 cl_Obj *pRet;.
af70: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 4e 61 6d const void *zNam
af80: 65 31 36 3b 0a 20 20 63 6f 6e 73 74 20 76 6f 69 e16;. const voi
af90: 64 20 2a 28 2a 78 46 75 6e 63 29 28 73 71 6c 69 d *(*xFunc)(sqli
afa0: 74 65 33 5f 73 74 6d 74 2a 2c 20 69 6e 74 29 20 te3_stmt*, int)
afb0: 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 = clientData;..
afc0: 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a if( objc!=3 ){.
afd0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
afe0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 sult(interp, "wr
aff0: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
b000: 6c 64 20 62 65 20 5c 22 22 2c 20 0a 20 20 20 20 ld be \"", .
b010: 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 Tcl_GetString
b020: 28 6f 62 6a 76 5b 30 5d 29 2c 20 22 20 53 54 4d (objv[0]), " STM
b030: 54 20 63 6f 6c 75 6d 6e 22 2c 20 30 29 3b 0a 20 T column", 0);.
b040: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
b050: 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 ROR;. }.. if(
b060: 67 65 74 53 74 6d 74 50 6f 69 6e 74 65 72 28 69 getStmtPointer(i
b070: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
b080: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 ring(objv[1]), &
b090: 70 53 74 6d 74 29 20 29 20 72 65 74 75 72 6e 20 pStmt) ) return
b0a0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 TCL_ERROR;. if(
b0b0: 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
b0c0: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
b0d0: 32 5d 2c 20 26 63 6f 6c 29 20 29 20 72 65 74 75 2], &col) ) retu
b0e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 rn TCL_ERROR;..
b0f0: 20 7a 4e 61 6d 65 31 36 20 3d 20 78 46 75 6e 63 zName16 = xFunc
b100: 28 70 53 74 6d 74 2c 20 63 6f 6c 29 3b 0a 20 20 (pStmt, col);.
b110: 69 66 28 20 7a 4e 61 6d 65 31 36 20 29 7b 0a 20 if( zName16 ){.
b120: 20 20 20 70 52 65 74 20 3d 20 54 63 6c 5f 4e 65 pRet = Tcl_Ne
b130: 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28 7a 4e wByteArrayObj(zN
b140: 61 6d 65 31 36 2c 20 73 71 6c 69 74 65 33 75 74 ame16, sqlite3ut
b150: 66 31 36 42 79 74 65 4c 65 6e 28 7a 4e 61 6d 65 f16ByteLen(zName
b160: 31 36 2c 20 2d 31 29 2b 32 29 3b 0a 20 20 20 20 16, -1)+2);.
b170: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
b180: 28 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b 0a (interp, pRet);.
b190: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 }.. return TC
b1a0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
b1b0: 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 63 6f sage: sqlite3_co
b1c0: 6c 75 6d 6e 5f 69 6e 74 20 53 54 4d 54 20 63 6f lumn_int STMT co
b1d0: 6c 75 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 lumn.**.** Usage
b1e0: 3a 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e : sqlite3_column
b1f0: 5f 62 79 74 65 73 20 53 54 4d 54 20 63 6f 6c 75 _bytes STMT colu
b200: 6d 6e 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 mn.**.** Usage:
b210: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 sqlite3_column_b
b220: 79 74 65 73 31 36 20 53 54 4d 54 20 63 6f 6c 75 ytes16 STMT colu
b230: 6d 6e 0a 2a 2a 0a 2a 2f 0a 73 74 61 74 69 63 20 mn.**.*/.static
b240: 69 6e 74 20 74 65 73 74 5f 73 74 6d 74 5f 69 6e int test_stmt_in
b250: 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 t(. void * clie
b260: 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e ntData,. Tcl_In
b270: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
b280: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
b290: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
b2a0: 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 ].){. sqlite3_s
b2b0: 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 69 6e tmt *pStmt;. in
b2c0: 74 20 63 6f 6c 3b 0a 20 20 69 6e 74 20 28 2a 78 t col;. int (*x
b2d0: 46 75 6e 63 29 28 73 71 6c 69 74 65 33 5f 73 74 Func)(sqlite3_st
b2e0: 6d 74 2a 2c 20 69 6e 74 29 20 3d 20 63 6c 69 65 mt*, int) = clie
b2f0: 6e 74 44 61 74 61 3b 0a 0a 20 20 69 66 28 20 6f ntData;.. if( o
b300: 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 bjc!=3 ){. Tc
b310: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
b320: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 nterp, "wrong #
b330: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
b340: 5c 22 22 2c 20 0a 20 20 20 20 20 20 20 54 63 6c \"", . Tcl
b350: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
b360: 30 5d 29 2c 20 22 20 53 54 4d 54 20 63 6f 6c 75 0]), " STMT colu
b370: 6d 6e 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 mn", 0);. ret
b380: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
b390: 20 7d 0a 0a 20 20 69 66 28 20 67 65 74 53 74 6d }.. if( getStm
b3a0: 74 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c tPointer(interp,
b3b0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
b3c0: 62 6a 76 5b 31 5d 29 2c 20 26 70 53 74 6d 74 29 bjv[1]), &pStmt)
b3d0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
b3e0: 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 ROR;. if( Tcl_G
b3f0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
b400: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 63 erp, objv[2], &c
b410: 6f 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c ol) ) return TCL
b420: 5f 45 52 52 4f 52 3b 0a 0a 20 20 54 63 6c 5f 53 _ERROR;.. Tcl_S
b430: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
b440: 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 rp, Tcl_NewIntOb
b450: 6a 28 78 46 75 6e 63 28 70 53 74 6d 74 2c 20 63 j(xFunc(pStmt, c
b460: 6f 6c 29 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 ol)));. return
b470: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 0a 2f 2a 0a TCL_OK;.}..../*.
b480: 2a 2a 20 52 65 67 69 73 74 65 72 20 63 6f 6d 6d ** Register comm
b490: 61 6e 64 73 20 77 69 74 68 20 74 68 65 20 54 43 ands with the TC
b4a0: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a L interpreter..*
b4b0: 2f 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 /.int Sqlitetest
b4c0: 31 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 1_Init(Tcl_Inter
b4d0: 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 65 78 p *interp){. ex
b4e0: 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 tern int sqlite3
b4f0: 5f 73 65 61 72 63 68 5f 63 6f 75 6e 74 3b 0a 20 _search_count;.
b500: 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 extern int sqli
b510: 74 65 33 5f 69 6e 74 65 72 72 75 70 74 5f 63 6f te3_interrupt_co
b520: 75 6e 74 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e unt;. extern in
b530: 74 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 66 t sqlite3_open_f
b540: 69 6c 65 5f 63 6f 75 6e 74 3b 0a 20 20 65 78 74 ile_count;. ext
b550: 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f ern int sqlite3_
b560: 63 75 72 72 65 6e 74 5f 74 69 6d 65 3b 0a 20 20 current_time;.
b570: 73 74 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a static struct {.
b580: 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 char *zName
b590: 3b 0a 20 20 20 20 20 54 63 6c 5f 43 6d 64 50 72 ;. Tcl_CmdPr
b5a0: 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 7d 20 61 oc *xProc;. } a
b5b0: 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 7b Cmd[] = {. {
b5c0: 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
b5d0: 66 5f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20 f_int",
b5e0: 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
b5f0: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
b600: 69 6e 74 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b int },. {
b610: 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
b620: 66 5f 73 74 72 22 2c 20 20 20 20 20 20 20 20 20 f_str",
b630: 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
b640: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
b650: 73 74 72 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b str },. {
b660: 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
b670: 66 5f 64 6f 75 62 6c 65 22 2c 20 20 20 20 20 20 f_double",
b680: 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
b690: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
b6a0: 64 6f 75 62 6c 65 20 7d 2c 0a 20 20 20 20 20 7b double },. {
b6b0: 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
b6c0: 66 5f 73 63 61 6c 65 64 22 2c 20 20 20 20 20 20 f_scaled",
b6d0: 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
b6e0: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 5f sqlite3_mprintf_
b6f0: 73 63 61 6c 65 64 20 7d 2c 0a 20 20 20 20 20 7b scaled },. {
b700: 20 22 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 "sqlite3_mprint
b710: 66 5f 7a 5f 74 65 73 74 22 2c 20 20 20 20 20 20 f_z_test",
b720: 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 (Tcl_CmdProc*)
b730: 74 65 73 74 5f 6d 70 72 69 6e 74 66 5f 7a 20 20 test_mprintf_z
b740: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 },. {
b750: 22 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e "sqlite3_last_in
b760: 73 65 72 74 5f 72 6f 77 69 64 22 2c 20 20 20 20 sert_rowid",
b770: 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 (Tcl_CmdProc*)t
b780: 65 73 74 5f 6c 61 73 74 5f 72 6f 77 69 64 20 20 est_last_rowid
b790: 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 },. { "
b7a0: 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 70 72 69 sqlite3_exec_pri
b7b0: 6e 74 66 22 2c 20 20 20 20 20 20 20 20 20 20 20 ntf",
b7c0: 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 (Tcl_CmdProc*)te
b7d0: 73 74 5f 65 78 65 63 5f 70 72 69 6e 74 66 20 20 st_exec_printf
b7e0: 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 },. { "s
b7f0: 71 6c 69 74 65 33 5f 67 65 74 5f 74 61 62 6c 65 qlite3_get_table
b800: 5f 70 72 69 6e 74 66 22 2c 20 20 20 20 20 20 28 _printf", (
b810: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 Tcl_CmdProc*)tes
b820: 74 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e t_get_table_prin
b830: 74 66 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 tf },. { "sq
b840: 6c 69 74 65 33 5f 63 6c 6f 73 65 22 2c 20 20 20 lite3_close",
b850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 (T
b860: 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 cl_CmdProc*)sqli
b870: 74 65 5f 74 65 73 74 5f 63 6c 6f 73 65 20 20 20 te_test_close
b880: 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c },. { "sql
b890: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 ite3_create_func
b8a0: 74 69 6f 6e 22 2c 20 20 20 20 20 20 20 28 54 63 tion", (Tc
b8b0: 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f l_CmdProc*)test_
b8c0: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 create_function
b8d0: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
b8e0: 74 65 33 5f 63 72 65 61 74 65 5f 61 67 67 72 65 te3_create_aggre
b8f0: 67 61 74 65 22 2c 20 20 20 20 20 20 28 54 63 6c gate", (Tcl
b900: 5f 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 63 _CmdProc*)test_c
b910: 72 65 61 74 65 5f 61 67 67 72 65 67 61 74 65 20 reate_aggregate
b920: 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
b930: 65 5f 72 65 67 69 73 74 65 72 5f 74 65 73 74 5f e_register_test_
b940: 66 75 6e 63 74 69 6f 6e 22 2c 20 28 54 63 6c 5f function", (Tcl_
b950: 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 72 65 CmdProc*)test_re
b960: 67 69 73 74 65 72 5f 66 75 6e 63 20 20 20 20 7d gister_func }
b970: 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
b980: 5f 61 62 6f 72 74 22 2c 20 20 20 20 20 20 20 20 _abort",
b990: 20 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 (Tcl_C
b9a0: 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 5f 61 mdProc*)sqlite_a
b9b0: 62 6f 72 74 20 20 20 20 20 20 20 20 20 20 7d 2c bort },
b9c0: 0a 23 69 66 64 65 66 20 4d 45 4d 4f 52 59 5f 44 .#ifdef MEMORY_D
b9d0: 45 42 55 47 0a 20 20 20 20 20 7b 20 22 73 71 6c EBUG. { "sql
b9e0: 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c 22 ite_malloc_fail"
b9f0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 , (Tc
ba00: 6c 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 l_CmdProc*)sqlit
ba10: 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c 20 20 20 e_malloc_fail
ba20: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
ba30: 74 65 5f 6d 61 6c 6c 6f 63 5f 73 74 61 74 22 2c te_malloc_stat",
ba40: 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c (Tcl
ba50: 5f 43 6d 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 _CmdProc*)sqlite
ba60: 5f 6d 61 6c 6c 6f 63 5f 73 74 61 74 20 20 20 20 _malloc_stat
ba70: 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 7b },.#endif. {
ba80: 20 22 73 71 6c 69 74 65 5f 62 69 6e 64 22 2c 20 "sqlite_bind",
ba90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
baa0: 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
bab0: 29 74 65 73 74 5f 62 69 6e 64 20 20 20 20 20 20 )test_bind
bac0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b },. {
bad0: 20 22 62 72 65 61 6b 70 6f 69 6e 74 22 2c 20 20 "breakpoint",
bae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
baf0: 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a (Tcl_CmdProc*
bb00: 29 74 65 73 74 5f 62 72 65 61 6b 70 6f 69 6e 74 )test_breakpoint
bb10: 20 20 20 20 20 20 20 7d 2c 0a 20 20 7d 3b 0a 20 },. };.
bb20: 20 73 74 61 74 69 63 20 73 74 72 75 63 74 20 7b static struct {
bb30: 0a 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d . char *zNam
bb40: 65 3b 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 43 e;. Tcl_ObjC
bb50: 6d 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 mdProc *xProc;.
bb60: 20 20 20 20 76 6f 69 64 20 2a 63 6c 69 65 6e 74 void *client
bb70: 44 61 74 61 3b 0a 20 20 7d 20 61 4f 62 6a 43 6d Data;. } aObjCm
bb80: 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 7b 20 22 d[] = {. { "
bb90: 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 sqlite3_bind_int
bba0: 33 32 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 32",
bbb0: 74 65 73 74 5f 62 69 6e 64 5f 69 6e 74 33 32 2c test_bind_int32,
bbc0: 20 30 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 0 },. {
bbd0: 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e "sqlite3_bind_in
bbe0: 74 36 34 22 2c 20 20 20 20 20 20 20 20 20 20 20 t64",
bbf0: 20 74 65 73 74 5f 62 69 6e 64 5f 69 6e 74 36 34 test_bind_int64
bc00: 20 2c 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 7b , 0 },. {
bc10: 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 64 "sqlite3_bind_d
bc20: 6f 75 62 6c 65 22 2c 20 20 20 20 20 20 20 20 20 ouble",
bc30: 20 20 74 65 73 74 5f 62 69 6e 64 5f 64 6f 75 62 test_bind_doub
bc40: 6c 65 2c 20 30 20 20 20 7d 2c 0a 20 20 20 20 20 le, 0 },.
bc50: 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f { "sqlite3_bind_
bc60: 6e 75 6c 6c 22 2c 20 20 20 20 20 20 20 20 20 20 null",
bc70: 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 6e 75 6c test_bind_nul
bc80: 6c 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 l ,0 },.
bc90: 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e 64 { "sqlite3_bind
bca0: 5f 74 65 78 74 22 2c 20 20 20 20 20 20 20 20 20 _text",
bcb0: 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 74 65 test_bind_te
bcc0: 78 74 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 xt ,0 },.
bcd0: 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 6e { "sqlite3_bin
bce0: 64 5f 74 65 78 74 31 36 22 2c 20 20 20 20 20 20 d_text16",
bcf0: 20 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f 74 test_bind_t
bd00: 65 78 74 31 36 20 20 20 2c 30 20 7d 2c 0a 20 20 ext16 ,0 },.
bd10: 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 69 { "sqlite3_bi
bd20: 6e 64 5f 62 6c 6f 62 22 2c 20 20 20 20 20 20 20 nd_blob",
bd30: 20 20 20 20 20 20 74 65 73 74 5f 62 69 6e 64 5f test_bind_
bd40: 62 6c 6f 62 20 20 20 20 20 2c 30 20 7d 2c 0a 20 blob ,0 },.
bd50: 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 65 { "sqlite3_e
bd60: 72 72 63 6f 64 65 22 2c 20 20 20 20 20 20 20 20 rrcode",
bd70: 20 20 20 20 20 20 20 74 65 73 74 5f 65 72 72 63 test_errc
bd80: 6f 64 65 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a ode ,0 },.
bd90: 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
bda0: 65 72 72 6d 73 67 22 2c 20 20 20 20 20 20 20 20 errmsg",
bdb0: 20 20 20 20 20 20 20 20 74 65 73 74 5f 65 72 72 test_err
bdc0: 6d 73 67 20 20 20 20 20 20 20 20 2c 30 20 7d 2c msg ,0 },
bdd0: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
bde0: 5f 65 72 72 6d 73 67 31 36 22 2c 20 20 20 20 20 _errmsg16",
bdf0: 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 65 72 test_er
be00: 72 6d 73 67 31 36 20 20 20 20 20 20 2c 30 20 7d rmsg16 ,0 }
be10: 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
be20: 33 5f 6f 70 65 6e 22 2c 20 20 20 20 20 20 20 20 3_open",
be30: 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 6f test_o
be40: 70 65 6e 20 20 20 20 20 20 20 20 20 20 2c 30 20 pen ,0
be50: 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
be60: 65 33 5f 6f 70 65 6e 31 36 22 2c 20 20 20 20 20 e3_open16",
be70: 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f test_
be80: 6f 70 65 6e 31 36 20 20 20 20 20 20 20 20 2c 30 open16 ,0
be90: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 61 64 64 5f },. { "add_
bea0: 72 65 76 65 72 73 65 5f 63 6f 6c 6c 61 74 69 6e reverse_collatin
beb0: 67 5f 66 75 6e 63 22 2c 20 20 20 20 72 65 76 65 g_func", reve
bec0: 72 73 65 5f 63 6f 6c 6c 66 75 6e 63 20 20 20 2c rse_collfunc ,
bed0: 30 20 7d 2c 0a 0a 20 20 20 20 20 7b 20 22 73 71 0 },.. { "sq
bee0: 6c 69 74 65 33 5f 70 72 65 70 61 72 65 22 2c 20 lite3_prepare",
bef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 te
bf00: 73 74 5f 70 72 65 70 61 72 65 20 20 20 20 20 20 st_prepare
bf10: 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
bf20: 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 qlite3_prepare16
bf30: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 74 ", t
bf40: 65 73 74 5f 70 72 65 70 61 72 65 31 36 20 20 20 est_prepare16
bf50: 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
bf60: 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 sqlite3_finalize
bf70: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
bf80: 74 65 73 74 5f 66 69 6e 61 6c 69 7a 65 20 20 20 test_finalize
bf90: 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
bfa0: 22 73 71 6c 69 74 65 33 5f 72 65 73 65 74 22 2c "sqlite3_reset",
bfb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
bfc0: 20 74 65 73 74 5f 72 65 73 65 74 20 20 20 20 20 test_reset
bfd0: 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b ,0 },. {
bfe0: 20 22 73 71 6c 69 74 65 33 5f 73 74 65 70 22 2c "sqlite3_step",
bff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
c000: 20 20 74 65 73 74 5f 73 74 65 70 2c 30 20 7d 2c test_step,0 },
c010: 0a 0a 20 20 20 20 20 2f 2a 20 73 71 6c 69 74 65 .. /* sqlite
c020: 33 5f 63 6f 6c 75 6d 6e 5f 2a 28 29 20 41 50 49 3_column_*() API
c030: 20 2a 2f 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 */. { "sqli
c040: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 te3_column_count
c050: 22 2c 20 20 20 20 20 20 20 20 20 20 74 65 73 74 ", test
c060: 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 20 20 2c _column_count ,
c070: 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
c080: 69 74 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74 22 ite3_data_count"
c090: 2c 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 , tes
c0a0: 74 5f 64 61 74 61 5f 63 6f 75 6e 74 20 20 20 20 t_data_count
c0b0: 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
c0c0: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 79 70 lite3_column_typ
c0d0: 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 74 65 e", te
c0e0: 73 74 5f 63 6f 6c 75 6d 6e 5f 74 79 70 65 20 20 st_column_type
c0f0: 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
c100: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 6c qlite3_column_bl
c110: 6f 62 22 2c 20 20 20 20 20 20 20 20 20 20 20 74 ob", t
c120: 65 73 74 5f 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 20 est_column_blob
c130: 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
c140: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 sqlite3_column_d
c150: 6f 75 62 6c 65 22 2c 20 20 20 20 20 20 20 20 20 ouble",
c160: 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 test_column_doub
c170: 6c 65 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 le ,0 },. {
c180: 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f "sqlite3_column_
c190: 69 6e 74 36 34 22 2c 20 20 20 20 20 20 20 20 20 int64",
c1a0: 20 74 65 73 74 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 test_column_int
c1b0: 36 34 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 64 ,0 },. {
c1c0: 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e "sqlite3_column
c1d0: 5f 69 6e 74 22 2c 20 74 65 73 74 5f 73 74 6d 74 _int", test_stmt
c1e0: 5f 69 6e 74 20 2c 73 71 6c 69 74 65 33 5f 63 6f _int ,sqlite3_co
c1f0: 6c 75 6d 6e 5f 69 6e 74 20 7d 2c 0a 20 20 20 20 lumn_int },.
c200: 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 { "sqlite3_colu
c210: 6d 6e 5f 62 79 74 65 73 22 2c 20 74 65 73 74 5f mn_bytes", test_
c220: 73 74 6d 74 5f 69 6e 74 20 2c 73 71 6c 69 74 65 stmt_int ,sqlite
c230: 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 20 7d 3_column_bytes }
c240: 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
c250: 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 31 36 3_column_bytes16
c260: 22 2c 20 74 65 73 74 5f 73 74 6d 74 5f 69 6e 74 ", test_stmt_int
c270: 20 2c 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e ,sqlite3_column
c280: 5f 62 79 74 65 73 31 36 20 7d 2c 0a 20 20 20 20 _bytes16 },.
c290: 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 { "sqlite3_colu
c2a0: 6d 6e 5f 74 65 78 74 22 2c 20 74 65 73 74 5f 73 mn_text", test_s
c2b0: 74 6d 74 5f 75 74 66 38 2c 20 20 20 20 20 20 20 tmt_utf8,
c2c0: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 sqlite3_column_t
c2d0: 65 78 74 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ext},. { "sq
c2e0: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 lite3_column_dec
c2f0: 6c 74 79 70 65 22 2c 20 74 65 73 74 5f 73 74 6d ltype", test_stm
c300: 74 5f 75 74 66 38 2c 20 20 20 73 71 6c 69 74 65 t_utf8, sqlite
c310: 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 3_column_decltyp
c320: 65 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 e},. { "sqli
c330: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 22 te3_column_name"
c340: 2c 20 74 65 73 74 5f 73 74 6d 74 5f 75 74 66 38 , test_stmt_utf8
c350: 2c 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f , sqlite3_
c360: 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 7d 2c 0a 20 20 column_name},.
c370: 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f { "sqlite3_co
c380: 6c 75 6d 6e 5f 74 65 78 74 31 36 22 2c 20 74 65 lumn_text16", te
c390: 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c 20 20 st_stmt_utf16,
c3a0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e sqlite3_column
c3b0: 5f 74 65 78 74 31 36 7d 2c 0a 20 20 20 20 20 7b _text16},. {
c3c0: 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e "sqlite3_column
c3d0: 5f 64 65 63 6c 74 79 70 65 31 36 22 2c 20 74 65 _decltype16", te
c3e0: 73 74 5f 73 74 6d 74 5f 75 74 66 31 36 2c 73 71 st_stmt_utf16,sq
c3f0: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 lite3_column_dec
c400: 6c 74 79 70 65 31 36 7d 2c 0a 20 20 20 20 20 7b ltype16},. {
c410: 20 22 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e "sqlite3_column
c420: 5f 6e 61 6d 65 31 36 22 2c 20 74 65 73 74 5f 73 _name16", test_s
c430: 74 6d 74 5f 75 74 66 31 36 2c 20 20 20 20 73 71 tmt_utf16, sq
c440: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d lite3_column_nam
c450: 65 31 36 7d 2c 0a 0a 20 20 7d 3b 0a 20 20 69 6e e16},.. };. in
c460: 74 20 69 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 3b t i;.. for(i=0;
c470: 20 69 3c 73 69 7a 65 6f 66 28 61 43 6d 64 29 2f i<sizeof(aCmd)/
c480: 73 69 7a 65 6f 66 28 61 43 6d 64 5b 30 5d 29 3b sizeof(aCmd[0]);
c490: 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 43 i++){. Tcl_C
c4a0: 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 reateCommand(int
c4b0: 65 72 70 2c 20 61 43 6d 64 5b 69 5d 2e 7a 4e 61 erp, aCmd[i].zNa
c4c0: 6d 65 2c 20 61 43 6d 64 5b 69 5d 2e 78 50 72 6f me, aCmd[i].xPro
c4d0: 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 c, 0, 0);. }.
c4e0: 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f for(i=0; i<sizeo
c4f0: 66 28 61 4f 62 6a 43 6d 64 29 2f 73 69 7a 65 6f f(aObjCmd)/sizeo
c500: 66 28 61 4f 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 f(aObjCmd[0]); i
c510: 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 ++){. Tcl_Cre
c520: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
c530: 74 65 72 70 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d terp, aObjCmd[i]
c540: 2e 7a 4e 61 6d 65 2c 20 0a 20 20 20 20 20 20 20 .zName, .
c550: 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 78 50 72 6f aObjCmd[i].xPro
c560: 63 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 63 6c c, aObjCmd[i].cl
c570: 69 65 6e 74 44 61 74 61 2c 20 30 29 3b 0a 20 20 ientData, 0);.
c580: 7d 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 }. Tcl_LinkVar(
c590: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
c5a0: 73 65 61 72 63 68 5f 63 6f 75 6e 74 22 2c 20 0a search_count", .
c5b0: 20 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 (char*)&sq
c5c0: 6c 69 74 65 33 5f 73 65 61 72 63 68 5f 63 6f 75 lite3_search_cou
c5d0: 6e 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 nt, TCL_LINK_INT
c5e0: 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 );. Tcl_LinkVar
c5f0: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 (interp, "sqlite
c600: 5f 69 6e 74 65 72 72 75 70 74 5f 63 6f 75 6e 74 _interrupt_count
c610: 22 2c 20 0a 20 20 20 20 20 20 28 63 68 61 72 2a ", . (char*
c620: 29 26 73 71 6c 69 74 65 33 5f 69 6e 74 65 72 72 )&sqlite3_interr
c630: 75 70 74 5f 63 6f 75 6e 74 2c 20 54 43 4c 5f 4c upt_count, TCL_L
c640: 49 4e 4b 5f 49 4e 54 29 3b 0a 20 20 54 63 6c 5f INK_INT);. Tcl_
c650: 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 LinkVar(interp,
c660: 22 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c "sqlite_open_fil
c670: 65 5f 63 6f 75 6e 74 22 2c 20 0a 20 20 20 20 20 e_count", .
c680: 20 28 63 68 61 72 2a 29 26 73 71 6c 69 74 65 33 (char*)&sqlite3
c690: 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 _open_file_count
c6a0: 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b , TCL_LINK_INT);
c6b0: 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 . Tcl_LinkVar(i
c6c0: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 63 nterp, "sqlite_c
c6d0: 75 72 72 65 6e 74 5f 74 69 6d 65 22 2c 20 0a 20 urrent_time", .
c6e0: 20 20 20 20 20 28 63 68 61 72 2a 29 26 73 71 6c (char*)&sql
c6f0: 69 74 65 33 5f 63 75 72 72 65 6e 74 5f 74 69 6d ite3_current_tim
c700: 65 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 e, TCL_LINK_INT)
c710: 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 ;. Tcl_LinkVar(
c720: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f interp, "sqlite_
c730: 73 74 61 74 69 63 5f 62 69 6e 64 5f 76 61 6c 75 static_bind_valu
c740: 65 22 2c 0a 20 20 20 20 20 20 28 63 68 61 72 2a e",. (char*
c750: 29 26 73 71 6c 69 74 65 5f 73 74 61 74 69 63 5f )&sqlite_static_
c760: 62 69 6e 64 5f 76 61 6c 75 65 2c 20 54 43 4c 5f bind_value, TCL_
c770: 4c 49 4e 4b 5f 53 54 52 49 4e 47 29 3b 0a 20 20 LINK_STRING);.
c780: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
c790: 0a .