/ Hex Artifact Content
Login

Artifact 13b582345fb1185a93e46c53310fae8547dcce20:


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 6e 63 6c 75 64 65 20 22 74 63  .h".#include "tc
0210: 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73  l.h".#include <s
0220: 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64  tdlib.h>.#includ
0230: 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e  e <string.h>.#in
0240: 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e  clude <assert.h>
0250: 0a 0a 0a 2f 2a 0a 2a 2a 20 41 6c 6c 6f 63 61 74  .../*.** Allocat
0260: 65 20 6e 42 79 74 65 20 62 79 74 65 73 20 6f 66  e nByte bytes of
0270: 20 73 70 61 63 65 20 75 73 69 6e 67 20 73 71 6c   space using sql
0280: 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 29 2e 20 49  ite3_malloc(). I
0290: 66 20 74 68 65 0a 2a 2a 20 61 6c 6c 6f 63 61 74  f the.** allocat
02a0: 69 6f 6e 20 66 61 69 6c 73 2c 20 63 61 6c 6c 20  ion fails, call 
02b0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65  sqlite3_result_e
02c0: 72 72 6f 72 5f 6e 6f 6d 65 6d 28 29 20 74 6f 20  rror_nomem() to 
02d0: 6e 6f 74 69 66 79 0a 2a 2a 20 74 68 65 20 64 61  notify.** the da
02e0: 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 74 68  tabase handle th
02f0: 61 74 20 6d 61 6c 6c 6f 63 28 29 20 68 61 73 20  at malloc() has 
0300: 66 61 69 6c 65 64 2e 0a 2a 2f 0a 73 74 61 74 69  failed..*/.stati
0310: 63 20 76 6f 69 64 20 2a 74 65 73 74 43 6f 6e 74  c void *testCont
0320: 65 78 74 4d 61 6c 6c 6f 63 28 73 71 6c 69 74 65  extMalloc(sqlite
0330: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65  3_context *conte
0340: 78 74 2c 20 69 6e 74 20 6e 42 79 74 65 29 7b 0a  xt, int nByte){.
0350: 20 20 63 68 61 72 20 2a 7a 20 3d 20 73 71 6c 69    char *z = sqli
0360: 74 65 33 5f 6d 61 6c 6c 6f 63 28 6e 42 79 74 65  te3_malloc(nByte
0370: 29 3b 0a 20 20 69 66 28 20 21 7a 20 26 26 20 6e  );.  if( !z && n
0380: 42 79 74 65 3e 30 20 29 7b 0a 20 20 20 20 73 71  Byte>0 ){.    sq
0390: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72  lite3_result_err
03a0: 6f 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 74  or_nomem(context
03b0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
03c0: 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73  z;.}../*.** This
03d0: 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 61   function genera
03e0: 74 65 73 20 61 20 73 74 72 69 6e 67 20 6f 66 20  tes a string of 
03f0: 72 61 6e 64 6f 6d 20 63 68 61 72 61 63 74 65 72  random character
0400: 73 2e 20 20 55 73 65 64 20 66 6f 72 0a 2a 2a 20  s.  Used for.** 
0410: 67 65 6e 65 72 61 74 69 6e 67 20 74 65 73 74 20  generating test 
0420: 64 61 74 61 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  data..*/.static 
0430: 76 6f 69 64 20 72 61 6e 64 53 74 72 28 73 71 6c  void randStr(sql
0440: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
0450: 6e 74 65 78 74 2c 20 69 6e 74 20 61 72 67 63 2c  ntext, int argc,
0460: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
0470: 2a 61 72 67 76 29 7b 0a 20 20 73 74 61 74 69 63  *argv){.  static
0480: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20   const unsigned 
0490: 63 68 61 72 20 7a 53 72 63 5b 5d 20 3d 20 0a 20  char zSrc[] = . 
04a0: 20 20 20 20 22 61 62 63 64 65 66 67 68 69 6a 6b      "abcdefghijk
04b0: 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 22  lmnopqrstuvwxyz"
04c0: 0a 20 20 20 20 20 22 41 42 43 44 45 46 47 48 49  .     "ABCDEFGHI
04d0: 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59  JKLMNOPQRSTUVWXY
04e0: 5a 22 0a 20 20 20 20 20 22 30 31 32 33 34 35 36  Z".     "0123456
04f0: 37 38 39 22 0a 20 20 20 20 20 22 2e 2d 21 2c 3a  789".     ".-!,:
0500: 2a 5e 2b 3d 5f 7c 3f 2f 3c 3e 20 22 3b 0a 20 20  *^+=_|?/<> ";.  
0510: 69 6e 74 20 69 4d 69 6e 2c 20 69 4d 61 78 2c 20  int iMin, iMax, 
0520: 6e 2c 20 72 2c 20 69 3b 0a 20 20 75 6e 73 69 67  n, r, i;.  unsig
0530: 6e 65 64 20 63 68 61 72 20 7a 42 75 66 5b 31 30  ned char zBuf[10
0540: 30 30 5d 3b 0a 0a 20 20 2f 2a 20 49 74 20 75 73  00];..  /* It us
0550: 65 64 20 74 6f 20 62 65 20 70 6f 73 73 69 62 6c  ed to be possibl
0560: 65 20 74 6f 20 63 61 6c 6c 20 72 61 6e 64 73 74  e to call randst
0570: 72 28 29 20 77 69 74 68 20 61 6e 79 20 6e 75 6d  r() with any num
0580: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
0590: 2c 0a 20 20 2a 2a 20 62 75 74 20 6e 6f 77 20 69  ,.  ** but now i
05a0: 74 20 69 73 20 72 65 67 69 73 74 65 72 65 64 20  t is registered 
05b0: 77 69 74 68 20 53 51 4c 69 74 65 20 61 73 20 72  with SQLite as r
05c0: 65 71 75 69 72 69 6e 67 20 65 78 61 63 74 6c 79  equiring exactly
05d0: 20 32 2e 0a 20 20 2a 2f 0a 20 20 61 73 73 65 72   2..  */.  asser
05e0: 74 28 61 72 67 63 3d 3d 32 29 3b 0a 0a 20 20 69  t(argc==2);..  i
05f0: 4d 69 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61  Min = sqlite3_va
0600: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29  lue_int(argv[0])
0610: 3b 0a 20 20 69 66 28 20 69 4d 69 6e 3c 30 20 29  ;.  if( iMin<0 )
0620: 20 69 4d 69 6e 20 3d 20 30 3b 0a 20 20 69 66 28   iMin = 0;.  if(
0630: 20 69 4d 69 6e 3e 3d 73 69 7a 65 6f 66 28 7a 42   iMin>=sizeof(zB
0640: 75 66 29 20 29 20 69 4d 69 6e 20 3d 20 73 69 7a  uf) ) iMin = siz
0650: 65 6f 66 28 7a 42 75 66 29 2d 31 3b 0a 20 20 69  eof(zBuf)-1;.  i
0660: 4d 61 78 20 3d 20 73 71 6c 69 74 65 33 5f 76 61  Max = sqlite3_va
0670: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 31 5d 29  lue_int(argv[1])
0680: 3b 0a 20 20 69 66 28 20 69 4d 61 78 3c 69 4d 69  ;.  if( iMax<iMi
0690: 6e 20 29 20 69 4d 61 78 20 3d 20 69 4d 69 6e 3b  n ) iMax = iMin;
06a0: 0a 20 20 69 66 28 20 69 4d 61 78 3e 3d 73 69 7a  .  if( iMax>=siz
06b0: 65 6f 66 28 7a 42 75 66 29 20 29 20 69 4d 61 78  eof(zBuf) ) iMax
06c0: 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75 66 29 2d   = sizeof(zBuf)-
06d0: 31 3b 0a 20 20 6e 20 3d 20 69 4d 69 6e 3b 0a 20  1;.  n = iMin;. 
06e0: 20 69 66 28 20 69 4d 61 78 3e 69 4d 69 6e 20 29   if( iMax>iMin )
06f0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 61  {.    sqlite3_ra
0700: 6e 64 6f 6d 6e 65 73 73 28 73 69 7a 65 6f 66 28  ndomness(sizeof(
0710: 72 29 2c 20 26 72 29 3b 0a 20 20 20 20 72 20 26  r), &r);.    r &
0720: 3d 20 30 78 37 66 66 66 66 66 66 66 3b 0a 20 20  = 0x7fffffff;.  
0730: 20 20 6e 20 2b 3d 20 72 25 28 69 4d 61 78 20 2b    n += r%(iMax +
0740: 20 31 20 2d 20 69 4d 69 6e 29 3b 0a 20 20 7d 0a   1 - iMin);.  }.
0750: 20 20 61 73 73 65 72 74 28 20 6e 3c 73 69 7a 65    assert( n<size
0760: 6f 66 28 7a 42 75 66 29 20 29 3b 0a 20 20 73 71  of(zBuf) );.  sq
0770: 6c 69 74 65 33 5f 72 61 6e 64 6f 6d 6e 65 73 73  lite3_randomness
0780: 28 6e 2c 20 7a 42 75 66 29 3b 0a 20 20 66 6f 72  (n, zBuf);.  for
0790: 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b  (i=0; i<n; i++){
07a0: 0a 20 20 20 20 7a 42 75 66 5b 69 5d 20 3d 20 7a  .    zBuf[i] = z
07b0: 53 72 63 5b 7a 42 75 66 5b 69 5d 25 28 73 69 7a  Src[zBuf[i]%(siz
07c0: 65 6f 66 28 7a 53 72 63 29 2d 31 29 5d 3b 0a 20  eof(zSrc)-1)];. 
07d0: 20 7d 0a 20 20 7a 42 75 66 5b 6e 5d 20 3d 20 30   }.  zBuf[n] = 0
07e0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75  ;.  sqlite3_resu
07f0: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c  lt_text(context,
0800: 20 28 63 68 61 72 2a 29 7a 42 75 66 2c 20 6e 2c   (char*)zBuf, n,
0810: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e   SQLITE_TRANSIEN
0820: 54 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65  T);.}../*.** The
0830: 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 77 6f 20 53   following two S
0840: 51 4c 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65  QL functions are
0850: 20 75 73 65 64 20 74 6f 20 74 65 73 74 20 72 65   used to test re
0860: 74 75 72 6e 69 6e 67 20 61 20 74 65 78 74 0a 2a  turning a text.*
0870: 2a 20 72 65 73 75 6c 74 20 77 69 74 68 20 61 20  * result with a 
0880: 64 65 73 74 72 75 63 74 6f 72 2e 20 46 75 6e 63  destructor. Func
0890: 74 69 6f 6e 20 27 74 65 73 74 5f 64 65 73 74 72  tion 'test_destr
08a0: 75 63 74 6f 72 27 20 74 61 6b 65 73 20 6f 6e 65  uctor' takes one
08b0: 20 61 72 67 75 6d 65 6e 74 0a 2a 2a 20 61 6e 64   argument.** and
08c0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 61 6d   returns the sam
08d0: 65 20 61 72 67 75 6d 65 6e 74 20 69 6e 74 65 72  e argument inter
08e0: 70 72 65 74 65 64 20 61 73 20 54 45 58 54 2e 20  preted as TEXT. 
08f0: 41 20 64 65 73 74 72 75 63 74 6f 72 20 69 73 0a  A destructor is.
0900: 2a 2a 20 70 61 73 73 65 64 20 77 69 74 68 20 74  ** passed with t
0910: 68 65 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c  he sqlite3_resul
0920: 74 5f 74 65 78 74 28 29 20 63 61 6c 6c 2e 0a 2a  t_text() call..*
0930: 2a 0a 2a 2a 20 53 51 4c 20 66 75 6e 63 74 69 6f  *.** SQL functio
0940: 6e 20 27 74 65 73 74 5f 64 65 73 74 72 75 63 74  n 'test_destruct
0950: 6f 72 5f 63 6f 75 6e 74 27 20 72 65 74 75 72 6e  or_count' return
0960: 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20  s the number of 
0970: 6f 75 74 73 74 61 6e 64 69 6e 67 20 0a 2a 2a 20  outstanding .** 
0980: 61 6c 6c 6f 63 61 74 69 6f 6e 73 20 6d 61 64 65  allocations made
0990: 20 62 79 20 27 74 65 73 74 5f 64 65 73 74 72 75   by 'test_destru
09a0: 63 74 6f 72 27 3b 0a 2a 2a 0a 2a 2a 20 57 41 52  ctor';.**.** WAR
09b0: 4e 49 4e 47 3a 20 4e 6f 74 20 74 68 72 65 61 64  NING: Not thread
09c0: 73 61 66 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  safe..*/.static 
09d0: 69 6e 74 20 74 65 73 74 5f 64 65 73 74 72 75 63  int test_destruc
09e0: 74 6f 72 5f 63 6f 75 6e 74 5f 76 61 72 20 3d 20  tor_count_var = 
09f0: 30 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 20 64  0;.static void d
0a00: 65 73 74 72 75 63 74 6f 72 28 76 6f 69 64 20 2a  estructor(void *
0a10: 70 29 7b 0a 20 20 63 68 61 72 20 2a 7a 56 61 6c  p){.  char *zVal
0a20: 20 3d 20 28 63 68 61 72 20 2a 29 70 3b 0a 20 20   = (char *)p;.  
0a30: 61 73 73 65 72 74 28 7a 56 61 6c 29 3b 0a 20 20  assert(zVal);.  
0a40: 7a 56 61 6c 2d 2d 3b 0a 20 20 73 71 6c 69 74 65  zVal--;.  sqlite
0a50: 33 5f 66 72 65 65 28 7a 56 61 6c 29 3b 0a 20 20  3_free(zVal);.  
0a60: 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72 5f  test_destructor_
0a70: 63 6f 75 6e 74 5f 76 61 72 2d 2d 3b 0a 7d 0a 73  count_var--;.}.s
0a80: 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f  tatic void test_
0a90: 64 65 73 74 72 75 63 74 6f 72 28 0a 20 20 73 71  destructor(.  sq
0aa0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70  lite3_context *p
0ab0: 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67  Ctx, .  int nArg
0ac0: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  ,.  sqlite3_valu
0ad0: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 68  e **argv.){.  ch
0ae0: 61 72 20 2a 7a 56 61 6c 3b 0a 20 20 69 6e 74 20  ar *zVal;.  int 
0af0: 6c 65 6e 3b 0a 20 20 0a 20 20 74 65 73 74 5f 64  len;.  .  test_d
0b00: 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 5f  estructor_count_
0b10: 76 61 72 2b 2b 3b 0a 20 20 61 73 73 65 72 74 28  var++;.  assert(
0b20: 20 6e 41 72 67 3d 3d 31 20 29 3b 0a 20 20 69 66   nArg==1 );.  if
0b30: 28 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  ( sqlite3_value_
0b40: 74 79 70 65 28 61 72 67 76 5b 30 5d 29 3d 3d 53  type(argv[0])==S
0b50: 51 4c 49 54 45 5f 4e 55 4c 4c 20 29 20 72 65 74  QLITE_NULL ) ret
0b60: 75 72 6e 3b 0a 20 20 6c 65 6e 20 3d 20 73 71 6c  urn;.  len = sql
0b70: 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73  ite3_value_bytes
0b80: 28 61 72 67 76 5b 30 5d 29 3b 20 0a 20 20 7a 56  (argv[0]); .  zV
0b90: 61 6c 20 3d 20 74 65 73 74 43 6f 6e 74 65 78 74  al = testContext
0ba0: 4d 61 6c 6c 6f 63 28 70 43 74 78 2c 20 6c 65 6e  Malloc(pCtx, len
0bb0: 2b 33 29 3b 0a 20 20 69 66 28 20 21 7a 56 61 6c  +3);.  if( !zVal
0bc0: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a   ){.    return;.
0bd0: 20 20 7d 0a 20 20 7a 56 61 6c 5b 6c 65 6e 2b 31    }.  zVal[len+1
0be0: 5d 20 3d 20 30 3b 0a 20 20 7a 56 61 6c 5b 6c 65  ] = 0;.  zVal[le
0bf0: 6e 2b 32 5d 20 3d 20 30 3b 0a 20 20 7a 56 61 6c  n+2] = 0;.  zVal
0c00: 2b 2b 3b 0a 20 20 6d 65 6d 63 70 79 28 7a 56 61  ++;.  memcpy(zVa
0c10: 6c 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  l, sqlite3_value
0c20: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 2c 20  _text(argv[0]), 
0c30: 6c 65 6e 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f  len);.  sqlite3_
0c40: 72 65 73 75 6c 74 5f 74 65 78 74 28 70 43 74 78  result_text(pCtx
0c50: 2c 20 7a 56 61 6c 2c 20 2d 31 2c 20 64 65 73 74  , zVal, -1, dest
0c60: 72 75 63 74 6f 72 29 3b 0a 7d 0a 23 69 66 6e 64  ructor);.}.#ifnd
0c70: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55  ef SQLITE_OMIT_U
0c80: 54 46 31 36 0a 73 74 61 74 69 63 20 76 6f 69 64  TF16.static void
0c90: 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f 72   test_destructor
0ca0: 31 36 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  16(.  sqlite3_co
0cb0: 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20  ntext *pCtx, .  
0cc0: 69 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69  int nArg,.  sqli
0cd0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
0ce0: 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 56 61 6c  .){.  char *zVal
0cf0: 3b 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 0a  ;.  int len;.  .
0d00: 20 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f    test_destructo
0d10: 72 5f 63 6f 75 6e 74 5f 76 61 72 2b 2b 3b 0a 20  r_count_var++;. 
0d20: 20 61 73 73 65 72 74 28 20 6e 41 72 67 3d 3d 31   assert( nArg==1
0d30: 20 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65   );.  if( sqlite
0d40: 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67  3_value_type(arg
0d50: 76 5b 30 5d 29 3d 3d 53 51 4c 49 54 45 5f 4e 55  v[0])==SQLITE_NU
0d60: 4c 4c 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6c  LL ) return;.  l
0d70: 65 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c  en = sqlite3_val
0d80: 75 65 5f 62 79 74 65 73 31 36 28 61 72 67 76 5b  ue_bytes16(argv[
0d90: 30 5d 29 3b 20 0a 20 20 7a 56 61 6c 20 3d 20 74  0]); .  zVal = t
0da0: 65 73 74 43 6f 6e 74 65 78 74 4d 61 6c 6c 6f 63  estContextMalloc
0db0: 28 70 43 74 78 2c 20 6c 65 6e 2b 33 29 3b 0a 20  (pCtx, len+3);. 
0dc0: 20 69 66 28 20 21 7a 56 61 6c 20 29 7b 0a 20 20   if( !zVal ){.  
0dd0: 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20    return;.  }.  
0de0: 7a 56 61 6c 5b 6c 65 6e 2b 31 5d 20 3d 20 30 3b  zVal[len+1] = 0;
0df0: 0a 20 20 7a 56 61 6c 5b 6c 65 6e 2b 32 5d 20 3d  .  zVal[len+2] =
0e00: 20 30 3b 0a 20 20 7a 56 61 6c 2b 2b 3b 0a 20 20   0;.  zVal++;.  
0e10: 6d 65 6d 63 70 79 28 7a 56 61 6c 2c 20 73 71 6c  memcpy(zVal, sql
0e20: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31  ite3_value_text1
0e30: 36 28 61 72 67 76 5b 30 5d 29 2c 20 6c 65 6e 29  6(argv[0]), len)
0e40: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75  ;.  sqlite3_resu
0e50: 6c 74 5f 74 65 78 74 31 36 28 70 43 74 78 2c 20  lt_text16(pCtx, 
0e60: 7a 56 61 6c 2c 20 2d 31 2c 20 64 65 73 74 72 75  zVal, -1, destru
0e70: 63 74 6f 72 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a  ctor);.}.#endif.
0e80: 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74  static void test
0e90: 5f 64 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e  _destructor_coun
0ea0: 74 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  t(.  sqlite3_con
0eb0: 74 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69  text *pCtx, .  i
0ec0: 6e 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74  nt nArg,.  sqlit
0ed0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a  e3_value **argv.
0ee0: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73  ){.  sqlite3_res
0ef0: 75 6c 74 5f 69 6e 74 28 70 43 74 78 2c 20 74 65  ult_int(pCtx, te
0f00: 73 74 5f 64 65 73 74 72 75 63 74 6f 72 5f 63 6f  st_destructor_co
0f10: 75 6e 74 5f 76 61 72 29 3b 0a 7d 0a 0a 2f 2a 0a  unt_var);.}../*.
0f20: 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  ** The following
0f30: 20 61 67 67 72 65 67 61 74 65 20 66 75 6e 63 74   aggregate funct
0f40: 69 6f 6e 2c 20 74 65 73 74 5f 61 67 67 5f 65 72  ion, test_agg_er
0f50: 72 6d 73 67 31 36 28 29 2c 20 74 61 6b 65 73 20  rmsg16(), takes 
0f60: 7a 65 72 6f 20 0a 2a 2a 20 61 72 67 75 6d 65 6e  zero .** argumen
0f70: 74 73 2e 20 49 74 20 72 65 74 75 72 6e 73 20 74  ts. It returns t
0f80: 68 65 20 74 65 78 74 20 76 61 6c 75 65 20 72 65  he text value re
0f90: 74 75 72 6e 65 64 20 62 79 20 74 68 65 20 73 71  turned by the sq
0fa0: 6c 69 74 65 33 5f 65 72 72 6d 73 67 31 36 28 29  lite3_errmsg16()
0fb0: 0a 2a 2a 20 41 50 49 20 66 75 6e 63 74 69 6f 6e  .** API function
0fc0: 2e 0a 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65  ..*/.void sqlite
0fd0: 33 42 65 67 69 6e 42 65 6e 69 67 6e 4d 61 6c 6c  3BeginBenignMall
0fe0: 6f 63 28 76 6f 69 64 29 3b 0a 76 6f 69 64 20 73  oc(void);.void s
0ff0: 71 6c 69 74 65 33 45 6e 64 42 65 6e 69 67 6e 4d  qlite3EndBenignM
1000: 61 6c 6c 6f 63 28 76 6f 69 64 29 3b 0a 73 74 61  alloc(void);.sta
1010: 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f 61 67  tic void test_ag
1020: 67 5f 65 72 72 6d 73 67 31 36 5f 73 74 65 70 28  g_errmsg16_step(
1030: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
1040: 2a 61 2c 20 69 6e 74 20 62 2c 73 71 6c 69 74 65  *a, int b,sqlite
1050: 33 5f 76 61 6c 75 65 20 2a 2a 63 29 7b 0a 7d 0a  3_value **c){.}.
1060: 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74  static void test
1070: 5f 61 67 67 5f 65 72 72 6d 73 67 31 36 5f 66 69  _agg_errmsg16_fi
1080: 6e 61 6c 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74  nal(sqlite3_cont
1090: 65 78 74 20 2a 63 74 78 29 7b 0a 23 69 66 6e 64  ext *ctx){.#ifnd
10a0: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55  ef SQLITE_OMIT_U
10b0: 54 46 31 36 0a 20 20 63 6f 6e 73 74 20 76 6f 69  TF16.  const voi
10c0: 64 20 2a 7a 3b 0a 20 20 73 71 6c 69 74 65 33 20  d *z;.  sqlite3 
10d0: 2a 20 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63  * db = sqlite3_c
10e0: 6f 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65  ontext_db_handle
10f0: 28 63 74 78 29 3b 0a 20 20 73 71 6c 69 74 65 33  (ctx);.  sqlite3
1100: 5f 61 67 67 72 65 67 61 74 65 5f 63 6f 6e 74 65  _aggregate_conte
1110: 78 74 28 63 74 78 2c 20 32 30 34 38 29 3b 0a 20  xt(ctx, 2048);. 
1120: 20 73 71 6c 69 74 65 33 42 65 67 69 6e 42 65 6e   sqlite3BeginBen
1130: 69 67 6e 4d 61 6c 6c 6f 63 28 29 3b 0a 20 20 7a  ignMalloc();.  z
1140: 20 3d 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73   = sqlite3_errms
1150: 67 31 36 28 64 62 29 3b 0a 20 20 73 71 6c 69 74  g16(db);.  sqlit
1160: 65 33 45 6e 64 42 65 6e 69 67 6e 4d 61 6c 6c 6f  e3EndBenignMallo
1170: 63 28 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72  c();.  sqlite3_r
1180: 65 73 75 6c 74 5f 74 65 78 74 31 36 28 63 74 78  esult_text16(ctx
1190: 2c 20 7a 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f  , z, -1, SQLITE_
11a0: 54 52 41 4e 53 49 45 4e 54 29 3b 0a 23 65 6e 64  TRANSIENT);.#end
11b0: 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 6f 75 74  if.}../*.** Rout
11c0: 69 6e 65 73 20 66 6f 72 20 74 65 73 74 69 6e 67  ines for testing
11d0: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 67 65 74   the sqlite3_get
11e0: 5f 61 75 78 64 61 74 61 28 29 20 61 6e 64 20 73  _auxdata() and s
11f0: 71 6c 69 74 65 33 5f 73 65 74 5f 61 75 78 64 61  qlite3_set_auxda
1200: 74 61 28 29 0a 2a 2a 20 69 6e 74 65 72 66 61 63  ta().** interfac
1210: 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 74 65 73  e..**.** The tes
1220: 74 5f 61 75 78 64 61 74 61 28 29 20 53 51 4c 20  t_auxdata() SQL 
1230: 66 75 6e 63 74 69 6f 6e 20 61 74 74 65 6d 70 74  function attempt
1240: 73 20 74 6f 20 72 65 67 69 73 74 65 72 20 65 61  s to register ea
1250: 63 68 20 6f 66 20 69 74 73 20 61 72 67 75 6d 65  ch of its argume
1260: 6e 74 73 0a 2a 2a 20 61 73 20 61 75 78 69 6c 69  nts.** as auxili
1270: 61 72 79 20 64 61 74 61 2e 20 20 49 66 20 74 68  ary data.  If th
1280: 65 72 65 20 61 72 65 20 6e 6f 20 70 72 69 6f 72  ere are no prior
1290: 20 72 65 67 69 73 74 72 61 74 69 6f 6e 73 20 6f   registrations o
12a0: 66 20 61 75 78 20 64 61 74 61 20 66 6f 72 0a 2a  f aux data for.*
12b0: 2a 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74 20  * that argument 
12c0: 28 6d 65 61 6e 69 6e 67 20 74 68 65 20 61 72 67  (meaning the arg
12d0: 75 6d 65 6e 74 20 69 73 20 6e 6f 74 20 61 20 63  ument is not a c
12e0: 6f 6e 73 74 61 6e 74 20 6f 72 20 74 68 69 73 20  onstant or this 
12f0: 69 73 20 69 74 73 20 66 69 72 73 74 0a 2a 2a 20  is its first.** 
1300: 63 61 6c 6c 29 20 74 68 65 6e 20 74 68 65 20 72  call) then the r
1310: 65 73 75 6c 74 20 66 6f 72 20 74 68 61 74 20 61  esult for that a
1320: 72 67 75 6d 65 6e 74 20 69 73 20 30 2e 20 20 49  rgument is 0.  I
1330: 66 20 74 68 65 72 65 20 69 73 20 61 20 70 72 69  f there is a pri
1340: 6f 72 0a 2a 2a 20 72 65 67 69 73 74 72 61 74 69  or.** registrati
1350: 6f 6e 2c 20 74 68 65 20 72 65 73 75 6c 74 20 66  on, the result f
1360: 6f 72 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74  or that argument
1370: 20 69 73 20 31 2e 20 20 54 68 65 20 6f 76 65 72   is 1.  The over
1380: 61 6c 6c 20 72 65 73 75 6c 74 0a 2a 2a 20 69 73  all result.** is
1390: 20 74 68 65 20 69 6e 64 69 76 69 64 75 61 6c 20   the individual 
13a0: 61 72 67 75 6d 65 6e 74 20 72 65 73 75 6c 74 73  argument results
13b0: 20 73 65 70 61 72 61 74 65 64 20 62 79 20 73 70   separated by sp
13c0: 61 63 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  aces..*/.static 
13d0: 76 6f 69 64 20 66 72 65 65 5f 74 65 73 74 5f 61  void free_test_a
13e0: 75 78 64 61 74 61 28 76 6f 69 64 20 2a 70 29 20  uxdata(void *p) 
13f0: 7b 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70 29  {sqlite3_free(p)
1400: 3b 7d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74  ;}.static void t
1410: 65 73 74 5f 61 75 78 64 61 74 61 28 0a 20 20 73  est_auxdata(.  s
1420: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
1430: 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72  pCtx, .  int nAr
1440: 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  g,.  sqlite3_val
1450: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69  ue **argv.){.  i
1460: 6e 74 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a 52  nt i;.  char *zR
1470: 65 74 20 3d 20 74 65 73 74 43 6f 6e 74 65 78 74  et = testContext
1480: 4d 61 6c 6c 6f 63 28 70 43 74 78 2c 20 6e 41 72  Malloc(pCtx, nAr
1490: 67 2a 32 29 3b 0a 20 20 69 66 28 20 21 7a 52 65  g*2);.  if( !zRe
14a0: 74 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6d 65  t ) return;.  me
14b0: 6d 73 65 74 28 7a 52 65 74 2c 20 30 2c 20 6e 41  mset(zRet, 0, nA
14c0: 72 67 2a 32 29 3b 0a 20 20 66 6f 72 28 69 3d 30  rg*2);.  for(i=0
14d0: 3b 20 69 3c 6e 41 72 67 3b 20 69 2b 2b 29 7b 0a  ; i<nArg; i++){.
14e0: 20 20 20 20 63 68 61 72 20 63 6f 6e 73 74 20 2a      char const *
14f0: 7a 20 3d 20 28 63 68 61 72 2a 29 73 71 6c 69 74  z = (char*)sqlit
1500: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72  e3_value_text(ar
1510: 67 76 5b 69 5d 29 3b 0a 20 20 20 20 69 66 28 20  gv[i]);.    if( 
1520: 7a 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 6e  z ){.      int n
1530: 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a 41  ;.      char *zA
1540: 75 78 20 3d 20 73 71 6c 69 74 65 33 5f 67 65 74  ux = sqlite3_get
1550: 5f 61 75 78 64 61 74 61 28 70 43 74 78 2c 20 69  _auxdata(pCtx, i
1560: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 41 75  );.      if( zAu
1570: 78 20 29 7b 0a 20 20 20 20 20 20 20 20 7a 52 65  x ){.        zRe
1580: 74 5b 69 2a 32 5d 20 3d 20 27 31 27 3b 0a 20 20  t[i*2] = '1';.  
1590: 20 20 20 20 20 20 61 73 73 65 72 74 28 20 73 74        assert( st
15a0: 72 63 6d 70 28 7a 41 75 78 2c 7a 29 3d 3d 30 20  rcmp(zAux,z)==0 
15b0: 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 7b  );.      }else {
15c0: 0a 20 20 20 20 20 20 20 20 7a 52 65 74 5b 69 2a  .        zRet[i*
15d0: 32 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20  2] = '0';.      
15e0: 7d 0a 20 20 20 20 20 20 6e 20 3d 20 73 74 72 6c  }.      n = strl
15f0: 65 6e 28 7a 29 20 2b 20 31 3b 0a 20 20 20 20 20  en(z) + 1;.     
1600: 20 7a 41 75 78 20 3d 20 74 65 73 74 43 6f 6e 74   zAux = testCont
1610: 65 78 74 4d 61 6c 6c 6f 63 28 70 43 74 78 2c 20  extMalloc(pCtx, 
1620: 6e 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 41  n);.      if( zA
1630: 75 78 20 29 7b 0a 20 20 20 20 20 20 20 20 6d 65  ux ){.        me
1640: 6d 63 70 79 28 7a 41 75 78 2c 20 7a 2c 20 6e 29  mcpy(zAux, z, n)
1650: 3b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65  ;.        sqlite
1660: 33 5f 73 65 74 5f 61 75 78 64 61 74 61 28 70 43  3_set_auxdata(pC
1670: 74 78 2c 20 69 2c 20 7a 41 75 78 2c 20 66 72 65  tx, i, zAux, fre
1680: 65 5f 74 65 73 74 5f 61 75 78 64 61 74 61 29 3b  e_test_auxdata);
1690: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7a  .      }.      z
16a0: 52 65 74 5b 69 2a 32 2b 31 5d 20 3d 20 27 20 27  Ret[i*2+1] = ' '
16b0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 71  ;.    }.  }.  sq
16c0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78  lite3_result_tex
16d0: 74 28 70 43 74 78 2c 20 7a 52 65 74 2c 20 32 2a  t(pCtx, zRet, 2*
16e0: 6e 41 72 67 2d 31 2c 20 66 72 65 65 5f 74 65 73  nArg-1, free_tes
16f0: 74 5f 61 75 78 64 61 74 61 29 3b 0a 7d 0a 0a 2f  t_auxdata);.}../
1700: 2a 0a 2a 2a 20 41 20 66 75 6e 63 74 69 6f 6e 20  *.** A function 
1710: 74 6f 20 74 65 73 74 20 65 72 72 6f 72 20 72 65  to test error re
1720: 70 6f 72 74 69 6e 67 20 66 72 6f 6d 20 75 73 65  porting from use
1730: 72 20 66 75 6e 63 74 69 6f 6e 73 2e 20 54 68 69  r functions. Thi
1740: 73 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 72 65  s function.** re
1750: 74 75 72 6e 73 20 61 20 63 6f 70 79 20 6f 66 20  turns a copy of 
1760: 69 74 73 20 66 69 72 73 74 20 61 72 67 75 6d 65  its first argume
1770: 6e 74 20 61 73 20 74 68 65 20 65 72 72 6f 72 20  nt as the error 
1780: 6d 65 73 73 61 67 65 2e 20 20 49 66 20 74 68 65  message.  If the
1790: 0a 2a 2a 20 73 65 63 6f 6e 64 20 61 72 67 75 6d  .** second argum
17a0: 65 6e 74 20 65 78 69 73 74 73 2c 20 69 74 20 62  ent exists, it b
17b0: 65 63 6f 6d 65 73 20 74 68 65 20 65 72 72 6f 72  ecomes the error
17c0: 20 63 6f 64 65 2e 0a 2a 2f 0a 73 74 61 74 69 63   code..*/.static
17d0: 20 76 6f 69 64 20 74 65 73 74 5f 65 72 72 6f 72   void test_error
17e0: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
17f0: 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e  ext *pCtx, .  in
1800: 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65  t nArg,.  sqlite
1810: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29  3_value **argv.)
1820: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75  {.  sqlite3_resu
1830: 6c 74 5f 65 72 72 6f 72 28 70 43 74 78 2c 20 28  lt_error(pCtx, (
1840: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61  char*)sqlite3_va
1850: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d  lue_text(argv[0]
1860: 29 2c 20 2d 31 29 3b 0a 20 20 69 66 28 20 6e 41  ), -1);.  if( nA
1870: 72 67 3d 3d 32 20 29 7b 0a 20 20 20 20 73 71 6c  rg==2 ){.    sql
1880: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f  ite3_result_erro
1890: 72 5f 63 6f 64 65 28 70 43 74 78 2c 20 73 71 6c  r_code(pCtx, sql
18a0: 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61  ite3_value_int(a
18b0: 72 67 76 5b 31 5d 29 29 3b 0a 20 20 7d 0a 7d 0a  rgv[1]));.  }.}.
18c0: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74  ./*.** Implement
18d0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 75  ation of the cou
18e0: 6e 74 65 72 28 58 29 20 66 75 6e 63 74 69 6f 6e  nter(X) function
18f0: 2e 20 20 49 66 20 58 20 69 73 20 61 6e 20 69 6e  .  If X is an in
1900: 74 65 67 65 72 0a 2a 2a 20 63 6f 6e 73 74 61 6e  teger.** constan
1910: 74 2c 20 74 68 65 6e 20 74 68 65 20 66 69 72 73  t, then the firs
1920: 74 20 69 6e 76 6f 63 61 74 69 6f 6e 20 77 69 6c  t invocation wil
1930: 6c 20 72 65 74 75 72 6e 20 58 2e 20 20 54 68 65  l return X.  The
1940: 20 73 65 63 6f 6e 64 20 58 2b 31 2e 0a 2a 2a 20   second X+1..** 
1950: 61 6e 64 20 73 6f 20 66 6f 72 74 68 2e 20 20 43  and so forth.  C
1960: 61 6e 20 62 65 20 75 73 65 64 20 28 66 6f 72 20  an be used (for 
1970: 65 78 61 6d 70 6c 65 29 20 74 6f 20 70 72 6f 76  example) to prov
1980: 69 64 65 20 61 20 73 65 71 75 65 6e 63 65 20 6e  ide a sequence n
1990: 75 6d 62 65 72 0a 2a 2a 20 69 6e 20 61 20 72 65  umber.** in a re
19a0: 73 75 6c 74 20 73 65 74 2e 0a 2a 2f 0a 73 74 61  sult set..*/.sta
19b0: 74 69 63 20 76 6f 69 64 20 63 6f 75 6e 74 65 72  tic void counter
19c0: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f  Func(.  sqlite3_
19d0: 63 6f 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 20  context *pCtx,  
19e0: 20 2f 2a 20 46 75 6e 63 74 69 6f 6e 20 63 6f 6e   /* Function con
19f0: 74 65 78 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 41  text */.  int nA
1a00: 72 67 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  rg,             
1a10: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
1a20: 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d 65 6e  function argumen
1a30: 74 73 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f  ts */.  sqlite3_
1a40: 76 61 6c 75 65 20 2a 2a 61 72 67 76 20 20 20 20  value **argv    
1a50: 20 2f 2a 20 56 61 6c 75 65 73 20 66 6f 72 20 61   /* Values for a
1a60: 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 75  ll function argu
1a70: 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e  ments */.){.  in
1a80: 74 20 2a 70 43 6f 75 6e 74 65 72 20 3d 20 28 69  t *pCounter = (i
1a90: 6e 74 2a 29 73 71 6c 69 74 65 33 5f 67 65 74 5f  nt*)sqlite3_get_
1aa0: 61 75 78 64 61 74 61 28 70 43 74 78 2c 20 30 29  auxdata(pCtx, 0)
1ab0: 3b 0a 20 20 69 66 28 20 70 43 6f 75 6e 74 65 72  ;.  if( pCounter
1ac0: 3d 3d 30 20 29 7b 0a 20 20 20 20 70 43 6f 75 6e  ==0 ){.    pCoun
1ad0: 74 65 72 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61  ter = sqlite3_ma
1ae0: 6c 6c 6f 63 28 20 73 69 7a 65 6f 66 28 2a 70 43  lloc( sizeof(*pC
1af0: 6f 75 6e 74 65 72 29 20 29 3b 0a 20 20 20 20 69  ounter) );.    i
1b00: 66 28 20 70 43 6f 75 6e 74 65 72 3d 3d 30 20 29  f( pCounter==0 )
1b10: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  {.      sqlite3_
1b20: 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d  result_error_nom
1b30: 65 6d 28 70 43 74 78 29 3b 0a 20 20 20 20 20 20  em(pCtx);.      
1b40: 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20  return;.    }.  
1b50: 20 20 2a 70 43 6f 75 6e 74 65 72 20 3d 20 73 71    *pCounter = sq
1b60: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28  lite3_value_int(
1b70: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 73 71  argv[0]);.    sq
1b80: 6c 69 74 65 33 5f 73 65 74 5f 61 75 78 64 61 74  lite3_set_auxdat
1b90: 61 28 70 43 74 78 2c 20 30 2c 20 70 43 6f 75 6e  a(pCtx, 0, pCoun
1ba0: 74 65 72 2c 20 73 71 6c 69 74 65 33 5f 66 72 65  ter, sqlite3_fre
1bb0: 65 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20  e);.  }else{.   
1bc0: 20 2b 2b 2a 70 43 6f 75 6e 74 65 72 3b 0a 20 20   ++*pCounter;.  
1bd0: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75  }.  sqlite3_resu
1be0: 6c 74 5f 69 6e 74 28 70 43 74 78 2c 20 2a 70 43  lt_int(pCtx, *pC
1bf0: 6f 75 6e 74 65 72 29 3b 0a 7d 0a 0a 0a 2f 2a 0a  ounter);.}.../*.
1c00: 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e  ** This function
1c10: 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 75 6d   takes two argum
1c20: 65 6e 74 73 2e 20 20 49 74 20 70 65 72 66 6f 72  ents.  It perfor
1c30: 6d 61 6e 63 65 20 55 54 46 2d 38 2f 31 36 20 74  mance UTF-8/16 t
1c40: 79 70 65 0a 2a 2a 20 63 6f 6e 76 65 72 73 69 6f  ype.** conversio
1c50: 6e 73 20 6f 6e 20 74 68 65 20 66 69 72 73 74 20  ns on the first 
1c60: 61 72 67 75 6d 65 6e 74 20 74 68 65 6e 20 72 65  argument then re
1c70: 74 75 72 6e 73 20 61 20 63 6f 70 79 20 6f 66 20  turns a copy of 
1c80: 74 68 65 20 73 65 63 6f 6e 64 0a 2a 2a 20 61 72  the second.** ar
1c90: 67 75 6d 65 6e 74 2e 0a 2a 2a 0a 2a 2a 20 54 68  gument..**.** Th
1ca0: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75  is function is u
1cb0: 73 65 64 20 69 6e 20 63 61 73 65 73 20 73 75 63  sed in cases suc
1cc0: 68 20 61 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69  h as the followi
1cd0: 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 53  ng:.**.**      S
1ce0: 45 4c 45 43 54 20 74 65 73 74 5f 69 73 6f 6c 61  ELECT test_isola
1cf0: 74 69 6f 6e 28 78 2c 78 29 20 46 52 4f 4d 20 74  tion(x,x) FROM t
1d00: 31 3b 0a 2a 2a 0a 2a 2a 20 57 65 20 77 61 6e 74  1;.**.** We want
1d10: 20 74 6f 20 76 65 72 69 66 79 20 74 68 61 74 20   to verify that 
1d20: 74 68 65 20 74 79 70 65 20 63 6f 6e 76 65 72 73  the type convers
1d30: 69 6f 6e 73 20 74 68 61 74 20 6f 63 63 75 72 20  ions that occur 
1d40: 6f 6e 20 74 68 65 0a 2a 2a 20 66 69 72 73 74 20  on the.** first 
1d50: 61 72 67 75 6d 65 6e 74 20 64 6f 20 6e 6f 74 20  argument do not 
1d60: 69 6e 76 61 6c 69 64 61 74 65 20 74 68 65 20 73  invalidate the s
1d70: 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 2e 0a  econd argument..
1d80: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74  */.static void t
1d90: 65 73 74 5f 69 73 6f 6c 61 74 69 6f 6e 28 0a 20  est_isolation(. 
1da0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
1db0: 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e   *pCtx, .  int n
1dc0: 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  Arg,.  sqlite3_v
1dd0: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 23  alue **argv.){.#
1de0: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  ifndef SQLITE_OM
1df0: 49 54 5f 55 54 46 31 36 0a 20 20 73 71 6c 69 74  IT_UTF16.  sqlit
1e00: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28  e3_value_text16(
1e10: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c 69  argv[0]);.  sqli
1e20: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
1e30: 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c 69 74  rgv[0]);.  sqlit
1e40: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28  e3_value_text16(
1e50: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 73 71 6c 69  argv[0]);.  sqli
1e60: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
1e70: 72 67 76 5b 30 5d 29 3b 0a 23 65 6e 64 69 66 0a  rgv[0]);.#endif.
1e80: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
1e90: 5f 76 61 6c 75 65 28 70 43 74 78 2c 20 61 72 67  _value(pCtx, arg
1ea0: 76 5b 31 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  v[1]);.}../*.** 
1eb0: 49 6e 76 6f 6b 65 20 61 6e 20 53 51 4c 20 73 74  Invoke an SQL st
1ec0: 61 74 65 6d 65 6e 74 20 72 65 63 75 72 73 69 76  atement recursiv
1ed0: 65 6c 79 2e 20 20 54 68 65 20 66 75 6e 63 74 69  ely.  The functi
1ee0: 6f 6e 20 72 65 73 75 6c 74 20 69 73 20 74 68 65  on result is the
1ef0: 20 0a 2a 2a 20 66 69 72 73 74 20 63 6f 6c 75 6d   .** first colum
1f00: 6e 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 72  n of the first r
1f10: 6f 77 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74  ow of the result
1f20: 20 73 65 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20   set..*/.static 
1f30: 76 6f 69 64 20 74 65 73 74 5f 65 76 61 6c 28 0a  void test_eval(.
1f40: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78    sqlite3_contex
1f50: 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20  t *pCtx, .  int 
1f60: 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f  nArg,.  sqlite3_
1f70: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a  value **argv.){.
1f80: 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a    sqlite3_stmt *
1f90: 70 53 74 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b  pStmt;.  int rc;
1fa0: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d  .  sqlite3 *db =
1fb0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
1fc0: 5f 64 62 5f 68 61 6e 64 6c 65 28 70 43 74 78 29  _db_handle(pCtx)
1fd0: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ;.  const char *
1fe0: 7a 53 71 6c 3b 0a 0a 20 20 7a 53 71 6c 20 3d 20  zSql;..  zSql = 
1ff0: 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76  (char*)sqlite3_v
2000: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30  alue_text(argv[0
2010: 5d 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74  ]);.  rc = sqlit
2020: 65 33 5f 70 72 65 70 61 72 65 5f 76 32 28 64 62  e3_prepare_v2(db
2030: 2c 20 7a 53 71 6c 2c 20 2d 31 2c 20 26 70 53 74  , zSql, -1, &pSt
2040: 6d 74 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63  mt, 0);.  if( rc
2050: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20  ==SQLITE_OK ){. 
2060: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f     rc = sqlite3_
2070: 73 74 65 70 28 70 53 74 6d 74 29 3b 0a 20 20 20  step(pStmt);.   
2080: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
2090: 52 4f 57 20 29 7b 0a 20 20 20 20 20 20 73 71 6c  ROW ){.      sql
20a0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 76 61 6c 75  ite3_result_valu
20b0: 65 28 70 43 74 78 2c 20 73 71 6c 69 74 65 33 5f  e(pCtx, sqlite3_
20c0: 63 6f 6c 75 6d 6e 5f 76 61 6c 75 65 28 70 53 74  column_value(pSt
20d0: 6d 74 2c 20 30 29 29 3b 0a 20 20 20 20 7d 0a 20  mt, 0));.    }. 
20e0: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f     rc = sqlite3_
20f0: 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d 74 29 3b  finalize(pStmt);
2100: 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 20 29 7b  .  }.  if( rc ){
2110: 0a 20 20 20 20 63 68 61 72 20 2a 7a 45 72 72 3b  .    char *zErr;
2120: 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 53 74  .    assert( pSt
2130: 6d 74 3d 3d 30 20 29 3b 0a 20 20 20 20 7a 45 72  mt==0 );.    zEr
2140: 72 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69  r = sqlite3_mpri
2150: 6e 74 66 28 22 73 71 6c 69 74 65 33 5f 70 72 65  ntf("sqlite3_pre
2160: 70 61 72 65 5f 76 32 28 29 20 65 72 72 6f 72 3a  pare_v2() error:
2170: 20 25 73 22 2c 73 71 6c 69 74 65 33 5f 65 72 72   %s",sqlite3_err
2180: 6d 73 67 28 64 62 29 29 3b 0a 20 20 20 20 73 71  msg(db));.    sq
2190: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78  lite3_result_tex
21a0: 74 28 70 43 74 78 2c 20 7a 45 72 72 2c 20 2d 31  t(pCtx, zErr, -1
21b0: 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b  , sqlite3_free);
21c0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73  .    sqlite3_res
21d0: 75 6c 74 5f 65 72 72 6f 72 5f 63 6f 64 65 28 70  ult_error_code(p
21e0: 43 74 78 2c 20 72 63 29 3b 0a 20 20 7d 0a 7d 0a  Ctx, rc);.  }.}.
21f0: 0a 0a 2f 2a 0a 2a 2a 20 63 6f 6e 76 65 72 74 20  ../*.** convert 
2200: 6f 6e 65 20 63 68 61 72 61 63 74 65 72 20 66 72  one character fr
2210: 6f 6d 20 68 65 78 20 74 6f 20 62 69 6e 61 72 79  om hex to binary
2220: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
2230: 65 73 74 48 65 78 43 68 61 72 28 63 68 61 72 20  estHexChar(char 
2240: 63 29 7b 0a 20 20 69 66 28 20 63 3e 3d 27 30 27  c){.  if( c>='0'
2250: 20 26 26 20 63 3c 3d 27 39 27 20 29 7b 0a 20 20   && c<='9' ){.  
2260: 20 20 72 65 74 75 72 6e 20 63 20 2d 20 27 30 27    return c - '0'
2270: 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3e  ;.  }else if( c>
2280: 3d 27 61 27 20 26 26 20 63 3c 3d 27 66 27 20 29  ='a' && c<='f' )
2290: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 63 20 2d  {.    return c -
22a0: 20 27 61 27 20 2b 20 31 30 3b 0a 20 20 7d 65 6c   'a' + 10;.  }el
22b0: 73 65 20 69 66 28 20 63 3e 3d 27 41 27 20 26 26  se if( c>='A' &&
22c0: 20 63 3c 3d 27 46 27 20 29 7b 0a 20 20 20 20 72   c<='F' ){.    r
22d0: 65 74 75 72 6e 20 63 20 2d 20 27 41 27 20 2b 20  eturn c - 'A' + 
22e0: 31 30 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  10;.  }.  return
22f0: 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e   0;.}../*.** Con
2300: 76 65 72 74 20 68 65 78 20 74 6f 20 62 69 6e 61  vert hex to bina
2310: 72 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ry..*/.static vo
2320: 69 64 20 74 65 73 74 48 65 78 54 6f 42 69 6e 28  id testHexToBin(
2330: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 49 6e 2c  const char *zIn,
2340: 20 63 68 61 72 20 2a 7a 4f 75 74 29 7b 0a 20 20   char *zOut){.  
2350: 77 68 69 6c 65 28 20 7a 49 6e 5b 30 5d 20 26 26  while( zIn[0] &&
2360: 20 7a 49 6e 5b 31 5d 20 29 7b 0a 20 20 20 20 2a   zIn[1] ){.    *
2370: 28 7a 4f 75 74 2b 2b 29 20 3d 20 28 74 65 73 74  (zOut++) = (test
2380: 48 65 78 43 68 61 72 28 7a 49 6e 5b 30 5d 29 3c  HexChar(zIn[0])<
2390: 3c 34 29 20 2b 20 74 65 73 74 48 65 78 43 68 61  <4) + testHexCha
23a0: 72 28 7a 49 6e 5b 31 5d 29 3b 0a 20 20 20 20 7a  r(zIn[1]);.    z
23b0: 49 6e 20 2b 3d 20 32 3b 0a 20 20 7d 0a 7d 0a 0a  In += 2;.  }.}..
23c0: 2f 2a 0a 2a 2a 20 20 20 20 20 20 68 65 78 5f 74  /*.**      hex_t
23d0: 6f 5f 75 74 66 31 36 62 65 28 48 45 58 29 0a 2a  o_utf16be(HEX).*
23e0: 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 74 68 65  *.** Convert the
23f0: 20 69 6e 70 75 74 20 73 74 72 69 6e 67 20 66 72   input string fr
2400: 6f 6d 20 48 45 58 20 69 6e 74 6f 20 62 69 6e 61  om HEX into bina
2410: 72 79 2e 20 20 54 68 65 6e 20 72 65 74 75 72 6e  ry.  Then return
2420: 20 74 68 65 0a 2a 2a 20 72 65 73 75 6c 74 20 75   the.** result u
2430: 73 69 6e 67 20 73 71 6c 69 74 65 33 5f 72 65 73  sing sqlite3_res
2440: 75 6c 74 5f 74 65 78 74 31 36 6c 65 28 29 2e 0a  ult_text16le()..
2450: 2a 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54  */.#ifndef SQLIT
2460: 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 73 74 61  E_OMIT_UTF16.sta
2470: 74 69 63 20 76 6f 69 64 20 74 65 73 74 48 65 78  tic void testHex
2480: 54 6f 55 74 66 31 36 62 65 28 0a 20 20 73 71 6c  ToUtf16be(.  sql
2490: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 43  ite3_context *pC
24a0: 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41 72 67 2c  tx, .  int nArg,
24b0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  .  sqlite3_value
24c0: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74   **argv.){.  int
24d0: 20 6e 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72   n;.  const char
24e0: 20 2a 7a 49 6e 3b 0a 20 20 63 68 61 72 20 2a 7a   *zIn;.  char *z
24f0: 4f 75 74 3b 0a 20 20 61 73 73 65 72 74 28 20 6e  Out;.  assert( n
2500: 41 72 67 3d 3d 31 20 29 3b 0a 20 20 6e 20 3d 20  Arg==1 );.  n = 
2510: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79  sqlite3_value_by
2520: 74 65 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20  tes(argv[0]);.  
2530: 7a 49 6e 20 3d 20 28 63 6f 6e 73 74 20 63 68 61  zIn = (const cha
2540: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  r*)sqlite3_value
2550: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a  _text(argv[0]);.
2560: 20 20 7a 4f 75 74 20 3d 20 73 71 6c 69 74 65 33    zOut = sqlite3
2570: 5f 6d 61 6c 6c 6f 63 28 20 6e 2f 32 20 29 3b 0a  _malloc( n/2 );.
2580: 20 20 69 66 28 20 7a 4f 75 74 3d 3d 30 20 29 7b    if( zOut==0 ){
2590: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73  .    sqlite3_res
25a0: 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28  ult_error_nomem(
25b0: 70 43 74 78 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a  pCtx);.  }else{.
25c0: 20 20 20 20 74 65 73 74 48 65 78 54 6f 42 69 6e      testHexToBin
25d0: 28 7a 49 6e 2c 20 7a 4f 75 74 29 3b 0a 20 20 20  (zIn, zOut);.   
25e0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
25f0: 74 65 78 74 31 36 62 65 28 70 43 74 78 2c 20 7a  text16be(pCtx, z
2600: 4f 75 74 2c 20 6e 2f 32 2c 20 73 71 6c 69 74 65  Out, n/2, sqlite
2610: 33 5f 66 72 65 65 29 3b 0a 20 20 7d 0a 7d 0a 23  3_free);.  }.}.#
2620: 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 20 20 20  endif../*.**    
2630: 20 20 68 65 78 5f 74 6f 5f 75 74 66 38 28 48 45    hex_to_utf8(HE
2640: 58 29 0a 2a 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74  X).**.** Convert
2650: 20 74 68 65 20 69 6e 70 75 74 20 73 74 72 69 6e   the input strin
2660: 67 20 66 72 6f 6d 20 48 45 58 20 69 6e 74 6f 20  g from HEX into 
2670: 62 69 6e 61 72 79 2e 20 20 54 68 65 6e 20 72 65  binary.  Then re
2680: 74 75 72 6e 20 74 68 65 0a 2a 2a 20 72 65 73 75  turn the.** resu
2690: 6c 74 20 75 73 69 6e 67 20 73 71 6c 69 74 65 33  lt using sqlite3
26a0: 5f 72 65 73 75 6c 74 5f 74 65 78 74 31 36 6c 65  _result_text16le
26b0: 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ()..*/.static vo
26c0: 69 64 20 74 65 73 74 48 65 78 54 6f 55 74 66 38  id testHexToUtf8
26d0: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
26e0: 65 78 74 20 2a 70 43 74 78 2c 20 0a 20 20 69 6e  ext *pCtx, .  in
26f0: 74 20 6e 41 72 67 2c 0a 20 20 73 71 6c 69 74 65  t nArg,.  sqlite
2700: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29  3_value **argv.)
2710: 7b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 63 6f 6e  {.  int n;.  con
2720: 73 74 20 63 68 61 72 20 2a 7a 49 6e 3b 0a 20 20  st char *zIn;.  
2730: 63 68 61 72 20 2a 7a 4f 75 74 3b 0a 20 20 61 73  char *zOut;.  as
2740: 73 65 72 74 28 20 6e 41 72 67 3d 3d 31 20 29 3b  sert( nArg==1 );
2750: 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76  .  n = sqlite3_v
2760: 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b  alue_bytes(argv[
2770: 30 5d 29 3b 0a 20 20 7a 49 6e 20 3d 20 28 63 6f  0]);.  zIn = (co
2780: 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65  nst char*)sqlite
2790: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67  3_value_text(arg
27a0: 76 5b 30 5d 29 3b 0a 20 20 7a 4f 75 74 20 3d 20  v[0]);.  zOut = 
27b0: 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20  sqlite3_malloc( 
27c0: 6e 2f 32 20 29 3b 0a 20 20 69 66 28 20 7a 4f 75  n/2 );.  if( zOu
27d0: 74 3d 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c 69  t==0 ){.    sqli
27e0: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72  te3_result_error
27f0: 5f 6e 6f 6d 65 6d 28 70 43 74 78 29 3b 0a 20 20  _nomem(pCtx);.  
2800: 7d 65 6c 73 65 7b 0a 20 20 20 20 74 65 73 74 48  }else{.    testH
2810: 65 78 54 6f 42 69 6e 28 7a 49 6e 2c 20 7a 4f 75  exToBin(zIn, zOu
2820: 74 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f  t);.    sqlite3_
2830: 72 65 73 75 6c 74 5f 74 65 78 74 28 70 43 74 78  result_text(pCtx
2840: 2c 20 7a 4f 75 74 2c 20 6e 2f 32 2c 20 73 71 6c  , zOut, n/2, sql
2850: 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 7d 0a  ite3_free);.  }.
2860: 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 20 68 65  }../*.**      he
2870: 78 5f 74 6f 5f 75 74 66 31 36 6c 65 28 48 45 58  x_to_utf16le(HEX
2880: 29 0a 2a 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20  ).**.** Convert 
2890: 74 68 65 20 69 6e 70 75 74 20 73 74 72 69 6e 67  the input string
28a0: 20 66 72 6f 6d 20 48 45 58 20 69 6e 74 6f 20 62   from HEX into b
28b0: 69 6e 61 72 79 2e 20 20 54 68 65 6e 20 72 65 74  inary.  Then ret
28c0: 75 72 6e 20 74 68 65 0a 2a 2a 20 72 65 73 75 6c  urn the.** resul
28d0: 74 20 75 73 69 6e 67 20 73 71 6c 69 74 65 33 5f  t using sqlite3_
28e0: 72 65 73 75 6c 74 5f 74 65 78 74 31 36 6c 65 28  result_text16le(
28f0: 29 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66 20 53 51  )..*/.#ifndef SQ
2900: 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a  LITE_OMIT_UTF16.
2910: 73 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74  static void test
2920: 48 65 78 54 6f 55 74 66 31 36 6c 65 28 0a 20 20  HexToUtf16le(.  
2930: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
2940: 2a 70 43 74 78 2c 20 0a 20 20 69 6e 74 20 6e 41  *pCtx, .  int nA
2950: 72 67 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61  rg,.  sqlite3_va
2960: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20  lue **argv.){.  
2970: 69 6e 74 20 6e 3b 0a 20 20 63 6f 6e 73 74 20 63  int n;.  const c
2980: 68 61 72 20 2a 7a 49 6e 3b 0a 20 20 63 68 61 72  har *zIn;.  char
2990: 20 2a 7a 4f 75 74 3b 0a 20 20 61 73 73 65 72 74   *zOut;.  assert
29a0: 28 20 6e 41 72 67 3d 3d 31 20 29 3b 0a 20 20 6e  ( nArg==1 );.  n
29b0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
29c0: 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 3b  _bytes(argv[0]);
29d0: 0a 20 20 7a 49 6e 20 3d 20 28 63 6f 6e 73 74 20  .  zIn = (const 
29e0: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61  char*)sqlite3_va
29f0: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d  lue_text(argv[0]
2a00: 29 3b 0a 20 20 7a 4f 75 74 20 3d 20 73 71 6c 69  );.  zOut = sqli
2a10: 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 6e 2f 32 20  te3_malloc( n/2 
2a20: 29 3b 0a 20 20 69 66 28 20 7a 4f 75 74 3d 3d 30  );.  if( zOut==0
2a30: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f   ){.    sqlite3_
2a40: 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d  result_error_nom
2a50: 65 6d 28 70 43 74 78 29 3b 0a 20 20 7d 65 6c 73  em(pCtx);.  }els
2a60: 65 7b 0a 20 20 20 20 74 65 73 74 48 65 78 54 6f  e{.    testHexTo
2a70: 42 69 6e 28 7a 49 6e 2c 20 7a 4f 75 74 29 3b 0a  Bin(zIn, zOut);.
2a80: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
2a90: 6c 74 5f 74 65 78 74 31 36 6c 65 28 70 43 74 78  lt_text16le(pCtx
2aa0: 2c 20 7a 4f 75 74 2c 20 6e 2f 32 2c 20 73 71 6c  , zOut, n/2, sql
2ab0: 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 7d 0a  ite3_free);.  }.
2ac0: 7d 0a 23 65 6e 64 69 66 0a 0a 73 74 61 74 69 63  }.#endif..static
2ad0: 20 69 6e 74 20 72 65 67 69 73 74 65 72 54 65 73   int registerTes
2ae0: 74 46 75 6e 63 74 69 6f 6e 73 28 73 71 6c 69 74  tFunctions(sqlit
2af0: 65 33 20 2a 64 62 29 7b 0a 20 20 73 74 61 74 69  e3 *db){.  stati
2b00: 63 20 63 6f 6e 73 74 20 73 74 72 75 63 74 20 7b  c const struct {
2b10: 0a 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d  .     char *zNam
2b20: 65 3b 0a 20 20 20 20 20 73 69 67 6e 65 64 20 63  e;.     signed c
2b30: 68 61 72 20 6e 41 72 67 3b 0a 20 20 20 20 20 75  har nArg;.     u
2b40: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 65 54 65  nsigned char eTe
2b50: 78 74 52 65 70 3b 20 2f 2a 20 31 3a 20 55 54 46  xtRep; /* 1: UTF
2b60: 2d 31 36 2e 20 20 30 3a 20 55 54 46 2d 38 20 2a  -16.  0: UTF-8 *
2b70: 2f 0a 20 20 20 20 20 76 6f 69 64 20 28 2a 78 46  /.     void (*xF
2b80: 75 6e 63 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e  unc)(sqlite3_con
2b90: 74 65 78 74 2a 2c 69 6e 74 2c 73 71 6c 69 74 65  text*,int,sqlite
2ba0: 33 5f 76 61 6c 75 65 20 2a 2a 29 3b 0a 20 20 7d  3_value **);.  }
2bb0: 20 61 46 75 6e 63 73 5b 5d 20 3d 20 7b 0a 20 20   aFuncs[] = {.  
2bc0: 20 20 7b 20 22 72 61 6e 64 73 74 72 22 2c 20 20    { "randstr",  
2bd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20               2, 
2be0: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 72 61 6e  SQLITE_UTF8, ran
2bf0: 64 53 74 72 20 20 20 20 7d 2c 0a 20 20 20 20 7b  dStr    },.    {
2c00: 20 22 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f   "test_destructo
2c10: 72 22 2c 20 20 20 20 20 20 20 31 2c 20 53 51 4c  r",       1, SQL
2c20: 49 54 45 5f 55 54 46 38 2c 20 74 65 73 74 5f 64  ITE_UTF8, test_d
2c30: 65 73 74 72 75 63 74 6f 72 7d 2c 0a 23 69 66 6e  estructor},.#ifn
2c40: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f  def SQLITE_OMIT_
2c50: 55 54 46 31 36 0a 20 20 20 20 7b 20 22 74 65 73  UTF16.    { "tes
2c60: 74 5f 64 65 73 74 72 75 63 74 6f 72 31 36 22 2c  t_destructor16",
2c70: 20 20 20 20 20 31 2c 20 53 51 4c 49 54 45 5f 55       1, SQLITE_U
2c80: 54 46 38 2c 20 74 65 73 74 5f 64 65 73 74 72 75  TF8, test_destru
2c90: 63 74 6f 72 31 36 7d 2c 0a 20 20 20 20 7b 20 22  ctor16},.    { "
2ca0: 68 65 78 5f 74 6f 5f 75 74 66 31 36 62 65 22 2c  hex_to_utf16be",
2cb0: 20 20 20 20 20 20 20 20 31 2c 20 53 51 4c 49 54          1, SQLIT
2cc0: 45 5f 55 54 46 38 2c 20 74 65 73 74 48 65 78 54  E_UTF8, testHexT
2cd0: 6f 55 74 66 31 36 62 65 7d 2c 0a 20 20 20 20 7b  oUtf16be},.    {
2ce0: 20 22 68 65 78 5f 74 6f 5f 75 74 66 31 36 6c 65   "hex_to_utf16le
2cf0: 22 2c 20 20 20 20 20 20 20 20 31 2c 20 53 51 4c  ",        1, SQL
2d00: 49 54 45 5f 55 54 46 38 2c 20 74 65 73 74 48 65  ITE_UTF8, testHe
2d10: 78 54 6f 55 74 66 31 36 6c 65 7d 2c 0a 23 65 6e  xToUtf16le},.#en
2d20: 64 69 66 0a 20 20 20 20 7b 20 22 68 65 78 5f 74  dif.    { "hex_t
2d30: 6f 5f 75 74 66 38 22 2c 20 20 20 20 20 20 20 20  o_utf8",        
2d40: 20 20 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46     1, SQLITE_UTF
2d50: 38 2c 20 74 65 73 74 48 65 78 54 6f 55 74 66 38  8, testHexToUtf8
2d60: 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 64  },.    { "test_d
2d70: 65 73 74 72 75 63 74 6f 72 5f 63 6f 75 6e 74 22  estructor_count"
2d80: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38  , 0, SQLITE_UTF8
2d90: 2c 20 74 65 73 74 5f 64 65 73 74 72 75 63 74 6f  , test_destructo
2da0: 72 5f 63 6f 75 6e 74 7d 2c 0a 20 20 20 20 7b 20  r_count},.    { 
2db0: 22 74 65 73 74 5f 61 75 78 64 61 74 61 22 2c 20  "test_auxdata", 
2dc0: 20 20 20 20 20 20 20 20 2d 31 2c 20 53 51 4c 49          -1, SQLI
2dd0: 54 45 5f 55 54 46 38 2c 20 74 65 73 74 5f 61 75  TE_UTF8, test_au
2de0: 78 64 61 74 61 7d 2c 0a 20 20 20 20 7b 20 22 74  xdata},.    { "t
2df0: 65 73 74 5f 65 72 72 6f 72 22 2c 20 20 20 20 20  est_error",     
2e00: 20 20 20 20 20 20 20 31 2c 20 53 51 4c 49 54 45         1, SQLITE
2e10: 5f 55 54 46 38 2c 20 74 65 73 74 5f 65 72 72 6f  _UTF8, test_erro
2e20: 72 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f  r},.    { "test_
2e30: 65 72 72 6f 72 22 2c 20 20 20 20 20 20 20 20 20  error",         
2e40: 20 20 20 32 2c 20 53 51 4c 49 54 45 5f 55 54 46     2, SQLITE_UTF
2e50: 38 2c 20 74 65 73 74 5f 65 72 72 6f 72 7d 2c 0a  8, test_error},.
2e60: 20 20 20 20 7b 20 22 74 65 73 74 5f 65 76 61 6c      { "test_eval
2e70: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 31  ",             1
2e80: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 74  , SQLITE_UTF8, t
2e90: 65 73 74 5f 65 76 61 6c 7d 2c 0a 20 20 20 20 7b  est_eval},.    {
2ea0: 20 22 74 65 73 74 5f 69 73 6f 6c 61 74 69 6f 6e   "test_isolation
2eb0: 22 2c 20 20 20 20 20 20 20 20 32 2c 20 53 51 4c  ",        2, SQL
2ec0: 49 54 45 5f 55 54 46 38 2c 20 74 65 73 74 5f 69  ITE_UTF8, test_i
2ed0: 73 6f 6c 61 74 69 6f 6e 7d 2c 0a 20 20 20 20 7b  solation},.    {
2ee0: 20 22 74 65 73 74 5f 63 6f 75 6e 74 65 72 22 2c   "test_counter",
2ef0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 53 51 4c            1, SQL
2f00: 49 54 45 5f 55 54 46 38 2c 20 63 6f 75 6e 74 65  ITE_UTF8, counte
2f10: 72 46 75 6e 63 7d 2c 0a 20 20 7d 3b 0a 20 20 69  rFunc},.  };.  i
2f20: 6e 74 20 69 3b 0a 0a 20 20 66 6f 72 28 69 3d 30  nt i;..  for(i=0
2f30: 3b 20 69 3c 73 69 7a 65 6f 66 28 61 46 75 6e 63  ; i<sizeof(aFunc
2f40: 73 29 2f 73 69 7a 65 6f 66 28 61 46 75 6e 63 73  s)/sizeof(aFuncs
2f50: 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  [0]); i++){.    
2f60: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66  sqlite3_create_f
2f70: 75 6e 63 74 69 6f 6e 28 64 62 2c 20 61 46 75 6e  unction(db, aFun
2f80: 63 73 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 46 75  cs[i].zName, aFu
2f90: 6e 63 73 5b 69 5d 2e 6e 41 72 67 2c 0a 20 20 20  ncs[i].nArg,.   
2fa0: 20 20 20 20 20 61 46 75 6e 63 73 5b 69 5d 2e 65       aFuncs[i].e
2fb0: 54 65 78 74 52 65 70 2c 20 30 2c 20 61 46 75 6e  TextRep, 0, aFun
2fc0: 63 73 5b 69 5d 2e 78 46 75 6e 63 2c 20 30 2c 20  cs[i].xFunc, 0, 
2fd0: 30 29 3b 0a 20 20 7d 0a 0a 20 20 73 71 6c 69 74  0);.  }..  sqlit
2fe0: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69  e3_create_functi
2ff0: 6f 6e 28 64 62 2c 20 22 74 65 73 74 5f 61 67 67  on(db, "test_agg
3000: 5f 65 72 72 6d 73 67 31 36 22 2c 20 30 2c 20 53  _errmsg16", 0, S
3010: 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 20 30 2c  QLITE_ANY, 0, 0,
3020: 20 0a 20 20 20 20 20 20 74 65 73 74 5f 61 67 67   .      test_agg
3030: 5f 65 72 72 6d 73 67 31 36 5f 73 74 65 70 2c 20  _errmsg16_step, 
3040: 74 65 73 74 5f 61 67 67 5f 65 72 72 6d 73 67 31  test_agg_errmsg1
3050: 36 5f 66 69 6e 61 6c 29 3b 0a 20 20 20 20 20 20  6_final);.      
3060: 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45  .  return SQLITE
3070: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 43  _OK;.}../*.** TC
3080: 4c 43 4d 44 3a 20 20 61 75 74 6f 69 6e 73 74 61  LCMD:  autoinsta
3090: 6c 6c 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e  ll_test_function
30a0: 73 0a 2a 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74  s.**.** Invoke t
30b0: 68 69 73 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 20  his TCL command 
30c0: 74 6f 20 75 73 65 20 73 71 6c 69 74 65 33 5f 61  to use sqlite3_a
30d0: 75 74 6f 5f 65 78 74 65 6e 73 69 6f 6e 28 29 20  uto_extension() 
30e0: 74 6f 20 63 61 75 73 65 0a 2a 2a 20 74 68 65 20  to cause.** the 
30f0: 73 74 61 6e 64 61 72 64 20 73 65 74 20 6f 66 20  standard set of 
3100: 74 65 73 74 20 66 75 6e 63 74 69 6f 6e 73 20 74  test functions t
3110: 6f 20 62 65 20 6c 6f 61 64 65 64 20 69 6e 74 6f  o be loaded into
3120: 20 65 61 63 68 20 6e 65 77 0a 2a 2a 20 64 61 74   each new.** dat
3130: 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  abase connection
3140: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
3150: 61 75 74 6f 69 6e 73 74 61 6c 6c 5f 74 65 73 74  autoinstall_test
3160: 5f 66 75 6e 63 73 28 0a 20 20 76 6f 69 64 20 2a  _funcs(.  void *
3170: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54   clientData,.  T
3180: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
3190: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20  p,.  int objc,. 
31a0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20   Tcl_Obj *CONST 
31b0: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 65 78 74 65  objv[].){.  exte
31c0: 72 6e 20 69 6e 74 20 4d 64 35 5f 52 65 67 69 73  rn int Md5_Regis
31d0: 74 65 72 28 73 71 6c 69 74 65 33 2a 29 3b 0a 20  ter(sqlite3*);. 
31e0: 20 69 6e 74 20 72 63 20 3d 20 73 71 6c 69 74 65   int rc = sqlite
31f0: 33 5f 61 75 74 6f 5f 65 78 74 65 6e 73 69 6f 6e  3_auto_extension
3200: 28 28 76 6f 69 64 2a 29 72 65 67 69 73 74 65 72  ((void*)register
3210: 54 65 73 74 46 75 6e 63 74 69 6f 6e 73 29 3b 0a  TestFunctions);.
3220: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
3230: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  _OK ){.    rc = 
3240: 73 71 6c 69 74 65 33 5f 61 75 74 6f 5f 65 78 74  sqlite3_auto_ext
3250: 65 6e 73 69 6f 6e 28 28 76 6f 69 64 2a 29 4d 64  ension((void*)Md
3260: 35 5f 52 65 67 69 73 74 65 72 29 3b 0a 20 20 7d  5_Register);.  }
3270: 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73  .  Tcl_SetObjRes
3280: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ult(interp, Tcl_
3290: 4e 65 77 49 6e 74 4f 62 6a 28 72 63 29 29 3b 0a  NewIntObj(rc));.
32a0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
32b0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 62 6f 67 75  .}../*.** A bogu
32c0: 73 20 73 74 65 70 20 66 75 6e 63 74 69 6f 6e 20  s step function 
32d0: 61 6e 64 20 66 69 6e 61 6c 69 7a 65 72 20 66 75  and finalizer fu
32e0: 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69  nction..*/.stati
32f0: 63 20 76 6f 69 64 20 74 53 74 65 70 28 73 71 6c  c void tStep(sql
3300: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 61 2c  ite3_context *a,
3310: 20 69 6e 74 20 62 2c 20 73 71 6c 69 74 65 33 5f   int b, sqlite3_
3320: 76 61 6c 75 65 20 2a 2a 63 29 7b 7d 0a 73 74 61  value **c){}.sta
3330: 74 69 63 20 76 6f 69 64 20 74 46 69 6e 61 6c 28  tic void tFinal(
3340: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
3350: 2a 61 29 7b 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 74 63  *a){}.../*.** tc
3360: 6c 63 6d 64 3a 20 20 61 62 75 73 65 5f 63 72 65  lcmd:  abuse_cre
3370: 61 74 65 5f 66 75 6e 63 74 69 6f 6e 0a 2a 2a 0a  ate_function.**.
3380: 2a 2a 20 4d 61 6b 65 20 76 61 72 69 6f 75 73 20  ** Make various 
3390: 63 61 6c 6c 73 20 74 6f 20 73 71 6c 69 74 65 33  calls to sqlite3
33a0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e  _create_function
33b0: 20 74 68 61 74 20 64 6f 20 6e 6f 74 20 68 61 76   that do not hav
33c0: 65 20 76 61 6c 69 64 0a 2a 2a 20 70 61 72 61 6d  e valid.** param
33d0: 65 74 65 72 73 2e 20 20 56 65 72 69 66 79 20 74  eters.  Verify t
33e0: 68 61 74 20 74 68 65 20 65 72 72 6f 72 20 63 6f  hat the error co
33f0: 6e 64 69 74 69 6f 6e 20 69 73 20 64 65 74 65 63  ndition is detec
3400: 74 65 64 20 61 6e 64 20 72 65 70 6f 72 74 65 64  ted and reported
3410: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
3420: 61 62 75 73 65 5f 63 72 65 61 74 65 5f 66 75 6e  abuse_create_fun
3430: 63 74 69 6f 6e 28 0a 20 20 76 6f 69 64 20 2a 20  ction(.  void * 
3440: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63  clientData,.  Tc
3450: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
3460: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20  ,.  int objc,.  
3470: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f  Tcl_Obj *CONST o
3480: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 65 78 74 65 72  bjv[].){.  exter
3490: 6e 20 69 6e 74 20 67 65 74 44 62 50 6f 69 6e 74  n int getDbPoint
34a0: 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 2a 2c 20  er(Tcl_Interp*, 
34b0: 63 6f 6e 73 74 20 63 68 61 72 2a 2c 20 73 71 6c  const char*, sql
34c0: 69 74 65 33 2a 2a 29 3b 0a 20 20 73 71 6c 69 74  ite3**);.  sqlit
34d0: 65 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 72 63  e3 *db;.  int rc
34e0: 3b 0a 20 20 69 6e 74 20 6d 78 41 72 67 3b 0a 0a  ;.  int mxArg;..
34f0: 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74    if( getDbPoint
3500: 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47  er(interp, Tcl_G
3510: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d  etString(objv[1]
3520: 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 6e  ), &db) ) return
3530: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 72   TCL_ERROR;..  r
3540: 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61  c = sqlite3_crea
3550: 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20  te_function(db, 
3560: 22 74 78 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f  "tx", 1, SQLITE_
3570: 55 54 46 38 2c 20 30 2c 20 74 53 74 65 70 2c 74  UTF8, 0, tStep,t
3580: 53 74 65 70 2c 74 46 69 6e 61 6c 29 3b 0a 20 20  Step,tFinal);.  
3590: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4d  if( rc!=SQLITE_M
35a0: 49 53 55 53 45 20 29 20 67 6f 74 6f 20 61 62 75  ISUSE ) goto abu
35b0: 73 65 5f 65 72 72 3b 0a 0a 20 20 72 63 20 3d 20  se_err;..  rc = 
35c0: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66  sqlite3_create_f
35d0: 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 74 78 22  unction(db, "tx"
35e0: 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38  , 1, SQLITE_UTF8
35f0: 2c 20 30 2c 20 74 53 74 65 70 2c 20 74 53 74 65  , 0, tStep, tSte
3600: 70 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63 21  p, 0);.  if( rc!
3610: 3d 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 29  =SQLITE_MISUSE )
3620: 20 67 6f 74 6f 20 61 62 75 73 65 5f 65 72 72 3b   goto abuse_err;
3630: 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33  ..  rc = sqlite3
3640: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e  _create_function
3650: 28 64 62 2c 20 22 74 78 22 2c 20 31 2c 20 53 51  (db, "tx", 1, SQ
3660: 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 74 53  LITE_UTF8, 0, tS
3670: 74 65 70 2c 20 30 2c 20 74 46 69 6e 61 6c 29 3b  tep, 0, tFinal);
3680: 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54  .  if( rc!=SQLIT
3690: 45 5f 4d 49 53 55 53 45 29 20 67 6f 74 6f 20 61  E_MISUSE) goto a
36a0: 62 75 73 65 5f 65 72 72 3b 0a 0a 20 20 72 63 20  buse_err;..  rc 
36b0: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65  = sqlite3_create
36c0: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 74  _function(db, "t
36d0: 78 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54  x", 1, SQLITE_UT
36e0: 46 38 2c 20 30 2c 20 30 2c 20 30 2c 20 74 46 69  F8, 0, 0, 0, tFi
36f0: 6e 61 6c 29 3b 0a 20 20 69 66 28 20 72 63 21 3d  nal);.  if( rc!=
3700: 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 29 20  SQLITE_MISUSE ) 
3710: 67 6f 74 6f 20 61 62 75 73 65 5f 65 72 72 3b 0a  goto abuse_err;.
3720: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f  .  rc = sqlite3_
3730: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28  create_function(
3740: 64 62 2c 20 22 74 78 22 2c 20 31 2c 20 53 51 4c  db, "tx", 1, SQL
3750: 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 30 2c 20  ITE_UTF8, 0, 0, 
3760: 74 53 74 65 70 2c 20 30 29 3b 0a 20 20 69 66 28  tStep, 0);.  if(
3770: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4d 49 53 55   rc!=SQLITE_MISU
3780: 53 45 20 29 20 67 6f 74 6f 20 61 62 75 73 65 5f  SE ) goto abuse_
3790: 65 72 72 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c  err;..  rc = sql
37a0: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63  ite3_create_func
37b0: 74 69 6f 6e 28 64 62 2c 20 22 74 78 22 2c 20 2d  tion(db, "tx", -
37c0: 32 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20  2, SQLITE_UTF8, 
37d0: 30 2c 20 74 53 74 65 70 2c 20 30 2c 20 30 29 3b  0, tStep, 0, 0);
37e0: 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54  .  if( rc!=SQLIT
37f0: 45 5f 4d 49 53 55 53 45 20 29 20 67 6f 74 6f 20  E_MISUSE ) goto 
3800: 61 62 75 73 65 5f 65 72 72 3b 0a 0a 20 20 72 63  abuse_err;..  rc
3810: 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74   = sqlite3_creat
3820: 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22  e_function(db, "
3830: 74 78 22 2c 20 31 32 38 2c 20 53 51 4c 49 54 45  tx", 128, SQLITE
3840: 5f 55 54 46 38 2c 20 30 2c 20 74 53 74 65 70 2c  _UTF8, 0, tStep,
3850: 20 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63   0, 0);.  if( rc
3860: 21 3d 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20  !=SQLITE_MISUSE 
3870: 29 20 67 6f 74 6f 20 61 62 75 73 65 5f 65 72 72  ) goto abuse_err
3880: 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65  ;..  rc = sqlite
3890: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f  3_create_functio
38a0: 6e 28 64 62 2c 20 22 66 75 6e 63 78 78 22 0a 20  n(db, "funcxx". 
38b0: 20 20 20 20 20 20 22 5f 31 32 33 34 35 36 37 38        "_12345678
38c0: 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34  9_123456789_1234
38d0: 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f  56789_123456789_
38e0: 31 32 33 34 35 36 37 38 39 22 0a 20 20 20 20 20  123456789".     
38f0: 20 20 22 5f 31 32 33 34 35 36 37 38 39 5f 31 32    "_123456789_12
3900: 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38  3456789_12345678
3910: 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34  9_123456789_1234
3920: 35 36 37 38 39 22 0a 20 20 20 20 20 20 20 22 5f  56789".       "_
3930: 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36  123456789_123456
3940: 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32  789_123456789_12
3950: 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38  3456789_12345678
3960: 39 22 0a 20 20 20 20 20 20 20 22 5f 31 32 33 34  9".       "_1234
3970: 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f  56789_123456789_
3980: 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36  123456789_123456
3990: 37 38 39 5f 31 32 33 34 35 36 37 38 39 22 0a 20  789_123456789". 
39a0: 20 20 20 20 20 20 22 5f 31 32 33 34 35 36 37 38        "_12345678
39b0: 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34  9_123456789_1234
39c0: 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f  56789_123456789_
39d0: 31 32 33 34 35 36 37 38 39 22 2c 0a 20 20 20 20  123456789",.    
39e0: 20 20 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46     1, SQLITE_UTF
39f0: 38 2c 20 30 2c 20 74 53 74 65 70 2c 20 30 2c 20  8, 0, tStep, 0, 
3a00: 30 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51  0);.  if( rc!=SQ
3a10: 4c 49 54 45 5f 4d 49 53 55 53 45 20 29 20 67 6f  LITE_MISUSE ) go
3a20: 74 6f 20 61 62 75 73 65 5f 65 72 72 3b 0a 0a 20  to abuse_err;.. 
3a30: 20 2f 2a 20 54 68 69 73 20 6c 61 73 74 20 66 75   /* This last fu
3a40: 6e 63 74 69 6f 6e 20 72 65 67 69 73 74 72 61 74  nction registrat
3a50: 69 6f 6e 20 73 68 6f 75 6c 64 20 61 63 74 75 61  ion should actua
3a60: 6c 6c 79 20 77 6f 72 6b 2e 20 20 47 65 6e 65 72  lly work.  Gener
3a70: 61 74 65 0a 20 20 2a 2a 20 61 20 6e 6f 2d 6f 70  ate.  ** a no-op
3a80: 20 66 75 6e 63 74 69 6f 6e 20 28 74 68 61 74 20   function (that 
3a90: 61 6c 77 61 79 73 20 72 65 74 75 72 6e 73 20 4e  always returns N
3aa0: 55 4c 4c 29 20 61 6e 64 20 77 68 69 63 68 20 68  ULL) and which h
3ab0: 61 73 20 74 68 65 0a 20 20 2a 2a 20 6d 61 78 69  as the.  ** maxi
3ac0: 6d 75 6d 2d 6c 65 6e 67 74 68 20 66 75 6e 63 74  mum-length funct
3ad0: 69 6f 6e 20 6e 61 6d 65 20 61 6e 64 20 74 68 65  ion name and the
3ae0: 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20   maximum number 
3af0: 6f 66 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 20  of parameters.. 
3b00: 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 6c 69   */.  sqlite3_li
3b10: 6d 69 74 28 64 62 2c 20 53 51 4c 49 54 45 5f 4c  mit(db, SQLITE_L
3b20: 49 4d 49 54 5f 46 55 4e 43 54 49 4f 4e 5f 41 52  IMIT_FUNCTION_AR
3b30: 47 2c 20 31 30 30 30 30 29 3b 0a 20 20 6d 78 41  G, 10000);.  mxA
3b40: 72 67 20 3d 20 73 71 6c 69 74 65 33 5f 6c 69 6d  rg = sqlite3_lim
3b50: 69 74 28 64 62 2c 20 53 51 4c 49 54 45 5f 4c 49  it(db, SQLITE_LI
3b60: 4d 49 54 5f 46 55 4e 43 54 49 4f 4e 5f 41 52 47  MIT_FUNCTION_ARG
3b70: 2c 20 2d 31 29 3b 0a 20 20 72 63 20 3d 20 73 71  , -1);.  rc = sq
3b80: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e  lite3_create_fun
3b90: 63 74 69 6f 6e 28 64 62 2c 20 22 6e 75 6c 6c 78  ction(db, "nullx
3ba0: 22 0a 20 20 20 20 20 20 20 22 5f 31 32 33 34 35  ".       "_12345
3bb0: 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31  6789_123456789_1
3bc0: 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37  23456789_1234567
3bd0: 38 39 5f 31 32 33 34 35 36 37 38 39 22 0a 20 20  89_123456789".  
3be0: 20 20 20 20 20 22 5f 31 32 33 34 35 36 37 38 39       "_123456789
3bf0: 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35  _123456789_12345
3c00: 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31  6789_123456789_1
3c10: 32 33 34 35 36 37 38 39 22 0a 20 20 20 20 20 20  23456789".      
3c20: 20 22 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33   "_123456789_123
3c30: 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39  456789_123456789
3c40: 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35  _123456789_12345
3c50: 36 37 38 39 22 0a 20 20 20 20 20 20 20 22 5f 31  6789".       "_1
3c60: 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37  23456789_1234567
3c70: 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33  89_123456789_123
3c80: 34 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39  456789_123456789
3c90: 22 0a 20 20 20 20 20 20 20 22 5f 31 32 33 34 35  ".       "_12345
3ca0: 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f 31  6789_123456789_1
3cb0: 32 33 34 35 36 37 38 39 5f 31 32 33 34 35 36 37  23456789_1234567
3cc0: 38 39 5f 31 32 33 34 35 36 37 38 39 22 2c 0a 20  89_123456789",. 
3cd0: 20 20 20 20 20 20 6d 78 41 72 67 2c 20 53 51 4c        mxArg, SQL
3ce0: 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 74 53 74  ITE_UTF8, 0, tSt
3cf0: 65 70 2c 20 30 2c 20 30 29 3b 0a 20 20 69 66 28  ep, 0, 0);.  if(
3d00: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29   rc!=SQLITE_OK )
3d10: 20 67 6f 74 6f 20 61 62 75 73 65 5f 65 72 72 3b   goto abuse_err;
3d20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
3d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3d40: 20 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f   .  return TCL_O
3d50: 4b 3b 0a 0a 61 62 75 73 65 5f 65 72 72 3a 0a 20  K;..abuse_err:. 
3d60: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
3d70: 74 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  t(interp, "sqlit
3d80: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69  e3_create_functi
3d90: 6f 6e 20 61 62 75 73 65 64 20 74 65 73 74 20 66  on abused test f
3da0: 61 69 6c 65 64 22 2c 20 0a 20 20 20 20 20 20 20  ailed", .       
3db0: 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61              (cha
3dc0: 72 2a 29 30 29 3b 0a 20 20 72 65 74 75 72 6e 20  r*)0);.  return 
3dd0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a  TCL_ERROR;.}../*
3de0: 0a 2a 2a 20 52 65 67 69 73 74 65 72 20 63 6f 6d  .** Register com
3df0: 6d 61 6e 64 73 20 77 69 74 68 20 74 68 65 20 54  mands with the T
3e00: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a  CL interpreter..
3e10: 2a 2f 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73  */.int Sqlitetes
3e20: 74 5f 66 75 6e 63 5f 49 6e 69 74 28 54 63 6c 5f  t_func_Init(Tcl_
3e30: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b  Interp *interp){
3e40: 0a 20 20 73 74 61 74 69 63 20 73 74 72 75 63 74  .  static struct
3e50: 20 7b 0a 20 20 20 20 20 63 68 61 72 20 2a 7a 4e   {.     char *zN
3e60: 61 6d 65 3b 0a 20 20 20 20 20 54 63 6c 5f 4f 62  ame;.     Tcl_Ob
3e70: 6a 43 6d 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b  jCmdProc *xProc;
3e80: 0a 20 20 7d 20 61 4f 62 6a 43 6d 64 5b 5d 20 3d  .  } aObjCmd[] =
3e90: 20 7b 0a 20 20 20 20 20 7b 20 22 61 75 74 6f 69   {.     { "autoi
3ea0: 6e 73 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e 63  nstall_test_func
3eb0: 74 69 6f 6e 73 22 2c 20 20 20 20 61 75 74 6f 69  tions",    autoi
3ec0: 6e 73 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e 63  nstall_test_func
3ed0: 73 20 7d 2c 0a 20 20 20 20 20 7b 20 22 61 62 75  s },.     { "abu
3ee0: 73 65 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69  se_create_functi
3ef0: 6f 6e 22 2c 20 20 20 20 20 20 20 20 20 61 62 75  on",         abu
3f00: 73 65 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69  se_create_functi
3f10: 6f 6e 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 69 6e  on  },.  };.  in
3f20: 74 20 69 3b 0a 20 20 65 78 74 65 72 6e 20 69 6e  t i;.  extern in
3f30: 74 20 4d 64 35 5f 52 65 67 69 73 74 65 72 28 73  t Md5_Register(s
3f40: 71 6c 69 74 65 33 2a 29 3b 0a 0a 20 20 66 6f 72  qlite3*);..  for
3f50: 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61  (i=0; i<sizeof(a
3f60: 4f 62 6a 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61  ObjCmd)/sizeof(a
3f70: 4f 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29  ObjCmd[0]); i++)
3f80: 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65  {.    Tcl_Create
3f90: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72  ObjCommand(inter
3fa0: 70 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 7a 4e  p, aObjCmd[i].zN
3fb0: 61 6d 65 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e  ame, aObjCmd[i].
3fc0: 78 50 72 6f 63 2c 20 30 2c 20 30 29 3b 0a 20 20  xProc, 0, 0);.  
3fd0: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 69 74  }.  sqlite3_init
3fe0: 69 61 6c 69 7a 65 28 29 3b 0a 20 20 73 71 6c 69  ialize();.  sqli
3ff0: 74 65 33 5f 61 75 74 6f 5f 65 78 74 65 6e 73 69  te3_auto_extensi
4000: 6f 6e 28 28 76 6f 69 64 2a 29 72 65 67 69 73 74  on((void*)regist
4010: 65 72 54 65 73 74 46 75 6e 63 74 69 6f 6e 73 29  erTestFunctions)
4020: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 61 75 74 6f  ;.  sqlite3_auto
4030: 5f 65 78 74 65 6e 73 69 6f 6e 28 28 76 6f 69 64  _extension((void
4040: 2a 29 4d 64 35 5f 52 65 67 69 73 74 65 72 29 3b  *)Md5_Register);
4050: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
4060: 3b 0a 7d 0a                                      ;.}.