/ Hex Artifact Content
Login

Artifact 2ab200d91f77085bd69c721dcb2b649f036d608b:


0000: 2f 2a 0a 2a 2a 20 32 30 30 37 20 41 70 72 69 6c  /*.** 2007 April
0010: 20 36 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74   6.**.** The aut
0020: 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f  hor disclaims co
0030: 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20  pyright to this 
0040: 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e  source code.  In
0050: 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c   place of.** a l
0060: 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72  egal notice, her
0070: 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a  e is a blessing:
0080: 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f  .**.**    May yo
0090: 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f  u do good and no
00a0: 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61  t evil..**    Ma
00b0: 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69  y you find forgi
00c0: 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73  veness for yours
00d0: 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20  elf and forgive 
00e0: 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61  others..**    Ma
00f0: 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65 65  y you share free
0100: 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67  ly, never taking
0110: 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67   more than you g
0120: 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a  ive..**.********
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 0a 2a 2a 20 43 6f 64 65 20 66 6f 72 20 74 65  *.** Code for te
0180: 73 74 69 6e 67 20 61 6c 6c 20 73 6f 72 74 73 20  sting all sorts 
0190: 6f 66 20 53 51 4c 69 74 65 20 69 6e 74 65 72 66  of SQLite interf
01a0: 61 63 65 73 2e 20 20 54 68 69 73 20 63 6f 64 65  aces.  This code
01b0: 0a 2a 2a 20 69 6d 70 6c 65 6d 65 6e 74 73 20 54  .** implements T
01c0: 43 4c 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20  CL commands for 
01d0: 72 65 61 64 69 6e 67 20 61 6e 64 20 77 72 69 74  reading and writ
01e0: 69 6e 67 20 74 68 65 20 62 69 6e 61 72 79 0a 2a  ing the binary.*
01f0: 2a 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73  * database files
0200: 20 61 6e 64 20 64 69 73 70 6c 61 79 69 6e 67 20   and displaying 
0210: 74 68 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 74  the content of t
0220: 68 6f 73 65 20 66 69 6c 65 73 20 61 73 0a 2a 2a  hose files as.**
0230: 20 68 65 78 61 64 65 63 69 6d 61 6c 2e 20 20 57   hexadecimal.  W
0240: 65 20 63 6f 75 6c 64 2c 20 69 6e 20 74 68 65 6f  e could, in theo
0250: 72 79 2c 20 75 73 65 20 74 68 65 20 62 75 69 6c  ry, use the buil
0260: 74 2d 69 6e 20 22 62 69 6e 61 72 79 22 0a 2a 2a  t-in "binary".**
0270: 20 63 6f 6d 6d 61 6e 64 20 6f 66 20 54 43 4c 20   command of TCL 
0280: 74 6f 20 64 6f 20 61 20 6c 6f 74 20 6f 66 20 74  to do a lot of t
0290: 68 69 73 2c 20 62 75 74 20 74 68 65 72 65 20 61  his, but there a
02a0: 72 65 20 73 6f 6d 65 20 69 73 73 75 65 73 0a 2a  re some issues.*
02b0: 2a 20 77 69 74 68 20 68 69 73 74 6f 72 69 63 61  * with historica
02c0: 6c 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 74 68  l versions of th
02d0: 65 20 22 62 69 6e 61 72 79 22 20 63 6f 6d 6d 61  e "binary" comma
02e0: 6e 64 2e 20 20 53 6f 20 69 74 20 73 65 65 6d 73  nd.  So it seems
02f0: 0a 2a 2a 20 65 61 73 69 65 72 20 61 6e 64 20 73  .** easier and s
0300: 61 66 65 72 20 74 6f 20 62 75 69 6c 64 20 6f 75  afer to build ou
0310: 72 20 6f 77 6e 20 6d 65 63 68 61 6e 69 73 6d 2e  r own mechanism.
0320: 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 73 71  .*/.#include "sq
0330: 6c 69 74 65 49 6e 74 2e 68 22 0a 23 69 66 20 64  liteInt.h".#if d
0340: 65 66 69 6e 65 64 28 49 4e 43 4c 55 44 45 5f 53  efined(INCLUDE_S
0350: 51 4c 49 54 45 5f 54 43 4c 5f 48 29 0a 23 20 20  QLITE_TCL_H).#  
0360: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 5f  include "sqlite_
0370: 74 63 6c 2e 68 22 0a 23 65 6c 73 65 0a 23 20 20  tcl.h".#else.#  
0380: 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e 68 22 0a  include "tcl.h".
0390: 23 65 6e 64 69 66 0a 23 69 6e 63 6c 75 64 65 20  #endif.#include 
03a0: 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c  <stdlib.h>.#incl
03b0: 75 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23  ude <string.h>.#
03c0: 69 6e 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e  include <assert.
03d0: 68 3e 0a 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65  h>.../*.** Conve
03e0: 72 74 20 62 69 6e 61 72 79 20 74 6f 20 68 65 78  rt binary to hex
03f0: 2e 20 20 54 68 65 20 69 6e 70 75 74 20 7a 42 75  .  The input zBu
0400: 66 5b 5d 20 63 6f 6e 74 61 69 6e 73 20 4e 20 62  f[] contains N b
0410: 79 74 65 73 20 6f 66 0a 2a 2a 20 62 69 6e 61 72  ytes of.** binar
0420: 79 20 64 61 74 61 2e 20 20 7a 42 75 66 5b 5d 20  y data.  zBuf[] 
0430: 69 73 20 32 2a 6e 2b 31 20 62 79 74 65 73 20 6c  is 2*n+1 bytes l
0440: 6f 6e 67 2e 20 20 4f 76 65 72 77 72 69 74 65 20  ong.  Overwrite 
0450: 7a 42 75 66 5b 5d 0a 2a 2a 20 77 69 74 68 20 61  zBuf[].** with a
0460: 20 68 65 78 61 64 65 63 69 6d 61 6c 20 72 65 70   hexadecimal rep
0470: 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 69  resentation of i
0480: 74 73 20 6f 72 69 67 69 6e 61 6c 20 62 69 6e 61  ts original bina
0490: 72 79 20 69 6e 70 75 74 2e 0a 2a 2f 0a 76 6f 69  ry input..*/.voi
04a0: 64 20 73 71 6c 69 74 65 33 54 65 73 74 42 69 6e  d sqlite3TestBin
04b0: 54 6f 48 65 78 28 75 6e 73 69 67 6e 65 64 20 63  ToHex(unsigned c
04c0: 68 61 72 20 2a 7a 42 75 66 2c 20 69 6e 74 20 4e  har *zBuf, int N
04d0: 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67  ){.  const unsig
04e0: 6e 65 64 20 63 68 61 72 20 7a 48 65 78 5b 5d 20  ned char zHex[] 
04f0: 3d 20 22 30 31 32 33 34 35 36 37 38 39 41 42 43  = "0123456789ABC
0500: 44 45 46 22 3b 0a 20 20 69 6e 74 20 69 2c 20 6a  DEF";.  int i, j
0510: 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61  ;.  unsigned cha
0520: 72 20 63 3b 0a 20 20 69 20 3d 20 4e 2a 32 3b 0a  r c;.  i = N*2;.
0530: 20 20 7a 42 75 66 5b 69 2d 2d 5d 20 3d 20 30 3b    zBuf[i--] = 0;
0540: 0a 20 20 66 6f 72 28 6a 3d 4e 2d 31 3b 20 6a 3e  .  for(j=N-1; j>
0550: 3d 30 3b 20 6a 2d 2d 29 7b 0a 20 20 20 20 63 20  =0; j--){.    c 
0560: 3d 20 7a 42 75 66 5b 6a 5d 3b 0a 20 20 20 20 7a  = zBuf[j];.    z
0570: 42 75 66 5b 69 2d 2d 5d 20 3d 20 7a 48 65 78 5b  Buf[i--] = zHex[
0580: 63 26 30 78 66 5d 3b 0a 20 20 20 20 7a 42 75 66  c&0xf];.    zBuf
0590: 5b 69 2d 2d 5d 20 3d 20 7a 48 65 78 5b 63 3e 3e  [i--] = zHex[c>>
05a0: 34 5d 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74  4];.  }.  assert
05b0: 28 20 69 3d 3d 2d 31 20 29 3b 0a 7d 0a 0a 2f 2a  ( i==-1 );.}../*
05c0: 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 68 65 78 20  .** Convert hex 
05d0: 74 6f 20 62 69 6e 61 72 79 2e 20 20 54 68 65 20  to binary.  The 
05e0: 69 6e 70 75 74 20 7a 49 6e 5b 5d 20 63 6f 6e 74  input zIn[] cont
05f0: 61 69 6e 73 20 4e 20 62 79 74 65 73 20 6f 66 0a  ains N bytes of.
0600: 2a 2a 20 68 65 78 61 64 65 63 69 6d 61 6c 2e 20  ** hexadecimal. 
0610: 20 43 6f 6e 76 65 72 74 20 74 68 69 73 20 69 6e   Convert this in
0620: 74 6f 20 62 69 6e 61 72 79 20 61 6e 64 20 77 72  to binary and wr
0630: 69 74 65 20 61 4f 75 74 5b 5d 20 77 69 74 68 0a  ite aOut[] with.
0640: 2a 2a 20 74 68 65 20 62 69 6e 61 72 79 20 64 61  ** the binary da
0650: 74 61 2e 20 20 53 70 61 63 65 73 20 69 6e 20 74  ta.  Spaces in t
0660: 68 65 20 6f 72 69 67 69 6e 61 6c 20 69 6e 70 75  he original inpu
0670: 74 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 2a  t are ignored..*
0680: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d  * Return the num
0690: 62 65 72 20 6f 66 20 62 79 74 65 73 20 6f 66 20  ber of bytes of 
06a0: 62 69 6e 61 72 79 20 72 65 6e 64 65 72 65 64 2e  binary rendered.
06b0: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 54  .*/.int sqlite3T
06c0: 65 73 74 48 65 78 54 6f 42 69 6e 28 63 6f 6e 73  estHexToBin(cons
06d0: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20  t unsigned char 
06e0: 2a 7a 49 6e 2c 20 69 6e 74 20 4e 2c 20 75 6e 73  *zIn, int N, uns
06f0: 69 67 6e 65 64 20 63 68 61 72 20 2a 61 4f 75 74  igned char *aOut
0700: 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67  ){.  const unsig
0710: 6e 65 64 20 63 68 61 72 20 61 4d 61 70 5b 5d 20  ned char aMap[] 
0720: 3d 20 7b 0a 20 20 20 20 20 30 2c 20 30 2c 20 30  = {.     0, 0, 0
0730: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
0740: 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c    0, 0, 0, 0, 0,
0750: 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 30   0, 0, 0,.     0
0760: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
0770: 20 30 2c 20 30 2c 20 20 30 2c 20 30 2c 20 30 2c   0, 0,  0, 0, 0,
0780: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a   0, 0, 0, 0, 0,.
0790: 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c       0, 0, 0, 0,
07a0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20 30 2c   0, 0, 0, 0,  0,
07b0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
07c0: 30 2c 20 30 2c 0a 20 20 20 20 20 31 2c 20 32 2c  0, 0,.     1, 2,
07d0: 20 33 2c 20 34 2c 20 35 2c 20 36 2c 20 37 2c 20   3, 4, 5, 6, 7, 
07e0: 38 2c 20 20 39 2c 31 30 2c 20 30 2c 20 30 2c 20  8,  9,10, 0, 0, 
07f0: 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20  0, 0, 0, 0,.    
0800: 20 30 2c 31 31 2c 31 32 2c 31 33 2c 31 34 2c 31   0,11,12,13,14,1
0810: 35 2c 31 36 2c 20 30 2c 20 20 30 2c 20 30 2c 20  5,16, 0,  0, 0, 
0820: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
0830: 2c 0a 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20  ,.     0, 0, 0, 
0840: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20  0, 0, 0, 0, 0,  
0850: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
0860: 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 30 2c 31  , 0, 0,.     0,1
0870: 31 2c 31 32 2c 31 33 2c 31 34 2c 31 35 2c 31 36  1,12,13,14,15,16
0880: 2c 20 30 2c 20 20 30 2c 20 30 2c 20 30 2c 20 30  , 0,  0, 0, 0, 0
0890: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20  , 0, 0, 0, 0,.  
08a0: 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30     0, 0, 0, 0, 0
08b0: 2c 20 30 2c 20 30 2c 20 30 2c 20 20 30 2c 20 30  , 0, 0, 0,  0, 0
08c0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
08d0: 20 30 2c 0a 20 20 20 20 20 30 2c 20 30 2c 20 30   0,.     0, 0, 0
08e0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
08f0: 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c    0, 0, 0, 0, 0,
0900: 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 30   0, 0, 0,.     0
0910: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
0920: 20 30 2c 20 30 2c 20 20 30 2c 20 30 2c 20 30 2c   0, 0,  0, 0, 0,
0930: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a   0, 0, 0, 0, 0,.
0940: 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c       0, 0, 0, 0,
0950: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20 30 2c   0, 0, 0, 0,  0,
0960: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
0970: 30 2c 20 30 2c 0a 20 20 20 20 20 30 2c 20 30 2c  0, 0,.     0, 0,
0980: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
0990: 30 2c 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20  0,  0, 0, 0, 0, 
09a0: 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20  0, 0, 0, 0,.    
09b0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
09c0: 30 2c 20 30 2c 20 30 2c 20 20 30 2c 20 30 2c 20  0, 0, 0,  0, 0, 
09d0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
09e0: 2c 0a 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20  ,.     0, 0, 0, 
09f0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20  0, 0, 0, 0, 0,  
0a00: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
0a10: 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 30 2c 20  , 0, 0,.     0, 
0a20: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
0a30: 2c 20 30 2c 20 20 30 2c 20 30 2c 20 30 2c 20 30  , 0,  0, 0, 0, 0
0a40: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20  , 0, 0, 0, 0,.  
0a50: 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30     0, 0, 0, 0, 0
0a60: 2c 20 30 2c 20 30 2c 20 30 2c 20 20 30 2c 20 30  , 0, 0, 0,  0, 0
0a70: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
0a80: 20 30 2c 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 69   0,.  };.  int i
0a90: 2c 20 6a 3b 0a 20 20 69 6e 74 20 68 69 3d 31 3b  , j;.  int hi=1;
0aa0: 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  .  unsigned char
0ab0: 20 63 3b 0a 0a 20 20 66 6f 72 28 69 3d 6a 3d 30   c;..  for(i=j=0
0ac0: 3b 20 69 3c 4e 3b 20 69 2b 2b 29 7b 0a 20 20 20  ; i<N; i++){.   
0ad0: 20 63 20 3d 20 61 4d 61 70 5b 7a 49 6e 5b 69 5d   c = aMap[zIn[i]
0ae0: 5d 3b 0a 20 20 20 20 69 66 28 20 63 3d 3d 30 20  ];.    if( c==0 
0af0: 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20  ) continue;.    
0b00: 69 66 28 20 68 69 20 29 7b 0a 20 20 20 20 20 20  if( hi ){.      
0b10: 61 4f 75 74 5b 6a 5d 20 3d 20 28 63 2d 31 29 3c  aOut[j] = (c-1)<
0b20: 3c 34 3b 0a 20 20 20 20 20 20 68 69 20 3d 20 30  <4;.      hi = 0
0b30: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
0b40: 20 20 20 61 4f 75 74 5b 6a 2b 2b 5d 20 7c 3d 20     aOut[j++] |= 
0b50: 63 2d 31 3b 0a 20 20 20 20 20 20 68 69 20 3d 20  c-1;.      hi = 
0b60: 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72  1;.    }.  }.  r
0b70: 65 74 75 72 6e 20 6a 3b 0a 7d 0a 0a 0a 2f 2a 0a  eturn j;.}.../*.
0b80: 2a 2a 20 55 73 61 67 65 3a 20 20 20 68 65 78 69  ** Usage:   hexi
0b90: 6f 5f 72 65 61 64 20 20 46 49 4c 45 4e 41 4d 45  o_read  FILENAME
0ba0: 20 20 4f 46 46 53 45 54 20 20 41 4d 54 0a 2a 2a    OFFSET  AMT.**
0bb0: 0a 2a 2a 20 52 65 61 64 20 41 4d 54 20 62 79 74  .** Read AMT byt
0bc0: 65 73 20 66 72 6f 6d 20 66 69 6c 65 20 46 49 4c  es from file FIL
0bd0: 45 4e 41 4d 45 20 62 65 67 69 6e 6e 69 6e 67 20  ENAME beginning 
0be0: 61 74 20 4f 46 46 53 45 54 20 66 72 6f 6d 20 74  at OFFSET from t
0bf0: 68 65 0a 2a 2a 20 62 65 67 69 6e 6e 69 6e 67 20  he.** beginning 
0c00: 6f 66 20 74 68 65 20 66 69 6c 65 2e 20 20 43 6f  of the file.  Co
0c10: 6e 76 65 72 74 20 74 68 61 74 20 69 6e 66 6f 72  nvert that infor
0c20: 6d 61 74 69 6f 6e 20 74 6f 20 68 65 78 61 64 65  mation to hexade
0c30: 63 69 6d 61 6c 0a 2a 2a 20 61 6e 64 20 72 65 74  cimal.** and ret
0c40: 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 69 6e  urn the resultin
0c50: 67 20 48 45 58 20 73 74 72 69 6e 67 2e 0a 2a 2f  g HEX string..*/
0c60: 0a 73 74 61 74 69 63 20 69 6e 74 20 68 65 78 69  .static int hexi
0c70: 6f 5f 72 65 61 64 28 0a 20 20 76 6f 69 64 20 2a  o_read(.  void *
0c80: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54   clientData,.  T
0c90: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
0ca0: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20  p,.  int objc,. 
0cb0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20   Tcl_Obj *CONST 
0cc0: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20  objv[].){.  int 
0cd0: 6f 66 66 73 65 74 3b 0a 20 20 69 6e 74 20 61 6d  offset;.  int am
0ce0: 74 2c 20 67 6f 74 3b 0a 20 20 63 6f 6e 73 74 20  t, got;.  const 
0cf0: 63 68 61 72 20 2a 7a 46 69 6c 65 3b 0a 20 20 75  char *zFile;.  u
0d00: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 42  nsigned char *zB
0d10: 75 66 3b 0a 20 20 46 49 4c 45 20 2a 69 6e 3b 0a  uf;.  FILE *in;.
0d20: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 29  .  if( objc!=4 )
0d30: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
0d40: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
0d50: 2c 20 6f 62 6a 76 2c 20 22 46 49 4c 45 4e 41 4d  , objv, "FILENAM
0d60: 45 20 4f 46 46 53 45 54 20 41 4d 54 22 29 3b 0a  E OFFSET AMT");.
0d70: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
0d80: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  RROR;.  }.  if( 
0d90: 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62  Tcl_GetIntFromOb
0da0: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32  j(interp, objv[2
0db0: 5d 2c 20 26 6f 66 66 73 65 74 29 20 29 20 72 65  ], &offset) ) re
0dc0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
0dd0: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74    if( Tcl_GetInt
0de0: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
0df0: 6f 62 6a 76 5b 33 5d 2c 20 26 61 6d 74 29 20 29  objv[3], &amt) )
0e00: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
0e10: 52 3b 0a 20 20 7a 46 69 6c 65 20 3d 20 54 63 6c  R;.  zFile = Tcl
0e20: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
0e30: 31 5d 29 3b 0a 20 20 7a 42 75 66 20 3d 20 73 71  1]);.  zBuf = sq
0e40: 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 61 6d  lite3_malloc( am
0e50: 74 2a 32 2b 31 20 29 3b 0a 20 20 69 66 28 20 7a  t*2+1 );.  if( z
0e60: 42 75 66 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65  Buf==0 ){.    re
0e70: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
0e80: 20 20 7d 0a 20 20 69 6e 20 3d 20 66 6f 70 65 6e    }.  in = fopen
0e90: 28 7a 46 69 6c 65 2c 20 22 72 62 22 29 3b 0a 20  (zFile, "rb");. 
0ea0: 20 69 66 28 20 69 6e 3d 3d 30 20 29 7b 0a 20 20   if( in==0 ){.  
0eb0: 20 20 69 6e 20 3d 20 66 6f 70 65 6e 28 7a 46 69    in = fopen(zFi
0ec0: 6c 65 2c 20 22 72 22 29 3b 0a 20 20 7d 0a 20 20  le, "r");.  }.  
0ed0: 69 66 28 20 69 6e 3d 3d 30 20 29 7b 0a 20 20 20  if( in==0 ){.   
0ee0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
0ef0: 74 28 69 6e 74 65 72 70 2c 20 22 63 61 6e 6e 6f  t(interp, "canno
0f00: 74 20 6f 70 65 6e 20 69 6e 70 75 74 20 66 69 6c  t open input fil
0f10: 65 20 22 2c 20 7a 46 69 6c 65 2c 20 30 29 3b 0a  e ", zFile, 0);.
0f20: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
0f30: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 73 65 65  RROR;.  }.  fsee
0f40: 6b 28 69 6e 2c 20 6f 66 66 73 65 74 2c 20 53 45  k(in, offset, SE
0f50: 45 4b 5f 53 45 54 29 3b 0a 20 20 67 6f 74 20 3d  EK_SET);.  got =
0f60: 20 28 69 6e 74 29 66 72 65 61 64 28 7a 42 75 66   (int)fread(zBuf
0f70: 2c 20 31 2c 20 61 6d 74 2c 20 69 6e 29 3b 0a 20  , 1, amt, in);. 
0f80: 20 66 63 6c 6f 73 65 28 69 6e 29 3b 0a 20 20 69   fclose(in);.  i
0f90: 66 28 20 67 6f 74 3c 30 20 29 7b 0a 20 20 20 20  f( got<0 ){.    
0fa0: 67 6f 74 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 73  got = 0;.  }.  s
0fb0: 71 6c 69 74 65 33 54 65 73 74 42 69 6e 54 6f 48  qlite3TestBinToH
0fc0: 65 78 28 7a 42 75 66 2c 20 67 6f 74 29 3b 0a 20  ex(zBuf, got);. 
0fd0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
0fe0: 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20  t(interp, zBuf, 
0ff0: 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72  0);.  sqlite3_fr
1000: 65 65 28 7a 42 75 66 29 3b 0a 20 20 72 65 74 75  ee(zBuf);.  retu
1010: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f  rn TCL_OK;.}.../
1020: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 68 65  *.** Usage:   he
1030: 78 69 6f 5f 77 72 69 74 65 20 20 46 49 4c 45 4e  xio_write  FILEN
1040: 41 4d 45 20 20 4f 46 46 53 45 54 20 20 44 41 54  AME  OFFSET  DAT
1050: 41 0a 2a 2a 0a 2a 2a 20 57 72 69 74 65 20 44 41  A.**.** Write DA
1060: 54 41 20 69 6e 74 6f 20 66 69 6c 65 20 46 49 4c  TA into file FIL
1070: 45 4e 41 4d 45 20 62 65 67 69 6e 6e 69 6e 67 20  ENAME beginning 
1080: 61 74 20 4f 46 46 53 45 54 20 66 72 6f 6d 20 74  at OFFSET from t
1090: 68 65 0a 2a 2a 20 62 65 67 69 6e 6e 69 6e 67 20  he.** beginning 
10a0: 6f 66 20 74 68 65 20 66 69 6c 65 2e 20 20 44 41  of the file.  DA
10b0: 54 41 20 69 73 20 65 78 70 72 65 73 73 65 64 20  TA is expressed 
10c0: 69 6e 20 68 65 78 61 64 65 63 69 6d 61 6c 2e 0a  in hexadecimal..
10d0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 68 65  */.static int he
10e0: 78 69 6f 5f 77 72 69 74 65 28 0a 20 20 76 6f 69  xio_write(.  voi
10f0: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a  d * clientData,.
1100: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
1110: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63  terp,.  int objc
1120: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  ,.  Tcl_Obj *CON
1130: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69  ST objv[].){.  i
1140: 6e 74 20 6f 66 66 73 65 74 3b 0a 20 20 69 6e 74  nt offset;.  int
1150: 20 6e 49 6e 2c 20 6e 4f 75 74 2c 20 77 72 69 74   nIn, nOut, writ
1160: 74 65 6e 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61  ten;.  const cha
1170: 72 20 2a 7a 46 69 6c 65 3b 0a 20 20 63 6f 6e 73  r *zFile;.  cons
1180: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20  t unsigned char 
1190: 2a 7a 49 6e 3b 0a 20 20 75 6e 73 69 67 6e 65 64  *zIn;.  unsigned
11a0: 20 63 68 61 72 20 2a 61 4f 75 74 3b 0a 20 20 46   char *aOut;.  F
11b0: 49 4c 45 20 2a 6f 75 74 3b 0a 0a 20 20 69 66 28  ILE *out;..  if(
11c0: 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20   objc!=4 ){.    
11d0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
11e0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76  (interp, 1, objv
11f0: 2c 20 22 46 49 4c 45 4e 41 4d 45 20 4f 46 46 53  , "FILENAME OFFS
1200: 45 54 20 48 45 58 44 41 54 41 22 29 3b 0a 20 20  ET HEXDATA");.  
1210: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
1220: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63  OR;.  }.  if( Tc
1230: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28  l_GetIntFromObj(
1240: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c  interp, objv[2],
1250: 20 26 6f 66 66 73 65 74 29 20 29 20 72 65 74 75   &offset) ) retu
1260: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
1270: 7a 46 69 6c 65 20 3d 20 54 63 6c 5f 47 65 74 53  zFile = Tcl_GetS
1280: 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a  tring(objv[1]);.
1290: 20 20 7a 49 6e 20 3d 20 28 63 6f 6e 73 74 20 75    zIn = (const u
12a0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 54  nsigned char *)T
12b0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
12c0: 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 49  Obj(objv[3], &nI
12d0: 6e 29 3b 0a 20 20 61 4f 75 74 20 3d 20 73 71 6c  n);.  aOut = sql
12e0: 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 6e 49 6e  ite3_malloc( nIn
12f0: 2f 32 20 29 3b 0a 20 20 69 66 28 20 61 4f 75 74  /2 );.  if( aOut
1300: 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72  ==0 ){.    retur
1310: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
1320: 0a 20 20 6e 4f 75 74 20 3d 20 73 71 6c 69 74 65  .  nOut = sqlite
1330: 33 54 65 73 74 48 65 78 54 6f 42 69 6e 28 7a 49  3TestHexToBin(zI
1340: 6e 2c 20 6e 49 6e 2c 20 61 4f 75 74 29 3b 0a 20  n, nIn, aOut);. 
1350: 20 6f 75 74 20 3d 20 66 6f 70 65 6e 28 7a 46 69   out = fopen(zFi
1360: 6c 65 2c 20 22 72 2b 62 22 29 3b 0a 20 20 69 66  le, "r+b");.  if
1370: 28 20 6f 75 74 3d 3d 30 20 29 7b 0a 20 20 20 20  ( out==0 ){.    
1380: 6f 75 74 20 3d 20 66 6f 70 65 6e 28 7a 46 69 6c  out = fopen(zFil
1390: 65 2c 20 22 72 2b 22 29 3b 0a 20 20 7d 0a 20 20  e, "r+");.  }.  
13a0: 69 66 28 20 6f 75 74 3d 3d 30 20 29 7b 0a 20 20  if( out==0 ){.  
13b0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
13c0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 61 6e 6e  lt(interp, "cann
13d0: 6f 74 20 6f 70 65 6e 20 6f 75 74 70 75 74 20 66  ot open output f
13e0: 69 6c 65 20 22 2c 20 7a 46 69 6c 65 2c 20 30 29  ile ", zFile, 0)
13f0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
1400: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 66 73  _ERROR;.  }.  fs
1410: 65 65 6b 28 6f 75 74 2c 20 6f 66 66 73 65 74 2c  eek(out, offset,
1420: 20 53 45 45 4b 5f 53 45 54 29 3b 0a 20 20 77 72   SEEK_SET);.  wr
1430: 69 74 74 65 6e 20 3d 20 28 69 6e 74 29 66 77 72  itten = (int)fwr
1440: 69 74 65 28 61 4f 75 74 2c 20 31 2c 20 6e 4f 75  ite(aOut, 1, nOu
1450: 74 2c 20 6f 75 74 29 3b 0a 20 20 73 71 6c 69 74  t, out);.  sqlit
1460: 65 33 5f 66 72 65 65 28 61 4f 75 74 29 3b 0a 20  e3_free(aOut);. 
1470: 20 66 63 6c 6f 73 65 28 6f 75 74 29 3b 0a 20 20   fclose(out);.  
1480: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
1490: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77  (interp, Tcl_New
14a0: 49 6e 74 4f 62 6a 28 77 72 69 74 74 65 6e 29 29  IntObj(written))
14b0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f  ;.  return TCL_O
14c0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 53 41 47  K;.}../*.** USAG
14d0: 45 3a 20 20 20 68 65 78 69 6f 5f 67 65 74 5f 69  E:   hexio_get_i
14e0: 6e 74 20 20 20 48 45 58 44 41 54 41 0a 2a 2a 0a  nt   HEXDATA.**.
14f0: 2a 2a 20 49 6e 74 65 72 70 72 65 74 20 74 68 65  ** Interpret the
1500: 20 48 45 58 44 41 54 41 20 61 72 67 75 6d 65 6e   HEXDATA argumen
1510: 74 20 61 73 20 61 20 62 69 67 2d 65 6e 64 69 61  t as a big-endia
1520: 6e 20 69 6e 74 65 67 65 72 2e 20 20 52 65 74 75  n integer.  Retu
1530: 72 6e 0a 2a 2a 20 74 68 65 20 76 61 6c 75 65 20  rn.** the value 
1540: 6f 66 20 74 68 61 74 20 69 6e 74 65 67 65 72 2e  of that integer.
1550: 20 20 48 45 58 44 41 54 41 20 63 61 6e 20 63 6f    HEXDATA can co
1560: 6e 74 61 69 6e 20 62 65 74 77 65 65 6e 20 32 20  ntain between 2 
1570: 61 6e 64 20 38 0a 2a 2a 20 68 65 78 61 64 65 63  and 8.** hexadec
1580: 69 6d 61 6c 20 64 69 67 69 74 73 2e 0a 2a 2f 0a  imal digits..*/.
1590: 73 74 61 74 69 63 20 69 6e 74 20 68 65 78 69 6f  static int hexio
15a0: 5f 67 65 74 5f 69 6e 74 28 0a 20 20 76 6f 69 64  _get_int(.  void
15b0: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20   * clientData,. 
15c0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
15d0: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c  erp,.  int objc,
15e0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53  .  Tcl_Obj *CONS
15f0: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e  T objv[].){.  in
1600: 74 20 76 61 6c 3b 0a 20 20 69 6e 74 20 6e 49 6e  t val;.  int nIn
1610: 2c 20 6e 4f 75 74 3b 0a 20 20 63 6f 6e 73 74 20  , nOut;.  const 
1620: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a  unsigned char *z
1630: 49 6e 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63  In;.  unsigned c
1640: 68 61 72 20 2a 61 4f 75 74 3b 0a 20 20 75 6e 73  har *aOut;.  uns
1650: 69 67 6e 65 64 20 63 68 61 72 20 61 4e 75 6d 5b  igned char aNum[
1660: 34 5d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21  4];..  if( objc!
1670: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72  =2 ){.    Tcl_Wr
1680: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
1690: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 48 45 58  p, 1, objv, "HEX
16a0: 44 41 54 41 22 29 3b 0a 20 20 20 20 72 65 74 75  DATA");.    retu
16b0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
16c0: 7d 0a 20 20 7a 49 6e 20 3d 20 28 63 6f 6e 73 74  }.  zIn = (const
16d0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a   unsigned char *
16e0: 29 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72  )Tcl_GetStringFr
16f0: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 26  omObj(objv[1], &
1700: 6e 49 6e 29 3b 0a 20 20 61 4f 75 74 20 3d 20 73  nIn);.  aOut = s
1710: 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 6e  qlite3_malloc( n
1720: 49 6e 2f 32 20 29 3b 0a 20 20 69 66 28 20 61 4f  In/2 );.  if( aO
1730: 75 74 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65 74  ut==0 ){.    ret
1740: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
1750: 20 7d 0a 20 20 6e 4f 75 74 20 3d 20 73 71 6c 69   }.  nOut = sqli
1760: 74 65 33 54 65 73 74 48 65 78 54 6f 42 69 6e 28  te3TestHexToBin(
1770: 7a 49 6e 2c 20 6e 49 6e 2c 20 61 4f 75 74 29 3b  zIn, nIn, aOut);
1780: 0a 20 20 69 66 28 20 6e 4f 75 74 3e 3d 34 20 29  .  if( nOut>=4 )
1790: 7b 0a 20 20 20 20 6d 65 6d 63 70 79 28 61 4e 75  {.    memcpy(aNu
17a0: 6d 2c 20 61 4f 75 74 2c 20 34 29 3b 0a 20 20 7d  m, aOut, 4);.  }
17b0: 65 6c 73 65 7b 0a 20 20 20 20 6d 65 6d 73 65 74  else{.    memset
17c0: 28 61 4e 75 6d 2c 20 30 2c 20 73 69 7a 65 6f 66  (aNum, 0, sizeof
17d0: 28 61 4e 75 6d 29 29 3b 0a 20 20 20 20 6d 65 6d  (aNum));.    mem
17e0: 63 70 79 28 26 61 4e 75 6d 5b 34 2d 6e 4f 75 74  cpy(&aNum[4-nOut
17f0: 5d 2c 20 61 4f 75 74 2c 20 6e 4f 75 74 29 3b 0a  ], aOut, nOut);.
1800: 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 66 72    }.  sqlite3_fr
1810: 65 65 28 61 4f 75 74 29 3b 0a 20 20 76 61 6c 20  ee(aOut);.  val 
1820: 3d 20 28 61 4e 75 6d 5b 30 5d 3c 3c 32 34 29 20  = (aNum[0]<<24) 
1830: 7c 20 28 61 4e 75 6d 5b 31 5d 3c 3c 31 36 29 20  | (aNum[1]<<16) 
1840: 7c 20 28 61 4e 75 6d 5b 32 5d 3c 3c 38 29 20 7c  | (aNum[2]<<8) |
1850: 20 61 4e 75 6d 5b 33 5d 3b 0a 20 20 54 63 6c 5f   aNum[3];.  Tcl_
1860: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
1870: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f  erp, Tcl_NewIntO
1880: 62 6a 28 76 61 6c 29 29 3b 0a 20 20 72 65 74 75  bj(val));.  retu
1890: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f  rn TCL_OK;.}.../
18a0: 2a 0a 2a 2a 20 55 53 41 47 45 3a 20 20 20 68 65  *.** USAGE:   he
18b0: 78 69 6f 5f 72 65 6e 64 65 72 5f 69 6e 74 31 36  xio_render_int16
18c0: 20 20 20 49 4e 54 45 47 45 52 0a 2a 2a 0a 2a 2a     INTEGER.**.**
18d0: 20 52 65 6e 64 65 72 20 49 4e 54 45 47 45 52 20   Render INTEGER 
18e0: 68 61 73 20 61 20 31 36 2d 62 69 74 20 62 69 67  has a 16-bit big
18f0: 2d 65 6e 64 69 61 6e 20 69 6e 74 65 67 65 72 20  -endian integer 
1900: 69 6e 20 68 65 78 61 64 65 63 69 6d 61 6c 2e 0a  in hexadecimal..
1910: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 68 65  */.static int he
1920: 78 69 6f 5f 72 65 6e 64 65 72 5f 69 6e 74 31 36  xio_render_int16
1930: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e  (.  void * clien
1940: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74  tData,.  Tcl_Int
1950: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69  erp *interp,.  i
1960: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f  nt objc,.  Tcl_O
1970: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d  bj *CONST objv[]
1980: 0a 29 7b 0a 20 20 69 6e 74 20 76 61 6c 3b 0a 20  .){.  int val;. 
1990: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 61   unsigned char a
19a0: 4e 75 6d 5b 31 30 5d 3b 0a 0a 20 20 69 66 28 20  Num[10];..  if( 
19b0: 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54  objc!=2 ){.    T
19c0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
19d0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c  interp, 1, objv,
19e0: 20 22 49 4e 54 45 47 45 52 22 29 3b 0a 20 20 20   "INTEGER");.   
19f0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
1a00: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c  R;.  }.  if( Tcl
1a10: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69  _GetIntFromObj(i
1a20: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20  nterp, objv[1], 
1a30: 26 76 61 6c 29 20 29 20 72 65 74 75 72 6e 20 54  &val) ) return T
1a40: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 61 4e 75 6d  CL_ERROR;.  aNum
1a50: 5b 30 5d 20 3d 20 76 61 6c 3e 3e 38 3b 0a 20 20  [0] = val>>8;.  
1a60: 61 4e 75 6d 5b 31 5d 20 3d 20 76 61 6c 3b 0a 20  aNum[1] = val;. 
1a70: 20 73 71 6c 69 74 65 33 54 65 73 74 42 69 6e 54   sqlite3TestBinT
1a80: 6f 48 65 78 28 61 4e 75 6d 2c 20 32 29 3b 0a 20  oHex(aNum, 2);. 
1a90: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
1aa0: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65  t(interp, Tcl_Ne
1ab0: 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 72  wStringObj((char
1ac0: 2a 29 61 4e 75 6d 2c 20 34 29 29 3b 0a 20 20 72  *)aNum, 4));.  r
1ad0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a  eturn TCL_OK;.}.
1ae0: 0a 0a 2f 2a 0a 2a 2a 20 55 53 41 47 45 3a 20 20  ../*.** USAGE:  
1af0: 20 68 65 78 69 6f 5f 72 65 6e 64 65 72 5f 69 6e   hexio_render_in
1b00: 74 33 32 20 20 20 49 4e 54 45 47 45 52 0a 2a 2a  t32   INTEGER.**
1b10: 0a 2a 2a 20 52 65 6e 64 65 72 20 49 4e 54 45 47  .** Render INTEG
1b20: 45 52 20 68 61 73 20 61 20 33 32 2d 62 69 74 20  ER has a 32-bit 
1b30: 62 69 67 2d 65 6e 64 69 61 6e 20 69 6e 74 65 67  big-endian integ
1b40: 65 72 20 69 6e 20 68 65 78 61 64 65 63 69 6d 61  er in hexadecima
1b50: 6c 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  l..*/.static int
1b60: 20 68 65 78 69 6f 5f 72 65 6e 64 65 72 5f 69 6e   hexio_render_in
1b70: 74 33 32 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c  t32(.  void * cl
1b80: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f  ientData,.  Tcl_
1b90: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a  Interp *interp,.
1ba0: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63    int objc,.  Tc
1bb0: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a  l_Obj *CONST obj
1bc0: 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 76 61 6c  v[].){.  int val
1bd0: 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61  ;.  unsigned cha
1be0: 72 20 61 4e 75 6d 5b 31 30 5d 3b 0a 0a 20 20 69  r aNum[10];..  i
1bf0: 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20  f( objc!=2 ){.  
1c00: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72    Tcl_WrongNumAr
1c10: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62  gs(interp, 1, ob
1c20: 6a 76 2c 20 22 49 4e 54 45 47 45 52 22 29 3b 0a  jv, "INTEGER");.
1c30: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
1c40: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  RROR;.  }.  if( 
1c50: 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62  Tcl_GetIntFromOb
1c60: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31  j(interp, objv[1
1c70: 5d 2c 20 26 76 61 6c 29 20 29 20 72 65 74 75 72  ], &val) ) retur
1c80: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 61  n TCL_ERROR;.  a
1c90: 4e 75 6d 5b 30 5d 20 3d 20 76 61 6c 3e 3e 32 34  Num[0] = val>>24
1ca0: 3b 0a 20 20 61 4e 75 6d 5b 31 5d 20 3d 20 76 61  ;.  aNum[1] = va
1cb0: 6c 3e 3e 31 36 3b 0a 20 20 61 4e 75 6d 5b 32 5d  l>>16;.  aNum[2]
1cc0: 20 3d 20 76 61 6c 3e 3e 38 3b 0a 20 20 61 4e 75   = val>>8;.  aNu
1cd0: 6d 5b 33 5d 20 3d 20 76 61 6c 3b 0a 20 20 73 71  m[3] = val;.  sq
1ce0: 6c 69 74 65 33 54 65 73 74 42 69 6e 54 6f 48 65  lite3TestBinToHe
1cf0: 78 28 61 4e 75 6d 2c 20 34 29 3b 0a 20 20 54 63  x(aNum, 4);.  Tc
1d00: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
1d10: 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74  nterp, Tcl_NewSt
1d20: 72 69 6e 67 4f 62 6a 28 28 63 68 61 72 2a 29 61  ringObj((char*)a
1d30: 4e 75 6d 2c 20 38 29 29 3b 0a 20 20 72 65 74 75  Num, 8));.  retu
1d40: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a  rn TCL_OK;.}../*
1d50: 0a 2a 2a 20 55 53 41 47 45 3a 20 20 75 74 66 38  .** USAGE:  utf8
1d60: 5f 74 6f 5f 75 74 66 38 20 20 48 45 58 0a 2a 2a  _to_utf8  HEX.**
1d70: 0a 2a 2a 20 54 68 65 20 61 72 67 75 6d 65 6e 74  .** The argument
1d80: 20 69 73 20 61 20 55 54 46 38 20 73 74 72 69 6e   is a UTF8 strin
1d90: 67 20 72 65 70 72 65 73 65 6e 74 65 64 20 69 6e  g represented in
1da0: 20 68 65 78 61 64 65 63 69 6d 61 6c 2e 0a 2a 2a   hexadecimal..**
1db0: 20 54 68 65 20 55 54 46 38 20 6d 69 67 68 74 20   The UTF8 might 
1dc0: 6e 6f 74 20 62 65 20 77 65 6c 6c 2d 66 6f 72 6d  not be well-form
1dd0: 65 64 2e 20 20 52 75 6e 20 74 68 69 73 20 73 74  ed.  Run this st
1de0: 72 69 6e 67 20 74 68 72 6f 75 67 68 0a 2a 2a 20  ring through.** 
1df0: 73 71 6c 69 74 65 33 55 74 66 38 74 6f 38 28 29  sqlite3Utf8to8()
1e00: 20 63 6f 6e 76 65 72 74 20 69 74 20 62 61 63 6b   convert it back
1e10: 20 74 6f 20 68 65 78 20 61 6e 64 20 72 65 74 75   to hex and retu
1e20: 72 6e 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 2a  rn the result..*
1e30: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 75 74 66  /.static int utf
1e40: 38 5f 74 6f 5f 75 74 66 38 28 0a 20 20 76 6f 69  8_to_utf8(.  voi
1e50: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a  d * clientData,.
1e60: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
1e70: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63  terp,.  int objc
1e80: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  ,.  Tcl_Obj *CON
1e90: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66  ST objv[].){.#if
1ea0: 64 65 66 20 53 51 4c 49 54 45 5f 44 45 42 55 47  def SQLITE_DEBUG
1eb0: 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 69 6e 74 20  .  int n;.  int 
1ec0: 6e 4f 75 74 3b 0a 20 20 63 6f 6e 73 74 20 75 6e  nOut;.  const un
1ed0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 4f 72  signed char *zOr
1ee0: 69 67 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63  ig;.  unsigned c
1ef0: 68 61 72 20 2a 7a 3b 0a 20 20 69 66 28 20 6f 62  har *z;.  if( ob
1f00: 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c  jc!=2 ){.    Tcl
1f10: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e  _WrongNumArgs(in
1f20: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22  terp, 1, objv, "
1f30: 48 45 58 22 29 3b 0a 20 20 20 20 72 65 74 75 72  HEX");.    retur
1f40: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
1f50: 0a 20 20 7a 4f 72 69 67 20 3d 20 28 75 6e 73 69  .  zOrig = (unsi
1f60: 67 6e 65 64 20 63 68 61 72 20 2a 29 54 63 6c 5f  gned char *)Tcl_
1f70: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a  GetStringFromObj
1f80: 28 6f 62 6a 76 5b 31 5d 2c 20 26 6e 29 3b 0a 20  (objv[1], &n);. 
1f90: 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c   z = sqlite3_mal
1fa0: 6c 6f 63 28 20 6e 2b 33 20 29 3b 0a 20 20 6e 20  loc( n+3 );.  n 
1fb0: 3d 20 73 71 6c 69 74 65 33 54 65 73 74 48 65 78  = sqlite3TestHex
1fc0: 54 6f 42 69 6e 28 7a 4f 72 69 67 2c 20 6e 2c 20  ToBin(zOrig, n, 
1fd0: 7a 29 3b 0a 20 20 7a 5b 6e 5d 20 3d 20 30 3b 0a  z);.  z[n] = 0;.
1fe0: 20 20 6e 4f 75 74 20 3d 20 73 71 6c 69 74 65 33    nOut = sqlite3
1ff0: 55 74 66 38 54 6f 38 28 7a 29 3b 0a 20 20 73 71  Utf8To8(z);.  sq
2000: 6c 69 74 65 33 54 65 73 74 42 69 6e 54 6f 48 65  lite3TestBinToHe
2010: 78 28 7a 2c 6e 4f 75 74 29 3b 0a 20 20 54 63 6c  x(z,nOut);.  Tcl
2020: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
2030: 74 65 72 70 2c 20 28 63 68 61 72 2a 29 7a 2c 20  terp, (char*)z, 
2040: 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72  0);.  sqlite3_fr
2050: 65 65 28 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20  ee(z);.  return 
2060: 54 43 4c 5f 4f 4b 3b 0a 23 65 6c 73 65 0a 20 20  TCL_OK;.#else.  
2070: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
2080: 28 69 6e 74 65 72 70 2c 20 0a 20 20 20 20 20 20  (interp, .      
2090: 22 5b 75 74 66 38 5f 74 6f 5f 75 74 66 38 5d 20  "[utf8_to_utf8] 
20a0: 75 6e 61 76 61 69 6c 61 62 6c 65 20 2d 20 53 51  unavailable - SQ
20b0: 4c 49 54 45 5f 44 45 42 55 47 20 6e 6f 74 20 64  LITE_DEBUG not d
20c0: 65 66 69 6e 65 64 22 2c 20 30 0a 20 20 29 3b 0a  efined", 0.  );.
20d0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
20e0: 4f 52 3b 0a 23 65 6e 64 69 66 0a 7d 0a 0a 73 74  OR;.#endif.}..st
20f0: 61 74 69 63 20 69 6e 74 20 67 65 74 46 74 73 33  atic int getFts3
2100: 56 61 72 69 6e 74 28 63 6f 6e 73 74 20 63 68 61  Varint(const cha
2110: 72 20 2a 70 2c 20 73 71 6c 69 74 65 5f 69 6e 74  r *p, sqlite_int
2120: 36 34 20 2a 76 29 7b 0a 20 20 63 6f 6e 73 74 20  64 *v){.  const 
2130: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 71  unsigned char *q
2140: 20 3d 20 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e   = (const unsign
2150: 65 64 20 63 68 61 72 20 2a 29 20 70 3b 0a 20 20  ed char *) p;.  
2160: 73 71 6c 69 74 65 5f 75 69 6e 74 36 34 20 78 20  sqlite_uint64 x 
2170: 3d 20 30 2c 20 79 20 3d 20 31 3b 0a 20 20 77 68  = 0, y = 1;.  wh
2180: 69 6c 65 28 20 28 2a 71 20 26 20 30 78 38 30 29  ile( (*q & 0x80)
2190: 20 3d 3d 20 30 78 38 30 20 29 7b 0a 20 20 20 20   == 0x80 ){.    
21a0: 78 20 2b 3d 20 79 20 2a 20 28 2a 71 2b 2b 20 26  x += y * (*q++ &
21b0: 20 30 78 37 66 29 3b 0a 20 20 20 20 79 20 3c 3c   0x7f);.    y <<
21c0: 3d 20 37 3b 0a 20 20 7d 0a 20 20 78 20 2b 3d 20  = 7;.  }.  x += 
21d0: 79 20 2a 20 28 2a 71 2b 2b 29 3b 0a 20 20 2a 76  y * (*q++);.  *v
21e0: 20 3d 20 28 73 71 6c 69 74 65 5f 69 6e 74 36 34   = (sqlite_int64
21f0: 29 20 78 3b 0a 20 20 72 65 74 75 72 6e 20 28 69  ) x;.  return (i
2200: 6e 74 29 20 28 71 20 2d 20 28 75 6e 73 69 67 6e  nt) (q - (unsign
2210: 65 64 20 63 68 61 72 20 2a 29 70 29 3b 0a 7d 0a  ed char *)p);.}.
2220: 0a 0a 2f 2a 0a 2a 2a 20 55 53 41 47 45 3a 20 20  ../*.** USAGE:  
2230: 72 65 61 64 5f 66 74 73 33 76 61 72 69 6e 74 20  read_fts3varint 
2240: 42 4c 4f 42 20 56 41 52 4e 41 4d 45 0a 2a 2a 0a  BLOB VARNAME.**.
2250: 2a 2a 20 52 65 61 64 20 61 20 76 61 72 69 6e 74  ** Read a varint
2260: 20 66 72 6f 6d 20 74 68 65 20 73 74 61 72 74 20   from the start 
2270: 6f 66 20 42 4c 4f 42 2e 20 53 65 74 20 76 61 72  of BLOB. Set var
2280: 69 61 62 6c 65 20 56 41 52 4e 41 4d 45 20 74 6f  iable VARNAME to
2290: 20 63 6f 6e 74 61 69 6e 0a 2a 2a 20 74 68 65 20   contain.** the 
22a0: 69 6e 74 65 72 70 72 65 74 65 64 20 76 61 6c 75  interpreted valu
22b0: 65 2e 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75  e. Return the nu
22c0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 6f 66  mber of bytes of
22d0: 20 42 4c 4f 42 20 63 6f 6e 73 75 6d 65 64 2e 0a   BLOB consumed..
22e0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 72 65  */.static int re
22f0: 61 64 5f 66 74 73 33 76 61 72 69 6e 74 28 0a 20  ad_fts3varint(. 
2300: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61   void * clientDa
2310: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ta,.  Tcl_Interp
2320: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
2330: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
2340: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
2350: 0a 20 20 69 6e 74 20 6e 42 6c 6f 62 3b 0a 20 20  .  int nBlob;.  
2360: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a  unsigned char *z
2370: 42 6c 6f 62 3b 0a 20 20 73 71 6c 69 74 65 33 5f  Blob;.  sqlite3_
2380: 69 6e 74 36 34 20 69 56 61 6c 3b 0a 20 20 69 6e  int64 iVal;.  in
2390: 74 20 6e 56 61 6c 3b 0a 0a 20 20 69 66 28 20 6f  t nVal;..  if( o
23a0: 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63  bjc!=3 ){.    Tc
23b0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
23c0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
23d0: 22 42 4c 4f 42 20 56 41 52 4e 41 4d 45 22 29 3b  "BLOB VARNAME");
23e0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
23f0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 42 6c  ERROR;.  }.  zBl
2400: 6f 62 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65  ob = Tcl_GetByte
2410: 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a  ArrayFromObj(obj
2420: 76 5b 31 5d 2c 20 26 6e 42 6c 6f 62 29 3b 0a 0a  v[1], &nBlob);..
2430: 20 20 6e 56 61 6c 20 3d 20 67 65 74 46 74 73 33    nVal = getFts3
2440: 56 61 72 69 6e 74 28 28 63 68 61 72 2a 29 7a 42  Varint((char*)zB
2450: 6c 6f 62 2c 20 28 73 71 6c 69 74 65 33 5f 69 6e  lob, (sqlite3_in
2460: 74 36 34 20 2a 29 28 26 69 56 61 6c 29 29 3b 0a  t64 *)(&iVal));.
2470: 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 72 32    Tcl_ObjSetVar2
2480: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d  (interp, objv[2]
2490: 2c 20 30 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65  , 0, Tcl_NewWide
24a0: 49 6e 74 4f 62 6a 28 69 56 61 6c 29 2c 20 30 29  IntObj(iVal), 0)
24b0: 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65  ;.  Tcl_SetObjRe
24c0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c  sult(interp, Tcl
24d0: 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e 56 61 6c 29  _NewIntObj(nVal)
24e0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  );.  return TCL_
24f0: 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65  OK;.}.../*.** Re
2500: 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73 20  gister commands 
2510: 77 69 74 68 20 74 68 65 20 54 43 4c 20 69 6e 74  with the TCL int
2520: 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e 74  erpreter..*/.int
2530: 20 53 71 6c 69 74 65 74 65 73 74 5f 68 65 78 69   Sqlitetest_hexi
2540: 6f 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72  o_Init(Tcl_Inter
2550: 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 73 74  p *interp){.  st
2560: 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20  atic struct {.  
2570: 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a     char *zName;.
2580: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50       Tcl_ObjCmdP
2590: 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 7d 20  roc *xProc;.  } 
25a0: 61 4f 62 6a 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20  aObjCmd[] = {.  
25b0: 20 20 20 7b 20 22 68 65 78 69 6f 5f 72 65 61 64     { "hexio_read
25c0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ",              
25d0: 20 20 20 20 20 68 65 78 69 6f 5f 72 65 61 64 20       hexio_read 
25e0: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20             },.  
25f0: 20 20 20 7b 20 22 68 65 78 69 6f 5f 77 72 69 74     { "hexio_writ
2600: 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  e",             
2610: 20 20 20 20 20 68 65 78 69 6f 5f 77 72 69 74 65       hexio_write
2620: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20             },.  
2630: 20 20 20 7b 20 22 68 65 78 69 6f 5f 67 65 74 5f     { "hexio_get_
2640: 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20 20 20  int",           
2650: 20 20 20 20 20 68 65 78 69 6f 5f 67 65 74 5f 69       hexio_get_i
2660: 6e 74 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20  nt         },.  
2670: 20 20 20 7b 20 22 68 65 78 69 6f 5f 72 65 6e 64     { "hexio_rend
2680: 65 72 5f 69 6e 74 31 36 22 2c 20 20 20 20 20 20  er_int16",      
2690: 20 20 20 20 20 68 65 78 69 6f 5f 72 65 6e 64 65       hexio_rende
26a0: 72 5f 69 6e 74 31 36 20 20 20 20 7d 2c 0a 20 20  r_int16    },.  
26b0: 20 20 20 7b 20 22 68 65 78 69 6f 5f 72 65 6e 64     { "hexio_rend
26c0: 65 72 5f 69 6e 74 33 32 22 2c 20 20 20 20 20 20  er_int32",      
26d0: 20 20 20 20 20 68 65 78 69 6f 5f 72 65 6e 64 65       hexio_rende
26e0: 72 5f 69 6e 74 33 32 20 20 20 20 7d 2c 0a 20 20  r_int32    },.  
26f0: 20 20 20 7b 20 22 75 74 66 38 5f 74 6f 5f 75 74     { "utf8_to_ut
2700: 66 38 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  f8",            
2710: 20 20 20 20 20 75 74 66 38 5f 74 6f 5f 75 74 66       utf8_to_utf
2720: 38 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20  8          },.  
2730: 20 20 20 7b 20 22 72 65 61 64 5f 66 74 73 33 76     { "read_fts3v
2740: 61 72 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20  arint",         
2750: 20 20 20 20 20 72 65 61 64 5f 66 74 73 33 76 61       read_fts3va
2760: 72 69 6e 74 20 20 20 20 20 20 20 7d 2c 0a 20 20  rint       },.  
2770: 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f  };.  int i;.  fo
2780: 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28  r(i=0; i<sizeof(
2790: 61 4f 62 6a 43 6d 64 29 2f 73 69 7a 65 6f 66 28  aObjCmd)/sizeof(
27a0: 61 4f 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b  aObjCmd[0]); i++
27b0: 29 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74  ){.    Tcl_Creat
27c0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  eObjCommand(inte
27d0: 72 70 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 7a  rp, aObjCmd[i].z
27e0: 4e 61 6d 65 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d  Name, aObjCmd[i]
27f0: 2e 78 50 72 6f 63 2c 20 30 2c 20 30 29 3b 0a 20  .xProc, 0, 0);. 
2800: 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f   }.  return TCL_
2810: 4f 4b 3b 0a 7d 0a                                OK;.}.