39   Tcl_Interp *interp;      /* Parent interpreter */  member
55   Tcl_Interp *interp;      /* The interpreter to execute it in. */  member
82   rc = Tcl_Eval(p->interp, p->zScript);  in tclScriptEvent()
84     Tcl_BackgroundError(p->interp);  in tclScriptEvent()
105   pEvent->interp = p->interp;  in postToParent()
115   Tcl_Interp *interp;  in tclScriptThread()  local
122   interp = Tcl_CreateInterp();  in tclScriptThread()
123   Tcl_CreateObjCommand(interp, "clock_seconds", clock_seconds_proc, 0, 0);  in tclScriptThread()
124   Tcl_CreateObjCommand(interp, "sqlthread", sqlthread_proc, pSqlThread, 0);  in tclScriptThread()
126   Tcl_CreateObjCommand(interp, "sqlite3_blocking_step", blocking_step_proc,0,0);  in tclScriptThread()
127   Tcl_CreateObjCommand(interp,   in tclScriptThread()
129   Tcl_CreateObjCommand(interp,   in tclScriptThread()
132   Sqlitetest1_Init(interp);  in tclScriptThread()
133   Sqlitetest_mutex_Init(interp);  in tclScriptThread()
134   Sqlite3_Init(interp);  in tclScriptThread()
136   rc = Tcl_Eval(interp, p->zScript);  in tclScriptThread()
137   pRes = Tcl_GetObjResult(interp);  in tclScriptThread()
143     Tcl_ListObjAppendElement(interp, pList, Tcl_NewStringObj("error", -1));  in tclScriptThread()
144     Tcl_ListObjAppendElement(interp, pList, pRes);  in tclScriptThread()
150   Tcl_ListObjAppendElement(interp, pList, Tcl_NewStringObj("set", -1));  in tclScriptThread()
151   Tcl_ListObjAppendElement(interp, pList, Tcl_NewStringObj(p->zVarname, -1));  in tclScriptThread()
152   Tcl_ListObjAppendElement(interp, pList, pRes);  in tclScriptThread()
158   Tcl_DeleteInterp(interp);  in tclScriptThread()
176   Tcl_Interp *interp,  in sqlthread_spawn()  argument
204   pNew->interp = interp;  in sqlthread_spawn()
208     Tcl_AppendResult(interp, "Error in Tcl_CreateThread()", 0);  in sqlthread_spawn()
229   Tcl_Interp *interp,  in sqlthread_parent()  argument
242     Tcl_AppendResult(interp, "no parent thread", 0);  in sqlthread_parent()
252   pEvent->interp = p->interp;  in sqlthread_parent()
274   Tcl_Interp *interp,  in sqlthread_open()  argument
278   int sqlite3TestMakePointerStr(Tcl_Interp *interp, char *zPtr, void *p);  in sqlthread_open()
293   if( sqlite3TestMakePointerStr(interp, zBuf, db) ) return TCL_ERROR;  in sqlthread_open()
294   Tcl_AppendResult(interp, zBuf, 0);  in sqlthread_open()
308   Tcl_Interp *interp,  in sqlthread_id()  argument
313   Tcl_SetObjResult(interp, Tcl_NewIntObj(SQLITE_PTR_TO_INT(id)));  in sqlthread_id()
326   Tcl_Interp *interp,  in sqlthread_proc()  argument
347     Tcl_WrongNumArgs(interp, 1, objv, "SUB-COMMAND");  in sqlthread_proc()
352       interp, objv[1], aSub, sizeof(aSub[0]), "sub-command", 0, &iIndex  in sqlthread_proc()
358     Tcl_WrongNumArgs(interp, 2, objv, pSub->zUsage);  in sqlthread_proc()
362   return pSub->xProc(clientData, interp, objc, objv);  in sqlthread_proc()
374   Tcl_Interp *interp,  in clock_seconds_proc()  argument
380   Tcl_SetObjResult(interp, Tcl_NewIntObj(now.sec));  in clock_seconds_proc()
536   Tcl_Interp *interp,  in blocking_step_proc()  argument
545     Tcl_WrongNumArgs(interp, 1, objv, "STMT");  in blocking_step_proc()
552   Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), 0);  in blocking_step_proc()
562   Tcl_Interp *interp,  in blocking_prepare_v2_proc()  argument
576     Tcl_AppendResult(interp, "wrong # args: should be \"",   in blocking_prepare_v2_proc()
580   if( getDbPointer(interp, Tcl_GetString(objv[1]), &db) ) return TCL_ERROR;  in blocking_prepare_v2_proc()
582   if( Tcl_GetIntFromObj(interp, objv[3], &bytes) ) return TCL_ERROR;  in blocking_prepare_v2_proc()
595     Tcl_ObjSetVar2(interp, objv[4], 0, Tcl_NewStringObj(zTail, bytes), 0);  in blocking_prepare_v2_proc()
600     Tcl_AppendResult(interp, zBuf, sqlite3_errmsg(db), 0);  in blocking_prepare_v2_proc()
605     if( sqlite3TestMakePointerStr(interp, zBuf, pStmt) ) return TCL_ERROR;  in blocking_prepare_v2_proc()
606     Tcl_AppendResult(interp, zBuf, 0);  in blocking_prepare_v2_proc()
619 int SqlitetestThread_Init(Tcl_Interp *interp){  in SqlitetestThread_Init()  argument
620   Tcl_CreateObjCommand(interp, "sqlthread", sqlthread_proc, 0, 0);  in SqlitetestThread_Init()
621   Tcl_CreateObjCommand(interp, "clock_seconds", clock_seconds_proc, 0, 0);  in SqlitetestThread_Init()
623   Tcl_CreateObjCommand(interp, "sqlite3_blocking_step", blocking_step_proc,0,0);  in SqlitetestThread_Init()
624   Tcl_CreateObjCommand(interp,   in SqlitetestThread_Init()
626   Tcl_CreateObjCommand(interp,   in SqlitetestThread_Init()
632 int SqlitetestThread_Init(Tcl_Interp *interp){  in SqlitetestThread_Init()  argument