/ Hex Artifact Content
Login

Artifact 34fead7a33e82095f6412d3fafd379d47864b3be:


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);.}.