[sql] Import SQLite 3.17.0.

third_party/sqlite/src/src/test_async.c

 /*
 ** 2005 December 14
 **
 ** 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 a binding of the asynchronous IO extension interface
 ** (defined in ext/async/sqlite3async.h) to Tcl.
 */
 
 #define TCL_THREADS 
-#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
 
 #ifdef SQLITE_ENABLE_ASYNCIO
 
 #include "sqlite3async.h"
 #include "sqlite3.h"
 #include <assert.h>
 
 /* From main.c */
 extern const char *sqlite3ErrName(int);
 
 
 struct TestAsyncGlobal {
   int isInstalled;                     /* True when async VFS is installed */
 } testasync_g = { 0 };
 
 TCL_DECLARE_MUTEX(testasync_g_writerMutex);
 
 /*
 ** sqlite3async_initialize PARENT-VFS ISDEFAULT
 */
-static int testAsyncInit(
+static int SQLITE_TCLAPI testAsyncInit(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   const char *zParent;
   int isDefault;
   int rc;
 
   if( objc!=3 ){
@@ skipping 12 matching lines @@
   if( rc!=SQLITE_OK ){
     Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3ErrName(rc), -1));
     return TCL_ERROR;
   }
   return TCL_OK;
 }
 
 /*
 ** sqlite3async_shutdown
 */
-static int testAsyncShutdown(
+static int SQLITE_TCLAPI testAsyncShutdown(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   sqlite3async_shutdown();
   return TCL_OK;
 }
 
 static Tcl_ThreadCreateType tclWriterThread(ClientData pIsStarted){
   Tcl_MutexLock(&testasync_g_writerMutex);
   *((int *)pIsStarted) = 1;
   sqlite3async_run();
   Tcl_MutexUnlock(&testasync_g_writerMutex);
   Tcl_ExitThread(0);
   TCL_THREAD_CREATE_RETURN;
 }
 
 /*
 ** sqlite3async_start
 **
 ** Start a new writer thread.
 */
-static int testAsyncStart(
+static int SQLITE_TCLAPI testAsyncStart(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   volatile int isStarted = 0;
   ClientData threadData = (ClientData)&isStarted;
 
   Tcl_ThreadId x;
   const int nStack = TCL_THREAD_STACK_DEFAULT;
@@ skipping 11 matching lines @@
 }
 
 /*
 ** sqlite3async_wait
 **
 ** Wait for the current writer thread to terminate.
 **
 ** If the current writer thread is set to run forever then this
 ** command would block forever.  To prevent that, an error is returned. 
 */
-static int testAsyncWait(
+static int SQLITE_TCLAPI testAsyncWait(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int eCond;
   if( objc!=1 ){
     Tcl_WrongNumArgs(interp, 1, objv, "");
     return TCL_ERROR;
   }
 
   sqlite3async_control(SQLITEASYNC_GET_HALT, &eCond);
   if( eCond==SQLITEASYNC_HALT_NEVER ){
     Tcl_AppendResult(interp, "would block forever", (char*)0);
     return TCL_ERROR;
   }
 
   Tcl_MutexLock(&testasync_g_writerMutex);
   Tcl_MutexUnlock(&testasync_g_writerMutex);
   return TCL_OK;
 }
 
 /*
 ** sqlite3async_control OPTION ?VALUE?
 */
-static int testAsyncControl(
+static int SQLITE_TCLAPI testAsyncControl(
   void * clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int rc = SQLITE_OK;
   int aeOpt[] = { SQLITEASYNC_HALT, SQLITEASYNC_DELAY, SQLITEASYNC_LOCKFILES };
   const char *azOpt[] = { "halt", "delay", "lockfiles", 0 };
   const char *az[] = { "never", "now", "idle", 0 };
   int iVal;
@@ skipping 67 matching lines @@
 #ifdef SQLITE_ENABLE_ASYNCIO
   Tcl_CreateObjCommand(interp,"sqlite3async_start",testAsyncStart,0,0);
   Tcl_CreateObjCommand(interp,"sqlite3async_wait",testAsyncWait,0,0);
 
   Tcl_CreateObjCommand(interp,"sqlite3async_control",testAsyncControl,0,0);
   Tcl_CreateObjCommand(interp,"sqlite3async_initialize",testAsyncInit,0,0);
   Tcl_CreateObjCommand(interp,"sqlite3async_shutdown",testAsyncShutdown,0,0);
 #endif  /* SQLITE_ENABLE_ASYNCIO */
   return TCL_OK;
 }