[sql] Import SQLite 3.17.0.

third_party/sqlite/src/src/test5.c

 /*
 ** 2001 September 15
 **
 ** 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 the utf.c module in SQLite.  This code
 ** is not included in the SQLite library.  It is used for automated
 ** testing of the SQLite library. Specifically, the code in this file
 ** is used for testing the SQLite routines for converting between
 ** the various supported unicode encodings.
 */
 #include "sqliteInt.h"
 #include "vdbeInt.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>
 
 /*
 ** The first argument is a TCL UTF-8 string. Return the byte array
 ** object with the encoded representation of the string, including
 ** the NULL terminator.
 */
-static int binarize(
+static int SQLITE_TCLAPI binarize(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int len;
   char *bytes;
   Tcl_Obj *pRet;
   assert(objc==2);
 
   bytes = Tcl_GetStringFromObj(objv[1], &len);
   pRet = Tcl_NewByteArrayObj((u8*)bytes, len+1);
   Tcl_SetObjResult(interp, pRet);
   return TCL_OK;
 }
 
 /*
 ** Usage: test_value_overhead <repeat-count> <do-calls>.
 **
 ** This routine is used to test the overhead of calls to
 ** sqlite3_value_text(), on a value that contains a UTF-8 string. The idea
 ** is to figure out whether or not it is a problem to use sqlite3_value
 ** structures with collation sequence functions.
 **
 ** If <do-calls> is 0, then the calls to sqlite3_value_text() are not
 ** actually made.
 */
-static int test_value_overhead(
+static int SQLITE_TCLAPI test_value_overhead(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int do_calls;
   int repeat_count;
   int i;
   Mem val;
 
@@ skipping 43 matching lines @@
   if( pEnc->enc==SQLITE_UTF16 ){
     return SQLITE_UTF16NATIVE;
   }
   return pEnc->enc;
 }
 
 /*
 ** Usage:   test_translate <string/blob> <from enc> <to enc> ?<transient>?
 **
 */
-static int test_translate(
+static int SQLITE_TCLAPI test_translate(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   u8 enc_from;
   u8 enc_to;
   sqlite3_value *pVal;
 
   char *z;
@@ skipping 43 matching lines @@
   return TCL_OK;
 }
 
 /*
 ** Usage: translate_selftest
 **
 ** Call sqlite3UtfSelfTest() to run the internal tests for unicode
 ** translation. If there is a problem an assert() will fail.
 **/
 void sqlite3UtfSelfTest(void);
-static int test_translate_selftest(
+static int SQLITE_TCLAPI test_translate_selftest(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
 #ifndef SQLITE_OMIT_UTF16
   sqlite3UtfSelfTest();
 #endif
   return SQLITE_OK;
 }
@@ skipping 11 matching lines @@
     { "test_value_overhead",     (Tcl_ObjCmdProc*)test_value_overhead },
     { "test_translate",          (Tcl_ObjCmdProc*)test_translate     },
     { "translate_selftest",      (Tcl_ObjCmdProc*)test_translate_selftest},
   };
   int i;
   for(i=0; i<sizeof(aCmd)/sizeof(aCmd[0]); i++){
     Tcl_CreateObjCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0);
   }
   return SQLITE_OK;
 }