0000: 2f 2a 0a 2a 2a 20 32 30 30 32 20 46 65 62 72 75 /*.** 2002 Febru
0010: 61 72 79 20 32 33 0a 2a 2a 0a 2a 2a 20 54 68 65 ary 23.**.** The
0020: 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d author disclaim
0030: 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 s copyright to t
0040: 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e his source code.
0050: 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a In place of.**
0060: 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c a legal notice,
0070: 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 here is a bless
0080: 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 ing:.**.** Ma
0090: 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e y you do good an
00a0: 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 d not evil..**
00b0: 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 May you find f
00c0: 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 orgiveness for y
00d0: 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 ourself and forg
00e0: 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 ive others..**
00f0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 May you share
0100: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 freely, never ta
0110: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 king more than y
0120: 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a ou 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 0a 2a 2a 20 54 68 69 73 20 66 69 *****.** This fi
0180: 6c 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 le contains the
0190: 43 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 C functions that
01a0: 20 69 6d 70 6c 65 6d 65 6e 74 20 76 61 72 69 6f implement vario
01b0: 75 73 20 53 51 4c 0a 2a 2a 20 66 75 6e 63 74 69 us SQL.** functi
01c0: 6f 6e 73 20 6f 66 20 53 51 4c 69 74 65 2e 20 20 ons of SQLite.
01d0: 0a 2a 2a 0a 2a 2a 20 54 68 65 72 65 20 69 73 20 .**.** There is
01e0: 6f 6e 6c 79 20 6f 6e 65 20 65 78 70 6f 72 74 65 only one exporte
01f0: 64 20 73 79 6d 62 6f 6c 20 69 6e 20 74 68 69 73 d symbol in this
0200: 20 66 69 6c 65 20 2d 20 74 68 65 20 66 75 6e 63 file - the func
0210: 74 69 6f 6e 0a 2a 2a 20 73 71 6c 69 74 65 52 65 tion.** sqliteRe
0220: 67 69 73 74 65 72 42 75 69 6c 64 69 6e 46 75 6e gisterBuildinFun
0230: 63 74 69 6f 6e 73 28 29 20 66 6f 75 6e 64 20 61 ctions() found a
0240: 74 20 74 68 65 20 62 6f 74 74 6f 6d 20 6f 66 20 t the bottom of
0250: 74 68 65 20 66 69 6c 65 2e 0a 2a 2a 20 41 6c 6c the file..** All
0260: 20 6f 74 68 65 72 20 63 6f 64 65 20 68 61 73 20 other code has
0270: 66 69 6c 65 20 73 63 6f 70 65 2e 0a 2a 2a 0a 2a file scope..**.*
0280: 2a 20 24 49 64 3a 20 66 75 6e 63 2e 63 2c 76 20 * $Id: func.c,v
0290: 31 2e 31 38 31 20 32 30 30 37 2f 31 32 2f 31 33 1.181 2007/12/13
02a0: 20 32 31 3a 35 34 3a 31 31 20 64 72 68 20 45 78 21:54:11 drh Ex
02b0: 70 20 24 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 p $.*/.#include
02c0: 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23 69 "sqliteInt.h".#i
02d0: 6e 63 6c 75 64 65 20 3c 63 74 79 70 65 2e 68 3e nclude <ctype.h>
02e0: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 .#include <stdli
02f0: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 61 b.h>.#include <a
0300: 73 73 65 72 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 ssert.h>.#includ
0310: 65 20 22 76 64 62 65 49 6e 74 2e 68 22 0a 0a 0a e "vdbeInt.h"...
0320: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 /*.** Return the
0330: 20 63 6f 6c 6c 61 74 69 6e 67 20 66 75 6e 63 74 collating funct
0340: 69 6f 6e 20 61 73 73 6f 63 69 61 74 65 64 20 77 ion associated w
0350: 69 74 68 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a ith a function..
0360: 2a 2f 0a 73 74 61 74 69 63 20 43 6f 6c 6c 53 65 */.static CollSe
0370: 71 20 2a 73 71 6c 69 74 65 33 47 65 74 46 75 6e q *sqlite3GetFun
0380: 63 43 6f 6c 6c 53 65 71 28 73 71 6c 69 74 65 33 cCollSeq(sqlite3
0390: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
03a0: 74 29 7b 0a 20 20 72 65 74 75 72 6e 20 63 6f 6e t){. return con
03b0: 74 65 78 74 2d 3e 70 43 6f 6c 6c 3b 0a 7d 0a 0a text->pColl;.}..
03c0: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 /*.** Implementa
03d0: 74 69 6f 6e 20 6f 66 20 74 68 65 20 6e 6f 6e 2d tion of the non-
03e0: 61 67 67 72 65 67 61 74 65 20 6d 69 6e 28 29 20 aggregate min()
03f0: 61 6e 64 20 6d 61 78 28 29 20 66 75 6e 63 74 69 and max() functi
0400: 6f 6e 73 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ons.*/.static vo
0410: 69 64 20 6d 69 6e 6d 61 78 46 75 6e 63 28 0a 20 id minmaxFunc(.
0420: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
0430: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 *context,. int
0440: 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 argc,. sqlite3
0450: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
0460: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 . int i;. int
0470: 6d 61 73 6b 3b 20 20 20 20 2f 2a 20 30 20 66 6f mask; /* 0 fo
0480: 72 20 6d 69 6e 28 29 20 6f 72 20 30 78 66 66 66 r min() or 0xfff
0490: 66 66 66 66 66 20 66 6f 72 20 6d 61 78 28 29 20 fffff for max()
04a0: 2a 2f 0a 20 20 69 6e 74 20 69 42 65 73 74 3b 0a */. int iBest;.
04b0: 20 20 43 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c CollSeq *pColl
04c0: 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 30 ;.. if( argc==0
04d0: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6d 61 73 ) return;. mas
04e0: 6b 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65 72 k = sqlite3_user
04f0: 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 3d 3d _data(context)==
0500: 30 20 3f 20 30 20 3a 20 2d 31 3b 0a 20 20 70 43 0 ? 0 : -1;. pC
0510: 6f 6c 6c 20 3d 20 73 71 6c 69 74 65 33 47 65 74 oll = sqlite3Get
0520: 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 6f 6e 74 FuncCollSeq(cont
0530: 65 78 74 29 3b 0a 20 20 61 73 73 65 72 74 28 20 ext);. assert(
0540: 70 43 6f 6c 6c 20 29 3b 0a 20 20 61 73 73 65 72 pColl );. asser
0550: 74 28 20 6d 61 73 6b 3d 3d 2d 31 20 7c 7c 20 6d t( mask==-1 || m
0560: 61 73 6b 3d 3d 30 20 29 3b 0a 20 20 69 42 65 73 ask==0 );. iBes
0570: 74 20 3d 20 30 3b 0a 20 20 69 66 28 20 73 71 6c t = 0;. if( sql
0580: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 ite3_value_type(
0590: 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 argv[0])==SQLITE
05a0: 5f 4e 55 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a _NULL ) return;.
05b0: 20 20 66 6f 72 28 69 3d 31 3b 20 69 3c 61 72 67 for(i=1; i<arg
05c0: 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 c; i++){. if(
05d0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
05e0: 79 70 65 28 61 72 67 76 5b 69 5d 29 3d 3d 53 51 ype(argv[i])==SQ
05f0: 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75 LITE_NULL ) retu
0600: 72 6e 3b 0a 20 20 20 20 69 66 28 20 28 73 71 6c rn;. if( (sql
0610: 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 65 28 61 ite3MemCompare(a
0620: 72 67 76 5b 69 42 65 73 74 5d 2c 20 61 72 67 76 rgv[iBest], argv
0630: 5b 69 5d 2c 20 70 43 6f 6c 6c 29 5e 6d 61 73 6b [i], pColl)^mask
0640: 29 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 42 )>=0 ){. iB
0650: 65 73 74 20 3d 20 69 3b 0a 20 20 20 20 7d 0a 20 est = i;. }.
0660: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 }. sqlite3_res
0670: 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 ult_value(contex
0680: 74 2c 20 61 72 67 76 5b 69 42 65 73 74 5d 29 3b t, argv[iBest]);
0690: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e .}../*.** Return
06a0: 20 74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 the type of the
06b0: 20 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 argument..*/.st
06c0: 61 74 69 63 20 76 6f 69 64 20 74 79 70 65 6f 66 atic void typeof
06d0: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
06e0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
06f0: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
0700: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
0710: 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 argv.){. const
0720: 63 68 61 72 20 2a 7a 20 3d 20 30 3b 0a 20 20 73 char *z = 0;. s
0730: 77 69 74 63 68 28 20 73 71 6c 69 74 65 33 5f 76 witch( sqlite3_v
0740: 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 alue_type(argv[0
0750: 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 ]) ){. case S
0760: 51 4c 49 54 45 5f 4e 55 4c 4c 3a 20 20 20 20 7a QLITE_NULL: z
0770: 20 3d 20 22 6e 75 6c 6c 22 3b 20 20 20 20 62 72 = "null"; br
0780: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 eak;. case SQ
0790: 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a 20 7a 20 LITE_INTEGER: z
07a0: 3d 20 22 69 6e 74 65 67 65 72 22 3b 20 62 72 65 = "integer"; bre
07b0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ak;. case SQL
07c0: 49 54 45 5f 54 45 58 54 3a 20 20 20 20 7a 20 3d ITE_TEXT: z =
07d0: 20 22 74 65 78 74 22 3b 20 20 20 20 62 72 65 61 "text"; brea
07e0: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
07f0: 54 45 5f 46 4c 4f 41 54 3a 20 20 20 7a 20 3d 20 TE_FLOAT: z =
0800: 22 72 65 61 6c 22 3b 20 20 20 20 62 72 65 61 6b "real"; break
0810: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
0820: 45 5f 42 4c 4f 42 3a 20 20 20 20 7a 20 3d 20 22 E_BLOB: z = "
0830: 62 6c 6f 62 22 3b 20 20 20 20 62 72 65 61 6b 3b blob"; break;
0840: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 . }. sqlite3_r
0850: 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 esult_text(conte
0860: 78 74 2c 20 7a 2c 20 2d 31 2c 20 53 51 4c 49 54 xt, z, -1, SQLIT
0870: 45 5f 53 54 41 54 49 43 29 3b 0a 7d 0a 0a 0a 2f E_STATIC);.}.../
0880: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 *.** Implementat
0890: 69 6f 6e 20 6f 66 20 74 68 65 20 6c 65 6e 67 74 ion of the lengt
08a0: 68 28 29 20 66 75 6e 63 74 69 6f 6e 0a 2a 2f 0a h() function.*/.
08b0: 73 74 61 74 69 63 20 76 6f 69 64 20 6c 65 6e 67 static void leng
08c0: 74 68 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 thFunc(. sqlite
08d0: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
08e0: 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a xt,. int argc,.
08f0: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
0900: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 **argv.){. int
0910: 6c 65 6e 3b 0a 0a 20 20 61 73 73 65 72 74 28 20 len;.. assert(
0920: 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 73 77 69 argc==1 );. swi
0930: 74 63 68 28 20 73 71 6c 69 74 65 33 5f 76 61 6c tch( sqlite3_val
0940: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 ue_type(argv[0])
0950: 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ){. case SQL
0960: 49 54 45 5f 42 4c 4f 42 3a 0a 20 20 20 20 63 61 ITE_BLOB:. ca
0970: 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 se SQLITE_INTEGE
0980: 52 3a 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 R:. case SQLI
0990: 54 45 5f 46 4c 4f 41 54 3a 20 7b 0a 20 20 20 20 TE_FLOAT: {.
09a0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
09b0: 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 _int(context, sq
09c0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 lite3_value_byte
09d0: 73 28 61 72 67 76 5b 30 5d 29 29 3b 0a 20 20 20 s(argv[0]));.
09e0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a break;. }.
09f0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
0a00: 54 45 58 54 3a 20 7b 0a 20 20 20 20 20 20 63 6f TEXT: {. co
0a10: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
0a20: 72 20 2a 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 r *z = sqlite3_v
0a30: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
0a40: 5d 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 3d ]);. if( z=
0a50: 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 =0 ) return;.
0a60: 20 20 20 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 len = 0;.
0a70: 20 20 77 68 69 6c 65 28 20 2a 7a 20 29 7b 0a 20 while( *z ){.
0a80: 20 20 20 20 20 20 20 6c 65 6e 2b 2b 3b 0a 20 20 len++;.
0a90: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 SQLITE_SKI
0aa0: 50 5f 55 54 46 38 28 7a 29 3b 0a 20 20 20 20 20 P_UTF8(z);.
0ab0: 20 7d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 }. sqlite3
0ac0: 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 _result_int(cont
0ad0: 65 78 74 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 20 ext, len);.
0ae0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 break;. }.
0af0: 20 20 64 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20 default: {.
0b00: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
0b10: 74 5f 6e 75 6c 6c 28 63 6f 6e 74 65 78 74 29 3b t_null(context);
0b20: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
0b30: 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a }. }.}../*.**
0b40: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 Implementation
0b50: 6f 66 20 74 68 65 20 61 62 73 28 29 20 66 75 6e of the abs() fun
0b60: 63 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 ction.*/.static
0b70: 76 6f 69 64 20 61 62 73 46 75 6e 63 28 73 71 6c void absFunc(sql
0b80: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
0b90: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
0ba0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
0bb0: 2a 61 72 67 76 29 7b 0a 20 20 61 73 73 65 72 74 *argv){. assert
0bc0: 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 73 ( argc==1 );. s
0bd0: 77 69 74 63 68 28 20 73 71 6c 69 74 65 33 5f 76 witch( sqlite3_v
0be0: 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 alue_type(argv[0
0bf0: 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 ]) ){. case S
0c00: 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a 20 7b QLITE_INTEGER: {
0c10: 0a 20 20 20 20 20 20 69 36 34 20 69 56 61 6c 20 . i64 iVal
0c20: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
0c30: 69 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 3b 0a int64(argv[0]);.
0c40: 20 20 20 20 20 20 69 66 28 20 69 56 61 6c 3c 30 if( iVal<0
0c50: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 ){. if(
0c60: 28 69 56 61 6c 3c 3c 31 29 3d 3d 30 20 29 7b 0a (iVal<<1)==0 ){.
0c70: 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 sqlite
0c80: 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 3_result_error(c
0c90: 6f 6e 74 65 78 74 2c 20 22 69 6e 74 65 67 65 72 ontext, "integer
0ca0: 20 6f 76 65 72 66 6c 6f 77 22 2c 20 2d 31 29 3b overflow", -1);
0cb0: 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 . retur
0cc0: 6e 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 n;. }.
0cd0: 20 20 20 20 20 69 56 61 6c 20 3d 20 2d 69 56 61 iVal = -iVa
0ce0: 6c 3b 0a 20 20 20 20 20 20 7d 20 0a 20 20 20 20 l;. } .
0cf0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
0d00: 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 _int64(context,
0d10: 69 56 61 6c 29 3b 0a 20 20 20 20 20 20 62 72 65 iVal);. bre
0d20: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 ak;. }. ca
0d30: 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 3a 20 se SQLITE_NULL:
0d40: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f {. sqlite3_
0d50: 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 result_null(cont
0d60: 65 78 74 29 3b 0a 20 20 20 20 20 20 62 72 65 61 ext);. brea
0d70: 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 65 66 k;. }. def
0d80: 61 75 6c 74 3a 20 7b 0a 20 20 20 20 20 20 64 6f ault: {. do
0d90: 75 62 6c 65 20 72 56 61 6c 20 3d 20 73 71 6c 69 uble rVal = sqli
0da0: 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 te3_value_double
0db0: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 (argv[0]);.
0dc0: 20 69 66 28 20 72 56 61 6c 3c 30 20 29 20 72 56 if( rVal<0 ) rV
0dd0: 61 6c 20 3d 20 2d 72 56 61 6c 3b 0a 20 20 20 20 al = -rVal;.
0de0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
0df0: 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c _double(context,
0e00: 20 72 56 61 6c 29 3b 0a 20 20 20 20 20 20 62 72 rVal);. br
0e10: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d eak;. }. }.}
0e20: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e ../*.** Implemen
0e30: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 75 tation of the su
0e40: 62 73 74 72 28 29 20 66 75 6e 63 74 69 6f 6e 2e bstr() function.
0e50: 0a 2a 2a 0a 2a 2a 20 73 75 62 73 74 72 28 78 2c .**.** substr(x,
0e60: 70 31 2c 70 32 29 20 20 72 65 74 75 72 6e 73 20 p1,p2) returns
0e70: 70 32 20 63 68 61 72 61 63 74 65 72 73 20 6f 66 p2 characters of
0e80: 20 78 5b 5d 20 62 65 67 69 6e 6e 69 6e 67 20 77 x[] beginning w
0e90: 69 74 68 20 70 31 2e 0a 2a 2a 20 70 31 20 69 73 ith p1..** p1 is
0ea0: 20 31 2d 69 6e 64 65 78 65 64 2e 20 20 53 6f 20 1-indexed. So
0eb0: 73 75 62 73 74 72 28 78 2c 31 2c 31 29 20 72 65 substr(x,1,1) re
0ec0: 74 75 72 6e 73 20 74 68 65 20 66 69 72 73 74 20 turns the first
0ed0: 63 68 61 72 61 63 74 65 72 0a 2a 2a 20 6f 66 20 character.** of
0ee0: 78 2e 20 20 49 66 20 78 20 69 73 20 74 65 78 74 x. If x is text
0ef0: 2c 20 74 68 65 6e 20 77 65 20 61 63 74 75 61 6c , then we actual
0f00: 6c 79 20 63 6f 75 6e 74 20 55 54 46 2d 38 20 63 ly count UTF-8 c
0f10: 68 61 72 61 63 74 65 72 73 2e 0a 2a 2a 20 49 66 haracters..** If
0f20: 20 78 20 69 73 20 61 20 62 6c 6f 62 2c 20 74 68 x is a blob, th
0f30: 65 6e 20 77 65 20 63 6f 75 6e 74 20 62 79 74 65 en we count byte
0f40: 73 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 70 31 20 69 s..**.** If p1 i
0f50: 73 20 6e 65 67 61 74 69 76 65 2c 20 74 68 65 6e s negative, then
0f60: 20 77 65 20 62 65 67 69 6e 20 61 62 73 28 70 31 we begin abs(p1
0f70: 29 20 66 72 6f 6d 20 74 68 65 20 65 6e 64 20 6f ) from the end o
0f80: 66 20 78 5b 5d 2e 0a 2a 2f 0a 73 74 61 74 69 63 f x[]..*/.static
0f90: 20 76 6f 69 64 20 73 75 62 73 74 72 46 75 6e 63 void substrFunc
0fa0: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 (. sqlite3_cont
0fb0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 ext *context,.
0fc0: 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 int argc,. sqli
0fd0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
0fe0: 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 .){. const unsi
0ff0: 67 6e 65 64 20 63 68 61 72 20 2a 7a 3b 0a 20 20 gned char *z;.
1000: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 const unsigned c
1010: 68 61 72 20 2a 7a 32 3b 0a 20 20 69 6e 74 20 6c har *z2;. int l
1020: 65 6e 3b 0a 20 20 69 6e 74 20 70 30 74 79 70 65 en;. int p0type
1030: 3b 0a 20 20 69 36 34 20 70 31 2c 20 70 32 3b 0a ;. i64 p1, p2;.
1040: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d . assert( argc=
1050: 3d 33 20 7c 7c 20 61 72 67 63 3d 3d 32 20 29 3b =3 || argc==2 );
1060: 0a 20 20 70 30 74 79 70 65 20 3d 20 73 71 6c 69 . p0type = sqli
1070: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
1080: 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 70 rgv[0]);. if( p
1090: 30 74 79 70 65 3d 3d 53 51 4c 49 54 45 5f 42 4c 0type==SQLITE_BL
10a0: 4f 42 20 29 7b 0a 20 20 20 20 6c 65 6e 20 3d 20 OB ){. len =
10b0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 sqlite3_value_by
10c0: 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 tes(argv[0]);.
10d0: 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 z = sqlite3_va
10e0: 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d lue_blob(argv[0]
10f0: 29 3b 0a 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 );. if( z==0
1100: 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 61 73 ) return;. as
1110: 73 65 72 74 28 20 6c 65 6e 3d 3d 73 71 6c 69 74 sert( len==sqlit
1120: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 e3_value_bytes(a
1130: 72 67 76 5b 30 5d 29 20 29 3b 0a 20 20 7d 65 6c rgv[0]) );. }el
1140: 73 65 7b 0a 20 20 20 20 7a 20 3d 20 73 71 6c 69 se{. z = sqli
1150: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
1160: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 rgv[0]);. if(
1170: 20 7a 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a z==0 ) return;.
1180: 20 20 20 20 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 len = 0;.
1190: 20 66 6f 72 28 7a 32 3d 7a 3b 20 2a 7a 32 3b 20 for(z2=z; *z2;
11a0: 6c 65 6e 2b 2b 29 7b 0a 20 20 20 20 20 20 53 51 len++){. SQ
11b0: 4c 49 54 45 5f 53 4b 49 50 5f 55 54 46 38 28 7a LITE_SKIP_UTF8(z
11c0: 32 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 2);. }. }.
11d0: 70 31 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c p1 = sqlite3_val
11e0: 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 3b ue_int(argv[1]);
11f0: 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 33 20 29 . if( argc==3 )
1200: 7b 0a 20 20 20 20 70 32 20 3d 20 73 71 6c 69 74 {. p2 = sqlit
1210: 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 e3_value_int(arg
1220: 76 5b 32 5d 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a v[2]);. }else{.
1230: 20 20 20 20 70 32 20 3d 20 53 51 4c 49 54 45 5f p2 = SQLITE_
1240: 4d 41 58 5f 4c 45 4e 47 54 48 3b 0a 20 20 7d 0a MAX_LENGTH;. }.
1250: 20 20 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 if( p1<0 ){.
1260: 20 20 70 31 20 2b 3d 20 6c 65 6e 3b 0a 20 20 20 p1 += len;.
1270: 20 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 20 if( p1<0 ){.
1280: 20 20 20 70 32 20 2b 3d 20 70 31 3b 0a 20 20 20 p2 += p1;.
1290: 20 20 20 70 31 20 3d 20 30 3b 0a 20 20 20 20 7d p1 = 0;. }
12a0: 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 70 31 3e . }else if( p1>
12b0: 30 20 29 7b 0a 20 20 20 20 70 31 2d 2d 3b 0a 20 0 ){. p1--;.
12c0: 20 7d 0a 20 20 69 66 28 20 70 31 2b 70 32 3e 6c }. if( p1+p2>l
12d0: 65 6e 20 29 7b 0a 20 20 20 20 70 32 20 3d 20 6c en ){. p2 = l
12e0: 65 6e 2d 70 31 3b 0a 20 20 7d 0a 20 20 69 66 28 en-p1;. }. if(
12f0: 20 70 30 74 79 70 65 21 3d 53 51 4c 49 54 45 5f p0type!=SQLITE_
1300: 42 4c 4f 42 20 29 7b 0a 20 20 20 20 77 68 69 6c BLOB ){. whil
1310: 65 28 20 2a 7a 20 26 26 20 70 31 20 29 7b 0a 20 e( *z && p1 ){.
1320: 20 20 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 SQLITE_SKIP
1330: 5f 55 54 46 38 28 7a 29 3b 0a 20 20 20 20 20 20 _UTF8(z);.
1340: 70 31 2d 2d 3b 0a 20 20 20 20 7d 0a 20 20 20 20 p1--;. }.
1350: 66 6f 72 28 7a 32 3d 7a 3b 20 2a 7a 32 20 26 26 for(z2=z; *z2 &&
1360: 20 70 32 3b 20 70 32 2d 2d 29 7b 0a 20 20 20 20 p2; p2--){.
1370: 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55 54 SQLITE_SKIP_UT
1380: 46 38 28 7a 32 29 3b 0a 20 20 20 20 7d 0a 20 20 F8(z2);. }.
1390: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
13a0: 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 _text(context, (
13b0: 63 68 61 72 2a 29 7a 2c 20 7a 32 2d 7a 2c 20 53 char*)z, z2-z, S
13c0: 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 QLITE_TRANSIENT)
13d0: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 ;. }else{. i
13e0: 66 28 20 70 32 3c 30 20 29 20 70 32 20 3d 20 30 f( p2<0 ) p2 = 0
13f0: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 ;. sqlite3_re
1400: 73 75 6c 74 5f 62 6c 6f 62 28 63 6f 6e 74 65 78 sult_blob(contex
1410: 74 2c 20 28 63 68 61 72 2a 29 26 7a 5b 70 31 5d t, (char*)&z[p1]
1420: 2c 20 70 32 2c 20 53 51 4c 49 54 45 5f 54 52 41 , p2, SQLITE_TRA
1430: 4e 53 49 45 4e 54 29 3b 0a 20 20 7d 0a 7d 0a 0a NSIENT);. }.}..
1440: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 /*.** Implementa
1450: 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 6f 75 6e tion of the roun
1460: 64 28 29 20 66 75 6e 63 74 69 6f 6e 0a 2a 2f 0a d() function.*/.
1470: 73 74 61 74 69 63 20 76 6f 69 64 20 72 6f 75 6e static void roun
1480: 64 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f dFunc(sqlite3_co
1490: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 ntext *context,
14a0: 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 int argc, sqlite
14b0: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 3_value **argv){
14c0: 0a 20 20 69 6e 74 20 6e 20 3d 20 30 3b 0a 20 20 . int n = 0;.
14d0: 64 6f 75 62 6c 65 20 72 3b 0a 20 20 63 68 61 72 double r;. char
14e0: 20 7a 42 75 66 5b 35 30 30 5d 3b 20 20 2f 2a 20 zBuf[500]; /*
14f0: 6c 61 72 67 65 72 20 74 68 61 6e 20 74 68 65 20 larger than the
1500: 25 66 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f %f representatio
1510: 6e 20 6f 66 20 74 68 65 20 6c 61 72 67 65 73 74 n of the largest
1520: 20 64 6f 75 62 6c 65 20 2a 2f 0a 20 20 61 73 73 double */. ass
1530: 65 72 74 28 20 61 72 67 63 3d 3d 31 20 7c 7c 20 ert( argc==1 ||
1540: 61 72 67 63 3d 3d 32 20 29 3b 0a 20 20 69 66 28 argc==2 );. if(
1550: 20 61 72 67 63 3d 3d 32 20 29 7b 0a 20 20 20 20 argc==2 ){.
1560: 69 66 28 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 3d if( SQLITE_NULL=
1570: 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 =sqlite3_value_t
1580: 79 70 65 28 61 72 67 76 5b 31 5d 29 20 29 20 72 ype(argv[1]) ) r
1590: 65 74 75 72 6e 3b 0a 20 20 20 20 6e 20 3d 20 73 eturn;. n = s
15a0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 qlite3_value_int
15b0: 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 69 (argv[1]);. i
15c0: 66 28 20 6e 3e 33 30 20 29 20 6e 20 3d 20 33 30 f( n>30 ) n = 30
15d0: 3b 0a 20 20 20 20 69 66 28 20 6e 3c 30 20 29 20 ;. if( n<0 )
15e0: 6e 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 n = 0;. }. if(
15f0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
1600: 79 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51 ype(argv[0])==SQ
1610: 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75 LITE_NULL ) retu
1620: 72 6e 3b 0a 20 20 72 20 3d 20 73 71 6c 69 74 65 rn;. r = sqlite
1630: 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 61 3_value_double(a
1640: 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c 69 74 rgv[0]);. sqlit
1650: 65 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 e3_snprintf(size
1660: 6f 66 28 7a 42 75 66 29 2c 7a 42 75 66 2c 22 25 of(zBuf),zBuf,"%
1670: 2e 2a 66 22 2c 6e 2c 72 29 3b 0a 20 20 73 71 6c .*f",n,r);. sql
1680: 69 74 65 33 41 74 6f 46 28 7a 42 75 66 2c 20 26 ite3AtoF(zBuf, &
1690: 72 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 r);. sqlite3_re
16a0: 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 sult_double(cont
16b0: 65 78 74 2c 20 72 29 3b 0a 7d 0a 0a 2f 2a 0a 2a ext, r);.}../*.*
16c0: 2a 20 41 6c 6c 6f 63 61 74 65 20 6e 42 79 74 65 * Allocate nByte
16d0: 20 62 79 74 65 73 20 6f 66 20 73 70 61 63 65 20 bytes of space
16e0: 75 73 69 6e 67 20 73 71 6c 69 74 65 33 5f 6d 61 using sqlite3_ma
16f0: 6c 6c 6f 63 28 29 2e 20 49 66 20 74 68 65 0a 2a lloc(). If the.*
1700: 2a 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 66 61 69 * allocation fai
1710: 6c 73 2c 20 63 61 6c 6c 20 73 71 6c 69 74 65 33 ls, call sqlite3
1720: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f _result_error_no
1730: 6d 65 6d 28 29 20 74 6f 20 6e 6f 74 69 66 79 0a mem() to notify.
1740: 2a 2a 20 74 68 65 20 64 61 74 61 62 61 73 65 20 ** the database
1750: 68 61 6e 64 6c 65 20 74 68 61 74 20 6d 61 6c 6c handle that mall
1760: 6f 63 28 29 20 68 61 73 20 66 61 69 6c 65 64 2e oc() has failed.
1770: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
1780: 2a 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 73 *contextMalloc(s
1790: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
17a0: 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 6e 42 79 context, int nBy
17b0: 74 65 29 7b 0a 20 20 63 68 61 72 20 2a 7a 20 3d te){. char *z =
17c0: 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 sqlite3_malloc(
17d0: 6e 42 79 74 65 29 3b 0a 20 20 69 66 28 20 21 7a nByte);. if( !z
17e0: 20 26 26 20 6e 42 79 74 65 3e 30 20 29 7b 0a 20 && nByte>0 ){.
17f0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
1800: 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28 63 6f t_error_nomem(co
1810: 6e 74 65 78 74 29 3b 0a 20 20 7d 0a 20 20 72 65 ntext);. }. re
1820: 74 75 72 6e 20 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn z;.}../*.**
1830: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 Implementation
1840: 6f 66 20 74 68 65 20 75 70 70 65 72 28 29 20 61 of the upper() a
1850: 6e 64 20 6c 6f 77 65 72 28 29 20 53 51 4c 20 66 nd lower() SQL f
1860: 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 61 unctions..*/.sta
1870: 74 69 63 20 76 6f 69 64 20 75 70 70 65 72 46 75 tic void upperFu
1880: 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 nc(sqlite3_conte
1890: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 xt *context, int
18a0: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 argc, sqlite3_v
18b0: 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 alue **argv){.
18c0: 63 68 61 72 20 2a 7a 31 3b 0a 20 20 63 6f 6e 73 char *z1;. cons
18d0: 74 20 63 68 61 72 20 2a 7a 32 3b 0a 20 20 69 6e t char *z2;. in
18e0: 74 20 69 2c 20 6e 3b 0a 20 20 69 66 28 20 61 72 t i, n;. if( ar
18f0: 67 63 3c 31 20 7c 7c 20 53 51 4c 49 54 45 5f 4e gc<1 || SQLITE_N
1900: 55 4c 4c 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c ULL==sqlite3_val
1910: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 ue_type(argv[0])
1920: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 7a 32 20 ) return;. z2
1930: 3d 20 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 = (char*)sqlite3
1940: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 _value_text(argv
1950: 5b 30 5d 29 3b 0a 20 20 6e 20 3d 20 73 71 6c 69 [0]);. n = sqli
1960: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 te3_value_bytes(
1970: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 2f 2a 20 56 argv[0]);. /* V
1980: 65 72 69 66 79 20 74 68 61 74 20 74 68 65 20 63 erify that the c
1990: 61 6c 6c 20 74 6f 20 5f 62 79 74 65 73 28 29 20 all to _bytes()
19a0: 64 6f 65 73 20 6e 6f 74 20 69 6e 76 61 6c 69 64 does not invalid
19b0: 61 74 65 20 74 68 65 20 5f 74 65 78 74 28 29 20 ate the _text()
19c0: 70 6f 69 6e 74 65 72 20 2a 2f 0a 20 20 61 73 73 pointer */. ass
19d0: 65 72 74 28 20 7a 32 3d 3d 28 63 68 61 72 2a 29 ert( z2==(char*)
19e0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
19f0: 78 74 28 61 72 67 76 5b 30 5d 29 20 29 3b 0a 20 xt(argv[0]) );.
1a00: 20 69 66 28 20 7a 32 20 29 7b 0a 20 20 20 20 7a if( z2 ){. z
1a10: 31 20 3d 20 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f 1 = contextMallo
1a20: 63 28 63 6f 6e 74 65 78 74 2c 20 6e 2b 31 29 3b c(context, n+1);
1a30: 0a 20 20 20 20 69 66 28 20 7a 31 20 29 7b 0a 20 . if( z1 ){.
1a40: 20 20 20 20 20 6d 65 6d 63 70 79 28 7a 31 2c 20 memcpy(z1,
1a50: 7a 32 2c 20 6e 2b 31 29 3b 0a 20 20 20 20 20 20 z2, n+1);.
1a60: 66 6f 72 28 69 3d 30 3b 20 7a 31 5b 69 5d 3b 20 for(i=0; z1[i];
1a70: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 7a 31 i++){. z1
1a80: 5b 69 5d 20 3d 20 74 6f 75 70 70 65 72 28 7a 31 [i] = toupper(z1
1a90: 5b 69 5d 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 [i]);. }.
1aa0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
1ab0: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
1ac0: 20 7a 31 2c 20 2d 31 2c 20 73 71 6c 69 74 65 33 z1, -1, sqlite3
1ad0: 5f 66 72 65 65 29 3b 0a 20 20 20 20 7d 0a 20 20 _free);. }.
1ae0: 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 }.}.static void
1af0: 6c 6f 77 65 72 46 75 6e 63 28 73 71 6c 69 74 65 lowerFunc(sqlite
1b00: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
1b10: 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 xt, int argc, sq
1b20: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
1b30: 67 76 29 7b 0a 20 20 63 68 61 72 20 2a 7a 31 3b gv){. char *z1;
1b40: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
1b50: 32 3b 0a 20 20 69 6e 74 20 69 2c 20 6e 3b 0a 20 2;. int i, n;.
1b60: 20 69 66 28 20 61 72 67 63 3c 31 20 7c 7c 20 53 if( argc<1 || S
1b70: 51 4c 49 54 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69 QLITE_NULL==sqli
1b80: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
1b90: 72 67 76 5b 30 5d 29 20 29 20 72 65 74 75 72 6e rgv[0]) ) return
1ba0: 3b 0a 20 20 7a 32 20 3d 20 28 63 68 61 72 2a 29 ;. z2 = (char*)
1bb0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
1bc0: 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 6e xt(argv[0]);. n
1bd0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
1be0: 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b _bytes(argv[0]);
1bf0: 0a 20 20 2f 2a 20 56 65 72 69 66 79 20 74 68 61 . /* Verify tha
1c00: 74 20 74 68 65 20 63 61 6c 6c 20 74 6f 20 5f 62 t the call to _b
1c10: 79 74 65 73 28 29 20 64 6f 65 73 20 6e 6f 74 20 ytes() does not
1c20: 69 6e 76 61 6c 69 64 61 74 65 20 74 68 65 20 5f invalidate the _
1c30: 74 65 78 74 28 29 20 70 6f 69 6e 74 65 72 20 2a text() pointer *
1c40: 2f 0a 20 20 61 73 73 65 72 74 28 20 7a 32 3d 3d /. assert( z2==
1c50: 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 (char*)sqlite3_v
1c60: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
1c70: 5d 29 20 29 3b 0a 20 20 69 66 28 20 7a 32 20 29 ]) );. if( z2 )
1c80: 7b 0a 20 20 20 20 7a 31 20 3d 20 63 6f 6e 74 65 {. z1 = conte
1c90: 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 xtMalloc(context
1ca0: 2c 20 6e 2b 31 29 3b 0a 20 20 20 20 69 66 28 20 , n+1);. if(
1cb0: 7a 31 20 29 7b 0a 20 20 20 20 20 20 6d 65 6d 63 z1 ){. memc
1cc0: 70 79 28 7a 31 2c 20 7a 32 2c 20 6e 2b 31 29 3b py(z1, z2, n+1);
1cd0: 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 . for(i=0;
1ce0: 7a 31 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 z1[i]; i++){.
1cf0: 20 20 20 20 20 7a 31 5b 69 5d 20 3d 20 74 6f 6c z1[i] = tol
1d00: 6f 77 65 72 28 7a 31 5b 69 5d 29 3b 0a 20 20 20 ower(z1[i]);.
1d10: 20 20 20 7d 0a 20 20 20 20 20 20 73 71 6c 69 74 }. sqlit
1d20: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 e3_result_text(c
1d30: 6f 6e 74 65 78 74 2c 20 7a 31 2c 20 2d 31 2c 20 ontext, z1, -1,
1d40: 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 sqlite3_free);.
1d50: 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a }. }.}../*.*
1d60: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
1d70: 20 6f 66 20 74 68 65 20 49 46 4e 55 4c 4c 28 29 of the IFNULL()
1d80: 2c 20 4e 56 4c 28 29 2c 20 61 6e 64 20 43 4f 41 , NVL(), and COA
1d90: 4c 45 53 43 45 28 29 20 66 75 6e 63 74 69 6f 6e LESCE() function
1da0: 73 2e 20 20 0a 2a 2a 20 41 6c 6c 20 74 68 72 65 s. .** All thre
1db0: 65 20 64 6f 20 74 68 65 20 73 61 6d 65 20 74 68 e do the same th
1dc0: 69 6e 67 2e 20 20 54 68 65 79 20 72 65 74 75 72 ing. They retur
1dd0: 6e 20 74 68 65 20 66 69 72 73 74 20 6e 6f 6e 2d n the first non-
1de0: 4e 55 4c 4c 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 NULL.** argument
1df0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
1e00: 20 69 66 6e 75 6c 6c 46 75 6e 63 28 0a 20 20 73 ifnullFunc(. s
1e10: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
1e20: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
1e30: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 rgc,. sqlite3_v
1e40: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
1e50: 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d int i;. for(i=
1e60: 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0; i<argc; i++){
1e70: 0a 20 20 20 20 69 66 28 20 53 51 4c 49 54 45 5f . if( SQLITE_
1e80: 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 33 5f 76 61 NULL!=sqlite3_va
1e90: 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 69 5d lue_type(argv[i]
1ea0: 29 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 ) ){. sqlit
1eb0: 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 e3_result_value(
1ec0: 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b 69 5d context, argv[i]
1ed0: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a );. break;.
1ee0: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a }. }.}../*.
1ef0: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** Implementatio
1f00: 6e 20 6f 66 20 72 61 6e 64 6f 6d 28 29 2e 20 20 n of random().
1f10: 52 65 74 75 72 6e 20 61 20 72 61 6e 64 6f 6d 20 Return a random
1f20: 69 6e 74 65 67 65 72 2e 20 20 0a 2a 2f 0a 73 74 integer. .*/.st
1f30: 61 74 69 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d atic void random
1f40: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
1f50: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
1f60: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
1f70: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
1f80: 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 argv.){. sqlite
1f90: 5f 69 6e 74 36 34 20 72 3b 0a 20 20 73 71 6c 69 _int64 r;. sqli
1fa0: 74 65 33 52 61 6e 64 6f 6d 6e 65 73 73 28 73 69 te3Randomness(si
1fb0: 7a 65 6f 66 28 72 29 2c 20 26 72 29 3b 0a 20 20 zeof(r), &r);.
1fc0: 69 66 28 20 28 72 3c 3c 31 29 3d 3d 30 20 29 20 if( (r<<1)==0 )
1fd0: 72 20 3d 20 30 3b 20 20 2f 2a 20 50 72 65 76 65 r = 0; /* Preve
1fe0: 6e 74 20 30 78 38 30 30 30 2e 2e 2e 2e 20 61 73 nt 0x8000.... as
1ff0: 20 74 68 65 20 72 65 73 75 6c 74 20 73 6f 20 74 the result so t
2000: 68 61 74 20 77 65 20 2a 2f 0a 20 20 20 20 20 20 hat we */.
2010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2020: 20 20 20 20 2f 2a 20 63 61 6e 20 61 6c 77 61 79 /* can alway
2030: 73 20 64 6f 20 61 62 73 28 29 20 6f 66 20 74 68 s do abs() of th
2040: 65 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 73 71 e result */. sq
2050: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 lite3_result_int
2060: 36 34 28 63 6f 6e 74 65 78 74 2c 20 72 29 3b 0a 64(context, r);.
2070: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 }../*.** Impleme
2080: 6e 74 61 74 69 6f 6e 20 6f 66 20 72 61 6e 64 6f ntation of rando
2090: 6d 62 6c 6f 62 28 4e 29 2e 20 20 52 65 74 75 72 mblob(N). Retur
20a0: 6e 20 61 20 72 61 6e 64 6f 6d 20 62 6c 6f 62 0a n a random blob.
20b0: 2a 2a 20 74 68 61 74 20 69 73 20 4e 20 62 79 74 ** that is N byt
20c0: 65 73 20 6c 6f 6e 67 2e 0a 2a 2f 0a 73 74 61 74 es long..*/.stat
20d0: 69 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d 42 6c ic void randomBl
20e0: 6f 62 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f ob(. sqlite3_co
20f0: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a ntext *context,.
2100: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 int argc,. sq
2110: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
2120: 67 76 0a 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a 20 gv.){. int n;.
2130: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
2140: 70 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 p;. assert( arg
2150: 63 3d 3d 31 20 29 3b 0a 20 20 6e 20 3d 20 73 71 c==1 );. n = sq
2160: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 lite3_value_int(
2170: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 argv[0]);. if(
2180: 6e 3c 31 20 29 7b 0a 20 20 20 20 6e 20 3d 20 31 n<1 ){. n = 1
2190: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6e 3e 53 51 ;. }. if( n>SQ
21a0: 4c 49 54 45 5f 4d 41 58 5f 4c 45 4e 47 54 48 20 LITE_MAX_LENGTH
21b0: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 ){. sqlite3_r
21c0: 65 73 75 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 esult_error_toob
21d0: 69 67 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 ig(context);.
21e0: 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 70 return;. }. p
21f0: 20 3d 20 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63 = contextMalloc
2200: 28 63 6f 6e 74 65 78 74 2c 20 6e 29 3b 0a 20 20 (context, n);.
2210: 69 66 28 20 70 20 29 7b 0a 20 20 20 20 73 71 6c if( p ){. sql
2220: 69 74 65 33 52 61 6e 64 6f 6d 6e 65 73 73 28 6e ite3Randomness(n
2230: 2c 20 70 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 , p);. sqlite
2240: 33 5f 72 65 73 75 6c 74 5f 62 6c 6f 62 28 63 6f 3_result_blob(co
2250: 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 70 2c ntext, (char*)p,
2260: 20 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 n, sqlite3_free
2270: 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 );. }.}../*.**
2280: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f Implementation o
2290: 66 20 74 68 65 20 6c 61 73 74 5f 69 6e 73 65 72 f the last_inser
22a0: 74 5f 72 6f 77 69 64 28 29 20 53 51 4c 20 66 75 t_rowid() SQL fu
22b0: 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 72 65 74 nction. The ret
22c0: 75 72 6e 0a 2a 2a 20 76 61 6c 75 65 20 69 73 20 urn.** value is
22d0: 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 65 20 the same as the
22e0: 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73 sqlite3_last_ins
22f0: 65 72 74 5f 72 6f 77 69 64 28 29 20 41 50 49 20 ert_rowid() API
2300: 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 function..*/.sta
2310: 74 69 63 20 76 6f 69 64 20 6c 61 73 74 5f 69 6e tic void last_in
2320: 73 65 72 74 5f 72 6f 77 69 64 28 0a 20 20 73 71 sert_rowid(. sq
2330: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
2340: 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e 74 20 61 ontext, . int a
2350: 72 67 2c 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 rg, . sqlite3_v
2360: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
2370: 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 sqlite3 *db = s
2380: 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 qlite3_user_data
2390: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71 6c (context);. sql
23a0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 ite3_result_int6
23b0: 34 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 4(context, sqlit
23c0: 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 e3_last_insert_r
23d0: 6f 77 69 64 28 64 62 29 29 3b 0a 7d 0a 0a 2f 2a owid(db));.}../*
23e0: 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 .** Implementati
23f0: 6f 6e 20 6f 66 20 74 68 65 20 63 68 61 6e 67 65 on of the change
2400: 73 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e s() SQL function
2410: 2e 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 . The return va
2420: 6c 75 65 20 69 73 20 74 68 65 0a 2a 2a 20 73 61 lue is the.** sa
2430: 6d 65 20 61 73 20 74 68 65 20 73 71 6c 69 74 65 me as the sqlite
2440: 33 5f 63 68 61 6e 67 65 73 28 29 20 41 50 49 20 3_changes() API
2450: 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 function..*/.sta
2460: 74 69 63 20 76 6f 69 64 20 63 68 61 6e 67 65 73 tic void changes
2470: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 (. sqlite3_cont
2480: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 ext *context,.
2490: 69 6e 74 20 61 72 67 2c 0a 20 20 73 71 6c 69 74 int arg,. sqlit
24a0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a e3_value **argv.
24b0: 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ){. sqlite3 *db
24c0: 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65 72 5f = sqlite3_user_
24d0: 64 61 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a 20 data(context);.
24e0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
24f0: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c int(context, sql
2500: 69 74 65 33 5f 63 68 61 6e 67 65 73 28 64 62 29 ite3_changes(db)
2510: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c );.}../*.** Impl
2520: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 ementation of th
2530: 65 20 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 28 e total_changes(
2540: 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 ) SQL function.
2550: 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 The return valu
2560: 65 20 69 73 0a 2a 2a 20 74 68 65 20 73 61 6d 65 e is.** the same
2570: 20 61 73 20 74 68 65 20 73 71 6c 69 74 65 33 5f as the sqlite3_
2580: 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 28 29 20 total_changes()
2590: 41 50 49 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f API function..*/
25a0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 6f 74 .static void tot
25b0: 61 6c 5f 63 68 61 6e 67 65 73 28 0a 20 20 73 71 al_changes(. sq
25c0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
25d0: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 ontext,. int ar
25e0: 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c g,. sqlite3_val
25f0: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 ue **argv.){. s
2600: 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71 6c qlite3 *db = sql
2610: 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 63 ite3_user_data(c
2620: 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71 6c 69 74 ontext);. sqlit
2630: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f e3_result_int(co
2640: 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 74 ntext, sqlite3_t
2650: 6f 74 61 6c 5f 63 68 61 6e 67 65 73 28 64 62 29 otal_changes(db)
2660: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 74 );.}../*.** A st
2670: 72 75 63 74 75 72 65 20 64 65 66 69 6e 69 6e 67 ructure defining
2680: 20 68 6f 77 20 74 6f 20 64 6f 20 47 4c 4f 42 2d how to do GLOB-
2690: 73 74 79 6c 65 20 63 6f 6d 70 61 72 69 73 6f 6e style comparison
26a0: 73 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 63 6f 6d s..*/.struct com
26b0: 70 61 72 65 49 6e 66 6f 20 7b 0a 20 20 75 38 20 pareInfo {. u8
26c0: 6d 61 74 63 68 41 6c 6c 3b 0a 20 20 75 38 20 6d matchAll;. u8 m
26d0: 61 74 63 68 4f 6e 65 3b 0a 20 20 75 38 20 6d 61 atchOne;. u8 ma
26e0: 74 63 68 53 65 74 3b 0a 20 20 75 38 20 6e 6f 43 tchSet;. u8 noC
26f0: 61 73 65 3b 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 46 ase;.};../*.** F
2700: 6f 72 20 4c 49 4b 45 20 61 6e 64 20 47 4c 4f 42 or LIKE and GLOB
2710: 20 6d 61 74 63 68 69 6e 67 20 6f 6e 20 45 42 43 matching on EBC
2720: 44 49 43 20 6d 61 63 68 69 6e 65 73 2c 20 61 73 DIC machines, as
2730: 73 75 6d 65 20 74 68 61 74 20 65 76 65 72 79 0a sume that every.
2740: 2a 2a 20 63 68 61 72 61 63 74 65 72 20 69 73 20 ** character is
2750: 65 78 61 63 74 6c 79 20 6f 6e 65 20 62 79 74 65 exactly one byte
2760: 20 69 6e 20 73 69 7a 65 2e 20 20 41 6c 73 6f 2c in size. Also,
2770: 20 61 6c 6c 20 63 68 61 72 61 63 74 65 72 73 20 all characters
2780: 61 72 65 0a 2a 2a 20 61 62 6c 65 20 74 6f 20 70 are.** able to p
2790: 61 72 74 69 63 69 70 61 74 65 20 69 6e 20 75 70 articipate in up
27a0: 70 65 72 2d 63 61 73 65 2d 74 6f 2d 6c 6f 77 65 per-case-to-lowe
27b0: 72 2d 63 61 73 65 20 6d 61 70 70 69 6e 67 73 20 r-case mappings
27c0: 69 6e 20 45 42 43 44 49 43 0a 2a 2a 20 77 68 65 in EBCDIC.** whe
27d0: 72 65 61 73 20 6f 6e 6c 79 20 63 68 61 72 61 63 reas only charac
27e0: 74 65 72 73 20 6c 65 73 73 20 74 68 61 6e 20 30 ters less than 0
27f0: 78 38 30 20 64 6f 20 69 6e 20 41 53 43 49 49 2e x80 do in ASCII.
2800: 0a 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28 .*/.#if defined(
2810: 53 51 4c 49 54 45 5f 45 42 43 44 49 43 29 0a 23 SQLITE_EBCDIC).#
2820: 20 64 65 66 69 6e 65 20 73 71 6c 69 74 65 33 55 define sqlite3U
2830: 74 66 38 52 65 61 64 28 41 2c 42 2c 43 29 20 20 tf8Read(A,B,C)
2840: 28 2a 28 41 2b 2b 29 29 0a 23 20 64 65 66 69 6e (*(A++)).# defin
2850: 65 20 47 6c 6f 67 55 70 70 65 72 54 6f 4c 6f 77 e GlogUpperToLow
2860: 65 72 28 41 29 20 20 20 20 20 41 20 3d 20 73 71 er(A) A = sq
2870: 6c 69 74 65 33 55 70 70 65 72 54 6f 4c 6f 77 65 lite3UpperToLowe
2880: 72 5b 41 5d 0a 23 65 6c 73 65 0a 23 20 64 65 66 r[A].#else.# def
2890: 69 6e 65 20 47 6c 6f 67 55 70 70 65 72 54 6f 4c ine GlogUpperToL
28a0: 6f 77 65 72 28 41 29 20 20 20 20 20 69 66 28 20 ower(A) if(
28b0: 41 3c 30 78 38 30 20 29 7b 20 41 20 3d 20 73 71 A<0x80 ){ A = sq
28c0: 6c 69 74 65 33 55 70 70 65 72 54 6f 4c 6f 77 65 lite3UpperToLowe
28d0: 72 5b 41 5d 3b 20 7d 0a 23 65 6e 64 69 66 0a 0a r[A]; }.#endif..
28e0: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74 72 static const str
28f0: 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 uct compareInfo
2900: 67 6c 6f 62 49 6e 66 6f 20 3d 20 7b 20 27 2a 27 globInfo = { '*'
2910: 2c 20 27 3f 27 2c 20 27 5b 27 2c 20 30 20 7d 3b , '?', '[', 0 };
2920: 0a 2f 2a 20 54 68 65 20 63 6f 72 72 65 63 74 20 ./* The correct
2930: 53 51 4c 2d 39 32 20 62 65 68 61 76 69 6f 72 20 SQL-92 behavior
2940: 69 73 20 66 6f 72 20 74 68 65 20 4c 49 4b 45 20 is for the LIKE
2950: 6f 70 65 72 61 74 6f 72 20 74 6f 20 69 67 6e 6f operator to igno
2960: 72 65 0a 2a 2a 20 63 61 73 65 2e 20 20 54 68 75 re.** case. Thu
2970: 73 20 20 27 61 27 20 4c 49 4b 45 20 27 41 27 20 s 'a' LIKE 'A'
2980: 77 6f 75 6c 64 20 62 65 20 74 72 75 65 2e 20 2a would be true. *
2990: 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 /.static const s
29a0: 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 truct compareInf
29b0: 6f 20 6c 69 6b 65 49 6e 66 6f 4e 6f 72 6d 20 3d o likeInfoNorm =
29c0: 20 7b 20 27 25 27 2c 20 27 5f 27 2c 20 20 20 30 { '%', '_', 0
29d0: 2c 20 31 20 7d 3b 0a 2f 2a 20 49 66 20 53 51 4c , 1 };./* If SQL
29e0: 49 54 45 5f 43 41 53 45 5f 53 45 4e 53 49 54 49 ITE_CASE_SENSITI
29f0: 56 45 5f 4c 49 4b 45 20 69 73 20 64 65 66 69 6e VE_LIKE is defin
2a00: 65 64 2c 20 74 68 65 6e 20 74 68 65 20 4c 49 4b ed, then the LIK
2a10: 45 20 6f 70 65 72 61 74 6f 72 0a 2a 2a 20 69 73 E operator.** is
2a20: 20 63 61 73 65 20 73 65 6e 73 69 74 69 76 65 20 case sensitive
2a30: 63 61 75 73 69 6e 67 20 27 61 27 20 4c 49 4b 45 causing 'a' LIKE
2a40: 20 27 41 27 20 74 6f 20 62 65 20 66 61 6c 73 65 'A' to be false
2a50: 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 */.static const
2a60: 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 struct compareI
2a70: 6e 66 6f 20 6c 69 6b 65 49 6e 66 6f 41 6c 74 20 nfo likeInfoAlt
2a80: 3d 20 7b 20 27 25 27 2c 20 27 5f 27 2c 20 20 20 = { '%', '_',
2a90: 30 2c 20 30 20 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 0, 0 };../*.** C
2aa0: 6f 6d 70 61 72 65 20 74 77 6f 20 55 54 46 2d 38 ompare two UTF-8
2ab0: 20 73 74 72 69 6e 67 73 20 66 6f 72 20 65 71 75 strings for equ
2ac0: 61 6c 69 74 79 20 77 68 65 72 65 20 74 68 65 20 ality where the
2ad0: 66 69 72 73 74 20 73 74 72 69 6e 67 20 63 61 6e first string can
2ae0: 0a 2a 2a 20 70 6f 74 65 6e 74 69 61 6c 6c 79 20 .** potentially
2af0: 62 65 20 61 20 22 67 6c 6f 62 22 20 65 78 70 72 be a "glob" expr
2b00: 65 73 73 69 6f 6e 2e 20 20 52 65 74 75 72 6e 20 ession. Return
2b10: 74 72 75 65 20 28 31 29 20 69 66 20 74 68 65 79 true (1) if they
2b20: 0a 2a 2a 20 61 72 65 20 74 68 65 20 73 61 6d 65 .** are the same
2b30: 20 61 6e 64 20 66 61 6c 73 65 20 28 30 29 20 69 and false (0) i
2b40: 66 20 74 68 65 79 20 61 72 65 20 64 69 66 66 65 f they are diffe
2b50: 72 65 6e 74 2e 0a 2a 2a 0a 2a 2a 20 47 6c 6f 62 rent..**.** Glob
2b60: 62 69 6e 67 20 72 75 6c 65 73 3a 0a 2a 2a 0a 2a bing rules:.**.*
2b70: 2a 20 20 20 20 20 20 27 2a 27 20 20 20 20 20 20 * '*'
2b80: 20 4d 61 74 63 68 65 73 20 61 6e 79 20 73 65 71 Matches any seq
2b90: 75 65 6e 63 65 20 6f 66 20 7a 65 72 6f 20 6f 72 uence of zero or
2ba0: 20 6d 6f 72 65 20 63 68 61 72 61 63 74 65 72 73 more characters
2bb0: 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 27 3f 27 ..**.** '?'
2bc0: 20 20 20 20 20 20 20 4d 61 74 63 68 65 73 20 65 Matches e
2bd0: 78 61 63 74 6c 79 20 6f 6e 65 20 63 68 61 72 61 xactly one chara
2be0: 63 74 65 72 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 cter..**.**
2bf0: 5b 2e 2e 2e 5d 20 20 20 20 20 20 4d 61 74 63 68 [...] Match
2c00: 65 73 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72 es one character
2c10: 20 66 72 6f 6d 20 74 68 65 20 65 6e 63 6c 6f 73 from the enclos
2c20: 65 64 20 6c 69 73 74 20 6f 66 0a 2a 2a 20 20 20 ed list of.**
2c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 61 cha
2c40: 72 61 63 74 65 72 73 2e 0a 2a 2a 0a 2a 2a 20 20 racters..**.**
2c50: 20 20 20 5b 5e 2e 2e 2e 5d 20 20 20 20 20 4d 61 [^...] Ma
2c60: 74 63 68 65 73 20 6f 6e 65 20 63 68 61 72 61 63 tches one charac
2c70: 74 65 72 20 6e 6f 74 20 69 6e 20 74 68 65 20 65 ter not in the e
2c80: 6e 63 6c 6f 73 65 64 20 6c 69 73 74 2e 0a 2a 2a nclosed list..**
2c90: 0a 2a 2a 20 57 69 74 68 20 74 68 65 20 5b 2e 2e .** With the [..
2ca0: 2e 5d 20 61 6e 64 20 5b 5e 2e 2e 2e 5d 20 6d 61 .] and [^...] ma
2cb0: 74 63 68 69 6e 67 2c 20 61 20 27 5d 27 20 63 68 tching, a ']' ch
2cc0: 61 72 61 63 74 65 72 20 63 61 6e 20 62 65 20 69 aracter can be i
2cd0: 6e 63 6c 75 64 65 64 0a 2a 2a 20 69 6e 20 74 68 ncluded.** in th
2ce0: 65 20 6c 69 73 74 20 62 79 20 6d 61 6b 69 6e 67 e list by making
2cf0: 20 69 74 20 74 68 65 20 66 69 72 73 74 20 63 68 it the first ch
2d00: 61 72 61 63 74 65 72 20 61 66 74 65 72 20 27 5b aracter after '[
2d10: 27 20 6f 72 20 27 5e 27 2e 20 20 41 0a 2a 2a 20 ' or '^'. A.**
2d20: 72 61 6e 67 65 20 6f 66 20 63 68 61 72 61 63 74 range of charact
2d30: 65 72 73 20 63 61 6e 20 62 65 20 73 70 65 63 69 ers can be speci
2d40: 66 69 65 64 20 75 73 69 6e 67 20 27 2d 27 2e 20 fied using '-'.
2d50: 20 45 78 61 6d 70 6c 65 3a 0a 2a 2a 20 22 5b 61 Example:.** "[a
2d60: 2d 7a 5d 22 20 6d 61 74 63 68 65 73 20 61 6e 79 -z]" matches any
2d70: 20 73 69 6e 67 6c 65 20 6c 6f 77 65 72 2d 63 61 single lower-ca
2d80: 73 65 20 6c 65 74 74 65 72 2e 20 20 54 6f 20 6d se letter. To m
2d90: 61 74 63 68 20 61 20 27 2d 27 2c 20 6d 61 6b 65 atch a '-', make
2da0: 0a 2a 2a 20 69 74 20 74 68 65 20 6c 61 73 74 20 .** it the last
2db0: 63 68 61 72 61 63 74 65 72 20 69 6e 20 74 68 65 character in the
2dc0: 20 6c 69 73 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 list..**.** Thi
2dd0: 73 20 72 6f 75 74 69 6e 65 20 69 73 20 75 73 75 s routine is usu
2de0: 61 6c 6c 79 20 71 75 69 63 6b 2c 20 62 75 74 20 ally quick, but
2df0: 63 61 6e 20 62 65 20 4e 2a 2a 32 20 69 6e 20 74 can be N**2 in t
2e00: 68 65 20 77 6f 72 73 74 20 63 61 73 65 2e 0a 2a he worst case..*
2e10: 2a 0a 2a 2a 20 48 69 6e 74 73 3a 20 74 6f 20 6d *.** Hints: to m
2e20: 61 74 63 68 20 27 2a 27 20 6f 72 20 27 3f 27 2c atch '*' or '?',
2e30: 20 70 75 74 20 74 68 65 6d 20 69 6e 20 22 5b 5d put them in "[]
2e40: 22 2e 20 20 4c 69 6b 65 20 74 68 69 73 3a 0a 2a ". Like this:.*
2e50: 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 61 62 63 *.** abc
2e60: 5b 2a 5d 78 79 7a 20 20 20 20 20 20 20 20 4d 61 [*]xyz Ma
2e70: 74 63 68 65 73 20 22 61 62 63 2a 78 79 7a 22 20 tches "abc*xyz"
2e80: 6f 6e 6c 79 0a 2a 2f 0a 73 74 61 74 69 63 20 69 only.*/.static i
2e90: 6e 74 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 nt patternCompar
2ea0: 65 28 0a 20 20 63 6f 6e 73 74 20 75 38 20 2a 7a e(. const u8 *z
2eb0: 50 61 74 74 65 72 6e 2c 20 20 20 20 20 20 20 20 Pattern,
2ec0: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 67 6c 6f /* The glo
2ed0: 62 20 70 61 74 74 65 72 6e 20 2a 2f 0a 20 20 63 b pattern */. c
2ee0: 6f 6e 73 74 20 75 38 20 2a 7a 53 74 72 69 6e 67 onst u8 *zString
2ef0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2f00: 2f 2a 20 54 68 65 20 73 74 72 69 6e 67 20 74 6f /* The string to
2f10: 20 63 6f 6d 70 61 72 65 20 61 67 61 69 6e 73 74 compare against
2f20: 20 74 68 65 20 67 6c 6f 62 20 2a 2f 0a 20 20 63 the glob */. c
2f30: 6f 6e 73 74 20 73 74 72 75 63 74 20 63 6f 6d 70 onst struct comp
2f40: 61 72 65 49 6e 66 6f 20 2a 70 49 6e 66 6f 2c 20 areInfo *pInfo,
2f50: 2f 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 /* Information a
2f60: 62 6f 75 74 20 68 6f 77 20 74 6f 20 64 6f 20 74 bout how to do t
2f70: 68 65 20 63 6f 6d 70 61 72 65 20 2a 2f 0a 20 20 he compare */.
2f80: 63 6f 6e 73 74 20 69 6e 74 20 65 73 63 20 20 20 const int esc
2f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2fa0: 20 2f 2a 20 54 68 65 20 65 73 63 61 70 65 20 63 /* The escape c
2fb0: 68 61 72 61 63 74 65 72 20 2a 2f 0a 29 7b 0a 20 haracter */.){.
2fc0: 20 69 6e 74 20 63 2c 20 63 32 3b 0a 20 20 69 6e int c, c2;. in
2fd0: 74 20 69 6e 76 65 72 74 3b 0a 20 20 69 6e 74 20 t invert;. int
2fe0: 73 65 65 6e 3b 0a 20 20 75 38 20 6d 61 74 63 68 seen;. u8 match
2ff0: 4f 6e 65 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 One = pInfo->mat
3000: 63 68 4f 6e 65 3b 0a 20 20 75 38 20 6d 61 74 63 chOne;. u8 matc
3010: 68 41 6c 6c 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 hAll = pInfo->ma
3020: 74 63 68 41 6c 6c 3b 0a 20 20 75 38 20 6d 61 74 tchAll;. u8 mat
3030: 63 68 53 65 74 20 3d 20 70 49 6e 66 6f 2d 3e 6d chSet = pInfo->m
3040: 61 74 63 68 53 65 74 3b 0a 20 20 75 38 20 6e 6f atchSet;. u8 no
3050: 43 61 73 65 20 3d 20 70 49 6e 66 6f 2d 3e 6e 6f Case = pInfo->no
3060: 43 61 73 65 3b 20 0a 20 20 69 6e 74 20 70 72 65 Case; . int pre
3070: 76 45 73 63 61 70 65 20 3d 20 30 3b 20 20 20 20 vEscape = 0;
3080: 20 2f 2a 20 54 72 75 65 20 69 66 20 74 68 65 20 /* True if the
3090: 70 72 65 76 69 6f 75 73 20 63 68 61 72 61 63 74 previous charact
30a0: 65 72 20 77 61 73 20 27 65 73 63 61 70 65 27 20 er was 'escape'
30b0: 2a 2f 0a 0a 20 20 77 68 69 6c 65 28 20 28 63 20 */.. while( (c
30c0: 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 = sqlite3Utf8Rea
30d0: 64 28 7a 50 61 74 74 65 72 6e 2c 30 2c 26 7a 50 d(zPattern,0,&zP
30e0: 61 74 74 65 72 6e 29 29 21 3d 30 20 29 7b 0a 20 attern))!=0 ){.
30f0: 20 20 20 69 66 28 20 21 70 72 65 76 45 73 63 61 if( !prevEsca
3100: 70 65 20 26 26 20 63 3d 3d 6d 61 74 63 68 41 6c pe && c==matchAl
3110: 6c 20 29 7b 0a 20 20 20 20 20 20 77 68 69 6c 65 l ){. while
3120: 28 20 28 63 3d 73 71 6c 69 74 65 33 55 74 66 38 ( (c=sqlite3Utf8
3130: 52 65 61 64 28 7a 50 61 74 74 65 72 6e 2c 30 2c Read(zPattern,0,
3140: 26 7a 50 61 74 74 65 72 6e 29 29 20 3d 3d 20 6d &zPattern)) == m
3150: 61 74 63 68 41 6c 6c 0a 20 20 20 20 20 20 20 20 atchAll.
3160: 20 20 20 20 20 20 20 7c 7c 20 63 20 3d 3d 20 6d || c == m
3170: 61 74 63 68 4f 6e 65 20 29 7b 0a 20 20 20 20 20 atchOne ){.
3180: 20 20 20 69 66 28 20 63 3d 3d 6d 61 74 63 68 4f if( c==matchO
3190: 6e 65 20 26 26 20 73 71 6c 69 74 65 33 55 74 66 ne && sqlite3Utf
31a0: 38 52 65 61 64 28 7a 53 74 72 69 6e 67 2c 20 30 8Read(zString, 0
31b0: 2c 20 26 7a 53 74 72 69 6e 67 29 3d 3d 30 20 29 , &zString)==0 )
31c0: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 {. retu
31d0: 72 6e 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a rn 0;. }.
31e0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 }. if
31f0: 28 20 63 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 ( c==0 ){.
3200: 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 return 1;.
3210: 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d 65 }else if( c==e
3220: 73 63 20 29 7b 0a 20 20 20 20 20 20 20 20 63 20 sc ){. c
3230: 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 = sqlite3Utf8Rea
3240: 64 28 7a 50 61 74 74 65 72 6e 2c 20 30 2c 20 26 d(zPattern, 0, &
3250: 7a 50 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 zPattern);.
3260: 20 20 20 69 66 28 20 63 3d 3d 30 20 29 7b 0a 20 if( c==0 ){.
3270: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 return
3280: 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 0;. }.
3290: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d }else if( c==
32a0: 6d 61 74 63 68 53 65 74 20 29 7b 0a 20 20 20 20 matchSet ){.
32b0: 20 20 20 20 61 73 73 65 72 74 28 20 65 73 63 3d assert( esc=
32c0: 3d 30 20 29 3b 20 20 20 20 20 20 20 20 20 2f 2a =0 ); /*
32d0: 20 54 68 69 73 20 69 73 20 47 4c 4f 42 2c 20 6e This is GLOB, n
32e0: 6f 74 20 4c 49 4b 45 20 2a 2f 0a 20 20 20 20 20 ot LIKE */.
32f0: 20 20 20 61 73 73 65 72 74 28 20 6d 61 74 63 68 assert( match
3300: 53 65 74 3c 30 78 38 30 20 29 3b 20 20 2f 2a 20 Set<0x80 ); /*
3310: 27 5b 27 20 69 73 20 61 20 73 69 6e 67 6c 65 2d '[' is a single-
3320: 62 79 74 65 20 63 68 61 72 61 63 74 65 72 20 2a byte character *
3330: 2f 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 /. while(
3340: 20 2a 7a 53 74 72 69 6e 67 20 26 26 20 70 61 74 *zString && pat
3350: 74 65 72 6e 43 6f 6d 70 61 72 65 28 26 7a 50 61 ternCompare(&zPa
3360: 74 74 65 72 6e 5b 2d 31 5d 2c 7a 53 74 72 69 6e ttern[-1],zStrin
3370: 67 2c 70 49 6e 66 6f 2c 65 73 63 29 3d 3d 30 20 g,pInfo,esc)==0
3380: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 53 51 4c ){. SQL
3390: 49 54 45 5f 53 4b 49 50 5f 55 54 46 38 28 7a 53 ITE_SKIP_UTF8(zS
33a0: 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 20 20 20 tring);.
33b0: 7d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e }. return
33c0: 20 2a 7a 53 74 72 69 6e 67 21 3d 30 3b 0a 20 20 *zString!=0;.
33d0: 20 20 20 20 7d 0a 20 20 20 20 20 20 77 68 69 6c }. whil
33e0: 65 28 20 28 63 32 20 3d 20 73 71 6c 69 74 65 33 e( (c2 = sqlite3
33f0: 55 74 66 38 52 65 61 64 28 7a 53 74 72 69 6e 67 Utf8Read(zString
3400: 2c 30 2c 26 7a 53 74 72 69 6e 67 29 29 21 3d 30 ,0,&zString))!=0
3410: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 ){. if(
3420: 6e 6f 43 61 73 65 20 29 7b 0a 20 20 20 20 20 20 noCase ){.
3430: 20 20 20 20 47 6c 6f 67 55 70 70 65 72 54 6f 4c GlogUpperToL
3440: 6f 77 65 72 28 63 32 29 3b 0a 20 20 20 20 20 20 ower(c2);.
3450: 20 20 20 20 47 6c 6f 67 55 70 70 65 72 54 6f 4c GlogUpperToL
3460: 6f 77 65 72 28 63 29 3b 0a 20 20 20 20 20 20 20 ower(c);.
3470: 20 20 20 77 68 69 6c 65 28 20 63 32 20 21 3d 20 while( c2 !=
3480: 30 20 26 26 20 63 32 20 21 3d 20 63 20 29 7b 0a 0 && c2 != c ){.
3490: 20 20 20 20 20 20 20 20 20 20 20 20 63 32 20 3d c2 =
34a0: 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64 sqlite3Utf8Read
34b0: 28 7a 53 74 72 69 6e 67 2c 20 30 2c 20 26 7a 53 (zString, 0, &zS
34c0: 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 20 20 20 tring);.
34d0: 20 20 20 20 47 6c 6f 67 55 70 70 65 72 54 6f 4c GlogUpperToL
34e0: 6f 77 65 72 28 63 32 29 3b 0a 20 20 20 20 20 20 ower(c2);.
34f0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 65 }. }e
3500: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 77 lse{. w
3510: 68 69 6c 65 28 20 63 32 20 21 3d 20 30 20 26 26 hile( c2 != 0 &&
3520: 20 63 32 20 21 3d 20 63 20 29 7b 0a 20 20 20 20 c2 != c ){.
3530: 20 20 20 20 20 20 20 20 63 32 20 3d 20 73 71 6c c2 = sql
3540: 69 74 65 33 55 74 66 38 52 65 61 64 28 7a 53 74 ite3Utf8Read(zSt
3550: 72 69 6e 67 2c 20 30 2c 20 26 7a 53 74 72 69 6e ring, 0, &zStrin
3560: 67 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a g);. }.
3570: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
3580: 20 20 69 66 28 20 63 32 3d 3d 30 20 29 20 72 65 if( c2==0 ) re
3590: 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 20 20 turn 0;.
35a0: 69 66 28 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 if( patternCompa
35b0: 72 65 28 7a 50 61 74 74 65 72 6e 2c 7a 53 74 72 re(zPattern,zStr
35c0: 69 6e 67 2c 70 49 6e 66 6f 2c 65 73 63 29 20 29 ing,pInfo,esc) )
35d0: 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 20 return 1;.
35e0: 20 7d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 }. return
35f0: 30 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 0;. }else if(
3600: 20 21 70 72 65 76 45 73 63 61 70 65 20 26 26 20 !prevEscape &&
3610: 63 3d 3d 6d 61 74 63 68 4f 6e 65 20 29 7b 0a 20 c==matchOne ){.
3620: 20 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 if( sqlite3
3630: 55 74 66 38 52 65 61 64 28 7a 53 74 72 69 6e 67 Utf8Read(zString
3640: 2c 20 30 2c 20 26 7a 53 74 72 69 6e 67 29 3d 3d , 0, &zString)==
3650: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74 0 ){. ret
3660: 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 urn 0;. }.
3670: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d }else if( c==
3680: 6d 61 74 63 68 53 65 74 20 29 7b 0a 20 20 20 20 matchSet ){.
3690: 20 20 69 6e 74 20 70 72 69 6f 72 5f 63 20 3d 20 int prior_c =
36a0: 30 3b 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 0;. assert(
36b0: 20 65 73 63 3d 3d 30 20 29 3b 20 20 20 20 2f 2a esc==0 ); /*
36c0: 20 54 68 69 73 20 6f 6e 6c 79 20 6f 63 63 75 72 This only occur
36d0: 73 20 66 6f 72 20 47 4c 4f 42 2c 20 6e 6f 74 20 s for GLOB, not
36e0: 4c 49 4b 45 20 2a 2f 0a 20 20 20 20 20 20 73 65 LIKE */. se
36f0: 65 6e 20 3d 20 30 3b 0a 20 20 20 20 20 20 69 6e en = 0;. in
3700: 76 65 72 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 vert = 0;.
3710: 63 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 c = sqlite3Utf8R
3720: 65 61 64 28 7a 53 74 72 69 6e 67 2c 20 30 2c 20 ead(zString, 0,
3730: 26 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 &zString);.
3740: 20 69 66 28 20 63 3d 3d 30 20 29 20 72 65 74 75 if( c==0 ) retu
3750: 72 6e 20 30 3b 0a 20 20 20 20 20 20 63 32 20 3d rn 0;. c2 =
3760: 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64 sqlite3Utf8Read
3770: 28 7a 50 61 74 74 65 72 6e 2c 20 30 2c 20 26 7a (zPattern, 0, &z
3780: 50 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 Pattern);.
3790: 69 66 28 20 63 32 3d 3d 27 5e 27 20 29 7b 0a 20 if( c2=='^' ){.
37a0: 20 20 20 20 20 20 20 69 6e 76 65 72 74 20 3d 20 invert =
37b0: 31 3b 0a 20 20 20 20 20 20 20 20 63 32 20 3d 20 1;. c2 =
37c0: 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64 28 sqlite3Utf8Read(
37d0: 7a 50 61 74 74 65 72 6e 2c 20 30 2c 20 26 7a 50 zPattern, 0, &zP
37e0: 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 7d attern);. }
37f0: 0a 20 20 20 20 20 20 69 66 28 20 63 32 3d 3d 27 . if( c2=='
3800: 5d 27 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 ]' ){. if
3810: 28 20 63 3d 3d 27 5d 27 20 29 20 73 65 65 6e 20 ( c==']' ) seen
3820: 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 63 32 20 = 1;. c2
3830: 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 = sqlite3Utf8Rea
3840: 64 28 7a 50 61 74 74 65 72 6e 2c 20 30 2c 20 26 d(zPattern, 0, &
3850: 7a 50 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 zPattern);.
3860: 20 7d 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 }. while(
3870: 63 32 20 26 26 20 63 32 21 3d 27 5d 27 20 29 7b c2 && c2!=']' ){
3880: 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 32 3d . if( c2=
3890: 3d 27 2d 27 20 26 26 20 7a 50 61 74 74 65 72 6e ='-' && zPattern
38a0: 5b 30 5d 21 3d 27 5d 27 20 26 26 20 7a 50 61 74 [0]!=']' && zPat
38b0: 74 65 72 6e 5b 30 5d 21 3d 30 20 26 26 20 70 72 tern[0]!=0 && pr
38c0: 69 6f 72 5f 63 3e 30 20 29 7b 0a 20 20 20 20 20 ior_c>0 ){.
38d0: 20 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74 65 c2 = sqlite
38e0: 33 55 74 66 38 52 65 61 64 28 7a 50 61 74 74 65 3Utf8Read(zPatte
38f0: 72 6e 2c 20 30 2c 20 26 7a 50 61 74 74 65 72 6e rn, 0, &zPattern
3900: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 );. if(
3910: 20 63 3e 3d 70 72 69 6f 72 5f 63 20 26 26 20 63 c>=prior_c && c
3920: 3c 3d 63 32 20 29 20 73 65 65 6e 20 3d 20 31 3b <=c2 ) seen = 1;
3930: 0a 20 20 20 20 20 20 20 20 20 20 70 72 69 6f 72 . prior
3940: 5f 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 _c = 0;.
3950: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 }else{.
3960: 20 69 66 28 20 63 3d 3d 63 32 20 29 7b 0a 20 20 if( c==c2 ){.
3970: 20 20 20 20 20 20 20 20 20 20 73 65 65 6e 20 3d seen =
3980: 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 1;. }.
3990: 20 20 20 20 20 20 20 20 20 20 70 72 69 6f 72 5f prior_
39a0: 63 20 3d 20 63 32 3b 0a 20 20 20 20 20 20 20 20 c = c2;.
39b0: 7d 0a 20 20 20 20 20 20 20 20 63 32 20 3d 20 73 }. c2 = s
39c0: 71 6c 69 74 65 33 55 74 66 38 52 65 61 64 28 7a qlite3Utf8Read(z
39d0: 50 61 74 74 65 72 6e 2c 20 30 2c 20 26 7a 50 61 Pattern, 0, &zPa
39e0: 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 7d 0a ttern);. }.
39f0: 20 20 20 20 20 20 69 66 28 20 63 32 3d 3d 30 20 if( c2==0
3a00: 7c 7c 20 28 73 65 65 6e 20 5e 20 69 6e 76 65 72 || (seen ^ inver
3a10: 74 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 t)==0 ){.
3a20: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 return 0;.
3a30: 20 7d 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 }. }else if(
3a40: 20 65 73 63 3d 3d 63 20 26 26 20 21 70 72 65 76 esc==c && !prev
3a50: 45 73 63 61 70 65 20 29 7b 0a 20 20 20 20 20 20 Escape ){.
3a60: 70 72 65 76 45 73 63 61 70 65 20 3d 20 31 3b 0a prevEscape = 1;.
3a70: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
3a80: 20 63 32 20 3d 20 73 71 6c 69 74 65 33 55 74 66 c2 = sqlite3Utf
3a90: 38 52 65 61 64 28 7a 53 74 72 69 6e 67 2c 20 30 8Read(zString, 0
3aa0: 2c 20 26 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 , &zString);.
3ab0: 20 20 20 69 66 28 20 6e 6f 43 61 73 65 20 29 7b if( noCase ){
3ac0: 0a 20 20 20 20 20 20 20 20 47 6c 6f 67 55 70 70 . GlogUpp
3ad0: 65 72 54 6f 4c 6f 77 65 72 28 63 29 3b 0a 20 20 erToLower(c);.
3ae0: 20 20 20 20 20 20 47 6c 6f 67 55 70 70 65 72 54 GlogUpperT
3af0: 6f 4c 6f 77 65 72 28 63 32 29 3b 0a 20 20 20 20 oLower(c2);.
3b00: 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 63 21 }. if( c!
3b10: 3d 63 32 20 29 7b 0a 20 20 20 20 20 20 20 20 72 =c2 ){. r
3b20: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 7d eturn 0;. }
3b30: 0a 20 20 20 20 20 20 70 72 65 76 45 73 63 61 70 . prevEscap
3b40: 65 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 7d e = 0;. }. }
3b50: 0a 20 20 72 65 74 75 72 6e 20 2a 7a 53 74 72 69 . return *zStri
3b60: 6e 67 3d 3d 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 ng==0;.}../*.**
3b70: 43 6f 75 6e 74 20 74 68 65 20 6e 75 6d 62 65 72 Count the number
3b80: 20 6f 66 20 74 69 6d 65 73 20 74 68 61 74 20 74 of times that t
3b90: 68 65 20 4c 49 4b 45 20 6f 70 65 72 61 74 6f 72 he LIKE operator
3ba0: 20 28 6f 72 20 47 4c 4f 42 20 77 68 69 63 68 20 (or GLOB which
3bb0: 69 73 0a 2a 2a 20 6a 75 73 74 20 61 20 76 61 72 is.** just a var
3bc0: 69 61 74 69 6f 6e 20 6f 66 20 4c 49 4b 45 29 20 iation of LIKE)
3bd0: 67 65 74 73 20 63 61 6c 6c 65 64 2e 20 20 54 68 gets called. Th
3be0: 69 73 20 69 73 20 75 73 65 64 20 66 6f 72 20 74 is is used for t
3bf0: 65 73 74 69 6e 67 0a 2a 2a 20 6f 6e 6c 79 2e 0a esting.** only..
3c00: 2a 2f 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 */.#ifdef SQLITE
3c10: 5f 54 45 53 54 0a 69 6e 74 20 73 71 6c 69 74 65 _TEST.int sqlite
3c20: 33 5f 6c 69 6b 65 5f 63 6f 75 6e 74 20 3d 20 30 3_like_count = 0
3c30: 3b 0a 23 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a ;.#endif.../*.**
3c40: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 Implementation
3c50: 6f 66 20 74 68 65 20 6c 69 6b 65 28 29 20 53 51 of the like() SQ
3c60: 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 L function. Thi
3c70: 73 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 s function imple
3c80: 6d 65 6e 74 73 0a 2a 2a 20 74 68 65 20 62 75 69 ments.** the bui
3c90: 6c 64 2d 69 6e 20 4c 49 4b 45 20 6f 70 65 72 61 ld-in LIKE opera
3ca0: 74 6f 72 2e 20 20 54 68 65 20 66 69 72 73 74 20 tor. The first
3cb0: 61 72 67 75 6d 65 6e 74 20 74 6f 20 74 68 65 20 argument to the
3cc0: 66 75 6e 63 74 69 6f 6e 20 69 73 20 74 68 65 0a function is the.
3cd0: 2a 2a 20 70 61 74 74 65 72 6e 20 61 6e 64 20 74 ** pattern and t
3ce0: 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 he second argume
3cf0: 6e 74 20 69 73 20 74 68 65 20 73 74 72 69 6e 67 nt is the string
3d00: 2e 20 20 53 6f 2c 20 74 68 65 20 53 51 4c 20 73 . So, the SQL s
3d10: 74 61 74 65 6d 65 6e 74 73 3a 0a 2a 2a 0a 2a 2a tatements:.**.**
3d20: 20 20 20 20 20 20 20 41 20 4c 49 4b 45 20 42 0a A LIKE B.
3d30: 2a 2a 0a 2a 2a 20 69 73 20 69 6d 70 6c 65 6d 65 **.** is impleme
3d40: 6e 74 65 64 20 61 73 20 6c 69 6b 65 28 42 2c 41 nted as like(B,A
3d50: 29 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 73 61 )..**.** This sa
3d60: 6d 65 20 66 75 6e 63 74 69 6f 6e 20 28 77 69 74 me function (wit
3d70: 68 20 61 20 64 69 66 66 65 72 65 6e 74 20 63 6f h a different co
3d80: 6d 70 61 72 65 49 6e 66 6f 20 73 74 72 75 63 74 mpareInfo struct
3d90: 75 72 65 29 20 63 6f 6d 70 75 74 65 73 0a 2a 2a ure) computes.**
3da0: 20 74 68 65 20 47 4c 4f 42 20 6f 70 65 72 61 74 the GLOB operat
3db0: 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f or..*/.static vo
3dc0: 69 64 20 6c 69 6b 65 46 75 6e 63 28 0a 20 20 73 id likeFunc(. s
3dd0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
3de0: 63 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e 74 20 context, . int
3df0: 61 72 67 63 2c 20 0a 20 20 73 71 6c 69 74 65 33 argc, . sqlite3
3e00: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
3e10: 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 . const unsigne
3e20: 64 20 63 68 61 72 20 2a 7a 41 2c 20 2a 7a 42 3b d char *zA, *zB;
3e30: 0a 20 20 69 6e 74 20 65 73 63 61 70 65 20 3d 20 . int escape =
3e40: 30 3b 0a 0a 20 20 7a 42 20 3d 20 73 71 6c 69 74 0;.. zB = sqlit
3e50: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
3e60: 67 76 5b 30 5d 29 3b 0a 20 20 7a 41 20 3d 20 73 gv[0]);. zA = s
3e70: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
3e80: 74 28 61 72 67 76 5b 31 5d 29 3b 0a 0a 20 20 2f t(argv[1]);.. /
3e90: 2a 20 4c 69 6d 69 74 20 74 68 65 20 6c 65 6e 67 * Limit the leng
3ea0: 74 68 20 6f 66 20 74 68 65 20 4c 49 4b 45 20 6f th of the LIKE o
3eb0: 72 20 47 4c 4f 42 20 70 61 74 74 65 72 6e 20 74 r GLOB pattern t
3ec0: 6f 20 61 76 6f 69 64 20 70 72 6f 62 6c 65 6d 73 o avoid problems
3ed0: 0a 20 20 2a 2a 20 6f 66 20 64 65 65 70 20 72 65 . ** of deep re
3ee0: 63 75 72 73 69 6f 6e 20 61 6e 64 20 4e 2a 4e 20 cursion and N*N
3ef0: 62 65 68 61 76 69 6f 72 20 69 6e 20 70 61 74 74 behavior in patt
3f00: 65 72 6e 43 6f 6d 70 61 72 65 28 29 2e 0a 20 20 ernCompare()..
3f10: 2a 2f 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 */. if( sqlite3
3f20: 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 _value_bytes(arg
3f30: 76 5b 30 5d 29 3e 53 51 4c 49 54 45 5f 4d 41 58 v[0])>SQLITE_MAX
3f40: 5f 4c 49 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45 _LIKE_PATTERN_LE
3f50: 4e 47 54 48 20 29 7b 0a 20 20 20 20 73 71 6c 69 NGTH ){. sqli
3f60: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 te3_result_error
3f70: 28 63 6f 6e 74 65 78 74 2c 20 22 4c 49 4b 45 20 (context, "LIKE
3f80: 6f 72 20 47 4c 4f 42 20 70 61 74 74 65 72 6e 20 or GLOB pattern
3f90: 74 6f 6f 20 63 6f 6d 70 6c 65 78 22 2c 20 2d 31 too complex", -1
3fa0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 );. return;.
3fb0: 20 7d 0a 20 20 61 73 73 65 72 74 28 20 7a 42 3d }. assert( zB=
3fc0: 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 =sqlite3_value_t
3fd0: 65 78 74 28 61 72 67 76 5b 30 5d 29 20 29 3b 20 ext(argv[0]) );
3fe0: 20 2f 2a 20 45 6e 63 6f 64 69 6e 67 20 64 69 64 /* Encoding did
3ff0: 20 6e 6f 74 20 63 68 61 6e 67 65 20 2a 2f 0a 0a not change */..
4000: 20 20 69 66 28 20 61 72 67 63 3d 3d 33 20 29 7b if( argc==3 ){
4010: 0a 20 20 20 20 2f 2a 20 54 68 65 20 65 73 63 61 . /* The esca
4020: 70 65 20 63 68 61 72 61 63 74 65 72 20 73 74 72 pe character str
4030: 69 6e 67 20 6d 75 73 74 20 63 6f 6e 73 69 73 74 ing must consist
4040: 20 6f 66 20 61 20 73 69 6e 67 6c 65 20 55 54 46 of a single UTF
4050: 2d 38 20 63 68 61 72 61 63 74 65 72 2e 0a 20 20 -8 character..
4060: 20 20 2a 2a 20 4f 74 68 65 72 77 69 73 65 2c 20 ** Otherwise,
4070: 72 65 74 75 72 6e 20 61 6e 20 65 72 72 6f 72 2e return an error.
4080: 0a 20 20 20 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 . */. cons
4090: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 t unsigned char
40a0: 2a 7a 45 73 63 20 3d 20 73 71 6c 69 74 65 33 5f *zEsc = sqlite3_
40b0: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
40c0: 32 5d 29 3b 0a 20 20 20 20 69 66 28 20 7a 45 73 2]);. if( zEs
40d0: 63 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 c==0 ) return;.
40e0: 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 55 74 if( sqlite3Ut
40f0: 66 38 43 68 61 72 4c 65 6e 28 28 63 68 61 72 2a f8CharLen((char*
4100: 29 7a 45 73 63 2c 20 2d 31 29 21 3d 31 20 29 7b )zEsc, -1)!=1 ){
4110: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 . sqlite3_r
4120: 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 esult_error(cont
4130: 65 78 74 2c 20 0a 20 20 20 20 20 20 20 20 20 20 ext, .
4140: 22 45 53 43 41 50 45 20 65 78 70 72 65 73 73 69 "ESCAPE expressi
4150: 6f 6e 20 6d 75 73 74 20 62 65 20 61 20 73 69 6e on must be a sin
4160: 67 6c 65 20 63 68 61 72 61 63 74 65 72 22 2c 20 gle character",
4170: 2d 31 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 -1);. retur
4180: 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 73 63 n;. }. esc
4190: 61 70 65 20 3d 20 73 71 6c 69 74 65 33 55 74 66 ape = sqlite3Utf
41a0: 38 52 65 61 64 28 7a 45 73 63 2c 20 30 2c 20 26 8Read(zEsc, 0, &
41b0: 7a 45 73 63 29 3b 0a 20 20 7d 0a 20 20 69 66 28 zEsc);. }. if(
41c0: 20 7a 41 20 26 26 20 7a 42 20 29 7b 0a 20 20 20 zA && zB ){.
41d0: 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 struct compareI
41e0: 6e 66 6f 20 2a 70 49 6e 66 6f 20 3d 20 73 71 6c nfo *pInfo = sql
41f0: 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 63 ite3_user_data(c
4200: 6f 6e 74 65 78 74 29 3b 0a 23 69 66 64 65 66 20 ontext);.#ifdef
4210: 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 20 20 SQLITE_TEST.
4220: 73 71 6c 69 74 65 33 5f 6c 69 6b 65 5f 63 6f 75 sqlite3_like_cou
4230: 6e 74 2b 2b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 nt++;.#endif.
4240: 20 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 . sqlite3_re
4250: 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 sult_int(context
4260: 2c 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 , patternCompare
4270: 28 7a 42 2c 20 7a 41 2c 20 70 49 6e 66 6f 2c 20 (zB, zA, pInfo,
4280: 65 73 63 61 70 65 29 29 3b 0a 20 20 7d 0a 7d 0a escape));. }.}.
4290: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
42a0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 4e 55 4c ation of the NUL
42b0: 4c 49 46 28 78 2c 79 29 20 66 75 6e 63 74 69 6f LIF(x,y) functio
42c0: 6e 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 n. The result i
42d0: 73 20 74 68 65 20 66 69 72 73 74 0a 2a 2a 20 61 s the first.** a
42e0: 72 67 75 6d 65 6e 74 20 69 66 20 74 68 65 20 61 rgument if the a
42f0: 72 67 75 6d 65 6e 74 73 20 61 72 65 20 64 69 66 rguments are dif
4300: 66 65 72 65 6e 74 2e 20 20 54 68 65 20 72 65 73 ferent. The res
4310: 75 6c 74 20 69 73 20 4e 55 4c 4c 20 69 66 20 74 ult is NULL if t
4320: 68 65 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 73 20 he.** arguments
4330: 61 72 65 20 65 71 75 61 6c 20 74 6f 20 65 61 63 are equal to eac
4340: 68 20 6f 74 68 65 72 2e 0a 2a 2f 0a 73 74 61 74 h other..*/.stat
4350: 69 63 20 76 6f 69 64 20 6e 75 6c 6c 69 66 46 75 ic void nullifFu
4360: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f nc(. sqlite3_co
4370: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a ntext *context,.
4380: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 int argc,. sq
4390: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
43a0: 67 76 0a 29 7b 0a 20 20 43 6f 6c 6c 53 65 71 20 gv.){. CollSeq
43b0: 2a 70 43 6f 6c 6c 20 3d 20 73 71 6c 69 74 65 33 *pColl = sqlite3
43c0: 47 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 GetFuncCollSeq(c
43d0: 6f 6e 74 65 78 74 29 3b 0a 20 20 69 66 28 20 73 ontext);. if( s
43e0: 71 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 65 qlite3MemCompare
43f0: 28 61 72 67 76 5b 30 5d 2c 20 61 72 67 76 5b 31 (argv[0], argv[1
4400: 5d 2c 20 70 43 6f 6c 6c 29 21 3d 30 20 29 7b 0a ], pColl)!=0 ){.
4410: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
4420: 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 74 lt_value(context
4430: 2c 20 61 72 67 76 5b 30 5d 29 3b 0a 20 20 7d 0a , argv[0]);. }.
4440: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 }../*.** Impleme
4450: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 56 ntation of the V
4460: 45 52 53 49 4f 4e 28 2a 29 20 66 75 6e 63 74 69 ERSION(*) functi
4470: 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 on. The result
4480: 69 73 20 74 68 65 20 76 65 72 73 69 6f 6e 0a 2a is the version.*
4490: 2a 20 6f 66 20 74 68 65 20 53 51 4c 69 74 65 20 * of the SQLite
44a0: 6c 69 62 72 61 72 79 20 74 68 61 74 20 69 73 20 library that is
44b0: 72 75 6e 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 running..*/.stat
44c0: 69 63 20 76 6f 69 64 20 76 65 72 73 69 6f 6e 46 ic void versionF
44d0: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 unc(. sqlite3_c
44e0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
44f0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 . int argc,. s
4500: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
4510: 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 rgv.){. sqlite3
4520: 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e _result_text(con
4530: 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 65 text, sqlite3_ve
4540: 72 73 69 6f 6e 2c 20 2d 31 2c 20 53 51 4c 49 54 rsion, -1, SQLIT
4550: 45 5f 53 54 41 54 49 43 29 3b 0a 7d 0a 0a 2f 2a E_STATIC);.}../*
4560: 20 41 72 72 61 79 20 66 6f 72 20 63 6f 6e 76 65 Array for conve
4570: 72 74 69 6e 67 20 66 72 6f 6d 20 68 61 6c 66 2d rting from half-
4580: 62 79 74 65 73 20 28 6e 79 62 62 6c 65 73 29 20 bytes (nybbles)
4590: 69 6e 74 6f 20 41 53 43 49 49 20 68 65 78 0a 2a into ASCII hex.*
45a0: 2a 20 64 69 67 69 74 73 2e 20 2a 2f 0a 73 74 61 * digits. */.sta
45b0: 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 68 tic const char h
45c0: 65 78 64 69 67 69 74 73 5b 5d 20 3d 20 7b 0a 20 exdigits[] = {.
45d0: 20 27 30 27 2c 20 27 31 27 2c 20 27 32 27 2c 20 '0', '1', '2',
45e0: 27 33 27 2c 20 27 34 27 2c 20 27 35 27 2c 20 27 '3', '4', '5', '
45f0: 36 27 2c 20 27 37 27 2c 0a 20 20 27 38 27 2c 20 6', '7',. '8',
4600: 27 39 27 2c 20 27 41 27 2c 20 27 42 27 2c 20 27 '9', 'A', 'B', '
4610: 43 27 2c 20 27 44 27 2c 20 27 45 27 2c 20 27 46 C', 'D', 'E', 'F
4620: 27 20 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 45 58 50 ' .};../*.** EXP
4630: 45 52 49 4d 45 4e 54 41 4c 20 2d 20 54 68 69 73 ERIMENTAL - This
4640: 20 69 73 20 6e 6f 74 20 61 6e 20 6f 66 66 69 63 is not an offic
4650: 69 61 6c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 ial function. T
4660: 68 65 20 69 6e 74 65 72 66 61 63 65 20 6d 61 79 he interface may
4670: 0a 2a 2a 20 63 68 61 6e 67 65 2e 20 20 54 68 69 .** change. Thi
4680: 73 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 64 s function may d
4690: 69 73 61 70 70 65 61 72 2e 20 20 44 6f 20 6e 6f isappear. Do no
46a0: 74 20 77 72 69 74 65 20 63 6f 64 65 20 74 68 61 t write code tha
46b0: 74 20 64 65 70 65 6e 64 73 0a 2a 2a 20 6f 6e 20 t depends.** on
46c0: 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a this function..*
46d0: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 *.** Implementat
46e0: 69 6f 6e 20 6f 66 20 74 68 65 20 51 55 4f 54 45 ion of the QUOTE
46f0: 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 () function. Th
4700: 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 is function take
4710: 73 20 61 20 73 69 6e 67 6c 65 0a 2a 2a 20 61 72 s a single.** ar
4720: 67 75 6d 65 6e 74 2e 20 20 49 66 20 74 68 65 20 gument. If the
4730: 61 72 67 75 6d 65 6e 74 20 69 73 20 6e 75 6d 65 argument is nume
4740: 72 69 63 2c 20 74 68 65 20 72 65 74 75 72 6e 20 ric, the return
4750: 76 61 6c 75 65 20 69 73 20 74 68 65 20 73 61 6d value is the sam
4760: 65 20 61 73 0a 2a 2a 20 74 68 65 20 61 72 67 75 e as.** the argu
4770: 6d 65 6e 74 2e 20 20 49 66 20 74 68 65 20 61 72 ment. If the ar
4780: 67 75 6d 65 6e 74 20 69 73 20 4e 55 4c 4c 2c 20 gument is NULL,
4790: 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 the return value
47a0: 20 69 73 20 74 68 65 20 73 74 72 69 6e 67 0a 2a is the string.*
47b0: 2a 20 22 4e 55 4c 4c 22 2e 20 20 4f 74 68 65 72 * "NULL". Other
47c0: 77 69 73 65 2c 20 74 68 65 20 61 72 67 75 6d 65 wise, the argume
47d0: 6e 74 20 69 73 20 65 6e 63 6c 6f 73 65 64 20 69 nt is enclosed i
47e0: 6e 20 73 69 6e 67 6c 65 20 71 75 6f 74 65 73 20 n single quotes
47f0: 77 69 74 68 0a 2a 2a 20 73 69 6e 67 6c 65 2d 71 with.** single-q
4800: 75 6f 74 65 20 65 73 63 61 70 65 73 2e 0a 2a 2f uote escapes..*/
4810: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 71 75 6f .static void quo
4820: 74 65 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 teFunc(sqlite3_c
4830: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
4840: 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 int argc, sqlit
4850: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 e3_value **argv)
4860: 7b 0a 20 20 69 66 28 20 61 72 67 63 3c 31 20 29 {. if( argc<1 )
4870: 20 72 65 74 75 72 6e 3b 0a 20 20 73 77 69 74 63 return;. switc
4880: 68 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 h( sqlite3_value
4890: 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 20 29 _type(argv[0]) )
48a0: 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 {. case SQLIT
48b0: 45 5f 4e 55 4c 4c 3a 20 7b 0a 20 20 20 20 20 20 E_NULL: {.
48c0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 sqlite3_result_t
48d0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 22 4e 55 ext(context, "NU
48e0: 4c 4c 22 2c 20 34 2c 20 53 51 4c 49 54 45 5f 53 LL", 4, SQLITE_S
48f0: 54 41 54 49 43 29 3b 0a 20 20 20 20 20 20 62 72 TATIC);. br
4900: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 eak;. }. c
4910: 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 ase SQLITE_INTEG
4920: 45 52 3a 0a 20 20 20 20 63 61 73 65 20 53 51 4c ER:. case SQL
4930: 49 54 45 5f 46 4c 4f 41 54 3a 20 7b 0a 20 20 20 ITE_FLOAT: {.
4940: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
4950: 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 74 2c t_value(context,
4960: 20 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 argv[0]);.
4970: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 break;. }.
4980: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 42 4c case SQLITE_BL
4990: 4f 42 3a 20 7b 0a 20 20 20 20 20 20 63 68 61 72 OB: {. char
49a0: 20 2a 7a 54 65 78 74 20 3d 20 30 3b 0a 20 20 20 *zText = 0;.
49b0: 20 20 20 63 68 61 72 20 63 6f 6e 73 74 20 2a 7a char const *z
49c0: 42 6c 6f 62 20 3d 20 73 71 6c 69 74 65 33 5f 76 Blob = sqlite3_v
49d0: 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 alue_blob(argv[0
49e0: 5d 29 3b 0a 20 20 20 20 20 20 69 6e 74 20 6e 42 ]);. int nB
49f0: 6c 6f 62 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 lob = sqlite3_va
4a00: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 lue_bytes(argv[0
4a10: 5d 29 3b 0a 20 20 20 20 20 20 61 73 73 65 72 74 ]);. assert
4a20: 28 20 7a 42 6c 6f 62 3d 3d 73 71 6c 69 74 65 33 ( zBlob==sqlite3
4a30: 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 _value_blob(argv
4a40: 5b 30 5d 29 20 29 3b 20 2f 2a 20 4e 6f 20 65 6e [0]) ); /* No en
4a50: 63 6f 64 69 6e 67 20 63 68 61 6e 67 65 20 2a 2f coding change */
4a60: 0a 0a 20 20 20 20 20 20 69 66 28 20 32 2a 6e 42 .. if( 2*nB
4a70: 6c 6f 62 2b 34 3e 53 51 4c 49 54 45 5f 4d 41 58 lob+4>SQLITE_MAX
4a80: 5f 4c 45 4e 47 54 48 20 29 7b 0a 20 20 20 20 20 _LENGTH ){.
4a90: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
4aa0: 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67 28 63 t_error_toobig(c
4ab0: 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20 20 ontext);.
4ac0: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 7d return;. }
4ad0: 0a 20 20 20 20 20 20 7a 54 65 78 74 20 3d 20 28 . zText = (
4ae0: 63 68 61 72 20 2a 29 63 6f 6e 74 65 78 74 4d 61 char *)contextMa
4af0: 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c 20 28 32 lloc(context, (2
4b00: 2a 6e 42 6c 6f 62 29 2b 34 29 3b 20 0a 20 20 20 *nBlob)+4); .
4b10: 20 20 20 69 66 28 20 7a 54 65 78 74 20 29 7b 0a if( zText ){.
4b20: 20 20 20 20 20 20 20 20 69 6e 74 20 69 3b 0a 20 int i;.
4b30: 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 for(i=0;
4b40: 69 3c 6e 42 6c 6f 62 3b 20 69 2b 2b 29 7b 0a 20 i<nBlob; i++){.
4b50: 20 20 20 20 20 20 20 20 20 7a 54 65 78 74 5b 28 zText[(
4b60: 69 2a 32 29 2b 32 5d 20 3d 20 68 65 78 64 69 67 i*2)+2] = hexdig
4b70: 69 74 73 5b 28 7a 42 6c 6f 62 5b 69 5d 3e 3e 34 its[(zBlob[i]>>4
4b80: 29 26 30 78 30 46 5d 3b 0a 20 20 20 20 20 20 20 )&0x0F];.
4b90: 20 20 20 7a 54 65 78 74 5b 28 69 2a 32 29 2b 33 zText[(i*2)+3
4ba0: 5d 20 3d 20 68 65 78 64 69 67 69 74 73 5b 28 7a ] = hexdigits[(z
4bb0: 42 6c 6f 62 5b 69 5d 29 26 30 78 30 46 5d 3b 0a Blob[i])&0x0F];.
4bc0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
4bd0: 20 20 7a 54 65 78 74 5b 28 6e 42 6c 6f 62 2a 32 zText[(nBlob*2
4be0: 29 2b 32 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 )+2] = '\'';.
4bf0: 20 20 20 20 20 7a 54 65 78 74 5b 28 6e 42 6c 6f zText[(nBlo
4c00: 62 2a 32 29 2b 33 5d 20 3d 20 27 5c 30 27 3b 0a b*2)+3] = '\0';.
4c10: 20 20 20 20 20 20 20 20 7a 54 65 78 74 5b 30 5d zText[0]
4c20: 20 3d 20 27 58 27 3b 0a 20 20 20 20 20 20 20 20 = 'X';.
4c30: 7a 54 65 78 74 5b 31 5d 20 3d 20 27 5c 27 27 3b zText[1] = '\'';
4c40: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 . sqlite3
4c50: 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e _result_text(con
4c60: 74 65 78 74 2c 20 7a 54 65 78 74 2c 20 2d 31 2c text, zText, -1,
4c70: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e SQLITE_TRANSIEN
4c80: 54 29 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 T);. sqli
4c90: 74 65 33 5f 66 72 65 65 28 7a 54 65 78 74 29 3b te3_free(zText);
4ca0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 62 . }. b
4cb0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 reak;. }.
4cc0: 63 61 73 65 20 53 51 4c 49 54 45 5f 54 45 58 54 case SQLITE_TEXT
4cd0: 3a 20 7b 0a 20 20 20 20 20 20 69 6e 74 20 69 2c : {. int i,
4ce0: 6a 3b 0a 20 20 20 20 20 20 75 36 34 20 6e 3b 0a j;. u64 n;.
4cf0: 20 20 20 20 20 20 63 6f 6e 73 74 20 75 6e 73 69 const unsi
4d00: 67 6e 65 64 20 63 68 61 72 20 2a 7a 41 72 67 20 gned char *zArg
4d10: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
4d20: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 text(argv[0]);.
4d30: 20 20 20 20 20 63 68 61 72 20 2a 7a 3b 0a 0a 20 char *z;..
4d40: 20 20 20 20 20 69 66 28 20 7a 41 72 67 3d 3d 30 if( zArg==0
4d50: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 ) return;.
4d60: 20 66 6f 72 28 69 3d 30 2c 20 6e 3d 30 3b 20 7a for(i=0, n=0; z
4d70: 41 72 67 5b 69 5d 3b 20 69 2b 2b 29 7b 20 69 66 Arg[i]; i++){ if
4d80: 28 20 7a 41 72 67 5b 69 5d 3d 3d 27 5c 27 27 20 ( zArg[i]=='\''
4d90: 29 20 6e 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 69 ) n++; }. i
4da0: 66 28 20 69 2b 6e 2b 33 3e 53 51 4c 49 54 45 5f f( i+n+3>SQLITE_
4db0: 4d 41 58 5f 4c 45 4e 47 54 48 20 29 7b 0a 20 20 MAX_LENGTH ){.
4dc0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 sqlite3_re
4dd0: 73 75 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 sult_error_toobi
4de0: 67 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 g(context);.
4df0: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 return;.
4e00: 20 20 7d 0a 20 20 20 20 20 20 7a 20 3d 20 63 6f }. z = co
4e10: 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 ntextMalloc(cont
4e20: 65 78 74 2c 20 69 2b 6e 2b 33 29 3b 0a 20 20 20 ext, i+n+3);.
4e30: 20 20 20 69 66 28 20 7a 20 29 7b 0a 20 20 20 20 if( z ){.
4e40: 20 20 20 20 7a 5b 30 5d 20 3d 20 27 5c 27 27 3b z[0] = '\'';
4e50: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30 . for(i=0
4e60: 2c 20 6a 3d 31 3b 20 7a 41 72 67 5b 69 5d 3b 20 , j=1; zArg[i];
4e70: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 i++){.
4e80: 7a 5b 6a 2b 2b 5d 20 3d 20 7a 41 72 67 5b 69 5d z[j++] = zArg[i]
4e90: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 ;. if(
4ea0: 7a 41 72 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 7b zArg[i]=='\'' ){
4eb0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a 5b 6a . z[j
4ec0: 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 ++] = '\'';.
4ed0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
4ee0: 7d 0a 20 20 20 20 20 20 20 20 7a 5b 6a 2b 2b 5d }. z[j++]
4ef0: 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 = '\'';.
4f00: 20 7a 5b 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 20 z[j] = 0;.
4f10: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
4f20: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 t_text(context,
4f30: 7a 2c 20 6a 2c 20 73 71 6c 69 74 65 33 5f 66 72 z, j, sqlite3_fr
4f40: 65 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 ee);. }.
4f50: 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 }. }.}../*.**
4f60: 54 68 65 20 68 65 78 28 29 20 66 75 6e 63 74 69 The hex() functi
4f70: 6f 6e 2e 20 20 49 6e 74 65 72 70 72 65 74 20 74 on. Interpret t
4f80: 68 65 20 61 72 67 75 6d 65 6e 74 20 61 73 20 61 he argument as a
4f90: 20 62 6c 6f 62 2e 20 20 52 65 74 75 72 6e 0a 2a blob. Return.*
4fa0: 2a 20 61 20 68 65 78 61 64 65 63 69 6d 61 6c 20 * a hexadecimal
4fb0: 72 65 6e 64 65 72 69 6e 67 20 61 73 20 74 65 78 rendering as tex
4fc0: 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 t..*/.static voi
4fd0: 64 20 68 65 78 46 75 6e 63 28 0a 20 20 73 71 6c d hexFunc(. sql
4fe0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
4ff0: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 ntext,. int arg
5000: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c c,. sqlite3_val
5010: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 ue **argv.){. i
5020: 6e 74 20 69 2c 20 6e 3b 0a 20 20 63 6f 6e 73 74 nt i, n;. const
5030: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
5040: 70 42 6c 6f 62 3b 0a 20 20 63 68 61 72 20 2a 7a pBlob;. char *z
5050: 48 65 78 2c 20 2a 7a 3b 0a 20 20 61 73 73 65 72 Hex, *z;. asser
5060: 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 t( argc==1 );.
5070: 70 42 6c 6f 62 20 3d 20 73 71 6c 69 74 65 33 5f pBlob = sqlite3_
5080: 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b value_blob(argv[
5090: 30 5d 29 3b 0a 20 20 6e 20 3d 20 73 71 6c 69 74 0]);. n = sqlit
50a0: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 e3_value_bytes(a
50b0: 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 6e rgv[0]);. if( n
50c0: 2a 32 2b 31 3e 53 51 4c 49 54 45 5f 4d 41 58 5f *2+1>SQLITE_MAX_
50d0: 4c 45 4e 47 54 48 20 29 7b 0a 20 20 20 20 73 71 LENGTH ){. sq
50e0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 lite3_result_err
50f0: 6f 72 5f 74 6f 6f 62 69 67 28 63 6f 6e 74 65 78 or_toobig(contex
5100: 74 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a t);. return;.
5110: 20 20 7d 0a 20 20 61 73 73 65 72 74 28 20 70 42 }. assert( pB
5120: 6c 6f 62 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c lob==sqlite3_val
5130: 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d 29 ue_blob(argv[0])
5140: 20 29 3b 20 20 2f 2a 20 4e 6f 20 65 6e 63 6f 64 ); /* No encod
5150: 69 6e 67 20 63 68 61 6e 67 65 20 2a 2f 0a 20 20 ing change */.
5160: 7a 20 3d 20 7a 48 65 78 20 3d 20 63 6f 6e 74 65 z = zHex = conte
5170: 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 xtMalloc(context
5180: 2c 20 6e 2a 32 20 2b 20 31 29 3b 0a 20 20 69 66 , n*2 + 1);. if
5190: 28 20 7a 48 65 78 20 29 7b 0a 20 20 20 20 66 6f ( zHex ){. fo
51a0: 72 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 2c r(i=0; i<n; i++,
51b0: 20 70 42 6c 6f 62 2b 2b 29 7b 0a 20 20 20 20 20 pBlob++){.
51c0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 63 unsigned char c
51d0: 20 3d 20 2a 70 42 6c 6f 62 3b 0a 20 20 20 20 20 = *pBlob;.
51e0: 20 2a 28 7a 2b 2b 29 20 3d 20 68 65 78 64 69 67 *(z++) = hexdig
51f0: 69 74 73 5b 28 63 3e 3e 34 29 26 30 78 66 5d 3b its[(c>>4)&0xf];
5200: 0a 20 20 20 20 20 20 2a 28 7a 2b 2b 29 20 3d 20 . *(z++) =
5210: 68 65 78 64 69 67 69 74 73 5b 63 26 30 78 66 5d hexdigits[c&0xf]
5220: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2a 7a 20 3d ;. }. *z =
5230: 20 30 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 0;. sqlite3_
5240: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 result_text(cont
5250: 65 78 74 2c 20 7a 48 65 78 2c 20 6e 2a 32 2c 20 ext, zHex, n*2,
5260: 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 sqlite3_free);.
5270: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 }.}../*.** The
5280: 7a 65 72 6f 62 6c 6f 62 28 4e 29 20 66 75 6e 63 zeroblob(N) func
5290: 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 61 20 7a tion returns a z
52a0: 65 72 6f 2d 66 69 6c 6c 65 64 20 62 6c 6f 62 20 ero-filled blob
52b0: 6f 66 20 73 69 7a 65 20 4e 20 62 79 74 65 73 2e of size N bytes.
52c0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
52d0: 7a 65 72 6f 62 6c 6f 62 46 75 6e 63 28 0a 20 20 zeroblobFunc(.
52e0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
52f0: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 *context,. int
5300: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f argc,. sqlite3_
5310: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
5320: 20 20 69 36 34 20 6e 3b 0a 20 20 61 73 73 65 72 i64 n;. asser
5330: 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 t( argc==1 );.
5340: 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 n = sqlite3_valu
5350: 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 e_int64(argv[0])
5360: 3b 0a 20 20 69 66 28 20 6e 3e 53 51 4c 49 54 45 ;. if( n>SQLITE
5370: 5f 4d 41 58 5f 4c 45 4e 47 54 48 20 29 7b 0a 20 _MAX_LENGTH ){.
5380: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
5390: 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67 28 63 t_error_toobig(c
53a0: 6f 6e 74 65 78 74 29 3b 0a 20 20 7d 65 6c 73 65 ontext);. }else
53b0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 {. sqlite3_re
53c0: 73 75 6c 74 5f 7a 65 72 6f 62 6c 6f 62 28 63 6f sult_zeroblob(co
53d0: 6e 74 65 78 74 2c 20 6e 29 3b 0a 20 20 7d 0a 7d ntext, n);. }.}
53e0: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 72 65 70 6c ../*.** The repl
53f0: 61 63 65 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 ace() function.
5400: 20 54 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 Three arguments
5410: 20 61 72 65 20 61 6c 6c 20 73 74 72 69 6e 67 73 are all strings
5420: 3a 20 63 61 6c 6c 0a 2a 2a 20 74 68 65 6d 20 41 : call.** them A
5430: 2c 20 42 2c 20 61 6e 64 20 43 2e 20 54 68 65 20 , B, and C. The
5440: 72 65 73 75 6c 74 20 69 73 20 61 6c 73 6f 20 61 result is also a
5450: 20 73 74 72 69 6e 67 20 77 68 69 63 68 20 69 73 string which is
5460: 20 64 65 72 69 76 65 64 0a 2a 2a 20 66 72 6f 6d derived.** from
5470: 20 41 20 62 79 20 72 65 70 6c 61 63 69 6e 67 20 A by replacing
5480: 65 76 65 72 79 20 6f 63 63 75 72 61 6e 63 65 20 every occurance
5490: 6f 66 20 42 20 77 69 74 68 20 43 2e 20 20 54 68 of B with C. Th
54a0: 65 20 6d 61 74 63 68 0a 2a 2a 20 6d 75 73 74 20 e match.** must
54b0: 62 65 20 65 78 61 63 74 2e 20 20 43 6f 6c 6c 61 be exact. Colla
54c0: 74 69 6e 67 20 73 65 71 75 65 6e 63 65 73 20 61 ting sequences a
54d0: 72 65 20 6e 6f 74 20 75 73 65 64 2e 0a 2a 2f 0a re not used..*/.
54e0: 73 74 61 74 69 63 20 76 6f 69 64 20 72 65 70 6c static void repl
54f0: 61 63 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 aceFunc(. sqlit
5500: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
5510: 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c ext,. int argc,
5520: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
5530: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e **argv.){. con
5540: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 st unsigned char
5550: 20 2a 7a 53 74 72 3b 20 20 20 20 20 20 20 20 2f *zStr; /
5560: 2a 20 54 68 65 20 69 6e 70 75 74 20 73 74 72 69 * The input stri
5570: 6e 67 20 41 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 ng A */. const
5580: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a unsigned char *z
5590: 50 61 74 74 65 72 6e 3b 20 20 20 20 2f 2a 20 54 Pattern; /* T
55a0: 68 65 20 70 61 74 74 65 72 6e 20 73 74 72 69 6e he pattern strin
55b0: 67 20 42 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 75 g B */. const u
55c0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 52 nsigned char *zR
55d0: 65 70 3b 20 20 20 20 20 20 20 20 2f 2a 20 54 68 ep; /* Th
55e0: 65 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 73 74 e replacement st
55f0: 72 69 6e 67 20 43 20 2a 2f 0a 20 20 75 6e 73 69 ring C */. unsi
5600: 67 6e 65 64 20 63 68 61 72 20 2a 7a 4f 75 74 3b gned char *zOut;
5610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
5620: 20 54 68 65 20 6f 75 74 70 75 74 20 2a 2f 0a 20 The output */.
5630: 20 69 6e 74 20 6e 53 74 72 3b 20 20 20 20 20 20 int nStr;
5640: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a /* Siz
5650: 65 20 6f 66 20 7a 53 74 72 20 2a 2f 0a 20 20 69 e of zStr */. i
5660: 6e 74 20 6e 50 61 74 74 65 72 6e 3b 20 20 20 20 nt nPattern;
5670: 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a 65 20 /* Size
5680: 6f 66 20 7a 50 61 74 74 65 72 6e 20 2a 2f 0a 20 of zPattern */.
5690: 20 69 6e 74 20 6e 52 65 70 3b 20 20 20 20 20 20 int nRep;
56a0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a /* Siz
56b0: 65 20 6f 66 20 7a 52 65 70 20 2a 2f 0a 20 20 69 e of zRep */. i
56c0: 36 34 20 6e 4f 75 74 3b 20 20 20 20 20 20 20 20 64 nOut;
56d0: 20 20 20 20 20 20 20 20 2f 2a 20 4d 61 78 69 6d /* Maxim
56e0: 75 6d 20 73 69 7a 65 20 6f 66 20 7a 4f 75 74 20 um size of zOut
56f0: 2a 2f 0a 20 20 69 6e 74 20 6c 6f 6f 70 4c 69 6d */. int loopLim
5700: 69 74 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a it; /*
5710: 20 4c 61 73 74 20 7a 53 74 72 5b 5d 20 74 68 61 Last zStr[] tha
5720: 74 20 6d 69 67 68 74 20 6d 61 74 63 68 20 7a 50 t might match zP
5730: 61 74 74 65 72 6e 5b 5d 20 2a 2f 0a 20 20 69 6e attern[] */. in
5740: 74 20 69 2c 20 6a 3b 20 20 20 20 20 20 20 20 20 t i, j;
5750: 20 20 20 20 20 20 20 2f 2a 20 4c 6f 6f 70 20 63 /* Loop c
5760: 6f 75 6e 74 65 72 73 20 2a 2f 0a 0a 20 20 61 73 ounters */.. as
5770: 73 65 72 74 28 20 61 72 67 63 3d 3d 33 20 29 3b sert( argc==3 );
5780: 0a 20 20 7a 53 74 72 20 3d 20 73 71 6c 69 74 65 . zStr = sqlite
5790: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
57a0: 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 7a 53 74 v[0]);. if( zSt
57b0: 72 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 r==0 ) return;.
57c0: 20 6e 53 74 72 20 3d 20 73 71 6c 69 74 65 33 5f nStr = sqlite3_
57d0: 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 value_bytes(argv
57e0: 5b 30 5d 29 3b 0a 20 20 61 73 73 65 72 74 28 20 [0]);. assert(
57f0: 7a 53 74 72 3d 3d 73 71 6c 69 74 65 33 5f 76 61 zStr==sqlite3_va
5800: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d lue_text(argv[0]
5810: 29 20 29 3b 20 20 2f 2a 20 4e 6f 20 65 6e 63 6f ) ); /* No enco
5820: 64 69 6e 67 20 63 68 61 6e 67 65 20 2a 2f 0a 20 ding change */.
5830: 20 7a 50 61 74 74 65 72 6e 20 3d 20 73 71 6c 69 zPattern = sqli
5840: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
5850: 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 7a rgv[1]);. if( z
5860: 50 61 74 74 65 72 6e 3d 3d 30 20 7c 7c 20 7a 50 Pattern==0 || zP
5870: 61 74 74 65 72 6e 5b 30 5d 3d 3d 30 20 29 20 72 attern[0]==0 ) r
5880: 65 74 75 72 6e 3b 0a 20 20 6e 50 61 74 74 65 72 eturn;. nPatter
5890: 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 n = sqlite3_valu
58a0: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 31 5d 29 e_bytes(argv[1])
58b0: 3b 0a 20 20 61 73 73 65 72 74 28 20 7a 50 61 74 ;. assert( zPat
58c0: 74 65 72 6e 3d 3d 73 71 6c 69 74 65 33 5f 76 61 tern==sqlite3_va
58d0: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31 5d lue_text(argv[1]
58e0: 29 20 29 3b 20 20 2f 2a 20 4e 6f 20 65 6e 63 6f ) ); /* No enco
58f0: 64 69 6e 67 20 63 68 61 6e 67 65 20 2a 2f 0a 20 ding change */.
5900: 20 7a 52 65 70 20 3d 20 73 71 6c 69 74 65 33 5f zRep = sqlite3_
5910: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
5920: 32 5d 29 3b 0a 20 20 69 66 28 20 7a 52 65 70 3d 2]);. if( zRep=
5930: 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6e =0 ) return;. n
5940: 52 65 70 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 Rep = sqlite3_va
5950: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 32 lue_bytes(argv[2
5960: 5d 29 3b 0a 20 20 61 73 73 65 72 74 28 20 7a 52 ]);. assert( zR
5970: 65 70 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 ep==sqlite3_valu
5980: 65 5f 74 65 78 74 28 61 72 67 76 5b 32 5d 29 20 e_text(argv[2])
5990: 29 3b 0a 20 20 6e 4f 75 74 20 3d 20 6e 53 74 72 );. nOut = nStr
59a0: 20 2b 20 31 3b 0a 20 20 61 73 73 65 72 74 28 20 + 1;. assert(
59b0: 6e 4f 75 74 3c 53 51 4c 49 54 45 5f 4d 41 58 5f nOut<SQLITE_MAX_
59c0: 4c 45 4e 47 54 48 20 29 3b 0a 20 20 7a 4f 75 74 LENGTH );. zOut
59d0: 20 3d 20 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63 = contextMalloc
59e0: 28 63 6f 6e 74 65 78 74 2c 20 28 69 6e 74 29 6e (context, (int)n
59f0: 4f 75 74 29 3b 0a 20 20 69 66 28 20 7a 4f 75 74 Out);. if( zOut
5a00: 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 ==0 ){. retur
5a10: 6e 3b 0a 20 20 7d 0a 20 20 6c 6f 6f 70 4c 69 6d n;. }. loopLim
5a20: 69 74 20 3d 20 6e 53 74 72 20 2d 20 6e 50 61 74 it = nStr - nPat
5a30: 74 65 72 6e 3b 20 20 0a 20 20 66 6f 72 28 69 3d tern; . for(i=
5a40: 6a 3d 30 3b 20 69 3c 3d 6c 6f 6f 70 4c 69 6d 69 j=0; i<=loopLimi
5a50: 74 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 t; i++){. if(
5a60: 20 7a 53 74 72 5b 69 5d 21 3d 7a 50 61 74 74 65 zStr[i]!=zPatte
5a70: 72 6e 5b 30 5d 20 7c 7c 20 6d 65 6d 63 6d 70 28 rn[0] || memcmp(
5a80: 26 7a 53 74 72 5b 69 5d 2c 20 7a 50 61 74 74 65 &zStr[i], zPatte
5a90: 72 6e 2c 20 6e 50 61 74 74 65 72 6e 29 20 29 7b rn, nPattern) ){
5aa0: 0a 20 20 20 20 20 20 7a 4f 75 74 5b 6a 2b 2b 5d . zOut[j++]
5ab0: 20 3d 20 7a 53 74 72 5b 69 5d 3b 0a 20 20 20 20 = zStr[i];.
5ac0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 75 38 20 }else{. u8
5ad0: 2a 7a 4f 6c 64 3b 0a 20 20 20 20 20 20 6e 4f 75 *zOld;. nOu
5ae0: 74 20 2b 3d 20 6e 52 65 70 20 2d 20 6e 50 61 74 t += nRep - nPat
5af0: 74 65 72 6e 3b 0a 20 20 20 20 20 20 69 66 28 20 tern;. if(
5b00: 6e 4f 75 74 3e 3d 53 51 4c 49 54 45 5f 4d 41 58 nOut>=SQLITE_MAX
5b10: 5f 4c 45 4e 47 54 48 20 29 7b 0a 20 20 20 20 20 _LENGTH ){.
5b20: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
5b30: 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67 28 63 t_error_toobig(c
5b40: 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20 20 ontext);.
5b50: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 4f sqlite3_free(zO
5b60: 75 74 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 ut);. ret
5b70: 75 72 6e 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 urn;. }.
5b80: 20 20 20 7a 4f 6c 64 20 3d 20 7a 4f 75 74 3b 0a zOld = zOut;.
5b90: 20 20 20 20 20 20 7a 4f 75 74 20 3d 20 73 71 6c zOut = sql
5ba0: 69 74 65 33 5f 72 65 61 6c 6c 6f 63 28 7a 4f 75 ite3_realloc(zOu
5bb0: 74 2c 20 28 69 6e 74 29 6e 4f 75 74 29 3b 0a 20 t, (int)nOut);.
5bc0: 20 20 20 20 20 69 66 28 20 7a 4f 75 74 3d 3d 30 if( zOut==0
5bd0: 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 ){. sqli
5be0: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 te3_result_error
5bf0: 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 74 29 3b _nomem(context);
5c00: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 . sqlite3
5c10: 5f 66 72 65 65 28 7a 4f 6c 64 29 3b 0a 20 20 20 _free(zOld);.
5c20: 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 return;.
5c30: 20 20 20 7d 0a 20 20 20 20 20 20 6d 65 6d 63 70 }. memcp
5c40: 79 28 26 7a 4f 75 74 5b 6a 5d 2c 20 7a 52 65 70 y(&zOut[j], zRep
5c50: 2c 20 6e 52 65 70 29 3b 0a 20 20 20 20 20 20 6a , nRep);. j
5c60: 20 2b 3d 20 6e 52 65 70 3b 0a 20 20 20 20 20 20 += nRep;.
5c70: 69 20 2b 3d 20 6e 50 61 74 74 65 72 6e 2d 31 3b i += nPattern-1;
5c80: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 61 73 73 . }. }. ass
5c90: 65 72 74 28 20 6a 2b 6e 53 74 72 2d 69 2b 31 3d ert( j+nStr-i+1=
5ca0: 3d 6e 4f 75 74 20 29 3b 0a 20 20 6d 65 6d 63 70 =nOut );. memcp
5cb0: 79 28 26 7a 4f 75 74 5b 6a 5d 2c 20 26 7a 53 74 y(&zOut[j], &zSt
5cc0: 72 5b 69 5d 2c 20 6e 53 74 72 2d 69 29 3b 0a 20 r[i], nStr-i);.
5cd0: 20 6a 20 2b 3d 20 6e 53 74 72 20 2d 20 69 3b 0a j += nStr - i;.
5ce0: 20 20 61 73 73 65 72 74 28 20 6a 3c 3d 6e 4f 75 assert( j<=nOu
5cf0: 74 20 29 3b 0a 20 20 7a 4f 75 74 5b 6a 5d 20 3d t );. zOut[j] =
5d00: 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 0;. sqlite3_re
5d10: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 sult_text(contex
5d20: 74 2c 20 28 63 68 61 72 2a 29 7a 4f 75 74 2c 20 t, (char*)zOut,
5d30: 6a 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 j, sqlite3_free)
5d40: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 ;.}../*.** Imple
5d50: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 mentation of the
5d60: 20 54 52 49 4d 28 29 2c 20 4c 54 52 49 4d 28 29 TRIM(), LTRIM()
5d70: 2c 20 61 6e 64 20 52 54 52 49 4d 28 29 20 66 75 , and RTRIM() fu
5d80: 6e 63 74 69 6f 6e 73 2e 0a 2a 2a 20 54 68 65 20 nctions..** The
5d90: 75 73 65 72 64 61 74 61 20 69 73 20 30 78 31 20 userdata is 0x1
5da0: 66 6f 72 20 6c 65 66 74 20 74 72 69 6d 2c 20 30 for left trim, 0
5db0: 78 32 20 66 6f 72 20 72 69 67 68 74 20 74 72 69 x2 for right tri
5dc0: 6d 2c 20 30 78 33 20 66 6f 72 20 62 6f 74 68 2e m, 0x3 for both.
5dd0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
5de0: 74 72 69 6d 46 75 6e 63 28 0a 20 20 73 71 6c 69 trimFunc(. sqli
5df0: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
5e00: 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 text,. int argc
5e10: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ,. sqlite3_valu
5e20: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f e **argv.){. co
5e30: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
5e40: 72 20 2a 7a 49 6e 3b 20 20 20 20 20 20 20 20 20 r *zIn;
5e50: 2f 2a 20 49 6e 70 75 74 20 73 74 72 69 6e 67 20 /* Input string
5e60: 2a 2f 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 */. const unsig
5e70: 6e 65 64 20 63 68 61 72 20 2a 7a 43 68 61 72 53 ned char *zCharS
5e80: 65 74 3b 20 20 20 20 2f 2a 20 53 65 74 20 6f 66 et; /* Set of
5e90: 20 63 68 61 72 61 63 74 65 72 73 20 74 6f 20 74 characters to t
5ea0: 72 69 6d 20 2a 2f 0a 20 20 69 6e 74 20 6e 49 6e rim */. int nIn
5eb0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
5ec0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
5ed0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 69 6e mber of bytes in
5ee0: 20 69 6e 70 75 74 20 2a 2f 0a 20 20 69 6e 74 20 input */. int
5ef0: 66 6c 61 67 73 3b 20 20 20 20 20 20 20 20 20 20 flags;
5f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
5f10: 20 31 3a 20 74 72 69 6d 6c 65 66 74 20 20 32 3a 1: trimleft 2:
5f20: 20 74 72 69 6d 72 69 67 68 74 20 20 33 3a 20 74 trimright 3: t
5f30: 72 69 6d 20 2a 2f 0a 20 20 69 6e 74 20 69 3b 20 rim */. int i;
5f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5f50: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 6f /* Lo
5f60: 6f 70 20 63 6f 75 6e 74 65 72 20 2a 2f 0a 20 20 op counter */.
5f70: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 61 unsigned char *a
5f80: 4c 65 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 Len;
5f90: 20 20 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 65 /* Length of e
5fa0: 61 63 68 20 63 68 61 72 61 63 74 65 72 20 69 6e ach character in
5fb0: 20 7a 43 68 61 72 53 65 74 20 2a 2f 0a 20 20 75 zCharSet */. u
5fc0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 2a 61 nsigned char **a
5fd0: 7a 43 68 61 72 3b 20 20 20 20 20 20 20 20 20 20 zChar;
5fe0: 20 2f 2a 20 49 6e 64 69 76 69 64 75 61 6c 20 63 /* Individual c
5ff0: 68 61 72 61 63 74 65 72 73 20 69 6e 20 7a 43 68 haracters in zCh
6000: 61 72 53 65 74 20 2a 2f 0a 20 20 69 6e 74 20 6e arSet */. int n
6010: 43 68 61 72 3b 20 20 20 20 20 20 20 20 20 20 20 Char;
6020: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
6030: 4e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 Number of charac
6040: 74 65 72 73 20 69 6e 20 7a 43 68 61 72 53 65 74 ters in zCharSet
6050: 20 2a 2f 0a 0a 20 20 69 66 28 20 73 71 6c 69 74 */.. if( sqlit
6060: 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 e3_value_type(ar
6070: 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e gv[0])==SQLITE_N
6080: 55 4c 4c 20 29 7b 0a 20 20 20 20 72 65 74 75 72 ULL ){. retur
6090: 6e 3b 0a 20 20 7d 0a 20 20 7a 49 6e 20 3d 20 73 n;. }. zIn = s
60a0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
60b0: 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 t(argv[0]);. if
60c0: 28 20 7a 49 6e 3d 3d 30 20 29 20 72 65 74 75 72 ( zIn==0 ) retur
60d0: 6e 3b 0a 20 20 6e 49 6e 20 3d 20 73 71 6c 69 74 n;. nIn = sqlit
60e0: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 e3_value_bytes(a
60f0: 72 67 76 5b 30 5d 29 3b 0a 20 20 61 73 73 65 72 rgv[0]);. asser
6100: 74 28 20 7a 49 6e 3d 3d 73 71 6c 69 74 65 33 5f t( zIn==sqlite3_
6110: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
6120: 30 5d 29 20 29 3b 0a 20 20 69 66 28 20 61 72 67 0]) );. if( arg
6130: 63 3d 3d 31 20 29 7b 0a 20 20 20 20 73 74 61 74 c==1 ){. stat
6140: 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 ic const unsigne
6150: 64 20 63 68 61 72 20 6c 65 6e 4f 6e 65 5b 5d 20 d char lenOne[]
6160: 3d 20 7b 20 31 20 7d 3b 0a 20 20 20 20 73 74 61 = { 1 };. sta
6170: 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e tic const unsign
6180: 65 64 20 63 68 61 72 20 2a 61 7a 4f 6e 65 5b 5d ed char *azOne[]
6190: 20 3d 20 7b 20 28 75 38 2a 29 22 20 22 20 7d 3b = { (u8*)" " };
61a0: 0a 20 20 20 20 6e 43 68 61 72 20 3d 20 31 3b 0a . nChar = 1;.
61b0: 20 20 20 20 61 4c 65 6e 20 3d 20 28 75 38 2a 29 aLen = (u8*)
61c0: 6c 65 6e 4f 6e 65 3b 0a 20 20 20 20 61 7a 43 68 lenOne;. azCh
61d0: 61 72 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 ar = (unsigned c
61e0: 68 61 72 20 2a 2a 29 61 7a 4f 6e 65 3b 0a 20 20 har **)azOne;.
61f0: 20 20 7a 43 68 61 72 53 65 74 20 3d 20 30 3b 0a zCharSet = 0;.
6200: 20 20 7d 65 6c 73 65 20 69 66 28 20 28 7a 43 68 }else if( (zCh
6210: 61 72 53 65 74 20 3d 20 73 71 6c 69 74 65 33 5f arSet = sqlite3_
6220: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
6230: 31 5d 29 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 1]))==0 ){. r
6240: 65 74 75 72 6e 3b 0a 20 20 7d 65 6c 73 65 7b 0a eturn;. }else{.
6250: 20 20 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e const unsign
6260: 65 64 20 63 68 61 72 20 2a 7a 3b 0a 20 20 20 20 ed char *z;.
6270: 66 6f 72 28 7a 3d 7a 43 68 61 72 53 65 74 2c 20 for(z=zCharSet,
6280: 6e 43 68 61 72 3d 30 3b 20 2a 7a 3b 20 6e 43 68 nChar=0; *z; nCh
6290: 61 72 2b 2b 29 7b 0a 20 20 20 20 20 20 53 51 4c ar++){. SQL
62a0: 49 54 45 5f 53 4b 49 50 5f 55 54 46 38 28 7a 29 ITE_SKIP_UTF8(z)
62b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 ;. }. if(
62c0: 6e 43 68 61 72 3e 30 20 29 7b 0a 20 20 20 20 20 nChar>0 ){.
62d0: 20 61 7a 43 68 61 72 20 3d 20 63 6f 6e 74 65 78 azChar = contex
62e0: 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c tMalloc(context,
62f0: 20 6e 43 68 61 72 2a 28 73 69 7a 65 6f 66 28 63 nChar*(sizeof(c
6300: 68 61 72 2a 29 2b 31 29 29 3b 0a 20 20 20 20 20 har*)+1));.
6310: 20 69 66 28 20 61 7a 43 68 61 72 3d 3d 30 20 29 if( azChar==0 )
6320: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e {. return
6330: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 ;. }.
6340: 61 4c 65 6e 20 3d 20 28 75 6e 73 69 67 6e 65 64 aLen = (unsigned
6350: 20 63 68 61 72 2a 29 26 61 7a 43 68 61 72 5b 6e char*)&azChar[n
6360: 43 68 61 72 5d 3b 0a 20 20 20 20 20 20 66 6f 72 Char];. for
6370: 28 7a 3d 7a 43 68 61 72 53 65 74 2c 20 6e 43 68 (z=zCharSet, nCh
6380: 61 72 3d 30 3b 20 2a 7a 3b 20 6e 43 68 61 72 2b ar=0; *z; nChar+
6390: 2b 29 7b 0a 20 20 20 20 20 20 20 20 61 7a 43 68 +){. azCh
63a0: 61 72 5b 6e 43 68 61 72 5d 20 3d 20 28 75 6e 73 ar[nChar] = (uns
63b0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 7a 3b 0a igned char *)z;.
63c0: 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 53 SQLITE_S
63d0: 4b 49 50 5f 55 54 46 38 28 7a 29 3b 0a 20 20 20 KIP_UTF8(z);.
63e0: 20 20 20 20 20 61 4c 65 6e 5b 6e 43 68 61 72 5d aLen[nChar]
63f0: 20 3d 20 7a 20 2d 20 61 7a 43 68 61 72 5b 6e 43 = z - azChar[nC
6400: 68 61 72 5d 3b 0a 20 20 20 20 20 20 7d 0a 20 20 har];. }.
6410: 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 6e 43 }. }. if( nC
6420: 68 61 72 3e 30 20 29 7b 0a 20 20 20 20 66 6c 61 har>0 ){. fla
6430: 67 73 20 3d 20 28 69 6e 74 29 73 71 6c 69 74 65 gs = (int)sqlite
6440: 33 5f 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 3_user_data(cont
6450: 65 78 74 29 3b 0a 20 20 20 20 69 66 28 20 66 6c ext);. if( fl
6460: 61 67 73 20 26 20 31 20 29 7b 0a 20 20 20 20 20 ags & 1 ){.
6470: 20 77 68 69 6c 65 28 20 6e 49 6e 3e 30 20 29 7b while( nIn>0 ){
6480: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6c 65 6e . int len
6490: 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d ;. for(i=
64a0: 30 3b 20 69 3c 6e 43 68 61 72 3b 20 69 2b 2b 29 0; i<nChar; i++)
64b0: 7b 0a 20 20 20 20 20 20 20 20 20 20 6c 65 6e 20 {. len
64c0: 3d 20 61 4c 65 6e 5b 69 5d 3b 0a 20 20 20 20 20 = aLen[i];.
64d0: 20 20 20 20 20 69 66 28 20 6d 65 6d 63 6d 70 28 if( memcmp(
64e0: 7a 49 6e 2c 20 61 7a 43 68 61 72 5b 69 5d 2c 20 zIn, azChar[i],
64f0: 6c 65 6e 29 3d 3d 30 20 29 20 62 72 65 61 6b 3b len)==0 ) break;
6500: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
6510: 20 20 20 69 66 28 20 69 3e 3d 6e 43 68 61 72 20 if( i>=nChar
6520: 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 ) break;.
6530: 20 7a 49 6e 20 2b 3d 20 6c 65 6e 3b 0a 20 20 20 zIn += len;.
6540: 20 20 20 20 20 6e 49 6e 20 2d 3d 20 6c 65 6e 3b nIn -= len;
6550: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 . }. }.
6560: 20 20 20 69 66 28 20 66 6c 61 67 73 20 26 20 32 if( flags & 2
6570: 20 29 7b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 ){. while(
6580: 20 6e 49 6e 3e 30 20 29 7b 0a 20 20 20 20 20 20 nIn>0 ){.
6590: 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 20 20 20 int len;.
65a0: 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 43 for(i=0; i<nC
65b0: 68 61 72 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 har; i++){.
65c0: 20 20 20 20 20 6c 65 6e 20 3d 20 61 4c 65 6e 5b len = aLen[
65d0: 69 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 i];. if
65e0: 28 20 6c 65 6e 3c 3d 6e 49 6e 20 26 26 20 6d 65 ( len<=nIn && me
65f0: 6d 63 6d 70 28 26 7a 49 6e 5b 6e 49 6e 2d 6c 65 mcmp(&zIn[nIn-le
6600: 6e 5d 2c 61 7a 43 68 61 72 5b 69 5d 2c 6c 65 6e n],azChar[i],len
6610: 29 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 )==0 ) break;.
6620: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
6630: 69 66 28 20 69 3e 3d 6e 43 68 61 72 20 29 20 62 if( i>=nChar ) b
6640: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 6e 49 reak;. nI
6650: 6e 20 2d 3d 20 6c 65 6e 3b 0a 20 20 20 20 20 20 n -= len;.
6660: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 }. }. if(
6670: 7a 43 68 61 72 53 65 74 20 29 7b 0a 20 20 20 20 zCharSet ){.
6680: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 61 sqlite3_free(a
6690: 7a 43 68 61 72 29 3b 0a 20 20 20 20 7d 0a 20 20 zChar);. }.
66a0: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 }. sqlite3_resu
66b0: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
66c0: 20 28 63 68 61 72 2a 29 7a 49 6e 2c 20 6e 49 6e (char*)zIn, nIn
66d0: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
66e0: 4e 54 29 3b 0a 7d 0a 0a 23 69 66 64 65 66 20 53 NT);.}..#ifdef S
66f0: 51 4c 49 54 45 5f 53 4f 55 4e 44 45 58 0a 2f 2a QLITE_SOUNDEX./*
6700: 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 20 .** Compute the
6710: 73 6f 75 6e 64 65 78 20 65 6e 63 6f 64 69 6e 67 soundex encoding
6720: 20 6f 66 20 61 20 77 6f 72 64 2e 0a 2a 2f 0a 73 of a word..*/.s
6730: 74 61 74 69 63 20 76 6f 69 64 20 73 6f 75 6e 64 tatic void sound
6740: 65 78 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 exFunc(. sqlite
6750: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
6760: 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a xt,. int argc,.
6770: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
6780: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 68 61 72 **argv.){. char
6790: 20 7a 52 65 73 75 6c 74 5b 38 5d 3b 0a 20 20 63 zResult[8];. c
67a0: 6f 6e 73 74 20 75 38 20 2a 7a 49 6e 3b 0a 20 20 onst u8 *zIn;.
67b0: 69 6e 74 20 69 2c 20 6a 3b 0a 20 20 73 74 61 74 int i, j;. stat
67c0: 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 ic const unsigne
67d0: 64 20 63 68 61 72 20 69 43 6f 64 65 5b 5d 20 3d d char iCode[] =
67e0: 20 7b 0a 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 {. 0, 0, 0,
67f0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
6800: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
6810: 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c 0, 0,. 0, 0,
6820: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
6830: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
6840: 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 , 0, 0, 0,. 0
6850: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
6860: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
6870: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 0, 0, 0, 0, 0,.
6880: 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0
6890: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
68a0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
68b0: 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 31 2c 20 0,. 0, 0, 1,
68c0: 32 2c 20 33 2c 20 30 2c 20 31 2c 20 32 2c 20 30 2, 3, 0, 1, 2, 0
68d0: 2c 20 30 2c 20 32 2c 20 32 2c 20 34 2c 20 35 2c , 0, 2, 2, 4, 5,
68e0: 20 35 2c 20 30 2c 0a 20 20 20 20 31 2c 20 32 2c 5, 0,. 1, 2,
68f0: 20 36 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2c 20 6, 2, 3, 0, 1,
6900: 30 2c 20 32 2c 20 30 2c 20 32 2c 20 30 2c 20 30 0, 2, 0, 2, 0, 0
6910: 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 , 0, 0, 0,. 0
6920: 2c 20 30 2c 20 31 2c 20 32 2c 20 33 2c 20 30 2c , 0, 1, 2, 3, 0,
6930: 20 31 2c 20 32 2c 20 30 2c 20 30 2c 20 32 2c 20 1, 2, 0, 0, 2,
6940: 32 2c 20 34 2c 20 35 2c 20 35 2c 20 30 2c 0a 20 2, 4, 5, 5, 0,.
6950: 20 20 20 31 2c 20 32 2c 20 36 2c 20 32 2c 20 33 1, 2, 6, 2, 3
6960: 2c 20 30 2c 20 31 2c 20 30 2c 20 32 2c 20 30 2c , 0, 1, 0, 2, 0,
6970: 20 32 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 2, 0, 0, 0, 0,
6980: 30 2c 0a 20 20 7d 3b 0a 20 20 61 73 73 65 72 74 0,. };. assert
6990: 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 7a ( argc==1 );. z
69a0: 49 6e 20 3d 20 28 75 38 2a 29 73 71 6c 69 74 65 In = (u8*)sqlite
69b0: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
69c0: 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 7a 49 6e v[0]);. if( zIn
69d0: 3d 3d 30 20 29 20 7a 49 6e 20 3d 20 28 75 38 2a ==0 ) zIn = (u8*
69e0: 29 22 22 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 )"";. for(i=0;
69f0: 7a 49 6e 5b 69 5d 20 26 26 20 21 69 73 61 6c 70 zIn[i] && !isalp
6a00: 68 61 28 7a 49 6e 5b 69 5d 29 3b 20 69 2b 2b 29 ha(zIn[i]); i++)
6a10: 7b 7d 0a 20 20 69 66 28 20 7a 49 6e 5b 69 5d 20 {}. if( zIn[i]
6a20: 29 7b 0a 20 20 20 20 75 38 20 70 72 65 76 63 6f ){. u8 prevco
6a30: 64 65 20 3d 20 69 43 6f 64 65 5b 7a 49 6e 5b 69 de = iCode[zIn[i
6a40: 5d 26 30 78 37 66 5d 3b 0a 20 20 20 20 7a 52 65 ]&0x7f];. zRe
6a50: 73 75 6c 74 5b 30 5d 20 3d 20 74 6f 75 70 70 65 sult[0] = touppe
6a60: 72 28 7a 49 6e 5b 69 5d 29 3b 0a 20 20 20 20 66 r(zIn[i]);. f
6a70: 6f 72 28 6a 3d 31 3b 20 6a 3c 34 20 26 26 20 7a or(j=1; j<4 && z
6a80: 49 6e 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 In[i]; i++){.
6a90: 20 20 20 69 6e 74 20 63 6f 64 65 20 3d 20 69 43 int code = iC
6aa0: 6f 64 65 5b 7a 49 6e 5b 69 5d 26 30 78 37 66 5d ode[zIn[i]&0x7f]
6ab0: 3b 0a 20 20 20 20 20 20 69 66 28 20 63 6f 64 65 ;. if( code
6ac0: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 >0 ){. if
6ad0: 28 20 63 6f 64 65 21 3d 70 72 65 76 63 6f 64 65 ( code!=prevcode
6ae0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 70 72 ){. pr
6af0: 65 76 63 6f 64 65 20 3d 20 63 6f 64 65 3b 0a 20 evcode = code;.
6b00: 20 20 20 20 20 20 20 20 20 7a 52 65 73 75 6c 74 zResult
6b10: 5b 6a 2b 2b 5d 20 3d 20 63 6f 64 65 20 2b 20 27 [j++] = code + '
6b20: 30 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 0';. }.
6b30: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
6b40: 20 20 20 70 72 65 76 63 6f 64 65 20 3d 20 30 3b prevcode = 0;
6b50: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 . }. }.
6b60: 20 20 20 77 68 69 6c 65 28 20 6a 3c 34 20 29 7b while( j<4 ){
6b70: 0a 20 20 20 20 20 20 7a 52 65 73 75 6c 74 5b 6a . zResult[j
6b80: 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 7d ++] = '0';. }
6b90: 0a 20 20 20 20 7a 52 65 73 75 6c 74 5b 6a 5d 20 . zResult[j]
6ba0: 3d 20 30 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 = 0;. sqlite3
6bb0: 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e _result_text(con
6bc0: 74 65 78 74 2c 20 7a 52 65 73 75 6c 74 2c 20 34 text, zResult, 4
6bd0: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
6be0: 4e 54 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 NT);. }else{.
6bf0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
6c00: 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 22 _text(context, "
6c10: 3f 30 30 30 22 2c 20 34 2c 20 53 51 4c 49 54 45 ?000", 4, SQLITE
6c20: 5f 53 54 41 54 49 43 29 3b 0a 20 20 7d 0a 7d 0a _STATIC);. }.}.
6c30: 23 65 6e 64 69 66 0a 0a 23 69 66 6e 64 65 66 20 #endif..#ifndef
6c40: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 SQLITE_OMIT_LOAD
6c50: 5f 45 58 54 45 4e 53 49 4f 4e 0a 2f 2a 0a 2a 2a _EXTENSION./*.**
6c60: 20 41 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 A function that
6c70: 20 6c 6f 61 64 73 20 61 20 73 68 61 72 65 64 2d loads a shared-
6c80: 6c 69 62 72 61 72 79 20 65 78 74 65 6e 73 69 6f library extensio
6c90: 6e 20 74 68 65 6e 20 72 65 74 75 72 6e 73 20 4e n then returns N
6ca0: 55 4c 4c 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ULL..*/.static v
6cb0: 6f 69 64 20 6c 6f 61 64 45 78 74 28 73 71 6c 69 oid loadExt(sqli
6cc0: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
6cd0: 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 text, int argc,
6ce0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
6cf0: 61 72 67 76 29 7b 0a 20 20 63 6f 6e 73 74 20 63 argv){. const c
6d00: 68 61 72 20 2a 7a 46 69 6c 65 20 3d 20 28 63 6f har *zFile = (co
6d10: 6e 73 74 20 63 68 61 72 20 2a 29 73 71 6c 69 74 nst char *)sqlit
6d20: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
6d30: 67 76 5b 30 5d 29 3b 0a 20 20 63 6f 6e 73 74 20 gv[0]);. const
6d40: 63 68 61 72 20 2a 7a 50 72 6f 63 3b 0a 20 20 73 char *zProc;. s
6d50: 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71 6c qlite3 *db = sql
6d60: 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 63 ite3_user_data(c
6d70: 6f 6e 74 65 78 74 29 3b 0a 20 20 63 68 61 72 20 ontext);. char
6d80: 2a 7a 45 72 72 4d 73 67 20 3d 20 30 3b 0a 0a 20 *zErrMsg = 0;..
6d90: 20 69 66 28 20 61 72 67 63 3d 3d 32 20 29 7b 0a if( argc==2 ){.
6da0: 20 20 20 20 7a 50 72 6f 63 20 3d 20 28 63 6f 6e zProc = (con
6db0: 73 74 20 63 68 61 72 20 2a 29 73 71 6c 69 74 65 st char *)sqlite
6dc0: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
6dd0: 76 5b 31 5d 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a v[1]);. }else{.
6de0: 20 20 20 20 7a 50 72 6f 63 20 3d 20 30 3b 0a 20 zProc = 0;.
6df0: 20 7d 0a 20 20 69 66 28 20 7a 46 69 6c 65 20 26 }. if( zFile &
6e00: 26 20 73 71 6c 69 74 65 33 5f 6c 6f 61 64 5f 65 & sqlite3_load_e
6e10: 78 74 65 6e 73 69 6f 6e 28 64 62 2c 20 7a 46 69 xtension(db, zFi
6e20: 6c 65 2c 20 7a 50 72 6f 63 2c 20 26 7a 45 72 72 le, zProc, &zErr
6e30: 4d 73 67 29 20 29 7b 0a 20 20 20 20 73 71 6c 69 Msg) ){. sqli
6e40: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 te3_result_error
6e50: 28 63 6f 6e 74 65 78 74 2c 20 7a 45 72 72 4d 73 (context, zErrMs
6e60: 67 2c 20 2d 31 29 3b 0a 20 20 20 20 73 71 6c 69 g, -1);. sqli
6e70: 74 65 33 5f 66 72 65 65 28 7a 45 72 72 4d 73 67 te3_free(zErrMsg
6e80: 29 3b 0a 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a );. }.}.#endif.
6e90: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 .#ifdef SQLITE_T
6ea0: 45 53 54 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 EST./*.** This f
6eb0: 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 61 74 65 unction generate
6ec0: 73 20 61 20 73 74 72 69 6e 67 20 6f 66 20 72 61 s a string of ra
6ed0: 6e 64 6f 6d 20 63 68 61 72 61 63 74 65 72 73 2e ndom characters.
6ee0: 20 20 55 73 65 64 20 66 6f 72 0a 2a 2a 20 67 65 Used for.** ge
6ef0: 6e 65 72 61 74 69 6e 67 20 74 65 73 74 20 64 61 nerating test da
6f00: 74 61 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ta..*/.static vo
6f10: 69 64 20 72 61 6e 64 53 74 72 28 73 71 6c 69 74 id randStr(sqlit
6f20: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
6f30: 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 ext, int argc, s
6f40: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
6f50: 72 67 76 29 7b 0a 20 20 73 74 61 74 69 63 20 63 rgv){. static c
6f60: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
6f70: 61 72 20 7a 53 72 63 5b 5d 20 3d 20 0a 20 20 20 ar zSrc[] = .
6f80: 20 20 22 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d "abcdefghijklm
6f90: 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 22 0a 20 nopqrstuvwxyz".
6fa0: 20 20 20 20 22 41 42 43 44 45 46 47 48 49 4a 4b "ABCDEFGHIJK
6fb0: 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 22 LMNOPQRSTUVWXYZ"
6fc0: 0a 20 20 20 20 20 22 30 31 32 33 34 35 36 37 38 . "012345678
6fd0: 39 22 0a 20 20 20 20 20 22 2e 2d 21 2c 3a 2a 5e 9". ".-!,:*^
6fe0: 2b 3d 5f 7c 3f 2f 3c 3e 20 22 3b 0a 20 20 69 6e +=_|?/<> ";. in
6ff0: 74 20 69 4d 69 6e 2c 20 69 4d 61 78 2c 20 6e 2c t iMin, iMax, n,
7000: 20 72 2c 20 69 3b 0a 20 20 75 6e 73 69 67 6e 65 r, i;. unsigne
7010: 64 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30 30 d char zBuf[1000
7020: 5d 3b 0a 0a 20 20 2f 2a 20 49 74 20 75 73 65 64 ];.. /* It used
7030: 20 74 6f 20 62 65 20 70 6f 73 73 69 62 6c 65 20 to be possible
7040: 74 6f 20 63 61 6c 6c 20 72 61 6e 64 73 74 72 28 to call randstr(
7050: 29 20 77 69 74 68 20 61 6e 79 20 6e 75 6d 62 65 ) with any numbe
7060: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2c 0a r of arguments,.
7070: 20 20 2a 2a 20 62 75 74 20 6e 6f 77 20 69 74 20 ** but now it
7080: 69 73 20 72 65 67 69 73 74 65 72 65 64 20 77 69 is registered wi
7090: 74 68 20 53 51 4c 69 74 65 20 61 73 20 72 65 71 th SQLite as req
70a0: 75 69 72 69 6e 67 20 65 78 61 63 74 6c 79 20 32 uiring exactly 2
70b0: 2e 0a 20 20 2a 2f 0a 20 20 61 73 73 65 72 74 28 .. */. assert(
70c0: 61 72 67 63 3d 3d 32 29 3b 0a 0a 20 20 69 4d 69 argc==2);.. iMi
70d0: 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 n = sqlite3_valu
70e0: 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 3b 0a e_int(argv[0]);.
70f0: 20 20 69 66 28 20 69 4d 69 6e 3c 30 20 29 20 69 if( iMin<0 ) i
7100: 4d 69 6e 20 3d 20 30 3b 0a 20 20 69 66 28 20 69 Min = 0;. if( i
7110: 4d 69 6e 3e 3d 73 69 7a 65 6f 66 28 7a 42 75 66 Min>=sizeof(zBuf
7120: 29 20 29 20 69 4d 69 6e 20 3d 20 73 69 7a 65 6f ) ) iMin = sizeo
7130: 66 28 7a 42 75 66 29 2d 31 3b 0a 20 20 69 4d 61 f(zBuf)-1;. iMa
7140: 78 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 x = sqlite3_valu
7150: 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 3b 0a e_int(argv[1]);.
7160: 20 20 69 66 28 20 69 4d 61 78 3c 69 4d 69 6e 20 if( iMax<iMin
7170: 29 20 69 4d 61 78 20 3d 20 69 4d 69 6e 3b 0a 20 ) iMax = iMin;.
7180: 20 69 66 28 20 69 4d 61 78 3e 3d 73 69 7a 65 6f if( iMax>=sizeo
7190: 66 28 7a 42 75 66 29 20 29 20 69 4d 61 78 20 3d f(zBuf) ) iMax =
71a0: 20 73 69 7a 65 6f 66 28 7a 42 75 66 29 2d 31 3b sizeof(zBuf)-1;
71b0: 0a 20 20 6e 20 3d 20 69 4d 69 6e 3b 0a 20 20 69 . n = iMin;. i
71c0: 66 28 20 69 4d 61 78 3e 69 4d 69 6e 20 29 7b 0a f( iMax>iMin ){.
71d0: 20 20 20 20 73 71 6c 69 74 65 33 52 61 6e 64 6f sqlite3Rando
71e0: 6d 6e 65 73 73 28 73 69 7a 65 6f 66 28 72 29 2c mness(sizeof(r),
71f0: 20 26 72 29 3b 0a 20 20 20 20 72 20 26 3d 20 30 &r);. r &= 0
7200: 78 37 66 66 66 66 66 66 66 3b 0a 20 20 20 20 6e x7fffffff;. n
7210: 20 2b 3d 20 72 25 28 69 4d 61 78 20 2b 20 31 20 += r%(iMax + 1
7220: 2d 20 69 4d 69 6e 29 3b 0a 20 20 7d 0a 20 20 61 - iMin);. }. a
7230: 73 73 65 72 74 28 20 6e 3c 73 69 7a 65 6f 66 28 ssert( n<sizeof(
7240: 7a 42 75 66 29 20 29 3b 0a 20 20 73 71 6c 69 74 zBuf) );. sqlit
7250: 65 33 52 61 6e 64 6f 6d 6e 65 73 73 28 6e 2c 20 e3Randomness(n,
7260: 7a 42 75 66 29 3b 0a 20 20 66 6f 72 28 69 3d 30 zBuf);. for(i=0
7270: 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 ; i<n; i++){.
7280: 20 7a 42 75 66 5b 69 5d 20 3d 20 7a 53 72 63 5b zBuf[i] = zSrc[
7290: 7a 42 75 66 5b 69 5d 25 28 73 69 7a 65 6f 66 28 zBuf[i]%(sizeof(
72a0: 7a 53 72 63 29 2d 31 29 5d 3b 0a 20 20 7d 0a 20 zSrc)-1)];. }.
72b0: 20 7a 42 75 66 5b 6e 5d 20 3d 20 30 3b 0a 20 20 zBuf[n] = 0;.
72c0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 sqlite3_result_t
72d0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 ext(context, (ch
72e0: 61 72 2a 29 7a 42 75 66 2c 20 6e 2c 20 53 51 4c ar*)zBuf, n, SQL
72f0: 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a ITE_TRANSIENT);.
7300: 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 }.#endif /* SQLI
7310: 54 45 5f 54 45 53 54 20 2a 2f 0a 0a 23 69 66 64 TE_TEST */..#ifd
7320: 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 2f ef SQLITE_TEST./
7330: 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 *.** The followi
7340: 6e 67 20 74 77 6f 20 53 51 4c 20 66 75 6e 63 74 ng two SQL funct
7350: 69 6f 6e 73 20 61 72 65 20 75 73 65 64 20 74 6f ions are used to
7360: 20 74 65 73 74 20 72 65 74 75 72 6e 69 6e 67 20 test returning
7370: 61 20 74 65 78 74 0a 2a 2a 20 72 65 73 75 6c 74 a text.** result
7380: 20 77 69 74 68 20 61 20 64 65 73 74 72 75 63 74 with a destruct
7390: 6f 72 2e 20 46 75 6e 63 74 69 6f 6e 20 27 74 65 or. Function 'te
73a0: 73 74 5f 64 65 73 74 72 75 63 74 6f 72 27 20 74 st_destructor' t
73b0: 61 6b 65 73 20 6f 6e 65 20 61 72 67 75 6d 65 6e akes one argumen
73c0: 74 0a 2a 2a 20 61 6e 64 20 72 65 74 75 72 6e 73 t.** and returns
73d0: 20 74 68 65 20 73 61 6d 65 20 61 72 67 75 6d 65 the same argume
73e0: 6e 74 20 69 6e 74 65 72 70 72 65 74 65 64 20 61 nt interpreted a
73f0: 73 20 54 45 58 54 2e 20 41 20 64 65 73 74 72 75 s TEXT. A destru
7400: 63 74 6f 72 20 69 73 0a 2a 2a 20 70 61 73 73 65 ctor is.** passe
7410: 64 20 77 69 74 68 20 74 68 65 20 73 71 6c 69 74 d with the sqlit
7420: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 29 e3_result_text()
7430: 20 63 61 6c 6c 2e 0a 2a 2a 0a 2a 2a 20 53 51 4c call..**.** SQL
7440: 20 66 75 6e 63 74 69 6f 6e 20 27 74 65 73 74 5f function 'test_
7450: 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 destructor_count
7460: 27 20 72 65 74 75 72 6e 73 20 74 68 65 20 6e 75 ' returns the nu
7470: 6d 62 65 72 20 6f 66 20 6f 75 74 73 74 61 6e 64 mber of outstand
7480: 69 6e 67 20 0a 2a 2a 20 61 6c 6c 6f 63 61 74 69 ing .** allocati
7490: 6f 6e 73 20 6d 61 64 65 20 62 79 20 27 74 65 73 ons made by 'tes
74a0: 74 5f 64 65 73 74 72 75 63 74 6f 72 27 3b 0a 2a t_destructor';.*
74b0: 2a 0a 2a 2a 20 57 41 52 4e 49 4e 47 3a 20 4e 6f *.** WARNING: No
74c0: 74 20 74 68 72 65 61 64 73 61 66 65 2e 0a 2a 2f t threadsafe..*/
74d0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
74e0: 5f 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e _destructor_coun
74f0: 74 5f 76 61 72 20 3d 20 30 3b 0a 73 74 61 74 69 t_var = 0;.stati
7500: 63 20 76 6f 69 64 20 64 65 73 74 72 75 63 74 6f c void destructo
7510: 72 28 76 6f 69 64 20 2a 70 29 7b 0a 20 20 63 68 r(void *p){. ch
7520: 61 72 20 2a 7a 56 61 6c 20 3d 20 28 63 68 61 72 ar *zVal = (char
7530: 20 2a 29 70 3b 0a 20 20 61 73 73 65 72 74 28 7a *)p;. assert(z
7540: 56 61 6c 29 3b 0a 20 20 7a 56 61 6c 2d 2d 3b 0a Val);. zVal--;.
7550: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a sqlite3_free(z
7560: 56 61 6c 29 3b 0a 20 20 74 65 73 74 5f 64 65 73 Val);. test_des
7570: 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 5f 76 61 tructor_count_va
7580: 72 2d 2d 3b 0a 7d 0a 73 74 61 74 69 63 20 76 6f r--;.}.static vo
7590: 69 64 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 id test_destruct
75a0: 6f 72 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f or(. sqlite3_co
75b0: 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 ntext *pCtx, .
75c0: 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 int nArg,. sqli
75d0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
75e0: 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 56 61 6c .){. char *zVal
75f0: 3b 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 73 ;. int len;. s
7600: 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71 6c qlite3 *db = sql
7610: 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 70 ite3_user_data(p
7620: 43 74 78 29 3b 0a 20 0a 20 20 74 65 73 74 5f 64 Ctx);. . test_d
7630: 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 5f estructor_count_
7640: 76 61 72 2b 2b 3b 0a 20 20 61 73 73 65 72 74 28 var++;. assert(
7650: 20 6e 41 72 67 3d 3d 31 20 29 3b 0a 20 20 69 66 nArg==1 );. if
7660: 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f ( sqlite3_value_
7670: 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 type(argv[0])==S
7680: 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 QLITE_NULL ) ret
7690: 75 72 6e 3b 0a 20 20 6c 65 6e 20 3d 20 73 71 6c urn;. len = sql
76a0: 69 74 65 33 56 61 6c 75 65 42 79 74 65 73 28 61 ite3ValueBytes(a
76b0: 72 67 76 5b 30 5d 2c 20 45 4e 43 28 64 62 29 29 rgv[0], ENC(db))
76c0: 3b 20 0a 20 20 7a 56 61 6c 20 3d 20 63 6f 6e 74 ; . zVal = cont
76d0: 65 78 74 4d 61 6c 6c 6f 63 28 70 43 74 78 2c 20 extMalloc(pCtx,
76e0: 6c 65 6e 2b 33 29 3b 0a 20 20 69 66 28 20 21 7a len+3);. if( !z
76f0: 56 61 6c 20 29 7b 0a 20 20 20 20 72 65 74 75 72 Val ){. retur
7700: 6e 3b 0a 20 20 7d 0a 20 20 7a 56 61 6c 5b 6c 65 n;. }. zVal[le
7710: 6e 2b 31 5d 20 3d 20 30 3b 0a 20 20 7a 56 61 6c n+1] = 0;. zVal
7720: 5b 6c 65 6e 2b 32 5d 20 3d 20 30 3b 0a 20 20 7a [len+2] = 0;. z
7730: 56 61 6c 2b 2b 3b 0a 20 20 6d 65 6d 63 70 79 28 Val++;. memcpy(
7740: 7a 56 61 6c 2c 20 73 71 6c 69 74 65 33 56 61 6c zVal, sqlite3Val
7750: 75 65 54 65 78 74 28 61 72 67 76 5b 30 5d 2c 20 ueText(argv[0],
7760: 45 4e 43 28 64 62 29 29 2c 20 6c 65 6e 29 3b 0a ENC(db)), len);.
7770: 20 20 69 66 28 20 45 4e 43 28 64 62 29 3d 3d 53 if( ENC(db)==S
7780: 51 4c 49 54 45 5f 55 54 46 38 20 29 7b 0a 20 20 QLITE_UTF8 ){.
7790: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
77a0: 5f 74 65 78 74 28 70 43 74 78 2c 20 7a 56 61 6c _text(pCtx, zVal
77b0: 2c 20 2d 31 2c 20 64 65 73 74 72 75 63 74 6f 72 , -1, destructor
77c0: 29 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 );.#ifndef SQLIT
77d0: 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 7d E_OMIT_UTF16. }
77e0: 65 6c 73 65 20 69 66 28 20 45 4e 43 28 64 62 29 else if( ENC(db)
77f0: 3d 3d 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 45 ==SQLITE_UTF16LE
7800: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f ){. sqlite3_
7810: 72 65 73 75 6c 74 5f 74 65 78 74 31 36 6c 65 28 result_text16le(
7820: 70 43 74 78 2c 20 7a 56 61 6c 2c 20 2d 31 2c 20 pCtx, zVal, -1,
7830: 64 65 73 74 72 75 63 74 6f 72 29 3b 0a 20 20 7d destructor);. }
7840: 65 6c 73 65 7b 0a 20 20 20 20 73 71 6c 69 74 65 else{. sqlite
7850: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 62 3_result_text16b
7860: 65 28 70 43 74 78 2c 20 7a 56 61 6c 2c 20 2d 31 e(pCtx, zVal, -1
7870: 2c 20 64 65 73 74 72 75 63 74 6f 72 29 3b 0a 23 , destructor);.#
7880: 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f endif /* SQLITE_
7890: 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a 20 20 OMIT_UTF16 */.
78a0: 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 }.}.static void
78b0: 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 5f test_destructor_
78c0: 63 6f 75 6e 74 28 0a 20 20 73 71 6c 69 74 65 33 count(. sqlite3
78d0: 5f 63 6f 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 _context *pCtx,
78e0: 0a 20 20 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 . int nArg,. s
78f0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
7900: 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 rgv.){. sqlite3
7910: 5f 72 65 73 75 6c 74 5f 69 6e 74 28 70 43 74 78 _result_int(pCtx
7920: 2c 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f , test_destructo
7930: 72 5f 63 6f 75 6e 74 5f 76 61 72 29 3b 0a 7d 0a r_count_var);.}.
7940: 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 #endif /* SQLITE
7950: 5f 54 45 53 54 20 2a 2f 0a 0a 23 69 66 64 65 66 _TEST */..#ifdef
7960: 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 2f 2a 0a SQLITE_TEST./*.
7970: 2a 2a 20 52 6f 75 74 69 6e 65 73 20 66 6f 72 20 ** Routines for
7980: 74 65 73 74 69 6e 67 20 74 68 65 20 73 71 6c 69 testing the sqli
7990: 74 65 33 5f 67 65 74 5f 61 75 78 64 61 74 61 28 te3_get_auxdata(
79a0: 29 20 61 6e 64 20 73 71 6c 69 74 65 33 5f 73 65 ) and sqlite3_se
79b0: 74 5f 61 75 78 64 61 74 61 28 29 0a 2a 2a 20 69 t_auxdata().** i
79c0: 6e 74 65 72 66 61 63 65 2e 0a 2a 2a 0a 2a 2a 20 nterface..**.**
79d0: 54 68 65 20 74 65 73 74 5f 61 75 78 64 61 74 61 The test_auxdata
79e0: 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 20 () SQL function
79f0: 61 74 74 65 6d 70 74 73 20 74 6f 20 72 65 67 69 attempts to regi
7a00: 73 74 65 72 20 65 61 63 68 20 6f 66 20 69 74 73 ster each of its
7a10: 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2a 20 61 73 arguments.** as
7a20: 20 61 75 78 69 6c 69 61 72 79 20 64 61 74 61 2e auxiliary data.
7a30: 20 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6e If there are n
7a40: 6f 20 70 72 69 6f 72 20 72 65 67 69 73 74 72 61 o prior registra
7a50: 74 69 6f 6e 73 20 6f 66 20 61 75 78 20 64 61 74 tions of aux dat
7a60: 61 20 66 6f 72 0a 2a 2a 20 74 68 61 74 20 61 72 a for.** that ar
7a70: 67 75 6d 65 6e 74 20 28 6d 65 61 6e 69 6e 67 20 gument (meaning
7a80: 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 20 the argument is
7a90: 6e 6f 74 20 61 20 63 6f 6e 73 74 61 6e 74 20 6f not a constant o
7aa0: 72 20 74 68 69 73 20 69 73 20 69 74 73 20 66 69 r this is its fi
7ab0: 72 73 74 0a 2a 2a 20 63 61 6c 6c 29 20 74 68 65 rst.** call) the
7ac0: 6e 20 74 68 65 20 72 65 73 75 6c 74 20 66 6f 72 n the result for
7ad0: 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74 20 69 that argument i
7ae0: 73 20 30 2e 20 20 49 66 20 74 68 65 72 65 20 69 s 0. If there i
7af0: 73 20 61 20 70 72 69 6f 72 0a 2a 2a 20 72 65 67 s a prior.** reg
7b00: 69 73 74 72 61 74 69 6f 6e 2c 20 74 68 65 20 72 istration, the r
7b10: 65 73 75 6c 74 20 66 6f 72 20 74 68 61 74 20 61 esult for that a
7b20: 72 67 75 6d 65 6e 74 20 69 73 20 31 2e 20 20 54 rgument is 1. T
7b30: 68 65 20 6f 76 65 72 61 6c 6c 20 72 65 73 75 6c he overall resul
7b40: 74 0a 2a 2a 20 69 73 20 74 68 65 20 69 6e 64 69 t.** is the indi
7b50: 76 69 64 75 61 6c 20 61 72 67 75 6d 65 6e 74 20 vidual argument
7b60: 72 65 73 75 6c 74 73 20 73 65 70 61 72 61 74 65 results separate
7b70: 64 20 62 79 20 73 70 61 63 65 73 2e 0a 2a 2f 0a d by spaces..*/.
7b80: 73 74 61 74 69 63 20 76 6f 69 64 20 66 72 65 65 static void free
7b90: 5f 74 65 73 74 5f 61 75 78 64 61 74 61 28 76 6f _test_auxdata(vo
7ba0: 69 64 20 2a 70 29 20 7b 73 71 6c 69 74 65 33 5f id *p) {sqlite3_
7bb0: 66 72 65 65 28 70 29 3b 7d 0a 73 74 61 74 69 63 free(p);}.static
7bc0: 20 76 6f 69 64 20 74 65 73 74 5f 61 75 78 64 61 void test_auxda
7bd0: 74 61 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f ta(. sqlite3_co
7be0: 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 ntext *pCtx, .
7bf0: 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 int nArg,. sqli
7c00: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
7c10: 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 .){. int i;. c
7c20: 68 61 72 20 2a 7a 52 65 74 20 3d 20 63 6f 6e 74 har *zRet = cont
7c30: 65 78 74 4d 61 6c 6c 6f 63 28 70 43 74 78 2c 20 extMalloc(pCtx,
7c40: 6e 41 72 67 2a 32 29 3b 0a 20 20 69 66 28 20 21 nArg*2);. if( !
7c50: 7a 52 65 74 20 29 20 72 65 74 75 72 6e 3b 0a 20 zRet ) return;.
7c60: 20 6d 65 6d 73 65 74 28 7a 52 65 74 2c 20 30 2c memset(zRet, 0,
7c70: 20 6e 41 72 67 2a 32 29 3b 0a 20 20 66 6f 72 28 nArg*2);. for(
7c80: 69 3d 30 3b 20 69 3c 6e 41 72 67 3b 20 69 2b 2b i=0; i<nArg; i++
7c90: 29 7b 0a 20 20 20 20 63 68 61 72 20 63 6f 6e 73 ){. char cons
7ca0: 74 20 2a 7a 20 3d 20 28 63 68 61 72 2a 29 73 71 t *z = (char*)sq
7cb0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
7cc0: 28 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 69 (argv[i]);. i
7cd0: 66 28 20 7a 20 29 7b 0a 20 20 20 20 20 20 63 68 f( z ){. ch
7ce0: 61 72 20 2a 7a 41 75 78 20 3d 20 73 71 6c 69 74 ar *zAux = sqlit
7cf0: 65 33 5f 67 65 74 5f 61 75 78 64 61 74 61 28 70 e3_get_auxdata(p
7d00: 43 74 78 2c 20 69 29 3b 0a 20 20 20 20 20 20 69 Ctx, i);. i
7d10: 66 28 20 7a 41 75 78 20 29 7b 0a 20 20 20 20 20 f( zAux ){.
7d20: 20 20 20 7a 52 65 74 5b 69 2a 32 5d 20 3d 20 27 zRet[i*2] = '
7d30: 31 27 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 1';. if(
7d40: 73 74 72 63 6d 70 28 7a 41 75 78 2c 20 7a 29 20 strcmp(zAux, z)
7d50: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c ){. sql
7d60: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
7d70: 72 28 70 43 74 78 2c 20 22 41 75 78 69 6c 61 72 r(pCtx, "Auxilar
7d80: 79 20 64 61 74 61 20 63 6f 72 72 75 70 74 69 6f y data corruptio
7d90: 6e 22 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 n", -1);.
7da0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 return;.
7db0: 20 20 20 7d 0a 20 20 20 20 20 20 7d 65 6c 73 65 }. }else
7dc0: 20 7b 0a 20 20 20 20 20 20 20 20 7a 52 65 74 5b {. zRet[
7dd0: 69 2a 32 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 i*2] = '0';.
7de0: 20 20 7d 0a 0a 20 20 20 20 20 20 7a 41 75 78 20 }.. zAux
7df0: 3d 20 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 = contextMalloc(
7e00: 70 43 74 78 2c 20 73 74 72 6c 65 6e 28 7a 29 2b pCtx, strlen(z)+
7e10: 31 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 41 1);. if( zA
7e20: 75 78 20 29 7b 0a 20 20 20 20 20 20 20 20 73 74 ux ){. st
7e30: 72 63 70 79 28 7a 41 75 78 2c 20 7a 29 3b 0a 20 rcpy(zAux, z);.
7e40: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 73 sqlite3_s
7e50: 65 74 5f 61 75 78 64 61 74 61 28 70 43 74 78 2c et_auxdata(pCtx,
7e60: 20 69 2c 20 7a 41 75 78 2c 20 66 72 65 65 5f 74 i, zAux, free_t
7e70: 65 73 74 5f 61 75 78 64 61 74 61 29 3b 0a 20 20 est_auxdata);.
7e80: 20 20 20 20 7d 0a 20 20 20 20 20 20 7a 52 65 74 }. zRet
7e90: 5b 69 2a 32 2b 31 5d 20 3d 20 27 20 27 3b 0a 20 [i*2+1] = ' ';.
7ea0: 20 20 20 7d 0a 20 20 7d 0a 20 20 73 71 6c 69 74 }. }. sqlit
7eb0: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 70 e3_result_text(p
7ec0: 43 74 78 2c 20 7a 52 65 74 2c 20 32 2a 6e 41 72 Ctx, zRet, 2*nAr
7ed0: 67 2d 31 2c 20 66 72 65 65 5f 74 65 73 74 5f 61 g-1, free_test_a
7ee0: 75 78 64 61 74 61 29 3b 0a 7d 0a 23 65 6e 64 69 uxdata);.}.#endi
7ef0: 66 20 2f 2a 20 53 51 4c 49 54 45 5f 54 45 53 54 f /* SQLITE_TEST
7f00: 20 2a 2f 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 */..#ifdef SQLI
7f10: 54 45 5f 54 45 53 54 0a 2f 2a 0a 2a 2a 20 41 20 TE_TEST./*.** A
7f20: 66 75 6e 63 74 69 6f 6e 20 74 6f 20 74 65 73 74 function to test
7f30: 20 65 72 72 6f 72 20 72 65 70 6f 72 74 69 6e 67 error reporting
7f40: 20 66 72 6f 6d 20 75 73 65 72 20 66 75 6e 63 74 from user funct
7f50: 69 6f 6e 73 2e 20 54 68 69 73 20 66 75 6e 63 74 ions. This funct
7f60: 69 6f 6e 0a 2a 2a 20 72 65 74 75 72 6e 73 20 61 ion.** returns a
7f70: 20 63 6f 70 79 20 6f 66 20 69 74 73 20 66 69 72 copy of its fir
7f80: 73 74 20 61 72 67 75 6d 65 6e 74 20 61 73 20 61 st argument as a
7f90: 6e 20 65 72 72 6f 72 2e 0a 2a 2f 0a 73 74 61 74 n error..*/.stat
7fa0: 69 63 20 76 6f 69 64 20 74 65 73 74 5f 65 72 72 ic void test_err
7fb0: 6f 72 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f or(. sqlite3_co
7fc0: 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 ntext *pCtx, .
7fd0: 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 int nArg,. sqli
7fe0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
7ff0: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 .){. sqlite3_re
8000: 73 75 6c 74 5f 65 72 72 6f 72 28 70 43 74 78 2c sult_error(pCtx,
8010: 20 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f (char*)sqlite3_
8020: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
8030: 30 5d 29 2c 20 30 29 3b 0a 7d 0a 23 65 6e 64 69 0]), 0);.}.#endi
8040: 66 20 2f 2a 20 53 51 4c 49 54 45 5f 54 45 53 54 f /* SQLITE_TEST
8050: 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e */../*.** An in
8060: 73 74 61 6e 63 65 20 6f 66 20 74 68 65 20 66 6f stance of the fo
8070: 6c 6c 6f 77 69 6e 67 20 73 74 72 75 63 74 75 72 llowing structur
8080: 65 20 68 6f 6c 64 73 20 74 68 65 20 63 6f 6e 74 e holds the cont
8090: 65 78 74 20 6f 66 20 61 0a 2a 2a 20 73 75 6d 28 ext of a.** sum(
80a0: 29 20 6f 72 20 61 76 67 28 29 20 61 67 67 72 65 ) or avg() aggre
80b0: 67 61 74 65 20 63 6f 6d 70 75 74 61 74 69 6f 6e gate computation
80c0: 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 ..*/.typedef str
80d0: 75 63 74 20 53 75 6d 43 74 78 20 53 75 6d 43 74 uct SumCtx SumCt
80e0: 78 3b 0a 73 74 72 75 63 74 20 53 75 6d 43 74 78 x;.struct SumCtx
80f0: 20 7b 0a 20 20 64 6f 75 62 6c 65 20 72 53 75 6d {. double rSum
8100: 3b 20 20 20 20 20 20 2f 2a 20 46 6c 6f 61 74 69 ; /* Floati
8110: 6e 67 20 70 6f 69 6e 74 20 73 75 6d 20 2a 2f 0a ng point sum */.
8120: 20 20 69 36 34 20 69 53 75 6d 3b 20 20 20 20 20 i64 iSum;
8130: 20 20 20 20 2f 2a 20 49 6e 74 65 67 65 72 20 73 /* Integer s
8140: 75 6d 20 2a 2f 20 20 20 0a 20 20 69 36 34 20 63 um */ . i64 c
8150: 6e 74 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 nt; /*
8160: 4e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e Number of elemen
8170: 74 73 20 73 75 6d 6d 65 64 20 2a 2f 0a 20 20 75 ts summed */. u
8180: 38 20 6f 76 65 72 66 6c 6f 77 3b 20 20 20 20 20 8 overflow;
8190: 20 2f 2a 20 54 72 75 65 20 69 66 20 69 6e 74 65 /* True if inte
81a0: 67 65 72 20 6f 76 65 72 66 6c 6f 77 20 73 65 65 ger overflow see
81b0: 6e 20 2a 2f 0a 20 20 75 38 20 61 70 70 72 6f 78 n */. u8 approx
81c0: 3b 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 ; /* True
81d0: 20 69 66 20 6e 6f 6e 2d 69 6e 74 65 67 65 72 20 if non-integer
81e0: 76 61 6c 75 65 20 77 61 73 20 69 6e 70 75 74 20 value was input
81f0: 74 6f 20 74 68 65 20 73 75 6d 20 2a 2f 0a 7d 3b to the sum */.};
8200: 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 ../*.** Routines
8210: 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 75 74 65 used to compute
8220: 20 74 68 65 20 73 75 6d 2c 20 61 76 65 72 61 67 the sum, averag
8230: 65 2c 20 61 6e 64 20 74 6f 74 61 6c 2e 0a 2a 2a e, and total..**
8240: 0a 2a 2a 20 54 68 65 20 53 55 4d 28 29 20 66 75 .** The SUM() fu
8250: 6e 63 74 69 6f 6e 20 66 6f 6c 6c 6f 77 73 20 74 nction follows t
8260: 68 65 20 28 62 72 6f 6b 65 6e 29 20 53 51 4c 20 he (broken) SQL
8270: 73 74 61 6e 64 61 72 64 20 77 68 69 63 68 20 6d standard which m
8280: 65 61 6e 73 0a 2a 2a 20 74 68 61 74 20 69 74 20 eans.** that it
8290: 72 65 74 75 72 6e 73 20 4e 55 4c 4c 20 69 66 20 returns NULL if
82a0: 69 74 20 73 75 6d 73 20 6f 76 65 72 20 6e 6f 20 it sums over no
82b0: 69 6e 70 75 74 73 2e 20 20 54 4f 54 41 4c 20 72 inputs. TOTAL r
82c0: 65 74 75 72 6e 73 0a 2a 2a 20 30 2e 30 20 69 6e eturns.** 0.0 in
82d0: 20 74 68 61 74 20 63 61 73 65 2e 20 20 49 6e 20 that case. In
82e0: 61 64 64 69 74 69 6f 6e 2c 20 54 4f 54 41 4c 20 addition, TOTAL
82f0: 61 6c 77 61 79 73 20 72 65 74 75 72 6e 73 20 61 always returns a
8300: 20 66 6c 6f 61 74 20 77 68 65 72 65 0a 2a 2a 20 float where.**
8310: 53 55 4d 20 6d 69 67 68 74 20 72 65 74 75 72 6e SUM might return
8320: 20 61 6e 20 69 6e 74 65 67 65 72 20 69 66 20 69 an integer if i
8330: 74 20 6e 65 76 65 72 20 65 6e 63 6f 75 6e 74 65 t never encounte
8340: 72 73 20 61 20 66 6c 6f 61 74 69 6e 67 20 70 6f rs a floating po
8350: 69 6e 74 0a 2a 2a 20 76 61 6c 75 65 2e 20 20 54 int.** value. T
8360: 4f 54 41 4c 20 6e 65 76 65 72 20 66 61 69 6c 73 OTAL never fails
8370: 2c 20 62 75 74 20 53 55 4d 20 6d 69 67 68 74 20 , but SUM might
8380: 74 68 72 6f 75 67 68 20 61 6e 20 65 78 63 65 70 through an excep
8390: 74 69 6f 6e 20 69 66 0a 2a 2a 20 69 74 20 6f 76 tion if.** it ov
83a0: 65 72 66 6c 6f 77 73 20 61 6e 20 69 6e 74 65 67 erflows an integ
83b0: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f er..*/.static vo
83c0: 69 64 20 73 75 6d 53 74 65 70 28 73 71 6c 69 74 id sumStep(sqlit
83d0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
83e0: 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 ext, int argc, s
83f0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
8400: 72 67 76 29 7b 0a 20 20 53 75 6d 43 74 78 20 2a rgv){. SumCtx *
8410: 70 3b 0a 20 20 69 6e 74 20 74 79 70 65 3b 0a 20 p;. int type;.
8420: 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 assert( argc==1
8430: 20 29 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 );. p = sqlite
8440: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
8450: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a ext(context, siz
8460: 65 6f 66 28 2a 70 29 29 3b 0a 20 20 74 79 70 65 eof(*p));. type
8470: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
8480: 5f 6e 75 6d 65 72 69 63 5f 74 79 70 65 28 61 72 _numeric_type(ar
8490: 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 70 20 gv[0]);. if( p
84a0: 26 26 20 74 79 70 65 21 3d 53 51 4c 49 54 45 5f && type!=SQLITE_
84b0: 4e 55 4c 4c 20 29 7b 0a 20 20 20 20 70 2d 3e 63 NULL ){. p->c
84c0: 6e 74 2b 2b 3b 0a 20 20 20 20 69 66 28 20 74 79 nt++;. if( ty
84d0: 70 65 3d 3d 53 51 4c 49 54 45 5f 49 4e 54 45 47 pe==SQLITE_INTEG
84e0: 45 52 20 29 7b 0a 20 20 20 20 20 20 69 36 34 20 ER ){. i64
84f0: 76 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 v = sqlite3_valu
8500: 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 e_int64(argv[0])
8510: 3b 0a 20 20 20 20 20 20 70 2d 3e 72 53 75 6d 20 ;. p->rSum
8520: 2b 3d 20 76 3b 0a 20 20 20 20 20 20 69 66 28 20 += v;. if(
8530: 28 70 2d 3e 61 70 70 72 6f 78 7c 70 2d 3e 6f 76 (p->approx|p->ov
8540: 65 72 66 6c 6f 77 29 3d 3d 30 20 29 7b 0a 20 20 erflow)==0 ){.
8550: 20 20 20 20 20 20 69 36 34 20 69 4e 65 77 53 75 i64 iNewSu
8560: 6d 20 3d 20 70 2d 3e 69 53 75 6d 20 2b 20 76 3b m = p->iSum + v;
8570: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 73 31 20 . int s1
8580: 3d 20 70 2d 3e 69 53 75 6d 20 3e 3e 20 28 73 69 = p->iSum >> (si
8590: 7a 65 6f 66 28 69 36 34 29 2a 38 2d 31 29 3b 0a zeof(i64)*8-1);.
85a0: 20 20 20 20 20 20 20 20 69 6e 74 20 73 32 20 3d int s2 =
85b0: 20 76 20 20 20 20 20 20 20 3e 3e 20 28 73 69 7a v >> (siz
85c0: 65 6f 66 28 69 36 34 29 2a 38 2d 31 29 3b 0a 20 eof(i64)*8-1);.
85d0: 20 20 20 20 20 20 20 69 6e 74 20 73 33 20 3d 20 int s3 =
85e0: 69 4e 65 77 53 75 6d 20 3e 3e 20 28 73 69 7a 65 iNewSum >> (size
85f0: 6f 66 28 69 36 34 29 2a 38 2d 31 29 3b 0a 20 20 of(i64)*8-1);.
8600: 20 20 20 20 20 20 70 2d 3e 6f 76 65 72 66 6c 6f p->overflo
8610: 77 20 3d 20 28 73 31 26 73 32 26 7e 73 33 29 20 w = (s1&s2&~s3)
8620: 7c 20 28 7e 73 31 26 7e 73 32 26 73 33 29 3b 0a | (~s1&~s2&s3);.
8630: 20 20 20 20 20 20 20 20 70 2d 3e 69 53 75 6d 20 p->iSum
8640: 3d 20 69 4e 65 77 53 75 6d 3b 0a 20 20 20 20 20 = iNewSum;.
8650: 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 }. }else{.
8660: 20 20 20 20 70 2d 3e 72 53 75 6d 20 2b 3d 20 73 p->rSum += s
8670: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 qlite3_value_dou
8680: 62 6c 65 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 ble(argv[0]);.
8690: 20 20 20 20 70 2d 3e 61 70 70 72 6f 78 20 3d 20 p->approx =
86a0: 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 73 1;. }. }.}.s
86b0: 74 61 74 69 63 20 76 6f 69 64 20 73 75 6d 46 69 tatic void sumFi
86c0: 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 nalize(sqlite3_c
86d0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 ontext *context)
86e0: 7b 0a 20 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 {. SumCtx *p;.
86f0: 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 p = sqlite3_agg
8700: 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 regate_context(c
8710: 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 69 66 ontext, 0);. if
8720: 28 20 70 20 26 26 20 70 2d 3e 63 6e 74 3e 30 20 ( p && p->cnt>0
8730: 29 7b 0a 20 20 20 20 69 66 28 20 70 2d 3e 6f 76 ){. if( p->ov
8740: 65 72 66 6c 6f 77 20 29 7b 0a 20 20 20 20 20 20 erflow ){.
8750: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 sqlite3_result_e
8760: 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 22 69 6e rror(context,"in
8770: 74 65 67 65 72 20 6f 76 65 72 66 6c 6f 77 22 2c teger overflow",
8780: 2d 31 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 -1);. }else i
8790: 66 28 20 70 2d 3e 61 70 70 72 6f 78 20 29 7b 0a f( p->approx ){.
87a0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 sqlite3_re
87b0: 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 sult_double(cont
87c0: 65 78 74 2c 20 70 2d 3e 72 53 75 6d 29 3b 0a 20 ext, p->rSum);.
87d0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
87e0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 sqlite3_result_i
87f0: 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 70 2d nt64(context, p-
8800: 3e 69 53 75 6d 29 3b 0a 20 20 20 20 7d 0a 20 20 >iSum);. }.
8810: 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 }.}.static void
8820: 61 76 67 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 avgFinalize(sqli
8830: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
8840: 74 65 78 74 29 7b 0a 20 20 53 75 6d 43 74 78 20 text){. SumCtx
8850: 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 *p;. p = sqlite
8860: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
8870: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b ext(context, 0);
8880: 0a 20 20 69 66 28 20 70 20 26 26 20 70 2d 3e 63 . if( p && p->c
8890: 6e 74 3e 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 nt>0 ){. sqli
88a0: 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62 6c te3_result_doubl
88b0: 65 28 63 6f 6e 74 65 78 74 2c 20 70 2d 3e 72 53 e(context, p->rS
88c0: 75 6d 2f 28 64 6f 75 62 6c 65 29 70 2d 3e 63 6e um/(double)p->cn
88d0: 74 29 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63 t);. }.}.static
88e0: 20 76 6f 69 64 20 74 6f 74 61 6c 46 69 6e 61 6c void totalFinal
88f0: 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 ize(sqlite3_cont
8900: 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 ext *context){.
8910: 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 20 70 20 SumCtx *p;. p
8920: 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 = sqlite3_aggreg
8930: 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 ate_context(cont
8940: 65 78 74 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 ext, 0);. sqlit
8950: 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65 e3_result_double
8960: 28 63 6f 6e 74 65 78 74 2c 20 70 20 3f 20 70 2d (context, p ? p-
8970: 3e 72 53 75 6d 20 3a 20 30 2e 30 29 3b 0a 7d 0a >rSum : 0.0);.}.
8980: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f ./*.** The follo
8990: 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 20 6b wing structure k
89a0: 65 65 70 73 20 74 72 61 63 6b 20 6f 66 20 73 74 eeps track of st
89b0: 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 ate information
89c0: 66 6f 72 20 74 68 65 0a 2a 2a 20 63 6f 75 6e 74 for the.** count
89d0: 28 29 20 61 67 67 72 65 67 61 74 65 20 66 75 6e () aggregate fun
89e0: 63 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 ction..*/.typede
89f0: 66 20 73 74 72 75 63 74 20 43 6f 75 6e 74 43 74 f struct CountCt
8a00: 78 20 43 6f 75 6e 74 43 74 78 3b 0a 73 74 72 75 x CountCtx;.stru
8a10: 63 74 20 43 6f 75 6e 74 43 74 78 20 7b 0a 20 20 ct CountCtx {.
8a20: 69 36 34 20 6e 3b 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a i64 n;.};../*.**
8a30: 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 69 6d 70 Routines to imp
8a40: 6c 65 6d 65 6e 74 20 74 68 65 20 63 6f 75 6e 74 lement the count
8a50: 28 29 20 61 67 67 72 65 67 61 74 65 20 66 75 6e () aggregate fun
8a60: 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 ction..*/.static
8a70: 20 76 6f 69 64 20 63 6f 75 6e 74 53 74 65 70 28 void countStep(
8a80: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
8a90: 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 *context, int ar
8aa0: 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 gc, sqlite3_valu
8ab0: 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 43 6f 75 e **argv){. Cou
8ac0: 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 ntCtx *p;. p =
8ad0: 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 sqlite3_aggregat
8ae0: 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 e_context(contex
8af0: 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a t, sizeof(*p));.
8b00: 20 20 69 66 28 20 28 61 72 67 63 3d 3d 30 20 7c if( (argc==0 |
8b10: 7c 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 21 3d 73 | SQLITE_NULL!=s
8b20: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 qlite3_value_typ
8b30: 65 28 61 72 67 76 5b 30 5d 29 29 20 26 26 20 70 e(argv[0])) && p
8b40: 20 29 7b 0a 20 20 20 20 70 2d 3e 6e 2b 2b 3b 0a ){. p->n++;.
8b50: 20 20 7d 0a 7d 20 20 20 0a 73 74 61 74 69 63 20 }.} .static
8b60: 76 6f 69 64 20 63 6f 75 6e 74 46 69 6e 61 6c 69 void countFinali
8b70: 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 ze(sqlite3_conte
8b80: 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 xt *context){.
8b90: 43 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 CountCtx *p;. p
8ba0: 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 = sqlite3_aggre
8bb0: 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e gate_context(con
8bc0: 74 65 78 74 2c 20 30 29 3b 0a 20 20 73 71 6c 69 text, 0);. sqli
8bd0: 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 te3_result_int64
8be0: 28 63 6f 6e 74 65 78 74 2c 20 70 20 3f 20 70 2d (context, p ? p-
8bf0: 3e 6e 20 3a 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a >n : 0);.}../*.*
8c00: 2a 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 69 6d * Routines to im
8c10: 70 6c 65 6d 65 6e 74 20 6d 69 6e 28 29 20 61 6e plement min() an
8c20: 64 20 6d 61 78 28 29 20 61 67 67 72 65 67 61 74 d max() aggregat
8c30: 65 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a e functions..*/.
8c40: 73 74 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 6d static void minm
8c50: 61 78 53 74 65 70 28 73 71 6c 69 74 65 33 5f 63 axStep(sqlite3_c
8c60: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
8c70: 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 int argc, sqlit
8c80: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 e3_value **argv)
8c90: 7b 0a 20 20 4d 65 6d 20 2a 70 41 72 67 20 20 3d {. Mem *pArg =
8ca0: 20 28 4d 65 6d 20 2a 29 61 72 67 76 5b 30 5d 3b (Mem *)argv[0];
8cb0: 0a 20 20 4d 65 6d 20 2a 70 42 65 73 74 3b 0a 0a . Mem *pBest;..
8cc0: 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 if( sqlite3_va
8cd0: 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d lue_type(argv[0]
8ce0: 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 )==SQLITE_NULL )
8cf0: 20 72 65 74 75 72 6e 3b 0a 20 20 70 42 65 73 74 return;. pBest
8d00: 20 3d 20 28 4d 65 6d 20 2a 29 73 71 6c 69 74 65 = (Mem *)sqlite
8d10: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
8d20: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a ext(context, siz
8d30: 65 6f 66 28 2a 70 42 65 73 74 29 29 3b 0a 20 20 eof(*pBest));.
8d40: 69 66 28 20 21 70 42 65 73 74 20 29 20 72 65 74 if( !pBest ) ret
8d50: 75 72 6e 3b 0a 0a 20 20 69 66 28 20 70 42 65 73 urn;.. if( pBes
8d60: 74 2d 3e 66 6c 61 67 73 20 29 7b 0a 20 20 20 20 t->flags ){.
8d70: 69 6e 74 20 6d 61 78 3b 0a 20 20 20 20 69 6e 74 int max;. int
8d80: 20 63 6d 70 3b 0a 20 20 20 20 43 6f 6c 6c 53 65 cmp;. CollSe
8d90: 71 20 2a 70 43 6f 6c 6c 20 3d 20 73 71 6c 69 74 q *pColl = sqlit
8da0: 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71 e3GetFuncCollSeq
8db0: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 2f (context);. /
8dc0: 2a 20 54 68 69 73 20 73 74 65 70 20 66 75 6e 63 * This step func
8dd0: 74 69 6f 6e 20 69 73 20 75 73 65 64 20 66 6f 72 tion is used for
8de0: 20 62 6f 74 68 20 74 68 65 20 6d 69 6e 28 29 20 both the min()
8df0: 61 6e 64 20 6d 61 78 28 29 20 61 67 67 72 65 67 and max() aggreg
8e00: 61 74 65 73 2c 0a 20 20 20 20 2a 2a 20 74 68 65 ates,. ** the
8e10: 20 6f 6e 6c 79 20 64 69 66 66 65 72 65 6e 63 65 only difference
8e20: 20 62 65 74 77 65 65 6e 20 74 68 65 20 74 77 6f between the two
8e30: 20 62 65 69 6e 67 20 74 68 61 74 20 74 68 65 20 being that the
8e40: 73 65 6e 73 65 20 6f 66 20 74 68 65 0a 20 20 20 sense of the.
8e50: 20 2a 2a 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 ** comparison i
8e60: 73 20 69 6e 76 65 72 74 65 64 2e 20 46 6f 72 20 s inverted. For
8e70: 74 68 65 20 6d 61 78 28 29 20 61 67 67 72 65 67 the max() aggreg
8e80: 61 74 65 2c 20 74 68 65 0a 20 20 20 20 2a 2a 20 ate, the. **
8e90: 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 sqlite3_user_dat
8ea0: 61 28 29 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 a() function ret
8eb0: 75 72 6e 73 20 28 76 6f 69 64 20 2a 29 2d 31 2e urns (void *)-1.
8ec0: 20 46 6f 72 20 6d 69 6e 28 29 20 69 74 0a 20 20 For min() it.
8ed0: 20 20 2a 2a 20 72 65 74 75 72 6e 73 20 28 76 6f ** returns (vo
8ee0: 69 64 20 2a 29 64 62 2c 20 77 68 65 72 65 20 64 id *)db, where d
8ef0: 62 20 69 73 20 74 68 65 20 73 71 6c 69 74 65 33 b is the sqlite3
8f00: 2a 20 64 61 74 61 62 61 73 65 20 70 6f 69 6e 74 * database point
8f10: 65 72 2e 0a 20 20 20 20 2a 2a 20 54 68 65 72 65 er.. ** There
8f20: 66 6f 72 65 20 74 68 65 20 6e 65 78 74 20 73 74 fore the next st
8f30: 61 74 65 6d 65 6e 74 20 73 65 74 73 20 76 61 72 atement sets var
8f40: 69 61 62 6c 65 20 27 6d 61 78 27 20 74 6f 20 31 iable 'max' to 1
8f50: 20 66 6f 72 20 74 68 65 20 6d 61 78 28 29 0a 20 for the max().
8f60: 20 20 20 2a 2a 20 61 67 67 72 65 67 61 74 65 2c ** aggregate,
8f70: 20 6f 72 20 30 20 66 6f 72 20 6d 69 6e 28 29 2e or 0 for min().
8f80: 0a 20 20 20 20 2a 2f 0a 20 20 20 20 6d 61 78 20 . */. max
8f90: 3d 20 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 = sqlite3_user_d
8fa0: 61 74 61 28 63 6f 6e 74 65 78 74 29 21 3d 30 3b ata(context)!=0;
8fb0: 0a 20 20 20 20 63 6d 70 20 3d 20 73 71 6c 69 74 . cmp = sqlit
8fc0: 65 33 4d 65 6d 43 6f 6d 70 61 72 65 28 70 42 65 e3MemCompare(pBe
8fd0: 73 74 2c 20 70 41 72 67 2c 20 70 43 6f 6c 6c 29 st, pArg, pColl)
8fe0: 3b 0a 20 20 20 20 69 66 28 20 28 6d 61 78 20 26 ;. if( (max &
8ff0: 26 20 63 6d 70 3c 30 29 20 7c 7c 20 28 21 6d 61 & cmp<0) || (!ma
9000: 78 20 26 26 20 63 6d 70 3e 30 29 20 29 7b 0a 20 x && cmp>0) ){.
9010: 20 20 20 20 20 73 71 6c 69 74 65 33 56 64 62 65 sqlite3Vdbe
9020: 4d 65 6d 43 6f 70 79 28 70 42 65 73 74 2c 20 70 MemCopy(pBest, p
9030: 41 72 67 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 Arg);. }. }e
9040: 6c 73 65 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 lse{. sqlite3
9050: 56 64 62 65 4d 65 6d 43 6f 70 79 28 70 42 65 73 VdbeMemCopy(pBes
9060: 74 2c 20 70 41 72 67 29 3b 0a 20 20 7d 0a 7d 0a t, pArg);. }.}.
9070: 73 74 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 4d static void minM
9080: 61 78 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 axFinalize(sqlit
9090: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
90a0: 65 78 74 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f ext){. sqlite3_
90b0: 76 61 6c 75 65 20 2a 70 52 65 73 3b 0a 20 20 70 value *pRes;. p
90c0: 52 65 73 20 3d 20 28 73 71 6c 69 74 65 33 5f 76 Res = (sqlite3_v
90d0: 61 6c 75 65 20 2a 29 73 71 6c 69 74 65 33 5f 61 alue *)sqlite3_a
90e0: 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 ggregate_context
90f0: 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 (context, 0);.
9100: 69 66 28 20 70 52 65 73 20 29 7b 0a 20 20 20 20 if( pRes ){.
9110: 69 66 28 20 70 52 65 73 2d 3e 66 6c 61 67 73 20 if( pRes->flags
9120: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ){. sqlite3
9130: 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f _result_value(co
9140: 6e 74 65 78 74 2c 20 70 52 65 73 29 3b 0a 20 20 ntext, pRes);.
9150: 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 56 }. sqlite3V
9160: 64 62 65 4d 65 6d 52 65 6c 65 61 73 65 28 70 52 dbeMemRelease(pR
9170: 65 73 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a es);. }.}../*.*
9180: 2a 20 67 72 6f 75 70 5f 63 6f 6e 63 61 74 28 45 * group_concat(E
9190: 58 50 52 2c 20 3f 53 45 50 41 52 41 54 4f 52 3f XPR, ?SEPARATOR?
91a0: 29 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ).*/.static void
91b0: 20 67 72 6f 75 70 43 6f 6e 63 61 74 53 74 65 70 groupConcatStep
91c0: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 (. sqlite3_cont
91d0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 ext *context,.
91e0: 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 int argc,. sqli
91f0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
9200: 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 .){. const char
9210: 20 2a 7a 56 61 6c 3b 0a 20 20 53 74 72 41 63 63 *zVal;. StrAcc
9220: 75 6d 20 2a 70 41 63 63 75 6d 3b 0a 20 20 63 6f um *pAccum;. co
9230: 6e 73 74 20 63 68 61 72 20 2a 7a 53 65 70 3b 0a nst char *zSep;.
9240: 20 20 69 6e 74 20 6e 56 61 6c 2c 20 6e 53 65 70 int nVal, nSep
9250: 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f ;. if( sqlite3_
9260: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b value_type(argv[
9270: 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 0])==SQLITE_NULL
9280: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 70 41 63 ) return;. pAc
9290: 63 75 6d 20 3d 20 28 53 74 72 41 63 63 75 6d 2a cum = (StrAccum*
92a0: 29 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 )sqlite3_aggrega
92b0: 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 te_context(conte
92c0: 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 41 63 63 xt, sizeof(*pAcc
92d0: 75 6d 29 29 3b 0a 0a 20 20 69 66 28 20 70 41 63 um));.. if( pAc
92e0: 63 75 6d 20 29 7b 0a 20 20 20 20 70 41 63 63 75 cum ){. pAccu
92f0: 6d 2d 3e 75 73 65 4d 61 6c 6c 6f 63 20 3d 20 31 m->useMalloc = 1
9300: 3b 0a 20 20 20 20 69 66 28 20 70 41 63 63 75 6d ;. if( pAccum
9310: 2d 3e 6e 43 68 61 72 20 29 7b 0a 20 20 20 20 20 ->nChar ){.
9320: 20 69 66 28 20 61 72 67 63 3d 3d 32 20 29 7b 0a if( argc==2 ){.
9330: 20 20 20 20 20 20 20 20 7a 53 65 70 20 3d 20 28 zSep = (
9340: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 char*)sqlite3_va
9350: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31 5d lue_text(argv[1]
9360: 29 3b 0a 20 20 20 20 20 20 20 20 6e 53 65 70 20 );. nSep
9370: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
9380: 62 79 74 65 73 28 61 72 67 76 5b 31 5d 29 3b 0a bytes(argv[1]);.
9390: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 }else{.
93a0: 20 20 20 20 20 7a 53 65 70 20 3d 20 22 2c 22 3b zSep = ",";
93b0: 0a 20 20 20 20 20 20 20 20 6e 53 65 70 20 3d 20 . nSep =
93c0: 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 1;. }.
93d0: 20 73 71 6c 69 74 65 33 53 74 72 41 63 63 75 6d sqlite3StrAccum
93e0: 41 70 70 65 6e 64 28 70 41 63 63 75 6d 2c 20 7a Append(pAccum, z
93f0: 53 65 70 2c 20 6e 53 65 70 29 3b 0a 20 20 20 20 Sep, nSep);.
9400: 7d 0a 20 20 20 20 7a 56 61 6c 20 3d 20 28 63 68 }. zVal = (ch
9410: 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 ar*)sqlite3_valu
9420: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b e_text(argv[0]);
9430: 0a 20 20 20 20 6e 56 61 6c 20 3d 20 73 71 6c 69 . nVal = sqli
9440: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 te3_value_bytes(
9450: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 73 71 argv[0]);. sq
9460: 6c 69 74 65 33 53 74 72 41 63 63 75 6d 41 70 70 lite3StrAccumApp
9470: 65 6e 64 28 70 41 63 63 75 6d 2c 20 7a 56 61 6c end(pAccum, zVal
9480: 2c 20 6e 56 61 6c 29 3b 0a 20 20 7d 0a 7d 0a 73 , nVal);. }.}.s
9490: 74 61 74 69 63 20 76 6f 69 64 20 67 72 6f 75 70 tatic void group
94a0: 43 6f 6e 63 61 74 46 69 6e 61 6c 69 7a 65 28 73 ConcatFinalize(s
94b0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
94c0: 63 6f 6e 74 65 78 74 29 7b 0a 20 20 53 74 72 41 context){. StrA
94d0: 63 63 75 6d 20 2a 70 41 63 63 75 6d 3b 0a 20 20 ccum *pAccum;.
94e0: 70 41 63 63 75 6d 20 3d 20 73 71 6c 69 74 65 33 pAccum = sqlite3
94f0: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 _aggregate_conte
9500: 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b 0a xt(context, 0);.
9510: 20 20 69 66 28 20 70 41 63 63 75 6d 20 29 7b 0a if( pAccum ){.
9520: 20 20 20 20 69 66 28 20 70 41 63 63 75 6d 2d 3e if( pAccum->
9530: 74 6f 6f 42 69 67 20 29 7b 0a 20 20 20 20 20 20 tooBig ){.
9540: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 sqlite3_result_e
9550: 72 72 6f 72 5f 74 6f 6f 62 69 67 28 63 6f 6e 74 rror_toobig(cont
9560: 65 78 74 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 ext);. }else
9570: 69 66 28 20 70 41 63 63 75 6d 2d 3e 6d 61 6c 6c if( pAccum->mall
9580: 6f 63 46 61 69 6c 65 64 20 29 7b 0a 20 20 20 20 ocFailed ){.
9590: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
95a0: 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28 63 6f 6e _error_nomem(con
95b0: 74 65 78 74 29 3b 0a 20 20 20 20 7d 65 6c 73 65 text);. }else
95c0: 7b 20 20 20 20 0a 20 20 20 20 20 20 73 71 6c 69 { . sqli
95d0: 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 te3_result_text(
95e0: 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 context, sqlite3
95f0: 53 74 72 41 63 63 75 6d 46 69 6e 69 73 68 28 70 StrAccumFinish(p
9600: 41 63 63 75 6d 29 2c 20 2d 31 2c 20 0a 20 20 20 Accum), -1, .
9610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9620: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 sqlite3_f
9630: 72 65 65 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a ree);. }. }.
9640: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 }../*.** This fu
9650: 6e 63 74 69 6f 6e 20 72 65 67 69 73 74 65 72 65 nction registere
9660: 64 20 61 6c 6c 20 6f 66 20 74 68 65 20 61 62 6f d all of the abo
9670: 76 65 20 43 20 66 75 6e 63 74 69 6f 6e 73 20 61 ve C functions a
9680: 73 20 53 51 4c 0a 2a 2a 20 66 75 6e 63 74 69 6f s SQL.** functio
9690: 6e 73 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 ns. This should
96a0: 20 62 65 20 74 68 65 20 6f 6e 6c 79 20 72 6f 75 be the only rou
96b0: 74 69 6e 65 20 69 6e 20 74 68 69 73 20 66 69 6c tine in this fil
96c0: 65 20 77 69 74 68 0a 2a 2a 20 65 78 74 65 72 6e e with.** extern
96d0: 61 6c 20 6c 69 6e 6b 61 67 65 2e 0a 2a 2f 0a 76 al linkage..*/.v
96e0: 6f 69 64 20 73 71 6c 69 74 65 33 52 65 67 69 73 oid sqlite3Regis
96f0: 74 65 72 42 75 69 6c 74 69 6e 46 75 6e 63 74 69 terBuiltinFuncti
9700: 6f 6e 73 28 73 71 6c 69 74 65 33 20 2a 64 62 29 ons(sqlite3 *db)
9710: 7b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 {. static const
9720: 20 73 74 72 75 63 74 20 7b 0a 20 20 20 20 20 63 struct {. c
9730: 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 har *zName;.
9740: 20 73 69 67 6e 65 64 20 63 68 61 72 20 6e 41 72 signed char nAr
9750: 67 3b 0a 20 20 20 20 20 75 38 20 61 72 67 54 79 g;. u8 argTy
9760: 70 65 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a pe; /*
9770: 20 66 66 3a 20 64 62 20 20 20 31 3a 20 30 2c 20 ff: db 1: 0,
9780: 32 3a 20 31 2c 20 33 3a 20 32 2c 2e 2e 2e 20 20 2: 1, 3: 2,...
9790: 4e 3a 20 20 4e 2d 31 2e 20 2a 2f 0a 20 20 20 20 N: N-1. */.
97a0: 20 75 38 20 65 54 65 78 74 52 65 70 3b 20 20 20 u8 eTextRep;
97b0: 20 20 20 20 20 20 20 2f 2a 20 31 3a 20 55 54 46 /* 1: UTF
97c0: 2d 31 36 2e 20 20 30 3a 20 55 54 46 2d 38 20 2a -16. 0: UTF-8 *
97d0: 2f 0a 20 20 20 20 20 75 38 20 6e 65 65 64 43 6f /. u8 needCo
97e0: 6c 6c 53 65 71 3b 0a 20 20 20 20 20 76 6f 69 64 llSeq;. void
97f0: 20 28 2a 78 46 75 6e 63 29 28 73 71 6c 69 74 65 (*xFunc)(sqlite
9800: 33 5f 63 6f 6e 74 65 78 74 2a 2c 69 6e 74 2c 73 3_context*,int,s
9810: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 29 qlite3_value **)
9820: 3b 0a 20 20 7d 20 61 46 75 6e 63 73 5b 5d 20 3d ;. } aFuncs[] =
9830: 20 7b 0a 20 20 20 20 7b 20 22 6d 69 6e 22 2c 20 {. { "min",
9840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 -1
9850: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 0, SQLITE_UTF8
9860: 2c 20 20 20 20 31 2c 20 6d 69 6e 6d 61 78 46 75 , 1, minmaxFu
9870: 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 69 6e nc },. { "min
9880: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
9890: 20 20 30 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 0, 0, SQLITE_U
98a0: 54 46 38 2c 20 20 20 20 31 2c 20 30 20 20 20 20 TF8, 1, 0
98b0: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
98c0: 6d 61 78 22 2c 20 20 20 20 20 20 20 20 20 20 20 max",
98d0: 20 20 20 20 2d 31 2c 20 31 2c 20 53 51 4c 49 54 -1, 1, SQLIT
98e0: 45 5f 55 54 46 38 2c 20 20 20 20 31 2c 20 6d 69 E_UTF8, 1, mi
98f0: 6e 6d 61 78 46 75 6e 63 20 7d 2c 0a 20 20 20 20 nmaxFunc },.
9900: 7b 20 22 6d 61 78 22 2c 20 20 20 20 20 20 20 20 { "max",
9910: 20 20 20 20 20 20 20 20 30 2c 20 31 2c 20 53 51 0, 1, SQ
9920: 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 31 2c LITE_UTF8, 1,
9930: 20 30 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 0 },.
9940: 20 20 20 7b 20 22 74 79 70 65 6f 66 22 2c 20 20 { "typeof",
9950: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 1, 0,
9960: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 SQLITE_UTF8,
9970: 20 30 2c 20 74 79 70 65 6f 66 46 75 6e 63 20 7d 0, typeofFunc }
9980: 2c 0a 20 20 20 20 7b 20 22 6c 65 6e 67 74 68 22 ,. { "length"
9990: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c , 1,
99a0: 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 0, SQLITE_UTF8,
99b0: 20 20 20 20 30 2c 20 6c 65 6e 67 74 68 46 75 6e 0, lengthFun
99c0: 63 20 7d 2c 0a 20 20 20 20 7b 20 22 73 75 62 73 c },. { "subs
99d0: 74 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 tr",
99e0: 20 32 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 2, 0, SQLITE_UT
99f0: 46 38 2c 20 20 20 20 30 2c 20 73 75 62 73 74 72 F8, 0, substr
9a00: 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 22 73 Func },. { "s
9a10: 75 62 73 74 72 22 2c 20 20 20 20 20 20 20 20 20 ubstr",
9a20: 20 20 20 20 33 2c 20 30 2c 20 53 51 4c 49 54 45 3, 0, SQLITE
9a30: 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 73 75 62 _UTF8, 0, sub
9a40: 73 74 72 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b strFunc },. {
9a50: 20 22 61 62 73 22 2c 20 20 20 20 20 20 20 20 20 "abs",
9a60: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 53 51 4c 1, 0, SQL
9a70: 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 ITE_UTF8, 0,
9a80: 61 62 73 46 75 6e 63 20 20 20 20 7d 2c 0a 20 20 absFunc },.
9a90: 20 20 7b 20 22 72 6f 75 6e 64 22 2c 20 20 20 20 { "round",
9aa0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
9ab0: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 SQLITE_UTF8,
9ac0: 30 2c 20 72 6f 75 6e 64 46 75 6e 63 20 20 7d 2c 0, roundFunc },
9ad0: 0a 20 20 20 20 7b 20 22 72 6f 75 6e 64 22 2c 20 . { "round",
9ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 2,
9af0: 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0, SQLITE_UTF8,
9b00: 20 20 20 30 2c 20 72 6f 75 6e 64 46 75 6e 63 20 0, roundFunc
9b10: 20 7d 2c 0a 20 20 20 20 7b 20 22 75 70 70 65 72 },. { "upper
9b20: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
9b30: 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 1, 0, SQLITE_UTF
9b40: 38 2c 20 20 20 20 30 2c 20 75 70 70 65 72 46 75 8, 0, upperFu
9b50: 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6c 6f nc },. { "lo
9b60: 77 65 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 wer",
9b70: 20 20 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 1, 0, SQLITE_
9b80: 55 54 46 38 2c 20 20 20 20 30 2c 20 6c 6f 77 65 UTF8, 0, lowe
9b90: 72 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 rFunc },. {
9ba0: 22 63 6f 61 6c 65 73 63 65 22 2c 20 20 20 20 20 "coalesce",
9bb0: 20 20 20 20 20 2d 31 2c 20 30 2c 20 53 51 4c 49 -1, 0, SQLI
9bc0: 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 69 TE_UTF8, 0, i
9bd0: 66 6e 75 6c 6c 46 75 6e 63 20 7d 2c 0a 20 20 20 fnullFunc },.
9be0: 20 7b 20 22 63 6f 61 6c 65 73 63 65 22 2c 20 20 { "coalesce",
9bf0: 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 53 0, 0, S
9c00: 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 QLITE_UTF8, 0
9c10: 2c 20 30 20 20 20 20 20 20 20 20 20 20 7d 2c 0a , 0 },.
9c20: 20 20 20 20 7b 20 22 63 6f 61 6c 65 73 63 65 22 { "coalesce"
9c30: 2c 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 , 1, 0
9c40: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 , SQLITE_UTF8,
9c50: 20 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 0, 0
9c60: 7d 2c 0a 20 20 20 20 7b 20 22 68 65 78 22 2c 20 },. { "hex",
9c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 1
9c80: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 0, SQLITE_UTF8
9c90: 2c 20 20 20 20 30 2c 20 68 65 78 46 75 6e 63 20 , 0, hexFunc
9ca0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 69 66 6e },. { "ifn
9cb0: 75 6c 6c 22 2c 20 20 20 20 20 20 20 20 20 20 20 ull",
9cc0: 20 20 32 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 2, 0, SQLITE_U
9cd0: 54 46 38 2c 20 20 20 20 31 2c 20 69 66 6e 75 6c TF8, 1, ifnul
9ce0: 6c 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 22 lFunc },. { "
9cf0: 72 61 6e 64 6f 6d 22 2c 20 20 20 20 20 20 20 20 random",
9d00: 20 20 20 20 2d 31 2c 20 30 2c 20 53 51 4c 49 54 -1, 0, SQLIT
9d10: 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 72 61 E_UTF8, 0, ra
9d20: 6e 64 6f 6d 46 75 6e 63 20 7d 2c 0a 20 20 20 20 ndomFunc },.
9d30: 7b 20 22 72 61 6e 64 6f 6d 62 6c 6f 62 22 2c 20 { "randomblob",
9d40: 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 53 51 1, 0, SQ
9d50: 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c LITE_UTF8, 0,
9d60: 20 72 61 6e 64 6f 6d 42 6c 6f 62 20 7d 2c 0a 20 randomBlob },.
9d70: 20 20 20 7b 20 22 6e 75 6c 6c 69 66 22 2c 20 20 { "nullif",
9d80: 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 30 2c 2, 0,
9d90: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 SQLITE_UTF8,
9da0: 20 31 2c 20 6e 75 6c 6c 69 66 46 75 6e 63 20 7d 1, nullifFunc }
9db0: 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f ,. { "sqlite_
9dc0: 76 65 72 73 69 6f 6e 22 2c 20 20 20 20 20 30 2c version", 0,
9dd0: 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 0, SQLITE_UTF8,
9de0: 20 20 20 20 30 2c 20 76 65 72 73 69 6f 6e 46 75 0, versionFu
9df0: 6e 63 7d 2c 0a 20 20 20 20 7b 20 22 71 75 6f 74 nc},. { "quot
9e00: 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 e",
9e10: 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 1, 0, SQLITE_UT
9e20: 46 38 2c 20 20 20 20 30 2c 20 71 75 6f 74 65 46 F8, 0, quoteF
9e30: 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6c unc },. { "l
9e40: 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 ast_insert_rowid
9e50: 22 2c 20 20 30 2c 20 30 78 66 66 2c 20 53 51 4c ", 0, 0xff, SQL
9e60: 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 6c 61 73 ITE_UTF8, 0, las
9e70: 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 20 7d t_insert_rowid }
9e80: 2c 0a 20 20 20 20 7b 20 22 63 68 61 6e 67 65 73 ,. { "changes
9e90: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 30 2c ", 0,
9ea0: 20 30 78 66 66 2c 20 53 51 4c 49 54 45 5f 55 54 0xff, SQLITE_UT
9eb0: 46 38 2c 20 30 2c 20 63 68 61 6e 67 65 73 20 20 F8, 0, changes
9ec0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
9ed0: 7b 20 22 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 { "total_changes
9ee0: 22 2c 20 20 20 20 20 20 30 2c 20 30 78 66 66 2c ", 0, 0xff,
9ef0: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c SQLITE_UTF8, 0,
9f00: 20 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 20 20 total_changes
9f10: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 72 65 70 },. { "rep
9f20: 6c 61 63 65 22 2c 20 20 20 20 20 20 20 20 20 20 lace",
9f30: 20 20 33 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 3, 0, SQLITE_U
9f40: 54 46 38 2c 20 20 20 20 30 2c 20 72 65 70 6c 61 TF8, 0, repla
9f50: 63 65 46 75 6e 63 20 20 20 20 20 20 20 7d 2c 0a ceFunc },.
9f60: 20 20 20 20 7b 20 22 6c 74 72 69 6d 22 2c 20 20 { "ltrim",
9f70: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 31 1, 1
9f80: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 , SQLITE_UTF8,
9f90: 20 20 30 2c 20 74 72 69 6d 46 75 6e 63 20 20 20 0, trimFunc
9fa0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
9fb0: 22 6c 74 72 69 6d 22 2c 20 20 20 20 20 20 20 20 "ltrim",
9fc0: 20 20 20 20 20 20 32 2c 20 31 2c 20 53 51 4c 49 2, 1, SQLI
9fd0: 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 74 TE_UTF8, 0, t
9fe0: 72 69 6d 46 75 6e 63 20 20 20 20 20 20 20 20 20 rimFunc
9ff0: 20 7d 2c 0a 20 20 20 20 7b 20 22 72 74 72 69 6d },. { "rtrim
a000: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
a010: 31 2c 20 32 2c 20 53 51 4c 49 54 45 5f 55 54 46 1, 2, SQLITE_UTF
a020: 38 2c 20 20 20 20 30 2c 20 74 72 69 6d 46 75 6e 8, 0, trimFun
a030: 63 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 c },.
a040: 20 20 7b 20 22 72 74 72 69 6d 22 2c 20 20 20 20 { "rtrim",
a050: 20 20 20 20 20 20 20 20 20 20 32 2c 20 32 2c 20 2, 2,
a060: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 SQLITE_UTF8,
a070: 30 2c 20 74 72 69 6d 46 75 6e 63 20 20 20 20 20 0, trimFunc
a080: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 74 },. { "t
a090: 72 69 6d 22 2c 20 20 20 20 20 20 20 20 20 20 20 rim",
a0a0: 20 20 20 20 31 2c 20 33 2c 20 53 51 4c 49 54 45 1, 3, SQLITE
a0b0: 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 74 72 69 _UTF8, 0, tri
a0c0: 6d 46 75 6e 63 20 20 20 20 20 20 20 20 20 20 7d mFunc }
a0d0: 2c 0a 20 20 20 20 7b 20 22 74 72 69 6d 22 2c 20 ,. { "trim",
a0e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 2,
a0f0: 20 33 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 3, SQLITE_UTF8,
a100: 20 20 20 20 30 2c 20 74 72 69 6d 46 75 6e 63 20 0, trimFunc
a110: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
a120: 7b 20 22 7a 65 72 6f 62 6c 6f 62 22 2c 20 20 20 { "zeroblob",
a130: 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 53 51 1, 0, SQ
a140: 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c LITE_UTF8, 0,
a150: 20 7a 65 72 6f 62 6c 6f 62 46 75 6e 63 20 20 20 zeroblobFunc
a160: 20 20 20 7d 2c 0a 23 69 66 64 65 66 20 53 51 4c },.#ifdef SQL
a170: 49 54 45 5f 53 4f 55 4e 44 45 58 0a 20 20 20 20 ITE_SOUNDEX.
a180: 7b 20 22 73 6f 75 6e 64 65 78 22 2c 20 20 20 20 { "soundex",
a190: 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 53 51 1, 0, SQ
a1a0: 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c LITE_UTF8, 0,
a1b0: 20 73 6f 75 6e 64 65 78 46 75 6e 63 7d 2c 0a 23 soundexFunc},.#
a1c0: 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 53 51 endif.#ifndef SQ
a1d0: 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 LITE_OMIT_LOAD_E
a1e0: 58 54 45 4e 53 49 4f 4e 0a 20 20 20 20 7b 20 22 XTENSION. { "
a1f0: 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 22 2c load_extension",
a200: 20 20 20 20 20 31 2c 20 30 78 66 66 2c 20 53 51 1, 0xff, SQ
a210: 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 6c 6f LITE_UTF8, 0, lo
a220: 61 64 45 78 74 20 7d 2c 0a 20 20 20 20 7b 20 22 adExt },. { "
a230: 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 22 2c load_extension",
a240: 20 20 20 20 20 32 2c 20 30 78 66 66 2c 20 53 51 2, 0xff, SQ
a250: 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 6c 6f LITE_UTF8, 0, lo
a260: 61 64 45 78 74 20 7d 2c 0a 23 65 6e 64 69 66 0a adExt },.#endif.
a270: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 #ifdef SQLITE_TE
a280: 53 54 0a 20 20 20 20 7b 20 22 72 61 6e 64 73 74 ST. { "randst
a290: 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 r",
a2a0: 20 20 32 2c 20 30 2c 20 20 20 20 53 51 4c 49 54 2, 0, SQLIT
a2b0: 45 5f 55 54 46 38 2c 20 30 2c 20 72 61 6e 64 53 E_UTF8, 0, randS
a2c0: 74 72 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 tr },. { "
a2d0: 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 22 test_destructor"
a2e0: 2c 20 20 20 20 20 20 20 31 2c 20 30 78 66 66 2c , 1, 0xff,
a2f0: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c SQLITE_UTF8, 0,
a300: 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 test_destructor
a310: 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 64 },. { "test_d
a320: 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 22 estructor_count"
a330: 2c 20 30 2c 20 30 2c 20 20 20 20 53 51 4c 49 54 , 0, 0, SQLIT
a340: 45 5f 55 54 46 38 2c 20 30 2c 20 74 65 73 74 5f E_UTF8, 0, test_
a350: 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 destructor_count
a360: 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 61 },. { "test_a
a370: 75 78 64 61 74 61 22 2c 20 20 20 20 20 20 20 20 uxdata",
a380: 20 2d 31 2c 20 30 2c 20 20 20 20 53 51 4c 49 54 -1, 0, SQLIT
a390: 45 5f 55 54 46 38 2c 20 30 2c 20 74 65 73 74 5f E_UTF8, 0, test_
a3a0: 61 75 78 64 61 74 61 7d 2c 0a 20 20 20 20 7b 20 auxdata},. {
a3b0: 22 74 65 73 74 5f 65 72 72 6f 72 22 2c 20 20 20 "test_error",
a3c0: 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 20 1, 0,
a3d0: 20 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 SQLITE_UTF8, 0
a3e0: 2c 20 74 65 73 74 5f 65 72 72 6f 72 7d 2c 0a 23 , test_error},.#
a3f0: 65 6e 64 69 66 0a 20 20 7d 3b 0a 20 20 73 74 61 endif. };. sta
a400: 74 69 63 20 63 6f 6e 73 74 20 73 74 72 75 63 74 tic const struct
a410: 20 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 {. char *zNa
a420: 6d 65 3b 0a 20 20 20 20 73 69 67 6e 65 64 20 63 me;. signed c
a430: 68 61 72 20 6e 41 72 67 3b 0a 20 20 20 20 75 38 har nArg;. u8
a440: 20 61 72 67 54 79 70 65 3b 0a 20 20 20 20 75 38 argType;. u8
a450: 20 6e 65 65 64 43 6f 6c 6c 53 65 71 3b 0a 20 20 needCollSeq;.
a460: 20 20 76 6f 69 64 20 28 2a 78 53 74 65 70 29 28 void (*xStep)(
a470: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 2a sqlite3_context*
a480: 2c 69 6e 74 2c 73 71 6c 69 74 65 33 5f 76 61 6c ,int,sqlite3_val
a490: 75 65 2a 2a 29 3b 0a 20 20 20 20 76 6f 69 64 20 ue**);. void
a4a0: 28 2a 78 46 69 6e 61 6c 69 7a 65 29 28 73 71 6c (*xFinalize)(sql
a4b0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 2a 29 3b 0a ite3_context*);.
a4c0: 20 20 7d 20 61 41 67 67 73 5b 5d 20 3d 20 7b 0a } aAggs[] = {.
a4d0: 20 20 20 20 7b 20 22 6d 69 6e 22 2c 20 20 20 20 { "min",
a4e0: 31 2c 20 30 2c 20 31 2c 20 6d 69 6e 6d 61 78 53 1, 0, 1, minmaxS
a4f0: 74 65 70 2c 20 20 20 6d 69 6e 4d 61 78 46 69 6e tep, minMaxFin
a500: 61 6c 69 7a 65 20 7d 2c 0a 20 20 20 20 7b 20 22 alize },. { "
a510: 6d 61 78 22 2c 20 20 20 20 31 2c 20 31 2c 20 31 max", 1, 1, 1
a520: 2c 20 6d 69 6e 6d 61 78 53 74 65 70 2c 20 20 20 , minmaxStep,
a530: 6d 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 20 7d minMaxFinalize }
a540: 2c 0a 20 20 20 20 7b 20 22 73 75 6d 22 2c 20 20 ,. { "sum",
a550: 20 20 31 2c 20 30 2c 20 30 2c 20 73 75 6d 53 74 1, 0, 0, sumSt
a560: 65 70 2c 20 20 20 20 20 20 73 75 6d 46 69 6e 61 ep, sumFina
a570: 6c 69 7a 65 20 20 20 20 7d 2c 0a 20 20 20 20 7b lize },. {
a580: 20 22 74 6f 74 61 6c 22 2c 20 20 31 2c 20 30 2c "total", 1, 0,
a590: 20 30 2c 20 73 75 6d 53 74 65 70 2c 20 20 20 20 0, sumStep,
a5a0: 20 20 74 6f 74 61 6c 46 69 6e 61 6c 69 7a 65 20 totalFinalize
a5b0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 61 76 67 },. { "avg
a5c0: 22 2c 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 73 ", 1, 0, 0, s
a5d0: 75 6d 53 74 65 70 2c 20 20 20 20 20 20 61 76 67 umStep, avg
a5e0: 46 69 6e 61 6c 69 7a 65 20 20 20 20 7d 2c 0a 20 Finalize },.
a5f0: 20 20 20 7b 20 22 63 6f 75 6e 74 22 2c 20 20 30 { "count", 0
a600: 2c 20 30 2c 20 30 2c 20 63 6f 75 6e 74 53 74 65 , 0, 0, countSte
a610: 70 2c 20 20 20 20 63 6f 75 6e 74 46 69 6e 61 6c p, countFinal
a620: 69 7a 65 20 20 7d 2c 0a 20 20 20 20 7b 20 22 63 ize },. { "c
a630: 6f 75 6e 74 22 2c 20 20 31 2c 20 30 2c 20 30 2c ount", 1, 0, 0,
a640: 20 63 6f 75 6e 74 53 74 65 70 2c 20 20 20 20 63 countStep, c
a650: 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 20 20 7d 2c ountFinalize },
a660: 0a 20 20 20 20 7b 20 22 67 72 6f 75 70 5f 63 6f . { "group_co
a670: 6e 63 61 74 22 2c 20 31 2c 20 30 2c 20 30 2c 20 ncat", 1, 0, 0,
a680: 67 72 6f 75 70 43 6f 6e 63 61 74 53 74 65 70 2c groupConcatStep,
a690: 20 67 72 6f 75 70 43 6f 6e 63 61 74 46 69 6e 61 groupConcatFina
a6a0: 6c 69 7a 65 20 7d 2c 0a 20 20 20 20 7b 20 22 67 lize },. { "g
a6b0: 72 6f 75 70 5f 63 6f 6e 63 61 74 22 2c 20 32 2c roup_concat", 2,
a6c0: 20 30 2c 20 30 2c 20 67 72 6f 75 70 43 6f 6e 63 0, 0, groupConc
a6d0: 61 74 53 74 65 70 2c 20 67 72 6f 75 70 43 6f 6e atStep, groupCon
a6e0: 63 61 74 46 69 6e 61 6c 69 7a 65 20 7d 2c 0a 20 catFinalize },.
a6f0: 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 };. int i;..
a700: 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f for(i=0; i<sizeo
a710: 66 28 61 46 75 6e 63 73 29 2f 73 69 7a 65 6f 66 f(aFuncs)/sizeof
a720: 28 61 46 75 6e 63 73 5b 30 5d 29 3b 20 69 2b 2b (aFuncs[0]); i++
a730: 29 7b 0a 20 20 20 20 76 6f 69 64 20 2a 70 41 72 ){. void *pAr
a740: 67 3b 0a 20 20 20 20 75 38 20 61 72 67 54 79 70 g;. u8 argTyp
a750: 65 20 3d 20 61 46 75 6e 63 73 5b 69 5d 2e 61 72 e = aFuncs[i].ar
a760: 67 54 79 70 65 3b 0a 20 20 20 20 69 66 28 20 61 gType;. if( a
a770: 72 67 54 79 70 65 3d 3d 30 78 66 66 20 29 7b 0a rgType==0xff ){.
a780: 20 20 20 20 20 20 70 41 72 67 20 3d 20 64 62 3b pArg = db;
a790: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
a7a0: 20 20 70 41 72 67 20 3d 20 28 76 6f 69 64 2a 29 pArg = (void*)
a7b0: 28 69 6e 74 29 61 72 67 54 79 70 65 3b 0a 20 20 (int)argType;.
a7c0: 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 43 }. sqlite3C
a7d0: 72 65 61 74 65 46 75 6e 63 28 64 62 2c 20 61 46 reateFunc(db, aF
a7e0: 75 6e 63 73 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 uncs[i].zName, a
a7f0: 46 75 6e 63 73 5b 69 5d 2e 6e 41 72 67 2c 0a 20 Funcs[i].nArg,.
a800: 20 20 20 20 20 20 20 61 46 75 6e 63 73 5b 69 5d aFuncs[i]
a810: 2e 65 54 65 78 74 52 65 70 2c 20 70 41 72 67 2c .eTextRep, pArg,
a820: 20 61 46 75 6e 63 73 5b 69 5d 2e 78 46 75 6e 63 aFuncs[i].xFunc
a830: 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 69 66 28 , 0, 0);. if(
a840: 20 61 46 75 6e 63 73 5b 69 5d 2e 6e 65 65 64 43 aFuncs[i].needC
a850: 6f 6c 6c 53 65 71 20 29 7b 0a 20 20 20 20 20 20 ollSeq ){.
a860: 46 75 6e 63 44 65 66 20 2a 70 46 75 6e 63 20 3d FuncDef *pFunc =
a870: 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e 63 sqlite3FindFunc
a880: 74 69 6f 6e 28 64 62 2c 20 61 46 75 6e 63 73 5b tion(db, aFuncs[
a890: 69 5d 2e 7a 4e 61 6d 65 2c 20 0a 20 20 20 20 20 i].zName, .
a8a0: 20 20 20 20 20 73 74 72 6c 65 6e 28 61 46 75 6e strlen(aFun
a8b0: 63 73 5b 69 5d 2e 7a 4e 61 6d 65 29 2c 20 61 46 cs[i].zName), aF
a8c0: 75 6e 63 73 5b 69 5d 2e 6e 41 72 67 2c 20 61 46 uncs[i].nArg, aF
a8d0: 75 6e 63 73 5b 69 5d 2e 65 54 65 78 74 52 65 70 uncs[i].eTextRep
a8e0: 2c 20 30 29 3b 0a 20 20 20 20 20 20 69 66 28 20 , 0);. if(
a8f0: 70 46 75 6e 63 20 26 26 20 61 46 75 6e 63 73 5b pFunc && aFuncs[
a900: 69 5d 2e 6e 65 65 64 43 6f 6c 6c 53 65 71 20 29 i].needCollSeq )
a910: 7b 0a 20 20 20 20 20 20 20 20 70 46 75 6e 63 2d {. pFunc-
a920: 3e 6e 65 65 64 43 6f 6c 6c 53 65 71 20 3d 20 31 >needCollSeq = 1
a930: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a ;. }. }.
a940: 20 20 7d 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 }.#ifndef SQLI
a950: 54 45 5f 4f 4d 49 54 5f 41 4c 54 45 52 54 41 42 TE_OMIT_ALTERTAB
a960: 4c 45 0a 20 20 73 71 6c 69 74 65 33 41 6c 74 65 LE. sqlite3Alte
a970: 72 46 75 6e 63 74 69 6f 6e 73 28 64 62 29 3b 0a rFunctions(db);.
a980: 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 53 #endif.#ifndef S
a990: 51 4c 49 54 45 5f 4f 4d 49 54 5f 50 41 52 53 45 QLITE_OMIT_PARSE
a9a0: 52 0a 20 20 73 71 6c 69 74 65 33 41 74 74 61 63 R. sqlite3Attac
a9b0: 68 46 75 6e 63 74 69 6f 6e 73 28 64 62 29 3b 0a hFunctions(db);.
a9c0: 23 65 6e 64 69 66 0a 20 20 66 6f 72 28 69 3d 30 #endif. for(i=0
a9d0: 3b 20 69 3c 73 69 7a 65 6f 66 28 61 41 67 67 73 ; i<sizeof(aAggs
a9e0: 29 2f 73 69 7a 65 6f 66 28 61 41 67 67 73 5b 30 )/sizeof(aAggs[0
a9f0: 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 76 6f ]); i++){. vo
aa00: 69 64 20 2a 70 41 72 67 20 3d 20 28 76 6f 69 64 id *pArg = (void
aa10: 2a 29 28 69 6e 74 29 61 41 67 67 73 5b 69 5d 2e *)(int)aAggs[i].
aa20: 61 72 67 54 79 70 65 3b 0a 20 20 20 20 73 71 6c argType;. sql
aa30: 69 74 65 33 43 72 65 61 74 65 46 75 6e 63 28 64 ite3CreateFunc(d
aa40: 62 2c 20 61 41 67 67 73 5b 69 5d 2e 7a 4e 61 6d b, aAggs[i].zNam
aa50: 65 2c 20 61 41 67 67 73 5b 69 5d 2e 6e 41 72 67 e, aAggs[i].nArg
aa60: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0a , SQLITE_UTF8, .
aa70: 20 20 20 20 20 20 20 20 70 41 72 67 2c 20 30 2c pArg, 0,
aa80: 20 61 41 67 67 73 5b 69 5d 2e 78 53 74 65 70 2c aAggs[i].xStep,
aa90: 20 61 41 67 67 73 5b 69 5d 2e 78 46 69 6e 61 6c aAggs[i].xFinal
aaa0: 69 7a 65 29 3b 0a 20 20 20 20 69 66 28 20 61 41 ize);. if( aA
aab0: 67 67 73 5b 69 5d 2e 6e 65 65 64 43 6f 6c 6c 53 ggs[i].needCollS
aac0: 65 71 20 29 7b 0a 20 20 20 20 20 20 46 75 6e 63 eq ){. Func
aad0: 44 65 66 20 2a 70 46 75 6e 63 20 3d 20 73 71 6c Def *pFunc = sql
aae0: 69 74 65 33 46 69 6e 64 46 75 6e 63 74 69 6f 6e ite3FindFunction
aaf0: 28 20 64 62 2c 20 61 41 67 67 73 5b 69 5d 2e 7a ( db, aAggs[i].z
ab00: 4e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 Name,.
ab10: 73 74 72 6c 65 6e 28 61 41 67 67 73 5b 69 5d 2e strlen(aAggs[i].
ab20: 7a 4e 61 6d 65 29 2c 20 61 41 67 67 73 5b 69 5d zName), aAggs[i]
ab30: 2e 6e 41 72 67 2c 20 53 51 4c 49 54 45 5f 55 54 .nArg, SQLITE_UT
ab40: 46 38 2c 20 30 29 3b 0a 20 20 20 20 20 20 69 66 F8, 0);. if
ab50: 28 20 70 46 75 6e 63 20 26 26 20 61 41 67 67 73 ( pFunc && aAggs
ab60: 5b 69 5d 2e 6e 65 65 64 43 6f 6c 6c 53 65 71 20 [i].needCollSeq
ab70: 29 7b 0a 20 20 20 20 20 20 20 20 70 46 75 6e 63 ){. pFunc
ab80: 2d 3e 6e 65 65 64 43 6f 6c 6c 53 65 71 20 3d 20 ->needCollSeq =
ab90: 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 1;. }. }
aba0: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 52 65 . }. sqlite3Re
abb0: 67 69 73 74 65 72 44 61 74 65 54 69 6d 65 46 75 gisterDateTimeFu
abc0: 6e 63 74 69 6f 6e 73 28 64 62 29 3b 0a 20 20 69 nctions(db);. i
abd0: 66 28 20 21 64 62 2d 3e 6d 61 6c 6c 6f 63 46 61 f( !db->mallocFa
abe0: 69 6c 65 64 20 29 7b 0a 20 20 20 20 69 6e 74 20 iled ){. int
abf0: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 6f 76 65 rc = sqlite3_ove
ac00: 72 6c 6f 61 64 5f 66 75 6e 63 74 69 6f 6e 28 64 rload_function(d
ac10: 62 2c 20 22 4d 41 54 43 48 22 2c 20 32 29 3b 0a b, "MATCH", 2);.
ac20: 20 20 20 20 61 73 73 65 72 74 28 20 72 63 3d 3d assert( rc==
ac30: 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 20 7c 7c 20 SQLITE_NOMEM ||
ac40: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 3b rc==SQLITE_OK );
ac50: 0a 20 20 20 20 69 66 28 20 72 63 3d 3d 53 51 4c . if( rc==SQL
ac60: 49 54 45 5f 4e 4f 4d 45 4d 20 29 7b 0a 20 20 20 ITE_NOMEM ){.
ac70: 20 20 20 64 62 2d 3e 6d 61 6c 6c 6f 63 46 61 69 db->mallocFai
ac80: 6c 65 64 20 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 led = 1;. }.
ac90: 20 7d 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 }.#ifdef SQLITE
aca0: 5f 53 53 45 0a 20 20 28 76 6f 69 64 29 73 71 6c _SSE. (void)sql
acb0: 69 74 65 33 53 73 65 46 75 6e 63 74 69 6f 6e 73 ite3SseFunctions
acc0: 28 64 62 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 (db);.#endif.#if
acd0: 64 65 66 20 53 51 4c 49 54 45 5f 43 41 53 45 5f def SQLITE_CASE_
ace0: 53 45 4e 53 49 54 49 56 45 5f 4c 49 4b 45 0a 20 SENSITIVE_LIKE.
acf0: 20 73 71 6c 69 74 65 33 52 65 67 69 73 74 65 72 sqlite3Register
ad00: 4c 69 6b 65 46 75 6e 63 74 69 6f 6e 73 28 64 62 LikeFunctions(db
ad10: 2c 20 31 29 3b 0a 23 65 6c 73 65 0a 20 20 73 71 , 1);.#else. sq
ad20: 6c 69 74 65 33 52 65 67 69 73 74 65 72 4c 69 6b lite3RegisterLik
ad30: 65 46 75 6e 63 74 69 6f 6e 73 28 64 62 2c 20 30 eFunctions(db, 0
ad40: 29 3b 0a 23 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a );.#endif.}../*.
ad50: 2a 2a 20 53 65 74 20 74 68 65 20 4c 49 4b 45 4f ** Set the LIKEO
ad60: 50 54 20 66 6c 61 67 20 6f 6e 20 74 68 65 20 32 PT flag on the 2
ad70: 2d 61 72 67 75 6d 65 6e 74 20 66 75 6e 63 74 69 -argument functi
ad80: 6f 6e 20 77 69 74 68 20 74 68 65 20 67 69 76 65 on with the give
ad90: 6e 20 6e 61 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 n name..*/.stati
ada0: 63 20 76 6f 69 64 20 73 65 74 4c 69 6b 65 4f 70 c void setLikeOp
adb0: 74 46 6c 61 67 28 73 71 6c 69 74 65 33 20 2a 64 tFlag(sqlite3 *d
adc0: 62 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a b, const char *z
add0: 4e 61 6d 65 2c 20 69 6e 74 20 66 6c 61 67 56 61 Name, int flagVa
ade0: 6c 29 7b 0a 20 20 46 75 6e 63 44 65 66 20 2a 70 l){. FuncDef *p
adf0: 44 65 66 3b 0a 20 20 70 44 65 66 20 3d 20 73 71 Def;. pDef = sq
ae00: 6c 69 74 65 33 46 69 6e 64 46 75 6e 63 74 69 6f lite3FindFunctio
ae10: 6e 28 64 62 2c 20 7a 4e 61 6d 65 2c 20 73 74 72 n(db, zName, str
ae20: 6c 65 6e 28 7a 4e 61 6d 65 29 2c 20 32 2c 20 53 len(zName), 2, S
ae30: 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 29 3b 0a QLITE_UTF8, 0);.
ae40: 20 20 69 66 28 20 70 44 65 66 20 29 7b 0a 20 20 if( pDef ){.
ae50: 20 20 70 44 65 66 2d 3e 66 6c 61 67 73 20 3d 20 pDef->flags =
ae60: 66 6c 61 67 56 61 6c 3b 0a 20 20 7d 0a 7d 0a 0a flagVal;. }.}..
ae70: 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 20 74 /*.** Register t
ae80: 68 65 20 62 75 69 6c 74 2d 69 6e 20 4c 49 4b 45 he built-in LIKE
ae90: 20 61 6e 64 20 47 4c 4f 42 20 66 75 6e 63 74 69 and GLOB functi
aea0: 6f 6e 73 2e 20 20 54 68 65 20 63 61 73 65 53 65 ons. The caseSe
aeb0: 6e 73 69 74 69 76 65 0a 2a 2a 20 70 61 72 61 6d nsitive.** param
aec0: 65 74 65 72 20 64 65 74 65 72 6d 69 6e 65 73 20 eter determines
aed0: 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 whether or not t
aee0: 68 65 20 4c 49 4b 45 20 6f 70 65 72 61 74 6f 72 he LIKE operator
aef0: 20 69 73 20 63 61 73 65 0a 2a 2a 20 73 65 6e 73 is case.** sens
af00: 69 74 69 76 65 2e 20 20 47 4c 4f 42 20 69 73 20 itive. GLOB is
af10: 61 6c 77 61 79 73 20 63 61 73 65 20 73 65 6e 73 always case sens
af20: 69 74 69 76 65 2e 0a 2a 2f 0a 76 6f 69 64 20 73 itive..*/.void s
af30: 71 6c 69 74 65 33 52 65 67 69 73 74 65 72 4c 69 qlite3RegisterLi
af40: 6b 65 46 75 6e 63 74 69 6f 6e 73 28 73 71 6c 69 keFunctions(sqli
af50: 74 65 33 20 2a 64 62 2c 20 69 6e 74 20 63 61 73 te3 *db, int cas
af60: 65 53 65 6e 73 69 74 69 76 65 29 7b 0a 20 20 73 eSensitive){. s
af70: 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 truct compareInf
af80: 6f 20 2a 70 49 6e 66 6f 3b 0a 20 20 69 66 28 20 o *pInfo;. if(
af90: 63 61 73 65 53 65 6e 73 69 74 69 76 65 20 29 7b caseSensitive ){
afa0: 0a 20 20 20 20 70 49 6e 66 6f 20 3d 20 28 73 74 . pInfo = (st
afb0: 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f ruct compareInfo
afc0: 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 3b 0a *)&likeInfoAlt;.
afd0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 70 49 6e }else{. pIn
afe0: 66 6f 20 3d 20 28 73 74 72 75 63 74 20 63 6f 6d fo = (struct com
aff0: 70 61 72 65 49 6e 66 6f 2a 29 26 6c 69 6b 65 49 pareInfo*)&likeI
b000: 6e 66 6f 4e 6f 72 6d 3b 0a 20 20 7d 0a 20 20 73 nfoNorm;. }. s
b010: 71 6c 69 74 65 33 43 72 65 61 74 65 46 75 6e 63 qlite3CreateFunc
b020: 28 64 62 2c 20 22 6c 69 6b 65 22 2c 20 32 2c 20 (db, "like", 2,
b030: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 70 49 6e SQLITE_UTF8, pIn
b040: 66 6f 2c 20 6c 69 6b 65 46 75 6e 63 2c 20 30 2c fo, likeFunc, 0,
b050: 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 43 72 0);. sqlite3Cr
b060: 65 61 74 65 46 75 6e 63 28 64 62 2c 20 22 6c 69 eateFunc(db, "li
b070: 6b 65 22 2c 20 33 2c 20 53 51 4c 49 54 45 5f 55 ke", 3, SQLITE_U
b080: 54 46 38 2c 20 70 49 6e 66 6f 2c 20 6c 69 6b 65 TF8, pInfo, like
b090: 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 73 Func, 0, 0);. s
b0a0: 71 6c 69 74 65 33 43 72 65 61 74 65 46 75 6e 63 qlite3CreateFunc
b0b0: 28 64 62 2c 20 22 67 6c 6f 62 22 2c 20 32 2c 20 (db, "glob", 2,
b0c0: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0a 20 20 SQLITE_UTF8, .
b0d0: 20 20 20 20 28 73 74 72 75 63 74 20 63 6f 6d 70 (struct comp
b0e0: 61 72 65 49 6e 66 6f 2a 29 26 67 6c 6f 62 49 6e areInfo*)&globIn
b0f0: 66 6f 2c 20 6c 69 6b 65 46 75 6e 63 2c 20 30 2c fo, likeFunc, 0,
b100: 30 29 3b 0a 20 20 73 65 74 4c 69 6b 65 4f 70 74 0);. setLikeOpt
b110: 46 6c 61 67 28 64 62 2c 20 22 67 6c 6f 62 22 2c Flag(db, "glob",
b120: 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c 49 4b SQLITE_FUNC_LIK
b130: 45 20 7c 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f E | SQLITE_FUNC_
b140: 43 41 53 45 29 3b 0a 20 20 73 65 74 4c 69 6b 65 CASE);. setLike
b150: 4f 70 74 46 6c 61 67 28 64 62 2c 20 22 6c 69 6b OptFlag(db, "lik
b160: 65 22 2c 20 0a 20 20 20 20 20 20 63 61 73 65 53 e", . caseS
b170: 65 6e 73 69 74 69 76 65 20 3f 20 28 53 51 4c 49 ensitive ? (SQLI
b180: 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 20 7c 20 53 TE_FUNC_LIKE | S
b190: 51 4c 49 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 QLITE_FUNC_CASE)
b1a0: 20 3a 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c : SQLITE_FUNC_L
b1b0: 49 4b 45 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 70 IKE);.}../*.** p
b1c0: 45 78 70 72 20 70 6f 69 6e 74 73 20 74 6f 20 61 Expr points to a
b1d0: 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 77 68 69 n expression whi
b1e0: 63 68 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61 20 ch implements a
b1f0: 66 75 6e 63 74 69 6f 6e 2e 20 20 49 66 0a 2a 2a function. If.**
b200: 20 69 74 20 69 73 20 61 70 70 72 6f 70 72 69 61 it is appropria
b210: 74 65 20 74 6f 20 61 70 70 6c 79 20 74 68 65 20 te to apply the
b220: 4c 49 4b 45 20 6f 70 74 69 6d 69 7a 61 74 69 6f LIKE optimizatio
b230: 6e 20 74 6f 20 74 68 61 74 20 66 75 6e 63 74 69 n to that functi
b240: 6f 6e 0a 2a 2a 20 74 68 65 6e 20 73 65 74 20 61 on.** then set a
b250: 57 63 5b 30 5d 20 74 68 72 6f 75 67 68 20 61 57 Wc[0] through aW
b260: 63 5b 32 5d 20 74 6f 20 74 68 65 20 77 69 6c 64 c[2] to the wild
b270: 63 61 72 64 20 63 68 61 72 61 63 74 65 72 73 20 card characters
b280: 61 6e 64 0a 2a 2a 20 72 65 74 75 72 6e 20 54 52 and.** return TR
b290: 55 45 2e 20 20 49 66 20 74 68 65 20 66 75 6e 63 UE. If the func
b2a0: 74 69 6f 6e 20 69 73 20 6e 6f 74 20 61 20 4c 49 tion is not a LI
b2b0: 4b 45 2d 73 74 79 6c 65 20 66 75 6e 63 74 69 6f KE-style functio
b2c0: 6e 20 74 68 65 6e 0a 2a 2a 20 72 65 74 75 72 6e n then.** return
b2d0: 20 46 41 4c 53 45 2e 0a 2a 2f 0a 69 6e 74 20 73 FALSE..*/.int s
b2e0: 71 6c 69 74 65 33 49 73 4c 69 6b 65 46 75 6e 63 qlite3IsLikeFunc
b2f0: 74 69 6f 6e 28 73 71 6c 69 74 65 33 20 2a 64 62 tion(sqlite3 *db
b300: 2c 20 45 78 70 72 20 2a 70 45 78 70 72 2c 20 69 , Expr *pExpr, i
b310: 6e 74 20 2a 70 49 73 4e 6f 63 61 73 65 2c 20 63 nt *pIsNocase, c
b320: 68 61 72 20 2a 61 57 63 29 7b 0a 20 20 46 75 6e har *aWc){. Fun
b330: 63 44 65 66 20 2a 70 44 65 66 3b 0a 20 20 69 66 cDef *pDef;. if
b340: 28 20 70 45 78 70 72 2d 3e 6f 70 21 3d 54 4b 5f ( pExpr->op!=TK_
b350: 46 55 4e 43 54 49 4f 4e 20 7c 7c 20 21 70 45 78 FUNCTION || !pEx
b360: 70 72 2d 3e 70 4c 69 73 74 20 29 7b 0a 20 20 20 pr->pList ){.
b370: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 return 0;. }.
b380: 20 69 66 28 20 70 45 78 70 72 2d 3e 70 4c 69 73 if( pExpr->pLis
b390: 74 2d 3e 6e 45 78 70 72 21 3d 32 20 29 7b 0a 20 t->nExpr!=2 ){.
b3a0: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d return 0;. }
b3b0: 0a 20 20 70 44 65 66 20 3d 20 73 71 6c 69 74 65 . pDef = sqlite
b3c0: 33 46 69 6e 64 46 75 6e 63 74 69 6f 6e 28 64 62 3FindFunction(db
b3d0: 2c 20 28 63 68 61 72 2a 29 70 45 78 70 72 2d 3e , (char*)pExpr->
b3e0: 74 6f 6b 65 6e 2e 7a 2c 20 70 45 78 70 72 2d 3e token.z, pExpr->
b3f0: 74 6f 6b 65 6e 2e 6e 2c 20 32 2c 0a 20 20 20 20 token.n, 2,.
b400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
b410: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f SQLITE_
b420: 55 54 46 38 2c 20 30 29 3b 0a 20 20 69 66 28 20 UTF8, 0);. if(
b430: 70 44 65 66 3d 3d 30 20 7c 7c 20 28 70 44 65 66 pDef==0 || (pDef
b440: 2d 3e 66 6c 61 67 73 20 26 20 53 51 4c 49 54 45 ->flags & SQLITE
b450: 5f 46 55 4e 43 5f 4c 49 4b 45 29 3d 3d 30 20 29 _FUNC_LIKE)==0 )
b460: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a {. return 0;.
b470: 20 20 7d 0a 0a 20 20 2f 2a 20 54 68 65 20 6d 65 }.. /* The me
b480: 6d 63 70 79 28 29 20 73 74 61 74 65 6d 65 6e 74 mcpy() statement
b490: 20 61 73 73 75 6d 65 73 20 74 68 61 74 20 74 68 assumes that th
b4a0: 65 20 77 69 6c 64 63 61 72 64 20 63 68 61 72 61 e wildcard chara
b4b0: 63 74 65 72 73 20 61 72 65 0a 20 20 2a 2a 20 74 cters are. ** t
b4c0: 68 65 20 66 69 72 73 74 20 74 68 72 65 65 20 73 he first three s
b4d0: 74 61 74 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 tatements in the
b4e0: 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 73 74 72 compareInfo str
b4f0: 75 63 74 75 72 65 2e 20 20 54 68 65 0a 20 20 2a ucture. The. *
b500: 2a 20 61 73 73 65 72 74 73 28 29 20 74 68 61 74 * asserts() that
b510: 20 66 6f 6c 6c 6f 77 20 76 65 72 69 66 79 20 74 follow verify t
b520: 68 61 74 20 61 73 73 75 6d 70 74 69 6f 6e 0a 20 hat assumption.
b530: 20 2a 2f 0a 20 20 6d 65 6d 63 70 79 28 61 57 63 */. memcpy(aWc
b540: 2c 20 70 44 65 66 2d 3e 70 55 73 65 72 44 61 74 , pDef->pUserDat
b550: 61 2c 20 33 29 3b 0a 20 20 61 73 73 65 72 74 28 a, 3);. assert(
b560: 20 28 63 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 (char*)&likeInf
b570: 6f 41 6c 74 20 3d 3d 20 28 63 68 61 72 2a 29 26 oAlt == (char*)&
b580: 6c 69 6b 65 49 6e 66 6f 41 6c 74 2e 6d 61 74 63 likeInfoAlt.matc
b590: 68 41 6c 6c 20 29 3b 0a 20 20 61 73 73 65 72 74 hAll );. assert
b5a0: 28 20 26 28 28 63 68 61 72 2a 29 26 6c 69 6b 65 ( &((char*)&like
b5b0: 49 6e 66 6f 41 6c 74 29 5b 31 5d 20 3d 3d 20 28 InfoAlt)[1] == (
b5c0: 63 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 char*)&likeInfoA
b5d0: 6c 74 2e 6d 61 74 63 68 4f 6e 65 20 29 3b 0a 20 lt.matchOne );.
b5e0: 20 61 73 73 65 72 74 28 20 26 28 28 63 68 61 72 assert( &((char
b5f0: 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 29 5b *)&likeInfoAlt)[
b600: 32 5d 20 3d 3d 20 28 63 68 61 72 2a 29 26 6c 69 2] == (char*)&li
b610: 6b 65 49 6e 66 6f 41 6c 74 2e 6d 61 74 63 68 53 keInfoAlt.matchS
b620: 65 74 20 29 3b 0a 20 20 2a 70 49 73 4e 6f 63 61 et );. *pIsNoca
b630: 73 65 20 3d 20 28 70 44 65 66 2d 3e 66 6c 61 67 se = (pDef->flag
b640: 73 20 26 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f s & SQLITE_FUNC_
b650: 43 41 53 45 29 3d 3d 30 3b 0a 20 20 72 65 74 75 CASE)==0;. retu
b660: 72 6e 20 31 3b 0a 7d 0a rn 1;.}.