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 2d 6c 61 6e 67 75 61 67 65 20 69 6d 70 6c 65 C-language imple
01a0: 6d 65 6e 74 61 74 69 6f 6e 73 20 66 6f 72 20 6d mentations for m
01b0: 61 6e 79 20 6f 66 20 74 68 65 20 53 51 4c 0a 2a any of the SQL.*
01c0: 2a 20 66 75 6e 63 74 69 6f 6e 73 20 6f 66 20 53 * functions of S
01d0: 51 4c 69 74 65 2e 20 20 28 53 6f 6d 65 20 66 75 QLite. (Some fu
01e0: 6e 63 74 69 6f 6e 2c 20 61 6e 64 20 69 6e 20 70 nction, and in p
01f0: 61 72 74 69 63 75 6c 61 72 20 74 68 65 20 64 61 articular the da
0200: 74 65 20 61 6e 64 0a 2a 2a 20 74 69 6d 65 20 66 te and.** time f
0210: 75 6e 63 74 69 6f 6e 73 2c 20 61 72 65 20 69 6d unctions, are im
0220: 70 6c 65 6d 65 6e 74 65 64 20 73 65 70 61 72 61 plemented separa
0230: 74 65 6c 79 2e 29 0a 2a 2f 0a 23 69 6e 63 6c 75 tely.).*/.#inclu
0240: 64 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 de "sqliteInt.h"
0250: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 .#include <stdli
0260: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 61 b.h>.#include <a
0270: 73 73 65 72 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 ssert.h>.#includ
0280: 65 20 22 76 64 62 65 49 6e 74 2e 68 22 0a 0a 2f e "vdbeInt.h"../
0290: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 *.** Return the
02a0: 63 6f 6c 6c 61 74 69 6e 67 20 66 75 6e 63 74 69 collating functi
02b0: 6f 6e 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 on associated wi
02c0: 74 68 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a th a function..*
02d0: 2f 0a 73 74 61 74 69 63 20 43 6f 6c 6c 53 65 71 /.static CollSeq
02e0: 20 2a 73 71 6c 69 74 65 33 47 65 74 46 75 6e 63 *sqlite3GetFunc
02f0: 43 6f 6c 6c 53 65 71 28 73 71 6c 69 74 65 33 5f CollSeq(sqlite3_
0300: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
0310: 29 7b 0a 20 20 56 64 62 65 4f 70 20 2a 70 4f 70 ){. VdbeOp *pOp
0320: 3b 0a 20 20 61 73 73 65 72 74 28 20 63 6f 6e 74 ;. assert( cont
0330: 65 78 74 2d 3e 70 56 64 62 65 21 3d 30 20 29 3b ext->pVdbe!=0 );
0340: 0a 20 20 70 4f 70 20 3d 20 26 63 6f 6e 74 65 78 . pOp = &contex
0350: 74 2d 3e 70 56 64 62 65 2d 3e 61 4f 70 5b 63 6f t->pVdbe->aOp[co
0360: 6e 74 65 78 74 2d 3e 69 4f 70 2d 31 5d 3b 0a 20 ntext->iOp-1];.
0370: 20 61 73 73 65 72 74 28 20 70 4f 70 2d 3e 6f 70 assert( pOp->op
0380: 63 6f 64 65 3d 3d 4f 50 5f 43 6f 6c 6c 53 65 71 code==OP_CollSeq
0390: 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70 4f );. assert( pO
03a0: 70 2d 3e 70 34 74 79 70 65 3d 3d 50 34 5f 43 4f p->p4type==P4_CO
03b0: 4c 4c 53 45 51 20 29 3b 0a 20 20 72 65 74 75 72 LLSEQ );. retur
03c0: 6e 20 70 4f 70 2d 3e 70 34 2e 70 43 6f 6c 6c 3b n pOp->p4.pColl;
03d0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e 64 69 63 61 .}../*.** Indica
03e0: 74 65 20 74 68 61 74 20 74 68 65 20 61 63 63 75 te that the accu
03f0: 6d 75 6c 61 74 6f 72 20 6c 6f 61 64 20 73 68 6f mulator load sho
0400: 75 6c 64 20 62 65 20 73 6b 69 70 70 65 64 20 6f uld be skipped o
0410: 6e 20 74 68 69 73 0a 2a 2a 20 69 74 65 72 61 74 n this.** iterat
0420: 69 6f 6e 20 6f 66 20 74 68 65 20 61 67 67 72 65 ion of the aggre
0430: 67 61 74 65 20 6c 6f 6f 70 2e 0a 2a 2f 0a 73 74 gate loop..*/.st
0440: 61 74 69 63 20 76 6f 69 64 20 73 71 6c 69 74 65 atic void sqlite
0450: 33 53 6b 69 70 41 63 63 75 6d 75 6c 61 74 6f 72 3SkipAccumulator
0460: 4c 6f 61 64 28 73 71 6c 69 74 65 33 5f 63 6f 6e Load(sqlite3_con
0470: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a text *context){.
0480: 20 20 61 73 73 65 72 74 28 20 63 6f 6e 74 65 78 assert( contex
0490: 74 2d 3e 69 73 45 72 72 6f 72 3c 3d 30 20 29 3b t->isError<=0 );
04a0: 0a 20 20 63 6f 6e 74 65 78 74 2d 3e 69 73 45 72 . context->isEr
04b0: 72 6f 72 20 3d 20 2d 31 3b 0a 20 20 63 6f 6e 74 ror = -1;. cont
04c0: 65 78 74 2d 3e 73 6b 69 70 46 6c 61 67 20 3d 20 ext->skipFlag =
04d0: 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 1;.}../*.** Impl
04e0: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 ementation of th
04f0: 65 20 6e 6f 6e 2d 61 67 67 72 65 67 61 74 65 20 e non-aggregate
0500: 6d 69 6e 28 29 20 61 6e 64 20 6d 61 78 28 29 20 min() and max()
0510: 66 75 6e 63 74 69 6f 6e 73 0a 2a 2f 0a 73 74 61 functions.*/.sta
0520: 74 69 63 20 76 6f 69 64 20 6d 69 6e 6d 61 78 46 tic void minmaxF
0530: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 unc(. sqlite3_c
0540: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
0550: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 . int argc,. s
0560: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
0570: 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a rgv.){. int i;.
0580: 20 20 69 6e 74 20 6d 61 73 6b 3b 20 20 20 20 2f int mask; /
0590: 2a 20 30 20 66 6f 72 20 6d 69 6e 28 29 20 6f 72 * 0 for min() or
05a0: 20 30 78 66 66 66 66 66 66 66 66 20 66 6f 72 20 0xffffffff for
05b0: 6d 61 78 28 29 20 2a 2f 0a 20 20 69 6e 74 20 69 max() */. int i
05c0: 42 65 73 74 3b 0a 20 20 43 6f 6c 6c 53 65 71 20 Best;. CollSeq
05d0: 2a 70 43 6f 6c 6c 3b 0a 0a 20 20 61 73 73 65 72 *pColl;.. asser
05e0: 74 28 20 61 72 67 63 3e 31 20 29 3b 0a 20 20 6d t( argc>1 );. m
05f0: 61 73 6b 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 ask = sqlite3_us
0600: 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 er_data(context)
0610: 3d 3d 30 20 3f 20 30 20 3a 20 2d 31 3b 0a 20 20 ==0 ? 0 : -1;.
0620: 70 43 6f 6c 6c 20 3d 20 73 71 6c 69 74 65 33 47 pColl = sqlite3G
0630: 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 6f etFuncCollSeq(co
0640: 6e 74 65 78 74 29 3b 0a 20 20 61 73 73 65 72 74 ntext);. assert
0650: 28 20 70 43 6f 6c 6c 20 29 3b 0a 20 20 61 73 73 ( pColl );. ass
0660: 65 72 74 28 20 6d 61 73 6b 3d 3d 2d 31 20 7c 7c ert( mask==-1 ||
0670: 20 6d 61 73 6b 3d 3d 30 20 29 3b 0a 20 20 69 42 mask==0 );. iB
0680: 65 73 74 20 3d 20 30 3b 0a 20 20 69 66 28 20 73 est = 0;. if( s
0690: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 qlite3_value_typ
06a0: 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 e(argv[0])==SQLI
06b0: 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75 72 6e TE_NULL ) return
06c0: 3b 0a 20 20 66 6f 72 28 69 3d 31 3b 20 69 3c 61 ;. for(i=1; i<a
06d0: 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 rgc; i++){. i
06e0: 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 f( sqlite3_value
06f0: 5f 74 79 70 65 28 61 72 67 76 5b 69 5d 29 3d 3d _type(argv[i])==
0700: 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 SQLITE_NULL ) re
0710: 74 75 72 6e 3b 0a 20 20 20 20 69 66 28 20 28 73 turn;. if( (s
0720: 71 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 65 qlite3MemCompare
0730: 28 61 72 67 76 5b 69 42 65 73 74 5d 2c 20 61 72 (argv[iBest], ar
0740: 67 76 5b 69 5d 2c 20 70 43 6f 6c 6c 29 5e 6d 61 gv[i], pColl)^ma
0750: 73 6b 29 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 sk)>=0 ){.
0760: 74 65 73 74 63 61 73 65 28 20 6d 61 73 6b 3d 3d testcase( mask==
0770: 30 20 29 3b 0a 20 20 20 20 20 20 69 42 65 73 74 0 );. iBest
0780: 20 3d 20 69 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a = i;. }. }.
0790: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
07a0: 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20 _value(context,
07b0: 61 72 67 76 5b 69 42 65 73 74 5d 29 3b 0a 7d 0a argv[iBest]);.}.
07c0: 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 ./*.** Return th
07d0: 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 61 72 e type of the ar
07e0: 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 gument..*/.stati
07f0: 63 20 76 6f 69 64 20 74 79 70 65 6f 66 46 75 6e c void typeofFun
0800: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
0810: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
0820: 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 int NotUsed,.
0830: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
0840: 61 72 67 76 0a 29 7b 0a 20 20 73 74 61 74 69 63 argv.){. static
0850: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 7a 54 const char *azT
0860: 79 70 65 5b 5d 20 3d 20 7b 20 22 69 6e 74 65 67 ype[] = { "integ
0870: 65 72 22 2c 20 22 72 65 61 6c 22 2c 20 22 74 65 er", "real", "te
0880: 78 74 22 2c 20 22 62 6c 6f 62 22 2c 20 22 6e 75 xt", "blob", "nu
0890: 6c 6c 22 20 7d 3b 0a 20 20 69 6e 74 20 69 20 3d ll" };. int i =
08a0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
08b0: 79 70 65 28 61 72 67 76 5b 30 5d 29 20 2d 20 31 ype(argv[0]) - 1
08c0: 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d ;. UNUSED_PARAM
08d0: 45 54 45 52 28 4e 6f 74 55 73 65 64 29 3b 0a 20 ETER(NotUsed);.
08e0: 20 61 73 73 65 72 74 28 20 69 3e 3d 30 20 26 26 assert( i>=0 &&
08f0: 20 69 3c 41 72 72 61 79 53 69 7a 65 28 61 7a 54 i<ArraySize(azT
0900: 79 70 65 29 20 29 3b 0a 20 20 61 73 73 65 72 74 ype) );. assert
0910: 28 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 ( SQLITE_INTEGER
0920: 3d 3d 31 20 29 3b 0a 20 20 61 73 73 65 72 74 28 ==1 );. assert(
0930: 20 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3d 3d 32 SQLITE_FLOAT==2
0940: 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 53 51 );. assert( SQ
0950: 4c 49 54 45 5f 54 45 58 54 3d 3d 33 20 29 3b 0a LITE_TEXT==3 );.
0960: 20 20 61 73 73 65 72 74 28 20 53 51 4c 49 54 45 assert( SQLITE
0970: 5f 42 4c 4f 42 3d 3d 34 20 29 3b 0a 20 20 61 73 _BLOB==4 );. as
0980: 73 65 72 74 28 20 53 51 4c 49 54 45 5f 4e 55 4c sert( SQLITE_NUL
0990: 4c 3d 3d 35 20 29 3b 0a 20 20 2f 2a 20 45 56 49 L==5 );. /* EVI
09a0: 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 30 31 34 37 DENCE-OF: R-0147
09b0: 30 2d 36 30 34 38 32 20 54 68 65 20 73 71 6c 69 0-60482 The sqli
09c0: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 56 te3_value_type(V
09d0: 29 20 69 6e 74 65 72 66 61 63 65 20 72 65 74 75 ) interface retu
09e0: 72 6e 73 0a 20 20 2a 2a 20 74 68 65 20 64 61 74 rns. ** the dat
09f0: 61 74 79 70 65 20 63 6f 64 65 20 66 6f 72 20 74 atype code for t
0a00: 68 65 20 69 6e 69 74 69 61 6c 20 64 61 74 61 74 he initial datat
0a10: 79 70 65 20 6f 66 20 74 68 65 20 73 71 6c 69 74 ype of the sqlit
0a20: 65 33 5f 76 61 6c 75 65 20 6f 62 6a 65 63 74 0a e3_value object.
0a30: 20 20 2a 2a 20 56 2e 20 54 68 65 20 72 65 74 75 ** V. The retu
0a40: 72 6e 65 64 20 76 61 6c 75 65 20 69 73 20 6f 6e rned value is on
0a50: 65 20 6f 66 20 53 51 4c 49 54 45 5f 49 4e 54 45 e of SQLITE_INTE
0a60: 47 45 52 2c 20 53 51 4c 49 54 45 5f 46 4c 4f 41 GER, SQLITE_FLOA
0a70: 54 2c 0a 20 20 2a 2a 20 53 51 4c 49 54 45 5f 54 T,. ** SQLITE_T
0a80: 45 58 54 2c 20 53 51 4c 49 54 45 5f 42 4c 4f 42 EXT, SQLITE_BLOB
0a90: 2c 20 6f 72 20 53 51 4c 49 54 45 5f 4e 55 4c 4c , or SQLITE_NULL
0aa0: 2e 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 72 . */. sqlite3_r
0ab0: 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 esult_text(conte
0ac0: 78 74 2c 20 61 7a 54 79 70 65 5b 69 5d 2c 20 2d xt, azType[i], -
0ad0: 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 1, SQLITE_STATIC
0ae0: 29 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 );.}.../*.** Imp
0af0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
0b00: 68 65 20 6c 65 6e 67 74 68 28 29 20 66 75 6e 63 he length() func
0b10: 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 tion.*/.static v
0b20: 6f 69 64 20 6c 65 6e 67 74 68 46 75 6e 63 28 0a oid lengthFunc(.
0b30: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
0b40: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e t *context,. in
0b50: 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 t argc,. sqlite
0b60: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 3_value **argv.)
0b70: 7b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 {. assert( argc
0b80: 3d 3d 31 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f ==1 );. UNUSED_
0b90: 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b PARAMETER(argc);
0ba0: 0a 20 20 73 77 69 74 63 68 28 20 73 71 6c 69 74 . switch( sqlit
0bb0: 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 e3_value_type(ar
0bc0: 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 63 61 gv[0]) ){. ca
0bd0: 73 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 0a se SQLITE_BLOB:.
0be0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
0bf0: 49 4e 54 45 47 45 52 3a 0a 20 20 20 20 63 61 73 INTEGER:. cas
0c00: 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a 20 e SQLITE_FLOAT:
0c10: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f {. sqlite3_
0c20: 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 result_int(conte
0c30: 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 xt, sqlite3_valu
0c40: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 e_bytes(argv[0])
0c50: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a );. break;.
0c60: 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 53 }. case S
0c70: 51 4c 49 54 45 5f 54 45 58 54 3a 20 7b 0a 20 20 QLITE_TEXT: {.
0c80: 20 20 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e const unsign
0c90: 65 64 20 63 68 61 72 20 2a 7a 20 3d 20 73 71 6c ed char *z = sql
0ca0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
0cb0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 argv[0]);.
0cc0: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 const unsigned c
0cd0: 68 61 72 20 2a 7a 30 3b 0a 20 20 20 20 20 20 75 har *z0;. u
0ce0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 63 3b 0a nsigned char c;.
0cf0: 20 20 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 29 if( z==0 )
0d00: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 7a return;. z
0d10: 30 20 3d 20 7a 3b 0a 20 20 20 20 20 20 77 68 69 0 = z;. whi
0d20: 6c 65 28 20 28 63 20 3d 20 2a 7a 29 21 3d 30 20 le( (c = *z)!=0
0d30: 29 7b 0a 20 20 20 20 20 20 20 20 7a 2b 2b 3b 0a ){. z++;.
0d40: 20 20 20 20 20 20 20 20 69 66 28 20 63 3e 3d 30 if( c>=0
0d50: 78 63 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 xc0 ){.
0d60: 20 77 68 69 6c 65 28 20 28 2a 7a 20 26 20 30 78 while( (*z & 0x
0d70: 63 30 29 3d 3d 30 78 38 30 20 29 7b 20 7a 2b 2b c0)==0x80 ){ z++
0d80: 3b 20 7a 30 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 ; z0++; }.
0d90: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
0da0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
0db0: 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 28 69 _int(context, (i
0dc0: 6e 74 29 28 7a 2d 7a 30 29 29 3b 0a 20 20 20 20 nt)(z-z0));.
0dd0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 break;. }.
0de0: 20 20 20 64 65 66 61 75 6c 74 3a 20 7b 0a 20 20 default: {.
0df0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
0e00: 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 65 78 74 29 lt_null(context)
0e10: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
0e20: 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a }. }.}../*.*
0e30: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
0e40: 20 6f 66 20 74 68 65 20 61 62 73 28 29 20 66 75 of the abs() fu
0e50: 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 49 4d nction..**.** IM
0e60: 50 3a 20 52 2d 32 33 39 37 39 2d 32 36 38 35 35 P: R-23979-26855
0e70: 20 54 68 65 20 61 62 73 28 58 29 20 66 75 6e 63 The abs(X) func
0e80: 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 68 65 tion returns the
0e90: 20 61 62 73 6f 6c 75 74 65 20 76 61 6c 75 65 20 absolute value
0ea0: 6f 66 0a 2a 2a 20 74 68 65 20 6e 75 6d 65 72 69 of.** the numeri
0eb0: 63 20 61 72 67 75 6d 65 6e 74 20 58 2e 20 0a 2a c argument X. .*
0ec0: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 61 62 /.static void ab
0ed0: 73 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f sFunc(sqlite3_co
0ee0: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 ntext *context,
0ef0: 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 int argc, sqlite
0f00: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 3_value **argv){
0f10: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d . assert( argc=
0f20: 3d 31 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 =1 );. UNUSED_P
0f30: 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a ARAMETER(argc);.
0f40: 20 20 73 77 69 74 63 68 28 20 73 71 6c 69 74 65 switch( sqlite
0f50: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 3_value_type(arg
0f60: 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 v[0]) ){. cas
0f70: 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 e SQLITE_INTEGER
0f80: 3a 20 7b 0a 20 20 20 20 20 20 69 36 34 20 69 56 : {. i64 iV
0f90: 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c al = sqlite3_val
0fa0: 75 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 30 5d ue_int64(argv[0]
0fb0: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 69 56 61 );. if( iVa
0fc0: 6c 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69 l<0 ){. i
0fd0: 66 28 20 69 56 61 6c 3d 3d 53 4d 41 4c 4c 45 53 f( iVal==SMALLES
0fe0: 54 5f 49 4e 54 36 34 20 29 7b 0a 20 20 20 20 20 T_INT64 ){.
0ff0: 20 20 20 20 20 2f 2a 20 49 4d 50 3a 20 52 2d 33 /* IMP: R-3
1000: 31 36 37 36 2d 34 35 35 30 39 20 49 66 20 58 20 1676-45509 If X
1010: 69 73 20 74 68 65 20 69 6e 74 65 67 65 72 20 2d is the integer -
1020: 39 32 32 33 33 37 32 30 33 36 38 35 34 37 37 35 9223372036854775
1030: 38 30 38 0a 20 20 20 20 20 20 20 20 20 20 2a 2a 808. **
1040: 20 74 68 65 6e 20 61 62 73 28 58 29 20 74 68 72 then abs(X) thr
1050: 6f 77 73 20 61 6e 20 69 6e 74 65 67 65 72 20 6f ows an integer o
1060: 76 65 72 66 6c 6f 77 20 65 72 72 6f 72 20 73 69 verflow error si
1070: 6e 63 65 20 74 68 65 72 65 20 69 73 20 6e 6f 0a nce there is no.
1080: 20 20 20 20 20 20 20 20 20 20 2a 2a 20 65 71 75 ** equ
1090: 69 76 61 6c 65 6e 74 20 70 6f 73 69 74 69 76 65 ivalent positive
10a0: 20 36 34 2d 62 69 74 20 74 77 6f 20 63 6f 6d 70 64-bit two comp
10b0: 6c 65 6d 65 6e 74 20 76 61 6c 75 65 2e 20 2a 2f lement value. */
10c0: 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 . sqlit
10d0: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 e3_result_error(
10e0: 63 6f 6e 74 65 78 74 2c 20 22 69 6e 74 65 67 65 context, "intege
10f0: 72 20 6f 76 65 72 66 6c 6f 77 22 2c 20 2d 31 29 r overflow", -1)
1100: 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 ;. retu
1110: 72 6e 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 rn;. }.
1120: 20 20 20 20 20 20 69 56 61 6c 20 3d 20 2d 69 56 iVal = -iV
1130: 61 6c 3b 0a 20 20 20 20 20 20 7d 20 0a 20 20 20 al;. } .
1140: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
1150: 74 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c t_int64(context,
1160: 20 69 56 61 6c 29 3b 0a 20 20 20 20 20 20 62 72 iVal);. br
1170: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 eak;. }. c
1180: 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 3a ase SQLITE_NULL:
1190: 20 7b 0a 20 20 20 20 20 20 2f 2a 20 49 4d 50 3a {. /* IMP:
11a0: 20 52 2d 33 37 34 33 34 2d 31 39 39 32 39 20 41 R-37434-19929 A
11b0: 62 73 28 58 29 20 72 65 74 75 72 6e 73 20 4e 55 bs(X) returns NU
11c0: 4c 4c 20 69 66 20 58 20 69 73 20 4e 55 4c 4c 2e LL if X is NULL.
11d0: 20 2a 2f 0a 20 20 20 20 20 20 73 71 6c 69 74 65 */. sqlite
11e0: 33 5f 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 3_result_null(co
11f0: 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20 62 72 ntext);. br
1200: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 eak;. }. d
1210: 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20 20 20 20 efault: {.
1220: 2f 2a 20 42 65 63 61 75 73 65 20 73 71 6c 69 74 /* Because sqlit
1230: 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 e3_value_double(
1240: 29 20 72 65 74 75 72 6e 73 20 30 2e 30 20 69 66 ) returns 0.0 if
1250: 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 the argument is
1260: 20 6e 6f 74 0a 20 20 20 20 20 20 2a 2a 20 73 6f not. ** so
1270: 6d 65 74 68 69 6e 67 20 74 68 61 74 20 63 61 6e mething that can
1280: 20 62 65 20 63 6f 6e 76 65 72 74 65 64 20 69 6e be converted in
1290: 74 6f 20 61 20 6e 75 6d 62 65 72 2c 20 77 65 20 to a number, we
12a0: 68 61 76 65 3a 0a 20 20 20 20 20 20 2a 2a 20 49 have:. ** I
12b0: 4d 50 3a 20 52 2d 30 31 39 39 32 2d 30 30 35 31 MP: R-01992-0051
12c0: 39 20 41 62 73 28 58 29 20 72 65 74 75 72 6e 73 9 Abs(X) returns
12d0: 20 30 2e 30 20 69 66 20 58 20 69 73 20 61 20 73 0.0 if X is a s
12e0: 74 72 69 6e 67 20 6f 72 20 62 6c 6f 62 0a 20 20 tring or blob.
12f0: 20 20 20 20 2a 2a 20 74 68 61 74 20 63 61 6e 6e ** that cann
1300: 6f 74 20 62 65 20 63 6f 6e 76 65 72 74 65 64 20 ot be converted
1310: 74 6f 20 61 20 6e 75 6d 65 72 69 63 20 76 61 6c to a numeric val
1320: 75 65 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20 ue.. */.
1330: 20 20 20 64 6f 75 62 6c 65 20 72 56 61 6c 20 3d double rVal =
1340: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 sqlite3_value_d
1350: 6f 75 62 6c 65 28 61 72 67 76 5b 30 5d 29 3b 0a ouble(argv[0]);.
1360: 20 20 20 20 20 20 69 66 28 20 72 56 61 6c 3c 30 if( rVal<0
1370: 20 29 20 72 56 61 6c 20 3d 20 2d 72 56 61 6c 3b ) rVal = -rVal;
1380: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 . sqlite3_r
1390: 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e esult_double(con
13a0: 74 65 78 74 2c 20 72 56 61 6c 29 3b 0a 20 20 20 text, rVal);.
13b0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a break;. }.
13c0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 }.}../*.** Imp
13d0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
13e0: 68 65 20 69 6e 73 74 72 28 29 20 66 75 6e 63 74 he instr() funct
13f0: 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 69 6e 73 74 72 ion..**.** instr
1400: 28 68 61 79 73 74 61 63 6b 2c 6e 65 65 64 6c 65 (haystack,needle
1410: 29 20 66 69 6e 64 73 20 74 68 65 20 66 69 72 73 ) finds the firs
1420: 74 20 6f 63 63 75 72 72 65 6e 63 65 20 6f 66 20 t occurrence of
1430: 6e 65 65 64 6c 65 0a 2a 2a 20 69 6e 20 68 61 79 needle.** in hay
1440: 73 74 61 63 6b 20 61 6e 64 20 72 65 74 75 72 6e stack and return
1450: 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 s the number of
1460: 70 72 65 76 69 6f 75 73 20 63 68 61 72 61 63 74 previous charact
1470: 65 72 73 20 70 6c 75 73 20 31 2c 0a 2a 2a 20 6f ers plus 1,.** o
1480: 72 20 30 20 69 66 20 6e 65 65 64 6c 65 20 64 6f r 0 if needle do
1490: 65 73 20 6e 6f 74 20 6f 63 63 75 72 20 77 69 74 es not occur wit
14a0: 68 69 6e 20 68 61 79 73 74 61 63 6b 2e 0a 2a 2a hin haystack..**
14b0: 0a 2a 2a 20 49 66 20 62 6f 74 68 20 68 61 79 73 .** If both hays
14c0: 74 61 63 6b 20 61 6e 64 20 6e 65 65 64 6c 65 20 tack and needle
14d0: 61 72 65 20 42 4c 4f 42 73 2c 20 74 68 65 6e 20 are BLOBs, then
14e0: 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 6f 6e the result is on
14f0: 65 20 6d 6f 72 65 20 74 68 61 6e 0a 2a 2a 20 74 e more than.** t
1500: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 he number of byt
1510: 65 73 20 69 6e 20 68 61 79 73 74 61 63 6b 20 70 es in haystack p
1520: 72 69 6f 72 20 74 6f 20 74 68 65 20 66 69 72 73 rior to the firs
1530: 74 20 6f 63 63 75 72 72 65 6e 63 65 20 6f 66 20 t occurrence of
1540: 6e 65 65 64 6c 65 2c 0a 2a 2a 20 6f 72 20 30 20 needle,.** or 0
1550: 69 66 20 6e 65 65 64 6c 65 20 6e 65 76 65 72 20 if needle never
1560: 6f 63 63 75 72 73 20 69 6e 20 68 61 79 73 74 61 occurs in haysta
1570: 63 6b 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ck..*/.static vo
1580: 69 64 20 69 6e 73 74 72 46 75 6e 63 28 0a 20 20 id instrFunc(.
1590: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
15a0: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 *context,. int
15b0: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f argc,. sqlite3_
15c0: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
15d0: 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 const unsigned
15e0: 20 63 68 61 72 20 2a 7a 48 61 79 73 74 61 63 6b char *zHaystack
15f0: 3b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e ;. const unsign
1600: 65 64 20 63 68 61 72 20 2a 7a 4e 65 65 64 6c 65 ed char *zNeedle
1610: 3b 0a 20 20 69 6e 74 20 6e 48 61 79 73 74 61 63 ;. int nHaystac
1620: 6b 3b 0a 20 20 69 6e 74 20 6e 4e 65 65 64 6c 65 k;. int nNeedle
1630: 3b 0a 20 20 69 6e 74 20 74 79 70 65 48 61 79 73 ;. int typeHays
1640: 74 61 63 6b 2c 20 74 79 70 65 4e 65 65 64 6c 65 tack, typeNeedle
1650: 3b 0a 20 20 69 6e 74 20 4e 20 3d 20 31 3b 0a 20 ;. int N = 1;.
1660: 20 69 6e 74 20 69 73 54 65 78 74 3b 0a 20 20 75 int isText;. u
1670: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 66 69 72 nsigned char fir
1680: 73 74 43 68 61 72 3b 0a 0a 20 20 55 4e 55 53 45 stChar;.. UNUSE
1690: 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 D_PARAMETER(argc
16a0: 29 3b 0a 20 20 74 79 70 65 48 61 79 73 74 61 63 );. typeHaystac
16b0: 6b 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 k = sqlite3_valu
16c0: 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3b e_type(argv[0]);
16d0: 0a 20 20 74 79 70 65 4e 65 65 64 6c 65 20 3d 20 . typeNeedle =
16e0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 sqlite3_value_ty
16f0: 70 65 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 69 pe(argv[1]);. i
1700: 66 28 20 74 79 70 65 48 61 79 73 74 61 63 6b 3d f( typeHaystack=
1710: 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 7c 7c 20 =SQLITE_NULL ||
1720: 74 79 70 65 4e 65 65 64 6c 65 3d 3d 53 51 4c 49 typeNeedle==SQLI
1730: 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75 72 6e TE_NULL ) return
1740: 3b 0a 20 20 6e 48 61 79 73 74 61 63 6b 20 3d 20 ;. nHaystack =
1750: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 sqlite3_value_by
1760: 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 tes(argv[0]);.
1770: 6e 4e 65 65 64 6c 65 20 3d 20 73 71 6c 69 74 65 nNeedle = sqlite
1780: 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 3_value_bytes(ar
1790: 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 6e 4e gv[1]);. if( nN
17a0: 65 65 64 6c 65 3e 30 20 29 7b 0a 20 20 20 20 69 eedle>0 ){. i
17b0: 66 28 20 74 79 70 65 48 61 79 73 74 61 63 6b 3d f( typeHaystack=
17c0: 3d 53 51 4c 49 54 45 5f 42 4c 4f 42 20 26 26 20 =SQLITE_BLOB &&
17d0: 74 79 70 65 4e 65 65 64 6c 65 3d 3d 53 51 4c 49 typeNeedle==SQLI
17e0: 54 45 5f 42 4c 4f 42 20 29 7b 0a 20 20 20 20 20 TE_BLOB ){.
17f0: 20 7a 48 61 79 73 74 61 63 6b 20 3d 20 73 71 6c zHaystack = sql
1800: 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 ite3_value_blob(
1810: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 argv[0]);.
1820: 7a 4e 65 65 64 6c 65 20 3d 20 73 71 6c 69 74 65 zNeedle = sqlite
1830: 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 3_value_blob(arg
1840: 76 5b 31 5d 29 3b 0a 20 20 20 20 20 20 69 73 54 v[1]);. isT
1850: 65 78 74 20 3d 20 30 3b 0a 20 20 20 20 7d 65 6c ext = 0;. }el
1860: 73 65 7b 0a 20 20 20 20 20 20 7a 48 61 79 73 74 se{. zHayst
1870: 61 63 6b 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 ack = sqlite3_va
1880: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d lue_text(argv[0]
1890: 29 3b 0a 20 20 20 20 20 20 7a 4e 65 65 64 6c 65 );. zNeedle
18a0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
18b0: 5f 74 65 78 74 28 61 72 67 76 5b 31 5d 29 3b 0a _text(argv[1]);.
18c0: 20 20 20 20 20 20 69 73 54 65 78 74 20 3d 20 31 isText = 1
18d0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 ;. }. if(
18e0: 7a 4e 65 65 64 6c 65 3d 3d 30 20 7c 7c 20 28 6e zNeedle==0 || (n
18f0: 48 61 79 73 74 61 63 6b 20 26 26 20 7a 48 61 79 Haystack && zHay
1900: 73 74 61 63 6b 3d 3d 30 29 20 29 20 72 65 74 75 stack==0) ) retu
1910: 72 6e 3b 0a 20 20 20 20 66 69 72 73 74 43 68 61 rn;. firstCha
1920: 72 20 3d 20 7a 4e 65 65 64 6c 65 5b 30 5d 3b 0a r = zNeedle[0];.
1930: 20 20 20 20 77 68 69 6c 65 28 20 6e 4e 65 65 64 while( nNeed
1940: 6c 65 3c 3d 6e 48 61 79 73 74 61 63 6b 0a 20 20 le<=nHaystack.
1950: 20 20 20 20 20 26 26 20 28 7a 48 61 79 73 74 61 && (zHaysta
1960: 63 6b 5b 30 5d 21 3d 66 69 72 73 74 43 68 61 72 ck[0]!=firstChar
1970: 20 7c 7c 20 6d 65 6d 63 6d 70 28 7a 48 61 79 73 || memcmp(zHays
1980: 74 61 63 6b 2c 20 7a 4e 65 65 64 6c 65 2c 20 6e tack, zNeedle, n
1990: 4e 65 65 64 6c 65 29 21 3d 30 29 0a 20 20 20 20 Needle)!=0).
19a0: 29 7b 0a 20 20 20 20 20 20 4e 2b 2b 3b 0a 20 20 ){. N++;.
19b0: 20 20 20 20 64 6f 7b 0a 20 20 20 20 20 20 20 20 do{.
19c0: 6e 48 61 79 73 74 61 63 6b 2d 2d 3b 0a 20 20 20 nHaystack--;.
19d0: 20 20 20 20 20 7a 48 61 79 73 74 61 63 6b 2b 2b zHaystack++
19e0: 3b 0a 20 20 20 20 20 20 7d 77 68 69 6c 65 28 20 ;. }while(
19f0: 69 73 54 65 78 74 20 26 26 20 28 7a 48 61 79 73 isText && (zHays
1a00: 74 61 63 6b 5b 30 5d 26 30 78 63 30 29 3d 3d 30 tack[0]&0xc0)==0
1a10: 78 38 30 20 29 3b 0a 20 20 20 20 7d 0a 20 20 20 x80 );. }.
1a20: 20 69 66 28 20 6e 4e 65 65 64 6c 65 3e 6e 48 61 if( nNeedle>nHa
1a30: 79 73 74 61 63 6b 20 29 20 4e 20 3d 20 30 3b 0a ystack ) N = 0;.
1a40: 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 }. sqlite3_re
1a50: 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 sult_int(context
1a60: 2c 20 4e 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 , N);.}../*.** I
1a70: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
1a80: 20 74 68 65 20 70 72 69 6e 74 66 28 29 20 66 75 the printf() fu
1a90: 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 nction..*/.stati
1aa0: 63 20 76 6f 69 64 20 70 72 69 6e 74 66 46 75 6e c void printfFun
1ab0: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
1ac0: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
1ad0: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c int argc,. sql
1ae0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
1af0: 76 0a 29 7b 0a 20 20 50 72 69 6e 74 66 41 72 67 v.){. PrintfArg
1b00: 75 6d 65 6e 74 73 20 78 3b 0a 20 20 53 74 72 41 uments x;. StrA
1b10: 63 63 75 6d 20 73 74 72 3b 0a 20 20 63 6f 6e 73 ccum str;. cons
1b20: 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 3b t char *zFormat;
1b30: 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 73 71 6c 69 . int n;. sqli
1b40: 74 65 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 te3 *db = sqlite
1b50: 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 3_context_db_han
1b60: 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 0a 20 dle(context);..
1b70: 20 69 66 28 20 61 72 67 63 3e 3d 31 20 26 26 20 if( argc>=1 &&
1b80: 28 7a 46 6f 72 6d 61 74 20 3d 20 28 63 6f 6e 73 (zFormat = (cons
1b90: 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f t char*)sqlite3_
1ba0: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
1bb0: 30 5d 29 29 21 3d 30 20 29 7b 0a 20 20 20 20 78 0]))!=0 ){. x
1bc0: 2e 6e 41 72 67 20 3d 20 61 72 67 63 2d 31 3b 0a .nArg = argc-1;.
1bd0: 20 20 20 20 78 2e 6e 55 73 65 64 20 3d 20 30 3b x.nUsed = 0;
1be0: 0a 20 20 20 20 78 2e 61 70 41 72 67 20 3d 20 61 . x.apArg = a
1bf0: 72 67 76 2b 31 3b 0a 20 20 20 20 73 71 6c 69 74 rgv+1;. sqlit
1c00: 65 33 53 74 72 41 63 63 75 6d 49 6e 69 74 28 26 e3StrAccumInit(&
1c10: 73 74 72 2c 20 64 62 2c 20 30 2c 20 30 2c 20 64 str, db, 0, 0, d
1c20: 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 b->aLimit[SQLITE
1c30: 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 29 3b _LIMIT_LENGTH]);
1c40: 0a 20 20 20 20 73 74 72 2e 70 72 69 6e 74 66 46 . str.printfF
1c50: 6c 61 67 73 20 3d 20 53 51 4c 49 54 45 5f 50 52 lags = SQLITE_PR
1c60: 49 4e 54 46 5f 53 51 4c 46 55 4e 43 3b 0a 20 20 INTF_SQLFUNC;.
1c70: 20 20 73 71 6c 69 74 65 33 5f 73 74 72 5f 61 70 sqlite3_str_ap
1c80: 70 65 6e 64 66 28 26 73 74 72 2c 20 7a 46 6f 72 pendf(&str, zFor
1c90: 6d 61 74 2c 20 26 78 29 3b 0a 20 20 20 20 6e 20 mat, &x);. n
1ca0: 3d 20 73 74 72 2e 6e 43 68 61 72 3b 0a 20 20 20 = str.nChar;.
1cb0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
1cc0: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 text(context, sq
1cd0: 6c 69 74 65 33 53 74 72 41 63 63 75 6d 46 69 6e lite3StrAccumFin
1ce0: 69 73 68 28 26 73 74 72 29 2c 20 6e 2c 0a 20 20 ish(&str), n,.
1cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d00: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 44 59 4e SQLITE_DYN
1d10: 41 4d 49 43 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a AMIC);. }.}../*
1d20: 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 .** Implementati
1d30: 6f 6e 20 6f 66 20 74 68 65 20 73 75 62 73 74 72 on of the substr
1d40: 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a () function..**.
1d50: 2a 2a 20 73 75 62 73 74 72 28 78 2c 70 31 2c 70 ** substr(x,p1,p
1d60: 32 29 20 20 72 65 74 75 72 6e 73 20 70 32 20 63 2) returns p2 c
1d70: 68 61 72 61 63 74 65 72 73 20 6f 66 20 78 5b 5d haracters of x[]
1d80: 20 62 65 67 69 6e 6e 69 6e 67 20 77 69 74 68 20 beginning with
1d90: 70 31 2e 0a 2a 2a 20 70 31 20 69 73 20 31 2d 69 p1..** p1 is 1-i
1da0: 6e 64 65 78 65 64 2e 20 20 53 6f 20 73 75 62 73 ndexed. So subs
1db0: 74 72 28 78 2c 31 2c 31 29 20 72 65 74 75 72 6e tr(x,1,1) return
1dc0: 73 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 s the first char
1dd0: 61 63 74 65 72 0a 2a 2a 20 6f 66 20 78 2e 20 20 acter.** of x.
1de0: 49 66 20 78 20 69 73 20 74 65 78 74 2c 20 74 68 If x is text, th
1df0: 65 6e 20 77 65 20 61 63 74 75 61 6c 6c 79 20 63 en we actually c
1e00: 6f 75 6e 74 20 55 54 46 2d 38 20 63 68 61 72 61 ount UTF-8 chara
1e10: 63 74 65 72 73 2e 0a 2a 2a 20 49 66 20 78 20 69 cters..** If x i
1e20: 73 20 61 20 62 6c 6f 62 2c 20 74 68 65 6e 20 77 s a blob, then w
1e30: 65 20 63 6f 75 6e 74 20 62 79 74 65 73 2e 0a 2a e count bytes..*
1e40: 2a 0a 2a 2a 20 49 66 20 70 31 20 69 73 20 6e 65 *.** If p1 is ne
1e50: 67 61 74 69 76 65 2c 20 74 68 65 6e 20 77 65 20 gative, then we
1e60: 62 65 67 69 6e 20 61 62 73 28 70 31 29 20 66 72 begin abs(p1) fr
1e70: 6f 6d 20 74 68 65 20 65 6e 64 20 6f 66 20 78 5b om the end of x[
1e80: 5d 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 70 32 20 69 ]..**.** If p2 i
1e90: 73 20 6e 65 67 61 74 69 76 65 2c 20 72 65 74 75 s negative, retu
1ea0: 72 6e 20 74 68 65 20 70 32 20 63 68 61 72 61 63 rn the p2 charac
1eb0: 74 65 72 73 20 70 72 65 63 65 64 69 6e 67 20 70 ters preceding p
1ec0: 31 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 1..*/.static voi
1ed0: 64 20 73 75 62 73 74 72 46 75 6e 63 28 0a 20 20 d substrFunc(.
1ee0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
1ef0: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 *context,. int
1f00: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f argc,. sqlite3_
1f10: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
1f20: 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 const unsigned
1f30: 20 63 68 61 72 20 2a 7a 3b 0a 20 20 63 6f 6e 73 char *z;. cons
1f40: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 t unsigned char
1f50: 2a 7a 32 3b 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a *z2;. int len;.
1f60: 20 20 69 6e 74 20 70 30 74 79 70 65 3b 0a 20 20 int p0type;.
1f70: 69 36 34 20 70 31 2c 20 70 32 3b 0a 20 20 69 6e i64 p1, p2;. in
1f80: 74 20 6e 65 67 50 32 20 3d 20 30 3b 0a 0a 20 20 t negP2 = 0;..
1f90: 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 33 20 assert( argc==3
1fa0: 7c 7c 20 61 72 67 63 3d 3d 32 20 29 3b 0a 20 20 || argc==2 );.
1fb0: 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 if( sqlite3_valu
1fc0: 65 5f 74 79 70 65 28 61 72 67 76 5b 31 5d 29 3d e_type(argv[1])=
1fd0: 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 0a 20 20 20 =SQLITE_NULL.
1fe0: 7c 7c 20 28 61 72 67 63 3d 3d 33 20 26 26 20 73 || (argc==3 && s
1ff0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 qlite3_value_typ
2000: 65 28 61 72 67 76 5b 32 5d 29 3d 3d 53 51 4c 49 e(argv[2])==SQLI
2010: 54 45 5f 4e 55 4c 4c 29 0a 20 20 29 7b 0a 20 20 TE_NULL). ){.
2020: 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 return;. }.
2030: 70 30 74 79 70 65 20 3d 20 73 71 6c 69 74 65 33 p0type = sqlite3
2040: 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 _value_type(argv
2050: 5b 30 5d 29 3b 0a 20 20 70 31 20 3d 20 73 71 6c [0]);. p1 = sql
2060: 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 ite3_value_int(a
2070: 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 70 rgv[1]);. if( p
2080: 30 74 79 70 65 3d 3d 53 51 4c 49 54 45 5f 42 4c 0type==SQLITE_BL
2090: 4f 42 20 29 7b 0a 20 20 20 20 6c 65 6e 20 3d 20 OB ){. len =
20a0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 sqlite3_value_by
20b0: 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 tes(argv[0]);.
20c0: 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 z = sqlite3_va
20d0: 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d lue_blob(argv[0]
20e0: 29 3b 0a 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 );. if( z==0
20f0: 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 61 73 ) return;. as
2100: 73 65 72 74 28 20 6c 65 6e 3d 3d 73 71 6c 69 74 sert( len==sqlit
2110: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 e3_value_bytes(a
2120: 72 67 76 5b 30 5d 29 20 29 3b 0a 20 20 7d 65 6c rgv[0]) );. }el
2130: 73 65 7b 0a 20 20 20 20 7a 20 3d 20 73 71 6c 69 se{. z = sqli
2140: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
2150: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 rgv[0]);. if(
2160: 20 7a 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a z==0 ) return;.
2170: 20 20 20 20 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 len = 0;.
2180: 20 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 20 if( p1<0 ){.
2190: 20 20 20 66 6f 72 28 7a 32 3d 7a 3b 20 2a 7a 32 for(z2=z; *z2
21a0: 3b 20 6c 65 6e 2b 2b 29 7b 0a 20 20 20 20 20 20 ; len++){.
21b0: 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55 54 SQLITE_SKIP_UT
21c0: 46 38 28 7a 32 29 3b 0a 20 20 20 20 20 20 7d 0a F8(z2);. }.
21d0: 20 20 20 20 7d 0a 20 20 7d 0a 23 69 66 64 65 66 }. }.#ifdef
21e0: 20 53 51 4c 49 54 45 5f 53 55 42 53 54 52 5f 43 SQLITE_SUBSTR_C
21f0: 4f 4d 50 41 54 49 42 49 4c 49 54 59 0a 20 20 2f OMPATIBILITY. /
2200: 2a 20 49 66 20 53 55 42 53 54 52 5f 43 4f 4d 50 * If SUBSTR_COMP
2210: 41 54 49 42 49 4c 49 54 59 20 69 73 20 64 65 66 ATIBILITY is def
2220: 69 6e 65 64 20 74 68 65 6e 20 73 75 62 73 74 72 ined then substr
2230: 28 58 2c 30 2c 4e 29 20 77 6f 72 6b 20 74 68 65 (X,0,N) work the
2240: 20 73 61 6d 65 20 61 73 0a 20 20 2a 2a 20 61 73 same as. ** as
2250: 20 73 75 62 73 74 72 28 58 2c 31 2c 4e 29 20 2d substr(X,1,N) -
2260: 20 69 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 it returns the
2270: 66 69 72 73 74 20 4e 20 63 68 61 72 61 63 74 65 first N characte
2280: 72 73 20 6f 66 20 58 2e 20 20 54 68 69 73 0a 20 rs of X. This.
2290: 20 2a 2a 20 69 73 20 65 73 73 65 6e 74 69 61 6c ** is essential
22a0: 6c 79 20 61 20 62 61 63 6b 2d 6f 75 74 20 6f 66 ly a back-out of
22b0: 20 74 68 65 20 62 75 67 2d 66 69 78 20 69 6e 20 the bug-fix in
22c0: 63 68 65 63 6b 2d 69 6e 20 5b 35 66 63 31 32 35 check-in [5fc125
22d0: 64 33 36 32 64 66 34 62 38 5d 0a 20 20 2a 2a 20 d362df4b8]. **
22e0: 66 72 6f 6d 20 32 30 30 39 2d 30 32 2d 30 32 20 from 2009-02-02
22f0: 66 6f 72 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 for compatibilit
2300: 79 20 6f 66 20 61 70 70 6c 69 63 61 74 69 6f 6e y of application
2310: 73 20 74 68 61 74 20 65 78 70 6c 6f 69 74 65 64 s that exploited
2320: 20 74 68 65 0a 20 20 2a 2a 20 6f 6c 64 20 62 75 the. ** old bu
2330: 67 67 79 20 62 65 68 61 76 69 6f 72 2e 20 2a 2f ggy behavior. */
2340: 0a 20 20 69 66 28 20 70 31 3d 3d 30 20 29 20 70 . if( p1==0 ) p
2350: 31 20 3d 20 31 3b 20 2f 2a 20 3c 72 64 61 72 3a 1 = 1; /* <rdar:
2360: 2f 2f 70 72 6f 62 6c 65 6d 2f 36 37 37 38 33 33 //problem/677833
2370: 39 3e 20 2a 2f 0a 23 65 6e 64 69 66 0a 20 20 69 9> */.#endif. i
2380: 66 28 20 61 72 67 63 3d 3d 33 20 29 7b 0a 20 20 f( argc==3 ){.
2390: 20 20 70 32 20 3d 20 73 71 6c 69 74 65 33 5f 76 p2 = sqlite3_v
23a0: 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 32 5d alue_int(argv[2]
23b0: 29 3b 0a 20 20 20 20 69 66 28 20 70 32 3c 30 20 );. if( p2<0
23c0: 29 7b 0a 20 20 20 20 20 20 70 32 20 3d 20 2d 70 ){. p2 = -p
23d0: 32 3b 0a 20 20 20 20 20 20 6e 65 67 50 32 20 3d 2;. negP2 =
23e0: 20 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 1;. }. }els
23f0: 65 7b 0a 20 20 20 20 70 32 20 3d 20 73 71 6c 69 e{. p2 = sqli
2400: 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 te3_context_db_h
2410: 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 2d 3e andle(context)->
2420: 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 aLimit[SQLITE_LI
2430: 4d 49 54 5f 4c 45 4e 47 54 48 5d 3b 0a 20 20 7d MIT_LENGTH];. }
2440: 0a 20 20 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 . if( p1<0 ){.
2450: 20 20 20 70 31 20 2b 3d 20 6c 65 6e 3b 0a 20 20 p1 += len;.
2460: 20 20 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 if( p1<0 ){.
2470: 20 20 20 20 70 32 20 2b 3d 20 70 31 3b 0a 20 20 p2 += p1;.
2480: 20 20 20 20 69 66 28 20 70 32 3c 30 20 29 20 70 if( p2<0 ) p
2490: 32 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 31 20 2 = 0;. p1
24a0: 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c = 0;. }. }el
24b0: 73 65 20 69 66 28 20 70 31 3e 30 20 29 7b 0a 20 se if( p1>0 ){.
24c0: 20 20 20 70 31 2d 2d 3b 0a 20 20 7d 65 6c 73 65 p1--;. }else
24d0: 20 69 66 28 20 70 32 3e 30 20 29 7b 0a 20 20 20 if( p2>0 ){.
24e0: 20 70 32 2d 2d 3b 0a 20 20 7d 0a 20 20 69 66 28 p2--;. }. if(
24f0: 20 6e 65 67 50 32 20 29 7b 0a 20 20 20 20 70 31 negP2 ){. p1
2500: 20 2d 3d 20 70 32 3b 0a 20 20 20 20 69 66 28 20 -= p2;. if(
2510: 70 31 3c 30 20 29 7b 0a 20 20 20 20 20 20 70 32 p1<0 ){. p2
2520: 20 2b 3d 20 70 31 3b 0a 20 20 20 20 20 20 70 31 += p1;. p1
2530: 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a = 0;. }. }.
2540: 20 20 61 73 73 65 72 74 28 20 70 31 3e 3d 30 20 assert( p1>=0
2550: 26 26 20 70 32 3e 3d 30 20 29 3b 0a 20 20 69 66 && p2>=0 );. if
2560: 28 20 70 30 74 79 70 65 21 3d 53 51 4c 49 54 45 ( p0type!=SQLITE
2570: 5f 42 4c 4f 42 20 29 7b 0a 20 20 20 20 77 68 69 _BLOB ){. whi
2580: 6c 65 28 20 2a 7a 20 26 26 20 70 31 20 29 7b 0a le( *z && p1 ){.
2590: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 SQLITE_SKI
25a0: 50 5f 55 54 46 38 28 7a 29 3b 0a 20 20 20 20 20 P_UTF8(z);.
25b0: 20 70 31 2d 2d 3b 0a 20 20 20 20 7d 0a 20 20 20 p1--;. }.
25c0: 20 66 6f 72 28 7a 32 3d 7a 3b 20 2a 7a 32 20 26 for(z2=z; *z2 &
25d0: 26 20 70 32 3b 20 70 32 2d 2d 29 7b 0a 20 20 20 & p2; p2--){.
25e0: 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55 SQLITE_SKIP_U
25f0: 54 46 38 28 7a 32 29 3b 0a 20 20 20 20 7d 0a 20 TF8(z2);. }.
2600: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
2610: 74 5f 74 65 78 74 36 34 28 63 6f 6e 74 65 78 74 t_text64(context
2620: 2c 20 28 63 68 61 72 2a 29 7a 2c 20 7a 32 2d 7a , (char*)z, z2-z
2630: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
2640: 4e 54 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 NT,.
2650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 SQ
2660: 4c 49 54 45 5f 55 54 46 38 29 3b 0a 20 20 7d 65 LITE_UTF8);. }e
2670: 6c 73 65 7b 0a 20 20 20 20 69 66 28 20 70 31 2b lse{. if( p1+
2680: 70 32 3e 6c 65 6e 20 29 7b 0a 20 20 20 20 20 20 p2>len ){.
2690: 70 32 20 3d 20 6c 65 6e 2d 70 31 3b 0a 20 20 20 p2 = len-p1;.
26a0: 20 20 20 69 66 28 20 70 32 3c 30 20 29 20 70 32 if( p2<0 ) p2
26b0: 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 = 0;. }.
26c0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 62 sqlite3_result_b
26d0: 6c 6f 62 36 34 28 63 6f 6e 74 65 78 74 2c 20 28 lob64(context, (
26e0: 63 68 61 72 2a 29 26 7a 5b 70 31 5d 2c 20 28 75 char*)&z[p1], (u
26f0: 36 34 29 70 32 2c 20 53 51 4c 49 54 45 5f 54 52 64)p2, SQLITE_TR
2700: 41 4e 53 49 45 4e 54 29 3b 0a 20 20 7d 0a 7d 0a ANSIENT);. }.}.
2710: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
2720: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 6f 75 ation of the rou
2730: 6e 64 28 29 20 66 75 6e 63 74 69 6f 6e 0a 2a 2f nd() function.*/
2740: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f .#ifndef SQLITE_
2750: 4f 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f OMIT_FLOATING_PO
2760: 49 4e 54 0a 73 74 61 74 69 63 20 76 6f 69 64 20 INT.static void
2770: 72 6f 75 6e 64 46 75 6e 63 28 73 71 6c 69 74 65 roundFunc(sqlite
2780: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
2790: 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 xt, int argc, sq
27a0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
27b0: 67 76 29 7b 0a 20 20 69 6e 74 20 6e 20 3d 20 30 gv){. int n = 0
27c0: 3b 0a 20 20 64 6f 75 62 6c 65 20 72 3b 0a 20 20 ;. double r;.
27d0: 63 68 61 72 20 2a 7a 42 75 66 3b 0a 20 20 61 73 char *zBuf;. as
27e0: 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 7c 7c sert( argc==1 ||
27f0: 20 61 72 67 63 3d 3d 32 20 29 3b 0a 20 20 69 66 argc==2 );. if
2800: 28 20 61 72 67 63 3d 3d 32 20 29 7b 0a 20 20 20 ( argc==2 ){.
2810: 20 69 66 28 20 53 51 4c 49 54 45 5f 4e 55 4c 4c if( SQLITE_NULL
2820: 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f ==sqlite3_value_
2830: 74 79 70 65 28 61 72 67 76 5b 31 5d 29 20 29 20 type(argv[1]) )
2840: 72 65 74 75 72 6e 3b 0a 20 20 20 20 6e 20 3d 20 return;. n =
2850: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e sqlite3_value_in
2860: 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 t(argv[1]);.
2870: 69 66 28 20 6e 3e 33 30 20 29 20 6e 20 3d 20 33 if( n>30 ) n = 3
2880: 30 3b 0a 20 20 20 20 69 66 28 20 6e 3c 30 20 29 0;. if( n<0 )
2890: 20 6e 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 n = 0;. }. if
28a0: 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f ( sqlite3_value_
28b0: 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 type(argv[0])==S
28c0: 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 QLITE_NULL ) ret
28d0: 75 72 6e 3b 0a 20 20 72 20 3d 20 73 71 6c 69 74 urn;. r = sqlit
28e0: 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 e3_value_double(
28f0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 2f 2a 20 49 argv[0]);. /* I
2900: 66 20 59 3d 3d 30 20 61 6e 64 20 58 20 77 69 6c f Y==0 and X wil
2910: 6c 20 66 69 74 20 69 6e 20 61 20 36 34 2d 62 69 l fit in a 64-bi
2920: 74 20 69 6e 74 2c 0a 20 20 2a 2a 20 68 61 6e 64 t int,. ** hand
2930: 6c 65 20 74 68 65 20 72 6f 75 6e 64 69 6e 67 20 le the rounding
2940: 64 69 72 65 63 74 6c 79 2c 0a 20 20 2a 2a 20 6f directly,. ** o
2950: 74 68 65 72 77 69 73 65 20 75 73 65 20 70 72 69 therwise use pri
2960: 6e 74 66 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 ntf.. */. if(
2970: 6e 3d 3d 30 20 26 26 20 72 3e 3d 30 20 26 26 20 n==0 && r>=0 &&
2980: 72 3c 4c 41 52 47 45 53 54 5f 49 4e 54 36 34 2d r<LARGEST_INT64-
2990: 31 20 29 7b 0a 20 20 20 20 72 20 3d 20 28 64 6f 1 ){. r = (do
29a0: 75 62 6c 65 29 28 28 73 71 6c 69 74 65 5f 69 6e uble)((sqlite_in
29b0: 74 36 34 29 28 72 2b 30 2e 35 29 29 3b 0a 20 20 t64)(r+0.5));.
29c0: 7d 65 6c 73 65 20 69 66 28 20 6e 3d 3d 30 20 26 }else if( n==0 &
29d0: 26 20 72 3c 30 20 26 26 20 28 2d 72 29 3c 4c 41 & r<0 && (-r)<LA
29e0: 52 47 45 53 54 5f 49 4e 54 36 34 2d 31 20 29 7b RGEST_INT64-1 ){
29f0: 0a 20 20 20 20 72 20 3d 20 2d 28 64 6f 75 62 6c . r = -(doubl
2a00: 65 29 28 28 73 71 6c 69 74 65 5f 69 6e 74 36 34 e)((sqlite_int64
2a10: 29 28 28 2d 72 29 2b 30 2e 35 29 29 3b 0a 20 20 )((-r)+0.5));.
2a20: 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 42 75 66 20 }else{. zBuf
2a30: 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 = sqlite3_mprint
2a40: 66 28 22 25 2e 2a 66 22 2c 6e 2c 72 29 3b 0a 20 f("%.*f",n,r);.
2a50: 20 20 20 69 66 28 20 7a 42 75 66 3d 3d 30 20 29 if( zBuf==0 )
2a60: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f {. sqlite3_
2a70: 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d result_error_nom
2a80: 65 6d 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 em(context);.
2a90: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d return;. }
2aa0: 0a 20 20 20 20 73 71 6c 69 74 65 33 41 74 6f 46 . sqlite3AtoF
2ab0: 28 7a 42 75 66 2c 20 26 72 2c 20 73 71 6c 69 74 (zBuf, &r, sqlit
2ac0: 65 33 53 74 72 6c 65 6e 33 30 28 7a 42 75 66 29 e3Strlen30(zBuf)
2ad0: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 29 3b 0a , SQLITE_UTF8);.
2ae0: 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 sqlite3_free
2af0: 28 7a 42 75 66 29 3b 0a 20 20 7d 0a 20 20 73 71 (zBuf);. }. sq
2b00: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 lite3_result_dou
2b10: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 72 29 3b ble(context, r);
2b20: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a .}.#endif../*.**
2b30: 20 41 6c 6c 6f 63 61 74 65 20 6e 42 79 74 65 20 Allocate nByte
2b40: 62 79 74 65 73 20 6f 66 20 73 70 61 63 65 20 75 bytes of space u
2b50: 73 69 6e 67 20 73 71 6c 69 74 65 33 4d 61 6c 6c sing sqlite3Mall
2b60: 6f 63 28 29 2e 20 49 66 20 74 68 65 0a 2a 2a 20 oc(). If the.**
2b70: 61 6c 6c 6f 63 61 74 69 6f 6e 20 66 61 69 6c 73 allocation fails
2b80: 2c 20 63 61 6c 6c 20 73 71 6c 69 74 65 33 5f 72 , call sqlite3_r
2b90: 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65 esult_error_nome
2ba0: 6d 28 29 20 74 6f 20 6e 6f 74 69 66 79 0a 2a 2a m() to notify.**
2bb0: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 68 61 the database ha
2bc0: 6e 64 6c 65 20 74 68 61 74 20 6d 61 6c 6c 6f 63 ndle that malloc
2bd0: 28 29 20 68 61 73 20 66 61 69 6c 65 64 20 61 6e () has failed an
2be0: 64 20 72 65 74 75 72 6e 20 4e 55 4c 4c 2e 0a 2a d return NULL..*
2bf0: 2a 20 49 66 20 6e 42 79 74 65 20 69 73 20 6c 61 * If nByte is la
2c00: 72 67 65 72 20 74 68 61 6e 20 74 68 65 20 6d 61 rger than the ma
2c10: 78 69 6d 75 6d 20 73 74 72 69 6e 67 20 6f 72 20 ximum string or
2c20: 62 6c 6f 62 20 6c 65 6e 67 74 68 2c 20 74 68 65 blob length, the
2c30: 6e 0a 2a 2a 20 72 61 69 73 65 20 61 6e 20 53 51 n.** raise an SQ
2c40: 4c 49 54 45 5f 54 4f 4f 42 49 47 20 65 78 63 65 LITE_TOOBIG exce
2c50: 70 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 72 6e ption and return
2c60: 20 4e 55 4c 4c 2e 0a 2a 2f 0a 73 74 61 74 69 63 NULL..*/.static
2c70: 20 76 6f 69 64 20 2a 63 6f 6e 74 65 78 74 4d 61 void *contextMa
2c80: 6c 6c 6f 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e lloc(sqlite3_con
2c90: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 text *context, i
2ca0: 36 34 20 6e 42 79 74 65 29 7b 0a 20 20 63 68 61 64 nByte){. cha
2cb0: 72 20 2a 7a 3b 0a 20 20 73 71 6c 69 74 65 33 20 r *z;. sqlite3
2cc0: 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f *db = sqlite3_co
2cd0: 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 28 ntext_db_handle(
2ce0: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 61 73 73 65 context);. asse
2cf0: 72 74 28 20 6e 42 79 74 65 3e 30 20 29 3b 0a 20 rt( nByte>0 );.
2d00: 20 74 65 73 74 63 61 73 65 28 20 6e 42 79 74 65 testcase( nByte
2d10: 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c ==db->aLimit[SQL
2d20: 49 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 ITE_LIMIT_LENGTH
2d30: 5d 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 28 ] );. testcase(
2d40: 20 6e 42 79 74 65 3d 3d 64 62 2d 3e 61 4c 69 6d nByte==db->aLim
2d50: 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f it[SQLITE_LIMIT_
2d60: 4c 45 4e 47 54 48 5d 2b 31 20 29 3b 0a 20 20 69 LENGTH]+1 );. i
2d70: 66 28 20 6e 42 79 74 65 3e 64 62 2d 3e 61 4c 69 f( nByte>db->aLi
2d80: 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 mit[SQLITE_LIMIT
2d90: 5f 4c 45 4e 47 54 48 5d 20 29 7b 0a 20 20 20 20 _LENGTH] ){.
2da0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 sqlite3_result_e
2db0: 72 72 6f 72 5f 74 6f 6f 62 69 67 28 63 6f 6e 74 rror_toobig(cont
2dc0: 65 78 74 29 3b 0a 20 20 20 20 7a 20 3d 20 30 3b ext);. z = 0;
2dd0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 20 . }else{. z
2de0: 3d 20 73 71 6c 69 74 65 33 4d 61 6c 6c 6f 63 28 = sqlite3Malloc(
2df0: 6e 42 79 74 65 29 3b 0a 20 20 20 20 69 66 28 20 nByte);. if(
2e00: 21 7a 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 !z ){. sqli
2e10: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 te3_result_error
2e20: 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 74 29 3b _nomem(context);
2e30: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 . }. }. ret
2e40: 75 72 6e 20 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 urn z;.}../*.**
2e50: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f Implementation o
2e60: 66 20 74 68 65 20 75 70 70 65 72 28 29 20 61 6e f the upper() an
2e70: 64 20 6c 6f 77 65 72 28 29 20 53 51 4c 20 66 75 d lower() SQL fu
2e80: 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 61 74 nctions..*/.stat
2e90: 69 63 20 76 6f 69 64 20 75 70 70 65 72 46 75 6e ic void upperFun
2ea0: 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 c(sqlite3_contex
2eb0: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 t *context, int
2ec0: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 argc, sqlite3_va
2ed0: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 lue **argv){. c
2ee0: 68 61 72 20 2a 7a 31 3b 0a 20 20 63 6f 6e 73 74 har *z1;. const
2ef0: 20 63 68 61 72 20 2a 7a 32 3b 0a 20 20 69 6e 74 char *z2;. int
2f00: 20 69 2c 20 6e 3b 0a 20 20 55 4e 55 53 45 44 5f i, n;. UNUSED_
2f10: 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b PARAMETER(argc);
2f20: 0a 20 20 7a 32 20 3d 20 28 63 68 61 72 2a 29 73 . z2 = (char*)s
2f30: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
2f40: 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 6e 20 t(argv[0]);. n
2f50: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
2f60: 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a bytes(argv[0]);.
2f70: 20 20 2f 2a 20 56 65 72 69 66 79 20 74 68 61 74 /* Verify that
2f80: 20 74 68 65 20 63 61 6c 6c 20 74 6f 20 5f 62 79 the call to _by
2f90: 74 65 73 28 29 20 64 6f 65 73 20 6e 6f 74 20 69 tes() does not i
2fa0: 6e 76 61 6c 69 64 61 74 65 20 74 68 65 20 5f 74 nvalidate the _t
2fb0: 65 78 74 28 29 20 70 6f 69 6e 74 65 72 20 2a 2f ext() pointer */
2fc0: 0a 20 20 61 73 73 65 72 74 28 20 7a 32 3d 3d 28 . assert( z2==(
2fd0: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 char*)sqlite3_va
2fe0: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d lue_text(argv[0]
2ff0: 29 20 29 3b 0a 20 20 69 66 28 20 7a 32 20 29 7b ) );. if( z2 ){
3000: 0a 20 20 20 20 7a 31 20 3d 20 63 6f 6e 74 65 78 . z1 = contex
3010: 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c tMalloc(context,
3020: 20 28 28 69 36 34 29 6e 29 2b 31 29 3b 0a 20 20 ((i64)n)+1);.
3030: 20 20 69 66 28 20 7a 31 20 29 7b 0a 20 20 20 20 if( z1 ){.
3040: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 3b 20 for(i=0; i<n;
3050: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 7a 31 i++){. z1
3060: 5b 69 5d 20 3d 20 28 63 68 61 72 29 73 71 6c 69 [i] = (char)sqli
3070: 74 65 33 54 6f 75 70 70 65 72 28 7a 32 5b 69 5d te3Toupper(z2[i]
3080: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 );. }.
3090: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
30a0: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 31 text(context, z1
30b0: 2c 20 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 , n, sqlite3_fre
30c0: 65 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a e);. }. }.}.
30d0: 73 74 61 74 69 63 20 76 6f 69 64 20 6c 6f 77 65 static void lowe
30e0: 72 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f rFunc(sqlite3_co
30f0: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 ntext *context,
3100: 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 int argc, sqlite
3110: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 3_value **argv){
3120: 0a 20 20 63 68 61 72 20 2a 7a 31 3b 0a 20 20 63 . char *z1;. c
3130: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 32 3b 0a 20 onst char *z2;.
3140: 20 69 6e 74 20 69 2c 20 6e 3b 0a 20 20 55 4e 55 int i, n;. UNU
3150: 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72 SED_PARAMETER(ar
3160: 67 63 29 3b 0a 20 20 7a 32 20 3d 20 28 63 68 61 gc);. z2 = (cha
3170: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 r*)sqlite3_value
3180: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a _text(argv[0]);.
3190: 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 n = sqlite3_va
31a0: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 lue_bytes(argv[0
31b0: 5d 29 3b 0a 20 20 2f 2a 20 56 65 72 69 66 79 20 ]);. /* Verify
31c0: 74 68 61 74 20 74 68 65 20 63 61 6c 6c 20 74 6f that the call to
31d0: 20 5f 62 79 74 65 73 28 29 20 64 6f 65 73 20 6e _bytes() does n
31e0: 6f 74 20 69 6e 76 61 6c 69 64 61 74 65 20 74 68 ot invalidate th
31f0: 65 20 5f 74 65 78 74 28 29 20 70 6f 69 6e 74 65 e _text() pointe
3200: 72 20 2a 2f 0a 20 20 61 73 73 65 72 74 28 20 7a r */. assert( z
3210: 32 3d 3d 28 63 68 61 72 2a 29 73 71 6c 69 74 65 2==(char*)sqlite
3220: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
3230: 76 5b 30 5d 29 20 29 3b 0a 20 20 69 66 28 20 7a v[0]) );. if( z
3240: 32 20 29 7b 0a 20 20 20 20 7a 31 20 3d 20 63 6f 2 ){. z1 = co
3250: 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 ntextMalloc(cont
3260: 65 78 74 2c 20 28 28 69 36 34 29 6e 29 2b 31 29 ext, ((i64)n)+1)
3270: 3b 0a 20 20 20 20 69 66 28 20 7a 31 20 29 7b 0a ;. if( z1 ){.
3280: 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 for(i=0; i
3290: 3c 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 <n; i++){.
32a0: 20 20 7a 31 5b 69 5d 20 3d 20 73 71 6c 69 74 65 z1[i] = sqlite
32b0: 33 54 6f 6c 6f 77 65 72 28 7a 32 5b 69 5d 29 3b 3Tolower(z2[i]);
32c0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 . }. s
32d0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 qlite3_result_te
32e0: 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 31 2c 20 xt(context, z1,
32f0: 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 n, sqlite3_free)
3300: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f ;. }. }.}../
3310: 2a 0a 2a 2a 20 53 6f 6d 65 20 66 75 6e 63 74 69 *.** Some functi
3320: 6f 6e 73 20 6c 69 6b 65 20 43 4f 41 4c 45 53 43 ons like COALESC
3330: 45 28 29 20 61 6e 64 20 49 46 4e 55 4c 4c 28 29 E() and IFNULL()
3340: 20 61 6e 64 20 55 4e 4c 49 4b 45 4c 59 28 29 20 and UNLIKELY()
3350: 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74 65 64 0a are implemented.
3360: 2a 2a 20 61 73 20 56 44 42 45 20 63 6f 64 65 20 ** as VDBE code
3370: 73 6f 20 74 68 61 74 20 75 6e 75 73 65 64 20 61 so that unused a
3380: 72 67 75 6d 65 6e 74 20 76 61 6c 75 65 73 20 64 rgument values d
3390: 6f 20 6e 6f 74 20 68 61 76 65 20 74 6f 20 62 65 o not have to be
33a0: 20 63 6f 6d 70 75 74 65 64 2e 0a 2a 2a 20 48 6f computed..** Ho
33b0: 77 65 76 65 72 2c 20 77 65 20 73 74 69 6c 6c 20 wever, we still
33c0: 6e 65 65 64 20 73 6f 6d 65 20 6b 69 6e 64 20 6f need some kind o
33d0: 66 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 f function imple
33e0: 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 74 68 mentation for th
33f0: 69 73 0a 2a 2a 20 72 6f 75 74 69 6e 65 73 20 69 is.** routines i
3400: 6e 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 74 n the function t
3410: 61 62 6c 65 2e 20 20 54 68 65 20 6e 6f 6f 70 46 able. The noopF
3420: 75 6e 63 20 6d 61 63 72 6f 20 70 72 6f 76 69 64 unc macro provid
3430: 65 73 20 74 68 69 73 2e 0a 2a 2a 20 6e 6f 6f 70 es this..** noop
3440: 46 75 6e 63 20 77 69 6c 6c 20 6e 65 76 65 72 20 Func will never
3450: 62 65 20 63 61 6c 6c 65 64 20 73 6f 20 69 74 20 be called so it
3460: 64 6f 65 73 6e 27 74 20 6d 61 74 74 65 72 20 77 doesn't matter w
3470: 68 61 74 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e hat the implemen
3480: 74 61 74 69 6f 6e 0a 2a 2a 20 69 73 2e 20 20 57 tation.** is. W
3490: 65 20 6d 69 67 68 74 20 61 73 20 77 65 6c 6c 20 e might as well
34a0: 75 73 65 20 74 68 65 20 22 76 65 72 73 69 6f 6e use the "version
34b0: 28 29 22 20 66 75 6e 63 74 69 6f 6e 20 61 73 20 ()" function as
34c0: 61 20 73 75 62 73 74 69 74 75 74 65 2e 0a 2a 2f a substitute..*/
34d0: 0a 23 64 65 66 69 6e 65 20 6e 6f 6f 70 46 75 6e .#define noopFun
34e0: 63 20 76 65 72 73 69 6f 6e 46 75 6e 63 20 20 20 c versionFunc
34f0: 2f 2a 20 53 75 62 73 74 69 74 75 74 65 20 66 75 /* Substitute fu
3500: 6e 63 74 69 6f 6e 20 2d 20 6e 65 76 65 72 20 63 nction - never c
3510: 61 6c 6c 65 64 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 alled */../*.**
3520: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f Implementation o
3530: 66 20 72 61 6e 64 6f 6d 28 29 2e 20 20 52 65 74 f random(). Ret
3540: 75 72 6e 20 61 20 72 61 6e 64 6f 6d 20 69 6e 74 urn a random int
3550: 65 67 65 72 2e 20 20 0a 2a 2f 0a 73 74 61 74 69 eger. .*/.stati
3560: 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d 46 75 6e c void randomFun
3570: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
3580: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
3590: 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 int NotUsed,.
35a0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
35b0: 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 73 71 NotUsed2.){. sq
35c0: 6c 69 74 65 5f 69 6e 74 36 34 20 72 3b 0a 20 20 lite_int64 r;.
35d0: 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 UNUSED_PARAMETER
35e0: 32 28 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 2(NotUsed, NotUs
35f0: 65 64 32 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f ed2);. sqlite3_
3600: 72 61 6e 64 6f 6d 6e 65 73 73 28 73 69 7a 65 6f randomness(sizeo
3610: 66 28 72 29 2c 20 26 72 29 3b 0a 20 20 69 66 28 f(r), &r);. if(
3620: 20 72 3c 30 20 29 7b 0a 20 20 20 20 2f 2a 20 57 r<0 ){. /* W
3630: 65 20 6e 65 65 64 20 74 6f 20 70 72 65 76 65 6e e need to preven
3640: 74 20 61 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 t a random numbe
3650: 72 20 6f 66 20 30 78 38 30 30 30 30 30 30 30 30 r of 0x800000000
3660: 30 30 30 30 30 30 30 20 0a 20 20 20 20 2a 2a 20 0000000 . **
3670: 28 6f 72 20 2d 39 32 32 33 33 37 32 30 33 36 38 (or -92233720368
3680: 35 34 37 37 35 38 30 38 29 20 73 69 6e 63 65 20 54775808) since
3690: 77 68 65 6e 20 79 6f 75 20 64 6f 20 61 62 73 28 when you do abs(
36a0: 29 20 6f 66 20 74 68 61 74 0a 20 20 20 20 2a 2a ) of that. **
36b0: 20 6e 75 6d 62 65 72 20 6f 66 20 79 6f 75 20 67 number of you g
36c0: 65 74 20 74 68 65 20 73 61 6d 65 20 76 61 6c 75 et the same valu
36d0: 65 20 62 61 63 6b 20 61 67 61 69 6e 2e 20 20 54 e back again. T
36e0: 6f 20 64 6f 20 74 68 69 73 0a 20 20 20 20 2a 2a o do this. **
36f0: 20 69 6e 20 61 20 77 61 79 20 74 68 61 74 20 69 in a way that i
3700: 73 20 74 65 73 74 61 62 6c 65 2c 20 6d 61 73 6b s testable, mask
3710: 20 74 68 65 20 73 69 67 6e 20 62 69 74 20 6f 66 the sign bit of
3720: 66 20 6f 66 20 6e 65 67 61 74 69 76 65 0a 20 20 f of negative.
3730: 20 20 2a 2a 20 76 61 6c 75 65 73 2c 20 72 65 73 ** values, res
3740: 75 6c 74 69 6e 67 20 69 6e 20 61 20 70 6f 73 69 ulting in a posi
3750: 74 69 76 65 20 76 61 6c 75 65 2e 20 20 54 68 65 tive value. The
3760: 6e 20 74 61 6b 65 20 74 68 65 20 0a 20 20 20 20 n take the .
3770: 2a 2a 20 32 73 20 63 6f 6d 70 6c 65 6d 65 6e 74 ** 2s complement
3780: 20 6f 66 20 74 68 61 74 20 70 6f 73 69 74 69 76 of that positiv
3790: 65 20 76 61 6c 75 65 2e 20 20 54 68 65 20 65 6e e value. The en
37a0: 64 20 72 65 73 75 6c 74 20 63 61 6e 0a 20 20 20 d result can.
37b0: 20 2a 2a 20 74 68 65 72 65 66 6f 72 65 20 62 65 ** therefore be
37c0: 20 6e 6f 20 6c 65 73 73 20 74 68 61 6e 20 2d 39 no less than -9
37d0: 32 32 33 33 37 32 30 33 36 38 35 34 37 37 35 38 2233720368547758
37e0: 30 37 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 72 07.. */. r
37f0: 20 3d 20 2d 28 72 20 26 20 4c 41 52 47 45 53 54 = -(r & LARGEST
3800: 5f 49 4e 54 36 34 29 3b 0a 20 20 7d 0a 20 20 73 _INT64);. }. s
3810: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e qlite3_result_in
3820: 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 72 29 3b t64(context, r);
3830: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d .}../*.** Implem
3840: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 72 61 6e 64 entation of rand
3850: 6f 6d 62 6c 6f 62 28 4e 29 2e 20 20 52 65 74 75 omblob(N). Retu
3860: 72 6e 20 61 20 72 61 6e 64 6f 6d 20 62 6c 6f 62 rn a random blob
3870: 0a 2a 2a 20 74 68 61 74 20 69 73 20 4e 20 62 79 .** that is N by
3880: 74 65 73 20 6c 6f 6e 67 2e 0a 2a 2f 0a 73 74 61 tes long..*/.sta
3890: 74 69 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d 42 tic void randomB
38a0: 6c 6f 62 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 lob(. sqlite3_c
38b0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
38c0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 . int argc,. s
38d0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
38e0: 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 rgv.){. sqlite3
38f0: 5f 69 6e 74 36 34 20 6e 3b 0a 20 20 75 6e 73 69 _int64 n;. unsi
3900: 67 6e 65 64 20 63 68 61 72 20 2a 70 3b 0a 20 20 gned char *p;.
3910: 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 assert( argc==1
3920: 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 );. UNUSED_PARA
3930: 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20 6e METER(argc);. n
3940: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
3950: 5f 69 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 3b _int64(argv[0]);
3960: 0a 20 20 69 66 28 20 6e 3c 31 20 29 7b 0a 20 20 . if( n<1 ){.
3970: 20 20 6e 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 70 n = 1;. }. p
3980: 20 3d 20 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63 = contextMalloc
3990: 28 63 6f 6e 74 65 78 74 2c 20 6e 29 3b 0a 20 20 (context, n);.
39a0: 69 66 28 20 70 20 29 7b 0a 20 20 20 20 73 71 6c if( p ){. sql
39b0: 69 74 65 33 5f 72 61 6e 64 6f 6d 6e 65 73 73 28 ite3_randomness(
39c0: 6e 2c 20 70 29 3b 0a 20 20 20 20 73 71 6c 69 74 n, p);. sqlit
39d0: 65 33 5f 72 65 73 75 6c 74 5f 62 6c 6f 62 28 63 e3_result_blob(c
39e0: 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 70 ontext, (char*)p
39f0: 2c 20 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 , n, sqlite3_fre
3a00: 65 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a e);. }.}../*.**
3a10: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 Implementation
3a20: 6f 66 20 74 68 65 20 6c 61 73 74 5f 69 6e 73 65 of the last_inse
3a30: 72 74 5f 72 6f 77 69 64 28 29 20 53 51 4c 20 66 rt_rowid() SQL f
3a40: 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 72 65 unction. The re
3a50: 74 75 72 6e 0a 2a 2a 20 76 61 6c 75 65 20 69 73 turn.** value is
3a60: 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 65 the same as the
3a70: 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e sqlite3_last_in
3a80: 73 65 72 74 5f 72 6f 77 69 64 28 29 20 41 50 49 sert_rowid() API
3a90: 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 function..*/.st
3aa0: 61 74 69 63 20 76 6f 69 64 20 6c 61 73 74 5f 69 atic void last_i
3ab0: 6e 73 65 72 74 5f 72 6f 77 69 64 28 0a 20 20 73 nsert_rowid(. s
3ac0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
3ad0: 63 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e 74 20 context, . int
3ae0: 4e 6f 74 55 73 65 64 2c 20 0a 20 20 73 71 6c 69 NotUsed, . sqli
3af0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 4e 6f 74 55 te3_value **NotU
3b00: 73 65 64 32 0a 29 7b 0a 20 20 73 71 6c 69 74 65 sed2.){. sqlite
3b10: 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 3 *db = sqlite3_
3b20: 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c context_db_handl
3b30: 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 55 4e e(context);. UN
3b40: 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 32 28 USED_PARAMETER2(
3b50: 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 NotUsed, NotUsed
3b60: 32 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a 20 52 2d 2);. /* IMP: R-
3b70: 35 31 35 31 33 2d 31 32 30 32 36 20 54 68 65 20 51513-12026 The
3b80: 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 last_insert_rowi
3b90: 64 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e d() SQL function
3ba0: 20 69 73 20 61 0a 20 20 2a 2a 20 77 72 61 70 70 is a. ** wrapp
3bb0: 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 73 71 er around the sq
3bc0: 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 lite3_last_inser
3bd0: 74 5f 72 6f 77 69 64 28 29 20 43 2f 43 2b 2b 20 t_rowid() C/C++
3be0: 69 6e 74 65 72 66 61 63 65 0a 20 20 2a 2a 20 66 interface. ** f
3bf0: 75 6e 63 74 69 6f 6e 2e 20 2a 2f 0a 20 20 73 71 unction. */. sq
3c00: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 lite3_result_int
3c10: 36 34 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 64(context, sqli
3c20: 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f te3_last_insert_
3c30: 72 6f 77 69 64 28 64 62 29 29 3b 0a 7d 0a 0a 2f rowid(db));.}../
3c40: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 *.** Implementat
3c50: 69 6f 6e 20 6f 66 20 74 68 65 20 63 68 61 6e 67 ion of the chang
3c60: 65 73 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f es() SQL functio
3c70: 6e 2e 0a 2a 2a 0a 2a 2a 20 49 4d 50 3a 20 52 2d n..**.** IMP: R-
3c80: 36 32 30 37 33 2d 31 31 32 30 39 20 54 68 65 20 62073-11209 The
3c90: 63 68 61 6e 67 65 73 28 29 20 53 51 4c 20 66 75 changes() SQL fu
3ca0: 6e 63 74 69 6f 6e 20 69 73 20 61 20 77 72 61 70 nction is a wrap
3cb0: 70 65 72 0a 2a 2a 20 61 72 6f 75 6e 64 20 74 68 per.** around th
3cc0: 65 20 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 e sqlite3_change
3cd0: 73 28 29 20 43 2f 43 2b 2b 20 66 75 6e 63 74 69 s() C/C++ functi
3ce0: 6f 6e 20 61 6e 64 20 68 65 6e 63 65 20 66 6f 6c on and hence fol
3cf0: 6c 6f 77 73 20 74 68 65 20 73 61 6d 65 0a 2a 2a lows the same.**
3d00: 20 72 75 6c 65 73 20 66 6f 72 20 63 6f 75 6e 74 rules for count
3d10: 69 6e 67 20 63 68 61 6e 67 65 73 2e 0a 2a 2f 0a ing changes..*/.
3d20: 73 74 61 74 69 63 20 76 6f 69 64 20 63 68 61 6e static void chan
3d30: 67 65 73 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 ges(. sqlite3_c
3d40: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
3d50: 0a 20 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a . int NotUsed,.
3d60: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
3d70: 2a 2a 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 **NotUsed2.){.
3d80: 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71 sqlite3 *db = sq
3d90: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 lite3_context_db
3da0: 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 _handle(context)
3db0: 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d ;. UNUSED_PARAM
3dc0: 45 54 45 52 32 28 4e 6f 74 55 73 65 64 2c 20 4e ETER2(NotUsed, N
3dd0: 6f 74 55 73 65 64 32 29 3b 0a 20 20 73 71 6c 69 otUsed2);. sqli
3de0: 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 te3_result_int(c
3df0: 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f ontext, sqlite3_
3e00: 63 68 61 6e 67 65 73 28 64 62 29 29 3b 0a 7d 0a changes(db));.}.
3e10: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
3e20: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 6f 74 ation of the tot
3e30: 61 6c 5f 63 68 61 6e 67 65 73 28 29 20 53 51 4c al_changes() SQL
3e40: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 function. The
3e50: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 0a return value is.
3e60: 2a 2a 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 ** the same as t
3e70: 68 65 20 73 71 6c 69 74 65 33 5f 74 6f 74 61 6c he sqlite3_total
3e80: 5f 63 68 61 6e 67 65 73 28 29 20 41 50 49 20 66 _changes() API f
3e90: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 unction..*/.stat
3ea0: 69 63 20 76 6f 69 64 20 74 6f 74 61 6c 5f 63 68 ic void total_ch
3eb0: 61 6e 67 65 73 28 0a 20 20 73 71 6c 69 74 65 33 anges(. sqlite3
3ec0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
3ed0: 74 2c 0a 20 20 69 6e 74 20 4e 6f 74 55 73 65 64 t,. int NotUsed
3ee0: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ,. sqlite3_valu
3ef0: 65 20 2a 2a 4e 6f 74 55 73 65 64 32 0a 29 7b 0a e **NotUsed2.){.
3f00: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 sqlite3 *db =
3f10: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f sqlite3_context_
3f20: 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 db_handle(contex
3f30: 74 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 t);. UNUSED_PAR
3f40: 41 4d 45 54 45 52 32 28 4e 6f 74 55 73 65 64 2c AMETER2(NotUsed,
3f50: 20 4e 6f 74 55 73 65 64 32 29 3b 0a 20 20 2f 2a NotUsed2);. /*
3f60: 20 49 4d 50 3a 20 52 2d 35 32 37 35 36 2d 34 31 IMP: R-52756-41
3f70: 39 39 33 20 54 68 69 73 20 66 75 6e 63 74 69 6f 993 This functio
3f80: 6e 20 69 73 20 61 20 77 72 61 70 70 65 72 20 61 n is a wrapper a
3f90: 72 6f 75 6e 64 20 74 68 65 0a 20 20 2a 2a 20 73 round the. ** s
3fa0: 71 6c 69 74 65 33 5f 74 6f 74 61 6c 5f 63 68 61 qlite3_total_cha
3fb0: 6e 67 65 73 28 29 20 43 2f 43 2b 2b 20 69 6e 74 nges() C/C++ int
3fc0: 65 72 66 61 63 65 2e 20 2a 2f 0a 20 20 73 71 6c erface. */. sql
3fd0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 ite3_result_int(
3fe0: 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 context, sqlite3
3ff0: 5f 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 28 64 _total_changes(d
4000: 62 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 b));.}../*.** A
4010: 73 74 72 75 63 74 75 72 65 20 64 65 66 69 6e 69 structure defini
4020: 6e 67 20 68 6f 77 20 74 6f 20 64 6f 20 47 4c 4f ng how to do GLO
4030: 42 2d 73 74 79 6c 65 20 63 6f 6d 70 61 72 69 73 B-style comparis
4040: 6f 6e 73 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 63 ons..*/.struct c
4050: 6f 6d 70 61 72 65 49 6e 66 6f 20 7b 0a 20 20 75 ompareInfo {. u
4060: 38 20 6d 61 74 63 68 41 6c 6c 3b 20 20 20 20 20 8 matchAll;
4070: 20 20 20 20 20 2f 2a 20 22 2a 22 20 6f 72 20 22 /* "*" or "
4080: 25 22 20 2a 2f 0a 20 20 75 38 20 6d 61 74 63 68 %" */. u8 match
4090: 4f 6e 65 3b 20 20 20 20 20 20 20 20 20 20 2f 2a One; /*
40a0: 20 22 3f 22 20 6f 72 20 22 5f 22 20 2a 2f 0a 20 "?" or "_" */.
40b0: 20 75 38 20 6d 61 74 63 68 53 65 74 3b 20 20 20 u8 matchSet;
40c0: 20 20 20 20 20 20 20 2f 2a 20 22 5b 22 20 6f 72 /* "[" or
40d0: 20 30 20 2a 2f 0a 20 20 75 38 20 6e 6f 43 61 73 0 */. u8 noCas
40e0: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a e; /*
40f0: 20 74 72 75 65 20 74 6f 20 69 67 6e 6f 72 65 20 true to ignore
4100: 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 case differences
4110: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 46 6f */.};../*.** Fo
4120: 72 20 4c 49 4b 45 20 61 6e 64 20 47 4c 4f 42 20 r LIKE and GLOB
4130: 6d 61 74 63 68 69 6e 67 20 6f 6e 20 45 42 43 44 matching on EBCD
4140: 49 43 20 6d 61 63 68 69 6e 65 73 2c 20 61 73 73 IC machines, ass
4150: 75 6d 65 20 74 68 61 74 20 65 76 65 72 79 0a 2a ume that every.*
4160: 2a 20 63 68 61 72 61 63 74 65 72 20 69 73 20 65 * character is e
4170: 78 61 63 74 6c 79 20 6f 6e 65 20 62 79 74 65 20 xactly one byte
4180: 69 6e 20 73 69 7a 65 2e 20 20 41 6c 73 6f 2c 20 in size. Also,
4190: 70 72 6f 76 64 65 20 74 68 65 20 55 74 66 38 52 provde the Utf8R
41a0: 65 61 64 28 29 0a 2a 2a 20 6d 61 63 72 6f 20 66 ead().** macro f
41b0: 6f 72 20 66 61 73 74 20 72 65 61 64 69 6e 67 20 or fast reading
41c0: 6f 66 20 74 68 65 20 6e 65 78 74 20 63 68 61 72 of the next char
41d0: 61 63 74 65 72 20 69 6e 20 74 68 65 20 63 6f 6d acter in the com
41e0: 6d 6f 6e 20 63 61 73 65 20 77 68 65 72 65 0a 2a mon case where.*
41f0: 2a 20 74 68 65 20 6e 65 78 74 20 63 68 61 72 61 * the next chara
4200: 63 74 65 72 20 69 73 20 41 53 43 49 49 2e 0a 2a cter is ASCII..*
4210: 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28 53 51 /.#if defined(SQ
4220: 4c 49 54 45 5f 45 42 43 44 49 43 29 0a 23 20 64 LITE_EBCDIC).# d
4230: 65 66 69 6e 65 20 73 71 6c 69 74 65 33 55 74 66 efine sqlite3Utf
4240: 38 52 65 61 64 28 41 29 20 20 20 20 20 20 20 20 8Read(A)
4250: 28 2a 28 28 2a 41 29 2b 2b 29 29 0a 23 20 64 65 (*((*A)++)).# de
4260: 66 69 6e 65 20 55 74 66 38 52 65 61 64 28 41 29 fine Utf8Read(A)
4270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
4280: 2a 28 41 2b 2b 29 29 0a 23 65 6c 73 65 0a 23 20 *(A++)).#else.#
4290: 64 65 66 69 6e 65 20 55 74 66 38 52 65 61 64 28 define Utf8Read(
42a0: 41 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A)
42b0: 20 28 41 5b 30 5d 3c 30 78 38 30 3f 2a 28 41 2b (A[0]<0x80?*(A+
42c0: 2b 29 3a 73 71 6c 69 74 65 33 55 74 66 38 52 65 +):sqlite3Utf8Re
42d0: 61 64 28 26 41 29 29 0a 23 65 6e 64 69 66 0a 0a ad(&A)).#endif..
42e0: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74 72 static const str
42f0: 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 uct compareInfo
4300: 67 6c 6f 62 49 6e 66 6f 20 3d 20 7b 20 27 2a 27 globInfo = { '*'
4310: 2c 20 27 3f 27 2c 20 27 5b 27 2c 20 30 20 7d 3b , '?', '[', 0 };
4320: 0a 2f 2a 20 54 68 65 20 63 6f 72 72 65 63 74 20 ./* The correct
4330: 53 51 4c 2d 39 32 20 62 65 68 61 76 69 6f 72 20 SQL-92 behavior
4340: 69 73 20 66 6f 72 20 74 68 65 20 4c 49 4b 45 20 is for the LIKE
4350: 6f 70 65 72 61 74 6f 72 20 74 6f 20 69 67 6e 6f operator to igno
4360: 72 65 0a 2a 2a 20 63 61 73 65 2e 20 20 54 68 75 re.** case. Thu
4370: 73 20 20 27 61 27 20 4c 49 4b 45 20 27 41 27 20 s 'a' LIKE 'A'
4380: 77 6f 75 6c 64 20 62 65 20 74 72 75 65 2e 20 2a would be true. *
4390: 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 /.static const s
43a0: 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 truct compareInf
43b0: 6f 20 6c 69 6b 65 49 6e 66 6f 4e 6f 72 6d 20 3d o likeInfoNorm =
43c0: 20 7b 20 27 25 27 2c 20 27 5f 27 2c 20 20 20 30 { '%', '_', 0
43d0: 2c 20 31 20 7d 3b 0a 2f 2a 20 49 66 20 53 51 4c , 1 };./* If SQL
43e0: 49 54 45 5f 43 41 53 45 5f 53 45 4e 53 49 54 49 ITE_CASE_SENSITI
43f0: 56 45 5f 4c 49 4b 45 20 69 73 20 64 65 66 69 6e VE_LIKE is defin
4400: 65 64 2c 20 74 68 65 6e 20 74 68 65 20 4c 49 4b ed, then the LIK
4410: 45 20 6f 70 65 72 61 74 6f 72 0a 2a 2a 20 69 73 E operator.** is
4420: 20 63 61 73 65 20 73 65 6e 73 69 74 69 76 65 20 case sensitive
4430: 63 61 75 73 69 6e 67 20 27 61 27 20 4c 49 4b 45 causing 'a' LIKE
4440: 20 27 41 27 20 74 6f 20 62 65 20 66 61 6c 73 65 'A' to be false
4450: 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 */.static const
4460: 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 struct compareI
4470: 6e 66 6f 20 6c 69 6b 65 49 6e 66 6f 41 6c 74 20 nfo likeInfoAlt
4480: 3d 20 7b 20 27 25 27 2c 20 27 5f 27 2c 20 20 20 = { '%', '_',
4490: 30 2c 20 30 20 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 50 0, 0 };../*.** P
44a0: 6f 73 73 69 62 6c 65 20 65 72 72 6f 72 20 72 65 ossible error re
44b0: 74 75 72 6e 73 20 66 72 6f 6d 20 70 61 74 74 65 turns from patte
44c0: 72 6e 4d 61 74 63 68 28 29 0a 2a 2f 0a 23 64 65 rnMatch().*/.#de
44d0: 66 69 6e 65 20 53 51 4c 49 54 45 5f 4d 41 54 43 fine SQLITE_MATC
44e0: 48 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0a H 0.
44f0: 23 64 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 4e #define SQLITE_N
4500: 4f 4d 41 54 43 48 20 20 20 20 20 20 20 20 20 20 OMATCH
4510: 20 31 0a 23 64 65 66 69 6e 65 20 53 51 4c 49 54 1.#define SQLIT
4520: 45 5f 4e 4f 57 49 4c 44 43 41 52 44 4d 41 54 43 E_NOWILDCARDMATC
4530: 48 20 20 20 32 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d H 2../*.** Com
4540: 70 61 72 65 20 74 77 6f 20 55 54 46 2d 38 20 73 pare two UTF-8 s
4550: 74 72 69 6e 67 73 20 66 6f 72 20 65 71 75 61 6c trings for equal
4560: 69 74 79 20 77 68 65 72 65 20 74 68 65 20 66 69 ity where the fi
4570: 72 73 74 20 73 74 72 69 6e 67 20 69 73 0a 2a 2a rst string is.**
4580: 20 61 20 47 4c 4f 42 20 6f 72 20 4c 49 4b 45 20 a GLOB or LIKE
4590: 65 78 70 72 65 73 73 69 6f 6e 2e 20 20 52 65 74 expression. Ret
45a0: 75 72 6e 20 76 61 6c 75 65 73 3a 0a 2a 2a 0a 2a urn values:.**.*
45b0: 2a 20 20 20 20 53 51 4c 49 54 45 5f 4d 41 54 43 * SQLITE_MATC
45c0: 48 3a 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 H: Ma
45d0: 74 63 68 0a 2a 2a 20 20 20 20 53 51 4c 49 54 45 tch.** SQLITE
45e0: 5f 4e 4f 4d 41 54 43 48 3a 20 20 20 20 20 20 20 _NOMATCH:
45f0: 20 20 20 4e 6f 20 6d 61 74 63 68 0a 2a 2a 20 20 No match.**
4600: 20 20 53 51 4c 49 54 45 5f 4e 4f 57 49 4c 44 43 SQLITE_NOWILDC
4610: 41 52 44 4d 41 54 43 48 3a 20 20 4e 6f 20 6d 61 ARDMATCH: No ma
4620: 74 63 68 20 69 6e 20 73 70 69 74 65 20 6f 66 20 tch in spite of
4630: 68 61 76 69 6e 67 20 2a 20 6f 72 20 25 20 77 69 having * or % wi
4640: 6c 64 63 61 72 64 73 2e 0a 2a 2a 0a 2a 2a 20 47 ldcards..**.** G
4650: 6c 6f 62 62 69 6e 67 20 72 75 6c 65 73 3a 0a 2a lobbing rules:.*
4660: 2a 0a 2a 2a 20 20 20 20 20 20 27 2a 27 20 20 20 *.** '*'
4670: 20 20 20 20 4d 61 74 63 68 65 73 20 61 6e 79 20 Matches any
4680: 73 65 71 75 65 6e 63 65 20 6f 66 20 7a 65 72 6f sequence of zero
4690: 20 6f 72 20 6d 6f 72 65 20 63 68 61 72 61 63 74 or more charact
46a0: 65 72 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 ers..**.**
46b0: 27 3f 27 20 20 20 20 20 20 20 4d 61 74 63 68 65 '?' Matche
46c0: 73 20 65 78 61 63 74 6c 79 20 6f 6e 65 20 63 68 s exactly one ch
46d0: 61 72 61 63 74 65 72 2e 0a 2a 2a 0a 2a 2a 20 20 aracter..**.**
46e0: 20 20 20 5b 2e 2e 2e 5d 20 20 20 20 20 20 4d 61 [...] Ma
46f0: 74 63 68 65 73 20 6f 6e 65 20 63 68 61 72 61 63 tches one charac
4700: 74 65 72 20 66 72 6f 6d 20 74 68 65 20 65 6e 63 ter from the enc
4710: 6c 6f 73 65 64 20 6c 69 73 74 20 6f 66 0a 2a 2a losed list of.**
4720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4730: 63 68 61 72 61 63 74 65 72 73 2e 0a 2a 2a 0a 2a characters..**.*
4740: 2a 20 20 20 20 20 5b 5e 2e 2e 2e 5d 20 20 20 20 * [^...]
4750: 20 4d 61 74 63 68 65 73 20 6f 6e 65 20 63 68 61 Matches one cha
4760: 72 61 63 74 65 72 20 6e 6f 74 20 69 6e 20 74 68 racter not in th
4770: 65 20 65 6e 63 6c 6f 73 65 64 20 6c 69 73 74 2e e enclosed list.
4780: 0a 2a 2a 0a 2a 2a 20 57 69 74 68 20 74 68 65 20 .**.** With the
4790: 5b 2e 2e 2e 5d 20 61 6e 64 20 5b 5e 2e 2e 2e 5d [...] and [^...]
47a0: 20 6d 61 74 63 68 69 6e 67 2c 20 61 20 27 5d 27 matching, a ']'
47b0: 20 63 68 61 72 61 63 74 65 72 20 63 61 6e 20 62 character can b
47c0: 65 20 69 6e 63 6c 75 64 65 64 0a 2a 2a 20 69 6e e included.** in
47d0: 20 74 68 65 20 6c 69 73 74 20 62 79 20 6d 61 6b the list by mak
47e0: 69 6e 67 20 69 74 20 74 68 65 20 66 69 72 73 74 ing it the first
47f0: 20 63 68 61 72 61 63 74 65 72 20 61 66 74 65 72 character after
4800: 20 27 5b 27 20 6f 72 20 27 5e 27 2e 20 20 41 0a '[' or '^'. A.
4810: 2a 2a 20 72 61 6e 67 65 20 6f 66 20 63 68 61 72 ** range of char
4820: 61 63 74 65 72 73 20 63 61 6e 20 62 65 20 73 70 acters can be sp
4830: 65 63 69 66 69 65 64 20 75 73 69 6e 67 20 27 2d ecified using '-
4840: 27 2e 20 20 45 78 61 6d 70 6c 65 3a 0a 2a 2a 20 '. Example:.**
4850: 22 5b 61 2d 7a 5d 22 20 6d 61 74 63 68 65 73 20 "[a-z]" matches
4860: 61 6e 79 20 73 69 6e 67 6c 65 20 6c 6f 77 65 72 any single lower
4870: 2d 63 61 73 65 20 6c 65 74 74 65 72 2e 20 20 54 -case letter. T
4880: 6f 20 6d 61 74 63 68 20 61 20 27 2d 27 2c 20 6d o match a '-', m
4890: 61 6b 65 0a 2a 2a 20 69 74 20 74 68 65 20 6c 61 ake.** it the la
48a0: 73 74 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 st character in
48b0: 74 68 65 20 6c 69 73 74 2e 0a 2a 2a 0a 2a 2a 20 the list..**.**
48c0: 4c 69 6b 65 20 6d 61 74 63 68 69 6e 67 20 72 75 Like matching ru
48d0: 6c 65 73 3a 0a 2a 2a 20 0a 2a 2a 20 20 20 20 20 les:.** .**
48e0: 20 27 25 27 20 20 20 20 20 20 20 4d 61 74 63 68 '%' Match
48f0: 65 73 20 61 6e 79 20 73 65 71 75 65 6e 63 65 20 es any sequence
4900: 6f 66 20 7a 65 72 6f 20 6f 72 20 6d 6f 72 65 20 of zero or more
4910: 63 68 61 72 61 63 74 65 72 73 0a 2a 2a 0a 2a 2a characters.**.**
4920: 2a 20 20 20 20 20 27 5f 27 20 20 20 20 20 20 20 * '_'
4930: 4d 61 74 63 68 65 73 20 61 6e 79 20 6f 6e 65 20 Matches any one
4940: 63 68 61 72 61 63 74 65 72 0a 2a 2a 0a 2a 2a 20 character.**.**
4950: 20 20 20 20 20 45 63 20 20 20 20 20 20 20 20 57 Ec W
4960: 68 65 72 65 20 45 20 69 73 20 74 68 65 20 22 65 here E is the "e
4970: 73 63 22 20 63 68 61 72 61 63 74 65 72 20 61 6e sc" character an
4980: 64 20 63 20 69 73 20 61 6e 79 20 6f 74 68 65 72 d c is any other
4990: 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 .**
49a0: 20 20 20 63 68 61 72 61 63 74 65 72 2c 20 69 6e character, in
49b0: 63 6c 75 64 69 6e 67 20 27 25 27 2c 20 27 5f 27 cluding '%', '_'
49c0: 2c 20 61 6e 64 20 65 73 63 2c 20 6d 61 74 63 68 , and esc, match
49d0: 20 65 78 61 63 74 6c 79 20 63 2e 0a 2a 2a 0a 2a exactly c..**.*
49e0: 2a 20 54 68 65 20 63 6f 6d 6d 65 6e 74 73 20 77 * The comments w
49f0: 69 74 68 69 6e 20 74 68 69 73 20 72 6f 75 74 69 ithin this routi
4a00: 6e 65 20 75 73 75 61 6c 6c 79 20 61 73 73 75 6d ne usually assum
4a10: 65 20 67 6c 6f 62 20 6d 61 74 63 68 69 6e 67 2e e glob matching.
4a20: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 .**.** This rout
4a30: 69 6e 65 20 69 73 20 75 73 75 61 6c 6c 79 20 71 ine is usually q
4a40: 75 69 63 6b 2c 20 62 75 74 20 63 61 6e 20 62 65 uick, but can be
4a50: 20 4e 2a 2a 32 20 69 6e 20 74 68 65 20 77 6f 72 N**2 in the wor
4a60: 73 74 20 63 61 73 65 2e 0a 2a 2f 0a 73 74 61 74 st case..*/.stat
4a70: 69 63 20 69 6e 74 20 70 61 74 74 65 72 6e 43 6f ic int patternCo
4a80: 6d 70 61 72 65 28 0a 20 20 63 6f 6e 73 74 20 75 mpare(. const u
4a90: 38 20 2a 7a 50 61 74 74 65 72 6e 2c 20 20 20 20 8 *zPattern,
4aa0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 /* The
4ab0: 20 67 6c 6f 62 20 70 61 74 74 65 72 6e 20 2a 2f glob pattern */
4ac0: 0a 20 20 63 6f 6e 73 74 20 75 38 20 2a 7a 53 74 . const u8 *zSt
4ad0: 72 69 6e 67 2c 20 20 20 20 20 20 20 20 20 20 20 ring,
4ae0: 20 20 20 20 2f 2a 20 54 68 65 20 73 74 72 69 6e /* The strin
4af0: 67 20 74 6f 20 63 6f 6d 70 61 72 65 20 61 67 61 g to compare aga
4b00: 69 6e 73 74 20 74 68 65 20 67 6c 6f 62 20 2a 2f inst the glob */
4b10: 0a 20 20 63 6f 6e 73 74 20 73 74 72 75 63 74 20 . const struct
4b20: 63 6f 6d 70 61 72 65 49 6e 66 6f 20 2a 70 49 6e compareInfo *pIn
4b30: 66 6f 2c 20 2f 2a 20 49 6e 66 6f 72 6d 61 74 69 fo, /* Informati
4b40: 6f 6e 20 61 62 6f 75 74 20 68 6f 77 20 74 6f 20 on about how to
4b50: 64 6f 20 74 68 65 20 63 6f 6d 70 61 72 65 20 2a do the compare *
4b60: 2f 0a 20 20 75 33 32 20 6d 61 74 63 68 4f 74 68 /. u32 matchOth
4b70: 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 er
4b80: 20 20 20 20 20 2f 2a 20 54 68 65 20 65 73 63 61 /* The esca
4b90: 70 65 20 63 68 61 72 20 28 4c 49 4b 45 29 20 6f pe char (LIKE) o
4ba0: 72 20 27 5b 27 20 28 47 4c 4f 42 29 20 2a 2f 0a r '[' (GLOB) */.
4bb0: 29 7b 0a 20 20 75 33 32 20 63 2c 20 63 32 3b 20 ){. u32 c, c2;
4bc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4bd0: 20 20 20 20 20 20 2f 2a 20 4e 65 78 74 20 70 61 /* Next pa
4be0: 74 74 65 72 6e 20 61 6e 64 20 69 6e 70 75 74 20 ttern and input
4bf0: 73 74 72 69 6e 67 20 63 68 61 72 73 20 2a 2f 0a string chars */.
4c00: 20 20 75 33 32 20 6d 61 74 63 68 4f 6e 65 20 3d u32 matchOne =
4c10: 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 4f 6e 65 pInfo->matchOne
4c20: 3b 20 20 2f 2a 20 22 3f 22 20 6f 72 20 22 5f 22 ; /* "?" or "_"
4c30: 20 2a 2f 0a 20 20 75 33 32 20 6d 61 74 63 68 41 */. u32 matchA
4c40: 6c 6c 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 ll = pInfo->matc
4c50: 68 41 6c 6c 3b 20 20 2f 2a 20 22 2a 22 20 6f 72 hAll; /* "*" or
4c60: 20 22 25 22 20 2a 2f 0a 20 20 75 38 20 6e 6f 43 "%" */. u8 noC
4c70: 61 73 65 20 3d 20 70 49 6e 66 6f 2d 3e 6e 6f 43 ase = pInfo->noC
4c80: 61 73 65 3b 20 20 20 20 20 20 20 2f 2a 20 54 72 ase; /* Tr
4c90: 75 65 20 69 66 20 75 70 70 65 72 63 61 73 65 3d ue if uppercase=
4ca0: 3d 6c 6f 77 65 72 63 61 73 65 20 2a 2f 0a 20 20 =lowercase */.
4cb0: 63 6f 6e 73 74 20 75 38 20 2a 7a 45 73 63 61 70 const u8 *zEscap
4cc0: 65 64 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 ed = 0;
4cd0: 20 2f 2a 20 4f 6e 65 20 70 61 73 74 20 74 68 65 /* One past the
4ce0: 20 6c 61 73 74 20 65 73 63 61 70 65 64 20 69 6e last escaped in
4cf0: 70 75 74 20 63 68 61 72 20 2a 2f 0a 20 20 0a 20 put char */. .
4d00: 20 77 68 69 6c 65 28 20 28 63 20 3d 20 55 74 66 while( (c = Utf
4d10: 38 52 65 61 64 28 7a 50 61 74 74 65 72 6e 29 29 8Read(zPattern))
4d20: 21 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 63 !=0 ){. if( c
4d30: 3d 3d 6d 61 74 63 68 41 6c 6c 20 29 7b 20 20 2f ==matchAll ){ /
4d40: 2a 20 4d 61 74 63 68 20 22 2a 22 20 2a 2f 0a 20 * Match "*" */.
4d50: 20 20 20 20 20 2f 2a 20 53 6b 69 70 20 6f 76 65 /* Skip ove
4d60: 72 20 6d 75 6c 74 69 70 6c 65 20 22 2a 22 20 63 r multiple "*" c
4d70: 68 61 72 61 63 74 65 72 73 20 69 6e 20 74 68 65 haracters in the
4d80: 20 70 61 74 74 65 72 6e 2e 20 20 49 66 20 74 68 pattern. If th
4d90: 65 72 65 0a 20 20 20 20 20 20 2a 2a 20 61 72 65 ere. ** are
4da0: 20 61 6c 73 6f 20 22 3f 22 20 63 68 61 72 61 63 also "?" charac
4db0: 74 65 72 73 2c 20 73 6b 69 70 20 74 68 6f 73 65 ters, skip those
4dc0: 20 61 73 20 77 65 6c 6c 2c 20 62 75 74 20 63 6f as well, but co
4dd0: 6e 73 75 6d 65 20 61 0a 20 20 20 20 20 20 2a 2a nsume a. **
4de0: 20 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65 single characte
4df0: 72 20 6f 66 20 74 68 65 20 69 6e 70 75 74 20 73 r of the input s
4e00: 74 72 69 6e 67 20 66 6f 72 20 65 61 63 68 20 22 tring for each "
4e10: 3f 22 20 73 6b 69 70 70 65 64 20 2a 2f 0a 20 20 ?" skipped */.
4e20: 20 20 20 20 77 68 69 6c 65 28 20 28 63 3d 55 74 while( (c=Ut
4e30: 66 38 52 65 61 64 28 7a 50 61 74 74 65 72 6e 29 f8Read(zPattern)
4e40: 29 20 3d 3d 20 6d 61 74 63 68 41 6c 6c 20 7c 7c ) == matchAll ||
4e50: 20 63 20 3d 3d 20 6d 61 74 63 68 4f 6e 65 20 29 c == matchOne )
4e60: 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 3d {. if( c=
4e70: 3d 6d 61 74 63 68 4f 6e 65 20 26 26 20 73 71 6c =matchOne && sql
4e80: 69 74 65 33 55 74 66 38 52 65 61 64 28 26 7a 53 ite3Utf8Read(&zS
4e90: 74 72 69 6e 67 29 3d 3d 30 20 29 7b 0a 20 20 20 tring)==0 ){.
4ea0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 return SQ
4eb0: 4c 49 54 45 5f 4e 4f 57 49 4c 44 43 41 52 44 4d LITE_NOWILDCARDM
4ec0: 41 54 43 48 3b 0a 20 20 20 20 20 20 20 20 7d 0a ATCH;. }.
4ed0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 }. if
4ee0: 28 20 63 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 ( c==0 ){.
4ef0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f return SQLITE_
4f00: 4d 41 54 43 48 3b 20 20 20 2f 2a 20 22 2a 22 20 MATCH; /* "*"
4f10: 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 at the end of th
4f20: 65 20 70 61 74 74 65 72 6e 20 6d 61 74 63 68 65 e pattern matche
4f30: 73 20 2a 2f 0a 20 20 20 20 20 20 7d 65 6c 73 65 s */. }else
4f40: 20 69 66 28 20 63 3d 3d 6d 61 74 63 68 4f 74 68 if( c==matchOth
4f50: 65 72 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 er ){. if
4f60: 28 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 53 65 ( pInfo->matchSe
4f70: 74 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 t==0 ){.
4f80: 20 20 63 20 3d 20 73 71 6c 69 74 65 33 55 74 66 c = sqlite3Utf
4f90: 38 52 65 61 64 28 26 7a 50 61 74 74 65 72 6e 29 8Read(&zPattern)
4fa0: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 ;. if(
4fb0: 63 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 53 51 c==0 ) return SQ
4fc0: 4c 49 54 45 5f 4e 4f 57 49 4c 44 43 41 52 44 4d LITE_NOWILDCARDM
4fd0: 41 54 43 48 3b 0a 20 20 20 20 20 20 20 20 7d 65 ATCH;. }e
4fe0: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 2f lse{. /
4ff0: 2a 20 22 5b 2e 2e 2e 5d 22 20 69 6d 6d 65 64 69 * "[...]" immedi
5000: 61 74 65 6c 79 20 66 6f 6c 6c 6f 77 73 20 74 68 ately follows th
5010: 65 20 22 2a 22 2e 20 20 57 65 20 68 61 76 65 20 e "*". We have
5020: 74 6f 20 64 6f 20 61 20 73 6c 6f 77 0a 20 20 20 to do a slow.
5030: 20 20 20 20 20 20 20 2a 2a 20 72 65 63 75 72 73 ** recurs
5040: 69 76 65 20 73 65 61 72 63 68 20 69 6e 20 74 68 ive search in th
5050: 69 73 20 63 61 73 65 2c 20 62 75 74 20 69 74 20 is case, but it
5060: 69 73 20 61 6e 20 75 6e 75 73 75 61 6c 20 63 61 is an unusual ca
5070: 73 65 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 se. */.
5080: 20 61 73 73 65 72 74 28 20 6d 61 74 63 68 4f 74 assert( matchOt
5090: 68 65 72 3c 30 78 38 30 20 29 3b 20 20 2f 2a 20 her<0x80 ); /*
50a0: 27 5b 27 20 69 73 20 61 20 73 69 6e 67 6c 65 2d '[' is a single-
50b0: 62 79 74 65 20 63 68 61 72 61 63 74 65 72 20 2a byte character *
50c0: 2f 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c /. whil
50d0: 65 28 20 2a 7a 53 74 72 69 6e 67 20 29 7b 0a 20 e( *zString ){.
50e0: 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 62 int b
50f0: 4d 61 74 63 68 20 3d 20 70 61 74 74 65 72 6e 43 Match = patternC
5100: 6f 6d 70 61 72 65 28 26 7a 50 61 74 74 65 72 6e ompare(&zPattern
5110: 5b 2d 31 5d 2c 7a 53 74 72 69 6e 67 2c 70 49 6e [-1],zString,pIn
5120: 66 6f 2c 6d 61 74 63 68 4f 74 68 65 72 29 3b 0a fo,matchOther);.
5130: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20 if(
5140: 62 4d 61 74 63 68 21 3d 53 51 4c 49 54 45 5f 4e bMatch!=SQLITE_N
5150: 4f 4d 41 54 43 48 20 29 20 72 65 74 75 72 6e 20 OMATCH ) return
5160: 62 4d 61 74 63 68 3b 0a 20 20 20 20 20 20 20 20 bMatch;.
5170: 20 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f SQLITE_SKIP_
5180: 55 54 46 38 28 7a 53 74 72 69 6e 67 29 3b 0a 20 UTF8(zString);.
5190: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
51a0: 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 return SQLI
51b0: 54 45 5f 4e 4f 57 49 4c 44 43 41 52 44 4d 41 54 TE_NOWILDCARDMAT
51c0: 43 48 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 CH;. }.
51d0: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 2f 2a 20 }.. /*
51e0: 41 74 20 74 68 69 73 20 70 6f 69 6e 74 20 76 61 At this point va
51f0: 72 69 61 62 6c 65 20 63 20 63 6f 6e 74 61 69 6e riable c contain
5200: 73 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 s the first char
5210: 61 63 74 65 72 20 6f 66 20 74 68 65 0a 20 20 20 acter of the.
5220: 20 20 20 2a 2a 20 70 61 74 74 65 72 6e 20 73 74 ** pattern st
5230: 72 69 6e 67 20 70 61 73 74 20 74 68 65 20 22 2a ring past the "*
5240: 22 2e 20 20 53 65 61 72 63 68 20 69 6e 20 74 68 ". Search in th
5250: 65 20 69 6e 70 75 74 20 73 74 72 69 6e 67 20 66 e input string f
5260: 6f 72 20 74 68 65 0a 20 20 20 20 20 20 2a 2a 20 or the. **
5270: 66 69 72 73 74 20 6d 61 74 63 68 69 6e 67 20 63 first matching c
5280: 68 61 72 61 63 74 65 72 20 61 6e 64 20 72 65 63 haracter and rec
5290: 75 72 73 69 76 65 6c 79 20 63 6f 6e 74 69 6e 75 ursively continu
52a0: 65 20 74 68 65 20 6d 61 74 63 68 20 66 72 6f 6d e the match from
52b0: 0a 20 20 20 20 20 20 2a 2a 20 74 68 61 74 20 70 . ** that p
52c0: 6f 69 6e 74 2e 0a 20 20 20 20 20 20 2a 2a 0a 20 oint.. **.
52d0: 20 20 20 20 20 2a 2a 20 46 6f 72 20 61 20 63 61 ** For a ca
52e0: 73 65 2d 69 6e 73 65 6e 73 69 74 69 76 65 20 73 se-insensitive s
52f0: 65 61 72 63 68 2c 20 73 65 74 20 76 61 72 69 61 earch, set varia
5300: 62 6c 65 20 63 78 20 74 6f 20 62 65 20 74 68 65 ble cx to be the
5310: 20 73 61 6d 65 20 61 73 0a 20 20 20 20 20 20 2a same as. *
5320: 2a 20 63 20 62 75 74 20 69 6e 20 74 68 65 20 6f * c but in the o
5330: 74 68 65 72 20 63 61 73 65 20 61 6e 64 20 73 65 ther case and se
5340: 61 72 63 68 20 74 68 65 20 69 6e 70 75 74 20 73 arch the input s
5350: 74 72 69 6e 67 20 66 6f 72 20 65 69 74 68 65 72 tring for either
5360: 0a 20 20 20 20 20 20 2a 2a 20 63 20 6f 72 20 63 . ** c or c
5370: 78 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 x.. */.
5380: 20 20 69 66 28 20 63 3c 3d 30 78 38 30 20 29 7b if( c<=0x80 ){
5390: 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 7a 53 . char zS
53a0: 74 6f 70 5b 33 5d 3b 0a 20 20 20 20 20 20 20 20 top[3];.
53b0: 69 6e 74 20 62 4d 61 74 63 68 3b 0a 20 20 20 20 int bMatch;.
53c0: 20 20 20 20 69 66 28 20 6e 6f 43 61 73 65 20 29 if( noCase )
53d0: 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 53 74 6f {. zSto
53e0: 70 5b 30 5d 20 3d 20 73 71 6c 69 74 65 33 54 6f p[0] = sqlite3To
53f0: 75 70 70 65 72 28 63 29 3b 0a 20 20 20 20 20 20 upper(c);.
5400: 20 20 20 20 7a 53 74 6f 70 5b 31 5d 20 3d 20 73 zStop[1] = s
5410: 71 6c 69 74 65 33 54 6f 6c 6f 77 65 72 28 63 29 qlite3Tolower(c)
5420: 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 53 74 6f ;. zSto
5430: 70 5b 32 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 p[2] = 0;.
5440: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
5450: 20 20 20 7a 53 74 6f 70 5b 30 5d 20 3d 20 63 3b zStop[0] = c;
5460: 0a 20 20 20 20 20 20 20 20 20 20 7a 53 74 6f 70 . zStop
5470: 5b 31 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 [1] = 0;.
5480: 20 7d 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 }. while
5490: 28 31 29 7b 0a 20 20 20 20 20 20 20 20 20 20 7a (1){. z
54a0: 53 74 72 69 6e 67 20 2b 3d 20 73 74 72 63 73 70 String += strcsp
54b0: 6e 28 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 7a n((const char*)z
54c0: 53 74 72 69 6e 67 2c 20 7a 53 74 6f 70 29 3b 0a String, zStop);.
54d0: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 7a 53 if( zS
54e0: 74 72 69 6e 67 5b 30 5d 3d 3d 30 20 29 20 62 72 tring[0]==0 ) br
54f0: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 7a eak;. z
5500: 53 74 72 69 6e 67 2b 2b 3b 0a 20 20 20 20 20 20 String++;.
5510: 20 20 20 20 62 4d 61 74 63 68 20 3d 20 70 61 74 bMatch = pat
5520: 74 65 72 6e 43 6f 6d 70 61 72 65 28 7a 50 61 74 ternCompare(zPat
5530: 74 65 72 6e 2c 7a 53 74 72 69 6e 67 2c 70 49 6e tern,zString,pIn
5540: 66 6f 2c 6d 61 74 63 68 4f 74 68 65 72 29 3b 0a fo,matchOther);.
5550: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 62 4d if( bM
5560: 61 74 63 68 21 3d 53 51 4c 49 54 45 5f 4e 4f 4d atch!=SQLITE_NOM
5570: 41 54 43 48 20 29 20 72 65 74 75 72 6e 20 62 4d ATCH ) return bM
5580: 61 74 63 68 3b 0a 20 20 20 20 20 20 20 20 7d 0a atch;. }.
5590: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 }else{.
55a0: 20 20 20 20 20 69 6e 74 20 62 4d 61 74 63 68 3b int bMatch;
55b0: 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 . while(
55c0: 28 63 32 20 3d 20 55 74 66 38 52 65 61 64 28 7a (c2 = Utf8Read(z
55d0: 53 74 72 69 6e 67 29 29 21 3d 30 20 29 7b 0a 20 String))!=0 ){.
55e0: 20 20 20 20 20 20 20 20 20 69 66 28 20 63 32 21 if( c2!
55f0: 3d 63 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 =c ) continue;.
5600: 20 20 20 20 20 20 20 20 20 62 4d 61 74 63 68 20 bMatch
5610: 3d 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 = patternCompare
5620: 28 7a 50 61 74 74 65 72 6e 2c 7a 53 74 72 69 6e (zPattern,zStrin
5630: 67 2c 70 49 6e 66 6f 2c 6d 61 74 63 68 4f 74 68 g,pInfo,matchOth
5640: 65 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 er);. i
5650: 66 28 20 62 4d 61 74 63 68 21 3d 53 51 4c 49 54 f( bMatch!=SQLIT
5660: 45 5f 4e 4f 4d 41 54 43 48 20 29 20 72 65 74 75 E_NOMATCH ) retu
5670: 72 6e 20 62 4d 61 74 63 68 3b 0a 20 20 20 20 20 rn bMatch;.
5680: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 }. }.
5690: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 return SQLITE
56a0: 5f 4e 4f 57 49 4c 44 43 41 52 44 4d 41 54 43 48 _NOWILDCARDMATCH
56b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 ;. }. if(
56c0: 63 3d 3d 6d 61 74 63 68 4f 74 68 65 72 20 29 7b c==matchOther ){
56d0: 0a 20 20 20 20 20 20 69 66 28 20 70 49 6e 66 6f . if( pInfo
56e0: 2d 3e 6d 61 74 63 68 53 65 74 3d 3d 30 20 29 7b ->matchSet==0 ){
56f0: 0a 20 20 20 20 20 20 20 20 63 20 3d 20 73 71 6c . c = sql
5700: 69 74 65 33 55 74 66 38 52 65 61 64 28 26 7a 50 ite3Utf8Read(&zP
5710: 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 20 attern);.
5720: 20 69 66 28 20 63 3d 3d 30 20 29 20 72 65 74 75 if( c==0 ) retu
5730: 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 41 54 43 rn SQLITE_NOMATC
5740: 48 3b 0a 20 20 20 20 20 20 20 20 7a 45 73 63 61 H;. zEsca
5750: 70 65 64 20 3d 20 7a 50 61 74 74 65 72 6e 3b 0a ped = zPattern;.
5760: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 }else{.
5770: 20 20 20 20 20 75 33 32 20 70 72 69 6f 72 5f 63 u32 prior_c
5780: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 6e = 0;. in
5790: 74 20 73 65 65 6e 20 3d 20 30 3b 0a 20 20 20 20 t seen = 0;.
57a0: 20 20 20 20 69 6e 74 20 69 6e 76 65 72 74 20 3d int invert =
57b0: 20 30 3b 0a 20 20 20 20 20 20 20 20 63 20 3d 20 0;. c =
57c0: 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64 28 sqlite3Utf8Read(
57d0: 26 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 &zString);.
57e0: 20 20 20 69 66 28 20 63 3d 3d 30 20 29 20 72 65 if( c==0 ) re
57f0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 41 turn SQLITE_NOMA
5800: 54 43 48 3b 0a 20 20 20 20 20 20 20 20 63 32 20 TCH;. c2
5810: 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 = sqlite3Utf8Rea
5820: 64 28 26 7a 50 61 74 74 65 72 6e 29 3b 0a 20 20 d(&zPattern);.
5830: 20 20 20 20 20 20 69 66 28 20 63 32 3d 3d 27 5e if( c2=='^
5840: 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 ' ){. i
5850: 6e 76 65 72 74 20 3d 20 31 3b 0a 20 20 20 20 20 nvert = 1;.
5860: 20 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74 65 c2 = sqlite
5870: 33 55 74 66 38 52 65 61 64 28 26 7a 50 61 74 74 3Utf8Read(&zPatt
5880: 65 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a ern);. }.
5890: 20 20 20 20 20 20 20 20 69 66 28 20 63 32 3d 3d if( c2==
58a0: 27 5d 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20 ']' ){.
58b0: 20 69 66 28 20 63 3d 3d 27 5d 27 20 29 20 73 65 if( c==']' ) se
58c0: 65 6e 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 en = 1;.
58d0: 20 20 63 32 20 3d 20 73 71 6c 69 74 65 33 55 74 c2 = sqlite3Ut
58e0: 66 38 52 65 61 64 28 26 7a 50 61 74 74 65 72 6e f8Read(&zPattern
58f0: 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 );. }.
5900: 20 20 20 20 20 77 68 69 6c 65 28 20 63 32 20 26 while( c2 &
5910: 26 20 63 32 21 3d 27 5d 27 20 29 7b 0a 20 20 20 & c2!=']' ){.
5920: 20 20 20 20 20 20 20 69 66 28 20 63 32 3d 3d 27 if( c2=='
5930: 2d 27 20 26 26 20 7a 50 61 74 74 65 72 6e 5b 30 -' && zPattern[0
5940: 5d 21 3d 27 5d 27 20 26 26 20 7a 50 61 74 74 65 ]!=']' && zPatte
5950: 72 6e 5b 30 5d 21 3d 30 20 26 26 20 70 72 69 6f rn[0]!=0 && prio
5960: 72 5f 63 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 r_c>0 ){.
5970: 20 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74 65 c2 = sqlite
5980: 33 55 74 66 38 52 65 61 64 28 26 7a 50 61 74 74 3Utf8Read(&zPatt
5990: 65 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ern);.
59a0: 20 20 69 66 28 20 63 3e 3d 70 72 69 6f 72 5f 63 if( c>=prior_c
59b0: 20 26 26 20 63 3c 3d 63 32 20 29 20 73 65 65 6e && c<=c2 ) seen
59c0: 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 = 1;.
59d0: 20 20 70 72 69 6f 72 5f 63 20 3d 20 30 3b 0a 20 prior_c = 0;.
59e0: 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a }else{.
59f0: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20 if(
5a00: 63 3d 3d 63 32 20 29 7b 0a 20 20 20 20 20 20 20 c==c2 ){.
5a10: 20 20 20 20 20 20 20 73 65 65 6e 20 3d 20 31 3b seen = 1;
5a20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 . }.
5a30: 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6f 72 prior
5a40: 5f 63 20 3d 20 63 32 3b 0a 20 20 20 20 20 20 20 _c = c2;.
5a50: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 63 }. c
5a60: 32 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 2 = sqlite3Utf8R
5a70: 65 61 64 28 26 7a 50 61 74 74 65 72 6e 29 3b 0a ead(&zPattern);.
5a80: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
5a90: 20 20 69 66 28 20 63 32 3d 3d 30 20 7c 7c 20 28 if( c2==0 || (
5aa0: 73 65 65 6e 20 5e 20 69 6e 76 65 72 74 29 3d 3d seen ^ invert)==
5ab0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 0 ){. r
5ac0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d eturn SQLITE_NOM
5ad0: 41 54 43 48 3b 0a 20 20 20 20 20 20 20 20 7d 0a ATCH;. }.
5ae0: 20 20 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 65 continue
5af0: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a ;. }. }.
5b00: 20 20 20 20 63 32 20 3d 20 55 74 66 38 52 65 61 c2 = Utf8Rea
5b10: 64 28 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 d(zString);.
5b20: 69 66 28 20 63 3d 3d 63 32 20 29 20 63 6f 6e 74 if( c==c2 ) cont
5b30: 69 6e 75 65 3b 0a 20 20 20 20 69 66 28 20 6e 6f inue;. if( no
5b40: 43 61 73 65 20 20 26 26 20 73 71 6c 69 74 65 33 Case && sqlite3
5b50: 54 6f 6c 6f 77 65 72 28 63 29 3d 3d 73 71 6c 69 Tolower(c)==sqli
5b60: 74 65 33 54 6f 6c 6f 77 65 72 28 63 32 29 20 26 te3Tolower(c2) &
5b70: 26 20 63 3c 30 78 38 30 20 26 26 20 63 32 3c 30 & c<0x80 && c2<0
5b80: 78 38 30 20 29 7b 0a 20 20 20 20 20 20 63 6f 6e x80 ){. con
5b90: 74 69 6e 75 65 3b 0a 20 20 20 20 7d 0a 20 20 20 tinue;. }.
5ba0: 20 69 66 28 20 63 3d 3d 6d 61 74 63 68 4f 6e 65 if( c==matchOne
5bb0: 20 26 26 20 7a 50 61 74 74 65 72 6e 21 3d 7a 45 && zPattern!=zE
5bc0: 73 63 61 70 65 64 20 26 26 20 63 32 21 3d 30 20 scaped && c2!=0
5bd0: 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 ) continue;.
5be0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f return SQLITE_NO
5bf0: 4d 41 54 43 48 3b 0a 20 20 7d 0a 20 20 72 65 74 MATCH;. }. ret
5c00: 75 72 6e 20 2a 7a 53 74 72 69 6e 67 3d 3d 30 20 urn *zString==0
5c10: 3f 20 53 51 4c 49 54 45 5f 4d 41 54 43 48 20 3a ? SQLITE_MATCH :
5c20: 20 53 51 4c 49 54 45 5f 4e 4f 4d 41 54 43 48 3b SQLITE_NOMATCH;
5c30: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 73 71 .}../*.** The sq
5c40: 6c 69 74 65 33 5f 73 74 72 67 6c 6f 62 28 29 20 lite3_strglob()
5c50: 69 6e 74 65 72 66 61 63 65 2e 20 20 52 65 74 75 interface. Retu
5c60: 72 6e 20 30 20 6f 6e 20 61 20 6d 61 74 63 68 20 rn 0 on a match
5c70: 28 6c 69 6b 65 20 73 74 72 63 6d 70 28 29 29 20 (like strcmp())
5c80: 61 6e 64 0a 2a 2a 20 6e 6f 6e 2d 7a 65 72 6f 20 and.** non-zero
5c90: 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 6d if there is no m
5ca0: 61 74 63 68 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c atch..*/.int sql
5cb0: 69 74 65 33 5f 73 74 72 67 6c 6f 62 28 63 6f 6e ite3_strglob(con
5cc0: 73 74 20 63 68 61 72 20 2a 7a 47 6c 6f 62 50 61 st char *zGlobPa
5cd0: 74 74 65 72 6e 2c 20 63 6f 6e 73 74 20 63 68 61 ttern, const cha
5ce0: 72 20 2a 7a 53 74 72 69 6e 67 29 7b 0a 20 20 72 r *zString){. r
5cf0: 65 74 75 72 6e 20 70 61 74 74 65 72 6e 43 6f 6d eturn patternCom
5d00: 70 61 72 65 28 28 75 38 2a 29 7a 47 6c 6f 62 50 pare((u8*)zGlobP
5d10: 61 74 74 65 72 6e 2c 20 28 75 38 2a 29 7a 53 74 attern, (u8*)zSt
5d20: 72 69 6e 67 2c 20 26 67 6c 6f 62 49 6e 66 6f 2c ring, &globInfo,
5d30: 20 27 5b 27 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 '[');.}../*.**
5d40: 54 68 65 20 73 71 6c 69 74 65 33 5f 73 74 72 6c The sqlite3_strl
5d50: 69 6b 65 28 29 20 69 6e 74 65 72 66 61 63 65 2e ike() interface.
5d60: 20 20 52 65 74 75 72 6e 20 30 20 6f 6e 20 61 20 Return 0 on a
5d70: 6d 61 74 63 68 20 61 6e 64 20 6e 6f 6e 2d 7a 65 match and non-ze
5d80: 72 6f 20 66 6f 72 0a 2a 2a 20 61 20 6d 69 73 73 ro for.** a miss
5d90: 20 2d 20 6c 69 6b 65 20 73 74 72 63 6d 70 28 29 - like strcmp()
5da0: 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 ..*/.int sqlite3
5db0: 5f 73 74 72 6c 69 6b 65 28 63 6f 6e 73 74 20 63 _strlike(const c
5dc0: 68 61 72 20 2a 7a 50 61 74 74 65 72 6e 2c 20 63 har *zPattern, c
5dd0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 74 72 2c onst char *zStr,
5de0: 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 65 73 unsigned int es
5df0: 63 29 7b 0a 20 20 72 65 74 75 72 6e 20 70 61 74 c){. return pat
5e00: 74 65 72 6e 43 6f 6d 70 61 72 65 28 28 75 38 2a ternCompare((u8*
5e10: 29 7a 50 61 74 74 65 72 6e 2c 20 28 75 38 2a 29 )zPattern, (u8*)
5e20: 7a 53 74 72 2c 20 26 6c 69 6b 65 49 6e 66 6f 4e zStr, &likeInfoN
5e30: 6f 72 6d 2c 20 65 73 63 29 3b 0a 7d 0a 0a 2f 2a orm, esc);.}../*
5e40: 0a 2a 2a 20 43 6f 75 6e 74 20 74 68 65 20 6e 75 .** Count the nu
5e50: 6d 62 65 72 20 6f 66 20 74 69 6d 65 73 20 74 68 mber of times th
5e60: 61 74 20 74 68 65 20 4c 49 4b 45 20 6f 70 65 72 at the LIKE oper
5e70: 61 74 6f 72 20 28 6f 72 20 47 4c 4f 42 20 77 68 ator (or GLOB wh
5e80: 69 63 68 20 69 73 0a 2a 2a 20 6a 75 73 74 20 61 ich is.** just a
5e90: 20 76 61 72 69 61 74 69 6f 6e 20 6f 66 20 4c 49 variation of LI
5ea0: 4b 45 29 20 67 65 74 73 20 63 61 6c 6c 65 64 2e KE) gets called.
5eb0: 20 20 54 68 69 73 20 69 73 20 75 73 65 64 20 66 This is used f
5ec0: 6f 72 20 74 65 73 74 69 6e 67 0a 2a 2a 20 6f 6e or testing.** on
5ed0: 6c 79 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 53 51 ly..*/.#ifdef SQ
5ee0: 4c 49 54 45 5f 54 45 53 54 0a 69 6e 74 20 73 71 LITE_TEST.int sq
5ef0: 6c 69 74 65 33 5f 6c 69 6b 65 5f 63 6f 75 6e 74 lite3_like_count
5f00: 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 0a 0a 2f = 0;.#endif.../
5f10: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 *.** Implementat
5f20: 69 6f 6e 20 6f 66 20 74 68 65 20 6c 69 6b 65 28 ion of the like(
5f30: 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 ) SQL function.
5f40: 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 This function i
5f50: 6d 70 6c 65 6d 65 6e 74 73 0a 2a 2a 20 74 68 65 mplements.** the
5f60: 20 62 75 69 6c 64 2d 69 6e 20 4c 49 4b 45 20 6f build-in LIKE o
5f70: 70 65 72 61 74 6f 72 2e 20 20 54 68 65 20 66 69 perator. The fi
5f80: 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 rst argument to
5f90: 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 the function is
5fa0: 74 68 65 0a 2a 2a 20 70 61 74 74 65 72 6e 20 61 the.** pattern a
5fb0: 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 nd the second ar
5fc0: 67 75 6d 65 6e 74 20 69 73 20 74 68 65 20 73 74 gument is the st
5fd0: 72 69 6e 67 2e 20 20 53 6f 2c 20 74 68 65 20 53 ring. So, the S
5fe0: 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 3a 0a 2a QL statements:.*
5ff0: 2a 0a 2a 2a 20 20 20 20 20 20 20 41 20 4c 49 4b *.** A LIK
6000: 45 20 42 0a 2a 2a 0a 2a 2a 20 69 73 20 69 6d 70 E B.**.** is imp
6010: 6c 65 6d 65 6e 74 65 64 20 61 73 20 6c 69 6b 65 lemented as like
6020: 28 42 2c 41 29 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 (B,A)..**.** Thi
6030: 73 20 73 61 6d 65 20 66 75 6e 63 74 69 6f 6e 20 s same function
6040: 28 77 69 74 68 20 61 20 64 69 66 66 65 72 65 6e (with a differen
6050: 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 73 74 t compareInfo st
6060: 72 75 63 74 75 72 65 29 20 63 6f 6d 70 75 74 65 ructure) compute
6070: 73 0a 2a 2a 20 74 68 65 20 47 4c 4f 42 20 6f 70 s.** the GLOB op
6080: 65 72 61 74 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69 erator..*/.stati
6090: 63 20 76 6f 69 64 20 6c 69 6b 65 46 75 6e 63 28 c void likeFunc(
60a0: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 . sqlite3_conte
60b0: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20 xt *context, .
60c0: 69 6e 74 20 61 72 67 63 2c 20 0a 20 20 73 71 6c int argc, . sql
60d0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
60e0: 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 v.){. const uns
60f0: 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 41 2c 20 igned char *zA,
6100: 2a 7a 42 3b 0a 20 20 75 33 32 20 65 73 63 61 70 *zB;. u32 escap
6110: 65 3b 0a 20 20 69 6e 74 20 6e 50 61 74 3b 0a 20 e;. int nPat;.
6120: 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 sqlite3 *db = s
6130: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 qlite3_context_d
6140: 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 b_handle(context
6150: 29 3b 0a 20 20 73 74 72 75 63 74 20 63 6f 6d 70 );. struct comp
6160: 61 72 65 49 6e 66 6f 20 2a 70 49 6e 66 6f 20 3d areInfo *pInfo =
6170: 20 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 sqlite3_user_da
6180: 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a 0a 23 69 ta(context);..#i
6190: 66 64 65 66 20 53 51 4c 49 54 45 5f 4c 49 4b 45 fdef SQLITE_LIKE
61a0: 5f 44 4f 45 53 4e 54 5f 4d 41 54 43 48 5f 42 4c _DOESNT_MATCH_BL
61b0: 4f 42 53 0a 20 20 69 66 28 20 73 71 6c 69 74 65 OBS. if( sqlite
61c0: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 3_value_type(arg
61d0: 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 42 4c v[0])==SQLITE_BL
61e0: 4f 42 0a 20 20 20 7c 7c 20 73 71 6c 69 74 65 33 OB. || sqlite3
61f0: 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 _value_type(argv
6200: 5b 31 5d 29 3d 3d 53 51 4c 49 54 45 5f 42 4c 4f [1])==SQLITE_BLO
6210: 42 0a 20 20 29 7b 0a 23 69 66 64 65 66 20 53 51 B. ){.#ifdef SQ
6220: 4c 49 54 45 5f 54 45 53 54 0a 20 20 20 20 73 71 LITE_TEST. sq
6230: 6c 69 74 65 33 5f 6c 69 6b 65 5f 63 6f 75 6e 74 lite3_like_count
6240: 2b 2b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 73 ++;.#endif. s
6250: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e qlite3_result_in
6260: 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 t(context, 0);.
6270: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 23 return;. }.#
6280: 65 6e 64 69 66 0a 0a 20 20 2f 2a 20 4c 69 6d 69 endif.. /* Limi
6290: 74 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 t the length of
62a0: 74 68 65 20 4c 49 4b 45 20 6f 72 20 47 4c 4f 42 the LIKE or GLOB
62b0: 20 70 61 74 74 65 72 6e 20 74 6f 20 61 76 6f 69 pattern to avoi
62c0: 64 20 70 72 6f 62 6c 65 6d 73 0a 20 20 2a 2a 20 d problems. **
62d0: 6f 66 20 64 65 65 70 20 72 65 63 75 72 73 69 6f of deep recursio
62e0: 6e 20 61 6e 64 20 4e 2a 4e 20 62 65 68 61 76 69 n and N*N behavi
62f0: 6f 72 20 69 6e 20 70 61 74 74 65 72 6e 43 6f 6d or in patternCom
6300: 70 61 72 65 28 29 2e 0a 20 20 2a 2f 0a 20 20 6e pare().. */. n
6310: 50 61 74 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 Pat = sqlite3_va
6320: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 lue_bytes(argv[0
6330: 5d 29 3b 0a 20 20 74 65 73 74 63 61 73 65 28 20 ]);. testcase(
6340: 6e 50 61 74 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74 nPat==db->aLimit
6350: 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 49 [SQLITE_LIMIT_LI
6360: 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47 54 KE_PATTERN_LENGT
6370: 48 5d 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 H] );. testcase
6380: 28 20 6e 50 61 74 3d 3d 64 62 2d 3e 61 4c 69 6d ( nPat==db->aLim
6390: 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f it[SQLITE_LIMIT_
63a0: 4c 49 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e LIKE_PATTERN_LEN
63b0: 47 54 48 5d 2b 31 20 29 3b 0a 20 20 69 66 28 20 GTH]+1 );. if(
63c0: 6e 50 61 74 20 3e 20 64 62 2d 3e 61 4c 69 6d 69 nPat > db->aLimi
63d0: 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c t[SQLITE_LIMIT_L
63e0: 49 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47 IKE_PATTERN_LENG
63f0: 54 48 5d 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 TH] ){. sqlit
6400: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 e3_result_error(
6410: 63 6f 6e 74 65 78 74 2c 20 22 4c 49 4b 45 20 6f context, "LIKE o
6420: 72 20 47 4c 4f 42 20 70 61 74 74 65 72 6e 20 74 r GLOB pattern t
6430: 6f 6f 20 63 6f 6d 70 6c 65 78 22 2c 20 2d 31 29 oo complex", -1)
6440: 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 ;. return;.
6450: 7d 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 33 20 }. if( argc==3
6460: 29 7b 0a 20 20 20 20 2f 2a 20 54 68 65 20 65 73 ){. /* The es
6470: 63 61 70 65 20 63 68 61 72 61 63 74 65 72 20 73 cape character s
6480: 74 72 69 6e 67 20 6d 75 73 74 20 63 6f 6e 73 69 tring must consi
6490: 73 74 20 6f 66 20 61 20 73 69 6e 67 6c 65 20 55 st of a single U
64a0: 54 46 2d 38 20 63 68 61 72 61 63 74 65 72 2e 0a TF-8 character..
64b0: 20 20 20 20 2a 2a 20 4f 74 68 65 72 77 69 73 65 ** Otherwise
64c0: 2c 20 72 65 74 75 72 6e 20 61 6e 20 65 72 72 6f , return an erro
64d0: 72 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 63 6f r.. */. co
64e0: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
64f0: 72 20 2a 7a 45 73 63 20 3d 20 73 71 6c 69 74 65 r *zEsc = sqlite
6500: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
6510: 76 5b 32 5d 29 3b 0a 20 20 20 20 69 66 28 20 7a v[2]);. if( z
6520: 45 73 63 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b Esc==0 ) return;
6530: 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 . if( sqlite3
6540: 55 74 66 38 43 68 61 72 4c 65 6e 28 28 63 68 61 Utf8CharLen((cha
6550: 72 2a 29 7a 45 73 63 2c 20 2d 31 29 21 3d 31 20 r*)zEsc, -1)!=1
6560: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ){. sqlite3
6570: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f _result_error(co
6580: 6e 74 65 78 74 2c 20 0a 20 20 20 20 20 20 20 20 ntext, .
6590: 20 20 22 45 53 43 41 50 45 20 65 78 70 72 65 73 "ESCAPE expres
65a0: 73 69 6f 6e 20 6d 75 73 74 20 62 65 20 61 20 73 sion must be a s
65b0: 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65 72 22 ingle character"
65c0: 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 72 65 74 , -1);. ret
65d0: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 urn;. }. e
65e0: 73 63 61 70 65 20 3d 20 73 71 6c 69 74 65 33 55 scape = sqlite3U
65f0: 74 66 38 52 65 61 64 28 26 7a 45 73 63 29 3b 0a tf8Read(&zEsc);.
6600: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 65 73 63 }else{. esc
6610: 61 70 65 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 ape = pInfo->mat
6620: 63 68 53 65 74 3b 0a 20 20 7d 0a 20 20 7a 42 20 chSet;. }. zB
6630: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
6640: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 text(argv[0]);.
6650: 20 7a 41 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 zA = sqlite3_va
6660: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31 5d lue_text(argv[1]
6670: 29 3b 0a 20 20 69 66 28 20 7a 41 20 26 26 20 7a );. if( zA && z
6680: 42 20 29 7b 0a 23 69 66 64 65 66 20 53 51 4c 49 B ){.#ifdef SQLI
6690: 54 45 5f 54 45 53 54 0a 20 20 20 20 73 71 6c 69 TE_TEST. sqli
66a0: 74 65 33 5f 6c 69 6b 65 5f 63 6f 75 6e 74 2b 2b te3_like_count++
66b0: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 73 71 6c ;.#endif. sql
66c0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 ite3_result_int(
66d0: 63 6f 6e 74 65 78 74 2c 0a 20 20 20 20 20 20 20 context,.
66e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 p
66f0: 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 7a 42 atternCompare(zB
6700: 2c 20 7a 41 2c 20 70 49 6e 66 6f 2c 20 65 73 63 , zA, pInfo, esc
6710: 61 70 65 29 3d 3d 53 51 4c 49 54 45 5f 4d 41 54 ape)==SQLITE_MAT
6720: 43 48 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a CH);. }.}../*.*
6730: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
6740: 20 6f 66 20 74 68 65 20 4e 55 4c 4c 49 46 28 78 of the NULLIF(x
6750: 2c 79 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 ,y) function. T
6760: 68 65 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 he result is the
6770: 20 66 69 72 73 74 0a 2a 2a 20 61 72 67 75 6d 65 first.** argume
6780: 6e 74 20 69 66 20 74 68 65 20 61 72 67 75 6d 65 nt if the argume
6790: 6e 74 73 20 61 72 65 20 64 69 66 66 65 72 65 6e nts are differen
67a0: 74 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 t. The result i
67b0: 73 20 4e 55 4c 4c 20 69 66 20 74 68 65 0a 2a 2a s NULL if the.**
67c0: 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 65 arguments are e
67d0: 71 75 61 6c 20 74 6f 20 65 61 63 68 20 6f 74 68 qual to each oth
67e0: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f er..*/.static vo
67f0: 69 64 20 6e 75 6c 6c 69 66 46 75 6e 63 28 0a 20 id nullifFunc(.
6800: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
6810: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 *context,. int
6820: 20 4e 6f 74 55 73 65 64 2c 0a 20 20 73 71 6c 69 NotUsed,. sqli
6830: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
6840: 0a 29 7b 0a 20 20 43 6f 6c 6c 53 65 71 20 2a 70 .){. CollSeq *p
6850: 43 6f 6c 6c 20 3d 20 73 71 6c 69 74 65 33 47 65 Coll = sqlite3Ge
6860: 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 6f 6e tFuncCollSeq(con
6870: 74 65 78 74 29 3b 0a 20 20 55 4e 55 53 45 44 5f text);. UNUSED_
6880: 50 41 52 41 4d 45 54 45 52 28 4e 6f 74 55 73 65 PARAMETER(NotUse
6890: 64 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 d);. if( sqlite
68a0: 33 4d 65 6d 43 6f 6d 70 61 72 65 28 61 72 67 76 3MemCompare(argv
68b0: 5b 30 5d 2c 20 61 72 67 76 5b 31 5d 2c 20 70 43 [0], argv[1], pC
68c0: 6f 6c 6c 29 21 3d 30 20 29 7b 0a 20 20 20 20 73 oll)!=0 ){. s
68d0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 qlite3_result_va
68e0: 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 lue(context, arg
68f0: 76 5b 30 5d 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a v[0]);. }.}../*
6900: 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 .** Implementati
6910: 6f 6e 20 6f 66 20 74 68 65 20 73 71 6c 69 74 65 on of the sqlite
6920: 5f 76 65 72 73 69 6f 6e 28 29 20 66 75 6e 63 74 _version() funct
6930: 69 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c 74 ion. The result
6940: 20 69 73 20 74 68 65 20 76 65 72 73 69 6f 6e 0a is the version.
6950: 2a 2a 20 6f 66 20 74 68 65 20 53 51 4c 69 74 65 ** of the SQLite
6960: 20 6c 69 62 72 61 72 79 20 74 68 61 74 20 69 73 library that is
6970: 20 72 75 6e 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 61 running..*/.sta
6980: 74 69 63 20 76 6f 69 64 20 76 65 72 73 69 6f 6e tic void version
6990: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
69a0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
69b0: 2c 0a 20 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c ,. int NotUsed,
69c0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
69d0: 20 2a 2a 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 **NotUsed2.){.
69e0: 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 UNUSED_PARAMETE
69f0: 52 32 28 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 R2(NotUsed, NotU
6a00: 73 65 64 32 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a sed2);. /* IMP:
6a10: 20 52 2d 34 38 36 39 39 2d 34 38 36 31 37 20 54 R-48699-48617 T
6a20: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
6a30: 61 6e 20 53 51 4c 20 77 72 61 70 70 65 72 20 61 an SQL wrapper a
6a40: 72 6f 75 6e 64 20 74 68 65 0a 20 20 2a 2a 20 73 round the. ** s
6a50: 71 6c 69 74 65 33 5f 6c 69 62 76 65 72 73 69 6f qlite3_libversio
6a60: 6e 28 29 20 43 2d 69 6e 74 65 72 66 61 63 65 2e n() C-interface.
6a70: 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 */. sqlite3_re
6a80: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 sult_text(contex
6a90: 74 2c 20 73 71 6c 69 74 65 33 5f 6c 69 62 76 65 t, sqlite3_libve
6aa0: 72 73 69 6f 6e 28 29 2c 20 2d 31 2c 20 53 51 4c rsion(), -1, SQL
6ab0: 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 7d 0a 0a ITE_STATIC);.}..
6ac0: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 /*.** Implementa
6ad0: 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 71 6c 69 tion of the sqli
6ae0: 74 65 5f 73 6f 75 72 63 65 5f 69 64 28 29 20 66 te_source_id() f
6af0: 75 6e 63 74 69 6f 6e 2e 20 54 68 65 20 72 65 73 unction. The res
6b00: 75 6c 74 20 69 73 20 61 20 73 74 72 69 6e 67 0a ult is a string.
6b10: 2a 2a 20 74 68 61 74 20 69 64 65 6e 74 69 66 69 ** that identifi
6b20: 65 73 20 74 68 65 20 70 61 72 74 69 63 75 6c 61 es the particula
6b30: 72 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 r version of the
6b40: 20 73 6f 75 72 63 65 20 63 6f 64 65 20 75 73 65 source code use
6b50: 64 20 74 6f 20 62 75 69 6c 64 0a 2a 2a 20 53 51 d to build.** SQ
6b60: 4c 69 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 Lite..*/.static
6b70: 76 6f 69 64 20 73 6f 75 72 63 65 69 64 46 75 6e void sourceidFun
6b80: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
6b90: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
6ba0: 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 int NotUsed,.
6bb0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
6bc0: 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 55 4e NotUsed2.){. UN
6bd0: 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 32 28 USED_PARAMETER2(
6be0: 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 NotUsed, NotUsed
6bf0: 32 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a 20 52 2d 2);. /* IMP: R-
6c00: 32 34 34 37 30 2d 33 31 31 33 36 20 54 68 69 73 24470-31136 This
6c10: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 6e 20 function is an
6c20: 53 51 4c 20 77 72 61 70 70 65 72 20 61 72 6f 75 SQL wrapper arou
6c30: 6e 64 20 74 68 65 0a 20 20 2a 2a 20 73 71 6c 69 nd the. ** sqli
6c40: 74 65 33 5f 73 6f 75 72 63 65 69 64 28 29 20 43 te3_sourceid() C
6c50: 20 69 6e 74 65 72 66 61 63 65 2e 20 2a 2f 0a 20 interface. */.
6c60: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
6c70: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 text(context, sq
6c80: 6c 69 74 65 33 5f 73 6f 75 72 63 65 69 64 28 29 lite3_sourceid()
6c90: 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 , -1, SQLITE_STA
6ca0: 54 49 43 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 TIC);.}../*.** I
6cb0: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
6cc0: 20 74 68 65 20 73 71 6c 69 74 65 5f 6c 6f 67 28 the sqlite_log(
6cd0: 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 ) function. Thi
6ce0: 73 20 69 73 20 61 20 77 72 61 70 70 65 72 20 61 s is a wrapper a
6cf0: 72 6f 75 6e 64 0a 2a 2a 20 73 71 6c 69 74 65 33 round.** sqlite3
6d00: 5f 6c 6f 67 28 29 2e 20 20 54 68 65 20 72 65 74 _log(). The ret
6d10: 75 72 6e 20 76 61 6c 75 65 20 69 73 20 4e 55 4c urn value is NUL
6d20: 4c 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e L. The function
6d30: 20 65 78 69 73 74 73 20 70 75 72 65 6c 79 20 66 exists purely f
6d40: 6f 72 0a 2a 2a 20 69 74 73 20 73 69 64 65 2d 65 or.** its side-e
6d50: 66 66 65 63 74 73 2e 0a 2a 2f 0a 73 74 61 74 69 ffects..*/.stati
6d60: 63 20 76 6f 69 64 20 65 72 72 6c 6f 67 46 75 6e c void errlogFun
6d70: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
6d80: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
6d90: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c int argc,. sql
6da0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
6db0: 76 0a 29 7b 0a 20 20 55 4e 55 53 45 44 5f 50 41 v.){. UNUSED_PA
6dc0: 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 RAMETER(argc);.
6dd0: 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 UNUSED_PARAMETE
6de0: 52 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71 R(context);. sq
6df0: 6c 69 74 65 33 5f 6c 6f 67 28 73 71 6c 69 74 65 lite3_log(sqlite
6e00: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 3_value_int(argv
6e10: 5b 30 5d 29 2c 20 22 25 73 22 2c 20 73 71 6c 69 [0]), "%s", sqli
6e20: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
6e30: 72 67 76 5b 31 5d 29 29 3b 0a 7d 0a 0a 2f 2a 0a rgv[1]));.}../*.
6e40: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** Implementatio
6e50: 6e 20 6f 66 20 74 68 65 20 73 71 6c 69 74 65 5f n of the sqlite_
6e60: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 compileoption_us
6e70: 65 64 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a ed() function..*
6e80: 2a 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 * The result is
6e90: 61 6e 20 69 6e 74 65 67 65 72 20 74 68 61 74 20 an integer that
6ea0: 69 64 65 6e 74 69 66 69 65 73 20 69 66 20 74 68 identifies if th
6eb0: 65 20 63 6f 6d 70 69 6c 65 72 20 6f 70 74 69 6f e compiler optio
6ec0: 6e 0a 2a 2a 20 77 61 73 20 75 73 65 64 20 74 6f n.** was used to
6ed0: 20 62 75 69 6c 64 20 53 51 4c 69 74 65 2e 0a 2a build SQLite..*
6ee0: 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 /.#ifndef SQLITE
6ef0: 5f 4f 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54 _OMIT_COMPILEOPT
6f00: 49 4f 4e 5f 44 49 41 47 53 0a 73 74 61 74 69 63 ION_DIAGS.static
6f10: 20 76 6f 69 64 20 63 6f 6d 70 69 6c 65 6f 70 74 void compileopt
6f20: 69 6f 6e 75 73 65 64 46 75 6e 63 28 0a 20 20 73 ionusedFunc(. s
6f30: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
6f40: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
6f50: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 rgc,. sqlite3_v
6f60: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
6f70: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4f 70 const char *zOp
6f80: 74 4e 61 6d 65 3b 0a 20 20 61 73 73 65 72 74 28 tName;. assert(
6f90: 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 55 4e argc==1 );. UN
6fa0: 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61 USED_PARAMETER(a
6fb0: 72 67 63 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a 20 rgc);. /* IMP:
6fc0: 52 2d 33 39 35 36 34 2d 33 36 33 30 35 20 54 68 R-39564-36305 Th
6fd0: 65 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 e sqlite_compile
6fe0: 6f 70 74 69 6f 6e 5f 75 73 65 64 28 29 20 53 51 option_used() SQ
6ff0: 4c 0a 20 20 2a 2a 20 66 75 6e 63 74 69 6f 6e 20 L. ** function
7000: 69 73 20 61 20 77 72 61 70 70 65 72 20 61 72 6f is a wrapper aro
7010: 75 6e 64 20 74 68 65 20 73 71 6c 69 74 65 33 5f und the sqlite3_
7020: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 compileoption_us
7030: 65 64 28 29 20 43 2f 43 2b 2b 0a 20 20 2a 2a 20 ed() C/C++. **
7040: 66 75 6e 63 74 69 6f 6e 2e 0a 20 20 2a 2f 0a 20 function.. */.
7050: 20 69 66 28 20 28 7a 4f 70 74 4e 61 6d 65 20 3d if( (zOptName =
7060: 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71 (const char*)sq
7070: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
7080: 28 61 72 67 76 5b 30 5d 29 29 21 3d 30 20 29 7b (argv[0]))!=0 ){
7090: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
70a0: 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c ult_int(context,
70b0: 20 73 71 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65 sqlite3_compile
70c0: 6f 70 74 69 6f 6e 5f 75 73 65 64 28 7a 4f 70 74 option_used(zOpt
70d0: 4e 61 6d 65 29 29 3b 0a 20 20 7d 0a 7d 0a 23 65 Name));. }.}.#e
70e0: 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f ndif /* SQLITE_O
70f0: 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54 49 4f MIT_COMPILEOPTIO
7100: 4e 5f 44 49 41 47 53 20 2a 2f 0a 0a 2f 2a 0a 2a N_DIAGS */../*.*
7110: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
7120: 20 6f 66 20 74 68 65 20 73 71 6c 69 74 65 5f 63 of the sqlite_c
7130: 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 67 65 74 ompileoption_get
7140: 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 0a 2a 2a () function. .**
7150: 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 The result is a
7160: 20 73 74 72 69 6e 67 20 74 68 61 74 20 69 64 65 string that ide
7170: 6e 74 69 66 69 65 73 20 74 68 65 20 63 6f 6d 70 ntifies the comp
7180: 69 6c 65 72 20 6f 70 74 69 6f 6e 73 20 0a 2a 2a iler options .**
7190: 20 75 73 65 64 20 74 6f 20 62 75 69 6c 64 20 53 used to build S
71a0: 51 4c 69 74 65 2e 0a 2a 2f 0a 23 69 66 6e 64 65 QLite..*/.#ifnde
71b0: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f f SQLITE_OMIT_CO
71c0: 4d 50 49 4c 45 4f 50 54 49 4f 4e 5f 44 49 41 47 MPILEOPTION_DIAG
71d0: 53 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f S.static void co
71e0: 6d 70 69 6c 65 6f 70 74 69 6f 6e 67 65 74 46 75 mpileoptiongetFu
71f0: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f nc(. sqlite3_co
7200: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a ntext *context,.
7210: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 int argc,. sq
7220: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
7230: 67 76 0a 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a 20 gv.){. int n;.
7240: 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 assert( argc==1
7250: 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 );. UNUSED_PAR
7260: 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20 AMETER(argc);.
7270: 2f 2a 20 49 4d 50 3a 20 52 2d 30 34 39 32 32 2d /* IMP: R-04922-
7280: 32 34 30 37 36 20 54 68 65 20 73 71 6c 69 74 65 24076 The sqlite
7290: 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 67 _compileoption_g
72a0: 65 74 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f et() SQL functio
72b0: 6e 0a 20 20 2a 2a 20 69 73 20 61 20 77 72 61 70 n. ** is a wrap
72c0: 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 73 per around the s
72d0: 71 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65 6f 70 qlite3_compileop
72e0: 74 69 6f 6e 5f 67 65 74 28 29 20 43 2f 43 2b 2b tion_get() C/C++
72f0: 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 20 2a 2f 0a function.. */.
7300: 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 n = sqlite3_va
7310: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 lue_int(argv[0])
7320: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 ;. sqlite3_resu
7330: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
7340: 20 73 71 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65 sqlite3_compile
7350: 6f 70 74 69 6f 6e 5f 67 65 74 28 6e 29 2c 20 2d option_get(n), -
7360: 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 1, SQLITE_STATIC
7370: 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 );.}.#endif /* S
7380: 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 49 QLITE_OMIT_COMPI
7390: 4c 45 4f 50 54 49 4f 4e 5f 44 49 41 47 53 20 2a LEOPTION_DIAGS *
73a0: 2f 0a 0a 2f 2a 20 41 72 72 61 79 20 66 6f 72 20 /../* Array for
73b0: 63 6f 6e 76 65 72 74 69 6e 67 20 66 72 6f 6d 20 converting from
73c0: 68 61 6c 66 2d 62 79 74 65 73 20 28 6e 79 62 62 half-bytes (nybb
73d0: 6c 65 73 29 20 69 6e 74 6f 20 41 53 43 49 49 20 les) into ASCII
73e0: 68 65 78 0a 2a 2a 20 64 69 67 69 74 73 2e 20 2a hex.** digits. *
73f0: 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 /.static const c
7400: 68 61 72 20 68 65 78 64 69 67 69 74 73 5b 5d 20 har hexdigits[]
7410: 3d 20 7b 0a 20 20 27 30 27 2c 20 27 31 27 2c 20 = {. '0', '1',
7420: 27 32 27 2c 20 27 33 27 2c 20 27 34 27 2c 20 27 '2', '3', '4', '
7430: 35 27 2c 20 27 36 27 2c 20 27 37 27 2c 0a 20 20 5', '6', '7',.
7440: 27 38 27 2c 20 27 39 27 2c 20 27 41 27 2c 20 27 '8', '9', 'A', '
7450: 42 27 2c 20 27 43 27 2c 20 27 44 27 2c 20 27 45 B', 'C', 'D', 'E
7460: 27 2c 20 27 46 27 20 0a 7d 3b 0a 0a 2f 2a 0a 2a ', 'F' .};../*.*
7470: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
7480: 20 6f 66 20 74 68 65 20 51 55 4f 54 45 28 29 20 of the QUOTE()
7490: 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 function. This
74a0: 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 61 function takes a
74b0: 20 73 69 6e 67 6c 65 0a 2a 2a 20 61 72 67 75 6d single.** argum
74c0: 65 6e 74 2e 20 20 49 66 20 74 68 65 20 61 72 67 ent. If the arg
74d0: 75 6d 65 6e 74 20 69 73 20 6e 75 6d 65 72 69 63 ument is numeric
74e0: 2c 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c , the return val
74f0: 75 65 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 ue is the same a
7500: 73 0a 2a 2a 20 74 68 65 20 61 72 67 75 6d 65 6e s.** the argumen
7510: 74 2e 20 20 49 66 20 74 68 65 20 61 72 67 75 6d t. If the argum
7520: 65 6e 74 20 69 73 20 4e 55 4c 4c 2c 20 74 68 65 ent is NULL, the
7530: 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 return value is
7540: 20 74 68 65 20 73 74 72 69 6e 67 0a 2a 2a 20 22 the string.** "
7550: 4e 55 4c 4c 22 2e 20 20 4f 74 68 65 72 77 69 73 NULL". Otherwis
7560: 65 2c 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 e, the argument
7570: 69 73 20 65 6e 63 6c 6f 73 65 64 20 69 6e 20 73 is enclosed in s
7580: 69 6e 67 6c 65 20 71 75 6f 74 65 73 20 77 69 74 ingle quotes wit
7590: 68 0a 2a 2a 20 73 69 6e 67 6c 65 2d 71 75 6f 74 h.** single-quot
75a0: 65 20 65 73 63 61 70 65 73 2e 0a 2a 2f 0a 73 74 e escapes..*/.st
75b0: 61 74 69 63 20 76 6f 69 64 20 71 75 6f 74 65 46 atic void quoteF
75c0: 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 unc(sqlite3_cont
75d0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e ext *context, in
75e0: 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f t argc, sqlite3_
75f0: 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 value **argv){.
7600: 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 assert( argc==1
7610: 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 );. UNUSED_PAR
7620: 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20 AMETER(argc);.
7630: 73 77 69 74 63 68 28 20 73 71 6c 69 74 65 33 5f switch( sqlite3_
7640: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b value_type(argv[
7650: 30 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 65 20 0]) ){. case
7660: 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a 20 7b 0a SQLITE_FLOAT: {.
7670: 20 20 20 20 20 20 64 6f 75 62 6c 65 20 72 31 2c double r1,
7680: 20 72 32 3b 0a 20 20 20 20 20 20 63 68 61 72 20 r2;. char
7690: 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 20 20 20 20 zBuf[50];.
76a0: 72 31 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c r1 = sqlite3_val
76b0: 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b 30 ue_double(argv[0
76c0: 5d 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 ]);. sqlite
76d0: 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 3_snprintf(sizeo
76e0: 66 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 f(zBuf), zBuf, "
76f0: 25 21 2e 31 35 67 22 2c 20 72 31 29 3b 0a 20 20 %!.15g", r1);.
7700: 20 20 20 20 73 71 6c 69 74 65 33 41 74 6f 46 28 sqlite3AtoF(
7710: 7a 42 75 66 2c 20 26 72 32 2c 20 32 30 2c 20 53 zBuf, &r2, 20, S
7720: 51 4c 49 54 45 5f 55 54 46 38 29 3b 0a 20 20 20 QLITE_UTF8);.
7730: 20 20 20 69 66 28 20 72 31 21 3d 72 32 20 29 7b if( r1!=r2 ){
7740: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 . sqlite3
7750: 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 _snprintf(sizeof
7760: 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 25 (zBuf), zBuf, "%
7770: 21 2e 32 30 65 22 2c 20 72 31 29 3b 0a 20 20 20 !.20e", r1);.
7780: 20 20 20 7d 0a 20 20 20 20 20 20 73 71 6c 69 74 }. sqlit
7790: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 e3_result_text(c
77a0: 6f 6e 74 65 78 74 2c 20 7a 42 75 66 2c 20 2d 31 ontext, zBuf, -1
77b0: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
77c0: 4e 54 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b NT);. break
77d0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 ;. }. case
77e0: 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a SQLITE_INTEGER:
77f0: 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 {. sqlite3
7800: 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f _result_value(co
7810: 6e 74 65 78 74 2c 20 61 72 67 76 5b 30 5d 29 3b ntext, argv[0]);
7820: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
7830: 20 20 7d 0a 20 20 20 20 63 61 73 65 20 53 51 4c }. case SQL
7840: 49 54 45 5f 42 4c 4f 42 3a 20 7b 0a 20 20 20 20 ITE_BLOB: {.
7850: 20 20 63 68 61 72 20 2a 7a 54 65 78 74 20 3d 20 char *zText =
7860: 30 3b 0a 20 20 20 20 20 20 63 68 61 72 20 63 6f 0;. char co
7870: 6e 73 74 20 2a 7a 42 6c 6f 62 20 3d 20 73 71 6c nst *zBlob = sql
7880: 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 ite3_value_blob(
7890: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 argv[0]);.
78a0: 69 6e 74 20 6e 42 6c 6f 62 20 3d 20 73 71 6c 69 int nBlob = sqli
78b0: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 te3_value_bytes(
78c0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 argv[0]);.
78d0: 61 73 73 65 72 74 28 20 7a 42 6c 6f 62 3d 3d 73 assert( zBlob==s
78e0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f qlite3_value_blo
78f0: 62 28 61 72 67 76 5b 30 5d 29 20 29 3b 20 2f 2a b(argv[0]) ); /*
7900: 20 4e 6f 20 65 6e 63 6f 64 69 6e 67 20 63 68 61 No encoding cha
7910: 6e 67 65 20 2a 2f 0a 20 20 20 20 20 20 7a 54 65 nge */. zTe
7920: 78 74 20 3d 20 28 63 68 61 72 20 2a 29 63 6f 6e xt = (char *)con
7930: 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 textMalloc(conte
7940: 78 74 2c 20 28 32 2a 28 69 36 34 29 6e 42 6c 6f xt, (2*(i64)nBlo
7950: 62 29 2b 34 29 3b 20 0a 20 20 20 20 20 20 69 66 b)+4); . if
7960: 28 20 7a 54 65 78 74 20 29 7b 0a 20 20 20 20 20 ( zText ){.
7970: 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 int i;.
7980: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 42 6c for(i=0; i<nBl
7990: 6f 62 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 ob; i++){.
79a0: 20 20 20 20 7a 54 65 78 74 5b 28 69 2a 32 29 2b zText[(i*2)+
79b0: 32 5d 20 3d 20 68 65 78 64 69 67 69 74 73 5b 28 2] = hexdigits[(
79c0: 7a 42 6c 6f 62 5b 69 5d 3e 3e 34 29 26 30 78 30 zBlob[i]>>4)&0x0
79d0: 46 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 54 F];. zT
79e0: 65 78 74 5b 28 69 2a 32 29 2b 33 5d 20 3d 20 68 ext[(i*2)+3] = h
79f0: 65 78 64 69 67 69 74 73 5b 28 7a 42 6c 6f 62 5b exdigits[(zBlob[
7a00: 69 5d 29 26 30 78 30 46 5d 3b 0a 20 20 20 20 20 i])&0x0F];.
7a10: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7a 54 65 }. zTe
7a20: 78 74 5b 28 6e 42 6c 6f 62 2a 32 29 2b 32 5d 20 xt[(nBlob*2)+2]
7a30: 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 = '\'';.
7a40: 7a 54 65 78 74 5b 28 6e 42 6c 6f 62 2a 32 29 2b zText[(nBlob*2)+
7a50: 33 5d 20 3d 20 27 5c 30 27 3b 0a 20 20 20 20 20 3] = '\0';.
7a60: 20 20 20 7a 54 65 78 74 5b 30 5d 20 3d 20 27 58 zText[0] = 'X
7a70: 27 3b 0a 20 20 20 20 20 20 20 20 7a 54 65 78 74 ';. zText
7a80: 5b 31 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 [1] = '\'';.
7a90: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
7aa0: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
7ab0: 20 7a 54 65 78 74 2c 20 2d 31 2c 20 53 51 4c 49 zText, -1, SQLI
7ac0: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 TE_TRANSIENT);.
7ad0: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 sqlite3_f
7ae0: 72 65 65 28 7a 54 65 78 74 29 3b 0a 20 20 20 20 ree(zText);.
7af0: 20 20 7d 0a 20 20 20 20 20 20 62 72 65 61 6b 3b }. break;
7b00: 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 . }. case
7b10: 53 51 4c 49 54 45 5f 54 45 58 54 3a 20 7b 0a 20 SQLITE_TEXT: {.
7b20: 20 20 20 20 20 69 6e 74 20 69 2c 6a 3b 0a 20 20 int i,j;.
7b30: 20 20 20 20 75 36 34 20 6e 3b 0a 20 20 20 20 20 u64 n;.
7b40: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
7b50: 63 68 61 72 20 2a 7a 41 72 67 20 3d 20 73 71 6c char *zArg = sql
7b60: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
7b70: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 argv[0]);.
7b80: 63 68 61 72 20 2a 7a 3b 0a 0a 20 20 20 20 20 20 char *z;..
7b90: 69 66 28 20 7a 41 72 67 3d 3d 30 20 29 20 72 65 if( zArg==0 ) re
7ba0: 74 75 72 6e 3b 0a 20 20 20 20 20 20 66 6f 72 28 turn;. for(
7bb0: 69 3d 30 2c 20 6e 3d 30 3b 20 7a 41 72 67 5b 69 i=0, n=0; zArg[i
7bc0: 5d 3b 20 69 2b 2b 29 7b 20 69 66 28 20 7a 41 72 ]; i++){ if( zAr
7bd0: 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 20 6e 2b 2b g[i]=='\'' ) n++
7be0: 3b 20 7d 0a 20 20 20 20 20 20 7a 20 3d 20 63 6f ; }. z = co
7bf0: 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 ntextMalloc(cont
7c00: 65 78 74 2c 20 28 28 69 36 34 29 69 29 2b 28 28 ext, ((i64)i)+((
7c10: 69 36 34 29 6e 29 2b 33 29 3b 0a 20 20 20 20 20 i64)n)+3);.
7c20: 20 69 66 28 20 7a 20 29 7b 0a 20 20 20 20 20 20 if( z ){.
7c30: 20 20 7a 5b 30 5d 20 3d 20 27 5c 27 27 3b 0a 20 z[0] = '\'';.
7c40: 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30 2c 20 for(i=0,
7c50: 6a 3d 31 3b 20 7a 41 72 67 5b 69 5d 3b 20 69 2b j=1; zArg[i]; i+
7c60: 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 5b +){. z[
7c70: 6a 2b 2b 5d 20 3d 20 7a 41 72 67 5b 69 5d 3b 0a j++] = zArg[i];.
7c80: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 7a 41 if( zA
7c90: 72 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 7b 0a 20 rg[i]=='\'' ){.
7ca0: 20 20 20 20 20 20 20 20 20 20 20 7a 5b 6a 2b 2b z[j++
7cb0: 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 ] = '\'';.
7cc0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a }. }.
7cd0: 20 20 20 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d z[j++] =
7ce0: 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 7a '\'';. z
7cf0: 5b 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 [j] = 0;.
7d00: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
7d10: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 2c text(context, z,
7d20: 20 6a 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 j, sqlite3_free
7d30: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 );. }.
7d40: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 break;. }.
7d50: 20 20 64 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20 default: {.
7d60: 20 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 assert( sqlit
7d70: 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 e3_value_type(ar
7d80: 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e gv[0])==SQLITE_N
7d90: 55 4c 4c 20 29 3b 0a 20 20 20 20 20 20 73 71 6c ULL );. sql
7da0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
7db0: 28 63 6f 6e 74 65 78 74 2c 20 22 4e 55 4c 4c 22 (context, "NULL"
7dc0: 2c 20 34 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 , 4, SQLITE_STAT
7dd0: 49 43 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b IC);. break
7de0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f ;. }. }.}../
7df0: 2a 0a 2a 2a 20 54 68 65 20 75 6e 69 63 6f 64 65 *.** The unicode
7e00: 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 52 65 () function. Re
7e10: 74 75 72 6e 20 74 68 65 20 69 6e 74 65 67 65 72 turn the integer
7e20: 20 75 6e 69 63 6f 64 65 20 63 6f 64 65 2d 70 6f unicode code-po
7e30: 69 6e 74 20 76 61 6c 75 65 0a 2a 2a 20 66 6f 72 int value.** for
7e40: 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61 the first chara
7e50: 63 74 65 72 20 6f 66 20 74 68 65 20 69 6e 70 75 cter of the inpu
7e60: 74 20 73 74 72 69 6e 67 2e 20 0a 2a 2f 0a 73 74 t string. .*/.st
7e70: 61 74 69 63 20 76 6f 69 64 20 75 6e 69 63 6f 64 atic void unicod
7e80: 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 eFunc(. sqlite3
7e90: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
7ea0: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 t,. int argc,.
7eb0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
7ec0: 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 *argv.){. const
7ed0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
7ee0: 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 z = sqlite3_valu
7ef0: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b e_text(argv[0]);
7f00: 0a 20 20 28 76 6f 69 64 29 61 72 67 63 3b 0a 20 . (void)argc;.
7f10: 20 69 66 28 20 7a 20 26 26 20 7a 5b 30 5d 20 29 if( z && z[0] )
7f20: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
7f30: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c int(context, sql
7f40: 69 74 65 33 55 74 66 38 52 65 61 64 28 26 7a 29 ite3Utf8Read(&z)
7f50: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 );.}../*.** The
7f60: 63 68 61 72 28 29 20 66 75 6e 63 74 69 6f 6e 20 char() function
7f70: 74 61 6b 65 73 20 7a 65 72 6f 20 6f 72 20 6d 6f takes zero or mo
7f80: 72 65 20 61 72 67 75 6d 65 6e 74 73 2c 20 65 61 re arguments, ea
7f90: 63 68 20 6f 66 20 77 68 69 63 68 20 69 73 0a 2a ch of which is.*
7fa0: 2a 20 61 6e 20 69 6e 74 65 67 65 72 2e 20 20 49 * an integer. I
7fb0: 74 20 63 6f 6e 73 74 72 75 63 74 73 20 61 20 73 t constructs a s
7fc0: 74 72 69 6e 67 20 77 68 65 72 65 20 65 61 63 68 tring where each
7fd0: 20 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 68 character of th
7fe0: 65 20 73 74 72 69 6e 67 0a 2a 2a 20 69 73 20 74 e string.** is t
7ff0: 68 65 20 75 6e 69 63 6f 64 65 20 63 68 61 72 61 he unicode chara
8000: 63 74 65 72 20 66 6f 72 20 74 68 65 20 63 6f 72 cter for the cor
8010: 72 65 73 70 6f 6e 64 69 6e 67 20 69 6e 74 65 67 responding integ
8020: 65 72 20 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a er argument..*/.
8030: 73 74 61 74 69 63 20 76 6f 69 64 20 63 68 61 72 static void char
8040: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
8050: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
8060: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
8070: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
8080: 61 72 67 76 0a 29 7b 0a 20 20 75 6e 73 69 67 6e argv.){. unsign
8090: 65 64 20 63 68 61 72 20 2a 7a 2c 20 2a 7a 4f 75 ed char *z, *zOu
80a0: 74 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 7a 4f t;. int i;. zO
80b0: 75 74 20 3d 20 7a 20 3d 20 73 71 6c 69 74 65 33 ut = z = sqlite3
80c0: 5f 6d 61 6c 6c 6f 63 36 34 28 20 61 72 67 63 2a _malloc64( argc*
80d0: 34 2b 31 20 29 3b 0a 20 20 69 66 28 20 7a 3d 3d 4+1 );. if( z==
80e0: 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 0 ){. sqlite3
80f0: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f _result_error_no
8100: 6d 65 6d 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 mem(context);.
8110: 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 return;. }.
8120: 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b for(i=0; i<argc;
8130: 20 69 2b 2b 29 7b 0a 20 20 20 20 73 71 6c 69 74 i++){. sqlit
8140: 65 33 5f 69 6e 74 36 34 20 78 3b 0a 20 20 20 20 e3_int64 x;.
8150: 75 6e 73 69 67 6e 65 64 20 63 3b 0a 20 20 20 20 unsigned c;.
8160: 78 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 x = sqlite3_valu
8170: 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 69 5d 29 e_int64(argv[i])
8180: 3b 0a 20 20 20 20 69 66 28 20 78 3c 30 20 7c 7c ;. if( x<0 ||
8190: 20 78 3e 30 78 31 30 66 66 66 66 20 29 20 78 20 x>0x10ffff ) x
81a0: 3d 20 30 78 66 66 66 64 3b 0a 20 20 20 20 63 20 = 0xfffd;. c
81b0: 3d 20 28 75 6e 73 69 67 6e 65 64 29 28 78 20 26 = (unsigned)(x &
81c0: 20 30 78 31 66 66 66 66 66 29 3b 0a 20 20 20 20 0x1fffff);.
81d0: 69 66 28 20 63 3c 30 78 30 30 30 38 30 20 29 7b if( c<0x00080 ){
81e0: 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d . *zOut++ =
81f0: 20 28 75 38 29 28 63 26 30 78 46 46 29 3b 0a 20 (u8)(c&0xFF);.
8200: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3c 30 }else if( c<0
8210: 78 30 30 38 30 30 20 29 7b 0a 20 20 20 20 20 20 x00800 ){.
8220: 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 43 30 20 2b *zOut++ = 0xC0 +
8230: 20 28 75 38 29 28 28 63 3e 3e 36 29 26 30 78 31 (u8)((c>>6)&0x1
8240: 46 29 3b 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b F);. *zOut+
8250: 2b 20 3d 20 30 78 38 30 20 2b 20 28 75 38 29 28 + = 0x80 + (u8)(
8260: 63 20 26 20 30 78 33 46 29 3b 0a 20 20 20 20 7d c & 0x3F);. }
8270: 65 6c 73 65 20 69 66 28 20 63 3c 30 78 31 30 30 else if( c<0x100
8280: 30 30 20 29 7b 0a 20 20 20 20 20 20 2a 7a 4f 75 00 ){. *zOu
8290: 74 2b 2b 20 3d 20 30 78 45 30 20 2b 20 28 75 38 t++ = 0xE0 + (u8
82a0: 29 28 28 63 3e 3e 31 32 29 26 30 78 30 46 29 3b )((c>>12)&0x0F);
82b0: 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d . *zOut++ =
82c0: 20 30 78 38 30 20 2b 20 28 75 38 29 28 28 63 3e 0x80 + (u8)((c>
82d0: 3e 36 29 20 26 20 30 78 33 46 29 3b 0a 20 20 20 >6) & 0x3F);.
82e0: 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 38 *zOut++ = 0x8
82f0: 30 20 2b 20 28 75 38 29 28 63 20 26 20 30 78 33 0 + (u8)(c & 0x3
8300: 46 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 F);. }else{.
8310: 20 20 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 *zOut++ = 0
8320: 78 46 30 20 2b 20 28 75 38 29 28 28 63 3e 3e 31 xF0 + (u8)((c>>1
8330: 38 29 20 26 20 30 78 30 37 29 3b 0a 20 20 20 20 8) & 0x07);.
8340: 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 38 30 *zOut++ = 0x80
8350: 20 2b 20 28 75 38 29 28 28 63 3e 3e 31 32 29 20 + (u8)((c>>12)
8360: 26 20 30 78 33 46 29 3b 0a 20 20 20 20 20 20 2a & 0x3F);. *
8370: 7a 4f 75 74 2b 2b 20 3d 20 30 78 38 30 20 2b 20 zOut++ = 0x80 +
8380: 28 75 38 29 28 28 63 3e 3e 36 29 20 26 20 30 78 (u8)((c>>6) & 0x
8390: 33 46 29 3b 0a 20 20 20 20 20 20 2a 7a 4f 75 74 3F);. *zOut
83a0: 2b 2b 20 3d 20 30 78 38 30 20 2b 20 28 75 38 29 ++ = 0x80 + (u8)
83b0: 28 63 20 26 20 30 78 33 46 29 3b 0a 20 20 20 20 (c & 0x3F);.
83c0: 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 }
83d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
83e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
83f0: 20 20 20 20 20 5c 0a 20 20 7d 0a 20 20 73 71 6c \. }. sql
8400: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
8410: 36 34 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 64(context, (cha
8420: 72 2a 29 7a 2c 20 7a 4f 75 74 2d 7a 2c 20 73 71 r*)z, zOut-z, sq
8430: 6c 69 74 65 33 5f 66 72 65 65 2c 20 53 51 4c 49 lite3_free, SQLI
8440: 54 45 5f 55 54 46 38 29 3b 0a 7d 0a 0a 2f 2a 0a TE_UTF8);.}../*.
8450: 2a 2a 20 54 68 65 20 68 65 78 28 29 20 66 75 6e ** The hex() fun
8460: 63 74 69 6f 6e 2e 20 20 49 6e 74 65 72 70 72 65 ction. Interpre
8470: 74 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 61 t the argument a
8480: 73 20 61 20 62 6c 6f 62 2e 20 20 52 65 74 75 72 s a blob. Retur
8490: 6e 0a 2a 2a 20 61 20 68 65 78 61 64 65 63 69 6d n.** a hexadecim
84a0: 61 6c 20 72 65 6e 64 65 72 69 6e 67 20 61 73 20 al rendering as
84b0: 74 65 78 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 text..*/.static
84c0: 76 6f 69 64 20 68 65 78 46 75 6e 63 28 0a 20 20 void hexFunc(.
84d0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
84e0: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 *context,. int
84f0: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f argc,. sqlite3_
8500: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
8510: 20 20 69 6e 74 20 69 2c 20 6e 3b 0a 20 20 63 6f int i, n;. co
8520: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
8530: 72 20 2a 70 42 6c 6f 62 3b 0a 20 20 63 68 61 72 r *pBlob;. char
8540: 20 2a 7a 48 65 78 2c 20 2a 7a 3b 0a 20 20 61 73 *zHex, *z;. as
8550: 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b sert( argc==1 );
8560: 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 . UNUSED_PARAME
8570: 54 45 52 28 61 72 67 63 29 3b 0a 20 20 70 42 6c TER(argc);. pBl
8580: 6f 62 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c ob = sqlite3_val
8590: 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d 29 ue_blob(argv[0])
85a0: 3b 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f ;. n = sqlite3_
85b0: 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 value_bytes(argv
85c0: 5b 30 5d 29 3b 0a 20 20 61 73 73 65 72 74 28 20 [0]);. assert(
85d0: 70 42 6c 6f 62 3d 3d 73 71 6c 69 74 65 33 5f 76 pBlob==sqlite3_v
85e0: 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 alue_blob(argv[0
85f0: 5d 29 20 29 3b 20 20 2f 2a 20 4e 6f 20 65 6e 63 ]) ); /* No enc
8600: 6f 64 69 6e 67 20 63 68 61 6e 67 65 20 2a 2f 0a oding change */.
8610: 20 20 7a 20 3d 20 7a 48 65 78 20 3d 20 63 6f 6e z = zHex = con
8620: 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 textMalloc(conte
8630: 78 74 2c 20 28 28 69 36 34 29 6e 29 2a 32 20 2b xt, ((i64)n)*2 +
8640: 20 31 29 3b 0a 20 20 69 66 28 20 7a 48 65 78 20 1);. if( zHex
8650: 29 7b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 ){. for(i=0;
8660: 69 3c 6e 3b 20 69 2b 2b 2c 20 70 42 6c 6f 62 2b i<n; i++, pBlob+
8670: 2b 29 7b 0a 20 20 20 20 20 20 75 6e 73 69 67 6e +){. unsign
8680: 65 64 20 63 68 61 72 20 63 20 3d 20 2a 70 42 6c ed char c = *pBl
8690: 6f 62 3b 0a 20 20 20 20 20 20 2a 28 7a 2b 2b 29 ob;. *(z++)
86a0: 20 3d 20 68 65 78 64 69 67 69 74 73 5b 28 63 3e = hexdigits[(c>
86b0: 3e 34 29 26 30 78 66 5d 3b 0a 20 20 20 20 20 20 >4)&0xf];.
86c0: 2a 28 7a 2b 2b 29 20 3d 20 68 65 78 64 69 67 69 *(z++) = hexdigi
86d0: 74 73 5b 63 26 30 78 66 5d 3b 0a 20 20 20 20 7d ts[c&0xf];. }
86e0: 0a 20 20 20 20 2a 7a 20 3d 20 30 3b 0a 20 20 20 . *z = 0;.
86f0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
8700: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 48 text(context, zH
8710: 65 78 2c 20 6e 2a 32 2c 20 73 71 6c 69 74 65 33 ex, n*2, sqlite3
8720: 5f 66 72 65 65 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f _free);. }.}../
8730: 2a 0a 2a 2a 20 54 68 65 20 7a 65 72 6f 62 6c 6f *.** The zeroblo
8740: 62 28 4e 29 20 66 75 6e 63 74 69 6f 6e 20 72 65 b(N) function re
8750: 74 75 72 6e 73 20 61 20 7a 65 72 6f 2d 66 69 6c turns a zero-fil
8760: 6c 65 64 20 62 6c 6f 62 20 6f 66 20 73 69 7a 65 led blob of size
8770: 20 4e 20 62 79 74 65 73 2e 0a 2a 2f 0a 73 74 61 N bytes..*/.sta
8780: 74 69 63 20 76 6f 69 64 20 7a 65 72 6f 62 6c 6f tic void zeroblo
8790: 62 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 bFunc(. sqlite3
87a0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
87b0: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 t,. int argc,.
87c0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
87d0: 2a 61 72 67 76 0a 29 7b 0a 20 20 69 36 34 20 6e *argv.){. i64 n
87e0: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 61 73 ;. int rc;. as
87f0: 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b sert( argc==1 );
8800: 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 . UNUSED_PARAME
8810: 54 45 52 28 61 72 67 63 29 3b 0a 20 20 6e 20 3d TER(argc);. n =
8820: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 sqlite3_value_i
8830: 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 3b 0a 20 nt64(argv[0]);.
8840: 20 69 66 28 20 6e 3c 30 20 29 20 6e 20 3d 20 30 if( n<0 ) n = 0
8850: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
8860: 5f 72 65 73 75 6c 74 5f 7a 65 72 6f 62 6c 6f 62 _result_zeroblob
8870: 36 34 28 63 6f 6e 74 65 78 74 2c 20 6e 29 3b 20 64(context, n);
8880: 2f 2a 20 49 4d 50 3a 20 52 2d 30 30 32 39 33 2d /* IMP: R-00293-
8890: 36 34 39 39 34 20 2a 2f 0a 20 20 69 66 28 20 72 64994 */. if( r
88a0: 63 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 c ){. sqlite3
88b0: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 63 6f _result_error_co
88c0: 64 65 28 63 6f 6e 74 65 78 74 2c 20 72 63 29 3b de(context, rc);
88d0: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 . }.}../*.** Th
88e0: 65 20 72 65 70 6c 61 63 65 28 29 20 66 75 6e 63 e replace() func
88f0: 74 69 6f 6e 2e 20 20 54 68 72 65 65 20 61 72 67 tion. Three arg
8900: 75 6d 65 6e 74 73 20 61 72 65 20 61 6c 6c 20 73 uments are all s
8910: 74 72 69 6e 67 73 3a 20 63 61 6c 6c 0a 2a 2a 20 trings: call.**
8920: 74 68 65 6d 20 41 2c 20 42 2c 20 61 6e 64 20 43 them A, B, and C
8930: 2e 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 . The result is
8940: 61 6c 73 6f 20 61 20 73 74 72 69 6e 67 20 77 68 also a string wh
8950: 69 63 68 20 69 73 20 64 65 72 69 76 65 64 0a 2a ich is derived.*
8960: 2a 20 66 72 6f 6d 20 41 20 62 79 20 72 65 70 6c * from A by repl
8970: 61 63 69 6e 67 20 65 76 65 72 79 20 6f 63 63 75 acing every occu
8980: 72 72 65 6e 63 65 20 6f 66 20 42 20 77 69 74 68 rrence of B with
8990: 20 43 2e 20 20 54 68 65 20 6d 61 74 63 68 0a 2a C. The match.*
89a0: 2a 20 6d 75 73 74 20 62 65 20 65 78 61 63 74 2e * must be exact.
89b0: 20 20 43 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 Collating sequ
89c0: 65 6e 63 65 73 20 61 72 65 20 6e 6f 74 20 75 73 ences are not us
89d0: 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ed..*/.static vo
89e0: 69 64 20 72 65 70 6c 61 63 65 46 75 6e 63 28 0a id replaceFunc(.
89f0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
8a00: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e t *context,. in
8a10: 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 t argc,. sqlite
8a20: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 3_value **argv.)
8a30: 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e {. const unsign
8a40: 65 64 20 63 68 61 72 20 2a 7a 53 74 72 3b 20 20 ed char *zStr;
8a50: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 69 6e 70 /* The inp
8a60: 75 74 20 73 74 72 69 6e 67 20 41 20 2a 2f 0a 20 ut string A */.
8a70: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
8a80: 63 68 61 72 20 2a 7a 50 61 74 74 65 72 6e 3b 20 char *zPattern;
8a90: 20 20 20 2f 2a 20 54 68 65 20 70 61 74 74 65 72 /* The patter
8aa0: 6e 20 73 74 72 69 6e 67 20 42 20 2a 2f 0a 20 20 n string B */.
8ab0: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 const unsigned c
8ac0: 68 61 72 20 2a 7a 52 65 70 3b 20 20 20 20 20 20 har *zRep;
8ad0: 20 20 2f 2a 20 54 68 65 20 72 65 70 6c 61 63 65 /* The replace
8ae0: 6d 65 6e 74 20 73 74 72 69 6e 67 20 43 20 2a 2f ment string C */
8af0: 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 . unsigned char
8b00: 20 2a 7a 4f 75 74 3b 20 20 20 20 20 20 20 20 20 *zOut;
8b10: 20 20 20 20 20 2f 2a 20 54 68 65 20 6f 75 74 70 /* The outp
8b20: 75 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 53 74 72 ut */. int nStr
8b30: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
8b40: 20 2f 2a 20 53 69 7a 65 20 6f 66 20 7a 53 74 72 /* Size of zStr
8b50: 20 2a 2f 0a 20 20 69 6e 74 20 6e 50 61 74 74 65 */. int nPatte
8b60: 72 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f rn; /
8b70: 2a 20 53 69 7a 65 20 6f 66 20 7a 50 61 74 74 65 * Size of zPatte
8b80: 72 6e 20 2a 2f 0a 20 20 69 6e 74 20 6e 52 65 70 rn */. int nRep
8b90: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
8ba0: 20 2f 2a 20 53 69 7a 65 20 6f 66 20 7a 52 65 70 /* Size of zRep
8bb0: 20 2a 2f 0a 20 20 69 36 34 20 6e 4f 75 74 3b 20 */. i64 nOut;
8bc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
8bd0: 2a 20 4d 61 78 69 6d 75 6d 20 73 69 7a 65 20 6f * Maximum size o
8be0: 66 20 7a 4f 75 74 20 2a 2f 0a 20 20 69 6e 74 20 f zOut */. int
8bf0: 6c 6f 6f 70 4c 69 6d 69 74 3b 20 20 20 20 20 20 loopLimit;
8c00: 20 20 20 20 20 2f 2a 20 4c 61 73 74 20 7a 53 74 /* Last zSt
8c10: 72 5b 5d 20 74 68 61 74 20 6d 69 67 68 74 20 6d r[] that might m
8c20: 61 74 63 68 20 7a 50 61 74 74 65 72 6e 5b 5d 20 atch zPattern[]
8c30: 2a 2f 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 20 20 */. int i, j;
8c40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
8c50: 20 4c 6f 6f 70 20 63 6f 75 6e 74 65 72 73 20 2a Loop counters *
8c60: 2f 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 6e 74 /. unsigned cnt
8c70: 45 78 70 61 6e 64 3b 20 20 20 20 20 20 2f 2a 20 Expand; /*
8c80: 4e 75 6d 62 65 72 20 7a 4f 75 74 20 65 78 70 61 Number zOut expa
8c90: 6e 73 69 6f 6e 73 20 2a 2f 0a 20 20 73 71 6c 69 nsions */. sqli
8ca0: 74 65 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 te3 *db = sqlite
8cb0: 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 3_context_db_han
8cc0: 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 0a 20 dle(context);..
8cd0: 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 33 assert( argc==3
8ce0: 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 );. UNUSED_PAR
8cf0: 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20 AMETER(argc);.
8d00: 7a 53 74 72 20 3d 20 73 71 6c 69 74 65 33 5f 76 zStr = sqlite3_v
8d10: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
8d20: 5d 29 3b 0a 20 20 69 66 28 20 7a 53 74 72 3d 3d ]);. if( zStr==
8d30: 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6e 53 0 ) return;. nS
8d40: 74 72 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c tr = sqlite3_val
8d50: 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d ue_bytes(argv[0]
8d60: 29 3b 0a 20 20 61 73 73 65 72 74 28 20 7a 53 74 );. assert( zSt
8d70: 72 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 r==sqlite3_value
8d80: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 20 29 _text(argv[0]) )
8d90: 3b 20 20 2f 2a 20 4e 6f 20 65 6e 63 6f 64 69 6e ; /* No encodin
8da0: 67 20 63 68 61 6e 67 65 20 2a 2f 0a 20 20 7a 50 g change */. zP
8db0: 61 74 74 65 72 6e 20 3d 20 73 71 6c 69 74 65 33 attern = sqlite3
8dc0: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 _value_text(argv
8dd0: 5b 31 5d 29 3b 0a 20 20 69 66 28 20 7a 50 61 74 [1]);. if( zPat
8de0: 74 65 72 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 61 tern==0 ){. a
8df0: 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 ssert( sqlite3_v
8e00: 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 31 alue_type(argv[1
8e10: 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 0a ])==SQLITE_NULL.
8e20: 20 20 20 20 20 20 20 20 20 20 20 20 7c 7c 20 73 || s
8e30: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 qlite3_context_d
8e40: 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 b_handle(context
8e50: 29 2d 3e 6d 61 6c 6c 6f 63 46 61 69 6c 65 64 20 )->mallocFailed
8e60: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 );. return;.
8e70: 20 7d 0a 20 20 69 66 28 20 7a 50 61 74 74 65 72 }. if( zPatter
8e80: 6e 5b 30 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 61 n[0]==0 ){. a
8e90: 73 73 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 ssert( sqlite3_v
8ea0: 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 31 alue_type(argv[1
8eb0: 5d 29 21 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 ])!=SQLITE_NULL
8ec0: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 );. sqlite3_r
8ed0: 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 esult_value(cont
8ee0: 65 78 74 2c 20 61 72 67 76 5b 30 5d 29 3b 0a 20 ext, argv[0]);.
8ef0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 return;. }.
8f00: 20 6e 50 61 74 74 65 72 6e 20 3d 20 73 71 6c 69 nPattern = sqli
8f10: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 te3_value_bytes(
8f20: 61 72 67 76 5b 31 5d 29 3b 0a 20 20 61 73 73 65 argv[1]);. asse
8f30: 72 74 28 20 7a 50 61 74 74 65 72 6e 3d 3d 73 71 rt( zPattern==sq
8f40: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
8f50: 28 61 72 67 76 5b 31 5d 29 20 29 3b 20 20 2f 2a (argv[1]) ); /*
8f60: 20 4e 6f 20 65 6e 63 6f 64 69 6e 67 20 63 68 61 No encoding cha
8f70: 6e 67 65 20 2a 2f 0a 20 20 7a 52 65 70 20 3d 20 nge */. zRep =
8f80: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
8f90: 78 74 28 61 72 67 76 5b 32 5d 29 3b 0a 20 20 69 xt(argv[2]);. i
8fa0: 66 28 20 7a 52 65 70 3d 3d 30 20 29 20 72 65 74 f( zRep==0 ) ret
8fb0: 75 72 6e 3b 0a 20 20 6e 52 65 70 20 3d 20 73 71 urn;. nRep = sq
8fc0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 lite3_value_byte
8fd0: 73 28 61 72 67 76 5b 32 5d 29 3b 0a 20 20 61 73 s(argv[2]);. as
8fe0: 73 65 72 74 28 20 7a 52 65 70 3d 3d 73 71 6c 69 sert( zRep==sqli
8ff0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
9000: 72 67 76 5b 32 5d 29 20 29 3b 0a 20 20 6e 4f 75 rgv[2]) );. nOu
9010: 74 20 3d 20 6e 53 74 72 20 2b 20 31 3b 0a 20 20 t = nStr + 1;.
9020: 61 73 73 65 72 74 28 20 6e 4f 75 74 3c 53 51 4c assert( nOut<SQL
9030: 49 54 45 5f 4d 41 58 5f 4c 45 4e 47 54 48 20 29 ITE_MAX_LENGTH )
9040: 3b 0a 20 20 7a 4f 75 74 20 3d 20 63 6f 6e 74 65 ;. zOut = conte
9050: 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 xtMalloc(context
9060: 2c 20 28 69 36 34 29 6e 4f 75 74 29 3b 0a 20 20 , (i64)nOut);.
9070: 69 66 28 20 7a 4f 75 74 3d 3d 30 20 29 7b 0a 20 if( zOut==0 ){.
9080: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 return;. }.
9090: 20 6c 6f 6f 70 4c 69 6d 69 74 20 3d 20 6e 53 74 loopLimit = nSt
90a0: 72 20 2d 20 6e 50 61 74 74 65 72 6e 3b 20 20 0a r - nPattern; .
90b0: 20 20 63 6e 74 45 78 70 61 6e 64 20 3d 20 30 3b cntExpand = 0;
90c0: 0a 20 20 66 6f 72 28 69 3d 6a 3d 30 3b 20 69 3c . for(i=j=0; i<
90d0: 3d 6c 6f 6f 70 4c 69 6d 69 74 3b 20 69 2b 2b 29 =loopLimit; i++)
90e0: 7b 0a 20 20 20 20 69 66 28 20 7a 53 74 72 5b 69 {. if( zStr[i
90f0: 5d 21 3d 7a 50 61 74 74 65 72 6e 5b 30 5d 20 7c ]!=zPattern[0] |
9100: 7c 20 6d 65 6d 63 6d 70 28 26 7a 53 74 72 5b 69 | memcmp(&zStr[i
9110: 5d 2c 20 7a 50 61 74 74 65 72 6e 2c 20 6e 50 61 ], zPattern, nPa
9120: 74 74 65 72 6e 29 20 29 7b 0a 20 20 20 20 20 20 ttern) ){.
9130: 7a 4f 75 74 5b 6a 2b 2b 5d 20 3d 20 7a 53 74 72 zOut[j++] = zStr
9140: 5b 69 5d 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a [i];. }else{.
9150: 20 20 20 20 20 20 69 66 28 20 6e 52 65 70 3e 6e if( nRep>n
9160: 50 61 74 74 65 72 6e 20 29 7b 0a 20 20 20 20 20 Pattern ){.
9170: 20 20 20 6e 4f 75 74 20 2b 3d 20 6e 52 65 70 20 nOut += nRep
9180: 2d 20 6e 50 61 74 74 65 72 6e 3b 0a 20 20 20 20 - nPattern;.
9190: 20 20 20 20 74 65 73 74 63 61 73 65 28 20 6e 4f testcase( nO
91a0: 75 74 2d 31 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74 ut-1==db->aLimit
91b0: 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 45 [SQLITE_LIMIT_LE
91c0: 4e 47 54 48 5d 20 29 3b 0a 20 20 20 20 20 20 20 NGTH] );.
91d0: 20 74 65 73 74 63 61 73 65 28 20 6e 4f 75 74 2d testcase( nOut-
91e0: 32 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 2==db->aLimit[SQ
91f0: 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 LITE_LIMIT_LENGT
9200: 48 5d 20 29 3b 0a 20 20 20 20 20 20 20 20 69 66 H] );. if
9210: 28 20 6e 4f 75 74 2d 31 3e 64 62 2d 3e 61 4c 69 ( nOut-1>db->aLi
9220: 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 mit[SQLITE_LIMIT
9230: 5f 4c 45 4e 47 54 48 5d 20 29 7b 0a 20 20 20 20 _LENGTH] ){.
9240: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 sqlite3_re
9250: 73 75 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 sult_error_toobi
9260: 67 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 g(context);.
9270: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 sqlite3_fr
9280: 65 65 28 7a 4f 75 74 29 3b 0a 20 20 20 20 20 20 ee(zOut);.
9290: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 return;.
92a0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 63 6e }. cn
92b0: 74 45 78 70 61 6e 64 2b 2b 3b 0a 20 20 20 20 20 tExpand++;.
92c0: 20 20 20 69 66 28 20 28 63 6e 74 45 78 70 61 6e if( (cntExpan
92d0: 64 26 28 63 6e 74 45 78 70 61 6e 64 2d 31 29 29 d&(cntExpand-1))
92e0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 ==0 ){.
92f0: 20 2f 2a 20 47 72 6f 77 20 74 68 65 20 73 69 7a /* Grow the siz
9300: 65 20 6f 66 20 74 68 65 20 6f 75 74 70 75 74 20 e of the output
9310: 62 75 66 66 65 72 20 6f 6e 6c 79 20 6f 6e 20 73 buffer only on s
9320: 75 62 73 74 69 74 75 74 69 6f 6e 73 0a 20 20 20 ubstitutions.
9330: 20 20 20 20 20 20 20 2a 2a 20 77 68 6f 73 65 20 ** whose
9340: 69 6e 64 65 78 20 69 73 20 61 20 70 6f 77 65 72 index is a power
9350: 20 6f 66 20 74 77 6f 3a 20 31 2c 20 32 2c 20 34 of two: 1, 2, 4
9360: 2c 20 38 2c 20 31 36 2c 20 33 32 2c 20 2e 2e 2e , 8, 16, 32, ...
9370: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 75 38 */. u8
9380: 20 2a 7a 4f 6c 64 3b 0a 20 20 20 20 20 20 20 20 *zOld;.
9390: 20 20 7a 4f 6c 64 20 3d 20 7a 4f 75 74 3b 0a 20 zOld = zOut;.
93a0: 20 20 20 20 20 20 20 20 20 7a 4f 75 74 20 3d 20 zOut =
93b0: 73 71 6c 69 74 65 33 5f 72 65 61 6c 6c 6f 63 36 sqlite3_realloc6
93c0: 34 28 7a 4f 75 74 2c 20 28 69 6e 74 29 6e 4f 75 4(zOut, (int)nOu
93d0: 74 20 2b 20 28 6e 4f 75 74 20 2d 20 6e 53 74 72 t + (nOut - nStr
93e0: 20 2d 20 31 29 29 3b 0a 20 20 20 20 20 20 20 20 - 1));.
93f0: 20 20 69 66 28 20 7a 4f 75 74 3d 3d 30 20 29 7b if( zOut==0 ){
9400: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c . sql
9410: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
9420: 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 74 29 r_nomem(context)
9430: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 71 ;. sq
9440: 6c 69 74 65 33 5f 66 72 65 65 28 7a 4f 6c 64 29 lite3_free(zOld)
9450: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 ;. re
9460: 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 turn;.
9470: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
9480: 20 20 7d 0a 20 20 20 20 20 20 6d 65 6d 63 70 79 }. memcpy
9490: 28 26 7a 4f 75 74 5b 6a 5d 2c 20 7a 52 65 70 2c (&zOut[j], zRep,
94a0: 20 6e 52 65 70 29 3b 0a 20 20 20 20 20 20 6a 20 nRep);. j
94b0: 2b 3d 20 6e 52 65 70 3b 0a 20 20 20 20 20 20 69 += nRep;. i
94c0: 20 2b 3d 20 6e 50 61 74 74 65 72 6e 2d 31 3b 0a += nPattern-1;.
94d0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 61 73 73 65 }. }. asse
94e0: 72 74 28 20 6a 2b 6e 53 74 72 2d 69 2b 31 3c 3d rt( j+nStr-i+1<=
94f0: 6e 4f 75 74 20 29 3b 0a 20 20 6d 65 6d 63 70 79 nOut );. memcpy
9500: 28 26 7a 4f 75 74 5b 6a 5d 2c 20 26 7a 53 74 72 (&zOut[j], &zStr
9510: 5b 69 5d 2c 20 6e 53 74 72 2d 69 29 3b 0a 20 20 [i], nStr-i);.
9520: 6a 20 2b 3d 20 6e 53 74 72 20 2d 20 69 3b 0a 20 j += nStr - i;.
9530: 20 61 73 73 65 72 74 28 20 6a 3c 3d 6e 4f 75 74 assert( j<=nOut
9540: 20 29 3b 0a 20 20 7a 4f 75 74 5b 6a 5d 20 3d 20 );. zOut[j] =
9550: 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 0;. sqlite3_res
9560: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 ult_text(context
9570: 2c 20 28 63 68 61 72 2a 29 7a 4f 75 74 2c 20 6a , (char*)zOut, j
9580: 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b , sqlite3_free);
9590: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d .}../*.** Implem
95a0: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 entation of the
95b0: 54 52 49 4d 28 29 2c 20 4c 54 52 49 4d 28 29 2c TRIM(), LTRIM(),
95c0: 20 61 6e 64 20 52 54 52 49 4d 28 29 20 66 75 6e and RTRIM() fun
95d0: 63 74 69 6f 6e 73 2e 0a 2a 2a 20 54 68 65 20 75 ctions..** The u
95e0: 73 65 72 64 61 74 61 20 69 73 20 30 78 31 20 66 serdata is 0x1 f
95f0: 6f 72 20 6c 65 66 74 20 74 72 69 6d 2c 20 30 78 or left trim, 0x
9600: 32 20 66 6f 72 20 72 69 67 68 74 20 74 72 69 6d 2 for right trim
9610: 2c 20 30 78 33 20 66 6f 72 20 62 6f 74 68 2e 0a , 0x3 for both..
9620: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 */.static void t
9630: 72 69 6d 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 rimFunc(. sqlit
9640: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
9650: 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c ext,. int argc,
9660: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
9670: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e **argv.){. con
9680: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 st unsigned char
9690: 20 2a 7a 49 6e 3b 20 20 20 20 20 20 20 20 20 2f *zIn; /
96a0: 2a 20 49 6e 70 75 74 20 73 74 72 69 6e 67 20 2a * Input string *
96b0: 2f 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e /. const unsign
96c0: 65 64 20 63 68 61 72 20 2a 7a 43 68 61 72 53 65 ed char *zCharSe
96d0: 74 3b 20 20 20 20 2f 2a 20 53 65 74 20 6f 66 20 t; /* Set of
96e0: 63 68 61 72 61 63 74 65 72 73 20 74 6f 20 74 72 characters to tr
96f0: 69 6d 20 2a 2f 0a 20 20 69 6e 74 20 6e 49 6e 3b im */. int nIn;
9700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9710: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
9720: 62 65 72 20 6f 66 20 62 79 74 65 73 20 69 6e 20 ber of bytes in
9730: 69 6e 70 75 74 20 2a 2f 0a 20 20 69 6e 74 20 66 input */. int f
9740: 6c 61 67 73 3b 20 20 20 20 20 20 20 20 20 20 20 lags;
9750: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
9760: 31 3a 20 74 72 69 6d 6c 65 66 74 20 20 32 3a 20 1: trimleft 2:
9770: 74 72 69 6d 72 69 67 68 74 20 20 33 3a 20 74 72 trimright 3: tr
9780: 69 6d 20 2a 2f 0a 20 20 69 6e 74 20 69 3b 20 20 im */. int i;
9790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
97a0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 6f 6f /* Loo
97b0: 70 20 63 6f 75 6e 74 65 72 20 2a 2f 0a 20 20 75 p counter */. u
97c0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 61 4c nsigned char *aL
97d0: 65 6e 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 en = 0;
97e0: 20 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 65 61 /* Length of ea
97f0: 63 68 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 ch character in
9800: 7a 43 68 61 72 53 65 74 20 2a 2f 0a 20 20 75 6e zCharSet */. un
9810: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 2a 61 7a signed char **az
9820: 43 68 61 72 20 3d 20 30 3b 20 20 20 20 20 20 20 Char = 0;
9830: 2f 2a 20 49 6e 64 69 76 69 64 75 61 6c 20 63 68 /* Individual ch
9840: 61 72 61 63 74 65 72 73 20 69 6e 20 7a 43 68 61 aracters in zCha
9850: 72 53 65 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 43 rSet */. int nC
9860: 68 61 72 3b 20 20 20 20 20 20 20 20 20 20 20 20 har;
9870: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
9880: 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 umber of charact
9890: 65 72 73 20 69 6e 20 7a 43 68 61 72 53 65 74 20 ers in zCharSet
98a0: 2a 2f 0a 0a 20 20 69 66 28 20 73 71 6c 69 74 65 */.. if( sqlite
98b0: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 3_value_type(arg
98c0: 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 v[0])==SQLITE_NU
98d0: 4c 4c 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e LL ){. return
98e0: 3b 0a 20 20 7d 0a 20 20 7a 49 6e 20 3d 20 73 71 ;. }. zIn = sq
98f0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
9900: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 (argv[0]);. if(
9910: 20 7a 49 6e 3d 3d 30 20 29 20 72 65 74 75 72 6e zIn==0 ) return
9920: 3b 0a 20 20 6e 49 6e 20 3d 20 73 71 6c 69 74 65 ;. nIn = sqlite
9930: 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 3_value_bytes(ar
9940: 67 76 5b 30 5d 29 3b 0a 20 20 61 73 73 65 72 74 gv[0]);. assert
9950: 28 20 7a 49 6e 3d 3d 73 71 6c 69 74 65 33 5f 76 ( zIn==sqlite3_v
9960: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
9970: 5d 29 20 29 3b 0a 20 20 69 66 28 20 61 72 67 63 ]) );. if( argc
9980: 3d 3d 31 20 29 7b 0a 20 20 20 20 73 74 61 74 69 ==1 ){. stati
9990: 63 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 c const unsigned
99a0: 20 63 68 61 72 20 6c 65 6e 4f 6e 65 5b 5d 20 3d char lenOne[] =
99b0: 20 7b 20 31 20 7d 3b 0a 20 20 20 20 73 74 61 74 { 1 };. stat
99c0: 69 63 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ic unsigned char
99d0: 20 2a 20 63 6f 6e 73 74 20 61 7a 4f 6e 65 5b 5d * const azOne[]
99e0: 20 3d 20 7b 20 28 75 38 2a 29 22 20 22 20 7d 3b = { (u8*)" " };
99f0: 0a 20 20 20 20 6e 43 68 61 72 20 3d 20 31 3b 0a . nChar = 1;.
9a00: 20 20 20 20 61 4c 65 6e 20 3d 20 28 75 38 2a 29 aLen = (u8*)
9a10: 6c 65 6e 4f 6e 65 3b 0a 20 20 20 20 61 7a 43 68 lenOne;. azCh
9a20: 61 72 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 ar = (unsigned c
9a30: 68 61 72 20 2a 2a 29 61 7a 4f 6e 65 3b 0a 20 20 har **)azOne;.
9a40: 20 20 7a 43 68 61 72 53 65 74 20 3d 20 30 3b 0a zCharSet = 0;.
9a50: 20 20 7d 65 6c 73 65 20 69 66 28 20 28 7a 43 68 }else if( (zCh
9a60: 61 72 53 65 74 20 3d 20 73 71 6c 69 74 65 33 5f arSet = sqlite3_
9a70: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
9a80: 31 5d 29 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 1]))==0 ){. r
9a90: 65 74 75 72 6e 3b 0a 20 20 7d 65 6c 73 65 7b 0a eturn;. }else{.
9aa0: 20 20 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e const unsign
9ab0: 65 64 20 63 68 61 72 20 2a 7a 3b 0a 20 20 20 20 ed char *z;.
9ac0: 66 6f 72 28 7a 3d 7a 43 68 61 72 53 65 74 2c 20 for(z=zCharSet,
9ad0: 6e 43 68 61 72 3d 30 3b 20 2a 7a 3b 20 6e 43 68 nChar=0; *z; nCh
9ae0: 61 72 2b 2b 29 7b 0a 20 20 20 20 20 20 53 51 4c ar++){. SQL
9af0: 49 54 45 5f 53 4b 49 50 5f 55 54 46 38 28 7a 29 ITE_SKIP_UTF8(z)
9b00: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 ;. }. if(
9b10: 6e 43 68 61 72 3e 30 20 29 7b 0a 20 20 20 20 20 nChar>0 ){.
9b20: 20 61 7a 43 68 61 72 20 3d 20 63 6f 6e 74 65 78 azChar = contex
9b30: 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c tMalloc(context,
9b40: 20 28 28 69 36 34 29 6e 43 68 61 72 29 2a 28 73 ((i64)nChar)*(s
9b50: 69 7a 65 6f 66 28 63 68 61 72 2a 29 2b 31 29 29 izeof(char*)+1))
9b60: 3b 0a 20 20 20 20 20 20 69 66 28 20 61 7a 43 68 ;. if( azCh
9b70: 61 72 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 ar==0 ){.
9b80: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 7d return;. }
9b90: 0a 20 20 20 20 20 20 61 4c 65 6e 20 3d 20 28 75 . aLen = (u
9ba0: 6e 73 69 67 6e 65 64 20 63 68 61 72 2a 29 26 61 nsigned char*)&a
9bb0: 7a 43 68 61 72 5b 6e 43 68 61 72 5d 3b 0a 20 20 zChar[nChar];.
9bc0: 20 20 20 20 66 6f 72 28 7a 3d 7a 43 68 61 72 53 for(z=zCharS
9bd0: 65 74 2c 20 6e 43 68 61 72 3d 30 3b 20 2a 7a 3b et, nChar=0; *z;
9be0: 20 6e 43 68 61 72 2b 2b 29 7b 0a 20 20 20 20 20 nChar++){.
9bf0: 20 20 20 61 7a 43 68 61 72 5b 6e 43 68 61 72 5d azChar[nChar]
9c00: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
9c10: 72 20 2a 29 7a 3b 0a 20 20 20 20 20 20 20 20 53 r *)z;. S
9c20: 51 4c 49 54 45 5f 53 4b 49 50 5f 55 54 46 38 28 QLITE_SKIP_UTF8(
9c30: 7a 29 3b 0a 20 20 20 20 20 20 20 20 61 4c 65 6e z);. aLen
9c40: 5b 6e 43 68 61 72 5d 20 3d 20 28 75 38 29 28 7a [nChar] = (u8)(z
9c50: 20 2d 20 61 7a 43 68 61 72 5b 6e 43 68 61 72 5d - azChar[nChar]
9c60: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d );. }. }
9c70: 0a 20 20 7d 0a 20 20 69 66 28 20 6e 43 68 61 72 . }. if( nChar
9c80: 3e 30 20 29 7b 0a 20 20 20 20 66 6c 61 67 73 20 >0 ){. flags
9c90: 3d 20 53 51 4c 49 54 45 5f 50 54 52 5f 54 4f 5f = SQLITE_PTR_TO_
9ca0: 49 4e 54 28 73 71 6c 69 74 65 33 5f 75 73 65 72 INT(sqlite3_user
9cb0: 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 29 3b _data(context));
9cc0: 0a 20 20 20 20 69 66 28 20 66 6c 61 67 73 20 26 . if( flags &
9cd0: 20 31 20 29 7b 0a 20 20 20 20 20 20 77 68 69 6c 1 ){. whil
9ce0: 65 28 20 6e 49 6e 3e 30 20 29 7b 0a 20 20 20 20 e( nIn>0 ){.
9cf0: 20 20 20 20 69 6e 74 20 6c 65 6e 20 3d 20 30 3b int len = 0;
9d00: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30 . for(i=0
9d10: 3b 20 69 3c 6e 43 68 61 72 3b 20 69 2b 2b 29 7b ; i<nChar; i++){
9d20: 0a 20 20 20 20 20 20 20 20 20 20 6c 65 6e 20 3d . len =
9d30: 20 61 4c 65 6e 5b 69 5d 3b 0a 20 20 20 20 20 20 aLen[i];.
9d40: 20 20 20 20 69 66 28 20 6c 65 6e 3c 3d 6e 49 6e if( len<=nIn
9d50: 20 26 26 20 6d 65 6d 63 6d 70 28 7a 49 6e 2c 20 && memcmp(zIn,
9d60: 61 7a 43 68 61 72 5b 69 5d 2c 20 6c 65 6e 29 3d azChar[i], len)=
9d70: 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 =0 ) break;.
9d80: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 }. if
9d90: 28 20 69 3e 3d 6e 43 68 61 72 20 29 20 62 72 65 ( i>=nChar ) bre
9da0: 61 6b 3b 0a 20 20 20 20 20 20 20 20 7a 49 6e 20 ak;. zIn
9db0: 2b 3d 20 6c 65 6e 3b 0a 20 20 20 20 20 20 20 20 += len;.
9dc0: 6e 49 6e 20 2d 3d 20 6c 65 6e 3b 0a 20 20 20 20 nIn -= len;.
9dd0: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 }. }. if
9de0: 28 20 66 6c 61 67 73 20 26 20 32 20 29 7b 0a 20 ( flags & 2 ){.
9df0: 20 20 20 20 20 77 68 69 6c 65 28 20 6e 49 6e 3e while( nIn>
9e00: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 0 ){. int
9e10: 20 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 20 20 len = 0;.
9e20: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 43 68 for(i=0; i<nCh
9e30: 61 72 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 ar; i++){.
9e40: 20 20 20 20 6c 65 6e 20 3d 20 61 4c 65 6e 5b 69 len = aLen[i
9e50: 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 ];. if(
9e60: 20 6c 65 6e 3c 3d 6e 49 6e 20 26 26 20 6d 65 6d len<=nIn && mem
9e70: 63 6d 70 28 26 7a 49 6e 5b 6e 49 6e 2d 6c 65 6e cmp(&zIn[nIn-len
9e80: 5d 2c 61 7a 43 68 61 72 5b 69 5d 2c 6c 65 6e 29 ],azChar[i],len)
9e90: 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 ==0 ) break;.
9ea0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 }. i
9eb0: 66 28 20 69 3e 3d 6e 43 68 61 72 20 29 20 62 72 f( i>=nChar ) br
9ec0: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 6e 49 6e eak;. nIn
9ed0: 20 2d 3d 20 6c 65 6e 3b 0a 20 20 20 20 20 20 7d -= len;. }
9ee0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 7a . }. if( z
9ef0: 43 68 61 72 53 65 74 20 29 7b 0a 20 20 20 20 20 CharSet ){.
9f00: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 61 7a sqlite3_free(az
9f10: 43 68 61 72 29 3b 0a 20 20 20 20 7d 0a 20 20 7d Char);. }. }
9f20: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c . sqlite3_resul
9f30: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 t_text(context,
9f40: 28 63 68 61 72 2a 29 7a 49 6e 2c 20 6e 49 6e 2c (char*)zIn, nIn,
9f50: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e SQLITE_TRANSIEN
9f60: 54 29 3b 0a 7d 0a 0a 0a 23 69 66 64 65 66 20 53 T);.}...#ifdef S
9f70: 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 55 4e 4b QLITE_ENABLE_UNK
9f80: 4e 4f 57 4e 5f 53 51 4c 5f 46 55 4e 43 54 49 4f NOWN_SQL_FUNCTIO
9f90: 4e 0a 2f 2a 0a 2a 2a 20 54 68 65 20 22 75 6e 6b N./*.** The "unk
9fa0: 6e 6f 77 6e 22 20 66 75 6e 63 74 69 6f 6e 20 69 nown" function i
9fb0: 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 s automatically
9fc0: 73 75 62 73 74 69 74 75 74 65 64 20 69 6e 20 70 substituted in p
9fd0: 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 6e 79 20 75 lace of.** any u
9fe0: 6e 72 65 63 6f 67 6e 69 7a 65 64 20 66 75 6e 63 nrecognized func
9ff0: 74 69 6f 6e 20 6e 61 6d 65 20 77 68 65 6e 20 64 tion name when d
a000: 6f 69 6e 67 20 61 6e 20 45 58 50 4c 41 49 4e 20 oing an EXPLAIN
a010: 6f 72 20 45 58 50 4c 41 49 4e 20 51 55 45 52 59 or EXPLAIN QUERY
a020: 20 50 4c 41 4e 0a 2a 2a 20 77 68 65 6e 20 74 68 PLAN.** when th
a030: 65 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f e SQLITE_ENABLE_
a040: 55 4e 4b 4e 4f 57 4e 5f 46 55 4e 43 54 49 4f 4e UNKNOWN_FUNCTION
a050: 20 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 compile-time op
a060: 74 69 6f 6e 20 69 73 20 75 73 65 64 2e 0a 2a 2a tion is used..**
a070: 20 57 68 65 6e 20 74 68 65 20 22 73 71 6c 69 74 When the "sqlit
a080: 65 33 22 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 e3" command-line
a090: 20 73 68 65 6c 6c 20 69 73 20 62 75 69 6c 74 20 shell is built
a0a0: 75 73 69 6e 67 20 74 68 69 73 20 66 75 6e 63 74 using this funct
a0b0: 69 6f 6e 61 6c 69 74 79 2c 0a 2a 2a 20 74 68 61 ionality,.** tha
a0c0: 74 20 61 6c 6c 6f 77 73 20 61 6e 20 45 58 50 4c t allows an EXPL
a0d0: 41 49 4e 20 6f 72 20 45 58 50 4c 41 49 4e 20 51 AIN or EXPLAIN Q
a0e0: 55 45 52 59 20 50 4c 41 4e 20 66 6f 72 20 63 6f UERY PLAN for co
a0f0: 6d 70 6c 65 78 20 71 75 65 72 69 65 73 0a 2a 2a mplex queries.**
a100: 20 69 6e 76 6f 6c 76 69 6e 67 20 61 70 70 6c 69 involving appli
a110: 63 61 74 69 6f 6e 2d 64 65 66 69 6e 65 64 20 66 cation-defined f
a120: 75 6e 63 74 69 6f 6e 73 20 74 6f 20 62 65 20 65 unctions to be e
a130: 78 61 6d 69 6e 65 64 20 69 6e 20 61 20 67 65 6e xamined in a gen
a140: 65 72 69 63 0a 2a 2a 20 73 71 6c 69 74 65 33 20 eric.** sqlite3
a150: 73 68 65 6c 6c 2e 0a 2a 2f 0a 73 74 61 74 69 63 shell..*/.static
a160: 20 76 6f 69 64 20 75 6e 6b 6e 6f 77 6e 46 75 6e void unknownFun
a170: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
a180: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
a190: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c int argc,. sql
a1a0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
a1b0: 76 0a 29 7b 0a 20 20 2f 2a 20 6e 6f 2d 6f 70 20 v.){. /* no-op
a1c0: 2a 2f 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 53 51 */.}.#endif /*SQ
a1d0: 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 55 4e 4b 4e LITE_ENABLE_UNKN
a1e0: 4f 57 4e 5f 53 51 4c 5f 46 55 4e 43 54 49 4f 4e OWN_SQL_FUNCTION
a1f0: 2a 2f 0a 0a 0a 2f 2a 20 49 4d 50 3a 20 52 2d 32 */.../* IMP: R-2
a200: 35 33 36 31 2d 31 36 31 35 30 20 54 68 69 73 20 5361-16150 This
a210: 66 75 6e 63 74 69 6f 6e 20 69 73 20 6f 6d 69 74 function is omit
a220: 74 65 64 20 66 72 6f 6d 20 53 51 4c 69 74 65 20 ted from SQLite
a230: 62 79 20 64 65 66 61 75 6c 74 2e 20 49 74 0a 2a by default. It.*
a240: 2a 20 69 73 20 6f 6e 6c 79 20 61 76 61 69 6c 61 * is only availa
a250: 62 6c 65 20 69 66 20 74 68 65 20 53 51 4c 49 54 ble if the SQLIT
a260: 45 5f 53 4f 55 4e 44 45 58 20 63 6f 6d 70 69 6c E_SOUNDEX compil
a270: 65 2d 74 69 6d 65 20 6f 70 74 69 6f 6e 20 69 73 e-time option is
a280: 20 75 73 65 64 0a 2a 2a 20 77 68 65 6e 20 53 51 used.** when SQ
a290: 4c 69 74 65 20 69 73 20 62 75 69 6c 74 2e 0a 2a Lite is built..*
a2a0: 2f 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f /.#ifdef SQLITE_
a2b0: 53 4f 55 4e 44 45 58 0a 2f 2a 0a 2a 2a 20 43 6f SOUNDEX./*.** Co
a2c0: 6d 70 75 74 65 20 74 68 65 20 73 6f 75 6e 64 65 mpute the sounde
a2d0: 78 20 65 6e 63 6f 64 69 6e 67 20 6f 66 20 61 20 x encoding of a
a2e0: 77 6f 72 64 2e 0a 2a 2a 0a 2a 2a 20 49 4d 50 3a word..**.** IMP:
a2f0: 20 52 2d 35 39 37 38 32 2d 30 30 30 37 32 20 54 R-59782-00072 T
a300: 68 65 20 73 6f 75 6e 64 65 78 28 58 29 20 66 75 he soundex(X) fu
a310: 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 61 nction returns a
a320: 20 73 74 72 69 6e 67 20 74 68 61 74 20 69 73 20 string that is
a330: 74 68 65 0a 2a 2a 20 73 6f 75 6e 64 65 78 20 65 the.** soundex e
a340: 6e 63 6f 64 69 6e 67 20 6f 66 20 74 68 65 20 73 ncoding of the s
a350: 74 72 69 6e 67 20 58 2e 20 0a 2a 2f 0a 73 74 61 tring X. .*/.sta
a360: 74 69 63 20 76 6f 69 64 20 73 6f 75 6e 64 65 78 tic void soundex
a370: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
a380: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
a390: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
a3a0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
a3b0: 61 72 67 76 0a 29 7b 0a 20 20 63 68 61 72 20 7a argv.){. char z
a3c0: 52 65 73 75 6c 74 5b 38 5d 3b 0a 20 20 63 6f 6e Result[8];. con
a3d0: 73 74 20 75 38 20 2a 7a 49 6e 3b 0a 20 20 69 6e st u8 *zIn;. in
a3e0: 74 20 69 2c 20 6a 3b 0a 20 20 73 74 61 74 69 63 t i, j;. static
a3f0: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
a400: 63 68 61 72 20 69 43 6f 64 65 5b 5d 20 3d 20 7b char iCode[] = {
a410: 0a 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c . 0, 0, 0, 0,
a420: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
a430: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
a440: 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 30 , 0,. 0, 0, 0
a450: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
a460: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
a470: 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 0, 0, 0,. 0,
a480: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
a490: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
a4a0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 0, 0, 0, 0,.
a4b0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
a4c0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
a4d0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
a4e0: 0a 20 20 20 20 30 2c 20 30 2c 20 31 2c 20 32 2c . 0, 0, 1, 2,
a4f0: 20 33 2c 20 30 2c 20 31 2c 20 32 2c 20 30 2c 20 3, 0, 1, 2, 0,
a500: 30 2c 20 32 2c 20 32 2c 20 34 2c 20 35 2c 20 35 0, 2, 2, 4, 5, 5
a510: 2c 20 30 2c 0a 20 20 20 20 31 2c 20 32 2c 20 36 , 0,. 1, 2, 6
a520: 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2c 20 30 2c , 2, 3, 0, 1, 0,
a530: 20 32 2c 20 30 2c 20 32 2c 20 30 2c 20 30 2c 20 2, 0, 2, 0, 0,
a540: 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 0, 0, 0,. 0,
a550: 30 2c 20 31 2c 20 32 2c 20 33 2c 20 30 2c 20 31 0, 1, 2, 3, 0, 1
a560: 2c 20 32 2c 20 30 2c 20 30 2c 20 32 2c 20 32 2c , 2, 0, 0, 2, 2,
a570: 20 34 2c 20 35 2c 20 35 2c 20 30 2c 0a 20 20 20 4, 5, 5, 0,.
a580: 20 31 2c 20 32 2c 20 36 2c 20 32 2c 20 33 2c 20 1, 2, 6, 2, 3,
a590: 30 2c 20 31 2c 20 30 2c 20 32 2c 20 30 2c 20 32 0, 1, 0, 2, 0, 2
a5a0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
a5b0: 0a 20 20 7d 3b 0a 20 20 61 73 73 65 72 74 28 20 . };. assert(
a5c0: 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 7a 49 6e argc==1 );. zIn
a5d0: 20 3d 20 28 75 38 2a 29 73 71 6c 69 74 65 33 5f = (u8*)sqlite3_
a5e0: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
a5f0: 30 5d 29 3b 0a 20 20 69 66 28 20 7a 49 6e 3d 3d 0]);. if( zIn==
a600: 30 20 29 20 7a 49 6e 20 3d 20 28 75 38 2a 29 22 0 ) zIn = (u8*)"
a610: 22 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 49 ";. for(i=0; zI
a620: 6e 5b 69 5d 20 26 26 20 21 73 71 6c 69 74 65 33 n[i] && !sqlite3
a630: 49 73 61 6c 70 68 61 28 7a 49 6e 5b 69 5d 29 3b Isalpha(zIn[i]);
a640: 20 69 2b 2b 29 7b 7d 0a 20 20 69 66 28 20 7a 49 i++){}. if( zI
a650: 6e 5b 69 5d 20 29 7b 0a 20 20 20 20 75 38 20 70 n[i] ){. u8 p
a660: 72 65 76 63 6f 64 65 20 3d 20 69 43 6f 64 65 5b revcode = iCode[
a670: 7a 49 6e 5b 69 5d 26 30 78 37 66 5d 3b 0a 20 20 zIn[i]&0x7f];.
a680: 20 20 7a 52 65 73 75 6c 74 5b 30 5d 20 3d 20 73 zResult[0] = s
a690: 71 6c 69 74 65 33 54 6f 75 70 70 65 72 28 7a 49 qlite3Toupper(zI
a6a0: 6e 5b 69 5d 29 3b 0a 20 20 20 20 66 6f 72 28 6a n[i]);. for(j
a6b0: 3d 31 3b 20 6a 3c 34 20 26 26 20 7a 49 6e 5b 69 =1; j<4 && zIn[i
a6c0: 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 69 ]; i++){. i
a6d0: 6e 74 20 63 6f 64 65 20 3d 20 69 43 6f 64 65 5b nt code = iCode[
a6e0: 7a 49 6e 5b 69 5d 26 30 78 37 66 5d 3b 0a 20 20 zIn[i]&0x7f];.
a6f0: 20 20 20 20 69 66 28 20 63 6f 64 65 3e 30 20 29 if( code>0 )
a700: 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 6f {. if( co
a710: 64 65 21 3d 70 72 65 76 63 6f 64 65 20 29 7b 0a de!=prevcode ){.
a720: 20 20 20 20 20 20 20 20 20 20 70 72 65 76 63 6f prevco
a730: 64 65 20 3d 20 63 6f 64 65 3b 0a 20 20 20 20 20 de = code;.
a740: 20 20 20 20 20 7a 52 65 73 75 6c 74 5b 6a 2b 2b zResult[j++
a750: 5d 20 3d 20 63 6f 64 65 20 2b 20 27 30 27 3b 0a ] = code + '0';.
a760: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
a770: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 70 }else{. p
a780: 72 65 76 63 6f 64 65 20 3d 20 30 3b 0a 20 20 20 revcode = 0;.
a790: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 77 }. }. w
a7a0: 68 69 6c 65 28 20 6a 3c 34 20 29 7b 0a 20 20 20 hile( j<4 ){.
a7b0: 20 20 20 7a 52 65 73 75 6c 74 5b 6a 2b 2b 5d 20 zResult[j++]
a7c0: 3d 20 27 30 27 3b 0a 20 20 20 20 7d 0a 20 20 20 = '0';. }.
a7d0: 20 7a 52 65 73 75 6c 74 5b 6a 5d 20 3d 20 30 3b zResult[j] = 0;
a7e0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
a7f0: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 ult_text(context
a800: 2c 20 7a 52 65 73 75 6c 74 2c 20 34 2c 20 53 51 , zResult, 4, SQ
a810: 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b LITE_TRANSIENT);
a820: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 2f 2a . }else{. /*
a830: 20 49 4d 50 3a 20 52 2d 36 34 38 39 34 2d 35 30 IMP: R-64894-50
a840: 33 32 31 20 54 68 65 20 73 74 72 69 6e 67 20 22 321 The string "
a850: 3f 30 30 30 22 20 69 73 20 72 65 74 75 72 6e 65 ?000" is returne
a860: 64 20 69 66 20 74 68 65 20 61 72 67 75 6d 65 6e d if the argumen
a870: 74 0a 20 20 20 20 2a 2a 20 69 73 20 4e 55 4c 4c t. ** is NULL
a880: 20 6f 72 20 63 6f 6e 74 61 69 6e 73 20 6e 6f 20 or contains no
a890: 41 53 43 49 49 20 61 6c 70 68 61 62 65 74 69 63 ASCII alphabetic
a8a0: 20 63 68 61 72 61 63 74 65 72 73 2e 20 2a 2f 0a characters. */.
a8b0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
a8c0: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
a8d0: 20 22 3f 30 30 30 22 2c 20 34 2c 20 53 51 4c 49 "?000", 4, SQLI
a8e0: 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 7d 0a TE_STATIC);. }.
a8f0: 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 }.#endif /* SQLI
a900: 54 45 5f 53 4f 55 4e 44 45 58 20 2a 2f 0a 0a 23 TE_SOUNDEX */..#
a910: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
a920: 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f IT_LOAD_EXTENSIO
a930: 4e 0a 2f 2a 0a 2a 2a 20 41 20 66 75 6e 63 74 69 N./*.** A functi
a940: 6f 6e 20 74 68 61 74 20 6c 6f 61 64 73 20 61 20 on that loads a
a950: 73 68 61 72 65 64 2d 6c 69 62 72 61 72 79 20 65 shared-library e
a960: 78 74 65 6e 73 69 6f 6e 20 74 68 65 6e 20 72 65 xtension then re
a970: 74 75 72 6e 73 20 4e 55 4c 4c 2e 0a 2a 2f 0a 73 turns NULL..*/.s
a980: 74 61 74 69 63 20 76 6f 69 64 20 6c 6f 61 64 45 tatic void loadE
a990: 78 74 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 xt(sqlite3_conte
a9a0: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 xt *context, int
a9b0: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 argc, sqlite3_v
a9c0: 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 alue **argv){.
a9d0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c const char *zFil
a9e0: 65 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 20 e = (const char
a9f0: 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f *)sqlite3_value_
aa00: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 text(argv[0]);.
aa10: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 72 const char *zPr
aa20: 6f 63 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 oc;. sqlite3 *d
aa30: 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 b = sqlite3_cont
aa40: 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f ext_db_handle(co
aa50: 6e 74 65 78 74 29 3b 0a 20 20 63 68 61 72 20 2a ntext);. char *
aa60: 7a 45 72 72 4d 73 67 20 3d 20 30 3b 0a 0a 20 20 zErrMsg = 0;..
aa70: 2f 2a 20 44 69 73 61 6c 6c 6f 77 20 74 68 65 20 /* Disallow the
aa80: 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 28 29 load_extension()
aa90: 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 20 75 6e SQL function un
aaa0: 6c 65 73 73 20 74 68 65 20 53 51 4c 49 54 45 5f less the SQLITE_
aab0: 4c 6f 61 64 45 78 74 46 75 6e 63 0a 20 20 2a 2a LoadExtFunc. **
aac0: 20 66 6c 61 67 20 69 73 20 73 65 74 2e 20 20 53 flag is set. S
aad0: 65 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 65 ee the sqlite3_e
aae0: 6e 61 62 6c 65 5f 6c 6f 61 64 5f 65 78 74 65 6e nable_load_exten
aaf0: 73 69 6f 6e 28 29 20 41 50 49 2e 0a 20 20 2a 2f sion() API.. */
ab00: 0a 20 20 69 66 28 20 28 64 62 2d 3e 66 6c 61 67 . if( (db->flag
ab10: 73 20 26 20 53 51 4c 49 54 45 5f 4c 6f 61 64 45 s & SQLITE_LoadE
ab20: 78 74 46 75 6e 63 29 3d 3d 30 20 29 7b 0a 20 20 xtFunc)==0 ){.
ab30: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
ab40: 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 _error(context,
ab50: 22 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 22 "not authorized"
ab60: 2c 20 2d 31 29 3b 0a 20 20 20 20 72 65 74 75 72 , -1);. retur
ab70: 6e 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 61 72 n;. }.. if( ar
ab80: 67 63 3d 3d 32 20 29 7b 0a 20 20 20 20 7a 50 72 gc==2 ){. zPr
ab90: 6f 63 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 oc = (const char
aba0: 20 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 *)sqlite3_value
abb0: 5f 74 65 78 74 28 61 72 67 76 5b 31 5d 29 3b 0a _text(argv[1]);.
abc0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 50 72 }else{. zPr
abd0: 6f 63 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 oc = 0;. }. if
abe0: 28 20 7a 46 69 6c 65 20 26 26 20 73 71 6c 69 74 ( zFile && sqlit
abf0: 65 33 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f e3_load_extensio
ac00: 6e 28 64 62 2c 20 7a 46 69 6c 65 2c 20 7a 50 72 n(db, zFile, zPr
ac10: 6f 63 2c 20 26 7a 45 72 72 4d 73 67 29 20 29 7b oc, &zErrMsg) ){
ac20: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
ac30: 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 ult_error(contex
ac40: 74 2c 20 7a 45 72 72 4d 73 67 2c 20 2d 31 29 3b t, zErrMsg, -1);
ac50: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 . sqlite3_fre
ac60: 65 28 7a 45 72 72 4d 73 67 29 3b 0a 20 20 7d 0a e(zErrMsg);. }.
ac70: 7d 0a 23 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a }.#endif.../*.**
ac80: 20 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 An instance of
ac90: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 the following st
aca0: 72 75 63 74 75 72 65 20 68 6f 6c 64 73 20 74 68 ructure holds th
acb0: 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 61 0a 2a e context of a.*
acc0: 2a 20 73 75 6d 28 29 20 6f 72 20 61 76 67 28 29 * sum() or avg()
acd0: 20 61 67 67 72 65 67 61 74 65 20 63 6f 6d 70 75 aggregate compu
ace0: 74 61 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 tation..*/.typed
acf0: 65 66 20 73 74 72 75 63 74 20 53 75 6d 43 74 78 ef struct SumCtx
ad00: 20 53 75 6d 43 74 78 3b 0a 73 74 72 75 63 74 20 SumCtx;.struct
ad10: 53 75 6d 43 74 78 20 7b 0a 20 20 64 6f 75 62 6c SumCtx {. doubl
ad20: 65 20 72 53 75 6d 3b 20 20 20 20 20 20 2f 2a 20 e rSum; /*
ad30: 46 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 73 Floating point s
ad40: 75 6d 20 2a 2f 0a 20 20 69 36 34 20 69 53 75 6d um */. i64 iSum
ad50: 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 74 ; /* Int
ad60: 65 67 65 72 20 73 75 6d 20 2a 2f 20 20 20 0a 20 eger sum */ .
ad70: 20 69 36 34 20 63 6e 74 3b 20 20 20 20 20 20 20 i64 cnt;
ad80: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
ad90: 65 6c 65 6d 65 6e 74 73 20 73 75 6d 6d 65 64 20 elements summed
ada0: 2a 2f 0a 20 20 75 38 20 6f 76 65 72 66 6c 6f 77 */. u8 overflow
adb0: 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 ; /* True i
adc0: 66 20 69 6e 74 65 67 65 72 20 6f 76 65 72 66 6c f integer overfl
add0: 6f 77 20 73 65 65 6e 20 2a 2f 0a 20 20 75 38 20 ow seen */. u8
ade0: 61 70 70 72 6f 78 3b 20 20 20 20 20 20 20 20 2f approx; /
adf0: 2a 20 54 72 75 65 20 69 66 20 6e 6f 6e 2d 69 6e * True if non-in
ae00: 74 65 67 65 72 20 76 61 6c 75 65 20 77 61 73 20 teger value was
ae10: 69 6e 70 75 74 20 74 6f 20 74 68 65 20 73 75 6d input to the sum
ae20: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 52 6f */.};../*.** Ro
ae30: 75 74 69 6e 65 73 20 75 73 65 64 20 74 6f 20 63 utines used to c
ae40: 6f 6d 70 75 74 65 20 74 68 65 20 73 75 6d 2c 20 ompute the sum,
ae50: 61 76 65 72 61 67 65 2c 20 61 6e 64 20 74 6f 74 average, and tot
ae60: 61 6c 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 53 55 al..**.** The SU
ae70: 4d 28 29 20 66 75 6e 63 74 69 6f 6e 20 66 6f 6c M() function fol
ae80: 6c 6f 77 73 20 74 68 65 20 28 62 72 6f 6b 65 6e lows the (broken
ae90: 29 20 53 51 4c 20 73 74 61 6e 64 61 72 64 20 77 ) SQL standard w
aea0: 68 69 63 68 20 6d 65 61 6e 73 0a 2a 2a 20 74 68 hich means.** th
aeb0: 61 74 20 69 74 20 72 65 74 75 72 6e 73 20 4e 55 at it returns NU
aec0: 4c 4c 20 69 66 20 69 74 20 73 75 6d 73 20 6f 76 LL if it sums ov
aed0: 65 72 20 6e 6f 20 69 6e 70 75 74 73 2e 20 20 54 er no inputs. T
aee0: 4f 54 41 4c 20 72 65 74 75 72 6e 73 0a 2a 2a 20 OTAL returns.**
aef0: 30 2e 30 20 69 6e 20 74 68 61 74 20 63 61 73 65 0.0 in that case
af00: 2e 20 20 49 6e 20 61 64 64 69 74 69 6f 6e 2c 20 . In addition,
af10: 54 4f 54 41 4c 20 61 6c 77 61 79 73 20 72 65 74 TOTAL always ret
af20: 75 72 6e 73 20 61 20 66 6c 6f 61 74 20 77 68 65 urns a float whe
af30: 72 65 0a 2a 2a 20 53 55 4d 20 6d 69 67 68 74 20 re.** SUM might
af40: 72 65 74 75 72 6e 20 61 6e 20 69 6e 74 65 67 65 return an intege
af50: 72 20 69 66 20 69 74 20 6e 65 76 65 72 20 65 6e r if it never en
af60: 63 6f 75 6e 74 65 72 73 20 61 20 66 6c 6f 61 74 counters a float
af70: 69 6e 67 20 70 6f 69 6e 74 0a 2a 2a 20 76 61 6c ing point.** val
af80: 75 65 2e 20 20 54 4f 54 41 4c 20 6e 65 76 65 72 ue. TOTAL never
af90: 20 66 61 69 6c 73 2c 20 62 75 74 20 53 55 4d 20 fails, but SUM
afa0: 6d 69 67 68 74 20 74 68 72 6f 75 67 68 20 61 6e might through an
afb0: 20 65 78 63 65 70 74 69 6f 6e 20 69 66 0a 2a 2a exception if.**
afc0: 20 69 74 20 6f 76 65 72 66 6c 6f 77 73 20 61 6e it overflows an
afd0: 20 69 6e 74 65 67 65 72 2e 0a 2a 2f 0a 73 74 61 integer..*/.sta
afe0: 74 69 63 20 76 6f 69 64 20 73 75 6d 53 74 65 70 tic void sumStep
aff0: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 (sqlite3_context
b000: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 *context, int a
b010: 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c rgc, sqlite3_val
b020: 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 53 75 ue **argv){. Su
b030: 6d 43 74 78 20 2a 70 3b 0a 20 20 69 6e 74 20 74 mCtx *p;. int t
b040: 79 70 65 3b 0a 20 20 61 73 73 65 72 74 28 20 61 ype;. assert( a
b050: 72 67 63 3d 3d 31 20 29 3b 0a 20 20 55 4e 55 53 rgc==1 );. UNUS
b060: 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 ED_PARAMETER(arg
b070: 63 29 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 c);. p = sqlite
b080: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
b090: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a ext(context, siz
b0a0: 65 6f 66 28 2a 70 29 29 3b 0a 20 20 74 79 70 65 eof(*p));. type
b0b0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
b0c0: 5f 6e 75 6d 65 72 69 63 5f 74 79 70 65 28 61 72 _numeric_type(ar
b0d0: 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 70 20 gv[0]);. if( p
b0e0: 26 26 20 74 79 70 65 21 3d 53 51 4c 49 54 45 5f && type!=SQLITE_
b0f0: 4e 55 4c 4c 20 29 7b 0a 20 20 20 20 70 2d 3e 63 NULL ){. p->c
b100: 6e 74 2b 2b 3b 0a 20 20 20 20 69 66 28 20 74 79 nt++;. if( ty
b110: 70 65 3d 3d 53 51 4c 49 54 45 5f 49 4e 54 45 47 pe==SQLITE_INTEG
b120: 45 52 20 29 7b 0a 20 20 20 20 20 20 69 36 34 20 ER ){. i64
b130: 76 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 v = sqlite3_valu
b140: 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 e_int64(argv[0])
b150: 3b 0a 20 20 20 20 20 20 70 2d 3e 72 53 75 6d 20 ;. p->rSum
b160: 2b 3d 20 76 3b 0a 20 20 20 20 20 20 69 66 28 20 += v;. if(
b170: 28 70 2d 3e 61 70 70 72 6f 78 7c 70 2d 3e 6f 76 (p->approx|p->ov
b180: 65 72 66 6c 6f 77 29 3d 3d 30 20 26 26 20 73 71 erflow)==0 && sq
b190: 6c 69 74 65 33 41 64 64 49 6e 74 36 34 28 26 70 lite3AddInt64(&p
b1a0: 2d 3e 69 53 75 6d 2c 20 76 29 20 29 7b 0a 20 20 ->iSum, v) ){.
b1b0: 20 20 20 20 20 20 70 2d 3e 61 70 70 72 6f 78 20 p->approx
b1c0: 3d 20 70 2d 3e 6f 76 65 72 66 6c 6f 77 20 3d 20 = p->overflow =
b1d0: 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 1;. }. }
b1e0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 2d 3e 72 else{. p->r
b1f0: 53 75 6d 20 2b 3d 20 73 71 6c 69 74 65 33 5f 76 Sum += sqlite3_v
b200: 61 6c 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 alue_double(argv
b210: 5b 30 5d 29 3b 0a 20 20 20 20 20 20 70 2d 3e 61 [0]);. p->a
b220: 70 70 72 6f 78 20 3d 20 31 3b 0a 20 20 20 20 7d pprox = 1;. }
b230: 0a 20 20 7d 0a 7d 0a 23 69 66 6e 64 65 66 20 53 . }.}.#ifndef S
b240: 51 4c 49 54 45 5f 4f 4d 49 54 5f 57 49 4e 44 4f QLITE_OMIT_WINDO
b250: 57 46 55 4e 43 0a 73 74 61 74 69 63 20 76 6f 69 WFUNC.static voi
b260: 64 20 73 75 6d 49 6e 76 65 72 73 65 28 73 71 6c d sumInverse(sql
b270: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
b280: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
b290: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 2a 2a sqlite3_value**
b2a0: 61 72 67 76 29 7b 0a 20 20 53 75 6d 43 74 78 20 argv){. SumCtx
b2b0: 2a 70 3b 0a 20 20 69 6e 74 20 74 79 70 65 3b 0a *p;. int type;.
b2c0: 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d assert( argc==
b2d0: 31 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 1 );. UNUSED_PA
b2e0: 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 RAMETER(argc);.
b2f0: 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 p = sqlite3_agg
b300: 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 regate_context(c
b310: 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a ontext, sizeof(*
b320: 70 29 29 3b 0a 20 20 74 79 70 65 20 3d 20 73 71 p));. type = sq
b330: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 6e 75 6d 65 lite3_value_nume
b340: 72 69 63 5f 74 79 70 65 28 61 72 67 76 5b 30 5d ric_type(argv[0]
b350: 29 3b 0a 20 20 2f 2a 20 70 20 69 73 20 61 6c 77 );. /* p is alw
b360: 61 79 73 20 6e 6f 6e 2d 4e 55 4c 4c 20 62 65 63 ays non-NULL bec
b370: 61 75 73 65 20 73 75 6d 53 74 65 70 28 29 20 77 ause sumStep() w
b380: 69 6c 6c 20 68 61 76 65 20 62 65 65 6e 20 63 61 ill have been ca
b390: 6c 6c 65 64 20 66 69 72 73 74 0a 20 20 2a 2a 20 lled first. **
b3a0: 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 69 74 to initialize it
b3b0: 20 2a 2f 0a 20 20 69 66 28 20 41 4c 57 41 59 53 */. if( ALWAYS
b3c0: 28 70 29 20 26 26 20 74 79 70 65 21 3d 53 51 4c (p) && type!=SQL
b3d0: 49 54 45 5f 4e 55 4c 4c 20 29 7b 0a 20 20 20 20 ITE_NULL ){.
b3e0: 61 73 73 65 72 74 28 20 70 2d 3e 63 6e 74 3e 30 assert( p->cnt>0
b3f0: 20 29 3b 0a 20 20 20 20 70 2d 3e 63 6e 74 2d 2d );. p->cnt--
b400: 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 74 79 ;. assert( ty
b410: 70 65 3d 3d 53 51 4c 49 54 45 5f 49 4e 54 45 47 pe==SQLITE_INTEG
b420: 45 52 20 7c 7c 20 70 2d 3e 61 70 70 72 6f 78 20 ER || p->approx
b430: 29 3b 0a 20 20 20 20 69 66 28 20 74 79 70 65 3d );. if( type=
b440: 3d 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 20 =SQLITE_INTEGER
b450: 26 26 20 70 2d 3e 61 70 70 72 6f 78 3d 3d 30 20 && p->approx==0
b460: 29 7b 0a 20 20 20 20 20 20 69 36 34 20 76 20 3d ){. i64 v =
b470: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 sqlite3_value_i
b480: 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 3b 0a 20 nt64(argv[0]);.
b490: 20 20 20 20 20 70 2d 3e 72 53 75 6d 20 2d 3d 20 p->rSum -=
b4a0: 76 3b 0a 20 20 20 20 20 20 70 2d 3e 69 53 75 6d v;. p->iSum
b4b0: 20 2d 3d 20 76 3b 0a 20 20 20 20 7d 65 6c 73 65 -= v;. }else
b4c0: 7b 0a 20 20 20 20 20 20 70 2d 3e 72 53 75 6d 20 {. p->rSum
b4d0: 2d 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 -= sqlite3_value
b4e0: 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b 30 5d 29 _double(argv[0])
b4f0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 23 65 ;. }. }.}.#e
b500: 6c 73 65 0a 23 20 64 65 66 69 6e 65 20 73 75 6d lse.# define sum
b510: 49 6e 76 65 72 73 65 20 30 0a 23 65 6e 64 69 66 Inverse 0.#endif
b520: 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f /* SQLITE_OMIT_
b530: 57 49 4e 44 4f 57 46 55 4e 43 20 2a 2f 0a 73 74 WINDOWFUNC */.st
b540: 61 74 69 63 20 76 6f 69 64 20 73 75 6d 46 69 6e atic void sumFin
b550: 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f alize(sqlite3_co
b560: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b ntext *context){
b570: 0a 20 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 20 . SumCtx *p;.
b580: 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 p = sqlite3_aggr
b590: 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f egate_context(co
b5a0: 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 69 66 28 ntext, 0);. if(
b5b0: 20 70 20 26 26 20 70 2d 3e 63 6e 74 3e 30 20 29 p && p->cnt>0 )
b5c0: 7b 0a 20 20 20 20 69 66 28 20 70 2d 3e 6f 76 65 {. if( p->ove
b5d0: 72 66 6c 6f 77 20 29 7b 0a 20 20 20 20 20 20 73 rflow ){. s
b5e0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 qlite3_result_er
b5f0: 72 6f 72 28 63 6f 6e 74 65 78 74 2c 22 69 6e 74 ror(context,"int
b600: 65 67 65 72 20 6f 76 65 72 66 6c 6f 77 22 2c 2d eger overflow",-
b610: 31 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 1);. }else if
b620: 28 20 70 2d 3e 61 70 70 72 6f 78 20 29 7b 0a 20 ( p->approx ){.
b630: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 sqlite3_res
b640: 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 ult_double(conte
b650: 78 74 2c 20 70 2d 3e 72 53 75 6d 29 3b 0a 20 20 xt, p->rSum);.
b660: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 73 }else{. s
b670: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e qlite3_result_in
b680: 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 70 2d 3e t64(context, p->
b690: 69 53 75 6d 29 3b 0a 20 20 20 20 7d 0a 20 20 7d iSum);. }. }
b6a0: 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 61 .}.static void a
b6b0: 76 67 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 vgFinalize(sqlit
b6c0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
b6d0: 65 78 74 29 7b 0a 20 20 53 75 6d 43 74 78 20 2a ext){. SumCtx *
b6e0: 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 p;. p = sqlite3
b6f0: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 _aggregate_conte
b700: 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b 0a xt(context, 0);.
b710: 20 20 69 66 28 20 70 20 26 26 20 70 2d 3e 63 6e if( p && p->cn
b720: 74 3e 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 t>0 ){. sqlit
b730: 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65 e3_result_double
b740: 28 63 6f 6e 74 65 78 74 2c 20 70 2d 3e 72 53 75 (context, p->rSu
b750: 6d 2f 28 64 6f 75 62 6c 65 29 70 2d 3e 63 6e 74 m/(double)p->cnt
b760: 29 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63 20 );. }.}.static
b770: 76 6f 69 64 20 74 6f 74 61 6c 46 69 6e 61 6c 69 void totalFinali
b780: 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 ze(sqlite3_conte
b790: 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 xt *context){.
b7a0: 53 75 6d 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d SumCtx *p;. p =
b7b0: 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 sqlite3_aggrega
b7c0: 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 te_context(conte
b7d0: 78 74 2c 20 30 29 3b 0a 20 20 2f 2a 20 28 64 6f xt, 0);. /* (do
b7e0: 75 62 6c 65 29 30 20 49 6e 20 63 61 73 65 20 6f uble)0 In case o
b7f0: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 46 4c f SQLITE_OMIT_FL
b800: 4f 41 54 49 4e 47 5f 50 4f 49 4e 54 2e 2e 2e 20 OATING_POINT...
b810: 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 */. sqlite3_res
b820: 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 ult_double(conte
b830: 78 74 2c 20 70 20 3f 20 70 2d 3e 72 53 75 6d 20 xt, p ? p->rSum
b840: 3a 20 28 64 6f 75 62 6c 65 29 30 29 3b 0a 7d 0a : (double)0);.}.
b850: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f ./*.** The follo
b860: 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 20 6b wing structure k
b870: 65 65 70 73 20 74 72 61 63 6b 20 6f 66 20 73 74 eeps track of st
b880: 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 ate information
b890: 66 6f 72 20 74 68 65 0a 2a 2a 20 63 6f 75 6e 74 for the.** count
b8a0: 28 29 20 61 67 67 72 65 67 61 74 65 20 66 75 6e () aggregate fun
b8b0: 63 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 ction..*/.typede
b8c0: 66 20 73 74 72 75 63 74 20 43 6f 75 6e 74 43 74 f struct CountCt
b8d0: 78 20 43 6f 75 6e 74 43 74 78 3b 0a 73 74 72 75 x CountCtx;.stru
b8e0: 63 74 20 43 6f 75 6e 74 43 74 78 20 7b 0a 20 20 ct CountCtx {.
b8f0: 69 36 34 20 6e 3b 0a 23 69 66 64 65 66 20 53 51 i64 n;.#ifdef SQ
b900: 4c 49 54 45 5f 44 45 42 55 47 0a 20 20 69 6e 74 LITE_DEBUG. int
b910: 20 62 49 6e 76 65 72 73 65 3b 20 20 20 20 20 20 bInverse;
b920: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
b930: 54 72 75 65 20 69 66 20 78 49 6e 76 65 72 73 65 True if xInverse
b940: 28 29 20 65 76 65 72 20 63 61 6c 6c 65 64 20 2a () ever called *
b950: 2f 0a 23 65 6e 64 69 66 0a 7d 3b 0a 0a 2f 2a 0a /.#endif.};../*.
b960: 2a 2a 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 69 ** Routines to i
b970: 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 63 6f 75 mplement the cou
b980: 6e 74 28 29 20 61 67 67 72 65 67 61 74 65 20 66 nt() aggregate f
b990: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 unction..*/.stat
b9a0: 69 63 20 76 6f 69 64 20 63 6f 75 6e 74 53 74 65 ic void countSte
b9b0: 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 p(sqlite3_contex
b9c0: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 t *context, int
b9d0: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 argc, sqlite3_va
b9e0: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 43 lue **argv){. C
b9f0: 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 ountCtx *p;. p
ba00: 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 = sqlite3_aggreg
ba10: 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 ate_context(cont
ba20: 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 ext, sizeof(*p))
ba30: 3b 0a 20 20 69 66 28 20 28 61 72 67 63 3d 3d 30 ;. if( (argc==0
ba40: 20 7c 7c 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 21 || SQLITE_NULL!
ba50: 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 =sqlite3_value_t
ba60: 79 70 65 28 61 72 67 76 5b 30 5d 29 29 20 26 26 ype(argv[0])) &&
ba70: 20 70 20 29 7b 0a 20 20 20 20 70 2d 3e 6e 2b 2b p ){. p->n++
ba80: 3b 0a 20 20 7d 0a 0a 23 69 66 6e 64 65 66 20 53 ;. }..#ifndef S
ba90: 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 45 50 52 45 QLITE_OMIT_DEPRE
baa0: 43 41 54 45 44 0a 20 20 2f 2a 20 54 68 65 20 73 CATED. /* The s
bab0: 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 qlite3_aggregate
bac0: 5f 63 6f 75 6e 74 28 29 20 66 75 6e 63 74 69 6f _count() functio
bad0: 6e 20 69 73 20 64 65 70 72 65 63 61 74 65 64 2e n is deprecated.
bae0: 20 20 42 75 74 20 6a 75 73 74 20 74 6f 20 6d 61 But just to ma
baf0: 6b 65 0a 20 20 2a 2a 20 73 75 72 65 20 69 74 20 ke. ** sure it
bb00: 73 74 69 6c 6c 20 6f 70 65 72 61 74 65 73 20 63 still operates c
bb10: 6f 72 72 65 63 74 6c 79 2c 20 76 65 72 69 66 79 orrectly, verify
bb20: 20 74 68 61 74 20 69 74 73 20 63 6f 75 6e 74 20 that its count
bb30: 61 67 72 65 65 73 20 77 69 74 68 20 6f 75 72 20 agrees with our
bb40: 0a 20 20 2a 2a 20 69 6e 74 65 72 6e 61 6c 20 63 . ** internal c
bb50: 6f 75 6e 74 20 77 68 65 6e 20 75 73 69 6e 67 20 ount when using
bb60: 63 6f 75 6e 74 28 2a 29 20 61 6e 64 20 77 68 65 count(*) and whe
bb70: 6e 20 74 68 65 20 74 6f 74 61 6c 20 63 6f 75 6e n the total coun
bb80: 74 20 63 61 6e 20 62 65 0a 20 20 2a 2a 20 65 78 t can be. ** ex
bb90: 70 72 65 73 73 65 64 20 61 73 20 61 20 33 32 2d pressed as a 32-
bba0: 62 69 74 20 69 6e 74 65 67 65 72 2e 20 2a 2f 0a bit integer. */.
bbb0: 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d assert( argc==
bbc0: 31 20 7c 7c 20 70 3d 3d 30 20 7c 7c 20 70 2d 3e 1 || p==0 || p->
bbd0: 6e 3e 30 78 37 66 66 66 66 66 66 66 20 7c 7c 20 n>0x7fffffff ||
bbe0: 70 2d 3e 62 49 6e 76 65 72 73 65 0a 20 20 20 20 p->bInverse.
bbf0: 20 20 20 20 20 20 7c 7c 20 70 2d 3e 6e 3d 3d 73 || p->n==s
bc00: 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 qlite3_aggregate
bc10: 5f 63 6f 75 6e 74 28 63 6f 6e 74 65 78 74 29 20 _count(context)
bc20: 29 3b 0a 23 65 6e 64 69 66 0a 7d 20 20 20 0a 73 );.#endif.} .s
bc30: 74 61 74 69 63 20 76 6f 69 64 20 63 6f 75 6e 74 tatic void count
bc40: 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 Finalize(sqlite3
bc50: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
bc60: 74 29 7b 0a 20 20 43 6f 75 6e 74 43 74 78 20 2a t){. CountCtx *
bc70: 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 p;. p = sqlite3
bc80: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 _aggregate_conte
bc90: 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b 0a xt(context, 0);.
bca0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
bcb0: 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 _int64(context,
bcc0: 70 20 3f 20 70 2d 3e 6e 20 3a 20 30 29 3b 0a 7d p ? p->n : 0);.}
bcd0: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f .#ifndef SQLITE_
bce0: 4f 4d 49 54 5f 57 49 4e 44 4f 57 46 55 4e 43 0a OMIT_WINDOWFUNC.
bcf0: 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f 75 6e static void coun
bd00: 74 49 6e 76 65 72 73 65 28 73 71 6c 69 74 65 33 tInverse(sqlite3
bd10: 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c 20 69 _context *ctx, i
bd20: 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 nt argc, sqlite3
bd30: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a _value **argv){.
bd40: 20 20 43 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 CountCtx *p;.
bd50: 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 p = sqlite3_agg
bd60: 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 regate_context(c
bd70: 74 78 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b tx, sizeof(*p));
bd80: 0a 20 20 2f 2a 20 70 20 69 73 20 61 6c 77 61 79 . /* p is alway
bd90: 73 20 6e 6f 6e 2d 4e 55 4c 4c 20 73 69 6e 63 65 s non-NULL since
bda0: 20 63 6f 75 6e 74 53 74 65 70 28 29 20 77 69 6c countStep() wil
bdb0: 6c 20 68 61 76 65 20 62 65 65 6e 20 63 61 6c 6c l have been call
bdc0: 65 64 20 66 69 72 73 74 20 2a 2f 0a 20 20 69 66 ed first */. if
bdd0: 28 20 28 61 72 67 63 3d 3d 30 20 7c 7c 20 53 51 ( (argc==0 || SQ
bde0: 4c 49 54 45 5f 4e 55 4c 4c 21 3d 73 71 6c 69 74 LITE_NULL!=sqlit
bdf0: 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 e3_value_type(ar
be00: 67 76 5b 30 5d 29 29 20 26 26 20 41 4c 57 41 59 gv[0])) && ALWAY
be10: 53 28 70 29 20 29 7b 0a 20 20 20 20 70 2d 3e 6e S(p) ){. p->n
be20: 2d 2d 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 --;.#ifdef SQLIT
be30: 45 5f 44 45 42 55 47 0a 20 20 20 20 70 2d 3e 62 E_DEBUG. p->b
be40: 49 6e 76 65 72 73 65 20 3d 20 31 3b 0a 23 65 6e Inverse = 1;.#en
be50: 64 69 66 0a 20 20 7d 0a 7d 20 20 20 0a 23 65 6c dif. }.} .#el
be60: 73 65 0a 23 20 64 65 66 69 6e 65 20 63 6f 75 6e se.# define coun
be70: 74 49 6e 76 65 72 73 65 20 30 0a 23 65 6e 64 69 tInverse 0.#endi
be80: 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 f /* SQLITE_OMIT
be90: 5f 57 49 4e 44 4f 57 46 55 4e 43 20 2a 2f 0a 0a _WINDOWFUNC */..
bea0: 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 74 /*.** Routines t
beb0: 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 6d 69 6e 28 o implement min(
bec0: 29 20 61 6e 64 20 6d 61 78 28 29 20 61 67 67 72 ) and max() aggr
bed0: 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 73 2e egate functions.
bee0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
bef0: 6d 69 6e 6d 61 78 53 74 65 70 28 0a 20 20 73 71 minmaxStep(. sq
bf00: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
bf10: 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e 74 20 4e ontext, . int N
bf20: 6f 74 55 73 65 64 2c 20 0a 20 20 73 71 6c 69 74 otUsed, . sqlit
bf30: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a e3_value **argv.
bf40: 29 7b 0a 20 20 4d 65 6d 20 2a 70 41 72 67 20 20 ){. Mem *pArg
bf50: 3d 20 28 4d 65 6d 20 2a 29 61 72 67 76 5b 30 5d = (Mem *)argv[0]
bf60: 3b 0a 20 20 4d 65 6d 20 2a 70 42 65 73 74 3b 0a ;. Mem *pBest;.
bf70: 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 UNUSED_PARAMET
bf80: 45 52 28 4e 6f 74 55 73 65 64 29 3b 0a 0a 20 20 ER(NotUsed);..
bf90: 70 42 65 73 74 20 3d 20 28 4d 65 6d 20 2a 29 73 pBest = (Mem *)s
bfa0: 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 qlite3_aggregate
bfb0: 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 _context(context
bfc0: 2c 20 73 69 7a 65 6f 66 28 2a 70 42 65 73 74 29 , sizeof(*pBest)
bfd0: 29 3b 0a 20 20 69 66 28 20 21 70 42 65 73 74 20 );. if( !pBest
bfe0: 29 20 72 65 74 75 72 6e 3b 0a 0a 20 20 69 66 28 ) return;.. if(
bff0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
c000: 79 70 65 28 70 41 72 67 29 3d 3d 53 51 4c 49 54 ype(pArg)==SQLIT
c010: 45 5f 4e 55 4c 4c 20 29 7b 0a 20 20 20 20 69 66 E_NULL ){. if
c020: 28 20 70 42 65 73 74 2d 3e 66 6c 61 67 73 20 29 ( pBest->flags )
c030: 20 73 71 6c 69 74 65 33 53 6b 69 70 41 63 63 75 sqlite3SkipAccu
c040: 6d 75 6c 61 74 6f 72 4c 6f 61 64 28 63 6f 6e 74 mulatorLoad(cont
c050: 65 78 74 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 ext);. }else if
c060: 28 20 70 42 65 73 74 2d 3e 66 6c 61 67 73 20 29 ( pBest->flags )
c070: 7b 0a 20 20 20 20 69 6e 74 20 6d 61 78 3b 0a 20 {. int max;.
c080: 20 20 20 69 6e 74 20 63 6d 70 3b 0a 20 20 20 20 int cmp;.
c090: 43 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c 20 3d CollSeq *pColl =
c0a0: 20 73 71 6c 69 74 65 33 47 65 74 46 75 6e 63 43 sqlite3GetFuncC
c0b0: 6f 6c 6c 53 65 71 28 63 6f 6e 74 65 78 74 29 3b ollSeq(context);
c0c0: 0a 20 20 20 20 2f 2a 20 54 68 69 73 20 73 74 65 . /* This ste
c0d0: 70 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 p function is us
c0e0: 65 64 20 66 6f 72 20 62 6f 74 68 20 74 68 65 20 ed for both the
c0f0: 6d 69 6e 28 29 20 61 6e 64 20 6d 61 78 28 29 20 min() and max()
c100: 61 67 67 72 65 67 61 74 65 73 2c 0a 20 20 20 20 aggregates,.
c110: 2a 2a 20 74 68 65 20 6f 6e 6c 79 20 64 69 66 66 ** the only diff
c120: 65 72 65 6e 63 65 20 62 65 74 77 65 65 6e 20 74 erence between t
c130: 68 65 20 74 77 6f 20 62 65 69 6e 67 20 74 68 61 he two being tha
c140: 74 20 74 68 65 20 73 65 6e 73 65 20 6f 66 20 74 t the sense of t
c150: 68 65 0a 20 20 20 20 2a 2a 20 63 6f 6d 70 61 72 he. ** compar
c160: 69 73 6f 6e 20 69 73 20 69 6e 76 65 72 74 65 64 ison is inverted
c170: 2e 20 46 6f 72 20 74 68 65 20 6d 61 78 28 29 20 . For the max()
c180: 61 67 67 72 65 67 61 74 65 2c 20 74 68 65 0a 20 aggregate, the.
c190: 20 20 20 2a 2a 20 73 71 6c 69 74 65 33 5f 75 73 ** sqlite3_us
c1a0: 65 72 5f 64 61 74 61 28 29 20 66 75 6e 63 74 69 er_data() functi
c1b0: 6f 6e 20 72 65 74 75 72 6e 73 20 28 76 6f 69 64 on returns (void
c1c0: 20 2a 29 2d 31 2e 20 46 6f 72 20 6d 69 6e 28 29 *)-1. For min()
c1d0: 20 69 74 0a 20 20 20 20 2a 2a 20 72 65 74 75 72 it. ** retur
c1e0: 6e 73 20 28 76 6f 69 64 20 2a 29 64 62 2c 20 77 ns (void *)db, w
c1f0: 68 65 72 65 20 64 62 20 69 73 20 74 68 65 20 73 here db is the s
c200: 71 6c 69 74 65 33 2a 20 64 61 74 61 62 61 73 65 qlite3* database
c210: 20 70 6f 69 6e 74 65 72 2e 0a 20 20 20 20 2a 2a pointer.. **
c220: 20 54 68 65 72 65 66 6f 72 65 20 74 68 65 20 6e Therefore the n
c230: 65 78 74 20 73 74 61 74 65 6d 65 6e 74 20 73 65 ext statement se
c240: 74 73 20 76 61 72 69 61 62 6c 65 20 27 6d 61 78 ts variable 'max
c250: 27 20 74 6f 20 31 20 66 6f 72 20 74 68 65 20 6d ' to 1 for the m
c260: 61 78 28 29 0a 20 20 20 20 2a 2a 20 61 67 67 72 ax(). ** aggr
c270: 65 67 61 74 65 2c 20 6f 72 20 30 20 66 6f 72 20 egate, or 0 for
c280: 6d 69 6e 28 29 2e 0a 20 20 20 20 2a 2f 0a 20 20 min().. */.
c290: 20 20 6d 61 78 20 3d 20 73 71 6c 69 74 65 33 5f max = sqlite3_
c2a0: 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 user_data(contex
c2b0: 74 29 21 3d 30 3b 0a 20 20 20 20 63 6d 70 20 3d t)!=0;. cmp =
c2c0: 20 73 71 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 sqlite3MemCompa
c2d0: 72 65 28 70 42 65 73 74 2c 20 70 41 72 67 2c 20 re(pBest, pArg,
c2e0: 70 43 6f 6c 6c 29 3b 0a 20 20 20 20 69 66 28 20 pColl);. if(
c2f0: 28 6d 61 78 20 26 26 20 63 6d 70 3c 30 29 20 7c (max && cmp<0) |
c300: 7c 20 28 21 6d 61 78 20 26 26 20 63 6d 70 3e 30 | (!max && cmp>0
c310: 29 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 ) ){. sqlit
c320: 65 33 56 64 62 65 4d 65 6d 43 6f 70 79 28 70 42 e3VdbeMemCopy(pB
c330: 65 73 74 2c 20 70 41 72 67 29 3b 0a 20 20 20 20 est, pArg);.
c340: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 73 71 6c }else{. sql
c350: 69 74 65 33 53 6b 69 70 41 63 63 75 6d 75 6c 61 ite3SkipAccumula
c360: 74 6f 72 4c 6f 61 64 28 63 6f 6e 74 65 78 74 29 torLoad(context)
c370: 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b ;. }. }else{
c380: 0a 20 20 20 20 70 42 65 73 74 2d 3e 64 62 20 3d . pBest->db =
c390: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
c3a0: 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 _db_handle(conte
c3b0: 78 74 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 xt);. sqlite3
c3c0: 56 64 62 65 4d 65 6d 43 6f 70 79 28 70 42 65 73 VdbeMemCopy(pBes
c3d0: 74 2c 20 70 41 72 67 29 3b 0a 20 20 7d 0a 7d 0a t, pArg);. }.}.
c3e0: 73 74 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 4d static void minM
c3f0: 61 78 56 61 6c 75 65 46 69 6e 61 6c 69 7a 65 28 axValueFinalize(
c400: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
c410: 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 62 56 *context, int bV
c420: 61 6c 75 65 29 7b 0a 20 20 73 71 6c 69 74 65 33 alue){. sqlite3
c430: 5f 76 61 6c 75 65 20 2a 70 52 65 73 3b 0a 20 20 _value *pRes;.
c440: 70 52 65 73 20 3d 20 28 73 71 6c 69 74 65 33 5f pRes = (sqlite3_
c450: 76 61 6c 75 65 20 2a 29 73 71 6c 69 74 65 33 5f value *)sqlite3_
c460: 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 aggregate_contex
c470: 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 t(context, 0);.
c480: 20 69 66 28 20 70 52 65 73 20 29 7b 0a 20 20 20 if( pRes ){.
c490: 20 69 66 28 20 70 52 65 73 2d 3e 66 6c 61 67 73 if( pRes->flags
c4a0: 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 ){. sqlite
c4b0: 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 3_result_value(c
c4c0: 6f 6e 74 65 78 74 2c 20 70 52 65 73 29 3b 0a 20 ontext, pRes);.
c4d0: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 62 56 61 }. if( bVa
c4e0: 6c 75 65 3d 3d 30 20 29 20 73 71 6c 69 74 65 33 lue==0 ) sqlite3
c4f0: 56 64 62 65 4d 65 6d 52 65 6c 65 61 73 65 28 70 VdbeMemRelease(p
c500: 52 65 73 29 3b 0a 20 20 7d 0a 7d 0a 23 69 66 6e Res);. }.}.#ifn
c510: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
c520: 57 49 4e 44 4f 57 46 55 4e 43 0a 73 74 61 74 69 WINDOWFUNC.stati
c530: 63 20 76 6f 69 64 20 6d 69 6e 4d 61 78 56 61 6c c void minMaxVal
c540: 75 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 ue(sqlite3_conte
c550: 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 xt *context){.
c560: 6d 69 6e 4d 61 78 56 61 6c 75 65 46 69 6e 61 6c minMaxValueFinal
c570: 69 7a 65 28 63 6f 6e 74 65 78 74 2c 20 31 29 3b ize(context, 1);
c580: 0a 7d 0a 23 65 6c 73 65 0a 23 20 64 65 66 69 6e .}.#else.# defin
c590: 65 20 6d 69 6e 4d 61 78 56 61 6c 75 65 20 30 0a e minMaxValue 0.
c5a0: 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 #endif /* SQLITE
c5b0: 5f 4f 4d 49 54 5f 57 49 4e 44 4f 57 46 55 4e 43 _OMIT_WINDOWFUNC
c5c0: 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 */.static void
c5d0: 6d 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 28 73 minMaxFinalize(s
c5e0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
c5f0: 63 6f 6e 74 65 78 74 29 7b 0a 20 20 6d 69 6e 4d context){. minM
c600: 61 78 56 61 6c 75 65 46 69 6e 61 6c 69 7a 65 28 axValueFinalize(
c610: 63 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 7d 0a 0a context, 0);.}..
c620: 2f 2a 0a 2a 2a 20 67 72 6f 75 70 5f 63 6f 6e 63 /*.** group_conc
c630: 61 74 28 45 58 50 52 2c 20 3f 53 45 50 41 52 41 at(EXPR, ?SEPARA
c640: 54 4f 52 3f 29 0a 2a 2f 0a 73 74 61 74 69 63 20 TOR?).*/.static
c650: 76 6f 69 64 20 67 72 6f 75 70 43 6f 6e 63 61 74 void groupConcat
c660: 53 74 65 70 28 0a 20 20 73 71 6c 69 74 65 33 5f Step(. sqlite3_
c670: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
c680: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
c690: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
c6a0: 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 argv.){. const
c6b0: 63 68 61 72 20 2a 7a 56 61 6c 3b 0a 20 20 53 74 char *zVal;. St
c6c0: 72 41 63 63 75 6d 20 2a 70 41 63 63 75 6d 3b 0a rAccum *pAccum;.
c6d0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 const char *zS
c6e0: 65 70 3b 0a 20 20 69 6e 74 20 6e 56 61 6c 2c 20 ep;. int nVal,
c6f0: 6e 53 65 70 3b 0a 20 20 61 73 73 65 72 74 28 20 nSep;. assert(
c700: 61 72 67 63 3d 3d 31 20 7c 7c 20 61 72 67 63 3d argc==1 || argc=
c710: 3d 32 20 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 =2 );. if( sqli
c720: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
c730: 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f rgv[0])==SQLITE_
c740: 4e 55 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 NULL ) return;.
c750: 20 70 41 63 63 75 6d 20 3d 20 28 53 74 72 41 63 pAccum = (StrAc
c760: 63 75 6d 2a 29 73 71 6c 69 74 65 33 5f 61 67 67 cum*)sqlite3_agg
c770: 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 regate_context(c
c780: 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a ontext, sizeof(*
c790: 70 41 63 63 75 6d 29 29 3b 0a 0a 20 20 69 66 28 pAccum));.. if(
c7a0: 20 70 41 63 63 75 6d 20 29 7b 0a 20 20 20 20 73 pAccum ){. s
c7b0: 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71 6c qlite3 *db = sql
c7c0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f ite3_context_db_
c7d0: 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b handle(context);
c7e0: 0a 20 20 20 20 69 6e 74 20 66 69 72 73 74 54 65 . int firstTe
c7f0: 72 6d 20 3d 20 70 41 63 63 75 6d 2d 3e 6d 78 41 rm = pAccum->mxA
c800: 6c 6c 6f 63 3d 3d 30 3b 0a 20 20 20 20 70 41 63 lloc==0;. pAc
c810: 63 75 6d 2d 3e 6d 78 41 6c 6c 6f 63 20 3d 20 64 cum->mxAlloc = d
c820: 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 b->aLimit[SQLITE
c830: 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 3b 0a _LIMIT_LENGTH];.
c840: 20 20 20 20 69 66 28 20 21 66 69 72 73 74 54 65 if( !firstTe
c850: 72 6d 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 rm ){. if(
c860: 61 72 67 63 3d 3d 32 20 29 7b 0a 20 20 20 20 20 argc==2 ){.
c870: 20 20 20 7a 53 65 70 20 3d 20 28 63 68 61 72 2a zSep = (char*
c880: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 )sqlite3_value_t
c890: 65 78 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 ext(argv[1]);.
c8a0: 20 20 20 20 20 20 6e 53 65 70 20 3d 20 73 71 6c nSep = sql
c8b0: 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 ite3_value_bytes
c8c0: 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 20 (argv[1]);.
c8d0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 }else{.
c8e0: 7a 53 65 70 20 3d 20 22 2c 22 3b 0a 20 20 20 20 zSep = ",";.
c8f0: 20 20 20 20 6e 53 65 70 20 3d 20 31 3b 0a 20 20 nSep = 1;.
c900: 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 }. if(
c910: 7a 53 65 70 20 29 20 73 71 6c 69 74 65 33 5f 73 zSep ) sqlite3_s
c920: 74 72 5f 61 70 70 65 6e 64 28 70 41 63 63 75 6d tr_append(pAccum
c930: 2c 20 7a 53 65 70 2c 20 6e 53 65 70 29 3b 0a 20 , zSep, nSep);.
c940: 20 20 20 7d 0a 20 20 20 20 7a 56 61 6c 20 3d 20 }. zVal =
c950: 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 (char*)sqlite3_v
c960: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
c970: 5d 29 3b 0a 20 20 20 20 6e 56 61 6c 20 3d 20 73 ]);. nVal = s
c980: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 qlite3_value_byt
c990: 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 es(argv[0]);.
c9a0: 20 69 66 28 20 7a 56 61 6c 20 29 20 73 71 6c 69 if( zVal ) sqli
c9b0: 74 65 33 5f 73 74 72 5f 61 70 70 65 6e 64 28 70 te3_str_append(p
c9c0: 41 63 63 75 6d 2c 20 7a 56 61 6c 2c 20 6e 56 61 Accum, zVal, nVa
c9d0: 6c 29 3b 0a 20 20 7d 0a 7d 0a 23 69 66 6e 64 65 l);. }.}.#ifnde
c9e0: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 57 49 f SQLITE_OMIT_WI
c9f0: 4e 44 4f 57 46 55 4e 43 0a 73 74 61 74 69 63 20 NDOWFUNC.static
ca00: 76 6f 69 64 20 67 72 6f 75 70 43 6f 6e 63 61 74 void groupConcat
ca10: 49 6e 76 65 72 73 65 28 0a 20 20 73 71 6c 69 74 Inverse(. sqlit
ca20: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
ca30: 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c ext,. int argc,
ca40: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
ca50: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 **argv.){. int
ca60: 20 6e 3b 0a 20 20 53 74 72 41 63 63 75 6d 20 2a n;. StrAccum *
ca70: 70 41 63 63 75 6d 3b 0a 20 20 61 73 73 65 72 74 pAccum;. assert
ca80: 28 20 61 72 67 63 3d 3d 31 20 7c 7c 20 61 72 67 ( argc==1 || arg
ca90: 63 3d 3d 32 20 29 3b 0a 20 20 69 66 28 20 73 71 c==2 );. if( sq
caa0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 lite3_value_type
cab0: 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 (argv[0])==SQLIT
cac0: 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75 72 6e 3b E_NULL ) return;
cad0: 0a 20 20 70 41 63 63 75 6d 20 3d 20 28 53 74 72 . pAccum = (Str
cae0: 41 63 63 75 6d 2a 29 73 71 6c 69 74 65 33 5f 61 Accum*)sqlite3_a
caf0: 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 ggregate_context
cb00: 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 (context, sizeof
cb10: 28 2a 70 41 63 63 75 6d 29 29 3b 0a 20 20 2f 2a (*pAccum));. /*
cb20: 20 70 41 63 63 75 6d 20 69 73 20 61 6c 77 61 79 pAccum is alway
cb30: 73 20 6e 6f 6e 2d 4e 55 4c 4c 20 73 69 6e 63 65 s non-NULL since
cb40: 20 67 72 6f 75 70 43 6f 6e 63 61 74 53 74 65 70 groupConcatStep
cb50: 28 29 20 77 69 6c 6c 20 68 61 76 65 20 61 6c 77 () will have alw
cb60: 61 79 73 0a 20 20 2a 2a 20 72 75 6e 20 66 72 69 ays. ** run fri
cb70: 73 74 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 st to initialize
cb80: 20 69 74 20 2a 2f 0a 20 20 69 66 28 20 41 4c 57 it */. if( ALW
cb90: 41 59 53 28 70 41 63 63 75 6d 29 20 29 7b 0a 20 AYS(pAccum) ){.
cba0: 20 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 n = sqlite3_v
cbb0: 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b alue_bytes(argv[
cbc0: 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 61 72 67 0]);. if( arg
cbd0: 63 3d 3d 32 20 29 7b 0a 20 20 20 20 20 20 6e 20 c==2 ){. n
cbe0: 2b 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 += sqlite3_value
cbf0: 5f 62 79 74 65 73 28 61 72 67 76 5b 31 5d 29 3b _bytes(argv[1]);
cc00: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
cc10: 20 20 6e 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 20 n++;. }.
cc20: 20 69 66 28 20 6e 3e 3d 28 69 6e 74 29 70 41 63 if( n>=(int)pAc
cc30: 63 75 6d 2d 3e 6e 43 68 61 72 20 29 7b 0a 20 20 cum->nChar ){.
cc40: 20 20 20 20 70 41 63 63 75 6d 2d 3e 6e 43 68 61 pAccum->nCha
cc50: 72 20 3d 20 30 3b 0a 20 20 20 20 7d 65 6c 73 65 r = 0;. }else
cc60: 7b 0a 20 20 20 20 20 20 70 41 63 63 75 6d 2d 3e {. pAccum->
cc70: 6e 43 68 61 72 20 2d 3d 20 6e 3b 0a 20 20 20 20 nChar -= n;.
cc80: 20 20 6d 65 6d 6d 6f 76 65 28 70 41 63 63 75 6d memmove(pAccum
cc90: 2d 3e 7a 54 65 78 74 2c 20 26 70 41 63 63 75 6d ->zText, &pAccum
cca0: 2d 3e 7a 54 65 78 74 5b 6e 5d 2c 20 70 41 63 63 ->zText[n], pAcc
ccb0: 75 6d 2d 3e 6e 43 68 61 72 29 3b 0a 20 20 20 20 um->nChar);.
ccc0: 7d 0a 20 20 20 20 69 66 28 20 70 41 63 63 75 6d }. if( pAccum
ccd0: 2d 3e 6e 43 68 61 72 3d 3d 30 20 29 20 70 41 63 ->nChar==0 ) pAc
cce0: 63 75 6d 2d 3e 6d 78 41 6c 6c 6f 63 20 3d 20 30 cum->mxAlloc = 0
ccf0: 3b 0a 20 20 7d 0a 7d 0a 23 65 6c 73 65 0a 23 20 ;. }.}.#else.#
cd00: 64 65 66 69 6e 65 20 67 72 6f 75 70 43 6f 6e 63 define groupConc
cd10: 61 74 49 6e 76 65 72 73 65 20 30 0a 23 65 6e 64 atInverse 0.#end
cd20: 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 if /* SQLITE_OMI
cd30: 54 5f 57 49 4e 44 4f 57 46 55 4e 43 20 2a 2f 0a T_WINDOWFUNC */.
cd40: 73 74 61 74 69 63 20 76 6f 69 64 20 67 72 6f 75 static void grou
cd50: 70 43 6f 6e 63 61 74 46 69 6e 61 6c 69 7a 65 28 pConcatFinalize(
cd60: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
cd70: 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 53 74 72 *context){. Str
cd80: 41 63 63 75 6d 20 2a 70 41 63 63 75 6d 3b 0a 20 Accum *pAccum;.
cd90: 20 70 41 63 63 75 6d 20 3d 20 73 71 6c 69 74 65 pAccum = sqlite
cda0: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
cdb0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b ext(context, 0);
cdc0: 0a 20 20 69 66 28 20 70 41 63 63 75 6d 20 29 7b . if( pAccum ){
cdd0: 0a 20 20 20 20 69 66 28 20 70 41 63 63 75 6d 2d . if( pAccum-
cde0: 3e 61 63 63 45 72 72 6f 72 3d 3d 53 51 4c 49 54 >accError==SQLIT
cdf0: 45 5f 54 4f 4f 42 49 47 20 29 7b 0a 20 20 20 20 E_TOOBIG ){.
ce00: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
ce10: 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67 28 63 6f _error_toobig(co
ce20: 6e 74 65 78 74 29 3b 0a 20 20 20 20 7d 65 6c 73 ntext);. }els
ce30: 65 20 69 66 28 20 70 41 63 63 75 6d 2d 3e 61 63 e if( pAccum->ac
ce40: 63 45 72 72 6f 72 3d 3d 53 51 4c 49 54 45 5f 4e cError==SQLITE_N
ce50: 4f 4d 45 4d 20 29 7b 0a 20 20 20 20 20 20 73 71 OMEM ){. sq
ce60: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 lite3_result_err
ce70: 6f 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 74 or_nomem(context
ce80: 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 20 20 20 );. }else{
ce90: 20 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f . sqlite3_
cea0: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 result_text(cont
ceb0: 65 78 74 2c 20 73 71 6c 69 74 65 33 53 74 72 41 ext, sqlite3StrA
cec0: 63 63 75 6d 46 69 6e 69 73 68 28 70 41 63 63 75 ccumFinish(pAccu
ced0: 6d 29 2c 20 2d 31 2c 20 0a 20 20 20 20 20 20 20 m), -1, .
cee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
cef0: 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 sqlite3_free)
cf00: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 23 69 ;. }. }.}.#i
cf10: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
cf20: 54 5f 57 49 4e 44 4f 57 46 55 4e 43 0a 73 74 61 T_WINDOWFUNC.sta
cf30: 74 69 63 20 76 6f 69 64 20 67 72 6f 75 70 43 6f tic void groupCo
cf40: 6e 63 61 74 56 61 6c 75 65 28 73 71 6c 69 74 65 ncatValue(sqlite
cf50: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
cf60: 78 74 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 xt){. sqlite3_s
cf70: 74 72 20 2a 70 41 63 63 75 6d 3b 0a 20 20 70 41 tr *pAccum;. pA
cf80: 63 63 75 6d 20 3d 20 28 73 71 6c 69 74 65 33 5f ccum = (sqlite3_
cf90: 73 74 72 2a 29 73 71 6c 69 74 65 33 5f 61 67 67 str*)sqlite3_agg
cfa0: 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 regate_context(c
cfb0: 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 69 66 ontext, 0);. if
cfc0: 28 20 70 41 63 63 75 6d 20 29 7b 0a 20 20 20 20 ( pAccum ){.
cfd0: 69 66 28 20 70 41 63 63 75 6d 2d 3e 61 63 63 45 if( pAccum->accE
cfe0: 72 72 6f 72 3d 3d 53 51 4c 49 54 45 5f 54 4f 4f rror==SQLITE_TOO
cff0: 42 49 47 20 29 7b 0a 20 20 20 20 20 20 73 71 6c BIG ){. sql
d000: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
d010: 72 5f 74 6f 6f 62 69 67 28 63 6f 6e 74 65 78 74 r_toobig(context
d020: 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 );. }else if(
d030: 20 70 41 63 63 75 6d 2d 3e 61 63 63 45 72 72 6f pAccum->accErro
d040: 72 3d 3d 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 20 r==SQLITE_NOMEM
d050: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ){. sqlite3
d060: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f _result_error_no
d070: 6d 65 6d 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 mem(context);.
d080: 20 20 7d 65 6c 73 65 7b 20 20 20 20 0a 20 20 20 }else{ .
d090: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a const char *z
d0a0: 54 65 78 74 20 3d 20 73 71 6c 69 74 65 33 5f 73 Text = sqlite3_s
d0b0: 74 72 5f 76 61 6c 75 65 28 70 41 63 63 75 6d 29 tr_value(pAccum)
d0c0: 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f ;. sqlite3_
d0d0: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 result_text(cont
d0e0: 65 78 74 2c 20 7a 54 65 78 74 2c 20 2d 31 2c 20 ext, zText, -1,
d0f0: 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 SQLITE_TRANSIENT
d100: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 23 );. }. }.}.#
d110: 65 6c 73 65 0a 23 20 64 65 66 69 6e 65 20 67 72 else.# define gr
d120: 6f 75 70 43 6f 6e 63 61 74 56 61 6c 75 65 20 30 oupConcatValue 0
d130: 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 .#endif /* SQLIT
d140: 45 5f 4f 4d 49 54 5f 57 49 4e 44 4f 57 46 55 4e E_OMIT_WINDOWFUN
d150: 43 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 C */../*.** This
d160: 20 72 6f 75 74 69 6e 65 20 64 6f 65 73 20 70 65 routine does pe
d170: 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 75 6e r-connection fun
d180: 63 74 69 6f 6e 20 72 65 67 69 73 74 72 61 74 69 ction registrati
d190: 6f 6e 2e 20 20 4d 6f 73 74 0a 2a 2a 20 6f 66 20 on. Most.** of
d1a0: 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 66 75 6e the built-in fun
d1b0: 63 74 69 6f 6e 73 20 61 62 6f 76 65 20 61 72 65 ctions above are
d1c0: 20 70 61 72 74 20 6f 66 20 74 68 65 20 67 6c 6f part of the glo
d1d0: 62 61 6c 20 66 75 6e 63 74 69 6f 6e 20 73 65 74 bal function set
d1e0: 2e 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e ..** This routin
d1f0: 65 20 6f 6e 6c 79 20 64 65 61 6c 73 20 77 69 74 e only deals wit
d200: 68 20 74 68 6f 73 65 20 74 68 61 74 20 61 72 65 h those that are
d210: 20 6e 6f 74 20 67 6c 6f 62 61 6c 2e 0a 2a 2f 0a not global..*/.
d220: 76 6f 69 64 20 73 71 6c 69 74 65 33 52 65 67 69 void sqlite3Regi
d230: 73 74 65 72 50 65 72 43 6f 6e 6e 65 63 74 69 6f sterPerConnectio
d240: 6e 42 75 69 6c 74 69 6e 46 75 6e 63 74 69 6f 6e nBuiltinFunction
d250: 73 28 73 71 6c 69 74 65 33 20 2a 64 62 29 7b 0a s(sqlite3 *db){.
d260: 20 20 69 6e 74 20 72 63 20 3d 20 73 71 6c 69 74 int rc = sqlit
d270: 65 33 5f 6f 76 65 72 6c 6f 61 64 5f 66 75 6e 63 e3_overload_func
d280: 74 69 6f 6e 28 64 62 2c 20 22 4d 41 54 43 48 22 tion(db, "MATCH"
d290: 2c 20 32 29 3b 0a 20 20 61 73 73 65 72 74 28 20 , 2);. assert(
d2a0: 72 63 3d 3d 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d rc==SQLITE_NOMEM
d2b0: 20 7c 7c 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f || rc==SQLITE_O
d2c0: 4b 20 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 K );. if( rc==S
d2d0: 51 4c 49 54 45 5f 4e 4f 4d 45 4d 20 29 7b 0a 20 QLITE_NOMEM ){.
d2e0: 20 20 20 73 71 6c 69 74 65 33 4f 6f 6d 46 61 75 sqlite3OomFau
d2f0: 6c 74 28 64 62 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f lt(db);. }.}../
d300: 2a 0a 2a 2a 20 52 65 2d 72 65 67 69 73 74 65 72 *.** Re-register
d310: 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 4c 49 the built-in LI
d320: 4b 45 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 54 KE functions. T
d330: 68 65 20 63 61 73 65 53 65 6e 73 69 74 69 76 65 he caseSensitive
d340: 0a 2a 2a 20 70 61 72 61 6d 65 74 65 72 20 64 65 .** parameter de
d350: 74 65 72 6d 69 6e 65 73 20 77 68 65 74 68 65 72 termines whether
d360: 20 6f 72 20 6e 6f 74 20 74 68 65 20 4c 49 4b 45 or not the LIKE
d370: 20 6f 70 65 72 61 74 6f 72 20 69 73 20 63 61 73 operator is cas
d380: 65 0a 2a 2a 20 73 65 6e 73 69 74 69 76 65 2e 0a e.** sensitive..
d390: 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 52 */.void sqlite3R
d3a0: 65 67 69 73 74 65 72 4c 69 6b 65 46 75 6e 63 74 egisterLikeFunct
d3b0: 69 6f 6e 73 28 73 71 6c 69 74 65 33 20 2a 64 62 ions(sqlite3 *db
d3c0: 2c 20 69 6e 74 20 63 61 73 65 53 65 6e 73 69 74 , int caseSensit
d3d0: 69 76 65 29 7b 0a 20 20 73 74 72 75 63 74 20 63 ive){. struct c
d3e0: 6f 6d 70 61 72 65 49 6e 66 6f 20 2a 70 49 6e 66 ompareInfo *pInf
d3f0: 6f 3b 0a 20 20 69 6e 74 20 66 6c 61 67 73 3b 0a o;. int flags;.
d400: 20 20 69 66 28 20 63 61 73 65 53 65 6e 73 69 74 if( caseSensit
d410: 69 76 65 20 29 7b 0a 20 20 20 20 70 49 6e 66 6f ive ){. pInfo
d420: 20 3d 20 28 73 74 72 75 63 74 20 63 6f 6d 70 61 = (struct compa
d430: 72 65 49 6e 66 6f 2a 29 26 6c 69 6b 65 49 6e 66 reInfo*)&likeInf
d440: 6f 41 6c 74 3b 0a 20 20 20 20 66 6c 61 67 73 20 oAlt;. flags
d450: 3d 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c 49 = SQLITE_FUNC_LI
d460: 4b 45 20 7c 20 53 51 4c 49 54 45 5f 46 55 4e 43 KE | SQLITE_FUNC
d470: 5f 43 41 53 45 3b 0a 20 20 7d 65 6c 73 65 7b 0a _CASE;. }else{.
d480: 20 20 20 20 70 49 6e 66 6f 20 3d 20 28 73 74 72 pInfo = (str
d490: 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 2a uct compareInfo*
d4a0: 29 26 6c 69 6b 65 49 6e 66 6f 4e 6f 72 6d 3b 0a )&likeInfoNorm;.
d4b0: 20 20 20 20 66 6c 61 67 73 20 3d 20 53 51 4c 49 flags = SQLI
d4c0: 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 3b 0a 20 20 TE_FUNC_LIKE;.
d4d0: 7d 0a 20 20 73 71 6c 69 74 65 33 43 72 65 61 74 }. sqlite3Creat
d4e0: 65 46 75 6e 63 28 64 62 2c 20 22 6c 69 6b 65 22 eFunc(db, "like"
d4f0: 2c 20 32 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 2, SQLITE_UTF8
d500: 2c 20 70 49 6e 66 6f 2c 20 6c 69 6b 65 46 75 6e , pInfo, likeFun
d510: 63 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 c, 0, 0, 0, 0, 0
d520: 29 3b 0a 20 20 73 71 6c 69 74 65 33 43 72 65 61 );. sqlite3Crea
d530: 74 65 46 75 6e 63 28 64 62 2c 20 22 6c 69 6b 65 teFunc(db, "like
d540: 22 2c 20 33 2c 20 53 51 4c 49 54 45 5f 55 54 46 ", 3, SQLITE_UTF
d550: 38 2c 20 70 49 6e 66 6f 2c 20 6c 69 6b 65 46 75 8, pInfo, likeFu
d560: 6e 63 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 nc, 0, 0, 0, 0,
d570: 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 46 69 6e 0);. sqlite3Fin
d580: 64 46 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 6c dFunction(db, "l
d590: 69 6b 65 22 2c 20 32 2c 20 53 51 4c 49 54 45 5f ike", 2, SQLITE_
d5a0: 55 54 46 38 2c 20 30 29 2d 3e 66 75 6e 63 46 6c UTF8, 0)->funcFl
d5b0: 61 67 73 20 7c 3d 20 66 6c 61 67 73 3b 0a 20 20 ags |= flags;.
d5c0: 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e 63 74 sqlite3FindFunct
d5d0: 69 6f 6e 28 64 62 2c 20 22 6c 69 6b 65 22 2c 20 ion(db, "like",
d5e0: 33 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 3, SQLITE_UTF8,
d5f0: 30 29 2d 3e 66 75 6e 63 46 6c 61 67 73 20 7c 3d 0)->funcFlags |=
d600: 20 66 6c 61 67 73 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a flags;.}../*.**
d610: 20 70 45 78 70 72 20 70 6f 69 6e 74 73 20 74 6f pExpr points to
d620: 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 77 an expression w
d630: 68 69 63 68 20 69 6d 70 6c 65 6d 65 6e 74 73 20 hich implements
d640: 61 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 66 0a a function. If.
d650: 2a 2a 20 69 74 20 69 73 20 61 70 70 72 6f 70 72 ** it is appropr
d660: 69 61 74 65 20 74 6f 20 61 70 70 6c 79 20 74 68 iate to apply th
d670: 65 20 4c 49 4b 45 20 6f 70 74 69 6d 69 7a 61 74 e LIKE optimizat
d680: 69 6f 6e 20 74 6f 20 74 68 61 74 20 66 75 6e 63 ion to that func
d690: 74 69 6f 6e 0a 2a 2a 20 74 68 65 6e 20 73 65 74 tion.** then set
d6a0: 20 61 57 63 5b 30 5d 20 74 68 72 6f 75 67 68 20 aWc[0] through
d6b0: 61 57 63 5b 32 5d 20 74 6f 20 74 68 65 20 77 69 aWc[2] to the wi
d6c0: 6c 64 63 61 72 64 20 63 68 61 72 61 63 74 65 72 ldcard character
d6d0: 73 20 61 6e 64 20 74 68 65 0a 2a 2a 20 65 73 63 s and the.** esc
d6e0: 61 70 65 20 63 68 61 72 61 63 74 65 72 20 61 6e ape character an
d6f0: 64 20 74 68 65 6e 20 72 65 74 75 72 6e 20 54 52 d then return TR
d700: 55 45 2e 20 20 49 66 20 74 68 65 20 66 75 6e 63 UE. If the func
d710: 74 69 6f 6e 20 69 73 20 6e 6f 74 20 61 20 0a 2a tion is not a .*
d720: 2a 20 4c 49 4b 45 2d 73 74 79 6c 65 20 66 75 6e * LIKE-style fun
d730: 63 74 69 6f 6e 20 74 68 65 6e 20 72 65 74 75 72 ction then retur
d740: 6e 20 46 41 4c 53 45 2e 0a 2a 2a 0a 2a 2a 20 54 n FALSE..**.** T
d750: 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 22 61 he expression "a
d760: 20 4c 49 4b 45 20 62 20 45 53 43 41 50 45 20 63 LIKE b ESCAPE c
d770: 22 20 69 73 20 6f 6e 6c 79 20 63 6f 6e 73 69 64 " is only consid
d780: 65 72 65 64 20 61 20 76 61 6c 69 64 20 4c 49 4b ered a valid LIK
d790: 45 0a 2a 2a 20 6f 70 65 72 61 74 6f 72 20 69 66 E.** operator if
d7a0: 20 63 20 69 73 20 61 20 73 74 72 69 6e 67 20 6c c is a string l
d7b0: 69 74 65 72 61 6c 20 74 68 61 74 20 69 73 20 65 iteral that is e
d7c0: 78 61 63 74 6c 79 20 6f 6e 65 20 62 79 74 65 20 xactly one byte
d7d0: 69 6e 20 6c 65 6e 67 74 68 2e 0a 2a 2a 20 54 68 in length..** Th
d7e0: 61 74 20 6f 6e 65 20 62 79 74 65 20 69 73 20 73 at one byte is s
d7f0: 74 6f 72 65 64 20 69 6e 20 61 57 63 5b 33 5d 2e tored in aWc[3].
d800: 20 20 61 57 63 5b 33 5d 20 69 73 20 73 65 74 20 aWc[3] is set
d810: 74 6f 20 7a 65 72 6f 20 69 66 20 74 68 65 72 65 to zero if there
d820: 20 69 73 0a 2a 2a 20 6e 6f 20 45 53 43 41 50 45 is.** no ESCAPE
d830: 20 63 6c 61 75 73 65 2e 0a 2a 2a 0a 2a 2a 20 2a clause..**.** *
d840: 70 49 73 4e 6f 63 61 73 65 20 69 73 20 73 65 74 pIsNocase is set
d850: 20 74 6f 20 74 72 75 65 20 69 66 20 75 70 70 65 to true if uppe
d860: 72 63 61 73 65 20 61 6e 64 20 6c 6f 77 65 72 63 rcase and lowerc
d870: 61 73 65 20 61 72 65 20 65 71 75 69 76 61 6c 65 ase are equivale
d880: 6e 74 20 66 6f 72 0a 2a 2a 20 74 68 65 20 66 75 nt for.** the fu
d890: 6e 63 74 69 6f 6e 20 28 64 65 66 61 75 6c 74 20 nction (default
d8a0: 66 6f 72 20 4c 49 4b 45 29 2e 20 20 49 66 20 74 for LIKE). If t
d8b0: 68 65 20 66 75 6e 63 74 69 6f 6e 20 6d 61 6b 65 he function make
d8c0: 73 20 74 68 65 20 64 69 73 74 69 6e 63 74 69 6f s the distinctio
d8d0: 6e 0a 2a 2a 20 62 65 74 77 65 65 6e 20 75 70 70 n.** between upp
d8e0: 65 72 63 61 73 65 20 61 6e 64 20 6c 6f 77 65 72 ercase and lower
d8f0: 63 61 73 65 20 28 61 73 20 64 6f 65 73 20 47 4c case (as does GL
d900: 4f 42 29 20 74 68 65 6e 20 2a 70 49 73 4e 6f 63 OB) then *pIsNoc
d910: 61 73 65 20 69 73 20 73 65 74 20 74 6f 0a 2a 2a ase is set to.**
d920: 20 66 61 6c 73 65 2e 0a 2a 2f 0a 69 6e 74 20 73 false..*/.int s
d930: 71 6c 69 74 65 33 49 73 4c 69 6b 65 46 75 6e 63 qlite3IsLikeFunc
d940: 74 69 6f 6e 28 73 71 6c 69 74 65 33 20 2a 64 62 tion(sqlite3 *db
d950: 2c 20 45 78 70 72 20 2a 70 45 78 70 72 2c 20 69 , Expr *pExpr, i
d960: 6e 74 20 2a 70 49 73 4e 6f 63 61 73 65 2c 20 63 nt *pIsNocase, c
d970: 68 61 72 20 2a 61 57 63 29 7b 0a 20 20 46 75 6e har *aWc){. Fun
d980: 63 44 65 66 20 2a 70 44 65 66 3b 0a 20 20 69 6e cDef *pDef;. in
d990: 74 20 6e 45 78 70 72 3b 0a 20 20 69 66 28 20 70 t nExpr;. if( p
d9a0: 45 78 70 72 2d 3e 6f 70 21 3d 54 4b 5f 46 55 4e Expr->op!=TK_FUN
d9b0: 43 54 49 4f 4e 20 7c 7c 20 21 70 45 78 70 72 2d CTION || !pExpr-
d9c0: 3e 78 2e 70 4c 69 73 74 20 29 7b 0a 20 20 20 20 >x.pList ){.
d9d0: 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 return 0;. }.
d9e0: 61 73 73 65 72 74 28 20 21 45 78 70 72 48 61 73 assert( !ExprHas
d9f0: 50 72 6f 70 65 72 74 79 28 70 45 78 70 72 2c 20 Property(pExpr,
da00: 45 50 5f 78 49 73 53 65 6c 65 63 74 29 20 29 3b EP_xIsSelect) );
da10: 0a 20 20 6e 45 78 70 72 20 3d 20 70 45 78 70 72 . nExpr = pExpr
da20: 2d 3e 78 2e 70 4c 69 73 74 2d 3e 6e 45 78 70 72 ->x.pList->nExpr
da30: 3b 0a 20 20 70 44 65 66 20 3d 20 73 71 6c 69 74 ;. pDef = sqlit
da40: 65 33 46 69 6e 64 46 75 6e 63 74 69 6f 6e 28 64 e3FindFunction(d
da50: 62 2c 20 70 45 78 70 72 2d 3e 75 2e 7a 54 6f 6b b, pExpr->u.zTok
da60: 65 6e 2c 20 6e 45 78 70 72 2c 20 53 51 4c 49 54 en, nExpr, SQLIT
da70: 45 5f 55 54 46 38 2c 20 30 29 3b 0a 20 20 69 66 E_UTF8, 0);. if
da80: 28 20 4e 45 56 45 52 28 70 44 65 66 3d 3d 30 29 ( NEVER(pDef==0)
da90: 20 7c 7c 20 28 70 44 65 66 2d 3e 66 75 6e 63 46 || (pDef->funcF
daa0: 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f 46 55 lags & SQLITE_FU
dab0: 4e 43 5f 4c 49 4b 45 29 3d 3d 30 20 29 7b 0a 20 NC_LIKE)==0 ){.
dac0: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d return 0;. }
dad0: 0a 20 20 69 66 28 20 6e 45 78 70 72 3c 33 20 29 . if( nExpr<3 )
dae0: 7b 0a 20 20 20 20 61 57 63 5b 33 5d 20 3d 20 30 {. aWc[3] = 0
daf0: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 45 ;. }else{. E
db00: 78 70 72 20 2a 70 45 73 63 61 70 65 20 3d 20 70 xpr *pEscape = p
db10: 45 78 70 72 2d 3e 78 2e 70 4c 69 73 74 2d 3e 61 Expr->x.pList->a
db20: 5b 32 5d 2e 70 45 78 70 72 3b 0a 20 20 20 20 63 [2].pExpr;. c
db30: 68 61 72 20 2a 7a 45 73 63 61 70 65 3b 0a 20 20 har *zEscape;.
db40: 20 20 69 66 28 20 70 45 73 63 61 70 65 2d 3e 6f if( pEscape->o
db50: 70 21 3d 54 4b 5f 53 54 52 49 4e 47 20 29 20 72 p!=TK_STRING ) r
db60: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7a 45 73 eturn 0;. zEs
db70: 63 61 70 65 20 3d 20 70 45 73 63 61 70 65 2d 3e cape = pEscape->
db80: 75 2e 7a 54 6f 6b 65 6e 3b 0a 20 20 20 20 69 66 u.zToken;. if
db90: 28 20 7a 45 73 63 61 70 65 5b 30 5d 3d 3d 30 20 ( zEscape[0]==0
dba0: 7c 7c 20 7a 45 73 63 61 70 65 5b 31 5d 21 3d 30 || zEscape[1]!=0
dbb0: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 ) return 0;.
dbc0: 20 61 57 63 5b 33 5d 20 3d 20 7a 45 73 63 61 70 aWc[3] = zEscap
dbd0: 65 5b 30 5d 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 e[0];. }.. /*
dbe0: 54 68 65 20 6d 65 6d 63 70 79 28 29 20 73 74 61 The memcpy() sta
dbf0: 74 65 6d 65 6e 74 20 61 73 73 75 6d 65 73 20 74 tement assumes t
dc00: 68 61 74 20 74 68 65 20 77 69 6c 64 63 61 72 64 hat the wildcard
dc10: 20 63 68 61 72 61 63 74 65 72 73 20 61 72 65 0a characters are.
dc20: 20 20 2a 2a 20 74 68 65 20 66 69 72 73 74 20 74 ** the first t
dc30: 68 72 65 65 20 73 74 61 74 65 6d 65 6e 74 73 20 hree statements
dc40: 69 6e 20 74 68 65 20 63 6f 6d 70 61 72 65 49 6e in the compareIn
dc50: 66 6f 20 73 74 72 75 63 74 75 72 65 2e 20 20 54 fo structure. T
dc60: 68 65 0a 20 20 2a 2a 20 61 73 73 65 72 74 73 28 he. ** asserts(
dc70: 29 20 74 68 61 74 20 66 6f 6c 6c 6f 77 20 76 65 ) that follow ve
dc80: 72 69 66 79 20 74 68 61 74 20 61 73 73 75 6d 70 rify that assump
dc90: 74 69 6f 6e 0a 20 20 2a 2f 0a 20 20 6d 65 6d 63 tion. */. memc
dca0: 70 79 28 61 57 63 2c 20 70 44 65 66 2d 3e 70 55 py(aWc, pDef->pU
dcb0: 73 65 72 44 61 74 61 2c 20 33 29 3b 0a 20 20 61 serData, 3);. a
dcc0: 73 73 65 72 74 28 20 28 63 68 61 72 2a 29 26 6c ssert( (char*)&l
dcd0: 69 6b 65 49 6e 66 6f 41 6c 74 20 3d 3d 20 28 63 ikeInfoAlt == (c
dce0: 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c har*)&likeInfoAl
dcf0: 74 2e 6d 61 74 63 68 41 6c 6c 20 29 3b 0a 20 20 t.matchAll );.
dd00: 61 73 73 65 72 74 28 20 26 28 28 63 68 61 72 2a assert( &((char*
dd10: 29 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 29 5b 31 )&likeInfoAlt)[1
dd20: 5d 20 3d 3d 20 28 63 68 61 72 2a 29 26 6c 69 6b ] == (char*)&lik
dd30: 65 49 6e 66 6f 41 6c 74 2e 6d 61 74 63 68 4f 6e eInfoAlt.matchOn
dd40: 65 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 26 e );. assert( &
dd50: 28 28 63 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 ((char*)&likeInf
dd60: 6f 41 6c 74 29 5b 32 5d 20 3d 3d 20 28 63 68 61 oAlt)[2] == (cha
dd70: 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 2e r*)&likeInfoAlt.
dd80: 6d 61 74 63 68 53 65 74 20 29 3b 0a 20 20 2a 70 matchSet );. *p
dd90: 49 73 4e 6f 63 61 73 65 20 3d 20 28 70 44 65 66 IsNocase = (pDef
dda0: 2d 3e 66 75 6e 63 46 6c 61 67 73 20 26 20 53 51 ->funcFlags & SQ
ddb0: 4c 49 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 3d LITE_FUNC_CASE)=
ddc0: 3d 30 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a =0;. return 1;.
ddd0: 7d 0a 0a 2f 2a 0a 2a 2a 20 41 6c 6c 20 6f 66 20 }../*.** All of
dde0: 74 68 65 20 46 75 6e 63 44 65 66 20 73 74 72 75 the FuncDef stru
ddf0: 63 74 75 72 65 73 20 69 6e 20 74 68 65 20 61 42 ctures in the aB
de00: 75 69 6c 74 69 6e 46 75 6e 63 5b 5d 20 61 72 72 uiltinFunc[] arr
de10: 61 79 20 61 62 6f 76 65 0a 2a 2a 20 74 6f 20 74 ay above.** to t
de20: 68 65 20 67 6c 6f 62 61 6c 20 66 75 6e 63 74 69 he global functi
de30: 6f 6e 20 68 61 73 68 20 74 61 62 6c 65 2e 20 20 on hash table.
de40: 54 68 69 73 20 6f 63 63 75 72 73 20 61 74 20 73 This occurs at s
de50: 74 61 72 74 2d 74 69 6d 65 20 28 61 73 0a 2a 2a tart-time (as.**
de60: 20 61 20 63 6f 6e 73 65 71 75 65 6e 63 65 20 6f a consequence o
de70: 66 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 f calling sqlite
de80: 33 5f 69 6e 69 74 69 61 6c 69 7a 65 28 29 29 2e 3_initialize()).
de90: 0a 2a 2a 0a 2a 2a 20 41 66 74 65 72 20 74 68 69 .**.** After thi
dea0: 73 20 72 6f 75 74 69 6e 65 20 72 75 6e 73 0a 2a s routine runs.*
deb0: 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 52 65 /.void sqlite3Re
dec0: 67 69 73 74 65 72 42 75 69 6c 74 69 6e 46 75 6e gisterBuiltinFun
ded0: 63 74 69 6f 6e 73 28 76 6f 69 64 29 7b 0a 20 20 ctions(void){.
dee0: 2f 2a 0a 20 20 2a 2a 20 54 68 65 20 66 6f 6c 6c /*. ** The foll
def0: 6f 77 69 6e 67 20 61 72 72 61 79 20 68 6f 6c 64 owing array hold
df00: 73 20 46 75 6e 63 44 65 66 20 73 74 72 75 63 74 s FuncDef struct
df10: 75 72 65 73 20 66 6f 72 20 61 6c 6c 20 6f 66 20 ures for all of
df20: 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 0a 20 20 the functions.
df30: 2a 2a 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 ** defined in th
df40: 69 73 20 66 69 6c 65 2e 0a 20 20 2a 2a 0a 20 20 is file.. **.
df50: 2a 2a 20 54 68 65 20 61 72 72 61 79 20 63 61 6e ** The array can
df60: 6e 6f 74 20 62 65 20 63 6f 6e 73 74 61 6e 74 20 not be constant
df70: 73 69 6e 63 65 20 63 68 61 6e 67 65 73 20 61 72 since changes ar
df80: 65 20 6d 61 64 65 20 74 6f 20 74 68 65 0a 20 20 e made to the.
df90: 2a 2a 20 46 75 6e 63 44 65 66 2e 70 48 61 73 68 ** FuncDef.pHash
dfa0: 20 65 6c 65 6d 65 6e 74 73 20 61 74 20 73 74 61 elements at sta
dfb0: 72 74 2d 74 69 6d 65 2e 20 20 54 68 65 20 65 6c rt-time. The el
dfc0: 65 6d 65 6e 74 73 20 6f 66 20 74 68 69 73 20 61 ements of this a
dfd0: 72 72 61 79 0a 20 20 2a 2a 20 61 72 65 20 72 65 rray. ** are re
dfe0: 61 64 2d 6f 6e 6c 79 20 61 66 74 65 72 20 69 6e ad-only after in
dff0: 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 69 73 20 itialization is
e000: 63 6f 6d 70 6c 65 74 65 2e 0a 20 20 2a 2a 0a 20 complete.. **.
e010: 20 2a 2a 20 46 6f 72 20 70 65 61 6b 20 65 66 66 ** For peak eff
e020: 69 63 69 65 6e 63 79 2c 20 70 75 74 20 74 68 65 iciency, put the
e030: 20 6d 6f 73 74 20 66 72 65 71 75 65 6e 74 6c 79 most frequently
e040: 20 75 73 65 64 20 66 75 6e 63 74 69 6f 6e 20 6c used function l
e050: 61 73 74 2e 0a 20 20 2a 2f 0a 20 20 73 74 61 74 ast.. */. stat
e060: 69 63 20 46 75 6e 63 44 65 66 20 61 42 75 69 6c ic FuncDef aBuil
e070: 74 69 6e 46 75 6e 63 5b 5d 20 3d 20 7b 0a 23 69 tinFunc[] = {.#i
e080: 66 64 65 66 20 53 51 4c 49 54 45 5f 53 4f 55 4e fdef SQLITE_SOUN
e090: 44 45 58 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e DEX. FUNCTION
e0a0: 28 73 6f 75 6e 64 65 78 2c 20 20 20 20 20 20 20 (soundex,
e0b0: 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 73 6f 1, 0, 0, so
e0c0: 75 6e 64 65 78 46 75 6e 63 20 20 20 20 20 20 29 undexFunc )
e0d0: 2c 0a 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 ,.#endif.#ifndef
e0e0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 SQLITE_OMIT_LOA
e0f0: 44 5f 45 58 54 45 4e 53 49 4f 4e 0a 20 20 20 20 D_EXTENSION.
e100: 56 46 55 4e 43 54 49 4f 4e 28 6c 6f 61 64 5f 65 VFUNCTION(load_e
e110: 78 74 65 6e 73 69 6f 6e 2c 20 20 20 20 31 2c 20 xtension, 1,
e120: 30 2c 20 30 2c 20 6c 6f 61 64 45 78 74 20 20 20 0, 0, loadExt
e130: 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 56 46 ),. VF
e140: 55 4e 43 54 49 4f 4e 28 6c 6f 61 64 5f 65 78 74 UNCTION(load_ext
e150: 65 6e 73 69 6f 6e 2c 20 20 20 20 32 2c 20 30 2c ension, 2, 0,
e160: 20 30 2c 20 6c 6f 61 64 45 78 74 20 20 20 20 20 0, loadExt
e170: 20 20 20 20 20 29 2c 0a 23 65 6e 64 69 66 0a 23 ),.#endif.#
e180: 69 66 20 53 51 4c 49 54 45 5f 55 53 45 52 5f 41 if SQLITE_USER_A
e190: 55 54 48 45 4e 54 49 43 41 54 49 4f 4e 0a 20 20 UTHENTICATION.
e1a0: 20 20 46 55 4e 43 54 49 4f 4e 28 73 71 6c 69 74 FUNCTION(sqlit
e1b0: 65 5f 63 72 79 70 74 2c 20 20 20 20 20 20 20 32 e_crypt, 2
e1c0: 2c 20 30 2c 20 30 2c 20 73 71 6c 69 74 65 33 43 , 0, 0, sqlite3C
e1d0: 72 79 70 74 46 75 6e 63 20 29 2c 0a 23 65 6e 64 ryptFunc ),.#end
e1e0: 69 66 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 if.#ifndef SQLIT
e1f0: 45 5f 4f 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 E_OMIT_COMPILEOP
e200: 54 49 4f 4e 5f 44 49 41 47 53 0a 20 20 20 20 44 TION_DIAGS. D
e210: 46 55 4e 43 54 49 4f 4e 28 73 71 6c 69 74 65 5f FUNCTION(sqlite_
e220: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 compileoption_us
e230: 65 64 2c 31 2c 20 30 2c 20 30 2c 20 63 6f 6d 70 ed,1, 0, 0, comp
e240: 69 6c 65 6f 70 74 69 6f 6e 75 73 65 64 46 75 6e ileoptionusedFun
e250: 63 20 20 29 2c 0a 20 20 20 20 44 46 55 4e 43 54 c ),. DFUNCT
e260: 49 4f 4e 28 73 71 6c 69 74 65 5f 63 6f 6d 70 69 ION(sqlite_compi
e270: 6c 65 6f 70 74 69 6f 6e 5f 67 65 74 2c 20 31 2c leoption_get, 1,
e280: 20 30 2c 20 30 2c 20 63 6f 6d 70 69 6c 65 6f 70 0, 0, compileop
e290: 74 69 6f 6e 67 65 74 46 75 6e 63 20 20 29 2c 0a tiongetFunc ),.
e2a0: 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 #endif /* SQLITE
e2b0: 5f 4f 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54 _OMIT_COMPILEOPT
e2c0: 49 4f 4e 5f 44 49 41 47 53 20 2a 2f 0a 20 20 20 ION_DIAGS */.
e2d0: 20 46 55 4e 43 54 49 4f 4e 32 28 75 6e 6c 69 6b FUNCTION2(unlik
e2e0: 65 6c 79 2c 20 20 20 20 20 20 20 20 20 20 31 2c ely, 1,
e2f0: 20 30 2c 20 30 2c 20 6e 6f 6f 70 46 75 6e 63 2c 0, 0, noopFunc,
e300: 20 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 55 4e SQLITE_FUNC_UN
e310: 4c 49 4b 45 4c 59 29 2c 0a 20 20 20 20 46 55 4e LIKELY),. FUN
e320: 43 54 49 4f 4e 32 28 6c 69 6b 65 6c 69 68 6f 6f CTION2(likelihoo
e330: 64 2c 20 20 20 20 20 20 20 20 32 2c 20 30 2c 20 d, 2, 0,
e340: 30 2c 20 6e 6f 6f 70 46 75 6e 63 2c 20 20 53 51 0, noopFunc, SQ
e350: 4c 49 54 45 5f 46 55 4e 43 5f 55 4e 4c 49 4b 45 LITE_FUNC_UNLIKE
e360: 4c 59 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f LY),. FUNCTIO
e370: 4e 32 28 6c 69 6b 65 6c 79 2c 20 20 20 20 20 20 N2(likely,
e380: 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 6e 1, 0, 0, n
e390: 6f 6f 70 46 75 6e 63 2c 20 20 53 51 4c 49 54 45 oopFunc, SQLITE
e3a0: 5f 46 55 4e 43 5f 55 4e 4c 49 4b 45 4c 59 29 2c _FUNC_UNLIKELY),
e3b0: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 44 .#ifdef SQLITE_D
e3c0: 45 42 55 47 0a 20 20 20 20 46 55 4e 43 54 49 4f EBUG. FUNCTIO
e3d0: 4e 32 28 61 66 66 69 6e 69 74 79 2c 20 20 20 20 N2(affinity,
e3e0: 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 6e 1, 0, 0, n
e3f0: 6f 6f 70 46 75 6e 63 2c 20 20 53 51 4c 49 54 45 oopFunc, SQLITE
e400: 5f 46 55 4e 43 5f 41 46 46 49 4e 49 54 59 29 2c _FUNC_AFFINITY),
e410: 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 53 .#endif.#ifdef S
e420: 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 4f 46 46 QLITE_ENABLE_OFF
e430: 53 45 54 5f 53 51 4c 5f 46 55 4e 43 0a 20 20 20 SET_SQL_FUNC.
e440: 20 46 55 4e 43 54 49 4f 4e 32 28 73 71 6c 69 74 FUNCTION2(sqlit
e450: 65 5f 6f 66 66 73 65 74 2c 20 20 20 20 20 31 2c e_offset, 1,
e460: 20 30 2c 20 30 2c 20 6e 6f 6f 70 46 75 6e 63 2c 0, 0, noopFunc,
e470: 20 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4f 46 SQLITE_FUNC_OF
e480: 46 53 45 54 7c 0a 20 20 20 20 20 20 20 20 20 20 FSET|.
e490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e4a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e4b0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 SQLIT
e4c0: 45 5f 46 55 4e 43 5f 54 59 50 45 4f 46 29 2c 0a E_FUNC_TYPEOF),.
e4d0: 23 65 6e 64 69 66 0a 20 20 20 20 46 55 4e 43 54 #endif. FUNCT
e4e0: 49 4f 4e 28 6c 74 72 69 6d 2c 20 20 20 20 20 20 ION(ltrim,
e4f0: 20 20 20 20 20 20 20 20 31 2c 20 31 2c 20 30 2c 1, 1, 0,
e500: 20 74 72 69 6d 46 75 6e 63 20 20 20 20 20 20 20 trimFunc
e510: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f ),. FUNCTIO
e520: 4e 28 6c 74 72 69 6d 2c 20 20 20 20 20 20 20 20 N(ltrim,
e530: 20 20 20 20 20 20 32 2c 20 31 2c 20 30 2c 20 74 2, 1, 0, t
e540: 72 69 6d 46 75 6e 63 20 20 20 20 20 20 20 20 20 rimFunc
e550: 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 ),. FUNCTION(
e560: 72 74 72 69 6d 2c 20 20 20 20 20 20 20 20 20 20 rtrim,
e570: 20 20 20 20 31 2c 20 32 2c 20 30 2c 20 74 72 69 1, 2, 0, tri
e580: 6d 46 75 6e 63 20 20 20 20 20 20 20 20 20 29 2c mFunc ),
e590: 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 72 74 . FUNCTION(rt
e5a0: 72 69 6d 2c 20 20 20 20 20 20 20 20 20 20 20 20 rim,
e5b0: 20 20 32 2c 20 32 2c 20 30 2c 20 74 72 69 6d 46 2, 2, 0, trimF
e5c0: 75 6e 63 20 20 20 20 20 20 20 20 20 29 2c 0a 20 unc ),.
e5d0: 20 20 20 46 55 4e 43 54 49 4f 4e 28 74 72 69 6d FUNCTION(trim
e5e0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
e5f0: 31 2c 20 33 2c 20 30 2c 20 74 72 69 6d 46 75 6e 1, 3, 0, trimFun
e600: 63 20 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 c ),.
e610: 20 46 55 4e 43 54 49 4f 4e 28 74 72 69 6d 2c 20 FUNCTION(trim,
e620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 2,
e630: 20 33 2c 20 30 2c 20 74 72 69 6d 46 75 6e 63 20 3, 0, trimFunc
e640: 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 ),. F
e650: 55 4e 43 54 49 4f 4e 28 6d 69 6e 2c 20 20 20 20 UNCTION(min,
e660: 20 20 20 20 20 20 20 20 20 20 20 2d 31 2c 20 30 -1, 0
e670: 2c 20 31 2c 20 6d 69 6e 6d 61 78 46 75 6e 63 20 , 1, minmaxFunc
e680: 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e ),. FUN
e690: 43 54 49 4f 4e 28 6d 69 6e 2c 20 20 20 20 20 20 CTION(min,
e6a0: 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 0, 0,
e6b0: 31 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 20 1, 0
e6c0: 20 20 20 20 29 2c 0a 20 20 20 20 57 41 47 47 52 ),. WAGGR
e6d0: 45 47 41 54 45 28 6d 69 6e 2c 20 31 2c 20 30 2c EGATE(min, 1, 0,
e6e0: 20 31 2c 20 6d 69 6e 6d 61 78 53 74 65 70 2c 20 1, minmaxStep,
e6f0: 6d 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 2c 20 minMaxFinalize,
e700: 6d 69 6e 4d 61 78 56 61 6c 75 65 2c 20 30 2c 0a minMaxValue, 0,.
e710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e730: 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 SQLITE
e740: 5f 46 55 4e 43 5f 4d 49 4e 4d 41 58 20 29 2c 0a _FUNC_MINMAX ),.
e750: 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 6d 61 78 FUNCTION(max
e760: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
e770: 2d 31 2c 20 31 2c 20 31 2c 20 6d 69 6e 6d 61 78 -1, 1, 1, minmax
e780: 46 75 6e 63 20 20 20 20 20 20 20 29 2c 0a 20 20 Func ),.
e790: 20 20 46 55 4e 43 54 49 4f 4e 28 6d 61 78 2c 20 FUNCTION(max,
e7a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0
e7b0: 2c 20 31 2c 20 31 2c 20 30 20 20 20 20 20 20 20 , 1, 1, 0
e7c0: 20 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 ),.
e7d0: 57 41 47 47 52 45 47 41 54 45 28 6d 61 78 2c 20 WAGGREGATE(max,
e7e0: 31 2c 20 31 2c 20 31 2c 20 6d 69 6e 6d 61 78 53 1, 1, 1, minmaxS
e7f0: 74 65 70 2c 20 6d 69 6e 4d 61 78 46 69 6e 61 6c tep, minMaxFinal
e800: 69 7a 65 2c 20 6d 69 6e 4d 61 78 56 61 6c 75 65 ize, minMaxValue
e810: 2c 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 , 0,.
e820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
e840: 51 4c 49 54 45 5f 46 55 4e 43 5f 4d 49 4e 4d 41 QLITE_FUNC_MINMA
e850: 58 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f X ),. FUNCTIO
e860: 4e 32 28 74 79 70 65 6f 66 2c 20 20 20 20 20 20 N2(typeof,
e870: 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 74 1, 0, 0, t
e880: 79 70 65 6f 66 46 75 6e 63 2c 20 20 53 51 4c 49 ypeofFunc, SQLI
e890: 54 45 5f 46 55 4e 43 5f 54 59 50 45 4f 46 29 2c TE_FUNC_TYPEOF),
e8a0: 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 32 28 6c . FUNCTION2(l
e8b0: 65 6e 67 74 68 2c 20 20 20 20 20 20 20 20 20 20 ength,
e8c0: 20 20 31 2c 20 30 2c 20 30 2c 20 6c 65 6e 67 74 1, 0, 0, lengt
e8d0: 68 46 75 6e 63 2c 20 20 53 51 4c 49 54 45 5f 46 hFunc, SQLITE_F
e8e0: 55 4e 43 5f 4c 45 4e 47 54 48 29 2c 0a 20 20 20 UNC_LENGTH),.
e8f0: 20 46 55 4e 43 54 49 4f 4e 28 69 6e 73 74 72 2c FUNCTION(instr,
e900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 2,
e910: 20 30 2c 20 30 2c 20 69 6e 73 74 72 46 75 6e 63 0, 0, instrFunc
e920: 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 ),. F
e930: 55 4e 43 54 49 4f 4e 28 70 72 69 6e 74 66 2c 20 UNCTION(printf,
e940: 20 20 20 20 20 20 20 20 20 20 20 2d 31 2c 20 30 -1, 0
e950: 2c 20 30 2c 20 70 72 69 6e 74 66 46 75 6e 63 20 , 0, printfFunc
e960: 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e ),. FUN
e970: 43 54 49 4f 4e 28 75 6e 69 63 6f 64 65 2c 20 20 CTION(unicode,
e980: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
e990: 30 2c 20 75 6e 69 63 6f 64 65 46 75 6e 63 20 20 0, unicodeFunc
e9a0: 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 ),. FUNCT
e9b0: 49 4f 4e 28 63 68 61 72 2c 20 20 20 20 20 20 20 ION(char,
e9c0: 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 30 2c -1, 0, 0,
e9d0: 20 63 68 61 72 46 75 6e 63 20 20 20 20 20 20 20 charFunc
e9e0: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f ),. FUNCTIO
e9f0: 4e 28 61 62 73 2c 20 20 20 20 20 20 20 20 20 20 N(abs,
ea00: 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 61 1, 0, 0, a
ea10: 62 73 46 75 6e 63 20 20 20 20 20 20 20 20 20 20 bsFunc
ea20: 29 2c 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 ),.#ifndef SQLIT
ea30: 45 5f 4f 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f E_OMIT_FLOATING_
ea40: 50 4f 49 4e 54 0a 20 20 20 20 46 55 4e 43 54 49 POINT. FUNCTI
ea50: 4f 4e 28 72 6f 75 6e 64 2c 20 20 20 20 20 20 20 ON(round,
ea60: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 1, 0, 0,
ea70: 72 6f 75 6e 64 46 75 6e 63 20 20 20 20 20 20 20 roundFunc
ea80: 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e ),. FUNCTION
ea90: 28 72 6f 75 6e 64 2c 20 20 20 20 20 20 20 20 20 (round,
eaa0: 20 20 20 20 20 32 2c 20 30 2c 20 30 2c 20 72 6f 2, 0, 0, ro
eab0: 75 6e 64 46 75 6e 63 20 20 20 20 20 20 20 20 29 undFunc )
eac0: 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20 46 55 4e ,.#endif. FUN
ead0: 43 54 49 4f 4e 28 75 70 70 65 72 2c 20 20 20 20 CTION(upper,
eae0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
eaf0: 30 2c 20 75 70 70 65 72 46 75 6e 63 20 20 20 20 0, upperFunc
eb00: 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 ),. FUNCT
eb10: 49 4f 4e 28 6c 6f 77 65 72 2c 20 20 20 20 20 20 ION(lower,
eb20: 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 1, 0, 0,
eb30: 20 6c 6f 77 65 72 46 75 6e 63 20 20 20 20 20 20 lowerFunc
eb40: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f ),. FUNCTIO
eb50: 4e 28 68 65 78 2c 20 20 20 20 20 20 20 20 20 20 N(hex,
eb60: 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 68 1, 0, 0, h
eb70: 65 78 46 75 6e 63 20 20 20 20 20 20 20 20 20 20 exFunc
eb80: 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 32 ),. FUNCTION2
eb90: 28 69 66 6e 75 6c 6c 2c 20 20 20 20 20 20 20 20 (ifnull,
eba0: 20 20 20 20 32 2c 20 30 2c 20 30 2c 20 6e 6f 6f 2, 0, 0, noo
ebb0: 70 46 75 6e 63 2c 20 20 53 51 4c 49 54 45 5f 46 pFunc, SQLITE_F
ebc0: 55 4e 43 5f 43 4f 41 4c 45 53 43 45 29 2c 0a 20 UNC_COALESCE),.
ebd0: 20 20 20 56 46 55 4e 43 54 49 4f 4e 28 72 61 6e VFUNCTION(ran
ebe0: 64 6f 6d 2c 20 20 20 20 20 20 20 20 20 20 20 20 dom,
ebf0: 30 2c 20 30 2c 20 30 2c 20 72 61 6e 64 6f 6d 46 0, 0, 0, randomF
ec00: 75 6e 63 20 20 20 20 20 20 20 29 2c 0a 20 20 20 unc ),.
ec10: 20 56 46 55 4e 43 54 49 4f 4e 28 72 61 6e 64 6f VFUNCTION(rando
ec20: 6d 62 6c 6f 62 2c 20 20 20 20 20 20 20 20 31 2c mblob, 1,
ec30: 20 30 2c 20 30 2c 20 72 61 6e 64 6f 6d 42 6c 6f 0, 0, randomBlo
ec40: 62 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 b ),. F
ec50: 55 4e 43 54 49 4f 4e 28 6e 75 6c 6c 69 66 2c 20 UNCTION(nullif,
ec60: 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 30 2, 0
ec70: 2c 20 31 2c 20 6e 75 6c 6c 69 66 46 75 6e 63 20 , 1, nullifFunc
ec80: 20 20 20 20 20 20 29 2c 0a 20 20 20 20 44 46 55 ),. DFU
ec90: 4e 43 54 49 4f 4e 28 73 71 6c 69 74 65 5f 76 65 NCTION(sqlite_ve
eca0: 72 73 69 6f 6e 2c 20 20 20 20 30 2c 20 30 2c 20 rsion, 0, 0,
ecb0: 30 2c 20 76 65 72 73 69 6f 6e 46 75 6e 63 20 20 0, versionFunc
ecc0: 20 20 20 20 29 2c 0a 20 20 20 20 44 46 55 4e 43 ),. DFUNC
ecd0: 54 49 4f 4e 28 73 71 6c 69 74 65 5f 73 6f 75 72 TION(sqlite_sour
ece0: 63 65 5f 69 64 2c 20 20 30 2c 20 30 2c 20 30 2c ce_id, 0, 0, 0,
ecf0: 20 73 6f 75 72 63 65 69 64 46 75 6e 63 20 20 20 sourceidFunc
ed00: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f ),. FUNCTIO
ed10: 4e 28 73 71 6c 69 74 65 5f 6c 6f 67 2c 20 20 20 N(sqlite_log,
ed20: 20 20 20 20 20 20 32 2c 20 30 2c 20 30 2c 20 65 2, 0, 0, e
ed30: 72 72 6c 6f 67 46 75 6e 63 20 20 20 20 20 20 20 rrlogFunc
ed40: 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 ),. FUNCTION(
ed50: 71 75 6f 74 65 2c 20 20 20 20 20 20 20 20 20 20 quote,
ed60: 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 71 75 6f 1, 0, 0, quo
ed70: 74 65 46 75 6e 63 20 20 20 20 20 20 20 20 29 2c teFunc ),
ed80: 0a 20 20 20 20 56 46 55 4e 43 54 49 4f 4e 28 6c . VFUNCTION(l
ed90: 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 ast_insert_rowid
eda0: 2c 20 30 2c 20 30 2c 20 30 2c 20 6c 61 73 74 5f , 0, 0, 0, last_
edb0: 69 6e 73 65 72 74 5f 72 6f 77 69 64 29 2c 0a 20 insert_rowid),.
edc0: 20 20 20 56 46 55 4e 43 54 49 4f 4e 28 63 68 61 VFUNCTION(cha
edd0: 6e 67 65 73 2c 20 20 20 20 20 20 20 20 20 20 20 nges,
ede0: 30 2c 20 30 2c 20 30 2c 20 63 68 61 6e 67 65 73 0, 0, 0, changes
edf0: 20 20 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 ),.
ee00: 20 56 46 55 4e 43 54 49 4f 4e 28 74 6f 74 61 6c VFUNCTION(total
ee10: 5f 63 68 61 6e 67 65 73 2c 20 20 20 20 20 30 2c _changes, 0,
ee20: 20 30 2c 20 30 2c 20 74 6f 74 61 6c 5f 63 68 61 0, 0, total_cha
ee30: 6e 67 65 73 20 20 20 20 29 2c 0a 20 20 20 20 46 nges ),. F
ee40: 55 4e 43 54 49 4f 4e 28 72 65 70 6c 61 63 65 2c UNCTION(replace,
ee50: 20 20 20 20 20 20 20 20 20 20 20 20 33 2c 20 30 3, 0
ee60: 2c 20 30 2c 20 72 65 70 6c 61 63 65 46 75 6e 63 , 0, replaceFunc
ee70: 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e ),. FUN
ee80: 43 54 49 4f 4e 28 7a 65 72 6f 62 6c 6f 62 2c 20 CTION(zeroblob,
ee90: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
eea0: 30 2c 20 7a 65 72 6f 62 6c 6f 62 46 75 6e 63 20 0, zeroblobFunc
eeb0: 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 ),. FUNCT
eec0: 49 4f 4e 28 73 75 62 73 74 72 2c 20 20 20 20 20 ION(substr,
eed0: 20 20 20 20 20 20 20 20 32 2c 20 30 2c 20 30 2c 2, 0, 0,
eee0: 20 73 75 62 73 74 72 46 75 6e 63 20 20 20 20 20 substrFunc
eef0: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f ),. FUNCTIO
ef00: 4e 28 73 75 62 73 74 72 2c 20 20 20 20 20 20 20 N(substr,
ef10: 20 20 20 20 20 20 33 2c 20 30 2c 20 30 2c 20 73 3, 0, 0, s
ef20: 75 62 73 74 72 46 75 6e 63 20 20 20 20 20 20 20 ubstrFunc
ef30: 29 2c 0a 20 20 20 20 57 41 47 47 52 45 47 41 54 ),. WAGGREGAT
ef40: 45 28 73 75 6d 2c 20 20 20 31 2c 30 2c 30 2c 20 E(sum, 1,0,0,
ef50: 73 75 6d 53 74 65 70 2c 20 73 75 6d 46 69 6e 61 sumStep, sumFina
ef60: 6c 69 7a 65 2c 20 73 75 6d 46 69 6e 61 6c 69 7a lize, sumFinaliz
ef70: 65 2c 20 73 75 6d 49 6e 76 65 72 73 65 2c 20 30 e, sumInverse, 0
ef80: 29 2c 0a 20 20 20 20 57 41 47 47 52 45 47 41 54 ),. WAGGREGAT
ef90: 45 28 74 6f 74 61 6c 2c 20 31 2c 30 2c 30 2c 20 E(total, 1,0,0,
efa0: 73 75 6d 53 74 65 70 2c 74 6f 74 61 6c 46 69 6e sumStep,totalFin
efb0: 61 6c 69 7a 65 2c 74 6f 74 61 6c 46 69 6e 61 6c alize,totalFinal
efc0: 69 7a 65 2c 73 75 6d 49 6e 76 65 72 73 65 2c 20 ize,sumInverse,
efd0: 30 29 2c 0a 20 20 20 20 57 41 47 47 52 45 47 41 0),. WAGGREGA
efe0: 54 45 28 61 76 67 2c 20 20 20 31 2c 30 2c 30 2c TE(avg, 1,0,0,
eff0: 20 73 75 6d 53 74 65 70 2c 20 61 76 67 46 69 6e sumStep, avgFin
f000: 61 6c 69 7a 65 2c 20 61 76 67 46 69 6e 61 6c 69 alize, avgFinali
f010: 7a 65 2c 20 73 75 6d 49 6e 76 65 72 73 65 2c 20 ze, sumInverse,
f020: 30 29 2c 0a 20 20 20 20 57 41 47 47 52 45 47 41 0),. WAGGREGA
f030: 54 45 28 63 6f 75 6e 74 2c 20 30 2c 30 2c 30 2c TE(count, 0,0,0,
f040: 20 63 6f 75 6e 74 53 74 65 70 2c 20 0a 20 20 20 countStep, .
f050: 20 20 20 20 20 63 6f 75 6e 74 46 69 6e 61 6c 69 countFinali
f060: 7a 65 2c 20 63 6f 75 6e 74 46 69 6e 61 6c 69 7a ze, countFinaliz
f070: 65 2c 20 63 6f 75 6e 74 49 6e 76 65 72 73 65 2c e, countInverse,
f080: 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 43 4f 55 SQLITE_FUNC_COU
f090: 4e 54 20 20 29 2c 0a 20 20 20 20 57 41 47 47 52 NT ),. WAGGR
f0a0: 45 47 41 54 45 28 63 6f 75 6e 74 2c 20 31 2c 30 EGATE(count, 1,0
f0b0: 2c 30 2c 20 63 6f 75 6e 74 53 74 65 70 2c 20 0a ,0, countStep, .
f0c0: 20 20 20 20 20 20 20 20 63 6f 75 6e 74 46 69 6e countFin
f0d0: 61 6c 69 7a 65 2c 20 63 6f 75 6e 74 46 69 6e 61 alize, countFina
f0e0: 6c 69 7a 65 2c 20 63 6f 75 6e 74 49 6e 76 65 72 lize, countInver
f0f0: 73 65 2c 20 30 20 20 29 2c 0a 20 20 20 20 57 41 se, 0 ),. WA
f100: 47 47 52 45 47 41 54 45 28 67 72 6f 75 70 5f 63 GGREGATE(group_c
f110: 6f 6e 63 61 74 2c 20 31 2c 20 30 2c 20 30 2c 20 oncat, 1, 0, 0,
f120: 67 72 6f 75 70 43 6f 6e 63 61 74 53 74 65 70 2c groupConcatStep,
f130: 20 0a 20 20 20 20 20 20 20 20 67 72 6f 75 70 43 . groupC
f140: 6f 6e 63 61 74 46 69 6e 61 6c 69 7a 65 2c 20 67 oncatFinalize, g
f150: 72 6f 75 70 43 6f 6e 63 61 74 56 61 6c 75 65 2c roupConcatValue,
f160: 20 67 72 6f 75 70 43 6f 6e 63 61 74 49 6e 76 65 groupConcatInve
f170: 72 73 65 2c 20 30 29 2c 0a 20 20 20 20 57 41 47 rse, 0),. WAG
f180: 47 52 45 47 41 54 45 28 67 72 6f 75 70 5f 63 6f GREGATE(group_co
f190: 6e 63 61 74 2c 20 32 2c 20 30 2c 20 30 2c 20 67 ncat, 2, 0, 0, g
f1a0: 72 6f 75 70 43 6f 6e 63 61 74 53 74 65 70 2c 20 roupConcatStep,
f1b0: 0a 20 20 20 20 20 20 20 20 67 72 6f 75 70 43 6f . groupCo
f1c0: 6e 63 61 74 46 69 6e 61 6c 69 7a 65 2c 20 67 72 ncatFinalize, gr
f1d0: 6f 75 70 43 6f 6e 63 61 74 56 61 6c 75 65 2c 20 oupConcatValue,
f1e0: 67 72 6f 75 70 43 6f 6e 63 61 74 49 6e 76 65 72 groupConcatInver
f1f0: 73 65 2c 20 30 29 2c 0a 20 20 0a 20 20 20 20 4c se, 0),. . L
f200: 49 4b 45 46 55 4e 43 28 67 6c 6f 62 2c 20 32 2c IKEFUNC(glob, 2,
f210: 20 26 67 6c 6f 62 49 6e 66 6f 2c 20 53 51 4c 49 &globInfo, SQLI
f220: 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 7c 53 51 4c TE_FUNC_LIKE|SQL
f230: 49 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 2c 0a ITE_FUNC_CASE),.
f240: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 43 41 #ifdef SQLITE_CA
f250: 53 45 5f 53 45 4e 53 49 54 49 56 45 5f 4c 49 4b SE_SENSITIVE_LIK
f260: 45 0a 20 20 20 20 4c 49 4b 45 46 55 4e 43 28 6c E. LIKEFUNC(l
f270: 69 6b 65 2c 20 32 2c 20 26 6c 69 6b 65 49 6e 66 ike, 2, &likeInf
f280: 6f 41 6c 74 2c 20 53 51 4c 49 54 45 5f 46 55 4e oAlt, SQLITE_FUN
f290: 43 5f 4c 49 4b 45 7c 53 51 4c 49 54 45 5f 46 55 C_LIKE|SQLITE_FU
f2a0: 4e 43 5f 43 41 53 45 29 2c 0a 20 20 20 20 4c 49 NC_CASE),. LI
f2b0: 4b 45 46 55 4e 43 28 6c 69 6b 65 2c 20 33 2c 20 KEFUNC(like, 3,
f2c0: 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 2c 20 53 51 &likeInfoAlt, SQ
f2d0: 4c 49 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 7c 53 LITE_FUNC_LIKE|S
f2e0: 51 4c 49 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 QLITE_FUNC_CASE)
f2f0: 2c 0a 23 65 6c 73 65 0a 20 20 20 20 4c 49 4b 45 ,.#else. LIKE
f300: 46 55 4e 43 28 6c 69 6b 65 2c 20 32 2c 20 26 6c FUNC(like, 2, &l
f310: 69 6b 65 49 6e 66 6f 4e 6f 72 6d 2c 20 53 51 4c ikeInfoNorm, SQL
f320: 49 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 29 2c 0a ITE_FUNC_LIKE),.
f330: 20 20 20 20 4c 49 4b 45 46 55 4e 43 28 6c 69 6b LIKEFUNC(lik
f340: 65 2c 20 33 2c 20 26 6c 69 6b 65 49 6e 66 6f 4e e, 3, &likeInfoN
f350: 6f 72 6d 2c 20 53 51 4c 49 54 45 5f 46 55 4e 43 orm, SQLITE_FUNC
f360: 5f 4c 49 4b 45 29 2c 0a 23 65 6e 64 69 66 0a 23 _LIKE),.#endif.#
f370: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 ifdef SQLITE_ENA
f380: 42 4c 45 5f 55 4e 4b 4e 4f 57 4e 5f 53 51 4c 5f BLE_UNKNOWN_SQL_
f390: 46 55 4e 43 54 49 4f 4e 0a 20 20 20 20 46 55 4e FUNCTION. FUN
f3a0: 43 54 49 4f 4e 28 75 6e 6b 6e 6f 77 6e 2c 20 20 CTION(unknown,
f3b0: 20 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 -1, 0,
f3c0: 30 2c 20 75 6e 6b 6e 6f 77 6e 46 75 6e 63 20 20 0, unknownFunc
f3d0: 20 20 20 20 29 2c 0a 23 65 6e 64 69 66 0a 20 20 ),.#endif.
f3e0: 20 20 46 55 4e 43 54 49 4f 4e 28 63 6f 61 6c 65 FUNCTION(coale
f3f0: 73 63 65 2c 20 20 20 20 20 20 20 20 20 20 20 31 sce, 1
f400: 2c 20 30 2c 20 30 2c 20 30 20 20 20 20 20 20 20 , 0, 0, 0
f410: 20 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 ),.
f420: 46 55 4e 43 54 49 4f 4e 28 63 6f 61 6c 65 73 63 FUNCTION(coalesc
f430: 65 2c 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 e, 0,
f440: 30 2c 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 0, 0, 0
f450: 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 ),. FU
f460: 4e 43 54 49 4f 4e 32 28 63 6f 61 6c 65 73 63 65 NCTION2(coalesce
f470: 2c 20 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c , -1, 0,
f480: 20 30 2c 20 6e 6f 6f 70 46 75 6e 63 2c 20 20 53 0, noopFunc, S
f490: 51 4c 49 54 45 5f 46 55 4e 43 5f 43 4f 41 4c 45 QLITE_FUNC_COALE
f4a0: 53 43 45 29 2c 0a 20 20 7d 3b 0a 23 69 66 6e 64 SCE),. };.#ifnd
f4b0: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 ef SQLITE_OMIT_A
f4c0: 4c 54 45 52 54 41 42 4c 45 0a 20 20 73 71 6c 69 LTERTABLE. sqli
f4d0: 74 65 33 41 6c 74 65 72 46 75 6e 63 74 69 6f 6e te3AlterFunction
f4e0: 73 28 29 3b 0a 23 65 6e 64 69 66 0a 20 20 73 71 s();.#endif. sq
f4f0: 6c 69 74 65 33 57 69 6e 64 6f 77 46 75 6e 63 74 lite3WindowFunct
f500: 69 6f 6e 73 28 29 3b 0a 23 69 66 20 64 65 66 69 ions();.#if defi
f510: 6e 65 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c ned(SQLITE_ENABL
f520: 45 5f 53 54 41 54 33 29 20 7c 7c 20 64 65 66 69 E_STAT3) || defi
f530: 6e 65 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c ned(SQLITE_ENABL
f540: 45 5f 53 54 41 54 34 29 0a 20 20 73 71 6c 69 74 E_STAT4). sqlit
f550: 65 33 41 6e 61 6c 79 7a 65 46 75 6e 63 74 69 6f e3AnalyzeFunctio
f560: 6e 73 28 29 3b 0a 23 65 6e 64 69 66 0a 20 20 73 ns();.#endif. s
f570: 71 6c 69 74 65 33 52 65 67 69 73 74 65 72 44 61 qlite3RegisterDa
f580: 74 65 54 69 6d 65 46 75 6e 63 74 69 6f 6e 73 28 teTimeFunctions(
f590: 29 3b 0a 20 20 73 71 6c 69 74 65 33 49 6e 73 65 );. sqlite3Inse
f5a0: 72 74 42 75 69 6c 74 69 6e 46 75 6e 63 73 28 61 rtBuiltinFuncs(a
f5b0: 42 75 69 6c 74 69 6e 46 75 6e 63 2c 20 41 72 72 BuiltinFunc, Arr
f5c0: 61 79 53 69 7a 65 28 61 42 75 69 6c 74 69 6e 46 aySize(aBuiltinF
f5d0: 75 6e 63 29 29 3b 0a 0a 23 69 66 20 30 20 20 2f unc));..#if 0 /
f5e0: 2a 20 45 6e 61 62 6c 65 20 74 6f 20 70 72 69 6e * Enable to prin
f5f0: 74 20 6f 75 74 20 68 6f 77 20 74 68 65 20 62 75 t out how the bu
f600: 69 6c 74 2d 69 6e 20 66 75 6e 63 74 69 6f 6e 73 ilt-in functions
f610: 20 61 72 65 20 68 61 73 68 65 64 20 2a 2f 0a 20 are hashed */.
f620: 20 7b 0a 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 {. int i;.
f630: 20 20 46 75 6e 63 44 65 66 20 2a 70 3b 0a 20 20 FuncDef *p;.
f640: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 53 51 4c for(i=0; i<SQL
f650: 49 54 45 5f 46 55 4e 43 5f 48 41 53 48 5f 53 5a ITE_FUNC_HASH_SZ
f660: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 70 72 ; i++){. pr
f670: 69 6e 74 66 28 22 46 55 4e 43 2d 48 41 53 48 20 intf("FUNC-HASH
f680: 25 30 32 64 3a 22 2c 20 69 29 3b 0a 20 20 20 20 %02d:", i);.
f690: 20 20 66 6f 72 28 70 3d 73 71 6c 69 74 65 33 42 for(p=sqlite3B
f6a0: 75 69 6c 74 69 6e 46 75 6e 63 74 69 6f 6e 73 2e uiltinFunctions.
f6b0: 61 5b 69 5d 3b 20 70 3b 20 70 3d 70 2d 3e 75 2e a[i]; p; p=p->u.
f6c0: 70 48 61 73 68 29 7b 0a 20 20 20 20 20 20 20 20 pHash){.
f6d0: 69 6e 74 20 6e 20 3d 20 73 71 6c 69 74 65 33 53 int n = sqlite3S
f6e0: 74 72 6c 65 6e 33 30 28 70 2d 3e 7a 4e 61 6d 65 trlen30(p->zName
f6f0: 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 68 );. int h
f700: 20 3d 20 70 2d 3e 7a 4e 61 6d 65 5b 30 5d 20 2b = p->zName[0] +
f710: 20 6e 3b 0a 20 20 20 20 20 20 20 20 70 72 69 6e n;. prin
f720: 74 66 28 22 20 25 73 28 25 64 29 22 2c 20 70 2d tf(" %s(%d)", p-
f730: 3e 7a 4e 61 6d 65 2c 20 68 29 3b 0a 20 20 20 20 >zName, h);.
f740: 20 20 7d 0a 20 20 20 20 20 20 70 72 69 6e 74 66 }. printf
f750: 28 22 5c 6e 22 29 3b 0a 20 20 20 20 7d 0a 20 20 ("\n");. }.
f760: 7d 0a 23 65 6e 64 69 66 0a 7d 0a }.#endif.}.