/ Hex Artifact Content
Login

Artifact b1919255cef5580ac1fcd555ee9bb96974bde64d:


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 31 32 33 20 32 30 30 36 2f 30 32 2f 32 33  1.123 2006/02/23
02a0: 20 32 31 3a 34 33 3a 35 36 20 64 72 68 20 45 78   21:43:56 drh Ex
02b0: 70 20 24 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20  p $.*/.#include 
02c0: 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23 69  "sqliteInt.h".#i
02d0: 6e 63 6c 75 64 65 20 3c 63 74 79 70 65 2e 68 3e  nclude <ctype.h>
02e0: 0a 2f 2a 20 23 69 6e 63 6c 75 64 65 20 3c 6d 61  ./* #include <ma
02f0: 74 68 2e 68 3e 20 2a 2f 0a 23 69 6e 63 6c 75 64  th.h> */.#includ
0300: 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e  e <stdlib.h>.#in
0310: 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e  clude <assert.h>
0320: 0a 23 69 6e 63 6c 75 64 65 20 22 76 64 62 65 49  .#include "vdbeI
0330: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22  nt.h".#include "
0340: 6f 73 2e 68 22 0a 0a 2f 2a 0a 2a 2a 20 52 65 74  os.h"../*.** Ret
0350: 75 72 6e 20 74 68 65 20 63 6f 6c 6c 61 74 69 6e  urn the collatin
0360: 67 20 66 75 6e 63 74 69 6f 6e 20 61 73 73 6f 63  g function assoc
0370: 69 61 74 65 64 20 77 69 74 68 20 61 20 66 75 6e  iated with a fun
0380: 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63  ction..*/.static
0390: 20 43 6f 6c 6c 53 65 71 20 2a 73 71 6c 69 74 65   CollSeq *sqlite
03a0: 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28  3GetFuncCollSeq(
03b0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
03c0: 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 72 65 74  *context){.  ret
03d0: 75 72 6e 20 63 6f 6e 74 65 78 74 2d 3e 70 43 6f  urn context->pCo
03e0: 6c 6c 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70  ll;.}../*.** Imp
03f0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74  lementation of t
0400: 68 65 20 6e 6f 6e 2d 61 67 67 72 65 67 61 74 65  he non-aggregate
0410: 20 6d 69 6e 28 29 20 61 6e 64 20 6d 61 78 28 29   min() and max()
0420: 20 66 75 6e 63 74 69 6f 6e 73 0a 2a 2f 0a 73 74   functions.*/.st
0430: 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 6d 61 78  atic void minmax
0440: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f  Func(.  sqlite3_
0450: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
0460: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20  ,.  int argc,.  
0470: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
0480: 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 3b  argv.){.  int i;
0490: 0a 20 20 69 6e 74 20 6d 61 73 6b 3b 20 20 20 20  .  int mask;    
04a0: 2f 2a 20 30 20 66 6f 72 20 6d 69 6e 28 29 20 6f  /* 0 for min() o
04b0: 72 20 30 78 66 66 66 66 66 66 66 66 20 66 6f 72  r 0xffffffff for
04c0: 20 6d 61 78 28 29 20 2a 2f 0a 20 20 69 6e 74 20   max() */.  int 
04d0: 69 42 65 73 74 3b 0a 20 20 43 6f 6c 6c 53 65 71  iBest;.  CollSeq
04e0: 20 2a 70 43 6f 6c 6c 3b 0a 0a 20 20 69 66 28 20   *pColl;..  if( 
04f0: 61 72 67 63 3d 3d 30 20 29 20 72 65 74 75 72 6e  argc==0 ) return
0500: 3b 0a 20 20 6d 61 73 6b 20 3d 20 73 71 6c 69 74  ;.  mask = sqlit
0510: 65 33 5f 75 73 65 72 5f 64 61 74 61 28 63 6f 6e  e3_user_data(con
0520: 74 65 78 74 29 3d 3d 30 20 3f 20 30 20 3a 20 2d  text)==0 ? 0 : -
0530: 31 3b 0a 20 20 70 43 6f 6c 6c 20 3d 20 73 71 6c  1;.  pColl = sql
0540: 69 74 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53  ite3GetFuncCollS
0550: 65 71 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 61  eq(context);.  a
0560: 73 73 65 72 74 28 20 70 43 6f 6c 6c 20 29 3b 0a  ssert( pColl );.
0570: 20 20 61 73 73 65 72 74 28 20 6d 61 73 6b 3d 3d    assert( mask==
0580: 2d 31 20 7c 7c 20 6d 61 73 6b 3d 3d 30 20 29 3b  -1 || mask==0 );
0590: 0a 20 20 69 42 65 73 74 20 3d 20 30 3b 0a 20 20  .  iBest = 0;.  
05a0: 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  if( sqlite3_valu
05b0: 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3d  e_type(argv[0])=
05c0: 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72  =SQLITE_NULL ) r
05d0: 65 74 75 72 6e 3b 0a 20 20 66 6f 72 28 69 3d 31  eturn;.  for(i=1
05e0: 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a  ; i<argc; i++){.
05f0: 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f      if( sqlite3_
0600: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b  value_type(argv[
0610: 69 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c  i])==SQLITE_NULL
0620: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 69   ) return;.    i
0630: 66 28 20 28 73 71 6c 69 74 65 33 4d 65 6d 43 6f  f( (sqlite3MemCo
0640: 6d 70 61 72 65 28 61 72 67 76 5b 69 42 65 73 74  mpare(argv[iBest
0650: 5d 2c 20 61 72 67 76 5b 69 5d 2c 20 70 43 6f 6c  ], argv[i], pCol
0660: 6c 29 5e 6d 61 73 6b 29 3e 3d 30 20 29 7b 0a 20  l)^mask)>=0 ){. 
0670: 20 20 20 20 20 69 42 65 73 74 20 3d 20 69 3b 0a       iBest = i;.
0680: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 71 6c 69      }.  }.  sqli
0690: 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65  te3_result_value
06a0: 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b 69  (context, argv[i
06b0: 42 65 73 74 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  Best]);.}../*.**
06c0: 20 52 65 74 75 72 6e 20 74 68 65 20 74 79 70 65   Return the type
06d0: 20 6f 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74   of the argument
06e0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
06f0: 20 74 79 70 65 6f 66 46 75 6e 63 28 0a 20 20 73   typeofFunc(.  s
0700: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
0710: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61  context,.  int a
0720: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  rgc,.  sqlite3_v
0730: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
0740: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d   const char *z =
0750: 20 30 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71   0;.  switch( sq
0760: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65  lite3_value_type
0770: 28 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20  (argv[0]) ){.   
0780: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c   case SQLITE_NUL
0790: 4c 3a 20 20 20 20 7a 20 3d 20 22 6e 75 6c 6c 22  L:    z = "null"
07a0: 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20  ;    break;.    
07b0: 63 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45  case SQLITE_INTE
07c0: 47 45 52 3a 20 7a 20 3d 20 22 69 6e 74 65 67 65  GER: z = "intege
07d0: 72 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 63  r"; break;.    c
07e0: 61 73 65 20 53 51 4c 49 54 45 5f 54 45 58 54 3a  ase SQLITE_TEXT:
07f0: 20 20 20 20 7a 20 3d 20 22 74 65 78 74 22 3b 20      z = "text"; 
0800: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61     break;.    ca
0810: 73 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a  se SQLITE_FLOAT:
0820: 20 20 20 7a 20 3d 20 22 72 65 61 6c 22 3b 20 20     z = "real";  
0830: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73    break;.    cas
0840: 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 20 20  e SQLITE_BLOB:  
0850: 20 20 7a 20 3d 20 22 62 6c 6f 62 22 3b 20 20 20    z = "blob";   
0860: 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 73 71   break;.  }.  sq
0870: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78  lite3_result_tex
0880: 74 28 63 6f 6e 74 65 78 74 2c 20 7a 2c 20 2d 31  t(context, z, -1
0890: 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29  , SQLITE_STATIC)
08a0: 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c  ;.}.../*.** Impl
08b0: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68  ementation of th
08c0: 65 20 6c 65 6e 67 74 68 28 29 20 66 75 6e 63 74  e length() funct
08d0: 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ion.*/.static vo
08e0: 69 64 20 6c 65 6e 67 74 68 46 75 6e 63 28 0a 20  id lengthFunc(. 
08f0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
0900: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74   *context,.  int
0910: 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33   argc,.  sqlite3
0920: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b  _value **argv.){
0930: 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 0a 20 20 61  .  int len;..  a
0940: 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29  ssert( argc==1 )
0950: 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71 6c 69  ;.  switch( sqli
0960: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61  te3_value_type(a
0970: 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 63  rgv[0]) ){.    c
0980: 61 73 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a  ase SQLITE_BLOB:
0990: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
09a0: 5f 49 4e 54 45 47 45 52 3a 0a 20 20 20 20 63 61  _INTEGER:.    ca
09b0: 73 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a  se SQLITE_FLOAT:
09c0: 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33   {.      sqlite3
09d0: 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74  _result_int(cont
09e0: 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c  ext, sqlite3_val
09f0: 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d  ue_bytes(argv[0]
0a00: 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  ));.      break;
0a10: 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20  .    }.    case 
0a20: 53 51 4c 49 54 45 5f 54 45 58 54 3a 20 7b 0a 20  SQLITE_TEXT: {. 
0a30: 20 20 20 20 20 63 6f 6e 73 74 20 75 6e 73 69 67       const unsig
0a40: 6e 65 64 20 63 68 61 72 20 2a 7a 20 3d 20 73 71  ned char *z = sq
0a50: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
0a60: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20  (argv[0]);.     
0a70: 20 66 6f 72 28 6c 65 6e 3d 30 3b 20 2a 7a 3b 20   for(len=0; *z; 
0a80: 7a 2b 2b 29 7b 20 69 66 28 20 28 30 78 63 30 26  z++){ if( (0xc0&
0a90: 2a 7a 29 21 3d 30 78 38 30 20 29 20 6c 65 6e 2b  *z)!=0x80 ) len+
0aa0: 2b 3b 20 7d 0a 20 20 20 20 20 20 73 71 6c 69 74  +; }.      sqlit
0ab0: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f  e3_result_int(co
0ac0: 6e 74 65 78 74 2c 20 6c 65 6e 29 3b 0a 20 20 20  ntext, len);.   
0ad0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a     break;.    }.
0ae0: 20 20 20 20 64 65 66 61 75 6c 74 3a 20 7b 0a 20      default: {. 
0af0: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73       sqlite3_res
0b00: 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 65 78 74  ult_null(context
0b10: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
0b20: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a      }.  }.}../*.
0b30: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f  ** Implementatio
0b40: 6e 20 6f 66 20 74 68 65 20 61 62 73 28 29 20 66  n of the abs() f
0b50: 75 6e 63 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69  unction.*/.stati
0b60: 63 20 76 6f 69 64 20 61 62 73 46 75 6e 63 28 73  c void absFunc(s
0b70: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
0b80: 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67  context, int arg
0b90: 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  c, sqlite3_value
0ba0: 20 2a 2a 61 72 67 76 29 7b 0a 20 20 61 73 73 65   **argv){.  asse
0bb0: 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20  rt( argc==1 );. 
0bc0: 20 73 77 69 74 63 68 28 20 73 71 6c 69 74 65 33   switch( sqlite3
0bd0: 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76  _value_type(argv
0be0: 5b 30 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 65  [0]) ){.    case
0bf0: 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a   SQLITE_INTEGER:
0c00: 20 7b 0a 20 20 20 20 20 20 69 36 34 20 69 56 61   {.      i64 iVa
0c10: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  l = sqlite3_valu
0c20: 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 30 5d 29  e_int64(argv[0])
0c30: 3b 0a 20 20 20 20 20 20 69 66 28 20 69 56 61 6c  ;.      if( iVal
0c40: 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66  <0 ){.        if
0c50: 28 20 28 69 56 61 6c 3c 3c 31 29 3d 3d 30 20 29  ( (iVal<<1)==0 )
0c60: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69  {.          sqli
0c70: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72  te3_result_error
0c80: 28 63 6f 6e 74 65 78 74 2c 20 22 69 6e 74 65 67  (context, "integ
0c90: 65 72 20 6f 76 65 72 66 6c 6f 77 22 2c 20 2d 31  er overflow", -1
0ca0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74  );.          ret
0cb0: 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  urn;.        }. 
0cc0: 20 20 20 20 20 20 20 69 56 61 6c 20 3d 20 2d 69         iVal = -i
0cd0: 56 61 6c 3b 0a 20 20 20 20 20 20 7d 20 0a 20 20  Val;.      } .  
0ce0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
0cf0: 6c 74 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74  lt_int64(context
0d00: 2c 20 69 56 61 6c 29 3b 0a 20 20 20 20 20 20 62  , iVal);.      b
0d10: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20  reak;.    }.    
0d20: 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c  case SQLITE_NULL
0d30: 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65  : {.      sqlite
0d40: 33 5f 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f  3_result_null(co
0d50: 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20 62 72  ntext);.      br
0d60: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64  eak;.    }.    d
0d70: 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20 20 20 20  efault: {.      
0d80: 64 6f 75 62 6c 65 20 72 56 61 6c 20 3d 20 73 71  double rVal = sq
0d90: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62  lite3_value_doub
0da0: 6c 65 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20  le(argv[0]);.   
0db0: 20 20 20 69 66 28 20 72 56 61 6c 3c 30 20 29 20     if( rVal<0 ) 
0dc0: 72 56 61 6c 20 3d 20 2d 72 56 61 6c 3b 0a 20 20  rVal = -rVal;.  
0dd0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
0de0: 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78  lt_double(contex
0df0: 74 2c 20 72 56 61 6c 29 3b 0a 20 20 20 20 20 20  t, rVal);.      
0e00: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d  break;.    }.  }
0e10: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d  .}../*.** Implem
0e20: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20  entation of the 
0e30: 73 75 62 73 74 72 28 29 20 66 75 6e 63 74 69 6f  substr() functio
0e40: 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  n.*/.static void
0e50: 20 73 75 62 73 74 72 46 75 6e 63 28 0a 20 20 73   substrFunc(.  s
0e60: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
0e70: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61  context,.  int a
0e80: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  rgc,.  sqlite3_v
0e90: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
0ea0: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20   const unsigned 
0eb0: 63 68 61 72 20 2a 7a 3b 0a 20 20 63 6f 6e 73 74  char *z;.  const
0ec0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a   unsigned char *
0ed0: 7a 32 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69  z2;.  int i;.  i
0ee0: 6e 74 20 70 31 2c 20 70 32 2c 20 6c 65 6e 3b 0a  nt p1, p2, len;.
0ef0: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d  .  assert( argc=
0f00: 3d 33 20 29 3b 0a 20 20 7a 20 3d 20 73 71 6c 69  =3 );.  z = sqli
0f10: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
0f20: 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 7a  rgv[0]);.  if( z
0f30: 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20  ==0 ) return;.  
0f40: 70 31 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c  p1 = sqlite3_val
0f50: 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29 3b  ue_int(argv[1]);
0f60: 0a 20 20 70 32 20 3d 20 73 71 6c 69 74 65 33 5f  .  p2 = sqlite3_
0f70: 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 32  value_int(argv[2
0f80: 5d 29 3b 0a 20 20 66 6f 72 28 6c 65 6e 3d 30 2c  ]);.  for(len=0,
0f90: 20 7a 32 3d 7a 3b 20 2a 7a 32 3b 20 7a 32 2b 2b   z2=z; *z2; z2++
0fa0: 29 7b 20 69 66 28 20 28 30 78 63 30 26 2a 7a 32  ){ if( (0xc0&*z2
0fb0: 29 21 3d 30 78 38 30 20 29 20 6c 65 6e 2b 2b 3b  )!=0x80 ) len++;
0fc0: 20 7d 0a 20 20 69 66 28 20 70 31 3c 30 20 29 7b   }.  if( p1<0 ){
0fd0: 0a 20 20 20 20 70 31 20 2b 3d 20 6c 65 6e 3b 0a  .    p1 += len;.
0fe0: 20 20 20 20 69 66 28 20 70 31 3c 30 20 29 7b 0a      if( p1<0 ){.
0ff0: 20 20 20 20 20 20 70 32 20 2b 3d 20 70 31 3b 0a        p2 += p1;.
1000: 20 20 20 20 20 20 70 31 20 3d 20 30 3b 0a 20 20        p1 = 0;.  
1010: 20 20 7d 0a 20 20 7d 65 6c 73 65 20 69 66 28 20    }.  }else if( 
1020: 70 31 3e 30 20 29 7b 0a 20 20 20 20 70 31 2d 2d  p1>0 ){.    p1--
1030: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 31 2b 70  ;.  }.  if( p1+p
1040: 32 3e 6c 65 6e 20 29 7b 0a 20 20 20 20 70 32 20  2>len ){.    p2 
1050: 3d 20 6c 65 6e 2d 70 31 3b 0a 20 20 7d 0a 20 20  = len-p1;.  }.  
1060: 66 6f 72 28 69 3d 30 3b 20 69 3c 70 31 20 26 26  for(i=0; i<p1 &&
1070: 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20   z[i]; i++){.   
1080: 20 69 66 28 20 28 7a 5b 69 5d 26 30 78 63 30 29   if( (z[i]&0xc0)
1090: 3d 3d 30 78 38 30 20 29 20 70 31 2b 2b 3b 0a 20  ==0x80 ) p1++;. 
10a0: 20 7d 0a 20 20 77 68 69 6c 65 28 20 7a 5b 69 5d   }.  while( z[i]
10b0: 20 26 26 20 28 7a 5b 69 5d 26 30 78 63 30 29 3d   && (z[i]&0xc0)=
10c0: 3d 30 78 38 30 20 29 7b 20 69 2b 2b 3b 20 70 31  =0x80 ){ i++; p1
10d0: 2b 2b 3b 20 7d 0a 20 20 66 6f 72 28 3b 20 69 3c  ++; }.  for(; i<
10e0: 70 31 2b 70 32 20 26 26 20 7a 5b 69 5d 3b 20 69  p1+p2 && z[i]; i
10f0: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 28 7a 5b  ++){.    if( (z[
1100: 69 5d 26 30 78 63 30 29 3d 3d 30 78 38 30 20 29  i]&0xc0)==0x80 )
1110: 20 70 32 2b 2b 3b 0a 20 20 7d 0a 20 20 77 68 69   p2++;.  }.  whi
1120: 6c 65 28 20 7a 5b 69 5d 20 26 26 20 28 7a 5b 69  le( z[i] && (z[i
1130: 5d 26 30 78 63 30 29 3d 3d 30 78 38 30 20 29 7b  ]&0xc0)==0x80 ){
1140: 20 69 2b 2b 3b 20 70 32 2b 2b 3b 20 7d 0a 20 20   i++; p2++; }.  
1150: 69 66 28 20 70 32 3c 30 20 29 20 70 32 20 3d 20  if( p2<0 ) p2 = 
1160: 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73  0;.  sqlite3_res
1170: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74  ult_text(context
1180: 2c 20 28 63 68 61 72 2a 29 26 7a 5b 70 31 5d 2c  , (char*)&z[p1],
1190: 20 70 32 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e   p2, SQLITE_TRAN
11a0: 53 49 45 4e 54 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  SIENT);.}../*.**
11b0: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   Implementation 
11c0: 6f 66 20 74 68 65 20 72 6f 75 6e 64 28 29 20 66  of the round() f
11d0: 75 6e 63 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69  unction.*/.stati
11e0: 63 20 76 6f 69 64 20 72 6f 75 6e 64 46 75 6e 63  c void roundFunc
11f0: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74  (sqlite3_context
1200: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61   *context, int a
1210: 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c  rgc, sqlite3_val
1220: 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 6e  ue **argv){.  in
1230: 74 20 6e 20 3d 20 30 3b 0a 20 20 64 6f 75 62 6c  t n = 0;.  doubl
1240: 65 20 72 3b 0a 20 20 63 68 61 72 20 7a 42 75 66  e r;.  char zBuf
1250: 5b 35 30 30 5d 3b 20 20 2f 2a 20 6c 61 72 67 65  [500];  /* large
1260: 72 20 74 68 61 6e 20 74 68 65 20 25 66 20 72 65  r than the %f re
1270: 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20  presentation of 
1280: 74 68 65 20 6c 61 72 67 65 73 74 20 64 6f 75 62  the largest doub
1290: 6c 65 20 2a 2f 0a 20 20 61 73 73 65 72 74 28 20  le */.  assert( 
12a0: 61 72 67 63 3d 3d 31 20 7c 7c 20 61 72 67 63 3d  argc==1 || argc=
12b0: 3d 32 20 29 3b 0a 20 20 69 66 28 20 61 72 67 63  =2 );.  if( argc
12c0: 3d 3d 32 20 29 7b 0a 20 20 20 20 69 66 28 20 53  ==2 ){.    if( S
12d0: 51 4c 49 54 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69  QLITE_NULL==sqli
12e0: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61  te3_value_type(a
12f0: 72 67 76 5b 31 5d 29 20 29 20 72 65 74 75 72 6e  rgv[1]) ) return
1300: 3b 0a 20 20 20 20 6e 20 3d 20 73 71 6c 69 74 65  ;.    n = sqlite
1310: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76  3_value_int(argv
1320: 5b 31 5d 29 3b 0a 20 20 20 20 69 66 28 20 6e 3e  [1]);.    if( n>
1330: 33 30 20 29 20 6e 20 3d 20 33 30 3b 0a 20 20 20  30 ) n = 30;.   
1340: 20 69 66 28 20 6e 3c 30 20 29 20 6e 20 3d 20 30   if( n<0 ) n = 0
1350: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 53 51 4c 49  ;.  }.  if( SQLI
1360: 54 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69 74 65 33  TE_NULL==sqlite3
1370: 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76  _value_type(argv
1380: 5b 30 5d 29 20 29 20 72 65 74 75 72 6e 3b 0a 20  [0]) ) return;. 
1390: 20 72 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c   r = sqlite3_val
13a0: 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b 30  ue_double(argv[0
13b0: 5d 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e  ]);.  sqlite3_sn
13c0: 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42  printf(sizeof(zB
13d0: 75 66 29 2c 7a 42 75 66 2c 22 25 2e 2a 66 22 2c  uf),zBuf,"%.*f",
13e0: 6e 2c 72 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f  n,r);.  sqlite3_
13f0: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74  result_text(cont
1400: 65 78 74 2c 20 7a 42 75 66 2c 20 2d 31 2c 20 53  ext, zBuf, -1, S
1410: 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29  QLITE_TRANSIENT)
1420: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65  ;.}../*.** Imple
1430: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65  mentation of the
1440: 20 75 70 70 65 72 28 29 20 61 6e 64 20 6c 6f 77   upper() and low
1450: 65 72 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f  er() SQL functio
1460: 6e 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ns..*/.static vo
1470: 69 64 20 75 70 70 65 72 46 75 6e 63 28 73 71 6c  id upperFunc(sql
1480: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
1490: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c  ntext, int argc,
14a0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
14b0: 2a 61 72 67 76 29 7b 0a 20 20 75 6e 73 69 67 6e  *argv){.  unsign
14c0: 65 64 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 6e  ed char *z;.  in
14d0: 74 20 69 3b 0a 20 20 69 66 28 20 61 72 67 63 3c  t i;.  if( argc<
14e0: 31 20 7c 7c 20 53 51 4c 49 54 45 5f 4e 55 4c 4c  1 || SQLITE_NULL
14f0: 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  ==sqlite3_value_
1500: 74 79 70 65 28 61 72 67 76 5b 30 5d 29 20 29 20  type(argv[0]) ) 
1510: 72 65 74 75 72 6e 3b 0a 20 20 7a 20 3d 20 73 71  return;.  z = sq
1520: 6c 69 74 65 4d 61 6c 6c 6f 63 28 73 71 6c 69 74  liteMalloc(sqlit
1530: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61  e3_value_bytes(a
1540: 72 67 76 5b 30 5d 29 2b 31 29 3b 0a 20 20 69 66  rgv[0])+1);.  if
1550: 28 20 7a 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b  ( z==0 ) return;
1560: 0a 20 20 73 74 72 63 70 79 28 28 63 68 61 72 2a  .  strcpy((char*
1570: 29 7a 2c 20 28 63 68 61 72 2a 29 73 71 6c 69 74  )z, (char*)sqlit
1580: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72  e3_value_text(ar
1590: 67 76 5b 30 5d 29 29 3b 0a 20 20 66 6f 72 28 69  gv[0]));.  for(i
15a0: 3d 30 3b 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a  =0; z[i]; i++){.
15b0: 20 20 20 20 7a 5b 69 5d 20 3d 20 74 6f 75 70 70      z[i] = toupp
15c0: 65 72 28 7a 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20  er(z[i]);.  }.  
15d0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74  sqlite3_result_t
15e0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 63 68  ext(context, (ch
15f0: 61 72 2a 29 7a 2c 20 2d 31 2c 20 53 51 4c 49 54  ar*)z, -1, SQLIT
1600: 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20  E_TRANSIENT);.  
1610: 73 71 6c 69 74 65 46 72 65 65 28 7a 29 3b 0a 7d  sqliteFree(z);.}
1620: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 6f 77  .static void low
1630: 65 72 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63  erFunc(sqlite3_c
1640: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c  ontext *context,
1650: 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74   int argc, sqlit
1660: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29  e3_value **argv)
1670: 7b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61  {.  unsigned cha
1680: 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b 0a 20  r *z;.  int i;. 
1690: 20 69 66 28 20 61 72 67 63 3c 31 20 7c 7c 20 53   if( argc<1 || S
16a0: 51 4c 49 54 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69  QLITE_NULL==sqli
16b0: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61  te3_value_type(a
16c0: 72 67 76 5b 30 5d 29 20 29 20 72 65 74 75 72 6e  rgv[0]) ) return
16d0: 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 4d 61  ;.  z = sqliteMa
16e0: 6c 6c 6f 63 28 73 71 6c 69 74 65 33 5f 76 61 6c  lloc(sqlite3_val
16f0: 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d  ue_bytes(argv[0]
1700: 29 2b 31 29 3b 0a 20 20 69 66 28 20 7a 3d 3d 30  )+1);.  if( z==0
1710: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 73 74 72   ) return;.  str
1720: 63 70 79 28 28 63 68 61 72 2a 29 7a 2c 20 28 63  cpy((char*)z, (c
1730: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c  har*)sqlite3_val
1740: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29  ue_text(argv[0])
1750: 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 5b  );.  for(i=0; z[
1760: 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 7a 5b  i]; i++){.    z[
1770: 69 5d 20 3d 20 74 6f 6c 6f 77 65 72 28 7a 5b 69  i] = tolower(z[i
1780: 5d 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65  ]);.  }.  sqlite
1790: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f  3_result_text(co
17a0: 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 7a 2c  ntext, (char*)z,
17b0: 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e   -1, SQLITE_TRAN
17c0: 53 49 45 4e 54 29 3b 0a 20 20 73 71 6c 69 74 65  SIENT);.  sqlite
17d0: 46 72 65 65 28 7a 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  Free(z);.}../*.*
17e0: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e  * Implementation
17f0: 20 6f 66 20 74 68 65 20 49 46 4e 55 4c 4c 28 29   of the IFNULL()
1800: 2c 20 4e 56 4c 28 29 2c 20 61 6e 64 20 43 4f 41  , NVL(), and COA
1810: 4c 45 53 43 45 28 29 20 66 75 6e 63 74 69 6f 6e  LESCE() function
1820: 73 2e 20 20 0a 2a 2a 20 41 6c 6c 20 74 68 72 65  s.  .** All thre
1830: 65 20 64 6f 20 74 68 65 20 73 61 6d 65 20 74 68  e do the same th
1840: 69 6e 67 2e 20 20 54 68 65 79 20 72 65 74 75 72  ing.  They retur
1850: 6e 20 74 68 65 20 66 69 72 73 74 20 6e 6f 6e 2d  n the first non-
1860: 4e 55 4c 4c 0a 2a 2a 20 61 72 67 75 6d 65 6e 74  NULL.** argument
1870: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
1880: 20 69 66 6e 75 6c 6c 46 75 6e 63 28 0a 20 20 73   ifnullFunc(.  s
1890: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
18a0: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61  context,.  int a
18b0: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  rgc,.  sqlite3_v
18c0: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
18d0: 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d   int i;.  for(i=
18e0: 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b  0; i<argc; i++){
18f0: 0a 20 20 20 20 69 66 28 20 53 51 4c 49 54 45 5f  .    if( SQLITE_
1900: 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 33 5f 76 61  NULL!=sqlite3_va
1910: 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 69 5d  lue_type(argv[i]
1920: 29 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  ) ){.      sqlit
1930: 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 28  e3_result_value(
1940: 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b 69 5d  context, argv[i]
1950: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
1960: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a      }.  }.}../*.
1970: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f  ** Implementatio
1980: 6e 20 6f 66 20 72 61 6e 64 6f 6d 28 29 2e 20 20  n of random().  
1990: 52 65 74 75 72 6e 20 61 20 72 61 6e 64 6f 6d 20  Return a random 
19a0: 69 6e 74 65 67 65 72 2e 20 20 0a 2a 2f 0a 73 74  integer.  .*/.st
19b0: 61 74 69 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d  atic void random
19c0: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f  Func(.  sqlite3_
19d0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
19e0: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20  ,.  int argc,.  
19f0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
1a00: 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65  argv.){.  sqlite
1a10: 5f 69 6e 74 36 34 20 72 3b 0a 20 20 73 71 6c 69  _int64 r;.  sqli
1a20: 74 65 33 52 61 6e 64 6f 6d 6e 65 73 73 28 73 69  te3Randomness(si
1a30: 7a 65 6f 66 28 72 29 2c 20 26 72 29 3b 0a 20 20  zeof(r), &r);.  
1a40: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69  sqlite3_result_i
1a50: 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 72 29  nt64(context, r)
1a60: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65  ;.}../*.** Imple
1a70: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65  mentation of the
1a80: 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77   last_insert_row
1a90: 69 64 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f  id() SQL functio
1aa0: 6e 2e 20 20 54 68 65 20 72 65 74 75 72 6e 0a 2a  n.  The return.*
1ab0: 2a 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 73  * value is the s
1ac0: 61 6d 65 20 61 73 20 74 68 65 20 73 71 6c 69 74  ame as the sqlit
1ad0: 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72  e3_last_insert_r
1ae0: 6f 77 69 64 28 29 20 41 50 49 20 66 75 6e 63 74  owid() API funct
1af0: 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76  ion..*/.static v
1b00: 6f 69 64 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f  oid last_insert_
1b10: 72 6f 77 69 64 28 0a 20 20 73 71 6c 69 74 65 33  rowid(.  sqlite3
1b20: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
1b30: 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 2c 20 0a  t, .  int arg, .
1b40: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20    sqlite3_value 
1b50: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69  **argv.){.  sqli
1b60: 74 65 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65  te3 *db = sqlite
1b70: 33 5f 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74  3_user_data(cont
1b80: 65 78 74 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f  ext);.  sqlite3_
1b90: 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 6f 6e  result_int64(con
1ba0: 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f 6c 61  text, sqlite3_la
1bb0: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28  st_insert_rowid(
1bc0: 64 62 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49  db));.}../*.** I
1bd0: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66  mplementation of
1be0: 20 74 68 65 20 63 68 61 6e 67 65 73 28 29 20 53   the changes() S
1bf0: 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68  QL function.  Th
1c00: 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69  e return value i
1c10: 73 20 74 68 65 0a 2a 2a 20 73 61 6d 65 20 61 73  s the.** same as
1c20: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 63 68 61   the sqlite3_cha
1c30: 6e 67 65 73 28 29 20 41 50 49 20 66 75 6e 63 74  nges() API funct
1c40: 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76  ion..*/.static v
1c50: 6f 69 64 20 63 68 61 6e 67 65 73 28 0a 20 20 73  oid changes(.  s
1c60: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
1c70: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61  context,.  int a
1c80: 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61  rg,.  sqlite3_va
1c90: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20  lue **argv.){.  
1ca0: 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71  sqlite3 *db = sq
1cb0: 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28  lite3_user_data(
1cc0: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71 6c 69  context);.  sqli
1cd0: 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63  te3_result_int(c
1ce0: 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f  ontext, sqlite3_
1cf0: 63 68 61 6e 67 65 73 28 64 62 29 29 3b 0a 7d 0a  changes(db));.}.
1d00: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74  ./*.** Implement
1d10: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 6f 74  ation of the tot
1d20: 61 6c 5f 63 68 61 6e 67 65 73 28 29 20 53 51 4c  al_changes() SQL
1d30: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20   function.  The 
1d40: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 0a  return value is.
1d50: 2a 2a 20 74 68 65 20 73 61 6d 65 20 61 73 20 74  ** the same as t
1d60: 68 65 20 73 71 6c 69 74 65 33 5f 74 6f 74 61 6c  he sqlite3_total
1d70: 5f 63 68 61 6e 67 65 73 28 29 20 41 50 49 20 66  _changes() API f
1d80: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74  unction..*/.stat
1d90: 69 63 20 76 6f 69 64 20 74 6f 74 61 6c 5f 63 68  ic void total_ch
1da0: 61 6e 67 65 73 28 0a 20 20 73 71 6c 69 74 65 33  anges(.  sqlite3
1db0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
1dc0: 74 2c 0a 20 20 69 6e 74 20 61 72 67 2c 0a 20 20  t,.  int arg,.  
1dd0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
1de0: 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65  argv.){.  sqlite
1df0: 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f  3 *db = sqlite3_
1e00: 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78  user_data(contex
1e10: 74 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65  t);.  sqlite3_re
1e20: 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74  sult_int(context
1e30: 2c 20 73 71 6c 69 74 65 33 5f 74 6f 74 61 6c 5f  , sqlite3_total_
1e40: 63 68 61 6e 67 65 73 28 64 62 29 29 3b 0a 7d 0a  changes(db));.}.
1e50: 0a 2f 2a 0a 2a 2a 20 41 20 73 74 72 75 63 74 75  ./*.** A structu
1e60: 72 65 20 64 65 66 69 6e 69 6e 67 20 68 6f 77 20  re defining how 
1e70: 74 6f 20 64 6f 20 47 4c 4f 42 2d 73 74 79 6c 65  to do GLOB-style
1e80: 20 63 6f 6d 70 61 72 69 73 6f 6e 73 2e 0a 2a 2f   comparisons..*/
1e90: 0a 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49  .struct compareI
1ea0: 6e 66 6f 20 7b 0a 20 20 75 38 20 6d 61 74 63 68  nfo {.  u8 match
1eb0: 41 6c 6c 3b 0a 20 20 75 38 20 6d 61 74 63 68 4f  All;.  u8 matchO
1ec0: 6e 65 3b 0a 20 20 75 38 20 6d 61 74 63 68 53 65  ne;.  u8 matchSe
1ed0: 74 3b 0a 20 20 75 38 20 6e 6f 43 61 73 65 3b 0a  t;.  u8 noCase;.
1ee0: 7d 3b 0a 0a 73 74 61 74 69 63 20 63 6f 6e 73 74  };..static const
1ef0: 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49   struct compareI
1f00: 6e 66 6f 20 67 6c 6f 62 49 6e 66 6f 20 3d 20 7b  nfo globInfo = {
1f10: 20 27 2a 27 2c 20 27 3f 27 2c 20 27 5b 27 2c 20   '*', '?', '[', 
1f20: 30 20 7d 3b 0a 2f 2a 20 54 68 65 20 63 6f 72 72  0 };./* The corr
1f30: 65 63 74 20 53 51 4c 2d 39 32 20 62 65 68 61 76  ect SQL-92 behav
1f40: 69 6f 72 20 69 73 20 66 6f 72 20 74 68 65 20 4c  ior is for the L
1f50: 49 4b 45 20 6f 70 65 72 61 74 6f 72 20 74 6f 20  IKE operator to 
1f60: 69 67 6e 6f 72 65 0a 2a 2a 20 63 61 73 65 2e 20  ignore.** case. 
1f70: 20 54 68 75 73 20 20 27 61 27 20 4c 49 4b 45 20   Thus  'a' LIKE 
1f80: 27 41 27 20 77 6f 75 6c 64 20 62 65 20 74 72 75  'A' would be tru
1f90: 65 2e 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e  e. */.static con
1fa0: 73 74 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72  st struct compar
1fb0: 65 49 6e 66 6f 20 6c 69 6b 65 49 6e 66 6f 4e 6f  eInfo likeInfoNo
1fc0: 72 6d 20 3d 20 7b 20 27 25 27 2c 20 27 5f 27 2c  rm = { '%', '_',
1fd0: 20 20 20 30 2c 20 31 20 7d 3b 0a 2f 2a 20 49 66     0, 1 };./* If
1fe0: 20 53 51 4c 49 54 45 5f 43 41 53 45 5f 53 45 4e   SQLITE_CASE_SEN
1ff0: 53 49 54 49 56 45 5f 4c 49 4b 45 20 69 73 20 64  SITIVE_LIKE is d
2000: 65 66 69 6e 65 64 2c 20 74 68 65 6e 20 74 68 65  efined, then the
2010: 20 4c 49 4b 45 20 6f 70 65 72 61 74 6f 72 0a 2a   LIKE operator.*
2020: 2a 20 69 73 20 63 61 73 65 20 73 65 6e 73 69 74  * is case sensit
2030: 69 76 65 20 63 61 75 73 69 6e 67 20 27 61 27 20  ive causing 'a' 
2040: 4c 49 4b 45 20 27 41 27 20 74 6f 20 62 65 20 66  LIKE 'A' to be f
2050: 61 6c 73 65 20 2a 2f 0a 73 74 61 74 69 63 20 63  alse */.static c
2060: 6f 6e 73 74 20 73 74 72 75 63 74 20 63 6f 6d 70  onst struct comp
2070: 61 72 65 49 6e 66 6f 20 6c 69 6b 65 49 6e 66 6f  areInfo likeInfo
2080: 41 6c 74 20 3d 20 7b 20 27 25 27 2c 20 27 5f 27  Alt = { '%', '_'
2090: 2c 20 20 20 30 2c 20 30 20 7d 3b 0a 0a 2f 2a 0a  ,   0, 0 };../*.
20a0: 2a 2a 20 58 20 69 73 20 61 20 70 6f 69 6e 74 65  ** X is a pointe
20b0: 72 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 62  r to the first b
20c0: 79 74 65 20 6f 66 20 61 20 55 54 46 2d 38 20 63  yte of a UTF-8 c
20d0: 68 61 72 61 63 74 65 72 2e 20 20 49 6e 63 72 65  haracter.  Incre
20e0: 6d 65 6e 74 0a 2a 2a 20 58 20 73 6f 20 74 68 61  ment.** X so tha
20f0: 74 20 69 74 20 70 6f 69 6e 74 73 20 74 6f 20 74  t it points to t
2100: 68 65 20 6e 65 78 74 20 63 68 61 72 61 63 74 65  he next characte
2110: 72 2e 20 20 54 68 69 73 20 6f 6e 6c 79 20 77 6f  r.  This only wo
2120: 72 6b 73 20 72 69 67 68 74 0a 2a 2a 20 69 66 20  rks right.** if 
2130: 58 20 70 6f 69 6e 74 73 20 74 6f 20 61 20 77 65  X points to a we
2140: 6c 6c 2d 66 6f 72 6d 65 64 20 55 54 46 2d 38 20  ll-formed UTF-8 
2150: 73 74 72 69 6e 67 2e 0a 2a 2f 0a 23 64 65 66 69  string..*/.#defi
2160: 6e 65 20 73 71 6c 69 74 65 4e 65 78 74 43 68 61  ne sqliteNextCha
2170: 72 28 58 29 20 20 77 68 69 6c 65 28 20 28 30 78  r(X)  while( (0x
2180: 63 30 26 2a 2b 2b 28 58 29 29 3d 3d 30 78 38 30  c0&*++(X))==0x80
2190: 20 29 7b 7d 0a 23 64 65 66 69 6e 65 20 73 71 6c   ){}.#define sql
21a0: 69 74 65 43 68 61 72 56 61 6c 28 58 29 20 20 20  iteCharVal(X)   
21b0: 73 71 6c 69 74 65 33 52 65 61 64 55 74 66 38 28  sqlite3ReadUtf8(
21c0: 58 29 0a 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 61  X).../*.** Compa
21d0: 72 65 20 74 77 6f 20 55 54 46 2d 38 20 73 74 72  re two UTF-8 str
21e0: 69 6e 67 73 20 66 6f 72 20 65 71 75 61 6c 69 74  ings for equalit
21f0: 79 20 77 68 65 72 65 20 74 68 65 20 66 69 72 73  y where the firs
2200: 74 20 73 74 72 69 6e 67 20 63 61 6e 0a 2a 2a 20  t string can.** 
2210: 70 6f 74 65 6e 74 69 61 6c 6c 79 20 62 65 20 61  potentially be a
2220: 20 22 67 6c 6f 62 22 20 65 78 70 72 65 73 73 69   "glob" expressi
2230: 6f 6e 2e 20 20 52 65 74 75 72 6e 20 74 72 75 65  on.  Return true
2240: 20 28 31 29 20 69 66 20 74 68 65 79 0a 2a 2a 20   (1) if they.** 
2250: 61 72 65 20 74 68 65 20 73 61 6d 65 20 61 6e 64  are the same and
2260: 20 66 61 6c 73 65 20 28 30 29 20 69 66 20 74 68   false (0) if th
2270: 65 79 20 61 72 65 20 64 69 66 66 65 72 65 6e 74  ey are different
2280: 2e 0a 2a 2a 0a 2a 2a 20 47 6c 6f 62 62 69 6e 67  ..**.** Globbing
2290: 20 72 75 6c 65 73 3a 0a 2a 2a 0a 2a 2a 20 20 20   rules:.**.**   
22a0: 20 20 20 27 2a 27 20 20 20 20 20 20 20 4d 61 74     '*'       Mat
22b0: 63 68 65 73 20 61 6e 79 20 73 65 71 75 65 6e 63  ches any sequenc
22c0: 65 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6d 6f 72  e of zero or mor
22d0: 65 20 63 68 61 72 61 63 74 65 72 73 2e 0a 2a 2a  e characters..**
22e0: 0a 2a 2a 20 20 20 20 20 20 27 3f 27 20 20 20 20  .**      '?'    
22f0: 20 20 20 4d 61 74 63 68 65 73 20 65 78 61 63 74     Matches exact
2300: 6c 79 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72  ly one character
2310: 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 5b 2e 2e 2e  ..**.**     [...
2320: 5d 20 20 20 20 20 20 4d 61 74 63 68 65 73 20 6f  ]      Matches o
2330: 6e 65 20 63 68 61 72 61 63 74 65 72 20 66 72 6f  ne character fro
2340: 6d 20 74 68 65 20 65 6e 63 6c 6f 73 65 64 20 6c  m the enclosed l
2350: 69 73 74 20 6f 66 0a 2a 2a 20 20 20 20 20 20 20  ist of.**       
2360: 20 20 20 20 20 20 20 20 20 63 68 61 72 61 63 74           charact
2370: 65 72 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 5b  ers..**.**     [
2380: 5e 2e 2e 2e 5d 20 20 20 20 20 4d 61 74 63 68 65  ^...]     Matche
2390: 73 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72 20  s one character 
23a0: 6e 6f 74 20 69 6e 20 74 68 65 20 65 6e 63 6c 6f  not in the enclo
23b0: 73 65 64 20 6c 69 73 74 2e 0a 2a 2a 0a 2a 2a 20  sed list..**.** 
23c0: 57 69 74 68 20 74 68 65 20 5b 2e 2e 2e 5d 20 61  With the [...] a
23d0: 6e 64 20 5b 5e 2e 2e 2e 5d 20 6d 61 74 63 68 69  nd [^...] matchi
23e0: 6e 67 2c 20 61 20 27 5d 27 20 63 68 61 72 61 63  ng, a ']' charac
23f0: 74 65 72 20 63 61 6e 20 62 65 20 69 6e 63 6c 75  ter can be inclu
2400: 64 65 64 0a 2a 2a 20 69 6e 20 74 68 65 20 6c 69  ded.** in the li
2410: 73 74 20 62 79 20 6d 61 6b 69 6e 67 20 69 74 20  st by making it 
2420: 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63  the first charac
2430: 74 65 72 20 61 66 74 65 72 20 27 5b 27 20 6f 72  ter after '[' or
2440: 20 27 5e 27 2e 20 20 41 0a 2a 2a 20 72 61 6e 67   '^'.  A.** rang
2450: 65 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20  e of characters 
2460: 63 61 6e 20 62 65 20 73 70 65 63 69 66 69 65 64  can be specified
2470: 20 75 73 69 6e 67 20 27 2d 27 2e 20 20 45 78 61   using '-'.  Exa
2480: 6d 70 6c 65 3a 0a 2a 2a 20 22 5b 61 2d 7a 5d 22  mple:.** "[a-z]"
2490: 20 6d 61 74 63 68 65 73 20 61 6e 79 20 73 69 6e   matches any sin
24a0: 67 6c 65 20 6c 6f 77 65 72 2d 63 61 73 65 20 6c  gle lower-case l
24b0: 65 74 74 65 72 2e 20 20 54 6f 20 6d 61 74 63 68  etter.  To match
24c0: 20 61 20 27 2d 27 2c 20 6d 61 6b 65 0a 2a 2a 20   a '-', make.** 
24d0: 69 74 20 74 68 65 20 6c 61 73 74 20 63 68 61 72  it the last char
24e0: 61 63 74 65 72 20 69 6e 20 74 68 65 20 6c 69 73  acter in the lis
24f0: 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f  t..**.** This ro
2500: 75 74 69 6e 65 20 69 73 20 75 73 75 61 6c 6c 79  utine is usually
2510: 20 71 75 69 63 6b 2c 20 62 75 74 20 63 61 6e 20   quick, but can 
2520: 62 65 20 4e 2a 2a 32 20 69 6e 20 74 68 65 20 77  be N**2 in the w
2530: 6f 72 73 74 20 63 61 73 65 2e 0a 2a 2a 0a 2a 2a  orst case..**.**
2540: 20 48 69 6e 74 73 3a 20 74 6f 20 6d 61 74 63 68   Hints: to match
2550: 20 27 2a 27 20 6f 72 20 27 3f 27 2c 20 70 75 74   '*' or '?', put
2560: 20 74 68 65 6d 20 69 6e 20 22 5b 5d 22 2e 20 20   them in "[]".  
2570: 4c 69 6b 65 20 74 68 69 73 3a 0a 2a 2a 0a 2a 2a  Like this:.**.**
2580: 20 20 20 20 20 20 20 20 20 61 62 63 5b 2a 5d 78           abc[*]x
2590: 79 7a 20 20 20 20 20 20 20 20 4d 61 74 63 68 65  yz        Matche
25a0: 73 20 22 61 62 63 2a 78 79 7a 22 20 6f 6e 6c 79  s "abc*xyz" only
25b0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 70  .*/.static int p
25c0: 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 0a 20  atternCompare(. 
25d0: 20 63 6f 6e 73 74 20 75 38 20 2a 7a 50 61 74 74   const u8 *zPatt
25e0: 65 72 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20  ern,            
25f0: 20 20 2f 2a 20 54 68 65 20 67 6c 6f 62 20 70 61    /* The glob pa
2600: 74 74 65 72 6e 20 2a 2f 0a 20 20 63 6f 6e 73 74  ttern */.  const
2610: 20 75 38 20 2a 7a 53 74 72 69 6e 67 2c 20 20 20   u8 *zString,   
2620: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
2630: 68 65 20 73 74 72 69 6e 67 20 74 6f 20 63 6f 6d  he string to com
2640: 70 61 72 65 20 61 67 61 69 6e 73 74 20 74 68 65  pare against the
2650: 20 67 6c 6f 62 20 2a 2f 0a 20 20 63 6f 6e 73 74   glob */.  const
2660: 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49   struct compareI
2670: 6e 66 6f 20 2a 70 49 6e 66 6f 2c 20 2f 2a 20 49  nfo *pInfo, /* I
2680: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74  nformation about
2690: 20 68 6f 77 20 74 6f 20 64 6f 20 74 68 65 20 63   how to do the c
26a0: 6f 6d 70 61 72 65 20 2a 2f 0a 20 20 63 6f 6e 73  ompare */.  cons
26b0: 74 20 69 6e 74 20 65 73 63 20 20 20 20 20 20 20  t int esc       
26c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
26d0: 54 68 65 20 65 73 63 61 70 65 20 63 68 61 72 61  The escape chara
26e0: 63 74 65 72 20 2a 2f 0a 29 7b 0a 20 20 72 65 67  cter */.){.  reg
26f0: 69 73 74 65 72 20 69 6e 74 20 63 3b 0a 20 20 69  ister int c;.  i
2700: 6e 74 20 69 6e 76 65 72 74 3b 0a 20 20 69 6e 74  nt invert;.  int
2710: 20 73 65 65 6e 3b 0a 20 20 69 6e 74 20 63 32 3b   seen;.  int c2;
2720: 0a 20 20 75 38 20 6d 61 74 63 68 4f 6e 65 20 3d  .  u8 matchOne =
2730: 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 4f 6e 65   pInfo->matchOne
2740: 3b 0a 20 20 75 38 20 6d 61 74 63 68 41 6c 6c 20  ;.  u8 matchAll 
2750: 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 41 6c  = pInfo->matchAl
2760: 6c 3b 0a 20 20 75 38 20 6d 61 74 63 68 53 65 74  l;.  u8 matchSet
2770: 20 3d 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 53   = pInfo->matchS
2780: 65 74 3b 0a 20 20 75 38 20 6e 6f 43 61 73 65 20  et;.  u8 noCase 
2790: 3d 20 70 49 6e 66 6f 2d 3e 6e 6f 43 61 73 65 3b  = pInfo->noCase;
27a0: 20 0a 20 20 69 6e 74 20 70 72 65 76 45 73 63 61   .  int prevEsca
27b0: 70 65 20 3d 20 30 3b 20 20 20 20 20 2f 2a 20 54  pe = 0;     /* T
27c0: 72 75 65 20 69 66 20 74 68 65 20 70 72 65 76 69  rue if the previ
27d0: 6f 75 73 20 63 68 61 72 61 63 74 65 72 20 77 61  ous character wa
27e0: 73 20 27 65 73 63 61 70 65 27 20 2a 2f 0a 0a 20  s 'escape' */.. 
27f0: 20 77 68 69 6c 65 28 20 28 63 20 3d 20 2a 7a 50   while( (c = *zP
2800: 61 74 74 65 72 6e 29 21 3d 30 20 29 7b 0a 20 20  attern)!=0 ){.  
2810: 20 20 69 66 28 20 21 70 72 65 76 45 73 63 61 70    if( !prevEscap
2820: 65 20 26 26 20 63 3d 3d 6d 61 74 63 68 41 6c 6c  e && c==matchAll
2830: 20 29 7b 0a 20 20 20 20 20 20 77 68 69 6c 65 28   ){.      while(
2840: 20 28 63 3d 7a 50 61 74 74 65 72 6e 5b 31 5d 29   (c=zPattern[1])
2850: 20 3d 3d 20 6d 61 74 63 68 41 6c 6c 20 7c 7c 20   == matchAll || 
2860: 63 20 3d 3d 20 6d 61 74 63 68 4f 6e 65 20 29 7b  c == matchOne ){
2870: 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d  .        if( c==
2880: 6d 61 74 63 68 4f 6e 65 20 29 7b 0a 20 20 20 20  matchOne ){.    
2890: 20 20 20 20 20 20 69 66 28 20 2a 7a 53 74 72 69        if( *zStri
28a0: 6e 67 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30  ng==0 ) return 0
28b0: 3b 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69  ;.          sqli
28c0: 74 65 4e 65 78 74 43 68 61 72 28 7a 53 74 72 69  teNextChar(zStri
28d0: 6e 67 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  ng);.        }. 
28e0: 20 20 20 20 20 20 20 7a 50 61 74 74 65 72 6e 2b         zPattern+
28f0: 2b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  +;.      }.     
2900: 20 69 66 28 20 63 20 26 26 20 65 73 63 20 26 26   if( c && esc &&
2910: 20 73 71 6c 69 74 65 33 52 65 61 64 55 74 66 38   sqlite3ReadUtf8
2920: 28 26 7a 50 61 74 74 65 72 6e 5b 31 5d 29 3d 3d  (&zPattern[1])==
2930: 65 73 63 20 29 7b 0a 20 20 20 20 20 20 20 20 75  esc ){.        u
2940: 38 20 63 6f 6e 73 74 20 2a 7a 54 65 6d 70 20 3d  8 const *zTemp =
2950: 20 26 7a 50 61 74 74 65 72 6e 5b 31 5d 3b 0a 20   &zPattern[1];. 
2960: 20 20 20 20 20 20 20 73 71 6c 69 74 65 4e 65 78         sqliteNex
2970: 74 43 68 61 72 28 7a 54 65 6d 70 29 3b 0a 20 20  tChar(zTemp);.  
2980: 20 20 20 20 20 20 63 20 3d 20 2a 7a 54 65 6d 70        c = *zTemp
2990: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
29a0: 69 66 28 20 63 3d 3d 30 20 29 20 72 65 74 75 72  if( c==0 ) retur
29b0: 6e 20 31 3b 0a 20 20 20 20 20 20 69 66 28 20 63  n 1;.      if( c
29c0: 3d 3d 6d 61 74 63 68 53 65 74 20 29 7b 0a 20 20  ==matchSet ){.  
29d0: 20 20 20 20 20 20 61 73 73 65 72 74 28 20 65 73        assert( es
29e0: 63 3d 3d 30 20 29 3b 20 20 20 2f 2a 20 54 68 69  c==0 );   /* Thi
29f0: 73 20 69 73 20 47 4c 4f 42 2c 20 6e 6f 74 20 4c  s is GLOB, not L
2a00: 49 4b 45 20 2a 2f 0a 20 20 20 20 20 20 20 20 77  IKE */.        w
2a10: 68 69 6c 65 28 20 2a 7a 53 74 72 69 6e 67 20 26  hile( *zString &
2a20: 26 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 65  & patternCompare
2a30: 28 26 7a 50 61 74 74 65 72 6e 5b 31 5d 2c 7a 53  (&zPattern[1],zS
2a40: 74 72 69 6e 67 2c 70 49 6e 66 6f 2c 65 73 63 29  tring,pInfo,esc)
2a50: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  ==0 ){.         
2a60: 20 73 71 6c 69 74 65 4e 65 78 74 43 68 61 72 28   sqliteNextChar(
2a70: 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 20  zString);.      
2a80: 20 20 7d 0a 20 20 20 20 20 20 20 20 72 65 74 75    }.        retu
2a90: 72 6e 20 2a 7a 53 74 72 69 6e 67 21 3d 30 3b 0a  rn *zString!=0;.
2aa0: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20        }else{.   
2ab0: 20 20 20 20 20 77 68 69 6c 65 28 20 28 63 32 20       while( (c2 
2ac0: 3d 20 2a 7a 53 74 72 69 6e 67 29 21 3d 30 20 29  = *zString)!=0 )
2ad0: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  {.          if( 
2ae0: 6e 6f 43 61 73 65 20 29 7b 0a 20 20 20 20 20 20  noCase ){.      
2af0: 20 20 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74        c2 = sqlit
2b00: 65 33 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b 63  e3UpperToLower[c
2b10: 32 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  2];.            
2b20: 63 20 3d 20 73 71 6c 69 74 65 33 55 70 70 65 72  c = sqlite3Upper
2b30: 54 6f 4c 6f 77 65 72 5b 63 5d 3b 0a 20 20 20 20  ToLower[c];.    
2b40: 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 63          while( c
2b50: 32 20 21 3d 20 30 20 26 26 20 63 32 20 21 3d 20  2 != 0 && c2 != 
2b60: 63 20 29 7b 20 63 32 20 3d 20 73 71 6c 69 74 65  c ){ c2 = sqlite
2b70: 33 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b 2a 2b  3UpperToLower[*+
2b80: 2b 7a 53 74 72 69 6e 67 5d 3b 20 7d 0a 20 20 20  +zString]; }.   
2b90: 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20         }else{.  
2ba0: 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28            while(
2bb0: 20 63 32 20 21 3d 20 30 20 26 26 20 63 32 20 21   c2 != 0 && c2 !
2bc0: 3d 20 63 20 29 7b 20 63 32 20 3d 20 2a 2b 2b 7a  = c ){ c2 = *++z
2bd0: 53 74 72 69 6e 67 3b 20 7d 0a 20 20 20 20 20 20  String; }.      
2be0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
2bf0: 69 66 28 20 63 32 3d 3d 30 20 29 20 72 65 74 75  if( c2==0 ) retu
2c00: 72 6e 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20  rn 0;.          
2c10: 69 66 28 20 70 61 74 74 65 72 6e 43 6f 6d 70 61  if( patternCompa
2c20: 72 65 28 26 7a 50 61 74 74 65 72 6e 5b 31 5d 2c  re(&zPattern[1],
2c30: 7a 53 74 72 69 6e 67 2c 70 49 6e 66 6f 2c 65 73  zString,pInfo,es
2c40: 63 29 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 20  c) ) return 1;. 
2c50: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 4e           sqliteN
2c60: 65 78 74 43 68 61 72 28 7a 53 74 72 69 6e 67 29  extChar(zString)
2c70: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
2c80: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20      return 0;.  
2c90: 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 20      }.    }else 
2ca0: 69 66 28 20 21 70 72 65 76 45 73 63 61 70 65 20  if( !prevEscape 
2cb0: 26 26 20 63 3d 3d 6d 61 74 63 68 4f 6e 65 20 29  && c==matchOne )
2cc0: 7b 0a 20 20 20 20 20 20 69 66 28 20 2a 7a 53 74  {.      if( *zSt
2cd0: 72 69 6e 67 3d 3d 30 20 29 20 72 65 74 75 72 6e  ring==0 ) return
2ce0: 20 30 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65   0;.      sqlite
2cf0: 4e 65 78 74 43 68 61 72 28 7a 53 74 72 69 6e 67  NextChar(zString
2d00: 29 3b 0a 20 20 20 20 20 20 7a 50 61 74 74 65 72  );.      zPatter
2d10: 6e 2b 2b 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69  n++;.    }else i
2d20: 66 28 20 63 3d 3d 6d 61 74 63 68 53 65 74 20 29  f( c==matchSet )
2d30: 7b 0a 20 20 20 20 20 20 69 6e 74 20 70 72 69 6f  {.      int prio
2d40: 72 5f 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 61  r_c = 0;.      a
2d50: 73 73 65 72 74 28 20 65 73 63 3d 3d 30 20 29 3b  ssert( esc==0 );
2d60: 20 20 20 20 2f 2a 20 54 68 69 73 20 6f 6e 6c 79      /* This only
2d70: 20 6f 63 63 75 72 73 20 66 6f 72 20 47 4c 4f 42   occurs for GLOB
2d80: 2c 20 6e 6f 74 20 4c 49 4b 45 20 2a 2f 0a 20 20  , not LIKE */.  
2d90: 20 20 20 20 73 65 65 6e 20 3d 20 30 3b 0a 20 20      seen = 0;.  
2da0: 20 20 20 20 69 6e 76 65 72 74 20 3d 20 30 3b 0a      invert = 0;.
2db0: 20 20 20 20 20 20 63 20 3d 20 73 71 6c 69 74 65        c = sqlite
2dc0: 43 68 61 72 56 61 6c 28 7a 53 74 72 69 6e 67 29  CharVal(zString)
2dd0: 3b 0a 20 20 20 20 20 20 69 66 28 20 63 3d 3d 30  ;.      if( c==0
2de0: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20   ) return 0;.   
2df0: 20 20 20 63 32 20 3d 20 2a 2b 2b 7a 50 61 74 74     c2 = *++zPatt
2e00: 65 72 6e 3b 0a 20 20 20 20 20 20 69 66 28 20 63  ern;.      if( c
2e10: 32 3d 3d 27 5e 27 20 29 7b 20 69 6e 76 65 72 74  2=='^' ){ invert
2e20: 20 3d 20 31 3b 20 63 32 20 3d 20 2a 2b 2b 7a 50   = 1; c2 = *++zP
2e30: 61 74 74 65 72 6e 3b 20 7d 0a 20 20 20 20 20 20  attern; }.      
2e40: 69 66 28 20 63 32 3d 3d 27 5d 27 20 29 7b 0a 20  if( c2==']' ){. 
2e50: 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d 27 5d         if( c==']
2e60: 27 20 29 20 73 65 65 6e 20 3d 20 31 3b 0a 20 20  ' ) seen = 1;.  
2e70: 20 20 20 20 20 20 63 32 20 3d 20 2a 2b 2b 7a 50        c2 = *++zP
2e80: 61 74 74 65 72 6e 3b 0a 20 20 20 20 20 20 7d 0a  attern;.      }.
2e90: 20 20 20 20 20 20 77 68 69 6c 65 28 20 28 63 32        while( (c2
2ea0: 20 3d 20 73 71 6c 69 74 65 43 68 61 72 56 61 6c   = sqliteCharVal
2eb0: 28 7a 50 61 74 74 65 72 6e 29 29 21 3d 30 20 26  (zPattern))!=0 &
2ec0: 26 20 63 32 21 3d 27 5d 27 20 29 7b 0a 20 20 20  & c2!=']' ){.   
2ed0: 20 20 20 20 20 69 66 28 20 63 32 3d 3d 27 2d 27       if( c2=='-'
2ee0: 20 26 26 20 7a 50 61 74 74 65 72 6e 5b 31 5d 21   && zPattern[1]!
2ef0: 3d 27 5d 27 20 26 26 20 7a 50 61 74 74 65 72 6e  =']' && zPattern
2f00: 5b 31 5d 21 3d 30 20 26 26 20 70 72 69 6f 72 5f  [1]!=0 && prior_
2f10: 63 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  c>0 ){.         
2f20: 20 7a 50 61 74 74 65 72 6e 2b 2b 3b 0a 20 20 20   zPattern++;.   
2f30: 20 20 20 20 20 20 20 63 32 20 3d 20 73 71 6c 69         c2 = sqli
2f40: 74 65 43 68 61 72 56 61 6c 28 7a 50 61 74 74 65  teCharVal(zPatte
2f50: 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69  rn);.          i
2f60: 66 28 20 63 3e 3d 70 72 69 6f 72 5f 63 20 26 26  f( c>=prior_c &&
2f70: 20 63 3c 3d 63 32 20 29 20 73 65 65 6e 20 3d 20   c<=c2 ) seen = 
2f80: 31 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 69  1;.          pri
2f90: 6f 72 5f 63 20 3d 20 30 3b 0a 20 20 20 20 20 20  or_c = 0;.      
2fa0: 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d 63    }else if( c==c
2fb0: 32 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 73  2 ){.          s
2fc0: 65 65 6e 20 3d 20 31 3b 0a 20 20 20 20 20 20 20  een = 1;.       
2fd0: 20 20 20 70 72 69 6f 72 5f 63 20 3d 20 63 32 3b     prior_c = c2;
2fe0: 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a  .        }else{.
2ff0: 20 20 20 20 20 20 20 20 20 20 70 72 69 6f 72 5f            prior_
3000: 63 20 3d 20 63 32 3b 0a 20 20 20 20 20 20 20 20  c = c2;.        
3010: 7d 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65  }.        sqlite
3020: 4e 65 78 74 43 68 61 72 28 7a 50 61 74 74 65 72  NextChar(zPatter
3030: 6e 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  n);.      }.    
3040: 20 20 69 66 28 20 63 32 3d 3d 30 20 7c 7c 20 28    if( c2==0 || (
3050: 73 65 65 6e 20 5e 20 69 6e 76 65 72 74 29 3d 3d  seen ^ invert)==
3060: 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20  0 ) return 0;.  
3070: 20 20 20 20 73 71 6c 69 74 65 4e 65 78 74 43 68      sqliteNextCh
3080: 61 72 28 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20  ar(zString);.   
3090: 20 20 20 7a 50 61 74 74 65 72 6e 2b 2b 3b 0a 20     zPattern++;. 
30a0: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 65 73 63     }else if( esc
30b0: 20 26 26 20 21 70 72 65 76 45 73 63 61 70 65 20   && !prevEscape 
30c0: 26 26 20 73 71 6c 69 74 65 33 52 65 61 64 55 74  && sqlite3ReadUt
30d0: 66 38 28 7a 50 61 74 74 65 72 6e 29 3d 3d 65 73  f8(zPattern)==es
30e0: 63 29 7b 0a 20 20 20 20 20 20 70 72 65 76 45 73  c){.      prevEs
30f0: 63 61 70 65 20 3d 20 31 3b 0a 20 20 20 20 20 20  cape = 1;.      
3100: 73 71 6c 69 74 65 4e 65 78 74 43 68 61 72 28 7a  sqliteNextChar(z
3110: 50 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 7d 65  Pattern);.    }e
3120: 6c 73 65 7b 0a 20 20 20 20 20 20 69 66 28 20 6e  lse{.      if( n
3130: 6f 43 61 73 65 20 29 7b 0a 20 20 20 20 20 20 20  oCase ){.       
3140: 20 69 66 28 20 73 71 6c 69 74 65 33 55 70 70 65   if( sqlite3Uppe
3150: 72 54 6f 4c 6f 77 65 72 5b 63 5d 20 21 3d 20 73  rToLower[c] != s
3160: 71 6c 69 74 65 33 55 70 70 65 72 54 6f 4c 6f 77  qlite3UpperToLow
3170: 65 72 5b 2a 7a 53 74 72 69 6e 67 5d 20 29 20 72  er[*zString] ) r
3180: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 7d  eturn 0;.      }
3190: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 69 66  else{.        if
31a0: 28 20 63 20 21 3d 20 2a 7a 53 74 72 69 6e 67 20  ( c != *zString 
31b0: 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20  ) return 0;.    
31c0: 20 20 7d 0a 20 20 20 20 20 20 7a 50 61 74 74 65    }.      zPatte
31d0: 72 6e 2b 2b 3b 0a 20 20 20 20 20 20 7a 53 74 72  rn++;.      zStr
31e0: 69 6e 67 2b 2b 3b 0a 20 20 20 20 20 20 70 72 65  ing++;.      pre
31f0: 76 45 73 63 61 70 65 20 3d 20 30 3b 0a 20 20 20  vEscape = 0;.   
3200: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20   }.  }.  return 
3210: 2a 7a 53 74 72 69 6e 67 3d 3d 30 3b 0a 7d 0a 0a  *zString==0;.}..
3220: 2f 2a 0a 2a 2a 20 43 6f 75 6e 74 20 74 68 65 20  /*.** Count the 
3230: 6e 75 6d 62 65 72 20 6f 66 20 74 69 6d 65 73 20  number of times 
3240: 74 68 61 74 20 74 68 65 20 4c 49 4b 45 20 6f 70  that the LIKE op
3250: 65 72 61 74 6f 72 20 28 6f 72 20 47 4c 4f 42 20  erator (or GLOB 
3260: 77 68 69 63 68 20 69 73 0a 2a 2a 20 6a 75 73 74  which is.** just
3270: 20 61 20 76 61 72 69 61 74 69 6f 6e 20 6f 66 20   a variation of 
3280: 4c 49 4b 45 29 20 67 65 74 73 20 63 61 6c 6c 65  LIKE) gets calle
3290: 64 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 64  d.  This is used
32a0: 20 66 6f 72 20 74 65 73 74 69 6e 67 0a 2a 2a 20   for testing.** 
32b0: 6f 6e 6c 79 2e 0a 2a 2f 0a 23 69 66 64 65 66 20  only..*/.#ifdef 
32c0: 53 51 4c 49 54 45 5f 54 45 53 54 0a 69 6e 74 20  SQLITE_TEST.int 
32d0: 73 71 6c 69 74 65 33 5f 6c 69 6b 65 5f 63 6f 75  sqlite3_like_cou
32e0: 6e 74 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 0a  nt = 0;.#endif..
32f0: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74  ./*.** Implement
3300: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c 69 6b  ation of the lik
3310: 65 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e  e() SQL function
3320: 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e  .  This function
3330: 20 69 6d 70 6c 65 6d 65 6e 74 73 0a 2a 2a 20 74   implements.** t
3340: 68 65 20 62 75 69 6c 64 2d 69 6e 20 4c 49 4b 45  he build-in LIKE
3350: 20 6f 70 65 72 61 74 6f 72 2e 20 20 54 68 65 20   operator.  The 
3360: 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74  first argument t
3370: 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69  o the function i
3380: 73 20 74 68 65 0a 2a 2a 20 70 61 74 74 65 72 6e  s the.** pattern
3390: 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20   and the second 
33a0: 61 72 67 75 6d 65 6e 74 20 69 73 20 74 68 65 20  argument is the 
33b0: 73 74 72 69 6e 67 2e 20 20 53 6f 2c 20 74 68 65  string.  So, the
33c0: 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 3a   SQL statements:
33d0: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 41 20 4c  .**.**       A L
33e0: 49 4b 45 20 42 0a 2a 2a 0a 2a 2a 20 69 73 20 69  IKE B.**.** is i
33f0: 6d 70 6c 65 6d 65 6e 74 65 64 20 61 73 20 6c 69  mplemented as li
3400: 6b 65 28 42 2c 41 29 2e 0a 2a 2a 0a 2a 2a 20 54  ke(B,A)..**.** T
3410: 68 69 73 20 73 61 6d 65 20 66 75 6e 63 74 69 6f  his same functio
3420: 6e 20 28 77 69 74 68 20 61 20 64 69 66 66 65 72  n (with a differ
3430: 65 6e 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20  ent compareInfo 
3440: 73 74 72 75 63 74 75 72 65 29 20 63 6f 6d 70 75  structure) compu
3450: 74 65 73 0a 2a 2a 20 74 68 65 20 47 4c 4f 42 20  tes.** the GLOB 
3460: 6f 70 65 72 61 74 6f 72 2e 0a 2a 2f 0a 73 74 61  operator..*/.sta
3470: 74 69 63 20 76 6f 69 64 20 6c 69 6b 65 46 75 6e  tic void likeFun
3480: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  c(.  sqlite3_con
3490: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 0a  text *context, .
34a0: 20 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 20 73    int argc, .  s
34b0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61  qlite3_value **a
34c0: 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 75  rgv.){.  const u
34d0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 41  nsigned char *zA
34e0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
34f0: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a  _text(argv[0]);.
3500: 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64    const unsigned
3510: 20 63 68 61 72 20 2a 7a 42 20 3d 20 73 71 6c 69   char *zB = sqli
3520: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
3530: 72 67 76 5b 31 5d 29 3b 0a 20 20 69 6e 74 20 65  rgv[1]);.  int e
3540: 73 63 61 70 65 20 3d 20 30 3b 0a 20 20 69 66 28  scape = 0;.  if(
3550: 20 61 72 67 63 3d 3d 33 20 29 7b 0a 20 20 20 20   argc==3 ){.    
3560: 2f 2a 20 54 68 65 20 65 73 63 61 70 65 20 63 68  /* The escape ch
3570: 61 72 61 63 74 65 72 20 73 74 72 69 6e 67 20 6d  aracter string m
3580: 75 73 74 20 63 6f 6e 73 69 73 74 20 6f 66 20 61  ust consist of a
3590: 20 73 69 6e 67 6c 65 20 55 54 46 2d 38 20 63 68   single UTF-8 ch
35a0: 61 72 61 63 74 65 72 2e 0a 20 20 20 20 2a 2a 20  aracter..    ** 
35b0: 4f 74 68 65 72 77 69 73 65 2c 20 72 65 74 75 72  Otherwise, retur
35c0: 6e 20 61 6e 20 65 72 72 6f 72 2e 0a 20 20 20 20  n an error..    
35d0: 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 75 6e 73  */.    const uns
35e0: 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 45 73 63  igned char *zEsc
35f0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
3600: 5f 74 65 78 74 28 61 72 67 76 5b 32 5d 29 3b 0a  _text(argv[2]);.
3610: 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 75      if( sqlite3u
3620: 74 66 38 43 68 61 72 4c 65 6e 28 28 63 68 61 72  tf8CharLen((char
3630: 2a 29 7a 45 73 63 2c 20 2d 31 29 21 3d 31 20 29  *)zEsc, -1)!=1 )
3640: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  {.      sqlite3_
3650: 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e  result_error(con
3660: 74 65 78 74 2c 20 0a 20 20 20 20 20 20 20 20 20  text, .         
3670: 20 22 45 53 43 41 50 45 20 65 78 70 72 65 73 73   "ESCAPE express
3680: 69 6f 6e 20 6d 75 73 74 20 62 65 20 61 20 73 69  ion must be a si
3690: 6e 67 6c 65 20 63 68 61 72 61 63 74 65 72 22 2c  ngle character",
36a0: 20 2d 31 29 3b 0a 20 20 20 20 20 20 72 65 74 75   -1);.      retu
36b0: 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 73  rn;.    }.    es
36c0: 63 61 70 65 20 3d 20 73 71 6c 69 74 65 33 52 65  cape = sqlite3Re
36d0: 61 64 55 74 66 38 28 7a 45 73 63 29 3b 0a 20 20  adUtf8(zEsc);.  
36e0: 7d 0a 20 20 69 66 28 20 7a 41 20 26 26 20 7a 42  }.  if( zA && zB
36f0: 20 29 7b 0a 20 20 20 20 73 74 72 75 63 74 20 63   ){.    struct c
3700: 6f 6d 70 61 72 65 49 6e 66 6f 20 2a 70 49 6e 66  ompareInfo *pInf
3710: 6f 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65 72  o = sqlite3_user
3720: 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a  _data(context);.
3730: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45  #ifdef SQLITE_TE
3740: 53 54 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6c  ST.    sqlite3_l
3750: 69 6b 65 5f 63 6f 75 6e 74 2b 2b 3b 0a 23 65 6e  ike_count++;.#en
3760: 64 69 66 0a 20 20 20 20 73 71 6c 69 74 65 33 5f  dif.    sqlite3_
3770: 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65  result_int(conte
3780: 78 74 2c 20 70 61 74 74 65 72 6e 43 6f 6d 70 61  xt, patternCompa
3790: 72 65 28 7a 41 2c 20 7a 42 2c 20 70 49 6e 66 6f  re(zA, zB, pInfo
37a0: 2c 20 65 73 63 61 70 65 29 29 3b 0a 20 20 7d 0a  , escape));.  }.
37b0: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65  }../*.** Impleme
37c0: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 4e  ntation of the N
37d0: 55 4c 4c 49 46 28 78 2c 79 29 20 66 75 6e 63 74  ULLIF(x,y) funct
37e0: 69 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c 74  ion.  The result
37f0: 20 69 73 20 74 68 65 20 66 69 72 73 74 0a 2a 2a   is the first.**
3800: 20 61 72 67 75 6d 65 6e 74 20 69 66 20 74 68 65   argument if the
3810: 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 64   arguments are d
3820: 69 66 66 65 72 65 6e 74 2e 20 20 54 68 65 20 72  ifferent.  The r
3830: 65 73 75 6c 74 20 69 73 20 4e 55 4c 4c 20 69 66  esult is NULL if
3840: 20 74 68 65 0a 2a 2a 20 61 72 67 75 6d 65 6e 74   the.** argument
3850: 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 65  s are equal to e
3860: 61 63 68 20 6f 74 68 65 72 2e 0a 2a 2f 0a 73 74  ach other..*/.st
3870: 61 74 69 63 20 76 6f 69 64 20 6e 75 6c 6c 69 66  atic void nullif
3880: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f  Func(.  sqlite3_
3890: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
38a0: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20  ,.  int argc,.  
38b0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
38c0: 61 72 67 76 0a 29 7b 0a 20 20 43 6f 6c 6c 53 65  argv.){.  CollSe
38d0: 71 20 2a 70 43 6f 6c 6c 20 3d 20 73 71 6c 69 74  q *pColl = sqlit
38e0: 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71  e3GetFuncCollSeq
38f0: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 69 66 28  (context);.  if(
3900: 20 73 71 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61   sqlite3MemCompa
3910: 72 65 28 61 72 67 76 5b 30 5d 2c 20 61 72 67 76  re(argv[0], argv
3920: 5b 31 5d 2c 20 70 43 6f 6c 6c 29 21 3d 30 20 29  [1], pColl)!=0 )
3930: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65  {.    sqlite3_re
3940: 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65  sult_value(conte
3950: 78 74 2c 20 61 72 67 76 5b 30 5d 29 3b 0a 20 20  xt, argv[0]);.  
3960: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65  }.}../*.** Imple
3970: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65  mentation of the
3980: 20 56 45 52 53 49 4f 4e 28 2a 29 20 66 75 6e 63   VERSION(*) func
3990: 74 69 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c  tion.  The resul
39a0: 74 20 69 73 20 74 68 65 20 76 65 72 73 69 6f 6e  t is the version
39b0: 0a 2a 2a 20 6f 66 20 74 68 65 20 53 51 4c 69 74  .** of the SQLit
39c0: 65 20 6c 69 62 72 61 72 79 20 74 68 61 74 20 69  e library that i
39d0: 73 20 72 75 6e 6e 69 6e 67 2e 0a 2a 2f 0a 73 74  s running..*/.st
39e0: 61 74 69 63 20 76 6f 69 64 20 76 65 72 73 69 6f  atic void versio
39f0: 6e 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33  nFunc(.  sqlite3
3a00: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
3a10: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20  t,.  int argc,. 
3a20: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
3a30: 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74  *argv.){.  sqlit
3a40: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63  e3_result_text(c
3a50: 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33 5f  ontext, sqlite3_
3a60: 76 65 72 73 69 6f 6e 2c 20 2d 31 2c 20 53 51 4c  version, -1, SQL
3a70: 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 7d 0a 0a  ITE_STATIC);.}..
3a80: 0a 2f 2a 0a 2a 2a 20 45 58 50 45 52 49 4d 45 4e  ./*.** EXPERIMEN
3a90: 54 41 4c 20 2d 20 54 68 69 73 20 69 73 20 6e 6f  TAL - This is no
3aa0: 74 20 61 6e 20 6f 66 66 69 63 69 61 6c 20 66 75  t an official fu
3ab0: 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 69 6e 74  nction.  The int
3ac0: 65 72 66 61 63 65 20 6d 61 79 0a 2a 2a 20 63 68  erface may.** ch
3ad0: 61 6e 67 65 2e 20 20 54 68 69 73 20 66 75 6e 63  ange.  This func
3ae0: 74 69 6f 6e 20 6d 61 79 20 64 69 73 61 70 70 65  tion may disappe
3af0: 61 72 2e 20 20 44 6f 20 6e 6f 74 20 77 72 69 74  ar.  Do not writ
3b00: 65 20 63 6f 64 65 20 74 68 61 74 20 64 65 70 65  e code that depe
3b10: 6e 64 73 0a 2a 2a 20 6f 6e 20 74 68 69 73 20 66  nds.** on this f
3b20: 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 49  unction..**.** I
3b30: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66  mplementation of
3b40: 20 74 68 65 20 51 55 4f 54 45 28 29 20 66 75 6e   the QUOTE() fun
3b50: 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 66 75 6e  ction.  This fun
3b60: 63 74 69 6f 6e 20 74 61 6b 65 73 20 61 20 73 69  ction takes a si
3b70: 6e 67 6c 65 0a 2a 2a 20 61 72 67 75 6d 65 6e 74  ngle.** argument
3b80: 2e 20 20 49 66 20 74 68 65 20 61 72 67 75 6d 65  .  If the argume
3b90: 6e 74 20 69 73 20 6e 75 6d 65 72 69 63 2c 20 74  nt is numeric, t
3ba0: 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20  he return value 
3bb0: 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 0a 2a  is the same as.*
3bc0: 2a 20 74 68 65 20 61 72 67 75 6d 65 6e 74 2e 20  * the argument. 
3bd0: 20 49 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74   If the argument
3be0: 20 69 73 20 4e 55 4c 4c 2c 20 74 68 65 20 72 65   is NULL, the re
3bf0: 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68  turn value is th
3c00: 65 20 73 74 72 69 6e 67 0a 2a 2a 20 22 4e 55 4c  e string.** "NUL
3c10: 4c 22 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20  L".  Otherwise, 
3c20: 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 20  the argument is 
3c30: 65 6e 63 6c 6f 73 65 64 20 69 6e 20 73 69 6e 67  enclosed in sing
3c40: 6c 65 20 71 75 6f 74 65 73 20 77 69 74 68 0a 2a  le quotes with.*
3c50: 2a 20 73 69 6e 67 6c 65 2d 71 75 6f 74 65 20 65  * single-quote e
3c60: 73 63 61 70 65 73 2e 0a 2a 2f 0a 73 74 61 74 69  scapes..*/.stati
3c70: 63 20 76 6f 69 64 20 71 75 6f 74 65 46 75 6e 63  c void quoteFunc
3c80: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74  (sqlite3_context
3c90: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61   *context, int a
3ca0: 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c  rgc, sqlite3_val
3cb0: 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 66  ue **argv){.  if
3cc0: 28 20 61 72 67 63 3c 31 20 29 20 72 65 74 75 72  ( argc<1 ) retur
3cd0: 6e 3b 0a 20 20 73 77 69 74 63 68 28 20 73 71 6c  n;.  switch( sql
3ce0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28  ite3_value_type(
3cf0: 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20  argv[0]) ){.    
3d00: 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c  case SQLITE_NULL
3d10: 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65  : {.      sqlite
3d20: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f  3_result_text(co
3d30: 6e 74 65 78 74 2c 20 22 4e 55 4c 4c 22 2c 20 34  ntext, "NULL", 4
3d40: 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29  , SQLITE_STATIC)
3d50: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20  ;.      break;. 
3d60: 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 53 51     }.    case SQ
3d70: 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a 0a 20 20  LITE_INTEGER:.  
3d80: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 46 4c    case SQLITE_FL
3d90: 4f 41 54 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c  OAT: {.      sql
3da0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75  ite3_result_valu
3db0: 65 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b  e(context, argv[
3dc0: 30 5d 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b  0]);.      break
3dd0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65  ;.    }.    case
3de0: 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 20 7b 0a   SQLITE_BLOB: {.
3df0: 20 20 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e        static con
3e00: 73 74 20 63 68 61 72 20 68 65 78 64 69 67 69 74  st char hexdigit
3e10: 73 5b 5d 20 3d 20 7b 20 0a 20 20 20 20 20 20 20  s[] = { .       
3e20: 20 27 30 27 2c 20 27 31 27 2c 20 27 32 27 2c 20   '0', '1', '2', 
3e30: 27 33 27 2c 20 27 34 27 2c 20 27 35 27 2c 20 27  '3', '4', '5', '
3e40: 36 27 2c 20 27 37 27 2c 0a 20 20 20 20 20 20 20  6', '7',.       
3e50: 20 27 38 27 2c 20 27 39 27 2c 20 27 41 27 2c 20   '8', '9', 'A', 
3e60: 27 42 27 2c 20 27 43 27 2c 20 27 44 27 2c 20 27  'B', 'C', 'D', '
3e70: 45 27 2c 20 27 46 27 20 0a 20 20 20 20 20 20 7d  E', 'F' .      }
3e80: 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a 54  ;.      char *zT
3e90: 65 78 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 69  ext = 0;.      i
3ea0: 6e 74 20 6e 42 6c 6f 62 20 3d 20 73 71 6c 69 74  nt nBlob = sqlit
3eb0: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61  e3_value_bytes(a
3ec0: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 63  rgv[0]);.      c
3ed0: 68 61 72 20 63 6f 6e 73 74 20 2a 7a 42 6c 6f 62  har const *zBlob
3ee0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
3ef0: 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d 29 3b 0a  _blob(argv[0]);.
3f00: 0a 20 20 20 20 20 20 7a 54 65 78 74 20 3d 20 28  .      zText = (
3f10: 63 68 61 72 20 2a 29 73 71 6c 69 74 65 4d 61 6c  char *)sqliteMal
3f20: 6c 6f 63 28 28 32 2a 6e 42 6c 6f 62 29 2b 34 29  loc((2*nBlob)+4)
3f30: 3b 20 0a 20 20 20 20 20 20 69 66 28 20 21 7a 54  ; .      if( !zT
3f40: 65 78 74 20 29 7b 0a 20 20 20 20 20 20 20 20 73  ext ){.        s
3f50: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72  qlite3_result_er
3f60: 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 22 6f 75  ror(context, "ou
3f70: 74 20 6f 66 20 6d 65 6d 6f 72 79 22 2c 20 2d 31  t of memory", -1
3f80: 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a  );.      }else{.
3f90: 20 20 20 20 20 20 20 20 69 6e 74 20 69 3b 0a 20          int i;. 
3fa0: 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20         for(i=0; 
3fb0: 69 3c 6e 42 6c 6f 62 3b 20 69 2b 2b 29 7b 0a 20  i<nBlob; i++){. 
3fc0: 20 20 20 20 20 20 20 20 20 7a 54 65 78 74 5b 28           zText[(
3fd0: 69 2a 32 29 2b 32 5d 20 3d 20 68 65 78 64 69 67  i*2)+2] = hexdig
3fe0: 69 74 73 5b 28 7a 42 6c 6f 62 5b 69 5d 3e 3e 34  its[(zBlob[i]>>4
3ff0: 29 26 30 78 30 46 5d 3b 0a 20 20 20 20 20 20 20  )&0x0F];.       
4000: 20 20 20 7a 54 65 78 74 5b 28 69 2a 32 29 2b 33     zText[(i*2)+3
4010: 5d 20 3d 20 68 65 78 64 69 67 69 74 73 5b 28 7a  ] = hexdigits[(z
4020: 42 6c 6f 62 5b 69 5d 29 26 30 78 30 46 5d 3b 0a  Blob[i])&0x0F];.
4030: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
4040: 20 20 7a 54 65 78 74 5b 28 6e 42 6c 6f 62 2a 32    zText[(nBlob*2
4050: 29 2b 32 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20  )+2] = '\'';.   
4060: 20 20 20 20 20 7a 54 65 78 74 5b 28 6e 42 6c 6f       zText[(nBlo
4070: 62 2a 32 29 2b 33 5d 20 3d 20 27 5c 30 27 3b 0a  b*2)+3] = '\0';.
4080: 20 20 20 20 20 20 20 20 7a 54 65 78 74 5b 30 5d          zText[0]
4090: 20 3d 20 27 58 27 3b 0a 20 20 20 20 20 20 20 20   = 'X';.        
40a0: 7a 54 65 78 74 5b 31 5d 20 3d 20 27 5c 27 27 3b  zText[1] = '\'';
40b0: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33  .        sqlite3
40c0: 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e  _result_text(con
40d0: 74 65 78 74 2c 20 7a 54 65 78 74 2c 20 2d 31 2c  text, zText, -1,
40e0: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e   SQLITE_TRANSIEN
40f0: 54 29 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69  T);.        sqli
4100: 74 65 46 72 65 65 28 7a 54 65 78 74 29 3b 0a 20  teFree(zText);. 
4110: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 62 72 65       }.      bre
4120: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61  ak;.    }.    ca
4130: 73 65 20 53 51 4c 49 54 45 5f 54 45 58 54 3a 20  se SQLITE_TEXT: 
4140: 7b 0a 20 20 20 20 20 20 69 6e 74 20 69 2c 6a 2c  {.      int i,j,
4150: 6e 3b 0a 20 20 20 20 20 20 63 6f 6e 73 74 20 75  n;.      const u
4160: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 41  nsigned char *zA
4170: 72 67 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c  rg = sqlite3_val
4180: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29  ue_text(argv[0])
4190: 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a 3b  ;.      char *z;
41a0: 0a 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 6e 3d  ..      for(i=n=
41b0: 30 3b 20 7a 41 72 67 5b 69 5d 3b 20 69 2b 2b 29  0; zArg[i]; i++)
41c0: 7b 20 69 66 28 20 7a 41 72 67 5b 69 5d 3d 3d 27  { if( zArg[i]=='
41d0: 5c 27 27 20 29 20 6e 2b 2b 3b 20 7d 0a 20 20 20  \'' ) n++; }.   
41e0: 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 4d 61 6c     z = sqliteMal
41f0: 6c 6f 63 28 20 69 2b 6e 2b 33 20 29 3b 0a 20 20  loc( i+n+3 );.  
4200: 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 29 20 72      if( z==0 ) r
4210: 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 7a 5b 30  eturn;.      z[0
4220: 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20  ] = '\'';.      
4230: 66 6f 72 28 69 3d 30 2c 20 6a 3d 31 3b 20 7a 41  for(i=0, j=1; zA
4240: 72 67 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20  rg[i]; i++){.   
4250: 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 7a 41       z[j++] = zA
4260: 72 67 5b 69 5d 3b 0a 20 20 20 20 20 20 20 20 69  rg[i];.        i
4270: 66 28 20 7a 41 72 67 5b 69 5d 3d 3d 27 5c 27 27  f( zArg[i]=='\''
4280: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 5b   ){.          z[
4290: 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20  j++] = '\'';.   
42a0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20       }.      }. 
42b0: 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 27 5c       z[j++] = '\
42c0: 27 27 3b 0a 20 20 20 20 20 20 7a 5b 6a 5d 20 3d  '';.      z[j] =
42d0: 20 30 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65   0;.      sqlite
42e0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f  3_result_text(co
42f0: 6e 74 65 78 74 2c 20 7a 2c 20 6a 2c 20 53 51 4c  ntext, z, j, SQL
4300: 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a  ITE_TRANSIENT);.
4310: 20 20 20 20 20 20 73 71 6c 69 74 65 46 72 65 65        sqliteFree
4320: 28 7a 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d  (z);.    }.  }.}
4330: 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f  ..#ifdef SQLITE_
4340: 53 4f 55 4e 44 45 58 0a 2f 2a 0a 2a 2a 20 43 6f  SOUNDEX./*.** Co
4350: 6d 70 75 74 65 20 74 68 65 20 73 6f 75 6e 64 65  mpute the sounde
4360: 78 20 65 6e 63 6f 64 69 6e 67 20 6f 66 20 61 20  x encoding of a 
4370: 77 6f 72 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  word..*/.static 
4380: 76 6f 69 64 20 73 6f 75 6e 64 65 78 46 75 6e 63  void soundexFunc
4390: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74  (sqlite3_context
43a0: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61   *context, int a
43b0: 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c  rgc, sqlite3_val
43c0: 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 68  ue **argv){.  ch
43d0: 61 72 20 7a 52 65 73 75 6c 74 5b 38 5d 3b 0a 20  ar zResult[8];. 
43e0: 20 63 6f 6e 73 74 20 75 38 20 2a 7a 49 6e 3b 0a   const u8 *zIn;.
43f0: 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 20 73 74    int i, j;.  st
4400: 61 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67  atic const unsig
4410: 6e 65 64 20 63 68 61 72 20 69 43 6f 64 65 5b 5d  ned char iCode[]
4420: 20 3d 20 7b 0a 20 20 20 20 30 2c 20 30 2c 20 30   = {.    0, 0, 0
4430: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
4440: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
4450: 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20  0, 0, 0,.    0, 
4460: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
4470: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
4480: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20   0, 0, 0, 0,.   
4490: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
44a0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
44b0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
44c0: 0a 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c  .    0, 0, 0, 0,
44d0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
44e0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
44f0: 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 31  , 0,.    0, 0, 1
4500: 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2c 20 32 2c  , 2, 3, 0, 1, 2,
4510: 20 30 2c 20 30 2c 20 32 2c 20 32 2c 20 34 2c 20   0, 0, 2, 2, 4, 
4520: 35 2c 20 35 2c 20 30 2c 0a 20 20 20 20 31 2c 20  5, 5, 0,.    1, 
4530: 32 2c 20 36 2c 20 32 2c 20 33 2c 20 30 2c 20 31  2, 6, 2, 3, 0, 1
4540: 2c 20 30 2c 20 32 2c 20 30 2c 20 32 2c 20 30 2c  , 0, 2, 0, 2, 0,
4550: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20   0, 0, 0, 0,.   
4560: 20 30 2c 20 30 2c 20 31 2c 20 32 2c 20 33 2c 20   0, 0, 1, 2, 3, 
4570: 30 2c 20 31 2c 20 32 2c 20 30 2c 20 30 2c 20 32  0, 1, 2, 0, 0, 2
4580: 2c 20 32 2c 20 34 2c 20 35 2c 20 35 2c 20 30 2c  , 2, 4, 5, 5, 0,
4590: 0a 20 20 20 20 31 2c 20 32 2c 20 36 2c 20 32 2c  .    1, 2, 6, 2,
45a0: 20 33 2c 20 30 2c 20 31 2c 20 30 2c 20 32 2c 20   3, 0, 1, 0, 2, 
45b0: 30 2c 20 32 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 2, 0, 0, 0, 0
45c0: 2c 20 30 2c 0a 20 20 7d 3b 0a 20 20 61 73 73 65  , 0,.  };.  asse
45d0: 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20  rt( argc==1 );. 
45e0: 20 7a 49 6e 20 3d 20 28 75 38 2a 29 73 71 6c 69   zIn = (u8*)sqli
45f0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
4600: 72 67 76 5b 30 5d 29 3b 0a 20 20 66 6f 72 28 69  rgv[0]);.  for(i
4610: 3d 30 3b 20 7a 49 6e 5b 69 5d 20 26 26 20 21 69  =0; zIn[i] && !i
4620: 73 61 6c 70 68 61 28 7a 49 6e 5b 69 5d 29 3b 20  salpha(zIn[i]); 
4630: 69 2b 2b 29 7b 7d 0a 20 20 69 66 28 20 7a 49 6e  i++){}.  if( zIn
4640: 5b 69 5d 20 29 7b 0a 20 20 20 20 7a 52 65 73 75  [i] ){.    zResu
4650: 6c 74 5b 30 5d 20 3d 20 74 6f 75 70 70 65 72 28  lt[0] = toupper(
4660: 7a 49 6e 5b 69 5d 29 3b 0a 20 20 20 20 66 6f 72  zIn[i]);.    for
4670: 28 6a 3d 31 3b 20 6a 3c 34 20 26 26 20 7a 49 6e  (j=1; j<4 && zIn
4680: 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20  [i]; i++){.     
4690: 20 69 6e 74 20 63 6f 64 65 20 3d 20 69 43 6f 64   int code = iCod
46a0: 65 5b 7a 49 6e 5b 69 5d 26 30 78 37 66 5d 3b 0a  e[zIn[i]&0x7f];.
46b0: 20 20 20 20 20 20 69 66 28 20 63 6f 64 65 3e 30        if( code>0
46c0: 20 29 7b 0a 20 20 20 20 20 20 20 20 7a 52 65 73   ){.        zRes
46d0: 75 6c 74 5b 6a 2b 2b 5d 20 3d 20 63 6f 64 65 20  ult[j++] = code 
46e0: 2b 20 27 30 27 3b 0a 20 20 20 20 20 20 7d 0a 20  + '0';.      }. 
46f0: 20 20 20 7d 0a 20 20 20 20 77 68 69 6c 65 28 20     }.    while( 
4700: 6a 3c 34 20 29 7b 0a 20 20 20 20 20 20 7a 52 65  j<4 ){.      zRe
4710: 73 75 6c 74 5b 6a 2b 2b 5d 20 3d 20 27 30 27 3b  sult[j++] = '0';
4720: 0a 20 20 20 20 7d 0a 20 20 20 20 7a 52 65 73 75  .    }.    zResu
4730: 6c 74 5b 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 73  lt[j] = 0;.    s
4740: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65  qlite3_result_te
4750: 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 52 65 73  xt(context, zRes
4760: 75 6c 74 2c 20 34 2c 20 53 51 4c 49 54 45 5f 54  ult, 4, SQLITE_T
4770: 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 7d 65 6c  RANSIENT);.  }el
4780: 73 65 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f  se{.    sqlite3_
4790: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74  result_text(cont
47a0: 65 78 74 2c 20 22 3f 30 30 30 22 2c 20 34 2c 20  ext, "?000", 4, 
47b0: 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a  SQLITE_STATIC);.
47c0: 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 69    }.}.#endif..#i
47d0: 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54  fdef SQLITE_TEST
47e0: 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63  ./*.** This func
47f0: 74 69 6f 6e 20 67 65 6e 65 72 61 74 65 73 20 61  tion generates a
4800: 20 73 74 72 69 6e 67 20 6f 66 20 72 61 6e 64 6f   string of rando
4810: 6d 20 63 68 61 72 61 63 74 65 72 73 2e 20 20 55  m characters.  U
4820: 73 65 64 20 66 6f 72 0a 2a 2a 20 67 65 6e 65 72  sed for.** gener
4830: 61 74 69 6e 67 20 74 65 73 74 20 64 61 74 61 2e  ating test data.
4840: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
4850: 72 61 6e 64 53 74 72 28 73 71 6c 69 74 65 33 5f  randStr(sqlite3_
4860: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
4870: 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69  , int argc, sqli
4880: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
4890: 29 7b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73  ){.  static cons
48a0: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20  t unsigned char 
48b0: 7a 53 72 63 5b 5d 20 3d 20 0a 20 20 20 20 20 22  zSrc[] = .     "
48c0: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70  abcdefghijklmnop
48d0: 71 72 73 74 75 76 77 78 79 7a 22 0a 20 20 20 20  qrstuvwxyz".    
48e0: 20 22 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e   "ABCDEFGHIJKLMN
48f0: 4f 50 51 52 53 54 55 56 57 58 59 5a 22 0a 20 20  OPQRSTUVWXYZ".  
4900: 20 20 20 22 30 31 32 33 34 35 36 37 38 39 22 0a     "0123456789".
4910: 20 20 20 20 20 22 2e 2d 21 2c 3a 2a 5e 2b 3d 5f       ".-!,:*^+=_
4920: 7c 3f 2f 3c 3e 20 22 3b 0a 20 20 69 6e 74 20 69  |?/<> ";.  int i
4930: 4d 69 6e 2c 20 69 4d 61 78 2c 20 6e 2c 20 72 2c  Min, iMax, n, r,
4940: 20 69 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63   i;.  unsigned c
4950: 68 61 72 20 7a 42 75 66 5b 31 30 30 30 5d 3b 0a  har zBuf[1000];.
4960: 20 20 69 66 28 20 61 72 67 63 3e 3d 31 20 29 7b    if( argc>=1 ){
4970: 0a 20 20 20 20 69 4d 69 6e 20 3d 20 73 71 6c 69  .    iMin = sqli
4980: 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72  te3_value_int(ar
4990: 67 76 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 20  gv[0]);.    if( 
49a0: 69 4d 69 6e 3c 30 20 29 20 69 4d 69 6e 20 3d 20  iMin<0 ) iMin = 
49b0: 30 3b 0a 20 20 20 20 69 66 28 20 69 4d 69 6e 3e  0;.    if( iMin>
49c0: 3d 73 69 7a 65 6f 66 28 7a 42 75 66 29 20 29 20  =sizeof(zBuf) ) 
49d0: 69 4d 69 6e 20 3d 20 73 69 7a 65 6f 66 28 7a 42  iMin = sizeof(zB
49e0: 75 66 29 2d 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a  uf)-1;.  }else{.
49f0: 20 20 20 20 69 4d 69 6e 20 3d 20 31 3b 0a 20 20      iMin = 1;.  
4a00: 7d 0a 20 20 69 66 28 20 61 72 67 63 3e 3d 32 20  }.  if( argc>=2 
4a10: 29 7b 0a 20 20 20 20 69 4d 61 78 20 3d 20 73 71  ){.    iMax = sq
4a20: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28  lite3_value_int(
4a30: 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 69 66  argv[1]);.    if
4a40: 28 20 69 4d 61 78 3c 69 4d 69 6e 20 29 20 69 4d  ( iMax<iMin ) iM
4a50: 61 78 20 3d 20 69 4d 69 6e 3b 0a 20 20 20 20 69  ax = iMin;.    i
4a60: 66 28 20 69 4d 61 78 3e 3d 73 69 7a 65 6f 66 28  f( iMax>=sizeof(
4a70: 7a 42 75 66 29 20 29 20 69 4d 61 78 20 3d 20 73  zBuf) ) iMax = s
4a80: 69 7a 65 6f 66 28 7a 42 75 66 29 2d 31 3b 0a 20  izeof(zBuf)-1;. 
4a90: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 4d 61 78   }else{.    iMax
4aa0: 20 3d 20 35 30 3b 0a 20 20 7d 0a 20 20 6e 20 3d   = 50;.  }.  n =
4ab0: 20 69 4d 69 6e 3b 0a 20 20 69 66 28 20 69 4d 61   iMin;.  if( iMa
4ac0: 78 3e 69 4d 69 6e 20 29 7b 0a 20 20 20 20 73 71  x>iMin ){.    sq
4ad0: 6c 69 74 65 33 52 61 6e 64 6f 6d 6e 65 73 73 28  lite3Randomness(
4ae0: 73 69 7a 65 6f 66 28 72 29 2c 20 26 72 29 3b 0a  sizeof(r), &r);.
4af0: 20 20 20 20 72 20 26 3d 20 30 78 37 66 66 66 66      r &= 0x7ffff
4b00: 66 66 66 3b 0a 20 20 20 20 6e 20 2b 3d 20 72 25  fff;.    n += r%
4b10: 28 69 4d 61 78 20 2b 20 31 20 2d 20 69 4d 69 6e  (iMax + 1 - iMin
4b20: 29 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28  );.  }.  assert(
4b30: 20 6e 3c 73 69 7a 65 6f 66 28 7a 42 75 66 29 20   n<sizeof(zBuf) 
4b40: 29 3b 0a 20 20 73 71 6c 69 74 65 33 52 61 6e 64  );.  sqlite3Rand
4b50: 6f 6d 6e 65 73 73 28 6e 2c 20 7a 42 75 66 29 3b  omness(n, zBuf);
4b60: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 3b  .  for(i=0; i<n;
4b70: 20 69 2b 2b 29 7b 0a 20 20 20 20 7a 42 75 66 5b   i++){.    zBuf[
4b80: 69 5d 20 3d 20 7a 53 72 63 5b 7a 42 75 66 5b 69  i] = zSrc[zBuf[i
4b90: 5d 25 28 73 69 7a 65 6f 66 28 7a 53 72 63 29 2d  ]%(sizeof(zSrc)-
4ba0: 31 29 5d 3b 0a 20 20 7d 0a 20 20 7a 42 75 66 5b  1)];.  }.  zBuf[
4bb0: 6e 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65  n] = 0;.  sqlite
4bc0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f  3_result_text(co
4bd0: 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 7a 42  ntext, (char*)zB
4be0: 75 66 2c 20 6e 2c 20 53 51 4c 49 54 45 5f 54 52  uf, n, SQLITE_TR
4bf0: 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 23 65 6e 64  ANSIENT);.}.#end
4c00: 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 54 45 53  if /* SQLITE_TES
4c10: 54 20 2a 2f 0a 0a 23 69 66 64 65 66 20 53 51 4c  T */..#ifdef SQL
4c20: 49 54 45 5f 54 45 53 54 0a 2f 2a 0a 2a 2a 20 54  ITE_TEST./*.** T
4c30: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 77 6f  he following two
4c40: 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 73 20 61   SQL functions a
4c50: 72 65 20 75 73 65 64 20 74 6f 20 74 65 73 74 20  re used to test 
4c60: 72 65 74 75 72 6e 69 6e 67 20 61 20 74 65 78 74  returning a text
4c70: 0a 2a 2a 20 72 65 73 75 6c 74 20 77 69 74 68 20  .** result with 
4c80: 61 20 64 65 73 74 72 75 63 74 6f 72 2e 20 46 75  a destructor. Fu
4c90: 6e 63 74 69 6f 6e 20 27 74 65 73 74 5f 64 65 73  nction 'test_des
4ca0: 74 72 75 63 74 6f 72 27 20 74 61 6b 65 73 20 6f  tructor' takes o
4cb0: 6e 65 20 61 72 67 75 6d 65 6e 74 0a 2a 2a 20 61  ne argument.** a
4cc0: 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 73  nd returns the s
4cd0: 61 6d 65 20 61 72 67 75 6d 65 6e 74 20 69 6e 74  ame argument int
4ce0: 65 72 70 72 65 74 65 64 20 61 73 20 54 45 58 54  erpreted as TEXT
4cf0: 2e 20 41 20 64 65 73 74 72 75 63 74 6f 72 20 69  . A destructor i
4d00: 73 0a 2a 2a 20 70 61 73 73 65 64 20 77 69 74 68  s.** passed with
4d10: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 72 65 73   the sqlite3_res
4d20: 75 6c 74 5f 74 65 78 74 28 29 20 63 61 6c 6c 2e  ult_text() call.
4d30: 0a 2a 2a 0a 2a 2a 20 53 51 4c 20 66 75 6e 63 74  .**.** SQL funct
4d40: 69 6f 6e 20 27 74 65 73 74 5f 64 65 73 74 72 75  ion 'test_destru
4d50: 63 74 6f 72 5f 63 6f 75 6e 74 27 20 72 65 74 75  ctor_count' retu
4d60: 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f  rns the number o
4d70: 66 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 0a 2a  f outstanding .*
4d80: 2a 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 20 6d 61  * allocations ma
4d90: 64 65 20 62 79 20 27 74 65 73 74 5f 64 65 73 74  de by 'test_dest
4da0: 72 75 63 74 6f 72 27 3b 0a 2a 2a 0a 2a 2a 20 57  ructor';.**.** W
4db0: 41 52 4e 49 4e 47 3a 20 4e 6f 74 20 74 68 72 65  ARNING: Not thre
4dc0: 61 64 73 61 66 65 2e 0a 2a 2f 0a 73 74 61 74 69  adsafe..*/.stati
4dd0: 63 20 69 6e 74 20 74 65 73 74 5f 64 65 73 74 72  c int test_destr
4de0: 75 63 74 6f 72 5f 63 6f 75 6e 74 5f 76 61 72 20  uctor_count_var 
4df0: 3d 20 30 3b 0a 73 74 61 74 69 63 20 76 6f 69 64  = 0;.static void
4e00: 20 64 65 73 74 72 75 63 74 6f 72 28 76 6f 69 64   destructor(void
4e10: 20 2a 70 29 7b 0a 20 20 63 68 61 72 20 2a 7a 56   *p){.  char *zV
4e20: 61 6c 20 3d 20 28 63 68 61 72 20 2a 29 70 3b 0a  al = (char *)p;.
4e30: 20 20 61 73 73 65 72 74 28 7a 56 61 6c 29 3b 0a    assert(zVal);.
4e40: 20 20 7a 56 61 6c 2d 2d 3b 0a 20 20 73 71 6c 69    zVal--;.  sqli
4e50: 74 65 46 72 65 65 28 7a 56 61 6c 29 3b 0a 20 20  teFree(zVal);.  
4e60: 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 5f  test_destructor_
4e70: 63 6f 75 6e 74 5f 76 61 72 2d 2d 3b 0a 7d 0a 73  count_var--;.}.s
4e80: 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f  tatic void test_
4e90: 64 65 73 74 72 75 63 74 6f 72 28 0a 20 20 73 71  destructor(.  sq
4ea0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70  lite3_context *p
4eb0: 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67  Ctx, .  int nArg
4ec0: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  ,.  sqlite3_valu
4ed0: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 68  e **argv.){.  ch
4ee0: 61 72 20 2a 7a 56 61 6c 3b 0a 20 20 69 6e 74 20  ar *zVal;.  int 
4ef0: 6c 65 6e 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a  len;.  sqlite3 *
4f00: 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65  db = sqlite3_use
4f10: 72 5f 64 61 74 61 28 70 43 74 78 29 3b 0a 20 0a  r_data(pCtx);. .
4f20: 20 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f    test_destructo
4f30: 72 5f 63 6f 75 6e 74 5f 76 61 72 2b 2b 3b 0a 20  r_count_var++;. 
4f40: 20 61 73 73 65 72 74 28 20 6e 41 72 67 3d 3d 31   assert( nArg==1
4f50: 20 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65   );.  if( sqlite
4f60: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67  3_value_type(arg
4f70: 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55  v[0])==SQLITE_NU
4f80: 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6c  LL ) return;.  l
4f90: 65 6e 20 3d 20 73 71 6c 69 74 65 33 56 61 6c 75  en = sqlite3Valu
4fa0: 65 42 79 74 65 73 28 61 72 67 76 5b 30 5d 2c 20  eBytes(argv[0], 
4fb0: 45 4e 43 28 64 62 29 29 3b 20 0a 20 20 7a 56 61  ENC(db)); .  zVa
4fc0: 6c 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63  l = sqliteMalloc
4fd0: 28 6c 65 6e 2b 33 29 3b 0a 20 20 7a 56 61 6c 5b  (len+3);.  zVal[
4fe0: 6c 65 6e 5d 20 3d 20 30 3b 0a 20 20 7a 56 61 6c  len] = 0;.  zVal
4ff0: 5b 6c 65 6e 2d 31 5d 20 3d 20 30 3b 0a 20 20 61  [len-1] = 0;.  a
5000: 73 73 65 72 74 28 20 7a 56 61 6c 20 29 3b 0a 20  ssert( zVal );. 
5010: 20 7a 56 61 6c 2b 2b 3b 0a 20 20 6d 65 6d 63 70   zVal++;.  memcp
5020: 79 28 7a 56 61 6c 2c 20 73 71 6c 69 74 65 33 56  y(zVal, sqlite3V
5030: 61 6c 75 65 54 65 78 74 28 61 72 67 76 5b 30 5d  alueText(argv[0]
5040: 2c 20 45 4e 43 28 64 62 29 29 2c 20 6c 65 6e 29  , ENC(db)), len)
5050: 3b 0a 20 20 69 66 28 20 45 4e 43 28 64 62 29 3d  ;.  if( ENC(db)=
5060: 3d 53 51 4c 49 54 45 5f 55 54 46 38 20 29 7b 0a  =SQLITE_UTF8 ){.
5070: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
5080: 6c 74 5f 74 65 78 74 28 70 43 74 78 2c 20 7a 56  lt_text(pCtx, zV
5090: 61 6c 2c 20 2d 31 2c 20 64 65 73 74 72 75 63 74  al, -1, destruct
50a0: 6f 72 29 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c  or);.#ifndef SQL
50b0: 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20  ITE_OMIT_UTF16. 
50c0: 20 7d 65 6c 73 65 20 69 66 28 20 45 4e 43 28 64   }else if( ENC(d
50d0: 62 29 3d 3d 53 51 4c 49 54 45 5f 55 54 46 31 36  b)==SQLITE_UTF16
50e0: 4c 45 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65  LE ){.    sqlite
50f0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 6c  3_result_text16l
5100: 65 28 70 43 74 78 2c 20 7a 56 61 6c 2c 20 2d 31  e(pCtx, zVal, -1
5110: 2c 20 64 65 73 74 72 75 63 74 6f 72 29 3b 0a 20  , destructor);. 
5120: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71 6c 69   }else{.    sqli
5130: 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 31  te3_result_text1
5140: 36 62 65 28 70 43 74 78 2c 20 7a 56 61 6c 2c 20  6be(pCtx, zVal, 
5150: 2d 31 2c 20 64 65 73 74 72 75 63 74 6f 72 29 3b  -1, destructor);
5160: 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54  .#endif /* SQLIT
5170: 45 5f 4f 4d 49 54 5f 55 54 46 31 36 20 2a 2f 0a  E_OMIT_UTF16 */.
5180: 20 20 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69    }.}.static voi
5190: 64 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f  d test_destructo
51a0: 72 5f 63 6f 75 6e 74 28 0a 20 20 73 71 6c 69 74  r_count(.  sqlit
51b0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 43 74 78  e3_context *pCtx
51c0: 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 2c 0a 20  , .  int nArg,. 
51d0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
51e0: 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74  *argv.){.  sqlit
51f0: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 70 43  e3_result_int(pC
5200: 74 78 2c 20 74 65 73 74 5f 64 65 73 74 72 75 63  tx, test_destruc
5210: 74 6f 72 5f 63 6f 75 6e 74 5f 76 61 72 29 3b 0a  tor_count_var);.
5220: 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49  }.#endif /* SQLI
5230: 54 45 5f 54 45 53 54 20 2a 2f 0a 0a 23 69 66 64  TE_TEST */..#ifd
5240: 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 2f  ef SQLITE_TEST./
5250: 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 66 6f  *.** Routines fo
5260: 72 20 74 65 73 74 69 6e 67 20 74 68 65 20 73 71  r testing the sq
5270: 6c 69 74 65 33 5f 67 65 74 5f 61 75 78 64 61 74  lite3_get_auxdat
5280: 61 28 29 20 61 6e 64 20 73 71 6c 69 74 65 33 5f  a() and sqlite3_
5290: 73 65 74 5f 61 75 78 64 61 74 61 28 29 0a 2a 2a  set_auxdata().**
52a0: 20 69 6e 74 65 72 66 61 63 65 2e 0a 2a 2a 0a 2a   interface..**.*
52b0: 2a 20 54 68 65 20 74 65 73 74 5f 61 75 78 64 61  * The test_auxda
52c0: 74 61 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f  ta() SQL functio
52d0: 6e 20 61 74 74 65 6d 70 74 73 20 74 6f 20 72 65  n attempts to re
52e0: 67 69 73 74 65 72 20 65 61 63 68 20 6f 66 20 69  gister each of i
52f0: 74 73 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2a 20  ts arguments.** 
5300: 61 73 20 61 75 78 69 6c 69 61 72 79 20 64 61 74  as auxiliary dat
5310: 61 2e 20 20 49 66 20 74 68 65 72 65 20 61 72 65  a.  If there are
5320: 20 6e 6f 20 70 72 69 6f 72 20 72 65 67 69 73 74   no prior regist
5330: 72 61 74 69 6f 6e 73 20 6f 66 20 61 75 78 20 64  rations of aux d
5340: 61 74 61 20 66 6f 72 0a 2a 2a 20 74 68 61 74 20  ata for.** that 
5350: 61 72 67 75 6d 65 6e 74 20 28 6d 65 61 6e 69 6e  argument (meanin
5360: 67 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69  g the argument i
5370: 73 20 6e 6f 74 20 61 20 63 6f 6e 73 74 61 6e 74  s not a constant
5380: 20 6f 72 20 74 68 69 73 20 69 73 20 69 74 73 20   or this is its 
5390: 66 69 72 73 74 0a 2a 2a 20 63 61 6c 6c 29 20 74  first.** call) t
53a0: 68 65 6e 20 74 68 65 20 72 65 73 75 6c 74 20 66  hen the result f
53b0: 6f 72 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74  or that argument
53c0: 20 69 73 20 30 2e 20 20 49 66 20 74 68 65 72 65   is 0.  If there
53d0: 20 69 73 20 61 20 70 72 69 6f 72 0a 2a 2a 20 72   is a prior.** r
53e0: 65 67 69 73 74 72 61 74 69 6f 6e 2c 20 74 68 65  egistration, the
53f0: 20 72 65 73 75 6c 74 20 66 6f 72 20 74 68 61 74   result for that
5400: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 31 2e 20   argument is 1. 
5410: 20 54 68 65 20 6f 76 65 72 61 6c 6c 20 72 65 73   The overall res
5420: 75 6c 74 0a 2a 2a 20 69 73 20 74 68 65 20 69 6e  ult.** is the in
5430: 64 69 76 69 64 75 61 6c 20 61 72 67 75 6d 65 6e  dividual argumen
5440: 74 20 72 65 73 75 6c 74 73 20 73 65 70 61 72 61  t results separa
5450: 74 65 64 20 62 79 20 73 70 61 63 65 73 2e 0a 2a  ted by spaces..*
5460: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 66 72  /.static void fr
5470: 65 65 5f 74 65 73 74 5f 61 75 78 64 61 74 61 28  ee_test_auxdata(
5480: 76 6f 69 64 20 2a 70 29 20 7b 73 71 6c 69 74 65  void *p) {sqlite
5490: 46 72 65 65 28 70 29 3b 7d 0a 73 74 61 74 69 63  Free(p);}.static
54a0: 20 76 6f 69 64 20 74 65 73 74 5f 61 75 78 64 61   void test_auxda
54b0: 74 61 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  ta(.  sqlite3_co
54c0: 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20  ntext *pCtx, .  
54d0: 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69  int nArg,.  sqli
54e0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
54f0: 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63  .){.  int i;.  c
5500: 68 61 72 20 2a 7a 52 65 74 20 3d 20 73 71 6c 69  har *zRet = sqli
5510: 74 65 4d 61 6c 6c 6f 63 28 6e 41 72 67 2a 32 29  teMalloc(nArg*2)
5520: 3b 0a 20 20 69 66 28 20 21 7a 52 65 74 20 29 20  ;.  if( !zRet ) 
5530: 72 65 74 75 72 6e 3b 0a 20 20 66 6f 72 28 69 3d  return;.  for(i=
5540: 30 3b 20 69 3c 6e 41 72 67 3b 20 69 2b 2b 29 7b  0; i<nArg; i++){
5550: 0a 20 20 20 20 63 68 61 72 20 63 6f 6e 73 74 20  .    char const 
5560: 2a 7a 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69  *z = (char*)sqli
5570: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
5580: 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 69 66 28  rgv[i]);.    if(
5590: 20 7a 20 29 7b 0a 20 20 20 20 20 20 63 68 61 72   z ){.      char
55a0: 20 2a 7a 41 75 78 20 3d 20 73 71 6c 69 74 65 33   *zAux = sqlite3
55b0: 5f 67 65 74 5f 61 75 78 64 61 74 61 28 70 43 74  _get_auxdata(pCt
55c0: 78 2c 20 69 29 3b 0a 20 20 20 20 20 20 69 66 28  x, i);.      if(
55d0: 20 7a 41 75 78 20 29 7b 0a 20 20 20 20 20 20 20   zAux ){.       
55e0: 20 7a 52 65 74 5b 69 2a 32 5d 20 3d 20 27 31 27   zRet[i*2] = '1'
55f0: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 73 74  ;.        if( st
5600: 72 63 6d 70 28 7a 41 75 78 2c 20 7a 29 20 29 7b  rcmp(zAux, z) ){
5610: 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74  .          sqlit
5620: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28  e3_result_error(
5630: 70 43 74 78 2c 20 22 41 75 78 69 6c 61 72 79 20  pCtx, "Auxilary 
5640: 64 61 74 61 20 63 6f 72 72 75 70 74 69 6f 6e 22  data corruption"
5650: 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20  , -1);.         
5660: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20   return;.       
5670: 20 7d 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a   }.      }else{.
5680: 20 20 20 20 20 20 20 20 7a 52 65 74 5b 69 2a 32          zRet[i*2
5690: 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 20  ] = '0';.       
56a0: 20 7a 41 75 78 20 3d 20 73 71 6c 69 74 65 53 74   zAux = sqliteSt
56b0: 72 44 75 70 28 7a 29 3b 0a 20 20 20 20 20 20 20  rDup(z);.       
56c0: 20 73 71 6c 69 74 65 33 5f 73 65 74 5f 61 75 78   sqlite3_set_aux
56d0: 64 61 74 61 28 70 43 74 78 2c 20 69 2c 20 7a 41  data(pCtx, i, zA
56e0: 75 78 2c 20 66 72 65 65 5f 74 65 73 74 5f 61 75  ux, free_test_au
56f0: 78 64 61 74 61 29 3b 0a 20 20 20 20 20 20 7d 0a  xdata);.      }.
5700: 20 20 20 20 20 20 7a 52 65 74 5b 69 2a 32 2b 31        zRet[i*2+1
5710: 5d 20 3d 20 27 20 27 3b 0a 20 20 20 20 7d 0a 20  ] = ' ';.    }. 
5720: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73   }.  sqlite3_res
5730: 75 6c 74 5f 74 65 78 74 28 70 43 74 78 2c 20 7a  ult_text(pCtx, z
5740: 52 65 74 2c 20 32 2a 6e 41 72 67 2d 31 2c 20 66  Ret, 2*nArg-1, f
5750: 72 65 65 5f 74 65 73 74 5f 61 75 78 64 61 74 61  ree_test_auxdata
5760: 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53  );.}.#endif /* S
5770: 51 4c 49 54 45 5f 54 45 53 54 20 2a 2f 0a 0a 23  QLITE_TEST */..#
5780: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53  ifdef SQLITE_TES
5790: 54 0a 2f 2a 0a 2a 2a 20 41 20 66 75 6e 63 74 69  T./*.** A functi
57a0: 6f 6e 20 74 6f 20 74 65 73 74 20 65 72 72 6f 72  on to test error
57b0: 20 72 65 70 6f 72 74 69 6e 67 20 66 72 6f 6d 20   reporting from 
57c0: 75 73 65 72 20 66 75 6e 63 74 69 6f 6e 73 2e 20  user functions. 
57d0: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a  This function.**
57e0: 20 72 65 74 75 72 6e 73 20 61 20 63 6f 70 79 20   returns a copy 
57f0: 6f 66 20 69 74 27 73 20 66 69 72 73 74 20 61 72  of it's first ar
5800: 67 75 6d 65 6e 74 20 61 73 20 61 6e 20 65 72 72  gument as an err
5810: 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  or..*/.static vo
5820: 69 64 20 74 65 73 74 5f 65 72 72 6f 72 28 0a 20  id test_error(. 
5830: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
5840: 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e   *pCtx, .  int n
5850: 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  Arg,.  sqlite3_v
5860: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
5870: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
5880: 65 72 72 6f 72 28 70 43 74 78 2c 20 28 63 68 61  error(pCtx, (cha
5890: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  r*)sqlite3_value
58a0: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 2c 20  _text(argv[0]), 
58b0: 30 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20  0);.}.#endif /* 
58c0: 53 51 4c 49 54 45 5f 54 45 53 54 20 2a 2f 0a 0a  SQLITE_TEST */..
58d0: 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 6e 63  /*.** An instanc
58e0: 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69  e of the followi
58f0: 6e 67 20 73 74 72 75 63 74 75 72 65 20 68 6f 6c  ng structure hol
5900: 64 73 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f  ds the context o
5910: 66 20 61 0a 2a 2a 20 73 75 6d 28 29 20 6f 72 20  f a.** sum() or 
5920: 61 76 67 28 29 20 61 67 67 72 65 67 61 74 65 20  avg() aggregate 
5930: 63 6f 6d 70 75 74 61 74 69 6f 6e 2e 0a 2a 2f 0a  computation..*/.
5940: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 53  typedef struct S
5950: 75 6d 43 74 78 20 53 75 6d 43 74 78 3b 0a 73 74  umCtx SumCtx;.st
5960: 72 75 63 74 20 53 75 6d 43 74 78 20 7b 0a 20 20  ruct SumCtx {.  
5970: 64 6f 75 62 6c 65 20 72 53 75 6d 3b 20 20 20 20  double rSum;    
5980: 20 20 2f 2a 20 46 6c 6f 61 74 69 6e 67 20 70 6f    /* Floating po
5990: 69 6e 74 20 73 75 6d 20 2a 2f 0a 20 20 69 36 34  int sum */.  i64
59a0: 20 69 53 75 6d 3b 20 20 20 20 20 20 20 20 20 2f   iSum;         /
59b0: 2a 20 49 6e 74 65 67 65 72 20 73 75 6d 20 2a 2f  * Integer sum */
59c0: 20 20 20 0a 20 20 69 36 34 20 63 6e 74 3b 20 20     .  i64 cnt;  
59d0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65          /* Numbe
59e0: 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 73 75  r of elements su
59f0: 6d 6d 65 64 20 2a 2f 0a 20 20 75 38 20 6f 76 65  mmed */.  u8 ove
5a00: 72 66 6c 6f 77 3b 20 20 20 20 20 20 2f 2a 20 54  rflow;      /* T
5a10: 72 75 65 20 69 66 20 69 6e 74 65 67 65 72 20 6f  rue if integer o
5a20: 76 65 72 66 6c 6f 77 20 73 65 65 6e 20 2a 2f 0a  verflow seen */.
5a30: 20 20 75 38 20 61 70 70 72 6f 78 3b 20 20 20 20    u8 approx;    
5a40: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 6e      /* True if n
5a50: 6f 6e 2d 69 6e 74 65 67 65 72 20 76 61 6c 75 65  on-integer value
5a60: 20 77 61 73 20 69 6e 70 75 74 20 74 6f 20 74 68   was input to th
5a70: 65 20 73 75 6d 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a  e sum */.};../*.
5a80: 2a 2a 20 52 6f 75 74 69 6e 65 73 20 75 73 65 64  ** Routines used
5a90: 20 74 6f 20 63 6f 6d 70 75 74 65 20 74 68 65 20   to compute the 
5aa0: 73 75 6d 2c 20 61 76 65 72 61 67 65 2c 20 61 6e  sum, average, an
5ab0: 64 20 74 6f 74 61 6c 2e 0a 2a 2a 0a 2a 2a 20 54  d total..**.** T
5ac0: 68 65 20 53 55 4d 28 29 20 66 75 6e 63 74 69 6f  he SUM() functio
5ad0: 6e 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 28 62  n follows the (b
5ae0: 72 6f 6b 65 6e 29 20 53 51 4c 20 73 74 61 6e 64  roken) SQL stand
5af0: 61 72 64 20 77 68 69 63 68 20 6d 65 61 6e 73 0a  ard which means.
5b00: 2a 2a 20 74 68 61 74 20 69 74 20 72 65 74 75 72  ** that it retur
5b10: 6e 73 20 4e 55 4c 4c 20 69 66 20 69 74 20 73 75  ns NULL if it su
5b20: 6d 73 20 6f 76 65 72 20 6e 6f 20 69 6e 70 75 74  ms over no input
5b30: 73 2e 20 20 54 4f 54 41 4c 20 72 65 74 75 72 6e  s.  TOTAL return
5b40: 73 0a 2a 2a 20 30 2e 30 20 69 6e 20 74 68 61 74  s.** 0.0 in that
5b50: 20 63 61 73 65 2e 20 20 49 6e 20 61 64 64 69 74   case.  In addit
5b60: 69 6f 6e 2c 20 54 4f 54 41 4c 20 61 6c 77 61 79  ion, TOTAL alway
5b70: 73 20 72 65 74 75 72 6e 73 20 61 20 66 6c 6f 61  s returns a floa
5b80: 74 20 77 68 65 72 65 0a 2a 2a 20 53 55 4d 20 6d  t where.** SUM m
5b90: 69 67 68 74 20 72 65 74 75 72 6e 20 61 6e 20 69  ight return an i
5ba0: 6e 74 65 67 65 72 20 69 66 20 69 74 20 6e 65 76  nteger if it nev
5bb0: 65 72 20 65 6e 63 6f 75 6e 74 65 72 73 20 61 20  er encounters a 
5bc0: 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 0a 2a  floating point.*
5bd0: 2a 20 76 61 6c 75 65 2e 0a 2a 2a 0a 2a 2a 20 49  * value..**.** I
5be0: 20 61 6d 20 74 6f 6c 64 20 74 68 61 74 20 53 55   am told that SU
5bf0: 4d 28 29 20 73 68 6f 75 6c 64 20 72 61 69 73 65  M() should raise
5c00: 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 69 66   an exception if
5c10: 20 69 74 20 65 6e 63 6f 75 6e 74 65 72 73 0a 2a   it encounters.*
5c20: 2a 20 61 20 69 6e 74 65 67 65 72 20 6f 76 65 72  * a integer over
5c30: 66 6c 6f 77 2e 20 20 42 75 74 20 61 66 74 65 72  flow.  But after
5c40: 20 70 6f 6e 64 65 72 69 6e 67 20 74 68 69 73 2c   pondering this,
5c50: 20 49 20 64 65 63 69 64 65 64 20 74 68 61 74 20   I decided that 
5c60: 0a 2a 2a 20 62 65 68 61 76 69 6f 72 20 6c 65 61  .** behavior lea
5c70: 64 73 20 74 6f 20 62 72 69 74 74 6c 65 20 70 72  ds to brittle pr
5c80: 6f 67 72 61 6d 73 2e 20 20 53 6f 20 69 6e 73 74  ograms.  So inst
5c90: 65 61 64 2c 20 49 20 68 61 76 65 20 63 6f 64 65  ead, I have code
5ca0: 64 0a 2a 2a 20 53 55 4d 28 29 20 74 6f 20 72 65  d.** SUM() to re
5cb0: 76 65 72 74 20 74 6f 20 75 73 69 6e 67 20 66 6c  vert to using fl
5cc0: 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 69 66 20  oating point if 
5cd0: 69 74 20 65 6e 63 6f 75 6e 74 65 72 73 20 61 6e  it encounters an
5ce0: 0a 2a 2a 20 69 6e 74 65 67 65 72 20 6f 76 65 72  .** integer over
5cf0: 66 6c 6f 77 2e 20 20 54 68 65 20 61 6e 73 77 65  flow.  The answe
5d00: 72 20 6d 61 79 20 6e 6f 74 20 62 65 20 65 78 61  r may not be exa
5d10: 63 74 2c 20 62 75 74 20 69 74 20 77 69 6c 6c 20  ct, but it will 
5d20: 62 65 0a 2a 2a 20 63 6c 6f 73 65 2e 20 20 49 66  be.** close.  If
5d30: 20 74 68 65 20 53 55 4d 28 29 20 66 75 6e 63 74   the SUM() funct
5d40: 69 6f 6e 20 72 65 74 75 72 6e 73 20 61 6e 20 69  ion returns an i
5d50: 6e 74 65 67 65 72 2c 20 74 68 65 20 76 61 6c 75  nteger, the valu
5d60: 65 20 69 73 0a 2a 2a 20 65 78 61 63 74 2e 20 20  e is.** exact.  
5d70: 49 66 20 53 55 4d 28 29 20 72 65 74 75 72 6e 73  If SUM() returns
5d80: 20 61 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e   a floating poin
5d90: 74 20 76 61 6c 75 65 2c 20 69 74 20 6d 65 61 6e  t value, it mean
5da0: 73 20 74 68 65 0a 2a 2a 20 76 61 6c 75 65 20 6d  s the.** value m
5db0: 69 67 68 74 20 62 65 20 61 70 70 72 6f 78 69 6d  ight be approxim
5dc0: 61 74 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ated..*/.static 
5dd0: 76 6f 69 64 20 73 75 6d 53 74 65 70 28 73 71 6c  void sumStep(sql
5de0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
5df0: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c  ntext, int argc,
5e00: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
5e10: 2a 61 72 67 76 29 7b 0a 20 20 53 75 6d 43 74 78  *argv){.  SumCtx
5e20: 20 2a 70 3b 0a 20 20 69 6e 74 20 74 79 70 65 3b   *p;.  int type;
5e30: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d  .  assert( argc=
5e40: 3d 31 20 29 3b 0a 20 20 70 20 3d 20 73 71 6c 69  =1 );.  p = sqli
5e50: 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f  te3_aggregate_co
5e60: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73  ntext(context, s
5e70: 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 74 79  izeof(*p));.  ty
5e80: 70 65 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c  pe = sqlite3_val
5e90: 75 65 5f 6e 75 6d 65 72 69 63 5f 74 79 70 65 28  ue_numeric_type(
5ea0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20  argv[0]);.  if( 
5eb0: 70 20 26 26 20 74 79 70 65 21 3d 53 51 4c 49 54  p && type!=SQLIT
5ec0: 45 5f 4e 55 4c 4c 20 29 7b 0a 20 20 20 20 70 2d  E_NULL ){.    p-
5ed0: 3e 63 6e 74 2b 2b 3b 0a 20 20 20 20 69 66 28 20  >cnt++;.    if( 
5ee0: 74 79 70 65 3d 3d 53 51 4c 49 54 45 5f 49 4e 54  type==SQLITE_INT
5ef0: 45 47 45 52 20 29 7b 0a 20 20 20 20 20 20 69 36  EGER ){.      i6
5f00: 34 20 76 20 3d 20 73 71 6c 69 74 65 33 5f 76 61  4 v = sqlite3_va
5f10: 6c 75 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 30  lue_int64(argv[0
5f20: 5d 29 3b 0a 20 20 20 20 20 20 70 2d 3e 72 53 75  ]);.      p->rSu
5f30: 6d 20 2b 3d 20 76 3b 0a 20 20 20 20 20 20 69 66  m += v;.      if
5f40: 28 20 28 70 2d 3e 61 70 70 72 6f 78 7c 70 2d 3e  ( (p->approx|p->
5f50: 6f 76 65 72 66 6c 6f 77 29 3d 3d 30 20 29 7b 0a  overflow)==0 ){.
5f60: 20 20 20 20 20 20 20 20 69 36 34 20 69 4e 65 77          i64 iNew
5f70: 53 75 6d 20 3d 20 70 2d 3e 69 53 75 6d 20 2b 20  Sum = p->iSum + 
5f80: 76 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 73  v;.        int s
5f90: 31 20 3d 20 70 2d 3e 69 53 75 6d 20 3e 3e 20 28  1 = p->iSum >> (
5fa0: 73 69 7a 65 6f 66 28 69 36 34 29 2a 38 2d 31 29  sizeof(i64)*8-1)
5fb0: 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 73 32  ;.        int s2
5fc0: 20 3d 20 76 20 20 20 20 20 20 20 3e 3e 20 28 73   = v       >> (s
5fd0: 69 7a 65 6f 66 28 69 36 34 29 2a 38 2d 31 29 3b  izeof(i64)*8-1);
5fe0: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 73 33 20  .        int s3 
5ff0: 3d 20 69 4e 65 77 53 75 6d 20 3e 3e 20 28 73 69  = iNewSum >> (si
6000: 7a 65 6f 66 28 69 36 34 29 2a 38 2d 31 29 3b 0a  zeof(i64)*8-1);.
6010: 20 20 20 20 20 20 20 20 70 2d 3e 6f 76 65 72 66          p->overf
6020: 6c 6f 77 20 3d 20 28 73 31 26 73 32 26 7e 73 33  low = (s1&s2&~s3
6030: 29 20 7c 20 28 7e 73 31 26 7e 73 32 26 73 33 29  ) | (~s1&~s2&s3)
6040: 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e 69 53 75  ;.        p->iSu
6050: 6d 20 3d 20 69 4e 65 77 53 75 6d 3b 0a 20 20 20  m = iNewSum;.   
6060: 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a     }.    }else{.
6070: 20 20 20 20 20 20 70 2d 3e 72 53 75 6d 20 2b 3d        p->rSum +=
6080: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64   sqlite3_value_d
6090: 6f 75 62 6c 65 28 61 72 67 76 5b 30 5d 29 3b 0a  ouble(argv[0]);.
60a0: 20 20 20 20 20 20 70 2d 3e 61 70 70 72 6f 78 20        p->approx 
60b0: 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d  = 1;.    }.  }.}
60c0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73 75 6d  .static void sum
60d0: 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33  Finalize(sqlite3
60e0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
60f0: 74 29 7b 0a 20 20 53 75 6d 43 74 78 20 2a 70 3b  t){.  SumCtx *p;
6100: 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61  .  p = sqlite3_a
6110: 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74  ggregate_context
6120: 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20  (context, 0);.  
6130: 69 66 28 20 70 20 26 26 20 70 2d 3e 63 6e 74 3e  if( p && p->cnt>
6140: 30 20 29 7b 0a 20 20 20 20 69 66 28 20 70 2d 3e  0 ){.    if( p->
6150: 6f 76 65 72 66 6c 6f 77 20 29 7b 0a 20 20 20 20  overflow ){.    
6160: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
6170: 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 22  _error(context,"
6180: 69 6e 74 65 67 65 72 20 6f 76 65 72 66 6c 6f 77  integer overflow
6190: 22 2c 2d 31 29 3b 0a 20 20 20 20 7d 65 6c 73 65  ",-1);.    }else
61a0: 20 69 66 28 20 70 2d 3e 61 70 70 72 6f 78 20 29   if( p->approx )
61b0: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  {.      sqlite3_
61c0: 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f  result_double(co
61d0: 6e 74 65 78 74 2c 20 70 2d 3e 72 53 75 6d 29 3b  ntext, p->rSum);
61e0: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  .    }else{.    
61f0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
6200: 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20  _int64(context, 
6210: 70 2d 3e 69 53 75 6d 29 3b 0a 20 20 20 20 7d 0a  p->iSum);.    }.
6220: 20 20 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69    }.}.static voi
6230: 64 20 61 76 67 46 69 6e 61 6c 69 7a 65 28 73 71  d avgFinalize(sq
6240: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
6250: 6f 6e 74 65 78 74 29 7b 0a 20 20 53 75 6d 43 74  ontext){.  SumCt
6260: 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69  x *p;.  p = sqli
6270: 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f  te3_aggregate_co
6280: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30  ntext(context, 0
6290: 29 3b 0a 20 20 69 66 28 20 70 20 26 26 20 70 2d  );.  if( p && p-
62a0: 3e 63 6e 74 3e 30 20 29 7b 0a 20 20 20 20 73 71  >cnt>0 ){.    sq
62b0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75  lite3_result_dou
62c0: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 70 2d 3e  ble(context, p->
62d0: 72 53 75 6d 2f 28 64 6f 75 62 6c 65 29 70 2d 3e  rSum/(double)p->
62e0: 63 6e 74 29 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74  cnt);.  }.}.stat
62f0: 69 63 20 76 6f 69 64 20 74 6f 74 61 6c 46 69 6e  ic void totalFin
6300: 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f  alize(sqlite3_co
6310: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b  ntext *context){
6320: 0a 20 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 20  .  SumCtx *p;.  
6330: 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72  p = sqlite3_aggr
6340: 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f  egate_context(co
6350: 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 73 71 6c  ntext, 0);.  sql
6360: 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62  ite3_result_doub
6370: 6c 65 28 63 6f 6e 74 65 78 74 2c 20 70 20 3f 20  le(context, p ? 
6380: 70 2d 3e 72 53 75 6d 20 3a 20 30 2e 30 29 3b 0a  p->rSum : 0.0);.
6390: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c  }../*.** The fol
63a0: 6c 6f 77 69 6e 67 20 73 74 72 75 63 74 75 72 65  lowing structure
63b0: 20 6b 65 65 70 73 20 74 72 61 63 6b 20 6f 66 20   keeps track of 
63c0: 73 74 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f  state informatio
63d0: 6e 20 66 6f 72 20 74 68 65 0a 2a 2a 20 63 6f 75  n for the.** cou
63e0: 6e 74 28 29 20 61 67 67 72 65 67 61 74 65 20 66  nt() aggregate f
63f0: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65  unction..*/.type
6400: 64 65 66 20 73 74 72 75 63 74 20 43 6f 75 6e 74  def struct Count
6410: 43 74 78 20 43 6f 75 6e 74 43 74 78 3b 0a 73 74  Ctx CountCtx;.st
6420: 72 75 63 74 20 43 6f 75 6e 74 43 74 78 20 7b 0a  ruct CountCtx {.
6430: 20 20 69 36 34 20 6e 3b 0a 7d 3b 0a 0a 2f 2a 0a    i64 n;.};../*.
6440: 2a 2a 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 69  ** Routines to i
6450: 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 63 6f 75  mplement the cou
6460: 6e 74 28 29 20 61 67 67 72 65 67 61 74 65 20 66  nt() aggregate f
6470: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74  unction..*/.stat
6480: 69 63 20 76 6f 69 64 20 63 6f 75 6e 74 53 74 65  ic void countSte
6490: 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  p(sqlite3_contex
64a0: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20  t *context, int 
64b0: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61  argc, sqlite3_va
64c0: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 43  lue **argv){.  C
64d0: 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20  ountCtx *p;.  p 
64e0: 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67  = sqlite3_aggreg
64f0: 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74  ate_context(cont
6500: 65 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29  ext, sizeof(*p))
6510: 3b 0a 20 20 69 66 28 20 28 61 72 67 63 3d 3d 30  ;.  if( (argc==0
6520: 20 7c 7c 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 21   || SQLITE_NULL!
6530: 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74  =sqlite3_value_t
6540: 79 70 65 28 61 72 67 76 5b 30 5d 29 29 20 26 26  ype(argv[0])) &&
6550: 20 70 20 29 7b 0a 20 20 20 20 70 2d 3e 6e 2b 2b   p ){.    p->n++
6560: 3b 0a 20 20 7d 0a 7d 20 20 20 0a 73 74 61 74 69  ;.  }.}   .stati
6570: 63 20 76 6f 69 64 20 63 6f 75 6e 74 46 69 6e 61  c void countFina
6580: 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e  lize(sqlite3_con
6590: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a  text *context){.
65a0: 20 20 43 6f 75 6e 74 43 74 78 20 2a 70 3b 0a 20    CountCtx *p;. 
65b0: 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67   p = sqlite3_agg
65c0: 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63  regate_context(c
65d0: 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 73 71  ontext, 0);.  sq
65e0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74  lite3_result_int
65f0: 36 34 28 63 6f 6e 74 65 78 74 2c 20 70 20 3f 20  64(context, p ? 
6600: 70 2d 3e 6e 20 3a 20 30 29 3b 0a 7d 0a 0a 2f 2a  p->n : 0);.}../*
6610: 0a 2a 2a 20 52 6f 75 74 69 6e 65 73 20 74 6f 20  .** Routines to 
6620: 69 6d 70 6c 65 6d 65 6e 74 20 6d 69 6e 28 29 20  implement min() 
6630: 61 6e 64 20 6d 61 78 28 29 20 61 67 67 72 65 67  and max() aggreg
6640: 61 74 65 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a  ate functions..*
6650: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6d 69  /.static void mi
6660: 6e 6d 61 78 53 74 65 70 28 73 71 6c 69 74 65 33  nmaxStep(sqlite3
6670: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
6680: 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c  t, int argc, sql
6690: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67  ite3_value **arg
66a0: 76 29 7b 0a 20 20 4d 65 6d 20 2a 70 41 72 67 20  v){.  Mem *pArg 
66b0: 20 3d 20 28 4d 65 6d 20 2a 29 61 72 67 76 5b 30   = (Mem *)argv[0
66c0: 5d 3b 0a 20 20 4d 65 6d 20 2a 70 42 65 73 74 3b  ];.  Mem *pBest;
66d0: 0a 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f  ..  if( sqlite3_
66e0: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b  value_type(argv[
66f0: 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c  0])==SQLITE_NULL
6700: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 70 42 65   ) return;.  pBe
6710: 73 74 20 3d 20 28 4d 65 6d 20 2a 29 73 71 6c 69  st = (Mem *)sqli
6720: 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f  te3_aggregate_co
6730: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73  ntext(context, s
6740: 69 7a 65 6f 66 28 2a 70 42 65 73 74 29 29 3b 0a  izeof(*pBest));.
6750: 20 20 69 66 28 20 21 70 42 65 73 74 20 29 20 72    if( !pBest ) r
6760: 65 74 75 72 6e 3b 0a 0a 20 20 69 66 28 20 70 42  eturn;..  if( pB
6770: 65 73 74 2d 3e 66 6c 61 67 73 20 29 7b 0a 20 20  est->flags ){.  
6780: 20 20 69 6e 74 20 6d 61 78 3b 0a 20 20 20 20 69    int max;.    i
6790: 6e 74 20 63 6d 70 3b 0a 20 20 20 20 43 6f 6c 6c  nt cmp;.    Coll
67a0: 53 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 73 71 6c  Seq *pColl = sql
67b0: 69 74 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53  ite3GetFuncCollS
67c0: 65 71 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20  eq(context);.   
67d0: 20 2f 2a 20 54 68 69 73 20 73 74 65 70 20 66 75   /* This step fu
67e0: 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 66  nction is used f
67f0: 6f 72 20 62 6f 74 68 20 74 68 65 20 6d 69 6e 28  or both the min(
6800: 29 20 61 6e 64 20 6d 61 78 28 29 20 61 67 67 72  ) and max() aggr
6810: 65 67 61 74 65 73 2c 0a 20 20 20 20 2a 2a 20 74  egates,.    ** t
6820: 68 65 20 6f 6e 6c 79 20 64 69 66 66 65 72 65 6e  he only differen
6830: 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 20 74  ce between the t
6840: 77 6f 20 62 65 69 6e 67 20 74 68 61 74 20 74 68  wo being that th
6850: 65 20 73 65 6e 73 65 20 6f 66 20 74 68 65 0a 20  e sense of the. 
6860: 20 20 20 2a 2a 20 63 6f 6d 70 61 72 69 73 6f 6e     ** comparison
6870: 20 69 73 20 69 6e 76 65 72 74 65 64 2e 20 46 6f   is inverted. Fo
6880: 72 20 74 68 65 20 6d 61 78 28 29 20 61 67 67 72  r the max() aggr
6890: 65 67 61 74 65 2c 20 74 68 65 0a 20 20 20 20 2a  egate, the.    *
68a0: 2a 20 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64  * sqlite3_user_d
68b0: 61 74 61 28 29 20 66 75 6e 63 74 69 6f 6e 20 72  ata() function r
68c0: 65 74 75 72 6e 73 20 28 76 6f 69 64 20 2a 29 2d  eturns (void *)-
68d0: 31 2e 20 46 6f 72 20 6d 69 6e 28 29 20 69 74 0a  1. For min() it.
68e0: 20 20 20 20 2a 2a 20 72 65 74 75 72 6e 73 20 28      ** returns (
68f0: 76 6f 69 64 20 2a 29 64 62 2c 20 77 68 65 72 65  void *)db, where
6900: 20 64 62 20 69 73 20 74 68 65 20 73 71 6c 69 74   db is the sqlit
6910: 65 33 2a 20 64 61 74 61 62 61 73 65 20 70 6f 69  e3* database poi
6920: 6e 74 65 72 2e 0a 20 20 20 20 2a 2a 20 54 68 65  nter..    ** The
6930: 72 65 66 6f 72 65 20 74 68 65 20 6e 65 78 74 20  refore the next 
6940: 73 74 61 74 65 6d 65 6e 74 20 73 65 74 73 20 76  statement sets v
6950: 61 72 69 61 62 6c 65 20 27 6d 61 78 27 20 74 6f  ariable 'max' to
6960: 20 31 20 66 6f 72 20 74 68 65 20 6d 61 78 28 29   1 for the max()
6970: 0a 20 20 20 20 2a 2a 20 61 67 67 72 65 67 61 74  .    ** aggregat
6980: 65 2c 20 6f 72 20 30 20 66 6f 72 20 6d 69 6e 28  e, or 0 for min(
6990: 29 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 6d 61  )..    */.    ma
69a0: 78 20 3d 20 28 28 73 71 6c 69 74 65 33 5f 75 73  x = ((sqlite3_us
69b0: 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29  er_data(context)
69c0: 3d 3d 28 76 6f 69 64 20 2a 29 2d 31 29 3f 31 3a  ==(void *)-1)?1:
69d0: 30 29 3b 0a 20 20 20 20 63 6d 70 20 3d 20 73 71  0);.    cmp = sq
69e0: 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 65 28  lite3MemCompare(
69f0: 70 42 65 73 74 2c 20 70 41 72 67 2c 20 70 43 6f  pBest, pArg, pCo
6a00: 6c 6c 29 3b 0a 20 20 20 20 69 66 28 20 28 6d 61  ll);.    if( (ma
6a10: 78 20 26 26 20 63 6d 70 3c 30 29 20 7c 7c 20 28  x && cmp<0) || (
6a20: 21 6d 61 78 20 26 26 20 63 6d 70 3e 30 29 20 29  !max && cmp>0) )
6a30: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 56  {.      sqlite3V
6a40: 64 62 65 4d 65 6d 43 6f 70 79 28 70 42 65 73 74  dbeMemCopy(pBest
6a50: 2c 20 70 41 72 67 29 3b 0a 20 20 20 20 7d 0a 20  , pArg);.    }. 
6a60: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71 6c 69   }else{.    sqli
6a70: 74 65 33 56 64 62 65 4d 65 6d 43 6f 70 79 28 70  te3VdbeMemCopy(p
6a80: 42 65 73 74 2c 20 70 41 72 67 29 3b 0a 20 20 7d  Best, pArg);.  }
6a90: 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6d  .}.static void m
6aa0: 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 28 73 71  inMaxFinalize(sq
6ab0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
6ac0: 6f 6e 74 65 78 74 29 7b 0a 20 20 73 71 6c 69 74  ontext){.  sqlit
6ad0: 65 33 5f 76 61 6c 75 65 20 2a 70 52 65 73 3b 0a  e3_value *pRes;.
6ae0: 20 20 70 52 65 73 20 3d 20 28 73 71 6c 69 74 65    pRes = (sqlite
6af0: 33 5f 76 61 6c 75 65 20 2a 29 73 71 6c 69 74 65  3_value *)sqlite
6b00: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74  3_aggregate_cont
6b10: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b  ext(context, 0);
6b20: 0a 20 20 69 66 28 20 70 52 65 73 20 29 7b 0a 20  .  if( pRes ){. 
6b30: 20 20 20 69 66 28 20 70 52 65 73 2d 3e 66 6c 61     if( pRes->fla
6b40: 67 73 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69  gs ){.      sqli
6b50: 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65  te3_result_value
6b60: 28 63 6f 6e 74 65 78 74 2c 20 70 52 65 73 29 3b  (context, pRes);
6b70: 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74  .    }.    sqlit
6b80: 65 33 56 64 62 65 4d 65 6d 52 65 6c 65 61 73 65  e3VdbeMemRelease
6b90: 28 70 52 65 73 29 3b 0a 20 20 7d 0a 7d 0a 0a 0a  (pRes);.  }.}...
6ba0: 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74  /*.** This funct
6bb0: 69 6f 6e 20 72 65 67 69 73 74 65 72 65 64 20 61  ion registered a
6bc0: 6c 6c 20 6f 66 20 74 68 65 20 61 62 6f 76 65 20  ll of the above 
6bd0: 43 20 66 75 6e 63 74 69 6f 6e 73 20 61 73 20 53  C functions as S
6be0: 51 4c 0a 2a 2a 20 66 75 6e 63 74 69 6f 6e 73 2e  QL.** functions.
6bf0: 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20 62 65    This should be
6c00: 20 74 68 65 20 6f 6e 6c 79 20 72 6f 75 74 69 6e   the only routin
6c10: 65 20 69 6e 20 74 68 69 73 20 66 69 6c 65 20 77  e in this file w
6c20: 69 74 68 0a 2a 2a 20 65 78 74 65 72 6e 61 6c 20  ith.** external 
6c30: 6c 69 6e 6b 61 67 65 2e 0a 2a 2f 0a 76 6f 69 64  linkage..*/.void
6c40: 20 73 71 6c 69 74 65 33 52 65 67 69 73 74 65 72   sqlite3Register
6c50: 42 75 69 6c 74 69 6e 46 75 6e 63 74 69 6f 6e 73  BuiltinFunctions
6c60: 28 73 71 6c 69 74 65 33 20 2a 64 62 29 7b 0a 20  (sqlite3 *db){. 
6c70: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74   static const st
6c80: 72 75 63 74 20 7b 0a 20 20 20 20 20 63 68 61 72  ruct {.     char
6c90: 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 73 69   *zName;.     si
6ca0: 67 6e 65 64 20 63 68 61 72 20 6e 41 72 67 3b 0a  gned char nArg;.
6cb0: 20 20 20 20 20 75 38 20 61 72 67 54 79 70 65 3b       u8 argType;
6cc0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 30 3a             /* 0:
6cd0: 20 6e 6f 6e 65 2e 20 20 31 3a 20 64 62 20 20 32   none.  1: db  2
6ce0: 3a 20 28 2d 31 29 20 2a 2f 0a 20 20 20 20 20 75  : (-1) */.     u
6cf0: 38 20 65 54 65 78 74 52 65 70 3b 20 20 20 20 20  8 eTextRep;     
6d00: 20 20 20 20 20 2f 2a 20 31 3a 20 55 54 46 2d 31       /* 1: UTF-1
6d10: 36 2e 20 20 30 3a 20 55 54 46 2d 38 20 2a 2f 0a  6.  0: UTF-8 */.
6d20: 20 20 20 20 20 75 38 20 6e 65 65 64 43 6f 6c 6c       u8 needColl
6d30: 53 65 71 3b 0a 20 20 20 20 20 76 6f 69 64 20 28  Seq;.     void (
6d40: 2a 78 46 75 6e 63 29 28 73 71 6c 69 74 65 33 5f  *xFunc)(sqlite3_
6d50: 63 6f 6e 74 65 78 74 2a 2c 69 6e 74 2c 73 71 6c  context*,int,sql
6d60: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 29 3b 0a  ite3_value **);.
6d70: 20 20 7d 20 61 46 75 6e 63 73 5b 5d 20 3d 20 7b    } aFuncs[] = {
6d80: 0a 20 20 20 20 7b 20 22 6d 69 6e 22 2c 20 20 20  .    { "min",   
6d90: 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 2c 20              -1, 
6da0: 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20  0, SQLITE_UTF8, 
6db0: 20 20 20 31 2c 20 6d 69 6e 6d 61 78 46 75 6e 63     1, minmaxFunc
6dc0: 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 69 6e 22 2c   },.    { "min",
6dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6de0: 30 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46  0, 0, SQLITE_UTF
6df0: 38 2c 20 20 20 20 31 2c 20 30 20 20 20 20 20 20  8,    1, 0      
6e00: 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 61      },.    { "ma
6e10: 78 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  x",             
6e20: 20 20 2d 31 2c 20 32 2c 20 53 51 4c 49 54 45 5f    -1, 2, SQLITE_
6e30: 55 54 46 38 2c 20 20 20 20 31 2c 20 6d 69 6e 6d  UTF8,    1, minm
6e40: 61 78 46 75 6e 63 20 7d 2c 0a 20 20 20 20 7b 20  axFunc },.    { 
6e50: 22 6d 61 78 22 2c 20 20 20 20 20 20 20 20 20 20  "max",          
6e60: 20 20 20 20 20 20 30 2c 20 32 2c 20 53 51 4c 49        0, 2, SQLI
6e70: 54 45 5f 55 54 46 38 2c 20 20 20 20 31 2c 20 30  TE_UTF8,    1, 0
6e80: 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20            },.   
6e90: 20 7b 20 22 74 79 70 65 6f 66 22 2c 20 20 20 20   { "typeof",    
6ea0: 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 53           1, 0, S
6eb0: 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30  QLITE_UTF8,    0
6ec0: 2c 20 74 79 70 65 6f 66 46 75 6e 63 20 7d 2c 0a  , typeofFunc },.
6ed0: 20 20 20 20 7b 20 22 6c 65 6e 67 74 68 22 2c 20      { "length", 
6ee0: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30              1, 0
6ef0: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20  , SQLITE_UTF8,  
6f00: 20 20 30 2c 20 6c 65 6e 67 74 68 46 75 6e 63 20    0, lengthFunc 
6f10: 7d 2c 0a 20 20 20 20 7b 20 22 73 75 62 73 74 72  },.    { "substr
6f20: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 33  ",             3
6f30: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38  , 0, SQLITE_UTF8
6f40: 2c 20 20 20 20 30 2c 20 73 75 62 73 74 72 46 75  ,    0, substrFu
6f50: 6e 63 20 7d 2c 0a 23 69 66 6e 64 65 66 20 53 51  nc },.#ifndef SQ
6f60: 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a  LITE_OMIT_UTF16.
6f70: 20 20 20 20 7b 20 22 73 75 62 73 74 72 22 2c 20      { "substr", 
6f80: 20 20 20 20 20 20 20 20 20 20 20 20 33 2c 20 30              3, 0
6f90: 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 45  , SQLITE_UTF16LE
6fa0: 2c 20 30 2c 20 73 71 6c 69 74 65 33 75 74 66 31  , 0, sqlite3utf1
6fb0: 36 53 75 62 73 74 72 20 7d 2c 0a 23 65 6e 64 69  6Substr },.#endi
6fc0: 66 0a 20 20 20 20 7b 20 22 61 62 73 22 2c 20 20  f.    { "abs",  
6fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c                1,
6fe0: 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c   0, SQLITE_UTF8,
6ff0: 20 20 20 20 30 2c 20 61 62 73 46 75 6e 63 20 20      0, absFunc  
7000: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 72 6f 75 6e    },.    { "roun
7010: 64 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  d",             
7020: 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54   1, 0, SQLITE_UT
7030: 46 38 2c 20 20 20 20 30 2c 20 72 6f 75 6e 64 46  F8,    0, roundF
7040: 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 22 72  unc  },.    { "r
7050: 6f 75 6e 64 22 2c 20 20 20 20 20 20 20 20 20 20  ound",          
7060: 20 20 20 20 32 2c 20 30 2c 20 53 51 4c 49 54 45      2, 0, SQLITE
7070: 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 72 6f 75  _UTF8,    0, rou
7080: 6e 64 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b  ndFunc  },.    {
7090: 20 22 75 70 70 65 72 22 2c 20 20 20 20 20 20 20   "upper",       
70a0: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 53 51 4c         1, 0, SQL
70b0: 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20  ITE_UTF8,    0, 
70c0: 75 70 70 65 72 46 75 6e 63 20 20 7d 2c 0a 20 20  upperFunc  },.  
70d0: 20 20 7b 20 22 6c 6f 77 65 72 22 2c 20 20 20 20    { "lower",    
70e0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20            1, 0, 
70f0: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20  SQLITE_UTF8,    
7100: 30 2c 20 6c 6f 77 65 72 46 75 6e 63 20 20 7d 2c  0, lowerFunc  },
7110: 0a 20 20 20 20 7b 20 22 63 6f 61 6c 65 73 63 65  .    { "coalesce
7120: 22 2c 20 20 20 20 20 20 20 20 20 20 2d 31 2c 20  ",          -1, 
7130: 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20  0, SQLITE_UTF8, 
7140: 20 20 20 30 2c 20 69 66 6e 75 6c 6c 46 75 6e 63     0, ifnullFunc
7150: 20 7d 2c 0a 20 20 20 20 7b 20 22 63 6f 61 6c 65   },.    { "coale
7160: 73 63 65 22 2c 20 20 20 20 20 20 20 20 20 20 20  sce",           
7170: 30 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46  0, 0, SQLITE_UTF
7180: 38 2c 20 20 20 20 30 2c 20 30 20 20 20 20 20 20  8,    0, 0      
7190: 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 63 6f      },.    { "co
71a0: 61 6c 65 73 63 65 22 2c 20 20 20 20 20 20 20 20  alesce",        
71b0: 20 20 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f     1, 0, SQLITE_
71c0: 55 54 46 38 2c 20 20 20 20 30 2c 20 30 20 20 20  UTF8,    0, 0   
71d0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20         },.    { 
71e0: 22 69 66 6e 75 6c 6c 22 2c 20 20 20 20 20 20 20  "ifnull",       
71f0: 20 20 20 20 20 20 32 2c 20 30 2c 20 53 51 4c 49        2, 0, SQLI
7200: 54 45 5f 55 54 46 38 2c 20 20 20 20 31 2c 20 69  TE_UTF8,    1, i
7210: 66 6e 75 6c 6c 46 75 6e 63 20 7d 2c 0a 20 20 20  fnullFunc },.   
7220: 20 7b 20 22 72 61 6e 64 6f 6d 22 2c 20 20 20 20   { "random",    
7230: 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 53          -1, 0, S
7240: 51 4c 49 54 45 5f 55 54 46 38 2c 20 20 20 20 30  QLITE_UTF8,    0
7250: 2c 20 72 61 6e 64 6f 6d 46 75 6e 63 20 7d 2c 0a  , randomFunc },.
7260: 20 20 20 20 7b 20 22 6e 75 6c 6c 69 66 22 2c 20      { "nullif", 
7270: 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 30              2, 0
7280: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 20  , SQLITE_UTF8,  
7290: 20 20 31 2c 20 6e 75 6c 6c 69 66 46 75 6e 63 20    1, nullifFunc 
72a0: 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65  },.    { "sqlite
72b0: 5f 76 65 72 73 69 6f 6e 22 2c 20 20 20 20 20 30  _version",     0
72c0: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38  , 0, SQLITE_UTF8
72d0: 2c 20 20 20 20 30 2c 20 76 65 72 73 69 6f 6e 46  ,    0, versionF
72e0: 75 6e 63 7d 2c 0a 20 20 20 20 7b 20 22 71 75 6f  unc},.    { "quo
72f0: 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  te",            
7300: 20 20 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55    1, 0, SQLITE_U
7310: 54 46 38 2c 20 20 20 20 30 2c 20 71 75 6f 74 65  TF8,    0, quote
7320: 46 75 6e 63 20 20 7d 2c 0a 20 20 20 20 7b 20 22  Func  },.    { "
7330: 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69  last_insert_rowi
7340: 64 22 2c 20 20 30 2c 20 31 2c 20 53 51 4c 49 54  d",  0, 1, SQLIT
7350: 45 5f 55 54 46 38 2c 20 20 20 20 30 2c 20 6c 61  E_UTF8,    0, la
7360: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 20  st_insert_rowid 
7370: 7d 2c 0a 20 20 20 20 7b 20 22 63 68 61 6e 67 65  },.    { "change
7380: 73 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 30  s",            0
7390: 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38  , 1, SQLITE_UTF8
73a0: 2c 20 20 20 20 30 2c 20 63 68 61 6e 67 65 73 20  ,    0, changes 
73b0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 74 6f 74     },.    { "tot
73c0: 61 6c 5f 63 68 61 6e 67 65 73 22 2c 20 20 20 20  al_changes",    
73d0: 20 20 30 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55    0, 1, SQLITE_U
73e0: 54 46 38 2c 20 20 20 20 30 2c 20 74 6f 74 61 6c  TF8,    0, total
73f0: 5f 63 68 61 6e 67 65 73 20 7d 2c 0a 23 69 66 64  _changes },.#ifd
7400: 65 66 20 53 51 4c 49 54 45 5f 53 4f 55 4e 44 45  ef SQLITE_SOUNDE
7410: 58 0a 20 20 20 20 7b 20 22 73 6f 75 6e 64 65 78  X.    { "soundex
7420: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 31 2c  ",            1,
7430: 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c   0, SQLITE_UTF8,
7440: 20 30 2c 20 73 6f 75 6e 64 65 78 46 75 6e 63 7d   0, soundexFunc}
7450: 2c 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20  ,.#endif.#ifdef 
7460: 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 20 20  SQLITE_TEST.    
7470: 7b 20 22 72 61 6e 64 73 74 72 22 2c 20 20 20 20  { "randstr",    
7480: 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 30 2c             2, 0,
7490: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c   SQLITE_UTF8, 0,
74a0: 20 72 61 6e 64 53 74 72 20 20 20 20 7d 2c 0a 20   randStr    },. 
74b0: 20 20 20 7b 20 22 74 65 73 74 5f 64 65 73 74 72     { "test_destr
74c0: 75 63 74 6f 72 22 2c 20 20 20 20 20 20 20 31 2c  uctor",       1,
74d0: 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c   1, SQLITE_UTF8,
74e0: 20 30 2c 20 74 65 73 74 5f 64 65 73 74 72 75 63   0, test_destruc
74f0: 74 6f 72 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73  tor},.    { "tes
7500: 74 5f 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75  t_destructor_cou
7510: 6e 74 22 2c 20 30 2c 20 30 2c 20 53 51 4c 49 54  nt", 0, 0, SQLIT
7520: 45 5f 55 54 46 38 2c 20 30 2c 20 74 65 73 74 5f  E_UTF8, 0, test_
7530: 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74  destructor_count
7540: 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 61  },.    { "test_a
7550: 75 78 64 61 74 61 22 2c 20 20 20 20 20 20 20 20  uxdata",        
7560: 20 2d 31 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55   -1, 0, SQLITE_U
7570: 54 46 38 2c 20 30 2c 20 74 65 73 74 5f 61 75 78  TF8, 0, test_aux
7580: 64 61 74 61 7d 2c 0a 20 20 20 20 7b 20 22 74 65  data},.    { "te
7590: 73 74 5f 65 72 72 6f 72 22 2c 20 20 20 20 20 20  st_error",      
75a0: 20 20 20 20 20 20 31 2c 20 30 2c 20 53 51 4c 49        1, 0, SQLI
75b0: 54 45 5f 55 54 46 38 2c 20 30 2c 20 74 65 73 74  TE_UTF8, 0, test
75c0: 5f 65 72 72 6f 72 7d 2c 0a 23 65 6e 64 69 66 0a  _error},.#endif.
75d0: 20 20 7d 3b 0a 20 20 73 74 61 74 69 63 20 63 6f    };.  static co
75e0: 6e 73 74 20 73 74 72 75 63 74 20 7b 0a 20 20 20  nst struct {.   
75f0: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20   char *zName;.  
7600: 20 20 73 69 67 6e 65 64 20 63 68 61 72 20 6e 41    signed char nA
7610: 72 67 3b 0a 20 20 20 20 75 38 20 61 72 67 54 79  rg;.    u8 argTy
7620: 70 65 3b 0a 20 20 20 20 75 38 20 6e 65 65 64 43  pe;.    u8 needC
7630: 6f 6c 6c 53 65 71 3b 0a 20 20 20 20 76 6f 69 64  ollSeq;.    void
7640: 20 28 2a 78 53 74 65 70 29 28 73 71 6c 69 74 65   (*xStep)(sqlite
7650: 33 5f 63 6f 6e 74 65 78 74 2a 2c 69 6e 74 2c 73  3_context*,int,s
7660: 71 6c 69 74 65 33 5f 76 61 6c 75 65 2a 2a 29 3b  qlite3_value**);
7670: 0a 20 20 20 20 76 6f 69 64 20 28 2a 78 46 69 6e  .    void (*xFin
7680: 61 6c 69 7a 65 29 28 73 71 6c 69 74 65 33 5f 63  alize)(sqlite3_c
7690: 6f 6e 74 65 78 74 2a 29 3b 0a 20 20 7d 20 61 41  ontext*);.  } aA
76a0: 67 67 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20  ggs[] = {.    { 
76b0: 22 6d 69 6e 22 2c 20 20 20 20 31 2c 20 30 2c 20  "min",    1, 0, 
76c0: 31 2c 20 6d 69 6e 6d 61 78 53 74 65 70 2c 20 20  1, minmaxStep,  
76d0: 20 6d 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 20   minMaxFinalize 
76e0: 7d 2c 0a 20 20 20 20 7b 20 22 6d 61 78 22 2c 20  },.    { "max", 
76f0: 20 20 20 31 2c 20 32 2c 20 31 2c 20 6d 69 6e 6d     1, 2, 1, minm
7700: 61 78 53 74 65 70 2c 20 20 20 6d 69 6e 4d 61 78  axStep,   minMax
7710: 46 69 6e 61 6c 69 7a 65 20 7d 2c 0a 20 20 20 20  Finalize },.    
7720: 7b 20 22 73 75 6d 22 2c 20 20 20 20 31 2c 20 30  { "sum",    1, 0
7730: 2c 20 30 2c 20 73 75 6d 53 74 65 70 2c 20 20 20  , 0, sumStep,   
7740: 20 20 20 73 75 6d 46 69 6e 61 6c 69 7a 65 20 20     sumFinalize  
7750: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 74 6f 74 61    },.    { "tota
7760: 6c 22 2c 20 20 31 2c 20 30 2c 20 30 2c 20 73 75  l",  1, 0, 0, su
7770: 6d 53 74 65 70 2c 20 20 20 20 20 20 74 6f 74 61  mStep,      tota
7780: 6c 46 69 6e 61 6c 69 7a 65 20 20 20 20 7d 2c 0a  lFinalize    },.
7790: 20 20 20 20 7b 20 22 61 76 67 22 2c 20 20 20 20      { "avg",    
77a0: 31 2c 20 30 2c 20 30 2c 20 73 75 6d 53 74 65 70  1, 0, 0, sumStep
77b0: 2c 20 20 20 20 20 20 61 76 67 46 69 6e 61 6c 69  ,      avgFinali
77c0: 7a 65 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22  ze    },.    { "
77d0: 63 6f 75 6e 74 22 2c 20 20 30 2c 20 30 2c 20 30  count",  0, 0, 0
77e0: 2c 20 63 6f 75 6e 74 53 74 65 70 2c 20 20 20 20  , countStep,    
77f0: 63 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 20 20 7d  countFinalize  }
7800: 2c 0a 20 20 20 20 7b 20 22 63 6f 75 6e 74 22 2c  ,.    { "count",
7810: 20 20 31 2c 20 30 2c 20 30 2c 20 63 6f 75 6e 74    1, 0, 0, count
7820: 53 74 65 70 2c 20 20 20 20 63 6f 75 6e 74 46 69  Step,    countFi
7830: 6e 61 6c 69 7a 65 20 20 7d 2c 0a 20 20 7d 3b 0a  nalize  },.  };.
7840: 20 20 69 6e 74 20 69 3b 0a 0a 20 20 66 6f 72 28    int i;..  for(
7850: 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 46  i=0; i<sizeof(aF
7860: 75 6e 63 73 29 2f 73 69 7a 65 6f 66 28 61 46 75  uncs)/sizeof(aFu
7870: 6e 63 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20  ncs[0]); i++){. 
7880: 20 20 20 76 6f 69 64 20 2a 70 41 72 67 20 3d 20     void *pArg = 
7890: 30 3b 0a 20 20 20 20 73 77 69 74 63 68 28 20 61  0;.    switch( a
78a0: 46 75 6e 63 73 5b 69 5d 2e 61 72 67 54 79 70 65  Funcs[i].argType
78b0: 20 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20 31   ){.      case 1
78c0: 3a 20 70 41 72 67 20 3d 20 64 62 3b 20 62 72 65  : pArg = db; bre
78d0: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 32  ak;.      case 2
78e0: 3a 20 70 41 72 67 20 3d 20 28 76 6f 69 64 20 2a  : pArg = (void *
78f0: 29 28 2d 31 29 3b 20 62 72 65 61 6b 3b 0a 20 20  )(-1); break;.  
7900: 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 43    }.    sqlite3C
7910: 72 65 61 74 65 46 75 6e 63 28 64 62 2c 20 61 46  reateFunc(db, aF
7920: 75 6e 63 73 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61  uncs[i].zName, a
7930: 46 75 6e 63 73 5b 69 5d 2e 6e 41 72 67 2c 0a 20  Funcs[i].nArg,. 
7940: 20 20 20 20 20 20 20 61 46 75 6e 63 73 5b 69 5d         aFuncs[i]
7950: 2e 65 54 65 78 74 52 65 70 2c 20 70 41 72 67 2c  .eTextRep, pArg,
7960: 20 61 46 75 6e 63 73 5b 69 5d 2e 78 46 75 6e 63   aFuncs[i].xFunc
7970: 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 69 66 28  , 0, 0);.    if(
7980: 20 61 46 75 6e 63 73 5b 69 5d 2e 6e 65 65 64 43   aFuncs[i].needC
7990: 6f 6c 6c 53 65 71 20 29 7b 0a 20 20 20 20 20 20  ollSeq ){.      
79a0: 46 75 6e 63 44 65 66 20 2a 70 46 75 6e 63 20 3d  FuncDef *pFunc =
79b0: 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e 63   sqlite3FindFunc
79c0: 74 69 6f 6e 28 64 62 2c 20 61 46 75 6e 63 73 5b  tion(db, aFuncs[
79d0: 69 5d 2e 7a 4e 61 6d 65 2c 20 0a 20 20 20 20 20  i].zName, .     
79e0: 20 20 20 20 20 73 74 72 6c 65 6e 28 61 46 75 6e       strlen(aFun
79f0: 63 73 5b 69 5d 2e 7a 4e 61 6d 65 29 2c 20 61 46  cs[i].zName), aF
7a00: 75 6e 63 73 5b 69 5d 2e 6e 41 72 67 2c 20 61 46  uncs[i].nArg, aF
7a10: 75 6e 63 73 5b 69 5d 2e 65 54 65 78 74 52 65 70  uncs[i].eTextRep
7a20: 2c 20 30 29 3b 0a 20 20 20 20 20 20 69 66 28 20  , 0);.      if( 
7a30: 70 46 75 6e 63 20 26 26 20 61 46 75 6e 63 73 5b  pFunc && aFuncs[
7a40: 69 5d 2e 6e 65 65 64 43 6f 6c 6c 53 65 71 20 29  i].needCollSeq )
7a50: 7b 0a 20 20 20 20 20 20 20 20 70 46 75 6e 63 2d  {.        pFunc-
7a60: 3e 6e 65 65 64 43 6f 6c 6c 53 65 71 20 3d 20 31  >needCollSeq = 1
7a70: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  ;.      }.    }.
7a80: 20 20 7d 0a 23 69 66 6e 64 65 66 20 53 51 4c 49    }.#ifndef SQLI
7a90: 54 45 5f 4f 4d 49 54 5f 41 4c 54 45 52 54 41 42  TE_OMIT_ALTERTAB
7aa0: 4c 45 0a 20 20 73 71 6c 69 74 65 33 41 6c 74 65  LE.  sqlite3Alte
7ab0: 72 46 75 6e 63 74 69 6f 6e 73 28 64 62 29 3b 0a  rFunctions(db);.
7ac0: 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 53  #endif.#ifndef S
7ad0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 50 41 52 53 45  QLITE_OMIT_PARSE
7ae0: 52 0a 20 20 73 71 6c 69 74 65 33 41 74 74 61 63  R.  sqlite3Attac
7af0: 68 46 75 6e 63 74 69 6f 6e 73 28 64 62 29 3b 0a  hFunctions(db);.
7b00: 23 65 6e 64 69 66 0a 20 20 66 6f 72 28 69 3d 30  #endif.  for(i=0
7b10: 3b 20 69 3c 73 69 7a 65 6f 66 28 61 41 67 67 73  ; i<sizeof(aAggs
7b20: 29 2f 73 69 7a 65 6f 66 28 61 41 67 67 73 5b 30  )/sizeof(aAggs[0
7b30: 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 76 6f  ]); i++){.    vo
7b40: 69 64 20 2a 70 41 72 67 20 3d 20 30 3b 0a 20 20  id *pArg = 0;.  
7b50: 20 20 73 77 69 74 63 68 28 20 61 41 67 67 73 5b    switch( aAggs[
7b60: 69 5d 2e 61 72 67 54 79 70 65 20 29 7b 0a 20 20  i].argType ){.  
7b70: 20 20 20 20 63 61 73 65 20 31 3a 20 70 41 72 67      case 1: pArg
7b80: 20 3d 20 64 62 3b 20 62 72 65 61 6b 3b 0a 20 20   = db; break;.  
7b90: 20 20 20 20 63 61 73 65 20 32 3a 20 70 41 72 67      case 2: pArg
7ba0: 20 3d 20 28 76 6f 69 64 20 2a 29 28 2d 31 29 3b   = (void *)(-1);
7bb0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20   break;.    }.  
7bc0: 20 20 73 71 6c 69 74 65 33 43 72 65 61 74 65 46    sqlite3CreateF
7bd0: 75 6e 63 28 64 62 2c 20 61 41 67 67 73 5b 69 5d  unc(db, aAggs[i]
7be0: 2e 7a 4e 61 6d 65 2c 20 61 41 67 67 73 5b 69 5d  .zName, aAggs[i]
7bf0: 2e 6e 41 72 67 2c 20 53 51 4c 49 54 45 5f 55 54  .nArg, SQLITE_UT
7c00: 46 38 2c 20 0a 20 20 20 20 20 20 20 20 70 41 72  F8, .        pAr
7c10: 67 2c 20 30 2c 20 61 41 67 67 73 5b 69 5d 2e 78  g, 0, aAggs[i].x
7c20: 53 74 65 70 2c 20 61 41 67 67 73 5b 69 5d 2e 78  Step, aAggs[i].x
7c30: 46 69 6e 61 6c 69 7a 65 29 3b 0a 20 20 20 20 69  Finalize);.    i
7c40: 66 28 20 61 41 67 67 73 5b 69 5d 2e 6e 65 65 64  f( aAggs[i].need
7c50: 43 6f 6c 6c 53 65 71 20 29 7b 0a 20 20 20 20 20  CollSeq ){.     
7c60: 20 46 75 6e 63 44 65 66 20 2a 70 46 75 6e 63 20   FuncDef *pFunc 
7c70: 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e  = sqlite3FindFun
7c80: 63 74 69 6f 6e 28 20 64 62 2c 20 61 41 67 67 73  ction( db, aAggs
7c90: 5b 69 5d 2e 7a 4e 61 6d 65 2c 0a 20 20 20 20 20  [i].zName,.     
7ca0: 20 20 20 20 20 73 74 72 6c 65 6e 28 61 41 67 67       strlen(aAgg
7cb0: 73 5b 69 5d 2e 7a 4e 61 6d 65 29 2c 20 61 41 67  s[i].zName), aAg
7cc0: 67 73 5b 69 5d 2e 6e 41 72 67 2c 20 53 51 4c 49  gs[i].nArg, SQLI
7cd0: 54 45 5f 55 54 46 38 2c 20 30 29 3b 0a 20 20 20  TE_UTF8, 0);.   
7ce0: 20 20 20 69 66 28 20 70 46 75 6e 63 20 26 26 20     if( pFunc && 
7cf0: 61 41 67 67 73 5b 69 5d 2e 6e 65 65 64 43 6f 6c  aAggs[i].needCol
7d00: 6c 53 65 71 20 29 7b 0a 20 20 20 20 20 20 20 20  lSeq ){.        
7d10: 70 46 75 6e 63 2d 3e 6e 65 65 64 43 6f 6c 6c 53  pFunc->needCollS
7d20: 65 71 20 3d 20 31 3b 0a 20 20 20 20 20 20 7d 0a  eq = 1;.      }.
7d30: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 71 6c 69      }.  }.  sqli
7d40: 74 65 33 52 65 67 69 73 74 65 72 44 61 74 65 54  te3RegisterDateT
7d50: 69 6d 65 46 75 6e 63 74 69 6f 6e 73 28 64 62 29  imeFunctions(db)
7d60: 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f  ;.#ifdef SQLITE_
7d70: 53 53 45 0a 20 20 73 71 6c 69 74 65 33 53 73 65  SSE.  sqlite3Sse
7d80: 46 75 6e 63 74 69 6f 6e 73 28 64 62 29 3b 0a 23  Functions(db);.#
7d90: 65 6e 64 69 66 0a 23 69 66 64 65 66 20 53 51 4c  endif.#ifdef SQL
7da0: 49 54 45 5f 43 41 53 45 5f 53 45 4e 53 49 54 49  ITE_CASE_SENSITI
7db0: 56 45 5f 4c 49 4b 45 0a 20 20 73 71 6c 69 74 65  VE_LIKE.  sqlite
7dc0: 33 52 65 67 69 73 74 65 72 4c 69 6b 65 46 75 6e  3RegisterLikeFun
7dd0: 63 74 69 6f 6e 73 28 64 62 2c 20 31 29 3b 0a 23  ctions(db, 1);.#
7de0: 65 6c 73 65 0a 20 20 73 71 6c 69 74 65 33 52 65  else.  sqlite3Re
7df0: 67 69 73 74 65 72 4c 69 6b 65 46 75 6e 63 74 69  gisterLikeFuncti
7e00: 6f 6e 73 28 64 62 2c 20 30 29 3b 0a 23 65 6e 64  ons(db, 0);.#end
7e10: 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20  if.}../*.** Set 
7e20: 74 68 65 20 4c 49 4b 45 4f 50 54 20 66 6c 61 67  the LIKEOPT flag
7e30: 20 6f 6e 20 74 68 65 20 32 2d 61 72 67 75 6d 65   on the 2-argume
7e40: 6e 74 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68  nt function with
7e50: 20 74 68 65 20 67 69 76 65 6e 20 6e 61 6d 65 2e   the given name.
7e60: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
7e70: 73 65 74 4c 69 6b 65 4f 70 74 46 6c 61 67 28 73  setLikeOptFlag(s
7e80: 71 6c 69 74 65 33 20 2a 64 62 2c 20 63 6f 6e 73  qlite3 *db, cons
7e90: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69  t char *zName, i
7ea0: 6e 74 20 66 6c 61 67 56 61 6c 29 7b 0a 20 20 46  nt flagVal){.  F
7eb0: 75 6e 63 44 65 66 20 2a 70 44 65 66 3b 0a 20 20  uncDef *pDef;.  
7ec0: 70 44 65 66 20 3d 20 73 71 6c 69 74 65 33 46 69  pDef = sqlite3Fi
7ed0: 6e 64 46 75 6e 63 74 69 6f 6e 28 64 62 2c 20 7a  ndFunction(db, z
7ee0: 4e 61 6d 65 2c 20 73 74 72 6c 65 6e 28 7a 4e 61  Name, strlen(zNa
7ef0: 6d 65 29 2c 20 32 2c 20 53 51 4c 49 54 45 5f 55  me), 2, SQLITE_U
7f00: 54 46 38 2c 20 30 29 3b 0a 20 20 69 66 28 20 70  TF8, 0);.  if( p
7f10: 44 65 66 20 29 7b 0a 20 20 20 20 70 44 65 66 2d  Def ){.    pDef-
7f20: 3e 66 6c 61 67 73 20 3d 20 66 6c 61 67 56 61 6c  >flags = flagVal
7f30: 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52  ;.  }.}../*.** R
7f40: 65 67 69 73 74 65 72 20 74 68 65 20 62 75 69 6c  egister the buil
7f50: 74 2d 69 6e 20 4c 49 4b 45 20 61 6e 64 20 47 4c  t-in LIKE and GL
7f60: 4f 42 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 54  OB functions.  T
7f70: 68 65 20 63 61 73 65 53 65 6e 73 69 74 69 76 65  he caseSensitive
7f80: 0a 2a 2a 20 70 61 72 61 6d 65 74 65 72 20 64 65  .** parameter de
7f90: 74 65 72 6d 69 6e 65 73 20 77 68 65 74 68 65 72  termines whether
7fa0: 20 6f 72 20 6e 6f 74 20 74 68 65 20 4c 49 4b 45   or not the LIKE
7fb0: 20 6f 70 65 72 61 74 6f 72 20 69 73 20 63 61 73   operator is cas
7fc0: 65 0a 2a 2a 20 73 65 6e 73 69 74 69 76 65 2e 20  e.** sensitive. 
7fd0: 20 47 4c 4f 42 20 69 73 20 61 6c 77 61 79 73 20   GLOB is always 
7fe0: 63 61 73 65 20 73 65 6e 73 69 74 69 76 65 2e 0a  case sensitive..
7ff0: 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 52  */.void sqlite3R
8000: 65 67 69 73 74 65 72 4c 69 6b 65 46 75 6e 63 74  egisterLikeFunct
8010: 69 6f 6e 73 28 73 71 6c 69 74 65 33 20 2a 64 62  ions(sqlite3 *db
8020: 2c 20 69 6e 74 20 63 61 73 65 53 65 6e 73 69 74  , int caseSensit
8030: 69 76 65 29 7b 0a 20 20 73 74 72 75 63 74 20 63  ive){.  struct c
8040: 6f 6d 70 61 72 65 49 6e 66 6f 20 2a 70 49 6e 66  ompareInfo *pInf
8050: 6f 3b 0a 20 20 69 66 28 20 63 61 73 65 53 65 6e  o;.  if( caseSen
8060: 73 69 74 69 76 65 20 29 7b 0a 20 20 20 20 70 49  sitive ){.    pI
8070: 6e 66 6f 20 3d 20 28 73 74 72 75 63 74 20 63 6f  nfo = (struct co
8080: 6d 70 61 72 65 49 6e 66 6f 2a 29 26 6c 69 6b 65  mpareInfo*)&like
8090: 49 6e 66 6f 41 6c 74 3b 0a 20 20 7d 65 6c 73 65  InfoAlt;.  }else
80a0: 7b 0a 20 20 20 20 70 49 6e 66 6f 20 3d 20 28 73  {.    pInfo = (s
80b0: 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66  truct compareInf
80c0: 6f 2a 29 26 6c 69 6b 65 49 6e 66 6f 4e 6f 72 6d  o*)&likeInfoNorm
80d0: 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 43  ;.  }.  sqlite3C
80e0: 72 65 61 74 65 46 75 6e 63 28 64 62 2c 20 22 6c  reateFunc(db, "l
80f0: 69 6b 65 22 2c 20 32 2c 20 53 51 4c 49 54 45 5f  ike", 2, SQLITE_
8100: 55 54 46 38 2c 20 70 49 6e 66 6f 2c 20 6c 69 6b  UTF8, pInfo, lik
8110: 65 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20  eFunc, 0, 0);.  
8120: 73 71 6c 69 74 65 33 43 72 65 61 74 65 46 75 6e  sqlite3CreateFun
8130: 63 28 64 62 2c 20 22 6c 69 6b 65 22 2c 20 33 2c  c(db, "like", 3,
8140: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 70 49   SQLITE_UTF8, pI
8150: 6e 66 6f 2c 20 6c 69 6b 65 46 75 6e 63 2c 20 30  nfo, likeFunc, 0
8160: 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 43  , 0);.  sqlite3C
8170: 72 65 61 74 65 46 75 6e 63 28 64 62 2c 20 22 67  reateFunc(db, "g
8180: 6c 6f 62 22 2c 20 32 2c 20 53 51 4c 49 54 45 5f  lob", 2, SQLITE_
8190: 55 54 46 38 2c 20 0a 20 20 20 20 20 20 28 73 74  UTF8, .      (st
81a0: 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f  ruct compareInfo
81b0: 2a 29 26 67 6c 6f 62 49 6e 66 6f 2c 20 6c 69 6b  *)&globInfo, lik
81c0: 65 46 75 6e 63 2c 20 30 2c 30 29 3b 0a 20 20 73  eFunc, 0,0);.  s
81d0: 65 74 4c 69 6b 65 4f 70 74 46 6c 61 67 28 64 62  etLikeOptFlag(db
81e0: 2c 20 22 67 6c 6f 62 22 2c 20 53 51 4c 49 54 45  , "glob", SQLITE
81f0: 5f 46 55 4e 43 5f 4c 49 4b 45 20 7c 20 53 51 4c  _FUNC_LIKE | SQL
8200: 49 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 3b 0a  ITE_FUNC_CASE);.
8210: 20 20 73 65 74 4c 69 6b 65 4f 70 74 46 6c 61 67    setLikeOptFlag
8220: 28 64 62 2c 20 22 6c 69 6b 65 22 2c 20 0a 20 20  (db, "like", .  
8230: 20 20 20 20 63 61 73 65 53 65 6e 73 69 74 69 76      caseSensitiv
8240: 65 20 3f 20 28 53 51 4c 49 54 45 5f 46 55 4e 43  e ? (SQLITE_FUNC
8250: 5f 4c 49 4b 45 20 7c 20 53 51 4c 49 54 45 5f 46  _LIKE | SQLITE_F
8260: 55 4e 43 5f 43 41 53 45 29 20 3a 20 53 51 4c 49  UNC_CASE) : SQLI
8270: 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 29 3b 0a 7d  TE_FUNC_LIKE);.}
8280: 0a 0a 2f 2a 0a 2a 2a 20 70 45 78 70 72 20 70 6f  ../*.** pExpr po
8290: 69 6e 74 73 20 74 6f 20 61 6e 20 65 78 70 72 65  ints to an expre
82a0: 73 73 69 6f 6e 20 77 68 69 63 68 20 69 6d 70 6c  ssion which impl
82b0: 65 6d 65 6e 74 73 20 61 20 66 75 6e 63 74 69 6f  ements a functio
82c0: 6e 2e 20 20 49 66 0a 2a 2a 20 69 74 20 69 73 20  n.  If.** it is 
82d0: 61 70 70 72 6f 70 72 69 61 74 65 20 74 6f 20 61  appropriate to a
82e0: 70 70 6c 79 20 74 68 65 20 4c 49 4b 45 20 6f 70  pply the LIKE op
82f0: 74 69 6d 69 7a 61 74 69 6f 6e 20 74 6f 20 74 68  timization to th
8300: 61 74 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 74  at function.** t
8310: 68 65 6e 20 73 65 74 20 61 57 63 5b 30 5d 20 74  hen set aWc[0] t
8320: 68 72 6f 75 67 68 20 61 57 63 5b 32 5d 20 74 6f  hrough aWc[2] to
8330: 20 74 68 65 20 77 69 6c 64 63 61 72 64 20 63 68   the wildcard ch
8340: 61 72 61 63 74 65 72 73 20 61 6e 64 0a 2a 2a 20  aracters and.** 
8350: 72 65 74 75 72 6e 20 54 52 55 45 2e 20 20 49 66  return TRUE.  If
8360: 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73   the function is
8370: 20 6e 6f 74 20 61 20 4c 49 4b 45 2d 73 74 79 6c   not a LIKE-styl
8380: 65 20 66 75 6e 63 74 69 6f 6e 20 74 68 65 6e 0a  e function then.
8390: 2a 2a 20 72 65 74 75 72 6e 20 46 41 4c 53 45 2e  ** return FALSE.
83a0: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 49  .*/.int sqlite3I
83b0: 73 4c 69 6b 65 46 75 6e 63 74 69 6f 6e 28 73 71  sLikeFunction(sq
83c0: 6c 69 74 65 33 20 2a 64 62 2c 20 45 78 70 72 20  lite3 *db, Expr 
83d0: 2a 70 45 78 70 72 2c 20 69 6e 74 20 2a 70 49 73  *pExpr, int *pIs
83e0: 4e 6f 63 61 73 65 2c 20 63 68 61 72 20 2a 61 57  Nocase, char *aW
83f0: 63 29 7b 0a 20 20 46 75 6e 63 44 65 66 20 2a 70  c){.  FuncDef *p
8400: 44 65 66 3b 0a 20 20 69 66 28 20 70 45 78 70 72  Def;.  if( pExpr
8410: 2d 3e 6f 70 21 3d 54 4b 5f 46 55 4e 43 54 49 4f  ->op!=TK_FUNCTIO
8420: 4e 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  N ){.    return 
8430: 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 45 78  0;.  }.  if( pEx
8440: 70 72 2d 3e 70 4c 69 73 74 2d 3e 6e 45 78 70 72  pr->pList->nExpr
8450: 21 3d 32 20 29 7b 0a 20 20 20 20 72 65 74 75 72  !=2 ){.    retur
8460: 6e 20 30 3b 0a 20 20 7d 0a 20 20 70 44 65 66 20  n 0;.  }.  pDef 
8470: 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e  = sqlite3FindFun
8480: 63 74 69 6f 6e 28 64 62 2c 20 28 63 68 61 72 2a  ction(db, (char*
8490: 29 70 45 78 70 72 2d 3e 74 6f 6b 65 6e 2e 7a 2c  )pExpr->token.z,
84a0: 20 70 45 78 70 72 2d 3e 74 6f 6b 65 6e 2e 6e 2c   pExpr->token.n,
84b0: 20 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20   2,.            
84c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
84d0: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 29   SQLITE_UTF8, 0)
84e0: 3b 0a 20 20 69 66 28 20 70 44 65 66 3d 3d 30 20  ;.  if( pDef==0 
84f0: 7c 7c 20 28 70 44 65 66 2d 3e 66 6c 61 67 73 20  || (pDef->flags 
8500: 26 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c 49  & SQLITE_FUNC_LI
8510: 4b 45 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65  KE)==0 ){.    re
8520: 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 0a 20 20 2f  turn 0;.  }..  /
8530: 2a 20 54 68 65 20 6d 65 6d 63 70 79 28 29 20 73  * The memcpy() s
8540: 74 61 74 65 6d 65 6e 74 20 61 73 73 75 6d 65 73  tatement assumes
8550: 20 74 68 61 74 20 74 68 65 20 77 69 6c 64 63 61   that the wildca
8560: 72 64 20 63 68 61 72 61 63 74 65 72 73 20 61 72  rd characters ar
8570: 65 0a 20 20 2a 2a 20 74 68 65 20 66 69 72 73 74  e.  ** the first
8580: 20 74 68 72 65 65 20 73 74 61 74 65 6d 65 6e 74   three statement
8590: 73 20 69 6e 20 74 68 65 20 63 6f 6d 70 61 72 65  s in the compare
85a0: 49 6e 66 6f 20 73 74 72 75 63 74 75 72 65 2e 20  Info structure. 
85b0: 20 54 68 65 0a 20 20 2a 2a 20 61 73 73 65 72 74   The.  ** assert
85c0: 73 28 29 20 74 68 61 74 20 66 6f 6c 6c 6f 77 20  s() that follow 
85d0: 76 65 72 69 66 79 20 74 68 61 74 20 61 73 73 75  verify that assu
85e0: 6d 70 74 69 6f 6e 0a 20 20 2a 2f 0a 20 20 6d 65  mption.  */.  me
85f0: 6d 63 70 79 28 61 57 63 2c 20 70 44 65 66 2d 3e  mcpy(aWc, pDef->
8600: 70 55 73 65 72 44 61 74 61 2c 20 33 29 3b 0a 20  pUserData, 3);. 
8610: 20 61 73 73 65 72 74 28 20 28 63 68 61 72 2a 29   assert( (char*)
8620: 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 20 3d 3d 20  &likeInfoAlt == 
8630: 28 63 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 6f  (char*)&likeInfo
8640: 41 6c 74 2e 6d 61 74 63 68 41 6c 6c 20 29 3b 0a  Alt.matchAll );.
8650: 20 20 61 73 73 65 72 74 28 20 26 28 28 63 68 61    assert( &((cha
8660: 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 29  r*)&likeInfoAlt)
8670: 5b 31 5d 20 3d 3d 20 28 63 68 61 72 2a 29 26 6c  [1] == (char*)&l
8680: 69 6b 65 49 6e 66 6f 41 6c 74 2e 6d 61 74 63 68  ikeInfoAlt.match
8690: 4f 6e 65 20 29 3b 0a 20 20 61 73 73 65 72 74 28  One );.  assert(
86a0: 20 26 28 28 63 68 61 72 2a 29 26 6c 69 6b 65 49   &((char*)&likeI
86b0: 6e 66 6f 41 6c 74 29 5b 32 5d 20 3d 3d 20 28 63  nfoAlt)[2] == (c
86c0: 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c  har*)&likeInfoAl
86d0: 74 2e 6d 61 74 63 68 53 65 74 20 29 3b 0a 20 20  t.matchSet );.  
86e0: 2a 70 49 73 4e 6f 63 61 73 65 20 3d 20 28 70 44  *pIsNocase = (pD
86f0: 65 66 2d 3e 66 6c 61 67 73 20 26 20 53 51 4c 49  ef->flags & SQLI
8700: 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 3d 3d 30  TE_FUNC_CASE)==0
8710: 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a  ;.  return 1;.}.