[sql] Import reference version of SQLite 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/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>
 
 #ifdef SQLITE_ENABLE_ASYNCIO
 
 #include "sqlite3async.h"
 #include "sqlite3.h"
 #include <assert.h>
 
-/* From test1.c */
-const char *sqlite3TestErrorName(int);
+/* 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
@@ skipping 15 matching lines @@
   zParent = Tcl_GetString(objv[1]);
   if( !*zParent ) {
     zParent = 0;
   }
   if( Tcl_GetBooleanFromObj(interp, objv[2], &isDefault) ){
     return TCL_ERROR;
   }
 
   rc = sqlite3async_initialize(zParent, isDefault);
   if( rc!=SQLITE_OK ){
-    Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3TestErrorName(rc), -1));
+    Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3ErrName(rc), -1));
     return TCL_ERROR;
   }
   return TCL_OK;
 }
 
 /*
 ** sqlite3async_shutdown
 */
 static int testAsyncShutdown(
   void * clientData,
@@ skipping 127 matching lines @@
   }
 
   if( rc==SQLITE_OK ){
     rc = sqlite3async_control(
         eOpt==SQLITEASYNC_HALT ? SQLITEASYNC_GET_HALT :
         eOpt==SQLITEASYNC_DELAY ? SQLITEASYNC_GET_DELAY :
         SQLITEASYNC_GET_LOCKFILES, &iVal);
   }
 
   if( rc!=SQLITE_OK ){
-    Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3TestErrorName(rc), -1));
+    Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3ErrName(rc), -1));
     return TCL_ERROR;
   }
 
   if( eOpt==SQLITEASYNC_HALT ){
     Tcl_SetObjResult(interp, Tcl_NewStringObj(az[iVal], -1));
   }else{
     Tcl_SetObjResult(interp, Tcl_NewIntObj(iVal));
   }
 
   return TCL_OK;
@@ skipping 10 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;
 }