[sql] Import SQLite 3.17.0.

third_party/sqlite/src/src/test_superlock.c

 /*
 ** 2010 November 19
 **
 ** 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 238 matching lines @@
 
 /*
 ** End of example code. Everything below here is the test harness.
 **************************************************************************
 **************************************************************************
 *************************************************************************/
 
 
 #ifdef SQLITE_TEST
 
-#include <tcl.h>
+#if defined(INCLUDE_SQLITE_TCL_H)
+#  include "sqlite_tcl.h"
+#else
+#  include "tcl.h"
+#  ifndef SQLITE_TCLAPI
+#    define SQLITE_TCLAPI
+#  endif
+#endif
 
 struct InterpAndScript {
   Tcl_Interp *interp;
   Tcl_Obj *pScript;
 };
 typedef struct InterpAndScript InterpAndScript;
 
-static void superunlock_del(ClientData cd){
+static void SQLITE_TCLAPI superunlock_del(ClientData cd){
   sqlite3demo_superunlock((void *)cd);
 }
 
-static int superunlock_cmd(
+static int SQLITE_TCLAPI superunlock_cmd(
   ClientData cd,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   if( objc!=1 ){
     Tcl_WrongNumArgs(interp, 1, objv, "");
     return TCL_ERROR;
   }
   Tcl_DeleteCommand(interp, Tcl_GetString(objv[0]));
@@ skipping 11 matching lines @@
   Tcl_EvalObjEx(p->interp, pEval, TCL_EVAL_GLOBAL);
   Tcl_GetIntFromObj(p->interp, Tcl_GetObjResult(p->interp), &iVal);
   Tcl_DecrRefCount(pEval);
 
   return iVal;
 }
 
 /*
 ** Tclcmd: sqlite3demo_superlock CMDNAME PATH VFS BUSY-HANDLER-SCRIPT
 */
-static int superlock_cmd(
+static int SQLITE_TCLAPI superlock_cmd(
   ClientData cd,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   void *pLock;                    /* Lock context */
   char *zPath;
   char *zVfs = 0;
   InterpAndScript busy = {0, 0};
   int (*xBusy)(void*,int) = 0;    /* Busy handler callback */
@@ skipping 33 matching lines @@
   );
   Tcl_SetObjResult(interp, objv[1]);
   return TCL_OK;
 }
 
 int SqliteSuperlock_Init(Tcl_Interp *interp){
   Tcl_CreateObjCommand(interp, "sqlite3demo_superlock", superlock_cmd, 0, 0);
   return TCL_OK;
 }
 #endif