SQLite4
Hex Artifact Content
Not logged in

Artifact a3878c74322e6dc0421b6a3bd2f03e0d532fe8b1:


0000: 2f 2a 0a 2a 2a 20 32 30 30 31 20 53 65 70 74 65  /*.** 2001 Septe
0010: 6d 62 65 72 20 31 35 0a 2a 2a 0a 2a 2a 20 54 68  mber 15.**.** Th
0020: 65 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69  e author disclai
0030: 6d 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20  ms copyright to 
0040: 74 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65  this source code
0050: 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a  .  In place of.*
0060: 2a 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65  * a legal notice
0070: 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73  , here is a bles
0080: 73 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d  sing:.**.**    M
0090: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61  ay you do good a
00a0: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20  nd not evil..** 
00b0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00c0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00d0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00e0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20  give others..** 
00f0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65     May you share
0100: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74   freely, never t
0110: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20  aking more than 
0120: 79 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a  you give..**.***
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 2a 2a 2a 2a 0a 2a 2a 20 43 6f 64 65 20 66  ******.** Code f
0180: 6f 72 20 74 65 73 74 69 6e 67 20 74 68 65 20 75  or testing the u
0190: 74 66 2e 63 20 6d 6f 64 75 6c 65 20 69 6e 20 53  tf.c module in S
01a0: 51 4c 69 74 65 2e 20 20 54 68 69 73 20 63 6f 64  QLite.  This cod
01b0: 65 0a 2a 2a 20 69 73 20 6e 6f 74 20 69 6e 63 6c  e.** is not incl
01c0: 75 64 65 64 20 69 6e 20 74 68 65 20 53 51 4c 69  uded in the SQLi
01d0: 74 65 20 6c 69 62 72 61 72 79 2e 20 20 49 74 20  te library.  It 
01e0: 69 73 20 75 73 65 64 20 66 6f 72 20 61 75 74 6f  is used for auto
01f0: 6d 61 74 65 64 0a 2a 2a 20 74 65 73 74 69 6e 67  mated.** testing
0200: 20 6f 66 20 74 68 65 20 53 51 4c 69 74 65 20 6c   of the SQLite l
0210: 69 62 72 61 72 79 2e 20 53 70 65 63 69 66 69 63  ibrary. Specific
0220: 61 6c 6c 79 2c 20 74 68 65 20 63 6f 64 65 20 69  ally, the code i
0230: 6e 20 74 68 69 73 20 66 69 6c 65 0a 2a 2a 20 69  n this file.** i
0240: 73 20 75 73 65 64 20 66 6f 72 20 74 65 73 74 69  s used for testi
0250: 6e 67 20 74 68 65 20 53 51 4c 69 74 65 20 72 6f  ng the SQLite ro
0260: 75 74 69 6e 65 73 20 66 6f 72 20 63 6f 6e 76 65  utines for conve
0270: 72 74 69 6e 67 20 62 65 74 77 65 65 6e 0a 2a 2a  rting between.**
0280: 20 74 68 65 20 76 61 72 69 6f 75 73 20 73 75 70   the various sup
0290: 70 6f 72 74 65 64 20 75 6e 69 63 6f 64 65 20 65  ported unicode e
02a0: 6e 63 6f 64 69 6e 67 73 2e 0a 2a 2f 0a 23 69 6e  ncodings..*/.#in
02b0: 63 6c 75 64 65 20 22 73 71 6c 69 74 65 49 6e 74  clude "sqliteInt
02c0: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 76 64  .h".#include "vd
02d0: 62 65 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64  beInt.h".#includ
02e0: 65 20 22 74 63 6c 2e 68 22 0a 23 69 6e 63 6c 75  e "tcl.h".#inclu
02f0: 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69  de <stdlib.h>.#i
0300: 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e 68  nclude <string.h
0310: 3e 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 69 72  >../*.** The fir
0320: 73 74 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61  st argument is a
0330: 20 54 43 4c 20 55 54 46 2d 38 20 73 74 72 69 6e   TCL UTF-8 strin
0340: 67 2e 20 52 65 74 75 72 6e 20 74 68 65 20 62 79  g. Return the by
0350: 74 65 20 61 72 72 61 79 0a 2a 2a 20 6f 62 6a 65  te array.** obje
0360: 63 74 20 77 69 74 68 20 74 68 65 20 65 6e 63 6f  ct with the enco
0370: 64 65 64 20 72 65 70 72 65 73 65 6e 74 61 74 69  ded representati
0380: 6f 6e 20 6f 66 20 74 68 65 20 73 74 72 69 6e 67  on of the string
0390: 2c 20 69 6e 63 6c 75 64 69 6e 67 0a 2a 2a 20 74  , including.** t
03a0: 68 65 20 4e 55 4c 4c 20 74 65 72 6d 69 6e 61 74  he NULL terminat
03b0: 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  or..*/.static in
03c0: 74 20 62 69 6e 61 72 69 7a 65 28 0a 20 20 76 6f  t binarize(.  vo
03d0: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
03e0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
03f0: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
0400: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
0410: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
0420: 69 6e 74 20 6c 65 6e 3b 0a 20 20 69 6e 74 20 62  int len;.  int b
0430: 4e 6f 74 65 72 6d 20 3d 20 30 3b 0a 20 20 63 68  Noterm = 0;.  ch
0440: 61 72 20 2a 62 79 74 65 73 3b 0a 20 20 54 63 6c  ar *bytes;.  Tcl
0450: 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a 0a 20 20 69  _Obj *pRet;..  i
0460: 66 28 20 6f 62 6a 63 21 3d 32 20 26 26 20 6f 62  f( objc!=2 && ob
0470: 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c  jc!=3 ){.    Tcl
0480: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e  _WrongNumArgs(in
0490: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22  terp, 1, objv, "
04a0: 3f 2d 6e 6f 74 65 72 6d 3f 20 53 54 52 22 29 3b  ?-noterm? STR");
04b0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
04c0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28  ERROR;.  }.  if(
04d0: 20 6f 62 6a 63 3d 3d 33 20 29 7b 0a 20 20 20 20   objc==3 ){.    
04e0: 62 4e 6f 74 65 72 6d 20 3d 20 31 3b 0a 20 20 7d  bNoterm = 1;.  }
04f0: 0a 0a 20 20 62 79 74 65 73 20 3d 20 54 63 6c 5f  ..  bytes = Tcl_
0500: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a  GetStringFromObj
0510: 28 6f 62 6a 76 5b 6f 62 6a 63 2d 31 5d 2c 20 26  (objv[objc-1], &
0520: 6c 65 6e 29 3b 0a 20 20 70 52 65 74 20 3d 20 54  len);.  pRet = T
0530: 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f  cl_NewByteArrayO
0540: 62 6a 28 28 75 38 2a 29 62 79 74 65 73 2c 20 6c  bj((u8*)bytes, l
0550: 65 6e 2b 31 2d 62 4e 6f 74 65 72 6d 29 3b 0a 20  en+1-bNoterm);. 
0560: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
0570: 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b  t(interp, pRet);
0580: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
0590: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65  ;.}../*.** Usage
05a0: 3a 20 74 65 73 74 5f 76 61 6c 75 65 5f 6f 76 65  : test_value_ove
05b0: 72 68 65 61 64 20 3c 72 65 70 65 61 74 2d 63 6f  rhead <repeat-co
05c0: 75 6e 74 3e 20 3c 64 6f 2d 63 61 6c 6c 73 3e 2e  unt> <do-calls>.
05d0: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74  .**.** This rout
05e0: 69 6e 65 20 69 73 20 75 73 65 64 20 74 6f 20 74  ine is used to t
05f0: 65 73 74 20 74 68 65 20 6f 76 65 72 68 65 61 64  est the overhead
0600: 20 6f 66 20 63 61 6c 6c 73 20 74 6f 0a 2a 2a 20   of calls to.** 
0610: 73 71 6c 69 74 65 34 5f 76 61 6c 75 65 5f 74 65  sqlite4_value_te
0620: 78 74 28 29 2c 20 6f 6e 20 61 20 76 61 6c 75 65  xt(), on a value
0630: 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 20 61   that contains a
0640: 20 55 54 46 2d 38 20 73 74 72 69 6e 67 2e 20 54   UTF-8 string. T
0650: 68 65 20 69 64 65 61 0a 2a 2a 20 69 73 20 74 6f  he idea.** is to
0660: 20 66 69 67 75 72 65 20 6f 75 74 20 77 68 65 74   figure out whet
0670: 68 65 72 20 6f 72 20 6e 6f 74 20 69 74 20 69 73  her or not it is
0680: 20 61 20 70 72 6f 62 6c 65 6d 20 74 6f 20 75 73   a problem to us
0690: 65 20 73 71 6c 69 74 65 34 5f 76 61 6c 75 65 0a  e sqlite4_value.
06a0: 2a 2a 20 73 74 72 75 63 74 75 72 65 73 20 77 69  ** structures wi
06b0: 74 68 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71  th collation seq
06c0: 75 65 6e 63 65 20 66 75 6e 63 74 69 6f 6e 73 2e  uence functions.
06d0: 0a 2a 2a 0a 2a 2a 20 49 66 20 3c 64 6f 2d 63 61  .**.** If <do-ca
06e0: 6c 6c 73 3e 20 69 73 20 30 2c 20 74 68 65 6e 20  lls> is 0, then 
06f0: 74 68 65 20 63 61 6c 6c 73 20 74 6f 20 73 71 6c  the calls to sql
0700: 69 74 65 34 5f 76 61 6c 75 65 5f 74 65 78 74 28  ite4_value_text(
0710: 29 20 61 72 65 20 6e 6f 74 0a 2a 2a 20 61 63 74  ) are not.** act
0720: 75 61 6c 6c 79 20 6d 61 64 65 2e 0a 2a 2f 0a 73  ually made..*/.s
0730: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 76  tatic int test_v
0740: 61 6c 75 65 5f 6f 76 65 72 68 65 61 64 28 0a 20  alue_overhead(. 
0750: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61   void * clientDa
0760: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ta,.  Tcl_Interp
0770: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
0780: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
0790: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
07a0: 0a 20 20 69 6e 74 20 64 6f 5f 63 61 6c 6c 73 3b  .  int do_calls;
07b0: 0a 20 20 69 6e 74 20 72 65 70 65 61 74 5f 63 6f  .  int repeat_co
07c0: 75 6e 74 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20  unt;.  int i;.  
07d0: 4d 65 6d 20 76 61 6c 3b 0a 20 20 63 6f 6e 73 74  Mem val;.  const
07e0: 20 63 68 61 72 20 2a 7a 56 61 6c 3b 0a 0a 20 20   char *zVal;..  
07f0: 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20  if( objc!=3 ){. 
0800: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
0810: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f  ult(interp, "wro
0820: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
0830: 64 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20  d be \"",.      
0840: 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46    Tcl_GetStringF
0850: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20  romObj(objv[0], 
0860: 30 29 2c 20 22 20 3c 72 65 70 65 61 74 2d 63 6f  0), " <repeat-co
0870: 75 6e 74 3e 20 3c 64 6f 2d 63 61 6c 6c 73 3e 22  unt> <do-calls>"
0880: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  , 0);.    return
0890: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
08a0: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e  .  if( Tcl_GetIn
08b0: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  tFromObj(interp,
08c0: 20 6f 62 6a 76 5b 31 5d 2c 20 26 72 65 70 65 61   objv[1], &repea
08d0: 74 5f 63 6f 75 6e 74 29 20 29 20 72 65 74 75 72  t_count) ) retur
08e0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69  n TCL_ERROR;.  i
08f0: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f  f( Tcl_GetIntFro
0900: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
0910: 76 5b 32 5d 2c 20 26 64 6f 5f 63 61 6c 6c 73 29  v[2], &do_calls)
0920: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52   ) return TCL_ER
0930: 52 4f 52 3b 0a 0a 20 20 76 61 6c 2e 66 6c 61 67  ROR;..  val.flag
0940: 73 20 3d 20 4d 45 4d 5f 53 74 72 7c 4d 45 4d 5f  s = MEM_Str|MEM_
0950: 54 65 72 6d 7c 4d 45 4d 5f 53 74 61 74 69 63 3b  Term|MEM_Static;
0960: 0a 20 20 76 61 6c 2e 7a 20 3d 20 22 68 65 6c 6c  .  val.z = "hell
0970: 6f 20 77 6f 72 6c 64 22 3b 0a 20 20 76 61 6c 2e  o world";.  val.
0980: 74 79 70 65 20 3d 20 53 51 4c 49 54 45 34 5f 54  type = SQLITE4_T
0990: 45 58 54 3b 0a 20 20 76 61 6c 2e 65 6e 63 20 3d  EXT;.  val.enc =
09a0: 20 53 51 4c 49 54 45 34 5f 55 54 46 38 3b 0a 0a   SQLITE4_UTF8;..
09b0: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 72 65 70    for(i=0; i<rep
09c0: 65 61 74 5f 63 6f 75 6e 74 3b 20 69 2b 2b 29 7b  eat_count; i++){
09d0: 0a 20 20 20 20 69 66 28 20 64 6f 5f 63 61 6c 6c  .    if( do_call
09e0: 73 20 29 7b 0a 20 20 20 20 20 20 7a 56 61 6c 20  s ){.      zVal 
09f0: 3d 20 73 71 6c 69 74 65 34 5f 76 61 6c 75 65 5f  = sqlite4_value_
0a00: 74 65 78 74 28 26 76 61 6c 2c 20 30 29 3b 0a 20  text(&val, 0);. 
0a10: 20 20 20 20 20 55 4e 55 53 45 44 5f 50 41 52 41       UNUSED_PARA
0a20: 4d 45 54 45 52 28 7a 56 61 6c 29 3b 0a 20 20 20  METER(zVal);.   
0a30: 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e   }.  }..  return
0a40: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74   TCL_OK;.}..stat
0a50: 69 63 20 75 38 20 6e 61 6d 65 5f 74 6f 5f 65 6e  ic u8 name_to_en
0a60: 63 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  c(Tcl_Interp *in
0a70: 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 70  terp, Tcl_Obj *p
0a80: 4f 62 6a 29 7b 0a 20 20 73 74 72 75 63 74 20 45  Obj){.  struct E
0a90: 6e 63 4e 61 6d 65 20 7b 0a 20 20 20 20 63 68 61  ncName {.    cha
0aa0: 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 75 38  r *zName;.    u8
0ab0: 20 65 6e 63 3b 0a 20 20 7d 20 65 6e 63 6e 61 6d   enc;.  } encnam
0ac0: 65 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 22  es[] = {.    { "
0ad0: 55 54 46 38 22 2c 20 53 51 4c 49 54 45 34 5f 55  UTF8", SQLITE4_U
0ae0: 54 46 38 20 7d 2c 0a 20 20 20 20 7b 20 22 55 54  TF8 },.    { "UT
0af0: 46 31 36 4c 45 22 2c 20 53 51 4c 49 54 45 34 5f  F16LE", SQLITE4_
0b00: 55 54 46 31 36 4c 45 20 7d 2c 0a 20 20 20 20 7b  UTF16LE },.    {
0b10: 20 22 55 54 46 31 36 42 45 22 2c 20 53 51 4c 49   "UTF16BE", SQLI
0b20: 54 45 34 5f 55 54 46 31 36 42 45 20 7d 2c 0a 20  TE4_UTF16BE },. 
0b30: 20 20 20 7b 20 22 55 54 46 31 36 22 2c 20 53 51     { "UTF16", SQ
0b40: 4c 49 54 45 34 5f 55 54 46 31 36 20 7d 2c 0a 20  LITE4_UTF16 },. 
0b50: 20 20 20 7b 20 30 2c 20 30 20 7d 0a 20 20 7d 3b     { 0, 0 }.  };
0b60: 0a 20 20 73 74 72 75 63 74 20 45 6e 63 4e 61 6d  .  struct EncNam
0b70: 65 20 2a 70 45 6e 63 3b 0a 20 20 63 68 61 72 20  e *pEnc;.  char 
0b80: 2a 7a 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  *z = Tcl_GetStri
0b90: 6e 67 28 70 4f 62 6a 29 3b 0a 20 20 66 6f 72 28  ng(pObj);.  for(
0ba0: 70 45 6e 63 3d 26 65 6e 63 6e 61 6d 65 73 5b 30  pEnc=&encnames[0
0bb0: 5d 3b 20 70 45 6e 63 2d 3e 7a 4e 61 6d 65 3b 20  ]; pEnc->zName; 
0bc0: 70 45 6e 63 2b 2b 29 7b 0a 20 20 20 20 69 66 28  pEnc++){.    if(
0bd0: 20 30 3d 3d 73 71 6c 69 74 65 34 5f 73 74 72 69   0==sqlite4_stri
0be0: 63 6d 70 28 7a 2c 20 70 45 6e 63 2d 3e 7a 4e 61  cmp(z, pEnc->zNa
0bf0: 6d 65 29 20 29 7b 0a 20 20 20 20 20 20 62 72 65  me) ){.      bre
0c00: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  ak;.    }.  }.  
0c10: 69 66 28 20 21 70 45 6e 63 2d 3e 65 6e 63 20 29  if( !pEnc->enc )
0c20: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  {.    Tcl_Append
0c30: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
0c40: 4e 6f 20 73 75 63 68 20 65 6e 63 6f 64 69 6e 67  No such encoding
0c50: 3a 20 22 2c 20 7a 2c 20 30 29 3b 0a 20 20 7d 0a  : ", z, 0);.  }.
0c60: 20 20 69 66 28 20 70 45 6e 63 2d 3e 65 6e 63 3d    if( pEnc->enc=
0c70: 3d 53 51 4c 49 54 45 34 5f 55 54 46 31 36 20 29  =SQLITE4_UTF16 )
0c80: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c  {.    return SQL
0c90: 49 54 45 34 5f 55 54 46 31 36 4e 41 54 49 56 45  ITE4_UTF16NATIVE
0ca0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 70  ;.  }.  return p
0cb0: 45 6e 63 2d 3e 65 6e 63 3b 0a 7d 0a 0a 73 74 61  Enc->enc;.}..sta
0cc0: 74 69 63 20 76 6f 69 64 20 66 72 65 65 53 74 72  tic void freeStr
0cd0: 28 76 6f 69 64 20 2a 70 45 6e 76 2c 20 76 6f 69  (void *pEnv, voi
0ce0: 64 20 2a 70 53 74 72 29 7b 0a 20 20 73 71 6c 69  d *pStr){.  sqli
0cf0: 74 65 34 5f 66 72 65 65 28 28 73 71 6c 69 74 65  te4_free((sqlite
0d00: 34 5f 65 6e 76 2a 29 70 45 6e 76 2c 20 70 53 74  4_env*)pEnv, pSt
0d10: 72 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61  r);.}../*.** Usa
0d20: 67 65 3a 20 20 20 73 71 6c 69 74 65 34 5f 74 72  ge:   sqlite4_tr
0d30: 61 6e 73 6c 61 74 65 20 3c 73 74 72 69 6e 67 2f  anslate <string/
0d40: 62 6c 6f 62 3e 20 3c 74 72 61 6e 73 6c 61 74 69  blob> <translati
0d50: 6f 6e 3e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  on>.*/.static in
0d60: 74 20 74 65 73 74 5f 73 71 6c 69 74 65 34 5f 74  t test_sqlite4_t
0d70: 72 61 6e 73 6c 61 74 65 28 0a 20 20 76 6f 69 64  ranslate(.  void
0d80: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20   * clientData,. 
0d90: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
0da0: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c  erp,.  int objc,
0db0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53  .  Tcl_Obj *CONS
0dc0: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 74  T objv[].){.  st
0dd0: 72 75 63 74 20 54 72 61 6e 73 6c 61 74 69 6f 6e  ruct Translation
0de0: 20 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61   {.    const cha
0df0: 72 20 2a 7a 54 72 61 6e 73 3b 0a 20 20 20 20 69  r *zTrans;.    i
0e00: 6e 74 20 65 54 72 61 6e 73 3b 0a 20 20 20 20 69  nt eTrans;.    i
0e10: 6e 74 20 69 73 55 74 66 38 3b 0a 20 20 7d 20 61  nt isUtf8;.  } a
0e20: 54 72 61 6e 73 5b 5d 20 3d 20 7b 0a 20 20 20 20  Trans[] = {.    
0e30: 7b 20 22 75 74 66 38 5f 75 74 66 31 36 22 2c 20  { "utf8_utf16", 
0e40: 20 20 53 51 4c 49 54 45 34 5f 54 52 41 4e 53 4c    SQLITE4_TRANSL
0e50: 41 54 45 5f 55 54 46 38 5f 55 54 46 31 36 2c 20  ATE_UTF8_UTF16, 
0e60: 20 20 31 20 7d 2c 0a 20 20 20 20 7b 20 22 75 74    1 },.    { "ut
0e70: 66 38 5f 75 74 66 31 36 6c 65 22 2c 20 53 51 4c  f8_utf16le", SQL
0e80: 49 54 45 34 5f 54 52 41 4e 53 4c 41 54 45 5f 55  ITE4_TRANSLATE_U
0e90: 54 46 38 5f 55 54 46 31 36 4c 45 2c 20 31 20 7d  TF8_UTF16LE, 1 }
0ea0: 2c 0a 20 20 20 20 7b 20 22 75 74 66 38 5f 75 74  ,.    { "utf8_ut
0eb0: 66 31 36 62 65 22 2c 20 53 51 4c 49 54 45 34 5f  f16be", SQLITE4_
0ec0: 54 52 41 4e 53 4c 41 54 45 5f 55 54 46 38 5f 55  TRANSLATE_UTF8_U
0ed0: 54 46 31 36 42 45 2c 20 31 20 7d 2c 0a 20 20 20  TF16BE, 1 },.   
0ee0: 20 7b 20 22 75 74 66 31 36 5f 75 74 66 38 22 2c   { "utf16_utf8",
0ef0: 20 20 20 53 51 4c 49 54 45 34 5f 54 52 41 4e 53     SQLITE4_TRANS
0f00: 4c 41 54 45 5f 55 54 46 31 36 5f 55 54 46 38 2c  LATE_UTF16_UTF8,
0f10: 20 20 20 30 20 7d 2c 0a 20 20 20 20 7b 20 22 75     0 },.    { "u
0f20: 74 66 31 36 6c 65 5f 75 74 66 38 22 2c 20 53 51  tf16le_utf8", SQ
0f30: 4c 49 54 45 34 5f 54 52 41 4e 53 4c 41 54 45 5f  LITE4_TRANSLATE_
0f40: 55 54 46 31 36 4c 45 5f 55 54 46 38 2c 20 30 20  UTF16LE_UTF8, 0 
0f50: 7d 2c 0a 20 20 20 20 7b 20 22 75 74 66 31 36 62  },.    { "utf16b
0f60: 65 5f 75 74 66 38 22 2c 20 53 51 4c 49 54 45 34  e_utf8", SQLITE4
0f70: 5f 54 52 41 4e 53 4c 41 54 45 5f 55 54 46 31 36  _TRANSLATE_UTF16
0f80: 42 45 5f 55 54 46 38 2c 20 30 20 7d 2c 0a 20 20  BE_UTF8, 0 },.  
0f90: 20 20 7b 20 30 2c 20 30 2c 20 30 20 7d 0a 20 20    { 0, 0, 0 }.  
0fa0: 7d 3b 0a 0a 20 20 69 6e 74 20 72 63 3b 20 20 20  };..  int rc;   
0fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0fc0: 20 20 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20        /* Return 
0fd0: 63 6f 64 65 20 2a 2f 0a 20 20 69 6e 74 20 69 4f  code */.  int iO
0fe0: 70 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  pt;             
0ff0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 64            /* Ind
1000: 65 78 20 69 6e 74 6f 20 61 54 72 61 6e 73 5b 5d  ex into aTrans[]
1010: 20 61 72 72 61 79 20 2a 2f 0a 0a 20 20 69 66 28   array */..  if(
1020: 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20   objc!=3 ){.    
1030: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
1040: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76  (interp, 1, objv
1050: 2c 20 22 56 41 4c 55 45 20 54 52 41 4e 53 4c 41  , "VALUE TRANSLA
1060: 54 49 4f 4e 22 29 3b 0a 20 20 20 20 72 63 20 3d  TION");.    rc =
1070: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 65   TCL_ERROR;.  }e
1080: 6c 73 65 7b 0a 20 20 20 20 72 63 20 3d 20 54 63  lse{.    rc = Tc
1090: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62  l_GetIndexFromOb
10a0: 6a 53 74 72 75 63 74 28 0a 20 20 20 20 20 20 20  jStruct(.       
10b0: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d   interp, objv[2]
10c0: 2c 20 61 54 72 61 6e 73 2c 20 73 69 7a 65 6f 66  , aTrans, sizeof
10d0: 28 61 54 72 61 6e 73 5b 30 5d 29 2c 20 22 74 72  (aTrans[0]), "tr
10e0: 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 30 2c 20 26  anslation", 0, &
10f0: 69 4f 70 74 0a 20 20 20 20 29 3b 0a 20 20 7d 0a  iOpt.    );.  }.
1100: 0a 20 20 69 66 28 20 72 63 3d 3d 54 43 4c 5f 4f  .  if( rc==TCL_O
1110: 4b 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 34  K ){.    sqlite4
1120: 5f 62 75 66 66 65 72 20 62 75 66 3b 0a 20 20 20  _buffer buf;.   
1130: 20 76 6f 69 64 20 2a 70 3b 0a 20 20 20 20 69 6e   void *p;.    in
1140: 74 20 6e 3b 0a 20 20 20 20 69 6e 74 20 69 73 55  t n;.    int isU
1150: 74 66 38 20 3d 20 61 54 72 61 6e 73 5b 69 4f 70  tf8 = aTrans[iOp
1160: 74 5d 2e 69 73 55 74 66 38 3b 0a 20 20 20 20 69  t].isUtf8;.    i
1170: 6e 74 20 65 54 72 61 6e 73 20 3d 20 61 54 72 61  nt eTrans = aTra
1180: 6e 73 5b 69 4f 70 74 5d 2e 65 54 72 61 6e 73 3b  ns[iOpt].eTrans;
1190: 0a 0a 20 20 20 20 69 66 28 20 69 73 55 74 66 38  ..    if( isUtf8
11a0: 20 29 7b 0a 20 20 20 20 20 20 70 20 3d 20 54 63   ){.      p = Tc
11b0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76  l_GetString(objv
11c0: 5b 31 5d 29 3b 0a 20 20 20 20 20 20 6e 20 3d 20  [1]);.      n = 
11d0: 73 74 72 6c 65 6e 28 28 63 68 61 72 20 2a 29 70  strlen((char *)p
11e0: 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20  );.    }else{.  
11f0: 20 20 20 20 70 20 3d 20 54 63 6c 5f 47 65 74 42      p = Tcl_GetB
1200: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28  yteArrayFromObj(
1210: 6f 62 6a 76 5b 31 5d 2c 20 26 6e 29 3b 0a 20 20  objv[1], &n);.  
1220: 20 20 7d 0a 0a 20 20 20 20 73 71 6c 69 74 65 34    }..    sqlite4
1230: 5f 62 75 66 66 65 72 5f 69 6e 69 74 28 26 62 75  _buffer_init(&bu
1240: 66 2c 20 30 29 3b 0a 20 20 20 20 73 71 6c 69 74  f, 0);.    sqlit
1250: 65 34 5f 74 72 61 6e 73 6c 61 74 65 28 26 62 75  e4_translate(&bu
1260: 66 2c 20 70 2c 20 6e 2c 20 65 54 72 61 6e 73 29  f, p, n, eTrans)
1270: 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a  ;.    Tcl_SetObj
1280: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54  Result(interp, T
1290: 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f  cl_NewByteArrayO
12a0: 62 6a 28 62 75 66 2e 70 2c 20 62 75 66 2e 6e 29  bj(buf.p, buf.n)
12b0: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 34 5f 62  );.    sqlite4_b
12c0: 75 66 66 65 72 5f 63 6c 65 61 72 28 26 62 75 66  uffer_clear(&buf
12d0: 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e  );.  }..  return
12e0: 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73   rc;.}../*.** Us
12f0: 61 67 65 3a 20 20 20 74 65 73 74 5f 74 72 61 6e  age:   test_tran
1300: 73 6c 61 74 65 20 3c 73 74 72 69 6e 67 2f 62 6c  slate <string/bl
1310: 6f 62 3e 20 3c 66 72 6f 6d 20 65 6e 63 3e 20 3c  ob> <from enc> <
1320: 74 6f 20 65 6e 63 3e 20 3f 3c 74 72 61 6e 73 69  to enc> ?<transi
1330: 65 6e 74 3e 3f 0a 2a 2a 0a 2a 2f 0a 73 74 61 74  ent>?.**.*/.stat
1340: 69 63 20 69 6e 74 20 74 65 73 74 5f 74 72 61 6e  ic int test_tran
1350: 73 6c 61 74 65 28 0a 20 20 76 6f 69 64 20 2a 20  slate(.  void * 
1360: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63  clientData,.  Tc
1370: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
1380: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20  ,.  int objc,.  
1390: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f  Tcl_Obj *CONST o
13a0: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 75 38 20 65 6e  bjv[].){.  u8 en
13b0: 63 5f 66 72 6f 6d 3b 0a 20 20 75 38 20 65 6e 63  c_from;.  u8 enc
13c0: 5f 74 6f 3b 0a 20 20 73 71 6c 69 74 65 34 5f 76  _to;.  sqlite4_v
13d0: 61 6c 75 65 20 2a 70 56 61 6c 3b 0a 0a 20 20 63  alue *pVal;..  c
13e0: 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 6c 65  har *z;.  int le
13f0: 6e 3b 0a 20 20 76 6f 69 64 20 28 2a 78 44 65 6c  n;.  void (*xDel
1400: 29 28 76 6f 69 64 2a 2c 76 6f 69 64 2a 29 20 3d  )(void*,void*) =
1410: 20 53 51 4c 49 54 45 34 5f 53 54 41 54 49 43 3b   SQLITE4_STATIC;
1420: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20  ..  if( objc!=4 
1430: 26 26 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20  && objc!=5 ){.  
1440: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
1450: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e  lt(interp, "wron
1460: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64  g # args: should
1470: 20 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20   be \"",.       
1480: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72   Tcl_GetStringFr
1490: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30  omObj(objv[0], 0
14a0: 29 2c 20 0a 20 20 20 20 20 20 20 20 22 20 3c 73  ), .        " <s
14b0: 74 72 69 6e 67 2f 62 6c 6f 62 3e 20 3c 66 72 6f  tring/blob> <fro
14c0: 6d 20 65 6e 63 3e 20 3c 74 6f 20 65 6e 63 3e 22  m enc> <to enc>"
14d0: 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 72  , 0.    );.    r
14e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
14f0: 0a 20 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3d  .  }.  if( objc=
1500: 3d 35 20 29 7b 0a 20 20 20 20 78 44 65 6c 20 3d  =5 ){.    xDel =
1510: 20 66 72 65 65 53 74 72 3b 0a 20 20 7d 0a 0a 20   freeStr;.  }.. 
1520: 20 65 6e 63 5f 66 72 6f 6d 20 3d 20 6e 61 6d 65   enc_from = name
1530: 5f 74 6f 5f 65 6e 63 28 69 6e 74 65 72 70 2c 20  _to_enc(interp, 
1540: 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20  objv[2]);.  if( 
1550: 21 65 6e 63 5f 66 72 6f 6d 20 29 20 72 65 74 75  !enc_from ) retu
1560: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
1570: 65 6e 63 5f 74 6f 20 3d 20 6e 61 6d 65 5f 74 6f  enc_to = name_to
1580: 5f 65 6e 63 28 69 6e 74 65 72 70 2c 20 6f 62 6a  _enc(interp, obj
1590: 76 5b 33 5d 29 3b 0a 20 20 69 66 28 20 21 65 6e  v[3]);.  if( !en
15a0: 63 5f 74 6f 20 29 20 72 65 74 75 72 6e 20 54 43  c_to ) return TC
15b0: 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 70 56 61 6c  L_ERROR;..  pVal
15c0: 20 3d 20 73 71 6c 69 74 65 34 56 61 6c 75 65 4e   = sqlite4ValueN
15d0: 65 77 28 30 29 3b 0a 0a 20 20 69 66 28 20 65 6e  ew(0);..  if( en
15e0: 63 5f 66 72 6f 6d 3d 3d 53 51 4c 49 54 45 34 5f  c_from==SQLITE4_
15f0: 55 54 46 38 20 29 7b 0a 20 20 20 20 7a 20 3d 20  UTF8 ){.    z = 
1600: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
1610: 6a 76 5b 31 5d 29 3b 0a 20 20 20 20 69 66 28 20  jv[1]);.    if( 
1620: 6f 62 6a 63 3d 3d 35 20 29 7b 0a 20 20 20 20 20  objc==5 ){.     
1630: 20 7a 20 3d 20 73 71 6c 69 74 65 34 5f 6d 70 72   z = sqlite4_mpr
1640: 69 6e 74 66 28 30 2c 20 22 25 73 22 2c 20 7a 29  intf(0, "%s", z)
1650: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c 69  ;.    }.    sqli
1660: 74 65 34 56 61 6c 75 65 53 65 74 53 74 72 28 70  te4ValueSetStr(p
1670: 56 61 6c 2c 20 2d 31 2c 20 7a 2c 20 65 6e 63 5f  Val, -1, z, enc_
1680: 66 72 6f 6d 2c 20 78 44 65 6c 2c 20 30 29 3b 0a  from, xDel, 0);.
1690: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 20 3d    }else{.    z =
16a0: 20 28 63 68 61 72 2a 29 54 63 6c 5f 47 65 74 42   (char*)Tcl_GetB
16b0: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28  yteArrayFromObj(
16c0: 6f 62 6a 76 5b 31 5d 2c 20 26 6c 65 6e 29 3b 0a  objv[1], &len);.
16d0: 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 35 20      if( objc==5 
16e0: 29 7b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a  ){.      char *z
16f0: 54 6d 70 20 3d 20 7a 3b 0a 20 20 20 20 20 20 7a  Tmp = z;.      z
1700: 20 3d 20 73 71 6c 69 74 65 34 5f 6d 61 6c 6c 6f   = sqlite4_mallo
1710: 63 28 30 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 20  c(0, len);.     
1720: 20 6d 65 6d 63 70 79 28 7a 2c 20 7a 54 6d 70 2c   memcpy(z, zTmp,
1730: 20 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20   len);.    }.   
1740: 20 73 71 6c 69 74 65 34 56 61 6c 75 65 53 65 74   sqlite4ValueSet
1750: 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c 20 7a 2c  Str(pVal, -1, z,
1760: 20 65 6e 63 5f 66 72 6f 6d 2c 20 78 44 65 6c 2c   enc_from, xDel,
1770: 20 30 29 3b 0a 20 20 7d 0a 0a 20 20 7a 20 3d 20   0);.  }..  z = 
1780: 28 63 68 61 72 20 2a 29 73 71 6c 69 74 65 34 56  (char *)sqlite4V
1790: 61 6c 75 65 54 65 78 74 28 70 56 61 6c 2c 20 65  alueText(pVal, e
17a0: 6e 63 5f 74 6f 29 3b 0a 20 20 6c 65 6e 20 3d 20  nc_to);.  len = 
17b0: 73 71 6c 69 74 65 34 56 61 6c 75 65 42 79 74 65  sqlite4ValueByte
17c0: 73 28 70 56 61 6c 2c 20 65 6e 63 5f 74 6f 29 20  s(pVal, enc_to) 
17d0: 2b 20 28 65 6e 63 5f 74 6f 3d 3d 53 51 4c 49 54  + (enc_to==SQLIT
17e0: 45 34 5f 55 54 46 38 3f 31 3a 32 29 3b 0a 20 20  E4_UTF8?1:2);.  
17f0: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
1800: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77  (interp, Tcl_New
1810: 42 79 74 65 41 72 72 61 79 4f 62 6a 28 28 75 38  ByteArrayObj((u8
1820: 2a 29 7a 2c 20 6c 65 6e 29 29 3b 0a 0a 20 20 73  *)z, len));..  s
1830: 71 6c 69 74 65 34 56 61 6c 75 65 46 72 65 65 28  qlite4ValueFree(
1840: 70 56 61 6c 29 3b 0a 0a 20 20 72 65 74 75 72 6e  pVal);..  return
1850: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
1860: 2a 20 55 73 61 67 65 3a 20 74 72 61 6e 73 6c 61  * Usage: transla
1870: 74 65 5f 73 65 6c 66 74 65 73 74 0a 2a 2a 0a 2a  te_selftest.**.*
1880: 2a 20 43 61 6c 6c 20 73 71 6c 69 74 65 34 55 74  * Call sqlite4Ut
1890: 66 53 65 6c 66 54 65 73 74 28 29 20 74 6f 20 72  fSelfTest() to r
18a0: 75 6e 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20  un the internal 
18b0: 74 65 73 74 73 20 66 6f 72 20 75 6e 69 63 6f 64  tests for unicod
18c0: 65 0a 2a 2a 20 74 72 61 6e 73 6c 61 74 69 6f 6e  e.** translation
18d0: 2e 20 49 66 20 74 68 65 72 65 20 69 73 20 61 20  . If there is a 
18e0: 70 72 6f 62 6c 65 6d 20 61 6e 20 61 73 73 65 72  problem an asser
18f0: 74 28 29 20 77 69 6c 6c 20 66 61 69 6c 2e 0a 2a  t() will fail..*
1900: 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 34 55  */.void sqlite4U
1910: 74 66 53 65 6c 66 54 65 73 74 28 76 6f 69 64 29  tfSelfTest(void)
1920: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73  ;.static int tes
1930: 74 5f 74 72 61 6e 73 6c 61 74 65 5f 73 65 6c 66  t_translate_self
1940: 74 65 73 74 28 0a 20 20 76 6f 69 64 20 2a 20 63  test(.  void * c
1950: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c  lientData,.  Tcl
1960: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
1970: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54  .  int objc,.  T
1980: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
1990: 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20  jv[].){.#ifndef 
19a0: 53 51 4c 49 54 45 34 5f 4f 4d 49 54 5f 55 54 46  SQLITE4_OMIT_UTF
19b0: 31 36 0a 20 20 73 71 6c 69 74 65 34 55 74 66 53  16.  sqlite4UtfS
19c0: 65 6c 66 54 65 73 74 28 29 3b 0a 23 65 6e 64 69  elfTest();.#endi
19d0: 66 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54  f.  return SQLIT
19e0: 45 34 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a  E4_OK;.}.../*.**
19f0: 20 52 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e   Register comman
1a00: 64 73 20 77 69 74 68 20 74 68 65 20 54 43 4c 20  ds with the TCL 
1a10: 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a  interpreter..*/.
1a20: 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 35 5f  int Sqlitetest5_
1a30: 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20  Init(Tcl_Interp 
1a40: 2a 69 6e 74 65 72 70 29 7b 0a 20 20 73 74 61 74  *interp){.  stat
1a50: 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20 20  ic struct {.    
1a60: 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20  char *zName;.   
1a70: 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20   Tcl_ObjCmdProc 
1a80: 2a 78 50 72 6f 63 3b 0a 20 20 7d 20 61 43 6d 64  *xProc;.  } aCmd
1a90: 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 22 62 69  [] = {.    { "bi
1aa0: 6e 61 72 69 7a 65 22 2c 20 20 20 20 20 20 20 20  narize",        
1ab0: 20 20 20 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a          (Tcl_Obj
1ac0: 43 6d 64 50 72 6f 63 2a 29 62 69 6e 61 72 69 7a  CmdProc*)binariz
1ad0: 65 20 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73 74  e },.    { "test
1ae0: 5f 76 61 6c 75 65 5f 6f 76 65 72 68 65 61 64 22  _value_overhead"
1af0: 2c 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a 43 6d  ,     (Tcl_ObjCm
1b00: 64 50 72 6f 63 2a 29 74 65 73 74 5f 76 61 6c 75  dProc*)test_valu
1b10: 65 5f 6f 76 65 72 68 65 61 64 20 7d 2c 0a 20 20  e_overhead },.  
1b20: 20 20 7b 20 22 74 65 73 74 5f 74 72 61 6e 73 6c    { "test_transl
1b30: 61 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 28  ate",          (
1b40: 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29  Tcl_ObjCmdProc*)
1b50: 74 65 73 74 5f 74 72 61 6e 73 6c 61 74 65 20 20  test_translate  
1b60: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c     },.    { "sql
1b70: 69 74 65 34 5f 74 72 61 6e 73 6c 61 74 65 22 2c  ite4_translate",
1b80: 20 20 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a 43         (Tcl_ObjC
1b90: 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 73 71 6c  mdProc*)test_sql
1ba0: 69 74 65 34 5f 74 72 61 6e 73 6c 61 74 65 20 20  ite4_translate  
1bb0: 7d 2c 0a 20 20 20 20 7b 20 22 74 72 61 6e 73 6c  },.    { "transl
1bc0: 61 74 65 5f 73 65 6c 66 74 65 73 74 22 2c 20 20  ate_selftest",  
1bd0: 20 20 20 20 28 54 63 6c 5f 4f 62 6a 43 6d 64 50      (Tcl_ObjCmdP
1be0: 72 6f 63 2a 29 74 65 73 74 5f 74 72 61 6e 73 6c  roc*)test_transl
1bf0: 61 74 65 5f 73 65 6c 66 74 65 73 74 7d 2c 0a 20  ate_selftest},. 
1c00: 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66   };.  int i;.  f
1c10: 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66  or(i=0; i<sizeof
1c20: 28 61 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61 43  (aCmd)/sizeof(aC
1c30: 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20  md[0]); i++){.  
1c40: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
1c50: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61  ommand(interp, a
1c60: 43 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 43  Cmd[i].zName, aC
1c70: 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 30 2c 20  md[i].xProc, 0, 
1c80: 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  0);.  }.  return
1c90: 20 53 51 4c 49 54 45 34 5f 4f 4b 3b 0a 7d 0a      SQLITE4_OK;.}.