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 34 33 20 32 30 30 34 2f 30 32 2f 32 35 20 1.43 2004/02/25
02a0: 32 32 3a 35 31 3a 30 36 20 72 64 63 20 45 78 70 22:51:06 rdc 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 6f 73 2e 68 22 0a 0a 2f 2a 0a 2a 2a de "os.h"../*.**
0330: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 Implementation
0340: 6f 66 20 74 68 65 20 6e 6f 6e 2d 61 67 67 72 65 of the non-aggre
0350: 67 61 74 65 20 6d 69 6e 28 29 20 61 6e 64 20 6d gate min() and m
0360: 61 78 28 29 20 66 75 6e 63 74 69 6f 6e 73 0a 2a ax() functions.*
0370: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6d 69 /.static void mi
0380: 6e 6d 61 78 46 75 6e 63 28 73 71 6c 69 74 65 5f nmaxFunc(sqlite_
0390: 66 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c 20 69 func *context, i
03a0: 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 nt argc, const c
03b0: 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 har **argv){. c
03c0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 42 65 73 74 onst char *zBest
03d0: 3b 20 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e ; . int i;. in
03e0: 74 20 28 2a 78 43 6f 6d 70 61 72 65 29 28 63 6f t (*xCompare)(co
03f0: 6e 73 74 20 63 68 61 72 2a 2c 20 63 6f 6e 73 74 nst char*, const
0400: 20 63 68 61 72 2a 29 3b 0a 20 20 69 6e 74 20 6d char*);. int m
0410: 61 73 6b 3b 20 20 20 20 2f 2a 20 30 20 66 6f 72 ask; /* 0 for
0420: 20 6d 69 6e 28 29 20 6f 72 20 30 78 66 66 66 66 min() or 0xffff
0430: 66 66 66 66 20 66 6f 72 20 6d 61 78 28 29 20 2a ffff for max() *
0440: 2f 0a 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 30 /.. if( argc==0
0450: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6d 61 73 ) return;. mas
0460: 6b 20 3d 20 28 69 6e 74 29 73 71 6c 69 74 65 5f k = (int)sqlite_
0470: 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 user_data(contex
0480: 74 29 3b 0a 20 20 7a 42 65 73 74 20 3d 20 61 72 t);. zBest = ar
0490: 67 76 5b 30 5d 3b 0a 20 20 69 66 28 20 7a 42 65 gv[0];. if( zBe
04a0: 73 74 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a st==0 ) return;.
04b0: 20 20 69 66 28 20 61 72 67 76 5b 31 5d 5b 30 5d if( argv[1][0]
04c0: 3d 3d 27 6e 27 20 29 7b 0a 20 20 20 20 78 43 6f =='n' ){. xCo
04d0: 6d 70 61 72 65 20 3d 20 73 71 6c 69 74 65 43 6f mpare = sqliteCo
04e0: 6d 70 61 72 65 3b 0a 20 20 7d 65 6c 73 65 7b 0a mpare;. }else{.
04f0: 20 20 20 20 78 43 6f 6d 70 61 72 65 20 3d 20 73 xCompare = s
0500: 74 72 63 6d 70 3b 0a 20 20 7d 0a 20 20 66 6f 72 trcmp;. }. for
0510: 28 69 3d 32 3b 20 69 3c 61 72 67 63 3b 20 69 2b (i=2; i<argc; i+
0520: 3d 32 29 7b 0a 20 20 20 20 69 66 28 20 61 72 67 =2){. if( arg
0530: 76 5b 69 5d 3d 3d 30 20 29 20 72 65 74 75 72 6e v[i]==0 ) return
0540: 3b 0a 20 20 20 20 69 66 28 20 28 78 43 6f 6d 70 ;. if( (xComp
0550: 61 72 65 28 61 72 67 76 5b 69 5d 2c 20 7a 42 65 are(argv[i], zBe
0560: 73 74 29 5e 6d 61 73 6b 29 3c 30 20 29 7b 0a 20 st)^mask)<0 ){.
0570: 20 20 20 20 20 7a 42 65 73 74 20 3d 20 61 72 67 zBest = arg
0580: 76 5b 69 5d 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a v[i];. }. }.
0590: 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 sqlite_set_res
05a0: 75 6c 74 5f 73 74 72 69 6e 67 28 63 6f 6e 74 65 ult_string(conte
05b0: 78 74 2c 20 7a 42 65 73 74 2c 20 2d 31 29 3b 0a xt, zBest, -1);.
05c0: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 }../*.** Return
05d0: 74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 the type of the
05e0: 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 argument..*/.sta
05f0: 74 69 63 20 76 6f 69 64 20 74 79 70 65 6f 66 46 tic void typeofF
0600: 75 6e 63 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 unc(sqlite_func
0610: 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 *context, int ar
0620: 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a gc, const char *
0630: 2a 61 72 67 76 29 7b 0a 20 20 61 73 73 65 72 74 *argv){. assert
0640: 28 20 61 72 67 63 3d 3d 32 20 29 3b 0a 20 20 73 ( argc==2 );. s
0650: 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 qlite_set_result
0660: 5f 73 74 72 69 6e 67 28 63 6f 6e 74 65 78 74 2c _string(context,
0670: 20 61 72 67 76 5b 31 5d 2c 20 2d 31 29 3b 0a 7d argv[1], -1);.}
0680: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e ../*.** Implemen
0690: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c 65 tation of the le
06a0: 6e 67 74 68 28 29 20 66 75 6e 63 74 69 6f 6e 0a ngth() function.
06b0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c */.static void l
06c0: 65 6e 67 74 68 46 75 6e 63 28 73 71 6c 69 74 65 engthFunc(sqlite
06d0: 5f 66 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c 20 _func *context,
06e0: 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 int argc, const
06f0: 63 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 char **argv){.
0700: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a 20 const char *z;.
0710: 20 69 6e 74 20 6c 65 6e 3b 0a 0a 20 20 61 73 73 int len;.. ass
0720: 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a ert( argc==1 );.
0730: 20 20 7a 20 3d 20 61 72 67 76 5b 30 5d 3b 0a 20 z = argv[0];.
0740: 20 69 66 28 20 7a 3d 3d 30 20 29 20 72 65 74 75 if( z==0 ) retu
0750: 72 6e 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 rn;.#ifdef SQLIT
0760: 45 5f 55 54 46 38 0a 20 20 66 6f 72 28 6c 65 6e E_UTF8. for(len
0770: 3d 30 3b 20 2a 7a 3b 20 7a 2b 2b 29 7b 20 69 66 =0; *z; z++){ if
0780: 28 20 28 30 78 63 30 26 2a 7a 29 21 3d 30 78 38 ( (0xc0&*z)!=0x8
0790: 30 20 29 20 6c 65 6e 2b 2b 3b 20 7d 0a 23 65 6c 0 ) len++; }.#el
07a0: 73 65 0a 20 20 6c 65 6e 20 3d 20 73 74 72 6c 65 se. len = strle
07b0: 6e 28 7a 29 3b 0a 23 65 6e 64 69 66 0a 20 20 73 n(z);.#endif. s
07c0: 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 qlite_set_result
07d0: 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 6c 65 _int(context, le
07e0: 6e 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 n);.}../*.** Imp
07f0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
0800: 68 65 20 61 62 73 28 29 20 66 75 6e 63 74 69 6f he abs() functio
0810: 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 n.*/.static void
0820: 20 61 62 73 46 75 6e 63 28 73 71 6c 69 74 65 5f absFunc(sqlite_
0830: 66 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c 20 69 func *context, i
0840: 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 nt argc, const c
0850: 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 har **argv){. c
0860: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a 20 20 onst char *z;.
0870: 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 assert( argc==1
0880: 29 3b 0a 20 20 7a 20 3d 20 61 72 67 76 5b 30 5d );. z = argv[0]
0890: 3b 0a 20 20 69 66 28 20 7a 3d 3d 30 20 29 20 72 ;. if( z==0 ) r
08a0: 65 74 75 72 6e 3b 0a 20 20 69 66 28 20 7a 5b 30 eturn;. if( z[0
08b0: 5d 3d 3d 27 2d 27 20 26 26 20 69 73 64 69 67 69 ]=='-' && isdigi
08c0: 74 28 7a 5b 31 5d 29 20 29 20 7a 2b 2b 3b 0a 20 t(z[1]) ) z++;.
08d0: 20 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 sqlite_set_resu
08e0: 6c 74 5f 73 74 72 69 6e 67 28 63 6f 6e 74 65 78 lt_string(contex
08f0: 74 2c 20 7a 2c 20 2d 31 29 3b 0a 7d 0a 0a 2f 2a t, z, -1);.}../*
0900: 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 .** Implementati
0910: 6f 6e 20 6f 66 20 74 68 65 20 73 75 62 73 74 72 on of the substr
0920: 28 29 20 66 75 6e 63 74 69 6f 6e 0a 2a 2f 0a 73 () function.*/.s
0930: 74 61 74 69 63 20 76 6f 69 64 20 73 75 62 73 74 tatic void subst
0940: 72 46 75 6e 63 28 73 71 6c 69 74 65 5f 66 75 6e rFunc(sqlite_fun
0950: 63 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 c *context, int
0960: 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 argc, const char
0970: 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 6f 6e 73 **argv){. cons
0980: 74 20 63 68 61 72 20 2a 7a 3b 0a 23 69 66 64 65 t char *z;.#ifde
0990: 66 20 53 51 4c 49 54 45 5f 55 54 46 38 0a 20 20 f SQLITE_UTF8.
09a0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 32 3b 0a const char *z2;.
09b0: 20 20 69 6e 74 20 69 3b 0a 23 65 6e 64 69 66 0a int i;.#endif.
09c0: 20 20 69 6e 74 20 70 31 2c 20 70 32 2c 20 6c 65 int p1, p2, le
09d0: 6e 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 n;. assert( arg
09e0: 63 3d 3d 33 20 29 3b 0a 20 20 7a 20 3d 20 61 72 c==3 );. z = ar
09f0: 67 76 5b 30 5d 3b 0a 20 20 69 66 28 20 7a 3d 3d gv[0];. if( z==
0a00: 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 70 31 0 ) return;. p1
0a10: 20 3d 20 61 74 6f 69 28 61 72 67 76 5b 31 5d 3f = atoi(argv[1]?
0a20: 61 72 67 76 5b 31 5d 3a 30 29 3b 0a 20 20 70 32 argv[1]:0);. p2
0a30: 20 3d 20 61 74 6f 69 28 61 72 67 76 5b 32 5d 3f = atoi(argv[2]?
0a40: 61 72 67 76 5b 32 5d 3a 30 29 3b 0a 23 69 66 64 argv[2]:0);.#ifd
0a50: 65 66 20 53 51 4c 49 54 45 5f 55 54 46 38 0a 20 ef SQLITE_UTF8.
0a60: 20 66 6f 72 28 6c 65 6e 3d 30 2c 20 7a 32 3d 7a for(len=0, z2=z
0a70: 3b 20 2a 7a 32 3b 20 7a 32 2b 2b 29 7b 20 69 66 ; *z2; z2++){ if
0a80: 28 20 28 30 78 63 30 26 2a 7a 32 29 21 3d 30 78 ( (0xc0&*z2)!=0x
0a90: 38 30 20 29 20 6c 65 6e 2b 2b 3b 20 7d 0a 23 65 80 ) len++; }.#e
0aa0: 6c 73 65 0a 20 20 6c 65 6e 20 3d 20 73 74 72 6c lse. len = strl
0ab0: 65 6e 28 7a 29 3b 0a 23 65 6e 64 69 66 0a 20 20 en(z);.#endif.
0ac0: 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 20 20 if( p1<0 ){.
0ad0: 70 31 20 2b 3d 20 6c 65 6e 3b 0a 20 20 20 20 69 p1 += len;. i
0ae0: 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 20 20 20 f( p1<0 ){.
0af0: 20 70 32 20 2b 3d 20 70 31 3b 0a 20 20 20 20 20 p2 += p1;.
0b00: 20 70 31 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 p1 = 0;. }.
0b10: 20 7d 65 6c 73 65 20 69 66 28 20 70 31 3e 30 20 }else if( p1>0
0b20: 29 7b 0a 20 20 20 20 70 31 2d 2d 3b 0a 20 20 7d ){. p1--;. }
0b30: 0a 20 20 69 66 28 20 70 31 2b 70 32 3e 6c 65 6e . if( p1+p2>len
0b40: 20 29 7b 0a 20 20 20 20 70 32 20 3d 20 6c 65 6e ){. p2 = len
0b50: 2d 70 31 3b 0a 20 20 7d 0a 23 69 66 64 65 66 20 -p1;. }.#ifdef
0b60: 53 51 4c 49 54 45 5f 55 54 46 38 0a 20 20 66 6f SQLITE_UTF8. fo
0b70: 72 28 69 3d 30 3b 20 69 3c 70 31 20 26 26 20 7a r(i=0; i<p1 && z
0b80: 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 [i]; i++){. i
0b90: 66 28 20 28 7a 5b 69 5d 26 30 78 63 30 29 3d 3d f( (z[i]&0xc0)==
0ba0: 30 78 38 30 20 29 20 70 31 2b 2b 3b 0a 20 20 7d 0x80 ) p1++;. }
0bb0: 0a 20 20 77 68 69 6c 65 28 20 7a 5b 69 5d 20 26 . while( z[i] &
0bc0: 26 20 28 7a 5b 69 5d 26 30 78 63 30 29 3d 3d 30 & (z[i]&0xc0)==0
0bd0: 78 38 30 20 29 7b 20 69 2b 2b 3b 20 70 31 2b 2b x80 ){ i++; p1++
0be0: 3b 20 7d 0a 20 20 66 6f 72 28 3b 20 69 3c 70 31 ; }. for(; i<p1
0bf0: 2b 70 32 20 26 26 20 7a 5b 69 5d 3b 20 69 2b 2b +p2 && z[i]; i++
0c00: 29 7b 0a 20 20 20 20 69 66 28 20 28 7a 5b 69 5d ){. if( (z[i]
0c10: 26 30 78 63 30 29 3d 3d 30 78 38 30 20 29 20 70 &0xc0)==0x80 ) p
0c20: 32 2b 2b 3b 0a 20 20 7d 0a 20 20 77 68 69 6c 65 2++;. }. while
0c30: 28 20 7a 5b 69 5d 20 26 26 20 28 7a 5b 69 5d 26 ( z[i] && (z[i]&
0c40: 30 78 63 30 29 3d 3d 30 78 38 30 20 29 7b 20 69 0xc0)==0x80 ){ i
0c50: 2b 2b 3b 20 70 32 2b 2b 3b 20 7d 0a 23 65 6e 64 ++; p2++; }.#end
0c60: 69 66 0a 20 20 69 66 28 20 70 32 3c 30 20 29 20 if. if( p2<0 )
0c70: 70 32 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 p2 = 0;. sqlite
0c80: 5f 73 65 74 5f 72 65 73 75 6c 74 5f 73 74 72 69 _set_result_stri
0c90: 6e 67 28 63 6f 6e 74 65 78 74 2c 20 26 7a 5b 70 ng(context, &z[p
0ca0: 31 5d 2c 20 70 32 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 1], p2);.}../*.*
0cb0: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
0cc0: 20 6f 66 20 74 68 65 20 72 6f 75 6e 64 28 29 20 of the round()
0cd0: 66 75 6e 63 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74 function.*/.stat
0ce0: 69 63 20 76 6f 69 64 20 72 6f 75 6e 64 46 75 6e ic void roundFun
0cf0: 63 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 c(sqlite_func *c
0d00: 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 ontext, int argc
0d10: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 , const char **a
0d20: 72 67 76 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a 20 rgv){. int n;.
0d30: 20 64 6f 75 62 6c 65 20 72 3b 0a 20 20 63 68 61 double r;. cha
0d40: 72 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20 61 r zBuf[100];. a
0d50: 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 7c ssert( argc==1 |
0d60: 7c 20 61 72 67 63 3d 3d 32 20 29 3b 0a 20 20 69 | argc==2 );. i
0d70: 66 28 20 61 72 67 76 5b 30 5d 3d 3d 30 20 7c 7c f( argv[0]==0 ||
0d80: 20 28 61 72 67 63 3d 3d 32 20 26 26 20 61 72 67 (argc==2 && arg
0d90: 76 5b 31 5d 3d 3d 30 29 20 29 20 72 65 74 75 72 v[1]==0) ) retur
0da0: 6e 3b 0a 20 20 6e 20 3d 20 61 72 67 63 3d 3d 32 n;. n = argc==2
0db0: 20 3f 20 61 74 6f 69 28 61 72 67 76 5b 31 5d 29 ? atoi(argv[1])
0dc0: 20 3a 20 30 3b 0a 20 20 69 66 28 20 6e 3e 33 30 : 0;. if( n>30
0dd0: 20 29 20 6e 20 3d 20 33 30 3b 0a 20 20 69 66 28 ) n = 30;. if(
0de0: 20 6e 3c 30 20 29 20 6e 20 3d 20 30 3b 0a 20 20 n<0 ) n = 0;.
0df0: 72 20 3d 20 73 71 6c 69 74 65 41 74 6f 46 28 61 r = sqliteAtoF(a
0e00: 72 67 76 5b 30 5d 2c 20 30 29 3b 0a 20 20 73 70 rgv[0], 0);. sp
0e10: 72 69 6e 74 66 28 7a 42 75 66 2c 22 25 2e 2a 66 rintf(zBuf,"%.*f
0e20: 22 2c 6e 2c 72 29 3b 0a 20 20 73 71 6c 69 74 65 ",n,r);. sqlite
0e30: 5f 73 65 74 5f 72 65 73 75 6c 74 5f 73 74 72 69 _set_result_stri
0e40: 6e 67 28 63 6f 6e 74 65 78 74 2c 20 7a 42 75 66 ng(context, zBuf
0e50: 2c 20 2d 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 , -1);.}../*.**
0e60: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f Implementation o
0e70: 66 20 74 68 65 20 75 70 70 65 72 28 29 20 61 6e f the upper() an
0e80: 64 20 6c 6f 77 65 72 28 29 20 53 51 4c 20 66 75 d lower() SQL fu
0e90: 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 61 74 nctions..*/.stat
0ea0: 69 63 20 76 6f 69 64 20 75 70 70 65 72 46 75 6e ic void upperFun
0eb0: 63 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 c(sqlite_func *c
0ec0: 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 ontext, int argc
0ed0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 , const char **a
0ee0: 72 67 76 29 7b 0a 20 20 63 68 61 72 20 2a 7a 3b rgv){. char *z;
0ef0: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 66 28 20 . int i;. if(
0f00: 61 72 67 63 3c 31 20 7c 7c 20 61 72 67 76 5b 30 argc<1 || argv[0
0f10: 5d 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 ]==0 ) return;.
0f20: 20 7a 20 3d 20 73 71 6c 69 74 65 5f 73 65 74 5f z = sqlite_set_
0f30: 72 65 73 75 6c 74 5f 73 74 72 69 6e 67 28 63 6f result_string(co
0f40: 6e 74 65 78 74 2c 20 61 72 67 76 5b 30 5d 2c 20 ntext, argv[0],
0f50: 2d 31 29 3b 0a 20 20 69 66 28 20 7a 3d 3d 30 20 -1);. if( z==0
0f60: 29 20 72 65 74 75 72 6e 3b 0a 20 20 66 6f 72 28 ) return;. for(
0f70: 69 3d 30 3b 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b i=0; z[i]; i++){
0f80: 0a 20 20 20 20 69 66 28 20 69 73 6c 6f 77 65 72 . if( islower
0f90: 28 7a 5b 69 5d 29 20 29 20 7a 5b 69 5d 20 3d 20 (z[i]) ) z[i] =
0fa0: 74 6f 75 70 70 65 72 28 7a 5b 69 5d 29 3b 0a 20 toupper(z[i]);.
0fb0: 20 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 }.}.static void
0fc0: 20 6c 6f 77 65 72 46 75 6e 63 28 73 71 6c 69 74 lowerFunc(sqlit
0fd0: 65 5f 66 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c e_func *context,
0fe0: 20 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 int argc, const
0ff0: 20 63 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 char **argv){.
1000: 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 char *z;. int
1010: 69 3b 0a 20 20 69 66 28 20 61 72 67 63 3c 31 20 i;. if( argc<1
1020: 7c 7c 20 61 72 67 76 5b 30 5d 3d 3d 30 20 29 20 || argv[0]==0 )
1030: 72 65 74 75 72 6e 3b 0a 20 20 7a 20 3d 20 73 71 return;. z = sq
1040: 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 5f lite_set_result_
1050: 73 74 72 69 6e 67 28 63 6f 6e 74 65 78 74 2c 20 string(context,
1060: 61 72 67 76 5b 30 5d 2c 20 2d 31 29 3b 0a 20 20 argv[0], -1);.
1070: 69 66 28 20 7a 3d 3d 30 20 29 20 72 65 74 75 72 if( z==0 ) retur
1080: 6e 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 5b n;. for(i=0; z[
1090: 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 i]; i++){. if
10a0: 28 20 69 73 75 70 70 65 72 28 7a 5b 69 5d 29 20 ( isupper(z[i])
10b0: 29 20 7a 5b 69 5d 20 3d 20 74 6f 6c 6f 77 65 72 ) z[i] = tolower
10c0: 28 7a 5b 69 5d 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f (z[i]);. }.}../
10d0: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 *.** Implementat
10e0: 69 6f 6e 20 6f 66 20 74 68 65 20 49 46 4e 55 4c ion of the IFNUL
10f0: 4c 28 29 2c 20 4e 56 4c 28 29 2c 20 61 6e 64 20 L(), NVL(), and
1100: 43 4f 41 4c 45 53 43 45 28 29 20 66 75 6e 63 74 COALESCE() funct
1110: 69 6f 6e 73 2e 20 20 0a 2a 2a 20 41 6c 6c 20 74 ions. .** All t
1120: 68 72 65 65 20 64 6f 20 74 68 65 20 73 61 6d 65 hree do the same
1130: 20 74 68 69 6e 67 2e 20 20 54 68 65 79 20 72 65 thing. They re
1140: 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 6e turn the first n
1150: 6f 6e 2d 4e 55 4c 4c 0a 2a 2a 20 61 72 67 75 6d on-NULL.** argum
1160: 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ent..*/.static v
1170: 6f 69 64 20 69 66 6e 75 6c 6c 46 75 6e 63 28 73 oid ifnullFunc(s
1180: 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 6f 6e 74 qlite_func *cont
1190: 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 ext, int argc, c
11a0: 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 onst char **argv
11b0: 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f ){. int i;. fo
11c0: 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 r(i=0; i<argc; i
11d0: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 61 72 67 ++){. if( arg
11e0: 76 5b 69 5d 20 29 7b 0a 20 20 20 20 20 20 73 71 v[i] ){. sq
11f0: 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 5f lite_set_result_
1200: 73 74 72 69 6e 67 28 63 6f 6e 74 65 78 74 2c 20 string(context,
1210: 61 72 67 76 5b 69 5d 2c 20 2d 31 29 3b 0a 20 20 argv[i], -1);.
1220: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d break;. }
1230: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d . }.}../*.** Im
1240: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 plementation of
1250: 72 61 6e 64 6f 6d 28 29 2e 20 20 52 65 74 75 72 random(). Retur
1260: 6e 20 61 20 72 61 6e 64 6f 6d 20 69 6e 74 65 67 n a random integ
1270: 65 72 2e 20 20 0a 2a 2f 0a 73 74 61 74 69 63 20 er. .*/.static
1280: 76 6f 69 64 20 72 61 6e 64 6f 6d 46 75 6e 63 28 void randomFunc(
1290: 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 6f 6e sqlite_func *con
12a0: 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 text, int argc,
12b0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 const char **arg
12c0: 76 29 7b 0a 20 20 69 6e 74 20 72 3b 0a 20 20 73 v){. int r;. s
12d0: 71 6c 69 74 65 52 61 6e 64 6f 6d 6e 65 73 73 28 qliteRandomness(
12e0: 73 69 7a 65 6f 66 28 72 29 2c 20 26 72 29 3b 0a sizeof(r), &r);.
12f0: 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 sqlite_set_res
1300: 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c ult_int(context,
1310: 20 72 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d r);.}../*.** Im
1320: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 plementation of
1330: 74 68 65 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f the last_insert_
1340: 72 6f 77 69 64 28 29 20 53 51 4c 20 66 75 6e 63 rowid() SQL func
1350: 74 69 6f 6e 2e 20 20 54 68 65 20 72 65 74 75 72 tion. The retur
1360: 6e 0a 2a 2a 20 76 61 6c 75 65 20 69 73 20 74 68 n.** value is th
1370: 65 20 73 61 6d 65 20 61 73 20 74 68 65 20 73 71 e same as the sq
1380: 6c 69 74 65 5f 6c 61 73 74 5f 69 6e 73 65 72 74 lite_last_insert
1390: 5f 72 6f 77 69 64 28 29 20 41 50 49 20 66 75 6e _rowid() API fun
13a0: 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 ction..*/.static
13b0: 20 76 6f 69 64 20 6c 61 73 74 5f 69 6e 73 65 72 void last_inser
13c0: 74 5f 72 6f 77 69 64 28 73 71 6c 69 74 65 5f 66 t_rowid(sqlite_f
13d0: 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e unc *context, in
13e0: 74 20 61 72 67 2c 20 63 6f 6e 73 74 20 63 68 61 t arg, const cha
13f0: 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 73 71 6c r **argv){. sql
1400: 69 74 65 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 ite *db = sqlite
1410: 5f 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 _user_data(conte
1420: 78 74 29 3b 0a 20 20 73 71 6c 69 74 65 5f 73 65 xt);. sqlite_se
1430: 74 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e t_result_int(con
1440: 74 65 78 74 2c 20 73 71 6c 69 74 65 5f 6c 61 73 text, sqlite_las
1450: 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 64 t_insert_rowid(d
1460: 62 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d b));.}../*.** Im
1470: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 plementation of
1480: 74 68 65 20 63 68 61 6e 67 65 5f 63 6f 75 6e 74 the change_count
1490: 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e () SQL function.
14a0: 20 20 54 68 65 20 72 65 74 75 72 6e 0a 2a 2a 20 The return.**
14b0: 76 61 6c 75 65 20 69 73 20 74 68 65 20 73 61 6d value is the sam
14c0: 65 20 61 73 20 74 68 65 20 73 71 6c 69 74 65 5f e as the sqlite_
14d0: 63 68 61 6e 67 65 73 28 29 20 41 50 49 20 66 75 changes() API fu
14e0: 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 nction..*/.stati
14f0: 63 20 76 6f 69 64 20 63 68 61 6e 67 65 5f 63 6f c void change_co
1500: 75 6e 74 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 unt(sqlite_func
1510: 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 *context, int ar
1520: 67 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a g, const char **
1530: 61 72 67 76 29 7b 0a 20 20 73 71 6c 69 74 65 20 argv){. sqlite
1540: 2a 64 62 20 3d 20 73 71 6c 69 74 65 5f 75 73 65 *db = sqlite_use
1550: 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 3b r_data(context);
1560: 0a 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 . sqlite_set_re
1570: 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 sult_int(context
1580: 2c 20 73 71 6c 69 74 65 5f 63 68 61 6e 67 65 73 , sqlite_changes
1590: 28 64 62 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 (db));.}../*.**
15a0: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f Implementation o
15b0: 66 20 74 68 65 20 6c 61 73 74 5f 73 74 61 74 65 f the last_state
15c0: 6d 65 6e 74 5f 63 68 61 6e 67 65 5f 63 6f 75 6e ment_change_coun
15d0: 74 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e t() SQL function
15e0: 2e 20 20 54 68 65 0a 2a 2a 20 72 65 74 75 72 6e . The.** return
15f0: 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 73 61 value is the sa
1600: 6d 65 20 61 73 20 74 68 65 20 73 71 6c 69 74 65 me as the sqlite
1610: 5f 6c 61 73 74 5f 73 74 61 74 65 6d 65 6e 74 5f _last_statement_
1620: 63 68 61 6e 67 65 73 28 29 20 41 50 49 20 66 75 changes() API fu
1630: 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 nction..*/.stati
1640: 63 20 76 6f 69 64 20 6c 61 73 74 5f 73 74 61 74 c void last_stat
1650: 65 6d 65 6e 74 5f 63 68 61 6e 67 65 5f 63 6f 75 ement_change_cou
1660: 6e 74 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a nt(sqlite_func *
1670: 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 context, int arg
1680: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
1690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
16a0: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 74 20 const
16b0: 63 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 char **argv){.
16c0: 73 71 6c 69 74 65 20 2a 64 62 20 3d 20 73 71 6c sqlite *db = sql
16d0: 69 74 65 5f 75 73 65 72 5f 64 61 74 61 28 63 6f ite_user_data(co
16e0: 6e 74 65 78 74 29 3b 0a 20 20 73 71 6c 69 74 65 ntext);. sqlite
16f0: 5f 73 65 74 5f 72 65 73 75 6c 74 5f 69 6e 74 28 _set_result_int(
1700: 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 5f context, sqlite_
1710: 6c 61 73 74 5f 73 74 61 74 65 6d 65 6e 74 5f 63 last_statement_c
1720: 68 61 6e 67 65 73 28 64 62 29 29 3b 0a 7d 0a 0a hanges(db));.}..
1730: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 /*.** Implementa
1740: 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c 69 6b 65 tion of the like
1750: 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e () SQL function.
1760: 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 This function
1770: 69 6d 70 6c 65 6d 65 6e 74 73 0a 2a 2a 20 74 68 implements.** th
1780: 65 20 62 75 69 6c 64 2d 69 6e 20 4c 49 4b 45 20 e build-in LIKE
1790: 6f 70 65 72 61 74 6f 72 2e 20 20 54 68 65 20 66 operator. The f
17a0: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f irst argument to
17b0: 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 the function is
17c0: 20 74 68 65 0a 2a 2a 20 73 74 72 69 6e 67 20 61 the.** string a
17d0: 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 nd the second ar
17e0: 67 75 6d 65 6e 74 20 69 73 20 74 68 65 20 70 61 gument is the pa
17f0: 74 74 65 72 6e 2e 20 20 53 6f 2c 20 74 68 65 20 ttern. So, the
1800: 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 3a 0a SQL statements:.
1810: 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 41 20 4c 49 **.** A LI
1820: 4b 45 20 42 0a 2a 2a 0a 2a 2a 20 69 73 20 69 6d KE B.**.** is im
1830: 70 6c 65 6d 65 6e 74 65 64 20 61 73 20 6c 69 6b plemented as lik
1840: 65 28 41 2c 42 29 2e 0a 2a 2f 0a 73 74 61 74 69 e(A,B)..*/.stati
1850: 63 20 76 6f 69 64 20 6c 69 6b 65 46 75 6e 63 28 c void likeFunc(
1860: 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 6f 6e sqlite_func *con
1870: 74 65 78 74 2c 20 69 6e 74 20 61 72 67 2c 20 63 text, int arg, c
1880: 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 onst char **argv
1890: 29 7b 0a 20 20 69 66 28 20 61 72 67 76 5b 30 5d ){. if( argv[0]
18a0: 3d 3d 30 20 7c 7c 20 61 72 67 76 5b 31 5d 3d 3d ==0 || argv[1]==
18b0: 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 73 71 0 ) return;. sq
18c0: 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 5f lite_set_result_
18d0: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 0a 20 20 int(context, .
18e0: 20 20 73 71 6c 69 74 65 4c 69 6b 65 43 6f 6d 70 sqliteLikeComp
18f0: 61 72 65 28 28 63 6f 6e 73 74 20 75 6e 73 69 67 are((const unsig
1900: 6e 65 64 20 63 68 61 72 2a 29 61 72 67 76 5b 30 ned char*)argv[0
1910: 5d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ],.
1920: 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 (const
1930: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 2a 29 61 unsigned char*)a
1940: 72 67 76 5b 31 5d 29 29 3b 0a 7d 0a 0a 2f 2a 0a rgv[1]));.}../*.
1950: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** Implementatio
1960: 6e 20 6f 66 20 74 68 65 20 67 6c 6f 62 28 29 20 n of the glob()
1970: 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 SQL function. T
1980: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 his function imp
1990: 6c 65 6d 65 6e 74 73 0a 2a 2a 20 74 68 65 20 62 lements.** the b
19a0: 75 69 6c 64 2d 69 6e 20 47 4c 4f 42 20 6f 70 65 uild-in GLOB ope
19b0: 72 61 74 6f 72 2e 20 20 54 68 65 20 66 69 72 73 rator. The firs
19c0: 74 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 74 68 t argument to th
19d0: 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 74 68 e function is th
19e0: 65 0a 2a 2a 20 73 74 72 69 6e 67 20 61 6e 64 20 e.** string and
19f0: 74 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d the second argum
1a00: 65 6e 74 20 69 73 20 74 68 65 20 70 61 74 74 65 ent is the patte
1a10: 72 6e 2e 20 20 53 6f 2c 20 74 68 65 20 53 51 4c rn. So, the SQL
1a20: 20 73 74 61 74 65 6d 65 6e 74 73 3a 0a 2a 2a 0a statements:.**.
1a30: 2a 2a 20 20 20 20 20 20 20 41 20 47 4c 4f 42 20 ** A GLOB
1a40: 42 0a 2a 2a 0a 2a 2a 20 69 73 20 69 6d 70 6c 65 B.**.** is imple
1a50: 6d 65 6e 74 65 64 20 61 73 20 67 6c 6f 62 28 41 mented as glob(A
1a60: 2c 42 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ,B)..*/.static v
1a70: 6f 69 64 20 67 6c 6f 62 46 75 6e 63 28 73 71 6c oid globFunc(sql
1a80: 69 74 65 5f 66 75 6e 63 20 2a 63 6f 6e 74 65 78 ite_func *contex
1a90: 74 2c 20 69 6e 74 20 61 72 67 2c 20 63 6f 6e 73 t, int arg, cons
1aa0: 74 20 63 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a t char **argv){.
1ab0: 20 20 69 66 28 20 61 72 67 76 5b 30 5d 3d 3d 30 if( argv[0]==0
1ac0: 20 7c 7c 20 61 72 67 76 5b 31 5d 3d 3d 30 20 29 || argv[1]==0 )
1ad0: 20 72 65 74 75 72 6e 3b 0a 20 20 73 71 6c 69 74 return;. sqlit
1ae0: 65 5f 73 65 74 5f 72 65 73 75 6c 74 5f 69 6e 74 e_set_result_int
1af0: 28 63 6f 6e 74 65 78 74 2c 0a 20 20 20 20 73 71 (context,. sq
1b00: 6c 69 74 65 47 6c 6f 62 43 6f 6d 70 61 72 65 28 liteGlobCompare(
1b10: 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 (const unsigned
1b20: 63 68 61 72 2a 29 61 72 67 76 5b 30 5d 2c 0a 20 char*)argv[0],.
1b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b40: 20 20 20 20 20 28 63 6f 6e 73 74 20 75 6e 73 69 (const unsi
1b50: 67 6e 65 64 20 63 68 61 72 2a 29 61 72 67 76 5b gned char*)argv[
1b60: 31 5d 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 1]));.}../*.** I
1b70: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
1b80: 20 74 68 65 20 4e 55 4c 4c 49 46 28 78 2c 79 29 the NULLIF(x,y)
1b90: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 function. The
1ba0: 72 65 73 75 6c 74 20 69 73 20 74 68 65 20 66 69 result is the fi
1bb0: 72 73 74 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 20 rst.** argument
1bc0: 69 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 if the arguments
1bd0: 20 61 72 65 20 64 69 66 66 65 72 65 6e 74 2e 20 are different.
1be0: 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 4e The result is N
1bf0: 55 4c 4c 20 69 66 20 74 68 65 0a 2a 2a 20 61 72 ULL if the.** ar
1c00: 67 75 6d 65 6e 74 73 20 61 72 65 20 65 71 75 61 guments are equa
1c10: 6c 20 74 6f 20 65 61 63 68 20 6f 74 68 65 72 2e l to each other.
1c20: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
1c30: 6e 75 6c 6c 69 66 46 75 6e 63 28 73 71 6c 69 74 nullifFunc(sqlit
1c40: 65 5f 66 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c e_func *context,
1c50: 20 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 int argc, const
1c60: 20 63 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 char **argv){.
1c70: 20 69 66 28 20 61 72 67 76 5b 30 5d 21 3d 30 20 if( argv[0]!=0
1c80: 26 26 20 73 71 6c 69 74 65 43 6f 6d 70 61 72 65 && sqliteCompare
1c90: 28 61 72 67 76 5b 30 5d 2c 61 72 67 76 5b 31 5d (argv[0],argv[1]
1ca0: 29 21 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 )!=0 ){. sqli
1cb0: 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 5f 73 74 te_set_result_st
1cc0: 72 69 6e 67 28 63 6f 6e 74 65 78 74 2c 20 61 72 ring(context, ar
1cd0: 67 76 5b 30 5d 2c 20 2d 31 29 3b 0a 20 20 7d 0a gv[0], -1);. }.
1ce0: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 }../*.** Impleme
1cf0: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 56 ntation of the V
1d00: 45 52 53 49 4f 4e 28 2a 29 20 66 75 6e 63 74 69 ERSION(*) functi
1d10: 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 on. The result
1d20: 69 73 20 74 68 65 20 76 65 72 73 69 6f 6e 0a 2a is the version.*
1d30: 2a 20 6f 66 20 74 68 65 20 53 51 4c 69 74 65 20 * of the SQLite
1d40: 6c 69 62 72 61 72 79 20 74 68 61 74 20 69 73 20 library that is
1d50: 72 75 6e 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 running..*/.stat
1d60: 69 63 20 76 6f 69 64 20 76 65 72 73 69 6f 6e 46 ic void versionF
1d70: 75 6e 63 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 unc(sqlite_func
1d80: 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 *context, int ar
1d90: 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a gc, const char *
1da0: 2a 61 72 67 76 29 7b 0a 20 20 73 71 6c 69 74 65 *argv){. sqlite
1db0: 5f 73 65 74 5f 72 65 73 75 6c 74 5f 73 74 72 69 _set_result_stri
1dc0: 6e 67 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 ng(context, sqli
1dd0: 74 65 5f 76 65 72 73 69 6f 6e 2c 20 2d 31 29 3b te_version, -1);
1de0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 45 58 50 45 52 49 .}../*.** EXPERI
1df0: 4d 45 4e 54 41 4c 20 2d 20 54 68 69 73 20 69 73 MENTAL - This is
1e00: 20 6e 6f 74 20 61 6e 20 6f 66 66 69 63 69 61 6c not an official
1e10: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 function. The
1e20: 69 6e 74 65 72 66 61 63 65 20 6d 61 79 0a 2a 2a interface may.**
1e30: 20 63 68 61 6e 67 65 2e 20 20 54 68 69 73 20 66 change. This f
1e40: 75 6e 63 74 69 6f 6e 20 6d 61 79 20 64 69 73 61 unction may disa
1e50: 70 70 65 61 72 2e 20 20 44 6f 20 6e 6f 74 20 77 ppear. Do not w
1e60: 72 69 74 65 20 63 6f 64 65 20 74 68 61 74 20 64 rite code that d
1e70: 65 70 65 6e 64 73 0a 2a 2a 20 6f 6e 20 74 68 69 epends.** on thi
1e80: 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a s function..**.*
1e90: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e * Implementation
1ea0: 20 6f 66 20 74 68 65 20 51 55 4f 54 45 28 29 20 of the QUOTE()
1eb0: 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 function. This
1ec0: 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 61 function takes a
1ed0: 20 73 69 6e 67 6c 65 0a 2a 2a 20 61 72 67 75 6d single.** argum
1ee0: 65 6e 74 2e 20 20 49 66 20 74 68 65 20 61 72 67 ent. If the arg
1ef0: 75 6d 65 6e 74 20 69 73 20 6e 75 6d 65 72 69 63 ument is numeric
1f00: 2c 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c , the return val
1f10: 75 65 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 ue is the same a
1f20: 73 0a 2a 2a 20 74 68 65 20 61 72 67 75 6d 65 6e s.** the argumen
1f30: 74 2e 20 20 49 66 20 74 68 65 20 61 72 67 75 6d t. If the argum
1f40: 65 6e 74 20 69 73 20 4e 55 4c 4c 2c 20 74 68 65 ent is NULL, the
1f50: 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 return value is
1f60: 20 74 68 65 20 73 74 72 69 6e 67 0a 2a 2a 20 22 the string.** "
1f70: 4e 55 4c 4c 22 2e 20 20 4f 74 68 65 72 77 69 73 NULL". Otherwis
1f80: 65 2c 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 e, the argument
1f90: 69 73 20 65 6e 63 6c 6f 73 65 64 20 69 6e 20 73 is enclosed in s
1fa0: 69 6e 67 6c 65 20 71 75 6f 74 65 73 20 77 69 74 ingle quotes wit
1fb0: 68 0a 2a 2a 20 73 69 6e 67 6c 65 2d 71 75 6f 74 h.** single-quot
1fc0: 65 20 65 73 63 61 70 65 73 2e 0a 2a 2f 0a 73 74 e escapes..*/.st
1fd0: 61 74 69 63 20 76 6f 69 64 20 71 75 6f 74 65 46 atic void quoteF
1fe0: 75 6e 63 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 unc(sqlite_func
1ff0: 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 *context, int ar
2000: 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a gc, const char *
2010: 2a 61 72 67 76 29 7b 0a 20 20 69 66 28 20 61 72 *argv){. if( ar
2020: 67 63 3c 31 20 29 20 72 65 74 75 72 6e 3b 0a 20 gc<1 ) return;.
2030: 20 69 66 28 20 61 72 67 76 5b 30 5d 3d 3d 30 20 if( argv[0]==0
2040: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 5f 73 65 ){. sqlite_se
2050: 74 5f 72 65 73 75 6c 74 5f 73 74 72 69 6e 67 28 t_result_string(
2060: 63 6f 6e 74 65 78 74 2c 20 22 4e 55 4c 4c 22 2c context, "NULL",
2070: 20 34 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 4);. }else if(
2080: 20 73 71 6c 69 74 65 49 73 4e 75 6d 62 65 72 28 sqliteIsNumber(
2090: 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 argv[0]) ){.
20a0: 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c sqlite_set_resul
20b0: 74 5f 73 74 72 69 6e 67 28 63 6f 6e 74 65 78 74 t_string(context
20c0: 2c 20 61 72 67 76 5b 30 5d 2c 20 2d 31 29 3b 0a , argv[0], -1);.
20d0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 6e 74 }else{. int
20e0: 20 69 2c 6a 2c 6e 3b 0a 20 20 20 20 63 68 61 72 i,j,n;. char
20f0: 20 2a 7a 3b 0a 20 20 20 20 66 6f 72 28 69 3d 6e *z;. for(i=n
2100: 3d 30 3b 20 61 72 67 76 5b 30 5d 5b 69 5d 3b 20 =0; argv[0][i];
2110: 69 2b 2b 29 7b 20 69 66 28 20 61 72 67 76 5b 30 i++){ if( argv[0
2120: 5d 5b 69 5d 3d 3d 27 5c 27 27 20 29 20 6e 2b 2b ][i]=='\'' ) n++
2130: 3b 20 7d 0a 20 20 20 20 7a 20 3d 20 73 71 6c 69 ; }. z = sqli
2140: 74 65 4d 61 6c 6c 6f 63 28 20 69 2b 6e 2b 33 20 teMalloc( i+n+3
2150: 29 3b 0a 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 );. if( z==0
2160: 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7a 5b ) return;. z[
2170: 30 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 66 0] = '\'';. f
2180: 6f 72 28 69 3d 30 2c 20 6a 3d 31 3b 20 61 72 67 or(i=0, j=1; arg
2190: 76 5b 30 5d 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 v[0][i]; i++){.
21a0: 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 61 72 z[j++] = ar
21b0: 67 76 5b 30 5d 5b 69 5d 3b 0a 20 20 20 20 20 20 gv[0][i];.
21c0: 69 66 28 20 61 72 67 76 5b 30 5d 5b 69 5d 3d 3d if( argv[0][i]==
21d0: 27 5c 27 27 20 29 7b 0a 20 20 20 20 20 20 20 20 '\'' ){.
21e0: 7a 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 z[j++] = '\'';.
21f0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 }. }.
2200: 20 7a 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a z[j++] = '\'';.
2210: 20 20 20 20 7a 5b 6a 5d 20 3d 20 30 3b 0a 20 20 z[j] = 0;.
2220: 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 sqlite_set_res
2230: 75 6c 74 5f 73 74 72 69 6e 67 28 63 6f 6e 74 65 ult_string(conte
2240: 78 74 2c 20 7a 2c 20 6a 29 3b 0a 20 20 20 20 73 xt, z, j);. s
2250: 71 6c 69 74 65 46 72 65 65 28 7a 29 3b 0a 20 20 qliteFree(z);.
2260: 7d 0a 7d 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 }.}..#ifdef SQLI
2270: 54 45 5f 53 4f 55 4e 44 45 58 0a 2f 2a 0a 2a 2a TE_SOUNDEX./*.**
2280: 20 43 6f 6d 70 75 74 65 20 74 68 65 20 73 6f 75 Compute the sou
2290: 6e 64 65 78 20 65 6e 63 6f 64 69 6e 67 20 6f 66 ndex encoding of
22a0: 20 61 20 77 6f 72 64 2e 0a 2a 2f 0a 73 74 61 74 a word..*/.stat
22b0: 69 63 20 76 6f 69 64 20 73 6f 75 6e 64 65 78 46 ic void soundexF
22c0: 75 6e 63 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 unc(sqlite_func
22d0: 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 *context, int ar
22e0: 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a gc, const char *
22f0: 2a 61 72 67 76 29 7b 0a 20 20 63 68 61 72 20 7a *argv){. char z
2300: 52 65 73 75 6c 74 5b 38 5d 3b 0a 20 20 63 6f 6e Result[8];. con
2310: 73 74 20 63 68 61 72 20 2a 7a 49 6e 3b 0a 20 20 st char *zIn;.
2320: 69 6e 74 20 69 2c 20 6a 3b 0a 20 20 73 74 61 74 int i, j;. stat
2330: 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 ic const unsigne
2340: 64 20 63 68 61 72 20 69 43 6f 64 65 5b 5d 20 3d d char iCode[] =
2350: 20 7b 0a 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 {. 0, 0, 0,
2360: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
2370: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
2380: 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c 0, 0,. 0, 0,
2390: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
23a0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
23b0: 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 , 0, 0, 0,. 0
23c0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
23d0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
23e0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 0, 0, 0, 0, 0,.
23f0: 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0
2400: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
2410: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
2420: 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 31 2c 20 0,. 0, 0, 1,
2430: 32 2c 20 33 2c 20 30 2c 20 31 2c 20 32 2c 20 30 2, 3, 0, 1, 2, 0
2440: 2c 20 30 2c 20 32 2c 20 32 2c 20 34 2c 20 35 2c , 0, 2, 2, 4, 5,
2450: 20 35 2c 20 30 2c 0a 20 20 20 20 31 2c 20 32 2c 5, 0,. 1, 2,
2460: 20 36 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2c 20 6, 2, 3, 0, 1,
2470: 30 2c 20 32 2c 20 30 2c 20 32 2c 20 30 2c 20 30 0, 2, 0, 2, 0, 0
2480: 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 , 0, 0, 0,. 0
2490: 2c 20 30 2c 20 31 2c 20 32 2c 20 33 2c 20 30 2c , 0, 1, 2, 3, 0,
24a0: 20 31 2c 20 32 2c 20 30 2c 20 30 2c 20 32 2c 20 1, 2, 0, 0, 2,
24b0: 32 2c 20 34 2c 20 35 2c 20 35 2c 20 30 2c 0a 20 2, 4, 5, 5, 0,.
24c0: 20 20 20 31 2c 20 32 2c 20 36 2c 20 32 2c 20 33 1, 2, 6, 2, 3
24d0: 2c 20 30 2c 20 31 2c 20 30 2c 20 32 2c 20 30 2c , 0, 1, 0, 2, 0,
24e0: 20 32 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 2, 0, 0, 0, 0,
24f0: 30 2c 0a 20 20 7d 3b 0a 20 20 61 73 73 65 72 74 0,. };. assert
2500: 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 7a ( argc==1 );. z
2510: 49 6e 20 3d 20 61 72 67 76 5b 30 5d 3b 0a 20 20 In = argv[0];.
2520: 66 6f 72 28 69 3d 30 3b 20 7a 49 6e 5b 69 5d 20 for(i=0; zIn[i]
2530: 26 26 20 21 69 73 61 6c 70 68 61 28 7a 49 6e 5b && !isalpha(zIn[
2540: 69 5d 29 3b 20 69 2b 2b 29 7b 7d 0a 20 20 69 66 i]); i++){}. if
2550: 28 20 7a 49 6e 5b 69 5d 20 29 7b 0a 20 20 20 20 ( zIn[i] ){.
2560: 7a 52 65 73 75 6c 74 5b 30 5d 20 3d 20 74 6f 75 zResult[0] = tou
2570: 70 70 65 72 28 7a 49 6e 5b 69 5d 29 3b 0a 20 20 pper(zIn[i]);.
2580: 20 20 66 6f 72 28 6a 3d 31 3b 20 6a 3c 34 20 26 for(j=1; j<4 &
2590: 26 20 7a 49 6e 5b 69 5d 3b 20 69 2b 2b 29 7b 0a & zIn[i]; i++){.
25a0: 20 20 20 20 20 20 69 6e 74 20 63 6f 64 65 20 3d int code =
25b0: 20 69 43 6f 64 65 5b 7a 49 6e 5b 69 5d 26 30 78 iCode[zIn[i]&0x
25c0: 37 66 5d 3b 0a 20 20 20 20 20 20 69 66 28 20 63 7f];. if( c
25d0: 6f 64 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 ode>0 ){.
25e0: 20 7a 52 65 73 75 6c 74 5b 6a 2b 2b 5d 20 3d 20 zResult[j++] =
25f0: 63 6f 64 65 20 2b 20 27 30 27 3b 0a 20 20 20 20 code + '0';.
2600: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 77 68 }. }. wh
2610: 69 6c 65 28 20 6a 3c 34 20 29 7b 0a 20 20 20 20 ile( j<4 ){.
2620: 20 20 7a 52 65 73 75 6c 74 5b 6a 2b 2b 5d 20 3d zResult[j++] =
2630: 20 27 30 27 3b 0a 20 20 20 20 7d 0a 20 20 20 20 '0';. }.
2640: 7a 52 65 73 75 6c 74 5b 6a 5d 20 3d 20 30 3b 0a zResult[j] = 0;.
2650: 20 20 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 72 sqlite_set_r
2660: 65 73 75 6c 74 5f 73 74 72 69 6e 67 28 63 6f 6e esult_string(con
2670: 74 65 78 74 2c 20 7a 52 65 73 75 6c 74 2c 20 34 text, zResult, 4
2680: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 );. }else{.
2690: 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c sqlite_set_resul
26a0: 74 5f 73 74 72 69 6e 67 28 63 6f 6e 74 65 78 74 t_string(context
26b0: 2c 20 22 3f 30 30 30 22 2c 20 34 29 3b 0a 20 20 , "?000", 4);.
26c0: 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 }.}.#endif..#ifd
26d0: 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 2f ef SQLITE_TEST./
26e0: 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 *.** This functi
26f0: 6f 6e 20 67 65 6e 65 72 61 74 65 73 20 61 20 73 on generates a s
2700: 74 72 69 6e 67 20 6f 66 20 72 61 6e 64 6f 6d 20 tring of random
2710: 63 68 61 72 61 63 74 65 72 73 2e 20 20 55 73 65 characters. Use
2720: 64 20 66 6f 72 0a 2a 2a 20 67 65 6e 65 72 61 74 d for.** generat
2730: 69 6e 67 20 74 65 73 74 20 64 61 74 61 2e 0a 2a ing test data..*
2740: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 72 61 /.static void ra
2750: 6e 64 53 74 72 28 73 71 6c 69 74 65 5f 66 75 6e ndStr(sqlite_fun
2760: 63 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 c *context, int
2770: 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 argc, const char
2780: 20 2a 2a 61 72 67 76 29 7b 0a 20 20 73 74 61 74 **argv){. stat
2790: 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 ic const unsigne
27a0: 64 20 63 68 61 72 20 7a 53 72 63 5b 5d 20 3d 20 d char zSrc[] =
27b0: 0a 20 20 20 20 20 22 61 62 63 64 65 66 67 68 69 . "abcdefghi
27c0: 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 jklmnopqrstuvwxy
27d0: 7a 22 0a 20 20 20 20 20 22 41 42 43 44 45 46 47 z". "ABCDEFG
27e0: 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 HIJKLMNOPQRSTUVW
27f0: 58 59 5a 22 0a 20 20 20 20 20 22 30 31 32 33 34 XYZ". "01234
2800: 35 36 37 38 39 22 0a 20 20 20 20 20 22 2e 2d 21 56789". ".-!
2810: 2c 3a 2a 5e 2b 3d 5f 7c 3f 2f 3c 3e 20 22 3b 0a ,:*^+=_|?/<> ";.
2820: 20 20 69 6e 74 20 69 4d 69 6e 2c 20 69 4d 61 78 int iMin, iMax
2830: 2c 20 6e 2c 20 72 2c 20 69 3b 0a 20 20 75 6e 73 , n, r, i;. uns
2840: 69 67 6e 65 64 20 63 68 61 72 20 7a 42 75 66 5b igned char zBuf[
2850: 31 30 30 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 1000];. if( arg
2860: 63 3e 3d 31 20 29 7b 0a 20 20 20 20 69 4d 69 6e c>=1 ){. iMin
2870: 20 3d 20 61 74 6f 69 28 61 72 67 76 5b 30 5d 29 = atoi(argv[0])
2880: 3b 0a 20 20 20 20 69 66 28 20 69 4d 69 6e 3c 30 ;. if( iMin<0
2890: 20 29 20 69 4d 69 6e 20 3d 20 30 3b 0a 20 20 20 ) iMin = 0;.
28a0: 20 69 66 28 20 69 4d 69 6e 3e 3d 73 69 7a 65 6f if( iMin>=sizeo
28b0: 66 28 7a 42 75 66 29 20 29 20 69 4d 69 6e 20 3d f(zBuf) ) iMin =
28c0: 20 73 69 7a 65 6f 66 28 7a 42 75 66 29 2d 31 3b sizeof(zBuf)-1;
28d0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 4d . }else{. iM
28e0: 69 6e 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 69 66 in = 1;. }. if
28f0: 28 20 61 72 67 63 3e 3d 32 20 29 7b 0a 20 20 20 ( argc>=2 ){.
2900: 20 69 4d 61 78 20 3d 20 61 74 6f 69 28 61 72 67 iMax = atoi(arg
2910: 76 5b 31 5d 29 3b 0a 20 20 20 20 69 66 28 20 69 v[1]);. if( i
2920: 4d 61 78 3c 69 4d 69 6e 20 29 20 69 4d 61 78 20 Max<iMin ) iMax
2930: 3d 20 69 4d 69 6e 3b 0a 20 20 20 20 69 66 28 20 = iMin;. if(
2940: 69 4d 61 78 3e 3d 73 69 7a 65 6f 66 28 7a 42 75 iMax>=sizeof(zBu
2950: 66 29 20 29 20 69 4d 61 78 20 3d 20 73 69 7a 65 f) ) iMax = size
2960: 6f 66 28 7a 42 75 66 29 2d 31 3b 0a 20 20 7d 65 of(zBuf)-1;. }e
2970: 6c 73 65 7b 0a 20 20 20 20 69 4d 61 78 20 3d 20 lse{. iMax =
2980: 35 30 3b 0a 20 20 7d 0a 20 20 6e 20 3d 20 69 4d 50;. }. n = iM
2990: 69 6e 3b 0a 20 20 69 66 28 20 69 4d 61 78 3e 69 in;. if( iMax>i
29a0: 4d 69 6e 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 Min ){. sqlit
29b0: 65 52 61 6e 64 6f 6d 6e 65 73 73 28 73 69 7a 65 eRandomness(size
29c0: 6f 66 28 72 29 2c 20 26 72 29 3b 0a 20 20 20 20 of(r), &r);.
29d0: 72 20 26 3d 20 30 78 37 66 66 66 66 66 66 66 3b r &= 0x7fffffff;
29e0: 0a 20 20 20 20 6e 20 2b 3d 20 72 25 28 69 4d 61 . n += r%(iMa
29f0: 78 20 2b 20 31 20 2d 20 69 4d 69 6e 29 3b 0a 20 x + 1 - iMin);.
2a00: 20 7d 0a 20 20 61 73 73 65 72 74 28 20 6e 3c 73 }. assert( n<s
2a10: 69 7a 65 6f 66 28 7a 42 75 66 29 20 29 3b 0a 20 izeof(zBuf) );.
2a20: 20 73 71 6c 69 74 65 52 61 6e 64 6f 6d 6e 65 73 sqliteRandomnes
2a30: 73 28 6e 2c 20 7a 42 75 66 29 3b 0a 20 20 66 6f s(n, zBuf);. fo
2a40: 72 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 29 r(i=0; i<n; i++)
2a50: 7b 0a 20 20 20 20 7a 42 75 66 5b 69 5d 20 3d 20 {. zBuf[i] =
2a60: 7a 53 72 63 5b 7a 42 75 66 5b 69 5d 25 28 73 69 zSrc[zBuf[i]%(si
2a70: 7a 65 6f 66 28 7a 53 72 63 29 2d 31 29 5d 3b 0a zeof(zSrc)-1)];.
2a80: 20 20 7d 0a 20 20 7a 42 75 66 5b 6e 5d 20 3d 20 }. zBuf[n] =
2a90: 30 3b 0a 20 20 73 71 6c 69 74 65 5f 73 65 74 5f 0;. sqlite_set_
2aa0: 72 65 73 75 6c 74 5f 73 74 72 69 6e 67 28 63 6f result_string(co
2ab0: 6e 74 65 78 74 2c 20 7a 42 75 66 2c 20 6e 29 3b ntext, zBuf, n);
2ac0: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a .}.#endif../*.**
2ad0: 20 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 An instance of
2ae0: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 the following st
2af0: 72 75 63 74 75 72 65 20 68 6f 6c 64 73 20 74 68 ructure holds th
2b00: 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 61 0a 2a e context of a.*
2b10: 2a 20 73 75 6d 28 29 20 6f 72 20 61 76 67 28 29 * sum() or avg()
2b20: 20 61 67 67 72 65 67 61 74 65 20 63 6f 6d 70 75 aggregate compu
2b30: 74 61 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 tation..*/.typed
2b40: 65 66 20 73 74 72 75 63 74 20 53 75 6d 43 74 78 ef struct SumCtx
2b50: 20 53 75 6d 43 74 78 3b 0a 73 74 72 75 63 74 20 SumCtx;.struct
2b60: 53 75 6d 43 74 78 20 7b 0a 20 20 64 6f 75 62 6c SumCtx {. doubl
2b70: 65 20 73 75 6d 3b 20 20 20 20 20 2f 2a 20 53 75 e sum; /* Su
2b80: 6d 20 6f 66 20 74 65 72 6d 73 20 2a 2f 0a 20 20 m of terms */.
2b90: 69 6e 74 20 63 6e 74 3b 20 20 20 20 20 20 20 20 int cnt;
2ba0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 65 6c 65 /* Number of ele
2bb0: 6d 65 6e 74 73 20 73 75 6d 6d 65 64 20 2a 2f 0a ments summed */.
2bc0: 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e };../*.** Routin
2bd0: 65 73 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 75 es used to compu
2be0: 74 65 20 74 68 65 20 73 75 6d 20 6f 72 20 61 76 te the sum or av
2bf0: 65 72 61 67 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 erage..*/.static
2c00: 20 76 6f 69 64 20 73 75 6d 53 74 65 70 28 73 71 void sumStep(sq
2c10: 6c 69 74 65 5f 66 75 6e 63 20 2a 63 6f 6e 74 65 lite_func *conte
2c20: 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 6f xt, int argc, co
2c30: 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 29 nst char **argv)
2c40: 7b 0a 20 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 {. SumCtx *p;.
2c50: 20 69 66 28 20 61 72 67 63 3c 31 20 29 20 72 65 if( argc<1 ) re
2c60: 74 75 72 6e 3b 0a 20 20 70 20 3d 20 73 71 6c 69 turn;. p = sqli
2c70: 74 65 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e te_aggregate_con
2c80: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 text(context, si
2c90: 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 zeof(*p));. if(
2ca0: 20 70 20 26 26 20 61 72 67 76 5b 30 5d 20 29 7b p && argv[0] ){
2cb0: 0a 20 20 20 20 70 2d 3e 73 75 6d 20 2b 3d 20 73 . p->sum += s
2cc0: 71 6c 69 74 65 41 74 6f 46 28 61 72 67 76 5b 30 qliteAtoF(argv[0
2cd0: 5d 2c 20 30 29 3b 0a 20 20 20 20 70 2d 3e 63 6e ], 0);. p->cn
2ce0: 74 2b 2b 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 t++;. }.}.stati
2cf0: 63 20 76 6f 69 64 20 73 75 6d 46 69 6e 61 6c 69 c void sumFinali
2d00: 7a 65 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a ze(sqlite_func *
2d10: 63 6f 6e 74 65 78 74 29 7b 0a 20 20 53 75 6d 43 context){. SumC
2d20: 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c tx *p;. p = sql
2d30: 69 74 65 5f 61 67 67 72 65 67 61 74 65 5f 63 6f ite_aggregate_co
2d40: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 ntext(context, s
2d50: 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 73 71 izeof(*p));. sq
2d60: 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 5f lite_set_result_
2d70: 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 double(context,
2d80: 70 20 3f 20 70 2d 3e 73 75 6d 20 3a 20 30 2e 30 p ? p->sum : 0.0
2d90: 29 3b 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 );.}.static void
2da0: 20 61 76 67 46 69 6e 61 6c 69 7a 65 28 73 71 6c avgFinalize(sql
2db0: 69 74 65 5f 66 75 6e 63 20 2a 63 6f 6e 74 65 78 ite_func *contex
2dc0: 74 29 7b 0a 20 20 53 75 6d 43 74 78 20 2a 70 3b t){. SumCtx *p;
2dd0: 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 5f 61 67 . p = sqlite_ag
2de0: 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 gregate_context(
2df0: 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 context, sizeof(
2e00: 2a 70 29 29 3b 0a 20 20 69 66 28 20 70 20 26 26 *p));. if( p &&
2e10: 20 70 2d 3e 63 6e 74 3e 30 20 29 7b 0a 20 20 20 p->cnt>0 ){.
2e20: 20 73 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 sqlite_set_resu
2e30: 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 lt_double(contex
2e40: 74 2c 20 70 2d 3e 73 75 6d 2f 28 64 6f 75 62 6c t, p->sum/(doubl
2e50: 65 29 70 2d 3e 63 6e 74 29 3b 0a 20 20 7d 0a 7d e)p->cnt);. }.}
2e60: 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 ../*.** An insta
2e70: 6e 63 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f nce of the follo
2e80: 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 20 68 wing structure h
2e90: 6f 6c 64 73 20 74 68 65 20 63 6f 6e 74 65 78 74 olds the context
2ea0: 20 6f 66 20 61 0a 2a 2a 20 76 61 72 69 61 6e 63 of a.** varianc
2eb0: 65 20 6f 72 20 73 74 61 6e 64 61 72 64 20 64 65 e or standard de
2ec0: 76 69 61 74 69 6f 6e 20 63 6f 6d 70 75 74 61 74 viation computat
2ed0: 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 ion..*/.typedef
2ee0: 73 74 72 75 63 74 20 53 74 64 44 65 76 43 74 78 struct StdDevCtx
2ef0: 20 53 74 64 44 65 76 43 74 78 3b 0a 73 74 72 75 StdDevCtx;.stru
2f00: 63 74 20 53 74 64 44 65 76 43 74 78 20 7b 0a 20 ct StdDevCtx {.
2f10: 20 64 6f 75 62 6c 65 20 73 75 6d 3b 20 20 20 20 double sum;
2f20: 20 2f 2a 20 53 75 6d 20 6f 66 20 74 65 72 6d 73 /* Sum of terms
2f30: 20 2a 2f 0a 20 20 64 6f 75 62 6c 65 20 73 75 6d */. double sum
2f40: 32 3b 20 20 20 20 2f 2a 20 53 75 6d 20 6f 66 20 2; /* Sum of
2f50: 74 68 65 20 73 71 75 61 72 65 73 20 6f 66 20 74 the squares of t
2f60: 65 72 6d 73 20 2a 2f 0a 20 20 69 6e 74 20 63 6e erms */. int cn
2f70: 74 3b 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d t; /* Num
2f80: 62 65 72 20 6f 66 20 74 65 72 6d 73 20 63 6f 75 ber of terms cou
2f90: 6e 74 65 64 20 2a 2f 0a 7d 3b 0a 0a 23 69 66 20 nted */.};..#if
2fa0: 30 20 20 20 2f 2a 20 4f 6d 69 74 20 62 65 63 61 0 /* Omit beca
2fb0: 75 73 65 20 6d 61 74 68 20 6c 69 62 72 61 72 79 use math library
2fc0: 20 69 73 20 72 65 71 75 69 72 65 64 20 2a 2f 0a is required */.
2fd0: 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 75 /*.** Routines u
2fe0: 73 65 64 20 74 6f 20 63 6f 6d 70 75 74 65 20 74 sed to compute t
2ff0: 68 65 20 73 74 61 6e 64 61 72 64 20 64 65 76 69 he standard devi
3000: 61 74 69 6f 6e 20 61 73 20 61 6e 20 61 67 67 72 ation as an aggr
3010: 65 67 61 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 egate..*/.static
3020: 20 76 6f 69 64 20 73 74 64 44 65 76 53 74 65 70 void stdDevStep
3030: 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 6f (sqlite_func *co
3040: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c ntext, int argc,
3050: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 const char **ar
3060: 67 76 29 7b 0a 20 20 53 74 64 44 65 76 43 74 78 gv){. StdDevCtx
3070: 20 2a 70 3b 0a 20 20 64 6f 75 62 6c 65 20 78 3b *p;. double x;
3080: 0a 20 20 69 66 28 20 61 72 67 63 3c 31 20 29 20 . if( argc<1 )
3090: 72 65 74 75 72 6e 3b 0a 20 20 70 20 3d 20 73 71 return;. p = sq
30a0: 6c 69 74 65 5f 61 67 67 72 65 67 61 74 65 5f 63 lite_aggregate_c
30b0: 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 ontext(context,
30c0: 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 sizeof(*p));. i
30d0: 66 28 20 70 20 26 26 20 61 72 67 76 5b 30 5d 20 f( p && argv[0]
30e0: 29 7b 0a 20 20 20 20 78 20 3d 20 73 71 6c 69 74 ){. x = sqlit
30f0: 65 41 74 6f 46 28 61 72 67 76 5b 30 5d 2c 20 30 eAtoF(argv[0], 0
3100: 29 3b 0a 20 20 20 20 70 2d 3e 73 75 6d 20 2b 3d );. p->sum +=
3110: 20 78 3b 0a 20 20 20 20 70 2d 3e 73 75 6d 32 20 x;. p->sum2
3120: 2b 3d 20 78 2a 78 3b 0a 20 20 20 20 70 2d 3e 63 += x*x;. p->c
3130: 6e 74 2b 2b 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 nt++;. }.}.stat
3140: 69 63 20 76 6f 69 64 20 73 74 64 44 65 76 46 69 ic void stdDevFi
3150: 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 5f 66 75 nalize(sqlite_fu
3160: 6e 63 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 nc *context){.
3170: 64 6f 75 62 6c 65 20 72 4e 20 3d 20 73 71 6c 69 double rN = sqli
3180: 74 65 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 75 te_aggregate_cou
3190: 6e 74 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 53 nt(context);. S
31a0: 74 64 44 65 76 43 74 78 20 2a 70 20 3d 20 73 71 tdDevCtx *p = sq
31b0: 6c 69 74 65 5f 61 67 67 72 65 67 61 74 65 5f 63 lite_aggregate_c
31c0: 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 ontext(context,
31d0: 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 sizeof(*p));. i
31e0: 66 28 20 70 20 26 26 20 70 2d 3e 63 6e 74 3e 31 f( p && p->cnt>1
31f0: 20 29 7b 0a 20 20 20 20 64 6f 75 62 6c 65 20 72 ){. double r
3200: 43 6e 74 20 3d 20 63 6e 74 3b 0a 20 20 20 20 73 Cnt = cnt;. s
3210: 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 qlite_set_result
3220: 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c _double(context,
3230: 20 0a 20 20 20 20 20 20 20 73 71 72 74 28 28 70 . sqrt((p
3240: 2d 3e 73 75 6d 32 20 2d 20 70 2d 3e 73 75 6d 2a ->sum2 - p->sum*
3250: 70 2d 3e 73 75 6d 2f 72 43 6e 74 29 2f 28 72 43 p->sum/rCnt)/(rC
3260: 6e 74 2d 31 2e 30 29 29 29 3b 0a 20 20 7d 0a 7d nt-1.0)));. }.}
3270: 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 54 .#endif../*.** T
3280: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 he following str
3290: 75 63 74 75 72 65 20 6b 65 65 70 73 20 74 72 61 ucture keeps tra
32a0: 63 6b 20 6f 66 20 73 74 61 74 65 20 69 6e 66 6f ck of state info
32b0: 72 6d 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 0a rmation for the.
32c0: 2a 2a 20 63 6f 75 6e 74 28 29 20 61 67 67 72 65 ** count() aggre
32d0: 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a gate function..*
32e0: 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 /.typedef struct
32f0: 20 43 6f 75 6e 74 43 74 78 20 43 6f 75 6e 74 43 CountCtx CountC
3300: 74 78 3b 0a 73 74 72 75 63 74 20 43 6f 75 6e 74 tx;.struct Count
3310: 43 74 78 20 7b 0a 20 20 69 6e 74 20 6e 3b 0a 7d Ctx {. int n;.}
3320: 3b 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 ;../*.** Routine
3330: 73 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 s to implement t
3340: 68 65 20 63 6f 75 6e 74 28 29 20 61 67 67 72 65 he count() aggre
3350: 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a gate function..*
3360: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f /.static void co
3370: 75 6e 74 53 74 65 70 28 73 71 6c 69 74 65 5f 66 untStep(sqlite_f
3380: 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e unc *context, in
3390: 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 t argc, const ch
33a0: 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 43 6f ar **argv){. Co
33b0: 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d untCtx *p;. p =
33c0: 20 73 71 6c 69 74 65 5f 61 67 67 72 65 67 61 74 sqlite_aggregat
33d0: 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 e_context(contex
33e0: 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a t, sizeof(*p));.
33f0: 20 20 69 66 28 20 28 61 72 67 63 3d 3d 30 20 7c if( (argc==0 |
3400: 7c 20 61 72 67 76 5b 30 5d 29 20 26 26 20 70 20 | argv[0]) && p
3410: 29 7b 0a 20 20 20 20 70 2d 3e 6e 2b 2b 3b 0a 20 ){. p->n++;.
3420: 20 7d 0a 7d 20 20 20 0a 73 74 61 74 69 63 20 76 }.} .static v
3430: 6f 69 64 20 63 6f 75 6e 74 46 69 6e 61 6c 69 7a oid countFinaliz
3440: 65 28 73 71 6c 69 74 65 5f 66 75 6e 63 20 2a 63 e(sqlite_func *c
3450: 6f 6e 74 65 78 74 29 7b 0a 20 20 43 6f 75 6e 74 ontext){. Count
3460: 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 Ctx *p;. p = sq
3470: 6c 69 74 65 5f 61 67 67 72 65 67 61 74 65 5f 63 lite_aggregate_c
3480: 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 ontext(context,
3490: 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 73 sizeof(*p));. s
34a0: 71 6c 69 74 65 5f 73 65 74 5f 72 65 73 75 6c 74 qlite_set_result
34b0: 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 70 20 _int(context, p
34c0: 3f 20 70 2d 3e 6e 20 3a 20 30 29 3b 0a 7d 0a 0a ? p->n : 0);.}..
34d0: 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 /*.** This funct
34e0: 69 6f 6e 20 74 72 61 63 6b 73 20 73 74 61 74 65 ion tracks state
34f0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 information for
3500: 20 74 68 65 20 6d 69 6e 28 29 20 61 6e 64 20 6d the min() and m
3510: 61 78 28 29 0a 2a 2a 20 61 67 67 72 65 67 61 74 ax().** aggregat
3520: 65 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a e functions..*/.
3530: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 4d typedef struct M
3540: 69 6e 4d 61 78 43 74 78 20 4d 69 6e 4d 61 78 43 inMaxCtx MinMaxC
3550: 74 78 3b 0a 73 74 72 75 63 74 20 4d 69 6e 4d 61 tx;.struct MinMa
3560: 78 43 74 78 20 7b 0a 20 20 63 68 61 72 20 2a 7a xCtx {. char *z
3570: 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 ; /* The
3580: 20 62 65 73 74 20 73 6f 20 66 61 72 20 2a 2f 0a best so far */.
3590: 20 20 63 68 61 72 20 7a 42 75 66 5b 32 38 5d 3b char zBuf[28];
35a0: 20 20 20 2f 2a 20 53 70 61 63 65 20 74 68 61 74 /* Space that
35b0: 20 63 61 6e 20 62 65 20 75 73 65 64 20 66 6f 72 can be used for
35c0: 20 73 74 6f 72 61 67 65 20 2a 2f 0a 7d 3b 0a 0a storage */.};..
35d0: 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 74 /*.** Routines t
35e0: 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 6d 69 6e 28 o implement min(
35f0: 29 20 61 6e 64 20 6d 61 78 28 29 20 61 67 67 72 ) and max() aggr
3600: 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 73 2e egate functions.
3610: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
3620: 6d 69 6e 6d 61 78 53 74 65 70 28 73 71 6c 69 74 minmaxStep(sqlit
3630: 65 5f 66 75 6e 63 20 2a 63 6f 6e 74 65 78 74 2c e_func *context,
3640: 20 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 int argc, const
3650: 20 63 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 char **argv){.
3660: 20 4d 69 6e 4d 61 78 43 74 78 20 2a 70 3b 0a 20 MinMaxCtx *p;.
3670: 20 69 6e 74 20 28 2a 78 43 6f 6d 70 61 72 65 29 int (*xCompare)
3680: 28 63 6f 6e 73 74 20 63 68 61 72 2a 2c 20 63 6f (const char*, co
3690: 6e 73 74 20 63 68 61 72 2a 29 3b 0a 20 20 69 6e nst char*);. in
36a0: 74 20 6d 61 73 6b 3b 20 20 20 20 2f 2a 20 30 20 t mask; /* 0
36b0: 66 6f 72 20 6d 69 6e 28 29 20 6f 72 20 30 78 66 for min() or 0xf
36c0: 66 66 66 66 66 66 66 20 66 6f 72 20 6d 61 78 28 fffffff for max(
36d0: 29 20 2a 2f 0a 0a 20 20 61 73 73 65 72 74 28 20 ) */.. assert(
36e0: 61 72 67 63 3d 3d 32 20 29 3b 0a 20 20 69 66 28 argc==2 );. if(
36f0: 20 61 72 67 76 5b 31 5d 5b 30 5d 3d 3d 27 6e 27 argv[1][0]=='n'
3700: 20 29 7b 0a 20 20 20 20 78 43 6f 6d 70 61 72 65 ){. xCompare
3710: 20 3d 20 73 71 6c 69 74 65 43 6f 6d 70 61 72 65 = sqliteCompare
3720: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 78 ;. }else{. x
3730: 43 6f 6d 70 61 72 65 20 3d 20 73 74 72 63 6d 70 Compare = strcmp
3740: 3b 0a 20 20 7d 0a 20 20 6d 61 73 6b 20 3d 20 28 ;. }. mask = (
3750: 69 6e 74 29 73 71 6c 69 74 65 5f 75 73 65 72 5f int)sqlite_user_
3760: 64 61 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a 20 data(context);.
3770: 20 70 20 3d 20 73 71 6c 69 74 65 5f 61 67 67 72 p = sqlite_aggr
3780: 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f egate_context(co
3790: 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 ntext, sizeof(*p
37a0: 29 29 3b 0a 20 20 69 66 28 20 70 3d 3d 30 20 7c ));. if( p==0 |
37b0: 7c 20 61 72 67 63 3c 31 20 7c 7c 20 61 72 67 76 | argc<1 || argv
37c0: 5b 30 5d 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b [0]==0 ) return;
37d0: 0a 20 20 69 66 28 20 70 2d 3e 7a 3d 3d 30 20 7c . if( p->z==0 |
37e0: 7c 20 28 78 43 6f 6d 70 61 72 65 28 61 72 67 76 | (xCompare(argv
37f0: 5b 30 5d 2c 70 2d 3e 7a 29 5e 6d 61 73 6b 29 3c [0],p->z)^mask)<
3800: 30 20 29 7b 0a 20 20 20 20 69 6e 74 20 6c 65 6e 0 ){. int len
3810: 3b 0a 20 20 20 20 69 66 28 20 21 70 2d 3e 7a 42 ;. if( !p->zB
3820: 75 66 5b 30 5d 20 29 7b 0a 20 20 20 20 20 20 73 uf[0] ){. s
3830: 71 6c 69 74 65 46 72 65 65 28 70 2d 3e 7a 29 3b qliteFree(p->z);
3840: 0a 20 20 20 20 7d 0a 20 20 20 20 6c 65 6e 20 3d . }. len =
3850: 20 73 74 72 6c 65 6e 28 61 72 67 76 5b 30 5d 29 strlen(argv[0])
3860: 3b 0a 20 20 20 20 69 66 28 20 6c 65 6e 20 3c 20 ;. if( len <
3870: 73 69 7a 65 6f 66 28 70 2d 3e 7a 42 75 66 29 2d sizeof(p->zBuf)-
3880: 31 20 29 7b 0a 20 20 20 20 20 20 70 2d 3e 7a 20 1 ){. p->z
3890: 3d 20 26 70 2d 3e 7a 42 75 66 5b 31 5d 3b 0a 20 = &p->zBuf[1];.
38a0: 20 20 20 20 20 70 2d 3e 7a 42 75 66 5b 30 5d 20 p->zBuf[0]
38b0: 3d 20 31 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a = 1;. }else{.
38c0: 20 20 20 20 20 20 70 2d 3e 7a 20 3d 20 73 71 6c p->z = sql
38d0: 69 74 65 4d 61 6c 6c 6f 63 28 20 6c 65 6e 2b 31 iteMalloc( len+1
38e0: 20 29 3b 0a 20 20 20 20 20 20 70 2d 3e 7a 42 75 );. p->zBu
38f0: 66 5b 30 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 f[0] = 0;.
3900: 69 66 28 20 70 2d 3e 7a 3d 3d 30 20 29 20 72 65 if( p->z==0 ) re
3910: 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 turn;. }.
3920: 73 74 72 63 70 79 28 70 2d 3e 7a 2c 20 61 72 67 strcpy(p->z, arg
3930: 76 5b 30 5d 29 3b 0a 20 20 7d 0a 7d 0a 73 74 61 v[0]);. }.}.sta
3940: 74 69 63 20 76 6f 69 64 20 6d 69 6e 4d 61 78 46 tic void minMaxF
3950: 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 5f 66 inalize(sqlite_f
3960: 75 6e 63 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 unc *context){.
3970: 20 4d 69 6e 4d 61 78 43 74 78 20 2a 70 3b 0a 20 MinMaxCtx *p;.
3980: 20 70 20 3d 20 73 71 6c 69 74 65 5f 61 67 67 72 p = sqlite_aggr
3990: 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f egate_context(co
39a0: 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 ntext, sizeof(*p
39b0: 29 29 3b 0a 20 20 69 66 28 20 70 20 26 26 20 70 ));. if( p && p
39c0: 2d 3e 7a 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 ->z ){. sqlit
39d0: 65 5f 73 65 74 5f 72 65 73 75 6c 74 5f 73 74 72 e_set_result_str
39e0: 69 6e 67 28 63 6f 6e 74 65 78 74 2c 20 70 2d 3e ing(context, p->
39f0: 7a 2c 20 73 74 72 6c 65 6e 28 70 2d 3e 7a 29 29 z, strlen(p->z))
3a00: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 20 26 26 ;. }. if( p &&
3a10: 20 21 70 2d 3e 7a 42 75 66 5b 30 5d 20 29 7b 0a !p->zBuf[0] ){.
3a20: 20 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 70 sqliteFree(p
3a30: 2d 3e 7a 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a ->z);. }.}../*.
3a40: 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e ** This function
3a50: 20 72 65 67 69 73 74 65 72 65 64 20 61 6c 6c 20 registered all
3a60: 6f 66 20 74 68 65 20 61 62 6f 76 65 20 43 20 66 of the above C f
3a70: 75 6e 63 74 69 6f 6e 73 20 61 73 20 53 51 4c 0a unctions as SQL.
3a80: 2a 2a 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 54 ** functions. T
3a90: 68 69 73 20 73 68 6f 75 6c 64 20 62 65 20 74 68 his should be th
3aa0: 65 20 6f 6e 6c 79 20 72 6f 75 74 69 6e 65 20 69 e only routine i
3ab0: 6e 20 74 68 69 73 20 66 69 6c 65 20 77 69 74 68 n this file with
3ac0: 0a 2a 2a 20 65 78 74 65 72 6e 61 6c 20 6c 69 6e .** external lin
3ad0: 6b 61 67 65 2e 0a 2a 2f 0a 76 6f 69 64 20 73 71 kage..*/.void sq
3ae0: 6c 69 74 65 52 65 67 69 73 74 65 72 42 75 69 6c liteRegisterBuil
3af0: 74 69 6e 46 75 6e 63 74 69 6f 6e 73 28 73 71 6c tinFunctions(sql
3b00: 69 74 65 20 2a 64 62 29 7b 0a 20 20 73 74 61 74 ite *db){. stat
3b10: 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20 20 ic struct {.
3b20: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 char *zName;.
3b30: 20 20 20 73 69 67 6e 65 64 20 63 68 61 72 20 6e signed char n
3b40: 41 72 67 3b 0a 20 20 20 20 20 73 69 67 6e 65 64 Arg;. signed
3b50: 20 63 68 61 72 20 64 61 74 61 54 79 70 65 3b 0a char dataType;.
3b60: 20 20 20 20 20 75 38 20 61 72 67 54 79 70 65 3b u8 argType;
3b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
3b80: 2a 20 30 3a 20 6e 6f 6e 65 2e 20 20 31 3a 20 64 * 0: none. 1: d
3b90: 62 20 20 32 3a 20 28 2d 31 29 20 2a 2f 0a 20 20 b 2: (-1) */.
3ba0: 20 20 20 76 6f 69 64 20 28 2a 78 46 75 6e 63 29 void (*xFunc)
3bb0: 28 73 71 6c 69 74 65 5f 66 75 6e 63 2a 2c 69 6e (sqlite_func*,in
3bc0: 74 2c 63 6f 6e 73 74 20 63 68 61 72 2a 2a 29 3b t,const char**);
3bd0: 0a 20 20 7d 20 61 46 75 6e 63 73 5b 5d 20 3d 20 . } aFuncs[] =
3be0: 7b 0a 20 20 20 20 7b 20 22 6d 69 6e 22 2c 20 20 {. { "min",
3bf0: 20 20 20 20 20 2d 31 2c 20 53 51 4c 49 54 45 5f -1, SQLITE_
3c00: 41 52 47 53 2c 20 20 20 20 30 2c 20 6d 69 6e 6d ARGS, 0, minm
3c10: 61 78 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 axFunc },. {
3c20: 22 6d 69 6e 22 2c 20 20 20 20 20 20 20 20 30 2c "min", 0,
3c30: 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 0,
3c40: 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 7d 0, 0 }
3c50: 2c 0a 20 20 20 20 7b 20 22 6d 61 78 22 2c 20 20 ,. { "max",
3c60: 20 20 20 20 20 2d 31 2c 20 53 51 4c 49 54 45 5f -1, SQLITE_
3c70: 41 52 47 53 2c 20 20 20 20 32 2c 20 6d 69 6e 6d ARGS, 2, minm
3c80: 61 78 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 axFunc },. {
3c90: 22 6d 61 78 22 2c 20 20 20 20 20 20 20 20 30 2c "max", 0,
3ca0: 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 0,
3cb0: 20 32 2c 20 30 20 20 20 20 20 20 20 20 20 20 7d 2, 0 }
3cc0: 2c 0a 20 20 20 20 7b 20 22 74 79 70 65 6f 66 22 ,. { "typeof"
3cd0: 2c 20 20 20 20 20 31 2c 20 53 51 4c 49 54 45 5f , 1, SQLITE_
3ce0: 54 45 58 54 2c 20 20 20 20 30 2c 20 74 79 70 65 TEXT, 0, type
3cf0: 6f 66 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 ofFunc },. {
3d00: 22 6c 65 6e 67 74 68 22 2c 20 20 20 20 20 31 2c "length", 1,
3d10: 20 53 51 4c 49 54 45 5f 4e 55 4d 45 52 49 43 2c SQLITE_NUMERIC,
3d20: 20 30 2c 20 6c 65 6e 67 74 68 46 75 6e 63 20 7d 0, lengthFunc }
3d30: 2c 0a 20 20 20 20 7b 20 22 73 75 62 73 74 72 22 ,. { "substr"
3d40: 2c 20 20 20 20 20 33 2c 20 53 51 4c 49 54 45 5f , 3, SQLITE_
3d50: 54 45 58 54 2c 20 20 20 20 30 2c 20 73 75 62 73 TEXT, 0, subs
3d60: 74 72 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 trFunc },. {
3d70: 22 61 62 73 22 2c 20 20 20 20 20 20 20 20 31 2c "abs", 1,
3d80: 20 53 51 4c 49 54 45 5f 4e 55 4d 45 52 49 43 2c SQLITE_NUMERIC,
3d90: 20 30 2c 20 61 62 73 46 75 6e 63 20 20 20 20 7d 0, absFunc }
3da0: 2c 0a 20 20 20 20 7b 20 22 72 6f 75 6e 64 22 2c ,. { "round",
3db0: 20 20 20 20 20 20 31 2c 20 53 51 4c 49 54 45 5f 1, SQLITE_
3dc0: 4e 55 4d 45 52 49 43 2c 20 30 2c 20 72 6f 75 6e NUMERIC, 0, roun
3dd0: 64 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 dFunc },. {
3de0: 22 72 6f 75 6e 64 22 2c 20 20 20 20 20 20 32 2c "round", 2,
3df0: 20 53 51 4c 49 54 45 5f 4e 55 4d 45 52 49 43 2c SQLITE_NUMERIC,
3e00: 20 30 2c 20 72 6f 75 6e 64 46 75 6e 63 20 20 7d 0, roundFunc }
3e10: 2c 0a 20 20 20 20 7b 20 22 75 70 70 65 72 22 2c ,. { "upper",
3e20: 20 20 20 20 20 20 31 2c 20 53 51 4c 49 54 45 5f 1, SQLITE_
3e30: 54 45 58 54 2c 20 20 20 20 30 2c 20 75 70 70 65 TEXT, 0, uppe
3e40: 72 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 rFunc },. {
3e50: 22 6c 6f 77 65 72 22 2c 20 20 20 20 20 20 31 2c "lower", 1,
3e60: 20 53 51 4c 49 54 45 5f 54 45 58 54 2c 20 20 20 SQLITE_TEXT,
3e70: 20 30 2c 20 6c 6f 77 65 72 46 75 6e 63 20 20 7d 0, lowerFunc }
3e80: 2c 0a 20 20 20 20 7b 20 22 63 6f 61 6c 65 73 63 ,. { "coalesc
3e90: 65 22 2c 20 20 2d 31 2c 20 53 51 4c 49 54 45 5f e", -1, SQLITE_
3ea0: 41 52 47 53 2c 20 20 20 20 30 2c 20 69 66 6e 75 ARGS, 0, ifnu
3eb0: 6c 6c 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 llFunc },. {
3ec0: 22 63 6f 61 6c 65 73 63 65 22 2c 20 20 20 30 2c "coalesce", 0,
3ed0: 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 0,
3ee0: 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 7d 0, 0 }
3ef0: 2c 0a 20 20 20 20 7b 20 22 63 6f 61 6c 65 73 63 ,. { "coalesc
3f00: 65 22 2c 20 20 20 31 2c 20 30 2c 20 20 20 20 20 e", 1, 0,
3f10: 20 20 20 20 20 20 20 20 20 30 2c 20 30 20 20 20 0, 0
3f20: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
3f30: 22 69 66 6e 75 6c 6c 22 2c 20 20 20 20 20 32 2c "ifnull", 2,
3f40: 20 53 51 4c 49 54 45 5f 41 52 47 53 2c 20 20 20 SQLITE_ARGS,
3f50: 20 30 2c 20 69 66 6e 75 6c 6c 46 75 6e 63 20 7d 0, ifnullFunc }
3f60: 2c 0a 20 20 20 20 7b 20 22 72 61 6e 64 6f 6d 22 ,. { "random"
3f70: 2c 20 20 20 20 2d 31 2c 20 53 51 4c 49 54 45 5f , -1, SQLITE_
3f80: 4e 55 4d 45 52 49 43 2c 20 30 2c 20 72 61 6e 64 NUMERIC, 0, rand
3f90: 6f 6d 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 omFunc },. {
3fa0: 22 6c 69 6b 65 22 2c 20 20 20 20 20 20 20 32 2c "like", 2,
3fb0: 20 53 51 4c 49 54 45 5f 4e 55 4d 45 52 49 43 2c SQLITE_NUMERIC,
3fc0: 20 30 2c 20 6c 69 6b 65 46 75 6e 63 20 20 20 7d 0, likeFunc }
3fd0: 2c 0a 20 20 20 20 7b 20 22 67 6c 6f 62 22 2c 20 ,. { "glob",
3fe0: 20 20 20 20 20 20 32 2c 20 53 51 4c 49 54 45 5f 2, SQLITE_
3ff0: 4e 55 4d 45 52 49 43 2c 20 30 2c 20 67 6c 6f 62 NUMERIC, 0, glob
4000: 46 75 6e 63 20 20 20 7d 2c 0a 20 20 20 20 7b 20 Func },. {
4010: 22 6e 75 6c 6c 69 66 22 2c 20 20 20 20 20 32 2c "nullif", 2,
4020: 20 53 51 4c 49 54 45 5f 41 52 47 53 2c 20 20 20 SQLITE_ARGS,
4030: 20 30 2c 20 6e 75 6c 6c 69 66 46 75 6e 63 20 7d 0, nullifFunc }
4040: 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65 5f ,. { "sqlite_
4050: 76 65 72 73 69 6f 6e 22 2c 30 2c 53 51 4c 49 54 version",0,SQLIT
4060: 45 5f 54 45 58 54 2c 20 20 30 2c 20 76 65 72 73 E_TEXT, 0, vers
4070: 69 6f 6e 46 75 6e 63 7d 2c 0a 20 20 20 20 7b 20 ionFunc},. {
4080: 22 71 75 6f 74 65 22 2c 20 20 20 20 20 20 31 2c "quote", 1,
4090: 20 53 51 4c 49 54 45 5f 41 52 47 53 2c 20 20 20 SQLITE_ARGS,
40a0: 20 30 2c 20 71 75 6f 74 65 46 75 6e 63 20 20 7d 0, quoteFunc }
40b0: 2c 0a 20 20 20 20 7b 20 22 6c 61 73 74 5f 69 6e ,. { "last_in
40c0: 73 65 72 74 5f 72 6f 77 69 64 22 2c 20 30 2c 20 sert_rowid", 0,
40d0: 53 51 4c 49 54 45 5f 4e 55 4d 45 52 49 43 2c 20 SQLITE_NUMERIC,
40e0: 31 2c 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 1, last_insert_r
40f0: 6f 77 69 64 20 7d 2c 0a 20 20 20 20 7b 20 22 63 owid },. { "c
4100: 68 61 6e 67 65 5f 63 6f 75 6e 74 22 2c 20 20 20 hange_count",
4110: 20 20 20 30 2c 20 53 51 4c 49 54 45 5f 4e 55 4d 0, SQLITE_NUM
4120: 45 52 49 43 2c 20 31 2c 20 63 68 61 6e 67 65 5f ERIC, 1, change_
4130: 63 6f 75 6e 74 20 20 20 20 20 20 7d 2c 0a 20 20 count },.
4140: 20 20 7b 20 22 6c 61 73 74 5f 73 74 61 74 65 6d { "last_statem
4150: 65 6e 74 5f 63 68 61 6e 67 65 5f 63 6f 75 6e 74 ent_change_count
4160: 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ",.
4170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2c 0,
4180: 20 53 51 4c 49 54 45 5f 4e 55 4d 45 52 49 43 2c SQLITE_NUMERIC,
4190: 20 31 2c 20 6c 61 73 74 5f 73 74 61 74 65 6d 65 1, last_stateme
41a0: 6e 74 5f 63 68 61 6e 67 65 5f 63 6f 75 6e 74 20 nt_change_count
41b0: 7d 2c 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 },.#ifdef SQLITE
41c0: 5f 53 4f 55 4e 44 45 58 0a 20 20 20 20 7b 20 22 _SOUNDEX. { "
41d0: 73 6f 75 6e 64 65 78 22 2c 20 20 20 20 31 2c 20 soundex", 1,
41e0: 53 51 4c 49 54 45 5f 54 45 58 54 2c 20 20 20 20 SQLITE_TEXT,
41f0: 30 2c 20 73 6f 75 6e 64 65 78 46 75 6e 63 7d 2c 0, soundexFunc},
4200: 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 53 .#endif.#ifdef S
4210: 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 20 20 7b QLITE_TEST. {
4220: 20 22 72 61 6e 64 73 74 72 22 2c 20 20 20 20 32 "randstr", 2
4230: 2c 20 53 51 4c 49 54 45 5f 54 45 58 54 2c 20 20 , SQLITE_TEXT,
4240: 20 20 30 2c 20 72 61 6e 64 53 74 72 20 20 20 20 0, randStr
4250: 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 7d 3b 0a 20 },.#endif. };.
4260: 20 73 74 61 74 69 63 20 73 74 72 75 63 74 20 7b static struct {
4270: 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 . char *zName
4280: 3b 0a 20 20 20 20 73 69 67 6e 65 64 20 63 68 61 ;. signed cha
4290: 72 20 6e 41 72 67 3b 0a 20 20 20 20 73 69 67 6e r nArg;. sign
42a0: 65 64 20 63 68 61 72 20 64 61 74 61 54 79 70 65 ed char dataType
42b0: 3b 0a 20 20 20 20 75 38 20 61 72 67 54 79 70 65 ;. u8 argType
42c0: 3b 0a 20 20 20 20 76 6f 69 64 20 28 2a 78 53 74 ;. void (*xSt
42d0: 65 70 29 28 73 71 6c 69 74 65 5f 66 75 6e 63 2a ep)(sqlite_func*
42e0: 2c 69 6e 74 2c 63 6f 6e 73 74 20 63 68 61 72 2a ,int,const char*
42f0: 2a 29 3b 0a 20 20 20 20 76 6f 69 64 20 28 2a 78 *);. void (*x
4300: 46 69 6e 61 6c 69 7a 65 29 28 73 71 6c 69 74 65 Finalize)(sqlite
4310: 5f 66 75 6e 63 2a 29 3b 0a 20 20 7d 20 61 41 67 _func*);. } aAg
4320: 67 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 22 gs[] = {. { "
4330: 6d 69 6e 22 2c 20 20 20 20 31 2c 20 30 2c 20 20 min", 1, 0,
4340: 20 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 6d 0, m
4350: 69 6e 6d 61 78 53 74 65 70 2c 20 20 20 6d 69 6e inmaxStep, min
4360: 4d 61 78 46 69 6e 61 6c 69 7a 65 20 7d 2c 0a 20 MaxFinalize },.
4370: 20 20 20 7b 20 22 6d 61 78 22 2c 20 20 20 20 31 { "max", 1
4380: 2c 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 , 0,
4390: 20 20 32 2c 20 6d 69 6e 6d 61 78 53 74 65 70 2c 2, minmaxStep,
43a0: 20 20 20 6d 69 6e 4d 61 78 46 69 6e 61 6c 69 7a minMaxFinaliz
43b0: 65 20 7d 2c 0a 20 20 20 20 7b 20 22 73 75 6d 22 e },. { "sum"
43c0: 2c 20 20 20 20 31 2c 20 53 51 4c 49 54 45 5f 4e , 1, SQLITE_N
43d0: 55 4d 45 52 49 43 2c 20 30 2c 20 73 75 6d 53 74 UMERIC, 0, sumSt
43e0: 65 70 2c 20 20 20 20 20 20 73 75 6d 46 69 6e 61 ep, sumFina
43f0: 6c 69 7a 65 20 20 20 20 7d 2c 0a 20 20 20 20 7b lize },. {
4400: 20 22 61 76 67 22 2c 20 20 20 20 31 2c 20 53 51 "avg", 1, SQ
4410: 4c 49 54 45 5f 4e 55 4d 45 52 49 43 2c 20 30 2c LITE_NUMERIC, 0,
4420: 20 73 75 6d 53 74 65 70 2c 20 20 20 20 20 20 61 sumStep, a
4430: 76 67 46 69 6e 61 6c 69 7a 65 20 20 20 20 7d 2c vgFinalize },
4440: 0a 20 20 20 20 7b 20 22 63 6f 75 6e 74 22 2c 20 . { "count",
4450: 20 30 2c 20 53 51 4c 49 54 45 5f 4e 55 4d 45 52 0, SQLITE_NUMER
4460: 49 43 2c 20 30 2c 20 63 6f 75 6e 74 53 74 65 70 IC, 0, countStep
4470: 2c 20 20 20 20 63 6f 75 6e 74 46 69 6e 61 6c 69 , countFinali
4480: 7a 65 20 20 7d 2c 0a 20 20 20 20 7b 20 22 63 6f ze },. { "co
4490: 75 6e 74 22 2c 20 20 31 2c 20 53 51 4c 49 54 45 unt", 1, SQLITE
44a0: 5f 4e 55 4d 45 52 49 43 2c 20 30 2c 20 63 6f 75 _NUMERIC, 0, cou
44b0: 6e 74 53 74 65 70 2c 20 20 20 20 63 6f 75 6e 74 ntStep, count
44c0: 46 69 6e 61 6c 69 7a 65 20 20 7d 2c 0a 23 69 66 Finalize },.#if
44d0: 20 30 0a 20 20 20 20 7b 20 22 73 74 64 64 65 76 0. { "stddev
44e0: 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 4e 55 4d ", 1, SQLITE_NUM
44f0: 45 52 49 43 2c 20 30 2c 20 73 74 64 44 65 76 53 ERIC, 0, stdDevS
4500: 74 65 70 2c 20 20 20 73 74 64 44 65 76 46 69 6e tep, stdDevFin
4510: 61 6c 69 7a 65 20 7d 2c 0a 23 65 6e 64 69 66 0a alize },.#endif.
4520: 20 20 7d 3b 0a 20 20 73 74 61 74 69 63 20 63 6f };. static co
4530: 6e 73 74 20 63 68 61 72 20 2a 61 7a 54 79 70 65 nst char *azType
4540: 46 75 6e 63 73 5b 5d 20 3d 20 7b 20 22 6d 69 6e Funcs[] = { "min
4550: 22 2c 20 22 6d 61 78 22 2c 20 22 74 79 70 65 6f ", "max", "typeo
4560: 66 22 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a f" };. int i;..
4570: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a for(i=0; i<siz
4580: 65 6f 66 28 61 46 75 6e 63 73 29 2f 73 69 7a 65 eof(aFuncs)/size
4590: 6f 66 28 61 46 75 6e 63 73 5b 30 5d 29 3b 20 69 of(aFuncs[0]); i
45a0: 2b 2b 29 7b 0a 20 20 20 20 76 6f 69 64 20 2a 70 ++){. void *p
45b0: 41 72 67 20 3d 20 61 46 75 6e 63 73 5b 69 5d 2e Arg = aFuncs[i].
45c0: 61 72 67 54 79 70 65 3d 3d 32 20 3f 20 28 76 6f argType==2 ? (vo
45d0: 69 64 2a 29 28 2d 31 29 20 3a 20 64 62 3b 0a 20 id*)(-1) : db;.
45e0: 20 20 20 73 71 6c 69 74 65 5f 63 72 65 61 74 65 sqlite_create
45f0: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 61 46 _function(db, aF
4600: 75 6e 63 73 5b 69 5d 2e 7a 4e 61 6d 65 2c 0a 20 uncs[i].zName,.
4610: 20 20 20 20 20 20 20 20 20 20 61 46 75 6e 63 73 aFuncs
4620: 5b 69 5d 2e 6e 41 72 67 2c 20 61 46 75 6e 63 73 [i].nArg, aFuncs
4630: 5b 69 5d 2e 78 46 75 6e 63 2c 20 70 41 72 67 29 [i].xFunc, pArg)
4640: 3b 0a 20 20 20 20 69 66 28 20 61 46 75 6e 63 73 ;. if( aFuncs
4650: 5b 69 5d 2e 78 46 75 6e 63 20 29 7b 0a 20 20 20 [i].xFunc ){.
4660: 20 20 20 73 71 6c 69 74 65 5f 66 75 6e 63 74 69 sqlite_functi
4670: 6f 6e 5f 74 79 70 65 28 64 62 2c 20 61 46 75 6e on_type(db, aFun
4680: 63 73 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 46 75 cs[i].zName, aFu
4690: 6e 63 73 5b 69 5d 2e 64 61 74 61 54 79 70 65 29 ncs[i].dataType)
46a0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 66 6f ;. }. }. fo
46b0: 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 r(i=0; i<sizeof(
46c0: 61 41 67 67 73 29 2f 73 69 7a 65 6f 66 28 61 41 aAggs)/sizeof(aA
46d0: 67 67 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 ggs[0]); i++){.
46e0: 20 20 20 76 6f 69 64 20 2a 70 41 72 67 20 3d 20 void *pArg =
46f0: 61 41 67 67 73 5b 69 5d 2e 61 72 67 54 79 70 65 aAggs[i].argType
4700: 3d 3d 32 20 3f 20 28 76 6f 69 64 2a 29 28 2d 31 ==2 ? (void*)(-1
4710: 29 20 3a 20 64 62 3b 0a 20 20 20 20 73 71 6c 69 ) : db;. sqli
4720: 74 65 5f 63 72 65 61 74 65 5f 61 67 67 72 65 67 te_create_aggreg
4730: 61 74 65 28 64 62 2c 20 61 41 67 67 73 5b 69 5d ate(db, aAggs[i]
4740: 2e 7a 4e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 .zName,.
4750: 20 20 20 61 41 67 67 73 5b 69 5d 2e 6e 41 72 67 aAggs[i].nArg
4760: 2c 20 61 41 67 67 73 5b 69 5d 2e 78 53 74 65 70 , aAggs[i].xStep
4770: 2c 20 61 41 67 67 73 5b 69 5d 2e 78 46 69 6e 61 , aAggs[i].xFina
4780: 6c 69 7a 65 2c 20 70 41 72 67 29 3b 0a 20 20 20 lize, pArg);.
4790: 20 73 71 6c 69 74 65 5f 66 75 6e 63 74 69 6f 6e sqlite_function
47a0: 5f 74 79 70 65 28 64 62 2c 20 61 41 67 67 73 5b _type(db, aAggs[
47b0: 69 5d 2e 7a 4e 61 6d 65 2c 20 61 41 67 67 73 5b i].zName, aAggs[
47c0: 69 5d 2e 64 61 74 61 54 79 70 65 29 3b 0a 20 20 i].dataType);.
47d0: 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 }. for(i=0; i<s
47e0: 69 7a 65 6f 66 28 61 7a 54 79 70 65 46 75 6e 63 izeof(azTypeFunc
47f0: 73 29 2f 73 69 7a 65 6f 66 28 61 7a 54 79 70 65 s)/sizeof(azType
4800: 46 75 6e 63 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b Funcs[0]); i++){
4810: 0a 20 20 20 20 69 6e 74 20 6e 20 3d 20 73 74 72 . int n = str
4820: 6c 65 6e 28 61 7a 54 79 70 65 46 75 6e 63 73 5b len(azTypeFuncs[
4830: 69 5d 29 3b 0a 20 20 20 20 46 75 6e 63 44 65 66 i]);. FuncDef
4840: 20 2a 70 20 3d 20 73 71 6c 69 74 65 48 61 73 68 *p = sqliteHash
4850: 46 69 6e 64 28 26 64 62 2d 3e 61 46 75 6e 63 2c Find(&db->aFunc,
4860: 20 61 7a 54 79 70 65 46 75 6e 63 73 5b 69 5d 2c azTypeFuncs[i],
4870: 20 6e 29 3b 0a 20 20 20 20 77 68 69 6c 65 28 20 n);. while(
4880: 70 20 29 7b 0a 20 20 20 20 20 20 70 2d 3e 69 6e p ){. p->in
4890: 63 6c 75 64 65 54 79 70 65 73 20 3d 20 31 3b 0a cludeTypes = 1;.
48a0: 20 20 20 20 20 20 70 20 3d 20 70 2d 3e 70 4e 65 p = p->pNe
48b0: 78 74 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 xt;. }. }.
48c0: 73 71 6c 69 74 65 52 65 67 69 73 74 65 72 44 61 sqliteRegisterDa
48d0: 74 65 54 69 6d 65 46 75 6e 63 74 69 6f 6e 73 28 teTimeFunctions(
48e0: 64 62 29 3b 0a 7d 0a db);.}.