[sql] Import reference version of SQLite 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/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.
 **
@@ skipping 108 matching lines @@
   }
   in = fopen(zFile, "rb");
   if( in==0 ){
     in = fopen(zFile, "r");
   }
   if( in==0 ){
     Tcl_AppendResult(interp, "cannot open input file ", zFile, 0);
     return TCL_ERROR;
   }
   fseek(in, offset, SEEK_SET);
-  got = fread(zBuf, 1, amt, in);
+  got = (int)fread(zBuf, 1, amt, in);
   fclose(in);
   if( got<0 ){
     got = 0;
   }
   sqlite3TestBinToHex(zBuf, got);
   Tcl_AppendResult(interp, zBuf, 0);
   sqlite3_free(zBuf);
   return TCL_OK;
 }
 
@@ skipping 31 matching lines @@
   nOut = sqlite3TestHexToBin(zIn, nIn, aOut);
   out = fopen(zFile, "r+b");
   if( out==0 ){
     out = fopen(zFile, "r+");
   }
   if( out==0 ){
     Tcl_AppendResult(interp, "cannot open output file ", zFile, 0);
     return TCL_ERROR;
   }
   fseek(out, offset, SEEK_SET);
-  written = fwrite(aOut, 1, nOut, out);
+  written = (int)fwrite(aOut, 1, nOut, out);
   sqlite3_free(aOut);
   fclose(out);
   Tcl_SetObjResult(interp, Tcl_NewIntObj(written));
   return TCL_OK;
 }
 
 /*
 ** USAGE:   hexio_get_int   HEXDATA
 **
 ** Interpret the HEXDATA argument as a big-endian integer.  Return
@@ skipping 187 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;
 }