0000: 2f 2a 0a 2a 2a 20 32 30 30 32 20 46 65 62 72 75 /*.** 2002 Febru
0010: 61 72 79 20 32 33 0a 2a 2a 0a 2a 2a 20 54 68 65 ary 23.**.** The
0020: 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d author disclaim
0030: 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 s copyright to t
0040: 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e his source code.
0050: 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a In place of.**
0060: 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c a legal notice,
0070: 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 here is a bless
0080: 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 ing:.**.** Ma
0090: 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e y you do good an
00a0: 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 d not evil..**
00b0: 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 May you find f
00c0: 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 orgiveness for y
00d0: 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 ourself and forg
00e0: 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 ive others..**
00f0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 May you share
0100: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 freely, never ta
0110: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 king more than y
0120: 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a ou give..**.****
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0170: 2a 2a 2a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 *****.** This fi
0180: 6c 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 le contains the
0190: 43 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 C functions that
01a0: 20 69 6d 70 6c 65 6d 65 6e 74 20 76 61 72 69 6f implement vario
01b0: 75 73 20 53 51 4c 0a 2a 2a 20 66 75 6e 63 74 69 us SQL.** functi
01c0: 6f 6e 73 20 6f 66 20 53 51 4c 69 74 65 2e 20 20 ons of SQLite.
01d0: 0a 2a 2a 0a 2a 2a 20 54 68 65 72 65 20 69 73 20 .**.** There is
01e0: 6f 6e 6c 79 20 6f 6e 65 20 65 78 70 6f 72 74 65 only one exporte
01f0: 64 20 73 79 6d 62 6f 6c 20 69 6e 20 74 68 69 73 d symbol in this
0200: 20 66 69 6c 65 20 2d 20 74 68 65 20 66 75 6e 63 file - the func
0210: 74 69 6f 6e 0a 2a 2a 20 73 71 6c 69 74 65 52 65 tion.** sqliteRe
0220: 67 69 73 74 65 72 42 75 69 6c 64 69 6e 46 75 6e gisterBuildinFun
0230: 63 74 69 6f 6e 73 28 29 20 66 6f 75 6e 64 20 61 ctions() found a
0240: 74 20 74 68 65 20 62 6f 74 74 6f 6d 20 6f 66 20 t the bottom of
0250: 74 68 65 20 66 69 6c 65 2e 0a 2a 2a 20 41 6c 6c the file..** All
0260: 20 6f 74 68 65 72 20 63 6f 64 65 20 68 61 73 20 other code has
0270: 66 69 6c 65 20 73 63 6f 70 65 2e 0a 2a 2a 0a 2a file scope..**.*
0280: 2a 20 24 49 64 3a 20 66 75 6e 63 2e 63 2c 76 20 * $Id: func.c,v
0290: 31 2e 31 32 33 20 32 30 30 36 2f 30 32 2f 32 33 1.123 2006/02/23
02a0: 20 32 31 3a 34 33 3a 35 36 20 64 72 68 20 45 78 21:43:56 drh Ex
02b0: 70 20 24 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 p $.*/.#include
02c0: 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23 69 "sqliteInt.h".#i
02d0: 6e 63 6c 75 64 65 20 3c 63 74 79 70 65 2e 68 3e nclude <ctype.h>
02e0: 0a 2f 2a 20 23 69 6e 63 6c 75 64 65 20 3c 6d 61 ./* #include <ma
02f0: 74 68 2e 68 3e 20 2a 2f 0a 23 69 6e 63 6c 75 64 th.h> */.#includ
0300: 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e e <stdlib.h>.#in
0310: 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e clude <assert.h>
0320: 0a 23 69 6e 63 6c 75 64 65 20 22 76 64 62 65 49 .#include "vdbeI
0330: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 nt.h".#include "
0340: 6f 73 2e 68 22 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 os.h"../*.** Ret
0350: 75 72 6e 20 74 68 65 20 63 6f 6c 6c 61 74 69 6e urn the collatin
0360: 67 20 66 75 6e 63 74 69 6f 6e 20 61 73 73 6f 63 g function assoc
0370: 69 61 74 65 64 20 77 69 74 68 20 61 20 66 75 6e iated with a fun
0380: 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 ction..*/.static
0390: 20 43 6f 6c 6c 53 65 71 20 2a 73 71 6c 69 74 65 CollSeq *sqlite
03a0: 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 3GetFuncCollSeq(
03b0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
03c0: 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 72 65 74 *context){. ret
03d0: 75 72 6e 20 63 6f 6e 74 65 78 74 2d 3e 70 43 6f urn context->pCo
03e0: 6c 6c 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 ll;.}../*.** Imp
03f0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
0400: 68 65 20 6e 6f 6e 2d 61 67 67 72 65 67 61 74 65 he non-aggregate
0410: 20 6d 69 6e 28 29 20 61 6e 64 20 6d 61 78 28 29 min() and max()
0420: 20 66 75 6e 63 74 69 6f 6e 73 0a 2a 2f 0a 73 74 functions.*/.st
0430: 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 6d 61 78 atic void minmax
0440: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
0450: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
0460: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
0470: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
0480: 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 3b argv.){. int i;
0490: 0a 20 20 69 6e 74 20 6d 61 73 6b 3b 20 20 20 20 . int mask;
04a0: 2f 2a 20 30 20 66 6f 72 20 6d 69 6e 28 29 20 6f /* 0 for min() o
04b0: 72 20 30 78 66 66 66 66 66 66 66 66 20 66 6f 72 r 0xffffffff for
04c0: 20 6d 61 78 28 29 20 2a 2f 0a 20 20 69 6e 74 20 max() */. int
04d0: 69 42 65 73 74 3b 0a 20 20 43 6f 6c 6c 53 65 71 iBest;. CollSeq
04e0: 20 2a 70 43 6f 6c 6c 3b 0a 0a 20 20 69 66 28 20 *pColl;.. if(
04f0: 61 72 67 63 3d 3d 30 20 29 20 72 65 74 75 72 6e argc==0 ) return
0500: 3b 0a 20 20 6d 61 73 6b 20 3d 20 73 71 6c 69 74 ;. mask = sqlit
0510: 65 33 5f 75 73 65 72 5f 64 61 74 61 28 63 6f 6e e3_user_data(con
0520: 74 65 78 74 29 3d 3d 30 20 3f 20 30 20 3a 20 2d text)==0 ? 0 : -
0530: 31 3b 0a 20 20 70 43 6f 6c 6c 20 3d 20 73 71 6c 1;. pColl = sql
0540: 69 74 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53 ite3GetFuncCollS
0550: 65 71 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 61 eq(context);. a
0560: 73 73 65 72 74 28 20 70 43 6f 6c 6c 20 29 3b 0a ssert( pColl );.
0570: 20 20 61 73 73 65 72 74 28 20 6d 61 73 6b 3d 3d assert( mask==
0580: 2d 31 20 7c 7c 20 6d 61 73 6b 3d 3d 30 20 29 3b -1 || mask==0 );
0590: 0a 20 20 69 42 65 73 74 20 3d 20 30 3b 0a 20 20 . iBest = 0;.
05a0: 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 if( sqlite3_valu
05b0: 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3d e_type(argv[0])=
05c0: 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 =SQLITE_NULL ) r
05d0: 65 74 75 72 6e 3b 0a 20 20 66 6f 72 28 69 3d 31 eturn;. for(i=1
05e0: 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a ; i<argc; i++){.
05f0: 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f if( sqlite3_
0600: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b value_type(argv[
0610: 69 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c i])==SQLITE_NULL
0620: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 69 ) return;. i
0630: 66 28 20 28 73 71 6c 69 74 65 33 4d 65 6d 43 6f f( (sqlite3MemCo
0640: 6d 70 61 72 65 28 61 72 67 76 5b 69 42 65 73 74 mpare(argv[iBest
0650: 5d 2c 20 61 72 67 76 5b 69 5d 2c 20 70 43 6f 6c ], argv[i], pCol
0660: 6c 29 5e 6d 61 73 6b 29 3e 3d 30 20 29 7b 0a 20 l)^mask)>=0 ){.
0670: 20 20 20 20 20 69 42 65 73 74 20 3d 20 69 3b 0a iBest = i;.
0680: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 71 6c 69 }. }. sqli
0690: 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 te3_result_value
06a0: 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b 69 (context, argv[i
06b0: 42 65 73 74 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a Best]);.}../*.**
06c0: 20 52 65 74 75 72 6e 20 74 68 65 20 74 79 70 65 Return the type
06d0: 20 6f 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 of the argument
06e0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
06f0: 20 74 79 70 65 6f 66 46 75 6e 63 28 0a 20 20 73 typeofFunc(. s
0700: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
0710: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
0720: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 rgc,. sqlite3_v
0730: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
0740: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d const char *z =
0750: 20 30 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71 0;. switch( sq
0760: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 lite3_value_type
0770: 28 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 (argv[0]) ){.
0780: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c case SQLITE_NUL
0790: 4c 3a 20 20 20 20 7a 20 3d 20 22 6e 75 6c 6c 22 L: z = "null"
07a0: 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 ; break;.
07b0: 63 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 case SQLITE_INTE
07c0: 47 45 52 3a 20 7a 20 3d 20 22 69 6e 74 65 67 65 GER: z = "intege
07d0: 72 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 r"; break;. c
07e0: 61 73 65 20 53 51 4c 49 54 45 5f 54 45 58 54 3a ase SQLITE_TEXT:
07f0: 20 20 20 20 7a 20 3d 20 22 74 65 78 74 22 3b 20 z = "text";
0800: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 break;. ca
0810: 73 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a se SQLITE_FLOAT:
0820: 20 20 20 7a 20 3d 20 22 72 65 61 6c 22 3b 20 20 z = "real";
0830: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
0840: 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 20 20 e SQLITE_BLOB:
0850: 20 20 7a 20 3d 20 22 62 6c 6f 62 22 3b 20 20 20 z = "blob";
0860: 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 73 71 break;. }. sq
0870: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
0880: 74 28 63 6f 6e 74 65 78 74 2c 20 7a 2c 20 2d 31 t(context, z, -1
0890: 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 , SQLITE_STATIC)
08a0: 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c ;.}.../*.** Impl
08b0: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 ementation of th
08c0: 65 20 6c 65 6e 67 74 68 28 29 20 66 75 6e 63 74 e length() funct
08d0: 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ion.*/.static vo
08e0: 69 64 20 6c 65 6e 67 74 68 46 75 6e 63 28 0a 20 id lengthFunc(.
08f0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
0900: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 *context,. int
0910: 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 argc,. sqlite3
0920: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
0930: 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 0a 20 20 61 . int len;.. a
0940: 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 ssert( argc==1 )
0950: 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71 6c 69 ;. switch( sqli
0960: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
0970: 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 63 rgv[0]) ){. c
0980: 61 73 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a ase SQLITE_BLOB:
0990: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
09a0: 5f 49 4e 54 45 47 45 52 3a 0a 20 20 20 20 63 61 _INTEGER:. ca
09b0: 73 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a se SQLITE_FLOAT:
09c0: 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 {. sqlite3
09d0: 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 _result_int(cont
09e0: 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c ext, sqlite3_val
09f0: 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d ue_bytes(argv[0]
0a00: 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b ));. break;
0a10: 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 . }. case
0a20: 53 51 4c 49 54 45 5f 54 45 58 54 3a 20 7b 0a 20 SQLITE_TEXT: {.
0a30: 20 20 20 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 const unsig
0a40: 6e 65 64 20 63 68 61 72 20 2a 7a 20 3d 20 73 71 ned char *z = sq
0a50: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
0a60: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 (argv[0]);.
0a70: 20 66 6f 72 28 6c 65 6e 3d 30 3b 20 2a 7a 3b 20 for(len=0; *z;
0a80: 7a 2b 2b 29 7b 20 69 66 28 20 28 30 78 63 30 26 z++){ if( (0xc0&
0a90: 2a 7a 29 21 3d 30 78 38 30 20 29 20 6c 65 6e 2b *z)!=0x80 ) len+
0aa0: 2b 3b 20 7d 0a 20 20 20 20 20 20 73 71 6c 69 74 +; }. sqlit
0ab0: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f e3_result_int(co
0ac0: 6e 74 65 78 74 2c 20 6c 65 6e 29 3b 0a 20 20 20 ntext, len);.
0ad0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a break;. }.
0ae0: 20 20 20 20 64 65 66 61 75 6c 74 3a 20 7b 0a 20 default: {.
0af0: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 sqlite3_res
0b00: 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 65 78 74 ult_null(context
0b10: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a );. break;.
0b20: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a }. }.}../*.
0b30: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** Implementatio
0b40: 6e 20 6f 66 20 74 68 65 20 61 62 73 28 29 20 66 n of the abs() f
0b50: 75 6e 63 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69 unction.*/.stati
0b60: 63 20 76 6f 69 64 20 61 62 73 46 75 6e 63 28 73 c void absFunc(s
0b70: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
0b80: 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 context, int arg
0b90: 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 c, sqlite3_value
0ba0: 20 2a 2a 61 72 67 76 29 7b 0a 20 20 61 73 73 65 **argv){. asse
0bb0: 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 rt( argc==1 );.
0bc0: 20 73 77 69 74 63 68 28 20 73 71 6c 69 74 65 33 switch( sqlite3
0bd0: 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 _value_type(argv
0be0: 5b 30 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 65 [0]) ){. case
0bf0: 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a SQLITE_INTEGER:
0c00: 20 7b 0a 20 20 20 20 20 20 69 36 34 20 69 56 61 {. i64 iVa
0c10: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 l = sqlite3_valu
0c20: 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 e_int64(argv[0])
0c30: 3b 0a 20 20 20 20 20 20 69 66 28 20 69 56 61 6c ;. if( iVal
0c40: 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 <0 ){. if
0c50: 28 20 28 69 56 61 6c 3c 3c 31 29 3d 3d 30 20 29 ( (iVal<<1)==0 )
0c60: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 {. sqli
0c70: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 te3_result_error
0c80: 28 63 6f 6e 74 65 78 74 2c 20 22 69 6e 74 65 67 (context, "integ
0c90: 65 72 20 6f 76 65 72 66 6c 6f 77 22 2c 20 2d 31 er overflow", -1
0ca0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 );. ret
0cb0: 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 urn;. }.
0cc0: 20 20 20 20 20 20 20 69 56 61 6c 20 3d 20 2d 69 iVal = -i
0cd0: 56 61 6c 3b 0a 20 20 20 20 20 20 7d 20 0a 20 20 Val;. } .
0ce0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
0cf0: 6c 74 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 lt_int64(context
0d00: 2c 20 69 56 61 6c 29 3b 0a 20 20 20 20 20 20 62 , iVal);. b
0d10: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 reak;. }.
0d20: 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c case SQLITE_NULL
0d30: 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 : {. sqlite
0d40: 33 5f 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 3_result_null(co
0d50: 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20 62 72 ntext);. br
0d60: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 eak;. }. d
0d70: 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20 20 20 20 efault: {.
0d80: 64 6f 75 62 6c 65 20 72 56 61 6c 20 3d 20 73 71 double rVal = sq
0d90: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 lite3_value_doub
0da0: 6c 65 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 le(argv[0]);.
0db0: 20 20 20 69 66 28 20 72 56 61 6c 3c 30 20 29 20 if( rVal<0 )
0dc0: 72 56 61 6c 20 3d 20 2d 72 56 61 6c 3b 0a 20 20 rVal = -rVal;.
0dd0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
0de0: 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 lt_double(contex
0df0: 74 2c 20 72 56 61 6c 29 3b 0a 20 20 20 20 20 20 t, rVal);.
0e00: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d break;. }. }
0e10: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d .}../*.** Implem
0e20: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 entation of the
0e30: 73 75 62 73 74 72 28 29 20 66 75 6e 63 74 69 6f substr() functio
0e40: 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 n.*/.static void
0e50: 20 73 75 62 73 74 72 46 75 6e 63 28 0a 20 20 73 substrFunc(. s
0e60: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
0e70: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
0e80: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 rgc,. sqlite3_v
0e90: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
0ea0: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
0eb0: 63 68 61 72 20 2a 7a 3b 0a 20 20 63 6f 6e 73 74 char *z;. const
0ec0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
0ed0: 7a 32 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 z2;. int i;. i
0ee0: 6e 74 20 70 31 2c 20 70 32 2c 20 6c 65 6e 3b 0a nt p1, p2, len;.
0ef0: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d . assert( argc=
0f00: 3d 33 20 29 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 =3 );. z = sqli
0f10: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
0f20: 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 7a rgv[0]);. if( z
0f30: 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 ==0 ) return;.
0f40: 70 31 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c p1 = sqlite3_val
0f50: 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 3b ue_int(argv[1]);
0f60: 0a 20 20 70 32 20 3d 20 73 71 6c 69 74 65 33 5f . p2 = sqlite3_
0f70: 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 32 value_int(argv[2
0f80: 5d 29 3b 0a 20 20 66 6f 72 28 6c 65 6e 3d 30 2c ]);. for(len=0,
0f90: 20 7a 32 3d 7a 3b 20 2a 7a 32 3b 20 7a 32 2b 2b z2=z; *z2; z2++
0fa0: 29 7b 20 69 66 28 20 28 30 78 63 30 26 2a 7a 32 ){ if( (0xc0&*z2
0fb0: 29 21 3d 30 78 38 30 20 29 20 6c 65 6e 2b 2b 3b )!=0x80 ) len++;
0fc0: 20 7d 0a 20 20 69 66 28 20 70 31 3c 30 20 29 7b }. if( p1<0 ){
0fd0: 0a 20 20 20 20 70 31 20 2b 3d 20 6c 65 6e 3b 0a . p1 += len;.
0fe0: 20 20 20 20 69 66 28 20 70 31 3c 30 20 29 7b 0a if( p1<0 ){.
0ff0: 20 20 20 20 20 20 70 32 20 2b 3d 20 70 31 3b 0a p2 += p1;.
1000: 20 20 20 20 20 20 70 31 20 3d 20 30 3b 0a 20 20 p1 = 0;.
1010: 20 20 7d 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 }. }else if(
1020: 70 31 3e 30 20 29 7b 0a 20 20 20 20 70 31 2d 2d p1>0 ){. p1--
1030: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 31 2b 70 ;. }. if( p1+p
1040: 32 3e 6c 65 6e 20 29 7b 0a 20 20 20 20 70 32 20 2>len ){. p2
1050: 3d 20 6c 65 6e 2d 70 31 3b 0a 20 20 7d 0a 20 20 = len-p1;. }.
1060: 66 6f 72 28 69 3d 30 3b 20 69 3c 70 31 20 26 26 for(i=0; i<p1 &&
1070: 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 z[i]; i++){.
1080: 20 69 66 28 20 28 7a 5b 69 5d 26 30 78 63 30 29 if( (z[i]&0xc0)
1090: 3d 3d 30 78 38 30 20 29 20 70 31 2b 2b 3b 0a 20 ==0x80 ) p1++;.
10a0: 20 7d 0a 20 20 77 68 69 6c 65 28 20 7a 5b 69 5d }. while( z[i]
10b0: 20 26 26 20 28 7a 5b 69 5d 26 30 78 63 30 29 3d && (z[i]&0xc0)=
10c0: 3d 30 78 38 30 20 29 7b 20 69 2b 2b 3b 20 70 31 =0x80 ){ i++; p1
10d0: 2b 2b 3b 20 7d 0a 20 20 66 6f 72 28 3b 20 69 3c ++; }. for(; i<
10e0: 70 31 2b 70 32 20 26 26 20 7a 5b 69 5d 3b 20 69 p1+p2 && z[i]; i
10f0: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 28 7a 5b ++){. if( (z[
1100: 69 5d 26 30 78 63 30 29 3d 3d 30 78 38 30 20 29 i]&0xc0)==0x80 )
1110: 20 70 32 2b 2b 3b 0a 20 20 7d 0a 20 20 77 68 69 p2++;. }. whi
1120: 6c 65 28 20 7a 5b 69 5d 20 26 26 20 28 7a 5b 69 le( z[i] && (z[i
1130: 5d 26 30 78 63 30 29 3d 3d 30 78 38 30 20 29 7b ]&0xc0)==0x80 ){
1140: 20 69 2b 2b 3b 20 70 32 2b 2b 3b 20 7d 0a 20 20 i++; p2++; }.
1150: 69 66 28 20 70 32 3c 30 20 29 20 70 32 20 3d 20 if( p2<0 ) p2 =
1160: 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 0;. sqlite3_res
1170: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 ult_text(context
1180: 2c 20 28 63 68 61 72 2a 29 26 7a 5b 70 31 5d 2c , (char*)&z[p1],
1190: 20 70 32 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e p2, SQLITE_TRAN
11a0: 53 49 45 4e 54 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a SIENT);.}../*.**
11b0: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 Implementation
11c0: 6f 66 20 74 68 65 20 72 6f 75 6e 64 28 29 20 66 of the round() f
11d0: 75 6e 63 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69 unction.*/.stati
11e0: 63 20 76 6f 69 64 20 72 6f 75 6e 64 46 75 6e 63 c void roundFunc
11f0: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 (sqlite3_context
1200: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 *context, int a
1210: 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c rgc, sqlite3_val
1220: 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 6e ue **argv){. in
1230: 74 20 6e 20 3d 20 30 3b 0a 20 20 64 6f 75 62 6c t n = 0;. doubl
1240: 65 20 72 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 e r;. char zBuf
1250: 5b 35 30 30 5d 3b 20 20 2f 2a 20 6c 61 72 67 65 [500]; /* large
1260: 72 20 74 68 61 6e 20 74 68 65 20 25 66 20 72 65 r than the %f re
1270: 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 presentation of
1280: 74 68 65 20 6c 61 72 67 65 73 74 20 64 6f 75 62 the largest doub
1290: 6c 65 20 2a 2f 0a 20 20 61 73 73 65 72 74 28 20 le */. assert(
12a0: 61 72 67 63 3d 3d 31 20 7c 7c 20 61 72 67 63 3d argc==1 || argc=
12b0: 3d 32 20 29 3b 0a 20 20 69 66 28 20 61 72 67 63 =2 );. if( argc
12c0: 3d 3d 32 20 29 7b 0a 20 20 20 20 69 66 28 20 53 ==2 ){. if( S
12d0: 51 4c 49 54 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69 QLITE_NULL==sqli
12e0: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
12f0: 72 67 76 5b 31 5d 29 20 29 20 72 65 74 75 72 6e rgv[1]) ) return
1300: 3b 0a 20 20 20 20 6e 20 3d 20 73 71 6c 69 74 65 ;. n = sqlite
1310: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 3_value_int(argv
1320: 5b 31 5d 29 3b 0a 20 20 20 20 69 66 28 20 6e 3e [1]);. if( n>
1330: 33 30 20 29 20 6e 20 3d 20 33 30 3b 0a 20 20 20 30 ) n = 30;.
1340: 20 69 66 28 20 6e 3c 30 20 29 20 6e 20 3d 20 30 if( n<0 ) n = 0
1350: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 53 51 4c 49 ;. }. if( SQLI
1360: 54 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69 74 65 33 TE_NULL==sqlite3
1370: 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 _value_type(argv
1380: 5b 30 5d 29 20 29 20 72 65 74 75 72 6e 3b 0a 20 [0]) ) return;.
1390: 20 72 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c r = sqlite3_val
13a0: 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b 30 ue_double(argv[0
13b0: 5d 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e ]);. sqlite3_sn
13c0: 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42 printf(sizeof(zB
13d0: 75 66 29 2c 7a 42 75 66 2c 22 25 2e 2a 66 22 2c uf),zBuf,"%.*f",
13e0: 6e 2c 72 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f n,r);. sqlite3_
13f0: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 result_text(cont
1400: 65 78 74 2c 20 7a 42 75 66 2c 20 2d 31 2c 20 53 ext, zBuf, -1, S
1410: 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 QLITE_TRANSIENT)
1420: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 ;.}../*.** Imple
1430: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 mentation of the
1440: 20 75 70 70 65 72 28 29 20 61 6e 64 20 6c 6f 77 upper() and low
1450: 65 72 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f er() SQL functio
1460: 6e 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ns..*/.static vo
1470: 69 64 20 75 70 70 65 72 46 75 6e 63 28 73 71 6c id upperFunc(sql
1480: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
1490: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
14a0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
14b0: 2a 61 72 67 76 29 7b 0a 20 20 75 6e 73 69 67 6e *argv){. unsign
14c0: 65 64 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 6e ed char *z;. in
14d0: 74 20 69 3b 0a 20 20 69 66 28 20 61 72 67 63 3c t i;. if( argc<
14e0: 31 20 7c 7c 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 1 || SQLITE_NULL
14f0: 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f ==sqlite3_value_
1500: 74 79 70 65 28 61 72 67 76 5b 30 5d 29 20 29 20 type(argv[0]) )
1510: 72 65 74 75 72 6e 3b 0a 20 20 7a 20 3d 20 73 71 return;. z = sq
1520: 6c 69 74 65 4d 61 6c 6c 6f 63 28 73 71 6c 69 74 liteMalloc(sqlit
1530: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 e3_value_bytes(a
1540: 72 67 76 5b 30 5d 29 2b 31 29 3b 0a 20 20 69 66 rgv[0])+1);. if
1550: 28 20 7a 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b ( z==0 ) return;
1560: 0a 20 20 73 74 72 63 70 79 28 28 63 68 61 72 2a . strcpy((char*
1570: 29 7a 2c 20 28 63 68 61 72 2a 29 73 71 6c 69 74 )z, (char*)sqlit
1580: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
1590: 67 76 5b 30 5d 29 29 3b 0a 20 20 66 6f 72 28 69 gv[0]));. for(i
15a0: 3d 30 3b 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a =0; z[i]; i++){.
15b0: 20 20 20 20 7a 5b 69 5d 20 3d 20 74 6f 75 70 70 z[i] = toupp
15c0: 65 72 28 7a 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 er(z[i]);. }.
15d0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 sqlite3_result_t
15e0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 ext(context, (ch
15f0: 61 72 2a 29 7a 2c 20 2d 31 2c 20 53 51 4c 49 54 ar*)z, -1, SQLIT
1600: 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 E_TRANSIENT);.
1610: 73 71 6c 69 74 65 46 72 65 65 28 7a 29 3b 0a 7d sqliteFree(z);.}
1620: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 6f 77 .static void low
1630: 65 72 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 erFunc(sqlite3_c
1640: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
1650: 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 int argc, sqlit
1660: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 e3_value **argv)
1670: 7b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 {. unsigned cha
1680: 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 r *z;. int i;.
1690: 20 69 66 28 20 61 72 67 63 3c 31 20 7c 7c 20 53 if( argc<1 || S
16a0: 51 4c 49 54 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69 QLITE_NULL==sqli
16b0: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
16c0: 72 67 76 5b 30 5d 29 20 29 20 72 65 74 75 72 6e rgv[0]) ) return
16d0: 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 4d 61 ;. z = sqliteMa
16e0: 6c 6c 6f 63 28 73 71 6c 69 74 65 33 5f 76 61 6c lloc(sqlite3_val
16f0: 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d ue_bytes(argv[0]
1700: 29 2b 31 29 3b 0a 20 20 69 66 28 20 7a 3d 3d 30 )+1);. if( z==0
1710: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 73 74 72 ) return;. str
1720: 63 70 79 28 28 63 68 61 72 2a 29 7a 2c 20 28 63 cpy((char*)z, (c
1730: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c har*)sqlite3_val
1740: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 ue_text(argv[0])
1750: 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 5b );. for(i=0; z[
1760: 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 7a 5b i]; i++){. z[
1770: 69 5d 20 3d 20 74 6f 6c 6f 77 65 72 28 7a 5b 69 i] = tolower(z[i
1780: 5d 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 ]);. }. sqlite
1790: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 3_result_text(co
17a0: 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 7a 2c ntext, (char*)z,
17b0: 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e -1, SQLITE_TRAN
17c0: 53 49 45 4e 54 29 3b 0a 20 20 73 71 6c 69 74 65 SIENT);. sqlite
17d0: 46 72 65 65 28 7a 29 3b 0a 7d 0a 0a 2f 2a 0a 2a Free(z);.}../*.*
17e0: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
17f0: 20 6f 66 20 74 68 65 20 49 46 4e 55 4c 4c 28 29 of the IFNULL()
1800: 2c 20 4e 56 4c 28 29 2c 20 61 6e 64 20 43 4f 41 , NVL(), and COA
1810: 4c 45 53 43 45 28 29 20 66 75 6e 63 74 69 6f 6e LESCE() function
1820: 73 2e 20 20 0a 2a 2a 20 41 6c 6c 20 74 68 72 65 s. .** All thre
1830: 65 20 64 6f 20 74 68 65 20 73 61 6d 65 20 74 68 e do the same th
1840: 69 6e 67 2e 20 20 54 68 65 79 20 72 65 74 75 72 ing. They retur
1850: 6e 20 74 68 65 20 66 69 72 73 74 20 6e 6f 6e 2d n the first non-
1860: 4e 55 4c 4c 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 NULL.** argument
1870: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
1880: 20 69 66 6e 75 6c 6c 46 75 6e 63 28 0a 20 20 73 ifnullFunc(. s
1890: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
18a0: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
18b0: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 rgc,. sqlite3_v
18c0: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
18d0: 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d int i;. for(i=
18e0: 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0; i<argc; i++){
18f0: 0a 20 20 20 20 69 66 28 20 53 51 4c 49 54 45 5f . if( SQLITE_
1900: 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 33 5f 76 61 NULL!=sqlite3_va
1910: 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 69 5d lue_type(argv[i]
1920: 29 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 ) ){. sqlit
1930: 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 e3_result_value(
1940: 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b 69 5d context, argv[i]
1950: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a );. break;.
1960: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a }. }.}../*.
1970: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** Implementatio
1980: 6e 20 6f 66 20 72 61 6e 64 6f 6d 28 29 2e 20 20 n of random().
1990: 52 65 74 75 72 6e 20 61 20 72 61 6e 64 6f 6d 20 Return a random
19a0: 69 6e 74 65 67 65 72 2e 20 20 0a 2a 2f 0a 73 74 integer. .*/.st
19b0: 61 74 69 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d atic void random
19c0: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
19d0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
19e0: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
19f0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
1a00: 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 argv.){. sqlite
1a10: 5f 69 6e 74 36 34 20 72 3b 0a 20 20 73 71 6c 69 _int64 r;. sqli
1a20: 74 65 33 52 61 6e 64 6f 6d 6e 65 73 73 28 73 69 te3Randomness(si
1a30: 7a 65 6f 66 28 72 29 2c 20 26 72 29 3b 0a 20 20 zeof(r), &r);.
1a40: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 sqlite3_result_i
1a50: 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 72 29 nt64(context, r)
1a60: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 ;.}../*.** Imple
1a70: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 mentation of the
1a80: 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 last_insert_row
1a90: 69 64 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f id() SQL functio
1aa0: 6e 2e 20 20 54 68 65 20 72 65 74 75 72 6e 0a 2a n. The return.*
1ab0: 2a 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 73 * value is the s
1ac0: 61 6d 65 20 61 73 20 74 68 65 20 73 71 6c 69 74 ame as the sqlit
1ad0: 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 e3_last_insert_r
1ae0: 6f 77 69 64 28 29 20 41 50 49 20 66 75 6e 63 74 owid() API funct
1af0: 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ion..*/.static v
1b00: 6f 69 64 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f oid last_insert_
1b10: 72 6f 77 69 64 28 0a 20 20 73 71 6c 69 74 65 33 rowid(. sqlite3
1b20: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
1b30: 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 2c 20 0a t, . int arg, .
1b40: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
1b50: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 **argv.){. sqli
1b60: 74 65 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 te3 *db = sqlite
1b70: 33 5f 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 3_user_data(cont
1b80: 65 78 74 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f ext);. sqlite3_
1b90: 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 6f 6e result_int64(con
1ba0: 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 6c 61 text, sqlite3_la
1bb0: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 st_insert_rowid(
1bc0: 64 62 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 db));.}../*.** I
1bd0: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
1be0: 20 74 68 65 20 63 68 61 6e 67 65 73 28 29 20 53 the changes() S
1bf0: 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 QL function. Th
1c00: 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 e return value i
1c10: 73 20 74 68 65 0a 2a 2a 20 73 61 6d 65 20 61 73 s the.** same as
1c20: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 63 68 61 the sqlite3_cha
1c30: 6e 67 65 73 28 29 20 41 50 49 20 66 75 6e 63 74 nges() API funct
1c40: 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ion..*/.static v
1c50: 6f 69 64 20 63 68 61 6e 67 65 73 28 0a 20 20 73 oid changes(. s
1c60: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
1c70: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
1c80: 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 rg,. sqlite3_va
1c90: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 lue **argv.){.
1ca0: 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71 sqlite3 *db = sq
1cb0: 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 lite3_user_data(
1cc0: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71 6c 69 context);. sqli
1cd0: 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 te3_result_int(c
1ce0: 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f ontext, sqlite3_
1cf0: 63 68 61 6e 67 65 73 28 64 62 29 29 3b 0a 7d 0a changes(db));.}.
1d00: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
1d10: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 6f 74 ation of the tot
1d20: 61 6c 5f 63 68 61 6e 67 65 73 28 29 20 53 51 4c al_changes() SQL
1d30: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 function. The
1d40: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 0a return value is.
1d50: 2a 2a 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 ** the same as t
1d60: 68 65 20 73 71 6c 69 74 65 33 5f 74 6f 74 61 6c he sqlite3_total
1d70: 5f 63 68 61 6e 67 65 73 28 29 20 41 50 49 20 66 _changes() API f
1d80: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 unction..*/.stat
1d90: 69 63 20 76 6f 69 64 20 74 6f 74 61 6c 5f 63 68 ic void total_ch
1da0: 61 6e 67 65 73 28 0a 20 20 73 71 6c 69 74 65 33 anges(. sqlite3
1db0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
1dc0: 74 2c 0a 20 20 69 6e 74 20 61 72 67 2c 0a 20 20 t,. int arg,.
1dd0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
1de0: 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 argv.){. sqlite
1df0: 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 3 *db = sqlite3_
1e00: 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 user_data(contex
1e10: 74 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 t);. sqlite3_re
1e20: 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 sult_int(context
1e30: 2c 20 73 71 6c 69 74 65 33 5f 74 6f 74 61 6c 5f , sqlite3_total_
1e40: 63 68 61 6e 67 65 73 28 64 62 29 29 3b 0a 7d 0a changes(db));.}.
1e50: 0a 2f 2a 0a 2a 2a 20 41 20 73 74 72 75 63 74 75 ./*.** A structu
1e60: 72 65 20 64 65 66 69 6e 69 6e 67 20 68 6f 77 20 re defining how
1e70: 74 6f 20 64 6f 20 47 4c 4f 42 2d 73 74 79 6c 65 to do GLOB-style
1e80: 20 63 6f 6d 70 61 72 69 73 6f 6e 73 2e 0a 2a 2f comparisons..*/
1e90: 0a 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 .struct compareI
1ea0: 6e 66 6f 20 7b 0a 20 20 75 38 20 6d 61 74 63 68 nfo {. u8 match
1eb0: 41 6c 6c 3b 0a 20 20 75 38 20 6d 61 74 63 68 4f All;. u8 matchO
1ec0: 6e 65 3b 0a 20 20 75 38 20 6d 61 74 63 68 53 65 ne;. u8 matchSe
1ed0: 74 3b 0a 20 20 75 38 20 6e 6f 43 61 73 65 3b 0a t;. u8 noCase;.
1ee0: 7d 3b 0a 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 };..static const
1ef0: 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 struct compareI
1f00: 6e 66 6f 20 67 6c 6f 62 49 6e 66 6f 20 3d 20 7b nfo globInfo = {
1f10: 20 27 2a 27 2c 20 27 3f 27 2c 20 27 5b 27 2c 20 '*', '?', '[',
1f20: 30 20 7d 3b 0a 2f 2a 20 54 68 65 20 63 6f 72 72 0 };./* The corr
1f30: 65 63 74 20 53 51 4c 2d 39 32 20 62 65 68 61 76 ect SQL-92 behav
1f40: 69 6f 72 20 69 73 20 66 6f 72 20 74 68 65 20 4c ior is for the L
1f50: 49 4b 45 20 6f 70 65 72 61 74 6f 72 20 74 6f 20 IKE operator to
1f60: 69 67 6e 6f 72 65 0a 2a 2a 20 63 61 73 65 2e 20 ignore.** case.
1f70: 20 54 68 75 73 20 20 27 61 27 20 4c 49 4b 45 20 Thus 'a' LIKE
1f80: 27 41 27 20 77 6f 75 6c 64 20 62 65 20 74 72 75 'A' would be tru
1f90: 65 2e 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e e. */.static con
1fa0: 73 74 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 st struct compar
1fb0: 65 49 6e 66 6f 20 6c 69 6b 65 49 6e 66 6f 4e 6f eInfo likeInfoNo
1fc0: 72 6d 20 3d 20 7b 20 27 25 27 2c 20 27 5f 27 2c rm = { '%', '_',
1fd0: 20 20 20 30 2c 20 31 20 7d 3b 0a 2f 2a 20 49 66 0, 1 };./* If
1fe0: 20 53 51 4c 49 54 45 5f 43 41 53 45 5f 53 45 4e SQLITE_CASE_SEN
1ff0: 53 49 54 49 56 45 5f 4c 49 4b 45 20 69 73 20 64 SITIVE_LIKE is d
2000: 65 66 69 6e 65 64 2c 20 74 68 65 6e 20 74 68 65 efined, then the
2010: 20 4c 49 4b 45 20 6f 70 65 72 61 74 6f 72 0a 2a LIKE operator.*
2020: 2a 20 69 73 20 63 61 73 65 20 73 65 6e 73 69 74 * is case sensit
2030: 69 76 65 20 63 61 75 73 69 6e 67 20 27 61 27 20 ive causing 'a'
2040: 4c 49 4b 45 20 27 41 27 20 74 6f 20 62 65 20 66 LIKE 'A' to be f
2050: 61 6c 73 65 20 2a 2f 0a 73 74 61 74 69 63 20 63 alse */.static c
2060: 6f 6e 73 74 20 73 74 72 75 63 74 20 63 6f 6d 70 onst struct comp
2070: 61 72 65 49 6e 66 6f 20 6c 69 6b 65 49 6e 66 6f areInfo likeInfo
2080: 41 6c 74 20 3d 20 7b 20 27 25 27 2c 20 27 5f 27 Alt = { '%', '_'
2090: 2c 20 20 20 30 2c 20 30 20 7d 3b 0a 0a 2f 2a 0a , 0, 0 };../*.
20a0: 2a 2a 20 58 20 69 73 20 61 20 70 6f 69 6e 74 65 ** X is a pointe
20b0: 72 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 62 r to the first b
20c0: 79 74 65 20 6f 66 20 61 20 55 54 46 2d 38 20 63 yte of a UTF-8 c
20d0: 68 61 72 61 63 74 65 72 2e 20 20 49 6e 63 72 65 haracter. Incre
20e0: 6d 65 6e 74 0a 2a 2a 20 58 20 73 6f 20 74 68 61 ment.** X so tha
20f0: 74 20 69 74 20 70 6f 69 6e 74 73 20 74 6f 20 74 t it points to t
2100: 68 65 20 6e 65 78 74 20 63 68 61 72 61 63 74 65 he next characte
2110: 72 2e 20 20 54 68 69 73 20 6f 6e 6c 79 20 77 6f r. This only wo
2120: 72 6b 73 20 72 69 67 68 74 0a 2a 2a 20 69 66 20 rks right.** if
2130: 58 20 70 6f 69 6e 74 73 20 74 6f 20 61 20 77 65 X points to a we
2140: 6c 6c 2d 66 6f 72 6d 65 64 20 55 54 46 2d 38 20 ll-formed UTF-8
2150: 73 74 72 69 6e 67 2e 0a 2a 2f 0a 23 64 65 66 69 string..*/.#defi
2160: 6e 65 20 73 71 6c 69 74 65 4e 65 78 74 43 68 61 ne sqliteNextCha
2170: 72 28 58 29 20 20 77 68 69 6c 65 28 20 28 30 78 r(X) while( (0x
2180: 63 30 26 2a 2b 2b 28 58 29 29 3d 3d 30 78 38 30 c0&*++(X))==0x80
2190: 20 29 7b 7d 0a 23 64 65 66 69 6e 65 20 73 71 6c ){}.#define sql
21a0: 69 74 65 43 68 61 72 56 61 6c 28 58 29 20 20 20 iteCharVal(X)
21b0: 73 71 6c 69 74 65 33 52 65 61 64 55 74 66 38 28 sqlite3ReadUtf8(
21c0: 58 29 0a 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 61 X).../*.** Compa
21d0: 72 65 20 74 77 6f 20 55 54 46 2d 38 20 73 74 72 re two UTF-8 str
21e0: 69 6e 67 73 20 66 6f 72 20 65 71 75 61 6c 69 74 ings for equalit
21f0: 79 20 77 68 65 72 65 20 74 68 65 20 66 69 72 73 y where the firs
2200: 74 20 73 74 72 69 6e 67 20 63 61 6e 0a 2a 2a 20 t string can.**
2210: 70 6f 74 65 6e 74 69 61 6c 6c 79 20 62 65 20 61 potentially be a
2220: 20 22 67 6c 6f 62 22 20 65 78 70 72 65 73 73 69 "glob" expressi
2230: 6f 6e 2e 20 20 52 65 74 75 72 6e 20 74 72 75 65 on. Return true
2240: 20 28 31 29 20 69 66 20 74 68 65 79 0a 2a 2a 20 (1) if they.**
2250: 61 72 65 20 74 68 65 20 73 61 6d 65 20 61 6e 64 are the same and
2260: 20 66 61 6c 73 65 20 28 30 29 20 69 66 20 74 68 false (0) if th
2270: 65 79 20 61 72 65 20 64 69 66 66 65 72 65 6e 74 ey are different
2280: 2e 0a 2a 2a 0a 2a 2a 20 47 6c 6f 62 62 69 6e 67 ..**.** Globbing
2290: 20 72 75 6c 65 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 rules:.**.**
22a0: 20 20 20 27 2a 27 20 20 20 20 20 20 20 4d 61 74 '*' Mat
22b0: 63 68 65 73 20 61 6e 79 20 73 65 71 75 65 6e 63 ches any sequenc
22c0: 65 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6d 6f 72 e of zero or mor
22d0: 65 20 63 68 61 72 61 63 74 65 72 73 2e 0a 2a 2a e characters..**
22e0: 0a 2a 2a 20 20 20 20 20 20 27 3f 27 20 20 20 20 .** '?'
22f0: 20 20 20 4d 61 74 63 68 65 73 20 65 78 61 63 74 Matches exact
2300: 6c 79 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72 ly one character
2310: 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 5b 2e 2e 2e ..**.** [...
2320: 5d 20 20 20 20 20 20 4d 61 74 63 68 65 73 20 6f ] Matches o
2330: 6e 65 20 63 68 61 72 61 63 74 65 72 20 66 72 6f ne character fro
2340: 6d 20 74 68 65 20 65 6e 63 6c 6f 73 65 64 20 6c m the enclosed l
2350: 69 73 74 20 6f 66 0a 2a 2a 20 20 20 20 20 20 20 ist of.**
2360: 20 20 20 20 20 20 20 20 20 63 68 61 72 61 63 74 charact
2370: 65 72 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 5b ers..**.** [
2380: 5e 2e 2e 2e 5d 20 20 20 20 20 4d 61 74 63 68 65 ^...] Matche
2390: 73 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72 20 s one character
23a0: 6e 6f 74 20 69 6e 20 74 68 65 20 65 6e 63 6c 6f not in the enclo
23b0: 73 65 64 20 6c 69 73 74 2e 0a 2a 2a 0a 2a 2a 20 sed list..**.**
23c0: 57 69 74 68 20 74 68 65 20 5b 2e 2e 2e 5d 20 61 With the [...] a
23d0: 6e 64 20 5b 5e 2e 2e 2e 5d 20 6d 61 74 63 68 69 nd [^...] matchi
23e0: 6e 67 2c 20 61 20 27 5d 27 20 63 68 61 72 61 63 ng, a ']' charac
23f0: 74 65 72 20 63 61 6e 20 62 65 20 69 6e 63 6c 75 ter can be inclu
2400: 64 65 64 0a 2a 2a 20 69 6e 20 74 68 65 20 6c 69 ded.** in the li
2410: 73 74 20 62 79 20 6d 61 6b 69 6e 67 20 69 74 20 st by making it
2420: 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63 the first charac
2430: 74 65 72 20 61 66 74 65 72 20 27 5b 27 20 6f 72 ter after '[' or
2440: 20 27 5e 27 2e 20 20 41 0a 2a 2a 20 72 61 6e 67 '^'. A.** rang
2450: 65 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 e of characters
2460: 63 61 6e 20 62 65 20 73 70 65 63 69 66 69 65 64 can be specified
2470: 20 75 73 69 6e 67 20 27 2d 27 2e 20 20 45 78 61 using '-'. Exa
2480: 6d 70 6c 65 3a 0a 2a 2a 20 22 5b 61 2d 7a 5d 22 mple:.** "[a-z]"
2490: 20 6d 61 74 63 68 65 73 20 61 6e 79 20 73 69 6e matches any sin
24a0: 67 6c 65 20 6c 6f 77 65 72 2d 63 61 73 65 20 6c gle lower-case l
24b0: 65 74 74 65 72 2e 20 20 54 6f 20 6d 61 74 63 68 etter. To match
24c0: 20 61 20 27 2d 27 2c 20 6d 61 6b 65 0a 2a 2a 20 a '-', make.**
24d0: 69 74 20 74 68 65 20 6c 61 73 74 20 63 68 61 72 it the last char
24e0: 61 63 74 65 72 20 69 6e 20 74 68 65 20 6c 69 73 acter in the lis
24f0: 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f t..**.** This ro
2500: 75 74 69 6e 65 20 69 73 20 75 73 75 61 6c 6c 79 utine is usually
2510: 20 71 75 69 63 6b 2c 20 62 75 74 20 63 61 6e 20 quick, but can
2520: 62 65 20 4e 2a 2a 32 20 69 6e 20 74 68 65 20 77 be N**2 in the w
2530: 6f 72 73 74 20 63 61 73 65 2e 0a 2a 2a 0a 2a 2a orst case..**.**
2540: 20 48 69 6e 74 73 3a 20 74 6f 20 6d 61 74 63 68 Hints: to match
2550: 20 27 2a 27 20 6f 72 20 27 3f 27 2c 20 70 75 74 '*' or '?', put
2560: 20 74 68 65 6d 20 69 6e 20 22 5b 5d 22 2e 20 20 them in "[]".
2570: 4c 69 6b 65 20 74 68 69 73 3a 0a 2a 2a 0a 2a 2a Like this:.**.**
2580: 20 20 20 20 20 20 20 20 20 61 62 63 5b 2a 5d 78 abc[*]x
2590: 79 7a 20 20 20 20 20 20 20 20 4d 61 74 63 68 65 yz Matche
25a0: 73 20 22 61 62 63 2a 78 79 7a 22 20 6f 6e 6c 79 s "abc*xyz" only
25b0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 70 .*/.static int p
25c0: 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 0a 20 atternCompare(.
25d0: 20 63 6f 6e 73 74 20 75 38 20 2a 7a 50 61 74 74 const u8 *zPatt
25e0: 65 72 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 ern,
25f0: 20 20 2f 2a 20 54 68 65 20 67 6c 6f 62 20 70 61 /* The glob pa
2600: 74 74 65 72 6e 20 2a 2f 0a 20 20 63 6f 6e 73 74 ttern */. const
2610: 20 75 38 20 2a 7a 53 74 72 69 6e 67 2c 20 20 20 u8 *zString,
2620: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
2630: 68 65 20 73 74 72 69 6e 67 20 74 6f 20 63 6f 6d he string to com
2640: 70 61 72 65 20 61 67 61 69 6e 73 74 20 74 68 65 pare against the
2650: 20 67 6c 6f 62 20 2a 2f 0a 20 20 63 6f 6e 73 74 glob */. const
2660: 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 struct compareI
2670: 6e 66 6f 20 2a 70 49 6e 66 6f 2c 20 2f 2a 20 49 nfo *pInfo, /* I
2680: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 nformation about
2690: 20 68 6f 77 20 74 6f 20 64 6f 20 74 68 65 20 63 how to do the c
26a0: 6f 6d 70 61 72 65 20 2a 2f 0a 20 20 63 6f 6e 73 ompare */. cons
26b0: 74 20 69 6e 74 20 65 73 63 20 20 20 20 20 20 20 t int esc
26c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
26d0: 54 68 65 20 65 73 63 61 70 65 20 63 68 61 72 61 The escape chara
26e0: 63 74 65 72 20 2a 2f 0a 29 7b 0a 20 20 72 65 67 cter */.){. reg
26f0: 69 73 74 65 72 20 69 6e 74 20 63 3b 0a 20 20 69 ister int c;. i
2700: 6e 74 20 69 6e 76 65 72 74 3b 0a 20 20 69 6e 74 nt invert;. int
2710: 20 73 65 65 6e 3b 0a 20 20 69 6e 74 20 63 32 3b seen;. int c2;
2720: 0a 20 20 75 38 20 6d 61 74 63 68 4f 6e 65 20 3d . u8 matchOne =
2730: 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 4f 6e 65 pInfo->matchOne
2740: 3b 0a 20 20 75 38 20 6d 61 74 63 68 41 6c 6c 20 ;. u8 matchAll
2750: 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 41 6c = pInfo->matchAl
2760: 6c 3b 0a 20 20 75 38 20 6d 61 74 63 68 53 65 74 l;. u8 matchSet
2770: 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 53 = pInfo->matchS
2780: 65 74 3b 0a 20 20 75 38 20 6e 6f 43 61 73 65 20 et;. u8 noCase
2790: 3d 20 70 49 6e 66 6f 2d 3e 6e 6f 43 61 73 65 3b = pInfo->noCase;
27a0: 20 0a 20 20 69 6e 74 20 70 72 65 76 45 73 63 61 . int prevEsca
27b0: 70 65 20 3d 20 30 3b 20 20 20 20 20 2f 2a 20 54 pe = 0; /* T
27c0: 72 75 65 20 69 66 20 74 68 65 20 70 72 65 76 69 rue if the previ
27d0: 6f 75 73 20 63 68 61 72 61 63 74 65 72 20 77 61 ous character wa
27e0: 73 20 27 65 73 63 61 70 65 27 20 2a 2f 0a 0a 20 s 'escape' */..
27f0: 20 77 68 69 6c 65 28 20 28 63 20 3d 20 2a 7a 50 while( (c = *zP
2800: 61 74 74 65 72 6e 29 21 3d 30 20 29 7b 0a 20 20 attern)!=0 ){.
2810: 20 20 69 66 28 20 21 70 72 65 76 45 73 63 61 70 if( !prevEscap
2820: 65 20 26 26 20 63 3d 3d 6d 61 74 63 68 41 6c 6c e && c==matchAll
2830: 20 29 7b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 ){. while(
2840: 20 28 63 3d 7a 50 61 74 74 65 72 6e 5b 31 5d 29 (c=zPattern[1])
2850: 20 3d 3d 20 6d 61 74 63 68 41 6c 6c 20 7c 7c 20 == matchAll ||
2860: 63 20 3d 3d 20 6d 61 74 63 68 4f 6e 65 20 29 7b c == matchOne ){
2870: 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d . if( c==
2880: 6d 61 74 63 68 4f 6e 65 20 29 7b 0a 20 20 20 20 matchOne ){.
2890: 20 20 20 20 20 20 69 66 28 20 2a 7a 53 74 72 69 if( *zStri
28a0: 6e 67 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 ng==0 ) return 0
28b0: 3b 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 ;. sqli
28c0: 74 65 4e 65 78 74 43 68 61 72 28 7a 53 74 72 69 teNextChar(zStri
28d0: 6e 67 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 ng);. }.
28e0: 20 20 20 20 20 20 20 7a 50 61 74 74 65 72 6e 2b zPattern+
28f0: 2b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 +;. }.
2900: 20 69 66 28 20 63 20 26 26 20 65 73 63 20 26 26 if( c && esc &&
2910: 20 73 71 6c 69 74 65 33 52 65 61 64 55 74 66 38 sqlite3ReadUtf8
2920: 28 26 7a 50 61 74 74 65 72 6e 5b 31 5d 29 3d 3d (&zPattern[1])==
2930: 65 73 63 20 29 7b 0a 20 20 20 20 20 20 20 20 75 esc ){. u
2940: 38 20 63 6f 6e 73 74 20 2a 7a 54 65 6d 70 20 3d 8 const *zTemp =
2950: 20 26 7a 50 61 74 74 65 72 6e 5b 31 5d 3b 0a 20 &zPattern[1];.
2960: 20 20 20 20 20 20 20 73 71 6c 69 74 65 4e 65 78 sqliteNex
2970: 74 43 68 61 72 28 7a 54 65 6d 70 29 3b 0a 20 20 tChar(zTemp);.
2980: 20 20 20 20 20 20 63 20 3d 20 2a 7a 54 65 6d 70 c = *zTemp
2990: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 ;. }.
29a0: 69 66 28 20 63 3d 3d 30 20 29 20 72 65 74 75 72 if( c==0 ) retur
29b0: 6e 20 31 3b 0a 20 20 20 20 20 20 69 66 28 20 63 n 1;. if( c
29c0: 3d 3d 6d 61 74 63 68 53 65 74 20 29 7b 0a 20 20 ==matchSet ){.
29d0: 20 20 20 20 20 20 61 73 73 65 72 74 28 20 65 73 assert( es
29e0: 63 3d 3d 30 20 29 3b 20 20 20 2f 2a 20 54 68 69 c==0 ); /* Thi
29f0: 73 20 69 73 20 47 4c 4f 42 2c 20 6e 6f 74 20 4c s is GLOB, not L
2a00: 49 4b 45 20 2a 2f 0a 20 20 20 20 20 20 20 20 77 IKE */. w
2a10: 68 69 6c 65 28 20 2a 7a 53 74 72 69 6e 67 20 26 hile( *zString &
2a20: 26 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 & patternCompare
2a30: 28 26 7a 50 61 74 74 65 72 6e 5b 31 5d 2c 7a 53 (&zPattern[1],zS
2a40: 74 72 69 6e 67 2c 70 49 6e 66 6f 2c 65 73 63 29 tring,pInfo,esc)
2a50: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 ==0 ){.
2a60: 20 73 71 6c 69 74 65 4e 65 78 74 43 68 61 72 28 sqliteNextChar(
2a70: 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 20 zString);.
2a80: 20 20 7d 0a 20 20 20 20 20 20 20 20 72 65 74 75 }. retu
2a90: 72 6e 20 2a 7a 53 74 72 69 6e 67 21 3d 30 3b 0a rn *zString!=0;.
2aa0: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 }else{.
2ab0: 20 20 20 20 20 77 68 69 6c 65 28 20 28 63 32 20 while( (c2
2ac0: 3d 20 2a 7a 53 74 72 69 6e 67 29 21 3d 30 20 29 = *zString)!=0 )
2ad0: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 {. if(
2ae0: 6e 6f 43 61 73 65 20 29 7b 0a 20 20 20 20 20 20 noCase ){.
2af0: 20 20 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74 c2 = sqlit
2b00: 65 33 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b 63 e3UpperToLower[c
2b10: 32 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 2];.
2b20: 63 20 3d 20 73 71 6c 69 74 65 33 55 70 70 65 72 c = sqlite3Upper
2b30: 54 6f 4c 6f 77 65 72 5b 63 5d 3b 0a 20 20 20 20 ToLower[c];.
2b40: 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 63 while( c
2b50: 32 20 21 3d 20 30 20 26 26 20 63 32 20 21 3d 20 2 != 0 && c2 !=
2b60: 63 20 29 7b 20 63 32 20 3d 20 73 71 6c 69 74 65 c ){ c2 = sqlite
2b70: 33 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b 2a 2b 3UpperToLower[*+
2b80: 2b 7a 53 74 72 69 6e 67 5d 3b 20 7d 0a 20 20 20 +zString]; }.
2b90: 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 }else{.
2ba0: 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 while(
2bb0: 20 63 32 20 21 3d 20 30 20 26 26 20 63 32 20 21 c2 != 0 && c2 !
2bc0: 3d 20 63 20 29 7b 20 63 32 20 3d 20 2a 2b 2b 7a = c ){ c2 = *++z
2bd0: 53 74 72 69 6e 67 3b 20 7d 0a 20 20 20 20 20 20 String; }.
2be0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 }.
2bf0: 69 66 28 20 63 32 3d 3d 30 20 29 20 72 65 74 75 if( c2==0 ) retu
2c00: 72 6e 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 rn 0;.
2c10: 69 66 28 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 if( patternCompa
2c20: 72 65 28 26 7a 50 61 74 74 65 72 6e 5b 31 5d 2c re(&zPattern[1],
2c30: 7a 53 74 72 69 6e 67 2c 70 49 6e 66 6f 2c 65 73 zString,pInfo,es
2c40: 63 29 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 20 c) ) return 1;.
2c50: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 4e sqliteN
2c60: 65 78 74 43 68 61 72 28 7a 53 74 72 69 6e 67 29 extChar(zString)
2c70: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
2c80: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 return 0;.
2c90: 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 20 }. }else
2ca0: 69 66 28 20 21 70 72 65 76 45 73 63 61 70 65 20 if( !prevEscape
2cb0: 26 26 20 63 3d 3d 6d 61 74 63 68 4f 6e 65 20 29 && c==matchOne )
2cc0: 7b 0a 20 20 20 20 20 20 69 66 28 20 2a 7a 53 74 {. if( *zSt
2cd0: 72 69 6e 67 3d 3d 30 20 29 20 72 65 74 75 72 6e ring==0 ) return
2ce0: 20 30 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 0;. sqlite
2cf0: 4e 65 78 74 43 68 61 72 28 7a 53 74 72 69 6e 67 NextChar(zString
2d00: 29 3b 0a 20 20 20 20 20 20 7a 50 61 74 74 65 72 );. zPatter
2d10: 6e 2b 2b 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 n++;. }else i
2d20: 66 28 20 63 3d 3d 6d 61 74 63 68 53 65 74 20 29 f( c==matchSet )
2d30: 7b 0a 20 20 20 20 20 20 69 6e 74 20 70 72 69 6f {. int prio
2d40: 72 5f 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 61 r_c = 0;. a
2d50: 73 73 65 72 74 28 20 65 73 63 3d 3d 30 20 29 3b ssert( esc==0 );
2d60: 20 20 20 20 2f 2a 20 54 68 69 73 20 6f 6e 6c 79 /* This only
2d70: 20 6f 63 63 75 72 73 20 66 6f 72 20 47 4c 4f 42 occurs for GLOB
2d80: 2c 20 6e 6f 74 20 4c 49 4b 45 20 2a 2f 0a 20 20 , not LIKE */.
2d90: 20 20 20 20 73 65 65 6e 20 3d 20 30 3b 0a 20 20 seen = 0;.
2da0: 20 20 20 20 69 6e 76 65 72 74 20 3d 20 30 3b 0a invert = 0;.
2db0: 20 20 20 20 20 20 63 20 3d 20 73 71 6c 69 74 65 c = sqlite
2dc0: 43 68 61 72 56 61 6c 28 7a 53 74 72 69 6e 67 29 CharVal(zString)
2dd0: 3b 0a 20 20 20 20 20 20 69 66 28 20 63 3d 3d 30 ;. if( c==0
2de0: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 ) return 0;.
2df0: 20 20 20 63 32 20 3d 20 2a 2b 2b 7a 50 61 74 74 c2 = *++zPatt
2e00: 65 72 6e 3b 0a 20 20 20 20 20 20 69 66 28 20 63 ern;. if( c
2e10: 32 3d 3d 27 5e 27 20 29 7b 20 69 6e 76 65 72 74 2=='^' ){ invert
2e20: 20 3d 20 31 3b 20 63 32 20 3d 20 2a 2b 2b 7a 50 = 1; c2 = *++zP
2e30: 61 74 74 65 72 6e 3b 20 7d 0a 20 20 20 20 20 20 attern; }.
2e40: 69 66 28 20 63 32 3d 3d 27 5d 27 20 29 7b 0a 20 if( c2==']' ){.
2e50: 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d 27 5d if( c==']
2e60: 27 20 29 20 73 65 65 6e 20 3d 20 31 3b 0a 20 20 ' ) seen = 1;.
2e70: 20 20 20 20 20 20 63 32 20 3d 20 2a 2b 2b 7a 50 c2 = *++zP
2e80: 61 74 74 65 72 6e 3b 0a 20 20 20 20 20 20 7d 0a attern;. }.
2e90: 20 20 20 20 20 20 77 68 69 6c 65 28 20 28 63 32 while( (c2
2ea0: 20 3d 20 73 71 6c 69 74 65 43 68 61 72 56 61 6c = sqliteCharVal
2eb0: 28 7a 50 61 74 74 65 72 6e 29 29 21 3d 30 20 26 (zPattern))!=0 &
2ec0: 26 20 63 32 21 3d 27 5d 27 20 29 7b 0a 20 20 20 & c2!=']' ){.
2ed0: 20 20 20 20 20 69 66 28 20 63 32 3d 3d 27 2d 27 if( c2=='-'
2ee0: 20 26 26 20 7a 50 61 74 74 65 72 6e 5b 31 5d 21 && zPattern[1]!
2ef0: 3d 27 5d 27 20 26 26 20 7a 50 61 74 74 65 72 6e =']' && zPattern
2f00: 5b 31 5d 21 3d 30 20 26 26 20 70 72 69 6f 72 5f [1]!=0 && prior_
2f10: 63 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 c>0 ){.
2f20: 20 7a 50 61 74 74 65 72 6e 2b 2b 3b 0a 20 20 20 zPattern++;.
2f30: 20 20 20 20 20 20 20 63 32 20 3d 20 73 71 6c 69 c2 = sqli
2f40: 74 65 43 68 61 72 56 61 6c 28 7a 50 61 74 74 65 teCharVal(zPatte
2f50: 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 rn);. i
2f60: 66 28 20 63 3e 3d 70 72 69 6f 72 5f 63 20 26 26 f( c>=prior_c &&
2f70: 20 63 3c 3d 63 32 20 29 20 73 65 65 6e 20 3d 20 c<=c2 ) seen =
2f80: 31 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 69 1;. pri
2f90: 6f 72 5f 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 or_c = 0;.
2fa0: 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d 63 }else if( c==c
2fb0: 32 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 73 2 ){. s
2fc0: 65 65 6e 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 een = 1;.
2fd0: 20 20 20 70 72 69 6f 72 5f 63 20 3d 20 63 32 3b prior_c = c2;
2fe0: 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a . }else{.
2ff0: 20 20 20 20 20 20 20 20 20 20 70 72 69 6f 72 5f prior_
3000: 63 20 3d 20 63 32 3b 0a 20 20 20 20 20 20 20 20 c = c2;.
3010: 7d 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 }. sqlite
3020: 4e 65 78 74 43 68 61 72 28 7a 50 61 74 74 65 72 NextChar(zPatter
3030: 6e 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 n);. }.
3040: 20 20 69 66 28 20 63 32 3d 3d 30 20 7c 7c 20 28 if( c2==0 || (
3050: 73 65 65 6e 20 5e 20 69 6e 76 65 72 74 29 3d 3d seen ^ invert)==
3060: 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 0 ) return 0;.
3070: 20 20 20 20 73 71 6c 69 74 65 4e 65 78 74 43 68 sqliteNextCh
3080: 61 72 28 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 ar(zString);.
3090: 20 20 20 7a 50 61 74 74 65 72 6e 2b 2b 3b 0a 20 zPattern++;.
30a0: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 65 73 63 }else if( esc
30b0: 20 26 26 20 21 70 72 65 76 45 73 63 61 70 65 20 && !prevEscape
30c0: 26 26 20 73 71 6c 69 74 65 33 52 65 61 64 55 74 && sqlite3ReadUt
30d0: 66 38 28 7a 50 61 74 74 65 72 6e 29 3d 3d 65 73 f8(zPattern)==es
30e0: 63 29 7b 0a 20 20 20 20 20 20 70 72 65 76 45 73 c){. prevEs
30f0: 63 61 70 65 20 3d 20 31 3b 0a 20 20 20 20 20 20 cape = 1;.
3100: 73 71 6c 69 74 65 4e 65 78 74 43 68 61 72 28 7a sqliteNextChar(z
3110: 50 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 7d 65 Pattern);. }e
3120: 6c 73 65 7b 0a 20 20 20 20 20 20 69 66 28 20 6e lse{. if( n
3130: 6f 43 61 73 65 20 29 7b 0a 20 20 20 20 20 20 20 oCase ){.
3140: 20 69 66 28 20 73 71 6c 69 74 65 33 55 70 70 65 if( sqlite3Uppe
3150: 72 54 6f 4c 6f 77 65 72 5b 63 5d 20 21 3d 20 73 rToLower[c] != s
3160: 71 6c 69 74 65 33 55 70 70 65 72 54 6f 4c 6f 77 qlite3UpperToLow
3170: 65 72 5b 2a 7a 53 74 72 69 6e 67 5d 20 29 20 72 er[*zString] ) r
3180: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 7d eturn 0;. }
3190: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 69 66 else{. if
31a0: 28 20 63 20 21 3d 20 2a 7a 53 74 72 69 6e 67 20 ( c != *zString
31b0: 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ) return 0;.
31c0: 20 20 7d 0a 20 20 20 20 20 20 7a 50 61 74 74 65 }. zPatte
31d0: 72 6e 2b 2b 3b 0a 20 20 20 20 20 20 7a 53 74 72 rn++;. zStr
31e0: 69 6e 67 2b 2b 3b 0a 20 20 20 20 20 20 70 72 65 ing++;. pre
31f0: 76 45 73 63 61 70 65 20 3d 20 30 3b 0a 20 20 20 vEscape = 0;.
3200: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 }. }. return
3210: 2a 7a 53 74 72 69 6e 67 3d 3d 30 3b 0a 7d 0a 0a *zString==0;.}..
3220: 2f 2a 0a 2a 2a 20 43 6f 75 6e 74 20 74 68 65 20 /*.** Count the
3230: 6e 75 6d 62 65 72 20 6f 66 20 74 69 6d 65 73 20 number of times
3240: 74 68 61 74 20 74 68 65 20 4c 49 4b 45 20 6f 70 that the LIKE op
3250: 65 72 61 74 6f 72 20 28 6f 72 20 47 4c 4f 42 20 erator (or GLOB
3260: 77 68 69 63 68 20 69 73 0a 2a 2a 20 6a 75 73 74 which is.** just
3270: 20 61 20 76 61 72 69 61 74 69 6f 6e 20 6f 66 20 a variation of
3280: 4c 49 4b 45 29 20 67 65 74 73 20 63 61 6c 6c 65 LIKE) gets calle
3290: 64 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 64 d. This is used
32a0: 20 66 6f 72 20 74 65 73 74 69 6e 67 0a 2a 2a 20 for testing.**
32b0: 6f 6e 6c 79 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 only..*/.#ifdef
32c0: 53 51 4c 49 54 45 5f 54 45 53 54 0a 69 6e 74 20 SQLITE_TEST.int
32d0: 73 71 6c 69 74 65 33 5f 6c 69 6b 65 5f 63 6f 75 sqlite3_like_cou
32e0: 6e 74 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 0a nt = 0;.#endif..
32f0: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
3300: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c 69 6b ation of the lik
3310: 65 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e e() SQL function
3320: 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e . This function
3330: 20 69 6d 70 6c 65 6d 65 6e 74 73 0a 2a 2a 20 74 implements.** t
3340: 68 65 20 62 75 69 6c 64 2d 69 6e 20 4c 49 4b 45 he build-in LIKE
3350: 20 6f 70 65 72 61 74 6f 72 2e 20 20 54 68 65 20 operator. The
3360: 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74 first argument t
3370: 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 o the function i
3380: 73 20 74 68 65 0a 2a 2a 20 70 61 74 74 65 72 6e s the.** pattern
3390: 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 and the second
33a0: 61 72 67 75 6d 65 6e 74 20 69 73 20 74 68 65 20 argument is the
33b0: 73 74 72 69 6e 67 2e 20 20 53 6f 2c 20 74 68 65 string. So, the
33c0: 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 3a SQL statements:
33d0: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 41 20 4c .**.** A L
33e0: 49 4b 45 20 42 0a 2a 2a 0a 2a 2a 20 69 73 20 69 IKE B.**.** is i
33f0: 6d 70 6c 65 6d 65 6e 74 65 64 20 61 73 20 6c 69 mplemented as li
3400: 6b 65 28 42 2c 41 29 2e 0a 2a 2a 0a 2a 2a 20 54 ke(B,A)..**.** T
3410: 68 69 73 20 73 61 6d 65 20 66 75 6e 63 74 69 6f his same functio
3420: 6e 20 28 77 69 74 68 20 61 20 64 69 66 66 65 72 n (with a differ
3430: 65 6e 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 ent compareInfo
3440: 73 74 72 75 63 74 75 72 65 29 20 63 6f 6d 70 75 structure) compu
3450: 74 65 73 0a 2a 2a 20 74 68 65 20 47 4c 4f 42 20 tes.** the GLOB
3460: 6f 70 65 72 61 74 6f 72 2e 0a 2a 2f 0a 73 74 61 operator..*/.sta
3470: 74 69 63 20 76 6f 69 64 20 6c 69 6b 65 46 75 6e tic void likeFun
3480: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
3490: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 0a text *context, .
34a0: 20 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 20 73 int argc, . s
34b0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
34c0: 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 75 rgv.){. const u
34d0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 41 nsigned char *zA
34e0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
34f0: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a _text(argv[0]);.
3500: 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 const unsigned
3510: 20 63 68 61 72 20 2a 7a 42 20 3d 20 73 71 6c 69 char *zB = sqli
3520: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
3530: 72 67 76 5b 31 5d 29 3b 0a 20 20 69 6e 74 20 65 rgv[1]);. int e
3540: 73 63 61 70 65 20 3d 20 30 3b 0a 20 20 69 66 28 scape = 0;. if(
3550: 20 61 72 67 63 3d 3d 33 20 29 7b 0a 20 20 20 20 argc==3 ){.
3560: 2f 2a 20 54 68 65 20 65 73 63 61 70 65 20 63 68 /* The escape ch
3570: 61 72 61 63 74 65 72 20 73 74 72 69 6e 67 20 6d aracter string m
3580: 75 73 74 20 63 6f 6e 73 69 73 74 20 6f 66 20 61 ust consist of a
3590: 20 73 69 6e 67 6c 65 20 55 54 46 2d 38 20 63 68 single UTF-8 ch
35a0: 61 72 61 63 74 65 72 2e 0a 20 20 20 20 2a 2a 20 aracter.. **
35b0: 4f 74 68 65 72 77 69 73 65 2c 20 72 65 74 75 72 Otherwise, retur
35c0: 6e 20 61 6e 20 65 72 72 6f 72 2e 0a 20 20 20 20 n an error..
35d0: 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 75 6e 73 */. const uns
35e0: 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 45 73 63 igned char *zEsc
35f0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
3600: 5f 74 65 78 74 28 61 72 67 76 5b 32 5d 29 3b 0a _text(argv[2]);.
3610: 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 75 if( sqlite3u
3620: 74 66 38 43 68 61 72 4c 65 6e 28 28 63 68 61 72 tf8CharLen((char
3630: 2a 29 7a 45 73 63 2c 20 2d 31 29 21 3d 31 20 29 *)zEsc, -1)!=1 )
3640: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f {. sqlite3_
3650: 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e result_error(con
3660: 74 65 78 74 2c 20 0a 20 20 20 20 20 20 20 20 20 text, .
3670: 20 22 45 53 43 41 50 45 20 65 78 70 72 65 73 73 "ESCAPE express
3680: 69 6f 6e 20 6d 75 73 74 20 62 65 20 61 20 73 69 ion must be a si
3690: 6e 67 6c 65 20 63 68 61 72 61 63 74 65 72 22 2c ngle character",
36a0: 20 2d 31 29 3b 0a 20 20 20 20 20 20 72 65 74 75 -1);. retu
36b0: 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 73 rn;. }. es
36c0: 63 61 70 65 20 3d 20 73 71 6c 69 74 65 33 52 65 cape = sqlite3Re
36d0: 61 64 55 74 66 38 28 7a 45 73 63 29 3b 0a 20 20 adUtf8(zEsc);.
36e0: 7d 0a 20 20 69 66 28 20 7a 41 20 26 26 20 7a 42 }. if( zA && zB
36f0: 20 29 7b 0a 20 20 20 20 73 74 72 75 63 74 20 63 ){. struct c
3700: 6f 6d 70 61 72 65 49 6e 66 6f 20 2a 70 49 6e 66 ompareInfo *pInf
3710: 6f 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65 72 o = sqlite3_user
3720: 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a _data(context);.
3730: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 #ifdef SQLITE_TE
3740: 53 54 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6c ST. sqlite3_l
3750: 69 6b 65 5f 63 6f 75 6e 74 2b 2b 3b 0a 23 65 6e ike_count++;.#en
3760: 64 69 66 0a 20 20 20 20 73 71 6c 69 74 65 33 5f dif. sqlite3_
3770: 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 result_int(conte
3780: 78 74 2c 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 xt, patternCompa
3790: 72 65 28 7a 41 2c 20 7a 42 2c 20 70 49 6e 66 6f re(zA, zB, pInfo
37a0: 2c 20 65 73 63 61 70 65 29 29 3b 0a 20 20 7d 0a , escape));. }.
37b0: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 }../*.** Impleme
37c0: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 4e ntation of the N
37d0: 55 4c 4c 49 46 28 78 2c 79 29 20 66 75 6e 63 74 ULLIF(x,y) funct
37e0: 69 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c 74 ion. The result
37f0: 20 69 73 20 74 68 65 20 66 69 72 73 74 0a 2a 2a is the first.**
3800: 20 61 72 67 75 6d 65 6e 74 20 69 66 20 74 68 65 argument if the
3810: 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 64 arguments are d
3820: 69 66 66 65 72 65 6e 74 2e 20 20 54 68 65 20 72 ifferent. The r
3830: 65 73 75 6c 74 20 69 73 20 4e 55 4c 4c 20 69 66 esult is NULL if
3840: 20 74 68 65 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 the.** argument
3850: 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 65 s are equal to e
3860: 61 63 68 20 6f 74 68 65 72 2e 0a 2a 2f 0a 73 74 ach other..*/.st
3870: 61 74 69 63 20 76 6f 69 64 20 6e 75 6c 6c 69 66 atic void nullif
3880: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
3890: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
38a0: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
38b0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
38c0: 61 72 67 76 0a 29 7b 0a 20 20 43 6f 6c 6c 53 65 argv.){. CollSe
38d0: 71 20 2a 70 43 6f 6c 6c 20 3d 20 73 71 6c 69 74 q *pColl = sqlit
38e0: 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71 e3GetFuncCollSeq
38f0: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 69 66 28 (context);. if(
3900: 20 73 71 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 sqlite3MemCompa
3910: 72 65 28 61 72 67 76 5b 30 5d 2c 20 61 72 67 76 re(argv[0], argv
3920: 5b 31 5d 2c 20 70 43 6f 6c 6c 29 21 3d 30 20 29 [1], pColl)!=0 )
3930: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 {. sqlite3_re
3940: 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 sult_value(conte
3950: 78 74 2c 20 61 72 67 76 5b 30 5d 29 3b 0a 20 20 xt, argv[0]);.
3960: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 }.}../*.** Imple
3970: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 mentation of the
3980: 20 56 45 52 53 49 4f 4e 28 2a 29 20 66 75 6e 63 VERSION(*) func
3990: 74 69 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c tion. The resul
39a0: 74 20 69 73 20 74 68 65 20 76 65 72 73 69 6f 6e t is the version
39b0: 0a 2a 2a 20 6f 66 20 74 68 65 20 53 51 4c 69 74 .** of the SQLit
39c0: 65 20 6c 69 62 72 61 72 79 20 74 68 61 74 20 69 e library that i
39d0: 73 20 72 75 6e 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 s running..*/.st
39e0: 61 74 69 63 20 76 6f 69 64 20 76 65 72 73 69 6f atic void versio
39f0: 6e 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 nFunc(. sqlite3
3a00: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
3a10: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 t,. int argc,.
3a20: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
3a30: 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 *argv.){. sqlit
3a40: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 e3_result_text(c
3a50: 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f ontext, sqlite3_
3a60: 76 65 72 73 69 6f 6e 2c 20 2d 31 2c 20 53 51 4c version, -1, SQL
3a70: 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 7d 0a 0a ITE_STATIC);.}..
3a80: 0a 2f 2a 0a 2a 2a 20 45 58 50 45 52 49 4d 45 4e ./*.** EXPERIMEN
3a90: 54 41 4c 20 2d 20 54 68 69 73 20 69 73 20 6e 6f TAL - This is no
3aa0: 74 20 61 6e 20 6f 66 66 69 63 69 61 6c 20 66 75 t an official fu
3ab0: 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 69 6e 74 nction. The int
3ac0: 65 72 66 61 63 65 20 6d 61 79 0a 2a 2a 20 63 68 erface may.** ch
3ad0: 61 6e 67 65 2e 20 20 54 68 69 73 20 66 75 6e 63 ange. This func
3ae0: 74 69 6f 6e 20 6d 61 79 20 64 69 73 61 70 70 65 tion may disappe
3af0: 61 72 2e 20 20 44 6f 20 6e 6f 74 20 77 72 69 74 ar. Do not writ
3b00: 65 20 63 6f 64 65 20 74 68 61 74 20 64 65 70 65 e code that depe
3b10: 6e 64 73 0a 2a 2a 20 6f 6e 20 74 68 69 73 20 66 nds.** on this f
3b20: 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 49 unction..**.** I
3b30: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
3b40: 20 74 68 65 20 51 55 4f 54 45 28 29 20 66 75 6e the QUOTE() fun
3b50: 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 66 75 6e ction. This fun
3b60: 63 74 69 6f 6e 20 74 61 6b 65 73 20 61 20 73 69 ction takes a si
3b70: 6e 67 6c 65 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 ngle.** argument
3b80: 2e 20 20 49 66 20 74 68 65 20 61 72 67 75 6d 65 . If the argume
3b90: 6e 74 20 69 73 20 6e 75 6d 65 72 69 63 2c 20 74 nt is numeric, t
3ba0: 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 he return value
3bb0: 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 0a 2a is the same as.*
3bc0: 2a 20 74 68 65 20 61 72 67 75 6d 65 6e 74 2e 20 * the argument.
3bd0: 20 49 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 If the argument
3be0: 20 69 73 20 4e 55 4c 4c 2c 20 74 68 65 20 72 65 is NULL, the re
3bf0: 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68 turn value is th
3c00: 65 20 73 74 72 69 6e 67 0a 2a 2a 20 22 4e 55 4c e string.** "NUL
3c10: 4c 22 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 L". Otherwise,
3c20: 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 20 the argument is
3c30: 65 6e 63 6c 6f 73 65 64 20 69 6e 20 73 69 6e 67 enclosed in sing
3c40: 6c 65 20 71 75 6f 74 65 73 20 77 69 74 68 0a 2a le quotes with.*
3c50: 2a 20 73 69 6e 67 6c 65 2d 71 75 6f 74 65 20 65 * single-quote e
3c60: 73 63 61 70 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 scapes..*/.stati
3c70: 63 20 76 6f 69 64 20 71 75 6f 74 65 46 75 6e 63 c void quoteFunc
3c80: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 (sqlite3_context
3c90: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 *context, int a
3ca0: 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c rgc, sqlite3_val
3cb0: 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 66 ue **argv){. if
3cc0: 28 20 61 72 67 63 3c 31 20 29 20 72 65 74 75 72 ( argc<1 ) retur
3cd0: 6e 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71 6c n;. switch( sql
3ce0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 ite3_value_type(
3cf0: 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 argv[0]) ){.
3d00: 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c case SQLITE_NULL
3d10: 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 : {. sqlite
3d20: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 3_result_text(co
3d30: 6e 74 65 78 74 2c 20 22 4e 55 4c 4c 22 2c 20 34 ntext, "NULL", 4
3d40: 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 , SQLITE_STATIC)
3d50: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
3d60: 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 53 51 }. case SQ
3d70: 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a 0a 20 20 LITE_INTEGER:.
3d80: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 46 4c case SQLITE_FL
3d90: 4f 41 54 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c OAT: {. sql
3da0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 ite3_result_valu
3db0: 65 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b e(context, argv[
3dc0: 30 5d 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 0]);. break
3dd0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 ;. }. case
3de0: 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 20 7b 0a SQLITE_BLOB: {.
3df0: 20 20 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e static con
3e00: 73 74 20 63 68 61 72 20 68 65 78 64 69 67 69 74 st char hexdigit
3e10: 73 5b 5d 20 3d 20 7b 20 0a 20 20 20 20 20 20 20 s[] = { .
3e20: 20 27 30 27 2c 20 27 31 27 2c 20 27 32 27 2c 20 '0', '1', '2',
3e30: 27 33 27 2c 20 27 34 27 2c 20 27 35 27 2c 20 27 '3', '4', '5', '
3e40: 36 27 2c 20 27 37 27 2c 0a 20 20 20 20 20 20 20 6', '7',.
3e50: 20 27 38 27 2c 20 27 39 27 2c 20 27 41 27 2c 20 '8', '9', 'A',
3e60: 27 42 27 2c 20 27 43 27 2c 20 27 44 27 2c 20 27 'B', 'C', 'D', '
3e70: 45 27 2c 20 27 46 27 20 0a 20 20 20 20 20 20 7d E', 'F' . }
3e80: 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a 54 ;. char *zT
3e90: 65 78 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 69 ext = 0;. i
3ea0: 6e 74 20 6e 42 6c 6f 62 20 3d 20 73 71 6c 69 74 nt nBlob = sqlit
3eb0: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 e3_value_bytes(a
3ec0: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 63 rgv[0]);. c
3ed0: 68 61 72 20 63 6f 6e 73 74 20 2a 7a 42 6c 6f 62 har const *zBlob
3ee0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
3ef0: 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d 29 3b 0a _blob(argv[0]);.
3f00: 0a 20 20 20 20 20 20 7a 54 65 78 74 20 3d 20 28 . zText = (
3f10: 63 68 61 72 20 2a 29 73 71 6c 69 74 65 4d 61 6c char *)sqliteMal
3f20: 6c 6f 63 28 28 32 2a 6e 42 6c 6f 62 29 2b 34 29 loc((2*nBlob)+4)
3f30: 3b 20 0a 20 20 20 20 20 20 69 66 28 20 21 7a 54 ; . if( !zT
3f40: 65 78 74 20 29 7b 0a 20 20 20 20 20 20 20 20 73 ext ){. s
3f50: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 qlite3_result_er
3f60: 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 22 6f 75 ror(context, "ou
3f70: 74 20 6f 66 20 6d 65 6d 6f 72 79 22 2c 20 2d 31 t of memory", -1
3f80: 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a );. }else{.
3f90: 20 20 20 20 20 20 20 20 69 6e 74 20 69 3b 0a 20 int i;.
3fa0: 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 for(i=0;
3fb0: 69 3c 6e 42 6c 6f 62 3b 20 69 2b 2b 29 7b 0a 20 i<nBlob; i++){.
3fc0: 20 20 20 20 20 20 20 20 20 7a 54 65 78 74 5b 28 zText[(
3fd0: 69 2a 32 29 2b 32 5d 20 3d 20 68 65 78 64 69 67 i*2)+2] = hexdig
3fe0: 69 74 73 5b 28 7a 42 6c 6f 62 5b 69 5d 3e 3e 34 its[(zBlob[i]>>4
3ff0: 29 26 30 78 30 46 5d 3b 0a 20 20 20 20 20 20 20 )&0x0F];.
4000: 20 20 20 7a 54 65 78 74 5b 28 69 2a 32 29 2b 33 zText[(i*2)+3
4010: 5d 20 3d 20 68 65 78 64 69 67 69 74 73 5b 28 7a ] = hexdigits[(z
4020: 42 6c 6f 62 5b 69 5d 29 26 30 78 30 46 5d 3b 0a Blob[i])&0x0F];.
4030: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
4040: 20 20 7a 54 65 78 74 5b 28 6e 42 6c 6f 62 2a 32 zText[(nBlob*2
4050: 29 2b 32 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 )+2] = '\'';.
4060: 20 20 20 20 20 7a 54 65 78 74 5b 28 6e 42 6c 6f zText[(nBlo
4070: 62 2a 32 29 2b 33 5d 20 3d 20 27 5c 30 27 3b 0a b*2)+3] = '\0';.
4080: 20 20 20 20 20 20 20 20 7a 54 65 78 74 5b 30 5d zText[0]
4090: 20 3d 20 27 58 27 3b 0a 20 20 20 20 20 20 20 20 = 'X';.
40a0: 7a 54 65 78 74 5b 31 5d 20 3d 20 27 5c 27 27 3b zText[1] = '\'';
40b0: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 . sqlite3
40c0: 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e _result_text(con
40d0: 74 65 78 74 2c 20 7a 54 65 78 74 2c 20 2d 31 2c text, zText, -1,
40e0: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e SQLITE_TRANSIEN
40f0: 54 29 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 T);. sqli
4100: 74 65 46 72 65 65 28 7a 54 65 78 74 29 3b 0a 20 teFree(zText);.
4110: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 62 72 65 }. bre
4120: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 ak;. }. ca
4130: 73 65 20 53 51 4c 49 54 45 5f 54 45 58 54 3a 20 se SQLITE_TEXT:
4140: 7b 0a 20 20 20 20 20 20 69 6e 74 20 69 2c 6a 2c {. int i,j,
4150: 6e 3b 0a 20 20 20 20 20 20 63 6f 6e 73 74 20 75 n;. const u
4160: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 41 nsigned char *zA
4170: 72 67 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c rg = sqlite3_val
4180: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 ue_text(argv[0])
4190: 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a 3b ;. char *z;
41a0: 0a 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 6e 3d .. for(i=n=
41b0: 30 3b 20 7a 41 72 67 5b 69 5d 3b 20 69 2b 2b 29 0; zArg[i]; i++)
41c0: 7b 20 69 66 28 20 7a 41 72 67 5b 69 5d 3d 3d 27 { if( zArg[i]=='
41d0: 5c 27 27 20 29 20 6e 2b 2b 3b 20 7d 0a 20 20 20 \'' ) n++; }.
41e0: 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 4d 61 6c z = sqliteMal
41f0: 6c 6f 63 28 20 69 2b 6e 2b 33 20 29 3b 0a 20 20 loc( i+n+3 );.
4200: 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 29 20 72 if( z==0 ) r
4210: 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 7a 5b 30 eturn;. z[0
4220: 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 ] = '\'';.
4230: 66 6f 72 28 69 3d 30 2c 20 6a 3d 31 3b 20 7a 41 for(i=0, j=1; zA
4240: 72 67 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 rg[i]; i++){.
4250: 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 7a 41 z[j++] = zA
4260: 72 67 5b 69 5d 3b 0a 20 20 20 20 20 20 20 20 69 rg[i];. i
4270: 66 28 20 7a 41 72 67 5b 69 5d 3d 3d 27 5c 27 27 f( zArg[i]=='\''
4280: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 5b ){. z[
4290: 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 j++] = '\'';.
42a0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 }. }.
42b0: 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 27 5c z[j++] = '\
42c0: 27 27 3b 0a 20 20 20 20 20 20 7a 5b 6a 5d 20 3d '';. z[j] =
42d0: 20 30 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 0;. sqlite
42e0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 3_result_text(co
42f0: 6e 74 65 78 74 2c 20 7a 2c 20 6a 2c 20 53 51 4c ntext, z, j, SQL
4300: 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a ITE_TRANSIENT);.
4310: 20 20 20 20 20 20 73 71 6c 69 74 65 46 72 65 65 sqliteFree
4320: 28 7a 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d (z);. }. }.}
4330: 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ..#ifdef SQLITE_
4340: 53 4f 55 4e 44 45 58 0a 2f 2a 0a 2a 2a 20 43 6f SOUNDEX./*.** Co
4350: 6d 70 75 74 65 20 74 68 65 20 73 6f 75 6e 64 65 mpute the sounde
4360: 78 20 65 6e 63 6f 64 69 6e 67 20 6f 66 20 61 20 x encoding of a
4370: 77 6f 72 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 word..*/.static
4380: 76 6f 69 64 20 73 6f 75 6e 64 65 78 46 75 6e 63 void soundexFunc
4390: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 (sqlite3_context
43a0: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 *context, int a
43b0: 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c rgc, sqlite3_val
43c0: 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 68 ue **argv){. ch
43d0: 61 72 20 7a 52 65 73 75 6c 74 5b 38 5d 3b 0a 20 ar zResult[8];.
43e0: 20 63 6f 6e 73 74 20 75 38 20 2a 7a 49 6e 3b 0a const u8 *zIn;.
43f0: 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 20 73 74 int i, j;. st
4400: 61 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67 atic const unsig
4410: 6e 65 64 20 63 68 61 72 20 69 43 6f 64 65 5b 5d ned char iCode[]
4420: 20 3d 20 7b 0a 20 20 20 20 30 2c 20 30 2c 20 30 = {. 0, 0, 0
4430: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
4440: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
4450: 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 0, 0, 0,. 0,
4460: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
4470: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
4480: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 0, 0, 0, 0,.
4490: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
44a0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
44b0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
44c0: 0a 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c . 0, 0, 0, 0,
44d0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
44e0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
44f0: 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 31 , 0,. 0, 0, 1
4500: 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2c 20 32 2c , 2, 3, 0, 1, 2,
4510: 20 30 2c 20 30 2c 20 32 2c 20 32 2c 20 34 2c 20 0, 0, 2, 2, 4,
4520: 35 2c 20 35 2c 20 30 2c 0a 20 20 20 20 31 2c 20 5, 5, 0,. 1,
4530: 32 2c 20 36 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2, 6, 2, 3, 0, 1
4540: 2c 20 30 2c 20 32 2c 20 30 2c 20 32 2c 20 30 2c , 0, 2, 0, 2, 0,
4550: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 0, 0, 0, 0,.
4560: 20 30 2c 20 30 2c 20 31 2c 20 32 2c 20 33 2c 20 0, 0, 1, 2, 3,
4570: 30 2c 20 31 2c 20 32 2c 20 30 2c 20 30 2c 20 32 0, 1, 2, 0, 0, 2
4580: 2c 20 32 2c 20 34 2c 20 35 2c 20 35 2c 20 30 2c , 2, 4, 5, 5, 0,
4590: 0a 20 20 20 20 31 2c 20 32 2c 20 36 2c 20 32 2c . 1, 2, 6, 2,
45a0: 20 33 2c 20 30 2c 20 31 2c 20 30 2c 20 32 2c 20 3, 0, 1, 0, 2,
45b0: 30 2c 20 32 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 2, 0, 0, 0, 0
45c0: 2c 20 30 2c 0a 20 20 7d 3b 0a 20 20 61 73 73 65 , 0,. };. asse
45d0: 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 rt( argc==1 );.
45e0: 20 7a 49 6e 20 3d 20 28 75 38 2a 29 73 71 6c 69 zIn = (u8*)sqli
45f0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
4600: 72 67 76 5b 30 5d 29 3b 0a 20 20 66 6f 72 28 69 rgv[0]);. for(i
4610: 3d 30 3b 20 7a 49 6e 5b 69 5d 20 26 26 20 21 69 =0; zIn[i] && !i
4620: 73 61 6c 70 68 61 28 7a 49 6e 5b 69 5d 29 3b 20 salpha(zIn[i]);
4630: 69 2b 2b 29 7b 7d 0a 20 20 69 66 28 20 7a 49 6e i++){}. if( zIn
4640: 5b 69 5d 20 29 7b 0a 20 20 20 20 7a 52 65 73 75 [i] ){. zResu
4650: 6c 74 5b 30 5d 20 3d 20 74 6f 75 70 70 65 72 28 lt[0] = toupper(
4660: 7a 49 6e 5b 69 5d 29 3b 0a 20 20 20 20 66 6f 72 zIn[i]);. for
4670: 28 6a 3d 31 3b 20 6a 3c 34 20 26 26 20 7a 49 6e (j=1; j<4 && zIn
4680: 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 [i]; i++){.
4690: 20 69 6e 74 20 63 6f 64 65 20 3d 20 69 43 6f 64 int code = iCod
46a0: 65 5b 7a 49 6e 5b 69 5d 26 30 78 37 66 5d 3b 0a e[zIn[i]&0x7f];.
46b0: 20 20 20 20 20 20 69 66 28 20 63 6f 64 65 3e 30 if( code>0
46c0: 20 29 7b 0a 20 20 20 20 20 20 20 20 7a 52 65 73 ){. zRes
46d0: 75 6c 74 5b 6a 2b 2b 5d 20 3d 20 63 6f 64 65 20 ult[j++] = code
46e0: 2b 20 27 30 27 3b 0a 20 20 20 20 20 20 7d 0a 20 + '0';. }.
46f0: 20 20 20 7d 0a 20 20 20 20 77 68 69 6c 65 28 20 }. while(
4700: 6a 3c 34 20 29 7b 0a 20 20 20 20 20 20 7a 52 65 j<4 ){. zRe
4710: 73 75 6c 74 5b 6a 2b 2b 5d 20 3d 20 27 30 27 3b sult[j++] = '0';
4720: 0a 20 20 20 20 7d 0a 20 20 20 20 7a 52 65 73 75 . }. zResu
4730: 6c 74 5b 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 73 lt[j] = 0;. s
4740: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 qlite3_result_te
4750: 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 52 65 73 xt(context, zRes
4760: 75 6c 74 2c 20 34 2c 20 53 51 4c 49 54 45 5f 54 ult, 4, SQLITE_T
4770: 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 7d 65 6c RANSIENT);. }el
4780: 73 65 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f se{. sqlite3_
4790: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 result_text(cont
47a0: 65 78 74 2c 20 22 3f 30 30 30 22 2c 20 34 2c 20 ext, "?000", 4,
47b0: 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a SQLITE_STATIC);.
47c0: 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 69 }.}.#endif..#i
47d0: 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 fdef SQLITE_TEST
47e0: 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 ./*.** This func
47f0: 74 69 6f 6e 20 67 65 6e 65 72 61 74 65 73 20 61 tion generates a
4800: 20 73 74 72 69 6e 67 20 6f 66 20 72 61 6e 64 6f string of rando
4810: 6d 20 63 68 61 72 61 63 74 65 72 73 2e 20 20 55 m characters. U
4820: 73 65 64 20 66 6f 72 0a 2a 2a 20 67 65 6e 65 72 sed for.** gener
4830: 61 74 69 6e 67 20 74 65 73 74 20 64 61 74 61 2e ating test data.
4840: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
4850: 72 61 6e 64 53 74 72 28 73 71 6c 69 74 65 33 5f randStr(sqlite3_
4860: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
4870: 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 , int argc, sqli
4880: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
4890: 29 7b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73 ){. static cons
48a0: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 t unsigned char
48b0: 7a 53 72 63 5b 5d 20 3d 20 0a 20 20 20 20 20 22 zSrc[] = . "
48c0: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 abcdefghijklmnop
48d0: 71 72 73 74 75 76 77 78 79 7a 22 0a 20 20 20 20 qrstuvwxyz".
48e0: 20 22 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e "ABCDEFGHIJKLMN
48f0: 4f 50 51 52 53 54 55 56 57 58 59 5a 22 0a 20 20 OPQRSTUVWXYZ".
4900: 20 20 20 22 30 31 32 33 34 35 36 37 38 39 22 0a "0123456789".
4910: 20 20 20 20 20 22 2e 2d 21 2c 3a 2a 5e 2b 3d 5f ".-!,:*^+=_
4920: 7c 3f 2f 3c 3e 20 22 3b 0a 20 20 69 6e 74 20 69 |?/<> ";. int i
4930: 4d 69 6e 2c 20 69 4d 61 78 2c 20 6e 2c 20 72 2c Min, iMax, n, r,
4940: 20 69 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 i;. unsigned c
4950: 68 61 72 20 7a 42 75 66 5b 31 30 30 30 5d 3b 0a har zBuf[1000];.
4960: 20 20 69 66 28 20 61 72 67 63 3e 3d 31 20 29 7b if( argc>=1 ){
4970: 0a 20 20 20 20 69 4d 69 6e 20 3d 20 73 71 6c 69 . iMin = sqli
4980: 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 te3_value_int(ar
4990: 67 76 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 gv[0]);. if(
49a0: 69 4d 69 6e 3c 30 20 29 20 69 4d 69 6e 20 3d 20 iMin<0 ) iMin =
49b0: 30 3b 0a 20 20 20 20 69 66 28 20 69 4d 69 6e 3e 0;. if( iMin>
49c0: 3d 73 69 7a 65 6f 66 28 7a 42 75 66 29 20 29 20 =sizeof(zBuf) )
49d0: 69 4d 69 6e 20 3d 20 73 69 7a 65 6f 66 28 7a 42 iMin = sizeof(zB
49e0: 75 66 29 2d 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a uf)-1;. }else{.
49f0: 20 20 20 20 69 4d 69 6e 20 3d 20 31 3b 0a 20 20 iMin = 1;.
4a00: 7d 0a 20 20 69 66 28 20 61 72 67 63 3e 3d 32 20 }. if( argc>=2
4a10: 29 7b 0a 20 20 20 20 69 4d 61 78 20 3d 20 73 71 ){. iMax = sq
4a20: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 lite3_value_int(
4a30: 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 69 66 argv[1]);. if
4a40: 28 20 69 4d 61 78 3c 69 4d 69 6e 20 29 20 69 4d ( iMax<iMin ) iM
4a50: 61 78 20 3d 20 69 4d 69 6e 3b 0a 20 20 20 20 69 ax = iMin;. i
4a60: 66 28 20 69 4d 61 78 3e 3d 73 69 7a 65 6f 66 28 f( iMax>=sizeof(
4a70: 7a 42 75 66 29 20 29 20 69 4d 61 78 20 3d 20 73 zBuf) ) iMax = s
4a80: 69 7a 65 6f 66 28 7a 42 75 66 29 2d 31 3b 0a 20 izeof(zBuf)-1;.
4a90: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 4d 61 78 }else{. iMax
4aa0: 20 3d 20 35 30 3b 0a 20 20 7d 0a 20 20 6e 20 3d = 50;. }. n =
4ab0: 20 69 4d 69 6e 3b 0a 20 20 69 66 28 20 69 4d 61 iMin;. if( iMa
4ac0: 78 3e 69 4d 69 6e 20 29 7b 0a 20 20 20 20 73 71 x>iMin ){. sq
4ad0: 6c 69 74 65 33 52 61 6e 64 6f 6d 6e 65 73 73 28 lite3Randomness(
4ae0: 73 69 7a 65 6f 66 28 72 29 2c 20 26 72 29 3b 0a sizeof(r), &r);.
4af0: 20 20 20 20 72 20 26 3d 20 30 78 37 66 66 66 66 r &= 0x7ffff
4b00: 66 66 66 3b 0a 20 20 20 20 6e 20 2b 3d 20 72 25 fff;. n += r%
4b10: 28 69 4d 61 78 20 2b 20 31 20 2d 20 69 4d 69 6e (iMax + 1 - iMin
4b20: 29 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28 );. }. assert(
4b30: 20 6e 3c 73 69 7a 65 6f 66 28 7a 42 75 66 29 20 n<sizeof(zBuf)
4b40: 29 3b 0a 20 20 73 71 6c 69 74 65 33 52 61 6e 64 );. sqlite3Rand
4b50: 6f 6d 6e 65 73 73 28 6e 2c 20 7a 42 75 66 29 3b omness(n, zBuf);
4b60: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 3b . for(i=0; i<n;
4b70: 20 69 2b 2b 29 7b 0a 20 20 20 20 7a 42 75 66 5b i++){. zBuf[
4b80: 69 5d 20 3d 20 7a 53 72 63 5b 7a 42 75 66 5b 69 i] = zSrc[zBuf[i
4b90: 5d 25 28 73 69 7a 65 6f 66 28 7a 53 72 63 29 2d ]%(sizeof(zSrc)-
4ba0: 31 29 5d 3b 0a 20 20 7d 0a 20 20 7a 42 75 66 5b 1)];. }. zBuf[
4bb0: 6e 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 n] = 0;. sqlite
4bc0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 3_result_text(co
4bd0: 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 7a 42 ntext, (char*)zB
4be0: 75 66 2c 20 6e 2c 20 53 51 4c 49 54 45 5f 54 52 uf, n, SQLITE_TR
4bf0: 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 23 65 6e 64 ANSIENT);.}.#end
4c00: 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 54 45 53 if /* SQLITE_TES
4c10: 54 20 2a 2f 0a 0a 23 69 66 64 65 66 20 53 51 4c T */..#ifdef SQL
4c20: 49 54 45 5f 54 45 53 54 0a 2f 2a 0a 2a 2a 20 54 ITE_TEST./*.** T
4c30: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 77 6f he following two
4c40: 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 73 20 61 SQL functions a
4c50: 72 65 20 75 73 65 64 20 74 6f 20 74 65 73 74 20 re used to test
4c60: 72 65 74 75 72 6e 69 6e 67 20 61 20 74 65 78 74 returning a text
4c70: 0a 2a 2a 20 72 65 73 75 6c 74 20 77 69 74 68 20 .** result with
4c80: 61 20 64 65 73 74 72 75 63 74 6f 72 2e 20 46 75 a destructor. Fu
4c90: 6e 63 74 69 6f 6e 20 27 74 65 73 74 5f 64 65 73 nction 'test_des
4ca0: 74 72 75 63 74 6f 72 27 20 74 61 6b 65 73 20 6f tructor' takes o
4cb0: 6e 65 20 61 72 67 75 6d 65 6e 74 0a 2a 2a 20 61 ne argument.** a
4cc0: 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 nd returns the s
4cd0: 61 6d 65 20 61 72 67 75 6d 65 6e 74 20 69 6e 74 ame argument int
4ce0: 65 72 70 72 65 74 65 64 20 61 73 20 54 45 58 54 erpreted as TEXT
4cf0: 2e 20 41 20 64 65 73 74 72 75 63 74 6f 72 20 69 . A destructor i
4d00: 73 0a 2a 2a 20 70 61 73 73 65 64 20 77 69 74 68 s.** passed with
4d10: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 72 65 73 the sqlite3_res
4d20: 75 6c 74 5f 74 65 78 74 28 29 20 63 61 6c 6c 2e ult_text() call.
4d30: 0a 2a 2a 0a 2a 2a 20 53 51 4c 20 66 75 6e 63 74 .**.** SQL funct
4d40: 69 6f 6e 20 27 74 65 73 74 5f 64 65 73 74 72 75 ion 'test_destru
4d50: 63 74 6f 72 5f 63 6f 75 6e 74 27 20 72 65 74 75 ctor_count' retu
4d60: 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f rns the number o
4d70: 66 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 0a 2a f outstanding .*
4d80: 2a 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 20 6d 61 * allocations ma
4d90: 64 65 20 62 79 20 27 74 65 73 74 5f 64 65 73 74 de by 'test_dest
4da0: 72 75 63 74 6f 72 27 3b 0a 2a 2a 0a 2a 2a 20 57 ructor';.**.** W
4db0: 41 52 4e 49 4e 47 3a 20 4e 6f 74 20 74 68 72 65 ARNING: Not thre
4dc0: 61 64 73 61 66 65 2e 0a 2a 2f 0a 73 74 61 74 69 adsafe..*/.stati
4dd0: 63 20 69 6e 74 20 74 65 73 74 5f 64 65 73 74 72 c int test_destr
4de0: 75 63 74 6f 72 5f 63 6f 75 6e 74 5f 76 61 72 20 uctor_count_var
4df0: 3d 20 30 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 = 0;.static void
4e00: 20 64 65 73 74 72 75 63 74 6f 72 28 76 6f 69 64 destructor(void
4e10: 20 2a 70 29 7b 0a 20 20 63 68 61 72 20 2a 7a 56 *p){. char *zV
4e20: 61 6c 20 3d 20 28 63 68 61 72 20 2a 29 70 3b 0a al = (char *)p;.
4e30: 20 20 61 73 73 65 72 74 28 7a 56 61 6c 29 3b 0a assert(zVal);.
4e40: 20 20 7a 56 61 6c 2d 2d 3b 0a 20 20 73 71 6c 69 zVal--;. sqli
4e50: 74 65 46 72 65 65 28 7a 56 61 6c 29 3b 0a 20 20 teFree(zVal);.
4e60: 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 5f test_destructor_
4e70: 63 6f 75 6e 74 5f 76 61 72 2d 2d 3b 0a 7d 0a 73 count_var--;.}.s
4e80: 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f tatic void test_
4e90: 64 65 73 74 72 75 63 74 6f 72 28 0a 20 20 73 71 destructor(. sq
4ea0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 lite3_context *p
4eb0: 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 Ctx, . int nArg
4ec0: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ,. sqlite3_valu
4ed0: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 68 e **argv.){. ch
4ee0: 61 72 20 2a 7a 56 61 6c 3b 0a 20 20 69 6e 74 20 ar *zVal;. int
4ef0: 6c 65 6e 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a len;. sqlite3 *
4f00: 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65 db = sqlite3_use
4f10: 72 5f 64 61 74 61 28 70 43 74 78 29 3b 0a 20 0a r_data(pCtx);. .
4f20: 20 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f test_destructo
4f30: 72 5f 63 6f 75 6e 74 5f 76 61 72 2b 2b 3b 0a 20 r_count_var++;.
4f40: 20 61 73 73 65 72 74 28 20 6e 41 72 67 3d 3d 31 assert( nArg==1
4f50: 20 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 );. if( sqlite
4f60: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 3_value_type(arg
4f70: 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 v[0])==SQLITE_NU
4f80: 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6c LL ) return;. l
4f90: 65 6e 20 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 en = sqlite3Valu
4fa0: 65 42 79 74 65 73 28 61 72 67 76 5b 30 5d 2c 20 eBytes(argv[0],
4fb0: 45 4e 43 28 64 62 29 29 3b 20 0a 20 20 7a 56 61 ENC(db)); . zVa
4fc0: 6c 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 l = sqliteMalloc
4fd0: 28 6c 65 6e 2b 33 29 3b 0a 20 20 7a 56 61 6c 5b (len+3);. zVal[
4fe0: 6c 65 6e 5d 20 3d 20 30 3b 0a 20 20 7a 56 61 6c len] = 0;. zVal
4ff0: 5b 6c 65 6e 2d 31 5d 20 3d 20 30 3b 0a 20 20 61 [len-1] = 0;. a
5000: 73 73 65 72 74 28 20 7a 56 61 6c 20 29 3b 0a 20 ssert( zVal );.
5010: 20 7a 56 61 6c 2b 2b 3b 0a 20 20 6d 65 6d 63 70 zVal++;. memcp
5020: 79 28 7a 56 61 6c 2c 20 73 71 6c 69 74 65 33 56 y(zVal, sqlite3V
5030: 61 6c 75 65 54 65 78 74 28 61 72 67 76 5b 30 5d alueText(argv[0]
5040: 2c 20 45 4e 43 28 64 62 29 29 2c 20 6c 65 6e 29 , ENC(db)), len)
5050: 3b 0a 20 20 69 66 28 20 45 4e 43 28 64 62 29 3d ;. if( ENC(db)=
5060: 3d 53 51 4c 49 54 45 5f 55 54 46 38 20 29 7b 0a =SQLITE_UTF8 ){.
5070: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
5080: 6c 74 5f 74 65 78 74 28 70 43 74 78 2c 20 7a 56 lt_text(pCtx, zV
5090: 61 6c 2c 20 2d 31 2c 20 64 65 73 74 72 75 63 74 al, -1, destruct
50a0: 6f 72 29 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c or);.#ifndef SQL
50b0: 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 ITE_OMIT_UTF16.
50c0: 20 7d 65 6c 73 65 20 69 66 28 20 45 4e 43 28 64 }else if( ENC(d
50d0: 62 29 3d 3d 53 51 4c 49 54 45 5f 55 54 46 31 36 b)==SQLITE_UTF16
50e0: 4c 45 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 LE ){. sqlite
50f0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 6c 3_result_text16l
5100: 65 28 70 43 74 78 2c 20 7a 56 61 6c 2c 20 2d 31 e(pCtx, zVal, -1
5110: 2c 20 64 65 73 74 72 75 63 74 6f 72 29 3b 0a 20 , destructor);.
5120: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71 6c 69 }else{. sqli
5130: 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 te3_result_text1
5140: 36 62 65 28 70 43 74 78 2c 20 7a 56 61 6c 2c 20 6be(pCtx, zVal,
5150: 2d 31 2c 20 64 65 73 74 72 75 63 74 6f 72 29 3b -1, destructor);
5160: 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 .#endif /* SQLIT
5170: 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a E_OMIT_UTF16 */.
5180: 20 20 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 }.}.static voi
5190: 64 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f d test_destructo
51a0: 72 5f 63 6f 75 6e 74 28 0a 20 20 73 71 6c 69 74 r_count(. sqlit
51b0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 43 74 78 e3_context *pCtx
51c0: 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 2c 0a 20 , . int nArg,.
51d0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
51e0: 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 *argv.){. sqlit
51f0: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 70 43 e3_result_int(pC
5200: 74 78 2c 20 74 65 73 74 5f 64 65 73 74 72 75 63 tx, test_destruc
5210: 74 6f 72 5f 63 6f 75 6e 74 5f 76 61 72 29 3b 0a tor_count_var);.
5220: 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 }.#endif /* SQLI
5230: 54 45 5f 54 45 53 54 20 2a 2f 0a 0a 23 69 66 64 TE_TEST */..#ifd
5240: 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 2f ef SQLITE_TEST./
5250: 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 66 6f *.** Routines fo
5260: 72 20 74 65 73 74 69 6e 67 20 74 68 65 20 73 71 r testing the sq
5270: 6c 69 74 65 33 5f 67 65 74 5f 61 75 78 64 61 74 lite3_get_auxdat
5280: 61 28 29 20 61 6e 64 20 73 71 6c 69 74 65 33 5f a() and sqlite3_
5290: 73 65 74 5f 61 75 78 64 61 74 61 28 29 0a 2a 2a set_auxdata().**
52a0: 20 69 6e 74 65 72 66 61 63 65 2e 0a 2a 2a 0a 2a interface..**.*
52b0: 2a 20 54 68 65 20 74 65 73 74 5f 61 75 78 64 61 * The test_auxda
52c0: 74 61 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f ta() SQL functio
52d0: 6e 20 61 74 74 65 6d 70 74 73 20 74 6f 20 72 65 n attempts to re
52e0: 67 69 73 74 65 72 20 65 61 63 68 20 6f 66 20 69 gister each of i
52f0: 74 73 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2a 20 ts arguments.**
5300: 61 73 20 61 75 78 69 6c 69 61 72 79 20 64 61 74 as auxiliary dat
5310: 61 2e 20 20 49 66 20 74 68 65 72 65 20 61 72 65 a. If there are
5320: 20 6e 6f 20 70 72 69 6f 72 20 72 65 67 69 73 74 no prior regist
5330: 72 61 74 69 6f 6e 73 20 6f 66 20 61 75 78 20 64 rations of aux d
5340: 61 74 61 20 66 6f 72 0a 2a 2a 20 74 68 61 74 20 ata for.** that
5350: 61 72 67 75 6d 65 6e 74 20 28 6d 65 61 6e 69 6e argument (meanin
5360: 67 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 g the argument i
5370: 73 20 6e 6f 74 20 61 20 63 6f 6e 73 74 61 6e 74 s not a constant
5380: 20 6f 72 20 74 68 69 73 20 69 73 20 69 74 73 20 or this is its
5390: 66 69 72 73 74 0a 2a 2a 20 63 61 6c 6c 29 20 74 first.** call) t
53a0: 68 65 6e 20 74 68 65 20 72 65 73 75 6c 74 20 66 hen the result f
53b0: 6f 72 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74 or that argument
53c0: 20 69 73 20 30 2e 20 20 49 66 20 74 68 65 72 65 is 0. If there
53d0: 20 69 73 20 61 20 70 72 69 6f 72 0a 2a 2a 20 72 is a prior.** r
53e0: 65 67 69 73 74 72 61 74 69 6f 6e 2c 20 74 68 65 egistration, the
53f0: 20 72 65 73 75 6c 74 20 66 6f 72 20 74 68 61 74 result for that
5400: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 31 2e 20 argument is 1.
5410: 20 54 68 65 20 6f 76 65 72 61 6c 6c 20 72 65 73 The overall res
5420: 75 6c 74 0a 2a 2a 20 69 73 20 74 68 65 20 69 6e ult.** is the in
5430: 64 69 76 69 64 75 61 6c 20 61 72 67 75 6d 65 6e dividual argumen
5440: 74 20 72 65 73 75 6c 74 73 20 73 65 70 61 72 61 t results separa
5450: 74 65 64 20 62 79 20 73 70 61 63 65 73 2e 0a 2a ted by spaces..*
5460: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 66 72 /.static void fr
5470: 65 65 5f 74 65 73 74 5f 61 75 78 64 61 74 61 28 ee_test_auxdata(
5480: 76 6f 69 64 20 2a 70 29 20 7b 73 71 6c 69 74 65 void *p) {sqlite
5490: 46 72 65 65 28 70 29 3b 7d 0a 73 74 61 74 69 63 Free(p);}.static
54a0: 20 76 6f 69 64 20 74 65 73 74 5f 61 75 78 64 61 void test_auxda
54b0: 74 61 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f ta(. sqlite3_co
54c0: 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 ntext *pCtx, .
54d0: 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 int nArg,. sqli
54e0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
54f0: 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 .){. int i;. c
5500: 68 61 72 20 2a 7a 52 65 74 20 3d 20 73 71 6c 69 har *zRet = sqli
5510: 74 65 4d 61 6c 6c 6f 63 28 6e 41 72 67 2a 32 29 teMalloc(nArg*2)
5520: 3b 0a 20 20 69 66 28 20 21 7a 52 65 74 20 29 20 ;. if( !zRet )
5530: 72 65 74 75 72 6e 3b 0a 20 20 66 6f 72 28 69 3d return;. for(i=
5540: 30 3b 20 69 3c 6e 41 72 67 3b 20 69 2b 2b 29 7b 0; i<nArg; i++){
5550: 0a 20 20 20 20 63 68 61 72 20 63 6f 6e 73 74 20 . char const
5560: 2a 7a 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69 *z = (char*)sqli
5570: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
5580: 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 69 66 28 rgv[i]);. if(
5590: 20 7a 20 29 7b 0a 20 20 20 20 20 20 63 68 61 72 z ){. char
55a0: 20 2a 7a 41 75 78 20 3d 20 73 71 6c 69 74 65 33 *zAux = sqlite3
55b0: 5f 67 65 74 5f 61 75 78 64 61 74 61 28 70 43 74 _get_auxdata(pCt
55c0: 78 2c 20 69 29 3b 0a 20 20 20 20 20 20 69 66 28 x, i);. if(
55d0: 20 7a 41 75 78 20 29 7b 0a 20 20 20 20 20 20 20 zAux ){.
55e0: 20 7a 52 65 74 5b 69 2a 32 5d 20 3d 20 27 31 27 zRet[i*2] = '1'
55f0: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 73 74 ;. if( st
5600: 72 63 6d 70 28 7a 41 75 78 2c 20 7a 29 20 29 7b rcmp(zAux, z) ){
5610: 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 . sqlit
5620: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 e3_result_error(
5630: 70 43 74 78 2c 20 22 41 75 78 69 6c 61 72 79 20 pCtx, "Auxilary
5640: 64 61 74 61 20 63 6f 72 72 75 70 74 69 6f 6e 22 data corruption"
5650: 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 , -1);.
5660: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 return;.
5670: 20 7d 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a }. }else{.
5680: 20 20 20 20 20 20 20 20 7a 52 65 74 5b 69 2a 32 zRet[i*2
5690: 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 ] = '0';.
56a0: 20 7a 41 75 78 20 3d 20 73 71 6c 69 74 65 53 74 zAux = sqliteSt
56b0: 72 44 75 70 28 7a 29 3b 0a 20 20 20 20 20 20 20 rDup(z);.
56c0: 20 73 71 6c 69 74 65 33 5f 73 65 74 5f 61 75 78 sqlite3_set_aux
56d0: 64 61 74 61 28 70 43 74 78 2c 20 69 2c 20 7a 41 data(pCtx, i, zA
56e0: 75 78 2c 20 66 72 65 65 5f 74 65 73 74 5f 61 75 ux, free_test_au
56f0: 78 64 61 74 61 29 3b 0a 20 20 20 20 20 20 7d 0a xdata);. }.
5700: 20 20 20 20 20 20 7a 52 65 74 5b 69 2a 32 2b 31 zRet[i*2+1
5710: 5d 20 3d 20 27 20 27 3b 0a 20 20 20 20 7d 0a 20 ] = ' ';. }.
5720: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 }. sqlite3_res
5730: 75 6c 74 5f 74 65 78 74 28 70 43 74 78 2c 20 7a ult_text(pCtx, z
5740: 52 65 74 2c 20 32 2a 6e 41 72 67 2d 31 2c 20 66 Ret, 2*nArg-1, f
5750: 72 65 65 5f 74 65 73 74 5f 61 75 78 64 61 74 61 ree_test_auxdata
5760: 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 );.}.#endif /* S
5770: 51 4c 49 54 45 5f 54 45 53 54 20 2a 2f 0a 0a 23 QLITE_TEST */..#
5780: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 ifdef SQLITE_TES
5790: 54 0a 2f 2a 0a 2a 2a 20 41 20 66 75 6e 63 74 69 T./*.** A functi
57a0: 6f 6e 20 74 6f 20 74 65 73 74 20 65 72 72 6f 72 on to test error
57b0: 20 72 65 70 6f 72 74 69 6e 67 20 66 72 6f 6d 20 reporting from
57c0: 75 73 65 72 20 66 75 6e 63 74 69 6f 6e 73 2e 20 user functions.
57d0: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a This function.**
57e0: 20 72 65 74 75 72 6e 73 20 61 20 63 6f 70 79 20 returns a copy
57f0: 6f 66 20 69 74 27 73 20 66 69 72 73 74 20 61 72 of it's first ar
5800: 67 75 6d 65 6e 74 20 61 73 20 61 6e 20 65 72 72 gument as an err
5810: 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f or..*/.static vo
5820: 69 64 20 74 65 73 74 5f 65 72 72 6f 72 28 0a 20 id test_error(.
5830: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
5840: 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e *pCtx, . int n
5850: 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 Arg,. sqlite3_v
5860: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
5870: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
5880: 65 72 72 6f 72 28 70 43 74 78 2c 20 28 63 68 61 error(pCtx, (cha
5890: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 r*)sqlite3_value
58a0: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 2c 20 _text(argv[0]),
58b0: 30 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 0);.}.#endif /*
58c0: 53 51 4c 49 54 45 5f 54 45 53 54 20 2a 2f 0a 0a SQLITE_TEST */..
58d0: 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 6e 63 /*.** An instanc
58e0: 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 e of the followi
58f0: 6e 67 20 73 74 72 75 63 74 75 72 65 20 68 6f 6c ng structure hol
5900: 64 73 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f ds the context o
5910: 66 20 61 0a 2a 2a 20 73 75 6d 28 29 20 6f 72 20 f a.** sum() or
5920: 61 76 67 28 29 20 61 67 67 72 65 67 61 74 65 20 avg() aggregate
5930: 63 6f 6d 70 75 74 61 74 69 6f 6e 2e 0a 2a 2f 0a computation..*/.
5940: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 53 typedef struct S
5950: 75 6d 43 74 78 20 53 75 6d 43 74 78 3b 0a 73 74 umCtx SumCtx;.st
5960: 72 75 63 74 20 53 75 6d 43 74 78 20 7b 0a 20 20 ruct SumCtx {.
5970: 64 6f 75 62 6c 65 20 72 53 75 6d 3b 20 20 20 20 double rSum;
5980: 20 20 2f 2a 20 46 6c 6f 61 74 69 6e 67 20 70 6f /* Floating po
5990: 69 6e 74 20 73 75 6d 20 2a 2f 0a 20 20 69 36 34 int sum */. i64
59a0: 20 69 53 75 6d 3b 20 20 20 20 20 20 20 20 20 2f iSum; /
59b0: 2a 20 49 6e 74 65 67 65 72 20 73 75 6d 20 2a 2f * Integer sum */
59c0: 20 20 20 0a 20 20 69 36 34 20 63 6e 74 3b 20 20 . i64 cnt;
59d0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
59e0: 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 73 75 r of elements su
59f0: 6d 6d 65 64 20 2a 2f 0a 20 20 75 38 20 6f 76 65 mmed */. u8 ove
5a00: 72 66 6c 6f 77 3b 20 20 20 20 20 20 2f 2a 20 54 rflow; /* T
5a10: 72 75 65 20 69 66 20 69 6e 74 65 67 65 72 20 6f rue if integer o
5a20: 76 65 72 66 6c 6f 77 20 73 65 65 6e 20 2a 2f 0a verflow seen */.
5a30: 20 20 75 38 20 61 70 70 72 6f 78 3b 20 20 20 20 u8 approx;
5a40: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 6e /* True if n
5a50: 6f 6e 2d 69 6e 74 65 67 65 72 20 76 61 6c 75 65 on-integer value
5a60: 20 77 61 73 20 69 6e 70 75 74 20 74 6f 20 74 68 was input to th
5a70: 65 20 73 75 6d 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a e sum */.};../*.
5a80: 2a 2a 20 52 6f 75 74 69 6e 65 73 20 75 73 65 64 ** Routines used
5a90: 20 74 6f 20 63 6f 6d 70 75 74 65 20 74 68 65 20 to compute the
5aa0: 73 75 6d 2c 20 61 76 65 72 61 67 65 2c 20 61 6e sum, average, an
5ab0: 64 20 74 6f 74 61 6c 2e 0a 2a 2a 0a 2a 2a 20 54 d total..**.** T
5ac0: 68 65 20 53 55 4d 28 29 20 66 75 6e 63 74 69 6f he SUM() functio
5ad0: 6e 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 28 62 n follows the (b
5ae0: 72 6f 6b 65 6e 29 20 53 51 4c 20 73 74 61 6e 64 roken) SQL stand
5af0: 61 72 64 20 77 68 69 63 68 20 6d 65 61 6e 73 0a ard which means.
5b00: 2a 2a 20 74 68 61 74 20 69 74 20 72 65 74 75 72 ** that it retur
5b10: 6e 73 20 4e 55 4c 4c 20 69 66 20 69 74 20 73 75 ns NULL if it su
5b20: 6d 73 20 6f 76 65 72 20 6e 6f 20 69 6e 70 75 74 ms over no input
5b30: 73 2e 20 20 54 4f 54 41 4c 20 72 65 74 75 72 6e s. TOTAL return
5b40: 73 0a 2a 2a 20 30 2e 30 20 69 6e 20 74 68 61 74 s.** 0.0 in that
5b50: 20 63 61 73 65 2e 20 20 49 6e 20 61 64 64 69 74 case. In addit
5b60: 69 6f 6e 2c 20 54 4f 54 41 4c 20 61 6c 77 61 79 ion, TOTAL alway
5b70: 73 20 72 65 74 75 72 6e 73 20 61 20 66 6c 6f 61 s returns a floa
5b80: 74 20 77 68 65 72 65 0a 2a 2a 20 53 55 4d 20 6d t where.** SUM m
5b90: 69 67 68 74 20 72 65 74 75 72 6e 20 61 6e 20 69 ight return an i
5ba0: 6e 74 65 67 65 72 20 69 66 20 69 74 20 6e 65 76 nteger if it nev
5bb0: 65 72 20 65 6e 63 6f 75 6e 74 65 72 73 20 61 20 er encounters a
5bc0: 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 0a 2a floating point.*
5bd0: 2a 20 76 61 6c 75 65 2e 0a 2a 2a 0a 2a 2a 20 49 * value..**.** I
5be0: 20 61 6d 20 74 6f 6c 64 20 74 68 61 74 20 53 55 am told that SU
5bf0: 4d 28 29 20 73 68 6f 75 6c 64 20 72 61 69 73 65 M() should raise
5c00: 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 69 66 an exception if
5c10: 20 69 74 20 65 6e 63 6f 75 6e 74 65 72 73 0a 2a it encounters.*
5c20: 2a 20 61 20 69 6e 74 65 67 65 72 20 6f 76 65 72 * a integer over
5c30: 66 6c 6f 77 2e 20 20 42 75 74 20 61 66 74 65 72 flow. But after
5c40: 20 70 6f 6e 64 65 72 69 6e 67 20 74 68 69 73 2c pondering this,
5c50: 20 49 20 64 65 63 69 64 65 64 20 74 68 61 74 20 I decided that
5c60: 0a 2a 2a 20 62 65 68 61 76 69 6f 72 20 6c 65 61 .** behavior lea
5c70: 64 73 20 74 6f 20 62 72 69 74 74 6c 65 20 70 72 ds to brittle pr
5c80: 6f 67 72 61 6d 73 2e 20 20 53 6f 20 69 6e 73 74 ograms. So inst
5c90: 65 61 64 2c 20 49 20 68 61 76 65 20 63 6f 64 65 ead, I have code
5ca0: 64 0a 2a 2a 20 53 55 4d 28 29 20 74 6f 20 72 65 d.** SUM() to re
5cb0: 76 65 72 74 20 74 6f 20 75 73 69 6e 67 20 66 6c vert to using fl
5cc0: 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 69 66 20 oating point if
5cd0: 69 74 20 65 6e 63 6f 75 6e 74 65 72 73 20 61 6e it encounters an
5ce0: 0a 2a 2a 20 69 6e 74 65 67 65 72 20 6f 76 65 72 .** integer over
5cf0: 66 6c 6f 77 2e 20 20 54 68 65 20 61 6e 73 77 65 flow. The answe
5d00: 72 20 6d 61 79 20 6e 6f 74 20 62 65 20 65 78 61 r may not be exa
5d10: 63 74 2c 20 62 75 74 20 69 74 20 77 69 6c 6c 20 ct, but it will
5d20: 62 65 0a 2a 2a 20 63 6c 6f 73 65 2e 20 20 49 66 be.** close. If
5d30: 20 74 68 65 20 53 55 4d 28 29 20 66 75 6e 63 74 the SUM() funct
5d40: 69 6f 6e 20 72 65 74 75 72 6e 73 20 61 6e 20 69 ion returns an i
5d50: 6e 74 65 67 65 72 2c 20 74 68 65 20 76 61 6c 75 nteger, the valu
5d60: 65 20 69 73 0a 2a 2a 20 65 78 61 63 74 2e 20 20 e is.** exact.
5d70: 49 66 20 53 55 4d 28 29 20 72 65 74 75 72 6e 73 If SUM() returns
5d80: 20 61 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e a floating poin
5d90: 74 20 76 61 6c 75 65 2c 20 69 74 20 6d 65 61 6e t value, it mean
5da0: 73 20 74 68 65 0a 2a 2a 20 76 61 6c 75 65 20 6d s the.** value m
5db0: 69 67 68 74 20 62 65 20 61 70 70 72 6f 78 69 6d ight be approxim
5dc0: 61 74 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 ated..*/.static
5dd0: 76 6f 69 64 20 73 75 6d 53 74 65 70 28 73 71 6c void sumStep(sql
5de0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
5df0: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
5e00: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
5e10: 2a 61 72 67 76 29 7b 0a 20 20 53 75 6d 43 74 78 *argv){. SumCtx
5e20: 20 2a 70 3b 0a 20 20 69 6e 74 20 74 79 70 65 3b *p;. int type;
5e30: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d . assert( argc=
5e40: 3d 31 20 29 3b 0a 20 20 70 20 3d 20 73 71 6c 69 =1 );. p = sqli
5e50: 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f te3_aggregate_co
5e60: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 ntext(context, s
5e70: 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 74 79 izeof(*p));. ty
5e80: 70 65 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c pe = sqlite3_val
5e90: 75 65 5f 6e 75 6d 65 72 69 63 5f 74 79 70 65 28 ue_numeric_type(
5ea0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 argv[0]);. if(
5eb0: 70 20 26 26 20 74 79 70 65 21 3d 53 51 4c 49 54 p && type!=SQLIT
5ec0: 45 5f 4e 55 4c 4c 20 29 7b 0a 20 20 20 20 70 2d E_NULL ){. p-
5ed0: 3e 63 6e 74 2b 2b 3b 0a 20 20 20 20 69 66 28 20 >cnt++;. if(
5ee0: 74 79 70 65 3d 3d 53 51 4c 49 54 45 5f 49 4e 54 type==SQLITE_INT
5ef0: 45 47 45 52 20 29 7b 0a 20 20 20 20 20 20 69 36 EGER ){. i6
5f00: 34 20 76 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 4 v = sqlite3_va
5f10: 6c 75 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 30 lue_int64(argv[0
5f20: 5d 29 3b 0a 20 20 20 20 20 20 70 2d 3e 72 53 75 ]);. p->rSu
5f30: 6d 20 2b 3d 20 76 3b 0a 20 20 20 20 20 20 69 66 m += v;. if
5f40: 28 20 28 70 2d 3e 61 70 70 72 6f 78 7c 70 2d 3e ( (p->approx|p->
5f50: 6f 76 65 72 66 6c 6f 77 29 3d 3d 30 20 29 7b 0a overflow)==0 ){.
5f60: 20 20 20 20 20 20 20 20 69 36 34 20 69 4e 65 77 i64 iNew
5f70: 53 75 6d 20 3d 20 70 2d 3e 69 53 75 6d 20 2b 20 Sum = p->iSum +
5f80: 76 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 73 v;. int s
5f90: 31 20 3d 20 70 2d 3e 69 53 75 6d 20 3e 3e 20 28 1 = p->iSum >> (
5fa0: 73 69 7a 65 6f 66 28 69 36 34 29 2a 38 2d 31 29 sizeof(i64)*8-1)
5fb0: 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 73 32 ;. int s2
5fc0: 20 3d 20 76 20 20 20 20 20 20 20 3e 3e 20 28 73 = v >> (s
5fd0: 69 7a 65 6f 66 28 69 36 34 29 2a 38 2d 31 29 3b izeof(i64)*8-1);
5fe0: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 73 33 20 . int s3
5ff0: 3d 20 69 4e 65 77 53 75 6d 20 3e 3e 20 28 73 69 = iNewSum >> (si
6000: 7a 65 6f 66 28 69 36 34 29 2a 38 2d 31 29 3b 0a zeof(i64)*8-1);.
6010: 20 20 20 20 20 20 20 20 70 2d 3e 6f 76 65 72 66 p->overf
6020: 6c 6f 77 20 3d 20 28 73 31 26 73 32 26 7e 73 33 low = (s1&s2&~s3
6030: 29 20 7c 20 28 7e 73 31 26 7e 73 32 26 73 33 29 ) | (~s1&~s2&s3)
6040: 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e 69 53 75 ;. p->iSu
6050: 6d 20 3d 20 69 4e 65 77 53 75 6d 3b 0a 20 20 20 m = iNewSum;.
6060: 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a }. }else{.
6070: 20 20 20 20 20 20 70 2d 3e 72 53 75 6d 20 2b 3d p->rSum +=
6080: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 sqlite3_value_d
6090: 6f 75 62 6c 65 28 61 72 67 76 5b 30 5d 29 3b 0a ouble(argv[0]);.
60a0: 20 20 20 20 20 20 70 2d 3e 61 70 70 72 6f 78 20 p->approx
60b0: 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d = 1;. }. }.}
60c0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73 75 6d .static void sum
60d0: 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 Finalize(sqlite3
60e0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
60f0: 74 29 7b 0a 20 20 53 75 6d 43 74 78 20 2a 70 3b t){. SumCtx *p;
6100: 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 . p = sqlite3_a
6110: 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 ggregate_context
6120: 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 (context, 0);.
6130: 69 66 28 20 70 20 26 26 20 70 2d 3e 63 6e 74 3e if( p && p->cnt>
6140: 30 20 29 7b 0a 20 20 20 20 69 66 28 20 70 2d 3e 0 ){. if( p->
6150: 6f 76 65 72 66 6c 6f 77 20 29 7b 0a 20 20 20 20 overflow ){.
6160: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
6170: 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 22 _error(context,"
6180: 69 6e 74 65 67 65 72 20 6f 76 65 72 66 6c 6f 77 integer overflow
6190: 22 2c 2d 31 29 3b 0a 20 20 20 20 7d 65 6c 73 65 ",-1);. }else
61a0: 20 69 66 28 20 70 2d 3e 61 70 70 72 6f 78 20 29 if( p->approx )
61b0: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f {. sqlite3_
61c0: 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f result_double(co
61d0: 6e 74 65 78 74 2c 20 70 2d 3e 72 53 75 6d 29 3b ntext, p->rSum);
61e0: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
61f0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
6200: 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 _int64(context,
6210: 70 2d 3e 69 53 75 6d 29 3b 0a 20 20 20 20 7d 0a p->iSum);. }.
6220: 20 20 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 }.}.static voi
6230: 64 20 61 76 67 46 69 6e 61 6c 69 7a 65 28 73 71 d avgFinalize(sq
6240: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
6250: 6f 6e 74 65 78 74 29 7b 0a 20 20 53 75 6d 43 74 ontext){. SumCt
6260: 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 x *p;. p = sqli
6270: 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f te3_aggregate_co
6280: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 ntext(context, 0
6290: 29 3b 0a 20 20 69 66 28 20 70 20 26 26 20 70 2d );. if( p && p-
62a0: 3e 63 6e 74 3e 30 20 29 7b 0a 20 20 20 20 73 71 >cnt>0 ){. sq
62b0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 lite3_result_dou
62c0: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 70 2d 3e ble(context, p->
62d0: 72 53 75 6d 2f 28 64 6f 75 62 6c 65 29 70 2d 3e rSum/(double)p->
62e0: 63 6e 74 29 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 cnt);. }.}.stat
62f0: 69 63 20 76 6f 69 64 20 74 6f 74 61 6c 46 69 6e ic void totalFin
6300: 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f alize(sqlite3_co
6310: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b ntext *context){
6320: 0a 20 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 20 . SumCtx *p;.
6330: 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 p = sqlite3_aggr
6340: 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f egate_context(co
6350: 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 73 71 6c ntext, 0);. sql
6360: 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62 ite3_result_doub
6370: 6c 65 28 63 6f 6e 74 65 78 74 2c 20 70 20 3f 20 le(context, p ?
6380: 70 2d 3e 72 53 75 6d 20 3a 20 30 2e 30 29 3b 0a p->rSum : 0.0);.
6390: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c }../*.** The fol
63a0: 6c 6f 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 lowing structure
63b0: 20 6b 65 65 70 73 20 74 72 61 63 6b 20 6f 66 20 keeps track of
63c0: 73 74 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f state informatio
63d0: 6e 20 66 6f 72 20 74 68 65 0a 2a 2a 20 63 6f 75 n for the.** cou
63e0: 6e 74 28 29 20 61 67 67 72 65 67 61 74 65 20 66 nt() aggregate f
63f0: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 unction..*/.type
6400: 64 65 66 20 73 74 72 75 63 74 20 43 6f 75 6e 74 def struct Count
6410: 43 74 78 20 43 6f 75 6e 74 43 74 78 3b 0a 73 74 Ctx CountCtx;.st
6420: 72 75 63 74 20 43 6f 75 6e 74 43 74 78 20 7b 0a ruct CountCtx {.
6430: 20 20 69 36 34 20 6e 3b 0a 7d 3b 0a 0a 2f 2a 0a i64 n;.};../*.
6440: 2a 2a 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 69 ** Routines to i
6450: 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 63 6f 75 mplement the cou
6460: 6e 74 28 29 20 61 67 67 72 65 67 61 74 65 20 66 nt() aggregate f
6470: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 unction..*/.stat
6480: 69 63 20 76 6f 69 64 20 63 6f 75 6e 74 53 74 65 ic void countSte
6490: 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 p(sqlite3_contex
64a0: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 t *context, int
64b0: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 argc, sqlite3_va
64c0: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 43 lue **argv){. C
64d0: 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 ountCtx *p;. p
64e0: 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 = sqlite3_aggreg
64f0: 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 ate_context(cont
6500: 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 ext, sizeof(*p))
6510: 3b 0a 20 20 69 66 28 20 28 61 72 67 63 3d 3d 30 ;. if( (argc==0
6520: 20 7c 7c 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 21 || SQLITE_NULL!
6530: 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 =sqlite3_value_t
6540: 79 70 65 28 61 72 67 76 5b 30 5d 29 29 20 26 26 ype(argv[0])) &&
6550: 20 70 20 29 7b 0a 20 20 20 20 70 2d 3e 6e 2b 2b p ){. p->n++
6560: 3b 0a 20 20 7d 0a 7d 20 20 20 0a 73 74 61 74 69 ;. }.} .stati
6570: 63 20 76 6f 69 64 20 63 6f 75 6e 74 46 69 6e 61 c void countFina
6580: 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e lize(sqlite3_con
6590: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a text *context){.
65a0: 20 20 43 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 CountCtx *p;.
65b0: 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 p = sqlite3_agg
65c0: 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 regate_context(c
65d0: 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 73 71 ontext, 0);. sq
65e0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 lite3_result_int
65f0: 36 34 28 63 6f 6e 74 65 78 74 2c 20 70 20 3f 20 64(context, p ?
6600: 70 2d 3e 6e 20 3a 20 30 29 3b 0a 7d 0a 0a 2f 2a p->n : 0);.}../*
6610: 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 .** Routines to
6620: 69 6d 70 6c 65 6d 65 6e 74 20 6d 69 6e 28 29 20 implement min()
6630: 61 6e 64 20 6d 61 78 28 29 20 61 67 67 72 65 67 and max() aggreg
6640: 61 74 65 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a ate functions..*
6650: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6d 69 /.static void mi
6660: 6e 6d 61 78 53 74 65 70 28 73 71 6c 69 74 65 33 nmaxStep(sqlite3
6670: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
6680: 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c t, int argc, sql
6690: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
66a0: 76 29 7b 0a 20 20 4d 65 6d 20 2a 70 41 72 67 20 v){. Mem *pArg
66b0: 20 3d 20 28 4d 65 6d 20 2a 29 61 72 67 76 5b 30 = (Mem *)argv[0
66c0: 5d 3b 0a 20 20 4d 65 6d 20 2a 70 42 65 73 74 3b ];. Mem *pBest;
66d0: 0a 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f .. if( sqlite3_
66e0: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b value_type(argv[
66f0: 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 0])==SQLITE_NULL
6700: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 70 42 65 ) return;. pBe
6710: 73 74 20 3d 20 28 4d 65 6d 20 2a 29 73 71 6c 69 st = (Mem *)sqli
6720: 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f te3_aggregate_co
6730: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 ntext(context, s
6740: 69 7a 65 6f 66 28 2a 70 42 65 73 74 29 29 3b 0a izeof(*pBest));.
6750: 20 20 69 66 28 20 21 70 42 65 73 74 20 29 20 72 if( !pBest ) r
6760: 65 74 75 72 6e 3b 0a 0a 20 20 69 66 28 20 70 42 eturn;.. if( pB
6770: 65 73 74 2d 3e 66 6c 61 67 73 20 29 7b 0a 20 20 est->flags ){.
6780: 20 20 69 6e 74 20 6d 61 78 3b 0a 20 20 20 20 69 int max;. i
6790: 6e 74 20 63 6d 70 3b 0a 20 20 20 20 43 6f 6c 6c nt cmp;. Coll
67a0: 53 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 73 71 6c Seq *pColl = sql
67b0: 69 74 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53 ite3GetFuncCollS
67c0: 65 71 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 eq(context);.
67d0: 20 2f 2a 20 54 68 69 73 20 73 74 65 70 20 66 75 /* This step fu
67e0: 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 66 nction is used f
67f0: 6f 72 20 62 6f 74 68 20 74 68 65 20 6d 69 6e 28 or both the min(
6800: 29 20 61 6e 64 20 6d 61 78 28 29 20 61 67 67 72 ) and max() aggr
6810: 65 67 61 74 65 73 2c 0a 20 20 20 20 2a 2a 20 74 egates,. ** t
6820: 68 65 20 6f 6e 6c 79 20 64 69 66 66 65 72 65 6e he only differen
6830: 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 20 74 ce between the t
6840: 77 6f 20 62 65 69 6e 67 20 74 68 61 74 20 74 68 wo being that th
6850: 65 20 73 65 6e 73 65 20 6f 66 20 74 68 65 0a 20 e sense of the.
6860: 20 20 20 2a 2a 20 63 6f 6d 70 61 72 69 73 6f 6e ** comparison
6870: 20 69 73 20 69 6e 76 65 72 74 65 64 2e 20 46 6f is inverted. Fo
6880: 72 20 74 68 65 20 6d 61 78 28 29 20 61 67 67 72 r the max() aggr
6890: 65 67 61 74 65 2c 20 74 68 65 0a 20 20 20 20 2a egate, the. *
68a0: 2a 20 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 * sqlite3_user_d
68b0: 61 74 61 28 29 20 66 75 6e 63 74 69 6f 6e 20 72 ata() function r
68c0: 65 74 75 72 6e 73 20 28 76 6f 69 64 20 2a 29 2d eturns (void *)-
68d0: 31 2e 20 46 6f 72 20 6d 69 6e 28 29 20 69 74 0a 1. For min() it.
68e0: 20 20 20 20 2a 2a 20 72 65 74 75 72 6e 73 20 28 ** returns (
68f0: 76 6f 69 64 20 2a 29 64 62 2c 20 77 68 65 72 65 void *)db, where
6900: 20 64 62 20 69 73 20 74 68 65 20 73 71 6c 69 74 db is the sqlit
6910: 65 33 2a 20 64 61 74 61 62 61 73 65 20 70 6f 69 e3* database poi
6920: 6e 74 65 72 2e 0a 20 20 20 20 2a 2a 20 54 68 65 nter.. ** The
6930: 72 65 66 6f 72 65 20 74 68 65 20 6e 65 78 74 20 refore the next
6940: 73 74 61 74 65 6d 65 6e 74 20 73 65 74 73 20 76 statement sets v
6950: 61 72 69 61 62 6c 65 20 27 6d 61 78 27 20 74 6f ariable 'max' to
6960: 20 31 20 66 6f 72 20 74 68 65 20 6d 61 78 28 29 1 for the max()
6970: 0a 20 20 20 20 2a 2a 20 61 67 67 72 65 67 61 74 . ** aggregat
6980: 65 2c 20 6f 72 20 30 20 66 6f 72 20 6d 69 6e 28 e, or 0 for min(
6990: 29 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 6d 61 ).. */. ma
69a0: 78 20 3d 20 28 28 73 71 6c 69 74 65 33 5f 75 73 x = ((sqlite3_us
69b0: 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 er_data(context)
69c0: 3d 3d 28 76 6f 69 64 20 2a 29 2d 31 29 3f 31 3a ==(void *)-1)?1:
69d0: 30 29 3b 0a 20 20 20 20 63 6d 70 20 3d 20 73 71 0);. cmp = sq
69e0: 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 65 28 lite3MemCompare(
69f0: 70 42 65 73 74 2c 20 70 41 72 67 2c 20 70 43 6f pBest, pArg, pCo
6a00: 6c 6c 29 3b 0a 20 20 20 20 69 66 28 20 28 6d 61 ll);. if( (ma
6a10: 78 20 26 26 20 63 6d 70 3c 30 29 20 7c 7c 20 28 x && cmp<0) || (
6a20: 21 6d 61 78 20 26 26 20 63 6d 70 3e 30 29 20 29 !max && cmp>0) )
6a30: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 56 {. sqlite3V
6a40: 64 62 65 4d 65 6d 43 6f 70 79 28 70 42 65 73 74 dbeMemCopy(pBest
6a50: 2c 20 70 41 72 67 29 3b 0a 20 20 20 20 7d 0a 20 , pArg);. }.
6a60: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71 6c 69 }else{. sqli
6a70: 74 65 33 56 64 62 65 4d 65 6d 43 6f 70 79 28 70 te3VdbeMemCopy(p
6a80: 42 65 73 74 2c 20 70 41 72 67 29 3b 0a 20 20 7d Best, pArg);. }
6a90: 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6d .}.static void m
6aa0: 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 28 73 71 inMaxFinalize(sq
6ab0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
6ac0: 6f 6e 74 65 78 74 29 7b 0a 20 20 73 71 6c 69 74 ontext){. sqlit
6ad0: 65 33 5f 76 61 6c 75 65 20 2a 70 52 65 73 3b 0a e3_value *pRes;.
6ae0: 20 20 70 52 65 73 20 3d 20 28 73 71 6c 69 74 65 pRes = (sqlite
6af0: 33 5f 76 61 6c 75 65 20 2a 29 73 71 6c 69 74 65 3_value *)sqlite
6b00: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
6b10: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b ext(context, 0);
6b20: 0a 20 20 69 66 28 20 70 52 65 73 20 29 7b 0a 20 . if( pRes ){.
6b30: 20 20 20 69 66 28 20 70 52 65 73 2d 3e 66 6c 61 if( pRes->fla
6b40: 67 73 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 gs ){. sqli
6b50: 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 te3_result_value
6b60: 28 63 6f 6e 74 65 78 74 2c 20 70 52 65 73 29 3b (context, pRes);
6b70: 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 . }. sqlit
6b80: 65 33 56 64 62 65 4d 65 6d 52 65 6c 65 61 73 65 e3VdbeMemRelease
6b90: 28 70 52 65 73 29 3b 0a 20 20 7d 0a 7d 0a 0a 0a (pRes);. }.}...
6ba0: 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 /*.** This funct
6bb0: 69 6f 6e 20 72 65 67 69 73 74 65 72 65 64 20 61 ion registered a
6bc0: 6c 6c 20 6f 66 20 74 68 65 20 61 62 6f 76 65 20 ll of the above
6bd0: 43 20 66 75 6e 63 74 69 6f 6e 73 20 61 73 20 53 C functions as S
6be0: 51 4c 0a 2a 2a 20 66 75 6e 63 74 69 6f 6e 73 2e QL.** functions.
6bf0: 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20 62 65 This should be
6c00: 20 74 68 65 20 6f 6e 6c 79 20 72 6f 75 74 69 6e the only routin
6c10: 65 20 69 6e 20 74 68 69 73 20 66 69 6c 65 20 77 e in this file w
6c20: 69 74 68 0a 2a 2a 20 65 78 74 65 72 6e 61 6c 20 ith.** external
6c30: 6c 69 6e 6b 61 67 65 2e 0a 2a 2f 0a 76 6f 69 64 linkage..*/.void
6c40: 20 73 71 6c 69 74 65 33 52 65 67 69 73 74 65 72 sqlite3Register
6c50: 42 75 69 6c 74 69 6e 46 75 6e 63 74 69 6f 6e 73 BuiltinFunctions
6c60: 28 73 71 6c 69 74 65 33 20 2a 64 62 29 7b 0a 20 (sqlite3 *db){.
6c70: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74 static const st
6c80: 72 75 63 74 20 7b 0a 20 20 20 20 20 63 68 61 72 ruct {. char
6c90: 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 73 69 *zName;. si
6ca0: 67 6e 65 64 20 63 68 61 72 20 6e 41 72 67 3b 0a gned char nArg;.
6cb0: 20 20 20 20 20 75 38 20 61 72 67 54 79 70 65 3b u8 argType;
6cc0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 30 3a /* 0:
6cd0: 20 6e 6f 6e 65 2e 20 20 31 3a 20 64 62 20 20 32 none. 1: db 2
6ce0: 3a 20 28 2d 31 29 20 2a 2f 0a 20 20 20 20 20 75 : (-1) */. u
6cf0: 38 20 65 54 65 78 74 52 65 70 3b 20 20 20 20 20 8 eTextRep;
6d00: 20 20 20 20 20 2f 2a 20 31 3a 20 55 54 46 2d 31 /* 1: UTF-1
6d10: 36 2e 20 20 30 3a 20 55 54 46 2d 38 20 2a 2f 0a 6. 0: UTF-8 */.
6d20: 20 20 20 20 20 75 38 20 6e 65 65 64 43 6f 6c 6c u8 needColl
6d30: 53 65 71 3b 0a 20 20 20 20 20 76 6f 69 64 20 28 Seq;. void (
6d40: 2a 78 46 75 6e 63 29 28 73 71 6c 69 74 65 33 5f *xFunc)(sqlite3_
6d50: 63 6f 6e 74 65 78 74 2a 2c 69 6e 74 2c 73 71 6c context*,int,sql
6d60: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 29 3b 0a ite3_value **);.
6d70: 20 20 7d 20 61 46 75 6e 63 73 5b 5d 20 3d 20 7b } aFuncs[] = {
6d80: 0a 20 20 20 20 7b 20 22 6d 69 6e 22 2c 20 20 20 . { "min",
6d90: 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 2c 20 -1,
6da0: 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0, SQLITE_UTF8,
6db0: 20 20 20 31 2c 20 6d 69 6e 6d 61 78 46 75 6e 63 1, minmaxFunc
6dc0: 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 69 6e 22 2c },. { "min",
6dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6de0: 30 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 0, 0, SQLITE_UTF
6df0: 38 2c 20 20 20 20 31 2c 20 30 20 20 20 20 20 20 8, 1, 0
6e00: 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 61 },. { "ma
6e10: 78 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 x",
6e20: 20 20 2d 31 2c 20 32 2c 20 53 51 4c 49 54 45 5f -1, 2, SQLITE_
6e30: 55 54 46 38 2c 20 20 20 20 31 2c 20 6d 69 6e 6d UTF8, 1, minm
6e40: 61 78 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 axFunc },. {
6e50: 22 6d 61 78 22 2c 20 20 20 20 20 20 20 20 20 20 "max",
6e60: 20 20 20 20 20 20 30 2c 20 32 2c 20 53 51 4c 49 0, 2, SQLI
6e70: 54 45 5f 55 54 46 38 2c 20 20 20 20 31 2c 20 30 TE_UTF8, 1, 0
6e80: 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 },.
6e90: 20 7b 20 22 74 79 70 65 6f 66 22 2c 20 20 20 20 { "typeof",
6ea0: 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 53 1, 0, S
6eb0: 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 QLITE_UTF8, 0
6ec0: 2c 20 74 79 70 65 6f 66 46 75 6e 63 20 7d 2c 0a , typeofFunc },.
6ed0: 20 20 20 20 7b 20 22 6c 65 6e 67 74 68 22 2c 20 { "length",
6ee0: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 1, 0
6ef0: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 , SQLITE_UTF8,
6f00: 20 20 30 2c 20 6c 65 6e 67 74 68 46 75 6e 63 20 0, lengthFunc
6f10: 7d 2c 0a 20 20 20 20 7b 20 22 73 75 62 73 74 72 },. { "substr
6f20: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 33 ", 3
6f30: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 0, SQLITE_UTF8
6f40: 2c 20 20 20 20 30 2c 20 73 75 62 73 74 72 46 75 , 0, substrFu
6f50: 6e 63 20 7d 2c 0a 23 69 66 6e 64 65 66 20 53 51 nc },.#ifndef SQ
6f60: 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a LITE_OMIT_UTF16.
6f70: 20 20 20 20 7b 20 22 73 75 62 73 74 72 22 2c 20 { "substr",
6f80: 20 20 20 20 20 20 20 20 20 20 20 20 33 2c 20 30 3, 0
6f90: 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 45 , SQLITE_UTF16LE
6fa0: 2c 20 30 2c 20 73 71 6c 69 74 65 33 75 74 66 31 , 0, sqlite3utf1
6fb0: 36 53 75 62 73 74 72 20 7d 2c 0a 23 65 6e 64 69 6Substr },.#endi
6fc0: 66 0a 20 20 20 20 7b 20 22 61 62 73 22 2c 20 20 f. { "abs",
6fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 1,
6fe0: 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 0, SQLITE_UTF8,
6ff0: 20 20 20 20 30 2c 20 61 62 73 46 75 6e 63 20 20 0, absFunc
7000: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 72 6f 75 6e },. { "roun
7010: 64 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 d",
7020: 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 1, 0, SQLITE_UT
7030: 46 38 2c 20 20 20 20 30 2c 20 72 6f 75 6e 64 46 F8, 0, roundF
7040: 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 22 72 unc },. { "r
7050: 6f 75 6e 64 22 2c 20 20 20 20 20 20 20 20 20 20 ound",
7060: 20 20 20 20 32 2c 20 30 2c 20 53 51 4c 49 54 45 2, 0, SQLITE
7070: 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 72 6f 75 _UTF8, 0, rou
7080: 6e 64 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b ndFunc },. {
7090: 20 22 75 70 70 65 72 22 2c 20 20 20 20 20 20 20 "upper",
70a0: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 53 51 4c 1, 0, SQL
70b0: 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 ITE_UTF8, 0,
70c0: 75 70 70 65 72 46 75 6e 63 20 20 7d 2c 0a 20 20 upperFunc },.
70d0: 20 20 7b 20 22 6c 6f 77 65 72 22 2c 20 20 20 20 { "lower",
70e0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
70f0: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 SQLITE_UTF8,
7100: 30 2c 20 6c 6f 77 65 72 46 75 6e 63 20 20 7d 2c 0, lowerFunc },
7110: 0a 20 20 20 20 7b 20 22 63 6f 61 6c 65 73 63 65 . { "coalesce
7120: 22 2c 20 20 20 20 20 20 20 20 20 20 2d 31 2c 20 ", -1,
7130: 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0, SQLITE_UTF8,
7140: 20 20 20 30 2c 20 69 66 6e 75 6c 6c 46 75 6e 63 0, ifnullFunc
7150: 20 7d 2c 0a 20 20 20 20 7b 20 22 63 6f 61 6c 65 },. { "coale
7160: 73 63 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 sce",
7170: 30 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 0, 0, SQLITE_UTF
7180: 38 2c 20 20 20 20 30 2c 20 30 20 20 20 20 20 20 8, 0, 0
7190: 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 63 6f },. { "co
71a0: 61 6c 65 73 63 65 22 2c 20 20 20 20 20 20 20 20 alesce",
71b0: 20 20 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 1, 0, SQLITE_
71c0: 55 54 46 38 2c 20 20 20 20 30 2c 20 30 20 20 20 UTF8, 0, 0
71d0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
71e0: 22 69 66 6e 75 6c 6c 22 2c 20 20 20 20 20 20 20 "ifnull",
71f0: 20 20 20 20 20 20 32 2c 20 30 2c 20 53 51 4c 49 2, 0, SQLI
7200: 54 45 5f 55 54 46 38 2c 20 20 20 20 31 2c 20 69 TE_UTF8, 1, i
7210: 66 6e 75 6c 6c 46 75 6e 63 20 7d 2c 0a 20 20 20 fnullFunc },.
7220: 20 7b 20 22 72 61 6e 64 6f 6d 22 2c 20 20 20 20 { "random",
7230: 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 53 -1, 0, S
7240: 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 QLITE_UTF8, 0
7250: 2c 20 72 61 6e 64 6f 6d 46 75 6e 63 20 7d 2c 0a , randomFunc },.
7260: 20 20 20 20 7b 20 22 6e 75 6c 6c 69 66 22 2c 20 { "nullif",
7270: 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 30 2, 0
7280: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 , SQLITE_UTF8,
7290: 20 20 31 2c 20 6e 75 6c 6c 69 66 46 75 6e 63 20 1, nullifFunc
72a0: 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65 },. { "sqlite
72b0: 5f 76 65 72 73 69 6f 6e 22 2c 20 20 20 20 20 30 _version", 0
72c0: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 0, SQLITE_UTF8
72d0: 2c 20 20 20 20 30 2c 20 76 65 72 73 69 6f 6e 46 , 0, versionF
72e0: 75 6e 63 7d 2c 0a 20 20 20 20 7b 20 22 71 75 6f unc},. { "quo
72f0: 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 te",
7300: 20 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 1, 0, SQLITE_U
7310: 54 46 38 2c 20 20 20 20 30 2c 20 71 75 6f 74 65 TF8, 0, quote
7320: 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 22 Func },. { "
7330: 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 last_insert_rowi
7340: 64 22 2c 20 20 30 2c 20 31 2c 20 53 51 4c 49 54 d", 0, 1, SQLIT
7350: 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 6c 61 E_UTF8, 0, la
7360: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 20 st_insert_rowid
7370: 7d 2c 0a 20 20 20 20 7b 20 22 63 68 61 6e 67 65 },. { "change
7380: 73 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 30 s", 0
7390: 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 1, SQLITE_UTF8
73a0: 2c 20 20 20 20 30 2c 20 63 68 61 6e 67 65 73 20 , 0, changes
73b0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 74 6f 74 },. { "tot
73c0: 61 6c 5f 63 68 61 6e 67 65 73 22 2c 20 20 20 20 al_changes",
73d0: 20 20 30 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 0, 1, SQLITE_U
73e0: 54 46 38 2c 20 20 20 20 30 2c 20 74 6f 74 61 6c TF8, 0, total
73f0: 5f 63 68 61 6e 67 65 73 20 7d 2c 0a 23 69 66 64 _changes },.#ifd
7400: 65 66 20 53 51 4c 49 54 45 5f 53 4f 55 4e 44 45 ef SQLITE_SOUNDE
7410: 58 0a 20 20 20 20 7b 20 22 73 6f 75 6e 64 65 78 X. { "soundex
7420: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 31 2c ", 1,
7430: 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 0, SQLITE_UTF8,
7440: 20 30 2c 20 73 6f 75 6e 64 65 78 46 75 6e 63 7d 0, soundexFunc}
7450: 2c 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 ,.#endif.#ifdef
7460: 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 20 20 SQLITE_TEST.
7470: 7b 20 22 72 61 6e 64 73 74 72 22 2c 20 20 20 20 { "randstr",
7480: 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 30 2c 2, 0,
7490: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c SQLITE_UTF8, 0,
74a0: 20 72 61 6e 64 53 74 72 20 20 20 20 7d 2c 0a 20 randStr },.
74b0: 20 20 20 7b 20 22 74 65 73 74 5f 64 65 73 74 72 { "test_destr
74c0: 75 63 74 6f 72 22 2c 20 20 20 20 20 20 20 31 2c uctor", 1,
74d0: 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 1, SQLITE_UTF8,
74e0: 20 30 2c 20 74 65 73 74 5f 64 65 73 74 72 75 63 0, test_destruc
74f0: 74 6f 72 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 tor},. { "tes
7500: 74 5f 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 t_destructor_cou
7510: 6e 74 22 2c 20 30 2c 20 30 2c 20 53 51 4c 49 54 nt", 0, 0, SQLIT
7520: 45 5f 55 54 46 38 2c 20 30 2c 20 74 65 73 74 5f E_UTF8, 0, test_
7530: 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 destructor_count
7540: 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 61 },. { "test_a
7550: 75 78 64 61 74 61 22 2c 20 20 20 20 20 20 20 20 uxdata",
7560: 20 2d 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 -1, 0, SQLITE_U
7570: 54 46 38 2c 20 30 2c 20 74 65 73 74 5f 61 75 78 TF8, 0, test_aux
7580: 64 61 74 61 7d 2c 0a 20 20 20 20 7b 20 22 74 65 data},. { "te
7590: 73 74 5f 65 72 72 6f 72 22 2c 20 20 20 20 20 20 st_error",
75a0: 20 20 20 20 20 20 31 2c 20 30 2c 20 53 51 4c 49 1, 0, SQLI
75b0: 54 45 5f 55 54 46 38 2c 20 30 2c 20 74 65 73 74 TE_UTF8, 0, test
75c0: 5f 65 72 72 6f 72 7d 2c 0a 23 65 6e 64 69 66 0a _error},.#endif.
75d0: 20 20 7d 3b 0a 20 20 73 74 61 74 69 63 20 63 6f };. static co
75e0: 6e 73 74 20 73 74 72 75 63 74 20 7b 0a 20 20 20 nst struct {.
75f0: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 char *zName;.
7600: 20 20 73 69 67 6e 65 64 20 63 68 61 72 20 6e 41 signed char nA
7610: 72 67 3b 0a 20 20 20 20 75 38 20 61 72 67 54 79 rg;. u8 argTy
7620: 70 65 3b 0a 20 20 20 20 75 38 20 6e 65 65 64 43 pe;. u8 needC
7630: 6f 6c 6c 53 65 71 3b 0a 20 20 20 20 76 6f 69 64 ollSeq;. void
7640: 20 28 2a 78 53 74 65 70 29 28 73 71 6c 69 74 65 (*xStep)(sqlite
7650: 33 5f 63 6f 6e 74 65 78 74 2a 2c 69 6e 74 2c 73 3_context*,int,s
7660: 71 6c 69 74 65 33 5f 76 61 6c 75 65 2a 2a 29 3b qlite3_value**);
7670: 0a 20 20 20 20 76 6f 69 64 20 28 2a 78 46 69 6e . void (*xFin
7680: 61 6c 69 7a 65 29 28 73 71 6c 69 74 65 33 5f 63 alize)(sqlite3_c
7690: 6f 6e 74 65 78 74 2a 29 3b 0a 20 20 7d 20 61 41 ontext*);. } aA
76a0: 67 67 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 ggs[] = {. {
76b0: 22 6d 69 6e 22 2c 20 20 20 20 31 2c 20 30 2c 20 "min", 1, 0,
76c0: 31 2c 20 6d 69 6e 6d 61 78 53 74 65 70 2c 20 20 1, minmaxStep,
76d0: 20 6d 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 20 minMaxFinalize
76e0: 7d 2c 0a 20 20 20 20 7b 20 22 6d 61 78 22 2c 20 },. { "max",
76f0: 20 20 20 31 2c 20 32 2c 20 31 2c 20 6d 69 6e 6d 1, 2, 1, minm
7700: 61 78 53 74 65 70 2c 20 20 20 6d 69 6e 4d 61 78 axStep, minMax
7710: 46 69 6e 61 6c 69 7a 65 20 7d 2c 0a 20 20 20 20 Finalize },.
7720: 7b 20 22 73 75 6d 22 2c 20 20 20 20 31 2c 20 30 { "sum", 1, 0
7730: 2c 20 30 2c 20 73 75 6d 53 74 65 70 2c 20 20 20 , 0, sumStep,
7740: 20 20 20 73 75 6d 46 69 6e 61 6c 69 7a 65 20 20 sumFinalize
7750: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 74 6f 74 61 },. { "tota
7760: 6c 22 2c 20 20 31 2c 20 30 2c 20 30 2c 20 73 75 l", 1, 0, 0, su
7770: 6d 53 74 65 70 2c 20 20 20 20 20 20 74 6f 74 61 mStep, tota
7780: 6c 46 69 6e 61 6c 69 7a 65 20 20 20 20 7d 2c 0a lFinalize },.
7790: 20 20 20 20 7b 20 22 61 76 67 22 2c 20 20 20 20 { "avg",
77a0: 31 2c 20 30 2c 20 30 2c 20 73 75 6d 53 74 65 70 1, 0, 0, sumStep
77b0: 2c 20 20 20 20 20 20 61 76 67 46 69 6e 61 6c 69 , avgFinali
77c0: 7a 65 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 ze },. { "
77d0: 63 6f 75 6e 74 22 2c 20 20 30 2c 20 30 2c 20 30 count", 0, 0, 0
77e0: 2c 20 63 6f 75 6e 74 53 74 65 70 2c 20 20 20 20 , countStep,
77f0: 63 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 20 20 7d countFinalize }
7800: 2c 0a 20 20 20 20 7b 20 22 63 6f 75 6e 74 22 2c ,. { "count",
7810: 20 20 31 2c 20 30 2c 20 30 2c 20 63 6f 75 6e 74 1, 0, 0, count
7820: 53 74 65 70 2c 20 20 20 20 63 6f 75 6e 74 46 69 Step, countFi
7830: 6e 61 6c 69 7a 65 20 20 7d 2c 0a 20 20 7d 3b 0a nalize },. };.
7840: 20 20 69 6e 74 20 69 3b 0a 0a 20 20 66 6f 72 28 int i;.. for(
7850: 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 46 i=0; i<sizeof(aF
7860: 75 6e 63 73 29 2f 73 69 7a 65 6f 66 28 61 46 75 uncs)/sizeof(aFu
7870: 6e 63 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 ncs[0]); i++){.
7880: 20 20 20 76 6f 69 64 20 2a 70 41 72 67 20 3d 20 void *pArg =
7890: 30 3b 0a 20 20 20 20 73 77 69 74 63 68 28 20 61 0;. switch( a
78a0: 46 75 6e 63 73 5b 69 5d 2e 61 72 67 54 79 70 65 Funcs[i].argType
78b0: 20 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20 31 ){. case 1
78c0: 3a 20 70 41 72 67 20 3d 20 64 62 3b 20 62 72 65 : pArg = db; bre
78d0: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 32 ak;. case 2
78e0: 3a 20 70 41 72 67 20 3d 20 28 76 6f 69 64 20 2a : pArg = (void *
78f0: 29 28 2d 31 29 3b 20 62 72 65 61 6b 3b 0a 20 20 )(-1); break;.
7900: 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 43 }. sqlite3C
7910: 72 65 61 74 65 46 75 6e 63 28 64 62 2c 20 61 46 reateFunc(db, aF
7920: 75 6e 63 73 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 uncs[i].zName, a
7930: 46 75 6e 63 73 5b 69 5d 2e 6e 41 72 67 2c 0a 20 Funcs[i].nArg,.
7940: 20 20 20 20 20 20 20 61 46 75 6e 63 73 5b 69 5d aFuncs[i]
7950: 2e 65 54 65 78 74 52 65 70 2c 20 70 41 72 67 2c .eTextRep, pArg,
7960: 20 61 46 75 6e 63 73 5b 69 5d 2e 78 46 75 6e 63 aFuncs[i].xFunc
7970: 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 69 66 28 , 0, 0);. if(
7980: 20 61 46 75 6e 63 73 5b 69 5d 2e 6e 65 65 64 43 aFuncs[i].needC
7990: 6f 6c 6c 53 65 71 20 29 7b 0a 20 20 20 20 20 20 ollSeq ){.
79a0: 46 75 6e 63 44 65 66 20 2a 70 46 75 6e 63 20 3d FuncDef *pFunc =
79b0: 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e 63 sqlite3FindFunc
79c0: 74 69 6f 6e 28 64 62 2c 20 61 46 75 6e 63 73 5b tion(db, aFuncs[
79d0: 69 5d 2e 7a 4e 61 6d 65 2c 20 0a 20 20 20 20 20 i].zName, .
79e0: 20 20 20 20 20 73 74 72 6c 65 6e 28 61 46 75 6e strlen(aFun
79f0: 63 73 5b 69 5d 2e 7a 4e 61 6d 65 29 2c 20 61 46 cs[i].zName), aF
7a00: 75 6e 63 73 5b 69 5d 2e 6e 41 72 67 2c 20 61 46 uncs[i].nArg, aF
7a10: 75 6e 63 73 5b 69 5d 2e 65 54 65 78 74 52 65 70 uncs[i].eTextRep
7a20: 2c 20 30 29 3b 0a 20 20 20 20 20 20 69 66 28 20 , 0);. if(
7a30: 70 46 75 6e 63 20 26 26 20 61 46 75 6e 63 73 5b pFunc && aFuncs[
7a40: 69 5d 2e 6e 65 65 64 43 6f 6c 6c 53 65 71 20 29 i].needCollSeq )
7a50: 7b 0a 20 20 20 20 20 20 20 20 70 46 75 6e 63 2d {. pFunc-
7a60: 3e 6e 65 65 64 43 6f 6c 6c 53 65 71 20 3d 20 31 >needCollSeq = 1
7a70: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a ;. }. }.
7a80: 20 20 7d 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 }.#ifndef SQLI
7a90: 54 45 5f 4f 4d 49 54 5f 41 4c 54 45 52 54 41 42 TE_OMIT_ALTERTAB
7aa0: 4c 45 0a 20 20 73 71 6c 69 74 65 33 41 6c 74 65 LE. sqlite3Alte
7ab0: 72 46 75 6e 63 74 69 6f 6e 73 28 64 62 29 3b 0a rFunctions(db);.
7ac0: 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 53 #endif.#ifndef S
7ad0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 50 41 52 53 45 QLITE_OMIT_PARSE
7ae0: 52 0a 20 20 73 71 6c 69 74 65 33 41 74 74 61 63 R. sqlite3Attac
7af0: 68 46 75 6e 63 74 69 6f 6e 73 28 64 62 29 3b 0a hFunctions(db);.
7b00: 23 65 6e 64 69 66 0a 20 20 66 6f 72 28 69 3d 30 #endif. for(i=0
7b10: 3b 20 69 3c 73 69 7a 65 6f 66 28 61 41 67 67 73 ; i<sizeof(aAggs
7b20: 29 2f 73 69 7a 65 6f 66 28 61 41 67 67 73 5b 30 )/sizeof(aAggs[0
7b30: 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 76 6f ]); i++){. vo
7b40: 69 64 20 2a 70 41 72 67 20 3d 20 30 3b 0a 20 20 id *pArg = 0;.
7b50: 20 20 73 77 69 74 63 68 28 20 61 41 67 67 73 5b switch( aAggs[
7b60: 69 5d 2e 61 72 67 54 79 70 65 20 29 7b 0a 20 20 i].argType ){.
7b70: 20 20 20 20 63 61 73 65 20 31 3a 20 70 41 72 67 case 1: pArg
7b80: 20 3d 20 64 62 3b 20 62 72 65 61 6b 3b 0a 20 20 = db; break;.
7b90: 20 20 20 20 63 61 73 65 20 32 3a 20 70 41 72 67 case 2: pArg
7ba0: 20 3d 20 28 76 6f 69 64 20 2a 29 28 2d 31 29 3b = (void *)(-1);
7bb0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 break;. }.
7bc0: 20 20 73 71 6c 69 74 65 33 43 72 65 61 74 65 46 sqlite3CreateF
7bd0: 75 6e 63 28 64 62 2c 20 61 41 67 67 73 5b 69 5d unc(db, aAggs[i]
7be0: 2e 7a 4e 61 6d 65 2c 20 61 41 67 67 73 5b 69 5d .zName, aAggs[i]
7bf0: 2e 6e 41 72 67 2c 20 53 51 4c 49 54 45 5f 55 54 .nArg, SQLITE_UT
7c00: 46 38 2c 20 0a 20 20 20 20 20 20 20 20 70 41 72 F8, . pAr
7c10: 67 2c 20 30 2c 20 61 41 67 67 73 5b 69 5d 2e 78 g, 0, aAggs[i].x
7c20: 53 74 65 70 2c 20 61 41 67 67 73 5b 69 5d 2e 78 Step, aAggs[i].x
7c30: 46 69 6e 61 6c 69 7a 65 29 3b 0a 20 20 20 20 69 Finalize);. i
7c40: 66 28 20 61 41 67 67 73 5b 69 5d 2e 6e 65 65 64 f( aAggs[i].need
7c50: 43 6f 6c 6c 53 65 71 20 29 7b 0a 20 20 20 20 20 CollSeq ){.
7c60: 20 46 75 6e 63 44 65 66 20 2a 70 46 75 6e 63 20 FuncDef *pFunc
7c70: 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e = sqlite3FindFun
7c80: 63 74 69 6f 6e 28 20 64 62 2c 20 61 41 67 67 73 ction( db, aAggs
7c90: 5b 69 5d 2e 7a 4e 61 6d 65 2c 0a 20 20 20 20 20 [i].zName,.
7ca0: 20 20 20 20 20 73 74 72 6c 65 6e 28 61 41 67 67 strlen(aAgg
7cb0: 73 5b 69 5d 2e 7a 4e 61 6d 65 29 2c 20 61 41 67 s[i].zName), aAg
7cc0: 67 73 5b 69 5d 2e 6e 41 72 67 2c 20 53 51 4c 49 gs[i].nArg, SQLI
7cd0: 54 45 5f 55 54 46 38 2c 20 30 29 3b 0a 20 20 20 TE_UTF8, 0);.
7ce0: 20 20 20 69 66 28 20 70 46 75 6e 63 20 26 26 20 if( pFunc &&
7cf0: 61 41 67 67 73 5b 69 5d 2e 6e 65 65 64 43 6f 6c aAggs[i].needCol
7d00: 6c 53 65 71 20 29 7b 0a 20 20 20 20 20 20 20 20 lSeq ){.
7d10: 70 46 75 6e 63 2d 3e 6e 65 65 64 43 6f 6c 6c 53 pFunc->needCollS
7d20: 65 71 20 3d 20 31 3b 0a 20 20 20 20 20 20 7d 0a eq = 1;. }.
7d30: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 71 6c 69 }. }. sqli
7d40: 74 65 33 52 65 67 69 73 74 65 72 44 61 74 65 54 te3RegisterDateT
7d50: 69 6d 65 46 75 6e 63 74 69 6f 6e 73 28 64 62 29 imeFunctions(db)
7d60: 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ;.#ifdef SQLITE_
7d70: 53 53 45 0a 20 20 73 71 6c 69 74 65 33 53 73 65 SSE. sqlite3Sse
7d80: 46 75 6e 63 74 69 6f 6e 73 28 64 62 29 3b 0a 23 Functions(db);.#
7d90: 65 6e 64 69 66 0a 23 69 66 64 65 66 20 53 51 4c endif.#ifdef SQL
7da0: 49 54 45 5f 43 41 53 45 5f 53 45 4e 53 49 54 49 ITE_CASE_SENSITI
7db0: 56 45 5f 4c 49 4b 45 0a 20 20 73 71 6c 69 74 65 VE_LIKE. sqlite
7dc0: 33 52 65 67 69 73 74 65 72 4c 69 6b 65 46 75 6e 3RegisterLikeFun
7dd0: 63 74 69 6f 6e 73 28 64 62 2c 20 31 29 3b 0a 23 ctions(db, 1);.#
7de0: 65 6c 73 65 0a 20 20 73 71 6c 69 74 65 33 52 65 else. sqlite3Re
7df0: 67 69 73 74 65 72 4c 69 6b 65 46 75 6e 63 74 69 gisterLikeFuncti
7e00: 6f 6e 73 28 64 62 2c 20 30 29 3b 0a 23 65 6e 64 ons(db, 0);.#end
7e10: 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20 if.}../*.** Set
7e20: 74 68 65 20 4c 49 4b 45 4f 50 54 20 66 6c 61 67 the LIKEOPT flag
7e30: 20 6f 6e 20 74 68 65 20 32 2d 61 72 67 75 6d 65 on the 2-argume
7e40: 6e 74 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 nt function with
7e50: 20 74 68 65 20 67 69 76 65 6e 20 6e 61 6d 65 2e the given name.
7e60: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
7e70: 73 65 74 4c 69 6b 65 4f 70 74 46 6c 61 67 28 73 setLikeOptFlag(s
7e80: 71 6c 69 74 65 33 20 2a 64 62 2c 20 63 6f 6e 73 qlite3 *db, cons
7e90: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 t char *zName, i
7ea0: 6e 74 20 66 6c 61 67 56 61 6c 29 7b 0a 20 20 46 nt flagVal){. F
7eb0: 75 6e 63 44 65 66 20 2a 70 44 65 66 3b 0a 20 20 uncDef *pDef;.
7ec0: 70 44 65 66 20 3d 20 73 71 6c 69 74 65 33 46 69 pDef = sqlite3Fi
7ed0: 6e 64 46 75 6e 63 74 69 6f 6e 28 64 62 2c 20 7a ndFunction(db, z
7ee0: 4e 61 6d 65 2c 20 73 74 72 6c 65 6e 28 7a 4e 61 Name, strlen(zNa
7ef0: 6d 65 29 2c 20 32 2c 20 53 51 4c 49 54 45 5f 55 me), 2, SQLITE_U
7f00: 54 46 38 2c 20 30 29 3b 0a 20 20 69 66 28 20 70 TF8, 0);. if( p
7f10: 44 65 66 20 29 7b 0a 20 20 20 20 70 44 65 66 2d Def ){. pDef-
7f20: 3e 66 6c 61 67 73 20 3d 20 66 6c 61 67 56 61 6c >flags = flagVal
7f30: 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 ;. }.}../*.** R
7f40: 65 67 69 73 74 65 72 20 74 68 65 20 62 75 69 6c egister the buil
7f50: 74 2d 69 6e 20 4c 49 4b 45 20 61 6e 64 20 47 4c t-in LIKE and GL
7f60: 4f 42 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 54 OB functions. T
7f70: 68 65 20 63 61 73 65 53 65 6e 73 69 74 69 76 65 he caseSensitive
7f80: 0a 2a 2a 20 70 61 72 61 6d 65 74 65 72 20 64 65 .** parameter de
7f90: 74 65 72 6d 69 6e 65 73 20 77 68 65 74 68 65 72 termines whether
7fa0: 20 6f 72 20 6e 6f 74 20 74 68 65 20 4c 49 4b 45 or not the LIKE
7fb0: 20 6f 70 65 72 61 74 6f 72 20 69 73 20 63 61 73 operator is cas
7fc0: 65 0a 2a 2a 20 73 65 6e 73 69 74 69 76 65 2e 20 e.** sensitive.
7fd0: 20 47 4c 4f 42 20 69 73 20 61 6c 77 61 79 73 20 GLOB is always
7fe0: 63 61 73 65 20 73 65 6e 73 69 74 69 76 65 2e 0a case sensitive..
7ff0: 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 52 */.void sqlite3R
8000: 65 67 69 73 74 65 72 4c 69 6b 65 46 75 6e 63 74 egisterLikeFunct
8010: 69 6f 6e 73 28 73 71 6c 69 74 65 33 20 2a 64 62 ions(sqlite3 *db
8020: 2c 20 69 6e 74 20 63 61 73 65 53 65 6e 73 69 74 , int caseSensit
8030: 69 76 65 29 7b 0a 20 20 73 74 72 75 63 74 20 63 ive){. struct c
8040: 6f 6d 70 61 72 65 49 6e 66 6f 20 2a 70 49 6e 66 ompareInfo *pInf
8050: 6f 3b 0a 20 20 69 66 28 20 63 61 73 65 53 65 6e o;. if( caseSen
8060: 73 69 74 69 76 65 20 29 7b 0a 20 20 20 20 70 49 sitive ){. pI
8070: 6e 66 6f 20 3d 20 28 73 74 72 75 63 74 20 63 6f nfo = (struct co
8080: 6d 70 61 72 65 49 6e 66 6f 2a 29 26 6c 69 6b 65 mpareInfo*)&like
8090: 49 6e 66 6f 41 6c 74 3b 0a 20 20 7d 65 6c 73 65 InfoAlt;. }else
80a0: 7b 0a 20 20 20 20 70 49 6e 66 6f 20 3d 20 28 73 {. pInfo = (s
80b0: 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 truct compareInf
80c0: 6f 2a 29 26 6c 69 6b 65 49 6e 66 6f 4e 6f 72 6d o*)&likeInfoNorm
80d0: 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 43 ;. }. sqlite3C
80e0: 72 65 61 74 65 46 75 6e 63 28 64 62 2c 20 22 6c reateFunc(db, "l
80f0: 69 6b 65 22 2c 20 32 2c 20 53 51 4c 49 54 45 5f ike", 2, SQLITE_
8100: 55 54 46 38 2c 20 70 49 6e 66 6f 2c 20 6c 69 6b UTF8, pInfo, lik
8110: 65 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 eFunc, 0, 0);.
8120: 73 71 6c 69 74 65 33 43 72 65 61 74 65 46 75 6e sqlite3CreateFun
8130: 63 28 64 62 2c 20 22 6c 69 6b 65 22 2c 20 33 2c c(db, "like", 3,
8140: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 70 49 SQLITE_UTF8, pI
8150: 6e 66 6f 2c 20 6c 69 6b 65 46 75 6e 63 2c 20 30 nfo, likeFunc, 0
8160: 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 43 , 0);. sqlite3C
8170: 72 65 61 74 65 46 75 6e 63 28 64 62 2c 20 22 67 reateFunc(db, "g
8180: 6c 6f 62 22 2c 20 32 2c 20 53 51 4c 49 54 45 5f lob", 2, SQLITE_
8190: 55 54 46 38 2c 20 0a 20 20 20 20 20 20 28 73 74 UTF8, . (st
81a0: 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f ruct compareInfo
81b0: 2a 29 26 67 6c 6f 62 49 6e 66 6f 2c 20 6c 69 6b *)&globInfo, lik
81c0: 65 46 75 6e 63 2c 20 30 2c 30 29 3b 0a 20 20 73 eFunc, 0,0);. s
81d0: 65 74 4c 69 6b 65 4f 70 74 46 6c 61 67 28 64 62 etLikeOptFlag(db
81e0: 2c 20 22 67 6c 6f 62 22 2c 20 53 51 4c 49 54 45 , "glob", SQLITE
81f0: 5f 46 55 4e 43 5f 4c 49 4b 45 20 7c 20 53 51 4c _FUNC_LIKE | SQL
8200: 49 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 3b 0a ITE_FUNC_CASE);.
8210: 20 20 73 65 74 4c 69 6b 65 4f 70 74 46 6c 61 67 setLikeOptFlag
8220: 28 64 62 2c 20 22 6c 69 6b 65 22 2c 20 0a 20 20 (db, "like", .
8230: 20 20 20 20 63 61 73 65 53 65 6e 73 69 74 69 76 caseSensitiv
8240: 65 20 3f 20 28 53 51 4c 49 54 45 5f 46 55 4e 43 e ? (SQLITE_FUNC
8250: 5f 4c 49 4b 45 20 7c 20 53 51 4c 49 54 45 5f 46 _LIKE | SQLITE_F
8260: 55 4e 43 5f 43 41 53 45 29 20 3a 20 53 51 4c 49 UNC_CASE) : SQLI
8270: 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 29 3b 0a 7d TE_FUNC_LIKE);.}
8280: 0a 0a 2f 2a 0a 2a 2a 20 70 45 78 70 72 20 70 6f ../*.** pExpr po
8290: 69 6e 74 73 20 74 6f 20 61 6e 20 65 78 70 72 65 ints to an expre
82a0: 73 73 69 6f 6e 20 77 68 69 63 68 20 69 6d 70 6c ssion which impl
82b0: 65 6d 65 6e 74 73 20 61 20 66 75 6e 63 74 69 6f ements a functio
82c0: 6e 2e 20 20 49 66 0a 2a 2a 20 69 74 20 69 73 20 n. If.** it is
82d0: 61 70 70 72 6f 70 72 69 61 74 65 20 74 6f 20 61 appropriate to a
82e0: 70 70 6c 79 20 74 68 65 20 4c 49 4b 45 20 6f 70 pply the LIKE op
82f0: 74 69 6d 69 7a 61 74 69 6f 6e 20 74 6f 20 74 68 timization to th
8300: 61 74 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 74 at function.** t
8310: 68 65 6e 20 73 65 74 20 61 57 63 5b 30 5d 20 74 hen set aWc[0] t
8320: 68 72 6f 75 67 68 20 61 57 63 5b 32 5d 20 74 6f hrough aWc[2] to
8330: 20 74 68 65 20 77 69 6c 64 63 61 72 64 20 63 68 the wildcard ch
8340: 61 72 61 63 74 65 72 73 20 61 6e 64 0a 2a 2a 20 aracters and.**
8350: 72 65 74 75 72 6e 20 54 52 55 45 2e 20 20 49 66 return TRUE. If
8360: 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 the function is
8370: 20 6e 6f 74 20 61 20 4c 49 4b 45 2d 73 74 79 6c not a LIKE-styl
8380: 65 20 66 75 6e 63 74 69 6f 6e 20 74 68 65 6e 0a e function then.
8390: 2a 2a 20 72 65 74 75 72 6e 20 46 41 4c 53 45 2e ** return FALSE.
83a0: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 49 .*/.int sqlite3I
83b0: 73 4c 69 6b 65 46 75 6e 63 74 69 6f 6e 28 73 71 sLikeFunction(sq
83c0: 6c 69 74 65 33 20 2a 64 62 2c 20 45 78 70 72 20 lite3 *db, Expr
83d0: 2a 70 45 78 70 72 2c 20 69 6e 74 20 2a 70 49 73 *pExpr, int *pIs
83e0: 4e 6f 63 61 73 65 2c 20 63 68 61 72 20 2a 61 57 Nocase, char *aW
83f0: 63 29 7b 0a 20 20 46 75 6e 63 44 65 66 20 2a 70 c){. FuncDef *p
8400: 44 65 66 3b 0a 20 20 69 66 28 20 70 45 78 70 72 Def;. if( pExpr
8410: 2d 3e 6f 70 21 3d 54 4b 5f 46 55 4e 43 54 49 4f ->op!=TK_FUNCTIO
8420: 4e 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 N ){. return
8430: 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 45 78 0;. }. if( pEx
8440: 70 72 2d 3e 70 4c 69 73 74 2d 3e 6e 45 78 70 72 pr->pList->nExpr
8450: 21 3d 32 20 29 7b 0a 20 20 20 20 72 65 74 75 72 !=2 ){. retur
8460: 6e 20 30 3b 0a 20 20 7d 0a 20 20 70 44 65 66 20 n 0;. }. pDef
8470: 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e = sqlite3FindFun
8480: 63 74 69 6f 6e 28 64 62 2c 20 28 63 68 61 72 2a ction(db, (char*
8490: 29 70 45 78 70 72 2d 3e 74 6f 6b 65 6e 2e 7a 2c )pExpr->token.z,
84a0: 20 70 45 78 70 72 2d 3e 74 6f 6b 65 6e 2e 6e 2c pExpr->token.n,
84b0: 20 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 2,.
84c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
84d0: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 29 SQLITE_UTF8, 0)
84e0: 3b 0a 20 20 69 66 28 20 70 44 65 66 3d 3d 30 20 ;. if( pDef==0
84f0: 7c 7c 20 28 70 44 65 66 2d 3e 66 6c 61 67 73 20 || (pDef->flags
8500: 26 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c 49 & SQLITE_FUNC_LI
8510: 4b 45 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65 KE)==0 ){. re
8520: 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 0a 20 20 2f turn 0;. }.. /
8530: 2a 20 54 68 65 20 6d 65 6d 63 70 79 28 29 20 73 * The memcpy() s
8540: 74 61 74 65 6d 65 6e 74 20 61 73 73 75 6d 65 73 tatement assumes
8550: 20 74 68 61 74 20 74 68 65 20 77 69 6c 64 63 61 that the wildca
8560: 72 64 20 63 68 61 72 61 63 74 65 72 73 20 61 72 rd characters ar
8570: 65 0a 20 20 2a 2a 20 74 68 65 20 66 69 72 73 74 e. ** the first
8580: 20 74 68 72 65 65 20 73 74 61 74 65 6d 65 6e 74 three statement
8590: 73 20 69 6e 20 74 68 65 20 63 6f 6d 70 61 72 65 s in the compare
85a0: 49 6e 66 6f 20 73 74 72 75 63 74 75 72 65 2e 20 Info structure.
85b0: 20 54 68 65 0a 20 20 2a 2a 20 61 73 73 65 72 74 The. ** assert
85c0: 73 28 29 20 74 68 61 74 20 66 6f 6c 6c 6f 77 20 s() that follow
85d0: 76 65 72 69 66 79 20 74 68 61 74 20 61 73 73 75 verify that assu
85e0: 6d 70 74 69 6f 6e 0a 20 20 2a 2f 0a 20 20 6d 65 mption. */. me
85f0: 6d 63 70 79 28 61 57 63 2c 20 70 44 65 66 2d 3e mcpy(aWc, pDef->
8600: 70 55 73 65 72 44 61 74 61 2c 20 33 29 3b 0a 20 pUserData, 3);.
8610: 20 61 73 73 65 72 74 28 20 28 63 68 61 72 2a 29 assert( (char*)
8620: 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 20 3d 3d 20 &likeInfoAlt ==
8630: 28 63 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 6f (char*)&likeInfo
8640: 41 6c 74 2e 6d 61 74 63 68 41 6c 6c 20 29 3b 0a Alt.matchAll );.
8650: 20 20 61 73 73 65 72 74 28 20 26 28 28 63 68 61 assert( &((cha
8660: 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 29 r*)&likeInfoAlt)
8670: 5b 31 5d 20 3d 3d 20 28 63 68 61 72 2a 29 26 6c [1] == (char*)&l
8680: 69 6b 65 49 6e 66 6f 41 6c 74 2e 6d 61 74 63 68 ikeInfoAlt.match
8690: 4f 6e 65 20 29 3b 0a 20 20 61 73 73 65 72 74 28 One );. assert(
86a0: 20 26 28 28 63 68 61 72 2a 29 26 6c 69 6b 65 49 &((char*)&likeI
86b0: 6e 66 6f 41 6c 74 29 5b 32 5d 20 3d 3d 20 28 63 nfoAlt)[2] == (c
86c0: 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c har*)&likeInfoAl
86d0: 74 2e 6d 61 74 63 68 53 65 74 20 29 3b 0a 20 20 t.matchSet );.
86e0: 2a 70 49 73 4e 6f 63 61 73 65 20 3d 20 28 70 44 *pIsNocase = (pD
86f0: 65 66 2d 3e 66 6c 61 67 73 20 26 20 53 51 4c 49 ef->flags & SQLI
8700: 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 3d 3d 30 TE_FUNC_CASE)==0
8710: 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a ;. return 1;.}.