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
231 Tcl_UnregisterChannel(pDb->interp, p->channel); in closeIncrblobChannels()
240 Tcl_Interp *interp in incrblobClose() argument
261 Tcl_SetResult(interp, (char *)sqlite3_errmsg(db), TCL_VOLATILE); in incrblobClose()
397 Tcl_Interp *interp, in createIncrblobChannel() argument
417 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in createIncrblobChannel()
427 Tcl_RegisterChannel(interp, p->channel); in createIncrblobChannel()
438 Tcl_SetResult(interp, (char *)Tcl_GetChannelName(p->channel), TCL_VOLATILE); in createIncrblobChannel()
457 static int safeToUseEvalObjv(Tcl_Interp *interp, Tcl_Obj *pCmd){ in safeToUseEvalObjv() argument
489 pNew->interp = pDb->interp; in findSqlFunc()
616 rc = Tcl_VarEval(pDb->interp, pDb->zBusy, " ", zVal, (char*)0); in DbBusyHandler()
617 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbBusyHandler()
632 rc = Tcl_Eval(pDb->interp, pDb->zProgress); in DbProgressHandler()
633 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbProgressHandler()
653 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str)); in DbTraceHandler()
655 Tcl_ResetResult(pDb->interp); in DbTraceHandler()
682 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
684 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
686 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
688 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
697 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
699 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
701 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
703 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
711 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
713 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
715 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
723 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
725 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
727 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
751 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str)); in DbProfileHandler()
753 Tcl_ResetResult(pDb->interp); in DbProfileHandler()
767 rc = Tcl_Eval(pDb->interp, pDb->zCommit); in DbCommitHandler()
768 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbCommitHandler()
777 if( TCL_OK!=Tcl_EvalObjEx(pDb->interp, pDb->pRollbackHook, 0) ){ in DbRollbackHandler()
778 Tcl_BackgroundError(pDb->interp); in DbRollbackHandler()
794 Tcl_Interp *interp = pDb->interp; in DbWalHandler() local
800 Tcl_ListObjAppendElement(interp, p, Tcl_NewStringObj(zDb, -1)); in DbWalHandler()
801 Tcl_ListObjAppendElement(interp, p, Tcl_NewIntObj(nEntry)); in DbWalHandler()
802 if( TCL_OK!=Tcl_EvalObjEx(interp, p, 0) in DbWalHandler()
803 || TCL_OK!=Tcl_GetIntFromObj(interp, Tcl_GetObjResult(interp), &ret) in DbWalHandler()
805 Tcl_BackgroundError(interp); in DbWalHandler()
813 static void setTestUnlockNotifyVars(Tcl_Interp *interp, int iArg, int nArg){ in setTestUnlockNotifyVars() argument
816 Tcl_SetVar(interp, "sqlite_unlock_notify_arg", zBuf, TCL_GLOBAL_ONLY); in setTestUnlockNotifyVars()
818 Tcl_SetVar(interp, "sqlite_unlock_notify_argcount", zBuf, TCL_GLOBAL_ONLY); in setTestUnlockNotifyVars()
830 setTestUnlockNotifyVars(pDb->interp, i, nArg); in DbUnlockNotify()
832 Tcl_EvalObjEx(pDb->interp, pDb->pUnlockNotify, flags); in DbUnlockNotify()
870 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbPreUpdateHandler()
899 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbUpdateHandler()
913 Tcl_EvalObjEx(pDb->interp, pScript, 0); in tclCollateNeeded()
933 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zA, nA)); in tclSqlCollate()
934 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zB, nB)); in tclSqlCollate()
935 Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT); in tclSqlCollate()
937 return (atoi(Tcl_GetStringResult(p->interp))); in tclSqlCollate()
957 rc = Tcl_EvalObjEx(p->interp, pCmd, 0); in tclSqlFunc()
971 if( Tcl_ListObjGetElements(p->interp, p->pScript, &nArg, &aArg) ){ in tclSqlFunc()
972 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1012 rc = Tcl_ListObjAppendElement(p->interp, pCmd, pVal); in tclSqlFunc()
1015 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1025 rc = Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT); in tclSqlFunc()
1030 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1032 Tcl_Obj *pVar = Tcl_GetObjResult(p->interp); in tclSqlFunc()
1167 rc = Tcl_GlobalEval(pDb->interp, Tcl_DStringValue(&str)); in auth_callback()
1169 zReply = rc==TCL_OK ? Tcl_GetStringResult(pDb->interp) : "SQLITE_DENY"; in auth_callback()
1239 Tcl_Interp *interp, /* Tcl interpreter */ in DbTransPostCmd() argument
1268 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbTransPostCmd()
1337 Tcl_Interp *interp = pDb->interp; in dbPrepareAndBind() local
1380 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3_errmsg(pDb->db), -1)); in dbPrepareAndBind()
1386 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3_errmsg(pDb->db), -1)); in dbPrepareAndBind()
1423 Tcl_Obj *pVar = Tcl_GetVar2Ex(interp, &zVar[1], 0, 0); in dbPrepareAndBind()
1429 Tcl_ListObjAppendElement(interp, pCmd, Tcl_NewStringObj(zVar,-1)); in dbPrepareAndBind()
1430 if( needResultReset ) Tcl_ResetResult(interp); in dbPrepareAndBind()
1432 rx = Tcl_EvalObjEx(interp, pCmd, TCL_EVAL_DIRECT); in dbPrepareAndBind()
1435 pVar = Tcl_GetObjResult(interp); in dbPrepareAndBind()
1458 Tcl_GetIntFromObj(interp, pVar, &n); in dbPrepareAndBind()
1462 Tcl_GetDoubleFromObj(interp, pVar, &r); in dbPrepareAndBind()
1467 Tcl_GetWideIntFromObj(interp, pVar, &v); in dbPrepareAndBind()
1478 if( needResultReset ) Tcl_ResetResult(pDb->interp); in dbPrepareAndBind()
1483 if( needResultReset && rc==TCL_OK ) Tcl_ResetResult(pDb->interp); in dbPrepareAndBind()
1642 Tcl_Interp *interp = p->pDb->interp; in dbEvalRowInfo() local
1647 Tcl_ListObjAppendElement(interp, pColList, apColName[i]); in dbEvalRowInfo()
1650 Tcl_ObjSetVar2(interp, p->pArray, pStar, pColList, 0); in dbEvalRowInfo()
1720 Tcl_SetObjResult(pDb->interp, in dbEvalStep()
1824 Tcl_Interp *interp, /* Tcl interpreter */ in DbEvalNextCmd() argument
1844 Tcl_ObjSetVar2(interp, apColName[i], 0, dbEvalColumnValue(p,i), 0); in DbEvalNextCmd()
1848 Tcl_UnsetVar2(interp, Tcl_GetString(pArray), in DbEvalNextCmd()
1851 Tcl_ObjSetVar2(interp, pArray, apColName[i], dbEvalColumnValue(p,i), 0); in DbEvalNextCmd()
1865 Tcl_NRAddCallback(interp, DbEvalNextCmd, (void*)p, (void*)pScript, 0, 0); in DbEvalNextCmd()
1866 return Tcl_NREvalObj(interp, pScript, 0); in DbEvalNextCmd()
1868 rc = Tcl_EvalObjEx(interp, pScript, 0); in DbEvalNextCmd()
1877 Tcl_ResetResult(interp); in DbEvalNextCmd()
1893 Tcl_Interp *interp, /* Tcl interpreter */ in DbHookCmd() argument
1901 Tcl_SetObjResult(interp, *ppHook); in DbHookCmd()
1938 Tcl_Interp *interp, in DbObjCmd() argument
1980 Tcl_WrongNumArgs(interp, 1, objv, "SUBCOMMAND ..."); in DbObjCmd()
1983 if( Tcl_GetIndexFromObj(interp, objv[1], DB_strs, "option", 0, &choice) ){ in DbObjCmd()
2009 Tcl_AppendResult(interp, "authorization not available in this build", in DbObjCmd()
2014 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2018 Tcl_AppendResult(interp, pDb->zAuth, (char*)0); in DbObjCmd()
2037 pDb->interp = interp; in DbObjCmd()
2066 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? FILENAME"); in DbObjCmd()
2072 Tcl_AppendResult(interp, "cannot open target database: ", in DbObjCmd()
2079 Tcl_AppendResult(interp, "backup failed: ", in DbObjCmd()
2089 Tcl_AppendResult(interp, "backup failed: ", in DbObjCmd()
2117 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2121 Tcl_AppendResult(interp, pDb->zBindFallback, (char*)0); in DbObjCmd()
2147 Tcl_WrongNumArgs(interp, 2, objv, "CALLBACK"); in DbObjCmd()
2151 Tcl_AppendResult(interp, pDb->zBusy, (char*)0); in DbObjCmd()
2167 pDb->interp = interp; in DbObjCmd()
2187 Tcl_WrongNumArgs(interp, 1, objv, "cache option ?arg?"); in DbObjCmd()
2193 Tcl_WrongNumArgs(interp, 2, objv, "flush"); in DbObjCmd()
2200 Tcl_WrongNumArgs(interp, 2, objv, "size n"); in DbObjCmd()
2203 if( TCL_ERROR==Tcl_GetIntFromObj(interp, objv[3], &n) ){ in DbObjCmd()
2204 Tcl_AppendResult( interp, "cannot convert \"", in DbObjCmd()
2218 Tcl_AppendResult( interp, "bad option \"", in DbObjCmd()
2235 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
2238 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2248 Tcl_DeleteCommand(interp, Tcl_GetStringFromObj(objv[0], 0)); in DbObjCmd()
2264 Tcl_WrongNumArgs(interp, 2, objv, "NAME SCRIPT"); in DbObjCmd()
2271 pCollate->interp = interp; in DbObjCmd()
2278 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in DbObjCmd()
2292 Tcl_WrongNumArgs(interp, 2, objv, "SCRIPT"); in DbObjCmd()
2313 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2317 Tcl_AppendResult(interp, pDb->zCommit, (char*)0); in DbObjCmd()
2333 pDb->interp = interp; in DbObjCmd()
2353 Tcl_WrongNumArgs(interp, 2, objv, "SQL"); in DbObjCmd()
2357 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2393 Tcl_WrongNumArgs(interp, 2, objv, "?OPTION? ?BOOLEAN?"); in DbObjCmd()
2403 Tcl_ListObjAppendElement(interp, pResult, in DbObjCmd()
2405 Tcl_ListObjAppendElement(interp, pResult, in DbObjCmd()
2417 Tcl_AppendResult(interp, "unknown config option: \"", zOpt, in DbObjCmd()
2422 if( Tcl_GetBooleanFromObj(interp, objv[3], &onoff) ){ in DbObjCmd()
2429 Tcl_SetObjResult(interp, pResult); in DbObjCmd()
2472 Tcl_WrongNumArgs(interp, 2, objv, in DbObjCmd()
2492 Tcl_AppendResult(interp,"Error: non-null separator required for copy", in DbObjCmd()
2501 Tcl_AppendResult(interp, "Error: \"", zConflict, in DbObjCmd()
2508 Tcl_AppendResult(interp, "Error: no such table: ", zTable, (char*)0); in DbObjCmd()
2515 Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2526 Tcl_AppendResult(interp, "Error: can't malloc()", (char*)0); in DbObjCmd()
2541 Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2547 Tcl_AppendResult(interp, "Error: cannot open file: ", zFile, (char*)0); in DbObjCmd()
2553 Tcl_AppendResult(interp, "Error: can't malloc()", (char*)0); in DbObjCmd()
2581 Tcl_AppendResult(interp, zErr, (char*)0); in DbObjCmd()
2601 Tcl_AppendResult(interp,"Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2613 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2619 Tcl_AppendResult(interp,", failed while processing line: ",zLineNum, in DbObjCmd()
2633 Tcl_AppendResult(interp, "MEMDB not available in this build", in DbObjCmd()
2648 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? VALUE"); in DbObjCmd()
2656 rc = Tcl_GetWideIntFromObj(interp, objv[++i], &x); in DbObjCmd()
2662 rc = Tcl_GetBooleanFromObj(interp, objv[++i], &isReadonly); in DbObjCmd()
2670 Tcl_AppendResult(interp, "unknown option: ", z, (char*)0); in DbObjCmd()
2678 Tcl_AppendResult(interp, "out of memory", (char*)0); in DbObjCmd()
2690 Tcl_AppendResult(interp, "unable to set MEMDB content", (char*)0); in DbObjCmd()
2712 Tcl_WrongNumArgs(interp, 2, objv, "BOOLEAN"); in DbObjCmd()
2715 if( Tcl_GetBooleanFromObj(interp, objv[2], &onoff) ){ in DbObjCmd()
2721 Tcl_AppendResult(interp, "extension loading is turned off at compile-time", in DbObjCmd()
2734 Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_errcode(pDb->db))); in DbObjCmd()
2750 Tcl_WrongNumArgs(interp, 2, objv, "SQL"); in DbObjCmd()
2760 Tcl_ResetResult(interp); in DbObjCmd()
2766 if( pResult ) Tcl_SetObjResult(interp, pResult); in DbObjCmd()
2791 Tcl_AppendResult(interp, "unknown option: \"", zOpt, "\"", (void*)0); in DbObjCmd()
2798 Tcl_WrongNumArgs(interp, 2, objv, in DbObjCmd()
2813 Tcl_ListObjAppendElement(interp, pRet, dbEvalColumnValue(&sEval, i)); in DbObjCmd()
2818 Tcl_SetObjResult(interp, pRet); in DbObjCmd()
2839 rc = DbEvalNextCmd(cd2, interp, TCL_OK); in DbObjCmd()
2866 Tcl_WrongNumArgs(interp, 2, objv, "NAME ?SWITCHES? SCRIPT"); in DbObjCmd()
2874 Tcl_AppendResult(interp, "option requires an argument: ", z,(char*)0); in DbObjCmd()
2877 if( Tcl_GetIntFromObj(interp, objv[i+1], &nArg) ) return TCL_ERROR; in DbObjCmd()
2879 Tcl_AppendResult(interp, "number of arguments must be non-negative", in DbObjCmd()
2899 Tcl_AppendResult(interp, "option requires an argument: ", z,(char*)0); in DbObjCmd()
2903 if( Tcl_GetIndexFromObj(interp, objv[i], azType, "type", 0, &eType) ){ in DbObjCmd()
2908 Tcl_AppendResult(interp, "bad option \"", z, in DbObjCmd()
2925 pFunc->useEvalObjv = safeToUseEvalObjv(interp, pScript); in DbObjCmd()
2931 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in DbObjCmd()
2941 Tcl_AppendResult(interp, "incrblob not available in this build", (char*)0); in DbObjCmd()
2956 Tcl_WrongNumArgs(interp, 2, objv, "?-readonly? ?DB? TABLE COLUMN ROWID"); in DbObjCmd()
2965 rc = Tcl_GetWideIntFromObj(interp, objv[objc-1], &iRow); in DbObjCmd()
2969 interp, pDb, zDb, zTable, zColumn, (sqlite3_int64)iRow, isReadonly in DbObjCmd()
2997 Tcl_WrongNumArgs(interp, 2, objv, "NULLVALUE"); in DbObjCmd()
3014 Tcl_SetObjResult(interp, Tcl_NewStringObj(pDb->zNull, -1)); in DbObjCmd()
3027 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
3031 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
3048 Tcl_AppendResult(interp, pDb->zProgress, (char*)0); in DbObjCmd()
3054 if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &N) ){ in DbObjCmd()
3069 pDb->interp = interp; in DbObjCmd()
3076 Tcl_WrongNumArgs(interp, 2, objv, "N CALLBACK"); in DbObjCmd()
3090 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
3094 Tcl_AppendResult(interp, pDb->zProfile, (char*)0); in DbObjCmd()
3112 pDb->interp = interp; in DbObjCmd()
3129 Tcl_WrongNumArgs(interp, 2, objv, "KEY"); in DbObjCmd()
3154 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? FILENAME"); in DbObjCmd()
3160 Tcl_AppendResult(interp, "cannot open source database: ", in DbObjCmd()
3167 Tcl_AppendResult(interp, "restore failed: ", in DbObjCmd()
3183 Tcl_AppendResult(interp, "restore failed: source database busy", in DbObjCmd()
3187 Tcl_AppendResult(interp, "restore failed: ", in DbObjCmd()
3202 Tcl_AppendResult(interp, "MEMDB not available in this build", in DbObjCmd()
3210 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE?"); in DbObjCmd()
3221 Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(pData,sz)); in DbObjCmd()
3238 Tcl_WrongNumArgs(interp, 2, objv, "(step|sort|autoindex)"); in DbObjCmd()
3251 Tcl_AppendResult(interp, in DbObjCmd()
3256 Tcl_SetObjResult(interp, Tcl_NewIntObj(v)); in DbObjCmd()
3268 Tcl_WrongNumArgs(interp, 2, objv, "MILLISECONDS"); in DbObjCmd()
3271 if( Tcl_GetIntFromObj(interp, objv[2], &ms) ) return TCL_ERROR; in DbObjCmd()
3285 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
3288 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
3301 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
3305 Tcl_AppendResult(interp, pDb->zTrace, (char*)0); in DbObjCmd()
3323 pDb->interp = interp; in DbObjCmd()
3341 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK? ?MASK?"); in DbObjCmd()
3345 Tcl_AppendResult(interp, pDb->zTraceV2, (char*)0); in DbObjCmd()
3359 if( TCL_OK!=Tcl_ListObjLength(interp, objv[3], &len) ){ in DbObjCmd()
3365 if( TCL_OK!=Tcl_ListObjIndex(interp, objv[3], i, &pObj) ){ in DbObjCmd()
3368 if( Tcl_GetIndexFromObj(interp, pObj, TTYPE_strs, "trace type", in DbObjCmd()
3371 Tcl_Obj *pError = Tcl_DuplicateObj(Tcl_GetObjResult(interp)); in DbObjCmd()
3373 if( TCL_OK==Tcl_GetWideIntFromObj(interp, pObj, &wType) ){ in DbObjCmd()
3377 Tcl_SetObjResult(interp, pError); in DbObjCmd()
3405 pDb->interp = interp; in DbObjCmd()
3430 Tcl_WrongNumArgs(interp, 2, objv, "[TYPE] SCRIPT"); in DbObjCmd()
3442 if( Tcl_GetIndexFromObj(interp, objv[2], TTYPE_strs, "transaction type", in DbObjCmd()
3459 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3471 Tcl_NRAddCallback(interp, DbTransPostCmd, cd, 0, 0, 0); in DbObjCmd()
3472 (void)Tcl_NREvalObj(interp, pScript, 0); in DbObjCmd()
3474 rc = DbTransPostCmd(&cd, interp, Tcl_EvalObjEx(interp, pScript, 0)); in DbObjCmd()
3484 Tcl_AppendResult(interp, "unlock_notify not available in this build", in DbObjCmd()
3489 Tcl_WrongNumArgs(interp, 2, objv, "?SCRIPT?"); in DbObjCmd()
3508 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3524 Tcl_AppendResult(interp, "preupdate_hook was omitted at compile-time", in DbObjCmd()
3535 Tcl_WrongNumArgs(interp, 2, objv, "SUB-COMMAND ?ARGS?"); in DbObjCmd()
3537 if( Tcl_GetIndexFromObj(interp, objv[2], azSub, "sub-command", 0, &iSub) ){ in DbObjCmd()
3544 Tcl_SetObjResult(interp, Tcl_NewIntObj(nCol)); in DbObjCmd()
3550 Tcl_WrongNumArgs(interp, 2, objv, "hook ?SCRIPT?"); in DbObjCmd()
3553 DbHookCmd(interp, pDb, (objc==4 ? objv[3] : 0), &pDb->pPreUpdateHook); in DbObjCmd()
3560 Tcl_WrongNumArgs(interp, 3, objv, ""); in DbObjCmd()
3564 Tcl_SetObjResult(interp, pRet); in DbObjCmd()
3573 Tcl_WrongNumArgs(interp, 3, objv, "INDEX"); in DbObjCmd()
3576 if( Tcl_GetIntFromObj(interp, objv[3], &iIdx) ){ in DbObjCmd()
3590 Tcl_SetObjResult(interp, pObj); in DbObjCmd()
3592 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3617 Tcl_WrongNumArgs(interp, 2, objv, "?SCRIPT?"); in DbObjCmd()
3621 DbHookCmd(interp, pDb, (objc==3 ? objv[2] : 0), ppHook); in DbObjCmd()
3641 if( Tcl_GetBooleanFromObj(interp, objv[i], &pDb->bLegacyPrepare) ){ in DbObjCmd()
3655 Tcl_SetResult(interp, zBuf, TCL_VOLATILE); in DbObjCmd()
3659 Tcl_AppendResult(interp, "unknown argument: ", zArg, (char*)0); in DbObjCmd()
3664 Tcl_SetResult(interp, (char *)sqlite3_libversion(), TCL_STATIC); in DbObjCmd()
3681 Tcl_Interp *interp, in DbObjCmdAdaptor() argument
3685 return Tcl_NRCallObjProc(interp, DbObjCmd, cd, objc, objv); in DbObjCmdAdaptor()
3694 Tcl_Interp *interp, in sqliteCmdUsage() argument
3697 Tcl_WrongNumArgs(interp, 1, objv, in sqliteCmdUsage()
3723 Tcl_Interp *interp, in DbMain() argument
3750 if( objc==1 ) return sqliteCmdUsage(interp, objv); in DbMain()
3754 Tcl_AppendResult(interp,sqlite3_libversion(), (char*)0); in DbMain()
3758 Tcl_AppendResult(interp,sqlite3_sourceid(), (char*)0); in DbMain()
3762 Tcl_AppendResult(interp,"0",(char*)0); in DbMain()
3765 if( zArg[0]=='-' ) return sqliteCmdUsage(interp, objv); in DbMain()
3770 if( zFile!=0 ) return sqliteCmdUsage(interp, objv); in DbMain()
3774 if( i==objc-1 ) return sqliteCmdUsage(interp, objv); in DbMain()
3782 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3792 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3800 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3808 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3817 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()
3833 if( Tcl_GetBooleanFromObj(interp, objv[i], &bTranslateFileName) ){ in DbMain()
3837 Tcl_AppendResult(interp, "unknown option: ", zArg, (char*)0); in DbMain()
3846 zFile = Tcl_TranslateFileName(interp, zFile, &translatedFilename); in DbMain()
3862 Tcl_SetResult(interp, zErrMsg, TCL_VOLATILE); in DbMain()
3869 p->interp = interp; in DbMain()
3872 Tcl_NRCreateCommand(interp, zArg, DbObjCmdAdaptor, DbObjCmd, in DbMain()
3875 Tcl_CreateObjCommand(interp, zArg, DbObjCmd, (char*)p, DbDeleteCmd); in DbMain()
3910 EXTERN int Sqlite3_Init(Tcl_Interp *interp){ in Sqlite3_Init() argument
3911 int rc = Tcl_InitStubs(interp, "8.4", 0) ? TCL_OK : TCL_ERROR; in Sqlite3_Init()
3913 Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); in Sqlite3_Init()
3918 Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0); in Sqlite3_Init()
3920 rc = Tcl_PkgProvide(interp, "sqlite3", PACKAGE_VERSION); in Sqlite3_Init()
3924 EXTERN int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Tclsqlite3_Init() argument
3925 EXTERN int Sqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Sqlite3_Unload() argument
3926 EXTERN int Tclsqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Tclsqlite3_Unload() argument
3932 EXTERN int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_ERROR; } in Sqlite3_SafeInit() argument
3933 EXTERN int Sqlite3_SafeUnload(Tcl_Interp *interp, int flags){return TCL_ERROR;} in Sqlite3_SafeUnload() argument
3938 int Sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Sqlite_Init() argument
3939 int Tclsqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Tclsqlite_Init() argument
3940 int Sqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Sqlite_Unload() argument
3941 int Tclsqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Tclsqlite_Unload() argument
3989 Tcl_Interp *interp; in TCLSH_MAIN() local
4021 interp = Tcl_CreateInterp(); in TCLSH_MAIN()
4022 Sqlite3_Init(interp); in TCLSH_MAIN()
4025 Tcl_SetVar(interp,"argc", zArgc, TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4026 Tcl_SetVar(interp,"argv0",argv[0],TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4027 Tcl_SetVar(interp,"argv", "", TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4029 Tcl_SetVar(interp, "argv", argv[i], in TCLSH_MAIN()
4033 zScript = TCLSH_INIT_PROC(interp); in TCLSH_MAIN()
4038 if( Tcl_GlobalEval(interp, zScript)!=TCL_OK ){ in TCLSH_MAIN()
4039 const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4040 if( zInfo==0 ) zInfo = Tcl_GetStringResult(interp); in TCLSH_MAIN()