/ Hex Artifact Content
Login

Artifact 1f2e3e25255b731c4fcf15ee7990d06347cb6c09:


0000: 2f 2a 0a 2a 2a 20 32 30 31 34 20 4f 63 74 6f 62  /*.** 2014 Octob
0010: 65 72 20 33 30 0a 2a 2a 0a 2a 2a 20 54 68 65 20  er 30.**.** The 
0020: 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73  author disclaims
0030: 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68   copyright to th
0040: 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20  is source code. 
0050: 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20   In place of.** 
0060: 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20  a legal notice, 
0070: 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 69  here is a blessi
0080: 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79  ng:.**.**    May
0090: 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64   you do good and
00a0: 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20   not evil..**   
00b0: 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f   May you find fo
00c0: 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f  rgiveness for yo
00d0: 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69  urself and forgi
00e0: 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20  ve others..**   
00f0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66   May you share f
0100: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b  reely, never tak
0110: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f  ing more than yo
0120: 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a  u 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 0a 2a 2a 0a 2a 2f 0a 23 69 6e 63 6c  ****.**.*/.#incl
0180: 75 64 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68  ude "sqliteInt.h
0190: 22 0a 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e  ".#include "tcl.
01a0: 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64  h".#include <std
01b0: 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20  lib.h>.#include 
01c0: 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c  <string.h>.#incl
01d0: 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e 0a 0a  ude <assert.h>..
01e0: 2f 2a 20 54 68 65 73 65 20 66 75 6e 63 74 69 6f  /* These functio
01f0: 6e 73 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74  ns are implement
0200: 65 64 20 69 6e 20 6d 61 69 6e 2e 63 2e 20 2a 2f  ed in main.c. */
0210: 0a 65 78 74 65 72 6e 20 63 6f 6e 73 74 20 63 68  .extern const ch
0220: 61 72 20 2a 73 71 6c 69 74 65 33 45 72 72 4e 61  ar *sqlite3ErrNa
0230: 6d 65 28 69 6e 74 29 3b 0a 0a 2f 2a 20 46 72 6f  me(int);../* Fro
0240: 6d 20 74 65 73 74 31 2e 63 3a 20 2a 2f 0a 65 78  m test1.c: */.ex
0250: 74 65 72 6e 20 69 6e 74 20 67 65 74 44 62 50 6f  tern int getDbPo
0260: 69 6e 74 65 72 28 54 63 6c 5f 49 6e 74 65 72 70  inter(Tcl_Interp
0270: 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20   *interp, const 
0280: 63 68 61 72 20 2a 7a 41 2c 20 73 71 6c 69 74 65  char *zA, sqlite
0290: 33 20 2a 2a 70 70 44 62 29 3b 0a 65 78 74 65 72  3 **ppDb);.exter
02a0: 6e 20 76 6f 69 64 20 2a 73 71 6c 69 74 65 33 54  n void *sqlite3T
02b0: 65 73 74 54 65 78 74 54 6f 50 74 72 28 63 6f 6e  estTextToPtr(con
02c0: 73 74 20 63 68 61 72 20 2a 7a 29 3b 0a 0a 2f 2a  st char *z);../*
02d0: 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 70 6f 69  .** Return a poi
02e0: 6e 74 65 72 20 74 6f 20 61 20 62 75 66 66 65 72  nter to a buffer
02f0: 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 20 74 65   containing a te
0300: 78 74 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f  xt representatio
0310: 6e 20 6f 66 20 74 68 65 0a 2a 2a 20 70 6f 69 6e  n of the.** poin
0320: 74 65 72 20 70 61 73 73 65 64 20 61 73 20 74 68  ter passed as th
0330: 65 20 6f 6e 6c 79 20 61 72 67 75 6d 65 6e 74 2e  e only argument.
0340: 20 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 70 6f   The original po
0350: 69 6e 74 65 72 20 6d 61 79 20 62 65 20 65 78 74  inter may be ext
0360: 72 61 63 74 65 64 0a 2a 2a 20 66 72 6f 6d 20 74  racted.** from t
0370: 68 65 20 74 65 78 74 20 75 73 69 6e 67 20 73 71  he text using sq
0380: 6c 69 74 65 33 54 65 73 74 54 65 78 74 54 6f 50  lite3TestTextToP
0390: 74 72 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  tr()..*/.static 
03a0: 63 68 61 72 20 2a 70 74 72 54 6f 54 65 78 74 28  char *ptrToText(
03b0: 76 6f 69 64 20 2a 70 29 7b 0a 20 20 73 74 61 74  void *p){.  stat
03c0: 69 63 20 63 68 61 72 20 62 75 66 5b 31 30 30 5d  ic char buf[100]
03d0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72  ;.  sqlite3_snpr
03e0: 69 6e 74 66 28 73 69 7a 65 6f 66 28 62 75 66 29  intf(sizeof(buf)
03f0: 2d 31 2c 20 62 75 66 2c 20 22 25 70 22 2c 20 70  -1, buf, "%p", p
0400: 29 3b 0a 20 20 72 65 74 75 72 6e 20 62 75 66 3b  );.  return buf;
0410: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 74 74 65 6d 70  .}../*.** Attemp
0420: 74 20 74 6f 20 65 78 74 72 61 63 74 20 61 20 62  t to extract a b
0430: 6c 6f 62 20 68 61 6e 64 6c 65 20 28 74 79 70 65  lob handle (type
0440: 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 2a 29 20   sqlite3_blob*) 
0450: 66 72 6f 6d 20 74 68 65 20 54 63 6c 0a 2a 2a 20  from the Tcl.** 
0460: 6f 62 6a 65 63 74 20 70 61 73 73 65 64 20 61 73  object passed as
0470: 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75   the second argu
0480: 6d 65 6e 74 2e 20 49 66 20 73 75 63 63 65 73 73  ment. If success
0490: 66 75 6c 2c 20 73 65 74 20 2a 70 70 42 6c 6f 62  ful, set *ppBlob
04a0: 20 74 6f 0a 2a 2a 20 70 6f 69 6e 74 20 74 6f 20   to.** point to 
04b0: 74 68 65 20 62 6c 6f 62 20 68 61 6e 64 6c 65 20  the blob handle 
04c0: 61 6e 64 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f  and return TCL_O
04d0: 4b 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 73 74  K. Otherwise, st
04e0: 6f 72 65 20 61 6e 20 65 72 72 6f 72 0a 2a 2a 20  ore an error.** 
04f0: 6d 65 73 73 61 67 65 20 69 6e 20 74 68 65 20 74  message in the t
0500: 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72 20 61  cl interpreter a
0510: 6e 64 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52  nd return TCL_ER
0520: 52 4f 52 2e 20 54 68 65 20 66 69 6e 61 6c 20 76  ROR. The final v
0530: 61 6c 75 65 0a 2a 2a 20 6f 66 20 2a 70 70 42 6c  alue.** of *ppBl
0540: 6f 62 20 69 73 20 75 6e 64 65 66 69 6e 65 64 20  ob is undefined 
0550: 69 6e 20 74 68 69 73 20 63 61 73 65 2e 0a 2a 2a  in this case..**
0560: 0a 2a 2a 20 49 66 20 74 68 65 20 6f 62 6a 65 63  .** If the objec
0570: 74 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 74 72  t contains a str
0580: 69 6e 67 20 74 68 61 74 20 62 65 67 69 6e 73 20  ing that begins 
0590: 77 69 74 68 20 22 69 6e 63 72 62 6c 6f 62 5f 22  with "incrblob_"
05a0: 2c 20 74 68 65 6e 20 69 74 0a 2a 2a 20 69 73 20  , then it.** is 
05b0: 61 73 73 75 6d 65 64 20 74 6f 20 62 65 20 74 68  assumed to be th
05c0: 65 20 6e 61 6d 65 20 6f 66 20 61 20 54 63 6c 20  e name of a Tcl 
05d0: 63 68 61 6e 6e 65 6c 20 6f 70 65 6e 65 64 20 75  channel opened u
05e0: 73 69 6e 67 20 74 68 65 20 5b 64 62 20 69 6e 63  sing the [db inc
05f0: 72 62 6c 6f 62 5d 20 0a 2a 2a 20 63 6f 6d 6d 61  rblob] .** comma
0600: 6e 64 20 28 73 65 65 20 74 63 6c 73 71 6c 69 74  nd (see tclsqlit
0610: 65 2e 63 29 2e 20 4f 74 68 65 72 77 69 73 65 2c  e.c). Otherwise,
0620: 20 69 74 20 69 73 20 61 73 73 75 6d 65 64 20 74   it is assumed t
0630: 6f 20 62 65 20 61 20 70 6f 69 6e 74 65 72 20 0a  o be a pointer .
0640: 2a 2a 20 65 6e 63 6f 64 65 64 20 75 73 69 6e 67  ** encoded using
0650: 20 74 68 65 20 70 74 72 54 6f 54 65 78 74 28 29   the ptrToText()
0660: 20 72 6f 75 74 69 6e 65 20 6f 72 20 73 69 6d 69   routine or simi
0670: 6c 61 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  lar..*/.static i
0680: 6e 74 20 62 6c 6f 62 48 61 6e 64 6c 65 46 72 6f  nt blobHandleFro
0690: 6d 4f 62 6a 28 0a 20 20 54 63 6c 5f 49 6e 74 65  mObj(.  Tcl_Inte
06a0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 54  rp *interp, .  T
06b0: 63 6c 5f 4f 62 6a 20 2a 70 4f 62 6a 2c 0a 20 20  cl_Obj *pObj,.  
06c0: 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 2a 2a 70  sqlite3_blob **p
06d0: 70 42 6c 6f 62 0a 29 7b 0a 20 20 63 68 61 72 20  pBlob.){.  char 
06e0: 2a 7a 3b 0a 20 20 69 6e 74 20 6e 3b 0a 0a 20 20  *z;.  int n;..  
06f0: 7a 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  z = Tcl_GetStrin
0700: 67 46 72 6f 6d 4f 62 6a 28 70 4f 62 6a 2c 20 26  gFromObj(pObj, &
0710: 6e 29 3b 0a 20 20 69 66 28 20 6e 3d 3d 30 20 29  n);.  if( n==0 )
0720: 7b 0a 20 20 20 20 2a 70 70 42 6c 6f 62 20 3d 20  {.    *ppBlob = 
0730: 30 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 6e  0;.  }else if( n
0740: 3e 39 20 26 26 20 30 3d 3d 6d 65 6d 63 6d 70 28  >9 && 0==memcmp(
0750: 22 69 6e 63 72 62 6c 6f 62 5f 22 2c 20 7a 2c 20  "incrblob_", z, 
0760: 39 29 20 29 7b 0a 20 20 20 20 69 6e 74 20 6e 6f  9) ){.    int no
0770: 74 55 73 65 64 3b 0a 20 20 20 20 54 63 6c 5f 43  tUsed;.    Tcl_C
0780: 68 61 6e 6e 65 6c 20 63 68 61 6e 6e 65 6c 3b 0a  hannel channel;.
0790: 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69      ClientData i
07a0: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20  nstanceData;.   
07b0: 20 0a 20 20 20 20 63 68 61 6e 6e 65 6c 20 3d 20   .    channel = 
07c0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69  Tcl_GetChannel(i
07d0: 6e 74 65 72 70 2c 20 7a 2c 20 26 6e 6f 74 55 73  nterp, z, &notUs
07e0: 65 64 29 3b 0a 20 20 20 20 69 66 28 20 21 63 68  ed);.    if( !ch
07f0: 61 6e 6e 65 6c 20 29 20 72 65 74 75 72 6e 20 54  annel ) return T
0800: 43 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 20 20 54  CL_ERROR;..    T
0810: 63 6c 5f 46 6c 75 73 68 28 63 68 61 6e 6e 65 6c  cl_Flush(channel
0820: 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 65 6b 28  );.    Tcl_Seek(
0830: 63 68 61 6e 6e 65 6c 2c 20 30 2c 20 53 45 45 4b  channel, 0, SEEK
0840: 5f 53 45 54 29 3b 0a 0a 20 20 20 20 69 6e 73 74  _SET);..    inst
0850: 61 6e 63 65 44 61 74 61 20 3d 20 54 63 6c 5f 47  anceData = Tcl_G
0860: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63  etChannelInstanc
0870: 65 44 61 74 61 28 63 68 61 6e 6e 65 6c 29 3b 0a  eData(channel);.
0880: 20 20 20 20 2a 70 70 42 6c 6f 62 20 3d 20 2a 28      *ppBlob = *(
0890: 28 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 2a 2a  (sqlite3_blob **
08a0: 29 69 6e 73 74 61 6e 63 65 44 61 74 61 29 3b 0a  )instanceData);.
08b0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 2a 70 70    }else{.    *pp
08c0: 42 6c 6f 62 20 3d 20 28 73 71 6c 69 74 65 33 5f  Blob = (sqlite3_
08d0: 62 6c 6f 62 2a 29 73 71 6c 69 74 65 33 54 65 73  blob*)sqlite3Tes
08e0: 74 54 65 78 74 54 6f 50 74 72 28 7a 29 3b 0a 20  tTextToPtr(z);. 
08f0: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c   }..  return TCL
0900: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4c 69  _OK;.}../*.** Li
0910: 6b 65 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67  ke Tcl_GetString
0920: 28 29 2c 20 65 78 63 65 70 74 20 74 68 61 74 20  (), except that 
0930: 69 66 20 74 68 65 20 73 74 72 69 6e 67 20 69 73  if the string is
0940: 20 30 20 62 79 74 65 73 20 69 6e 20 73 69 7a 65   0 bytes in size
0950: 2c 20 61 0a 2a 2a 20 4e 55 4c 4c 20 50 6f 69 6e  , a.** NULL Poin
0960: 74 65 72 20 69 73 20 72 65 74 75 72 6e 65 64 2e  ter is returned.
0970: 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20  .*/.static char 
0980: 2a 62 6c 6f 62 53 74 72 69 6e 67 46 72 6f 6d 4f  *blobStringFromO
0990: 62 6a 28 54 63 6c 5f 4f 62 6a 20 2a 70 4f 62 6a  bj(Tcl_Obj *pObj
09a0: 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 63 68  ){.  int n;.  ch
09b0: 61 72 20 2a 7a 3b 0a 20 20 7a 20 3d 20 54 63 6c  ar *z;.  z = Tcl
09c0: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62  _GetStringFromOb
09d0: 6a 28 70 4f 62 6a 2c 20 26 6e 29 3b 0a 20 20 72  j(pObj, &n);.  r
09e0: 65 74 75 72 6e 20 28 6e 20 3f 20 7a 20 3a 20 30  eturn (n ? z : 0
09f0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69  );.}../*.** sqli
0a00: 74 65 33 5f 62 6c 6f 62 5f 6f 70 65 6e 20 44 42  te3_blob_open DB
0a10: 20 44 41 54 41 42 41 53 45 20 54 41 42 4c 45 20   DATABASE TABLE 
0a20: 43 4f 4c 55 4d 4e 20 52 4f 57 49 44 20 46 4c 41  COLUMN ROWID FLA
0a30: 47 53 20 56 41 52 4e 41 4d 45 0a 2a 2a 0a 2a 2a  GS VARNAME.**.**
0a40: 20 54 63 6c 20 74 65 73 74 20 68 61 72 6e 65 73   Tcl test harnes
0a50: 73 20 66 6f 72 20 74 68 65 20 73 71 6c 69 74 65  s for the sqlite
0a60: 33 5f 62 6c 6f 62 5f 6f 70 65 6e 28 29 20 66 75  3_blob_open() fu
0a70: 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69  nction..*/.stati
0a80: 63 20 69 6e 74 20 74 65 73 74 5f 62 6c 6f 62 5f  c int test_blob_
0a90: 6f 70 65 6e 28 0a 20 20 43 6c 69 65 6e 74 44 61  open(.  ClientDa
0aa0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 20  ta clientData,  
0ab0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 74 20 75          /* Not u
0ac0: 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74  sed */.  Tcl_Int
0ad0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20  erp *interp,    
0ae0: 20 20 20 20 20 20 20 20 20 2f 2a 20 43 61 6c 6c           /* Call
0af0: 69 6e 67 20 54 43 4c 20 69 6e 74 65 72 70 72 65  ing TCL interpre
0b00: 74 65 72 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a  ter */.  int obj
0b10: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c,              
0b20: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
0b30: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20  er of arguments 
0b40: 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  */.  Tcl_Obj *CO
0b50: 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 20 20 20 20  NST objv[]      
0b60: 20 20 20 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20       /* Command 
0b70: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a  arguments */.){.
0b80: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20    sqlite3 *db;. 
0b90: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 62   const char *zDb
0ba0: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ;.  const char *
0bb0: 7a 54 61 62 6c 65 3b 0a 20 20 63 6f 6e 73 74 20  zTable;.  const 
0bc0: 63 68 61 72 20 2a 7a 43 6f 6c 75 6d 6e 3b 0a 20  char *zColumn;. 
0bd0: 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 69 52   sqlite_int64 iR
0be0: 6f 77 69 64 3b 0a 20 20 69 6e 74 20 66 6c 61 67  owid;.  int flag
0bf0: 73 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  s;.  const char 
0c00: 2a 7a 56 61 72 6e 61 6d 65 3b 0a 20 20 69 6e 74  *zVarname;.  int
0c10: 20 6e 56 61 72 6e 61 6d 65 3b 0a 0a 20 20 73 71   nVarname;..  sq
0c20: 6c 69 74 65 33 5f 62 6c 6f 62 20 2a 70 42 6c 6f  lite3_blob *pBlo
0c30: 62 20 3d 20 28 73 71 6c 69 74 65 33 5f 62 6c 6f  b = (sqlite3_blo
0c40: 62 2a 29 30 78 46 46 46 46 46 46 46 46 3b 0a 20  b*)0xFFFFFFFF;. 
0c50: 20 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20   int rc;..  if( 
0c60: 6f 62 6a 63 21 3d 38 20 29 7b 0a 20 20 20 20 63  objc!=8 ){.    c
0c70: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 55 73 61 67  onst char *zUsag
0c80: 65 20 3d 20 22 44 42 20 44 41 54 41 42 41 53 45  e = "DB DATABASE
0c90: 20 54 41 42 4c 45 20 43 4f 4c 55 4d 4e 20 52 4f   TABLE COLUMN RO
0ca0: 57 49 44 20 46 4c 41 47 53 20 56 41 52 4e 41 4d  WID FLAGS VARNAM
0cb0: 45 22 3b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e  E";.    Tcl_Wron
0cc0: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c  gNumArgs(interp,
0cd0: 20 31 2c 20 6f 62 6a 76 2c 20 7a 55 73 61 67 65   1, objv, zUsage
0ce0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
0cf0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69  L_ERROR;.  }.  i
0d00: 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28  f( getDbPointer(
0d10: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53  interp, Tcl_GetS
0d20: 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20  tring(objv[1]), 
0d30: 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 43  &db) ) return TC
0d40: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 44 62 20 3d  L_ERROR;.  zDb =
0d50: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f   Tcl_GetString(o
0d60: 62 6a 76 5b 32 5d 29 3b 0a 20 20 7a 54 61 62 6c  bjv[2]);.  zTabl
0d70: 65 20 3d 20 62 6c 6f 62 53 74 72 69 6e 67 46 72  e = blobStringFr
0d80: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 29 3b 0a  omObj(objv[3]);.
0d90: 20 20 7a 43 6f 6c 75 6d 6e 20 3d 20 54 63 6c 5f    zColumn = Tcl_
0da0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34  GetString(objv[4
0db0: 5d 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65  ]);.  if( Tcl_Ge
0dc0: 74 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28  tWideIntFromObj(
0dd0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 35 5d 2c  interp, objv[5],
0de0: 20 26 69 52 6f 77 69 64 29 20 29 20 72 65 74 75   &iRowid) ) retu
0df0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
0e00: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72  if( Tcl_GetIntFr
0e10: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
0e20: 6a 76 5b 36 5d 2c 20 26 66 6c 61 67 73 29 20 29  jv[6], &flags) )
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 7a 56 61 72 6e 61 6d 65 20 3d 20  R;.  zVarname = 
0e50: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f  Tcl_GetStringFro
0e60: 6d 4f 62 6a 28 6f 62 6a 76 5b 37 5d 2c 20 26 6e  mObj(objv[7], &n
0e70: 56 61 72 6e 61 6d 65 29 3b 0a 0a 20 20 69 66 28  Varname);..  if(
0e80: 20 6e 56 61 72 6e 61 6d 65 3e 30 20 29 7b 0a 20   nVarname>0 ){. 
0e90: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f     rc = sqlite3_
0ea0: 62 6c 6f 62 5f 6f 70 65 6e 28 64 62 2c 20 7a 44  blob_open(db, zD
0eb0: 62 2c 20 7a 54 61 62 6c 65 2c 20 7a 43 6f 6c 75  b, zTable, zColu
0ec0: 6d 6e 2c 20 69 52 6f 77 69 64 2c 20 66 6c 61 67  mn, iRowid, flag
0ed0: 73 2c 20 26 70 42 6c 6f 62 29 3b 0a 20 20 20 20  s, &pBlob);.    
0ee0: 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72  Tcl_SetVar(inter
0ef0: 70 2c 20 7a 56 61 72 6e 61 6d 65 2c 20 70 74 72  p, zVarname, ptr
0f00: 54 6f 54 65 78 74 28 70 42 6c 6f 62 29 2c 20 30  ToText(pBlob), 0
0f10: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  );.  }else{.    
0f20: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 6c 6f  rc = sqlite3_blo
0f30: 62 5f 6f 70 65 6e 28 64 62 2c 20 7a 44 62 2c 20  b_open(db, zDb, 
0f40: 7a 54 61 62 6c 65 2c 20 7a 43 6f 6c 75 6d 6e 2c  zTable, zColumn,
0f50: 20 69 52 6f 77 69 64 2c 20 66 6c 61 67 73 2c 20   iRowid, flags, 
0f60: 30 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72  0);.  }..  if( r
0f70: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c==SQLITE_OK ){.
0f80: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73      Tcl_ResetRes
0f90: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 7d  ult(interp);.  }
0fa0: 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f 53 65  else{.    Tcl_Se
0fb0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  tResult(interp, 
0fc0: 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 45 72  (char*)sqlite3Er
0fd0: 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 56  rName(rc), TCL_V
0fe0: 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65  OLATILE);.    re
0ff0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
1000: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c    }.  return TCL
1010: 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 73  _OK;.}.../*.** s
1020: 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 63 6c 6f 73  qlite3_blob_clos
1030: 65 20 20 48 41 4e 44 4c 45 0a 2a 2f 0a 73 74 61  e  HANDLE.*/.sta
1040: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 62 6c 6f  tic int test_blo
1050: 62 5f 63 6c 6f 73 65 28 0a 20 20 43 6c 69 65 6e  b_close(.  Clien
1060: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61  tData clientData
1070: 2c 20 2f 2a 20 4e 6f 74 20 75 73 65 64 20 2a 2f  , /* Not used */
1080: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
1090: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65  nterp,    /* The
10a0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72   TCL interpreter
10b0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68   that invoked th
10c0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20  is command */.  
10d0: 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20 20 20  int objc,       
10e0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
10f0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f   of arguments */
1100: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53  .  Tcl_Obj *CONS
1110: 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d  T objv[]  /* Com
1120: 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 2a  mand arguments *
1130: 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 62  /.){.  sqlite3_b
1140: 6c 6f 62 20 2a 70 42 6c 6f 62 3b 0a 20 20 69 6e  lob *pBlob;.  in
1150: 74 20 72 63 3b 0a 20 20 0a 20 20 69 66 28 20 6f  t rc;.  .  if( o
1160: 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63  bjc!=2 ){.    Tc
1170: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
1180: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
1190: 22 48 41 4e 44 4c 45 22 29 3b 0a 20 20 20 20 72  "HANDLE");.    r
11a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
11b0: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 62 6c 6f 62  .  }..  if( blob
11c0: 48 61 6e 64 6c 65 46 72 6f 6d 4f 62 6a 28 69 6e  HandleFromObj(in
11d0: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26  terp, objv[1], &
11e0: 70 42 6c 6f 62 29 20 29 20 72 65 74 75 72 6e 20  pBlob) ) return 
11f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20  TCL_ERROR;.  rc 
1200: 3d 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 63  = sqlite3_blob_c
1210: 6c 6f 73 65 28 70 42 6c 6f 62 29 3b 0a 0a 20 20  lose(pBlob);..  
1220: 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 54 63  if( rc ){.    Tc
1230: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65  l_SetResult(inte
1240: 72 70 2c 20 28 63 68 61 72 2a 29 73 71 6c 69 74  rp, (char*)sqlit
1250: 65 33 45 72 72 4e 61 6d 65 28 72 63 29 2c 20 54  e3ErrName(rc), T
1260: 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20  CL_VOLATILE);.  
1270: 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f 52  }else{.    Tcl_R
1280: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  esetResult(inter
1290: 70 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  p);.  }.  return
12a0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
12b0: 2a 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 62  * sqlite3_blob_b
12c0: 79 74 65 73 20 20 48 41 4e 44 4c 45 0a 2a 2f 0a  ytes  HANDLE.*/.
12d0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f  static int test_
12e0: 62 6c 6f 62 5f 62 79 74 65 73 28 0a 20 20 43 6c  blob_bytes(.  Cl
12f0: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44  ientData clientD
1300: 61 74 61 2c 20 2f 2a 20 4e 6f 74 20 75 73 65 64  ata, /* Not used
1310: 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70   */.  Tcl_Interp
1320: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20   *interp,    /* 
1330: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65  The TCL interpre
1340: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64  ter that invoked
1350: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f   this command */
1360: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20  .  int objc,    
1370: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
1380: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
1390: 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43   */.  Tcl_Obj *C
13a0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20  ONST objv[]  /* 
13b0: 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74  Command argument
13c0: 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65  s */.){.  sqlite
13d0: 33 5f 62 6c 6f 62 20 2a 70 42 6c 6f 62 3b 0a 20  3_blob *pBlob;. 
13e0: 20 69 6e 74 20 6e 42 79 74 65 3b 0a 20 20 0a 20   int nByte;.  . 
13f0: 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a   if( objc!=2 ){.
1400: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
1410: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
1420: 6f 62 6a 76 2c 20 22 48 41 4e 44 4c 45 22 29 3b  objv, "HANDLE");
1430: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
1440: 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66  ERROR;.  }..  if
1450: 28 20 62 6c 6f 62 48 61 6e 64 6c 65 46 72 6f 6d  ( blobHandleFrom
1460: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76  Obj(interp, objv
1470: 5b 31 5d 2c 20 26 70 42 6c 6f 62 29 20 29 20 72  [1], &pBlob) ) r
1480: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
1490: 0a 20 20 6e 42 79 74 65 20 3d 20 73 71 6c 69 74  .  nByte = sqlit
14a0: 65 33 5f 62 6c 6f 62 5f 62 79 74 65 73 28 70 42  e3_blob_bytes(pB
14b0: 6c 6f 62 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f  lob);.  Tcl_SetO
14c0: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
14d0: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e   Tcl_NewIntObj(n
14e0: 42 79 74 65 29 29 3b 0a 0a 20 20 72 65 74 75 72  Byte));..  retur
14f0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  n TCL_OK;.}../*.
1500: 2a 2a 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f  ** sqlite3_blob_
1510: 72 65 61 64 20 20 43 48 41 4e 4e 45 4c 20 4f 46  read  CHANNEL OF
1520: 46 53 45 54 20 4e 0a 2a 2a 0a 2a 2a 20 20 20 54  FSET N.**.**   T
1530: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75  his command is u
1540: 73 65 64 20 74 6f 20 74 65 73 74 20 74 68 65 20  sed to test the 
1550: 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 72 65 61  sqlite3_blob_rea
1560: 64 28 29 20 69 6e 20 77 61 79 73 20 74 68 61 74  d() in ways that
1570: 0a 2a 2a 20 20 20 74 68 65 20 54 63 6c 20 63 68  .**   the Tcl ch
1580: 61 6e 6e 65 6c 20 69 6e 74 65 72 66 61 63 65 20  annel interface 
1590: 64 6f 65 73 20 6e 6f 74 2e 20 54 68 65 20 66 69  does not. The fi
15a0: 72 73 74 20 61 72 67 75 6d 65 6e 74 20 73 68 6f  rst argument sho
15b0: 75 6c 64 0a 2a 2a 20 20 20 62 65 20 74 68 65 20  uld.**   be the 
15c0: 6e 61 6d 65 20 6f 66 20 61 20 76 61 6c 69 64 20  name of a valid 
15d0: 63 68 61 6e 6e 65 6c 20 63 72 65 61 74 65 64 20  channel created 
15e0: 62 79 20 74 68 65 20 5b 69 6e 63 72 62 6c 6f 62  by the [incrblob
15f0: 5d 20 6d 65 74 68 6f 64 0a 2a 2a 20 20 20 6f 66  ] method.**   of
1600: 20 61 20 64 61 74 61 62 61 73 65 20 68 61 6e 64   a database hand
1610: 6c 65 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f  le. This functio
1620: 6e 20 63 61 6c 6c 73 20 73 71 6c 69 74 65 33 5f  n calls sqlite3_
1630: 62 6c 6f 62 5f 72 65 61 64 28 29 0a 2a 2a 20 20  blob_read().**  
1640: 20 74 6f 20 72 65 61 64 20 4e 20 62 79 74 65 73   to read N bytes
1650: 20 66 72 6f 6d 20 6f 66 66 73 65 74 20 4f 46 46   from offset OFF
1660: 53 45 54 20 66 72 6f 6d 20 74 68 65 20 75 6e 64  SET from the und
1670: 65 72 6c 79 69 6e 67 20 53 51 4c 69 74 65 0a 2a  erlying SQLite.*
1680: 2a 20 20 20 62 6c 6f 62 20 68 61 6e 64 6c 65 2e  *   blob handle.
1690: 0a 2a 2a 0a 2a 2a 20 20 20 4f 6e 20 73 75 63 63  .**.**   On succ
16a0: 65 73 73 2c 20 61 20 62 79 74 65 2d 61 72 72 61  ess, a byte-arra
16b0: 79 20 6f 62 6a 65 63 74 20 63 6f 6e 74 61 69 6e  y object contain
16c0: 69 6e 67 20 74 68 65 20 72 65 61 64 20 64 61 74  ing the read dat
16d0: 61 20 69 73 20 0a 2a 2a 20 20 20 72 65 74 75 72  a is .**   retur
16e0: 6e 65 64 2e 20 4f 6e 20 66 61 69 6c 75 72 65 2c  ned. On failure,
16f0: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72   the interpreter
1700: 20 72 65 73 75 6c 74 20 69 73 20 73 65 74 20 74   result is set t
1710: 6f 20 74 68 65 0a 2a 2a 20 20 20 74 65 78 74 20  o the.**   text 
1720: 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f  representation o
1730: 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 65  f the returned e
1740: 72 72 6f 72 20 63 6f 64 65 20 28 69 2e 65 2e 20  rror code (i.e. 
1750: 22 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 22 29 0a  "SQLITE_NOMEM").
1760: 2a 2a 20 20 20 61 6e 64 20 61 20 54 63 6c 20 65  **   and a Tcl e
1770: 78 63 65 70 74 69 6f 6e 20 69 73 20 74 68 72 6f  xception is thro
1780: 77 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  wn..*/.static in
1790: 74 20 74 65 73 74 5f 62 6c 6f 62 5f 72 65 61 64  t test_blob_read
17a0: 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63  (.  ClientData c
17b0: 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 4e 6f  lientData, /* No
17c0: 74 20 75 73 65 64 20 2a 2f 0a 20 20 54 63 6c 5f  t used */.  Tcl_
17d0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
17e0: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e     /* The TCL in
17f0: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69  terpreter that i
1800: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d  nvoked this comm
1810: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a  and */.  int obj
1820: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c,              
1830: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67  /* Number of arg
1840: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f  uments */.  Tcl_
1850: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b  Obj *CONST objv[
1860: 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72  ]  /* Command ar
1870: 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20  guments */.){.  
1880: 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 2a 70 42  sqlite3_blob *pB
1890: 6c 6f 62 3b 0a 20 20 69 6e 74 20 6e 42 79 74 65  lob;.  int nByte
18a0: 3b 0a 20 20 69 6e 74 20 69 4f 66 66 73 65 74 3b  ;.  int iOffset;
18b0: 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  .  unsigned char
18c0: 20 2a 7a 42 75 66 20 3d 20 30 3b 0a 20 20 69 6e   *zBuf = 0;.  in
18d0: 74 20 72 63 3b 0a 20 20 0a 20 20 69 66 28 20 6f  t rc;.  .  if( o
18e0: 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63  bjc!=4 ){.    Tc
18f0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
1900: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
1910: 22 43 48 41 4e 4e 45 4c 20 4f 46 46 53 45 54 20  "CHANNEL OFFSET 
1920: 4e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  N");.    return 
1930: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a  TCL_ERROR;.  }..
1940: 20 20 69 66 28 20 62 6c 6f 62 48 61 6e 64 6c 65    if( blobHandle
1950: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
1960: 6f 62 6a 76 5b 31 5d 2c 20 26 70 42 6c 6f 62 29  objv[1], &pBlob)
1970: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52   ) return TCL_ER
1980: 52 4f 52 3b 0a 20 20 69 66 28 20 54 43 4c 5f 4f  ROR;.  if( TCL_O
1990: 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f  K!=Tcl_GetIntFro
19a0: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
19b0: 76 5b 32 5d 2c 20 26 69 4f 66 66 73 65 74 29 0a  v[2], &iOffset).
19c0: 20 20 20 7c 7c 20 54 43 4c 5f 4f 4b 21 3d 54 63     || TCL_OK!=Tc
19d0: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28  l_GetIntFromObj(
19e0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c  interp, objv[3],
19f0: 20 26 6e 42 79 74 65 29 0a 20 20 29 7b 20 0a 20   &nByte).  ){ . 
1a00: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
1a10: 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20  ROR;.  }..  if( 
1a20: 6e 42 79 74 65 3e 30 20 29 7b 0a 20 20 20 20 7a  nByte>0 ){.    z
1a30: 42 75 66 20 3d 20 28 75 6e 73 69 67 6e 65 64 20  Buf = (unsigned 
1a40: 63 68 61 72 20 2a 29 54 63 6c 5f 41 6c 6c 6f 63  char *)Tcl_Alloc
1a50: 28 6e 42 79 74 65 29 3b 0a 20 20 7d 0a 20 20 72  (nByte);.  }.  r
1a60: 63 20 3d 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62  c = sqlite3_blob
1a70: 5f 72 65 61 64 28 70 42 6c 6f 62 2c 20 7a 42 75  _read(pBlob, zBu
1a80: 66 2c 20 6e 42 79 74 65 2c 20 69 4f 66 66 73 65  f, nByte, iOffse
1a90: 74 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 51  t);.  if( rc==SQ
1aa0: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54  LITE_OK ){.    T
1ab0: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_SetObjResult(
1ac0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42  interp, Tcl_NewB
1ad0: 79 74 65 41 72 72 61 79 4f 62 6a 28 7a 42 75 66  yteArrayObj(zBuf
1ae0: 2c 20 6e 42 79 74 65 29 29 3b 0a 20 20 7d 65 6c  , nByte));.  }el
1af0: 73 65 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 52  se{.    Tcl_SetR
1b00: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63  esult(interp, (c
1b10: 68 61 72 20 2a 29 73 71 6c 69 74 65 33 45 72 72  har *)sqlite3Err
1b20: 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 56 4f  Name(rc), TCL_VO
1b30: 4c 41 54 49 4c 45 29 3b 0a 20 20 7d 0a 20 20 54  LATILE);.  }.  T
1b40: 63 6c 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29  cl_Free((char *)
1b50: 7a 42 75 66 29 3b 0a 0a 20 20 72 65 74 75 72 6e  zBuf);..  return
1b60: 20 28 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20   (rc==SQLITE_OK 
1b70: 3f 20 54 43 4c 5f 4f 4b 20 3a 20 54 43 4c 5f 45  ? TCL_OK : TCL_E
1b80: 52 52 4f 52 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  RROR);.}../*.** 
1b90: 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69  sqlite3_blob_wri
1ba0: 74 65 20 48 41 4e 44 4c 45 20 4f 46 46 53 45 54  te HANDLE OFFSET
1bb0: 20 44 41 54 41 20 3f 4e 44 41 54 41 3f 0a 2a 2a   DATA ?NDATA?.**
1bc0: 0a 2a 2a 20 20 20 54 68 69 73 20 63 6f 6d 6d 61  .**   This comma
1bd0: 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 74 65  nd is used to te
1be0: 73 74 20 74 68 65 20 73 71 6c 69 74 65 33 5f 62  st the sqlite3_b
1bf0: 6c 6f 62 5f 77 72 69 74 65 28 29 20 69 6e 20 77  lob_write() in w
1c00: 61 79 73 20 74 68 61 74 0a 2a 2a 20 20 20 74 68  ays that.**   th
1c10: 65 20 54 63 6c 20 63 68 61 6e 6e 65 6c 20 69 6e  e Tcl channel in
1c20: 74 65 72 66 61 63 65 20 64 6f 65 73 20 6e 6f 74  terface does not
1c30: 2e 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75  . The first argu
1c40: 6d 65 6e 74 20 73 68 6f 75 6c 64 0a 2a 2a 20 20  ment should.**  
1c50: 20 62 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20   be the name of 
1c60: 61 20 76 61 6c 69 64 20 63 68 61 6e 6e 65 6c 20  a valid channel 
1c70: 63 72 65 61 74 65 64 20 62 79 20 74 68 65 20 5b  created by the [
1c80: 69 6e 63 72 62 6c 6f 62 5d 20 6d 65 74 68 6f 64  incrblob] method
1c90: 0a 2a 2a 20 20 20 6f 66 20 61 20 64 61 74 61 62  .**   of a datab
1ca0: 61 73 65 20 68 61 6e 64 6c 65 2e 20 54 68 69 73  ase handle. This
1cb0: 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 73 20   function calls 
1cc0: 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69  sqlite3_blob_wri
1cd0: 74 65 28 29 0a 2a 2a 20 20 20 74 6f 20 77 72 69  te().**   to wri
1ce0: 74 65 20 74 68 65 20 44 41 54 41 20 62 79 74 65  te the DATA byte
1cf0: 2d 61 72 72 61 79 20 74 6f 20 74 68 65 20 75 6e  -array to the un
1d00: 64 65 72 6c 79 69 6e 67 20 53 51 4c 69 74 65 20  derlying SQLite 
1d10: 62 6c 6f 62 20 68 61 6e 64 6c 65 2e 0a 2a 2a 20  blob handle..** 
1d20: 20 20 61 74 20 6f 66 66 73 65 74 20 4f 46 46 53    at offset OFFS
1d30: 45 54 2e 0a 2a 2a 0a 2a 2a 20 20 20 4f 6e 20 73  ET..**.**   On s
1d40: 75 63 63 65 73 73 2c 20 61 6e 20 65 6d 70 74 79  uccess, an empty
1d50: 20 73 74 72 69 6e 67 20 69 73 20 72 65 74 75 72   string is retur
1d60: 6e 65 64 2e 20 4f 6e 20 66 61 69 6c 75 72 65 2c  ned. On failure,
1d70: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72   the interpreter
1d80: 0a 2a 2a 20 20 20 72 65 73 75 6c 74 20 69 73 20  .**   result is 
1d90: 73 65 74 20 74 6f 20 74 68 65 20 74 65 78 74 20  set to the text 
1da0: 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f  representation o
1db0: 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 65  f the returned e
1dc0: 72 72 6f 72 20 63 6f 64 65 20 0a 2a 2a 20 20 20  rror code .**   
1dd0: 28 69 2e 65 2e 20 22 53 51 4c 49 54 45 5f 4e 4f  (i.e. "SQLITE_NO
1de0: 4d 45 4d 22 29 20 61 6e 64 20 61 20 54 63 6c 20  MEM") and a Tcl 
1df0: 65 78 63 65 70 74 69 6f 6e 20 69 73 20 74 68 72  exception is thr
1e00: 6f 77 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  own..*/.static i
1e10: 6e 74 20 74 65 73 74 5f 62 6c 6f 62 5f 77 72 69  nt test_blob_wri
1e20: 74 65 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61  te(.  ClientData
1e30: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20   clientData, /* 
1e40: 4e 6f 74 20 75 73 65 64 20 2a 2f 0a 20 20 54 63  Not used */.  Tc
1e50: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
1e60: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20  ,    /* The TCL 
1e70: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74  interpreter that
1e80: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f   invoked this co
1e90: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f  mmand */.  int o
1ea0: 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20 20  bjc,            
1eb0: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61    /* Number of a
1ec0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63  rguments */.  Tc
1ed0: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a  l_Obj *CONST obj
1ee0: 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20  v[]  /* Command 
1ef0: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a  arguments */.){.
1f00: 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 20 2a    sqlite3_blob *
1f10: 70 42 6c 6f 62 3b 0a 20 20 69 6e 74 20 69 4f 66  pBlob;.  int iOf
1f20: 66 73 65 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a  fset;.  int rc;.
1f30: 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  .  unsigned char
1f40: 20 2a 7a 42 75 66 3b 0a 20 20 69 6e 74 20 6e 42   *zBuf;.  int nB
1f50: 75 66 3b 0a 20 20 0a 20 20 69 66 28 20 6f 62 6a  uf;.  .  if( obj
1f60: 63 21 3d 34 20 26 26 20 6f 62 6a 63 21 3d 35 20  c!=4 && objc!=5 
1f70: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67  ){.    Tcl_Wrong
1f80: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
1f90: 31 2c 20 6f 62 6a 76 2c 20 22 48 41 4e 44 4c 45  1, objv, "HANDLE
1fa0: 20 4f 46 46 53 45 54 20 44 41 54 41 20 3f 4e 44   OFFSET DATA ?ND
1fb0: 41 54 41 3f 22 29 3b 0a 20 20 20 20 72 65 74 75  ATA?");.    retu
1fc0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
1fd0: 7d 0a 0a 20 20 69 66 28 20 62 6c 6f 62 48 61 6e  }..  if( blobHan
1fe0: 64 6c 65 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  dleFromObj(inter
1ff0: 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 70 42 6c  p, objv[1], &pBl
2000: 6f 62 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c  ob) ) return TCL
2010: 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 43  _ERROR;.  if( TC
2020: 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74  L_OK!=Tcl_GetInt
2030: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
2040: 6f 62 6a 76 5b 32 5d 2c 20 26 69 4f 66 66 73 65  objv[2], &iOffse
2050: 74 29 20 29 7b 20 0a 20 20 20 20 72 65 74 75 72  t) ){ .    retur
2060: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
2070: 0a 0a 20 20 7a 42 75 66 20 3d 20 54 63 6c 5f 47  ..  zBuf = Tcl_G
2080: 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f  etByteArrayFromO
2090: 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 42 75  bj(objv[3], &nBu
20a0: 66 29 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d  f);.  if( objc==
20b0: 35 20 26 26 20 54 63 6c 5f 47 65 74 49 6e 74 46  5 && Tcl_GetIntF
20c0: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
20d0: 62 6a 76 5b 34 5d 2c 20 26 6e 42 75 66 29 20 29  bjv[4], &nBuf) )
20e0: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  {.    return TCL
20f0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63  _ERROR;.  }.  rc
2100: 20 3d 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f   = sqlite3_blob_
2110: 77 72 69 74 65 28 70 42 6c 6f 62 2c 20 7a 42 75  write(pBlob, zBu
2120: 66 2c 20 6e 42 75 66 2c 20 69 4f 66 66 73 65 74  f, nBuf, iOffset
2130: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c  );.  if( rc!=SQL
2140: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63  ITE_OK ){.    Tc
2150: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65  l_SetResult(inte
2160: 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c 69  rp, (char *)sqli
2170: 74 65 33 45 72 72 4e 61 6d 65 28 72 63 29 2c 20  te3ErrName(rc), 
2180: 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20  TCL_VOLATILE);. 
2190: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 28 72 63   }..  return (rc
21a0: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 3f 20 54 43  ==SQLITE_OK ? TC
21b0: 4c 5f 4f 4b 20 3a 20 54 43 4c 5f 45 52 52 4f 52  L_OK : TCL_ERROR
21c0: 29 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 67  );.}.../*.** Reg
21d0: 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73 20 77  ister commands w
21e0: 69 74 68 20 74 68 65 20 54 43 4c 20 69 6e 74 65  ith the TCL inte
21f0: 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e 74 20  rpreter..*/.int 
2200: 53 71 6c 69 74 65 74 65 73 74 5f 62 6c 6f 62 5f  Sqlitetest_blob_
2210: 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20  Init(Tcl_Interp 
2220: 2a 69 6e 74 65 72 70 29 7b 0a 20 20 73 74 61 74  *interp){.  stat
2230: 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20 20  ic struct {.    
2240: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20   char *zName;.  
2250: 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f     Tcl_ObjCmdPro
2260: 63 20 2a 78 50 72 6f 63 3b 0a 20 20 7d 20 61 4f  c *xProc;.  } aO
2270: 62 6a 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20  bjCmd[] = {.    
2280: 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 6c 6f 62   { "sqlite3_blob
2290: 5f 6f 70 65 6e 22 2c 20 20 20 20 20 20 20 20 20  _open",         
22a0: 20 20 20 74 65 73 74 5f 62 6c 6f 62 5f 6f 70 65     test_blob_ope
22b0: 6e 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20  n        },.    
22c0: 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 6c 6f 62   { "sqlite3_blob
22d0: 5f 63 6c 6f 73 65 22 2c 20 20 20 20 20 20 20 20  _close",        
22e0: 20 20 20 74 65 73 74 5f 62 6c 6f 62 5f 63 6c 6f     test_blob_clo
22f0: 73 65 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20  se       },.    
2300: 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 6c 6f 62   { "sqlite3_blob
2310: 5f 62 79 74 65 73 22 2c 20 20 20 20 20 20 20 20  _bytes",        
2320: 20 20 20 74 65 73 74 5f 62 6c 6f 62 5f 62 79 74     test_blob_byt
2330: 65 73 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20  es       },.    
2340: 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 6c 6f 62   { "sqlite3_blob
2350: 5f 72 65 61 64 22 2c 20 20 20 20 20 20 20 20 20  _read",         
2360: 20 20 20 74 65 73 74 5f 62 6c 6f 62 5f 72 65 61     test_blob_rea
2370: 64 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20  d        },.    
2380: 20 7b 20 22 73 71 6c 69 74 65 33 5f 62 6c 6f 62   { "sqlite3_blob
2390: 5f 77 72 69 74 65 22 2c 20 20 20 20 20 20 20 20  _write",        
23a0: 20 20 20 74 65 73 74 5f 62 6c 6f 62 5f 77 72 69     test_blob_wri
23b0: 74 65 20 20 20 20 20 20 20 7d 2c 0a 20 20 7d 3b  te       },.  };
23c0: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28  .  int i;.  for(
23d0: 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 4f  i=0; i<sizeof(aO
23e0: 62 6a 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61 4f  bjCmd)/sizeof(aO
23f0: 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b  bjCmd[0]); i++){
2400: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f  .    Tcl_CreateO
2410: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70  bjCommand(interp
2420: 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 7a 4e 61  , aObjCmd[i].zNa
2430: 6d 65 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 78  me, aObjCmd[i].x
2440: 50 72 6f 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d  Proc, 0, 0);.  }
2450: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
2460: 3b 0a 7d 0a                                      ;.}.