[sql] Import SQLite 3.17.0.

third_party/sqlite/src/src/test_hexio.c

 /*
 ** 2007 April 6
 **
 ** The author disclaims copyright to this source code.  In place of
 ** a legal notice, here is a blessing:
 **
 **    May you do good and not evil.
 **    May you find forgiveness for yourself and forgive others.
 **    May you share freely, never taking more than you give.
 **
 *************************************************************************
 ** Code for testing all sorts of SQLite interfaces.  This code
 ** implements TCL commands for reading and writing the binary
 ** database files and displaying the content of those files as
 ** hexadecimal.  We could, in theory, use the built-in "binary"
 ** command of TCL to do a lot of this, but there are some issues
 ** with historical versions of the "binary" command.  So it seems
 ** easier and safer to build our own mechanism.
 */
 #include "sqliteInt.h"
-#include "tcl.h"
+#if defined(INCLUDE_SQLITE_TCL_H)
+#  include "sqlite_tcl.h"
+#else
+#  include "tcl.h"
+#endif
 #include <stdlib.h>
 #include <string.h>
 #include <assert.h>
 
 
 /*
 ** Convert binary to hex.  The input zBuf[] contains N bytes of
 ** binary data.  zBuf[] is 2*n+1 bytes long.  Overwrite zBuf[]
 ** with a hexadecimal representation of its original binary input.
 */
@@ skipping 55 matching lines @@
 }
 
 
 /*
 ** Usage:   hexio_read  FILENAME  OFFSET  AMT
 **
 ** Read AMT bytes from file FILENAME beginning at OFFSET from the
 ** beginning of the file.  Convert that information to hexadecimal
 ** and return the resulting HEX string.
 */
-static int hexio_read(
+static int SQLITE_TCLAPI hexio_read(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int offset;
   int amt, got;
   const char *zFile;
   unsigned char *zBuf;
   FILE *in;
@@ skipping 29 matching lines @@
   return TCL_OK;
 }
 
 
 /*
 ** Usage:   hexio_write  FILENAME  OFFSET  DATA
 **
 ** Write DATA into file FILENAME beginning at OFFSET from the
 ** beginning of the file.  DATA is expressed in hexadecimal.
 */
-static int hexio_write(
+static int SQLITE_TCLAPI hexio_write(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int offset;
   int nIn, nOut, written;
   const char *zFile;
   const unsigned char *zIn;
   unsigned char *aOut;
@@ skipping 27 matching lines @@
   return TCL_OK;
 }
 
 /*
 ** USAGE:   hexio_get_int   HEXDATA
 **
 ** Interpret the HEXDATA argument as a big-endian integer.  Return
 ** the value of that integer.  HEXDATA can contain between 2 and 8
 ** hexadecimal digits.
 */
-static int hexio_get_int(
+static int SQLITE_TCLAPI hexio_get_int(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int val;
   int nIn, nOut;
   const unsigned char *zIn;
   unsigned char *aOut;
   unsigned char aNum[4];
@@ skipping 19 matching lines @@
   Tcl_SetObjResult(interp, Tcl_NewIntObj(val));
   return TCL_OK;
 }
 
 
 /*
 ** USAGE:   hexio_render_int16   INTEGER
 **
 ** Render INTEGER has a 16-bit big-endian integer in hexadecimal.
 */
-static int hexio_render_int16(
+static int SQLITE_TCLAPI hexio_render_int16(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int val;
   unsigned char aNum[10];
 
   if( objc!=2 ){
     Tcl_WrongNumArgs(interp, 1, objv, "INTEGER");
     return TCL_ERROR;
   }
   if( Tcl_GetIntFromObj(interp, objv[1], &val) ) return TCL_ERROR;
   aNum[0] = val>>8;
   aNum[1] = val;
   sqlite3TestBinToHex(aNum, 2);
   Tcl_SetObjResult(interp, Tcl_NewStringObj((char*)aNum, 4));
   return TCL_OK;
 }
 
 
 /*
 ** USAGE:   hexio_render_int32   INTEGER
 **
 ** Render INTEGER has a 32-bit big-endian integer in hexadecimal.
 */
-static int hexio_render_int32(
+static int SQLITE_TCLAPI hexio_render_int32(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int val;
   unsigned char aNum[10];
 
   if( objc!=2 ){
     Tcl_WrongNumArgs(interp, 1, objv, "INTEGER");
     return TCL_ERROR;
   }
   if( Tcl_GetIntFromObj(interp, objv[1], &val) ) return TCL_ERROR;
   aNum[0] = val>>24;
   aNum[1] = val>>16;
   aNum[2] = val>>8;
   aNum[3] = val;
   sqlite3TestBinToHex(aNum, 4);
   Tcl_SetObjResult(interp, Tcl_NewStringObj((char*)aNum, 8));
   return TCL_OK;
 }
 
 /*
 ** USAGE:  utf8_to_utf8  HEX
 **
 ** The argument is a UTF8 string represented in hexadecimal.
 ** The UTF8 might not be well-formed.  Run this string through
 ** sqlite3Utf8to8() convert it back to hex and return the result.
 */
-static int utf8_to_utf8(
+static int SQLITE_TCLAPI utf8_to_utf8(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
 #ifdef SQLITE_DEBUG
   int n;
   int nOut;
   const unsigned char *zOrig;
   unsigned char *z;
@@ skipping 30 matching lines @@
   return (int) (q - (unsigned char *)p);
 }
 
 
 /*
 ** USAGE:  read_fts3varint BLOB VARNAME
 **
 ** Read a varint from the start of BLOB. Set variable VARNAME to contain
 ** the interpreted value. Return the number of bytes of BLOB consumed.
 */
-static int read_fts3varint(
+static int SQLITE_TCLAPI read_fts3varint(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int nBlob;
   unsigned char *zBlob;
   sqlite3_int64 iVal;
   int nVal;
 
@@ skipping 25 matching lines @@
      { "hexio_render_int32",           hexio_render_int32    },
      { "utf8_to_utf8",                 utf8_to_utf8          },
      { "read_fts3varint",              read_fts3varint       },
   };
   int i;
   for(i=0; i<sizeof(aObjCmd)/sizeof(aObjCmd[0]); i++){
     Tcl_CreateObjCommand(interp, aObjCmd[i].zName, aObjCmd[i].xProc, 0, 0);
   }
   return TCL_OK;
 }