Lines Matching refs:interp
131 Tcl_Interp *interp; /* The TCL interpret to execute the function */ member
146 Tcl_Interp *interp; /* The TCL interpret to execute the function */ member
179 Tcl_Interp *interp; /* The interpreter used for this database */ member
250 Tcl_UnregisterChannel(pDb->interp, p->channel); in closeIncrblobChannels()
259 Tcl_Interp *interp in incrblobClose() argument
280 Tcl_SetResult(interp, (char *)sqlite3_errmsg(db), TCL_VOLATILE); in incrblobClose()
416 Tcl_Interp *interp, in createIncrblobChannel() argument
436 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in createIncrblobChannel()
446 Tcl_RegisterChannel(interp, p->channel); in createIncrblobChannel()
457 Tcl_SetResult(interp, (char *)Tcl_GetChannelName(p->channel), TCL_VOLATILE); in createIncrblobChannel()
476 static int safeToUseEvalObjv(Tcl_Interp *interp, Tcl_Obj *pCmd){ in safeToUseEvalObjv() argument
508 pNew->interp = pDb->interp; in findSqlFunc()
635 rc = Tcl_VarEval(pDb->interp, pDb->zBusy, " ", zVal, (char*)0); in DbBusyHandler()
636 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbBusyHandler()
651 rc = Tcl_Eval(pDb->interp, pDb->zProgress); in DbProgressHandler()
652 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbProgressHandler()
672 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str)); in DbTraceHandler()
674 Tcl_ResetResult(pDb->interp); in DbTraceHandler()
701 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
703 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
705 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
707 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
716 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
718 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
720 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
722 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
730 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
732 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
734 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
742 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
744 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
746 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
770 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str)); in DbProfileHandler()
772 Tcl_ResetResult(pDb->interp); in DbProfileHandler()
786 rc = Tcl_Eval(pDb->interp, pDb->zCommit); in DbCommitHandler()
787 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbCommitHandler()
796 if( TCL_OK!=Tcl_EvalObjEx(pDb->interp, pDb->pRollbackHook, 0) ){ in DbRollbackHandler()
797 Tcl_BackgroundError(pDb->interp); in DbRollbackHandler()
813 Tcl_Interp *interp = pDb->interp; in DbWalHandler() local
819 Tcl_ListObjAppendElement(interp, p, Tcl_NewStringObj(zDb, -1)); in DbWalHandler()
820 Tcl_ListObjAppendElement(interp, p, Tcl_NewIntObj(nEntry)); in DbWalHandler()
821 if( TCL_OK!=Tcl_EvalObjEx(interp, p, 0) in DbWalHandler()
822 || TCL_OK!=Tcl_GetIntFromObj(interp, Tcl_GetObjResult(interp), &ret) in DbWalHandler()
824 Tcl_BackgroundError(interp); in DbWalHandler()
832 static void setTestUnlockNotifyVars(Tcl_Interp *interp, int iArg, int nArg){ in setTestUnlockNotifyVars() argument
835 Tcl_SetVar(interp, "sqlite_unlock_notify_arg", zBuf, TCL_GLOBAL_ONLY); in setTestUnlockNotifyVars()
837 Tcl_SetVar(interp, "sqlite_unlock_notify_argcount", zBuf, TCL_GLOBAL_ONLY); in setTestUnlockNotifyVars()
849 setTestUnlockNotifyVars(pDb->interp, i, nArg); in DbUnlockNotify()
851 Tcl_EvalObjEx(pDb->interp, pDb->pUnlockNotify, flags); in DbUnlockNotify()
889 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbPreUpdateHandler()
918 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbUpdateHandler()
932 Tcl_EvalObjEx(pDb->interp, pScript, 0); in tclCollateNeeded()
952 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zA, nA)); in tclSqlCollate()
953 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zB, nB)); in tclSqlCollate()
954 Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT); in tclSqlCollate()
956 return (atoi(Tcl_GetStringResult(p->interp))); in tclSqlCollate()
976 rc = Tcl_EvalObjEx(p->interp, pCmd, 0); in tclSqlFunc()
990 if( Tcl_ListObjGetElements(p->interp, p->pScript, &nArg, &aArg) ){ in tclSqlFunc()
991 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1031 rc = Tcl_ListObjAppendElement(p->interp, pCmd, pVal); in tclSqlFunc()
1034 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1044 rc = Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT); in tclSqlFunc()
1049 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1051 Tcl_Obj *pVar = Tcl_GetObjResult(p->interp); in tclSqlFunc()
1186 rc = Tcl_GlobalEval(pDb->interp, Tcl_DStringValue(&str)); in auth_callback()
1188 zReply = rc==TCL_OK ? Tcl_GetStringResult(pDb->interp) : "SQLITE_DENY"; in auth_callback()
1258 Tcl_Interp *interp, /* Tcl interpreter */ in DbTransPostCmd() argument
1287 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbTransPostCmd()
1356 Tcl_Interp *interp = pDb->interp; in dbPrepareAndBind() local
1399 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3_errmsg(pDb->db), -1)); in dbPrepareAndBind()
1405 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3_errmsg(pDb->db), -1)); in dbPrepareAndBind()
1442 Tcl_Obj *pVar = Tcl_GetVar2Ex(interp, &zVar[1], 0, 0); in dbPrepareAndBind()
1448 Tcl_ListObjAppendElement(interp, pCmd, Tcl_NewStringObj(zVar,-1)); in dbPrepareAndBind()
1449 if( needResultReset ) Tcl_ResetResult(interp); in dbPrepareAndBind()
1451 rx = Tcl_EvalObjEx(interp, pCmd, TCL_EVAL_DIRECT); in dbPrepareAndBind()
1454 pVar = Tcl_GetObjResult(interp); in dbPrepareAndBind()
1477 Tcl_GetIntFromObj(interp, pVar, &n); in dbPrepareAndBind()
1481 Tcl_GetDoubleFromObj(interp, pVar, &r); in dbPrepareAndBind()
1486 Tcl_GetWideIntFromObj(interp, pVar, &v); in dbPrepareAndBind()
1497 if( needResultReset ) Tcl_ResetResult(pDb->interp); in dbPrepareAndBind()
1502 if( needResultReset && rc==TCL_OK ) Tcl_ResetResult(pDb->interp); in dbPrepareAndBind()
1661 Tcl_Interp *interp = p->pDb->interp; in dbEvalRowInfo() local
1666 Tcl_ListObjAppendElement(interp, pColList, apColName[i]); in dbEvalRowInfo()
1669 Tcl_ObjSetVar2(interp, p->pArray, pStar, pColList, 0); in dbEvalRowInfo()
1739 Tcl_SetObjResult(pDb->interp, in dbEvalStep()
1843 Tcl_Interp *interp, /* Tcl interpreter */ in DbEvalNextCmd() argument
1863 Tcl_ObjSetVar2(interp, apColName[i], 0, dbEvalColumnValue(p,i), 0); in DbEvalNextCmd()
1867 Tcl_UnsetVar2(interp, Tcl_GetString(pArray), in DbEvalNextCmd()
1870 Tcl_ObjSetVar2(interp, pArray, apColName[i], dbEvalColumnValue(p,i), 0); in DbEvalNextCmd()
1884 Tcl_NRAddCallback(interp, DbEvalNextCmd, (void*)p, (void*)pScript, 0, 0); in DbEvalNextCmd()
1885 return Tcl_NREvalObj(interp, pScript, 0); in DbEvalNextCmd()
1887 rc = Tcl_EvalObjEx(interp, pScript, 0); in DbEvalNextCmd()
1896 Tcl_ResetResult(interp); in DbEvalNextCmd()
1912 Tcl_Interp *interp, /* Tcl interpreter */ in DbHookCmd() argument
1920 Tcl_SetObjResult(interp, *ppHook); in DbHookCmd()
1957 Tcl_Interp *interp, in DbObjCmd() argument
2000 Tcl_WrongNumArgs(interp, 1, objv, "SUBCOMMAND ..."); in DbObjCmd()
2003 if( Tcl_GetIndexFromObj(interp, objv[1], DB_strs, "option", 0, &choice) ){ in DbObjCmd()
2029 Tcl_AppendResult(interp, "authorization not available in this build", in DbObjCmd()
2034 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2038 Tcl_AppendResult(interp, pDb->zAuth, (char*)0); in DbObjCmd()
2057 pDb->interp = interp; in DbObjCmd()
2086 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? FILENAME"); in DbObjCmd()
2092 Tcl_AppendResult(interp, "cannot open target database: ", in DbObjCmd()
2099 Tcl_AppendResult(interp, "backup failed: ", in DbObjCmd()
2109 Tcl_AppendResult(interp, "backup failed: ", in DbObjCmd()
2137 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2141 Tcl_AppendResult(interp, pDb->zBindFallback, (char*)0); in DbObjCmd()
2167 Tcl_WrongNumArgs(interp, 2, objv, "CALLBACK"); in DbObjCmd()
2171 Tcl_AppendResult(interp, pDb->zBusy, (char*)0); in DbObjCmd()
2187 pDb->interp = interp; in DbObjCmd()
2207 Tcl_WrongNumArgs(interp, 1, objv, "cache option ?arg?"); in DbObjCmd()
2213 Tcl_WrongNumArgs(interp, 2, objv, "flush"); in DbObjCmd()
2220 Tcl_WrongNumArgs(interp, 2, objv, "size n"); in DbObjCmd()
2223 if( TCL_ERROR==Tcl_GetIntFromObj(interp, objv[3], &n) ){ in DbObjCmd()
2224 Tcl_AppendResult( interp, "cannot convert \"", in DbObjCmd()
2238 Tcl_AppendResult( interp, "bad option \"", in DbObjCmd()
2255 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
2258 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2268 Tcl_DeleteCommand(interp, Tcl_GetStringFromObj(objv[0], 0)); in DbObjCmd()
2284 Tcl_WrongNumArgs(interp, 2, objv, "NAME SCRIPT"); in DbObjCmd()
2291 pCollate->interp = interp; in DbObjCmd()
2298 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in DbObjCmd()
2312 Tcl_WrongNumArgs(interp, 2, objv, "SCRIPT"); in DbObjCmd()
2333 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2337 Tcl_AppendResult(interp, pDb->zCommit, (char*)0); in DbObjCmd()
2353 pDb->interp = interp; in DbObjCmd()
2373 Tcl_WrongNumArgs(interp, 2, objv, "SQL"); in DbObjCmd()
2377 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2413 Tcl_WrongNumArgs(interp, 2, objv, "?OPTION? ?BOOLEAN?"); in DbObjCmd()
2423 Tcl_ListObjAppendElement(interp, pResult, in DbObjCmd()
2425 Tcl_ListObjAppendElement(interp, pResult, in DbObjCmd()
2437 Tcl_AppendResult(interp, "unknown config option: \"", zOpt, in DbObjCmd()
2442 if( Tcl_GetBooleanFromObj(interp, objv[3], &onoff) ){ in DbObjCmd()
2449 Tcl_SetObjResult(interp, pResult); in DbObjCmd()
2492 Tcl_WrongNumArgs(interp, 2, objv, in DbObjCmd()
2512 Tcl_AppendResult(interp,"Error: non-null separator required for copy", in DbObjCmd()
2521 Tcl_AppendResult(interp, "Error: \"", zConflict, in DbObjCmd()
2528 Tcl_AppendResult(interp, "Error: no such table: ", zTable, (char*)0); in DbObjCmd()
2535 Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2546 Tcl_AppendResult(interp, "Error: can't malloc()", (char*)0); in DbObjCmd()
2561 Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2567 Tcl_AppendResult(interp, "Error: cannot open file: ", zFile, (char*)0); in DbObjCmd()
2573 Tcl_AppendResult(interp, "Error: can't malloc()", (char*)0); in DbObjCmd()
2601 Tcl_AppendResult(interp, zErr, (char*)0); in DbObjCmd()
2621 Tcl_AppendResult(interp,"Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2633 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2639 Tcl_AppendResult(interp,", failed while processing line: ",zLineNum, in DbObjCmd()
2653 Tcl_AppendResult(interp, "MEMDB not available in this build", in DbObjCmd()
2668 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? VALUE"); in DbObjCmd()
2676 rc = Tcl_GetWideIntFromObj(interp, objv[++i], &x); in DbObjCmd()
2682 rc = Tcl_GetBooleanFromObj(interp, objv[++i], &isReadonly); in DbObjCmd()
2690 Tcl_AppendResult(interp, "unknown option: ", z, (char*)0); in DbObjCmd()
2698 Tcl_AppendResult(interp, "out of memory", (char*)0); in DbObjCmd()
2710 Tcl_AppendResult(interp, "unable to set MEMDB content", (char*)0); in DbObjCmd()
2732 Tcl_WrongNumArgs(interp, 2, objv, "BOOLEAN"); in DbObjCmd()
2735 if( Tcl_GetBooleanFromObj(interp, objv[2], &onoff) ){ in DbObjCmd()
2741 Tcl_AppendResult(interp, "extension loading is turned off at compile-time", in DbObjCmd()
2754 Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_errcode(pDb->db))); in DbObjCmd()
2765 Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_error_offset(pDb->db))); in DbObjCmd()
2781 Tcl_WrongNumArgs(interp, 2, objv, "SQL"); in DbObjCmd()
2791 Tcl_ResetResult(interp); in DbObjCmd()
2797 if( pResult ) Tcl_SetObjResult(interp, pResult); in DbObjCmd()
2822 Tcl_AppendResult(interp, "unknown option: \"", zOpt, "\"", (void*)0); in DbObjCmd()
2829 Tcl_WrongNumArgs(interp, 2, objv, in DbObjCmd()
2844 Tcl_ListObjAppendElement(interp, pRet, dbEvalColumnValue(&sEval, i)); in DbObjCmd()
2849 Tcl_SetObjResult(interp, pRet); in DbObjCmd()
2870 rc = DbEvalNextCmd(cd2, interp, TCL_OK); in DbObjCmd()
2897 Tcl_WrongNumArgs(interp, 2, objv, "NAME ?SWITCHES? SCRIPT"); in DbObjCmd()
2905 Tcl_AppendResult(interp, "option requires an argument: ", z,(char*)0); in DbObjCmd()
2908 if( Tcl_GetIntFromObj(interp, objv[i+1], &nArg) ) return TCL_ERROR; in DbObjCmd()
2910 Tcl_AppendResult(interp, "number of arguments must be non-negative", in DbObjCmd()
2930 Tcl_AppendResult(interp, "option requires an argument: ", z,(char*)0); in DbObjCmd()
2934 if( Tcl_GetIndexFromObj(interp, objv[i], azType, "type", 0, &eType) ){ in DbObjCmd()
2939 Tcl_AppendResult(interp, "bad option \"", z, in DbObjCmd()
2956 pFunc->useEvalObjv = safeToUseEvalObjv(interp, pScript); in DbObjCmd()
2962 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in DbObjCmd()
2972 Tcl_AppendResult(interp, "incrblob not available in this build", (char*)0); in DbObjCmd()
2987 Tcl_WrongNumArgs(interp, 2, objv, "?-readonly? ?DB? TABLE COLUMN ROWID"); in DbObjCmd()
2996 rc = Tcl_GetWideIntFromObj(interp, objv[objc-1], &iRow); in DbObjCmd()
3000 interp, pDb, zDb, zTable, zColumn, (sqlite3_int64)iRow, isReadonly in DbObjCmd()
3028 Tcl_WrongNumArgs(interp, 2, objv, "NULLVALUE"); in DbObjCmd()
3045 Tcl_SetObjResult(interp, Tcl_NewStringObj(pDb->zNull, -1)); in DbObjCmd()
3058 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
3062 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
3079 Tcl_AppendResult(interp, pDb->zProgress, (char*)0); in DbObjCmd()
3088 if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &N) ){ in DbObjCmd()
3103 pDb->interp = interp; in DbObjCmd()
3110 Tcl_WrongNumArgs(interp, 2, objv, "N CALLBACK"); in DbObjCmd()
3124 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
3128 Tcl_AppendResult(interp, pDb->zProfile, (char*)0); in DbObjCmd()
3146 pDb->interp = interp; in DbObjCmd()
3163 Tcl_WrongNumArgs(interp, 2, objv, "KEY"); in DbObjCmd()
3188 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? FILENAME"); in DbObjCmd()
3194 Tcl_AppendResult(interp, "cannot open source database: ", in DbObjCmd()
3201 Tcl_AppendResult(interp, "restore failed: ", in DbObjCmd()
3217 Tcl_AppendResult(interp, "restore failed: source database busy", in DbObjCmd()
3221 Tcl_AppendResult(interp, "restore failed: ", in DbObjCmd()
3236 Tcl_AppendResult(interp, "MEMDB not available in this build", in DbObjCmd()
3244 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE?"); in DbObjCmd()
3255 Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(pData,sz)); in DbObjCmd()
3272 Tcl_WrongNumArgs(interp, 2, objv, "(step|sort|autoindex)"); in DbObjCmd()
3285 Tcl_AppendResult(interp, in DbObjCmd()
3290 Tcl_SetObjResult(interp, Tcl_NewIntObj(v)); in DbObjCmd()
3302 Tcl_WrongNumArgs(interp, 2, objv, "MILLISECONDS"); in DbObjCmd()
3305 if( Tcl_GetIntFromObj(interp, objv[2], &ms) ) return TCL_ERROR; in DbObjCmd()
3319 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
3322 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
3335 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
3339 Tcl_AppendResult(interp, pDb->zTrace, (char*)0); in DbObjCmd()
3357 pDb->interp = interp; in DbObjCmd()
3375 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK? ?MASK?"); in DbObjCmd()
3379 Tcl_AppendResult(interp, pDb->zTraceV2, (char*)0); in DbObjCmd()
3393 if( TCL_OK!=Tcl_ListObjLength(interp, objv[3], &len) ){ in DbObjCmd()
3399 if( TCL_OK!=Tcl_ListObjIndex(interp, objv[3], i, &pObj) ){ in DbObjCmd()
3402 if( Tcl_GetIndexFromObj(interp, pObj, TTYPE_strs, "trace type", in DbObjCmd()
3405 Tcl_Obj *pError = Tcl_DuplicateObj(Tcl_GetObjResult(interp)); in DbObjCmd()
3407 if( TCL_OK==Tcl_GetWideIntFromObj(interp, pObj, &wType) ){ in DbObjCmd()
3411 Tcl_SetObjResult(interp, pError); in DbObjCmd()
3439 pDb->interp = interp; in DbObjCmd()
3464 Tcl_WrongNumArgs(interp, 2, objv, "[TYPE] SCRIPT"); in DbObjCmd()
3476 if( Tcl_GetIndexFromObj(interp, objv[2], TTYPE_strs, "transaction type", in DbObjCmd()
3493 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3505 Tcl_NRAddCallback(interp, DbTransPostCmd, cd, 0, 0, 0); in DbObjCmd()
3506 (void)Tcl_NREvalObj(interp, pScript, 0); in DbObjCmd()
3508 rc = DbTransPostCmd(&cd, interp, Tcl_EvalObjEx(interp, pScript, 0)); in DbObjCmd()
3518 Tcl_AppendResult(interp, "unlock_notify not available in this build", in DbObjCmd()
3523 Tcl_WrongNumArgs(interp, 2, objv, "?SCRIPT?"); in DbObjCmd()
3542 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3558 Tcl_AppendResult(interp, "preupdate_hook was omitted at compile-time", in DbObjCmd()
3569 Tcl_WrongNumArgs(interp, 2, objv, "SUB-COMMAND ?ARGS?"); in DbObjCmd()
3571 if( Tcl_GetIndexFromObj(interp, objv[2], azSub, "sub-command", 0, &iSub) ){ in DbObjCmd()
3578 Tcl_SetObjResult(interp, Tcl_NewIntObj(nCol)); in DbObjCmd()
3584 Tcl_WrongNumArgs(interp, 2, objv, "hook ?SCRIPT?"); in DbObjCmd()
3587 DbHookCmd(interp, pDb, (objc==4 ? objv[3] : 0), &pDb->pPreUpdateHook); in DbObjCmd()
3594 Tcl_WrongNumArgs(interp, 3, objv, ""); in DbObjCmd()
3598 Tcl_SetObjResult(interp, pRet); in DbObjCmd()
3607 Tcl_WrongNumArgs(interp, 3, objv, "INDEX"); in DbObjCmd()
3610 if( Tcl_GetIntFromObj(interp, objv[3], &iIdx) ){ in DbObjCmd()
3624 Tcl_SetObjResult(interp, pObj); in DbObjCmd()
3626 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3651 Tcl_WrongNumArgs(interp, 2, objv, "?SCRIPT?"); in DbObjCmd()
3655 DbHookCmd(interp, pDb, (objc==3 ? objv[2] : 0), ppHook); in DbObjCmd()
3675 if( Tcl_GetBooleanFromObj(interp, objv[i], &pDb->bLegacyPrepare) ){ in DbObjCmd()
3689 Tcl_SetResult(interp, zBuf, TCL_VOLATILE); in DbObjCmd()
3693 Tcl_AppendResult(interp, "unknown argument: ", zArg, (char*)0); in DbObjCmd()
3698 Tcl_SetResult(interp, (char *)sqlite3_libversion(), TCL_STATIC); in DbObjCmd()
3715 Tcl_Interp *interp, in DbObjCmdAdaptor() argument
3719 return Tcl_NRCallObjProc(interp, DbObjCmd, cd, objc, objv); in DbObjCmdAdaptor()
3728 Tcl_Interp *interp, in sqliteCmdUsage() argument
3731 Tcl_WrongNumArgs(interp, 1, objv, in sqliteCmdUsage()
3757 Tcl_Interp *interp, in DbMain() argument
3784 if( objc==1 ) return sqliteCmdUsage(interp, objv); in DbMain()
3788 Tcl_AppendResult(interp,sqlite3_libversion(), (char*)0); in DbMain()
3792 Tcl_AppendResult(interp,sqlite3_sourceid(), (char*)0); in DbMain()
3796 Tcl_AppendResult(interp,"0",(char*)0); in DbMain()
3799 if( zArg[0]=='-' ) return sqliteCmdUsage(interp, objv); in DbMain()
3804 if( zFile!=0 ) return sqliteCmdUsage(interp, objv); in DbMain()
3808 if( i==objc-1 ) return sqliteCmdUsage(interp, objv); in DbMain()
3816 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3826 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3834 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3842 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3851 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3860 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3867 if( Tcl_GetBooleanFromObj(interp, objv[i], &bTranslateFileName) ){ in DbMain()
3871 Tcl_AppendResult(interp, "unknown option: ", zArg, (char*)0); in DbMain()
3880 zFile = Tcl_TranslateFileName(interp, zFile, &translatedFilename); in DbMain()
3896 Tcl_SetResult(interp, zErrMsg, TCL_VOLATILE); in DbMain()
3903 p->interp = interp; in DbMain()
3906 Tcl_NRCreateCommand(interp, zArg, DbObjCmdAdaptor, DbObjCmd, in DbMain()
3909 Tcl_CreateObjCommand(interp, zArg, DbObjCmd, (char*)p, DbDeleteCmd); in DbMain()
3944 EXTERN int Sqlite3_Init(Tcl_Interp *interp){ in Sqlite3_Init() argument
3945 int rc = Tcl_InitStubs(interp, "8.4", 0) ? TCL_OK : TCL_ERROR; in Sqlite3_Init()
3947 Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); in Sqlite3_Init()
3952 Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0); in Sqlite3_Init()
3954 rc = Tcl_PkgProvide(interp, "sqlite3", PACKAGE_VERSION); in Sqlite3_Init()
3958 EXTERN int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Tclsqlite3_Init() argument
3959 EXTERN int Sqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Sqlite3_Unload() argument
3960 EXTERN int Tclsqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Tclsqlite3_Unload() argument
3966 EXTERN int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_ERROR; } in Sqlite3_SafeInit() argument
3967 EXTERN int Sqlite3_SafeUnload(Tcl_Interp *interp, int flags){return TCL_ERROR;} in Sqlite3_SafeUnload() argument
3972 int Sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Sqlite_Init() argument
3973 int Tclsqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Tclsqlite_Init() argument
3974 int Sqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Sqlite_Unload() argument
3975 int Tclsqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Tclsqlite_Unload() argument
4023 Tcl_Interp *interp; in TCLSH_MAIN() local
4055 interp = Tcl_CreateInterp(); in TCLSH_MAIN()
4056 Sqlite3_Init(interp); in TCLSH_MAIN()
4059 Tcl_SetVar(interp,"argc", zArgc, TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4060 Tcl_SetVar(interp,"argv0",argv[0],TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4061 Tcl_SetVar(interp,"argv", "", TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4063 Tcl_SetVar(interp, "argv", argv[i], in TCLSH_MAIN()
4067 zScript = TCLSH_INIT_PROC(interp); in TCLSH_MAIN()
4072 if( Tcl_GlobalEval(interp, zScript)!=TCL_OK ){ in TCLSH_MAIN()
4073 const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4074 if( zInfo==0 ) zInfo = Tcl_GetStringResult(interp); in TCLSH_MAIN()