Lines Matching refs:interp
66 Tcl_Interp *interp; member
98 pVtab->interp = (Tcl_Interp *)pAux; in tclvarConnect()
139 static int next2(Tcl_Interp *interp, tclvar_cursor *pCur, Tcl_Obj *pObj){ in next2() argument
147 Tcl_EvalObjEx(interp, p, TCL_EVAL_GLOBAL); in next2()
149 pCur->pList2 = Tcl_GetObjResult(interp); in next2()
174 Tcl_Interp *interp = ((tclvar_vtab *)(cur->pVtab))->interp; in tclvarNext() local
179 ok = next2(interp, pCur, pObj); in tclvarNext()
194 Tcl_Interp *interp = ((tclvar_vtab *)(pVtabCursor->pVtab))->interp; in tclvarFilter() local
233 Tcl_EvalObjEx(interp, p, TCL_EVAL_GLOBAL); in tclvarFilter()
243 pCur->pList1 = Tcl_GetObjResult(interp); in tclvarFilter()
256 Tcl_Interp *interp = ((tclvar_vtab *)cur->pVtab)->interp; in tclvarColumn() local
258 Tcl_ListObjIndex(interp, pCur->pList1, pCur->i1, &p1); in tclvarColumn()
259 Tcl_ListObjIndex(interp, pCur->pList2, pCur->i2, &p2); in tclvarColumn()
274 Tcl_Obj *pVal = Tcl_GetVar2Ex(interp, z1, *z2?z2:0, TCL_GLOBAL_ONLY); in tclvarColumn()
324 static int tclvarSetOmit(Tcl_Interp *interp){ in tclvarSetOmit() argument
328 rc = Tcl_Eval(interp, in tclvarSetOmit()
332 pRes = Tcl_GetObjResult(interp); in tclvarSetOmit()
386 pUsage->omit = tclvarSetOmit(pTab->interp); in tclvarBestIndex()
394 pUsage->omit = tclvarSetOmit(pTab->interp); in tclvarBestIndex()
402 pUsage->omit = tclvarSetOmit(pTab->interp); in tclvarBestIndex()
426 Tcl_UnsetVar(pTab->interp, zVar, TCL_GLOBAL_ONLY); in tclvarUpdate()
439 Tcl_SetVar(pTab->interp, zName, zValue, TCL_GLOBAL_ONLY); in tclvarUpdate()
441 Tcl_UnsetVar(pTab->interp, zName, TCL_GLOBAL_ONLY); in tclvarUpdate()
454 Tcl_UnsetVar(pTab->interp, zOldName, TCL_GLOBAL_ONLY); in tclvarUpdate()
457 Tcl_SetVar(pTab->interp, zNewName, zValue, TCL_GLOBAL_ONLY); in tclvarUpdate()
495 extern int getDbPointer(Tcl_Interp *interp, const char *zA, sqlite3 **ppDb);
502 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in register_tclvar_module() argument
509 Tcl_WrongNumArgs(interp, 1, objv, "DB"); in register_tclvar_module()
512 if( getDbPointer(interp, Tcl_GetString(objv[1]), &db) ) return TCL_ERROR; in register_tclvar_module()
514 sqlite3_create_module(db, "tclvar", &tclvarModule, (void*)interp); in register_tclvar_module()
515 rc = Tcl_Eval(interp, in register_tclvar_module()
546 int Sqlitetesttclvar_Init(Tcl_Interp *interp){ in Sqlitetesttclvar_Init() argument
557 Tcl_CreateObjCommand(interp, aObjCmd[i].zName, in Sqlitetesttclvar_Init()