Lines Matching refs:interp
112 Tcl_Interp *interp; member
175 Tcl_Interp *interp = (Tcl_Interp*)pAux; in tclConnect() local
194 pTab->interp = interp; in tclConnect()
200 Tcl_ListObjAppendElement(interp, pScript, Tcl_NewStringObj("xConnect", -1)); in tclConnect()
202 rc = Tcl_EvalObjEx(interp, pScript, TCL_EVAL_GLOBAL); in tclConnect()
204 *pzErr = sqlite3_mprintf("%s", Tcl_GetStringResult(interp)); in tclConnect()
207 rc = sqlite3_declare_vtab(db, Tcl_GetStringResult(interp)); in tclConnect()
280 Tcl_Interp *interp = pTab->interp; in tclFilter() local
288 Tcl_ListObjAppendElement(interp, pScript, Tcl_NewStringObj("xFilter", -1)); in tclFilter()
289 Tcl_ListObjAppendElement(interp, pScript, Tcl_NewIntObj(idxNum)); in tclFilter()
291 Tcl_ListObjAppendElement(interp, pScript, Tcl_NewStringObj(idxStr, -1)); in tclFilter()
293 Tcl_ListObjAppendElement(interp, pScript, Tcl_NewStringObj("", -1)); in tclFilter()
315 Tcl_ListObjAppendElement(interp, pVal, pVal2); in tclFilter()
320 Tcl_ListObjAppendElement(interp, pArg, pVal); in tclFilter()
322 Tcl_ListObjAppendElement(interp, pScript, pArg); in tclFilter()
325 rc = Tcl_EvalObjEx(interp, pScript, TCL_EVAL_GLOBAL); in tclFilter()
327 const char *zErr = Tcl_GetStringResult(interp); in tclFilter()
337 Tcl_Obj *pRes = Tcl_GetObjResult(interp); in tclFilter()
340 rc = Tcl_ListObjGetElements(interp, pRes, &nElem, &apElem); in tclFilter()
342 const char *zErr = Tcl_GetStringResult(interp); in tclFilter()
392 Tcl_Interp *interp, in testBestIndexObjConstraints() argument
451 Tcl_SetObjResult(interp, pRes); in testBestIndexObjConstraints()
456 Tcl_Interp *interp, in testBestIndexObjOrderby() argument
476 Tcl_SetObjResult(interp, pRes); in testBestIndexObjOrderby()
500 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in testBestIndexObj() argument
517 Tcl_WrongNumArgs(interp, 1, objv, "SUB-COMMAND"); in testBestIndexObj()
520 if( Tcl_GetIndexFromObj(interp, objv[1], azSub, "sub-command", 0, &ii) ){ in testBestIndexObj()
525 Tcl_WrongNumArgs(interp, 2, objv, ""); in testBestIndexObj()
529 Tcl_WrongNumArgs(interp, 2, objv, "INDEX BOOLEAN"); in testBestIndexObj()
533 Tcl_WrongNumArgs(interp, 2, objv, "INDEX ?DEFAULT?"); in testBestIndexObj()
539 testBestIndexObjConstraints(interp, pIdxInfo); in testBestIndexObj()
543 testBestIndexObjOrderby(interp, pIdxInfo); in testBestIndexObj()
547 Tcl_SetObjResult(interp, Tcl_NewWideIntObj(pIdxInfo->colUsed)); in testBestIndexObj()
552 Tcl_SetObjResult(interp, Tcl_NewIntObj(bDistinct)); in testBestIndexObj()
559 if( Tcl_GetIntFromObj(interp, objv[2], &iCons) in testBestIndexObj()
560 || Tcl_GetBooleanFromObj(interp, objv[3], &bHandle) in testBestIndexObj()
564 Tcl_SetObjResult(interp, in testBestIndexObj()
575 if( Tcl_GetIntFromObj(interp, objv[2], &iCons) ){ in testBestIndexObj()
580 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE); in testBestIndexObj()
588 Tcl_SetObjResult(interp, Tcl_NewStringObj(zVal, -1)); in testBestIndexObj()
598 Tcl_Interp *interp = pTab->interp; in tclBestIndex() local
607 Tcl_ListObjAppendElement(interp, pScript, Tcl_NewStringObj("xBestIndex", -1)); in tclBestIndex()
610 Tcl_CreateObjCommand(interp, zHdl, testBestIndexObj, pIdxInfo, 0); in tclBestIndex()
611 Tcl_ListObjAppendElement(interp, pScript, Tcl_NewStringObj(zHdl, -1)); in tclBestIndex()
612 rc = Tcl_EvalObjEx(interp, pScript, TCL_EVAL_GLOBAL); in tclBestIndex()
613 Tcl_DeleteCommand(interp, zHdl); in tclBestIndex()
617 const char *zErr = Tcl_GetStringResult(interp); in tclBestIndex()
633 Tcl_Obj *pRes = Tcl_GetObjResult(interp); in tclBestIndex()
636 rc = Tcl_ListObjGetElements(interp, pRes, &nElem, &apElem); in tclBestIndex()
638 const char *zErr = Tcl_GetStringResult(interp); in tclBestIndex()
648 rc = Tcl_GetDoubleFromObj(interp, p, &pIdxInfo->estimatedCost); in tclBestIndex()
651 rc = Tcl_GetIntFromObj(interp, p, &pIdxInfo->orderByConsumed); in tclBestIndex()
654 rc = Tcl_GetIntFromObj(interp, p, &pIdxInfo->idxNum); in tclBestIndex()
663 rc = Tcl_GetWideIntFromObj(interp, p, &x); in tclBestIndex()
670 rc = Tcl_GetIntFromObj(interp, p, &iCons); in tclBestIndex()
686 const char *zErr = Tcl_GetStringResult(interp); in tclBestIndex()
726 extern int getDbPointer(Tcl_Interp *interp, const char *zA, sqlite3 **ppDb);
733 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in register_tcl_module() argument
739 Tcl_WrongNumArgs(interp, 1, objv, "DB"); in register_tcl_module()
742 if( getDbPointer(interp, Tcl_GetString(objv[1]), &db) ) return TCL_ERROR; in register_tcl_module()
744 sqlite3_create_module(db, "tcl", &tclModule, (void *)interp); in register_tcl_module()
755 int Sqlitetesttcl_Init(Tcl_Interp *interp){ in Sqlitetesttcl_Init() argument
766 Tcl_CreateObjCommand(interp, aObjCmd[i].zName, in Sqlitetesttcl_Init()