){  int i;  const char *zName;  if( argc!=2 ){    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],       " ID", 0);    return TCL_ERROR;  }  i = parse_thread_id(interp, argv[1]);  if( i<0 ) return TCL_ERROR;  if( !threadset[i].busy ){    Tcl_AppendResult(interp, "no such thread", 0);    return TCL_ERROR;  }  thread_wait(&threadset[i]);  switch( threadset[i].rc ){    case SQLITE_OK:         zName = "SQLITE_OK";          break;    case SQLITE_ERROR:      zName = "SQLITE_ERROR";       break;    case SQLITE_PERM:       zName = "SQLITE_PERM";        break;    case SQLITE_ABORT:      zName = "SQLITE_ABORT";       break;    case SQLITE_BUSY:       zName = "SQLITE_BUSY";        break;    case SQLITE_LOCKED:     zName = "SQLITE_LOCKED";      break;    case SQLITE_NOMEM:      zName = "SQLITE_NOMEM";       break;    case SQLITE_READONLY:   zName = "SQLITE_READONLY";    break;    case SQLITE_INTERRUPT:  zName = "SQLITE_INTERRUPT";   break;    case SQLITE_IOERR:      zName = "SQLITE_IOERR";       break;    case SQLITE_CORRUPT:    zName = "SQLITE_CORRUPT";     break;    case SQLITE_FULL:       zName = "SQLITE_FULL";        break;    case SQLITE_CANTOPEN:   zName = "SQLITE_CANTOPEN";    break;    case SQLITE_PROTOCOL:   zName = "SQLITE_PROTOCOL";    break;    case SQLITE_EMPTY:      zName = "SQLITE_EMPTY";       break;    case SQLITE_SCHEMA:     zName = "SQLITE_SCHEMA";      break;    case SQLITE_CONSTRAINT: zName = "SQLITE_CONSTRAINT";  break;    case SQLITE_MISMATCH:   zName = "SQLITE_MISMATCH";    break;    case SQLITE_MISUSE:     zName = "SQLITE_MISUSE";      break;    case SQLITE_NOLFS:      zName = "SQLITE_NOLFS";       break;    case SQLITE_AUTH:       zName = "SQLITE_AUTH";        break;    case SQLITE_FORMAT:     zName = "SQLITE_FORMAT";      break;    case SQLITE_RANGE:      zName = "SQLITE_RANGE";       break;    case SQLITE_ROW:        zName = "SQLITE_ROW";         break;    case SQLITE_DONE:       zName = "SQLITE_DONE";        break;    default:                zName = "SQLITE_Unknown";     break;  }  Tcl_AppendResult(interp, zName, 0);  return TCL_OK;}/*** Usage: thread_error  ID**** Wait on the most recent operation to complete, then return the** error string.*/static int tcl_thread_error(  void *NotUsed,  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */  int argc,              /* Number of arguments */  const char **argv      /* Text of each argument */){  int i;  if( argc!=2 ){    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],       " ID", 0);    return TCL_ERROR;  }  i = parse_thread_id(interp, argv[1]);  if( i<0 ) return TCL_ERROR;  if( !threadset[i].busy ){    Tcl_AppendResult(interp, "no such thread", 0);    return TCL_ERROR;  }  thread_wait(&threadset[i]);  Tcl_AppendResult(interp, threadset[i].zErr, 0);  return TCL_OK;}/*** This procedure runs in the thread to compile an SQL statement.*/static void do_compile(Thread *p){  if( p->db==0 ){    p->zErr = p->zStaticErr = "no database is open";    p->rc = SQLITE_ERROR;    return;  }  if( p->pStmt ){    sqlite3_finalize(p->pStmt);    p->pStmt = 0;  }  p->rc = sqlite3_prepare(p->db, p->zArg, -1, &p->pStmt, 0);}/*** Usage: thread_compile ID SQL**** Compile a new virtual machine.*/static int tcl_thread_compile(  void *NotUsed,  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */  int argc,              /* Number of arguments */  const char **argv      /* Text of each argument */){  int i;  if( argc!=3 ){    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],       " ID SQL", 0);    return TCL_ERROR;  }  i = parse_thread_id(interp, argv[1]);  if( i<0 ) return TCL_ERROR;  if( !threadset[i].busy ){    Tcl_AppendResult(interp, "no such thread", 0);    return TCL_ERROR;  }  thread_wait(&threadset[i]);  threadset[i].xOp = do_compile;  sqliteFree(threadset[i].zArg);  threadset[i].zArg = sqliteStrDup(argv[2]);  threadset[i].opnum++;  return TCL_OK;}/*** This procedure runs in the thread to step the virtual machine.*/static void do_step(Thread *p){  int i;  if( p->pStmt==0 ){    p->zErr = p->zStaticErr = "no virtual machine available";    p->rc = SQLITE_ERROR;    return;  }  p->rc = sqlite3_step(p->pStmt);  if( p->rc==SQLITE_ROW ){    p->argc = sqlite3_column_count(p->pStmt);    for(i=0; i<sqlite3_data_count(p->pStmt); i++){      p->argv[i] = (char*)sqlite3_column_text(p->pStmt, i);    }    for(i=0; i<p->argc; i++){      p->colv[i] = sqlite3_column_name(p->pStmt, i);    }  }}/*** Usage: thread_step ID**** Advance the virtual machine by one step*/static int tcl_thread_step(  void *NotUsed,  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */  int argc,              /* Number of arguments */  const char **argv      /* Text of each argument */){  int i;  if( argc!=2 ){    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],       " IDL", 0);    return TCL_ERROR;  }  i = parse_thread_id(interp, argv[1]);  if( i<0 ) return TCL_ERROR;  if( !threadset[i].busy ){    Tcl_AppendResult(interp, "no such thread", 0);    return TCL_ERROR;  }  thread_wait(&threadset[i]);  threadset[i].xOp = do_step;  threadset[i].opnum++;  return TCL_OK;}/*** This procedure runs in the thread to finalize a virtual machine.*/static void do_finalize(Thread *p){  if( p->pStmt==0 ){    p->zErr = p->zStaticErr = "no virtual machine available";    p->rc = SQLITE_ERROR;    return;  }  p->rc = sqlite3_finalize(p->pStmt);  p->pStmt = 0;}/*** Usage: thread_finalize ID**** Finalize the virtual machine.*/static int tcl_thread_finalize(  void *NotUsed,  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */  int argc,              /* Number of arguments */  const char **argv      /* Text of each argument */){  int i;  if( argc!=2 ){    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],       " IDL", 0);    return TCL_ERROR;  }  i = parse_thread_id(interp, argv[1]);  if( i<0 ) return TCL_ERROR;  if( !threadset[i].busy ){    Tcl_AppendResult(interp, "no such thread", 0);    return TCL_ERROR;  }  thread_wait(&threadset[i]);  threadset[i].xOp = do_finalize;  sqliteFree(threadset[i].zArg);  threadset[i].zArg = 0;  threadset[i].opnum++;  return TCL_OK;}/*** Usage: thread_swap ID ID**** Interchange the sqlite* pointer between two threads.*/static int tcl_thread_swap(  void *NotUsed,  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */  int argc,              /* Number of arguments */  const char **argv      /* Text of each argument */){  int i, j;  sqlite3 *temp;  if( argc!=3 ){    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],       " ID1 ID2", 0);    return TCL_ERROR;  }  i = parse_thread_id(interp, argv[1]);  if( i<0 ) return TCL_ERROR;  if( !threadset[i].busy ){    Tcl_AppendResult(interp, "no such thread", 0);    return TCL_ERROR;  }  thread_wait(&threadset[i]);  j = parse_thread_id(interp, argv[2]);  if( j<0 ) return TCL_ERROR;  if( !threadset[j].busy ){    Tcl_AppendResult(interp, "no such thread", 0);    return TCL_ERROR;  }  thread_wait(&threadset[j]);  temp = threadset[i].db;  threadset[i].db = threadset[j].db;  threadset[j].db = temp;  return TCL_OK;}/*** Usage: thread_db_get ID**** Return the database connection pointer for the given thread.  Then** remove the pointer from the thread itself.  Afterwards, the thread** can be stopped and the connection can be used by the main thread.*/static int tcl_thread_db_get(  void *NotUsed,  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */  int argc,              /* Number of arguments */  const char **argv      /* Text of each argument */){  int i;  char zBuf[100];  extern int sqlite3TestMakePointerStr(Tcl_Interp*, char*, void*);  if( argc!=2 ){    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],       " ID", 0);    return TCL_ERROR;  }  i = parse_thread_id(interp, argv[1]);  if( i<0 ) return TCL_ERROR;  if( !threadset[i].busy ){    Tcl_AppendResult(interp, "no such thread", 0);    return TCL_ERROR;  }  thread_wait(&threadset[i]);  sqlite3TestMakePointerStr(interp, zBuf, threadset[i].db);  threadset[i].db = 0;  Tcl_AppendResult(interp, zBuf, (char*)0);  return TCL_OK;}/*** Usage: thread_stmt_get ID**** Return the database stmt pointer for the given thread.  Then** remove the pointer from the thread itself. */static int tcl_thread_stmt_get(  void *NotUsed,  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */  int argc,              /* Number of arguments */  const char **argv      /* Text of each argument */){  int i;  char zBuf[100];  extern int sqlite3TestMakePointerStr(Tcl_Interp*, char*, void*);  if( argc!=2 ){    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],       " ID", 0);    return TCL_ERROR;  }  i = parse_thread_id(interp, argv[1]);  if( i<0 ) return TCL_ERROR;  if( !threadset[i].busy ){    Tcl_AppendResult(interp, "no such thread", 0);    return TCL_ERROR;  }  thread_wait(&threadset[i]);  sqlite3TestMakePointerStr(interp, zBuf, threadset[i].pStmt);  threadset[i].pStmt = 0;  Tcl_AppendResult(interp, zBuf, (char*)0);  return TCL_OK;}/*** Register commands with the TCL interpreter.*/int Sqlitetest4_Init(Tcl_Interp *interp){  static struct {     char *zName;     Tcl_CmdProc *xProc;  } aCmd[] = {     { "thread_create",     (Tcl_CmdProc*)tcl_thread_create     },     { "thread_wait",       (Tcl_CmdProc*)tcl_thread_wait       },     { "thread_halt",       (Tcl_CmdProc*)tcl_thread_halt       },     { "thread_argc",       (Tcl_CmdProc*)tcl_thread_argc       },     { "thread_argv",       (Tcl_CmdProc*)tcl_thread_argv       },     { "thread_colname",    (Tcl_CmdProc*)tcl_thread_colname    },     { "thread_result",     (Tcl_CmdProc*)tcl_thread_result     },     { "thread_error",      (Tcl_CmdProc*)tcl_thread_error      },     { "thread_compile",    (Tcl_CmdProc*)tcl_thread_compile    },     { "thread_step",       (Tcl_CmdProc*)tcl_thread_step       },     { "thread_finalize",   (Tcl_CmdProc*)tcl_thread_finalize   },     { "thread_swap",       (Tcl_CmdProc*)tcl_thread_swap       },     { "thread_db_get",     (Tcl_CmdProc*)tcl_thread_db_get     },     { "thread_stmt_get",   (Tcl_CmdProc*)tcl_thread_stmt_get   },  };  int i;  for(i=0; i<sizeof(aCmd)/sizeof(aCmd[0]); i++){    Tcl_CreateCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0);  }  return TCL_OK;}#elseint Sqlitetest4_Init(Tcl_Interp *interp){ return TCL_OK; }#endif /* OS_UNIX */