Lines Matching refs:interp
107 Tcl_Interp *interp; /* The TCL interpret to execute the function */ member
122 Tcl_Interp *interp; /* The TCL interpret to execute the function */ member
155 Tcl_Interp *interp; /* The interpreter used for this database */ member
226 Tcl_UnregisterChannel(pDb->interp, p->channel); in closeIncrblobChannels()
235 Tcl_Interp *interp in incrblobClose() argument
256 Tcl_SetResult(interp, (char *)sqlite3_errmsg(db), TCL_VOLATILE); in incrblobClose()
392 Tcl_Interp *interp, in createIncrblobChannel() argument
412 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in createIncrblobChannel()
422 Tcl_RegisterChannel(interp, p->channel); in createIncrblobChannel()
433 Tcl_SetResult(interp, (char *)Tcl_GetChannelName(p->channel), TCL_VOLATILE); in createIncrblobChannel()
452 static int safeToUseEvalObjv(Tcl_Interp *interp, Tcl_Obj *pCmd){ in safeToUseEvalObjv() argument
484 pNew->interp = pDb->interp; in findSqlFunc()
611 rc = Tcl_VarEval(pDb->interp, pDb->zBusy, " ", zVal, (char*)0); in DbBusyHandler()
612 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbBusyHandler()
627 rc = Tcl_Eval(pDb->interp, pDb->zProgress); in DbProgressHandler()
628 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbProgressHandler()
648 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str)); in DbTraceHandler()
650 Tcl_ResetResult(pDb->interp); in DbTraceHandler()
677 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
679 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
681 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
683 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
692 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
694 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
696 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
698 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
706 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
708 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
710 Tcl_ResetResult(pDb->interp); 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()
746 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str)); in DbProfileHandler()
748 Tcl_ResetResult(pDb->interp); in DbProfileHandler()
762 rc = Tcl_Eval(pDb->interp, pDb->zCommit); in DbCommitHandler()
763 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbCommitHandler()
772 if( TCL_OK!=Tcl_EvalObjEx(pDb->interp, pDb->pRollbackHook, 0) ){ in DbRollbackHandler()
773 Tcl_BackgroundError(pDb->interp); in DbRollbackHandler()
789 Tcl_Interp *interp = pDb->interp; in DbWalHandler() local
795 Tcl_ListObjAppendElement(interp, p, Tcl_NewStringObj(zDb, -1)); in DbWalHandler()
796 Tcl_ListObjAppendElement(interp, p, Tcl_NewIntObj(nEntry)); in DbWalHandler()
797 if( TCL_OK!=Tcl_EvalObjEx(interp, p, 0) in DbWalHandler()
798 || TCL_OK!=Tcl_GetIntFromObj(interp, Tcl_GetObjResult(interp), &ret) in DbWalHandler()
800 Tcl_BackgroundError(interp); in DbWalHandler()
808 static void setTestUnlockNotifyVars(Tcl_Interp *interp, int iArg, int nArg){ in setTestUnlockNotifyVars() argument
811 Tcl_SetVar(interp, "sqlite_unlock_notify_arg", zBuf, TCL_GLOBAL_ONLY); in setTestUnlockNotifyVars()
813 Tcl_SetVar(interp, "sqlite_unlock_notify_argcount", zBuf, TCL_GLOBAL_ONLY); in setTestUnlockNotifyVars()
825 setTestUnlockNotifyVars(pDb->interp, i, nArg); in DbUnlockNotify()
827 Tcl_EvalObjEx(pDb->interp, pDb->pUnlockNotify, flags); in DbUnlockNotify()
865 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbPreUpdateHandler()
894 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbUpdateHandler()
908 Tcl_EvalObjEx(pDb->interp, pScript, 0); in tclCollateNeeded()
928 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zA, nA)); in tclSqlCollate()
929 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zB, nB)); in tclSqlCollate()
930 Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT); in tclSqlCollate()
932 return (atoi(Tcl_GetStringResult(p->interp))); in tclSqlCollate()
952 rc = Tcl_EvalObjEx(p->interp, pCmd, 0); in tclSqlFunc()
966 if( Tcl_ListObjGetElements(p->interp, p->pScript, &nArg, &aArg) ){ in tclSqlFunc()
967 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1007 rc = Tcl_ListObjAppendElement(p->interp, pCmd, pVal); in tclSqlFunc()
1010 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1020 rc = Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT); in tclSqlFunc()
1025 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1027 Tcl_Obj *pVar = Tcl_GetObjResult(p->interp); in tclSqlFunc()
1162 rc = Tcl_GlobalEval(pDb->interp, Tcl_DStringValue(&str)); in auth_callback()
1164 zReply = rc==TCL_OK ? Tcl_GetStringResult(pDb->interp) : "SQLITE_DENY"; in auth_callback()
1234 Tcl_Interp *interp, /* Tcl interpreter */ in DbTransPostCmd() argument
1263 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbTransPostCmd()
1332 Tcl_Interp *interp = pDb->interp; in dbPrepareAndBind() local
1375 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3_errmsg(pDb->db), -1)); in dbPrepareAndBind()
1381 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3_errmsg(pDb->db), -1)); in dbPrepareAndBind()
1418 Tcl_Obj *pVar = Tcl_GetVar2Ex(interp, &zVar[1], 0, 0); in dbPrepareAndBind()
1424 Tcl_ListObjAppendElement(interp, pCmd, Tcl_NewStringObj(zVar,-1)); in dbPrepareAndBind()
1425 if( needResultReset ) Tcl_ResetResult(interp); in dbPrepareAndBind()
1427 rx = Tcl_EvalObjEx(interp, pCmd, TCL_EVAL_DIRECT); in dbPrepareAndBind()
1430 pVar = Tcl_GetObjResult(interp); in dbPrepareAndBind()
1453 Tcl_GetIntFromObj(interp, pVar, &n); in dbPrepareAndBind()
1457 Tcl_GetDoubleFromObj(interp, pVar, &r); in dbPrepareAndBind()
1462 Tcl_GetWideIntFromObj(interp, pVar, &v); in dbPrepareAndBind()
1473 if( needResultReset ) Tcl_ResetResult(pDb->interp); in dbPrepareAndBind()
1478 if( needResultReset && rc==TCL_OK ) Tcl_ResetResult(pDb->interp); in dbPrepareAndBind()
1637 Tcl_Interp *interp = p->pDb->interp; in dbEvalRowInfo() local
1642 Tcl_ListObjAppendElement(interp, pColList, apColName[i]); in dbEvalRowInfo()
1645 Tcl_ObjSetVar2(interp, p->pArray, pStar, pColList, 0); in dbEvalRowInfo()
1715 Tcl_SetObjResult(pDb->interp, in dbEvalStep()
1819 Tcl_Interp *interp, /* Tcl interpreter */ in DbEvalNextCmd() argument
1839 Tcl_ObjSetVar2(interp, apColName[i], 0, dbEvalColumnValue(p,i), 0); in DbEvalNextCmd()
1843 Tcl_UnsetVar2(interp, Tcl_GetString(pArray), in DbEvalNextCmd()
1846 Tcl_ObjSetVar2(interp, pArray, apColName[i], dbEvalColumnValue(p,i), 0); in DbEvalNextCmd()
1860 Tcl_NRAddCallback(interp, DbEvalNextCmd, (void*)p, (void*)pScript, 0, 0); in DbEvalNextCmd()
1861 return Tcl_NREvalObj(interp, pScript, 0); in DbEvalNextCmd()
1863 rc = Tcl_EvalObjEx(interp, pScript, 0); in DbEvalNextCmd()
1872 Tcl_ResetResult(interp); in DbEvalNextCmd()
1888 Tcl_Interp *interp, /* Tcl interpreter */ in DbHookCmd() argument
1896 Tcl_SetObjResult(interp, *ppHook); in DbHookCmd()
1933 Tcl_Interp *interp, in DbObjCmd() argument
1976 Tcl_WrongNumArgs(interp, 1, objv, "SUBCOMMAND ..."); in DbObjCmd()
1979 if( Tcl_GetIndexFromObj(interp, objv[1], DB_strs, "option", 0, &choice) ){ in DbObjCmd()
2005 Tcl_AppendResult(interp, "authorization not available in this build", in DbObjCmd()
2010 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2014 Tcl_AppendResult(interp, pDb->zAuth, (char*)0); in DbObjCmd()
2033 pDb->interp = interp; in DbObjCmd()
2062 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? FILENAME"); in DbObjCmd()
2068 Tcl_AppendResult(interp, "cannot open target database: ", in DbObjCmd()
2075 Tcl_AppendResult(interp, "backup failed: ", in DbObjCmd()
2085 Tcl_AppendResult(interp, "backup failed: ", in DbObjCmd()
2113 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2117 Tcl_AppendResult(interp, pDb->zBindFallback, (char*)0); in DbObjCmd()
2143 Tcl_WrongNumArgs(interp, 2, objv, "CALLBACK"); in DbObjCmd()
2147 Tcl_AppendResult(interp, pDb->zBusy, (char*)0); in DbObjCmd()
2163 pDb->interp = interp; in DbObjCmd()
2183 Tcl_WrongNumArgs(interp, 1, objv, "cache option ?arg?"); in DbObjCmd()
2189 Tcl_WrongNumArgs(interp, 2, objv, "flush"); in DbObjCmd()
2196 Tcl_WrongNumArgs(interp, 2, objv, "size n"); in DbObjCmd()
2199 if( TCL_ERROR==Tcl_GetIntFromObj(interp, objv[3], &n) ){ in DbObjCmd()
2200 Tcl_AppendResult( interp, "cannot convert \"", in DbObjCmd()
2214 Tcl_AppendResult( interp, "bad option \"", in DbObjCmd()
2231 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
2234 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2244 Tcl_DeleteCommand(interp, Tcl_GetStringFromObj(objv[0], 0)); in DbObjCmd()
2260 Tcl_WrongNumArgs(interp, 2, objv, "NAME SCRIPT"); in DbObjCmd()
2267 pCollate->interp = interp; in DbObjCmd()
2274 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in DbObjCmd()
2288 Tcl_WrongNumArgs(interp, 2, objv, "SCRIPT"); in DbObjCmd()
2309 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2313 Tcl_AppendResult(interp, pDb->zCommit, (char*)0); in DbObjCmd()
2329 pDb->interp = interp; in DbObjCmd()
2349 Tcl_WrongNumArgs(interp, 2, objv, "SQL"); in DbObjCmd()
2353 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2389 Tcl_WrongNumArgs(interp, 2, objv, "?OPTION? ?BOOLEAN?"); in DbObjCmd()
2399 Tcl_ListObjAppendElement(interp, pResult, in DbObjCmd()
2401 Tcl_ListObjAppendElement(interp, pResult, in DbObjCmd()
2413 Tcl_AppendResult(interp, "unknown config option: \"", zOpt, in DbObjCmd()
2418 if( Tcl_GetBooleanFromObj(interp, objv[3], &onoff) ){ in DbObjCmd()
2425 Tcl_SetObjResult(interp, pResult); in DbObjCmd()
2468 Tcl_WrongNumArgs(interp, 2, objv, in DbObjCmd()
2488 Tcl_AppendResult(interp,"Error: non-null separator required for copy", in DbObjCmd()
2497 Tcl_AppendResult(interp, "Error: \"", zConflict, in DbObjCmd()
2504 Tcl_AppendResult(interp, "Error: no such table: ", zTable, (char*)0); in DbObjCmd()
2511 Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2522 Tcl_AppendResult(interp, "Error: can't malloc()", (char*)0); in DbObjCmd()
2537 Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2543 Tcl_AppendResult(interp, "Error: cannot open file: ", zFile, (char*)0); in DbObjCmd()
2549 Tcl_AppendResult(interp, "Error: can't malloc()", (char*)0); in DbObjCmd()
2577 Tcl_AppendResult(interp, zErr, (char*)0); in DbObjCmd()
2597 Tcl_AppendResult(interp,"Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2609 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2615 Tcl_AppendResult(interp,", failed while processing line: ",zLineNum, in DbObjCmd()
2629 Tcl_AppendResult(interp, "MEMDB not available in this build", in DbObjCmd()
2644 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? VALUE"); in DbObjCmd()
2652 rc = Tcl_GetWideIntFromObj(interp, objv[++i], &x); in DbObjCmd()
2658 rc = Tcl_GetBooleanFromObj(interp, objv[++i], &isReadonly); in DbObjCmd()
2666 Tcl_AppendResult(interp, "unknown option: ", z, (char*)0); in DbObjCmd()
2674 Tcl_AppendResult(interp, "out of memory", (char*)0); in DbObjCmd()
2686 Tcl_AppendResult(interp, "unable to set MEMDB content", (char*)0); in DbObjCmd()
2708 Tcl_WrongNumArgs(interp, 2, objv, "BOOLEAN"); in DbObjCmd()
2711 if( Tcl_GetBooleanFromObj(interp, objv[2], &onoff) ){ in DbObjCmd()
2717 Tcl_AppendResult(interp, "extension loading is turned off at compile-time", in DbObjCmd()
2730 Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_errcode(pDb->db))); in DbObjCmd()
2741 Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_error_offset(pDb->db))); in DbObjCmd()
2757 Tcl_WrongNumArgs(interp, 2, objv, "SQL"); in DbObjCmd()
2767 Tcl_ResetResult(interp); in DbObjCmd()
2773 if( pResult ) Tcl_SetObjResult(interp, pResult); in DbObjCmd()
2798 Tcl_AppendResult(interp, "unknown option: \"", zOpt, "\"", (void*)0); in DbObjCmd()
2805 Tcl_WrongNumArgs(interp, 2, objv, in DbObjCmd()
2820 Tcl_ListObjAppendElement(interp, pRet, dbEvalColumnValue(&sEval, i)); in DbObjCmd()
2825 Tcl_SetObjResult(interp, pRet); in DbObjCmd()
2846 rc = DbEvalNextCmd(cd2, interp, TCL_OK); in DbObjCmd()
2873 Tcl_WrongNumArgs(interp, 2, objv, "NAME ?SWITCHES? SCRIPT"); in DbObjCmd()
2881 Tcl_AppendResult(interp, "option requires an argument: ", z,(char*)0); in DbObjCmd()
2884 if( Tcl_GetIntFromObj(interp, objv[i+1], &nArg) ) return TCL_ERROR; in DbObjCmd()
2886 Tcl_AppendResult(interp, "number of arguments must be non-negative", in DbObjCmd()
2906 Tcl_AppendResult(interp, "option requires an argument: ", z,(char*)0); in DbObjCmd()
2910 if( Tcl_GetIndexFromObj(interp, objv[i], azType, "type", 0, &eType) ){ in DbObjCmd()
2915 Tcl_AppendResult(interp, "bad option \"", z, in DbObjCmd()
2932 pFunc->useEvalObjv = safeToUseEvalObjv(interp, pScript); in DbObjCmd()
2938 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in DbObjCmd()
2948 Tcl_AppendResult(interp, "incrblob not available in this build", (char*)0); in DbObjCmd()
2963 Tcl_WrongNumArgs(interp, 2, objv, "?-readonly? ?DB? TABLE COLUMN ROWID"); in DbObjCmd()
2972 rc = Tcl_GetWideIntFromObj(interp, objv[objc-1], &iRow); in DbObjCmd()
2976 interp, pDb, zDb, zTable, zColumn, (sqlite3_int64)iRow, isReadonly in DbObjCmd()
3004 Tcl_WrongNumArgs(interp, 2, objv, "NULLVALUE"); in DbObjCmd()
3021 Tcl_SetObjResult(interp, Tcl_NewStringObj(pDb->zNull, -1)); in DbObjCmd()
3034 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
3038 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
3055 Tcl_AppendResult(interp, pDb->zProgress, (char*)0); in DbObjCmd()
3061 if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &N) ){ in DbObjCmd()
3076 pDb->interp = interp; in DbObjCmd()
3083 Tcl_WrongNumArgs(interp, 2, objv, "N CALLBACK"); in DbObjCmd()
3097 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
3101 Tcl_AppendResult(interp, pDb->zProfile, (char*)0); in DbObjCmd()
3119 pDb->interp = interp; in DbObjCmd()
3136 Tcl_WrongNumArgs(interp, 2, objv, "KEY"); in DbObjCmd()
3161 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? FILENAME"); in DbObjCmd()
3167 Tcl_AppendResult(interp, "cannot open source database: ", in DbObjCmd()
3174 Tcl_AppendResult(interp, "restore failed: ", in DbObjCmd()
3190 Tcl_AppendResult(interp, "restore failed: source database busy", in DbObjCmd()
3194 Tcl_AppendResult(interp, "restore failed: ", in DbObjCmd()
3209 Tcl_AppendResult(interp, "MEMDB not available in this build", in DbObjCmd()
3217 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE?"); in DbObjCmd()
3228 Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(pData,sz)); in DbObjCmd()
3245 Tcl_WrongNumArgs(interp, 2, objv, "(step|sort|autoindex)"); in DbObjCmd()
3258 Tcl_AppendResult(interp, in DbObjCmd()
3263 Tcl_SetObjResult(interp, Tcl_NewIntObj(v)); in DbObjCmd()
3275 Tcl_WrongNumArgs(interp, 2, objv, "MILLISECONDS"); in DbObjCmd()
3278 if( Tcl_GetIntFromObj(interp, objv[2], &ms) ) return TCL_ERROR; in DbObjCmd()
3292 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
3295 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
3308 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
3312 Tcl_AppendResult(interp, pDb->zTrace, (char*)0); in DbObjCmd()
3330 pDb->interp = interp; in DbObjCmd()
3348 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK? ?MASK?"); in DbObjCmd()
3352 Tcl_AppendResult(interp, pDb->zTraceV2, (char*)0); in DbObjCmd()
3366 if( TCL_OK!=Tcl_ListObjLength(interp, objv[3], &len) ){ in DbObjCmd()
3372 if( TCL_OK!=Tcl_ListObjIndex(interp, objv[3], i, &pObj) ){ in DbObjCmd()
3375 if( Tcl_GetIndexFromObj(interp, pObj, TTYPE_strs, "trace type", in DbObjCmd()
3378 Tcl_Obj *pError = Tcl_DuplicateObj(Tcl_GetObjResult(interp)); in DbObjCmd()
3380 if( TCL_OK==Tcl_GetWideIntFromObj(interp, pObj, &wType) ){ in DbObjCmd()
3384 Tcl_SetObjResult(interp, pError); in DbObjCmd()
3412 pDb->interp = interp; in DbObjCmd()
3437 Tcl_WrongNumArgs(interp, 2, objv, "[TYPE] SCRIPT"); in DbObjCmd()
3449 if( Tcl_GetIndexFromObj(interp, objv[2], TTYPE_strs, "transaction type", in DbObjCmd()
3466 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3478 Tcl_NRAddCallback(interp, DbTransPostCmd, cd, 0, 0, 0); in DbObjCmd()
3479 (void)Tcl_NREvalObj(interp, pScript, 0); in DbObjCmd()
3481 rc = DbTransPostCmd(&cd, interp, Tcl_EvalObjEx(interp, pScript, 0)); in DbObjCmd()
3491 Tcl_AppendResult(interp, "unlock_notify not available in this build", in DbObjCmd()
3496 Tcl_WrongNumArgs(interp, 2, objv, "?SCRIPT?"); in DbObjCmd()
3515 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3531 Tcl_AppendResult(interp, "preupdate_hook was omitted at compile-time", in DbObjCmd()
3542 Tcl_WrongNumArgs(interp, 2, objv, "SUB-COMMAND ?ARGS?"); in DbObjCmd()
3544 if( Tcl_GetIndexFromObj(interp, objv[2], azSub, "sub-command", 0, &iSub) ){ in DbObjCmd()
3551 Tcl_SetObjResult(interp, Tcl_NewIntObj(nCol)); in DbObjCmd()
3557 Tcl_WrongNumArgs(interp, 2, objv, "hook ?SCRIPT?"); in DbObjCmd()
3560 DbHookCmd(interp, pDb, (objc==4 ? objv[3] : 0), &pDb->pPreUpdateHook); in DbObjCmd()
3567 Tcl_WrongNumArgs(interp, 3, objv, ""); in DbObjCmd()
3571 Tcl_SetObjResult(interp, pRet); in DbObjCmd()
3580 Tcl_WrongNumArgs(interp, 3, objv, "INDEX"); in DbObjCmd()
3583 if( Tcl_GetIntFromObj(interp, objv[3], &iIdx) ){ in DbObjCmd()
3597 Tcl_SetObjResult(interp, pObj); in DbObjCmd()
3599 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3624 Tcl_WrongNumArgs(interp, 2, objv, "?SCRIPT?"); in DbObjCmd()
3628 DbHookCmd(interp, pDb, (objc==3 ? objv[2] : 0), ppHook); in DbObjCmd()
3648 if( Tcl_GetBooleanFromObj(interp, objv[i], &pDb->bLegacyPrepare) ){ in DbObjCmd()
3662 Tcl_SetResult(interp, zBuf, TCL_VOLATILE); in DbObjCmd()
3666 Tcl_AppendResult(interp, "unknown argument: ", zArg, (char*)0); in DbObjCmd()
3671 Tcl_SetResult(interp, (char *)sqlite3_libversion(), TCL_STATIC); in DbObjCmd()
3688 Tcl_Interp *interp, in DbObjCmdAdaptor() argument
3692 return Tcl_NRCallObjProc(interp, DbObjCmd, cd, objc, objv); in DbObjCmdAdaptor()
3701 Tcl_Interp *interp, in sqliteCmdUsage() argument
3704 Tcl_WrongNumArgs(interp, 1, objv, in sqliteCmdUsage()
3730 Tcl_Interp *interp, in DbMain() argument
3757 if( objc==1 ) return sqliteCmdUsage(interp, objv); in DbMain()
3761 Tcl_AppendResult(interp,sqlite3_libversion(), (char*)0); in DbMain()
3765 Tcl_AppendResult(interp,sqlite3_sourceid(), (char*)0); in DbMain()
3769 Tcl_AppendResult(interp,"0",(char*)0); in DbMain()
3772 if( zArg[0]=='-' ) return sqliteCmdUsage(interp, objv); in DbMain()
3777 if( zFile!=0 ) return sqliteCmdUsage(interp, objv); in DbMain()
3781 if( i==objc-1 ) return sqliteCmdUsage(interp, objv); in DbMain()
3789 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()
3807 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3815 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3824 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3833 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3840 if( Tcl_GetBooleanFromObj(interp, objv[i], &bTranslateFileName) ){ in DbMain()
3844 Tcl_AppendResult(interp, "unknown option: ", zArg, (char*)0); in DbMain()
3853 zFile = Tcl_TranslateFileName(interp, zFile, &translatedFilename); in DbMain()
3869 Tcl_SetResult(interp, zErrMsg, TCL_VOLATILE); in DbMain()
3876 p->interp = interp; in DbMain()
3879 Tcl_NRCreateCommand(interp, zArg, DbObjCmdAdaptor, DbObjCmd, in DbMain()
3882 Tcl_CreateObjCommand(interp, zArg, DbObjCmd, (char*)p, DbDeleteCmd); in DbMain()
3917 EXTERN int Sqlite3_Init(Tcl_Interp *interp){ in Sqlite3_Init() argument
3918 int rc = Tcl_InitStubs(interp, "8.4", 0) ? TCL_OK : TCL_ERROR; in Sqlite3_Init()
3920 Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); in Sqlite3_Init()
3925 Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0); in Sqlite3_Init()
3927 rc = Tcl_PkgProvide(interp, "sqlite3", PACKAGE_VERSION); in Sqlite3_Init()
3931 EXTERN int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Tclsqlite3_Init() argument
3932 EXTERN int Sqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Sqlite3_Unload() argument
3933 EXTERN int Tclsqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Tclsqlite3_Unload() argument
3939 EXTERN int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_ERROR; } in Sqlite3_SafeInit() argument
3940 EXTERN int Sqlite3_SafeUnload(Tcl_Interp *interp, int flags){return TCL_ERROR;} in Sqlite3_SafeUnload() argument
3945 int Sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Sqlite_Init() argument
3946 int Tclsqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Tclsqlite_Init() argument
3947 int Sqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Sqlite_Unload() argument
3948 int Tclsqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Tclsqlite_Unload() argument
3996 Tcl_Interp *interp; in TCLSH_MAIN() local
4028 interp = Tcl_CreateInterp(); in TCLSH_MAIN()
4029 Sqlite3_Init(interp); in TCLSH_MAIN()
4032 Tcl_SetVar(interp,"argc", zArgc, TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4033 Tcl_SetVar(interp,"argv0",argv[0],TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4034 Tcl_SetVar(interp,"argv", "", TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4036 Tcl_SetVar(interp, "argv", argv[i], in TCLSH_MAIN()
4040 zScript = TCLSH_INIT_PROC(interp); in TCLSH_MAIN()
4045 if( Tcl_GlobalEval(interp, zScript)!=TCL_OK ){ in TCLSH_MAIN()
4046 const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4047 if( zInfo==0 ) zInfo = Tcl_GetStringResult(interp); in TCLSH_MAIN()