Lines Matching refs:interp
142 Tcl_Interp *interp; /* The TCL interpret to execute the function */ member
157 Tcl_Interp *interp; /* The TCL interpret to execute the function */ member
190 Tcl_Interp *interp; /* The interpreter used for this database */ member
262 Tcl_UnregisterChannel(pDb->interp, p->channel); in closeIncrblobChannels()
271 Tcl_Interp *interp, in incrblobClose2() argument
301 Tcl_SetResult(interp, (char *)sqlite3_errmsg(db), TCL_VOLATILE); in incrblobClose2()
308 Tcl_Interp *interp in incrblobClose() argument
310 return incrblobClose2(instanceData, interp, 0); in incrblobClose()
459 Tcl_Interp *interp, in createIncrblobChannel() argument
479 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in createIncrblobChannel()
490 Tcl_RegisterChannel(interp, p->channel); in createIncrblobChannel()
501 Tcl_SetResult(interp, (char *)Tcl_GetChannelName(p->channel), TCL_VOLATILE); in createIncrblobChannel()
552 pNew->interp = pDb->interp; in findSqlFunc()
679 rc = Tcl_VarEval(pDb->interp, pDb->zBusy, " ", zVal, (char*)0); in DbBusyHandler()
680 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbBusyHandler()
695 rc = Tcl_Eval(pDb->interp, pDb->zProgress); in DbProgressHandler()
696 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbProgressHandler()
716 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str)); in DbTraceHandler()
718 Tcl_ResetResult(pDb->interp); in DbTraceHandler()
745 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
747 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
749 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
751 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
760 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
762 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
764 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
766 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
774 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
776 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
778 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
786 Tcl_ListObjAppendElement(pDb->interp, pCmd, in DbTraceV2Handler()
788 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbTraceV2Handler()
790 Tcl_ResetResult(pDb->interp); in DbTraceV2Handler()
814 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str)); in DbProfileHandler()
816 Tcl_ResetResult(pDb->interp); in DbProfileHandler()
830 rc = Tcl_Eval(pDb->interp, pDb->zCommit); in DbCommitHandler()
831 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){ in DbCommitHandler()
840 if( TCL_OK!=Tcl_EvalObjEx(pDb->interp, pDb->pRollbackHook, 0) ){ in DbRollbackHandler()
841 Tcl_BackgroundError(pDb->interp); in DbRollbackHandler()
857 Tcl_Interp *interp = pDb->interp; in DbWalHandler() local
863 Tcl_ListObjAppendElement(interp, p, Tcl_NewStringObj(zDb, -1)); in DbWalHandler()
864 Tcl_ListObjAppendElement(interp, p, Tcl_NewIntObj(nEntry)); in DbWalHandler()
865 if( TCL_OK!=Tcl_EvalObjEx(interp, p, 0) in DbWalHandler()
866 || TCL_OK!=Tcl_GetIntFromObj(interp, Tcl_GetObjResult(interp), &ret) in DbWalHandler()
868 Tcl_BackgroundError(interp); in DbWalHandler()
876 static void setTestUnlockNotifyVars(Tcl_Interp *interp, int iArg, int nArg){ in setTestUnlockNotifyVars() argument
879 Tcl_SetVar(interp, "sqlite_unlock_notify_arg", zBuf, TCL_GLOBAL_ONLY); in setTestUnlockNotifyVars()
881 Tcl_SetVar(interp, "sqlite_unlock_notify_argcount", zBuf, TCL_GLOBAL_ONLY); in setTestUnlockNotifyVars()
893 setTestUnlockNotifyVars(pDb->interp, i, nArg); in DbUnlockNotify()
895 Tcl_EvalObjEx(pDb->interp, pDb->pUnlockNotify, flags); in DbUnlockNotify()
933 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbPreUpdateHandler()
962 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); in DbUpdateHandler()
976 Tcl_EvalObjEx(pDb->interp, pScript, 0); in tclCollateNeeded()
996 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zA, nA)); in tclSqlCollate()
997 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zB, nB)); in tclSqlCollate()
998 Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT); in tclSqlCollate()
1000 return (atoi(Tcl_GetStringResult(p->interp))); in tclSqlCollate()
1020 rc = Tcl_EvalObjEx(p->interp, pCmd, 0); in tclSqlFunc()
1034 if( Tcl_ListObjGetElements(p->interp, p->pScript, &nArg, &aArg) ){ in tclSqlFunc()
1035 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1075 rc = Tcl_ListObjAppendElement(p->interp, pCmd, pVal); in tclSqlFunc()
1078 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1088 rc = Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT); in tclSqlFunc()
1093 sqlite3_result_error(context, Tcl_GetStringResult(p->interp), -1); in tclSqlFunc()
1095 Tcl_Obj *pVar = Tcl_GetObjResult(p->interp); in tclSqlFunc()
1226 rc = Tcl_GlobalEval(pDb->interp, Tcl_DStringValue(&str)); in auth_callback()
1228 zReply = rc==TCL_OK ? Tcl_GetStringResult(pDb->interp) : "SQLITE_DENY"; in auth_callback()
1300 Tcl_Interp *interp, /* Tcl interpreter */ in DbTransPostCmd() argument
1329 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbTransPostCmd()
1398 Tcl_Interp *interp = pDb->interp; in dbPrepareAndBind() local
1441 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3_errmsg(pDb->db), -1)); in dbPrepareAndBind()
1447 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3_errmsg(pDb->db), -1)); in dbPrepareAndBind()
1484 Tcl_Obj *pVar = Tcl_GetVar2Ex(interp, &zVar[1], 0, 0); in dbPrepareAndBind()
1490 Tcl_ListObjAppendElement(interp, pCmd, Tcl_NewStringObj(zVar,-1)); in dbPrepareAndBind()
1491 if( needResultReset ) Tcl_ResetResult(interp); in dbPrepareAndBind()
1493 rx = Tcl_EvalObjEx(interp, pCmd, TCL_EVAL_DIRECT); in dbPrepareAndBind()
1496 pVar = Tcl_GetObjResult(interp); in dbPrepareAndBind()
1523 Tcl_GetBooleanFromObj(interp, pVar, &nn); in dbPrepareAndBind()
1527 Tcl_GetDoubleFromObj(interp, pVar, &r); in dbPrepareAndBind()
1532 Tcl_GetWideIntFromObj(interp, pVar, &v); in dbPrepareAndBind()
1544 if( needResultReset ) Tcl_ResetResult(pDb->interp); in dbPrepareAndBind()
1549 if( needResultReset && rc==TCL_OK ) Tcl_ResetResult(pDb->interp); in dbPrepareAndBind()
1708 Tcl_Interp *interp = p->pDb->interp; in dbEvalRowInfo() local
1713 Tcl_ListObjAppendElement(interp, pColList, apColName[i]); in dbEvalRowInfo()
1716 Tcl_ObjSetVar2(interp, p->pArray, pStar, pColList, 0); in dbEvalRowInfo()
1786 Tcl_SetObjResult(pDb->interp, in dbEvalStep()
1891 Tcl_Interp *interp, /* Tcl interpreter */ in DbEvalNextCmd() argument
1911 Tcl_ObjSetVar2(interp, apColName[i], 0, dbEvalColumnValue(p,i), 0); in DbEvalNextCmd()
1915 Tcl_UnsetVar2(interp, Tcl_GetString(pArray), in DbEvalNextCmd()
1918 Tcl_ObjSetVar2(interp, pArray, apColName[i], dbEvalColumnValue(p,i), 0); in DbEvalNextCmd()
1932 Tcl_NRAddCallback(interp, DbEvalNextCmd, (void*)p, (void*)pScript, 0, 0); in DbEvalNextCmd()
1933 return Tcl_NREvalObj(interp, pScript, 0); in DbEvalNextCmd()
1935 rc = Tcl_EvalObjEx(interp, pScript, 0); in DbEvalNextCmd()
1944 Tcl_ResetResult(interp); in DbEvalNextCmd()
1960 Tcl_Interp *interp, /* Tcl interpreter */ in DbHookCmd() argument
1968 Tcl_SetObjResult(interp, *ppHook); in DbHookCmd()
2005 Tcl_Interp *interp, in DbObjCmd() argument
2048 Tcl_WrongNumArgs(interp, 1, objv, "SUBCOMMAND ..."); in DbObjCmd()
2051 if( Tcl_GetIndexFromObj(interp, objv[1], DB_strs, "option", 0, &choice) ){ in DbObjCmd()
2077 Tcl_AppendResult(interp, "authorization not available in this build", in DbObjCmd()
2082 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2086 Tcl_AppendResult(interp, pDb->zAuth, (char*)0); in DbObjCmd()
2105 pDb->interp = interp; in DbObjCmd()
2134 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? FILENAME"); in DbObjCmd()
2140 Tcl_AppendResult(interp, "cannot open target database: ", in DbObjCmd()
2147 Tcl_AppendResult(interp, "backup failed: ", in DbObjCmd()
2157 Tcl_AppendResult(interp, "backup failed: ", in DbObjCmd()
2185 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2189 Tcl_AppendResult(interp, pDb->zBindFallback, (char*)0); in DbObjCmd()
2215 Tcl_WrongNumArgs(interp, 2, objv, "CALLBACK"); in DbObjCmd()
2219 Tcl_AppendResult(interp, pDb->zBusy, (char*)0); in DbObjCmd()
2235 pDb->interp = interp; in DbObjCmd()
2255 Tcl_WrongNumArgs(interp, 1, objv, "cache option ?arg?"); in DbObjCmd()
2261 Tcl_WrongNumArgs(interp, 2, objv, "flush"); in DbObjCmd()
2268 Tcl_WrongNumArgs(interp, 2, objv, "size n"); in DbObjCmd()
2271 if( TCL_ERROR==Tcl_GetIntFromObj(interp, objv[3], &n) ){ in DbObjCmd()
2272 Tcl_AppendResult( interp, "cannot convert \"", in DbObjCmd()
2286 Tcl_AppendResult( interp, "bad option \"", in DbObjCmd()
2303 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
2306 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2316 Tcl_DeleteCommand(interp, Tcl_GetStringFromObj(objv[0], 0)); in DbObjCmd()
2332 Tcl_WrongNumArgs(interp, 2, objv, "NAME SCRIPT"); in DbObjCmd()
2339 pCollate->interp = interp; in DbObjCmd()
2346 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in DbObjCmd()
2360 Tcl_WrongNumArgs(interp, 2, objv, "SCRIPT"); in DbObjCmd()
2381 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
2385 Tcl_AppendResult(interp, pDb->zCommit, (char*)0); in DbObjCmd()
2401 pDb->interp = interp; in DbObjCmd()
2421 Tcl_WrongNumArgs(interp, 2, objv, "SQL"); in DbObjCmd()
2425 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2461 Tcl_WrongNumArgs(interp, 2, objv, "?OPTION? ?BOOLEAN?"); in DbObjCmd()
2471 Tcl_ListObjAppendElement(interp, pResult, in DbObjCmd()
2473 Tcl_ListObjAppendElement(interp, pResult, in DbObjCmd()
2485 Tcl_AppendResult(interp, "unknown config option: \"", zOpt, in DbObjCmd()
2490 if( Tcl_GetBooleanFromObj(interp, objv[3], &onoff) ){ in DbObjCmd()
2497 Tcl_SetObjResult(interp, pResult); in DbObjCmd()
2541 Tcl_WrongNumArgs(interp, 2, objv, in DbObjCmd()
2561 Tcl_AppendResult(interp,"Error: non-null separator required for copy", in DbObjCmd()
2570 Tcl_AppendResult(interp, "Error: \"", zConflict, in DbObjCmd()
2577 Tcl_AppendResult(interp, "Error: no such table: ", zTable, (char*)0); in DbObjCmd()
2584 Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2595 Tcl_AppendResult(interp, "Error: can't malloc()", (char*)0); in DbObjCmd()
2610 Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2614 in = Tcl_OpenFileChannel(interp, zFile, "rb", 0666); in DbObjCmd()
2622 Tcl_AppendResult(interp, "Error: can't malloc()", (char*)0); in DbObjCmd()
2623 Tcl_Close(interp, in); in DbObjCmd()
2654 Tcl_AppendResult(interp, zErr, (char*)0); in DbObjCmd()
2674 Tcl_AppendResult(interp,"Error: ", sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
2681 Tcl_Close(interp, in); in DbObjCmd()
2687 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
2693 Tcl_AppendResult(interp,", failed while processing line: ",zLineNum, in DbObjCmd()
2707 Tcl_AppendResult(interp, "MEMDB not available in this build", in DbObjCmd()
2723 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? VALUE"); in DbObjCmd()
2731 rc = Tcl_GetWideIntFromObj(interp, objv[++i], &x); in DbObjCmd()
2737 rc = Tcl_GetBooleanFromObj(interp, objv[++i], &isReadonly); in DbObjCmd()
2745 Tcl_AppendResult(interp, "unknown option: ", z, (char*)0); in DbObjCmd()
2753 Tcl_AppendResult(interp, "out of memory", (char*)0); in DbObjCmd()
2765 Tcl_AppendResult(interp, "unable to set MEMDB content", (char*)0); in DbObjCmd()
2787 Tcl_WrongNumArgs(interp, 2, objv, "BOOLEAN"); in DbObjCmd()
2790 if( Tcl_GetBooleanFromObj(interp, objv[2], &onoff) ){ in DbObjCmd()
2796 Tcl_AppendResult(interp, "extension loading is turned off at compile-time", in DbObjCmd()
2809 Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_errcode(pDb->db))); in DbObjCmd()
2820 Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_error_offset(pDb->db))); in DbObjCmd()
2836 Tcl_WrongNumArgs(interp, 2, objv, "SQL"); in DbObjCmd()
2846 Tcl_ResetResult(interp); in DbObjCmd()
2852 if( pResult ) Tcl_SetObjResult(interp, pResult); in DbObjCmd()
2877 Tcl_AppendResult(interp, "unknown option: \"", zOpt, "\"", (void*)0); in DbObjCmd()
2884 Tcl_WrongNumArgs(interp, 2, objv, in DbObjCmd()
2899 Tcl_ListObjAppendElement(interp, pRet, dbEvalColumnValue(&sEval, i)); in DbObjCmd()
2904 Tcl_SetObjResult(interp, pRet); in DbObjCmd()
2925 rc = DbEvalNextCmd(cd2, interp, TCL_OK); in DbObjCmd()
2952 Tcl_WrongNumArgs(interp, 2, objv, "NAME ?SWITCHES? SCRIPT"); in DbObjCmd()
2960 Tcl_AppendResult(interp, "option requires an argument: ", z,(char*)0); in DbObjCmd()
2963 if( Tcl_GetIntFromObj(interp, objv[i+1], &nArg) ) return TCL_ERROR; in DbObjCmd()
2965 Tcl_AppendResult(interp, "number of arguments must be non-negative", in DbObjCmd()
2985 Tcl_AppendResult(interp, "option requires an argument: ", z,(char*)0); in DbObjCmd()
2989 if( Tcl_GetIndexFromObj(interp, objv[i], azType, "type", 0, &eType) ){ in DbObjCmd()
2994 Tcl_AppendResult(interp, "bad option \"", z, in DbObjCmd()
3017 Tcl_SetResult(interp, (char *)sqlite3_errmsg(pDb->db), TCL_VOLATILE); in DbObjCmd()
3027 Tcl_AppendResult(interp, "incrblob not available in this build", (char*)0); in DbObjCmd()
3042 Tcl_WrongNumArgs(interp, 2, objv, "?-readonly? ?DB? TABLE COLUMN ROWID"); in DbObjCmd()
3051 rc = Tcl_GetWideIntFromObj(interp, objv[objc-1], &iRow); in DbObjCmd()
3055 interp, pDb, zDb, zTable, zColumn, (sqlite3_int64)iRow, isReadonly in DbObjCmd()
3083 Tcl_WrongNumArgs(interp, 2, objv, "NULLVALUE"); in DbObjCmd()
3100 Tcl_SetObjResult(interp, Tcl_NewStringObj(pDb->zNull, -1)); in DbObjCmd()
3113 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
3117 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
3134 Tcl_AppendResult(interp, pDb->zProgress, (char*)0); in DbObjCmd()
3143 if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &N) ){ in DbObjCmd()
3158 pDb->interp = interp; in DbObjCmd()
3165 Tcl_WrongNumArgs(interp, 2, objv, "N CALLBACK"); in DbObjCmd()
3179 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
3183 Tcl_AppendResult(interp, pDb->zProfile, (char*)0); in DbObjCmd()
3201 pDb->interp = interp; in DbObjCmd()
3218 Tcl_WrongNumArgs(interp, 2, objv, "KEY"); in DbObjCmd()
3243 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE? FILENAME"); in DbObjCmd()
3249 Tcl_AppendResult(interp, "cannot open source database: ", in DbObjCmd()
3256 Tcl_AppendResult(interp, "restore failed: ", in DbObjCmd()
3272 Tcl_AppendResult(interp, "restore failed: source database busy", in DbObjCmd()
3276 Tcl_AppendResult(interp, "restore failed: ", in DbObjCmd()
3291 Tcl_AppendResult(interp, "MEMDB not available in this build", in DbObjCmd()
3299 Tcl_WrongNumArgs(interp, 2, objv, "?DATABASE?"); in DbObjCmd()
3310 Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(pData,sz)); in DbObjCmd()
3327 Tcl_WrongNumArgs(interp, 2, objv, "(step|sort|autoindex)"); in DbObjCmd()
3340 Tcl_AppendResult(interp, in DbObjCmd()
3345 Tcl_SetObjResult(interp, Tcl_NewIntObj(v)); in DbObjCmd()
3357 Tcl_WrongNumArgs(interp, 2, objv, "MILLISECONDS"); in DbObjCmd()
3360 if( Tcl_GetIntFromObj(interp, objv[2], &ms) ) return TCL_ERROR; in DbObjCmd()
3374 Tcl_WrongNumArgs(interp, 2, objv, ""); in DbObjCmd()
3377 pResult = Tcl_GetObjResult(interp); in DbObjCmd()
3390 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); in DbObjCmd()
3394 Tcl_AppendResult(interp, pDb->zTrace, (char*)0); in DbObjCmd()
3412 pDb->interp = interp; in DbObjCmd()
3430 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK? ?MASK?"); in DbObjCmd()
3434 Tcl_AppendResult(interp, pDb->zTraceV2, (char*)0); in DbObjCmd()
3448 if( TCL_OK!=Tcl_ListObjLength(interp, objv[3], &len) ){ in DbObjCmd()
3454 if( TCL_OK!=Tcl_ListObjIndex(interp, objv[3], i, &pObj) ){ in DbObjCmd()
3457 if( Tcl_GetIndexFromObj(interp, pObj, TTYPE_strs, "trace type", in DbObjCmd()
3460 Tcl_Obj *pError = Tcl_DuplicateObj(Tcl_GetObjResult(interp)); in DbObjCmd()
3462 if( TCL_OK==Tcl_GetWideIntFromObj(interp, pObj, &wType) ){ in DbObjCmd()
3466 Tcl_SetObjResult(interp, pError); in DbObjCmd()
3494 pDb->interp = interp; in DbObjCmd()
3519 Tcl_WrongNumArgs(interp, 2, objv, "[TYPE] SCRIPT"); in DbObjCmd()
3531 if( Tcl_GetIndexFromObj(interp, objv[2], TTYPE_strs, "transaction type", in DbObjCmd()
3548 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3560 Tcl_NRAddCallback(interp, DbTransPostCmd, cd, 0, 0, 0); in DbObjCmd()
3561 (void)Tcl_NREvalObj(interp, pScript, 0); in DbObjCmd()
3563 rc = DbTransPostCmd(&cd, interp, Tcl_EvalObjEx(interp, pScript, 0)); in DbObjCmd()
3573 Tcl_AppendResult(interp, "unlock_notify not available in this build", in DbObjCmd()
3578 Tcl_WrongNumArgs(interp, 2, objv, "?SCRIPT?"); in DbObjCmd()
3597 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3613 Tcl_AppendResult(interp, "preupdate_hook was omitted at compile-time", in DbObjCmd()
3624 Tcl_WrongNumArgs(interp, 2, objv, "SUB-COMMAND ?ARGS?"); in DbObjCmd()
3626 if( Tcl_GetIndexFromObj(interp, objv[2], azSub, "sub-command", 0, &iSub) ){ in DbObjCmd()
3633 Tcl_SetObjResult(interp, Tcl_NewIntObj(nCol)); in DbObjCmd()
3639 Tcl_WrongNumArgs(interp, 2, objv, "hook ?SCRIPT?"); in DbObjCmd()
3642 DbHookCmd(interp, pDb, (objc==4 ? objv[3] : 0), &pDb->pPreUpdateHook); in DbObjCmd()
3649 Tcl_WrongNumArgs(interp, 3, objv, ""); in DbObjCmd()
3653 Tcl_SetObjResult(interp, pRet); in DbObjCmd()
3662 Tcl_WrongNumArgs(interp, 3, objv, "INDEX"); in DbObjCmd()
3665 if( Tcl_GetIntFromObj(interp, objv[3], &iIdx) ){ in DbObjCmd()
3679 Tcl_SetObjResult(interp, pObj); in DbObjCmd()
3681 Tcl_AppendResult(interp, sqlite3_errmsg(pDb->db), (char*)0); in DbObjCmd()
3706 Tcl_WrongNumArgs(interp, 2, objv, "?SCRIPT?"); in DbObjCmd()
3710 DbHookCmd(interp, pDb, (objc==3 ? objv[2] : 0), ppHook); in DbObjCmd()
3730 if( Tcl_GetBooleanFromObj(interp, objv[i], &pDb->bLegacyPrepare) ){ in DbObjCmd()
3744 Tcl_SetResult(interp, zBuf, TCL_VOLATILE); in DbObjCmd()
3748 Tcl_AppendResult(interp, "unknown argument: ", zArg, (char*)0); in DbObjCmd()
3753 Tcl_SetResult(interp, (char *)sqlite3_libversion(), TCL_STATIC); in DbObjCmd()
3770 Tcl_Interp *interp, in DbObjCmdAdaptor() argument
3774 return Tcl_NRCallObjProc(interp, DbObjCmd, cd, objc, objv); in DbObjCmdAdaptor()
3783 Tcl_Interp *interp, in sqliteCmdUsage() argument
3786 Tcl_WrongNumArgs(interp, 1, objv, in sqliteCmdUsage()
3812 Tcl_Interp *interp, in DbMain() argument
3839 if( objc==1 ) return sqliteCmdUsage(interp, objv); in DbMain()
3843 Tcl_AppendResult(interp,sqlite3_libversion(), (char*)0); in DbMain()
3847 Tcl_AppendResult(interp,sqlite3_sourceid(), (char*)0); in DbMain()
3851 Tcl_AppendResult(interp,"0",(char*)0); in DbMain()
3854 if( zArg[0]=='-' ) return sqliteCmdUsage(interp, objv); in DbMain()
3859 if( zFile!=0 ) return sqliteCmdUsage(interp, objv); in DbMain()
3863 if( i==objc-1 ) return sqliteCmdUsage(interp, objv); in DbMain()
3871 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3881 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3889 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3897 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3906 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3915 if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; in DbMain()
3922 if( Tcl_GetBooleanFromObj(interp, objv[i], &bTranslateFileName) ){ in DbMain()
3926 Tcl_AppendResult(interp, "unknown option: ", zArg, (char*)0); in DbMain()
3935 zFile = Tcl_TranslateFileName(interp, zFile, &translatedFilename); in DbMain()
3951 Tcl_SetResult(interp, zErrMsg, TCL_VOLATILE); in DbMain()
3958 p->interp = interp; in DbMain()
3961 Tcl_NRCreateCommand(interp, zArg, DbObjCmdAdaptor, DbObjCmd, in DbMain()
3964 Tcl_CreateObjCommand(interp, zArg, DbObjCmd, (char*)p, DbDeleteCmd); in DbMain()
3999 EXTERN int Sqlite3_Init(Tcl_Interp *interp){ in Sqlite3_Init() argument
4000 int rc = Tcl_InitStubs(interp, "8.5-", 0) ? TCL_OK : TCL_ERROR; in Sqlite3_Init()
4002 Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); in Sqlite3_Init()
4007 Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0); in Sqlite3_Init()
4009 rc = Tcl_PkgProvide(interp, "sqlite3", PACKAGE_VERSION); in Sqlite3_Init()
4013 EXTERN int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Tclsqlite3_Init() argument
4014 EXTERN int Sqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Sqlite3_Unload() argument
4015 EXTERN int Tclsqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Tclsqlite3_Unload() argument
4021 EXTERN int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_ERROR; } in Sqlite3_SafeInit() argument
4022 EXTERN int Sqlite3_SafeUnload(Tcl_Interp *interp, int flags){return TCL_ERROR;} in Sqlite3_SafeUnload() argument
4032 EXTERN int Sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp);} in Sqlite_Init() argument
4033 EXTERN int Tclsqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } in Tclsqlite_Init() argument
4034 EXTERN int Sqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Sqlite_Unload() argument
4035 EXTERN int Tclsqlite_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; } in Tclsqlite_Unload() argument
4036 EXTERN int Sqlite_SafeInit(Tcl_Interp *interp){ return TCL_ERROR; } in Sqlite_SafeInit() argument
4037 EXTERN int Sqlite_SafeUnload(Tcl_Interp *interp, int flags){return TCL_ERROR;} in Sqlite_SafeUnload() argument
4042 EXTERN int sqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp);} in sqlite3_Init() argument
4043 EXTERN int sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp);} in sqlite_Init() argument
4108 Tcl_Interp *interp; in TCLSH_MAIN() local
4140 interp = Tcl_CreateInterp(); in TCLSH_MAIN()
4141 Sqlite3_Init(interp); in TCLSH_MAIN()
4144 Tcl_SetVar(interp,"argc", zArgc, TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4145 Tcl_SetVar(interp,"argv0",argv[0],TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4146 Tcl_SetVar(interp,"argv", "", TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4148 Tcl_SetVar(interp, "argv", argv[i], in TCLSH_MAIN()
4152 zScript = TCLSH_INIT_PROC(interp); in TCLSH_MAIN()
4157 if( Tcl_GlobalEval(interp, zScript)!=TCL_OK ){ in TCLSH_MAIN()
4158 const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); in TCLSH_MAIN()
4159 if( zInfo==0 ) zInfo = Tcl_GetStringResult(interp); in TCLSH_MAIN()