[sql] Import SQLite 3.17.0.

third_party/sqlite/src/src/test_thread.c

 /*
 ** 2007 September 9
 **
 ** 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 the implementation of some Tcl commands used to
 ** test that sqlite3 database handles may be concurrently accessed by 
 ** multiple threads. Right now this only works on unix.
 */
 
 #include "sqliteInt.h"
-#include <tcl.h>
+#if defined(INCLUDE_SQLITE_TCL_H)
+#  include "sqlite_tcl.h"
+#else
+#  include "tcl.h"
+#endif
 
 #if SQLITE_THREADSAFE
 
 #include <errno.h>
 
 #if !defined(_MSC_VER)
 #include <unistd.h>
 #endif
 
 /*
@@ skipping 35 matching lines @@
 
 /* Functions from test1.c */
 extern void *sqlite3TestTextToPtr(const char *);
 extern int getDbPointer(Tcl_Interp *, const char *, sqlite3 **);
 extern int sqlite3TestMakePointerStr(Tcl_Interp *, char *, void *);
 extern int sqlite3TestErrCode(Tcl_Interp *, sqlite3 *, int);
 
 /*
 ** Handler for events of type EvalEvent.
 */
-static int tclScriptEvent(Tcl_Event *evPtr, int flags){
+static int SQLITE_TCLAPI tclScriptEvent(Tcl_Event *evPtr, int flags){
   int rc;
   EvalEvent *p = (EvalEvent *)evPtr;
   rc = Tcl_Eval(p->interp, p->zScript);
   if( rc!=TCL_OK ){
     Tcl_BackgroundError(p->interp);
   }
   UNUSED_PARAMETER(flags);
   return 1;
 }
 
@@ skipping 74 matching lines @@
 /*
 ** sqlthread spawn VARNAME SCRIPT
 **
 **     Spawn a new thread with its own Tcl interpreter and run the
 **     specified SCRIPT(s) in it. The thread terminates after running
 **     the script. The result of the script is stored in the variable
 **     VARNAME.
 **
 **     The caller can wait for the script to terminate using [vwait VARNAME].
 */
-static int sqlthread_spawn(
+static int SQLITE_TCLAPI sqlthread_spawn(
   ClientData clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   Tcl_ThreadId x;
   SqlThread *pNew;
   int rc;
 
   int nVarname; char *zVarname;
@@ skipping 32 matching lines @@
 ** sqlthread parent SCRIPT
 **
 **     This can be called by spawned threads only. It sends the specified
 **     script back to the parent thread for execution. The result of
 **     evaluating the SCRIPT is returned. The parent thread must enter
 **     the event loop for this to work - otherwise the caller will
 **     block indefinitely.
 **
 **     NOTE: At the moment, this doesn't work. FIXME.
 */
-static int sqlthread_parent(
+static int SQLITE_TCLAPI sqlthread_parent(
   ClientData clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   EvalEvent *pEvent;
   char *zMsg;
   int nMsg;
   SqlThread *p = (SqlThread *)clientData;
 
@@ skipping 24 matching lines @@
   sqlite3_sleep(50);
   return 1;             /* Try again... */
 }
 
 /*
 ** sqlthread open
 **
 **     Open a database handle and return the string representation of
 **     the pointer value.
 */
-static int sqlthread_open(
+static int SQLITE_TCLAPI sqlthread_open(
   ClientData clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int sqlite3TestMakePointerStr(Tcl_Interp *interp, char *zPtr, void *p);
 
   const char *zFilename;
   sqlite3 *db;
   char zBuf[100];
-  extern void Md5_Register(sqlite3*);
+  extern int Md5_Register(sqlite3*,char**,const sqlite3_api_routines*);
 
   UNUSED_PARAMETER(clientData);
   UNUSED_PARAMETER(objc);
 
   zFilename = Tcl_GetString(objv[2]);
   sqlite3_open(zFilename, &db);
 #ifdef SQLITE_HAS_CODEC
   if( db && objc>=4 ){
     const char *zKey;
     int nKey;
     int rc;
     zKey = Tcl_GetStringFromObj(objv[3], &nKey);
     rc = sqlite3_key(db, zKey, nKey);
     if( rc!=SQLITE_OK ){
       char *zErrMsg = sqlite3_mprintf("error %d: %s", rc, sqlite3_errmsg(db));
       sqlite3_close(db);
       Tcl_AppendResult(interp, zErrMsg, (char*)0);
       sqlite3_free(zErrMsg);
       return TCL_ERROR;
     }
   }
 #endif
-  Md5_Register(db);
+  Md5_Register(db, 0, 0);
   sqlite3_busy_handler(db, xBusy, 0);
   
   if( sqlite3TestMakePointerStr(interp, zBuf, db) ) return TCL_ERROR;
   Tcl_AppendResult(interp, zBuf, 0);
 
   return TCL_OK;
 }
 
 
 /*
 ** sqlthread open
 **
 **     Return the current thread-id (Tcl_GetCurrentThread()) cast to
 **     an integer.
 */
-static int sqlthread_id(
+static int SQLITE_TCLAPI sqlthread_id(
   ClientData clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   Tcl_ThreadId id = Tcl_GetCurrentThread();
   Tcl_SetObjResult(interp, Tcl_NewIntObj(SQLITE_PTR_TO_INT(id)));
   UNUSED_PARAMETER(clientData);
   UNUSED_PARAMETER(objc);
   UNUSED_PARAMETER(objv);
   return TCL_OK;
 }
 
 
 /*
 ** Dispatch routine for the sub-commands of [sqlthread].
 */
-static int sqlthread_proc(
+static int SQLITE_TCLAPI sqlthread_proc(
   ClientData clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   struct SubCommand {
     char *zName;
     Tcl_ObjCmdProc *xProc;
     int nArg;
     char *zUsage;
@@ skipping 27 matching lines @@
   return pSub->xProc(clientData, interp, objc, objv);
 }
 
 /*
 ** The [clock_seconds] command. This is more or less the same as the
 ** regular tcl [clock seconds], except that it is available in testfixture
 ** when linked against both Tcl 8.4 and 8.5. Because [clock seconds] is
 ** implemented as a script in Tcl 8.5, it is not usually available to
 ** testfixture.
 */ 
-static int clock_seconds_proc(
+static int SQLITE_TCLAPI clock_seconds_proc(
   ClientData clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   Tcl_Time now;
   Tcl_GetTime(&now);
   Tcl_SetObjResult(interp, Tcl_NewIntObj(now.sec));
   UNUSED_PARAMETER(clientData);
   UNUSED_PARAMETER(objc);
@@ skipping 141 matching lines @@
   }
   return rc;
 }
 /* END_SQLITE_BLOCKING_STEP */
 
 /*
 ** Usage: sqlite3_blocking_step STMT
 **
 ** Advance the statement to the next row.
 */
-static int blocking_step_proc(
+static int SQLITE_TCLAPI blocking_step_proc(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
 
   sqlite3_stmt *pStmt;
   int rc;
 
   if( objc!=2 ){
     Tcl_WrongNumArgs(interp, 1, objv, "STMT");
     return TCL_ERROR;
   }
 
   pStmt = (sqlite3_stmt*)sqlite3TestTextToPtr(Tcl_GetString(objv[1]));
   rc = sqlite3_blocking_step(pStmt);
 
   Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), 0);
   return TCL_OK;
 }
 
 /*
 ** Usage: sqlite3_blocking_prepare_v2 DB sql bytes ?tailvar?
 ** Usage: sqlite3_nonblocking_prepare_v2 DB sql bytes ?tailvar?
 */
-static int blocking_prepare_v2_proc(
+static int SQLITE_TCLAPI blocking_prepare_v2_proc(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   sqlite3 *db;
   const char *zSql;
   int bytes;
   const char *zTail = 0;
   sqlite3_stmt *pStmt = 0;
@@ skipping 55 matching lines @@
   Tcl_CreateObjCommand(interp, 
       "sqlite3_nonblocking_prepare_v2", blocking_prepare_v2_proc, 0, 0);
 #endif
   return TCL_OK;
 }
 #else
 int SqlitetestThread_Init(Tcl_Interp *interp){
   return TCL_OK;
 }
 #endif