/ Hex Artifact Content
Login

Artifact 181f992e5495644434c4f0e3cc72362a78c295eb2cf3ff4d02498b8bde7aa276:


0000: 2f 2a 0a 2a 2a 20 32 30 30 38 20 4d 61 72 63 68  /*.** 2008 March
0010: 20 31 39 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75   19.**.** The au
0020: 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63  thor disclaims c
0030: 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73  opyright to this
0040: 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49   source code.  I
0050: 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20  n place of.** a 
0060: 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65  legal notice, he
0070: 72 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67  re is a blessing
0080: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79  :.**.**    May y
0090: 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e  ou do good and n
00a0: 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d  ot evil..**    M
00b0: 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67  ay you find forg
00c0: 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72  iveness for your
00d0: 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65  self and forgive
00e0: 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d   others..**    M
00f0: 61 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65  ay you share fre
0100: 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e  ely, never takin
0110: 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20  g more than you 
0120: 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a  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 0a 2a 2a 20 43 6f 64 65 20 66 6f 72 20 74  **.** Code for t
0180: 65 73 74 69 6e 67 20 61 6c 6c 20 73 6f 72 74 73  esting all sorts
0190: 20 6f 66 20 53 51 4c 69 74 65 20 69 6e 74 65 72   of SQLite inter
01a0: 66 61 63 65 73 2e 20 20 54 68 69 73 20 63 6f 64  faces.  This cod
01b0: 65 0a 2a 2a 20 69 6d 70 6c 65 6d 65 6e 74 73 20  e.** implements 
01c0: 6e 65 77 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e  new SQL function
01d0: 73 20 75 73 65 64 20 62 79 20 74 68 65 20 74 65  s used by the te
01e0: 73 74 20 73 63 72 69 70 74 73 2e 0a 2a 2f 0a 23  st scripts..*/.#
01f0: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 33  include "sqlite3
0200: 2e 68 22 0a 23 69 66 20 64 65 66 69 6e 65 64 28  .h".#if defined(
0210: 49 4e 43 4c 55 44 45 5f 53 51 4c 49 54 45 5f 54  INCLUDE_SQLITE_T
0220: 43 4c 5f 48 29 0a 23 20 20 69 6e 63 6c 75 64 65  CL_H).#  include
0230: 20 22 73 71 6c 69 74 65 5f 74 63 6c 2e 68 22 0a   "sqlite_tcl.h".
0240: 23 65 6c 73 65 0a 23 20 20 69 6e 63 6c 75 64 65  #else.#  include
0250: 20 22 74 63 6c 2e 68 22 0a 23 65 6e 64 69 66 0a   "tcl.h".#endif.
0260: 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62  #include <stdlib
0270: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74  .h>.#include <st
0280: 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 65  ring.h>.#include
0290: 20 3c 61 73 73 65 72 74 2e 68 3e 0a 0a 23 69 6e   <assert.h>..#in
02a0: 63 6c 75 64 65 20 22 73 71 6c 69 74 65 49 6e 74  clude "sqliteInt
02b0: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 76 64  .h".#include "vd
02c0: 62 65 49 6e 74 2e 68 22 0a 0a 2f 2a 0a 2a 2a 20  beInt.h"../*.** 
02d0: 41 6c 6c 6f 63 61 74 65 20 6e 42 79 74 65 20 62  Allocate nByte b
02e0: 79 74 65 73 20 6f 66 20 73 70 61 63 65 20 75 73  ytes of space us
02f0: 69 6e 67 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c  ing sqlite3_mall
0300: 6f 63 28 29 2e 20 49 66 20 74 68 65 0a 2a 2a 20  oc(). If the.** 
0310: 61 6c 6c 6f 63 61 74 69 6f 6e 20 66 61 69 6c 73  allocation fails
0320: 2c 20 63 61 6c 6c 20 73 71 6c 69 74 65 33 5f 72  , call sqlite3_r
0330: 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65  esult_error_nome
0340: 6d 28 29 20 74 6f 20 6e 6f 74 69 66 79 0a 2a 2a  m() to notify.**
0350: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 68 61   the database ha
0360: 6e 64 6c 65 20 74 68 61 74 20 6d 61 6c 6c 6f 63  ndle that malloc
0370: 28 29 20 68 61 73 20 66 61 69 6c 65 64 2e 0a 2a  () has failed..*
0380: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 2a 74  /.static void *t
0390: 65 73 74 43 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63  estContextMalloc
03a0: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74  (sqlite3_context
03b0: 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e 74 20 6e   *context, int n
03c0: 42 79 74 65 29 7b 0a 20 20 63 68 61 72 20 2a 7a  Byte){.  char *z
03d0: 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f   = sqlite3_mallo
03e0: 63 28 6e 42 79 74 65 29 3b 0a 20 20 69 66 28 20  c(nByte);.  if( 
03f0: 21 7a 20 26 26 20 6e 42 79 74 65 3e 30 20 29 7b  !z && nByte>0 ){
0400: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73  .    sqlite3_res
0410: 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28  ult_error_nomem(
0420: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 7d 0a 20 20  context);.  }.  
0430: 72 65 74 75 72 6e 20 7a 3b 0a 7d 0a 0a 2f 2a 0a  return z;.}../*.
0440: 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e  ** This function
0450: 20 67 65 6e 65 72 61 74 65 73 20 61 20 73 74 72   generates a str
0460: 69 6e 67 20 6f 66 20 72 61 6e 64 6f 6d 20 63 68  ing of random ch
0470: 61 72 61 63 74 65 72 73 2e 20 20 55 73 65 64 20  aracters.  Used 
0480: 66 6f 72 0a 2a 2a 20 67 65 6e 65 72 61 74 69 6e  for.** generatin
0490: 67 20 74 65 73 74 20 64 61 74 61 2e 0a 2a 2f 0a  g test data..*/.
04a0: 73 74 61 74 69 63 20 76 6f 69 64 20 72 61 6e 64  static void rand
04b0: 53 74 72 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74  Str(sqlite3_cont
04c0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 69 6e  ext *context, in
04d0: 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f  t argc, sqlite3_
04e0: 76 61 6c 75 65 20 2a 2a 61 72 67 76 29 7b 0a 20  value **argv){. 
04f0: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 75 6e   static const un
0500: 73 69 67 6e 65 64 20 63 68 61 72 20 7a 53 72 63  signed char zSrc
0510: 5b 5d 20 3d 20 0a 20 20 20 20 20 22 61 62 63 64  [] = .     "abcd
0520: 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74  efghijklmnopqrst
0530: 75 76 77 78 79 7a 22 0a 20 20 20 20 20 22 41 42  uvwxyz".     "AB
0540: 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52  CDEFGHIJKLMNOPQR
0550: 53 54 55 56 57 58 59 5a 22 0a 20 20 20 20 20 22  STUVWXYZ".     "
0560: 30 31 32 33 34 35 36 37 38 39 22 0a 20 20 20 20  0123456789".    
0570: 20 22 2e 2d 21 2c 3a 2a 5e 2b 3d 5f 7c 3f 2f 3c   ".-!,:*^+=_|?/<
0580: 3e 20 22 3b 0a 20 20 69 6e 74 20 69 4d 69 6e 2c  > ";.  int iMin,
0590: 20 69 4d 61 78 2c 20 6e 2c 20 72 2c 20 69 3b 0a   iMax, n, r, i;.
05a0: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20    unsigned char 
05b0: 7a 42 75 66 5b 31 30 30 30 5d 3b 0a 0a 20 20 2f  zBuf[1000];..  /
05c0: 2a 20 49 74 20 75 73 65 64 20 74 6f 20 62 65 20  * It used to be 
05d0: 70 6f 73 73 69 62 6c 65 20 74 6f 20 63 61 6c 6c  possible to call
05e0: 20 72 61 6e 64 73 74 72 28 29 20 77 69 74 68 20   randstr() with 
05f0: 61 6e 79 20 6e 75 6d 62 65 72 20 6f 66 20 61 72  any number of ar
0600: 67 75 6d 65 6e 74 73 2c 0a 20 20 2a 2a 20 62 75  guments,.  ** bu
0610: 74 20 6e 6f 77 20 69 74 20 69 73 20 72 65 67 69  t now it is regi
0620: 73 74 65 72 65 64 20 77 69 74 68 20 53 51 4c 69  stered with SQLi
0630: 74 65 20 61 73 20 72 65 71 75 69 72 69 6e 67 20  te as requiring 
0640: 65 78 61 63 74 6c 79 20 32 2e 0a 20 20 2a 2f 0a  exactly 2..  */.
0650: 20 20 61 73 73 65 72 74 28 61 72 67 63 3d 3d 32    assert(argc==2
0660: 29 3b 0a 0a 20 20 69 4d 69 6e 20 3d 20 73 71 6c  );..  iMin = sql
0670: 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61  ite3_value_int(a
0680: 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 69  rgv[0]);.  if( i
0690: 4d 69 6e 3c 30 20 29 20 69 4d 69 6e 20 3d 20 30  Min<0 ) iMin = 0
06a0: 3b 0a 20 20 69 66 28 20 69 4d 69 6e 3e 3d 73 69  ;.  if( iMin>=si
06b0: 7a 65 6f 66 28 7a 42 75 66 29 20 29 20 69 4d 69  zeof(zBuf) ) iMi
06c0: 6e 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75 66 29  n = sizeof(zBuf)
06d0: 2d 31 3b 0a 20 20 69 4d 61 78 20 3d 20 73 71 6c  -1;.  iMax = sql
06e0: 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61  ite3_value_int(a
06f0: 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 69  rgv[1]);.  if( i
0700: 4d 61 78 3c 69 4d 69 6e 20 29 20 69 4d 61 78 20  Max<iMin ) iMax 
0710: 3d 20 69 4d 69 6e 3b 0a 20 20 69 66 28 20 69 4d  = iMin;.  if( iM
0720: 61 78 3e 3d 73 69 7a 65 6f 66 28 7a 42 75 66 29  ax>=sizeof(zBuf)
0730: 20 29 20 69 4d 61 78 20 3d 20 73 69 7a 65 6f 66   ) iMax = sizeof
0740: 28 7a 42 75 66 29 2d 31 3b 0a 20 20 6e 20 3d 20  (zBuf)-1;.  n = 
0750: 69 4d 69 6e 3b 0a 20 20 69 66 28 20 69 4d 61 78  iMin;.  if( iMax
0760: 3e 69 4d 69 6e 20 29 7b 0a 20 20 20 20 73 71 6c  >iMin ){.    sql
0770: 69 74 65 33 5f 72 61 6e 64 6f 6d 6e 65 73 73 28  ite3_randomness(
0780: 73 69 7a 65 6f 66 28 72 29 2c 20 26 72 29 3b 0a  sizeof(r), &r);.
0790: 20 20 20 20 72 20 26 3d 20 30 78 37 66 66 66 66      r &= 0x7ffff
07a0: 66 66 66 3b 0a 20 20 20 20 6e 20 2b 3d 20 72 25  fff;.    n += r%
07b0: 28 69 4d 61 78 20 2b 20 31 20 2d 20 69 4d 69 6e  (iMax + 1 - iMin
07c0: 29 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28  );.  }.  assert(
07d0: 20 6e 3c 73 69 7a 65 6f 66 28 7a 42 75 66 29 20   n<sizeof(zBuf) 
07e0: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 61 6e  );.  sqlite3_ran
07f0: 64 6f 6d 6e 65 73 73 28 6e 2c 20 7a 42 75 66 29  domness(n, zBuf)
0800: 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e  ;.  for(i=0; i<n
0810: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 7a 42 75 66  ; i++){.    zBuf
0820: 5b 69 5d 20 3d 20 7a 53 72 63 5b 7a 42 75 66 5b  [i] = zSrc[zBuf[
0830: 69 5d 25 28 73 69 7a 65 6f 66 28 7a 53 72 63 29  i]%(sizeof(zSrc)
0840: 2d 31 29 5d 3b 0a 20 20 7d 0a 20 20 7a 42 75 66  -1)];.  }.  zBuf
0850: 5b 6e 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74  [n] = 0;.  sqlit
0860: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63  e3_result_text(c
0870: 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 7a  ontext, (char*)z
0880: 42 75 66 2c 20 6e 2c 20 53 51 4c 49 54 45 5f 54  Buf, n, SQLITE_T
0890: 52 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 0a 2f 2a  RANSIENT);.}../*
08a0: 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e  .** The followin
08b0: 67 20 74 77 6f 20 53 51 4c 20 66 75 6e 63 74 69  g two SQL functi
08c0: 6f 6e 73 20 61 72 65 20 75 73 65 64 20 74 6f 20  ons are used to 
08d0: 74 65 73 74 20 72 65 74 75 72 6e 69 6e 67 20 61  test returning a
08e0: 20 74 65 78 74 0a 2a 2a 20 72 65 73 75 6c 74 20   text.** result 
08f0: 77 69 74 68 20 61 20 64 65 73 74 72 75 63 74 6f  with a destructo
0900: 72 2e 20 46 75 6e 63 74 69 6f 6e 20 27 74 65 73  r. Function 'tes
0910: 74 5f 64 65 73 74 72 75 63 74 6f 72 27 20 74 61  t_destructor' ta
0920: 6b 65 73 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74  kes one argument
0930: 0a 2a 2a 20 61 6e 64 20 72 65 74 75 72 6e 73 20  .** and returns 
0940: 74 68 65 20 73 61 6d 65 20 61 72 67 75 6d 65 6e  the same argumen
0950: 74 20 69 6e 74 65 72 70 72 65 74 65 64 20 61 73  t interpreted as
0960: 20 54 45 58 54 2e 20 41 20 64 65 73 74 72 75 63   TEXT. A destruc
0970: 74 6f 72 20 69 73 0a 2a 2a 20 70 61 73 73 65 64  tor is.** passed
0980: 20 77 69 74 68 20 74 68 65 20 73 71 6c 69 74 65   with the sqlite
0990: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 29 20  3_result_text() 
09a0: 63 61 6c 6c 2e 0a 2a 2a 0a 2a 2a 20 53 51 4c 20  call..**.** SQL 
09b0: 66 75 6e 63 74 69 6f 6e 20 27 74 65 73 74 5f 64  function 'test_d
09c0: 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 27  estructor_count'
09d0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d   returns the num
09e0: 62 65 72 20 6f 66 20 6f 75 74 73 74 61 6e 64 69  ber of outstandi
09f0: 6e 67 20 0a 2a 2a 20 61 6c 6c 6f 63 61 74 69 6f  ng .** allocatio
0a00: 6e 73 20 6d 61 64 65 20 62 79 20 27 74 65 73 74  ns made by 'test
0a10: 5f 64 65 73 74 72 75 63 74 6f 72 27 3b 0a 2a 2a  _destructor';.**
0a20: 0a 2a 2a 20 57 41 52 4e 49 4e 47 3a 20 4e 6f 74  .** WARNING: Not
0a30: 20 74 68 72 65 61 64 73 61 66 65 2e 0a 2a 2f 0a   threadsafe..*/.
0a40: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f  static int test_
0a50: 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74  destructor_count
0a60: 5f 76 61 72 20 3d 20 30 3b 0a 73 74 61 74 69 63  _var = 0;.static
0a70: 20 76 6f 69 64 20 64 65 73 74 72 75 63 74 6f 72   void destructor
0a80: 28 76 6f 69 64 20 2a 70 29 7b 0a 20 20 63 68 61  (void *p){.  cha
0a90: 72 20 2a 7a 56 61 6c 20 3d 20 28 63 68 61 72 20  r *zVal = (char 
0aa0: 2a 29 70 3b 0a 20 20 61 73 73 65 72 74 28 7a 56  *)p;.  assert(zV
0ab0: 61 6c 29 3b 0a 20 20 7a 56 61 6c 2d 2d 3b 0a 20  al);.  zVal--;. 
0ac0: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 56   sqlite3_free(zV
0ad0: 61 6c 29 3b 0a 20 20 74 65 73 74 5f 64 65 73 74  al);.  test_dest
0ae0: 72 75 63 74 6f 72 5f 63 6f 75 6e 74 5f 76 61 72  ructor_count_var
0af0: 2d 2d 3b 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69  --;.}.static voi
0b00: 64 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f  d test_destructo
0b10: 72 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  r(.  sqlite3_con
0b20: 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69  text *pCtx, .  i
0b30: 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74  nt nArg,.  sqlit
0b40: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a  e3_value **argv.
0b50: 29 7b 0a 20 20 63 68 61 72 20 2a 7a 56 61 6c 3b  ){.  char *zVal;
0b60: 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 0a 20  .  int len;.  . 
0b70: 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72   test_destructor
0b80: 5f 63 6f 75 6e 74 5f 76 61 72 2b 2b 3b 0a 20 20  _count_var++;.  
0b90: 61 73 73 65 72 74 28 20 6e 41 72 67 3d 3d 31 20  assert( nArg==1 
0ba0: 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33  );.  if( sqlite3
0bb0: 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76  _value_type(argv
0bc0: 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55 4c  [0])==SQLITE_NUL
0bd0: 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6c 65  L ) return;.  le
0be0: 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  n = sqlite3_valu
0bf0: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29  e_bytes(argv[0])
0c00: 3b 20 0a 20 20 7a 56 61 6c 20 3d 20 74 65 73 74  ; .  zVal = test
0c10: 43 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63 28 70 43  ContextMalloc(pC
0c20: 74 78 2c 20 6c 65 6e 2b 33 29 3b 0a 20 20 69 66  tx, len+3);.  if
0c30: 28 20 21 7a 56 61 6c 20 29 7b 0a 20 20 20 20 72  ( !zVal ){.    r
0c40: 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 7a 56 61  eturn;.  }.  zVa
0c50: 6c 5b 6c 65 6e 2b 31 5d 20 3d 20 30 3b 0a 20 20  l[len+1] = 0;.  
0c60: 7a 56 61 6c 5b 6c 65 6e 2b 32 5d 20 3d 20 30 3b  zVal[len+2] = 0;
0c70: 0a 20 20 7a 56 61 6c 2b 2b 3b 0a 20 20 6d 65 6d  .  zVal++;.  mem
0c80: 63 70 79 28 7a 56 61 6c 2c 20 73 71 6c 69 74 65  cpy(zVal, sqlite
0c90: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67  3_value_text(arg
0ca0: 76 5b 30 5d 29 2c 20 6c 65 6e 29 3b 0a 20 20 73  v[0]), len);.  s
0cb0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65  qlite3_result_te
0cc0: 78 74 28 70 43 74 78 2c 20 7a 56 61 6c 2c 20 2d  xt(pCtx, zVal, -
0cd0: 31 2c 20 64 65 73 74 72 75 63 74 6f 72 29 3b 0a  1, destructor);.
0ce0: 7d 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45  }.#ifndef SQLITE
0cf0: 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 73 74 61 74  _OMIT_UTF16.stat
0d00: 69 63 20 76 6f 69 64 20 74 65 73 74 5f 64 65 73  ic void test_des
0d10: 74 72 75 63 74 6f 72 31 36 28 0a 20 20 73 71 6c  tructor16(.  sql
0d20: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 43  ite3_context *pC
0d30: 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 2c  tx, .  int nArg,
0d40: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  .  sqlite3_value
0d50: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 68 61   **argv.){.  cha
0d60: 72 20 2a 7a 56 61 6c 3b 0a 20 20 69 6e 74 20 6c  r *zVal;.  int l
0d70: 65 6e 3b 0a 20 20 0a 20 20 74 65 73 74 5f 64 65  en;.  .  test_de
0d80: 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 5f 76  structor_count_v
0d90: 61 72 2b 2b 3b 0a 20 20 61 73 73 65 72 74 28 20  ar++;.  assert( 
0da0: 6e 41 72 67 3d 3d 31 20 29 3b 0a 20 20 69 66 28  nArg==1 );.  if(
0db0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74   sqlite3_value_t
0dc0: 79 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53 51  ype(argv[0])==SQ
0dd0: 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74 75  LITE_NULL ) retu
0de0: 72 6e 3b 0a 20 20 6c 65 6e 20 3d 20 73 71 6c 69  rn;.  len = sqli
0df0: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 31  te3_value_bytes1
0e00: 36 28 61 72 67 76 5b 30 5d 29 3b 20 0a 20 20 7a  6(argv[0]); .  z
0e10: 56 61 6c 20 3d 20 74 65 73 74 43 6f 6e 74 65 78  Val = testContex
0e20: 74 4d 61 6c 6c 6f 63 28 70 43 74 78 2c 20 6c 65  tMalloc(pCtx, le
0e30: 6e 2b 33 29 3b 0a 20 20 69 66 28 20 21 7a 56 61  n+3);.  if( !zVa
0e40: 6c 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 3b  l ){.    return;
0e50: 0a 20 20 7d 0a 20 20 7a 56 61 6c 5b 6c 65 6e 2b  .  }.  zVal[len+
0e60: 31 5d 20 3d 20 30 3b 0a 20 20 7a 56 61 6c 5b 6c  1] = 0;.  zVal[l
0e70: 65 6e 2b 32 5d 20 3d 20 30 3b 0a 20 20 7a 56 61  en+2] = 0;.  zVa
0e80: 6c 2b 2b 3b 0a 20 20 6d 65 6d 63 70 79 28 7a 56  l++;.  memcpy(zV
0e90: 61 6c 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  al, sqlite3_valu
0ea0: 65 5f 74 65 78 74 31 36 28 61 72 67 76 5b 30 5d  e_text16(argv[0]
0eb0: 29 2c 20 6c 65 6e 29 3b 0a 20 20 73 71 6c 69 74  ), len);.  sqlit
0ec0: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36  e3_result_text16
0ed0: 28 70 43 74 78 2c 20 7a 56 61 6c 2c 20 2d 31 2c  (pCtx, zVal, -1,
0ee0: 20 64 65 73 74 72 75 63 74 6f 72 29 3b 0a 7d 0a   destructor);.}.
0ef0: 23 65 6e 64 69 66 0a 73 74 61 74 69 63 20 76 6f  #endif.static vo
0f00: 69 64 20 74 65 73 74 5f 64 65 73 74 72 75 63 74  id test_destruct
0f10: 6f 72 5f 63 6f 75 6e 74 28 0a 20 20 73 71 6c 69  or_count(.  sqli
0f20: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 43 74  te3_context *pCt
0f30: 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 2c 0a  x, .  int nArg,.
0f40: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20    sqlite3_value 
0f50: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69  **argv.){.  sqli
0f60: 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 70  te3_result_int(p
0f70: 43 74 78 2c 20 74 65 73 74 5f 64 65 73 74 72 75  Ctx, test_destru
0f80: 63 74 6f 72 5f 63 6f 75 6e 74 5f 76 61 72 29 3b  ctor_count_var);
0f90: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f  .}../*.** The fo
0fa0: 6c 6c 6f 77 69 6e 67 20 61 67 67 72 65 67 61 74  llowing aggregat
0fb0: 65 20 66 75 6e 63 74 69 6f 6e 2c 20 74 65 73 74  e function, test
0fc0: 5f 61 67 67 5f 65 72 72 6d 73 67 31 36 28 29 2c  _agg_errmsg16(),
0fd0: 20 74 61 6b 65 73 20 7a 65 72 6f 20 0a 2a 2a 20   takes zero .** 
0fe0: 61 72 67 75 6d 65 6e 74 73 2e 20 49 74 20 72 65  arguments. It re
0ff0: 74 75 72 6e 73 20 74 68 65 20 74 65 78 74 20 76  turns the text v
1000: 61 6c 75 65 20 72 65 74 75 72 6e 65 64 20 62 79  alue returned by
1010: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 65 72 72   the sqlite3_err
1020: 6d 73 67 31 36 28 29 0a 2a 2a 20 41 50 49 20 66  msg16().** API f
1030: 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 23 69 66 6e  unction..*/.#ifn
1040: 64 65 66 20 53 51 4c 49 54 45 5f 55 4e 54 45 53  def SQLITE_UNTES
1050: 54 41 42 4c 45 0a 76 6f 69 64 20 73 71 6c 69 74  TABLE.void sqlit
1060: 65 33 42 65 67 69 6e 42 65 6e 69 67 6e 4d 61 6c  e3BeginBenignMal
1070: 6c 6f 63 28 76 6f 69 64 29 3b 0a 76 6f 69 64 20  loc(void);.void 
1080: 73 71 6c 69 74 65 33 45 6e 64 42 65 6e 69 67 6e  sqlite3EndBenign
1090: 4d 61 6c 6c 6f 63 28 76 6f 69 64 29 3b 0a 23 65  Malloc(void);.#e
10a0: 6c 73 65 0a 20 20 23 64 65 66 69 6e 65 20 73 71  lse.  #define sq
10b0: 6c 69 74 65 33 42 65 67 69 6e 42 65 6e 69 67 6e  lite3BeginBenign
10c0: 4d 61 6c 6c 6f 63 28 29 0a 20 20 23 64 65 66 69  Malloc().  #defi
10d0: 6e 65 20 73 71 6c 69 74 65 33 45 6e 64 42 65 6e  ne sqlite3EndBen
10e0: 69 67 6e 4d 61 6c 6c 6f 63 28 29 0a 23 65 6e 64  ignMalloc().#end
10f0: 69 66 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74  if.static void t
1100: 65 73 74 5f 61 67 67 5f 65 72 72 6d 73 67 31 36  est_agg_errmsg16
1110: 5f 73 74 65 70 28 73 71 6c 69 74 65 33 5f 63 6f  _step(sqlite3_co
1120: 6e 74 65 78 74 20 2a 61 2c 20 69 6e 74 20 62 2c  ntext *a, int b,
1130: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
1140: 63 29 7b 0a 7d 0a 73 74 61 74 69 63 20 76 6f 69  c){.}.static voi
1150: 64 20 74 65 73 74 5f 61 67 67 5f 65 72 72 6d 73  d test_agg_errms
1160: 67 31 36 5f 66 69 6e 61 6c 28 73 71 6c 69 74 65  g16_final(sqlite
1170: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 29 7b  3_context *ctx){
1180: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f  .#ifndef SQLITE_
1190: 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 63 6f 6e  OMIT_UTF16.  con
11a0: 73 74 20 76 6f 69 64 20 2a 7a 3b 0a 20 20 73 71  st void *z;.  sq
11b0: 6c 69 74 65 33 20 2a 20 64 62 20 3d 20 73 71 6c  lite3 * db = sql
11c0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f  ite3_context_db_
11d0: 68 61 6e 64 6c 65 28 63 74 78 29 3b 0a 20 20 73  handle(ctx);.  s
11e0: 71 6c 69 74 65 33 5f 61 67 67 72 65 67 61 74 65  qlite3_aggregate
11f0: 5f 63 6f 6e 74 65 78 74 28 63 74 78 2c 20 32 30  _context(ctx, 20
1200: 34 38 29 3b 0a 20 20 7a 20 3d 20 73 71 6c 69 74  48);.  z = sqlit
1210: 65 33 5f 65 72 72 6d 73 67 31 36 28 64 62 29 3b  e3_errmsg16(db);
1220: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c  .  sqlite3_resul
1230: 74 5f 74 65 78 74 31 36 28 63 74 78 2c 20 7a 2c  t_text16(ctx, z,
1240: 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e   -1, SQLITE_TRAN
1250: 53 49 45 4e 54 29 3b 0a 23 65 6e 64 69 66 0a 7d  SIENT);.#endif.}
1260: 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74 69 6e 65 73  ../*.** Routines
1270: 20 66 6f 72 20 74 65 73 74 69 6e 67 20 74 68 65   for testing the
1280: 20 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 78   sqlite3_get_aux
1290: 64 61 74 61 28 29 20 61 6e 64 20 73 71 6c 69 74  data() and sqlit
12a0: 65 33 5f 73 65 74 5f 61 75 78 64 61 74 61 28 29  e3_set_auxdata()
12b0: 0a 2a 2a 20 69 6e 74 65 72 66 61 63 65 2e 0a 2a  .** interface..*
12c0: 2a 0a 2a 2a 20 54 68 65 20 74 65 73 74 5f 61 75  *.** The test_au
12d0: 78 64 61 74 61 28 29 20 53 51 4c 20 66 75 6e 63  xdata() SQL func
12e0: 74 69 6f 6e 20 61 74 74 65 6d 70 74 73 20 74 6f  tion attempts to
12f0: 20 72 65 67 69 73 74 65 72 20 65 61 63 68 20 6f   register each o
1300: 66 20 69 74 73 20 61 72 67 75 6d 65 6e 74 73 0a  f its arguments.
1310: 2a 2a 20 61 73 20 61 75 78 69 6c 69 61 72 79 20  ** as auxiliary 
1320: 64 61 74 61 2e 20 20 49 66 20 74 68 65 72 65 20  data.  If there 
1330: 61 72 65 20 6e 6f 20 70 72 69 6f 72 20 72 65 67  are no prior reg
1340: 69 73 74 72 61 74 69 6f 6e 73 20 6f 66 20 61 75  istrations of au
1350: 78 20 64 61 74 61 20 66 6f 72 0a 2a 2a 20 74 68  x data for.** th
1360: 61 74 20 61 72 67 75 6d 65 6e 74 20 28 6d 65 61  at argument (mea
1370: 6e 69 6e 67 20 74 68 65 20 61 72 67 75 6d 65 6e  ning the argumen
1380: 74 20 69 73 20 6e 6f 74 20 61 20 63 6f 6e 73 74  t is not a const
1390: 61 6e 74 20 6f 72 20 74 68 69 73 20 69 73 20 69  ant or this is i
13a0: 74 73 20 66 69 72 73 74 0a 2a 2a 20 63 61 6c 6c  ts first.** call
13b0: 29 20 74 68 65 6e 20 74 68 65 20 72 65 73 75 6c  ) then the resul
13c0: 74 20 66 6f 72 20 74 68 61 74 20 61 72 67 75 6d  t for that argum
13d0: 65 6e 74 20 69 73 20 30 2e 20 20 49 66 20 74 68  ent is 0.  If th
13e0: 65 72 65 20 69 73 20 61 20 70 72 69 6f 72 0a 2a  ere is a prior.*
13f0: 2a 20 72 65 67 69 73 74 72 61 74 69 6f 6e 2c 20  * registration, 
1400: 74 68 65 20 72 65 73 75 6c 74 20 66 6f 72 20 74  the result for t
1410: 68 61 74 20 61 72 67 75 6d 65 6e 74 20 69 73 20  hat argument is 
1420: 31 2e 20 20 54 68 65 20 6f 76 65 72 61 6c 6c 20  1.  The overall 
1430: 72 65 73 75 6c 74 0a 2a 2a 20 69 73 20 74 68 65  result.** is the
1440: 20 69 6e 64 69 76 69 64 75 61 6c 20 61 72 67 75   individual argu
1450: 6d 65 6e 74 20 72 65 73 75 6c 74 73 20 73 65 70  ment results sep
1460: 61 72 61 74 65 64 20 62 79 20 73 70 61 63 65 73  arated by spaces
1470: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
1480: 20 66 72 65 65 5f 74 65 73 74 5f 61 75 78 64 61   free_test_auxda
1490: 74 61 28 76 6f 69 64 20 2a 70 29 20 7b 73 71 6c  ta(void *p) {sql
14a0: 69 74 65 33 5f 66 72 65 65 28 70 29 3b 7d 0a 73  ite3_free(p);}.s
14b0: 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f  tatic void test_
14c0: 61 75 78 64 61 74 61 28 0a 20 20 73 71 6c 69 74  auxdata(.  sqlit
14d0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 43 74 78  e3_context *pCtx
14e0: 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 2c 0a 20  , .  int nArg,. 
14f0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
1500: 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69  *argv.){.  int i
1510: 3b 0a 20 20 63 68 61 72 20 2a 7a 52 65 74 20 3d  ;.  char *zRet =
1520: 20 74 65 73 74 43 6f 6e 74 65 78 74 4d 61 6c 6c   testContextMall
1530: 6f 63 28 70 43 74 78 2c 20 6e 41 72 67 2a 32 29  oc(pCtx, nArg*2)
1540: 3b 0a 20 20 69 66 28 20 21 7a 52 65 74 20 29 20  ;.  if( !zRet ) 
1550: 72 65 74 75 72 6e 3b 0a 20 20 6d 65 6d 73 65 74  return;.  memset
1560: 28 7a 52 65 74 2c 20 30 2c 20 6e 41 72 67 2a 32  (zRet, 0, nArg*2
1570: 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c  );.  for(i=0; i<
1580: 6e 41 72 67 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  nArg; i++){.    
1590: 63 68 61 72 20 63 6f 6e 73 74 20 2a 7a 20 3d 20  char const *z = 
15a0: 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76  (char*)sqlite3_v
15b0: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 69  alue_text(argv[i
15c0: 5d 29 3b 0a 20 20 20 20 69 66 28 20 7a 20 29 7b  ]);.    if( z ){
15d0: 0a 20 20 20 20 20 20 69 6e 74 20 6e 3b 0a 20 20  .      int n;.  
15e0: 20 20 20 20 63 68 61 72 20 2a 7a 41 75 78 20 3d      char *zAux =
15f0: 20 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 78   sqlite3_get_aux
1600: 64 61 74 61 28 70 43 74 78 2c 20 69 29 3b 0a 20  data(pCtx, i);. 
1610: 20 20 20 20 20 69 66 28 20 7a 41 75 78 20 29 7b       if( zAux ){
1620: 0a 20 20 20 20 20 20 20 20 7a 52 65 74 5b 69 2a  .        zRet[i*
1630: 32 5d 20 3d 20 27 31 27 3b 0a 20 20 20 20 20 20  2] = '1';.      
1640: 20 20 61 73 73 65 72 74 28 20 73 74 72 63 6d 70    assert( strcmp
1650: 28 7a 41 75 78 2c 7a 29 3d 3d 30 20 29 3b 0a 20  (zAux,z)==0 );. 
1660: 20 20 20 20 20 7d 65 6c 73 65 20 7b 0a 20 20 20       }else {.   
1670: 20 20 20 20 20 7a 52 65 74 5b 69 2a 32 5d 20 3d       zRet[i*2] =
1680: 20 27 30 27 3b 0a 20 20 20 20 20 20 7d 0a 20 20   '0';.      }.  
1690: 20 20 20 20 6e 20 3d 20 28 69 6e 74 29 73 74 72      n = (int)str
16a0: 6c 65 6e 28 7a 29 20 2b 20 31 3b 0a 20 20 20 20  len(z) + 1;.    
16b0: 20 20 7a 41 75 78 20 3d 20 74 65 73 74 43 6f 6e    zAux = testCon
16c0: 74 65 78 74 4d 61 6c 6c 6f 63 28 70 43 74 78 2c  textMalloc(pCtx,
16d0: 20 6e 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a   n);.      if( z
16e0: 41 75 78 20 29 7b 0a 20 20 20 20 20 20 20 20 6d  Aux ){.        m
16f0: 65 6d 63 70 79 28 7a 41 75 78 2c 20 7a 2c 20 6e  emcpy(zAux, z, n
1700: 29 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74  );.        sqlit
1710: 65 33 5f 73 65 74 5f 61 75 78 64 61 74 61 28 70  e3_set_auxdata(p
1720: 43 74 78 2c 20 69 2c 20 7a 41 75 78 2c 20 66 72  Ctx, i, zAux, fr
1730: 65 65 5f 74 65 73 74 5f 61 75 78 64 61 74 61 29  ee_test_auxdata)
1740: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
1750: 7a 52 65 74 5b 69 2a 32 2b 31 5d 20 3d 20 27 20  zRet[i*2+1] = ' 
1760: 27 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73  ';.    }.  }.  s
1770: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65  qlite3_result_te
1780: 78 74 28 70 43 74 78 2c 20 7a 52 65 74 2c 20 32  xt(pCtx, zRet, 2
1790: 2a 6e 41 72 67 2d 31 2c 20 66 72 65 65 5f 74 65  *nArg-1, free_te
17a0: 73 74 5f 61 75 78 64 61 74 61 29 3b 0a 7d 0a 0a  st_auxdata);.}..
17b0: 2f 2a 0a 2a 2a 20 41 20 66 75 6e 63 74 69 6f 6e  /*.** A function
17c0: 20 74 6f 20 74 65 73 74 20 65 72 72 6f 72 20 72   to test error r
17d0: 65 70 6f 72 74 69 6e 67 20 66 72 6f 6d 20 75 73  eporting from us
17e0: 65 72 20 66 75 6e 63 74 69 6f 6e 73 2e 20 54 68  er functions. Th
17f0: 69 73 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 72  is function.** r
1800: 65 74 75 72 6e 73 20 61 20 63 6f 70 79 20 6f 66  eturns a copy of
1810: 20 69 74 73 20 66 69 72 73 74 20 61 72 67 75 6d   its first argum
1820: 65 6e 74 20 61 73 20 74 68 65 20 65 72 72 6f 72  ent as the error
1830: 20 6d 65 73 73 61 67 65 2e 20 20 49 66 20 74 68   message.  If th
1840: 65 0a 2a 2a 20 73 65 63 6f 6e 64 20 61 72 67 75  e.** second argu
1850: 6d 65 6e 74 20 65 78 69 73 74 73 2c 20 69 74 20  ment exists, it 
1860: 62 65 63 6f 6d 65 73 20 74 68 65 20 65 72 72 6f  becomes the erro
1870: 72 20 63 6f 64 65 2e 0a 2a 2f 0a 73 74 61 74 69  r code..*/.stati
1880: 63 20 76 6f 69 64 20 74 65 73 74 5f 65 72 72 6f  c void test_erro
1890: 72 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  r(.  sqlite3_con
18a0: 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69  text *pCtx, .  i
18b0: 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74  nt nArg,.  sqlit
18c0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a  e3_value **argv.
18d0: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73  ){.  sqlite3_res
18e0: 75 6c 74 5f 65 72 72 6f 72 28 70 43 74 78 2c 20  ult_error(pCtx, 
18f0: 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76  (char*)sqlite3_v
1900: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30  alue_text(argv[0
1910: 5d 29 2c 20 2d 31 29 3b 0a 20 20 69 66 28 20 6e  ]), -1);.  if( n
1920: 41 72 67 3d 3d 32 20 29 7b 0a 20 20 20 20 73 71  Arg==2 ){.    sq
1930: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72  lite3_result_err
1940: 6f 72 5f 63 6f 64 65 28 70 43 74 78 2c 20 73 71  or_code(pCtx, sq
1950: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28  lite3_value_int(
1960: 61 72 67 76 5b 31 5d 29 29 3b 0a 20 20 7d 0a 7d  argv[1]));.  }.}
1970: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e  ../*.** Implemen
1980: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f  tation of the co
1990: 75 6e 74 65 72 28 58 29 20 66 75 6e 63 74 69 6f  unter(X) functio
19a0: 6e 2e 20 20 49 66 20 58 20 69 73 20 61 6e 20 69  n.  If X is an i
19b0: 6e 74 65 67 65 72 0a 2a 2a 20 63 6f 6e 73 74 61  nteger.** consta
19c0: 6e 74 2c 20 74 68 65 6e 20 74 68 65 20 66 69 72  nt, then the fir
19d0: 73 74 20 69 6e 76 6f 63 61 74 69 6f 6e 20 77 69  st invocation wi
19e0: 6c 6c 20 72 65 74 75 72 6e 20 58 2e 20 20 54 68  ll return X.  Th
19f0: 65 20 73 65 63 6f 6e 64 20 58 2b 31 2e 0a 2a 2a  e second X+1..**
1a00: 20 61 6e 64 20 73 6f 20 66 6f 72 74 68 2e 20 20   and so forth.  
1a10: 43 61 6e 20 62 65 20 75 73 65 64 20 28 66 6f 72  Can be used (for
1a20: 20 65 78 61 6d 70 6c 65 29 20 74 6f 20 70 72 6f   example) to pro
1a30: 76 69 64 65 20 61 20 73 65 71 75 65 6e 63 65 20  vide a sequence 
1a40: 6e 75 6d 62 65 72 0a 2a 2a 20 69 6e 20 61 20 72  number.** in a r
1a50: 65 73 75 6c 74 20 73 65 74 2e 0a 2a 2f 0a 73 74  esult set..*/.st
1a60: 61 74 69 63 20 76 6f 69 64 20 63 6f 75 6e 74 65  atic void counte
1a70: 72 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33  rFunc(.  sqlite3
1a80: 5f 63 6f 6e 74 65 78 74 20 2a 70 43 74 78 2c 20  _context *pCtx, 
1a90: 20 20 2f 2a 20 46 75 6e 63 74 69 6f 6e 20 63 6f    /* Function co
1aa0: 6e 74 65 78 74 20 2a 2f 0a 20 20 69 6e 74 20 6e  ntext */.  int n
1ab0: 41 72 67 2c 20 20 20 20 20 20 20 20 20 20 20 20  Arg,            
1ac0: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66      /* Number of
1ad0: 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d 65   function argume
1ae0: 6e 74 73 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33  nts */.  sqlite3
1af0: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 20 20 20  _value **argv   
1b00: 20 20 2f 2a 20 56 61 6c 75 65 73 20 66 6f 72 20    /* Values for 
1b10: 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 72 67  all function arg
1b20: 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 69  uments */.){.  i
1b30: 6e 74 20 2a 70 43 6f 75 6e 74 65 72 20 3d 20 28  nt *pCounter = (
1b40: 69 6e 74 2a 29 73 71 6c 69 74 65 33 5f 67 65 74  int*)sqlite3_get
1b50: 5f 61 75 78 64 61 74 61 28 70 43 74 78 2c 20 30  _auxdata(pCtx, 0
1b60: 29 3b 0a 20 20 69 66 28 20 70 43 6f 75 6e 74 65  );.  if( pCounte
1b70: 72 3d 3d 30 20 29 7b 0a 20 20 20 20 70 43 6f 75  r==0 ){.    pCou
1b80: 6e 74 65 72 20 3d 20 73 71 6c 69 74 65 33 5f 6d  nter = sqlite3_m
1b90: 61 6c 6c 6f 63 28 20 73 69 7a 65 6f 66 28 2a 70  alloc( sizeof(*p
1ba0: 43 6f 75 6e 74 65 72 29 20 29 3b 0a 20 20 20 20  Counter) );.    
1bb0: 69 66 28 20 70 43 6f 75 6e 74 65 72 3d 3d 30 20  if( pCounter==0 
1bc0: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33  ){.      sqlite3
1bd0: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f  _result_error_no
1be0: 6d 65 6d 28 70 43 74 78 29 3b 0a 20 20 20 20 20  mem(pCtx);.     
1bf0: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20   return;.    }. 
1c00: 20 20 20 2a 70 43 6f 75 6e 74 65 72 20 3d 20 73     *pCounter = s
1c10: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74  qlite3_value_int
1c20: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 73  (argv[0]);.    s
1c30: 71 6c 69 74 65 33 5f 73 65 74 5f 61 75 78 64 61  qlite3_set_auxda
1c40: 74 61 28 70 43 74 78 2c 20 30 2c 20 70 43 6f 75  ta(pCtx, 0, pCou
1c50: 6e 74 65 72 2c 20 73 71 6c 69 74 65 33 5f 66 72  nter, sqlite3_fr
1c60: 65 65 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20  ee);.  }else{.  
1c70: 20 20 2b 2b 2a 70 43 6f 75 6e 74 65 72 3b 0a 20    ++*pCounter;. 
1c80: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73   }.  sqlite3_res
1c90: 75 6c 74 5f 69 6e 74 28 70 43 74 78 2c 20 2a 70  ult_int(pCtx, *p
1ca0: 43 6f 75 6e 74 65 72 29 3b 0a 7d 0a 0a 0a 2f 2a  Counter);.}.../*
1cb0: 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f  .** This functio
1cc0: 6e 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 75  n takes two argu
1cd0: 6d 65 6e 74 73 2e 20 20 49 74 20 70 65 72 66 6f  ments.  It perfo
1ce0: 72 6d 61 6e 63 65 20 55 54 46 2d 38 2f 31 36 20  rmance UTF-8/16 
1cf0: 74 79 70 65 0a 2a 2a 20 63 6f 6e 76 65 72 73 69  type.** conversi
1d00: 6f 6e 73 20 6f 6e 20 74 68 65 20 66 69 72 73 74  ons on the first
1d10: 20 61 72 67 75 6d 65 6e 74 20 74 68 65 6e 20 72   argument then r
1d20: 65 74 75 72 6e 73 20 61 20 63 6f 70 79 20 6f 66  eturns a copy of
1d30: 20 74 68 65 20 73 65 63 6f 6e 64 0a 2a 2a 20 61   the second.** a
1d40: 72 67 75 6d 65 6e 74 2e 0a 2a 2a 0a 2a 2a 20 54  rgument..**.** T
1d50: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20  his function is 
1d60: 75 73 65 64 20 69 6e 20 63 61 73 65 73 20 73 75  used in cases su
1d70: 63 68 20 61 73 20 74 68 65 20 66 6f 6c 6c 6f 77  ch as the follow
1d80: 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20  ing:.**.**      
1d90: 53 45 4c 45 43 54 20 74 65 73 74 5f 69 73 6f 6c  SELECT test_isol
1da0: 61 74 69 6f 6e 28 78 2c 78 29 20 46 52 4f 4d 20  ation(x,x) FROM 
1db0: 74 31 3b 0a 2a 2a 0a 2a 2a 20 57 65 20 77 61 6e  t1;.**.** We wan
1dc0: 74 20 74 6f 20 76 65 72 69 66 79 20 74 68 61 74  t to verify that
1dd0: 20 74 68 65 20 74 79 70 65 20 63 6f 6e 76 65 72   the type conver
1de0: 73 69 6f 6e 73 20 74 68 61 74 20 6f 63 63 75 72  sions that occur
1df0: 20 6f 6e 20 74 68 65 0a 2a 2a 20 66 69 72 73 74   on the.** first
1e00: 20 61 72 67 75 6d 65 6e 74 20 64 6f 20 6e 6f 74   argument do not
1e10: 20 69 6e 76 61 6c 69 64 61 74 65 20 74 68 65 20   invalidate the 
1e20: 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 2e  second argument.
1e30: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
1e40: 74 65 73 74 5f 69 73 6f 6c 61 74 69 6f 6e 28 0a  test_isolation(.
1e50: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78    sqlite3_contex
1e60: 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20  t *pCtx, .  int 
1e70: 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f  nArg,.  sqlite3_
1e80: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a  value **argv.){.
1e90: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f  #ifndef SQLITE_O
1ea0: 4d 49 54 5f 55 54 46 31 36 0a 20 20 73 71 6c 69  MIT_UTF16.  sqli
1eb0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36  te3_value_text16
1ec0: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c  (argv[0]);.  sql
1ed0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28  ite3_value_text(
1ee0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c 69  argv[0]);.  sqli
1ef0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36  te3_value_text16
1f00: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c  (argv[0]);.  sql
1f10: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28  ite3_value_text(
1f20: 61 72 67 76 5b 30 5d 29 3b 0a 23 65 6e 64 69 66  argv[0]);.#endif
1f30: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c  .  sqlite3_resul
1f40: 74 5f 76 61 6c 75 65 28 70 43 74 78 2c 20 61 72  t_value(pCtx, ar
1f50: 67 76 5b 31 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  gv[1]);.}../*.**
1f60: 20 49 6e 76 6f 6b 65 20 61 6e 20 53 51 4c 20 73   Invoke an SQL s
1f70: 74 61 74 65 6d 65 6e 74 20 72 65 63 75 72 73 69  tatement recursi
1f80: 76 65 6c 79 2e 20 20 54 68 65 20 66 75 6e 63 74  vely.  The funct
1f90: 69 6f 6e 20 72 65 73 75 6c 74 20 69 73 20 74 68  ion result is th
1fa0: 65 20 0a 2a 2a 20 66 69 72 73 74 20 63 6f 6c 75  e .** first colu
1fb0: 6d 6e 20 6f 66 20 74 68 65 20 66 69 72 73 74 20  mn of the first 
1fc0: 72 6f 77 20 6f 66 20 74 68 65 20 72 65 73 75 6c  row of the resul
1fd0: 74 20 73 65 74 2e 0a 2a 2f 0a 73 74 61 74 69 63  t set..*/.static
1fe0: 20 76 6f 69 64 20 74 65 73 74 5f 65 76 61 6c 28   void test_eval(
1ff0: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  .  sqlite3_conte
2000: 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74  xt *pCtx, .  int
2010: 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33   nArg,.  sqlite3
2020: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b  _value **argv.){
2030: 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20  .  sqlite3_stmt 
2040: 2a 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 72 63  *pStmt;.  int rc
2050: 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20  ;.  sqlite3 *db 
2060: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  = sqlite3_contex
2070: 74 5f 64 62 5f 68 61 6e 64 6c 65 28 70 43 74 78  t_db_handle(pCtx
2080: 29 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  );.  const char 
2090: 2a 7a 53 71 6c 3b 0a 0a 20 20 7a 53 71 6c 20 3d  *zSql;..  zSql =
20a0: 20 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f   (char*)sqlite3_
20b0: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b  value_text(argv[
20c0: 30 5d 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69  0]);.  rc = sqli
20d0: 74 65 33 5f 70 72 65 70 61 72 65 5f 76 32 28 64  te3_prepare_v2(d
20e0: 62 2c 20 7a 53 71 6c 2c 20 2d 31 2c 20 26 70 53  b, zSql, -1, &pS
20f0: 74 6d 74 2c 20 30 29 3b 0a 20 20 69 66 28 20 72  tmt, 0);.  if( r
2100: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c==SQLITE_OK ){.
2110: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33      rc = sqlite3
2120: 5f 73 74 65 70 28 70 53 74 6d 74 29 3b 0a 20 20  _step(pStmt);.  
2130: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
2140: 5f 52 4f 57 20 29 7b 0a 20 20 20 20 20 20 73 71  _ROW ){.      sq
2150: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c  lite3_result_val
2160: 75 65 28 70 43 74 78 2c 20 73 71 6c 69 74 65 33  ue(pCtx, sqlite3
2170: 5f 63 6f 6c 75 6d 6e 5f 76 61 6c 75 65 28 70 53  _column_value(pS
2180: 74 6d 74 2c 20 30 29 29 3b 0a 20 20 20 20 7d 0a  tmt, 0));.    }.
2190: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33      rc = sqlite3
21a0: 5f 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d 74 29  _finalize(pStmt)
21b0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 20 29  ;.  }.  if( rc )
21c0: 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 45 72 72  {.    char *zErr
21d0: 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 53  ;.    assert( pS
21e0: 74 6d 74 3d 3d 30 20 29 3b 0a 20 20 20 20 7a 45  tmt==0 );.    zE
21f0: 72 72 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72  rr = sqlite3_mpr
2200: 69 6e 74 66 28 22 73 71 6c 69 74 65 33 5f 70 72  intf("sqlite3_pr
2210: 65 70 61 72 65 5f 76 32 28 29 20 65 72 72 6f 72  epare_v2() error
2220: 3a 20 25 73 22 2c 73 71 6c 69 74 65 33 5f 65 72  : %s",sqlite3_er
2230: 72 6d 73 67 28 64 62 29 29 3b 0a 20 20 20 20 73  rmsg(db));.    s
2240: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65  qlite3_result_te
2250: 78 74 28 70 43 74 78 2c 20 7a 45 72 72 2c 20 2d  xt(pCtx, zErr, -
2260: 31 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29  1, sqlite3_free)
2270: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65  ;.    sqlite3_re
2280: 73 75 6c 74 5f 65 72 72 6f 72 5f 63 6f 64 65 28  sult_error_code(
2290: 70 43 74 78 2c 20 72 63 29 3b 0a 20 20 7d 0a 7d  pCtx, rc);.  }.}
22a0: 0a 0a 0a 2f 2a 0a 2a 2a 20 63 6f 6e 76 65 72 74  .../*.** convert
22b0: 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72 20 66   one character f
22c0: 72 6f 6d 20 68 65 78 20 74 6f 20 62 69 6e 61 72  rom hex to binar
22d0: 79 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  y.*/.static int 
22e0: 74 65 73 74 48 65 78 43 68 61 72 28 63 68 61 72  testHexChar(char
22f0: 20 63 29 7b 0a 20 20 69 66 28 20 63 3e 3d 27 30   c){.  if( c>='0
2300: 27 20 26 26 20 63 3c 3d 27 39 27 20 29 7b 0a 20  ' && c<='9' ){. 
2310: 20 20 20 72 65 74 75 72 6e 20 63 20 2d 20 27 30     return c - '0
2320: 27 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 63  ';.  }else if( c
2330: 3e 3d 27 61 27 20 26 26 20 63 3c 3d 27 66 27 20  >='a' && c<='f' 
2340: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 63 20  ){.    return c 
2350: 2d 20 27 61 27 20 2b 20 31 30 3b 0a 20 20 7d 65  - 'a' + 10;.  }e
2360: 6c 73 65 20 69 66 28 20 63 3e 3d 27 41 27 20 26  lse if( c>='A' &
2370: 26 20 63 3c 3d 27 46 27 20 29 7b 0a 20 20 20 20  & c<='F' ){.    
2380: 72 65 74 75 72 6e 20 63 20 2d 20 27 41 27 20 2b  return c - 'A' +
2390: 20 31 30 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72   10;.  }.  retur
23a0: 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f  n 0;.}../*.** Co
23b0: 6e 76 65 72 74 20 68 65 78 20 74 6f 20 62 69 6e  nvert hex to bin
23c0: 61 72 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76  ary..*/.static v
23d0: 6f 69 64 20 74 65 73 74 48 65 78 54 6f 42 69 6e  oid testHexToBin
23e0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 49 6e  (const char *zIn
23f0: 2c 20 63 68 61 72 20 2a 7a 4f 75 74 29 7b 0a 20  , char *zOut){. 
2400: 20 77 68 69 6c 65 28 20 7a 49 6e 5b 30 5d 20 26   while( zIn[0] &
2410: 26 20 7a 49 6e 5b 31 5d 20 29 7b 0a 20 20 20 20  & zIn[1] ){.    
2420: 2a 28 7a 4f 75 74 2b 2b 29 20 3d 20 28 74 65 73  *(zOut++) = (tes
2430: 74 48 65 78 43 68 61 72 28 7a 49 6e 5b 30 5d 29  tHexChar(zIn[0])
2440: 3c 3c 34 29 20 2b 20 74 65 73 74 48 65 78 43 68  <<4) + testHexCh
2450: 61 72 28 7a 49 6e 5b 31 5d 29 3b 0a 20 20 20 20  ar(zIn[1]);.    
2460: 7a 49 6e 20 2b 3d 20 32 3b 0a 20 20 7d 0a 7d 0a  zIn += 2;.  }.}.
2470: 0a 2f 2a 0a 2a 2a 20 20 20 20 20 20 68 65 78 5f  ./*.**      hex_
2480: 74 6f 5f 75 74 66 31 36 62 65 28 48 45 58 29 0a  to_utf16be(HEX).
2490: 2a 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 74 68  **.** Convert th
24a0: 65 20 69 6e 70 75 74 20 73 74 72 69 6e 67 20 66  e input string f
24b0: 72 6f 6d 20 48 45 58 20 69 6e 74 6f 20 62 69 6e  rom HEX into bin
24c0: 61 72 79 2e 20 20 54 68 65 6e 20 72 65 74 75 72  ary.  Then retur
24d0: 6e 20 74 68 65 0a 2a 2a 20 72 65 73 75 6c 74 20  n the.** result 
24e0: 75 73 69 6e 67 20 73 71 6c 69 74 65 33 5f 72 65  using sqlite3_re
24f0: 73 75 6c 74 5f 74 65 78 74 31 36 6c 65 28 29 2e  sult_text16le().
2500: 0a 2a 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c 49  .*/.#ifndef SQLI
2510: 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 73 74  TE_OMIT_UTF16.st
2520: 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 48 65  atic void testHe
2530: 78 54 6f 55 74 66 31 36 62 65 28 0a 20 20 73 71  xToUtf16be(.  sq
2540: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70  lite3_context *p
2550: 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67  Ctx, .  int nArg
2560: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  ,.  sqlite3_valu
2570: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e  e **argv.){.  in
2580: 74 20 6e 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61  t n;.  const cha
2590: 72 20 2a 7a 49 6e 3b 0a 20 20 63 68 61 72 20 2a  r *zIn;.  char *
25a0: 7a 4f 75 74 3b 0a 20 20 61 73 73 65 72 74 28 20  zOut;.  assert( 
25b0: 6e 41 72 67 3d 3d 31 20 29 3b 0a 20 20 6e 20 3d  nArg==1 );.  n =
25c0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62   sqlite3_value_b
25d0: 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20  ytes(argv[0]);. 
25e0: 20 7a 49 6e 20 3d 20 28 63 6f 6e 73 74 20 63 68   zIn = (const ch
25f0: 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75  ar*)sqlite3_valu
2600: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b  e_text(argv[0]);
2610: 0a 20 20 7a 4f 75 74 20 3d 20 73 71 6c 69 74 65  .  zOut = sqlite
2620: 33 5f 6d 61 6c 6c 6f 63 28 20 6e 2f 32 20 29 3b  3_malloc( n/2 );
2630: 0a 20 20 69 66 28 20 7a 4f 75 74 3d 3d 30 20 29  .  if( zOut==0 )
2640: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65  {.    sqlite3_re
2650: 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d  sult_error_nomem
2660: 28 70 43 74 78 29 3b 0a 20 20 7d 65 6c 73 65 7b  (pCtx);.  }else{
2670: 0a 20 20 20 20 74 65 73 74 48 65 78 54 6f 42 69  .    testHexToBi
2680: 6e 28 7a 49 6e 2c 20 7a 4f 75 74 29 3b 0a 20 20  n(zIn, zOut);.  
2690: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
26a0: 5f 74 65 78 74 31 36 62 65 28 70 43 74 78 2c 20  _text16be(pCtx, 
26b0: 7a 4f 75 74 2c 20 6e 2f 32 2c 20 73 71 6c 69 74  zOut, n/2, sqlit
26c0: 65 33 5f 66 72 65 65 29 3b 0a 20 20 7d 0a 7d 0a  e3_free);.  }.}.
26d0: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 20 20  #endif../*.**   
26e0: 20 20 20 68 65 78 5f 74 6f 5f 75 74 66 38 28 48     hex_to_utf8(H
26f0: 45 58 29 0a 2a 2a 0a 2a 2a 20 43 6f 6e 76 65 72  EX).**.** Conver
2700: 74 20 74 68 65 20 69 6e 70 75 74 20 73 74 72 69  t the input stri
2710: 6e 67 20 66 72 6f 6d 20 48 45 58 20 69 6e 74 6f  ng from HEX into
2720: 20 62 69 6e 61 72 79 2e 20 20 54 68 65 6e 20 72   binary.  Then r
2730: 65 74 75 72 6e 20 74 68 65 0a 2a 2a 20 72 65 73  eturn the.** res
2740: 75 6c 74 20 75 73 69 6e 67 20 73 71 6c 69 74 65  ult using sqlite
2750: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 6c  3_result_text16l
2760: 65 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76  e()..*/.static v
2770: 6f 69 64 20 74 65 73 74 48 65 78 54 6f 55 74 66  oid testHexToUtf
2780: 38 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  8(.  sqlite3_con
2790: 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69  text *pCtx, .  i
27a0: 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74  nt nArg,.  sqlit
27b0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a  e3_value **argv.
27c0: 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 63 6f  ){.  int n;.  co
27d0: 6e 73 74 20 63 68 61 72 20 2a 7a 49 6e 3b 0a 20  nst char *zIn;. 
27e0: 20 63 68 61 72 20 2a 7a 4f 75 74 3b 0a 20 20 61   char *zOut;.  a
27f0: 73 73 65 72 74 28 20 6e 41 72 67 3d 3d 31 20 29  ssert( nArg==1 )
2800: 3b 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f  ;.  n = sqlite3_
2810: 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76  value_bytes(argv
2820: 5b 30 5d 29 3b 0a 20 20 7a 49 6e 20 3d 20 28 63  [0]);.  zIn = (c
2830: 6f 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74  onst char*)sqlit
2840: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72  e3_value_text(ar
2850: 67 76 5b 30 5d 29 3b 0a 20 20 7a 4f 75 74 20 3d  gv[0]);.  zOut =
2860: 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28   sqlite3_malloc(
2870: 20 6e 2f 32 20 29 3b 0a 20 20 69 66 28 20 7a 4f   n/2 );.  if( zO
2880: 75 74 3d 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c  ut==0 ){.    sql
2890: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f  ite3_result_erro
28a0: 72 5f 6e 6f 6d 65 6d 28 70 43 74 78 29 3b 0a 20  r_nomem(pCtx);. 
28b0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 74 65 73 74   }else{.    test
28c0: 48 65 78 54 6f 42 69 6e 28 7a 49 6e 2c 20 7a 4f  HexToBin(zIn, zO
28d0: 75 74 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33  ut);.    sqlite3
28e0: 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 70 43 74  _result_text(pCt
28f0: 78 2c 20 7a 4f 75 74 2c 20 6e 2f 32 2c 20 73 71  x, zOut, n/2, sq
2900: 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 7d  lite3_free);.  }
2910: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 20 68  .}../*.**      h
2920: 65 78 5f 74 6f 5f 75 74 66 31 36 6c 65 28 48 45  ex_to_utf16le(HE
2930: 58 29 0a 2a 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74  X).**.** Convert
2940: 20 74 68 65 20 69 6e 70 75 74 20 73 74 72 69 6e   the input strin
2950: 67 20 66 72 6f 6d 20 48 45 58 20 69 6e 74 6f 20  g from HEX into 
2960: 62 69 6e 61 72 79 2e 20 20 54 68 65 6e 20 72 65  binary.  Then re
2970: 74 75 72 6e 20 74 68 65 0a 2a 2a 20 72 65 73 75  turn the.** resu
2980: 6c 74 20 75 73 69 6e 67 20 73 71 6c 69 74 65 33  lt using sqlite3
2990: 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 6c 65  _result_text16le
29a0: 28 29 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66 20 53  ()..*/.#ifndef S
29b0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36  QLITE_OMIT_UTF16
29c0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73  .static void tes
29d0: 74 48 65 78 54 6f 55 74 66 31 36 6c 65 28 0a 20  tHexToUtf16le(. 
29e0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
29f0: 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e   *pCtx, .  int n
2a00: 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  Arg,.  sqlite3_v
2a10: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
2a20: 20 69 6e 74 20 6e 3b 0a 20 20 63 6f 6e 73 74 20   int n;.  const 
2a30: 63 68 61 72 20 2a 7a 49 6e 3b 0a 20 20 63 68 61  char *zIn;.  cha
2a40: 72 20 2a 7a 4f 75 74 3b 0a 20 20 61 73 73 65 72  r *zOut;.  asser
2a50: 74 28 20 6e 41 72 67 3d 3d 31 20 29 3b 0a 20 20  t( nArg==1 );.  
2a60: 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  n = sqlite3_valu
2a70: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29  e_bytes(argv[0])
2a80: 3b 0a 20 20 7a 49 6e 20 3d 20 28 63 6f 6e 73 74  ;.  zIn = (const
2a90: 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76   char*)sqlite3_v
2aa0: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30  alue_text(argv[0
2ab0: 5d 29 3b 0a 20 20 7a 4f 75 74 20 3d 20 73 71 6c  ]);.  zOut = sql
2ac0: 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 6e 2f 32  ite3_malloc( n/2
2ad0: 20 29 3b 0a 20 20 69 66 28 20 7a 4f 75 74 3d 3d   );.  if( zOut==
2ae0: 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  0 ){.    sqlite3
2af0: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f  _result_error_no
2b00: 6d 65 6d 28 70 43 74 78 29 3b 0a 20 20 7d 65 6c  mem(pCtx);.  }el
2b10: 73 65 7b 0a 20 20 20 20 74 65 73 74 48 65 78 54  se{.    testHexT
2b20: 6f 42 69 6e 28 7a 49 6e 2c 20 7a 4f 75 74 29 3b  oBin(zIn, zOut);
2b30: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73  .    sqlite3_res
2b40: 75 6c 74 5f 74 65 78 74 31 36 6c 65 28 70 43 74  ult_text16le(pCt
2b50: 78 2c 20 7a 4f 75 74 2c 20 6e 2f 32 2c 20 73 71  x, zOut, n/2, sq
2b60: 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 7d  lite3_free);.  }
2b70: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a  .}.#endif../*.**
2b80: 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 3a 20 20   SQL function:  
2b90: 20 72 65 61 6c 32 68 65 78 28 58 29 0a 2a 2a 0a   real2hex(X).**.
2ba0: 2a 2a 20 49 66 20 61 72 67 75 6d 65 6e 74 20 58  ** If argument X
2bb0: 20 69 73 20 61 20 72 65 61 6c 20 6e 75 6d 62 65   is a real numbe
2bc0: 72 2c 20 74 68 65 6e 20 63 6f 6e 76 65 72 74 20  r, then convert 
2bd0: 69 74 20 69 6e 74 6f 20 61 20 73 74 72 69 6e 67  it into a string
2be0: 20 77 68 69 63 68 20 69 73 0a 2a 2a 20 74 68 65   which is.** the
2bf0: 20 62 69 67 2d 65 6e 64 69 61 6e 20 68 65 78 61   big-endian hexa
2c00: 64 65 63 69 6d 61 6c 20 72 65 70 72 65 73 65 6e  decimal represen
2c10: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 69 65  tation of the ie
2c20: 65 65 37 35 34 20 65 6e 63 6f 64 69 6e 67 20 6f  ee754 encoding o
2c30: 66 0a 2a 2a 20 74 68 61 74 20 6e 75 6d 62 65 72  f.** that number
2c40: 2e 20 20 49 66 20 58 20 69 73 20 6e 6f 74 20 61  .  If X is not a
2c50: 20 72 65 61 6c 20 6e 75 6d 62 65 72 2c 20 72 65   real number, re
2c60: 74 75 72 6e 20 4e 55 4c 4c 2e 0a 2a 2f 0a 73 74  turn NULL..*/.st
2c70: 61 74 69 63 20 76 6f 69 64 20 72 65 61 6c 32 68  atic void real2h
2c80: 65 78 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  ex(.  sqlite3_co
2c90: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a  ntext *context,.
2ca0: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71    int argc,.  sq
2cb0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72  lite3_value **ar
2cc0: 67 76 0a 29 7b 0a 20 20 75 6e 69 6f 6e 20 7b 0a  gv.){.  union {.
2cd0: 20 20 20 20 73 71 6c 69 74 65 33 5f 75 69 6e 74      sqlite3_uint
2ce0: 36 34 20 69 3b 0a 20 20 20 20 64 6f 75 62 6c 65  64 i;.    double
2cf0: 20 72 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64   r;.    unsigned
2d00: 20 63 68 61 72 20 78 5b 38 5d 3b 0a 20 20 7d 20   char x[8];.  } 
2d10: 76 3b 0a 20 20 63 68 61 72 20 7a 4f 75 74 5b 32  v;.  char zOut[2
2d20: 30 5d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69  0];.  int i;.  i
2d30: 6e 74 20 62 69 67 45 6e 64 69 61 6e 3b 0a 20 20  nt bigEndian;.  
2d40: 76 2e 69 20 3d 20 31 3b 0a 20 20 62 69 67 45 6e  v.i = 1;.  bigEn
2d50: 64 69 61 6e 20 3d 20 76 2e 78 5b 30 5d 3d 3d 30  dian = v.x[0]==0
2d60: 3b 0a 20 20 76 2e 72 20 3d 20 73 71 6c 69 74 65  ;.  v.r = sqlite
2d70: 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 61  3_value_double(a
2d80: 72 67 76 5b 30 5d 29 3b 0a 20 20 66 6f 72 28 69  rgv[0]);.  for(i
2d90: 3d 30 3b 20 69 3c 38 3b 20 69 2b 2b 29 7b 0a 20  =0; i<8; i++){. 
2da0: 20 20 20 69 66 28 20 62 69 67 45 6e 64 69 61 6e     if( bigEndian
2db0: 20 29 7b 0a 20 20 20 20 20 20 7a 4f 75 74 5b 69   ){.      zOut[i
2dc0: 2a 32 5d 20 20 20 3d 20 22 30 31 32 33 34 35 36  *2]   = "0123456
2dd0: 37 38 39 61 62 63 64 65 66 22 5b 76 2e 78 5b 69  789abcdef"[v.x[i
2de0: 5d 3e 3e 34 5d 3b 0a 20 20 20 20 20 20 7a 4f 75  ]>>4];.      zOu
2df0: 74 5b 69 2a 32 2b 31 5d 20 3d 20 22 30 31 32 33  t[i*2+1] = "0123
2e00: 34 35 36 37 38 39 61 62 63 64 65 66 22 5b 76 2e  456789abcdef"[v.
2e10: 78 5b 69 5d 26 30 78 66 5d 3b 0a 20 20 20 20 7d  x[i]&0xf];.    }
2e20: 65 6c 73 65 7b 0a 20 20 20 20 20 20 7a 4f 75 74  else{.      zOut
2e30: 5b 31 34 2d 69 2a 32 5d 20 20 20 3d 20 22 30 31  [14-i*2]   = "01
2e40: 32 33 34 35 36 37 38 39 61 62 63 64 65 66 22 5b  23456789abcdef"[
2e50: 76 2e 78 5b 69 5d 3e 3e 34 5d 3b 0a 20 20 20 20  v.x[i]>>4];.    
2e60: 20 20 7a 4f 75 74 5b 31 34 2d 69 2a 32 2b 31 5d    zOut[14-i*2+1]
2e70: 20 3d 20 22 30 31 32 33 34 35 36 37 38 39 61 62   = "0123456789ab
2e80: 63 64 65 66 22 5b 76 2e 78 5b 69 5d 26 30 78 66  cdef"[v.x[i]&0xf
2e90: 5d 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 7a  ];.    }.  }.  z
2ea0: 4f 75 74 5b 31 36 5d 20 3d 20 30 3b 0a 20 20 73  Out[16] = 0;.  s
2eb0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65  qlite3_result_te
2ec0: 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a 4f 75 74  xt(context, zOut
2ed0: 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41  , -1, SQLITE_TRA
2ee0: 4e 53 49 45 4e 54 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  NSIENT);.}../*.*
2ef0: 2a 20 20 20 20 20 74 65 73 74 5f 65 78 74 72 61  *     test_extra
2f00: 63 74 28 72 65 63 6f 72 64 2c 20 66 69 65 6c 64  ct(record, field
2f10: 29 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e  ).**.** This fun
2f20: 63 74 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74 73  ction implements
2f30: 20 61 6e 20 53 51 4c 20 75 73 65 72 2d 66 75 6e   an SQL user-fun
2f40: 63 74 69 6f 6e 20 74 68 61 74 20 61 63 63 65 70  ction that accep
2f50: 74 73 20 61 20 62 6c 6f 62 0a 2a 2a 20 63 6f 6e  ts a blob.** con
2f60: 74 61 69 6e 69 6e 67 20 61 20 66 6f 72 6d 61 74  taining a format
2f70: 74 65 64 20 64 61 74 61 62 61 73 65 20 72 65 63  ted database rec
2f80: 6f 72 64 20 61 73 20 74 68 65 20 66 69 72 73 74  ord as the first
2f90: 20 61 72 67 75 6d 65 6e 74 2e 20 54 68 65 0a 2a   argument. The.*
2fa0: 2a 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e  * second argumen
2fb0: 74 20 69 73 20 74 68 65 20 69 6e 64 65 78 20 6f  t is the index o
2fc0: 66 20 74 68 65 20 66 69 65 6c 64 20 77 69 74 68  f the field with
2fd0: 69 6e 20 74 68 61 74 20 72 65 63 6f 72 64 20 74  in that record t
2fe0: 6f 0a 2a 2a 20 65 78 74 72 61 63 74 20 61 6e 64  o.** extract and
2ff0: 20 72 65 74 75 72 6e 2e 0a 2a 2f 0a 73 74 61 74   return..*/.stat
3000: 69 63 20 76 6f 69 64 20 74 65 73 74 5f 65 78 74  ic void test_ext
3010: 72 61 63 74 28 0a 20 20 73 71 6c 69 74 65 33 5f  ract(.  sqlite3_
3020: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
3030: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20  ,.  int argc,.  
3040: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
3050: 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65  argv.){.  sqlite
3060: 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33 5f  3 *db = sqlite3_
3070: 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c  context_db_handl
3080: 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 75 38  e(context);.  u8
3090: 20 2a 70 52 65 63 3b 0a 20 20 75 38 20 2a 70 45   *pRec;.  u8 *pE
30a0: 6e 64 48 64 72 3b 20 20 20 20 20 20 20 20 20 20  ndHdr;          
30b0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 6f 69            /* Poi
30c0: 6e 74 73 20 74 6f 20 6f 6e 65 20 62 79 74 65 20  nts to one byte 
30d0: 70 61 73 74 20 72 65 63 6f 72 64 20 68 65 61 64  past record head
30e0: 65 72 20 2a 2f 0a 20 20 75 38 20 2a 70 48 64 72  er */.  u8 *pHdr
30f0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
3100: 20 20 20 20 20 20 20 20 2f 2a 20 43 75 72 72 65          /* Curre
3110: 6e 74 20 70 6f 69 6e 74 20 69 6e 20 72 65 63 6f  nt point in reco
3120: 72 64 20 68 65 61 64 65 72 20 2a 2f 0a 20 20 75  rd header */.  u
3130: 38 20 2a 70 42 6f 64 79 3b 20 20 20 20 20 20 20  8 *pBody;       
3140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
3150: 2a 20 43 75 72 72 65 6e 74 20 70 6f 69 6e 74 20  * Current point 
3160: 69 6e 20 72 65 63 6f 72 64 20 64 61 74 61 20 2a  in record data *
3170: 2f 0a 20 20 75 36 34 20 6e 48 64 72 3b 20 20 20  /.  u64 nHdr;   
3180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3190: 20 20 20 20 2f 2a 20 42 79 74 65 73 20 69 6e 20      /* Bytes in 
31a0: 72 65 63 6f 72 64 20 68 65 61 64 65 72 20 2a 2f  record header */
31b0: 0a 20 20 69 6e 74 20 69 49 64 78 3b 20 20 20 20  .  int iIdx;    
31c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
31d0: 20 20 20 2f 2a 20 52 65 71 75 69 72 65 64 20 66     /* Required f
31e0: 69 65 6c 64 20 2a 2f 0a 20 20 69 6e 74 20 69 43  ield */.  int iC
31f0: 75 72 72 65 6e 74 20 3d 20 30 3b 20 20 20 20 20  urrent = 0;     
3200: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 75 72            /* Cur
3210: 72 65 6e 74 20 66 69 65 6c 64 20 2a 2f 0a 0a 20  rent field */.. 
3220: 20 61 73 73 65 72 74 28 20 61 72 67 63 3d 3d 32   assert( argc==2
3230: 20 29 3b 0a 20 20 70 52 65 63 20 3d 20 28 75 38   );.  pRec = (u8
3240: 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  *)sqlite3_value_
3250: 62 6c 6f 62 28 61 72 67 76 5b 30 5d 29 3b 0a 20  blob(argv[0]);. 
3260: 20 69 49 64 78 20 3d 20 73 71 6c 69 74 65 33 5f   iIdx = sqlite3_
3270: 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 31  value_int(argv[1
3280: 5d 29 3b 0a 0a 20 20 70 48 64 72 20 3d 20 70 52  ]);..  pHdr = pR
3290: 65 63 20 2b 20 73 71 6c 69 74 65 33 47 65 74 56  ec + sqlite3GetV
32a0: 61 72 69 6e 74 28 70 52 65 63 2c 20 26 6e 48 64  arint(pRec, &nHd
32b0: 72 29 3b 0a 20 20 70 42 6f 64 79 20 3d 20 70 45  r);.  pBody = pE
32c0: 6e 64 48 64 72 20 3d 20 26 70 52 65 63 5b 6e 48  ndHdr = &pRec[nH
32d0: 64 72 5d 3b 0a 0a 20 20 66 6f 72 28 69 43 75 72  dr];..  for(iCur
32e0: 72 65 6e 74 3d 30 3b 20 70 48 64 72 3c 70 45 6e  rent=0; pHdr<pEn
32f0: 64 48 64 72 20 26 26 20 69 43 75 72 72 65 6e 74  dHdr && iCurrent
3300: 3c 3d 69 49 64 78 3b 20 69 43 75 72 72 65 6e 74  <=iIdx; iCurrent
3310: 2b 2b 29 7b 0a 20 20 20 20 75 36 34 20 69 53 65  ++){.    u64 iSe
3320: 72 69 61 6c 54 79 70 65 3b 0a 20 20 20 20 4d 65  rialType;.    Me
3330: 6d 20 6d 65 6d 3b 0a 0a 20 20 20 20 6d 65 6d 73  m mem;..    mems
3340: 65 74 28 26 6d 65 6d 2c 20 30 2c 20 73 69 7a 65  et(&mem, 0, size
3350: 6f 66 28 6d 65 6d 29 29 3b 0a 20 20 20 20 6d 65  of(mem));.    me
3360: 6d 2e 64 62 20 3d 20 64 62 3b 0a 20 20 20 20 6d  m.db = db;.    m
3370: 65 6d 2e 65 6e 63 20 3d 20 45 4e 43 28 64 62 29  em.enc = ENC(db)
3380: 3b 0a 20 20 20 20 70 48 64 72 20 2b 3d 20 73 71  ;.    pHdr += sq
3390: 6c 69 74 65 33 47 65 74 56 61 72 69 6e 74 28 70  lite3GetVarint(p
33a0: 48 64 72 2c 20 26 69 53 65 72 69 61 6c 54 79 70  Hdr, &iSerialTyp
33b0: 65 29 3b 0a 20 20 20 20 70 42 6f 64 79 20 2b 3d  e);.    pBody +=
33c0: 20 73 71 6c 69 74 65 33 56 64 62 65 53 65 72 69   sqlite3VdbeSeri
33d0: 61 6c 47 65 74 28 70 42 6f 64 79 2c 20 28 75 33  alGet(pBody, (u3
33e0: 32 29 69 53 65 72 69 61 6c 54 79 70 65 2c 20 26  2)iSerialType, &
33f0: 6d 65 6d 29 3b 0a 0a 20 20 20 20 69 66 28 20 69  mem);..    if( i
3400: 43 75 72 72 65 6e 74 3d 3d 69 49 64 78 20 29 7b  Current==iIdx ){
3410: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72  .      sqlite3_r
3420: 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f 6e 74  esult_value(cont
3430: 65 78 74 2c 20 26 6d 65 6d 29 3b 0a 20 20 20 20  ext, &mem);.    
3440: 7d 0a 0a 20 20 20 20 69 66 28 20 6d 65 6d 2e 73  }..    if( mem.s
3450: 7a 4d 61 6c 6c 6f 63 20 29 20 73 71 6c 69 74 65  zMalloc ) sqlite
3460: 33 44 62 46 72 65 65 28 64 62 2c 20 6d 65 6d 2e  3DbFree(db, mem.
3470: 7a 4d 61 6c 6c 6f 63 29 3b 0a 20 20 7d 0a 7d 0a  zMalloc);.  }.}.
3480: 0a 2f 2a 0a 2a 2a 20 20 20 20 20 20 74 65 73 74  ./*.**      test
3490: 5f 64 65 63 6f 64 65 28 72 65 63 6f 72 64 29 0a  _decode(record).
34a0: 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74  **.** This funct
34b0: 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61  ion implements a
34c0: 6e 20 53 51 4c 20 75 73 65 72 2d 66 75 6e 63 74  n SQL user-funct
34d0: 69 6f 6e 20 74 68 61 74 20 61 63 63 65 70 74 73  ion that accepts
34e0: 20 61 20 62 6c 6f 62 0a 2a 2a 20 63 6f 6e 74 61   a blob.** conta
34f0: 69 6e 69 6e 67 20 61 20 66 6f 72 6d 61 74 74 65  ining a formatte
3500: 64 20 64 61 74 61 62 61 73 65 20 72 65 63 6f 72  d database recor
3510: 64 20 61 73 20 69 74 73 20 6f 6e 6c 79 20 61 72  d as its only ar
3520: 67 75 6d 65 6e 74 2e 20 49 74 20 72 65 74 75 72  gument. It retur
3530: 6e 73 0a 2a 2a 20 61 20 74 63 6c 20 6c 69 73 74  ns.** a tcl list
3540: 20 28 74 79 70 65 20 53 51 4c 49 54 45 5f 54 45   (type SQLITE_TE
3550: 58 54 29 20 63 6f 6e 74 61 69 6e 69 6e 67 20 65  XT) containing e
3560: 61 63 68 20 6f 66 20 74 68 65 20 76 61 6c 75 65  ach of the value
3570: 73 20 73 74 6f 72 65 64 0a 2a 2a 20 69 6e 20 74  s stored.** in t
3580: 68 65 20 72 65 63 6f 72 64 2e 0a 2a 2f 0a 73 74  he record..*/.st
3590: 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f 64  atic void test_d
35a0: 65 63 6f 64 65 28 0a 20 20 73 71 6c 69 74 65 33  ecode(.  sqlite3
35b0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
35c0: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20  t,.  int argc,. 
35d0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
35e0: 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74  *argv.){.  sqlit
35f0: 65 33 20 2a 64 62 20 3d 20 73 71 6c 69 74 65 33  e3 *db = sqlite3
3600: 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64  _context_db_hand
3610: 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 75  le(context);.  u
3620: 38 20 2a 70 52 65 63 3b 0a 20 20 75 38 20 2a 70  8 *pRec;.  u8 *p
3630: 45 6e 64 48 64 72 3b 20 20 20 20 20 20 20 20 20  EndHdr;         
3640: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 6f             /* Po
3650: 69 6e 74 73 20 74 6f 20 6f 6e 65 20 62 79 74 65  ints to one byte
3660: 20 70 61 73 74 20 72 65 63 6f 72 64 20 68 65 61   past record hea
3670: 64 65 72 20 2a 2f 0a 20 20 75 38 20 2a 70 48 64  der */.  u8 *pHd
3680: 72 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  r;              
3690: 20 20 20 20 20 20 20 20 20 2f 2a 20 43 75 72 72           /* Curr
36a0: 65 6e 74 20 70 6f 69 6e 74 20 69 6e 20 72 65 63  ent point in rec
36b0: 6f 72 64 20 68 65 61 64 65 72 20 2a 2f 0a 20 20  ord header */.  
36c0: 75 38 20 2a 70 42 6f 64 79 3b 20 20 20 20 20 20  u8 *pBody;      
36d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
36e0: 2f 2a 20 43 75 72 72 65 6e 74 20 70 6f 69 6e 74  /* Current point
36f0: 20 69 6e 20 72 65 63 6f 72 64 20 64 61 74 61 20   in record data 
3700: 2a 2f 0a 20 20 75 36 34 20 6e 48 64 72 3b 20 20  */.  u64 nHdr;  
3710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3720: 20 20 20 20 20 2f 2a 20 42 79 74 65 73 20 69 6e       /* Bytes in
3730: 20 72 65 63 6f 72 64 20 68 65 61 64 65 72 20 2a   record header *
3740: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65  /.  Tcl_Obj *pRe
3750: 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t;              
3760: 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 76 61      /* Return va
3770: 6c 75 65 20 2a 2f 0a 0a 20 20 70 52 65 74 20 3d  lue */..  pRet =
3780: 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20   Tcl_NewObj();. 
3790: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e   Tcl_IncrRefCoun
37a0: 74 28 70 52 65 74 29 3b 0a 0a 20 20 61 73 73 65  t(pRet);..  asse
37b0: 72 74 28 20 61 72 67 63 3d 3d 31 20 29 3b 0a 20  rt( argc==1 );. 
37c0: 20 70 52 65 63 20 3d 20 28 75 38 2a 29 73 71 6c   pRec = (u8*)sql
37d0: 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28  ite3_value_blob(
37e0: 61 72 67 76 5b 30 5d 29 3b 0a 0a 20 20 70 48 64  argv[0]);..  pHd
37f0: 72 20 3d 20 70 52 65 63 20 2b 20 73 71 6c 69 74  r = pRec + sqlit
3800: 65 33 47 65 74 56 61 72 69 6e 74 28 70 52 65 63  e3GetVarint(pRec
3810: 2c 20 26 6e 48 64 72 29 3b 0a 20 20 70 42 6f 64  , &nHdr);.  pBod
3820: 79 20 3d 20 70 45 6e 64 48 64 72 20 3d 20 26 70  y = pEndHdr = &p
3830: 52 65 63 5b 6e 48 64 72 5d 3b 0a 20 20 77 68 69  Rec[nHdr];.  whi
3840: 6c 65 28 20 70 48 64 72 3c 70 45 6e 64 48 64 72  le( pHdr<pEndHdr
3850: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20   ){.    Tcl_Obj 
3860: 2a 70 56 61 6c 20 3d 20 30 3b 0a 20 20 20 20 75  *pVal = 0;.    u
3870: 36 34 20 69 53 65 72 69 61 6c 54 79 70 65 3b 0a  64 iSerialType;.
3880: 20 20 20 20 4d 65 6d 20 6d 65 6d 3b 0a 0a 20 20      Mem mem;..  
3890: 20 20 6d 65 6d 73 65 74 28 26 6d 65 6d 2c 20 30    memset(&mem, 0
38a0: 2c 20 73 69 7a 65 6f 66 28 6d 65 6d 29 29 3b 0a  , sizeof(mem));.
38b0: 20 20 20 20 6d 65 6d 2e 64 62 20 3d 20 64 62 3b      mem.db = db;
38c0: 0a 20 20 20 20 6d 65 6d 2e 65 6e 63 20 3d 20 45  .    mem.enc = E
38d0: 4e 43 28 64 62 29 3b 0a 20 20 20 20 70 48 64 72  NC(db);.    pHdr
38e0: 20 2b 3d 20 73 71 6c 69 74 65 33 47 65 74 56 61   += sqlite3GetVa
38f0: 72 69 6e 74 28 70 48 64 72 2c 20 26 69 53 65 72  rint(pHdr, &iSer
3900: 69 61 6c 54 79 70 65 29 3b 0a 20 20 20 20 70 42  ialType);.    pB
3910: 6f 64 79 20 2b 3d 20 73 71 6c 69 74 65 33 56 64  ody += sqlite3Vd
3920: 62 65 53 65 72 69 61 6c 47 65 74 28 70 42 6f 64  beSerialGet(pBod
3930: 79 2c 20 28 75 33 32 29 69 53 65 72 69 61 6c 54  y, (u32)iSerialT
3940: 79 70 65 2c 20 26 6d 65 6d 29 3b 0a 0a 20 20 20  ype, &mem);..   
3950: 20 73 77 69 74 63 68 28 20 73 71 6c 69 74 65 33   switch( sqlite3
3960: 5f 76 61 6c 75 65 5f 74 79 70 65 28 26 6d 65 6d  _value_type(&mem
3970: 29 20 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20  ) ){.      case 
3980: 53 51 4c 49 54 45 5f 54 45 58 54 3a 0a 20 20 20  SQLITE_TEXT:.   
3990: 20 20 20 20 20 70 56 61 6c 20 3d 20 54 63 6c 5f       pVal = Tcl_
39a0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 6f  NewStringObj((co
39b0: 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65  nst char*)sqlite
39c0: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 26 6d 65  3_value_text(&me
39d0: 6d 29 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20  m), -1);.       
39e0: 20 62 72 65 61 6b 3b 0a 0a 20 20 20 20 20 20 63   break;..      c
39f0: 61 73 65 20 53 51 4c 49 54 45 5f 42 4c 4f 42 3a  ase SQLITE_BLOB:
3a00: 20 7b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20   {.        char 
3a10: 68 65 78 64 69 67 69 74 5b 5d 20 3d 20 7b 0a 20  hexdigit[] = {. 
3a20: 20 20 20 20 20 20 20 20 20 27 30 27 2c 20 27 31           '0', '1
3a30: 27 2c 20 27 32 27 2c 20 27 33 27 2c 20 27 34 27  ', '2', '3', '4'
3a40: 2c 20 27 35 27 2c 20 27 36 27 2c 20 27 37 27 2c  , '5', '6', '7',
3a50: 0a 20 20 20 20 20 20 20 20 20 20 27 38 27 2c 20  .          '8', 
3a60: 27 39 27 2c 20 27 61 27 2c 20 27 62 27 2c 20 27  '9', 'a', 'b', '
3a70: 63 27 2c 20 27 64 27 2c 20 27 65 27 2c 20 27 66  c', 'd', 'e', 'f
3a80: 27 0a 20 20 20 20 20 20 20 20 7d 3b 0a 20 20 20  '.        };.   
3a90: 20 20 20 20 20 69 6e 74 20 6e 20 3d 20 73 71 6c       int n = sql
3aa0: 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73  ite3_value_bytes
3ab0: 28 26 6d 65 6d 29 3b 0a 20 20 20 20 20 20 20 20  (&mem);.        
3ac0: 75 38 20 2a 7a 20 3d 20 28 75 38 2a 29 73 71 6c  u8 *z = (u8*)sql
3ad0: 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28  ite3_value_blob(
3ae0: 26 6d 65 6d 29 3b 0a 20 20 20 20 20 20 20 20 69  &mem);.        i
3af0: 6e 74 20 69 3b 0a 20 20 20 20 20 20 20 20 70 56  nt i;.        pV
3b00: 61 6c 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  al = Tcl_NewStri
3b10: 6e 67 4f 62 6a 28 22 78 27 22 2c 20 2d 31 29 3b  ngObj("x'", -1);
3b20: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30  .        for(i=0
3b30: 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20  ; i<n; i++){.   
3b40: 20 20 20 20 20 20 20 63 68 61 72 20 68 65 78 5b         char hex[
3b50: 33 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 68 65  3];.          he
3b60: 78 5b 30 5d 20 3d 20 68 65 78 64 69 67 69 74 5b  x[0] = hexdigit[
3b70: 28 28 7a 5b 69 5d 20 3e 3e 20 34 29 20 26 20 30  ((z[i] >> 4) & 0
3b80: 78 30 46 29 5d 3b 0a 20 20 20 20 20 20 20 20 20  x0F)];.         
3b90: 20 68 65 78 5b 31 5d 20 3d 20 68 65 78 64 69 67   hex[1] = hexdig
3ba0: 69 74 5b 28 7a 5b 69 5d 20 26 20 30 78 30 46 29  it[(z[i] & 0x0F)
3bb0: 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 68 65 78  ];.          hex
3bc0: 5b 32 5d 20 3d 20 27 5c 30 27 3b 0a 20 20 20 20  [2] = '\0';.    
3bd0: 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64        Tcl_Append
3be0: 53 74 72 69 6e 67 73 54 6f 4f 62 6a 28 70 56 61  StringsToObj(pVa
3bf0: 6c 2c 20 68 65 78 2c 20 30 29 3b 0a 20 20 20 20  l, hex, 0);.    
3c00: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 54 63      }.        Tc
3c10: 6c 5f 41 70 70 65 6e 64 53 74 72 69 6e 67 73 54  l_AppendStringsT
3c20: 6f 4f 62 6a 28 70 56 61 6c 2c 20 22 27 22 2c 20  oObj(pVal, "'", 
3c30: 30 29 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61  0);.        brea
3c40: 6b 3b 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20  k;.      }..    
3c50: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 46 4c    case SQLITE_FL
3c60: 4f 41 54 3a 0a 20 20 20 20 20 20 20 20 70 56 61  OAT:.        pVa
3c70: 6c 20 3d 20 54 63 6c 5f 4e 65 77 44 6f 75 62 6c  l = Tcl_NewDoubl
3c80: 65 4f 62 6a 28 73 71 6c 69 74 65 33 5f 76 61 6c  eObj(sqlite3_val
3c90: 75 65 5f 64 6f 75 62 6c 65 28 26 6d 65 6d 29 29  ue_double(&mem))
3ca0: 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b  ;.        break;
3cb0: 0a 0a 20 20 20 20 20 20 63 61 73 65 20 53 51 4c  ..      case SQL
3cc0: 49 54 45 5f 49 4e 54 45 47 45 52 3a 0a 20 20 20  ITE_INTEGER:.   
3cd0: 20 20 20 20 20 70 56 61 6c 20 3d 20 54 63 6c 5f       pVal = Tcl_
3ce0: 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 73 71  NewWideIntObj(sq
3cf0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 36  lite3_value_int6
3d00: 34 28 26 6d 65 6d 29 29 3b 0a 20 20 20 20 20 20  4(&mem));.      
3d10: 20 20 62 72 65 61 6b 3b 0a 0a 20 20 20 20 20 20    break;..      
3d20: 63 61 73 65 20 53 51 4c 49 54 45 5f 4e 55 4c 4c  case SQLITE_NULL
3d30: 3a 0a 20 20 20 20 20 20 20 20 70 56 61 6c 20 3d  :.        pVal =
3d40: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
3d50: 6a 28 22 4e 55 4c 4c 22 2c 20 2d 31 29 3b 0a 20  j("NULL", -1);. 
3d60: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 0a 20         break;.. 
3d70: 20 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 20 20       default:.  
3d80: 20 20 20 20 20 20 61 73 73 65 72 74 28 20 30 20        assert( 0 
3d90: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63  );.    }..    Tc
3da0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
3db0: 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 74 2c 20  lement(0, pRet, 
3dc0: 70 56 61 6c 29 3b 0a 0a 20 20 20 20 69 66 28 20  pVal);..    if( 
3dd0: 6d 65 6d 2e 73 7a 4d 61 6c 6c 6f 63 20 29 7b 0a  mem.szMalloc ){.
3de0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 44 62 46        sqlite3DbF
3df0: 72 65 65 28 64 62 2c 20 6d 65 6d 2e 7a 4d 61 6c  ree(db, mem.zMal
3e00: 6c 6f 63 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  loc);.    }.  }.
3e10: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c  .  sqlite3_resul
3e20: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20  t_text(context, 
3e30: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 70 52  Tcl_GetString(pR
3e40: 65 74 29 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f  et), -1, SQLITE_
3e50: 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 54 63  TRANSIENT);.  Tc
3e60: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70  l_DecrRefCount(p
3e70: 52 65 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20  Ret);.}../*.**  
3e80: 20 20 20 20 20 74 65 73 74 5f 7a 65 72 6f 62 6c       test_zerobl
3e90: 6f 62 28 4e 29 0a 2a 2a 0a 2a 2a 20 54 68 65 20  ob(N).**.** The 
3ea0: 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f  implementation o
3eb0: 66 20 73 63 61 6c 61 72 20 53 51 4c 20 66 75 6e  f scalar SQL fun
3ec0: 63 74 69 6f 6e 20 22 74 65 73 74 5f 7a 65 72 6f  ction "test_zero
3ed0: 62 6c 6f 62 28 29 22 2e 20 54 68 69 73 20 69 73  blob()". This is
3ee0: 0a 2a 2a 20 73 69 6d 69 6c 61 72 20 74 6f 20 74  .** similar to t
3ef0: 68 65 20 62 75 69 6c 74 2d 69 6e 20 7a 65 72 6f  he built-in zero
3f00: 62 6c 6f 62 28 29 20 66 75 6e 63 74 69 6f 6e 2c  blob() function,
3f10: 20 65 78 63 65 70 74 20 74 68 61 74 20 69 74 20   except that it 
3f20: 64 6f 65 73 20 6e 6f 74 0a 2a 2a 20 63 68 65 63  does not.** chec
3f30: 6b 20 74 68 61 74 20 74 68 65 20 69 6e 74 65 67  k that the integ
3f40: 65 72 20 70 61 72 61 6d 65 74 65 72 20 69 73 20  er parameter is 
3f50: 77 69 74 68 69 6e 20 72 61 6e 67 65 20 62 65 66  within range bef
3f60: 6f 72 65 20 70 61 73 73 69 6e 67 20 69 74 0a 2a  ore passing it.*
3f70: 2a 20 74 6f 20 73 71 6c 69 74 65 33 5f 72 65 73  * to sqlite3_res
3f80: 75 6c 74 5f 7a 65 72 6f 62 6c 6f 62 28 29 2e 0a  ult_zeroblob()..
3f90: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74  */.static void t
3fa0: 65 73 74 5f 7a 65 72 6f 62 6c 6f 62 28 0a 20 20  est_zeroblob(.  
3fb0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
3fc0: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20  *context,.  int 
3fd0: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f  argc,.  sqlite3_
3fe0: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a  value **argv.){.
3ff0: 20 20 69 6e 74 20 6e 5a 65 72 6f 20 3d 20 73 71    int nZero = sq
4000: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28  lite3_value_int(
4010: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c 69  argv[0]);.  sqli
4020: 74 65 33 5f 72 65 73 75 6c 74 5f 7a 65 72 6f 62  te3_result_zerob
4030: 6c 6f 62 28 63 6f 6e 74 65 78 74 2c 20 6e 5a 65  lob(context, nZe
4040: 72 6f 29 3b 0a 7d 0a 0a 2f 2a 20 20 20 20 20 20  ro);.}../*      
4050: 20 20 20 74 65 73 74 5f 67 65 74 73 75 62 74 79     test_getsubty
4060: 70 65 28 56 29 0a 2a 2a 0a 2a 2a 20 52 65 74 75  pe(V).**.** Retu
4070: 72 6e 20 74 68 65 20 73 75 62 74 79 70 65 20 66  rn the subtype f
4080: 6f 72 20 76 61 6c 75 65 20 56 2e 0a 2a 2f 0a 73  or value V..*/.s
4090: 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f  tatic void test_
40a0: 67 65 74 73 75 62 74 79 70 65 28 0a 20 20 73 71  getsubtype(.  sq
40b0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
40c0: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72  ontext,.  int ar
40d0: 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61  gc,.  sqlite3_va
40e0: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20  lue **argv.){.  
40f0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69  sqlite3_result_i
4100: 6e 74 28 63 6f 6e 74 65 78 74 2c 20 28 69 6e 74  nt(context, (int
4110: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 73  )sqlite3_value_s
4120: 75 62 74 79 70 65 28 61 72 67 76 5b 30 5d 29 29  ubtype(argv[0]))
4130: 3b 0a 7d 0a 0a 2f 2a 20 20 20 20 20 20 20 20 20  ;.}../*         
4140: 74 65 73 74 5f 66 72 6f 6d 62 69 6e 64 28 41 2c  test_frombind(A,
4150: 42 2c 43 2c 2e 2e 2e 29 0a 2a 2a 0a 2a 2a 20 52  B,C,...).**.** R
4160: 65 74 75 72 6e 20 61 6e 20 69 6e 74 65 67 65 72  eturn an integer
4170: 20 62 69 74 6d 61 73 6b 20 74 68 61 74 20 68 61   bitmask that ha
4180: 73 20 61 20 62 69 74 20 73 65 74 20 66 6f 72 20  s a bit set for 
4190: 65 76 65 72 79 20 61 72 67 75 6d 65 6e 74 0a 2a  every argument.*
41a0: 2a 20 28 75 70 20 74 6f 20 74 68 65 20 66 69 72  * (up to the fir
41b0: 73 74 20 36 33 20 61 72 67 75 6d 65 6e 74 73 29  st 63 arguments)
41c0: 20 74 68 61 74 20 6f 72 69 67 69 6e 61 74 65 73   that originates
41d0: 20 66 72 6f 6d 20 61 20 62 69 6e 64 20 61 20 70   from a bind a p
41e0: 61 72 61 6d 65 74 65 72 2e 0a 2a 2f 0a 73 74 61  arameter..*/.sta
41f0: 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f 66 72  tic void test_fr
4200: 6f 6d 62 69 6e 64 28 0a 20 20 73 71 6c 69 74 65  ombind(.  sqlite
4210: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65  3_context *conte
4220: 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a  xt,.  int argc,.
4230: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20    sqlite3_value 
4240: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69  **argv.){.  sqli
4250: 74 65 33 5f 75 69 6e 74 36 34 20 6d 20 3d 20 30  te3_uint64 m = 0
4260: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72  ;.  int i;.  for
4270: 28 69 3d 30 3b 20 69 3c 61 72 67 63 20 26 26 20  (i=0; i<argc && 
4280: 69 3c 36 33 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  i<63; i++){.    
4290: 69 66 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  if( sqlite3_valu
42a0: 65 5f 66 72 6f 6d 62 69 6e 64 28 61 72 67 76 5b  e_frombind(argv[
42b0: 69 5d 29 20 29 20 6d 20 7c 3d 20 28 28 73 71 6c  i]) ) m |= ((sql
42c0: 69 74 65 33 5f 75 69 6e 74 36 34 29 31 29 3c 3c  ite3_uint64)1)<<
42d0: 69 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33  i;.  }.  sqlite3
42e0: 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 6f  _result_int64(co
42f0: 6e 74 65 78 74 2c 20 28 73 71 6c 69 74 65 33 5f  ntext, (sqlite3_
4300: 69 6e 74 36 34 29 6d 29 3b 0a 7d 0a 0a 2f 2a 20  int64)m);.}../* 
4310: 20 20 20 20 20 20 20 20 74 65 73 74 5f 73 65 74          test_set
4320: 73 75 62 74 79 70 65 28 56 2c 20 54 29 0a 2a 2a  subtype(V, T).**
4330: 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 76  .** Return the v
4340: 61 6c 75 65 20 56 20 77 69 74 68 20 69 74 73 20  alue V with its 
4350: 73 75 62 74 79 70 65 20 63 68 61 6e 67 65 64 20  subtype changed 
4360: 74 6f 20 54 0a 2a 2f 0a 73 74 61 74 69 63 20 76  to T.*/.static v
4370: 6f 69 64 20 74 65 73 74 5f 73 65 74 73 75 62 74  oid test_setsubt
4380: 79 70 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 63  ype(.  sqlite3_c
4390: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c  ontext *context,
43a0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73  .  int argc,.  s
43b0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61  qlite3_value **a
43c0: 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33  rgv.){.  sqlite3
43d0: 5f 72 65 73 75 6c 74 5f 76 61 6c 75 65 28 63 6f  _result_value(co
43e0: 6e 74 65 78 74 2c 20 61 72 67 76 5b 30 5d 29 3b  ntext, argv[0]);
43f0: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c  .  sqlite3_resul
4400: 74 5f 73 75 62 74 79 70 65 28 63 6f 6e 74 65 78  t_subtype(contex
4410: 74 2c 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74  t, (unsigned int
4420: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69  )sqlite3_value_i
4430: 6e 74 28 61 72 67 76 5b 31 5d 29 29 3b 0a 7d 0a  nt(argv[1]));.}.
4440: 0a 73 74 61 74 69 63 20 69 6e 74 20 72 65 67 69  .static int regi
4450: 73 74 65 72 54 65 73 74 46 75 6e 63 74 69 6f 6e  sterTestFunction
4460: 73 28 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62  s(.  sqlite3 *db
4470: 2c 0a 20 20 63 68 61 72 20 2a 2a 70 7a 45 72 72  ,.  char **pzErr
4480: 4d 73 67 2c 0a 20 20 63 6f 6e 73 74 20 73 71 6c  Msg,.  const sql
4490: 69 74 65 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65  ite3_api_routine
44a0: 73 20 2a 70 54 68 75 6e 6b 0a 29 7b 0a 20 20 73  s *pThunk.){.  s
44b0: 74 61 74 69 63 20 63 6f 6e 73 74 20 73 74 72 75  tatic const stru
44c0: 63 74 20 7b 0a 20 20 20 20 20 63 68 61 72 20 2a  ct {.     char *
44d0: 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 73 69 67 6e  zName;.     sign
44e0: 65 64 20 63 68 61 72 20 6e 41 72 67 3b 0a 20 20  ed char nArg;.  
44f0: 20 20 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20     unsigned int 
4500: 65 54 65 78 74 52 65 70 3b 20 2f 2a 20 31 3a 20  eTextRep; /* 1: 
4510: 55 54 46 2d 31 36 2e 20 20 30 3a 20 55 54 46 2d  UTF-16.  0: UTF-
4520: 38 20 2a 2f 0a 20 20 20 20 20 76 6f 69 64 20 28  8 */.     void (
4530: 2a 78 46 75 6e 63 29 28 73 71 6c 69 74 65 33 5f  *xFunc)(sqlite3_
4540: 63 6f 6e 74 65 78 74 2a 2c 69 6e 74 2c 73 71 6c  context*,int,sql
4550: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 29 3b 0a  ite3_value **);.
4560: 20 20 7d 20 61 46 75 6e 63 73 5b 5d 20 3d 20 7b    } aFuncs[] = {
4570: 0a 20 20 20 20 7b 20 22 72 61 6e 64 73 74 72 22  .    { "randstr"
4580: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
4590: 32 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20  2, SQLITE_UTF8, 
45a0: 72 61 6e 64 53 74 72 20 20 20 20 7d 2c 0a 20 20  randStr    },.  
45b0: 20 20 7b 20 22 74 65 73 74 5f 64 65 73 74 72 75    { "test_destru
45c0: 63 74 6f 72 22 2c 20 20 20 20 20 20 20 31 2c 20  ctor",       1, 
45d0: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 74 65 73  SQLITE_UTF8, tes
45e0: 74 5f 64 65 73 74 72 75 63 74 6f 72 7d 2c 0a 23  t_destructor},.#
45f0: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  ifndef SQLITE_OM
4600: 49 54 5f 55 54 46 31 36 0a 20 20 20 20 7b 20 22  IT_UTF16.    { "
4610: 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 31  test_destructor1
4620: 36 22 2c 20 20 20 20 20 31 2c 20 53 51 4c 49 54  6",     1, SQLIT
4630: 45 5f 55 54 46 38 2c 20 74 65 73 74 5f 64 65 73  E_UTF8, test_des
4640: 74 72 75 63 74 6f 72 31 36 7d 2c 0a 20 20 20 20  tructor16},.    
4650: 7b 20 22 68 65 78 5f 74 6f 5f 75 74 66 31 36 62  { "hex_to_utf16b
4660: 65 22 2c 20 20 20 20 20 20 20 20 31 2c 20 53 51  e",        1, SQ
4670: 4c 49 54 45 5f 55 54 46 38 2c 20 74 65 73 74 48  LITE_UTF8, testH
4680: 65 78 54 6f 55 74 66 31 36 62 65 7d 2c 0a 20 20  exToUtf16be},.  
4690: 20 20 7b 20 22 68 65 78 5f 74 6f 5f 75 74 66 31    { "hex_to_utf1
46a0: 36 6c 65 22 2c 20 20 20 20 20 20 20 20 31 2c 20  6le",        1, 
46b0: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 74 65 73  SQLITE_UTF8, tes
46c0: 74 48 65 78 54 6f 55 74 66 31 36 6c 65 7d 2c 0a  tHexToUtf16le},.
46d0: 23 65 6e 64 69 66 0a 20 20 20 20 7b 20 22 68 65  #endif.    { "he
46e0: 78 5f 74 6f 5f 75 74 66 38 22 2c 20 20 20 20 20  x_to_utf8",     
46f0: 20 20 20 20 20 20 31 2c 20 53 51 4c 49 54 45 5f        1, SQLITE_
4700: 55 54 46 38 2c 20 74 65 73 74 48 65 78 54 6f 55  UTF8, testHexToU
4710: 74 66 38 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73  tf8},.    { "tes
4720: 74 5f 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75  t_destructor_cou
4730: 6e 74 22 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55  nt", 0, SQLITE_U
4740: 54 46 38 2c 20 74 65 73 74 5f 64 65 73 74 72 75  TF8, test_destru
4750: 63 74 6f 72 5f 63 6f 75 6e 74 7d 2c 0a 20 20 20  ctor_count},.   
4760: 20 7b 20 22 74 65 73 74 5f 61 75 78 64 61 74 61   { "test_auxdata
4770: 22 2c 20 20 20 20 20 20 20 20 20 2d 31 2c 20 53  ",         -1, S
4780: 51 4c 49 54 45 5f 55 54 46 38 2c 20 74 65 73 74  QLITE_UTF8, test
4790: 5f 61 75 78 64 61 74 61 7d 2c 0a 20 20 20 20 7b  _auxdata},.    {
47a0: 20 22 74 65 73 74 5f 65 72 72 6f 72 22 2c 20 20   "test_error",  
47b0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 53 51 4c            1, SQL
47c0: 49 54 45 5f 55 54 46 38 2c 20 74 65 73 74 5f 65  ITE_UTF8, test_e
47d0: 72 72 6f 72 7d 2c 0a 20 20 20 20 7b 20 22 74 65  rror},.    { "te
47e0: 73 74 5f 65 72 72 6f 72 22 2c 20 20 20 20 20 20  st_error",      
47f0: 20 20 20 20 20 20 32 2c 20 53 51 4c 49 54 45 5f        2, SQLITE_
4800: 55 54 46 38 2c 20 74 65 73 74 5f 65 72 72 6f 72  UTF8, test_error
4810: 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 65  },.    { "test_e
4820: 76 61 6c 22 2c 20 20 20 20 20 20 20 20 20 20 20  val",           
4830: 20 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38    1, SQLITE_UTF8
4840: 2c 20 74 65 73 74 5f 65 76 61 6c 7d 2c 0a 20 20  , test_eval},.  
4850: 20 20 7b 20 22 74 65 73 74 5f 69 73 6f 6c 61 74    { "test_isolat
4860: 69 6f 6e 22 2c 20 20 20 20 20 20 20 20 32 2c 20  ion",        2, 
4870: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 74 65 73  SQLITE_UTF8, tes
4880: 74 5f 69 73 6f 6c 61 74 69 6f 6e 7d 2c 0a 20 20  t_isolation},.  
4890: 20 20 7b 20 22 74 65 73 74 5f 63 6f 75 6e 74 65    { "test_counte
48a0: 72 22 2c 20 20 20 20 20 20 20 20 20 20 31 2c 20  r",          1, 
48b0: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 63 6f 75  SQLITE_UTF8, cou
48c0: 6e 74 65 72 46 75 6e 63 7d 2c 0a 20 20 20 20 7b  nterFunc},.    {
48d0: 20 22 72 65 61 6c 32 68 65 78 22 2c 20 20 20 20   "real2hex",    
48e0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 53 51 4c            1, SQL
48f0: 49 54 45 5f 55 54 46 38 2c 20 72 65 61 6c 32 68  ITE_UTF8, real2h
4900: 65 78 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 74  ex},.    { "test
4910: 5f 64 65 63 6f 64 65 22 2c 20 20 20 20 20 20 20  _decode",       
4920: 20 20 20 20 31 2c 20 53 51 4c 49 54 45 5f 55 54      1, SQLITE_UT
4930: 46 38 2c 20 74 65 73 74 5f 64 65 63 6f 64 65 7d  F8, test_decode}
4940: 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 65 78  ,.    { "test_ex
4950: 74 72 61 63 74 22 2c 20 20 20 20 20 20 20 20 20  tract",         
4960: 20 32 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c   2, SQLITE_UTF8,
4970: 20 74 65 73 74 5f 65 78 74 72 61 63 74 7d 2c 0a   test_extract},.
4980: 20 20 20 20 7b 20 22 74 65 73 74 5f 7a 65 72 6f      { "test_zero
4990: 62 6c 6f 62 22 2c 20 20 31 2c 20 53 51 4c 49 54  blob",  1, SQLIT
49a0: 45 5f 55 54 46 38 7c 53 51 4c 49 54 45 5f 44 45  E_UTF8|SQLITE_DE
49b0: 54 45 52 4d 49 4e 49 53 54 49 43 2c 20 74 65 73  TERMINISTIC, tes
49c0: 74 5f 7a 65 72 6f 62 6c 6f 62 7d 2c 0a 20 20 20  t_zeroblob},.   
49d0: 20 7b 20 22 74 65 73 74 5f 67 65 74 73 75 62 74   { "test_getsubt
49e0: 79 70 65 22 2c 20 20 20 20 20 20 20 31 2c 20 53  ype",       1, S
49f0: 51 4c 49 54 45 5f 55 54 46 38 2c 20 74 65 73 74  QLITE_UTF8, test
4a00: 5f 67 65 74 73 75 62 74 79 70 65 7d 2c 0a 20 20  _getsubtype},.  
4a10: 20 20 7b 20 22 74 65 73 74 5f 73 65 74 73 75 62    { "test_setsub
4a20: 74 79 70 65 22 2c 20 20 20 20 20 20 20 32 2c 20  type",       2, 
4a30: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 74 65 73  SQLITE_UTF8, tes
4a40: 74 5f 73 65 74 73 75 62 74 79 70 65 7d 2c 0a 20  t_setsubtype},. 
4a50: 20 20 20 7b 20 22 74 65 73 74 5f 66 72 6f 6d 62     { "test_fromb
4a60: 69 6e 64 22 2c 20 20 20 20 20 20 20 20 2d 31 2c  ind",        -1,
4a70: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 74 65   SQLITE_UTF8, te
4a80: 73 74 5f 66 72 6f 6d 62 69 6e 64 7d 2c 0a 20 20  st_frombind},.  
4a90: 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 66  };.  int i;..  f
4aa0: 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66  or(i=0; i<sizeof
4ab0: 28 61 46 75 6e 63 73 29 2f 73 69 7a 65 6f 66 28  (aFuncs)/sizeof(
4ac0: 61 46 75 6e 63 73 5b 30 5d 29 3b 20 69 2b 2b 29  aFuncs[0]); i++)
4ad0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 72  {.    sqlite3_cr
4ae0: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62  eate_function(db
4af0: 2c 20 61 46 75 6e 63 73 5b 69 5d 2e 7a 4e 61 6d  , aFuncs[i].zNam
4b00: 65 2c 20 61 46 75 6e 63 73 5b 69 5d 2e 6e 41 72  e, aFuncs[i].nAr
4b10: 67 2c 0a 20 20 20 20 20 20 20 20 61 46 75 6e 63  g,.        aFunc
4b20: 73 5b 69 5d 2e 65 54 65 78 74 52 65 70 2c 20 30  s[i].eTextRep, 0
4b30: 2c 20 61 46 75 6e 63 73 5b 69 5d 2e 78 46 75 6e  , aFuncs[i].xFun
4b40: 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 0a 20  c, 0, 0);.  }.. 
4b50: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f   sqlite3_create_
4b60: 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 74 65  function(db, "te
4b70: 73 74 5f 61 67 67 5f 65 72 72 6d 73 67 31 36 22  st_agg_errmsg16"
4b80: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 41 4e 59 2c  , 0, SQLITE_ANY,
4b90: 20 30 2c 20 30 2c 20 0a 20 20 20 20 20 20 74 65   0, 0, .      te
4ba0: 73 74 5f 61 67 67 5f 65 72 72 6d 73 67 31 36 5f  st_agg_errmsg16_
4bb0: 73 74 65 70 2c 20 74 65 73 74 5f 61 67 67 5f 65  step, test_agg_e
4bc0: 72 72 6d 73 67 31 36 5f 66 69 6e 61 6c 29 3b 0a  rrmsg16_final);.
4bd0: 20 20 20 20 20 20 0a 20 20 72 65 74 75 72 6e 20        .  return 
4be0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a  SQLITE_OK;.}../*
4bf0: 0a 2a 2a 20 54 43 4c 43 4d 44 3a 20 20 61 75 74  .** TCLCMD:  aut
4c00: 6f 69 6e 73 74 61 6c 6c 5f 74 65 73 74 5f 66 75  oinstall_test_fu
4c10: 6e 63 74 69 6f 6e 73 0a 2a 2a 0a 2a 2a 20 49 6e  nctions.**.** In
4c20: 76 6f 6b 65 20 74 68 69 73 20 54 43 4c 20 63 6f  voke this TCL co
4c30: 6d 6d 61 6e 64 20 74 6f 20 75 73 65 20 73 71 6c  mmand to use sql
4c40: 69 74 65 33 5f 61 75 74 6f 5f 65 78 74 65 6e 73  ite3_auto_extens
4c50: 69 6f 6e 28 29 20 74 6f 20 63 61 75 73 65 0a 2a  ion() to cause.*
4c60: 2a 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 73  * the standard s
4c70: 65 74 20 6f 66 20 74 65 73 74 20 66 75 6e 63 74  et of test funct
4c80: 69 6f 6e 73 20 74 6f 20 62 65 20 6c 6f 61 64 65  ions to be loade
4c90: 64 20 69 6e 74 6f 20 65 61 63 68 20 6e 65 77 0a  d into each new.
4ca0: 2a 2a 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e  ** database conn
4cb0: 65 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69  ection..*/.stati
4cc0: 63 20 69 6e 74 20 53 51 4c 49 54 45 5f 54 43 4c  c int SQLITE_TCL
4cd0: 41 50 49 20 61 75 74 6f 69 6e 73 74 61 6c 6c 5f  API autoinstall_
4ce0: 74 65 73 74 5f 66 75 6e 63 73 28 0a 20 20 76 6f  test_funcs(.  vo
4cf0: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
4d00: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
4d10: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
4d20: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
4d30: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
4d40: 65 78 74 65 72 6e 20 69 6e 74 20 4d 64 35 5f 52  extern int Md5_R
4d50: 65 67 69 73 74 65 72 28 73 71 6c 69 74 65 33 20  egister(sqlite3 
4d60: 2a 2c 20 63 68 61 72 20 2a 2a 2c 20 63 6f 6e 73  *, char **, cons
4d70: 74 20 73 71 6c 69 74 65 33 5f 61 70 69 5f 72 6f  t sqlite3_api_ro
4d80: 75 74 69 6e 65 73 20 2a 29 3b 0a 20 20 69 6e 74  utines *);.  int
4d90: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 61 75   rc = sqlite3_au
4da0: 74 6f 5f 65 78 74 65 6e 73 69 6f 6e 28 28 76 6f  to_extension((vo
4db0: 69 64 28 2a 29 28 76 6f 69 64 29 29 72 65 67 69  id(*)(void))regi
4dc0: 73 74 65 72 54 65 73 74 46 75 6e 63 74 69 6f 6e  sterTestFunction
4dd0: 73 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 51  s);.  if( rc==SQ
4de0: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72  LITE_OK ){.    r
4df0: 63 20 3d 20 73 71 6c 69 74 65 33 5f 61 75 74 6f  c = sqlite3_auto
4e00: 5f 65 78 74 65 6e 73 69 6f 6e 28 28 76 6f 69 64  _extension((void
4e10: 28 2a 29 28 76 6f 69 64 29 29 4d 64 35 5f 52 65  (*)(void))Md5_Re
4e20: 67 69 73 74 65 72 29 3b 0a 20 20 7d 0a 20 20 54  gister);.  }.  T
4e30: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_SetObjResult(
4e40: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49  interp, Tcl_NewI
4e50: 6e 74 4f 62 6a 28 72 63 29 29 3b 0a 20 20 72 65  ntObj(rc));.  re
4e60: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a  turn TCL_OK;.}..
4e70: 2f 2a 0a 2a 2a 20 41 20 62 6f 67 75 73 20 73 74  /*.** A bogus st
4e80: 65 70 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20  ep function and 
4e90: 66 69 6e 61 6c 69 7a 65 72 20 66 75 6e 63 74 69  finalizer functi
4ea0: 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  on..*/.static vo
4eb0: 69 64 20 74 53 74 65 70 28 73 71 6c 69 74 65 33  id tStep(sqlite3
4ec0: 5f 63 6f 6e 74 65 78 74 20 2a 61 2c 20 69 6e 74  _context *a, int
4ed0: 20 62 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75   b, sqlite3_valu
4ee0: 65 20 2a 2a 63 29 7b 7d 0a 73 74 61 74 69 63 20  e **c){}.static 
4ef0: 76 6f 69 64 20 74 46 69 6e 61 6c 28 73 71 6c 69  void tFinal(sqli
4f00: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 61 29 7b  te3_context *a){
4f10: 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64  }.../*.** tclcmd
4f20: 3a 20 20 61 62 75 73 65 5f 63 72 65 61 74 65 5f  :  abuse_create_
4f30: 66 75 6e 63 74 69 6f 6e 0a 2a 2a 0a 2a 2a 20 4d  function.**.** M
4f40: 61 6b 65 20 76 61 72 69 6f 75 73 20 63 61 6c 6c  ake various call
4f50: 73 20 74 6f 20 73 71 6c 69 74 65 33 5f 63 72 65  s to sqlite3_cre
4f60: 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 74 68 61  ate_function tha
4f70: 74 20 64 6f 20 6e 6f 74 20 68 61 76 65 20 76 61  t do not have va
4f80: 6c 69 64 0a 2a 2a 20 70 61 72 61 6d 65 74 65 72  lid.** parameter
4f90: 73 2e 20 20 56 65 72 69 66 79 20 74 68 61 74 20  s.  Verify that 
4fa0: 74 68 65 20 65 72 72 6f 72 20 63 6f 6e 64 69 74  the error condit
4fb0: 69 6f 6e 20 69 73 20 64 65 74 65 63 74 65 64 20  ion is detected 
4fc0: 61 6e 64 20 72 65 70 6f 72 74 65 64 2e 0a 2a 2f  and reported..*/
4fd0: 0a 73 74 61 74 69 63 20 69 6e 74 20 53 51 4c 49  .static int SQLI
4fe0: 54 45 5f 54 43 4c 41 50 49 20 61 62 75 73 65 5f  TE_TCLAPI abuse_
4ff0: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28  create_function(
5000: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74  .  void * client
5010: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65  Data,.  Tcl_Inte
5020: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e  rp *interp,.  in
5030: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62  t objc,.  Tcl_Ob
5040: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a  j *CONST objv[].
5050: 29 7b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20  ){.  extern int 
5060: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 54 63 6c  getDbPointer(Tcl
5070: 5f 49 6e 74 65 72 70 2a 2c 20 63 6f 6e 73 74 20  _Interp*, const 
5080: 63 68 61 72 2a 2c 20 73 71 6c 69 74 65 33 2a 2a  char*, sqlite3**
5090: 29 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62  );.  sqlite3 *db
50a0: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e  ;.  int rc;.  in
50b0: 74 20 6d 78 41 72 67 3b 0a 0a 20 20 69 66 28 20  t mxArg;..  if( 
50c0: 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74  getDbPointer(int
50d0: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69  erp, Tcl_GetStri
50e0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62  ng(objv[1]), &db
50f0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45  ) ) return TCL_E
5100: 52 52 4f 52 3b 0a 0a 20 20 72 63 20 3d 20 73 71  RROR;..  rc = sq
5110: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e  lite3_create_fun
5120: 63 74 69 6f 6e 28 64 62 2c 20 22 74 78 22 2c 20  ction(db, "tx", 
5130: 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20  1, SQLITE_UTF8, 
5140: 30 2c 20 74 53 74 65 70 2c 74 53 74 65 70 2c 74  0, tStep,tStep,t
5150: 46 69 6e 61 6c 29 3b 0a 20 20 69 66 28 20 72 63  Final);.  if( rc
5160: 21 3d 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20  !=SQLITE_MISUSE 
5170: 29 20 67 6f 74 6f 20 61 62 75 73 65 5f 65 72 72  ) goto abuse_err
5180: 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65  ;..  rc = sqlite
5190: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f  3_create_functio
51a0: 6e 28 64 62 2c 20 22 74 78 22 2c 20 31 2c 20 53  n(db, "tx", 1, S
51b0: 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 74  QLITE_UTF8, 0, t
51c0: 53 74 65 70 2c 20 74 53 74 65 70 2c 20 30 29 3b  Step, tStep, 0);
51d0: 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54  .  if( rc!=SQLIT
51e0: 45 5f 4d 49 53 55 53 45 20 29 20 67 6f 74 6f 20  E_MISUSE ) goto 
51f0: 61 62 75 73 65 5f 65 72 72 3b 0a 0a 20 20 72 63  abuse_err;..  rc
5200: 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74   = sqlite3_creat
5210: 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22  e_function(db, "
5220: 74 78 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55  tx", 1, SQLITE_U
5230: 54 46 38 2c 20 30 2c 20 74 53 74 65 70 2c 20 30  TF8, 0, tStep, 0
5240: 2c 20 74 46 69 6e 61 6c 29 3b 0a 20 20 69 66 28  , tFinal);.  if(
5250: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4d 49 53 55   rc!=SQLITE_MISU
5260: 53 45 29 20 67 6f 74 6f 20 61 62 75 73 65 5f 65  SE) goto abuse_e
5270: 72 72 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69  rr;..  rc = sqli
5280: 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74  te3_create_funct
5290: 69 6f 6e 28 64 62 2c 20 22 74 78 22 2c 20 31 2c  ion(db, "tx", 1,
52a0: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c   SQLITE_UTF8, 0,
52b0: 20 30 2c 20 30 2c 20 74 46 69 6e 61 6c 29 3b 0a   0, 0, tFinal);.
52c0: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45    if( rc!=SQLITE
52d0: 5f 4d 49 53 55 53 45 20 29 20 67 6f 74 6f 20 61  _MISUSE ) goto a
52e0: 62 75 73 65 5f 65 72 72 3b 0a 0a 20 20 72 63 20  buse_err;..  rc 
52f0: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65  = sqlite3_create
5300: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 74  _function(db, "t
5310: 78 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54  x", 1, SQLITE_UT
5320: 46 38 2c 20 30 2c 20 30 2c 20 74 53 74 65 70 2c  F8, 0, 0, tStep,
5330: 20 30 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53   0);.  if( rc!=S
5340: 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 29 20 67  QLITE_MISUSE ) g
5350: 6f 74 6f 20 61 62 75 73 65 5f 65 72 72 3b 0a 0a  oto abuse_err;..
5360: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63    rc = sqlite3_c
5370: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64  reate_function(d
5380: 62 2c 20 22 74 78 22 2c 20 2d 32 2c 20 53 51 4c  b, "tx", -2, SQL
5390: 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 74 53 74  ITE_UTF8, 0, tSt
53a0: 65 70 2c 20 30 2c 20 30 29 3b 0a 20 20 69 66 28  ep, 0, 0);.  if(
53b0: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4d 49 53 55   rc!=SQLITE_MISU
53c0: 53 45 20 29 20 67 6f 74 6f 20 61 62 75 73 65 5f  SE ) goto abuse_
53d0: 65 72 72 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c  err;..  rc = sql
53e0: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63  ite3_create_func
53f0: 74 69 6f 6e 28 64 62 2c 20 22 74 78 22 2c 20 31  tion(db, "tx", 1
5400: 32 38 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c  28, SQLITE_UTF8,
5410: 20 30 2c 20 74 53 74 65 70 2c 20 30 2c 20 30 29   0, tStep, 0, 0)
5420: 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49  ;.  if( rc!=SQLI
5430: 54 45 5f 4d 49 53 55 53 45 20 29 20 67 6f 74 6f  TE_MISUSE ) goto
5440: 20 61 62 75 73 65 5f 65 72 72 3b 0a 0a 20 20 72   abuse_err;..  r
5450: 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61  c = sqlite3_crea
5460: 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20  te_function(db, 
5470: 22 66 75 6e 63 78 78 22 0a 20 20 20 20 20 20 20  "funcxx".       
5480: 22 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34  "_123456789_1234
5490: 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f  56789_123456789_
54a0: 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36  123456789_123456
54b0: 37 38 39 22 0a 20 20 20 20 20 20 20 22 5f 31 32  789".       "_12
54c0: 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38  3456789_12345678
54d0: 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34  9_123456789_1234
54e0: 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 22  56789_123456789"
54f0: 0a 20 20 20 20 20 20 20 22 5f 31 32 33 34 35 36  .       "_123456
5500: 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32  789_123456789_12
5510: 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38  3456789_12345678
5520: 39 5f 31 32 33 34 35 36 37 38 39 22 0a 20 20 20  9_123456789".   
5530: 20 20 20 20 22 5f 31 32 33 34 35 36 37 38 39 5f      "_123456789_
5540: 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36  123456789_123456
5550: 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32  789_123456789_12
5560: 33 34 35 36 37 38 39 22 0a 20 20 20 20 20 20 20  3456789".       
5570: 22 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34  "_123456789_1234
5580: 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f  56789_123456789_
5590: 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36  123456789_123456
55a0: 37 38 39 22 2c 0a 20 20 20 20 20 20 20 31 2c 20  789",.       1, 
55b0: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20  SQLITE_UTF8, 0, 
55c0: 74 53 74 65 70 2c 20 30 2c 20 30 29 3b 0a 20 20  tStep, 0, 0);.  
55d0: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4d  if( rc!=SQLITE_M
55e0: 49 53 55 53 45 20 29 20 67 6f 74 6f 20 61 62 75  ISUSE ) goto abu
55f0: 73 65 5f 65 72 72 3b 0a 0a 20 20 2f 2a 20 54 68  se_err;..  /* Th
5600: 69 73 20 6c 61 73 74 20 66 75 6e 63 74 69 6f 6e  is last function
5610: 20 72 65 67 69 73 74 72 61 74 69 6f 6e 20 73 68   registration sh
5620: 6f 75 6c 64 20 61 63 74 75 61 6c 6c 79 20 77 6f  ould actually wo
5630: 72 6b 2e 20 20 47 65 6e 65 72 61 74 65 0a 20 20  rk.  Generate.  
5640: 2a 2a 20 61 20 6e 6f 2d 6f 70 20 66 75 6e 63 74  ** a no-op funct
5650: 69 6f 6e 20 28 74 68 61 74 20 61 6c 77 61 79 73  ion (that always
5660: 20 72 65 74 75 72 6e 73 20 4e 55 4c 4c 29 20 61   returns NULL) a
5670: 6e 64 20 77 68 69 63 68 20 68 61 73 20 74 68 65  nd which has the
5680: 0a 20 20 2a 2a 20 6d 61 78 69 6d 75 6d 2d 6c 65  .  ** maximum-le
5690: 6e 67 74 68 20 66 75 6e 63 74 69 6f 6e 20 6e 61  ngth function na
56a0: 6d 65 20 61 6e 64 20 74 68 65 20 6d 61 78 69 6d  me and the maxim
56b0: 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 70 61 72  um number of par
56c0: 61 6d 65 74 65 72 73 2e 0a 20 20 2a 2f 0a 20 20  ameters..  */.  
56d0: 73 71 6c 69 74 65 33 5f 6c 69 6d 69 74 28 64 62  sqlite3_limit(db
56e0: 2c 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 46  , SQLITE_LIMIT_F
56f0: 55 4e 43 54 49 4f 4e 5f 41 52 47 2c 20 31 30 30  UNCTION_ARG, 100
5700: 30 30 29 3b 0a 20 20 6d 78 41 72 67 20 3d 20 73  00);.  mxArg = s
5710: 71 6c 69 74 65 33 5f 6c 69 6d 69 74 28 64 62 2c  qlite3_limit(db,
5720: 20 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f 46 55   SQLITE_LIMIT_FU
5730: 4e 43 54 49 4f 4e 5f 41 52 47 2c 20 2d 31 29 3b  NCTION_ARG, -1);
5740: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f  .  rc = sqlite3_
5750: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28  create_function(
5760: 64 62 2c 20 22 6e 75 6c 6c 78 22 0a 20 20 20 20  db, "nullx".    
5770: 20 20 20 22 5f 31 32 33 34 35 36 37 38 39 5f 31     "_123456789_1
5780: 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37  23456789_1234567
5790: 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33  89_123456789_123
57a0: 34 35 36 37 38 39 22 0a 20 20 20 20 20 20 20 22  456789".       "
57b0: 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35  _123456789_12345
57c0: 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31  6789_123456789_1
57d0: 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37  23456789_1234567
57e0: 38 39 22 0a 20 20 20 20 20 20 20 22 5f 31 32 33  89".       "_123
57f0: 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39  456789_123456789
5800: 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35  _123456789_12345
5810: 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 22 0a  6789_123456789".
5820: 20 20 20 20 20 20 20 22 5f 31 32 33 34 35 36 37         "_1234567
5830: 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33  89_123456789_123
5840: 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39  456789_123456789
5850: 5f 31 32 33 34 35 36 37 38 39 22 0a 20 20 20 20  _123456789".    
5860: 20 20 20 22 5f 31 32 33 34 35 36 37 38 39 5f 31     "_123456789_1
5870: 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37  23456789_1234567
5880: 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33  89_123456789_123
5890: 34 35 36 37 38 39 22 2c 0a 20 20 20 20 20 20 20  456789",.       
58a0: 6d 78 41 72 67 2c 20 53 51 4c 49 54 45 5f 55 54  mxArg, SQLITE_UT
58b0: 46 38 2c 20 30 2c 20 74 53 74 65 70 2c 20 30 2c  F8, 0, tStep, 0,
58c0: 20 30 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53   0);.  if( rc!=S
58d0: 51 4c 49 54 45 5f 4f 4b 20 29 20 67 6f 74 6f 20  QLITE_OK ) goto 
58e0: 61 62 75 73 65 5f 65 72 72 3b 0a 20 20 20 20 20  abuse_err;.     
58f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5900: 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 72 65             .  re
5910: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 61 62  turn TCL_OK;..ab
5920: 75 73 65 5f 65 72 72 3a 0a 20 20 54 63 6c 5f 41  use_err:.  Tcl_A
5930: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
5940: 72 70 2c 20 22 73 71 6c 69 74 65 33 5f 63 72 65  rp, "sqlite3_cre
5950: 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 61 62 75  ate_function abu
5960: 73 65 64 20 74 65 73 74 20 66 61 69 6c 65 64 22  sed test failed"
5970: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  , .             
5980: 20 20 20 20 20 20 28 63 68 61 72 2a 29 30 29 3b        (char*)0);
5990: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52  .  return TCL_ER
59a0: 52 4f 52 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 53  ROR;.}.../*.** S
59b0: 51 4c 69 74 65 20 75 73 65 72 20 64 65 66 69 6e  QLite user defin
59c0: 65 64 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 75  ed function to u
59d0: 73 65 20 77 69 74 68 20 6d 61 74 63 68 69 6e 66  se with matchinf
59e0: 6f 28 29 20 74 6f 20 63 61 6c 63 75 6c 61 74 65  o() to calculate
59f0: 20 74 68 65 0a 2a 2a 20 72 65 6c 65 76 61 6e 63   the.** relevanc
5a00: 79 20 6f 66 20 61 6e 20 46 54 53 20 6d 61 74 63  y of an FTS matc
5a10: 68 2e 20 54 68 65 20 76 61 6c 75 65 20 72 65 74  h. The value ret
5a20: 75 72 6e 65 64 20 69 73 20 74 68 65 20 72 65 6c  urned is the rel
5a30: 65 76 61 6e 63 79 20 73 63 6f 72 65 0a 2a 2a 20  evancy score.** 
5a40: 28 61 20 72 65 61 6c 20 76 61 6c 75 65 20 67 72  (a real value gr
5a50: 65 61 74 65 72 20 74 68 61 6e 20 6f 72 20 65 71  eater than or eq
5a60: 75 61 6c 20 74 6f 20 7a 65 72 6f 29 2e 20 41 20  ual to zero). A 
5a70: 6c 61 72 67 65 72 20 76 61 6c 75 65 20 69 6e 64  larger value ind
5a80: 69 63 61 74 65 73 20 0a 2a 2a 20 61 20 6d 6f 72  icates .** a mor
5a90: 65 20 72 65 6c 65 76 61 6e 74 20 64 6f 63 75 6d  e relevant docum
5aa0: 65 6e 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6f  ent..**.** The o
5ab0: 76 65 72 61 6c 6c 20 72 65 6c 65 76 61 6e 63 79  verall relevancy
5ac0: 20 72 65 74 75 72 6e 65 64 20 69 73 20 74 68 65   returned is the
5ad0: 20 73 75 6d 20 6f 66 20 74 68 65 20 72 65 6c 65   sum of the rele
5ae0: 76 61 6e 63 69 65 73 20 6f 66 20 65 61 63 68 20  vancies of each 
5af0: 0a 2a 2a 20 63 6f 6c 75 6d 6e 20 76 61 6c 75 65  .** column value
5b00: 20 69 6e 20 74 68 65 20 46 54 53 20 74 61 62 6c   in the FTS tabl
5b10: 65 2e 20 54 68 65 20 72 65 6c 65 76 61 6e 63 79  e. The relevancy
5b20: 20 6f 66 20 61 20 63 6f 6c 75 6d 6e 20 76 61 6c   of a column val
5b30: 75 65 20 69 73 20 74 68 65 0a 2a 2a 20 73 75 6d  ue is the.** sum
5b40: 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e   of the followin
5b50: 67 20 66 6f 72 20 65 61 63 68 20 72 65 70 6f 72  g for each repor
5b60: 74 61 62 6c 65 20 70 68 72 61 73 65 20 69 6e 20  table phrase in 
5b70: 74 68 65 20 46 54 53 20 71 75 65 72 79 3a 0a 2a  the FTS query:.*
5b80: 2a 0a 2a 2a 20 20 20 28 3c 68 69 74 20 63 6f 75  *.**   (<hit cou
5b90: 6e 74 3e 20 2f 20 3c 67 6c 6f 62 61 6c 20 68 69  nt> / <global hi
5ba0: 74 20 63 6f 75 6e 74 3e 29 20 2a 20 3c 63 6f 6c  t count>) * <col
5bb0: 75 6d 6e 20 77 65 69 67 68 74 3e 0a 2a 2a 0a 2a  umn weight>.**.*
5bc0: 2a 20 77 68 65 72 65 20 3c 68 69 74 20 63 6f 75  * where <hit cou
5bd0: 6e 74 3e 20 69 73 20 74 68 65 20 6e 75 6d 62 65  nt> is the numbe
5be0: 72 20 6f 66 20 69 6e 73 74 61 6e 63 65 73 20 6f  r of instances o
5bf0: 66 20 74 68 65 20 70 68 72 61 73 65 20 69 6e 20  f the phrase in 
5c00: 74 68 65 0a 2a 2a 20 63 6f 6c 75 6d 6e 20 76 61  the.** column va
5c10: 6c 75 65 20 6f 66 20 74 68 65 20 63 75 72 72 65  lue of the curre
5c20: 6e 74 20 72 6f 77 20 61 6e 64 20 3c 67 6c 6f 62  nt row and <glob
5c30: 61 6c 20 68 69 74 20 63 6f 75 6e 74 3e 20 69 73  al hit count> is
5c40: 20 74 68 65 20 6e 75 6d 62 65 72 0a 2a 2a 20 6f   the number.** o
5c50: 66 20 69 6e 73 74 61 6e 63 65 73 20 6f 66 20 74  f instances of t
5c60: 68 65 20 70 68 72 61 73 65 20 69 6e 20 74 68 65  he phrase in the
5c70: 20 73 61 6d 65 20 63 6f 6c 75 6d 6e 20 6f 66 20   same column of 
5c80: 61 6c 6c 20 72 6f 77 73 20 69 6e 20 74 68 65 20  all rows in the 
5c90: 46 54 53 0a 2a 2a 20 74 61 62 6c 65 2e 20 54 68  FTS.** table. Th
5ca0: 65 20 3c 63 6f 6c 75 6d 6e 20 77 65 69 67 68 74  e <column weight
5cb0: 3e 20 69 73 20 61 20 77 65 69 67 68 74 69 6e 67  > is a weighting
5cc0: 20 66 61 63 74 6f 72 20 61 73 73 69 67 6e 65 64   factor assigned
5cd0: 20 74 6f 20 65 61 63 68 0a 2a 2a 20 63 6f 6c 75   to each.** colu
5ce0: 6d 6e 20 62 79 20 74 68 65 20 63 61 6c 6c 65 72  mn by the caller
5cf0: 20 28 73 65 65 20 62 65 6c 6f 77 29 2e 0a 2a 2a   (see below)..**
5d00: 0a 2a 2a 20 54 68 65 20 66 69 72 73 74 20 61 72  .** The first ar
5d10: 67 75 6d 65 6e 74 20 74 6f 20 74 68 69 73 20 66  gument to this f
5d20: 75 6e 63 74 69 6f 6e 20 6d 75 73 74 20 62 65 20  unction must be 
5d30: 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65  the return value
5d40: 20 6f 66 20 74 68 65 20 46 54 53 20 0a 2a 2a 20   of the FTS .** 
5d50: 6d 61 74 63 68 69 6e 66 6f 28 29 20 66 75 6e 63  matchinfo() func
5d60: 74 69 6f 6e 2e 20 46 6f 6c 6c 6f 77 69 6e 67 20  tion. Following 
5d70: 74 68 69 73 20 6d 75 73 74 20 62 65 20 6f 6e 65  this must be one
5d80: 20 61 72 67 75 6d 65 6e 74 20 66 6f 72 20 65 61   argument for ea
5d90: 63 68 20 63 6f 6c 75 6d 6e 20 0a 2a 2a 20 6f 66  ch column .** of
5da0: 20 74 68 65 20 46 54 53 20 74 61 62 6c 65 20 63   the FTS table c
5db0: 6f 6e 74 61 69 6e 69 6e 67 20 61 20 6e 75 6d 65  ontaining a nume
5dc0: 72 69 63 20 77 65 69 67 68 74 20 66 61 63 74 6f  ric weight facto
5dd0: 72 20 66 6f 72 20 74 68 65 20 63 6f 72 72 65 73  r for the corres
5de0: 70 6f 6e 64 69 6e 67 20 0a 2a 2a 20 63 6f 6c 75  ponding .** colu
5df0: 6d 6e 2e 20 45 78 61 6d 70 6c 65 3a 0a 2a 2a 0a  mn. Example:.**.
5e00: 2a 2a 20 20 20 20 20 43 52 45 41 54 45 20 56 49  **     CREATE VI
5e10: 52 54 55 41 4c 20 54 41 42 4c 45 20 64 6f 63 75  RTUAL TABLE docu
5e20: 6d 65 6e 74 73 20 55 53 49 4e 47 20 66 74 73 33  ments USING fts3
5e30: 28 74 69 74 6c 65 2c 20 63 6f 6e 74 65 6e 74 29  (title, content)
5e40: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f  .**.** The follo
5e50: 77 69 6e 67 20 71 75 65 72 79 20 72 65 74 75 72  wing query retur
5e60: 6e 73 20 74 68 65 20 64 6f 63 69 64 73 20 6f 66  ns the docids of
5e70: 20 64 6f 63 75 6d 65 6e 74 73 20 74 68 61 74 20   documents that 
5e80: 6d 61 74 63 68 20 74 68 65 20 66 75 6c 6c 2d 74  match the full-t
5e90: 65 78 74 0a 2a 2a 20 71 75 65 72 79 20 3c 71 75  ext.** query <qu
5ea0: 65 72 79 3e 20 73 6f 72 74 65 64 20 66 72 6f 6d  ery> sorted from
5eb0: 20 6d 6f 73 74 20 74 6f 20 6c 65 61 73 74 20 72   most to least r
5ec0: 65 6c 65 76 61 6e 74 2e 20 57 68 65 6e 20 63 61  elevant. When ca
5ed0: 6c 63 75 6c 61 74 69 6e 67 0a 2a 2a 20 72 65 6c  lculating.** rel
5ee0: 65 76 61 6e 63 65 2c 20 71 75 65 72 79 20 74 65  evance, query te
5ef0: 72 6d 20 69 6e 73 74 61 6e 63 65 73 20 69 6e 20  rm instances in 
5f00: 74 68 65 20 27 74 69 74 6c 65 27 20 63 6f 6c 75  the 'title' colu
5f10: 6d 6e 20 61 72 65 20 67 69 76 65 6e 20 74 77 69  mn are given twi
5f20: 63 65 20 74 68 65 0a 2a 2a 20 77 65 69 67 68 74  ce the.** weight
5f30: 69 6e 67 20 6f 66 20 74 68 6f 73 65 20 69 6e 20  ing of those in 
5f40: 74 68 65 20 27 63 6f 6e 74 65 6e 74 27 20 63 6f  the 'content' co
5f50: 6c 75 6d 6e 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20  lumn..**.**     
5f60: 53 45 4c 45 43 54 20 64 6f 63 69 64 20 46 52 4f  SELECT docid FRO
5f70: 4d 20 64 6f 63 75 6d 65 6e 74 73 20 0a 2a 2a 20  M documents .** 
5f80: 20 20 20 20 57 48 45 52 45 20 64 6f 63 75 6d 65      WHERE docume
5f90: 6e 74 73 20 4d 41 54 43 48 20 3c 71 75 65 72 79  nts MATCH <query
5fa0: 3e 20 0a 2a 2a 20 20 20 20 20 4f 52 44 45 52 20  > .**     ORDER 
5fb0: 42 59 20 72 61 6e 6b 28 6d 61 74 63 68 69 6e 66  BY rank(matchinf
5fc0: 6f 28 64 6f 63 75 6d 65 6e 74 73 29 2c 20 31 2e  o(documents), 1.
5fd0: 30 2c 20 30 2e 35 29 20 44 45 53 43 0a 2a 2f 0a  0, 0.5) DESC.*/.
5fe0: 73 74 61 74 69 63 20 76 6f 69 64 20 72 61 6e 6b  static void rank
5ff0: 66 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e  func(sqlite3_con
6000: 74 65 78 74 20 2a 70 43 74 78 2c 20 69 6e 74 20  text *pCtx, int 
6010: 6e 56 61 6c 2c 20 73 71 6c 69 74 65 33 5f 76 61  nVal, sqlite3_va
6020: 6c 75 65 20 2a 2a 61 70 56 61 6c 29 7b 0a 20 20  lue **apVal){.  
6030: 69 6e 74 20 2a 61 4d 61 74 63 68 69 6e 66 6f 3b  int *aMatchinfo;
6040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6050: 2f 2a 20 52 65 74 75 72 6e 20 76 61 6c 75 65 20  /* Return value 
6060: 6f 66 20 6d 61 74 63 68 69 6e 66 6f 28 29 20 2a  of matchinfo() *
6070: 2f 0a 20 20 69 6e 74 20 6e 4d 61 74 63 68 69 6e  /.  int nMatchin
6080: 66 6f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  fo;             
6090: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66      /* Number of
60a0: 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 61 4d 61   elements in aMa
60b0: 74 63 68 69 6e 66 6f 5b 5d 20 2a 2f 0a 20 20 69  tchinfo[] */.  i
60c0: 6e 74 20 6e 43 6f 6c 20 3d 20 30 3b 20 20 20 20  nt nCol = 0;    
60d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
60e0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75  * Number of colu
60f0: 6d 6e 73 20 69 6e 20 74 68 65 20 74 61 62 6c 65  mns in the table
6100: 20 2a 2f 0a 20 20 69 6e 74 20 6e 50 68 72 61 73   */.  int nPhras
6110: 65 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20  e = 0;          
6120: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20        /* Number 
6130: 6f 66 20 70 68 72 61 73 65 73 20 69 6e 20 74 68  of phrases in th
6140: 65 20 71 75 65 72 79 20 2a 2f 0a 20 20 69 6e 74  e query */.  int
6150: 20 69 50 68 72 61 73 65 3b 20 20 20 20 20 20 20   iPhrase;       
6160: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
6170: 43 75 72 72 65 6e 74 20 70 68 72 61 73 65 20 2a  Current phrase *
6180: 2f 0a 20 20 64 6f 75 62 6c 65 20 73 63 6f 72 65  /.  double score
6190: 20 3d 20 30 2e 30 3b 20 20 20 20 20 20 20 20 20   = 0.0;         
61a0: 20 20 20 20 2f 2a 20 56 61 6c 75 65 20 74 6f 20      /* Value to 
61b0: 72 65 74 75 72 6e 20 2a 2f 0a 0a 20 20 61 73 73  return */..  ass
61c0: 65 72 74 28 20 73 69 7a 65 6f 66 28 69 6e 74 29  ert( sizeof(int)
61d0: 3d 3d 34 20 29 3b 0a 0a 20 20 2f 2a 20 43 68 65  ==4 );..  /* Che
61e0: 63 6b 20 74 68 61 74 20 74 68 65 20 6e 75 6d 62  ck that the numb
61f0: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20  er of arguments 
6200: 70 61 73 73 65 64 20 74 6f 20 74 68 69 73 20 66  passed to this f
6210: 75 6e 63 74 69 6f 6e 20 69 73 20 63 6f 72 72 65  unction is corre
6220: 63 74 2e 0a 20 20 2a 2a 20 49 66 20 6e 6f 74 2c  ct..  ** If not,
6230: 20 6a 75 6d 70 20 74 6f 20 77 72 6f 6e 67 5f 6e   jump to wrong_n
6240: 75 6d 62 65 72 5f 61 72 67 73 2e 20 53 65 74 20  umber_args. Set 
6250: 61 4d 61 74 63 68 69 6e 66 6f 20 74 6f 20 70 6f  aMatchinfo to po
6260: 69 6e 74 20 74 6f 20 74 68 65 20 61 72 72 61 79  int to the array
6270: 0a 20 20 2a 2a 20 6f 66 20 75 6e 73 69 67 6e 65  .  ** of unsigne
6280: 64 20 69 6e 74 65 67 65 72 20 76 61 6c 75 65 73  d integer values
6290: 20 72 65 74 75 72 6e 65 64 20 62 79 20 46 54 53   returned by FTS
62a0: 20 66 75 6e 63 74 69 6f 6e 20 6d 61 74 63 68 69   function matchi
62b0: 6e 66 6f 2e 20 53 65 74 0a 20 20 2a 2a 20 6e 50  nfo. Set.  ** nP
62c0: 68 72 61 73 65 20 74 6f 20 63 6f 6e 74 61 69 6e  hrase to contain
62d0: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 72   the number of r
62e0: 65 70 6f 72 74 61 62 6c 65 20 70 68 72 61 73 65  eportable phrase
62f0: 73 20 69 6e 20 74 68 65 20 75 73 65 72 73 20 66  s in the users f
6300: 75 6c 6c 2d 74 65 78 74 0a 20 20 2a 2a 20 71 75  ull-text.  ** qu
6310: 65 72 79 2c 20 61 6e 64 20 6e 43 6f 6c 20 74 6f  ery, and nCol to
6320: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63   the number of c
6330: 6f 6c 75 6d 6e 73 20 69 6e 20 74 68 65 20 74 61  olumns in the ta
6340: 62 6c 65 2e 20 54 68 65 6e 20 63 68 65 63 6b 20  ble. Then check 
6350: 74 68 61 74 20 74 68 65 0a 20 20 2a 2a 20 73 69  that the.  ** si
6360: 7a 65 20 6f 66 20 74 68 65 20 6d 61 74 63 68 69  ze of the matchi
6370: 6e 66 6f 20 62 6c 6f 62 20 69 73 20 61 73 20 65  nfo blob is as e
6380: 78 70 65 63 74 65 64 2e 20 52 65 74 75 72 6e 20  xpected. Return 
6390: 61 6e 20 65 72 72 6f 72 20 69 66 20 69 74 20 69  an error if it i
63a0: 73 20 6e 6f 74 2e 0a 20 20 2a 2f 0a 20 20 69 66  s not..  */.  if
63b0: 28 20 6e 56 61 6c 3c 31 20 29 20 67 6f 74 6f 20  ( nVal<1 ) goto 
63c0: 77 72 6f 6e 67 5f 6e 75 6d 62 65 72 5f 61 72 67  wrong_number_arg
63d0: 73 3b 0a 20 20 61 4d 61 74 63 68 69 6e 66 6f 20  s;.  aMatchinfo 
63e0: 3d 20 28 69 6e 74 2a 29 73 71 6c 69 74 65 33 5f  = (int*)sqlite3_
63f0: 76 61 6c 75 65 5f 62 6c 6f 62 28 61 70 56 61 6c  value_blob(apVal
6400: 5b 30 5d 29 3b 0a 20 20 6e 4d 61 74 63 68 69 6e  [0]);.  nMatchin
6410: 66 6f 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c  fo = sqlite3_val
6420: 75 65 5f 62 79 74 65 73 28 61 70 56 61 6c 5b 30  ue_bytes(apVal[0
6430: 5d 29 20 2f 20 73 69 7a 65 6f 66 28 69 6e 74 29  ]) / sizeof(int)
6440: 3b 0a 20 20 69 66 28 20 6e 4d 61 74 63 68 69 6e  ;.  if( nMatchin
6450: 66 6f 3e 3d 32 20 29 7b 0a 20 20 20 20 6e 50 68  fo>=2 ){.    nPh
6460: 72 61 73 65 20 3d 20 61 4d 61 74 63 68 69 6e 66  rase = aMatchinf
6470: 6f 5b 30 5d 3b 0a 20 20 20 20 6e 43 6f 6c 20 3d  o[0];.    nCol =
6480: 20 61 4d 61 74 63 68 69 6e 66 6f 5b 31 5d 3b 0a   aMatchinfo[1];.
6490: 20 20 7d 0a 20 20 69 66 28 20 6e 4d 61 74 63 68    }.  if( nMatch
64a0: 69 6e 66 6f 21 3d 28 32 2b 33 2a 6e 43 6f 6c 2a  info!=(2+3*nCol*
64b0: 6e 50 68 72 61 73 65 29 20 29 7b 0a 20 20 20 20  nPhrase) ){.    
64c0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65  sqlite3_result_e
64d0: 72 72 6f 72 28 70 43 74 78 2c 0a 20 20 20 20 20  rror(pCtx,.     
64e0: 20 20 20 22 69 6e 76 61 6c 69 64 20 6d 61 74 63     "invalid matc
64f0: 68 69 6e 66 6f 20 62 6c 6f 62 20 70 61 73 73 65  hinfo blob passe
6500: 64 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20 72 61  d to function ra
6510: 6e 6b 28 29 22 2c 20 2d 31 29 3b 0a 20 20 20 20  nk()", -1);.    
6520: 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 69 66  return;.  }.  if
6530: 28 20 6e 56 61 6c 21 3d 28 31 2b 6e 43 6f 6c 29  ( nVal!=(1+nCol)
6540: 20 29 20 67 6f 74 6f 20 77 72 6f 6e 67 5f 6e 75   ) goto wrong_nu
6550: 6d 62 65 72 5f 61 72 67 73 3b 0a 0a 20 20 2f 2a  mber_args;..  /*
6560: 20 49 74 65 72 61 74 65 20 74 68 72 6f 75 67 68   Iterate through
6570: 20 65 61 63 68 20 70 68 72 61 73 65 20 69 6e 20   each phrase in 
6580: 74 68 65 20 75 73 65 72 73 20 71 75 65 72 79 2e  the users query.
6590: 20 2a 2f 0a 20 20 66 6f 72 28 69 50 68 72 61 73   */.  for(iPhras
65a0: 65 3d 30 3b 20 69 50 68 72 61 73 65 3c 6e 50 68  e=0; iPhrase<nPh
65b0: 72 61 73 65 3b 20 69 50 68 72 61 73 65 2b 2b 29  rase; iPhrase++)
65c0: 7b 0a 20 20 20 20 69 6e 74 20 69 43 6f 6c 3b 20  {.    int iCol; 
65d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
65e0: 20 20 20 20 2f 2a 20 43 75 72 72 65 6e 74 20 63      /* Current c
65f0: 6f 6c 75 6d 6e 20 2a 2f 0a 0a 20 20 20 20 2f 2a  olumn */..    /*
6600: 20 4e 6f 77 20 69 74 65 72 61 74 65 20 74 68 72   Now iterate thr
6610: 6f 75 67 68 20 65 61 63 68 20 63 6f 6c 75 6d 6e  ough each column
6620: 20 69 6e 20 74 68 65 20 75 73 65 72 73 20 71 75   in the users qu
6630: 65 72 79 2e 20 46 6f 72 20 65 61 63 68 20 63 6f  ery. For each co
6640: 6c 75 6d 6e 2c 0a 20 20 20 20 2a 2a 20 69 6e 63  lumn,.    ** inc
6650: 72 65 6d 65 6e 74 20 74 68 65 20 72 65 6c 65 76  rement the relev
6660: 61 6e 63 79 20 73 63 6f 72 65 20 62 79 3a 0a 20  ancy score by:. 
6670: 20 20 20 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 28     **.    **   (
6680: 3c 68 69 74 20 63 6f 75 6e 74 3e 20 2f 20 3c 67  <hit count> / <g
6690: 6c 6f 62 61 6c 20 68 69 74 20 63 6f 75 6e 74 3e  lobal hit count>
66a0: 29 20 2a 20 3c 63 6f 6c 75 6d 6e 20 77 65 69 67  ) * <column weig
66b0: 68 74 3e 0a 20 20 20 20 2a 2a 0a 20 20 20 20 2a  ht>.    **.    *
66c0: 2a 20 61 50 68 72 61 73 65 69 6e 66 6f 5b 5d 20  * aPhraseinfo[] 
66d0: 70 6f 69 6e 74 73 20 74 6f 20 74 68 65 20 73 74  points to the st
66e0: 61 72 74 20 6f 66 20 74 68 65 20 64 61 74 61 20  art of the data 
66f0: 66 6f 72 20 70 68 72 61 73 65 20 69 50 68 72 61  for phrase iPhra
6700: 73 65 2e 20 53 6f 0a 20 20 20 20 2a 2a 20 74 68  se. So.    ** th
6710: 65 20 68 69 74 20 63 6f 75 6e 74 20 61 6e 64 20  e hit count and 
6720: 67 6c 6f 62 61 6c 20 68 69 74 20 63 6f 75 6e 74  global hit count
6730: 73 20 66 6f 72 20 65 61 63 68 20 63 6f 6c 75 6d  s for each colum
6740: 6e 20 61 72 65 20 66 6f 75 6e 64 20 69 6e 20 0a  n are found in .
6750: 20 20 20 20 2a 2a 20 61 50 68 72 61 73 65 69 6e      ** aPhrasein
6760: 66 6f 5b 69 43 6f 6c 2a 33 5d 20 61 6e 64 20 61  fo[iCol*3] and a
6770: 50 68 72 61 73 65 69 6e 66 6f 5b 69 43 6f 6c 2a  Phraseinfo[iCol*
6780: 33 2b 31 5d 2c 20 72 65 73 70 65 63 74 69 76 65  3+1], respective
6790: 6c 79 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 69  ly..    */.    i
67a0: 6e 74 20 2a 61 50 68 72 61 73 65 69 6e 66 6f 20  nt *aPhraseinfo 
67b0: 3d 20 26 61 4d 61 74 63 68 69 6e 66 6f 5b 32 20  = &aMatchinfo[2 
67c0: 2b 20 69 50 68 72 61 73 65 2a 6e 43 6f 6c 2a 33  + iPhrase*nCol*3
67d0: 5d 3b 0a 20 20 20 20 66 6f 72 28 69 43 6f 6c 3d  ];.    for(iCol=
67e0: 30 3b 20 69 43 6f 6c 3c 6e 43 6f 6c 3b 20 69 43  0; iCol<nCol; iC
67f0: 6f 6c 2b 2b 29 7b 0a 20 20 20 20 20 20 69 6e 74  ol++){.      int
6800: 20 6e 48 69 74 43 6f 75 6e 74 20 3d 20 61 50 68   nHitCount = aPh
6810: 72 61 73 65 69 6e 66 6f 5b 33 2a 69 43 6f 6c 5d  raseinfo[3*iCol]
6820: 3b 0a 20 20 20 20 20 20 69 6e 74 20 6e 47 6c 6f  ;.      int nGlo
6830: 62 61 6c 48 69 74 43 6f 75 6e 74 20 3d 20 61 50  balHitCount = aP
6840: 68 72 61 73 65 69 6e 66 6f 5b 33 2a 69 43 6f 6c  hraseinfo[3*iCol
6850: 2b 31 5d 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c  +1];.      doubl
6860: 65 20 77 65 69 67 68 74 20 3d 20 73 71 6c 69 74  e weight = sqlit
6870: 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28  e3_value_double(
6880: 61 70 56 61 6c 5b 69 43 6f 6c 2b 31 5d 29 3b 0a  apVal[iCol+1]);.
6890: 20 20 20 20 20 20 69 66 28 20 6e 48 69 74 43 6f        if( nHitCo
68a0: 75 6e 74 3e 30 20 29 7b 0a 20 20 20 20 20 20 20  unt>0 ){.       
68b0: 20 73 63 6f 72 65 20 2b 3d 20 28 28 64 6f 75 62   score += ((doub
68c0: 6c 65 29 6e 48 69 74 43 6f 75 6e 74 20 2f 20 28  le)nHitCount / (
68d0: 64 6f 75 62 6c 65 29 6e 47 6c 6f 62 61 6c 48 69  double)nGlobalHi
68e0: 74 43 6f 75 6e 74 29 20 2a 20 77 65 69 67 68 74  tCount) * weight
68f0: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  ;.      }.    }.
6900: 20 20 7d 0a 0a 20 20 73 71 6c 69 74 65 33 5f 72    }..  sqlite3_r
6910: 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 70 43 74  esult_double(pCt
6920: 78 2c 20 73 63 6f 72 65 29 3b 0a 20 20 72 65 74  x, score);.  ret
6930: 75 72 6e 3b 0a 0a 20 20 2f 2a 20 4a 75 6d 70 20  urn;..  /* Jump 
6940: 68 65 72 65 20 69 66 20 74 68 65 20 77 72 6f 6e  here if the wron
6950: 67 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75  g number of argu
6960: 6d 65 6e 74 73 20 61 72 65 20 70 61 73 73 65 64  ments are passed
6970: 20 74 6f 20 74 68 69 73 20 66 75 6e 63 74 69 6f   to this functio
6980: 6e 20 2a 2f 0a 77 72 6f 6e 67 5f 6e 75 6d 62 65  n */.wrong_numbe
6990: 72 5f 61 72 67 73 3a 0a 20 20 73 71 6c 69 74 65  r_args:.  sqlite
69a0: 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 70  3_result_error(p
69b0: 43 74 78 2c 20 22 77 72 6f 6e 67 20 6e 75 6d 62  Ctx, "wrong numb
69c0: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20  er of arguments 
69d0: 74 6f 20 66 75 6e 63 74 69 6f 6e 20 72 61 6e 6b  to function rank
69e0: 28 29 22 2c 20 2d 31 29 3b 0a 7d 0a 0a 73 74 61  ()", -1);.}..sta
69f0: 74 69 63 20 69 6e 74 20 53 51 4c 49 54 45 5f 54  tic int SQLITE_T
6a00: 43 4c 41 50 49 20 69 6e 73 74 61 6c 6c 5f 66 74  CLAPI install_ft
6a10: 73 33 5f 72 61 6e 6b 5f 66 75 6e 63 74 69 6f 6e  s3_rank_function
6a20: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e  (.  void * clien
6a30: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74  tData,.  Tcl_Int
6a40: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69  erp *interp,.  i
6a50: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f  nt objc,.  Tcl_O
6a60: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d  bj *CONST objv[]
6a70: 0a 29 7b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74  .){.  extern int
6a80: 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 54 63   getDbPointer(Tc
6a90: 6c 5f 49 6e 74 65 72 70 2a 2c 20 63 6f 6e 73 74  l_Interp*, const
6aa0: 20 63 68 61 72 2a 2c 20 73 71 6c 69 74 65 33 2a   char*, sqlite3*
6ab0: 2a 29 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64  *);.  sqlite3 *d
6ac0: 62 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d  b;..  if( objc!=
6ad0: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f  2 ){.    Tcl_Wro
6ae0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
6af0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 22 29  , 1, objv, "DB")
6b00: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
6b10: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69  _ERROR;.  }..  i
6b20: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28  f( getDbPointer(
6b30: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53  interp, Tcl_GetS
6b40: 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20  tring(objv[1]), 
6b50: 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43  &db) ) return TC
6b60: 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71 6c 69 74  L_ERROR;.  sqlit
6b70: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69  e3_create_functi
6b80: 6f 6e 28 64 62 2c 20 22 72 61 6e 6b 22 2c 20 2d  on(db, "rank", -
6b90: 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20  1, SQLITE_UTF8, 
6ba0: 30 2c 20 72 61 6e 6b 66 75 6e 63 2c 20 30 2c 20  0, rankfunc, 0, 
6bb0: 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c  0);.  return TCL
6bc0: 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52  _OK;.}.../*.** R
6bd0: 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73  egister commands
6be0: 20 77 69 74 68 20 74 68 65 20 54 43 4c 20 69 6e   with the TCL in
6bf0: 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e  terpreter..*/.in
6c00: 74 20 53 71 6c 69 74 65 74 65 73 74 5f 66 75 6e  t Sqlitetest_fun
6c10: 63 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72  c_Init(Tcl_Inter
6c20: 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 73 74  p *interp){.  st
6c30: 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20  atic struct {.  
6c40: 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a     char *zName;.
6c50: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50       Tcl_ObjCmdP
6c60: 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 7d 20  roc *xProc;.  } 
6c70: 61 4f 62 6a 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20  aObjCmd[] = {.  
6c80: 20 20 20 7b 20 22 61 75 74 6f 69 6e 73 74 61 6c     { "autoinstal
6c90: 6c 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 73  l_test_functions
6ca0: 22 2c 20 20 20 20 61 75 74 6f 69 6e 73 74 61 6c  ",    autoinstal
6cb0: 6c 5f 74 65 73 74 5f 66 75 6e 63 73 20 7d 2c 0a  l_test_funcs },.
6cc0: 20 20 20 20 20 7b 20 22 61 62 75 73 65 5f 63 72       { "abuse_cr
6cd0: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 22 2c 20  eate_function", 
6ce0: 20 20 20 20 20 20 20 20 61 62 75 73 65 5f 63 72          abuse_cr
6cf0: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 20 7d  eate_function  }
6d00: 2c 0a 20 20 20 20 20 7b 20 22 69 6e 73 74 61 6c  ,.     { "instal
6d10: 6c 5f 66 74 73 33 5f 72 61 6e 6b 5f 66 75 6e 63  l_fts3_rank_func
6d20: 74 69 6f 6e 22 2c 20 20 20 20 69 6e 73 74 61 6c  tion",    instal
6d30: 6c 5f 66 74 73 33 5f 72 61 6e 6b 5f 66 75 6e 63  l_fts3_rank_func
6d40: 74 69 6f 6e 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20  tion  },.  };.  
6d50: 69 6e 74 20 69 3b 0a 20 20 65 78 74 65 72 6e 20  int i;.  extern 
6d60: 69 6e 74 20 4d 64 35 5f 52 65 67 69 73 74 65 72  int Md5_Register
6d70: 28 73 71 6c 69 74 65 33 20 2a 2c 20 63 68 61 72  (sqlite3 *, char
6d80: 20 2a 2a 2c 20 63 6f 6e 73 74 20 73 71 6c 69 74   **, const sqlit
6d90: 65 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65 73 20  e3_api_routines 
6da0: 2a 29 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 3b 20  *);..  for(i=0; 
6db0: 69 3c 73 69 7a 65 6f 66 28 61 4f 62 6a 43 6d 64  i<sizeof(aObjCmd
6dc0: 29 2f 73 69 7a 65 6f 66 28 61 4f 62 6a 43 6d 64  )/sizeof(aObjCmd
6dd0: 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  [0]); i++){.    
6de0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d  Tcl_CreateObjCom
6df0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61 4f 62  mand(interp, aOb
6e00: 6a 43 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61  jCmd[i].zName, a
6e10: 4f 62 6a 43 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c  ObjCmd[i].xProc,
6e20: 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 73 71   0, 0);.  }.  sq
6e30: 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c 69 7a 65  lite3_initialize
6e40: 28 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 61 75  ();.  sqlite3_au
6e50: 74 6f 5f 65 78 74 65 6e 73 69 6f 6e 28 28 76 6f  to_extension((vo
6e60: 69 64 28 2a 29 28 76 6f 69 64 29 29 72 65 67 69  id(*)(void))regi
6e70: 73 74 65 72 54 65 73 74 46 75 6e 63 74 69 6f 6e  sterTestFunction
6e80: 73 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 61 75  s);.  sqlite3_au
6e90: 74 6f 5f 65 78 74 65 6e 73 69 6f 6e 28 28 76 6f  to_extension((vo
6ea0: 69 64 28 2a 29 28 76 6f 69 64 29 29 4d 64 35 5f  id(*)(void))Md5_
6eb0: 52 65 67 69 73 74 65 72 29 3b 0a 20 20 72 65 74  Register);.  ret
6ec0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a        urn TCL_OK;.}.