/ Hex Artifact Content
Login

Artifact bbb724b74ed96ca42675a7274646a71dd52bcda7:


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 2d 6c 61 6e 67 75 61 67 65 20 69 6d 70 6c 65  C-language imple
01a0: 6d 65 6e 74 69 6f 6e 73 20 66 6f 72 20 6d 61 6e  mentions for man
01b0: 79 20 6f 66 20 74 68 65 20 53 51 4c 0a 2a 2a 20  y of the SQL.** 
01c0: 66 75 6e 63 74 69 6f 6e 73 20 6f 66 20 53 51 4c  functions of SQL
01d0: 69 74 65 2e 20 20 28 53 6f 6d 65 20 66 75 6e 63  ite.  (Some func
01e0: 74 69 6f 6e 2c 20 61 6e 64 20 69 6e 20 70 61 72  tion, and in par
01f0: 74 69 63 75 6c 61 72 20 74 68 65 20 64 61 74 65  ticular the date
0200: 20 61 6e 64 0a 2a 2a 20 74 69 6d 65 20 66 75 6e   and.** time fun
0210: 63 74 69 6f 6e 73 2c 20 61 72 65 20 69 6d 70 6c  ctions, are impl
0220: 65 6d 65 6e 74 65 64 20 73 65 70 61 72 61 74 65  emented separate
0230: 6c 79 2e 29 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65  ly.).*/.#include
0240: 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23   "sqliteInt.h".#
0250: 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e  include <stdlib.
0260: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 61 73 73  h>.#include <ass
0270: 65 72 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20  ert.h>.#include 
0280: 22 76 64 62 65 49 6e 74 2e 68 22 0a 0a 2f 2a 0a  "vdbeInt.h"../*.
0290: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f  ** Return the co
02a0: 6c 6c 61 74 69 6e 67 20 66 75 6e 63 74 69 6f 6e  llating function
02b0: 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68   associated with
02c0: 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a   a function..*/.
02d0: 73 74 61 74 69 63 20 43 6f 6c 6c 53 65 71 20 2a  static CollSeq *
02e0: 73 71 6c 69 74 65 33 47 65 74 46 75 6e 63 43 6f  sqlite3GetFuncCo
02f0: 6c 6c 53 65 71 28 73 71 6c 69 74 65 33 5f 63 6f  llSeq(sqlite3_co
0300: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b  ntext *context){
0310: 0a 20 20 72 65 74 75 72 6e 20 63 6f 6e 74 65 78  .  return contex
0320: 74 2d 3e 70 43 6f 6c 6c 3b 0a 7d 0a 0a 2f 2a 0a  t->pColl;.}../*.
0330: 2a 2a 20 49 6e 64 69 63 61 74 65 20 74 68 61 74  ** Indicate that
0340: 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 6f 72   the accumulator
0350: 20 6c 6f 61 64 20 73 68 6f 75 6c 64 20 62 65 20   load should be 
0360: 73 6b 69 70 70 65 64 20 6f 6e 20 74 68 69 73 0a  skipped on this.
0370: 2a 2a 20 69 74 65 72 61 74 69 6f 6e 20 6f 66 20  ** iteration of 
0380: 74 68 65 20 61 67 67 72 65 67 61 74 65 20 6c 6f  the aggregate lo
0390: 6f 70 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  op..*/.static vo
03a0: 69 64 20 73 71 6c 69 74 65 33 53 6b 69 70 41 63  id sqlite3SkipAc
03b0: 63 75 6d 75 6c 61 74 6f 72 4c 6f 61 64 28 73 71  cumulatorLoad(sq
03c0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
03d0: 6f 6e 74 65 78 74 29 7b 0a 20 20 63 6f 6e 74 65  ontext){.  conte
03e0: 78 74 2d 3e 73 6b 69 70 46 6c 61 67 20 3d 20 31  xt->skipFlag = 1
03f0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65  ;.}../*.** Imple
0400: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65  mentation of the
0410: 20 6e 6f 6e 2d 61 67 67 72 65 67 61 74 65 20 6d   non-aggregate m
0420: 69 6e 28 29 20 61 6e 64 20 6d 61 78 28 29 20 66  in() and max() f
0430: 75 6e 63 74 69 6f 6e 73 0a 2a 2f 0a 73 74 61 74  unctions.*/.stat
0440: 69 63 20 76 6f 69 64 20 6d 69 6e 6d 61 78 46 75  ic void minmaxFu
0450: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  nc(.  sqlite3_co
0460: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a  ntext *context,.
0470: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71    int argc,.  sq
0480: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72  lite3_value **ar
0490: 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20  gv.){.  int i;. 
04a0: 20 69 6e 74 20 6d 61 73 6b 3b 20 20 20 20 2f 2a   int mask;    /*
04b0: 20 30 20 66 6f 72 20 6d 69 6e 28 29 20 6f 72 20   0 for min() or 
04c0: 30 78 66 66 66 66 66 66 66 66 20 66 6f 72 20 6d  0xffffffff for m
04d0: 61 78 28 29 20 2a 2f 0a 20 20 69 6e 74 20 69 42  ax() */.  int iB
04e0: 65 73 74 3b 0a 20 20 43 6f 6c 6c 53 65 71 20 2a  est;.  CollSeq *
04f0: 70 43 6f 6c 6c 3b 0a 0a 20 20 61 73 73 65 72 74  pColl;..  assert
0500: 28 20 61 72 67 63 3e 31 20 29 3b 0a 20 20 6d 61  ( argc>1 );.  ma
0510: 73 6b 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65  sk = sqlite3_use
0520: 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 3d  r_data(context)=
0530: 3d 30 20 3f 20 30 20 3a 20 2d 31 3b 0a 20 20 70  =0 ? 0 : -1;.  p
0540: 43 6f 6c 6c 20 3d 20 73 71 6c 69 74 65 33 47 65  Coll = sqlite3Ge
0550: 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 6f 6e  tFuncCollSeq(con
0560: 74 65 78 74 29 3b 0a 20 20 61 73 73 65 72 74 28  text);.  assert(
0570: 20 70 43 6f 6c 6c 20 29 3b 0a 20 20 61 73 73 65   pColl );.  asse
0580: 72 74 28 20 6d 61 73 6b 3d 3d 2d 31 20 7c 7c 20  rt( mask==-1 || 
0590: 6d 61 73 6b 3d 3d 30 20 29 3b 0a 20 20 69 42 65  mask==0 );.  iBe
05a0: 73 74 20 3d 20 30 3b 0a 20 20 69 66 28 20 73 71  st = 0;.  if( sq
05b0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65  lite3_value_type
05c0: 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54  (argv[0])==SQLIT
05d0: 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75 72 6e 3b  E_NULL ) return;
05e0: 0a 20 20 66 6f 72 28 69 3d 31 3b 20 69 3c 61 72  .  for(i=1; i<ar
05f0: 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66  gc; i++){.    if
0600: 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  ( sqlite3_value_
0610: 74 79 70 65 28 61 72 67 76 5b 69 5d 29 3d 3d 53  type(argv[i])==S
0620: 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74  QLITE_NULL ) ret
0630: 75 72 6e 3b 0a 20 20 20 20 69 66 28 20 28 73 71  urn;.    if( (sq
0640: 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 65 28  lite3MemCompare(
0650: 61 72 67 76 5b 69 42 65 73 74 5d 2c 20 61 72 67  argv[iBest], arg
0660: 76 5b 69 5d 2c 20 70 43 6f 6c 6c 29 5e 6d 61 73  v[i], pColl)^mas
0670: 6b 29 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 74  k)>=0 ){.      t
0680: 65 73 74 63 61 73 65 28 20 6d 61 73 6b 3d 3d 30  estcase( mask==0
0690: 20 29 3b 0a 20 20 20 20 20 20 69 42 65 73 74 20   );.      iBest 
06a0: 3d 20 69 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  = i;.    }.  }. 
06b0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
06c0: 76 61 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20 61  value(context, a
06d0: 72 67 76 5b 69 42 65 73 74 5d 29 3b 0a 7d 0a 0a  rgv[iBest]);.}..
06e0: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65  /*.** Return the
06f0: 20 74 79 70 65 20 6f 66 20 74 68 65 20 61 72 67   type of the arg
0700: 75 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63  ument..*/.static
0710: 20 76 6f 69 64 20 74 79 70 65 6f 66 46 75 6e 63   void typeofFunc
0720: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
0730: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20  ext *context,.  
0740: 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 73  int NotUsed,.  s
0750: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61  qlite3_value **a
0760: 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63  rgv.){.  const c
0770: 68 61 72 20 2a 7a 20 3d 20 30 3b 0a 20 20 55 4e  har *z = 0;.  UN
0780: 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 4e  USED_PARAMETER(N
0790: 6f 74 55 73 65 64 29 3b 0a 20 20 73 77 69 74 63  otUsed);.  switc
07a0: 68 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  h( sqlite3_value
07b0: 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 20 29  _type(argv[0]) )
07c0: 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54  {.    case SQLIT
07d0: 45 5f 49 4e 54 45 47 45 52 3a 20 7a 20 3d 20 22  E_INTEGER: z = "
07e0: 69 6e 74 65 67 65 72 22 3b 20 62 72 65 61 6b 3b  integer"; break;
07f0: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
0800: 5f 54 45 58 54 3a 20 20 20 20 7a 20 3d 20 22 74  _TEXT:    z = "t
0810: 65 78 74 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a  ext";    break;.
0820: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f      case SQLITE_
0830: 46 4c 4f 41 54 3a 20 20 20 7a 20 3d 20 22 72 65  FLOAT:   z = "re
0840: 61 6c 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20  al";    break;. 
0850: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 42     case SQLITE_B
0860: 4c 4f 42 3a 20 20 20 20 7a 20 3d 20 22 62 6c 6f  LOB:    z = "blo
0870: 62 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  b";    break;.  
0880: 20 20 64 65 66 61 75 6c 74 3a 20 20 20 20 20 20    default:      
0890: 20 20 20 20 20 20 20 7a 20 3d 20 22 6e 75 6c 6c         z = "null
08a0: 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d  ";    break;.  }
08b0: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c  .  sqlite3_resul
08c0: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20  t_text(context, 
08d0: 7a 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 53 54  z, -1, SQLITE_ST
08e0: 41 54 49 43 29 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a  ATIC);.}.../*.**
08f0: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   Implementation 
0900: 6f 66 20 74 68 65 20 6c 65 6e 67 74 68 28 29 20  of the length() 
0910: 66 75 6e 63 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74  function.*/.stat
0920: 69 63 20 76 6f 69 64 20 6c 65 6e 67 74 68 46 75  ic void lengthFu
0930: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  nc(.  sqlite3_co
0940: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a  ntext *context,.
0950: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71    int argc,.  sq
0960: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72  lite3_value **ar
0970: 67 76 0a 29 7b 0a 20 20 69 6e 74 20 6c 65 6e 3b  gv.){.  int len;
0980: 0a 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63  ..  assert( argc
0990: 3d 3d 31 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f  ==1 );.  UNUSED_
09a0: 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b  PARAMETER(argc);
09b0: 0a 20 20 73 77 69 74 63 68 28 20 73 71 6c 69 74  .  switch( sqlit
09c0: 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72  e3_value_type(ar
09d0: 67 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 63 61  gv[0]) ){.    ca
09e0: 73 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a 0a  se SQLITE_BLOB:.
09f0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f      case SQLITE_
0a00: 49 4e 54 45 47 45 52 3a 0a 20 20 20 20 63 61 73  INTEGER:.    cas
0a10: 65 20 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a 20  e SQLITE_FLOAT: 
0a20: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  {.      sqlite3_
0a30: 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65  result_int(conte
0a40: 78 74 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  xt, sqlite3_valu
0a50: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29  e_bytes(argv[0])
0a60: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
0a70: 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 53      }.    case S
0a80: 51 4c 49 54 45 5f 54 45 58 54 3a 20 7b 0a 20 20  QLITE_TEXT: {.  
0a90: 20 20 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e      const unsign
0aa0: 65 64 20 63 68 61 72 20 2a 7a 20 3d 20 73 71 6c  ed char *z = sql
0ab0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28  ite3_value_text(
0ac0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20  argv[0]);.      
0ad0: 69 66 28 20 7a 3d 3d 30 20 29 20 72 65 74 75 72  if( z==0 ) retur
0ae0: 6e 3b 0a 20 20 20 20 20 20 6c 65 6e 20 3d 20 30  n;.      len = 0
0af0: 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 2a  ;.      while( *
0b00: 7a 20 29 7b 0a 20 20 20 20 20 20 20 20 6c 65 6e  z ){.        len
0b10: 2b 2b 3b 0a 20 20 20 20 20 20 20 20 53 51 4c 49  ++;.        SQLI
0b20: 54 45 5f 53 4b 49 50 5f 55 54 46 38 28 7a 29 3b  TE_SKIP_UTF8(z);
0b30: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73  .      }.      s
0b40: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e  qlite3_result_in
0b50: 74 28 63 6f 6e 74 65 78 74 2c 20 6c 65 6e 29 3b  t(context, len);
0b60: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
0b70: 20 20 7d 0a 20 20 20 20 64 65 66 61 75 6c 74 3a    }.    default:
0b80: 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33   {.      sqlite3
0b90: 5f 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e  _result_null(con
0ba0: 74 65 78 74 29 3b 0a 20 20 20 20 20 20 62 72 65  text);.      bre
0bb0: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  ak;.    }.  }.}.
0bc0: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74  ./*.** Implement
0bd0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 61 62 73  ation of the abs
0be0: 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a  () function..**.
0bf0: 2a 2a 20 49 4d 50 3a 20 52 2d 32 33 39 37 39 2d  ** IMP: R-23979-
0c00: 32 36 38 35 35 20 54 68 65 20 61 62 73 28 58 29  26855 The abs(X)
0c10: 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e   function return
0c20: 73 20 74 68 65 20 61 62 73 6f 6c 75 74 65 20 76  s the absolute v
0c30: 61 6c 75 65 20 6f 66 0a 2a 2a 20 74 68 65 20 6e  alue of.** the n
0c40: 75 6d 65 72 69 63 20 61 72 67 75 6d 65 6e 74 20  umeric argument 
0c50: 58 2e 20 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  X. .*/.static vo
0c60: 69 64 20 61 62 73 46 75 6e 63 28 73 71 6c 69 74  id absFunc(sqlit
0c70: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74  e3_context *cont
0c80: 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73  ext, int argc, s
0c90: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61  qlite3_value **a
0ca0: 72 67 76 29 7b 0a 20 20 61 73 73 65 72 74 28 20  rgv){.  assert( 
0cb0: 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 55 4e 55  argc==1 );.  UNU
0cc0: 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72  SED_PARAMETER(ar
0cd0: 67 63 29 3b 0a 20 20 73 77 69 74 63 68 28 20 73  gc);.  switch( s
0ce0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70  qlite3_value_typ
0cf0: 65 28 61 72 67 76 5b 30 5d 29 20 29 7b 0a 20 20  e(argv[0]) ){.  
0d00: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 49 4e    case SQLITE_IN
0d10: 54 45 47 45 52 3a 20 7b 0a 20 20 20 20 20 20 69  TEGER: {.      i
0d20: 36 34 20 69 56 61 6c 20 3d 20 73 71 6c 69 74 65  64 iVal = sqlite
0d30: 33 5f 76 61 6c 75 65 5f 69 6e 74 36 34 28 61 72  3_value_int64(ar
0d40: 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 69 66  gv[0]);.      if
0d50: 28 20 69 56 61 6c 3c 30 20 29 7b 0a 20 20 20 20  ( iVal<0 ){.    
0d60: 20 20 20 20 69 66 28 20 69 56 61 6c 3d 3d 53 4d      if( iVal==SM
0d70: 41 4c 4c 45 53 54 5f 49 4e 54 36 34 20 29 7b 0a  ALLEST_INT64 ){.
0d80: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 49 4d 50            /* IMP
0d90: 3a 20 52 2d 33 31 36 37 36 2d 34 35 35 30 39 20  : R-31676-45509 
0da0: 49 66 20 58 20 69 73 20 74 68 65 20 69 6e 74 65  If X is the inte
0db0: 67 65 72 20 2d 39 32 32 33 33 37 32 30 33 36 38  ger -92233720368
0dc0: 35 34 37 37 35 38 30 38 0a 20 20 20 20 20 20 20  54775808.       
0dd0: 20 20 20 2a 2a 20 74 68 65 6e 20 61 62 73 28 58     ** then abs(X
0de0: 29 20 74 68 72 6f 77 73 20 61 6e 20 69 6e 74 65  ) throws an inte
0df0: 67 65 72 20 6f 76 65 72 66 6c 6f 77 20 65 72 72  ger overflow err
0e00: 6f 72 20 73 69 6e 63 65 20 74 68 65 72 65 20 69  or since there i
0e10: 73 20 6e 6f 0a 20 20 20 20 20 20 20 20 20 20 2a  s no.          *
0e20: 2a 20 65 71 75 69 76 61 6c 65 6e 74 20 70 6f 73  * equivalent pos
0e30: 69 74 69 76 65 20 36 34 2d 62 69 74 20 74 77 6f  itive 64-bit two
0e40: 20 63 6f 6d 70 6c 65 6d 65 6e 74 20 76 61 6c 75   complement valu
0e50: 65 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  e. */.          
0e60: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65  sqlite3_result_e
0e70: 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 22 69  rror(context, "i
0e80: 6e 74 65 67 65 72 20 6f 76 65 72 66 6c 6f 77 22  nteger overflow"
0e90: 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20  , -1);.         
0ea0: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20   return;.       
0eb0: 20 7d 0a 20 20 20 20 20 20 20 20 69 56 61 6c 20   }.        iVal 
0ec0: 3d 20 2d 69 56 61 6c 3b 0a 20 20 20 20 20 20 7d  = -iVal;.      }
0ed0: 20 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f   .      sqlite3_
0ee0: 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 6f 6e  result_int64(con
0ef0: 74 65 78 74 2c 20 69 56 61 6c 29 3b 0a 20 20 20  text, iVal);.   
0f00: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a     break;.    }.
0f10: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f      case SQLITE_
0f20: 4e 55 4c 4c 3a 20 7b 0a 20 20 20 20 20 20 2f 2a  NULL: {.      /*
0f30: 20 49 4d 50 3a 20 52 2d 33 37 34 33 34 2d 31 39   IMP: R-37434-19
0f40: 39 32 39 20 41 62 73 28 58 29 20 72 65 74 75 72  929 Abs(X) retur
0f50: 6e 73 20 4e 55 4c 4c 20 69 66 20 58 20 69 73 20  ns NULL if X is 
0f60: 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 20 20 73  NULL. */.      s
0f70: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 6e 75  qlite3_result_nu
0f80: 6c 6c 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20  ll(context);.   
0f90: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a     break;.    }.
0fa0: 20 20 20 20 64 65 66 61 75 6c 74 3a 20 7b 0a 20      default: {. 
0fb0: 20 20 20 20 20 2f 2a 20 42 65 63 61 75 73 65 20       /* Because 
0fc0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f  sqlite3_value_do
0fd0: 75 62 6c 65 28 29 20 72 65 74 75 72 6e 73 20 30  uble() returns 0
0fe0: 2e 30 20 69 66 20 74 68 65 20 61 72 67 75 6d 65  .0 if the argume
0ff0: 6e 74 20 69 73 20 6e 6f 74 0a 20 20 20 20 20 20  nt is not.      
1000: 2a 2a 20 73 6f 6d 65 74 68 69 6e 67 20 74 68 61  ** something tha
1010: 74 20 63 61 6e 20 62 65 20 63 6f 6e 76 65 72 74  t can be convert
1020: 65 64 20 69 6e 74 6f 20 61 20 6e 75 6d 62 65 72  ed into a number
1030: 2c 20 77 65 20 68 61 76 65 3a 0a 20 20 20 20 20  , we have:.     
1040: 20 2a 2a 20 49 4d 50 3a 20 52 2d 35 37 33 32 36   ** IMP: R-57326
1050: 2d 33 31 35 34 31 20 41 62 73 28 58 29 20 72 65  -31541 Abs(X) re
1060: 74 75 72 6e 20 30 2e 30 20 69 66 20 58 20 69 73  turn 0.0 if X is
1070: 20 61 20 73 74 72 69 6e 67 20 6f 72 20 62 6c 6f   a string or blo
1080: 62 20 74 68 61 74 0a 20 20 20 20 20 20 2a 2a 20  b that.      ** 
1090: 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6e 76 65 72  cannot be conver
10a0: 74 65 64 20 74 6f 20 61 20 6e 75 6d 65 72 69 63  ted to a numeric
10b0: 20 76 61 6c 75 65 2e 20 0a 20 20 20 20 20 20 2a   value. .      *
10c0: 2f 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 72  /.      double r
10d0: 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 76 61  Val = sqlite3_va
10e0: 6c 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b  lue_double(argv[
10f0: 30 5d 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72  0]);.      if( r
1100: 56 61 6c 3c 30 20 29 20 72 56 61 6c 20 3d 20 2d  Val<0 ) rVal = -
1110: 72 56 61 6c 3b 0a 20 20 20 20 20 20 73 71 6c 69  rVal;.      sqli
1120: 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62 6c  te3_result_doubl
1130: 65 28 63 6f 6e 74 65 78 74 2c 20 72 56 61 6c 29  e(context, rVal)
1140: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20  ;.      break;. 
1150: 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a     }.  }.}../*.*
1160: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e  * Implementation
1170: 20 6f 66 20 74 68 65 20 69 6e 73 74 72 28 29 20   of the instr() 
1180: 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20  function..**.** 
1190: 69 6e 73 74 72 28 68 61 79 73 74 61 63 6b 2c 6e  instr(haystack,n
11a0: 65 65 64 6c 65 29 20 66 69 6e 64 73 20 74 68 65  eedle) finds the
11b0: 20 66 69 72 73 74 20 6f 63 63 75 72 72 65 6e 63   first occurrenc
11c0: 65 20 6f 66 20 6e 65 65 64 6c 65 0a 2a 2a 20 69  e of needle.** i
11d0: 6e 20 68 61 79 73 74 61 63 6b 20 61 6e 64 20 72  n haystack and r
11e0: 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65  eturns the numbe
11f0: 72 20 6f 66 20 70 72 65 76 69 6f 75 73 20 63 68  r of previous ch
1200: 61 72 61 63 74 65 72 73 20 70 6c 75 73 20 31 2c  aracters plus 1,
1210: 0a 2a 2a 20 6f 72 20 30 20 69 66 20 6e 65 65 64  .** or 0 if need
1220: 6c 65 20 64 6f 65 73 20 6e 6f 74 20 6f 63 63 75  le does not occu
1230: 72 20 77 69 74 68 69 6e 20 68 61 79 73 74 61 63  r within haystac
1240: 6b 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 62 6f 74 68  k..**.** If both
1250: 20 68 61 79 73 74 61 63 6b 20 61 6e 64 20 6e 65   haystack and ne
1260: 65 64 6c 65 20 61 72 65 20 42 4c 4f 42 73 2c 20  edle are BLOBs, 
1270: 74 68 65 6e 20 74 68 65 20 72 65 73 75 6c 74 20  then the result 
1280: 69 73 20 6f 6e 65 20 6d 6f 72 65 20 74 68 61 6e  is one more than
1290: 0a 2a 2a 20 74 68 65 20 6e 75 6d 62 65 72 20 6f  .** the number o
12a0: 66 20 62 79 74 65 73 20 69 6e 20 68 61 79 73 74  f bytes in hayst
12b0: 61 63 6b 20 70 72 69 6f 72 20 74 6f 20 74 68 65  ack prior to the
12c0: 20 66 69 72 73 74 20 6f 63 63 75 72 72 65 6e 63   first occurrenc
12d0: 65 20 6f 66 20 6e 65 65 64 6c 65 2c 0a 2a 2a 20  e of needle,.** 
12e0: 6f 72 20 30 20 69 66 20 6e 65 65 64 6c 65 20 6e  or 0 if needle n
12f0: 65 76 65 72 20 6f 63 63 75 72 73 20 69 6e 20 68  ever occurs in h
1300: 61 79 73 74 61 63 6b 2e 0a 2a 2f 0a 73 74 61 74  aystack..*/.stat
1310: 69 63 20 76 6f 69 64 20 69 6e 73 74 72 46 75 6e  ic void instrFun
1320: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  c(.  sqlite3_con
1330: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20  text *context,. 
1340: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c   int argc,.  sql
1350: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67  ite3_value **arg
1360: 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73  v.){.  const uns
1370: 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 48 61 79  igned char *zHay
1380: 73 74 61 63 6b 3b 0a 20 20 63 6f 6e 73 74 20 75  stack;.  const u
1390: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 4e  nsigned char *zN
13a0: 65 65 64 6c 65 3b 0a 20 20 69 6e 74 20 6e 48 61  eedle;.  int nHa
13b0: 79 73 74 61 63 6b 3b 0a 20 20 69 6e 74 20 6e 4e  ystack;.  int nN
13c0: 65 65 64 6c 65 3b 0a 20 20 69 6e 74 20 74 79 70  eedle;.  int typ
13d0: 65 48 61 79 73 74 61 63 6b 2c 20 74 79 70 65 4e  eHaystack, typeN
13e0: 65 65 64 6c 65 3b 0a 20 20 69 6e 74 20 4e 20 3d  eedle;.  int N =
13f0: 20 31 3b 0a 20 20 69 6e 74 20 69 73 54 65 78 74   1;.  int isText
1400: 3b 0a 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41  ;..  UNUSED_PARA
1410: 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20 74  METER(argc);.  t
1420: 79 70 65 48 61 79 73 74 61 63 6b 20 3d 20 73 71  ypeHaystack = sq
1430: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65  lite3_value_type
1440: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 74 79 70  (argv[0]);.  typ
1450: 65 4e 65 65 64 6c 65 20 3d 20 73 71 6c 69 74 65  eNeedle = sqlite
1460: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67  3_value_type(arg
1470: 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 74 79 70  v[1]);.  if( typ
1480: 65 48 61 79 73 74 61 63 6b 3d 3d 53 51 4c 49 54  eHaystack==SQLIT
1490: 45 5f 4e 55 4c 4c 20 7c 7c 20 74 79 70 65 4e 65  E_NULL || typeNe
14a0: 65 64 6c 65 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c  edle==SQLITE_NUL
14b0: 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6e 48  L ) return;.  nH
14c0: 61 79 73 74 61 63 6b 20 3d 20 73 71 6c 69 74 65  aystack = sqlite
14d0: 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72  3_value_bytes(ar
14e0: 67 76 5b 30 5d 29 3b 0a 20 20 6e 4e 65 65 64 6c  gv[0]);.  nNeedl
14f0: 65 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  e = sqlite3_valu
1500: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 31 5d 29  e_bytes(argv[1])
1510: 3b 0a 20 20 69 66 28 20 74 79 70 65 48 61 79 73  ;.  if( typeHays
1520: 74 61 63 6b 3d 3d 53 51 4c 49 54 45 5f 42 4c 4f  tack==SQLITE_BLO
1530: 42 20 26 26 20 74 79 70 65 4e 65 65 64 6c 65 3d  B && typeNeedle=
1540: 3d 53 51 4c 49 54 45 5f 42 4c 4f 42 20 29 7b 0a  =SQLITE_BLOB ){.
1550: 20 20 20 20 7a 48 61 79 73 74 61 63 6b 20 3d 20      zHaystack = 
1560: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c  sqlite3_value_bl
1570: 6f 62 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20  ob(argv[0]);.   
1580: 20 7a 4e 65 65 64 6c 65 20 3d 20 73 71 6c 69 74   zNeedle = sqlit
1590: 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72  e3_value_blob(ar
15a0: 67 76 5b 31 5d 29 3b 0a 20 20 20 20 69 73 54 65  gv[1]);.    isTe
15b0: 78 74 20 3d 20 30 3b 0a 20 20 7d 65 6c 73 65 7b  xt = 0;.  }else{
15c0: 0a 20 20 20 20 7a 48 61 79 73 74 61 63 6b 20 3d  .    zHaystack =
15d0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74   sqlite3_value_t
15e0: 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20  ext(argv[0]);.  
15f0: 20 20 7a 4e 65 65 64 6c 65 20 3d 20 73 71 6c 69    zNeedle = sqli
1600: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
1610: 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 69 73 54  rgv[1]);.    isT
1620: 65 78 74 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 77  ext = 1;.  }.  w
1630: 68 69 6c 65 28 20 6e 4e 65 65 64 6c 65 3c 3d 6e  hile( nNeedle<=n
1640: 48 61 79 73 74 61 63 6b 20 26 26 20 6d 65 6d 63  Haystack && memc
1650: 6d 70 28 7a 48 61 79 73 74 61 63 6b 2c 20 7a 4e  mp(zHaystack, zN
1660: 65 65 64 6c 65 2c 20 6e 4e 65 65 64 6c 65 29 21  eedle, nNeedle)!
1670: 3d 30 20 29 7b 0a 20 20 20 20 4e 2b 2b 3b 0a 20  =0 ){.    N++;. 
1680: 20 20 20 64 6f 7b 0a 20 20 20 20 20 20 6e 48 61     do{.      nHa
1690: 79 73 74 61 63 6b 2d 2d 3b 0a 20 20 20 20 20 20  ystack--;.      
16a0: 7a 48 61 79 73 74 61 63 6b 2b 2b 3b 0a 20 20 20  zHaystack++;.   
16b0: 20 7d 77 68 69 6c 65 28 20 69 73 54 65 78 74 20   }while( isText 
16c0: 26 26 20 28 7a 48 61 79 73 74 61 63 6b 5b 30 5d  && (zHaystack[0]
16d0: 26 30 78 63 30 29 3d 3d 30 78 38 30 20 29 3b 0a  &0xc0)==0x80 );.
16e0: 20 20 7d 0a 20 20 69 66 28 20 6e 4e 65 65 64 6c    }.  if( nNeedl
16f0: 65 3e 6e 48 61 79 73 74 61 63 6b 20 29 20 4e 20  e>nHaystack ) N 
1700: 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72  = 0;.  sqlite3_r
1710: 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78  esult_int(contex
1720: 74 2c 20 4e 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  t, N);.}../*.** 
1730: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f  Implementation o
1740: 66 20 74 68 65 20 70 72 69 6e 74 66 28 29 20 66  f the printf() f
1750: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74  unction..*/.stat
1760: 69 63 20 76 6f 69 64 20 70 72 69 6e 74 66 46 75  ic void printfFu
1770: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  nc(.  sqlite3_co
1780: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a  ntext *context,.
1790: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71    int argc,.  sq
17a0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72  lite3_value **ar
17b0: 67 76 0a 29 7b 0a 20 20 50 72 69 6e 74 66 41 72  gv.){.  PrintfAr
17c0: 67 75 6d 65 6e 74 73 20 78 3b 0a 20 20 53 74 72  guments x;.  Str
17d0: 41 63 63 75 6d 20 73 74 72 3b 0a 20 20 63 6f 6e  Accum str;.  con
17e0: 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74  st char *zFormat
17f0: 3b 0a 20 20 69 6e 74 20 6e 3b 0a 0a 20 20 69 66  ;.  int n;..  if
1800: 28 20 61 72 67 63 3e 3d 31 20 26 26 20 28 7a 46  ( argc>=1 && (zF
1810: 6f 72 6d 61 74 20 3d 20 28 63 6f 6e 73 74 20 63  ormat = (const c
1820: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c  har*)sqlite3_val
1830: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29  ue_text(argv[0])
1840: 29 21 3d 30 20 29 7b 0a 20 20 20 20 78 2e 6e 41  )!=0 ){.    x.nA
1850: 72 67 20 3d 20 61 72 67 63 2d 31 3b 0a 20 20 20  rg = argc-1;.   
1860: 20 78 2e 6e 55 73 65 64 20 3d 20 30 3b 0a 20 20   x.nUsed = 0;.  
1870: 20 20 78 2e 61 70 41 72 67 20 3d 20 61 72 67 76    x.apArg = argv
1880: 2b 31 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 53  +1;.    sqlite3S
1890: 74 72 41 63 63 75 6d 49 6e 69 74 28 26 73 74 72  trAccumInit(&str
18a0: 2c 20 30 2c 20 30 2c 20 53 51 4c 49 54 45 5f 4d  , 0, 0, SQLITE_M
18b0: 41 58 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20  AX_LENGTH);.    
18c0: 73 74 72 2e 64 62 20 3d 20 73 71 6c 69 74 65 33  str.db = sqlite3
18d0: 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64  _context_db_hand
18e0: 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20  le(context);.   
18f0: 20 73 71 6c 69 74 65 33 58 50 72 69 6e 74 66 28   sqlite3XPrintf(
1900: 26 73 74 72 2c 20 53 51 4c 49 54 45 5f 50 52 49  &str, SQLITE_PRI
1910: 4e 54 46 5f 53 51 4c 46 55 4e 43 2c 20 7a 46 6f  NTF_SQLFUNC, zFo
1920: 72 6d 61 74 2c 20 26 78 29 3b 0a 20 20 20 20 6e  rmat, &x);.    n
1930: 20 3d 20 73 74 72 2e 6e 43 68 61 72 3b 0a 20 20   = str.nChar;.  
1940: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
1950: 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73  _text(context, s
1960: 71 6c 69 74 65 33 53 74 72 41 63 63 75 6d 46 69  qlite3StrAccumFi
1970: 6e 69 73 68 28 26 73 74 72 29 2c 20 6e 2c 0a 20  nish(&str), n,. 
1980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1990: 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 44 59         SQLITE_DY
19a0: 4e 41 4d 49 43 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f  NAMIC);.  }.}../
19b0: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74  *.** Implementat
19c0: 69 6f 6e 20 6f 66 20 74 68 65 20 73 75 62 73 74  ion of the subst
19d0: 72 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a  r() function..**
19e0: 0a 2a 2a 20 73 75 62 73 74 72 28 78 2c 70 31 2c  .** substr(x,p1,
19f0: 70 32 29 20 20 72 65 74 75 72 6e 73 20 70 32 20  p2)  returns p2 
1a00: 63 68 61 72 61 63 74 65 72 73 20 6f 66 20 78 5b  characters of x[
1a10: 5d 20 62 65 67 69 6e 6e 69 6e 67 20 77 69 74 68  ] beginning with
1a20: 20 70 31 2e 0a 2a 2a 20 70 31 20 69 73 20 31 2d   p1..** p1 is 1-
1a30: 69 6e 64 65 78 65 64 2e 20 20 53 6f 20 73 75 62  indexed.  So sub
1a40: 73 74 72 28 78 2c 31 2c 31 29 20 72 65 74 75 72  str(x,1,1) retur
1a50: 6e 73 20 74 68 65 20 66 69 72 73 74 20 63 68 61  ns the first cha
1a60: 72 61 63 74 65 72 0a 2a 2a 20 6f 66 20 78 2e 20  racter.** of x. 
1a70: 20 49 66 20 78 20 69 73 20 74 65 78 74 2c 20 74   If x is text, t
1a80: 68 65 6e 20 77 65 20 61 63 74 75 61 6c 6c 79 20  hen we actually 
1a90: 63 6f 75 6e 74 20 55 54 46 2d 38 20 63 68 61 72  count UTF-8 char
1aa0: 61 63 74 65 72 73 2e 0a 2a 2a 20 49 66 20 78 20  acters..** If x 
1ab0: 69 73 20 61 20 62 6c 6f 62 2c 20 74 68 65 6e 20  is a blob, then 
1ac0: 77 65 20 63 6f 75 6e 74 20 62 79 74 65 73 2e 0a  we count bytes..
1ad0: 2a 2a 0a 2a 2a 20 49 66 20 70 31 20 69 73 20 6e  **.** If p1 is n
1ae0: 65 67 61 74 69 76 65 2c 20 74 68 65 6e 20 77 65  egative, then we
1af0: 20 62 65 67 69 6e 20 61 62 73 28 70 31 29 20 66   begin abs(p1) f
1b00: 72 6f 6d 20 74 68 65 20 65 6e 64 20 6f 66 20 78  rom the end of x
1b10: 5b 5d 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 70 32 20  []..**.** If p2 
1b20: 69 73 20 6e 65 67 61 74 69 76 65 2c 20 72 65 74  is negative, ret
1b30: 75 72 6e 20 74 68 65 20 70 32 20 63 68 61 72 61  urn the p2 chara
1b40: 63 74 65 72 73 20 70 72 65 63 65 64 69 6e 67 20  cters preceding 
1b50: 70 31 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  p1..*/.static vo
1b60: 69 64 20 73 75 62 73 74 72 46 75 6e 63 28 0a 20  id substrFunc(. 
1b70: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
1b80: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74   *context,.  int
1b90: 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33   argc,.  sqlite3
1ba0: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b  _value **argv.){
1bb0: 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65  .  const unsigne
1bc0: 64 20 63 68 61 72 20 2a 7a 3b 0a 20 20 63 6f 6e  d char *z;.  con
1bd0: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  st unsigned char
1be0: 20 2a 7a 32 3b 0a 20 20 69 6e 74 20 6c 65 6e 3b   *z2;.  int len;
1bf0: 0a 20 20 69 6e 74 20 70 30 74 79 70 65 3b 0a 20  .  int p0type;. 
1c00: 20 69 36 34 20 70 31 2c 20 70 32 3b 0a 20 20 69   i64 p1, p2;.  i
1c10: 6e 74 20 6e 65 67 50 32 20 3d 20 30 3b 0a 0a 20  nt negP2 = 0;.. 
1c20: 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 33   assert( argc==3
1c30: 20 7c 7c 20 61 72 67 63 3d 3d 32 20 29 3b 0a 20   || argc==2 );. 
1c40: 20 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c   if( sqlite3_val
1c50: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 31 5d 29  ue_type(argv[1])
1c60: 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 0a 20 20  ==SQLITE_NULL.  
1c70: 20 7c 7c 20 28 61 72 67 63 3d 3d 33 20 26 26 20   || (argc==3 && 
1c80: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79  sqlite3_value_ty
1c90: 70 65 28 61 72 67 76 5b 32 5d 29 3d 3d 53 51 4c  pe(argv[2])==SQL
1ca0: 49 54 45 5f 4e 55 4c 4c 29 0a 20 20 29 7b 0a 20  ITE_NULL).  ){. 
1cb0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20     return;.  }. 
1cc0: 20 70 30 74 79 70 65 20 3d 20 73 71 6c 69 74 65   p0type = sqlite
1cd0: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67  3_value_type(arg
1ce0: 76 5b 30 5d 29 3b 0a 20 20 70 31 20 3d 20 73 71  v[0]);.  p1 = sq
1cf0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28  lite3_value_int(
1d00: 61 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20  argv[1]);.  if( 
1d10: 70 30 74 79 70 65 3d 3d 53 51 4c 49 54 45 5f 42  p0type==SQLITE_B
1d20: 4c 4f 42 20 29 7b 0a 20 20 20 20 6c 65 6e 20 3d  LOB ){.    len =
1d30: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62   sqlite3_value_b
1d40: 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20  ytes(argv[0]);. 
1d50: 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76     z = sqlite3_v
1d60: 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30  alue_blob(argv[0
1d70: 5d 29 3b 0a 20 20 20 20 69 66 28 20 7a 3d 3d 30  ]);.    if( z==0
1d80: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 61   ) return;.    a
1d90: 73 73 65 72 74 28 20 6c 65 6e 3d 3d 73 71 6c 69  ssert( len==sqli
1da0: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28  te3_value_bytes(
1db0: 61 72 67 76 5b 30 5d 29 20 29 3b 0a 20 20 7d 65  argv[0]) );.  }e
1dc0: 6c 73 65 7b 0a 20 20 20 20 7a 20 3d 20 73 71 6c  lse{.    z = sql
1dd0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28  ite3_value_text(
1de0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 69 66  argv[0]);.    if
1df0: 28 20 7a 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b  ( z==0 ) return;
1e00: 0a 20 20 20 20 6c 65 6e 20 3d 20 30 3b 0a 20 20  .    len = 0;.  
1e10: 20 20 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20    if( p1<0 ){.  
1e20: 20 20 20 20 66 6f 72 28 7a 32 3d 7a 3b 20 2a 7a      for(z2=z; *z
1e30: 32 3b 20 6c 65 6e 2b 2b 29 7b 0a 20 20 20 20 20  2; len++){.     
1e40: 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55     SQLITE_SKIP_U
1e50: 54 46 38 28 7a 32 29 3b 0a 20 20 20 20 20 20 7d  TF8(z2);.      }
1e60: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28  .    }.  }.  if(
1e70: 20 61 72 67 63 3d 3d 33 20 29 7b 0a 20 20 20 20   argc==3 ){.    
1e80: 70 32 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c  p2 = sqlite3_val
1e90: 75 65 5f 69 6e 74 28 61 72 67 76 5b 32 5d 29 3b  ue_int(argv[2]);
1ea0: 0a 20 20 20 20 69 66 28 20 70 32 3c 30 20 29 7b  .    if( p2<0 ){
1eb0: 0a 20 20 20 20 20 20 70 32 20 3d 20 2d 70 32 3b  .      p2 = -p2;
1ec0: 0a 20 20 20 20 20 20 6e 65 67 50 32 20 3d 20 31  .      negP2 = 1
1ed0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b  ;.    }.  }else{
1ee0: 0a 20 20 20 20 70 32 20 3d 20 73 71 6c 69 74 65  .    p2 = sqlite
1ef0: 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e  3_context_db_han
1f00: 64 6c 65 28 63 6f 6e 74 65 78 74 29 2d 3e 61 4c  dle(context)->aL
1f10: 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49  imit[SQLITE_LIMI
1f20: 54 5f 4c 45 4e 47 54 48 5d 3b 0a 20 20 7d 0a 20  T_LENGTH];.  }. 
1f30: 20 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 20   if( p1<0 ){.   
1f40: 20 70 31 20 2b 3d 20 6c 65 6e 3b 0a 20 20 20 20   p1 += len;.    
1f50: 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 20 20  if( p1<0 ){.    
1f60: 20 20 70 32 20 2b 3d 20 70 31 3b 0a 20 20 20 20    p2 += p1;.    
1f70: 20 20 69 66 28 20 70 32 3c 30 20 29 20 70 32 20    if( p2<0 ) p2 
1f80: 3d 20 30 3b 0a 20 20 20 20 20 20 70 31 20 3d 20  = 0;.      p1 = 
1f90: 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65  0;.    }.  }else
1fa0: 20 69 66 28 20 70 31 3e 30 20 29 7b 0a 20 20 20   if( p1>0 ){.   
1fb0: 20 70 31 2d 2d 3b 0a 20 20 7d 65 6c 73 65 20 69   p1--;.  }else i
1fc0: 66 28 20 70 32 3e 30 20 29 7b 0a 20 20 20 20 70  f( p2>0 ){.    p
1fd0: 32 2d 2d 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6e  2--;.  }.  if( n
1fe0: 65 67 50 32 20 29 7b 0a 20 20 20 20 70 31 20 2d  egP2 ){.    p1 -
1ff0: 3d 20 70 32 3b 0a 20 20 20 20 69 66 28 20 70 31  = p2;.    if( p1
2000: 3c 30 20 29 7b 0a 20 20 20 20 20 20 70 32 20 2b  <0 ){.      p2 +
2010: 3d 20 70 31 3b 0a 20 20 20 20 20 20 70 31 20 3d  = p1;.      p1 =
2020: 20 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20   0;.    }.  }.  
2030: 61 73 73 65 72 74 28 20 70 31 3e 3d 30 20 26 26  assert( p1>=0 &&
2040: 20 70 32 3e 3d 30 20 29 3b 0a 20 20 69 66 28 20   p2>=0 );.  if( 
2050: 70 30 74 79 70 65 21 3d 53 51 4c 49 54 45 5f 42  p0type!=SQLITE_B
2060: 4c 4f 42 20 29 7b 0a 20 20 20 20 77 68 69 6c 65  LOB ){.    while
2070: 28 20 2a 7a 20 26 26 20 70 31 20 29 7b 0a 20 20  ( *z && p1 ){.  
2080: 20 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f      SQLITE_SKIP_
2090: 55 54 46 38 28 7a 29 3b 0a 20 20 20 20 20 20 70  UTF8(z);.      p
20a0: 31 2d 2d 3b 0a 20 20 20 20 7d 0a 20 20 20 20 66  1--;.    }.    f
20b0: 6f 72 28 7a 32 3d 7a 3b 20 2a 7a 32 20 26 26 20  or(z2=z; *z2 && 
20c0: 70 32 3b 20 70 32 2d 2d 29 7b 0a 20 20 20 20 20  p2; p2--){.     
20d0: 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55 54 46   SQLITE_SKIP_UTF
20e0: 38 28 7a 32 29 3b 0a 20 20 20 20 7d 0a 20 20 20  8(z2);.    }.   
20f0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
2100: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 63  text(context, (c
2110: 68 61 72 2a 29 7a 2c 20 28 69 6e 74 29 28 7a 32  har*)z, (int)(z2
2120: 2d 7a 29 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e  -z), SQLITE_TRAN
2130: 53 49 45 4e 54 29 3b 0a 20 20 7d 65 6c 73 65 7b  SIENT);.  }else{
2140: 0a 20 20 20 20 69 66 28 20 70 31 2b 70 32 3e 6c  .    if( p1+p2>l
2150: 65 6e 20 29 7b 0a 20 20 20 20 20 20 70 32 20 3d  en ){.      p2 =
2160: 20 6c 65 6e 2d 70 31 3b 0a 20 20 20 20 20 20 69   len-p1;.      i
2170: 66 28 20 70 32 3c 30 20 29 20 70 32 20 3d 20 30  f( p2<0 ) p2 = 0
2180: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c 69  ;.    }.    sqli
2190: 74 65 33 5f 72 65 73 75 6c 74 5f 62 6c 6f 62 28  te3_result_blob(
21a0: 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29  context, (char*)
21b0: 26 7a 5b 70 31 5d 2c 20 28 69 6e 74 29 70 32 2c  &z[p1], (int)p2,
21c0: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e   SQLITE_TRANSIEN
21d0: 54 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a  T);.  }.}../*.**
21e0: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   Implementation 
21f0: 6f 66 20 74 68 65 20 72 6f 75 6e 64 28 29 20 66  of the round() f
2200: 75 6e 63 74 69 6f 6e 0a 2a 2f 0a 23 69 66 6e 64  unction.*/.#ifnd
2210: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 46  ef SQLITE_OMIT_F
2220: 4c 4f 41 54 49 4e 47 5f 50 4f 49 4e 54 0a 73 74  LOATING_POINT.st
2230: 61 74 69 63 20 76 6f 69 64 20 72 6f 75 6e 64 46  atic void roundF
2240: 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74  unc(sqlite3_cont
2250: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e  ext *context, in
2260: 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f  t argc, sqlite3_
2270: 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20  value **argv){. 
2280: 20 69 6e 74 20 6e 20 3d 20 30 3b 0a 20 20 64 6f   int n = 0;.  do
2290: 75 62 6c 65 20 72 3b 0a 20 20 63 68 61 72 20 2a  uble r;.  char *
22a0: 7a 42 75 66 3b 0a 20 20 61 73 73 65 72 74 28 20  zBuf;.  assert( 
22b0: 61 72 67 63 3d 3d 31 20 7c 7c 20 61 72 67 63 3d  argc==1 || argc=
22c0: 3d 32 20 29 3b 0a 20 20 69 66 28 20 61 72 67 63  =2 );.  if( argc
22d0: 3d 3d 32 20 29 7b 0a 20 20 20 20 69 66 28 20 53  ==2 ){.    if( S
22e0: 51 4c 49 54 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69  QLITE_NULL==sqli
22f0: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61  te3_value_type(a
2300: 72 67 76 5b 31 5d 29 20 29 20 72 65 74 75 72 6e  rgv[1]) ) return
2310: 3b 0a 20 20 20 20 6e 20 3d 20 73 71 6c 69 74 65  ;.    n = sqlite
2320: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76  3_value_int(argv
2330: 5b 31 5d 29 3b 0a 20 20 20 20 69 66 28 20 6e 3e  [1]);.    if( n>
2340: 33 30 20 29 20 6e 20 3d 20 33 30 3b 0a 20 20 20  30 ) n = 30;.   
2350: 20 69 66 28 20 6e 3c 30 20 29 20 6e 20 3d 20 30   if( n<0 ) n = 0
2360: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 73 71 6c 69  ;.  }.  if( sqli
2370: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61  te3_value_type(a
2380: 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f  rgv[0])==SQLITE_
2390: 4e 55 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20  NULL ) return;. 
23a0: 20 72 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c   r = sqlite3_val
23b0: 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b 30  ue_double(argv[0
23c0: 5d 29 3b 0a 20 20 2f 2a 20 49 66 20 59 3d 3d 30  ]);.  /* If Y==0
23d0: 20 61 6e 64 20 58 20 77 69 6c 6c 20 66 69 74 20   and X will fit 
23e0: 69 6e 20 61 20 36 34 2d 62 69 74 20 69 6e 74 2c  in a 64-bit int,
23f0: 0a 20 20 2a 2a 20 68 61 6e 64 6c 65 20 74 68 65  .  ** handle the
2400: 20 72 6f 75 6e 64 69 6e 67 20 64 69 72 65 63 74   rounding direct
2410: 6c 79 2c 0a 20 20 2a 2a 20 6f 74 68 65 72 77 69  ly,.  ** otherwi
2420: 73 65 20 75 73 65 20 70 72 69 6e 74 66 2e 0a 20  se use printf.. 
2430: 20 2a 2f 0a 20 20 69 66 28 20 6e 3d 3d 30 20 26   */.  if( n==0 &
2440: 26 20 72 3e 3d 30 20 26 26 20 72 3c 4c 41 52 47  & r>=0 && r<LARG
2450: 45 53 54 5f 49 4e 54 36 34 2d 31 20 29 7b 0a 20  EST_INT64-1 ){. 
2460: 20 20 20 72 20 3d 20 28 64 6f 75 62 6c 65 29 28     r = (double)(
2470: 28 73 71 6c 69 74 65 5f 69 6e 74 36 34 29 28 72  (sqlite_int64)(r
2480: 2b 30 2e 35 29 29 3b 0a 20 20 7d 65 6c 73 65 20  +0.5));.  }else 
2490: 69 66 28 20 6e 3d 3d 30 20 26 26 20 72 3c 30 20  if( n==0 && r<0 
24a0: 26 26 20 28 2d 72 29 3c 4c 41 52 47 45 53 54 5f  && (-r)<LARGEST_
24b0: 49 4e 54 36 34 2d 31 20 29 7b 0a 20 20 20 20 72  INT64-1 ){.    r
24c0: 20 3d 20 2d 28 64 6f 75 62 6c 65 29 28 28 73 71   = -(double)((sq
24d0: 6c 69 74 65 5f 69 6e 74 36 34 29 28 28 2d 72 29  lite_int64)((-r)
24e0: 2b 30 2e 35 29 29 3b 0a 20 20 7d 65 6c 73 65 7b  +0.5));.  }else{
24f0: 0a 20 20 20 20 7a 42 75 66 20 3d 20 73 71 6c 69  .    zBuf = sqli
2500: 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 2e 2a  te3_mprintf("%.*
2510: 66 22 2c 6e 2c 72 29 3b 0a 20 20 20 20 69 66 28  f",n,r);.    if(
2520: 20 7a 42 75 66 3d 3d 30 20 29 7b 0a 20 20 20 20   zBuf==0 ){.    
2530: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
2540: 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28 63 6f 6e  _error_nomem(con
2550: 74 65 78 74 29 3b 0a 20 20 20 20 20 20 72 65 74  text);.      ret
2560: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73  urn;.    }.    s
2570: 71 6c 69 74 65 33 41 74 6f 46 28 7a 42 75 66 2c  qlite3AtoF(zBuf,
2580: 20 26 72 2c 20 73 71 6c 69 74 65 33 53 74 72 6c   &r, sqlite3Strl
2590: 65 6e 33 30 28 7a 42 75 66 29 2c 20 53 51 4c 49  en30(zBuf), SQLI
25a0: 54 45 5f 55 54 46 38 29 3b 0a 20 20 20 20 73 71  TE_UTF8);.    sq
25b0: 6c 69 74 65 33 5f 66 72 65 65 28 7a 42 75 66 29  lite3_free(zBuf)
25c0: 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f  ;.  }.  sqlite3_
25d0: 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f  result_double(co
25e0: 6e 74 65 78 74 2c 20 72 29 3b 0a 7d 0a 23 65 6e  ntext, r);.}.#en
25f0: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 41 6c 6c 6f 63  dif../*.** Alloc
2600: 61 74 65 20 6e 42 79 74 65 20 62 79 74 65 73 20  ate nByte bytes 
2610: 6f 66 20 73 70 61 63 65 20 75 73 69 6e 67 20 73  of space using s
2620: 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 29 2e  qlite3_malloc().
2630: 20 49 66 20 74 68 65 0a 2a 2a 20 61 6c 6c 6f 63   If the.** alloc
2640: 61 74 69 6f 6e 20 66 61 69 6c 73 2c 20 63 61 6c  ation fails, cal
2650: 6c 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74  l sqlite3_result
2660: 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28 29 20 74  _error_nomem() t
2670: 6f 20 6e 6f 74 69 66 79 0a 2a 2a 20 74 68 65 20  o notify.** the 
2680: 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20  database handle 
2690: 74 68 61 74 20 6d 61 6c 6c 6f 63 28 29 20 68 61  that malloc() ha
26a0: 73 20 66 61 69 6c 65 64 20 61 6e 64 20 72 65 74  s failed and ret
26b0: 75 72 6e 20 4e 55 4c 4c 2e 0a 2a 2a 20 49 66 20  urn NULL..** If 
26c0: 6e 42 79 74 65 20 69 73 20 6c 61 72 67 65 72 20  nByte is larger 
26d0: 74 68 61 6e 20 74 68 65 20 6d 61 78 69 6d 75 6d  than the maximum
26e0: 20 73 74 72 69 6e 67 20 6f 72 20 62 6c 6f 62 20   string or blob 
26f0: 6c 65 6e 67 74 68 2c 20 74 68 65 6e 0a 2a 2a 20  length, then.** 
2700: 72 61 69 73 65 20 61 6e 20 53 51 4c 49 54 45 5f  raise an SQLITE_
2710: 54 4f 4f 42 49 47 20 65 78 63 65 70 74 69 6f 6e  TOOBIG exception
2720: 20 61 6e 64 20 72 65 74 75 72 6e 20 4e 55 4c 4c   and return NULL
2730: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
2740: 20 2a 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63 28   *contextMalloc(
2750: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
2760: 2a 63 6f 6e 74 65 78 74 2c 20 69 36 34 20 6e 42  *context, i64 nB
2770: 79 74 65 29 7b 0a 20 20 63 68 61 72 20 2a 7a 3b  yte){.  char *z;
2780: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d  .  sqlite3 *db =
2790: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
27a0: 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65  _db_handle(conte
27b0: 78 74 29 3b 0a 20 20 61 73 73 65 72 74 28 20 6e  xt);.  assert( n
27c0: 42 79 74 65 3e 30 20 29 3b 0a 20 20 74 65 73 74  Byte>0 );.  test
27d0: 63 61 73 65 28 20 6e 42 79 74 65 3d 3d 64 62 2d  case( nByte==db-
27e0: 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c  >aLimit[SQLITE_L
27f0: 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29 3b 0a  IMIT_LENGTH] );.
2800: 20 20 74 65 73 74 63 61 73 65 28 20 6e 42 79 74    testcase( nByt
2810: 65 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51  e==db->aLimit[SQ
2820: 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54  LITE_LIMIT_LENGT
2830: 48 5d 2b 31 20 29 3b 0a 20 20 69 66 28 20 6e 42  H]+1 );.  if( nB
2840: 79 74 65 3e 64 62 2d 3e 61 4c 69 6d 69 74 5b 53  yte>db->aLimit[S
2850: 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47  QLITE_LIMIT_LENG
2860: 54 48 5d 20 29 7b 0a 20 20 20 20 73 71 6c 69 74  TH] ){.    sqlit
2870: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f  e3_result_error_
2880: 74 6f 6f 62 69 67 28 63 6f 6e 74 65 78 74 29 3b  toobig(context);
2890: 0a 20 20 20 20 7a 20 3d 20 30 3b 0a 20 20 7d 65  .    z = 0;.  }e
28a0: 6c 73 65 7b 0a 20 20 20 20 7a 20 3d 20 73 71 6c  lse{.    z = sql
28b0: 69 74 65 33 4d 61 6c 6c 6f 63 28 28 69 6e 74 29  ite3Malloc((int)
28c0: 6e 42 79 74 65 29 3b 0a 20 20 20 20 69 66 28 20  nByte);.    if( 
28d0: 21 7a 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69  !z ){.      sqli
28e0: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72  te3_result_error
28f0: 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 74 29 3b  _nomem(context);
2900: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74  .    }.  }.  ret
2910: 75 72 6e 20 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  urn z;.}../*.** 
2920: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f  Implementation o
2930: 66 20 74 68 65 20 75 70 70 65 72 28 29 20 61 6e  f the upper() an
2940: 64 20 6c 6f 77 65 72 28 29 20 53 51 4c 20 66 75  d lower() SQL fu
2950: 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 61 74  nctions..*/.stat
2960: 69 63 20 76 6f 69 64 20 75 70 70 65 72 46 75 6e  ic void upperFun
2970: 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  c(sqlite3_contex
2980: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20  t *context, int 
2990: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61  argc, sqlite3_va
29a0: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63  lue **argv){.  c
29b0: 68 61 72 20 2a 7a 31 3b 0a 20 20 63 6f 6e 73 74  har *z1;.  const
29c0: 20 63 68 61 72 20 2a 7a 32 3b 0a 20 20 69 6e 74   char *z2;.  int
29d0: 20 69 2c 20 6e 3b 0a 20 20 55 4e 55 53 45 44 5f   i, n;.  UNUSED_
29e0: 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b  PARAMETER(argc);
29f0: 0a 20 20 7a 32 20 3d 20 28 63 68 61 72 2a 29 73  .  z2 = (char*)s
2a00: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78  qlite3_value_tex
2a10: 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 6e 20  t(argv[0]);.  n 
2a20: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  = sqlite3_value_
2a30: 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a  bytes(argv[0]);.
2a40: 20 20 2f 2a 20 56 65 72 69 66 79 20 74 68 61 74    /* Verify that
2a50: 20 74 68 65 20 63 61 6c 6c 20 74 6f 20 5f 62 79   the call to _by
2a60: 74 65 73 28 29 20 64 6f 65 73 20 6e 6f 74 20 69  tes() does not i
2a70: 6e 76 61 6c 69 64 61 74 65 20 74 68 65 20 5f 74  nvalidate the _t
2a80: 65 78 74 28 29 20 70 6f 69 6e 74 65 72 20 2a 2f  ext() pointer */
2a90: 0a 20 20 61 73 73 65 72 74 28 20 7a 32 3d 3d 28  .  assert( z2==(
2aa0: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61  char*)sqlite3_va
2ab0: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d  lue_text(argv[0]
2ac0: 29 20 29 3b 0a 20 20 69 66 28 20 7a 32 20 29 7b  ) );.  if( z2 ){
2ad0: 0a 20 20 20 20 7a 31 20 3d 20 63 6f 6e 74 65 78  .    z1 = contex
2ae0: 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c  tMalloc(context,
2af0: 20 28 28 69 36 34 29 6e 29 2b 31 29 3b 0a 20 20   ((i64)n)+1);.  
2b00: 20 20 69 66 28 20 7a 31 20 29 7b 0a 20 20 20 20    if( z1 ){.    
2b10: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 3b 20    for(i=0; i<n; 
2b20: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 7a 31  i++){.        z1
2b30: 5b 69 5d 20 3d 20 28 63 68 61 72 29 73 71 6c 69  [i] = (char)sqli
2b40: 74 65 33 54 6f 75 70 70 65 72 28 7a 32 5b 69 5d  te3Toupper(z2[i]
2b50: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  );.      }.     
2b60: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
2b70: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 31  text(context, z1
2b80: 2c 20 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72 65  , n, sqlite3_fre
2b90: 65 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  e);.    }.  }.}.
2ba0: 73 74 61 74 69 63 20 76 6f 69 64 20 6c 6f 77 65  static void lowe
2bb0: 72 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f  rFunc(sqlite3_co
2bc0: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20  ntext *context, 
2bd0: 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65  int argc, sqlite
2be0: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b  3_value **argv){
2bf0: 0a 20 20 63 68 61 72 20 2a 7a 31 3b 0a 20 20 63  .  char *z1;.  c
2c00: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 32 3b 0a 20  onst char *z2;. 
2c10: 20 69 6e 74 20 69 2c 20 6e 3b 0a 20 20 55 4e 55   int i, n;.  UNU
2c20: 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72  SED_PARAMETER(ar
2c30: 67 63 29 3b 0a 20 20 7a 32 20 3d 20 28 63 68 61  gc);.  z2 = (cha
2c40: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  r*)sqlite3_value
2c50: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a  _text(argv[0]);.
2c60: 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61    n = sqlite3_va
2c70: 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30  lue_bytes(argv[0
2c80: 5d 29 3b 0a 20 20 2f 2a 20 56 65 72 69 66 79 20  ]);.  /* Verify 
2c90: 74 68 61 74 20 74 68 65 20 63 61 6c 6c 20 74 6f  that the call to
2ca0: 20 5f 62 79 74 65 73 28 29 20 64 6f 65 73 20 6e   _bytes() does n
2cb0: 6f 74 20 69 6e 76 61 6c 69 64 61 74 65 20 74 68  ot invalidate th
2cc0: 65 20 5f 74 65 78 74 28 29 20 70 6f 69 6e 74 65  e _text() pointe
2cd0: 72 20 2a 2f 0a 20 20 61 73 73 65 72 74 28 20 7a  r */.  assert( z
2ce0: 32 3d 3d 28 63 68 61 72 2a 29 73 71 6c 69 74 65  2==(char*)sqlite
2cf0: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67  3_value_text(arg
2d00: 76 5b 30 5d 29 20 29 3b 0a 20 20 69 66 28 20 7a  v[0]) );.  if( z
2d10: 32 20 29 7b 0a 20 20 20 20 7a 31 20 3d 20 63 6f  2 ){.    z1 = co
2d20: 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74  ntextMalloc(cont
2d30: 65 78 74 2c 20 28 28 69 36 34 29 6e 29 2b 31 29  ext, ((i64)n)+1)
2d40: 3b 0a 20 20 20 20 69 66 28 20 7a 31 20 29 7b 0a  ;.    if( z1 ){.
2d50: 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69        for(i=0; i
2d60: 3c 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20  <n; i++){.      
2d70: 20 20 7a 31 5b 69 5d 20 3d 20 73 71 6c 69 74 65    z1[i] = sqlite
2d80: 33 54 6f 6c 6f 77 65 72 28 7a 32 5b 69 5d 29 3b  3Tolower(z2[i]);
2d90: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73  .      }.      s
2da0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65  qlite3_result_te
2db0: 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 31 2c 20  xt(context, z1, 
2dc0: 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29  n, sqlite3_free)
2dd0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f  ;.    }.  }.}../
2de0: 2a 0a 2a 2a 20 53 6f 6d 65 20 66 75 6e 63 74 69  *.** Some functi
2df0: 6f 6e 73 20 6c 69 6b 65 20 43 4f 41 4c 45 53 43  ons like COALESC
2e00: 45 28 29 20 61 6e 64 20 49 46 4e 55 4c 4c 28 29  E() and IFNULL()
2e10: 20 61 6e 64 20 55 4e 4c 49 4b 45 4c 59 28 29 20   and UNLIKELY() 
2e20: 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74 65 64 0a  are implemented.
2e30: 2a 2a 20 61 73 20 56 44 42 45 20 63 6f 64 65 20  ** as VDBE code 
2e40: 73 6f 20 74 68 61 74 20 75 6e 75 73 65 64 20 61  so that unused a
2e50: 72 67 75 6d 65 6e 74 20 76 61 6c 75 65 73 20 64  rgument values d
2e60: 6f 20 6e 6f 74 20 68 61 76 65 20 74 6f 20 62 65  o not have to be
2e70: 20 63 6f 6d 70 75 74 65 64 2e 0a 2a 2a 20 48 6f   computed..** Ho
2e80: 77 65 76 65 72 2c 20 77 65 20 73 74 69 6c 6c 20  wever, we still 
2e90: 6e 65 65 64 20 73 6f 6d 65 20 6b 69 6e 64 20 6f  need some kind o
2ea0: 66 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 6c 65  f function imple
2eb0: 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 74 68  mentation for th
2ec0: 69 73 0a 2a 2a 20 72 6f 75 74 69 6e 65 73 20 69  is.** routines i
2ed0: 6e 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 74  n the function t
2ee0: 61 62 6c 65 2e 20 20 54 68 65 20 6e 6f 6f 70 46  able.  The noopF
2ef0: 75 6e 63 20 6d 61 63 72 6f 20 70 72 6f 76 69 64  unc macro provid
2f00: 65 73 20 74 68 69 73 2e 0a 2a 2a 20 6e 6f 6f 70  es this..** noop
2f10: 46 75 6e 63 20 77 69 6c 6c 20 6e 65 76 65 72 20  Func will never 
2f20: 62 65 20 63 61 6c 6c 65 64 20 73 6f 20 69 74 20  be called so it 
2f30: 64 6f 65 73 6e 27 74 20 6d 61 74 74 65 72 20 77  doesn't matter w
2f40: 68 61 74 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e  hat the implemen
2f50: 74 61 74 69 6f 6e 0a 2a 2a 20 69 73 2e 20 20 57  tation.** is.  W
2f60: 65 20 6d 69 67 68 74 20 61 73 20 77 65 6c 6c 20  e might as well 
2f70: 75 73 65 20 74 68 65 20 22 76 65 72 73 69 6f 6e  use the "version
2f80: 28 29 22 20 66 75 6e 63 74 69 6f 6e 20 61 73 20  ()" function as 
2f90: 61 20 73 75 62 73 74 69 74 75 74 65 2e 0a 2a 2f  a substitute..*/
2fa0: 0a 23 64 65 66 69 6e 65 20 6e 6f 6f 70 46 75 6e  .#define noopFun
2fb0: 63 20 76 65 72 73 69 6f 6e 46 75 6e 63 20 20 20  c versionFunc   
2fc0: 2f 2a 20 53 75 62 73 74 69 74 75 74 65 20 66 75  /* Substitute fu
2fd0: 6e 63 74 69 6f 6e 20 2d 20 6e 65 76 65 72 20 63  nction - never c
2fe0: 61 6c 6c 65 64 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20  alled */../*.** 
2ff0: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f  Implementation o
3000: 66 20 72 61 6e 64 6f 6d 28 29 2e 20 20 52 65 74  f random().  Ret
3010: 75 72 6e 20 61 20 72 61 6e 64 6f 6d 20 69 6e 74  urn a random int
3020: 65 67 65 72 2e 20 20 0a 2a 2f 0a 73 74 61 74 69  eger.  .*/.stati
3030: 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d 46 75 6e  c void randomFun
3040: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  c(.  sqlite3_con
3050: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20  text *context,. 
3060: 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20   int NotUsed,.  
3070: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
3080: 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 73 71  NotUsed2.){.  sq
3090: 6c 69 74 65 5f 69 6e 74 36 34 20 72 3b 0a 20 20  lite_int64 r;.  
30a0: 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52  UNUSED_PARAMETER
30b0: 32 28 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73  2(NotUsed, NotUs
30c0: 65 64 32 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f  ed2);.  sqlite3_
30d0: 72 61 6e 64 6f 6d 6e 65 73 73 28 73 69 7a 65 6f  randomness(sizeo
30e0: 66 28 72 29 2c 20 26 72 29 3b 0a 20 20 69 66 28  f(r), &r);.  if(
30f0: 20 72 3c 30 20 29 7b 0a 20 20 20 20 2f 2a 20 57   r<0 ){.    /* W
3100: 65 20 6e 65 65 64 20 74 6f 20 70 72 65 76 65 6e  e need to preven
3110: 74 20 61 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 65  t a random numbe
3120: 72 20 6f 66 20 30 78 38 30 30 30 30 30 30 30 30  r of 0x800000000
3130: 30 30 30 30 30 30 30 20 0a 20 20 20 20 2a 2a 20  0000000 .    ** 
3140: 28 6f 72 20 2d 39 32 32 33 33 37 32 30 33 36 38  (or -92233720368
3150: 35 34 37 37 35 38 30 38 29 20 73 69 6e 63 65 20  54775808) since 
3160: 77 68 65 6e 20 79 6f 75 20 64 6f 20 61 62 73 28  when you do abs(
3170: 29 20 6f 66 20 74 68 61 74 0a 20 20 20 20 2a 2a  ) of that.    **
3180: 20 6e 75 6d 62 65 72 20 6f 66 20 79 6f 75 20 67   number of you g
3190: 65 74 20 74 68 65 20 73 61 6d 65 20 76 61 6c 75  et the same valu
31a0: 65 20 62 61 63 6b 20 61 67 61 69 6e 2e 20 20 54  e back again.  T
31b0: 6f 20 64 6f 20 74 68 69 73 0a 20 20 20 20 2a 2a  o do this.    **
31c0: 20 69 6e 20 61 20 77 61 79 20 74 68 61 74 20 69   in a way that i
31d0: 73 20 74 65 73 74 61 62 6c 65 2c 20 6d 61 73 6b  s testable, mask
31e0: 20 74 68 65 20 73 69 67 6e 20 62 69 74 20 6f 66   the sign bit of
31f0: 66 20 6f 66 20 6e 65 67 61 74 69 76 65 0a 20 20  f of negative.  
3200: 20 20 2a 2a 20 76 61 6c 75 65 73 2c 20 72 65 73    ** values, res
3210: 75 6c 74 69 6e 67 20 69 6e 20 61 20 70 6f 73 69  ulting in a posi
3220: 74 69 76 65 20 76 61 6c 75 65 2e 20 20 54 68 65  tive value.  The
3230: 6e 20 74 61 6b 65 20 74 68 65 20 0a 20 20 20 20  n take the .    
3240: 2a 2a 20 32 73 20 63 6f 6d 70 6c 65 6d 65 6e 74  ** 2s complement
3250: 20 6f 66 20 74 68 61 74 20 70 6f 73 69 74 69 76   of that positiv
3260: 65 20 76 61 6c 75 65 2e 20 20 54 68 65 20 65 6e  e value.  The en
3270: 64 20 72 65 73 75 6c 74 20 63 61 6e 0a 20 20 20  d result can.   
3280: 20 2a 2a 20 74 68 65 72 65 66 6f 72 65 20 62 65   ** therefore be
3290: 20 6e 6f 20 6c 65 73 73 20 74 68 61 6e 20 2d 39   no less than -9
32a0: 32 32 33 33 37 32 30 33 36 38 35 34 37 37 35 38  2233720368547758
32b0: 30 37 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 72  07..    */.    r
32c0: 20 3d 20 2d 28 72 20 26 20 4c 41 52 47 45 53 54   = -(r & LARGEST
32d0: 5f 49 4e 54 36 34 29 3b 0a 20 20 7d 0a 20 20 73  _INT64);.  }.  s
32e0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e  qlite3_result_in
32f0: 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 72 29 3b  t64(context, r);
3300: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d  .}../*.** Implem
3310: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 72 61 6e 64  entation of rand
3320: 6f 6d 62 6c 6f 62 28 4e 29 2e 20 20 52 65 74 75  omblob(N).  Retu
3330: 72 6e 20 61 20 72 61 6e 64 6f 6d 20 62 6c 6f 62  rn a random blob
3340: 0a 2a 2a 20 74 68 61 74 20 69 73 20 4e 20 62 79  .** that is N by
3350: 74 65 73 20 6c 6f 6e 67 2e 0a 2a 2f 0a 73 74 61  tes long..*/.sta
3360: 74 69 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d 42  tic void randomB
3370: 6c 6f 62 28 0a 20 20 73 71 6c 69 74 65 33 5f 63  lob(.  sqlite3_c
3380: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c  ontext *context,
3390: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73  .  int argc,.  s
33a0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61  qlite3_value **a
33b0: 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a  rgv.){.  int n;.
33c0: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20    unsigned char 
33d0: 2a 70 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72  *p;.  assert( ar
33e0: 67 63 3d 3d 31 20 29 3b 0a 20 20 55 4e 55 53 45  gc==1 );.  UNUSE
33f0: 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 63  D_PARAMETER(argc
3400: 29 3b 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33  );.  n = sqlite3
3410: 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b  _value_int(argv[
3420: 30 5d 29 3b 0a 20 20 69 66 28 20 6e 3c 31 20 29  0]);.  if( n<1 )
3430: 7b 0a 20 20 20 20 6e 20 3d 20 31 3b 0a 20 20 7d  {.    n = 1;.  }
3440: 0a 20 20 70 20 3d 20 63 6f 6e 74 65 78 74 4d 61  .  p = contextMa
3450: 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c 20 6e 29  lloc(context, n)
3460: 3b 0a 20 20 69 66 28 20 70 20 29 7b 0a 20 20 20  ;.  if( p ){.   
3470: 20 73 71 6c 69 74 65 33 5f 72 61 6e 64 6f 6d 6e   sqlite3_randomn
3480: 65 73 73 28 6e 2c 20 70 29 3b 0a 20 20 20 20 73  ess(n, p);.    s
3490: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 62 6c  qlite3_result_bl
34a0: 6f 62 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61  ob(context, (cha
34b0: 72 2a 29 70 2c 20 6e 2c 20 73 71 6c 69 74 65 33  r*)p, n, sqlite3
34c0: 5f 66 72 65 65 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f  _free);.  }.}../
34d0: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74  *.** Implementat
34e0: 69 6f 6e 20 6f 66 20 74 68 65 20 6c 61 73 74 5f  ion of the last_
34f0: 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 29 20 53  insert_rowid() S
3500: 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68  QL function.  Th
3510: 65 20 72 65 74 75 72 6e 0a 2a 2a 20 76 61 6c 75  e return.** valu
3520: 65 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73  e is the same as
3530: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 6c 61 73   the sqlite3_las
3540: 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 29  t_insert_rowid()
3550: 20 41 50 49 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a   API function..*
3560: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 61  /.static void la
3570: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28  st_insert_rowid(
3580: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  .  sqlite3_conte
3590: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20  xt *context, .  
35a0: 69 6e 74 20 4e 6f 74 55 73 65 64 2c 20 0a 20 20  int NotUsed, .  
35b0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
35c0: 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 73 71  NotUsed2.){.  sq
35d0: 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71 6c 69  lite3 *db = sqli
35e0: 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68  te3_context_db_h
35f0: 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a  andle(context);.
3600: 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54    UNUSED_PARAMET
3610: 45 52 32 28 4e 6f 74 55 73 65 64 2c 20 4e 6f 74  ER2(NotUsed, Not
3620: 55 73 65 64 32 29 3b 0a 20 20 2f 2a 20 49 4d 50  Used2);.  /* IMP
3630: 3a 20 52 2d 35 31 35 31 33 2d 31 32 30 32 36 20  : R-51513-12026 
3640: 54 68 65 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f  The last_insert_
3650: 72 6f 77 69 64 28 29 20 53 51 4c 20 66 75 6e 63  rowid() SQL func
3660: 74 69 6f 6e 20 69 73 20 61 0a 20 20 2a 2a 20 77  tion is a.  ** w
3670: 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68  rapper around th
3680: 65 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69  e sqlite3_last_i
3690: 6e 73 65 72 74 5f 72 6f 77 69 64 28 29 20 43 2f  nsert_rowid() C/
36a0: 43 2b 2b 20 69 6e 74 65 72 66 61 63 65 0a 20 20  C++ interface.  
36b0: 2a 2a 20 66 75 6e 63 74 69 6f 6e 2e 20 2a 2f 0a  ** function. */.
36c0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
36d0: 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20  _int64(context, 
36e0: 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73  sqlite3_last_ins
36f0: 65 72 74 5f 72 6f 77 69 64 28 64 62 29 29 3b 0a  ert_rowid(db));.
3700: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65  }../*.** Impleme
3710: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63  ntation of the c
3720: 68 61 6e 67 65 73 28 29 20 53 51 4c 20 66 75 6e  hanges() SQL fun
3730: 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 49 4d 50  ction..**.** IMP
3740: 3a 20 52 2d 36 32 30 37 33 2d 31 31 32 30 39 20  : R-62073-11209 
3750: 54 68 65 20 63 68 61 6e 67 65 73 28 29 20 53 51  The changes() SQ
3760: 4c 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 20  L function is a 
3770: 77 72 61 70 70 65 72 0a 2a 2a 20 61 72 6f 75 6e  wrapper.** aroun
3780: 64 20 74 68 65 20 73 71 6c 69 74 65 33 5f 63 68  d the sqlite3_ch
3790: 61 6e 67 65 73 28 29 20 43 2f 43 2b 2b 20 66 75  anges() C/C++ fu
37a0: 6e 63 74 69 6f 6e 20 61 6e 64 20 68 65 6e 63 65  nction and hence
37b0: 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 73 61 6d   follows the sam
37c0: 65 0a 2a 2a 20 72 75 6c 65 73 20 66 6f 72 20 63  e.** rules for c
37d0: 6f 75 6e 74 69 6e 67 20 63 68 61 6e 67 65 73 2e  ounting changes.
37e0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
37f0: 63 68 61 6e 67 65 73 28 0a 20 20 73 71 6c 69 74  changes(.  sqlit
3800: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74  e3_context *cont
3810: 65 78 74 2c 0a 20 20 69 6e 74 20 4e 6f 74 55 73  ext,.  int NotUs
3820: 65 64 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61  ed,.  sqlite3_va
3830: 6c 75 65 20 2a 2a 4e 6f 74 55 73 65 64 32 0a 29  lue **NotUsed2.)
3840: 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20  {.  sqlite3 *db 
3850: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  = sqlite3_contex
3860: 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74  t_db_handle(cont
3870: 65 78 74 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50  ext);.  UNUSED_P
3880: 41 52 41 4d 45 54 45 52 32 28 4e 6f 74 55 73 65  ARAMETER2(NotUse
3890: 64 2c 20 4e 6f 74 55 73 65 64 32 29 3b 0a 20 20  d, NotUsed2);.  
38a0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69  sqlite3_result_i
38b0: 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69  nt(context, sqli
38c0: 74 65 33 5f 63 68 61 6e 67 65 73 28 64 62 29 29  te3_changes(db))
38d0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65  ;.}../*.** Imple
38e0: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65  mentation of the
38f0: 20 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 28 29   total_changes()
3900: 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20   SQL function.  
3910: 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65  The return value
3920: 20 69 73 0a 2a 2a 20 74 68 65 20 73 61 6d 65 20   is.** the same 
3930: 61 73 20 74 68 65 20 73 71 6c 69 74 65 33 5f 74  as the sqlite3_t
3940: 6f 74 61 6c 5f 63 68 61 6e 67 65 73 28 29 20 41  otal_changes() A
3950: 50 49 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a  PI function..*/.
3960: 73 74 61 74 69 63 20 76 6f 69 64 20 74 6f 74 61  static void tota
3970: 6c 5f 63 68 61 6e 67 65 73 28 0a 20 20 73 71 6c  l_changes(.  sql
3980: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
3990: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 4e 6f 74  ntext,.  int Not
39a0: 55 73 65 64 2c 0a 20 20 73 71 6c 69 74 65 33 5f  Used,.  sqlite3_
39b0: 76 61 6c 75 65 20 2a 2a 4e 6f 74 55 73 65 64 32  value **NotUsed2
39c0: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64  .){.  sqlite3 *d
39d0: 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  b = sqlite3_cont
39e0: 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f  ext_db_handle(co
39f0: 6e 74 65 78 74 29 3b 0a 20 20 55 4e 55 53 45 44  ntext);.  UNUSED
3a00: 5f 50 41 52 41 4d 45 54 45 52 32 28 4e 6f 74 55  _PARAMETER2(NotU
3a10: 73 65 64 2c 20 4e 6f 74 55 73 65 64 32 29 3b 0a  sed, NotUsed2);.
3a20: 20 20 2f 2a 20 49 4d 50 3a 20 52 2d 35 32 37 35    /* IMP: R-5275
3a30: 36 2d 34 31 39 39 33 20 54 68 69 73 20 66 75 6e  6-41993 This fun
3a40: 63 74 69 6f 6e 20 69 73 20 61 20 77 72 61 70 70  ction is a wrapp
3a50: 65 72 20 61 72 6f 75 6e 64 20 74 68 65 0a 20 20  er around the.  
3a60: 2a 2a 20 73 71 6c 69 74 65 33 5f 74 6f 74 61 6c  ** sqlite3_total
3a70: 5f 63 68 61 6e 67 65 73 28 29 20 43 2f 43 2b 2b  _changes() C/C++
3a80: 20 69 6e 74 65 72 66 61 63 65 2e 20 2a 2f 0a 20   interface. */. 
3a90: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
3aa0: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c  int(context, sql
3ab0: 69 74 65 33 5f 74 6f 74 61 6c 5f 63 68 61 6e 67  ite3_total_chang
3ac0: 65 73 28 64 62 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  es(db));.}../*.*
3ad0: 2a 20 41 20 73 74 72 75 63 74 75 72 65 20 64 65  * A structure de
3ae0: 66 69 6e 69 6e 67 20 68 6f 77 20 74 6f 20 64 6f  fining how to do
3af0: 20 47 4c 4f 42 2d 73 74 79 6c 65 20 63 6f 6d 70   GLOB-style comp
3b00: 61 72 69 73 6f 6e 73 2e 0a 2a 2f 0a 73 74 72 75  arisons..*/.stru
3b10: 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 7b  ct compareInfo {
3b20: 0a 20 20 75 38 20 6d 61 74 63 68 41 6c 6c 3b 0a  .  u8 matchAll;.
3b30: 20 20 75 38 20 6d 61 74 63 68 4f 6e 65 3b 0a 20    u8 matchOne;. 
3b40: 20 75 38 20 6d 61 74 63 68 53 65 74 3b 0a 20 20   u8 matchSet;.  
3b50: 75 38 20 6e 6f 43 61 73 65 3b 0a 7d 3b 0a 0a 2f  u8 noCase;.};../
3b60: 2a 0a 2a 2a 20 46 6f 72 20 4c 49 4b 45 20 61 6e  *.** For LIKE an
3b70: 64 20 47 4c 4f 42 20 6d 61 74 63 68 69 6e 67 20  d GLOB matching 
3b80: 6f 6e 20 45 42 43 44 49 43 20 6d 61 63 68 69 6e  on EBCDIC machin
3b90: 65 73 2c 20 61 73 73 75 6d 65 20 74 68 61 74 20  es, assume that 
3ba0: 65 76 65 72 79 0a 2a 2a 20 63 68 61 72 61 63 74  every.** charact
3bb0: 65 72 20 69 73 20 65 78 61 63 74 6c 79 20 6f 6e  er is exactly on
3bc0: 65 20 62 79 74 65 20 69 6e 20 73 69 7a 65 2e 20  e byte in size. 
3bd0: 20 41 6c 73 6f 2c 20 61 6c 6c 20 63 68 61 72 61   Also, all chara
3be0: 63 74 65 72 73 20 61 72 65 0a 2a 2a 20 61 62 6c  cters are.** abl
3bf0: 65 20 74 6f 20 70 61 72 74 69 63 69 70 61 74 65  e to participate
3c00: 20 69 6e 20 75 70 70 65 72 2d 63 61 73 65 2d 74   in upper-case-t
3c10: 6f 2d 6c 6f 77 65 72 2d 63 61 73 65 20 6d 61 70  o-lower-case map
3c20: 70 69 6e 67 73 20 69 6e 20 45 42 43 44 49 43 0a  pings in EBCDIC.
3c30: 2a 2a 20 77 68 65 72 65 61 73 20 6f 6e 6c 79 20  ** whereas only 
3c40: 63 68 61 72 61 63 74 65 72 73 20 6c 65 73 73 20  characters less 
3c50: 74 68 61 6e 20 30 78 38 30 20 64 6f 20 69 6e 20  than 0x80 do in 
3c60: 41 53 43 49 49 2e 0a 2a 2f 0a 23 69 66 20 64 65  ASCII..*/.#if de
3c70: 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 45 42 43  fined(SQLITE_EBC
3c80: 44 49 43 29 0a 23 20 64 65 66 69 6e 65 20 73 71  DIC).# define sq
3c90: 6c 69 74 65 33 55 74 66 38 52 65 61 64 28 41 29  lite3Utf8Read(A)
3ca0: 20 20 20 20 28 2a 28 28 2a 41 29 2b 2b 29 29 0a      (*((*A)++)).
3cb0: 23 20 64 65 66 69 6e 65 20 47 6c 6f 62 55 70 70  # define GlobUpp
3cc0: 65 72 54 6f 4c 6f 77 65 72 28 41 29 20 20 20 41  erToLower(A)   A
3cd0: 20 3d 20 73 71 6c 69 74 65 33 55 70 70 65 72 54   = sqlite3UpperT
3ce0: 6f 4c 6f 77 65 72 5b 41 5d 0a 23 65 6c 73 65 0a  oLower[A].#else.
3cf0: 23 20 64 65 66 69 6e 65 20 47 6c 6f 62 55 70 70  # define GlobUpp
3d00: 65 72 54 6f 4c 6f 77 65 72 28 41 29 20 20 20 69  erToLower(A)   i
3d10: 66 28 20 21 28 28 41 29 26 7e 30 78 37 66 29 20  f( !((A)&~0x7f) 
3d20: 29 7b 20 41 20 3d 20 73 71 6c 69 74 65 33 55 70  ){ A = sqlite3Up
3d30: 70 65 72 54 6f 4c 6f 77 65 72 5b 41 5d 3b 20 7d  perToLower[A]; }
3d40: 0a 23 65 6e 64 69 66 0a 0a 73 74 61 74 69 63 20  .#endif..static 
3d50: 63 6f 6e 73 74 20 73 74 72 75 63 74 20 63 6f 6d  const struct com
3d60: 70 61 72 65 49 6e 66 6f 20 67 6c 6f 62 49 6e 66  pareInfo globInf
3d70: 6f 20 3d 20 7b 20 27 2a 27 2c 20 27 3f 27 2c 20  o = { '*', '?', 
3d80: 27 5b 27 2c 20 30 20 7d 3b 0a 2f 2a 20 54 68 65  '[', 0 };./* The
3d90: 20 63 6f 72 72 65 63 74 20 53 51 4c 2d 39 32 20   correct SQL-92 
3da0: 62 65 68 61 76 69 6f 72 20 69 73 20 66 6f 72 20  behavior is for 
3db0: 74 68 65 20 4c 49 4b 45 20 6f 70 65 72 61 74 6f  the LIKE operato
3dc0: 72 20 74 6f 20 69 67 6e 6f 72 65 0a 2a 2a 20 63  r to ignore.** c
3dd0: 61 73 65 2e 20 20 54 68 75 73 20 20 27 61 27 20  ase.  Thus  'a' 
3de0: 4c 49 4b 45 20 27 41 27 20 77 6f 75 6c 64 20 62  LIKE 'A' would b
3df0: 65 20 74 72 75 65 2e 20 2a 2f 0a 73 74 61 74 69  e true. */.stati
3e00: 63 20 63 6f 6e 73 74 20 73 74 72 75 63 74 20 63  c const struct c
3e10: 6f 6d 70 61 72 65 49 6e 66 6f 20 6c 69 6b 65 49  ompareInfo likeI
3e20: 6e 66 6f 4e 6f 72 6d 20 3d 20 7b 20 27 25 27 2c  nfoNorm = { '%',
3e30: 20 27 5f 27 2c 20 20 20 30 2c 20 31 20 7d 3b 0a   '_',   0, 1 };.
3e40: 2f 2a 20 49 66 20 53 51 4c 49 54 45 5f 43 41 53  /* If SQLITE_CAS
3e50: 45 5f 53 45 4e 53 49 54 49 56 45 5f 4c 49 4b 45  E_SENSITIVE_LIKE
3e60: 20 69 73 20 64 65 66 69 6e 65 64 2c 20 74 68 65   is defined, the
3e70: 6e 20 74 68 65 20 4c 49 4b 45 20 6f 70 65 72 61  n the LIKE opera
3e80: 74 6f 72 0a 2a 2a 20 69 73 20 63 61 73 65 20 73  tor.** is case s
3e90: 65 6e 73 69 74 69 76 65 20 63 61 75 73 69 6e 67  ensitive causing
3ea0: 20 27 61 27 20 4c 49 4b 45 20 27 41 27 20 74 6f   'a' LIKE 'A' to
3eb0: 20 62 65 20 66 61 6c 73 65 20 2a 2f 0a 73 74 61   be false */.sta
3ec0: 74 69 63 20 63 6f 6e 73 74 20 73 74 72 75 63 74  tic const struct
3ed0: 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 6c 69 6b   compareInfo lik
3ee0: 65 49 6e 66 6f 41 6c 74 20 3d 20 7b 20 27 25 27  eInfoAlt = { '%'
3ef0: 2c 20 27 5f 27 2c 20 20 20 30 2c 20 30 20 7d 3b  , '_',   0, 0 };
3f00: 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 61 72 65 20  ../*.** Compare 
3f10: 74 77 6f 20 55 54 46 2d 38 20 73 74 72 69 6e 67  two UTF-8 string
3f20: 73 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 77  s for equality w
3f30: 68 65 72 65 20 74 68 65 20 66 69 72 73 74 20 73  here the first s
3f40: 74 72 69 6e 67 20 63 61 6e 0a 2a 2a 20 70 6f 74  tring can.** pot
3f50: 65 6e 74 69 61 6c 6c 79 20 62 65 20 61 20 22 67  entially be a "g
3f60: 6c 6f 62 22 20 65 78 70 72 65 73 73 69 6f 6e 2e  lob" expression.
3f70: 20 20 52 65 74 75 72 6e 20 74 72 75 65 20 28 31    Return true (1
3f80: 29 20 69 66 20 74 68 65 79 0a 2a 2a 20 61 72 65  ) if they.** are
3f90: 20 74 68 65 20 73 61 6d 65 20 61 6e 64 20 66 61   the same and fa
3fa0: 6c 73 65 20 28 30 29 20 69 66 20 74 68 65 79 20  lse (0) if they 
3fb0: 61 72 65 20 64 69 66 66 65 72 65 6e 74 2e 0a 2a  are different..*
3fc0: 2a 0a 2a 2a 20 47 6c 6f 62 62 69 6e 67 20 72 75  *.** Globbing ru
3fd0: 6c 65 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20  les:.**.**      
3fe0: 27 2a 27 20 20 20 20 20 20 20 4d 61 74 63 68 65  '*'       Matche
3ff0: 73 20 61 6e 79 20 73 65 71 75 65 6e 63 65 20 6f  s any sequence o
4000: 66 20 7a 65 72 6f 20 6f 72 20 6d 6f 72 65 20 63  f zero or more c
4010: 68 61 72 61 63 74 65 72 73 2e 0a 2a 2a 0a 2a 2a  haracters..**.**
4020: 20 20 20 20 20 20 27 3f 27 20 20 20 20 20 20 20        '?'       
4030: 4d 61 74 63 68 65 73 20 65 78 61 63 74 6c 79 20  Matches exactly 
4040: 6f 6e 65 20 63 68 61 72 61 63 74 65 72 2e 0a 2a  one character..*
4050: 2a 0a 2a 2a 20 20 20 20 20 5b 2e 2e 2e 5d 20 20  *.**     [...]  
4060: 20 20 20 20 4d 61 74 63 68 65 73 20 6f 6e 65 20      Matches one 
4070: 63 68 61 72 61 63 74 65 72 20 66 72 6f 6d 20 74  character from t
4080: 68 65 20 65 6e 63 6c 6f 73 65 64 20 6c 69 73 74  he enclosed list
4090: 20 6f 66 0a 2a 2a 20 20 20 20 20 20 20 20 20 20   of.**          
40a0: 20 20 20 20 20 20 63 68 61 72 61 63 74 65 72 73        characters
40b0: 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 5b 5e 2e 2e  ..**.**     [^..
40c0: 2e 5d 20 20 20 20 20 4d 61 74 63 68 65 73 20 6f  .]     Matches o
40d0: 6e 65 20 63 68 61 72 61 63 74 65 72 20 6e 6f 74  ne character not
40e0: 20 69 6e 20 74 68 65 20 65 6e 63 6c 6f 73 65 64   in the enclosed
40f0: 20 6c 69 73 74 2e 0a 2a 2a 0a 2a 2a 20 57 69 74   list..**.** Wit
4100: 68 20 74 68 65 20 5b 2e 2e 2e 5d 20 61 6e 64 20  h the [...] and 
4110: 5b 5e 2e 2e 2e 5d 20 6d 61 74 63 68 69 6e 67 2c  [^...] matching,
4120: 20 61 20 27 5d 27 20 63 68 61 72 61 63 74 65 72   a ']' character
4130: 20 63 61 6e 20 62 65 20 69 6e 63 6c 75 64 65 64   can be included
4140: 0a 2a 2a 20 69 6e 20 74 68 65 20 6c 69 73 74 20  .** in the list 
4150: 62 79 20 6d 61 6b 69 6e 67 20 69 74 20 74 68 65  by making it the
4160: 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72   first character
4170: 20 61 66 74 65 72 20 27 5b 27 20 6f 72 20 27 5e   after '[' or '^
4180: 27 2e 20 20 41 0a 2a 2a 20 72 61 6e 67 65 20 6f  '.  A.** range o
4190: 66 20 63 68 61 72 61 63 74 65 72 73 20 63 61 6e  f characters can
41a0: 20 62 65 20 73 70 65 63 69 66 69 65 64 20 75 73   be specified us
41b0: 69 6e 67 20 27 2d 27 2e 20 20 45 78 61 6d 70 6c  ing '-'.  Exampl
41c0: 65 3a 0a 2a 2a 20 22 5b 61 2d 7a 5d 22 20 6d 61  e:.** "[a-z]" ma
41d0: 74 63 68 65 73 20 61 6e 79 20 73 69 6e 67 6c 65  tches any single
41e0: 20 6c 6f 77 65 72 2d 63 61 73 65 20 6c 65 74 74   lower-case lett
41f0: 65 72 2e 20 20 54 6f 20 6d 61 74 63 68 20 61 20  er.  To match a 
4200: 27 2d 27 2c 20 6d 61 6b 65 0a 2a 2a 20 69 74 20  '-', make.** it 
4210: 74 68 65 20 6c 61 73 74 20 63 68 61 72 61 63 74  the last charact
4220: 65 72 20 69 6e 20 74 68 65 20 6c 69 73 74 2e 0a  er in the list..
4230: 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69  **.** This routi
4240: 6e 65 20 69 73 20 75 73 75 61 6c 6c 79 20 71 75  ne is usually qu
4250: 69 63 6b 2c 20 62 75 74 20 63 61 6e 20 62 65 20  ick, but can be 
4260: 4e 2a 2a 32 20 69 6e 20 74 68 65 20 77 6f 72 73  N**2 in the wors
4270: 74 20 63 61 73 65 2e 0a 2a 2a 0a 2a 2a 20 48 69  t case..**.** Hi
4280: 6e 74 73 3a 20 74 6f 20 6d 61 74 63 68 20 27 2a  nts: to match '*
4290: 27 20 6f 72 20 27 3f 27 2c 20 70 75 74 20 74 68  ' or '?', put th
42a0: 65 6d 20 69 6e 20 22 5b 5d 22 2e 20 20 4c 69 6b  em in "[]".  Lik
42b0: 65 20 74 68 69 73 3a 0a 2a 2a 0a 2a 2a 20 20 20  e this:.**.**   
42c0: 20 20 20 20 20 20 61 62 63 5b 2a 5d 78 79 7a 20        abc[*]xyz 
42d0: 20 20 20 20 20 20 20 4d 61 74 63 68 65 73 20 22         Matches "
42e0: 61 62 63 2a 78 79 7a 22 20 6f 6e 6c 79 0a 2a 2f  abc*xyz" only.*/
42f0: 0a 73 74 61 74 69 63 20 69 6e 74 20 70 61 74 74  .static int patt
4300: 65 72 6e 43 6f 6d 70 61 72 65 28 0a 20 20 63 6f  ernCompare(.  co
4310: 6e 73 74 20 75 38 20 2a 7a 50 61 74 74 65 72 6e  nst u8 *zPattern
4320: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ,              /
4330: 2a 20 54 68 65 20 67 6c 6f 62 20 70 61 74 74 65  * The glob patte
4340: 72 6e 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 75 38  rn */.  const u8
4350: 20 2a 7a 53 74 72 69 6e 67 2c 20 20 20 20 20 20   *zString,      
4360: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20           /* The 
4370: 73 74 72 69 6e 67 20 74 6f 20 63 6f 6d 70 61 72  string to compar
4380: 65 20 61 67 61 69 6e 73 74 20 74 68 65 20 67 6c  e against the gl
4390: 6f 62 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 73 74  ob */.  const st
43a0: 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f  ruct compareInfo
43b0: 20 2a 70 49 6e 66 6f 2c 20 2f 2a 20 49 6e 66 6f   *pInfo, /* Info
43c0: 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 68 6f  rmation about ho
43d0: 77 20 74 6f 20 64 6f 20 74 68 65 20 63 6f 6d 70  w to do the comp
43e0: 61 72 65 20 2a 2f 0a 20 20 75 33 32 20 65 73 63  are */.  u32 esc
43f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4400: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65            /* The
4410: 20 65 73 63 61 70 65 20 63 68 61 72 61 63 74 65   escape characte
4420: 72 20 2a 2f 0a 29 7b 0a 20 20 75 33 32 20 63 2c  r */.){.  u32 c,
4430: 20 63 32 3b 0a 20 20 69 6e 74 20 69 6e 76 65 72   c2;.  int inver
4440: 74 3b 0a 20 20 69 6e 74 20 73 65 65 6e 3b 0a 20  t;.  int seen;. 
4450: 20 75 38 20 6d 61 74 63 68 4f 6e 65 20 3d 20 70   u8 matchOne = p
4460: 49 6e 66 6f 2d 3e 6d 61 74 63 68 4f 6e 65 3b 0a  Info->matchOne;.
4470: 20 20 75 38 20 6d 61 74 63 68 41 6c 6c 20 3d 20    u8 matchAll = 
4480: 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 41 6c 6c 3b  pInfo->matchAll;
4490: 0a 20 20 75 38 20 6d 61 74 63 68 53 65 74 20 3d  .  u8 matchSet =
44a0: 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 53 65 74   pInfo->matchSet
44b0: 3b 0a 20 20 75 38 20 6e 6f 43 61 73 65 20 3d 20  ;.  u8 noCase = 
44c0: 70 49 6e 66 6f 2d 3e 6e 6f 43 61 73 65 3b 20 0a  pInfo->noCase; .
44d0: 20 20 69 6e 74 20 70 72 65 76 45 73 63 61 70 65    int prevEscape
44e0: 20 3d 20 30 3b 20 20 20 20 20 2f 2a 20 54 72 75   = 0;     /* Tru
44f0: 65 20 69 66 20 74 68 65 20 70 72 65 76 69 6f 75  e if the previou
4500: 73 20 63 68 61 72 61 63 74 65 72 20 77 61 73 20  s character was 
4510: 27 65 73 63 61 70 65 27 20 2a 2f 0a 0a 20 20 77  'escape' */..  w
4520: 68 69 6c 65 28 20 28 63 20 3d 20 73 71 6c 69 74  hile( (c = sqlit
4530: 65 33 55 74 66 38 52 65 61 64 28 26 7a 50 61 74  e3Utf8Read(&zPat
4540: 74 65 72 6e 29 29 21 3d 30 20 29 7b 0a 20 20 20  tern))!=0 ){.   
4550: 20 69 66 28 20 63 3d 3d 6d 61 74 63 68 41 6c 6c   if( c==matchAll
4560: 20 26 26 20 21 70 72 65 76 45 73 63 61 70 65 20   && !prevEscape 
4570: 29 7b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20  ){.      while( 
4580: 28 63 3d 73 71 6c 69 74 65 33 55 74 66 38 52 65  (c=sqlite3Utf8Re
4590: 61 64 28 26 7a 50 61 74 74 65 72 6e 29 29 20 3d  ad(&zPattern)) =
45a0: 3d 20 6d 61 74 63 68 41 6c 6c 0a 20 20 20 20 20  = matchAll.     
45b0: 20 20 20 20 20 20 20 20 20 20 7c 7c 20 63 20 3d            || c =
45c0: 3d 20 6d 61 74 63 68 4f 6e 65 20 29 7b 0a 20 20  = matchOne ){.  
45d0: 20 20 20 20 20 20 69 66 28 20 63 3d 3d 6d 61 74        if( c==mat
45e0: 63 68 4f 6e 65 20 26 26 20 73 71 6c 69 74 65 33  chOne && sqlite3
45f0: 55 74 66 38 52 65 61 64 28 26 7a 53 74 72 69 6e  Utf8Read(&zStrin
4600: 67 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20  g)==0 ){.       
4610: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20     return 0;.   
4620: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20       }.      }. 
4630: 20 20 20 20 20 69 66 28 20 63 3d 3d 30 20 29 7b       if( c==0 ){
4640: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
4650: 31 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69  1;.      }else i
4660: 66 28 20 63 3d 3d 65 73 63 20 29 7b 0a 20 20 20  f( c==esc ){.   
4670: 20 20 20 20 20 63 20 3d 20 73 71 6c 69 74 65 33       c = sqlite3
4680: 55 74 66 38 52 65 61 64 28 26 7a 50 61 74 74 65  Utf8Read(&zPatte
4690: 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28  rn);.        if(
46a0: 20 63 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20   c==0 ){.       
46b0: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20     return 0;.   
46c0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 65 6c       }.      }el
46d0: 73 65 20 69 66 28 20 63 3d 3d 6d 61 74 63 68 53  se if( c==matchS
46e0: 65 74 20 29 7b 0a 20 20 20 20 20 20 20 20 61 73  et ){.        as
46f0: 73 65 72 74 28 20 65 73 63 3d 3d 30 20 29 3b 20  sert( esc==0 ); 
4700: 20 20 20 20 20 20 20 20 2f 2a 20 54 68 69 73 20          /* This 
4710: 69 73 20 47 4c 4f 42 2c 20 6e 6f 74 20 4c 49 4b  is GLOB, not LIK
4720: 45 20 2a 2f 0a 20 20 20 20 20 20 20 20 61 73 73  E */.        ass
4730: 65 72 74 28 20 6d 61 74 63 68 53 65 74 3c 30 78  ert( matchSet<0x
4740: 38 30 20 29 3b 20 20 2f 2a 20 27 5b 27 20 69 73  80 );  /* '[' is
4750: 20 61 20 73 69 6e 67 6c 65 2d 62 79 74 65 20 63   a single-byte c
4760: 68 61 72 61 63 74 65 72 20 2a 2f 0a 20 20 20 20  haracter */.    
4770: 20 20 20 20 77 68 69 6c 65 28 20 2a 7a 53 74 72      while( *zStr
4780: 69 6e 67 20 26 26 20 70 61 74 74 65 72 6e 43 6f  ing && patternCo
4790: 6d 70 61 72 65 28 26 7a 50 61 74 74 65 72 6e 5b  mpare(&zPattern[
47a0: 2d 31 5d 2c 7a 53 74 72 69 6e 67 2c 70 49 6e 66  -1],zString,pInf
47b0: 6f 2c 65 73 63 29 3d 3d 30 20 29 7b 0a 20 20 20  o,esc)==0 ){.   
47c0: 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 53 4b         SQLITE_SK
47d0: 49 50 5f 55 54 46 38 28 7a 53 74 72 69 6e 67 29  IP_UTF8(zString)
47e0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
47f0: 20 20 20 20 72 65 74 75 72 6e 20 2a 7a 53 74 72      return *zStr
4800: 69 6e 67 21 3d 30 3b 0a 20 20 20 20 20 20 7d 0a  ing!=0;.      }.
4810: 20 20 20 20 20 20 77 68 69 6c 65 28 20 28 63 32        while( (c2
4820: 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 65   = sqlite3Utf8Re
4830: 61 64 28 26 7a 53 74 72 69 6e 67 29 29 21 3d 30  ad(&zString))!=0
4840: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20   ){.        if( 
4850: 6e 6f 43 61 73 65 20 29 7b 0a 20 20 20 20 20 20  noCase ){.      
4860: 20 20 20 20 47 6c 6f 62 55 70 70 65 72 54 6f 4c      GlobUpperToL
4870: 6f 77 65 72 28 63 32 29 3b 0a 20 20 20 20 20 20  ower(c2);.      
4880: 20 20 20 20 47 6c 6f 62 55 70 70 65 72 54 6f 4c      GlobUpperToL
4890: 6f 77 65 72 28 63 29 3b 0a 20 20 20 20 20 20 20  ower(c);.       
48a0: 20 20 20 77 68 69 6c 65 28 20 63 32 20 21 3d 20     while( c2 != 
48b0: 30 20 26 26 20 63 32 20 21 3d 20 63 20 29 7b 0a  0 && c2 != c ){.
48c0: 20 20 20 20 20 20 20 20 20 20 20 20 63 32 20 3d              c2 =
48d0: 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64   sqlite3Utf8Read
48e0: 28 26 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20  (&zString);.    
48f0: 20 20 20 20 20 20 20 20 47 6c 6f 62 55 70 70 65          GlobUppe
4900: 72 54 6f 4c 6f 77 65 72 28 63 32 29 3b 0a 20 20  rToLower(c2);.  
4910: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
4920: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
4930: 20 20 20 77 68 69 6c 65 28 20 63 32 20 21 3d 20     while( c2 != 
4940: 30 20 26 26 20 63 32 20 21 3d 20 63 20 29 7b 0a  0 && c2 != c ){.
4950: 20 20 20 20 20 20 20 20 20 20 20 20 63 32 20 3d              c2 =
4960: 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64   sqlite3Utf8Read
4970: 28 26 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20  (&zString);.    
4980: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
4990: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 32  }.        if( c2
49a0: 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a  ==0 ) return 0;.
49b0: 20 20 20 20 20 20 20 20 69 66 28 20 70 61 74 74          if( patt
49c0: 65 72 6e 43 6f 6d 70 61 72 65 28 7a 50 61 74 74  ernCompare(zPatt
49d0: 65 72 6e 2c 7a 53 74 72 69 6e 67 2c 70 49 6e 66  ern,zString,pInf
49e0: 6f 2c 65 73 63 29 20 29 20 72 65 74 75 72 6e 20  o,esc) ) return 
49f0: 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  1;.      }.     
4a00: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d   return 0;.    }
4a10: 65 6c 73 65 20 69 66 28 20 63 3d 3d 6d 61 74 63  else if( c==matc
4a20: 68 4f 6e 65 20 26 26 20 21 70 72 65 76 45 73 63  hOne && !prevEsc
4a30: 61 70 65 20 29 7b 0a 20 20 20 20 20 20 69 66 28  ape ){.      if(
4a40: 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64   sqlite3Utf8Read
4a50: 28 26 7a 53 74 72 69 6e 67 29 3d 3d 30 20 29 7b  (&zString)==0 ){
4a60: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
4a70: 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  0;.      }.    }
4a80: 65 6c 73 65 20 69 66 28 20 63 3d 3d 6d 61 74 63  else if( c==matc
4a90: 68 53 65 74 20 29 7b 0a 20 20 20 20 20 20 75 33  hSet ){.      u3
4aa0: 32 20 70 72 69 6f 72 5f 63 20 3d 20 30 3b 0a 20  2 prior_c = 0;. 
4ab0: 20 20 20 20 20 61 73 73 65 72 74 28 20 65 73 63       assert( esc
4ac0: 3d 3d 30 20 29 3b 20 20 20 20 2f 2a 20 54 68 69  ==0 );    /* Thi
4ad0: 73 20 6f 6e 6c 79 20 6f 63 63 75 72 73 20 66 6f  s only occurs fo
4ae0: 72 20 47 4c 4f 42 2c 20 6e 6f 74 20 4c 49 4b 45  r GLOB, not LIKE
4af0: 20 2a 2f 0a 20 20 20 20 20 20 73 65 65 6e 20 3d   */.      seen =
4b00: 20 30 3b 0a 20 20 20 20 20 20 69 6e 76 65 72 74   0;.      invert
4b10: 20 3d 20 30 3b 0a 20 20 20 20 20 20 63 20 3d 20   = 0;.      c = 
4b20: 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64 28  sqlite3Utf8Read(
4b30: 26 7a 53 74 72 69 6e 67 29 3b 0a 20 20 20 20 20  &zString);.     
4b40: 20 69 66 28 20 63 3d 3d 30 20 29 20 72 65 74 75   if( c==0 ) retu
4b50: 72 6e 20 30 3b 0a 20 20 20 20 20 20 63 32 20 3d  rn 0;.      c2 =
4b60: 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64   sqlite3Utf8Read
4b70: 28 26 7a 50 61 74 74 65 72 6e 29 3b 0a 20 20 20  (&zPattern);.   
4b80: 20 20 20 69 66 28 20 63 32 3d 3d 27 5e 27 20 29     if( c2=='^' )
4b90: 7b 0a 20 20 20 20 20 20 20 20 69 6e 76 65 72 74  {.        invert
4ba0: 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 63 32   = 1;.        c2
4bb0: 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 65   = sqlite3Utf8Re
4bc0: 61 64 28 26 7a 50 61 74 74 65 72 6e 29 3b 0a 20  ad(&zPattern);. 
4bd0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28       }.      if(
4be0: 20 63 32 3d 3d 27 5d 27 20 29 7b 0a 20 20 20 20   c2==']' ){.    
4bf0: 20 20 20 20 69 66 28 20 63 3d 3d 27 5d 27 20 29      if( c==']' )
4c00: 20 73 65 65 6e 20 3d 20 31 3b 0a 20 20 20 20 20   seen = 1;.     
4c10: 20 20 20 63 32 20 3d 20 73 71 6c 69 74 65 33 55     c2 = sqlite3U
4c20: 74 66 38 52 65 61 64 28 26 7a 50 61 74 74 65 72  tf8Read(&zPatter
4c30: 6e 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  n);.      }.    
4c40: 20 20 77 68 69 6c 65 28 20 63 32 20 26 26 20 63    while( c2 && c
4c50: 32 21 3d 27 5d 27 20 29 7b 0a 20 20 20 20 20 20  2!=']' ){.      
4c60: 20 20 69 66 28 20 63 32 3d 3d 27 2d 27 20 26 26    if( c2=='-' &&
4c70: 20 7a 50 61 74 74 65 72 6e 5b 30 5d 21 3d 27 5d   zPattern[0]!=']
4c80: 27 20 26 26 20 7a 50 61 74 74 65 72 6e 5b 30 5d  ' && zPattern[0]
4c90: 21 3d 30 20 26 26 20 70 72 69 6f 72 5f 63 3e 30  !=0 && prior_c>0
4ca0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 63 32   ){.          c2
4cb0: 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 65   = sqlite3Utf8Re
4cc0: 61 64 28 26 7a 50 61 74 74 65 72 6e 29 3b 0a 20  ad(&zPattern);. 
4cd0: 20 20 20 20 20 20 20 20 20 69 66 28 20 63 3e 3d           if( c>=
4ce0: 70 72 69 6f 72 5f 63 20 26 26 20 63 3c 3d 63 32  prior_c && c<=c2
4cf0: 20 29 20 73 65 65 6e 20 3d 20 31 3b 0a 20 20 20   ) seen = 1;.   
4d00: 20 20 20 20 20 20 20 70 72 69 6f 72 5f 63 20 3d         prior_c =
4d10: 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73   0;.        }els
4d20: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28  e{.          if(
4d30: 20 63 3d 3d 63 32 20 29 7b 0a 20 20 20 20 20 20   c==c2 ){.      
4d40: 20 20 20 20 20 20 73 65 65 6e 20 3d 20 31 3b 0a        seen = 1;.
4d50: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
4d60: 20 20 20 20 20 20 70 72 69 6f 72 5f 63 20 3d 20        prior_c = 
4d70: 63 32 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  c2;.        }.  
4d80: 20 20 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74        c2 = sqlit
4d90: 65 33 55 74 66 38 52 65 61 64 28 26 7a 50 61 74  e3Utf8Read(&zPat
4da0: 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 7d 0a 20  tern);.      }. 
4db0: 20 20 20 20 20 69 66 28 20 63 32 3d 3d 30 20 7c       if( c2==0 |
4dc0: 7c 20 28 73 65 65 6e 20 5e 20 69 6e 76 65 72 74  | (seen ^ invert
4dd0: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20  )==0 ){.        
4de0: 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20  return 0;.      
4df0: 7d 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20  }.    }else if( 
4e00: 65 73 63 3d 3d 63 20 26 26 20 21 70 72 65 76 45  esc==c && !prevE
4e10: 73 63 61 70 65 20 29 7b 0a 20 20 20 20 20 20 70  scape ){.      p
4e20: 72 65 76 45 73 63 61 70 65 20 3d 20 31 3b 0a 20  revEscape = 1;. 
4e30: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
4e40: 63 32 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38  c2 = sqlite3Utf8
4e50: 52 65 61 64 28 26 7a 53 74 72 69 6e 67 29 3b 0a  Read(&zString);.
4e60: 20 20 20 20 20 20 69 66 28 20 6e 6f 43 61 73 65        if( noCase
4e70: 20 29 7b 0a 20 20 20 20 20 20 20 20 47 6c 6f 62   ){.        Glob
4e80: 55 70 70 65 72 54 6f 4c 6f 77 65 72 28 63 29 3b  UpperToLower(c);
4e90: 0a 20 20 20 20 20 20 20 20 47 6c 6f 62 55 70 70  .        GlobUpp
4ea0: 65 72 54 6f 4c 6f 77 65 72 28 63 32 29 3b 0a 20  erToLower(c2);. 
4eb0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28       }.      if(
4ec0: 20 63 21 3d 63 32 20 29 7b 0a 20 20 20 20 20 20   c!=c2 ){.      
4ed0: 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20    return 0;.    
4ee0: 20 20 7d 0a 20 20 20 20 20 20 70 72 65 76 45 73    }.      prevEs
4ef0: 63 61 70 65 20 3d 20 30 3b 0a 20 20 20 20 7d 0a  cape = 0;.    }.
4f00: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 2a 7a 53    }.  return *zS
4f10: 74 72 69 6e 67 3d 3d 30 3b 0a 7d 0a 0a 2f 2a 0a  tring==0;.}../*.
4f20: 2a 2a 20 54 68 65 20 73 71 6c 69 74 65 33 5f 73  ** The sqlite3_s
4f30: 74 72 67 6c 6f 62 28 29 20 69 6e 74 65 72 66 61  trglob() interfa
4f40: 63 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74  ce..*/.int sqlit
4f50: 65 33 5f 73 74 72 67 6c 6f 62 28 63 6f 6e 73 74  e3_strglob(const
4f60: 20 63 68 61 72 20 2a 7a 47 6c 6f 62 50 61 74 74   char *zGlobPatt
4f70: 65 72 6e 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  ern, const char 
4f80: 2a 7a 53 74 72 69 6e 67 29 7b 0a 20 20 72 65 74  *zString){.  ret
4f90: 75 72 6e 20 70 61 74 74 65 72 6e 43 6f 6d 70 61  urn patternCompa
4fa0: 72 65 28 28 75 38 2a 29 7a 47 6c 6f 62 50 61 74  re((u8*)zGlobPat
4fb0: 74 65 72 6e 2c 20 28 75 38 2a 29 7a 53 74 72 69  tern, (u8*)zStri
4fc0: 6e 67 2c 20 26 67 6c 6f 62 49 6e 66 6f 2c 20 30  ng, &globInfo, 0
4fd0: 29 3d 3d 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43  )==0;.}../*.** C
4fe0: 6f 75 6e 74 20 74 68 65 20 6e 75 6d 62 65 72 20  ount the number 
4ff0: 6f 66 20 74 69 6d 65 73 20 74 68 61 74 20 74 68  of times that th
5000: 65 20 4c 49 4b 45 20 6f 70 65 72 61 74 6f 72 20  e LIKE operator 
5010: 28 6f 72 20 47 4c 4f 42 20 77 68 69 63 68 20 69  (or GLOB which i
5020: 73 0a 2a 2a 20 6a 75 73 74 20 61 20 76 61 72 69  s.** just a vari
5030: 61 74 69 6f 6e 20 6f 66 20 4c 49 4b 45 29 20 67  ation of LIKE) g
5040: 65 74 73 20 63 61 6c 6c 65 64 2e 20 20 54 68 69  ets called.  Thi
5050: 73 20 69 73 20 75 73 65 64 20 66 6f 72 20 74 65  s is used for te
5060: 73 74 69 6e 67 0a 2a 2a 20 6f 6e 6c 79 2e 0a 2a  sting.** only..*
5070: 2f 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f  /.#ifdef SQLITE_
5080: 54 45 53 54 0a 69 6e 74 20 73 71 6c 69 74 65 33  TEST.int sqlite3
5090: 5f 6c 69 6b 65 5f 63 6f 75 6e 74 20 3d 20 30 3b  _like_count = 0;
50a0: 0a 23 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20  .#endif.../*.** 
50b0: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f  Implementation o
50c0: 66 20 74 68 65 20 6c 69 6b 65 28 29 20 53 51 4c  f the like() SQL
50d0: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73   function.  This
50e0: 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 6d   function implem
50f0: 65 6e 74 73 0a 2a 2a 20 74 68 65 20 62 75 69 6c  ents.** the buil
5100: 64 2d 69 6e 20 4c 49 4b 45 20 6f 70 65 72 61 74  d-in LIKE operat
5110: 6f 72 2e 20 20 54 68 65 20 66 69 72 73 74 20 61  or.  The first a
5120: 72 67 75 6d 65 6e 74 20 74 6f 20 74 68 65 20 66  rgument to the f
5130: 75 6e 63 74 69 6f 6e 20 69 73 20 74 68 65 0a 2a  unction is the.*
5140: 2a 20 70 61 74 74 65 72 6e 20 61 6e 64 20 74 68  * pattern and th
5150: 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e  e second argumen
5160: 74 20 69 73 20 74 68 65 20 73 74 72 69 6e 67 2e  t is the string.
5170: 20 20 53 6f 2c 20 74 68 65 20 53 51 4c 20 73 74    So, the SQL st
5180: 61 74 65 6d 65 6e 74 73 3a 0a 2a 2a 0a 2a 2a 20  atements:.**.** 
5190: 20 20 20 20 20 20 41 20 4c 49 4b 45 20 42 0a 2a        A LIKE B.*
51a0: 2a 0a 2a 2a 20 69 73 20 69 6d 70 6c 65 6d 65 6e  *.** is implemen
51b0: 74 65 64 20 61 73 20 6c 69 6b 65 28 42 2c 41 29  ted as like(B,A)
51c0: 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 73 61 6d  ..**.** This sam
51d0: 65 20 66 75 6e 63 74 69 6f 6e 20 28 77 69 74 68  e function (with
51e0: 20 61 20 64 69 66 66 65 72 65 6e 74 20 63 6f 6d   a different com
51f0: 70 61 72 65 49 6e 66 6f 20 73 74 72 75 63 74 75  pareInfo structu
5200: 72 65 29 20 63 6f 6d 70 75 74 65 73 0a 2a 2a 20  re) computes.** 
5210: 74 68 65 20 47 4c 4f 42 20 6f 70 65 72 61 74 6f  the GLOB operato
5220: 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  r..*/.static voi
5230: 64 20 6c 69 6b 65 46 75 6e 63 28 0a 20 20 73 71  d likeFunc(.  sq
5240: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
5250: 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e 74 20 61  ontext, .  int a
5260: 72 67 63 2c 20 0a 20 20 73 71 6c 69 74 65 33 5f  rgc, .  sqlite3_
5270: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a  value **argv.){.
5280: 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64    const unsigned
5290: 20 63 68 61 72 20 2a 7a 41 2c 20 2a 7a 42 3b 0a   char *zA, *zB;.
52a0: 20 20 75 33 32 20 65 73 63 61 70 65 20 3d 20 30    u32 escape = 0
52b0: 3b 0a 20 20 69 6e 74 20 6e 50 61 74 3b 0a 20 20  ;.  int nPat;.  
52c0: 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71  sqlite3 *db = sq
52d0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62  lite3_context_db
52e0: 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29  _handle(context)
52f0: 3b 0a 0a 20 20 7a 42 20 3d 20 73 71 6c 69 74 65  ;..  zB = sqlite
5300: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67  3_value_text(arg
5310: 76 5b 30 5d 29 3b 0a 20 20 7a 41 20 3d 20 73 71  v[0]);.  zA = sq
5320: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
5330: 28 61 72 67 76 5b 31 5d 29 3b 0a 0a 20 20 2f 2a  (argv[1]);..  /*
5340: 20 4c 69 6d 69 74 20 74 68 65 20 6c 65 6e 67 74   Limit the lengt
5350: 68 20 6f 66 20 74 68 65 20 4c 49 4b 45 20 6f 72  h of the LIKE or
5360: 20 47 4c 4f 42 20 70 61 74 74 65 72 6e 20 74 6f   GLOB pattern to
5370: 20 61 76 6f 69 64 20 70 72 6f 62 6c 65 6d 73 0a   avoid problems.
5380: 20 20 2a 2a 20 6f 66 20 64 65 65 70 20 72 65 63    ** of deep rec
5390: 75 72 73 69 6f 6e 20 61 6e 64 20 4e 2a 4e 20 62  ursion and N*N b
53a0: 65 68 61 76 69 6f 72 20 69 6e 20 70 61 74 74 65  ehavior in patte
53b0: 72 6e 43 6f 6d 70 61 72 65 28 29 2e 0a 20 20 2a  rnCompare()..  *
53c0: 2f 0a 20 20 6e 50 61 74 20 3d 20 73 71 6c 69 74  /.  nPat = sqlit
53d0: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61  e3_value_bytes(a
53e0: 72 67 76 5b 30 5d 29 3b 0a 20 20 74 65 73 74 63  rgv[0]);.  testc
53f0: 61 73 65 28 20 6e 50 61 74 3d 3d 64 62 2d 3e 61  ase( nPat==db->a
5400: 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d  Limit[SQLITE_LIM
5410: 49 54 5f 4c 49 4b 45 5f 50 41 54 54 45 52 4e 5f  IT_LIKE_PATTERN_
5420: 4c 45 4e 47 54 48 5d 20 29 3b 0a 20 20 74 65 73  LENGTH] );.  tes
5430: 74 63 61 73 65 28 20 6e 50 61 74 3d 3d 64 62 2d  tcase( nPat==db-
5440: 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c  >aLimit[SQLITE_L
5450: 49 4d 49 54 5f 4c 49 4b 45 5f 50 41 54 54 45 52  IMIT_LIKE_PATTER
5460: 4e 5f 4c 45 4e 47 54 48 5d 2b 31 20 29 3b 0a 20  N_LENGTH]+1 );. 
5470: 20 69 66 28 20 6e 50 61 74 20 3e 20 64 62 2d 3e   if( nPat > db->
5480: 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49  aLimit[SQLITE_LI
5490: 4d 49 54 5f 4c 49 4b 45 5f 50 41 54 54 45 52 4e  MIT_LIKE_PATTERN
54a0: 5f 4c 45 4e 47 54 48 5d 20 29 7b 0a 20 20 20 20  _LENGTH] ){.    
54b0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65  sqlite3_result_e
54c0: 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 22 4c  rror(context, "L
54d0: 49 4b 45 20 6f 72 20 47 4c 4f 42 20 70 61 74 74  IKE or GLOB patt
54e0: 65 72 6e 20 74 6f 6f 20 63 6f 6d 70 6c 65 78 22  ern too complex"
54f0: 2c 20 2d 31 29 3b 0a 20 20 20 20 72 65 74 75 72  , -1);.    retur
5500: 6e 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28  n;.  }.  assert(
5510: 20 7a 42 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c   zB==sqlite3_val
5520: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29  ue_text(argv[0])
5530: 20 29 3b 20 20 2f 2a 20 45 6e 63 6f 64 69 6e 67   );  /* Encoding
5540: 20 64 69 64 20 6e 6f 74 20 63 68 61 6e 67 65 20   did not change 
5550: 2a 2f 0a 0a 20 20 69 66 28 20 61 72 67 63 3d 3d  */..  if( argc==
5560: 33 20 29 7b 0a 20 20 20 20 2f 2a 20 54 68 65 20  3 ){.    /* The 
5570: 65 73 63 61 70 65 20 63 68 61 72 61 63 74 65 72  escape character
5580: 20 73 74 72 69 6e 67 20 6d 75 73 74 20 63 6f 6e   string must con
5590: 73 69 73 74 20 6f 66 20 61 20 73 69 6e 67 6c 65  sist of a single
55a0: 20 55 54 46 2d 38 20 63 68 61 72 61 63 74 65 72   UTF-8 character
55b0: 2e 0a 20 20 20 20 2a 2a 20 4f 74 68 65 72 77 69  ..    ** Otherwi
55c0: 73 65 2c 20 72 65 74 75 72 6e 20 61 6e 20 65 72  se, return an er
55d0: 72 6f 72 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20  ror..    */.    
55e0: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63  const unsigned c
55f0: 68 61 72 20 2a 7a 45 73 63 20 3d 20 73 71 6c 69  har *zEsc = sqli
5600: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
5610: 72 67 76 5b 32 5d 29 3b 0a 20 20 20 20 69 66 28  rgv[2]);.    if(
5620: 20 7a 45 73 63 3d 3d 30 20 29 20 72 65 74 75 72   zEsc==0 ) retur
5630: 6e 3b 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74  n;.    if( sqlit
5640: 65 33 55 74 66 38 43 68 61 72 4c 65 6e 28 28 63  e3Utf8CharLen((c
5650: 68 61 72 2a 29 7a 45 73 63 2c 20 2d 31 29 21 3d  har*)zEsc, -1)!=
5660: 31 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  1 ){.      sqlit
5670: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28  e3_result_error(
5680: 63 6f 6e 74 65 78 74 2c 20 0a 20 20 20 20 20 20  context, .      
5690: 20 20 20 20 22 45 53 43 41 50 45 20 65 78 70 72      "ESCAPE expr
56a0: 65 73 73 69 6f 6e 20 6d 75 73 74 20 62 65 20 61  ession must be a
56b0: 20 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65   single characte
56c0: 72 22 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 72  r", -1);.      r
56d0: 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20  eturn;.    }.   
56e0: 20 65 73 63 61 70 65 20 3d 20 73 71 6c 69 74 65   escape = sqlite
56f0: 33 55 74 66 38 52 65 61 64 28 26 7a 45 73 63 29  3Utf8Read(&zEsc)
5700: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 7a 41 20 26  ;.  }.  if( zA &
5710: 26 20 7a 42 20 29 7b 0a 20 20 20 20 73 74 72 75  & zB ){.    stru
5720: 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 2a  ct compareInfo *
5730: 70 49 6e 66 6f 20 3d 20 73 71 6c 69 74 65 33 5f  pInfo = sqlite3_
5740: 75 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78  user_data(contex
5750: 74 29 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54  t);.#ifdef SQLIT
5760: 45 5f 54 45 53 54 0a 20 20 20 20 73 71 6c 69 74  E_TEST.    sqlit
5770: 65 33 5f 6c 69 6b 65 5f 63 6f 75 6e 74 2b 2b 3b  e3_like_count++;
5780: 0a 23 65 6e 64 69 66 0a 20 20 20 20 0a 20 20 20  .#endif.    .   
5790: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
57a0: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 70 61 74  int(context, pat
57b0: 74 65 72 6e 43 6f 6d 70 61 72 65 28 7a 42 2c 20  ternCompare(zB, 
57c0: 7a 41 2c 20 70 49 6e 66 6f 2c 20 65 73 63 61 70  zA, pInfo, escap
57d0: 65 29 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a  e));.  }.}../*.*
57e0: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e  * Implementation
57f0: 20 6f 66 20 74 68 65 20 4e 55 4c 4c 49 46 28 78   of the NULLIF(x
5800: 2c 79 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54  ,y) function.  T
5810: 68 65 20 72 65 73 75 6c 74 20 69 73 20 74 68 65  he result is the
5820: 20 66 69 72 73 74 0a 2a 2a 20 61 72 67 75 6d 65   first.** argume
5830: 6e 74 20 69 66 20 74 68 65 20 61 72 67 75 6d 65  nt if the argume
5840: 6e 74 73 20 61 72 65 20 64 69 66 66 65 72 65 6e  nts are differen
5850: 74 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69  t.  The result i
5860: 73 20 4e 55 4c 4c 20 69 66 20 74 68 65 0a 2a 2a  s NULL if the.**
5870: 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 65   arguments are e
5880: 71 75 61 6c 20 74 6f 20 65 61 63 68 20 6f 74 68  qual to each oth
5890: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  er..*/.static vo
58a0: 69 64 20 6e 75 6c 6c 69 66 46 75 6e 63 28 0a 20  id nullifFunc(. 
58b0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
58c0: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74   *context,.  int
58d0: 20 4e 6f 74 55 73 65 64 2c 0a 20 20 73 71 6c 69   NotUsed,.  sqli
58e0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
58f0: 0a 29 7b 0a 20 20 43 6f 6c 6c 53 65 71 20 2a 70  .){.  CollSeq *p
5900: 43 6f 6c 6c 20 3d 20 73 71 6c 69 74 65 33 47 65  Coll = sqlite3Ge
5910: 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 6f 6e  tFuncCollSeq(con
5920: 74 65 78 74 29 3b 0a 20 20 55 4e 55 53 45 44 5f  text);.  UNUSED_
5930: 50 41 52 41 4d 45 54 45 52 28 4e 6f 74 55 73 65  PARAMETER(NotUse
5940: 64 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65  d);.  if( sqlite
5950: 33 4d 65 6d 43 6f 6d 70 61 72 65 28 61 72 67 76  3MemCompare(argv
5960: 5b 30 5d 2c 20 61 72 67 76 5b 31 5d 2c 20 70 43  [0], argv[1], pC
5970: 6f 6c 6c 29 21 3d 30 20 29 7b 0a 20 20 20 20 73  oll)!=0 ){.    s
5980: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61  qlite3_result_va
5990: 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20 61 72 67  lue(context, arg
59a0: 76 5b 30 5d 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a  v[0]);.  }.}../*
59b0: 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69  .** Implementati
59c0: 6f 6e 20 6f 66 20 74 68 65 20 73 71 6c 69 74 65  on of the sqlite
59d0: 5f 76 65 72 73 69 6f 6e 28 29 20 66 75 6e 63 74  _version() funct
59e0: 69 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c 74  ion.  The result
59f0: 20 69 73 20 74 68 65 20 76 65 72 73 69 6f 6e 0a   is the version.
5a00: 2a 2a 20 6f 66 20 74 68 65 20 53 51 4c 69 74 65  ** of the SQLite
5a10: 20 6c 69 62 72 61 72 79 20 74 68 61 74 20 69 73   library that is
5a20: 20 72 75 6e 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 61   running..*/.sta
5a30: 74 69 63 20 76 6f 69 64 20 76 65 72 73 69 6f 6e  tic void version
5a40: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f  Func(.  sqlite3_
5a50: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
5a60: 2c 0a 20 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c  ,.  int NotUsed,
5a70: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  .  sqlite3_value
5a80: 20 2a 2a 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20   **NotUsed2.){. 
5a90: 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45   UNUSED_PARAMETE
5aa0: 52 32 28 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55  R2(NotUsed, NotU
5ab0: 73 65 64 32 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a  sed2);.  /* IMP:
5ac0: 20 52 2d 34 38 36 39 39 2d 34 38 36 31 37 20 54   R-48699-48617 T
5ad0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20  his function is 
5ae0: 61 6e 20 53 51 4c 20 77 72 61 70 70 65 72 20 61  an SQL wrapper a
5af0: 72 6f 75 6e 64 20 74 68 65 0a 20 20 2a 2a 20 73  round the.  ** s
5b00: 71 6c 69 74 65 33 5f 6c 69 62 76 65 72 73 69 6f  qlite3_libversio
5b10: 6e 28 29 20 43 2d 69 6e 74 65 72 66 61 63 65 2e  n() C-interface.
5b20: 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 72 65   */.  sqlite3_re
5b30: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78  sult_text(contex
5b40: 74 2c 20 73 71 6c 69 74 65 33 5f 6c 69 62 76 65  t, sqlite3_libve
5b50: 72 73 69 6f 6e 28 29 2c 20 2d 31 2c 20 53 51 4c  rsion(), -1, SQL
5b60: 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 7d 0a 0a  ITE_STATIC);.}..
5b70: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61  /*.** Implementa
5b80: 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 71 6c 69  tion of the sqli
5b90: 74 65 5f 73 6f 75 72 63 65 5f 69 64 28 29 20 66  te_source_id() f
5ba0: 75 6e 63 74 69 6f 6e 2e 20 54 68 65 20 72 65 73  unction. The res
5bb0: 75 6c 74 20 69 73 20 61 20 73 74 72 69 6e 67 0a  ult is a string.
5bc0: 2a 2a 20 74 68 61 74 20 69 64 65 6e 74 69 66 69  ** that identifi
5bd0: 65 73 20 74 68 65 20 70 61 72 74 69 63 75 6c 61  es the particula
5be0: 72 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65  r version of the
5bf0: 20 73 6f 75 72 63 65 20 63 6f 64 65 20 75 73 65   source code use
5c00: 64 20 74 6f 20 62 75 69 6c 64 0a 2a 2a 20 53 51  d to build.** SQ
5c10: 4c 69 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  Lite..*/.static 
5c20: 76 6f 69 64 20 73 6f 75 72 63 65 69 64 46 75 6e  void sourceidFun
5c30: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  c(.  sqlite3_con
5c40: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20  text *context,. 
5c50: 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20   int NotUsed,.  
5c60: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
5c70: 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 55 4e  NotUsed2.){.  UN
5c80: 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 32 28  USED_PARAMETER2(
5c90: 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 65 64  NotUsed, NotUsed
5ca0: 32 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a 20 52 2d  2);.  /* IMP: R-
5cb0: 32 34 34 37 30 2d 33 31 31 33 36 20 54 68 69 73  24470-31136 This
5cc0: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 6e 20   function is an 
5cd0: 53 51 4c 20 77 72 61 70 70 65 72 20 61 72 6f 75  SQL wrapper arou
5ce0: 6e 64 20 74 68 65 0a 20 20 2a 2a 20 73 71 6c 69  nd the.  ** sqli
5cf0: 74 65 33 5f 73 6f 75 72 63 65 69 64 28 29 20 43  te3_sourceid() C
5d00: 20 69 6e 74 65 72 66 61 63 65 2e 20 2a 2f 0a 20   interface. */. 
5d10: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
5d20: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 71  text(context, sq
5d30: 6c 69 74 65 33 5f 73 6f 75 72 63 65 69 64 28 29  lite3_sourceid()
5d40: 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 53 54 41  , -1, SQLITE_STA
5d50: 54 49 43 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49  TIC);.}../*.** I
5d60: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66  mplementation of
5d70: 20 74 68 65 20 73 71 6c 69 74 65 5f 6c 6f 67 28   the sqlite_log(
5d80: 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69  ) function.  Thi
5d90: 73 20 69 73 20 61 20 77 72 61 70 70 65 72 20 61  s is a wrapper a
5da0: 72 6f 75 6e 64 0a 2a 2a 20 73 71 6c 69 74 65 33  round.** sqlite3
5db0: 5f 6c 6f 67 28 29 2e 20 20 54 68 65 20 72 65 74  _log().  The ret
5dc0: 75 72 6e 20 76 61 6c 75 65 20 69 73 20 4e 55 4c  urn value is NUL
5dd0: 4c 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e  L.  The function
5de0: 20 65 78 69 73 74 73 20 70 75 72 65 6c 79 20 66   exists purely f
5df0: 6f 72 0a 2a 2a 20 69 74 73 20 73 69 64 65 2d 65  or.** its side-e
5e00: 66 66 65 63 74 73 2e 0a 2a 2f 0a 73 74 61 74 69  ffects..*/.stati
5e10: 63 20 76 6f 69 64 20 65 72 72 6c 6f 67 46 75 6e  c void errlogFun
5e20: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  c(.  sqlite3_con
5e30: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20  text *context,. 
5e40: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c   int argc,.  sql
5e50: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67  ite3_value **arg
5e60: 76 0a 29 7b 0a 20 20 55 4e 55 53 45 44 5f 50 41  v.){.  UNUSED_PA
5e70: 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20  RAMETER(argc);. 
5e80: 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45   UNUSED_PARAMETE
5e90: 52 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71  R(context);.  sq
5ea0: 6c 69 74 65 33 5f 6c 6f 67 28 73 71 6c 69 74 65  lite3_log(sqlite
5eb0: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76  3_value_int(argv
5ec0: 5b 30 5d 29 2c 20 22 25 73 22 2c 20 73 71 6c 69  [0]), "%s", sqli
5ed0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
5ee0: 72 67 76 5b 31 5d 29 29 3b 0a 7d 0a 0a 2f 2a 0a  rgv[1]));.}../*.
5ef0: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f  ** Implementatio
5f00: 6e 20 6f 66 20 74 68 65 20 73 71 6c 69 74 65 5f  n of the sqlite_
5f10: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73  compileoption_us
5f20: 65 64 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a  ed() function..*
5f30: 2a 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20  * The result is 
5f40: 61 6e 20 69 6e 74 65 67 65 72 20 74 68 61 74 20  an integer that 
5f50: 69 64 65 6e 74 69 66 69 65 73 20 69 66 20 74 68  identifies if th
5f60: 65 20 63 6f 6d 70 69 6c 65 72 20 6f 70 74 69 6f  e compiler optio
5f70: 6e 0a 2a 2a 20 77 61 73 20 75 73 65 64 20 74 6f  n.** was used to
5f80: 20 62 75 69 6c 64 20 53 51 4c 69 74 65 2e 0a 2a   build SQLite..*
5f90: 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45  /.#ifndef SQLITE
5fa0: 5f 4f 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54  _OMIT_COMPILEOPT
5fb0: 49 4f 4e 5f 44 49 41 47 53 0a 73 74 61 74 69 63  ION_DIAGS.static
5fc0: 20 76 6f 69 64 20 63 6f 6d 70 69 6c 65 6f 70 74   void compileopt
5fd0: 69 6f 6e 75 73 65 64 46 75 6e 63 28 0a 20 20 73  ionusedFunc(.  s
5fe0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
5ff0: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61  context,.  int a
6000: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  rgc,.  sqlite3_v
6010: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
6020: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4f 70   const char *zOp
6030: 74 4e 61 6d 65 3b 0a 20 20 61 73 73 65 72 74 28  tName;.  assert(
6040: 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 55 4e   argc==1 );.  UN
6050: 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61  USED_PARAMETER(a
6060: 72 67 63 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a 20  rgc);.  /* IMP: 
6070: 52 2d 33 39 35 36 34 2d 33 36 33 30 35 20 54 68  R-39564-36305 Th
6080: 65 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c 65  e sqlite_compile
6090: 6f 70 74 69 6f 6e 5f 75 73 65 64 28 29 20 53 51  option_used() SQ
60a0: 4c 0a 20 20 2a 2a 20 66 75 6e 63 74 69 6f 6e 20  L.  ** function 
60b0: 69 73 20 61 20 77 72 61 70 70 65 72 20 61 72 6f  is a wrapper aro
60c0: 75 6e 64 20 74 68 65 20 73 71 6c 69 74 65 33 5f  und the sqlite3_
60d0: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73  compileoption_us
60e0: 65 64 28 29 20 43 2f 43 2b 2b 0a 20 20 2a 2a 20  ed() C/C++.  ** 
60f0: 66 75 6e 63 74 69 6f 6e 2e 0a 20 20 2a 2f 0a 20  function..  */. 
6100: 20 69 66 28 20 28 7a 4f 70 74 4e 61 6d 65 20 3d   if( (zOptName =
6110: 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71   (const char*)sq
6120: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
6130: 28 61 72 67 76 5b 30 5d 29 29 21 3d 30 20 29 7b  (argv[0]))!=0 ){
6140: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73  .    sqlite3_res
6150: 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c  ult_int(context,
6160: 20 73 71 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65   sqlite3_compile
6170: 6f 70 74 69 6f 6e 5f 75 73 65 64 28 7a 4f 70 74  option_used(zOpt
6180: 4e 61 6d 65 29 29 3b 0a 20 20 7d 0a 7d 0a 23 65  Name));.  }.}.#e
6190: 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f  ndif /* SQLITE_O
61a0: 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54 49 4f  MIT_COMPILEOPTIO
61b0: 4e 5f 44 49 41 47 53 20 2a 2f 0a 0a 2f 2a 0a 2a  N_DIAGS */../*.*
61c0: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e  * Implementation
61d0: 20 6f 66 20 74 68 65 20 73 71 6c 69 74 65 5f 63   of the sqlite_c
61e0: 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 67 65 74  ompileoption_get
61f0: 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 0a 2a 2a  () function. .**
6200: 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61   The result is a
6210: 20 73 74 72 69 6e 67 20 74 68 61 74 20 69 64 65   string that ide
6220: 6e 74 69 66 69 65 73 20 74 68 65 20 63 6f 6d 70  ntifies the comp
6230: 69 6c 65 72 20 6f 70 74 69 6f 6e 73 20 0a 2a 2a  iler options .**
6240: 20 75 73 65 64 20 74 6f 20 62 75 69 6c 64 20 53   used to build S
6250: 51 4c 69 74 65 2e 0a 2a 2f 0a 23 69 66 6e 64 65  QLite..*/.#ifnde
6260: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f  f SQLITE_OMIT_CO
6270: 4d 50 49 4c 45 4f 50 54 49 4f 4e 5f 44 49 41 47  MPILEOPTION_DIAG
6280: 53 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f  S.static void co
6290: 6d 70 69 6c 65 6f 70 74 69 6f 6e 67 65 74 46 75  mpileoptiongetFu
62a0: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  nc(.  sqlite3_co
62b0: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a  ntext *context,.
62c0: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71    int argc,.  sq
62d0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72  lite3_value **ar
62e0: 67 76 0a 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a 20  gv.){.  int n;. 
62f0: 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31   assert( argc==1
6300: 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52   );.  UNUSED_PAR
6310: 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20  AMETER(argc);.  
6320: 2f 2a 20 49 4d 50 3a 20 52 2d 30 34 39 32 32 2d  /* IMP: R-04922-
6330: 32 34 30 37 36 20 54 68 65 20 73 71 6c 69 74 65  24076 The sqlite
6340: 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 67  _compileoption_g
6350: 65 74 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f  et() SQL functio
6360: 6e 0a 20 20 2a 2a 20 69 73 20 61 20 77 72 61 70  n.  ** is a wrap
6370: 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 73  per around the s
6380: 71 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65 6f 70  qlite3_compileop
6390: 74 69 6f 6e 5f 67 65 74 28 29 20 43 2f 43 2b 2b  tion_get() C/C++
63a0: 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 20 2a 2f 0a   function..  */.
63b0: 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61    n = sqlite3_va
63c0: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29  lue_int(argv[0])
63d0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75  ;.  sqlite3_resu
63e0: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c  lt_text(context,
63f0: 20 73 71 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65   sqlite3_compile
6400: 6f 70 74 69 6f 6e 5f 67 65 74 28 6e 29 2c 20 2d  option_get(n), -
6410: 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43  1, SQLITE_STATIC
6420: 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53  );.}.#endif /* S
6430: 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 49  QLITE_OMIT_COMPI
6440: 4c 45 4f 50 54 49 4f 4e 5f 44 49 41 47 53 20 2a  LEOPTION_DIAGS *
6450: 2f 0a 0a 2f 2a 20 41 72 72 61 79 20 66 6f 72 20  /../* Array for 
6460: 63 6f 6e 76 65 72 74 69 6e 67 20 66 72 6f 6d 20  converting from 
6470: 68 61 6c 66 2d 62 79 74 65 73 20 28 6e 79 62 62  half-bytes (nybb
6480: 6c 65 73 29 20 69 6e 74 6f 20 41 53 43 49 49 20  les) into ASCII 
6490: 68 65 78 0a 2a 2a 20 64 69 67 69 74 73 2e 20 2a  hex.** digits. *
64a0: 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63  /.static const c
64b0: 68 61 72 20 68 65 78 64 69 67 69 74 73 5b 5d 20  har hexdigits[] 
64c0: 3d 20 7b 0a 20 20 27 30 27 2c 20 27 31 27 2c 20  = {.  '0', '1', 
64d0: 27 32 27 2c 20 27 33 27 2c 20 27 34 27 2c 20 27  '2', '3', '4', '
64e0: 35 27 2c 20 27 36 27 2c 20 27 37 27 2c 0a 20 20  5', '6', '7',.  
64f0: 27 38 27 2c 20 27 39 27 2c 20 27 41 27 2c 20 27  '8', '9', 'A', '
6500: 42 27 2c 20 27 43 27 2c 20 27 44 27 2c 20 27 45  B', 'C', 'D', 'E
6510: 27 2c 20 27 46 27 20 0a 7d 3b 0a 0a 2f 2a 0a 2a  ', 'F' .};../*.*
6520: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e  * Implementation
6530: 20 6f 66 20 74 68 65 20 51 55 4f 54 45 28 29 20   of the QUOTE() 
6540: 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 20  function.  This 
6550: 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 61  function takes a
6560: 20 73 69 6e 67 6c 65 0a 2a 2a 20 61 72 67 75 6d   single.** argum
6570: 65 6e 74 2e 20 20 49 66 20 74 68 65 20 61 72 67  ent.  If the arg
6580: 75 6d 65 6e 74 20 69 73 20 6e 75 6d 65 72 69 63  ument is numeric
6590: 2c 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c  , the return val
65a0: 75 65 20 69 73 20 74 68 65 20 73 61 6d 65 20 61  ue is the same a
65b0: 73 0a 2a 2a 20 74 68 65 20 61 72 67 75 6d 65 6e  s.** the argumen
65c0: 74 2e 20 20 49 66 20 74 68 65 20 61 72 67 75 6d  t.  If the argum
65d0: 65 6e 74 20 69 73 20 4e 55 4c 4c 2c 20 74 68 65  ent is NULL, the
65e0: 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73   return value is
65f0: 20 74 68 65 20 73 74 72 69 6e 67 0a 2a 2a 20 22   the string.** "
6600: 4e 55 4c 4c 22 2e 20 20 4f 74 68 65 72 77 69 73  NULL".  Otherwis
6610: 65 2c 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20  e, the argument 
6620: 69 73 20 65 6e 63 6c 6f 73 65 64 20 69 6e 20 73  is enclosed in s
6630: 69 6e 67 6c 65 20 71 75 6f 74 65 73 20 77 69 74  ingle quotes wit
6640: 68 0a 2a 2a 20 73 69 6e 67 6c 65 2d 71 75 6f 74  h.** single-quot
6650: 65 20 65 73 63 61 70 65 73 2e 0a 2a 2f 0a 73 74  e escapes..*/.st
6660: 61 74 69 63 20 76 6f 69 64 20 71 75 6f 74 65 46  atic void quoteF
6670: 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74  unc(sqlite3_cont
6680: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e  ext *context, in
6690: 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f  t argc, sqlite3_
66a0: 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20  value **argv){. 
66b0: 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31   assert( argc==1
66c0: 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52   );.  UNUSED_PAR
66d0: 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20  AMETER(argc);.  
66e0: 73 77 69 74 63 68 28 20 73 71 6c 69 74 65 33 5f  switch( sqlite3_
66f0: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b  value_type(argv[
6700: 30 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 65 20  0]) ){.    case 
6710: 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a 20 7b 0a  SQLITE_FLOAT: {.
6720: 20 20 20 20 20 20 64 6f 75 62 6c 65 20 72 31 2c        double r1,
6730: 20 72 32 3b 0a 20 20 20 20 20 20 63 68 61 72 20   r2;.      char 
6740: 7a 42 75 66 5b 35 30 5d 3b 0a 20 20 20 20 20 20  zBuf[50];.      
6750: 72 31 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c  r1 = sqlite3_val
6760: 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b 30  ue_double(argv[0
6770: 5d 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65  ]);.      sqlite
6780: 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f  3_snprintf(sizeo
6790: 66 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22  f(zBuf), zBuf, "
67a0: 25 21 2e 31 35 67 22 2c 20 72 31 29 3b 0a 20 20  %!.15g", r1);.  
67b0: 20 20 20 20 73 71 6c 69 74 65 33 41 74 6f 46 28      sqlite3AtoF(
67c0: 7a 42 75 66 2c 20 26 72 32 2c 20 32 30 2c 20 53  zBuf, &r2, 20, S
67d0: 51 4c 49 54 45 5f 55 54 46 38 29 3b 0a 20 20 20  QLITE_UTF8);.   
67e0: 20 20 20 69 66 28 20 72 31 21 3d 72 32 20 29 7b     if( r1!=r2 ){
67f0: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33  .        sqlite3
6800: 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66  _snprintf(sizeof
6810: 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 25  (zBuf), zBuf, "%
6820: 21 2e 32 30 65 22 2c 20 72 31 29 3b 0a 20 20 20  !.20e", r1);.   
6830: 20 20 20 7d 0a 20 20 20 20 20 20 73 71 6c 69 74     }.      sqlit
6840: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63  e3_result_text(c
6850: 6f 6e 74 65 78 74 2c 20 7a 42 75 66 2c 20 2d 31  ontext, zBuf, -1
6860: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45  , SQLITE_TRANSIE
6870: 4e 54 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b  NT);.      break
6880: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65  ;.    }.    case
6890: 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a   SQLITE_INTEGER:
68a0: 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33   {.      sqlite3
68b0: 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f  _result_value(co
68c0: 6e 74 65 78 74 2c 20 61 72 67 76 5b 30 5d 29 3b  ntext, argv[0]);
68d0: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
68e0: 20 20 7d 0a 20 20 20 20 63 61 73 65 20 53 51 4c    }.    case SQL
68f0: 49 54 45 5f 42 4c 4f 42 3a 20 7b 0a 20 20 20 20  ITE_BLOB: {.    
6900: 20 20 63 68 61 72 20 2a 7a 54 65 78 74 20 3d 20    char *zText = 
6910: 30 3b 0a 20 20 20 20 20 20 63 68 61 72 20 63 6f  0;.      char co
6920: 6e 73 74 20 2a 7a 42 6c 6f 62 20 3d 20 73 71 6c  nst *zBlob = sql
6930: 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28  ite3_value_blob(
6940: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20  argv[0]);.      
6950: 69 6e 74 20 6e 42 6c 6f 62 20 3d 20 73 71 6c 69  int nBlob = sqli
6960: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28  te3_value_bytes(
6970: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20  argv[0]);.      
6980: 61 73 73 65 72 74 28 20 7a 42 6c 6f 62 3d 3d 73  assert( zBlob==s
6990: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f  qlite3_value_blo
69a0: 62 28 61 72 67 76 5b 30 5d 29 20 29 3b 20 2f 2a  b(argv[0]) ); /*
69b0: 20 4e 6f 20 65 6e 63 6f 64 69 6e 67 20 63 68 61   No encoding cha
69c0: 6e 67 65 20 2a 2f 0a 20 20 20 20 20 20 7a 54 65  nge */.      zTe
69d0: 78 74 20 3d 20 28 63 68 61 72 20 2a 29 63 6f 6e  xt = (char *)con
69e0: 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65  textMalloc(conte
69f0: 78 74 2c 20 28 32 2a 28 69 36 34 29 6e 42 6c 6f  xt, (2*(i64)nBlo
6a00: 62 29 2b 34 29 3b 20 0a 20 20 20 20 20 20 69 66  b)+4); .      if
6a10: 28 20 7a 54 65 78 74 20 29 7b 0a 20 20 20 20 20  ( zText ){.     
6a20: 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20     int i;.      
6a30: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 42 6c    for(i=0; i<nBl
6a40: 6f 62 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20  ob; i++){.      
6a50: 20 20 20 20 7a 54 65 78 74 5b 28 69 2a 32 29 2b      zText[(i*2)+
6a60: 32 5d 20 3d 20 68 65 78 64 69 67 69 74 73 5b 28  2] = hexdigits[(
6a70: 7a 42 6c 6f 62 5b 69 5d 3e 3e 34 29 26 30 78 30  zBlob[i]>>4)&0x0
6a80: 46 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 54  F];.          zT
6a90: 65 78 74 5b 28 69 2a 32 29 2b 33 5d 20 3d 20 68  ext[(i*2)+3] = h
6aa0: 65 78 64 69 67 69 74 73 5b 28 7a 42 6c 6f 62 5b  exdigits[(zBlob[
6ab0: 69 5d 29 26 30 78 30 46 5d 3b 0a 20 20 20 20 20  i])&0x0F];.     
6ac0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7a 54 65     }.        zTe
6ad0: 78 74 5b 28 6e 42 6c 6f 62 2a 32 29 2b 32 5d 20  xt[(nBlob*2)+2] 
6ae0: 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20  = '\'';.        
6af0: 7a 54 65 78 74 5b 28 6e 42 6c 6f 62 2a 32 29 2b  zText[(nBlob*2)+
6b00: 33 5d 20 3d 20 27 5c 30 27 3b 0a 20 20 20 20 20  3] = '\0';.     
6b10: 20 20 20 7a 54 65 78 74 5b 30 5d 20 3d 20 27 58     zText[0] = 'X
6b20: 27 3b 0a 20 20 20 20 20 20 20 20 7a 54 65 78 74  ';.        zText
6b30: 5b 31 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20  [1] = '\'';.    
6b40: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
6b50: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c  lt_text(context,
6b60: 20 7a 54 65 78 74 2c 20 2d 31 2c 20 53 51 4c 49   zText, -1, SQLI
6b70: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20  TE_TRANSIENT);. 
6b80: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66         sqlite3_f
6b90: 72 65 65 28 7a 54 65 78 74 29 3b 0a 20 20 20 20  ree(zText);.    
6ba0: 20 20 7d 0a 20 20 20 20 20 20 62 72 65 61 6b 3b    }.      break;
6bb0: 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20  .    }.    case 
6bc0: 53 51 4c 49 54 45 5f 54 45 58 54 3a 20 7b 0a 20  SQLITE_TEXT: {. 
6bd0: 20 20 20 20 20 69 6e 74 20 69 2c 6a 3b 0a 20 20       int i,j;.  
6be0: 20 20 20 20 75 36 34 20 6e 3b 0a 20 20 20 20 20      u64 n;.     
6bf0: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20   const unsigned 
6c00: 63 68 61 72 20 2a 7a 41 72 67 20 3d 20 73 71 6c  char *zArg = sql
6c10: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28  ite3_value_text(
6c20: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20  argv[0]);.      
6c30: 63 68 61 72 20 2a 7a 3b 0a 0a 20 20 20 20 20 20  char *z;..      
6c40: 69 66 28 20 7a 41 72 67 3d 3d 30 20 29 20 72 65  if( zArg==0 ) re
6c50: 74 75 72 6e 3b 0a 20 20 20 20 20 20 66 6f 72 28  turn;.      for(
6c60: 69 3d 30 2c 20 6e 3d 30 3b 20 7a 41 72 67 5b 69  i=0, n=0; zArg[i
6c70: 5d 3b 20 69 2b 2b 29 7b 20 69 66 28 20 7a 41 72  ]; i++){ if( zAr
6c80: 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 20 6e 2b 2b  g[i]=='\'' ) n++
6c90: 3b 20 7d 0a 20 20 20 20 20 20 7a 20 3d 20 63 6f  ; }.      z = co
6ca0: 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74  ntextMalloc(cont
6cb0: 65 78 74 2c 20 28 28 69 36 34 29 69 29 2b 28 28  ext, ((i64)i)+((
6cc0: 69 36 34 29 6e 29 2b 33 29 3b 0a 20 20 20 20 20  i64)n)+3);.     
6cd0: 20 69 66 28 20 7a 20 29 7b 0a 20 20 20 20 20 20   if( z ){.      
6ce0: 20 20 7a 5b 30 5d 20 3d 20 27 5c 27 27 3b 0a 20    z[0] = '\'';. 
6cf0: 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30 2c 20         for(i=0, 
6d00: 6a 3d 31 3b 20 7a 41 72 67 5b 69 5d 3b 20 69 2b  j=1; zArg[i]; i+
6d10: 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 5b  +){.          z[
6d20: 6a 2b 2b 5d 20 3d 20 7a 41 72 67 5b 69 5d 3b 0a  j++] = zArg[i];.
6d30: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 7a 41            if( zA
6d40: 72 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 7b 0a 20  rg[i]=='\'' ){. 
6d50: 20 20 20 20 20 20 20 20 20 20 20 7a 5b 6a 2b 2b             z[j++
6d60: 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20  ] = '\'';.      
6d70: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a      }.        }.
6d80: 20 20 20 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d          z[j++] =
6d90: 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 7a   '\'';.        z
6da0: 5b 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  [j] = 0;.       
6db0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
6dc0: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 2c  text(context, z,
6dd0: 20 6a 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65   j, sqlite3_free
6de0: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  );.      }.     
6df0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20   break;.    }.  
6e00: 20 20 64 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20    default: {.   
6e10: 20 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74     assert( sqlit
6e20: 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72  e3_value_type(ar
6e30: 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e  gv[0])==SQLITE_N
6e40: 55 4c 4c 20 29 3b 0a 20 20 20 20 20 20 73 71 6c  ULL );.      sql
6e50: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74  ite3_result_text
6e60: 28 63 6f 6e 74 65 78 74 2c 20 22 4e 55 4c 4c 22  (context, "NULL"
6e70: 2c 20 34 2c 20 53 51 4c 49 54 45 5f 53 54 41 54  , 4, SQLITE_STAT
6e80: 49 43 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b  IC);.      break
6e90: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f  ;.    }.  }.}../
6ea0: 2a 0a 2a 2a 20 54 68 65 20 75 6e 69 63 6f 64 65  *.** The unicode
6eb0: 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 52 65  () function.  Re
6ec0: 74 75 72 6e 20 74 68 65 20 69 6e 74 65 67 65 72  turn the integer
6ed0: 20 75 6e 69 63 6f 64 65 20 63 6f 64 65 2d 70 6f   unicode code-po
6ee0: 69 6e 74 20 76 61 6c 75 65 0a 2a 2a 20 66 6f 72  int value.** for
6ef0: 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61   the first chara
6f00: 63 74 65 72 20 6f 66 20 74 68 65 20 69 6e 70 75  cter of the inpu
6f10: 74 20 73 74 72 69 6e 67 2e 20 0a 2a 2f 0a 73 74  t string. .*/.st
6f20: 61 74 69 63 20 76 6f 69 64 20 75 6e 69 63 6f 64  atic void unicod
6f30: 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33  eFunc(.  sqlite3
6f40: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
6f50: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20  t,.  int argc,. 
6f60: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
6f70: 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74  *argv.){.  const
6f80: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a   unsigned char *
6f90: 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  z = sqlite3_valu
6fa0: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b  e_text(argv[0]);
6fb0: 0a 20 20 28 76 6f 69 64 29 61 72 67 63 3b 0a 20  .  (void)argc;. 
6fc0: 20 69 66 28 20 7a 20 26 26 20 7a 5b 30 5d 20 29   if( z && z[0] )
6fd0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
6fe0: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c  int(context, sql
6ff0: 69 74 65 33 55 74 66 38 52 65 61 64 28 26 7a 29  ite3Utf8Read(&z)
7000: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20  );.}../*.** The 
7010: 63 68 61 72 28 29 20 66 75 6e 63 74 69 6f 6e 20  char() function 
7020: 74 61 6b 65 73 20 7a 65 72 6f 20 6f 72 20 6d 6f  takes zero or mo
7030: 72 65 20 61 72 67 75 6d 65 6e 74 73 2c 20 65 61  re arguments, ea
7040: 63 68 20 6f 66 20 77 68 69 63 68 20 69 73 0a 2a  ch of which is.*
7050: 2a 20 61 6e 20 69 6e 74 65 67 65 72 2e 20 20 49  * an integer.  I
7060: 74 20 63 6f 6e 73 74 72 75 63 74 73 20 61 20 73  t constructs a s
7070: 74 72 69 6e 67 20 77 68 65 72 65 20 65 61 63 68  tring where each
7080: 20 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 68   character of th
7090: 65 20 73 74 72 69 6e 67 0a 2a 2a 20 69 73 20 74  e string.** is t
70a0: 68 65 20 75 6e 69 63 6f 64 65 20 63 68 61 72 61  he unicode chara
70b0: 63 74 65 72 20 66 6f 72 20 74 68 65 20 63 6f 72  cter for the cor
70c0: 72 65 73 70 6f 6e 64 69 6e 67 20 69 6e 74 65 67  responding integ
70d0: 65 72 20 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a  er argument..*/.
70e0: 73 74 61 74 69 63 20 76 6f 69 64 20 63 68 61 72  static void char
70f0: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f  Func(.  sqlite3_
7100: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
7110: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20  ,.  int argc,.  
7120: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
7130: 61 72 67 76 0a 29 7b 0a 20 20 75 6e 73 69 67 6e  argv.){.  unsign
7140: 65 64 20 63 68 61 72 20 2a 7a 2c 20 2a 7a 4f 75  ed char *z, *zOu
7150: 74 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 7a 4f  t;.  int i;.  zO
7160: 75 74 20 3d 20 7a 20 3d 20 73 71 6c 69 74 65 33  ut = z = sqlite3
7170: 5f 6d 61 6c 6c 6f 63 28 20 61 72 67 63 2a 34 2b  _malloc( argc*4+
7180: 31 20 29 3b 0a 20 20 69 66 28 20 7a 3d 3d 30 20  1 );.  if( z==0 
7190: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72  ){.    sqlite3_r
71a0: 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65  esult_error_nome
71b0: 6d 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20  m(context);.    
71c0: 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 66 6f  return;.  }.  fo
71d0: 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69  r(i=0; i<argc; i
71e0: 2b 2b 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  ++){.    sqlite3
71f0: 5f 69 6e 74 36 34 20 78 3b 0a 20 20 20 20 75 6e  _int64 x;.    un
7200: 73 69 67 6e 65 64 20 63 3b 0a 20 20 20 20 78 20  signed c;.    x 
7210: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  = sqlite3_value_
7220: 69 6e 74 36 34 28 61 72 67 76 5b 69 5d 29 3b 0a  int64(argv[i]);.
7230: 20 20 20 20 69 66 28 20 78 3c 30 20 7c 7c 20 78      if( x<0 || x
7240: 3e 30 78 31 30 66 66 66 66 20 29 20 78 20 3d 20  >0x10ffff ) x = 
7250: 30 78 66 66 66 64 3b 0a 20 20 20 20 63 20 3d 20  0xfffd;.    c = 
7260: 28 75 6e 73 69 67 6e 65 64 29 28 78 20 26 20 30  (unsigned)(x & 0
7270: 78 31 66 66 66 66 66 29 3b 0a 20 20 20 20 69 66  x1fffff);.    if
7280: 28 20 63 3c 30 78 30 30 30 38 30 20 29 7b 0a 20  ( c<0x00080 ){. 
7290: 20 20 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 28       *zOut++ = (
72a0: 75 38 29 28 63 26 30 78 46 46 29 3b 0a 20 20 20  u8)(c&0xFF);.   
72b0: 20 7d 65 6c 73 65 20 69 66 28 20 63 3c 30 78 30   }else if( c<0x0
72c0: 30 38 30 30 20 29 7b 0a 20 20 20 20 20 20 2a 7a  0800 ){.      *z
72d0: 4f 75 74 2b 2b 20 3d 20 30 78 43 30 20 2b 20 28  Out++ = 0xC0 + (
72e0: 75 38 29 28 28 63 3e 3e 36 29 26 30 78 31 46 29  u8)((c>>6)&0x1F)
72f0: 3b 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b 2b 20  ;.      *zOut++ 
7300: 3d 20 30 78 38 30 20 2b 20 28 75 38 29 28 63 20  = 0x80 + (u8)(c 
7310: 26 20 30 78 33 46 29 3b 0a 20 20 20 20 7d 65 6c  & 0x3F);.    }el
7320: 73 65 20 69 66 28 20 63 3c 30 78 31 30 30 30 30  se if( c<0x10000
7330: 20 29 7b 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b   ){.      *zOut+
7340: 2b 20 3d 20 30 78 45 30 20 2b 20 28 75 38 29 28  + = 0xE0 + (u8)(
7350: 28 63 3e 3e 31 32 29 26 30 78 30 46 29 3b 0a 20  (c>>12)&0x0F);. 
7360: 20 20 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30       *zOut++ = 0
7370: 78 38 30 20 2b 20 28 75 38 29 28 28 63 3e 3e 36  x80 + (u8)((c>>6
7380: 29 20 26 20 30 78 33 46 29 3b 0a 20 20 20 20 20  ) & 0x3F);.     
7390: 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 38 30 20   *zOut++ = 0x80 
73a0: 2b 20 28 75 38 29 28 63 20 26 20 30 78 33 46 29  + (u8)(c & 0x3F)
73b0: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
73c0: 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 46     *zOut++ = 0xF
73d0: 30 20 2b 20 28 75 38 29 28 28 63 3e 3e 31 38 29  0 + (u8)((c>>18)
73e0: 20 26 20 30 78 30 37 29 3b 0a 20 20 20 20 20 20   & 0x07);.      
73f0: 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 38 30 20 2b  *zOut++ = 0x80 +
7400: 20 28 75 38 29 28 28 63 3e 3e 31 32 29 20 26 20   (u8)((c>>12) & 
7410: 30 78 33 46 29 3b 0a 20 20 20 20 20 20 2a 7a 4f  0x3F);.      *zO
7420: 75 74 2b 2b 20 3d 20 30 78 38 30 20 2b 20 28 75  ut++ = 0x80 + (u
7430: 38 29 28 28 63 3e 3e 36 29 20 26 20 30 78 33 46  8)((c>>6) & 0x3F
7440: 29 3b 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b 2b  );.      *zOut++
7450: 20 3d 20 30 78 38 30 20 2b 20 28 75 38 29 28 63   = 0x80 + (u8)(c
7460: 20 26 20 30 78 33 46 29 3b 0a 20 20 20 20 7d 20   & 0x3F);.    } 
7470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
74a0: 20 20 20 5c 0a 20 20 7d 0a 20 20 73 71 6c 69 74     \.  }.  sqlit
74b0: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63  e3_result_text(c
74c0: 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 7a  ontext, (char*)z
74d0: 2c 20 28 69 6e 74 29 28 7a 4f 75 74 2d 7a 29 2c  , (int)(zOut-z),
74e0: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a   sqlite3_free);.
74f0: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 68 65 78  }../*.** The hex
7500: 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 6e  () function.  In
7510: 74 65 72 70 72 65 74 20 74 68 65 20 61 72 67 75  terpret the argu
7520: 6d 65 6e 74 20 61 73 20 61 20 62 6c 6f 62 2e 20  ment as a blob. 
7530: 20 52 65 74 75 72 6e 0a 2a 2a 20 61 20 68 65 78   Return.** a hex
7540: 61 64 65 63 69 6d 61 6c 20 72 65 6e 64 65 72 69  adecimal renderi
7550: 6e 67 20 61 73 20 74 65 78 74 2e 0a 2a 2f 0a 73  ng as text..*/.s
7560: 74 61 74 69 63 20 76 6f 69 64 20 68 65 78 46 75  tatic void hexFu
7570: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  nc(.  sqlite3_co
7580: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a  ntext *context,.
7590: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71    int argc,.  sq
75a0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72  lite3_value **ar
75b0: 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 2c 20 6e  gv.){.  int i, n
75c0: 3b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e  ;.  const unsign
75d0: 65 64 20 63 68 61 72 20 2a 70 42 6c 6f 62 3b 0a  ed char *pBlob;.
75e0: 20 20 63 68 61 72 20 2a 7a 48 65 78 2c 20 2a 7a    char *zHex, *z
75f0: 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63  ;.  assert( argc
7600: 3d 3d 31 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f  ==1 );.  UNUSED_
7610: 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b  PARAMETER(argc);
7620: 0a 20 20 70 42 6c 6f 62 20 3d 20 73 71 6c 69 74  .  pBlob = sqlit
7630: 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61 72  e3_value_blob(ar
7640: 67 76 5b 30 5d 29 3b 0a 20 20 6e 20 3d 20 73 71  gv[0]);.  n = sq
7650: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65  lite3_value_byte
7660: 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 61 73  s(argv[0]);.  as
7670: 73 65 72 74 28 20 70 42 6c 6f 62 3d 3d 73 71 6c  sert( pBlob==sql
7680: 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28  ite3_value_blob(
7690: 61 72 67 76 5b 30 5d 29 20 29 3b 20 20 2f 2a 20  argv[0]) );  /* 
76a0: 4e 6f 20 65 6e 63 6f 64 69 6e 67 20 63 68 61 6e  No encoding chan
76b0: 67 65 20 2a 2f 0a 20 20 7a 20 3d 20 7a 48 65 78  ge */.  z = zHex
76c0: 20 3d 20 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63   = contextMalloc
76d0: 28 63 6f 6e 74 65 78 74 2c 20 28 28 69 36 34 29  (context, ((i64)
76e0: 6e 29 2a 32 20 2b 20 31 29 3b 0a 20 20 69 66 28  n)*2 + 1);.  if(
76f0: 20 7a 48 65 78 20 29 7b 0a 20 20 20 20 66 6f 72   zHex ){.    for
7700: 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 2c 20  (i=0; i<n; i++, 
7710: 70 42 6c 6f 62 2b 2b 29 7b 0a 20 20 20 20 20 20  pBlob++){.      
7720: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 63 20  unsigned char c 
7730: 3d 20 2a 70 42 6c 6f 62 3b 0a 20 20 20 20 20 20  = *pBlob;.      
7740: 2a 28 7a 2b 2b 29 20 3d 20 68 65 78 64 69 67 69  *(z++) = hexdigi
7750: 74 73 5b 28 63 3e 3e 34 29 26 30 78 66 5d 3b 0a  ts[(c>>4)&0xf];.
7760: 20 20 20 20 20 20 2a 28 7a 2b 2b 29 20 3d 20 68        *(z++) = h
7770: 65 78 64 69 67 69 74 73 5b 63 26 30 78 66 5d 3b  exdigits[c&0xf];
7780: 0a 20 20 20 20 7d 0a 20 20 20 20 2a 7a 20 3d 20  .    }.    *z = 
7790: 30 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72  0;.    sqlite3_r
77a0: 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65  esult_text(conte
77b0: 78 74 2c 20 7a 48 65 78 2c 20 6e 2a 32 2c 20 73  xt, zHex, n*2, s
77c0: 71 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 20  qlite3_free);.  
77d0: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 7a  }.}../*.** The z
77e0: 65 72 6f 62 6c 6f 62 28 4e 29 20 66 75 6e 63 74  eroblob(N) funct
77f0: 69 6f 6e 20 72 65 74 75 72 6e 73 20 61 20 7a 65  ion returns a ze
7800: 72 6f 2d 66 69 6c 6c 65 64 20 62 6c 6f 62 20 6f  ro-filled blob o
7810: 66 20 73 69 7a 65 20 4e 20 62 79 74 65 73 2e 0a  f size N bytes..
7820: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 7a  */.static void z
7830: 65 72 6f 62 6c 6f 62 46 75 6e 63 28 0a 20 20 73  eroblobFunc(.  s
7840: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
7850: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61  context,.  int a
7860: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  rgc,.  sqlite3_v
7870: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
7880: 20 69 36 34 20 6e 3b 0a 20 20 73 71 6c 69 74 65   i64 n;.  sqlite
7890: 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f  3 *db = sqlite3_
78a0: 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c  context_db_handl
78b0: 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 61 73  e(context);.  as
78c0: 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b  sert( argc==1 );
78d0: 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45  .  UNUSED_PARAME
78e0: 54 45 52 28 61 72 67 63 29 3b 0a 20 20 6e 20 3d  TER(argc);.  n =
78f0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69   sqlite3_value_i
7900: 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 3b 0a 20  nt64(argv[0]);. 
7910: 20 74 65 73 74 63 61 73 65 28 20 6e 3d 3d 64 62   testcase( n==db
7920: 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f  ->aLimit[SQLITE_
7930: 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29 3b  LIMIT_LENGTH] );
7940: 0a 20 20 74 65 73 74 63 61 73 65 28 20 6e 3d 3d  .  testcase( n==
7950: 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54  db->aLimit[SQLIT
7960: 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 2b  E_LIMIT_LENGTH]+
7970: 31 20 29 3b 0a 20 20 69 66 28 20 6e 3e 64 62 2d  1 );.  if( n>db-
7980: 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c  >aLimit[SQLITE_L
7990: 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29 7b 0a  IMIT_LENGTH] ){.
79a0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
79b0: 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67 28  lt_error_toobig(
79c0: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 7d 65 6c 73  context);.  }els
79d0: 65 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72  e{.    sqlite3_r
79e0: 65 73 75 6c 74 5f 7a 65 72 6f 62 6c 6f 62 28 63  esult_zeroblob(c
79f0: 6f 6e 74 65 78 74 2c 20 28 69 6e 74 29 6e 29 3b  ontext, (int)n);
7a00: 20 2f 2a 20 49 4d 50 3a 20 52 2d 30 30 32 39 33   /* IMP: R-00293
7a10: 2d 36 34 39 39 34 20 2a 2f 0a 20 20 7d 0a 7d 0a  -64994 */.  }.}.
7a20: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 72 65 70 6c 61  ./*.** The repla
7a30: 63 65 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20  ce() function.  
7a40: 54 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 20  Three arguments 
7a50: 61 72 65 20 61 6c 6c 20 73 74 72 69 6e 67 73 3a  are all strings:
7a60: 20 63 61 6c 6c 0a 2a 2a 20 74 68 65 6d 20 41 2c   call.** them A,
7a70: 20 42 2c 20 61 6e 64 20 43 2e 20 54 68 65 20 72   B, and C. The r
7a80: 65 73 75 6c 74 20 69 73 20 61 6c 73 6f 20 61 20  esult is also a 
7a90: 73 74 72 69 6e 67 20 77 68 69 63 68 20 69 73 20  string which is 
7aa0: 64 65 72 69 76 65 64 0a 2a 2a 20 66 72 6f 6d 20  derived.** from 
7ab0: 41 20 62 79 20 72 65 70 6c 61 63 69 6e 67 20 65  A by replacing e
7ac0: 76 65 72 79 20 6f 63 63 75 72 72 65 6e 63 65 20  very occurrence 
7ad0: 6f 66 20 42 20 77 69 74 68 20 43 2e 20 20 54 68  of B with C.  Th
7ae0: 65 20 6d 61 74 63 68 0a 2a 2a 20 6d 75 73 74 20  e match.** must 
7af0: 62 65 20 65 78 61 63 74 2e 20 20 43 6f 6c 6c 61  be exact.  Colla
7b00: 74 69 6e 67 20 73 65 71 75 65 6e 63 65 73 20 61  ting sequences a
7b10: 72 65 20 6e 6f 74 20 75 73 65 64 2e 0a 2a 2f 0a  re not used..*/.
7b20: 73 74 61 74 69 63 20 76 6f 69 64 20 72 65 70 6c  static void repl
7b30: 61 63 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74  aceFunc(.  sqlit
7b40: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74  e3_context *cont
7b50: 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c  ext,.  int argc,
7b60: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  .  sqlite3_value
7b70: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e   **argv.){.  con
7b80: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  st unsigned char
7b90: 20 2a 7a 53 74 72 3b 20 20 20 20 20 20 20 20 2f   *zStr;        /
7ba0: 2a 20 54 68 65 20 69 6e 70 75 74 20 73 74 72 69  * The input stri
7bb0: 6e 67 20 41 20 2a 2f 0a 20 20 63 6f 6e 73 74 20  ng A */.  const 
7bc0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a  unsigned char *z
7bd0: 50 61 74 74 65 72 6e 3b 20 20 20 20 2f 2a 20 54  Pattern;    /* T
7be0: 68 65 20 70 61 74 74 65 72 6e 20 73 74 72 69 6e  he pattern strin
7bf0: 67 20 42 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 75  g B */.  const u
7c00: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 52  nsigned char *zR
7c10: 65 70 3b 20 20 20 20 20 20 20 20 2f 2a 20 54 68  ep;        /* Th
7c20: 65 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 73 74  e replacement st
7c30: 72 69 6e 67 20 43 20 2a 2f 0a 20 20 75 6e 73 69  ring C */.  unsi
7c40: 67 6e 65 64 20 63 68 61 72 20 2a 7a 4f 75 74 3b  gned char *zOut;
7c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
7c60: 20 54 68 65 20 6f 75 74 70 75 74 20 2a 2f 0a 20   The output */. 
7c70: 20 69 6e 74 20 6e 53 74 72 3b 20 20 20 20 20 20   int nStr;      
7c80: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a            /* Siz
7c90: 65 20 6f 66 20 7a 53 74 72 20 2a 2f 0a 20 20 69  e of zStr */.  i
7ca0: 6e 74 20 6e 50 61 74 74 65 72 6e 3b 20 20 20 20  nt nPattern;    
7cb0: 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a 65 20          /* Size 
7cc0: 6f 66 20 7a 50 61 74 74 65 72 6e 20 2a 2f 0a 20  of zPattern */. 
7cd0: 20 69 6e 74 20 6e 52 65 70 3b 20 20 20 20 20 20   int nRep;      
7ce0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a            /* Siz
7cf0: 65 20 6f 66 20 7a 52 65 70 20 2a 2f 0a 20 20 69  e of zRep */.  i
7d00: 36 34 20 6e 4f 75 74 3b 20 20 20 20 20 20 20 20  64 nOut;        
7d10: 20 20 20 20 20 20 20 20 2f 2a 20 4d 61 78 69 6d          /* Maxim
7d20: 75 6d 20 73 69 7a 65 20 6f 66 20 7a 4f 75 74 20  um size of zOut 
7d30: 2a 2f 0a 20 20 69 6e 74 20 6c 6f 6f 70 4c 69 6d  */.  int loopLim
7d40: 69 74 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a  it;           /*
7d50: 20 4c 61 73 74 20 7a 53 74 72 5b 5d 20 74 68 61   Last zStr[] tha
7d60: 74 20 6d 69 67 68 74 20 6d 61 74 63 68 20 7a 50  t might match zP
7d70: 61 74 74 65 72 6e 5b 5d 20 2a 2f 0a 20 20 69 6e  attern[] */.  in
7d80: 74 20 69 2c 20 6a 3b 20 20 20 20 20 20 20 20 20  t i, j;         
7d90: 20 20 20 20 20 20 20 2f 2a 20 4c 6f 6f 70 20 63         /* Loop c
7da0: 6f 75 6e 74 65 72 73 20 2a 2f 0a 0a 20 20 61 73  ounters */..  as
7db0: 73 65 72 74 28 20 61 72 67 63 3d 3d 33 20 29 3b  sert( argc==3 );
7dc0: 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45  .  UNUSED_PARAME
7dd0: 54 45 52 28 61 72 67 63 29 3b 0a 20 20 7a 53 74  TER(argc);.  zSt
7de0: 72 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  r = sqlite3_valu
7df0: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b  e_text(argv[0]);
7e00: 0a 20 20 69 66 28 20 7a 53 74 72 3d 3d 30 20 29  .  if( zStr==0 )
7e10: 20 72 65 74 75 72 6e 3b 0a 20 20 6e 53 74 72 20   return;.  nStr 
7e20: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  = sqlite3_value_
7e30: 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a  bytes(argv[0]);.
7e40: 20 20 61 73 73 65 72 74 28 20 7a 53 74 72 3d 3d    assert( zStr==
7e50: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65  sqlite3_value_te
7e60: 78 74 28 61 72 67 76 5b 30 5d 29 20 29 3b 20 20  xt(argv[0]) );  
7e70: 2f 2a 20 4e 6f 20 65 6e 63 6f 64 69 6e 67 20 63  /* No encoding c
7e80: 68 61 6e 67 65 20 2a 2f 0a 20 20 7a 50 61 74 74  hange */.  zPatt
7e90: 65 72 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61  ern = sqlite3_va
7ea0: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31 5d  lue_text(argv[1]
7eb0: 29 3b 0a 20 20 69 66 28 20 7a 50 61 74 74 65 72  );.  if( zPatter
7ec0: 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 61 73 73 65  n==0 ){.    asse
7ed0: 72 74 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  rt( sqlite3_valu
7ee0: 65 5f 74 79 70 65 28 61 72 67 76 5b 31 5d 29 3d  e_type(argv[1])=
7ef0: 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 0a 20 20 20  =SQLITE_NULL.   
7f00: 20 20 20 20 20 20 20 20 20 7c 7c 20 73 71 6c 69           || sqli
7f10: 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68  te3_context_db_h
7f20: 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 2d 3e  andle(context)->
7f30: 6d 61 6c 6c 6f 63 46 61 69 6c 65 64 20 29 3b 0a  mallocFailed );.
7f40: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a      return;.  }.
7f50: 20 20 69 66 28 20 7a 50 61 74 74 65 72 6e 5b 30    if( zPattern[0
7f60: 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 61 73 73 65  ]==0 ){.    asse
7f70: 72 74 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  rt( sqlite3_valu
7f80: 65 5f 74 79 70 65 28 61 72 67 76 5b 31 5d 29 21  e_type(argv[1])!
7f90: 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 3b 0a  =SQLITE_NULL );.
7fa0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
7fb0: 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 74  lt_value(context
7fc0: 2c 20 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20  , argv[0]);.    
7fd0: 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 6e 50  return;.  }.  nP
7fe0: 61 74 74 65 72 6e 20 3d 20 73 71 6c 69 74 65 33  attern = sqlite3
7ff0: 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67  _value_bytes(arg
8000: 76 5b 31 5d 29 3b 0a 20 20 61 73 73 65 72 74 28  v[1]);.  assert(
8010: 20 7a 50 61 74 74 65 72 6e 3d 3d 73 71 6c 69 74   zPattern==sqlit
8020: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72  e3_value_text(ar
8030: 67 76 5b 31 5d 29 20 29 3b 20 20 2f 2a 20 4e 6f  gv[1]) );  /* No
8040: 20 65 6e 63 6f 64 69 6e 67 20 63 68 61 6e 67 65   encoding change
8050: 20 2a 2f 0a 20 20 7a 52 65 70 20 3d 20 73 71 6c   */.  zRep = sql
8060: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28  ite3_value_text(
8070: 61 72 67 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20  argv[2]);.  if( 
8080: 7a 52 65 70 3d 3d 30 20 29 20 72 65 74 75 72 6e  zRep==0 ) return
8090: 3b 0a 20 20 6e 52 65 70 20 3d 20 73 71 6c 69 74  ;.  nRep = sqlit
80a0: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61  e3_value_bytes(a
80b0: 72 67 76 5b 32 5d 29 3b 0a 20 20 61 73 73 65 72  rgv[2]);.  asser
80c0: 74 28 20 7a 52 65 70 3d 3d 73 71 6c 69 74 65 33  t( zRep==sqlite3
80d0: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76  _value_text(argv
80e0: 5b 32 5d 29 20 29 3b 0a 20 20 6e 4f 75 74 20 3d  [2]) );.  nOut =
80f0: 20 6e 53 74 72 20 2b 20 31 3b 0a 20 20 61 73 73   nStr + 1;.  ass
8100: 65 72 74 28 20 6e 4f 75 74 3c 53 51 4c 49 54 45  ert( nOut<SQLITE
8110: 5f 4d 41 58 5f 4c 45 4e 47 54 48 20 29 3b 0a 20  _MAX_LENGTH );. 
8120: 20 7a 4f 75 74 20 3d 20 63 6f 6e 74 65 78 74 4d   zOut = contextM
8130: 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c 20 28  alloc(context, (
8140: 69 36 34 29 6e 4f 75 74 29 3b 0a 20 20 69 66 28  i64)nOut);.  if(
8150: 20 7a 4f 75 74 3d 3d 30 20 29 7b 0a 20 20 20 20   zOut==0 ){.    
8160: 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 6c 6f  return;.  }.  lo
8170: 6f 70 4c 69 6d 69 74 20 3d 20 6e 53 74 72 20 2d  opLimit = nStr -
8180: 20 6e 50 61 74 74 65 72 6e 3b 20 20 0a 20 20 66   nPattern;  .  f
8190: 6f 72 28 69 3d 6a 3d 30 3b 20 69 3c 3d 6c 6f 6f  or(i=j=0; i<=loo
81a0: 70 4c 69 6d 69 74 3b 20 69 2b 2b 29 7b 0a 20 20  pLimit; i++){.  
81b0: 20 20 69 66 28 20 7a 53 74 72 5b 69 5d 21 3d 7a    if( zStr[i]!=z
81c0: 50 61 74 74 65 72 6e 5b 30 5d 20 7c 7c 20 6d 65  Pattern[0] || me
81d0: 6d 63 6d 70 28 26 7a 53 74 72 5b 69 5d 2c 20 7a  mcmp(&zStr[i], z
81e0: 50 61 74 74 65 72 6e 2c 20 6e 50 61 74 74 65 72  Pattern, nPatter
81f0: 6e 29 20 29 7b 0a 20 20 20 20 20 20 7a 4f 75 74  n) ){.      zOut
8200: 5b 6a 2b 2b 5d 20 3d 20 7a 53 74 72 5b 69 5d 3b  [j++] = zStr[i];
8210: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  .    }else{.    
8220: 20 20 75 38 20 2a 7a 4f 6c 64 3b 0a 20 20 20 20    u8 *zOld;.    
8230: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20    sqlite3 *db = 
8240: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f  sqlite3_context_
8250: 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78  db_handle(contex
8260: 74 29 3b 0a 20 20 20 20 20 20 6e 4f 75 74 20 2b  t);.      nOut +
8270: 3d 20 6e 52 65 70 20 2d 20 6e 50 61 74 74 65 72  = nRep - nPatter
8280: 6e 3b 0a 20 20 20 20 20 20 74 65 73 74 63 61 73  n;.      testcas
8290: 65 28 20 6e 4f 75 74 2d 31 3d 3d 64 62 2d 3e 61  e( nOut-1==db->a
82a0: 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d  Limit[SQLITE_LIM
82b0: 49 54 5f 4c 45 4e 47 54 48 5d 20 29 3b 0a 20 20  IT_LENGTH] );.  
82c0: 20 20 20 20 74 65 73 74 63 61 73 65 28 20 6e 4f      testcase( nO
82d0: 75 74 2d 32 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74  ut-2==db->aLimit
82e0: 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 45  [SQLITE_LIMIT_LE
82f0: 4e 47 54 48 5d 20 29 3b 0a 20 20 20 20 20 20 69  NGTH] );.      i
8300: 66 28 20 6e 4f 75 74 2d 31 3e 64 62 2d 3e 61 4c  f( nOut-1>db->aL
8310: 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49  imit[SQLITE_LIMI
8320: 54 5f 4c 45 4e 47 54 48 5d 20 29 7b 0a 20 20 20  T_LENGTH] ){.   
8330: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73       sqlite3_res
8340: 75 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67  ult_error_toobig
8350: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 20  (context);.     
8360: 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28     sqlite3_free(
8370: 7a 4f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 72  zOut);.        r
8380: 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 7d 0a 20  eturn;.      }. 
8390: 20 20 20 20 20 7a 4f 6c 64 20 3d 20 7a 4f 75 74       zOld = zOut
83a0: 3b 0a 20 20 20 20 20 20 7a 4f 75 74 20 3d 20 73  ;.      zOut = s
83b0: 71 6c 69 74 65 33 5f 72 65 61 6c 6c 6f 63 28 7a  qlite3_realloc(z
83c0: 4f 75 74 2c 20 28 69 6e 74 29 6e 4f 75 74 29 3b  Out, (int)nOut);
83d0: 0a 20 20 20 20 20 20 69 66 28 20 7a 4f 75 74 3d  .      if( zOut=
83e0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71  =0 ){.        sq
83f0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72  lite3_result_err
8400: 6f 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 74  or_nomem(context
8410: 29 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74  );.        sqlit
8420: 65 33 5f 66 72 65 65 28 7a 4f 6c 64 29 3b 0a 20  e3_free(zOld);. 
8430: 20 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 20         return;. 
8440: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 6d 65 6d       }.      mem
8450: 63 70 79 28 26 7a 4f 75 74 5b 6a 5d 2c 20 7a 52  cpy(&zOut[j], zR
8460: 65 70 2c 20 6e 52 65 70 29 3b 0a 20 20 20 20 20  ep, nRep);.     
8470: 20 6a 20 2b 3d 20 6e 52 65 70 3b 0a 20 20 20 20   j += nRep;.    
8480: 20 20 69 20 2b 3d 20 6e 50 61 74 74 65 72 6e 2d    i += nPattern-
8490: 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 61  1;.    }.  }.  a
84a0: 73 73 65 72 74 28 20 6a 2b 6e 53 74 72 2d 69 2b  ssert( j+nStr-i+
84b0: 31 3d 3d 6e 4f 75 74 20 29 3b 0a 20 20 6d 65 6d  1==nOut );.  mem
84c0: 63 70 79 28 26 7a 4f 75 74 5b 6a 5d 2c 20 26 7a  cpy(&zOut[j], &z
84d0: 53 74 72 5b 69 5d 2c 20 6e 53 74 72 2d 69 29 3b  Str[i], nStr-i);
84e0: 0a 20 20 6a 20 2b 3d 20 6e 53 74 72 20 2d 20 69  .  j += nStr - i
84f0: 3b 0a 20 20 61 73 73 65 72 74 28 20 6a 3c 3d 6e  ;.  assert( j<=n
8500: 4f 75 74 20 29 3b 0a 20 20 7a 4f 75 74 5b 6a 5d  Out );.  zOut[j]
8510: 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f   = 0;.  sqlite3_
8520: 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74  result_text(cont
8530: 65 78 74 2c 20 28 63 68 61 72 2a 29 7a 4f 75 74  ext, (char*)zOut
8540: 2c 20 6a 2c 20 73 71 6c 69 74 65 33 5f 66 72 65  , j, sqlite3_fre
8550: 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70  e);.}../*.** Imp
8560: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74  lementation of t
8570: 68 65 20 54 52 49 4d 28 29 2c 20 4c 54 52 49 4d  he TRIM(), LTRIM
8580: 28 29 2c 20 61 6e 64 20 52 54 52 49 4d 28 29 20  (), and RTRIM() 
8590: 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2a 20 54 68  functions..** Th
85a0: 65 20 75 73 65 72 64 61 74 61 20 69 73 20 30 78  e userdata is 0x
85b0: 31 20 66 6f 72 20 6c 65 66 74 20 74 72 69 6d 2c  1 for left trim,
85c0: 20 30 78 32 20 66 6f 72 20 72 69 67 68 74 20 74   0x2 for right t
85d0: 72 69 6d 2c 20 30 78 33 20 66 6f 72 20 62 6f 74  rim, 0x3 for bot
85e0: 68 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  h..*/.static voi
85f0: 64 20 74 72 69 6d 46 75 6e 63 28 0a 20 20 73 71  d trimFunc(.  sq
8600: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
8610: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72  ontext,.  int ar
8620: 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61  gc,.  sqlite3_va
8630: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20  lue **argv.){.  
8640: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63  const unsigned c
8650: 68 61 72 20 2a 7a 49 6e 3b 20 20 20 20 20 20 20  har *zIn;       
8660: 20 20 2f 2a 20 49 6e 70 75 74 20 73 74 72 69 6e    /* Input strin
8670: 67 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 75 6e 73  g */.  const uns
8680: 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 43 68 61  igned char *zCha
8690: 72 53 65 74 3b 20 20 20 20 2f 2a 20 53 65 74 20  rSet;    /* Set 
86a0: 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 74 6f  of characters to
86b0: 20 74 72 69 6d 20 2a 2f 0a 20 20 69 6e 74 20 6e   trim */.  int n
86c0: 49 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  In;             
86d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
86e0: 4e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20  Number of bytes 
86f0: 69 6e 20 69 6e 70 75 74 20 2a 2f 0a 20 20 69 6e  in input */.  in
8700: 74 20 66 6c 61 67 73 3b 20 20 20 20 20 20 20 20  t flags;        
8710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8720: 2f 2a 20 31 3a 20 74 72 69 6d 6c 65 66 74 20 20  /* 1: trimleft  
8730: 32 3a 20 74 72 69 6d 72 69 67 68 74 20 20 33 3a  2: trimright  3:
8740: 20 74 72 69 6d 20 2a 2f 0a 20 20 69 6e 74 20 69   trim */.  int i
8750: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
8760: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
8770: 4c 6f 6f 70 20 63 6f 75 6e 74 65 72 20 2a 2f 0a  Loop counter */.
8780: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20    unsigned char 
8790: 2a 61 4c 65 6e 20 3d 20 30 3b 20 20 20 20 20 20  *aLen = 0;      
87a0: 20 20 20 20 2f 2a 20 4c 65 6e 67 74 68 20 6f 66      /* Length of
87b0: 20 65 61 63 68 20 63 68 61 72 61 63 74 65 72 20   each character 
87c0: 69 6e 20 7a 43 68 61 72 53 65 74 20 2a 2f 0a 20  in zCharSet */. 
87d0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a   unsigned char *
87e0: 2a 61 7a 43 68 61 72 20 3d 20 30 3b 20 20 20 20  *azChar = 0;    
87f0: 20 20 20 2f 2a 20 49 6e 64 69 76 69 64 75 61 6c     /* Individual
8800: 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 7a   characters in z
8810: 43 68 61 72 53 65 74 20 2a 2f 0a 20 20 69 6e 74  CharSet */.  int
8820: 20 6e 43 68 61 72 3b 20 20 20 20 20 20 20 20 20   nChar;         
8830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
8840: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 63 68 61 72  * Number of char
8850: 61 63 74 65 72 73 20 69 6e 20 7a 43 68 61 72 53  acters in zCharS
8860: 65 74 20 2a 2f 0a 0a 20 20 69 66 28 20 73 71 6c  et */..  if( sql
8870: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28  ite3_value_type(
8880: 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45  argv[0])==SQLITE
8890: 5f 4e 55 4c 4c 20 29 7b 0a 20 20 20 20 72 65 74  _NULL ){.    ret
88a0: 75 72 6e 3b 0a 20 20 7d 0a 20 20 7a 49 6e 20 3d  urn;.  }.  zIn =
88b0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74   sqlite3_value_t
88c0: 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20  ext(argv[0]);.  
88d0: 69 66 28 20 7a 49 6e 3d 3d 30 20 29 20 72 65 74  if( zIn==0 ) ret
88e0: 75 72 6e 3b 0a 20 20 6e 49 6e 20 3d 20 73 71 6c  urn;.  nIn = sql
88f0: 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73  ite3_value_bytes
8900: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 61 73 73  (argv[0]);.  ass
8910: 65 72 74 28 20 7a 49 6e 3d 3d 73 71 6c 69 74 65  ert( zIn==sqlite
8920: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67  3_value_text(arg
8930: 76 5b 30 5d 29 20 29 3b 0a 20 20 69 66 28 20 61  v[0]) );.  if( a
8940: 72 67 63 3d 3d 31 20 29 7b 0a 20 20 20 20 73 74  rgc==1 ){.    st
8950: 61 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67  atic const unsig
8960: 6e 65 64 20 63 68 61 72 20 6c 65 6e 4f 6e 65 5b  ned char lenOne[
8970: 5d 20 3d 20 7b 20 31 20 7d 3b 0a 20 20 20 20 73  ] = { 1 };.    s
8980: 74 61 74 69 63 20 75 6e 73 69 67 6e 65 64 20 63  tatic unsigned c
8990: 68 61 72 20 2a 20 63 6f 6e 73 74 20 61 7a 4f 6e  har * const azOn
89a0: 65 5b 5d 20 3d 20 7b 20 28 75 38 2a 29 22 20 22  e[] = { (u8*)" "
89b0: 20 7d 3b 0a 20 20 20 20 6e 43 68 61 72 20 3d 20   };.    nChar = 
89c0: 31 3b 0a 20 20 20 20 61 4c 65 6e 20 3d 20 28 75  1;.    aLen = (u
89d0: 38 2a 29 6c 65 6e 4f 6e 65 3b 0a 20 20 20 20 61  8*)lenOne;.    a
89e0: 7a 43 68 61 72 20 3d 20 28 75 6e 73 69 67 6e 65  zChar = (unsigne
89f0: 64 20 63 68 61 72 20 2a 2a 29 61 7a 4f 6e 65 3b  d char **)azOne;
8a00: 0a 20 20 20 20 7a 43 68 61 72 53 65 74 20 3d 20  .    zCharSet = 
8a10: 30 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 28  0;.  }else if( (
8a20: 7a 43 68 61 72 53 65 74 20 3d 20 73 71 6c 69 74  zCharSet = sqlit
8a30: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72  e3_value_text(ar
8a40: 67 76 5b 31 5d 29 29 3d 3d 30 20 29 7b 0a 20 20  gv[1]))==0 ){.  
8a50: 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 65 6c 73    return;.  }els
8a60: 65 7b 0a 20 20 20 20 63 6f 6e 73 74 20 75 6e 73  e{.    const uns
8a70: 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 3b 0a 20  igned char *z;. 
8a80: 20 20 20 66 6f 72 28 7a 3d 7a 43 68 61 72 53 65     for(z=zCharSe
8a90: 74 2c 20 6e 43 68 61 72 3d 30 3b 20 2a 7a 3b 20  t, nChar=0; *z; 
8aa0: 6e 43 68 61 72 2b 2b 29 7b 0a 20 20 20 20 20 20  nChar++){.      
8ab0: 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55 54 46 38  SQLITE_SKIP_UTF8
8ac0: 28 7a 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69  (z);.    }.    i
8ad0: 66 28 20 6e 43 68 61 72 3e 30 20 29 7b 0a 20 20  f( nChar>0 ){.  
8ae0: 20 20 20 20 61 7a 43 68 61 72 20 3d 20 63 6f 6e      azChar = con
8af0: 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65  textMalloc(conte
8b00: 78 74 2c 20 28 28 69 36 34 29 6e 43 68 61 72 29  xt, ((i64)nChar)
8b10: 2a 28 73 69 7a 65 6f 66 28 63 68 61 72 2a 29 2b  *(sizeof(char*)+
8b20: 31 29 29 3b 0a 20 20 20 20 20 20 69 66 28 20 61  1));.      if( a
8b30: 7a 43 68 61 72 3d 3d 30 20 29 7b 0a 20 20 20 20  zChar==0 ){.    
8b40: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20      return;.    
8b50: 20 20 7d 0a 20 20 20 20 20 20 61 4c 65 6e 20 3d    }.      aLen =
8b60: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 2a   (unsigned char*
8b70: 29 26 61 7a 43 68 61 72 5b 6e 43 68 61 72 5d 3b  )&azChar[nChar];
8b80: 0a 20 20 20 20 20 20 66 6f 72 28 7a 3d 7a 43 68  .      for(z=zCh
8b90: 61 72 53 65 74 2c 20 6e 43 68 61 72 3d 30 3b 20  arSet, nChar=0; 
8ba0: 2a 7a 3b 20 6e 43 68 61 72 2b 2b 29 7b 0a 20 20  *z; nChar++){.  
8bb0: 20 20 20 20 20 20 61 7a 43 68 61 72 5b 6e 43 68        azChar[nCh
8bc0: 61 72 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20  ar] = (unsigned 
8bd0: 63 68 61 72 20 2a 29 7a 3b 0a 20 20 20 20 20 20  char *)z;.      
8be0: 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55 54    SQLITE_SKIP_UT
8bf0: 46 38 28 7a 29 3b 0a 20 20 20 20 20 20 20 20 61  F8(z);.        a
8c00: 4c 65 6e 5b 6e 43 68 61 72 5d 20 3d 20 28 75 38  Len[nChar] = (u8
8c10: 29 28 7a 20 2d 20 61 7a 43 68 61 72 5b 6e 43 68  )(z - azChar[nCh
8c20: 61 72 5d 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20  ar]);.      }.  
8c30: 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 6e 43    }.  }.  if( nC
8c40: 68 61 72 3e 30 20 29 7b 0a 20 20 20 20 66 6c 61  har>0 ){.    fla
8c50: 67 73 20 3d 20 53 51 4c 49 54 45 5f 50 54 52 5f  gs = SQLITE_PTR_
8c60: 54 4f 5f 49 4e 54 28 73 71 6c 69 74 65 33 5f 75  TO_INT(sqlite3_u
8c70: 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74  ser_data(context
8c80: 29 29 3b 0a 20 20 20 20 69 66 28 20 66 6c 61 67  ));.    if( flag
8c90: 73 20 26 20 31 20 29 7b 0a 20 20 20 20 20 20 77  s & 1 ){.      w
8ca0: 68 69 6c 65 28 20 6e 49 6e 3e 30 20 29 7b 0a 20  hile( nIn>0 ){. 
8cb0: 20 20 20 20 20 20 20 69 6e 74 20 6c 65 6e 20 3d         int len =
8cc0: 20 30 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28   0;.        for(
8cd0: 69 3d 30 3b 20 69 3c 6e 43 68 61 72 3b 20 69 2b  i=0; i<nChar; i+
8ce0: 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 6c 65  +){.          le
8cf0: 6e 20 3d 20 61 4c 65 6e 5b 69 5d 3b 0a 20 20 20  n = aLen[i];.   
8d00: 20 20 20 20 20 20 20 69 66 28 20 6c 65 6e 3c 3d         if( len<=
8d10: 6e 49 6e 20 26 26 20 6d 65 6d 63 6d 70 28 7a 49  nIn && memcmp(zI
8d20: 6e 2c 20 61 7a 43 68 61 72 5b 69 5d 2c 20 6c 65  n, azChar[i], le
8d30: 6e 29 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20  n)==0 ) break;. 
8d40: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
8d50: 20 69 66 28 20 69 3e 3d 6e 43 68 61 72 20 29 20   if( i>=nChar ) 
8d60: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 7a  break;.        z
8d70: 49 6e 20 2b 3d 20 6c 65 6e 3b 0a 20 20 20 20 20  In += len;.     
8d80: 20 20 20 6e 49 6e 20 2d 3d 20 6c 65 6e 3b 0a 20     nIn -= len;. 
8d90: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20       }.    }.   
8da0: 20 69 66 28 20 66 6c 61 67 73 20 26 20 32 20 29   if( flags & 2 )
8db0: 7b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 6e  {.      while( n
8dc0: 49 6e 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20  In>0 ){.        
8dd0: 69 6e 74 20 6c 65 6e 20 3d 20 30 3b 0a 20 20 20  int len = 0;.   
8de0: 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c       for(i=0; i<
8df0: 6e 43 68 61 72 3b 20 69 2b 2b 29 7b 0a 20 20 20  nChar; i++){.   
8e00: 20 20 20 20 20 20 20 6c 65 6e 20 3d 20 61 4c 65         len = aLe
8e10: 6e 5b 69 5d 3b 0a 20 20 20 20 20 20 20 20 20 20  n[i];.          
8e20: 69 66 28 20 6c 65 6e 3c 3d 6e 49 6e 20 26 26 20  if( len<=nIn && 
8e30: 6d 65 6d 63 6d 70 28 26 7a 49 6e 5b 6e 49 6e 2d  memcmp(&zIn[nIn-
8e40: 6c 65 6e 5d 2c 61 7a 43 68 61 72 5b 69 5d 2c 6c  len],azChar[i],l
8e50: 65 6e 29 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a  en)==0 ) break;.
8e60: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
8e70: 20 20 69 66 28 20 69 3e 3d 6e 43 68 61 72 20 29    if( i>=nChar )
8e80: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20   break;.        
8e90: 6e 49 6e 20 2d 3d 20 6c 65 6e 3b 0a 20 20 20 20  nIn -= len;.    
8ea0: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66    }.    }.    if
8eb0: 28 20 7a 43 68 61 72 53 65 74 20 29 7b 0a 20 20  ( zCharSet ){.  
8ec0: 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65      sqlite3_free
8ed0: 28 61 7a 43 68 61 72 29 3b 0a 20 20 20 20 7d 0a  (azChar);.    }.
8ee0: 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65    }.  sqlite3_re
8ef0: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78  sult_text(contex
8f00: 74 2c 20 28 63 68 61 72 2a 29 7a 49 6e 2c 20 6e  t, (char*)zIn, n
8f10: 49 6e 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53  In, SQLITE_TRANS
8f20: 49 45 4e 54 29 3b 0a 7d 0a 0a 0a 2f 2a 20 49 4d  IENT);.}.../* IM
8f30: 50 3a 20 52 2d 32 35 33 36 31 2d 31 36 31 35 30  P: R-25361-16150
8f40: 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69   This function i
8f50: 73 20 6f 6d 69 74 74 65 64 20 66 72 6f 6d 20 53  s omitted from S
8f60: 51 4c 69 74 65 20 62 79 20 64 65 66 61 75 6c 74  QLite by default
8f70: 2e 20 49 74 0a 2a 2a 20 69 73 20 6f 6e 6c 79 20  . It.** is only 
8f80: 61 76 61 69 6c 61 62 6c 65 20 69 66 20 74 68 65  available if the
8f90: 20 53 51 4c 49 54 45 5f 53 4f 55 4e 44 45 58 20   SQLITE_SOUNDEX 
8fa0: 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74  compile-time opt
8fb0: 69 6f 6e 20 69 73 20 75 73 65 64 0a 2a 2a 20 77  ion is used.** w
8fc0: 68 65 6e 20 53 51 4c 69 74 65 20 69 73 20 62 75  hen SQLite is bu
8fd0: 69 6c 74 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 53  ilt..*/.#ifdef S
8fe0: 51 4c 49 54 45 5f 53 4f 55 4e 44 45 58 0a 2f 2a  QLITE_SOUNDEX./*
8ff0: 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 20  .** Compute the 
9000: 73 6f 75 6e 64 65 78 20 65 6e 63 6f 64 69 6e 67  soundex encoding
9010: 20 6f 66 20 61 20 77 6f 72 64 2e 0a 2a 2a 0a 2a   of a word..**.*
9020: 2a 20 49 4d 50 3a 20 52 2d 35 39 37 38 32 2d 30  * IMP: R-59782-0
9030: 30 30 37 32 20 54 68 65 20 73 6f 75 6e 64 65 78  0072 The soundex
9040: 28 58 29 20 66 75 6e 63 74 69 6f 6e 20 72 65 74  (X) function ret
9050: 75 72 6e 73 20 61 20 73 74 72 69 6e 67 20 74 68  urns a string th
9060: 61 74 20 69 73 20 74 68 65 0a 2a 2a 20 73 6f 75  at is the.** sou
9070: 6e 64 65 78 20 65 6e 63 6f 64 69 6e 67 20 6f 66  ndex encoding of
9080: 20 74 68 65 20 73 74 72 69 6e 67 20 58 2e 20 0a   the string X. .
9090: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73  */.static void s
90a0: 6f 75 6e 64 65 78 46 75 6e 63 28 0a 20 20 73 71  oundexFunc(.  sq
90b0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
90c0: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72  ontext,.  int ar
90d0: 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61  gc,.  sqlite3_va
90e0: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20  lue **argv.){.  
90f0: 63 68 61 72 20 7a 52 65 73 75 6c 74 5b 38 5d 3b  char zResult[8];
9100: 0a 20 20 63 6f 6e 73 74 20 75 38 20 2a 7a 49 6e  .  const u8 *zIn
9110: 3b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 20  ;.  int i, j;.  
9120: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 75 6e 73  static const uns
9130: 69 67 6e 65 64 20 63 68 61 72 20 69 43 6f 64 65  igned char iCode
9140: 5b 5d 20 3d 20 7b 0a 20 20 20 20 30 2c 20 30 2c  [] = {.    0, 0,
9150: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
9160: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
9170: 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30  , 0, 0, 0,.    0
9180: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
9190: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
91a0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20  0, 0, 0, 0, 0,. 
91b0: 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30     0, 0, 0, 0, 0
91c0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
91d0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
91e0: 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 30 2c 20  0,.    0, 0, 0, 
91f0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
9200: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
9210: 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c   0, 0,.    0, 0,
9220: 20 31 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2c 20   1, 2, 3, 0, 1, 
9230: 32 2c 20 30 2c 20 30 2c 20 32 2c 20 32 2c 20 34  2, 0, 0, 2, 2, 4
9240: 2c 20 35 2c 20 35 2c 20 30 2c 0a 20 20 20 20 31  , 5, 5, 0,.    1
9250: 2c 20 32 2c 20 36 2c 20 32 2c 20 33 2c 20 30 2c  , 2, 6, 2, 3, 0,
9260: 20 31 2c 20 30 2c 20 32 2c 20 30 2c 20 32 2c 20   1, 0, 2, 0, 2, 
9270: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20  0, 0, 0, 0, 0,. 
9280: 20 20 20 30 2c 20 30 2c 20 31 2c 20 32 2c 20 33     0, 0, 1, 2, 3
9290: 2c 20 30 2c 20 31 2c 20 32 2c 20 30 2c 20 30 2c  , 0, 1, 2, 0, 0,
92a0: 20 32 2c 20 32 2c 20 34 2c 20 35 2c 20 35 2c 20   2, 2, 4, 5, 5, 
92b0: 30 2c 0a 20 20 20 20 31 2c 20 32 2c 20 36 2c 20  0,.    1, 2, 6, 
92c0: 32 2c 20 33 2c 20 30 2c 20 31 2c 20 30 2c 20 32  2, 3, 0, 1, 0, 2
92d0: 2c 20 30 2c 20 32 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 2, 0, 0, 0,
92e0: 20 30 2c 20 30 2c 0a 20 20 7d 3b 0a 20 20 61 73   0, 0,.  };.  as
92f0: 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b  sert( argc==1 );
9300: 0a 20 20 7a 49 6e 20 3d 20 28 75 38 2a 29 73 71  .  zIn = (u8*)sq
9310: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
9320: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28  (argv[0]);.  if(
9330: 20 7a 49 6e 3d 3d 30 20 29 20 7a 49 6e 20 3d 20   zIn==0 ) zIn = 
9340: 28 75 38 2a 29 22 22 3b 0a 20 20 66 6f 72 28 69  (u8*)"";.  for(i
9350: 3d 30 3b 20 7a 49 6e 5b 69 5d 20 26 26 20 21 73  =0; zIn[i] && !s
9360: 71 6c 69 74 65 33 49 73 61 6c 70 68 61 28 7a 49  qlite3Isalpha(zI
9370: 6e 5b 69 5d 29 3b 20 69 2b 2b 29 7b 7d 0a 20 20  n[i]); i++){}.  
9380: 69 66 28 20 7a 49 6e 5b 69 5d 20 29 7b 0a 20 20  if( zIn[i] ){.  
9390: 20 20 75 38 20 70 72 65 76 63 6f 64 65 20 3d 20    u8 prevcode = 
93a0: 69 43 6f 64 65 5b 7a 49 6e 5b 69 5d 26 30 78 37  iCode[zIn[i]&0x7
93b0: 66 5d 3b 0a 20 20 20 20 7a 52 65 73 75 6c 74 5b  f];.    zResult[
93c0: 30 5d 20 3d 20 73 71 6c 69 74 65 33 54 6f 75 70  0] = sqlite3Toup
93d0: 70 65 72 28 7a 49 6e 5b 69 5d 29 3b 0a 20 20 20  per(zIn[i]);.   
93e0: 20 66 6f 72 28 6a 3d 31 3b 20 6a 3c 34 20 26 26   for(j=1; j<4 &&
93f0: 20 7a 49 6e 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20   zIn[i]; i++){. 
9400: 20 20 20 20 20 69 6e 74 20 63 6f 64 65 20 3d 20       int code = 
9410: 69 43 6f 64 65 5b 7a 49 6e 5b 69 5d 26 30 78 37  iCode[zIn[i]&0x7
9420: 66 5d 3b 0a 20 20 20 20 20 20 69 66 28 20 63 6f  f];.      if( co
9430: 64 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20  de>0 ){.        
9440: 69 66 28 20 63 6f 64 65 21 3d 70 72 65 76 63 6f  if( code!=prevco
9450: 64 65 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  de ){.          
9460: 70 72 65 76 63 6f 64 65 20 3d 20 63 6f 64 65 3b  prevcode = code;
9470: 0a 20 20 20 20 20 20 20 20 20 20 7a 52 65 73 75  .          zResu
9480: 6c 74 5b 6a 2b 2b 5d 20 3d 20 63 6f 64 65 20 2b  lt[j++] = code +
9490: 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a   '0';.        }.
94a0: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20        }else{.   
94b0: 20 20 20 20 20 70 72 65 76 63 6f 64 65 20 3d 20       prevcode = 
94c0: 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  0;.      }.    }
94d0: 0a 20 20 20 20 77 68 69 6c 65 28 20 6a 3c 34 20  .    while( j<4 
94e0: 29 7b 0a 20 20 20 20 20 20 7a 52 65 73 75 6c 74  ){.      zResult
94f0: 5b 6a 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 20  [j++] = '0';.   
9500: 20 7d 0a 20 20 20 20 7a 52 65 73 75 6c 74 5b 6a   }.    zResult[j
9510: 5d 20 3d 20 30 3b 0a 20 20 20 20 73 71 6c 69 74  ] = 0;.    sqlit
9520: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63  e3_result_text(c
9530: 6f 6e 74 65 78 74 2c 20 7a 52 65 73 75 6c 74 2c  ontext, zResult,
9540: 20 34 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53   4, SQLITE_TRANS
9550: 49 45 4e 54 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a  IENT);.  }else{.
9560: 20 20 20 20 2f 2a 20 49 4d 50 3a 20 52 2d 36 34      /* IMP: R-64
9570: 38 39 34 2d 35 30 33 32 31 20 54 68 65 20 73 74  894-50321 The st
9580: 72 69 6e 67 20 22 3f 30 30 30 22 20 69 73 20 72  ring "?000" is r
9590: 65 74 75 72 6e 65 64 20 69 66 20 74 68 65 20 61  eturned if the a
95a0: 72 67 75 6d 65 6e 74 0a 20 20 20 20 2a 2a 20 69  rgument.    ** i
95b0: 73 20 4e 55 4c 4c 20 6f 72 20 63 6f 6e 74 61 69  s NULL or contai
95c0: 6e 73 20 6e 6f 20 41 53 43 49 49 20 61 6c 70 68  ns no ASCII alph
95d0: 61 62 65 74 69 63 20 63 68 61 72 61 63 74 65 72  abetic character
95e0: 73 2e 20 2a 2f 0a 20 20 20 20 73 71 6c 69 74 65  s. */.    sqlite
95f0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f  3_result_text(co
9600: 6e 74 65 78 74 2c 20 22 3f 30 30 30 22 2c 20 34  ntext, "?000", 4
9610: 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29  , SQLITE_STATIC)
9620: 3b 0a 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 20 2f  ;.  }.}.#endif /
9630: 2a 20 53 51 4c 49 54 45 5f 53 4f 55 4e 44 45 58  * SQLITE_SOUNDEX
9640: 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c   */..#ifndef SQL
9650: 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58  ITE_OMIT_LOAD_EX
9660: 54 45 4e 53 49 4f 4e 0a 2f 2a 0a 2a 2a 20 41 20  TENSION./*.** A 
9670: 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 6c 6f  function that lo
9680: 61 64 73 20 61 20 73 68 61 72 65 64 2d 6c 69 62  ads a shared-lib
9690: 72 61 72 79 20 65 78 74 65 6e 73 69 6f 6e 20 74  rary extension t
96a0: 68 65 6e 20 72 65 74 75 72 6e 73 20 4e 55 4c 4c  hen returns NULL
96b0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
96c0: 20 6c 6f 61 64 45 78 74 28 73 71 6c 69 74 65 33   loadExt(sqlite3
96d0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
96e0: 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c  t, int argc, sql
96f0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67  ite3_value **arg
9700: 76 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  v){.  const char
9710: 20 2a 7a 46 69 6c 65 20 3d 20 28 63 6f 6e 73 74   *zFile = (const
9720: 20 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 5f   char *)sqlite3_
9730: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b  value_text(argv[
9740: 30 5d 29 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61  0]);.  const cha
9750: 72 20 2a 7a 50 72 6f 63 3b 0a 20 20 73 71 6c 69  r *zProc;.  sqli
9760: 74 65 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65  te3 *db = sqlite
9770: 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e  3_context_db_han
9780: 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20  dle(context);.  
9790: 63 68 61 72 20 2a 7a 45 72 72 4d 73 67 20 3d 20  char *zErrMsg = 
97a0: 30 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 3d 3d  0;..  if( argc==
97b0: 32 20 29 7b 0a 20 20 20 20 7a 50 72 6f 63 20 3d  2 ){.    zProc =
97c0: 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 73   (const char *)s
97d0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78  qlite3_value_tex
97e0: 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 7d 65  t(argv[1]);.  }e
97f0: 6c 73 65 7b 0a 20 20 20 20 7a 50 72 6f 63 20 3d  lse{.    zProc =
9800: 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 7a 46   0;.  }.  if( zF
9810: 69 6c 65 20 26 26 20 73 71 6c 69 74 65 33 5f 6c  ile && sqlite3_l
9820: 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 28 64 62  oad_extension(db
9830: 2c 20 7a 46 69 6c 65 2c 20 7a 50 72 6f 63 2c 20  , zFile, zProc, 
9840: 26 7a 45 72 72 4d 73 67 29 20 29 7b 0a 20 20 20  &zErrMsg) ){.   
9850: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
9860: 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 7a  error(context, z
9870: 45 72 72 4d 73 67 2c 20 2d 31 29 3b 0a 20 20 20  ErrMsg, -1);.   
9880: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 45   sqlite3_free(zE
9890: 72 72 4d 73 67 29 3b 0a 20 20 7d 0a 7d 0a 23 65  rrMsg);.  }.}.#e
98a0: 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20  ndif.../*.** An 
98b0: 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 65 20  instance of the 
98c0: 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75 63 74  following struct
98d0: 75 72 65 20 68 6f 6c 64 73 20 74 68 65 20 63 6f  ure holds the co
98e0: 6e 74 65 78 74 20 6f 66 20 61 0a 2a 2a 20 73 75  ntext of a.** su
98f0: 6d 28 29 20 6f 72 20 61 76 67 28 29 20 61 67 67  m() or avg() agg
9900: 72 65 67 61 74 65 20 63 6f 6d 70 75 74 61 74 69  regate computati
9910: 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73  on..*/.typedef s
9920: 74 72 75 63 74 20 53 75 6d 43 74 78 20 53 75 6d  truct SumCtx Sum
9930: 43 74 78 3b 0a 73 74 72 75 63 74 20 53 75 6d 43  Ctx;.struct SumC
9940: 74 78 20 7b 0a 20 20 64 6f 75 62 6c 65 20 72 53  tx {.  double rS
9950: 75 6d 3b 20 20 20 20 20 20 2f 2a 20 46 6c 6f 61  um;      /* Floa
9960: 74 69 6e 67 20 70 6f 69 6e 74 20 73 75 6d 20 2a  ting point sum *
9970: 2f 0a 20 20 69 36 34 20 69 53 75 6d 3b 20 20 20  /.  i64 iSum;   
9980: 20 20 20 20 20 20 2f 2a 20 49 6e 74 65 67 65 72        /* Integer
9990: 20 73 75 6d 20 2a 2f 20 20 20 0a 20 20 69 36 34   sum */   .  i64
99a0: 20 63 6e 74 3b 20 20 20 20 20 20 20 20 20 20 2f   cnt;          /
99b0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d  * Number of elem
99c0: 65 6e 74 73 20 73 75 6d 6d 65 64 20 2a 2f 0a 20  ents summed */. 
99d0: 20 75 38 20 6f 76 65 72 66 6c 6f 77 3b 20 20 20   u8 overflow;   
99e0: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 69 6e     /* True if in
99f0: 74 65 67 65 72 20 6f 76 65 72 66 6c 6f 77 20 73  teger overflow s
9a00: 65 65 6e 20 2a 2f 0a 20 20 75 38 20 61 70 70 72  een */.  u8 appr
9a10: 6f 78 3b 20 20 20 20 20 20 20 20 2f 2a 20 54 72  ox;        /* Tr
9a20: 75 65 20 69 66 20 6e 6f 6e 2d 69 6e 74 65 67 65  ue if non-intege
9a30: 72 20 76 61 6c 75 65 20 77 61 73 20 69 6e 70 75  r value was inpu
9a40: 74 20 74 6f 20 74 68 65 20 73 75 6d 20 2a 2f 0a  t to the sum */.
9a50: 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e  };../*.** Routin
9a60: 65 73 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 75  es used to compu
9a70: 74 65 20 74 68 65 20 73 75 6d 2c 20 61 76 65 72  te the sum, aver
9a80: 61 67 65 2c 20 61 6e 64 20 74 6f 74 61 6c 2e 0a  age, and total..
9a90: 2a 2a 0a 2a 2a 20 54 68 65 20 53 55 4d 28 29 20  **.** The SUM() 
9aa0: 66 75 6e 63 74 69 6f 6e 20 66 6f 6c 6c 6f 77 73  function follows
9ab0: 20 74 68 65 20 28 62 72 6f 6b 65 6e 29 20 53 51   the (broken) SQ
9ac0: 4c 20 73 74 61 6e 64 61 72 64 20 77 68 69 63 68  L standard which
9ad0: 20 6d 65 61 6e 73 0a 2a 2a 20 74 68 61 74 20 69   means.** that i
9ae0: 74 20 72 65 74 75 72 6e 73 20 4e 55 4c 4c 20 69  t returns NULL i
9af0: 66 20 69 74 20 73 75 6d 73 20 6f 76 65 72 20 6e  f it sums over n
9b00: 6f 20 69 6e 70 75 74 73 2e 20 20 54 4f 54 41 4c  o inputs.  TOTAL
9b10: 20 72 65 74 75 72 6e 73 0a 2a 2a 20 30 2e 30 20   returns.** 0.0 
9b20: 69 6e 20 74 68 61 74 20 63 61 73 65 2e 20 20 49  in that case.  I
9b30: 6e 20 61 64 64 69 74 69 6f 6e 2c 20 54 4f 54 41  n addition, TOTA
9b40: 4c 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 73  L always returns
9b50: 20 61 20 66 6c 6f 61 74 20 77 68 65 72 65 0a 2a   a float where.*
9b60: 2a 20 53 55 4d 20 6d 69 67 68 74 20 72 65 74 75  * SUM might retu
9b70: 72 6e 20 61 6e 20 69 6e 74 65 67 65 72 20 69 66  rn an integer if
9b80: 20 69 74 20 6e 65 76 65 72 20 65 6e 63 6f 75 6e   it never encoun
9b90: 74 65 72 73 20 61 20 66 6c 6f 61 74 69 6e 67 20  ters a floating 
9ba0: 70 6f 69 6e 74 0a 2a 2a 20 76 61 6c 75 65 2e 20  point.** value. 
9bb0: 20 54 4f 54 41 4c 20 6e 65 76 65 72 20 66 61 69   TOTAL never fai
9bc0: 6c 73 2c 20 62 75 74 20 53 55 4d 20 6d 69 67 68  ls, but SUM migh
9bd0: 74 20 74 68 72 6f 75 67 68 20 61 6e 20 65 78 63  t through an exc
9be0: 65 70 74 69 6f 6e 20 69 66 0a 2a 2a 20 69 74 20  eption if.** it 
9bf0: 6f 76 65 72 66 6c 6f 77 73 20 61 6e 20 69 6e 74  overflows an int
9c00: 65 67 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  eger..*/.static 
9c10: 76 6f 69 64 20 73 75 6d 53 74 65 70 28 73 71 6c  void sumStep(sql
9c20: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
9c30: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c  ntext, int argc,
9c40: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
9c50: 2a 61 72 67 76 29 7b 0a 20 20 53 75 6d 43 74 78  *argv){.  SumCtx
9c60: 20 2a 70 3b 0a 20 20 69 6e 74 20 74 79 70 65 3b   *p;.  int type;
9c70: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d  .  assert( argc=
9c80: 3d 31 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50  =1 );.  UNUSED_P
9c90: 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a  ARAMETER(argc);.
9ca0: 20 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67    p = sqlite3_ag
9cb0: 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28  gregate_context(
9cc0: 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28  context, sizeof(
9cd0: 2a 70 29 29 3b 0a 20 20 74 79 70 65 20 3d 20 73  *p));.  type = s
9ce0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 6e 75 6d  qlite3_value_num
9cf0: 65 72 69 63 5f 74 79 70 65 28 61 72 67 76 5b 30  eric_type(argv[0
9d00: 5d 29 3b 0a 20 20 69 66 28 20 70 20 26 26 20 74  ]);.  if( p && t
9d10: 79 70 65 21 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c  ype!=SQLITE_NULL
9d20: 20 29 7b 0a 20 20 20 20 70 2d 3e 63 6e 74 2b 2b   ){.    p->cnt++
9d30: 3b 0a 20 20 20 20 69 66 28 20 74 79 70 65 3d 3d  ;.    if( type==
9d40: 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 20 29  SQLITE_INTEGER )
9d50: 7b 0a 20 20 20 20 20 20 69 36 34 20 76 20 3d 20  {.      i64 v = 
9d60: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e  sqlite3_value_in
9d70: 74 36 34 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20  t64(argv[0]);.  
9d80: 20 20 20 20 70 2d 3e 72 53 75 6d 20 2b 3d 20 76      p->rSum += v
9d90: 3b 0a 20 20 20 20 20 20 69 66 28 20 28 70 2d 3e  ;.      if( (p->
9da0: 61 70 70 72 6f 78 7c 70 2d 3e 6f 76 65 72 66 6c  approx|p->overfl
9db0: 6f 77 29 3d 3d 30 20 26 26 20 73 71 6c 69 74 65  ow)==0 && sqlite
9dc0: 33 41 64 64 49 6e 74 36 34 28 26 70 2d 3e 69 53  3AddInt64(&p->iS
9dd0: 75 6d 2c 20 76 29 20 29 7b 0a 20 20 20 20 20 20  um, v) ){.      
9de0: 20 20 70 2d 3e 6f 76 65 72 66 6c 6f 77 20 3d 20    p->overflow = 
9df0: 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  1;.      }.    }
9e00: 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 2d 3e 72  else{.      p->r
9e10: 53 75 6d 20 2b 3d 20 73 71 6c 69 74 65 33 5f 76  Sum += sqlite3_v
9e20: 61 6c 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76  alue_double(argv
9e30: 5b 30 5d 29 3b 0a 20 20 20 20 20 20 70 2d 3e 61  [0]);.      p->a
9e40: 70 70 72 6f 78 20 3d 20 31 3b 0a 20 20 20 20 7d  pprox = 1;.    }
9e50: 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f  .  }.}.static vo
9e60: 69 64 20 73 75 6d 46 69 6e 61 6c 69 7a 65 28 73  id sumFinalize(s
9e70: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
9e80: 63 6f 6e 74 65 78 74 29 7b 0a 20 20 53 75 6d 43  context){.  SumC
9e90: 74 78 20 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c  tx *p;.  p = sql
9ea0: 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63  ite3_aggregate_c
9eb0: 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20  ontext(context, 
9ec0: 30 29 3b 0a 20 20 69 66 28 20 70 20 26 26 20 70  0);.  if( p && p
9ed0: 2d 3e 63 6e 74 3e 30 20 29 7b 0a 20 20 20 20 69  ->cnt>0 ){.    i
9ee0: 66 28 20 70 2d 3e 6f 76 65 72 66 6c 6f 77 20 29  f( p->overflow )
9ef0: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  {.      sqlite3_
9f00: 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e  result_error(con
9f10: 74 65 78 74 2c 22 69 6e 74 65 67 65 72 20 6f 76  text,"integer ov
9f20: 65 72 66 6c 6f 77 22 2c 2d 31 29 3b 0a 20 20 20  erflow",-1);.   
9f30: 20 7d 65 6c 73 65 20 69 66 28 20 70 2d 3e 61 70   }else if( p->ap
9f40: 70 72 6f 78 20 29 7b 0a 20 20 20 20 20 20 73 71  prox ){.      sq
9f50: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75  lite3_result_dou
9f60: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 70 2d 3e  ble(context, p->
9f70: 72 53 75 6d 29 3b 0a 20 20 20 20 7d 65 6c 73 65  rSum);.    }else
9f80: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  {.      sqlite3_
9f90: 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 6f 6e  result_int64(con
9fa0: 74 65 78 74 2c 20 70 2d 3e 69 53 75 6d 29 3b 0a  text, p->iSum);.
9fb0: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 73 74 61 74      }.  }.}.stat
9fc0: 69 63 20 76 6f 69 64 20 61 76 67 46 69 6e 61 6c  ic void avgFinal
9fd0: 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74  ize(sqlite3_cont
9fe0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20  ext *context){. 
9ff0: 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 20 70 20   SumCtx *p;.  p 
a000: 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67  = sqlite3_aggreg
a010: 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74  ate_context(cont
a020: 65 78 74 2c 20 30 29 3b 0a 20 20 69 66 28 20 70  ext, 0);.  if( p
a030: 20 26 26 20 70 2d 3e 63 6e 74 3e 30 20 29 7b 0a   && p->cnt>0 ){.
a040: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
a050: 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78  lt_double(contex
a060: 74 2c 20 70 2d 3e 72 53 75 6d 2f 28 64 6f 75 62  t, p->rSum/(doub
a070: 6c 65 29 70 2d 3e 63 6e 74 29 3b 0a 20 20 7d 0a  le)p->cnt);.  }.
a080: 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 6f  }.static void to
a090: 74 61 6c 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69  talFinalize(sqli
a0a0: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e  te3_context *con
a0b0: 74 65 78 74 29 7b 0a 20 20 53 75 6d 43 74 78 20  text){.  SumCtx 
a0c0: 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65  *p;.  p = sqlite
a0d0: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74  3_aggregate_cont
a0e0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b  ext(context, 0);
a0f0: 0a 20 20 2f 2a 20 28 64 6f 75 62 6c 65 29 30 20  .  /* (double)0 
a100: 49 6e 20 63 61 73 65 20 6f 66 20 53 51 4c 49 54  In case of SQLIT
a110: 45 5f 4f 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f  E_OMIT_FLOATING_
a120: 50 4f 49 4e 54 2e 2e 2e 20 2a 2f 0a 20 20 73 71  POINT... */.  sq
a130: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75  lite3_result_dou
a140: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 70 20 3f  ble(context, p ?
a150: 20 70 2d 3e 72 53 75 6d 20 3a 20 28 64 6f 75 62   p->rSum : (doub
a160: 6c 65 29 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  le)0);.}../*.** 
a170: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74  The following st
a180: 72 75 63 74 75 72 65 20 6b 65 65 70 73 20 74 72  ructure keeps tr
a190: 61 63 6b 20 6f 66 20 73 74 61 74 65 20 69 6e 66  ack of state inf
a1a0: 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 74 68 65  ormation for the
a1b0: 0a 2a 2a 20 63 6f 75 6e 74 28 29 20 61 67 67 72  .** count() aggr
a1c0: 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 2e 0a  egate function..
a1d0: 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75 63  */.typedef struc
a1e0: 74 20 43 6f 75 6e 74 43 74 78 20 43 6f 75 6e 74  t CountCtx Count
a1f0: 43 74 78 3b 0a 73 74 72 75 63 74 20 43 6f 75 6e  Ctx;.struct Coun
a200: 74 43 74 78 20 7b 0a 20 20 69 36 34 20 6e 3b 0a  tCtx {.  i64 n;.
a210: 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e  };../*.** Routin
a220: 65 73 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20  es to implement 
a230: 74 68 65 20 63 6f 75 6e 74 28 29 20 61 67 67 72  the count() aggr
a240: 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e 2e 0a  egate function..
a250: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63  */.static void c
a260: 6f 75 6e 74 53 74 65 70 28 73 71 6c 69 74 65 33  ountStep(sqlite3
a270: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
a280: 74 2c 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c  t, int argc, sql
a290: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67  ite3_value **arg
a2a0: 76 29 7b 0a 20 20 43 6f 75 6e 74 43 74 78 20 2a  v){.  CountCtx *
a2b0: 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33  p;.  p = sqlite3
a2c0: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65  _aggregate_conte
a2d0: 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65  xt(context, size
a2e0: 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 28  of(*p));.  if( (
a2f0: 61 72 67 63 3d 3d 30 20 7c 7c 20 53 51 4c 49 54  argc==0 || SQLIT
a300: 45 5f 4e 55 4c 4c 21 3d 73 71 6c 69 74 65 33 5f  E_NULL!=sqlite3_
a310: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b  value_type(argv[
a320: 30 5d 29 29 20 26 26 20 70 20 29 7b 0a 20 20 20  0])) && p ){.   
a330: 20 70 2d 3e 6e 2b 2b 3b 0a 20 20 7d 0a 0a 23 69   p->n++;.  }..#i
a340: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49  fndef SQLITE_OMI
a350: 54 5f 44 45 50 52 45 43 41 54 45 44 0a 20 20 2f  T_DEPRECATED.  /
a360: 2a 20 54 68 65 20 73 71 6c 69 74 65 33 5f 61 67  * The sqlite3_ag
a370: 67 72 65 67 61 74 65 5f 63 6f 75 6e 74 28 29 20  gregate_count() 
a380: 66 75 6e 63 74 69 6f 6e 20 69 73 20 64 65 70 72  function is depr
a390: 65 63 61 74 65 64 2e 20 20 42 75 74 20 6a 75 73  ecated.  But jus
a3a0: 74 20 74 6f 20 6d 61 6b 65 0a 20 20 2a 2a 20 73  t to make.  ** s
a3b0: 75 72 65 20 69 74 20 73 74 69 6c 6c 20 6f 70 65  ure it still ope
a3c0: 72 61 74 65 73 20 63 6f 72 72 65 63 74 6c 79 2c  rates correctly,
a3d0: 20 76 65 72 69 66 79 20 74 68 61 74 20 69 74 73   verify that its
a3e0: 20 63 6f 75 6e 74 20 61 67 72 65 65 73 20 77 69   count agrees wi
a3f0: 74 68 20 6f 75 72 20 0a 20 20 2a 2a 20 69 6e 74  th our .  ** int
a400: 65 72 6e 61 6c 20 63 6f 75 6e 74 20 77 68 65 6e  ernal count when
a410: 20 75 73 69 6e 67 20 63 6f 75 6e 74 28 2a 29 20   using count(*) 
a420: 61 6e 64 20 77 68 65 6e 20 74 68 65 20 74 6f 74  and when the tot
a430: 61 6c 20 63 6f 75 6e 74 20 63 61 6e 20 62 65 0a  al count can be.
a440: 20 20 2a 2a 20 65 78 70 72 65 73 73 65 64 20 61    ** expressed a
a450: 73 20 61 20 33 32 2d 62 69 74 20 69 6e 74 65 67  s a 32-bit integ
a460: 65 72 2e 20 2a 2f 0a 20 20 61 73 73 65 72 74 28  er. */.  assert(
a470: 20 61 72 67 63 3d 3d 31 20 7c 7c 20 70 3d 3d 30   argc==1 || p==0
a480: 20 7c 7c 20 70 2d 3e 6e 3e 30 78 37 66 66 66 66   || p->n>0x7ffff
a490: 66 66 66 0a 20 20 20 20 20 20 20 20 20 20 7c 7c  fff.          ||
a4a0: 20 70 2d 3e 6e 3d 3d 73 71 6c 69 74 65 33 5f 61   p->n==sqlite3_a
a4b0: 67 67 72 65 67 61 74 65 5f 63 6f 75 6e 74 28 63  ggregate_count(c
a4c0: 6f 6e 74 65 78 74 29 20 29 3b 0a 23 65 6e 64 69  ontext) );.#endi
a4d0: 66 0a 7d 20 20 20 0a 73 74 61 74 69 63 20 76 6f  f.}   .static vo
a4e0: 69 64 20 63 6f 75 6e 74 46 69 6e 61 6c 69 7a 65  id countFinalize
a4f0: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74  (sqlite3_context
a500: 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 43 6f   *context){.  Co
a510: 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d  untCtx *p;.  p =
a520: 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61   sqlite3_aggrega
a530: 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65  te_context(conte
a540: 78 74 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65  xt, 0);.  sqlite
a550: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63  3_result_int64(c
a560: 6f 6e 74 65 78 74 2c 20 70 20 3f 20 70 2d 3e 6e  ontext, p ? p->n
a570: 20 3a 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20   : 0);.}../*.** 
a580: 52 6f 75 74 69 6e 65 73 20 74 6f 20 69 6d 70 6c  Routines to impl
a590: 65 6d 65 6e 74 20 6d 69 6e 28 29 20 61 6e 64 20  ement min() and 
a5a0: 6d 61 78 28 29 20 61 67 67 72 65 67 61 74 65 20  max() aggregate 
a5b0: 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2f 0a 73 74  functions..*/.st
a5c0: 61 74 69 63 20 76 6f 69 64 20 6d 69 6e 6d 61 78  atic void minmax
a5d0: 53 74 65 70 28 0a 20 20 73 71 6c 69 74 65 33 5f  Step(.  sqlite3_
a5e0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
a5f0: 2c 20 0a 20 20 69 6e 74 20 4e 6f 74 55 73 65 64  , .  int NotUsed
a600: 2c 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  , .  sqlite3_val
a610: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 4d  ue **argv.){.  M
a620: 65 6d 20 2a 70 41 72 67 20 20 3d 20 28 4d 65 6d  em *pArg  = (Mem
a630: 20 2a 29 61 72 67 76 5b 30 5d 3b 0a 20 20 4d 65   *)argv[0];.  Me
a640: 6d 20 2a 70 42 65 73 74 3b 0a 20 20 55 4e 55 53  m *pBest;.  UNUS
a650: 45 44 5f 50 41 52 41 4d 45 54 45 52 28 4e 6f 74  ED_PARAMETER(Not
a660: 55 73 65 64 29 3b 0a 0a 20 20 70 42 65 73 74 20  Used);..  pBest 
a670: 3d 20 28 4d 65 6d 20 2a 29 73 71 6c 69 74 65 33  = (Mem *)sqlite3
a680: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65  _aggregate_conte
a690: 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65  xt(context, size
a6a0: 6f 66 28 2a 70 42 65 73 74 29 29 3b 0a 20 20 69  of(*pBest));.  i
a6b0: 66 28 20 21 70 42 65 73 74 20 29 20 72 65 74 75  f( !pBest ) retu
a6c0: 72 6e 3b 0a 0a 20 20 69 66 28 20 73 71 6c 69 74  rn;..  if( sqlit
a6d0: 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72  e3_value_type(ar
a6e0: 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e  gv[0])==SQLITE_N
a6f0: 55 4c 4c 20 29 7b 0a 20 20 20 20 69 66 28 20 70  ULL ){.    if( p
a700: 42 65 73 74 2d 3e 66 6c 61 67 73 20 29 20 73 71  Best->flags ) sq
a710: 6c 69 74 65 33 53 6b 69 70 41 63 63 75 6d 75 6c  lite3SkipAccumul
a720: 61 74 6f 72 4c 6f 61 64 28 63 6f 6e 74 65 78 74  atorLoad(context
a730: 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 70  );.  }else if( p
a740: 42 65 73 74 2d 3e 66 6c 61 67 73 20 29 7b 0a 20  Best->flags ){. 
a750: 20 20 20 69 6e 74 20 6d 61 78 3b 0a 20 20 20 20     int max;.    
a760: 69 6e 74 20 63 6d 70 3b 0a 20 20 20 20 43 6f 6c  int cmp;.    Col
a770: 6c 53 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 73 71  lSeq *pColl = sq
a780: 6c 69 74 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c  lite3GetFuncColl
a790: 53 65 71 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20  Seq(context);.  
a7a0: 20 20 2f 2a 20 54 68 69 73 20 73 74 65 70 20 66    /* This step f
a7b0: 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20  unction is used 
a7c0: 66 6f 72 20 62 6f 74 68 20 74 68 65 20 6d 69 6e  for both the min
a7d0: 28 29 20 61 6e 64 20 6d 61 78 28 29 20 61 67 67  () and max() agg
a7e0: 72 65 67 61 74 65 73 2c 0a 20 20 20 20 2a 2a 20  regates,.    ** 
a7f0: 74 68 65 20 6f 6e 6c 79 20 64 69 66 66 65 72 65  the only differe
a800: 6e 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 20  nce between the 
a810: 74 77 6f 20 62 65 69 6e 67 20 74 68 61 74 20 74  two being that t
a820: 68 65 20 73 65 6e 73 65 20 6f 66 20 74 68 65 0a  he sense of the.
a830: 20 20 20 20 2a 2a 20 63 6f 6d 70 61 72 69 73 6f      ** compariso
a840: 6e 20 69 73 20 69 6e 76 65 72 74 65 64 2e 20 46  n is inverted. F
a850: 6f 72 20 74 68 65 20 6d 61 78 28 29 20 61 67 67  or the max() agg
a860: 72 65 67 61 74 65 2c 20 74 68 65 0a 20 20 20 20  regate, the.    
a870: 2a 2a 20 73 71 6c 69 74 65 33 5f 75 73 65 72 5f  ** sqlite3_user_
a880: 64 61 74 61 28 29 20 66 75 6e 63 74 69 6f 6e 20  data() function 
a890: 72 65 74 75 72 6e 73 20 28 76 6f 69 64 20 2a 29  returns (void *)
a8a0: 2d 31 2e 20 46 6f 72 20 6d 69 6e 28 29 20 69 74  -1. For min() it
a8b0: 0a 20 20 20 20 2a 2a 20 72 65 74 75 72 6e 73 20  .    ** returns 
a8c0: 28 76 6f 69 64 20 2a 29 64 62 2c 20 77 68 65 72  (void *)db, wher
a8d0: 65 20 64 62 20 69 73 20 74 68 65 20 73 71 6c 69  e db is the sqli
a8e0: 74 65 33 2a 20 64 61 74 61 62 61 73 65 20 70 6f  te3* database po
a8f0: 69 6e 74 65 72 2e 0a 20 20 20 20 2a 2a 20 54 68  inter..    ** Th
a900: 65 72 65 66 6f 72 65 20 74 68 65 20 6e 65 78 74  erefore the next
a910: 20 73 74 61 74 65 6d 65 6e 74 20 73 65 74 73 20   statement sets 
a920: 76 61 72 69 61 62 6c 65 20 27 6d 61 78 27 20 74  variable 'max' t
a930: 6f 20 31 20 66 6f 72 20 74 68 65 20 6d 61 78 28  o 1 for the max(
a940: 29 0a 20 20 20 20 2a 2a 20 61 67 67 72 65 67 61  ).    ** aggrega
a950: 74 65 2c 20 6f 72 20 30 20 66 6f 72 20 6d 69 6e  te, or 0 for min
a960: 28 29 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 6d  ()..    */.    m
a970: 61 78 20 3d 20 73 71 6c 69 74 65 33 5f 75 73 65  ax = sqlite3_use
a980: 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 21  r_data(context)!
a990: 3d 30 3b 0a 20 20 20 20 63 6d 70 20 3d 20 73 71  =0;.    cmp = sq
a9a0: 6c 69 74 65 33 4d 65 6d 43 6f 6d 70 61 72 65 28  lite3MemCompare(
a9b0: 70 42 65 73 74 2c 20 70 41 72 67 2c 20 70 43 6f  pBest, pArg, pCo
a9c0: 6c 6c 29 3b 0a 20 20 20 20 69 66 28 20 28 6d 61  ll);.    if( (ma
a9d0: 78 20 26 26 20 63 6d 70 3c 30 29 20 7c 7c 20 28  x && cmp<0) || (
a9e0: 21 6d 61 78 20 26 26 20 63 6d 70 3e 30 29 20 29  !max && cmp>0) )
a9f0: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 56  {.      sqlite3V
aa00: 64 62 65 4d 65 6d 43 6f 70 79 28 70 42 65 73 74  dbeMemCopy(pBest
aa10: 2c 20 70 41 72 67 29 3b 0a 20 20 20 20 7d 65 6c  , pArg);.    }el
aa20: 73 65 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65  se{.      sqlite
aa30: 33 53 6b 69 70 41 63 63 75 6d 75 6c 61 74 6f 72  3SkipAccumulator
aa40: 4c 6f 61 64 28 63 6f 6e 74 65 78 74 29 3b 0a 20  Load(context);. 
aa50: 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20 20     }.  }else{.  
aa60: 20 20 73 71 6c 69 74 65 33 56 64 62 65 4d 65 6d    sqlite3VdbeMem
aa70: 43 6f 70 79 28 70 42 65 73 74 2c 20 70 41 72 67  Copy(pBest, pArg
aa80: 29 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63 20  );.  }.}.static 
aa90: 76 6f 69 64 20 6d 69 6e 4d 61 78 46 69 6e 61 6c  void minMaxFinal
aaa0: 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74  ize(sqlite3_cont
aab0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20  ext *context){. 
aac0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
aad0: 70 52 65 73 3b 0a 20 20 70 52 65 73 20 3d 20 28  pRes;.  pRes = (
aae0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 29  sqlite3_value *)
aaf0: 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74  sqlite3_aggregat
ab00: 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78  e_context(contex
ab10: 74 2c 20 30 29 3b 0a 20 20 69 66 28 20 70 52 65  t, 0);.  if( pRe
ab20: 73 20 29 7b 0a 20 20 20 20 69 66 28 20 70 52 65  s ){.    if( pRe
ab30: 73 2d 3e 66 6c 61 67 73 20 29 7b 0a 20 20 20 20  s->flags ){.    
ab40: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
ab50: 5f 76 61 6c 75 65 28 63 6f 6e 74 65 78 74 2c 20  _value(context, 
ab60: 70 52 65 73 29 3b 0a 20 20 20 20 7d 0a 20 20 20  pRes);.    }.   
ab70: 20 73 71 6c 69 74 65 33 56 64 62 65 4d 65 6d 52   sqlite3VdbeMemR
ab80: 65 6c 65 61 73 65 28 70 52 65 73 29 3b 0a 20 20  elease(pRes);.  
ab90: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 67 72 6f 75 70  }.}../*.** group
aba0: 5f 63 6f 6e 63 61 74 28 45 58 50 52 2c 20 3f 53  _concat(EXPR, ?S
abb0: 45 50 41 52 41 54 4f 52 3f 29 0a 2a 2f 0a 73 74  EPARATOR?).*/.st
abc0: 61 74 69 63 20 76 6f 69 64 20 67 72 6f 75 70 43  atic void groupC
abd0: 6f 6e 63 61 74 53 74 65 70 28 0a 20 20 73 71 6c  oncatStep(.  sql
abe0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
abf0: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67  ntext,.  int arg
ac00: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  c,.  sqlite3_val
ac10: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63  ue **argv.){.  c
ac20: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 6c 3b  onst char *zVal;
ac30: 0a 20 20 53 74 72 41 63 63 75 6d 20 2a 70 41 63  .  StrAccum *pAc
ac40: 63 75 6d 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61  cum;.  const cha
ac50: 72 20 2a 7a 53 65 70 3b 0a 20 20 69 6e 74 20 6e  r *zSep;.  int n
ac60: 56 61 6c 2c 20 6e 53 65 70 3b 0a 20 20 61 73 73  Val, nSep;.  ass
ac70: 65 72 74 28 20 61 72 67 63 3d 3d 31 20 7c 7c 20  ert( argc==1 || 
ac80: 61 72 67 63 3d 3d 32 20 29 3b 0a 20 20 69 66 28  argc==2 );.  if(
ac90: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74   sqlite3_value_t
aca0: 79 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51  ype(argv[0])==SQ
acb0: 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75  LITE_NULL ) retu
acc0: 72 6e 3b 0a 20 20 70 41 63 63 75 6d 20 3d 20 28  rn;.  pAccum = (
acd0: 53 74 72 41 63 63 75 6d 2a 29 73 71 6c 69 74 65  StrAccum*)sqlite
ace0: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74  3_aggregate_cont
acf0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 69 7a  ext(context, siz
ad00: 65 6f 66 28 2a 70 41 63 63 75 6d 29 29 3b 0a 0a  eof(*pAccum));..
ad10: 20 20 69 66 28 20 70 41 63 63 75 6d 20 29 7b 0a    if( pAccum ){.
ad20: 20 20 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20      sqlite3 *db 
ad30: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  = sqlite3_contex
ad40: 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74  t_db_handle(cont
ad50: 65 78 74 29 3b 0a 20 20 20 20 69 6e 74 20 66 69  ext);.    int fi
ad60: 72 73 74 54 65 72 6d 20 3d 20 70 41 63 63 75 6d  rstTerm = pAccum
ad70: 2d 3e 75 73 65 4d 61 6c 6c 6f 63 3d 3d 30 3b 0a  ->useMalloc==0;.
ad80: 20 20 20 20 70 41 63 63 75 6d 2d 3e 75 73 65 4d      pAccum->useM
ad90: 61 6c 6c 6f 63 20 3d 20 32 3b 0a 20 20 20 20 70  alloc = 2;.    p
ada0: 41 63 63 75 6d 2d 3e 6d 78 41 6c 6c 6f 63 20 3d  Accum->mxAlloc =
adb0: 20 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49   db->aLimit[SQLI
adc0: 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d  TE_LIMIT_LENGTH]
add0: 3b 0a 20 20 20 20 69 66 28 20 21 66 69 72 73 74  ;.    if( !first
ade0: 54 65 72 6d 20 29 7b 0a 20 20 20 20 20 20 69 66  Term ){.      if
adf0: 28 20 61 72 67 63 3d 3d 32 20 29 7b 0a 20 20 20  ( argc==2 ){.   
ae00: 20 20 20 20 20 7a 53 65 70 20 3d 20 28 63 68 61       zSep = (cha
ae10: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  r*)sqlite3_value
ae20: 5f 74 65 78 74 28 61 72 67 76 5b 31 5d 29 3b 0a  _text(argv[1]);.
ae30: 20 20 20 20 20 20 20 20 6e 53 65 70 20 3d 20 73          nSep = s
ae40: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74  qlite3_value_byt
ae50: 65 73 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20  es(argv[1]);.   
ae60: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
ae70: 20 20 7a 53 65 70 20 3d 20 22 2c 22 3b 0a 20 20    zSep = ",";.  
ae80: 20 20 20 20 20 20 6e 53 65 70 20 3d 20 31 3b 0a        nSep = 1;.
ae90: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66        }.      if
aea0: 28 20 6e 53 65 70 20 29 20 73 71 6c 69 74 65 33  ( nSep ) sqlite3
aeb0: 53 74 72 41 63 63 75 6d 41 70 70 65 6e 64 28 70  StrAccumAppend(p
aec0: 41 63 63 75 6d 2c 20 7a 53 65 70 2c 20 6e 53 65  Accum, zSep, nSe
aed0: 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 56  p);.    }.    zV
aee0: 61 6c 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69  al = (char*)sqli
aef0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
af00: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 6e 56 61  rgv[0]);.    nVa
af10: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  l = sqlite3_valu
af20: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29  e_bytes(argv[0])
af30: 3b 0a 20 20 20 20 69 66 28 20 7a 56 61 6c 20 29  ;.    if( zVal )
af40: 20 73 71 6c 69 74 65 33 53 74 72 41 63 63 75 6d   sqlite3StrAccum
af50: 41 70 70 65 6e 64 28 70 41 63 63 75 6d 2c 20 7a  Append(pAccum, z
af60: 56 61 6c 2c 20 6e 56 61 6c 29 3b 0a 20 20 7d 0a  Val, nVal);.  }.
af70: 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 67 72  }.static void gr
af80: 6f 75 70 43 6f 6e 63 61 74 46 69 6e 61 6c 69 7a  oupConcatFinaliz
af90: 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  e(sqlite3_contex
afa0: 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 53  t *context){.  S
afb0: 74 72 41 63 63 75 6d 20 2a 70 41 63 63 75 6d 3b  trAccum *pAccum;
afc0: 0a 20 20 70 41 63 63 75 6d 20 3d 20 73 71 6c 69  .  pAccum = sqli
afd0: 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f  te3_aggregate_co
afe0: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30  ntext(context, 0
aff0: 29 3b 0a 20 20 69 66 28 20 70 41 63 63 75 6d 20  );.  if( pAccum 
b000: 29 7b 0a 20 20 20 20 69 66 28 20 70 41 63 63 75  ){.    if( pAccu
b010: 6d 2d 3e 61 63 63 45 72 72 6f 72 3d 3d 53 54 52  m->accError==STR
b020: 41 43 43 55 4d 5f 54 4f 4f 42 49 47 20 29 7b 0a  ACCUM_TOOBIG ){.
b030: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65        sqlite3_re
b040: 73 75 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69  sult_error_toobi
b050: 67 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20  g(context);.    
b060: 7d 65 6c 73 65 20 69 66 28 20 70 41 63 63 75 6d  }else if( pAccum
b070: 2d 3e 61 63 63 45 72 72 6f 72 3d 3d 53 54 52 41  ->accError==STRA
b080: 43 43 55 4d 5f 4e 4f 4d 45 4d 20 29 7b 0a 20 20  CCUM_NOMEM ){.  
b090: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
b0a0: 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28 63  lt_error_nomem(c
b0b0: 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 7d 65 6c  ontext);.    }el
b0c0: 73 65 7b 20 20 20 20 0a 20 20 20 20 20 20 73 71  se{    .      sq
b0d0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78  lite3_result_tex
b0e0: 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74  t(context, sqlit
b0f0: 65 33 53 74 72 41 63 63 75 6d 46 69 6e 69 73 68  e3StrAccumFinish
b100: 28 70 41 63 63 75 6d 29 2c 20 2d 31 2c 20 0a 20  (pAccum), -1, . 
b110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
b120: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33           sqlite3
b130: 5f 66 72 65 65 29 3b 0a 20 20 20 20 7d 0a 20 20  _free);.    }.  
b140: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20  }.}../*.** This 
b150: 72 6f 75 74 69 6e 65 20 64 6f 65 73 20 70 65 72  routine does per
b160: 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 75 6e 63  -connection func
b170: 74 69 6f 6e 20 72 65 67 69 73 74 72 61 74 69 6f  tion registratio
b180: 6e 2e 20 20 4d 6f 73 74 0a 2a 2a 20 6f 66 20 74  n.  Most.** of t
b190: 68 65 20 62 75 69 6c 74 2d 69 6e 20 66 75 6e 63  he built-in func
b1a0: 74 69 6f 6e 73 20 61 62 6f 76 65 20 61 72 65 20  tions above are 
b1b0: 70 61 72 74 20 6f 66 20 74 68 65 20 67 6c 6f 62  part of the glob
b1c0: 61 6c 20 66 75 6e 63 74 69 6f 6e 20 73 65 74 2e  al function set.
b1d0: 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65  .** This routine
b1e0: 20 6f 6e 6c 79 20 64 65 61 6c 73 20 77 69 74 68   only deals with
b1f0: 20 74 68 6f 73 65 20 74 68 61 74 20 61 72 65 20   those that are 
b200: 6e 6f 74 20 67 6c 6f 62 61 6c 2e 0a 2a 2f 0a 76  not global..*/.v
b210: 6f 69 64 20 73 71 6c 69 74 65 33 52 65 67 69 73  oid sqlite3Regis
b220: 74 65 72 42 75 69 6c 74 69 6e 46 75 6e 63 74 69  terBuiltinFuncti
b230: 6f 6e 73 28 73 71 6c 69 74 65 33 20 2a 64 62 29  ons(sqlite3 *db)
b240: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 73 71 6c  {.  int rc = sql
b250: 69 74 65 33 5f 6f 76 65 72 6c 6f 61 64 5f 66 75  ite3_overload_fu
b260: 6e 63 74 69 6f 6e 28 64 62 2c 20 22 4d 41 54 43  nction(db, "MATC
b270: 48 22 2c 20 32 29 3b 0a 20 20 61 73 73 65 72 74  H", 2);.  assert
b280: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4e 4f 4d  ( rc==SQLITE_NOM
b290: 45 4d 20 7c 7c 20 72 63 3d 3d 53 51 4c 49 54 45  EM || rc==SQLITE
b2a0: 5f 4f 4b 20 29 3b 0a 20 20 69 66 28 20 72 63 3d  _OK );.  if( rc=
b2b0: 3d 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 20 29 7b  =SQLITE_NOMEM ){
b2c0: 0a 20 20 20 20 64 62 2d 3e 6d 61 6c 6c 6f 63 46  .    db->mallocF
b2d0: 61 69 6c 65 64 20 3d 20 31 3b 0a 20 20 7d 0a 7d  ailed = 1;.  }.}
b2e0: 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20  ../*.** Set the 
b2f0: 4c 49 4b 45 4f 50 54 20 66 6c 61 67 20 6f 6e 20  LIKEOPT flag on 
b300: 74 68 65 20 32 2d 61 72 67 75 6d 65 6e 74 20 66  the 2-argument f
b310: 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65  unction with the
b320: 20 67 69 76 65 6e 20 6e 61 6d 65 2e 0a 2a 2f 0a   given name..*/.
b330: 73 74 61 74 69 63 20 76 6f 69 64 20 73 65 74 4c  static void setL
b340: 69 6b 65 4f 70 74 46 6c 61 67 28 73 71 6c 69 74  ikeOptFlag(sqlit
b350: 65 33 20 2a 64 62 2c 20 63 6f 6e 73 74 20 63 68  e3 *db, const ch
b360: 61 72 20 2a 7a 4e 61 6d 65 2c 20 75 38 20 66 6c  ar *zName, u8 fl
b370: 61 67 56 61 6c 29 7b 0a 20 20 46 75 6e 63 44 65  agVal){.  FuncDe
b380: 66 20 2a 70 44 65 66 3b 0a 20 20 70 44 65 66 20  f *pDef;.  pDef 
b390: 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e  = sqlite3FindFun
b3a0: 63 74 69 6f 6e 28 64 62 2c 20 7a 4e 61 6d 65 2c  ction(db, zName,
b3b0: 20 73 71 6c 69 74 65 33 53 74 72 6c 65 6e 33 30   sqlite3Strlen30
b3c0: 28 7a 4e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20  (zName),.       
b3d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
b3e0: 20 20 20 20 20 20 32 2c 20 53 51 4c 49 54 45 5f        2, SQLITE_
b3f0: 55 54 46 38 2c 20 30 29 3b 0a 20 20 69 66 28 20  UTF8, 0);.  if( 
b400: 41 4c 57 41 59 53 28 70 44 65 66 29 20 29 7b 0a  ALWAYS(pDef) ){.
b410: 20 20 20 20 70 44 65 66 2d 3e 66 75 6e 63 46 6c      pDef->funcFl
b420: 61 67 73 20 7c 3d 20 66 6c 61 67 56 61 6c 3b 0a  ags |= flagVal;.
b430: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 67    }.}../*.** Reg
b440: 69 73 74 65 72 20 74 68 65 20 62 75 69 6c 74 2d  ister the built-
b450: 69 6e 20 4c 49 4b 45 20 61 6e 64 20 47 4c 4f 42  in LIKE and GLOB
b460: 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 54 68 65   functions.  The
b470: 20 63 61 73 65 53 65 6e 73 69 74 69 76 65 0a 2a   caseSensitive.*
b480: 2a 20 70 61 72 61 6d 65 74 65 72 20 64 65 74 65  * parameter dete
b490: 72 6d 69 6e 65 73 20 77 68 65 74 68 65 72 20 6f  rmines whether o
b4a0: 72 20 6e 6f 74 20 74 68 65 20 4c 49 4b 45 20 6f  r not the LIKE o
b4b0: 70 65 72 61 74 6f 72 20 69 73 20 63 61 73 65 0a  perator is case.
b4c0: 2a 2a 20 73 65 6e 73 69 74 69 76 65 2e 20 20 47  ** sensitive.  G
b4d0: 4c 4f 42 20 69 73 20 61 6c 77 61 79 73 20 63 61  LOB is always ca
b4e0: 73 65 20 73 65 6e 73 69 74 69 76 65 2e 0a 2a 2f  se sensitive..*/
b4f0: 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 52 65 67  .void sqlite3Reg
b500: 69 73 74 65 72 4c 69 6b 65 46 75 6e 63 74 69 6f  isterLikeFunctio
b510: 6e 73 28 73 71 6c 69 74 65 33 20 2a 64 62 2c 20  ns(sqlite3 *db, 
b520: 69 6e 74 20 63 61 73 65 53 65 6e 73 69 74 69 76  int caseSensitiv
b530: 65 29 7b 0a 20 20 73 74 72 75 63 74 20 63 6f 6d  e){.  struct com
b540: 70 61 72 65 49 6e 66 6f 20 2a 70 49 6e 66 6f 3b  pareInfo *pInfo;
b550: 0a 20 20 69 66 28 20 63 61 73 65 53 65 6e 73 69  .  if( caseSensi
b560: 74 69 76 65 20 29 7b 0a 20 20 20 20 70 49 6e 66  tive ){.    pInf
b570: 6f 20 3d 20 28 73 74 72 75 63 74 20 63 6f 6d 70  o = (struct comp
b580: 61 72 65 49 6e 66 6f 2a 29 26 6c 69 6b 65 49 6e  areInfo*)&likeIn
b590: 66 6f 41 6c 74 3b 0a 20 20 7d 65 6c 73 65 7b 0a  foAlt;.  }else{.
b5a0: 20 20 20 20 70 49 6e 66 6f 20 3d 20 28 73 74 72      pInfo = (str
b5b0: 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 2a  uct compareInfo*
b5c0: 29 26 6c 69 6b 65 49 6e 66 6f 4e 6f 72 6d 3b 0a  )&likeInfoNorm;.
b5d0: 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 43 72 65    }.  sqlite3Cre
b5e0: 61 74 65 46 75 6e 63 28 64 62 2c 20 22 6c 69 6b  ateFunc(db, "lik
b5f0: 65 22 2c 20 32 2c 20 53 51 4c 49 54 45 5f 55 54  e", 2, SQLITE_UT
b600: 46 38 2c 20 70 49 6e 66 6f 2c 20 6c 69 6b 65 46  F8, pInfo, likeF
b610: 75 6e 63 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20  unc, 0, 0, 0);. 
b620: 20 73 71 6c 69 74 65 33 43 72 65 61 74 65 46 75   sqlite3CreateFu
b630: 6e 63 28 64 62 2c 20 22 6c 69 6b 65 22 2c 20 33  nc(db, "like", 3
b640: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 70  , SQLITE_UTF8, p
b650: 49 6e 66 6f 2c 20 6c 69 6b 65 46 75 6e 63 2c 20  Info, likeFunc, 
b660: 30 2c 20 30 2c 20 30 29 3b 0a 20 20 73 71 6c 69  0, 0, 0);.  sqli
b670: 74 65 33 43 72 65 61 74 65 46 75 6e 63 28 64 62  te3CreateFunc(db
b680: 2c 20 22 67 6c 6f 62 22 2c 20 32 2c 20 53 51 4c  , "glob", 2, SQL
b690: 49 54 45 5f 55 54 46 38 2c 20 0a 20 20 20 20 20  ITE_UTF8, .     
b6a0: 20 28 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65   (struct compare
b6b0: 49 6e 66 6f 2a 29 26 67 6c 6f 62 49 6e 66 6f 2c  Info*)&globInfo,
b6c0: 20 6c 69 6b 65 46 75 6e 63 2c 20 30 2c 20 30 2c   likeFunc, 0, 0,
b6d0: 20 30 29 3b 0a 20 20 73 65 74 4c 69 6b 65 4f 70   0);.  setLikeOp
b6e0: 74 46 6c 61 67 28 64 62 2c 20 22 67 6c 6f 62 22  tFlag(db, "glob"
b6f0: 2c 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c 49  , SQLITE_FUNC_LI
b700: 4b 45 20 7c 20 53 51 4c 49 54 45 5f 46 55 4e 43  KE | SQLITE_FUNC
b710: 5f 43 41 53 45 29 3b 0a 20 20 73 65 74 4c 69 6b  _CASE);.  setLik
b720: 65 4f 70 74 46 6c 61 67 28 64 62 2c 20 22 6c 69  eOptFlag(db, "li
b730: 6b 65 22 2c 20 0a 20 20 20 20 20 20 63 61 73 65  ke", .      case
b740: 53 65 6e 73 69 74 69 76 65 20 3f 20 28 53 51 4c  Sensitive ? (SQL
b750: 49 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 20 7c 20  ITE_FUNC_LIKE | 
b760: 53 51 4c 49 54 45 5f 46 55 4e 43 5f 43 41 53 45  SQLITE_FUNC_CASE
b770: 29 20 3a 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f  ) : SQLITE_FUNC_
b780: 4c 49 4b 45 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  LIKE);.}../*.** 
b790: 70 45 78 70 72 20 70 6f 69 6e 74 73 20 74 6f 20  pExpr points to 
b7a0: 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 77 68  an expression wh
b7b0: 69 63 68 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61  ich implements a
b7c0: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 66 0a 2a   function.  If.*
b7d0: 2a 20 69 74 20 69 73 20 61 70 70 72 6f 70 72 69  * it is appropri
b7e0: 61 74 65 20 74 6f 20 61 70 70 6c 79 20 74 68 65  ate to apply the
b7f0: 20 4c 49 4b 45 20 6f 70 74 69 6d 69 7a 61 74 69   LIKE optimizati
b800: 6f 6e 20 74 6f 20 74 68 61 74 20 66 75 6e 63 74  on to that funct
b810: 69 6f 6e 0a 2a 2a 20 74 68 65 6e 20 73 65 74 20  ion.** then set 
b820: 61 57 63 5b 30 5d 20 74 68 72 6f 75 67 68 20 61  aWc[0] through a
b830: 57 63 5b 32 5d 20 74 6f 20 74 68 65 20 77 69 6c  Wc[2] to the wil
b840: 64 63 61 72 64 20 63 68 61 72 61 63 74 65 72 73  dcard characters
b850: 20 61 6e 64 0a 2a 2a 20 72 65 74 75 72 6e 20 54   and.** return T
b860: 52 55 45 2e 20 20 49 66 20 74 68 65 20 66 75 6e  RUE.  If the fun
b870: 63 74 69 6f 6e 20 69 73 20 6e 6f 74 20 61 20 4c  ction is not a L
b880: 49 4b 45 2d 73 74 79 6c 65 20 66 75 6e 63 74 69  IKE-style functi
b890: 6f 6e 20 74 68 65 6e 0a 2a 2a 20 72 65 74 75 72  on then.** retur
b8a0: 6e 20 46 41 4c 53 45 2e 0a 2a 2f 0a 69 6e 74 20  n FALSE..*/.int 
b8b0: 73 71 6c 69 74 65 33 49 73 4c 69 6b 65 46 75 6e  sqlite3IsLikeFun
b8c0: 63 74 69 6f 6e 28 73 71 6c 69 74 65 33 20 2a 64  ction(sqlite3 *d
b8d0: 62 2c 20 45 78 70 72 20 2a 70 45 78 70 72 2c 20  b, Expr *pExpr, 
b8e0: 69 6e 74 20 2a 70 49 73 4e 6f 63 61 73 65 2c 20  int *pIsNocase, 
b8f0: 63 68 61 72 20 2a 61 57 63 29 7b 0a 20 20 46 75  char *aWc){.  Fu
b900: 6e 63 44 65 66 20 2a 70 44 65 66 3b 0a 20 20 69  ncDef *pDef;.  i
b910: 66 28 20 70 45 78 70 72 2d 3e 6f 70 21 3d 54 4b  f( pExpr->op!=TK
b920: 5f 46 55 4e 43 54 49 4f 4e 20 0a 20 20 20 7c 7c  _FUNCTION .   ||
b930: 20 21 70 45 78 70 72 2d 3e 78 2e 70 4c 69 73 74   !pExpr->x.pList
b940: 20 0a 20 20 20 7c 7c 20 70 45 78 70 72 2d 3e 78   .   || pExpr->x
b950: 2e 70 4c 69 73 74 2d 3e 6e 45 78 70 72 21 3d 32  .pList->nExpr!=2
b960: 0a 20 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  .  ){.    return
b970: 20 30 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74   0;.  }.  assert
b980: 28 20 21 45 78 70 72 48 61 73 50 72 6f 70 65 72  ( !ExprHasProper
b990: 74 79 28 70 45 78 70 72 2c 20 45 50 5f 78 49 73  ty(pExpr, EP_xIs
b9a0: 53 65 6c 65 63 74 29 20 29 3b 0a 20 20 70 44 65  Select) );.  pDe
b9b0: 66 20 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 46  f = sqlite3FindF
b9c0: 75 6e 63 74 69 6f 6e 28 64 62 2c 20 70 45 78 70  unction(db, pExp
b9d0: 72 2d 3e 75 2e 7a 54 6f 6b 65 6e 2c 20 0a 20 20  r->u.zToken, .  
b9e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
b9f0: 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74             sqlit
ba00: 65 33 53 74 72 6c 65 6e 33 30 28 70 45 78 70 72  e3Strlen30(pExpr
ba10: 2d 3e 75 2e 7a 54 6f 6b 65 6e 29 2c 0a 20 20 20  ->u.zToken),.   
ba20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ba30: 20 20 20 20 20 20 20 20 20 20 32 2c 20 53 51 4c            2, SQL
ba40: 49 54 45 5f 55 54 46 38 2c 20 30 29 3b 0a 20 20  ITE_UTF8, 0);.  
ba50: 69 66 28 20 4e 45 56 45 52 28 70 44 65 66 3d 3d  if( NEVER(pDef==
ba60: 30 29 20 7c 7c 20 28 70 44 65 66 2d 3e 66 75 6e  0) || (pDef->fun
ba70: 63 46 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f  cFlags & SQLITE_
ba80: 46 55 4e 43 5f 4c 49 4b 45 29 3d 3d 30 20 29 7b  FUNC_LIKE)==0 ){
ba90: 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20  .    return 0;. 
baa0: 20 7d 0a 0a 20 20 2f 2a 20 54 68 65 20 6d 65 6d   }..  /* The mem
bab0: 63 70 79 28 29 20 73 74 61 74 65 6d 65 6e 74 20  cpy() statement 
bac0: 61 73 73 75 6d 65 73 20 74 68 61 74 20 74 68 65  assumes that the
bad0: 20 77 69 6c 64 63 61 72 64 20 63 68 61 72 61 63   wildcard charac
bae0: 74 65 72 73 20 61 72 65 0a 20 20 2a 2a 20 74 68  ters are.  ** th
baf0: 65 20 66 69 72 73 74 20 74 68 72 65 65 20 73 74  e first three st
bb00: 61 74 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20  atements in the 
bb10: 63 6f 6d 70 61 72 65 49 6e 66 6f 20 73 74 72 75  compareInfo stru
bb20: 63 74 75 72 65 2e 20 20 54 68 65 0a 20 20 2a 2a  cture.  The.  **
bb30: 20 61 73 73 65 72 74 73 28 29 20 74 68 61 74 20   asserts() that 
bb40: 66 6f 6c 6c 6f 77 20 76 65 72 69 66 79 20 74 68  follow verify th
bb50: 61 74 20 61 73 73 75 6d 70 74 69 6f 6e 0a 20 20  at assumption.  
bb60: 2a 2f 0a 20 20 6d 65 6d 63 70 79 28 61 57 63 2c  */.  memcpy(aWc,
bb70: 20 70 44 65 66 2d 3e 70 55 73 65 72 44 61 74 61   pDef->pUserData
bb80: 2c 20 33 29 3b 0a 20 20 61 73 73 65 72 74 28 20  , 3);.  assert( 
bb90: 28 63 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 6f  (char*)&likeInfo
bba0: 41 6c 74 20 3d 3d 20 28 63 68 61 72 2a 29 26 6c  Alt == (char*)&l
bbb0: 69 6b 65 49 6e 66 6f 41 6c 74 2e 6d 61 74 63 68  ikeInfoAlt.match
bbc0: 41 6c 6c 20 29 3b 0a 20 20 61 73 73 65 72 74 28  All );.  assert(
bbd0: 20 26 28 28 63 68 61 72 2a 29 26 6c 69 6b 65 49   &((char*)&likeI
bbe0: 6e 66 6f 41 6c 74 29 5b 31 5d 20 3d 3d 20 28 63  nfoAlt)[1] == (c
bbf0: 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c  har*)&likeInfoAl
bc00: 74 2e 6d 61 74 63 68 4f 6e 65 20 29 3b 0a 20 20  t.matchOne );.  
bc10: 61 73 73 65 72 74 28 20 26 28 28 63 68 61 72 2a  assert( &((char*
bc20: 29 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 29 5b 32  )&likeInfoAlt)[2
bc30: 5d 20 3d 3d 20 28 63 68 61 72 2a 29 26 6c 69 6b  ] == (char*)&lik
bc40: 65 49 6e 66 6f 41 6c 74 2e 6d 61 74 63 68 53 65  eInfoAlt.matchSe
bc50: 74 20 29 3b 0a 20 20 2a 70 49 73 4e 6f 63 61 73  t );.  *pIsNocas
bc60: 65 20 3d 20 28 70 44 65 66 2d 3e 66 75 6e 63 46  e = (pDef->funcF
bc70: 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f 46 55  lags & SQLITE_FU
bc80: 4e 43 5f 43 41 53 45 29 3d 3d 30 3b 0a 20 20 72  NC_CASE)==0;.  r
bc90: 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a  eturn 1;.}../*.*
bca0: 2a 20 41 6c 6c 20 61 6c 6c 20 6f 66 20 74 68 65  * All all of the
bcb0: 20 46 75 6e 63 44 65 66 20 73 74 72 75 63 74 75   FuncDef structu
bcc0: 72 65 73 20 69 6e 20 74 68 65 20 61 42 75 69 6c  res in the aBuil
bcd0: 74 69 6e 46 75 6e 63 5b 5d 20 61 72 72 61 79 20  tinFunc[] array 
bce0: 61 62 6f 76 65 0a 2a 2a 20 74 6f 20 74 68 65 20  above.** to the 
bcf0: 67 6c 6f 62 61 6c 20 66 75 6e 63 74 69 6f 6e 20  global function 
bd00: 68 61 73 68 20 74 61 62 6c 65 2e 20 20 54 68 69  hash table.  Thi
bd10: 73 20 6f 63 63 75 72 73 20 61 74 20 73 74 61 72  s occurs at star
bd20: 74 2d 74 69 6d 65 20 28 61 73 0a 2a 2a 20 61 20  t-time (as.** a 
bd30: 63 6f 6e 73 65 71 75 65 6e 63 65 20 6f 66 20 63  consequence of c
bd40: 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 69  alling sqlite3_i
bd50: 6e 69 74 69 61 6c 69 7a 65 28 29 29 2e 0a 2a 2a  nitialize())..**
bd60: 0a 2a 2a 20 41 66 74 65 72 20 74 68 69 73 20 72  .** After this r
bd70: 6f 75 74 69 6e 65 20 72 75 6e 73 0a 2a 2f 0a 76  outine runs.*/.v
bd80: 6f 69 64 20 73 71 6c 69 74 65 33 52 65 67 69 73  oid sqlite3Regis
bd90: 74 65 72 47 6c 6f 62 61 6c 46 75 6e 63 74 69 6f  terGlobalFunctio
bda0: 6e 73 28 76 6f 69 64 29 7b 0a 20 20 2f 2a 0a 20  ns(void){.  /*. 
bdb0: 20 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e   ** The followin
bdc0: 67 20 61 72 72 61 79 20 68 6f 6c 64 73 20 46 75  g array holds Fu
bdd0: 6e 63 44 65 66 20 73 74 72 75 63 74 75 72 65 73  ncDef structures
bde0: 20 66 6f 72 20 61 6c 6c 20 6f 66 20 74 68 65 20   for all of the 
bdf0: 66 75 6e 63 74 69 6f 6e 73 0a 20 20 2a 2a 20 64  functions.  ** d
be00: 65 66 69 6e 65 64 20 69 6e 20 74 68 69 73 20 66  efined in this f
be10: 69 6c 65 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 54  ile..  **.  ** T
be20: 68 65 20 61 72 72 61 79 20 63 61 6e 6e 6f 74 20  he array cannot 
be30: 62 65 20 63 6f 6e 73 74 61 6e 74 20 73 69 6e 63  be constant sinc
be40: 65 20 63 68 61 6e 67 65 73 20 61 72 65 20 6d 61  e changes are ma
be50: 64 65 20 74 6f 20 74 68 65 0a 20 20 2a 2a 20 46  de to the.  ** F
be60: 75 6e 63 44 65 66 2e 70 48 61 73 68 20 65 6c 65  uncDef.pHash ele
be70: 6d 65 6e 74 73 20 61 74 20 73 74 61 72 74 2d 74  ments at start-t
be80: 69 6d 65 2e 20 20 54 68 65 20 65 6c 65 6d 65 6e  ime.  The elemen
be90: 74 73 20 6f 66 20 74 68 69 73 20 61 72 72 61 79  ts of this array
bea0: 0a 20 20 2a 2a 20 61 72 65 20 72 65 61 64 2d 6f  .  ** are read-o
beb0: 6e 6c 79 20 61 66 74 65 72 20 69 6e 69 74 69 61  nly after initia
bec0: 6c 69 7a 61 74 69 6f 6e 20 69 73 20 63 6f 6d 70  lization is comp
bed0: 6c 65 74 65 2e 0a 20 20 2a 2f 0a 20 20 73 74 61  lete..  */.  sta
bee0: 74 69 63 20 53 51 4c 49 54 45 5f 57 53 44 20 46  tic SQLITE_WSD F
bef0: 75 6e 63 44 65 66 20 61 42 75 69 6c 74 69 6e 46  uncDef aBuiltinF
bf00: 75 6e 63 5b 5d 20 3d 20 7b 0a 20 20 20 20 46 55  unc[] = {.    FU
bf10: 4e 43 54 49 4f 4e 28 6c 74 72 69 6d 2c 20 20 20  NCTION(ltrim,   
bf20: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 31 2c             1, 1,
bf30: 20 30 2c 20 74 72 69 6d 46 75 6e 63 20 20 20 20   0, trimFunc    
bf40: 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43       ),.    FUNC
bf50: 54 49 4f 4e 28 6c 74 72 69 6d 2c 20 20 20 20 20  TION(ltrim,     
bf60: 20 20 20 20 20 20 20 20 20 32 2c 20 31 2c 20 30           2, 1, 0
bf70: 2c 20 74 72 69 6d 46 75 6e 63 20 20 20 20 20 20  , trimFunc      
bf80: 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49     ),.    FUNCTI
bf90: 4f 4e 28 72 74 72 69 6d 2c 20 20 20 20 20 20 20  ON(rtrim,       
bfa0: 20 20 20 20 20 20 20 31 2c 20 32 2c 20 30 2c 20         1, 2, 0, 
bfb0: 74 72 69 6d 46 75 6e 63 20 20 20 20 20 20 20 20  trimFunc        
bfc0: 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e   ),.    FUNCTION
bfd0: 28 72 74 72 69 6d 2c 20 20 20 20 20 20 20 20 20  (rtrim,         
bfe0: 20 20 20 20 20 32 2c 20 32 2c 20 30 2c 20 74 72       2, 2, 0, tr
bff0: 69 6d 46 75 6e 63 20 20 20 20 20 20 20 20 20 29  imFunc         )
c000: 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 74  ,.    FUNCTION(t
c010: 72 69 6d 2c 20 20 20 20 20 20 20 20 20 20 20 20  rim,            
c020: 20 20 20 31 2c 20 33 2c 20 30 2c 20 74 72 69 6d     1, 3, 0, trim
c030: 46 75 6e 63 20 20 20 20 20 20 20 20 20 29 2c 0a  Func         ),.
c040: 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 74 72 69      FUNCTION(tri
c050: 6d 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  m,              
c060: 20 32 2c 20 33 2c 20 30 2c 20 74 72 69 6d 46 75   2, 3, 0, trimFu
c070: 6e 63 20 20 20 20 20 20 20 20 20 29 2c 0a 20 20  nc         ),.  
c080: 20 20 46 55 4e 43 54 49 4f 4e 28 6d 69 6e 2c 20    FUNCTION(min, 
c090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31                -1
c0a0: 2c 20 30 2c 20 31 2c 20 6d 69 6e 6d 61 78 46 75  , 0, 1, minmaxFu
c0b0: 6e 63 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20  nc       ),.    
c0c0: 46 55 4e 43 54 49 4f 4e 28 6d 69 6e 2c 20 20 20  FUNCTION(min,   
c0d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2c 20               0, 
c0e0: 30 2c 20 31 2c 20 30 20 20 20 20 20 20 20 20 20  0, 1, 0         
c0f0: 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 41 47         ),.    AG
c100: 47 52 45 47 41 54 45 28 6d 69 6e 2c 20 20 20 20  GREGATE(min,    
c110: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c             1, 0,
c120: 20 31 2c 20 6d 69 6e 6d 61 78 53 74 65 70 2c 20   1, minmaxStep, 
c130: 20 20 20 20 20 6d 69 6e 4d 61 78 46 69 6e 61 6c       minMaxFinal
c140: 69 7a 65 20 29 2c 0a 20 20 20 20 46 55 4e 43 54  ize ),.    FUNCT
c150: 49 4f 4e 28 6d 61 78 2c 20 20 20 20 20 20 20 20  ION(max,        
c160: 20 20 20 20 20 20 20 2d 31 2c 20 31 2c 20 31 2c         -1, 1, 1,
c170: 20 6d 69 6e 6d 61 78 46 75 6e 63 20 20 20 20 20   minmaxFunc     
c180: 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f    ),.    FUNCTIO
c190: 4e 28 6d 61 78 2c 20 20 20 20 20 20 20 20 20 20  N(max,          
c1a0: 20 20 20 20 20 20 30 2c 20 31 2c 20 31 2c 20 30        0, 1, 1, 0
c1b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
c1c0: 29 2c 0a 20 20 20 20 41 47 47 52 45 47 41 54 45  ),.    AGGREGATE
c1d0: 28 6d 61 78 2c 20 20 20 20 20 20 20 20 20 20 20  (max,           
c1e0: 20 20 20 20 31 2c 20 31 2c 20 31 2c 20 6d 69 6e      1, 1, 1, min
c1f0: 6d 61 78 53 74 65 70 2c 20 20 20 20 20 20 6d 69  maxStep,      mi
c200: 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 20 29 2c 0a  nMaxFinalize ),.
c210: 20 20 20 20 46 55 4e 43 54 49 4f 4e 32 28 74 79      FUNCTION2(ty
c220: 70 65 6f 66 2c 20 20 20 20 20 20 20 20 20 20 20  peof,           
c230: 20 31 2c 20 30 2c 20 30 2c 20 74 79 70 65 6f 66   1, 0, 0, typeof
c240: 46 75 6e 63 2c 20 20 53 51 4c 49 54 45 5f 46 55  Func,  SQLITE_FU
c250: 4e 43 5f 54 59 50 45 4f 46 29 2c 0a 20 20 20 20  NC_TYPEOF),.    
c260: 46 55 4e 43 54 49 4f 4e 32 28 6c 65 6e 67 74 68  FUNCTION2(length
c270: 2c 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20  ,            1, 
c280: 30 2c 20 30 2c 20 6c 65 6e 67 74 68 46 75 6e 63  0, 0, lengthFunc
c290: 2c 20 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c  ,  SQLITE_FUNC_L
c2a0: 45 4e 47 54 48 29 2c 0a 20 20 20 20 46 55 4e 43  ENGTH),.    FUNC
c2b0: 54 49 4f 4e 28 69 6e 73 74 72 2c 20 20 20 20 20  TION(instr,     
c2c0: 20 20 20 20 20 20 20 20 20 32 2c 20 30 2c 20 30           2, 0, 0
c2d0: 2c 20 69 6e 73 74 72 46 75 6e 63 20 20 20 20 20  , instrFunc     
c2e0: 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49     ),.    FUNCTI
c2f0: 4f 4e 28 73 75 62 73 74 72 2c 20 20 20 20 20 20  ON(substr,      
c300: 20 20 20 20 20 20 20 32 2c 20 30 2c 20 30 2c 20         2, 0, 0, 
c310: 73 75 62 73 74 72 46 75 6e 63 20 20 20 20 20 20  substrFunc      
c320: 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e   ),.    FUNCTION
c330: 28 73 75 62 73 74 72 2c 20 20 20 20 20 20 20 20  (substr,        
c340: 20 20 20 20 20 33 2c 20 30 2c 20 30 2c 20 73 75       3, 0, 0, su
c350: 62 73 74 72 46 75 6e 63 20 20 20 20 20 20 20 29  bstrFunc       )
c360: 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 70  ,.    FUNCTION(p
c370: 72 69 6e 74 66 2c 20 20 20 20 20 20 20 20 20 20  rintf,          
c380: 20 20 2d 31 2c 20 30 2c 20 30 2c 20 70 72 69 6e    -1, 0, 0, prin
c390: 74 66 46 75 6e 63 20 20 20 20 20 20 20 29 2c 0a  tfFunc       ),.
c3a0: 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 75 6e 69      FUNCTION(uni
c3b0: 63 6f 64 65 2c 20 20 20 20 20 20 20 20 20 20 20  code,           
c3c0: 20 31 2c 20 30 2c 20 30 2c 20 75 6e 69 63 6f 64   1, 0, 0, unicod
c3d0: 65 46 75 6e 63 20 20 20 20 20 20 29 2c 0a 20 20  eFunc      ),.  
c3e0: 20 20 46 55 4e 43 54 49 4f 4e 28 63 68 61 72 2c    FUNCTION(char,
c3f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31                -1
c400: 2c 20 30 2c 20 30 2c 20 63 68 61 72 46 75 6e 63  , 0, 0, charFunc
c410: 20 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20           ),.    
c420: 46 55 4e 43 54 49 4f 4e 28 61 62 73 2c 20 20 20  FUNCTION(abs,   
c430: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20               1, 
c440: 30 2c 20 30 2c 20 61 62 73 46 75 6e 63 20 20 20  0, 0, absFunc   
c450: 20 20 20 20 20 20 20 29 2c 0a 23 69 66 6e 64 65         ),.#ifnde
c460: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 46 4c  f SQLITE_OMIT_FL
c470: 4f 41 54 49 4e 47 5f 50 4f 49 4e 54 0a 20 20 20  OATING_POINT.   
c480: 20 46 55 4e 43 54 49 4f 4e 28 72 6f 75 6e 64 2c   FUNCTION(round,
c490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c                1,
c4a0: 20 30 2c 20 30 2c 20 72 6f 75 6e 64 46 75 6e 63   0, 0, roundFunc
c4b0: 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46          ),.    F
c4c0: 55 4e 43 54 49 4f 4e 28 72 6f 75 6e 64 2c 20 20  UNCTION(round,  
c4d0: 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 30              2, 0
c4e0: 2c 20 30 2c 20 72 6f 75 6e 64 46 75 6e 63 20 20  , 0, roundFunc  
c4f0: 20 20 20 20 20 20 29 2c 0a 23 65 6e 64 69 66 0a        ),.#endif.
c500: 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 75 70 70      FUNCTION(upp
c510: 65 72 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  er,             
c520: 20 31 2c 20 30 2c 20 30 2c 20 75 70 70 65 72 46   1, 0, 0, upperF
c530: 75 6e 63 20 20 20 20 20 20 20 20 29 2c 0a 20 20  unc        ),.  
c540: 20 20 46 55 4e 43 54 49 4f 4e 28 6c 6f 77 65 72    FUNCTION(lower
c550: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31  ,              1
c560: 2c 20 30 2c 20 30 2c 20 6c 6f 77 65 72 46 75 6e  , 0, 0, lowerFun
c570: 63 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20  c        ),.    
c580: 46 55 4e 43 54 49 4f 4e 28 63 6f 61 6c 65 73 63  FUNCTION(coalesc
c590: 65 2c 20 20 20 20 20 20 20 20 20 20 20 31 2c 20  e,           1, 
c5a0: 30 2c 20 30 2c 20 30 20 20 20 20 20 20 20 20 20  0, 0, 0         
c5b0: 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55         ),.    FU
c5c0: 4e 43 54 49 4f 4e 28 63 6f 61 6c 65 73 63 65 2c  NCTION(coalesce,
c5d0: 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c             0, 0,
c5e0: 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 20   0, 0           
c5f0: 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43       ),.    FUNC
c600: 54 49 4f 4e 32 28 63 6f 61 6c 65 73 63 65 2c 20  TION2(coalesce, 
c610: 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 30          -1, 0, 0
c620: 2c 20 6e 6f 6f 70 46 75 6e 63 2c 20 20 53 51 4c  , noopFunc,  SQL
c630: 49 54 45 5f 46 55 4e 43 5f 43 4f 41 4c 45 53 43  ITE_FUNC_COALESC
c640: 45 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e  E),.    FUNCTION
c650: 28 68 65 78 2c 20 20 20 20 20 20 20 20 20 20 20  (hex,           
c660: 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 68 65       1, 0, 0, he
c670: 78 46 75 6e 63 20 20 20 20 20 20 20 20 20 20 29  xFunc          )
c680: 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 32 28  ,.    FUNCTION2(
c690: 69 66 6e 75 6c 6c 2c 20 20 20 20 20 20 20 20 20  ifnull,         
c6a0: 20 20 20 32 2c 20 30 2c 20 30 2c 20 6e 6f 6f 70     2, 0, 0, noop
c6b0: 46 75 6e 63 2c 20 20 53 51 4c 49 54 45 5f 46 55  Func,  SQLITE_FU
c6c0: 4e 43 5f 43 4f 41 4c 45 53 43 45 29 2c 0a 20 20  NC_COALESCE),.  
c6d0: 20 20 46 55 4e 43 54 49 4f 4e 32 28 75 6e 6c 69    FUNCTION2(unli
c6e0: 6b 65 6c 79 2c 20 20 20 20 20 20 20 20 20 20 31  kely,          1
c6f0: 2c 20 30 2c 20 30 2c 20 6e 6f 6f 70 46 75 6e 63  , 0, 0, noopFunc
c700: 2c 20 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 55  ,  SQLITE_FUNC_U
c710: 4e 4c 49 4b 45 4c 59 29 2c 0a 20 20 20 20 46 55  NLIKELY),.    FU
c720: 4e 43 54 49 4f 4e 32 28 6c 69 6b 65 6c 69 68 6f  NCTION2(likeliho
c730: 6f 64 2c 20 20 20 20 20 20 20 20 32 2c 20 30 2c  od,        2, 0,
c740: 20 30 2c 20 6e 6f 6f 70 46 75 6e 63 2c 20 20 53   0, noopFunc,  S
c750: 51 4c 49 54 45 5f 46 55 4e 43 5f 55 4e 4c 49 4b  QLITE_FUNC_UNLIK
c760: 45 4c 59 29 2c 0a 20 20 20 20 46 55 4e 43 54 49  ELY),.    FUNCTI
c770: 4f 4e 32 28 6c 69 6b 65 6c 79 2c 20 20 20 20 20  ON2(likely,     
c780: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20         1, 0, 0, 
c790: 6e 6f 6f 70 46 75 6e 63 2c 20 20 53 51 4c 49 54  noopFunc,  SQLIT
c7a0: 45 5f 46 55 4e 43 5f 55 4e 4c 49 4b 45 4c 59 29  E_FUNC_UNLIKELY)
c7b0: 2c 0a 20 20 20 20 56 46 55 4e 43 54 49 4f 4e 28  ,.    VFUNCTION(
c7c0: 72 61 6e 64 6f 6d 2c 20 20 20 20 20 20 20 20 20  random,         
c7d0: 20 20 20 30 2c 20 30 2c 20 30 2c 20 72 61 6e 64     0, 0, 0, rand
c7e0: 6f 6d 46 75 6e 63 20 20 20 20 20 20 20 29 2c 0a  omFunc       ),.
c7f0: 20 20 20 20 56 46 55 4e 43 54 49 4f 4e 28 72 61      VFUNCTION(ra
c800: 6e 64 6f 6d 62 6c 6f 62 2c 20 20 20 20 20 20 20  ndomblob,       
c810: 20 31 2c 20 30 2c 20 30 2c 20 72 61 6e 64 6f 6d   1, 0, 0, random
c820: 42 6c 6f 62 20 20 20 20 20 20 20 29 2c 0a 20 20  Blob       ),.  
c830: 20 20 46 55 4e 43 54 49 4f 4e 28 6e 75 6c 6c 69    FUNCTION(nulli
c840: 66 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 32  f,             2
c850: 2c 20 30 2c 20 31 2c 20 6e 75 6c 6c 69 66 46 75  , 0, 1, nullifFu
c860: 6e 63 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20  nc       ),.    
c870: 46 55 4e 43 54 49 4f 4e 28 73 71 6c 69 74 65 5f  FUNCTION(sqlite_
c880: 76 65 72 73 69 6f 6e 2c 20 20 20 20 20 30 2c 20  version,     0, 
c890: 30 2c 20 30 2c 20 76 65 72 73 69 6f 6e 46 75 6e  0, 0, versionFun
c8a0: 63 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55  c      ),.    FU
c8b0: 4e 43 54 49 4f 4e 28 73 71 6c 69 74 65 5f 73 6f  NCTION(sqlite_so
c8c0: 75 72 63 65 5f 69 64 2c 20 20 20 30 2c 20 30 2c  urce_id,   0, 0,
c8d0: 20 30 2c 20 73 6f 75 72 63 65 69 64 46 75 6e 63   0, sourceidFunc
c8e0: 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43       ),.    FUNC
c8f0: 54 49 4f 4e 28 73 71 6c 69 74 65 5f 6c 6f 67 2c  TION(sqlite_log,
c900: 20 20 20 20 20 20 20 20 20 32 2c 20 30 2c 20 30           2, 0, 0
c910: 2c 20 65 72 72 6c 6f 67 46 75 6e 63 20 20 20 20  , errlogFunc    
c920: 20 20 20 29 2c 0a 23 69 66 6e 64 65 66 20 53 51     ),.#ifndef SQ
c930: 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 49 4c  LITE_OMIT_COMPIL
c940: 45 4f 50 54 49 4f 4e 5f 44 49 41 47 53 0a 20 20  EOPTION_DIAGS.  
c950: 20 20 46 55 4e 43 54 49 4f 4e 28 73 71 6c 69 74    FUNCTION(sqlit
c960: 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f  e_compileoption_
c970: 75 73 65 64 2c 31 2c 20 30 2c 20 30 2c 20 63 6f  used,1, 0, 0, co
c980: 6d 70 69 6c 65 6f 70 74 69 6f 6e 75 73 65 64 46  mpileoptionusedF
c990: 75 6e 63 20 20 29 2c 0a 20 20 20 20 46 55 4e 43  unc  ),.    FUNC
c9a0: 54 49 4f 4e 28 73 71 6c 69 74 65 5f 63 6f 6d 70  TION(sqlite_comp
c9b0: 69 6c 65 6f 70 74 69 6f 6e 5f 67 65 74 2c 20 31  ileoption_get, 1
c9c0: 2c 20 30 2c 20 30 2c 20 63 6f 6d 70 69 6c 65 6f  , 0, 0, compileo
c9d0: 70 74 69 6f 6e 67 65 74 46 75 6e 63 20 20 29 2c  ptiongetFunc  ),
c9e0: 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54  .#endif /* SQLIT
c9f0: 45 5f 4f 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50  E_OMIT_COMPILEOP
ca00: 54 49 4f 4e 5f 44 49 41 47 53 20 2a 2f 0a 20 20  TION_DIAGS */.  
ca10: 20 20 46 55 4e 43 54 49 4f 4e 28 71 75 6f 74 65    FUNCTION(quote
ca20: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31  ,              1
ca30: 2c 20 30 2c 20 30 2c 20 71 75 6f 74 65 46 75 6e  , 0, 0, quoteFun
ca40: 63 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20  c        ),.    
ca50: 56 46 55 4e 43 54 49 4f 4e 28 6c 61 73 74 5f 69  VFUNCTION(last_i
ca60: 6e 73 65 72 74 5f 72 6f 77 69 64 2c 20 30 2c 20  nsert_rowid, 0, 
ca70: 30 2c 20 30 2c 20 6c 61 73 74 5f 69 6e 73 65 72  0, 0, last_inser
ca80: 74 5f 72 6f 77 69 64 29 2c 0a 20 20 20 20 56 46  t_rowid),.    VF
ca90: 55 4e 43 54 49 4f 4e 28 63 68 61 6e 67 65 73 2c  UNCTION(changes,
caa0: 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c             0, 0,
cab0: 20 30 2c 20 63 68 61 6e 67 65 73 20 20 20 20 20   0, changes     
cac0: 20 20 20 20 20 29 2c 0a 20 20 20 20 56 46 55 4e       ),.    VFUN
cad0: 43 54 49 4f 4e 28 74 6f 74 61 6c 5f 63 68 61 6e  CTION(total_chan
cae0: 67 65 73 2c 20 20 20 20 20 30 2c 20 30 2c 20 30  ges,     0, 0, 0
caf0: 2c 20 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 20  , total_changes 
cb00: 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49     ),.    FUNCTI
cb10: 4f 4e 28 72 65 70 6c 61 63 65 2c 20 20 20 20 20  ON(replace,     
cb20: 20 20 20 20 20 20 20 33 2c 20 30 2c 20 30 2c 20         3, 0, 0, 
cb30: 72 65 70 6c 61 63 65 46 75 6e 63 20 20 20 20 20  replaceFunc     
cb40: 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e   ),.    FUNCTION
cb50: 28 7a 65 72 6f 62 6c 6f 62 2c 20 20 20 20 20 20  (zeroblob,      
cb60: 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 7a 65       1, 0, 0, ze
cb70: 72 6f 62 6c 6f 62 46 75 6e 63 20 20 20 20 20 29  roblobFunc     )
cb80: 2c 0a 20 20 23 69 66 64 65 66 20 53 51 4c 49 54  ,.  #ifdef SQLIT
cb90: 45 5f 53 4f 55 4e 44 45 58 0a 20 20 20 20 46 55  E_SOUNDEX.    FU
cba0: 4e 43 54 49 4f 4e 28 73 6f 75 6e 64 65 78 2c 20  NCTION(soundex, 
cbb0: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c             1, 0,
cbc0: 20 30 2c 20 73 6f 75 6e 64 65 78 46 75 6e 63 20   0, soundexFunc 
cbd0: 20 20 20 20 20 29 2c 0a 20 20 23 65 6e 64 69 66       ),.  #endif
cbe0: 0a 20 20 23 69 66 6e 64 65 66 20 53 51 4c 49 54  .  #ifndef SQLIT
cbf0: 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45  E_OMIT_LOAD_EXTE
cc00: 4e 53 49 4f 4e 0a 20 20 20 20 46 55 4e 43 54 49  NSION.    FUNCTI
cc10: 4f 4e 28 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f  ON(load_extensio
cc20: 6e 2c 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20  n,     1, 0, 0, 
cc30: 6c 6f 61 64 45 78 74 20 20 20 20 20 20 20 20 20  loadExt         
cc40: 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e   ),.    FUNCTION
cc50: 28 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 2c  (load_extension,
cc60: 20 20 20 20 20 32 2c 20 30 2c 20 30 2c 20 6c 6f       2, 0, 0, lo
cc70: 61 64 45 78 74 20 20 20 20 20 20 20 20 20 20 29  adExt          )
cc80: 2c 0a 20 20 23 65 6e 64 69 66 0a 20 20 20 20 41  ,.  #endif.    A
cc90: 47 47 52 45 47 41 54 45 28 73 75 6d 2c 20 20 20  GGREGATE(sum,   
cca0: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30              1, 0
ccb0: 2c 20 30 2c 20 73 75 6d 53 74 65 70 2c 20 20 20  , 0, sumStep,   
ccc0: 20 20 20 20 20 20 73 75 6d 46 69 6e 61 6c 69 7a        sumFinaliz
ccd0: 65 20 20 20 20 29 2c 0a 20 20 20 20 41 47 47 52  e    ),.    AGGR
cce0: 45 47 41 54 45 28 74 6f 74 61 6c 2c 20 20 20 20  EGATE(total,    
ccf0: 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30           1, 0, 0
cd00: 2c 20 73 75 6d 53 74 65 70 2c 20 20 20 20 20 20  , sumStep,      
cd10: 20 20 20 74 6f 74 61 6c 46 69 6e 61 6c 69 7a 65     totalFinalize
cd20: 20 20 20 20 29 2c 0a 20 20 20 20 41 47 47 52 45      ),.    AGGRE
cd30: 47 41 54 45 28 61 76 67 2c 20 20 20 20 20 20 20  GATE(avg,       
cd40: 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c          1, 0, 0,
cd50: 20 73 75 6d 53 74 65 70 2c 20 20 20 20 20 20 20   sumStep,       
cd60: 20 20 61 76 67 46 69 6e 61 6c 69 7a 65 20 20 20    avgFinalize   
cd70: 20 29 2c 0a 20 2f 2a 20 41 47 47 52 45 47 41 54   ),. /* AGGREGAT
cd80: 45 28 63 6f 75 6e 74 2c 20 20 20 20 20 20 20 20  E(count,        
cd90: 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 63 6f       0, 0, 0, co
cda0: 75 6e 74 53 74 65 70 2c 20 20 20 20 20 20 20 63  untStep,       c
cdb0: 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 20 20 29 2c  ountFinalize  ),
cdc0: 20 2a 2f 0a 20 20 20 20 7b 30 2c 53 51 4c 49 54   */.    {0,SQLIT
cdd0: 45 5f 55 54 46 38 7c 53 51 4c 49 54 45 5f 46 55  E_UTF8|SQLITE_FU
cde0: 4e 43 5f 43 4f 55 4e 54 2c 30 2c 30 2c 30 2c 63  NC_COUNT,0,0,0,c
cdf0: 6f 75 6e 74 53 74 65 70 2c 63 6f 75 6e 74 46 69  ountStep,countFi
ce00: 6e 61 6c 69 7a 65 2c 22 63 6f 75 6e 74 22 2c 30  nalize,"count",0
ce10: 2c 30 7d 2c 0a 20 20 20 20 41 47 47 52 45 47 41  ,0},.    AGGREGA
ce20: 54 45 28 63 6f 75 6e 74 2c 20 20 20 20 20 20 20  TE(count,       
ce30: 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 63        1, 0, 0, c
ce40: 6f 75 6e 74 53 74 65 70 2c 20 20 20 20 20 20 20  ountStep,       
ce50: 63 6f 75 6e 74 46 69 6e 61 6c 69 7a 65 20 20 29  countFinalize  )
ce60: 2c 0a 20 20 20 20 41 47 47 52 45 47 41 54 45 28  ,.    AGGREGATE(
ce70: 67 72 6f 75 70 5f 63 6f 6e 63 61 74 2c 20 20 20  group_concat,   
ce80: 20 20 20 31 2c 20 30 2c 20 30 2c 20 67 72 6f 75     1, 0, 0, grou
ce90: 70 43 6f 6e 63 61 74 53 74 65 70 2c 20 67 72 6f  pConcatStep, gro
cea0: 75 70 43 6f 6e 63 61 74 46 69 6e 61 6c 69 7a 65  upConcatFinalize
ceb0: 29 2c 0a 20 20 20 20 41 47 47 52 45 47 41 54 45  ),.    AGGREGATE
cec0: 28 67 72 6f 75 70 5f 63 6f 6e 63 61 74 2c 20 20  (group_concat,  
ced0: 20 20 20 20 32 2c 20 30 2c 20 30 2c 20 67 72 6f      2, 0, 0, gro
cee0: 75 70 43 6f 6e 63 61 74 53 74 65 70 2c 20 67 72  upConcatStep, gr
cef0: 6f 75 70 43 6f 6e 63 61 74 46 69 6e 61 6c 69 7a  oupConcatFinaliz
cf00: 65 29 2c 0a 20 20 0a 20 20 20 20 4c 49 4b 45 46  e),.  .    LIKEF
cf10: 55 4e 43 28 67 6c 6f 62 2c 20 32 2c 20 26 67 6c  UNC(glob, 2, &gl
cf20: 6f 62 49 6e 66 6f 2c 20 53 51 4c 49 54 45 5f 46  obInfo, SQLITE_F
cf30: 55 4e 43 5f 4c 49 4b 45 7c 53 51 4c 49 54 45 5f  UNC_LIKE|SQLITE_
cf40: 46 55 4e 43 5f 43 41 53 45 29 2c 0a 20 20 23 69  FUNC_CASE),.  #i
cf50: 66 64 65 66 20 53 51 4c 49 54 45 5f 43 41 53 45  fdef SQLITE_CASE
cf60: 5f 53 45 4e 53 49 54 49 56 45 5f 4c 49 4b 45 0a  _SENSITIVE_LIKE.
cf70: 20 20 20 20 4c 49 4b 45 46 55 4e 43 28 6c 69 6b      LIKEFUNC(lik
cf80: 65 2c 20 32 2c 20 26 6c 69 6b 65 49 6e 66 6f 41  e, 2, &likeInfoA
cf90: 6c 74 2c 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f  lt, SQLITE_FUNC_
cfa0: 4c 49 4b 45 7c 53 51 4c 49 54 45 5f 46 55 4e 43  LIKE|SQLITE_FUNC
cfb0: 5f 43 41 53 45 29 2c 0a 20 20 20 20 4c 49 4b 45  _CASE),.    LIKE
cfc0: 46 55 4e 43 28 6c 69 6b 65 2c 20 33 2c 20 26 6c  FUNC(like, 3, &l
cfd0: 69 6b 65 49 6e 66 6f 41 6c 74 2c 20 53 51 4c 49  ikeInfoAlt, SQLI
cfe0: 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 7c 53 51 4c  TE_FUNC_LIKE|SQL
cff0: 49 54 45 5f 46 55 4e 43 5f 43 41 53 45 29 2c 0a  ITE_FUNC_CASE),.
d000: 20 20 23 65 6c 73 65 0a 20 20 20 20 4c 49 4b 45    #else.    LIKE
d010: 46 55 4e 43 28 6c 69 6b 65 2c 20 32 2c 20 26 6c  FUNC(like, 2, &l
d020: 69 6b 65 49 6e 66 6f 4e 6f 72 6d 2c 20 53 51 4c  ikeInfoNorm, SQL
d030: 49 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 29 2c 0a  ITE_FUNC_LIKE),.
d040: 20 20 20 20 4c 49 4b 45 46 55 4e 43 28 6c 69 6b      LIKEFUNC(lik
d050: 65 2c 20 33 2c 20 26 6c 69 6b 65 49 6e 66 6f 4e  e, 3, &likeInfoN
d060: 6f 72 6d 2c 20 53 51 4c 49 54 45 5f 46 55 4e 43  orm, SQLITE_FUNC
d070: 5f 4c 49 4b 45 29 2c 0a 20 20 23 65 6e 64 69 66  _LIKE),.  #endif
d080: 0a 20 20 7d 3b 0a 0a 20 20 69 6e 74 20 69 3b 0a  .  };..  int i;.
d090: 20 20 46 75 6e 63 44 65 66 48 61 73 68 20 2a 70    FuncDefHash *p
d0a0: 48 61 73 68 20 3d 20 26 47 4c 4f 42 41 4c 28 46  Hash = &GLOBAL(F
d0b0: 75 6e 63 44 65 66 48 61 73 68 2c 20 73 71 6c 69  uncDefHash, sqli
d0c0: 74 65 33 47 6c 6f 62 61 6c 46 75 6e 63 74 69 6f  te3GlobalFunctio
d0d0: 6e 73 29 3b 0a 20 20 46 75 6e 63 44 65 66 20 2a  ns);.  FuncDef *
d0e0: 61 46 75 6e 63 20 3d 20 28 46 75 6e 63 44 65 66  aFunc = (FuncDef
d0f0: 2a 29 26 47 4c 4f 42 41 4c 28 46 75 6e 63 44 65  *)&GLOBAL(FuncDe
d100: 66 2c 20 61 42 75 69 6c 74 69 6e 46 75 6e 63 29  f, aBuiltinFunc)
d110: 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c  ;..  for(i=0; i<
d120: 41 72 72 61 79 53 69 7a 65 28 61 42 75 69 6c 74  ArraySize(aBuilt
d130: 69 6e 46 75 6e 63 29 3b 20 69 2b 2b 29 7b 0a 20  inFunc); i++){. 
d140: 20 20 20 73 71 6c 69 74 65 33 46 75 6e 63 44 65     sqlite3FuncDe
d150: 66 49 6e 73 65 72 74 28 70 48 61 73 68 2c 20 26  fInsert(pHash, &
d160: 61 46 75 6e 63 5b 69 5d 29 3b 0a 20 20 7d 0a 20  aFunc[i]);.  }. 
d170: 20 73 71 6c 69 74 65 33 52 65 67 69 73 74 65 72   sqlite3Register
d180: 44 61 74 65 54 69 6d 65 46 75 6e 63 74 69 6f 6e  DateTimeFunction
d190: 73 28 29 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c  s();.#ifndef SQL
d1a0: 49 54 45 5f 4f 4d 49 54 5f 41 4c 54 45 52 54 41  ITE_OMIT_ALTERTA
d1b0: 42 4c 45 0a 20 20 73 71 6c 69 74 65 33 41 6c 74  BLE.  sqlite3Alt
d1c0: 65 72 46 75 6e 63 74 69 6f 6e 73 28 29 3b 0a 23  erFunctions();.#
d1d0: 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65  endif.#if define
d1e0: 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f  d(SQLITE_ENABLE_
d1f0: 53 54 41 54 33 29 20 7c 7c 20 64 65 66 69 6e 65  STAT3) || define
d200: 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f  d(SQLITE_ENABLE_
d210: 53 54 41 54 34 29 0a 20 20 73 71 6c 69 74 65 33  STAT4).  sqlite3
d220: 41 6e 61 6c 79 7a 65 46 75 6e 63 74 69 6f 6e 73  AnalyzeFunctions
d230: 28 29 3b 0a 23 65 6e 64 69 66 0a 7d 0a           ();.#endif.}.