[sql] Import SQLite 3.17.0.

third_party/sqlite/src/src/test9.c

 /*
 ** 2007 March 29
 **
 ** 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.
 **
 *************************************************************************
 **
 ** This file contains obscure tests of the C-interface required
 ** for completeness. Test code is written in C for these cases
 ** as there is not much point in binding to Tcl.
 */
 #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>
 
 /*
 ** c_collation_test
 */
-static int c_collation_test(
+static int SQLITE_TCLAPI c_collation_test(
   ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
   int objc,              /* Number of arguments */
   Tcl_Obj *CONST objv[]  /* Command arguments */
 ){
   const char *zErrFunction = "N/A";
   sqlite3 *db;
 
   int rc;
   if( objc!=1 ){
@@ skipping 20 matching lines @@
 
 error_out:
   Tcl_ResetResult(interp);
   Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
   return TCL_ERROR;
 }
 
 /*
 ** c_realloc_test
 */
-static int c_realloc_test(
+static int SQLITE_TCLAPI c_realloc_test(
   ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
   int objc,              /* Number of arguments */
   Tcl_Obj *CONST objv[]  /* Command arguments */
 ){
   void *p;
   const char *zErrFunction = "N/A";
 
   if( objc!=1 ){
     Tcl_WrongNumArgs(interp, 1, objv, "");
@@ skipping 20 matching lines @@
 error_out:
   Tcl_ResetResult(interp);
   Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
   return TCL_ERROR;
 }
 
 
 /*
 ** c_misuse_test
 */
-static int c_misuse_test(
+static int SQLITE_TCLAPI c_misuse_test(
   ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
   int objc,              /* Number of arguments */
   Tcl_Obj *CONST objv[]  /* Command arguments */
 ){
   const char *zErrFunction = "N/A";
   sqlite3 *db = 0;
   sqlite3_stmt *pStmt;
   int rc;
 
@@ skipping 73 matching lines @@
      { "c_realloc_test",   c_realloc_test, 0 },
      { "c_collation_test", c_collation_test, 0 },
   };
   int i;
   for(i=0; i<sizeof(aObjCmd)/sizeof(aObjCmd[0]); i++){
     Tcl_CreateObjCommand(interp, aObjCmd[i].zName, 
         aObjCmd[i].xProc, aObjCmd[i].clientData, 0);
   }
   return TCL_OK;
 }