/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact 8b784cd82de158a2317cb4ac4bc86f91ad315e25:


0000: 2f 2a 0a 2a 2a 20 32 30 30 33 20 44 65 63 65 6d  /*.** 2003 Decem
0010: 62 65 72 20 31 38 0a 2a 2a 0a 2a 2a 20 54 68 65  ber 18.**.** 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 20 43 6f 64 65 20 66 6f  *****.** Code fo
0180: 72 20 74 65 73 74 69 6e 67 20 74 68 65 20 74 68  r testing the th
0190: 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79  e SQLite library
01a0: 20 69 6e 20 61 20 6d 75 6c 74 69 74 68 72 65 61   in a multithrea
01b0: 64 65 64 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 2e  ded environment.
01c0: 0a 2a 2a 0a 2a 2a 20 24 49 64 3a 20 74 65 73 74  .**.** $Id: test
01d0: 34 2e 63 2c 76 20 31 2e 31 37 20 32 30 30 36 2f  4.c,v 1.17 2006/
01e0: 30 32 2f 32 33 20 32 31 3a 34 33 3a 35 36 20 64  02/23 21:43:56 d
01f0: 72 68 20 45 78 70 20 24 0a 2a 2f 0a 23 69 6e 63  rh Exp $.*/.#inc
0200: 6c 75 64 65 20 22 73 71 6c 69 74 65 49 6e 74 2e  lude "sqliteInt.
0210: 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 74 63 6c  h".#include "tcl
0220: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 6f 73  .h".#include "os
0230: 2e 68 22 0a 23 69 66 20 64 65 66 69 6e 65 64 28  .h".#if defined(
0240: 4f 53 5f 55 4e 49 58 29 20 26 26 20 4f 53 5f 55  OS_UNIX) && OS_U
0250: 4e 49 58 3d 3d 31 20 26 26 20 64 65 66 69 6e 65  NIX==1 && define
0260: 64 28 54 48 52 45 41 44 53 41 46 45 29 20 26 26  d(THREADSAFE) &&
0270: 20 54 48 52 45 41 44 53 41 46 45 3d 3d 31 0a 23   THREADSAFE==1.#
0280: 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e  include <stdlib.
0290: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 72  h>.#include <str
02a0: 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20  ing.h>.#include 
02b0: 3c 70 74 68 72 65 61 64 2e 68 3e 0a 23 69 6e 63  <pthread.h>.#inc
02c0: 6c 75 64 65 20 3c 73 63 68 65 64 2e 68 3e 0a 23  lude <sched.h>.#
02d0: 69 6e 63 6c 75 64 65 20 3c 63 74 79 70 65 2e 68  include <ctype.h
02e0: 3e 0a 0a 2f 2a 0a 2a 2a 20 45 61 63 68 20 74 68  >../*.** Each th
02f0: 72 65 61 64 20 69 73 20 63 6f 6e 74 72 6f 6c 6c  read is controll
0300: 65 64 20 62 79 20 61 6e 20 69 6e 73 74 61 6e 63  ed by an instanc
0310: 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69  e of the followi
0320: 6e 67 0a 2a 2a 20 73 74 72 75 63 74 75 72 65 2e  ng.** structure.
0330: 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75  .*/.typedef stru
0340: 63 74 20 54 68 72 65 61 64 20 54 68 72 65 61 64  ct Thread Thread
0350: 3b 0a 73 74 72 75 63 74 20 54 68 72 65 61 64 20  ;.struct Thread 
0360: 7b 0a 20 20 2f 2a 20 54 68 65 20 66 69 72 73 74  {.  /* The first
0370: 20 67 72 6f 75 70 20 6f 66 20 66 69 65 6c 64 73   group of fields
0380: 20 61 72 65 20 77 72 69 74 61 62 6c 65 20 62 79   are writable by
0390: 20 74 68 65 20 6d 61 73 74 65 72 20 61 6e 64 20   the master and 
03a0: 72 65 61 64 2d 6f 6e 6c 79 0a 20 20 2a 2a 20 74  read-only.  ** t
03b0: 6f 20 74 68 65 20 74 68 72 65 61 64 2e 20 2a 2f  o the thread. */
03c0: 0a 20 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61  .  char *zFilena
03d0: 6d 65 3b 20 20 20 20 20 20 20 2f 2a 20 4e 61 6d  me;       /* Nam
03e0: 65 20 6f 66 20 64 61 74 61 62 61 73 65 20 66 69  e of database fi
03f0: 6c 65 20 2a 2f 0a 20 20 76 6f 69 64 20 28 2a 78  le */.  void (*x
0400: 4f 70 29 28 54 68 72 65 61 64 2a 29 3b 20 20 2f  Op)(Thread*);  /
0410: 2a 20 6e 65 78 74 20 6f 70 65 72 61 74 69 6f 6e  * next operation
0420: 20 74 6f 20 64 6f 20 2a 2f 0a 20 20 63 68 61 72   to do */.  char
0430: 20 2a 7a 41 72 67 3b 20 20 20 20 20 20 20 20 20   *zArg;         
0440: 20 20 20 2f 2a 20 61 72 67 75 6d 65 6e 74 20 75     /* argument u
0450: 73 61 62 6c 65 20 62 79 20 78 4f 70 20 2a 2f 0a  sable by xOp */.
0460: 20 20 69 6e 74 20 6f 70 6e 75 6d 3b 20 20 20 20    int opnum;    
0470: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 70 65 72           /* Oper
0480: 61 74 69 6f 6e 20 6e 75 6d 62 65 72 20 2a 2f 0a  ation number */.
0490: 20 20 69 6e 74 20 62 75 73 79 3b 20 20 20 20 20    int busy;     
04a0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65           /* True
04b0: 20 69 66 20 74 68 69 73 20 74 68 72 65 61 64 20   if this thread 
04c0: 69 73 20 69 6e 20 75 73 65 20 2a 2f 0a 0a 20 20  is in use */..  
04d0: 2f 2a 20 54 68 65 20 6e 65 78 74 20 67 72 6f 75  /* The next grou
04e0: 70 20 6f 66 20 66 69 65 6c 64 73 20 61 72 65 20  p of fields are 
04f0: 77 72 69 74 61 62 6c 65 20 62 79 20 74 68 65 20  writable by the 
0500: 74 68 72 65 61 64 20 62 75 74 20 72 65 61 64 2d  thread but read-
0510: 6f 6e 6c 79 20 74 6f 20 74 68 65 0a 20 20 2a 2a  only to the.  **
0520: 20 6d 61 73 74 65 72 2e 20 2a 2f 0a 20 20 69 6e   master. */.  in
0530: 74 20 63 6f 6d 70 6c 65 74 65 64 3b 20 20 20 20  t completed;    
0540: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66      /* Number of
0550: 20 6f 70 65 72 61 74 69 6f 6e 73 20 63 6f 6d 70   operations comp
0560: 6c 65 74 65 64 20 2a 2f 0a 20 20 73 71 6c 69 74  leted */.  sqlit
0570: 65 33 20 2a 64 62 3b 20 20 20 20 20 20 20 20 20  e3 *db;         
0580: 20 20 2f 2a 20 4f 70 65 6e 20 64 61 74 61 62 61    /* Open databa
0590: 73 65 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f  se */.  sqlite3_
05a0: 73 74 6d 74 20 2a 70 53 74 6d 74 3b 20 20 20 20  stmt *pStmt;    
05b0: 20 2f 2a 20 50 65 6e 64 69 6e 67 20 6f 70 65 72   /* Pending oper
05c0: 61 74 69 6f 6e 20 2a 2f 0a 20 20 63 68 61 72 20  ation */.  char 
05d0: 2a 7a 45 72 72 3b 20 20 20 20 20 20 20 20 20 20  *zErr;          
05e0: 20 2f 2a 20 6f 70 65 72 61 74 69 6f 6e 20 65 72   /* operation er
05f0: 72 6f 72 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a  ror */.  char *z
0600: 53 74 61 74 69 63 45 72 72 3b 20 20 20 20 20 2f  StaticErr;     /
0610: 2a 20 53 74 61 74 69 63 20 65 72 72 6f 72 20 6d  * Static error m
0620: 65 73 73 61 67 65 20 2a 2f 0a 20 20 69 6e 74 20  essage */.  int 
0630: 72 63 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  rc;             
0640: 20 20 2f 2a 20 6f 70 65 72 61 74 69 6f 6e 20 72    /* operation r
0650: 65 74 75 72 6e 20 63 6f 64 65 20 2a 2f 0a 20 20  eturn code */.  
0660: 69 6e 74 20 61 72 67 63 3b 20 20 20 20 20 20 20  int argc;       
0670: 20 20 20 20 20 20 2f 2a 20 6e 75 6d 62 65 72 20        /* number 
0680: 6f 66 20 63 6f 6c 75 6d 6e 73 20 69 6e 20 72 65  of columns in re
0690: 73 75 6c 74 20 2a 2f 0a 20 20 63 6f 6e 73 74 20  sult */.  const 
06a0: 63 68 61 72 20 2a 61 72 67 76 5b 31 30 30 5d 3b  char *argv[100];
06b0: 20 20 20 20 2f 2a 20 72 65 73 75 6c 74 20 63 6f      /* result co
06c0: 6c 75 6d 6e 73 20 2a 2f 0a 20 20 63 6f 6e 73 74  lumns */.  const
06d0: 20 63 68 61 72 20 2a 63 6f 6c 76 5b 31 30 30 5d   char *colv[100]
06e0: 3b 20 20 20 20 2f 2a 20 72 65 73 75 6c 74 20 63  ;    /* result c
06f0: 6f 6c 75 6d 6e 20 6e 61 6d 65 73 20 2a 2f 0a 7d  olumn names */.}
0700: 3b 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 72 65 20 63  ;../*.** There c
0710: 61 6e 20 62 65 20 61 73 20 6d 61 6e 79 20 61 73  an be as many as
0720: 20 32 36 20 74 68 72 65 61 64 73 20 72 75 6e 6e   26 threads runn
0730: 69 6e 67 20 61 74 20 6f 6e 63 65 2e 20 20 45 61  ing at once.  Ea
0740: 63 68 20 69 73 20 6e 61 6d 65 64 0a 2a 2a 20 62  ch is named.** b
0750: 79 20 61 20 63 61 70 69 74 61 6c 20 6c 65 74 74  y a capital lett
0760: 65 72 3a 20 41 2c 20 42 2c 20 43 2c 20 2e 2e 2e  er: A, B, C, ...
0770: 2c 20 59 2c 20 5a 2e 0a 2a 2f 0a 23 64 65 66 69  , Y, Z..*/.#defi
0780: 6e 65 20 4e 5f 54 48 52 45 41 44 20 32 36 0a 73  ne N_THREAD 26.s
0790: 74 61 74 69 63 20 54 68 72 65 61 64 20 74 68 72  tatic Thread thr
07a0: 65 61 64 73 65 74 5b 4e 5f 54 48 52 45 41 44 5d  eadset[N_THREAD]
07b0: 3b 0a 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 6d 61  ;.../*.** The ma
07c0: 69 6e 20 6c 6f 6f 70 20 66 6f 72 20 61 20 74 68  in loop for a th
07d0: 72 65 61 64 2e 20 20 54 68 72 65 61 64 73 20 75  read.  Threads u
07e0: 73 65 20 62 75 73 79 20 77 61 69 74 69 6e 67 2e  se busy waiting.
07f0: 20 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64   .*/.static void
0800: 20 2a 74 68 72 65 61 64 5f 6d 61 69 6e 28 76 6f   *thread_main(vo
0810: 69 64 20 2a 70 41 72 67 29 7b 0a 20 20 54 68 72  id *pArg){.  Thr
0820: 65 61 64 20 2a 70 20 3d 20 28 54 68 72 65 61 64  ead *p = (Thread
0830: 2a 29 70 41 72 67 3b 0a 20 20 69 66 28 20 70 2d  *)pArg;.  if( p-
0840: 3e 64 62 20 29 7b 0a 20 20 20 20 73 71 6c 69 74  >db ){.    sqlit
0850: 65 33 5f 63 6c 6f 73 65 28 70 2d 3e 64 62 29 3b  e3_close(p->db);
0860: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 6f  .  }.  sqlite3_o
0870: 70 65 6e 28 70 2d 3e 7a 46 69 6c 65 6e 61 6d 65  pen(p->zFilename
0880: 2c 20 26 70 2d 3e 64 62 29 3b 0a 20 20 69 66 28  , &p->db);.  if(
0890: 20 53 51 4c 49 54 45 5f 4f 4b 21 3d 73 71 6c 69   SQLITE_OK!=sqli
08a0: 74 65 33 5f 65 72 72 63 6f 64 65 28 70 2d 3e 64  te3_errcode(p->d
08b0: 62 29 20 29 7b 0a 20 20 20 20 70 2d 3e 7a 45 72  b) ){.    p->zEr
08c0: 72 20 3d 20 73 74 72 64 75 70 28 73 71 6c 69 74  r = strdup(sqlit
08d0: 65 33 5f 65 72 72 6d 73 67 28 70 2d 3e 64 62 29  e3_errmsg(p->db)
08e0: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63  );.    sqlite3_c
08f0: 6c 6f 73 65 28 70 2d 3e 64 62 29 3b 0a 20 20 20  lose(p->db);.   
0900: 20 70 2d 3e 64 62 20 3d 20 30 3b 0a 20 20 7d 0a   p->db = 0;.  }.
0910: 20 20 70 2d 3e 70 53 74 6d 74 20 3d 20 30 3b 0a    p->pStmt = 0;.
0920: 20 20 70 2d 3e 63 6f 6d 70 6c 65 74 65 64 20 3d    p->completed =
0930: 20 31 3b 0a 20 20 77 68 69 6c 65 28 20 70 2d 3e   1;.  while( p->
0940: 6f 70 6e 75 6d 3c 3d 70 2d 3e 63 6f 6d 70 6c 65  opnum<=p->comple
0950: 74 65 64 20 29 20 73 63 68 65 64 5f 79 69 65 6c  ted ) sched_yiel
0960: 64 28 29 3b 0a 20 20 77 68 69 6c 65 28 20 70 2d  d();.  while( p-
0970: 3e 78 4f 70 20 29 7b 0a 20 20 20 20 69 66 28 20  >xOp ){.    if( 
0980: 70 2d 3e 7a 45 72 72 20 26 26 20 70 2d 3e 7a 45  p->zErr && p->zE
0990: 72 72 21 3d 70 2d 3e 7a 53 74 61 74 69 63 45 72  rr!=p->zStaticEr
09a0: 72 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  r ){.      sqlit
09b0: 65 33 5f 66 72 65 65 28 70 2d 3e 7a 45 72 72 29  e3_free(p->zErr)
09c0: 3b 0a 20 20 20 20 20 20 70 2d 3e 7a 45 72 72 20  ;.      p->zErr 
09d0: 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 28  = 0;.    }.    (
09e0: 2a 70 2d 3e 78 4f 70 29 28 70 29 3b 0a 20 20 20  *p->xOp)(p);.   
09f0: 20 70 2d 3e 63 6f 6d 70 6c 65 74 65 64 2b 2b 3b   p->completed++;
0a00: 0a 20 20 20 20 77 68 69 6c 65 28 20 70 2d 3e 6f  .    while( p->o
0a10: 70 6e 75 6d 3c 3d 70 2d 3e 63 6f 6d 70 6c 65 74  pnum<=p->complet
0a20: 65 64 20 29 20 73 63 68 65 64 5f 79 69 65 6c 64  ed ) sched_yield
0a30: 28 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 2d  ();.  }.  if( p-
0a40: 3e 70 53 74 6d 74 20 29 7b 0a 20 20 20 20 73 71  >pStmt ){.    sq
0a50: 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70  lite3_finalize(p
0a60: 2d 3e 70 53 74 6d 74 29 3b 0a 20 20 20 20 70 2d  ->pStmt);.    p-
0a70: 3e 70 53 74 6d 74 20 3d 20 30 3b 0a 20 20 7d 0a  >pStmt = 0;.  }.
0a80: 20 20 69 66 28 20 70 2d 3e 64 62 20 29 7b 0a 20    if( p->db ){. 
0a90: 20 20 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65     sqlite3_close
0aa0: 28 70 2d 3e 64 62 29 3b 0a 20 20 20 20 70 2d 3e  (p->db);.    p->
0ab0: 64 62 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66  db = 0;.  }.  if
0ac0: 28 20 70 2d 3e 7a 45 72 72 20 26 26 20 70 2d 3e  ( p->zErr && p->
0ad0: 7a 45 72 72 21 3d 70 2d 3e 7a 53 74 61 74 69 63  zErr!=p->zStatic
0ae0: 45 72 72 20 29 7b 0a 20 20 20 20 73 71 6c 69 74  Err ){.    sqlit
0af0: 65 33 5f 66 72 65 65 28 70 2d 3e 7a 45 72 72 29  e3_free(p->zErr)
0b00: 3b 0a 20 20 20 20 70 2d 3e 7a 45 72 72 20 3d 20  ;.    p->zErr = 
0b10: 30 3b 0a 20 20 7d 0a 20 20 70 2d 3e 63 6f 6d 70  0;.  }.  p->comp
0b20: 6c 65 74 65 64 2b 2b 3b 0a 20 20 73 71 6c 69 74  leted++;.  sqlit
0b30: 65 33 5f 74 68 72 65 61 64 5f 63 6c 65 61 6e 75  e3_thread_cleanu
0b40: 70 28 29 3b 0a 20 20 72 65 74 75 72 6e 20 30 3b  p();.  return 0;
0b50: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 65 74 20 61 20  .}../*.** Get a 
0b60: 74 68 72 65 61 64 20 49 44 20 77 68 69 63 68 20  thread ID which 
0b70: 69 73 20 61 6e 20 75 70 70 65 72 20 63 61 73 65  is an upper case
0b80: 20 6c 65 74 74 65 72 2e 20 20 52 65 74 75 72 6e   letter.  Return
0b90: 20 74 68 65 20 69 6e 64 65 78 2e 0a 2a 2a 20 49   the index..** I
0ba0: 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69  f the argument i
0bb0: 73 20 6e 6f 74 20 61 20 76 61 6c 69 64 20 74 68  s not a valid th
0bc0: 72 65 61 64 20 49 44 20 70 75 74 20 61 6e 20 65  read ID put an e
0bd0: 72 72 6f 72 20 6d 65 73 73 61 67 65 20 69 6e 0a  rror message in.
0be0: 2a 2a 20 74 68 65 20 69 6e 74 65 72 70 72 65 74  ** the interpret
0bf0: 65 72 20 61 6e 64 20 72 65 74 75 72 6e 20 2d 31  er and return -1
0c00: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
0c10: 70 61 72 73 65 5f 74 68 72 65 61 64 5f 69 64 28  parse_thread_id(
0c20: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
0c30: 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  rp, const char *
0c40: 7a 41 72 67 29 7b 0a 20 20 69 66 28 20 7a 41 72  zArg){.  if( zAr
0c50: 67 3d 3d 30 20 7c 7c 20 7a 41 72 67 5b 30 5d 3d  g==0 || zArg[0]=
0c60: 3d 30 20 7c 7c 20 7a 41 72 67 5b 31 5d 21 3d 30  =0 || zArg[1]!=0
0c70: 20 7c 7c 20 21 69 73 75 70 70 65 72 28 28 75 6e   || !isupper((un
0c80: 73 69 67 6e 65 64 20 63 68 61 72 29 7a 41 72 67  signed char)zArg
0c90: 5b 30 5d 29 20 29 7b 0a 20 20 20 20 54 63 6c 5f  [0]) ){.    Tcl_
0ca0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
0cb0: 65 72 70 2c 20 22 74 68 72 65 61 64 20 49 44 20  erp, "thread ID 
0cc0: 6d 75 73 74 20 62 65 20 61 6e 20 75 70 70 65 72  must be an upper
0cd0: 20 63 61 73 65 20 6c 65 74 74 65 72 22 2c 20 30   case letter", 0
0ce0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 2d 31  );.    return -1
0cf0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a  ;.  }.  return z
0d00: 41 72 67 5b 30 5d 20 2d 20 27 41 27 3b 0a 7d 0a  Arg[0] - 'A';.}.
0d10: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20  ./*.** Usage:   
0d20: 20 74 68 72 65 61 64 5f 63 72 65 61 74 65 20 4e   thread_create N
0d30: 41 4d 45 20 20 46 49 4c 45 4e 41 4d 45 0a 2a 2a  AME  FILENAME.**
0d40: 0a 2a 2a 20 4e 41 4d 45 20 73 68 6f 75 6c 64 20  .** NAME should 
0d50: 62 65 20 61 6e 20 75 70 70 65 72 20 63 61 73 65  be an upper case
0d60: 20 6c 65 74 74 65 72 2e 20 20 53 74 61 72 74 20   letter.  Start 
0d70: 74 68 65 20 74 68 72 65 61 64 20 72 75 6e 6e 69  the thread runni
0d80: 6e 67 20 77 69 74 68 0a 2a 2a 20 61 6e 20 6f 70  ng with.** an op
0d90: 65 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f  en connection to
0da0: 20 74 68 65 20 67 69 76 65 6e 20 64 61 74 61 62   the given datab
0db0: 61 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ase..*/.static i
0dc0: 6e 74 20 74 63 6c 5f 74 68 72 65 61 64 5f 63 72  nt tcl_thread_cr
0dd0: 65 61 74 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f  eate(.  void *No
0de0: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74  tUsed,.  Tcl_Int
0df0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20  erp *interp,    
0e00: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72  /* The TCL inter
0e10: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f  preter that invo
0e20: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64  ked this command
0e30: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20   */.  int argc, 
0e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
0e50: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65  Number of argume
0e60: 6e 74 73 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63  nts */.  const c
0e70: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20  har **argv      
0e80: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20  /* Text of each 
0e90: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20  argument */.){. 
0ea0: 20 69 6e 74 20 69 3b 0a 20 20 70 74 68 72 65 61   int i;.  pthrea
0eb0: 64 5f 74 20 78 3b 0a 20 20 69 6e 74 20 72 63 3b  d_t x;.  int rc;
0ec0: 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20  ..  if( argc!=3 
0ed0: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  ){.    Tcl_Appen
0ee0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
0ef0: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  "wrong # args: s
0f00: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72  hould be \"", ar
0f10: 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20  gv[0],.       " 
0f20: 49 44 20 46 49 4c 45 4e 41 4d 45 22 2c 20 30 29  ID FILENAME", 0)
0f30: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
0f40: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 20  _ERROR;.  }.  i 
0f50: 3d 20 70 61 72 73 65 5f 74 68 72 65 61 64 5f 69  = parse_thread_i
0f60: 64 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31  d(interp, argv[1
0f70: 5d 29 3b 0a 20 20 69 66 28 20 69 3c 30 20 29 20  ]);.  if( i<0 ) 
0f80: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
0f90: 3b 0a 20 20 69 66 28 20 74 68 72 65 61 64 73 65  ;.  if( threadse
0fa0: 74 5b 69 5d 2e 62 75 73 79 20 29 7b 0a 20 20 20  t[i].busy ){.   
0fb0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
0fc0: 74 28 69 6e 74 65 72 70 2c 20 22 74 68 72 65 61  t(interp, "threa
0fd0: 64 20 22 2c 20 61 72 67 76 5b 31 5d 2c 20 22 20  d ", argv[1], " 
0fe0: 69 73 20 61 6c 72 65 61 64 79 20 72 75 6e 6e 69  is already runni
0ff0: 6e 67 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  ng", 0);.    ret
1000: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
1010: 20 7d 0a 20 20 74 68 72 65 61 64 73 65 74 5b 69   }.  threadset[i
1020: 5d 2e 62 75 73 79 20 3d 20 31 3b 0a 20 20 73 71  ].busy = 1;.  sq
1030: 6c 69 74 65 46 72 65 65 28 74 68 72 65 61 64 73  liteFree(threads
1040: 65 74 5b 69 5d 2e 7a 46 69 6c 65 6e 61 6d 65 29  et[i].zFilename)
1050: 3b 0a 20 20 74 68 72 65 61 64 73 65 74 5b 69 5d  ;.  threadset[i]
1060: 2e 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 73 71 6c  .zFilename = sql
1070: 69 74 65 53 74 72 44 75 70 28 61 72 67 76 5b 32  iteStrDup(argv[2
1080: 5d 29 3b 0a 20 20 74 68 72 65 61 64 73 65 74 5b  ]);.  threadset[
1090: 69 5d 2e 6f 70 6e 75 6d 20 3d 20 31 3b 0a 20 20  i].opnum = 1;.  
10a0: 74 68 72 65 61 64 73 65 74 5b 69 5d 2e 63 6f 6d  threadset[i].com
10b0: 70 6c 65 74 65 64 20 3d 20 30 3b 0a 20 20 72 63  pleted = 0;.  rc
10c0: 20 3d 20 70 74 68 72 65 61 64 5f 63 72 65 61 74   = pthread_creat
10d0: 65 28 26 78 2c 20 30 2c 20 74 68 72 65 61 64 5f  e(&x, 0, thread_
10e0: 6d 61 69 6e 2c 20 26 74 68 72 65 61 64 73 65 74  main, &threadset
10f0: 5b 69 5d 29 3b 0a 20 20 69 66 28 20 72 63 20 29  [i]);.  if( rc )
1100: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  {.    Tcl_Append
1110: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
1120: 66 61 69 6c 65 64 20 74 6f 20 63 72 65 61 74 65  failed to create
1130: 20 74 68 65 20 74 68 72 65 61 64 22 2c 20 30 29   the thread", 0)
1140: 3b 0a 20 20 20 20 73 71 6c 69 74 65 46 72 65 65  ;.    sqliteFree
1150: 28 74 68 72 65 61 64 73 65 74 5b 69 5d 2e 7a 46  (threadset[i].zF
1160: 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 20 20 74 68  ilename);.    th
1170: 72 65 61 64 73 65 74 5b 69 5d 2e 62 75 73 79 20  readset[i].busy 
1180: 3d 20 30 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  = 0;.    return 
1190: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
11a0: 20 70 74 68 72 65 61 64 5f 64 65 74 61 63 68 28   pthread_detach(
11b0: 78 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c  x);.  return TCL
11c0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 61  _OK;.}../*.** Wa
11d0: 69 74 20 66 6f 72 20 61 20 74 68 72 65 61 64 20  it for a thread 
11e0: 74 6f 20 72 65 61 63 68 20 69 74 73 20 69 64 6c  to reach its idl
11f0: 65 20 73 74 61 74 65 2e 0a 2a 2f 0a 73 74 61 74  e state..*/.stat
1200: 69 63 20 76 6f 69 64 20 74 68 72 65 61 64 5f 77  ic void thread_w
1210: 61 69 74 28 54 68 72 65 61 64 20 2a 70 29 7b 0a  ait(Thread *p){.
1220: 20 20 77 68 69 6c 65 28 20 70 2d 3e 6f 70 6e 75    while( p->opnu
1230: 6d 3e 70 2d 3e 63 6f 6d 70 6c 65 74 65 64 20 29  m>p->completed )
1240: 20 73 63 68 65 64 5f 79 69 65 6c 64 28 29 3b 0a   sched_yield();.
1250: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20  }../*.** Usage: 
1260: 20 74 68 72 65 61 64 5f 77 61 69 74 20 49 44 0a   thread_wait ID.
1270: 2a 2a 0a 2a 2a 20 57 61 69 74 20 6f 6e 20 74 68  **.** Wait on th
1280: 72 65 61 64 20 49 44 20 74 6f 20 72 65 61 63 68  read ID to reach
1290: 20 69 74 73 20 69 64 6c 65 20 73 74 61 74 65 2e   its idle state.
12a0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
12b0: 63 6c 5f 74 68 72 65 61 64 5f 77 61 69 74 28 0a  cl_thread_wait(.
12c0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c    void *NotUsed,
12d0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
12e0: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65  nterp,    /* The
12f0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72   TCL interpreter
1300: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68   that invoked th
1310: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20  is command */.  
1320: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20  int argc,       
1330: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
1340: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f   of arguments */
1350: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a  .  const char **
1360: 61 72 67 76 20 20 20 20 20 20 2f 2a 20 54 65 78  argv      /* Tex
1370: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65  t of each argume
1380: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69  nt */.){.  int i
1390: 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32  ;..  if( argc!=2
13a0: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65   ){.    Tcl_Appe
13b0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
13c0: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20   "wrong # args: 
13d0: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61  should be \"", a
13e0: 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22  rgv[0],.       "
13f0: 20 49 44 22 2c 20 30 29 3b 0a 20 20 20 20 72 65   ID", 0);.    re
1400: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
1410: 20 20 7d 0a 20 20 69 20 3d 20 70 61 72 73 65 5f    }.  i = parse_
1420: 74 68 72 65 61 64 5f 69 64 28 69 6e 74 65 72 70  thread_id(interp
1430: 2c 20 61 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66  , argv[1]);.  if
1440: 28 20 69 3c 30 20 29 20 72 65 74 75 72 6e 20 54  ( i<0 ) return T
1450: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20  CL_ERROR;.  if( 
1460: 21 74 68 72 65 61 64 73 65 74 5b 69 5d 2e 62 75  !threadset[i].bu
1470: 73 79 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  sy ){.    Tcl_Ap
1480: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
1490: 70 2c 20 22 6e 6f 20 73 75 63 68 20 74 68 72 65  p, "no such thre
14a0: 61 64 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  ad", 0);.    ret
14b0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
14c0: 20 7d 0a 20 20 74 68 72 65 61 64 5f 77 61 69 74   }.  thread_wait
14d0: 28 26 74 68 72 65 61 64 73 65 74 5b 69 5d 29 3b  (&threadset[i]);
14e0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
14f0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 74 6f 70 20  ;.}../*.** Stop 
1500: 61 20 74 68 72 65 61 64 2e 0a 2a 2f 0a 73 74 61  a thread..*/.sta
1510: 74 69 63 20 76 6f 69 64 20 73 74 6f 70 5f 74 68  tic void stop_th
1520: 72 65 61 64 28 54 68 72 65 61 64 20 2a 70 29 7b  read(Thread *p){
1530: 0a 20 20 74 68 72 65 61 64 5f 77 61 69 74 28 70  .  thread_wait(p
1540: 29 3b 0a 20 20 70 2d 3e 78 4f 70 20 3d 20 30 3b  );.  p->xOp = 0;
1550: 0a 20 20 70 2d 3e 6f 70 6e 75 6d 2b 2b 3b 0a 20  .  p->opnum++;. 
1560: 20 74 68 72 65 61 64 5f 77 61 69 74 28 70 29 3b   thread_wait(p);
1570: 0a 20 20 73 71 6c 69 74 65 46 72 65 65 28 70 2d  .  sqliteFree(p-
1580: 3e 7a 41 72 67 29 3b 0a 20 20 70 2d 3e 7a 41 72  >zArg);.  p->zAr
1590: 67 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 46  g = 0;.  sqliteF
15a0: 72 65 65 28 70 2d 3e 7a 46 69 6c 65 6e 61 6d 65  ree(p->zFilename
15b0: 29 3b 0a 20 20 70 2d 3e 7a 46 69 6c 65 6e 61 6d  );.  p->zFilenam
15c0: 65 20 3d 20 30 3b 0a 20 20 70 2d 3e 62 75 73 79  e = 0;.  p->busy
15d0: 20 3d 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55   = 0;.}../*.** U
15e0: 73 61 67 65 3a 20 20 74 68 72 65 61 64 5f 68 61  sage:  thread_ha
15f0: 6c 74 20 49 44 0a 2a 2a 0a 2a 2a 20 43 61 75 73  lt ID.**.** Caus
1600: 65 20 61 20 74 68 72 65 61 64 20 74 6f 20 73 68  e a thread to sh
1610: 75 74 20 69 74 73 65 6c 66 20 64 6f 77 6e 2e 20  ut itself down. 
1620: 20 57 61 69 74 20 66 6f 72 20 74 68 65 20 73 68   Wait for the sh
1630: 75 74 64 6f 77 6e 20 74 6f 20 62 65 0a 2a 2a 20  utdown to be.** 
1640: 63 6f 6d 70 6c 65 74 65 64 2e 20 20 49 66 20 49  completed.  If I
1650: 44 20 69 73 20 22 2a 22 20 74 68 65 6e 20 73 74  D is "*" then st
1660: 6f 70 20 61 6c 6c 20 74 68 72 65 61 64 73 2e 0a  op all threads..
1670: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63  */.static int tc
1680: 6c 5f 74 68 72 65 61 64 5f 68 61 6c 74 28 0a 20  l_thread_halt(. 
1690: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a   void *NotUsed,.
16a0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
16b0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20  terp,    /* The 
16c0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20  TCL interpreter 
16d0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69  that invoked thi
16e0: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69  s command */.  i
16f0: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20  nt argc,        
1700: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20        /* Number 
1710: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a  of arguments */.
1720: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61    const char **a
1730: 72 67 76 20 20 20 20 20 20 2f 2a 20 54 65 78 74  rgv      /* Text
1740: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e   of each argumen
1750: 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b  t */.){.  int i;
1760: 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20  ..  if( argc!=2 
1770: 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  ){.    Tcl_Appen
1780: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
1790: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  "wrong # args: s
17a0: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72  hould be \"", ar
17b0: 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20  gv[0],.       " 
17c0: 49 44 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  ID", 0);.    ret
17d0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
17e0: 20 7d 0a 20 20 69 66 28 20 61 72 67 76 5b 31 5d   }.  if( argv[1]
17f0: 5b 30 5d 3d 3d 27 2a 27 20 26 26 20 61 72 67 76  [0]=='*' && argv
1800: 5b 31 5d 5b 31 5d 3d 3d 30 20 29 7b 0a 20 20 20  [1][1]==0 ){.   
1810: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 4e 5f 54 48   for(i=0; i<N_TH
1820: 52 45 41 44 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  READ; i++){.    
1830: 20 20 69 66 28 20 74 68 72 65 61 64 73 65 74 5b    if( threadset[
1840: 69 5d 2e 62 75 73 79 20 29 20 73 74 6f 70 5f 74  i].busy ) stop_t
1850: 68 72 65 61 64 28 26 74 68 72 65 61 64 73 65 74  hread(&threadset
1860: 5b 69 5d 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 65  [i]);.    }.  }e
1870: 6c 73 65 7b 0a 20 20 20 20 69 20 3d 20 70 61 72  lse{.    i = par
1880: 73 65 5f 74 68 72 65 61 64 5f 69 64 28 69 6e 74  se_thread_id(int
1890: 65 72 70 2c 20 61 72 67 76 5b 31 5d 29 3b 0a 20  erp, argv[1]);. 
18a0: 20 20 20 69 66 28 20 69 3c 30 20 29 20 72 65 74     if( i<0 ) ret
18b0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
18c0: 20 20 20 69 66 28 20 21 74 68 72 65 61 64 73 65     if( !threadse
18d0: 74 5b 69 5d 2e 62 75 73 79 20 29 7b 0a 20 20 20  t[i].busy ){.   
18e0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
18f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20  ult(interp, "no 
1900: 73 75 63 68 20 74 68 72 65 61 64 22 2c 20 30 29  such thread", 0)
1910: 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54  ;.      return T
1920: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a  CL_ERROR;.    }.
1930: 20 20 20 20 73 74 6f 70 5f 74 68 72 65 61 64 28      stop_thread(
1940: 26 74 68 72 65 61 64 73 65 74 5b 69 5d 29 3b 0a  &threadset[i]);.
1950: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c    }.  return TCL
1960: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73  _OK;.}../*.** Us
1970: 61 67 65 3a 20 74 68 72 65 61 64 5f 61 72 67 63  age: thread_argc
1980: 20 20 49 44 0a 2a 2a 0a 2a 2a 20 57 61 69 74 20    ID.**.** Wait 
1990: 6f 6e 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65  on the most rece
19a0: 6e 74 20 74 68 72 65 61 64 5f 73 74 65 70 20 74  nt thread_step t
19b0: 6f 20 63 6f 6d 70 6c 65 74 65 2c 20 74 68 65 6e  o complete, then
19c0: 20 72 65 74 75 72 6e 20 74 68 65 0a 2a 2a 20 6e   return the.** n
19d0: 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73  umber of columns
19e0: 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 20 73   in the result s
19f0: 65 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  et..*/.static in
1a00: 74 20 74 63 6c 5f 74 68 72 65 61 64 5f 61 72 67  t tcl_thread_arg
1a10: 63 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73  c(.  void *NotUs
1a20: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ed,.  Tcl_Interp
1a30: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20   *interp,    /* 
1a40: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65  The TCL interpre
1a50: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64  ter that invoked
1a60: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f   this command */
1a70: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20  .  int argc,    
1a80: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
1a90: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
1aa0: 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72   */.  const char
1ab0: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 2f 2a 20   **argv      /* 
1ac0: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67  Text of each arg
1ad0: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e  ument */.){.  in
1ae0: 74 20 69 3b 0a 20 20 63 68 61 72 20 7a 42 75 66  t i;.  char zBuf
1af0: 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 28 20 61 72  [100];..  if( ar
1b00: 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c  gc!=2 ){.    Tcl
1b10: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
1b20: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61  terp, "wrong # a
1b30: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c  rgs: should be \
1b40: 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20  "", argv[0],.   
1b50: 20 20 20 20 22 20 49 44 22 2c 20 30 29 3b 0a 20      " ID", 0);. 
1b60: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
1b70: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 20 3d 20 70  ROR;.  }.  i = p
1b80: 61 72 73 65 5f 74 68 72 65 61 64 5f 69 64 28 69  arse_thread_id(i
1b90: 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 29 3b  nterp, argv[1]);
1ba0: 0a 20 20 69 66 28 20 69 3c 30 20 29 20 72 65 74  .  if( i<0 ) ret
1bb0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
1bc0: 20 69 66 28 20 21 74 68 72 65 61 64 73 65 74 5b   if( !threadset[
1bd0: 69 5d 2e 62 75 73 79 20 29 7b 0a 20 20 20 20 54  i].busy ){.    T
1be0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
1bf0: 69 6e 74 65 72 70 2c 20 22 6e 6f 20 73 75 63 68  interp, "no such
1c00: 20 74 68 72 65 61 64 22 2c 20 30 29 3b 0a 20 20   thread", 0);.  
1c10: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
1c20: 4f 52 3b 0a 20 20 7d 0a 20 20 74 68 72 65 61 64  OR;.  }.  thread
1c30: 5f 77 61 69 74 28 26 74 68 72 65 61 64 73 65 74  _wait(&threadset
1c40: 5b 69 5d 29 3b 0a 20 20 73 70 72 69 6e 74 66 28  [i]);.  sprintf(
1c50: 7a 42 75 66 2c 20 22 25 64 22 2c 20 74 68 72 65  zBuf, "%d", thre
1c60: 61 64 73 65 74 5b 69 5d 2e 61 72 67 63 29 3b 0a  adset[i].argc);.
1c70: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
1c80: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c  lt(interp, zBuf,
1c90: 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43   0);.  return TC
1ca0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55  L_OK;.}../*.** U
1cb0: 73 61 67 65 3a 20 74 68 72 65 61 64 5f 61 72 67  sage: thread_arg
1cc0: 76 20 20 49 44 20 20 20 4e 0a 2a 2a 0a 2a 2a 20  v  ID   N.**.** 
1cd0: 57 61 69 74 20 6f 6e 20 74 68 65 20 6d 6f 73 74  Wait on the most
1ce0: 20 72 65 63 65 6e 74 20 74 68 72 65 61 64 5f 73   recent thread_s
1cf0: 74 65 70 20 74 6f 20 63 6f 6d 70 6c 65 74 65 2c  tep to complete,
1d00: 20 74 68 65 6e 20 72 65 74 75 72 6e 20 74 68 65   then return the
1d10: 0a 2a 2a 20 76 61 6c 75 65 20 6f 66 20 74 68 65  .** value of the
1d20: 20 4e 2d 74 68 20 63 6f 6c 75 6d 6e 73 20 69 6e   N-th columns in
1d30: 20 74 68 65 20 72 65 73 75 6c 74 20 73 65 74 2e   the result set.
1d40: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
1d50: 63 6c 5f 74 68 72 65 61 64 5f 61 72 67 76 28 0a  cl_thread_argv(.
1d60: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c    void *NotUsed,
1d70: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
1d80: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65  nterp,    /* The
1d90: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72   TCL interpreter
1da0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68   that invoked th
1db0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20  is command */.  
1dc0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20  int argc,       
1dd0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
1de0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f   of arguments */
1df0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a  .  const char **
1e00: 61 72 67 76 20 20 20 20 20 20 2f 2a 20 54 65 78  argv      /* Tex
1e10: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65  t of each argume
1e20: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69  nt */.){.  int i
1e30: 3b 0a 20 20 69 6e 74 20 6e 3b 0a 0a 20 20 69 66  ;.  int n;..  if
1e40: 28 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20  ( argc!=3 ){.   
1e50: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
1e60: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67  t(interp, "wrong
1e70: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
1e80: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c  be \"", argv[0],
1e90: 0a 20 20 20 20 20 20 20 22 20 49 44 20 4e 22 2c  .       " ID N",
1ea0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20   0);.    return 
1eb0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
1ec0: 20 69 20 3d 20 70 61 72 73 65 5f 74 68 72 65 61   i = parse_threa
1ed0: 64 5f 69 64 28 69 6e 74 65 72 70 2c 20 61 72 67  d_id(interp, arg
1ee0: 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 69 3c 30  v[1]);.  if( i<0
1ef0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52   ) return TCL_ER
1f00: 52 4f 52 3b 0a 20 20 69 66 28 20 21 74 68 72 65  ROR;.  if( !thre
1f10: 61 64 73 65 74 5b 69 5d 2e 62 75 73 79 20 29 7b  adset[i].busy ){
1f20: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52  .    Tcl_AppendR
1f30: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e  esult(interp, "n
1f40: 6f 20 73 75 63 68 20 74 68 72 65 61 64 22 2c 20  o such thread", 
1f50: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  0);.    return T
1f60: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
1f70: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69  if( Tcl_GetInt(i
1f80: 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c 20  nterp, argv[2], 
1f90: 26 6e 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c  &n) ) return TCL
1fa0: 5f 45 52 52 4f 52 3b 0a 20 20 74 68 72 65 61 64  _ERROR;.  thread
1fb0: 5f 77 61 69 74 28 26 74 68 72 65 61 64 73 65 74  _wait(&threadset
1fc0: 5b 69 5d 29 3b 0a 20 20 69 66 28 20 6e 3c 30 20  [i]);.  if( n<0 
1fd0: 7c 7c 20 6e 3e 3d 74 68 72 65 61 64 73 65 74 5b  || n>=threadset[
1fe0: 69 5d 2e 61 72 67 63 20 29 7b 0a 20 20 20 20 54  i].argc ){.    T
1ff0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
2000: 69 6e 74 65 72 70 2c 20 22 63 6f 6c 75 6d 6e 20  interp, "column 
2010: 6e 75 6d 62 65 72 20 6f 75 74 20 6f 66 20 72 61  number out of ra
2020: 6e 67 65 22 2c 20 30 29 3b 0a 20 20 20 20 72 65  nge", 0);.    re
2030: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
2040: 20 20 7d 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64    }.  Tcl_Append
2050: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 74  Result(interp, t
2060: 68 72 65 61 64 73 65 74 5b 69 5d 2e 61 72 67 76  hreadset[i].argv
2070: 5b 6e 5d 2c 20 30 29 3b 0a 20 20 72 65 74 75 72  [n], 0);.  retur
2080: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  n TCL_OK;.}../*.
2090: 2a 2a 20 55 73 61 67 65 3a 20 74 68 72 65 61 64  ** Usage: thread
20a0: 5f 63 6f 6c 6e 61 6d 65 20 20 49 44 20 20 20 4e  _colname  ID   N
20b0: 0a 2a 2a 0a 2a 2a 20 57 61 69 74 20 6f 6e 20 74  .**.** Wait on t
20c0: 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 74  he most recent t
20d0: 68 72 65 61 64 5f 73 74 65 70 20 74 6f 20 63 6f  hread_step to co
20e0: 6d 70 6c 65 74 65 2c 20 74 68 65 6e 20 72 65 74  mplete, then ret
20f0: 75 72 6e 20 74 68 65 0a 2a 2a 20 6e 61 6d 65 20  urn the.** name 
2100: 6f 66 20 74 68 65 20 4e 2d 74 68 20 63 6f 6c 75  of the N-th colu
2110: 6d 6e 73 20 69 6e 20 74 68 65 20 72 65 73 75 6c  mns in the resul
2120: 74 20 73 65 74 2e 0a 2a 2f 0a 73 74 61 74 69 63  t set..*/.static
2130: 20 69 6e 74 20 74 63 6c 5f 74 68 72 65 61 64 5f   int tcl_thread_
2140: 63 6f 6c 6e 61 6d 65 28 0a 20 20 76 6f 69 64 20  colname(.  void 
2150: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f  *NotUsed,.  Tcl_
2160: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
2170: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e     /* The TCL in
2180: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69  terpreter that i
2190: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d  nvoked this comm
21a0: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67  and */.  int arg
21b0: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c,              
21c0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67  /* Number of arg
21d0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 6f 6e 73  uments */.  cons
21e0: 74 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20  t char **argv   
21f0: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61     /* Text of ea
2200: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29  ch argument */.)
2210: 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74  {.  int i;.  int
2220: 20 6e 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21   n;..  if( argc!
2230: 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  =3 ){.    Tcl_Ap
2240: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
2250: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
2260: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
2270: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20   argv[0],.      
2280: 20 22 20 49 44 20 4e 22 2c 20 30 29 3b 0a 20 20   " ID N", 0);.  
2290: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
22a0: 4f 52 3b 0a 20 20 7d 0a 20 20 69 20 3d 20 70 61  OR;.  }.  i = pa
22b0: 72 73 65 5f 74 68 72 65 61 64 5f 69 64 28 69 6e  rse_thread_id(in
22c0: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 29 3b 0a  terp, argv[1]);.
22d0: 20 20 69 66 28 20 69 3c 30 20 29 20 72 65 74 75    if( i<0 ) retu
22e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
22f0: 69 66 28 20 21 74 68 72 65 61 64 73 65 74 5b 69  if( !threadset[i
2300: 5d 2e 62 75 73 79 20 29 7b 0a 20 20 20 20 54 63  ].busy ){.    Tc
2310: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
2320: 6e 74 65 72 70 2c 20 22 6e 6f 20 73 75 63 68 20  nterp, "no such 
2330: 74 68 72 65 61 64 22 2c 20 30 29 3b 0a 20 20 20  thread", 0);.   
2340: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
2350: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c  R;.  }.  if( Tcl
2360: 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20  _GetInt(interp, 
2370: 61 72 67 76 5b 32 5d 2c 20 26 6e 29 20 29 20 72  argv[2], &n) ) r
2380: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
2390: 0a 20 20 74 68 72 65 61 64 5f 77 61 69 74 28 26  .  thread_wait(&
23a0: 74 68 72 65 61 64 73 65 74 5b 69 5d 29 3b 0a 20  threadset[i]);. 
23b0: 20 69 66 28 20 6e 3c 30 20 7c 7c 20 6e 3e 3d 74   if( n<0 || n>=t
23c0: 68 72 65 61 64 73 65 74 5b 69 5d 2e 61 72 67 63  hreadset[i].argc
23d0: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65   ){.    Tcl_Appe
23e0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
23f0: 20 22 63 6f 6c 75 6d 6e 20 6e 75 6d 62 65 72 20   "column number 
2400: 6f 75 74 20 6f 66 20 72 61 6e 67 65 22 2c 20 30  out of range", 0
2410: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
2420: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 54  L_ERROR;.  }.  T
2430: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
2440: 69 6e 74 65 72 70 2c 20 74 68 72 65 61 64 73 65  interp, threadse
2450: 74 5b 69 5d 2e 63 6f 6c 76 5b 6e 5d 2c 20 30 29  t[i].colv[n], 0)
2460: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f  ;.  return TCL_O
2470: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67  K;.}../*.** Usag
2480: 65 3a 20 74 68 72 65 61 64 5f 72 65 73 75 6c 74  e: thread_result
2490: 20 20 49 44 0a 2a 2a 0a 2a 2a 20 57 61 69 74 20    ID.**.** Wait 
24a0: 6f 6e 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65  on the most rece
24b0: 6e 74 20 6f 70 65 72 61 74 69 6f 6e 20 74 6f 20  nt operation to 
24c0: 63 6f 6d 70 6c 65 74 65 2c 20 74 68 65 6e 20 72  complete, then r
24d0: 65 74 75 72 6e 20 74 68 65 0a 2a 2a 20 72 65 73  eturn the.** res
24e0: 75 6c 74 20 63 6f 64 65 20 66 72 6f 6d 20 74 68  ult code from th
24f0: 61 74 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 2a 2f  at operation..*/
2500: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c 5f  .static int tcl_
2510: 74 68 72 65 61 64 5f 72 65 73 75 6c 74 28 0a 20  thread_result(. 
2520: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a   void *NotUsed,.
2530: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
2540: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20  terp,    /* The 
2550: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20  TCL interpreter 
2560: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69  that invoked thi
2570: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69  s command */.  i
2580: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20  nt argc,        
2590: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20        /* Number 
25a0: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a  of arguments */.
25b0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61    const char **a
25c0: 72 67 76 20 20 20 20 20 20 2f 2a 20 54 65 78 74  rgv      /* Text
25d0: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e   of each argumen
25e0: 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b  t */.){.  int i;
25f0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
2600: 4e 61 6d 65 3b 0a 0a 20 20 69 66 28 20 61 72 67  Name;..  if( arg
2610: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=2 ){.    Tcl_
2620: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
2630: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
2640: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
2650: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20  ", argv[0],.    
2660: 20 20 20 22 20 49 44 22 2c 20 30 29 3b 0a 20 20     " ID", 0);.  
2670: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
2680: 4f 52 3b 0a 20 20 7d 0a 20 20 69 20 3d 20 70 61  OR;.  }.  i = pa
2690: 72 73 65 5f 74 68 72 65 61 64 5f 69 64 28 69 6e  rse_thread_id(in
26a0: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 29 3b 0a  terp, argv[1]);.
26b0: 20 20 69 66 28 20 69 3c 30 20 29 20 72 65 74 75    if( i<0 ) retu
26c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
26d0: 69 66 28 20 21 74 68 72 65 61 64 73 65 74 5b 69  if( !threadset[i
26e0: 5d 2e 62 75 73 79 20 29 7b 0a 20 20 20 20 54 63  ].busy ){.    Tc
26f0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
2700: 6e 74 65 72 70 2c 20 22 6e 6f 20 73 75 63 68 20  nterp, "no such 
2710: 74 68 72 65 61 64 22 2c 20 30 29 3b 0a 20 20 20  thread", 0);.   
2720: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
2730: 52 3b 0a 20 20 7d 0a 20 20 74 68 72 65 61 64 5f  R;.  }.  thread_
2740: 77 61 69 74 28 26 74 68 72 65 61 64 73 65 74 5b  wait(&threadset[
2750: 69 5d 29 3b 0a 20 20 73 77 69 74 63 68 28 20 74  i]);.  switch( t
2760: 68 72 65 61 64 73 65 74 5b 69 5d 2e 72 63 20 29  hreadset[i].rc )
2770: 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54  {.    case SQLIT
2780: 45 5f 4f 4b 3a 20 20 20 20 20 20 20 20 20 7a 4e  E_OK:         zN
2790: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4f 4b  ame = "SQLITE_OK
27a0: 22 3b 20 20 20 20 20 20 20 20 20 20 62 72 65 61  ";          brea
27b0: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49  k;.    case SQLI
27c0: 54 45 5f 45 52 52 4f 52 3a 20 20 20 20 20 20 7a  TE_ERROR:      z
27d0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 45  Name = "SQLITE_E
27e0: 52 52 4f 52 22 3b 20 20 20 20 20 20 20 62 72 65  RROR";       bre
27f0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c  ak;.    case SQL
2800: 49 54 45 5f 50 45 52 4d 3a 20 20 20 20 20 20 20  ITE_PERM:       
2810: 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f  zName = "SQLITE_
2820: 50 45 52 4d 22 3b 20 20 20 20 20 20 20 20 62 72  PERM";        br
2830: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51  eak;.    case SQ
2840: 4c 49 54 45 5f 41 42 4f 52 54 3a 20 20 20 20 20  LITE_ABORT:     
2850: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45   zName = "SQLITE
2860: 5f 41 42 4f 52 54 22 3b 20 20 20 20 20 20 20 62  _ABORT";       b
2870: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53  reak;.    case S
2880: 51 4c 49 54 45 5f 42 55 53 59 3a 20 20 20 20 20  QLITE_BUSY:     
2890: 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54    zName = "SQLIT
28a0: 45 5f 42 55 53 59 22 3b 20 20 20 20 20 20 20 20  E_BUSY";        
28b0: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20  break;.    case 
28c0: 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 3a 20 20  SQLITE_LOCKED:  
28d0: 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49     zName = "SQLI
28e0: 54 45 5f 4c 4f 43 4b 45 44 22 3b 20 20 20 20 20  TE_LOCKED";     
28f0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65   break;.    case
2900: 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3a 20 20   SQLITE_NOMEM:  
2910: 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c      zName = "SQL
2920: 49 54 45 5f 4e 4f 4d 45 4d 22 3b 20 20 20 20 20  ITE_NOMEM";     
2930: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73    break;.    cas
2940: 65 20 53 51 4c 49 54 45 5f 52 45 41 44 4f 4e 4c  e SQLITE_READONL
2950: 59 3a 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51  Y:   zName = "SQ
2960: 4c 49 54 45 5f 52 45 41 44 4f 4e 4c 59 22 3b 20  LITE_READONLY"; 
2970: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61     break;.    ca
2980: 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 52 52  se SQLITE_INTERR
2990: 55 50 54 3a 20 20 7a 4e 61 6d 65 20 3d 20 22 53  UPT:  zName = "S
29a0: 51 4c 49 54 45 5f 49 4e 54 45 52 52 55 50 54 22  QLITE_INTERRUPT"
29b0: 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63  ;   break;.    c
29c0: 61 73 65 20 53 51 4c 49 54 45 5f 49 4f 45 52 52  ase SQLITE_IOERR
29d0: 3a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22  :      zName = "
29e0: 53 51 4c 49 54 45 5f 49 4f 45 52 52 22 3b 20 20  SQLITE_IOERR";  
29f0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
2a00: 63 61 73 65 20 53 51 4c 49 54 45 5f 43 4f 52 52  case SQLITE_CORR
2a10: 55 50 54 3a 20 20 20 20 7a 4e 61 6d 65 20 3d 20  UPT:    zName = 
2a20: 22 53 51 4c 49 54 45 5f 43 4f 52 52 55 50 54 22  "SQLITE_CORRUPT"
2a30: 3b 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20  ;     break;.   
2a40: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 46 55 4c   case SQLITE_FUL
2a50: 4c 3a 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d  L:       zName =
2a60: 20 22 53 51 4c 49 54 45 5f 46 55 4c 4c 22 3b 20   "SQLITE_FULL"; 
2a70: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
2a80: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 43 41    case SQLITE_CA
2a90: 4e 54 4f 50 45 4e 3a 20 20 20 7a 4e 61 6d 65 20  NTOPEN:   zName 
2aa0: 3d 20 22 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50  = "SQLITE_CANTOP
2ab0: 45 4e 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20  EN";    break;. 
2ac0: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 50     case SQLITE_P
2ad0: 52 4f 54 4f 43 4f 4c 3a 20 20 20 7a 4e 61 6d 65  ROTOCOL:   zName
2ae0: 20 3d 20 22 53 51 4c 49 54 45 5f 50 52 4f 54 4f   = "SQLITE_PROTO
2af0: 43 4f 4c 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a  COL";    break;.
2b00: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f      case SQLITE_
2b10: 45 4d 50 54 59 3a 20 20 20 20 20 20 7a 4e 61 6d  EMPTY:      zNam
2b20: 65 20 3d 20 22 53 51 4c 49 54 45 5f 45 4d 50 54  e = "SQLITE_EMPT
2b30: 59 22 3b 20 20 20 20 20 20 20 62 72 65 61 6b 3b  Y";       break;
2b40: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
2b50: 5f 53 43 48 45 4d 41 3a 20 20 20 20 20 7a 4e 61  _SCHEMA:     zNa
2b60: 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 53 43 48  me = "SQLITE_SCH
2b70: 45 4d 41 22 3b 20 20 20 20 20 20 62 72 65 61 6b  EMA";      break
2b80: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54  ;.    case SQLIT
2b90: 45 5f 43 4f 4e 53 54 52 41 49 4e 54 3a 20 7a 4e  E_CONSTRAINT: zN
2ba0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 43 4f  ame = "SQLITE_CO
2bb0: 4e 53 54 52 41 49 4e 54 22 3b 20 20 62 72 65 61  NSTRAINT";  brea
2bc0: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49  k;.    case SQLI
2bd0: 54 45 5f 4d 49 53 4d 41 54 43 48 3a 20 20 20 7a  TE_MISMATCH:   z
2be0: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 4d  Name = "SQLITE_M
2bf0: 49 53 4d 41 54 43 48 22 3b 20 20 20 20 62 72 65  ISMATCH";    bre
2c00: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c  ak;.    case SQL
2c10: 49 54 45 5f 4d 49 53 55 53 45 3a 20 20 20 20 20  ITE_MISUSE:     
2c20: 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f  zName = "SQLITE_
2c30: 4d 49 53 55 53 45 22 3b 20 20 20 20 20 20 62 72  MISUSE";      br
2c40: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51  eak;.    case SQ
2c50: 4c 49 54 45 5f 4e 4f 4c 46 53 3a 20 20 20 20 20  LITE_NOLFS:     
2c60: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45   zName = "SQLITE
2c70: 5f 4e 4f 4c 46 53 22 3b 20 20 20 20 20 20 20 62  _NOLFS";       b
2c80: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53  reak;.    case S
2c90: 51 4c 49 54 45 5f 41 55 54 48 3a 20 20 20 20 20  QLITE_AUTH:     
2ca0: 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54    zName = "SQLIT
2cb0: 45 5f 41 55 54 48 22 3b 20 20 20 20 20 20 20 20  E_AUTH";        
2cc0: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20  break;.    case 
2cd0: 53 51 4c 49 54 45 5f 46 4f 52 4d 41 54 3a 20 20  SQLITE_FORMAT:  
2ce0: 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49     zName = "SQLI
2cf0: 54 45 5f 46 4f 52 4d 41 54 22 3b 20 20 20 20 20  TE_FORMAT";     
2d00: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65   break;.    case
2d10: 20 53 51 4c 49 54 45 5f 52 41 4e 47 45 3a 20 20   SQLITE_RANGE:  
2d20: 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c      zName = "SQL
2d30: 49 54 45 5f 52 41 4e 47 45 22 3b 20 20 20 20 20  ITE_RANGE";     
2d40: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73    break;.    cas
2d50: 65 20 53 51 4c 49 54 45 5f 52 4f 57 3a 20 20 20  e SQLITE_ROW:   
2d60: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51       zName = "SQ
2d70: 4c 49 54 45 5f 52 4f 57 22 3b 20 20 20 20 20 20  LITE_ROW";      
2d80: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61     break;.    ca
2d90: 73 65 20 53 51 4c 49 54 45 5f 44 4f 4e 45 3a 20  se SQLITE_DONE: 
2da0: 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53        zName = "S
2db0: 51 4c 49 54 45 5f 44 4f 4e 45 22 3b 20 20 20 20  QLITE_DONE";    
2dc0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 64      break;.    d
2dd0: 65 66 61 75 6c 74 3a 20 20 20 20 20 20 20 20 20  efault:         
2de0: 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22         zName = "
2df0: 53 51 4c 49 54 45 5f 55 6e 6b 6e 6f 77 6e 22 3b  SQLITE_Unknown";
2e00: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a       break;.  }.
2e10: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
2e20: 6c 74 28 69 6e 74 65 72 70 2c 20 7a 4e 61 6d 65  lt(interp, zName
2e30: 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54  , 0);.  return T
2e40: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  CL_OK;.}../*.** 
2e50: 55 73 61 67 65 3a 20 74 68 72 65 61 64 5f 65 72  Usage: thread_er
2e60: 72 6f 72 20 20 49 44 0a 2a 2a 0a 2a 2a 20 57 61  ror  ID.**.** Wa
2e70: 69 74 20 6f 6e 20 74 68 65 20 6d 6f 73 74 20 72  it on the most r
2e80: 65 63 65 6e 74 20 6f 70 65 72 61 74 69 6f 6e 20  ecent operation 
2e90: 74 6f 20 63 6f 6d 70 6c 65 74 65 2c 20 74 68 65  to complete, the
2ea0: 6e 20 72 65 74 75 72 6e 20 74 68 65 0a 2a 2a 20  n return the.** 
2eb0: 65 72 72 6f 72 20 73 74 72 69 6e 67 2e 0a 2a 2f  error string..*/
2ec0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c 5f  .static int tcl_
2ed0: 74 68 72 65 61 64 5f 65 72 72 6f 72 28 0a 20 20  thread_error(.  
2ee0: 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20  void *NotUsed,. 
2ef0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
2f00: 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54  erp,    /* The T
2f10: 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74  CL interpreter t
2f20: 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73  hat invoked this
2f30: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e   command */.  in
2f40: 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20 20  t argc,         
2f50: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f       /* Number o
2f60: 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20  f arguments */. 
2f70: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72   const char **ar
2f80: 67 76 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20  gv      /* Text 
2f90: 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74  of each argument
2fa0: 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a   */.){.  int i;.
2fb0: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29  .  if( argc!=2 )
2fc0: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  {.    Tcl_Append
2fd0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
2fe0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
2ff0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67  ould be \"", arg
3000: 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 49  v[0],.       " I
3010: 44 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75  D", 0);.    retu
3020: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
3030: 7d 0a 20 20 69 20 3d 20 70 61 72 73 65 5f 74 68  }.  i = parse_th
3040: 72 65 61 64 5f 69 64 28 69 6e 74 65 72 70 2c 20  read_id(interp, 
3050: 61 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20  argv[1]);.  if( 
3060: 69 3c 30 20 29 20 72 65 74 75 72 6e 20 54 43 4c  i<0 ) return TCL
3070: 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 21 74  _ERROR;.  if( !t
3080: 68 72 65 61 64 73 65 74 5b 69 5d 2e 62 75 73 79  hreadset[i].busy
3090: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65   ){.    Tcl_Appe
30a0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
30b0: 20 22 6e 6f 20 73 75 63 68 20 74 68 72 65 61 64   "no such thread
30c0: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72  ", 0);.    retur
30d0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
30e0: 0a 20 20 74 68 72 65 61 64 5f 77 61 69 74 28 26  .  thread_wait(&
30f0: 74 68 72 65 61 64 73 65 74 5b 69 5d 29 3b 0a 20  threadset[i]);. 
3100: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
3110: 74 28 69 6e 74 65 72 70 2c 20 74 68 72 65 61 64  t(interp, thread
3120: 73 65 74 5b 69 5d 2e 7a 45 72 72 2c 20 30 29 3b  set[i].zErr, 0);
3130: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
3140: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20  ;.}../*.** This 
3150: 70 72 6f 63 65 64 75 72 65 20 72 75 6e 73 20 69  procedure runs i
3160: 6e 20 74 68 65 20 74 68 72 65 61 64 20 74 6f 20  n the thread to 
3170: 63 6f 6d 70 69 6c 65 20 61 6e 20 53 51 4c 20 73  compile an SQL s
3180: 74 61 74 65 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61  tatement..*/.sta
3190: 74 69 63 20 76 6f 69 64 20 64 6f 5f 63 6f 6d 70  tic void do_comp
31a0: 69 6c 65 28 54 68 72 65 61 64 20 2a 70 29 7b 0a  ile(Thread *p){.
31b0: 20 20 69 66 28 20 70 2d 3e 64 62 3d 3d 30 20 29    if( p->db==0 )
31c0: 7b 0a 20 20 20 20 70 2d 3e 7a 45 72 72 20 3d 20  {.    p->zErr = 
31d0: 70 2d 3e 7a 53 74 61 74 69 63 45 72 72 20 3d 20  p->zStaticErr = 
31e0: 22 6e 6f 20 64 61 74 61 62 61 73 65 20 69 73 20  "no database is 
31f0: 6f 70 65 6e 22 3b 0a 20 20 20 20 70 2d 3e 72 63  open";.    p->rc
3200: 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b   = SQLITE_ERROR;
3210: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d  .    return;.  }
3220: 0a 20 20 69 66 28 20 70 2d 3e 70 53 74 6d 74 20  .  if( p->pStmt 
3230: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66  ){.    sqlite3_f
3240: 69 6e 61 6c 69 7a 65 28 70 2d 3e 70 53 74 6d 74  inalize(p->pStmt
3250: 29 3b 0a 20 20 20 20 70 2d 3e 70 53 74 6d 74 20  );.    p->pStmt 
3260: 3d 20 30 3b 0a 20 20 7d 0a 20 20 70 2d 3e 72 63  = 0;.  }.  p->rc
3270: 20 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61   = sqlite3_prepa
3280: 72 65 28 70 2d 3e 64 62 2c 20 70 2d 3e 7a 41 72  re(p->db, p->zAr
3290: 67 2c 20 2d 31 2c 20 26 70 2d 3e 70 53 74 6d 74  g, -1, &p->pStmt
32a0: 2c 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55  , 0);.}../*.** U
32b0: 73 61 67 65 3a 20 74 68 72 65 61 64 5f 63 6f 6d  sage: thread_com
32c0: 70 69 6c 65 20 49 44 20 53 51 4c 0a 2a 2a 0a 2a  pile ID SQL.**.*
32d0: 2a 20 43 6f 6d 70 69 6c 65 20 61 20 6e 65 77 20  * Compile a new 
32e0: 76 69 72 74 75 61 6c 20 6d 61 63 68 69 6e 65 2e  virtual machine.
32f0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
3300: 63 6c 5f 74 68 72 65 61 64 5f 63 6f 6d 70 69 6c  cl_thread_compil
3310: 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73  e(.  void *NotUs
3320: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ed,.  Tcl_Interp
3330: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20   *interp,    /* 
3340: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65  The TCL interpre
3350: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64  ter that invoked
3360: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f   this command */
3370: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20  .  int argc,    
3380: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
3390: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
33a0: 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72   */.  const char
33b0: 20 2a 2a 61 72 67 76 20 20 20 20 20 20 2f 2a 20   **argv      /* 
33c0: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67  Text of each arg
33d0: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e  ument */.){.  in
33e0: 74 20 69 3b 0a 20 20 69 66 28 20 61 72 67 63 21  t i;.  if( argc!
33f0: 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  =3 ){.    Tcl_Ap
3400: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
3410: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
3420: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
3430: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20   argv[0],.      
3440: 20 22 20 49 44 20 53 51 4c 22 2c 20 30 29 3b 0a   " ID SQL", 0);.
3450: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
3460: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 20 3d 20  RROR;.  }.  i = 
3470: 70 61 72 73 65 5f 74 68 72 65 61 64 5f 69 64 28  parse_thread_id(
3480: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 29  interp, argv[1])
3490: 3b 0a 20 20 69 66 28 20 69 3c 30 20 29 20 72 65  ;.  if( i<0 ) re
34a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
34b0: 20 20 69 66 28 20 21 74 68 72 65 61 64 73 65 74    if( !threadset
34c0: 5b 69 5d 2e 62 75 73 79 20 29 7b 0a 20 20 20 20  [i].busy ){.    
34d0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
34e0: 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20 73 75 63  (interp, "no suc
34f0: 68 20 74 68 72 65 61 64 22 2c 20 30 29 3b 0a 20  h thread", 0);. 
3500: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
3510: 52 4f 52 3b 0a 20 20 7d 0a 20 20 74 68 72 65 61  ROR;.  }.  threa
3520: 64 5f 77 61 69 74 28 26 74 68 72 65 61 64 73 65  d_wait(&threadse
3530: 74 5b 69 5d 29 3b 0a 20 20 74 68 72 65 61 64 73  t[i]);.  threads
3540: 65 74 5b 69 5d 2e 78 4f 70 20 3d 20 64 6f 5f 63  et[i].xOp = do_c
3550: 6f 6d 70 69 6c 65 3b 0a 20 20 73 71 6c 69 74 65  ompile;.  sqlite
3560: 46 72 65 65 28 74 68 72 65 61 64 73 65 74 5b 69  Free(threadset[i
3570: 5d 2e 7a 41 72 67 29 3b 0a 20 20 74 68 72 65 61  ].zArg);.  threa
3580: 64 73 65 74 5b 69 5d 2e 7a 41 72 67 20 3d 20 73  dset[i].zArg = s
3590: 71 6c 69 74 65 53 74 72 44 75 70 28 61 72 67 76  qliteStrDup(argv
35a0: 5b 32 5d 29 3b 0a 20 20 74 68 72 65 61 64 73 65  [2]);.  threadse
35b0: 74 5b 69 5d 2e 6f 70 6e 75 6d 2b 2b 3b 0a 20 20  t[i].opnum++;.  
35c0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
35d0: 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 70 72 6f  ../*.** This pro
35e0: 63 65 64 75 72 65 20 72 75 6e 73 20 69 6e 20 74  cedure runs in t
35f0: 68 65 20 74 68 72 65 61 64 20 74 6f 20 73 74 65  he thread to ste
3600: 70 20 74 68 65 20 76 69 72 74 75 61 6c 20 6d 61  p the virtual ma
3610: 63 68 69 6e 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  chine..*/.static
3620: 20 76 6f 69 64 20 64 6f 5f 73 74 65 70 28 54 68   void do_step(Th
3630: 72 65 61 64 20 2a 70 29 7b 0a 20 20 69 6e 74 20  read *p){.  int 
3640: 69 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53 74 6d  i;.  if( p->pStm
3650: 74 3d 3d 30 20 29 7b 0a 20 20 20 20 70 2d 3e 7a  t==0 ){.    p->z
3660: 45 72 72 20 3d 20 70 2d 3e 7a 53 74 61 74 69 63  Err = p->zStatic
3670: 45 72 72 20 3d 20 22 6e 6f 20 76 69 72 74 75 61  Err = "no virtua
3680: 6c 20 6d 61 63 68 69 6e 65 20 61 76 61 69 6c 61  l machine availa
3690: 62 6c 65 22 3b 0a 20 20 20 20 70 2d 3e 72 63 20  ble";.    p->rc 
36a0: 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a  = SQLITE_ERROR;.
36b0: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a      return;.  }.
36c0: 20 20 70 2d 3e 72 63 20 3d 20 73 71 6c 69 74 65    p->rc = sqlite
36d0: 33 5f 73 74 65 70 28 70 2d 3e 70 53 74 6d 74 29  3_step(p->pStmt)
36e0: 3b 0a 20 20 69 66 28 20 70 2d 3e 72 63 3d 3d 53  ;.  if( p->rc==S
36f0: 51 4c 49 54 45 5f 52 4f 57 20 29 7b 0a 20 20 20  QLITE_ROW ){.   
3700: 20 70 2d 3e 61 72 67 63 20 3d 20 73 71 6c 69 74   p->argc = sqlit
3710: 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 28  e3_column_count(
3720: 70 2d 3e 70 53 74 6d 74 29 3b 0a 20 20 20 20 66  p->pStmt);.    f
3730: 6f 72 28 69 3d 30 3b 20 69 3c 73 71 6c 69 74 65  or(i=0; i<sqlite
3740: 33 5f 64 61 74 61 5f 63 6f 75 6e 74 28 70 2d 3e  3_data_count(p->
3750: 70 53 74 6d 74 29 3b 20 69 2b 2b 29 7b 0a 20 20  pStmt); i++){.  
3760: 20 20 20 20 70 2d 3e 61 72 67 76 5b 69 5d 20 3d      p->argv[i] =
3770: 20 28 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f   (char*)sqlite3_
3780: 63 6f 6c 75 6d 6e 5f 74 65 78 74 28 70 2d 3e 70  column_text(p->p
3790: 53 74 6d 74 2c 20 69 29 3b 0a 20 20 20 20 7d 0a  Stmt, i);.    }.
37a0: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 70      for(i=0; i<p
37b0: 2d 3e 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20  ->argc; i++){.  
37c0: 20 20 20 20 70 2d 3e 63 6f 6c 76 5b 69 5d 20 3d      p->colv[i] =
37d0: 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f   sqlite3_column_
37e0: 6e 61 6d 65 28 70 2d 3e 70 53 74 6d 74 2c 20 69  name(p->pStmt, i
37f0: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a  );.    }.  }.}..
3800: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 74 68 72  /*.** Usage: thr
3810: 65 61 64 5f 73 74 65 70 20 49 44 0a 2a 2a 0a 2a  ead_step ID.**.*
3820: 2a 20 41 64 76 61 6e 63 65 20 74 68 65 20 76 69  * Advance the vi
3830: 72 74 75 61 6c 20 6d 61 63 68 69 6e 65 20 62 79  rtual machine by
3840: 20 6f 6e 65 20 73 74 65 70 0a 2a 2f 0a 73 74 61   one step.*/.sta
3850: 74 69 63 20 69 6e 74 20 74 63 6c 5f 74 68 72 65  tic int tcl_thre
3860: 61 64 5f 73 74 65 70 28 0a 20 20 76 6f 69 64 20  ad_step(.  void 
3870: 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f  *NotUsed,.  Tcl_
3880: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
3890: 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e     /* The TCL in
38a0: 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69  terpreter that i
38b0: 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d  nvoked this comm
38c0: 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67  and */.  int arg
38d0: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c,              
38e0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67  /* Number of arg
38f0: 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 6f 6e 73  uments */.  cons
3900: 74 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20  t char **argv   
3910: 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61     /* Text of ea
3920: 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29  ch argument */.)
3930: 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 66 28  {.  int i;.  if(
3940: 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20   argc!=2 ){.    
3950: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
3960: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20  (interp, "wrong 
3970: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62  # args: should b
3980: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a  e \"", argv[0],.
3990: 20 20 20 20 20 20 20 22 20 49 44 4c 22 2c 20 30         " IDL", 0
39a0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
39b0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69  L_ERROR;.  }.  i
39c0: 20 3d 20 70 61 72 73 65 5f 74 68 72 65 61 64 5f   = parse_thread_
39d0: 69 64 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b  id(interp, argv[
39e0: 31 5d 29 3b 0a 20 20 69 66 28 20 69 3c 30 20 29  1]);.  if( i<0 )
39f0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
3a00: 52 3b 0a 20 20 69 66 28 20 21 74 68 72 65 61 64  R;.  if( !thread
3a10: 73 65 74 5b 69 5d 2e 62 75 73 79 20 29 7b 0a 20  set[i].busy ){. 
3a20: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
3a30: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20  ult(interp, "no 
3a40: 73 75 63 68 20 74 68 72 65 61 64 22 2c 20 30 29  such thread", 0)
3a50: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
3a60: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 74 68  _ERROR;.  }.  th
3a70: 72 65 61 64 5f 77 61 69 74 28 26 74 68 72 65 61  read_wait(&threa
3a80: 64 73 65 74 5b 69 5d 29 3b 0a 20 20 74 68 72 65  dset[i]);.  thre
3a90: 61 64 73 65 74 5b 69 5d 2e 78 4f 70 20 3d 20 64  adset[i].xOp = d
3aa0: 6f 5f 73 74 65 70 3b 0a 20 20 74 68 72 65 61 64  o_step;.  thread
3ab0: 73 65 74 5b 69 5d 2e 6f 70 6e 75 6d 2b 2b 3b 0a  set[i].opnum++;.
3ac0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
3ad0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 70  .}../*.** This p
3ae0: 72 6f 63 65 64 75 72 65 20 72 75 6e 73 20 69 6e  rocedure runs in
3af0: 20 74 68 65 20 74 68 72 65 61 64 20 74 6f 20 66   the thread to f
3b00: 69 6e 61 6c 69 7a 65 20 61 20 76 69 72 74 75 61  inalize a virtua
3b10: 6c 20 6d 61 63 68 69 6e 65 2e 0a 2a 2f 0a 73 74  l machine..*/.st
3b20: 61 74 69 63 20 76 6f 69 64 20 64 6f 5f 66 69 6e  atic void do_fin
3b30: 61 6c 69 7a 65 28 54 68 72 65 61 64 20 2a 70 29  alize(Thread *p)
3b40: 7b 0a 20 20 69 66 28 20 70 2d 3e 70 53 74 6d 74  {.  if( p->pStmt
3b50: 3d 3d 30 20 29 7b 0a 20 20 20 20 70 2d 3e 7a 45  ==0 ){.    p->zE
3b60: 72 72 20 3d 20 70 2d 3e 7a 53 74 61 74 69 63 45  rr = p->zStaticE
3b70: 72 72 20 3d 20 22 6e 6f 20 76 69 72 74 75 61 6c  rr = "no virtual
3b80: 20 6d 61 63 68 69 6e 65 20 61 76 61 69 6c 61 62   machine availab
3b90: 6c 65 22 3b 0a 20 20 20 20 70 2d 3e 72 63 20 3d  le";.    p->rc =
3ba0: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20   SQLITE_ERROR;. 
3bb0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20     return;.  }. 
3bc0: 20 70 2d 3e 72 63 20 3d 20 73 71 6c 69 74 65 33   p->rc = sqlite3
3bd0: 5f 66 69 6e 61 6c 69 7a 65 28 70 2d 3e 70 53 74  _finalize(p->pSt
3be0: 6d 74 29 3b 0a 20 20 70 2d 3e 70 53 74 6d 74 20  mt);.  p->pStmt 
3bf0: 3d 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73  = 0;.}../*.** Us
3c00: 61 67 65 3a 20 74 68 72 65 61 64 5f 66 69 6e 61  age: thread_fina
3c10: 6c 69 7a 65 20 49 44 0a 2a 2a 0a 2a 2a 20 46 69  lize ID.**.** Fi
3c20: 6e 61 6c 69 7a 65 20 74 68 65 20 76 69 72 74 75  nalize the virtu
3c30: 61 6c 20 6d 61 63 68 69 6e 65 2e 0a 2a 2f 0a 73  al machine..*/.s
3c40: 74 61 74 69 63 20 69 6e 74 20 74 63 6c 5f 74 68  tatic int tcl_th
3c50: 72 65 61 64 5f 66 69 6e 61 6c 69 7a 65 28 0a 20  read_finalize(. 
3c60: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a   void *NotUsed,.
3c70: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
3c80: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20  terp,    /* The 
3c90: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20  TCL interpreter 
3ca0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69  that invoked thi
3cb0: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69  s command */.  i
3cc0: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20  nt argc,        
3cd0: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20        /* Number 
3ce0: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a  of arguments */.
3cf0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61    const char **a
3d00: 72 67 76 20 20 20 20 20 20 2f 2a 20 54 65 78 74  rgv      /* Text
3d10: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e   of each argumen
3d20: 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b  t */.){.  int i;
3d30: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29  .  if( argc!=2 )
3d40: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  {.    Tcl_Append
3d50: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
3d60: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
3d70: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67  ould be \"", arg
3d80: 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 49  v[0],.       " I
3d90: 44 4c 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  DL", 0);.    ret
3da0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
3db0: 20 7d 0a 20 20 69 20 3d 20 70 61 72 73 65 5f 74   }.  i = parse_t
3dc0: 68 72 65 61 64 5f 69 64 28 69 6e 74 65 72 70 2c  hread_id(interp,
3dd0: 20 61 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28   argv[1]);.  if(
3de0: 20 69 3c 30 20 29 20 72 65 74 75 72 6e 20 54 43   i<0 ) return TC
3df0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 21  L_ERROR;.  if( !
3e00: 74 68 72 65 61 64 73 65 74 5b 69 5d 2e 62 75 73  threadset[i].bus
3e10: 79 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70  y ){.    Tcl_App
3e20: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
3e30: 2c 20 22 6e 6f 20 73 75 63 68 20 74 68 72 65 61  , "no such threa
3e40: 64 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75  d", 0);.    retu
3e50: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
3e60: 7d 0a 20 20 74 68 72 65 61 64 5f 77 61 69 74 28  }.  thread_wait(
3e70: 26 74 68 72 65 61 64 73 65 74 5b 69 5d 29 3b 0a  &threadset[i]);.
3e80: 20 20 74 68 72 65 61 64 73 65 74 5b 69 5d 2e 78    threadset[i].x
3e90: 4f 70 20 3d 20 64 6f 5f 66 69 6e 61 6c 69 7a 65  Op = do_finalize
3ea0: 3b 0a 20 20 73 71 6c 69 74 65 46 72 65 65 28 74  ;.  sqliteFree(t
3eb0: 68 72 65 61 64 73 65 74 5b 69 5d 2e 7a 41 72 67  hreadset[i].zArg
3ec0: 29 3b 0a 20 20 74 68 72 65 61 64 73 65 74 5b 69  );.  threadset[i
3ed0: 5d 2e 7a 41 72 67 20 3d 20 30 3b 0a 20 20 74 68  ].zArg = 0;.  th
3ee0: 72 65 61 64 73 65 74 5b 69 5d 2e 6f 70 6e 75 6d  readset[i].opnum
3ef0: 2b 2b 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c  ++;.  return TCL
3f00: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73  _OK;.}../*.** Us
3f10: 61 67 65 3a 20 74 68 72 65 61 64 5f 73 77 61 70  age: thread_swap
3f20: 20 49 44 20 49 44 0a 2a 2a 0a 2a 2a 20 49 6e 74   ID ID.**.** Int
3f30: 65 72 63 68 61 6e 67 65 20 74 68 65 20 73 71 6c  erchange the sql
3f40: 69 74 65 2a 20 70 6f 69 6e 74 65 72 20 62 65 74  ite* pointer bet
3f50: 77 65 65 6e 20 74 77 6f 20 74 68 72 65 61 64 73  ween two threads
3f60: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
3f70: 74 63 6c 5f 74 68 72 65 61 64 5f 73 77 61 70 28  tcl_thread_swap(
3f80: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64  .  void *NotUsed
3f90: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
3fa0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68  interp,    /* Th
3fb0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65  e TCL interprete
3fc0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74  r that invoked t
3fd0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20  his command */. 
3fe0: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20   int argc,      
3ff0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65          /* Numbe
4000: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a  r of arguments *
4010: 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  /.  const char *
4020: 2a 61 72 67 76 20 20 20 20 20 20 2f 2a 20 54 65  *argv      /* Te
4030: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d  xt of each argum
4040: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20  ent */.){.  int 
4050: 69 2c 20 6a 3b 0a 20 20 73 71 6c 69 74 65 33 20  i, j;.  sqlite3 
4060: 2a 74 65 6d 70 3b 0a 20 20 69 66 28 20 61 72 67  *temp;.  if( arg
4070: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=3 ){.    Tcl_
4080: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
4090: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
40a0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
40b0: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20  ", argv[0],.    
40c0: 20 20 20 22 20 49 44 31 20 49 44 32 22 2c 20 30     " ID1 ID2", 0
40d0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
40e0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69  L_ERROR;.  }.  i
40f0: 20 3d 20 70 61 72 73 65 5f 74 68 72 65 61 64 5f   = parse_thread_
4100: 69 64 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b  id(interp, argv[
4110: 31 5d 29 3b 0a 20 20 69 66 28 20 69 3c 30 20 29  1]);.  if( i<0 )
4120: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
4130: 52 3b 0a 20 20 69 66 28 20 21 74 68 72 65 61 64  R;.  if( !thread
4140: 73 65 74 5b 69 5d 2e 62 75 73 79 20 29 7b 0a 20  set[i].busy ){. 
4150: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
4160: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20  ult(interp, "no 
4170: 73 75 63 68 20 74 68 72 65 61 64 22 2c 20 30 29  such thread", 0)
4180: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
4190: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 74 68  _ERROR;.  }.  th
41a0: 72 65 61 64 5f 77 61 69 74 28 26 74 68 72 65 61  read_wait(&threa
41b0: 64 73 65 74 5b 69 5d 29 3b 0a 20 20 6a 20 3d 20  dset[i]);.  j = 
41c0: 70 61 72 73 65 5f 74 68 72 65 61 64 5f 69 64 28  parse_thread_id(
41d0: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d 29  interp, argv[2])
41e0: 3b 0a 20 20 69 66 28 20 6a 3c 30 20 29 20 72 65  ;.  if( j<0 ) re
41f0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
4200: 20 20 69 66 28 20 21 74 68 72 65 61 64 73 65 74    if( !threadset
4210: 5b 6a 5d 2e 62 75 73 79 20 29 7b 0a 20 20 20 20  [j].busy ){.    
4220: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
4230: 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20 73 75 63  (interp, "no suc
4240: 68 20 74 68 72 65 61 64 22 2c 20 30 29 3b 0a 20  h thread", 0);. 
4250: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
4260: 52 4f 52 3b 0a 20 20 7d 0a 20 20 74 68 72 65 61  ROR;.  }.  threa
4270: 64 5f 77 61 69 74 28 26 74 68 72 65 61 64 73 65  d_wait(&threadse
4280: 74 5b 6a 5d 29 3b 0a 20 20 74 65 6d 70 20 3d 20  t[j]);.  temp = 
4290: 74 68 72 65 61 64 73 65 74 5b 69 5d 2e 64 62 3b  threadset[i].db;
42a0: 0a 20 20 74 68 72 65 61 64 73 65 74 5b 69 5d 2e  .  threadset[i].
42b0: 64 62 20 3d 20 74 68 72 65 61 64 73 65 74 5b 6a  db = threadset[j
42c0: 5d 2e 64 62 3b 0a 20 20 74 68 72 65 61 64 73 65  ].db;.  threadse
42d0: 74 5b 6a 5d 2e 64 62 20 3d 20 74 65 6d 70 3b 0a  t[j].db = temp;.
42e0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
42f0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a  .}../*.** Usage:
4300: 20 74 68 72 65 61 64 5f 64 62 5f 67 65 74 20 49   thread_db_get I
4310: 44 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74  D.**.** Return t
4320: 68 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e  he database conn
4330: 65 63 74 69 6f 6e 20 70 6f 69 6e 74 65 72 20 66  ection pointer f
4340: 6f 72 20 74 68 65 20 67 69 76 65 6e 20 74 68 72  or the given thr
4350: 65 61 64 2e 20 20 54 68 65 6e 0a 2a 2a 20 72 65  ead.  Then.** re
4360: 6d 6f 76 65 20 74 68 65 20 70 6f 69 6e 74 65 72  move the pointer
4370: 20 66 72 6f 6d 20 74 68 65 20 74 68 72 65 61 64   from the thread
4380: 20 69 74 73 65 6c 66 2e 20 20 41 66 74 65 72 77   itself.  Afterw
4390: 61 72 64 73 2c 20 74 68 65 20 74 68 72 65 61 64  ards, the thread
43a0: 0a 2a 2a 20 63 61 6e 20 62 65 20 73 74 6f 70 70  .** can be stopp
43b0: 65 64 20 61 6e 64 20 74 68 65 20 63 6f 6e 6e 65  ed and the conne
43c0: 63 74 69 6f 6e 20 63 61 6e 20 62 65 20 75 73 65  ction can be use
43d0: 64 20 62 79 20 74 68 65 20 6d 61 69 6e 20 74 68  d by the main th
43e0: 72 65 61 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  read..*/.static 
43f0: 69 6e 74 20 74 63 6c 5f 74 68 72 65 61 64 5f 64  int tcl_thread_d
4400: 62 5f 67 65 74 28 0a 20 20 76 6f 69 64 20 2a 4e  b_get(.  void *N
4410: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e  otUsed,.  Tcl_In
4420: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20  terp *interp,   
4430: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65   /* The TCL inte
4440: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76  rpreter that inv
4450: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e  oked this comman
4460: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c  d */.  int argc,
4470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
4480: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d   Number of argum
4490: 65 6e 74 73 20 2a 2f 0a 20 20 63 6f 6e 73 74 20  ents */.  const 
44a0: 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20  char **argv     
44b0: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68   /* Text of each
44c0: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a   argument */.){.
44d0: 20 20 69 6e 74 20 69 3b 0a 20 20 63 68 61 72 20    int i;.  char 
44e0: 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20 65 78 74  zBuf[100];.  ext
44f0: 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 54  ern int sqlite3T
4500: 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74  estMakePointerSt
4510: 72 28 54 63 6c 5f 49 6e 74 65 72 70 2a 2c 20 63  r(Tcl_Interp*, c
4520: 68 61 72 2a 2c 20 76 6f 69 64 2a 29 3b 0a 20 20  har*, void*);.  
4530: 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20  if( argc!=2 ){. 
4540: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
4550: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f  ult(interp, "wro
4560: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
4570: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30  d be \"", argv[0
4580: 5d 2c 0a 20 20 20 20 20 20 20 22 20 49 44 22 2c  ],.       " ID",
4590: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20   0);.    return 
45a0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
45b0: 20 69 20 3d 20 70 61 72 73 65 5f 74 68 72 65 61   i = parse_threa
45c0: 64 5f 69 64 28 69 6e 74 65 72 70 2c 20 61 72 67  d_id(interp, arg
45d0: 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 69 3c 30  v[1]);.  if( i<0
45e0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52   ) return TCL_ER
45f0: 52 4f 52 3b 0a 20 20 69 66 28 20 21 74 68 72 65  ROR;.  if( !thre
4600: 61 64 73 65 74 5b 69 5d 2e 62 75 73 79 20 29 7b  adset[i].busy ){
4610: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52  .    Tcl_AppendR
4620: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e  esult(interp, "n
4630: 6f 20 73 75 63 68 20 74 68 72 65 61 64 22 2c 20  o such thread", 
4640: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  0);.    return T
4650: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
4660: 74 68 72 65 61 64 5f 77 61 69 74 28 26 74 68 72  thread_wait(&thr
4670: 65 61 64 73 65 74 5b 69 5d 29 3b 0a 20 20 73 71  eadset[i]);.  sq
4680: 6c 69 74 65 33 54 65 73 74 4d 61 6b 65 50 6f 69  lite3TestMakePoi
4690: 6e 74 65 72 53 74 72 28 69 6e 74 65 72 70 2c 20  nterStr(interp, 
46a0: 7a 42 75 66 2c 20 74 68 72 65 61 64 73 65 74 5b  zBuf, threadset[
46b0: 69 5d 2e 64 62 29 3b 0a 20 20 74 68 72 65 61 64  i].db);.  thread
46c0: 73 65 74 5b 69 5d 2e 64 62 20 3d 20 30 3b 0a 20  set[i].db = 0;. 
46d0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
46e0: 74 28 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20  t(interp, zBuf, 
46f0: 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 72 65 74  (char*)0);.  ret
4700: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f  urn TCL_OK;.}../
4710: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 74 68 72 65  *.** Usage: thre
4720: 61 64 5f 73 74 6d 74 5f 67 65 74 20 49 44 0a 2a  ad_stmt_get ID.*
4730: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20  *.** Return the 
4740: 64 61 74 61 62 61 73 65 20 73 74 6d 74 20 70 6f  database stmt po
4750: 69 6e 74 65 72 20 66 6f 72 20 74 68 65 20 67 69  inter for the gi
4760: 76 65 6e 20 74 68 72 65 61 64 2e 20 20 54 68 65  ven thread.  The
4770: 6e 0a 2a 2a 20 72 65 6d 6f 76 65 20 74 68 65 20  n.** remove the 
4780: 70 6f 69 6e 74 65 72 20 66 72 6f 6d 20 74 68 65  pointer from the
4790: 20 74 68 72 65 61 64 20 69 74 73 65 6c 66 2e 20   thread itself. 
47a0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
47b0: 63 6c 5f 74 68 72 65 61 64 5f 73 74 6d 74 5f 67  cl_thread_stmt_g
47c0: 65 74 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55  et(.  void *NotU
47d0: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72  sed,.  Tcl_Inter
47e0: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a  p *interp,    /*
47f0: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72   The TCL interpr
4800: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65  eter that invoke
4810: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a  d this command *
4820: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20  /.  int argc,   
4830: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75             /* Nu
4840: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74  mber of argument
4850: 73 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61  s */.  const cha
4860: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 2f 2a  r **argv      /*
4870: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72   Text of each ar
4880: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 69  gument */.){.  i
4890: 6e 74 20 69 3b 0a 20 20 63 68 61 72 20 7a 42 75  nt i;.  char zBu
48a0: 66 5b 31 30 30 5d 3b 0a 20 20 65 78 74 65 72 6e  f[100];.  extern
48b0: 20 69 6e 74 20 73 71 6c 69 74 65 33 54 65 73 74   int sqlite3Test
48c0: 4d 61 6b 65 50 6f 69 6e 74 65 72 53 74 72 28 54  MakePointerStr(T
48d0: 63 6c 5f 49 6e 74 65 72 70 2a 2c 20 63 68 61 72  cl_Interp*, char
48e0: 2a 2c 20 76 6f 69 64 2a 29 3b 0a 20 20 69 66 28  *, void*);.  if(
48f0: 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20   argc!=2 ){.    
4900: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
4910: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20  (interp, "wrong 
4920: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62  # args: should b
4930: 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a  e \"", argv[0],.
4940: 20 20 20 20 20 20 20 22 20 49 44 22 2c 20 30 29         " ID", 0)
4950: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
4960: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 20  _ERROR;.  }.  i 
4970: 3d 20 70 61 72 73 65 5f 74 68 72 65 61 64 5f 69  = parse_thread_i
4980: 64 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31  d(interp, argv[1
4990: 5d 29 3b 0a 20 20 69 66 28 20 69 3c 30 20 29 20  ]);.  if( i<0 ) 
49a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
49b0: 3b 0a 20 20 69 66 28 20 21 74 68 72 65 61 64 73  ;.  if( !threads
49c0: 65 74 5b 69 5d 2e 62 75 73 79 20 29 7b 0a 20 20  et[i].busy ){.  
49d0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
49e0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20 73  lt(interp, "no s
49f0: 75 63 68 20 74 68 72 65 61 64 22 2c 20 30 29 3b  uch thread", 0);
4a00: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
4a10: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 74 68 72  ERROR;.  }.  thr
4a20: 65 61 64 5f 77 61 69 74 28 26 74 68 72 65 61 64  ead_wait(&thread
4a30: 73 65 74 5b 69 5d 29 3b 0a 20 20 73 71 6c 69 74  set[i]);.  sqlit
4a40: 65 33 54 65 73 74 4d 61 6b 65 50 6f 69 6e 74 65  e3TestMakePointe
4a50: 72 53 74 72 28 69 6e 74 65 72 70 2c 20 7a 42 75  rStr(interp, zBu
4a60: 66 2c 20 74 68 72 65 61 64 73 65 74 5b 69 5d 2e  f, threadset[i].
4a70: 70 53 74 6d 74 29 3b 0a 20 20 74 68 72 65 61 64  pStmt);.  thread
4a80: 73 65 74 5b 69 5d 2e 70 53 74 6d 74 20 3d 20 30  set[i].pStmt = 0
4a90: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65  ;.  Tcl_AppendRe
4aa0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75  sult(interp, zBu
4ab0: 66 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20  f, (char*)0);.  
4ac0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
4ad0: 0a 0a 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72  ../*.** Register
4ae0: 20 63 6f 6d 6d 61 6e 64 73 20 77 69 74 68 20 74   commands with t
4af0: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74  he TCL interpret
4b00: 65 72 2e 0a 2a 2f 0a 69 6e 74 20 53 71 6c 69 74  er..*/.int Sqlit
4b10: 65 74 65 73 74 34 5f 49 6e 69 74 28 54 63 6c 5f  etest4_Init(Tcl_
4b20: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b  Interp *interp){
4b30: 0a 20 20 73 74 61 74 69 63 20 73 74 72 75 63 74  .  static struct
4b40: 20 7b 0a 20 20 20 20 20 63 68 61 72 20 2a 7a 4e   {.     char *zN
4b50: 61 6d 65 3b 0a 20 20 20 20 20 54 63 6c 5f 43 6d  ame;.     Tcl_Cm
4b60: 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20  dProc *xProc;.  
4b70: 7d 20 61 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20  } aCmd[] = {.   
4b80: 20 20 7b 20 22 74 68 72 65 61 64 5f 63 72 65 61    { "thread_crea
4b90: 74 65 22 2c 20 20 20 20 20 28 54 63 6c 5f 43 6d  te",     (Tcl_Cm
4ba0: 64 50 72 6f 63 2a 29 74 63 6c 5f 74 68 72 65 61  dProc*)tcl_threa
4bb0: 64 5f 63 72 65 61 74 65 20 20 20 20 20 7d 2c 0a  d_create     },.
4bc0: 20 20 20 20 20 7b 20 22 74 68 72 65 61 64 5f 77       { "thread_w
4bd0: 61 69 74 22 2c 20 20 20 20 20 20 20 28 54 63 6c  ait",       (Tcl
4be0: 5f 43 6d 64 50 72 6f 63 2a 29 74 63 6c 5f 74 68  _CmdProc*)tcl_th
4bf0: 72 65 61 64 5f 77 61 69 74 20 20 20 20 20 20 20  read_wait       
4c00: 7d 2c 0a 20 20 20 20 20 7b 20 22 74 68 72 65 61  },.     { "threa
4c10: 64 5f 68 61 6c 74 22 2c 20 20 20 20 20 20 20 28  d_halt",       (
4c20: 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 63 6c  Tcl_CmdProc*)tcl
4c30: 5f 74 68 72 65 61 64 5f 68 61 6c 74 20 20 20 20  _thread_halt    
4c40: 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 74 68     },.     { "th
4c50: 72 65 61 64 5f 61 72 67 63 22 2c 20 20 20 20 20  read_argc",     
4c60: 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29    (Tcl_CmdProc*)
4c70: 74 63 6c 5f 74 68 72 65 61 64 5f 61 72 67 63 20  tcl_thread_argc 
4c80: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20        },.     { 
4c90: 22 74 68 72 65 61 64 5f 61 72 67 76 22 2c 20 20  "thread_argv",  
4ca0: 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f       (Tcl_CmdPro
4cb0: 63 2a 29 74 63 6c 5f 74 68 72 65 61 64 5f 61 72  c*)tcl_thread_ar
4cc0: 67 76 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20  gv       },.    
4cd0: 20 7b 20 22 74 68 72 65 61 64 5f 63 6f 6c 6e 61   { "thread_colna
4ce0: 6d 65 22 2c 20 20 20 20 28 54 63 6c 5f 43 6d 64  me",    (Tcl_Cmd
4cf0: 50 72 6f 63 2a 29 74 63 6c 5f 74 68 72 65 61 64  Proc*)tcl_thread
4d00: 5f 63 6f 6c 6e 61 6d 65 20 20 20 20 7d 2c 0a 20  _colname    },. 
4d10: 20 20 20 20 7b 20 22 74 68 72 65 61 64 5f 72 65      { "thread_re
4d20: 73 75 6c 74 22 2c 20 20 20 20 20 28 54 63 6c 5f  sult",     (Tcl_
4d30: 43 6d 64 50 72 6f 63 2a 29 74 63 6c 5f 74 68 72  CmdProc*)tcl_thr
4d40: 65 61 64 5f 72 65 73 75 6c 74 20 20 20 20 20 7d  ead_result     }
4d50: 2c 0a 20 20 20 20 20 7b 20 22 74 68 72 65 61 64  ,.     { "thread
4d60: 5f 65 72 72 6f 72 22 2c 20 20 20 20 20 20 28 54  _error",      (T
4d70: 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 63 6c 5f  cl_CmdProc*)tcl_
4d80: 74 68 72 65 61 64 5f 65 72 72 6f 72 20 20 20 20  thread_error    
4d90: 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22 74 68 72    },.     { "thr
4da0: 65 61 64 5f 63 6f 6d 70 69 6c 65 22 2c 20 20 20  ead_compile",   
4db0: 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74   (Tcl_CmdProc*)t
4dc0: 63 6c 5f 74 68 72 65 61 64 5f 63 6f 6d 70 69 6c  cl_thread_compil
4dd0: 65 20 20 20 20 7d 2c 0a 20 20 20 20 20 7b 20 22  e    },.     { "
4de0: 74 68 72 65 61 64 5f 73 74 65 70 22 2c 20 20 20  thread_step",   
4df0: 20 20 20 20 28 54 63 6c 5f 43 6d 64 50 72 6f 63      (Tcl_CmdProc
4e00: 2a 29 74 63 6c 5f 74 68 72 65 61 64 5f 73 74 65  *)tcl_thread_ste
4e10: 70 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20  p       },.     
4e20: 7b 20 22 74 68 72 65 61 64 5f 66 69 6e 61 6c 69  { "thread_finali
4e30: 7a 65 22 2c 20 20 20 28 54 63 6c 5f 43 6d 64 50  ze",   (Tcl_CmdP
4e40: 72 6f 63 2a 29 74 63 6c 5f 74 68 72 65 61 64 5f  roc*)tcl_thread_
4e50: 66 69 6e 61 6c 69 7a 65 20 20 20 7d 2c 0a 20 20  finalize   },.  
4e60: 20 20 20 7b 20 22 74 68 72 65 61 64 5f 73 77 61     { "thread_swa
4e70: 70 22 2c 20 20 20 20 20 20 20 28 54 63 6c 5f 43  p",       (Tcl_C
4e80: 6d 64 50 72 6f 63 2a 29 74 63 6c 5f 74 68 72 65  mdProc*)tcl_thre
4e90: 61 64 5f 73 77 61 70 20 20 20 20 20 20 20 7d 2c  ad_swap       },
4ea0: 0a 20 20 20 20 20 7b 20 22 74 68 72 65 61 64 5f  .     { "thread_
4eb0: 64 62 5f 67 65 74 22 2c 20 20 20 20 20 28 54 63  db_get",     (Tc
4ec0: 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 63 6c 5f 74  l_CmdProc*)tcl_t
4ed0: 68 72 65 61 64 5f 64 62 5f 67 65 74 20 20 20 20  hread_db_get    
4ee0: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 74 68 72 65   },.     { "thre
4ef0: 61 64 5f 73 74 6d 74 5f 67 65 74 22 2c 20 20 20  ad_stmt_get",   
4f00: 28 54 63 6c 5f 43 6d 64 50 72 6f 63 2a 29 74 63  (Tcl_CmdProc*)tc
4f10: 6c 5f 74 68 72 65 61 64 5f 73 74 6d 74 5f 67 65  l_thread_stmt_ge
4f20: 74 20 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 69 6e  t   },.  };.  in
4f30: 74 20 69 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 3b  t i;..  for(i=0;
4f40: 20 69 3c 73 69 7a 65 6f 66 28 61 43 6d 64 29 2f   i<sizeof(aCmd)/
4f50: 73 69 7a 65 6f 66 28 61 43 6d 64 5b 30 5d 29 3b  sizeof(aCmd[0]);
4f60: 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 43   i++){.    Tcl_C
4f70: 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74  reateCommand(int
4f80: 65 72 70 2c 20 61 43 6d 64 5b 69 5d 2e 7a 4e 61  erp, aCmd[i].zNa
4f90: 6d 65 2c 20 61 43 6d 64 5b 69 5d 2e 78 50 72 6f  me, aCmd[i].xPro
4fa0: 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20  c, 0, 0);.  }.  
4fb0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
4fc0: 0a 23 65 6c 73 65 0a 69 6e 74 20 53 71 6c 69 74  .#else.int Sqlit
4fd0: 65 74 65 73 74 34 5f 49 6e 69 74 28 54 63 6c 5f  etest4_Init(Tcl_
4fe0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b  Interp *interp){
4ff0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 20   return TCL_OK; 
5000: 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 4f 53 5f 55  }.#endif /* OS_U
5010: 4e 49 58 20 2a 2f 0a                             NIX */.