0000: 2f 2a 0a 2a 2a 20 32 30 30 32 20 46 65 62 72 75 /*.** 2002 Febru
0010: 61 72 79 20 32 33 0a 2a 2a 0a 2a 2a 20 54 68 65 ary 23.**.** The
0020: 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d author disclaim
0030: 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 s copyright to t
0040: 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e his source code.
0050: 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a In place of.**
0060: 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c a legal notice,
0070: 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 here is a bless
0080: 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 ing:.**.** Ma
0090: 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e y you do good an
00a0: 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 d not evil..**
00b0: 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 May you find f
00c0: 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 orgiveness for y
00d0: 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 ourself and forg
00e0: 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 ive others..**
00f0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 May you share
0100: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 freely, never ta
0110: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 king more than y
0120: 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a ou give..**.****
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0170: 2a 2a 2a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 *****.** This fi
0180: 6c 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 le contains the
0190: 43 2d 6c 61 6e 67 75 61 67 65 20 69 6d 70 6c 65 C-language imple
01a0: 6d 65 6e 74 61 74 69 6f 6e 73 20 66 6f 72 20 6d mentations for m
01b0: 61 6e 79 20 6f 66 20 74 68 65 20 53 51 4c 0a 2a any of the SQL.*
01c0: 2a 20 66 75 6e 63 74 69 6f 6e 73 20 6f 66 20 53 * functions of S
01d0: 51 4c 69 74 65 2e 20 20 28 53 6f 6d 65 20 66 75 QLite. (Some fu
01e0: 6e 63 74 69 6f 6e 2c 20 61 6e 64 20 69 6e 20 70 nction, and in p
01f0: 61 72 74 69 63 75 6c 61 72 20 74 68 65 20 64 61 articular the da
0200: 74 65 20 61 6e 64 0a 2a 2a 20 74 69 6d 65 20 66 te and.** time f
0210: 75 6e 63 74 69 6f 6e 73 2c 20 61 72 65 20 69 6d unctions, are im
0220: 70 6c 65 6d 65 6e 74 65 64 20 73 65 70 61 72 61 plemented separa
0230: 74 65 6c 79 2e 29 0a 2a 2f 0a 23 69 6e 63 6c 75 tely.).*/.#inclu
0240: 64 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 de "sqliteInt.h"
0250: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 .#include <stdli
0260: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 61 b.h>.#include <a
0270: 73 73 65 72 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 ssert.h>.#includ
0280: 65 20 22 76 64 62 65 49 6e 74 2e 68 22 0a 0a 2f e "vdbeInt.h"../
0290: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 *.** Return the
02a0: 63 6f 6c 6c 61 74 69 6e 67 20 66 75 6e 63 74 69 collating functi
02b0: 6f 6e 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 on associated wi
02c0: 74 68 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a th a function..*
02d0: 2f 0a 73 74 61 74 69 63 20 43 6f 6c 6c 53 65 71 /.static CollSeq
02e0: 20 2a 73 71 6c 69 74 65 33 47 65 74 46 75 6e 63 *sqlite3GetFunc
02f0: 43 6f 6c 6c 53 65 71 28 73 71 6c 69 74 65 33 5f CollSeq(sqlite3_
0300: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
0310: 29 7b 0a 20 20 72 65 74 75 72 6e 20 63 6f 6e 74 ){. return cont
0320: 65 78 74 2d 3e 70 43 6f 6c 6c 3b 0a 7d 0a 0a 2f ext->pColl;.}../
0330: 2a 0a 2a 2a 20 49 6e 64 69 63 61 74 65 20 74 68 *.** Indicate th
0340: 61 74 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 at the accumulat
0350: 6f 72 20 6c 6f 61 64 20 73 68 6f 75 6c 64 20 62 or load should b
0360: 65 20 73 6b 69 70 70 65 64 20 6f 6e 20 74 68 69 e skipped on thi
0370: 73 0a 2a 2a 20 69 74 65 72 61 74 69 6f 6e 20 6f s.** iteration o
0380: 66 20 74 68 65 20 61 67 67 72 65 67 61 74 65 20 f the aggregate
0390: 6c 6f 6f 70 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 loop..*/.static
03a0: 76 6f 69 64 20 73 71 6c 69 74 65 33 53 6b 69 70 void sqlite3Skip
03b0: 41 63 63 75 6d 75 6c 61 74 6f 72 4c 6f 61 64 28 AccumulatorLoad(
03c0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
03d0: 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 63 6f 6e *context){. con
03e0: 74 65 78 74 2d 3e 73 6b 69 70 46 6c 61 67 20 3d text->skipFlag =
03f0: 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 1;.}../*.** Imp
0400: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
0410: 68 65 20 6e 6f 6e 2d 61 67 67 72 65 67 61 74 65 he non-aggregate
0420: 20 6d 69 6e 28 29 20 61 6e 64 20 6d 61 78 28 29 min() and max()
0430: 20 66 75 6e 63 74 69 6f 6e 73 0a 2a 2f 0a 73 74 functions.*/.st
0440: 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 6d 61 78 atic void minmax
0450: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
0460: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
0470: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
0480: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
0490: 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 3b argv.){. int i;
04a0: 0a 20 20 69 6e 74 20 6d 61 73 6b 3b 20 20 20 20 . int mask;
04b0: 2f 2a 20 30 20 66 6f 72 20 6d 69 6e 28 29 20 6f /* 0 for min() o
04c0: 72 20 30 78 66 66 66 66 66 66 66 66 20 66 6f 72 r 0xffffffff for
04d0: 20 6d 61 78 28 29 20 2a 2f 0a 20 20 69 6e 74 20 max() */. int
04e0: 69 42 65 73 74 3b 0a 20 20 43 6f 6c 6c 53 65 71 iBest;. CollSeq
04f0: 20 2a 70 43 6f 6c 6c 3b 0a 0a 20 20 61 73 73 65 *pColl;.. asse
0500: 72 74 28 20 61 72 67 63 3e 31 20 29 3b 0a 20 20 rt( argc>1 );.
0510: 6d 61 73 6b 20 3d 20 73 71 6c 69 74 65 33 5f 75 mask = sqlite3_u
0520: 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 ser_data(context
0530: 29 3d 3d 30 20 3f 20 30 20 3a 20 2d 31 3b 0a 20 )==0 ? 0 : -1;.
0540: 20 70 43 6f 6c 6c 20 3d 20 73 71 6c 69 74 65 33 pColl = sqlite3
0550: 47 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 GetFuncCollSeq(c
0560: 6f 6e 74 65 78 74 29 3b 0a 20 20 61 73 73 65 72 ontext);. asser
0570: 74 28 20 70 43 6f 6c 6c 20 29 3b 0a 20 20 61 73 t( pColl );. as
0580: 73 65 72 74 28 20 6d 61 73 6b 3d 3d 2d 31 20 7c sert( mask==-1 |
0590: 7c 20 6d 61 73 6b 3d 3d 30 20 29 3b 0a 20 20 69 | mask==0 );. i
05a0: 42 65 73 74 20 3d 20 30 3b 0a 20 20 69 66 28 20 Best = 0;. if(
05b0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 sqlite3_value_ty
05c0: 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c pe(argv[0])==SQL
05d0: 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75 72 ITE_NULL ) retur
05e0: 6e 3b 0a 20 20 66 6f 72 28 69 3d 31 3b 20 69 3c n;. for(i=1; i<
05f0: 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 argc; i++){.
0600: 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 if( sqlite3_valu
0610: 65 5f 74 79 70 65 28 61 72 67 76 5b 69 5d 29 3d e_type(argv[i])=
0620: 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 =SQLITE_NULL ) r
0630: 65 74 75 72 6e 3b 0a 20 20 20 20 69 66 28 20 28 eturn;. if( (
0640: 73 71 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 sqlite3MemCompar
0650: 65 28 61 72 67 76 5b 69 42 65 73 74 5d 2c 20 61 e(argv[iBest], a
0660: 72 67 76 5b 69 5d 2c 20 70 43 6f 6c 6c 29 5e 6d rgv[i], pColl)^m
0670: 61 73 6b 29 3e 3d 30 20 29 7b 0a 20 20 20 20 20 ask)>=0 ){.
0680: 20 74 65 73 74 63 61 73 65 28 20 6d 61 73 6b 3d testcase( mask=
0690: 3d 30 20 29 3b 0a 20 20 20 20 20 20 69 42 65 73 =0 );. iBes
06a0: 74 20 3d 20 69 3b 0a 20 20 20 20 7d 0a 20 20 7d t = i;. }. }
06b0: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c . sqlite3_resul
06c0: 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 74 2c t_value(context,
06d0: 20 61 72 67 76 5b 69 42 65 73 74 5d 29 3b 0a 7d argv[iBest]);.}
06e0: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 ../*.** Return t
06f0: 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 61 he type of the a
0700: 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 rgument..*/.stat
0710: 69 63 20 76 6f 69 64 20 74 79 70 65 6f 66 46 75 ic void typeofFu
0720: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f nc(. sqlite3_co
0730: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a ntext *context,.
0740: 20 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 int NotUsed,.
0750: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
0760: 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 *argv.){. const
0770: 20 63 68 61 72 20 2a 7a 20 3d 20 30 3b 0a 20 20 char *z = 0;.
0780: 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 UNUSED_PARAMETER
0790: 28 4e 6f 74 55 73 65 64 29 3b 0a 20 20 73 77 69 (NotUsed);. swi
07a0: 74 63 68 28 20 73 71 6c 69 74 65 33 5f 76 61 6c tch( sqlite3_val
07b0: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 ue_type(argv[0])
07c0: 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ){. case SQL
07d0: 49 54 45 5f 49 4e 54 45 47 45 52 3a 20 7a 20 3d ITE_INTEGER: z =
07e0: 20 22 69 6e 74 65 67 65 72 22 3b 20 62 72 65 61 "integer"; brea
07f0: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 k;. case SQLI
0800: 54 45 5f 54 45 58 54 3a 20 20 20 20 7a 20 3d 20 TE_TEXT: z =
0810: 22 74 65 78 74 22 3b 20 20 20 20 62 72 65 61 6b "text"; break
0820: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 ;. case SQLIT
0830: 45 5f 46 4c 4f 41 54 3a 20 20 20 7a 20 3d 20 22 E_FLOAT: z = "
0840: 72 65 61 6c 22 3b 20 20 20 20 62 72 65 61 6b 3b real"; break;
0850: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
0860: 5f 42 4c 4f 42 3a 20 20 20 20 7a 20 3d 20 22 62 _BLOB: z = "b
0870: 6c 6f 62 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a lob"; break;.
0880: 20 20 20 20 64 65 66 61 75 6c 74 3a 20 20 20 20 default:
0890: 20 20 20 20 20 20 20 20 20 7a 20 3d 20 22 6e 75 z = "nu
08a0: 6c 6c 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 ll"; break;.
08b0: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 }. sqlite3_res
08c0: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 ult_text(context
08d0: 2c 20 7a 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f , z, -1, SQLITE_
08e0: 53 54 41 54 49 43 29 3b 0a 7d 0a 0a 0a 2f 2a 0a STATIC);.}.../*.
08f0: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** Implementatio
0900: 6e 20 6f 66 20 74 68 65 20 6c 65 6e 67 74 68 28 n of the length(
0910: 29 20 66 75 6e 63 74 69 6f 6e 0a 2a 2f 0a 73 74 ) function.*/.st
0920: 61 74 69 63 20 76 6f 69 64 20 6c 65 6e 67 74 68 atic void length
0930: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
0940: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
0950: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
0960: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
0970: 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 6c 65 argv.){. int le
0980: 6e 3b 0a 0a 20 20 61 73 73 65 72 74 28 20 61 72 n;.. assert( ar
0990: 67 63 3d 3d 31 20 29 3b 0a 20 20 55 4e 55 53 45 gc==1 );. UNUSE
09a0: 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 D_PARAMETER(argc
09b0: 29 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71 6c );. switch( sql
09c0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 ite3_value_type(
09d0: 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 argv[0]) ){.
09e0: 63 61 73 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 case SQLITE_BLOB
09f0: 3a 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 :. case SQLIT
0a00: 45 5f 49 4e 54 45 47 45 52 3a 0a 20 20 20 20 63 E_INTEGER:. c
0a10: 61 73 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41 54 ase SQLITE_FLOAT
0a20: 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 : {. sqlite
0a30: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 3_result_int(con
0a40: 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 61 text, sqlite3_va
0a50: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 lue_bytes(argv[0
0a60: 5d 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b ]));. break
0a70: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 ;. }. case
0a80: 20 53 51 4c 49 54 45 5f 54 45 58 54 3a 20 7b 0a SQLITE_TEXT: {.
0a90: 20 20 20 20 20 20 63 6f 6e 73 74 20 75 6e 73 69 const unsi
0aa0: 67 6e 65 64 20 63 68 61 72 20 2a 7a 20 3d 20 73 gned char *z = s
0ab0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
0ac0: 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 t(argv[0]);.
0ad0: 20 20 69 66 28 20 7a 3d 3d 30 20 29 20 72 65 74 if( z==0 ) ret
0ae0: 75 72 6e 3b 0a 20 20 20 20 20 20 6c 65 6e 20 3d urn;. len =
0af0: 20 30 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 0;. while(
0b00: 20 2a 7a 20 29 7b 0a 20 20 20 20 20 20 20 20 6c *z ){. l
0b10: 65 6e 2b 2b 3b 0a 20 20 20 20 20 20 20 20 53 51 en++;. SQ
0b20: 4c 49 54 45 5f 53 4b 49 50 5f 55 54 46 38 28 7a LITE_SKIP_UTF8(z
0b30: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 );. }.
0b40: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
0b50: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 6c 65 6e int(context, len
0b60: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a );. break;.
0b70: 20 20 20 20 7d 0a 20 20 20 20 64 65 66 61 75 6c }. defaul
0b80: 74 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 t: {. sqlit
0b90: 65 33 5f 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 e3_result_null(c
0ba0: 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20 62 ontext);. b
0bb0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a reak;. }. }.
0bc0: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 }../*.** Impleme
0bd0: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 61 ntation of the a
0be0: 62 73 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a bs() function..*
0bf0: 2a 0a 2a 2a 20 49 4d 50 3a 20 52 2d 32 33 39 37 *.** IMP: R-2397
0c00: 39 2d 32 36 38 35 35 20 54 68 65 20 61 62 73 28 9-26855 The abs(
0c10: 58 29 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 X) function retu
0c20: 72 6e 73 20 74 68 65 20 61 62 73 6f 6c 75 74 65 rns the absolute
0c30: 20 76 61 6c 75 65 20 6f 66 0a 2a 2a 20 74 68 65 value of.** the
0c40: 20 6e 75 6d 65 72 69 63 20 61 72 67 75 6d 65 6e numeric argumen
0c50: 74 20 58 2e 20 0a 2a 2f 0a 73 74 61 74 69 63 20 t X. .*/.static
0c60: 76 6f 69 64 20 61 62 73 46 75 6e 63 28 73 71 6c void absFunc(sql
0c70: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
0c80: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
0c90: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
0ca0: 2a 61 72 67 76 29 7b 0a 20 20 61 73 73 65 72 74 *argv){. assert
0cb0: 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 55 ( argc==1 );. U
0cc0: 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 NUSED_PARAMETER(
0cd0: 61 72 67 63 29 3b 0a 20 20 73 77 69 74 63 68 28 argc);. switch(
0ce0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
0cf0: 79 70 65 28 61 72 67 76 5b 30 5d 29 20 29 7b 0a ype(argv[0]) ){.
0d00: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
0d10: 49 4e 54 45 47 45 52 3a 20 7b 0a 20 20 20 20 20 INTEGER: {.
0d20: 20 69 36 34 20 69 56 61 6c 20 3d 20 73 71 6c 69 i64 iVal = sqli
0d30: 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 36 34 28 te3_value_int64(
0d40: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 argv[0]);.
0d50: 69 66 28 20 69 56 61 6c 3c 30 20 29 7b 0a 20 20 if( iVal<0 ){.
0d60: 20 20 20 20 20 20 69 66 28 20 69 56 61 6c 3d 3d if( iVal==
0d70: 53 4d 41 4c 4c 45 53 54 5f 49 4e 54 36 34 20 29 SMALLEST_INT64 )
0d80: 7b 0a 20 20 20 20 20 20 20 20 20 20 2f 2a 20 49 {. /* I
0d90: 4d 50 3a 20 52 2d 33 31 36 37 36 2d 34 35 35 30 MP: R-31676-4550
0da0: 39 20 49 66 20 58 20 69 73 20 74 68 65 20 69 6e 9 If X is the in
0db0: 74 65 67 65 72 20 2d 39 32 32 33 33 37 32 30 33 teger -922337203
0dc0: 36 38 35 34 37 37 35 38 30 38 0a 20 20 20 20 20 6854775808.
0dd0: 20 20 20 20 20 2a 2a 20 74 68 65 6e 20 61 62 73 ** then abs
0de0: 28 58 29 20 74 68 72 6f 77 73 20 61 6e 20 69 6e (X) throws an in
0df0: 74 65 67 65 72 20 6f 76 65 72 66 6c 6f 77 20 65 teger overflow e
0e00: 72 72 6f 72 20 73 69 6e 63 65 20 74 68 65 72 65 rror since there
0e10: 20 69 73 20 6e 6f 0a 20 20 20 20 20 20 20 20 20 is no.
0e20: 20 2a 2a 20 65 71 75 69 76 61 6c 65 6e 74 20 70 ** equivalent p
0e30: 6f 73 69 74 69 76 65 20 36 34 2d 62 69 74 20 74 ositive 64-bit t
0e40: 77 6f 20 63 6f 6d 70 6c 65 6d 65 6e 74 20 76 61 wo complement va
0e50: 6c 75 65 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 lue. */.
0e60: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
0e70: 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 _error(context,
0e80: 22 69 6e 74 65 67 65 72 20 6f 76 65 72 66 6c 6f "integer overflo
0e90: 77 22 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 w", -1);.
0ea0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 return;.
0eb0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 56 61 }. iVa
0ec0: 6c 20 3d 20 2d 69 56 61 6c 3b 0a 20 20 20 20 20 l = -iVal;.
0ed0: 20 7d 20 0a 20 20 20 20 20 20 73 71 6c 69 74 65 } . sqlite
0ee0: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 3_result_int64(c
0ef0: 6f 6e 74 65 78 74 2c 20 69 56 61 6c 29 3b 0a 20 ontext, iVal);.
0f00: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
0f10: 7d 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 }. case SQLIT
0f20: 45 5f 4e 55 4c 4c 3a 20 7b 0a 20 20 20 20 20 20 E_NULL: {.
0f30: 2f 2a 20 49 4d 50 3a 20 52 2d 33 37 34 33 34 2d /* IMP: R-37434-
0f40: 31 39 39 32 39 20 41 62 73 28 58 29 20 72 65 74 19929 Abs(X) ret
0f50: 75 72 6e 73 20 4e 55 4c 4c 20 69 66 20 58 20 69 urns NULL if X i
0f60: 73 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 20 s NULL. */.
0f70: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
0f80: 6e 75 6c 6c 28 63 6f 6e 74 65 78 74 29 3b 0a 20 null(context);.
0f90: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
0fa0: 7d 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 20 7b }. default: {
0fb0: 0a 20 20 20 20 20 20 2f 2a 20 42 65 63 61 75 73 . /* Becaus
0fc0: 65 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f e sqlite3_value_
0fd0: 64 6f 75 62 6c 65 28 29 20 72 65 74 75 72 6e 73 double() returns
0fe0: 20 30 2e 30 20 69 66 20 74 68 65 20 61 72 67 75 0.0 if the argu
0ff0: 6d 65 6e 74 20 69 73 20 6e 6f 74 0a 20 20 20 20 ment is not.
1000: 20 20 2a 2a 20 73 6f 6d 65 74 68 69 6e 67 20 74 ** something t
1010: 68 61 74 20 63 61 6e 20 62 65 20 63 6f 6e 76 65 hat can be conve
1020: 72 74 65 64 20 69 6e 74 6f 20 61 20 6e 75 6d 62 rted into a numb
1030: 65 72 2c 20 77 65 20 68 61 76 65 3a 0a 20 20 20 er, we have:.
1040: 20 20 20 2a 2a 20 49 4d 50 3a 20 52 2d 35 37 33 ** IMP: R-573
1050: 32 36 2d 33 31 35 34 31 20 41 62 73 28 58 29 20 26-31541 Abs(X)
1060: 72 65 74 75 72 6e 20 30 2e 30 20 69 66 20 58 20 return 0.0 if X
1070: 69 73 20 61 20 73 74 72 69 6e 67 20 6f 72 20 62 is a string or b
1080: 6c 6f 62 20 74 68 61 74 0a 20 20 20 20 20 20 2a lob that. *
1090: 2a 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6e 76 * cannot be conv
10a0: 65 72 74 65 64 20 74 6f 20 61 20 6e 75 6d 65 72 erted to a numer
10b0: 69 63 20 76 61 6c 75 65 2e 20 0a 20 20 20 20 20 ic value. .
10c0: 20 2a 2f 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 */. double
10d0: 20 72 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f rVal = sqlite3_
10e0: 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 value_double(arg
10f0: 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 69 66 28 v[0]);. if(
1100: 20 72 56 61 6c 3c 30 20 29 20 72 56 61 6c 20 3d rVal<0 ) rVal =
1110: 20 2d 72 56 61 6c 3b 0a 20 20 20 20 20 20 73 71 -rVal;. sq
1120: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 lite3_result_dou
1130: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 72 56 61 ble(context, rVa
1140: 6c 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b l);. break;
1150: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a . }. }.}../*
1160: 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 .** Implementati
1170: 6f 6e 20 6f 66 20 74 68 65 20 69 6e 73 74 72 28 on of the instr(
1180: 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a ) function..**.*
1190: 2a 20 69 6e 73 74 72 28 68 61 79 73 74 61 63 6b * instr(haystack
11a0: 2c 6e 65 65 64 6c 65 29 20 66 69 6e 64 73 20 74 ,needle) finds t
11b0: 68 65 20 66 69 72 73 74 20 6f 63 63 75 72 72 65 he first occurre
11c0: 6e 63 65 20 6f 66 20 6e 65 65 64 6c 65 0a 2a 2a nce of needle.**
11d0: 20 69 6e 20 68 61 79 73 74 61 63 6b 20 61 6e 64 in haystack and
11e0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d returns the num
11f0: 62 65 72 20 6f 66 20 70 72 65 76 69 6f 75 73 20 ber of previous
1200: 63 68 61 72 61 63 74 65 72 73 20 70 6c 75 73 20 characters plus
1210: 31 2c 0a 2a 2a 20 6f 72 20 30 20 69 66 20 6e 65 1,.** or 0 if ne
1220: 65 64 6c 65 20 64 6f 65 73 20 6e 6f 74 20 6f 63 edle does not oc
1230: 63 75 72 20 77 69 74 68 69 6e 20 68 61 79 73 74 cur within hayst
1240: 61 63 6b 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 62 6f ack..**.** If bo
1250: 74 68 20 68 61 79 73 74 61 63 6b 20 61 6e 64 20 th haystack and
1260: 6e 65 65 64 6c 65 20 61 72 65 20 42 4c 4f 42 73 needle are BLOBs
1270: 2c 20 74 68 65 6e 20 74 68 65 20 72 65 73 75 6c , then the resul
1280: 74 20 69 73 20 6f 6e 65 20 6d 6f 72 65 20 74 68 t is one more th
1290: 61 6e 0a 2a 2a 20 74 68 65 20 6e 75 6d 62 65 72 an.** the number
12a0: 20 6f 66 20 62 79 74 65 73 20 69 6e 20 68 61 79 of bytes in hay
12b0: 73 74 61 63 6b 20 70 72 69 6f 72 20 74 6f 20 74 stack prior to t
12c0: 68 65 20 66 69 72 73 74 20 6f 63 63 75 72 72 65 he first occurre
12d0: 6e 63 65 20 6f 66 20 6e 65 65 64 6c 65 2c 0a 2a nce of needle,.*
12e0: 2a 20 6f 72 20 30 20 69 66 20 6e 65 65 64 6c 65 * or 0 if needle
12f0: 20 6e 65 76 65 72 20 6f 63 63 75 72 73 20 69 6e never occurs in
1300: 20 68 61 79 73 74 61 63 6b 2e 0a 2a 2f 0a 73 74 haystack..*/.st
1310: 61 74 69 63 20 76 6f 69 64 20 69 6e 73 74 72 46 atic void instrF
1320: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 unc(. sqlite3_c
1330: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
1340: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 . int argc,. s
1350: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
1360: 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 75 rgv.){. const u
1370: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 48 nsigned char *zH
1380: 61 79 73 74 61 63 6b 3b 0a 20 20 63 6f 6e 73 74 aystack;. const
1390: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
13a0: 7a 4e 65 65 64 6c 65 3b 0a 20 20 69 6e 74 20 6e zNeedle;. int n
13b0: 48 61 79 73 74 61 63 6b 3b 0a 20 20 69 6e 74 20 Haystack;. int
13c0: 6e 4e 65 65 64 6c 65 3b 0a 20 20 69 6e 74 20 74 nNeedle;. int t
13d0: 79 70 65 48 61 79 73 74 61 63 6b 2c 20 74 79 70 ypeHaystack, typ
13e0: 65 4e 65 65 64 6c 65 3b 0a 20 20 69 6e 74 20 4e eNeedle;. int N
13f0: 20 3d 20 31 3b 0a 20 20 69 6e 74 20 69 73 54 65 = 1;. int isTe
1400: 78 74 3b 0a 0a 20 20 55 4e 55 53 45 44 5f 50 41 xt;.. UNUSED_PA
1410: 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 RAMETER(argc);.
1420: 20 74 79 70 65 48 61 79 73 74 61 63 6b 20 3d 20 typeHaystack =
1430: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 sqlite3_value_ty
1440: 70 65 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 74 pe(argv[0]);. t
1450: 79 70 65 4e 65 65 64 6c 65 20 3d 20 73 71 6c 69 ypeNeedle = sqli
1460: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
1470: 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 74 rgv[1]);. if( t
1480: 79 70 65 48 61 79 73 74 61 63 6b 3d 3d 53 51 4c ypeHaystack==SQL
1490: 49 54 45 5f 4e 55 4c 4c 20 7c 7c 20 74 79 70 65 ITE_NULL || type
14a0: 4e 65 65 64 6c 65 3d 3d 53 51 4c 49 54 45 5f 4e Needle==SQLITE_N
14b0: 55 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 ULL ) return;.
14c0: 6e 48 61 79 73 74 61 63 6b 20 3d 20 73 71 6c 69 nHaystack = sqli
14d0: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 te3_value_bytes(
14e0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 6e 4e 65 65 argv[0]);. nNee
14f0: 64 6c 65 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 dle = sqlite3_va
1500: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 31 lue_bytes(argv[1
1510: 5d 29 3b 0a 20 20 69 66 28 20 74 79 70 65 48 61 ]);. if( typeHa
1520: 79 73 74 61 63 6b 3d 3d 53 51 4c 49 54 45 5f 42 ystack==SQLITE_B
1530: 4c 4f 42 20 26 26 20 74 79 70 65 4e 65 65 64 6c LOB && typeNeedl
1540: 65 3d 3d 53 51 4c 49 54 45 5f 42 4c 4f 42 20 29 e==SQLITE_BLOB )
1550: 7b 0a 20 20 20 20 7a 48 61 79 73 74 61 63 6b 20 {. zHaystack
1560: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
1570: 62 6c 6f 62 28 61 72 67 76 5b 30 5d 29 3b 0a 20 blob(argv[0]);.
1580: 20 20 20 7a 4e 65 65 64 6c 65 20 3d 20 73 71 6c zNeedle = sql
1590: 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 ite3_value_blob(
15a0: 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 69 73 argv[1]);. is
15b0: 54 65 78 74 20 3d 20 30 3b 0a 20 20 7d 65 6c 73 Text = 0;. }els
15c0: 65 7b 0a 20 20 20 20 7a 48 61 79 73 74 61 63 6b e{. zHaystack
15d0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
15e0: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a _text(argv[0]);.
15f0: 20 20 20 20 7a 4e 65 65 64 6c 65 20 3d 20 73 71 zNeedle = sq
1600: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
1610: 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 69 (argv[1]);. i
1620: 73 54 65 78 74 20 3d 20 31 3b 0a 20 20 7d 0a 20 sText = 1;. }.
1630: 20 77 68 69 6c 65 28 20 6e 4e 65 65 64 6c 65 3c while( nNeedle<
1640: 3d 6e 48 61 79 73 74 61 63 6b 20 26 26 20 6d 65 =nHaystack && me
1650: 6d 63 6d 70 28 7a 48 61 79 73 74 61 63 6b 2c 20 mcmp(zHaystack,
1660: 7a 4e 65 65 64 6c 65 2c 20 6e 4e 65 65 64 6c 65 zNeedle, nNeedle
1670: 29 21 3d 30 20 29 7b 0a 20 20 20 20 4e 2b 2b 3b )!=0 ){. N++;
1680: 0a 20 20 20 20 64 6f 7b 0a 20 20 20 20 20 20 6e . do{. n
1690: 48 61 79 73 74 61 63 6b 2d 2d 3b 0a 20 20 20 20 Haystack--;.
16a0: 20 20 7a 48 61 79 73 74 61 63 6b 2b 2b 3b 0a 20 zHaystack++;.
16b0: 20 20 20 7d 77 68 69 6c 65 28 20 69 73 54 65 78 }while( isTex
16c0: 74 20 26 26 20 28 7a 48 61 79 73 74 61 63 6b 5b t && (zHaystack[
16d0: 30 5d 26 30 78 63 30 29 3d 3d 30 78 38 30 20 29 0]&0xc0)==0x80 )
16e0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6e 4e 65 65 ;. }. if( nNee
16f0: 64 6c 65 3e 6e 48 61 79 73 74 61 63 6b 20 29 20 dle>nHaystack )
1700: 4e 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 N = 0;. sqlite3
1710: 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 _result_int(cont
1720: 65 78 74 2c 20 4e 29 3b 0a 7d 0a 0a 2f 2a 0a 2a ext, N);.}../*.*
1730: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
1740: 20 6f 66 20 74 68 65 20 70 72 69 6e 74 66 28 29 of the printf()
1750: 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 function..*/.st
1760: 61 74 69 63 20 76 6f 69 64 20 70 72 69 6e 74 66 atic void printf
1770: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
1780: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
1790: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
17a0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
17b0: 61 72 67 76 0a 29 7b 0a 20 20 50 72 69 6e 74 66 argv.){. Printf
17c0: 41 72 67 75 6d 65 6e 74 73 20 78 3b 0a 20 20 53 Arguments x;. S
17d0: 74 72 41 63 63 75 6d 20 73 74 72 3b 0a 20 20 63 trAccum str;. c
17e0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d onst char *zForm
17f0: 61 74 3b 0a 20 20 69 6e 74 20 6e 3b 0a 0a 20 20 at;. int n;..
1800: 69 66 28 20 61 72 67 63 3e 3d 31 20 26 26 20 28 if( argc>=1 && (
1810: 7a 46 6f 72 6d 61 74 20 3d 20 28 63 6f 6e 73 74 zFormat = (const
1820: 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 char*)sqlite3_v
1830: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
1840: 5d 29 29 21 3d 30 20 29 7b 0a 20 20 20 20 78 2e ]))!=0 ){. x.
1850: 6e 41 72 67 20 3d 20 61 72 67 63 2d 31 3b 0a 20 nArg = argc-1;.
1860: 20 20 20 78 2e 6e 55 73 65 64 20 3d 20 30 3b 0a x.nUsed = 0;.
1870: 20 20 20 20 78 2e 61 70 41 72 67 20 3d 20 61 72 x.apArg = ar
1880: 67 76 2b 31 3b 0a 20 20 20 20 73 71 6c 69 74 65 gv+1;. sqlite
1890: 33 53 74 72 41 63 63 75 6d 49 6e 69 74 28 26 73 3StrAccumInit(&s
18a0: 74 72 2c 20 30 2c 20 30 2c 20 53 51 4c 49 54 45 tr, 0, 0, SQLITE
18b0: 5f 4d 41 58 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 _MAX_LENGTH);.
18c0: 20 20 73 74 72 2e 64 62 20 3d 20 73 71 6c 69 74 str.db = sqlit
18d0: 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 e3_context_db_ha
18e0: 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 ndle(context);.
18f0: 20 20 20 73 71 6c 69 74 65 33 58 50 72 69 6e 74 sqlite3XPrint
1900: 66 28 26 73 74 72 2c 20 53 51 4c 49 54 45 5f 50 f(&str, SQLITE_P
1910: 52 49 4e 54 46 5f 53 51 4c 46 55 4e 43 2c 20 7a RINTF_SQLFUNC, z
1920: 46 6f 72 6d 61 74 2c 20 26 78 29 3b 0a 20 20 20 Format, &x);.
1930: 20 6e 20 3d 20 73 74 72 2e 6e 43 68 61 72 3b 0a n = str.nChar;.
1940: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
1950: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
1960: 20 73 71 6c 69 74 65 33 53 74 72 41 63 63 75 6d sqlite3StrAccum
1970: 46 69 6e 69 73 68 28 26 73 74 72 29 2c 20 6e 2c Finish(&str), n,
1980: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1990: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f SQLITE_
19a0: 44 59 4e 41 4d 49 43 29 3b 0a 20 20 7d 0a 7d 0a DYNAMIC);. }.}.
19b0: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
19c0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 75 62 ation of the sub
19d0: 73 74 72 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a str() function..
19e0: 2a 2a 0a 2a 2a 20 73 75 62 73 74 72 28 78 2c 70 **.** substr(x,p
19f0: 31 2c 70 32 29 20 20 72 65 74 75 72 6e 73 20 70 1,p2) returns p
1a00: 32 20 63 68 61 72 61 63 74 65 72 73 20 6f 66 20 2 characters of
1a10: 78 5b 5d 20 62 65 67 69 6e 6e 69 6e 67 20 77 69 x[] beginning wi
1a20: 74 68 20 70 31 2e 0a 2a 2a 20 70 31 20 69 73 20 th p1..** p1 is
1a30: 31 2d 69 6e 64 65 78 65 64 2e 20 20 53 6f 20 73 1-indexed. So s
1a40: 75 62 73 74 72 28 78 2c 31 2c 31 29 20 72 65 74 ubstr(x,1,1) ret
1a50: 75 72 6e 73 20 74 68 65 20 66 69 72 73 74 20 63 urns the first c
1a60: 68 61 72 61 63 74 65 72 0a 2a 2a 20 6f 66 20 78 haracter.** of x
1a70: 2e 20 20 49 66 20 78 20 69 73 20 74 65 78 74 2c . If x is text,
1a80: 20 74 68 65 6e 20 77 65 20 61 63 74 75 61 6c 6c then we actuall
1a90: 79 20 63 6f 75 6e 74 20 55 54 46 2d 38 20 63 68 y count UTF-8 ch
1aa0: 61 72 61 63 74 65 72 73 2e 0a 2a 2a 20 49 66 20 aracters..** If
1ab0: 78 20 69 73 20 61 20 62 6c 6f 62 2c 20 74 68 65 x is a blob, the
1ac0: 6e 20 77 65 20 63 6f 75 6e 74 20 62 79 74 65 73 n we count bytes
1ad0: 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 70 31 20 69 73 ..**.** If p1 is
1ae0: 20 6e 65 67 61 74 69 76 65 2c 20 74 68 65 6e 20 negative, then
1af0: 77 65 20 62 65 67 69 6e 20 61 62 73 28 70 31 29 we begin abs(p1)
1b00: 20 66 72 6f 6d 20 74 68 65 20 65 6e 64 20 6f 66 from the end of
1b10: 20 78 5b 5d 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 70 x[]..**.** If p
1b20: 32 20 69 73 20 6e 65 67 61 74 69 76 65 2c 20 72 2 is negative, r
1b30: 65 74 75 72 6e 20 74 68 65 20 70 32 20 63 68 61 eturn the p2 cha
1b40: 72 61 63 74 65 72 73 20 70 72 65 63 65 64 69 6e racters precedin
1b50: 67 20 70 31 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 g p1..*/.static
1b60: 76 6f 69 64 20 73 75 62 73 74 72 46 75 6e 63 28 void substrFunc(
1b70: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 . sqlite3_conte
1b80: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 xt *context,. i
1b90: 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 nt argc,. sqlit
1ba0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a e3_value **argv.
1bb0: 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 ){. const unsig
1bc0: 6e 65 64 20 63 68 61 72 20 2a 7a 3b 0a 20 20 63 ned char *z;. c
1bd0: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
1be0: 61 72 20 2a 7a 32 3b 0a 20 20 69 6e 74 20 6c 65 ar *z2;. int le
1bf0: 6e 3b 0a 20 20 69 6e 74 20 70 30 74 79 70 65 3b n;. int p0type;
1c00: 0a 20 20 69 36 34 20 70 31 2c 20 70 32 3b 0a 20 . i64 p1, p2;.
1c10: 20 69 6e 74 20 6e 65 67 50 32 20 3d 20 30 3b 0a int negP2 = 0;.
1c20: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d . assert( argc=
1c30: 3d 33 20 7c 7c 20 61 72 67 63 3d 3d 32 20 29 3b =3 || argc==2 );
1c40: 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 76 . if( sqlite3_v
1c50: 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 31 alue_type(argv[1
1c60: 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 0a ])==SQLITE_NULL.
1c70: 20 20 20 7c 7c 20 28 61 72 67 63 3d 3d 33 20 26 || (argc==3 &
1c80: 26 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f & sqlite3_value_
1c90: 74 79 70 65 28 61 72 67 76 5b 32 5d 29 3d 3d 53 type(argv[2])==S
1ca0: 51 4c 49 54 45 5f 4e 55 4c 4c 29 0a 20 20 29 7b QLITE_NULL). ){
1cb0: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d . return;. }
1cc0: 0a 20 20 70 30 74 79 70 65 20 3d 20 73 71 6c 69 . p0type = sqli
1cd0: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
1ce0: 72 67 76 5b 30 5d 29 3b 0a 20 20 70 31 20 3d 20 rgv[0]);. p1 =
1cf0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e sqlite3_value_in
1d00: 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 t(argv[1]);. if
1d10: 28 20 70 30 74 79 70 65 3d 3d 53 51 4c 49 54 45 ( p0type==SQLITE
1d20: 5f 42 4c 4f 42 20 29 7b 0a 20 20 20 20 6c 65 6e _BLOB ){. len
1d30: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
1d40: 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b _bytes(argv[0]);
1d50: 0a 20 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 . z = sqlite3
1d60: 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 _value_blob(argv
1d70: 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 7a 3d [0]);. if( z=
1d80: 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 =0 ) return;.
1d90: 20 61 73 73 65 72 74 28 20 6c 65 6e 3d 3d 73 71 assert( len==sq
1da0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 lite3_value_byte
1db0: 73 28 61 72 67 76 5b 30 5d 29 20 29 3b 0a 20 20 s(argv[0]) );.
1dc0: 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 20 3d 20 73 }else{. z = s
1dd0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
1de0: 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 t(argv[0]);.
1df0: 69 66 28 20 7a 3d 3d 30 20 29 20 72 65 74 75 72 if( z==0 ) retur
1e00: 6e 3b 0a 20 20 20 20 6c 65 6e 20 3d 20 30 3b 0a n;. len = 0;.
1e10: 20 20 20 20 69 66 28 20 70 31 3c 30 20 29 7b 0a if( p1<0 ){.
1e20: 20 20 20 20 20 20 66 6f 72 28 7a 32 3d 7a 3b 20 for(z2=z;
1e30: 2a 7a 32 3b 20 6c 65 6e 2b 2b 29 7b 0a 20 20 20 *z2; len++){.
1e40: 20 20 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 SQLITE_SKIP
1e50: 5f 55 54 46 38 28 7a 32 29 3b 0a 20 20 20 20 20 _UTF8(z2);.
1e60: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 }. }. }. i
1e70: 66 28 20 61 72 67 63 3d 3d 33 20 29 7b 0a 20 20 f( argc==3 ){.
1e80: 20 20 70 32 20 3d 20 73 71 6c 69 74 65 33 5f 76 p2 = sqlite3_v
1e90: 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 32 5d alue_int(argv[2]
1ea0: 29 3b 0a 20 20 20 20 69 66 28 20 70 32 3c 30 20 );. if( p2<0
1eb0: 29 7b 0a 20 20 20 20 20 20 70 32 20 3d 20 2d 70 ){. p2 = -p
1ec0: 32 3b 0a 20 20 20 20 20 20 6e 65 67 50 32 20 3d 2;. negP2 =
1ed0: 20 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 1;. }. }els
1ee0: 65 7b 0a 20 20 20 20 70 32 20 3d 20 73 71 6c 69 e{. p2 = sqli
1ef0: 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 te3_context_db_h
1f00: 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 2d 3e andle(context)->
1f10: 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 aLimit[SQLITE_LI
1f20: 4d 49 54 5f 4c 45 4e 47 54 48 5d 3b 0a 20 20 7d MIT_LENGTH];. }
1f30: 0a 20 20 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 . if( p1<0 ){.
1f40: 20 20 20 70 31 20 2b 3d 20 6c 65 6e 3b 0a 20 20 p1 += len;.
1f50: 20 20 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 if( p1<0 ){.
1f60: 20 20 20 20 70 32 20 2b 3d 20 70 31 3b 0a 20 20 p2 += p1;.
1f70: 20 20 20 20 69 66 28 20 70 32 3c 30 20 29 20 70 if( p2<0 ) p
1f80: 32 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 31 20 2 = 0;. p1
1f90: 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c = 0;. }. }el
1fa0: 73 65 20 69 66 28 20 70 31 3e 30 20 29 7b 0a 20 se if( p1>0 ){.
1fb0: 20 20 20 70 31 2d 2d 3b 0a 20 20 7d 65 6c 73 65 p1--;. }else
1fc0: 20 69 66 28 20 70 32 3e 30 20 29 7b 0a 20 20 20 if( p2>0 ){.
1fd0: 20 70 32 2d 2d 3b 0a 20 20 7d 0a 20 20 69 66 28 p2--;. }. if(
1fe0: 20 6e 65 67 50 32 20 29 7b 0a 20 20 20 20 70 31 negP2 ){. p1
1ff0: 20 2d 3d 20 70 32 3b 0a 20 20 20 20 69 66 28 20 -= p2;. if(
2000: 70 31 3c 30 20 29 7b 0a 20 20 20 20 20 20 70 32 p1<0 ){. p2
2010: 20 2b 3d 20 70 31 3b 0a 20 20 20 20 20 20 70 31 += p1;. p1
2020: 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a = 0;. }. }.
2030: 20 20 61 73 73 65 72 74 28 20 70 31 3e 3d 30 20 assert( p1>=0
2040: 26 26 20 70 32 3e 3d 30 20 29 3b 0a 20 20 69 66 && p2>=0 );. if
2050: 28 20 70 30 74 79 70 65 21 3d 53 51 4c 49 54 45 ( p0type!=SQLITE
2060: 5f 42 4c 4f 42 20 29 7b 0a 20 20 20 20 77 68 69 _BLOB ){. whi
2070: 6c 65 28 20 2a 7a 20 26 26 20 70 31 20 29 7b 0a le( *z && p1 ){.
2080: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 SQLITE_SKI
2090: 50 5f 55 54 46 38 28 7a 29 3b 0a 20 20 20 20 20 P_UTF8(z);.
20a0: 20 70 31 2d 2d 3b 0a 20 20 20 20 7d 0a 20 20 20 p1--;. }.
20b0: 20 66 6f 72 28 7a 32 3d 7a 3b 20 2a 7a 32 20 26 for(z2=z; *z2 &
20c0: 26 20 70 32 3b 20 70 32 2d 2d 29 7b 0a 20 20 20 & p2; p2--){.
20d0: 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55 SQLITE_SKIP_U
20e0: 54 46 38 28 7a 32 29 3b 0a 20 20 20 20 7d 0a 20 TF8(z2);. }.
20f0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
2100: 74 5f 74 65 78 74 36 34 28 63 6f 6e 74 65 78 74 t_text64(context
2110: 2c 20 28 63 68 61 72 2a 29 7a 2c 20 7a 32 2d 7a , (char*)z, z2-z
2120: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
2130: 4e 54 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 NT,.
2140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 SQ
2150: 4c 49 54 45 5f 55 54 46 38 29 3b 0a 20 20 7d 65 LITE_UTF8);. }e
2160: 6c 73 65 7b 0a 20 20 20 20 69 66 28 20 70 31 2b lse{. if( p1+
2170: 70 32 3e 6c 65 6e 20 29 7b 0a 20 20 20 20 20 20 p2>len ){.
2180: 70 32 20 3d 20 6c 65 6e 2d 70 31 3b 0a 20 20 20 p2 = len-p1;.
2190: 20 20 20 69 66 28 20 70 32 3c 30 20 29 20 70 32 if( p2<0 ) p2
21a0: 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 = 0;. }.
21b0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 62 sqlite3_result_b
21c0: 6c 6f 62 36 34 28 63 6f 6e 74 65 78 74 2c 20 28 lob64(context, (
21d0: 63 68 61 72 2a 29 26 7a 5b 70 31 5d 2c 20 28 75 char*)&z[p1], (u
21e0: 36 34 29 70 32 2c 20 53 51 4c 49 54 45 5f 54 52 64)p2, SQLITE_TR
21f0: 41 4e 53 49 45 4e 54 29 3b 0a 20 20 7d 0a 7d 0a ANSIENT);. }.}.
2200: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
2210: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 6f 75 ation of the rou
2220: 6e 64 28 29 20 66 75 6e 63 74 69 6f 6e 0a 2a 2f nd() function.*/
2230: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f .#ifndef SQLITE_
2240: 4f 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f OMIT_FLOATING_PO
2250: 49 4e 54 0a 73 74 61 74 69 63 20 76 6f 69 64 20 INT.static void
2260: 72 6f 75 6e 64 46 75 6e 63 28 73 71 6c 69 74 65 roundFunc(sqlite
2270: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
2280: 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 xt, int argc, sq
2290: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
22a0: 67 76 29 7b 0a 20 20 69 6e 74 20 6e 20 3d 20 30 gv){. int n = 0
22b0: 3b 0a 20 20 64 6f 75 62 6c 65 20 72 3b 0a 20 20 ;. double r;.
22c0: 63 68 61 72 20 2a 7a 42 75 66 3b 0a 20 20 61 73 char *zBuf;. as
22d0: 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 7c 7c sert( argc==1 ||
22e0: 20 61 72 67 63 3d 3d 32 20 29 3b 0a 20 20 69 66 argc==2 );. if
22f0: 28 20 61 72 67 63 3d 3d 32 20 29 7b 0a 20 20 20 ( argc==2 ){.
2300: 20 69 66 28 20 53 51 4c 49 54 45 5f 4e 55 4c 4c if( SQLITE_NULL
2310: 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f ==sqlite3_value_
2320: 74 79 70 65 28 61 72 67 76 5b 31 5d 29 20 29 20 type(argv[1]) )
2330: 72 65 74 75 72 6e 3b 0a 20 20 20 20 6e 20 3d 20 return;. n =
2340: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e sqlite3_value_in
2350: 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 t(argv[1]);.
2360: 69 66 28 20 6e 3e 33 30 20 29 20 6e 20 3d 20 33 if( n>30 ) n = 3
2370: 30 3b 0a 20 20 20 20 69 66 28 20 6e 3c 30 20 29 0;. if( n<0 )
2380: 20 6e 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 n = 0;. }. if
2390: 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f ( sqlite3_value_
23a0: 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 type(argv[0])==S
23b0: 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 QLITE_NULL ) ret
23c0: 75 72 6e 3b 0a 20 20 72 20 3d 20 73 71 6c 69 74 urn;. r = sqlit
23d0: 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 e3_value_double(
23e0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 2f 2a 20 49 argv[0]);. /* I
23f0: 66 20 59 3d 3d 30 20 61 6e 64 20 58 20 77 69 6c f Y==0 and X wil
2400: 6c 20 66 69 74 20 69 6e 20 61 20 36 34 2d 62 69 l fit in a 64-bi
2410: 74 20 69 6e 74 2c 0a 20 20 2a 2a 20 68 61 6e 64 t int,. ** hand
2420: 6c 65 20 74 68 65 20 72 6f 75 6e 64 69 6e 67 20 le the rounding
2430: 64 69 72 65 63 74 6c 79 2c 0a 20 20 2a 2a 20 6f directly,. ** o
2440: 74 68 65 72 77 69 73 65 20 75 73 65 20 70 72 69 therwise use pri
2450: 6e 74 66 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 ntf.. */. if(
2460: 6e 3d 3d 30 20 26 26 20 72 3e 3d 30 20 26 26 20 n==0 && r>=0 &&
2470: 72 3c 4c 41 52 47 45 53 54 5f 49 4e 54 36 34 2d r<LARGEST_INT64-
2480: 31 20 29 7b 0a 20 20 20 20 72 20 3d 20 28 64 6f 1 ){. r = (do
2490: 75 62 6c 65 29 28 28 73 71 6c 69 74 65 5f 69 6e uble)((sqlite_in
24a0: 74 36 34 29 28 72 2b 30 2e 35 29 29 3b 0a 20 20 t64)(r+0.5));.
24b0: 7d 65 6c 73 65 20 69 66 28 20 6e 3d 3d 30 20 26 }else if( n==0 &
24c0: 26 20 72 3c 30 20 26 26 20 28 2d 72 29 3c 4c 41 & r<0 && (-r)<LA
24d0: 52 47 45 53 54 5f 49 4e 54 36 34 2d 31 20 29 7b RGEST_INT64-1 ){
24e0: 0a 20 20 20 20 72 20 3d 20 2d 28 64 6f 75 62 6c . r = -(doubl
24f0: 65 29 28 28 73 71 6c 69 74 65 5f 69 6e 74 36 34 e)((sqlite_int64
2500: 29 28 28 2d 72 29 2b 30 2e 35 29 29 3b 0a 20 20 )((-r)+0.5));.
2510: 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 42 75 66 20 }else{. zBuf
2520: 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 = sqlite3_mprint
2530: 66 28 22 25 2e 2a 66 22 2c 6e 2c 72 29 3b 0a 20 f("%.*f",n,r);.
2540: 20 20 20 69 66 28 20 7a 42 75 66 3d 3d 30 20 29 if( zBuf==0 )
2550: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f {. sqlite3_
2560: 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d result_error_nom
2570: 65 6d 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 em(context);.
2580: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d return;. }
2590: 0a 20 20 20 20 73 71 6c 69 74 65 33 41 74 6f 46 . sqlite3AtoF
25a0: 28 7a 42 75 66 2c 20 26 72 2c 20 73 71 6c 69 74 (zBuf, &r, sqlit
25b0: 65 33 53 74 72 6c 65 6e 33 30 28 7a 42 75 66 29 e3Strlen30(zBuf)
25c0: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 29 3b 0a , SQLITE_UTF8);.
25d0: 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 sqlite3_free
25e0: 28 7a 42 75 66 29 3b 0a 20 20 7d 0a 20 20 73 71 (zBuf);. }. sq
25f0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 lite3_result_dou
2600: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 72 29 3b ble(context, r);
2610: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a .}.#endif../*.**
2620: 20 41 6c 6c 6f 63 61 74 65 20 6e 42 79 74 65 20 Allocate nByte
2630: 62 79 74 65 73 20 6f 66 20 73 70 61 63 65 20 75 bytes of space u
2640: 73 69 6e 67 20 73 71 6c 69 74 65 33 5f 6d 61 6c sing sqlite3_mal
2650: 6c 6f 63 28 29 2e 20 49 66 20 74 68 65 0a 2a 2a loc(). If the.**
2660: 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 66 61 69 6c allocation fail
2670: 73 2c 20 63 61 6c 6c 20 73 71 6c 69 74 65 33 5f s, call sqlite3_
2680: 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d result_error_nom
2690: 65 6d 28 29 20 74 6f 20 6e 6f 74 69 66 79 0a 2a em() to notify.*
26a0: 2a 20 74 68 65 20 64 61 74 61 62 61 73 65 20 68 * the database h
26b0: 61 6e 64 6c 65 20 74 68 61 74 20 6d 61 6c 6c 6f andle that mallo
26c0: 63 28 29 20 68 61 73 20 66 61 69 6c 65 64 20 61 c() has failed a
26d0: 6e 64 20 72 65 74 75 72 6e 20 4e 55 4c 4c 2e 0a nd return NULL..
26e0: 2a 2a 20 49 66 20 6e 42 79 74 65 20 69 73 20 6c ** If nByte is l
26f0: 61 72 67 65 72 20 74 68 61 6e 20 74 68 65 20 6d arger than the m
2700: 61 78 69 6d 75 6d 20 73 74 72 69 6e 67 20 6f 72 aximum string or
2710: 20 62 6c 6f 62 20 6c 65 6e 67 74 68 2c 20 74 68 blob length, th
2720: 65 6e 0a 2a 2a 20 72 61 69 73 65 20 61 6e 20 53 en.** raise an S
2730: 51 4c 49 54 45 5f 54 4f 4f 42 49 47 20 65 78 63 QLITE_TOOBIG exc
2740: 65 70 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 72 eption and retur
2750: 6e 20 4e 55 4c 4c 2e 0a 2a 2f 0a 73 74 61 74 69 n NULL..*/.stati
2760: 63 20 76 6f 69 64 20 2a 63 6f 6e 74 65 78 74 4d c void *contextM
2770: 61 6c 6c 6f 63 28 73 71 6c 69 74 65 33 5f 63 6f alloc(sqlite3_co
2780: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 ntext *context,
2790: 69 36 34 20 6e 42 79 74 65 29 7b 0a 20 20 63 68 i64 nByte){. ch
27a0: 61 72 20 2a 7a 3b 0a 20 20 73 71 6c 69 74 65 33 ar *z;. sqlite3
27b0: 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 *db = sqlite3_c
27c0: 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 ontext_db_handle
27d0: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 61 73 73 (context);. ass
27e0: 65 72 74 28 20 6e 42 79 74 65 3e 30 20 29 3b 0a ert( nByte>0 );.
27f0: 20 20 74 65 73 74 63 61 73 65 28 20 6e 42 79 74 testcase( nByt
2800: 65 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 e==db->aLimit[SQ
2810: 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 LITE_LIMIT_LENGT
2820: 48 5d 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 H] );. testcase
2830: 28 20 6e 42 79 74 65 3d 3d 64 62 2d 3e 61 4c 69 ( nByte==db->aLi
2840: 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 mit[SQLITE_LIMIT
2850: 5f 4c 45 4e 47 54 48 5d 2b 31 20 29 3b 0a 20 20 _LENGTH]+1 );.
2860: 69 66 28 20 6e 42 79 74 65 3e 64 62 2d 3e 61 4c if( nByte>db->aL
2870: 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 imit[SQLITE_LIMI
2880: 54 5f 4c 45 4e 47 54 48 5d 20 29 7b 0a 20 20 20 T_LENGTH] ){.
2890: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
28a0: 65 72 72 6f 72 5f 74 6f 6f 62 69 67 28 63 6f 6e error_toobig(con
28b0: 74 65 78 74 29 3b 0a 20 20 20 20 7a 20 3d 20 30 text);. z = 0
28c0: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 7a ;. }else{. z
28d0: 20 3d 20 73 71 6c 69 74 65 33 4d 61 6c 6c 6f 63 = sqlite3Malloc
28e0: 28 6e 42 79 74 65 29 3b 0a 20 20 20 20 69 66 28 (nByte);. if(
28f0: 20 21 7a 20 29 7b 0a 20 20 20 20 20 20 73 71 6c !z ){. sql
2900: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
2910: 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 74 29 r_nomem(context)
2920: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 ;. }. }. re
2930: 74 75 72 6e 20 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn z;.}../*.**
2940: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 Implementation
2950: 6f 66 20 74 68 65 20 75 70 70 65 72 28 29 20 61 of the upper() a
2960: 6e 64 20 6c 6f 77 65 72 28 29 20 53 51 4c 20 66 nd lower() SQL f
2970: 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 61 unctions..*/.sta
2980: 74 69 63 20 76 6f 69 64 20 75 70 70 65 72 46 75 tic void upperFu
2990: 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 nc(sqlite3_conte
29a0: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 xt *context, int
29b0: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 argc, sqlite3_v
29c0: 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 alue **argv){.
29d0: 63 68 61 72 20 2a 7a 31 3b 0a 20 20 63 6f 6e 73 char *z1;. cons
29e0: 74 20 63 68 61 72 20 2a 7a 32 3b 0a 20 20 69 6e t char *z2;. in
29f0: 74 20 69 2c 20 6e 3b 0a 20 20 55 4e 55 53 45 44 t i, n;. UNUSED
2a00: 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 _PARAMETER(argc)
2a10: 3b 0a 20 20 7a 32 20 3d 20 28 63 68 61 72 2a 29 ;. z2 = (char*)
2a20: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
2a30: 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 6e xt(argv[0]);. n
2a40: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
2a50: 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b _bytes(argv[0]);
2a60: 0a 20 20 2f 2a 20 56 65 72 69 66 79 20 74 68 61 . /* Verify tha
2a70: 74 20 74 68 65 20 63 61 6c 6c 20 74 6f 20 5f 62 t the call to _b
2a80: 79 74 65 73 28 29 20 64 6f 65 73 20 6e 6f 74 20 ytes() does not
2a90: 69 6e 76 61 6c 69 64 61 74 65 20 74 68 65 20 5f invalidate the _
2aa0: 74 65 78 74 28 29 20 70 6f 69 6e 74 65 72 20 2a text() pointer *
2ab0: 2f 0a 20 20 61 73 73 65 72 74 28 20 7a 32 3d 3d /. assert( z2==
2ac0: 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 (char*)sqlite3_v
2ad0: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
2ae0: 5d 29 20 29 3b 0a 20 20 69 66 28 20 7a 32 20 29 ]) );. if( z2 )
2af0: 7b 0a 20 20 20 20 7a 31 20 3d 20 63 6f 6e 74 65 {. z1 = conte
2b00: 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 xtMalloc(context
2b10: 2c 20 28 28 69 36 34 29 6e 29 2b 31 29 3b 0a 20 , ((i64)n)+1);.
2b20: 20 20 20 69 66 28 20 7a 31 20 29 7b 0a 20 20 20 if( z1 ){.
2b30: 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 3b for(i=0; i<n;
2b40: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 7a i++){. z
2b50: 31 5b 69 5d 20 3d 20 28 63 68 61 72 29 73 71 6c 1[i] = (char)sql
2b60: 69 74 65 33 54 6f 75 70 70 65 72 28 7a 32 5b 69 ite3Toupper(z2[i
2b70: 5d 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 ]);. }.
2b80: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
2b90: 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a _text(context, z
2ba0: 31 2c 20 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72 1, n, sqlite3_fr
2bb0: 65 65 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d ee);. }. }.}
2bc0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 6f 77 .static void low
2bd0: 65 72 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 erFunc(sqlite3_c
2be0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
2bf0: 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 int argc, sqlit
2c00: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 e3_value **argv)
2c10: 7b 0a 20 20 63 68 61 72 20 2a 7a 31 3b 0a 20 20 {. char *z1;.
2c20: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 32 3b 0a const char *z2;.
2c30: 20 20 69 6e 74 20 69 2c 20 6e 3b 0a 20 20 55 4e int i, n;. UN
2c40: 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61 USED_PARAMETER(a
2c50: 72 67 63 29 3b 0a 20 20 7a 32 20 3d 20 28 63 68 rgc);. z2 = (ch
2c60: 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 ar*)sqlite3_valu
2c70: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b e_text(argv[0]);
2c80: 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 . n = sqlite3_v
2c90: 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b alue_bytes(argv[
2ca0: 30 5d 29 3b 0a 20 20 2f 2a 20 56 65 72 69 66 79 0]);. /* Verify
2cb0: 20 74 68 61 74 20 74 68 65 20 63 61 6c 6c 20 74 that the call t
2cc0: 6f 20 5f 62 79 74 65 73 28 29 20 64 6f 65 73 20 o _bytes() does
2cd0: 6e 6f 74 20 69 6e 76 61 6c 69 64 61 74 65 20 74 not invalidate t
2ce0: 68 65 20 5f 74 65 78 74 28 29 20 70 6f 69 6e 74 he _text() point
2cf0: 65 72 20 2a 2f 0a 20 20 61 73 73 65 72 74 28 20 er */. assert(
2d00: 7a 32 3d 3d 28 63 68 61 72 2a 29 73 71 6c 69 74 z2==(char*)sqlit
2d10: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
2d20: 67 76 5b 30 5d 29 20 29 3b 0a 20 20 69 66 28 20 gv[0]) );. if(
2d30: 7a 32 20 29 7b 0a 20 20 20 20 7a 31 20 3d 20 63 z2 ){. z1 = c
2d40: 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e ontextMalloc(con
2d50: 74 65 78 74 2c 20 28 28 69 36 34 29 6e 29 2b 31 text, ((i64)n)+1
2d60: 29 3b 0a 20 20 20 20 69 66 28 20 7a 31 20 29 7b );. if( z1 ){
2d70: 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 . for(i=0;
2d80: 69 3c 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 i<n; i++){.
2d90: 20 20 20 7a 31 5b 69 5d 20 3d 20 73 71 6c 69 74 z1[i] = sqlit
2da0: 65 33 54 6f 6c 6f 77 65 72 28 7a 32 5b 69 5d 29 e3Tolower(z2[i])
2db0: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 ;. }.
2dc0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 sqlite3_result_t
2dd0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 31 2c ext(context, z1,
2de0: 20 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 n, sqlite3_free
2df0: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a );. }. }.}..
2e00: 2f 2a 0a 2a 2a 20 53 6f 6d 65 20 66 75 6e 63 74 /*.** Some funct
2e10: 69 6f 6e 73 20 6c 69 6b 65 20 43 4f 41 4c 45 53 ions like COALES
2e20: 43 45 28 29 20 61 6e 64 20 49 46 4e 55 4c 4c 28 CE() and IFNULL(
2e30: 29 20 61 6e 64 20 55 4e 4c 49 4b 45 4c 59 28 29 ) and UNLIKELY()
2e40: 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74 65 64 are implemented
2e50: 0a 2a 2a 20 61 73 20 56 44 42 45 20 63 6f 64 65 .** as VDBE code
2e60: 20 73 6f 20 74 68 61 74 20 75 6e 75 73 65 64 20 so that unused
2e70: 61 72 67 75 6d 65 6e 74 20 76 61 6c 75 65 73 20 argument values
2e80: 64 6f 20 6e 6f 74 20 68 61 76 65 20 74 6f 20 62 do not have to b
2e90: 65 20 63 6f 6d 70 75 74 65 64 2e 0a 2a 2a 20 48 e computed..** H
2ea0: 6f 77 65 76 65 72 2c 20 77 65 20 73 74 69 6c 6c owever, we still
2eb0: 20 6e 65 65 64 20 73 6f 6d 65 20 6b 69 6e 64 20 need some kind
2ec0: 6f 66 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 6c of function impl
2ed0: 65 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 74 ementation for t
2ee0: 68 69 73 0a 2a 2a 20 72 6f 75 74 69 6e 65 73 20 his.** routines
2ef0: 69 6e 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 in the function
2f00: 74 61 62 6c 65 2e 20 20 54 68 65 20 6e 6f 6f 70 table. The noop
2f10: 46 75 6e 63 20 6d 61 63 72 6f 20 70 72 6f 76 69 Func macro provi
2f20: 64 65 73 20 74 68 69 73 2e 0a 2a 2a 20 6e 6f 6f des this..** noo
2f30: 70 46 75 6e 63 20 77 69 6c 6c 20 6e 65 76 65 72 pFunc will never
2f40: 20 62 65 20 63 61 6c 6c 65 64 20 73 6f 20 69 74 be called so it
2f50: 20 64 6f 65 73 6e 27 74 20 6d 61 74 74 65 72 20 doesn't matter
2f60: 77 68 61 74 20 74 68 65 20 69 6d 70 6c 65 6d 65 what the impleme
2f70: 6e 74 61 74 69 6f 6e 0a 2a 2a 20 69 73 2e 20 20 ntation.** is.
2f80: 57 65 20 6d 69 67 68 74 20 61 73 20 77 65 6c 6c We might as well
2f90: 20 75 73 65 20 74 68 65 20 22 76 65 72 73 69 6f use the "versio
2fa0: 6e 28 29 22 20 66 75 6e 63 74 69 6f 6e 20 61 73 n()" function as
2fb0: 20 61 20 73 75 62 73 74 69 74 75 74 65 2e 0a 2a a substitute..*
2fc0: 2f 0a 23 64 65 66 69 6e 65 20 6e 6f 6f 70 46 75 /.#define noopFu
2fd0: 6e 63 20 76 65 72 73 69 6f 6e 46 75 6e 63 20 20 nc versionFunc
2fe0: 20 2f 2a 20 53 75 62 73 74 69 74 75 74 65 20 66 /* Substitute f
2ff0: 75 6e 63 74 69 6f 6e 20 2d 20 6e 65 76 65 72 20 unction - never
3000: 63 61 6c 6c 65 64 20 2a 2f 0a 0a 2f 2a 0a 2a 2a called */../*.**
3010: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 Implementation
3020: 6f 66 20 72 61 6e 64 6f 6d 28 29 2e 20 20 52 65 of random(). Re
3030: 74 75 72 6e 20 61 20 72 61 6e 64 6f 6d 20 69 6e turn a random in
3040: 74 65 67 65 72 2e 20 20 0a 2a 2f 0a 73 74 61 74 teger. .*/.stat
3050: 69 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d 46 75 ic void randomFu
3060: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f nc(. sqlite3_co
3070: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a ntext *context,.
3080: 20 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 int NotUsed,.
3090: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
30a0: 2a 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 73 *NotUsed2.){. s
30b0: 71 6c 69 74 65 5f 69 6e 74 36 34 20 72 3b 0a 20 qlite_int64 r;.
30c0: 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 UNUSED_PARAMETE
30d0: 52 32 28 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 R2(NotUsed, NotU
30e0: 73 65 64 32 29 3b 0a 20 20 73 71 6c 69 74 65 33 sed2);. sqlite3
30f0: 5f 72 61 6e 64 6f 6d 6e 65 73 73 28 73 69 7a 65 _randomness(size
3100: 6f 66 28 72 29 2c 20 26 72 29 3b 0a 20 20 69 66 of(r), &r);. if
3110: 28 20 72 3c 30 20 29 7b 0a 20 20 20 20 2f 2a 20 ( r<0 ){. /*
3120: 57 65 20 6e 65 65 64 20 74 6f 20 70 72 65 76 65 We need to preve
3130: 6e 74 20 61 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 nt a random numb
3140: 65 72 20 6f 66 20 30 78 38 30 30 30 30 30 30 30 er of 0x80000000
3150: 30 30 30 30 30 30 30 30 20 0a 20 20 20 20 2a 2a 00000000 . **
3160: 20 28 6f 72 20 2d 39 32 32 33 33 37 32 30 33 36 (or -9223372036
3170: 38 35 34 37 37 35 38 30 38 29 20 73 69 6e 63 65 854775808) since
3180: 20 77 68 65 6e 20 79 6f 75 20 64 6f 20 61 62 73 when you do abs
3190: 28 29 20 6f 66 20 74 68 61 74 0a 20 20 20 20 2a () of that. *
31a0: 2a 20 6e 75 6d 62 65 72 20 6f 66 20 79 6f 75 20 * number of you
31b0: 67 65 74 20 74 68 65 20 73 61 6d 65 20 76 61 6c get the same val
31c0: 75 65 20 62 61 63 6b 20 61 67 61 69 6e 2e 20 20 ue back again.
31d0: 54 6f 20 64 6f 20 74 68 69 73 0a 20 20 20 20 2a To do this. *
31e0: 2a 20 69 6e 20 61 20 77 61 79 20 74 68 61 74 20 * in a way that
31f0: 69 73 20 74 65 73 74 61 62 6c 65 2c 20 6d 61 73 is testable, mas
3200: 6b 20 74 68 65 20 73 69 67 6e 20 62 69 74 20 6f k the sign bit o
3210: 66 66 20 6f 66 20 6e 65 67 61 74 69 76 65 0a 20 ff of negative.
3220: 20 20 20 2a 2a 20 76 61 6c 75 65 73 2c 20 72 65 ** values, re
3230: 73 75 6c 74 69 6e 67 20 69 6e 20 61 20 70 6f 73 sulting in a pos
3240: 69 74 69 76 65 20 76 61 6c 75 65 2e 20 20 54 68 itive value. Th
3250: 65 6e 20 74 61 6b 65 20 74 68 65 20 0a 20 20 20 en take the .
3260: 20 2a 2a 20 32 73 20 63 6f 6d 70 6c 65 6d 65 6e ** 2s complemen
3270: 74 20 6f 66 20 74 68 61 74 20 70 6f 73 69 74 69 t of that positi
3280: 76 65 20 76 61 6c 75 65 2e 20 20 54 68 65 20 65 ve value. The e
3290: 6e 64 20 72 65 73 75 6c 74 20 63 61 6e 0a 20 20 nd result can.
32a0: 20 20 2a 2a 20 74 68 65 72 65 66 6f 72 65 20 62 ** therefore b
32b0: 65 20 6e 6f 20 6c 65 73 73 20 74 68 61 6e 20 2d e no less than -
32c0: 39 32 32 33 33 37 32 30 33 36 38 35 34 37 37 35 9223372036854775
32d0: 38 30 37 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 807.. */.
32e0: 72 20 3d 20 2d 28 72 20 26 20 4c 41 52 47 45 53 r = -(r & LARGES
32f0: 54 5f 49 4e 54 36 34 29 3b 0a 20 20 7d 0a 20 20 T_INT64);. }.
3300: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 sqlite3_result_i
3310: 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 72 29 nt64(context, r)
3320: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 ;.}../*.** Imple
3330: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 72 61 6e mentation of ran
3340: 64 6f 6d 62 6c 6f 62 28 4e 29 2e 20 20 52 65 74 domblob(N). Ret
3350: 75 72 6e 20 61 20 72 61 6e 64 6f 6d 20 62 6c 6f urn a random blo
3360: 62 0a 2a 2a 20 74 68 61 74 20 69 73 20 4e 20 62 b.** that is N b
3370: 79 74 65 73 20 6c 6f 6e 67 2e 0a 2a 2f 0a 73 74 ytes long..*/.st
3380: 61 74 69 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d atic void random
3390: 42 6c 6f 62 28 0a 20 20 73 71 6c 69 74 65 33 5f Blob(. sqlite3_
33a0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
33b0: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
33c0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
33d0: 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 6e 3b argv.){. int n;
33e0: 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 . unsigned char
33f0: 20 2a 70 3b 0a 20 20 61 73 73 65 72 74 28 20 61 *p;. assert( a
3400: 72 67 63 3d 3d 31 20 29 3b 0a 20 20 55 4e 55 53 rgc==1 );. UNUS
3410: 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 ED_PARAMETER(arg
3420: 63 29 3b 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 c);. n = sqlite
3430: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 3_value_int(argv
3440: 5b 30 5d 29 3b 0a 20 20 69 66 28 20 6e 3c 31 20 [0]);. if( n<1
3450: 29 7b 0a 20 20 20 20 6e 20 3d 20 31 3b 0a 20 20 ){. n = 1;.
3460: 7d 0a 20 20 70 20 3d 20 63 6f 6e 74 65 78 74 4d }. p = contextM
3470: 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c 20 6e alloc(context, n
3480: 29 3b 0a 20 20 69 66 28 20 70 20 29 7b 0a 20 20 );. if( p ){.
3490: 20 20 73 71 6c 69 74 65 33 5f 72 61 6e 64 6f 6d sqlite3_random
34a0: 6e 65 73 73 28 6e 2c 20 70 29 3b 0a 20 20 20 20 ness(n, p);.
34b0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 62 sqlite3_result_b
34c0: 6c 6f 62 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 lob(context, (ch
34d0: 61 72 2a 29 70 2c 20 6e 2c 20 73 71 6c 69 74 65 ar*)p, n, sqlite
34e0: 33 5f 66 72 65 65 29 3b 0a 20 20 7d 0a 7d 0a 0a 3_free);. }.}..
34f0: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 /*.** Implementa
3500: 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c 61 73 74 tion of the last
3510: 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 29 20 _insert_rowid()
3520: 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 SQL function. T
3530: 68 65 20 72 65 74 75 72 6e 0a 2a 2a 20 76 61 6c he return.** val
3540: 75 65 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 ue is the same a
3550: 73 20 74 68 65 20 73 71 6c 69 74 65 33 5f 6c 61 s the sqlite3_la
3560: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 st_insert_rowid(
3570: 29 20 41 50 49 20 66 75 6e 63 74 69 6f 6e 2e 0a ) API function..
3580: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c */.static void l
3590: 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 ast_insert_rowid
35a0: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 (. sqlite3_cont
35b0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 ext *context, .
35c0: 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 20 0a 20 int NotUsed, .
35d0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
35e0: 2a 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 73 *NotUsed2.){. s
35f0: 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71 6c qlite3 *db = sql
3600: 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f ite3_context_db_
3610: 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b handle(context);
3620: 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 . UNUSED_PARAME
3630: 54 45 52 32 28 4e 6f 74 55 73 65 64 2c 20 4e 6f TER2(NotUsed, No
3640: 74 55 73 65 64 32 29 3b 0a 20 20 2f 2a 20 49 4d tUsed2);. /* IM
3650: 50 3a 20 52 2d 35 31 35 31 33 2d 31 32 30 32 36 P: R-51513-12026
3660: 20 54 68 65 20 6c 61 73 74 5f 69 6e 73 65 72 74 The last_insert
3670: 5f 72 6f 77 69 64 28 29 20 53 51 4c 20 66 75 6e _rowid() SQL fun
3680: 63 74 69 6f 6e 20 69 73 20 61 0a 20 20 2a 2a 20 ction is a. **
3690: 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 wrapper around t
36a0: 68 65 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f he sqlite3_last_
36b0: 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 29 20 43 insert_rowid() C
36c0: 2f 43 2b 2b 20 69 6e 74 65 72 66 61 63 65 0a 20 /C++ interface.
36d0: 20 2a 2a 20 66 75 6e 63 74 69 6f 6e 2e 20 2a 2f ** function. */
36e0: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c . sqlite3_resul
36f0: 74 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c t_int64(context,
3700: 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e sqlite3_last_in
3710: 73 65 72 74 5f 72 6f 77 69 64 28 64 62 29 29 3b sert_rowid(db));
3720: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d .}../*.** Implem
3730: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 entation of the
3740: 63 68 61 6e 67 65 73 28 29 20 53 51 4c 20 66 75 changes() SQL fu
3750: 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 49 4d nction..**.** IM
3760: 50 3a 20 52 2d 36 32 30 37 33 2d 31 31 32 30 39 P: R-62073-11209
3770: 20 54 68 65 20 63 68 61 6e 67 65 73 28 29 20 53 The changes() S
3780: 51 4c 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 QL function is a
3790: 20 77 72 61 70 70 65 72 0a 2a 2a 20 61 72 6f 75 wrapper.** arou
37a0: 6e 64 20 74 68 65 20 73 71 6c 69 74 65 33 5f 63 nd the sqlite3_c
37b0: 68 61 6e 67 65 73 28 29 20 43 2f 43 2b 2b 20 66 hanges() C/C++ f
37c0: 75 6e 63 74 69 6f 6e 20 61 6e 64 20 68 65 6e 63 unction and henc
37d0: 65 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 73 61 e follows the sa
37e0: 6d 65 0a 2a 2a 20 72 75 6c 65 73 20 66 6f 72 20 me.** rules for
37f0: 63 6f 75 6e 74 69 6e 67 20 63 68 61 6e 67 65 73 counting changes
3800: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
3810: 20 63 68 61 6e 67 65 73 28 0a 20 20 73 71 6c 69 changes(. sqli
3820: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
3830: 74 65 78 74 2c 0a 20 20 69 6e 74 20 4e 6f 74 55 text,. int NotU
3840: 73 65 64 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 sed,. sqlite3_v
3850: 61 6c 75 65 20 2a 2a 4e 6f 74 55 73 65 64 32 0a alue **NotUsed2.
3860: 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ){. sqlite3 *db
3870: 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 = sqlite3_conte
3880: 78 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e xt_db_handle(con
3890: 74 65 78 74 29 3b 0a 20 20 55 4e 55 53 45 44 5f text);. UNUSED_
38a0: 50 41 52 41 4d 45 54 45 52 32 28 4e 6f 74 55 73 PARAMETER2(NotUs
38b0: 65 64 2c 20 4e 6f 74 55 73 65 64 32 29 3b 0a 20 ed, NotUsed2);.
38c0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
38d0: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c int(context, sql
38e0: 69 74 65 33 5f 63 68 61 6e 67 65 73 28 64 62 29 ite3_changes(db)
38f0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c );.}../*.** Impl
3900: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 ementation of th
3910: 65 20 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 28 e total_changes(
3920: 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 ) SQL function.
3930: 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 The return valu
3940: 65 20 69 73 0a 2a 2a 20 74 68 65 20 73 61 6d 65 e is.** the same
3950: 20 61 73 20 74 68 65 20 73 71 6c 69 74 65 33 5f as the sqlite3_
3960: 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 28 29 20 total_changes()
3970: 41 50 49 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f API function..*/
3980: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 6f 74 .static void tot
3990: 61 6c 5f 63 68 61 6e 67 65 73 28 0a 20 20 73 71 al_changes(. sq
39a0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
39b0: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 4e 6f ontext,. int No
39c0: 74 55 73 65 64 2c 0a 20 20 73 71 6c 69 74 65 33 tUsed,. sqlite3
39d0: 5f 76 61 6c 75 65 20 2a 2a 4e 6f 74 55 73 65 64 _value **NotUsed
39e0: 32 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 2.){. sqlite3 *
39f0: 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e db = sqlite3_con
3a00: 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63 text_db_handle(c
3a10: 6f 6e 74 65 78 74 29 3b 0a 20 20 55 4e 55 53 45 ontext);. UNUSE
3a20: 44 5f 50 41 52 41 4d 45 54 45 52 32 28 4e 6f 74 D_PARAMETER2(Not
3a30: 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 32 29 3b Used, NotUsed2);
3a40: 0a 20 20 2f 2a 20 49 4d 50 3a 20 52 2d 35 32 37 . /* IMP: R-527
3a50: 35 36 2d 34 31 39 39 33 20 54 68 69 73 20 66 75 56-41993 This fu
3a60: 6e 63 74 69 6f 6e 20 69 73 20 61 20 77 72 61 70 nction is a wrap
3a70: 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 0a 20 per around the.
3a80: 20 2a 2a 20 73 71 6c 69 74 65 33 5f 74 6f 74 61 ** sqlite3_tota
3a90: 6c 5f 63 68 61 6e 67 65 73 28 29 20 43 2f 43 2b l_changes() C/C+
3aa0: 2b 20 69 6e 74 65 72 66 61 63 65 2e 20 2a 2f 0a + interface. */.
3ab0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
3ac0: 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 _int(context, sq
3ad0: 6c 69 74 65 33 5f 74 6f 74 61 6c 5f 63 68 61 6e lite3_total_chan
3ae0: 67 65 73 28 64 62 29 29 3b 0a 7d 0a 0a 2f 2a 0a ges(db));.}../*.
3af0: 2a 2a 20 41 20 73 74 72 75 63 74 75 72 65 20 64 ** A structure d
3b00: 65 66 69 6e 69 6e 67 20 68 6f 77 20 74 6f 20 64 efining how to d
3b10: 6f 20 47 4c 4f 42 2d 73 74 79 6c 65 20 63 6f 6d o GLOB-style com
3b20: 70 61 72 69 73 6f 6e 73 2e 0a 2a 2f 0a 73 74 72 parisons..*/.str
3b30: 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 uct compareInfo
3b40: 7b 0a 20 20 75 38 20 6d 61 74 63 68 41 6c 6c 3b {. u8 matchAll;
3b50: 0a 20 20 75 38 20 6d 61 74 63 68 4f 6e 65 3b 0a . u8 matchOne;.
3b60: 20 20 75 38 20 6d 61 74 63 68 53 65 74 3b 0a 20 u8 matchSet;.
3b70: 20 75 38 20 6e 6f 43 61 73 65 3b 0a 7d 3b 0a 0a u8 noCase;.};..
3b80: 2f 2a 0a 2a 2a 20 46 6f 72 20 4c 49 4b 45 20 61 /*.** For LIKE a
3b90: 6e 64 20 47 4c 4f 42 20 6d 61 74 63 68 69 6e 67 nd GLOB matching
3ba0: 20 6f 6e 20 45 42 43 44 49 43 20 6d 61 63 68 69 on EBCDIC machi
3bb0: 6e 65 73 2c 20 61 73 73 75 6d 65 20 74 68 61 74 nes, assume that
3bc0: 20 65 76 65 72 79 0a 2a 2a 20 63 68 61 72 61 63 every.** charac
3bd0: 74 65 72 20 69 73 20 65 78 61 63 74 6c 79 20 6f ter is exactly o
3be0: 6e 65 20 62 79 74 65 20 69 6e 20 73 69 7a 65 2e ne byte in size.
3bf0: 20 20 41 6c 73 6f 2c 20 61 6c 6c 20 63 68 61 72 Also, all char
3c00: 61 63 74 65 72 73 20 61 72 65 0a 2a 2a 20 61 62 acters are.** ab
3c10: 6c 65 20 74 6f 20 70 61 72 74 69 63 69 70 61 74 le to participat
3c20: 65 20 69 6e 20 75 70 70 65 72 2d 63 61 73 65 2d e in upper-case-
3c30: 74 6f 2d 6c 6f 77 65 72 2d 63 61 73 65 20 6d 61 to-lower-case ma
3c40: 70 70 69 6e 67 73 20 69 6e 20 45 42 43 44 49 43 ppings in EBCDIC
3c50: 0a 2a 2a 20 77 68 65 72 65 61 73 20 6f 6e 6c 79 .** whereas only
3c60: 20 63 68 61 72 61 63 74 65 72 73 20 6c 65 73 73 characters less
3c70: 20 74 68 61 6e 20 30 78 38 30 20 64 6f 20 69 6e than 0x80 do in
3c80: 20 41 53 43 49 49 2e 0a 2a 2f 0a 23 69 66 20 64 ASCII..*/.#if d
3c90: 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 45 42 efined(SQLITE_EB
3ca0: 43 44 49 43 29 0a 23 20 64 65 66 69 6e 65 20 73 CDIC).# define s
3cb0: 71 6c 69 74 65 33 55 74 66 38 52 65 61 64 28 41 qlite3Utf8Read(A
3cc0: 29 20 20 20 20 20 20 20 20 28 2a 28 28 2a 41 29 ) (*((*A)
3cd0: 2b 2b 29 29 0a 23 20 64 65 66 69 6e 65 20 47 6c ++)).# define Gl
3ce0: 6f 62 55 70 70 65 72 54 6f 4c 6f 77 65 72 28 41 obUpperToLower(A
3cf0: 29 20 20 20 20 20 20 20 41 20 3d 20 73 71 6c 69 ) A = sqli
3d00: 74 65 33 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b te3UpperToLower[
3d10: 41 5d 0a 23 20 64 65 66 69 6e 65 20 47 6c 6f 62 A].# define Glob
3d20: 55 70 70 65 72 54 6f 4c 6f 77 65 72 41 73 63 69 UpperToLowerAsci
3d30: 69 28 41 29 20 20 41 20 3d 20 73 71 6c 69 74 65 i(A) A = sqlite
3d40: 33 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b 41 5d 3UpperToLower[A]
3d50: 0a 23 65 6c 73 65 0a 23 20 64 65 66 69 6e 65 20 .#else.# define
3d60: 47 6c 6f 62 55 70 70 65 72 54 6f 4c 6f 77 65 72 GlobUpperToLower
3d70: 28 41 29 20 20 20 20 20 20 20 69 66 28 20 41 3c (A) if( A<
3d80: 3d 30 78 37 66 20 29 7b 20 41 20 3d 20 73 71 6c =0x7f ){ A = sql
3d90: 69 74 65 33 55 70 70 65 72 54 6f 4c 6f 77 65 72 ite3UpperToLower
3da0: 5b 41 5d 3b 20 7d 0a 23 20 64 65 66 69 6e 65 20 [A]; }.# define
3db0: 47 6c 6f 62 55 70 70 65 72 54 6f 4c 6f 77 65 72 GlobUpperToLower
3dc0: 41 73 63 69 69 28 41 29 20 20 41 20 3d 20 73 71 Ascii(A) A = sq
3dd0: 6c 69 74 65 33 55 70 70 65 72 54 6f 4c 6f 77 65 lite3UpperToLowe
3de0: 72 5b 41 5d 0a 23 65 6e 64 69 66 0a 0a 73 74 61 r[A].#endif..sta
3df0: 74 69 63 20 63 6f 6e 73 74 20 73 74 72 75 63 74 tic const struct
3e00: 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 67 6c 6f compareInfo glo
3e10: 62 49 6e 66 6f 20 3d 20 7b 20 27 2a 27 2c 20 27 bInfo = { '*', '
3e20: 3f 27 2c 20 27 5b 27 2c 20 30 20 7d 3b 0a 2f 2a ?', '[', 0 };./*
3e30: 20 54 68 65 20 63 6f 72 72 65 63 74 20 53 51 4c The correct SQL
3e40: 2d 39 32 20 62 65 68 61 76 69 6f 72 20 69 73 20 -92 behavior is
3e50: 66 6f 72 20 74 68 65 20 4c 49 4b 45 20 6f 70 65 for the LIKE ope
3e60: 72 61 74 6f 72 20 74 6f 20 69 67 6e 6f 72 65 0a rator to ignore.
3e70: 2a 2a 20 63 61 73 65 2e 20 20 54 68 75 73 20 20 ** case. Thus
3e80: 27 61 27 20 4c 49 4b 45 20 27 41 27 20 77 6f 75 'a' LIKE 'A' wou
3e90: 6c 64 20 62 65 20 74 72 75 65 2e 20 2a 2f 0a 73 ld be true. */.s
3ea0: 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74 72 75 tatic const stru
3eb0: 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 6c ct compareInfo l
3ec0: 69 6b 65 49 6e 66 6f 4e 6f 72 6d 20 3d 20 7b 20 ikeInfoNorm = {
3ed0: 27 25 27 2c 20 27 5f 27 2c 20 20 20 30 2c 20 31 '%', '_', 0, 1
3ee0: 20 7d 3b 0a 2f 2a 20 49 66 20 53 51 4c 49 54 45 };./* If SQLITE
3ef0: 5f 43 41 53 45 5f 53 45 4e 53 49 54 49 56 45 5f _CASE_SENSITIVE_
3f00: 4c 49 4b 45 20 69 73 20 64 65 66 69 6e 65 64 2c LIKE is defined,
3f10: 20 74 68 65 6e 20 74 68 65 20 4c 49 4b 45 20 6f then the LIKE o
3f20: 70 65 72 61 74 6f 72 0a 2a 2a 20 69 73 20 63 61 perator.** is ca
3f30: 73 65 20 73 65 6e 73 69 74 69 76 65 20 63 61 75 se sensitive cau
3f40: 73 69 6e 67 20 27 61 27 20 4c 49 4b 45 20 27 41 sing 'a' LIKE 'A
3f50: 27 20 74 6f 20 62 65 20 66 61 6c 73 65 20 2a 2f ' to be false */
3f60: 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74 .static const st
3f70: 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f ruct compareInfo
3f80: 20 6c 69 6b 65 49 6e 66 6f 41 6c 74 20 3d 20 7b likeInfoAlt = {
3f90: 20 27 25 27 2c 20 27 5f 27 2c 20 20 20 30 2c 20 '%', '_', 0,
3fa0: 30 20 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 0 };../*.** Comp
3fb0: 61 72 65 20 74 77 6f 20 55 54 46 2d 38 20 73 74 are two UTF-8 st
3fc0: 72 69 6e 67 73 20 66 6f 72 20 65 71 75 61 6c 69 rings for equali
3fd0: 74 79 20 77 68 65 72 65 20 74 68 65 20 66 69 72 ty where the fir
3fe0: 73 74 20 73 74 72 69 6e 67 20 63 61 6e 0a 2a 2a st string can.**
3ff0: 20 70 6f 74 65 6e 74 69 61 6c 6c 79 20 62 65 20 potentially be
4000: 61 20 22 67 6c 6f 62 22 20 65 78 70 72 65 73 73 a "glob" express
4010: 69 6f 6e 2e 20 20 52 65 74 75 72 6e 20 74 72 75 ion. Return tru
4020: 65 20 28 31 29 20 69 66 20 74 68 65 79 0a 2a 2a e (1) if they.**
4030: 20 61 72 65 20 74 68 65 20 73 61 6d 65 20 61 6e are the same an
4040: 64 20 66 61 6c 73 65 20 28 30 29 20 69 66 20 74 d false (0) if t
4050: 68 65 79 20 61 72 65 20 64 69 66 66 65 72 65 6e hey are differen
4060: 74 2e 0a 2a 2a 0a 2a 2a 20 47 6c 6f 62 62 69 6e t..**.** Globbin
4070: 67 20 72 75 6c 65 73 3a 0a 2a 2a 0a 2a 2a 20 20 g rules:.**.**
4080: 20 20 20 20 27 2a 27 20 20 20 20 20 20 20 4d 61 '*' Ma
4090: 74 63 68 65 73 20 61 6e 79 20 73 65 71 75 65 6e tches any sequen
40a0: 63 65 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6d 6f ce of zero or mo
40b0: 72 65 20 63 68 61 72 61 63 74 65 72 73 2e 0a 2a re characters..*
40c0: 2a 0a 2a 2a 20 20 20 20 20 20 27 3f 27 20 20 20 *.** '?'
40d0: 20 20 20 20 4d 61 74 63 68 65 73 20 65 78 61 63 Matches exac
40e0: 74 6c 79 20 6f 6e 65 20 63 68 61 72 61 63 74 65 tly one characte
40f0: 72 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 5b 2e 2e r..**.** [..
4100: 2e 5d 20 20 20 20 20 20 4d 61 74 63 68 65 73 20 .] Matches
4110: 6f 6e 65 20 63 68 61 72 61 63 74 65 72 20 66 72 one character fr
4120: 6f 6d 20 74 68 65 20 65 6e 63 6c 6f 73 65 64 20 om the enclosed
4130: 6c 69 73 74 20 6f 66 0a 2a 2a 20 20 20 20 20 20 list of.**
4140: 20 20 20 20 20 20 20 20 20 20 63 68 61 72 61 63 charac
4150: 74 65 72 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 ters..**.**
4160: 5b 5e 2e 2e 2e 5d 20 20 20 20 20 4d 61 74 63 68 [^...] Match
4170: 65 73 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72 es one character
4180: 20 6e 6f 74 20 69 6e 20 74 68 65 20 65 6e 63 6c not in the encl
4190: 6f 73 65 64 20 6c 69 73 74 2e 0a 2a 2a 0a 2a 2a osed list..**.**
41a0: 20 57 69 74 68 20 74 68 65 20 5b 2e 2e 2e 5d 20 With the [...]
41b0: 61 6e 64 20 5b 5e 2e 2e 2e 5d 20 6d 61 74 63 68 and [^...] match
41c0: 69 6e 67 2c 20 61 20 27 5d 27 20 63 68 61 72 61 ing, a ']' chara
41d0: 63 74 65 72 20 63 61 6e 20 62 65 20 69 6e 63 6c cter can be incl
41e0: 75 64 65 64 0a 2a 2a 20 69 6e 20 74 68 65 20 6c uded.** in the l
41f0: 69 73 74 20 62 79 20 6d 61 6b 69 6e 67 20 69 74 ist by making it
4200: 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61 the first chara
4210: 63 74 65 72 20 61 66 74 65 72 20 27 5b 27 20 6f cter after '[' o
4220: 72 20 27 5e 27 2e 20 20 41 0a 2a 2a 20 72 61 6e r '^'. A.** ran
4230: 67 65 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 ge of characters
4240: 20 63 61 6e 20 62 65 20 73 70 65 63 69 66 69 65 can be specifie
4250: 64 20 75 73 69 6e 67 20 27 2d 27 2e 20 20 45 78 d using '-'. Ex
4260: 61 6d 70 6c 65 3a 0a 2a 2a 20 22 5b 61 2d 7a 5d ample:.** "[a-z]
4270: 22 20 6d 61 74 63 68 65 73 20 61 6e 79 20 73 69 " matches any si
4280: 6e 67 6c 65 20 6c 6f 77 65 72 2d 63 61 73 65 20 ngle lower-case
4290: 6c 65 74 74 65 72 2e 20 20 54 6f 20 6d 61 74 63 letter. To matc
42a0: 68 20 61 20 27 2d 27 2c 20 6d 61 6b 65 0a 2a 2a h a '-', make.**
42b0: 20 69 74 20 74 68 65 20 6c 61 73 74 20 63 68 61 it the last cha
42c0: 72 61 63 74 65 72 20 69 6e 20 74 68 65 20 6c 69 racter in the li
42d0: 73 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 st..**.** This r
42e0: 6f 75 74 69 6e 65 20 69 73 20 75 73 75 61 6c 6c outine is usuall
42f0: 79 20 71 75 69 63 6b 2c 20 62 75 74 20 63 61 6e y quick, but can
4300: 20 62 65 20 4e 2a 2a 32 20 69 6e 20 74 68 65 20 be N**2 in the
4310: 77 6f 72 73 74 20 63 61 73 65 2e 0a 2a 2a 0a 2a worst case..**.*
4320: 2a 20 48 69 6e 74 73 3a 20 74 6f 20 6d 61 74 63 * Hints: to matc
4330: 68 20 27 2a 27 20 6f 72 20 27 3f 27 2c 20 70 75 h '*' or '?', pu
4340: 74 20 74 68 65 6d 20 69 6e 20 22 5b 5d 22 2e 20 t them in "[]".
4350: 20 4c 69 6b 65 20 74 68 69 73 3a 0a 2a 2a 0a 2a Like this:.**.*
4360: 2a 20 20 20 20 20 20 20 20 20 61 62 63 5b 2a 5d * abc[*]
4370: 78 79 7a 20 20 20 20 20 20 20 20 4d 61 74 63 68 xyz Match
4380: 65 73 20 22 61 62 63 2a 78 79 7a 22 20 6f 6e 6c es "abc*xyz" onl
4390: 79 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 y.*/.static int
43a0: 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 0a patternCompare(.
43b0: 20 20 63 6f 6e 73 74 20 75 38 20 2a 7a 50 61 74 const u8 *zPat
43c0: 74 65 72 6e 2c 20 20 20 20 20 20 20 20 20 20 20 tern,
43d0: 20 20 20 2f 2a 20 54 68 65 20 67 6c 6f 62 20 70 /* The glob p
43e0: 61 74 74 65 72 6e 20 2a 2f 0a 20 20 63 6f 6e 73 attern */. cons
43f0: 74 20 75 38 20 2a 7a 53 74 72 69 6e 67 2c 20 20 t u8 *zString,
4400: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
4410: 54 68 65 20 73 74 72 69 6e 67 20 74 6f 20 63 6f The string to co
4420: 6d 70 61 72 65 20 61 67 61 69 6e 73 74 20 74 68 mpare against th
4430: 65 20 67 6c 6f 62 20 2a 2f 0a 20 20 63 6f 6e 73 e glob */. cons
4440: 74 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 t struct compare
4450: 49 6e 66 6f 20 2a 70 49 6e 66 6f 2c 20 2f 2a 20 Info *pInfo, /*
4460: 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 Information abou
4470: 74 20 68 6f 77 20 74 6f 20 64 6f 20 74 68 65 20 t how to do the
4480: 63 6f 6d 70 61 72 65 20 2a 2f 0a 20 20 75 33 32 compare */. u32
4490: 20 65 73 63 20 20 20 20 20 20 20 20 20 20 20 20 esc
44a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
44b0: 20 54 68 65 20 65 73 63 61 70 65 20 63 68 61 72 The escape char
44c0: 61 63 74 65 72 20 2a 2f 0a 29 7b 0a 20 20 75 33 acter */.){. u3
44d0: 32 20 63 2c 20 63 32 3b 0a 20 20 69 6e 74 20 69 2 c, c2;. int i
44e0: 6e 76 65 72 74 3b 0a 20 20 69 6e 74 20 73 65 65 nvert;. int see
44f0: 6e 3b 0a 20 20 75 33 32 20 6d 61 74 63 68 4f 6e n;. u32 matchOn
4500: 65 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 e = pInfo->match
4510: 4f 6e 65 3b 0a 20 20 75 33 32 20 6d 61 74 63 68 One;. u32 match
4520: 41 6c 6c 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 All = pInfo->mat
4530: 63 68 41 6c 6c 3b 0a 20 20 75 33 32 20 6d 61 74 chAll;. u32 mat
4540: 63 68 4f 74 68 65 72 3b 0a 20 20 75 38 20 6e 6f chOther;. u8 no
4550: 43 61 73 65 20 3d 20 70 49 6e 66 6f 2d 3e 6e 6f Case = pInfo->no
4560: 43 61 73 65 3b 0a 20 20 0a 20 20 2f 2a 20 54 68 Case;. . /* Th
4570: 65 20 47 4c 4f 42 20 6f 70 65 72 61 74 6f 72 20 e GLOB operator
4580: 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 61 6e does not have an
4590: 20 45 53 43 41 50 45 20 63 6c 61 75 73 65 2e 20 ESCAPE clause.
45a0: 20 41 6e 64 20 4c 49 4b 45 20 64 6f 65 73 20 6e And LIKE does n
45b0: 6f 74 0a 20 20 2a 2a 20 68 61 76 65 20 74 68 65 ot. ** have the
45c0: 20 6d 61 74 63 68 53 65 74 20 6f 70 65 72 61 74 matchSet operat
45d0: 6f 72 2e 20 20 53 6f 20 77 65 20 65 69 74 68 65 or. So we eithe
45e0: 72 20 68 61 76 65 20 74 6f 20 6c 6f 6f 6b 20 66 r have to look f
45f0: 6f 72 20 6f 6e 65 20 6f 72 0a 20 20 2a 2a 20 74 or one or. ** t
4600: 68 65 20 6f 74 68 65 72 2c 20 6e 65 76 65 72 20 he other, never
4610: 62 6f 74 68 2e 20 20 48 65 6e 63 65 20 74 68 65 both. Hence the
4620: 20 73 69 6e 67 6c 65 20 76 61 72 69 61 62 6c 65 single variable
4630: 20 6d 61 74 63 68 4f 74 68 65 72 20 69 73 20 75 matchOther is u
4640: 73 65 64 0a 20 20 2a 2a 20 74 6f 20 73 74 6f 72 sed. ** to stor
4650: 65 20 74 68 65 20 6f 6e 65 20 77 65 20 68 61 76 e the one we hav
4660: 65 20 74 6f 20 6c 6f 6f 6b 20 66 6f 72 2e 0a 20 e to look for..
4670: 20 2a 2f 0a 20 20 6d 61 74 63 68 4f 74 68 65 72 */. matchOther
4680: 20 3d 20 65 73 63 20 3f 20 65 73 63 20 3a 20 70 = esc ? esc : p
4690: 49 6e 66 6f 2d 3e 6d 61 74 63 68 53 65 74 3b 0a Info->matchSet;.
46a0: 0a 20 20 77 68 69 6c 65 28 20 28 63 20 3d 20 73 . while( (c = s
46b0: 71 6c 69 74 65 33 55 74 66 38 52 65 61 64 28 26 qlite3Utf8Read(&
46c0: 7a 50 61 74 74 65 72 6e 29 29 21 3d 30 20 29 7b zPattern))!=0 ){
46d0: 0a 20 20 20 20 69 66 28 20 63 3d 3d 6d 61 74 63 . if( c==matc
46e0: 68 41 6c 6c 20 29 7b 0a 20 20 20 20 20 20 77 68 hAll ){. wh
46f0: 69 6c 65 28 20 28 63 3d 73 71 6c 69 74 65 33 55 ile( (c=sqlite3U
4700: 74 66 38 52 65 61 64 28 26 7a 50 61 74 74 65 72 tf8Read(&zPatter
4710: 6e 29 29 20 3d 3d 20 6d 61 74 63 68 41 6c 6c 0a n)) == matchAll.
4720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c |
4730: 7c 20 63 20 3d 3d 20 6d 61 74 63 68 4f 6e 65 20 | c == matchOne
4740: 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 ){. if( c
4750: 3d 3d 6d 61 74 63 68 4f 6e 65 20 26 26 20 73 71 ==matchOne && sq
4760: 6c 69 74 65 33 55 74 66 38 52 65 61 64 28 26 7a lite3Utf8Read(&z
4770: 53 74 72 69 6e 67 29 3d 3d 30 20 29 7b 0a 20 20 String)==0 ){.
4780: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 30 return 0
4790: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
47a0: 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 63 3d }. if( c=
47b0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65 =0 ){. re
47c0: 74 75 72 6e 20 31 3b 0a 20 20 20 20 20 20 7d 65 turn 1;. }e
47d0: 6c 73 65 20 69 66 28 20 63 3d 3d 6d 61 74 63 68 lse if( c==match
47e0: 4f 74 68 65 72 20 29 7b 0a 20 20 20 20 20 20 20 Other ){.
47f0: 20 69 66 28 20 65 73 63 20 29 7b 0a 20 20 20 20 if( esc ){.
4800: 20 20 20 20 20 20 63 20 3d 20 73 71 6c 69 74 65 c = sqlite
4810: 33 55 74 66 38 52 65 61 64 28 26 7a 50 61 74 74 3Utf8Read(&zPatt
4820: 65 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ern);.
4830: 69 66 28 20 63 3d 3d 30 20 29 20 72 65 74 75 72 if( c==0 ) retur
4840: 6e 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c n 0;. }el
4850: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 61 73 se{. as
4860: 73 65 72 74 28 20 6d 61 74 63 68 4f 74 68 65 72 sert( matchOther
4870: 3c 30 78 38 30 20 29 3b 20 20 2f 2a 20 27 5b 27 <0x80 ); /* '['
4880: 20 69 73 20 61 20 73 69 6e 67 6c 65 2d 62 79 74 is a single-byt
4890: 65 20 63 68 61 72 61 63 74 65 72 20 2a 2f 0a 20 e character */.
48a0: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 while(
48b0: 2a 7a 53 74 72 69 6e 67 0a 20 20 20 20 20 20 20 *zString.
48c0: 20 20 20 20 20 20 20 20 20 20 26 26 20 70 61 74 && pat
48d0: 74 65 72 6e 43 6f 6d 70 61 72 65 28 26 7a 50 61 ternCompare(&zPa
48e0: 74 74 65 72 6e 5b 2d 31 5d 2c 7a 53 74 72 69 6e ttern[-1],zStrin
48f0: 67 2c 70 49 6e 66 6f 2c 65 73 63 29 3d 3d 30 20 g,pInfo,esc)==0
4900: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 ){. S
4910: 51 4c 49 54 45 5f 53 4b 49 50 5f 55 54 46 38 28 QLITE_SKIP_UTF8(
4920: 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 20 zString);.
4930: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 }.
4940: 72 65 74 75 72 6e 20 2a 7a 53 74 72 69 6e 67 21 return *zString!
4950: 3d 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 =0;. }.
4960: 20 20 20 20 7d 0a 20 20 20 20 20 20 77 68 69 6c }. whil
4970: 65 28 20 28 63 32 20 3d 20 73 71 6c 69 74 65 33 e( (c2 = sqlite3
4980: 55 74 66 38 52 65 61 64 28 26 7a 53 74 72 69 6e Utf8Read(&zStrin
4990: 67 29 29 21 3d 30 20 29 7b 0a 20 20 20 20 20 20 g))!=0 ){.
49a0: 20 20 69 66 28 20 6e 6f 43 61 73 65 20 26 26 20 if( noCase &&
49b0: 63 3c 30 78 38 30 20 29 7b 0a 20 20 20 20 20 20 c<0x80 ){.
49c0: 20 20 20 20 47 6c 6f 62 55 70 70 65 72 54 6f 4c GlobUpperToL
49d0: 6f 77 65 72 28 63 32 29 3b 0a 20 20 20 20 20 20 ower(c2);.
49e0: 20 20 20 20 47 6c 6f 62 55 70 70 65 72 54 6f 4c GlobUpperToL
49f0: 6f 77 65 72 41 73 63 69 69 28 63 29 3b 0a 20 20 owerAscii(c);.
4a00: 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 63 while( c
4a10: 32 20 21 3d 20 30 20 26 26 20 63 32 20 21 3d 20 2 != 0 && c2 !=
4a20: 63 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 c ){.
4a30: 20 64 6f 7b 20 63 32 20 3d 20 2a 28 7a 53 74 72 do{ c2 = *(zStr
4a40: 69 6e 67 2b 2b 29 3b 20 7d 77 68 69 6c 65 28 20 ing++); }while(
4a50: 63 32 3e 30 78 37 66 20 29 3b 0a 20 20 20 20 20 c2>0x7f );.
4a60: 20 20 20 20 20 20 20 47 6c 6f 62 55 70 70 65 72 GlobUpper
4a70: 54 6f 4c 6f 77 65 72 41 73 63 69 69 28 63 32 29 ToLowerAscii(c2)
4a80: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 ;. }.
4a90: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 }else{.
4aa0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 63 32 while( c2
4ab0: 20 21 3d 20 30 20 26 26 20 63 32 20 21 3d 20 63 != 0 && c2 != c
4ac0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ){.
4ad0: 63 32 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38 c2 = sqlite3Utf8
4ae0: 52 65 61 64 28 26 7a 53 74 72 69 6e 67 29 3b 0a Read(&zString);.
4af0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }.
4b00: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 }. if
4b10: 28 20 63 32 3d 3d 30 20 29 20 72 65 74 75 72 6e ( c2==0 ) return
4b20: 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 0;. if(
4b30: 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 7a patternCompare(z
4b40: 50 61 74 74 65 72 6e 2c 7a 53 74 72 69 6e 67 2c Pattern,zString,
4b50: 70 49 6e 66 6f 2c 65 73 63 29 20 29 20 72 65 74 pInfo,esc) ) ret
4b60: 75 72 6e 20 31 3b 0a 20 20 20 20 20 20 7d 0a 20 urn 1;. }.
4b70: 20 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 return 0;.
4b80: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 63 3d 3d }. if( c==
4b90: 6d 61 74 63 68 4f 6e 65 20 29 7b 0a 20 20 20 20 matchOne ){.
4ba0: 20 20 69 66 28 20 73 71 6c 69 74 65 33 55 74 66 if( sqlite3Utf
4bb0: 38 52 65 61 64 28 26 7a 53 74 72 69 6e 67 29 3d 8Read(&zString)=
4bc0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65 =0 ){. re
4bd0: 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 7d 65 turn 0;. }e
4be0: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 63 6f 6e lse{. con
4bf0: 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 7d 0a 20 tinue;. }.
4c00: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 63 3d 3d }. if( c==
4c10: 6d 61 74 63 68 4f 74 68 65 72 20 29 7b 0a 20 20 matchOther ){.
4c20: 20 20 20 20 69 66 28 20 65 73 63 20 29 7b 0a 20 if( esc ){.
4c30: 20 20 20 20 20 20 20 63 20 3d 20 73 71 6c 69 74 c = sqlit
4c40: 65 33 55 74 66 38 52 65 61 64 28 26 7a 50 61 74 e3Utf8Read(&zPat
4c50: 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 69 tern);. i
4c60: 66 28 20 63 3d 3d 30 20 29 20 72 65 74 75 72 6e f( c==0 ) return
4c70: 20 30 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0;. }else{
4c80: 0a 20 20 20 20 20 20 20 20 75 33 32 20 70 72 69 . u32 pri
4c90: 6f 72 5f 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 or_c = 0;.
4ca0: 20 20 73 65 65 6e 20 3d 20 30 3b 0a 20 20 20 20 seen = 0;.
4cb0: 20 20 20 20 69 6e 76 65 72 74 20 3d 20 30 3b 0a invert = 0;.
4cc0: 20 20 20 20 20 20 20 20 63 20 3d 20 73 71 6c 69 c = sqli
4cd0: 74 65 33 55 74 66 38 52 65 61 64 28 26 7a 53 74 te3Utf8Read(&zSt
4ce0: 72 69 6e 67 29 3b 0a 20 20 20 20 20 20 20 20 69 ring);. i
4cf0: 66 28 20 63 3d 3d 30 20 29 20 72 65 74 75 72 6e f( c==0 ) return
4d00: 20 30 3b 0a 20 20 20 20 20 20 20 20 63 32 20 3d 0;. c2 =
4d10: 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64 sqlite3Utf8Read
4d20: 28 26 7a 50 61 74 74 65 72 6e 29 3b 0a 20 20 20 (&zPattern);.
4d30: 20 20 20 20 20 69 66 28 20 63 32 3d 3d 27 5e 27 if( c2=='^'
4d40: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 6e ){. in
4d50: 76 65 72 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 vert = 1;.
4d60: 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74 65 33 c2 = sqlite3
4d70: 55 74 66 38 52 65 61 64 28 26 7a 50 61 74 74 65 Utf8Read(&zPatte
4d80: 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 rn);. }.
4d90: 20 20 20 20 20 20 20 69 66 28 20 63 32 3d 3d 27 if( c2=='
4da0: 5d 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 ]' ){.
4db0: 69 66 28 20 63 3d 3d 27 5d 27 20 29 20 73 65 65 if( c==']' ) see
4dc0: 6e 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 n = 1;.
4dd0: 20 63 32 20 3d 20 73 71 6c 69 74 65 33 55 74 66 c2 = sqlite3Utf
4de0: 38 52 65 61 64 28 26 7a 50 61 74 74 65 72 6e 29 8Read(&zPattern)
4df0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
4e00: 20 20 20 20 77 68 69 6c 65 28 20 63 32 20 26 26 while( c2 &&
4e10: 20 63 32 21 3d 27 5d 27 20 29 7b 0a 20 20 20 20 c2!=']' ){.
4e20: 20 20 20 20 20 20 69 66 28 20 63 32 3d 3d 27 2d if( c2=='-
4e30: 27 20 26 26 20 7a 50 61 74 74 65 72 6e 5b 30 5d ' && zPattern[0]
4e40: 21 3d 27 5d 27 20 26 26 20 7a 50 61 74 74 65 72 !=']' && zPatter
4e50: 6e 5b 30 5d 21 3d 30 20 26 26 20 70 72 69 6f 72 n[0]!=0 && prior
4e60: 5f 63 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 _c>0 ){.
4e70: 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74 65 33 c2 = sqlite3
4e80: 55 74 66 38 52 65 61 64 28 26 7a 50 61 74 74 65 Utf8Read(&zPatte
4e90: 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 rn);.
4ea0: 20 69 66 28 20 63 3e 3d 70 72 69 6f 72 5f 63 20 if( c>=prior_c
4eb0: 26 26 20 63 3c 3d 63 32 20 29 20 73 65 65 6e 20 && c<=c2 ) seen
4ec0: 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 = 1;.
4ed0: 20 70 72 69 6f 72 5f 63 20 3d 20 30 3b 0a 20 20 prior_c = 0;.
4ee0: 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 }else{.
4ef0: 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20 63 if( c
4f00: 3d 3d 63 32 20 29 7b 0a 20 20 20 20 20 20 20 20 ==c2 ){.
4f10: 20 20 20 20 20 20 73 65 65 6e 20 3d 20 31 3b 0a seen = 1;.
4f20: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 }.
4f30: 20 20 20 20 20 20 20 20 20 20 70 72 69 6f 72 5f prior_
4f40: 63 20 3d 20 63 32 3b 0a 20 20 20 20 20 20 20 20 c = c2;.
4f50: 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 63 32 }. c2
4f60: 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 = sqlite3Utf8Re
4f70: 61 64 28 26 7a 50 61 74 74 65 72 6e 29 3b 0a 20 ad(&zPattern);.
4f80: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
4f90: 20 69 66 28 20 63 32 3d 3d 30 20 7c 7c 20 28 73 if( c2==0 || (s
4fa0: 65 65 6e 20 5e 20 69 6e 76 65 72 74 29 3d 3d 30 een ^ invert)==0
4fb0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 ){. re
4fc0: 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 20 20 turn 0;.
4fd0: 7d 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 69 6e }. contin
4fe0: 75 65 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 ue;. }.
4ff0: 7d 0a 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74 }. c2 = sqlit
5000: 65 33 55 74 66 38 52 65 61 64 28 26 7a 53 74 72 e3Utf8Read(&zStr
5010: 69 6e 67 29 3b 0a 20 20 20 20 69 66 28 20 63 3d ing);. if( c=
5020: 3d 63 32 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a =c2 ) continue;.
5030: 20 20 20 20 69 66 28 20 21 6e 6f 43 61 73 65 20 if( !noCase
5040: 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ) return 0;.
5050: 47 6c 6f 62 55 70 70 65 72 54 6f 4c 6f 77 65 72 GlobUpperToLower
5060: 28 63 29 3b 0a 20 20 20 20 47 6c 6f 62 55 70 70 (c);. GlobUpp
5070: 65 72 54 6f 4c 6f 77 65 72 28 63 32 29 3b 0a 20 erToLower(c2);.
5080: 20 20 20 69 66 28 20 63 21 3d 63 32 20 29 20 72 if( c!=c2 ) r
5090: 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 72 eturn 0;. }. r
50a0: 65 74 75 72 6e 20 2a 7a 53 74 72 69 6e 67 3d 3d eturn *zString==
50b0: 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 0;.}../*.** The
50c0: 73 71 6c 69 74 65 33 5f 73 74 72 67 6c 6f 62 28 sqlite3_strglob(
50d0: 29 20 69 6e 74 65 72 66 61 63 65 2e 0a 2a 2f 0a ) interface..*/.
50e0: 69 6e 74 20 73 71 6c 69 74 65 33 5f 73 74 72 67 int sqlite3_strg
50f0: 6c 6f 62 28 63 6f 6e 73 74 20 63 68 61 72 20 2a lob(const char *
5100: 7a 47 6c 6f 62 50 61 74 74 65 72 6e 2c 20 63 6f zGlobPattern, co
5110: 6e 73 74 20 63 68 61 72 20 2a 7a 53 74 72 69 6e nst char *zStrin
5120: 67 29 7b 0a 20 20 72 65 74 75 72 6e 20 70 61 74 g){. return pat
5130: 74 65 72 6e 43 6f 6d 70 61 72 65 28 28 75 38 2a ternCompare((u8*
5140: 29 7a 47 6c 6f 62 50 61 74 74 65 72 6e 2c 20 28 )zGlobPattern, (
5150: 75 38 2a 29 7a 53 74 72 69 6e 67 2c 20 26 67 6c u8*)zString, &gl
5160: 6f 62 49 6e 66 6f 2c 20 30 29 3d 3d 30 3b 0a 7d obInfo, 0)==0;.}
5170: 0a 0a 2f 2a 0a 2a 2a 20 43 6f 75 6e 74 20 74 68 ../*.** Count th
5180: 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 69 6d 65 e number of time
5190: 73 20 74 68 61 74 20 74 68 65 20 4c 49 4b 45 20 s that the LIKE
51a0: 6f 70 65 72 61 74 6f 72 20 28 6f 72 20 47 4c 4f operator (or GLO
51b0: 42 20 77 68 69 63 68 20 69 73 0a 2a 2a 20 6a 75 B which is.** ju
51c0: 73 74 20 61 20 76 61 72 69 61 74 69 6f 6e 20 6f st a variation o
51d0: 66 20 4c 49 4b 45 29 20 67 65 74 73 20 63 61 6c f LIKE) gets cal
51e0: 6c 65 64 2e 20 20 54 68 69 73 20 69 73 20 75 73 led. This is us
51f0: 65 64 20 66 6f 72 20 74 65 73 74 69 6e 67 0a 2a ed for testing.*
5200: 2a 20 6f 6e 6c 79 2e 0a 2a 2f 0a 23 69 66 64 65 * only..*/.#ifde
5210: 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 69 6e f SQLITE_TEST.in
5220: 74 20 73 71 6c 69 74 65 33 5f 6c 69 6b 65 5f 63 t sqlite3_like_c
5230: 6f 75 6e 74 20 3d 20 30 3b 0a 23 65 6e 64 69 66 ount = 0;.#endif
5240: 0a 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 .../*.** Impleme
5250: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c ntation of the l
5260: 69 6b 65 28 29 20 53 51 4c 20 66 75 6e 63 74 69 ike() SQL functi
5270: 6f 6e 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 on. This functi
5280: 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74 73 0a 2a 2a on implements.**
5290: 20 74 68 65 20 62 75 69 6c 64 2d 69 6e 20 4c 49 the build-in LI
52a0: 4b 45 20 6f 70 65 72 61 74 6f 72 2e 20 20 54 68 KE operator. Th
52b0: 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 e first argument
52c0: 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e to the function
52d0: 20 69 73 20 74 68 65 0a 2a 2a 20 70 61 74 74 65 is the.** patte
52e0: 72 6e 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e rn and the secon
52f0: 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74 68 d argument is th
5300: 65 20 73 74 72 69 6e 67 2e 20 20 53 6f 2c 20 74 e string. So, t
5310: 68 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 he SQL statement
5320: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 41 s:.**.** A
5330: 20 4c 49 4b 45 20 42 0a 2a 2a 0a 2a 2a 20 69 73 LIKE B.**.** is
5340: 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 61 73 20 implemented as
5350: 6c 69 6b 65 28 42 2c 41 29 2e 0a 2a 2a 0a 2a 2a like(B,A)..**.**
5360: 20 54 68 69 73 20 73 61 6d 65 20 66 75 6e 63 74 This same funct
5370: 69 6f 6e 20 28 77 69 74 68 20 61 20 64 69 66 66 ion (with a diff
5380: 65 72 65 6e 74 20 63 6f 6d 70 61 72 65 49 6e 66 erent compareInf
5390: 6f 20 73 74 72 75 63 74 75 72 65 29 20 63 6f 6d o structure) com
53a0: 70 75 74 65 73 0a 2a 2a 20 74 68 65 20 47 4c 4f putes.** the GLO
53b0: 42 20 6f 70 65 72 61 74 6f 72 2e 0a 2a 2f 0a 73 B operator..*/.s
53c0: 74 61 74 69 63 20 76 6f 69 64 20 6c 69 6b 65 46 tatic void likeF
53d0: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 unc(. sqlite3_c
53e0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
53f0: 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 . int argc, .
5400: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
5410: 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 *argv.){. const
5420: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
5430: 7a 41 2c 20 2a 7a 42 3b 0a 20 20 75 33 32 20 65 zA, *zB;. u32 e
5440: 73 63 61 70 65 20 3d 20 30 3b 0a 20 20 69 6e 74 scape = 0;. int
5450: 20 6e 50 61 74 3b 0a 20 20 73 71 6c 69 74 65 33 nPat;. sqlite3
5460: 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 *db = sqlite3_c
5470: 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 ontext_db_handle
5480: 28 63 6f 6e 74 65 78 74 29 3b 0a 0a 20 20 7a 42 (context);.. zB
5490: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
54a0: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a _text(argv[0]);.
54b0: 20 20 7a 41 20 3d 20 73 71 6c 69 74 65 33 5f 76 zA = sqlite3_v
54c0: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31 alue_text(argv[1
54d0: 5d 29 3b 0a 0a 20 20 2f 2a 20 4c 69 6d 69 74 20 ]);.. /* Limit
54e0: 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 the length of th
54f0: 65 20 4c 49 4b 45 20 6f 72 20 47 4c 4f 42 20 70 e LIKE or GLOB p
5500: 61 74 74 65 72 6e 20 74 6f 20 61 76 6f 69 64 20 attern to avoid
5510: 70 72 6f 62 6c 65 6d 73 0a 20 20 2a 2a 20 6f 66 problems. ** of
5520: 20 64 65 65 70 20 72 65 63 75 72 73 69 6f 6e 20 deep recursion
5530: 61 6e 64 20 4e 2a 4e 20 62 65 68 61 76 69 6f 72 and N*N behavior
5540: 20 69 6e 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 in patternCompa
5550: 72 65 28 29 2e 0a 20 20 2a 2f 0a 20 20 6e 50 61 re().. */. nPa
5560: 74 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 t = sqlite3_valu
5570: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 e_bytes(argv[0])
5580: 3b 0a 20 20 74 65 73 74 63 61 73 65 28 20 6e 50 ;. testcase( nP
5590: 61 74 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 at==db->aLimit[S
55a0: 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 49 4b 45 QLITE_LIMIT_LIKE
55b0: 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47 54 48 5d _PATTERN_LENGTH]
55c0: 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 28 20 );. testcase(
55d0: 6e 50 61 74 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74 nPat==db->aLimit
55e0: 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 49 [SQLITE_LIMIT_LI
55f0: 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47 54 KE_PATTERN_LENGT
5600: 48 5d 2b 31 20 29 3b 0a 20 20 69 66 28 20 6e 50 H]+1 );. if( nP
5610: 61 74 20 3e 20 64 62 2d 3e 61 4c 69 6d 69 74 5b at > db->aLimit[
5620: 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 49 4b SQLITE_LIMIT_LIK
5630: 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47 54 48 E_PATTERN_LENGTH
5640: 5d 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 ] ){. sqlite3
5650: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f _result_error(co
5660: 6e 74 65 78 74 2c 20 22 4c 49 4b 45 20 6f 72 20 ntext, "LIKE or
5670: 47 4c 4f 42 20 70 61 74 74 65 72 6e 20 74 6f 6f GLOB pattern too
5680: 20 63 6f 6d 70 6c 65 78 22 2c 20 2d 31 29 3b 0a complex", -1);.
5690: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a return;. }.
56a0: 20 20 61 73 73 65 72 74 28 20 7a 42 3d 3d 73 71 assert( zB==sq
56b0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
56c0: 28 61 72 67 76 5b 30 5d 29 20 29 3b 20 20 2f 2a (argv[0]) ); /*
56d0: 20 45 6e 63 6f 64 69 6e 67 20 64 69 64 20 6e 6f Encoding did no
56e0: 74 20 63 68 61 6e 67 65 20 2a 2f 0a 0a 20 20 69 t change */.. i
56f0: 66 28 20 61 72 67 63 3d 3d 33 20 29 7b 0a 20 20 f( argc==3 ){.
5700: 20 20 2f 2a 20 54 68 65 20 65 73 63 61 70 65 20 /* The escape
5710: 63 68 61 72 61 63 74 65 72 20 73 74 72 69 6e 67 character string
5720: 20 6d 75 73 74 20 63 6f 6e 73 69 73 74 20 6f 66 must consist of
5730: 20 61 20 73 69 6e 67 6c 65 20 55 54 46 2d 38 20 a single UTF-8
5740: 63 68 61 72 61 63 74 65 72 2e 0a 20 20 20 20 2a character.. *
5750: 2a 20 4f 74 68 65 72 77 69 73 65 2c 20 72 65 74 * Otherwise, ret
5760: 75 72 6e 20 61 6e 20 65 72 72 6f 72 2e 0a 20 20 urn an error..
5770: 20 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 75 */. const u
5780: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 45 nsigned char *zE
5790: 73 63 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c sc = sqlite3_val
57a0: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 32 5d 29 ue_text(argv[2])
57b0: 3b 0a 20 20 20 20 69 66 28 20 7a 45 73 63 3d 3d ;. if( zEsc==
57c0: 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 0 ) return;.
57d0: 69 66 28 20 73 71 6c 69 74 65 33 55 74 66 38 43 if( sqlite3Utf8C
57e0: 68 61 72 4c 65 6e 28 28 63 68 61 72 2a 29 7a 45 harLen((char*)zE
57f0: 73 63 2c 20 2d 31 29 21 3d 31 20 29 7b 0a 20 20 sc, -1)!=1 ){.
5800: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
5810: 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 lt_error(context
5820: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 22 45 53 , . "ES
5830: 43 41 50 45 20 65 78 70 72 65 73 73 69 6f 6e 20 CAPE expression
5840: 6d 75 73 74 20 62 65 20 61 20 73 69 6e 67 6c 65 must be a single
5850: 20 63 68 61 72 61 63 74 65 72 22 2c 20 2d 31 29 character", -1)
5860: 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a ;. return;.
5870: 20 20 20 20 7d 0a 20 20 20 20 65 73 63 61 70 65 }. escape
5880: 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 = sqlite3Utf8Re
5890: 61 64 28 26 7a 45 73 63 29 3b 0a 20 20 7d 0a 20 ad(&zEsc);. }.
58a0: 20 69 66 28 20 7a 41 20 26 26 20 7a 42 20 29 7b if( zA && zB ){
58b0: 0a 20 20 20 20 73 74 72 75 63 74 20 63 6f 6d 70 . struct comp
58c0: 61 72 65 49 6e 66 6f 20 2a 70 49 6e 66 6f 20 3d areInfo *pInfo =
58d0: 20 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 sqlite3_user_da
58e0: 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a 23 69 66 ta(context);.#if
58f0: 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a def SQLITE_TEST.
5900: 20 20 20 20 73 71 6c 69 74 65 33 5f 6c 69 6b 65 sqlite3_like
5910: 5f 63 6f 75 6e 74 2b 2b 3b 0a 23 65 6e 64 69 66 _count++;.#endif
5920: 0a 20 20 20 20 0a 20 20 20 20 73 71 6c 69 74 65 . . sqlite
5930: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 3_result_int(con
5940: 74 65 78 74 2c 20 70 61 74 74 65 72 6e 43 6f 6d text, patternCom
5950: 70 61 72 65 28 7a 42 2c 20 7a 41 2c 20 70 49 6e pare(zB, zA, pIn
5960: 66 6f 2c 20 65 73 63 61 70 65 29 29 3b 0a 20 20 fo, escape));.
5970: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 }.}../*.** Imple
5980: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 mentation of the
5990: 20 4e 55 4c 4c 49 46 28 78 2c 79 29 20 66 75 6e NULLIF(x,y) fun
59a0: 63 74 69 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 ction. The resu
59b0: 6c 74 20 69 73 20 74 68 65 20 66 69 72 73 74 0a lt is the first.
59c0: 2a 2a 20 61 72 67 75 6d 65 6e 74 20 69 66 20 74 ** argument if t
59d0: 68 65 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 he arguments are
59e0: 20 64 69 66 66 65 72 65 6e 74 2e 20 20 54 68 65 different. The
59f0: 20 72 65 73 75 6c 74 20 69 73 20 4e 55 4c 4c 20 result is NULL
5a00: 69 66 20 74 68 65 0a 2a 2a 20 61 72 67 75 6d 65 if the.** argume
5a10: 6e 74 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f nts are equal to
5a20: 20 65 61 63 68 20 6f 74 68 65 72 2e 0a 2a 2f 0a each other..*/.
5a30: 73 74 61 74 69 63 20 76 6f 69 64 20 6e 75 6c 6c static void null
5a40: 69 66 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 ifFunc(. sqlite
5a50: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
5a60: 78 74 2c 0a 20 20 69 6e 74 20 4e 6f 74 55 73 65 xt,. int NotUse
5a70: 64 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c d,. sqlite3_val
5a80: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 43 ue **argv.){. C
5a90: 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 ollSeq *pColl =
5aa0: 73 71 6c 69 74 65 33 47 65 74 46 75 6e 63 43 6f sqlite3GetFuncCo
5ab0: 6c 6c 53 65 71 28 63 6f 6e 74 65 78 74 29 3b 0a llSeq(context);.
5ac0: 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 UNUSED_PARAMET
5ad0: 45 52 28 4e 6f 74 55 73 65 64 29 3b 0a 20 20 69 ER(NotUsed);. i
5ae0: 66 28 20 73 71 6c 69 74 65 33 4d 65 6d 43 6f 6d f( sqlite3MemCom
5af0: 70 61 72 65 28 61 72 67 76 5b 30 5d 2c 20 61 72 pare(argv[0], ar
5b00: 67 76 5b 31 5d 2c 20 70 43 6f 6c 6c 29 21 3d 30 gv[1], pColl)!=0
5b10: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f ){. sqlite3_
5b20: 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e result_value(con
5b30: 74 65 78 74 2c 20 61 72 67 76 5b 30 5d 29 3b 0a text, argv[0]);.
5b40: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 }.}../*.** Imp
5b50: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
5b60: 68 65 20 73 71 6c 69 74 65 5f 76 65 72 73 69 6f he sqlite_versio
5b70: 6e 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 n() function. T
5b80: 68 65 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 he result is the
5b90: 20 76 65 72 73 69 6f 6e 0a 2a 2a 20 6f 66 20 74 version.** of t
5ba0: 68 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 he SQLite librar
5bb0: 79 20 74 68 61 74 20 69 73 20 72 75 6e 6e 69 6e y that is runnin
5bc0: 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 g..*/.static voi
5bd0: 64 20 76 65 72 73 69 6f 6e 46 75 6e 63 28 0a 20 d versionFunc(.
5be0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
5bf0: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 *context,. int
5c00: 20 4e 6f 74 55 73 65 64 2c 0a 20 20 73 71 6c 69 NotUsed,. sqli
5c10: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 4e 6f 74 55 te3_value **NotU
5c20: 73 65 64 32 0a 29 7b 0a 20 20 55 4e 55 53 45 44 sed2.){. UNUSED
5c30: 5f 50 41 52 41 4d 45 54 45 52 32 28 4e 6f 74 55 _PARAMETER2(NotU
5c40: 73 65 64 2c 20 4e 6f 74 55 73 65 64 32 29 3b 0a sed, NotUsed2);.
5c50: 20 20 2f 2a 20 49 4d 50 3a 20 52 2d 34 38 36 39 /* IMP: R-4869
5c60: 39 2d 34 38 36 31 37 20 54 68 69 73 20 66 75 6e 9-48617 This fun
5c70: 63 74 69 6f 6e 20 69 73 20 61 6e 20 53 51 4c 20 ction is an SQL
5c80: 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 wrapper around t
5c90: 68 65 0a 20 20 2a 2a 20 73 71 6c 69 74 65 33 5f he. ** sqlite3_
5ca0: 6c 69 62 76 65 72 73 69 6f 6e 28 29 20 43 2d 69 libversion() C-i
5cb0: 6e 74 65 72 66 61 63 65 2e 20 2a 2f 0a 20 20 73 nterface. */. s
5cc0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 qlite3_result_te
5cd0: 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 xt(context, sqli
5ce0: 74 65 33 5f 6c 69 62 76 65 72 73 69 6f 6e 28 29 te3_libversion()
5cf0: 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 , -1, SQLITE_STA
5d00: 54 49 43 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 TIC);.}../*.** I
5d10: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
5d20: 20 74 68 65 20 73 71 6c 69 74 65 5f 73 6f 75 72 the sqlite_sour
5d30: 63 65 5f 69 64 28 29 20 66 75 6e 63 74 69 6f 6e ce_id() function
5d40: 2e 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 . The result is
5d50: 61 20 73 74 72 69 6e 67 0a 2a 2a 20 74 68 61 74 a string.** that
5d60: 20 69 64 65 6e 74 69 66 69 65 73 20 74 68 65 20 identifies the
5d70: 70 61 72 74 69 63 75 6c 61 72 20 76 65 72 73 69 particular versi
5d80: 6f 6e 20 6f 66 20 74 68 65 20 73 6f 75 72 63 65 on of the source
5d90: 20 63 6f 64 65 20 75 73 65 64 20 74 6f 20 62 75 code used to bu
5da0: 69 6c 64 0a 2a 2a 20 53 51 4c 69 74 65 2e 0a 2a ild.** SQLite..*
5db0: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73 6f /.static void so
5dc0: 75 72 63 65 69 64 46 75 6e 63 28 0a 20 20 73 71 urceidFunc(. sq
5dd0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
5de0: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 4e 6f ontext,. int No
5df0: 74 55 73 65 64 2c 0a 20 20 73 71 6c 69 74 65 33 tUsed,. sqlite3
5e00: 5f 76 61 6c 75 65 20 2a 2a 4e 6f 74 55 73 65 64 _value **NotUsed
5e10: 32 0a 29 7b 0a 20 20 55 4e 55 53 45 44 5f 50 41 2.){. UNUSED_PA
5e20: 52 41 4d 45 54 45 52 32 28 4e 6f 74 55 73 65 64 RAMETER2(NotUsed
5e30: 2c 20 4e 6f 74 55 73 65 64 32 29 3b 0a 20 20 2f , NotUsed2);. /
5e40: 2a 20 49 4d 50 3a 20 52 2d 32 34 34 37 30 2d 33 * IMP: R-24470-3
5e50: 31 31 33 36 20 54 68 69 73 20 66 75 6e 63 74 69 1136 This functi
5e60: 6f 6e 20 69 73 20 61 6e 20 53 51 4c 20 77 72 61 on is an SQL wra
5e70: 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 0a pper around the.
5e80: 20 20 2a 2a 20 73 71 6c 69 74 65 33 5f 73 6f 75 ** sqlite3_sou
5e90: 72 63 65 69 64 28 29 20 43 20 69 6e 74 65 72 66 rceid() C interf
5ea0: 61 63 65 2e 20 2a 2f 0a 20 20 73 71 6c 69 74 65 ace. */. sqlite
5eb0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 3_result_text(co
5ec0: 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 73 ntext, sqlite3_s
5ed0: 6f 75 72 63 65 69 64 28 29 2c 20 2d 31 2c 20 53 ourceid(), -1, S
5ee0: 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 7d QLITE_STATIC);.}
5ef0: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e ../*.** Implemen
5f00: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 71 tation of the sq
5f10: 6c 69 74 65 5f 6c 6f 67 28 29 20 66 75 6e 63 74 lite_log() funct
5f20: 69 6f 6e 2e 20 20 54 68 69 73 20 69 73 20 61 20 ion. This is a
5f30: 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 0a 2a wrapper around.*
5f40: 2a 20 73 71 6c 69 74 65 33 5f 6c 6f 67 28 29 2e * sqlite3_log().
5f50: 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c The return val
5f60: 75 65 20 69 73 20 4e 55 4c 4c 2e 20 20 54 68 65 ue is NULL. The
5f70: 20 66 75 6e 63 74 69 6f 6e 20 65 78 69 73 74 73 function exists
5f80: 20 70 75 72 65 6c 79 20 66 6f 72 0a 2a 2a 20 69 purely for.** i
5f90: 74 73 20 73 69 64 65 2d 65 66 66 65 63 74 73 2e ts side-effects.
5fa0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
5fb0: 65 72 72 6c 6f 67 46 75 6e 63 28 0a 20 20 73 71 errlogFunc(. sq
5fc0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
5fd0: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 ontext,. int ar
5fe0: 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 gc,. sqlite3_va
5ff0: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 lue **argv.){.
6000: 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 UNUSED_PARAMETER
6010: 28 61 72 67 63 29 3b 0a 20 20 55 4e 55 53 45 44 (argc);. UNUSED
6020: 5f 50 41 52 41 4d 45 54 45 52 28 63 6f 6e 74 65 _PARAMETER(conte
6030: 78 74 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 6c xt);. sqlite3_l
6040: 6f 67 28 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 og(sqlite3_value
6050: 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 2c 20 22 _int(argv[0]), "
6060: 25 73 22 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c %s", sqlite3_val
6070: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31 5d 29 ue_text(argv[1])
6080: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c );.}../*.** Impl
6090: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 ementation of th
60a0: 65 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 e sqlite_compile
60b0: 6f 70 74 69 6f 6e 5f 75 73 65 64 28 29 20 66 75 option_used() fu
60c0: 6e 63 74 69 6f 6e 2e 0a 2a 2a 20 54 68 65 20 72 nction..** The r
60d0: 65 73 75 6c 74 20 69 73 20 61 6e 20 69 6e 74 65 esult is an inte
60e0: 67 65 72 20 74 68 61 74 20 69 64 65 6e 74 69 66 ger that identif
60f0: 69 65 73 20 69 66 20 74 68 65 20 63 6f 6d 70 69 ies if the compi
6100: 6c 65 72 20 6f 70 74 69 6f 6e 0a 2a 2a 20 77 61 ler option.** wa
6110: 73 20 75 73 65 64 20 74 6f 20 62 75 69 6c 64 20 s used to build
6120: 53 51 4c 69 74 65 2e 0a 2a 2f 0a 23 69 66 6e 64 SQLite..*/.#ifnd
6130: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 ef SQLITE_OMIT_C
6140: 4f 4d 50 49 4c 45 4f 50 54 49 4f 4e 5f 44 49 41 OMPILEOPTION_DIA
6150: 47 53 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 GS.static void c
6160: 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 75 73 65 64 ompileoptionused
6170: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
6180: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
6190: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
61a0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
61b0: 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 argv.){. const
61c0: 63 68 61 72 20 2a 7a 4f 70 74 4e 61 6d 65 3b 0a char *zOptName;.
61d0: 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d assert( argc==
61e0: 31 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 1 );. UNUSED_PA
61f0: 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 RAMETER(argc);.
6200: 20 2f 2a 20 49 4d 50 3a 20 52 2d 33 39 35 36 34 /* IMP: R-39564
6210: 2d 33 36 33 30 35 20 54 68 65 20 73 71 6c 69 74 -36305 The sqlit
6220: 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f e_compileoption_
6230: 75 73 65 64 28 29 20 53 51 4c 0a 20 20 2a 2a 20 used() SQL. **
6240: 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 20 77 72 function is a wr
6250: 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 apper around the
6260: 20 73 71 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65 sqlite3_compile
6270: 6f 70 74 69 6f 6e 5f 75 73 65 64 28 29 20 43 2f option_used() C/
6280: 43 2b 2b 0a 20 20 2a 2a 20 66 75 6e 63 74 69 6f C++. ** functio
6290: 6e 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 28 7a n.. */. if( (z
62a0: 4f 70 74 4e 61 6d 65 20 3d 20 28 63 6f 6e 73 74 OptName = (const
62b0: 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 char*)sqlite3_v
62c0: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
62d0: 5d 29 29 21 3d 30 20 29 7b 0a 20 20 20 20 73 71 ]))!=0 ){. sq
62e0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 lite3_result_int
62f0: 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 (context, sqlite
6300: 33 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 3_compileoption_
6310: 75 73 65 64 28 7a 4f 70 74 4e 61 6d 65 29 29 3b used(zOptName));
6320: 0a 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a . }.}.#endif /*
6330: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d SQLITE_OMIT_COM
6340: 50 49 4c 45 4f 50 54 49 4f 4e 5f 44 49 41 47 53 PILEOPTION_DIAGS
6350: 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 */../*.** Imple
6360: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 mentation of the
6370: 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 6f sqlite_compileo
6380: 70 74 69 6f 6e 5f 67 65 74 28 29 20 66 75 6e 63 ption_get() func
6390: 74 69 6f 6e 2e 20 0a 2a 2a 20 54 68 65 20 72 65 tion. .** The re
63a0: 73 75 6c 74 20 69 73 20 61 20 73 74 72 69 6e 67 sult is a string
63b0: 20 74 68 61 74 20 69 64 65 6e 74 69 66 69 65 73 that identifies
63c0: 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6f 70 the compiler op
63d0: 74 69 6f 6e 73 20 0a 2a 2a 20 75 73 65 64 20 74 tions .** used t
63e0: 6f 20 62 75 69 6c 64 20 53 51 4c 69 74 65 2e 0a o build SQLite..
63f0: 2a 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 */.#ifndef SQLIT
6400: 45 5f 4f 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 E_OMIT_COMPILEOP
6410: 54 49 4f 4e 5f 44 49 41 47 53 0a 73 74 61 74 69 TION_DIAGS.stati
6420: 63 20 76 6f 69 64 20 63 6f 6d 70 69 6c 65 6f 70 c void compileop
6430: 74 69 6f 6e 67 65 74 46 75 6e 63 28 0a 20 20 73 tiongetFunc(. s
6440: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
6450: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
6460: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 rgc,. sqlite3_v
6470: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
6480: 20 69 6e 74 20 6e 3b 0a 20 20 61 73 73 65 72 74 int n;. assert
6490: 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 55 ( argc==1 );. U
64a0: 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 NUSED_PARAMETER(
64b0: 61 72 67 63 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a argc);. /* IMP:
64c0: 20 52 2d 30 34 39 32 32 2d 32 34 30 37 36 20 54 R-04922-24076 T
64d0: 68 65 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c he sqlite_compil
64e0: 65 6f 70 74 69 6f 6e 5f 67 65 74 28 29 20 53 51 eoption_get() SQ
64f0: 4c 20 66 75 6e 63 74 69 6f 6e 0a 20 20 2a 2a 20 L function. **
6500: 69 73 20 61 20 77 72 61 70 70 65 72 20 61 72 6f is a wrapper aro
6510: 75 6e 64 20 74 68 65 20 73 71 6c 69 74 65 33 5f und the sqlite3_
6520: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 67 65 compileoption_ge
6530: 74 28 29 20 43 2f 43 2b 2b 20 66 75 6e 63 74 69 t() C/C++ functi
6540: 6f 6e 2e 0a 20 20 2a 2f 0a 20 20 6e 20 3d 20 73 on.. */. n = s
6550: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 qlite3_value_int
6560: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c (argv[0]);. sql
6570: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
6580: 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 (context, sqlite
6590: 33 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 3_compileoption_
65a0: 67 65 74 28 6e 29 2c 20 2d 31 2c 20 53 51 4c 49 get(n), -1, SQLI
65b0: 54 45 5f 53 54 41 54 49 43 29 3b 0a 7d 0a 23 65 TE_STATIC);.}.#e
65c0: 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f ndif /* SQLITE_O
65d0: 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54 49 4f MIT_COMPILEOPTIO
65e0: 4e 5f 44 49 41 47 53 20 2a 2f 0a 0a 2f 2a 20 41 N_DIAGS */../* A
65f0: 72 72 61 79 20 66 6f 72 20 63 6f 6e 76 65 72 74 rray for convert
6600: 69 6e 67 20 66 72 6f 6d 20 68 61 6c 66 2d 62 79 ing from half-by
6610: 74 65 73 20 28 6e 79 62 62 6c 65 73 29 20 69 6e tes (nybbles) in
6620: 74 6f 20 41 53 43 49 49 20 68 65 78 0a 2a 2a 20 to ASCII hex.**
6630: 64 69 67 69 74 73 2e 20 2a 2f 0a 73 74 61 74 69 digits. */.stati
6640: 63 20 63 6f 6e 73 74 20 63 68 61 72 20 68 65 78 c const char hex
6650: 64 69 67 69 74 73 5b 5d 20 3d 20 7b 0a 20 20 27 digits[] = {. '
6660: 30 27 2c 20 27 31 27 2c 20 27 32 27 2c 20 27 33 0', '1', '2', '3
6670: 27 2c 20 27 34 27 2c 20 27 35 27 2c 20 27 36 27 ', '4', '5', '6'
6680: 2c 20 27 37 27 2c 0a 20 20 27 38 27 2c 20 27 39 , '7',. '8', '9
6690: 27 2c 20 27 41 27 2c 20 27 42 27 2c 20 27 43 27 ', 'A', 'B', 'C'
66a0: 2c 20 27 44 27 2c 20 27 45 27 2c 20 27 46 27 20 , 'D', 'E', 'F'
66b0: 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 .};../*.** Imple
66c0: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 mentation of the
66d0: 20 51 55 4f 54 45 28 29 20 66 75 6e 63 74 69 6f QUOTE() functio
66e0: 6e 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f n. This functio
66f0: 6e 20 74 61 6b 65 73 20 61 20 73 69 6e 67 6c 65 n takes a single
6700: 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 2e 20 20 49 .** argument. I
6710: 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 f the argument i
6720: 73 20 6e 75 6d 65 72 69 63 2c 20 74 68 65 20 72 s numeric, the r
6730: 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 eturn value is t
6740: 68 65 20 73 61 6d 65 20 61 73 0a 2a 2a 20 74 68 he same as.** th
6750: 65 20 61 72 67 75 6d 65 6e 74 2e 20 20 49 66 20 e argument. If
6760: 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 20 the argument is
6770: 4e 55 4c 4c 2c 20 74 68 65 20 72 65 74 75 72 6e NULL, the return
6780: 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 73 74 value is the st
6790: 72 69 6e 67 0a 2a 2a 20 22 4e 55 4c 4c 22 2e 20 ring.** "NULL".
67a0: 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65 20 Otherwise, the
67b0: 61 72 67 75 6d 65 6e 74 20 69 73 20 65 6e 63 6c argument is encl
67c0: 6f 73 65 64 20 69 6e 20 73 69 6e 67 6c 65 20 71 osed in single q
67d0: 75 6f 74 65 73 20 77 69 74 68 0a 2a 2a 20 73 69 uotes with.** si
67e0: 6e 67 6c 65 2d 71 75 6f 74 65 20 65 73 63 61 70 ngle-quote escap
67f0: 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f es..*/.static vo
6800: 69 64 20 71 75 6f 74 65 46 75 6e 63 28 73 71 6c id quoteFunc(sql
6810: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
6820: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
6830: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
6840: 2a 61 72 67 76 29 7b 0a 20 20 61 73 73 65 72 74 *argv){. assert
6850: 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 55 ( argc==1 );. U
6860: 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 NUSED_PARAMETER(
6870: 61 72 67 63 29 3b 0a 20 20 73 77 69 74 63 68 28 argc);. switch(
6880: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
6890: 79 70 65 28 61 72 67 76 5b 30 5d 29 20 29 7b 0a ype(argv[0]) ){.
68a0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
68b0: 46 4c 4f 41 54 3a 20 7b 0a 20 20 20 20 20 20 64 FLOAT: {. d
68c0: 6f 75 62 6c 65 20 72 31 2c 20 72 32 3b 0a 20 20 ouble r1, r2;.
68d0: 20 20 20 20 63 68 61 72 20 7a 42 75 66 5b 35 30 char zBuf[50
68e0: 5d 3b 0a 20 20 20 20 20 20 72 31 20 3d 20 73 71 ];. r1 = sq
68f0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 lite3_value_doub
6900: 6c 65 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 le(argv[0]);.
6910: 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 sqlite3_snpri
6920: 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42 75 66 29 ntf(sizeof(zBuf)
6930: 2c 20 7a 42 75 66 2c 20 22 25 21 2e 31 35 67 22 , zBuf, "%!.15g"
6940: 2c 20 72 31 29 3b 0a 20 20 20 20 20 20 73 71 6c , r1);. sql
6950: 69 74 65 33 41 74 6f 46 28 7a 42 75 66 2c 20 26 ite3AtoF(zBuf, &
6960: 72 32 2c 20 32 30 2c 20 53 51 4c 49 54 45 5f 55 r2, 20, SQLITE_U
6970: 54 46 38 29 3b 0a 20 20 20 20 20 20 69 66 28 20 TF8);. if(
6980: 72 31 21 3d 72 32 20 29 7b 0a 20 20 20 20 20 20 r1!=r2 ){.
6990: 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e sqlite3_snprin
69a0: 74 66 28 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c tf(sizeof(zBuf),
69b0: 20 7a 42 75 66 2c 20 22 25 21 2e 32 30 65 22 2c zBuf, "%!.20e",
69c0: 20 72 31 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 r1);. }.
69d0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
69e0: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
69f0: 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 54 zBuf, -1, SQLIT
6a00: 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 E_TRANSIENT);.
6a10: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d break;. }
6a20: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 . case SQLITE
6a30: 5f 49 4e 54 45 47 45 52 3a 20 7b 0a 20 20 20 20 _INTEGER: {.
6a40: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
6a50: 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20 _value(context,
6a60: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 argv[0]);.
6a70: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 break;. }.
6a80: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 42 4c 4f case SQLITE_BLO
6a90: 42 3a 20 7b 0a 20 20 20 20 20 20 63 68 61 72 20 B: {. char
6aa0: 2a 7a 54 65 78 74 20 3d 20 30 3b 0a 20 20 20 20 *zText = 0;.
6ab0: 20 20 63 68 61 72 20 63 6f 6e 73 74 20 2a 7a 42 char const *zB
6ac0: 6c 6f 62 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 lob = sqlite3_va
6ad0: 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d lue_blob(argv[0]
6ae0: 29 3b 0a 20 20 20 20 20 20 69 6e 74 20 6e 42 6c );. int nBl
6af0: 6f 62 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c ob = sqlite3_val
6b00: 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d ue_bytes(argv[0]
6b10: 29 3b 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 );. assert(
6b20: 20 7a 42 6c 6f 62 3d 3d 73 71 6c 69 74 65 33 5f zBlob==sqlite3_
6b30: 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b value_blob(argv[
6b40: 30 5d 29 20 29 3b 20 2f 2a 20 4e 6f 20 65 6e 63 0]) ); /* No enc
6b50: 6f 64 69 6e 67 20 63 68 61 6e 67 65 20 2a 2f 0a oding change */.
6b60: 20 20 20 20 20 20 7a 54 65 78 74 20 3d 20 28 63 zText = (c
6b70: 68 61 72 20 2a 29 63 6f 6e 74 65 78 74 4d 61 6c har *)contextMal
6b80: 6c 6f 63 28 63 6f 6e 74 65 78 74 2c 20 28 32 2a loc(context, (2*
6b90: 28 69 36 34 29 6e 42 6c 6f 62 29 2b 34 29 3b 20 (i64)nBlob)+4);
6ba0: 0a 20 20 20 20 20 20 69 66 28 20 7a 54 65 78 74 . if( zText
6bb0: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 ){. int
6bc0: 69 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 i;. for(i
6bd0: 3d 30 3b 20 69 3c 6e 42 6c 6f 62 3b 20 69 2b 2b =0; i<nBlob; i++
6be0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 54 65 ){. zTe
6bf0: 78 74 5b 28 69 2a 32 29 2b 32 5d 20 3d 20 68 65 xt[(i*2)+2] = he
6c00: 78 64 69 67 69 74 73 5b 28 7a 42 6c 6f 62 5b 69 xdigits[(zBlob[i
6c10: 5d 3e 3e 34 29 26 30 78 30 46 5d 3b 0a 20 20 20 ]>>4)&0x0F];.
6c20: 20 20 20 20 20 20 20 7a 54 65 78 74 5b 28 69 2a zText[(i*
6c30: 32 29 2b 33 5d 20 3d 20 68 65 78 64 69 67 69 74 2)+3] = hexdigit
6c40: 73 5b 28 7a 42 6c 6f 62 5b 69 5d 29 26 30 78 30 s[(zBlob[i])&0x0
6c50: 46 5d 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 F];. }.
6c60: 20 20 20 20 20 20 7a 54 65 78 74 5b 28 6e 42 6c zText[(nBl
6c70: 6f 62 2a 32 29 2b 32 5d 20 3d 20 27 5c 27 27 3b ob*2)+2] = '\'';
6c80: 0a 20 20 20 20 20 20 20 20 7a 54 65 78 74 5b 28 . zText[(
6c90: 6e 42 6c 6f 62 2a 32 29 2b 33 5d 20 3d 20 27 5c nBlob*2)+3] = '\
6ca0: 30 27 3b 0a 20 20 20 20 20 20 20 20 7a 54 65 78 0';. zTex
6cb0: 74 5b 30 5d 20 3d 20 27 58 27 3b 0a 20 20 20 20 t[0] = 'X';.
6cc0: 20 20 20 20 7a 54 65 78 74 5b 31 5d 20 3d 20 27 zText[1] = '
6cd0: 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 73 71 6c \'';. sql
6ce0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
6cf0: 28 63 6f 6e 74 65 78 74 2c 20 7a 54 65 78 74 2c (context, zText,
6d00: 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e -1, SQLITE_TRAN
6d10: 53 49 45 4e 54 29 3b 0a 20 20 20 20 20 20 20 20 SIENT);.
6d20: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 54 65 sqlite3_free(zTe
6d30: 78 74 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 xt);. }.
6d40: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a break;. }.
6d50: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f case SQLITE_
6d60: 54 45 58 54 3a 20 7b 0a 20 20 20 20 20 20 69 6e TEXT: {. in
6d70: 74 20 69 2c 6a 3b 0a 20 20 20 20 20 20 75 36 34 t i,j;. u64
6d80: 20 6e 3b 0a 20 20 20 20 20 20 63 6f 6e 73 74 20 n;. const
6d90: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a unsigned char *z
6da0: 41 72 67 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 Arg = sqlite3_va
6db0: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d lue_text(argv[0]
6dc0: 29 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a );. char *z
6dd0: 3b 0a 0a 20 20 20 20 20 20 69 66 28 20 7a 41 72 ;.. if( zAr
6de0: 67 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 g==0 ) return;.
6df0: 20 20 20 20 20 66 6f 72 28 69 3d 30 2c 20 6e 3d for(i=0, n=
6e00: 30 3b 20 7a 41 72 67 5b 69 5d 3b 20 69 2b 2b 29 0; zArg[i]; i++)
6e10: 7b 20 69 66 28 20 7a 41 72 67 5b 69 5d 3d 3d 27 { if( zArg[i]=='
6e20: 5c 27 27 20 29 20 6e 2b 2b 3b 20 7d 0a 20 20 20 \'' ) n++; }.
6e30: 20 20 20 7a 20 3d 20 63 6f 6e 74 65 78 74 4d 61 z = contextMa
6e40: 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c 20 28 28 lloc(context, ((
6e50: 69 36 34 29 69 29 2b 28 28 69 36 34 29 6e 29 2b i64)i)+((i64)n)+
6e60: 33 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 20 3);. if( z
6e70: 29 7b 0a 20 20 20 20 20 20 20 20 7a 5b 30 5d 20 ){. z[0]
6e80: 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 = '\'';.
6e90: 66 6f 72 28 69 3d 30 2c 20 6a 3d 31 3b 20 7a 41 for(i=0, j=1; zA
6ea0: 72 67 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 rg[i]; i++){.
6eb0: 20 20 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 z[j++] =
6ec0: 7a 41 72 67 5b 69 5d 3b 0a 20 20 20 20 20 20 20 zArg[i];.
6ed0: 20 20 20 69 66 28 20 7a 41 72 67 5b 69 5d 3d 3d if( zArg[i]==
6ee0: 27 5c 27 27 20 29 7b 0a 20 20 20 20 20 20 20 20 '\'' ){.
6ef0: 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 z[j++] = '\'
6f00: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 ';. }.
6f10: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
6f20: 20 7a 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a z[j++] = '\'';.
6f30: 20 20 20 20 20 20 20 20 7a 5b 6a 5d 20 3d 20 30 z[j] = 0
6f40: 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 ;. sqlite
6f50: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 3_result_text(co
6f60: 6e 74 65 78 74 2c 20 7a 2c 20 6a 2c 20 73 71 6c ntext, z, j, sql
6f70: 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 20 20 ite3_free);.
6f80: 20 20 7d 0a 20 20 20 20 20 20 62 72 65 61 6b 3b }. break;
6f90: 0a 20 20 20 20 7d 0a 20 20 20 20 64 65 66 61 75 . }. defau
6fa0: 6c 74 3a 20 7b 0a 20 20 20 20 20 20 61 73 73 65 lt: {. asse
6fb0: 72 74 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 rt( sqlite3_valu
6fc0: 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3d e_type(argv[0])=
6fd0: 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 3b 0a =SQLITE_NULL );.
6fe0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 sqlite3_re
6ff0: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 sult_text(contex
7000: 74 2c 20 22 4e 55 4c 4c 22 2c 20 34 2c 20 53 51 t, "NULL", 4, SQ
7010: 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 LITE_STATIC);.
7020: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d break;. }
7030: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 . }.}../*.** Th
7040: 65 20 75 6e 69 63 6f 64 65 28 29 20 66 75 6e 63 e unicode() func
7050: 74 69 6f 6e 2e 20 20 52 65 74 75 72 6e 20 74 68 tion. Return th
7060: 65 20 69 6e 74 65 67 65 72 20 75 6e 69 63 6f 64 e integer unicod
7070: 65 20 63 6f 64 65 2d 70 6f 69 6e 74 20 76 61 6c e code-point val
7080: 75 65 0a 2a 2a 20 66 6f 72 20 74 68 65 20 66 69 ue.** for the fi
7090: 72 73 74 20 63 68 61 72 61 63 74 65 72 20 6f 66 rst character of
70a0: 20 74 68 65 20 69 6e 70 75 74 20 73 74 72 69 6e the input strin
70b0: 67 2e 20 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f g. .*/.static vo
70c0: 69 64 20 75 6e 69 63 6f 64 65 46 75 6e 63 28 0a id unicodeFunc(.
70d0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
70e0: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e t *context,. in
70f0: 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 t argc,. sqlite
7100: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 3_value **argv.)
7110: 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e {. const unsign
7120: 65 64 20 63 68 61 72 20 2a 7a 20 3d 20 73 71 6c ed char *z = sql
7130: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
7140: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 28 76 6f 69 argv[0]);. (voi
7150: 64 29 61 72 67 63 3b 0a 20 20 69 66 28 20 7a 20 d)argc;. if( z
7160: 26 26 20 7a 5b 30 5d 20 29 20 73 71 6c 69 74 65 && z[0] ) sqlite
7170: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 3_result_int(con
7180: 74 65 78 74 2c 20 73 71 6c 69 74 65 33 55 74 66 text, sqlite3Utf
7190: 38 52 65 61 64 28 26 7a 29 29 3b 0a 7d 0a 0a 2f 8Read(&z));.}../
71a0: 2a 0a 2a 2a 20 54 68 65 20 63 68 61 72 28 29 20 *.** The char()
71b0: 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 7a function takes z
71c0: 65 72 6f 20 6f 72 20 6d 6f 72 65 20 61 72 67 75 ero or more argu
71d0: 6d 65 6e 74 73 2c 20 65 61 63 68 20 6f 66 20 77 ments, each of w
71e0: 68 69 63 68 20 69 73 0a 2a 2a 20 61 6e 20 69 6e hich is.** an in
71f0: 74 65 67 65 72 2e 20 20 49 74 20 63 6f 6e 73 74 teger. It const
7200: 72 75 63 74 73 20 61 20 73 74 72 69 6e 67 20 77 ructs a string w
7210: 68 65 72 65 20 65 61 63 68 20 63 68 61 72 61 63 here each charac
7220: 74 65 72 20 6f 66 20 74 68 65 20 73 74 72 69 6e ter of the strin
7230: 67 0a 2a 2a 20 69 73 20 74 68 65 20 75 6e 69 63 g.** is the unic
7240: 6f 64 65 20 63 68 61 72 61 63 74 65 72 20 66 6f ode character fo
7250: 72 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 r the correspond
7260: 69 6e 67 20 69 6e 74 65 67 65 72 20 61 72 67 75 ing integer argu
7270: 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 ment..*/.static
7280: 76 6f 69 64 20 63 68 61 72 46 75 6e 63 28 0a 20 void charFunc(.
7290: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
72a0: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 *context,. int
72b0: 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 argc,. sqlite3
72c0: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
72d0: 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 . unsigned char
72e0: 20 2a 7a 2c 20 2a 7a 4f 75 74 3b 0a 20 20 69 6e *z, *zOut;. in
72f0: 74 20 69 3b 0a 20 20 7a 4f 75 74 20 3d 20 7a 20 t i;. zOut = z
7300: 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 = sqlite3_malloc
7310: 28 20 61 72 67 63 2a 34 2b 31 20 29 3b 0a 20 20 ( argc*4+1 );.
7320: 69 66 28 20 7a 3d 3d 30 20 29 7b 0a 20 20 20 20 if( z==0 ){.
7330: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 sqlite3_result_e
7340: 72 72 6f 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 rror_nomem(conte
7350: 78 74 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b xt);. return;
7360: 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20 . }. for(i=0;
7370: 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 i<argc; i++){.
7380: 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 sqlite3_int64
7390: 78 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 x;. unsigned
73a0: 63 3b 0a 20 20 20 20 78 20 3d 20 73 71 6c 69 74 c;. x = sqlit
73b0: 65 33 5f 76 61 6c 75 65 5f 69 6e 74 36 34 28 61 e3_value_int64(a
73c0: 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 69 66 28 rgv[i]);. if(
73d0: 20 78 3c 30 20 7c 7c 20 78 3e 30 78 31 30 66 66 x<0 || x>0x10ff
73e0: 66 66 20 29 20 78 20 3d 20 30 78 66 66 66 64 3b ff ) x = 0xfffd;
73f0: 0a 20 20 20 20 63 20 3d 20 28 75 6e 73 69 67 6e . c = (unsign
7400: 65 64 29 28 78 20 26 20 30 78 31 66 66 66 66 66 ed)(x & 0x1fffff
7410: 29 3b 0a 20 20 20 20 69 66 28 20 63 3c 30 78 30 );. if( c<0x0
7420: 30 30 38 30 20 29 7b 0a 20 20 20 20 20 20 2a 7a 0080 ){. *z
7430: 4f 75 74 2b 2b 20 3d 20 28 75 38 29 28 63 26 30 Out++ = (u8)(c&0
7440: 78 46 46 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 xFF);. }else
7450: 69 66 28 20 63 3c 30 78 30 30 38 30 30 20 29 7b if( c<0x00800 ){
7460: 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d . *zOut++ =
7470: 20 30 78 43 30 20 2b 20 28 75 38 29 28 28 63 3e 0xC0 + (u8)((c>
7480: 3e 36 29 26 30 78 31 46 29 3b 0a 20 20 20 20 20 >6)&0x1F);.
7490: 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 38 30 20 *zOut++ = 0x80
74a0: 2b 20 28 75 38 29 28 63 20 26 20 30 78 33 46 29 + (u8)(c & 0x3F)
74b0: 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 ;. }else if(
74c0: 63 3c 30 78 31 30 30 30 30 20 29 7b 0a 20 20 20 c<0x10000 ){.
74d0: 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 45 *zOut++ = 0xE
74e0: 30 20 2b 20 28 75 38 29 28 28 63 3e 3e 31 32 29 0 + (u8)((c>>12)
74f0: 26 30 78 30 46 29 3b 0a 20 20 20 20 20 20 2a 7a &0x0F);. *z
7500: 4f 75 74 2b 2b 20 3d 20 30 78 38 30 20 2b 20 28 Out++ = 0x80 + (
7510: 75 38 29 28 28 63 3e 3e 36 29 20 26 20 30 78 33 u8)((c>>6) & 0x3
7520: 46 29 3b 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b F);. *zOut+
7530: 2b 20 3d 20 30 78 38 30 20 2b 20 28 75 38 29 28 + = 0x80 + (u8)(
7540: 63 20 26 20 30 78 33 46 29 3b 0a 20 20 20 20 7d c & 0x3F);. }
7550: 65 6c 73 65 7b 0a 20 20 20 20 20 20 2a 7a 4f 75 else{. *zOu
7560: 74 2b 2b 20 3d 20 30 78 46 30 20 2b 20 28 75 38 t++ = 0xF0 + (u8
7570: 29 28 28 63 3e 3e 31 38 29 20 26 20 30 78 30 37 )((c>>18) & 0x07
7580: 29 3b 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b 2b );. *zOut++
7590: 20 3d 20 30 78 38 30 20 2b 20 28 75 38 29 28 28 = 0x80 + (u8)((
75a0: 63 3e 3e 31 32 29 20 26 20 30 78 33 46 29 3b 0a c>>12) & 0x3F);.
75b0: 20 20 20 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 *zOut++ =
75c0: 30 78 38 30 20 2b 20 28 75 38 29 28 28 63 3e 3e 0x80 + (u8)((c>>
75d0: 36 29 20 26 20 30 78 33 46 29 3b 0a 20 20 20 20 6) & 0x3F);.
75e0: 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 38 30 *zOut++ = 0x80
75f0: 20 2b 20 28 75 38 29 28 63 20 26 20 30 78 33 46 + (u8)(c & 0x3F
7600: 29 3b 0a 20 20 20 20 7d 20 20 20 20 20 20 20 20 );. }
7610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7630: 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 \.
7640: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 }. sqlite3_resu
7650: 6c 74 5f 74 65 78 74 36 34 28 63 6f 6e 74 65 78 lt_text64(contex
7660: 74 2c 20 28 63 68 61 72 2a 29 7a 2c 20 7a 4f 75 t, (char*)z, zOu
7670: 74 2d 7a 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 t-z, sqlite3_fre
7680: 65 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 29 3b e, SQLITE_UTF8);
7690: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 68 65 .}../*.** The he
76a0: 78 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 x() function. I
76b0: 6e 74 65 72 70 72 65 74 20 74 68 65 20 61 72 67 nterpret the arg
76c0: 75 6d 65 6e 74 20 61 73 20 61 20 62 6c 6f 62 2e ument as a blob.
76d0: 20 20 52 65 74 75 72 6e 0a 2a 2a 20 61 20 68 65 Return.** a he
76e0: 78 61 64 65 63 69 6d 61 6c 20 72 65 6e 64 65 72 xadecimal render
76f0: 69 6e 67 20 61 73 20 74 65 78 74 2e 0a 2a 2f 0a ing as text..*/.
7700: 73 74 61 74 69 63 20 76 6f 69 64 20 68 65 78 46 static void hexF
7710: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 unc(. sqlite3_c
7720: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
7730: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 . int argc,. s
7740: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
7750: 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 2c 20 rgv.){. int i,
7760: 6e 3b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 n;. const unsig
7770: 6e 65 64 20 63 68 61 72 20 2a 70 42 6c 6f 62 3b ned char *pBlob;
7780: 0a 20 20 63 68 61 72 20 2a 7a 48 65 78 2c 20 2a . char *zHex, *
7790: 7a 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 z;. assert( arg
77a0: 63 3d 3d 31 20 29 3b 0a 20 20 55 4e 55 53 45 44 c==1 );. UNUSED
77b0: 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 _PARAMETER(argc)
77c0: 3b 0a 20 20 70 42 6c 6f 62 20 3d 20 73 71 6c 69 ;. pBlob = sqli
77d0: 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 te3_value_blob(a
77e0: 72 67 76 5b 30 5d 29 3b 0a 20 20 6e 20 3d 20 73 rgv[0]);. n = s
77f0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 qlite3_value_byt
7800: 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 61 es(argv[0]);. a
7810: 73 73 65 72 74 28 20 70 42 6c 6f 62 3d 3d 73 71 ssert( pBlob==sq
7820: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 lite3_value_blob
7830: 28 61 72 67 76 5b 30 5d 29 20 29 3b 20 20 2f 2a (argv[0]) ); /*
7840: 20 4e 6f 20 65 6e 63 6f 64 69 6e 67 20 63 68 61 No encoding cha
7850: 6e 67 65 20 2a 2f 0a 20 20 7a 20 3d 20 7a 48 65 nge */. z = zHe
7860: 78 20 3d 20 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f x = contextMallo
7870: 63 28 63 6f 6e 74 65 78 74 2c 20 28 28 69 36 34 c(context, ((i64
7880: 29 6e 29 2a 32 20 2b 20 31 29 3b 0a 20 20 69 66 )n)*2 + 1);. if
7890: 28 20 7a 48 65 78 20 29 7b 0a 20 20 20 20 66 6f ( zHex ){. fo
78a0: 72 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 2c r(i=0; i<n; i++,
78b0: 20 70 42 6c 6f 62 2b 2b 29 7b 0a 20 20 20 20 20 pBlob++){.
78c0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 63 unsigned char c
78d0: 20 3d 20 2a 70 42 6c 6f 62 3b 0a 20 20 20 20 20 = *pBlob;.
78e0: 20 2a 28 7a 2b 2b 29 20 3d 20 68 65 78 64 69 67 *(z++) = hexdig
78f0: 69 74 73 5b 28 63 3e 3e 34 29 26 30 78 66 5d 3b its[(c>>4)&0xf];
7900: 0a 20 20 20 20 20 20 2a 28 7a 2b 2b 29 20 3d 20 . *(z++) =
7910: 68 65 78 64 69 67 69 74 73 5b 63 26 30 78 66 5d hexdigits[c&0xf]
7920: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2a 7a 20 3d ;. }. *z =
7930: 20 30 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 0;. sqlite3_
7940: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 result_text(cont
7950: 65 78 74 2c 20 7a 48 65 78 2c 20 6e 2a 32 2c 20 ext, zHex, n*2,
7960: 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 sqlite3_free);.
7970: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 }.}../*.** The
7980: 7a 65 72 6f 62 6c 6f 62 28 4e 29 20 66 75 6e 63 zeroblob(N) func
7990: 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 61 20 7a tion returns a z
79a0: 65 72 6f 2d 66 69 6c 6c 65 64 20 62 6c 6f 62 20 ero-filled blob
79b0: 6f 66 20 73 69 7a 65 20 4e 20 62 79 74 65 73 2e of size N bytes.
79c0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
79d0: 7a 65 72 6f 62 6c 6f 62 46 75 6e 63 28 0a 20 20 zeroblobFunc(.
79e0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
79f0: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 *context,. int
7a00: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f argc,. sqlite3_
7a10: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
7a20: 20 20 69 36 34 20 6e 3b 0a 20 20 73 71 6c 69 74 i64 n;. sqlit
7a30: 65 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 e3 *db = sqlite3
7a40: 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 _context_db_hand
7a50: 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 61 le(context);. a
7a60: 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 ssert( argc==1 )
7a70: 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d ;. UNUSED_PARAM
7a80: 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20 6e 20 ETER(argc);. n
7a90: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
7aa0: 69 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 3b 0a int64(argv[0]);.
7ab0: 20 20 74 65 73 74 63 61 73 65 28 20 6e 3d 3d 64 testcase( n==d
7ac0: 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 b->aLimit[SQLITE
7ad0: 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29 _LIMIT_LENGTH] )
7ae0: 3b 0a 20 20 74 65 73 74 63 61 73 65 28 20 6e 3d ;. testcase( n=
7af0: 3d 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 =db->aLimit[SQLI
7b00: 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d TE_LIMIT_LENGTH]
7b10: 2b 31 20 29 3b 0a 20 20 69 66 28 20 6e 3e 64 62 +1 );. if( n>db
7b20: 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f ->aLimit[SQLITE_
7b30: 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29 7b LIMIT_LENGTH] ){
7b40: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
7b50: 75 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67 ult_error_toobig
7b60: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 7d 65 6c (context);. }el
7b70: 73 65 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f se{. sqlite3_
7b80: 72 65 73 75 6c 74 5f 7a 65 72 6f 62 6c 6f 62 28 result_zeroblob(
7b90: 63 6f 6e 74 65 78 74 2c 20 28 69 6e 74 29 6e 29 context, (int)n)
7ba0: 3b 20 2f 2a 20 49 4d 50 3a 20 52 2d 30 30 32 39 ; /* IMP: R-0029
7bb0: 33 2d 36 34 39 39 34 20 2a 2f 0a 20 20 7d 0a 7d 3-64994 */. }.}
7bc0: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 72 65 70 6c ../*.** The repl
7bd0: 61 63 65 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 ace() function.
7be0: 20 54 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 Three arguments
7bf0: 20 61 72 65 20 61 6c 6c 20 73 74 72 69 6e 67 73 are all strings
7c00: 3a 20 63 61 6c 6c 0a 2a 2a 20 74 68 65 6d 20 41 : call.** them A
7c10: 2c 20 42 2c 20 61 6e 64 20 43 2e 20 54 68 65 20 , B, and C. The
7c20: 72 65 73 75 6c 74 20 69 73 20 61 6c 73 6f 20 61 result is also a
7c30: 20 73 74 72 69 6e 67 20 77 68 69 63 68 20 69 73 string which is
7c40: 20 64 65 72 69 76 65 64 0a 2a 2a 20 66 72 6f 6d derived.** from
7c50: 20 41 20 62 79 20 72 65 70 6c 61 63 69 6e 67 20 A by replacing
7c60: 65 76 65 72 79 20 6f 63 63 75 72 72 65 6e 63 65 every occurrence
7c70: 20 6f 66 20 42 20 77 69 74 68 20 43 2e 20 20 54 of B with C. T
7c80: 68 65 20 6d 61 74 63 68 0a 2a 2a 20 6d 75 73 74 he match.** must
7c90: 20 62 65 20 65 78 61 63 74 2e 20 20 43 6f 6c 6c be exact. Coll
7ca0: 61 74 69 6e 67 20 73 65 71 75 65 6e 63 65 73 20 ating sequences
7cb0: 61 72 65 20 6e 6f 74 20 75 73 65 64 2e 0a 2a 2f are not used..*/
7cc0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 72 65 70 .static void rep
7cd0: 6c 61 63 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 laceFunc(. sqli
7ce0: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
7cf0: 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 text,. int argc
7d00: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ,. sqlite3_valu
7d10: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f e **argv.){. co
7d20: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
7d30: 72 20 2a 7a 53 74 72 3b 20 20 20 20 20 20 20 20 r *zStr;
7d40: 2f 2a 20 54 68 65 20 69 6e 70 75 74 20 73 74 72 /* The input str
7d50: 69 6e 67 20 41 20 2a 2f 0a 20 20 63 6f 6e 73 74 ing A */. const
7d60: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
7d70: 7a 50 61 74 74 65 72 6e 3b 20 20 20 20 2f 2a 20 zPattern; /*
7d80: 54 68 65 20 70 61 74 74 65 72 6e 20 73 74 72 69 The pattern stri
7d90: 6e 67 20 42 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 ng B */. const
7da0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a unsigned char *z
7db0: 52 65 70 3b 20 20 20 20 20 20 20 20 2f 2a 20 54 Rep; /* T
7dc0: 68 65 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 73 he replacement s
7dd0: 74 72 69 6e 67 20 43 20 2a 2f 0a 20 20 75 6e 73 tring C */. uns
7de0: 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 4f 75 74 igned char *zOut
7df0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f ; /
7e00: 2a 20 54 68 65 20 6f 75 74 70 75 74 20 2a 2f 0a * The output */.
7e10: 20 20 69 6e 74 20 6e 53 74 72 3b 20 20 20 20 20 int nStr;
7e20: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 /* Si
7e30: 7a 65 20 6f 66 20 7a 53 74 72 20 2a 2f 0a 20 20 ze of zStr */.
7e40: 69 6e 74 20 6e 50 61 74 74 65 72 6e 3b 20 20 20 int nPattern;
7e50: 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a 65 /* Size
7e60: 20 6f 66 20 7a 50 61 74 74 65 72 6e 20 2a 2f 0a of zPattern */.
7e70: 20 20 69 6e 74 20 6e 52 65 70 3b 20 20 20 20 20 int nRep;
7e80: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 /* Si
7e90: 7a 65 20 6f 66 20 7a 52 65 70 20 2a 2f 0a 20 20 ze of zRep */.
7ea0: 69 36 34 20 6e 4f 75 74 3b 20 20 20 20 20 20 20 i64 nOut;
7eb0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4d 61 78 69 /* Maxi
7ec0: 6d 75 6d 20 73 69 7a 65 20 6f 66 20 7a 4f 75 74 mum size of zOut
7ed0: 20 2a 2f 0a 20 20 69 6e 74 20 6c 6f 6f 70 4c 69 */. int loopLi
7ee0: 6d 69 74 3b 20 20 20 20 20 20 20 20 20 20 20 2f mit; /
7ef0: 2a 20 4c 61 73 74 20 7a 53 74 72 5b 5d 20 74 68 * Last zStr[] th
7f00: 61 74 20 6d 69 67 68 74 20 6d 61 74 63 68 20 7a at might match z
7f10: 50 61 74 74 65 72 6e 5b 5d 20 2a 2f 0a 20 20 69 Pattern[] */. i
7f20: 6e 74 20 69 2c 20 6a 3b 20 20 20 20 20 20 20 20 nt i, j;
7f30: 20 20 20 20 20 20 20 20 2f 2a 20 4c 6f 6f 70 20 /* Loop
7f40: 63 6f 75 6e 74 65 72 73 20 2a 2f 0a 0a 20 20 61 counters */.. a
7f50: 73 73 65 72 74 28 20 61 72 67 63 3d 3d 33 20 29 ssert( argc==3 )
7f60: 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d ;. UNUSED_PARAM
7f70: 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20 7a 53 ETER(argc);. zS
7f80: 74 72 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c tr = sqlite3_val
7f90: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 ue_text(argv[0])
7fa0: 3b 0a 20 20 69 66 28 20 7a 53 74 72 3d 3d 30 20 ;. if( zStr==0
7fb0: 29 20 72 65 74 75 72 6e 3b 0a 20 20 6e 53 74 72 ) return;. nStr
7fc0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
7fd0: 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b _bytes(argv[0]);
7fe0: 0a 20 20 61 73 73 65 72 74 28 20 7a 53 74 72 3d . assert( zStr=
7ff0: 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 =sqlite3_value_t
8000: 65 78 74 28 61 72 67 76 5b 30 5d 29 20 29 3b 20 ext(argv[0]) );
8010: 20 2f 2a 20 4e 6f 20 65 6e 63 6f 64 69 6e 67 20 /* No encoding
8020: 63 68 61 6e 67 65 20 2a 2f 0a 20 20 7a 50 61 74 change */. zPat
8030: 74 65 72 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 tern = sqlite3_v
8040: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31 alue_text(argv[1
8050: 5d 29 3b 0a 20 20 69 66 28 20 7a 50 61 74 74 65 ]);. if( zPatte
8060: 72 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 61 73 73 rn==0 ){. ass
8070: 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 61 6c ert( sqlite3_val
8080: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 31 5d 29 ue_type(argv[1])
8090: 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 0a 20 20 ==SQLITE_NULL.
80a0: 20 20 20 20 20 20 20 20 20 20 7c 7c 20 73 71 6c || sql
80b0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f ite3_context_db_
80c0: 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 2d handle(context)-
80d0: 3e 6d 61 6c 6c 6f 63 46 61 69 6c 65 64 20 29 3b >mallocFailed );
80e0: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d . return;. }
80f0: 0a 20 20 69 66 28 20 7a 50 61 74 74 65 72 6e 5b . if( zPattern[
8100: 30 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 61 73 73 0]==0 ){. ass
8110: 65 72 74 28 20 73 71 6c 69 74 65 33 5f 76 61 6c ert( sqlite3_val
8120: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 31 5d 29 ue_type(argv[1])
8130: 21 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 3b !=SQLITE_NULL );
8140: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
8150: 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 ult_value(contex
8160: 74 2c 20 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 t, argv[0]);.
8170: 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 6e return;. }. n
8180: 50 61 74 74 65 72 6e 20 3d 20 73 71 6c 69 74 65 Pattern = sqlite
8190: 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 3_value_bytes(ar
81a0: 67 76 5b 31 5d 29 3b 0a 20 20 61 73 73 65 72 74 gv[1]);. assert
81b0: 28 20 7a 50 61 74 74 65 72 6e 3d 3d 73 71 6c 69 ( zPattern==sqli
81c0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
81d0: 72 67 76 5b 31 5d 29 20 29 3b 20 20 2f 2a 20 4e rgv[1]) ); /* N
81e0: 6f 20 65 6e 63 6f 64 69 6e 67 20 63 68 61 6e 67 o encoding chang
81f0: 65 20 2a 2f 0a 20 20 7a 52 65 70 20 3d 20 73 71 e */. zRep = sq
8200: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
8210: 28 61 72 67 76 5b 32 5d 29 3b 0a 20 20 69 66 28 (argv[2]);. if(
8220: 20 7a 52 65 70 3d 3d 30 20 29 20 72 65 74 75 72 zRep==0 ) retur
8230: 6e 3b 0a 20 20 6e 52 65 70 20 3d 20 73 71 6c 69 n;. nRep = sqli
8240: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 te3_value_bytes(
8250: 61 72 67 76 5b 32 5d 29 3b 0a 20 20 61 73 73 65 argv[2]);. asse
8260: 72 74 28 20 7a 52 65 70 3d 3d 73 71 6c 69 74 65 rt( zRep==sqlite
8270: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
8280: 76 5b 32 5d 29 20 29 3b 0a 20 20 6e 4f 75 74 20 v[2]) );. nOut
8290: 3d 20 6e 53 74 72 20 2b 20 31 3b 0a 20 20 61 73 = nStr + 1;. as
82a0: 73 65 72 74 28 20 6e 4f 75 74 3c 53 51 4c 49 54 sert( nOut<SQLIT
82b0: 45 5f 4d 41 58 5f 4c 45 4e 47 54 48 20 29 3b 0a E_MAX_LENGTH );.
82c0: 20 20 7a 4f 75 74 20 3d 20 63 6f 6e 74 65 78 74 zOut = context
82d0: 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c 20 Malloc(context,
82e0: 28 69 36 34 29 6e 4f 75 74 29 3b 0a 20 20 69 66 (i64)nOut);. if
82f0: 28 20 7a 4f 75 74 3d 3d 30 20 29 7b 0a 20 20 20 ( zOut==0 ){.
8300: 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 6c return;. }. l
8310: 6f 6f 70 4c 69 6d 69 74 20 3d 20 6e 53 74 72 20 oopLimit = nStr
8320: 2d 20 6e 50 61 74 74 65 72 6e 3b 20 20 0a 20 20 - nPattern; .
8330: 66 6f 72 28 69 3d 6a 3d 30 3b 20 69 3c 3d 6c 6f for(i=j=0; i<=lo
8340: 6f 70 4c 69 6d 69 74 3b 20 69 2b 2b 29 7b 0a 20 opLimit; i++){.
8350: 20 20 20 69 66 28 20 7a 53 74 72 5b 69 5d 21 3d if( zStr[i]!=
8360: 7a 50 61 74 74 65 72 6e 5b 30 5d 20 7c 7c 20 6d zPattern[0] || m
8370: 65 6d 63 6d 70 28 26 7a 53 74 72 5b 69 5d 2c 20 emcmp(&zStr[i],
8380: 7a 50 61 74 74 65 72 6e 2c 20 6e 50 61 74 74 65 zPattern, nPatte
8390: 72 6e 29 20 29 7b 0a 20 20 20 20 20 20 7a 4f 75 rn) ){. zOu
83a0: 74 5b 6a 2b 2b 5d 20 3d 20 7a 53 74 72 5b 69 5d t[j++] = zStr[i]
83b0: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ;. }else{.
83c0: 20 20 20 75 38 20 2a 7a 4f 6c 64 3b 0a 20 20 20 u8 *zOld;.
83d0: 20 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d sqlite3 *db =
83e0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
83f0: 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 _db_handle(conte
8400: 78 74 29 3b 0a 20 20 20 20 20 20 6e 4f 75 74 20 xt);. nOut
8410: 2b 3d 20 6e 52 65 70 20 2d 20 6e 50 61 74 74 65 += nRep - nPatte
8420: 72 6e 3b 0a 20 20 20 20 20 20 74 65 73 74 63 61 rn;. testca
8430: 73 65 28 20 6e 4f 75 74 2d 31 3d 3d 64 62 2d 3e se( nOut-1==db->
8440: 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 aLimit[SQLITE_LI
8450: 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29 3b 0a 20 MIT_LENGTH] );.
8460: 20 20 20 20 20 74 65 73 74 63 61 73 65 28 20 6e testcase( n
8470: 4f 75 74 2d 32 3d 3d 64 62 2d 3e 61 4c 69 6d 69 Out-2==db->aLimi
8480: 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c t[SQLITE_LIMIT_L
8490: 45 4e 47 54 48 5d 20 29 3b 0a 20 20 20 20 20 20 ENGTH] );.
84a0: 69 66 28 20 6e 4f 75 74 2d 31 3e 64 62 2d 3e 61 if( nOut-1>db->a
84b0: 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d Limit[SQLITE_LIM
84c0: 49 54 5f 4c 45 4e 47 54 48 5d 20 29 7b 0a 20 20 IT_LENGTH] ){.
84d0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 sqlite3_re
84e0: 73 75 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 sult_error_toobi
84f0: 67 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 g(context);.
8500: 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 sqlite3_free
8510: 28 7a 4f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 (zOut);.
8520: 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 7d 0a return;. }.
8530: 20 20 20 20 20 20 7a 4f 6c 64 20 3d 20 7a 4f 75 zOld = zOu
8540: 74 3b 0a 20 20 20 20 20 20 7a 4f 75 74 20 3d 20 t;. zOut =
8550: 73 71 6c 69 74 65 33 5f 72 65 61 6c 6c 6f 63 28 sqlite3_realloc(
8560: 7a 4f 75 74 2c 20 28 69 6e 74 29 6e 4f 75 74 29 zOut, (int)nOut)
8570: 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 4f 75 74 ;. if( zOut
8580: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 ==0 ){. s
8590: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 qlite3_result_er
85a0: 72 6f 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 ror_nomem(contex
85b0: 74 29 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 t);. sqli
85c0: 74 65 33 5f 66 72 65 65 28 7a 4f 6c 64 29 3b 0a te3_free(zOld);.
85d0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a return;.
85e0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 6d 65 }. me
85f0: 6d 63 70 79 28 26 7a 4f 75 74 5b 6a 5d 2c 20 7a mcpy(&zOut[j], z
8600: 52 65 70 2c 20 6e 52 65 70 29 3b 0a 20 20 20 20 Rep, nRep);.
8610: 20 20 6a 20 2b 3d 20 6e 52 65 70 3b 0a 20 20 20 j += nRep;.
8620: 20 20 20 69 20 2b 3d 20 6e 50 61 74 74 65 72 6e i += nPattern
8630: 2d 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 -1;. }. }.
8640: 61 73 73 65 72 74 28 20 6a 2b 6e 53 74 72 2d 69 assert( j+nStr-i
8650: 2b 31 3d 3d 6e 4f 75 74 20 29 3b 0a 20 20 6d 65 +1==nOut );. me
8660: 6d 63 70 79 28 26 7a 4f 75 74 5b 6a 5d 2c 20 26 mcpy(&zOut[j], &
8670: 7a 53 74 72 5b 69 5d 2c 20 6e 53 74 72 2d 69 29 zStr[i], nStr-i)
8680: 3b 0a 20 20 6a 20 2b 3d 20 6e 53 74 72 20 2d 20 ;. j += nStr -
8690: 69 3b 0a 20 20 61 73 73 65 72 74 28 20 6a 3c 3d i;. assert( j<=
86a0: 6e 4f 75 74 20 29 3b 0a 20 20 7a 4f 75 74 5b 6a nOut );. zOut[j
86b0: 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 ] = 0;. sqlite3
86c0: 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e _result_text(con
86d0: 74 65 78 74 2c 20 28 63 68 61 72 2a 29 7a 4f 75 text, (char*)zOu
86e0: 74 2c 20 6a 2c 20 73 71 6c 69 74 65 33 5f 66 72 t, j, sqlite3_fr
86f0: 65 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d ee);.}../*.** Im
8700: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 plementation of
8710: 74 68 65 20 54 52 49 4d 28 29 2c 20 4c 54 52 49 the TRIM(), LTRI
8720: 4d 28 29 2c 20 61 6e 64 20 52 54 52 49 4d 28 29 M(), and RTRIM()
8730: 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2a 20 54 functions..** T
8740: 68 65 20 75 73 65 72 64 61 74 61 20 69 73 20 30 he userdata is 0
8750: 78 31 20 66 6f 72 20 6c 65 66 74 20 74 72 69 6d x1 for left trim
8760: 2c 20 30 78 32 20 66 6f 72 20 72 69 67 68 74 20 , 0x2 for right
8770: 74 72 69 6d 2c 20 30 78 33 20 66 6f 72 20 62 6f trim, 0x3 for bo
8780: 74 68 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f th..*/.static vo
8790: 69 64 20 74 72 69 6d 46 75 6e 63 28 0a 20 20 73 id trimFunc(. s
87a0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
87b0: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
87c0: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 rgc,. sqlite3_v
87d0: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
87e0: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
87f0: 63 68 61 72 20 2a 7a 49 6e 3b 20 20 20 20 20 20 char *zIn;
8800: 20 20 20 2f 2a 20 49 6e 70 75 74 20 73 74 72 69 /* Input stri
8810: 6e 67 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 75 6e ng */. const un
8820: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 43 68 signed char *zCh
8830: 61 72 53 65 74 3b 20 20 20 20 2f 2a 20 53 65 74 arSet; /* Set
8840: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 74 of characters t
8850: 6f 20 74 72 69 6d 20 2a 2f 0a 20 20 69 6e 74 20 o trim */. int
8860: 6e 49 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 nIn;
8870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
8880: 20 4e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 Number of bytes
8890: 20 69 6e 20 69 6e 70 75 74 20 2a 2f 0a 20 20 69 in input */. i
88a0: 6e 74 20 66 6c 61 67 73 3b 20 20 20 20 20 20 20 nt flags;
88b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
88c0: 20 2f 2a 20 31 3a 20 74 72 69 6d 6c 65 66 74 20 /* 1: trimleft
88d0: 20 32 3a 20 74 72 69 6d 72 69 67 68 74 20 20 33 2: trimright 3
88e0: 3a 20 74 72 69 6d 20 2a 2f 0a 20 20 69 6e 74 20 : trim */. int
88f0: 69 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 i;
8900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
8910: 20 4c 6f 6f 70 20 63 6f 75 6e 74 65 72 20 2a 2f Loop counter */
8920: 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 . unsigned char
8930: 20 2a 61 4c 65 6e 20 3d 20 30 3b 20 20 20 20 20 *aLen = 0;
8940: 20 20 20 20 20 2f 2a 20 4c 65 6e 67 74 68 20 6f /* Length o
8950: 66 20 65 61 63 68 20 63 68 61 72 61 63 74 65 72 f each character
8960: 20 69 6e 20 7a 43 68 61 72 53 65 74 20 2a 2f 0a in zCharSet */.
8970: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
8980: 2a 2a 61 7a 43 68 61 72 20 3d 20 30 3b 20 20 20 **azChar = 0;
8990: 20 20 20 20 2f 2a 20 49 6e 64 69 76 69 64 75 61 /* Individua
89a0: 6c 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 l characters in
89b0: 7a 43 68 61 72 53 65 74 20 2a 2f 0a 20 20 69 6e zCharSet */. in
89c0: 74 20 6e 43 68 61 72 3b 20 20 20 20 20 20 20 20 t nChar;
89d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
89e0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 63 68 61 /* Number of cha
89f0: 72 61 63 74 65 72 73 20 69 6e 20 7a 43 68 61 72 racters in zChar
8a00: 53 65 74 20 2a 2f 0a 0a 20 20 69 66 28 20 73 71 Set */.. if( sq
8a10: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 lite3_value_type
8a20: 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 (argv[0])==SQLIT
8a30: 45 5f 4e 55 4c 4c 20 29 7b 0a 20 20 20 20 72 65 E_NULL ){. re
8a40: 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 7a 49 6e 20 turn;. }. zIn
8a50: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
8a60: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 text(argv[0]);.
8a70: 20 69 66 28 20 7a 49 6e 3d 3d 30 20 29 20 72 65 if( zIn==0 ) re
8a80: 74 75 72 6e 3b 0a 20 20 6e 49 6e 20 3d 20 73 71 turn;. nIn = sq
8a90: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 lite3_value_byte
8aa0: 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 61 73 s(argv[0]);. as
8ab0: 73 65 72 74 28 20 7a 49 6e 3d 3d 73 71 6c 69 74 sert( zIn==sqlit
8ac0: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
8ad0: 67 76 5b 30 5d 29 20 29 3b 0a 20 20 69 66 28 20 gv[0]) );. if(
8ae0: 61 72 67 63 3d 3d 31 20 29 7b 0a 20 20 20 20 73 argc==1 ){. s
8af0: 74 61 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 tatic const unsi
8b00: 67 6e 65 64 20 63 68 61 72 20 6c 65 6e 4f 6e 65 gned char lenOne
8b10: 5b 5d 20 3d 20 7b 20 31 20 7d 3b 0a 20 20 20 20 [] = { 1 };.
8b20: 73 74 61 74 69 63 20 75 6e 73 69 67 6e 65 64 20 static unsigned
8b30: 63 68 61 72 20 2a 20 63 6f 6e 73 74 20 61 7a 4f char * const azO
8b40: 6e 65 5b 5d 20 3d 20 7b 20 28 75 38 2a 29 22 20 ne[] = { (u8*)"
8b50: 22 20 7d 3b 0a 20 20 20 20 6e 43 68 61 72 20 3d " };. nChar =
8b60: 20 31 3b 0a 20 20 20 20 61 4c 65 6e 20 3d 20 28 1;. aLen = (
8b70: 75 38 2a 29 6c 65 6e 4f 6e 65 3b 0a 20 20 20 20 u8*)lenOne;.
8b80: 61 7a 43 68 61 72 20 3d 20 28 75 6e 73 69 67 6e azChar = (unsign
8b90: 65 64 20 63 68 61 72 20 2a 2a 29 61 7a 4f 6e 65 ed char **)azOne
8ba0: 3b 0a 20 20 20 20 7a 43 68 61 72 53 65 74 20 3d ;. zCharSet =
8bb0: 20 30 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 0;. }else if(
8bc0: 28 7a 43 68 61 72 53 65 74 20 3d 20 73 71 6c 69 (zCharSet = sqli
8bd0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
8be0: 72 67 76 5b 31 5d 29 29 3d 3d 30 20 29 7b 0a 20 rgv[1]))==0 ){.
8bf0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 65 6c return;. }el
8c00: 73 65 7b 0a 20 20 20 20 63 6f 6e 73 74 20 75 6e se{. const un
8c10: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 3b 0a signed char *z;.
8c20: 20 20 20 20 66 6f 72 28 7a 3d 7a 43 68 61 72 53 for(z=zCharS
8c30: 65 74 2c 20 6e 43 68 61 72 3d 30 3b 20 2a 7a 3b et, nChar=0; *z;
8c40: 20 6e 43 68 61 72 2b 2b 29 7b 0a 20 20 20 20 20 nChar++){.
8c50: 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55 54 46 SQLITE_SKIP_UTF
8c60: 38 28 7a 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 8(z);. }.
8c70: 69 66 28 20 6e 43 68 61 72 3e 30 20 29 7b 0a 20 if( nChar>0 ){.
8c80: 20 20 20 20 20 61 7a 43 68 61 72 20 3d 20 63 6f azChar = co
8c90: 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 ntextMalloc(cont
8ca0: 65 78 74 2c 20 28 28 69 36 34 29 6e 43 68 61 72 ext, ((i64)nChar
8cb0: 29 2a 28 73 69 7a 65 6f 66 28 63 68 61 72 2a 29 )*(sizeof(char*)
8cc0: 2b 31 29 29 3b 0a 20 20 20 20 20 20 69 66 28 20 +1));. if(
8cd0: 61 7a 43 68 61 72 3d 3d 30 20 29 7b 0a 20 20 20 azChar==0 ){.
8ce0: 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 return;.
8cf0: 20 20 20 7d 0a 20 20 20 20 20 20 61 4c 65 6e 20 }. aLen
8d00: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
8d10: 2a 29 26 61 7a 43 68 61 72 5b 6e 43 68 61 72 5d *)&azChar[nChar]
8d20: 3b 0a 20 20 20 20 20 20 66 6f 72 28 7a 3d 7a 43 ;. for(z=zC
8d30: 68 61 72 53 65 74 2c 20 6e 43 68 61 72 3d 30 3b harSet, nChar=0;
8d40: 20 2a 7a 3b 20 6e 43 68 61 72 2b 2b 29 7b 0a 20 *z; nChar++){.
8d50: 20 20 20 20 20 20 20 61 7a 43 68 61 72 5b 6e 43 azChar[nC
8d60: 68 61 72 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 har] = (unsigned
8d70: 20 63 68 61 72 20 2a 29 7a 3b 0a 20 20 20 20 20 char *)z;.
8d80: 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55 SQLITE_SKIP_U
8d90: 54 46 38 28 7a 29 3b 0a 20 20 20 20 20 20 20 20 TF8(z);.
8da0: 61 4c 65 6e 5b 6e 43 68 61 72 5d 20 3d 20 28 75 aLen[nChar] = (u
8db0: 38 29 28 7a 20 2d 20 61 7a 43 68 61 72 5b 6e 43 8)(z - azChar[nC
8dc0: 68 61 72 5d 29 3b 0a 20 20 20 20 20 20 7d 0a 20 har]);. }.
8dd0: 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 6e }. }. if( n
8de0: 43 68 61 72 3e 30 20 29 7b 0a 20 20 20 20 66 6c Char>0 ){. fl
8df0: 61 67 73 20 3d 20 53 51 4c 49 54 45 5f 50 54 52 ags = SQLITE_PTR
8e00: 5f 54 4f 5f 49 4e 54 28 73 71 6c 69 74 65 33 5f _TO_INT(sqlite3_
8e10: 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 user_data(contex
8e20: 74 29 29 3b 0a 20 20 20 20 69 66 28 20 66 6c 61 t));. if( fla
8e30: 67 73 20 26 20 31 20 29 7b 0a 20 20 20 20 20 20 gs & 1 ){.
8e40: 77 68 69 6c 65 28 20 6e 49 6e 3e 30 20 29 7b 0a while( nIn>0 ){.
8e50: 20 20 20 20 20 20 20 20 69 6e 74 20 6c 65 6e 20 int len
8e60: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 = 0;. for
8e70: 28 69 3d 30 3b 20 69 3c 6e 43 68 61 72 3b 20 69 (i=0; i<nChar; i
8e80: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 6c ++){. l
8e90: 65 6e 20 3d 20 61 4c 65 6e 5b 69 5d 3b 0a 20 20 en = aLen[i];.
8ea0: 20 20 20 20 20 20 20 20 69 66 28 20 6c 65 6e 3c if( len<
8eb0: 3d 6e 49 6e 20 26 26 20 6d 65 6d 63 6d 70 28 7a =nIn && memcmp(z
8ec0: 49 6e 2c 20 61 7a 43 68 61 72 5b 69 5d 2c 20 6c In, azChar[i], l
8ed0: 65 6e 29 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a en)==0 ) break;.
8ee0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
8ef0: 20 20 69 66 28 20 69 3e 3d 6e 43 68 61 72 20 29 if( i>=nChar )
8f00: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 break;.
8f10: 7a 49 6e 20 2b 3d 20 6c 65 6e 3b 0a 20 20 20 20 zIn += len;.
8f20: 20 20 20 20 6e 49 6e 20 2d 3d 20 6c 65 6e 3b 0a nIn -= len;.
8f30: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 }. }.
8f40: 20 20 69 66 28 20 66 6c 61 67 73 20 26 20 32 20 if( flags & 2
8f50: 29 7b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 ){. while(
8f60: 6e 49 6e 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 nIn>0 ){.
8f70: 20 69 6e 74 20 6c 65 6e 20 3d 20 30 3b 0a 20 20 int len = 0;.
8f80: 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 for(i=0; i
8f90: 3c 6e 43 68 61 72 3b 20 69 2b 2b 29 7b 0a 20 20 <nChar; i++){.
8fa0: 20 20 20 20 20 20 20 20 6c 65 6e 20 3d 20 61 4c len = aL
8fb0: 65 6e 5b 69 5d 3b 0a 20 20 20 20 20 20 20 20 20 en[i];.
8fc0: 20 69 66 28 20 6c 65 6e 3c 3d 6e 49 6e 20 26 26 if( len<=nIn &&
8fd0: 20 6d 65 6d 63 6d 70 28 26 7a 49 6e 5b 6e 49 6e memcmp(&zIn[nIn
8fe0: 2d 6c 65 6e 5d 2c 61 7a 43 68 61 72 5b 69 5d 2c -len],azChar[i],
8ff0: 6c 65 6e 29 3d 3d 30 20 29 20 62 72 65 61 6b 3b len)==0 ) break;
9000: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
9010: 20 20 20 69 66 28 20 69 3e 3d 6e 43 68 61 72 20 if( i>=nChar
9020: 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 ) break;.
9030: 20 6e 49 6e 20 2d 3d 20 6c 65 6e 3b 0a 20 20 20 nIn -= len;.
9040: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 }. }. i
9050: 66 28 20 7a 43 68 61 72 53 65 74 20 29 7b 0a 20 f( zCharSet ){.
9060: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 sqlite3_fre
9070: 65 28 61 7a 43 68 61 72 29 3b 0a 20 20 20 20 7d e(azChar);. }
9080: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 . }. sqlite3_r
9090: 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 esult_text(conte
90a0: 78 74 2c 20 28 63 68 61 72 2a 29 7a 49 6e 2c 20 xt, (char*)zIn,
90b0: 6e 49 6e 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e nIn, SQLITE_TRAN
90c0: 53 49 45 4e 54 29 3b 0a 7d 0a 0a 0a 2f 2a 20 49 SIENT);.}.../* I
90d0: 4d 50 3a 20 52 2d 32 35 33 36 31 2d 31 36 31 35 MP: R-25361-1615
90e0: 30 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 0 This function
90f0: 69 73 20 6f 6d 69 74 74 65 64 20 66 72 6f 6d 20 is omitted from
9100: 53 51 4c 69 74 65 20 62 79 20 64 65 66 61 75 6c SQLite by defaul
9110: 74 2e 20 49 74 0a 2a 2a 20 69 73 20 6f 6e 6c 79 t. It.** is only
9120: 20 61 76 61 69 6c 61 62 6c 65 20 69 66 20 74 68 available if th
9130: 65 20 53 51 4c 49 54 45 5f 53 4f 55 4e 44 45 58 e SQLITE_SOUNDEX
9140: 20 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 compile-time op
9150: 74 69 6f 6e 20 69 73 20 75 73 65 64 0a 2a 2a 20 tion is used.**
9160: 77 68 65 6e 20 53 51 4c 69 74 65 20 69 73 20 62 when SQLite is b
9170: 75 69 6c 74 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 uilt..*/.#ifdef
9180: 53 51 4c 49 54 45 5f 53 4f 55 4e 44 45 58 0a 2f SQLITE_SOUNDEX./
9190: 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 *.** Compute the
91a0: 20 73 6f 75 6e 64 65 78 20 65 6e 63 6f 64 69 6e soundex encodin
91b0: 67 20 6f 66 20 61 20 77 6f 72 64 2e 0a 2a 2a 0a g of a word..**.
91c0: 2a 2a 20 49 4d 50 3a 20 52 2d 35 39 37 38 32 2d ** IMP: R-59782-
91d0: 30 30 30 37 32 20 54 68 65 20 73 6f 75 6e 64 65 00072 The sounde
91e0: 78 28 58 29 20 66 75 6e 63 74 69 6f 6e 20 72 65 x(X) function re
91f0: 74 75 72 6e 73 20 61 20 73 74 72 69 6e 67 20 74 turns a string t
9200: 68 61 74 20 69 73 20 74 68 65 0a 2a 2a 20 73 6f hat is the.** so
9210: 75 6e 64 65 78 20 65 6e 63 6f 64 69 6e 67 20 6f undex encoding o
9220: 66 20 74 68 65 20 73 74 72 69 6e 67 20 58 2e 20 f the string X.
9230: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
9240: 73 6f 75 6e 64 65 78 46 75 6e 63 28 0a 20 20 73 soundexFunc(. s
9250: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
9260: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
9270: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 rgc,. sqlite3_v
9280: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
9290: 20 63 68 61 72 20 7a 52 65 73 75 6c 74 5b 38 5d char zResult[8]
92a0: 3b 0a 20 20 63 6f 6e 73 74 20 75 38 20 2a 7a 49 ;. const u8 *zI
92b0: 6e 3b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 n;. int i, j;.
92c0: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 75 6e static const un
92d0: 73 69 67 6e 65 64 20 63 68 61 72 20 69 43 6f 64 signed char iCod
92e0: 65 5b 5d 20 3d 20 7b 0a 20 20 20 20 30 2c 20 30 e[] = {. 0, 0
92f0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
9300: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
9310: 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 0, 0, 0, 0,.
9320: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
9330: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
9340: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 0, 0, 0, 0, 0,.
9350: 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0,
9360: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
9370: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
9380: 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 30 2c 0,. 0, 0, 0,
9390: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
93a0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
93b0: 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 , 0, 0,. 0, 0
93c0: 2c 20 31 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2c , 1, 2, 3, 0, 1,
93d0: 20 32 2c 20 30 2c 20 30 2c 20 32 2c 20 32 2c 20 2, 0, 0, 2, 2,
93e0: 34 2c 20 35 2c 20 35 2c 20 30 2c 0a 20 20 20 20 4, 5, 5, 0,.
93f0: 31 2c 20 32 2c 20 36 2c 20 32 2c 20 33 2c 20 30 1, 2, 6, 2, 3, 0
9400: 2c 20 31 2c 20 30 2c 20 32 2c 20 30 2c 20 32 2c , 1, 0, 2, 0, 2,
9410: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 0, 0, 0, 0, 0,.
9420: 20 20 20 20 30 2c 20 30 2c 20 31 2c 20 32 2c 20 0, 0, 1, 2,
9430: 33 2c 20 30 2c 20 31 2c 20 32 2c 20 30 2c 20 30 3, 0, 1, 2, 0, 0
9440: 2c 20 32 2c 20 32 2c 20 34 2c 20 35 2c 20 35 2c , 2, 2, 4, 5, 5,
9450: 20 30 2c 0a 20 20 20 20 31 2c 20 32 2c 20 36 2c 0,. 1, 2, 6,
9460: 20 32 2c 20 33 2c 20 30 2c 20 31 2c 20 30 2c 20 2, 3, 0, 1, 0,
9470: 32 2c 20 30 2c 20 32 2c 20 30 2c 20 30 2c 20 30 2, 0, 2, 0, 0, 0
9480: 2c 20 30 2c 20 30 2c 0a 20 20 7d 3b 0a 20 20 61 , 0, 0,. };. a
9490: 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 ssert( argc==1 )
94a0: 3b 0a 20 20 7a 49 6e 20 3d 20 28 75 38 2a 29 73 ;. zIn = (u8*)s
94b0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
94c0: 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 t(argv[0]);. if
94d0: 28 20 7a 49 6e 3d 3d 30 20 29 20 7a 49 6e 20 3d ( zIn==0 ) zIn =
94e0: 20 28 75 38 2a 29 22 22 3b 0a 20 20 66 6f 72 28 (u8*)"";. for(
94f0: 69 3d 30 3b 20 7a 49 6e 5b 69 5d 20 26 26 20 21 i=0; zIn[i] && !
9500: 73 71 6c 69 74 65 33 49 73 61 6c 70 68 61 28 7a sqlite3Isalpha(z
9510: 49 6e 5b 69 5d 29 3b 20 69 2b 2b 29 7b 7d 0a 20 In[i]); i++){}.
9520: 20 69 66 28 20 7a 49 6e 5b 69 5d 20 29 7b 0a 20 if( zIn[i] ){.
9530: 20 20 20 75 38 20 70 72 65 76 63 6f 64 65 20 3d u8 prevcode =
9540: 20 69 43 6f 64 65 5b 7a 49 6e 5b 69 5d 26 30 78 iCode[zIn[i]&0x
9550: 37 66 5d 3b 0a 20 20 20 20 7a 52 65 73 75 6c 74 7f];. zResult
9560: 5b 30 5d 20 3d 20 73 71 6c 69 74 65 33 54 6f 75 [0] = sqlite3Tou
9570: 70 70 65 72 28 7a 49 6e 5b 69 5d 29 3b 0a 20 20 pper(zIn[i]);.
9580: 20 20 66 6f 72 28 6a 3d 31 3b 20 6a 3c 34 20 26 for(j=1; j<4 &
9590: 26 20 7a 49 6e 5b 69 5d 3b 20 69 2b 2b 29 7b 0a & zIn[i]; i++){.
95a0: 20 20 20 20 20 20 69 6e 74 20 63 6f 64 65 20 3d int code =
95b0: 20 69 43 6f 64 65 5b 7a 49 6e 5b 69 5d 26 30 78 iCode[zIn[i]&0x
95c0: 37 66 5d 3b 0a 20 20 20 20 20 20 69 66 28 20 63 7f];. if( c
95d0: 6f 64 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 ode>0 ){.
95e0: 20 69 66 28 20 63 6f 64 65 21 3d 70 72 65 76 63 if( code!=prevc
95f0: 6f 64 65 20 29 7b 0a 20 20 20 20 20 20 20 20 20 ode ){.
9600: 20 70 72 65 76 63 6f 64 65 20 3d 20 63 6f 64 65 prevcode = code
9610: 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 52 65 73 ;. zRes
9620: 75 6c 74 5b 6a 2b 2b 5d 20 3d 20 63 6f 64 65 20 ult[j++] = code
9630: 2b 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 7d + '0';. }
9640: 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 . }else{.
9650: 20 20 20 20 20 20 70 72 65 76 63 6f 64 65 20 3d prevcode =
9660: 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 0;. }.
9670: 7d 0a 20 20 20 20 77 68 69 6c 65 28 20 6a 3c 34 }. while( j<4
9680: 20 29 7b 0a 20 20 20 20 20 20 7a 52 65 73 75 6c ){. zResul
9690: 74 5b 6a 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 t[j++] = '0';.
96a0: 20 20 7d 0a 20 20 20 20 7a 52 65 73 75 6c 74 5b }. zResult[
96b0: 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 73 71 6c 69 j] = 0;. sqli
96c0: 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 te3_result_text(
96d0: 63 6f 6e 74 65 78 74 2c 20 7a 52 65 73 75 6c 74 context, zResult
96e0: 2c 20 34 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e , 4, SQLITE_TRAN
96f0: 53 49 45 4e 54 29 3b 0a 20 20 7d 65 6c 73 65 7b SIENT);. }else{
9700: 0a 20 20 20 20 2f 2a 20 49 4d 50 3a 20 52 2d 36 . /* IMP: R-6
9710: 34 38 39 34 2d 35 30 33 32 31 20 54 68 65 20 73 4894-50321 The s
9720: 74 72 69 6e 67 20 22 3f 30 30 30 22 20 69 73 20 tring "?000" is
9730: 72 65 74 75 72 6e 65 64 20 69 66 20 74 68 65 20 returned if the
9740: 61 72 67 75 6d 65 6e 74 0a 20 20 20 20 2a 2a 20 argument. **
9750: 69 73 20 4e 55 4c 4c 20 6f 72 20 63 6f 6e 74 61 is NULL or conta
9760: 69 6e 73 20 6e 6f 20 41 53 43 49 49 20 61 6c 70 ins no ASCII alp
9770: 68 61 62 65 74 69 63 20 63 68 61 72 61 63 74 65 habetic characte
9780: 72 73 2e 20 2a 2f 0a 20 20 20 20 73 71 6c 69 74 rs. */. sqlit
9790: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 e3_result_text(c
97a0: 6f 6e 74 65 78 74 2c 20 22 3f 30 30 30 22 2c 20 ontext, "?000",
97b0: 34 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 4, SQLITE_STATIC
97c0: 29 3b 0a 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 20 );. }.}.#endif
97d0: 2f 2a 20 53 51 4c 49 54 45 5f 53 4f 55 4e 44 45 /* SQLITE_SOUNDE
97e0: 58 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 20 53 51 X */..#ifndef SQ
97f0: 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 LITE_OMIT_LOAD_E
9800: 58 54 45 4e 53 49 4f 4e 0a 2f 2a 0a 2a 2a 20 41 XTENSION./*.** A
9810: 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 6c function that l
9820: 6f 61 64 73 20 61 20 73 68 61 72 65 64 2d 6c 69 oads a shared-li
9830: 62 72 61 72 79 20 65 78 74 65 6e 73 69 6f 6e 20 brary extension
9840: 74 68 65 6e 20 72 65 74 75 72 6e 73 20 4e 55 4c then returns NUL
9850: 4c 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 L..*/.static voi
9860: 64 20 6c 6f 61 64 45 78 74 28 73 71 6c 69 74 65 d loadExt(sqlite
9870: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
9880: 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 xt, int argc, sq
9890: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
98a0: 67 76 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 gv){. const cha
98b0: 72 20 2a 7a 46 69 6c 65 20 3d 20 28 63 6f 6e 73 r *zFile = (cons
98c0: 74 20 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 t char *)sqlite3
98d0: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 _value_text(argv
98e0: 5b 30 5d 29 3b 0a 20 20 63 6f 6e 73 74 20 63 68 [0]);. const ch
98f0: 61 72 20 2a 7a 50 72 6f 63 3b 0a 20 20 73 71 6c ar *zProc;. sql
9900: 69 74 65 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 ite3 *db = sqlit
9910: 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 e3_context_db_ha
9920: 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 ndle(context);.
9930: 20 63 68 61 72 20 2a 7a 45 72 72 4d 73 67 20 3d char *zErrMsg =
9940: 20 30 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 3d 0;.. if( argc=
9950: 3d 32 20 29 7b 0a 20 20 20 20 7a 50 72 6f 63 20 =2 ){. zProc
9960: 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 = (const char *)
9970: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
9980: 78 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 7d xt(argv[1]);. }
9990: 65 6c 73 65 7b 0a 20 20 20 20 7a 50 72 6f 63 20 else{. zProc
99a0: 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 7a = 0;. }. if( z
99b0: 46 69 6c 65 20 26 26 20 73 71 6c 69 74 65 33 5f File && sqlite3_
99c0: 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 28 64 load_extension(d
99d0: 62 2c 20 7a 46 69 6c 65 2c 20 7a 50 72 6f 63 2c b, zFile, zProc,
99e0: 20 26 7a 45 72 72 4d 73 67 29 20 29 7b 0a 20 20 &zErrMsg) ){.
99f0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
9a00: 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 _error(context,
9a10: 7a 45 72 72 4d 73 67 2c 20 2d 31 29 3b 0a 20 20 zErrMsg, -1);.
9a20: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a sqlite3_free(z
9a30: 45 72 72 4d 73 67 29 3b 0a 20 20 7d 0a 7d 0a 23 ErrMsg);. }.}.#
9a40: 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20 41 6e endif.../*.** An
9a50: 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 65 instance of the
9a60: 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75 63 following struc
9a70: 74 75 72 65 20 68 6f 6c 64 73 20 74 68 65 20 63 ture holds the c
9a80: 6f 6e 74 65 78 74 20 6f 66 20 61 0a 2a 2a 20 73 ontext of a.** s
9a90: 75 6d 28 29 20 6f 72 20 61 76 67 28 29 20 61 67 um() or avg() ag
9aa0: 67 72 65 67 61 74 65 20 63 6f 6d 70 75 74 61 74 gregate computat
9ab0: 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 ion..*/.typedef
9ac0: 73 74 72 75 63 74 20 53 75 6d 43 74 78 20 53 75 struct SumCtx Su
9ad0: 6d 43 74 78 3b 0a 73 74 72 75 63 74 20 53 75 6d mCtx;.struct Sum
9ae0: 43 74 78 20 7b 0a 20 20 64 6f 75 62 6c 65 20 72 Ctx {. double r
9af0: 53 75 6d 3b 20 20 20 20 20 20 2f 2a 20 46 6c 6f Sum; /* Flo
9b00: 61 74 69 6e 67 20 70 6f 69 6e 74 20 73 75 6d 20 ating point sum
9b10: 2a 2f 0a 20 20 69 36 34 20 69 53 75 6d 3b 20 20 */. i64 iSum;
9b20: 20 20 20 20 20 20 20 2f 2a 20 49 6e 74 65 67 65 /* Intege
9b30: 72 20 73 75 6d 20 2a 2f 20 20 20 0a 20 20 69 36 r sum */ . i6
9b40: 34 20 63 6e 74 3b 20 20 20 20 20 20 20 20 20 20 4 cnt;
9b50: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 65 6c 65 /* Number of ele
9b60: 6d 65 6e 74 73 20 73 75 6d 6d 65 64 20 2a 2f 0a ments summed */.
9b70: 20 20 75 38 20 6f 76 65 72 66 6c 6f 77 3b 20 20 u8 overflow;
9b80: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 69 /* True if i
9b90: 6e 74 65 67 65 72 20 6f 76 65 72 66 6c 6f 77 20 nteger overflow
9ba0: 73 65 65 6e 20 2a 2f 0a 20 20 75 38 20 61 70 70 seen */. u8 app
9bb0: 72 6f 78 3b 20 20 20 20 20 20 20 20 2f 2a 20 54 rox; /* T
9bc0: 72 75 65 20 69 66 20 6e 6f 6e 2d 69 6e 74 65 67 rue if non-integ
9bd0: 65 72 20 76 61 6c 75 65 20 77 61 73 20 69 6e 70 er value was inp
9be0: 75 74 20 74 6f 20 74 68 65 20 73 75 6d 20 2a 2f ut to the sum */
9bf0: 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 .};../*.** Routi
9c00: 6e 65 73 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 nes used to comp
9c10: 75 74 65 20 74 68 65 20 73 75 6d 2c 20 61 76 65 ute the sum, ave
9c20: 72 61 67 65 2c 20 61 6e 64 20 74 6f 74 61 6c 2e rage, and total.
9c30: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 53 55 4d 28 29 .**.** The SUM()
9c40: 20 66 75 6e 63 74 69 6f 6e 20 66 6f 6c 6c 6f 77 function follow
9c50: 73 20 74 68 65 20 28 62 72 6f 6b 65 6e 29 20 53 s the (broken) S
9c60: 51 4c 20 73 74 61 6e 64 61 72 64 20 77 68 69 63 QL standard whic
9c70: 68 20 6d 65 61 6e 73 0a 2a 2a 20 74 68 61 74 20 h means.** that
9c80: 69 74 20 72 65 74 75 72 6e 73 20 4e 55 4c 4c 20 it returns NULL
9c90: 69 66 20 69 74 20 73 75 6d 73 20 6f 76 65 72 20 if it sums over
9ca0: 6e 6f 20 69 6e 70 75 74 73 2e 20 20 54 4f 54 41 no inputs. TOTA
9cb0: 4c 20 72 65 74 75 72 6e 73 0a 2a 2a 20 30 2e 30 L returns.** 0.0
9cc0: 20 69 6e 20 74 68 61 74 20 63 61 73 65 2e 20 20 in that case.
9cd0: 49 6e 20 61 64 64 69 74 69 6f 6e 2c 20 54 4f 54 In addition, TOT
9ce0: 41 4c 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e AL always return
9cf0: 73 20 61 20 66 6c 6f 61 74 20 77 68 65 72 65 0a s a float where.
9d00: 2a 2a 20 53 55 4d 20 6d 69 67 68 74 20 72 65 74 ** SUM might ret
9d10: 75 72 6e 20 61 6e 20 69 6e 74 65 67 65 72 20 69 urn an integer i
9d20: 66 20 69 74 20 6e 65 76 65 72 20 65 6e 63 6f 75 f it never encou
9d30: 6e 74 65 72 73 20 61 20 66 6c 6f 61 74 69 6e 67 nters a floating
9d40: 20 70 6f 69 6e 74 0a 2a 2a 20 76 61 6c 75 65 2e point.** value.
9d50: 20 20 54 4f 54 41 4c 20 6e 65 76 65 72 20 66 61 TOTAL never fa
9d60: 69 6c 73 2c 20 62 75 74 20 53 55 4d 20 6d 69 67 ils, but SUM mig
9d70: 68 74 20 74 68 72 6f 75 67 68 20 61 6e 20 65 78 ht through an ex
9d80: 63 65 70 74 69 6f 6e 20 69 66 0a 2a 2a 20 69 74 ception if.** it
9d90: 20 6f 76 65 72 66 6c 6f 77 73 20 61 6e 20 69 6e overflows an in
9da0: 74 65 67 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 teger..*/.static
9db0: 20 76 6f 69 64 20 73 75 6d 53 74 65 70 28 73 71 void sumStep(sq
9dc0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
9dd0: 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 ontext, int argc
9de0: 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 , sqlite3_value
9df0: 2a 2a 61 72 67 76 29 7b 0a 20 20 53 75 6d 43 74 **argv){. SumCt
9e00: 78 20 2a 70 3b 0a 20 20 69 6e 74 20 74 79 70 65 x *p;. int type
9e10: 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 ;. assert( argc
9e20: 3d 3d 31 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f ==1 );. UNUSED_
9e30: 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b PARAMETER(argc);
9e40: 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 . p = sqlite3_a
9e50: 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 ggregate_context
9e60: 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 (context, sizeof
9e70: 28 2a 70 29 29 3b 0a 20 20 74 79 70 65 20 3d 20 (*p));. type =
9e80: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 6e 75 sqlite3_value_nu
9e90: 6d 65 72 69 63 5f 74 79 70 65 28 61 72 67 76 5b meric_type(argv[
9ea0: 30 5d 29 3b 0a 20 20 69 66 28 20 70 20 26 26 20 0]);. if( p &&
9eb0: 74 79 70 65 21 3d 53 51 4c 49 54 45 5f 4e 55 4c type!=SQLITE_NUL
9ec0: 4c 20 29 7b 0a 20 20 20 20 70 2d 3e 63 6e 74 2b L ){. p->cnt+
9ed0: 2b 3b 0a 20 20 20 20 69 66 28 20 74 79 70 65 3d +;. if( type=
9ee0: 3d 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 20 =SQLITE_INTEGER
9ef0: 29 7b 0a 20 20 20 20 20 20 69 36 34 20 76 20 3d ){. i64 v =
9f00: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 sqlite3_value_i
9f10: 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 3b 0a 20 nt64(argv[0]);.
9f20: 20 20 20 20 20 70 2d 3e 72 53 75 6d 20 2b 3d 20 p->rSum +=
9f30: 76 3b 0a 20 20 20 20 20 20 69 66 28 20 28 70 2d v;. if( (p-
9f40: 3e 61 70 70 72 6f 78 7c 70 2d 3e 6f 76 65 72 66 >approx|p->overf
9f50: 6c 6f 77 29 3d 3d 30 20 26 26 20 73 71 6c 69 74 low)==0 && sqlit
9f60: 65 33 41 64 64 49 6e 74 36 34 28 26 70 2d 3e 69 e3AddInt64(&p->i
9f70: 53 75 6d 2c 20 76 29 20 29 7b 0a 20 20 20 20 20 Sum, v) ){.
9f80: 20 20 20 70 2d 3e 6f 76 65 72 66 6c 6f 77 20 3d p->overflow =
9f90: 20 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 1;. }.
9fa0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 2d 3e }else{. p->
9fb0: 72 53 75 6d 20 2b 3d 20 73 71 6c 69 74 65 33 5f rSum += sqlite3_
9fc0: 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 value_double(arg
9fd0: 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 70 2d 3e v[0]);. p->
9fe0: 61 70 70 72 6f 78 20 3d 20 31 3b 0a 20 20 20 20 approx = 1;.
9ff0: 7d 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63 20 76 }. }.}.static v
a000: 6f 69 64 20 73 75 6d 46 69 6e 61 6c 69 7a 65 28 oid sumFinalize(
a010: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
a020: 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 53 75 6d *context){. Sum
a030: 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 Ctx *p;. p = sq
a040: 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f lite3_aggregate_
a050: 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c context(context,
a060: 20 30 29 3b 0a 20 20 69 66 28 20 70 20 26 26 20 0);. if( p &&
a070: 70 2d 3e 63 6e 74 3e 30 20 29 7b 0a 20 20 20 20 p->cnt>0 ){.
a080: 69 66 28 20 70 2d 3e 6f 76 65 72 66 6c 6f 77 20 if( p->overflow
a090: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ){. sqlite3
a0a0: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f _result_error(co
a0b0: 6e 74 65 78 74 2c 22 69 6e 74 65 67 65 72 20 6f ntext,"integer o
a0c0: 76 65 72 66 6c 6f 77 22 2c 2d 31 29 3b 0a 20 20 verflow",-1);.
a0d0: 20 20 7d 65 6c 73 65 20 69 66 28 20 70 2d 3e 61 }else if( p->a
a0e0: 70 70 72 6f 78 20 29 7b 0a 20 20 20 20 20 20 73 pprox ){. s
a0f0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f qlite3_result_do
a100: 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 70 2d uble(context, p-
a110: 3e 72 53 75 6d 29 3b 0a 20 20 20 20 7d 65 6c 73 >rSum);. }els
a120: 65 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 e{. sqlite3
a130: 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 6f _result_int64(co
a140: 6e 74 65 78 74 2c 20 70 2d 3e 69 53 75 6d 29 3b ntext, p->iSum);
a150: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 73 74 61 . }. }.}.sta
a160: 74 69 63 20 76 6f 69 64 20 61 76 67 46 69 6e 61 tic void avgFina
a170: 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e lize(sqlite3_con
a180: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a text *context){.
a190: 20 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 20 70 SumCtx *p;. p
a1a0: 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 = sqlite3_aggre
a1b0: 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e gate_context(con
a1c0: 74 65 78 74 2c 20 30 29 3b 0a 20 20 69 66 28 20 text, 0);. if(
a1d0: 70 20 26 26 20 70 2d 3e 63 6e 74 3e 30 20 29 7b p && p->cnt>0 ){
a1e0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
a1f0: 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 ult_double(conte
a200: 78 74 2c 20 70 2d 3e 72 53 75 6d 2f 28 64 6f 75 xt, p->rSum/(dou
a210: 62 6c 65 29 70 2d 3e 63 6e 74 29 3b 0a 20 20 7d ble)p->cnt);. }
a220: 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 .}.static void t
a230: 6f 74 61 6c 46 69 6e 61 6c 69 7a 65 28 73 71 6c otalFinalize(sql
a240: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
a250: 6e 74 65 78 74 29 7b 0a 20 20 53 75 6d 43 74 78 ntext){. SumCtx
a260: 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 *p;. p = sqlit
a270: 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e e3_aggregate_con
a280: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 text(context, 0)
a290: 3b 0a 20 20 2f 2a 20 28 64 6f 75 62 6c 65 29 30 ;. /* (double)0
a2a0: 20 49 6e 20 63 61 73 65 20 6f 66 20 53 51 4c 49 In case of SQLI
a2b0: 54 45 5f 4f 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 TE_OMIT_FLOATING
a2c0: 5f 50 4f 49 4e 54 2e 2e 2e 20 2a 2f 0a 20 20 73 _POINT... */. s
a2d0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f qlite3_result_do
a2e0: 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 70 20 uble(context, p
a2f0: 3f 20 70 2d 3e 72 53 75 6d 20 3a 20 28 64 6f 75 ? p->rSum : (dou
a300: 62 6c 65 29 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a ble)0);.}../*.**
a310: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 The following s
a320: 74 72 75 63 74 75 72 65 20 6b 65 65 70 73 20 74 tructure keeps t
a330: 72 61 63 6b 20 6f 66 20 73 74 61 74 65 20 69 6e rack of state in
a340: 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 74 68 formation for th
a350: 65 0a 2a 2a 20 63 6f 75 6e 74 28 29 20 61 67 67 e.** count() agg
a360: 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 2e regate function.
a370: 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75 .*/.typedef stru
a380: 63 74 20 43 6f 75 6e 74 43 74 78 20 43 6f 75 6e ct CountCtx Coun
a390: 74 43 74 78 3b 0a 73 74 72 75 63 74 20 43 6f 75 tCtx;.struct Cou
a3a0: 6e 74 43 74 78 20 7b 0a 20 20 69 36 34 20 6e 3b ntCtx {. i64 n;
a3b0: 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 .};../*.** Routi
a3c0: 6e 65 73 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 nes to implement
a3d0: 20 74 68 65 20 63 6f 75 6e 74 28 29 20 61 67 67 the count() agg
a3e0: 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 2e regate function.
a3f0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
a400: 63 6f 75 6e 74 53 74 65 70 28 73 71 6c 69 74 65 countStep(sqlite
a410: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
a420: 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 xt, int argc, sq
a430: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
a440: 67 76 29 7b 0a 20 20 43 6f 75 6e 74 43 74 78 20 gv){. CountCtx
a450: 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 *p;. p = sqlite
a460: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
a470: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a ext(context, siz
a480: 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 eof(*p));. if(
a490: 28 61 72 67 63 3d 3d 30 20 7c 7c 20 53 51 4c 49 (argc==0 || SQLI
a4a0: 54 45 5f 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 33 TE_NULL!=sqlite3
a4b0: 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 _value_type(argv
a4c0: 5b 30 5d 29 29 20 26 26 20 70 20 29 7b 0a 20 20 [0])) && p ){.
a4d0: 20 20 70 2d 3e 6e 2b 2b 3b 0a 20 20 7d 0a 0a 23 p->n++;. }..#
a4e0: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
a4f0: 49 54 5f 44 45 50 52 45 43 41 54 45 44 0a 20 20 IT_DEPRECATED.
a500: 2f 2a 20 54 68 65 20 73 71 6c 69 74 65 33 5f 61 /* The sqlite3_a
a510: 67 67 72 65 67 61 74 65 5f 63 6f 75 6e 74 28 29 ggregate_count()
a520: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 64 65 70 function is dep
a530: 72 65 63 61 74 65 64 2e 20 20 42 75 74 20 6a 75 recated. But ju
a540: 73 74 20 74 6f 20 6d 61 6b 65 0a 20 20 2a 2a 20 st to make. **
a550: 73 75 72 65 20 69 74 20 73 74 69 6c 6c 20 6f 70 sure it still op
a560: 65 72 61 74 65 73 20 63 6f 72 72 65 63 74 6c 79 erates correctly
a570: 2c 20 76 65 72 69 66 79 20 74 68 61 74 20 69 74 , verify that it
a580: 73 20 63 6f 75 6e 74 20 61 67 72 65 65 73 20 77 s count agrees w
a590: 69 74 68 20 6f 75 72 20 0a 20 20 2a 2a 20 69 6e ith our . ** in
a5a0: 74 65 72 6e 61 6c 20 63 6f 75 6e 74 20 77 68 65 ternal count whe
a5b0: 6e 20 75 73 69 6e 67 20 63 6f 75 6e 74 28 2a 29 n using count(*)
a5c0: 20 61 6e 64 20 77 68 65 6e 20 74 68 65 20 74 6f and when the to
a5d0: 74 61 6c 20 63 6f 75 6e 74 20 63 61 6e 20 62 65 tal count can be
a5e0: 0a 20 20 2a 2a 20 65 78 70 72 65 73 73 65 64 20 . ** expressed
a5f0: 61 73 20 61 20 33 32 2d 62 69 74 20 69 6e 74 65 as a 32-bit inte
a600: 67 65 72 2e 20 2a 2f 0a 20 20 61 73 73 65 72 74 ger. */. assert
a610: 28 20 61 72 67 63 3d 3d 31 20 7c 7c 20 70 3d 3d ( argc==1 || p==
a620: 30 20 7c 7c 20 70 2d 3e 6e 3e 30 78 37 66 66 66 0 || p->n>0x7fff
a630: 66 66 66 66 0a 20 20 20 20 20 20 20 20 20 20 7c ffff. |
a640: 7c 20 70 2d 3e 6e 3d 3d 73 71 6c 69 74 65 33 5f | p->n==sqlite3_
a650: 61 67 67 72 65 67 61 74 65 5f 63 6f 75 6e 74 28 aggregate_count(
a660: 63 6f 6e 74 65 78 74 29 20 29 3b 0a 23 65 6e 64 context) );.#end
a670: 69 66 0a 7d 20 20 20 0a 73 74 61 74 69 63 20 76 if.} .static v
a680: 6f 69 64 20 63 6f 75 6e 74 46 69 6e 61 6c 69 7a oid countFinaliz
a690: 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 e(sqlite3_contex
a6a0: 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 43 t *context){. C
a6b0: 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 ountCtx *p;. p
a6c0: 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 = sqlite3_aggreg
a6d0: 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 ate_context(cont
a6e0: 65 78 74 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 ext, 0);. sqlit
a6f0: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 e3_result_int64(
a700: 63 6f 6e 74 65 78 74 2c 20 70 20 3f 20 70 2d 3e context, p ? p->
a710: 6e 20 3a 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a n : 0);.}../*.**
a720: 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 69 6d 70 Routines to imp
a730: 6c 65 6d 65 6e 74 20 6d 69 6e 28 29 20 61 6e 64 lement min() and
a740: 20 6d 61 78 28 29 20 61 67 67 72 65 67 61 74 65 max() aggregate
a750: 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 functions..*/.s
a760: 74 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 6d 61 tatic void minma
a770: 78 53 74 65 70 28 0a 20 20 73 71 6c 69 74 65 33 xStep(. sqlite3
a780: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
a790: 74 2c 20 0a 20 20 69 6e 74 20 4e 6f 74 55 73 65 t, . int NotUse
a7a0: 64 2c 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 d, . sqlite3_va
a7b0: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 lue **argv.){.
a7c0: 4d 65 6d 20 2a 70 41 72 67 20 20 3d 20 28 4d 65 Mem *pArg = (Me
a7d0: 6d 20 2a 29 61 72 67 76 5b 30 5d 3b 0a 20 20 4d m *)argv[0];. M
a7e0: 65 6d 20 2a 70 42 65 73 74 3b 0a 20 20 55 4e 55 em *pBest;. UNU
a7f0: 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 4e 6f SED_PARAMETER(No
a800: 74 55 73 65 64 29 3b 0a 0a 20 20 70 42 65 73 74 tUsed);.. pBest
a810: 20 3d 20 28 4d 65 6d 20 2a 29 73 71 6c 69 74 65 = (Mem *)sqlite
a820: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
a830: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a ext(context, siz
a840: 65 6f 66 28 2a 70 42 65 73 74 29 29 3b 0a 20 20 eof(*pBest));.
a850: 69 66 28 20 21 70 42 65 73 74 20 29 20 72 65 74 if( !pBest ) ret
a860: 75 72 6e 3b 0a 0a 20 20 69 66 28 20 73 71 6c 69 urn;.. if( sqli
a870: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
a880: 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f rgv[0])==SQLITE_
a890: 4e 55 4c 4c 20 29 7b 0a 20 20 20 20 69 66 28 20 NULL ){. if(
a8a0: 70 42 65 73 74 2d 3e 66 6c 61 67 73 20 29 20 73 pBest->flags ) s
a8b0: 71 6c 69 74 65 33 53 6b 69 70 41 63 63 75 6d 75 qlite3SkipAccumu
a8c0: 6c 61 74 6f 72 4c 6f 61 64 28 63 6f 6e 74 65 78 latorLoad(contex
a8d0: 74 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 t);. }else if(
a8e0: 70 42 65 73 74 2d 3e 66 6c 61 67 73 20 29 7b 0a pBest->flags ){.
a8f0: 20 20 20 20 69 6e 74 20 6d 61 78 3b 0a 20 20 20 int max;.
a900: 20 69 6e 74 20 63 6d 70 3b 0a 20 20 20 20 43 6f int cmp;. Co
a910: 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 73 llSeq *pColl = s
a920: 71 6c 69 74 65 33 47 65 74 46 75 6e 63 43 6f 6c qlite3GetFuncCol
a930: 6c 53 65 71 28 63 6f 6e 74 65 78 74 29 3b 0a 20 lSeq(context);.
a940: 20 20 20 2f 2a 20 54 68 69 73 20 73 74 65 70 20 /* This step
a950: 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 function is used
a960: 20 66 6f 72 20 62 6f 74 68 20 74 68 65 20 6d 69 for both the mi
a970: 6e 28 29 20 61 6e 64 20 6d 61 78 28 29 20 61 67 n() and max() ag
a980: 67 72 65 67 61 74 65 73 2c 0a 20 20 20 20 2a 2a gregates,. **
a990: 20 74 68 65 20 6f 6e 6c 79 20 64 69 66 66 65 72 the only differ
a9a0: 65 6e 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 ence between the
a9b0: 20 74 77 6f 20 62 65 69 6e 67 20 74 68 61 74 20 two being that
a9c0: 74 68 65 20 73 65 6e 73 65 20 6f 66 20 74 68 65 the sense of the
a9d0: 0a 20 20 20 20 2a 2a 20 63 6f 6d 70 61 72 69 73 . ** comparis
a9e0: 6f 6e 20 69 73 20 69 6e 76 65 72 74 65 64 2e 20 on is inverted.
a9f0: 46 6f 72 20 74 68 65 20 6d 61 78 28 29 20 61 67 For the max() ag
aa00: 67 72 65 67 61 74 65 2c 20 74 68 65 0a 20 20 20 gregate, the.
aa10: 20 2a 2a 20 73 71 6c 69 74 65 33 5f 75 73 65 72 ** sqlite3_user
aa20: 5f 64 61 74 61 28 29 20 66 75 6e 63 74 69 6f 6e _data() function
aa30: 20 72 65 74 75 72 6e 73 20 28 76 6f 69 64 20 2a returns (void *
aa40: 29 2d 31 2e 20 46 6f 72 20 6d 69 6e 28 29 20 69 )-1. For min() i
aa50: 74 0a 20 20 20 20 2a 2a 20 72 65 74 75 72 6e 73 t. ** returns
aa60: 20 28 76 6f 69 64 20 2a 29 64 62 2c 20 77 68 65 (void *)db, whe
aa70: 72 65 20 64 62 20 69 73 20 74 68 65 20 73 71 6c re db is the sql
aa80: 69 74 65 33 2a 20 64 61 74 61 62 61 73 65 20 70 ite3* database p
aa90: 6f 69 6e 74 65 72 2e 0a 20 20 20 20 2a 2a 20 54 ointer.. ** T
aaa0: 68 65 72 65 66 6f 72 65 20 74 68 65 20 6e 65 78 herefore the nex
aab0: 74 20 73 74 61 74 65 6d 65 6e 74 20 73 65 74 73 t statement sets
aac0: 20 76 61 72 69 61 62 6c 65 20 27 6d 61 78 27 20 variable 'max'
aad0: 74 6f 20 31 20 66 6f 72 20 74 68 65 20 6d 61 78 to 1 for the max
aae0: 28 29 0a 20 20 20 20 2a 2a 20 61 67 67 72 65 67 (). ** aggreg
aaf0: 61 74 65 2c 20 6f 72 20 30 20 66 6f 72 20 6d 69 ate, or 0 for mi
ab00: 6e 28 29 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 n().. */.
ab10: 6d 61 78 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 max = sqlite3_us
ab20: 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 er_data(context)
ab30: 21 3d 30 3b 0a 20 20 20 20 63 6d 70 20 3d 20 73 !=0;. cmp = s
ab40: 71 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 65 qlite3MemCompare
ab50: 28 70 42 65 73 74 2c 20 70 41 72 67 2c 20 70 43 (pBest, pArg, pC
ab60: 6f 6c 6c 29 3b 0a 20 20 20 20 69 66 28 20 28 6d oll);. if( (m
ab70: 61 78 20 26 26 20 63 6d 70 3c 30 29 20 7c 7c 20 ax && cmp<0) ||
ab80: 28 21 6d 61 78 20 26 26 20 63 6d 70 3e 30 29 20 (!max && cmp>0)
ab90: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ){. sqlite3
aba0: 56 64 62 65 4d 65 6d 43 6f 70 79 28 70 42 65 73 VdbeMemCopy(pBes
abb0: 74 2c 20 70 41 72 67 29 3b 0a 20 20 20 20 7d 65 t, pArg);. }e
abc0: 6c 73 65 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 lse{. sqlit
abd0: 65 33 53 6b 69 70 41 63 63 75 6d 75 6c 61 74 6f e3SkipAccumulato
abe0: 72 4c 6f 61 64 28 63 6f 6e 74 65 78 74 29 3b 0a rLoad(context);.
abf0: 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20 }. }else{.
ac00: 20 20 20 70 42 65 73 74 2d 3e 64 62 20 3d 20 73 pBest->db = s
ac10: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 qlite3_context_d
ac20: 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 b_handle(context
ac30: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 56 64 );. sqlite3Vd
ac40: 62 65 4d 65 6d 43 6f 70 79 28 70 42 65 73 74 2c beMemCopy(pBest,
ac50: 20 70 41 72 67 29 3b 0a 20 20 7d 0a 7d 0a 73 74 pArg);. }.}.st
ac60: 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 4d 61 78 atic void minMax
ac70: 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 Finalize(sqlite3
ac80: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
ac90: 74 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 t){. sqlite3_va
aca0: 6c 75 65 20 2a 70 52 65 73 3b 0a 20 20 70 52 65 lue *pRes;. pRe
acb0: 73 20 3d 20 28 73 71 6c 69 74 65 33 5f 76 61 6c s = (sqlite3_val
acc0: 75 65 20 2a 29 73 71 6c 69 74 65 33 5f 61 67 67 ue *)sqlite3_agg
acd0: 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 regate_context(c
ace0: 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 69 66 ontext, 0);. if
acf0: 28 20 70 52 65 73 20 29 7b 0a 20 20 20 20 69 66 ( pRes ){. if
ad00: 28 20 70 52 65 73 2d 3e 66 6c 61 67 73 20 29 7b ( pRes->flags ){
ad10: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 . sqlite3_r
ad20: 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 esult_value(cont
ad30: 65 78 74 2c 20 70 52 65 73 29 3b 0a 20 20 20 20 ext, pRes);.
ad40: 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 56 64 62 }. sqlite3Vdb
ad50: 65 4d 65 6d 52 65 6c 65 61 73 65 28 70 52 65 73 eMemRelease(pRes
ad60: 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 );. }.}../*.**
ad70: 67 72 6f 75 70 5f 63 6f 6e 63 61 74 28 45 58 50 group_concat(EXP
ad80: 52 2c 20 3f 53 45 50 41 52 41 54 4f 52 3f 29 0a R, ?SEPARATOR?).
ad90: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 67 */.static void g
ada0: 72 6f 75 70 43 6f 6e 63 61 74 53 74 65 70 28 0a roupConcatStep(.
adb0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
adc0: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e t *context,. in
add0: 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 t argc,. sqlite
ade0: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 3_value **argv.)
adf0: 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a {. const char *
ae00: 7a 56 61 6c 3b 0a 20 20 53 74 72 41 63 63 75 6d zVal;. StrAccum
ae10: 20 2a 70 41 63 63 75 6d 3b 0a 20 20 63 6f 6e 73 *pAccum;. cons
ae20: 74 20 63 68 61 72 20 2a 7a 53 65 70 3b 0a 20 20 t char *zSep;.
ae30: 69 6e 74 20 6e 56 61 6c 2c 20 6e 53 65 70 3b 0a int nVal, nSep;.
ae40: 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d assert( argc==
ae50: 31 20 7c 7c 20 61 72 67 63 3d 3d 32 20 29 3b 0a 1 || argc==2 );.
ae60: 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 if( sqlite3_va
ae70: 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d lue_type(argv[0]
ae80: 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 )==SQLITE_NULL )
ae90: 20 72 65 74 75 72 6e 3b 0a 20 20 70 41 63 63 75 return;. pAccu
aea0: 6d 20 3d 20 28 53 74 72 41 63 63 75 6d 2a 29 73 m = (StrAccum*)s
aeb0: 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 qlite3_aggregate
aec0: 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 _context(context
aed0: 2c 20 73 69 7a 65 6f 66 28 2a 70 41 63 63 75 6d , sizeof(*pAccum
aee0: 29 29 3b 0a 0a 20 20 69 66 28 20 70 41 63 63 75 ));.. if( pAccu
aef0: 6d 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 m ){. sqlite3
af00: 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 *db = sqlite3_c
af10: 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 ontext_db_handle
af20: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 69 (context);. i
af30: 6e 74 20 66 69 72 73 74 54 65 72 6d 20 3d 20 70 nt firstTerm = p
af40: 41 63 63 75 6d 2d 3e 75 73 65 4d 61 6c 6c 6f 63 Accum->useMalloc
af50: 3d 3d 30 3b 0a 20 20 20 20 70 41 63 63 75 6d 2d ==0;. pAccum-
af60: 3e 75 73 65 4d 61 6c 6c 6f 63 20 3d 20 32 3b 0a >useMalloc = 2;.
af70: 20 20 20 20 70 41 63 63 75 6d 2d 3e 6d 78 41 6c pAccum->mxAl
af80: 6c 6f 63 20 3d 20 64 62 2d 3e 61 4c 69 6d 69 74 loc = db->aLimit
af90: 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 45 [SQLITE_LIMIT_LE
afa0: 4e 47 54 48 5d 3b 0a 20 20 20 20 69 66 28 20 21 NGTH];. if( !
afb0: 66 69 72 73 74 54 65 72 6d 20 29 7b 0a 20 20 20 firstTerm ){.
afc0: 20 20 20 69 66 28 20 61 72 67 63 3d 3d 32 20 29 if( argc==2 )
afd0: 7b 0a 20 20 20 20 20 20 20 20 7a 53 65 70 20 3d {. zSep =
afe0: 20 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f (char*)sqlite3_
aff0: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
b000: 31 5d 29 3b 0a 20 20 20 20 20 20 20 20 6e 53 65 1]);. nSe
b010: 70 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 p = sqlite3_valu
b020: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 31 5d 29 e_bytes(argv[1])
b030: 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 ;. }else{.
b040: 20 20 20 20 20 20 20 7a 53 65 70 20 3d 20 22 2c zSep = ",
b050: 22 3b 0a 20 20 20 20 20 20 20 20 6e 53 65 70 20 ";. nSep
b060: 3d 20 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 = 1;. }.
b070: 20 20 20 69 66 28 20 6e 53 65 70 20 29 20 73 71 if( nSep ) sq
b080: 6c 69 74 65 33 53 74 72 41 63 63 75 6d 41 70 70 lite3StrAccumApp
b090: 65 6e 64 28 70 41 63 63 75 6d 2c 20 7a 53 65 70 end(pAccum, zSep
b0a0: 2c 20 6e 53 65 70 29 3b 0a 20 20 20 20 7d 0a 20 , nSep);. }.
b0b0: 20 20 20 7a 56 61 6c 20 3d 20 28 63 68 61 72 2a zVal = (char*
b0c0: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 )sqlite3_value_t
b0d0: 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 ext(argv[0]);.
b0e0: 20 20 6e 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 nVal = sqlite3
b0f0: 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 _value_bytes(arg
b100: 76 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 7a v[0]);. if( z
b110: 56 61 6c 20 29 20 73 71 6c 69 74 65 33 53 74 72 Val ) sqlite3Str
b120: 41 63 63 75 6d 41 70 70 65 6e 64 28 70 41 63 63 AccumAppend(pAcc
b130: 75 6d 2c 20 7a 56 61 6c 2c 20 6e 56 61 6c 29 3b um, zVal, nVal);
b140: 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f . }.}.static vo
b150: 69 64 20 67 72 6f 75 70 43 6f 6e 63 61 74 46 69 id groupConcatFi
b160: 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 nalize(sqlite3_c
b170: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 ontext *context)
b180: 7b 0a 20 20 53 74 72 41 63 63 75 6d 20 2a 70 41 {. StrAccum *pA
b190: 63 63 75 6d 3b 0a 20 20 70 41 63 63 75 6d 20 3d ccum;. pAccum =
b1a0: 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 sqlite3_aggrega
b1b0: 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 te_context(conte
b1c0: 78 74 2c 20 30 29 3b 0a 20 20 69 66 28 20 70 41 xt, 0);. if( pA
b1d0: 63 63 75 6d 20 29 7b 0a 20 20 20 20 69 66 28 20 ccum ){. if(
b1e0: 70 41 63 63 75 6d 2d 3e 61 63 63 45 72 72 6f 72 pAccum->accError
b1f0: 3d 3d 53 54 52 41 43 43 55 4d 5f 54 4f 4f 42 49 ==STRACCUM_TOOBI
b200: 47 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 G ){. sqlit
b210: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f e3_result_error_
b220: 74 6f 6f 62 69 67 28 63 6f 6e 74 65 78 74 29 3b toobig(context);
b230: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 70 . }else if( p
b240: 41 63 63 75 6d 2d 3e 61 63 63 45 72 72 6f 72 3d Accum->accError=
b250: 3d 53 54 52 41 43 43 55 4d 5f 4e 4f 4d 45 4d 20 =STRACCUM_NOMEM
b260: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ){. sqlite3
b270: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f _result_error_no
b280: 6d 65 6d 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 mem(context);.
b290: 20 20 7d 65 6c 73 65 7b 20 20 20 20 0a 20 20 20 }else{ .
b2a0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
b2b0: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 t_text(context,
b2c0: 73 71 6c 69 74 65 33 53 74 72 41 63 63 75 6d 46 sqlite3StrAccumF
b2d0: 69 6e 69 73 68 28 70 41 63 63 75 6d 29 2c 20 2d inish(pAccum), -
b2e0: 31 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 1, .
b2f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 sq
b300: 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 20 lite3_free);.
b310: 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 }. }.}../*.**
b320: 54 68 69 73 20 72 6f 75 74 69 6e 65 20 64 6f 65 This routine doe
b330: 73 20 70 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e s per-connection
b340: 20 66 75 6e 63 74 69 6f 6e 20 72 65 67 69 73 74 function regist
b350: 72 61 74 69 6f 6e 2e 20 20 4d 6f 73 74 0a 2a 2a ration. Most.**
b360: 20 6f 66 20 74 68 65 20 62 75 69 6c 74 2d 69 6e of the built-in
b370: 20 66 75 6e 63 74 69 6f 6e 73 20 61 62 6f 76 65 functions above
b380: 20 61 72 65 20 70 61 72 74 20 6f 66 20 74 68 65 are part of the
b390: 20 67 6c 6f 62 61 6c 20 66 75 6e 63 74 69 6f 6e global function
b3a0: 20 73 65 74 2e 0a 2a 2a 20 54 68 69 73 20 72 6f set..** This ro
b3b0: 75 74 69 6e 65 20 6f 6e 6c 79 20 64 65 61 6c 73 utine only deals
b3c0: 20 77 69 74 68 20 74 68 6f 73 65 20 74 68 61 74 with those that
b3d0: 20 61 72 65 20 6e 6f 74 20 67 6c 6f 62 61 6c 2e are not global.
b3e0: 0a 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 .*/.void sqlite3
b3f0: 52 65 67 69 73 74 65 72 42 75 69 6c 74 69 6e 46 RegisterBuiltinF
b400: 75 6e 63 74 69 6f 6e 73 28 73 71 6c 69 74 65 33 unctions(sqlite3
b410: 20 2a 64 62 29 7b 0a 20 20 69 6e 74 20 72 63 20 *db){. int rc
b420: 3d 20 73 71 6c 69 74 65 33 5f 6f 76 65 72 6c 6f = sqlite3_overlo
b430: 61 64 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 ad_function(db,
b440: 22 4d 41 54 43 48 22 2c 20 32 29 3b 0a 20 20 61 "MATCH", 2);. a
b450: 73 73 65 72 74 28 20 72 63 3d 3d 53 51 4c 49 54 ssert( rc==SQLIT
b460: 45 5f 4e 4f 4d 45 4d 20 7c 7c 20 72 63 3d 3d 53 E_NOMEM || rc==S
b470: 51 4c 49 54 45 5f 4f 4b 20 29 3b 0a 20 20 69 66 QLITE_OK );. if
b480: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4e 4f 4d ( rc==SQLITE_NOM
b490: 45 4d 20 29 7b 0a 20 20 20 20 64 62 2d 3e 6d 61 EM ){. db->ma
b4a0: 6c 6c 6f 63 46 61 69 6c 65 64 20 3d 20 31 3b 0a llocFailed = 1;.
b4b0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 }.}../*.** Set
b4c0: 20 74 68 65 20 4c 49 4b 45 4f 50 54 20 66 6c 61 the LIKEOPT fla
b4d0: 67 20 6f 6e 20 74 68 65 20 32 2d 61 72 67 75 6d g on the 2-argum
b4e0: 65 6e 74 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 ent function wit
b4f0: 68 20 74 68 65 20 67 69 76 65 6e 20 6e 61 6d 65 h the given name
b500: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
b510: 20 73 65 74 4c 69 6b 65 4f 70 74 46 6c 61 67 28 setLikeOptFlag(
b520: 73 71 6c 69 74 65 33 20 2a 64 62 2c 20 63 6f 6e sqlite3 *db, con
b530: 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 st char *zName,
b540: 75 38 20 66 6c 61 67 56 61 6c 29 7b 0a 20 20 46 u8 flagVal){. F
b550: 75 6e 63 44 65 66 20 2a 70 44 65 66 3b 0a 20 20 uncDef *pDef;.
b560: 70 44 65 66 20 3d 20 73 71 6c 69 74 65 33 46 69 pDef = sqlite3Fi
b570: 6e 64 46 75 6e 63 74 69 6f 6e 28 64 62 2c 20 7a ndFunction(db, z
b580: 4e 61 6d 65 2c 20 73 71 6c 69 74 65 33 53 74 72 Name, sqlite3Str
b590: 6c 65 6e 33 30 28 7a 4e 61 6d 65 29 2c 0a 20 20 len30(zName),.
b5a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
b5b0: 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 53 51 2, SQ
b5c0: 4c 49 54 45 5f 55 54 46 38 2c 20 30 29 3b 0a 20 LITE_UTF8, 0);.
b5d0: 20 69 66 28 20 41 4c 57 41 59 53 28 70 44 65 66 if( ALWAYS(pDef
b5e0: 29 20 29 7b 0a 20 20 20 20 70 44 65 66 2d 3e 66 ) ){. pDef->f
b5f0: 75 6e 63 46 6c 61 67 73 20 7c 3d 20 66 6c 61 67 uncFlags |= flag
b600: 56 61 6c 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a Val;. }.}../*.*
b610: 2a 20 52 65 67 69 73 74 65 72 20 74 68 65 20 62 * Register the b
b620: 75 69 6c 74 2d 69 6e 20 4c 49 4b 45 20 61 6e 64 uilt-in LIKE and
b630: 20 47 4c 4f 42 20 66 75 6e 63 74 69 6f 6e 73 2e GLOB functions.
b640: 20 20 54 68 65 20 63 61 73 65 53 65 6e 73 69 74 The caseSensit
b650: 69 76 65 0a 2a 2a 20 70 61 72 61 6d 65 74 65 72 ive.** parameter
b660: 20 64 65 74 65 72 6d 69 6e 65 73 20 77 68 65 74 determines whet
b670: 68 65 72 20 6f 72 20 6e 6f 74 20 74 68 65 20 4c her or not the L
b680: 49 4b 45 20 6f 70 65 72 61 74 6f 72 20 69 73 20 IKE operator is
b690: 63 61 73 65 0a 2a 2a 20 73 65 6e 73 69 74 69 76 case.** sensitiv
b6a0: 65 2e 20 20 47 4c 4f 42 20 69 73 20 61 6c 77 61 e. GLOB is alwa
b6b0: 79 73 20 63 61 73 65 20 73 65 6e 73 69 74 69 76 ys case sensitiv
b6c0: 65 2e 0a 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 e..*/.void sqlit
b6d0: 65 33 52 65 67 69 73 74 65 72 4c 69 6b 65 46 75 e3RegisterLikeFu
b6e0: 6e 63 74 69 6f 6e 73 28 73 71 6c 69 74 65 33 20 nctions(sqlite3
b6f0: 2a 64 62 2c 20 69 6e 74 20 63 61 73 65 53 65 6e *db, int caseSen
b700: 73 69 74 69 76 65 29 7b 0a 20 20 73 74 72 75 63 sitive){. struc
b710: 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 2a 70 t compareInfo *p
b720: 49 6e 66 6f 3b 0a 20 20 69 66 28 20 63 61 73 65 Info;. if( case
b730: 53 65 6e 73 69 74 69 76 65 20 29 7b 0a 20 20 20 Sensitive ){.
b740: 20 70 49 6e 66 6f 20 3d 20 28 73 74 72 75 63 74 pInfo = (struct
b750: 20 63 6f 6d 70 61 72 65 49 6e 66 6f 2a 29 26 6c compareInfo*)&l
b760: 69 6b 65 49 6e 66 6f 41 6c 74 3b 0a 20 20 7d 65 ikeInfoAlt;. }e
b770: 6c 73 65 7b 0a 20 20 20 20 70 49 6e 66 6f 20 3d lse{. pInfo =
b780: 20 28 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 (struct compare
b790: 49 6e 66 6f 2a 29 26 6c 69 6b 65 49 6e 66 6f 4e Info*)&likeInfoN
b7a0: 6f 72 6d 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 orm;. }. sqlit
b7b0: 65 33 43 72 65 61 74 65 46 75 6e 63 28 64 62 2c e3CreateFunc(db,
b7c0: 20 22 6c 69 6b 65 22 2c 20 32 2c 20 53 51 4c 49 "like", 2, SQLI
b7d0: 54 45 5f 55 54 46 38 2c 20 70 49 6e 66 6f 2c 20 TE_UTF8, pInfo,
b7e0: 6c 69 6b 65 46 75 6e 63 2c 20 30 2c 20 30 2c 20 likeFunc, 0, 0,
b7f0: 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 43 72 65 0);. sqlite3Cre
b800: 61 74 65 46 75 6e 63 28 64 62 2c 20 22 6c 69 6b ateFunc(db, "lik
b810: 65 22 2c 20 33 2c 20 53 51 4c 49 54 45 5f 55 54 e", 3, SQLITE_UT
b820: 46 38 2c 20 70 49 6e 66 6f 2c 20 6c 69 6b 65 46 F8, pInfo, likeF
b830: 75 6e 63 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 unc, 0, 0, 0);.
b840: 20 73 71 6c 69 74 65 33 43 72 65 61 74 65 46 75 sqlite3CreateFu
b850: 6e 63 28 64 62 2c 20 22 67 6c 6f 62 22 2c 20 32 nc(db, "glob", 2
b860: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0a , SQLITE_UTF8, .
b870: 20 20 20 20 20 20 28 73 74 72 75 63 74 20 63 6f (struct co
b880: 6d 70 61 72 65 49 6e 66 6f 2a 29 26 67 6c 6f 62 mpareInfo*)&glob
b890: 49 6e 66 6f 2c 20 6c 69 6b 65 46 75 6e 63 2c 20 Info, likeFunc,
b8a0: 30 2c 20 30 2c 20 30 29 3b 0a 20 20 73 65 74 4c 0, 0, 0);. setL
b8b0: 69 6b 65 4f 70 74 46 6c 61 67 28 64 62 2c 20 22 ikeOptFlag(db, "
b8c0: 67 6c 6f 62 22 2c 20 53 51 4c 49 54 45 5f 46 55 glob", SQLITE_FU
b8d0: 4e 43 5f 4c 49 4b 45 20 7c 20 53 51 4c 49 54 45 NC_LIKE | SQLITE
b8e0: 5f 46 55 4e 43 5f 43 41 53 45 29 3b 0a 20 20 73 _FUNC_CASE);. s
b8f0: 65 74 4c 69 6b 65 4f 70 74 46 6c 61 67 28 64 62 etLikeOptFlag(db
b900: 2c 20 22 6c 69 6b 65 22 2c 20 0a 20 20 20 20 20 , "like", .
b910: 20 63 61 73 65 53 65 6e 73 69 74 69 76 65 20 3f caseSensitive ?
b920: 20 28 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c 49 (SQLITE_FUNC_LI
b930: 4b 45 20 7c 20 53 51 4c 49 54 45 5f 46 55 4e 43 KE | SQLITE_FUNC
b940: 5f 43 41 53 45 29 20 3a 20 53 51 4c 49 54 45 5f _CASE) : SQLITE_
b950: 46 55 4e 43 5f 4c 49 4b 45 29 3b 0a 7d 0a 0a 2f FUNC_LIKE);.}../
b960: 2a 0a 2a 2a 20 70 45 78 70 72 20 70 6f 69 6e 74 *.** pExpr point
b970: 73 20 74 6f 20 61 6e 20 65 78 70 72 65 73 73 69 s to an expressi
b980: 6f 6e 20 77 68 69 63 68 20 69 6d 70 6c 65 6d 65 on which impleme
b990: 6e 74 73 20 61 20 66 75 6e 63 74 69 6f 6e 2e 20 nts a function.
b9a0: 20 49 66 0a 2a 2a 20 69 74 20 69 73 20 61 70 70 If.** it is app
b9b0: 72 6f 70 72 69 61 74 65 20 74 6f 20 61 70 70 6c ropriate to appl
b9c0: 79 20 74 68 65 20 4c 49 4b 45 20 6f 70 74 69 6d y the LIKE optim
b9d0: 69 7a 61 74 69 6f 6e 20 74 6f 20 74 68 61 74 20 ization to that
b9e0: 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 74 68 65 6e function.** then
b9f0: 20 73 65 74 20 61 57 63 5b 30 5d 20 74 68 72 6f set aWc[0] thro
ba00: 75 67 68 20 61 57 63 5b 32 5d 20 74 6f 20 74 68 ugh aWc[2] to th
ba10: 65 20 77 69 6c 64 63 61 72 64 20 63 68 61 72 61 e wildcard chara
ba20: 63 74 65 72 73 20 61 6e 64 0a 2a 2a 20 72 65 74 cters and.** ret
ba30: 75 72 6e 20 54 52 55 45 2e 20 20 49 66 20 74 68 urn TRUE. If th
ba40: 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6e 6f e function is no
ba50: 74 20 61 20 4c 49 4b 45 2d 73 74 79 6c 65 20 66 t a LIKE-style f
ba60: 75 6e 63 74 69 6f 6e 20 74 68 65 6e 0a 2a 2a 20 unction then.**
ba70: 72 65 74 75 72 6e 20 46 41 4c 53 45 2e 0a 2a 2f return FALSE..*/
ba80: 0a 69 6e 74 20 73 71 6c 69 74 65 33 49 73 4c 69 .int sqlite3IsLi
ba90: 6b 65 46 75 6e 63 74 69 6f 6e 28 73 71 6c 69 74 keFunction(sqlit
baa0: 65 33 20 2a 64 62 2c 20 45 78 70 72 20 2a 70 45 e3 *db, Expr *pE
bab0: 78 70 72 2c 20 69 6e 74 20 2a 70 49 73 4e 6f 63 xpr, int *pIsNoc
bac0: 61 73 65 2c 20 63 68 61 72 20 2a 61 57 63 29 7b ase, char *aWc){
bad0: 0a 20 20 46 75 6e 63 44 65 66 20 2a 70 44 65 66 . FuncDef *pDef
bae0: 3b 0a 20 20 69 66 28 20 70 45 78 70 72 2d 3e 6f ;. if( pExpr->o
baf0: 70 21 3d 54 4b 5f 46 55 4e 43 54 49 4f 4e 20 0a p!=TK_FUNCTION .
bb00: 20 20 20 7c 7c 20 21 70 45 78 70 72 2d 3e 78 2e || !pExpr->x.
bb10: 70 4c 69 73 74 20 0a 20 20 20 7c 7c 20 70 45 78 pList . || pEx
bb20: 70 72 2d 3e 78 2e 70 4c 69 73 74 2d 3e 6e 45 78 pr->x.pList->nEx
bb30: 70 72 21 3d 32 0a 20 20 29 7b 0a 20 20 20 20 72 pr!=2. ){. r
bb40: 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 61 eturn 0;. }. a
bb50: 73 73 65 72 74 28 20 21 45 78 70 72 48 61 73 50 ssert( !ExprHasP
bb60: 72 6f 70 65 72 74 79 28 70 45 78 70 72 2c 20 45 roperty(pExpr, E
bb70: 50 5f 78 49 73 53 65 6c 65 63 74 29 20 29 3b 0a P_xIsSelect) );.
bb80: 20 20 70 44 65 66 20 3d 20 73 71 6c 69 74 65 33 pDef = sqlite3
bb90: 46 69 6e 64 46 75 6e 63 74 69 6f 6e 28 64 62 2c FindFunction(db,
bba0: 20 70 45 78 70 72 2d 3e 75 2e 7a 54 6f 6b 65 6e pExpr->u.zToken
bbb0: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 , .
bbc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
bbd0: 73 71 6c 69 74 65 33 53 74 72 6c 65 6e 33 30 28 sqlite3Strlen30(
bbe0: 70 45 78 70 72 2d 3e 75 2e 7a 54 6f 6b 65 6e 29 pExpr->u.zToken)
bbf0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
bc00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2
bc10: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 , SQLITE_UTF8, 0
bc20: 29 3b 0a 20 20 69 66 28 20 4e 45 56 45 52 28 70 );. if( NEVER(p
bc30: 44 65 66 3d 3d 30 29 20 7c 7c 20 28 70 44 65 66 Def==0) || (pDef
bc40: 2d 3e 66 75 6e 63 46 6c 61 67 73 20 26 20 53 51 ->funcFlags & SQ
bc50: 4c 49 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 29 3d LITE_FUNC_LIKE)=
bc60: 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e =0 ){. return
bc70: 20 30 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 54 68 0;. }.. /* Th
bc80: 65 20 6d 65 6d 63 70 79 28 29 20 73 74 61 74 65 e memcpy() state
bc90: 6d 65 6e 74 20 61 73 73 75 6d 65 73 20 74 68 61 ment assumes tha
bca0: 74 20 74 68 65 20 77 69 6c 64 63 61 72 64 20 63 t the wildcard c
bcb0: 68 61 72 61 63 74 65 72 73 20 61 72 65 0a 20 20 haracters are.
bcc0: 2a 2a 20 74 68 65 20 66 69 72 73 74 20 74 68 72 ** the first thr
bcd0: 65 65 20 73 74 61 74 65 6d 65 6e 74 73 20 69 6e ee statements in
bce0: 20 74 68 65 20 63 6f 6d 70 61 72 65 49 6e 66 6f the compareInfo
bcf0: 20 73 74 72 75 63 74 75 72 65 2e 20 20 54 68 65 structure. The
bd00: 0a 20 20 2a 2a 20 61 73 73 65 72 74 73 28 29 20 . ** asserts()
bd10: 74 68 61 74 20 66 6f 6c 6c 6f 77 20 76 65 72 69 that follow veri
bd20: 66 79 20 74 68 61 74 20 61 73 73 75 6d 70 74 69 fy that assumpti
bd30: 6f 6e 0a 20 20 2a 2f 0a 20 20 6d 65 6d 63 70 79 on. */. memcpy
bd40: 28 61 57 63 2c 20 70 44 65 66 2d 3e 70 55 73 65 (aWc, pDef->pUse
bd50: 72 44 61 74 61 2c 20 33 29 3b 0a 20 20 61 73 73 rData, 3);. ass
bd60: 65 72 74 28 20 28 63 68 61 72 2a 29 26 6c 69 6b ert( (char*)&lik
bd70: 65 49 6e 66 6f 41 6c 74 20 3d 3d 20 28 63 68 61 eInfoAlt == (cha
bd80: 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 2e r*)&likeInfoAlt.
bd90: 6d 61 74 63 68 41 6c 6c 20 29 3b 0a 20 20 61 73 matchAll );. as
bda0: 73 65 72 74 28 20 26 28 28 63 68 61 72 2a 29 26 sert( &((char*)&
bdb0: 6c 69 6b 65 49 6e 66 6f 41 6c 74 29 5b 31 5d 20 likeInfoAlt)[1]
bdc0: 3d 3d 20 28 63 68 61 72 2a 29 26 6c 69 6b 65 49 == (char*)&likeI
bdd0: 6e 66 6f 41 6c 74 2e 6d 61 74 63 68 4f 6e 65 20 nfoAlt.matchOne
bde0: 29 3b 0a 20 20 61 73 73 65 72 74 28 20 26 28 28 );. assert( &((
bdf0: 63 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 char*)&likeInfoA
be00: 6c 74 29 5b 32 5d 20 3d 3d 20 28 63 68 61 72 2a lt)[2] == (char*
be10: 29 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 2e 6d 61 )&likeInfoAlt.ma
be20: 74 63 68 53 65 74 20 29 3b 0a 20 20 2a 70 49 73 tchSet );. *pIs
be30: 4e 6f 63 61 73 65 20 3d 20 28 70 44 65 66 2d 3e Nocase = (pDef->
be40: 66 75 6e 63 46 6c 61 67 73 20 26 20 53 51 4c 49 funcFlags & SQLI
be50: 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 3d 3d 30 TE_FUNC_CASE)==0
be60: 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a ;. return 1;.}.
be70: 0a 2f 2a 0a 2a 2a 20 41 6c 6c 20 6f 66 20 74 68 ./*.** All of th
be80: 65 20 46 75 6e 63 44 65 66 20 73 74 72 75 63 74 e FuncDef struct
be90: 75 72 65 73 20 69 6e 20 74 68 65 20 61 42 75 69 ures in the aBui
bea0: 6c 74 69 6e 46 75 6e 63 5b 5d 20 61 72 72 61 79 ltinFunc[] array
beb0: 20 61 62 6f 76 65 0a 2a 2a 20 74 6f 20 74 68 65 above.** to the
bec0: 20 67 6c 6f 62 61 6c 20 66 75 6e 63 74 69 6f 6e global function
bed0: 20 68 61 73 68 20 74 61 62 6c 65 2e 20 20 54 68 hash table. Th
bee0: 69 73 20 6f 63 63 75 72 73 20 61 74 20 73 74 61 is occurs at sta
bef0: 72 74 2d 74 69 6d 65 20 28 61 73 0a 2a 2a 20 61 rt-time (as.** a
bf00: 20 63 6f 6e 73 65 71 75 65 6e 63 65 20 6f 66 20 consequence of
bf10: 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f calling sqlite3_
bf20: 69 6e 69 74 69 61 6c 69 7a 65 28 29 29 2e 0a 2a initialize())..*
bf30: 2a 0a 2a 2a 20 41 66 74 65 72 20 74 68 69 73 20 *.** After this
bf40: 72 6f 75 74 69 6e 65 20 72 75 6e 73 0a 2a 2f 0a routine runs.*/.
bf50: 76 6f 69 64 20 73 71 6c 69 74 65 33 52 65 67 69 void sqlite3Regi
bf60: 73 74 65 72 47 6c 6f 62 61 6c 46 75 6e 63 74 69 sterGlobalFuncti
bf70: 6f 6e 73 28 76 6f 69 64 29 7b 0a 20 20 2f 2a 0a ons(void){. /*.
bf80: 20 20 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 ** The followi
bf90: 6e 67 20 61 72 72 61 79 20 68 6f 6c 64 73 20 46 ng array holds F
bfa0: 75 6e 63 44 65 66 20 73 74 72 75 63 74 75 72 65 uncDef structure
bfb0: 73 20 66 6f 72 20 61 6c 6c 20 6f 66 20 74 68 65 s for all of the
bfc0: 20 66 75 6e 63 74 69 6f 6e 73 0a 20 20 2a 2a 20 functions. **
bfd0: 64 65 66 69 6e 65 64 20 69 6e 20 74 68 69 73 20 defined in this
bfe0: 66 69 6c 65 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 file.. **. **
bff0: 54 68 65 20 61 72 72 61 79 20 63 61 6e 6e 6f 74 The array cannot
c000: 20 62 65 20 63 6f 6e 73 74 61 6e 74 20 73 69 6e be constant sin
c010: 63 65 20 63 68 61 6e 67 65 73 20 61 72 65 20 6d ce changes are m
c020: 61 64 65 20 74 6f 20 74 68 65 0a 20 20 2a 2a 20 ade to the. **
c030: 46 75 6e 63 44 65 66 2e 70 48 61 73 68 20 65 6c FuncDef.pHash el
c040: 65 6d 65 6e 74 73 20 61 74 20 73 74 61 72 74 2d ements at start-
c050: 74 69 6d 65 2e 20 20 54 68 65 20 65 6c 65 6d 65 time. The eleme
c060: 6e 74 73 20 6f 66 20 74 68 69 73 20 61 72 72 61 nts of this arra
c070: 79 0a 20 20 2a 2a 20 61 72 65 20 72 65 61 64 2d y. ** are read-
c080: 6f 6e 6c 79 20 61 66 74 65 72 20 69 6e 69 74 69 only after initi
c090: 61 6c 69 7a 61 74 69 6f 6e 20 69 73 20 63 6f 6d alization is com
c0a0: 70 6c 65 74 65 2e 0a 20 20 2a 2f 0a 20 20 73 74 plete.. */. st
c0b0: 61 74 69 63 20 53 51 4c 49 54 45 5f 57 53 44 20 atic SQLITE_WSD
c0c0: 46 75 6e 63 44 65 66 20 61 42 75 69 6c 74 69 6e FuncDef aBuiltin
c0d0: 46 75 6e 63 5b 5d 20 3d 20 7b 0a 20 20 20 20 46 Func[] = {. F
c0e0: 55 4e 43 54 49 4f 4e 28 6c 74 72 69 6d 2c 20 20 UNCTION(ltrim,
c0f0: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 31 1, 1
c100: 2c 20 30 2c 20 74 72 69 6d 46 75 6e 63 20 20 20 , 0, trimFunc
c110: 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e ),. FUN
c120: 43 54 49 4f 4e 28 6c 74 72 69 6d 2c 20 20 20 20 CTION(ltrim,
c130: 20 20 20 20 20 20 20 20 20 20 32 2c 20 31 2c 20 2, 1,
c140: 30 2c 20 74 72 69 6d 46 75 6e 63 20 20 20 20 20 0, trimFunc
c150: 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 ),. FUNCT
c160: 49 4f 4e 28 72 74 72 69 6d 2c 20 20 20 20 20 20 ION(rtrim,
c170: 20 20 20 20 20 20 20 20 31 2c 20 32 2c 20 30 2c 1, 2, 0,
c180: 20 74 72 69 6d 46 75 6e 63 20 20 20 20 20 20 20 trimFunc
c190: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f ),. FUNCTIO
c1a0: 4e 28 72 74 72 69 6d 2c 20 20 20 20 20 20 20 20 N(rtrim,
c1b0: 20 20 20 20 20 20 32 2c 20 32 2c 20 30 2c 20 74 2, 2, 0, t
c1c0: 72 69 6d 46 75 6e 63 20 20 20 20 20 20 20 20 20 rimFunc
c1d0: 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 ),. FUNCTION(
c1e0: 74 72 69 6d 2c 20 20 20 20 20 20 20 20 20 20 20 trim,
c1f0: 20 20 20 20 31 2c 20 33 2c 20 30 2c 20 74 72 69 1, 3, 0, tri
c200: 6d 46 75 6e 63 20 20 20 20 20 20 20 20 20 29 2c mFunc ),
c210: 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 74 72 . FUNCTION(tr
c220: 69 6d 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 im,
c230: 20 20 32 2c 20 33 2c 20 30 2c 20 74 72 69 6d 46 2, 3, 0, trimF
c240: 75 6e 63 20 20 20 20 20 20 20 20 20 29 2c 0a 20 unc ),.
c250: 20 20 20 46 55 4e 43 54 49 4f 4e 28 6d 69 6e 2c FUNCTION(min,
c260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d -
c270: 31 2c 20 30 2c 20 31 2c 20 6d 69 6e 6d 61 78 46 1, 0, 1, minmaxF
c280: 75 6e 63 20 20 20 20 20 20 20 29 2c 0a 20 20 20 unc ),.
c290: 20 46 55 4e 43 54 49 4f 4e 28 6d 69 6e 2c 20 20 FUNCTION(min,
c2a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2c 0,
c2b0: 20 30 2c 20 31 2c 20 30 20 20 20 20 20 20 20 20 0, 1, 0
c2c0: 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 41 ),. A
c2d0: 47 47 52 45 47 41 54 45 32 28 6d 69 6e 2c 20 20 GGREGATE2(min,
c2e0: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 1, 0
c2f0: 2c 20 31 2c 20 6d 69 6e 6d 61 78 53 74 65 70 2c , 1, minmaxStep,
c300: 20 20 20 20 20 20 6d 69 6e 4d 61 78 46 69 6e 61 minMaxFina
c310: 6c 69 7a 65 2c 0a 20 20 20 20 20 20 20 20 20 20 lize,.
c320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
c330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
c340: 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4d 49 4e 4d SQLITE_FUNC_MINM
c350: 41 58 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 AX ),. FUNCTI
c360: 4f 4e 28 6d 61 78 2c 20 20 20 20 20 20 20 20 20 ON(max,
c370: 20 20 20 20 20 20 2d 31 2c 20 31 2c 20 31 2c 20 -1, 1, 1,
c380: 6d 69 6e 6d 61 78 46 75 6e 63 20 20 20 20 20 20 minmaxFunc
c390: 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e ),. FUNCTION
c3a0: 28 6d 61 78 2c 20 20 20 20 20 20 20 20 20 20 20 (max,
c3b0: 20 20 20 20 20 30 2c 20 31 2c 20 31 2c 20 30 20 0, 1, 1, 0
c3c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 )
c3d0: 2c 0a 20 20 20 20 41 47 47 52 45 47 41 54 45 32 ,. AGGREGATE2
c3e0: 28 6d 61 78 2c 20 20 20 20 20 20 20 20 20 20 20 (max,
c3f0: 20 20 20 31 2c 20 31 2c 20 31 2c 20 6d 69 6e 6d 1, 1, 1, minm
c400: 61 78 53 74 65 70 2c 20 20 20 20 20 20 6d 69 6e axStep, min
c410: 4d 61 78 46 69 6e 61 6c 69 7a 65 2c 0a 20 20 20 MaxFinalize,.
c420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
c430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
c440: 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 46 55 SQLITE_FU
c450: 4e 43 5f 4d 49 4e 4d 41 58 20 29 2c 0a 20 20 20 NC_MINMAX ),.
c460: 20 46 55 4e 43 54 49 4f 4e 32 28 74 79 70 65 6f FUNCTION2(typeo
c470: 66 2c 20 20 20 20 20 20 20 20 20 20 20 20 31 2c f, 1,
c480: 20 30 2c 20 30 2c 20 74 79 70 65 6f 66 46 75 6e 0, 0, typeofFun
c490: 63 2c 20 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f c, SQLITE_FUNC_
c4a0: 54 59 50 45 4f 46 29 2c 0a 20 20 20 20 46 55 4e TYPEOF),. FUN
c4b0: 43 54 49 4f 4e 32 28 6c 65 6e 67 74 68 2c 20 20 CTION2(length,
c4c0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
c4d0: 30 2c 20 6c 65 6e 67 74 68 46 75 6e 63 2c 20 20 0, lengthFunc,
c4e0: 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c 45 4e 47 SQLITE_FUNC_LENG
c4f0: 54 48 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f TH),. FUNCTIO
c500: 4e 28 69 6e 73 74 72 2c 20 20 20 20 20 20 20 20 N(instr,
c510: 20 20 20 20 20 20 32 2c 20 30 2c 20 30 2c 20 69 2, 0, 0, i
c520: 6e 73 74 72 46 75 6e 63 20 20 20 20 20 20 20 20 nstrFunc
c530: 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 ),. FUNCTION(
c540: 73 75 62 73 74 72 2c 20 20 20 20 20 20 20 20 20 substr,
c550: 20 20 20 20 32 2c 20 30 2c 20 30 2c 20 73 75 62 2, 0, 0, sub
c560: 73 74 72 46 75 6e 63 20 20 20 20 20 20 20 29 2c strFunc ),
c570: 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 73 75 . FUNCTION(su
c580: 62 73 74 72 2c 20 20 20 20 20 20 20 20 20 20 20 bstr,
c590: 20 20 33 2c 20 30 2c 20 30 2c 20 73 75 62 73 74 3, 0, 0, subst
c5a0: 72 46 75 6e 63 20 20 20 20 20 20 20 29 2c 0a 20 rFunc ),.
c5b0: 20 20 20 46 55 4e 43 54 49 4f 4e 28 70 72 69 6e FUNCTION(prin
c5c0: 74 66 2c 20 20 20 20 20 20 20 20 20 20 20 20 2d tf, -
c5d0: 31 2c 20 30 2c 20 30 2c 20 70 72 69 6e 74 66 46 1, 0, 0, printfF
c5e0: 75 6e 63 20 20 20 20 20 20 20 29 2c 0a 20 20 20 unc ),.
c5f0: 20 46 55 4e 43 54 49 4f 4e 28 75 6e 69 63 6f 64 FUNCTION(unicod
c600: 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 31 2c e, 1,
c610: 20 30 2c 20 30 2c 20 75 6e 69 63 6f 64 65 46 75 0, 0, unicodeFu
c620: 6e 63 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 nc ),. F
c630: 55 4e 43 54 49 4f 4e 28 63 68 61 72 2c 20 20 20 UNCTION(char,
c640: 20 20 20 20 20 20 20 20 20 20 20 2d 31 2c 20 30 -1, 0
c650: 2c 20 30 2c 20 63 68 61 72 46 75 6e 63 20 20 20 , 0, charFunc
c660: 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e ),. FUN
c670: 43 54 49 4f 4e 28 61 62 73 2c 20 20 20 20 20 20 CTION(abs,
c680: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
c690: 30 2c 20 61 62 73 46 75 6e 63 20 20 20 20 20 20 0, absFunc
c6a0: 20 20 20 20 29 2c 0a 23 69 66 6e 64 65 66 20 53 ),.#ifndef S
c6b0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 46 4c 4f 41 54 QLITE_OMIT_FLOAT
c6c0: 49 4e 47 5f 50 4f 49 4e 54 0a 20 20 20 20 46 55 ING_POINT. FU
c6d0: 4e 43 54 49 4f 4e 28 72 6f 75 6e 64 2c 20 20 20 NCTION(round,
c6e0: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 1, 0,
c6f0: 20 30 2c 20 72 6f 75 6e 64 46 75 6e 63 20 20 20 0, roundFunc
c700: 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 ),. FUNC
c710: 54 49 4f 4e 28 72 6f 75 6e 64 2c 20 20 20 20 20 TION(round,
c720: 20 20 20 20 20 20 20 20 20 32 2c 20 30 2c 20 30 2, 0, 0
c730: 2c 20 72 6f 75 6e 64 46 75 6e 63 20 20 20 20 20 , roundFunc
c740: 20 20 20 29 2c 0a 23 65 6e 64 69 66 0a 20 20 20 ),.#endif.
c750: 20 46 55 4e 43 54 49 4f 4e 28 75 70 70 65 72 2c FUNCTION(upper,
c760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 1,
c770: 20 30 2c 20 30 2c 20 75 70 70 65 72 46 75 6e 63 0, 0, upperFunc
c780: 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 ),. F
c790: 55 4e 43 54 49 4f 4e 28 6c 6f 77 65 72 2c 20 20 UNCTION(lower,
c7a0: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 1, 0
c7b0: 2c 20 30 2c 20 6c 6f 77 65 72 46 75 6e 63 20 20 , 0, lowerFunc
c7c0: 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e ),. FUN
c7d0: 43 54 49 4f 4e 28 63 6f 61 6c 65 73 63 65 2c 20 CTION(coalesce,
c7e0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
c7f0: 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 20 0, 0
c800: 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 ),. FUNCT
c810: 49 4f 4e 28 63 6f 61 6c 65 73 63 65 2c 20 20 20 ION(coalesce,
c820: 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 0, 0, 0,
c830: 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0
c840: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f ),. FUNCTIO
c850: 4e 32 28 63 6f 61 6c 65 73 63 65 2c 20 20 20 20 N2(coalesce,
c860: 20 20 20 20 20 2d 31 2c 20 30 2c 20 30 2c 20 6e -1, 0, 0, n
c870: 6f 6f 70 46 75 6e 63 2c 20 20 53 51 4c 49 54 45 oopFunc, SQLITE
c880: 5f 46 55 4e 43 5f 43 4f 41 4c 45 53 43 45 29 2c _FUNC_COALESCE),
c890: 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 68 65 . FUNCTION(he
c8a0: 78 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 x,
c8b0: 20 20 31 2c 20 30 2c 20 30 2c 20 68 65 78 46 75 1, 0, 0, hexFu
c8c0: 6e 63 20 20 20 20 20 20 20 20 20 20 29 2c 0a 20 nc ),.
c8d0: 20 20 20 46 55 4e 43 54 49 4f 4e 32 28 69 66 6e FUNCTION2(ifn
c8e0: 75 6c 6c 2c 20 20 20 20 20 20 20 20 20 20 20 20 ull,
c8f0: 32 2c 20 30 2c 20 30 2c 20 6e 6f 6f 70 46 75 6e 2, 0, 0, noopFun
c900: 63 2c 20 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f c, SQLITE_FUNC_
c910: 43 4f 41 4c 45 53 43 45 29 2c 0a 20 20 20 20 46 COALESCE),. F
c920: 55 4e 43 54 49 4f 4e 32 28 75 6e 6c 69 6b 65 6c UNCTION2(unlikel
c930: 79 2c 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 y, 1, 0
c940: 2c 20 30 2c 20 6e 6f 6f 70 46 75 6e 63 2c 20 20 , 0, noopFunc,
c950: 53 51 4c 49 54 45 5f 46 55 4e 43 5f 55 4e 4c 49 SQLITE_FUNC_UNLI
c960: 4b 45 4c 59 29 2c 0a 20 20 20 20 46 55 4e 43 54 KELY),. FUNCT
c970: 49 4f 4e 32 28 6c 69 6b 65 6c 69 68 6f 6f 64 2c ION2(likelihood,
c980: 20 20 20 20 20 20 20 20 32 2c 20 30 2c 20 30 2c 2, 0, 0,
c990: 20 6e 6f 6f 70 46 75 6e 63 2c 20 20 53 51 4c 49 noopFunc, SQLI
c9a0: 54 45 5f 46 55 4e 43 5f 55 4e 4c 49 4b 45 4c 59 TE_FUNC_UNLIKELY
c9b0: 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 32 ),. FUNCTION2
c9c0: 28 6c 69 6b 65 6c 79 2c 20 20 20 20 20 20 20 20 (likely,
c9d0: 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 6e 6f 6f 1, 0, 0, noo
c9e0: 70 46 75 6e 63 2c 20 20 53 51 4c 49 54 45 5f 46 pFunc, SQLITE_F
c9f0: 55 4e 43 5f 55 4e 4c 49 4b 45 4c 59 29 2c 0a 20 UNC_UNLIKELY),.
ca00: 20 20 20 56 46 55 4e 43 54 49 4f 4e 28 72 61 6e VFUNCTION(ran
ca10: 64 6f 6d 2c 20 20 20 20 20 20 20 20 20 20 20 20 dom,
ca20: 30 2c 20 30 2c 20 30 2c 20 72 61 6e 64 6f 6d 46 0, 0, 0, randomF
ca30: 75 6e 63 20 20 20 20 20 20 20 29 2c 0a 20 20 20 unc ),.
ca40: 20 56 46 55 4e 43 54 49 4f 4e 28 72 61 6e 64 6f VFUNCTION(rando
ca50: 6d 62 6c 6f 62 2c 20 20 20 20 20 20 20 20 31 2c mblob, 1,
ca60: 20 30 2c 20 30 2c 20 72 61 6e 64 6f 6d 42 6c 6f 0, 0, randomBlo
ca70: 62 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 b ),. F
ca80: 55 4e 43 54 49 4f 4e 28 6e 75 6c 6c 69 66 2c 20 UNCTION(nullif,
ca90: 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 30 2, 0
caa0: 2c 20 31 2c 20 6e 75 6c 6c 69 66 46 75 6e 63 20 , 1, nullifFunc
cab0: 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e ),. FUN
cac0: 43 54 49 4f 4e 28 73 71 6c 69 74 65 5f 76 65 72 CTION(sqlite_ver
cad0: 73 69 6f 6e 2c 20 20 20 20 20 30 2c 20 30 2c 20 sion, 0, 0,
cae0: 30 2c 20 76 65 72 73 69 6f 6e 46 75 6e 63 20 20 0, versionFunc
caf0: 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 ),. FUNCT
cb00: 49 4f 4e 28 73 71 6c 69 74 65 5f 73 6f 75 72 63 ION(sqlite_sourc
cb10: 65 5f 69 64 2c 20 20 20 30 2c 20 30 2c 20 30 2c e_id, 0, 0, 0,
cb20: 20 73 6f 75 72 63 65 69 64 46 75 6e 63 20 20 20 sourceidFunc
cb30: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f ),. FUNCTIO
cb40: 4e 28 73 71 6c 69 74 65 5f 6c 6f 67 2c 20 20 20 N(sqlite_log,
cb50: 20 20 20 20 20 20 32 2c 20 30 2c 20 30 2c 20 65 2, 0, 0, e
cb60: 72 72 6c 6f 67 46 75 6e 63 20 20 20 20 20 20 20 rrlogFunc
cb70: 29 2c 0a 23 69 66 20 53 51 4c 49 54 45 5f 55 53 ),.#if SQLITE_US
cb80: 45 52 5f 41 55 54 48 45 4e 54 49 43 41 54 49 4f ER_AUTHENTICATIO
cb90: 4e 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 73 N. FUNCTION(s
cba0: 71 6c 69 74 65 5f 63 72 79 70 74 2c 20 20 20 20 qlite_crypt,
cbb0: 20 20 20 32 2c 20 30 2c 20 30 2c 20 73 71 6c 69 2, 0, 0, sqli
cbc0: 74 65 33 43 72 79 70 74 46 75 6e 63 20 29 2c 0a te3CryptFunc ),.
cbd0: 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 53 #endif.#ifndef S
cbe0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 49 QLITE_OMIT_COMPI
cbf0: 4c 45 4f 50 54 49 4f 4e 5f 44 49 41 47 53 0a 20 LEOPTION_DIAGS.
cc00: 20 20 20 46 55 4e 43 54 49 4f 4e 28 73 71 6c 69 FUNCTION(sqli
cc10: 74 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e te_compileoption
cc20: 5f 75 73 65 64 2c 31 2c 20 30 2c 20 30 2c 20 63 _used,1, 0, 0, c
cc30: 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 75 73 65 64 ompileoptionused
cc40: 46 75 6e 63 20 20 29 2c 0a 20 20 20 20 46 55 4e Func ),. FUN
cc50: 43 54 49 4f 4e 28 73 71 6c 69 74 65 5f 63 6f 6d CTION(sqlite_com
cc60: 70 69 6c 65 6f 70 74 69 6f 6e 5f 67 65 74 2c 20 pileoption_get,
cc70: 31 2c 20 30 2c 20 30 2c 20 63 6f 6d 70 69 6c 65 1, 0, 0, compile
cc80: 6f 70 74 69 6f 6e 67 65 74 46 75 6e 63 20 20 29 optiongetFunc )
cc90: 2c 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 ,.#endif /* SQLI
cca0: 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f TE_OMIT_COMPILEO
ccb0: 50 54 49 4f 4e 5f 44 49 41 47 53 20 2a 2f 0a 20 PTION_DIAGS */.
ccc0: 20 20 20 46 55 4e 43 54 49 4f 4e 28 71 75 6f 74 FUNCTION(quot
ccd0: 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e,
cce0: 31 2c 20 30 2c 20 30 2c 20 71 75 6f 74 65 46 75 1, 0, 0, quoteFu
ccf0: 6e 63 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 nc ),.
cd00: 20 56 46 55 4e 43 54 49 4f 4e 28 6c 61 73 74 5f VFUNCTION(last_
cd10: 69 6e 73 65 72 74 5f 72 6f 77 69 64 2c 20 30 2c insert_rowid, 0,
cd20: 20 30 2c 20 30 2c 20 6c 61 73 74 5f 69 6e 73 65 0, 0, last_inse
cd30: 72 74 5f 72 6f 77 69 64 29 2c 0a 20 20 20 20 56 rt_rowid),. V
cd40: 46 55 4e 43 54 49 4f 4e 28 63 68 61 6e 67 65 73 FUNCTION(changes
cd50: 2c 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 , 0, 0
cd60: 2c 20 30 2c 20 63 68 61 6e 67 65 73 20 20 20 20 , 0, changes
cd70: 20 20 20 20 20 20 29 2c 0a 20 20 20 20 56 46 55 ),. VFU
cd80: 4e 43 54 49 4f 4e 28 74 6f 74 61 6c 5f 63 68 61 NCTION(total_cha
cd90: 6e 67 65 73 2c 20 20 20 20 20 30 2c 20 30 2c 20 nges, 0, 0,
cda0: 30 2c 20 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 0, total_changes
cdb0: 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 ),. FUNCT
cdc0: 49 4f 4e 28 72 65 70 6c 61 63 65 2c 20 20 20 20 ION(replace,
cdd0: 20 20 20 20 20 20 20 20 33 2c 20 30 2c 20 30 2c 3, 0, 0,
cde0: 20 72 65 70 6c 61 63 65 46 75 6e 63 20 20 20 20 replaceFunc
cdf0: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f ),. FUNCTIO
ce00: 4e 28 7a 65 72 6f 62 6c 6f 62 2c 20 20 20 20 20 N(zeroblob,
ce10: 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 7a 1, 0, 0, z
ce20: 65 72 6f 62 6c 6f 62 46 75 6e 63 20 20 20 20 20 eroblobFunc
ce30: 29 2c 0a 20 20 23 69 66 64 65 66 20 53 51 4c 49 ),. #ifdef SQLI
ce40: 54 45 5f 53 4f 55 4e 44 45 58 0a 20 20 20 20 46 TE_SOUNDEX. F
ce50: 55 4e 43 54 49 4f 4e 28 73 6f 75 6e 64 65 78 2c UNCTION(soundex,
ce60: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 1, 0
ce70: 2c 20 30 2c 20 73 6f 75 6e 64 65 78 46 75 6e 63 , 0, soundexFunc
ce80: 20 20 20 20 20 20 29 2c 0a 20 20 23 65 6e 64 69 ),. #endi
ce90: 66 0a 20 20 23 69 66 6e 64 65 66 20 53 51 4c 49 f. #ifndef SQLI
cea0: 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 TE_OMIT_LOAD_EXT
ceb0: 45 4e 53 49 4f 4e 0a 20 20 20 20 46 55 4e 43 54 ENSION. FUNCT
cec0: 49 4f 4e 28 6c 6f 61 64 5f 65 78 74 65 6e 73 69 ION(load_extensi
ced0: 6f 6e 2c 20 20 20 20 20 31 2c 20 30 2c 20 30 2c on, 1, 0, 0,
cee0: 20 6c 6f 61 64 45 78 74 20 20 20 20 20 20 20 20 loadExt
cef0: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f ),. FUNCTIO
cf00: 4e 28 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e N(load_extension
cf10: 2c 20 20 20 20 20 32 2c 20 30 2c 20 30 2c 20 6c , 2, 0, 0, l
cf20: 6f 61 64 45 78 74 20 20 20 20 20 20 20 20 20 20 oadExt
cf30: 29 2c 0a 20 20 23 65 6e 64 69 66 0a 20 20 20 20 ),. #endif.
cf40: 41 47 47 52 45 47 41 54 45 28 73 75 6d 2c 20 20 AGGREGATE(sum,
cf50: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 1,
cf60: 30 2c 20 30 2c 20 73 75 6d 53 74 65 70 2c 20 20 0, 0, sumStep,
cf70: 20 20 20 20 20 20 20 73 75 6d 46 69 6e 61 6c 69 sumFinali
cf80: 7a 65 20 20 20 20 29 2c 0a 20 20 20 20 41 47 47 ze ),. AGG
cf90: 52 45 47 41 54 45 28 74 6f 74 61 6c 2c 20 20 20 REGATE(total,
cfa0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
cfb0: 30 2c 20 73 75 6d 53 74 65 70 2c 20 20 20 20 20 0, sumStep,
cfc0: 20 20 20 20 74 6f 74 61 6c 46 69 6e 61 6c 69 7a totalFinaliz
cfd0: 65 20 20 20 20 29 2c 0a 20 20 20 20 41 47 47 52 e ),. AGGR
cfe0: 45 47 41 54 45 28 61 76 67 2c 20 20 20 20 20 20 EGATE(avg,
cff0: 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 1, 0, 0
d000: 2c 20 73 75 6d 53 74 65 70 2c 20 20 20 20 20 20 , sumStep,
d010: 20 20 20 61 76 67 46 69 6e 61 6c 69 7a 65 20 20 avgFinalize
d020: 20 20 29 2c 0a 20 20 20 20 41 47 47 52 45 47 41 ),. AGGREGA
d030: 54 45 32 28 63 6f 75 6e 74 2c 20 20 20 20 20 20 TE2(count,
d040: 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 63 0, 0, 0, c
d050: 6f 75 6e 74 53 74 65 70 2c 20 20 20 20 20 20 20 ountStep,
d060: 63 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 2c 0a 20 countFinalize,.
d070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 SQ
d080: 4c 49 54 45 5f 46 55 4e 43 5f 43 4f 55 4e 54 20 LITE_FUNC_COUNT
d090: 20 29 2c 0a 20 20 20 20 41 47 47 52 45 47 41 54 ),. AGGREGAT
d0a0: 45 28 63 6f 75 6e 74 2c 20 20 20 20 20 20 20 20 E(count,
d0b0: 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 63 6f 1, 0, 0, co
d0c0: 75 6e 74 53 74 65 70 2c 20 20 20 20 20 20 20 63 untStep, c
d0d0: 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 20 20 29 2c ountFinalize ),
d0e0: 0a 20 20 20 20 41 47 47 52 45 47 41 54 45 28 67 . AGGREGATE(g
d0f0: 72 6f 75 70 5f 63 6f 6e 63 61 74 2c 20 20 20 20 roup_concat,
d100: 20 20 31 2c 20 30 2c 20 30 2c 20 67 72 6f 75 70 1, 0, 0, group
d110: 43 6f 6e 63 61 74 53 74 65 70 2c 20 67 72 6f 75 ConcatStep, grou
d120: 70 43 6f 6e 63 61 74 46 69 6e 61 6c 69 7a 65 29 pConcatFinalize)
d130: 2c 0a 20 20 20 20 41 47 47 52 45 47 41 54 45 28 ,. AGGREGATE(
d140: 67 72 6f 75 70 5f 63 6f 6e 63 61 74 2c 20 20 20 group_concat,
d150: 20 20 20 32 2c 20 30 2c 20 30 2c 20 67 72 6f 75 2, 0, 0, grou
d160: 70 43 6f 6e 63 61 74 53 74 65 70 2c 20 67 72 6f pConcatStep, gro
d170: 75 70 43 6f 6e 63 61 74 46 69 6e 61 6c 69 7a 65 upConcatFinalize
d180: 29 2c 0a 20 20 0a 20 20 20 20 4c 49 4b 45 46 55 ),. . LIKEFU
d190: 4e 43 28 67 6c 6f 62 2c 20 32 2c 20 26 67 6c 6f NC(glob, 2, &glo
d1a0: 62 49 6e 66 6f 2c 20 53 51 4c 49 54 45 5f 46 55 bInfo, SQLITE_FU
d1b0: 4e 43 5f 4c 49 4b 45 7c 53 51 4c 49 54 45 5f 46 NC_LIKE|SQLITE_F
d1c0: 55 4e 43 5f 43 41 53 45 29 2c 0a 20 20 23 69 66 UNC_CASE),. #if
d1d0: 64 65 66 20 53 51 4c 49 54 45 5f 43 41 53 45 5f def SQLITE_CASE_
d1e0: 53 45 4e 53 49 54 49 56 45 5f 4c 49 4b 45 0a 20 SENSITIVE_LIKE.
d1f0: 20 20 20 4c 49 4b 45 46 55 4e 43 28 6c 69 6b 65 LIKEFUNC(like
d200: 2c 20 32 2c 20 26 6c 69 6b 65 49 6e 66 6f 41 6c , 2, &likeInfoAl
d210: 74 2c 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c t, SQLITE_FUNC_L
d220: 49 4b 45 7c 53 51 4c 49 54 45 5f 46 55 4e 43 5f IKE|SQLITE_FUNC_
d230: 43 41 53 45 29 2c 0a 20 20 20 20 4c 49 4b 45 46 CASE),. LIKEF
d240: 55 4e 43 28 6c 69 6b 65 2c 20 33 2c 20 26 6c 69 UNC(like, 3, &li
d250: 6b 65 49 6e 66 6f 41 6c 74 2c 20 53 51 4c 49 54 keInfoAlt, SQLIT
d260: 45 5f 46 55 4e 43 5f 4c 49 4b 45 7c 53 51 4c 49 E_FUNC_LIKE|SQLI
d270: 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 2c 0a 20 TE_FUNC_CASE),.
d280: 20 23 65 6c 73 65 0a 20 20 20 20 4c 49 4b 45 46 #else. LIKEF
d290: 55 4e 43 28 6c 69 6b 65 2c 20 32 2c 20 26 6c 69 UNC(like, 2, &li
d2a0: 6b 65 49 6e 66 6f 4e 6f 72 6d 2c 20 53 51 4c 49 keInfoNorm, SQLI
d2b0: 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 29 2c 0a 20 TE_FUNC_LIKE),.
d2c0: 20 20 20 4c 49 4b 45 46 55 4e 43 28 6c 69 6b 65 LIKEFUNC(like
d2d0: 2c 20 33 2c 20 26 6c 69 6b 65 49 6e 66 6f 4e 6f , 3, &likeInfoNo
d2e0: 72 6d 2c 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f rm, SQLITE_FUNC_
d2f0: 4c 49 4b 45 29 2c 0a 20 20 23 65 6e 64 69 66 0a LIKE),. #endif.
d300: 20 20 7d 3b 0a 0a 20 20 69 6e 74 20 69 3b 0a 20 };.. int i;.
d310: 20 46 75 6e 63 44 65 66 48 61 73 68 20 2a 70 48 FuncDefHash *pH
d320: 61 73 68 20 3d 20 26 47 4c 4f 42 41 4c 28 46 75 ash = &GLOBAL(Fu
d330: 6e 63 44 65 66 48 61 73 68 2c 20 73 71 6c 69 74 ncDefHash, sqlit
d340: 65 33 47 6c 6f 62 61 6c 46 75 6e 63 74 69 6f 6e e3GlobalFunction
d350: 73 29 3b 0a 20 20 46 75 6e 63 44 65 66 20 2a 61 s);. FuncDef *a
d360: 46 75 6e 63 20 3d 20 28 46 75 6e 63 44 65 66 2a Func = (FuncDef*
d370: 29 26 47 4c 4f 42 41 4c 28 46 75 6e 63 44 65 66 )&GLOBAL(FuncDef
d380: 2c 20 61 42 75 69 6c 74 69 6e 46 75 6e 63 29 3b , aBuiltinFunc);
d390: 0a 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 41 .. for(i=0; i<A
d3a0: 72 72 61 79 53 69 7a 65 28 61 42 75 69 6c 74 69 rraySize(aBuilti
d3b0: 6e 46 75 6e 63 29 3b 20 69 2b 2b 29 7b 0a 20 20 nFunc); i++){.
d3c0: 20 20 73 71 6c 69 74 65 33 46 75 6e 63 44 65 66 sqlite3FuncDef
d3d0: 49 6e 73 65 72 74 28 70 48 61 73 68 2c 20 26 61 Insert(pHash, &a
d3e0: 46 75 6e 63 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 Func[i]);. }.
d3f0: 73 71 6c 69 74 65 33 52 65 67 69 73 74 65 72 44 sqlite3RegisterD
d400: 61 74 65 54 69 6d 65 46 75 6e 63 74 69 6f 6e 73 ateTimeFunctions
d410: 28 29 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 ();.#ifndef SQLI
d420: 54 45 5f 4f 4d 49 54 5f 41 4c 54 45 52 54 41 42 TE_OMIT_ALTERTAB
d430: 4c 45 0a 20 20 73 71 6c 69 74 65 33 41 6c 74 65 LE. sqlite3Alte
d440: 72 46 75 6e 63 74 69 6f 6e 73 28 29 3b 0a 23 65 rFunctions();.#e
d450: 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 ndif.#if defined
d460: 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 53 (SQLITE_ENABLE_S
d470: 54 41 54 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 TAT3) || defined
d480: 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 53 (SQLITE_ENABLE_S
d490: 54 41 54 34 29 0a 20 20 73 71 6c 69 74 65 33 41 TAT4). sqlite3A
d4a0: 6e 61 6c 79 7a 65 46 75 6e 63 74 69 6f 6e 73 28 nalyzeFunctions(
d4b0: 29 3b 0a 23 65 6e 64 69 66 0a 7d 0a );.#endif.}.