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 36 31 20 32 30 30 34 2f 30 35 2f 32 37 20 1.61 2004/05/27
02a0: 31 30 3a 33 30 3a 35 33 20 64 61 6e 69 65 6c 6b 10:30:53 danielk
02b0: 31 39 37 37 20 45 78 70 20 24 0a 2a 2f 0a 23 69 1977 Exp $.*/.#i
02c0: 6e 63 6c 75 64 65 20 3c 63 74 79 70 65 2e 68 3e nclude <ctype.h>
02d0: 0a 23 69 6e 63 6c 75 64 65 20 3c 6d 61 74 68 2e .#include <math.
02e0: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 h>.#include <std
02f0: 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 lib.h>.#include
0300: 3c 61 73 73 65 72 74 2e 68 3e 0a 23 69 6e 63 6c <assert.h>.#incl
0310: 75 64 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 ude "sqliteInt.h
0320: 22 0a 23 69 6e 63 6c 75 64 65 20 22 76 64 62 65 ".#include "vdbe
0330: 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 Int.h".#include
0340: 22 6f 73 2e 68 22 0a 0a 2f 2a 0a 2a 2a 20 49 6d "os.h"../*.** Im
0350: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 plementation of
0360: 74 68 65 20 6e 6f 6e 2d 61 67 67 72 65 67 61 74 the non-aggregat
0370: 65 20 6d 69 6e 28 29 20 61 6e 64 20 6d 61 78 28 e min() and max(
0380: 29 20 66 75 6e 63 74 69 6f 6e 73 0a 2a 2f 0a 73 ) functions.*/.s
0390: 74 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 6d 61 tatic void minma
03a0: 78 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 xFunc(. sqlite3
03b0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
03c0: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 t,. int argc,.
03d0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
03e0: 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 *argv.){. int i
03f0: 3b 0a 20 20 69 6e 74 20 6d 61 73 6b 3b 20 20 20 ;. int mask;
0400: 20 2f 2a 20 30 20 66 6f 72 20 6d 69 6e 28 29 20 /* 0 for min()
0410: 6f 72 20 30 78 66 66 66 66 66 66 66 66 20 66 6f or 0xffffffff fo
0420: 72 20 6d 61 78 28 29 20 2a 2f 0a 20 20 69 6e 74 r max() */. int
0430: 20 69 42 65 73 74 3b 0a 0a 20 20 69 66 28 20 61 iBest;.. if( a
0440: 72 67 63 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b rgc==0 ) return;
0450: 0a 20 20 6d 61 73 6b 20 3d 20 28 69 6e 74 29 73 . mask = (int)s
0460: 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 qlite3_user_data
0470: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 61 73 73 (context);. ass
0480: 65 72 74 28 20 6d 61 73 6b 3d 3d 2d 31 20 7c 7c ert( mask==-1 ||
0490: 20 6d 61 73 6b 3d 3d 30 20 29 3b 0a 20 20 69 42 mask==0 );. iB
04a0: 65 73 74 20 3d 20 30 3b 0a 20 20 69 66 28 20 73 est = 0;. if( s
04b0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 qlite3_value_typ
04c0: 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 e(argv[0])==SQLI
04d0: 54 45 33 5f 4e 55 4c 4c 20 29 20 72 65 74 75 72 TE3_NULL ) retur
04e0: 6e 3b 0a 20 20 66 6f 72 28 69 3d 31 3b 20 69 3c n;. for(i=1; i<
04f0: 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 argc; i++){.
0500: 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 if( sqlite3_valu
0510: 65 5f 74 79 70 65 28 61 72 67 76 5b 69 5d 29 3d e_type(argv[i])=
0520: 3d 53 51 4c 49 54 45 33 5f 4e 55 4c 4c 20 29 20 =SQLITE3_NULL )
0530: 72 65 74 75 72 6e 3b 0a 20 20 20 20 69 66 28 20 return;. if(
0540: 28 73 71 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 (sqlite3MemCompa
0550: 72 65 28 61 72 67 76 5b 69 42 65 73 74 5d 2c 20 re(argv[iBest],
0560: 61 72 67 76 5b 69 5d 2c 20 30 29 5e 6d 61 73 6b argv[i], 0)^mask
0570: 29 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 42 )>=0 ){. iB
0580: 65 73 74 20 3d 20 69 3b 0a 20 20 20 20 7d 0a 20 est = i;. }.
0590: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 }. sqlite3_res
05a0: 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 ult_value(contex
05b0: 74 2c 20 61 72 67 76 5b 69 42 65 73 74 5d 29 3b t, argv[iBest]);
05c0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e .}../*.** Return
05d0: 20 74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 the type of the
05e0: 20 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 argument..*/.st
05f0: 61 74 69 63 20 76 6f 69 64 20 74 79 70 65 6f 66 atic void typeof
0600: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f Func(. sqlite3_
0610: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
0620: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
0630: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
0640: 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 argv.){. const
0650: 63 68 61 72 20 2a 7a 20 3d 20 30 3b 0a 20 20 73 char *z = 0;. s
0660: 77 69 74 63 68 28 20 73 71 6c 69 74 65 33 5f 76 witch( sqlite3_v
0670: 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 alue_type(argv[0
0680: 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 ]) ){. case S
0690: 51 4c 49 54 45 33 5f 4e 55 4c 4c 3a 20 20 20 20 QLITE3_NULL:
06a0: 7a 20 3d 20 22 6e 75 6c 6c 22 3b 20 20 20 20 62 z = "null"; b
06b0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
06c0: 51 4c 49 54 45 33 5f 49 4e 54 45 47 45 52 3a 20 QLITE3_INTEGER:
06d0: 7a 20 3d 20 22 69 6e 74 65 67 65 72 22 3b 20 62 z = "integer"; b
06e0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
06f0: 51 4c 49 54 45 33 5f 54 45 58 54 3a 20 20 20 20 QLITE3_TEXT:
0700: 7a 20 3d 20 22 74 65 78 74 22 3b 20 20 20 20 62 z = "text"; b
0710: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
0720: 51 4c 49 54 45 33 5f 46 4c 4f 41 54 3a 20 20 20 QLITE3_FLOAT:
0730: 7a 20 3d 20 22 72 65 61 6c 22 3b 20 20 20 20 62 z = "real"; b
0740: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 reak;. case S
0750: 51 4c 49 54 45 33 5f 42 4c 4f 42 3a 20 20 20 20 QLITE3_BLOB:
0760: 7a 20 3d 20 22 62 6c 6f 62 22 3b 20 20 20 20 62 z = "blob"; b
0770: 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 reak;. }. sqli
0780: 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 te3_result_text(
0790: 63 6f 6e 74 65 78 74 2c 20 7a 2c 20 2d 31 2c 20 context, z, -1,
07a0: 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 0);.}../*.** Imp
07b0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
07c0: 68 65 20 6c 65 6e 67 74 68 28 29 20 66 75 6e 63 he length() func
07d0: 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 tion.*/.static v
07e0: 6f 69 64 20 6c 65 6e 67 74 68 46 75 6e 63 28 0a oid lengthFunc(.
07f0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
0800: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e t *context,. in
0810: 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 t argc,. sqlite
0820: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 3_value **argv.)
0830: 7b 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 0a 20 20 {. int len;..
0840: 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 assert( argc==1
0850: 29 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71 6c );. switch( sql
0860: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 ite3_value_type(
0870: 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 argv[0]) ){.
0880: 63 61 73 65 20 53 51 4c 49 54 45 33 5f 42 4c 4f case SQLITE3_BLO
0890: 42 3a 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 B:. case SQLI
08a0: 54 45 33 5f 49 4e 54 45 47 45 52 3a 0a 20 20 20 TE3_INTEGER:.
08b0: 20 63 61 73 65 20 53 51 4c 49 54 45 33 5f 46 4c case SQLITE3_FL
08c0: 4f 41 54 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c OAT: {. sql
08d0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 ite3_result_int(
08e0: 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 context, sqlite3
08f0: 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 _value_bytes(arg
0900: 76 5b 30 5d 29 29 3b 0a 20 20 20 20 20 20 62 72 v[0]));. br
0910: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 eak;. }. c
0920: 61 73 65 20 53 51 4c 49 54 45 33 5f 54 45 58 54 ase SQLITE3_TEXT
0930: 3a 20 7b 0a 20 20 20 20 20 20 63 6f 6e 73 74 20 : {. const
0940: 63 68 61 72 20 2a 7a 20 3d 20 73 71 6c 69 74 65 char *z = sqlite
0950: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
0960: 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 66 6f 72 v[0]);. for
0970: 28 6c 65 6e 3d 30 3b 20 2a 7a 3b 20 7a 2b 2b 29 (len=0; *z; z++)
0980: 7b 20 69 66 28 20 28 30 78 63 30 26 2a 7a 29 21 { if( (0xc0&*z)!
0990: 3d 30 78 38 30 20 29 20 6c 65 6e 2b 2b 3b 20 7d =0x80 ) len++; }
09a0: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 . sqlite3_r
09b0: 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 esult_int(contex
09c0: 74 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 20 20 62 t, len);. b
09d0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 reak;. }.
09e0: 64 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20 20 20 default: {.
09f0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
0a00: 6e 75 6c 6c 28 63 6f 6e 74 65 78 74 29 3b 0a 20 null(context);.
0a10: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
0a20: 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 }. }.}../*.** I
0a30: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
0a40: 20 74 68 65 20 61 62 73 28 29 20 66 75 6e 63 74 the abs() funct
0a50: 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ion.*/.static vo
0a60: 69 64 20 61 62 73 46 75 6e 63 28 73 71 6c 69 74 id absFunc(sqlit
0a70: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
0a80: 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 ext, int argc, s
0a90: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
0aa0: 72 67 76 29 7b 0a 20 20 61 73 73 65 72 74 28 20 rgv){. assert(
0ab0: 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 73 77 69 argc==1 );. swi
0ac0: 74 63 68 28 20 73 71 6c 69 74 65 33 5f 76 61 6c tch( sqlite3_val
0ad0: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 ue_type(argv[0])
0ae0: 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c ){. case SQL
0af0: 49 54 45 33 5f 49 4e 54 45 47 45 52 3a 20 7b 0a ITE3_INTEGER: {.
0b00: 20 20 20 20 20 20 69 36 34 20 69 56 61 6c 20 3d i64 iVal =
0b10: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 sqlite3_value_i
0b20: 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 3b 0a 20 nt64(argv[0]);.
0b30: 20 20 20 20 20 69 66 28 20 69 56 61 6c 3c 30 20 if( iVal<0
0b40: 29 20 69 56 61 6c 20 3d 20 69 56 61 6c 20 2a 20 ) iVal = iVal *
0b50: 2d 31 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 -1;. sqlite
0b60: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 3_result_int64(c
0b70: 6f 6e 74 65 78 74 2c 20 69 56 61 6c 29 3b 0a 20 ontext, iVal);.
0b80: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
0b90: 7d 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 }. case SQLIT
0ba0: 45 33 5f 4e 55 4c 4c 3a 20 7b 0a 20 20 20 20 20 E3_NULL: {.
0bb0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
0bc0: 6e 75 6c 6c 28 63 6f 6e 74 65 78 74 29 3b 0a 20 null(context);.
0bd0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
0be0: 7d 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 20 7b }. default: {
0bf0: 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 72 56 . double rV
0c00: 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c al = sqlite3_val
0c10: 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b 30 ue_double(argv[0
0c20: 5d 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72 56 ]);. if( rV
0c30: 61 6c 3c 30 20 29 20 72 56 61 6c 20 3d 20 72 56 al<0 ) rVal = rV
0c40: 61 6c 20 2a 20 2d 31 2e 30 3b 0a 20 20 20 20 20 al * -1.0;.
0c50: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
0c60: 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 double(context,
0c70: 72 56 61 6c 29 3b 0a 20 20 20 20 20 20 62 72 65 rVal);. bre
0c80: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a ak;. }. }.}.
0c90: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
0ca0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 75 62 ation of the sub
0cb0: 73 74 72 28 29 20 66 75 6e 63 74 69 6f 6e 0a 2a str() function.*
0cc0: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73 75 /.static void su
0cd0: 62 73 74 72 46 75 6e 63 28 0a 20 20 73 71 6c 69 bstrFunc(. sqli
0ce0: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
0cf0: 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 text,. int argc
0d00: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ,. sqlite3_valu
0d10: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f e **argv.){. co
0d20: 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a 20 20 63 nst char *z;. c
0d30: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 32 3b 0a 20 onst char *z2;.
0d40: 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 70 31 int i;. int p1
0d50: 2c 20 70 32 2c 20 6c 65 6e 3b 0a 0a 20 20 61 73 , p2, len;.. as
0d60: 73 65 72 74 28 20 61 72 67 63 3d 3d 33 20 29 3b sert( argc==3 );
0d70: 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 . z = sqlite3_v
0d80: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 alue_text(argv[0
0d90: 5d 29 3b 0a 20 20 69 66 28 20 7a 3d 3d 30 20 29 ]);. if( z==0 )
0da0: 20 72 65 74 75 72 6e 3b 0a 20 20 70 31 20 3d 20 return;. p1 =
0db0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e sqlite3_value_in
0dc0: 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 70 32 t(argv[1]);. p2
0dd0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
0de0: 5f 69 6e 74 28 61 72 67 76 5b 32 5d 29 3b 0a 20 _int(argv[2]);.
0df0: 20 66 6f 72 28 6c 65 6e 3d 30 2c 20 7a 32 3d 7a for(len=0, z2=z
0e00: 3b 20 2a 7a 32 3b 20 7a 32 2b 2b 29 7b 20 69 66 ; *z2; z2++){ if
0e10: 28 20 28 30 78 63 30 26 2a 7a 32 29 21 3d 30 78 ( (0xc0&*z2)!=0x
0e20: 38 30 20 29 20 6c 65 6e 2b 2b 3b 20 7d 0a 20 20 80 ) len++; }.
0e30: 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 20 20 if( p1<0 ){.
0e40: 70 31 20 2b 3d 20 6c 65 6e 3b 0a 20 20 20 20 69 p1 += len;. i
0e50: 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 20 20 20 f( p1<0 ){.
0e60: 20 70 32 20 2b 3d 20 70 31 3b 0a 20 20 20 20 20 p2 += p1;.
0e70: 20 70 31 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 p1 = 0;. }.
0e80: 20 7d 65 6c 73 65 20 69 66 28 20 70 31 3e 30 20 }else if( p1>0
0e90: 29 7b 0a 20 20 20 20 70 31 2d 2d 3b 0a 20 20 7d ){. p1--;. }
0ea0: 0a 20 20 69 66 28 20 70 31 2b 70 32 3e 6c 65 6e . if( p1+p2>len
0eb0: 20 29 7b 0a 20 20 20 20 70 32 20 3d 20 6c 65 6e ){. p2 = len
0ec0: 2d 70 31 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 -p1;. }. for(i
0ed0: 3d 30 3b 20 69 3c 70 31 20 26 26 20 7a 5b 69 5d =0; i<p1 && z[i]
0ee0: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 ; i++){. if(
0ef0: 28 7a 5b 69 5d 26 30 78 63 30 29 3d 3d 30 78 38 (z[i]&0xc0)==0x8
0f00: 30 20 29 20 70 31 2b 2b 3b 0a 20 20 7d 0a 20 20 0 ) p1++;. }.
0f10: 77 68 69 6c 65 28 20 7a 5b 69 5d 20 26 26 20 28 while( z[i] && (
0f20: 7a 5b 69 5d 26 30 78 63 30 29 3d 3d 30 78 38 30 z[i]&0xc0)==0x80
0f30: 20 29 7b 20 69 2b 2b 3b 20 70 31 2b 2b 3b 20 7d ){ i++; p1++; }
0f40: 0a 20 20 66 6f 72 28 3b 20 69 3c 70 31 2b 70 32 . for(; i<p1+p2
0f50: 20 26 26 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a && z[i]; i++){.
0f60: 20 20 20 20 69 66 28 20 28 7a 5b 69 5d 26 30 78 if( (z[i]&0x
0f70: 63 30 29 3d 3d 30 78 38 30 20 29 20 70 32 2b 2b c0)==0x80 ) p2++
0f80: 3b 0a 20 20 7d 0a 20 20 77 68 69 6c 65 28 20 7a ;. }. while( z
0f90: 5b 69 5d 20 26 26 20 28 7a 5b 69 5d 26 30 78 63 [i] && (z[i]&0xc
0fa0: 30 29 3d 3d 30 78 38 30 20 29 7b 20 69 2b 2b 3b 0)==0x80 ){ i++;
0fb0: 20 70 32 2b 2b 3b 20 7d 0a 20 20 69 66 28 20 70 p2++; }. if( p
0fc0: 32 3c 30 20 29 20 70 32 20 3d 20 30 3b 0a 20 20 2<0 ) p2 = 0;.
0fd0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 sqlite3_result_t
0fe0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 26 7a 5b ext(context, &z[
0ff0: 70 31 5d 2c 20 70 32 2c 20 31 29 3b 0a 7d 0a 0a p1], p2, 1);.}..
1000: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 /*.** Implementa
1010: 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 6f 75 6e tion of the roun
1020: 64 28 29 20 66 75 6e 63 74 69 6f 6e 0a 2a 2f 0a d() function.*/.
1030: 73 74 61 74 69 63 20 76 6f 69 64 20 72 6f 75 6e static void roun
1040: 64 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f dFunc(sqlite3_co
1050: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 ntext *context,
1060: 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 int argc, sqlite
1070: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 3_value **argv){
1080: 0a 20 20 69 6e 74 20 6e 20 3d 20 30 3b 0a 20 20 . int n = 0;.
1090: 64 6f 75 62 6c 65 20 72 3b 0a 20 20 63 68 61 72 double r;. char
10a0: 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20 61 73 zBuf[100];. as
10b0: 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 7c 7c sert( argc==1 ||
10c0: 20 61 72 67 63 3d 3d 32 20 29 3b 0a 20 20 69 66 argc==2 );. if
10d0: 28 20 61 72 67 63 3d 3d 32 20 29 7b 0a 20 20 20 ( argc==2 ){.
10e0: 20 69 66 28 20 53 51 4c 49 54 45 33 5f 4e 55 4c if( SQLITE3_NUL
10f0: 4c 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 L==sqlite3_value
1100: 5f 74 79 70 65 28 61 72 67 76 5b 31 5d 29 20 29 _type(argv[1]) )
1110: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 6e 20 3d return;. n =
1120: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 sqlite3_value_i
1130: 6e 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 nt(argv[1]);.
1140: 20 69 66 28 20 6e 3e 33 30 20 29 20 6e 20 3d 20 if( n>30 ) n =
1150: 33 30 3b 0a 20 20 20 20 69 66 28 20 6e 3c 30 20 30;. if( n<0
1160: 29 20 6e 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 ) n = 0;. }. i
1170: 66 28 20 53 51 4c 49 54 45 33 5f 4e 55 4c 4c 3d f( SQLITE3_NULL=
1180: 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 =sqlite3_value_t
1190: 79 70 65 28 61 72 67 76 5b 30 5d 29 20 29 20 72 ype(argv[0]) ) r
11a0: 65 74 75 72 6e 3b 0a 20 20 72 20 3d 20 73 71 6c eturn;. r = sql
11b0: 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c ite3_value_doubl
11c0: 65 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 73 70 e(argv[0]);. sp
11d0: 72 69 6e 74 66 28 7a 42 75 66 2c 22 25 2e 2a 66 rintf(zBuf,"%.*f
11e0: 22 2c 6e 2c 72 29 3b 0a 20 20 73 71 6c 69 74 65 ",n,r);. sqlite
11f0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 3_result_text(co
1200: 6e 74 65 78 74 2c 20 7a 42 75 66 2c 20 2d 31 2c ntext, zBuf, -1,
1210: 20 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 1);.}../*.** Im
1220: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 plementation of
1230: 74 68 65 20 75 70 70 65 72 28 29 20 61 6e 64 20 the upper() and
1240: 6c 6f 77 65 72 28 29 20 53 51 4c 20 66 75 6e 63 lower() SQL func
1250: 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 tions..*/.static
1260: 20 76 6f 69 64 20 75 70 70 65 72 46 75 6e 63 28 void upperFunc(
1270: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
1280: 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 *context, int ar
1290: 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 gc, sqlite3_valu
12a0: 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 68 61 e **argv){. cha
12b0: 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 r *z;. int i;.
12c0: 20 69 66 28 20 61 72 67 63 3c 31 20 7c 7c 20 53 if( argc<1 || S
12d0: 51 4c 49 54 45 33 5f 4e 55 4c 4c 3d 3d 73 71 6c QLITE3_NULL==sql
12e0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 ite3_value_type(
12f0: 61 72 67 76 5b 30 5d 29 20 29 20 72 65 74 75 72 argv[0]) ) retur
1300: 6e 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 4d n;. z = sqliteM
1310: 61 6c 6c 6f 63 28 73 71 6c 69 74 65 33 5f 76 61 alloc(sqlite3_va
1320: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 lue_bytes(argv[0
1330: 5d 29 2b 31 29 3b 0a 20 20 69 66 28 20 7a 3d 3d ])+1);. if( z==
1340: 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 73 74 0 ) return;. st
1350: 72 63 70 79 28 7a 2c 20 73 71 6c 69 74 65 33 5f rcpy(z, sqlite3_
1360: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
1370: 30 5d 29 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 0]));. for(i=0;
1380: 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 z[i]; i++){.
1390: 20 69 66 28 20 69 73 6c 6f 77 65 72 28 7a 5b 69 if( islower(z[i
13a0: 5d 29 20 29 20 7a 5b 69 5d 20 3d 20 74 6f 75 70 ]) ) z[i] = toup
13b0: 70 65 72 28 7a 5b 69 5d 29 3b 0a 20 20 7d 0a 20 per(z[i]);. }.
13c0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
13d0: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 2c text(context, z,
13e0: 20 2d 31 2c 20 31 29 3b 0a 20 20 73 71 6c 69 74 -1, 1);. sqlit
13f0: 65 46 72 65 65 28 7a 29 3b 0a 7d 0a 73 74 61 74 eFree(z);.}.stat
1400: 69 63 20 76 6f 69 64 20 6c 6f 77 65 72 46 75 6e ic void lowerFun
1410: 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 c(sqlite3_contex
1420: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 t *context, int
1430: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 argc, sqlite3_va
1440: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 lue **argv){. c
1450: 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b har *z;. int i;
1460: 0a 20 20 69 66 28 20 61 72 67 63 3c 31 20 7c 7c . if( argc<1 ||
1470: 20 53 51 4c 49 54 45 33 5f 4e 55 4c 4c 3d 3d 73 SQLITE3_NULL==s
1480: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 qlite3_value_typ
1490: 65 28 61 72 67 76 5b 30 5d 29 20 29 20 72 65 74 e(argv[0]) ) ret
14a0: 75 72 6e 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 urn;. z = sqlit
14b0: 65 4d 61 6c 6c 6f 63 28 73 71 6c 69 74 65 33 5f eMalloc(sqlite3_
14c0: 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 value_bytes(argv
14d0: 5b 30 5d 29 2b 31 29 3b 0a 20 20 69 66 28 20 7a [0])+1);. if( z
14e0: 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 ==0 ) return;.
14f0: 73 74 72 63 70 79 28 7a 2c 20 73 71 6c 69 74 65 strcpy(z, sqlite
1500: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 3_value_text(arg
1510: 76 5b 30 5d 29 29 3b 0a 20 20 66 6f 72 28 69 3d v[0]));. for(i=
1520: 30 3b 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 0; z[i]; i++){.
1530: 20 20 20 69 66 28 20 69 73 75 70 70 65 72 28 7a if( isupper(z
1540: 5b 69 5d 29 20 29 20 7a 5b 69 5d 20 3d 20 74 6f [i]) ) z[i] = to
1550: 6c 6f 77 65 72 28 7a 5b 69 5d 29 3b 0a 20 20 7d lower(z[i]);. }
1560: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c . sqlite3_resul
1570: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 t_text(context,
1580: 7a 2c 20 2d 31 2c 20 31 29 3b 0a 20 20 73 71 6c z, -1, 1);. sql
1590: 69 74 65 46 72 65 65 28 7a 29 3b 0a 7d 0a 0a 2f iteFree(z);.}../
15a0: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 *.** Implementat
15b0: 69 6f 6e 20 6f 66 20 74 68 65 20 49 46 4e 55 4c ion of the IFNUL
15c0: 4c 28 29 2c 20 4e 56 4c 28 29 2c 20 61 6e 64 20 L(), NVL(), and
15d0: 43 4f 41 4c 45 53 43 45 28 29 20 66 75 6e 63 74 COALESCE() funct
15e0: 69 6f 6e 73 2e 20 20 0a 2a 2a 20 41 6c 6c 20 74 ions. .** All t
15f0: 68 72 65 65 20 64 6f 20 74 68 65 20 73 61 6d 65 hree do the same
1600: 20 74 68 69 6e 67 2e 20 20 54 68 65 79 20 72 65 thing. They re
1610: 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 6e turn the first n
1620: 6f 6e 2d 4e 55 4c 4c 0a 2a 2a 20 61 72 67 75 6d on-NULL.** argum
1630: 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ent..*/.static v
1640: 6f 69 64 20 69 66 6e 75 6c 6c 46 75 6e 63 28 0a oid ifnullFunc(.
1650: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
1660: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e t *context,. in
1670: 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 t argc,. sqlite
1680: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 3_value **argv.)
1690: 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 {. int i;. for
16a0: 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b (i=0; i<argc; i+
16b0: 2b 29 7b 0a 20 20 20 20 69 66 28 20 53 51 4c 49 +){. if( SQLI
16c0: 54 45 33 5f 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 TE3_NULL!=sqlite
16d0: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 3_value_type(arg
16e0: 76 5b 69 5d 29 20 29 7b 0a 20 20 20 20 20 20 73 v[i]) ){. s
16f0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 qlite3_result_va
1700: 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 lue(context, arg
1710: 76 5b 69 5d 29 3b 0a 20 20 20 20 20 20 62 72 65 v[i]);. bre
1720: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a ak;. }. }.}.
1730: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
1740: 61 74 69 6f 6e 20 6f 66 20 72 61 6e 64 6f 6d 28 ation of random(
1750: 29 2e 20 20 52 65 74 75 72 6e 20 61 20 72 61 6e ). Return a ran
1760: 64 6f 6d 20 69 6e 74 65 67 65 72 2e 20 20 0a 2a dom integer. .*
1770: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 72 61 /.static void ra
1780: 6e 64 6f 6d 46 75 6e 63 28 0a 20 20 73 71 6c 69 ndomFunc(. sqli
1790: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
17a0: 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 text,. int argc
17b0: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 ,. sqlite3_valu
17c0: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e e **argv.){. in
17d0: 74 20 72 3b 0a 20 20 73 71 6c 69 74 65 33 52 61 t r;. sqlite3Ra
17e0: 6e 64 6f 6d 6e 65 73 73 28 73 69 7a 65 6f 66 28 ndomness(sizeof(
17f0: 72 29 2c 20 26 72 29 3b 0a 20 20 73 71 6c 69 74 r), &r);. sqlit
1800: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f e3_result_int(co
1810: 6e 74 65 78 74 2c 20 72 29 3b 0a 7d 0a 0a 2f 2a ntext, r);.}../*
1820: 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 .** Implementati
1830: 6f 6e 20 6f 66 20 74 68 65 20 6c 61 73 74 5f 69 on of the last_i
1840: 6e 73 65 72 74 5f 72 6f 77 69 64 28 29 20 53 51 nsert_rowid() SQ
1850: 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 L function. The
1860: 20 72 65 74 75 72 6e 0a 2a 2a 20 76 61 6c 75 65 return.** value
1870: 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 is the same as
1880: 74 68 65 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 the sqlite3_last
1890: 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 29 20 _insert_rowid()
18a0: 41 50 49 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f API function..*/
18b0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 61 73 .static void las
18c0: 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 0a t_insert_rowid(.
18d0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
18e0: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20 69 t *context, . i
18f0: 6e 74 20 61 72 67 2c 20 0a 20 20 73 71 6c 69 74 nt arg, . sqlit
1900: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a e3_value **argv.
1910: 29 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 20 ){. sqlite *db
1920: 3d 20 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 = sqlite3_user_d
1930: 61 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 ata(context);.
1940: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 sqlite3_result_i
1950: 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 73 71 nt64(context, sq
1960: 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 lite3_last_inser
1970: 74 5f 72 6f 77 69 64 28 64 62 29 29 3b 0a 7d 0a t_rowid(db));.}.
1980: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 ./*.** Implement
1990: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 68 61 ation of the cha
19a0: 6e 67 65 5f 63 6f 75 6e 74 28 29 20 53 51 4c 20 nge_count() SQL
19b0: 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 72 function. The r
19c0: 65 74 75 72 6e 0a 2a 2a 20 76 61 6c 75 65 20 69 eturn.** value i
19d0: 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 s the same as th
19e0: 65 20 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 e sqlite3_change
19f0: 73 28 29 20 41 50 49 20 66 75 6e 63 74 69 6f 6e s() API function
1a00: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
1a10: 20 63 68 61 6e 67 65 5f 63 6f 75 6e 74 28 0a 20 change_count(.
1a20: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
1a30: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 *context,. int
1a40: 20 61 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f arg,. sqlite3_
1a50: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
1a60: 20 20 73 71 6c 69 74 65 20 2a 64 62 20 3d 20 73 sqlite *db = s
1a70: 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 qlite3_user_data
1a80: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71 6c (context);. sql
1a90: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 ite3_result_int(
1aa0: 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 context, sqlite3
1ab0: 5f 63 68 61 6e 67 65 73 28 64 62 29 29 3b 0a 7d _changes(db));.}
1ac0: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e ../*.** Implemen
1ad0: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c 61 tation of the la
1ae0: 73 74 5f 73 74 61 74 65 6d 65 6e 74 5f 63 68 61 st_statement_cha
1af0: 6e 67 65 5f 63 6f 75 6e 74 28 29 20 53 51 4c 20 nge_count() SQL
1b00: 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 0a 2a function. The.*
1b10: 2a 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 * return value i
1b20: 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 s the same as th
1b30: 65 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 73 e sqlite3_last_s
1b40: 74 61 74 65 6d 65 6e 74 5f 63 68 61 6e 67 65 73 tatement_changes
1b50: 28 29 20 41 50 49 0a 2a 2a 20 66 75 6e 63 74 69 () API.** functi
1b60: 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f on..*/.static vo
1b70: 69 64 20 6c 61 73 74 5f 73 74 61 74 65 6d 65 6e id last_statemen
1b80: 74 5f 63 68 61 6e 67 65 5f 63 6f 75 6e 74 28 0a t_change_count(.
1b90: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
1ba0: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20 69 t *context, . i
1bb0: 6e 74 20 61 72 67 2c 0a 20 20 73 71 6c 69 74 65 nt arg,. sqlite
1bc0: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 3_value **argv.)
1bd0: 7b 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 20 3d {. sqlite *db =
1be0: 20 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 sqlite3_user_da
1bf0: 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 73 ta(context);. s
1c00: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e qlite3_result_in
1c10: 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 t(context, sqlit
1c20: 65 33 5f 6c 61 73 74 5f 73 74 61 74 65 6d 65 6e e3_last_statemen
1c30: 74 5f 63 68 61 6e 67 65 73 28 64 62 29 29 3b 0a t_changes(db));.
1c40: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 }../*.** Impleme
1c50: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c ntation of the l
1c60: 69 6b 65 28 29 20 53 51 4c 20 66 75 6e 63 74 69 ike() SQL functi
1c70: 6f 6e 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 on. This functi
1c80: 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74 73 0a 2a 2a on implements.**
1c90: 20 74 68 65 20 62 75 69 6c 64 2d 69 6e 20 4c 49 the build-in LI
1ca0: 4b 45 20 6f 70 65 72 61 74 6f 72 2e 20 20 54 68 KE operator. Th
1cb0: 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 e first argument
1cc0: 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e to the function
1cd0: 20 69 73 20 74 68 65 0a 2a 2a 20 73 74 72 69 6e is the.** strin
1ce0: 67 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 g and the second
1cf0: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74 68 65 argument is the
1d00: 20 70 61 74 74 65 72 6e 2e 20 20 53 6f 2c 20 74 pattern. So, t
1d10: 68 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 he SQL statement
1d20: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 41 s:.**.** A
1d30: 20 4c 49 4b 45 20 42 0a 2a 2a 0a 2a 2a 20 69 73 LIKE B.**.** is
1d40: 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 61 73 20 implemented as
1d50: 6c 69 6b 65 28 41 2c 42 29 2e 0a 2a 2f 0a 73 74 like(A,B)..*/.st
1d60: 61 74 69 63 20 76 6f 69 64 20 6c 69 6b 65 46 75 atic void likeFu
1d70: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f nc(. sqlite3_co
1d80: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 ntext *context,
1d90: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 20 . int argc, .
1da0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
1db0: 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 argv.){. const
1dc0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a unsigned char *z
1dd0: 41 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 A = sqlite3_valu
1de0: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b e_text(argv[0]);
1df0: 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 . const unsigne
1e00: 64 20 63 68 61 72 20 2a 7a 42 20 3d 20 73 71 6c d char *zB = sql
1e10: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
1e20: 61 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 argv[1]);. if(
1e30: 7a 41 20 26 26 20 7a 42 20 29 7b 0a 20 20 20 20 zA && zB ){.
1e40: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 sqlite3_result_i
1e50: 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 nt(context, sqli
1e60: 74 65 33 4c 69 6b 65 43 6f 6d 70 61 72 65 28 7a te3LikeCompare(z
1e70: 41 2c 20 7a 42 29 29 3b 0a 20 20 7d 0a 7d 0a 0a A, zB));. }.}..
1e80: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 /*.** Implementa
1e90: 74 69 6f 6e 20 6f 66 20 74 68 65 20 67 6c 6f 62 tion of the glob
1ea0: 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e () SQL function.
1eb0: 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 This function
1ec0: 69 6d 70 6c 65 6d 65 6e 74 73 0a 2a 2a 20 74 68 implements.** th
1ed0: 65 20 62 75 69 6c 64 2d 69 6e 20 47 4c 4f 42 20 e build-in GLOB
1ee0: 6f 70 65 72 61 74 6f 72 2e 20 20 54 68 65 20 66 operator. The f
1ef0: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f irst argument to
1f00: 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 the function is
1f10: 20 74 68 65 0a 2a 2a 20 73 74 72 69 6e 67 20 61 the.** string a
1f20: 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 nd the second ar
1f30: 67 75 6d 65 6e 74 20 69 73 20 74 68 65 20 70 61 gument is the pa
1f40: 74 74 65 72 6e 2e 20 20 53 6f 2c 20 74 68 65 20 ttern. So, the
1f50: 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 3a 0a SQL statements:.
1f60: 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 41 20 47 4c **.** A GL
1f70: 4f 42 20 42 0a 2a 2a 0a 2a 2a 20 69 73 20 69 6d OB B.**.** is im
1f80: 70 6c 65 6d 65 6e 74 65 64 20 61 73 20 67 6c 6f plemented as glo
1f90: 62 28 41 2c 42 29 2e 0a 2a 2f 0a 73 74 61 74 69 b(A,B)..*/.stati
1fa0: 63 20 76 6f 69 64 20 67 6c 6f 62 46 75 6e 63 28 c void globFunc(
1fb0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
1fc0: 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 *context, int ar
1fd0: 67 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 g, sqlite3_value
1fe0: 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 6f 6e 73 **argv){. cons
1ff0: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 t unsigned char
2000: 2a 7a 41 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 *zA = sqlite3_va
2010: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d lue_text(argv[0]
2020: 29 3b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 );. const unsig
2030: 6e 65 64 20 63 68 61 72 20 2a 7a 42 20 3d 20 73 ned char *zB = s
2040: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
2050: 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 t(argv[1]);. if
2060: 28 20 7a 41 20 26 26 20 7a 42 20 29 7b 0a 20 20 ( zA && zB ){.
2070: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
2080: 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 _int(context, sq
2090: 6c 69 74 65 33 47 6c 6f 62 43 6f 6d 70 61 72 65 lite3GlobCompare
20a0: 28 7a 41 2c 20 7a 42 29 29 3b 0a 20 20 7d 0a 7d (zA, zB));. }.}
20b0: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e ../*.** Implemen
20c0: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 4e 55 tation of the NU
20d0: 4c 4c 49 46 28 78 2c 79 29 20 66 75 6e 63 74 69 LLIF(x,y) functi
20e0: 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 on. The result
20f0: 69 73 20 74 68 65 20 66 69 72 73 74 0a 2a 2a 20 is the first.**
2100: 61 72 67 75 6d 65 6e 74 20 69 66 20 74 68 65 20 argument if the
2110: 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 64 69 arguments are di
2120: 66 66 65 72 65 6e 74 2e 20 20 54 68 65 20 72 65 fferent. The re
2130: 73 75 6c 74 20 69 73 20 4e 55 4c 4c 20 69 66 20 sult is NULL if
2140: 74 68 65 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 73 the.** arguments
2150: 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 65 61 are equal to ea
2160: 63 68 20 6f 74 68 65 72 2e 0a 2a 2f 0a 73 74 61 ch other..*/.sta
2170: 74 69 63 20 76 6f 69 64 20 6e 75 6c 6c 69 66 46 tic void nullifF
2180: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 unc(. sqlite3_c
2190: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
21a0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 . int argc,. s
21b0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
21c0: 72 67 76 0a 29 7b 0a 20 20 69 66 28 20 73 71 6c rgv.){. if( sql
21d0: 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 65 28 61 ite3MemCompare(a
21e0: 72 67 76 5b 30 5d 2c 20 61 72 67 76 5b 31 5d 2c rgv[0], argv[1],
21f0: 20 30 29 21 3d 30 20 29 7b 0a 20 20 20 20 73 71 0)!=0 ){. sq
2200: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c lite3_result_val
2210: 75 65 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 ue(context, argv
2220: 5b 30 5d 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a [0]);. }.}../*.
2230: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** Implementatio
2240: 6e 20 6f 66 20 74 68 65 20 56 45 52 53 49 4f 4e n of the VERSION
2250: 28 2a 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 (*) function. T
2260: 68 65 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 he result is the
2270: 20 76 65 72 73 69 6f 6e 0a 2a 2a 20 6f 66 20 74 version.** of t
2280: 68 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 he SQLite librar
2290: 79 20 74 68 61 74 20 69 73 20 72 75 6e 6e 69 6e y that is runnin
22a0: 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 g..*/.static voi
22b0: 64 20 76 65 72 73 69 6f 6e 46 75 6e 63 28 0a 20 d versionFunc(.
22c0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
22d0: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 *context,. int
22e0: 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 argc,. sqlite3
22f0: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
2300: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c . sqlite3_resul
2310: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 t_text(context,
2320: 73 71 6c 69 74 65 33 5f 76 65 72 73 69 6f 6e 2c sqlite3_version,
2330: 20 2d 31 2c 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a -1, 0);.}../*.*
2340: 2a 20 45 58 50 45 52 49 4d 45 4e 54 41 4c 20 2d * EXPERIMENTAL -
2350: 20 54 68 69 73 20 69 73 20 6e 6f 74 20 61 6e 20 This is not an
2360: 6f 66 66 69 63 69 61 6c 20 66 75 6e 63 74 69 6f official functio
2370: 6e 2e 20 20 54 68 65 20 69 6e 74 65 72 66 61 63 n. The interfac
2380: 65 20 6d 61 79 0a 2a 2a 20 63 68 61 6e 67 65 2e e may.** change.
2390: 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 This function
23a0: 6d 61 79 20 64 69 73 61 70 70 65 61 72 2e 20 20 may disappear.
23b0: 44 6f 20 6e 6f 74 20 77 72 69 74 65 20 63 6f 64 Do not write cod
23c0: 65 20 74 68 61 74 20 64 65 70 65 6e 64 73 0a 2a e that depends.*
23d0: 2a 20 6f 6e 20 74 68 69 73 20 66 75 6e 63 74 69 * on this functi
23e0: 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 49 6d 70 6c 65 6d on..**.** Implem
23f0: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 entation of the
2400: 51 55 4f 54 45 28 29 20 66 75 6e 63 74 69 6f 6e QUOTE() function
2410: 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e . This function
2420: 20 74 61 6b 65 73 20 61 20 73 69 6e 67 6c 65 0a takes a single.
2430: 2a 2a 20 61 72 67 75 6d 65 6e 74 2e 20 20 49 66 ** argument. If
2440: 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 the argument is
2450: 20 6e 75 6d 65 72 69 63 2c 20 74 68 65 20 72 65 numeric, the re
2460: 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68 turn value is th
2470: 65 20 73 61 6d 65 20 61 73 0a 2a 2a 20 74 68 65 e same as.** the
2480: 20 61 72 67 75 6d 65 6e 74 2e 20 20 49 66 20 74 argument. If t
2490: 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 20 4e he argument is N
24a0: 55 4c 4c 2c 20 74 68 65 20 72 65 74 75 72 6e 20 ULL, the return
24b0: 76 61 6c 75 65 20 69 73 20 74 68 65 20 73 74 72 value is the str
24c0: 69 6e 67 0a 2a 2a 20 22 4e 55 4c 4c 22 2e 20 20 ing.** "NULL".
24d0: 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65 20 61 Otherwise, the a
24e0: 72 67 75 6d 65 6e 74 20 69 73 20 65 6e 63 6c 6f rgument is enclo
24f0: 73 65 64 20 69 6e 20 73 69 6e 67 6c 65 20 71 75 sed in single qu
2500: 6f 74 65 73 20 77 69 74 68 0a 2a 2a 20 73 69 6e otes with.** sin
2510: 67 6c 65 2d 71 75 6f 74 65 20 65 73 63 61 70 65 gle-quote escape
2520: 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 s..*/.static voi
2530: 64 20 71 75 6f 74 65 46 75 6e 63 28 73 71 6c 69 d quoteFunc(sqli
2540: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
2550: 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 text, int argc,
2560: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
2570: 61 72 67 76 29 7b 0a 20 20 69 66 28 20 61 72 67 argv){. if( arg
2580: 63 3c 31 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 c<1 ) return;.
2590: 73 77 69 74 63 68 28 20 73 71 6c 69 74 65 33 5f switch( sqlite3_
25a0: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b value_type(argv[
25b0: 30 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 65 20 0]) ){. case
25c0: 53 51 4c 49 54 45 33 5f 4e 55 4c 4c 3a 20 7b 0a SQLITE3_NULL: {.
25d0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 sqlite3_re
25e0: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 sult_text(contex
25f0: 74 2c 20 22 4e 55 4c 4c 22 2c 20 34 2c 20 30 29 t, "NULL", 4, 0)
2600: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
2610: 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 53 51 }. case SQ
2620: 4c 49 54 45 33 5f 49 4e 54 45 47 45 52 3a 0a 20 LITE3_INTEGER:.
2630: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 33 5f case SQLITE3_
2640: 46 4c 4f 41 54 3a 20 7b 0a 20 20 20 20 20 20 73 FLOAT: {. s
2650: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 qlite3_result_va
2660: 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 lue(context, arg
2670: 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 62 72 65 v[0]);. bre
2680: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 ak;. }. ca
2690: 73 65 20 53 51 4c 49 54 45 33 5f 42 4c 4f 42 3a se SQLITE3_BLOB:
26a0: 20 20 2f 2a 2a 2a 20 46 49 58 20 4d 45 2e 20 20 /*** FIX ME.
26b0: 55 73 65 20 61 20 42 4c 4f 42 20 65 6e 63 6f 64 Use a BLOB encod
26c0: 69 6e 67 20 2a 2a 2a 2f 0a 20 20 20 20 63 61 73 ing ***/. cas
26d0: 65 20 53 51 4c 49 54 45 33 5f 54 45 58 54 3a 20 e SQLITE3_TEXT:
26e0: 7b 0a 20 20 20 20 20 20 69 6e 74 20 69 2c 6a 2c {. int i,j,
26f0: 6e 3b 0a 20 20 20 20 20 20 63 6f 6e 73 74 20 63 n;. const c
2700: 68 61 72 20 2a 7a 41 72 67 20 3d 20 73 71 6c 69 har *zArg = sqli
2710: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
2720: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 63 rgv[0]);. c
2730: 68 61 72 20 2a 7a 3b 0a 0a 20 20 20 20 20 20 66 har *z;.. f
2740: 6f 72 28 69 3d 6e 3d 30 3b 20 7a 41 72 67 5b 69 or(i=n=0; zArg[i
2750: 5d 3b 20 69 2b 2b 29 7b 20 69 66 28 20 7a 41 72 ]; i++){ if( zAr
2760: 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 20 6e 2b 2b g[i]=='\'' ) n++
2770: 3b 20 7d 0a 20 20 20 20 20 20 7a 20 3d 20 73 71 ; }. z = sq
2780: 6c 69 74 65 4d 61 6c 6c 6f 63 28 20 69 2b 6e 2b liteMalloc( i+n+
2790: 33 20 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 3 );. if( z
27a0: 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 ==0 ) return;.
27b0: 20 20 20 20 7a 5b 30 5d 20 3d 20 27 5c 27 27 3b z[0] = '\'';
27c0: 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30 2c 20 . for(i=0,
27d0: 6a 3d 31 3b 20 7a 41 72 67 5b 69 5d 3b 20 69 2b j=1; zArg[i]; i+
27e0: 2b 29 7b 0a 20 20 20 20 20 20 20 20 7a 5b 6a 2b +){. z[j+
27f0: 2b 5d 20 3d 20 7a 41 72 67 5b 69 5d 3b 0a 20 20 +] = zArg[i];.
2800: 20 20 20 20 20 20 69 66 28 20 7a 41 72 67 5b 69 if( zArg[i
2810: 5d 3d 3d 27 5c 27 27 20 29 7b 0a 20 20 20 20 20 ]=='\'' ){.
2820: 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 27 5c z[j++] = '\
2830: 27 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 '';. }.
2840: 20 20 20 20 7d 0a 20 20 20 20 20 20 7a 5b 6a 2b }. z[j+
2850: 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 +] = '\'';.
2860: 20 7a 5b 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 20 z[j] = 0;.
2870: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
2880: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 2c text(context, z,
2890: 20 6a 2c 20 31 29 3b 0a 20 20 20 20 20 20 73 71 j, 1);. sq
28a0: 6c 69 74 65 46 72 65 65 28 7a 29 3b 0a 20 20 20 liteFree(z);.
28b0: 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 69 66 64 65 66 }. }.}..#ifdef
28c0: 20 53 51 4c 49 54 45 5f 53 4f 55 4e 44 45 58 0a SQLITE_SOUNDEX.
28d0: 2f 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74 68 /*.** Compute th
28e0: 65 20 73 6f 75 6e 64 65 78 20 65 6e 63 6f 64 69 e soundex encodi
28f0: 6e 67 20 6f 66 20 61 20 77 6f 72 64 2e 0a 2a 2f ng of a word..*/
2900: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73 6f 75 .static void sou
2910: 6e 64 65 78 46 75 6e 63 28 73 71 6c 69 74 65 33 ndexFunc(sqlite3
2920: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
2930: 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c t, int argc, sql
2940: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
2950: 76 29 7b 0a 20 20 63 68 61 72 20 7a 52 65 73 75 v){. char zResu
2960: 6c 74 5b 38 5d 3b 0a 20 20 63 6f 6e 73 74 20 63 lt[8];. const c
2970: 68 61 72 20 2a 7a 49 6e 3b 0a 20 20 69 6e 74 20 har *zIn;. int
2980: 69 2c 20 6a 3b 0a 20 20 73 74 61 74 69 63 20 63 i, j;. static c
2990: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
29a0: 61 72 20 69 43 6f 64 65 5b 5d 20 3d 20 7b 0a 20 ar iCode[] = {.
29b0: 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0
29c0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
29d0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
29e0: 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 0,. 0, 0, 0,
29f0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
2a00: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
2a10: 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c 0, 0,. 0, 0,
2a20: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
2a30: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 0, 0, 0, 0, 0, 0
2a40: 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 , 0, 0, 0,. 0
2a50: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c , 0, 0, 0, 0, 0,
2a60: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
2a70: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 0, 0, 0, 0, 0,.
2a80: 20 20 20 30 2c 20 30 2c 20 31 2c 20 32 2c 20 33 0, 0, 1, 2, 3
2a90: 2c 20 30 2c 20 31 2c 20 32 2c 20 30 2c 20 30 2c , 0, 1, 2, 0, 0,
2aa0: 20 32 2c 20 32 2c 20 34 2c 20 35 2c 20 35 2c 20 2, 2, 4, 5, 5,
2ab0: 30 2c 0a 20 20 20 20 31 2c 20 32 2c 20 36 2c 20 0,. 1, 2, 6,
2ac0: 32 2c 20 33 2c 20 30 2c 20 31 2c 20 30 2c 20 32 2, 3, 0, 1, 0, 2
2ad0: 2c 20 30 2c 20 32 2c 20 30 2c 20 30 2c 20 30 2c , 0, 2, 0, 0, 0,
2ae0: 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c 0, 0,. 0, 0,
2af0: 20 31 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2c 20 1, 2, 3, 0, 1,
2b00: 32 2c 20 30 2c 20 30 2c 20 32 2c 20 32 2c 20 34 2, 0, 0, 2, 2, 4
2b10: 2c 20 35 2c 20 35 2c 20 30 2c 0a 20 20 20 20 31 , 5, 5, 0,. 1
2b20: 2c 20 32 2c 20 36 2c 20 32 2c 20 33 2c 20 30 2c , 2, 6, 2, 3, 0,
2b30: 20 31 2c 20 30 2c 20 32 2c 20 30 2c 20 32 2c 20 1, 0, 2, 0, 2,
2b40: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 0, 0, 0, 0, 0,.
2b50: 20 7d 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 };. assert( ar
2b60: 67 63 3d 3d 31 20 29 3b 0a 20 20 7a 49 6e 20 3d gc==1 );. zIn =
2b70: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
2b80: 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 ext(argv[0]);.
2b90: 66 6f 72 28 69 3d 30 3b 20 7a 49 6e 5b 69 5d 20 for(i=0; zIn[i]
2ba0: 26 26 20 21 69 73 61 6c 70 68 61 28 7a 49 6e 5b && !isalpha(zIn[
2bb0: 69 5d 29 3b 20 69 2b 2b 29 7b 7d 0a 20 20 69 66 i]); i++){}. if
2bc0: 28 20 7a 49 6e 5b 69 5d 20 29 7b 0a 20 20 20 20 ( zIn[i] ){.
2bd0: 7a 52 65 73 75 6c 74 5b 30 5d 20 3d 20 74 6f 75 zResult[0] = tou
2be0: 70 70 65 72 28 7a 49 6e 5b 69 5d 29 3b 0a 20 20 pper(zIn[i]);.
2bf0: 20 20 66 6f 72 28 6a 3d 31 3b 20 6a 3c 34 20 26 for(j=1; j<4 &
2c00: 26 20 7a 49 6e 5b 69 5d 3b 20 69 2b 2b 29 7b 0a & zIn[i]; i++){.
2c10: 20 20 20 20 20 20 69 6e 74 20 63 6f 64 65 20 3d int code =
2c20: 20 69 43 6f 64 65 5b 7a 49 6e 5b 69 5d 26 30 78 iCode[zIn[i]&0x
2c30: 37 66 5d 3b 0a 20 20 20 20 20 20 69 66 28 20 63 7f];. if( c
2c40: 6f 64 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 ode>0 ){.
2c50: 20 7a 52 65 73 75 6c 74 5b 6a 2b 2b 5d 20 3d 20 zResult[j++] =
2c60: 63 6f 64 65 20 2b 20 27 30 27 3b 0a 20 20 20 20 code + '0';.
2c70: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 77 68 }. }. wh
2c80: 69 6c 65 28 20 6a 3c 34 20 29 7b 0a 20 20 20 20 ile( j<4 ){.
2c90: 20 20 7a 52 65 73 75 6c 74 5b 6a 2b 2b 5d 20 3d zResult[j++] =
2ca0: 20 27 30 27 3b 0a 20 20 20 20 7d 0a 20 20 20 20 '0';. }.
2cb0: 7a 52 65 73 75 6c 74 5b 6a 5d 20 3d 20 30 3b 0a zResult[j] = 0;.
2cc0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
2cd0: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
2ce0: 20 7a 52 65 73 75 6c 74 2c 20 34 2c 20 31 29 3b zResult, 4, 1);
2cf0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71 . }else{. sq
2d00: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
2d10: 74 28 63 6f 6e 74 65 78 74 2c 20 22 3f 30 30 30 t(context, "?000
2d20: 22 2c 20 34 2c 20 30 29 3b 0a 20 20 7d 0a 7d 0a ", 4, 0);. }.}.
2d30: 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 #endif..#ifdef S
2d40: 51 4c 49 54 45 5f 54 45 53 54 0a 2f 2a 0a 2a 2a QLITE_TEST./*.**
2d50: 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 67 This function g
2d60: 65 6e 65 72 61 74 65 73 20 61 20 73 74 72 69 6e enerates a strin
2d70: 67 20 6f 66 20 72 61 6e 64 6f 6d 20 63 68 61 72 g of random char
2d80: 61 63 74 65 72 73 2e 20 20 55 73 65 64 20 66 6f acters. Used fo
2d90: 72 0a 2a 2a 20 67 65 6e 65 72 61 74 69 6e 67 20 r.** generating
2da0: 74 65 73 74 20 64 61 74 61 2e 0a 2a 2f 0a 73 74 test data..*/.st
2db0: 61 74 69 63 20 76 6f 69 64 20 72 61 6e 64 53 74 atic void randSt
2dc0: 72 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 r(sqlite3_contex
2dd0: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 t *context, int
2de0: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 argc, sqlite3_va
2df0: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 73 lue **argv){. s
2e00: 74 61 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 tatic const unsi
2e10: 67 6e 65 64 20 63 68 61 72 20 7a 53 72 63 5b 5d gned char zSrc[]
2e20: 20 3d 20 0a 20 20 20 20 20 22 61 62 63 64 65 66 = . "abcdef
2e30: 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 ghijklmnopqrstuv
2e40: 77 78 79 7a 22 0a 20 20 20 20 20 22 41 42 43 44 wxyz". "ABCD
2e50: 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 EFGHIJKLMNOPQRST
2e60: 55 56 57 58 59 5a 22 0a 20 20 20 20 20 22 30 31 UVWXYZ". "01
2e70: 32 33 34 35 36 37 38 39 22 0a 20 20 20 20 20 22 23456789". "
2e80: 2e 2d 21 2c 3a 2a 5e 2b 3d 5f 7c 3f 2f 3c 3e 20 .-!,:*^+=_|?/<>
2e90: 22 3b 0a 20 20 69 6e 74 20 69 4d 69 6e 2c 20 69 ";. int iMin, i
2ea0: 4d 61 78 2c 20 6e 2c 20 72 2c 20 69 3b 0a 20 20 Max, n, r, i;.
2eb0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 7a 42 unsigned char zB
2ec0: 75 66 5b 31 30 30 30 5d 3b 0a 20 20 69 66 28 20 uf[1000];. if(
2ed0: 61 72 67 63 3e 3d 31 20 29 7b 0a 20 20 20 20 69 argc>=1 ){. i
2ee0: 4d 69 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 Min = sqlite3_va
2ef0: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 lue_int(argv[0])
2f00: 3b 0a 20 20 20 20 69 66 28 20 69 4d 69 6e 3c 30 ;. if( iMin<0
2f10: 20 29 20 69 4d 69 6e 20 3d 20 30 3b 0a 20 20 20 ) iMin = 0;.
2f20: 20 69 66 28 20 69 4d 69 6e 3e 3d 73 69 7a 65 6f if( iMin>=sizeo
2f30: 66 28 7a 42 75 66 29 20 29 20 69 4d 69 6e 20 3d f(zBuf) ) iMin =
2f40: 20 73 69 7a 65 6f 66 28 7a 42 75 66 29 2d 31 3b sizeof(zBuf)-1;
2f50: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 4d . }else{. iM
2f60: 69 6e 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 69 66 in = 1;. }. if
2f70: 28 20 61 72 67 63 3e 3d 32 20 29 7b 0a 20 20 20 ( argc>=2 ){.
2f80: 20 69 4d 61 78 20 3d 20 73 71 6c 69 74 65 33 5f iMax = sqlite3_
2f90: 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 value_int(argv[1
2fa0: 5d 29 3b 0a 20 20 20 20 69 66 28 20 69 4d 61 78 ]);. if( iMax
2fb0: 3c 69 4d 69 6e 20 29 20 69 4d 61 78 20 3d 20 69 <iMin ) iMax = i
2fc0: 4d 69 6e 3b 0a 20 20 20 20 69 66 28 20 69 4d 61 Min;. if( iMa
2fd0: 78 3e 3d 73 69 7a 65 6f 66 28 7a 42 75 66 29 20 x>=sizeof(zBuf)
2fe0: 29 20 69 4d 61 78 20 3d 20 73 69 7a 65 6f 66 28 ) iMax = sizeof(
2ff0: 7a 42 75 66 29 2d 31 3b 0a 20 20 7d 65 6c 73 65 zBuf)-1;. }else
3000: 7b 0a 20 20 20 20 69 4d 61 78 20 3d 20 35 30 3b {. iMax = 50;
3010: 0a 20 20 7d 0a 20 20 6e 20 3d 20 69 4d 69 6e 3b . }. n = iMin;
3020: 0a 20 20 69 66 28 20 69 4d 61 78 3e 69 4d 69 6e . if( iMax>iMin
3030: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 52 ){. sqlite3R
3040: 61 6e 64 6f 6d 6e 65 73 73 28 73 69 7a 65 6f 66 andomness(sizeof
3050: 28 72 29 2c 20 26 72 29 3b 0a 20 20 20 20 72 20 (r), &r);. r
3060: 26 3d 20 30 78 37 66 66 66 66 66 66 66 3b 0a 20 &= 0x7fffffff;.
3070: 20 20 20 6e 20 2b 3d 20 72 25 28 69 4d 61 78 20 n += r%(iMax
3080: 2b 20 31 20 2d 20 69 4d 69 6e 29 3b 0a 20 20 7d + 1 - iMin);. }
3090: 0a 20 20 61 73 73 65 72 74 28 20 6e 3c 73 69 7a . assert( n<siz
30a0: 65 6f 66 28 7a 42 75 66 29 20 29 3b 0a 20 20 73 eof(zBuf) );. s
30b0: 71 6c 69 74 65 33 52 61 6e 64 6f 6d 6e 65 73 73 qlite3Randomness
30c0: 28 6e 2c 20 7a 42 75 66 29 3b 0a 20 20 66 6f 72 (n, zBuf);. for
30d0: 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b (i=0; i<n; i++){
30e0: 0a 20 20 20 20 7a 42 75 66 5b 69 5d 20 3d 20 7a . zBuf[i] = z
30f0: 53 72 63 5b 7a 42 75 66 5b 69 5d 25 28 73 69 7a Src[zBuf[i]%(siz
3100: 65 6f 66 28 7a 53 72 63 29 2d 31 29 5d 3b 0a 20 eof(zSrc)-1)];.
3110: 20 7d 0a 20 20 7a 42 75 66 5b 6e 5d 20 3d 20 30 }. zBuf[n] = 0
3120: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 ;. sqlite3_resu
3130: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
3140: 20 7a 42 75 66 2c 20 6e 2c 20 31 29 3b 0a 7d 0a zBuf, n, 1);.}.
3150: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 41 6e #endif../*.** An
3160: 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 65 instance of the
3170: 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75 63 following struc
3180: 74 75 72 65 20 68 6f 6c 64 73 20 74 68 65 20 63 ture holds the c
3190: 6f 6e 74 65 78 74 20 6f 66 20 61 0a 2a 2a 20 73 ontext of a.** s
31a0: 75 6d 28 29 20 6f 72 20 61 76 67 28 29 20 61 67 um() or avg() ag
31b0: 67 72 65 67 61 74 65 20 63 6f 6d 70 75 74 61 74 gregate computat
31c0: 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 ion..*/.typedef
31d0: 73 74 72 75 63 74 20 53 75 6d 43 74 78 20 53 75 struct SumCtx Su
31e0: 6d 43 74 78 3b 0a 73 74 72 75 63 74 20 53 75 6d mCtx;.struct Sum
31f0: 43 74 78 20 7b 0a 20 20 64 6f 75 62 6c 65 20 73 Ctx {. double s
3200: 75 6d 3b 20 20 20 20 20 2f 2a 20 53 75 6d 20 6f um; /* Sum o
3210: 66 20 74 65 72 6d 73 20 2a 2f 0a 20 20 69 6e 74 f terms */. int
3220: 20 63 6e 74 3b 20 20 20 20 20 20 20 20 2f 2a 20 cnt; /*
3230: 4e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e Number of elemen
3240: 74 73 20 73 75 6d 6d 65 64 20 2a 2f 0a 7d 3b 0a ts summed */.};.
3250: 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 ./*.** Routines
3260: 75 73 65 64 20 74 6f 20 63 6f 6d 70 75 74 65 20 used to compute
3270: 74 68 65 20 73 75 6d 20 6f 72 20 61 76 65 72 61 the sum or avera
3280: 67 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ge..*/.static vo
3290: 69 64 20 73 75 6d 53 74 65 70 28 73 71 6c 69 74 id sumStep(sqlit
32a0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
32b0: 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 ext, int argc, s
32c0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 qlite3_value **a
32d0: 72 67 76 29 7b 0a 20 20 53 75 6d 43 74 78 20 2a rgv){. SumCtx *
32e0: 70 3b 0a 20 20 69 66 28 20 61 72 67 63 3c 31 20 p;. if( argc<1
32f0: 29 20 72 65 74 75 72 6e 3b 0a 20 20 70 20 3d 20 ) return;. p =
3300: 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 sqlite3_aggregat
3310: 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 e_context(contex
3320: 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a t, sizeof(*p));.
3330: 20 20 69 66 28 20 70 20 26 26 20 53 51 4c 49 54 if( p && SQLIT
3340: 45 33 5f 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 33 E3_NULL!=sqlite3
3350: 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 _value_type(argv
3360: 5b 30 5d 29 20 29 7b 0a 20 20 20 20 70 2d 3e 73 [0]) ){. p->s
3370: 75 6d 20 2b 3d 20 73 71 6c 69 74 65 33 5f 76 61 um += sqlite3_va
3380: 6c 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b lue_double(argv[
3390: 30 5d 29 3b 0a 20 20 20 20 70 2d 3e 63 6e 74 2b 0]);. p->cnt+
33a0: 2b 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63 20 +;. }.}.static
33b0: 76 6f 69 64 20 73 75 6d 46 69 6e 61 6c 69 7a 65 void sumFinalize
33c0: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 (sqlite3_context
33d0: 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 53 75 *context){. Su
33e0: 6d 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 mCtx *p;. p = s
33f0: 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 qlite3_aggregate
3400: 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 _context(context
3410: 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 , sizeof(*p));.
3420: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
3430: 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 double(context,
3440: 70 20 3f 20 70 2d 3e 73 75 6d 20 3a 20 30 2e 30 p ? p->sum : 0.0
3450: 29 3b 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 );.}.static void
3460: 20 61 76 67 46 69 6e 61 6c 69 7a 65 28 73 71 6c avgFinalize(sql
3470: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
3480: 6e 74 65 78 74 29 7b 0a 20 20 53 75 6d 43 74 78 ntext){. SumCtx
3490: 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 *p;. p = sqlit
34a0: 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e e3_aggregate_con
34b0: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 text(context, si
34c0: 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 zeof(*p));. if(
34d0: 20 70 20 26 26 20 70 2d 3e 63 6e 74 3e 30 20 29 p && p->cnt>0 )
34e0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 {. sqlite3_re
34f0: 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 sult_double(cont
3500: 65 78 74 2c 20 70 2d 3e 73 75 6d 2f 28 64 6f 75 ext, p->sum/(dou
3510: 62 6c 65 29 70 2d 3e 63 6e 74 29 3b 0a 20 20 7d ble)p->cnt);. }
3520: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 .}../*.** An ins
3530: 74 61 6e 63 65 20 6f 66 20 74 68 65 20 66 6f 6c tance of the fol
3540: 6c 6f 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 lowing structure
3550: 20 68 6f 6c 64 73 20 74 68 65 20 63 6f 6e 74 65 holds the conte
3560: 78 74 20 6f 66 20 61 0a 2a 2a 20 76 61 72 69 61 xt of a.** varia
3570: 6e 63 65 20 6f 72 20 73 74 61 6e 64 61 72 64 20 nce or standard
3580: 64 65 76 69 61 74 69 6f 6e 20 63 6f 6d 70 75 74 deviation comput
3590: 61 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 ation..*/.typede
35a0: 66 20 73 74 72 75 63 74 20 53 74 64 44 65 76 43 f struct StdDevC
35b0: 74 78 20 53 74 64 44 65 76 43 74 78 3b 0a 73 74 tx StdDevCtx;.st
35c0: 72 75 63 74 20 53 74 64 44 65 76 43 74 78 20 7b ruct StdDevCtx {
35d0: 0a 20 20 64 6f 75 62 6c 65 20 73 75 6d 3b 20 20 . double sum;
35e0: 20 20 20 2f 2a 20 53 75 6d 20 6f 66 20 74 65 72 /* Sum of ter
35f0: 6d 73 20 2a 2f 0a 20 20 64 6f 75 62 6c 65 20 73 ms */. double s
3600: 75 6d 32 3b 20 20 20 20 2f 2a 20 53 75 6d 20 6f um2; /* Sum o
3610: 66 20 74 68 65 20 73 71 75 61 72 65 73 20 6f 66 f the squares of
3620: 20 74 65 72 6d 73 20 2a 2f 0a 20 20 69 6e 74 20 terms */. int
3630: 63 6e 74 3b 20 20 20 20 20 20 20 20 2f 2a 20 4e cnt; /* N
3640: 75 6d 62 65 72 20 6f 66 20 74 65 72 6d 73 20 63 umber of terms c
3650: 6f 75 6e 74 65 64 20 2a 2f 0a 7d 3b 0a 0a 23 69 ounted */.};..#i
3660: 66 20 30 20 20 20 2f 2a 20 4f 6d 69 74 20 62 65 f 0 /* Omit be
3670: 63 61 75 73 65 20 6d 61 74 68 20 6c 69 62 72 61 cause math libra
3680: 72 79 20 69 73 20 72 65 71 75 69 72 65 64 20 2a ry is required *
3690: 2f 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 /./*.** Routines
36a0: 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 75 74 65 used to compute
36b0: 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 64 65 the standard de
36c0: 76 69 61 74 69 6f 6e 20 61 73 20 61 6e 20 61 67 viation as an ag
36d0: 67 72 65 67 61 74 65 2e 0a 2a 2f 0a 73 74 61 74 gregate..*/.stat
36e0: 69 63 20 76 6f 69 64 20 73 74 64 44 65 76 53 74 ic void stdDevSt
36f0: 65 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 ep(sqlite3_conte
3700: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 xt *context, int
3710: 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 argc, const cha
3720: 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 53 74 64 r **argv){. Std
3730: 44 65 76 43 74 78 20 2a 70 3b 0a 20 20 64 6f 75 DevCtx *p;. dou
3740: 62 6c 65 20 78 3b 0a 20 20 69 66 28 20 61 72 67 ble x;. if( arg
3750: 63 3c 31 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 c<1 ) return;.
3760: 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 p = sqlite3_aggr
3770: 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f egate_context(co
3780: 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 ntext, sizeof(*p
3790: 29 29 3b 0a 20 20 69 66 28 20 70 20 26 26 20 61 ));. if( p && a
37a0: 72 67 76 5b 30 5d 20 29 7b 0a 20 20 20 20 78 20 rgv[0] ){. x
37b0: 3d 20 73 71 6c 69 74 65 33 41 74 6f 46 28 61 72 = sqlite3AtoF(ar
37c0: 67 76 5b 30 5d 2c 20 30 29 3b 0a 20 20 20 20 70 gv[0], 0);. p
37d0: 2d 3e 73 75 6d 20 2b 3d 20 78 3b 0a 20 20 20 20 ->sum += x;.
37e0: 70 2d 3e 73 75 6d 32 20 2b 3d 20 78 2a 78 3b 0a p->sum2 += x*x;.
37f0: 20 20 20 20 70 2d 3e 63 6e 74 2b 2b 3b 0a 20 20 p->cnt++;.
3800: 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 }.}.static void
3810: 73 74 64 44 65 76 46 69 6e 61 6c 69 7a 65 28 73 stdDevFinalize(s
3820: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
3830: 63 6f 6e 74 65 78 74 29 7b 0a 20 20 64 6f 75 62 context){. doub
3840: 6c 65 20 72 4e 20 3d 20 73 71 6c 69 74 65 33 5f le rN = sqlite3_
3850: 61 67 67 72 65 67 61 74 65 5f 63 6f 75 6e 74 28 aggregate_count(
3860: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 53 74 64 44 context);. StdD
3870: 65 76 43 74 78 20 2a 70 20 3d 20 73 71 6c 69 74 evCtx *p = sqlit
3880: 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e e3_aggregate_con
3890: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 text(context, si
38a0: 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 zeof(*p));. if(
38b0: 20 70 20 26 26 20 70 2d 3e 63 6e 74 3e 31 20 29 p && p->cnt>1 )
38c0: 7b 0a 20 20 20 20 64 6f 75 62 6c 65 20 72 43 6e {. double rCn
38d0: 74 20 3d 20 63 6e 74 3b 0a 20 20 20 20 73 71 6c t = cnt;. sql
38e0: 69 74 65 33 5f 73 65 74 5f 72 65 73 75 6c 74 5f ite3_set_result_
38f0: 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 double(context,
3900: 0a 20 20 20 20 20 20 20 73 71 72 74 28 28 70 2d . sqrt((p-
3910: 3e 73 75 6d 32 20 2d 20 70 2d 3e 73 75 6d 2a 70 >sum2 - p->sum*p
3920: 2d 3e 73 75 6d 2f 72 43 6e 74 29 2f 28 72 43 6e ->sum/rCnt)/(rCn
3930: 74 2d 31 2e 30 29 29 29 3b 0a 20 20 7d 0a 7d 0a t-1.0)));. }.}.
3940: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 54 68 #endif../*.** Th
3950: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75 e following stru
3960: 63 74 75 72 65 20 6b 65 65 70 73 20 74 72 61 63 cture keeps trac
3970: 6b 20 6f 66 20 73 74 61 74 65 20 69 6e 66 6f 72 k of state infor
3980: 6d 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 0a 2a mation for the.*
3990: 2a 20 63 6f 75 6e 74 28 29 20 61 67 67 72 65 67 * count() aggreg
39a0: 61 74 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f ate function..*/
39b0: 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 .typedef struct
39c0: 43 6f 75 6e 74 43 74 78 20 43 6f 75 6e 74 43 74 CountCtx CountCt
39d0: 78 3b 0a 73 74 72 75 63 74 20 43 6f 75 6e 74 43 x;.struct CountC
39e0: 74 78 20 7b 0a 20 20 69 6e 74 20 6e 3b 0a 7d 3b tx {. int n;.};
39f0: 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 ../*.** Routines
3a00: 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 to implement th
3a10: 65 20 63 6f 75 6e 74 28 29 20 61 67 67 72 65 67 e count() aggreg
3a20: 61 74 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f ate function..*/
3a30: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f 75 .static void cou
3a40: 6e 74 53 74 65 70 28 73 71 6c 69 74 65 33 5f 63 ntStep(sqlite3_c
3a50: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
3a60: 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 int argc, sqlit
3a70: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 e3_value **argv)
3a80: 7b 0a 20 20 43 6f 75 6e 74 43 74 78 20 2a 70 3b {. CountCtx *p;
3a90: 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 . p = sqlite3_a
3aa0: 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 ggregate_context
3ab0: 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 (context, sizeof
3ac0: 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 28 61 72 (*p));. if( (ar
3ad0: 67 63 3d 3d 30 20 7c 7c 20 53 51 4c 49 54 45 33 gc==0 || SQLITE3
3ae0: 5f 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 33 5f 76 _NULL!=sqlite3_v
3af0: 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 alue_type(argv[0
3b00: 5d 29 29 20 26 26 20 70 20 29 7b 0a 20 20 20 20 ])) && p ){.
3b10: 70 2d 3e 6e 2b 2b 3b 0a 20 20 7d 0a 7d 20 20 20 p->n++;. }.}
3b20: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f 75 .static void cou
3b30: 6e 74 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 ntFinalize(sqlit
3b40: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
3b50: 65 78 74 29 7b 0a 20 20 43 6f 75 6e 74 43 74 78 ext){. CountCtx
3b60: 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 *p;. p = sqlit
3b70: 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e e3_aggregate_con
3b80: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 text(context, si
3b90: 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 73 71 6c zeof(*p));. sql
3ba0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 ite3_result_int(
3bb0: 63 6f 6e 74 65 78 74 2c 20 70 20 3f 20 70 2d 3e context, p ? p->
3bc0: 6e 20 3a 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a n : 0);.}../*.**
3bd0: 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 This function t
3be0: 72 61 63 6b 73 20 73 74 61 74 65 20 69 6e 66 6f racks state info
3bf0: 72 6d 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 rmation for the
3c00: 6d 69 6e 28 29 20 61 6e 64 20 6d 61 78 28 29 0a min() and max().
3c10: 2a 2a 20 61 67 67 72 65 67 61 74 65 20 66 75 6e ** aggregate fun
3c20: 63 74 69 6f 6e 73 2e 0a 2a 2f 0a 74 79 70 65 64 ctions..*/.typed
3c30: 65 66 20 73 74 72 75 63 74 20 4d 69 6e 4d 61 78 ef struct MinMax
3c40: 43 74 78 20 4d 69 6e 4d 61 78 43 74 78 3b 0a 73 Ctx MinMaxCtx;.s
3c50: 74 72 75 63 74 20 4d 69 6e 4d 61 78 43 74 78 20 truct MinMaxCtx
3c60: 7b 0a 20 20 63 68 61 72 20 2a 7a 3b 20 20 20 20 {. char *z;
3c70: 20 20 20 20 20 2f 2a 20 54 68 65 20 62 65 73 74 /* The best
3c80: 20 73 6f 20 66 61 72 20 2a 2f 0a 20 20 63 68 61 so far */. cha
3c90: 72 20 7a 42 75 66 5b 32 38 5d 3b 20 20 20 2f 2a r zBuf[28]; /*
3ca0: 20 53 70 61 63 65 20 74 68 61 74 20 63 61 6e 20 Space that can
3cb0: 62 65 20 75 73 65 64 20 66 6f 72 20 73 74 6f 72 be used for stor
3cc0: 61 67 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a age */.};../*.**
3cd0: 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 69 6d 70 Routines to imp
3ce0: 6c 65 6d 65 6e 74 20 6d 69 6e 28 29 20 61 6e 64 lement min() and
3cf0: 20 6d 61 78 28 29 20 61 67 67 72 65 67 61 74 65 max() aggregate
3d00: 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 functions..*/.s
3d10: 74 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 6d 61 tatic void minma
3d20: 78 53 74 65 70 28 73 71 6c 69 74 65 33 5f 63 6f xStep(sqlite3_co
3d30: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 ntext *context,
3d40: 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 int argc, sqlite
3d50: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 3_value **argv){
3d60: 0a 20 20 69 6e 74 20 6d 61 78 20 3d 20 30 3b 0a . int max = 0;.
3d70: 20 20 69 6e 74 20 63 6d 70 20 3d 20 30 3b 0a 20 int cmp = 0;.
3d80: 20 4d 65 6d 20 2a 70 41 72 67 20 20 3d 20 28 4d Mem *pArg = (M
3d90: 65 6d 20 2a 29 61 72 67 76 5b 30 5d 3b 0a 20 20 em *)argv[0];.
3da0: 4d 65 6d 20 2a 70 42 65 73 74 20 3d 20 28 4d 65 Mem *pBest = (Me
3db0: 6d 20 2a 29 73 71 6c 69 74 65 33 5f 61 67 67 72 m *)sqlite3_aggr
3dc0: 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f egate_context(co
3dd0: 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 ntext, sizeof(*p
3de0: 42 65 73 74 29 29 3b 0a 0a 20 20 69 66 28 20 53 Best));.. if( S
3df0: 51 4c 49 54 45 33 5f 4e 55 4c 4c 3d 3d 73 71 6c QLITE3_NULL==sql
3e00: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 ite3_value_type(
3e10: 61 72 67 76 5b 30 5d 29 20 29 20 72 65 74 75 72 argv[0]) ) retur
3e20: 6e 3b 0a 0a 20 20 69 66 28 20 70 42 65 73 74 2d n;.. if( pBest-
3e30: 3e 66 6c 61 67 73 20 29 7b 0a 20 20 20 20 2f 2a >flags ){. /*
3e40: 20 54 68 69 73 20 73 74 65 70 20 66 75 6e 63 74 This step funct
3e50: 69 6f 6e 20 69 73 20 75 73 65 64 20 66 6f 72 20 ion is used for
3e60: 62 6f 74 68 20 74 68 65 20 6d 69 6e 28 29 20 61 both the min() a
3e70: 6e 64 20 6d 61 78 28 29 20 61 67 67 72 65 67 61 nd max() aggrega
3e80: 74 65 73 2c 0a 20 20 20 20 2a 2a 20 74 68 65 20 tes,. ** the
3e90: 6f 6e 6c 79 20 64 69 66 66 65 72 65 6e 63 65 20 only difference
3ea0: 62 65 74 77 65 65 6e 20 74 68 65 20 74 77 6f 20 between the two
3eb0: 62 65 69 6e 67 20 74 68 61 74 20 74 68 65 20 73 being that the s
3ec0: 65 6e 73 65 20 6f 66 20 74 68 65 0a 20 20 20 20 ense of the.
3ed0: 2a 2a 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 73 ** comparison is
3ee0: 20 69 6e 76 65 72 74 65 64 2e 20 46 6f 72 20 74 inverted. For t
3ef0: 68 65 20 6d 61 78 28 29 20 61 67 67 72 65 67 61 he max() aggrega
3f00: 74 65 2c 20 74 68 65 0a 20 20 20 20 2a 2a 20 73 te, the. ** s
3f10: 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 qlite3_user_data
3f20: 28 29 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 () function retu
3f30: 72 6e 73 20 28 76 6f 69 64 20 2a 29 2d 31 2e 20 rns (void *)-1.
3f40: 46 6f 72 20 6d 69 6e 28 29 20 69 74 0a 20 20 20 For min() it.
3f50: 20 2a 2a 20 72 65 74 75 72 6e 73 20 28 76 6f 69 ** returns (voi
3f60: 64 20 2a 29 64 62 2c 20 77 68 65 72 65 20 64 62 d *)db, where db
3f70: 20 69 73 20 74 68 65 20 73 71 6c 69 74 65 33 2a is the sqlite3*
3f80: 20 64 61 74 61 62 61 73 65 20 70 6f 69 6e 74 65 database pointe
3f90: 72 2e 0a 20 20 20 20 2a 2a 20 54 68 65 72 65 66 r.. ** Theref
3fa0: 6f 72 65 20 74 68 65 20 6e 65 78 74 20 73 74 61 ore the next sta
3fb0: 74 65 6d 65 6e 74 20 73 65 74 73 20 76 61 72 69 tement sets vari
3fc0: 61 62 6c 65 20 27 6d 61 78 27 20 74 6f 20 31 20 able 'max' to 1
3fd0: 66 6f 72 20 74 68 65 20 6d 61 78 28 29 0a 20 20 for the max().
3fe0: 20 20 2a 2a 20 61 67 67 72 65 67 61 74 65 2c 20 ** aggregate,
3ff0: 6f 72 20 30 20 66 6f 72 20 6d 69 6e 28 29 2e 0a or 0 for min()..
4000: 20 20 20 20 2a 2f 0a 20 20 20 20 6d 61 78 20 3d */. max =
4010: 20 28 28 73 71 6c 69 74 65 33 5f 75 73 65 72 5f ((sqlite3_user_
4020: 64 61 74 61 28 63 6f 6e 74 65 78 74 29 3d 3d 28 data(context)==(
4030: 76 6f 69 64 20 2a 29 2d 31 29 3f 31 3a 30 29 3b void *)-1)?1:0);
4040: 0a 20 20 20 20 63 6d 70 20 3d 20 73 71 6c 69 74 . cmp = sqlit
4050: 65 33 4d 65 6d 43 6f 6d 70 61 72 65 28 70 42 65 e3MemCompare(pBe
4060: 73 74 2c 20 70 41 72 67 2c 20 30 29 3b 0a 20 20 st, pArg, 0);.
4070: 20 20 69 66 28 20 28 6d 61 78 20 26 26 20 63 6d if( (max && cm
4080: 70 3c 30 29 20 7c 7c 20 28 21 6d 61 78 20 26 26 p<0) || (!max &&
4090: 20 63 6d 70 3e 30 29 20 29 7b 0a 20 20 20 20 20 cmp>0) ){.
40a0: 20 73 71 6c 69 74 65 33 56 64 62 65 4d 65 6d 43 sqlite3VdbeMemC
40b0: 6f 70 79 28 70 42 65 73 74 2c 20 70 41 72 67 29 opy(pBest, pArg)
40c0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b ;. }. }else{
40d0: 0a 20 20 20 20 73 71 6c 69 74 65 33 56 64 62 65 . sqlite3Vdbe
40e0: 4d 65 6d 43 6f 70 79 28 70 42 65 73 74 2c 20 70 MemCopy(pBest, p
40f0: 41 72 67 29 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 Arg);. }.}.stat
4100: 69 63 20 76 6f 69 64 20 6d 69 6e 4d 61 78 46 69 ic void minMaxFi
4110: 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 nalize(sqlite3_c
4120: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 ontext *context)
4130: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 {. sqlite3_valu
4140: 65 20 2a 70 52 65 73 3b 0a 20 20 70 52 65 73 20 e *pRes;. pRes
4150: 3d 20 28 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = (sqlite3_value
4160: 20 2a 29 73 71 6c 69 74 65 33 5f 61 67 67 72 65 *)sqlite3_aggre
4170: 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e gate_context(con
4180: 74 65 78 74 2c 20 73 69 7a 65 6f 66 28 4d 65 6d text, sizeof(Mem
4190: 29 29 3b 0a 20 20 69 66 28 20 70 52 65 73 2d 3e ));. if( pRes->
41a0: 66 6c 61 67 73 20 29 7b 0a 20 20 20 20 73 71 6c flags ){. sql
41b0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 ite3_result_valu
41c0: 65 28 63 6f 6e 74 65 78 74 2c 20 70 52 65 73 29 e(context, pRes)
41d0: 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 ;. }.}../*.** T
41e0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 67 his function reg
41f0: 69 73 74 65 72 65 64 20 61 6c 6c 20 6f 66 20 74 istered all of t
4200: 68 65 20 61 62 6f 76 65 20 43 20 66 75 6e 63 74 he above C funct
4210: 69 6f 6e 73 20 61 73 20 53 51 4c 0a 2a 2a 20 66 ions as SQL.** f
4220: 75 6e 63 74 69 6f 6e 73 2e 20 20 54 68 69 73 20 unctions. This
4230: 73 68 6f 75 6c 64 20 62 65 20 74 68 65 20 6f 6e should be the on
4240: 6c 79 20 72 6f 75 74 69 6e 65 20 69 6e 20 74 68 ly routine in th
4250: 69 73 20 66 69 6c 65 20 77 69 74 68 0a 2a 2a 20 is file with.**
4260: 65 78 74 65 72 6e 61 6c 20 6c 69 6e 6b 61 67 65 external linkage
4270: 2e 0a 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 ..*/.void sqlite
4280: 33 52 65 67 69 73 74 65 72 42 75 69 6c 74 69 6e 3RegisterBuiltin
4290: 46 75 6e 63 74 69 6f 6e 73 28 73 71 6c 69 74 65 Functions(sqlite
42a0: 20 2a 64 62 29 7b 0a 20 20 73 74 61 74 69 63 20 *db){. static
42b0: 73 74 72 75 63 74 20 7b 0a 20 20 20 20 20 63 68 struct {. ch
42c0: 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 ar *zName;.
42d0: 73 69 67 6e 65 64 20 63 68 61 72 20 6e 41 72 67 signed char nArg
42e0: 3b 0a 20 20 20 20 20 75 38 20 61 72 67 54 79 70 ;. u8 argTyp
42f0: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e;
4300: 20 2f 2a 20 30 3a 20 6e 6f 6e 65 2e 20 20 31 3a /* 0: none. 1:
4310: 20 64 62 20 20 32 3a 20 28 2d 31 29 20 2a 2f 0a db 2: (-1) */.
4320: 20 20 20 20 20 76 6f 69 64 20 28 2a 78 46 75 6e void (*xFun
4330: 63 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 c)(sqlite3_conte
4340: 78 74 2a 2c 69 6e 74 2c 73 71 6c 69 74 65 33 5f xt*,int,sqlite3_
4350: 76 61 6c 75 65 20 2a 2a 29 3b 0a 20 20 7d 20 61 value **);. } a
4360: 46 75 6e 63 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 Funcs[] = {.
4370: 7b 20 22 6d 69 6e 22 2c 20 20 20 20 20 20 20 20 { "min",
4380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4390: 2d 31 2c 20 30 2c 20 6d 69 6e 6d 61 78 46 75 6e -1, 0, minmaxFun
43a0: 63 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 69 6e 22 c },. { "min"
43b0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
43c0: 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 0, 0,
43d0: 30 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 0 },.
43e0: 20 20 7b 20 22 6d 61 78 22 2c 20 20 20 20 20 20 { "max",
43f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4400: 20 20 2d 31 2c 20 32 2c 20 6d 69 6e 6d 61 78 46 -1, 2, minmaxF
4410: 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 61 unc },. { "ma
4420: 78 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 x",
4430: 20 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 32 0, 2
4440: 2c 20 30 20 20 20 20 20 20 20 20 20 20 7d 2c 0a , 0 },.
4450: 20 20 20 20 7b 20 22 74 79 70 65 6f 66 22 2c 20 { "typeof",
4460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4470: 20 20 20 20 20 31 2c 20 30 2c 20 74 79 70 65 6f 1, 0, typeo
4480: 66 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 22 fFunc },. { "
4490: 63 6c 61 73 73 6f 66 22 2c 20 20 20 20 20 20 20 classof",
44a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 1,
44b0: 20 30 2c 20 74 79 70 65 6f 66 46 75 6e 63 20 7d 0, typeofFunc }
44c0: 2c 20 2f 2a 20 46 49 58 20 4d 45 3a 20 68 61 63 , /* FIX ME: hac
44d0: 6b 20 2a 2f 0a 20 20 20 20 7b 20 22 6c 65 6e 67 k */. { "leng
44e0: 74 68 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 th",
44f0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
4500: 6c 65 6e 67 74 68 46 75 6e 63 20 7d 2c 0a 20 20 lengthFunc },.
4510: 20 20 7b 20 22 73 75 62 73 74 72 22 2c 20 20 20 { "substr",
4520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4530: 20 20 20 33 2c 20 30 2c 20 73 75 62 73 74 72 46 3, 0, substrF
4540: 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 22 61 62 unc },. { "ab
4550: 73 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 s",
4560: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 1, 0
4570: 2c 20 61 62 73 46 75 6e 63 20 20 20 20 7d 2c 0a , absFunc },.
4580: 20 20 20 20 7b 20 22 72 6f 75 6e 64 22 2c 20 20 { "round",
4590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
45a0: 20 20 20 20 20 31 2c 20 30 2c 20 72 6f 75 6e 64 1, 0, round
45b0: 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 22 Func },. { "
45c0: 72 6f 75 6e 64 22 2c 20 20 20 20 20 20 20 20 20 round",
45d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 2,
45e0: 20 30 2c 20 72 6f 75 6e 64 46 75 6e 63 20 20 7d 0, roundFunc }
45f0: 2c 0a 20 20 20 20 7b 20 22 75 70 70 65 72 22 2c ,. { "upper",
4600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4610: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 75 70 70 1, 0, upp
4620: 65 72 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b erFunc },. {
4630: 20 22 6c 6f 77 65 72 22 2c 20 20 20 20 20 20 20 "lower",
4640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4650: 31 2c 20 30 2c 20 6c 6f 77 65 72 46 75 6e 63 20 1, 0, lowerFunc
4660: 20 7d 2c 0a 20 20 20 20 7b 20 22 63 6f 61 6c 65 },. { "coale
4670: 73 63 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 sce",
4680: 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 69 -1, 0, i
4690: 66 6e 75 6c 6c 46 75 6e 63 20 7d 2c 0a 20 20 20 fnullFunc },.
46a0: 20 7b 20 22 63 6f 61 6c 65 73 63 65 22 2c 20 20 { "coalesce",
46b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
46c0: 20 20 30 2c 20 30 2c 20 30 20 20 20 20 20 20 20 0, 0, 0
46d0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 63 6f 61 },. { "coa
46e0: 6c 65 73 63 65 22 2c 20 20 20 20 20 20 20 20 20 lesce",
46f0: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 1, 0,
4700: 20 30 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 0 },.
4710: 20 20 20 7b 20 22 69 66 6e 75 6c 6c 22 2c 20 20 { "ifnull",
4720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4730: 20 20 20 20 32 2c 20 30 2c 20 69 66 6e 75 6c 6c 2, 0, ifnull
4740: 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20 22 72 Func },. { "r
4750: 61 6e 64 6f 6d 22 2c 20 20 20 20 20 20 20 20 20 andom",
4760: 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 2c 20 -1,
4770: 30 2c 20 72 61 6e 64 6f 6d 46 75 6e 63 20 7d 2c 0, randomFunc },
4780: 0a 20 20 20 20 7b 20 22 6c 69 6b 65 22 2c 20 20 . { "like",
4790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
47a0: 20 20 20 20 20 20 32 2c 20 30 2c 20 6c 69 6b 65 2, 0, like
47b0: 46 75 6e 63 20 20 20 7d 2c 0a 20 20 20 20 7b 20 Func },. {
47c0: 22 67 6c 6f 62 22 2c 20 20 20 20 20 20 20 20 20 "glob",
47d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2
47e0: 2c 20 30 2c 20 67 6c 6f 62 46 75 6e 63 20 20 20 , 0, globFunc
47f0: 7d 2c 0a 20 20 20 20 7b 20 22 6e 75 6c 6c 69 66 },. { "nullif
4800: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
4810: 20 20 20 20 20 20 20 20 32 2c 20 30 2c 20 6e 75 2, 0, nu
4820: 6c 6c 69 66 46 75 6e 63 20 7d 2c 0a 20 20 20 20 llifFunc },.
4830: 7b 20 22 73 71 6c 69 74 65 5f 76 65 72 73 69 6f { "sqlite_versio
4840: 6e 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 n",
4850: 20 30 2c 20 30 2c 20 76 65 72 73 69 6f 6e 46 75 0, 0, versionFu
4860: 6e 63 7d 2c 0a 20 20 20 20 7b 20 22 71 75 6f 74 nc},. { "quot
4870: 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 e",
4880: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 1, 0,
4890: 71 75 6f 74 65 46 75 6e 63 20 20 7d 2c 0a 20 20 quoteFunc },.
48a0: 20 20 7b 20 22 6c 61 73 74 5f 69 6e 73 65 72 74 { "last_insert
48b0: 5f 72 6f 77 69 64 22 2c 20 20 20 20 20 20 20 20 _rowid",
48c0: 20 20 20 30 2c 20 31 2c 20 6c 61 73 74 5f 69 6e 0, 1, last_in
48d0: 73 65 72 74 5f 72 6f 77 69 64 20 7d 2c 0a 20 20 sert_rowid },.
48e0: 20 20 7b 20 22 63 68 61 6e 67 65 5f 63 6f 75 6e { "change_coun
48f0: 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 t",
4900: 20 20 20 30 2c 20 31 2c 20 63 68 61 6e 67 65 5f 0, 1, change_
4910: 63 6f 75 6e 74 20 20 20 20 20 20 7d 2c 0a 20 20 count },.
4920: 20 20 7b 20 22 6c 61 73 74 5f 73 74 61 74 65 6d { "last_statem
4930: 65 6e 74 5f 63 68 61 6e 67 65 5f 63 6f 75 6e 74 ent_change_count
4940: 22 2c 20 30 2c 20 31 2c 20 6c 61 73 74 5f 73 74 ", 0, 1, last_st
4950: 61 74 65 6d 65 6e 74 5f 63 68 61 6e 67 65 5f 63 atement_change_c
4960: 6f 75 6e 74 20 7d 2c 0a 23 69 66 64 65 66 20 53 ount },.#ifdef S
4970: 51 4c 49 54 45 5f 53 4f 55 4e 44 45 58 0a 20 20 QLITE_SOUNDEX.
4980: 20 20 7b 20 22 73 6f 75 6e 64 65 78 22 2c 20 20 { "soundex",
4990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
49a0: 20 20 20 31 2c 20 30 2c 20 73 6f 75 6e 64 65 78 1, 0, soundex
49b0: 46 75 6e 63 7d 2c 0a 23 65 6e 64 69 66 0a 23 69 Func},.#endif.#i
49c0: 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 fdef SQLITE_TEST
49d0: 0a 20 20 20 20 7b 20 22 72 61 6e 64 73 74 72 22 . { "randstr"
49e0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
49f0: 20 20 20 20 20 20 32 2c 20 30 2c 20 72 61 6e 64 2, 0, rand
4a00: 53 74 72 20 20 20 20 7d 2c 0a 23 65 6e 64 69 66 Str },.#endif
4a10: 0a 20 20 7d 3b 0a 20 20 73 74 61 74 69 63 20 73 . };. static s
4a20: 74 72 75 63 74 20 7b 0a 20 20 20 20 63 68 61 72 truct {. char
4a30: 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 73 69 67 *zName;. sig
4a40: 6e 65 64 20 63 68 61 72 20 6e 41 72 67 3b 0a 20 ned char nArg;.
4a50: 20 20 20 75 38 20 61 72 67 54 79 70 65 3b 0a 20 u8 argType;.
4a60: 20 20 20 76 6f 69 64 20 28 2a 78 53 74 65 70 29 void (*xStep)
4a70: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 (sqlite3_context
4a80: 2a 2c 69 6e 74 2c 73 71 6c 69 74 65 33 5f 76 61 *,int,sqlite3_va
4a90: 6c 75 65 2a 2a 29 3b 0a 20 20 20 20 76 6f 69 64 lue**);. void
4aa0: 20 28 2a 78 46 69 6e 61 6c 69 7a 65 29 28 73 71 (*xFinalize)(sq
4ab0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 2a 29 3b lite3_context*);
4ac0: 0a 20 20 7d 20 61 41 67 67 73 5b 5d 20 3d 20 7b . } aAggs[] = {
4ad0: 0a 20 20 20 20 7b 20 22 6d 69 6e 22 2c 20 20 20 . { "min",
4ae0: 20 31 2c 20 30 2c 20 6d 69 6e 6d 61 78 53 74 65 1, 0, minmaxSte
4af0: 70 2c 20 20 20 6d 69 6e 4d 61 78 46 69 6e 61 6c p, minMaxFinal
4b00: 69 7a 65 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 61 ize },. { "ma
4b10: 78 22 2c 20 20 20 20 31 2c 20 32 2c 20 6d 69 6e x", 1, 2, min
4b20: 6d 61 78 53 74 65 70 2c 20 20 20 6d 69 6e 4d 61 maxStep, minMa
4b30: 78 46 69 6e 61 6c 69 7a 65 20 7d 2c 0a 20 20 20 xFinalize },.
4b40: 20 7b 20 22 73 75 6d 22 2c 20 20 20 20 31 2c 20 { "sum", 1,
4b50: 30 2c 20 73 75 6d 53 74 65 70 2c 20 20 20 20 20 0, sumStep,
4b60: 20 73 75 6d 46 69 6e 61 6c 69 7a 65 20 20 20 20 sumFinalize
4b70: 7d 2c 0a 20 20 20 20 7b 20 22 61 76 67 22 2c 20 },. { "avg",
4b80: 20 20 20 31 2c 20 30 2c 20 73 75 6d 53 74 65 70 1, 0, sumStep
4b90: 2c 20 20 20 20 20 20 61 76 67 46 69 6e 61 6c 69 , avgFinali
4ba0: 7a 65 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 ze },. { "
4bb0: 63 6f 75 6e 74 22 2c 20 20 30 2c 20 30 2c 20 63 count", 0, 0, c
4bc0: 6f 75 6e 74 53 74 65 70 2c 20 20 20 20 63 6f 75 ountStep, cou
4bd0: 6e 74 46 69 6e 61 6c 69 7a 65 20 20 7d 2c 0a 20 ntFinalize },.
4be0: 20 20 20 7b 20 22 63 6f 75 6e 74 22 2c 20 20 31 { "count", 1
4bf0: 2c 20 30 2c 20 63 6f 75 6e 74 53 74 65 70 2c 20 , 0, countStep,
4c00: 20 20 20 63 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 countFinalize
4c10: 20 20 7d 2c 0a 23 69 66 20 30 0a 20 20 20 20 7b },.#if 0. {
4c20: 20 22 73 74 64 64 65 76 22 2c 20 31 2c 20 30 2c "stddev", 1, 0,
4c30: 20 73 74 64 44 65 76 53 74 65 70 2c 20 20 20 73 stdDevStep, s
4c40: 74 64 44 65 76 46 69 6e 61 6c 69 7a 65 20 7d 2c tdDevFinalize },
4c50: 0a 23 65 6e 64 69 66 0a 20 20 7d 3b 0a 20 20 69 .#endif. };. i
4c60: 6e 74 20 69 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 nt i;.. for(i=0
4c70: 3b 20 69 3c 73 69 7a 65 6f 66 28 61 46 75 6e 63 ; i<sizeof(aFunc
4c80: 73 29 2f 73 69 7a 65 6f 66 28 61 46 75 6e 63 73 s)/sizeof(aFuncs
4c90: 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 [0]); i++){.
4ca0: 76 6f 69 64 20 2a 70 41 72 67 20 3d 20 30 3b 0a void *pArg = 0;.
4cb0: 20 20 20 20 73 77 69 74 63 68 28 20 61 46 75 6e switch( aFun
4cc0: 63 73 5b 69 5d 2e 61 72 67 54 79 70 65 20 29 7b cs[i].argType ){
4cd0: 0a 20 20 20 20 20 20 63 61 73 65 20 31 3a 20 70 . case 1: p
4ce0: 41 72 67 20 3d 20 64 62 3b 20 62 72 65 61 6b 3b Arg = db; break;
4cf0: 0a 20 20 20 20 20 20 63 61 73 65 20 32 3a 20 70 . case 2: p
4d00: 41 72 67 20 3d 20 28 76 6f 69 64 20 2a 29 28 2d Arg = (void *)(-
4d10: 31 29 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 1); break;. }
4d20: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 . sqlite3_cre
4d30: 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c ate_function(db,
4d40: 20 61 46 75 6e 63 73 5b 69 5d 2e 7a 4e 61 6d 65 aFuncs[i].zName
4d50: 2c 20 61 46 75 6e 63 73 5b 69 5d 2e 6e 41 72 67 , aFuncs[i].nArg
4d60: 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 20 20 20 , 0, 0,.
4d70: 70 41 72 67 2c 20 61 46 75 6e 63 73 5b 69 5d 2e pArg, aFuncs[i].
4d80: 78 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 xFunc, 0, 0);.
4d90: 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 }. for(i=0; i<s
4da0: 69 7a 65 6f 66 28 61 41 67 67 73 29 2f 73 69 7a izeof(aAggs)/siz
4db0: 65 6f 66 28 61 41 67 67 73 5b 30 5d 29 3b 20 69 eof(aAggs[0]); i
4dc0: 2b 2b 29 7b 0a 20 20 20 20 76 6f 69 64 20 2a 70 ++){. void *p
4dd0: 41 72 67 20 3d 20 30 3b 0a 20 20 20 20 73 77 69 Arg = 0;. swi
4de0: 74 63 68 28 20 61 41 67 67 73 5b 69 5d 2e 61 72 tch( aAggs[i].ar
4df0: 67 54 79 70 65 20 29 7b 0a 20 20 20 20 20 20 63 gType ){. c
4e00: 61 73 65 20 31 3a 20 70 41 72 67 20 3d 20 64 62 ase 1: pArg = db
4e10: 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 ; break;. c
4e20: 61 73 65 20 32 3a 20 70 41 72 67 20 3d 20 28 76 ase 2: pArg = (v
4e30: 6f 69 64 20 2a 29 28 2d 31 29 3b 20 62 72 65 61 oid *)(-1); brea
4e40: 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c k;. }. sql
4e50: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 ite3_create_func
4e60: 74 69 6f 6e 28 64 62 2c 20 61 41 67 67 73 5b 69 tion(db, aAggs[i
4e70: 5d 2e 7a 4e 61 6d 65 2c 20 61 41 67 67 73 5b 69 ].zName, aAggs[i
4e80: 5d 2e 6e 41 72 67 2c 20 30 2c 20 30 2c 20 70 41 ].nArg, 0, 0, pA
4e90: 72 67 2c 0a 20 20 20 20 20 20 20 20 30 2c 20 61 rg,. 0, a
4ea0: 41 67 67 73 5b 69 5d 2e 78 53 74 65 70 2c 20 61 Aggs[i].xStep, a
4eb0: 41 67 67 73 5b 69 5d 2e 78 46 69 6e 61 6c 69 7a Aggs[i].xFinaliz
4ec0: 65 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 e);. }. sqlite
4ed0: 33 52 65 67 69 73 74 65 72 44 61 74 65 54 69 6d 3RegisterDateTim
4ee0: 65 46 75 6e 63 74 69 6f 6e 73 28 64 62 29 3b 0a eFunctions(db);.
4ef0: 7d 0a }.