/ Hex Artifact Content
Login

Artifact 32204b5ce281ebc85f789c69c4ec725129e7e7f5:


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 2a 0a 2a 2a 20 24 49 64 3a 20 74 65 73 74  .**.** $Id: test
0330: 5f 68 65 78 69 6f 2e 63 2c 76 20 31 2e 32 20 32  _hexio.c,v 1.2 2
0340: 30 30 37 2f 30 34 2f 30 39 20 32 30 3a 33 30 3a  007/04/09 20:30:
0350: 31 31 20 64 72 68 20 45 78 70 20 24 0a 2a 2f 0a  11 drh Exp $.*/.
0360: 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e 68 22  #include "tcl.h"
0370: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69  .#include <stdli
0380: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73  b.h>.#include <s
0390: 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64  tring.h>.#includ
03a0: 65 20 3c 61 73 73 65 72 74 2e 68 3e 0a 0a 2f 2a  e <assert.h>../*
03b0: 0a 68 65 78 69 6f 5f 72 65 61 64 20 20 66 69 6c  .hexio_read  fil
03c0: 65 6e 61 6d 65 20 6f 66 66 73 65 74 20 61 6d 74  ename offset amt
03d0: 0a 68 65 78 69 6f 5f 77 72 69 74 65 20 66 69 6c  .hexio_write fil
03e0: 65 6e 61 6d 65 20 6f 66 66 73 65 74 20 68 65 78  ename offset hex
03f0: 64 61 74 61 0a 68 65 78 69 6f 5f 67 65 74 5f 69  data.hexio_get_i
0400: 6e 74 20 20 68 65 78 64 61 74 61 0a 68 65 78 69  nt  hexdata.hexi
0410: 6f 5f 67 65 74 5f 76 61 72 69 6e 74 20 20 68 65  o_get_varint  he
0420: 78 64 61 74 61 0a 68 65 78 69 6f 5f 72 65 6e 64  xdata.hexio_rend
0430: 65 72 5f 69 6e 74 38 20 20 69 6e 74 65 67 65 72  er_int8  integer
0440: 0a 68 65 78 69 6f 5f 72 65 6e 64 65 72 5f 69 6e  .hexio_render_in
0450: 74 31 36 20 20 69 6e 74 65 67 65 72 0a 68 65 78  t16  integer.hex
0460: 69 6f 5f 72 65 6e 64 65 72 5f 69 6e 74 33 38 20  io_render_int38 
0470: 20 69 6e 74 65 67 65 72 0a 68 65 78 69 6f 5f 72   integer.hexio_r
0480: 65 6e 64 65 72 5f 76 61 72 69 6e 74 20 20 69 6e  ender_varint  in
0490: 74 65 67 65 72 0a 2a 2f 0a 0a 2f 2a 0a 2a 2a 20  teger.*/../*.** 
04a0: 43 6f 6e 76 65 72 74 20 62 69 6e 61 72 79 20 74  Convert binary t
04b0: 6f 20 68 65 78 2e 20 20 54 68 65 20 69 6e 70 75  o hex.  The inpu
04c0: 74 20 7a 42 75 66 5b 5d 20 63 6f 6e 74 61 69 6e  t zBuf[] contain
04d0: 73 20 4e 20 62 79 74 65 73 20 6f 66 0a 2a 2a 20  s N bytes of.** 
04e0: 62 69 6e 61 72 79 20 64 61 74 61 2e 20 20 7a 42  binary data.  zB
04f0: 75 66 5b 5d 20 69 73 20 32 2a 6e 2b 31 20 62 79  uf[] is 2*n+1 by
0500: 74 65 73 20 6c 6f 6e 67 2e 20 20 4f 76 65 72 77  tes long.  Overw
0510: 72 69 74 65 20 7a 42 75 66 5b 5d 0a 2a 2a 20 77  rite zBuf[].** w
0520: 69 74 68 20 61 20 68 65 78 61 64 65 63 69 6d 61  ith a hexadecima
0530: 6c 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e  l representation
0540: 20 6f 66 20 69 74 73 20 6f 72 69 67 69 6e 61 6c   of its original
0550: 20 62 69 6e 61 72 79 20 69 6e 70 75 74 2e 0a 2a   binary input..*
0560: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 62 69  /.static void bi
0570: 6e 54 6f 48 65 78 28 75 6e 73 69 67 6e 65 64 20  nToHex(unsigned 
0580: 63 68 61 72 20 2a 7a 42 75 66 2c 20 69 6e 74 20  char *zBuf, int 
0590: 4e 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69  N){.  const unsi
05a0: 67 6e 65 64 20 63 68 61 72 20 7a 48 65 78 5b 5d  gned char zHex[]
05b0: 20 3d 20 22 30 31 32 33 34 35 36 37 38 39 41 42   = "0123456789AB
05c0: 43 44 45 46 22 3b 0a 20 20 69 6e 74 20 69 2c 20  CDEF";.  int i, 
05d0: 6a 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68  j;.  unsigned ch
05e0: 61 72 20 63 3b 0a 20 20 69 20 3d 20 4e 2a 32 3b  ar c;.  i = N*2;
05f0: 0a 20 20 7a 42 75 66 5b 69 2d 2d 5d 20 3d 20 30  .  zBuf[i--] = 0
0600: 3b 0a 20 20 66 6f 72 28 6a 3d 4e 2d 31 3b 20 6a  ;.  for(j=N-1; j
0610: 3e 3d 30 3b 20 6a 2d 2d 29 7b 0a 20 20 20 20 63  >=0; j--){.    c
0620: 20 3d 20 7a 42 75 66 5b 6a 5d 3b 0a 20 20 20 20   = zBuf[j];.    
0630: 7a 42 75 66 5b 69 2d 2d 5d 20 3d 20 7a 48 65 78  zBuf[i--] = zHex
0640: 5b 63 26 30 78 66 5d 3b 0a 20 20 20 20 7a 42 75  [c&0xf];.    zBu
0650: 66 5b 69 2d 2d 5d 20 3d 20 7a 48 65 78 5b 63 3e  f[i--] = zHex[c>
0660: 3e 34 5d 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72  >4];.  }.  asser
0670: 74 28 20 69 3d 3d 2d 31 20 29 3b 0a 7d 0a 0a 2f  t( i==-1 );.}../
0680: 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 68 65 78  *.** Convert hex
0690: 20 74 6f 20 62 69 6e 61 72 79 2e 20 20 54 68 65   to binary.  The
06a0: 20 69 6e 70 75 74 20 7a 49 6e 5b 5d 20 63 6f 6e   input zIn[] con
06b0: 74 61 69 6e 73 20 4e 20 62 79 74 65 73 20 6f 66  tains N bytes of
06c0: 0a 2a 2a 20 68 65 78 61 64 65 63 69 6d 61 6c 2e  .** hexadecimal.
06d0: 20 20 43 6f 6e 76 65 72 74 20 74 68 69 73 20 69    Convert this i
06e0: 6e 74 6f 20 62 69 6e 61 72 79 20 61 6e 64 20 77  nto binary and w
06f0: 72 69 74 65 20 61 4f 75 74 5b 5d 20 77 69 74 68  rite aOut[] with
0700: 0a 2a 2a 20 74 68 65 20 62 69 6e 61 72 79 20 64  .** the binary d
0710: 61 74 61 2e 20 20 53 70 61 63 65 73 20 69 6e 20  ata.  Spaces in 
0720: 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 69 6e 70  the original inp
0730: 75 74 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a  ut are ignored..
0740: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75  ** Return the nu
0750: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 6f 66  mber of bytes of
0760: 20 62 69 6e 61 72 79 20 72 65 6e 64 65 72 65 64   binary rendered
0770: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
0780: 68 65 78 54 6f 42 69 6e 28 63 6f 6e 73 74 20 75  hexToBin(const u
0790: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 49  nsigned char *zI
07a0: 6e 2c 20 69 6e 74 20 4e 2c 20 75 6e 73 69 67 6e  n, int N, unsign
07b0: 65 64 20 63 68 61 72 20 2a 61 4f 75 74 29 7b 0a  ed char *aOut){.
07c0: 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64    const unsigned
07d0: 20 63 68 61 72 20 61 4d 61 70 5b 5d 20 3d 20 7b   char aMap[] = {
07e0: 0a 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30  .     0, 0, 0, 0
07f0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20 30  , 0, 0, 0, 0,  0
0800: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
0810: 20 30 2c 20 30 2c 0a 20 20 20 20 20 30 2c 20 30   0, 0,.     0, 0
0820: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
0830: 20 30 2c 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c   0,  0, 0, 0, 0,
0840: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20   0, 0, 0, 0,.   
0850: 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c    0, 0, 0, 0, 0,
0860: 20 30 2c 20 30 2c 20 30 2c 20 20 30 2c 20 30 2c   0, 0, 0,  0, 0,
0870: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
0880: 30 2c 0a 20 20 20 20 20 31 2c 20 32 2c 20 33 2c  0,.     1, 2, 3,
0890: 20 34 2c 20 35 2c 20 36 2c 20 37 2c 20 38 2c 20   4, 5, 6, 7, 8, 
08a0: 20 39 2c 31 30 2c 20 30 2c 20 30 2c 20 30 2c 20   9,10, 0, 0, 0, 
08b0: 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 30 2c  0, 0, 0,.     0,
08c0: 31 31 2c 31 32 2c 31 33 2c 31 34 2c 31 35 2c 31  11,12,13,14,15,1
08d0: 36 2c 20 30 2c 20 20 30 2c 20 30 2c 20 30 2c 20  6, 0,  0, 0, 0, 
08e0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20  0, 0, 0, 0, 0,. 
08f0: 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20      0, 0, 0, 0, 
0900: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20 30 2c 20  0, 0, 0, 0,  0, 
0910: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
0920: 2c 20 30 2c 0a 20 20 20 20 20 30 2c 31 31 2c 31  , 0,.     0,11,1
0930: 32 2c 31 33 2c 31 34 2c 31 35 2c 31 36 2c 20 30  2,13,14,15,16, 0
0940: 2c 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  ,  0, 0, 0, 0, 0
0950: 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20  , 0, 0, 0,.     
0960: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
0970: 2c 20 30 2c 20 30 2c 20 20 30 2c 20 30 2c 20 30  , 0, 0,  0, 0, 0
0980: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
0990: 0a 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30  .     0, 0, 0, 0
09a0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20 30  , 0, 0, 0, 0,  0
09b0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
09c0: 20 30 2c 20 30 2c 0a 20 20 20 20 20 30 2c 20 30   0, 0,.     0, 0
09d0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
09e0: 20 30 2c 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c   0,  0, 0, 0, 0,
09f0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20   0, 0, 0, 0,.   
0a00: 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c    0, 0, 0, 0, 0,
0a10: 20 30 2c 20 30 2c 20 30 2c 20 20 30 2c 20 30 2c   0, 0, 0,  0, 0,
0a20: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
0a30: 30 2c 0a 20 20 20 20 20 30 2c 20 30 2c 20 30 2c  0,.     0, 0, 0,
0a40: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
0a50: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
0a60: 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 30 2c  0, 0, 0,.     0,
0a70: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
0a80: 30 2c 20 30 2c 20 20 30 2c 20 30 2c 20 30 2c 20  0, 0,  0, 0, 0, 
0a90: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20  0, 0, 0, 0, 0,. 
0aa0: 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20      0, 0, 0, 0, 
0ab0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20 30 2c 20  0, 0, 0, 0,  0, 
0ac0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
0ad0: 2c 20 30 2c 0a 20 20 20 20 20 30 2c 20 30 2c 20  , 0,.     0, 0, 
0ae0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
0af0: 2c 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  ,  0, 0, 0, 0, 0
0b00: 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20  , 0, 0, 0,.     
0b10: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30  0, 0, 0, 0, 0, 0
0b20: 2c 20 30 2c 20 30 2c 20 20 30 2c 20 30 2c 20 30  , 0, 0,  0, 0, 0
0b30: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
0b40: 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 69 2c 20 6a  .  };.  int i, j
0b50: 3b 0a 20 20 69 6e 74 20 68 69 3d 31 3b 0a 20 20  ;.  int hi=1;.  
0b60: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 63 3b  unsigned char c;
0b70: 0a 0a 20 20 66 6f 72 28 69 3d 6a 3d 30 3b 20 69  ..  for(i=j=0; i
0b80: 3c 4e 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 63 20  <N; i++){.    c 
0b90: 3d 20 61 4d 61 70 5b 7a 49 6e 5b 69 5d 5d 3b 0a  = aMap[zIn[i]];.
0ba0: 20 20 20 20 69 66 28 20 63 3d 3d 30 20 29 20 63      if( c==0 ) c
0bb0: 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 69 66 28  ontinue;.    if(
0bc0: 20 68 69 20 29 7b 0a 20 20 20 20 20 20 61 4f 75   hi ){.      aOu
0bd0: 74 5b 6a 5d 20 3d 20 28 63 2d 31 29 3c 3c 34 3b  t[j] = (c-1)<<4;
0be0: 0a 20 20 20 20 20 20 68 69 20 3d 20 30 3b 0a 20  .      hi = 0;. 
0bf0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
0c00: 61 4f 75 74 5b 6a 2b 2b 5d 20 7c 3d 20 63 2d 31  aOut[j++] |= c-1
0c10: 3b 0a 20 20 20 20 20 20 68 69 20 3d 20 31 3b 0a  ;.      hi = 1;.
0c20: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75      }.  }.  retu
0c30: 72 6e 20 6a 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20  rn j;.}.../*.** 
0c40: 55 73 61 67 65 3a 20 20 20 68 65 78 69 6f 5f 72  Usage:   hexio_r
0c50: 65 61 64 20 20 46 49 4c 45 4e 41 4d 45 20 20 4f  ead  FILENAME  O
0c60: 46 46 53 45 54 20 20 41 4d 54 0a 2a 2a 0a 2a 2a  FFSET  AMT.**.**
0c70: 20 52 65 61 64 20 41 4d 54 20 62 79 74 65 73 20   Read AMT bytes 
0c80: 66 72 6f 6d 20 66 69 6c 65 20 46 49 4c 45 4e 41  from file FILENA
0c90: 4d 45 20 62 65 67 69 6e 6e 69 6e 67 20 61 74 20  ME beginning at 
0ca0: 4f 46 46 53 45 54 20 66 72 6f 6d 20 74 68 65 0a  OFFSET from the.
0cb0: 2a 2a 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20  ** beginning of 
0cc0: 74 68 65 20 66 69 6c 65 2e 20 20 43 6f 6e 76 65  the file.  Conve
0cd0: 72 74 20 74 68 61 74 20 69 6e 66 6f 72 6d 61 74  rt that informat
0ce0: 69 6f 6e 20 74 6f 20 68 65 78 61 64 65 63 69 6d  ion to hexadecim
0cf0: 61 6c 0a 2a 2a 20 61 6e 64 20 72 65 74 75 72 6e  al.** and return
0d00: 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 48   the resulting H
0d10: 45 58 20 73 74 72 69 6e 67 2e 0a 2a 2f 0a 73 74  EX string..*/.st
0d20: 61 74 69 63 20 69 6e 74 20 68 65 78 69 6f 5f 72  atic int hexio_r
0d30: 65 61 64 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c  ead(.  void * cl
0d40: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f  ientData,.  Tcl_
0d50: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a  Interp *interp,.
0d60: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63    int objc,.  Tc
0d70: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a  l_Obj *CONST obj
0d80: 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 6f 66 66  v[].){.  int off
0d90: 73 65 74 3b 0a 20 20 69 6e 74 20 61 6d 74 2c 20  set;.  int amt, 
0da0: 67 6f 74 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61  got;.  const cha
0db0: 72 20 2a 7a 46 69 6c 65 3b 0a 20 20 75 6e 73 69  r *zFile;.  unsi
0dc0: 67 6e 65 64 20 63 68 61 72 20 2a 7a 42 75 66 3b  gned char *zBuf;
0dd0: 0a 20 20 46 49 4c 45 20 2a 69 6e 3b 0a 0a 20 20  .  FILE *in;..  
0de0: 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20  if( objc!=4 ){. 
0df0: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41     Tcl_WrongNumA
0e00: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f  rgs(interp, 1, o
0e10: 62 6a 76 2c 20 22 46 49 4c 45 4e 41 4d 45 20 4f  bjv, "FILENAME O
0e20: 46 46 53 45 54 20 41 4d 54 22 29 3b 0a 20 20 20  FFSET AMT");.   
0e30: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
0e40: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c  R;.  }.  if( Tcl
0e50: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69  _GetIntFromObj(i
0e60: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20  nterp, objv[2], 
0e70: 26 6f 66 66 73 65 74 29 20 29 20 72 65 74 75 72  &offset) ) retur
0e80: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69  n TCL_ERROR;.  i
0e90: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f  f( Tcl_GetIntFro
0ea0: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
0eb0: 76 5b 33 5d 2c 20 26 61 6d 74 29 20 29 20 72 65  v[3], &amt) ) re
0ec0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
0ed0: 20 20 7a 46 69 6c 65 20 3d 20 54 63 6c 5f 47 65    zFile = Tcl_Ge
0ee0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29  tString(objv[1])
0ef0: 3b 0a 20 20 7a 42 75 66 20 3d 20 6d 61 6c 6c 6f  ;.  zBuf = mallo
0f00: 63 28 20 61 6d 74 2a 32 2b 31 20 29 3b 0a 20 20  c( amt*2+1 );.  
0f10: 69 66 28 20 7a 42 75 66 3d 3d 30 20 29 7b 0a 20  if( zBuf==0 ){. 
0f20: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
0f30: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 6e 20 3d 20  ROR;.  }.  in = 
0f40: 66 6f 70 65 6e 28 7a 46 69 6c 65 2c 20 22 72 22  fopen(zFile, "r"
0f50: 29 3b 0a 20 20 69 66 28 20 69 6e 3d 3d 30 20 29  );.  if( in==0 )
0f60: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  {.    Tcl_Append
0f70: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
0f80: 63 61 6e 6e 6f 74 20 6f 70 65 6e 20 69 6e 70 75  cannot open inpu
0f90: 74 20 66 69 6c 65 20 22 2c 20 7a 46 69 6c 65 2c  t file ", zFile,
0fa0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20   0);.    return 
0fb0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
0fc0: 20 66 73 65 65 6b 28 69 6e 2c 20 6f 66 66 73 65   fseek(in, offse
0fd0: 74 2c 20 53 45 45 4b 5f 53 45 54 29 3b 0a 20 20  t, SEEK_SET);.  
0fe0: 67 6f 74 20 3d 20 66 72 65 61 64 28 7a 42 75 66  got = fread(zBuf
0ff0: 2c 20 31 2c 20 61 6d 74 2c 20 69 6e 29 3b 0a 20  , 1, amt, in);. 
1000: 20 66 63 6c 6f 73 65 28 69 6e 29 3b 0a 20 20 69   fclose(in);.  i
1010: 66 28 20 67 6f 74 3c 30 20 29 7b 0a 20 20 20 20  f( got<0 ){.    
1020: 67 6f 74 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 62  got = 0;.  }.  b
1030: 69 6e 54 6f 48 65 78 28 7a 42 75 66 2c 20 67 6f  inToHex(zBuf, go
1040: 74 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64  t);.  Tcl_Append
1050: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a  Result(interp, z
1060: 42 75 66 2c 20 30 29 3b 0a 20 20 66 72 65 65 28  Buf, 0);.  free(
1070: 7a 42 75 66 29 3b 0a 20 20 72 65 74 75 72 6e 20  zBuf);.  return 
1080: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a  TCL_OK;.}.../*.*
1090: 2a 20 55 73 61 67 65 3a 20 20 20 68 65 78 69 6f  * Usage:   hexio
10a0: 5f 77 72 69 74 65 20 20 46 49 4c 45 4e 41 4d 45  _write  FILENAME
10b0: 20 20 4f 46 46 53 45 54 20 20 44 41 54 41 0a 2a    OFFSET  DATA.*
10c0: 2a 0a 2a 2a 20 57 72 69 74 65 20 44 41 54 41 20  *.** Write DATA 
10d0: 69 6e 74 6f 20 66 69 6c 65 20 46 49 4c 45 4e 41  into file FILENA
10e0: 4d 45 20 62 65 67 69 6e 6e 69 6e 67 20 61 74 20  ME beginning at 
10f0: 4f 46 46 53 45 54 20 66 72 6f 6d 20 74 68 65 0a  OFFSET from the.
1100: 2a 2a 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20  ** beginning of 
1110: 74 68 65 20 66 69 6c 65 2e 20 20 44 41 54 41 20  the file.  DATA 
1120: 69 73 20 65 78 70 72 65 73 73 65 64 20 69 6e 20  is expressed in 
1130: 68 65 78 61 64 65 63 69 6d 61 6c 2e 0a 2a 2f 0a  hexadecimal..*/.
1140: 73 74 61 74 69 63 20 69 6e 74 20 68 65 78 69 6f  static int hexio
1150: 5f 77 72 69 74 65 28 0a 20 20 76 6f 69 64 20 2a  _write(.  void *
1160: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54   clientData,.  T
1170: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
1180: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20  p,.  int objc,. 
1190: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20   Tcl_Obj *CONST 
11a0: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20  objv[].){.  int 
11b0: 6f 66 66 73 65 74 3b 0a 20 20 69 6e 74 20 6e 49  offset;.  int nI
11c0: 6e 2c 20 6e 4f 75 74 2c 20 77 72 69 74 74 65 6e  n, nOut, written
11d0: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ;.  const char *
11e0: 7a 46 69 6c 65 3b 0a 20 20 63 6f 6e 73 74 20 75  zFile;.  const u
11f0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 49  nsigned char *zI
1200: 6e 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68  n;.  unsigned ch
1210: 61 72 20 2a 61 4f 75 74 3b 0a 20 20 46 49 4c 45  ar *aOut;.  FILE
1220: 20 2a 6f 75 74 3b 0a 0a 20 20 69 66 28 20 6f 62   *out;..  if( ob
1230: 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c  jc!=4 ){.    Tcl
1240: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e  _WrongNumArgs(in
1250: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22  terp, 1, objv, "
1260: 46 49 4c 45 4e 41 4d 45 20 4f 46 46 53 45 54 20  FILENAME OFFSET 
1270: 48 45 58 44 41 54 41 22 29 3b 0a 20 20 20 20 72  HEXDATA");.    r
1280: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
1290: 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47  .  }.  if( Tcl_G
12a0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74  etIntFromObj(int
12b0: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6f  erp, objv[2], &o
12c0: 66 66 73 65 74 29 20 29 20 72 65 74 75 72 6e 20  ffset) ) return 
12d0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 46 69  TCL_ERROR;.  zFi
12e0: 6c 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  le = Tcl_GetStri
12f0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 7a  ng(objv[1]);.  z
1300: 49 6e 20 3d 20 28 63 6f 6e 73 74 20 75 6e 73 69  In = (const unsi
1310: 67 6e 65 64 20 63 68 61 72 20 2a 29 54 63 6c 5f  gned char *)Tcl_
1320: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a  GetStringFromObj
1330: 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 49 6e 29 3b  (objv[3], &nIn);
1340: 0a 20 20 61 4f 75 74 20 3d 20 6d 61 6c 6c 6f 63  .  aOut = malloc
1350: 28 20 6e 49 6e 2f 32 20 29 3b 0a 20 20 69 66 28  ( nIn/2 );.  if(
1360: 20 61 4f 75 74 3d 3d 30 20 29 7b 0a 20 20 20 20   aOut==0 ){.    
1370: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
1380: 3b 0a 20 20 7d 0a 20 20 6e 4f 75 74 20 3d 20 68  ;.  }.  nOut = h
1390: 65 78 54 6f 42 69 6e 28 7a 49 6e 2c 20 6e 49 6e  exToBin(zIn, nIn
13a0: 2c 20 61 4f 75 74 29 3b 0a 20 20 6f 75 74 20 3d  , aOut);.  out =
13b0: 20 66 6f 70 65 6e 28 7a 46 69 6c 65 2c 20 22 72   fopen(zFile, "r
13c0: 2b 22 29 3b 0a 20 20 69 66 28 20 6f 75 74 3d 3d  +");.  if( out==
13d0: 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70  0 ){.    Tcl_App
13e0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
13f0: 2c 20 22 63 61 6e 6e 6f 74 20 6f 70 65 6e 20 6f  , "cannot open o
1400: 75 74 70 75 74 20 66 69 6c 65 20 22 2c 20 7a 46  utput file ", zF
1410: 69 6c 65 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  ile, 0);.    ret
1420: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
1430: 20 7d 0a 20 20 66 73 65 65 6b 28 6f 75 74 2c 20   }.  fseek(out, 
1440: 6f 66 66 73 65 74 2c 20 53 45 45 4b 5f 53 45 54  offset, SEEK_SET
1450: 29 3b 0a 20 20 77 72 69 74 74 65 6e 20 3d 20 66  );.  written = f
1460: 77 72 69 74 65 28 61 4f 75 74 2c 20 31 2c 20 6e  write(aOut, 1, n
1470: 4f 75 74 2c 20 6f 75 74 29 3b 0a 20 20 66 72 65  Out, out);.  fre
1480: 65 28 61 4f 75 74 29 3b 0a 20 20 66 63 6c 6f 73  e(aOut);.  fclos
1490: 65 28 6f 75 74 29 3b 0a 20 20 54 63 6c 5f 53 65  e(out);.  Tcl_Se
14a0: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72  tObjResult(inter
14b0: 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a  p, Tcl_NewIntObj
14c0: 28 77 72 69 74 74 65 6e 29 29 3b 0a 20 20 72 65  (written));.  re
14d0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a  turn TCL_OK;.}..
14e0: 2f 2a 0a 2a 2a 20 55 53 41 47 45 3a 20 20 20 68  /*.** USAGE:   h
14f0: 65 78 69 6f 5f 67 65 74 5f 69 6e 74 20 20 20 48  exio_get_int   H
1500: 45 58 44 41 54 41 0a 2a 2a 0a 2a 2a 20 49 6e 74  EXDATA.**.** Int
1510: 65 72 70 72 65 74 20 74 68 65 20 48 45 58 44 41  erpret the HEXDA
1520: 54 41 20 61 72 67 75 6d 65 6e 74 20 61 73 20 61  TA argument as a
1530: 20 62 69 67 2d 65 6e 64 69 61 6e 20 69 6e 74 65   big-endian inte
1540: 67 65 72 2e 20 20 52 65 74 75 72 6e 0a 2a 2a 20  ger.  Return.** 
1550: 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 61  the value of tha
1560: 74 20 69 6e 74 65 67 65 72 2e 20 20 48 45 58 44  t integer.  HEXD
1570: 41 54 41 20 63 61 6e 20 63 6f 6e 74 61 69 6e 20  ATA can contain 
1580: 62 65 74 77 65 65 6e 20 32 20 61 6e 64 20 38 0a  between 2 and 8.
1590: 2a 2a 20 68 65 78 61 64 65 63 69 6d 61 6c 20 64  ** hexadecimal d
15a0: 69 67 69 74 73 2e 0a 2a 2f 0a 73 74 61 74 69 63  igits..*/.static
15b0: 20 69 6e 74 20 68 65 78 69 6f 5f 67 65 74 5f 69   int hexio_get_i
15c0: 6e 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69  nt(.  void * cli
15d0: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49  entData,.  Tcl_I
15e0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20  nterp *interp,. 
15f0: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c   int objc,.  Tcl
1600: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76  _Obj *CONST objv
1610: 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 76 61 6c 3b  [].){.  int val;
1620: 0a 20 20 69 6e 74 20 6e 49 6e 2c 20 6e 4f 75 74  .  int nIn, nOut
1630: 3b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e  ;.  const unsign
1640: 65 64 20 63 68 61 72 20 2a 7a 49 6e 3b 0a 20 20  ed char *zIn;.  
1650: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 61  unsigned char *a
1660: 4f 75 74 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20  Out;.  unsigned 
1670: 63 68 61 72 20 61 4e 75 6d 5b 34 5d 3b 0a 0a 20  char aNum[4];.. 
1680: 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a   if( objc!=2 ){.
1690: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
16a0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
16b0: 6f 62 6a 76 2c 20 22 48 45 58 44 41 54 41 22 29  objv, "HEXDATA")
16c0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
16d0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 49  _ERROR;.  }.  zI
16e0: 6e 20 3d 20 28 63 6f 6e 73 74 20 75 6e 73 69 67  n = (const unsig
16f0: 6e 65 64 20 63 68 61 72 20 2a 29 54 63 6c 5f 47  ned char *)Tcl_G
1700: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28  etStringFromObj(
1710: 6f 62 6a 76 5b 31 5d 2c 20 26 6e 49 6e 29 3b 0a  objv[1], &nIn);.
1720: 20 20 61 4f 75 74 20 3d 20 6d 61 6c 6c 6f 63 28    aOut = malloc(
1730: 20 6e 49 6e 2f 32 20 29 3b 0a 20 20 69 66 28 20   nIn/2 );.  if( 
1740: 61 4f 75 74 3d 3d 30 20 29 7b 0a 20 20 20 20 72  aOut==0 ){.    r
1750: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
1760: 0a 20 20 7d 0a 20 20 6e 4f 75 74 20 3d 20 68 65  .  }.  nOut = he
1770: 78 54 6f 42 69 6e 28 7a 49 6e 2c 20 6e 49 6e 2c  xToBin(zIn, nIn,
1780: 20 61 4f 75 74 29 3b 0a 20 20 69 66 28 20 6e 4f   aOut);.  if( nO
1790: 75 74 3e 3d 34 20 29 7b 0a 20 20 20 20 6d 65 6d  ut>=4 ){.    mem
17a0: 63 70 79 28 61 4e 75 6d 2c 20 61 4f 75 74 2c 20  cpy(aNum, aOut, 
17b0: 34 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20  4);.  }else{.   
17c0: 20 6d 65 6d 73 65 74 28 61 4e 75 6d 2c 20 30 2c   memset(aNum, 0,
17d0: 20 73 69 7a 65 6f 66 28 61 4e 75 6d 29 29 3b 0a   sizeof(aNum));.
17e0: 20 20 20 20 6d 65 6d 63 70 79 28 26 61 4e 75 6d      memcpy(&aNum
17f0: 5b 34 2d 6e 4f 75 74 5d 2c 20 61 4f 75 74 2c 20  [4-nOut], aOut, 
1800: 6e 4f 75 74 29 3b 0a 20 20 7d 0a 20 20 66 72 65  nOut);.  }.  fre
1810: 65 28 61 4f 75 74 29 3b 0a 20 20 76 61 6c 20 3d  e(aOut);.  val =
1820: 20 28 61 4e 75 6d 5b 30 5d 3c 3c 32 34 29 20 7c   (aNum[0]<<24) |
1830: 20 28 61 4e 75 6d 5b 31 5d 3c 3c 31 36 29 20 7c   (aNum[1]<<16) |
1840: 20 28 61 4e 75 6d 5b 32 5d 3c 3c 38 29 20 7c 20   (aNum[2]<<8) | 
1850: 61 4e 75 6d 5b 33 5d 3b 0a 20 20 54 63 6c 5f 53  aNum[3];.  Tcl_S
1860: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65  etObjResult(inte
1870: 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62  rp, Tcl_NewIntOb
1880: 6a 28 76 61 6c 29 29 3b 0a 20 20 72 65 74 75 72  j(val));.  retur
1890: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a  n TCL_OK;.}.../*
18a0: 0a 2a 2a 20 55 53 41 47 45 3a 20 20 20 68 65 78  .** USAGE:   hex
18b0: 69 6f 5f 72 65 6e 64 65 72 5f 69 6e 74 31 36 20  io_render_int16 
18c0: 20 20 49 4e 54 45 47 45 52 0a 2a 2a 0a 2a 2a 20    INTEGER.**.** 
18d0: 52 65 6e 64 65 72 20 49 4e 54 45 47 45 52 20 68  Render INTEGER h
18e0: 61 73 20 61 20 31 36 2d 62 69 74 20 62 69 67 2d  as a 16-bit big-
18f0: 65 6e 64 69 61 6e 20 69 6e 74 65 67 65 72 20 69  endian integer i
1900: 6e 20 68 65 78 61 64 65 63 69 6d 61 6c 2e 0a 2a  n hexadecimal..*
1910: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 68 65 78  /.static int hex
1920: 69 6f 5f 72 65 6e 64 65 72 5f 69 6e 74 31 36 28  io_render_int16(
1930: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74  .  void * client
1940: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65  Data,.  Tcl_Inte
1950: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e  rp *interp,.  in
1960: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62  t objc,.  Tcl_Ob
1970: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a  j *CONST objv[].
1980: 29 7b 0a 20 20 69 6e 74 20 76 61 6c 3b 0a 20 20  ){.  int val;.  
1990: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 61 4e  unsigned char aN
19a0: 75 6d 5b 31 30 5d 3b 0a 0a 20 20 69 66 28 20 6f  um[10];..  if( o
19b0: 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63  bjc!=2 ){.    Tc
19c0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
19d0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
19e0: 22 49 4e 54 45 47 45 52 22 29 3b 0a 20 20 20 20  "INTEGER");.    
19f0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
1a00: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f  ;.  }.  if( Tcl_
1a10: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e  GetIntFromObj(in
1a20: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26  terp, objv[1], &
1a30: 76 61 6c 29 20 29 20 72 65 74 75 72 6e 20 54 43  val) ) return TC
1a40: 4c 5f 45 52 52 4f 52 3b 0a 20 20 61 4e 75 6d 5b  L_ERROR;.  aNum[
1a50: 30 5d 20 3d 20 76 61 6c 3e 3e 38 3b 0a 20 20 61  0] = val>>8;.  a
1a60: 4e 75 6d 5b 31 5d 20 3d 20 76 61 6c 3b 0a 20 20  Num[1] = val;.  
1a70: 62 69 6e 54 6f 48 65 78 28 61 4e 75 6d 2c 20 32  binToHex(aNum, 2
1a80: 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52  );.  Tcl_SetObjR
1a90: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63  esult(interp, Tc
1aa0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28  l_NewStringObj((
1ab0: 63 68 61 72 2a 29 61 4e 75 6d 2c 20 34 29 29 3b  char*)aNum, 4));
1ac0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
1ad0: 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 53 41 47  ;.}.../*.** USAG
1ae0: 45 3a 20 20 20 68 65 78 69 6f 5f 72 65 6e 64 65  E:   hexio_rende
1af0: 72 5f 69 6e 74 33 32 20 20 20 49 4e 54 45 47 45  r_int32   INTEGE
1b00: 52 0a 2a 2a 0a 2a 2a 20 52 65 6e 64 65 72 20 49  R.**.** Render I
1b10: 4e 54 45 47 45 52 20 68 61 73 20 61 20 33 32 2d  NTEGER has a 32-
1b20: 62 69 74 20 62 69 67 2d 65 6e 64 69 61 6e 20 69  bit big-endian i
1b30: 6e 74 65 67 65 72 20 69 6e 20 68 65 78 61 64 65  nteger in hexade
1b40: 63 69 6d 61 6c 2e 0a 2a 2f 0a 73 74 61 74 69 63  cimal..*/.static
1b50: 20 69 6e 74 20 68 65 78 69 6f 5f 72 65 6e 64 65   int hexio_rende
1b60: 72 5f 69 6e 74 33 32 28 0a 20 20 76 6f 69 64 20  r_int32(.  void 
1b70: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20  * clientData,.  
1b80: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
1b90: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a  rp,.  int objc,.
1ba0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54    Tcl_Obj *CONST
1bb0: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74   objv[].){.  int
1bc0: 20 76 61 6c 3b 0a 20 20 75 6e 73 69 67 6e 65 64   val;.  unsigned
1bd0: 20 63 68 61 72 20 61 4e 75 6d 5b 31 30 5d 3b 0a   char aNum[10];.
1be0: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29  .  if( objc!=2 )
1bf0: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
1c00: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
1c10: 2c 20 6f 62 6a 76 2c 20 22 49 4e 54 45 47 45 52  , objv, "INTEGER
1c20: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  ");.    return T
1c30: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
1c40: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72  if( Tcl_GetIntFr
1c50: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
1c60: 6a 76 5b 31 5d 2c 20 26 76 61 6c 29 20 29 20 72  jv[1], &val) ) r
1c70: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
1c80: 0a 20 20 61 4e 75 6d 5b 30 5d 20 3d 20 76 61 6c  .  aNum[0] = val
1c90: 3e 3e 32 34 3b 0a 20 20 61 4e 75 6d 5b 31 5d 20  >>24;.  aNum[1] 
1ca0: 3d 20 76 61 6c 3e 3e 31 36 3b 0a 20 20 61 4e 75  = val>>16;.  aNu
1cb0: 6d 5b 32 5d 20 3d 20 76 61 6c 3e 3e 38 3b 0a 20  m[2] = val>>8;. 
1cc0: 20 61 4e 75 6d 5b 33 5d 20 3d 20 76 61 6c 3b 0a   aNum[3] = val;.
1cd0: 20 20 62 69 6e 54 6f 48 65 78 28 61 4e 75 6d 2c    binToHex(aNum,
1ce0: 20 34 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62   4);.  Tcl_SetOb
1cf0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
1d00: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
1d10: 28 28 63 68 61 72 2a 29 61 4e 75 6d 2c 20 38 29  ((char*)aNum, 8)
1d20: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  );.  return TCL_
1d30: 4f 4b 3b 0a 7d 0a 0a 0a 0a 2f 2a 0a 2a 2a 20 52  OK;.}..../*.** R
1d40: 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73  egister commands
1d50: 20 77 69 74 68 20 74 68 65 20 54 43 4c 20 69 6e   with the TCL in
1d60: 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e  terpreter..*/.in
1d70: 74 20 53 71 6c 69 74 65 74 65 73 74 5f 68 65 78  t Sqlitetest_hex
1d80: 69 6f 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65  io_Init(Tcl_Inte
1d90: 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 73  rp *interp){.  s
1da0: 74 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20  tatic struct {. 
1db0: 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b      char *zName;
1dc0: 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64  .     Tcl_ObjCmd
1dd0: 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 7d  Proc *xProc;.  }
1de0: 20 61 4f 62 6a 43 6d 64 5b 5d 20 3d 20 7b 0a 20   aObjCmd[] = {. 
1df0: 20 20 20 20 7b 20 22 68 65 78 69 6f 5f 72 65 61      { "hexio_rea
1e00: 64 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  d",             
1e10: 20 20 20 20 20 20 68 65 78 69 6f 5f 72 65 61 64        hexio_read
1e20: 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20              },. 
1e30: 20 20 20 20 7b 20 22 68 65 78 69 6f 5f 77 72 69      { "hexio_wri
1e40: 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  te",            
1e50: 20 20 20 20 20 20 68 65 78 69 6f 5f 77 72 69 74        hexio_writ
1e60: 65 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20  e           },. 
1e70: 20 20 20 20 7b 20 22 68 65 78 69 6f 5f 67 65 74      { "hexio_get
1e80: 5f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20 20  _int",          
1e90: 20 20 20 20 20 20 68 65 78 69 6f 5f 67 65 74 5f        hexio_get_
1ea0: 69 6e 74 20 20 20 20 20 20 20 20 20 7d 2c 0a 20  int         },. 
1eb0: 20 20 20 20 7b 20 22 68 65 78 69 6f 5f 72 65 6e      { "hexio_ren
1ec0: 64 65 72 5f 69 6e 74 31 36 22 2c 20 20 20 20 20  der_int16",     
1ed0: 20 20 20 20 20 20 68 65 78 69 6f 5f 72 65 6e 64        hexio_rend
1ee0: 65 72 5f 69 6e 74 31 36 20 20 20 20 7d 2c 0a 20  er_int16    },. 
1ef0: 20 20 20 20 7b 20 22 68 65 78 69 6f 5f 72 65 6e      { "hexio_ren
1f00: 64 65 72 5f 69 6e 74 33 32 22 2c 20 20 20 20 20  der_int32",     
1f10: 20 20 20 20 20 20 68 65 78 69 6f 5f 72 65 6e 64        hexio_rend
1f20: 65 72 5f 69 6e 74 33 32 20 20 20 20 7d 2c 0a 20  er_int32    },. 
1f30: 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66   };.  int i;.  f
1f40: 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66  or(i=0; i<sizeof
1f50: 28 61 4f 62 6a 43 6d 64 29 2f 73 69 7a 65 6f 66  (aObjCmd)/sizeof
1f60: 28 61 4f 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b  (aObjCmd[0]); i+
1f70: 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61  +){.    Tcl_Crea
1f80: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74  teObjCommand(int
1f90: 65 72 70 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e  erp, aObjCmd[i].
1fa0: 7a 4e 61 6d 65 2c 20 61 4f 62 6a 43 6d 64 5b 69  zName, aObjCmd[i
1fb0: 5d 2e 78 50 72 6f 63 2c 20 30 2c 20 30 29 3b 0a  ].xProc, 0, 0);.
1fc0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c    }.  return TCL
1fd0: 5f 4f 4b 3b 0a 7d 0a                             _OK;.}.