0000: 2f 2a 0a 2a 2a 20 32 30 30 38 20 4d 61 72 63 68 /*.** 2008 March
0010: 20 31 39 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 19.**.** The au
0020: 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 thor disclaims c
0030: 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 opyright to this
0040: 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 source code. I
0050: 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 n place of.** a
0060: 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 legal notice, he
0070: 72 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 re is a blessing
0080: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 :.**.** May y
0090: 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e ou do good and n
00a0: 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d ot evil..** M
00b0: 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 ay you find forg
00c0: 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 iveness for your
00d0: 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 self and forgive
00e0: 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d others..** M
00f0: 61 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65 ay you share fre
0100: 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e ely, never takin
0110: 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 g more than you
0120: 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 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 0a 2a 2a 20 43 6f 64 65 20 66 6f 72 20 74 **.** Code for t
0180: 65 73 74 69 6e 67 20 61 6c 6c 20 73 6f 72 74 73 esting all sorts
0190: 20 6f 66 20 53 51 4c 69 74 65 20 69 6e 74 65 72 of SQLite inter
01a0: 66 61 63 65 73 2e 20 20 54 68 69 73 20 63 6f 64 faces. This cod
01b0: 65 0a 2a 2a 20 69 6d 70 6c 65 6d 65 6e 74 73 20 e.** implements
01c0: 6e 65 77 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e new SQL function
01d0: 73 20 75 73 65 64 20 62 79 20 74 68 65 20 74 65 s used by the te
01e0: 73 74 20 73 63 72 69 70 74 73 2e 0a 2a 2f 0a 23 st scripts..*/.#
01f0: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 33 include "sqlite3
0200: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 74 63 .h".#include "tc
0210: 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73 l.h".#include <s
0220: 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 tdlib.h>.#includ
0230: 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e e <string.h>.#in
0240: 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e clude <assert.h>
0250: 0a 0a 0a 2f 2a 0a 2a 2a 20 41 6c 6c 6f 63 61 74 .../*.** Allocat
0260: 65 20 6e 42 79 74 65 20 62 79 74 65 73 20 6f 66 e nByte bytes of
0270: 20 73 70 61 63 65 20 75 73 69 6e 67 20 73 71 6c space using sql
0280: 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 29 2e 20 49 ite3_malloc(). I
0290: 66 20 74 68 65 0a 2a 2a 20 61 6c 6c 6f 63 61 74 f the.** allocat
02a0: 69 6f 6e 20 66 61 69 6c 73 2c 20 63 61 6c 6c 20 ion fails, call
02b0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 sqlite3_result_e
02c0: 72 72 6f 72 5f 6e 6f 6d 65 6d 28 29 20 74 6f 20 rror_nomem() to
02d0: 6e 6f 74 69 66 79 0a 2a 2a 20 74 68 65 20 64 61 notify.** the da
02e0: 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 74 68 tabase handle th
02f0: 61 74 20 6d 61 6c 6c 6f 63 28 29 20 68 61 73 20 at malloc() has
0300: 66 61 69 6c 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 failed..*/.stati
0310: 63 20 76 6f 69 64 20 2a 74 65 73 74 43 6f 6e 74 c void *testCont
0320: 65 78 74 4d 61 6c 6c 6f 63 28 73 71 6c 69 74 65 extMalloc(sqlite
0330: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
0340: 78 74 2c 20 69 6e 74 20 6e 42 79 74 65 29 7b 0a xt, int nByte){.
0350: 20 20 63 68 61 72 20 2a 7a 20 3d 20 73 71 6c 69 char *z = sqli
0360: 74 65 33 5f 6d 61 6c 6c 6f 63 28 6e 42 79 74 65 te3_malloc(nByte
0370: 29 3b 0a 20 20 69 66 28 20 21 7a 20 26 26 20 6e );. if( !z && n
0380: 42 79 74 65 3e 30 20 29 7b 0a 20 20 20 20 73 71 Byte>0 ){. sq
0390: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 lite3_result_err
03a0: 6f 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 74 or_nomem(context
03b0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 );. }. return
03c0: 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 z;.}../*.** This
03d0: 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 61 function genera
03e0: 74 65 73 20 61 20 73 74 72 69 6e 67 20 6f 66 20 tes a string of
03f0: 72 61 6e 64 6f 6d 20 63 68 61 72 61 63 74 65 72 random character
0400: 73 2e 20 20 55 73 65 64 20 66 6f 72 0a 2a 2a 20 s. Used for.**
0410: 67 65 6e 65 72 61 74 69 6e 67 20 74 65 73 74 20 generating test
0420: 64 61 74 61 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 data..*/.static
0430: 76 6f 69 64 20 72 61 6e 64 53 74 72 28 73 71 6c void randStr(sql
0440: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
0450: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
0460: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
0470: 2a 61 72 67 76 29 7b 0a 20 20 73 74 61 74 69 63 *argv){. static
0480: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
0490: 63 68 61 72 20 7a 53 72 63 5b 5d 20 3d 20 0a 20 char zSrc[] = .
04a0: 20 20 20 20 22 61 62 63 64 65 66 67 68 69 6a 6b "abcdefghijk
04b0: 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 22 lmnopqrstuvwxyz"
04c0: 0a 20 20 20 20 20 22 41 42 43 44 45 46 47 48 49 . "ABCDEFGHI
04d0: 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 JKLMNOPQRSTUVWXY
04e0: 5a 22 0a 20 20 20 20 20 22 30 31 32 33 34 35 36 Z". "0123456
04f0: 37 38 39 22 0a 20 20 20 20 20 22 2e 2d 21 2c 3a 789". ".-!,:
0500: 2a 5e 2b 3d 5f 7c 3f 2f 3c 3e 20 22 3b 0a 20 20 *^+=_|?/<> ";.
0510: 69 6e 74 20 69 4d 69 6e 2c 20 69 4d 61 78 2c 20 int iMin, iMax,
0520: 6e 2c 20 72 2c 20 69 3b 0a 20 20 75 6e 73 69 67 n, r, i;. unsig
0530: 6e 65 64 20 63 68 61 72 20 7a 42 75 66 5b 31 30 ned char zBuf[10
0540: 30 30 5d 3b 0a 0a 20 20 2f 2a 20 49 74 20 75 73 00];.. /* It us
0550: 65 64 20 74 6f 20 62 65 20 70 6f 73 73 69 62 6c ed to be possibl
0560: 65 20 74 6f 20 63 61 6c 6c 20 72 61 6e 64 73 74 e to call randst
0570: 72 28 29 20 77 69 74 68 20 61 6e 79 20 6e 75 6d r() with any num
0580: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
0590: 2c 0a 20 20 2a 2a 20 62 75 74 20 6e 6f 77 20 69 ,. ** but now i
05a0: 74 20 69 73 20 72 65 67 69 73 74 65 72 65 64 20 t is registered
05b0: 77 69 74 68 20 53 51 4c 69 74 65 20 61 73 20 72 with SQLite as r
05c0: 65 71 75 69 72 69 6e 67 20 65 78 61 63 74 6c 79 equiring exactly
05d0: 20 32 2e 0a 20 20 2a 2f 0a 20 20 61 73 73 65 72 2.. */. asser
05e0: 74 28 61 72 67 63 3d 3d 32 29 3b 0a 0a 20 20 69 t(argc==2);.. i
05f0: 4d 69 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 Min = sqlite3_va
0600: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 lue_int(argv[0])
0610: 3b 0a 20 20 69 66 28 20 69 4d 69 6e 3c 30 20 29 ;. if( iMin<0 )
0620: 20 69 4d 69 6e 20 3d 20 30 3b 0a 20 20 69 66 28 iMin = 0;. if(
0630: 20 69 4d 69 6e 3e 3d 73 69 7a 65 6f 66 28 7a 42 iMin>=sizeof(zB
0640: 75 66 29 20 29 20 69 4d 69 6e 20 3d 20 73 69 7a uf) ) iMin = siz
0650: 65 6f 66 28 7a 42 75 66 29 2d 31 3b 0a 20 20 69 eof(zBuf)-1;. i
0660: 4d 61 78 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 Max = sqlite3_va
0670: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 lue_int(argv[1])
0680: 3b 0a 20 20 69 66 28 20 69 4d 61 78 3c 69 4d 69 ;. if( iMax<iMi
0690: 6e 20 29 20 69 4d 61 78 20 3d 20 69 4d 69 6e 3b n ) iMax = iMin;
06a0: 0a 20 20 69 66 28 20 69 4d 61 78 3e 3d 73 69 7a . if( iMax>=siz
06b0: 65 6f 66 28 7a 42 75 66 29 20 29 20 69 4d 61 78 eof(zBuf) ) iMax
06c0: 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75 66 29 2d = sizeof(zBuf)-
06d0: 31 3b 0a 20 20 6e 20 3d 20 69 4d 69 6e 3b 0a 20 1;. n = iMin;.
06e0: 20 69 66 28 20 69 4d 61 78 3e 69 4d 69 6e 20 29 if( iMax>iMin )
06f0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 61 {. sqlite3_ra
0700: 6e 64 6f 6d 6e 65 73 73 28 73 69 7a 65 6f 66 28 ndomness(sizeof(
0710: 72 29 2c 20 26 72 29 3b 0a 20 20 20 20 72 20 26 r), &r);. r &
0720: 3d 20 30 78 37 66 66 66 66 66 66 66 3b 0a 20 20 = 0x7fffffff;.
0730: 20 20 6e 20 2b 3d 20 72 25 28 69 4d 61 78 20 2b n += r%(iMax +
0740: 20 31 20 2d 20 69 4d 69 6e 29 3b 0a 20 20 7d 0a 1 - iMin);. }.
0750: 20 20 61 73 73 65 72 74 28 20 6e 3c 73 69 7a 65 assert( n<size
0760: 6f 66 28 7a 42 75 66 29 20 29 3b 0a 20 20 73 71 of(zBuf) );. sq
0770: 6c 69 74 65 33 5f 72 61 6e 64 6f 6d 6e 65 73 73 lite3_randomness
0780: 28 6e 2c 20 7a 42 75 66 29 3b 0a 20 20 66 6f 72 (n, zBuf);. for
0790: 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b (i=0; i<n; i++){
07a0: 0a 20 20 20 20 7a 42 75 66 5b 69 5d 20 3d 20 7a . zBuf[i] = z
07b0: 53 72 63 5b 7a 42 75 66 5b 69 5d 25 28 73 69 7a Src[zBuf[i]%(siz
07c0: 65 6f 66 28 7a 53 72 63 29 2d 31 29 5d 3b 0a 20 eof(zSrc)-1)];.
07d0: 20 7d 0a 20 20 7a 42 75 66 5b 6e 5d 20 3d 20 30 }. zBuf[n] = 0
07e0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 ;. sqlite3_resu
07f0: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
0800: 20 28 63 68 61 72 2a 29 7a 42 75 66 2c 20 6e 2c (char*)zBuf, n,
0810: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e SQLITE_TRANSIEN
0820: 54 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 T);.}../*.** The
0830: 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 77 6f 20 53 following two S
0840: 51 4c 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 QL functions are
0850: 20 75 73 65 64 20 74 6f 20 74 65 73 74 20 72 65 used to test re
0860: 74 75 72 6e 69 6e 67 20 61 20 74 65 78 74 0a 2a turning a text.*
0870: 2a 20 72 65 73 75 6c 74 20 77 69 74 68 20 61 20 * result with a
0880: 64 65 73 74 72 75 63 74 6f 72 2e 20 46 75 6e 63 destructor. Func
0890: 74 69 6f 6e 20 27 74 65 73 74 5f 64 65 73 74 72 tion 'test_destr
08a0: 75 63 74 6f 72 27 20 74 61 6b 65 73 20 6f 6e 65 uctor' takes one
08b0: 20 61 72 67 75 6d 65 6e 74 0a 2a 2a 20 61 6e 64 argument.** and
08c0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 61 6d returns the sam
08d0: 65 20 61 72 67 75 6d 65 6e 74 20 69 6e 74 65 72 e argument inter
08e0: 70 72 65 74 65 64 20 61 73 20 54 45 58 54 2e 20 preted as TEXT.
08f0: 41 20 64 65 73 74 72 75 63 74 6f 72 20 69 73 0a A destructor is.
0900: 2a 2a 20 70 61 73 73 65 64 20 77 69 74 68 20 74 ** passed with t
0910: 68 65 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c he sqlite3_resul
0920: 74 5f 74 65 78 74 28 29 20 63 61 6c 6c 2e 0a 2a t_text() call..*
0930: 2a 0a 2a 2a 20 53 51 4c 20 66 75 6e 63 74 69 6f *.** SQL functio
0940: 6e 20 27 74 65 73 74 5f 64 65 73 74 72 75 63 74 n 'test_destruct
0950: 6f 72 5f 63 6f 75 6e 74 27 20 72 65 74 75 72 6e or_count' return
0960: 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 s the number of
0970: 6f 75 74 73 74 61 6e 64 69 6e 67 20 0a 2a 2a 20 outstanding .**
0980: 61 6c 6c 6f 63 61 74 69 6f 6e 73 20 6d 61 64 65 allocations made
0990: 20 62 79 20 27 74 65 73 74 5f 64 65 73 74 72 75 by 'test_destru
09a0: 63 74 6f 72 27 3b 0a 2a 2a 0a 2a 2a 20 57 41 52 ctor';.**.** WAR
09b0: 4e 49 4e 47 3a 20 4e 6f 74 20 74 68 72 65 61 64 NING: Not thread
09c0: 73 61 66 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 safe..*/.static
09d0: 69 6e 74 20 74 65 73 74 5f 64 65 73 74 72 75 63 int test_destruc
09e0: 74 6f 72 5f 63 6f 75 6e 74 5f 76 61 72 20 3d 20 tor_count_var =
09f0: 30 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 20 64 0;.static void d
0a00: 65 73 74 72 75 63 74 6f 72 28 76 6f 69 64 20 2a estructor(void *
0a10: 70 29 7b 0a 20 20 63 68 61 72 20 2a 7a 56 61 6c p){. char *zVal
0a20: 20 3d 20 28 63 68 61 72 20 2a 29 70 3b 0a 20 20 = (char *)p;.
0a30: 61 73 73 65 72 74 28 7a 56 61 6c 29 3b 0a 20 20 assert(zVal);.
0a40: 7a 56 61 6c 2d 2d 3b 0a 20 20 73 71 6c 69 74 65 zVal--;. sqlite
0a50: 33 5f 66 72 65 65 28 7a 56 61 6c 29 3b 0a 20 20 3_free(zVal);.
0a60: 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 5f test_destructor_
0a70: 63 6f 75 6e 74 5f 76 61 72 2d 2d 3b 0a 7d 0a 73 count_var--;.}.s
0a80: 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f tatic void test_
0a90: 64 65 73 74 72 75 63 74 6f 72 28 0a 20 20 73 71 destructor(. sq
0aa0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 lite3_context *p
0ab0: 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 Ctx, . int nArg
0ac0: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ,. sqlite3_valu
0ad0: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 68 e **argv.){. ch
0ae0: 61 72 20 2a 7a 56 61 6c 3b 0a 20 20 69 6e 74 20 ar *zVal;. int
0af0: 6c 65 6e 3b 0a 20 20 0a 20 20 74 65 73 74 5f 64 len;. . test_d
0b00: 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 5f estructor_count_
0b10: 76 61 72 2b 2b 3b 0a 20 20 61 73 73 65 72 74 28 var++;. assert(
0b20: 20 6e 41 72 67 3d 3d 31 20 29 3b 0a 20 20 69 66 nArg==1 );. if
0b30: 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f ( sqlite3_value_
0b40: 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 type(argv[0])==S
0b50: 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 QLITE_NULL ) ret
0b60: 75 72 6e 3b 0a 20 20 6c 65 6e 20 3d 20 73 71 6c urn;. len = sql
0b70: 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 ite3_value_bytes
0b80: 28 61 72 67 76 5b 30 5d 29 3b 20 0a 20 20 7a 56 (argv[0]); . zV
0b90: 61 6c 20 3d 20 74 65 73 74 43 6f 6e 74 65 78 74 al = testContext
0ba0: 4d 61 6c 6c 6f 63 28 70 43 74 78 2c 20 6c 65 6e Malloc(pCtx, len
0bb0: 2b 33 29 3b 0a 20 20 69 66 28 20 21 7a 56 61 6c +3);. if( !zVal
0bc0: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a ){. return;.
0bd0: 20 20 7d 0a 20 20 7a 56 61 6c 5b 6c 65 6e 2b 31 }. zVal[len+1
0be0: 5d 20 3d 20 30 3b 0a 20 20 7a 56 61 6c 5b 6c 65 ] = 0;. zVal[le
0bf0: 6e 2b 32 5d 20 3d 20 30 3b 0a 20 20 7a 56 61 6c n+2] = 0;. zVal
0c00: 2b 2b 3b 0a 20 20 6d 65 6d 63 70 79 28 7a 56 61 ++;. memcpy(zVa
0c10: 6c 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 l, sqlite3_value
0c20: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 2c 20 _text(argv[0]),
0c30: 6c 65 6e 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f len);. sqlite3_
0c40: 72 65 73 75 6c 74 5f 74 65 78 74 28 70 43 74 78 result_text(pCtx
0c50: 2c 20 7a 56 61 6c 2c 20 2d 31 2c 20 64 65 73 74 , zVal, -1, dest
0c60: 72 75 63 74 6f 72 29 3b 0a 7d 0a 23 69 66 6e 64 ructor);.}.#ifnd
0c70: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 ef SQLITE_OMIT_U
0c80: 54 46 31 36 0a 73 74 61 74 69 63 20 76 6f 69 64 TF16.static void
0c90: 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 test_destructor
0ca0: 31 36 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 16(. sqlite3_co
0cb0: 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 ntext *pCtx, .
0cc0: 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 int nArg,. sqli
0cd0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
0ce0: 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 56 61 6c .){. char *zVal
0cf0: 3b 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 0a ;. int len;. .
0d00: 20 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f test_destructo
0d10: 72 5f 63 6f 75 6e 74 5f 76 61 72 2b 2b 3b 0a 20 r_count_var++;.
0d20: 20 61 73 73 65 72 74 28 20 6e 41 72 67 3d 3d 31 assert( nArg==1
0d30: 20 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 );. if( sqlite
0d40: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 3_value_type(arg
0d50: 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 v[0])==SQLITE_NU
0d60: 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6c LL ) return;. l
0d70: 65 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c en = sqlite3_val
0d80: 75 65 5f 62 79 74 65 73 31 36 28 61 72 67 76 5b ue_bytes16(argv[
0d90: 30 5d 29 3b 20 0a 20 20 7a 56 61 6c 20 3d 20 74 0]); . zVal = t
0da0: 65 73 74 43 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63 estContextMalloc
0db0: 28 70 43 74 78 2c 20 6c 65 6e 2b 33 29 3b 0a 20 (pCtx, len+3);.
0dc0: 20 69 66 28 20 21 7a 56 61 6c 20 29 7b 0a 20 20 if( !zVal ){.
0dd0: 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 return;. }.
0de0: 7a 56 61 6c 5b 6c 65 6e 2b 31 5d 20 3d 20 30 3b zVal[len+1] = 0;
0df0: 0a 20 20 7a 56 61 6c 5b 6c 65 6e 2b 32 5d 20 3d . zVal[len+2] =
0e00: 20 30 3b 0a 20 20 7a 56 61 6c 2b 2b 3b 0a 20 20 0;. zVal++;.
0e10: 6d 65 6d 63 70 79 28 7a 56 61 6c 2c 20 73 71 6c memcpy(zVal, sql
0e20: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 ite3_value_text1
0e30: 36 28 61 72 67 76 5b 30 5d 29 2c 20 6c 65 6e 29 6(argv[0]), len)
0e40: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 ;. sqlite3_resu
0e50: 6c 74 5f 74 65 78 74 31 36 28 70 43 74 78 2c 20 lt_text16(pCtx,
0e60: 7a 56 61 6c 2c 20 2d 31 2c 20 64 65 73 74 72 75 zVal, -1, destru
0e70: 63 74 6f 72 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a ctor);.}.#endif.
0e80: 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 static void test
0e90: 5f 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e _destructor_coun
0ea0: 74 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e t(. sqlite3_con
0eb0: 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 text *pCtx, . i
0ec0: 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 nt nArg,. sqlit
0ed0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a e3_value **argv.
0ee0: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 ){. sqlite3_res
0ef0: 75 6c 74 5f 69 6e 74 28 70 43 74 78 2c 20 74 65 ult_int(pCtx, te
0f00: 73 74 5f 64 65 73 74 72 75 63 74 6f 72 5f 63 6f st_destructor_co
0f10: 75 6e 74 5f 76 61 72 29 3b 0a 7d 0a 0a 2f 2a 0a unt_var);.}../*.
0f20: 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 ** The following
0f30: 20 61 67 67 72 65 67 61 74 65 20 66 75 6e 63 74 aggregate funct
0f40: 69 6f 6e 2c 20 74 65 73 74 5f 61 67 67 5f 65 72 ion, test_agg_er
0f50: 72 6d 73 67 31 36 28 29 2c 20 74 61 6b 65 73 20 rmsg16(), takes
0f60: 7a 65 72 6f 20 0a 2a 2a 20 61 72 67 75 6d 65 6e zero .** argumen
0f70: 74 73 2e 20 49 74 20 72 65 74 75 72 6e 73 20 74 ts. It returns t
0f80: 68 65 20 74 65 78 74 20 76 61 6c 75 65 20 72 65 he text value re
0f90: 74 75 72 6e 65 64 20 62 79 20 74 68 65 20 73 71 turned by the sq
0fa0: 6c 69 74 65 33 5f 65 72 72 6d 73 67 31 36 28 29 lite3_errmsg16()
0fb0: 0a 2a 2a 20 41 50 49 20 66 75 6e 63 74 69 6f 6e .** API function
0fc0: 2e 0a 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 ..*/.void sqlite
0fd0: 33 42 65 67 69 6e 42 65 6e 69 67 6e 4d 61 6c 6c 3BeginBenignMall
0fe0: 6f 63 28 76 6f 69 64 29 3b 0a 76 6f 69 64 20 73 oc(void);.void s
0ff0: 71 6c 69 74 65 33 45 6e 64 42 65 6e 69 67 6e 4d qlite3EndBenignM
1000: 61 6c 6c 6f 63 28 76 6f 69 64 29 3b 0a 73 74 61 alloc(void);.sta
1010: 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f 61 67 tic void test_ag
1020: 67 5f 65 72 72 6d 73 67 31 36 5f 73 74 65 70 28 g_errmsg16_step(
1030: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
1040: 2a 61 2c 20 69 6e 74 20 62 2c 73 71 6c 69 74 65 *a, int b,sqlite
1050: 33 5f 76 61 6c 75 65 20 2a 2a 63 29 7b 0a 7d 0a 3_value **c){.}.
1060: 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 static void test
1070: 5f 61 67 67 5f 65 72 72 6d 73 67 31 36 5f 66 69 _agg_errmsg16_fi
1080: 6e 61 6c 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 nal(sqlite3_cont
1090: 65 78 74 20 2a 63 74 78 29 7b 0a 23 69 66 6e 64 ext *ctx){.#ifnd
10a0: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 ef SQLITE_OMIT_U
10b0: 54 46 31 36 0a 20 20 63 6f 6e 73 74 20 76 6f 69 TF16. const voi
10c0: 64 20 2a 7a 3b 0a 20 20 73 71 6c 69 74 65 33 20 d *z;. sqlite3
10d0: 2a 20 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 * db = sqlite3_c
10e0: 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 ontext_db_handle
10f0: 28 63 74 78 29 3b 0a 20 20 73 71 6c 69 74 65 33 (ctx);. sqlite3
1100: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 _aggregate_conte
1110: 78 74 28 63 74 78 2c 20 32 30 34 38 29 3b 0a 20 xt(ctx, 2048);.
1120: 20 73 71 6c 69 74 65 33 42 65 67 69 6e 42 65 6e sqlite3BeginBen
1130: 69 67 6e 4d 61 6c 6c 6f 63 28 29 3b 0a 20 20 7a ignMalloc();. z
1140: 20 3d 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 = sqlite3_errms
1150: 67 31 36 28 64 62 29 3b 0a 20 20 73 71 6c 69 74 g16(db);. sqlit
1160: 65 33 45 6e 64 42 65 6e 69 67 6e 4d 61 6c 6c 6f e3EndBenignMallo
1170: 63 28 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 c();. sqlite3_r
1180: 65 73 75 6c 74 5f 74 65 78 74 31 36 28 63 74 78 esult_text16(ctx
1190: 2c 20 7a 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f , z, -1, SQLITE_
11a0: 54 52 41 4e 53 49 45 4e 54 29 3b 0a 23 65 6e 64 TRANSIENT);.#end
11b0: 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 if.}../*.** Rout
11c0: 69 6e 65 73 20 66 6f 72 20 74 65 73 74 69 6e 67 ines for testing
11d0: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 67 65 74 the sqlite3_get
11e0: 5f 61 75 78 64 61 74 61 28 29 20 61 6e 64 20 73 _auxdata() and s
11f0: 71 6c 69 74 65 33 5f 73 65 74 5f 61 75 78 64 61 qlite3_set_auxda
1200: 74 61 28 29 0a 2a 2a 20 69 6e 74 65 72 66 61 63 ta().** interfac
1210: 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 74 65 73 e..**.** The tes
1220: 74 5f 61 75 78 64 61 74 61 28 29 20 53 51 4c 20 t_auxdata() SQL
1230: 66 75 6e 63 74 69 6f 6e 20 61 74 74 65 6d 70 74 function attempt
1240: 73 20 74 6f 20 72 65 67 69 73 74 65 72 20 65 61 s to register ea
1250: 63 68 20 6f 66 20 69 74 73 20 61 72 67 75 6d 65 ch of its argume
1260: 6e 74 73 0a 2a 2a 20 61 73 20 61 75 78 69 6c 69 nts.** as auxili
1270: 61 72 79 20 64 61 74 61 2e 20 20 49 66 20 74 68 ary data. If th
1280: 65 72 65 20 61 72 65 20 6e 6f 20 70 72 69 6f 72 ere are no prior
1290: 20 72 65 67 69 73 74 72 61 74 69 6f 6e 73 20 6f registrations o
12a0: 66 20 61 75 78 20 64 61 74 61 20 66 6f 72 0a 2a f aux data for.*
12b0: 2a 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74 20 * that argument
12c0: 28 6d 65 61 6e 69 6e 67 20 74 68 65 20 61 72 67 (meaning the arg
12d0: 75 6d 65 6e 74 20 69 73 20 6e 6f 74 20 61 20 63 ument is not a c
12e0: 6f 6e 73 74 61 6e 74 20 6f 72 20 74 68 69 73 20 onstant or this
12f0: 69 73 20 69 74 73 20 66 69 72 73 74 0a 2a 2a 20 is its first.**
1300: 63 61 6c 6c 29 20 74 68 65 6e 20 74 68 65 20 72 call) then the r
1310: 65 73 75 6c 74 20 66 6f 72 20 74 68 61 74 20 61 esult for that a
1320: 72 67 75 6d 65 6e 74 20 69 73 20 30 2e 20 20 49 rgument is 0. I
1330: 66 20 74 68 65 72 65 20 69 73 20 61 20 70 72 69 f there is a pri
1340: 6f 72 0a 2a 2a 20 72 65 67 69 73 74 72 61 74 69 or.** registrati
1350: 6f 6e 2c 20 74 68 65 20 72 65 73 75 6c 74 20 66 on, the result f
1360: 6f 72 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74 or that argument
1370: 20 69 73 20 31 2e 20 20 54 68 65 20 6f 76 65 72 is 1. The over
1380: 61 6c 6c 20 72 65 73 75 6c 74 0a 2a 2a 20 69 73 all result.** is
1390: 20 74 68 65 20 69 6e 64 69 76 69 64 75 61 6c 20 the individual
13a0: 61 72 67 75 6d 65 6e 74 20 72 65 73 75 6c 74 73 argument results
13b0: 20 73 65 70 61 72 61 74 65 64 20 62 79 20 73 70 separated by sp
13c0: 61 63 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 aces..*/.static
13d0: 76 6f 69 64 20 66 72 65 65 5f 74 65 73 74 5f 61 void free_test_a
13e0: 75 78 64 61 74 61 28 76 6f 69 64 20 2a 70 29 20 uxdata(void *p)
13f0: 7b 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70 29 {sqlite3_free(p)
1400: 3b 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 ;}.static void t
1410: 65 73 74 5f 61 75 78 64 61 74 61 28 0a 20 20 73 est_auxdata(. s
1420: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
1430: 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 pCtx, . int nAr
1440: 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c g,. sqlite3_val
1450: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 ue **argv.){. i
1460: 6e 74 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a 52 nt i;. char *zR
1470: 65 74 20 3d 20 74 65 73 74 43 6f 6e 74 65 78 74 et = testContext
1480: 4d 61 6c 6c 6f 63 28 70 43 74 78 2c 20 6e 41 72 Malloc(pCtx, nAr
1490: 67 2a 32 29 3b 0a 20 20 69 66 28 20 21 7a 52 65 g*2);. if( !zRe
14a0: 74 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6d 65 t ) return;. me
14b0: 6d 73 65 74 28 7a 52 65 74 2c 20 30 2c 20 6e 41 mset(zRet, 0, nA
14c0: 72 67 2a 32 29 3b 0a 20 20 66 6f 72 28 69 3d 30 rg*2);. for(i=0
14d0: 3b 20 69 3c 6e 41 72 67 3b 20 69 2b 2b 29 7b 0a ; i<nArg; i++){.
14e0: 20 20 20 20 63 68 61 72 20 63 6f 6e 73 74 20 2a char const *
14f0: 7a 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69 74 z = (char*)sqlit
1500: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
1510: 67 76 5b 69 5d 29 3b 0a 20 20 20 20 69 66 28 20 gv[i]);. if(
1520: 7a 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 6e z ){. int n
1530: 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a 41 ;. char *zA
1540: 75 78 20 3d 20 73 71 6c 69 74 65 33 5f 67 65 74 ux = sqlite3_get
1550: 5f 61 75 78 64 61 74 61 28 70 43 74 78 2c 20 69 _auxdata(pCtx, i
1560: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 41 75 );. if( zAu
1570: 78 20 29 7b 0a 20 20 20 20 20 20 20 20 7a 52 65 x ){. zRe
1580: 74 5b 69 2a 32 5d 20 3d 20 27 31 27 3b 0a 20 20 t[i*2] = '1';.
1590: 20 20 20 20 20 20 61 73 73 65 72 74 28 20 73 74 assert( st
15a0: 72 63 6d 70 28 7a 41 75 78 2c 7a 29 3d 3d 30 20 rcmp(zAux,z)==0
15b0: 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 7b );. }else {
15c0: 0a 20 20 20 20 20 20 20 20 7a 52 65 74 5b 69 2a . zRet[i*
15d0: 32 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 2] = '0';.
15e0: 7d 0a 20 20 20 20 20 20 6e 20 3d 20 73 74 72 6c }. n = strl
15f0: 65 6e 28 7a 29 20 2b 20 31 3b 0a 20 20 20 20 20 en(z) + 1;.
1600: 20 7a 41 75 78 20 3d 20 74 65 73 74 43 6f 6e 74 zAux = testCont
1610: 65 78 74 4d 61 6c 6c 6f 63 28 70 43 74 78 2c 20 extMalloc(pCtx,
1620: 6e 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 41 n);. if( zA
1630: 75 78 20 29 7b 0a 20 20 20 20 20 20 20 20 6d 65 ux ){. me
1640: 6d 63 70 79 28 7a 41 75 78 2c 20 7a 2c 20 6e 29 mcpy(zAux, z, n)
1650: 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 ;. sqlite
1660: 33 5f 73 65 74 5f 61 75 78 64 61 74 61 28 70 43 3_set_auxdata(pC
1670: 74 78 2c 20 69 2c 20 7a 41 75 78 2c 20 66 72 65 tx, i, zAux, fre
1680: 65 5f 74 65 73 74 5f 61 75 78 64 61 74 61 29 3b e_test_auxdata);
1690: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7a . }. z
16a0: 52 65 74 5b 69 2a 32 2b 31 5d 20 3d 20 27 20 27 Ret[i*2+1] = ' '
16b0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 71 ;. }. }. sq
16c0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
16d0: 74 28 70 43 74 78 2c 20 7a 52 65 74 2c 20 32 2a t(pCtx, zRet, 2*
16e0: 6e 41 72 67 2d 31 2c 20 66 72 65 65 5f 74 65 73 nArg-1, free_tes
16f0: 74 5f 61 75 78 64 61 74 61 29 3b 0a 7d 0a 0a 2f t_auxdata);.}../
1700: 2a 0a 2a 2a 20 41 20 66 75 6e 63 74 69 6f 6e 20 *.** A function
1710: 74 6f 20 74 65 73 74 20 65 72 72 6f 72 20 72 65 to test error re
1720: 70 6f 72 74 69 6e 67 20 66 72 6f 6d 20 75 73 65 porting from use
1730: 72 20 66 75 6e 63 74 69 6f 6e 73 2e 20 54 68 69 r functions. Thi
1740: 73 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 72 65 s function.** re
1750: 74 75 72 6e 73 20 61 20 63 6f 70 79 20 6f 66 20 turns a copy of
1760: 69 74 73 20 66 69 72 73 74 20 61 72 67 75 6d 65 its first argume
1770: 6e 74 20 61 73 20 74 68 65 20 65 72 72 6f 72 20 nt as the error
1780: 6d 65 73 73 61 67 65 2e 20 20 49 66 20 74 68 65 message. If the
1790: 0a 2a 2a 20 73 65 63 6f 6e 64 20 61 72 67 75 6d .** second argum
17a0: 65 6e 74 20 65 78 69 73 74 73 2c 20 69 74 20 62 ent exists, it b
17b0: 65 63 6f 6d 65 73 20 74 68 65 20 65 72 72 6f 72 ecomes the error
17c0: 20 63 6f 64 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 code..*/.static
17d0: 20 76 6f 69 64 20 74 65 73 74 5f 65 72 72 6f 72 void test_error
17e0: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 (. sqlite3_cont
17f0: 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e ext *pCtx, . in
1800: 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 t nArg,. sqlite
1810: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 3_value **argv.)
1820: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 {. sqlite3_resu
1830: 6c 74 5f 65 72 72 6f 72 28 70 43 74 78 2c 20 28 lt_error(pCtx, (
1840: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 char*)sqlite3_va
1850: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d lue_text(argv[0]
1860: 29 2c 20 2d 31 29 3b 0a 20 20 69 66 28 20 6e 41 ), -1);. if( nA
1870: 72 67 3d 3d 32 20 29 7b 0a 20 20 20 20 73 71 6c rg==2 ){. sql
1880: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
1890: 72 5f 63 6f 64 65 28 70 43 74 78 2c 20 73 71 6c r_code(pCtx, sql
18a0: 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 ite3_value_int(a
18b0: 72 67 76 5b 31 5d 29 29 3b 0a 20 20 7d 0a 7d 0a rgv[1]));. }.}.
18c0: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
18d0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 75 ation of the cou
18e0: 6e 74 65 72 28 58 29 20 66 75 6e 63 74 69 6f 6e nter(X) function
18f0: 2e 20 20 49 66 20 58 20 69 73 20 61 6e 20 69 6e . If X is an in
1900: 74 65 67 65 72 0a 2a 2a 20 63 6f 6e 73 74 61 6e teger.** constan
1910: 74 2c 20 74 68 65 6e 20 74 68 65 20 66 69 72 73 t, then the firs
1920: 74 20 69 6e 76 6f 63 61 74 69 6f 6e 20 77 69 6c t invocation wil
1930: 6c 20 72 65 74 75 72 6e 20 58 2e 20 20 54 68 65 l return X. The
1940: 20 73 65 63 6f 6e 64 20 58 2b 31 2e 0a 2a 2a 20 second X+1..**
1950: 61 6e 64 20 73 6f 20 66 6f 72 74 68 2e 20 20 43 and so forth. C
1960: 61 6e 20 62 65 20 75 73 65 64 20 28 66 6f 72 20 an be used (for
1970: 65 78 61 6d 70 6c 65 29 20 74 6f 20 70 72 6f 76 example) to prov
1980: 69 64 65 20 61 20 73 65 71 75 65 6e 63 65 20 6e ide a sequence n
1990: 75 6d 62 65 72 0a 2a 2a 20 69 6e 20 61 20 72 65 umber.** in a re
19a0: 73 75 6c 74 20 73 65 74 2e 0a 2a 2f 0a 73 74 61 sult set..*/.sta
19b0: 74 69 63 20 76 6f 69 64 20 63 6f 75 6e 74 65 72 tic void counter
19c0: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
19d0: 63 6f 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 20 context *pCtx,
19e0: 20 2f 2a 20 46 75 6e 63 74 69 6f 6e 20 63 6f 6e /* Function con
19f0: 74 65 78 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 41 text */. int nA
1a00: 72 67 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 rg,
1a10: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
1a20: 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d 65 6e function argumen
1a30: 74 73 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f ts */. sqlite3_
1a40: 76 61 6c 75 65 20 2a 2a 61 72 67 76 20 20 20 20 value **argv
1a50: 20 2f 2a 20 56 61 6c 75 65 73 20 66 6f 72 20 61 /* Values for a
1a60: 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 ll function argu
1a70: 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e ments */.){. in
1a80: 74 20 2a 70 43 6f 75 6e 74 65 72 20 3d 20 28 69 t *pCounter = (i
1a90: 6e 74 2a 29 73 71 6c 69 74 65 33 5f 67 65 74 5f nt*)sqlite3_get_
1aa0: 61 75 78 64 61 74 61 28 70 43 74 78 2c 20 30 29 auxdata(pCtx, 0)
1ab0: 3b 0a 20 20 69 66 28 20 70 43 6f 75 6e 74 65 72 ;. if( pCounter
1ac0: 3d 3d 30 20 29 7b 0a 20 20 20 20 70 43 6f 75 6e ==0 ){. pCoun
1ad0: 74 65 72 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61 ter = sqlite3_ma
1ae0: 6c 6c 6f 63 28 20 73 69 7a 65 6f 66 28 2a 70 43 lloc( sizeof(*pC
1af0: 6f 75 6e 74 65 72 29 20 29 3b 0a 20 20 20 20 69 ounter) );. i
1b00: 66 28 20 70 43 6f 75 6e 74 65 72 3d 3d 30 20 29 f( pCounter==0 )
1b10: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f {. sqlite3_
1b20: 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d result_error_nom
1b30: 65 6d 28 70 43 74 78 29 3b 0a 20 20 20 20 20 20 em(pCtx);.
1b40: 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 return;. }.
1b50: 20 20 2a 70 43 6f 75 6e 74 65 72 20 3d 20 73 71 *pCounter = sq
1b60: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 lite3_value_int(
1b70: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 73 71 argv[0]);. sq
1b80: 6c 69 74 65 33 5f 73 65 74 5f 61 75 78 64 61 74 lite3_set_auxdat
1b90: 61 28 70 43 74 78 2c 20 30 2c 20 70 43 6f 75 6e a(pCtx, 0, pCoun
1ba0: 74 65 72 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 ter, sqlite3_fre
1bb0: 65 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 e);. }else{.
1bc0: 20 2b 2b 2a 70 43 6f 75 6e 74 65 72 3b 0a 20 20 ++*pCounter;.
1bd0: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 }. sqlite3_resu
1be0: 6c 74 5f 69 6e 74 28 70 43 74 78 2c 20 2a 70 43 lt_int(pCtx, *pC
1bf0: 6f 75 6e 74 65 72 29 3b 0a 7d 0a 0a 0a 2f 2a 0a ounter);.}.../*.
1c00: 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e ** This function
1c10: 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 75 6d takes two argum
1c20: 65 6e 74 73 2e 20 20 49 74 20 70 65 72 66 6f 72 ents. It perfor
1c30: 6d 61 6e 63 65 20 55 54 46 2d 38 2f 31 36 20 74 mance UTF-8/16 t
1c40: 79 70 65 0a 2a 2a 20 63 6f 6e 76 65 72 73 69 6f ype.** conversio
1c50: 6e 73 20 6f 6e 20 74 68 65 20 66 69 72 73 74 20 ns on the first
1c60: 61 72 67 75 6d 65 6e 74 20 74 68 65 6e 20 72 65 argument then re
1c70: 74 75 72 6e 73 20 61 20 63 6f 70 79 20 6f 66 20 turns a copy of
1c80: 74 68 65 20 73 65 63 6f 6e 64 0a 2a 2a 20 61 72 the second.** ar
1c90: 67 75 6d 65 6e 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 gument..**.** Th
1ca0: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 is function is u
1cb0: 73 65 64 20 69 6e 20 63 61 73 65 73 20 73 75 63 sed in cases suc
1cc0: 68 20 61 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 h as the followi
1cd0: 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 53 ng:.**.** S
1ce0: 45 4c 45 43 54 20 74 65 73 74 5f 69 73 6f 6c 61 ELECT test_isola
1cf0: 74 69 6f 6e 28 78 2c 78 29 20 46 52 4f 4d 20 74 tion(x,x) FROM t
1d00: 31 3b 0a 2a 2a 0a 2a 2a 20 57 65 20 77 61 6e 74 1;.**.** We want
1d10: 20 74 6f 20 76 65 72 69 66 79 20 74 68 61 74 20 to verify that
1d20: 74 68 65 20 74 79 70 65 20 63 6f 6e 76 65 72 73 the type convers
1d30: 69 6f 6e 73 20 74 68 61 74 20 6f 63 63 75 72 20 ions that occur
1d40: 6f 6e 20 74 68 65 0a 2a 2a 20 66 69 72 73 74 20 on the.** first
1d50: 61 72 67 75 6d 65 6e 74 20 64 6f 20 6e 6f 74 20 argument do not
1d60: 69 6e 76 61 6c 69 64 61 74 65 20 74 68 65 20 73 invalidate the s
1d70: 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 2e 0a econd argument..
1d80: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 */.static void t
1d90: 65 73 74 5f 69 73 6f 6c 61 74 69 6f 6e 28 0a 20 est_isolation(.
1da0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
1db0: 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e *pCtx, . int n
1dc0: 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 Arg,. sqlite3_v
1dd0: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 23 alue **argv.){.#
1de0: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
1df0: 49 54 5f 55 54 46 31 36 0a 20 20 73 71 6c 69 74 IT_UTF16. sqlit
1e00: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 e3_value_text16(
1e10: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c 69 argv[0]);. sqli
1e20: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
1e30: 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c 69 74 rgv[0]);. sqlit
1e40: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 e3_value_text16(
1e50: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c 69 argv[0]);. sqli
1e60: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
1e70: 72 67 76 5b 30 5d 29 3b 0a 23 65 6e 64 69 66 0a rgv[0]);.#endif.
1e80: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
1e90: 5f 76 61 6c 75 65 28 70 43 74 78 2c 20 61 72 67 _value(pCtx, arg
1ea0: 76 5b 31 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 v[1]);.}../*.**
1eb0: 49 6e 76 6f 6b 65 20 61 6e 20 53 51 4c 20 73 74 Invoke an SQL st
1ec0: 61 74 65 6d 65 6e 74 20 72 65 63 75 72 73 69 76 atement recursiv
1ed0: 65 6c 79 2e 20 20 54 68 65 20 66 75 6e 63 74 69 ely. The functi
1ee0: 6f 6e 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 on result is the
1ef0: 20 0a 2a 2a 20 66 69 72 73 74 20 63 6f 6c 75 6d .** first colum
1f00: 6e 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 72 n of the first r
1f10: 6f 77 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 ow of the result
1f20: 20 73 65 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 set..*/.static
1f30: 76 6f 69 64 20 74 65 73 74 5f 65 76 61 6c 28 0a void test_eval(.
1f40: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
1f50: 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 t *pCtx, . int
1f60: 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f nArg,. sqlite3_
1f70: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
1f80: 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a sqlite3_stmt *
1f90: 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b pStmt;. int rc;
1fa0: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d . sqlite3 *db =
1fb0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
1fc0: 5f 64 62 5f 68 61 6e 64 6c 65 28 70 43 74 78 29 _db_handle(pCtx)
1fd0: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ;. const char *
1fe0: 7a 53 71 6c 3b 0a 0a 20 20 7a 53 71 6c 20 3d 20 zSql;.. zSql =
1ff0: 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 (char*)sqlite3_v
2000: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
2010: 5d 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 ]);. rc = sqlit
2020: 65 33 5f 70 72 65 70 61 72 65 5f 76 32 28 64 62 e3_prepare_v2(db
2030: 2c 20 7a 53 71 6c 2c 20 2d 31 2c 20 26 70 53 74 , zSql, -1, &pSt
2040: 6d 74 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63 mt, 0);. if( rc
2050: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 ==SQLITE_OK ){.
2060: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
2070: 73 74 65 70 28 70 53 74 6d 74 29 3b 0a 20 20 20 step(pStmt);.
2080: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f if( rc==SQLITE_
2090: 52 4f 57 20 29 7b 0a 20 20 20 20 20 20 73 71 6c ROW ){. sql
20a0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 ite3_result_valu
20b0: 65 28 70 43 74 78 2c 20 73 71 6c 69 74 65 33 5f e(pCtx, sqlite3_
20c0: 63 6f 6c 75 6d 6e 5f 76 61 6c 75 65 28 70 53 74 column_value(pSt
20d0: 6d 74 2c 20 30 29 29 3b 0a 20 20 20 20 7d 0a 20 mt, 0));. }.
20e0: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f rc = sqlite3_
20f0: 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d 74 29 3b finalize(pStmt);
2100: 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 20 29 7b . }. if( rc ){
2110: 0a 20 20 20 20 63 68 61 72 20 2a 7a 45 72 72 3b . char *zErr;
2120: 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 53 74 . assert( pSt
2130: 6d 74 3d 3d 30 20 29 3b 0a 20 20 20 20 7a 45 72 mt==0 );. zEr
2140: 72 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 r = sqlite3_mpri
2150: 6e 74 66 28 22 73 71 6c 69 74 65 33 5f 70 72 65 ntf("sqlite3_pre
2160: 70 61 72 65 5f 76 32 28 29 20 65 72 72 6f 72 3a pare_v2() error:
2170: 20 25 73 22 2c 73 71 6c 69 74 65 33 5f 65 72 72 %s",sqlite3_err
2180: 6d 73 67 28 64 62 29 29 3b 0a 20 20 20 20 73 71 msg(db));. sq
2190: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
21a0: 74 28 70 43 74 78 2c 20 7a 45 72 72 2c 20 2d 31 t(pCtx, zErr, -1
21b0: 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b , sqlite3_free);
21c0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
21d0: 75 6c 74 5f 65 72 72 6f 72 5f 63 6f 64 65 28 70 ult_error_code(p
21e0: 43 74 78 2c 20 72 63 29 3b 0a 20 20 7d 0a 7d 0a Ctx, rc);. }.}.
21f0: 0a 0a 2f 2a 0a 2a 2a 20 63 6f 6e 76 65 72 74 20 ../*.** convert
2200: 6f 6e 65 20 63 68 61 72 61 63 74 65 72 20 66 72 one character fr
2210: 6f 6d 20 68 65 78 20 74 6f 20 62 69 6e 61 72 79 om hex to binary
2220: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
2230: 65 73 74 48 65 78 43 68 61 72 28 63 68 61 72 20 estHexChar(char
2240: 63 29 7b 0a 20 20 69 66 28 20 63 3e 3d 27 30 27 c){. if( c>='0'
2250: 20 26 26 20 63 3c 3d 27 39 27 20 29 7b 0a 20 20 && c<='9' ){.
2260: 20 20 72 65 74 75 72 6e 20 63 20 2d 20 27 30 27 return c - '0'
2270: 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3e ;. }else if( c>
2280: 3d 27 61 27 20 26 26 20 63 3c 3d 27 66 27 20 29 ='a' && c<='f' )
2290: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 63 20 2d {. return c -
22a0: 20 27 61 27 20 2b 20 31 30 3b 0a 20 20 7d 65 6c 'a' + 10;. }el
22b0: 73 65 20 69 66 28 20 63 3e 3d 27 41 27 20 26 26 se if( c>='A' &&
22c0: 20 63 3c 3d 27 46 27 20 29 7b 0a 20 20 20 20 72 c<='F' ){. r
22d0: 65 74 75 72 6e 20 63 20 2d 20 27 41 27 20 2b 20 eturn c - 'A' +
22e0: 31 30 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 10;. }. return
22f0: 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 0;.}../*.** Con
2300: 76 65 72 74 20 68 65 78 20 74 6f 20 62 69 6e 61 vert hex to bina
2310: 72 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ry..*/.static vo
2320: 69 64 20 74 65 73 74 48 65 78 54 6f 42 69 6e 28 id testHexToBin(
2330: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 49 6e 2c const char *zIn,
2340: 20 63 68 61 72 20 2a 7a 4f 75 74 29 7b 0a 20 20 char *zOut){.
2350: 77 68 69 6c 65 28 20 7a 49 6e 5b 30 5d 20 26 26 while( zIn[0] &&
2360: 20 7a 49 6e 5b 31 5d 20 29 7b 0a 20 20 20 20 2a zIn[1] ){. *
2370: 28 7a 4f 75 74 2b 2b 29 20 3d 20 28 74 65 73 74 (zOut++) = (test
2380: 48 65 78 43 68 61 72 28 7a 49 6e 5b 30 5d 29 3c HexChar(zIn[0])<
2390: 3c 34 29 20 2b 20 74 65 73 74 48 65 78 43 68 61 <4) + testHexCha
23a0: 72 28 7a 49 6e 5b 31 5d 29 3b 0a 20 20 20 20 7a r(zIn[1]);. z
23b0: 49 6e 20 2b 3d 20 32 3b 0a 20 20 7d 0a 7d 0a 0a In += 2;. }.}..
23c0: 2f 2a 0a 2a 2a 20 20 20 20 20 20 68 65 78 5f 74 /*.** hex_t
23d0: 6f 5f 75 74 66 31 36 62 65 28 48 45 58 29 0a 2a o_utf16be(HEX).*
23e0: 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 74 68 65 *.** Convert the
23f0: 20 69 6e 70 75 74 20 73 74 72 69 6e 67 20 66 72 input string fr
2400: 6f 6d 20 48 45 58 20 69 6e 74 6f 20 62 69 6e 61 om HEX into bina
2410: 72 79 2e 20 20 54 68 65 6e 20 72 65 74 75 72 6e ry. Then return
2420: 20 74 68 65 0a 2a 2a 20 72 65 73 75 6c 74 20 75 the.** result u
2430: 73 69 6e 67 20 73 71 6c 69 74 65 33 5f 72 65 73 sing sqlite3_res
2440: 75 6c 74 5f 74 65 78 74 31 36 6c 65 28 29 2e 0a ult_text16le()..
2450: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 */.static void t
2460: 65 73 74 48 65 78 54 6f 55 74 66 31 36 62 65 28 estHexToUtf16be(
2470: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 . sqlite3_conte
2480: 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 xt *pCtx, . int
2490: 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 nArg,. sqlite3
24a0: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
24b0: 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 63 6f 6e 73 . int n;. cons
24c0: 74 20 63 68 61 72 20 2a 7a 49 6e 3b 0a 20 20 63 t char *zIn;. c
24d0: 68 61 72 20 2a 7a 4f 75 74 3b 0a 20 20 61 73 73 har *zOut;. ass
24e0: 65 72 74 28 20 6e 41 72 67 3d 3d 31 20 29 3b 0a ert( nArg==1 );.
24f0: 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 n = sqlite3_va
2500: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 lue_bytes(argv[0
2510: 5d 29 3b 0a 20 20 7a 49 6e 20 3d 20 28 63 6f 6e ]);. zIn = (con
2520: 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 st char*)sqlite3
2530: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 _value_text(argv
2540: 5b 30 5d 29 3b 0a 20 20 7a 4f 75 74 20 3d 20 73 [0]);. zOut = s
2550: 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 6e qlite3_malloc( n
2560: 2f 32 20 29 3b 0a 20 20 69 66 28 20 7a 4f 75 74 /2 );. if( zOut
2570: 3d 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 ==0 ){. sqlit
2580: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f e3_result_error_
2590: 6e 6f 6d 65 6d 28 70 43 74 78 29 3b 0a 20 20 7d nomem(pCtx);. }
25a0: 65 6c 73 65 7b 0a 20 20 20 20 74 65 73 74 48 65 else{. testHe
25b0: 78 54 6f 42 69 6e 28 7a 49 6e 2c 20 7a 4f 75 74 xToBin(zIn, zOut
25c0: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 );. sqlite3_r
25d0: 65 73 75 6c 74 5f 74 65 78 74 31 36 62 65 28 70 esult_text16be(p
25e0: 43 74 78 2c 20 7a 4f 75 74 2c 20 6e 2f 32 2c 20 Ctx, zOut, n/2,
25f0: 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 sqlite3_free);.
2600: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 }.}../*.**
2610: 20 68 65 78 5f 74 6f 5f 75 74 66 38 28 48 45 58 hex_to_utf8(HEX
2620: 29 0a 2a 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 ).**.** Convert
2630: 74 68 65 20 69 6e 70 75 74 20 73 74 72 69 6e 67 the input string
2640: 20 66 72 6f 6d 20 48 45 58 20 69 6e 74 6f 20 62 from HEX into b
2650: 69 6e 61 72 79 2e 20 20 54 68 65 6e 20 72 65 74 inary. Then ret
2660: 75 72 6e 20 74 68 65 0a 2a 2a 20 72 65 73 75 6c urn the.** resul
2670: 74 20 75 73 69 6e 67 20 73 71 6c 69 74 65 33 5f t using sqlite3_
2680: 72 65 73 75 6c 74 5f 74 65 78 74 31 36 6c 65 28 result_text16le(
2690: 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 )..*/.static voi
26a0: 64 20 74 65 73 74 48 65 78 54 6f 55 74 66 38 28 d testHexToUtf8(
26b0: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 . sqlite3_conte
26c0: 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 xt *pCtx, . int
26d0: 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 nArg,. sqlite3
26e0: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
26f0: 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 63 6f 6e 73 . int n;. cons
2700: 74 20 63 68 61 72 20 2a 7a 49 6e 3b 0a 20 20 63 t char *zIn;. c
2710: 68 61 72 20 2a 7a 4f 75 74 3b 0a 20 20 61 73 73 har *zOut;. ass
2720: 65 72 74 28 20 6e 41 72 67 3d 3d 31 20 29 3b 0a ert( nArg==1 );.
2730: 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 n = sqlite3_va
2740: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 lue_bytes(argv[0
2750: 5d 29 3b 0a 20 20 7a 49 6e 20 3d 20 28 63 6f 6e ]);. zIn = (con
2760: 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 st char*)sqlite3
2770: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 _value_text(argv
2780: 5b 30 5d 29 3b 0a 20 20 7a 4f 75 74 20 3d 20 73 [0]);. zOut = s
2790: 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 6e qlite3_malloc( n
27a0: 2f 32 20 29 3b 0a 20 20 69 66 28 20 7a 4f 75 74 /2 );. if( zOut
27b0: 3d 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 ==0 ){. sqlit
27c0: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f e3_result_error_
27d0: 6e 6f 6d 65 6d 28 70 43 74 78 29 3b 0a 20 20 7d nomem(pCtx);. }
27e0: 65 6c 73 65 7b 0a 20 20 20 20 74 65 73 74 48 65 else{. testHe
27f0: 78 54 6f 42 69 6e 28 7a 49 6e 2c 20 7a 4f 75 74 xToBin(zIn, zOut
2800: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 );. sqlite3_r
2810: 65 73 75 6c 74 5f 74 65 78 74 28 70 43 74 78 2c esult_text(pCtx,
2820: 20 7a 4f 75 74 2c 20 6e 2f 32 2c 20 73 71 6c 69 zOut, n/2, sqli
2830: 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 7d 0a 7d te3_free);. }.}
2840: 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 20 68 65 78 ../*.** hex
2850: 5f 74 6f 5f 75 74 66 31 36 6c 65 28 48 45 58 29 _to_utf16le(HEX)
2860: 0a 2a 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 74 .**.** Convert t
2870: 68 65 20 69 6e 70 75 74 20 73 74 72 69 6e 67 20 he input string
2880: 66 72 6f 6d 20 48 45 58 20 69 6e 74 6f 20 62 69 from HEX into bi
2890: 6e 61 72 79 2e 20 20 54 68 65 6e 20 72 65 74 75 nary. Then retu
28a0: 72 6e 20 74 68 65 0a 2a 2a 20 72 65 73 75 6c 74 rn the.** result
28b0: 20 75 73 69 6e 67 20 73 71 6c 69 74 65 33 5f 72 using sqlite3_r
28c0: 65 73 75 6c 74 5f 74 65 78 74 31 36 6c 65 28 29 esult_text16le()
28d0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
28e0: 20 74 65 73 74 48 65 78 54 6f 55 74 66 31 36 6c testHexToUtf16l
28f0: 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e e(. sqlite3_con
2900: 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 text *pCtx, . i
2910: 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 nt nArg,. sqlit
2920: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a e3_value **argv.
2930: 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 63 6f ){. int n;. co
2940: 6e 73 74 20 63 68 61 72 20 2a 7a 49 6e 3b 0a 20 nst char *zIn;.
2950: 20 63 68 61 72 20 2a 7a 4f 75 74 3b 0a 20 20 61 char *zOut;. a
2960: 73 73 65 72 74 28 20 6e 41 72 67 3d 3d 31 20 29 ssert( nArg==1 )
2970: 3b 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f ;. n = sqlite3_
2980: 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 value_bytes(argv
2990: 5b 30 5d 29 3b 0a 20 20 7a 49 6e 20 3d 20 28 63 [0]);. zIn = (c
29a0: 6f 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74 onst char*)sqlit
29b0: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
29c0: 67 76 5b 30 5d 29 3b 0a 20 20 7a 4f 75 74 20 3d gv[0]);. zOut =
29d0: 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 sqlite3_malloc(
29e0: 20 6e 2f 32 20 29 3b 0a 20 20 69 66 28 20 7a 4f n/2 );. if( zO
29f0: 75 74 3d 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c ut==0 ){. sql
2a00: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
2a10: 72 5f 6e 6f 6d 65 6d 28 70 43 74 78 29 3b 0a 20 r_nomem(pCtx);.
2a20: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 74 65 73 74 }else{. test
2a30: 48 65 78 54 6f 42 69 6e 28 7a 49 6e 2c 20 7a 4f HexToBin(zIn, zO
2a40: 75 74 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 ut);. sqlite3
2a50: 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 6c 65 _result_text16le
2a60: 28 70 43 74 78 2c 20 7a 4f 75 74 2c 20 6e 2f 32 (pCtx, zOut, n/2
2a70: 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b , sqlite3_free);
2a80: 0a 20 20 7d 0a 7d 0a 0a 73 74 61 74 69 63 20 69 . }.}..static i
2a90: 6e 74 20 72 65 67 69 73 74 65 72 54 65 73 74 46 nt registerTestF
2aa0: 75 6e 63 74 69 6f 6e 73 28 73 71 6c 69 74 65 33 unctions(sqlite3
2ab0: 20 2a 64 62 29 7b 0a 20 20 73 74 61 74 69 63 20 *db){. static
2ac0: 63 6f 6e 73 74 20 73 74 72 75 63 74 20 7b 0a 20 const struct {.
2ad0: 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b char *zName;
2ae0: 0a 20 20 20 20 20 73 69 67 6e 65 64 20 63 68 61 . signed cha
2af0: 72 20 6e 41 72 67 3b 0a 20 20 20 20 20 75 6e 73 r nArg;. uns
2b00: 69 67 6e 65 64 20 63 68 61 72 20 65 54 65 78 74 igned char eText
2b10: 52 65 70 3b 20 2f 2a 20 31 3a 20 55 54 46 2d 31 Rep; /* 1: UTF-1
2b20: 36 2e 20 20 30 3a 20 55 54 46 2d 38 20 2a 2f 0a 6. 0: UTF-8 */.
2b30: 20 20 20 20 20 76 6f 69 64 20 28 2a 78 46 75 6e void (*xFun
2b40: 63 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 c)(sqlite3_conte
2b50: 78 74 2a 2c 69 6e 74 2c 73 71 6c 69 74 65 33 5f xt*,int,sqlite3_
2b60: 76 61 6c 75 65 20 2a 2a 29 3b 0a 20 20 7d 20 61 value **);. } a
2b70: 46 75 6e 63 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 Funcs[] = {.
2b80: 7b 20 22 72 61 6e 64 73 74 72 22 2c 20 20 20 20 { "randstr",
2b90: 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 53 51 2, SQ
2ba0: 4c 49 54 45 5f 55 54 46 38 2c 20 72 61 6e 64 53 LITE_UTF8, randS
2bb0: 74 72 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 tr },. { "
2bc0: 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 22 test_destructor"
2bd0: 2c 20 20 20 20 20 20 20 31 2c 20 53 51 4c 49 54 , 1, SQLIT
2be0: 45 5f 55 54 46 38 2c 20 74 65 73 74 5f 64 65 73 E_UTF8, test_des
2bf0: 74 72 75 63 74 6f 72 7d 2c 0a 23 69 66 6e 64 65 tructor},.#ifnde
2c00: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 f SQLITE_OMIT_UT
2c10: 46 31 36 0a 20 20 20 20 7b 20 22 74 65 73 74 5f F16. { "test_
2c20: 64 65 73 74 72 75 63 74 6f 72 31 36 22 2c 20 20 destructor16",
2c30: 20 20 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 1, SQLITE_UTF
2c40: 38 2c 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 8, test_destruct
2c50: 6f 72 31 36 7d 2c 0a 20 20 20 20 7b 20 22 68 65 or16},. { "he
2c60: 78 5f 74 6f 5f 75 74 66 31 36 62 65 22 2c 20 20 x_to_utf16be",
2c70: 20 20 20 20 20 20 31 2c 20 53 51 4c 49 54 45 5f 1, SQLITE_
2c80: 55 54 46 38 2c 20 74 65 73 74 48 65 78 54 6f 55 UTF8, testHexToU
2c90: 74 66 31 36 62 65 7d 2c 0a 20 20 20 20 7b 20 22 tf16be},. { "
2ca0: 68 65 78 5f 74 6f 5f 75 74 66 31 36 6c 65 22 2c hex_to_utf16le",
2cb0: 20 20 20 20 20 20 20 20 31 2c 20 53 51 4c 49 54 1, SQLIT
2cc0: 45 5f 55 54 46 38 2c 20 74 65 73 74 48 65 78 54 E_UTF8, testHexT
2cd0: 6f 55 74 66 31 36 6c 65 7d 2c 0a 23 65 6e 64 69 oUtf16le},.#endi
2ce0: 66 0a 20 20 20 20 7b 20 22 68 65 78 5f 74 6f 5f f. { "hex_to_
2cf0: 75 74 66 38 22 2c 20 20 20 20 20 20 20 20 20 20 utf8",
2d00: 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 1, SQLITE_UTF8,
2d10: 20 74 65 73 74 48 65 78 54 6f 55 74 66 38 7d 2c testHexToUtf8},
2d20: 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 64 65 73 . { "test_des
2d30: 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 22 2c 20 tructor_count",
2d40: 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0, SQLITE_UTF8,
2d50: 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 5f test_destructor_
2d60: 63 6f 75 6e 74 7d 2c 0a 20 20 20 20 7b 20 22 74 count},. { "t
2d70: 65 73 74 5f 61 75 78 64 61 74 61 22 2c 20 20 20 est_auxdata",
2d80: 20 20 20 20 20 20 2d 31 2c 20 53 51 4c 49 54 45 -1, SQLITE
2d90: 5f 55 54 46 38 2c 20 74 65 73 74 5f 61 75 78 64 _UTF8, test_auxd
2da0: 61 74 61 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 ata},. { "tes
2db0: 74 5f 65 72 72 6f 72 22 2c 20 20 20 20 20 20 20 t_error",
2dc0: 20 20 20 20 20 31 2c 20 53 51 4c 49 54 45 5f 55 1, SQLITE_U
2dd0: 54 46 38 2c 20 74 65 73 74 5f 65 72 72 6f 72 7d TF8, test_error}
2de0: 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 65 72 ,. { "test_er
2df0: 72 6f 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 ror",
2e00: 20 32 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 2, SQLITE_UTF8,
2e10: 20 74 65 73 74 5f 65 72 72 6f 72 7d 2c 0a 20 20 test_error},.
2e20: 20 20 7b 20 22 74 65 73 74 5f 65 76 61 6c 22 2c { "test_eval",
2e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 1,
2e40: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 74 65 73 SQLITE_UTF8, tes
2e50: 74 5f 65 76 61 6c 7d 2c 0a 20 20 20 20 7b 20 22 t_eval},. { "
2e60: 74 65 73 74 5f 69 73 6f 6c 61 74 69 6f 6e 22 2c test_isolation",
2e70: 20 20 20 20 20 20 20 20 32 2c 20 53 51 4c 49 54 2, SQLIT
2e80: 45 5f 55 54 46 38 2c 20 74 65 73 74 5f 69 73 6f E_UTF8, test_iso
2e90: 6c 61 74 69 6f 6e 7d 2c 0a 20 20 20 20 7b 20 22 lation},. { "
2ea0: 74 65 73 74 5f 63 6f 75 6e 74 65 72 22 2c 20 20 test_counter",
2eb0: 20 20 20 20 20 20 20 20 31 2c 20 53 51 4c 49 54 1, SQLIT
2ec0: 45 5f 55 54 46 38 2c 20 63 6f 75 6e 74 65 72 46 E_UTF8, counterF
2ed0: 75 6e 63 7d 2c 0a 20 20 7d 3b 0a 20 20 69 6e 74 unc},. };. int
2ee0: 20 69 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 3b 20 i;.. for(i=0;
2ef0: 69 3c 73 69 7a 65 6f 66 28 61 46 75 6e 63 73 29 i<sizeof(aFuncs)
2f00: 2f 73 69 7a 65 6f 66 28 61 46 75 6e 63 73 5b 30 /sizeof(aFuncs[0
2f10: 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 73 71 ]); i++){. sq
2f20: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e lite3_create_fun
2f30: 63 74 69 6f 6e 28 64 62 2c 20 61 46 75 6e 63 73 ction(db, aFuncs
2f40: 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 46 75 6e 63 [i].zName, aFunc
2f50: 73 5b 69 5d 2e 6e 41 72 67 2c 0a 20 20 20 20 20 s[i].nArg,.
2f60: 20 20 20 61 46 75 6e 63 73 5b 69 5d 2e 65 54 65 aFuncs[i].eTe
2f70: 78 74 52 65 70 2c 20 30 2c 20 61 46 75 6e 63 73 xtRep, 0, aFuncs
2f80: 5b 69 5d 2e 78 46 75 6e 63 2c 20 30 2c 20 30 29 [i].xFunc, 0, 0)
2f90: 3b 0a 20 20 7d 0a 0a 20 20 73 71 6c 69 74 65 33 ;. }.. sqlite3
2fa0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
2fb0: 28 64 62 2c 20 22 74 65 73 74 5f 61 67 67 5f 65 (db, "test_agg_e
2fc0: 72 72 6d 73 67 31 36 22 2c 20 30 2c 20 53 51 4c rrmsg16", 0, SQL
2fd0: 49 54 45 5f 41 4e 59 2c 20 30 2c 20 30 2c 20 0a ITE_ANY, 0, 0, .
2fe0: 20 20 20 20 20 20 74 65 73 74 5f 61 67 67 5f 65 test_agg_e
2ff0: 72 72 6d 73 67 31 36 5f 73 74 65 70 2c 20 74 65 rrmsg16_step, te
3000: 73 74 5f 61 67 67 5f 65 72 72 6d 73 67 31 36 5f st_agg_errmsg16_
3010: 66 69 6e 61 6c 29 3b 0a 20 20 20 20 20 20 0a 20 final);. .
3020: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f return SQLITE_O
3030: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 43 4c 43 K;.}../*.** TCLC
3040: 4d 44 3a 20 20 61 75 74 6f 69 6e 73 74 61 6c 6c MD: autoinstall
3050: 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 73 0a _test_functions.
3060: 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74 68 69 **.** Invoke thi
3070: 73 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20 74 6f s TCL command to
3080: 20 75 73 65 20 73 71 6c 69 74 65 33 5f 61 75 74 use sqlite3_aut
3090: 6f 5f 65 78 74 65 6e 73 69 6f 6e 28 29 20 74 6f o_extension() to
30a0: 20 63 61 75 73 65 0a 2a 2a 20 74 68 65 20 73 74 cause.** the st
30b0: 61 6e 64 61 72 64 20 73 65 74 20 6f 66 20 74 65 andard set of te
30c0: 73 74 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 st functions to
30d0: 62 65 20 6c 6f 61 64 65 64 20 69 6e 74 6f 20 65 be loaded into e
30e0: 61 63 68 20 6e 65 77 0a 2a 2a 20 64 61 74 61 62 ach new.** datab
30f0: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a ase connection..
3100: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 61 75 */.static int au
3110: 74 6f 69 6e 73 74 61 6c 6c 5f 74 65 73 74 5f 66 toinstall_test_f
3120: 75 6e 63 73 28 0a 20 20 76 6f 69 64 20 2a 20 63 uncs(. void * c
3130: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
3140: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3150: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
3160: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
3170: 6a 76 5b 5d 0a 29 7b 0a 20 20 65 78 74 65 72 6e jv[].){. extern
3180: 20 69 6e 74 20 4d 64 35 5f 52 65 67 69 73 74 65 int Md5_Registe
3190: 72 28 73 71 6c 69 74 65 33 2a 29 3b 0a 20 20 69 r(sqlite3*);. i
31a0: 6e 74 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f nt rc = sqlite3_
31b0: 61 75 74 6f 5f 65 78 74 65 6e 73 69 6f 6e 28 28 auto_extension((
31c0: 76 6f 69 64 2a 29 72 65 67 69 73 74 65 72 54 65 void*)registerTe
31d0: 73 74 46 75 6e 63 74 69 6f 6e 73 29 3b 0a 20 20 stFunctions);.
31e0: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f if( rc==SQLITE_O
31f0: 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 K ){. rc = sq
3200: 6c 69 74 65 33 5f 61 75 74 6f 5f 65 78 74 65 6e lite3_auto_exten
3210: 73 69 6f 6e 28 28 76 6f 69 64 2a 29 4d 64 35 5f sion((void*)Md5_
3220: 52 65 67 69 73 74 65 72 29 3b 0a 20 20 7d 0a 20 Register);. }.
3230: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
3240: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
3250: 77 49 6e 74 4f 62 6a 28 72 63 29 29 3b 0a 20 20 wIntObj(rc));.
3260: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
3270: 0a 0a 2f 2a 0a 2a 2a 20 41 20 62 6f 67 75 73 20 ../*.** A bogus
3280: 73 74 65 70 20 66 75 6e 63 74 69 6f 6e 20 61 6e step function an
3290: 64 20 66 69 6e 61 6c 69 7a 65 72 20 66 75 6e 63 d finalizer func
32a0: 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 tion..*/.static
32b0: 76 6f 69 64 20 74 53 74 65 70 28 73 71 6c 69 74 void tStep(sqlit
32c0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 61 2c 20 69 e3_context *a, i
32d0: 6e 74 20 62 2c 20 73 71 6c 69 74 65 33 5f 76 61 nt b, sqlite3_va
32e0: 6c 75 65 20 2a 2a 63 29 7b 7d 0a 73 74 61 74 69 lue **c){}.stati
32f0: 63 20 76 6f 69 64 20 74 46 69 6e 61 6c 28 73 71 c void tFinal(sq
3300: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 61 lite3_context *a
3310: 29 7b 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 ){}.../*.** tclc
3320: 6d 64 3a 20 20 61 62 75 73 65 5f 63 72 65 61 74 md: abuse_creat
3330: 65 5f 66 75 6e 63 74 69 6f 6e 0a 2a 2a 0a 2a 2a e_function.**.**
3340: 20 4d 61 6b 65 20 76 61 72 69 6f 75 73 20 63 61 Make various ca
3350: 6c 6c 73 20 74 6f 20 73 71 6c 69 74 65 33 5f 63 lls to sqlite3_c
3360: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 74 reate_function t
3370: 68 61 74 20 64 6f 20 6e 6f 74 20 68 61 76 65 20 hat do not have
3380: 76 61 6c 69 64 0a 2a 2a 20 70 61 72 61 6d 65 74 valid.** paramet
3390: 65 72 73 2e 20 20 56 65 72 69 66 79 20 74 68 61 ers. Verify tha
33a0: 74 20 74 68 65 20 65 72 72 6f 72 20 63 6f 6e 64 t the error cond
33b0: 69 74 69 6f 6e 20 69 73 20 64 65 74 65 63 74 65 ition is detecte
33c0: 64 20 61 6e 64 20 72 65 70 6f 72 74 65 64 2e 0a d and reported..
33d0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 61 62 */.static int ab
33e0: 75 73 65 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 use_create_funct
33f0: 69 6f 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c ion(. void * cl
3400: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
3410: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
3420: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
3430: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
3440: 76 5b 5d 0a 29 7b 0a 20 20 65 78 74 65 72 6e 20 v[].){. extern
3450: 69 6e 74 20 67 65 74 44 62 50 6f 69 6e 74 65 72 int getDbPointer
3460: 28 54 63 6c 5f 49 6e 74 65 72 70 2a 2c 20 63 6f (Tcl_Interp*, co
3470: 6e 73 74 20 63 68 61 72 2a 2c 20 73 71 6c 69 74 nst char*, sqlit
3480: 65 33 2a 2a 29 3b 0a 20 20 73 71 6c 69 74 65 33 e3**);. sqlite3
3490: 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63 3b 0a *db;. int rc;.
34a0: 20 20 69 6e 74 20 6d 78 41 72 67 3b 0a 0a 20 20 int mxArg;..
34b0: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
34c0: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
34d0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
34e0: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
34f0: 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72 63 20 CL_ERROR;.. rc
3500: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
3510: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 74 _function(db, "t
3520: 78 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 x", 1, SQLITE_UT
3530: 46 38 2c 20 30 2c 20 74 53 74 65 70 2c 74 53 74 F8, 0, tStep,tSt
3540: 65 70 2c 74 46 69 6e 61 6c 29 3b 0a 20 20 69 66 ep,tFinal);. if
3550: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4d 49 53 ( rc!=SQLITE_MIS
3560: 55 53 45 20 29 20 67 6f 74 6f 20 61 62 75 73 65 USE ) goto abuse
3570: 5f 65 72 72 3b 0a 0a 20 20 72 63 20 3d 20 73 71 _err;.. rc = sq
3580: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e lite3_create_fun
3590: 63 74 69 6f 6e 28 64 62 2c 20 22 74 78 22 2c 20 ction(db, "tx",
35a0: 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 1, SQLITE_UTF8,
35b0: 30 2c 20 74 53 74 65 70 2c 20 74 53 74 65 70 2c 0, tStep, tStep,
35c0: 20 30 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 0);. if( rc!=S
35d0: 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 29 20 67 QLITE_MISUSE ) g
35e0: 6f 74 6f 20 61 62 75 73 65 5f 65 72 72 3b 0a 0a oto abuse_err;..
35f0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 rc = sqlite3_c
3600: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 reate_function(d
3610: 62 2c 20 22 74 78 22 2c 20 31 2c 20 53 51 4c 49 b, "tx", 1, SQLI
3620: 54 45 5f 55 54 46 38 2c 20 30 2c 20 74 53 74 65 TE_UTF8, 0, tSte
3630: 70 2c 20 30 2c 20 74 46 69 6e 61 6c 29 3b 0a 20 p, 0, tFinal);.
3640: 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f if( rc!=SQLITE_
3650: 4d 49 53 55 53 45 29 20 67 6f 74 6f 20 61 62 75 MISUSE) goto abu
3660: 73 65 5f 65 72 72 3b 0a 0a 20 20 72 63 20 3d 20 se_err;.. rc =
3670: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 sqlite3_create_f
3680: 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 74 78 22 unction(db, "tx"
3690: 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 1, SQLITE_UTF8
36a0: 2c 20 30 2c 20 30 2c 20 30 2c 20 74 46 69 6e 61 , 0, 0, 0, tFina
36b0: 6c 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 l);. if( rc!=SQ
36c0: 4c 49 54 45 5f 4d 49 53 55 53 45 20 29 20 67 6f LITE_MISUSE ) go
36d0: 74 6f 20 61 62 75 73 65 5f 65 72 72 3b 0a 0a 20 to abuse_err;..
36e0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 rc = sqlite3_cr
36f0: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 eate_function(db
3700: 2c 20 22 74 78 22 2c 20 31 2c 20 53 51 4c 49 54 , "tx", 1, SQLIT
3710: 45 5f 55 54 46 38 2c 20 30 2c 20 30 2c 20 74 53 E_UTF8, 0, 0, tS
3720: 74 65 70 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 tep, 0);. if( r
3730: 63 21 3d 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 c!=SQLITE_MISUSE
3740: 20 29 20 67 6f 74 6f 20 61 62 75 73 65 5f 65 72 ) goto abuse_er
3750: 72 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 r;.. rc = sqlit
3760: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
3770: 6f 6e 28 64 62 2c 20 22 74 78 22 2c 20 2d 32 2c on(db, "tx", -2,
3780: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c SQLITE_UTF8, 0,
3790: 20 74 53 74 65 70 2c 20 30 2c 20 30 29 3b 0a 20 tStep, 0, 0);.
37a0: 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f if( rc!=SQLITE_
37b0: 4d 49 53 55 53 45 20 29 20 67 6f 74 6f 20 61 62 MISUSE ) goto ab
37c0: 75 73 65 5f 65 72 72 3b 0a 0a 20 20 72 63 20 3d use_err;.. rc =
37d0: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
37e0: 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 74 78 function(db, "tx
37f0: 22 2c 20 31 32 38 2c 20 53 51 4c 49 54 45 5f 55 ", 128, SQLITE_U
3800: 54 46 38 2c 20 30 2c 20 74 53 74 65 70 2c 20 30 TF8, 0, tStep, 0
3810: 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63 21 3d , 0);. if( rc!=
3820: 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 29 20 SQLITE_MISUSE )
3830: 67 6f 74 6f 20 61 62 75 73 65 5f 65 72 72 3b 0a goto abuse_err;.
3840: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f . rc = sqlite3_
3850: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 create_function(
3860: 64 62 2c 20 22 66 75 6e 63 78 78 22 0a 20 20 20 db, "funcxx".
3870: 20 20 20 20 22 5f 31 32 33 34 35 36 37 38 39 5f "_123456789_
3880: 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 123456789_123456
3890: 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 789_123456789_12
38a0: 33 34 35 36 37 38 39 22 0a 20 20 20 20 20 20 20 3456789".
38b0: 22 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 "_123456789_1234
38c0: 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 56789_123456789_
38d0: 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 123456789_123456
38e0: 37 38 39 22 0a 20 20 20 20 20 20 20 22 5f 31 32 789". "_12
38f0: 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 3456789_12345678
3900: 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 9_123456789_1234
3910: 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 22 56789_123456789"
3920: 0a 20 20 20 20 20 20 20 22 5f 31 32 33 34 35 36 . "_123456
3930: 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 789_123456789_12
3940: 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 3456789_12345678
3950: 39 5f 31 32 33 34 35 36 37 38 39 22 0a 20 20 20 9_123456789".
3960: 20 20 20 20 22 5f 31 32 33 34 35 36 37 38 39 5f "_123456789_
3970: 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 123456789_123456
3980: 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 789_123456789_12
3990: 33 34 35 36 37 38 39 22 2c 0a 20 20 20 20 20 20 3456789",.
39a0: 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 1, SQLITE_UTF8,
39b0: 20 30 2c 20 74 53 74 65 70 2c 20 30 2c 20 30 29 0, tStep, 0, 0)
39c0: 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 ;. if( rc!=SQLI
39d0: 54 45 5f 4d 49 53 55 53 45 20 29 20 67 6f 74 6f TE_MISUSE ) goto
39e0: 20 61 62 75 73 65 5f 65 72 72 3b 0a 0a 20 20 2f abuse_err;.. /
39f0: 2a 20 54 68 69 73 20 6c 61 73 74 20 66 75 6e 63 * This last func
3a00: 74 69 6f 6e 20 72 65 67 69 73 74 72 61 74 69 6f tion registratio
3a10: 6e 20 73 68 6f 75 6c 64 20 61 63 74 75 61 6c 6c n should actuall
3a20: 79 20 77 6f 72 6b 2e 20 20 47 65 6e 65 72 61 74 y work. Generat
3a30: 65 0a 20 20 2a 2a 20 61 20 6e 6f 2d 6f 70 20 66 e. ** a no-op f
3a40: 75 6e 63 74 69 6f 6e 20 28 74 68 61 74 20 61 6c unction (that al
3a50: 77 61 79 73 20 72 65 74 75 72 6e 73 20 4e 55 4c ways returns NUL
3a60: 4c 29 20 61 6e 64 20 77 68 69 63 68 20 68 61 73 L) and which has
3a70: 20 74 68 65 0a 20 20 2a 2a 20 6d 61 78 69 6d 75 the. ** maximu
3a80: 6d 2d 6c 65 6e 67 74 68 20 66 75 6e 63 74 69 6f m-length functio
3a90: 6e 20 6e 61 6d 65 20 61 6e 64 20 74 68 65 20 6d n name and the m
3aa0: 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 aximum number of
3ab0: 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 20 20 2a parameters.. *
3ac0: 2f 0a 20 20 73 71 6c 69 74 65 33 5f 6c 69 6d 69 /. sqlite3_limi
3ad0: 74 28 64 62 2c 20 53 51 4c 49 54 45 5f 4c 49 4d t(db, SQLITE_LIM
3ae0: 49 54 5f 46 55 4e 43 54 49 4f 4e 5f 41 52 47 2c IT_FUNCTION_ARG,
3af0: 20 31 30 30 30 30 29 3b 0a 20 20 6d 78 41 72 67 10000);. mxArg
3b00: 20 3d 20 73 71 6c 69 74 65 33 5f 6c 69 6d 69 74 = sqlite3_limit
3b10: 28 64 62 2c 20 53 51 4c 49 54 45 5f 4c 49 4d 49 (db, SQLITE_LIMI
3b20: 54 5f 46 55 4e 43 54 49 4f 4e 5f 41 52 47 2c 20 T_FUNCTION_ARG,
3b30: 2d 31 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 -1);. rc = sqli
3b40: 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 te3_create_funct
3b50: 69 6f 6e 28 64 62 2c 20 22 6e 75 6c 6c 78 22 0a ion(db, "nullx".
3b60: 20 20 20 20 20 20 20 22 5f 31 32 33 34 35 36 37 "_1234567
3b70: 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 89_123456789_123
3b80: 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 456789_123456789
3b90: 5f 31 32 33 34 35 36 37 38 39 22 0a 20 20 20 20 _123456789".
3ba0: 20 20 20 22 5f 31 32 33 34 35 36 37 38 39 5f 31 "_123456789_1
3bb0: 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 23456789_1234567
3bc0: 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 89_123456789_123
3bd0: 34 35 36 37 38 39 22 0a 20 20 20 20 20 20 20 22 456789". "
3be0: 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 _123456789_12345
3bf0: 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 6789_123456789_1
3c00: 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 23456789_1234567
3c10: 38 39 22 0a 20 20 20 20 20 20 20 22 5f 31 32 33 89". "_123
3c20: 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 456789_123456789
3c30: 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 _123456789_12345
3c40: 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 22 0a 6789_123456789".
3c50: 20 20 20 20 20 20 20 22 5f 31 32 33 34 35 36 37 "_1234567
3c60: 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 89_123456789_123
3c70: 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 456789_123456789
3c80: 5f 31 32 33 34 35 36 37 38 39 22 2c 0a 20 20 20 _123456789",.
3c90: 20 20 20 20 6d 78 41 72 67 2c 20 53 51 4c 49 54 mxArg, SQLIT
3ca0: 45 5f 55 54 46 38 2c 20 30 2c 20 74 53 74 65 70 E_UTF8, 0, tStep
3cb0: 2c 20 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 , 0, 0);. if( r
3cc0: 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 20 67 c!=SQLITE_OK ) g
3cd0: 6f 74 6f 20 61 62 75 73 65 5f 65 72 72 3b 0a 20 oto abuse_err;.
3ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a .
3d00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
3d10: 0a 0a 61 62 75 73 65 5f 65 72 72 3a 0a 20 20 54 ..abuse_err:. T
3d20: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
3d30: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 33 interp, "sqlite3
3d40: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
3d50: 20 61 62 75 73 65 64 20 74 65 73 74 20 66 61 69 abused test fai
3d60: 6c 65 64 22 2c 20 0a 20 20 20 20 20 20 20 20 20 led", .
3d70: 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 2a (char*
3d80: 29 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 )0);. return TC
3d90: 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 2a L_ERROR;.}../*.*
3da0: 2a 20 52 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 * Register comma
3db0: 6e 64 73 20 77 69 74 68 20 74 68 65 20 54 43 4c nds with the TCL
3dc0: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f interpreter..*/
3dd0: 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 5f .int Sqlitetest_
3de0: 66 75 6e 63 5f 49 6e 69 74 28 54 63 6c 5f 49 6e func_Init(Tcl_In
3df0: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 terp *interp){.
3e00: 20 73 74 61 74 69 63 20 73 74 72 75 63 74 20 7b static struct {
3e10: 0a 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d . char *zNam
3e20: 65 3b 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 43 e;. Tcl_ObjC
3e30: 6d 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 mdProc *xProc;.
3e40: 20 7d 20 61 4f 62 6a 43 6d 64 5b 5d 20 3d 20 7b } aObjCmd[] = {
3e50: 0a 20 20 20 20 20 7b 20 22 61 75 74 6f 69 6e 73 . { "autoins
3e60: 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e 63 74 69 tall_test_functi
3e70: 6f 6e 73 22 2c 20 20 20 20 61 75 74 6f 69 6e 73 ons", autoins
3e80: 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e 63 73 20 tall_test_funcs
3e90: 7d 2c 0a 20 20 20 20 20 7b 20 22 61 62 75 73 65 },. { "abuse
3ea0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
3eb0: 22 2c 20 20 20 20 20 20 20 20 20 61 62 75 73 65 ", abuse
3ec0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
3ed0: 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 },. };. int
3ee0: 69 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 i;. extern int
3ef0: 4d 64 35 5f 52 65 67 69 73 74 65 72 28 73 71 6c Md5_Register(sql
3f00: 69 74 65 33 2a 29 3b 0a 0a 20 20 66 6f 72 28 69 ite3*);.. for(i
3f10: 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 4f 62 =0; i<sizeof(aOb
3f20: 6a 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61 4f 62 jCmd)/sizeof(aOb
3f30: 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a jCmd[0]); i++){.
3f40: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
3f50: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
3f60: 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 7a 4e 61 6d aObjCmd[i].zNam
3f70: 65 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 78 50 e, aObjCmd[i].xP
3f80: 72 6f 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a roc, 0, 0);. }.
3f90: 20 20 73 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 sqlite3_initia
3fa0: 6c 69 7a 65 28 29 3b 0a 20 20 73 71 6c 69 74 65 lize();. sqlite
3fb0: 33 5f 61 75 74 6f 5f 65 78 74 65 6e 73 69 6f 6e 3_auto_extension
3fc0: 28 28 76 6f 69 64 2a 29 72 65 67 69 73 74 65 72 ((void*)register
3fd0: 54 65 73 74 46 75 6e 63 74 69 6f 6e 73 29 3b 0a TestFunctions);.
3fe0: 20 20 73 71 6c 69 74 65 33 5f 61 75 74 6f 5f 65 sqlite3_auto_e
3ff0: 78 74 65 6e 73 69 6f 6e 28 28 76 6f 69 64 2a 29 xtension((void*)
4000: 4d 64 35 5f 52 65 67 69 73 74 65 72 29 3b 0a 20 Md5_Register);.
4010: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
4020: 7d 0a }.