/ Hex Artifact Content
Login

Artifact 21e11293a2f72080eda70e1124e9102044531cd8:


0000: 2f 2a 0a 2a 2a 20 32 30 30 35 20 44 65 63 65 6d  /*.** 2005 Decem
0010: 62 65 72 20 31 34 0a 2a 2a 0a 2a 2a 20 54 68 65  ber 14.**.** The
0020: 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d   author disclaim
0030: 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74  s copyright to t
0040: 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e  his source code.
0050: 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a    In place of.**
0060: 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c   a legal notice,
0070: 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73   here is a bless
0080: 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61  ing:.**.**    Ma
0090: 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e  y you do good an
00a0: 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20  d not evil..**  
00b0: 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66    May you find f
00c0: 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79  orgiveness for y
00d0: 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67  ourself and forg
00e0: 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20  ive others..**  
00f0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20    May you share 
0100: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61  freely, never ta
0110: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79  king more than y
0120: 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a  ou give..**.****
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 2a 2a 2a 0a 2a 2a 0a 2a 2a 20 54 68 69 73  *****.**.** This
0180: 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 61   file contains a
0190: 20 62 69 6e 64 69 6e 67 20 6f 66 20 74 68 65 20   binding of the 
01a0: 61 73 79 6e 63 68 72 6f 6e 6f 75 73 20 49 4f 20  asynchronous IO 
01b0: 65 78 74 65 6e 73 69 6f 6e 20 69 6e 74 65 72 66  extension interf
01c0: 61 63 65 0a 2a 2a 20 28 64 65 66 69 6e 65 64 20  ace.** (defined 
01d0: 69 6e 20 65 78 74 2f 61 73 79 6e 63 2f 73 71 6c  in ext/async/sql
01e0: 69 74 65 33 61 73 79 6e 63 2e 68 29 20 74 6f 20  ite3async.h) to 
01f0: 54 63 6c 2e 0a 2a 2f 0a 0a 23 64 65 66 69 6e 65  Tcl..*/..#define
0200: 20 54 43 4c 5f 54 48 52 45 41 44 53 20 0a 23 69   TCL_THREADS .#i
0210: 6e 63 6c 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 0a  nclude <tcl.h>..
0220: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 45 4e  #ifdef SQLITE_EN
0230: 41 42 4c 45 5f 41 53 59 4e 43 49 4f 0a 0a 23 69  ABLE_ASYNCIO..#i
0240: 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 33 61  nclude "sqlite3a
0250: 73 79 6e 63 2e 68 22 0a 23 69 6e 63 6c 75 64 65  sync.h".#include
0260: 20 22 73 71 6c 69 74 65 33 2e 68 22 0a 23 69 6e   "sqlite3.h".#in
0270: 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e  clude <assert.h>
0280: 0a 0a 2f 2a 20 46 72 6f 6d 20 6d 61 69 6e 2e 63  ../* From main.c
0290: 20 2a 2f 0a 65 78 74 65 72 6e 20 63 6f 6e 73 74   */.extern const
02a0: 20 63 68 61 72 20 2a 73 71 6c 69 74 65 33 45 72   char *sqlite3Er
02b0: 72 4e 61 6d 65 28 69 6e 74 29 3b 0a 0a 0a 73 74  rName(int);...st
02c0: 72 75 63 74 20 54 65 73 74 41 73 79 6e 63 47 6c  ruct TestAsyncGl
02d0: 6f 62 61 6c 20 7b 0a 20 20 69 6e 74 20 69 73 49  obal {.  int isI
02e0: 6e 73 74 61 6c 6c 65 64 3b 20 20 20 20 20 20 20  nstalled;       
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0300: 20 54 72 75 65 20 77 68 65 6e 20 61 73 79 6e 63   True when async
0310: 20 56 46 53 20 69 73 20 69 6e 73 74 61 6c 6c 65   VFS is installe
0320: 64 20 2a 2f 0a 7d 20 74 65 73 74 61 73 79 6e 63  d */.} testasync
0330: 5f 67 20 3d 20 7b 20 30 20 7d 3b 0a 0a 54 43 4c  _g = { 0 };..TCL
0340: 5f 44 45 43 4c 41 52 45 5f 4d 55 54 45 58 28 74  _DECLARE_MUTEX(t
0350: 65 73 74 61 73 79 6e 63 5f 67 5f 77 72 69 74 65  estasync_g_write
0360: 72 4d 75 74 65 78 29 3b 0a 0a 2f 2a 0a 2a 2a 20  rMutex);../*.** 
0370: 73 71 6c 69 74 65 33 61 73 79 6e 63 5f 69 6e 69  sqlite3async_ini
0380: 74 69 61 6c 69 7a 65 20 50 41 52 45 4e 54 2d 56  tialize PARENT-V
0390: 46 53 20 49 53 44 45 46 41 55 4c 54 0a 2a 2f 0a  FS ISDEFAULT.*/.
03a0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 41  static int testA
03b0: 73 79 6e 63 49 6e 69 74 28 0a 20 20 76 6f 69 64  syncInit(.  void
03c0: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20   * clientData,. 
03d0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
03e0: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c  erp,.  int objc,
03f0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53  .  Tcl_Obj *CONS
0400: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 63 6f  T objv[].){.  co
0410: 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 72 65 6e  nst char *zParen
0420: 74 3b 0a 20 20 69 6e 74 20 69 73 44 65 66 61 75  t;.  int isDefau
0430: 6c 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20  lt;.  int rc;.. 
0440: 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a   if( objc!=3 ){.
0450: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
0460: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
0470: 6f 62 6a 76 2c 20 22 50 41 52 45 4e 54 2d 56 46  objv, "PARENT-VF
0480: 53 20 49 53 44 45 46 41 55 4c 54 22 29 3b 0a 20  S ISDEFAULT");. 
0490: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
04a0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 50 61 72 65  ROR;.  }.  zPare
04b0: 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  nt = Tcl_GetStri
04c0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 69  ng(objv[1]);.  i
04d0: 66 28 20 21 2a 7a 50 61 72 65 6e 74 20 29 20 7b  f( !*zParent ) {
04e0: 0a 20 20 20 20 7a 50 61 72 65 6e 74 20 3d 20 30  .    zParent = 0
04f0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f  ;.  }.  if( Tcl_
0500: 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62  GetBooleanFromOb
0510: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32  j(interp, objv[2
0520: 5d 2c 20 26 69 73 44 65 66 61 75 6c 74 29 20 29  ], &isDefault) )
0530: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  {.    return TCL
0540: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72  _ERROR;.  }..  r
0550: 63 20 3d 20 73 71 6c 69 74 65 33 61 73 79 6e 63  c = sqlite3async
0560: 5f 69 6e 69 74 69 61 6c 69 7a 65 28 7a 50 61 72  _initialize(zPar
0570: 65 6e 74 2c 20 69 73 44 65 66 61 75 6c 74 29 3b  ent, isDefault);
0580: 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54  .  if( rc!=SQLIT
0590: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f  E_OK ){.    Tcl_
05a0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
05b0: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  erp, Tcl_NewStri
05c0: 6e 67 4f 62 6a 28 73 71 6c 69 74 65 33 45 72 72  ngObj(sqlite3Err
05d0: 4e 61 6d 65 28 72 63 29 2c 20 2d 31 29 29 3b 0a  Name(rc), -1));.
05e0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
05f0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75  RROR;.  }.  retu
0600: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a  rn TCL_OK;.}../*
0610: 0a 2a 2a 20 73 71 6c 69 74 65 33 61 73 79 6e 63  .** sqlite3async
0620: 5f 73 68 75 74 64 6f 77 6e 0a 2a 2f 0a 73 74 61  _shutdown.*/.sta
0630: 74 69 63 20 69 6e 74 20 74 65 73 74 41 73 79 6e  tic int testAsyn
0640: 63 53 68 75 74 64 6f 77 6e 28 0a 20 20 76 6f 69  cShutdown(.  voi
0650: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a  d * clientData,.
0660: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
0670: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63  terp,.  int objc
0680: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  ,.  Tcl_Obj *CON
0690: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73  ST objv[].){.  s
06a0: 71 6c 69 74 65 33 61 73 79 6e 63 5f 73 68 75 74  qlite3async_shut
06b0: 64 6f 77 6e 28 29 3b 0a 20 20 72 65 74 75 72 6e  down();.  return
06c0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74   TCL_OK;.}..stat
06d0: 69 63 20 54 63 6c 5f 54 68 72 65 61 64 43 72 65  ic Tcl_ThreadCre
06e0: 61 74 65 54 79 70 65 20 74 63 6c 57 72 69 74 65  ateType tclWrite
06f0: 72 54 68 72 65 61 64 28 43 6c 69 65 6e 74 44 61  rThread(ClientDa
0700: 74 61 20 70 49 73 53 74 61 72 74 65 64 29 7b 0a  ta pIsStarted){.
0710: 20 20 54 63 6c 5f 4d 75 74 65 78 4c 6f 63 6b 28    Tcl_MutexLock(
0720: 26 74 65 73 74 61 73 79 6e 63 5f 67 5f 77 72 69  &testasync_g_wri
0730: 74 65 72 4d 75 74 65 78 29 3b 0a 20 20 2a 28 28  terMutex);.  *((
0740: 69 6e 74 20 2a 29 70 49 73 53 74 61 72 74 65 64  int *)pIsStarted
0750: 29 20 3d 20 31 3b 0a 20 20 73 71 6c 69 74 65 33  ) = 1;.  sqlite3
0760: 61 73 79 6e 63 5f 72 75 6e 28 29 3b 0a 20 20 54  async_run();.  T
0770: 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b 28 26  cl_MutexUnlock(&
0780: 74 65 73 74 61 73 79 6e 63 5f 67 5f 77 72 69 74  testasync_g_writ
0790: 65 72 4d 75 74 65 78 29 3b 0a 20 20 54 63 6c 5f  erMutex);.  Tcl_
07a0: 45 78 69 74 54 68 72 65 61 64 28 30 29 3b 0a 20  ExitThread(0);. 
07b0: 20 54 43 4c 5f 54 48 52 45 41 44 5f 43 52 45 41   TCL_THREAD_CREA
07c0: 54 45 5f 52 45 54 55 52 4e 3b 0a 7d 0a 0a 2f 2a  TE_RETURN;.}../*
07d0: 0a 2a 2a 20 73 71 6c 69 74 65 33 61 73 79 6e 63  .** sqlite3async
07e0: 5f 73 74 61 72 74 0a 2a 2a 0a 2a 2a 20 53 74 61  _start.**.** Sta
07f0: 72 74 20 61 20 6e 65 77 20 77 72 69 74 65 72 20  rt a new writer 
0800: 74 68 72 65 61 64 2e 0a 2a 2f 0a 73 74 61 74 69  thread..*/.stati
0810: 63 20 69 6e 74 20 74 65 73 74 41 73 79 6e 63 53  c int testAsyncS
0820: 74 61 72 74 28 0a 20 20 76 6f 69 64 20 2a 20 63  tart(.  void * c
0830: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c  lientData,.  Tcl
0840: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
0850: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54  .  int objc,.  T
0860: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
0870: 6a 76 5b 5d 0a 29 7b 0a 20 20 76 6f 6c 61 74 69  jv[].){.  volati
0880: 6c 65 20 69 6e 74 20 69 73 53 74 61 72 74 65 64  le int isStarted
0890: 20 3d 20 30 3b 0a 20 20 43 6c 69 65 6e 74 44 61   = 0;.  ClientDa
08a0: 74 61 20 74 68 72 65 61 64 44 61 74 61 20 3d 20  ta threadData = 
08b0: 28 43 6c 69 65 6e 74 44 61 74 61 29 26 69 73 53  (ClientData)&isS
08c0: 74 61 72 74 65 64 3b 0a 0a 20 20 54 63 6c 5f 54  tarted;..  Tcl_T
08d0: 68 72 65 61 64 49 64 20 78 3b 0a 20 20 63 6f 6e  hreadId x;.  con
08e0: 73 74 20 69 6e 74 20 6e 53 74 61 63 6b 20 3d 20  st int nStack = 
08f0: 54 43 4c 5f 54 48 52 45 41 44 5f 53 54 41 43 4b  TCL_THREAD_STACK
0900: 5f 44 45 46 41 55 4c 54 3b 0a 20 20 63 6f 6e 73  _DEFAULT;.  cons
0910: 74 20 69 6e 74 20 66 6c 61 67 73 20 3d 20 54 43  t int flags = TC
0920: 4c 5f 54 48 52 45 41 44 5f 4e 4f 46 4c 41 47 53  L_THREAD_NOFLAGS
0930: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 72  ;.  int rc;..  r
0940: 63 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 68  c = Tcl_CreateTh
0950: 72 65 61 64 28 26 78 2c 20 74 63 6c 57 72 69 74  read(&x, tclWrit
0960: 65 72 54 68 72 65 61 64 2c 20 74 68 72 65 61 64  erThread, thread
0970: 44 61 74 61 2c 20 6e 53 74 61 63 6b 2c 20 66 6c  Data, nStack, fl
0980: 61 67 73 29 3b 0a 20 20 69 66 28 20 72 63 21 3d  ags);.  if( rc!=
0990: 54 43 4c 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63  TCL_OK ){.    Tc
09a0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
09b0: 6e 74 65 72 70 2c 20 22 54 63 6c 5f 43 72 65 61  nterp, "Tcl_Crea
09c0: 74 65 54 68 72 65 61 64 28 29 20 66 61 69 6c 65  teThread() faile
09d0: 64 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75  d", 0);.    retu
09e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
09f0: 7d 0a 0a 20 20 77 68 69 6c 65 28 20 69 73 53 74  }..  while( isSt
0a00: 61 72 74 65 64 3d 3d 30 20 29 20 7b 20 2f 2a 20  arted==0 ) { /* 
0a10: 42 75 73 79 20 6c 6f 6f 70 20 2a 2f 20 7d 0a 20  Busy loop */ }. 
0a20: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
0a30: 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65 33  }../*.** sqlite3
0a40: 61 73 79 6e 63 5f 77 61 69 74 0a 2a 2a 0a 2a 2a  async_wait.**.**
0a50: 20 57 61 69 74 20 66 6f 72 20 74 68 65 20 63 75   Wait for the cu
0a60: 72 72 65 6e 74 20 77 72 69 74 65 72 20 74 68 72  rrent writer thr
0a70: 65 61 64 20 74 6f 20 74 65 72 6d 69 6e 61 74 65  ead to terminate
0a80: 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 63  ..**.** If the c
0a90: 75 72 72 65 6e 74 20 77 72 69 74 65 72 20 74 68  urrent writer th
0aa0: 72 65 61 64 20 69 73 20 73 65 74 20 74 6f 20 72  read is set to r
0ab0: 75 6e 20 66 6f 72 65 76 65 72 20 74 68 65 6e 20  un forever then 
0ac0: 74 68 69 73 0a 2a 2a 20 63 6f 6d 6d 61 6e 64 20  this.** command 
0ad0: 77 6f 75 6c 64 20 62 6c 6f 63 6b 20 66 6f 72 65  would block fore
0ae0: 76 65 72 2e 20 20 54 6f 20 70 72 65 76 65 6e 74  ver.  To prevent
0af0: 20 74 68 61 74 2c 20 61 6e 20 65 72 72 6f 72 20   that, an error 
0b00: 69 73 20 72 65 74 75 72 6e 65 64 2e 20 0a 2a 2f  is returned. .*/
0b10: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74  .static int test
0b20: 41 73 79 6e 63 57 61 69 74 28 0a 20 20 76 6f 69  AsyncWait(.  voi
0b30: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a  d * clientData,.
0b40: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
0b50: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63  terp,.  int objc
0b60: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  ,.  Tcl_Obj *CON
0b70: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69  ST objv[].){.  i
0b80: 6e 74 20 65 43 6f 6e 64 3b 0a 20 20 69 66 28 20  nt eCond;.  if( 
0b90: 6f 62 6a 63 21 3d 31 20 29 7b 0a 20 20 20 20 54  objc!=1 ){.    T
0ba0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
0bb0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c  interp, 1, objv,
0bc0: 20 22 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e   "");.    return
0bd0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
0be0: 0a 20 20 73 71 6c 69 74 65 33 61 73 79 6e 63 5f  .  sqlite3async_
0bf0: 63 6f 6e 74 72 6f 6c 28 53 51 4c 49 54 45 41 53  control(SQLITEAS
0c00: 59 4e 43 5f 47 45 54 5f 48 41 4c 54 2c 20 26 65  YNC_GET_HALT, &e
0c10: 43 6f 6e 64 29 3b 0a 20 20 69 66 28 20 65 43 6f  Cond);.  if( eCo
0c20: 6e 64 3d 3d 53 51 4c 49 54 45 41 53 59 4e 43 5f  nd==SQLITEASYNC_
0c30: 48 41 4c 54 5f 4e 45 56 45 52 20 29 7b 0a 20 20  HALT_NEVER ){.  
0c40: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
0c50: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 6f 75 6c  lt(interp, "woul
0c60: 64 20 62 6c 6f 63 6b 20 66 6f 72 65 76 65 72 22  d block forever"
0c70: 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20  , (char*)0);.   
0c80: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
0c90: 52 3b 0a 20 20 7d 0a 0a 20 20 54 63 6c 5f 4d 75  R;.  }..  Tcl_Mu
0ca0: 74 65 78 4c 6f 63 6b 28 26 74 65 73 74 61 73 79  texLock(&testasy
0cb0: 6e 63 5f 67 5f 77 72 69 74 65 72 4d 75 74 65 78  nc_g_writerMutex
0cc0: 29 3b 0a 20 20 54 63 6c 5f 4d 75 74 65 78 55 6e  );.  Tcl_MutexUn
0cd0: 6c 6f 63 6b 28 26 74 65 73 74 61 73 79 6e 63 5f  lock(&testasync_
0ce0: 67 5f 77 72 69 74 65 72 4d 75 74 65 78 29 3b 0a  g_writerMutex);.
0cf0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
0d00: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65  .}../*.** sqlite
0d10: 33 61 73 79 6e 63 5f 63 6f 6e 74 72 6f 6c 20 4f  3async_control O
0d20: 50 54 49 4f 4e 20 3f 56 41 4c 55 45 3f 0a 2a 2f  PTION ?VALUE?.*/
0d30: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74  .static int test
0d40: 41 73 79 6e 63 43 6f 6e 74 72 6f 6c 28 0a 20 20  AsyncControl(.  
0d50: 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74  void * clientDat
0d60: 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  a,.  Tcl_Interp 
0d70: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f  *interp,.  int o
0d80: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a  bjc,.  Tcl_Obj *
0d90: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a  CONST objv[].){.
0da0: 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54    int rc = SQLIT
0db0: 45 5f 4f 4b 3b 0a 20 20 69 6e 74 20 61 65 4f 70  E_OK;.  int aeOp
0dc0: 74 5b 5d 20 3d 20 7b 20 53 51 4c 49 54 45 41 53  t[] = { SQLITEAS
0dd0: 59 4e 43 5f 48 41 4c 54 2c 20 53 51 4c 49 54 45  YNC_HALT, SQLITE
0de0: 41 53 59 4e 43 5f 44 45 4c 41 59 2c 20 53 51 4c  ASYNC_DELAY, SQL
0df0: 49 54 45 41 53 59 4e 43 5f 4c 4f 43 4b 46 49 4c  ITEASYNC_LOCKFIL
0e00: 45 53 20 7d 3b 0a 20 20 63 6f 6e 73 74 20 63 68  ES };.  const ch
0e10: 61 72 20 2a 61 7a 4f 70 74 5b 5d 20 3d 20 7b 20  ar *azOpt[] = { 
0e20: 22 68 61 6c 74 22 2c 20 22 64 65 6c 61 79 22 2c  "halt", "delay",
0e30: 20 22 6c 6f 63 6b 66 69 6c 65 73 22 2c 20 30 20   "lockfiles", 0 
0e40: 7d 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  };.  const char 
0e50: 2a 61 7a 5b 5d 20 3d 20 7b 20 22 6e 65 76 65 72  *az[] = { "never
0e60: 22 2c 20 22 6e 6f 77 22 2c 20 22 69 64 6c 65 22  ", "now", "idle"
0e70: 2c 20 30 20 7d 3b 0a 20 20 69 6e 74 20 69 56 61  , 0 };.  int iVa
0e80: 6c 3b 0a 20 20 69 6e 74 20 65 4f 70 74 3b 0a 0a  l;.  int eOpt;..
0e90: 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 26 26    if( objc!=2 &&
0ea0: 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20   objc!=3 ){.    
0eb0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
0ec0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76  (interp, 1, objv
0ed0: 2c 20 22 4f 50 54 49 4f 4e 20 3f 56 41 4c 55 45  , "OPTION ?VALUE
0ee0: 3f 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  ?");.    return 
0ef0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
0f00: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 64 65   if( Tcl_GetInde
0f10: 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  xFromObj(interp,
0f20: 20 6f 62 6a 76 5b 31 5d 2c 20 61 7a 4f 70 74 2c   objv[1], azOpt,
0f30: 20 22 6f 70 74 69 6f 6e 22 2c 20 30 2c 20 26 65   "option", 0, &e
0f40: 4f 70 74 29 20 29 7b 0a 20 20 20 20 72 65 74 75  Opt) ){.    retu
0f50: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
0f60: 7d 0a 20 20 65 4f 70 74 20 3d 20 61 65 4f 70 74  }.  eOpt = aeOpt
0f70: 5b 65 4f 70 74 5d 3b 0a 0a 20 20 69 66 28 20 6f  [eOpt];..  if( o
0f80: 62 6a 63 3d 3d 33 20 29 7b 0a 20 20 20 20 73 77  bjc==3 ){.    sw
0f90: 69 74 63 68 28 20 65 4f 70 74 20 29 7b 0a 20 20  itch( eOpt ){.  
0fa0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 41      case SQLITEA
0fb0: 53 59 4e 43 5f 48 41 4c 54 3a 20 7b 0a 20 20 20  SYNC_HALT: {.   
0fc0: 20 20 20 20 20 61 73 73 65 72 74 28 20 53 51 4c       assert( SQL
0fd0: 49 54 45 41 53 59 4e 43 5f 48 41 4c 54 5f 4e 45  ITEASYNC_HALT_NE
0fe0: 56 45 52 3d 3d 30 20 29 3b 0a 20 20 20 20 20 20  VER==0 );.      
0ff0: 20 20 61 73 73 65 72 74 28 20 53 51 4c 49 54 45    assert( SQLITE
1000: 41 53 59 4e 43 5f 48 41 4c 54 5f 4e 4f 57 3d 3d  ASYNC_HALT_NOW==
1010: 31 20 29 3b 0a 20 20 20 20 20 20 20 20 61 73 73  1 );.        ass
1020: 65 72 74 28 20 53 51 4c 49 54 45 41 53 59 4e 43  ert( SQLITEASYNC
1030: 5f 48 41 4c 54 5f 49 44 4c 45 3d 3d 32 20 29 3b  _HALT_IDLE==2 );
1040: 0a 20 20 20 20 20 20 20 20 69 66 28 20 54 63 6c  .        if( Tcl
1050: 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a  _GetIndexFromObj
1060: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d  (interp, objv[2]
1070: 2c 20 61 7a 2c 20 22 76 61 6c 75 65 22 2c 20 30  , az, "value", 0
1080: 2c 20 26 69 56 61 6c 29 20 29 7b 0a 20 20 20 20  , &iVal) ){.    
1090: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
10a0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20  _ERROR;.        
10b0: 7d 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b  }.        break;
10c0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63  .      }.      c
10d0: 61 73 65 20 53 51 4c 49 54 45 41 53 59 4e 43 5f  ase SQLITEASYNC_
10e0: 44 45 4c 41 59 3a 0a 20 20 20 20 20 20 20 20 69  DELAY:.        i
10f0: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f  f( Tcl_GetIntFro
1100: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
1110: 76 5b 32 5d 2c 20 26 69 56 61 6c 29 20 29 7b 0a  v[2], &iVal) ){.
1120: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
1130: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
1140: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62 72      }.        br
1150: 65 61 6b 3b 0a 0a 20 20 20 20 20 20 63 61 73 65  eak;..      case
1160: 20 53 51 4c 49 54 45 41 53 59 4e 43 5f 4c 4f 43   SQLITEASYNC_LOC
1170: 4b 46 49 4c 45 53 3a 0a 20 20 20 20 20 20 20 20  KFILES:.        
1180: 69 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65  if( Tcl_GetBoole
1190: 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70  anFromObj(interp
11a0: 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 56 61 6c  , objv[2], &iVal
11b0: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72  ) ){.          r
11c0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
11d0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
11e0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a     break;.    }.
11f0: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65  .    rc = sqlite
1200: 33 61 73 79 6e 63 5f 63 6f 6e 74 72 6f 6c 28 65  3async_control(e
1210: 4f 70 74 2c 20 69 56 61 6c 29 3b 0a 20 20 7d 0a  Opt, iVal);.  }.
1220: 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54  .  if( rc==SQLIT
1230: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d  E_OK ){.    rc =
1240: 20 73 71 6c 69 74 65 33 61 73 79 6e 63 5f 63 6f   sqlite3async_co
1250: 6e 74 72 6f 6c 28 0a 20 20 20 20 20 20 20 20 65  ntrol(.        e
1260: 4f 70 74 3d 3d 53 51 4c 49 54 45 41 53 59 4e 43  Opt==SQLITEASYNC
1270: 5f 48 41 4c 54 20 3f 20 53 51 4c 49 54 45 41 53  _HALT ? SQLITEAS
1280: 59 4e 43 5f 47 45 54 5f 48 41 4c 54 20 3a 0a 20  YNC_GET_HALT :. 
1290: 20 20 20 20 20 20 20 65 4f 70 74 3d 3d 53 51 4c         eOpt==SQL
12a0: 49 54 45 41 53 59 4e 43 5f 44 45 4c 41 59 20 3f  ITEASYNC_DELAY ?
12b0: 20 53 51 4c 49 54 45 41 53 59 4e 43 5f 47 45 54   SQLITEASYNC_GET
12c0: 5f 44 45 4c 41 59 20 3a 0a 20 20 20 20 20 20 20  _DELAY :.       
12d0: 20 53 51 4c 49 54 45 41 53 59 4e 43 5f 47 45 54   SQLITEASYNC_GET
12e0: 5f 4c 4f 43 4b 46 49 4c 45 53 2c 20 26 69 56 61  _LOCKFILES, &iVa
12f0: 6c 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72  l);.  }..  if( r
1300: 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c!=SQLITE_OK ){.
1310: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65      Tcl_SetObjRe
1320: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c  sult(interp, Tcl
1330: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 73 71  _NewStringObj(sq
1340: 6c 69 74 65 33 45 72 72 4e 61 6d 65 28 72 63 29  lite3ErrName(rc)
1350: 2c 20 2d 31 29 29 3b 0a 20 20 20 20 72 65 74 75  , -1));.    retu
1360: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
1370: 7d 0a 0a 20 20 69 66 28 20 65 4f 70 74 3d 3d 53  }..  if( eOpt==S
1380: 51 4c 49 54 45 41 53 59 4e 43 5f 48 41 4c 54 20  QLITEASYNC_HALT 
1390: 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62  ){.    Tcl_SetOb
13a0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
13b0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
13c0: 28 61 7a 5b 69 56 61 6c 5d 2c 20 2d 31 29 29 3b  (az[iVal], -1));
13d0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63  .  }else{.    Tc
13e0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
13f0: 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e  nterp, Tcl_NewIn
1400: 74 4f 62 6a 28 69 56 61 6c 29 29 3b 0a 20 20 7d  tObj(iVal));.  }
1410: 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f  ..  return TCL_O
1420: 4b 3b 0a 7d 0a 0a 23 65 6e 64 69 66 20 20 2f 2a  K;.}..#endif  /*
1430: 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 41   SQLITE_ENABLE_A
1440: 53 59 4e 43 49 4f 20 2a 2f 0a 0a 2f 2a 0a 2a 2a  SYNCIO */../*.**
1450: 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 72 65   This routine re
1460: 67 69 73 74 65 72 73 20 74 68 65 20 63 75 73 74  gisters the cust
1470: 6f 6d 20 54 43 4c 20 63 6f 6d 6d 61 6e 64 73 20  om TCL commands 
1480: 64 65 66 69 6e 65 64 20 69 6e 20 74 68 69 73 0a  defined in this.
1490: 2a 2a 20 6d 6f 64 75 6c 65 2e 20 20 54 68 69 73  ** module.  This
14a0: 20 73 68 6f 75 6c 64 20 62 65 20 74 68 65 20 6f   should be the o
14b0: 6e 6c 79 20 70 72 6f 63 65 64 75 72 65 20 76 69  nly procedure vi
14c0: 73 69 62 6c 65 20 66 72 6f 6d 20 6f 75 74 73 69  sible from outsi
14d0: 64 65 0a 2a 2a 20 6f 66 20 74 68 69 73 20 6d 6f  de.** of this mo
14e0: 64 75 6c 65 2e 0a 2a 2f 0a 69 6e 74 20 53 71 6c  dule..*/.int Sql
14f0: 69 74 65 74 65 73 74 61 73 79 6e 63 5f 49 6e 69  itetestasync_Ini
1500: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  t(Tcl_Interp *in
1510: 74 65 72 70 29 7b 0a 23 69 66 64 65 66 20 53 51  terp){.#ifdef SQ
1520: 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 41 53 59 4e  LITE_ENABLE_ASYN
1530: 43 49 4f 0a 20 20 54 63 6c 5f 43 72 65 61 74 65  CIO.  Tcl_Create
1540: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72  ObjCommand(inter
1550: 70 2c 22 73 71 6c 69 74 65 33 61 73 79 6e 63 5f  p,"sqlite3async_
1560: 73 74 61 72 74 22 2c 74 65 73 74 41 73 79 6e 63  start",testAsync
1570: 53 74 61 72 74 2c 30 2c 30 29 3b 0a 20 20 54 63  Start,0,0);.  Tc
1580: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61  l_CreateObjComma
1590: 6e 64 28 69 6e 74 65 72 70 2c 22 73 71 6c 69 74  nd(interp,"sqlit
15a0: 65 33 61 73 79 6e 63 5f 77 61 69 74 22 2c 74 65  e3async_wait",te
15b0: 73 74 41 73 79 6e 63 57 61 69 74 2c 30 2c 30 29  stAsyncWait,0,0)
15c0: 3b 0a 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f  ;..  Tcl_CreateO
15d0: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70  bjCommand(interp
15e0: 2c 22 73 71 6c 69 74 65 33 61 73 79 6e 63 5f 63  ,"sqlite3async_c
15f0: 6f 6e 74 72 6f 6c 22 2c 74 65 73 74 41 73 79 6e  ontrol",testAsyn
1600: 63 43 6f 6e 74 72 6f 6c 2c 30 2c 30 29 3b 0a 20  cControl,0,0);. 
1610: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f   Tcl_CreateObjCo
1620: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 22 73 71  mmand(interp,"sq
1630: 6c 69 74 65 33 61 73 79 6e 63 5f 69 6e 69 74 69  lite3async_initi
1640: 61 6c 69 7a 65 22 2c 74 65 73 74 41 73 79 6e 63  alize",testAsync
1650: 49 6e 69 74 2c 30 2c 30 29 3b 0a 20 20 54 63 6c  Init,0,0);.  Tcl
1660: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e  _CreateObjComman
1670: 64 28 69 6e 74 65 72 70 2c 22 73 71 6c 69 74 65  d(interp,"sqlite
1680: 33 61 73 79 6e 63 5f 73 68 75 74 64 6f 77 6e 22  3async_shutdown"
1690: 2c 74 65 73 74 41 73 79 6e 63 53 68 75 74 64 6f  ,testAsyncShutdo
16a0: 77 6e 2c 30 2c 30 29 3b 0a 23 65 6e 64 69 66 20  wn,0,0);.#endif 
16b0: 20 2f 2a 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c   /* SQLITE_ENABL
16c0: 45 5f 41 53 59 4e 43 49 4f 20 2a 2f 0a 20 20 72  E_ASYNCIO */.  r
16d0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a  eturn TCL_OK;.}.