/ Hex Artifact Content
Login

Artifact ba6c03f9e440f5693086c08ee88e6e60212b3504:


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 61 74 69 6f 6e 73 20 66 6f 72 20 6d  mentations for m
01b0: 61 6e 79 20 6f 66 20 74 68 65 20 53 51 4c 0a 2a  any of the SQL.*
01c0: 2a 20 66 75 6e 63 74 69 6f 6e 73 20 6f 66 20 53  * functions of S
01d0: 51 4c 69 74 65 2e 20 20 28 53 6f 6d 65 20 66 75  QLite.  (Some fu
01e0: 6e 63 74 69 6f 6e 2c 20 61 6e 64 20 69 6e 20 70  nction, and in p
01f0: 61 72 74 69 63 75 6c 61 72 20 74 68 65 20 64 61  articular the da
0200: 74 65 20 61 6e 64 0a 2a 2a 20 74 69 6d 65 20 66  te and.** time f
0210: 75 6e 63 74 69 6f 6e 73 2c 20 61 72 65 20 69 6d  unctions, are im
0220: 70 6c 65 6d 65 6e 74 65 64 20 73 65 70 61 72 61  plemented separa
0230: 74 65 6c 79 2e 29 0a 2a 2f 0a 23 69 6e 63 6c 75  tely.).*/.#inclu
0240: 64 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22  de "sqliteInt.h"
0250: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69  .#include <stdli
0260: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 61  b.h>.#include <a
0270: 73 73 65 72 74 2e 68 3e 0a 23 69 6e 63 6c 75 64  ssert.h>.#includ
0280: 65 20 22 76 64 62 65 49 6e 74 2e 68 22 0a 0a 2f  e "vdbeInt.h"../
0290: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20  *.** Return the 
02a0: 63 6f 6c 6c 61 74 69 6e 67 20 66 75 6e 63 74 69  collating functi
02b0: 6f 6e 20 61 73 73 6f 63 69 61 74 65 64 20 77 69  on associated wi
02c0: 74 68 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a  th a function..*
02d0: 2f 0a 73 74 61 74 69 63 20 43 6f 6c 6c 53 65 71  /.static CollSeq
02e0: 20 2a 73 71 6c 69 74 65 33 47 65 74 46 75 6e 63   *sqlite3GetFunc
02f0: 43 6f 6c 6c 53 65 71 28 73 71 6c 69 74 65 33 5f  CollSeq(sqlite3_
0300: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
0310: 29 7b 0a 20 20 56 64 62 65 4f 70 20 2a 70 4f 70  ){.  VdbeOp *pOp
0320: 3b 0a 20 20 61 73 73 65 72 74 28 20 63 6f 6e 74  ;.  assert( cont
0330: 65 78 74 2d 3e 70 56 64 62 65 21 3d 30 20 29 3b  ext->pVdbe!=0 );
0340: 0a 20 20 70 4f 70 20 3d 20 26 63 6f 6e 74 65 78  .  pOp = &contex
0350: 74 2d 3e 70 56 64 62 65 2d 3e 61 4f 70 5b 63 6f  t->pVdbe->aOp[co
0360: 6e 74 65 78 74 2d 3e 69 4f 70 2d 31 5d 3b 0a 20  ntext->iOp-1];. 
0370: 20 61 73 73 65 72 74 28 20 70 4f 70 2d 3e 6f 70   assert( pOp->op
0380: 63 6f 64 65 3d 3d 4f 50 5f 43 6f 6c 6c 53 65 71  code==OP_CollSeq
0390: 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70 4f   );.  assert( pO
03a0: 70 2d 3e 70 34 74 79 70 65 3d 3d 50 34 5f 43 4f  p->p4type==P4_CO
03b0: 4c 4c 53 45 51 20 29 3b 0a 20 20 72 65 74 75 72  LLSEQ );.  retur
03c0: 6e 20 70 4f 70 2d 3e 70 34 2e 70 43 6f 6c 6c 3b  n pOp->p4.pColl;
03d0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e 64 69 63 61  .}../*.** Indica
03e0: 74 65 20 74 68 61 74 20 74 68 65 20 61 63 63 75  te that the accu
03f0: 6d 75 6c 61 74 6f 72 20 6c 6f 61 64 20 73 68 6f  mulator load sho
0400: 75 6c 64 20 62 65 20 73 6b 69 70 70 65 64 20 6f  uld be skipped o
0410: 6e 20 74 68 69 73 0a 2a 2a 20 69 74 65 72 61 74  n this.** iterat
0420: 69 6f 6e 20 6f 66 20 74 68 65 20 61 67 67 72 65  ion of the aggre
0430: 67 61 74 65 20 6c 6f 6f 70 2e 0a 2a 2f 0a 73 74  gate loop..*/.st
0440: 61 74 69 63 20 76 6f 69 64 20 73 71 6c 69 74 65  atic void sqlite
0450: 33 53 6b 69 70 41 63 63 75 6d 75 6c 61 74 6f 72  3SkipAccumulator
0460: 4c 6f 61 64 28 73 71 6c 69 74 65 33 5f 63 6f 6e  Load(sqlite3_con
0470: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a  text *context){.
0480: 20 20 63 6f 6e 74 65 78 74 2d 3e 73 6b 69 70 46    context->skipF
0490: 6c 61 67 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a  lag = 1;.}../*.*
04a0: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e  * Implementation
04b0: 20 6f 66 20 74 68 65 20 6e 6f 6e 2d 61 67 67 72   of the non-aggr
04c0: 65 67 61 74 65 20 6d 69 6e 28 29 20 61 6e 64 20  egate min() and 
04d0: 6d 61 78 28 29 20 66 75 6e 63 74 69 6f 6e 73 0a  max() functions.
04e0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6d  */.static void m
04f0: 69 6e 6d 61 78 46 75 6e 63 28 0a 20 20 73 71 6c  inmaxFunc(.  sql
0500: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
0510: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67  ntext,.  int arg
0520: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  c,.  sqlite3_val
0530: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69  ue **argv.){.  i
0540: 6e 74 20 69 3b 0a 20 20 69 6e 74 20 6d 61 73 6b  nt i;.  int mask
0550: 3b 20 20 20 20 2f 2a 20 30 20 66 6f 72 20 6d 69  ;    /* 0 for mi
0560: 6e 28 29 20 6f 72 20 30 78 66 66 66 66 66 66 66  n() or 0xfffffff
0570: 66 20 66 6f 72 20 6d 61 78 28 29 20 2a 2f 0a 20  f for max() */. 
0580: 20 69 6e 74 20 69 42 65 73 74 3b 0a 20 20 43 6f   int iBest;.  Co
0590: 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c 3b 0a 0a 20  llSeq *pColl;.. 
05a0: 20 61 73 73 65 72 74 28 20 61 72 67 63 3e 31 20   assert( argc>1 
05b0: 29 3b 0a 20 20 6d 61 73 6b 20 3d 20 73 71 6c 69  );.  mask = sqli
05c0: 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 63 6f  te3_user_data(co
05d0: 6e 74 65 78 74 29 3d 3d 30 20 3f 20 30 20 3a 20  ntext)==0 ? 0 : 
05e0: 2d 31 3b 0a 20 20 70 43 6f 6c 6c 20 3d 20 73 71  -1;.  pColl = sq
05f0: 6c 69 74 65 33 47 65 74 46 75 6e 63 43 6f 6c 6c  lite3GetFuncColl
0600: 53 65 71 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20  Seq(context);.  
0610: 61 73 73 65 72 74 28 20 70 43 6f 6c 6c 20 29 3b  assert( pColl );
0620: 0a 20 20 61 73 73 65 72 74 28 20 6d 61 73 6b 3d  .  assert( mask=
0630: 3d 2d 31 20 7c 7c 20 6d 61 73 6b 3d 3d 30 20 29  =-1 || mask==0 )
0640: 3b 0a 20 20 69 42 65 73 74 20 3d 20 30 3b 0a 20  ;.  iBest = 0;. 
0650: 20 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c   if( sqlite3_val
0660: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29  ue_type(argv[0])
0670: 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20  ==SQLITE_NULL ) 
0680: 72 65 74 75 72 6e 3b 0a 20 20 66 6f 72 28 69 3d  return;.  for(i=
0690: 31 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b  1; i<argc; i++){
06a0: 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33  .    if( sqlite3
06b0: 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76  _value_type(argv
06c0: 5b 69 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c  [i])==SQLITE_NUL
06d0: 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20  L ) return;.    
06e0: 69 66 28 20 28 73 71 6c 69 74 65 33 4d 65 6d 43  if( (sqlite3MemC
06f0: 6f 6d 70 61 72 65 28 61 72 67 76 5b 69 42 65 73  ompare(argv[iBes
0700: 74 5d 2c 20 61 72 67 76 5b 69 5d 2c 20 70 43 6f  t], argv[i], pCo
0710: 6c 6c 29 5e 6d 61 73 6b 29 3e 3d 30 20 29 7b 0a  ll)^mask)>=0 ){.
0720: 20 20 20 20 20 20 74 65 73 74 63 61 73 65 28 20        testcase( 
0730: 6d 61 73 6b 3d 3d 30 20 29 3b 0a 20 20 20 20 20  mask==0 );.     
0740: 20 69 42 65 73 74 20 3d 20 69 3b 0a 20 20 20 20   iBest = i;.    
0750: 7d 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f  }.  }.  sqlite3_
0760: 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e  result_value(con
0770: 74 65 78 74 2c 20 61 72 67 76 5b 69 42 65 73 74  text, argv[iBest
0780: 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74  ]);.}../*.** Ret
0790: 75 72 6e 20 74 68 65 20 74 79 70 65 20 6f 66 20  urn the type of 
07a0: 74 68 65 20 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f  the argument..*/
07b0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 79 70  .static void typ
07c0: 65 6f 66 46 75 6e 63 28 0a 20 20 73 71 6c 69 74  eofFunc(.  sqlit
07d0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74  e3_context *cont
07e0: 65 78 74 2c 0a 20 20 69 6e 74 20 4e 6f 74 55 73  ext,.  int NotUs
07f0: 65 64 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61  ed,.  sqlite3_va
0800: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20  lue **argv.){.  
0810: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d 20  const char *z = 
0820: 30 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41  0;.  UNUSED_PARA
0830: 4d 45 54 45 52 28 4e 6f 74 55 73 65 64 29 3b 0a  METER(NotUsed);.
0840: 20 20 73 77 69 74 63 68 28 20 73 71 6c 69 74 65    switch( sqlite
0850: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67  3_value_type(arg
0860: 76 5b 30 5d 29 20 29 7b 0a 20 20 20 20 63 61 73  v[0]) ){.    cas
0870: 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52  e SQLITE_INTEGER
0880: 3a 20 7a 20 3d 20 22 69 6e 74 65 67 65 72 22 3b  : z = "integer";
0890: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65   break;.    case
08a0: 20 53 51 4c 49 54 45 5f 54 45 58 54 3a 20 20 20   SQLITE_TEXT:   
08b0: 20 7a 20 3d 20 22 74 65 78 74 22 3b 20 20 20 20   z = "text";    
08c0: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20  break;.    case 
08d0: 53 51 4c 49 54 45 5f 46 4c 4f 41 54 3a 20 20 20  SQLITE_FLOAT:   
08e0: 7a 20 3d 20 22 72 65 61 6c 22 3b 20 20 20 20 62  z = "real";    b
08f0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53  reak;.    case S
0900: 51 4c 49 54 45 5f 42 4c 4f 42 3a 20 20 20 20 7a  QLITE_BLOB:    z
0910: 20 3d 20 22 62 6c 6f 62 22 3b 20 20 20 20 62 72   = "blob";    br
0920: 65 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74  eak;.    default
0930: 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 20  :             z 
0940: 3d 20 22 6e 75 6c 6c 22 3b 20 20 20 20 62 72 65  = "null";    bre
0950: 61 6b 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65  ak;.  }.  sqlite
0960: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f  3_result_text(co
0970: 6e 74 65 78 74 2c 20 7a 2c 20 2d 31 2c 20 53 51  ntext, z, -1, SQ
0980: 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 7d 0a  LITE_STATIC);.}.
0990: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e  ../*.** Implemen
09a0: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c 65  tation of the le
09b0: 6e 67 74 68 28 29 20 66 75 6e 63 74 69 6f 6e 0a  ngth() function.
09c0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c  */.static void l
09d0: 65 6e 67 74 68 46 75 6e 63 28 0a 20 20 73 71 6c  engthFunc(.  sql
09e0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
09f0: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67  ntext,.  int arg
0a00: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  c,.  sqlite3_val
0a10: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69  ue **argv.){.  i
0a20: 6e 74 20 6c 65 6e 3b 0a 0a 20 20 61 73 73 65 72  nt len;..  asser
0a30: 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20  t( argc==1 );.  
0a40: 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52  UNUSED_PARAMETER
0a50: 28 61 72 67 63 29 3b 0a 20 20 73 77 69 74 63 68  (argc);.  switch
0a60: 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  ( sqlite3_value_
0a70: 74 79 70 65 28 61 72 67 76 5b 30 5d 29 20 29 7b  type(argv[0]) ){
0a80: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
0a90: 5f 42 4c 4f 42 3a 0a 20 20 20 20 63 61 73 65 20  _BLOB:.    case 
0aa0: 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a 0a  SQLITE_INTEGER:.
0ab0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f      case SQLITE_
0ac0: 46 4c 4f 41 54 3a 20 7b 0a 20 20 20 20 20 20 73  FLOAT: {.      s
0ad0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e  qlite3_result_in
0ae0: 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74  t(context, sqlit
0af0: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61  e3_value_bytes(a
0b00: 72 67 76 5b 30 5d 29 29 3b 0a 20 20 20 20 20 20  rgv[0]));.      
0b10: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20  break;.    }.   
0b20: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 54 45 58   case SQLITE_TEX
0b30: 54 3a 20 7b 0a 20 20 20 20 20 20 63 6f 6e 73 74  T: {.      const
0b40: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a   unsigned char *
0b50: 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  z = sqlite3_valu
0b60: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b  e_text(argv[0]);
0b70: 0a 20 20 20 20 20 20 69 66 28 20 7a 3d 3d 30 20  .      if( z==0 
0b80: 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20  ) return;.      
0b90: 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 20 20 77  len = 0;.      w
0ba0: 68 69 6c 65 28 20 2a 7a 20 29 7b 0a 20 20 20 20  hile( *z ){.    
0bb0: 20 20 20 20 6c 65 6e 2b 2b 3b 0a 20 20 20 20 20      len++;.     
0bc0: 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55     SQLITE_SKIP_U
0bd0: 54 46 38 28 7a 29 3b 0a 20 20 20 20 20 20 7d 0a  TF8(z);.      }.
0be0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65        sqlite3_re
0bf0: 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74  sult_int(context
0c00: 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 20 20 62 72  , len);.      br
0c10: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64  eak;.    }.    d
0c20: 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20 20 20 20  efault: {.      
0c30: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 6e  sqlite3_result_n
0c40: 75 6c 6c 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20  ull(context);.  
0c50: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d      break;.    }
0c60: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d  .  }.}../*.** Im
0c70: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20  plementation of 
0c80: 74 68 65 20 61 62 73 28 29 20 66 75 6e 63 74 69  the abs() functi
0c90: 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 49 4d 50 3a 20 52  on..**.** IMP: R
0ca0: 2d 32 33 39 37 39 2d 32 36 38 35 35 20 54 68 65  -23979-26855 The
0cb0: 20 61 62 73 28 58 29 20 66 75 6e 63 74 69 6f 6e   abs(X) function
0cc0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 61 62 73   returns the abs
0cd0: 6f 6c 75 74 65 20 76 61 6c 75 65 20 6f 66 0a 2a  olute value of.*
0ce0: 2a 20 74 68 65 20 6e 75 6d 65 72 69 63 20 61 72  * the numeric ar
0cf0: 67 75 6d 65 6e 74 20 58 2e 20 0a 2a 2f 0a 73 74  gument X. .*/.st
0d00: 61 74 69 63 20 76 6f 69 64 20 61 62 73 46 75 6e  atic void absFun
0d10: 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  c(sqlite3_contex
0d20: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20  t *context, int 
0d30: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61  argc, sqlite3_va
0d40: 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 61  lue **argv){.  a
0d50: 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29  ssert( argc==1 )
0d60: 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d  ;.  UNUSED_PARAM
0d70: 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20 73 77  ETER(argc);.  sw
0d80: 69 74 63 68 28 20 73 71 6c 69 74 65 33 5f 76 61  itch( sqlite3_va
0d90: 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d  lue_type(argv[0]
0da0: 29 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 51  ) ){.    case SQ
0db0: 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a 20 7b 0a  LITE_INTEGER: {.
0dc0: 20 20 20 20 20 20 69 36 34 20 69 56 61 6c 20 3d        i64 iVal =
0dd0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69   sqlite3_value_i
0de0: 6e 74 36 34 28 61 72 67 76 5b 30 5d 29 3b 0a 20  nt64(argv[0]);. 
0df0: 20 20 20 20 20 69 66 28 20 69 56 61 6c 3c 30 20       if( iVal<0 
0e00: 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 69  ){.        if( i
0e10: 56 61 6c 3d 3d 53 4d 41 4c 4c 45 53 54 5f 49 4e  Val==SMALLEST_IN
0e20: 54 36 34 20 29 7b 0a 20 20 20 20 20 20 20 20 20  T64 ){.         
0e30: 20 2f 2a 20 49 4d 50 3a 20 52 2d 33 31 36 37 36   /* IMP: R-31676
0e40: 2d 34 35 35 30 39 20 49 66 20 58 20 69 73 20 74  -45509 If X is t
0e50: 68 65 20 69 6e 74 65 67 65 72 20 2d 39 32 32 33  he integer -9223
0e60: 33 37 32 30 33 36 38 35 34 37 37 35 38 30 38 0a  372036854775808.
0e70: 20 20 20 20 20 20 20 20 20 20 2a 2a 20 74 68 65            ** the
0e80: 6e 20 61 62 73 28 58 29 20 74 68 72 6f 77 73 20  n abs(X) throws 
0e90: 61 6e 20 69 6e 74 65 67 65 72 20 6f 76 65 72 66  an integer overf
0ea0: 6c 6f 77 20 65 72 72 6f 72 20 73 69 6e 63 65 20  low error since 
0eb0: 74 68 65 72 65 20 69 73 20 6e 6f 0a 20 20 20 20  there is no.    
0ec0: 20 20 20 20 20 20 2a 2a 20 65 71 75 69 76 61 6c        ** equival
0ed0: 65 6e 74 20 70 6f 73 69 74 69 76 65 20 36 34 2d  ent positive 64-
0ee0: 62 69 74 20 74 77 6f 20 63 6f 6d 70 6c 65 6d 65  bit two compleme
0ef0: 6e 74 20 76 61 6c 75 65 2e 20 2a 2f 0a 20 20 20  nt value. */.   
0f00: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72         sqlite3_r
0f10: 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74  esult_error(cont
0f20: 65 78 74 2c 20 22 69 6e 74 65 67 65 72 20 6f 76  ext, "integer ov
0f30: 65 72 66 6c 6f 77 22 2c 20 2d 31 29 3b 0a 20 20  erflow", -1);.  
0f40: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a          return;.
0f50: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
0f60: 20 20 69 56 61 6c 20 3d 20 2d 69 56 61 6c 3b 0a    iVal = -iVal;.
0f70: 20 20 20 20 20 20 7d 20 0a 20 20 20 20 20 20 73        } .      s
0f80: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e  qlite3_result_in
0f90: 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 69 56 61  t64(context, iVa
0fa0: 6c 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  l);.      break;
0fb0: 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20  .    }.    case 
0fc0: 53 51 4c 49 54 45 5f 4e 55 4c 4c 3a 20 7b 0a 20  SQLITE_NULL: {. 
0fd0: 20 20 20 20 20 2f 2a 20 49 4d 50 3a 20 52 2d 33       /* IMP: R-3
0fe0: 37 34 33 34 2d 31 39 39 32 39 20 41 62 73 28 58  7434-19929 Abs(X
0ff0: 29 20 72 65 74 75 72 6e 73 20 4e 55 4c 4c 20 69  ) returns NULL i
1000: 66 20 58 20 69 73 20 4e 55 4c 4c 2e 20 2a 2f 0a  f X is NULL. */.
1010: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65        sqlite3_re
1020: 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 65 78  sult_null(contex
1030: 74 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  t);.      break;
1040: 0a 20 20 20 20 7d 0a 20 20 20 20 64 65 66 61 75  .    }.    defau
1050: 6c 74 3a 20 7b 0a 20 20 20 20 20 20 2f 2a 20 42  lt: {.      /* B
1060: 65 63 61 75 73 65 20 73 71 6c 69 74 65 33 5f 76  ecause sqlite3_v
1070: 61 6c 75 65 5f 64 6f 75 62 6c 65 28 29 20 72 65  alue_double() re
1080: 74 75 72 6e 73 20 30 2e 30 20 69 66 20 74 68 65  turns 0.0 if the
1090: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 6e 6f 74   argument is not
10a0: 0a 20 20 20 20 20 20 2a 2a 20 73 6f 6d 65 74 68  .      ** someth
10b0: 69 6e 67 20 74 68 61 74 20 63 61 6e 20 62 65 20  ing that can be 
10c0: 63 6f 6e 76 65 72 74 65 64 20 69 6e 74 6f 20 61  converted into a
10d0: 20 6e 75 6d 62 65 72 2c 20 77 65 20 68 61 76 65   number, we have
10e0: 3a 0a 20 20 20 20 20 20 2a 2a 20 49 4d 50 3a 20  :.      ** IMP: 
10f0: 52 2d 30 31 39 39 32 2d 30 30 35 31 39 20 41 62  R-01992-00519 Ab
1100: 73 28 58 29 20 72 65 74 75 72 6e 73 20 30 2e 30  s(X) returns 0.0
1110: 20 69 66 20 58 20 69 73 20 61 20 73 74 72 69 6e   if X is a strin
1120: 67 20 6f 72 20 62 6c 6f 62 0a 20 20 20 20 20 20  g or blob.      
1130: 2a 2a 20 74 68 61 74 20 63 61 6e 6e 6f 74 20 62  ** that cannot b
1140: 65 20 63 6f 6e 76 65 72 74 65 64 20 74 6f 20 61  e converted to a
1150: 20 6e 75 6d 65 72 69 63 20 76 61 6c 75 65 2e 0a   numeric value..
1160: 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 64        */.      d
1170: 6f 75 62 6c 65 20 72 56 61 6c 20 3d 20 73 71 6c  ouble rVal = sql
1180: 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c  ite3_value_doubl
1190: 65 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20  e(argv[0]);.    
11a0: 20 20 69 66 28 20 72 56 61 6c 3c 30 20 29 20 72    if( rVal<0 ) r
11b0: 56 61 6c 20 3d 20 2d 72 56 61 6c 3b 0a 20 20 20  Val = -rVal;.   
11c0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c     sqlite3_resul
11d0: 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74  t_double(context
11e0: 2c 20 72 56 61 6c 29 3b 0a 20 20 20 20 20 20 62  , rVal);.      b
11f0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  reak;.    }.  }.
1200: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65  }../*.** Impleme
1210: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 69  ntation of the i
1220: 6e 73 74 72 28 29 20 66 75 6e 63 74 69 6f 6e 2e  nstr() function.
1230: 0a 2a 2a 0a 2a 2a 20 69 6e 73 74 72 28 68 61 79  .**.** instr(hay
1240: 73 74 61 63 6b 2c 6e 65 65 64 6c 65 29 20 66 69  stack,needle) fi
1250: 6e 64 73 20 74 68 65 20 66 69 72 73 74 20 6f 63  nds the first oc
1260: 63 75 72 72 65 6e 63 65 20 6f 66 20 6e 65 65 64  currence of need
1270: 6c 65 0a 2a 2a 20 69 6e 20 68 61 79 73 74 61 63  le.** in haystac
1280: 6b 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68  k and returns th
1290: 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 65 76  e number of prev
12a0: 69 6f 75 73 20 63 68 61 72 61 63 74 65 72 73 20  ious characters 
12b0: 70 6c 75 73 20 31 2c 0a 2a 2a 20 6f 72 20 30 20  plus 1,.** or 0 
12c0: 69 66 20 6e 65 65 64 6c 65 20 64 6f 65 73 20 6e  if needle does n
12d0: 6f 74 20 6f 63 63 75 72 20 77 69 74 68 69 6e 20  ot occur within 
12e0: 68 61 79 73 74 61 63 6b 2e 0a 2a 2a 0a 2a 2a 20  haystack..**.** 
12f0: 49 66 20 62 6f 74 68 20 68 61 79 73 74 61 63 6b  If both haystack
1300: 20 61 6e 64 20 6e 65 65 64 6c 65 20 61 72 65 20   and needle are 
1310: 42 4c 4f 42 73 2c 20 74 68 65 6e 20 74 68 65 20  BLOBs, then the 
1320: 72 65 73 75 6c 74 20 69 73 20 6f 6e 65 20 6d 6f  result is one mo
1330: 72 65 20 74 68 61 6e 0a 2a 2a 20 74 68 65 20 6e  re than.** the n
1340: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 69  umber of bytes i
1350: 6e 20 68 61 79 73 74 61 63 6b 20 70 72 69 6f 72  n haystack prior
1360: 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 6f 63   to the first oc
1370: 63 75 72 72 65 6e 63 65 20 6f 66 20 6e 65 65 64  currence of need
1380: 6c 65 2c 0a 2a 2a 20 6f 72 20 30 20 69 66 20 6e  le,.** or 0 if n
1390: 65 65 64 6c 65 20 6e 65 76 65 72 20 6f 63 63 75  eedle never occu
13a0: 72 73 20 69 6e 20 68 61 79 73 74 61 63 6b 2e 0a  rs in haystack..
13b0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 69  */.static void i
13c0: 6e 73 74 72 46 75 6e 63 28 0a 20 20 73 71 6c 69  nstrFunc(.  sqli
13d0: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e  te3_context *con
13e0: 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63  text,.  int argc
13f0: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  ,.  sqlite3_valu
1400: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f  e **argv.){.  co
1410: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61  nst unsigned cha
1420: 72 20 2a 7a 48 61 79 73 74 61 63 6b 3b 0a 20 20  r *zHaystack;.  
1430: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63  const unsigned c
1440: 68 61 72 20 2a 7a 4e 65 65 64 6c 65 3b 0a 20 20  har *zNeedle;.  
1450: 69 6e 74 20 6e 48 61 79 73 74 61 63 6b 3b 0a 20  int nHaystack;. 
1460: 20 69 6e 74 20 6e 4e 65 65 64 6c 65 3b 0a 20 20   int nNeedle;.  
1470: 69 6e 74 20 74 79 70 65 48 61 79 73 74 61 63 6b  int typeHaystack
1480: 2c 20 74 79 70 65 4e 65 65 64 6c 65 3b 0a 20 20  , typeNeedle;.  
1490: 69 6e 74 20 4e 20 3d 20 31 3b 0a 20 20 69 6e 74  int N = 1;.  int
14a0: 20 69 73 54 65 78 74 3b 0a 0a 20 20 55 4e 55 53   isText;..  UNUS
14b0: 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67  ED_PARAMETER(arg
14c0: 63 29 3b 0a 20 20 74 79 70 65 48 61 79 73 74 61  c);.  typeHaysta
14d0: 63 6b 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c  ck = sqlite3_val
14e0: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29  ue_type(argv[0])
14f0: 3b 0a 20 20 74 79 70 65 4e 65 65 64 6c 65 20 3d  ;.  typeNeedle =
1500: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74   sqlite3_value_t
1510: 79 70 65 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20  ype(argv[1]);.  
1520: 69 66 28 20 74 79 70 65 48 61 79 73 74 61 63 6b  if( typeHaystack
1530: 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 7c 7c  ==SQLITE_NULL ||
1540: 20 74 79 70 65 4e 65 65 64 6c 65 3d 3d 53 51 4c   typeNeedle==SQL
1550: 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75 72  ITE_NULL ) retur
1560: 6e 3b 0a 20 20 6e 48 61 79 73 74 61 63 6b 20 3d  n;.  nHaystack =
1570: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62   sqlite3_value_b
1580: 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20  ytes(argv[0]);. 
1590: 20 6e 4e 65 65 64 6c 65 20 3d 20 73 71 6c 69 74   nNeedle = sqlit
15a0: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61  e3_value_bytes(a
15b0: 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 74  rgv[1]);.  if( t
15c0: 79 70 65 48 61 79 73 74 61 63 6b 3d 3d 53 51 4c  ypeHaystack==SQL
15d0: 49 54 45 5f 42 4c 4f 42 20 26 26 20 74 79 70 65  ITE_BLOB && type
15e0: 4e 65 65 64 6c 65 3d 3d 53 51 4c 49 54 45 5f 42  Needle==SQLITE_B
15f0: 4c 4f 42 20 29 7b 0a 20 20 20 20 7a 48 61 79 73  LOB ){.    zHays
1600: 74 61 63 6b 20 3d 20 73 71 6c 69 74 65 33 5f 76  tack = sqlite3_v
1610: 61 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30  alue_blob(argv[0
1620: 5d 29 3b 0a 20 20 20 20 7a 4e 65 65 64 6c 65 20  ]);.    zNeedle 
1630: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  = sqlite3_value_
1640: 62 6c 6f 62 28 61 72 67 76 5b 31 5d 29 3b 0a 20  blob(argv[1]);. 
1650: 20 20 20 69 73 54 65 78 74 20 3d 20 30 3b 0a 20     isText = 0;. 
1660: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 48 61 79   }else{.    zHay
1670: 73 74 61 63 6b 20 3d 20 73 71 6c 69 74 65 33 5f  stack = sqlite3_
1680: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b  value_text(argv[
1690: 30 5d 29 3b 0a 20 20 20 20 7a 4e 65 65 64 6c 65  0]);.    zNeedle
16a0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
16b0: 5f 74 65 78 74 28 61 72 67 76 5b 31 5d 29 3b 0a  _text(argv[1]);.
16c0: 20 20 20 20 69 73 54 65 78 74 20 3d 20 31 3b 0a      isText = 1;.
16d0: 20 20 7d 0a 20 20 77 68 69 6c 65 28 20 6e 4e 65    }.  while( nNe
16e0: 65 64 6c 65 3c 3d 6e 48 61 79 73 74 61 63 6b 20  edle<=nHaystack 
16f0: 26 26 20 6d 65 6d 63 6d 70 28 7a 48 61 79 73 74  && memcmp(zHayst
1700: 61 63 6b 2c 20 7a 4e 65 65 64 6c 65 2c 20 6e 4e  ack, zNeedle, nN
1710: 65 65 64 6c 65 29 21 3d 30 20 29 7b 0a 20 20 20  eedle)!=0 ){.   
1720: 20 4e 2b 2b 3b 0a 20 20 20 20 64 6f 7b 0a 20 20   N++;.    do{.  
1730: 20 20 20 20 6e 48 61 79 73 74 61 63 6b 2d 2d 3b      nHaystack--;
1740: 0a 20 20 20 20 20 20 7a 48 61 79 73 74 61 63 6b  .      zHaystack
1750: 2b 2b 3b 0a 20 20 20 20 7d 77 68 69 6c 65 28 20  ++;.    }while( 
1760: 69 73 54 65 78 74 20 26 26 20 28 7a 48 61 79 73  isText && (zHays
1770: 74 61 63 6b 5b 30 5d 26 30 78 63 30 29 3d 3d 30  tack[0]&0xc0)==0
1780: 78 38 30 20 29 3b 0a 20 20 7d 0a 20 20 69 66 28  x80 );.  }.  if(
1790: 20 6e 4e 65 65 64 6c 65 3e 6e 48 61 79 73 74 61   nNeedle>nHaysta
17a0: 63 6b 20 29 20 4e 20 3d 20 30 3b 0a 20 20 73 71  ck ) N = 0;.  sq
17b0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74  lite3_result_int
17c0: 28 63 6f 6e 74 65 78 74 2c 20 4e 29 3b 0a 7d 0a  (context, N);.}.
17d0: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74  ./*.** Implement
17e0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 72 69  ation of the pri
17f0: 6e 74 66 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a  ntf() function..
1800: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 70  */.static void p
1810: 72 69 6e 74 66 46 75 6e 63 28 0a 20 20 73 71 6c  rintfFunc(.  sql
1820: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
1830: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67  ntext,.  int arg
1840: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  c,.  sqlite3_val
1850: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 50  ue **argv.){.  P
1860: 72 69 6e 74 66 41 72 67 75 6d 65 6e 74 73 20 78  rintfArguments x
1870: 3b 0a 20 20 53 74 72 41 63 63 75 6d 20 73 74 72  ;.  StrAccum str
1880: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ;.  const char *
1890: 7a 46 6f 72 6d 61 74 3b 0a 20 20 69 6e 74 20 6e  zFormat;.  int n
18a0: 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20  ;.  sqlite3 *db 
18b0: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  = sqlite3_contex
18c0: 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74  t_db_handle(cont
18d0: 65 78 74 29 3b 0a 0a 20 20 69 66 28 20 61 72 67  ext);..  if( arg
18e0: 63 3e 3d 31 20 26 26 20 28 7a 46 6f 72 6d 61 74  c>=1 && (zFormat
18f0: 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29   = (const char*)
1900: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65  sqlite3_value_te
1910: 78 74 28 61 72 67 76 5b 30 5d 29 29 21 3d 30 20  xt(argv[0]))!=0 
1920: 29 7b 0a 20 20 20 20 78 2e 6e 41 72 67 20 3d 20  ){.    x.nArg = 
1930: 61 72 67 63 2d 31 3b 0a 20 20 20 20 78 2e 6e 55  argc-1;.    x.nU
1940: 73 65 64 20 3d 20 30 3b 0a 20 20 20 20 78 2e 61  sed = 0;.    x.a
1950: 70 41 72 67 20 3d 20 61 72 67 76 2b 31 3b 0a 20  pArg = argv+1;. 
1960: 20 20 20 73 71 6c 69 74 65 33 53 74 72 41 63 63     sqlite3StrAcc
1970: 75 6d 49 6e 69 74 28 26 73 74 72 2c 20 64 62 2c  umInit(&str, db,
1980: 20 30 2c 20 30 2c 20 64 62 2d 3e 61 4c 69 6d 69   0, 0, db->aLimi
1990: 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c  t[SQLITE_LIMIT_L
19a0: 45 4e 47 54 48 5d 29 3b 0a 20 20 20 20 73 71 6c  ENGTH]);.    sql
19b0: 69 74 65 33 58 50 72 69 6e 74 66 28 26 73 74 72  ite3XPrintf(&str
19c0: 2c 20 53 51 4c 49 54 45 5f 50 52 49 4e 54 46 5f  , SQLITE_PRINTF_
19d0: 53 51 4c 46 55 4e 43 2c 20 7a 46 6f 72 6d 61 74  SQLFUNC, zFormat
19e0: 2c 20 26 78 29 3b 0a 20 20 20 20 6e 20 3d 20 73  , &x);.    n = s
19f0: 74 72 2e 6e 43 68 61 72 3b 0a 20 20 20 20 73 71  tr.nChar;.    sq
1a00: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78  lite3_result_tex
1a10: 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74  t(context, sqlit
1a20: 65 33 53 74 72 41 63 63 75 6d 46 69 6e 69 73 68  e3StrAccumFinish
1a30: 28 26 73 74 72 29 2c 20 6e 2c 0a 20 20 20 20 20  (&str), n,.     
1a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a50: 20 20 20 53 51 4c 49 54 45 5f 44 59 4e 41 4d 49     SQLITE_DYNAMI
1a60: 43 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a  C);.  }.}../*.**
1a70: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   Implementation 
1a80: 6f 66 20 74 68 65 20 73 75 62 73 74 72 28 29 20  of the substr() 
1a90: 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20  function..**.** 
1aa0: 73 75 62 73 74 72 28 78 2c 70 31 2c 70 32 29 20  substr(x,p1,p2) 
1ab0: 20 72 65 74 75 72 6e 73 20 70 32 20 63 68 61 72   returns p2 char
1ac0: 61 63 74 65 72 73 20 6f 66 20 78 5b 5d 20 62 65  acters of x[] be
1ad0: 67 69 6e 6e 69 6e 67 20 77 69 74 68 20 70 31 2e  ginning with p1.
1ae0: 0a 2a 2a 20 70 31 20 69 73 20 31 2d 69 6e 64 65  .** p1 is 1-inde
1af0: 78 65 64 2e 20 20 53 6f 20 73 75 62 73 74 72 28  xed.  So substr(
1b00: 78 2c 31 2c 31 29 20 72 65 74 75 72 6e 73 20 74  x,1,1) returns t
1b10: 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63 74  he first charact
1b20: 65 72 0a 2a 2a 20 6f 66 20 78 2e 20 20 49 66 20  er.** of x.  If 
1b30: 78 20 69 73 20 74 65 78 74 2c 20 74 68 65 6e 20  x is text, then 
1b40: 77 65 20 61 63 74 75 61 6c 6c 79 20 63 6f 75 6e  we actually coun
1b50: 74 20 55 54 46 2d 38 20 63 68 61 72 61 63 74 65  t UTF-8 characte
1b60: 72 73 2e 0a 2a 2a 20 49 66 20 78 20 69 73 20 61  rs..** If x is a
1b70: 20 62 6c 6f 62 2c 20 74 68 65 6e 20 77 65 20 63   blob, then we c
1b80: 6f 75 6e 74 20 62 79 74 65 73 2e 0a 2a 2a 0a 2a  ount bytes..**.*
1b90: 2a 20 49 66 20 70 31 20 69 73 20 6e 65 67 61 74  * If p1 is negat
1ba0: 69 76 65 2c 20 74 68 65 6e 20 77 65 20 62 65 67  ive, then we beg
1bb0: 69 6e 20 61 62 73 28 70 31 29 20 66 72 6f 6d 20  in abs(p1) from 
1bc0: 74 68 65 20 65 6e 64 20 6f 66 20 78 5b 5d 2e 0a  the end of x[]..
1bd0: 2a 2a 0a 2a 2a 20 49 66 20 70 32 20 69 73 20 6e  **.** If p2 is n
1be0: 65 67 61 74 69 76 65 2c 20 72 65 74 75 72 6e 20  egative, return 
1bf0: 74 68 65 20 70 32 20 63 68 61 72 61 63 74 65 72  the p2 character
1c00: 73 20 70 72 65 63 65 64 69 6e 67 20 70 31 2e 0a  s preceding p1..
1c10: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73  */.static void s
1c20: 75 62 73 74 72 46 75 6e 63 28 0a 20 20 73 71 6c  ubstrFunc(.  sql
1c30: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
1c40: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67  ntext,.  int arg
1c50: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  c,.  sqlite3_val
1c60: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63  ue **argv.){.  c
1c70: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68  onst unsigned ch
1c80: 61 72 20 2a 7a 3b 0a 20 20 63 6f 6e 73 74 20 75  ar *z;.  const u
1c90: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 32  nsigned char *z2
1ca0: 3b 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 69  ;.  int len;.  i
1cb0: 6e 74 20 70 30 74 79 70 65 3b 0a 20 20 69 36 34  nt p0type;.  i64
1cc0: 20 70 31 2c 20 70 32 3b 0a 20 20 69 6e 74 20 6e   p1, p2;.  int n
1cd0: 65 67 50 32 20 3d 20 30 3b 0a 0a 20 20 61 73 73  egP2 = 0;..  ass
1ce0: 65 72 74 28 20 61 72 67 63 3d 3d 33 20 7c 7c 20  ert( argc==3 || 
1cf0: 61 72 67 63 3d 3d 32 20 29 3b 0a 20 20 69 66 28  argc==2 );.  if(
1d00: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74   sqlite3_value_t
1d10: 79 70 65 28 61 72 67 76 5b 31 5d 29 3d 3d 53 51  ype(argv[1])==SQ
1d20: 4c 49 54 45 5f 4e 55 4c 4c 0a 20 20 20 7c 7c 20  LITE_NULL.   || 
1d30: 28 61 72 67 63 3d 3d 33 20 26 26 20 73 71 6c 69  (argc==3 && sqli
1d40: 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61  te3_value_type(a
1d50: 72 67 76 5b 32 5d 29 3d 3d 53 51 4c 49 54 45 5f  rgv[2])==SQLITE_
1d60: 4e 55 4c 4c 29 0a 20 20 29 7b 0a 20 20 20 20 72  NULL).  ){.    r
1d70: 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 70 30 74  eturn;.  }.  p0t
1d80: 79 70 65 20 3d 20 73 71 6c 69 74 65 33 5f 76 61  ype = sqlite3_va
1d90: 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d  lue_type(argv[0]
1da0: 29 3b 0a 20 20 70 31 20 3d 20 73 71 6c 69 74 65  );.  p1 = sqlite
1db0: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76  3_value_int(argv
1dc0: 5b 31 5d 29 3b 0a 20 20 69 66 28 20 70 30 74 79  [1]);.  if( p0ty
1dd0: 70 65 3d 3d 53 51 4c 49 54 45 5f 42 4c 4f 42 20  pe==SQLITE_BLOB 
1de0: 29 7b 0a 20 20 20 20 6c 65 6e 20 3d 20 73 71 6c  ){.    len = sql
1df0: 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73  ite3_value_bytes
1e00: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 7a  (argv[0]);.    z
1e10: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
1e20: 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d 29 3b 0a  _blob(argv[0]);.
1e30: 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 29 20 72      if( z==0 ) r
1e40: 65 74 75 72 6e 3b 0a 20 20 20 20 61 73 73 65 72  eturn;.    asser
1e50: 74 28 20 6c 65 6e 3d 3d 73 71 6c 69 74 65 33 5f  t( len==sqlite3_
1e60: 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76  value_bytes(argv
1e70: 5b 30 5d 29 20 29 3b 0a 20 20 7d 65 6c 73 65 7b  [0]) );.  }else{
1e80: 0a 20 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 33  .    z = sqlite3
1e90: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76  _value_text(argv
1ea0: 5b 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 7a 3d  [0]);.    if( z=
1eb0: 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 20  =0 ) return;.   
1ec0: 20 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 69 66   len = 0;.    if
1ed0: 28 20 70 31 3c 30 20 29 7b 0a 20 20 20 20 20 20  ( p1<0 ){.      
1ee0: 66 6f 72 28 7a 32 3d 7a 3b 20 2a 7a 32 3b 20 6c  for(z2=z; *z2; l
1ef0: 65 6e 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 53  en++){.        S
1f00: 51 4c 49 54 45 5f 53 4b 49 50 5f 55 54 46 38 28  QLITE_SKIP_UTF8(
1f10: 7a 32 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  z2);.      }.   
1f20: 20 7d 0a 20 20 7d 0a 23 69 66 64 65 66 20 53 51   }.  }.#ifdef SQ
1f30: 4c 49 54 45 5f 53 55 42 53 54 52 5f 43 4f 4d 50  LITE_SUBSTR_COMP
1f40: 41 54 49 42 49 4c 49 54 59 0a 20 20 2f 2a 20 49  ATIBILITY.  /* I
1f50: 66 20 53 55 42 53 54 52 5f 43 4f 4d 50 41 54 49  f SUBSTR_COMPATI
1f60: 42 49 4c 49 54 59 20 69 73 20 64 65 66 69 6e 65  BILITY is define
1f70: 64 20 74 68 65 6e 20 73 75 62 73 74 72 28 58 2c  d then substr(X,
1f80: 30 2c 4e 29 20 77 6f 72 6b 20 74 68 65 20 73 61  0,N) work the sa
1f90: 6d 65 20 61 73 0a 20 20 2a 2a 20 61 73 20 73 75  me as.  ** as su
1fa0: 62 73 74 72 28 58 2c 31 2c 4e 29 20 2d 20 69 74  bstr(X,1,N) - it
1fb0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 66 69 72   returns the fir
1fc0: 73 74 20 4e 20 63 68 61 72 61 63 74 65 72 73 20  st N characters 
1fd0: 6f 66 20 58 2e 20 20 54 68 69 73 0a 20 20 2a 2a  of X.  This.  **
1fe0: 20 69 73 20 65 73 73 65 6e 74 69 61 6c 6c 79 20   is essentially 
1ff0: 61 20 62 61 63 6b 2d 6f 75 74 20 6f 66 20 74 68  a back-out of th
2000: 65 20 62 75 67 2d 66 69 78 20 69 6e 20 63 68 65  e bug-fix in che
2010: 63 6b 2d 69 6e 20 5b 35 66 63 31 32 35 64 33 36  ck-in [5fc125d36
2020: 32 64 66 34 62 38 5d 0a 20 20 2a 2a 20 66 72 6f  2df4b8].  ** fro
2030: 6d 20 32 30 30 39 2d 30 32 2d 30 32 20 66 6f 72  m 2009-02-02 for
2040: 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 6f   compatibility o
2050: 66 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 20 74  f applications t
2060: 68 61 74 20 65 78 70 6c 6f 69 74 65 64 20 74 68  hat exploited th
2070: 65 0a 20 20 2a 2a 20 6f 6c 64 20 62 75 67 67 79  e.  ** old buggy
2080: 20 62 65 68 61 76 69 6f 72 2e 20 2a 2f 0a 20 20   behavior. */.  
2090: 69 66 28 20 70 31 3d 3d 30 20 29 20 70 31 20 3d  if( p1==0 ) p1 =
20a0: 20 31 3b 20 2f 2a 20 3c 72 64 61 72 3a 2f 2f 70   1; /* <rdar://p
20b0: 72 6f 62 6c 65 6d 2f 36 37 37 38 33 33 39 3e 20  roblem/6778339> 
20c0: 2a 2f 0a 23 65 6e 64 69 66 0a 20 20 69 66 28 20  */.#endif.  if( 
20d0: 61 72 67 63 3d 3d 33 20 29 7b 0a 20 20 20 20 70  argc==3 ){.    p
20e0: 32 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  2 = sqlite3_valu
20f0: 65 5f 69 6e 74 28 61 72 67 76 5b 32 5d 29 3b 0a  e_int(argv[2]);.
2100: 20 20 20 20 69 66 28 20 70 32 3c 30 20 29 7b 0a      if( p2<0 ){.
2110: 20 20 20 20 20 20 70 32 20 3d 20 2d 70 32 3b 0a        p2 = -p2;.
2120: 20 20 20 20 20 20 6e 65 67 50 32 20 3d 20 31 3b        negP2 = 1;
2130: 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a  .    }.  }else{.
2140: 20 20 20 20 70 32 20 3d 20 73 71 6c 69 74 65 33      p2 = sqlite3
2150: 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64  _context_db_hand
2160: 6c 65 28 63 6f 6e 74 65 78 74 29 2d 3e 61 4c 69  le(context)->aLi
2170: 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54  mit[SQLITE_LIMIT
2180: 5f 4c 45 4e 47 54 48 5d 3b 0a 20 20 7d 0a 20 20  _LENGTH];.  }.  
2190: 69 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 20 20  if( p1<0 ){.    
21a0: 70 31 20 2b 3d 20 6c 65 6e 3b 0a 20 20 20 20 69  p1 += len;.    i
21b0: 66 28 20 70 31 3c 30 20 29 7b 0a 20 20 20 20 20  f( p1<0 ){.     
21c0: 20 70 32 20 2b 3d 20 70 31 3b 0a 20 20 20 20 20   p2 += p1;.     
21d0: 20 69 66 28 20 70 32 3c 30 20 29 20 70 32 20 3d   if( p2<0 ) p2 =
21e0: 20 30 3b 0a 20 20 20 20 20 20 70 31 20 3d 20 30   0;.      p1 = 0
21f0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 20  ;.    }.  }else 
2200: 69 66 28 20 70 31 3e 30 20 29 7b 0a 20 20 20 20  if( p1>0 ){.    
2210: 70 31 2d 2d 3b 0a 20 20 7d 65 6c 73 65 20 69 66  p1--;.  }else if
2220: 28 20 70 32 3e 30 20 29 7b 0a 20 20 20 20 70 32  ( p2>0 ){.    p2
2230: 2d 2d 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6e 65  --;.  }.  if( ne
2240: 67 50 32 20 29 7b 0a 20 20 20 20 70 31 20 2d 3d  gP2 ){.    p1 -=
2250: 20 70 32 3b 0a 20 20 20 20 69 66 28 20 70 31 3c   p2;.    if( p1<
2260: 30 20 29 7b 0a 20 20 20 20 20 20 70 32 20 2b 3d  0 ){.      p2 +=
2270: 20 70 31 3b 0a 20 20 20 20 20 20 70 31 20 3d 20   p1;.      p1 = 
2280: 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 61  0;.    }.  }.  a
2290: 73 73 65 72 74 28 20 70 31 3e 3d 30 20 26 26 20  ssert( p1>=0 && 
22a0: 70 32 3e 3d 30 20 29 3b 0a 20 20 69 66 28 20 70  p2>=0 );.  if( p
22b0: 30 74 79 70 65 21 3d 53 51 4c 49 54 45 5f 42 4c  0type!=SQLITE_BL
22c0: 4f 42 20 29 7b 0a 20 20 20 20 77 68 69 6c 65 28  OB ){.    while(
22d0: 20 2a 7a 20 26 26 20 70 31 20 29 7b 0a 20 20 20   *z && p1 ){.   
22e0: 20 20 20 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55     SQLITE_SKIP_U
22f0: 54 46 38 28 7a 29 3b 0a 20 20 20 20 20 20 70 31  TF8(z);.      p1
2300: 2d 2d 3b 0a 20 20 20 20 7d 0a 20 20 20 20 66 6f  --;.    }.    fo
2310: 72 28 7a 32 3d 7a 3b 20 2a 7a 32 20 26 26 20 70  r(z2=z; *z2 && p
2320: 32 3b 20 70 32 2d 2d 29 7b 0a 20 20 20 20 20 20  2; p2--){.      
2330: 53 51 4c 49 54 45 5f 53 4b 49 50 5f 55 54 46 38  SQLITE_SKIP_UTF8
2340: 28 7a 32 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20  (z2);.    }.    
2350: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74  sqlite3_result_t
2360: 65 78 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 28  ext64(context, (
2370: 63 68 61 72 2a 29 7a 2c 20 7a 32 2d 7a 2c 20 53  char*)z, z2-z, S
2380: 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 2c  QLITE_TRANSIENT,
2390: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
23a0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54             SQLIT
23b0: 45 5f 55 54 46 38 29 3b 0a 20 20 7d 65 6c 73 65  E_UTF8);.  }else
23c0: 7b 0a 20 20 20 20 69 66 28 20 70 31 2b 70 32 3e  {.    if( p1+p2>
23d0: 6c 65 6e 20 29 7b 0a 20 20 20 20 20 20 70 32 20  len ){.      p2 
23e0: 3d 20 6c 65 6e 2d 70 31 3b 0a 20 20 20 20 20 20  = len-p1;.      
23f0: 69 66 28 20 70 32 3c 30 20 29 20 70 32 20 3d 20  if( p2<0 ) p2 = 
2400: 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c  0;.    }.    sql
2410: 69 74 65 33 5f 72 65 73 75 6c 74 5f 62 6c 6f 62  ite3_result_blob
2420: 36 34 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61  64(context, (cha
2430: 72 2a 29 26 7a 5b 70 31 5d 2c 20 28 75 36 34 29  r*)&z[p1], (u64)
2440: 70 32 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53  p2, SQLITE_TRANS
2450: 49 45 4e 54 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a  IENT);.  }.}../*
2460: 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69  .** Implementati
2470: 6f 6e 20 6f 66 20 74 68 65 20 72 6f 75 6e 64 28  on of the round(
2480: 29 20 66 75 6e 63 74 69 6f 6e 0a 2a 2f 0a 23 69  ) function.*/.#i
2490: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49  fndef SQLITE_OMI
24a0: 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f 49 4e 54  T_FLOATING_POINT
24b0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 72 6f 75  .static void rou
24c0: 6e 64 46 75 6e 63 28 73 71 6c 69 74 65 33 5f 63  ndFunc(sqlite3_c
24d0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c  ontext *context,
24e0: 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74   int argc, sqlit
24f0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29  e3_value **argv)
2500: 7b 0a 20 20 69 6e 74 20 6e 20 3d 20 30 3b 0a 20  {.  int n = 0;. 
2510: 20 64 6f 75 62 6c 65 20 72 3b 0a 20 20 63 68 61   double r;.  cha
2520: 72 20 2a 7a 42 75 66 3b 0a 20 20 61 73 73 65 72  r *zBuf;.  asser
2530: 74 28 20 61 72 67 63 3d 3d 31 20 7c 7c 20 61 72  t( argc==1 || ar
2540: 67 63 3d 3d 32 20 29 3b 0a 20 20 69 66 28 20 61  gc==2 );.  if( a
2550: 72 67 63 3d 3d 32 20 29 7b 0a 20 20 20 20 69 66  rgc==2 ){.    if
2560: 28 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 3d 3d 73  ( SQLITE_NULL==s
2570: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70  qlite3_value_typ
2580: 65 28 61 72 67 76 5b 31 5d 29 20 29 20 72 65 74  e(argv[1]) ) ret
2590: 75 72 6e 3b 0a 20 20 20 20 6e 20 3d 20 73 71 6c  urn;.    n = sql
25a0: 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61  ite3_value_int(a
25b0: 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 69 66 28  rgv[1]);.    if(
25c0: 20 6e 3e 33 30 20 29 20 6e 20 3d 20 33 30 3b 0a   n>30 ) n = 30;.
25d0: 20 20 20 20 69 66 28 20 6e 3c 30 20 29 20 6e 20      if( n<0 ) n 
25e0: 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 73  = 0;.  }.  if( s
25f0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70  qlite3_value_typ
2600: 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49  e(argv[0])==SQLI
2610: 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75 72 6e  TE_NULL ) return
2620: 3b 0a 20 20 72 20 3d 20 73 71 6c 69 74 65 33 5f  ;.  r = sqlite3_
2630: 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 61 72 67  value_double(arg
2640: 76 5b 30 5d 29 3b 0a 20 20 2f 2a 20 49 66 20 59  v[0]);.  /* If Y
2650: 3d 3d 30 20 61 6e 64 20 58 20 77 69 6c 6c 20 66  ==0 and X will f
2660: 69 74 20 69 6e 20 61 20 36 34 2d 62 69 74 20 69  it in a 64-bit i
2670: 6e 74 2c 0a 20 20 2a 2a 20 68 61 6e 64 6c 65 20  nt,.  ** handle 
2680: 74 68 65 20 72 6f 75 6e 64 69 6e 67 20 64 69 72  the rounding dir
2690: 65 63 74 6c 79 2c 0a 20 20 2a 2a 20 6f 74 68 65  ectly,.  ** othe
26a0: 72 77 69 73 65 20 75 73 65 20 70 72 69 6e 74 66  rwise use printf
26b0: 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 6e 3d 3d  ..  */.  if( n==
26c0: 30 20 26 26 20 72 3e 3d 30 20 26 26 20 72 3c 4c  0 && r>=0 && r<L
26d0: 41 52 47 45 53 54 5f 49 4e 54 36 34 2d 31 20 29  ARGEST_INT64-1 )
26e0: 7b 0a 20 20 20 20 72 20 3d 20 28 64 6f 75 62 6c  {.    r = (doubl
26f0: 65 29 28 28 73 71 6c 69 74 65 5f 69 6e 74 36 34  e)((sqlite_int64
2700: 29 28 72 2b 30 2e 35 29 29 3b 0a 20 20 7d 65 6c  )(r+0.5));.  }el
2710: 73 65 20 69 66 28 20 6e 3d 3d 30 20 26 26 20 72  se if( n==0 && r
2720: 3c 30 20 26 26 20 28 2d 72 29 3c 4c 41 52 47 45  <0 && (-r)<LARGE
2730: 53 54 5f 49 4e 54 36 34 2d 31 20 29 7b 0a 20 20  ST_INT64-1 ){.  
2740: 20 20 72 20 3d 20 2d 28 64 6f 75 62 6c 65 29 28    r = -(double)(
2750: 28 73 71 6c 69 74 65 5f 69 6e 74 36 34 29 28 28  (sqlite_int64)((
2760: 2d 72 29 2b 30 2e 35 29 29 3b 0a 20 20 7d 65 6c  -r)+0.5));.  }el
2770: 73 65 7b 0a 20 20 20 20 7a 42 75 66 20 3d 20 73  se{.    zBuf = s
2780: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22  qlite3_mprintf("
2790: 25 2e 2a 66 22 2c 6e 2c 72 29 3b 0a 20 20 20 20  %.*f",n,r);.    
27a0: 69 66 28 20 7a 42 75 66 3d 3d 30 20 29 7b 0a 20  if( zBuf==0 ){. 
27b0: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73       sqlite3_res
27c0: 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28  ult_error_nomem(
27d0: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20  context);.      
27e0: 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20  return;.    }.  
27f0: 20 20 73 71 6c 69 74 65 33 41 74 6f 46 28 7a 42    sqlite3AtoF(zB
2800: 75 66 2c 20 26 72 2c 20 73 71 6c 69 74 65 33 53  uf, &r, sqlite3S
2810: 74 72 6c 65 6e 33 30 28 7a 42 75 66 29 2c 20 53  trlen30(zBuf), S
2820: 51 4c 49 54 45 5f 55 54 46 38 29 3b 0a 20 20 20  QLITE_UTF8);.   
2830: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 42   sqlite3_free(zB
2840: 75 66 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74  uf);.  }.  sqlit
2850: 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65  e3_result_double
2860: 28 63 6f 6e 74 65 78 74 2c 20 72 29 3b 0a 7d 0a  (context, r);.}.
2870: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 41 6c  #endif../*.** Al
2880: 6c 6f 63 61 74 65 20 6e 42 79 74 65 20 62 79 74  locate nByte byt
2890: 65 73 20 6f 66 20 73 70 61 63 65 20 75 73 69 6e  es of space usin
28a0: 67 20 73 71 6c 69 74 65 33 4d 61 6c 6c 6f 63 28  g sqlite3Malloc(
28b0: 29 2e 20 49 66 20 74 68 65 0a 2a 2a 20 61 6c 6c  ). If the.** all
28c0: 6f 63 61 74 69 6f 6e 20 66 61 69 6c 73 2c 20 63  ocation fails, c
28d0: 61 6c 6c 20 73 71 6c 69 74 65 33 5f 72 65 73 75  all sqlite3_resu
28e0: 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28 29  lt_error_nomem()
28f0: 20 74 6f 20 6e 6f 74 69 66 79 0a 2a 2a 20 74 68   to notify.** th
2900: 65 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c  e database handl
2910: 65 20 74 68 61 74 20 6d 61 6c 6c 6f 63 28 29 20  e that malloc() 
2920: 68 61 73 20 66 61 69 6c 65 64 20 61 6e 64 20 72  has failed and r
2930: 65 74 75 72 6e 20 4e 55 4c 4c 2e 0a 2a 2a 20 49  eturn NULL..** I
2940: 66 20 6e 42 79 74 65 20 69 73 20 6c 61 72 67 65  f nByte is large
2950: 72 20 74 68 61 6e 20 74 68 65 20 6d 61 78 69 6d  r than the maxim
2960: 75 6d 20 73 74 72 69 6e 67 20 6f 72 20 62 6c 6f  um string or blo
2970: 62 20 6c 65 6e 67 74 68 2c 20 74 68 65 6e 0a 2a  b length, then.*
2980: 2a 20 72 61 69 73 65 20 61 6e 20 53 51 4c 49 54  * raise an SQLIT
2990: 45 5f 54 4f 4f 42 49 47 20 65 78 63 65 70 74 69  E_TOOBIG excepti
29a0: 6f 6e 20 61 6e 64 20 72 65 74 75 72 6e 20 4e 55  on and return NU
29b0: 4c 4c 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  LL..*/.static vo
29c0: 69 64 20 2a 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f  id *contextMallo
29d0: 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  c(sqlite3_contex
29e0: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 36 34 20  t *context, i64 
29f0: 6e 42 79 74 65 29 7b 0a 20 20 63 68 61 72 20 2a  nByte){.  char *
2a00: 7a 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62  z;.  sqlite3 *db
2a10: 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65   = sqlite3_conte
2a20: 78 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e  xt_db_handle(con
2a30: 74 65 78 74 29 3b 0a 20 20 61 73 73 65 72 74 28  text);.  assert(
2a40: 20 6e 42 79 74 65 3e 30 20 29 3b 0a 20 20 74 65   nByte>0 );.  te
2a50: 73 74 63 61 73 65 28 20 6e 42 79 74 65 3d 3d 64  stcase( nByte==d
2a60: 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45  b->aLimit[SQLITE
2a70: 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29  _LIMIT_LENGTH] )
2a80: 3b 0a 20 20 74 65 73 74 63 61 73 65 28 20 6e 42  ;.  testcase( nB
2a90: 79 74 65 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74 5b  yte==db->aLimit[
2aa0: 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e  SQLITE_LIMIT_LEN
2ab0: 47 54 48 5d 2b 31 20 29 3b 0a 20 20 69 66 28 20  GTH]+1 );.  if( 
2ac0: 6e 42 79 74 65 3e 64 62 2d 3e 61 4c 69 6d 69 74  nByte>db->aLimit
2ad0: 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 45  [SQLITE_LIMIT_LE
2ae0: 4e 47 54 48 5d 20 29 7b 0a 20 20 20 20 73 71 6c  NGTH] ){.    sql
2af0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f  ite3_result_erro
2b00: 72 5f 74 6f 6f 62 69 67 28 63 6f 6e 74 65 78 74  r_toobig(context
2b10: 29 3b 0a 20 20 20 20 7a 20 3d 20 30 3b 0a 20 20  );.    z = 0;.  
2b20: 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 20 3d 20 73  }else{.    z = s
2b30: 71 6c 69 74 65 33 4d 61 6c 6c 6f 63 28 6e 42 79  qlite3Malloc(nBy
2b40: 74 65 29 3b 0a 20 20 20 20 69 66 28 20 21 7a 20  te);.    if( !z 
2b50: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33  ){.      sqlite3
2b60: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f  _result_error_no
2b70: 6d 65 6d 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20  mem(context);.  
2b80: 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e    }.  }.  return
2b90: 20 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70   z;.}../*.** Imp
2ba0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74  lementation of t
2bb0: 68 65 20 75 70 70 65 72 28 29 20 61 6e 64 20 6c  he upper() and l
2bc0: 6f 77 65 72 28 29 20 53 51 4c 20 66 75 6e 63 74  ower() SQL funct
2bd0: 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ions..*/.static 
2be0: 76 6f 69 64 20 75 70 70 65 72 46 75 6e 63 28 73  void upperFunc(s
2bf0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
2c00: 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67  context, int arg
2c10: 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  c, sqlite3_value
2c20: 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 68 61 72   **argv){.  char
2c30: 20 2a 7a 31 3b 0a 20 20 63 6f 6e 73 74 20 63 68   *z1;.  const ch
2c40: 61 72 20 2a 7a 32 3b 0a 20 20 69 6e 74 20 69 2c  ar *z2;.  int i,
2c50: 20 6e 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52   n;.  UNUSED_PAR
2c60: 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20  AMETER(argc);.  
2c70: 7a 32 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69  z2 = (char*)sqli
2c80: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
2c90: 72 67 76 5b 30 5d 29 3b 0a 20 20 6e 20 3d 20 73  rgv[0]);.  n = s
2ca0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74  qlite3_value_byt
2cb0: 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 2f  es(argv[0]);.  /
2cc0: 2a 20 56 65 72 69 66 79 20 74 68 61 74 20 74 68  * Verify that th
2cd0: 65 20 63 61 6c 6c 20 74 6f 20 5f 62 79 74 65 73  e call to _bytes
2ce0: 28 29 20 64 6f 65 73 20 6e 6f 74 20 69 6e 76 61  () does not inva
2cf0: 6c 69 64 61 74 65 20 74 68 65 20 5f 74 65 78 74  lidate the _text
2d00: 28 29 20 70 6f 69 6e 74 65 72 20 2a 2f 0a 20 20  () pointer */.  
2d10: 61 73 73 65 72 74 28 20 7a 32 3d 3d 28 63 68 61  assert( z2==(cha
2d20: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  r*)sqlite3_value
2d30: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 20 29  _text(argv[0]) )
2d40: 3b 0a 20 20 69 66 28 20 7a 32 20 29 7b 0a 20 20  ;.  if( z2 ){.  
2d50: 20 20 7a 31 20 3d 20 63 6f 6e 74 65 78 74 4d 61    z1 = contextMa
2d60: 6c 6c 6f 63 28 63 6f 6e 74 65 78 74 2c 20 28 28  lloc(context, ((
2d70: 69 36 34 29 6e 29 2b 31 29 3b 0a 20 20 20 20 69  i64)n)+1);.    i
2d80: 66 28 20 7a 31 20 29 7b 0a 20 20 20 20 20 20 66  f( z1 ){.      f
2d90: 6f 72 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b  or(i=0; i<n; i++
2da0: 29 7b 0a 20 20 20 20 20 20 20 20 7a 31 5b 69 5d  ){.        z1[i]
2db0: 20 3d 20 28 63 68 61 72 29 73 71 6c 69 74 65 33   = (char)sqlite3
2dc0: 54 6f 75 70 70 65 72 28 7a 32 5b 69 5d 29 3b 0a  Toupper(z2[i]);.
2dd0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 71        }.      sq
2de0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78  lite3_result_tex
2df0: 74 28 63 6f 6e 74 65 78 74 2c 20 7a 31 2c 20 6e  t(context, z1, n
2e00: 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b  , sqlite3_free);
2e10: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 73 74 61  .    }.  }.}.sta
2e20: 74 69 63 20 76 6f 69 64 20 6c 6f 77 65 72 46 75  tic void lowerFu
2e30: 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  nc(sqlite3_conte
2e40: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74  xt *context, int
2e50: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76   argc, sqlite3_v
2e60: 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20  alue **argv){.  
2e70: 63 68 61 72 20 2a 7a 31 3b 0a 20 20 63 6f 6e 73  char *z1;.  cons
2e80: 74 20 63 68 61 72 20 2a 7a 32 3b 0a 20 20 69 6e  t char *z2;.  in
2e90: 74 20 69 2c 20 6e 3b 0a 20 20 55 4e 55 53 45 44  t i, n;.  UNUSED
2ea0: 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29  _PARAMETER(argc)
2eb0: 3b 0a 20 20 7a 32 20 3d 20 28 63 68 61 72 2a 29  ;.  z2 = (char*)
2ec0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65  sqlite3_value_te
2ed0: 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 6e  xt(argv[0]);.  n
2ee0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
2ef0: 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b  _bytes(argv[0]);
2f00: 0a 20 20 2f 2a 20 56 65 72 69 66 79 20 74 68 61  .  /* Verify tha
2f10: 74 20 74 68 65 20 63 61 6c 6c 20 74 6f 20 5f 62  t the call to _b
2f20: 79 74 65 73 28 29 20 64 6f 65 73 20 6e 6f 74 20  ytes() does not 
2f30: 69 6e 76 61 6c 69 64 61 74 65 20 74 68 65 20 5f  invalidate the _
2f40: 74 65 78 74 28 29 20 70 6f 69 6e 74 65 72 20 2a  text() pointer *
2f50: 2f 0a 20 20 61 73 73 65 72 74 28 20 7a 32 3d 3d  /.  assert( z2==
2f60: 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76  (char*)sqlite3_v
2f70: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30  alue_text(argv[0
2f80: 5d 29 20 29 3b 0a 20 20 69 66 28 20 7a 32 20 29  ]) );.  if( z2 )
2f90: 7b 0a 20 20 20 20 7a 31 20 3d 20 63 6f 6e 74 65  {.    z1 = conte
2fa0: 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78 74  xtMalloc(context
2fb0: 2c 20 28 28 69 36 34 29 6e 29 2b 31 29 3b 0a 20  , ((i64)n)+1);. 
2fc0: 20 20 20 69 66 28 20 7a 31 20 29 7b 0a 20 20 20     if( z1 ){.   
2fd0: 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 3b     for(i=0; i<n;
2fe0: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 7a   i++){.        z
2ff0: 31 5b 69 5d 20 3d 20 73 71 6c 69 74 65 33 54 6f  1[i] = sqlite3To
3000: 6c 6f 77 65 72 28 7a 32 5b 69 5d 29 3b 0a 20 20  lower(z2[i]);.  
3010: 20 20 20 20 7d 0a 20 20 20 20 20 20 73 71 6c 69      }.      sqli
3020: 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28  te3_result_text(
3030: 63 6f 6e 74 65 78 74 2c 20 7a 31 2c 20 6e 2c 20  context, z1, n, 
3040: 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20  sqlite3_free);. 
3050: 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a     }.  }.}../*.*
3060: 2a 20 53 6f 6d 65 20 66 75 6e 63 74 69 6f 6e 73  * Some functions
3070: 20 6c 69 6b 65 20 43 4f 41 4c 45 53 43 45 28 29   like COALESCE()
3080: 20 61 6e 64 20 49 46 4e 55 4c 4c 28 29 20 61 6e   and IFNULL() an
3090: 64 20 55 4e 4c 49 4b 45 4c 59 28 29 20 61 72 65  d UNLIKELY() are
30a0: 20 69 6d 70 6c 65 6d 65 6e 74 65 64 0a 2a 2a 20   implemented.** 
30b0: 61 73 20 56 44 42 45 20 63 6f 64 65 20 73 6f 20  as VDBE code so 
30c0: 74 68 61 74 20 75 6e 75 73 65 64 20 61 72 67 75  that unused argu
30d0: 6d 65 6e 74 20 76 61 6c 75 65 73 20 64 6f 20 6e  ment values do n
30e0: 6f 74 20 68 61 76 65 20 74 6f 20 62 65 20 63 6f  ot have to be co
30f0: 6d 70 75 74 65 64 2e 0a 2a 2a 20 48 6f 77 65 76  mputed..** Howev
3100: 65 72 2c 20 77 65 20 73 74 69 6c 6c 20 6e 65 65  er, we still nee
3110: 64 20 73 6f 6d 65 20 6b 69 6e 64 20 6f 66 20 66  d some kind of f
3120: 75 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e  unction implemen
3130: 74 61 74 69 6f 6e 20 66 6f 72 20 74 68 69 73 0a  tation for this.
3140: 2a 2a 20 72 6f 75 74 69 6e 65 73 20 69 6e 20 74  ** routines in t
3150: 68 65 20 66 75 6e 63 74 69 6f 6e 20 74 61 62 6c  he function tabl
3160: 65 2e 20 20 54 68 65 20 6e 6f 6f 70 46 75 6e 63  e.  The noopFunc
3170: 20 6d 61 63 72 6f 20 70 72 6f 76 69 64 65 73 20   macro provides 
3180: 74 68 69 73 2e 0a 2a 2a 20 6e 6f 6f 70 46 75 6e  this..** noopFun
3190: 63 20 77 69 6c 6c 20 6e 65 76 65 72 20 62 65 20  c will never be 
31a0: 63 61 6c 6c 65 64 20 73 6f 20 69 74 20 64 6f 65  called so it doe
31b0: 73 6e 27 74 20 6d 61 74 74 65 72 20 77 68 61 74  sn't matter what
31c0: 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74   the implementat
31d0: 69 6f 6e 0a 2a 2a 20 69 73 2e 20 20 57 65 20 6d  ion.** is.  We m
31e0: 69 67 68 74 20 61 73 20 77 65 6c 6c 20 75 73 65  ight as well use
31f0: 20 74 68 65 20 22 76 65 72 73 69 6f 6e 28 29 22   the "version()"
3200: 20 66 75 6e 63 74 69 6f 6e 20 61 73 20 61 20 73   function as a s
3210: 75 62 73 74 69 74 75 74 65 2e 0a 2a 2f 0a 23 64  ubstitute..*/.#d
3220: 65 66 69 6e 65 20 6e 6f 6f 70 46 75 6e 63 20 76  efine noopFunc v
3230: 65 72 73 69 6f 6e 46 75 6e 63 20 20 20 2f 2a 20  ersionFunc   /* 
3240: 53 75 62 73 74 69 74 75 74 65 20 66 75 6e 63 74  Substitute funct
3250: 69 6f 6e 20 2d 20 6e 65 76 65 72 20 63 61 6c 6c  ion - never call
3260: 65 64 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70  ed */../*.** Imp
3270: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 72  lementation of r
3280: 61 6e 64 6f 6d 28 29 2e 20 20 52 65 74 75 72 6e  andom().  Return
3290: 20 61 20 72 61 6e 64 6f 6d 20 69 6e 74 65 67 65   a random intege
32a0: 72 2e 20 20 0a 2a 2f 0a 73 74 61 74 69 63 20 76  r.  .*/.static v
32b0: 6f 69 64 20 72 61 6e 64 6f 6d 46 75 6e 63 28 0a  oid randomFunc(.
32c0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78    sqlite3_contex
32d0: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e  t *context,.  in
32e0: 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 73 71 6c  t NotUsed,.  sql
32f0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 4e 6f 74  ite3_value **Not
3300: 55 73 65 64 32 0a 29 7b 0a 20 20 73 71 6c 69 74  Used2.){.  sqlit
3310: 65 5f 69 6e 74 36 34 20 72 3b 0a 20 20 55 4e 55  e_int64 r;.  UNU
3320: 53 45 44 5f 50 41 52 41 4d 45 54 45 52 32 28 4e  SED_PARAMETER2(N
3330: 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 32  otUsed, NotUsed2
3340: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 61 6e  );.  sqlite3_ran
3350: 64 6f 6d 6e 65 73 73 28 73 69 7a 65 6f 66 28 72  domness(sizeof(r
3360: 29 2c 20 26 72 29 3b 0a 20 20 69 66 28 20 72 3c  ), &r);.  if( r<
3370: 30 20 29 7b 0a 20 20 20 20 2f 2a 20 57 65 20 6e  0 ){.    /* We n
3380: 65 65 64 20 74 6f 20 70 72 65 76 65 6e 74 20 61  eed to prevent a
3390: 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 72 20 6f   random number o
33a0: 66 20 30 78 38 30 30 30 30 30 30 30 30 30 30 30  f 0x800000000000
33b0: 30 30 30 30 20 0a 20 20 20 20 2a 2a 20 28 6f 72  0000 .    ** (or
33c0: 20 2d 39 32 32 33 33 37 32 30 33 36 38 35 34 37   -92233720368547
33d0: 37 35 38 30 38 29 20 73 69 6e 63 65 20 77 68 65  75808) since whe
33e0: 6e 20 79 6f 75 20 64 6f 20 61 62 73 28 29 20 6f  n you do abs() o
33f0: 66 20 74 68 61 74 0a 20 20 20 20 2a 2a 20 6e 75  f that.    ** nu
3400: 6d 62 65 72 20 6f 66 20 79 6f 75 20 67 65 74 20  mber of you get 
3410: 74 68 65 20 73 61 6d 65 20 76 61 6c 75 65 20 62  the same value b
3420: 61 63 6b 20 61 67 61 69 6e 2e 20 20 54 6f 20 64  ack again.  To d
3430: 6f 20 74 68 69 73 0a 20 20 20 20 2a 2a 20 69 6e  o this.    ** in
3440: 20 61 20 77 61 79 20 74 68 61 74 20 69 73 20 74   a way that is t
3450: 65 73 74 61 62 6c 65 2c 20 6d 61 73 6b 20 74 68  estable, mask th
3460: 65 20 73 69 67 6e 20 62 69 74 20 6f 66 66 20 6f  e sign bit off o
3470: 66 20 6e 65 67 61 74 69 76 65 0a 20 20 20 20 2a  f negative.    *
3480: 2a 20 76 61 6c 75 65 73 2c 20 72 65 73 75 6c 74  * values, result
3490: 69 6e 67 20 69 6e 20 61 20 70 6f 73 69 74 69 76  ing in a positiv
34a0: 65 20 76 61 6c 75 65 2e 20 20 54 68 65 6e 20 74  e value.  Then t
34b0: 61 6b 65 20 74 68 65 20 0a 20 20 20 20 2a 2a 20  ake the .    ** 
34c0: 32 73 20 63 6f 6d 70 6c 65 6d 65 6e 74 20 6f 66  2s complement of
34d0: 20 74 68 61 74 20 70 6f 73 69 74 69 76 65 20 76   that positive v
34e0: 61 6c 75 65 2e 20 20 54 68 65 20 65 6e 64 20 72  alue.  The end r
34f0: 65 73 75 6c 74 20 63 61 6e 0a 20 20 20 20 2a 2a  esult can.    **
3500: 20 74 68 65 72 65 66 6f 72 65 20 62 65 20 6e 6f   therefore be no
3510: 20 6c 65 73 73 20 74 68 61 6e 20 2d 39 32 32 33   less than -9223
3520: 33 37 32 30 33 36 38 35 34 37 37 35 38 30 37 2e  372036854775807.
3530: 0a 20 20 20 20 2a 2f 0a 20 20 20 20 72 20 3d 20  .    */.    r = 
3540: 2d 28 72 20 26 20 4c 41 52 47 45 53 54 5f 49 4e  -(r & LARGEST_IN
3550: 54 36 34 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69  T64);.  }.  sqli
3560: 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34  te3_result_int64
3570: 28 63 6f 6e 74 65 78 74 2c 20 72 29 3b 0a 7d 0a  (context, r);.}.
3580: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74  ./*.** Implement
3590: 61 74 69 6f 6e 20 6f 66 20 72 61 6e 64 6f 6d 62  ation of randomb
35a0: 6c 6f 62 28 4e 29 2e 20 20 52 65 74 75 72 6e 20  lob(N).  Return 
35b0: 61 20 72 61 6e 64 6f 6d 20 62 6c 6f 62 0a 2a 2a  a random blob.**
35c0: 20 74 68 61 74 20 69 73 20 4e 20 62 79 74 65 73   that is N bytes
35d0: 20 6c 6f 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63   long..*/.static
35e0: 20 76 6f 69 64 20 72 61 6e 64 6f 6d 42 6c 6f 62   void randomBlob
35f0: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
3600: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20  ext *context,.  
3610: 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69  int argc,.  sqli
3620: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
3630: 0a 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 75  .){.  int n;.  u
3640: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 70 3b  nsigned char *p;
3650: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 3d  .  assert( argc=
3660: 3d 31 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50  =1 );.  UNUSED_P
3670: 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a  ARAMETER(argc);.
3680: 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61    n = sqlite3_va
3690: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29  lue_int(argv[0])
36a0: 3b 0a 20 20 69 66 28 20 6e 3c 31 20 29 7b 0a 20  ;.  if( n<1 ){. 
36b0: 20 20 20 6e 20 3d 20 31 3b 0a 20 20 7d 0a 20 20     n = 1;.  }.  
36c0: 70 20 3d 20 63 6f 6e 74 65 78 74 4d 61 6c 6c 6f  p = contextMallo
36d0: 63 28 63 6f 6e 74 65 78 74 2c 20 6e 29 3b 0a 20  c(context, n);. 
36e0: 20 69 66 28 20 70 20 29 7b 0a 20 20 20 20 73 71   if( p ){.    sq
36f0: 6c 69 74 65 33 5f 72 61 6e 64 6f 6d 6e 65 73 73  lite3_randomness
3700: 28 6e 2c 20 70 29 3b 0a 20 20 20 20 73 71 6c 69  (n, p);.    sqli
3710: 74 65 33 5f 72 65 73 75 6c 74 5f 62 6c 6f 62 28  te3_result_blob(
3720: 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29  context, (char*)
3730: 70 2c 20 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72  p, n, sqlite3_fr
3740: 65 65 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a  ee);.  }.}../*.*
3750: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e  * Implementation
3760: 20 6f 66 20 74 68 65 20 6c 61 73 74 5f 69 6e 73   of the last_ins
3770: 65 72 74 5f 72 6f 77 69 64 28 29 20 53 51 4c 20  ert_rowid() SQL 
3780: 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 72  function.  The r
3790: 65 74 75 72 6e 0a 2a 2a 20 76 61 6c 75 65 20 69  eturn.** value i
37a0: 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 68  s the same as th
37b0: 65 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69  e sqlite3_last_i
37c0: 6e 73 65 72 74 5f 72 6f 77 69 64 28 29 20 41 50  nsert_rowid() AP
37d0: 49 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73  I function..*/.s
37e0: 74 61 74 69 63 20 76 6f 69 64 20 6c 61 73 74 5f  tatic void last_
37f0: 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 0a 20 20  insert_rowid(.  
3800: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
3810: 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e 74  *context, .  int
3820: 20 4e 6f 74 55 73 65 64 2c 20 0a 20 20 73 71 6c   NotUsed, .  sql
3830: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 4e 6f 74  ite3_value **Not
3840: 55 73 65 64 32 0a 29 7b 0a 20 20 73 71 6c 69 74  Used2.){.  sqlit
3850: 65 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33  e3 *db = sqlite3
3860: 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64  _context_db_hand
3870: 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 55  le(context);.  U
3880: 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 32  NUSED_PARAMETER2
3890: 28 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 65  (NotUsed, NotUse
38a0: 64 32 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a 20 52  d2);.  /* IMP: R
38b0: 2d 35 31 35 31 33 2d 31 32 30 32 36 20 54 68 65  -51513-12026 The
38c0: 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77   last_insert_row
38d0: 69 64 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f  id() SQL functio
38e0: 6e 20 69 73 20 61 0a 20 20 2a 2a 20 77 72 61 70  n is a.  ** wrap
38f0: 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 73  per around the s
3900: 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65  qlite3_last_inse
3910: 72 74 5f 72 6f 77 69 64 28 29 20 43 2f 43 2b 2b  rt_rowid() C/C++
3920: 20 69 6e 74 65 72 66 61 63 65 0a 20 20 2a 2a 20   interface.  ** 
3930: 66 75 6e 63 74 69 6f 6e 2e 20 2a 2f 0a 20 20 73  function. */.  s
3940: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e  qlite3_result_in
3950: 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c  t64(context, sql
3960: 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74  ite3_last_insert
3970: 5f 72 6f 77 69 64 28 64 62 29 29 3b 0a 7d 0a 0a  _rowid(db));.}..
3980: 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61  /*.** Implementa
3990: 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 68 61 6e  tion of the chan
39a0: 67 65 73 28 29 20 53 51 4c 20 66 75 6e 63 74 69  ges() SQL functi
39b0: 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 49 4d 50 3a 20 52  on..**.** IMP: R
39c0: 2d 36 32 30 37 33 2d 31 31 32 30 39 20 54 68 65  -62073-11209 The
39d0: 20 63 68 61 6e 67 65 73 28 29 20 53 51 4c 20 66   changes() SQL f
39e0: 75 6e 63 74 69 6f 6e 20 69 73 20 61 20 77 72 61  unction is a wra
39f0: 70 70 65 72 0a 2a 2a 20 61 72 6f 75 6e 64 20 74  pper.** around t
3a00: 68 65 20 73 71 6c 69 74 65 33 5f 63 68 61 6e 67  he sqlite3_chang
3a10: 65 73 28 29 20 43 2f 43 2b 2b 20 66 75 6e 63 74  es() C/C++ funct
3a20: 69 6f 6e 20 61 6e 64 20 68 65 6e 63 65 20 66 6f  ion and hence fo
3a30: 6c 6c 6f 77 73 20 74 68 65 20 73 61 6d 65 0a 2a  llows the same.*
3a40: 2a 20 72 75 6c 65 73 20 66 6f 72 20 63 6f 75 6e  * rules for coun
3a50: 74 69 6e 67 20 63 68 61 6e 67 65 73 2e 0a 2a 2f  ting changes..*/
3a60: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 68 61  .static void cha
3a70: 6e 67 65 73 28 0a 20 20 73 71 6c 69 74 65 33 5f  nges(.  sqlite3_
3a80: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
3a90: 2c 0a 20 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c  ,.  int NotUsed,
3aa0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  .  sqlite3_value
3ab0: 20 2a 2a 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20   **NotUsed2.){. 
3ac0: 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73   sqlite3 *db = s
3ad0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64  qlite3_context_d
3ae0: 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74  b_handle(context
3af0: 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41  );.  UNUSED_PARA
3b00: 4d 45 54 45 52 32 28 4e 6f 74 55 73 65 64 2c 20  METER2(NotUsed, 
3b10: 4e 6f 74 55 73 65 64 32 29 3b 0a 20 20 73 71 6c  NotUsed2);.  sql
3b20: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28  ite3_result_int(
3b30: 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65 33  context, sqlite3
3b40: 5f 63 68 61 6e 67 65 73 28 64 62 29 29 3b 0a 7d  _changes(db));.}
3b50: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e  ../*.** Implemen
3b60: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 6f  tation of the to
3b70: 74 61 6c 5f 63 68 61 6e 67 65 73 28 29 20 53 51  tal_changes() SQ
3b80: 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65  L function.  The
3b90: 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73   return value is
3ba0: 0a 2a 2a 20 74 68 65 20 73 61 6d 65 20 61 73 20  .** the same as 
3bb0: 74 68 65 20 73 71 6c 69 74 65 33 5f 74 6f 74 61  the sqlite3_tota
3bc0: 6c 5f 63 68 61 6e 67 65 73 28 29 20 41 50 49 20  l_changes() API 
3bd0: 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61  function..*/.sta
3be0: 74 69 63 20 76 6f 69 64 20 74 6f 74 61 6c 5f 63  tic void total_c
3bf0: 68 61 6e 67 65 73 28 0a 20 20 73 71 6c 69 74 65  hanges(.  sqlite
3c00: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65  3_context *conte
3c10: 78 74 2c 0a 20 20 69 6e 74 20 4e 6f 74 55 73 65  xt,.  int NotUse
3c20: 64 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  d,.  sqlite3_val
3c30: 75 65 20 2a 2a 4e 6f 74 55 73 65 64 32 0a 29 7b  ue **NotUsed2.){
3c40: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d  .  sqlite3 *db =
3c50: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
3c60: 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65  _db_handle(conte
3c70: 78 74 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41  xt);.  UNUSED_PA
3c80: 52 41 4d 45 54 45 52 32 28 4e 6f 74 55 73 65 64  RAMETER2(NotUsed
3c90: 2c 20 4e 6f 74 55 73 65 64 32 29 3b 0a 20 20 2f  , NotUsed2);.  /
3ca0: 2a 20 49 4d 50 3a 20 52 2d 35 32 37 35 36 2d 34  * IMP: R-52756-4
3cb0: 31 39 39 33 20 54 68 69 73 20 66 75 6e 63 74 69  1993 This functi
3cc0: 6f 6e 20 69 73 20 61 20 77 72 61 70 70 65 72 20  on is a wrapper 
3cd0: 61 72 6f 75 6e 64 20 74 68 65 0a 20 20 2a 2a 20  around the.  ** 
3ce0: 73 71 6c 69 74 65 33 5f 74 6f 74 61 6c 5f 63 68  sqlite3_total_ch
3cf0: 61 6e 67 65 73 28 29 20 43 2f 43 2b 2b 20 69 6e  anges() C/C++ in
3d00: 74 65 72 66 61 63 65 2e 20 2a 2f 0a 20 20 73 71  terface. */.  sq
3d10: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74  lite3_result_int
3d20: 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65  (context, sqlite
3d30: 33 5f 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 28  3_total_changes(
3d40: 64 62 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41  db));.}../*.** A
3d50: 20 73 74 72 75 63 74 75 72 65 20 64 65 66 69 6e   structure defin
3d60: 69 6e 67 20 68 6f 77 20 74 6f 20 64 6f 20 47 4c  ing how to do GL
3d70: 4f 42 2d 73 74 79 6c 65 20 63 6f 6d 70 61 72 69  OB-style compari
3d80: 73 6f 6e 73 2e 0a 2a 2f 0a 73 74 72 75 63 74 20  sons..*/.struct 
3d90: 63 6f 6d 70 61 72 65 49 6e 66 6f 20 7b 0a 20 20  compareInfo {.  
3da0: 75 38 20 6d 61 74 63 68 41 6c 6c 3b 20 20 20 20  u8 matchAll;    
3db0: 20 20 20 20 20 20 2f 2a 20 22 2a 22 20 6f 72 20        /* "*" or 
3dc0: 22 25 22 20 2a 2f 0a 20 20 75 38 20 6d 61 74 63  "%" */.  u8 matc
3dd0: 68 4f 6e 65 3b 20 20 20 20 20 20 20 20 20 20 2f  hOne;          /
3de0: 2a 20 22 3f 22 20 6f 72 20 22 5f 22 20 2a 2f 0a  * "?" or "_" */.
3df0: 20 20 75 38 20 6d 61 74 63 68 53 65 74 3b 20 20    u8 matchSet;  
3e00: 20 20 20 20 20 20 20 20 2f 2a 20 22 5b 22 20 6f          /* "[" o
3e10: 72 20 30 20 2a 2f 0a 20 20 75 38 20 6e 6f 43 61  r 0 */.  u8 noCa
3e20: 73 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f  se;            /
3e30: 2a 20 74 72 75 65 20 74 6f 20 69 67 6e 6f 72 65  * true to ignore
3e40: 20 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65   case difference
3e50: 73 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 46  s */.};../*.** F
3e60: 6f 72 20 4c 49 4b 45 20 61 6e 64 20 47 4c 4f 42  or LIKE and GLOB
3e70: 20 6d 61 74 63 68 69 6e 67 20 6f 6e 20 45 42 43   matching on EBC
3e80: 44 49 43 20 6d 61 63 68 69 6e 65 73 2c 20 61 73  DIC machines, as
3e90: 73 75 6d 65 20 74 68 61 74 20 65 76 65 72 79 0a  sume that every.
3ea0: 2a 2a 20 63 68 61 72 61 63 74 65 72 20 69 73 20  ** character is 
3eb0: 65 78 61 63 74 6c 79 20 6f 6e 65 20 62 79 74 65  exactly one byte
3ec0: 20 69 6e 20 73 69 7a 65 2e 20 20 41 6c 73 6f 2c   in size.  Also,
3ed0: 20 70 72 6f 76 64 65 20 74 68 65 20 55 74 66 38   provde the Utf8
3ee0: 52 65 61 64 28 29 0a 2a 2a 20 6d 61 63 72 6f 20  Read().** macro 
3ef0: 66 6f 72 20 66 61 73 74 20 72 65 61 64 69 6e 67  for fast reading
3f00: 20 6f 66 20 74 68 65 20 6e 65 78 74 20 63 68 61   of the next cha
3f10: 72 61 63 74 65 72 20 69 6e 20 74 68 65 20 63 6f  racter in the co
3f20: 6d 6d 6f 6e 20 63 61 73 65 20 77 68 65 72 65 0a  mmon case where.
3f30: 2a 2a 20 74 68 65 20 6e 65 78 74 20 63 68 61 72  ** the next char
3f40: 61 63 74 65 72 20 69 73 20 41 53 43 49 49 2e 0a  acter is ASCII..
3f50: 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28 53  */.#if defined(S
3f60: 51 4c 49 54 45 5f 45 42 43 44 49 43 29 0a 23 20  QLITE_EBCDIC).# 
3f70: 64 65 66 69 6e 65 20 73 71 6c 69 74 65 33 55 74  define sqlite3Ut
3f80: 66 38 52 65 61 64 28 41 29 20 20 20 20 20 20 20  f8Read(A)       
3f90: 20 28 2a 28 28 2a 41 29 2b 2b 29 29 0a 23 20 64   (*((*A)++)).# d
3fa0: 65 66 69 6e 65 20 55 74 66 38 52 65 61 64 28 41  efine Utf8Read(A
3fb0: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  )               
3fc0: 28 2a 28 41 2b 2b 29 29 0a 23 65 6c 73 65 0a 23  (*(A++)).#else.#
3fd0: 20 64 65 66 69 6e 65 20 55 74 66 38 52 65 61 64   define Utf8Read
3fe0: 28 41 29 20 20 20 20 20 20 20 20 20 20 20 20 20  (A)             
3ff0: 20 20 28 41 5b 30 5d 3c 30 78 38 30 3f 2a 28 41    (A[0]<0x80?*(A
4000: 2b 2b 29 3a 73 71 6c 69 74 65 33 55 74 66 38 52  ++):sqlite3Utf8R
4010: 65 61 64 28 26 41 29 29 0a 23 65 6e 64 69 66 0a  ead(&A)).#endif.
4020: 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74  .static const st
4030: 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f  ruct compareInfo
4040: 20 67 6c 6f 62 49 6e 66 6f 20 3d 20 7b 20 27 2a   globInfo = { '*
4050: 27 2c 20 27 3f 27 2c 20 27 5b 27 2c 20 30 20 7d  ', '?', '[', 0 }
4060: 3b 0a 2f 2a 20 54 68 65 20 63 6f 72 72 65 63 74  ;./* The correct
4070: 20 53 51 4c 2d 39 32 20 62 65 68 61 76 69 6f 72   SQL-92 behavior
4080: 20 69 73 20 66 6f 72 20 74 68 65 20 4c 49 4b 45   is for the LIKE
4090: 20 6f 70 65 72 61 74 6f 72 20 74 6f 20 69 67 6e   operator to ign
40a0: 6f 72 65 0a 2a 2a 20 63 61 73 65 2e 20 20 54 68  ore.** case.  Th
40b0: 75 73 20 20 27 61 27 20 4c 49 4b 45 20 27 41 27  us  'a' LIKE 'A'
40c0: 20 77 6f 75 6c 64 20 62 65 20 74 72 75 65 2e 20   would be true. 
40d0: 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20  */.static const 
40e0: 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49 6e  struct compareIn
40f0: 66 6f 20 6c 69 6b 65 49 6e 66 6f 4e 6f 72 6d 20  fo likeInfoNorm 
4100: 3d 20 7b 20 27 25 27 2c 20 27 5f 27 2c 20 20 20  = { '%', '_',   
4110: 30 2c 20 31 20 7d 3b 0a 2f 2a 20 49 66 20 53 51  0, 1 };./* If SQ
4120: 4c 49 54 45 5f 43 41 53 45 5f 53 45 4e 53 49 54  LITE_CASE_SENSIT
4130: 49 56 45 5f 4c 49 4b 45 20 69 73 20 64 65 66 69  IVE_LIKE is defi
4140: 6e 65 64 2c 20 74 68 65 6e 20 74 68 65 20 4c 49  ned, then the LI
4150: 4b 45 20 6f 70 65 72 61 74 6f 72 0a 2a 2a 20 69  KE operator.** i
4160: 73 20 63 61 73 65 20 73 65 6e 73 69 74 69 76 65  s case sensitive
4170: 20 63 61 75 73 69 6e 67 20 27 61 27 20 4c 49 4b   causing 'a' LIK
4180: 45 20 27 41 27 20 74 6f 20 62 65 20 66 61 6c 73  E 'A' to be fals
4190: 65 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73  e */.static cons
41a0: 74 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65  t struct compare
41b0: 49 6e 66 6f 20 6c 69 6b 65 49 6e 66 6f 41 6c 74  Info likeInfoAlt
41c0: 20 3d 20 7b 20 27 25 27 2c 20 27 5f 27 2c 20 20   = { '%', '_',  
41d0: 20 30 2c 20 30 20 7d 3b 0a 0a 2f 2a 0a 2a 2a 20   0, 0 };../*.** 
41e0: 43 6f 6d 70 61 72 65 20 74 77 6f 20 55 54 46 2d  Compare two UTF-
41f0: 38 20 73 74 72 69 6e 67 73 20 66 6f 72 20 65 71  8 strings for eq
4200: 75 61 6c 69 74 79 20 77 68 65 72 65 20 74 68 65  uality where the
4210: 20 66 69 72 73 74 20 73 74 72 69 6e 67 20 63 61   first string ca
4220: 6e 0a 2a 2a 20 70 6f 74 65 6e 74 69 61 6c 6c 79  n.** potentially
4230: 20 62 65 20 61 20 22 67 6c 6f 62 22 20 6f 72 20   be a "glob" or 
4240: 22 6c 69 6b 65 22 20 65 78 70 72 65 73 73 69 6f  "like" expressio
4250: 6e 2e 20 20 52 65 74 75 72 6e 20 74 72 75 65 20  n.  Return true 
4260: 28 31 29 20 69 66 20 74 68 65 79 0a 2a 2a 20 61  (1) if they.** a
4270: 72 65 20 74 68 65 20 73 61 6d 65 20 61 6e 64 20  re the same and 
4280: 66 61 6c 73 65 20 28 30 29 20 69 66 20 74 68 65  false (0) if the
4290: 79 20 61 72 65 20 64 69 66 66 65 72 65 6e 74 2e  y are different.
42a0: 0a 2a 2a 0a 2a 2a 20 47 6c 6f 62 62 69 6e 67 20  .**.** Globbing 
42b0: 72 75 6c 65 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20  rules:.**.**    
42c0: 20 20 27 2a 27 20 20 20 20 20 20 20 4d 61 74 63    '*'       Matc
42d0: 68 65 73 20 61 6e 79 20 73 65 71 75 65 6e 63 65  hes any sequence
42e0: 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6d 6f 72 65   of zero or more
42f0: 20 63 68 61 72 61 63 74 65 72 73 2e 0a 2a 2a 0a   characters..**.
4300: 2a 2a 20 20 20 20 20 20 27 3f 27 20 20 20 20 20  **      '?'     
4310: 20 20 4d 61 74 63 68 65 73 20 65 78 61 63 74 6c    Matches exactl
4320: 79 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72 2e  y one character.
4330: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 5b 2e 2e 2e 5d  .**.**     [...]
4340: 20 20 20 20 20 20 4d 61 74 63 68 65 73 20 6f 6e        Matches on
4350: 65 20 63 68 61 72 61 63 74 65 72 20 66 72 6f 6d  e character from
4360: 20 74 68 65 20 65 6e 63 6c 6f 73 65 64 20 6c 69   the enclosed li
4370: 73 74 20 6f 66 0a 2a 2a 20 20 20 20 20 20 20 20  st of.**        
4380: 20 20 20 20 20 20 20 20 63 68 61 72 61 63 74 65          characte
4390: 72 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 5b 5e  rs..**.**     [^
43a0: 2e 2e 2e 5d 20 20 20 20 20 4d 61 74 63 68 65 73  ...]     Matches
43b0: 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72 20 6e   one character n
43c0: 6f 74 20 69 6e 20 74 68 65 20 65 6e 63 6c 6f 73  ot in the enclos
43d0: 65 64 20 6c 69 73 74 2e 0a 2a 2a 0a 2a 2a 20 57  ed list..**.** W
43e0: 69 74 68 20 74 68 65 20 5b 2e 2e 2e 5d 20 61 6e  ith the [...] an
43f0: 64 20 5b 5e 2e 2e 2e 5d 20 6d 61 74 63 68 69 6e  d [^...] matchin
4400: 67 2c 20 61 20 27 5d 27 20 63 68 61 72 61 63 74  g, a ']' charact
4410: 65 72 20 63 61 6e 20 62 65 20 69 6e 63 6c 75 64  er can be includ
4420: 65 64 0a 2a 2a 20 69 6e 20 74 68 65 20 6c 69 73  ed.** in the lis
4430: 74 20 62 79 20 6d 61 6b 69 6e 67 20 69 74 20 74  t by making it t
4440: 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63 74  he first charact
4450: 65 72 20 61 66 74 65 72 20 27 5b 27 20 6f 72 20  er after '[' or 
4460: 27 5e 27 2e 20 20 41 0a 2a 2a 20 72 61 6e 67 65  '^'.  A.** range
4470: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 63   of characters c
4480: 61 6e 20 62 65 20 73 70 65 63 69 66 69 65 64 20  an be specified 
4490: 75 73 69 6e 67 20 27 2d 27 2e 20 20 45 78 61 6d  using '-'.  Exam
44a0: 70 6c 65 3a 0a 2a 2a 20 22 5b 61 2d 7a 5d 22 20  ple:.** "[a-z]" 
44b0: 6d 61 74 63 68 65 73 20 61 6e 79 20 73 69 6e 67  matches any sing
44c0: 6c 65 20 6c 6f 77 65 72 2d 63 61 73 65 20 6c 65  le lower-case le
44d0: 74 74 65 72 2e 20 20 54 6f 20 6d 61 74 63 68 20  tter.  To match 
44e0: 61 20 27 2d 27 2c 20 6d 61 6b 65 0a 2a 2a 20 69  a '-', make.** i
44f0: 74 20 74 68 65 20 6c 61 73 74 20 63 68 61 72 61  t the last chara
4500: 63 74 65 72 20 69 6e 20 74 68 65 20 6c 69 73 74  cter in the list
4510: 2e 0a 2a 2a 0a 2a 2a 20 4c 69 6b 65 20 6d 61 74  ..**.** Like mat
4520: 63 68 69 6e 67 20 72 75 6c 65 73 3a 0a 2a 2a 20  ching rules:.** 
4530: 0a 2a 2a 20 20 20 20 20 20 27 25 27 20 20 20 20  .**      '%'    
4540: 20 20 20 4d 61 74 63 68 65 73 20 61 6e 79 20 73     Matches any s
4550: 65 71 75 65 6e 63 65 20 6f 66 20 7a 65 72 6f 20  equence of zero 
4560: 6f 72 20 6d 6f 72 65 20 63 68 61 72 61 63 74 65  or more characte
4570: 72 73 0a 2a 2a 0a 2a 2a 2a 20 20 20 20 20 27 5f  rs.**.***     '_
4580: 27 20 20 20 20 20 20 20 4d 61 74 63 68 65 73 20  '       Matches 
4590: 61 6e 79 20 6f 6e 65 20 63 68 61 72 61 63 74 65  any one characte
45a0: 72 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 45 63 20  r.**.**      Ec 
45b0: 20 20 20 20 20 20 20 57 68 65 72 65 20 45 20 69         Where E i
45c0: 73 20 74 68 65 20 22 65 73 63 22 20 63 68 61 72  s the "esc" char
45d0: 61 63 74 65 72 20 61 6e 64 20 63 20 69 73 20 61  acter and c is a
45e0: 6e 79 20 6f 74 68 65 72 0a 2a 2a 20 20 20 20 20  ny other.**     
45f0: 20 20 20 20 20 20 20 20 20 20 20 63 68 61 72 61             chara
4600: 63 74 65 72 2c 20 69 6e 63 6c 75 64 69 6e 67 20  cter, including 
4610: 27 25 27 2c 20 27 5f 27 2c 20 61 6e 64 20 65 73  '%', '_', and es
4620: 63 2c 20 6d 61 74 63 68 20 65 78 61 63 74 6c 79  c, match exactly
4630: 20 63 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f   c..**.** The co
4640: 6d 6d 65 6e 74 73 20 77 69 74 68 69 6e 20 74 68  mments within th
4650: 69 73 20 72 6f 75 74 69 6e 65 20 75 73 75 61 6c  is routine usual
4660: 6c 79 20 61 73 73 75 6d 65 20 67 6c 6f 62 20 6d  ly assume glob m
4670: 61 74 63 68 69 6e 67 2e 0a 2a 2a 0a 2a 2a 20 54  atching..**.** T
4680: 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 75  his routine is u
4690: 73 75 61 6c 6c 79 20 71 75 69 63 6b 2c 20 62 75  sually quick, bu
46a0: 74 20 63 61 6e 20 62 65 20 4e 2a 2a 32 20 69 6e  t can be N**2 in
46b0: 20 74 68 65 20 77 6f 72 73 74 20 63 61 73 65 2e   the worst case.
46c0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 70  .*/.static int p
46d0: 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 0a 20  atternCompare(. 
46e0: 20 63 6f 6e 73 74 20 75 38 20 2a 7a 50 61 74 74   const u8 *zPatt
46f0: 65 72 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20  ern,            
4700: 20 20 2f 2a 20 54 68 65 20 67 6c 6f 62 20 70 61    /* The glob pa
4710: 74 74 65 72 6e 20 2a 2f 0a 20 20 63 6f 6e 73 74  ttern */.  const
4720: 20 75 38 20 2a 7a 53 74 72 69 6e 67 2c 20 20 20   u8 *zString,   
4730: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
4740: 68 65 20 73 74 72 69 6e 67 20 74 6f 20 63 6f 6d  he string to com
4750: 70 61 72 65 20 61 67 61 69 6e 73 74 20 74 68 65  pare against the
4760: 20 67 6c 6f 62 20 2a 2f 0a 20 20 63 6f 6e 73 74   glob */.  const
4770: 20 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49   struct compareI
4780: 6e 66 6f 20 2a 70 49 6e 66 6f 2c 20 2f 2a 20 49  nfo *pInfo, /* I
4790: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74  nformation about
47a0: 20 68 6f 77 20 74 6f 20 64 6f 20 74 68 65 20 63   how to do the c
47b0: 6f 6d 70 61 72 65 20 2a 2f 0a 20 20 75 33 32 20  ompare */.  u32 
47c0: 6d 61 74 63 68 4f 74 68 65 72 20 20 20 20 20 20  matchOther      
47d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
47e0: 54 68 65 20 65 73 63 61 70 65 20 63 68 61 72 20  The escape char 
47f0: 28 4c 49 4b 45 29 20 6f 72 20 27 5b 27 20 28 47  (LIKE) or '[' (G
4800: 4c 4f 42 29 20 2a 2f 0a 29 7b 0a 20 20 75 33 32  LOB) */.){.  u32
4810: 20 63 2c 20 63 32 3b 20 20 20 20 20 20 20 20 20   c, c2;         
4820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
4830: 20 4e 65 78 74 20 70 61 74 74 65 72 6e 20 61 6e   Next pattern an
4840: 64 20 69 6e 70 75 74 20 73 74 72 69 6e 67 20 63  d input string c
4850: 68 61 72 73 20 2a 2f 0a 20 20 75 33 32 20 6d 61  hars */.  u32 ma
4860: 74 63 68 4f 6e 65 20 3d 20 70 49 6e 66 6f 2d 3e  tchOne = pInfo->
4870: 6d 61 74 63 68 4f 6e 65 3b 20 20 2f 2a 20 22 3f  matchOne;  /* "?
4880: 22 20 6f 72 20 22 5f 22 20 2a 2f 0a 20 20 75 33  " or "_" */.  u3
4890: 32 20 6d 61 74 63 68 41 6c 6c 20 3d 20 70 49 6e  2 matchAll = pIn
48a0: 66 6f 2d 3e 6d 61 74 63 68 41 6c 6c 3b 20 20 2f  fo->matchAll;  /
48b0: 2a 20 22 2a 22 20 6f 72 20 22 25 22 20 2a 2f 0a  * "*" or "%" */.
48c0: 20 20 75 38 20 6e 6f 43 61 73 65 20 3d 20 70 49    u8 noCase = pI
48d0: 6e 66 6f 2d 3e 6e 6f 43 61 73 65 3b 20 20 20 20  nfo->noCase;    
48e0: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 75 70     /* True if up
48f0: 70 65 72 63 61 73 65 3d 3d 6c 6f 77 65 72 63 61  percase==lowerca
4900: 73 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 75 38  se */.  const u8
4910: 20 2a 7a 45 73 63 61 70 65 64 20 3d 20 30 3b 20   *zEscaped = 0; 
4920: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 6e 65 20           /* One 
4930: 70 61 73 74 20 74 68 65 20 6c 61 73 74 20 65 73  past the last es
4940: 63 61 70 65 64 20 69 6e 70 75 74 20 63 68 61 72  caped input char
4950: 20 2a 2f 0a 20 20 0a 20 20 77 68 69 6c 65 28 20   */.  .  while( 
4960: 28 63 20 3d 20 55 74 66 38 52 65 61 64 28 7a 50  (c = Utf8Read(zP
4970: 61 74 74 65 72 6e 29 29 21 3d 30 20 29 7b 0a 20  attern))!=0 ){. 
4980: 20 20 20 69 66 28 20 63 3d 3d 6d 61 74 63 68 41     if( c==matchA
4990: 6c 6c 20 29 7b 20 20 2f 2a 20 4d 61 74 63 68 20  ll ){  /* Match 
49a0: 22 2a 22 20 2a 2f 0a 20 20 20 20 20 20 2f 2a 20  "*" */.      /* 
49b0: 53 6b 69 70 20 6f 76 65 72 20 6d 75 6c 74 69 70  Skip over multip
49c0: 6c 65 20 22 2a 22 20 63 68 61 72 61 63 74 65 72  le "*" character
49d0: 73 20 69 6e 20 74 68 65 20 70 61 74 74 65 72 6e  s in the pattern
49e0: 2e 20 20 49 66 20 74 68 65 72 65 0a 20 20 20 20  .  If there.    
49f0: 20 20 2a 2a 20 61 72 65 20 61 6c 73 6f 20 22 3f    ** are also "?
4a00: 22 20 63 68 61 72 61 63 74 65 72 73 2c 20 73 6b  " characters, sk
4a10: 69 70 20 74 68 6f 73 65 20 61 73 20 77 65 6c 6c  ip those as well
4a20: 2c 20 62 75 74 20 63 6f 6e 73 75 6d 65 20 61 0a  , but consume a.
4a30: 20 20 20 20 20 20 2a 2a 20 73 69 6e 67 6c 65 20        ** single 
4a40: 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 68 65  character of the
4a50: 20 69 6e 70 75 74 20 73 74 72 69 6e 67 20 66 6f   input string fo
4a60: 72 20 65 61 63 68 20 22 3f 22 20 73 6b 69 70 70  r each "?" skipp
4a70: 65 64 20 2a 2f 0a 20 20 20 20 20 20 77 68 69 6c  ed */.      whil
4a80: 65 28 20 28 63 3d 55 74 66 38 52 65 61 64 28 7a  e( (c=Utf8Read(z
4a90: 50 61 74 74 65 72 6e 29 29 20 3d 3d 20 6d 61 74  Pattern)) == mat
4aa0: 63 68 41 6c 6c 20 7c 7c 20 63 20 3d 3d 20 6d 61  chAll || c == ma
4ab0: 74 63 68 4f 6e 65 20 29 7b 0a 20 20 20 20 20 20  tchOne ){.      
4ac0: 20 20 69 66 28 20 63 3d 3d 6d 61 74 63 68 4f 6e    if( c==matchOn
4ad0: 65 20 26 26 20 73 71 6c 69 74 65 33 55 74 66 38  e && sqlite3Utf8
4ae0: 52 65 61 64 28 26 7a 53 74 72 69 6e 67 29 3d 3d  Read(&zString)==
4af0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72  0 ){.          r
4b00: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 20  eturn 0;.       
4b10: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20   }.      }.     
4b20: 20 69 66 28 20 63 3d 3d 30 20 29 7b 0a 20 20 20   if( c==0 ){.   
4b30: 20 20 20 20 20 72 65 74 75 72 6e 20 31 3b 20 20       return 1;  
4b40: 20 2f 2a 20 22 2a 22 20 61 74 20 74 68 65 20 65   /* "*" at the e
4b50: 6e 64 20 6f 66 20 74 68 65 20 70 61 74 74 65 72  nd of the patter
4b60: 6e 20 6d 61 74 63 68 65 73 20 2a 2f 0a 20 20 20  n matches */.   
4b70: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d     }else if( c==
4b80: 6d 61 74 63 68 4f 74 68 65 72 20 29 7b 0a 20 20  matchOther ){.  
4b90: 20 20 20 20 20 20 69 66 28 20 70 49 6e 66 6f 2d        if( pInfo-
4ba0: 3e 6d 61 74 63 68 53 65 74 3d 3d 30 20 29 7b 0a  >matchSet==0 ){.
4bb0: 20 20 20 20 20 20 20 20 20 20 63 20 3d 20 73 71            c = sq
4bc0: 6c 69 74 65 33 55 74 66 38 52 65 61 64 28 26 7a  lite3Utf8Read(&z
4bd0: 50 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 20  Pattern);.      
4be0: 20 20 20 20 69 66 28 20 63 3d 3d 30 20 29 20 72      if( c==0 ) r
4bf0: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 20  eturn 0;.       
4c00: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
4c10: 20 20 2f 2a 20 22 5b 2e 2e 2e 5d 22 20 69 6d 6d    /* "[...]" imm
4c20: 65 64 69 61 74 65 6c 79 20 66 6f 6c 6c 6f 77 73  ediately follows
4c30: 20 74 68 65 20 22 2a 22 2e 20 20 57 65 20 68 61   the "*".  We ha
4c40: 76 65 20 74 6f 20 64 6f 20 61 20 73 6c 6f 77 0a  ve to do a slow.
4c50: 20 20 20 20 20 20 20 20 20 20 2a 2a 20 72 65 63            ** rec
4c60: 75 72 73 69 76 65 20 73 65 61 72 63 68 20 69 6e  ursive search in
4c70: 20 74 68 69 73 20 63 61 73 65 2c 20 62 75 74 20   this case, but 
4c80: 69 74 20 69 73 20 61 6e 20 75 6e 75 73 75 61 6c  it is an unusual
4c90: 20 63 61 73 65 2e 20 2a 2f 0a 20 20 20 20 20 20   case. */.      
4ca0: 20 20 20 20 61 73 73 65 72 74 28 20 6d 61 74 63      assert( matc
4cb0: 68 4f 74 68 65 72 3c 30 78 38 30 20 29 3b 20 20  hOther<0x80 );  
4cc0: 2f 2a 20 27 5b 27 20 69 73 20 61 20 73 69 6e 67  /* '[' is a sing
4cd0: 6c 65 2d 62 79 74 65 20 63 68 61 72 61 63 74 65  le-byte characte
4ce0: 72 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 77  r */.          w
4cf0: 68 69 6c 65 28 20 2a 7a 53 74 72 69 6e 67 0a 20  hile( *zString. 
4d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4d10: 26 26 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 72  && patternCompar
4d20: 65 28 26 7a 50 61 74 74 65 72 6e 5b 2d 31 5d 2c  e(&zPattern[-1],
4d30: 7a 53 74 72 69 6e 67 2c 70 49 6e 66 6f 2c 6d 61  zString,pInfo,ma
4d40: 74 63 68 4f 74 68 65 72 29 3d 3d 30 20 29 7b 0a  tchOther)==0 ){.
4d50: 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49              SQLI
4d60: 54 45 5f 53 4b 49 50 5f 55 54 46 38 28 7a 53 74  TE_SKIP_UTF8(zSt
4d70: 72 69 6e 67 29 3b 0a 20 20 20 20 20 20 20 20 20  ring);.         
4d80: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 72 65 74   }.          ret
4d90: 75 72 6e 20 2a 7a 53 74 72 69 6e 67 21 3d 30 3b  urn *zString!=0;
4da0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
4db0: 20 7d 0a 0a 20 20 20 20 20 20 2f 2a 20 41 74 20   }..      /* At 
4dc0: 74 68 69 73 20 70 6f 69 6e 74 20 76 61 72 69 61  this point varia
4dd0: 62 6c 65 20 63 20 63 6f 6e 74 61 69 6e 73 20 74  ble c contains t
4de0: 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63 74  he first charact
4df0: 65 72 20 6f 66 20 74 68 65 0a 20 20 20 20 20 20  er of the.      
4e00: 2a 2a 20 70 61 74 74 65 72 6e 20 73 74 72 69 6e  ** pattern strin
4e10: 67 20 70 61 73 74 20 74 68 65 20 22 2a 22 2e 20  g past the "*". 
4e20: 20 53 65 61 72 63 68 20 69 6e 20 74 68 65 20 69   Search in the i
4e30: 6e 70 75 74 20 73 74 72 69 6e 67 20 66 6f 72 20  nput string for 
4e40: 74 68 65 0a 20 20 20 20 20 20 2a 2a 20 66 69 72  the.      ** fir
4e50: 73 74 20 6d 61 74 63 68 69 6e 67 20 63 68 61 72  st matching char
4e60: 61 63 74 65 72 20 61 6e 64 20 72 65 63 75 72 73  acter and recurs
4e70: 69 76 65 6c 79 20 63 6f 6e 74 69 6e 65 20 74 68  ively contine th
4e80: 65 20 6d 61 74 63 68 20 66 72 6f 6d 0a 20 20 20  e match from.   
4e90: 20 20 20 2a 2a 20 74 68 61 74 20 70 6f 69 6e 74     ** that point
4ea0: 2e 0a 20 20 20 20 20 20 2a 2a 0a 20 20 20 20 20  ..      **.     
4eb0: 20 2a 2a 20 46 6f 72 20 61 20 63 61 73 65 2d 69   ** For a case-i
4ec0: 6e 73 65 6e 73 69 74 69 76 65 20 73 65 61 72 63  nsensitive searc
4ed0: 68 2c 20 73 65 74 20 76 61 72 69 61 62 6c 65 20  h, set variable 
4ee0: 63 78 20 74 6f 20 62 65 20 74 68 65 20 73 61 6d  cx to be the sam
4ef0: 65 20 61 73 0a 20 20 20 20 20 20 2a 2a 20 63 20  e as.      ** c 
4f00: 62 75 74 20 69 6e 20 74 68 65 20 6f 74 68 65 72  but in the other
4f10: 20 63 61 73 65 20 61 6e 64 20 73 65 61 72 63 68   case and search
4f20: 20 74 68 65 20 69 6e 70 75 74 20 73 74 72 69 6e   the input strin
4f30: 67 20 66 6f 72 20 65 69 74 68 65 72 0a 20 20 20  g for either.   
4f40: 20 20 20 2a 2a 20 63 20 6f 72 20 63 78 2e 0a 20     ** c or cx.. 
4f50: 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 69 66       */.      if
4f60: 28 20 63 3c 3d 30 78 38 30 20 29 7b 0a 20 20 20  ( c<=0x80 ){.   
4f70: 20 20 20 20 20 75 33 32 20 63 78 3b 0a 20 20 20       u32 cx;.   
4f80: 20 20 20 20 20 69 66 28 20 6e 6f 43 61 73 65 20       if( noCase 
4f90: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 63 78 20  ){.          cx 
4fa0: 3d 20 73 71 6c 69 74 65 33 54 6f 75 70 70 65 72  = sqlite3Toupper
4fb0: 28 63 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63  (c);.          c
4fc0: 20 3d 20 73 71 6c 69 74 65 33 54 6f 6c 6f 77 65   = sqlite3Tolowe
4fd0: 72 28 63 29 3b 0a 20 20 20 20 20 20 20 20 7d 65  r(c);.        }e
4fe0: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 63  lse{.          c
4ff0: 78 20 3d 20 63 3b 0a 20 20 20 20 20 20 20 20 7d  x = c;.        }
5000: 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20  .        while( 
5010: 28 63 32 20 3d 20 2a 28 7a 53 74 72 69 6e 67 2b  (c2 = *(zString+
5020: 2b 29 29 21 3d 30 20 29 7b 0a 20 20 20 20 20 20  +))!=0 ){.      
5030: 20 20 20 20 69 66 28 20 63 32 21 3d 63 20 26 26      if( c2!=c &&
5040: 20 63 32 21 3d 63 78 20 29 20 63 6f 6e 74 69 6e   c2!=cx ) contin
5050: 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66  ue;.          if
5060: 28 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 65  ( patternCompare
5070: 28 7a 50 61 74 74 65 72 6e 2c 7a 53 74 72 69 6e  (zPattern,zStrin
5080: 67 2c 70 49 6e 66 6f 2c 6d 61 74 63 68 4f 74 68  g,pInfo,matchOth
5090: 65 72 29 20 29 20 72 65 74 75 72 6e 20 31 3b 0a  er) ) return 1;.
50a0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
50b0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 77  }else{.        w
50c0: 68 69 6c 65 28 20 28 63 32 20 3d 20 55 74 66 38  hile( (c2 = Utf8
50d0: 52 65 61 64 28 7a 53 74 72 69 6e 67 29 29 21 3d  Read(zString))!=
50e0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69  0 ){.          i
50f0: 66 28 20 63 32 21 3d 63 20 29 20 63 6f 6e 74 69  f( c2!=c ) conti
5100: 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69  nue;.          i
5110: 66 28 20 70 61 74 74 65 72 6e 43 6f 6d 70 61 72  f( patternCompar
5120: 65 28 7a 50 61 74 74 65 72 6e 2c 7a 53 74 72 69  e(zPattern,zStri
5130: 6e 67 2c 70 49 6e 66 6f 2c 6d 61 74 63 68 4f 74  ng,pInfo,matchOt
5140: 68 65 72 29 20 29 20 72 65 74 75 72 6e 20 31 3b  her) ) return 1;
5150: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
5160: 20 7d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20   }.      return 
5170: 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28  0;.    }.    if(
5180: 20 63 3d 3d 6d 61 74 63 68 4f 74 68 65 72 20 29   c==matchOther )
5190: 7b 0a 20 20 20 20 20 20 69 66 28 20 70 49 6e 66  {.      if( pInf
51a0: 6f 2d 3e 6d 61 74 63 68 53 65 74 3d 3d 30 20 29  o->matchSet==0 )
51b0: 7b 0a 20 20 20 20 20 20 20 20 63 20 3d 20 73 71  {.        c = sq
51c0: 6c 69 74 65 33 55 74 66 38 52 65 61 64 28 26 7a  lite3Utf8Read(&z
51d0: 50 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 20  Pattern);.      
51e0: 20 20 69 66 28 20 63 3d 3d 30 20 29 20 72 65 74    if( c==0 ) ret
51f0: 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 20 20 7a  urn 0;.        z
5200: 45 73 63 61 70 65 64 20 3d 20 7a 50 61 74 74 65  Escaped = zPatte
5210: 72 6e 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b  rn;.      }else{
5220: 0a 20 20 20 20 20 20 20 20 75 33 32 20 70 72 69  .        u32 pri
5230: 6f 72 5f 63 20 3d 20 30 3b 0a 20 20 20 20 20 20  or_c = 0;.      
5240: 20 20 69 6e 74 20 73 65 65 6e 20 3d 20 30 3b 0a    int seen = 0;.
5250: 20 20 20 20 20 20 20 20 69 6e 74 20 69 6e 76 65          int inve
5260: 72 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  rt = 0;.        
5270: 63 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52  c = sqlite3Utf8R
5280: 65 61 64 28 26 7a 53 74 72 69 6e 67 29 3b 0a 20  ead(&zString);. 
5290: 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d 30 20         if( c==0 
52a0: 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20  ) return 0;.    
52b0: 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74 65 33      c2 = sqlite3
52c0: 55 74 66 38 52 65 61 64 28 26 7a 50 61 74 74 65  Utf8Read(&zPatte
52d0: 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28  rn);.        if(
52e0: 20 63 32 3d 3d 27 5e 27 20 29 7b 0a 20 20 20 20   c2=='^' ){.    
52f0: 20 20 20 20 20 20 69 6e 76 65 72 74 20 3d 20 31        invert = 1
5300: 3b 0a 20 20 20 20 20 20 20 20 20 20 63 32 20 3d  ;.          c2 =
5310: 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64   sqlite3Utf8Read
5320: 28 26 7a 50 61 74 74 65 72 6e 29 3b 0a 20 20 20  (&zPattern);.   
5330: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69       }.        i
5340: 66 28 20 63 32 3d 3d 27 5d 27 20 29 7b 0a 20 20  f( c2==']' ){.  
5350: 20 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d 27          if( c=='
5360: 5d 27 20 29 20 73 65 65 6e 20 3d 20 31 3b 0a 20  ]' ) seen = 1;. 
5370: 20 20 20 20 20 20 20 20 20 63 32 20 3d 20 73 71           c2 = sq
5380: 6c 69 74 65 33 55 74 66 38 52 65 61 64 28 26 7a  lite3Utf8Read(&z
5390: 50 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 20 20  Pattern);.      
53a0: 20 20 7d 0a 20 20 20 20 20 20 20 20 77 68 69 6c    }.        whil
53b0: 65 28 20 63 32 20 26 26 20 63 32 21 3d 27 5d 27  e( c2 && c2!=']'
53c0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66   ){.          if
53d0: 28 20 63 32 3d 3d 27 2d 27 20 26 26 20 7a 50 61  ( c2=='-' && zPa
53e0: 74 74 65 72 6e 5b 30 5d 21 3d 27 5d 27 20 26 26  ttern[0]!=']' &&
53f0: 20 7a 50 61 74 74 65 72 6e 5b 30 5d 21 3d 30 20   zPattern[0]!=0 
5400: 26 26 20 70 72 69 6f 72 5f 63 3e 30 20 29 7b 0a  && prior_c>0 ){.
5410: 20 20 20 20 20 20 20 20 20 20 20 20 63 32 20 3d              c2 =
5420: 20 73 71 6c 69 74 65 33 55 74 66 38 52 65 61 64   sqlite3Utf8Read
5430: 28 26 7a 50 61 74 74 65 72 6e 29 3b 0a 20 20 20  (&zPattern);.   
5440: 20 20 20 20 20 20 20 20 20 69 66 28 20 63 3e 3d           if( c>=
5450: 70 72 69 6f 72 5f 63 20 26 26 20 63 3c 3d 63 32  prior_c && c<=c2
5460: 20 29 20 73 65 65 6e 20 3d 20 31 3b 0a 20 20 20   ) seen = 1;.   
5470: 20 20 20 20 20 20 20 20 20 70 72 69 6f 72 5f 63           prior_c
5480: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20   = 0;.          
5490: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20  }else{.         
54a0: 20 20 20 69 66 28 20 63 3d 3d 63 32 20 29 7b 0a     if( c==c2 ){.
54b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65                se
54c0: 65 6e 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20  en = 1;.        
54d0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
54e0: 20 20 70 72 69 6f 72 5f 63 20 3d 20 63 32 3b 0a    prior_c = c2;.
54f0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
5500: 20 20 20 20 20 20 63 32 20 3d 20 73 71 6c 69 74        c2 = sqlit
5510: 65 33 55 74 66 38 52 65 61 64 28 26 7a 50 61 74  e3Utf8Read(&zPat
5520: 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 7d  tern);.        }
5530: 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 32 3d  .        if( c2=
5540: 3d 30 20 7c 7c 20 28 73 65 65 6e 20 5e 20 69 6e  =0 || (seen ^ in
5550: 76 65 72 74 29 3d 3d 30 20 29 7b 0a 20 20 20 20  vert)==0 ){.    
5560: 20 20 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a        return 0;.
5570: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
5580: 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20    continue;.    
5590: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 63 32    }.    }.    c2
55a0: 20 3d 20 55 74 66 38 52 65 61 64 28 7a 53 74 72   = Utf8Read(zStr
55b0: 69 6e 67 29 3b 0a 20 20 20 20 69 66 28 20 63 3d  ing);.    if( c=
55c0: 3d 63 32 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a  =c2 ) continue;.
55d0: 20 20 20 20 69 66 28 20 6e 6f 43 61 73 65 20 26      if( noCase &
55e0: 26 20 63 3c 30 78 38 30 20 26 26 20 63 32 3c 30  & c<0x80 && c2<0
55f0: 78 38 30 20 26 26 20 73 71 6c 69 74 65 33 54 6f  x80 && sqlite3To
5600: 6c 6f 77 65 72 28 63 29 3d 3d 73 71 6c 69 74 65  lower(c)==sqlite
5610: 33 54 6f 6c 6f 77 65 72 28 63 32 29 20 29 7b 0a  3Tolower(c2) ){.
5620: 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 65 3b 0a        continue;.
5630: 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 63 3d      }.    if( c=
5640: 3d 6d 61 74 63 68 4f 6e 65 20 26 26 20 7a 50 61  =matchOne && zPa
5650: 74 74 65 72 6e 21 3d 7a 45 73 63 61 70 65 64 20  ttern!=zEscaped 
5660: 26 26 20 63 32 21 3d 30 20 29 20 63 6f 6e 74 69  && c2!=0 ) conti
5670: 6e 75 65 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  nue;.    return 
5680: 30 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  0;.  }.  return 
5690: 2a 7a 53 74 72 69 6e 67 3d 3d 30 3b 0a 7d 0a 0a  *zString==0;.}..
56a0: 2f 2a 0a 2a 2a 20 54 68 65 20 73 71 6c 69 74 65  /*.** The sqlite
56b0: 33 5f 73 74 72 67 6c 6f 62 28 29 20 69 6e 74 65  3_strglob() inte
56c0: 72 66 61 63 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71  rface..*/.int sq
56d0: 6c 69 74 65 33 5f 73 74 72 67 6c 6f 62 28 63 6f  lite3_strglob(co
56e0: 6e 73 74 20 63 68 61 72 20 2a 7a 47 6c 6f 62 50  nst char *zGlobP
56f0: 61 74 74 65 72 6e 2c 20 63 6f 6e 73 74 20 63 68  attern, const ch
5700: 61 72 20 2a 7a 53 74 72 69 6e 67 29 7b 0a 20 20  ar *zString){.  
5710: 72 65 74 75 72 6e 20 70 61 74 74 65 72 6e 43 6f  return patternCo
5720: 6d 70 61 72 65 28 28 75 38 2a 29 7a 47 6c 6f 62  mpare((u8*)zGlob
5730: 50 61 74 74 65 72 6e 2c 20 28 75 38 2a 29 7a 53  Pattern, (u8*)zS
5740: 74 72 69 6e 67 2c 20 26 67 6c 6f 62 49 6e 66 6f  tring, &globInfo
5750: 2c 20 27 5b 27 29 3d 3d 30 3b 0a 7d 0a 0a 2f 2a  , '[')==0;.}../*
5760: 0a 2a 2a 20 54 68 65 20 73 71 6c 69 74 65 33 5f  .** The sqlite3_
5770: 73 74 72 6c 69 6b 65 28 29 20 69 6e 74 65 72 66  strlike() interf
5780: 61 63 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69  ace..*/.int sqli
5790: 74 65 33 5f 73 74 72 6c 69 6b 65 28 63 6f 6e 73  te3_strlike(cons
57a0: 74 20 63 68 61 72 20 2a 7a 50 61 74 74 65 72 6e  t char *zPattern
57b0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53  , const char *zS
57c0: 74 72 2c 20 75 6e 73 69 67 6e 65 64 20 69 6e 74  tr, unsigned int
57d0: 20 65 73 63 29 7b 0a 20 20 72 65 74 75 72 6e 20   esc){.  return 
57e0: 70 61 74 74 65 72 6e 43 6f 6d 70 61 72 65 28 28  patternCompare((
57f0: 75 38 2a 29 7a 50 61 74 74 65 72 6e 2c 20 28 75  u8*)zPattern, (u
5800: 38 2a 29 7a 53 74 72 2c 20 26 6c 69 6b 65 49 6e  8*)zStr, &likeIn
5810: 66 6f 4e 6f 72 6d 2c 20 65 73 63 29 3d 3d 30 3b  foNorm, esc)==0;
5820: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 75 6e 74 20  .}../*.** Count 
5830: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 69  the number of ti
5840: 6d 65 73 20 74 68 61 74 20 74 68 65 20 4c 49 4b  mes that the LIK
5850: 45 20 6f 70 65 72 61 74 6f 72 20 28 6f 72 20 47  E operator (or G
5860: 4c 4f 42 20 77 68 69 63 68 20 69 73 0a 2a 2a 20  LOB which is.** 
5870: 6a 75 73 74 20 61 20 76 61 72 69 61 74 69 6f 6e  just a variation
5880: 20 6f 66 20 4c 49 4b 45 29 20 67 65 74 73 20 63   of LIKE) gets c
5890: 61 6c 6c 65 64 2e 20 20 54 68 69 73 20 69 73 20  alled.  This is 
58a0: 75 73 65 64 20 66 6f 72 20 74 65 73 74 69 6e 67  used for testing
58b0: 0a 2a 2a 20 6f 6e 6c 79 2e 0a 2a 2f 0a 23 69 66  .** only..*/.#if
58c0: 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a  def SQLITE_TEST.
58d0: 69 6e 74 20 73 71 6c 69 74 65 33 5f 6c 69 6b 65  int sqlite3_like
58e0: 5f 63 6f 75 6e 74 20 3d 20 30 3b 0a 23 65 6e 64  _count = 0;.#end
58f0: 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65  if.../*.** Imple
5900: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65  mentation of the
5910: 20 6c 69 6b 65 28 29 20 53 51 4c 20 66 75 6e 63   like() SQL func
5920: 74 69 6f 6e 2e 20 20 54 68 69 73 20 66 75 6e 63  tion.  This func
5930: 74 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74 73 0a  tion implements.
5940: 2a 2a 20 74 68 65 20 62 75 69 6c 64 2d 69 6e 20  ** the build-in 
5950: 4c 49 4b 45 20 6f 70 65 72 61 74 6f 72 2e 20 20  LIKE operator.  
5960: 54 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65  The first argume
5970: 6e 74 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69  nt to the functi
5980: 6f 6e 20 69 73 20 74 68 65 0a 2a 2a 20 70 61 74  on is the.** pat
5990: 74 65 72 6e 20 61 6e 64 20 74 68 65 20 73 65 63  tern and the sec
59a0: 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20  ond argument is 
59b0: 74 68 65 20 73 74 72 69 6e 67 2e 20 20 53 6f 2c  the string.  So,
59c0: 20 74 68 65 20 53 51 4c 20 73 74 61 74 65 6d 65   the SQL stateme
59d0: 6e 74 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20  nts:.**.**      
59e0: 20 41 20 4c 49 4b 45 20 42 0a 2a 2a 0a 2a 2a 20   A LIKE B.**.** 
59f0: 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 61  is implemented a
5a00: 73 20 6c 69 6b 65 28 42 2c 41 29 2e 0a 2a 2a 0a  s like(B,A)..**.
5a10: 2a 2a 20 54 68 69 73 20 73 61 6d 65 20 66 75 6e  ** This same fun
5a20: 63 74 69 6f 6e 20 28 77 69 74 68 20 61 20 64 69  ction (with a di
5a30: 66 66 65 72 65 6e 74 20 63 6f 6d 70 61 72 65 49  fferent compareI
5a40: 6e 66 6f 20 73 74 72 75 63 74 75 72 65 29 20 63  nfo structure) c
5a50: 6f 6d 70 75 74 65 73 0a 2a 2a 20 74 68 65 20 47  omputes.** the G
5a60: 4c 4f 42 20 6f 70 65 72 61 74 6f 72 2e 0a 2a 2f  LOB operator..*/
5a70: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 69 6b  .static void lik
5a80: 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33  eFunc(.  sqlite3
5a90: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
5aa0: 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20  t, .  int argc, 
5ab0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  .  sqlite3_value
5ac0: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e   **argv.){.  con
5ad0: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  st unsigned char
5ae0: 20 2a 7a 41 2c 20 2a 7a 42 3b 0a 20 20 75 33 32   *zA, *zB;.  u32
5af0: 20 65 73 63 61 70 65 3b 0a 20 20 69 6e 74 20 6e   escape;.  int n
5b00: 50 61 74 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a  Pat;.  sqlite3 *
5b10: 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e  db = sqlite3_con
5b20: 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63  text_db_handle(c
5b30: 6f 6e 74 65 78 74 29 3b 0a 20 20 73 74 72 75 63  ontext);.  struc
5b40: 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 20 2a 70  t compareInfo *p
5b50: 49 6e 66 6f 20 3d 20 73 71 6c 69 74 65 33 5f 75  Info = sqlite3_u
5b60: 73 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74  ser_data(context
5b70: 29 3b 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54  );..#ifdef SQLIT
5b80: 45 5f 4c 49 4b 45 5f 44 4f 45 53 4e 54 5f 4d 41  E_LIKE_DOESNT_MA
5b90: 54 43 48 5f 42 4c 4f 42 53 0a 20 20 69 66 28 20  TCH_BLOBS.  if( 
5ba0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79  sqlite3_value_ty
5bb0: 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c  pe(argv[0])==SQL
5bc0: 49 54 45 5f 42 4c 4f 42 0a 20 20 20 7c 7c 20 73  ITE_BLOB.   || s
5bd0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70  qlite3_value_typ
5be0: 65 28 61 72 67 76 5b 31 5d 29 3d 3d 53 51 4c 49  e(argv[1])==SQLI
5bf0: 54 45 5f 42 4c 4f 42 0a 20 20 29 7b 0a 23 69 66  TE_BLOB.  ){.#if
5c00: 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a  def SQLITE_TEST.
5c10: 20 20 20 20 73 71 6c 69 74 65 33 5f 6c 69 6b 65      sqlite3_like
5c20: 5f 63 6f 75 6e 74 2b 2b 3b 0a 23 65 6e 64 69 66  _count++;.#endif
5c30: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73  .    sqlite3_res
5c40: 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c  ult_int(context,
5c50: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b   0);.    return;
5c60: 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 7a 42  .  }.#endif.  zB
5c70: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
5c80: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a  _text(argv[0]);.
5c90: 20 20 7a 41 20 3d 20 73 71 6c 69 74 65 33 5f 76    zA = sqlite3_v
5ca0: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31  alue_text(argv[1
5cb0: 5d 29 3b 0a 0a 20 20 2f 2a 20 4c 69 6d 69 74 20  ]);..  /* Limit 
5cc0: 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68  the length of th
5cd0: 65 20 4c 49 4b 45 20 6f 72 20 47 4c 4f 42 20 70  e LIKE or GLOB p
5ce0: 61 74 74 65 72 6e 20 74 6f 20 61 76 6f 69 64 20  attern to avoid 
5cf0: 70 72 6f 62 6c 65 6d 73 0a 20 20 2a 2a 20 6f 66  problems.  ** of
5d00: 20 64 65 65 70 20 72 65 63 75 72 73 69 6f 6e 20   deep recursion 
5d10: 61 6e 64 20 4e 2a 4e 20 62 65 68 61 76 69 6f 72  and N*N behavior
5d20: 20 69 6e 20 70 61 74 74 65 72 6e 43 6f 6d 70 61   in patternCompa
5d30: 72 65 28 29 2e 0a 20 20 2a 2f 0a 20 20 6e 50 61  re()..  */.  nPa
5d40: 74 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  t = sqlite3_valu
5d50: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29  e_bytes(argv[0])
5d60: 3b 0a 20 20 74 65 73 74 63 61 73 65 28 20 6e 50  ;.  testcase( nP
5d70: 61 74 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74 5b 53  at==db->aLimit[S
5d80: 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 49 4b 45  QLITE_LIMIT_LIKE
5d90: 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47 54 48 5d  _PATTERN_LENGTH]
5da0: 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 28 20   );.  testcase( 
5db0: 6e 50 61 74 3d 3d 64 62 2d 3e 61 4c 69 6d 69 74  nPat==db->aLimit
5dc0: 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 49  [SQLITE_LIMIT_LI
5dd0: 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47 54  KE_PATTERN_LENGT
5de0: 48 5d 2b 31 20 29 3b 0a 20 20 69 66 28 20 6e 50  H]+1 );.  if( nP
5df0: 61 74 20 3e 20 64 62 2d 3e 61 4c 69 6d 69 74 5b  at > db->aLimit[
5e00: 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 4c 49 4b  SQLITE_LIMIT_LIK
5e10: 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47 54 48  E_PATTERN_LENGTH
5e20: 5d 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  ] ){.    sqlite3
5e30: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f  _result_error(co
5e40: 6e 74 65 78 74 2c 20 22 4c 49 4b 45 20 6f 72 20  ntext, "LIKE or 
5e50: 47 4c 4f 42 20 70 61 74 74 65 72 6e 20 74 6f 6f  GLOB pattern too
5e60: 20 63 6f 6d 70 6c 65 78 22 2c 20 2d 31 29 3b 0a   complex", -1);.
5e70: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a      return;.  }.
5e80: 20 20 61 73 73 65 72 74 28 20 7a 42 3d 3d 73 71    assert( zB==sq
5e90: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
5ea0: 28 61 72 67 76 5b 30 5d 29 20 29 3b 20 20 2f 2a  (argv[0]) );  /*
5eb0: 20 45 6e 63 6f 64 69 6e 67 20 64 69 64 20 6e 6f   Encoding did no
5ec0: 74 20 63 68 61 6e 67 65 20 2a 2f 0a 0a 20 20 69  t change */..  i
5ed0: 66 28 20 61 72 67 63 3d 3d 33 20 29 7b 0a 20 20  f( argc==3 ){.  
5ee0: 20 20 2f 2a 20 54 68 65 20 65 73 63 61 70 65 20    /* The escape 
5ef0: 63 68 61 72 61 63 74 65 72 20 73 74 72 69 6e 67  character string
5f00: 20 6d 75 73 74 20 63 6f 6e 73 69 73 74 20 6f 66   must consist of
5f10: 20 61 20 73 69 6e 67 6c 65 20 55 54 46 2d 38 20   a single UTF-8 
5f20: 63 68 61 72 61 63 74 65 72 2e 0a 20 20 20 20 2a  character..    *
5f30: 2a 20 4f 74 68 65 72 77 69 73 65 2c 20 72 65 74  * Otherwise, ret
5f40: 75 72 6e 20 61 6e 20 65 72 72 6f 72 2e 0a 20 20  urn an error..  
5f50: 20 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 75    */.    const u
5f60: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 45  nsigned char *zE
5f70: 73 63 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c  sc = sqlite3_val
5f80: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 32 5d 29  ue_text(argv[2])
5f90: 3b 0a 20 20 20 20 69 66 28 20 7a 45 73 63 3d 3d  ;.    if( zEsc==
5fa0: 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20  0 ) return;.    
5fb0: 69 66 28 20 73 71 6c 69 74 65 33 55 74 66 38 43  if( sqlite3Utf8C
5fc0: 68 61 72 4c 65 6e 28 28 63 68 61 72 2a 29 7a 45  harLen((char*)zE
5fd0: 73 63 2c 20 2d 31 29 21 3d 31 20 29 7b 0a 20 20  sc, -1)!=1 ){.  
5fe0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
5ff0: 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74  lt_error(context
6000: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 22 45 53  , .          "ES
6010: 43 41 50 45 20 65 78 70 72 65 73 73 69 6f 6e 20  CAPE expression 
6020: 6d 75 73 74 20 62 65 20 61 20 73 69 6e 67 6c 65  must be a single
6030: 20 63 68 61 72 61 63 74 65 72 22 2c 20 2d 31 29   character", -1)
6040: 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a  ;.      return;.
6050: 20 20 20 20 7d 0a 20 20 20 20 65 73 63 61 70 65      }.    escape
6060: 20 3d 20 73 71 6c 69 74 65 33 55 74 66 38 52 65   = sqlite3Utf8Re
6070: 61 64 28 26 7a 45 73 63 29 3b 0a 20 20 7d 65 6c  ad(&zEsc);.  }el
6080: 73 65 7b 0a 20 20 20 20 65 73 63 61 70 65 20 3d  se{.    escape =
6090: 20 70 49 6e 66 6f 2d 3e 6d 61 74 63 68 53 65 74   pInfo->matchSet
60a0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 7a 41 20 26  ;.  }.  if( zA &
60b0: 26 20 7a 42 20 29 7b 0a 23 69 66 64 65 66 20 53  & zB ){.#ifdef S
60c0: 51 4c 49 54 45 5f 54 45 53 54 0a 20 20 20 20 73  QLITE_TEST.    s
60d0: 71 6c 69 74 65 33 5f 6c 69 6b 65 5f 63 6f 75 6e  qlite3_like_coun
60e0: 74 2b 2b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20  t++;.#endif.    
60f0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69  sqlite3_result_i
6100: 6e 74 28 63 6f 6e 74 65 78 74 2c 20 70 61 74 74  nt(context, patt
6110: 65 72 6e 43 6f 6d 70 61 72 65 28 7a 42 2c 20 7a  ernCompare(zB, z
6120: 41 2c 20 70 49 6e 66 6f 2c 20 65 73 63 61 70 65  A, pInfo, escape
6130: 29 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a  ));.  }.}../*.**
6140: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   Implementation 
6150: 6f 66 20 74 68 65 20 4e 55 4c 4c 49 46 28 78 2c  of the NULLIF(x,
6160: 79 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68  y) function.  Th
6170: 65 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 20  e result is the 
6180: 66 69 72 73 74 0a 2a 2a 20 61 72 67 75 6d 65 6e  first.** argumen
6190: 74 20 69 66 20 74 68 65 20 61 72 67 75 6d 65 6e  t if the argumen
61a0: 74 73 20 61 72 65 20 64 69 66 66 65 72 65 6e 74  ts are different
61b0: 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 73  .  The result is
61c0: 20 4e 55 4c 4c 20 69 66 20 74 68 65 0a 2a 2a 20   NULL if the.** 
61d0: 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 65 71  arguments are eq
61e0: 75 61 6c 20 74 6f 20 65 61 63 68 20 6f 74 68 65  ual to each othe
61f0: 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  r..*/.static voi
6200: 64 20 6e 75 6c 6c 69 66 46 75 6e 63 28 0a 20 20  d nullifFunc(.  
6210: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
6220: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20  *context,.  int 
6230: 4e 6f 74 55 73 65 64 2c 0a 20 20 73 71 6c 69 74  NotUsed,.  sqlit
6240: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a  e3_value **argv.
6250: 29 7b 0a 20 20 43 6f 6c 6c 53 65 71 20 2a 70 43  ){.  CollSeq *pC
6260: 6f 6c 6c 20 3d 20 73 71 6c 69 74 65 33 47 65 74  oll = sqlite3Get
6270: 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 6f 6e 74  FuncCollSeq(cont
6280: 65 78 74 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50  ext);.  UNUSED_P
6290: 41 52 41 4d 45 54 45 52 28 4e 6f 74 55 73 65 64  ARAMETER(NotUsed
62a0: 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33  );.  if( sqlite3
62b0: 4d 65 6d 43 6f 6d 70 61 72 65 28 61 72 67 76 5b  MemCompare(argv[
62c0: 30 5d 2c 20 61 72 67 76 5b 31 5d 2c 20 70 43 6f  0], argv[1], pCo
62d0: 6c 6c 29 21 3d 30 20 29 7b 0a 20 20 20 20 73 71  ll)!=0 ){.    sq
62e0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c  lite3_result_val
62f0: 75 65 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 76  ue(context, argv
6300: 5b 30 5d 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a  [0]);.  }.}../*.
6310: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f  ** Implementatio
6320: 6e 20 6f 66 20 74 68 65 20 73 71 6c 69 74 65 5f  n of the sqlite_
6330: 76 65 72 73 69 6f 6e 28 29 20 66 75 6e 63 74 69  version() functi
6340: 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20  on.  The result 
6350: 69 73 20 74 68 65 20 76 65 72 73 69 6f 6e 0a 2a  is the version.*
6360: 2a 20 6f 66 20 74 68 65 20 53 51 4c 69 74 65 20  * of the SQLite 
6370: 6c 69 62 72 61 72 79 20 74 68 61 74 20 69 73 20  library that is 
6380: 72 75 6e 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74  running..*/.stat
6390: 69 63 20 76 6f 69 64 20 76 65 72 73 69 6f 6e 46  ic void versionF
63a0: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63  unc(.  sqlite3_c
63b0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c  ontext *context,
63c0: 0a 20 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a  .  int NotUsed,.
63d0: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20    sqlite3_value 
63e0: 2a 2a 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20  **NotUsed2.){.  
63f0: 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52  UNUSED_PARAMETER
6400: 32 28 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73  2(NotUsed, NotUs
6410: 65 64 32 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a 20  ed2);.  /* IMP: 
6420: 52 2d 34 38 36 39 39 2d 34 38 36 31 37 20 54 68  R-48699-48617 Th
6430: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61  is function is a
6440: 6e 20 53 51 4c 20 77 72 61 70 70 65 72 20 61 72  n SQL wrapper ar
6450: 6f 75 6e 64 20 74 68 65 0a 20 20 2a 2a 20 73 71  ound the.  ** sq
6460: 6c 69 74 65 33 5f 6c 69 62 76 65 72 73 69 6f 6e  lite3_libversion
6470: 28 29 20 43 2d 69 6e 74 65 72 66 61 63 65 2e 20  () C-interface. 
6480: 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73  */.  sqlite3_res
6490: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74  ult_text(context
64a0: 2c 20 73 71 6c 69 74 65 33 5f 6c 69 62 76 65 72  , sqlite3_libver
64b0: 73 69 6f 6e 28 29 2c 20 2d 31 2c 20 53 51 4c 49  sion(), -1, SQLI
64c0: 54 45 5f 53 54 41 54 49 43 29 3b 0a 7d 0a 0a 2f  TE_STATIC);.}../
64d0: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74  *.** Implementat
64e0: 69 6f 6e 20 6f 66 20 74 68 65 20 73 71 6c 69 74  ion of the sqlit
64f0: 65 5f 73 6f 75 72 63 65 5f 69 64 28 29 20 66 75  e_source_id() fu
6500: 6e 63 74 69 6f 6e 2e 20 54 68 65 20 72 65 73 75  nction. The resu
6510: 6c 74 20 69 73 20 61 20 73 74 72 69 6e 67 0a 2a  lt is a string.*
6520: 2a 20 74 68 61 74 20 69 64 65 6e 74 69 66 69 65  * that identifie
6530: 73 20 74 68 65 20 70 61 72 74 69 63 75 6c 61 72  s the particular
6540: 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 20   version of the 
6550: 73 6f 75 72 63 65 20 63 6f 64 65 20 75 73 65 64  source code used
6560: 20 74 6f 20 62 75 69 6c 64 0a 2a 2a 20 53 51 4c   to build.** SQL
6570: 69 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76  ite..*/.static v
6580: 6f 69 64 20 73 6f 75 72 63 65 69 64 46 75 6e 63  oid sourceidFunc
6590: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
65a0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20  ext *context,.  
65b0: 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 73  int NotUsed,.  s
65c0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 4e  qlite3_value **N
65d0: 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 55 4e 55  otUsed2.){.  UNU
65e0: 53 45 44 5f 50 41 52 41 4d 45 54 45 52 32 28 4e  SED_PARAMETER2(N
65f0: 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 32  otUsed, NotUsed2
6600: 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a 20 52 2d 32  );.  /* IMP: R-2
6610: 34 34 37 30 2d 33 31 31 33 36 20 54 68 69 73 20  4470-31136 This 
6620: 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 6e 20 53  function is an S
6630: 51 4c 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e  QL wrapper aroun
6640: 64 20 74 68 65 0a 20 20 2a 2a 20 73 71 6c 69 74  d the.  ** sqlit
6650: 65 33 5f 73 6f 75 72 63 65 69 64 28 29 20 43 20  e3_sourceid() C 
6660: 69 6e 74 65 72 66 61 63 65 2e 20 2a 2f 0a 20 20  interface. */.  
6670: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74  sqlite3_result_t
6680: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c  ext(context, sql
6690: 69 74 65 33 5f 73 6f 75 72 63 65 69 64 28 29 2c  ite3_sourceid(),
66a0: 20 2d 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 54   -1, SQLITE_STAT
66b0: 49 43 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d  IC);.}../*.** Im
66c0: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20  plementation of 
66d0: 74 68 65 20 73 71 6c 69 74 65 5f 6c 6f 67 28 29  the sqlite_log()
66e0: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73   function.  This
66f0: 20 69 73 20 61 20 77 72 61 70 70 65 72 20 61 72   is a wrapper ar
6700: 6f 75 6e 64 0a 2a 2a 20 73 71 6c 69 74 65 33 5f  ound.** sqlite3_
6710: 6c 6f 67 28 29 2e 20 20 54 68 65 20 72 65 74 75  log().  The retu
6720: 72 6e 20 76 61 6c 75 65 20 69 73 20 4e 55 4c 4c  rn value is NULL
6730: 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20  .  The function 
6740: 65 78 69 73 74 73 20 70 75 72 65 6c 79 20 66 6f  exists purely fo
6750: 72 0a 2a 2a 20 69 74 73 20 73 69 64 65 2d 65 66  r.** its side-ef
6760: 66 65 63 74 73 2e 0a 2a 2f 0a 73 74 61 74 69 63  fects..*/.static
6770: 20 76 6f 69 64 20 65 72 72 6c 6f 67 46 75 6e 63   void errlogFunc
6780: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
6790: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20  ext *context,.  
67a0: 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69  int argc,.  sqli
67b0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
67c0: 0a 29 7b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52  .){.  UNUSED_PAR
67d0: 41 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20  AMETER(argc);.  
67e0: 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52  UNUSED_PARAMETER
67f0: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71 6c  (context);.  sql
6800: 69 74 65 33 5f 6c 6f 67 28 73 71 6c 69 74 65 33  ite3_log(sqlite3
6810: 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b  _value_int(argv[
6820: 30 5d 29 2c 20 22 25 73 22 2c 20 73 71 6c 69 74  0]), "%s", sqlit
6830: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72  e3_value_text(ar
6840: 67 76 5b 31 5d 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  gv[1]));.}../*.*
6850: 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e  * Implementation
6860: 20 6f 66 20 74 68 65 20 73 71 6c 69 74 65 5f 63   of the sqlite_c
6870: 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65  ompileoption_use
6880: 64 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2a  d() function..**
6890: 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61   The result is a
68a0: 6e 20 69 6e 74 65 67 65 72 20 74 68 61 74 20 69  n integer that i
68b0: 64 65 6e 74 69 66 69 65 73 20 69 66 20 74 68 65  dentifies if the
68c0: 20 63 6f 6d 70 69 6c 65 72 20 6f 70 74 69 6f 6e   compiler option
68d0: 0a 2a 2a 20 77 61 73 20 75 73 65 64 20 74 6f 20  .** was used to 
68e0: 62 75 69 6c 64 20 53 51 4c 69 74 65 2e 0a 2a 2f  build SQLite..*/
68f0: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f  .#ifndef SQLITE_
6900: 4f 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54 49  OMIT_COMPILEOPTI
6910: 4f 4e 5f 44 49 41 47 53 0a 73 74 61 74 69 63 20  ON_DIAGS.static 
6920: 76 6f 69 64 20 63 6f 6d 70 69 6c 65 6f 70 74 69  void compileopti
6930: 6f 6e 75 73 65 64 46 75 6e 63 28 0a 20 20 73 71  onusedFunc(.  sq
6940: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
6950: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72  ontext,.  int ar
6960: 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61  gc,.  sqlite3_va
6970: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20  lue **argv.){.  
6980: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4f 70 74  const char *zOpt
6990: 4e 61 6d 65 3b 0a 20 20 61 73 73 65 72 74 28 20  Name;.  assert( 
69a0: 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20 55 4e 55  argc==1 );.  UNU
69b0: 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72  SED_PARAMETER(ar
69c0: 67 63 29 3b 0a 20 20 2f 2a 20 49 4d 50 3a 20 52  gc);.  /* IMP: R
69d0: 2d 33 39 35 36 34 2d 33 36 33 30 35 20 54 68 65  -39564-36305 The
69e0: 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 6f   sqlite_compileo
69f0: 70 74 69 6f 6e 5f 75 73 65 64 28 29 20 53 51 4c  ption_used() SQL
6a00: 0a 20 20 2a 2a 20 66 75 6e 63 74 69 6f 6e 20 69  .  ** function i
6a10: 73 20 61 20 77 72 61 70 70 65 72 20 61 72 6f 75  s a wrapper arou
6a20: 6e 64 20 74 68 65 20 73 71 6c 69 74 65 33 5f 63  nd the sqlite3_c
6a30: 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65  ompileoption_use
6a40: 64 28 29 20 43 2f 43 2b 2b 0a 20 20 2a 2a 20 66  d() C/C++.  ** f
6a50: 75 6e 63 74 69 6f 6e 2e 0a 20 20 2a 2f 0a 20 20  unction..  */.  
6a60: 69 66 28 20 28 7a 4f 70 74 4e 61 6d 65 20 3d 20  if( (zOptName = 
6a70: 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71 6c  (const char*)sql
6a80: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28  ite3_value_text(
6a90: 61 72 67 76 5b 30 5d 29 29 21 3d 30 20 29 7b 0a  argv[0]))!=0 ){.
6aa0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
6ab0: 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20  lt_int(context, 
6ac0: 73 71 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65 6f  sqlite3_compileo
6ad0: 70 74 69 6f 6e 5f 75 73 65 64 28 7a 4f 70 74 4e  ption_used(zOptN
6ae0: 61 6d 65 29 29 3b 0a 20 20 7d 0a 7d 0a 23 65 6e  ame));.  }.}.#en
6af0: 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d  dif /* SQLITE_OM
6b00: 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54 49 4f 4e  IT_COMPILEOPTION
6b10: 5f 44 49 41 47 53 20 2a 2f 0a 0a 2f 2a 0a 2a 2a  _DIAGS */../*.**
6b20: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   Implementation 
6b30: 6f 66 20 74 68 65 20 73 71 6c 69 74 65 5f 63 6f  of the sqlite_co
6b40: 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 67 65 74 28  mpileoption_get(
6b50: 29 20 66 75 6e 63 74 69 6f 6e 2e 20 0a 2a 2a 20  ) function. .** 
6b60: 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20  The result is a 
6b70: 73 74 72 69 6e 67 20 74 68 61 74 20 69 64 65 6e  string that iden
6b80: 74 69 66 69 65 73 20 74 68 65 20 63 6f 6d 70 69  tifies the compi
6b90: 6c 65 72 20 6f 70 74 69 6f 6e 73 20 0a 2a 2a 20  ler options .** 
6ba0: 75 73 65 64 20 74 6f 20 62 75 69 6c 64 20 53 51  used to build SQ
6bb0: 4c 69 74 65 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66  Lite..*/.#ifndef
6bc0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d   SQLITE_OMIT_COM
6bd0: 50 49 4c 45 4f 50 54 49 4f 4e 5f 44 49 41 47 53  PILEOPTION_DIAGS
6be0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f 6d  .static void com
6bf0: 70 69 6c 65 6f 70 74 69 6f 6e 67 65 74 46 75 6e  pileoptiongetFun
6c00: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  c(.  sqlite3_con
6c10: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20  text *context,. 
6c20: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c   int argc,.  sql
6c30: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67  ite3_value **arg
6c40: 76 0a 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20  v.){.  int n;.  
6c50: 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20  assert( argc==1 
6c60: 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41  );.  UNUSED_PARA
6c70: 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20 2f  METER(argc);.  /
6c80: 2a 20 49 4d 50 3a 20 52 2d 30 34 39 32 32 2d 32  * IMP: R-04922-2
6c90: 34 30 37 36 20 54 68 65 20 73 71 6c 69 74 65 5f  4076 The sqlite_
6ca0: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 67 65  compileoption_ge
6cb0: 74 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e  t() SQL function
6cc0: 0a 20 20 2a 2a 20 69 73 20 61 20 77 72 61 70 70  .  ** is a wrapp
6cd0: 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 73 71  er around the sq
6ce0: 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65 6f 70 74  lite3_compileopt
6cf0: 69 6f 6e 5f 67 65 74 28 29 20 43 2f 43 2b 2b 20  ion_get() C/C++ 
6d00: 66 75 6e 63 74 69 6f 6e 2e 0a 20 20 2a 2f 0a 20  function..  */. 
6d10: 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c   n = sqlite3_val
6d20: 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 3b  ue_int(argv[0]);
6d30: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c  .  sqlite3_resul
6d40: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20  t_text(context, 
6d50: 73 71 6c 69 74 65 33 5f 63 6f 6d 70 69 6c 65 6f  sqlite3_compileo
6d60: 70 74 69 6f 6e 5f 67 65 74 28 6e 29 2c 20 2d 31  ption_get(n), -1
6d70: 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29  , SQLITE_STATIC)
6d80: 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51  ;.}.#endif /* SQ
6d90: 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 49 4c  LITE_OMIT_COMPIL
6da0: 45 4f 50 54 49 4f 4e 5f 44 49 41 47 53 20 2a 2f  EOPTION_DIAGS */
6db0: 0a 0a 2f 2a 20 41 72 72 61 79 20 66 6f 72 20 63  ../* Array for c
6dc0: 6f 6e 76 65 72 74 69 6e 67 20 66 72 6f 6d 20 68  onverting from h
6dd0: 61 6c 66 2d 62 79 74 65 73 20 28 6e 79 62 62 6c  alf-bytes (nybbl
6de0: 65 73 29 20 69 6e 74 6f 20 41 53 43 49 49 20 68  es) into ASCII h
6df0: 65 78 0a 2a 2a 20 64 69 67 69 74 73 2e 20 2a 2f  ex.** digits. */
6e00: 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68  .static const ch
6e10: 61 72 20 68 65 78 64 69 67 69 74 73 5b 5d 20 3d  ar hexdigits[] =
6e20: 20 7b 0a 20 20 27 30 27 2c 20 27 31 27 2c 20 27   {.  '0', '1', '
6e30: 32 27 2c 20 27 33 27 2c 20 27 34 27 2c 20 27 35  2', '3', '4', '5
6e40: 27 2c 20 27 36 27 2c 20 27 37 27 2c 0a 20 20 27  ', '6', '7',.  '
6e50: 38 27 2c 20 27 39 27 2c 20 27 41 27 2c 20 27 42  8', '9', 'A', 'B
6e60: 27 2c 20 27 43 27 2c 20 27 44 27 2c 20 27 45 27  ', 'C', 'D', 'E'
6e70: 2c 20 27 46 27 20 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a  , 'F' .};../*.**
6e80: 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   Implementation 
6e90: 6f 66 20 74 68 65 20 51 55 4f 54 45 28 29 20 66  of the QUOTE() f
6ea0: 75 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 66  unction.  This f
6eb0: 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 61 20  unction takes a 
6ec0: 73 69 6e 67 6c 65 0a 2a 2a 20 61 72 67 75 6d 65  single.** argume
6ed0: 6e 74 2e 20 20 49 66 20 74 68 65 20 61 72 67 75  nt.  If the argu
6ee0: 6d 65 6e 74 20 69 73 20 6e 75 6d 65 72 69 63 2c  ment is numeric,
6ef0: 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75   the return valu
6f00: 65 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73  e is the same as
6f10: 0a 2a 2a 20 74 68 65 20 61 72 67 75 6d 65 6e 74  .** the argument
6f20: 2e 20 20 49 66 20 74 68 65 20 61 72 67 75 6d 65  .  If the argume
6f30: 6e 74 20 69 73 20 4e 55 4c 4c 2c 20 74 68 65 20  nt is NULL, the 
6f40: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20  return value is 
6f50: 74 68 65 20 73 74 72 69 6e 67 0a 2a 2a 20 22 4e  the string.** "N
6f60: 55 4c 4c 22 2e 20 20 4f 74 68 65 72 77 69 73 65  ULL".  Otherwise
6f70: 2c 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69  , the argument i
6f80: 73 20 65 6e 63 6c 6f 73 65 64 20 69 6e 20 73 69  s enclosed in si
6f90: 6e 67 6c 65 20 71 75 6f 74 65 73 20 77 69 74 68  ngle quotes with
6fa0: 0a 2a 2a 20 73 69 6e 67 6c 65 2d 71 75 6f 74 65  .** single-quote
6fb0: 20 65 73 63 61 70 65 73 2e 0a 2a 2f 0a 73 74 61   escapes..*/.sta
6fc0: 74 69 63 20 76 6f 69 64 20 71 75 6f 74 65 46 75  tic void quoteFu
6fd0: 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  nc(sqlite3_conte
6fe0: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74  xt *context, int
6ff0: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76   argc, sqlite3_v
7000: 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20  alue **argv){.  
7010: 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20  assert( argc==1 
7020: 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41  );.  UNUSED_PARA
7030: 4d 45 54 45 52 28 61 72 67 63 29 3b 0a 20 20 73  METER(argc);.  s
7040: 77 69 74 63 68 28 20 73 71 6c 69 74 65 33 5f 76  witch( sqlite3_v
7050: 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30  alue_type(argv[0
7060: 5d 29 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53  ]) ){.    case S
7070: 51 4c 49 54 45 5f 46 4c 4f 41 54 3a 20 7b 0a 20  QLITE_FLOAT: {. 
7080: 20 20 20 20 20 64 6f 75 62 6c 65 20 72 31 2c 20       double r1, 
7090: 72 32 3b 0a 20 20 20 20 20 20 63 68 61 72 20 7a  r2;.      char z
70a0: 42 75 66 5b 35 30 5d 3b 0a 20 20 20 20 20 20 72  Buf[50];.      r
70b0: 31 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  1 = sqlite3_valu
70c0: 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b 30 5d  e_double(argv[0]
70d0: 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33  );.      sqlite3
70e0: 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66  _snprintf(sizeof
70f0: 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 25  (zBuf), zBuf, "%
7100: 21 2e 31 35 67 22 2c 20 72 31 29 3b 0a 20 20 20  !.15g", r1);.   
7110: 20 20 20 73 71 6c 69 74 65 33 41 74 6f 46 28 7a     sqlite3AtoF(z
7120: 42 75 66 2c 20 26 72 32 2c 20 32 30 2c 20 53 51  Buf, &r2, 20, SQ
7130: 4c 49 54 45 5f 55 54 46 38 29 3b 0a 20 20 20 20  LITE_UTF8);.    
7140: 20 20 69 66 28 20 72 31 21 3d 72 32 20 29 7b 0a    if( r1!=r2 ){.
7150: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f          sqlite3_
7160: 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28  snprintf(sizeof(
7170: 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 25 21  zBuf), zBuf, "%!
7180: 2e 32 30 65 22 2c 20 72 31 29 3b 0a 20 20 20 20  .20e", r1);.    
7190: 20 20 7d 0a 20 20 20 20 20 20 73 71 6c 69 74 65    }.      sqlite
71a0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f  3_result_text(co
71b0: 6e 74 65 78 74 2c 20 7a 42 75 66 2c 20 2d 31 2c  ntext, zBuf, -1,
71c0: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e   SQLITE_TRANSIEN
71d0: 54 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  T);.      break;
71e0: 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20  .    }.    case 
71f0: 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 52 3a 20  SQLITE_INTEGER: 
7200: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  {.      sqlite3_
7210: 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e  result_value(con
7220: 74 65 78 74 2c 20 61 72 67 76 5b 30 5d 29 3b 0a  text, argv[0]);.
7230: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
7240: 20 7d 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49   }.    case SQLI
7250: 54 45 5f 42 4c 4f 42 3a 20 7b 0a 20 20 20 20 20  TE_BLOB: {.     
7260: 20 63 68 61 72 20 2a 7a 54 65 78 74 20 3d 20 30   char *zText = 0
7270: 3b 0a 20 20 20 20 20 20 63 68 61 72 20 63 6f 6e  ;.      char con
7280: 73 74 20 2a 7a 42 6c 6f 62 20 3d 20 73 71 6c 69  st *zBlob = sqli
7290: 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 61  te3_value_blob(a
72a0: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 69  rgv[0]);.      i
72b0: 6e 74 20 6e 42 6c 6f 62 20 3d 20 73 71 6c 69 74  nt nBlob = sqlit
72c0: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61  e3_value_bytes(a
72d0: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 61  rgv[0]);.      a
72e0: 73 73 65 72 74 28 20 7a 42 6c 6f 62 3d 3d 73 71  ssert( zBlob==sq
72f0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62  lite3_value_blob
7300: 28 61 72 67 76 5b 30 5d 29 20 29 3b 20 2f 2a 20  (argv[0]) ); /* 
7310: 4e 6f 20 65 6e 63 6f 64 69 6e 67 20 63 68 61 6e  No encoding chan
7320: 67 65 20 2a 2f 0a 20 20 20 20 20 20 7a 54 65 78  ge */.      zTex
7330: 74 20 3d 20 28 63 68 61 72 20 2a 29 63 6f 6e 74  t = (char *)cont
7340: 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78  extMalloc(contex
7350: 74 2c 20 28 32 2a 28 69 36 34 29 6e 42 6c 6f 62  t, (2*(i64)nBlob
7360: 29 2b 34 29 3b 20 0a 20 20 20 20 20 20 69 66 28  )+4); .      if(
7370: 20 7a 54 65 78 74 20 29 7b 0a 20 20 20 20 20 20   zText ){.      
7380: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 20    int i;.       
7390: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 42 6c 6f   for(i=0; i<nBlo
73a0: 62 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20  b; i++){.       
73b0: 20 20 20 7a 54 65 78 74 5b 28 69 2a 32 29 2b 32     zText[(i*2)+2
73c0: 5d 20 3d 20 68 65 78 64 69 67 69 74 73 5b 28 7a  ] = hexdigits[(z
73d0: 42 6c 6f 62 5b 69 5d 3e 3e 34 29 26 30 78 30 46  Blob[i]>>4)&0x0F
73e0: 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 54 65  ];.          zTe
73f0: 78 74 5b 28 69 2a 32 29 2b 33 5d 20 3d 20 68 65  xt[(i*2)+3] = he
7400: 78 64 69 67 69 74 73 5b 28 7a 42 6c 6f 62 5b 69  xdigits[(zBlob[i
7410: 5d 29 26 30 78 30 46 5d 3b 0a 20 20 20 20 20 20  ])&0x0F];.      
7420: 20 20 7d 0a 20 20 20 20 20 20 20 20 7a 54 65 78    }.        zTex
7430: 74 5b 28 6e 42 6c 6f 62 2a 32 29 2b 32 5d 20 3d  t[(nBlob*2)+2] =
7440: 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 7a   '\'';.        z
7450: 54 65 78 74 5b 28 6e 42 6c 6f 62 2a 32 29 2b 33  Text[(nBlob*2)+3
7460: 5d 20 3d 20 27 5c 30 27 3b 0a 20 20 20 20 20 20  ] = '\0';.      
7470: 20 20 7a 54 65 78 74 5b 30 5d 20 3d 20 27 58 27    zText[0] = 'X'
7480: 3b 0a 20 20 20 20 20 20 20 20 7a 54 65 78 74 5b  ;.        zText[
7490: 31 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20  1] = '\'';.     
74a0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c     sqlite3_resul
74b0: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20  t_text(context, 
74c0: 7a 54 65 78 74 2c 20 2d 31 2c 20 53 51 4c 49 54  zText, -1, SQLIT
74d0: 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20  E_TRANSIENT);.  
74e0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72        sqlite3_fr
74f0: 65 65 28 7a 54 65 78 74 29 3b 0a 20 20 20 20 20  ee(zText);.     
7500: 20 7d 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a   }.      break;.
7510: 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 53      }.    case S
7520: 51 4c 49 54 45 5f 54 45 58 54 3a 20 7b 0a 20 20  QLITE_TEXT: {.  
7530: 20 20 20 20 69 6e 74 20 69 2c 6a 3b 0a 20 20 20      int i,j;.   
7540: 20 20 20 75 36 34 20 6e 3b 0a 20 20 20 20 20 20     u64 n;.      
7550: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63  const unsigned c
7560: 68 61 72 20 2a 7a 41 72 67 20 3d 20 73 71 6c 69  har *zArg = sqli
7570: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
7580: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 20 20 63  rgv[0]);.      c
7590: 68 61 72 20 2a 7a 3b 0a 0a 20 20 20 20 20 20 69  har *z;..      i
75a0: 66 28 20 7a 41 72 67 3d 3d 30 20 29 20 72 65 74  f( zArg==0 ) ret
75b0: 75 72 6e 3b 0a 20 20 20 20 20 20 66 6f 72 28 69  urn;.      for(i
75c0: 3d 30 2c 20 6e 3d 30 3b 20 7a 41 72 67 5b 69 5d  =0, n=0; zArg[i]
75d0: 3b 20 69 2b 2b 29 7b 20 69 66 28 20 7a 41 72 67  ; i++){ if( zArg
75e0: 5b 69 5d 3d 3d 27 5c 27 27 20 29 20 6e 2b 2b 3b  [i]=='\'' ) n++;
75f0: 20 7d 0a 20 20 20 20 20 20 7a 20 3d 20 63 6f 6e   }.      z = con
7600: 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65  textMalloc(conte
7610: 78 74 2c 20 28 28 69 36 34 29 69 29 2b 28 28 69  xt, ((i64)i)+((i
7620: 36 34 29 6e 29 2b 33 29 3b 0a 20 20 20 20 20 20  64)n)+3);.      
7630: 69 66 28 20 7a 20 29 7b 0a 20 20 20 20 20 20 20  if( z ){.       
7640: 20 7a 5b 30 5d 20 3d 20 27 5c 27 27 3b 0a 20 20   z[0] = '\'';.  
7650: 20 20 20 20 20 20 66 6f 72 28 69 3d 30 2c 20 6a        for(i=0, j
7660: 3d 31 3b 20 7a 41 72 67 5b 69 5d 3b 20 69 2b 2b  =1; zArg[i]; i++
7670: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 5b 6a  ){.          z[j
7680: 2b 2b 5d 20 3d 20 7a 41 72 67 5b 69 5d 3b 0a 20  ++] = zArg[i];. 
7690: 20 20 20 20 20 20 20 20 20 69 66 28 20 7a 41 72           if( zAr
76a0: 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 7b 0a 20 20  g[i]=='\'' ){.  
76b0: 20 20 20 20 20 20 20 20 20 20 7a 5b 6a 2b 2b 5d            z[j++]
76c0: 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20   = '\'';.       
76d0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20     }.        }. 
76e0: 20 20 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20         z[j++] = 
76f0: 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 7a 5b  '\'';.        z[
7700: 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  j] = 0;.        
7710: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74  sqlite3_result_t
7720: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 2c 20  ext(context, z, 
7730: 6a 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29  j, sqlite3_free)
7740: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
7750: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20  break;.    }.   
7760: 20 64 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20 20   default: {.    
7770: 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65    assert( sqlite
7780: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67  3_value_type(arg
7790: 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55  v[0])==SQLITE_NU
77a0: 4c 4c 20 29 3b 0a 20 20 20 20 20 20 73 71 6c 69  LL );.      sqli
77b0: 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28  te3_result_text(
77c0: 63 6f 6e 74 65 78 74 2c 20 22 4e 55 4c 4c 22 2c  context, "NULL",
77d0: 20 34 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49   4, SQLITE_STATI
77e0: 43 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  C);.      break;
77f0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a  .    }.  }.}../*
7800: 0a 2a 2a 20 54 68 65 20 75 6e 69 63 6f 64 65 28  .** The unicode(
7810: 29 20 66 75 6e 63 74 69 6f 6e 2e 20 20 52 65 74  ) function.  Ret
7820: 75 72 6e 20 74 68 65 20 69 6e 74 65 67 65 72 20  urn the integer 
7830: 75 6e 69 63 6f 64 65 20 63 6f 64 65 2d 70 6f 69  unicode code-poi
7840: 6e 74 20 76 61 6c 75 65 0a 2a 2a 20 66 6f 72 20  nt value.** for 
7850: 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63  the first charac
7860: 74 65 72 20 6f 66 20 74 68 65 20 69 6e 70 75 74  ter of the input
7870: 20 73 74 72 69 6e 67 2e 20 0a 2a 2f 0a 73 74 61   string. .*/.sta
7880: 74 69 63 20 76 6f 69 64 20 75 6e 69 63 6f 64 65  tic void unicode
7890: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f  Func(.  sqlite3_
78a0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
78b0: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20  ,.  int argc,.  
78c0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
78d0: 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20  argv.){.  const 
78e0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a  unsigned char *z
78f0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
7900: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a  _text(argv[0]);.
7910: 20 20 28 76 6f 69 64 29 61 72 67 63 3b 0a 20 20    (void)argc;.  
7920: 69 66 28 20 7a 20 26 26 20 7a 5b 30 5d 20 29 20  if( z && z[0] ) 
7930: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69  sqlite3_result_i
7940: 6e 74 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69  nt(context, sqli
7950: 74 65 33 55 74 66 38 52 65 61 64 28 26 7a 29 29  te3Utf8Read(&z))
7960: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 63  ;.}../*.** The c
7970: 68 61 72 28 29 20 66 75 6e 63 74 69 6f 6e 20 74  har() function t
7980: 61 6b 65 73 20 7a 65 72 6f 20 6f 72 20 6d 6f 72  akes zero or mor
7990: 65 20 61 72 67 75 6d 65 6e 74 73 2c 20 65 61 63  e arguments, eac
79a0: 68 20 6f 66 20 77 68 69 63 68 20 69 73 0a 2a 2a  h of which is.**
79b0: 20 61 6e 20 69 6e 74 65 67 65 72 2e 20 20 49 74   an integer.  It
79c0: 20 63 6f 6e 73 74 72 75 63 74 73 20 61 20 73 74   constructs a st
79d0: 72 69 6e 67 20 77 68 65 72 65 20 65 61 63 68 20  ring where each 
79e0: 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 68 65  character of the
79f0: 20 73 74 72 69 6e 67 0a 2a 2a 20 69 73 20 74 68   string.** is th
7a00: 65 20 75 6e 69 63 6f 64 65 20 63 68 61 72 61 63  e unicode charac
7a10: 74 65 72 20 66 6f 72 20 74 68 65 20 63 6f 72 72  ter for the corr
7a20: 65 73 70 6f 6e 64 69 6e 67 20 69 6e 74 65 67 65  esponding intege
7a30: 72 20 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 73  r argument..*/.s
7a40: 74 61 74 69 63 20 76 6f 69 64 20 63 68 61 72 46  tatic void charF
7a50: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63  unc(.  sqlite3_c
7a60: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c  ontext *context,
7a70: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73  .  int argc,.  s
7a80: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61  qlite3_value **a
7a90: 72 67 76 0a 29 7b 0a 20 20 75 6e 73 69 67 6e 65  rgv.){.  unsigne
7aa0: 64 20 63 68 61 72 20 2a 7a 2c 20 2a 7a 4f 75 74  d char *z, *zOut
7ab0: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 7a 4f 75  ;.  int i;.  zOu
7ac0: 74 20 3d 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f  t = z = sqlite3_
7ad0: 6d 61 6c 6c 6f 63 36 34 28 20 61 72 67 63 2a 34  malloc64( argc*4
7ae0: 2b 31 20 29 3b 0a 20 20 69 66 28 20 7a 3d 3d 30  +1 );.  if( z==0
7af0: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f   ){.    sqlite3_
7b00: 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d  result_error_nom
7b10: 65 6d 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20  em(context);.   
7b20: 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 66   return;.  }.  f
7b30: 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20  or(i=0; i<argc; 
7b40: 69 2b 2b 29 7b 0a 20 20 20 20 73 71 6c 69 74 65  i++){.    sqlite
7b50: 33 5f 69 6e 74 36 34 20 78 3b 0a 20 20 20 20 75  3_int64 x;.    u
7b60: 6e 73 69 67 6e 65 64 20 63 3b 0a 20 20 20 20 78  nsigned c;.    x
7b70: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
7b80: 5f 69 6e 74 36 34 28 61 72 67 76 5b 69 5d 29 3b  _int64(argv[i]);
7b90: 0a 20 20 20 20 69 66 28 20 78 3c 30 20 7c 7c 20  .    if( x<0 || 
7ba0: 78 3e 30 78 31 30 66 66 66 66 20 29 20 78 20 3d  x>0x10ffff ) x =
7bb0: 20 30 78 66 66 66 64 3b 0a 20 20 20 20 63 20 3d   0xfffd;.    c =
7bc0: 20 28 75 6e 73 69 67 6e 65 64 29 28 78 20 26 20   (unsigned)(x & 
7bd0: 30 78 31 66 66 66 66 66 29 3b 0a 20 20 20 20 69  0x1fffff);.    i
7be0: 66 28 20 63 3c 30 78 30 30 30 38 30 20 29 7b 0a  f( c<0x00080 ){.
7bf0: 20 20 20 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20        *zOut++ = 
7c00: 28 75 38 29 28 63 26 30 78 46 46 29 3b 0a 20 20  (u8)(c&0xFF);.  
7c10: 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3c 30 78    }else if( c<0x
7c20: 30 30 38 30 30 20 29 7b 0a 20 20 20 20 20 20 2a  00800 ){.      *
7c30: 7a 4f 75 74 2b 2b 20 3d 20 30 78 43 30 20 2b 20  zOut++ = 0xC0 + 
7c40: 28 75 38 29 28 28 63 3e 3e 36 29 26 30 78 31 46  (u8)((c>>6)&0x1F
7c50: 29 3b 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b 2b  );.      *zOut++
7c60: 20 3d 20 30 78 38 30 20 2b 20 28 75 38 29 28 63   = 0x80 + (u8)(c
7c70: 20 26 20 30 78 33 46 29 3b 0a 20 20 20 20 7d 65   & 0x3F);.    }e
7c80: 6c 73 65 20 69 66 28 20 63 3c 30 78 31 30 30 30  lse if( c<0x1000
7c90: 30 20 29 7b 0a 20 20 20 20 20 20 2a 7a 4f 75 74  0 ){.      *zOut
7ca0: 2b 2b 20 3d 20 30 78 45 30 20 2b 20 28 75 38 29  ++ = 0xE0 + (u8)
7cb0: 28 28 63 3e 3e 31 32 29 26 30 78 30 46 29 3b 0a  ((c>>12)&0x0F);.
7cc0: 20 20 20 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20        *zOut++ = 
7cd0: 30 78 38 30 20 2b 20 28 75 38 29 28 28 63 3e 3e  0x80 + (u8)((c>>
7ce0: 36 29 20 26 20 30 78 33 46 29 3b 0a 20 20 20 20  6) & 0x3F);.    
7cf0: 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 38 30    *zOut++ = 0x80
7d00: 20 2b 20 28 75 38 29 28 63 20 26 20 30 78 33 46   + (u8)(c & 0x3F
7d10: 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20  );.    }else{.  
7d20: 20 20 20 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78      *zOut++ = 0x
7d30: 46 30 20 2b 20 28 75 38 29 28 28 63 3e 3e 31 38  F0 + (u8)((c>>18
7d40: 29 20 26 20 30 78 30 37 29 3b 0a 20 20 20 20 20  ) & 0x07);.     
7d50: 20 2a 7a 4f 75 74 2b 2b 20 3d 20 30 78 38 30 20   *zOut++ = 0x80 
7d60: 2b 20 28 75 38 29 28 28 63 3e 3e 31 32 29 20 26  + (u8)((c>>12) &
7d70: 20 30 78 33 46 29 3b 0a 20 20 20 20 20 20 2a 7a   0x3F);.      *z
7d80: 4f 75 74 2b 2b 20 3d 20 30 78 38 30 20 2b 20 28  Out++ = 0x80 + (
7d90: 75 38 29 28 28 63 3e 3e 36 29 20 26 20 30 78 33  u8)((c>>6) & 0x3
7da0: 46 29 3b 0a 20 20 20 20 20 20 2a 7a 4f 75 74 2b  F);.      *zOut+
7db0: 2b 20 3d 20 30 78 38 30 20 2b 20 28 75 38 29 28  + = 0x80 + (u8)(
7dc0: 63 20 26 20 30 78 33 46 29 3b 0a 20 20 20 20 7d  c & 0x3F);.    }
7dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7de0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7e00: 20 20 20 20 5c 0a 20 20 7d 0a 20 20 73 71 6c 69      \.  }.  sqli
7e10: 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 36  te3_result_text6
7e20: 34 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 72  4(context, (char
7e30: 2a 29 7a 2c 20 7a 4f 75 74 2d 7a 2c 20 73 71 6c  *)z, zOut-z, sql
7e40: 69 74 65 33 5f 66 72 65 65 2c 20 53 51 4c 49 54  ite3_free, SQLIT
7e50: 45 5f 55 54 46 38 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  E_UTF8);.}../*.*
7e60: 2a 20 54 68 65 20 68 65 78 28 29 20 66 75 6e 63  * The hex() func
7e70: 74 69 6f 6e 2e 20 20 49 6e 74 65 72 70 72 65 74  tion.  Interpret
7e80: 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 61 73   the argument as
7e90: 20 61 20 62 6c 6f 62 2e 20 20 52 65 74 75 72 6e   a blob.  Return
7ea0: 0a 2a 2a 20 61 20 68 65 78 61 64 65 63 69 6d 61  .** a hexadecima
7eb0: 6c 20 72 65 6e 64 65 72 69 6e 67 20 61 73 20 74  l rendering as t
7ec0: 65 78 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76  ext..*/.static v
7ed0: 6f 69 64 20 68 65 78 46 75 6e 63 28 0a 20 20 73  oid hexFunc(.  s
7ee0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
7ef0: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61  context,.  int a
7f00: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  rgc,.  sqlite3_v
7f10: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
7f20: 20 69 6e 74 20 69 2c 20 6e 3b 0a 20 20 63 6f 6e   int i, n;.  con
7f30: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  st unsigned char
7f40: 20 2a 70 42 6c 6f 62 3b 0a 20 20 63 68 61 72 20   *pBlob;.  char 
7f50: 2a 7a 48 65 78 2c 20 2a 7a 3b 0a 20 20 61 73 73  *zHex, *z;.  ass
7f60: 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a  ert( argc==1 );.
7f70: 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54    UNUSED_PARAMET
7f80: 45 52 28 61 72 67 63 29 3b 0a 20 20 70 42 6c 6f  ER(argc);.  pBlo
7f90: 62 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  b = sqlite3_valu
7fa0: 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d 29 3b  e_blob(argv[0]);
7fb0: 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76  .  n = sqlite3_v
7fc0: 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b  alue_bytes(argv[
7fd0: 30 5d 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70  0]);.  assert( p
7fe0: 42 6c 6f 62 3d 3d 73 71 6c 69 74 65 33 5f 76 61  Blob==sqlite3_va
7ff0: 6c 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 30 5d  lue_blob(argv[0]
8000: 29 20 29 3b 20 20 2f 2a 20 4e 6f 20 65 6e 63 6f  ) );  /* No enco
8010: 64 69 6e 67 20 63 68 61 6e 67 65 20 2a 2f 0a 20  ding change */. 
8020: 20 7a 20 3d 20 7a 48 65 78 20 3d 20 63 6f 6e 74   z = zHex = cont
8030: 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74 65 78  extMalloc(contex
8040: 74 2c 20 28 28 69 36 34 29 6e 29 2a 32 20 2b 20  t, ((i64)n)*2 + 
8050: 31 29 3b 0a 20 20 69 66 28 20 7a 48 65 78 20 29  1);.  if( zHex )
8060: 7b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69  {.    for(i=0; i
8070: 3c 6e 3b 20 69 2b 2b 2c 20 70 42 6c 6f 62 2b 2b  <n; i++, pBlob++
8080: 29 7b 0a 20 20 20 20 20 20 75 6e 73 69 67 6e 65  ){.      unsigne
8090: 64 20 63 68 61 72 20 63 20 3d 20 2a 70 42 6c 6f  d char c = *pBlo
80a0: 62 3b 0a 20 20 20 20 20 20 2a 28 7a 2b 2b 29 20  b;.      *(z++) 
80b0: 3d 20 68 65 78 64 69 67 69 74 73 5b 28 63 3e 3e  = hexdigits[(c>>
80c0: 34 29 26 30 78 66 5d 3b 0a 20 20 20 20 20 20 2a  4)&0xf];.      *
80d0: 28 7a 2b 2b 29 20 3d 20 68 65 78 64 69 67 69 74  (z++) = hexdigit
80e0: 73 5b 63 26 30 78 66 5d 3b 0a 20 20 20 20 7d 0a  s[c&0xf];.    }.
80f0: 20 20 20 20 2a 7a 20 3d 20 30 3b 0a 20 20 20 20      *z = 0;.    
8100: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74  sqlite3_result_t
8110: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 48 65  ext(context, zHe
8120: 78 2c 20 6e 2a 32 2c 20 73 71 6c 69 74 65 33 5f  x, n*2, sqlite3_
8130: 66 72 65 65 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a  free);.  }.}../*
8140: 0a 2a 2a 20 54 68 65 20 7a 65 72 6f 62 6c 6f 62  .** The zeroblob
8150: 28 4e 29 20 66 75 6e 63 74 69 6f 6e 20 72 65 74  (N) function ret
8160: 75 72 6e 73 20 61 20 7a 65 72 6f 2d 66 69 6c 6c  urns a zero-fill
8170: 65 64 20 62 6c 6f 62 20 6f 66 20 73 69 7a 65 20  ed blob of size 
8180: 4e 20 62 79 74 65 73 2e 0a 2a 2f 0a 73 74 61 74  N bytes..*/.stat
8190: 69 63 20 76 6f 69 64 20 7a 65 72 6f 62 6c 6f 62  ic void zeroblob
81a0: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f  Func(.  sqlite3_
81b0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
81c0: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20  ,.  int argc,.  
81d0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
81e0: 61 72 67 76 0a 29 7b 0a 20 20 69 36 34 20 6e 3b  argv.){.  i64 n;
81f0: 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 61 73 73  .  int rc;.  ass
8200: 65 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a  ert( argc==1 );.
8210: 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54    UNUSED_PARAMET
8220: 45 52 28 61 72 67 63 29 3b 0a 20 20 6e 20 3d 20  ER(argc);.  n = 
8230: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e  sqlite3_value_in
8240: 74 36 34 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20  t64(argv[0]);.  
8250: 69 66 28 20 6e 3c 30 20 29 20 6e 20 3d 20 30 3b  if( n<0 ) n = 0;
8260: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f  .  rc = sqlite3_
8270: 72 65 73 75 6c 74 5f 7a 65 72 6f 62 6c 6f 62 36  result_zeroblob6
8280: 34 28 63 6f 6e 74 65 78 74 2c 20 6e 29 3b 20 2f  4(context, n); /
8290: 2a 20 49 4d 50 3a 20 52 2d 30 30 32 39 33 2d 36  * IMP: R-00293-6
82a0: 34 39 39 34 20 2a 2f 0a 20 20 69 66 28 20 72 63  4994 */.  if( rc
82b0: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f   ){.    sqlite3_
82c0: 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 63 6f 64  result_error_cod
82d0: 65 28 63 6f 6e 74 65 78 74 2c 20 72 63 29 3b 0a  e(context, rc);.
82e0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65    }.}../*.** The
82f0: 20 72 65 70 6c 61 63 65 28 29 20 66 75 6e 63 74   replace() funct
8300: 69 6f 6e 2e 20 20 54 68 72 65 65 20 61 72 67 75  ion.  Three argu
8310: 6d 65 6e 74 73 20 61 72 65 20 61 6c 6c 20 73 74  ments are all st
8320: 72 69 6e 67 73 3a 20 63 61 6c 6c 0a 2a 2a 20 74  rings: call.** t
8330: 68 65 6d 20 41 2c 20 42 2c 20 61 6e 64 20 43 2e  hem A, B, and C.
8340: 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61   The result is a
8350: 6c 73 6f 20 61 20 73 74 72 69 6e 67 20 77 68 69  lso a string whi
8360: 63 68 20 69 73 20 64 65 72 69 76 65 64 0a 2a 2a  ch is derived.**
8370: 20 66 72 6f 6d 20 41 20 62 79 20 72 65 70 6c 61   from A by repla
8380: 63 69 6e 67 20 65 76 65 72 79 20 6f 63 63 75 72  cing every occur
8390: 72 65 6e 63 65 20 6f 66 20 42 20 77 69 74 68 20  rence of B with 
83a0: 43 2e 20 20 54 68 65 20 6d 61 74 63 68 0a 2a 2a  C.  The match.**
83b0: 20 6d 75 73 74 20 62 65 20 65 78 61 63 74 2e 20   must be exact. 
83c0: 20 43 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 65   Collating seque
83d0: 6e 63 65 73 20 61 72 65 20 6e 6f 74 20 75 73 65  nces are not use
83e0: 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  d..*/.static voi
83f0: 64 20 72 65 70 6c 61 63 65 46 75 6e 63 28 0a 20  d replaceFunc(. 
8400: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
8410: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74   *context,.  int
8420: 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33   argc,.  sqlite3
8430: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b  _value **argv.){
8440: 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65  .  const unsigne
8450: 64 20 63 68 61 72 20 2a 7a 53 74 72 3b 20 20 20  d char *zStr;   
8460: 20 20 20 20 20 2f 2a 20 54 68 65 20 69 6e 70 75       /* The inpu
8470: 74 20 73 74 72 69 6e 67 20 41 20 2a 2f 0a 20 20  t string A */.  
8480: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63  const unsigned c
8490: 68 61 72 20 2a 7a 50 61 74 74 65 72 6e 3b 20 20  har *zPattern;  
84a0: 20 20 2f 2a 20 54 68 65 20 70 61 74 74 65 72 6e    /* The pattern
84b0: 20 73 74 72 69 6e 67 20 42 20 2a 2f 0a 20 20 63   string B */.  c
84c0: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68  onst unsigned ch
84d0: 61 72 20 2a 7a 52 65 70 3b 20 20 20 20 20 20 20  ar *zRep;       
84e0: 20 2f 2a 20 54 68 65 20 72 65 70 6c 61 63 65 6d   /* The replacem
84f0: 65 6e 74 20 73 74 72 69 6e 67 20 43 20 2a 2f 0a  ent string C */.
8500: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20    unsigned char 
8510: 2a 7a 4f 75 74 3b 20 20 20 20 20 20 20 20 20 20  *zOut;          
8520: 20 20 20 20 2f 2a 20 54 68 65 20 6f 75 74 70 75      /* The outpu
8530: 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 53 74 72 3b  t */.  int nStr;
8540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8550: 2f 2a 20 53 69 7a 65 20 6f 66 20 7a 53 74 72 20  /* Size of zStr 
8560: 2a 2f 0a 20 20 69 6e 74 20 6e 50 61 74 74 65 72  */.  int nPatter
8570: 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  n;            /*
8580: 20 53 69 7a 65 20 6f 66 20 7a 50 61 74 74 65 72   Size of zPatter
8590: 6e 20 2a 2f 0a 20 20 69 6e 74 20 6e 52 65 70 3b  n */.  int nRep;
85a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
85b0: 2f 2a 20 53 69 7a 65 20 6f 66 20 7a 52 65 70 20  /* Size of zRep 
85c0: 2a 2f 0a 20 20 69 36 34 20 6e 4f 75 74 3b 20 20  */.  i64 nOut;  
85d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
85e0: 20 4d 61 78 69 6d 75 6d 20 73 69 7a 65 20 6f 66   Maximum size of
85f0: 20 7a 4f 75 74 20 2a 2f 0a 20 20 69 6e 74 20 6c   zOut */.  int l
8600: 6f 6f 70 4c 69 6d 69 74 3b 20 20 20 20 20 20 20  oopLimit;       
8610: 20 20 20 20 2f 2a 20 4c 61 73 74 20 7a 53 74 72      /* Last zStr
8620: 5b 5d 20 74 68 61 74 20 6d 69 67 68 74 20 6d 61  [] that might ma
8630: 74 63 68 20 7a 50 61 74 74 65 72 6e 5b 5d 20 2a  tch zPattern[] *
8640: 2f 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 20 20 20  /.  int i, j;   
8650: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
8660: 4c 6f 6f 70 20 63 6f 75 6e 74 65 72 73 20 2a 2f  Loop counters */
8670: 0a 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63  ..  assert( argc
8680: 3d 3d 33 20 29 3b 0a 20 20 55 4e 55 53 45 44 5f  ==3 );.  UNUSED_
8690: 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 3b  PARAMETER(argc);
86a0: 0a 20 20 7a 53 74 72 20 3d 20 73 71 6c 69 74 65  .  zStr = sqlite
86b0: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67  3_value_text(arg
86c0: 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 7a 53 74  v[0]);.  if( zSt
86d0: 72 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20  r==0 ) return;. 
86e0: 20 6e 53 74 72 20 3d 20 73 71 6c 69 74 65 33 5f   nStr = sqlite3_
86f0: 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76  value_bytes(argv
8700: 5b 30 5d 29 3b 0a 20 20 61 73 73 65 72 74 28 20  [0]);.  assert( 
8710: 7a 53 74 72 3d 3d 73 71 6c 69 74 65 33 5f 76 61  zStr==sqlite3_va
8720: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d  lue_text(argv[0]
8730: 29 20 29 3b 20 20 2f 2a 20 4e 6f 20 65 6e 63 6f  ) );  /* No enco
8740: 64 69 6e 67 20 63 68 61 6e 67 65 20 2a 2f 0a 20  ding change */. 
8750: 20 7a 50 61 74 74 65 72 6e 20 3d 20 73 71 6c 69   zPattern = sqli
8760: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
8770: 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 7a  rgv[1]);.  if( z
8780: 50 61 74 74 65 72 6e 3d 3d 30 20 29 7b 0a 20 20  Pattern==0 ){.  
8790: 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65    assert( sqlite
87a0: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67  3_value_type(arg
87b0: 76 5b 31 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55  v[1])==SQLITE_NU
87c0: 4c 4c 0a 20 20 20 20 20 20 20 20 20 20 20 20 7c  LL.            |
87d0: 7c 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  | sqlite3_contex
87e0: 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74  t_db_handle(cont
87f0: 65 78 74 29 2d 3e 6d 61 6c 6c 6f 63 46 61 69 6c  ext)->mallocFail
8800: 65 64 20 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  ed );.    return
8810: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 7a 50 61 74  ;.  }.  if( zPat
8820: 74 65 72 6e 5b 30 5d 3d 3d 30 20 29 7b 0a 20 20  tern[0]==0 ){.  
8830: 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65    assert( sqlite
8840: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67  3_value_type(arg
8850: 76 5b 31 5d 29 21 3d 53 51 4c 49 54 45 5f 4e 55  v[1])!=SQLITE_NU
8860: 4c 4c 20 29 3b 0a 20 20 20 20 73 71 6c 69 74 65  LL );.    sqlite
8870: 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 63  3_result_value(c
8880: 6f 6e 74 65 78 74 2c 20 61 72 67 76 5b 30 5d 29  ontext, argv[0])
8890: 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20  ;.    return;.  
88a0: 7d 0a 20 20 6e 50 61 74 74 65 72 6e 20 3d 20 73  }.  nPattern = s
88b0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74  qlite3_value_byt
88c0: 65 73 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 61  es(argv[1]);.  a
88d0: 73 73 65 72 74 28 20 7a 50 61 74 74 65 72 6e 3d  ssert( zPattern=
88e0: 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74  =sqlite3_value_t
88f0: 65 78 74 28 61 72 67 76 5b 31 5d 29 20 29 3b 20  ext(argv[1]) ); 
8900: 20 2f 2a 20 4e 6f 20 65 6e 63 6f 64 69 6e 67 20   /* No encoding 
8910: 63 68 61 6e 67 65 20 2a 2f 0a 20 20 7a 52 65 70  change */.  zRep
8920: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
8930: 5f 74 65 78 74 28 61 72 67 76 5b 32 5d 29 3b 0a  _text(argv[2]);.
8940: 20 20 69 66 28 20 7a 52 65 70 3d 3d 30 20 29 20    if( zRep==0 ) 
8950: 72 65 74 75 72 6e 3b 0a 20 20 6e 52 65 70 20 3d  return;.  nRep =
8960: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62   sqlite3_value_b
8970: 79 74 65 73 28 61 72 67 76 5b 32 5d 29 3b 0a 20  ytes(argv[2]);. 
8980: 20 61 73 73 65 72 74 28 20 7a 52 65 70 3d 3d 73   assert( zRep==s
8990: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78  qlite3_value_tex
89a0: 74 28 61 72 67 76 5b 32 5d 29 20 29 3b 0a 20 20  t(argv[2]) );.  
89b0: 6e 4f 75 74 20 3d 20 6e 53 74 72 20 2b 20 31 3b  nOut = nStr + 1;
89c0: 0a 20 20 61 73 73 65 72 74 28 20 6e 4f 75 74 3c  .  assert( nOut<
89d0: 53 51 4c 49 54 45 5f 4d 41 58 5f 4c 45 4e 47 54  SQLITE_MAX_LENGT
89e0: 48 20 29 3b 0a 20 20 7a 4f 75 74 20 3d 20 63 6f  H );.  zOut = co
89f0: 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 63 6f 6e 74  ntextMalloc(cont
8a00: 65 78 74 2c 20 28 69 36 34 29 6e 4f 75 74 29 3b  ext, (i64)nOut);
8a10: 0a 20 20 69 66 28 20 7a 4f 75 74 3d 3d 30 20 29  .  if( zOut==0 )
8a20: 7b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20  {.    return;.  
8a30: 7d 0a 20 20 6c 6f 6f 70 4c 69 6d 69 74 20 3d 20  }.  loopLimit = 
8a40: 6e 53 74 72 20 2d 20 6e 50 61 74 74 65 72 6e 3b  nStr - nPattern;
8a50: 20 20 0a 20 20 66 6f 72 28 69 3d 6a 3d 30 3b 20    .  for(i=j=0; 
8a60: 69 3c 3d 6c 6f 6f 70 4c 69 6d 69 74 3b 20 69 2b  i<=loopLimit; i+
8a70: 2b 29 7b 0a 20 20 20 20 69 66 28 20 7a 53 74 72  +){.    if( zStr
8a80: 5b 69 5d 21 3d 7a 50 61 74 74 65 72 6e 5b 30 5d  [i]!=zPattern[0]
8a90: 20 7c 7c 20 6d 65 6d 63 6d 70 28 26 7a 53 74 72   || memcmp(&zStr
8aa0: 5b 69 5d 2c 20 7a 50 61 74 74 65 72 6e 2c 20 6e  [i], zPattern, n
8ab0: 50 61 74 74 65 72 6e 29 20 29 7b 0a 20 20 20 20  Pattern) ){.    
8ac0: 20 20 7a 4f 75 74 5b 6a 2b 2b 5d 20 3d 20 7a 53    zOut[j++] = zS
8ad0: 74 72 5b 69 5d 3b 0a 20 20 20 20 7d 65 6c 73 65  tr[i];.    }else
8ae0: 7b 0a 20 20 20 20 20 20 75 38 20 2a 7a 4f 6c 64  {.      u8 *zOld
8af0: 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 20  ;.      sqlite3 
8b00: 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f  *db = sqlite3_co
8b10: 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 28  ntext_db_handle(
8b20: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 20 20  context);.      
8b30: 6e 4f 75 74 20 2b 3d 20 6e 52 65 70 20 2d 20 6e  nOut += nRep - n
8b40: 50 61 74 74 65 72 6e 3b 0a 20 20 20 20 20 20 74  Pattern;.      t
8b50: 65 73 74 63 61 73 65 28 20 6e 4f 75 74 2d 31 3d  estcase( nOut-1=
8b60: 3d 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49  =db->aLimit[SQLI
8b70: 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d  TE_LIMIT_LENGTH]
8b80: 20 29 3b 0a 20 20 20 20 20 20 74 65 73 74 63 61   );.      testca
8b90: 73 65 28 20 6e 4f 75 74 2d 32 3d 3d 64 62 2d 3e  se( nOut-2==db->
8ba0: 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49  aLimit[SQLITE_LI
8bb0: 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29 3b 0a 20  MIT_LENGTH] );. 
8bc0: 20 20 20 20 20 69 66 28 20 6e 4f 75 74 2d 31 3e       if( nOut-1>
8bd0: 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54  db->aLimit[SQLIT
8be0: 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 20  E_LIMIT_LENGTH] 
8bf0: 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74  ){.        sqlit
8c00: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f  e3_result_error_
8c10: 74 6f 6f 62 69 67 28 63 6f 6e 74 65 78 74 29 3b  toobig(context);
8c20: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33  .        sqlite3
8c30: 5f 66 72 65 65 28 7a 4f 75 74 29 3b 0a 20 20 20  _free(zOut);.   
8c40: 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20       return;.   
8c50: 20 20 20 7d 0a 20 20 20 20 20 20 7a 4f 6c 64 20     }.      zOld 
8c60: 3d 20 7a 4f 75 74 3b 0a 20 20 20 20 20 20 7a 4f  = zOut;.      zO
8c70: 75 74 20 3d 20 73 71 6c 69 74 65 33 5f 72 65 61  ut = sqlite3_rea
8c80: 6c 6c 6f 63 36 34 28 7a 4f 75 74 2c 20 28 69 6e  lloc64(zOut, (in
8c90: 74 29 6e 4f 75 74 29 3b 0a 20 20 20 20 20 20 69  t)nOut);.      i
8ca0: 66 28 20 7a 4f 75 74 3d 3d 30 20 29 7b 0a 20 20  f( zOut==0 ){.  
8cb0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65        sqlite3_re
8cc0: 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d  sult_error_nomem
8cd0: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 20  (context);.     
8ce0: 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28     sqlite3_free(
8cf0: 7a 4f 6c 64 29 3b 0a 20 20 20 20 20 20 20 20 72  zOld);.        r
8d00: 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 7d 0a 20  eturn;.      }. 
8d10: 20 20 20 20 20 6d 65 6d 63 70 79 28 26 7a 4f 75       memcpy(&zOu
8d20: 74 5b 6a 5d 2c 20 7a 52 65 70 2c 20 6e 52 65 70  t[j], zRep, nRep
8d30: 29 3b 0a 20 20 20 20 20 20 6a 20 2b 3d 20 6e 52  );.      j += nR
8d40: 65 70 3b 0a 20 20 20 20 20 20 69 20 2b 3d 20 6e  ep;.      i += n
8d50: 50 61 74 74 65 72 6e 2d 31 3b 0a 20 20 20 20 7d  Pattern-1;.    }
8d60: 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28 20 6a  .  }.  assert( j
8d70: 2b 6e 53 74 72 2d 69 2b 31 3d 3d 6e 4f 75 74 20  +nStr-i+1==nOut 
8d80: 29 3b 0a 20 20 6d 65 6d 63 70 79 28 26 7a 4f 75  );.  memcpy(&zOu
8d90: 74 5b 6a 5d 2c 20 26 7a 53 74 72 5b 69 5d 2c 20  t[j], &zStr[i], 
8da0: 6e 53 74 72 2d 69 29 3b 0a 20 20 6a 20 2b 3d 20  nStr-i);.  j += 
8db0: 6e 53 74 72 20 2d 20 69 3b 0a 20 20 61 73 73 65  nStr - i;.  asse
8dc0: 72 74 28 20 6a 3c 3d 6e 4f 75 74 20 29 3b 0a 20  rt( j<=nOut );. 
8dd0: 20 7a 4f 75 74 5b 6a 5d 20 3d 20 30 3b 0a 20 20   zOut[j] = 0;.  
8de0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74  sqlite3_result_t
8df0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 63 68  ext(context, (ch
8e00: 61 72 2a 29 7a 4f 75 74 2c 20 6a 2c 20 73 71 6c  ar*)zOut, j, sql
8e10: 69 74 65 33 5f 66 72 65 65 29 3b 0a 7d 0a 0a 2f  ite3_free);.}../
8e20: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74  *.** Implementat
8e30: 69 6f 6e 20 6f 66 20 74 68 65 20 54 52 49 4d 28  ion of the TRIM(
8e40: 29 2c 20 4c 54 52 49 4d 28 29 2c 20 61 6e 64 20  ), LTRIM(), and 
8e50: 52 54 52 49 4d 28 29 20 66 75 6e 63 74 69 6f 6e  RTRIM() function
8e60: 73 2e 0a 2a 2a 20 54 68 65 20 75 73 65 72 64 61  s..** The userda
8e70: 74 61 20 69 73 20 30 78 31 20 66 6f 72 20 6c 65  ta is 0x1 for le
8e80: 66 74 20 74 72 69 6d 2c 20 30 78 32 20 66 6f 72  ft trim, 0x2 for
8e90: 20 72 69 67 68 74 20 74 72 69 6d 2c 20 30 78 33   right trim, 0x3
8ea0: 20 66 6f 72 20 62 6f 74 68 2e 0a 2a 2f 0a 73 74   for both..*/.st
8eb0: 61 74 69 63 20 76 6f 69 64 20 74 72 69 6d 46 75  atic void trimFu
8ec0: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  nc(.  sqlite3_co
8ed0: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a  ntext *context,.
8ee0: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71    int argc,.  sq
8ef0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72  lite3_value **ar
8f00: 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e  gv.){.  const un
8f10: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 49 6e  signed char *zIn
8f20: 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 70  ;         /* Inp
8f30: 75 74 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 63  ut string */.  c
8f40: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68  onst unsigned ch
8f50: 61 72 20 2a 7a 43 68 61 72 53 65 74 3b 20 20 20  ar *zCharSet;   
8f60: 20 2f 2a 20 53 65 74 20 6f 66 20 63 68 61 72 61   /* Set of chara
8f70: 63 74 65 72 73 20 74 6f 20 74 72 69 6d 20 2a 2f  cters to trim */
8f80: 0a 20 20 69 6e 74 20 6e 49 6e 3b 20 20 20 20 20  .  int nIn;     
8f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8fa0: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f       /* Number o
8fb0: 66 20 62 79 74 65 73 20 69 6e 20 69 6e 70 75 74  f bytes in input
8fc0: 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 73 3b   */.  int flags;
8fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8fe0: 20 20 20 20 20 20 20 20 2f 2a 20 31 3a 20 74 72          /* 1: tr
8ff0: 69 6d 6c 65 66 74 20 20 32 3a 20 74 72 69 6d 72  imleft  2: trimr
9000: 69 67 68 74 20 20 33 3a 20 74 72 69 6d 20 2a 2f  ight  3: trim */
9010: 0a 20 20 69 6e 74 20 69 3b 20 20 20 20 20 20 20  .  int i;       
9020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9030: 20 20 20 20 20 2f 2a 20 4c 6f 6f 70 20 63 6f 75       /* Loop cou
9040: 6e 74 65 72 20 2a 2f 0a 20 20 75 6e 73 69 67 6e  nter */.  unsign
9050: 65 64 20 63 68 61 72 20 2a 61 4c 65 6e 20 3d 20  ed char *aLen = 
9060: 30 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c  0;          /* L
9070: 65 6e 67 74 68 20 6f 66 20 65 61 63 68 20 63 68  ength of each ch
9080: 61 72 61 63 74 65 72 20 69 6e 20 7a 43 68 61 72  aracter in zChar
9090: 53 65 74 20 2a 2f 0a 20 20 75 6e 73 69 67 6e 65  Set */.  unsigne
90a0: 64 20 63 68 61 72 20 2a 2a 61 7a 43 68 61 72 20  d char **azChar 
90b0: 3d 20 30 3b 20 20 20 20 20 20 20 2f 2a 20 49 6e  = 0;       /* In
90c0: 64 69 76 69 64 75 61 6c 20 63 68 61 72 61 63 74  dividual charact
90d0: 65 72 73 20 69 6e 20 7a 43 68 61 72 53 65 74 20  ers in zCharSet 
90e0: 2a 2f 0a 20 20 69 6e 74 20 6e 43 68 61 72 3b 20  */.  int nChar; 
90f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9100: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
9110: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 69   of characters i
9120: 6e 20 7a 43 68 61 72 53 65 74 20 2a 2f 0a 0a 20  n zCharSet */.. 
9130: 20 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c   if( sqlite3_val
9140: 75 65 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29  ue_type(argv[0])
9150: 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 7b  ==SQLITE_NULL ){
9160: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d  .    return;.  }
9170: 0a 20 20 7a 49 6e 20 3d 20 73 71 6c 69 74 65 33  .  zIn = sqlite3
9180: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76  _value_text(argv
9190: 5b 30 5d 29 3b 0a 20 20 69 66 28 20 7a 49 6e 3d  [0]);.  if( zIn=
91a0: 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6e  =0 ) return;.  n
91b0: 49 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c  In = sqlite3_val
91c0: 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d  ue_bytes(argv[0]
91d0: 29 3b 0a 20 20 61 73 73 65 72 74 28 20 7a 49 6e  );.  assert( zIn
91e0: 3d 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  ==sqlite3_value_
91f0: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 20 29 3b  text(argv[0]) );
9200: 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 31 20 29  .  if( argc==1 )
9210: 7b 0a 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e  {.    static con
9220: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  st unsigned char
9230: 20 6c 65 6e 4f 6e 65 5b 5d 20 3d 20 7b 20 31 20   lenOne[] = { 1 
9240: 7d 3b 0a 20 20 20 20 73 74 61 74 69 63 20 75 6e  };.    static un
9250: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 20 63 6f  signed char * co
9260: 6e 73 74 20 61 7a 4f 6e 65 5b 5d 20 3d 20 7b 20  nst azOne[] = { 
9270: 28 75 38 2a 29 22 20 22 20 7d 3b 0a 20 20 20 20  (u8*)" " };.    
9280: 6e 43 68 61 72 20 3d 20 31 3b 0a 20 20 20 20 61  nChar = 1;.    a
9290: 4c 65 6e 20 3d 20 28 75 38 2a 29 6c 65 6e 4f 6e  Len = (u8*)lenOn
92a0: 65 3b 0a 20 20 20 20 61 7a 43 68 61 72 20 3d 20  e;.    azChar = 
92b0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a  (unsigned char *
92c0: 2a 29 61 7a 4f 6e 65 3b 0a 20 20 20 20 7a 43 68  *)azOne;.    zCh
92d0: 61 72 53 65 74 20 3d 20 30 3b 0a 20 20 7d 65 6c  arSet = 0;.  }el
92e0: 73 65 20 69 66 28 20 28 7a 43 68 61 72 53 65 74  se if( (zCharSet
92f0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
9300: 5f 74 65 78 74 28 61 72 67 76 5b 31 5d 29 29 3d  _text(argv[1]))=
9310: 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  =0 ){.    return
9320: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 63  ;.  }else{.    c
9330: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68  onst unsigned ch
9340: 61 72 20 2a 7a 3b 0a 20 20 20 20 66 6f 72 28 7a  ar *z;.    for(z
9350: 3d 7a 43 68 61 72 53 65 74 2c 20 6e 43 68 61 72  =zCharSet, nChar
9360: 3d 30 3b 20 2a 7a 3b 20 6e 43 68 61 72 2b 2b 29  =0; *z; nChar++)
9370: 7b 0a 20 20 20 20 20 20 53 51 4c 49 54 45 5f 53  {.      SQLITE_S
9380: 4b 49 50 5f 55 54 46 38 28 7a 29 3b 0a 20 20 20  KIP_UTF8(z);.   
9390: 20 7d 0a 20 20 20 20 69 66 28 20 6e 43 68 61 72   }.    if( nChar
93a0: 3e 30 20 29 7b 0a 20 20 20 20 20 20 61 7a 43 68  >0 ){.      azCh
93b0: 61 72 20 3d 20 63 6f 6e 74 65 78 74 4d 61 6c 6c  ar = contextMall
93c0: 6f 63 28 63 6f 6e 74 65 78 74 2c 20 28 28 69 36  oc(context, ((i6
93d0: 34 29 6e 43 68 61 72 29 2a 28 73 69 7a 65 6f 66  4)nChar)*(sizeof
93e0: 28 63 68 61 72 2a 29 2b 31 29 29 3b 0a 20 20 20  (char*)+1));.   
93f0: 20 20 20 69 66 28 20 61 7a 43 68 61 72 3d 3d 30     if( azChar==0
9400: 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75   ){.        retu
9410: 72 6e 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  rn;.      }.    
9420: 20 20 61 4c 65 6e 20 3d 20 28 75 6e 73 69 67 6e    aLen = (unsign
9430: 65 64 20 63 68 61 72 2a 29 26 61 7a 43 68 61 72  ed char*)&azChar
9440: 5b 6e 43 68 61 72 5d 3b 0a 20 20 20 20 20 20 66  [nChar];.      f
9450: 6f 72 28 7a 3d 7a 43 68 61 72 53 65 74 2c 20 6e  or(z=zCharSet, n
9460: 43 68 61 72 3d 30 3b 20 2a 7a 3b 20 6e 43 68 61  Char=0; *z; nCha
9470: 72 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 61 7a  r++){.        az
9480: 43 68 61 72 5b 6e 43 68 61 72 5d 20 3d 20 28 75  Char[nChar] = (u
9490: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 7a  nsigned char *)z
94a0: 3b 0a 20 20 20 20 20 20 20 20 53 51 4c 49 54 45  ;.        SQLITE
94b0: 5f 53 4b 49 50 5f 55 54 46 38 28 7a 29 3b 0a 20  _SKIP_UTF8(z);. 
94c0: 20 20 20 20 20 20 20 61 4c 65 6e 5b 6e 43 68 61         aLen[nCha
94d0: 72 5d 20 3d 20 28 75 38 29 28 7a 20 2d 20 61 7a  r] = (u8)(z - az
94e0: 43 68 61 72 5b 6e 43 68 61 72 5d 29 3b 0a 20 20  Char[nChar]);.  
94f0: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a      }.    }.  }.
9500: 20 20 69 66 28 20 6e 43 68 61 72 3e 30 20 29 7b    if( nChar>0 ){
9510: 0a 20 20 20 20 66 6c 61 67 73 20 3d 20 53 51 4c  .    flags = SQL
9520: 49 54 45 5f 50 54 52 5f 54 4f 5f 49 4e 54 28 73  ITE_PTR_TO_INT(s
9530: 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61  qlite3_user_data
9540: 28 63 6f 6e 74 65 78 74 29 29 3b 0a 20 20 20 20  (context));.    
9550: 69 66 28 20 66 6c 61 67 73 20 26 20 31 20 29 7b  if( flags & 1 ){
9560: 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 6e 49  .      while( nI
9570: 6e 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69  n>0 ){.        i
9580: 6e 74 20 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20  nt len = 0;.    
9590: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e      for(i=0; i<n
95a0: 43 68 61 72 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  Char; i++){.    
95b0: 20 20 20 20 20 20 6c 65 6e 20 3d 20 61 4c 65 6e        len = aLen
95c0: 5b 69 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 69  [i];.          i
95d0: 66 28 20 6c 65 6e 3c 3d 6e 49 6e 20 26 26 20 6d  f( len<=nIn && m
95e0: 65 6d 63 6d 70 28 7a 49 6e 2c 20 61 7a 43 68 61  emcmp(zIn, azCha
95f0: 72 5b 69 5d 2c 20 6c 65 6e 29 3d 3d 30 20 29 20  r[i], len)==0 ) 
9600: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 7d  break;.        }
9610: 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 3e 3d  .        if( i>=
9620: 6e 43 68 61 72 20 29 20 62 72 65 61 6b 3b 0a 20  nChar ) break;. 
9630: 20 20 20 20 20 20 20 7a 49 6e 20 2b 3d 20 6c 65         zIn += le
9640: 6e 3b 0a 20 20 20 20 20 20 20 20 6e 49 6e 20 2d  n;.        nIn -
9650: 3d 20 6c 65 6e 3b 0a 20 20 20 20 20 20 7d 0a 20  = len;.      }. 
9660: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 66 6c 61     }.    if( fla
9670: 67 73 20 26 20 32 20 29 7b 0a 20 20 20 20 20 20  gs & 2 ){.      
9680: 77 68 69 6c 65 28 20 6e 49 6e 3e 30 20 29 7b 0a  while( nIn>0 ){.
9690: 20 20 20 20 20 20 20 20 69 6e 74 20 6c 65 6e 20          int len 
96a0: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 66 6f 72  = 0;.        for
96b0: 28 69 3d 30 3b 20 69 3c 6e 43 68 61 72 3b 20 69  (i=0; i<nChar; i
96c0: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 6c  ++){.          l
96d0: 65 6e 20 3d 20 61 4c 65 6e 5b 69 5d 3b 0a 20 20  en = aLen[i];.  
96e0: 20 20 20 20 20 20 20 20 69 66 28 20 6c 65 6e 3c          if( len<
96f0: 3d 6e 49 6e 20 26 26 20 6d 65 6d 63 6d 70 28 26  =nIn && memcmp(&
9700: 7a 49 6e 5b 6e 49 6e 2d 6c 65 6e 5d 2c 61 7a 43  zIn[nIn-len],azC
9710: 68 61 72 5b 69 5d 2c 6c 65 6e 29 3d 3d 30 20 29  har[i],len)==0 )
9720: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20   break;.        
9730: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 3e  }.        if( i>
9740: 3d 6e 43 68 61 72 20 29 20 62 72 65 61 6b 3b 0a  =nChar ) break;.
9750: 20 20 20 20 20 20 20 20 6e 49 6e 20 2d 3d 20 6c          nIn -= l
9760: 65 6e 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  en;.      }.    
9770: 7d 0a 20 20 20 20 69 66 28 20 7a 43 68 61 72 53  }.    if( zCharS
9780: 65 74 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69  et ){.      sqli
9790: 74 65 33 5f 66 72 65 65 28 61 7a 43 68 61 72 29  te3_free(azChar)
97a0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 71  ;.    }.  }.  sq
97b0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78  lite3_result_tex
97c0: 74 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 72  t(context, (char
97d0: 2a 29 7a 49 6e 2c 20 6e 49 6e 2c 20 53 51 4c 49  *)zIn, nIn, SQLI
97e0: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 7d  TE_TRANSIENT);.}
97f0: 0a 0a 0a 2f 2a 20 49 4d 50 3a 20 52 2d 32 35 33  .../* IMP: R-253
9800: 36 31 2d 31 36 31 35 30 20 54 68 69 73 20 66 75  61-16150 This fu
9810: 6e 63 74 69 6f 6e 20 69 73 20 6f 6d 69 74 74 65  nction is omitte
9820: 64 20 66 72 6f 6d 20 53 51 4c 69 74 65 20 62 79  d from SQLite by
9830: 20 64 65 66 61 75 6c 74 2e 20 49 74 0a 2a 2a 20   default. It.** 
9840: 69 73 20 6f 6e 6c 79 20 61 76 61 69 6c 61 62 6c  is only availabl
9850: 65 20 69 66 20 74 68 65 20 53 51 4c 49 54 45 5f  e if the SQLITE_
9860: 53 4f 55 4e 44 45 58 20 63 6f 6d 70 69 6c 65 2d  SOUNDEX compile-
9870: 74 69 6d 65 20 6f 70 74 69 6f 6e 20 69 73 20 75  time option is u
9880: 73 65 64 0a 2a 2a 20 77 68 65 6e 20 53 51 4c 69  sed.** when SQLi
9890: 74 65 20 69 73 20 62 75 69 6c 74 2e 0a 2a 2f 0a  te is built..*/.
98a0: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 53 4f  #ifdef SQLITE_SO
98b0: 55 4e 44 45 58 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70  UNDEX./*.** Comp
98c0: 75 74 65 20 74 68 65 20 73 6f 75 6e 64 65 78 20  ute the soundex 
98d0: 65 6e 63 6f 64 69 6e 67 20 6f 66 20 61 20 77 6f  encoding of a wo
98e0: 72 64 2e 0a 2a 2a 0a 2a 2a 20 49 4d 50 3a 20 52  rd..**.** IMP: R
98f0: 2d 35 39 37 38 32 2d 30 30 30 37 32 20 54 68 65  -59782-00072 The
9900: 20 73 6f 75 6e 64 65 78 28 58 29 20 66 75 6e 63   soundex(X) func
9910: 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 61 20 73  tion returns a s
9920: 74 72 69 6e 67 20 74 68 61 74 20 69 73 20 74 68  tring that is th
9930: 65 0a 2a 2a 20 73 6f 75 6e 64 65 78 20 65 6e 63  e.** soundex enc
9940: 6f 64 69 6e 67 20 6f 66 20 74 68 65 20 73 74 72  oding of the str
9950: 69 6e 67 20 58 2e 20 0a 2a 2f 0a 73 74 61 74 69  ing X. .*/.stati
9960: 63 20 76 6f 69 64 20 73 6f 75 6e 64 65 78 46 75  c void soundexFu
9970: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  nc(.  sqlite3_co
9980: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a  ntext *context,.
9990: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71    int argc,.  sq
99a0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72  lite3_value **ar
99b0: 67 76 0a 29 7b 0a 20 20 63 68 61 72 20 7a 52 65  gv.){.  char zRe
99c0: 73 75 6c 74 5b 38 5d 3b 0a 20 20 63 6f 6e 73 74  sult[8];.  const
99d0: 20 75 38 20 2a 7a 49 6e 3b 0a 20 20 69 6e 74 20   u8 *zIn;.  int 
99e0: 69 2c 20 6a 3b 0a 20 20 73 74 61 74 69 63 20 63  i, j;.  static c
99f0: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68  onst unsigned ch
9a00: 61 72 20 69 43 6f 64 65 5b 5d 20 3d 20 7b 0a 20  ar iCode[] = {. 
9a10: 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30     0, 0, 0, 0, 0
9a20: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
9a30: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
9a40: 30 2c 0a 20 20 20 20 30 2c 20 30 2c 20 30 2c 20  0,.    0, 0, 0, 
9a50: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
9a60: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
9a70: 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c   0, 0,.    0, 0,
9a80: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
9a90: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
9aa0: 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 30  , 0, 0, 0,.    0
9ab0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
9ac0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
9ad0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20  0, 0, 0, 0, 0,. 
9ae0: 20 20 20 30 2c 20 30 2c 20 31 2c 20 32 2c 20 33     0, 0, 1, 2, 3
9af0: 2c 20 30 2c 20 31 2c 20 32 2c 20 30 2c 20 30 2c  , 0, 1, 2, 0, 0,
9b00: 20 32 2c 20 32 2c 20 34 2c 20 35 2c 20 35 2c 20   2, 2, 4, 5, 5, 
9b10: 30 2c 0a 20 20 20 20 31 2c 20 32 2c 20 36 2c 20  0,.    1, 2, 6, 
9b20: 32 2c 20 33 2c 20 30 2c 20 31 2c 20 30 2c 20 32  2, 3, 0, 1, 0, 2
9b30: 2c 20 30 2c 20 32 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 2, 0, 0, 0,
9b40: 20 30 2c 20 30 2c 0a 20 20 20 20 30 2c 20 30 2c   0, 0,.    0, 0,
9b50: 20 31 2c 20 32 2c 20 33 2c 20 30 2c 20 31 2c 20   1, 2, 3, 0, 1, 
9b60: 32 2c 20 30 2c 20 30 2c 20 32 2c 20 32 2c 20 34  2, 0, 0, 2, 2, 4
9b70: 2c 20 35 2c 20 35 2c 20 30 2c 0a 20 20 20 20 31  , 5, 5, 0,.    1
9b80: 2c 20 32 2c 20 36 2c 20 32 2c 20 33 2c 20 30 2c  , 2, 6, 2, 3, 0,
9b90: 20 31 2c 20 30 2c 20 32 2c 20 30 2c 20 32 2c 20   1, 0, 2, 0, 2, 
9ba0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20  0, 0, 0, 0, 0,. 
9bb0: 20 7d 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72   };.  assert( ar
9bc0: 67 63 3d 3d 31 20 29 3b 0a 20 20 7a 49 6e 20 3d  gc==1 );.  zIn =
9bd0: 20 28 75 38 2a 29 73 71 6c 69 74 65 33 5f 76 61   (u8*)sqlite3_va
9be0: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d  lue_text(argv[0]
9bf0: 29 3b 0a 20 20 69 66 28 20 7a 49 6e 3d 3d 30 20  );.  if( zIn==0 
9c00: 29 20 7a 49 6e 20 3d 20 28 75 38 2a 29 22 22 3b  ) zIn = (u8*)"";
9c10: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 49 6e 5b  .  for(i=0; zIn[
9c20: 69 5d 20 26 26 20 21 73 71 6c 69 74 65 33 49 73  i] && !sqlite3Is
9c30: 61 6c 70 68 61 28 7a 49 6e 5b 69 5d 29 3b 20 69  alpha(zIn[i]); i
9c40: 2b 2b 29 7b 7d 0a 20 20 69 66 28 20 7a 49 6e 5b  ++){}.  if( zIn[
9c50: 69 5d 20 29 7b 0a 20 20 20 20 75 38 20 70 72 65  i] ){.    u8 pre
9c60: 76 63 6f 64 65 20 3d 20 69 43 6f 64 65 5b 7a 49  vcode = iCode[zI
9c70: 6e 5b 69 5d 26 30 78 37 66 5d 3b 0a 20 20 20 20  n[i]&0x7f];.    
9c80: 7a 52 65 73 75 6c 74 5b 30 5d 20 3d 20 73 71 6c  zResult[0] = sql
9c90: 69 74 65 33 54 6f 75 70 70 65 72 28 7a 49 6e 5b  ite3Toupper(zIn[
9ca0: 69 5d 29 3b 0a 20 20 20 20 66 6f 72 28 6a 3d 31  i]);.    for(j=1
9cb0: 3b 20 6a 3c 34 20 26 26 20 7a 49 6e 5b 69 5d 3b  ; j<4 && zIn[i];
9cc0: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 69 6e 74   i++){.      int
9cd0: 20 63 6f 64 65 20 3d 20 69 43 6f 64 65 5b 7a 49   code = iCode[zI
9ce0: 6e 5b 69 5d 26 30 78 37 66 5d 3b 0a 20 20 20 20  n[i]&0x7f];.    
9cf0: 20 20 69 66 28 20 63 6f 64 65 3e 30 20 29 7b 0a    if( code>0 ){.
9d00: 20 20 20 20 20 20 20 20 69 66 28 20 63 6f 64 65          if( code
9d10: 21 3d 70 72 65 76 63 6f 64 65 20 29 7b 0a 20 20  !=prevcode ){.  
9d20: 20 20 20 20 20 20 20 20 70 72 65 76 63 6f 64 65          prevcode
9d30: 20 3d 20 63 6f 64 65 3b 0a 20 20 20 20 20 20 20   = code;.       
9d40: 20 20 20 7a 52 65 73 75 6c 74 5b 6a 2b 2b 5d 20     zResult[j++] 
9d50: 3d 20 63 6f 64 65 20 2b 20 27 30 27 3b 0a 20 20  = code + '0';.  
9d60: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 65        }.      }e
9d70: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 70 72 65  lse{.        pre
9d80: 76 63 6f 64 65 20 3d 20 30 3b 0a 20 20 20 20 20  vcode = 0;.     
9d90: 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 77 68 69   }.    }.    whi
9da0: 6c 65 28 20 6a 3c 34 20 29 7b 0a 20 20 20 20 20  le( j<4 ){.     
9db0: 20 7a 52 65 73 75 6c 74 5b 6a 2b 2b 5d 20 3d 20   zResult[j++] = 
9dc0: 27 30 27 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a  '0';.    }.    z
9dd0: 52 65 73 75 6c 74 5b 6a 5d 20 3d 20 30 3b 0a 20  Result[j] = 0;. 
9de0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c     sqlite3_resul
9df0: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20  t_text(context, 
9e00: 7a 52 65 73 75 6c 74 2c 20 34 2c 20 53 51 4c 49  zResult, 4, SQLI
9e10: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20  TE_TRANSIENT);. 
9e20: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 2f 2a 20 49   }else{.    /* I
9e30: 4d 50 3a 20 52 2d 36 34 38 39 34 2d 35 30 33 32  MP: R-64894-5032
9e40: 31 20 54 68 65 20 73 74 72 69 6e 67 20 22 3f 30  1 The string "?0
9e50: 30 30 22 20 69 73 20 72 65 74 75 72 6e 65 64 20  00" is returned 
9e60: 69 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 0a  if the argument.
9e70: 20 20 20 20 2a 2a 20 69 73 20 4e 55 4c 4c 20 6f      ** is NULL o
9e80: 72 20 63 6f 6e 74 61 69 6e 73 20 6e 6f 20 41 53  r contains no AS
9e90: 43 49 49 20 61 6c 70 68 61 62 65 74 69 63 20 63  CII alphabetic c
9ea0: 68 61 72 61 63 74 65 72 73 2e 20 2a 2f 0a 20 20  haracters. */.  
9eb0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
9ec0: 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 22  _text(context, "
9ed0: 3f 30 30 30 22 2c 20 34 2c 20 53 51 4c 49 54 45  ?000", 4, SQLITE
9ee0: 5f 53 54 41 54 49 43 29 3b 0a 20 20 7d 0a 7d 0a  _STATIC);.  }.}.
9ef0: 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45  #endif /* SQLITE
9f00: 5f 53 4f 55 4e 44 45 58 20 2a 2f 0a 0a 23 69 66  _SOUNDEX */..#if
9f10: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  ndef SQLITE_OMIT
9f20: 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a  _LOAD_EXTENSION.
9f30: 2f 2a 0a 2a 2a 20 41 20 66 75 6e 63 74 69 6f 6e  /*.** A function
9f40: 20 74 68 61 74 20 6c 6f 61 64 73 20 61 20 73 68   that loads a sh
9f50: 61 72 65 64 2d 6c 69 62 72 61 72 79 20 65 78 74  ared-library ext
9f60: 65 6e 73 69 6f 6e 20 74 68 65 6e 20 72 65 74 75  ension then retu
9f70: 72 6e 73 20 4e 55 4c 4c 2e 0a 2a 2f 0a 73 74 61  rns NULL..*/.sta
9f80: 74 69 63 20 76 6f 69 64 20 6c 6f 61 64 45 78 74  tic void loadExt
9f90: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74  (sqlite3_context
9fa0: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61   *context, int a
9fb0: 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c  rgc, sqlite3_val
9fc0: 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 63 6f  ue **argv){.  co
9fd0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 20  nst char *zFile 
9fe0: 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29  = (const char *)
9ff0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65  sqlite3_value_te
a000: 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 63  xt(argv[0]);.  c
a010: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 72 6f 63  onst char *zProc
a020: 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20  ;.  sqlite3 *db 
a030: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  = sqlite3_contex
a040: 74 5f 64 62 5f 68 61 6e 64 6c 65 28 63 6f 6e 74  t_db_handle(cont
a050: 65 78 74 29 3b 0a 20 20 63 68 61 72 20 2a 7a 45  ext);.  char *zE
a060: 72 72 4d 73 67 20 3d 20 30 3b 0a 0a 20 20 69 66  rrMsg = 0;..  if
a070: 28 20 61 72 67 63 3d 3d 32 20 29 7b 0a 20 20 20  ( argc==2 ){.   
a080: 20 7a 50 72 6f 63 20 3d 20 28 63 6f 6e 73 74 20   zProc = (const 
a090: 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 5f 76  char *)sqlite3_v
a0a0: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31  alue_text(argv[1
a0b0: 5d 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ]);.  }else{.   
a0c0: 20 7a 50 72 6f 63 20 3d 20 30 3b 0a 20 20 7d 0a   zProc = 0;.  }.
a0d0: 20 20 69 66 28 20 7a 46 69 6c 65 20 26 26 20 73    if( zFile && s
a0e0: 71 6c 69 74 65 33 5f 6c 6f 61 64 5f 65 78 74 65  qlite3_load_exte
a0f0: 6e 73 69 6f 6e 28 64 62 2c 20 7a 46 69 6c 65 2c  nsion(db, zFile,
a100: 20 7a 50 72 6f 63 2c 20 26 7a 45 72 72 4d 73 67   zProc, &zErrMsg
a110: 29 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  ) ){.    sqlite3
a120: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f  _result_error(co
a130: 6e 74 65 78 74 2c 20 7a 45 72 72 4d 73 67 2c 20  ntext, zErrMsg, 
a140: 2d 31 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33  -1);.    sqlite3
a150: 5f 66 72 65 65 28 7a 45 72 72 4d 73 67 29 3b 0a  _free(zErrMsg);.
a160: 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0a 0a 2f    }.}.#endif.../
a170: 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 6e 63 65  *.** An instance
a180: 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e   of the followin
a190: 67 20 73 74 72 75 63 74 75 72 65 20 68 6f 6c 64  g structure hold
a1a0: 73 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66  s the context of
a1b0: 20 61 0a 2a 2a 20 73 75 6d 28 29 20 6f 72 20 61   a.** sum() or a
a1c0: 76 67 28 29 20 61 67 67 72 65 67 61 74 65 20 63  vg() aggregate c
a1d0: 6f 6d 70 75 74 61 74 69 6f 6e 2e 0a 2a 2f 0a 74  omputation..*/.t
a1e0: 79 70 65 64 65 66 20 73 74 72 75 63 74 20 53 75  ypedef struct Su
a1f0: 6d 43 74 78 20 53 75 6d 43 74 78 3b 0a 73 74 72  mCtx SumCtx;.str
a200: 75 63 74 20 53 75 6d 43 74 78 20 7b 0a 20 20 64  uct SumCtx {.  d
a210: 6f 75 62 6c 65 20 72 53 75 6d 3b 20 20 20 20 20  ouble rSum;     
a220: 20 2f 2a 20 46 6c 6f 61 74 69 6e 67 20 70 6f 69   /* Floating poi
a230: 6e 74 20 73 75 6d 20 2a 2f 0a 20 20 69 36 34 20  nt sum */.  i64 
a240: 69 53 75 6d 3b 20 20 20 20 20 20 20 20 20 2f 2a  iSum;         /*
a250: 20 49 6e 74 65 67 65 72 20 73 75 6d 20 2a 2f 20   Integer sum */ 
a260: 20 20 0a 20 20 69 36 34 20 63 6e 74 3b 20 20 20    .  i64 cnt;   
a270: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
a280: 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 73 75 6d   of elements sum
a290: 6d 65 64 20 2a 2f 0a 20 20 75 38 20 6f 76 65 72  med */.  u8 over
a2a0: 66 6c 6f 77 3b 20 20 20 20 20 20 2f 2a 20 54 72  flow;      /* Tr
a2b0: 75 65 20 69 66 20 69 6e 74 65 67 65 72 20 6f 76  ue if integer ov
a2c0: 65 72 66 6c 6f 77 20 73 65 65 6e 20 2a 2f 0a 20  erflow seen */. 
a2d0: 20 75 38 20 61 70 70 72 6f 78 3b 20 20 20 20 20   u8 approx;     
a2e0: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 6e 6f     /* True if no
a2f0: 6e 2d 69 6e 74 65 67 65 72 20 76 61 6c 75 65 20  n-integer value 
a300: 77 61 73 20 69 6e 70 75 74 20 74 6f 20 74 68 65  was input to the
a310: 20 73 75 6d 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a   sum */.};../*.*
a320: 2a 20 52 6f 75 74 69 6e 65 73 20 75 73 65 64 20  * Routines used 
a330: 74 6f 20 63 6f 6d 70 75 74 65 20 74 68 65 20 73  to compute the s
a340: 75 6d 2c 20 61 76 65 72 61 67 65 2c 20 61 6e 64  um, average, and
a350: 20 74 6f 74 61 6c 2e 0a 2a 2a 0a 2a 2a 20 54 68   total..**.** Th
a360: 65 20 53 55 4d 28 29 20 66 75 6e 63 74 69 6f 6e  e SUM() function
a370: 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 28 62 72   follows the (br
a380: 6f 6b 65 6e 29 20 53 51 4c 20 73 74 61 6e 64 61  oken) SQL standa
a390: 72 64 20 77 68 69 63 68 20 6d 65 61 6e 73 0a 2a  rd which means.*
a3a0: 2a 20 74 68 61 74 20 69 74 20 72 65 74 75 72 6e  * that it return
a3b0: 73 20 4e 55 4c 4c 20 69 66 20 69 74 20 73 75 6d  s NULL if it sum
a3c0: 73 20 6f 76 65 72 20 6e 6f 20 69 6e 70 75 74 73  s over no inputs
a3d0: 2e 20 20 54 4f 54 41 4c 20 72 65 74 75 72 6e 73  .  TOTAL returns
a3e0: 0a 2a 2a 20 30 2e 30 20 69 6e 20 74 68 61 74 20  .** 0.0 in that 
a3f0: 63 61 73 65 2e 20 20 49 6e 20 61 64 64 69 74 69  case.  In additi
a400: 6f 6e 2c 20 54 4f 54 41 4c 20 61 6c 77 61 79 73  on, TOTAL always
a410: 20 72 65 74 75 72 6e 73 20 61 20 66 6c 6f 61 74   returns a float
a420: 20 77 68 65 72 65 0a 2a 2a 20 53 55 4d 20 6d 69   where.** SUM mi
a430: 67 68 74 20 72 65 74 75 72 6e 20 61 6e 20 69 6e  ght return an in
a440: 74 65 67 65 72 20 69 66 20 69 74 20 6e 65 76 65  teger if it neve
a450: 72 20 65 6e 63 6f 75 6e 74 65 72 73 20 61 20 66  r encounters a f
a460: 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 0a 2a 2a  loating point.**
a470: 20 76 61 6c 75 65 2e 20 20 54 4f 54 41 4c 20 6e   value.  TOTAL n
a480: 65 76 65 72 20 66 61 69 6c 73 2c 20 62 75 74 20  ever fails, but 
a490: 53 55 4d 20 6d 69 67 68 74 20 74 68 72 6f 75 67  SUM might throug
a4a0: 68 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 69  h an exception i
a4b0: 66 0a 2a 2a 20 69 74 20 6f 76 65 72 66 6c 6f 77  f.** it overflow
a4c0: 73 20 61 6e 20 69 6e 74 65 67 65 72 2e 0a 2a 2f  s an integer..*/
a4d0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73 75 6d  .static void sum
a4e0: 53 74 65 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e  Step(sqlite3_con
a4f0: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69  text *context, i
a500: 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33  nt argc, sqlite3
a510: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a  _value **argv){.
a520: 20 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 20 69    SumCtx *p;.  i
a530: 6e 74 20 74 79 70 65 3b 0a 20 20 61 73 73 65 72  nt type;.  asser
a540: 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20 20  t( argc==1 );.  
a550: 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52  UNUSED_PARAMETER
a560: 28 61 72 67 63 29 3b 0a 20 20 70 20 3d 20 73 71  (argc);.  p = sq
a570: 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f  lite3_aggregate_
a580: 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c  context(context,
a590: 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20   sizeof(*p));.  
a5a0: 74 79 70 65 20 3d 20 73 71 6c 69 74 65 33 5f 76  type = sqlite3_v
a5b0: 61 6c 75 65 5f 6e 75 6d 65 72 69 63 5f 74 79 70  alue_numeric_typ
a5c0: 65 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66  e(argv[0]);.  if
a5d0: 28 20 70 20 26 26 20 74 79 70 65 21 3d 53 51 4c  ( p && type!=SQL
a5e0: 49 54 45 5f 4e 55 4c 4c 20 29 7b 0a 20 20 20 20  ITE_NULL ){.    
a5f0: 70 2d 3e 63 6e 74 2b 2b 3b 0a 20 20 20 20 69 66  p->cnt++;.    if
a600: 28 20 74 79 70 65 3d 3d 53 51 4c 49 54 45 5f 49  ( type==SQLITE_I
a610: 4e 54 45 47 45 52 20 29 7b 0a 20 20 20 20 20 20  NTEGER ){.      
a620: 69 36 34 20 76 20 3d 20 73 71 6c 69 74 65 33 5f  i64 v = sqlite3_
a630: 76 61 6c 75 65 5f 69 6e 74 36 34 28 61 72 67 76  value_int64(argv
a640: 5b 30 5d 29 3b 0a 20 20 20 20 20 20 70 2d 3e 72  [0]);.      p->r
a650: 53 75 6d 20 2b 3d 20 76 3b 0a 20 20 20 20 20 20  Sum += v;.      
a660: 69 66 28 20 28 70 2d 3e 61 70 70 72 6f 78 7c 70  if( (p->approx|p
a670: 2d 3e 6f 76 65 72 66 6c 6f 77 29 3d 3d 30 20 26  ->overflow)==0 &
a680: 26 20 73 71 6c 69 74 65 33 41 64 64 49 6e 74 36  & sqlite3AddInt6
a690: 34 28 26 70 2d 3e 69 53 75 6d 2c 20 76 29 20 29  4(&p->iSum, v) )
a6a0: 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e 6f 76 65  {.        p->ove
a6b0: 72 66 6c 6f 77 20 3d 20 31 3b 0a 20 20 20 20 20  rflow = 1;.     
a6c0: 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20   }.    }else{.  
a6d0: 20 20 20 20 70 2d 3e 72 53 75 6d 20 2b 3d 20 73      p->rSum += s
a6e0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75  qlite3_value_dou
a6f0: 62 6c 65 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20  ble(argv[0]);.  
a700: 20 20 20 20 70 2d 3e 61 70 70 72 6f 78 20 3d 20      p->approx = 
a710: 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 73  1;.    }.  }.}.s
a720: 74 61 74 69 63 20 76 6f 69 64 20 73 75 6d 46 69  tatic void sumFi
a730: 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33 5f 63  nalize(sqlite3_c
a740: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29  ontext *context)
a750: 7b 0a 20 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20  {.  SumCtx *p;. 
a760: 20 70 20 3d 20 73 71 6c 69 74 65 33 5f 61 67 67   p = sqlite3_agg
a770: 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28 63  regate_context(c
a780: 6f 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 69 66  ontext, 0);.  if
a790: 28 20 70 20 26 26 20 70 2d 3e 63 6e 74 3e 30 20  ( p && p->cnt>0 
a7a0: 29 7b 0a 20 20 20 20 69 66 28 20 70 2d 3e 6f 76  ){.    if( p->ov
a7b0: 65 72 66 6c 6f 77 20 29 7b 0a 20 20 20 20 20 20  erflow ){.      
a7c0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65  sqlite3_result_e
a7d0: 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 22 69 6e  rror(context,"in
a7e0: 74 65 67 65 72 20 6f 76 65 72 66 6c 6f 77 22 2c  teger overflow",
a7f0: 2d 31 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69  -1);.    }else i
a800: 66 28 20 70 2d 3e 61 70 70 72 6f 78 20 29 7b 0a  f( p->approx ){.
a810: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65        sqlite3_re
a820: 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74  sult_double(cont
a830: 65 78 74 2c 20 70 2d 3e 72 53 75 6d 29 3b 0a 20  ext, p->rSum);. 
a840: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
a850: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69  sqlite3_result_i
a860: 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20 70 2d  nt64(context, p-
a870: 3e 69 53 75 6d 29 3b 0a 20 20 20 20 7d 0a 20 20  >iSum);.    }.  
a880: 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20  }.}.static void 
a890: 61 76 67 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69  avgFinalize(sqli
a8a0: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e  te3_context *con
a8b0: 74 65 78 74 29 7b 0a 20 20 53 75 6d 43 74 78 20  text){.  SumCtx 
a8c0: 2a 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65  *p;.  p = sqlite
a8d0: 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74  3_aggregate_cont
a8e0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b  ext(context, 0);
a8f0: 0a 20 20 69 66 28 20 70 20 26 26 20 70 2d 3e 63  .  if( p && p->c
a900: 6e 74 3e 30 20 29 7b 0a 20 20 20 20 73 71 6c 69  nt>0 ){.    sqli
a910: 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62 6c  te3_result_doubl
a920: 65 28 63 6f 6e 74 65 78 74 2c 20 70 2d 3e 72 53  e(context, p->rS
a930: 75 6d 2f 28 64 6f 75 62 6c 65 29 70 2d 3e 63 6e  um/(double)p->cn
a940: 74 29 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63  t);.  }.}.static
a950: 20 76 6f 69 64 20 74 6f 74 61 6c 46 69 6e 61 6c   void totalFinal
a960: 69 7a 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74  ize(sqlite3_cont
a970: 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20  ext *context){. 
a980: 20 53 75 6d 43 74 78 20 2a 70 3b 0a 20 20 70 20   SumCtx *p;.  p 
a990: 3d 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67  = sqlite3_aggreg
a9a0: 61 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74  ate_context(cont
a9b0: 65 78 74 2c 20 30 29 3b 0a 20 20 2f 2a 20 28 64  ext, 0);.  /* (d
a9c0: 6f 75 62 6c 65 29 30 20 49 6e 20 63 61 73 65 20  ouble)0 In case 
a9d0: 6f 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 46  of SQLITE_OMIT_F
a9e0: 4c 4f 41 54 49 4e 47 5f 50 4f 49 4e 54 2e 2e 2e  LOATING_POINT...
a9f0: 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 72 65   */.  sqlite3_re
aa00: 73 75 6c 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74  sult_double(cont
aa10: 65 78 74 2c 20 70 20 3f 20 70 2d 3e 72 53 75 6d  ext, p ? p->rSum
aa20: 20 3a 20 28 64 6f 75 62 6c 65 29 30 29 3b 0a 7d   : (double)0);.}
aa30: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c  ../*.** The foll
aa40: 6f 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 20  owing structure 
aa50: 6b 65 65 70 73 20 74 72 61 63 6b 20 6f 66 20 73  keeps track of s
aa60: 74 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e  tate information
aa70: 20 66 6f 72 20 74 68 65 0a 2a 2a 20 63 6f 75 6e   for the.** coun
aa80: 74 28 29 20 61 67 67 72 65 67 61 74 65 20 66 75  t() aggregate fu
aa90: 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64  nction..*/.typed
aaa0: 65 66 20 73 74 72 75 63 74 20 43 6f 75 6e 74 43  ef struct CountC
aab0: 74 78 20 43 6f 75 6e 74 43 74 78 3b 0a 73 74 72  tx CountCtx;.str
aac0: 75 63 74 20 43 6f 75 6e 74 43 74 78 20 7b 0a 20  uct CountCtx {. 
aad0: 20 69 36 34 20 6e 3b 0a 7d 3b 0a 0a 2f 2a 0a 2a   i64 n;.};../*.*
aae0: 2a 20 52 6f 75 74 69 6e 65 73 20 74 6f 20 69 6d  * Routines to im
aaf0: 70 6c 65 6d 65 6e 74 20 74 68 65 20 63 6f 75 6e  plement the coun
ab00: 74 28 29 20 61 67 67 72 65 67 61 74 65 20 66 75  t() aggregate fu
ab10: 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69  nction..*/.stati
ab20: 63 20 76 6f 69 64 20 63 6f 75 6e 74 53 74 65 70  c void countStep
ab30: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74  (sqlite3_context
ab40: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 61   *context, int a
ab50: 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c  rgc, sqlite3_val
ab60: 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20 20 43 6f  ue **argv){.  Co
ab70: 75 6e 74 43 74 78 20 2a 70 3b 0a 20 20 70 20 3d  untCtx *p;.  p =
ab80: 20 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61   sqlite3_aggrega
ab90: 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65  te_context(conte
aba0: 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b  xt, sizeof(*p));
abb0: 0a 20 20 69 66 28 20 28 61 72 67 63 3d 3d 30 20  .  if( (argc==0 
abc0: 7c 7c 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 21 3d  || SQLITE_NULL!=
abd0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 79  sqlite3_value_ty
abe0: 70 65 28 61 72 67 76 5b 30 5d 29 29 20 26 26 20  pe(argv[0])) && 
abf0: 70 20 29 7b 0a 20 20 20 20 70 2d 3e 6e 2b 2b 3b  p ){.    p->n++;
ac00: 0a 20 20 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51  .  }..#ifndef SQ
ac10: 4c 49 54 45 5f 4f 4d 49 54 5f 44 45 50 52 45 43  LITE_OMIT_DEPREC
ac20: 41 54 45 44 0a 20 20 2f 2a 20 54 68 65 20 73 71  ATED.  /* The sq
ac30: 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f  lite3_aggregate_
ac40: 63 6f 75 6e 74 28 29 20 66 75 6e 63 74 69 6f 6e  count() function
ac50: 20 69 73 20 64 65 70 72 65 63 61 74 65 64 2e 20   is deprecated. 
ac60: 20 42 75 74 20 6a 75 73 74 20 74 6f 20 6d 61 6b   But just to mak
ac70: 65 0a 20 20 2a 2a 20 73 75 72 65 20 69 74 20 73  e.  ** sure it s
ac80: 74 69 6c 6c 20 6f 70 65 72 61 74 65 73 20 63 6f  till operates co
ac90: 72 72 65 63 74 6c 79 2c 20 76 65 72 69 66 79 20  rrectly, verify 
aca0: 74 68 61 74 20 69 74 73 20 63 6f 75 6e 74 20 61  that its count a
acb0: 67 72 65 65 73 20 77 69 74 68 20 6f 75 72 20 0a  grees with our .
acc0: 20 20 2a 2a 20 69 6e 74 65 72 6e 61 6c 20 63 6f    ** internal co
acd0: 75 6e 74 20 77 68 65 6e 20 75 73 69 6e 67 20 63  unt when using c
ace0: 6f 75 6e 74 28 2a 29 20 61 6e 64 20 77 68 65 6e  ount(*) and when
acf0: 20 74 68 65 20 74 6f 74 61 6c 20 63 6f 75 6e 74   the total count
ad00: 20 63 61 6e 20 62 65 0a 20 20 2a 2a 20 65 78 70   can be.  ** exp
ad10: 72 65 73 73 65 64 20 61 73 20 61 20 33 32 2d 62  ressed as a 32-b
ad20: 69 74 20 69 6e 74 65 67 65 72 2e 20 2a 2f 0a 20  it integer. */. 
ad30: 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31   assert( argc==1
ad40: 20 7c 7c 20 70 3d 3d 30 20 7c 7c 20 70 2d 3e 6e   || p==0 || p->n
ad50: 3e 30 78 37 66 66 66 66 66 66 66 0a 20 20 20 20  >0x7fffffff.    
ad60: 20 20 20 20 20 20 7c 7c 20 70 2d 3e 6e 3d 3d 73        || p->n==s
ad70: 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65  qlite3_aggregate
ad80: 5f 63 6f 75 6e 74 28 63 6f 6e 74 65 78 74 29 20  _count(context) 
ad90: 29 3b 0a 23 65 6e 64 69 66 0a 7d 20 20 20 0a 73  );.#endif.}   .s
ada0: 74 61 74 69 63 20 76 6f 69 64 20 63 6f 75 6e 74  tatic void count
adb0: 46 69 6e 61 6c 69 7a 65 28 73 71 6c 69 74 65 33  Finalize(sqlite3
adc0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
add0: 74 29 7b 0a 20 20 43 6f 75 6e 74 43 74 78 20 2a  t){.  CountCtx *
ade0: 70 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33  p;.  p = sqlite3
adf0: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65  _aggregate_conte
ae00: 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29 3b 0a  xt(context, 0);.
ae10: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
ae20: 5f 69 6e 74 36 34 28 63 6f 6e 74 65 78 74 2c 20  _int64(context, 
ae30: 70 20 3f 20 70 2d 3e 6e 20 3a 20 30 29 3b 0a 7d  p ? p->n : 0);.}
ae40: 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73  ../*.** Routines
ae50: 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 6d 69   to implement mi
ae60: 6e 28 29 20 61 6e 64 20 6d 61 78 28 29 20 61 67  n() and max() ag
ae70: 67 72 65 67 61 74 65 20 66 75 6e 63 74 69 6f 6e  gregate function
ae80: 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  s..*/.static voi
ae90: 64 20 6d 69 6e 6d 61 78 53 74 65 70 28 0a 20 20  d minmaxStep(.  
aea0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
aeb0: 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e 74  *context, .  int
aec0: 20 4e 6f 74 55 73 65 64 2c 20 0a 20 20 73 71 6c   NotUsed, .  sql
aed0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67  ite3_value **arg
aee0: 76 0a 29 7b 0a 20 20 4d 65 6d 20 2a 70 41 72 67  v.){.  Mem *pArg
aef0: 20 20 3d 20 28 4d 65 6d 20 2a 29 61 72 67 76 5b    = (Mem *)argv[
af00: 30 5d 3b 0a 20 20 4d 65 6d 20 2a 70 42 65 73 74  0];.  Mem *pBest
af10: 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d  ;.  UNUSED_PARAM
af20: 45 54 45 52 28 4e 6f 74 55 73 65 64 29 3b 0a 0a  ETER(NotUsed);..
af30: 20 20 70 42 65 73 74 20 3d 20 28 4d 65 6d 20 2a    pBest = (Mem *
af40: 29 73 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61  )sqlite3_aggrega
af50: 74 65 5f 63 6f 6e 74 65 78 74 28 63 6f 6e 74 65  te_context(conte
af60: 78 74 2c 20 73 69 7a 65 6f 66 28 2a 70 42 65 73  xt, sizeof(*pBes
af70: 74 29 29 3b 0a 20 20 69 66 28 20 21 70 42 65 73  t));.  if( !pBes
af80: 74 20 29 20 72 65 74 75 72 6e 3b 0a 0a 20 20 69  t ) return;..  i
af90: 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  f( sqlite3_value
afa0: 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d  _type(argv[0])==
afb0: 53 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 7b 0a 20  SQLITE_NULL ){. 
afc0: 20 20 20 69 66 28 20 70 42 65 73 74 2d 3e 66 6c     if( pBest->fl
afd0: 61 67 73 20 29 20 73 71 6c 69 74 65 33 53 6b 69  ags ) sqlite3Ski
afe0: 70 41 63 63 75 6d 75 6c 61 74 6f 72 4c 6f 61 64  pAccumulatorLoad
aff0: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 7d 65 6c  (context);.  }el
b000: 73 65 20 69 66 28 20 70 42 65 73 74 2d 3e 66 6c  se if( pBest->fl
b010: 61 67 73 20 29 7b 0a 20 20 20 20 69 6e 74 20 6d  ags ){.    int m
b020: 61 78 3b 0a 20 20 20 20 69 6e 74 20 63 6d 70 3b  ax;.    int cmp;
b030: 0a 20 20 20 20 43 6f 6c 6c 53 65 71 20 2a 70 43  .    CollSeq *pC
b040: 6f 6c 6c 20 3d 20 73 71 6c 69 74 65 33 47 65 74  oll = sqlite3Get
b050: 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 6f 6e 74  FuncCollSeq(cont
b060: 65 78 74 29 3b 0a 20 20 20 20 2f 2a 20 54 68 69  ext);.    /* Thi
b070: 73 20 73 74 65 70 20 66 75 6e 63 74 69 6f 6e 20  s step function 
b080: 69 73 20 75 73 65 64 20 66 6f 72 20 62 6f 74 68  is used for both
b090: 20 74 68 65 20 6d 69 6e 28 29 20 61 6e 64 20 6d   the min() and m
b0a0: 61 78 28 29 20 61 67 67 72 65 67 61 74 65 73 2c  ax() aggregates,
b0b0: 0a 20 20 20 20 2a 2a 20 74 68 65 20 6f 6e 6c 79  .    ** the only
b0c0: 20 64 69 66 66 65 72 65 6e 63 65 20 62 65 74 77   difference betw
b0d0: 65 65 6e 20 74 68 65 20 74 77 6f 20 62 65 69 6e  een the two bein
b0e0: 67 20 74 68 61 74 20 74 68 65 20 73 65 6e 73 65  g that the sense
b0f0: 20 6f 66 20 74 68 65 0a 20 20 20 20 2a 2a 20 63   of the.    ** c
b100: 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 69 6e 76  omparison is inv
b110: 65 72 74 65 64 2e 20 46 6f 72 20 74 68 65 20 6d  erted. For the m
b120: 61 78 28 29 20 61 67 67 72 65 67 61 74 65 2c 20  ax() aggregate, 
b130: 74 68 65 0a 20 20 20 20 2a 2a 20 73 71 6c 69 74  the.    ** sqlit
b140: 65 33 5f 75 73 65 72 5f 64 61 74 61 28 29 20 66  e3_user_data() f
b150: 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20  unction returns 
b160: 28 76 6f 69 64 20 2a 29 2d 31 2e 20 46 6f 72 20  (void *)-1. For 
b170: 6d 69 6e 28 29 20 69 74 0a 20 20 20 20 2a 2a 20  min() it.    ** 
b180: 72 65 74 75 72 6e 73 20 28 76 6f 69 64 20 2a 29  returns (void *)
b190: 64 62 2c 20 77 68 65 72 65 20 64 62 20 69 73 20  db, where db is 
b1a0: 74 68 65 20 73 71 6c 69 74 65 33 2a 20 64 61 74  the sqlite3* dat
b1b0: 61 62 61 73 65 20 70 6f 69 6e 74 65 72 2e 0a 20  abase pointer.. 
b1c0: 20 20 20 2a 2a 20 54 68 65 72 65 66 6f 72 65 20     ** Therefore 
b1d0: 74 68 65 20 6e 65 78 74 20 73 74 61 74 65 6d 65  the next stateme
b1e0: 6e 74 20 73 65 74 73 20 76 61 72 69 61 62 6c 65  nt sets variable
b1f0: 20 27 6d 61 78 27 20 74 6f 20 31 20 66 6f 72 20   'max' to 1 for 
b200: 74 68 65 20 6d 61 78 28 29 0a 20 20 20 20 2a 2a  the max().    **
b210: 20 61 67 67 72 65 67 61 74 65 2c 20 6f 72 20 30   aggregate, or 0
b220: 20 66 6f 72 20 6d 69 6e 28 29 2e 0a 20 20 20 20   for min()..    
b230: 2a 2f 0a 20 20 20 20 6d 61 78 20 3d 20 73 71 6c  */.    max = sql
b240: 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61 28 63  ite3_user_data(c
b250: 6f 6e 74 65 78 74 29 21 3d 30 3b 0a 20 20 20 20  ontext)!=0;.    
b260: 63 6d 70 20 3d 20 73 71 6c 69 74 65 33 4d 65 6d  cmp = sqlite3Mem
b270: 43 6f 6d 70 61 72 65 28 70 42 65 73 74 2c 20 70  Compare(pBest, p
b280: 41 72 67 2c 20 70 43 6f 6c 6c 29 3b 0a 20 20 20  Arg, pColl);.   
b290: 20 69 66 28 20 28 6d 61 78 20 26 26 20 63 6d 70   if( (max && cmp
b2a0: 3c 30 29 20 7c 7c 20 28 21 6d 61 78 20 26 26 20  <0) || (!max && 
b2b0: 63 6d 70 3e 30 29 20 29 7b 0a 20 20 20 20 20 20  cmp>0) ){.      
b2c0: 73 71 6c 69 74 65 33 56 64 62 65 4d 65 6d 43 6f  sqlite3VdbeMemCo
b2d0: 70 79 28 70 42 65 73 74 2c 20 70 41 72 67 29 3b  py(pBest, pArg);
b2e0: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  .    }else{.    
b2f0: 20 20 73 71 6c 69 74 65 33 53 6b 69 70 41 63 63    sqlite3SkipAcc
b300: 75 6d 75 6c 61 74 6f 72 4c 6f 61 64 28 63 6f 6e  umulatorLoad(con
b310: 74 65 78 74 29 3b 0a 20 20 20 20 7d 0a 20 20 7d  text);.    }.  }
b320: 65 6c 73 65 7b 0a 20 20 20 20 70 42 65 73 74 2d  else{.    pBest-
b330: 3e 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f  >db = sqlite3_co
b340: 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 28  ntext_db_handle(
b350: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 73 71  context);.    sq
b360: 6c 69 74 65 33 56 64 62 65 4d 65 6d 43 6f 70 79  lite3VdbeMemCopy
b370: 28 70 42 65 73 74 2c 20 70 41 72 67 29 3b 0a 20  (pBest, pArg);. 
b380: 20 7d 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69 64   }.}.static void
b390: 20 6d 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 28   minMaxFinalize(
b3a0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
b3b0: 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 73 71 6c  *context){.  sql
b3c0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 52 65 73  ite3_value *pRes
b3d0: 3b 0a 20 20 70 52 65 73 20 3d 20 28 73 71 6c 69  ;.  pRes = (sqli
b3e0: 74 65 33 5f 76 61 6c 75 65 20 2a 29 73 71 6c 69  te3_value *)sqli
b3f0: 74 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f  te3_aggregate_co
b400: 6e 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30  ntext(context, 0
b410: 29 3b 0a 20 20 69 66 28 20 70 52 65 73 20 29 7b  );.  if( pRes ){
b420: 0a 20 20 20 20 69 66 28 20 70 52 65 73 2d 3e 66  .    if( pRes->f
b430: 6c 61 67 73 20 29 7b 0a 20 20 20 20 20 20 73 71  lags ){.      sq
b440: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c  lite3_result_val
b450: 75 65 28 63 6f 6e 74 65 78 74 2c 20 70 52 65 73  ue(context, pRes
b460: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c  );.    }.    sql
b470: 69 74 65 33 56 64 62 65 4d 65 6d 52 65 6c 65 61  ite3VdbeMemRelea
b480: 73 65 28 70 52 65 73 29 3b 0a 20 20 7d 0a 7d 0a  se(pRes);.  }.}.
b490: 0a 2f 2a 0a 2a 2a 20 67 72 6f 75 70 5f 63 6f 6e  ./*.** group_con
b4a0: 63 61 74 28 45 58 50 52 2c 20 3f 53 45 50 41 52  cat(EXPR, ?SEPAR
b4b0: 41 54 4f 52 3f 29 0a 2a 2f 0a 73 74 61 74 69 63  ATOR?).*/.static
b4c0: 20 76 6f 69 64 20 67 72 6f 75 70 43 6f 6e 63 61   void groupConca
b4d0: 74 53 74 65 70 28 0a 20 20 73 71 6c 69 74 65 33  tStep(.  sqlite3
b4e0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
b4f0: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20  t,.  int argc,. 
b500: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
b510: 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74  *argv.){.  const
b520: 20 63 68 61 72 20 2a 7a 56 61 6c 3b 0a 20 20 53   char *zVal;.  S
b530: 74 72 41 63 63 75 6d 20 2a 70 41 63 63 75 6d 3b  trAccum *pAccum;
b540: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
b550: 53 65 70 3b 0a 20 20 69 6e 74 20 6e 56 61 6c 2c  Sep;.  int nVal,
b560: 20 6e 53 65 70 3b 0a 20 20 61 73 73 65 72 74 28   nSep;.  assert(
b570: 20 61 72 67 63 3d 3d 31 20 7c 7c 20 61 72 67 63   argc==1 || argc
b580: 3d 3d 32 20 29 3b 0a 20 20 69 66 28 20 73 71 6c  ==2 );.  if( sql
b590: 69 74 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28  ite3_value_type(
b5a0: 61 72 67 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45  argv[0])==SQLITE
b5b0: 5f 4e 55 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a  _NULL ) return;.
b5c0: 20 20 70 41 63 63 75 6d 20 3d 20 28 53 74 72 41    pAccum = (StrA
b5d0: 63 63 75 6d 2a 29 73 71 6c 69 74 65 33 5f 61 67  ccum*)sqlite3_ag
b5e0: 67 72 65 67 61 74 65 5f 63 6f 6e 74 65 78 74 28  gregate_context(
b5f0: 63 6f 6e 74 65 78 74 2c 20 73 69 7a 65 6f 66 28  context, sizeof(
b600: 2a 70 41 63 63 75 6d 29 29 3b 0a 0a 20 20 69 66  *pAccum));..  if
b610: 28 20 70 41 63 63 75 6d 20 29 7b 0a 20 20 20 20  ( pAccum ){.    
b620: 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71  sqlite3 *db = sq
b630: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62  lite3_context_db
b640: 5f 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29  _handle(context)
b650: 3b 0a 20 20 20 20 69 6e 74 20 66 69 72 73 74 54  ;.    int firstT
b660: 65 72 6d 20 3d 20 70 41 63 63 75 6d 2d 3e 6d 78  erm = pAccum->mx
b670: 41 6c 6c 6f 63 3d 3d 30 3b 0a 20 20 20 20 70 41  Alloc==0;.    pA
b680: 63 63 75 6d 2d 3e 6d 78 41 6c 6c 6f 63 20 3d 20  ccum->mxAlloc = 
b690: 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54  db->aLimit[SQLIT
b6a0: 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 3b  E_LIMIT_LENGTH];
b6b0: 0a 20 20 20 20 69 66 28 20 21 66 69 72 73 74 54  .    if( !firstT
b6c0: 65 72 6d 20 29 7b 0a 20 20 20 20 20 20 69 66 28  erm ){.      if(
b6d0: 20 61 72 67 63 3d 3d 32 20 29 7b 0a 20 20 20 20   argc==2 ){.    
b6e0: 20 20 20 20 7a 53 65 70 20 3d 20 28 63 68 61 72      zSep = (char
b6f0: 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  *)sqlite3_value_
b700: 74 65 78 74 28 61 72 67 76 5b 31 5d 29 3b 0a 20  text(argv[1]);. 
b710: 20 20 20 20 20 20 20 6e 53 65 70 20 3d 20 73 71         nSep = sq
b720: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65  lite3_value_byte
b730: 73 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20  s(argv[1]);.    
b740: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
b750: 20 7a 53 65 70 20 3d 20 22 2c 22 3b 0a 20 20 20   zSep = ",";.   
b760: 20 20 20 20 20 6e 53 65 70 20 3d 20 31 3b 0a 20       nSep = 1;. 
b770: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28       }.      if(
b780: 20 6e 53 65 70 20 29 20 73 71 6c 69 74 65 33 53   nSep ) sqlite3S
b790: 74 72 41 63 63 75 6d 41 70 70 65 6e 64 28 70 41  trAccumAppend(pA
b7a0: 63 63 75 6d 2c 20 7a 53 65 70 2c 20 6e 53 65 70  ccum, zSep, nSep
b7b0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 56 61  );.    }.    zVa
b7c0: 6c 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69 74  l = (char*)sqlit
b7d0: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72  e3_value_text(ar
b7e0: 67 76 5b 30 5d 29 3b 0a 20 20 20 20 6e 56 61 6c  gv[0]);.    nVal
b7f0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
b800: 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b  _bytes(argv[0]);
b810: 0a 20 20 20 20 69 66 28 20 7a 56 61 6c 20 29 20  .    if( zVal ) 
b820: 73 71 6c 69 74 65 33 53 74 72 41 63 63 75 6d 41  sqlite3StrAccumA
b830: 70 70 65 6e 64 28 70 41 63 63 75 6d 2c 20 7a 56  ppend(pAccum, zV
b840: 61 6c 2c 20 6e 56 61 6c 29 3b 0a 20 20 7d 0a 7d  al, nVal);.  }.}
b850: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 67 72 6f  .static void gro
b860: 75 70 43 6f 6e 63 61 74 46 69 6e 61 6c 69 7a 65  upConcatFinalize
b870: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74  (sqlite3_context
b880: 20 2a 63 6f 6e 74 65 78 74 29 7b 0a 20 20 53 74   *context){.  St
b890: 72 41 63 63 75 6d 20 2a 70 41 63 63 75 6d 3b 0a  rAccum *pAccum;.
b8a0: 20 20 70 41 63 63 75 6d 20 3d 20 73 71 6c 69 74    pAccum = sqlit
b8b0: 65 33 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e  e3_aggregate_con
b8c0: 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 30 29  text(context, 0)
b8d0: 3b 0a 20 20 69 66 28 20 70 41 63 63 75 6d 20 29  ;.  if( pAccum )
b8e0: 7b 0a 20 20 20 20 69 66 28 20 70 41 63 63 75 6d  {.    if( pAccum
b8f0: 2d 3e 61 63 63 45 72 72 6f 72 3d 3d 53 54 52 41  ->accError==STRA
b900: 43 43 55 4d 5f 54 4f 4f 42 49 47 20 29 7b 0a 20  CCUM_TOOBIG ){. 
b910: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73       sqlite3_res
b920: 75 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67  ult_error_toobig
b930: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 7d  (context);.    }
b940: 65 6c 73 65 20 69 66 28 20 70 41 63 63 75 6d 2d  else if( pAccum-
b950: 3e 61 63 63 45 72 72 6f 72 3d 3d 53 54 52 41 43  >accError==STRAC
b960: 43 55 4d 5f 4e 4f 4d 45 4d 20 29 7b 0a 20 20 20  CUM_NOMEM ){.   
b970: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c     sqlite3_resul
b980: 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28 63 6f  t_error_nomem(co
b990: 6e 74 65 78 74 29 3b 0a 20 20 20 20 7d 65 6c 73  ntext);.    }els
b9a0: 65 7b 20 20 20 20 0a 20 20 20 20 20 20 73 71 6c  e{    .      sql
b9b0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74  ite3_result_text
b9c0: 28 63 6f 6e 74 65 78 74 2c 20 73 71 6c 69 74 65  (context, sqlite
b9d0: 33 53 74 72 41 63 63 75 6d 46 69 6e 69 73 68 28  3StrAccumFinish(
b9e0: 70 41 63 63 75 6d 29 2c 20 2d 31 2c 20 0a 20 20  pAccum), -1, .  
b9f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ba00: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f          sqlite3_
ba10: 66 72 65 65 29 3b 0a 20 20 20 20 7d 0a 20 20 7d  free);.    }.  }
ba20: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72  .}../*.** This r
ba30: 6f 75 74 69 6e 65 20 64 6f 65 73 20 70 65 72 2d  outine does per-
ba40: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 75 6e 63 74  connection funct
ba50: 69 6f 6e 20 72 65 67 69 73 74 72 61 74 69 6f 6e  ion registration
ba60: 2e 20 20 4d 6f 73 74 0a 2a 2a 20 6f 66 20 74 68  .  Most.** of th
ba70: 65 20 62 75 69 6c 74 2d 69 6e 20 66 75 6e 63 74  e built-in funct
ba80: 69 6f 6e 73 20 61 62 6f 76 65 20 61 72 65 20 70  ions above are p
ba90: 61 72 74 20 6f 66 20 74 68 65 20 67 6c 6f 62 61  art of the globa
baa0: 6c 20 66 75 6e 63 74 69 6f 6e 20 73 65 74 2e 0a  l function set..
bab0: 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20  ** This routine 
bac0: 6f 6e 6c 79 20 64 65 61 6c 73 20 77 69 74 68 20  only deals with 
bad0: 74 68 6f 73 65 20 74 68 61 74 20 61 72 65 20 6e  those that are n
bae0: 6f 74 20 67 6c 6f 62 61 6c 2e 0a 2a 2f 0a 76 6f  ot global..*/.vo
baf0: 69 64 20 73 71 6c 69 74 65 33 52 65 67 69 73 74  id sqlite3Regist
bb00: 65 72 42 75 69 6c 74 69 6e 46 75 6e 63 74 69 6f  erBuiltinFunctio
bb10: 6e 73 28 73 71 6c 69 74 65 33 20 2a 64 62 29 7b  ns(sqlite3 *db){
bb20: 0a 20 20 69 6e 74 20 72 63 20 3d 20 73 71 6c 69  .  int rc = sqli
bb30: 74 65 33 5f 6f 76 65 72 6c 6f 61 64 5f 66 75 6e  te3_overload_fun
bb40: 63 74 69 6f 6e 28 64 62 2c 20 22 4d 41 54 43 48  ction(db, "MATCH
bb50: 22 2c 20 32 29 3b 0a 20 20 61 73 73 65 72 74 28  ", 2);.  assert(
bb60: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4e 4f 4d 45   rc==SQLITE_NOME
bb70: 4d 20 7c 7c 20 72 63 3d 3d 53 51 4c 49 54 45 5f  M || rc==SQLITE_
bb80: 4f 4b 20 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d  OK );.  if( rc==
bb90: 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 20 29 7b 0a  SQLITE_NOMEM ){.
bba0: 20 20 20 20 64 62 2d 3e 6d 61 6c 6c 6f 63 46 61      db->mallocFa
bbb0: 69 6c 65 64 20 3d 20 31 3b 0a 20 20 7d 0a 7d 0a  iled = 1;.  }.}.
bbc0: 0a 2f 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20 4c  ./*.** Set the L
bbd0: 49 4b 45 4f 50 54 20 66 6c 61 67 20 6f 6e 20 74  IKEOPT flag on t
bbe0: 68 65 20 32 2d 61 72 67 75 6d 65 6e 74 20 66 75  he 2-argument fu
bbf0: 6e 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20  nction with the 
bc00: 67 69 76 65 6e 20 6e 61 6d 65 2e 0a 2a 2f 0a 73  given name..*/.s
bc10: 74 61 74 69 63 20 76 6f 69 64 20 73 65 74 4c 69  tatic void setLi
bc20: 6b 65 4f 70 74 46 6c 61 67 28 73 71 6c 69 74 65  keOptFlag(sqlite
bc30: 33 20 2a 64 62 2c 20 63 6f 6e 73 74 20 63 68 61  3 *db, const cha
bc40: 72 20 2a 7a 4e 61 6d 65 2c 20 75 38 20 66 6c 61  r *zName, u8 fla
bc50: 67 56 61 6c 29 7b 0a 20 20 46 75 6e 63 44 65 66  gVal){.  FuncDef
bc60: 20 2a 70 44 65 66 3b 0a 20 20 70 44 65 66 20 3d   *pDef;.  pDef =
bc70: 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e 63   sqlite3FindFunc
bc80: 74 69 6f 6e 28 64 62 2c 20 7a 4e 61 6d 65 2c 20  tion(db, zName, 
bc90: 73 71 6c 69 74 65 33 53 74 72 6c 65 6e 33 30 28  sqlite3Strlen30(
bca0: 7a 4e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 20  zName),.        
bcb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
bcc0: 20 20 20 20 20 32 2c 20 53 51 4c 49 54 45 5f 55       2, SQLITE_U
bcd0: 54 46 38 2c 20 30 29 3b 0a 20 20 69 66 28 20 41  TF8, 0);.  if( A
bce0: 4c 57 41 59 53 28 70 44 65 66 29 20 29 7b 0a 20  LWAYS(pDef) ){. 
bcf0: 20 20 20 70 44 65 66 2d 3e 66 75 6e 63 46 6c 61     pDef->funcFla
bd00: 67 73 20 7c 3d 20 66 6c 61 67 56 61 6c 3b 0a 20  gs |= flagVal;. 
bd10: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 67 69   }.}../*.** Regi
bd20: 73 74 65 72 20 74 68 65 20 62 75 69 6c 74 2d 69  ster the built-i
bd30: 6e 20 4c 49 4b 45 20 61 6e 64 20 47 4c 4f 42 20  n LIKE and GLOB 
bd40: 66 75 6e 63 74 69 6f 6e 73 2e 20 20 54 68 65 20  functions.  The 
bd50: 63 61 73 65 53 65 6e 73 69 74 69 76 65 0a 2a 2a  caseSensitive.**
bd60: 20 70 61 72 61 6d 65 74 65 72 20 64 65 74 65 72   parameter deter
bd70: 6d 69 6e 65 73 20 77 68 65 74 68 65 72 20 6f 72  mines whether or
bd80: 20 6e 6f 74 20 74 68 65 20 4c 49 4b 45 20 6f 70   not the LIKE op
bd90: 65 72 61 74 6f 72 20 69 73 20 63 61 73 65 0a 2a  erator is case.*
bda0: 2a 20 73 65 6e 73 69 74 69 76 65 2e 20 20 47 4c  * sensitive.  GL
bdb0: 4f 42 20 69 73 20 61 6c 77 61 79 73 20 63 61 73  OB is always cas
bdc0: 65 20 73 65 6e 73 69 74 69 76 65 2e 0a 2a 2f 0a  e sensitive..*/.
bdd0: 76 6f 69 64 20 73 71 6c 69 74 65 33 52 65 67 69  void sqlite3Regi
bde0: 73 74 65 72 4c 69 6b 65 46 75 6e 63 74 69 6f 6e  sterLikeFunction
bdf0: 73 28 73 71 6c 69 74 65 33 20 2a 64 62 2c 20 69  s(sqlite3 *db, i
be00: 6e 74 20 63 61 73 65 53 65 6e 73 69 74 69 76 65  nt caseSensitive
be10: 29 7b 0a 20 20 73 74 72 75 63 74 20 63 6f 6d 70  ){.  struct comp
be20: 61 72 65 49 6e 66 6f 20 2a 70 49 6e 66 6f 3b 0a  areInfo *pInfo;.
be30: 20 20 69 66 28 20 63 61 73 65 53 65 6e 73 69 74    if( caseSensit
be40: 69 76 65 20 29 7b 0a 20 20 20 20 70 49 6e 66 6f  ive ){.    pInfo
be50: 20 3d 20 28 73 74 72 75 63 74 20 63 6f 6d 70 61   = (struct compa
be60: 72 65 49 6e 66 6f 2a 29 26 6c 69 6b 65 49 6e 66  reInfo*)&likeInf
be70: 6f 41 6c 74 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20  oAlt;.  }else{. 
be80: 20 20 20 70 49 6e 66 6f 20 3d 20 28 73 74 72 75     pInfo = (stru
be90: 63 74 20 63 6f 6d 70 61 72 65 49 6e 66 6f 2a 29  ct compareInfo*)
bea0: 26 6c 69 6b 65 49 6e 66 6f 4e 6f 72 6d 3b 0a 20  &likeInfoNorm;. 
beb0: 20 7d 0a 20 20 73 71 6c 69 74 65 33 43 72 65 61   }.  sqlite3Crea
bec0: 74 65 46 75 6e 63 28 64 62 2c 20 22 6c 69 6b 65  teFunc(db, "like
bed0: 22 2c 20 32 2c 20 53 51 4c 49 54 45 5f 55 54 46  ", 2, SQLITE_UTF
bee0: 38 2c 20 70 49 6e 66 6f 2c 20 6c 69 6b 65 46 75  8, pInfo, likeFu
bef0: 6e 63 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20  nc, 0, 0, 0);.  
bf00: 73 71 6c 69 74 65 33 43 72 65 61 74 65 46 75 6e  sqlite3CreateFun
bf10: 63 28 64 62 2c 20 22 6c 69 6b 65 22 2c 20 33 2c  c(db, "like", 3,
bf20: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 70 49   SQLITE_UTF8, pI
bf30: 6e 66 6f 2c 20 6c 69 6b 65 46 75 6e 63 2c 20 30  nfo, likeFunc, 0
bf40: 2c 20 30 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74  , 0, 0);.  sqlit
bf50: 65 33 43 72 65 61 74 65 46 75 6e 63 28 64 62 2c  e3CreateFunc(db,
bf60: 20 22 67 6c 6f 62 22 2c 20 32 2c 20 53 51 4c 49   "glob", 2, SQLI
bf70: 54 45 5f 55 54 46 38 2c 20 0a 20 20 20 20 20 20  TE_UTF8, .      
bf80: 28 73 74 72 75 63 74 20 63 6f 6d 70 61 72 65 49  (struct compareI
bf90: 6e 66 6f 2a 29 26 67 6c 6f 62 49 6e 66 6f 2c 20  nfo*)&globInfo, 
bfa0: 6c 69 6b 65 46 75 6e 63 2c 20 30 2c 20 30 2c 20  likeFunc, 0, 0, 
bfb0: 30 29 3b 0a 20 20 73 65 74 4c 69 6b 65 4f 70 74  0);.  setLikeOpt
bfc0: 46 6c 61 67 28 64 62 2c 20 22 67 6c 6f 62 22 2c  Flag(db, "glob",
bfd0: 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c 49 4b   SQLITE_FUNC_LIK
bfe0: 45 20 7c 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f  E | SQLITE_FUNC_
bff0: 43 41 53 45 29 3b 0a 20 20 73 65 74 4c 69 6b 65  CASE);.  setLike
c000: 4f 70 74 46 6c 61 67 28 64 62 2c 20 22 6c 69 6b  OptFlag(db, "lik
c010: 65 22 2c 20 0a 20 20 20 20 20 20 63 61 73 65 53  e", .      caseS
c020: 65 6e 73 69 74 69 76 65 20 3f 20 28 53 51 4c 49  ensitive ? (SQLI
c030: 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 20 7c 20 53  TE_FUNC_LIKE | S
c040: 51 4c 49 54 45 5f 46 55 4e 43 5f 43 41 53 45 29  QLITE_FUNC_CASE)
c050: 20 3a 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c   : SQLITE_FUNC_L
c060: 49 4b 45 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 70  IKE);.}../*.** p
c070: 45 78 70 72 20 70 6f 69 6e 74 73 20 74 6f 20 61  Expr points to a
c080: 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 77 68 69  n expression whi
c090: 63 68 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61 20  ch implements a 
c0a0: 66 75 6e 63 74 69 6f 6e 2e 20 20 49 66 0a 2a 2a  function.  If.**
c0b0: 20 69 74 20 69 73 20 61 70 70 72 6f 70 72 69 61   it is appropria
c0c0: 74 65 20 74 6f 20 61 70 70 6c 79 20 74 68 65 20  te to apply the 
c0d0: 4c 49 4b 45 20 6f 70 74 69 6d 69 7a 61 74 69 6f  LIKE optimizatio
c0e0: 6e 20 74 6f 20 74 68 61 74 20 66 75 6e 63 74 69  n to that functi
c0f0: 6f 6e 0a 2a 2a 20 74 68 65 6e 20 73 65 74 20 61  on.** then set a
c100: 57 63 5b 30 5d 20 74 68 72 6f 75 67 68 20 61 57  Wc[0] through aW
c110: 63 5b 32 5d 20 74 6f 20 74 68 65 20 77 69 6c 64  c[2] to the wild
c120: 63 61 72 64 20 63 68 61 72 61 63 74 65 72 73 20  card characters 
c130: 61 6e 64 0a 2a 2a 20 72 65 74 75 72 6e 20 54 52  and.** return TR
c140: 55 45 2e 20 20 49 66 20 74 68 65 20 66 75 6e 63  UE.  If the func
c150: 74 69 6f 6e 20 69 73 20 6e 6f 74 20 61 20 4c 49  tion is not a LI
c160: 4b 45 2d 73 74 79 6c 65 20 66 75 6e 63 74 69 6f  KE-style functio
c170: 6e 20 74 68 65 6e 0a 2a 2a 20 72 65 74 75 72 6e  n then.** return
c180: 20 46 41 4c 53 45 2e 0a 2a 2a 0a 2a 2a 20 2a 70   FALSE..**.** *p
c190: 49 73 4e 6f 63 61 73 65 20 69 73 20 73 65 74 20  IsNocase is set 
c1a0: 74 6f 20 74 72 75 65 20 69 66 20 75 70 70 65 72  to true if upper
c1b0: 63 61 73 65 20 61 6e 64 20 6c 6f 77 65 72 63 61  case and lowerca
c1c0: 73 65 20 61 72 65 20 65 71 75 69 76 61 6c 65 6e  se are equivalen
c1d0: 74 20 66 6f 72 0a 2a 2a 20 74 68 65 20 66 75 6e  t for.** the fun
c1e0: 63 74 69 6f 6e 20 28 64 65 66 61 75 6c 74 20 66  ction (default f
c1f0: 6f 72 20 4c 49 4b 45 29 2e 20 20 49 66 20 74 68  or LIKE).  If th
c200: 65 20 66 75 6e 63 74 69 6f 6e 20 6d 61 6b 65 73  e function makes
c210: 20 74 68 65 20 64 69 73 74 69 6e 63 74 69 6f 6e   the distinction
c220: 0a 2a 2a 20 62 65 74 77 65 65 6e 20 75 70 70 65  .** between uppe
c230: 72 63 61 73 65 20 61 6e 64 20 6c 6f 77 65 72 63  rcase and lowerc
c240: 61 73 65 20 28 61 73 20 64 6f 65 73 20 47 4c 4f  ase (as does GLO
c250: 42 29 20 74 68 65 6e 20 2a 70 49 73 4e 6f 63 61  B) then *pIsNoca
c260: 73 65 20 69 73 20 73 65 74 20 74 6f 0a 2a 2a 20  se is set to.** 
c270: 66 61 6c 73 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71  false..*/.int sq
c280: 6c 69 74 65 33 49 73 4c 69 6b 65 46 75 6e 63 74  lite3IsLikeFunct
c290: 69 6f 6e 28 73 71 6c 69 74 65 33 20 2a 64 62 2c  ion(sqlite3 *db,
c2a0: 20 45 78 70 72 20 2a 70 45 78 70 72 2c 20 69 6e   Expr *pExpr, in
c2b0: 74 20 2a 70 49 73 4e 6f 63 61 73 65 2c 20 63 68  t *pIsNocase, ch
c2c0: 61 72 20 2a 61 57 63 29 7b 0a 20 20 46 75 6e 63  ar *aWc){.  Func
c2d0: 44 65 66 20 2a 70 44 65 66 3b 0a 20 20 69 66 28  Def *pDef;.  if(
c2e0: 20 70 45 78 70 72 2d 3e 6f 70 21 3d 54 4b 5f 46   pExpr->op!=TK_F
c2f0: 55 4e 43 54 49 4f 4e 20 0a 20 20 20 7c 7c 20 21  UNCTION .   || !
c300: 70 45 78 70 72 2d 3e 78 2e 70 4c 69 73 74 20 0a  pExpr->x.pList .
c310: 20 20 20 7c 7c 20 70 45 78 70 72 2d 3e 78 2e 70     || pExpr->x.p
c320: 4c 69 73 74 2d 3e 6e 45 78 70 72 21 3d 32 0a 20  List->nExpr!=2. 
c330: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 30   ){.    return 0
c340: 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28 20  ;.  }.  assert( 
c350: 21 45 78 70 72 48 61 73 50 72 6f 70 65 72 74 79  !ExprHasProperty
c360: 28 70 45 78 70 72 2c 20 45 50 5f 78 49 73 53 65  (pExpr, EP_xIsSe
c370: 6c 65 63 74 29 20 29 3b 0a 20 20 70 44 65 66 20  lect) );.  pDef 
c380: 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e  = sqlite3FindFun
c390: 63 74 69 6f 6e 28 64 62 2c 20 70 45 78 70 72 2d  ction(db, pExpr-
c3a0: 3e 75 2e 7a 54 6f 6b 65 6e 2c 20 0a 20 20 20 20  >u.zToken, .    
c3b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
c3c0: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33           sqlite3
c3d0: 53 74 72 6c 65 6e 33 30 28 70 45 78 70 72 2d 3e  Strlen30(pExpr->
c3e0: 75 2e 7a 54 6f 6b 65 6e 29 2c 0a 20 20 20 20 20  u.zToken),.     
c3f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
c400: 20 20 20 20 20 20 20 20 32 2c 20 53 51 4c 49 54          2, SQLIT
c410: 45 5f 55 54 46 38 2c 20 30 29 3b 0a 20 20 69 66  E_UTF8, 0);.  if
c420: 28 20 4e 45 56 45 52 28 70 44 65 66 3d 3d 30 29  ( NEVER(pDef==0)
c430: 20 7c 7c 20 28 70 44 65 66 2d 3e 66 75 6e 63 46   || (pDef->funcF
c440: 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f 46 55  lags & SQLITE_FU
c450: 4e 43 5f 4c 49 4b 45 29 3d 3d 30 20 29 7b 0a 20  NC_LIKE)==0 ){. 
c460: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d     return 0;.  }
c470: 0a 0a 20 20 2f 2a 20 54 68 65 20 6d 65 6d 63 70  ..  /* The memcp
c480: 79 28 29 20 73 74 61 74 65 6d 65 6e 74 20 61 73  y() statement as
c490: 73 75 6d 65 73 20 74 68 61 74 20 74 68 65 20 77  sumes that the w
c4a0: 69 6c 64 63 61 72 64 20 63 68 61 72 61 63 74 65  ildcard characte
c4b0: 72 73 20 61 72 65 0a 20 20 2a 2a 20 74 68 65 20  rs are.  ** the 
c4c0: 66 69 72 73 74 20 74 68 72 65 65 20 73 74 61 74  first three stat
c4d0: 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 63 6f  ements in the co
c4e0: 6d 70 61 72 65 49 6e 66 6f 20 73 74 72 75 63 74  mpareInfo struct
c4f0: 75 72 65 2e 20 20 54 68 65 0a 20 20 2a 2a 20 61  ure.  The.  ** a
c500: 73 73 65 72 74 73 28 29 20 74 68 61 74 20 66 6f  sserts() that fo
c510: 6c 6c 6f 77 20 76 65 72 69 66 79 20 74 68 61 74  llow verify that
c520: 20 61 73 73 75 6d 70 74 69 6f 6e 0a 20 20 2a 2f   assumption.  */
c530: 0a 20 20 6d 65 6d 63 70 79 28 61 57 63 2c 20 70  .  memcpy(aWc, p
c540: 44 65 66 2d 3e 70 55 73 65 72 44 61 74 61 2c 20  Def->pUserData, 
c550: 33 29 3b 0a 20 20 61 73 73 65 72 74 28 20 28 63  3);.  assert( (c
c560: 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c  har*)&likeInfoAl
c570: 74 20 3d 3d 20 28 63 68 61 72 2a 29 26 6c 69 6b  t == (char*)&lik
c580: 65 49 6e 66 6f 41 6c 74 2e 6d 61 74 63 68 41 6c  eInfoAlt.matchAl
c590: 6c 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 26  l );.  assert( &
c5a0: 28 28 63 68 61 72 2a 29 26 6c 69 6b 65 49 6e 66  ((char*)&likeInf
c5b0: 6f 41 6c 74 29 5b 31 5d 20 3d 3d 20 28 63 68 61  oAlt)[1] == (cha
c5c0: 72 2a 29 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 2e  r*)&likeInfoAlt.
c5d0: 6d 61 74 63 68 4f 6e 65 20 29 3b 0a 20 20 61 73  matchOne );.  as
c5e0: 73 65 72 74 28 20 26 28 28 63 68 61 72 2a 29 26  sert( &((char*)&
c5f0: 6c 69 6b 65 49 6e 66 6f 41 6c 74 29 5b 32 5d 20  likeInfoAlt)[2] 
c600: 3d 3d 20 28 63 68 61 72 2a 29 26 6c 69 6b 65 49  == (char*)&likeI
c610: 6e 66 6f 41 6c 74 2e 6d 61 74 63 68 53 65 74 20  nfoAlt.matchSet 
c620: 29 3b 0a 20 20 2a 70 49 73 4e 6f 63 61 73 65 20  );.  *pIsNocase 
c630: 3d 20 28 70 44 65 66 2d 3e 66 75 6e 63 46 6c 61  = (pDef->funcFla
c640: 67 73 20 26 20 53 51 4c 49 54 45 5f 46 55 4e 43  gs & SQLITE_FUNC
c650: 5f 43 41 53 45 29 3d 3d 30 3b 0a 20 20 72 65 74  _CASE)==0;.  ret
c660: 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  urn 1;.}../*.** 
c670: 41 6c 6c 20 6f 66 20 74 68 65 20 46 75 6e 63 44  All of the FuncD
c680: 65 66 20 73 74 72 75 63 74 75 72 65 73 20 69 6e  ef structures in
c690: 20 74 68 65 20 61 42 75 69 6c 74 69 6e 46 75 6e   the aBuiltinFun
c6a0: 63 5b 5d 20 61 72 72 61 79 20 61 62 6f 76 65 0a  c[] array above.
c6b0: 2a 2a 20 74 6f 20 74 68 65 20 67 6c 6f 62 61 6c  ** to the global
c6c0: 20 66 75 6e 63 74 69 6f 6e 20 68 61 73 68 20 74   function hash t
c6d0: 61 62 6c 65 2e 20 20 54 68 69 73 20 6f 63 63 75  able.  This occu
c6e0: 72 73 20 61 74 20 73 74 61 72 74 2d 74 69 6d 65  rs at start-time
c6f0: 20 28 61 73 0a 2a 2a 20 61 20 63 6f 6e 73 65 71   (as.** a conseq
c700: 75 65 6e 63 65 20 6f 66 20 63 61 6c 6c 69 6e 67  uence of calling
c710: 20 73 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c   sqlite3_initial
c720: 69 7a 65 28 29 29 2e 0a 2a 2a 0a 2a 2a 20 41 66  ize())..**.** Af
c730: 74 65 72 20 74 68 69 73 20 72 6f 75 74 69 6e 65  ter this routine
c740: 20 72 75 6e 73 0a 2a 2f 0a 76 6f 69 64 20 73 71   runs.*/.void sq
c750: 6c 69 74 65 33 52 65 67 69 73 74 65 72 47 6c 6f  lite3RegisterGlo
c760: 62 61 6c 46 75 6e 63 74 69 6f 6e 73 28 76 6f 69  balFunctions(voi
c770: 64 29 7b 0a 20 20 2f 2a 0a 20 20 2a 2a 20 54 68  d){.  /*.  ** Th
c780: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 72 61  e following arra
c790: 79 20 68 6f 6c 64 73 20 46 75 6e 63 44 65 66 20  y holds FuncDef 
c7a0: 73 74 72 75 63 74 75 72 65 73 20 66 6f 72 20 61  structures for a
c7b0: 6c 6c 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69  ll of the functi
c7c0: 6f 6e 73 0a 20 20 2a 2a 20 64 65 66 69 6e 65 64  ons.  ** defined
c7d0: 20 69 6e 20 74 68 69 73 20 66 69 6c 65 2e 0a 20   in this file.. 
c7e0: 20 2a 2a 0a 20 20 2a 2a 20 54 68 65 20 61 72 72   **.  ** The arr
c7f0: 61 79 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6e  ay cannot be con
c800: 73 74 61 6e 74 20 73 69 6e 63 65 20 63 68 61 6e  stant since chan
c810: 67 65 73 20 61 72 65 20 6d 61 64 65 20 74 6f 20  ges are made to 
c820: 74 68 65 0a 20 20 2a 2a 20 46 75 6e 63 44 65 66  the.  ** FuncDef
c830: 2e 70 48 61 73 68 20 65 6c 65 6d 65 6e 74 73 20  .pHash elements 
c840: 61 74 20 73 74 61 72 74 2d 74 69 6d 65 2e 20 20  at start-time.  
c850: 54 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20  The elements of 
c860: 74 68 69 73 20 61 72 72 61 79 0a 20 20 2a 2a 20  this array.  ** 
c870: 61 72 65 20 72 65 61 64 2d 6f 6e 6c 79 20 61 66  are read-only af
c880: 74 65 72 20 69 6e 69 74 69 61 6c 69 7a 61 74 69  ter initializati
c890: 6f 6e 20 69 73 20 63 6f 6d 70 6c 65 74 65 2e 0a  on is complete..
c8a0: 20 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 53 51    */.  static SQ
c8b0: 4c 49 54 45 5f 57 53 44 20 46 75 6e 63 44 65 66  LITE_WSD FuncDef
c8c0: 20 61 42 75 69 6c 74 69 6e 46 75 6e 63 5b 5d 20   aBuiltinFunc[] 
c8d0: 3d 20 7b 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e  = {.    FUNCTION
c8e0: 28 6c 74 72 69 6d 2c 20 20 20 20 20 20 20 20 20  (ltrim,         
c8f0: 20 20 20 20 20 31 2c 20 31 2c 20 30 2c 20 74 72       1, 1, 0, tr
c900: 69 6d 46 75 6e 63 20 20 20 20 20 20 20 20 20 29  imFunc         )
c910: 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 6c  ,.    FUNCTION(l
c920: 74 72 69 6d 2c 20 20 20 20 20 20 20 20 20 20 20  trim,           
c930: 20 20 20 32 2c 20 31 2c 20 30 2c 20 74 72 69 6d     2, 1, 0, trim
c940: 46 75 6e 63 20 20 20 20 20 20 20 20 20 29 2c 0a  Func         ),.
c950: 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 72 74 72      FUNCTION(rtr
c960: 69 6d 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  im,             
c970: 20 31 2c 20 32 2c 20 30 2c 20 74 72 69 6d 46 75   1, 2, 0, trimFu
c980: 6e 63 20 20 20 20 20 20 20 20 20 29 2c 0a 20 20  nc         ),.  
c990: 20 20 46 55 4e 43 54 49 4f 4e 28 72 74 72 69 6d    FUNCTION(rtrim
c9a0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32  ,              2
c9b0: 2c 20 32 2c 20 30 2c 20 74 72 69 6d 46 75 6e 63  , 2, 0, trimFunc
c9c0: 20 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20           ),.    
c9d0: 46 55 4e 43 54 49 4f 4e 28 74 72 69 6d 2c 20 20  FUNCTION(trim,  
c9e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20               1, 
c9f0: 33 2c 20 30 2c 20 74 72 69 6d 46 75 6e 63 20 20  3, 0, trimFunc  
ca00: 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55         ),.    FU
ca10: 4e 43 54 49 4f 4e 28 74 72 69 6d 2c 20 20 20 20  NCTION(trim,    
ca20: 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 33 2c             2, 3,
ca30: 20 30 2c 20 74 72 69 6d 46 75 6e 63 20 20 20 20   0, trimFunc    
ca40: 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43       ),.    FUNC
ca50: 54 49 4f 4e 28 6d 69 6e 2c 20 20 20 20 20 20 20  TION(min,       
ca60: 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 31          -1, 0, 1
ca70: 2c 20 6d 69 6e 6d 61 78 46 75 6e 63 20 20 20 20  , minmaxFunc    
ca80: 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49     ),.    FUNCTI
ca90: 4f 4e 28 6d 69 6e 2c 20 20 20 20 20 20 20 20 20  ON(min,         
caa0: 20 20 20 20 20 20 20 30 2c 20 30 2c 20 31 2c 20         0, 0, 1, 
cab0: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0               
cac0: 20 29 2c 0a 20 20 20 20 41 47 47 52 45 47 41 54   ),.    AGGREGAT
cad0: 45 32 28 6d 69 6e 2c 20 20 20 20 20 20 20 20 20  E2(min,         
cae0: 20 20 20 20 20 31 2c 20 30 2c 20 31 2c 20 6d 69       1, 0, 1, mi
caf0: 6e 6d 61 78 53 74 65 70 2c 20 20 20 20 20 20 6d  nmaxStep,      m
cb00: 69 6e 4d 61 78 46 69 6e 61 6c 69 7a 65 2c 0a 20  inMaxFinalize,. 
cb10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cb20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cb30: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f           SQLITE_
cb40: 46 55 4e 43 5f 4d 49 4e 4d 41 58 20 29 2c 0a 20  FUNC_MINMAX ),. 
cb50: 20 20 20 46 55 4e 43 54 49 4f 4e 28 6d 61 78 2c     FUNCTION(max,
cb60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d                 -
cb70: 31 2c 20 31 2c 20 31 2c 20 6d 69 6e 6d 61 78 46  1, 1, 1, minmaxF
cb80: 75 6e 63 20 20 20 20 20 20 20 29 2c 0a 20 20 20  unc       ),.   
cb90: 20 46 55 4e 43 54 49 4f 4e 28 6d 61 78 2c 20 20   FUNCTION(max,  
cba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2c                0,
cbb0: 20 31 2c 20 31 2c 20 30 20 20 20 20 20 20 20 20   1, 1, 0        
cbc0: 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 41          ),.    A
cbd0: 47 47 52 45 47 41 54 45 32 28 6d 61 78 2c 20 20  GGREGATE2(max,  
cbe0: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 31              1, 1
cbf0: 2c 20 31 2c 20 6d 69 6e 6d 61 78 53 74 65 70 2c  , 1, minmaxStep,
cc00: 20 20 20 20 20 20 6d 69 6e 4d 61 78 46 69 6e 61        minMaxFina
cc10: 6c 69 7a 65 2c 0a 20 20 20 20 20 20 20 20 20 20  lize,.          
cc20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cc30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cc40: 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4d 49 4e 4d  SQLITE_FUNC_MINM
cc50: 41 58 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49  AX ),.    FUNCTI
cc60: 4f 4e 32 28 74 79 70 65 6f 66 2c 20 20 20 20 20  ON2(typeof,     
cc70: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20         1, 0, 0, 
cc80: 74 79 70 65 6f 66 46 75 6e 63 2c 20 20 53 51 4c  typeofFunc,  SQL
cc90: 49 54 45 5f 46 55 4e 43 5f 54 59 50 45 4f 46 29  ITE_FUNC_TYPEOF)
cca0: 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 32 28  ,.    FUNCTION2(
ccb0: 6c 65 6e 67 74 68 2c 20 20 20 20 20 20 20 20 20  length,         
ccc0: 20 20 20 31 2c 20 30 2c 20 30 2c 20 6c 65 6e 67     1, 0, 0, leng
ccd0: 74 68 46 75 6e 63 2c 20 20 53 51 4c 49 54 45 5f  thFunc,  SQLITE_
cce0: 46 55 4e 43 5f 4c 45 4e 47 54 48 29 2c 0a 20 20  FUNC_LENGTH),.  
ccf0: 20 20 46 55 4e 43 54 49 4f 4e 28 69 6e 73 74 72    FUNCTION(instr
cd00: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32  ,              2
cd10: 2c 20 30 2c 20 30 2c 20 69 6e 73 74 72 46 75 6e  , 0, 0, instrFun
cd20: 63 20 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20  c        ),.    
cd30: 46 55 4e 43 54 49 4f 4e 28 73 75 62 73 74 72 2c  FUNCTION(substr,
cd40: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20               2, 
cd50: 30 2c 20 30 2c 20 73 75 62 73 74 72 46 75 6e 63  0, 0, substrFunc
cd60: 20 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55         ),.    FU
cd70: 4e 43 54 49 4f 4e 28 73 75 62 73 74 72 2c 20 20  NCTION(substr,  
cd80: 20 20 20 20 20 20 20 20 20 20 20 33 2c 20 30 2c             3, 0,
cd90: 20 30 2c 20 73 75 62 73 74 72 46 75 6e 63 20 20   0, substrFunc  
cda0: 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43       ),.    FUNC
cdb0: 54 49 4f 4e 28 70 72 69 6e 74 66 2c 20 20 20 20  TION(printf,    
cdc0: 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 30          -1, 0, 0
cdd0: 2c 20 70 72 69 6e 74 66 46 75 6e 63 20 20 20 20  , printfFunc    
cde0: 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49     ),.    FUNCTI
cdf0: 4f 4e 28 75 6e 69 63 6f 64 65 2c 20 20 20 20 20  ON(unicode,     
ce00: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20         1, 0, 0, 
ce10: 75 6e 69 63 6f 64 65 46 75 6e 63 20 20 20 20 20  unicodeFunc     
ce20: 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e   ),.    FUNCTION
ce30: 28 63 68 61 72 2c 20 20 20 20 20 20 20 20 20 20  (char,          
ce40: 20 20 20 20 2d 31 2c 20 30 2c 20 30 2c 20 63 68      -1, 0, 0, ch
ce50: 61 72 46 75 6e 63 20 20 20 20 20 20 20 20 20 29  arFunc         )
ce60: 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 61  ,.    FUNCTION(a
ce70: 62 73 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  bs,             
ce80: 20 20 20 31 2c 20 30 2c 20 30 2c 20 61 62 73 46     1, 0, 0, absF
ce90: 75 6e 63 20 20 20 20 20 20 20 20 20 20 29 2c 0a  unc          ),.
cea0: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f  #ifndef SQLITE_O
ceb0: 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f 49  MIT_FLOATING_POI
cec0: 4e 54 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28  NT.    FUNCTION(
ced0: 72 6f 75 6e 64 2c 20 20 20 20 20 20 20 20 20 20  round,          
cee0: 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 72 6f 75      1, 0, 0, rou
cef0: 6e 64 46 75 6e 63 20 20 20 20 20 20 20 20 29 2c  ndFunc        ),
cf00: 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 72 6f  .    FUNCTION(ro
cf10: 75 6e 64 2c 20 20 20 20 20 20 20 20 20 20 20 20  und,            
cf20: 20 20 32 2c 20 30 2c 20 30 2c 20 72 6f 75 6e 64    2, 0, 0, round
cf30: 46 75 6e 63 20 20 20 20 20 20 20 20 29 2c 0a 23  Func        ),.#
cf40: 65 6e 64 69 66 0a 20 20 20 20 46 55 4e 43 54 49  endif.    FUNCTI
cf50: 4f 4e 28 75 70 70 65 72 2c 20 20 20 20 20 20 20  ON(upper,       
cf60: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20         1, 0, 0, 
cf70: 75 70 70 65 72 46 75 6e 63 20 20 20 20 20 20 20  upperFunc       
cf80: 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e   ),.    FUNCTION
cf90: 28 6c 6f 77 65 72 2c 20 20 20 20 20 20 20 20 20  (lower,         
cfa0: 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 6c 6f       1, 0, 0, lo
cfb0: 77 65 72 46 75 6e 63 20 20 20 20 20 20 20 20 29  werFunc        )
cfc0: 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 63  ,.    FUNCTION(c
cfd0: 6f 61 6c 65 73 63 65 2c 20 20 20 20 20 20 20 20  oalesce,        
cfe0: 20 20 20 31 2c 20 30 2c 20 30 2c 20 30 20 20 20     1, 0, 0, 0   
cff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 29 2c 0a               ),.
d000: 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 63 6f 61      FUNCTION(coa
d010: 6c 65 73 63 65 2c 20 20 20 20 20 20 20 20 20 20  lesce,          
d020: 20 30 2c 20 30 2c 20 30 2c 20 30 20 20 20 20 20   0, 0, 0, 0     
d030: 20 20 20 20 20 20 20 20 20 20 20 29 2c 0a 20 20             ),.  
d040: 20 20 46 55 4e 43 54 49 4f 4e 32 28 63 6f 61 6c    FUNCTION2(coal
d050: 65 73 63 65 2c 20 20 20 20 20 20 20 20 20 2d 31  esce,         -1
d060: 2c 20 30 2c 20 30 2c 20 6e 6f 6f 70 46 75 6e 63  , 0, 0, noopFunc
d070: 2c 20 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 43  ,  SQLITE_FUNC_C
d080: 4f 41 4c 45 53 43 45 29 2c 0a 20 20 20 20 46 55  OALESCE),.    FU
d090: 4e 43 54 49 4f 4e 28 68 65 78 2c 20 20 20 20 20  NCTION(hex,     
d0a0: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c             1, 0,
d0b0: 20 30 2c 20 68 65 78 46 75 6e 63 20 20 20 20 20   0, hexFunc     
d0c0: 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43       ),.    FUNC
d0d0: 54 49 4f 4e 32 28 69 66 6e 75 6c 6c 2c 20 20 20  TION2(ifnull,   
d0e0: 20 20 20 20 20 20 20 20 20 32 2c 20 30 2c 20 30           2, 0, 0
d0f0: 2c 20 6e 6f 6f 70 46 75 6e 63 2c 20 20 53 51 4c  , noopFunc,  SQL
d100: 49 54 45 5f 46 55 4e 43 5f 43 4f 41 4c 45 53 43  ITE_FUNC_COALESC
d110: 45 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e  E),.    FUNCTION
d120: 32 28 75 6e 6c 69 6b 65 6c 79 2c 20 20 20 20 20  2(unlikely,     
d130: 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 6e 6f       1, 0, 0, no
d140: 6f 70 46 75 6e 63 2c 20 20 53 51 4c 49 54 45 5f  opFunc,  SQLITE_
d150: 46 55 4e 43 5f 55 4e 4c 49 4b 45 4c 59 29 2c 0a  FUNC_UNLIKELY),.
d160: 20 20 20 20 46 55 4e 43 54 49 4f 4e 32 28 6c 69      FUNCTION2(li
d170: 6b 65 6c 69 68 6f 6f 64 2c 20 20 20 20 20 20 20  kelihood,       
d180: 20 32 2c 20 30 2c 20 30 2c 20 6e 6f 6f 70 46 75   2, 0, 0, noopFu
d190: 6e 63 2c 20 20 53 51 4c 49 54 45 5f 46 55 4e 43  nc,  SQLITE_FUNC
d1a0: 5f 55 4e 4c 49 4b 45 4c 59 29 2c 0a 20 20 20 20  _UNLIKELY),.    
d1b0: 46 55 4e 43 54 49 4f 4e 32 28 6c 69 6b 65 6c 79  FUNCTION2(likely
d1c0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20  ,            1, 
d1d0: 30 2c 20 30 2c 20 6e 6f 6f 70 46 75 6e 63 2c 20  0, 0, noopFunc, 
d1e0: 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 55 4e 4c   SQLITE_FUNC_UNL
d1f0: 49 4b 45 4c 59 29 2c 0a 20 20 20 20 56 46 55 4e  IKELY),.    VFUN
d200: 43 54 49 4f 4e 28 72 61 6e 64 6f 6d 2c 20 20 20  CTION(random,   
d210: 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30           0, 0, 0
d220: 2c 20 72 61 6e 64 6f 6d 46 75 6e 63 20 20 20 20  , randomFunc    
d230: 20 20 20 29 2c 0a 20 20 20 20 56 46 55 4e 43 54     ),.    VFUNCT
d240: 49 4f 4e 28 72 61 6e 64 6f 6d 62 6c 6f 62 2c 20  ION(randomblob, 
d250: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20         1, 0, 0, 
d260: 72 61 6e 64 6f 6d 42 6c 6f 62 20 20 20 20 20 20  randomBlob      
d270: 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e   ),.    FUNCTION
d280: 28 6e 75 6c 6c 69 66 2c 20 20 20 20 20 20 20 20  (nullif,        
d290: 20 20 20 20 20 32 2c 20 30 2c 20 31 2c 20 6e 75       2, 0, 1, nu
d2a0: 6c 6c 69 66 46 75 6e 63 20 20 20 20 20 20 20 29  llifFunc       )
d2b0: 2c 0a 20 20 20 20 44 46 55 4e 43 54 49 4f 4e 28  ,.    DFUNCTION(
d2c0: 73 71 6c 69 74 65 5f 76 65 72 73 69 6f 6e 2c 20  sqlite_version, 
d2d0: 20 20 20 30 2c 20 30 2c 20 30 2c 20 76 65 72 73     0, 0, 0, vers
d2e0: 69 6f 6e 46 75 6e 63 20 20 20 20 20 20 29 2c 0a  ionFunc      ),.
d2f0: 20 20 20 20 44 46 55 4e 43 54 49 4f 4e 28 73 71      DFUNCTION(sq
d300: 6c 69 74 65 5f 73 6f 75 72 63 65 5f 69 64 2c 20  lite_source_id, 
d310: 20 30 2c 20 30 2c 20 30 2c 20 73 6f 75 72 63 65   0, 0, 0, source
d320: 69 64 46 75 6e 63 20 20 20 20 20 29 2c 0a 20 20  idFunc     ),.  
d330: 20 20 46 55 4e 43 54 49 4f 4e 28 73 71 6c 69 74    FUNCTION(sqlit
d340: 65 5f 6c 6f 67 2c 20 20 20 20 20 20 20 20 20 32  e_log,         2
d350: 2c 20 30 2c 20 30 2c 20 65 72 72 6c 6f 67 46 75  , 0, 0, errlogFu
d360: 6e 63 20 20 20 20 20 20 20 29 2c 0a 23 69 66 20  nc       ),.#if 
d370: 53 51 4c 49 54 45 5f 55 53 45 52 5f 41 55 54 48  SQLITE_USER_AUTH
d380: 45 4e 54 49 43 41 54 49 4f 4e 0a 20 20 20 20 46  ENTICATION.    F
d390: 55 4e 43 54 49 4f 4e 28 73 71 6c 69 74 65 5f 63  UNCTION(sqlite_c
d3a0: 72 79 70 74 2c 20 20 20 20 20 20 20 32 2c 20 30  rypt,       2, 0
d3b0: 2c 20 30 2c 20 73 71 6c 69 74 65 33 43 72 79 70  , 0, sqlite3Cryp
d3c0: 74 46 75 6e 63 20 29 2c 0a 23 65 6e 64 69 66 0a  tFunc ),.#endif.
d3d0: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f  #ifndef SQLITE_O
d3e0: 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54 49 4f  MIT_COMPILEOPTIO
d3f0: 4e 5f 44 49 41 47 53 0a 20 20 20 20 44 46 55 4e  N_DIAGS.    DFUN
d400: 43 54 49 4f 4e 28 73 71 6c 69 74 65 5f 63 6f 6d  CTION(sqlite_com
d410: 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65 64 2c  pileoption_used,
d420: 31 2c 20 30 2c 20 30 2c 20 63 6f 6d 70 69 6c 65  1, 0, 0, compile
d430: 6f 70 74 69 6f 6e 75 73 65 64 46 75 6e 63 20 20  optionusedFunc  
d440: 29 2c 0a 20 20 20 20 44 46 55 4e 43 54 49 4f 4e  ),.    DFUNCTION
d450: 28 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 6f  (sqlite_compileo
d460: 70 74 69 6f 6e 5f 67 65 74 2c 20 31 2c 20 30 2c  ption_get, 1, 0,
d470: 20 30 2c 20 63 6f 6d 70 69 6c 65 6f 70 74 69 6f   0, compileoptio
d480: 6e 67 65 74 46 75 6e 63 20 20 29 2c 0a 23 65 6e  ngetFunc  ),.#en
d490: 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d  dif /* SQLITE_OM
d4a0: 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54 49 4f 4e  IT_COMPILEOPTION
d4b0: 5f 44 49 41 47 53 20 2a 2f 0a 20 20 20 20 46 55  _DIAGS */.    FU
d4c0: 4e 43 54 49 4f 4e 28 71 75 6f 74 65 2c 20 20 20  NCTION(quote,   
d4d0: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c             1, 0,
d4e0: 20 30 2c 20 71 75 6f 74 65 46 75 6e 63 20 20 20   0, quoteFunc   
d4f0: 20 20 20 20 20 29 2c 0a 20 20 20 20 56 46 55 4e       ),.    VFUN
d500: 43 54 49 4f 4e 28 6c 61 73 74 5f 69 6e 73 65 72  CTION(last_inser
d510: 74 5f 72 6f 77 69 64 2c 20 30 2c 20 30 2c 20 30  t_rowid, 0, 0, 0
d520: 2c 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f  , last_insert_ro
d530: 77 69 64 29 2c 0a 20 20 20 20 56 46 55 4e 43 54  wid),.    VFUNCT
d540: 49 4f 4e 28 63 68 61 6e 67 65 73 2c 20 20 20 20  ION(changes,    
d550: 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20         0, 0, 0, 
d560: 63 68 61 6e 67 65 73 20 20 20 20 20 20 20 20 20  changes         
d570: 20 29 2c 0a 20 20 20 20 56 46 55 4e 43 54 49 4f   ),.    VFUNCTIO
d580: 4e 28 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 2c  N(total_changes,
d590: 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 74 6f       0, 0, 0, to
d5a0: 74 61 6c 5f 63 68 61 6e 67 65 73 20 20 20 20 29  tal_changes    )
d5b0: 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 72  ,.    FUNCTION(r
d5c0: 65 70 6c 61 63 65 2c 20 20 20 20 20 20 20 20 20  eplace,         
d5d0: 20 20 20 33 2c 20 30 2c 20 30 2c 20 72 65 70 6c     3, 0, 0, repl
d5e0: 61 63 65 46 75 6e 63 20 20 20 20 20 20 29 2c 0a  aceFunc      ),.
d5f0: 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 7a 65 72      FUNCTION(zer
d600: 6f 62 6c 6f 62 2c 20 20 20 20 20 20 20 20 20 20  oblob,          
d610: 20 31 2c 20 30 2c 20 30 2c 20 7a 65 72 6f 62 6c   1, 0, 0, zerobl
d620: 6f 62 46 75 6e 63 20 20 20 20 20 29 2c 0a 20 20  obFunc     ),.  
d630: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 53 4f  #ifdef SQLITE_SO
d640: 55 4e 44 45 58 0a 20 20 20 20 46 55 4e 43 54 49  UNDEX.    FUNCTI
d650: 4f 4e 28 73 6f 75 6e 64 65 78 2c 20 20 20 20 20  ON(soundex,     
d660: 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20         1, 0, 0, 
d670: 73 6f 75 6e 64 65 78 46 75 6e 63 20 20 20 20 20  soundexFunc     
d680: 20 29 2c 0a 20 20 23 65 6e 64 69 66 0a 20 20 23   ),.  #endif.  #
d690: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  ifndef SQLITE_OM
d6a0: 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f  IT_LOAD_EXTENSIO
d6b0: 4e 0a 20 20 20 20 56 46 55 4e 43 54 49 4f 4e 28  N.    VFUNCTION(
d6c0: 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e 2c 20  load_extension, 
d6d0: 20 20 20 31 2c 20 30 2c 20 30 2c 20 6c 6f 61 64     1, 0, 0, load
d6e0: 45 78 74 20 20 20 20 20 20 20 20 20 20 29 2c 0a  Ext          ),.
d6f0: 20 20 20 20 56 46 55 4e 43 54 49 4f 4e 28 6c 6f      VFUNCTION(lo
d700: 61 64 5f 65 78 74 65 6e 73 69 6f 6e 2c 20 20 20  ad_extension,   
d710: 20 32 2c 20 30 2c 20 30 2c 20 6c 6f 61 64 45 78   2, 0, 0, loadEx
d720: 74 20 20 20 20 20 20 20 20 20 20 29 2c 0a 20 20  t          ),.  
d730: 23 65 6e 64 69 66 0a 20 20 20 20 41 47 47 52 45  #endif.    AGGRE
d740: 47 41 54 45 28 73 75 6d 2c 20 20 20 20 20 20 20  GATE(sum,       
d750: 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c          1, 0, 0,
d760: 20 73 75 6d 53 74 65 70 2c 20 20 20 20 20 20 20   sumStep,       
d770: 20 20 73 75 6d 46 69 6e 61 6c 69 7a 65 20 20 20    sumFinalize   
d780: 20 29 2c 0a 20 20 20 20 41 47 47 52 45 47 41 54   ),.    AGGREGAT
d790: 45 28 74 6f 74 61 6c 2c 20 20 20 20 20 20 20 20  E(total,        
d7a0: 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 73 75       1, 0, 0, su
d7b0: 6d 53 74 65 70 2c 20 20 20 20 20 20 20 20 20 74  mStep,         t
d7c0: 6f 74 61 6c 46 69 6e 61 6c 69 7a 65 20 20 20 20  otalFinalize    
d7d0: 29 2c 0a 20 20 20 20 41 47 47 52 45 47 41 54 45  ),.    AGGREGATE
d7e0: 28 61 76 67 2c 20 20 20 20 20 20 20 20 20 20 20  (avg,           
d7f0: 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 73 75 6d      1, 0, 0, sum
d800: 53 74 65 70 2c 20 20 20 20 20 20 20 20 20 61 76  Step,         av
d810: 67 46 69 6e 61 6c 69 7a 65 20 20 20 20 29 2c 0a  gFinalize    ),.
d820: 20 20 20 20 41 47 47 52 45 47 41 54 45 32 28 63      AGGREGATE2(c
d830: 6f 75 6e 74 2c 20 20 20 20 20 20 20 20 20 20 20  ount,           
d840: 20 30 2c 20 30 2c 20 30 2c 20 63 6f 75 6e 74 53   0, 0, 0, countS
d850: 74 65 70 2c 20 20 20 20 20 20 20 63 6f 75 6e 74  tep,       count
d860: 46 69 6e 61 6c 69 7a 65 2c 0a 20 20 20 20 20 20  Finalize,.      
d870: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f           SQLITE_
d880: 46 55 4e 43 5f 43 4f 55 4e 54 20 20 29 2c 0a 20  FUNC_COUNT  ),. 
d890: 20 20 20 41 47 47 52 45 47 41 54 45 28 63 6f 75     AGGREGATE(cou
d8a0: 6e 74 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  nt,             
d8b0: 31 2c 20 30 2c 20 30 2c 20 63 6f 75 6e 74 53 74  1, 0, 0, countSt
d8c0: 65 70 2c 20 20 20 20 20 20 20 63 6f 75 6e 74 46  ep,       countF
d8d0: 69 6e 61 6c 69 7a 65 20 20 29 2c 0a 20 20 20 20  inalize  ),.    
d8e0: 41 47 47 52 45 47 41 54 45 28 67 72 6f 75 70 5f  AGGREGATE(group_
d8f0: 63 6f 6e 63 61 74 2c 20 20 20 20 20 20 31 2c 20  concat,      1, 
d900: 30 2c 20 30 2c 20 67 72 6f 75 70 43 6f 6e 63 61  0, 0, groupConca
d910: 74 53 74 65 70 2c 20 67 72 6f 75 70 43 6f 6e 63  tStep, groupConc
d920: 61 74 46 69 6e 61 6c 69 7a 65 29 2c 0a 20 20 20  atFinalize),.   
d930: 20 41 47 47 52 45 47 41 54 45 28 67 72 6f 75 70   AGGREGATE(group
d940: 5f 63 6f 6e 63 61 74 2c 20 20 20 20 20 20 32 2c  _concat,      2,
d950: 20 30 2c 20 30 2c 20 67 72 6f 75 70 43 6f 6e 63   0, 0, groupConc
d960: 61 74 53 74 65 70 2c 20 67 72 6f 75 70 43 6f 6e  atStep, groupCon
d970: 63 61 74 46 69 6e 61 6c 69 7a 65 29 2c 0a 20 20  catFinalize),.  
d980: 0a 20 20 20 20 4c 49 4b 45 46 55 4e 43 28 67 6c  .    LIKEFUNC(gl
d990: 6f 62 2c 20 32 2c 20 26 67 6c 6f 62 49 6e 66 6f  ob, 2, &globInfo
d9a0: 2c 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4c 49  , SQLITE_FUNC_LI
d9b0: 4b 45 7c 53 51 4c 49 54 45 5f 46 55 4e 43 5f 43  KE|SQLITE_FUNC_C
d9c0: 41 53 45 29 2c 0a 20 20 23 69 66 64 65 66 20 53  ASE),.  #ifdef S
d9d0: 51 4c 49 54 45 5f 43 41 53 45 5f 53 45 4e 53 49  QLITE_CASE_SENSI
d9e0: 54 49 56 45 5f 4c 49 4b 45 0a 20 20 20 20 4c 49  TIVE_LIKE.    LI
d9f0: 4b 45 46 55 4e 43 28 6c 69 6b 65 2c 20 32 2c 20  KEFUNC(like, 2, 
da00: 26 6c 69 6b 65 49 6e 66 6f 41 6c 74 2c 20 53 51  &likeInfoAlt, SQ
da10: 4c 49 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 7c 53  LITE_FUNC_LIKE|S
da20: 51 4c 49 54 45 5f 46 55 4e 43 5f 43 41 53 45 29  QLITE_FUNC_CASE)
da30: 2c 0a 20 20 20 20 4c 49 4b 45 46 55 4e 43 28 6c  ,.    LIKEFUNC(l
da40: 69 6b 65 2c 20 33 2c 20 26 6c 69 6b 65 49 6e 66  ike, 3, &likeInf
da50: 6f 41 6c 74 2c 20 53 51 4c 49 54 45 5f 46 55 4e  oAlt, SQLITE_FUN
da60: 43 5f 4c 49 4b 45 7c 53 51 4c 49 54 45 5f 46 55  C_LIKE|SQLITE_FU
da70: 4e 43 5f 43 41 53 45 29 2c 0a 20 20 23 65 6c 73  NC_CASE),.  #els
da80: 65 0a 20 20 20 20 4c 49 4b 45 46 55 4e 43 28 6c  e.    LIKEFUNC(l
da90: 69 6b 65 2c 20 32 2c 20 26 6c 69 6b 65 49 6e 66  ike, 2, &likeInf
daa0: 6f 4e 6f 72 6d 2c 20 53 51 4c 49 54 45 5f 46 55  oNorm, SQLITE_FU
dab0: 4e 43 5f 4c 49 4b 45 29 2c 0a 20 20 20 20 4c 49  NC_LIKE),.    LI
dac0: 4b 45 46 55 4e 43 28 6c 69 6b 65 2c 20 33 2c 20  KEFUNC(like, 3, 
dad0: 26 6c 69 6b 65 49 6e 66 6f 4e 6f 72 6d 2c 20 53  &likeInfoNorm, S
dae0: 51 4c 49 54 45 5f 46 55 4e 43 5f 4c 49 4b 45 29  QLITE_FUNC_LIKE)
daf0: 2c 0a 20 20 23 65 6e 64 69 66 0a 20 20 7d 3b 0a  ,.  #endif.  };.
db00: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 46 75 6e 63  .  int i;.  Func
db10: 44 65 66 48 61 73 68 20 2a 70 48 61 73 68 20 3d  DefHash *pHash =
db20: 20 26 47 4c 4f 42 41 4c 28 46 75 6e 63 44 65 66   &GLOBAL(FuncDef
db30: 48 61 73 68 2c 20 73 71 6c 69 74 65 33 47 6c 6f  Hash, sqlite3Glo
db40: 62 61 6c 46 75 6e 63 74 69 6f 6e 73 29 3b 0a 20  balFunctions);. 
db50: 20 46 75 6e 63 44 65 66 20 2a 61 46 75 6e 63 20   FuncDef *aFunc 
db60: 3d 20 28 46 75 6e 63 44 65 66 2a 29 26 47 4c 4f  = (FuncDef*)&GLO
db70: 42 41 4c 28 46 75 6e 63 44 65 66 2c 20 61 42 75  BAL(FuncDef, aBu
db80: 69 6c 74 69 6e 46 75 6e 63 29 3b 0a 0a 20 20 66  iltinFunc);..  f
db90: 6f 72 28 69 3d 30 3b 20 69 3c 41 72 72 61 79 53  or(i=0; i<ArrayS
dba0: 69 7a 65 28 61 42 75 69 6c 74 69 6e 46 75 6e 63  ize(aBuiltinFunc
dbb0: 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 73 71 6c  ); i++){.    sql
dbc0: 69 74 65 33 46 75 6e 63 44 65 66 49 6e 73 65 72  ite3FuncDefInser
dbd0: 74 28 70 48 61 73 68 2c 20 26 61 46 75 6e 63 5b  t(pHash, &aFunc[
dbe0: 69 5d 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74  i]);.  }.  sqlit
dbf0: 65 33 52 65 67 69 73 74 65 72 44 61 74 65 54 69  e3RegisterDateTi
dc00: 6d 65 46 75 6e 63 74 69 6f 6e 73 28 29 3b 0a 23  meFunctions();.#
dc10: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  ifndef SQLITE_OM
dc20: 49 54 5f 41 4c 54 45 52 54 41 42 4c 45 0a 20 20  IT_ALTERTABLE.  
dc30: 73 71 6c 69 74 65 33 41 6c 74 65 72 46 75 6e 63  sqlite3AlterFunc
dc40: 74 69 6f 6e 73 28 29 3b 0a 23 65 6e 64 69 66 0a  tions();.#endif.
dc50: 23 69 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49  #if defined(SQLI
dc60: 54 45 5f 45 4e 41 42 4c 45 5f 53 54 41 54 33 29  TE_ENABLE_STAT3)
dc70: 20 7c 7c 20 64 65 66 69 6e 65 64 28 53 51 4c 49   || defined(SQLI
dc80: 54 45 5f 45 4e 41 42 4c 45 5f 53 54 41 54 34 29  TE_ENABLE_STAT4)
dc90: 0a 20 20 73 71 6c 69 74 65 33 41 6e 61 6c 79 7a  .  sqlite3Analyz
dca0: 65 46 75 6e 63 74 69 6f 6e 73 28 29 3b 0a 23 65  eFunctions();.#e
dcb0: 6e 64 69 66 0a 7d 0a                             ndif.}.