Lines Matching refs:interp
112 Tcl_Interp *interp; /* The TCL interpret to execute the function */ member
127 Tcl_Interp *interp; /* The TCL interpret to execute the function */ member
160 Tcl_Interp *interp; /* The interpreter used for this database */ member
230 Tcl_UnregisterChannel(pDb->interp, p->channel); in closeIncrblobChannels()
239 Tcl_Interp *interp in incrblobClose() argument
260 Tcl_SetResult(interp, (char *)sqlite3_errmsg(db), TCL_VOLATILE); in incrblobClose()
396 Tcl_Interp *interp, in createIncrblobChannel() argument
416 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in createIncrblobChannel()
426 Tcl_RegisterChannel(interp, p->channel); in createIncrblobChannel()
437 Tcl_SetResult(interp, (char *)Tcl_GetChannelName(p->channel), TCL_VOLATILE); in createIncrblobChannel()
456 static int safeToUseEvalObjv(Tcl_Interp *interp, Tcl_Obj *pCmd){ in safeToUseEvalObjv() argument
488 pNew->interp = pDb->interp; in findSqlFunc()
595 rc = Tcl_VarEval(pDb->interp, pDb->zBusy, " ", zVal, (char*)0); in DbBusyHandler()
596 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbBusyHandler()
611 rc = Tcl_Eval(pDb->interp, pDb->zProgress); in DbProgressHandler()
612 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbProgressHandler()
632 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str)); in DbTraceHandler()
634 Tcl_ResetResult(pDb->interp); in DbTraceHandler()
661 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
663 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
665 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
667 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
676 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
678 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
680 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
682 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
690 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
692 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
694 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
702 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
704 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
706 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
730 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str)); in DbProfileHandler()
732 Tcl_ResetResult(pDb->interp); in DbProfileHandler()
746 rc = Tcl_Eval(pDb->interp, pDb->zCommit); in DbCommitHandler()
747 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbCommitHandler()
756 if( TCL_OK!=Tcl_EvalObjEx(pDb->interp, pDb->pRollbackHook, 0) ){ in DbRollbackHandler()
757 Tcl_BackgroundError(pDb->interp); in DbRollbackHandler()
773 Tcl_Interp *interp = pDb->interp; in DbWalHandler() local
779 Tcl_ListObjAppendElement(interp, p, Tcl_NewStringObj(zDb, -1)); in DbWalHandler()
780 Tcl_ListObjAppendElement(interp, p, Tcl_NewIntObj(nEntry)); in DbWalHandler()
781 if( TCL_OK!=Tcl_EvalObjEx(interp, p, 0) in DbWalHandler()
782 || TCL_OK!=Tcl_GetIntFromObj(interp, Tcl_GetObjResult(interp), &ret) in DbWalHandler()
784 Tcl_BackgroundError(interp); in DbWalHandler()
792 static void setTestUnlockNotifyVars(Tcl_Interp *interp, int iArg, int nArg){ in setTestUnlockNotifyVars() argument
795 Tcl_SetVar(interp, "sqlite_unlock_notify_arg", zBuf, TCL_GLOBAL_ONLY); in setTestUnlockNotifyVars()
797 Tcl_SetVar(interp, "sqlite_unlock_notify_argcount", zBuf, TCL_GLOBAL_ONLY); in setTestUnlockNotifyVars()
809 setTestUnlockNotifyVars(pDb->interp, i, nArg); in DbUnlockNotify()
811 Tcl_EvalObjEx(pDb->interp, pDb->pUnlockNotify, flags); in DbUnlockNotify()
849 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbPreUpdateHandler()
878 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbUpdateHandler()
892 Tcl_EvalObjEx(pDb->interp, pScript, 0); in tclCollateNeeded()
912 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zA, nA)); in tclSqlCollate()
913 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zB, nB)); in tclSqlCollate()
914 Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT); in tclSqlCollate()
916 return (atoi(Tcl_GetStringResult(p->interp))); in tclSqlCollate()
936 rc = Tcl_EvalObjEx(p->interp, pCmd, 0); in tclSqlFunc()
950 if( Tcl_ListObjGetElements(p->interp, p->pScript, &nArg, &aArg) ){ in tclSqlFunc()
951 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
991 rc = Tcl_ListObjAppendElement(p->interp, pCmd, pVal); in tclSqlFunc()
994 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1004 rc = Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT); in tclSqlFunc()
1009 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1011 Tcl_Obj *pVar = Tcl_GetObjResult(p->interp); in tclSqlFunc()
1146 rc = Tcl_GlobalEval(pDb->interp, Tcl_DStringValue(&str)); in auth_callback()
1148 zReply = rc==TCL_OK ? Tcl_GetStringResult(pDb->interp) : "SQLITE_DENY"; in auth_callback()
1218 Tcl_Interp *interp, /* Tcl interpreter */ in DbTransPostCmd() argument
1247 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbTransPostCmd()
1315 Tcl_Interp *interp = pDb->interp; in dbPrepareAndBind() local
1358 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3_errmsg(pDb->db), -1)); in dbPrepareAndBind()
1364 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3_errmsg(pDb->db), -1)); in dbPrepareAndBind()
1401 Tcl_Obj *pVar = Tcl_GetVar2Ex(interp, &zVar[1], 0, 0); in dbPrepareAndBind()
1407 Tcl_ListObjAppendElement(interp, pCmd, Tcl_NewStringObj(zVar,-1)); in dbPrepareAndBind()
1408 if( needResultReset ) Tcl_ResetResult(interp); in dbPrepareAndBind()
1410 rx = Tcl_EvalObjEx(interp, pCmd, TCL_EVAL_DIRECT); in dbPrepareAndBind()
1413 pVar = Tcl_GetObjResult(interp); in dbPrepareAndBind()
1436 Tcl_GetIntFromObj(interp, pVar, &n); in dbPrepareAndBind()
1440 Tcl_GetDoubleFromObj(interp, pVar, &r); in dbPrepareAndBind()
1445 Tcl_GetWideIntFromObj(interp, pVar, &v); in dbPrepareAndBind()
1456 if( needResultReset ) Tcl_ResetResult(pDb->interp); in dbPrepareAndBind()
1461 if( needResultReset && rc==TCL_OK ) Tcl_ResetResult(pDb->interp); in dbPrepareAndBind()
1619 Tcl_Interp *interp = p->pDb->interp; in dbEvalRowInfo() local
1624 Tcl_ListObjAppendElement(interp, pColList, apColName[i]); in dbEvalRowInfo()
1627 Tcl_ObjSetVar2(interp, p->pArray, pStar, pColList, 0); in dbEvalRowInfo()
1697 Tcl_SetObjResult(pDb->interp, in dbEvalStep()
1800 Tcl_Interp *interp, /* Tcl interpreter */ in DbEvalNextCmd() argument
1820 Tcl_ObjSetVar2(interp, apColName[i], 0, dbEvalColumnValue(p,i), 0); in DbEvalNextCmd()
1824 Tcl_UnsetVar2(interp, Tcl_GetString(pArray), in DbEvalNextCmd()
1827 Tcl_ObjSetVar2(interp, pArray, apColName[i], dbEvalColumnValue(p,i), 0); in DbEvalNextCmd()
1841 Tcl_NRAddCallback(interp, DbEvalNextCmd, (void*)p, (void*)pScript, 0, 0); in DbEvalNextCmd()
1842 return Tcl_NREvalObj(interp, pScript, 0); in DbEvalNextCmd()
1844 rc = Tcl_EvalObjEx(interp, pScript, 0); in DbEvalNextCmd()
1853 Tcl_ResetResult(interp); in DbEvalNextCmd()
1869 Tcl_Interp *interp, /* Tcl interpreter */ in DbHookCmd() argument
1877 Tcl_SetObjResult(interp, *ppHook); in DbHookCmd()
1914 Tcl_Interp *interp, in DbObjCmd() argument
1956 Tcl_WrongNumArgs(interp, 1, objv, "SUBCOMMAND ..."); in DbObjCmd()
1959 if( Tcl_GetIndexFromObj(interp, objv[1], DB_strs, "option", 0, &choice) ){ in DbObjCmd()
1985 Tcl_AppendResult(interp, "authorization not available in this build", in DbObjCmd()
1990 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
1994 Tcl_AppendResult(interp, pDb->zAuth, (char*)0); in DbObjCmd()
2013 pDb->interp = interp; in DbObjCmd()
2042 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? FILENAME"); in DbObjCmd()
2048 Tcl_AppendResult(interp, "cannot open target database: ", in DbObjCmd()
2055 Tcl_AppendResult(interp, "backup failed: ", in DbObjCmd()
2065 Tcl_AppendResult(interp, "backup failed: ", in DbObjCmd()
2093 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2097 Tcl_AppendResult(interp, pDb->zBindFallback, (char*)0); in DbObjCmd()
2123 Tcl_WrongNumArgs(interp, 2, objv, "CALLBACK"); in DbObjCmd()
2127 Tcl_AppendResult(interp, pDb->zBusy, (char*)0); in DbObjCmd()
2143 pDb->interp = interp; in DbObjCmd()
2163 Tcl_WrongNumArgs(interp, 1, objv, "cache option ?arg?"); in DbObjCmd()
2169 Tcl_WrongNumArgs(interp, 2, objv, "flush"); in DbObjCmd()
2176 Tcl_WrongNumArgs(interp, 2, objv, "size n"); in DbObjCmd()
2179 if( TCL_ERROR==Tcl_GetIntFromObj(interp, objv[3], &n) ){ in DbObjCmd()
2180 Tcl_AppendResult( interp, "cannot convert \"", in DbObjCmd()
2194 Tcl_AppendResult( interp, "bad option \"", in DbObjCmd()
2211 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
2214 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2224 Tcl_DeleteCommand(interp, Tcl_GetStringFromObj(objv[0], 0)); in DbObjCmd()
2240 Tcl_WrongNumArgs(interp, 2, objv, "NAME SCRIPT"); in DbObjCmd()
2247 pCollate->interp = interp; in DbObjCmd()
2254 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in DbObjCmd()
2268 Tcl_WrongNumArgs(interp, 2, objv, "SCRIPT"); in DbObjCmd()
2289 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2293 Tcl_AppendResult(interp, pDb->zCommit, (char*)0); in DbObjCmd()
2309 pDb->interp = interp; in DbObjCmd()
2329 Tcl_WrongNumArgs(interp, 2, objv, "SQL"); in DbObjCmd()
2333 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2369 Tcl_WrongNumArgs(interp, 2, objv, "?OPTION? ?BOOLEAN?"); in DbObjCmd()
2379 Tcl_ListObjAppendElement(interp, pResult, in DbObjCmd()
2381 Tcl_ListObjAppendElement(interp, pResult, in DbObjCmd()
2393 Tcl_AppendResult(interp, "unknown config option: \"", zOpt, in DbObjCmd()
2398 if( Tcl_GetBooleanFromObj(interp, objv[3], &onoff) ){ in DbObjCmd()
2405 Tcl_SetObjResult(interp, pResult); in DbObjCmd()
2448 Tcl_WrongNumArgs(interp, 2, objv, in DbObjCmd()
2468 Tcl_AppendResult(interp,"Error: non-null separator required for copy", in DbObjCmd()
2477 Tcl_AppendResult(interp, "Error: \"", zConflict, in DbObjCmd()
2484 Tcl_AppendResult(interp, "Error: no such table: ", zTable, (char*)0); in DbObjCmd()
2491 Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2502 Tcl_AppendResult(interp, "Error: can't malloc()", (char*)0); in DbObjCmd()
2517 Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2523 Tcl_AppendResult(interp, "Error: cannot open file: ", zFile, (char*)0); in DbObjCmd()
2529 Tcl_AppendResult(interp, "Error: can't malloc()", (char*)0); in DbObjCmd()
2557 Tcl_AppendResult(interp, zErr, (char*)0); in DbObjCmd()
2577 Tcl_AppendResult(interp,"Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2589 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2595 Tcl_AppendResult(interp,", failed while processing line: ",zLineNum, in DbObjCmd()
2609 Tcl_AppendResult(interp, "MEMDB not available in this build", in DbObjCmd()
2624 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? VALUE"); in DbObjCmd()
2631 rc = Tcl_GetWideIntFromObj(interp, objv[++i], &mxSize); in DbObjCmd()
2636 rc = Tcl_GetBooleanFromObj(interp, objv[++i], &isReadonly); in DbObjCmd()
2644 Tcl_AppendResult(interp, "unknown option: ", z, (char*)0); in DbObjCmd()
2652 Tcl_AppendResult(interp, "out of memory", (char*)0); in DbObjCmd()
2664 Tcl_AppendResult(interp, "unable to set MEMDB content", (char*)0); in DbObjCmd()
2686 Tcl_WrongNumArgs(interp, 2, objv, "BOOLEAN"); in DbObjCmd()
2689 if( Tcl_GetBooleanFromObj(interp, objv[2], &onoff) ){ in DbObjCmd()
2695 Tcl_AppendResult(interp, "extension loading is turned off at compile-time", in DbObjCmd()
2708 Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_errcode(pDb->db))); in DbObjCmd()
2724 Tcl_WrongNumArgs(interp, 2, objv, "SQL"); in DbObjCmd()
2734 Tcl_ResetResult(interp); in DbObjCmd()
2740 if( pResult ) Tcl_SetObjResult(interp, pResult); in DbObjCmd()
2765 Tcl_AppendResult(interp, "unknown option: \"", zOpt, "\"", (void*)0); in DbObjCmd()
2772 Tcl_WrongNumArgs(interp, 2, objv, in DbObjCmd()
2787 Tcl_ListObjAppendElement(interp, pRet, dbEvalColumnValue(&sEval, i)); in DbObjCmd()
2792 Tcl_SetObjResult(interp, pRet); in DbObjCmd()
2813 rc = DbEvalNextCmd(cd2, interp, TCL_OK); in DbObjCmd()
2840 Tcl_WrongNumArgs(interp, 2, objv, "NAME ?SWITCHES? SCRIPT"); in DbObjCmd()
2848 Tcl_AppendResult(interp, "option requires an argument: ", z,(char*)0); in DbObjCmd()
2851 if( Tcl_GetIntFromObj(interp, objv[i+1], &nArg) ) return TCL_ERROR; in DbObjCmd()
2853 Tcl_AppendResult(interp, "number of arguments must be non-negative", in DbObjCmd()
2873 Tcl_AppendResult(interp, "option requires an argument: ", z,(char*)0); in DbObjCmd()
2877 if( Tcl_GetIndexFromObj(interp, objv[i], azType, "type", 0, &eType) ){ in DbObjCmd()
2882 Tcl_AppendResult(interp, "bad option \"", z, in DbObjCmd()
2899 pFunc->useEvalObjv = safeToUseEvalObjv(interp, pScript); in DbObjCmd()
2905 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in DbObjCmd()
2915 Tcl_AppendResult(interp, "incrblob not available in this build", (char*)0); in DbObjCmd()
2930 Tcl_WrongNumArgs(interp, 2, objv, "?-readonly? ?DB? TABLE COLUMN ROWID"); in DbObjCmd()
2939 rc = Tcl_GetWideIntFromObj(interp, objv[objc-1], &iRow); in DbObjCmd()
2943 interp, pDb, zDb, zTable, zColumn, (sqlite3_int64)iRow, isReadonly in DbObjCmd()
2971 Tcl_WrongNumArgs(interp, 2, objv, "NULLVALUE"); in DbObjCmd()
2988 Tcl_SetObjResult(interp, Tcl_NewStringObj(pDb->zNull, -1)); in DbObjCmd()
3001 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
3005 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
3022 Tcl_AppendResult(interp, pDb->zProgress, (char*)0); in DbObjCmd()
3028 if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &N) ){ in DbObjCmd()
3043 pDb->interp = interp; in DbObjCmd()
3050 Tcl_WrongNumArgs(interp, 2, objv, "N CALLBACK"); in DbObjCmd()
3064 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
3068 Tcl_AppendResult(interp, pDb->zProfile, (char*)0); in DbObjCmd()
3086 pDb->interp = interp; in DbObjCmd()
3103 Tcl_WrongNumArgs(interp, 2, objv, "KEY"); in DbObjCmd()
3128 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? FILENAME"); in DbObjCmd()
3134 Tcl_AppendResult(interp, "cannot open source database: ", in DbObjCmd()
3141 Tcl_AppendResult(interp, "restore failed: ", in DbObjCmd()
3157 Tcl_AppendResult(interp, "restore failed: source database busy", in DbObjCmd()
3161 Tcl_AppendResult(interp, "restore failed: ", in DbObjCmd()
3176 Tcl_AppendResult(interp, "MEMDB not available in this build", in DbObjCmd()
3184 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE?"); in DbObjCmd()
3195 Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(pData,sz)); in DbObjCmd()
3212 Tcl_WrongNumArgs(interp, 2, objv, "(step|sort|autoindex)"); in DbObjCmd()
3225 Tcl_AppendResult(interp, in DbObjCmd()
3230 Tcl_SetObjResult(interp, Tcl_NewIntObj(v)); in DbObjCmd()
3242 Tcl_WrongNumArgs(interp, 2, objv, "MILLISECONDS"); in DbObjCmd()
3245 if( Tcl_GetIntFromObj(interp, objv[2], &ms) ) return TCL_ERROR; in DbObjCmd()
3259 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
3262 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
3275 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
3279 Tcl_AppendResult(interp, pDb->zTrace, (char*)0); in DbObjCmd()
3297 pDb->interp = interp; in DbObjCmd()
3315 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK? ?MASK?"); in DbObjCmd()
3319 Tcl_AppendResult(interp, pDb->zTraceV2, (char*)0); in DbObjCmd()
3333 if( TCL_OK!=Tcl_ListObjLength(interp, objv[3], &len) ){ in DbObjCmd()
3339 if( TCL_OK!=Tcl_ListObjIndex(interp, objv[3], i, &pObj) ){ in DbObjCmd()
3342 if( Tcl_GetIndexFromObj(interp, pObj, TTYPE_strs, "trace type", in DbObjCmd()
3345 Tcl_Obj *pError = Tcl_DuplicateObj(Tcl_GetObjResult(interp)); in DbObjCmd()
3347 if( TCL_OK==Tcl_GetWideIntFromObj(interp, pObj, &wType) ){ in DbObjCmd()
3351 Tcl_SetObjResult(interp, pError); in DbObjCmd()
3379 pDb->interp = interp; in DbObjCmd()
3404 Tcl_WrongNumArgs(interp, 2, objv, "[TYPE] SCRIPT"); in DbObjCmd()
3416 if( Tcl_GetIndexFromObj(interp, objv[2], TTYPE_strs, "transaction type", in DbObjCmd()
3433 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3444 Tcl_NRAddCallback(interp, DbTransPostCmd, cd, 0, 0, 0); in DbObjCmd()
3445 (void)Tcl_NREvalObj(interp, pScript, 0); in DbObjCmd()
3447 rc = DbTransPostCmd(&cd, interp, Tcl_EvalObjEx(interp, pScript, 0)); in DbObjCmd()
3457 Tcl_AppendResult(interp, "unlock_notify not available in this build", in DbObjCmd()
3462 Tcl_WrongNumArgs(interp, 2, objv, "?SCRIPT?"); in DbObjCmd()
3481 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3497 Tcl_AppendResult(interp, "preupdate_hook was omitted at compile-time", in DbObjCmd()
3508 Tcl_WrongNumArgs(interp, 2, objv, "SUB-COMMAND ?ARGS?"); in DbObjCmd()
3510 if( Tcl_GetIndexFromObj(interp, objv[2], azSub, "sub-command", 0, &iSub) ){ in DbObjCmd()
3517 Tcl_SetObjResult(interp, Tcl_NewIntObj(nCol)); in DbObjCmd()
3523 Tcl_WrongNumArgs(interp, 2, objv, "hook ?SCRIPT?"); in DbObjCmd()
3526 DbHookCmd(interp, pDb, (objc==4 ? objv[3] : 0), &pDb->pPreUpdateHook); in DbObjCmd()
3533 Tcl_WrongNumArgs(interp, 3, objv, ""); in DbObjCmd()
3537 Tcl_SetObjResult(interp, pRet); in DbObjCmd()
3546 Tcl_WrongNumArgs(interp, 3, objv, "INDEX"); in DbObjCmd()
3549 if( Tcl_GetIntFromObj(interp, objv[3], &iIdx) ){ in DbObjCmd()
3563 Tcl_SetObjResult(interp, pObj); in DbObjCmd()
3565 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3590 Tcl_WrongNumArgs(interp, 2, objv, "?SCRIPT?"); in DbObjCmd()
3594 DbHookCmd(interp, pDb, (objc==3 ? objv[2] : 0), ppHook); in DbObjCmd()
3614 if( Tcl_GetBooleanFromObj(interp, objv[i], &pDb->bLegacyPrepare) ){ in DbObjCmd()
3628 Tcl_SetResult(interp, zBuf, TCL_VOLATILE); in DbObjCmd()
3632 Tcl_AppendResult(interp, "unknown argument: ", zArg, (char*)0); in DbObjCmd()
3637 Tcl_SetResult(interp, (char *)sqlite3_libversion(), TCL_STATIC); in DbObjCmd()
3654 Tcl_Interp *interp, in DbObjCmdAdaptor() argument
3658 return Tcl_NRCallObjProc(interp, DbObjCmd, cd, objc, objv); in DbObjCmdAdaptor()
3667 Tcl_Interp *interp, in sqliteCmdUsage() argument
3670 Tcl_WrongNumArgs(interp, 1, objv, in sqliteCmdUsage()
3696 Tcl_Interp *interp, in DbMain() argument
3723 if( objc==1 ) return sqliteCmdUsage(interp, objv); in DbMain()
3727 Tcl_AppendResult(interp,sqlite3_libversion(), (char*)0); in DbMain()
3731 Tcl_AppendResult(interp,sqlite3_sourceid(), (char*)0); in DbMain()
3735 Tcl_AppendResult(interp,"0",(char*)0); in DbMain()
3738 if( zArg[0]=='-' ) return sqliteCmdUsage(interp, objv); in DbMain()
3743 if( zFile!=0 ) return sqliteCmdUsage(interp, objv); in DbMain()
3747 if( i==objc-1 ) return sqliteCmdUsage(interp, objv); in DbMain()
3755 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3765 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3773 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3781 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3790 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3799 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3806 if( Tcl_GetBooleanFromObj(interp, objv[i], &bTranslateFileName) ){ in DbMain()
3810 Tcl_AppendResult(interp, "unknown option: ", zArg, (char*)0); in DbMain()
3819 zFile = Tcl_TranslateFileName(interp, zFile, &translatedFilename); in DbMain()
3835 Tcl_SetResult(interp, zErrMsg, TCL_VOLATILE); in DbMain()
3842 p->interp = interp; in DbMain()
3845 Tcl_NRCreateCommand(interp, zArg, DbObjCmdAdaptor, DbObjCmd, in DbMain()
3848 Tcl_CreateObjCommand(interp, zArg, DbObjCmd, (char*)p, DbDeleteCmd); in DbMain()
3882 EXTERN int Sqlite3_Init(Tcl_Interp *interp){ in Sqlite3_Init() argument
3883 int rc = Tcl_InitStubs(interp, "8.4", 0) ? TCL_OK : TCL_ERROR; in Sqlite3_Init()
3885 Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); in Sqlite3_Init()
3890 Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0); in Sqlite3_Init()
3892 rc = Tcl_PkgProvide(interp, "sqlite3", PACKAGE_VERSION); in Sqlite3_Init()
3896 EXTERN int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Tclsqlite3_Init() argument
3897 EXTERN int Sqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Sqlite3_Unload() argument
3898 EXTERN int Tclsqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Tclsqlite3_Unload() argument
3904 EXTERN int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_ERROR; } in Sqlite3_SafeInit() argument
3905 EXTERN int Sqlite3_SafeUnload(Tcl_Interp *interp, int flags){return TCL_ERROR;} in Sqlite3_SafeUnload() argument
3910 int Sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Sqlite_Init() argument
3911 int Tclsqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Tclsqlite_Init() argument
3912 int Sqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Sqlite_Unload() argument
3913 int Tclsqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Tclsqlite_Unload() argument
3959 Tcl_Interp *interp; in TCLSH_MAIN() local
3991 interp = Tcl_CreateInterp(); in TCLSH_MAIN()
3992 Sqlite3_Init(interp); in TCLSH_MAIN()
3995 Tcl_SetVar(interp,"argc", zArgc, TCL_GLOBAL_ONLY); in TCLSH_MAIN()
3996 Tcl_SetVar(interp,"argv0",argv[0],TCL_GLOBAL_ONLY); in TCLSH_MAIN()
3997 Tcl_SetVar(interp,"argv", "", TCL_GLOBAL_ONLY); in TCLSH_MAIN()
3999 Tcl_SetVar(interp, "argv", argv[i], in TCLSH_MAIN()
4003 zScript = TCLSH_INIT_PROC(interp); in TCLSH_MAIN()
4008 if( Tcl_GlobalEval(interp, zScript)!=TCL_OK ){ in TCLSH_MAIN()
4009 const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4010 if( zInfo==0 ) zInfo = Tcl_GetStringResult(interp); in TCLSH_MAIN()