/ Hex Artifact Content
Login

Artifact 64f08b2a50ef371a1bd68ff206829e7b1b9997f5:


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 2a 0a 2a 2a 20  ncodings..**.** 
02b0: 24 49 64 3a 20 74 65 73 74 35 2e 63 2c 76 20 31  $Id: test5.c,v 1
02c0: 2e 31 34 20 32 30 30 34 2f 31 31 2f 31 34 20 32  .14 2004/11/14 2
02d0: 31 3a 35 36 3a 33 30 20 64 72 68 20 45 78 70 20  1:56:30 drh Exp 
02e0: 24 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 73  $.*/.#include "s
02f0: 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23 69 6e 63  qliteInt.h".#inc
0300: 6c 75 64 65 20 22 76 64 62 65 49 6e 74 2e 68 22  lude "vdbeInt.h"
0310: 0a 23 69 6e 63 6c 75 64 65 20 22 6f 73 2e 68 22  .#include "os.h"
0320: 20 20 20 20 20 20 20 20 20 2f 2a 20 74 6f 20 67           /* to g
0330: 65 74 20 53 51 4c 49 54 45 5f 42 49 47 45 4e 44  et SQLITE_BIGEND
0340: 49 41 4e 20 2a 2f 0a 23 69 6e 63 6c 75 64 65 20  IAN */.#include 
0350: 22 74 63 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65  "tcl.h".#include
0360: 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63   <stdlib.h>.#inc
0370: 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a  lude <string.h>.
0380: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 69 72 73 74  ./*.** The first
0390: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 54   argument is a T
03a0: 43 4c 20 55 54 46 2d 38 20 73 74 72 69 6e 67 2e  CL UTF-8 string.
03b0: 20 52 65 74 75 72 6e 20 74 68 65 20 62 79 74 65   Return the byte
03c0: 20 61 72 72 61 79 0a 2a 2a 20 6f 62 6a 65 63 74   array.** object
03d0: 20 77 69 74 68 20 74 68 65 20 65 6e 63 6f 64 65   with the encode
03e0: 64 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e  d representation
03f0: 20 6f 66 20 74 68 65 20 73 74 72 69 6e 67 2c 20   of the string, 
0400: 69 6e 63 6c 75 64 69 6e 67 0a 2a 2a 20 74 68 65  including.** the
0410: 20 4e 55 4c 4c 20 74 65 72 6d 69 6e 61 74 6f 72   NULL terminator
0420: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
0430: 62 69 6e 61 72 69 7a 65 28 0a 20 20 76 6f 69 64  binarize(.  void
0440: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20   * clientData,. 
0450: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
0460: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c  erp,.  int objc,
0470: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53  .  Tcl_Obj *CONS
0480: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e  T objv[].){.  in
0490: 74 20 6c 65 6e 3b 0a 20 20 63 68 61 72 20 2a 62  t len;.  char *b
04a0: 79 74 65 73 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20  ytes;.  Tcl_Obj 
04b0: 2a 70 52 65 74 3b 0a 20 20 61 73 73 65 72 74 28  *pRet;.  assert(
04c0: 6f 62 6a 63 3d 3d 32 29 3b 0a 0a 20 20 62 79 74  objc==2);..  byt
04d0: 65 73 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  es = Tcl_GetStri
04e0: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31  ngFromObj(objv[1
04f0: 5d 2c 20 26 6c 65 6e 29 3b 0a 20 20 70 52 65 74  ], &len);.  pRet
0500: 20 3d 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72   = Tcl_NewByteAr
0510: 72 61 79 4f 62 6a 28 62 79 74 65 73 2c 20 6c 65  rayObj(bytes, le
0520: 6e 2b 31 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f  n+1);.  Tcl_SetO
0530: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
0540: 20 70 52 65 74 29 3b 0a 20 20 72 65 74 75 72 6e   pRet);.  return
0550: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
0560: 2a 20 55 73 61 67 65 3a 20 74 65 73 74 5f 76 61  * Usage: test_va
0570: 6c 75 65 5f 6f 76 65 72 68 65 61 64 20 3c 72 65  lue_overhead <re
0580: 70 65 61 74 2d 63 6f 75 6e 74 3e 20 3c 64 6f 2d  peat-count> <do-
0590: 63 61 6c 6c 73 3e 2e 0a 2a 2a 0a 2a 2a 20 54 68  calls>..**.** Th
05a0: 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 75 73  is routine is us
05b0: 65 64 20 74 6f 20 74 65 73 74 20 74 68 65 20 6f  ed to test the o
05c0: 76 65 72 68 65 61 64 20 6f 66 20 63 61 6c 6c 73  verhead of calls
05d0: 20 74 6f 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 76   to.** sqlite3_v
05e0: 61 6c 75 65 5f 74 65 78 74 28 29 2c 20 6f 6e 20  alue_text(), on 
05f0: 61 20 76 61 6c 75 65 20 74 68 61 74 20 63 6f 6e  a value that con
0600: 74 61 69 6e 73 20 61 20 55 54 46 2d 38 20 73 74  tains a UTF-8 st
0610: 72 69 6e 67 2e 20 54 68 65 20 69 64 65 61 0a 2a  ring. The idea.*
0620: 2a 20 69 73 20 74 6f 20 66 69 67 75 72 65 20 6f  * is to figure o
0630: 75 74 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f  ut whether or no
0640: 74 20 69 74 20 69 73 20 61 20 70 72 6f 62 6c 65  t it is a proble
0650: 6d 20 74 6f 20 75 73 65 20 73 71 6c 69 74 65 33  m to use sqlite3
0660: 5f 76 61 6c 75 65 0a 2a 2a 20 73 74 72 75 63 74  _value.** struct
0670: 75 72 65 73 20 77 69 74 68 20 63 6f 6c 6c 61 74  ures with collat
0680: 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 66 75 6e  ion sequence fun
0690: 63 74 69 6f 6e 73 2e 0a 2a 2a 0a 2a 2a 20 49 66  ctions..**.** If
06a0: 20 3c 64 6f 2d 63 61 6c 6c 73 3e 20 69 73 20 30   <do-calls> is 0
06b0: 2c 20 74 68 65 6e 20 74 68 65 20 63 61 6c 6c 73  , then the calls
06c0: 20 74 6f 20 73 71 6c 69 74 65 33 5f 76 61 6c 75   to sqlite3_valu
06d0: 65 5f 74 65 78 74 28 29 20 61 72 65 20 6e 6f 74  e_text() are not
06e0: 0a 2a 2a 20 61 63 74 75 61 6c 6c 79 20 6d 61 64  .** actually mad
06f0: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
0700: 20 74 65 73 74 5f 76 61 6c 75 65 5f 6f 76 65 72   test_value_over
0710: 68 65 61 64 28 0a 20 20 76 6f 69 64 20 2a 20 63  head(.  void * c
0720: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c  lientData,.  Tcl
0730: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
0740: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54  .  int objc,.  T
0750: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
0760: 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 64 6f  jv[].){.  int do
0770: 5f 63 61 6c 6c 73 3b 0a 20 20 69 6e 74 20 72 65  _calls;.  int re
0780: 70 65 61 74 5f 63 6f 75 6e 74 3b 0a 20 20 69 6e  peat_count;.  in
0790: 74 20 69 3b 0a 20 20 4d 65 6d 20 76 61 6c 3b 0a  t i;.  Mem val;.
07a0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56    const char *zV
07b0: 61 6c 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21  al;..  if( objc!
07c0: 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  =3 ){.    Tcl_Ap
07d0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
07e0: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
07f0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
0800: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74  .        Tcl_Get
0810: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62  StringFromObj(ob
0820: 6a 76 5b 30 5d 2c 20 30 29 2c 20 22 20 3c 72 65  jv[0], 0), " <re
0830: 70 65 61 74 2d 63 6f 75 6e 74 3e 20 3c 64 6f 2d  peat-count> <do-
0840: 63 61 6c 6c 73 3e 22 2c 20 30 29 3b 0a 20 20 20  calls>", 0);.   
0850: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
0860: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 54 63  R;.  }..  if( Tc
0870: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28  l_GetIntFromObj(
0880: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c  interp, objv[1],
0890: 20 26 72 65 70 65 61 74 5f 63 6f 75 6e 74 29 20   &repeat_count) 
08a0: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ) return TCL_ERR
08b0: 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65  OR;.  if( Tcl_Ge
08c0: 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65  tIntFromObj(inte
08d0: 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 64 6f  rp, objv[2], &do
08e0: 5f 63 61 6c 6c 73 29 20 29 20 72 65 74 75 72 6e  _calls) ) return
08f0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 76   TCL_ERROR;..  v
0900: 61 6c 2e 66 6c 61 67 73 20 3d 20 4d 45 4d 5f 53  al.flags = MEM_S
0910: 74 72 7c 4d 45 4d 5f 54 65 72 6d 7c 4d 45 4d 5f  tr|MEM_Term|MEM_
0920: 53 74 61 74 69 63 3b 0a 20 20 76 61 6c 2e 7a 20  Static;.  val.z 
0930: 3d 20 22 68 65 6c 6c 6f 20 77 6f 72 6c 64 22 3b  = "hello world";
0940: 0a 20 20 76 61 6c 2e 74 79 70 65 20 3d 20 53 51  .  val.type = SQ
0950: 4c 49 54 45 5f 54 45 58 54 3b 0a 20 20 76 61 6c  LITE_TEXT;.  val
0960: 2e 65 6e 63 20 3d 20 53 51 4c 49 54 45 5f 55 54  .enc = SQLITE_UT
0970: 46 38 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 3b 20  F8;..  for(i=0; 
0980: 69 3c 72 65 70 65 61 74 5f 63 6f 75 6e 74 3b 20  i<repeat_count; 
0990: 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 64 6f  i++){.    if( do
09a0: 5f 63 61 6c 6c 73 20 29 7b 0a 20 20 20 20 20 20  _calls ){.      
09b0: 7a 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 76  zVal = sqlite3_v
09c0: 61 6c 75 65 5f 74 65 78 74 28 26 76 61 6c 29 3b  alue_text(&val);
09d0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65  .    }.  }..  re
09e0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a  turn TCL_OK;.}..
09f0: 73 74 61 74 69 63 20 75 38 20 6e 61 6d 65 5f 74  static u8 name_t
0a00: 6f 5f 65 6e 63 28 54 63 6c 5f 49 6e 74 65 72 70  o_enc(Tcl_Interp
0a10: 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62   *interp, Tcl_Ob
0a20: 6a 20 2a 70 4f 62 6a 29 7b 0a 20 20 73 74 72 75  j *pObj){.  stru
0a30: 63 74 20 45 6e 63 4e 61 6d 65 20 7b 0a 20 20 20  ct EncName {.   
0a40: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20   char *zName;.  
0a50: 20 20 75 38 20 65 6e 63 3b 0a 20 20 7d 20 65 6e    u8 enc;.  } en
0a60: 63 6e 61 6d 65 73 5b 5d 20 3d 20 7b 0a 20 20 20  cnames[] = {.   
0a70: 20 7b 20 22 55 54 46 38 22 2c 20 53 51 4c 49 54   { "UTF8", SQLIT
0a80: 45 5f 55 54 46 38 20 7d 2c 0a 20 20 20 20 7b 20  E_UTF8 },.    { 
0a90: 22 55 54 46 31 36 4c 45 22 2c 20 53 51 4c 49 54  "UTF16LE", SQLIT
0aa0: 45 5f 55 54 46 31 36 4c 45 20 7d 2c 0a 20 20 20  E_UTF16LE },.   
0ab0: 20 7b 20 22 55 54 46 31 36 42 45 22 2c 20 53 51   { "UTF16BE", SQ
0ac0: 4c 49 54 45 5f 55 54 46 31 36 42 45 20 7d 2c 0a  LITE_UTF16BE },.
0ad0: 20 20 20 20 7b 20 22 55 54 46 31 36 22 2c 20 53      { "UTF16", S
0ae0: 51 4c 49 54 45 5f 55 54 46 31 36 4e 41 54 49 56  QLITE_UTF16NATIV
0af0: 45 20 7d 2c 0a 20 20 20 20 7b 20 30 2c 20 30 20  E },.    { 0, 0 
0b00: 7d 0a 20 20 7d 3b 0a 20 20 73 74 72 75 63 74 20  }.  };.  struct 
0b10: 45 6e 63 4e 61 6d 65 20 2a 70 45 6e 63 3b 0a 20  EncName *pEnc;. 
0b20: 20 63 68 61 72 20 2a 7a 20 3d 20 54 63 6c 5f 47   char *z = Tcl_G
0b30: 65 74 53 74 72 69 6e 67 28 70 4f 62 6a 29 3b 0a  etString(pObj);.
0b40: 20 20 66 6f 72 28 70 45 6e 63 3d 26 65 6e 63 6e    for(pEnc=&encn
0b50: 61 6d 65 73 5b 30 5d 3b 20 70 45 6e 63 2d 3e 7a  ames[0]; pEnc->z
0b60: 4e 61 6d 65 3b 20 70 45 6e 63 2b 2b 29 7b 0a 20  Name; pEnc++){. 
0b70: 20 20 20 69 66 28 20 30 3d 3d 73 71 6c 69 74 65     if( 0==sqlite
0b80: 33 53 74 72 49 43 6d 70 28 7a 2c 20 70 45 6e 63  3StrICmp(z, pEnc
0b90: 2d 3e 7a 4e 61 6d 65 29 20 29 7b 0a 20 20 20 20  ->zName) ){.    
0ba0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20    break;.    }. 
0bb0: 20 7d 0a 20 20 69 66 28 20 21 70 45 6e 63 2d 3e   }.  if( !pEnc->
0bc0: 65 6e 63 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  enc ){.    Tcl_A
0bd0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
0be0: 72 70 2c 20 22 4e 6f 20 73 75 63 68 20 65 6e 63  rp, "No such enc
0bf0: 6f 64 69 6e 67 3a 20 22 2c 20 7a 2c 20 30 29 3b  oding: ", z, 0);
0c00: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 70 45  .  }.  return pE
0c10: 6e 63 2d 3e 65 6e 63 3b 0a 7d 0a 0a 2f 2a 0a 2a  nc->enc;.}../*.*
0c20: 2a 20 55 73 61 67 65 3a 20 20 20 74 65 73 74 5f  * Usage:   test_
0c30: 74 72 61 6e 73 6c 61 74 65 20 3c 73 74 72 69 6e  translate <strin
0c40: 67 2f 62 6c 6f 62 3e 20 3c 66 72 6f 6d 20 65 6e  g/blob> <from en
0c50: 63 3e 20 3c 74 6f 20 65 6e 63 3e 20 3f 3c 74 72  c> <to enc> ?<tr
0c60: 61 6e 73 69 65 6e 74 3e 3f 0a 2a 2a 0a 2a 2f 0a  ansient>?.**.*/.
0c70: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f  static int test_
0c80: 74 72 61 6e 73 6c 61 74 65 28 0a 20 20 76 6f 69  translate(.  voi
0c90: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a  d * clientData,.
0ca0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
0cb0: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63  terp,.  int objc
0cc0: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  ,.  Tcl_Obj *CON
0cd0: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 75  ST objv[].){.  u
0ce0: 38 20 65 6e 63 5f 66 72 6f 6d 3b 0a 20 20 75 38  8 enc_from;.  u8
0cf0: 20 65 6e 63 5f 74 6f 3b 0a 20 20 73 71 6c 69 74   enc_to;.  sqlit
0d00: 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c 3b 0a  e3_value *pVal;.
0d10: 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 6e  .  char *z;.  in
0d20: 74 20 6c 65 6e 3b 0a 20 20 76 6f 69 64 20 28 2a  t len;.  void (*
0d30: 78 44 65 6c 29 28 76 6f 69 64 20 2a 70 29 20 3d  xDel)(void *p) =
0d40: 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 3b 0a   SQLITE_STATIC;.
0d50: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 26  .  if( objc!=4 &
0d60: 26 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20  & objc!=5 ){.   
0d70: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
0d80: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67  t(interp, "wrong
0d90: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
0da0: 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20  be \"",.        
0db0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f  Tcl_GetStringFro
0dc0: 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29  mObj(objv[0], 0)
0dd0: 2c 20 0a 20 20 20 20 20 20 20 20 22 20 3c 73 74  , .        " <st
0de0: 72 69 6e 67 2f 62 6c 6f 62 3e 20 3c 66 72 6f 6d  ring/blob> <from
0df0: 20 65 6e 63 3e 20 3c 74 6f 20 65 6e 63 3e 22 2c   enc> <to enc>",
0e00: 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 72 65   0.    );.    re
0e10: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
0e20: 20 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d    }.  if( objc==
0e30: 35 20 29 7b 0a 20 20 20 20 78 44 65 6c 20 3d 20  5 ){.    xDel = 
0e40: 73 71 6c 69 74 65 33 46 72 65 65 58 3b 0a 20 20  sqlite3FreeX;.  
0e50: 7d 0a 0a 20 20 65 6e 63 5f 66 72 6f 6d 20 3d 20  }..  enc_from = 
0e60: 6e 61 6d 65 5f 74 6f 5f 65 6e 63 28 69 6e 74 65  name_to_enc(inte
0e70: 72 70 2c 20 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20  rp, objv[2]);.  
0e80: 69 66 28 20 21 65 6e 63 5f 66 72 6f 6d 20 29 20  if( !enc_from ) 
0e90: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
0ea0: 3b 0a 20 20 65 6e 63 5f 74 6f 20 3d 20 6e 61 6d  ;.  enc_to = nam
0eb0: 65 5f 74 6f 5f 65 6e 63 28 69 6e 74 65 72 70 2c  e_to_enc(interp,
0ec0: 20 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 69 66 28   objv[3]);.  if(
0ed0: 20 21 65 6e 63 5f 74 6f 20 29 20 72 65 74 75 72   !enc_to ) retur
0ee0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20  n TCL_ERROR;..  
0ef0: 70 56 61 6c 20 3d 20 73 71 6c 69 74 65 33 56 61  pVal = sqlite3Va
0f00: 6c 75 65 4e 65 77 28 29 3b 0a 0a 20 20 69 66 28  lueNew();..  if(
0f10: 20 65 6e 63 5f 66 72 6f 6d 3d 3d 53 51 4c 49 54   enc_from==SQLIT
0f20: 45 5f 55 54 46 38 20 29 7b 0a 20 20 20 20 7a 20  E_UTF8 ){.    z 
0f30: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28  = Tcl_GetString(
0f40: 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 20 20 69 66  objv[1]);.    if
0f50: 28 20 6f 62 6a 63 3d 3d 35 20 29 7b 0a 20 20 20  ( objc==5 ){.   
0f60: 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 53 74 72     z = sqliteStr
0f70: 44 75 70 28 7a 29 3b 0a 20 20 20 20 7d 0a 20 20  Dup(z);.    }.  
0f80: 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 53 65    sqlite3ValueSe
0f90: 74 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c 20 7a  tStr(pVal, -1, z
0fa0: 2c 20 65 6e 63 5f 66 72 6f 6d 2c 20 78 44 65 6c  , enc_from, xDel
0fb0: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  );.  }else{.    
0fc0: 7a 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41  z = Tcl_GetByteA
0fd0: 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76  rrayFromObj(objv
0fe0: 5b 31 5d 2c 20 26 6c 65 6e 29 3b 0a 20 20 20 20  [1], &len);.    
0ff0: 69 66 28 20 6f 62 6a 63 3d 3d 35 20 29 7b 0a 20  if( objc==5 ){. 
1000: 20 20 20 20 20 63 68 61 72 20 2a 7a 54 6d 70 20       char *zTmp 
1010: 3d 20 7a 3b 0a 20 20 20 20 20 20 7a 20 3d 20 73  = z;.      z = s
1020: 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 6c 65 6e 29  qliteMalloc(len)
1030: 3b 0a 20 20 20 20 20 20 6d 65 6d 63 70 79 28 7a  ;.      memcpy(z
1040: 2c 20 7a 54 6d 70 2c 20 6c 65 6e 29 3b 0a 20 20  , zTmp, len);.  
1050: 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 56    }.    sqlite3V
1060: 61 6c 75 65 53 65 74 53 74 72 28 70 56 61 6c 2c  alueSetStr(pVal,
1070: 20 2d 31 2c 20 7a 2c 20 65 6e 63 5f 66 72 6f 6d   -1, z, enc_from
1080: 2c 20 78 44 65 6c 29 3b 0a 20 20 7d 0a 0a 20 20  , xDel);.  }..  
1090: 7a 20 3d 20 28 63 68 61 72 20 2a 29 73 71 6c 69  z = (char *)sqli
10a0: 74 65 33 56 61 6c 75 65 54 65 78 74 28 70 56 61  te3ValueText(pVa
10b0: 6c 2c 20 65 6e 63 5f 74 6f 29 3b 0a 20 20 6c 65  l, enc_to);.  le
10c0: 6e 20 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65  n = sqlite3Value
10d0: 42 79 74 65 73 28 70 56 61 6c 2c 20 65 6e 63 5f  Bytes(pVal, enc_
10e0: 74 6f 29 20 2b 20 28 65 6e 63 5f 74 6f 3d 3d 53  to) + (enc_to==S
10f0: 51 4c 49 54 45 5f 55 54 46 38 3f 31 3a 32 29 3b  QLITE_UTF8?1:2);
1100: 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73  .  Tcl_SetObjRes
1110: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ult(interp, Tcl_
1120: 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28  NewByteArrayObj(
1130: 7a 2c 20 6c 65 6e 29 29 3b 0a 0a 20 20 73 71 6c  z, len));..  sql
1140: 69 74 65 33 56 61 6c 75 65 46 72 65 65 28 70 56  ite3ValueFree(pV
1150: 61 6c 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54  al);..  return T
1160: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  CL_OK;.}../*.** 
1170: 55 73 61 67 65 3a 20 74 72 61 6e 73 6c 61 74 65  Usage: translate
1180: 5f 73 65 6c 66 74 65 73 74 0a 2a 2a 0a 2a 2a 20  _selftest.**.** 
1190: 43 61 6c 6c 20 73 71 6c 69 74 65 33 75 74 66 53  Call sqlite3utfS
11a0: 65 6c 66 54 65 73 74 28 29 20 74 6f 20 72 75 6e  elfTest() to run
11b0: 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 74 65   the internal te
11c0: 73 74 73 20 66 6f 72 20 75 6e 69 63 6f 64 65 0a  sts for unicode.
11d0: 2a 2a 20 74 72 61 6e 73 6c 61 74 69 6f 6e 2e 20  ** translation. 
11e0: 49 66 20 74 68 65 72 65 20 69 73 20 61 20 70 72  If there is a pr
11f0: 6f 62 6c 65 6d 20 61 6e 20 61 73 73 65 72 74 28  oblem an assert(
1200: 29 20 77 69 6c 6c 20 66 61 69 6c 2e 0a 2a 2a 2f  ) will fail..**/
1210: 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 75 74 66  .void sqlite3utf
1220: 53 65 6c 66 54 65 73 74 28 29 3b 0a 73 74 61 74  SelfTest();.stat
1230: 69 63 20 69 6e 74 20 74 65 73 74 5f 74 72 61 6e  ic int test_tran
1240: 73 6c 61 74 65 5f 73 65 6c 66 74 65 73 74 28 0a  slate_selftest(.
1250: 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44    void * clientD
1260: 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72  ata,.  Tcl_Inter
1270: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74  p *interp,.  int
1280: 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a   objc,.  Tcl_Obj
1290: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29   *CONST objv[].)
12a0: 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45  {.#ifndef SQLITE
12b0: 5f 4f 4d 49 54 5f 55 54 46 31 36 0a 20 20 73 71  _OMIT_UTF16.  sq
12c0: 6c 69 74 65 33 75 74 66 53 65 6c 66 54 65 73 74  lite3utfSelfTest
12d0: 28 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 74  ();.#endif.  ret
12e0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d  urn SQLITE_OK;.}
12f0: 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65  .../*.** Registe
1300: 72 20 63 6f 6d 6d 61 6e 64 73 20 77 69 74 68 20  r commands with 
1310: 74 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65  the TCL interpre
1320: 74 65 72 2e 0a 2a 2f 0a 69 6e 74 20 53 71 6c 69  ter..*/.int Sqli
1330: 74 65 74 65 73 74 35 5f 49 6e 69 74 28 54 63 6c  tetest5_Init(Tcl
1340: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29  _Interp *interp)
1350: 7b 0a 20 20 73 74 61 74 69 63 20 73 74 72 75 63  {.  static struc
1360: 74 20 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e  t {.    char *zN
1370: 61 6d 65 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a  ame;.    Tcl_Obj
1380: 43 6d 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a  CmdProc *xProc;.
1390: 20 20 7d 20 61 43 6d 64 5b 5d 20 3d 20 7b 0a 20    } aCmd[] = {. 
13a0: 20 20 20 7b 20 22 62 69 6e 61 72 69 7a 65 22 2c     { "binarize",
13b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13c0: 28 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a  (Tcl_ObjCmdProc*
13d0: 29 62 69 6e 61 72 69 7a 65 20 7d 2c 0a 20 20 20  )binarize },.   
13e0: 20 7b 20 22 74 65 73 74 5f 76 61 6c 75 65 5f 6f   { "test_value_o
13f0: 76 65 72 68 65 61 64 22 2c 20 20 20 20 20 28 54  verhead",     (T
1400: 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 74  cl_ObjCmdProc*)t
1410: 65 73 74 5f 76 61 6c 75 65 5f 6f 76 65 72 68 65  est_value_overhe
1420: 61 64 20 7d 2c 0a 20 20 20 20 7b 20 22 74 65 73  ad },.    { "tes
1430: 74 5f 74 72 61 6e 73 6c 61 74 65 22 2c 20 20 20  t_translate",   
1440: 20 20 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a 43         (Tcl_ObjC
1450: 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 74 72 61  mdProc*)test_tra
1460: 6e 73 6c 61 74 65 20 20 20 20 20 7d 2c 0a 20 20  nslate     },.  
1470: 20 20 7b 20 22 74 72 61 6e 73 6c 61 74 65 5f 73    { "translate_s
1480: 65 6c 66 74 65 73 74 22 2c 20 20 20 20 20 20 28  elftest",      (
1490: 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29  Tcl_ObjCmdProc*)
14a0: 74 65 73 74 5f 74 72 61 6e 73 6c 61 74 65 5f 73  test_translate_s
14b0: 65 6c 66 74 65 73 74 7d 2c 0a 20 20 7d 3b 0a 20  elftest},.  };. 
14c0: 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d   int i;.  for(i=
14d0: 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 43 6d 64  0; i<sizeof(aCmd
14e0: 29 2f 73 69 7a 65 6f 66 28 61 43 6d 64 5b 30 5d  )/sizeof(aCmd[0]
14f0: 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c  ); i++){.    Tcl
1500: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e  _CreateObjComman
1510: 64 28 69 6e 74 65 72 70 2c 20 61 43 6d 64 5b 69  d(interp, aCmd[i
1520: 5d 2e 7a 4e 61 6d 65 2c 20 61 43 6d 64 5b 69 5d  ].zName, aCmd[i]
1530: 2e 78 50 72 6f 63 2c 20 30 2c 20 30 29 3b 0a 20  .xProc, 0, 0);. 
1540: 20 7d 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49   }.  return SQLI
1550: 54 45 5f 4f 4b 3b 0a 7d 0a                       TE_OK;.}.