0000: 2f 2a 0a 2a 2a 20 32 30 30 32 20 46 65 62 72 75 /*.** 2002 Febru
0010: 61 72 79 20 32 33 0a 2a 2a 0a 2a 2a 20 54 68 65 ary 23.**.** The
0020: 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d author disclaim
0030: 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 s copyright to t
0040: 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e his source code.
0050: 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a In place of.**
0060: 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c a legal notice,
0070: 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 here is a bless
0080: 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 ing:.**.** Ma
0090: 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e y you do good an
00a0: 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 d not evil..**
00b0: 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 May you find f
00c0: 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 orgiveness for y
00d0: 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 ourself and forg
00e0: 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 ive others..**
00f0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 May you share
0100: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 freely, never ta
0110: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 king more than y
0120: 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a ou give..**.****
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0170: 2a 2a 2a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 *****.** This fi
0180: 6c 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 le contains the
0190: 43 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 C functions that
01a0: 20 69 6d 70 6c 65 6d 65 6e 74 20 76 61 72 69 6f implement vario
01b0: 75 73 20 53 51 4c 0a 2a 2a 20 66 75 6e 63 74 69 us SQL.** functi
01c0: 6f 6e 73 20 6f 66 20 53 51 4c 69 74 65 2e 20 20 ons of SQLite.
01d0: 0a 2a 2a 0a 2a 2a 20 54 68 65 72 65 20 69 73 20 .**.** There is
01e0: 6f 6e 6c 79 20 6f 6e 65 20 65 78 70 6f 72 74 65 only one exporte
01f0: 64 20 73 79 6d 62 6f 6c 20 69 6e 20 74 68 69 73 d symbol in this
0200: 20 66 69 6c 65 20 2d 20 74 68 65 20 66 75 6e 63 file - the func
0210: 74 69 6f 6e 0a 2a 2a 20 73 71 6c 69 74 65 52 65 tion.** sqliteRe
0220: 67 69 73 74 65 72 42 75 69 6c 64 69 6e 46 75 6e gisterBuildinFun
0230: 63 74 69 6f 6e 73 28 29 20 66 6f 75 6e 64 20 61 ctions() found a
0240: 74 20 74 68 65 20 62 6f 74 74 6f 6d 20 6f 66 20 t the bottom of
0250: 74 68 65 20 66 69 6c 65 2e 0a 2a 2a 20 41 6c 6c the file..** All
0260: 20 6f 74 68 65 72 20 63 6f 64 65 20 68 61 73 20 other code has
0270: 66 69 6c 65 20 73 63 6f 70 65 2e 0a 2a 2a 0a 2a file scope..**.*
0280: 2a 20 24 49 64 3a 20 66 75 6e 63 2e 63 2c 76 20 * $Id: func.c,v
0290: 31 2e 38 31 20 32 30 30 34 2f 30 38 2f 33 31 20 1.81 2004/08/31
02a0: 30 30 3a 35 32 3a 33 37 20 64 72 68 20 45 78 70 00:52:37 drh Exp
02b0: 20 24 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 3c $.*/.#include <
02c0: 63 74 79 70 65 2e 68 3e 0a 23 69 6e 63 6c 75 64 ctype.h>.#includ
02d0: 65 20 3c 6d 61 74 68 2e 68 3e 0a 23 69 6e 63 6c e <math.h>.#incl
02e0: 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 ude <stdlib.h>.#
02f0: 69 6e 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e include <assert.
0300: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c h>.#include "sql
0310: 69 74 65 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 iteInt.h".#inclu
0320: 64 65 20 22 76 64 62 65 49 6e 74 2e 68 22 0a 23 de "vdbeInt.h".#
0330: 69 6e 63 6c 75 64 65 20 22 6f 73 2e 68 22 0a 0a include "os.h"..
0340: 73 74 61 74 69 63 20 43 6f 6c 6c 53 65 71 20 2a static CollSeq *
0350: 73 71 6c 69 74 65 33 47 65 74 46 75 6e 63 43 6f sqlite3GetFuncCo
0360: 6c 6c 53 65 71 28 73 71 6c 69 74 65 33 5f 63 6f llSeq(sqlite3_co
0370: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b ntext *context){
0380: 0a 20 20 72 65 74 75 72 6e 20 63 6f 6e 74 65 78 . return contex
0390: 74 2d 3e 70 43 6f 6c 6c 3b 0a 7d 0a 0a 2f 2a 0a t->pColl;.}../*.
03a0: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** Implementatio
03b0: 6e 20 6f 66 20 74 68 65 20 6e 6f 6e 2d 61 67 67 n of the non-agg
03c0: 72 65 67 61 74 65 20 6d 69 6e 28 29 20 61 6e 64 regate min() and
03d0: 20 6d 61 78 28 29 20 66 75 6e 63 74 69 6f 6e 73 max() functions
03e0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
03f0: 6d 69 6e 6d 61 78 46 75 6e 63 28 0a 20 20 73 71 minmaxFunc(. sq
0400: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
0410: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 ontext,. int ar
0420: 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 gc,. sqlite3_va
0430: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 lue **argv.){.
0440: 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 6d 61 73 int i;. int mas
0450: 6b 3b 20 20 20 20 2f 2a 20 30 20 66 6f 72 20 6d k; /* 0 for m
0460: 69 6e 28 29 20 6f 72 20 30 78 66 66 66 66 66 66 in() or 0xffffff
0470: 66 66 20 66 6f 72 20 6d 61 78 28 29 20 2a 2f 0a ff for max() */.
0480: 20 20 69 6e 74 20 69 42 65 73 74 3b 0a 20 20 43 int iBest;. C
0490: 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c 3b 0a 0a ollSeq *pColl;..
04a0: 20 20 69 66 28 20 61 72 67 63 3d 3d 30 20 29 20 if( argc==0 )
04b0: 72 65 74 75 72 6e 3b 0a 20 20 6d 61 73 6b 20 3d return;. mask =
04c0: 20 28 69 6e 74 29 73 71 6c 69 74 65 33 5f 75 73 (int)sqlite3_us
04d0: 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 er_data(context)
04e0: 3b 0a 20 20 70 43 6f 6c 6c 20 3d 20 73 71 6c 69 ;. pColl = sqli
04f0: 74 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53 65 te3GetFuncCollSe
0500: 71 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 61 73 q(context);. as
0510: 73 65 72 74 28 20 70 43 6f 6c 6c 20 29 3b 0a 20 sert( pColl );.
0520: 20 61 73 73 65 72 74 28 20 6d 61 73 6b 3d 3d 2d assert( mask==-
0530: 31 20 7c 7c 20 6d 61 73 6b 3d 3d 30 20 29 3b 0a 1 || mask==0 );.
0540: 20 20 69 42 65 73 74 20 3d 20 30 3b 0a 20 20 69 iBest = 0;. i
0550: 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 f( sqlite3_value
0560: 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d _type(argv[0])==
0570: 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 SQLITE_NULL ) re
0580: 74 75 72 6e 3b 0a 20 20 66 6f 72 28 69 3d 31 3b turn;. for(i=1;
0590: 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 i<argc; i++){.
05a0: 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 76 if( sqlite3_v
05b0: 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 69 alue_type(argv[i
05c0: 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 ])==SQLITE_NULL
05d0: 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 69 66 ) return;. if
05e0: 28 20 28 73 71 6c 69 74 65 33 4d 65 6d 43 6f 6d ( (sqlite3MemCom
05f0: 70 61 72 65 28 61 72 67 76 5b 69 42 65 73 74 5d pare(argv[iBest]
0600: 2c 20 61 72 67 76 5b 69 5d 2c 20 70 43 6f 6c 6c , argv[i], pColl
0610: 29 5e 6d 61 73 6b 29 3e 3d 30 20 29 7b 0a 20 20 )^mask)>=0 ){.
0620: 20 20 20 20 69 42 65 73 74 20 3d 20 69 3b 0a 20 iBest = i;.
0630: 20 20 20 7d 0a 20 20 7d 0a 20 20 73 71 6c 69 74 }. }. sqlit
0640: 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 e3_result_value(
0650: 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b 69 42 context, argv[iB
0660: 65 73 74 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 est]);.}../*.**
0670: 52 65 74 75 72 6e 20 74 68 65 20 74 79 70 65 20 Return the type
0680: 6f 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 2e of the argument.
0690: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
06a0: 74 79 70 65 6f 66 46 75 6e 63 28 0a 20 20 73 71 typeofFunc(. sq
06b0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
06c0: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 ontext,. int ar
06d0: 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 gc,. sqlite3_va
06e0: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 lue **argv.){.
06f0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d 20 const char *z =
0700: 30 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71 6c 0;. switch( sql
0710: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 ite3_value_type(
0720: 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 argv[0]) ){.
0730: 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c case SQLITE_NULL
0740: 3a 20 20 20 20 7a 20 3d 20 22 6e 75 6c 6c 22 3b : z = "null";
0750: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 break;. c
0760: 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 ase SQLITE_INTEG
0770: 45 52 3a 20 7a 20 3d 20 22 69 6e 74 65 67 65 72 ER: z = "integer
0780: 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 "; break;. ca
0790: 73 65 20 53 51 4c 49 54 45 5f 54 45 58 54 3a 20 se SQLITE_TEXT:
07a0: 20 20 20 7a 20 3d 20 22 74 65 78 74 22 3b 20 20 z = "text";
07b0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
07c0: 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a 20 e SQLITE_FLOAT:
07d0: 20 20 7a 20 3d 20 22 72 65 61 6c 22 3b 20 20 20 z = "real";
07e0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
07f0: 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 20 20 20 SQLITE_BLOB:
0800: 20 7a 20 3d 20 22 62 6c 6f 62 22 3b 20 20 20 20 z = "blob";
0810: 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 73 71 6c break;. }. sql
0820: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
0830: 28 63 6f 6e 74 65 78 74 2c 20 7a 2c 20 2d 31 2c (context, z, -1,
0840: 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b SQLITE_STATIC);
0850: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d .}../*.** Implem
0860: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 entation of the
0870: 6c 65 6e 67 74 68 28 29 20 66 75 6e 63 74 69 6f length() functio
0880: 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 n.*/.static void
0890: 20 6c 65 6e 67 74 68 46 75 6e 63 28 0a 20 20 73 lengthFunc(. s
08a0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
08b0: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
08c0: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 rgc,. sqlite3_v
08d0: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 alue **argv.){.
08e0: 20 69 6e 74 20 6c 65 6e 3b 0a 0a 20 20 61 73 73 int len;.. ass
08f0: 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a ert( argc==1 );.
0900: 20 20 73 77 69 74 63 68 28 20 73 71 6c 69 74 65 switch( sqlite
0910: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 3_value_type(arg
0920: 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 v[0]) ){. cas
0930: 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 0a 20 e SQLITE_BLOB:.
0940: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 49 case SQLITE_I
0950: 4e 54 45 47 45 52 3a 0a 20 20 20 20 63 61 73 65 NTEGER:. case
0960: 20 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a 20 7b SQLITE_FLOAT: {
0970: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 . sqlite3_r
0980: 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 esult_int(contex
0990: 74 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 t, sqlite3_value
09a0: 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 29 _bytes(argv[0]))
09b0: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
09c0: 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 53 51 }. case SQ
09d0: 4c 49 54 45 5f 54 45 58 54 3a 20 7b 0a 20 20 20 LITE_TEXT: {.
09e0: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a const char *z
09f0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
0a00: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a _text(argv[0]);.
0a10: 20 20 20 20 20 20 66 6f 72 28 6c 65 6e 3d 30 3b for(len=0;
0a20: 20 2a 7a 3b 20 7a 2b 2b 29 7b 20 69 66 28 20 28 *z; z++){ if( (
0a30: 30 78 63 30 26 2a 7a 29 21 3d 30 78 38 30 20 29 0xc0&*z)!=0x80 )
0a40: 20 6c 65 6e 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 len++; }.
0a50: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 sqlite3_result_i
0a60: 6e 74 28 63 6f 6e 74 65 78 74 2c 20 6c 65 6e 29 nt(context, len)
0a70: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
0a80: 20 20 20 7d 0a 20 20 20 20 64 65 66 61 75 6c 74 }. default
0a90: 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 : {. sqlite
0aa0: 33 5f 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 3_result_null(co
0ab0: 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20 62 72 ntext);. br
0ac0: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d eak;. }. }.}
0ad0: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e ../*.** Implemen
0ae0: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 61 62 tation of the ab
0af0: 73 28 29 20 66 75 6e 63 74 69 6f 6e 0a 2a 2f 0a s() function.*/.
0b00: 73 74 61 74 69 63 20 76 6f 69 64 20 61 62 73 46 static void absF
0b10: 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 unc(sqlite3_cont
0b20: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e ext *context, in
0b30: 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f t argc, sqlite3_
0b40: 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 value **argv){.
0b50: 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 assert( argc==1
0b60: 20 29 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71 );. switch( sq
0b70: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 lite3_value_type
0b80: 28 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 (argv[0]) ){.
0b90: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 case SQLITE_INT
0ba0: 45 47 45 52 3a 20 7b 0a 20 20 20 20 20 20 69 36 EGER: {. i6
0bb0: 34 20 69 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 4 iVal = sqlite3
0bc0: 5f 76 61 6c 75 65 5f 69 6e 74 36 34 28 61 72 67 _value_int64(arg
0bd0: 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 69 66 28 v[0]);. if(
0be0: 20 69 56 61 6c 3c 30 20 29 20 69 56 61 6c 20 3d iVal<0 ) iVal =
0bf0: 20 69 56 61 6c 20 2a 20 2d 31 3b 0a 20 20 20 20 iVal * -1;.
0c00: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
0c10: 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 _int64(context,
0c20: 69 56 61 6c 29 3b 0a 20 20 20 20 20 20 62 72 65 iVal);. bre
0c30: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 ak;. }. ca
0c40: 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 3a 20 se SQLITE_NULL:
0c50: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f {. sqlite3_
0c60: 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 result_null(cont
0c70: 65 78 74 29 3b 0a 20 20 20 20 20 20 62 72 65 61 ext);. brea
0c80: 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 65 66 k;. }. def
0c90: 61 75 6c 74 3a 20 7b 0a 20 20 20 20 20 20 64 6f ault: {. do
0ca0: 75 62 6c 65 20 72 56 61 6c 20 3d 20 73 71 6c 69 uble rVal = sqli
0cb0: 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 te3_value_double
0cc0: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 (argv[0]);.
0cd0: 20 69 66 28 20 72 56 61 6c 3c 30 20 29 20 72 56 if( rVal<0 ) rV
0ce0: 61 6c 20 3d 20 72 56 61 6c 20 2a 20 2d 31 2e 30 al = rVal * -1.0
0cf0: 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f ;. sqlite3_
0d00: 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f result_double(co
0d10: 6e 74 65 78 74 2c 20 72 56 61 6c 29 3b 0a 20 20 ntext, rVal);.
0d20: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d break;. }
0d30: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d . }.}../*.** Im
0d40: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 plementation of
0d50: 74 68 65 20 73 75 62 73 74 72 28 29 20 66 75 6e the substr() fun
0d60: 63 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 ction.*/.static
0d70: 76 6f 69 64 20 73 75 62 73 74 72 46 75 6e 63 28 void substrFunc(
0d80: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 . sqlite3_conte
0d90: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 xt *context,. i
0da0: 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 nt argc,. sqlit
0db0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a e3_value **argv.
0dc0: 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 ){. const char
0dd0: 2a 7a 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 *z;. const char
0de0: 20 2a 7a 32 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 *z2;. int i;.
0df0: 20 69 6e 74 20 70 31 2c 20 70 32 2c 20 6c 65 6e int p1, p2, len
0e00: 3b 0a 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 ;.. assert( arg
0e10: 63 3d 3d 33 20 29 3b 0a 20 20 7a 20 3d 20 73 71 c==3 );. z = sq
0e20: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 lite3_value_text
0e30: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 (argv[0]);. if(
0e40: 20 7a 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a z==0 ) return;.
0e50: 20 20 70 31 20 3d 20 73 71 6c 69 74 65 33 5f 76 p1 = sqlite3_v
0e60: 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d alue_int(argv[1]
0e70: 29 3b 0a 20 20 70 32 20 3d 20 73 71 6c 69 74 65 );. p2 = sqlite
0e80: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 3_value_int(argv
0e90: 5b 32 5d 29 3b 0a 20 20 66 6f 72 28 6c 65 6e 3d [2]);. for(len=
0ea0: 30 2c 20 7a 32 3d 7a 3b 20 2a 7a 32 3b 20 7a 32 0, z2=z; *z2; z2
0eb0: 2b 2b 29 7b 20 69 66 28 20 28 30 78 63 30 26 2a ++){ if( (0xc0&*
0ec0: 7a 32 29 21 3d 30 78 38 30 20 29 20 6c 65 6e 2b z2)!=0x80 ) len+
0ed0: 2b 3b 20 7d 0a 20 20 69 66 28 20 70 31 3c 30 20 +; }. if( p1<0
0ee0: 29 7b 0a 20 20 20 20 70 31 20 2b 3d 20 6c 65 6e ){. p1 += len
0ef0: 3b 0a 20 20 20 20 69 66 28 20 70 31 3c 30 20 29 ;. if( p1<0 )
0f00: 7b 0a 20 20 20 20 20 20 70 32 20 2b 3d 20 70 31 {. p2 += p1
0f10: 3b 0a 20 20 20 20 20 20 70 31 20 3d 20 30 3b 0a ;. p1 = 0;.
0f20: 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 20 69 66 }. }else if
0f30: 28 20 70 31 3e 30 20 29 7b 0a 20 20 20 20 70 31 ( p1>0 ){. p1
0f40: 2d 2d 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 31 --;. }. if( p1
0f50: 2b 70 32 3e 6c 65 6e 20 29 7b 0a 20 20 20 20 70 +p2>len ){. p
0f60: 32 20 3d 20 6c 65 6e 2d 70 31 3b 0a 20 20 7d 0a 2 = len-p1;. }.
0f70: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 70 31 20 for(i=0; i<p1
0f80: 26 26 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 && z[i]; i++){.
0f90: 20 20 20 69 66 28 20 28 7a 5b 69 5d 26 30 78 63 if( (z[i]&0xc
0fa0: 30 29 3d 3d 30 78 38 30 20 29 20 70 31 2b 2b 3b 0)==0x80 ) p1++;
0fb0: 0a 20 20 7d 0a 20 20 77 68 69 6c 65 28 20 7a 5b . }. while( z[
0fc0: 69 5d 20 26 26 20 28 7a 5b 69 5d 26 30 78 63 30 i] && (z[i]&0xc0
0fd0: 29 3d 3d 30 78 38 30 20 29 7b 20 69 2b 2b 3b 20 )==0x80 ){ i++;
0fe0: 70 31 2b 2b 3b 20 7d 0a 20 20 66 6f 72 28 3b 20 p1++; }. for(;
0ff0: 69 3c 70 31 2b 70 32 20 26 26 20 7a 5b 69 5d 3b i<p1+p2 && z[i];
1000: 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 28 i++){. if( (
1010: 7a 5b 69 5d 26 30 78 63 30 29 3d 3d 30 78 38 30 z[i]&0xc0)==0x80
1020: 20 29 20 70 32 2b 2b 3b 0a 20 20 7d 0a 20 20 77 ) p2++;. }. w
1030: 68 69 6c 65 28 20 7a 5b 69 5d 20 26 26 20 28 7a hile( z[i] && (z
1040: 5b 69 5d 26 30 78 63 30 29 3d 3d 30 78 38 30 20 [i]&0xc0)==0x80
1050: 29 7b 20 69 2b 2b 3b 20 70 32 2b 2b 3b 20 7d 0a ){ i++; p2++; }.
1060: 20 20 69 66 28 20 70 32 3c 30 20 29 20 70 32 20 if( p2<0 ) p2
1070: 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 = 0;. sqlite3_r
1080: 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 esult_text(conte
1090: 78 74 2c 20 26 7a 5b 70 31 5d 2c 20 70 32 2c 20 xt, &z[p1], p2,
10a0: 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 SQLITE_TRANSIENT
10b0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c );.}../*.** Impl
10c0: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 ementation of th
10d0: 65 20 72 6f 75 6e 64 28 29 20 66 75 6e 63 74 69 e round() functi
10e0: 6f 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 on.*/.static voi
10f0: 64 20 72 6f 75 6e 64 46 75 6e 63 28 73 71 6c 69 d roundFunc(sqli
1100: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
1110: 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 text, int argc,
1120: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
1130: 61 72 67 76 29 7b 0a 20 20 69 6e 74 20 6e 20 3d argv){. int n =
1140: 20 30 3b 0a 20 20 64 6f 75 62 6c 65 20 72 3b 0a 0;. double r;.
1150: 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30 5d char zBuf[100]
1160: 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 ;. assert( argc
1170: 3d 3d 31 20 7c 7c 20 61 72 67 63 3d 3d 32 20 29 ==1 || argc==2 )
1180: 3b 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 32 20 ;. if( argc==2
1190: 29 7b 0a 20 20 20 20 69 66 28 20 53 51 4c 49 54 ){. if( SQLIT
11a0: 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69 74 65 33 5f E_NULL==sqlite3_
11b0: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b value_type(argv[
11c0: 31 5d 29 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 1]) ) return;.
11d0: 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 n = sqlite3_va
11e0: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 lue_int(argv[1])
11f0: 3b 0a 20 20 20 20 69 66 28 20 6e 3e 33 30 20 29 ;. if( n>30 )
1200: 20 6e 20 3d 20 33 30 3b 0a 20 20 20 20 69 66 28 n = 30;. if(
1210: 20 6e 3c 30 20 29 20 6e 20 3d 20 30 3b 0a 20 20 n<0 ) n = 0;.
1220: 7d 0a 20 20 69 66 28 20 53 51 4c 49 54 45 5f 4e }. if( SQLITE_N
1230: 55 4c 4c 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c ULL==sqlite3_val
1240: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 ue_type(argv[0])
1250: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 72 20 3d ) return;. r =
1260: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 sqlite3_value_d
1270: 6f 75 62 6c 65 28 61 72 67 76 5b 30 5d 29 3b 0a ouble(argv[0]);.
1280: 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 22 sprintf(zBuf,"
1290: 25 2e 2a 66 22 2c 6e 2c 72 29 3b 0a 20 20 73 71 %.*f",n,r);. sq
12a0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
12b0: 74 28 63 6f 6e 74 65 78 74 2c 20 7a 42 75 66 2c t(context, zBuf,
12c0: 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e -1, SQLITE_TRAN
12d0: 53 49 45 4e 54 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a SIENT);.}../*.**
12e0: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 Implementation
12f0: 6f 66 20 74 68 65 20 75 70 70 65 72 28 29 20 61 of the upper() a
1300: 6e 64 20 6c 6f 77 65 72 28 29 20 53 51 4c 20 66 nd lower() SQL f
1310: 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 61 unctions..*/.sta
1320: 74 69 63 20 76 6f 69 64 20 75 70 70 65 72 46 75 tic void upperFu
1330: 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 nc(sqlite3_conte
1340: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 xt *context, int
1350: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 argc, sqlite3_v
1360: 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 alue **argv){.
1370: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a unsigned char *z
1380: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 66 28 ;. int i;. if(
1390: 20 61 72 67 63 3c 31 20 7c 7c 20 53 51 4c 49 54 argc<1 || SQLIT
13a0: 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69 74 65 33 5f E_NULL==sqlite3_
13b0: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b value_type(argv[
13c0: 30 5d 29 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 0]) ) return;.
13d0: 7a 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 z = sqliteMalloc
13e0: 28 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 (sqlite3_value_b
13f0: 79 74 65 73 28 61 72 67 76 5b 30 5d 29 2b 31 29 ytes(argv[0])+1)
1400: 3b 0a 20 20 69 66 28 20 7a 3d 3d 30 20 29 20 72 ;. if( z==0 ) r
1410: 65 74 75 72 6e 3b 0a 20 20 73 74 72 63 70 79 28 eturn;. strcpy(
1420: 7a 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 z, sqlite3_value
1430: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 29 3b _text(argv[0]));
1440: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 5b 69 5d . for(i=0; z[i]
1450: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 7a 5b 69 5d ; i++){. z[i]
1460: 20 3d 20 74 6f 75 70 70 65 72 28 7a 5b 69 5d 29 = toupper(z[i])
1470: 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f ;. }. sqlite3_
1480: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 result_text(cont
1490: 65 78 74 2c 20 7a 2c 20 2d 31 2c 20 53 51 4c 49 ext, z, -1, SQLI
14a0: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 TE_TRANSIENT);.
14b0: 20 73 71 6c 69 74 65 46 72 65 65 28 7a 29 3b 0a sqliteFree(z);.
14c0: 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 6f }.static void lo
14d0: 77 65 72 46 75 6e 63 28 73 71 6c 69 74 65 33 5f werFunc(sqlite3_
14e0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
14f0: 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 , int argc, sqli
1500: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
1510: 29 7b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 ){. unsigned ch
1520: 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b 0a ar *z;. int i;.
1530: 20 20 69 66 28 20 61 72 67 63 3c 31 20 7c 7c 20 if( argc<1 ||
1540: 53 51 4c 49 54 45 5f 4e 55 4c 4c 3d 3d 73 71 6c SQLITE_NULL==sql
1550: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 ite3_value_type(
1560: 61 72 67 76 5b 30 5d 29 20 29 20 72 65 74 75 72 argv[0]) ) retur
1570: 6e 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 4d n;. z = sqliteM
1580: 61 6c 6c 6f 63 28 73 71 6c 69 74 65 33 5f 76 61 alloc(sqlite3_va
1590: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 lue_bytes(argv[0
15a0: 5d 29 2b 31 29 3b 0a 20 20 69 66 28 20 7a 3d 3d ])+1);. if( z==
15b0: 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 73 74 0 ) return;. st
15c0: 72 63 70 79 28 7a 2c 20 73 71 6c 69 74 65 33 5f rcpy(z, sqlite3_
15d0: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
15e0: 30 5d 29 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 0]));. for(i=0;
15f0: 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 z[i]; i++){.
1600: 20 7a 5b 69 5d 20 3d 20 74 6f 6c 6f 77 65 72 28 z[i] = tolower(
1610: 7a 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 73 71 6c z[i]);. }. sql
1620: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
1630: 28 63 6f 6e 74 65 78 74 2c 20 7a 2c 20 2d 31 2c (context, z, -1,
1640: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e SQLITE_TRANSIEN
1650: 54 29 3b 0a 20 20 73 71 6c 69 74 65 46 72 65 65 T);. sqliteFree
1660: 28 7a 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d (z);.}../*.** Im
1670: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 plementation of
1680: 74 68 65 20 49 46 4e 55 4c 4c 28 29 2c 20 4e 56 the IFNULL(), NV
1690: 4c 28 29 2c 20 61 6e 64 20 43 4f 41 4c 45 53 43 L(), and COALESC
16a0: 45 28 29 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 E() functions.
16b0: 0a 2a 2a 20 41 6c 6c 20 74 68 72 65 65 20 64 6f .** All three do
16c0: 20 74 68 65 20 73 61 6d 65 20 74 68 69 6e 67 2e the same thing.
16d0: 20 20 54 68 65 79 20 72 65 74 75 72 6e 20 74 68 They return th
16e0: 65 20 66 69 72 73 74 20 6e 6f 6e 2d 4e 55 4c 4c e first non-NULL
16f0: 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f .** argument..*/
1700: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 69 66 6e .static void ifn
1710: 75 6c 6c 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 ullFunc(. sqlit
1720: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
1730: 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c ext,. int argc,
1740: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
1750: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 **argv.){. int
1760: 20 69 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 i;. for(i=0; i
1770: 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 <argc; i++){.
1780: 20 69 66 28 20 53 51 4c 49 54 45 5f 4e 55 4c 4c if( SQLITE_NULL
1790: 21 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f !=sqlite3_value_
17a0: 74 79 70 65 28 61 72 67 76 5b 69 5d 29 20 29 7b type(argv[i]) ){
17b0: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 . sqlite3_r
17c0: 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 esult_value(cont
17d0: 65 78 74 2c 20 61 72 67 76 5b 69 5d 29 3b 0a 20 ext, argv[i]);.
17e0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
17f0: 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 }. }.}../*.** I
1800: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
1810: 20 72 61 6e 64 6f 6d 28 29 2e 20 20 52 65 74 75 random(). Retu
1820: 72 6e 20 61 20 72 61 6e 64 6f 6d 20 69 6e 74 65 rn a random inte
1830: 67 65 72 2e 20 20 0a 2a 2f 0a 73 74 61 74 69 63 ger. .*/.static
1840: 20 76 6f 69 64 20 72 61 6e 64 6f 6d 46 75 6e 63 void randomFunc
1850: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 (. sqlite3_cont
1860: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 ext *context,.
1870: 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 int argc,. sqli
1880: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
1890: 0a 29 7b 0a 20 20 69 6e 74 20 72 3b 0a 20 20 73 .){. int r;. s
18a0: 71 6c 69 74 65 33 52 61 6e 64 6f 6d 6e 65 73 73 qlite3Randomness
18b0: 28 73 69 7a 65 6f 66 28 72 29 2c 20 26 72 29 3b (sizeof(r), &r);
18c0: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c . sqlite3_resul
18d0: 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 72 t_int(context, r
18e0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c );.}../*.** Impl
18f0: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 ementation of th
1900: 65 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f e last_insert_ro
1910: 77 69 64 28 29 20 53 51 4c 20 66 75 6e 63 74 69 wid() SQL functi
1920: 6f 6e 2e 20 20 54 68 65 20 72 65 74 75 72 6e 0a on. The return.
1930: 2a 2a 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 ** value is the
1940: 73 61 6d 65 20 61 73 20 74 68 65 20 73 71 6c 69 same as the sqli
1950: 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f te3_last_insert_
1960: 72 6f 77 69 64 28 29 20 41 50 49 20 66 75 6e 63 rowid() API func
1970: 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 tion..*/.static
1980: 76 6f 69 64 20 6c 61 73 74 5f 69 6e 73 65 72 74 void last_insert
1990: 5f 72 6f 77 69 64 28 0a 20 20 73 71 6c 69 74 65 _rowid(. sqlite
19a0: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
19b0: 78 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 2c 20 xt, . int arg,
19c0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
19d0: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c **argv.){. sql
19e0: 69 74 65 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 ite *db = sqlite
19f0: 33 5f 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 3_user_data(cont
1a00: 65 78 74 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f ext);. sqlite3_
1a10: 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 6f 6e result_int64(con
1a20: 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 6c 61 text, sqlite3_la
1a30: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 st_insert_rowid(
1a40: 64 62 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 db));.}../*.** I
1a50: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
1a60: 20 74 68 65 20 63 68 61 6e 67 65 73 28 29 20 53 the changes() S
1a70: 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 QL function. Th
1a80: 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 e return value i
1a90: 73 20 74 68 65 0a 2a 2a 20 73 61 6d 65 20 61 73 s the.** same as
1aa0: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 63 68 61 the sqlite3_cha
1ab0: 6e 67 65 73 28 29 20 41 50 49 20 66 75 6e 63 74 nges() API funct
1ac0: 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ion..*/.static v
1ad0: 6f 69 64 20 63 68 61 6e 67 65 73 28 0a 20 20 73 oid changes(. s
1ae0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
1af0: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 context,. int a
1b00: 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 rg,. sqlite3_va
1b10: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 lue **argv.){.
1b20: 73 71 6c 69 74 65 20 2a 64 62 20 3d 20 73 71 6c sqlite *db = sql
1b30: 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 63 ite3_user_data(c
1b40: 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71 6c 69 74 ontext);. sqlit
1b50: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f e3_result_int(co
1b60: 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 63 ntext, sqlite3_c
1b70: 68 61 6e 67 65 73 28 64 62 29 29 3b 0a 7d 0a 0a hanges(db));.}..
1b80: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 /*.** Implementa
1b90: 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 6f 74 61 tion of the tota
1ba0: 6c 5f 63 68 61 6e 67 65 73 28 29 20 53 51 4c 20 l_changes() SQL
1bb0: 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 72 function. The r
1bc0: 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 0a 2a eturn value is.*
1bd0: 2a 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 * the same as th
1be0: 65 20 73 71 6c 69 74 65 33 5f 74 6f 74 61 6c 5f e sqlite3_total_
1bf0: 63 68 61 6e 67 65 73 28 29 20 41 50 49 20 66 75 changes() API fu
1c00: 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 nction..*/.stati
1c10: 63 20 76 6f 69 64 20 74 6f 74 61 6c 5f 63 68 61 c void total_cha
1c20: 6e 67 65 73 28 0a 20 20 73 71 6c 69 74 65 33 5f nges(. sqlite3_
1c30: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
1c40: 2c 0a 20 20 69 6e 74 20 61 72 67 2c 0a 20 20 73 ,. int arg,. s
1c50: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
1c60: 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 20 rgv.){. sqlite
1c70: 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 *db = sqlite3_us
1c80: 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 er_data(context)
1c90: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 ;. sqlite3_resu
1ca0: 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 lt_int(context,
1cb0: 73 71 6c 69 74 65 33 5f 74 6f 74 61 6c 5f 63 68 sqlite3_total_ch
1cc0: 61 6e 67 65 73 28 64 62 29 29 3b 0a 7d 0a 0a 2f anges(db));.}../
1cd0: 2a 0a 2a 2a 20 41 20 73 74 72 75 63 74 75 72 65 *.** A structure
1ce0: 20 64 65 66 69 6e 69 6e 67 20 68 6f 77 20 74 6f defining how to
1cf0: 20 64 6f 20 47 4c 4f 42 2d 73 74 79 6c 65 20 63 do GLOB-style c
1d00: 6f 6d 70 61 72 69 73 6f 6e 73 2e 0a 2a 2f 0a 73 omparisons..*/.s
1d10: 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 truct compareInf
1d20: 6f 20 7b 0a 20 20 75 38 20 6d 61 74 63 68 41 6c o {. u8 matchAl
1d30: 6c 3b 0a 20 20 75 38 20 6d 61 74 63 68 4f 6e 65 l;. u8 matchOne
1d40: 3b 0a 20 20 75 38 20 6d 61 74 63 68 53 65 74 3b ;. u8 matchSet;
1d50: 0a 20 20 75 38 20 6e 6f 43 61 73 65 3b 0a 7d 3b . u8 noCase;.};
1d60: 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74 .static const st
1d70: 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f ruct compareInfo
1d80: 20 67 6c 6f 62 49 6e 66 6f 20 3d 20 7b 20 27 2a globInfo = { '*
1d90: 27 2c 20 27 3f 27 2c 20 27 5b 27 2c 20 30 20 7d ', '?', '[', 0 }
1da0: 3b 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 ;.static const s
1db0: 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 truct compareInf
1dc0: 6f 20 6c 69 6b 65 49 6e 66 6f 20 3d 20 7b 20 27 o likeInfo = { '
1dd0: 25 27 2c 20 27 5f 27 2c 20 20 20 30 2c 20 31 20 %', '_', 0, 1
1de0: 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 58 20 69 73 20 61 };../*.** X is a
1df0: 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 pointer to the
1e00: 66 69 72 73 74 20 62 79 74 65 20 6f 66 20 61 20 first byte of a
1e10: 55 54 46 2d 38 20 63 68 61 72 61 63 74 65 72 2e UTF-8 character.
1e20: 20 20 49 6e 63 72 65 6d 65 6e 74 0a 2a 2a 20 58 Increment.** X
1e30: 20 73 6f 20 74 68 61 74 20 69 74 20 70 6f 69 6e so that it poin
1e40: 74 73 20 74 6f 20 74 68 65 20 6e 65 78 74 20 63 ts to the next c
1e50: 68 61 72 61 63 74 65 72 2e 20 20 54 68 69 73 20 haracter. This
1e60: 6f 6e 6c 79 20 77 6f 72 6b 73 20 72 69 67 68 74 only works right
1e70: 0a 2a 2a 20 69 66 20 58 20 70 6f 69 6e 74 73 20 .** if X points
1e80: 74 6f 20 61 20 77 65 6c 6c 2d 66 6f 72 6d 65 64 to a well-formed
1e90: 20 55 54 46 2d 38 20 73 74 72 69 6e 67 2e 0a 2a UTF-8 string..*
1ea0: 2f 0a 23 64 65 66 69 6e 65 20 73 71 6c 69 74 65 /.#define sqlite
1eb0: 4e 65 78 74 43 68 61 72 28 58 29 20 20 77 68 69 NextChar(X) whi
1ec0: 6c 65 28 20 28 30 78 63 30 26 2a 2b 2b 28 58 29 le( (0xc0&*++(X)
1ed0: 29 3d 3d 30 78 38 30 20 29 7b 7d 0a 23 64 65 66 )==0x80 ){}.#def
1ee0: 69 6e 65 20 73 71 6c 69 74 65 43 68 61 72 56 61 ine sqliteCharVa
1ef0: 6c 28 58 29 20 20 20 73 71 6c 69 74 65 33 52 65 l(X) sqlite3Re
1f00: 61 64 55 74 66 38 28 58 29 0a 0a 0a 2f 2a 0a 2a adUtf8(X).../*.*
1f10: 2a 20 43 6f 6d 70 61 72 65 20 74 77 6f 20 55 54 * Compare two UT
1f20: 46 2d 38 20 73 74 72 69 6e 67 73 20 66 6f 72 20 F-8 strings for
1f30: 65 71 75 61 6c 69 74 79 20 77 68 65 72 65 20 74 equality where t
1f40: 68 65 20 66 69 72 73 74 20 73 74 72 69 6e 67 20 he first string
1f50: 63 61 6e 0a 2a 2a 20 70 6f 74 65 6e 74 69 61 6c can.** potential
1f60: 6c 79 20 62 65 20 61 20 22 67 6c 6f 62 22 20 65 ly be a "glob" e
1f70: 78 70 72 65 73 73 69 6f 6e 2e 20 20 52 65 74 75 xpression. Retu
1f80: 72 6e 20 74 72 75 65 20 28 31 29 20 69 66 20 74 rn true (1) if t
1f90: 68 65 79 0a 2a 2a 20 61 72 65 20 74 68 65 20 73 hey.** are the s
1fa0: 61 6d 65 20 61 6e 64 20 66 61 6c 73 65 20 28 30 ame and false (0
1fb0: 29 20 69 66 20 74 68 65 79 20 61 72 65 20 64 69 ) if they are di
1fc0: 66 66 65 72 65 6e 74 2e 0a 2a 2a 0a 2a 2a 20 47 fferent..**.** G
1fd0: 6c 6f 62 62 69 6e 67 20 72 75 6c 65 73 3a 0a 2a lobbing rules:.*
1fe0: 2a 0a 2a 2a 20 20 20 20 20 20 27 2a 27 20 20 20 *.** '*'
1ff0: 20 20 20 20 4d 61 74 63 68 65 73 20 61 6e 79 20 Matches any
2000: 73 65 71 75 65 6e 63 65 20 6f 66 20 7a 65 72 6f sequence of zero
2010: 20 6f 72 20 6d 6f 72 65 20 63 68 61 72 61 63 74 or more charact
2020: 65 72 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 ers..**.**
2030: 27 3f 27 20 20 20 20 20 20 20 4d 61 74 63 68 65 '?' Matche
2040: 73 20 65 78 61 63 74 6c 79 20 6f 6e 65 20 63 68 s exactly one ch
2050: 61 72 61 63 74 65 72 2e 0a 2a 2a 0a 2a 2a 20 20 aracter..**.**
2060: 20 20 20 5b 2e 2e 2e 5d 20 20 20 20 20 20 4d 61 [...] Ma
2070: 74 63 68 65 73 20 6f 6e 65 20 63 68 61 72 61 63 tches one charac
2080: 74 65 72 20 66 72 6f 6d 20 74 68 65 20 65 6e 63 ter from the enc
2090: 6c 6f 73 65 64 20 6c 69 73 74 20 6f 66 0a 2a 2a losed list of.**
20a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20b0: 63 68 61 72 61 63 74 65 72 73 2e 0a 2a 2a 0a 2a characters..**.*
20c0: 2a 20 20 20 20 20 5b 5e 2e 2e 2e 5d 20 20 20 20 * [^...]
20d0: 20 4d 61 74 63 68 65 73 20 6f 6e 65 20 63 68 61 Matches one cha
20e0: 72 61 63 74 65 72 20 6e 6f 74 20 69 6e 20 74 68 racter not in th
20f0: 65 20 65 6e 63 6c 6f 73 65 64 20 6c 69 73 74 2e e enclosed list.
2100: 0a 2a 2a 0a 2a 2a 20 57 69 74 68 20 74 68 65 20 .**.** With the
2110: 5b 2e 2e 2e 5d 20 61 6e 64 20 5b 5e 2e 2e 2e 5d [...] and [^...]
2120: 20 6d 61 74 63 68 69 6e 67 2c 20 61 20 27 5d 27 matching, a ']'
2130: 20 63 68 61 72 61 63 74 65 72 20 63 61 6e 20 62 character can b
2140: 65 20 69 6e 63 6c 75 64 65 64 0a 2a 2a 20 69 6e e included.** in
2150: 20 74 68 65 20 6c 69 73 74 20 62 79 20 6d 61 6b the list by mak
2160: 69 6e 67 20 69 74 20 74 68 65 20 66 69 72 73 74 ing it the first
2170: 20 63 68 61 72 61 63 74 65 72 20 61 66 74 65 72 character after
2180: 20 27 5b 27 20 6f 72 20 27 5e 27 2e 20 20 41 0a '[' or '^'. A.
2190: 2a 2a 20 72 61 6e 67 65 20 6f 66 20 63 68 61 72 ** range of char
21a0: 61 63 74 65 72 73 20 63 61 6e 20 62 65 20 73 70 acters can be sp
21b0: 65 63 69 66 69 65 64 20 75 73 69 6e 67 20 27 2d ecified using '-
21c0: 27 2e 20 20 45 78 61 6d 70 6c 65 3a 0a 2a 2a 20 '. Example:.**
21d0: 22 5b 61 2d 7a 5d 22 20 6d 61 74 63 68 65 73 20 "[a-z]" matches
21e0: 61 6e 79 20 73 69 6e 67 6c 65 20 6c 6f 77 65 72 any single lower
21f0: 2d 63 61 73 65 20 6c 65 74 74 65 72 2e 20 20 54 -case letter. T
2200: 6f 20 6d 61 74 63 68 20 61 20 27 2d 27 2c 20 6d o match a '-', m
2210: 61 6b 65 0a 2a 2a 20 69 74 20 74 68 65 20 6c 61 ake.** it the la
2220: 73 74 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 st character in
2230: 74 68 65 20 6c 69 73 74 2e 0a 2a 2a 0a 2a 2a 20 the list..**.**
2240: 54 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 This routine is
2250: 75 73 75 61 6c 6c 79 20 71 75 69 63 6b 2c 20 62 usually quick, b
2260: 75 74 20 63 61 6e 20 62 65 20 4e 2a 2a 32 20 69 ut can be N**2 i
2270: 6e 20 74 68 65 20 77 6f 72 73 74 20 63 61 73 65 n the worst case
2280: 2e 0a 2a 2a 0a 2a 2a 20 48 69 6e 74 73 3a 20 74 ..**.** Hints: t
2290: 6f 20 6d 61 74 63 68 20 27 2a 27 20 6f 72 20 27 o match '*' or '
22a0: 3f 27 2c 20 70 75 74 20 74 68 65 6d 20 69 6e 20 ?', put them in
22b0: 22 5b 5d 22 2e 20 20 4c 69 6b 65 20 74 68 69 73 "[]". Like this
22c0: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 :.**.**
22d0: 61 62 63 5b 2a 5d 78 79 7a 20 20 20 20 20 20 20 abc[*]xyz
22e0: 20 4d 61 74 63 68 65 73 20 22 61 62 63 2a 78 79 Matches "abc*xy
22f0: 7a 22 20 6f 6e 6c 79 0a 2a 2f 0a 69 6e 74 20 70 z" only.*/.int p
2300: 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 0a 20 atternCompare(.
2310: 20 63 6f 6e 73 74 20 75 38 20 2a 7a 50 61 74 74 const u8 *zPatt
2320: 65 72 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 ern,
2330: 20 20 2f 2a 20 54 68 65 20 67 6c 6f 62 20 70 61 /* The glob pa
2340: 74 74 65 72 6e 20 2a 2f 0a 20 20 63 6f 6e 73 74 ttern */. const
2350: 20 75 38 20 2a 7a 53 74 72 69 6e 67 2c 20 20 20 u8 *zString,
2360: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
2370: 68 65 20 73 74 72 69 6e 67 20 74 6f 20 63 6f 6d he string to com
2380: 70 61 72 65 20 61 67 61 69 6e 73 74 20 74 68 65 pare against the
2390: 20 67 6c 6f 62 20 2a 2f 0a 20 20 63 6f 6e 73 74 glob */. const
23a0: 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 struct compareI
23b0: 6e 66 6f 20 2a 70 49 6e 66 6f 20 20 2f 2a 20 49 nfo *pInfo /* I
23c0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 nformation about
23d0: 20 68 6f 77 20 74 6f 20 64 6f 20 74 68 65 20 63 how to do the c
23e0: 6f 6d 70 61 72 65 20 2a 2f 0a 29 7b 0a 20 20 72 ompare */.){. r
23f0: 65 67 69 73 74 65 72 20 69 6e 74 20 63 3b 0a 20 egister int c;.
2400: 20 69 6e 74 20 69 6e 76 65 72 74 3b 0a 20 20 69 int invert;. i
2410: 6e 74 20 73 65 65 6e 3b 0a 20 20 69 6e 74 20 63 nt seen;. int c
2420: 32 3b 0a 20 20 75 38 20 6d 61 74 63 68 4f 6e 65 2;. u8 matchOne
2430: 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 4f = pInfo->matchO
2440: 6e 65 3b 0a 20 20 75 38 20 6d 61 74 63 68 41 6c ne;. u8 matchAl
2450: 6c 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 l = pInfo->match
2460: 41 6c 6c 3b 0a 20 20 75 38 20 6d 61 74 63 68 53 All;. u8 matchS
2470: 65 74 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 et = pInfo->matc
2480: 68 53 65 74 3b 0a 20 20 75 38 20 6e 6f 43 61 73 hSet;. u8 noCas
2490: 65 20 3d 20 70 49 6e 66 6f 2d 3e 6e 6f 43 61 73 e = pInfo->noCas
24a0: 65 3b 20 0a 0a 20 20 77 68 69 6c 65 28 20 28 63 e; .. while( (c
24b0: 20 3d 20 2a 7a 50 61 74 74 65 72 6e 29 21 3d 30 = *zPattern)!=0
24c0: 20 29 7b 0a 20 20 20 20 69 66 28 20 63 3d 3d 6d ){. if( c==m
24d0: 61 74 63 68 41 6c 6c 20 29 7b 0a 20 20 20 20 20 atchAll ){.
24e0: 20 77 68 69 6c 65 28 20 28 63 3d 7a 50 61 74 74 while( (c=zPatt
24f0: 65 72 6e 5b 31 5d 29 20 3d 3d 20 6d 61 74 63 68 ern[1]) == match
2500: 41 6c 6c 20 7c 7c 20 63 20 3d 3d 20 6d 61 74 63 All || c == matc
2510: 68 4f 6e 65 20 29 7b 0a 20 20 20 20 20 20 20 20 hOne ){.
2520: 69 66 28 20 63 3d 3d 6d 61 74 63 68 4f 6e 65 20 if( c==matchOne
2530: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 ){. if(
2540: 20 2a 7a 53 74 72 69 6e 67 3d 3d 30 20 29 20 72 *zString==0 ) r
2550: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 20 eturn 0;.
2560: 20 20 20 73 71 6c 69 74 65 4e 65 78 74 43 68 61 sqliteNextCha
2570: 72 28 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 r(zString);.
2580: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7a 50 }. zP
2590: 61 74 74 65 72 6e 2b 2b 3b 0a 20 20 20 20 20 20 attern++;.
25a0: 7d 0a 20 20 20 20 20 20 69 66 28 20 63 3d 3d 30 }. if( c==0
25b0: 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 ) return 1;.
25c0: 20 20 20 69 66 28 20 63 3d 3d 6d 61 74 63 68 53 if( c==matchS
25d0: 65 74 20 29 7b 0a 20 20 20 20 20 20 20 20 77 68 et ){. wh
25e0: 69 6c 65 28 20 2a 7a 53 74 72 69 6e 67 20 26 26 ile( *zString &&
25f0: 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 patternCompare(
2600: 26 7a 50 61 74 74 65 72 6e 5b 31 5d 2c 7a 53 74 &zPattern[1],zSt
2610: 72 69 6e 67 2c 70 49 6e 66 6f 29 3d 3d 30 20 29 ring,pInfo)==0 )
2620: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 {. sqli
2630: 74 65 4e 65 78 74 43 68 61 72 28 7a 53 74 72 69 teNextChar(zStri
2640: 6e 67 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 ng);. }.
2650: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 2a 7a return *z
2660: 53 74 72 69 6e 67 21 3d 30 3b 0a 20 20 20 20 20 String!=0;.
2670: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 }else{.
2680: 77 68 69 6c 65 28 20 28 63 32 20 3d 20 2a 7a 53 while( (c2 = *zS
2690: 74 72 69 6e 67 29 21 3d 30 20 29 7b 0a 20 20 20 tring)!=0 ){.
26a0: 20 20 20 20 20 20 20 69 66 28 20 6e 6f 43 61 73 if( noCas
26b0: 65 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 e ){.
26c0: 20 63 32 20 3d 20 73 71 6c 69 74 65 33 55 70 70 c2 = sqlite3Upp
26d0: 65 72 54 6f 4c 6f 77 65 72 5b 63 32 5d 3b 0a 20 erToLower[c2];.
26e0: 20 20 20 20 20 20 20 20 20 20 20 63 20 3d 20 73 c = s
26f0: 71 6c 69 74 65 33 55 70 70 65 72 54 6f 4c 6f 77 qlite3UpperToLow
2700: 65 72 5b 63 5d 3b 0a 20 20 20 20 20 20 20 20 20 er[c];.
2710: 20 20 20 77 68 69 6c 65 28 20 63 32 20 21 3d 20 while( c2 !=
2720: 30 20 26 26 20 63 32 20 21 3d 20 63 20 29 7b 20 0 && c2 != c ){
2730: 63 32 20 3d 20 73 71 6c 69 74 65 33 55 70 70 65 c2 = sqlite3Uppe
2740: 72 54 6f 4c 6f 77 65 72 5b 2a 2b 2b 7a 53 74 72 rToLower[*++zStr
2750: 69 6e 67 5d 3b 20 7d 0a 20 20 20 20 20 20 20 20 ing]; }.
2760: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
2770: 20 20 20 20 20 77 68 69 6c 65 28 20 63 32 20 21 while( c2 !
2780: 3d 20 30 20 26 26 20 63 32 20 21 3d 20 63 20 29 = 0 && c2 != c )
2790: 7b 20 63 32 20 3d 20 2a 2b 2b 7a 53 74 72 69 6e { c2 = *++zStrin
27a0: 67 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 7d g; }. }
27b0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 63 . if( c
27c0: 32 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 2==0 ) return 0;
27d0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 70 . if( p
27e0: 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 26 7a atternCompare(&z
27f0: 50 61 74 74 65 72 6e 5b 31 5d 2c 7a 53 74 72 69 Pattern[1],zStri
2800: 6e 67 2c 70 49 6e 66 6f 29 20 29 20 72 65 74 75 ng,pInfo) ) retu
2810: 72 6e 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 rn 1;.
2820: 73 71 6c 69 74 65 4e 65 78 74 43 68 61 72 28 7a sqliteNextChar(z
2830: 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 20 20 String);.
2840: 20 7d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 }. retur
2850: 6e 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 n 0;. }.
2860: 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d 6d 61 }else if( c==ma
2870: 74 63 68 4f 6e 65 20 29 7b 0a 20 20 20 20 20 20 tchOne ){.
2880: 69 66 28 20 2a 7a 53 74 72 69 6e 67 3d 3d 30 20 if( *zString==0
2890: 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ) return 0;.
28a0: 20 20 73 71 6c 69 74 65 4e 65 78 74 43 68 61 72 sqliteNextChar
28b0: 28 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 (zString);.
28c0: 20 7a 50 61 74 74 65 72 6e 2b 2b 3b 0a 20 20 20 zPattern++;.
28d0: 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d 6d 61 }else if( c==ma
28e0: 74 63 68 53 65 74 20 29 7b 0a 20 20 20 20 20 20 tchSet ){.
28f0: 69 6e 74 20 70 72 69 6f 72 5f 63 20 3d 20 30 3b int prior_c = 0;
2900: 0a 20 20 20 20 20 20 73 65 65 6e 20 3d 20 30 3b . seen = 0;
2910: 0a 20 20 20 20 20 20 69 6e 76 65 72 74 20 3d 20 . invert =
2920: 30 3b 0a 20 20 20 20 20 20 63 20 3d 20 73 71 6c 0;. c = sql
2930: 69 74 65 43 68 61 72 56 61 6c 28 7a 53 74 72 69 iteCharVal(zStri
2940: 6e 67 29 3b 0a 20 20 20 20 20 20 69 66 28 20 63 ng);. if( c
2950: 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a ==0 ) return 0;.
2960: 20 20 20 20 20 20 63 32 20 3d 20 2a 2b 2b 7a 50 c2 = *++zP
2970: 61 74 74 65 72 6e 3b 0a 20 20 20 20 20 20 69 66 attern;. if
2980: 28 20 63 32 3d 3d 27 5e 27 20 29 7b 20 69 6e 76 ( c2=='^' ){ inv
2990: 65 72 74 20 3d 20 31 3b 20 63 32 20 3d 20 2a 2b ert = 1; c2 = *+
29a0: 2b 7a 50 61 74 74 65 72 6e 3b 20 7d 0a 20 20 20 +zPattern; }.
29b0: 20 20 20 69 66 28 20 63 32 3d 3d 27 5d 27 20 29 if( c2==']' )
29c0: 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 3d {. if( c=
29d0: 3d 27 5d 27 20 29 20 73 65 65 6e 20 3d 20 31 3b =']' ) seen = 1;
29e0: 0a 20 20 20 20 20 20 20 20 63 32 20 3d 20 2a 2b . c2 = *+
29f0: 2b 7a 50 61 74 74 65 72 6e 3b 0a 20 20 20 20 20 +zPattern;.
2a00: 20 7d 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 }. while(
2a10: 28 63 32 20 3d 20 73 71 6c 69 74 65 43 68 61 72 (c2 = sqliteChar
2a20: 56 61 6c 28 7a 50 61 74 74 65 72 6e 29 29 21 3d Val(zPattern))!=
2a30: 30 20 26 26 20 63 32 21 3d 27 5d 27 20 29 7b 0a 0 && c2!=']' ){.
2a40: 20 20 20 20 20 20 20 20 69 66 28 20 63 32 3d 3d if( c2==
2a50: 27 2d 27 20 26 26 20 7a 50 61 74 74 65 72 6e 5b '-' && zPattern[
2a60: 31 5d 21 3d 27 5d 27 20 26 26 20 7a 50 61 74 74 1]!=']' && zPatt
2a70: 65 72 6e 5b 31 5d 21 3d 30 20 26 26 20 70 72 69 ern[1]!=0 && pri
2a80: 6f 72 5f 63 3e 30 20 29 7b 0a 20 20 20 20 20 20 or_c>0 ){.
2a90: 20 20 20 20 7a 50 61 74 74 65 72 6e 2b 2b 3b 0a zPattern++;.
2aa0: 20 20 20 20 20 20 20 20 20 20 63 32 20 3d 20 73 c2 = s
2ab0: 71 6c 69 74 65 43 68 61 72 56 61 6c 28 7a 50 61 qliteCharVal(zPa
2ac0: 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 ttern);.
2ad0: 20 20 69 66 28 20 63 3e 3d 70 72 69 6f 72 5f 63 if( c>=prior_c
2ae0: 20 26 26 20 63 3c 3d 63 32 20 29 20 73 65 65 6e && c<=c2 ) seen
2af0: 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 = 1;.
2b00: 70 72 69 6f 72 5f 63 20 3d 20 30 3b 0a 20 20 20 prior_c = 0;.
2b10: 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 63 }else if( c
2b20: 3d 3d 63 32 20 29 7b 0a 20 20 20 20 20 20 20 20 ==c2 ){.
2b30: 20 20 73 65 65 6e 20 3d 20 31 3b 0a 20 20 20 20 seen = 1;.
2b40: 20 20 20 20 20 20 70 72 69 6f 72 5f 63 20 3d 20 prior_c =
2b50: 63 32 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 c2;. }els
2b60: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 70 72 69 e{. pri
2b70: 6f 72 5f 63 20 3d 20 63 32 3b 0a 20 20 20 20 20 or_c = c2;.
2b80: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 73 71 6c }. sql
2b90: 69 74 65 4e 65 78 74 43 68 61 72 28 7a 50 61 74 iteNextChar(zPat
2ba0: 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 7d 0a 20 tern);. }.
2bb0: 20 20 20 20 20 69 66 28 20 63 32 3d 3d 30 20 7c if( c2==0 |
2bc0: 7c 20 28 73 65 65 6e 20 5e 20 69 6e 76 65 72 74 | (seen ^ invert
2bd0: 29 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b )==0 ) return 0;
2be0: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 4e 65 78 . sqliteNex
2bf0: 74 43 68 61 72 28 7a 53 74 72 69 6e 67 29 3b 0a tChar(zString);.
2c00: 20 20 20 20 20 20 7a 50 61 74 74 65 72 6e 2b 2b zPattern++
2c10: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ;. }else{.
2c20: 20 20 20 69 66 28 20 6e 6f 43 61 73 65 20 29 7b if( noCase ){
2c30: 0a 20 20 20 20 20 20 20 20 69 66 28 20 73 71 6c . if( sql
2c40: 69 74 65 33 55 70 70 65 72 54 6f 4c 6f 77 65 72 ite3UpperToLower
2c50: 5b 63 5d 20 21 3d 20 73 71 6c 69 74 65 33 55 70 [c] != sqlite3Up
2c60: 70 65 72 54 6f 4c 6f 77 65 72 5b 2a 7a 53 74 72 perToLower[*zStr
2c70: 69 6e 67 5d 20 29 20 72 65 74 75 72 6e 20 30 3b ing] ) return 0;
2c80: 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 . }else{.
2c90: 20 20 20 20 20 20 69 66 28 20 63 20 21 3d 20 2a if( c != *
2ca0: 7a 53 74 72 69 6e 67 20 29 20 72 65 74 75 72 6e zString ) return
2cb0: 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 0;. }.
2cc0: 20 20 7a 50 61 74 74 65 72 6e 2b 2b 3b 0a 20 20 zPattern++;.
2cd0: 20 20 20 20 7a 53 74 72 69 6e 67 2b 2b 3b 0a 20 zString++;.
2ce0: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 }. }. retur
2cf0: 6e 20 2a 7a 53 74 72 69 6e 67 3d 3d 30 3b 0a 7d n *zString==0;.}
2d00: 0a 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 .../*.** Impleme
2d10: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c ntation of the l
2d20: 69 6b 65 28 29 20 53 51 4c 20 66 75 6e 63 74 69 ike() SQL functi
2d30: 6f 6e 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 on. This functi
2d40: 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74 73 0a 2a 2a on implements.**
2d50: 20 74 68 65 20 62 75 69 6c 64 2d 69 6e 20 4c 49 the build-in LI
2d60: 4b 45 20 6f 70 65 72 61 74 6f 72 2e 20 20 54 68 KE operator. Th
2d70: 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 e first argument
2d80: 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e to the function
2d90: 20 69 73 20 74 68 65 0a 2a 2a 20 70 61 74 74 65 is the.** patte
2da0: 72 6e 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e rn and the secon
2db0: 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74 68 d argument is th
2dc0: 65 20 73 74 72 69 6e 67 2e 20 20 53 6f 2c 20 74 e string. So, t
2dd0: 68 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 he SQL statement
2de0: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 41 s:.**.** A
2df0: 20 4c 49 4b 45 20 42 0a 2a 2a 0a 2a 2a 20 69 73 LIKE B.**.** is
2e00: 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 61 73 20 implemented as
2e10: 6c 69 6b 65 28 42 2c 41 29 2e 0a 2a 2a 0a 2a 2a like(B,A)..**.**
2e20: 20 49 66 20 74 68 65 20 70 6f 69 6e 74 65 72 20 If the pointer
2e30: 72 65 74 72 69 65 76 65 64 20 62 79 20 76 69 61 retrieved by via
2e40: 20 61 20 63 61 6c 6c 20 74 6f 20 73 71 6c 69 74 a call to sqlit
2e50: 65 33 5f 75 73 65 72 5f 64 61 74 61 28 29 20 69 e3_user_data() i
2e60: 73 0a 2a 2a 20 6e 6f 74 20 4e 55 4c 4c 2c 20 74 s.** not NULL, t
2e70: 68 65 6e 20 74 68 69 73 20 66 75 6e 63 74 69 6f hen this functio
2e80: 6e 20 75 73 65 73 20 55 54 46 2d 31 36 2e 20 4f n uses UTF-16. O
2e90: 74 68 65 72 77 69 73 65 20 55 54 46 2d 38 2e 0a therwise UTF-8..
2ea0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c */.static void l
2eb0: 69 6b 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 ikeFunc(. sqlit
2ec0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
2ed0: 65 78 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 ext, . int argc
2ee0: 2c 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c , . sqlite3_val
2ef0: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 ue **argv.){. c
2f00: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
2f10: 61 72 20 2a 7a 41 20 3d 20 73 71 6c 69 74 65 33 ar *zA = sqlite3
2f20: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 _value_text(argv
2f30: 5b 30 5d 29 3b 0a 20 20 63 6f 6e 73 74 20 75 6e [0]);. const un
2f40: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 42 20 signed char *zB
2f50: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
2f60: 74 65 78 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20 text(argv[1]);.
2f70: 20 69 66 28 20 7a 41 20 26 26 20 7a 42 20 29 7b if( zA && zB ){
2f80: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
2f90: 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c ult_int(context,
2fa0: 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 patternCompare(
2fb0: 7a 41 2c 20 7a 42 2c 20 26 6c 69 6b 65 49 6e 66 zA, zB, &likeInf
2fc0: 6f 29 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a o));. }.}../*.*
2fd0: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
2fe0: 20 6f 66 20 74 68 65 20 67 6c 6f 62 28 29 20 53 of the glob() S
2ff0: 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 QL function. Th
3000: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 6c is function impl
3010: 65 6d 65 6e 74 73 0a 2a 2a 20 74 68 65 20 62 75 ements.** the bu
3020: 69 6c 64 2d 69 6e 20 47 4c 4f 42 20 6f 70 65 72 ild-in GLOB oper
3030: 61 74 6f 72 2e 20 20 54 68 65 20 66 69 72 73 74 ator. The first
3040: 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 74 68 65 argument to the
3050: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 74 68 65 function is the
3060: 0a 2a 2a 20 73 74 72 69 6e 67 20 61 6e 64 20 74 .** string and t
3070: 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 he second argume
3080: 6e 74 20 69 73 20 74 68 65 20 70 61 74 74 65 72 nt is the patter
3090: 6e 2e 20 20 53 6f 2c 20 74 68 65 20 53 51 4c 20 n. So, the SQL
30a0: 73 74 61 74 65 6d 65 6e 74 73 3a 0a 2a 2a 0a 2a statements:.**.*
30b0: 2a 20 20 20 20 20 20 20 41 20 47 4c 4f 42 20 42 * A GLOB B
30c0: 0a 2a 2a 0a 2a 2a 20 69 73 20 69 6d 70 6c 65 6d .**.** is implem
30d0: 65 6e 74 65 64 20 61 73 20 67 6c 6f 62 28 41 2c ented as glob(A,
30e0: 42 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f B)..*/.static vo
30f0: 69 64 20 67 6c 6f 62 46 75 6e 63 28 73 71 6c 69 id globFunc(sqli
3100: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
3110: 74 65 78 74 2c 20 69 6e 74 20 61 72 67 2c 20 73 text, int arg, s
3120: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
3130: 72 67 76 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e rgv){. const un
3140: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 41 20 signed char *zA
3150: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
3160: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 text(argv[0]);.
3170: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
3180: 63 68 61 72 20 2a 7a 42 20 3d 20 73 71 6c 69 74 char *zB = sqlit
3190: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
31a0: 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 7a 41 gv[1]);. if( zA
31b0: 20 26 26 20 7a 42 20 29 7b 0a 20 20 20 20 73 71 && zB ){. sq
31c0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 lite3_result_int
31d0: 28 63 6f 6e 74 65 78 74 2c 20 70 61 74 74 65 72 (context, patter
31e0: 6e 43 6f 6d 70 61 72 65 28 7a 41 2c 20 7a 42 2c nCompare(zA, zB,
31f0: 20 26 67 6c 6f 62 49 6e 66 6f 29 29 3b 0a 20 20 &globInfo));.
3200: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 }.}../*.** Imple
3210: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 mentation of the
3220: 20 4e 55 4c 4c 49 46 28 78 2c 79 29 20 66 75 6e NULLIF(x,y) fun
3230: 63 74 69 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 ction. The resu
3240: 6c 74 20 69 73 20 74 68 65 20 66 69 72 73 74 0a lt is the first.
3250: 2a 2a 20 61 72 67 75 6d 65 6e 74 20 69 66 20 74 ** argument if t
3260: 68 65 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 he arguments are
3270: 20 64 69 66 66 65 72 65 6e 74 2e 20 20 54 68 65 different. The
3280: 20 72 65 73 75 6c 74 20 69 73 20 4e 55 4c 4c 20 result is NULL
3290: 69 66 20 74 68 65 0a 2a 2a 20 61 72 67 75 6d 65 if the.** argume
32a0: 6e 74 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f nts are equal to
32b0: 20 65 61 63 68 20 6f 74 68 65 72 2e 0a 2a 2f 0a each other..*/.
32c0: 73 74 61 74 69 63 20 76 6f 69 64 20 6e 75 6c 6c static void null
32d0: 69 66 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 ifFunc(. sqlite
32e0: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
32f0: 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a xt,. int argc,.
3300: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
3310: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 43 6f 6c 6c **argv.){. Coll
3320: 53 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 73 71 6c Seq *pColl = sql
3330: 69 74 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53 ite3GetFuncCollS
3340: 65 71 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 69 eq(context);. i
3350: 66 28 20 73 71 6c 69 74 65 33 4d 65 6d 43 6f 6d f( sqlite3MemCom
3360: 70 61 72 65 28 61 72 67 76 5b 30 5d 2c 20 61 72 pare(argv[0], ar
3370: 67 76 5b 31 5d 2c 20 70 43 6f 6c 6c 29 21 3d 30 gv[1], pColl)!=0
3380: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f ){. sqlite3_
3390: 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e result_value(con
33a0: 74 65 78 74 2c 20 61 72 67 76 5b 30 5d 29 3b 0a text, argv[0]);.
33b0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 }.}../*.** Imp
33c0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
33d0: 68 65 20 56 45 52 53 49 4f 4e 28 2a 29 20 66 75 he VERSION(*) fu
33e0: 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 72 65 73 nction. The res
33f0: 75 6c 74 20 69 73 20 74 68 65 20 76 65 72 73 69 ult is the versi
3400: 6f 6e 0a 2a 2a 20 6f 66 20 74 68 65 20 53 51 4c on.** of the SQL
3410: 69 74 65 20 6c 69 62 72 61 72 79 20 74 68 61 74 ite library that
3420: 20 69 73 20 72 75 6e 6e 69 6e 67 2e 0a 2a 2f 0a is running..*/.
3430: 73 74 61 74 69 63 20 76 6f 69 64 20 76 65 72 73 static void vers
3440: 69 6f 6e 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 ionFunc(. sqlit
3450: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
3460: 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c ext,. int argc,
3470: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
3480: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c **argv.){. sql
3490: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
34a0: 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 (context, sqlite
34b0: 33 5f 76 65 72 73 69 6f 6e 2c 20 2d 31 2c 20 53 3_version, -1, S
34c0: 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 7d QLITE_STATIC);.}
34d0: 0a 0a 2f 2a 0a 2a 2a 20 45 58 50 45 52 49 4d 45 ../*.** EXPERIME
34e0: 4e 54 41 4c 20 2d 20 54 68 69 73 20 69 73 20 6e NTAL - This is n
34f0: 6f 74 20 61 6e 20 6f 66 66 69 63 69 61 6c 20 66 ot an official f
3500: 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 69 6e unction. The in
3510: 74 65 72 66 61 63 65 20 6d 61 79 0a 2a 2a 20 63 terface may.** c
3520: 68 61 6e 67 65 2e 20 20 54 68 69 73 20 66 75 6e hange. This fun
3530: 63 74 69 6f 6e 20 6d 61 79 20 64 69 73 61 70 70 ction may disapp
3540: 65 61 72 2e 20 20 44 6f 20 6e 6f 74 20 77 72 69 ear. Do not wri
3550: 74 65 20 63 6f 64 65 20 74 68 61 74 20 64 65 70 te code that dep
3560: 65 6e 64 73 0a 2a 2a 20 6f 6e 20 74 68 69 73 20 ends.** on this
3570: 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 function..**.**
3580: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f Implementation o
3590: 66 20 74 68 65 20 51 55 4f 54 45 28 29 20 66 75 f the QUOTE() fu
35a0: 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 66 75 nction. This fu
35b0: 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 61 20 73 nction takes a s
35c0: 69 6e 67 6c 65 0a 2a 2a 20 61 72 67 75 6d 65 6e ingle.** argumen
35d0: 74 2e 20 20 49 66 20 74 68 65 20 61 72 67 75 6d t. If the argum
35e0: 65 6e 74 20 69 73 20 6e 75 6d 65 72 69 63 2c 20 ent is numeric,
35f0: 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 the return value
3600: 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 0a is the same as.
3610: 2a 2a 20 74 68 65 20 61 72 67 75 6d 65 6e 74 2e ** the argument.
3620: 20 20 49 66 20 74 68 65 20 61 72 67 75 6d 65 6e If the argumen
3630: 74 20 69 73 20 4e 55 4c 4c 2c 20 74 68 65 20 72 t is NULL, the r
3640: 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 eturn value is t
3650: 68 65 20 73 74 72 69 6e 67 0a 2a 2a 20 22 4e 55 he string.** "NU
3660: 4c 4c 22 2e 20 20 4f 74 68 65 72 77 69 73 65 2c LL". Otherwise,
3670: 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 the argument is
3680: 20 65 6e 63 6c 6f 73 65 64 20 69 6e 20 73 69 6e enclosed in sin
3690: 67 6c 65 20 71 75 6f 74 65 73 20 77 69 74 68 0a gle quotes with.
36a0: 2a 2a 20 73 69 6e 67 6c 65 2d 71 75 6f 74 65 20 ** single-quote
36b0: 65 73 63 61 70 65 73 2e 0a 2a 2f 0a 73 74 61 74 escapes..*/.stat
36c0: 69 63 20 76 6f 69 64 20 71 75 6f 74 65 46 75 6e ic void quoteFun
36d0: 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 c(sqlite3_contex
36e0: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 t *context, int
36f0: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 argc, sqlite3_va
3700: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 lue **argv){. i
3710: 66 28 20 61 72 67 63 3c 31 20 29 20 72 65 74 75 f( argc<1 ) retu
3720: 72 6e 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71 rn;. switch( sq
3730: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 lite3_value_type
3740: 28 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 (argv[0]) ){.
3750: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c case SQLITE_NUL
3760: 4c 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 L: {. sqlit
3770: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 e3_result_text(c
3780: 6f 6e 74 65 78 74 2c 20 22 4e 55 4c 4c 22 2c 20 ontext, "NULL",
3790: 34 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 4, SQLITE_STATIC
37a0: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a );. break;.
37b0: 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 53 }. case S
37c0: 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a 0a 20 QLITE_INTEGER:.
37d0: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 46 case SQLITE_F
37e0: 4c 4f 41 54 3a 20 7b 0a 20 20 20 20 20 20 73 71 LOAT: {. sq
37f0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c lite3_result_val
3800: 75 65 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 ue(context, argv
3810: 5b 30 5d 29 3b 0a 20 20 20 20 20 20 62 72 65 61 [0]);. brea
3820: 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 k;. }. cas
3830: 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 20 7b e SQLITE_BLOB: {
3840: 0a 20 20 20 20 20 20 73 74 61 74 69 63 20 63 6f . static co
3850: 6e 73 74 20 63 68 61 72 20 68 65 78 64 69 67 69 nst char hexdigi
3860: 74 73 5b 5d 20 3d 20 7b 20 0a 20 20 20 20 20 20 ts[] = { .
3870: 20 20 27 30 27 2c 20 27 31 27 2c 20 27 32 27 2c '0', '1', '2',
3880: 20 27 33 27 2c 20 27 34 27 2c 20 27 35 27 2c 20 '3', '4', '5',
3890: 27 36 27 2c 20 27 37 27 2c 0a 20 20 20 20 20 20 '6', '7',.
38a0: 20 20 27 38 27 2c 20 27 39 27 2c 20 27 41 27 2c '8', '9', 'A',
38b0: 20 27 42 27 2c 20 27 43 27 2c 20 27 44 27 2c 20 'B', 'C', 'D',
38c0: 27 45 27 2c 20 27 46 27 20 0a 20 20 20 20 20 20 'E', 'F' .
38d0: 7d 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a };. char *z
38e0: 54 65 78 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 Text = 0;.
38f0: 69 6e 74 20 6e 42 6c 6f 62 20 3d 20 73 71 6c 69 int nBlob = sqli
3900: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 te3_value_bytes(
3910: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 argv[0]);.
3920: 63 68 61 72 20 63 6f 6e 73 74 20 2a 7a 42 6c 6f char const *zBlo
3930: 62 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 b = sqlite3_valu
3940: 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d 29 3b e_blob(argv[0]);
3950: 0a 0a 20 20 20 20 20 20 7a 54 65 78 74 20 3d 20 .. zText =
3960: 28 63 68 61 72 20 2a 29 73 71 6c 69 74 65 4d 61 (char *)sqliteMa
3970: 6c 6c 6f 63 28 28 32 2a 6e 42 6c 6f 62 29 2b 34 lloc((2*nBlob)+4
3980: 29 3b 20 0a 20 20 20 20 20 20 69 66 28 20 21 7a ); . if( !z
3990: 54 65 78 74 20 29 7b 0a 20 20 20 20 20 20 20 20 Text ){.
39a0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 sqlite3_result_e
39b0: 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 22 6f rror(context, "o
39c0: 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22 2c 20 2d ut of memory", -
39d0: 31 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 1);. }else{
39e0: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 69 3b 0a . int i;.
39f0: 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b for(i=0;
3a00: 20 69 3c 6e 42 6c 6f 62 3b 20 69 2b 2b 29 7b 0a i<nBlob; i++){.
3a10: 20 20 20 20 20 20 20 20 20 20 7a 54 65 78 74 5b zText[
3a20: 28 69 2a 32 29 2b 32 5d 20 3d 20 68 65 78 64 69 (i*2)+2] = hexdi
3a30: 67 69 74 73 5b 28 7a 42 6c 6f 62 5b 69 5d 3e 3e gits[(zBlob[i]>>
3a40: 34 29 26 30 78 30 46 5d 3b 0a 20 20 20 20 20 20 4)&0x0F];.
3a50: 20 20 20 20 7a 54 65 78 74 5b 28 69 2a 32 29 2b zText[(i*2)+
3a60: 33 5d 20 3d 20 68 65 78 64 69 67 69 74 73 5b 28 3] = hexdigits[(
3a70: 7a 42 6c 6f 62 5b 69 5d 29 26 30 78 30 46 5d 3b zBlob[i])&0x0F];
3a80: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
3a90: 20 20 20 7a 54 65 78 74 5b 28 6e 42 6c 6f 62 2a zText[(nBlob*
3aa0: 32 29 2b 32 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 2)+2] = '\'';.
3ab0: 20 20 20 20 20 20 7a 54 65 78 74 5b 28 6e 42 6c zText[(nBl
3ac0: 6f 62 2a 32 29 2b 33 5d 20 3d 20 27 5c 30 27 3b ob*2)+3] = '\0';
3ad0: 0a 20 20 20 20 20 20 20 20 7a 54 65 78 74 5b 30 . zText[0
3ae0: 5d 20 3d 20 27 58 27 3b 0a 20 20 20 20 20 20 20 ] = 'X';.
3af0: 20 7a 54 65 78 74 5b 31 5d 20 3d 20 27 5c 27 27 zText[1] = '\''
3b00: 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 ;. sqlite
3b10: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 3_result_text(co
3b20: 6e 74 65 78 74 2c 20 7a 54 65 78 74 2c 20 2d 31 ntext, zText, -1
3b30: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 , SQLITE_TRANSIE
3b40: 4e 54 29 3b 0a 20 20 20 20 20 20 20 20 73 71 6c NT);. sql
3b50: 69 74 65 46 72 65 65 28 7a 54 65 78 74 29 3b 0a iteFree(zText);.
3b60: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 62 72 }. br
3b70: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 eak;. }. c
3b80: 61 73 65 20 53 51 4c 49 54 45 5f 54 45 58 54 3a ase SQLITE_TEXT:
3b90: 20 7b 0a 20 20 20 20 20 20 69 6e 74 20 69 2c 6a {. int i,j
3ba0: 2c 6e 3b 0a 20 20 20 20 20 20 63 6f 6e 73 74 20 ,n;. const
3bb0: 63 68 61 72 20 2a 7a 41 72 67 20 3d 20 73 71 6c char *zArg = sql
3bc0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
3bd0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 argv[0]);.
3be0: 63 68 61 72 20 2a 7a 3b 0a 0a 20 20 20 20 20 20 char *z;..
3bf0: 66 6f 72 28 69 3d 6e 3d 30 3b 20 7a 41 72 67 5b for(i=n=0; zArg[
3c00: 69 5d 3b 20 69 2b 2b 29 7b 20 69 66 28 20 7a 41 i]; i++){ if( zA
3c10: 72 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 20 6e 2b rg[i]=='\'' ) n+
3c20: 2b 3b 20 7d 0a 20 20 20 20 20 20 7a 20 3d 20 73 +; }. z = s
3c30: 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 20 69 2b 6e qliteMalloc( i+n
3c40: 2b 33 20 29 3b 0a 20 20 20 20 20 20 69 66 28 20 +3 );. if(
3c50: 7a 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 z==0 ) return;.
3c60: 20 20 20 20 20 7a 5b 30 5d 20 3d 20 27 5c 27 27 z[0] = '\''
3c70: 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30 2c ;. for(i=0,
3c80: 20 6a 3d 31 3b 20 7a 41 72 67 5b 69 5d 3b 20 69 j=1; zArg[i]; i
3c90: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 7a 5b 6a ++){. z[j
3ca0: 2b 2b 5d 20 3d 20 7a 41 72 67 5b 69 5d 3b 0a 20 ++] = zArg[i];.
3cb0: 20 20 20 20 20 20 20 69 66 28 20 7a 41 72 67 5b if( zArg[
3cc0: 69 5d 3d 3d 27 5c 27 27 20 29 7b 0a 20 20 20 20 i]=='\'' ){.
3cd0: 20 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 27 z[j++] = '
3ce0: 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 \'';. }.
3cf0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7a 5b 6a }. z[j
3d00: 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 ++] = '\'';.
3d10: 20 20 7a 5b 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 z[j] = 0;.
3d20: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
3d30: 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a _text(context, z
3d40: 2c 20 6a 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e , j, SQLITE_TRAN
3d50: 53 49 45 4e 54 29 3b 0a 20 20 20 20 20 20 73 71 SIENT);. sq
3d60: 6c 69 74 65 46 72 65 65 28 7a 29 3b 0a 20 20 20 liteFree(z);.
3d70: 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 69 66 64 65 66 }. }.}..#ifdef
3d80: 20 53 51 4c 49 54 45 5f 53 4f 55 4e 44 45 58 0a SQLITE_SOUNDEX.
3d90: 2f 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74 68 /*.** Compute th
3da0: 65 20 73 6f 75 6e 64 65 78 20 65 6e 63 6f 64 69 e soundex encodi
3db0: 6e 67 20 6f 66 20 61 20 77 6f 72 64 2e 0a 2a 2f ng of a word..*/
3dc0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73 6f 75 .static void sou
3dd0: 6e 64 65 78 46 75 6e 63 28 73 71 6c 69 74 65 33 ndexFunc(sqlite3
3de0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
3df0: 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c t, int argc, sql
3e00: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
3e10: 76 29 7b 0a 20 20 63 68 61 72 20 7a 52 65 73 75 v){. char zResu
3e20: 6c 74 5b 38 5d 3b 0a 20 20 63 6f 6e 73 74 20 75 lt[8];. const u
3e30: 38 20 2a 7a 49 6e 3b 0a 20 20 69 6e 74 20 69 2c 8 *zIn;. int i,
3e40: 20 6a 3b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e j;. static con
3e50: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 st unsigned char
3e60: 20 69 43 6f 64 65 5b 5d 20 3d 20 7b 0a 20 20 20 iCode[] = {.
3e70: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
3e80: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
3e90: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
3ea0: 0a 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c . 0, 0, 0, 0,
3eb0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
3ec0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
3ed0: 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 30 , 0,. 0, 0, 0
3ee0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
3ef0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
3f00: 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 0, 0, 0,. 0,
3f10: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
3f20: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
3f30: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 0, 0, 0, 0,.
3f40: 20 30 2c 20 30 2c 20 31 2c 20 32 2c 20 33 2c 20 0, 0, 1, 2, 3,
3f50: 30 2c 20 31 2c 20 32 2c 20 30 2c 20 30 2c 20 32 0, 1, 2, 0, 0, 2
3f60: 2c 20 32 2c 20 34 2c 20 35 2c 20 35 2c 20 30 2c , 2, 4, 5, 5, 0,
3f70: 0a 20 20 20 20 31 2c 20 32 2c 20 36 2c 20 32 2c . 1, 2, 6, 2,
3f80: 20 33 2c 20 30 2c 20 31 2c 20 30 2c 20 32 2c 20 3, 0, 1, 0, 2,
3f90: 30 2c 20 32 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 2, 0, 0, 0, 0
3fa0: 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 31 , 0,. 0, 0, 1
3fb0: 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2c 20 32 2c , 2, 3, 0, 1, 2,
3fc0: 20 30 2c 20 30 2c 20 32 2c 20 32 2c 20 34 2c 20 0, 0, 2, 2, 4,
3fd0: 35 2c 20 35 2c 20 30 2c 0a 20 20 20 20 31 2c 20 5, 5, 0,. 1,
3fe0: 32 2c 20 36 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2, 6, 2, 3, 0, 1
3ff0: 2c 20 30 2c 20 32 2c 20 30 2c 20 32 2c 20 30 2c , 0, 2, 0, 2, 0,
4000: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 7d 0, 0, 0, 0,. }
4010: 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 ;. assert( argc
4020: 3d 3d 31 20 29 3b 0a 20 20 7a 49 6e 20 3d 20 28 ==1 );. zIn = (
4030: 75 38 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 u8*)sqlite3_valu
4040: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b e_text(argv[0]);
4050: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 49 6e 5b . for(i=0; zIn[
4060: 69 5d 20 26 26 20 21 69 73 61 6c 70 68 61 28 7a i] && !isalpha(z
4070: 49 6e 5b 69 5d 29 3b 20 69 2b 2b 29 7b 7d 0a 20 In[i]); i++){}.
4080: 20 69 66 28 20 7a 49 6e 5b 69 5d 20 29 7b 0a 20 if( zIn[i] ){.
4090: 20 20 20 7a 52 65 73 75 6c 74 5b 30 5d 20 3d 20 zResult[0] =
40a0: 74 6f 75 70 70 65 72 28 7a 49 6e 5b 69 5d 29 3b toupper(zIn[i]);
40b0: 0a 20 20 20 20 66 6f 72 28 6a 3d 31 3b 20 6a 3c . for(j=1; j<
40c0: 34 20 26 26 20 7a 49 6e 5b 69 5d 3b 20 69 2b 2b 4 && zIn[i]; i++
40d0: 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 63 6f 64 ){. int cod
40e0: 65 20 3d 20 69 43 6f 64 65 5b 7a 49 6e 5b 69 5d e = iCode[zIn[i]
40f0: 26 30 78 37 66 5d 3b 0a 20 20 20 20 20 20 69 66 &0x7f];. if
4100: 28 20 63 6f 64 65 3e 30 20 29 7b 0a 20 20 20 20 ( code>0 ){.
4110: 20 20 20 20 7a 52 65 73 75 6c 74 5b 6a 2b 2b 5d zResult[j++]
4120: 20 3d 20 63 6f 64 65 20 2b 20 27 30 27 3b 0a 20 = code + '0';.
4130: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 }. }.
4140: 20 77 68 69 6c 65 28 20 6a 3c 34 20 29 7b 0a 20 while( j<4 ){.
4150: 20 20 20 20 20 7a 52 65 73 75 6c 74 5b 6a 2b 2b zResult[j++
4160: 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 7d 0a 20 ] = '0';. }.
4170: 20 20 20 7a 52 65 73 75 6c 74 5b 6a 5d 20 3d 20 zResult[j] =
4180: 30 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 0;. sqlite3_r
4190: 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 esult_text(conte
41a0: 78 74 2c 20 7a 52 65 73 75 6c 74 2c 20 34 2c 20 xt, zResult, 4,
41b0: 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 SQLITE_TRANSIENT
41c0: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 );. }else{.
41d0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 sqlite3_result_t
41e0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 22 3f 30 ext(context, "?0
41f0: 30 30 22 2c 20 34 2c 20 53 51 4c 49 54 45 5f 53 00", 4, SQLITE_S
4200: 54 41 54 49 43 29 3b 0a 20 20 7d 0a 7d 0a 23 65 TATIC);. }.}.#e
4210: 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c ndif..#ifdef SQL
4220: 49 54 45 5f 54 45 53 54 0a 2f 2a 0a 2a 2a 20 54 ITE_TEST./*.** T
4230: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e his function gen
4240: 65 72 61 74 65 73 20 61 20 73 74 72 69 6e 67 20 erates a string
4250: 6f 66 20 72 61 6e 64 6f 6d 20 63 68 61 72 61 63 of random charac
4260: 74 65 72 73 2e 20 20 55 73 65 64 20 66 6f 72 0a ters. Used for.
4270: 2a 2a 20 67 65 6e 65 72 61 74 69 6e 67 20 74 65 ** generating te
4280: 73 74 20 64 61 74 61 2e 0a 2a 2f 0a 73 74 61 74 st data..*/.stat
4290: 69 63 20 76 6f 69 64 20 72 61 6e 64 53 74 72 28 ic void randStr(
42a0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
42b0: 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 *context, int ar
42c0: 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 gc, sqlite3_valu
42d0: 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 73 74 61 e **argv){. sta
42e0: 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e tic const unsign
42f0: 65 64 20 63 68 61 72 20 7a 53 72 63 5b 5d 20 3d ed char zSrc[] =
4300: 20 0a 20 20 20 20 20 22 61 62 63 64 65 66 67 68 . "abcdefgh
4310: 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 ijklmnopqrstuvwx
4320: 79 7a 22 0a 20 20 20 20 20 22 41 42 43 44 45 46 yz". "ABCDEF
4330: 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 GHIJKLMNOPQRSTUV
4340: 57 58 59 5a 22 0a 20 20 20 20 20 22 30 31 32 33 WXYZ". "0123
4350: 34 35 36 37 38 39 22 0a 20 20 20 20 20 22 2e 2d 456789". ".-
4360: 21 2c 3a 2a 5e 2b 3d 5f 7c 3f 2f 3c 3e 20 22 3b !,:*^+=_|?/<> ";
4370: 0a 20 20 69 6e 74 20 69 4d 69 6e 2c 20 69 4d 61 . int iMin, iMa
4380: 78 2c 20 6e 2c 20 72 2c 20 69 3b 0a 20 20 75 6e x, n, r, i;. un
4390: 73 69 67 6e 65 64 20 63 68 61 72 20 7a 42 75 66 signed char zBuf
43a0: 5b 31 30 30 30 5d 3b 0a 20 20 69 66 28 20 61 72 [1000];. if( ar
43b0: 67 63 3e 3d 31 20 29 7b 0a 20 20 20 20 69 4d 69 gc>=1 ){. iMi
43c0: 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 n = sqlite3_valu
43d0: 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 3b 0a e_int(argv[0]);.
43e0: 20 20 20 20 69 66 28 20 69 4d 69 6e 3c 30 20 29 if( iMin<0 )
43f0: 20 69 4d 69 6e 20 3d 20 30 3b 0a 20 20 20 20 69 iMin = 0;. i
4400: 66 28 20 69 4d 69 6e 3e 3d 73 69 7a 65 6f 66 28 f( iMin>=sizeof(
4410: 7a 42 75 66 29 20 29 20 69 4d 69 6e 20 3d 20 73 zBuf) ) iMin = s
4420: 69 7a 65 6f 66 28 7a 42 75 66 29 2d 31 3b 0a 20 izeof(zBuf)-1;.
4430: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 4d 69 6e }else{. iMin
4440: 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 69 66 28 20 = 1;. }. if(
4450: 61 72 67 63 3e 3d 32 20 29 7b 0a 20 20 20 20 69 argc>=2 ){. i
4460: 4d 61 78 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 Max = sqlite3_va
4470: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 lue_int(argv[1])
4480: 3b 0a 20 20 20 20 69 66 28 20 69 4d 61 78 3c 69 ;. if( iMax<i
4490: 4d 69 6e 20 29 20 69 4d 61 78 20 3d 20 69 4d 69 Min ) iMax = iMi
44a0: 6e 3b 0a 20 20 20 20 69 66 28 20 69 4d 61 78 3e n;. if( iMax>
44b0: 3d 73 69 7a 65 6f 66 28 7a 42 75 66 29 20 29 20 =sizeof(zBuf) )
44c0: 69 4d 61 78 20 3d 20 73 69 7a 65 6f 66 28 7a 42 iMax = sizeof(zB
44d0: 75 66 29 2d 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a uf)-1;. }else{.
44e0: 20 20 20 20 69 4d 61 78 20 3d 20 35 30 3b 0a 20 iMax = 50;.
44f0: 20 7d 0a 20 20 6e 20 3d 20 69 4d 69 6e 3b 0a 20 }. n = iMin;.
4500: 20 69 66 28 20 69 4d 61 78 3e 69 4d 69 6e 20 29 if( iMax>iMin )
4510: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 52 61 6e {. sqlite3Ran
4520: 64 6f 6d 6e 65 73 73 28 73 69 7a 65 6f 66 28 72 domness(sizeof(r
4530: 29 2c 20 26 72 29 3b 0a 20 20 20 20 72 20 26 3d ), &r);. r &=
4540: 20 30 78 37 66 66 66 66 66 66 66 3b 0a 20 20 20 0x7fffffff;.
4550: 20 6e 20 2b 3d 20 72 25 28 69 4d 61 78 20 2b 20 n += r%(iMax +
4560: 31 20 2d 20 69 4d 69 6e 29 3b 0a 20 20 7d 0a 20 1 - iMin);. }.
4570: 20 61 73 73 65 72 74 28 20 6e 3c 73 69 7a 65 6f assert( n<sizeo
4580: 66 28 7a 42 75 66 29 20 29 3b 0a 20 20 73 71 6c f(zBuf) );. sql
4590: 69 74 65 33 52 61 6e 64 6f 6d 6e 65 73 73 28 6e ite3Randomness(n
45a0: 2c 20 7a 42 75 66 29 3b 0a 20 20 66 6f 72 28 69 , zBuf);. for(i
45b0: 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b 0a 20 =0; i<n; i++){.
45c0: 20 20 20 7a 42 75 66 5b 69 5d 20 3d 20 7a 53 72 zBuf[i] = zSr
45d0: 63 5b 7a 42 75 66 5b 69 5d 25 28 73 69 7a 65 6f c[zBuf[i]%(sizeo
45e0: 66 28 7a 53 72 63 29 2d 31 29 5d 3b 0a 20 20 7d f(zSrc)-1)];. }
45f0: 0a 20 20 7a 42 75 66 5b 6e 5d 20 3d 20 30 3b 0a . zBuf[n] = 0;.
4600: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
4610: 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a _text(context, z
4620: 42 75 66 2c 20 6e 2c 20 53 51 4c 49 54 45 5f 54 Buf, n, SQLITE_T
4630: 52 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 23 65 6e RANSIENT);.}.#en
4640: 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 54 45 dif /* SQLITE_TE
4650: 53 54 20 2a 2f 0a 0a 23 69 66 64 65 66 20 53 51 ST */..#ifdef SQ
4660: 4c 49 54 45 5f 54 45 53 54 0a 2f 2a 0a 2a 2a 20 LITE_TEST./*.**
4670: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 77 The following tw
4680: 6f 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 73 20 o SQL functions
4690: 61 72 65 20 75 73 65 64 20 74 6f 20 74 65 73 74 are used to test
46a0: 20 72 65 74 75 72 6e 69 6e 67 20 61 20 74 65 78 returning a tex
46b0: 74 0a 2a 2a 20 72 65 73 75 6c 74 20 77 69 74 68 t.** result with
46c0: 20 61 20 64 65 73 74 72 75 63 74 6f 72 2e 20 46 a destructor. F
46d0: 75 6e 63 74 69 6f 6e 20 27 74 65 73 74 5f 64 65 unction 'test_de
46e0: 73 74 72 75 63 74 6f 72 27 20 74 61 6b 65 73 20 structor' takes
46f0: 6f 6e 65 20 61 72 67 75 6d 65 6e 74 0a 2a 2a 20 one argument.**
4700: 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 and returns the
4710: 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 20 69 6e same argument in
4720: 74 65 72 70 72 65 74 65 64 20 61 73 20 54 45 58 terpreted as TEX
4730: 54 2e 20 41 20 64 65 73 74 72 75 63 74 6f 72 20 T. A destructor
4740: 69 73 0a 2a 2a 20 70 61 73 73 65 64 20 77 69 74 is.** passed wit
4750: 68 20 74 68 65 20 73 71 6c 69 74 65 33 5f 72 65 h the sqlite3_re
4760: 73 75 6c 74 5f 74 65 78 74 28 29 20 63 61 6c 6c sult_text() call
4770: 2e 0a 2a 2a 0a 2a 2a 20 53 51 4c 20 66 75 6e 63 ..**.** SQL func
4780: 74 69 6f 6e 20 27 74 65 73 74 5f 64 65 73 74 72 tion 'test_destr
4790: 75 63 74 6f 72 5f 63 6f 75 6e 74 27 20 72 65 74 uctor_count' ret
47a0: 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 urns the number
47b0: 6f 66 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 0a of outstanding .
47c0: 2a 2a 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 20 6d ** allocations m
47d0: 61 64 65 20 62 79 20 27 74 65 73 74 5f 64 65 73 ade by 'test_des
47e0: 74 72 75 63 74 6f 72 27 3b 0a 2a 2a 0a 2a 2a 20 tructor';.**.**
47f0: 57 41 52 4e 49 4e 47 3a 20 4e 6f 74 20 74 68 72 WARNING: Not thr
4800: 65 61 64 73 61 66 65 2e 0a 2a 2f 0a 73 74 61 74 eadsafe..*/.stat
4810: 69 63 20 69 6e 74 20 74 65 73 74 5f 64 65 73 74 ic int test_dest
4820: 72 75 63 74 6f 72 5f 63 6f 75 6e 74 5f 76 61 72 ructor_count_var
4830: 20 3d 20 30 3b 0a 73 74 61 74 69 63 20 76 6f 69 = 0;.static voi
4840: 64 20 64 65 73 74 72 75 63 74 6f 72 28 76 6f 69 d destructor(voi
4850: 64 20 2a 70 29 7b 0a 20 20 63 68 61 72 20 2a 7a d *p){. char *z
4860: 56 61 6c 20 3d 20 28 63 68 61 72 20 2a 29 70 3b Val = (char *)p;
4870: 0a 20 20 61 73 73 65 72 74 28 7a 56 61 6c 29 3b . assert(zVal);
4880: 0a 20 20 7a 56 61 6c 2d 2d 3b 0a 20 20 73 71 6c . zVal--;. sql
4890: 69 74 65 46 72 65 65 28 7a 56 61 6c 29 3b 0a 20 iteFree(zVal);.
48a0: 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 test_destructor
48b0: 5f 63 6f 75 6e 74 5f 76 61 72 2d 2d 3b 0a 7d 0a _count_var--;.}.
48c0: 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 static void test
48d0: 5f 64 65 73 74 72 75 63 74 6f 72 28 0a 20 20 73 _destructor(. s
48e0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
48f0: 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 pCtx, . int nAr
4900: 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c g,. sqlite3_val
4910: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 ue **argv.){. c
4920: 68 61 72 20 2a 7a 56 61 6c 3b 0a 20 20 69 6e 74 har *zVal;. int
4930: 20 6c 65 6e 3b 0a 20 20 73 71 6c 69 74 65 20 2a len;. sqlite *
4940: 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65 db = sqlite3_use
4950: 72 5f 64 61 74 61 28 70 43 74 78 29 3b 0a 20 0a r_data(pCtx);. .
4960: 20 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f test_destructo
4970: 72 5f 63 6f 75 6e 74 5f 76 61 72 2b 2b 3b 0a 20 r_count_var++;.
4980: 20 61 73 73 65 72 74 28 20 6e 41 72 67 3d 3d 31 assert( nArg==1
4990: 20 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 );. if( sqlite
49a0: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 3_value_type(arg
49b0: 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 v[0])==SQLITE_NU
49c0: 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6c LL ) return;. l
49d0: 65 6e 20 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 en = sqlite3Valu
49e0: 65 42 79 74 65 73 28 61 72 67 76 5b 30 5d 2c 20 eBytes(argv[0],
49f0: 64 62 2d 3e 65 6e 63 29 3b 20 0a 20 20 7a 56 61 db->enc); . zVa
4a00: 6c 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 l = sqliteMalloc
4a10: 28 6c 65 6e 2b 33 29 3b 0a 20 20 7a 56 61 6c 5b (len+3);. zVal[
4a20: 6c 65 6e 5d 20 3d 20 30 3b 0a 20 20 7a 56 61 6c len] = 0;. zVal
4a30: 5b 6c 65 6e 2d 31 5d 20 3d 20 30 3b 0a 20 20 61 [len-1] = 0;. a
4a40: 73 73 65 72 74 28 20 7a 56 61 6c 20 29 3b 0a 20 ssert( zVal );.
4a50: 20 7a 56 61 6c 2b 2b 3b 0a 20 20 6d 65 6d 63 70 zVal++;. memcp
4a60: 79 28 7a 56 61 6c 2c 20 73 71 6c 69 74 65 33 56 y(zVal, sqlite3V
4a70: 61 6c 75 65 54 65 78 74 28 61 72 67 76 5b 30 5d alueText(argv[0]
4a80: 2c 20 64 62 2d 3e 65 6e 63 29 2c 20 6c 65 6e 29 , db->enc), len)
4a90: 3b 0a 20 20 69 66 28 20 64 62 2d 3e 65 6e 63 3d ;. if( db->enc=
4aa0: 3d 53 51 4c 49 54 45 5f 55 54 46 38 20 29 7b 0a =SQLITE_UTF8 ){.
4ab0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
4ac0: 6c 74 5f 74 65 78 74 28 70 43 74 78 2c 20 7a 56 lt_text(pCtx, zV
4ad0: 61 6c 2c 20 2d 31 2c 20 64 65 73 74 72 75 63 74 al, -1, destruct
4ae0: 6f 72 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 or);. }else if(
4af0: 20 64 62 2d 3e 65 6e 63 3d 3d 53 51 4c 49 54 45 db->enc==SQLITE
4b00: 5f 55 54 46 31 36 4c 45 20 29 7b 0a 20 20 20 20 _UTF16LE ){.
4b10: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 sqlite3_result_t
4b20: 65 78 74 31 36 6c 65 28 70 43 74 78 2c 20 7a 56 ext16le(pCtx, zV
4b30: 61 6c 2c 20 2d 31 2c 20 64 65 73 74 72 75 63 74 al, -1, destruct
4b40: 6f 72 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 or);. }else{.
4b50: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
4b60: 5f 74 65 78 74 31 36 62 65 28 70 43 74 78 2c 20 _text16be(pCtx,
4b70: 7a 56 61 6c 2c 20 2d 31 2c 20 64 65 73 74 72 75 zVal, -1, destru
4b80: 63 74 6f 72 29 3b 0a 20 20 7d 0a 7d 0a 73 74 61 ctor);. }.}.sta
4b90: 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f 64 65 tic void test_de
4ba0: 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 28 0a structor_count(.
4bb0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
4bc0: 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 t *pCtx, . int
4bd0: 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f nArg,. sqlite3_
4be0: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
4bf0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
4c00: 5f 69 6e 74 28 70 43 74 78 2c 20 74 65 73 74 5f _int(pCtx, test_
4c10: 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 destructor_count
4c20: 5f 76 61 72 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 _var);.}.#endif
4c30: 2f 2a 20 53 51 4c 49 54 45 5f 54 45 53 54 20 2a /* SQLITE_TEST *
4c40: 2f 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 /..#ifdef SQLITE
4c50: 5f 54 45 53 54 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 _TEST./*.** Rout
4c60: 69 6e 65 73 20 66 6f 72 20 74 65 73 74 69 6e 67 ines for testing
4c70: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 67 65 74 the sqlite3_get
4c80: 5f 61 75 78 64 61 74 61 28 29 20 61 6e 64 20 73 _auxdata() and s
4c90: 71 6c 69 74 65 33 5f 73 65 74 5f 61 75 78 64 61 qlite3_set_auxda
4ca0: 74 61 28 29 0a 2a 2a 20 69 6e 74 65 72 66 61 63 ta().** interfac
4cb0: 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 74 65 73 e..**.** The tes
4cc0: 74 5f 61 75 78 64 61 74 61 28 29 20 53 51 4c 20 t_auxdata() SQL
4cd0: 66 75 6e 63 74 69 6f 6e 20 61 74 74 65 6d 70 74 function attempt
4ce0: 73 20 74 6f 20 72 65 67 69 73 74 65 72 20 65 61 s to register ea
4cf0: 63 68 20 6f 66 20 69 74 73 20 61 72 67 75 6d 65 ch of its argume
4d00: 6e 74 73 0a 2a 2a 20 61 73 20 61 75 78 69 6c 69 nts.** as auxili
4d10: 61 72 79 20 64 61 74 61 2e 20 20 49 66 20 74 68 ary data. If th
4d20: 65 72 65 20 61 72 65 20 6e 6f 20 70 72 69 6f 72 ere are no prior
4d30: 20 72 65 67 69 73 74 72 61 74 69 6f 6e 73 20 6f registrations o
4d40: 66 20 61 75 78 20 64 61 74 61 20 66 6f 72 0a 2a f aux data for.*
4d50: 2a 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74 20 * that argument
4d60: 28 6d 65 61 6e 69 6e 67 20 74 68 65 20 61 72 67 (meaning the arg
4d70: 75 6d 65 6e 74 20 69 73 20 6e 6f 74 20 61 20 63 ument is not a c
4d80: 6f 6e 73 74 61 6e 74 20 6f 72 20 74 68 69 73 20 onstant or this
4d90: 69 73 20 69 74 73 20 66 69 72 73 74 0a 2a 2a 20 is its first.**
4da0: 63 61 6c 6c 29 20 74 68 65 6e 20 74 68 65 20 72 call) then the r
4db0: 65 73 75 6c 74 20 66 6f 72 20 74 68 61 74 20 61 esult for that a
4dc0: 72 67 75 6d 65 6e 74 20 69 73 20 30 2e 20 20 49 rgument is 0. I
4dd0: 66 20 74 68 65 72 65 20 69 73 20 61 20 70 72 69 f there is a pri
4de0: 6f 72 0a 2a 2a 20 72 65 67 69 73 74 72 61 74 69 or.** registrati
4df0: 6f 6e 2c 20 74 68 65 20 72 65 73 75 6c 74 20 66 on, the result f
4e00: 6f 72 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74 or that argument
4e10: 20 69 73 20 31 2e 20 20 54 68 65 20 6f 76 65 72 is 1. The over
4e20: 61 6c 6c 20 72 65 73 75 6c 74 0a 2a 2a 20 69 73 all result.** is
4e30: 20 74 68 65 20 69 6e 64 69 76 69 64 75 61 6c 20 the individual
4e40: 61 72 67 75 6d 65 6e 74 20 72 65 73 75 6c 74 73 argument results
4e50: 20 73 65 70 61 72 61 74 65 64 20 62 79 20 73 70 separated by sp
4e60: 61 63 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 aces..*/.static
4e70: 76 6f 69 64 20 66 72 65 65 5f 74 65 73 74 5f 61 void free_test_a
4e80: 75 78 64 61 74 61 28 76 6f 69 64 20 2a 70 29 20 uxdata(void *p)
4e90: 7b 73 71 6c 69 74 65 46 72 65 65 28 70 29 3b 7d {sqliteFree(p);}
4ea0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 .static void tes
4eb0: 74 5f 61 75 78 64 61 74 61 28 0a 20 20 73 71 6c t_auxdata(. sql
4ec0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 43 ite3_context *pC
4ed0: 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 2c tx, . int nArg,
4ee0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 . sqlite3_value
4ef0: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 **argv.){. int
4f00: 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a 52 65 74 i;. char *zRet
4f10: 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 = sqliteMalloc(
4f20: 6e 41 72 67 2a 32 29 3b 0a 20 20 69 66 28 20 21 nArg*2);. if( !
4f30: 7a 52 65 74 20 29 20 72 65 74 75 72 6e 3b 0a 20 zRet ) return;.
4f40: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 41 72 67 for(i=0; i<nArg
4f50: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 63 68 61 72 ; i++){. char
4f60: 20 63 6f 6e 73 74 20 2a 7a 20 3d 20 73 71 6c 69 const *z = sqli
4f70: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
4f80: 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 69 66 28 rgv[i]);. if(
4f90: 20 7a 20 29 7b 0a 20 20 20 20 20 20 63 68 61 72 z ){. char
4fa0: 20 2a 7a 41 75 78 20 3d 20 73 71 6c 69 74 65 33 *zAux = sqlite3
4fb0: 5f 67 65 74 5f 61 75 78 64 61 74 61 28 70 43 74 _get_auxdata(pCt
4fc0: 78 2c 20 69 29 3b 0a 20 20 20 20 20 20 69 66 28 x, i);. if(
4fd0: 20 7a 41 75 78 20 29 7b 0a 20 20 20 20 20 20 20 zAux ){.
4fe0: 20 7a 52 65 74 5b 69 2a 32 5d 20 3d 20 27 31 27 zRet[i*2] = '1'
4ff0: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 73 74 ;. if( st
5000: 72 63 6d 70 28 7a 41 75 78 2c 20 7a 29 20 29 7b rcmp(zAux, z) ){
5010: 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 . sqlit
5020: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 e3_result_error(
5030: 70 43 74 78 2c 20 22 41 75 78 69 6c 61 72 79 20 pCtx, "Auxilary
5040: 64 61 74 61 20 63 6f 72 72 75 70 74 69 6f 6e 22 data corruption"
5050: 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 , -1);.
5060: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 return;.
5070: 20 7d 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a }. }else{.
5080: 20 20 20 20 20 20 20 20 7a 52 65 74 5b 69 2a 32 zRet[i*2
5090: 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 ] = '0';.
50a0: 20 7a 41 75 78 20 3d 20 73 71 6c 69 74 65 53 74 zAux = sqliteSt
50b0: 72 44 75 70 28 7a 29 3b 0a 20 20 20 20 20 20 20 rDup(z);.
50c0: 20 73 71 6c 69 74 65 33 5f 73 65 74 5f 61 75 78 sqlite3_set_aux
50d0: 64 61 74 61 28 70 43 74 78 2c 20 69 2c 20 7a 41 data(pCtx, i, zA
50e0: 75 78 2c 20 66 72 65 65 5f 74 65 73 74 5f 61 75 ux, free_test_au
50f0: 78 64 61 74 61 29 3b 0a 20 20 20 20 20 20 7d 0a xdata);. }.
5100: 20 20 20 20 20 20 7a 52 65 74 5b 69 2a 32 2b 31 zRet[i*2+1
5110: 5d 20 3d 20 27 20 27 3b 0a 20 20 20 20 7d 0a 20 ] = ' ';. }.
5120: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 }. sqlite3_res
5130: 75 6c 74 5f 74 65 78 74 28 70 43 74 78 2c 20 7a ult_text(pCtx, z
5140: 52 65 74 2c 20 32 2a 6e 41 72 67 2d 31 2c 20 66 Ret, 2*nArg-1, f
5150: 72 65 65 5f 74 65 73 74 5f 61 75 78 64 61 74 61 ree_test_auxdata
5160: 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 );.}.#endif /* S
5170: 51 4c 49 54 45 5f 54 45 53 54 20 2a 2f 0a 0a 2f QLITE_TEST */../
5180: 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 6e 63 65 *.** An instance
5190: 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e of the followin
51a0: 67 20 73 74 72 75 63 74 75 72 65 20 68 6f 6c 64 g structure hold
51b0: 73 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 s the context of
51c0: 20 61 0a 2a 2a 20 73 75 6d 28 29 20 6f 72 20 61 a.** sum() or a
51d0: 76 67 28 29 20 61 67 67 72 65 67 61 74 65 20 63 vg() aggregate c
51e0: 6f 6d 70 75 74 61 74 69 6f 6e 2e 0a 2a 2f 0a 74 omputation..*/.t
51f0: 79 70 65 64 65 66 20 73 74 72 75 63 74 20 53 75 ypedef struct Su
5200: 6d 43 74 78 20 53 75 6d 43 74 78 3b 0a 73 74 72 mCtx SumCtx;.str
5210: 75 63 74 20 53 75 6d 43 74 78 20 7b 0a 20 20 64 uct SumCtx {. d
5220: 6f 75 62 6c 65 20 73 75 6d 3b 20 20 20 20 20 2f ouble sum; /
5230: 2a 20 53 75 6d 20 6f 66 20 74 65 72 6d 73 20 2a * Sum of terms *
5240: 2f 0a 20 20 69 6e 74 20 63 6e 74 3b 20 20 20 20 /. int cnt;
5250: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
5260: 20 65 6c 65 6d 65 6e 74 73 20 73 75 6d 6d 65 64 elements summed
5270: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 52 6f */.};../*.** Ro
5280: 75 74 69 6e 65 73 20 75 73 65 64 20 74 6f 20 63 utines used to c
5290: 6f 6d 70 75 74 65 20 74 68 65 20 73 75 6d 20 6f ompute the sum o
52a0: 72 20 61 76 65 72 61 67 65 2e 0a 2a 2f 0a 73 74 r average..*/.st
52b0: 61 74 69 63 20 76 6f 69 64 20 73 75 6d 53 74 65 atic void sumSte
52c0: 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 p(sqlite3_contex
52d0: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 t *context, int
52e0: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 argc, sqlite3_va
52f0: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 53 lue **argv){. S
5300: 75 6d 43 74 78 20 2a 70 3b 0a 20 20 69 66 28 20 umCtx *p;. if(
5310: 61 72 67 63 3c 31 20 29 20 72 65 74 75 72 6e 3b argc<1 ) return;
5320: 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 . p = sqlite3_a
5330: 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 ggregate_context
5340: 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 (context, sizeof
5350: 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 70 20 26 (*p));. if( p &
5360: 26 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 21 3d 73 & SQLITE_NULL!=s
5370: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 qlite3_value_typ
5380: 65 28 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 e(argv[0]) ){.
5390: 20 20 70 2d 3e 73 75 6d 20 2b 3d 20 73 71 6c 69 p->sum += sqli
53a0: 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 te3_value_double
53b0: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 70 (argv[0]);. p
53c0: 2d 3e 63 6e 74 2b 2b 3b 0a 20 20 7d 0a 7d 0a 73 ->cnt++;. }.}.s
53d0: 74 61 74 69 63 20 76 6f 69 64 20 73 75 6d 46 69 tatic void sumFi
53e0: 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 nalize(sqlite3_c
53f0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 ontext *context)
5400: 7b 0a 20 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 {. SumCtx *p;.
5410: 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 p = sqlite3_agg
5420: 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 regate_context(c
5430: 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a ontext, sizeof(*
5440: 70 29 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 p));. sqlite3_r
5450: 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e esult_double(con
5460: 74 65 78 74 2c 20 70 20 3f 20 70 2d 3e 73 75 6d text, p ? p->sum
5470: 20 3a 20 30 2e 30 29 3b 0a 7d 0a 73 74 61 74 69 : 0.0);.}.stati
5480: 63 20 76 6f 69 64 20 61 76 67 46 69 6e 61 6c 69 c void avgFinali
5490: 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 ze(sqlite3_conte
54a0: 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 xt *context){.
54b0: 53 75 6d 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d SumCtx *p;. p =
54c0: 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 sqlite3_aggrega
54d0: 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 te_context(conte
54e0: 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b xt, sizeof(*p));
54f0: 0a 20 20 69 66 28 20 70 20 26 26 20 70 2d 3e 63 . if( p && p->c
5500: 6e 74 3e 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 nt>0 ){. sqli
5510: 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62 6c te3_result_doubl
5520: 65 28 63 6f 6e 74 65 78 74 2c 20 70 2d 3e 73 75 e(context, p->su
5530: 6d 2f 28 64 6f 75 62 6c 65 29 70 2d 3e 63 6e 74 m/(double)p->cnt
5540: 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 );. }.}../*.**
5550: 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 An instance of t
5560: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 he following str
5570: 75 63 74 75 72 65 20 68 6f 6c 64 73 20 74 68 65 ucture holds the
5580: 20 63 6f 6e 74 65 78 74 20 6f 66 20 61 0a 2a 2a context of a.**
5590: 20 76 61 72 69 61 6e 63 65 20 6f 72 20 73 74 61 variance or sta
55a0: 6e 64 61 72 64 20 64 65 76 69 61 74 69 6f 6e 20 ndard deviation
55b0: 63 6f 6d 70 75 74 61 74 69 6f 6e 2e 0a 2a 2f 0a computation..*/.
55c0: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 53 typedef struct S
55d0: 74 64 44 65 76 43 74 78 20 53 74 64 44 65 76 43 tdDevCtx StdDevC
55e0: 74 78 3b 0a 73 74 72 75 63 74 20 53 74 64 44 65 tx;.struct StdDe
55f0: 76 43 74 78 20 7b 0a 20 20 64 6f 75 62 6c 65 20 vCtx {. double
5600: 73 75 6d 3b 20 20 20 20 20 2f 2a 20 53 75 6d 20 sum; /* Sum
5610: 6f 66 20 74 65 72 6d 73 20 2a 2f 0a 20 20 64 6f of terms */. do
5620: 75 62 6c 65 20 73 75 6d 32 3b 20 20 20 20 2f 2a uble sum2; /*
5630: 20 53 75 6d 20 6f 66 20 74 68 65 20 73 71 75 61 Sum of the squa
5640: 72 65 73 20 6f 66 20 74 65 72 6d 73 20 2a 2f 0a res of terms */.
5650: 20 20 69 6e 74 20 63 6e 74 3b 20 20 20 20 20 20 int cnt;
5660: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 74 /* Number of t
5670: 65 72 6d 73 20 63 6f 75 6e 74 65 64 20 2a 2f 0a erms counted */.
5680: 7d 3b 0a 0a 23 69 66 20 30 20 20 20 2f 2a 20 4f };..#if 0 /* O
5690: 6d 69 74 20 62 65 63 61 75 73 65 20 6d 61 74 68 mit because math
56a0: 20 6c 69 62 72 61 72 79 20 69 73 20 72 65 71 75 library is requ
56b0: 69 72 65 64 20 2a 2f 0a 2f 2a 0a 2a 2a 20 52 6f ired */./*.** Ro
56c0: 75 74 69 6e 65 73 20 75 73 65 64 20 74 6f 20 63 utines used to c
56d0: 6f 6d 70 75 74 65 20 74 68 65 20 73 74 61 6e 64 ompute the stand
56e0: 61 72 64 20 64 65 76 69 61 74 69 6f 6e 20 61 73 ard deviation as
56f0: 20 61 6e 20 61 67 67 72 65 67 61 74 65 2e 0a 2a an aggregate..*
5700: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73 74 /.static void st
5710: 64 44 65 76 53 74 65 70 28 73 71 6c 69 74 65 33 dDevStep(sqlite3
5720: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
5730: 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e t, int argc, con
5740: 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 29 7b st char **argv){
5750: 0a 20 20 53 74 64 44 65 76 43 74 78 20 2a 70 3b . StdDevCtx *p;
5760: 0a 20 20 64 6f 75 62 6c 65 20 78 3b 0a 20 20 69 . double x;. i
5770: 66 28 20 61 72 67 63 3c 31 20 29 20 72 65 74 75 f( argc<1 ) retu
5780: 72 6e 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 rn;. p = sqlite
5790: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 3_aggregate_cont
57a0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a ext(context, siz
57b0: 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 eof(*p));. if(
57c0: 70 20 26 26 20 61 72 67 76 5b 30 5d 20 29 7b 0a p && argv[0] ){.
57d0: 20 20 20 20 78 20 3d 20 73 71 6c 69 74 65 33 41 x = sqlite3A
57e0: 74 6f 46 28 61 72 67 76 5b 30 5d 2c 20 30 29 3b toF(argv[0], 0);
57f0: 0a 20 20 20 20 70 2d 3e 73 75 6d 20 2b 3d 20 78 . p->sum += x
5800: 3b 0a 20 20 20 20 70 2d 3e 73 75 6d 32 20 2b 3d ;. p->sum2 +=
5810: 20 78 2a 78 3b 0a 20 20 20 20 70 2d 3e 63 6e 74 x*x;. p->cnt
5820: 2b 2b 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63 ++;. }.}.static
5830: 20 76 6f 69 64 20 73 74 64 44 65 76 46 69 6e 61 void stdDevFina
5840: 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e lize(sqlite3_con
5850: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a text *context){.
5860: 20 20 64 6f 75 62 6c 65 20 72 4e 20 3d 20 73 71 double rN = sq
5870: 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f lite3_aggregate_
5880: 63 6f 75 6e 74 28 63 6f 6e 74 65 78 74 29 3b 0a count(context);.
5890: 20 20 53 74 64 44 65 76 43 74 78 20 2a 70 20 3d StdDevCtx *p =
58a0: 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 sqlite3_aggrega
58b0: 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 te_context(conte
58c0: 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b xt, sizeof(*p));
58d0: 0a 20 20 69 66 28 20 70 20 26 26 20 70 2d 3e 63 . if( p && p->c
58e0: 6e 74 3e 31 20 29 7b 0a 20 20 20 20 64 6f 75 62 nt>1 ){. doub
58f0: 6c 65 20 72 43 6e 74 20 3d 20 63 6e 74 3b 0a 20 le rCnt = cnt;.
5900: 20 20 20 73 71 6c 69 74 65 33 5f 73 65 74 5f 72 sqlite3_set_r
5910: 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e esult_double(con
5920: 74 65 78 74 2c 20 0a 20 20 20 20 20 20 20 73 71 text, . sq
5930: 72 74 28 28 70 2d 3e 73 75 6d 32 20 2d 20 70 2d rt((p->sum2 - p-
5940: 3e 73 75 6d 2a 70 2d 3e 73 75 6d 2f 72 43 6e 74 >sum*p->sum/rCnt
5950: 29 2f 28 72 43 6e 74 2d 31 2e 30 29 29 29 3b 0a )/(rCnt-1.0)));.
5960: 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a }.}.#endif../*
5970: 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e .** The followin
5980: 67 20 73 74 72 75 63 74 75 72 65 20 6b 65 65 70 g structure keep
5990: 73 20 74 72 61 63 6b 20 6f 66 20 73 74 61 74 65 s track of state
59a0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 information for
59b0: 20 74 68 65 0a 2a 2a 20 63 6f 75 6e 74 28 29 20 the.** count()
59c0: 61 67 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 aggregate functi
59d0: 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 on..*/.typedef s
59e0: 74 72 75 63 74 20 43 6f 75 6e 74 43 74 78 20 43 truct CountCtx C
59f0: 6f 75 6e 74 43 74 78 3b 0a 73 74 72 75 63 74 20 ountCtx;.struct
5a00: 43 6f 75 6e 74 43 74 78 20 7b 0a 20 20 69 6e 74 CountCtx {. int
5a10: 20 6e 3b 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 52 6f n;.};../*.** Ro
5a20: 75 74 69 6e 65 73 20 74 6f 20 69 6d 70 6c 65 6d utines to implem
5a30: 65 6e 74 20 74 68 65 20 63 6f 75 6e 74 28 29 20 ent the count()
5a40: 61 67 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 aggregate functi
5a50: 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f on..*/.static vo
5a60: 69 64 20 63 6f 75 6e 74 53 74 65 70 28 73 71 6c id countStep(sql
5a70: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
5a80: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
5a90: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
5aa0: 2a 61 72 67 76 29 7b 0a 20 20 43 6f 75 6e 74 43 *argv){. CountC
5ab0: 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c tx *p;. p = sql
5ac0: 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 ite3_aggregate_c
5ad0: 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 ontext(context,
5ae0: 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 sizeof(*p));. i
5af0: 66 28 20 28 61 72 67 63 3d 3d 30 20 7c 7c 20 53 f( (argc==0 || S
5b00: 51 4c 49 54 45 5f 4e 55 4c 4c 21 3d 73 71 6c 69 QLITE_NULL!=sqli
5b10: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 te3_value_type(a
5b20: 72 67 76 5b 30 5d 29 29 20 26 26 20 70 20 29 7b rgv[0])) && p ){
5b30: 0a 20 20 20 20 70 2d 3e 6e 2b 2b 3b 0a 20 20 7d . p->n++;. }
5b40: 0a 7d 20 20 20 0a 73 74 61 74 69 63 20 76 6f 69 .} .static voi
5b50: 64 20 63 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 28 d countFinalize(
5b60: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
5b70: 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 43 6f 75 *context){. Cou
5b80: 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 ntCtx *p;. p =
5b90: 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 sqlite3_aggregat
5ba0: 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 e_context(contex
5bb0: 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a t, sizeof(*p));.
5bc0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
5bd0: 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 70 20 _int(context, p
5be0: 3f 20 70 2d 3e 6e 20 3a 20 30 29 3b 0a 7d 0a 0a ? p->n : 0);.}..
5bf0: 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 /*.** This funct
5c00: 69 6f 6e 20 74 72 61 63 6b 73 20 73 74 61 74 65 ion tracks state
5c10: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 information for
5c20: 20 74 68 65 20 6d 69 6e 28 29 20 61 6e 64 20 6d the min() and m
5c30: 61 78 28 29 0a 2a 2a 20 61 67 67 72 65 67 61 74 ax().** aggregat
5c40: 65 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a e functions..*/.
5c50: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 4d typedef struct M
5c60: 69 6e 4d 61 78 43 74 78 20 4d 69 6e 4d 61 78 43 inMaxCtx MinMaxC
5c70: 74 78 3b 0a 73 74 72 75 63 74 20 4d 69 6e 4d 61 tx;.struct MinMa
5c80: 78 43 74 78 20 7b 0a 20 20 63 68 61 72 20 2a 7a xCtx {. char *z
5c90: 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 ; /* The
5ca0: 20 62 65 73 74 20 73 6f 20 66 61 72 20 2a 2f 0a best so far */.
5cb0: 20 20 63 68 61 72 20 7a 42 75 66 5b 32 38 5d 3b char zBuf[28];
5cc0: 20 20 20 2f 2a 20 53 70 61 63 65 20 74 68 61 74 /* Space that
5cd0: 20 63 61 6e 20 62 65 20 75 73 65 64 20 66 6f 72 can be used for
5ce0: 20 73 74 6f 72 61 67 65 20 2a 2f 0a 7d 3b 0a 0a storage */.};..
5cf0: 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 74 /*.** Routines t
5d00: 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 6d 69 6e 28 o implement min(
5d10: 29 20 61 6e 64 20 6d 61 78 28 29 20 61 67 67 72 ) and max() aggr
5d20: 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 73 2e egate functions.
5d30: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
5d40: 6d 69 6e 6d 61 78 53 74 65 70 28 73 71 6c 69 74 minmaxStep(sqlit
5d50: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
5d60: 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 ext, int argc, s
5d70: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
5d80: 72 67 76 29 7b 0a 20 20 4d 65 6d 20 2a 70 41 72 rgv){. Mem *pAr
5d90: 67 20 20 3d 20 28 4d 65 6d 20 2a 29 61 72 67 76 g = (Mem *)argv
5da0: 5b 30 5d 3b 0a 20 20 4d 65 6d 20 2a 70 42 65 73 [0];. Mem *pBes
5db0: 74 3b 0a 0a 20 20 69 66 28 20 73 71 6c 69 74 65 t;.. if( sqlite
5dc0: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 3_value_type(arg
5dd0: 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 v[0])==SQLITE_NU
5de0: 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 70 LL ) return;. p
5df0: 42 65 73 74 20 3d 20 28 4d 65 6d 20 2a 29 73 71 Best = (Mem *)sq
5e00: 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f lite3_aggregate_
5e10: 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c context(context,
5e20: 20 73 69 7a 65 6f 66 28 2a 70 42 65 73 74 29 29 sizeof(*pBest))
5e30: 3b 0a 20 20 69 66 28 20 21 70 42 65 73 74 20 29 ;. if( !pBest )
5e40: 20 72 65 74 75 72 6e 3b 0a 0a 20 20 69 66 28 20 return;.. if(
5e50: 70 42 65 73 74 2d 3e 66 6c 61 67 73 20 29 7b 0a pBest->flags ){.
5e60: 20 20 20 20 69 6e 74 20 6d 61 78 3b 0a 20 20 20 int max;.
5e70: 20 69 6e 74 20 63 6d 70 3b 0a 20 20 20 20 43 6f int cmp;. Co
5e80: 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 73 llSeq *pColl = s
5e90: 71 6c 69 74 65 33 47 65 74 46 75 6e 63 43 6f 6c qlite3GetFuncCol
5ea0: 6c 53 65 71 28 63 6f 6e 74 65 78 74 29 3b 0a 20 lSeq(context);.
5eb0: 20 20 20 2f 2a 20 54 68 69 73 20 73 74 65 70 20 /* This step
5ec0: 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 function is used
5ed0: 20 66 6f 72 20 62 6f 74 68 20 74 68 65 20 6d 69 for both the mi
5ee0: 6e 28 29 20 61 6e 64 20 6d 61 78 28 29 20 61 67 n() and max() ag
5ef0: 67 72 65 67 61 74 65 73 2c 0a 20 20 20 20 2a 2a gregates,. **
5f00: 20 74 68 65 20 6f 6e 6c 79 20 64 69 66 66 65 72 the only differ
5f10: 65 6e 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 ence between the
5f20: 20 74 77 6f 20 62 65 69 6e 67 20 74 68 61 74 20 two being that
5f30: 74 68 65 20 73 65 6e 73 65 20 6f 66 20 74 68 65 the sense of the
5f40: 0a 20 20 20 20 2a 2a 20 63 6f 6d 70 61 72 69 73 . ** comparis
5f50: 6f 6e 20 69 73 20 69 6e 76 65 72 74 65 64 2e 20 on is inverted.
5f60: 46 6f 72 20 74 68 65 20 6d 61 78 28 29 20 61 67 For the max() ag
5f70: 67 72 65 67 61 74 65 2c 20 74 68 65 0a 20 20 20 gregate, the.
5f80: 20 2a 2a 20 73 71 6c 69 74 65 33 5f 75 73 65 72 ** sqlite3_user
5f90: 5f 64 61 74 61 28 29 20 66 75 6e 63 74 69 6f 6e _data() function
5fa0: 20 72 65 74 75 72 6e 73 20 28 76 6f 69 64 20 2a returns (void *
5fb0: 29 2d 31 2e 20 46 6f 72 20 6d 69 6e 28 29 20 69 )-1. For min() i
5fc0: 74 0a 20 20 20 20 2a 2a 20 72 65 74 75 72 6e 73 t. ** returns
5fd0: 20 28 76 6f 69 64 20 2a 29 64 62 2c 20 77 68 65 (void *)db, whe
5fe0: 72 65 20 64 62 20 69 73 20 74 68 65 20 73 71 6c re db is the sql
5ff0: 69 74 65 33 2a 20 64 61 74 61 62 61 73 65 20 70 ite3* database p
6000: 6f 69 6e 74 65 72 2e 0a 20 20 20 20 2a 2a 20 54 ointer.. ** T
6010: 68 65 72 65 66 6f 72 65 20 74 68 65 20 6e 65 78 herefore the nex
6020: 74 20 73 74 61 74 65 6d 65 6e 74 20 73 65 74 73 t statement sets
6030: 20 76 61 72 69 61 62 6c 65 20 27 6d 61 78 27 20 variable 'max'
6040: 74 6f 20 31 20 66 6f 72 20 74 68 65 20 6d 61 78 to 1 for the max
6050: 28 29 0a 20 20 20 20 2a 2a 20 61 67 67 72 65 67 (). ** aggreg
6060: 61 74 65 2c 20 6f 72 20 30 20 66 6f 72 20 6d 69 ate, or 0 for mi
6070: 6e 28 29 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 n().. */.
6080: 6d 61 78 20 3d 20 28 28 73 71 6c 69 74 65 33 5f max = ((sqlite3_
6090: 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 user_data(contex
60a0: 74 29 3d 3d 28 76 6f 69 64 20 2a 29 2d 31 29 3f t)==(void *)-1)?
60b0: 31 3a 30 29 3b 0a 20 20 20 20 63 6d 70 20 3d 20 1:0);. cmp =
60c0: 73 71 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 sqlite3MemCompar
60d0: 65 28 70 42 65 73 74 2c 20 70 41 72 67 2c 20 70 e(pBest, pArg, p
60e0: 43 6f 6c 6c 29 3b 0a 20 20 20 20 69 66 28 20 28 Coll);. if( (
60f0: 6d 61 78 20 26 26 20 63 6d 70 3c 30 29 20 7c 7c max && cmp<0) ||
6100: 20 28 21 6d 61 78 20 26 26 20 63 6d 70 3e 30 29 (!max && cmp>0)
6110: 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 ){. sqlite
6120: 33 56 64 62 65 4d 65 6d 43 6f 70 79 28 70 42 65 3VdbeMemCopy(pBe
6130: 73 74 2c 20 70 41 72 67 29 3b 0a 20 20 20 20 7d st, pArg);. }
6140: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71 . }else{. sq
6150: 6c 69 74 65 33 56 64 62 65 4d 65 6d 43 6f 70 79 lite3VdbeMemCopy
6160: 28 70 42 65 73 74 2c 20 70 41 72 67 29 3b 0a 20 (pBest, pArg);.
6170: 20 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 }.}.static void
6180: 20 6d 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 28 minMaxFinalize(
6190: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
61a0: 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 73 71 6c *context){. sql
61b0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 52 65 73 ite3_value *pRes
61c0: 3b 0a 20 20 70 52 65 73 20 3d 20 28 73 71 6c 69 ;. pRes = (sqli
61d0: 74 65 33 5f 76 61 6c 75 65 20 2a 29 73 71 6c 69 te3_value *)sqli
61e0: 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f te3_aggregate_co
61f0: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 ntext(context, s
6200: 69 7a 65 6f 66 28 4d 65 6d 29 29 3b 0a 20 20 69 izeof(Mem));. i
6210: 66 28 20 70 52 65 73 2d 3e 66 6c 61 67 73 20 29 f( pRes->flags )
6220: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 {. sqlite3_re
6230: 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 sult_value(conte
6240: 78 74 2c 20 70 52 65 73 29 3b 0a 20 20 7d 0a 20 xt, pRes);. }.
6250: 20 73 71 6c 69 74 65 33 56 64 62 65 4d 65 6d 52 sqlite3VdbeMemR
6260: 65 6c 65 61 73 65 28 70 52 65 73 29 3b 0a 7d 0a elease(pRes);.}.
6270: 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e ../*.** This fun
6280: 63 74 69 6f 6e 20 72 65 67 69 73 74 65 72 65 64 ction registered
6290: 20 61 6c 6c 20 6f 66 20 74 68 65 20 61 62 6f 76 all of the abov
62a0: 65 20 43 20 66 75 6e 63 74 69 6f 6e 73 20 61 73 e C functions as
62b0: 20 53 51 4c 0a 2a 2a 20 66 75 6e 63 74 69 6f 6e SQL.** function
62c0: 73 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20 s. This should
62d0: 62 65 20 74 68 65 20 6f 6e 6c 79 20 72 6f 75 74 be the only rout
62e0: 69 6e 65 20 69 6e 20 74 68 69 73 20 66 69 6c 65 ine in this file
62f0: 20 77 69 74 68 0a 2a 2a 20 65 78 74 65 72 6e 61 with.** externa
6300: 6c 20 6c 69 6e 6b 61 67 65 2e 0a 2a 2f 0a 76 6f l linkage..*/.vo
6310: 69 64 20 73 71 6c 69 74 65 33 52 65 67 69 73 74 id sqlite3Regist
6320: 65 72 42 75 69 6c 74 69 6e 46 75 6e 63 74 69 6f erBuiltinFunctio
6330: 6e 73 28 73 71 6c 69 74 65 20 2a 64 62 29 7b 0a ns(sqlite *db){.
6340: 20 20 73 74 61 74 69 63 20 73 74 72 75 63 74 20 static struct
6350: 7b 0a 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 {. char *zNa
6360: 6d 65 3b 0a 20 20 20 20 20 73 69 67 6e 65 64 20 me;. signed
6370: 63 68 61 72 20 6e 41 72 67 3b 0a 20 20 20 20 20 char nArg;.
6380: 75 38 20 61 72 67 54 79 70 65 3b 20 20 20 20 20 u8 argType;
6390: 20 20 20 20 20 20 2f 2a 20 30 3a 20 6e 6f 6e 65 /* 0: none
63a0: 2e 20 20 31 3a 20 64 62 20 20 32 3a 20 28 2d 31 . 1: db 2: (-1
63b0: 29 20 2a 2f 0a 20 20 20 20 20 75 38 20 65 54 65 ) */. u8 eTe
63c0: 78 74 52 65 70 3b 20 20 20 20 20 20 20 20 20 20 xtRep;
63d0: 2f 2a 20 31 3a 20 55 54 46 2d 31 36 2e 20 20 30 /* 1: UTF-16. 0
63e0: 3a 20 55 54 46 2d 38 20 2a 2f 0a 20 20 20 20 20 : UTF-8 */.
63f0: 75 38 20 6e 65 65 64 43 6f 6c 6c 53 65 71 3b 0a u8 needCollSeq;.
6400: 20 20 20 20 20 76 6f 69 64 20 28 2a 78 46 75 6e void (*xFun
6410: 63 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 c)(sqlite3_conte
6420: 78 74 2a 2c 69 6e 74 2c 73 71 6c 69 74 65 33 5f xt*,int,sqlite3_
6430: 76 61 6c 75 65 20 2a 2a 29 3b 0a 20 20 7d 20 61 value **);. } a
6440: 46 75 6e 63 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 Funcs[] = {.
6450: 7b 20 22 6d 69 6e 22 2c 20 20 20 20 20 20 20 20 { "min",
6460: 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 53 51 -1, 0, SQ
6470: 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 31 2c LITE_UTF8, 1,
6480: 20 6d 69 6e 6d 61 78 46 75 6e 63 20 7d 2c 0a 20 minmaxFunc },.
6490: 20 20 20 7b 20 22 6d 69 6e 22 2c 20 20 20 20 20 { "min",
64a0: 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 0, 0,
64b0: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 SQLITE_UTF8,
64c0: 20 31 2c 20 30 20 20 20 20 20 20 20 20 20 20 7d 1, 0 }
64d0: 2c 0a 20 20 20 20 7b 20 22 6d 61 78 22 2c 20 20 ,. { "max",
64e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 2c -1,
64f0: 20 32 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 2, SQLITE_UTF8,
6500: 20 20 20 20 31 2c 20 6d 69 6e 6d 61 78 46 75 6e 1, minmaxFun
6510: 63 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 61 78 22 c },. { "max"
6520: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
6530: 20 30 2c 20 32 2c 20 53 51 4c 49 54 45 5f 55 54 0, 2, SQLITE_UT
6540: 46 38 2c 20 20 20 20 31 2c 20 30 20 20 20 20 20 F8, 1, 0
6550: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 74 },. { "t
6560: 79 70 65 6f 66 22 2c 20 20 20 20 20 20 20 20 20 ypeof",
6570: 20 20 20 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 1, 0, SQLITE
6580: 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 74 79 70 _UTF8, 0, typ
6590: 65 6f 66 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b eofFunc },. {
65a0: 20 22 6c 65 6e 67 74 68 22 2c 20 20 20 20 20 20 "length",
65b0: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 53 51 4c 1, 0, SQL
65c0: 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 ITE_UTF8, 0,
65d0: 6c 65 6e 67 74 68 46 75 6e 63 20 7d 2c 0a 20 20 lengthFunc },.
65e0: 20 20 7b 20 22 73 75 62 73 74 72 22 2c 20 20 20 { "substr",
65f0: 20 20 20 20 20 20 20 20 20 20 33 2c 20 30 2c 20 3, 0,
6600: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 SQLITE_UTF8,
6610: 30 2c 20 73 75 62 73 74 72 46 75 6e 63 20 7d 2c 0, substrFunc },
6620: 0a 20 20 20 20 7b 20 22 73 75 62 73 74 72 22 2c . { "substr",
6630: 20 20 20 20 20 20 20 20 20 20 20 20 20 33 2c 20 3,
6640: 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 0, SQLITE_UTF16L
6650: 45 2c 20 30 2c 20 73 71 6c 69 74 65 33 75 74 66 E, 0, sqlite3utf
6660: 31 36 53 75 62 73 74 72 20 7d 2c 0a 20 20 20 20 16Substr },.
6670: 7b 20 22 61 62 73 22 2c 20 20 20 20 20 20 20 20 { "abs",
6680: 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 53 51 1, 0, SQ
6690: 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c LITE_UTF8, 0,
66a0: 20 61 62 73 46 75 6e 63 20 20 20 20 7d 2c 0a 20 absFunc },.
66b0: 20 20 20 7b 20 22 72 6f 75 6e 64 22 2c 20 20 20 { "round",
66c0: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 1, 0,
66d0: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 SQLITE_UTF8,
66e0: 20 30 2c 20 72 6f 75 6e 64 46 75 6e 63 20 20 7d 0, roundFunc }
66f0: 2c 0a 20 20 20 20 7b 20 22 72 6f 75 6e 64 22 2c ,. { "round",
6700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 2,
6710: 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 0, SQLITE_UTF8,
6720: 20 20 20 20 30 2c 20 72 6f 75 6e 64 46 75 6e 63 0, roundFunc
6730: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 75 70 70 65 },. { "uppe
6740: 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 r",
6750: 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 1, 0, SQLITE_UT
6760: 46 38 2c 20 20 20 20 30 2c 20 75 70 70 65 72 46 F8, 0, upperF
6770: 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6c unc },. { "l
6780: 6f 77 65 72 22 2c 20 20 20 20 20 20 20 20 20 20 ower",
6790: 20 20 20 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 1, 0, SQLITE
67a0: 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 6c 6f 77 _UTF8, 0, low
67b0: 65 72 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b erFunc },. {
67c0: 20 22 63 6f 61 6c 65 73 63 65 22 2c 20 20 20 20 "coalesce",
67d0: 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 53 51 4c -1, 0, SQL
67e0: 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 ITE_UTF8, 0,
67f0: 69 66 6e 75 6c 6c 46 75 6e 63 20 7d 2c 0a 20 20 ifnullFunc },.
6800: 20 20 7b 20 22 63 6f 61 6c 65 73 63 65 22 2c 20 { "coalesce",
6810: 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 0, 0,
6820: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 SQLITE_UTF8,
6830: 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 7d 2c 0, 0 },
6840: 0a 20 20 20 20 7b 20 22 63 6f 61 6c 65 73 63 65 . { "coalesce
6850: 22 2c 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 ", 1,
6860: 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0, SQLITE_UTF8,
6870: 20 20 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 0, 0
6880: 20 7d 2c 0a 20 20 20 20 7b 20 22 69 66 6e 75 6c },. { "ifnul
6890: 6c 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 l",
68a0: 32 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 2, 0, SQLITE_UTF
68b0: 38 2c 20 20 20 20 31 2c 20 69 66 6e 75 6c 6c 46 8, 1, ifnullF
68c0: 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 22 72 61 unc },. { "ra
68d0: 6e 64 6f 6d 22 2c 20 20 20 20 20 20 20 20 20 20 ndom",
68e0: 20 20 2d 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f -1, 0, SQLITE_
68f0: 55 54 46 38 2c 20 20 20 20 30 2c 20 72 61 6e 64 UTF8, 0, rand
6900: 6f 6d 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 omFunc },. {
6910: 22 6c 69 6b 65 22 2c 20 20 20 20 20 20 20 20 20 "like",
6920: 20 20 20 20 20 20 32 2c 20 30 2c 20 53 51 4c 49 2, 0, SQLI
6930: 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 6c TE_UTF8, 0, l
6940: 69 6b 65 46 75 6e 63 20 20 20 7d 2c 0a 20 20 20 ikeFunc },.
6950: 20 7b 20 22 67 6c 6f 62 22 2c 20 20 20 20 20 20 { "glob",
6960: 20 20 20 20 20 20 20 20 20 32 2c 20 30 2c 20 53 2, 0, S
6970: 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 QLITE_UTF8, 0
6980: 2c 20 67 6c 6f 62 46 75 6e 63 20 20 20 7d 2c 0a , globFunc },.
6990: 20 20 20 20 7b 20 22 6e 75 6c 6c 69 66 22 2c 20 { "nullif",
69a0: 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 30 2, 0
69b0: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 , SQLITE_UTF8,
69c0: 20 20 30 2c 20 6e 75 6c 6c 69 66 46 75 6e 63 20 0, nullifFunc
69d0: 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65 },. { "sqlite
69e0: 5f 76 65 72 73 69 6f 6e 22 2c 20 20 20 20 20 30 _version", 0
69f0: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 0, SQLITE_UTF8
6a00: 2c 20 20 20 20 30 2c 20 76 65 72 73 69 6f 6e 46 , 0, versionF
6a10: 75 6e 63 7d 2c 0a 20 20 20 20 7b 20 22 71 75 6f unc},. { "quo
6a20: 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 te",
6a30: 20 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 1, 0, SQLITE_U
6a40: 54 46 38 2c 20 20 20 20 30 2c 20 71 75 6f 74 65 TF8, 0, quote
6a50: 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 22 Func },. { "
6a60: 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 last_insert_rowi
6a70: 64 22 2c 20 20 30 2c 20 31 2c 20 53 51 4c 49 54 d", 0, 1, SQLIT
6a80: 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 6c 61 E_UTF8, 0, la
6a90: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 20 st_insert_rowid
6aa0: 7d 2c 0a 20 20 20 20 7b 20 22 63 68 61 6e 67 65 },. { "change
6ab0: 73 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 30 s", 0
6ac0: 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 1, SQLITE_UTF8
6ad0: 2c 20 20 20 20 30 2c 20 63 68 61 6e 67 65 73 20 , 0, changes
6ae0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 74 6f 74 },. { "tot
6af0: 61 6c 5f 63 68 61 6e 67 65 73 22 2c 20 20 20 20 al_changes",
6b00: 20 20 30 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 0, 1, SQLITE_U
6b10: 54 46 38 2c 20 20 20 20 30 2c 20 74 6f 74 61 6c TF8, 0, total
6b20: 5f 63 68 61 6e 67 65 73 20 7d 2c 0a 23 69 66 64 _changes },.#ifd
6b30: 65 66 20 53 51 4c 49 54 45 5f 53 4f 55 4e 44 45 ef SQLITE_SOUNDE
6b40: 58 0a 20 20 20 20 7b 20 22 73 6f 75 6e 64 65 78 X. { "soundex
6b50: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 31 2c ", 1,
6b60: 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 0, SQLITE_UTF8,
6b70: 20 30 2c 20 73 6f 75 6e 64 65 78 46 75 6e 63 7d 0, soundexFunc}
6b80: 2c 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 ,.#endif.#ifdef
6b90: 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 20 20 SQLITE_TEST.
6ba0: 7b 20 22 72 61 6e 64 73 74 72 22 2c 20 20 20 20 { "randstr",
6bb0: 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 30 2c 2, 0,
6bc0: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c SQLITE_UTF8, 0,
6bd0: 20 72 61 6e 64 53 74 72 20 20 20 20 7d 2c 0a 20 randStr },.
6be0: 20 20 20 7b 20 22 74 65 73 74 5f 64 65 73 74 72 { "test_destr
6bf0: 75 63 74 6f 72 22 2c 20 20 20 20 20 20 20 31 2c uctor", 1,
6c00: 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 1, SQLITE_UTF8,
6c10: 20 30 2c 20 74 65 73 74 5f 64 65 73 74 72 75 63 0, test_destruc
6c20: 74 6f 72 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 tor},. { "tes
6c30: 74 5f 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 t_destructor_cou
6c40: 6e 74 22 2c 20 30 2c 20 30 2c 20 53 51 4c 49 54 nt", 0, 0, SQLIT
6c50: 45 5f 55 54 46 38 2c 20 30 2c 20 74 65 73 74 5f E_UTF8, 0, test_
6c60: 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 destructor_count
6c70: 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 61 },. { "test_a
6c80: 75 78 64 61 74 61 22 2c 20 20 20 20 20 20 20 20 uxdata",
6c90: 20 2d 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 -1, 0, SQLITE_U
6ca0: 54 46 38 2c 20 30 2c 20 74 65 73 74 5f 61 75 78 TF8, 0, test_aux
6cb0: 64 61 74 61 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 data},.#endif.
6cc0: 7d 3b 0a 20 20 73 74 61 74 69 63 20 73 74 72 75 };. static stru
6cd0: 63 74 20 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a ct {. char *z
6ce0: 4e 61 6d 65 3b 0a 20 20 20 20 73 69 67 6e 65 64 Name;. signed
6cf0: 20 63 68 61 72 20 6e 41 72 67 3b 0a 20 20 20 20 char nArg;.
6d00: 75 38 20 61 72 67 54 79 70 65 3b 0a 20 20 20 20 u8 argType;.
6d10: 75 38 20 6e 65 65 64 43 6f 6c 6c 53 65 71 3b 0a u8 needCollSeq;.
6d20: 20 20 20 20 76 6f 69 64 20 28 2a 78 53 74 65 70 void (*xStep
6d30: 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 )(sqlite3_contex
6d40: 74 2a 2c 69 6e 74 2c 73 71 6c 69 74 65 33 5f 76 t*,int,sqlite3_v
6d50: 61 6c 75 65 2a 2a 29 3b 0a 20 20 20 20 76 6f 69 alue**);. voi
6d60: 64 20 28 2a 78 46 69 6e 61 6c 69 7a 65 29 28 73 d (*xFinalize)(s
6d70: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 2a 29 qlite3_context*)
6d80: 3b 0a 20 20 7d 20 61 41 67 67 73 5b 5d 20 3d 20 ;. } aAggs[] =
6d90: 7b 0a 20 20 20 20 7b 20 22 6d 69 6e 22 2c 20 20 {. { "min",
6da0: 20 20 31 2c 20 30 2c 20 31 2c 20 6d 69 6e 6d 61 1, 0, 1, minma
6db0: 78 53 74 65 70 2c 20 20 20 6d 69 6e 4d 61 78 46 xStep, minMaxF
6dc0: 69 6e 61 6c 69 7a 65 20 7d 2c 0a 20 20 20 20 7b inalize },. {
6dd0: 20 22 6d 61 78 22 2c 20 20 20 20 31 2c 20 32 2c "max", 1, 2,
6de0: 20 31 2c 20 6d 69 6e 6d 61 78 53 74 65 70 2c 20 1, minmaxStep,
6df0: 20 20 6d 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 minMaxFinalize
6e00: 20 7d 2c 0a 20 20 20 20 7b 20 22 73 75 6d 22 2c },. { "sum",
6e10: 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 73 75 6d 1, 0, 0, sum
6e20: 53 74 65 70 2c 20 20 20 20 20 20 73 75 6d 46 69 Step, sumFi
6e30: 6e 61 6c 69 7a 65 20 20 20 20 7d 2c 0a 20 20 20 nalize },.
6e40: 20 7b 20 22 61 76 67 22 2c 20 20 20 20 31 2c 20 { "avg", 1,
6e50: 30 2c 20 30 2c 20 73 75 6d 53 74 65 70 2c 20 20 0, 0, sumStep,
6e60: 20 20 20 20 61 76 67 46 69 6e 61 6c 69 7a 65 20 avgFinalize
6e70: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 63 6f 75 },. { "cou
6e80: 6e 74 22 2c 20 20 30 2c 20 30 2c 20 30 2c 20 63 nt", 0, 0, 0, c
6e90: 6f 75 6e 74 53 74 65 70 2c 20 20 20 20 63 6f 75 ountStep, cou
6ea0: 6e 74 46 69 6e 61 6c 69 7a 65 20 20 7d 2c 0a 20 ntFinalize },.
6eb0: 20 20 20 7b 20 22 63 6f 75 6e 74 22 2c 20 20 31 { "count", 1
6ec0: 2c 20 30 2c 20 30 2c 20 63 6f 75 6e 74 53 74 65 , 0, 0, countSte
6ed0: 70 2c 20 20 20 20 63 6f 75 6e 74 46 69 6e 61 6c p, countFinal
6ee0: 69 7a 65 20 20 7d 2c 0a 23 69 66 20 30 0a 20 20 ize },.#if 0.
6ef0: 20 20 7b 20 22 73 74 64 64 65 76 22 2c 20 31 2c { "stddev", 1,
6f00: 20 30 2c 20 73 74 64 44 65 76 53 74 65 70 2c 20 0, stdDevStep,
6f10: 20 20 73 74 64 44 65 76 46 69 6e 61 6c 69 7a 65 stdDevFinalize
6f20: 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 7d 3b 0a },.#endif. };.
6f30: 20 20 69 6e 74 20 69 3b 0a 0a 20 20 66 6f 72 28 int i;.. for(
6f40: 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 46 i=0; i<sizeof(aF
6f50: 75 6e 63 73 29 2f 73 69 7a 65 6f 66 28 61 46 75 uncs)/sizeof(aFu
6f60: 6e 63 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 ncs[0]); i++){.
6f70: 20 20 20 76 6f 69 64 20 2a 70 41 72 67 20 3d 20 void *pArg =
6f80: 30 3b 0a 20 20 20 20 73 77 69 74 63 68 28 20 61 0;. switch( a
6f90: 46 75 6e 63 73 5b 69 5d 2e 61 72 67 54 79 70 65 Funcs[i].argType
6fa0: 20 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20 31 ){. case 1
6fb0: 3a 20 70 41 72 67 20 3d 20 64 62 3b 20 62 72 65 : pArg = db; bre
6fc0: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 32 ak;. case 2
6fd0: 3a 20 70 41 72 67 20 3d 20 28 76 6f 69 64 20 2a : pArg = (void *
6fe0: 29 28 2d 31 29 3b 20 62 72 65 61 6b 3b 0a 20 20 )(-1); break;.
6ff0: 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f }. sqlite3_
7000: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 create_function(
7010: 64 62 2c 20 61 46 75 6e 63 73 5b 69 5d 2e 7a 4e db, aFuncs[i].zN
7020: 61 6d 65 2c 20 61 46 75 6e 63 73 5b 69 5d 2e 6e ame, aFuncs[i].n
7030: 41 72 67 2c 0a 20 20 20 20 20 20 20 20 61 46 75 Arg,. aFu
7040: 6e 63 73 5b 69 5d 2e 65 54 65 78 74 52 65 70 2c ncs[i].eTextRep,
7050: 20 70 41 72 67 2c 20 61 46 75 6e 63 73 5b 69 5d pArg, aFuncs[i]
7060: 2e 78 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 .xFunc, 0, 0);.
7070: 20 20 20 69 66 28 20 61 46 75 6e 63 73 5b 69 5d if( aFuncs[i]
7080: 2e 6e 65 65 64 43 6f 6c 6c 53 65 71 20 29 7b 0a .needCollSeq ){.
7090: 20 20 20 20 20 20 46 75 6e 63 44 65 66 20 2a 70 FuncDef *p
70a0: 46 75 6e 63 20 3d 20 73 71 6c 69 74 65 33 46 69 Func = sqlite3Fi
70b0: 6e 64 46 75 6e 63 74 69 6f 6e 28 64 62 2c 20 61 ndFunction(db, a
70c0: 46 75 6e 63 73 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 Funcs[i].zName,
70d0: 0a 20 20 20 20 20 20 20 20 20 20 73 74 72 6c 65 . strle
70e0: 6e 28 61 46 75 6e 63 73 5b 69 5d 2e 7a 4e 61 6d n(aFuncs[i].zNam
70f0: 65 29 2c 20 61 46 75 6e 63 73 5b 69 5d 2e 6e 41 e), aFuncs[i].nA
7100: 72 67 2c 20 61 46 75 6e 63 73 5b 69 5d 2e 65 54 rg, aFuncs[i].eT
7110: 65 78 74 52 65 70 2c 20 30 29 3b 0a 20 20 20 20 extRep, 0);.
7120: 20 20 69 66 28 20 70 46 75 6e 63 20 26 26 20 61 if( pFunc && a
7130: 46 75 6e 63 73 5b 69 5d 2e 6e 65 65 64 43 6f 6c Funcs[i].needCol
7140: 6c 53 65 71 20 29 7b 0a 20 20 20 20 20 20 20 20 lSeq ){.
7150: 70 46 75 6e 63 2d 3e 6e 65 65 64 43 6f 6c 6c 53 pFunc->needCollS
7160: 65 71 20 3d 20 31 3b 0a 20 20 20 20 20 20 7d 0a eq = 1;. }.
7170: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 66 6f 72 28 }. }. for(
7180: 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 41 i=0; i<sizeof(aA
7190: 67 67 73 29 2f 73 69 7a 65 6f 66 28 61 41 67 67 ggs)/sizeof(aAgg
71a0: 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 s[0]); i++){.
71b0: 20 76 6f 69 64 20 2a 70 41 72 67 20 3d 20 30 3b void *pArg = 0;
71c0: 0a 20 20 20 20 73 77 69 74 63 68 28 20 61 41 67 . switch( aAg
71d0: 67 73 5b 69 5d 2e 61 72 67 54 79 70 65 20 29 7b gs[i].argType ){
71e0: 0a 20 20 20 20 20 20 63 61 73 65 20 31 3a 20 70 . case 1: p
71f0: 41 72 67 20 3d 20 64 62 3b 20 62 72 65 61 6b 3b Arg = db; break;
7200: 0a 20 20 20 20 20 20 63 61 73 65 20 32 3a 20 70 . case 2: p
7210: 41 72 67 20 3d 20 28 76 6f 69 64 20 2a 29 28 2d Arg = (void *)(-
7220: 31 29 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 1); break;. }
7230: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 . sqlite3_cre
7240: 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c ate_function(db,
7250: 20 61 41 67 67 73 5b 69 5d 2e 7a 4e 61 6d 65 2c aAggs[i].zName,
7260: 20 61 41 67 67 73 5b 69 5d 2e 6e 41 72 67 2c 20 aAggs[i].nArg,
7270: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0a 20 20 SQLITE_UTF8, .
7280: 20 20 20 20 20 20 70 41 72 67 2c 20 30 2c 20 61 pArg, 0, a
7290: 41 67 67 73 5b 69 5d 2e 78 53 74 65 70 2c 20 61 Aggs[i].xStep, a
72a0: 41 67 67 73 5b 69 5d 2e 78 46 69 6e 61 6c 69 7a Aggs[i].xFinaliz
72b0: 65 29 3b 0a 20 20 20 20 69 66 28 20 61 41 67 67 e);. if( aAgg
72c0: 73 5b 69 5d 2e 6e 65 65 64 43 6f 6c 6c 53 65 71 s[i].needCollSeq
72d0: 20 29 7b 0a 20 20 20 20 20 20 46 75 6e 63 44 65 ){. FuncDe
72e0: 66 20 2a 70 46 75 6e 63 20 3d 20 73 71 6c 69 74 f *pFunc = sqlit
72f0: 65 33 46 69 6e 64 46 75 6e 63 74 69 6f 6e 28 20 e3FindFunction(
7300: 64 62 2c 20 61 41 67 67 73 5b 69 5d 2e 7a 4e 61 db, aAggs[i].zNa
7310: 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 73 74 me,. st
7320: 72 6c 65 6e 28 61 41 67 67 73 5b 69 5d 2e 7a 4e rlen(aAggs[i].zN
7330: 61 6d 65 29 2c 20 61 41 67 67 73 5b 69 5d 2e 6e ame), aAggs[i].n
7340: 41 72 67 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 Arg, SQLITE_UTF8
7350: 2c 20 30 29 3b 0a 20 20 20 20 20 20 69 66 28 20 , 0);. if(
7360: 70 46 75 6e 63 20 26 26 20 61 41 67 67 73 5b 69 pFunc && aAggs[i
7370: 5d 2e 6e 65 65 64 43 6f 6c 6c 53 65 71 20 29 7b ].needCollSeq ){
7380: 0a 20 20 20 20 20 20 20 20 70 46 75 6e 63 2d 3e . pFunc->
7390: 6e 65 65 64 43 6f 6c 6c 53 65 71 20 3d 20 31 3b needCollSeq = 1;
73a0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 . }. }.
73b0: 20 7d 0a 20 20 73 71 6c 69 74 65 33 52 65 67 69 }. sqlite3Regi
73c0: 73 74 65 72 44 61 74 65 54 69 6d 65 46 75 6e 63 sterDateTimeFunc
73d0: 74 69 6f 6e 73 28 64 62 29 3b 0a 7d 0a tions(db);.}.