Lines Matching refs:interp
43 Tcl_Interp *interp; /* The TCL interpret to execute the function */
55 Tcl_Interp *interp; /* The interpreter used for this database */
71 Tcl_Interp *interp; /* The TCL interpreter */
102 Tcl_SetVar2(cbData->interp, cbData->zArray, "*", "", 0);
116 Tcl_SetVar2(cbData->interp, cbData->zArray, "*",
125 Tcl_SetVar2(cbData->interp, cbData->zArray,
142 Tcl_SetVar2(cbData->interp, cbData->zArray, cbData->azColName[i],
152 Tcl_SetVar(cbData->interp, cbData->azColName[i],
158 rc = Tcl_EvalObj(cbData->interp, cbData->pCode);
186 Tcl_SetVar2(cbData->interp, cbData->zArray, "*", "", 0);
188 Tcl_SetVar2(cbData->interp, cbData->zArray, "*", azN[i],
192 Tcl_SetVar2(cbData->interp, cbData->zArray, z, azN[i+nCol],
204 Tcl_SetVar2(cbData->interp, cbData->zArray, azN[i], z, 0);
210 Tcl_SetVar(cbData->interp, azN[i], z, 0);
214 rc = Tcl_EvalObj(cbData->interp, cbData->pCode);
266 Tcl_Interp *interp = (Tcl_Interp*)clientData;
281 Tcl_SetObjResult(interp, pElem);
325 rc = Tcl_Eval(pDb->interp, zCmd);
327 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){
341 rc = Tcl_Eval(pDb->interp, pDb->zProgress);
342 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){
359 Tcl_Eval(pDb->interp, Tcl_DStringValue(&str));
361 Tcl_ResetResult(pDb->interp);
374 rc = Tcl_Eval(pDb->interp, pDb->zCommit);
375 if( rc!=TCL_OK || atoi(Tcl_GetStringResult(pDb->interp)) ){
396 rc = Tcl_Eval(p->interp, Tcl_DStringValue(&cmd));
398 sqlite_set_result_error(context, Tcl_GetStringResult(p->interp), -1);
400 sqlite_set_result_string(context, Tcl_GetStringResult(p->interp), -1);
460 rc = Tcl_GlobalEval(pDb->interp, Tcl_DStringValue(&str));
462 zReply = Tcl_GetStringResult(pDb->interp);
489 static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
512 Tcl_WrongNumArgs(interp, 1, objv, "SUBCOMMAND ...");
515 if( Tcl_GetIndexFromObj(interp, objv[1], DB_strs, "option", 0, &choice) ){
541 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?");
544 Tcl_AppendResult(interp, pDb->zAuth, 0);
561 pDb->interp = interp;
578 Tcl_WrongNumArgs(interp, 2, objv, "CALLBACK");
582 Tcl_AppendResult(interp, pDb->zBusy, 0);
598 pDb->interp = interp;
615 Tcl_AppendResult(interp, pDb->zProgress, 0);
621 if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &N) ){
636 pDb->interp = interp;
643 Tcl_WrongNumArgs(interp, 2, objv, "N CALLBACK");
659 Tcl_WrongNumArgs(interp, 2, objv, "");
663 pResult = Tcl_GetObjResult(interp);
679 Tcl_WrongNumArgs(interp, 2, objv, "");
683 pResult = Tcl_GetObjResult(interp);
693 Tcl_DeleteCommand(interp, Tcl_GetStringFromObj(objv[0], 0));
706 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?");
709 Tcl_AppendResult(interp, pDb->zCommit, 0);
725 pDb->interp = interp;
744 Tcl_WrongNumArgs(interp, 2, objv, "SQL");
748 pResult = Tcl_GetObjResult(interp);
760 Tcl_SetObjResult(interp, Tcl_NewIntObj(pDb->rc));
783 Tcl_WrongNumArgs(interp, 2, objv, "SQL ?ARRAY-NAME CODE?");
786 pDb->interp = interp;
795 cbData.interp = interp;
813 Tcl_SetObjResult(interp, pList);
820 Tcl_SetResult(interp, zErrMsg, TCL_VOLATILE);
824 Tcl_AppendResult(interp, sqlite_error_string(rc), 0);
854 Tcl_WrongNumArgs(interp, 2, objv, "NAME SCRIPT");
861 pFunc->interp = interp;
879 Tcl_WrongNumArgs(interp, 2, objv, "");
883 pResult = Tcl_GetObjResult(interp);
897 Tcl_WrongNumArgs(interp, 2, objv, "SQL");
901 rc = sqlite_exec(pDb->db, zSql, DbEvalCallback3, interp, &zErrMsg);
905 Tcl_SetResult(interp, zErrMsg, TCL_VOLATILE);
909 Tcl_AppendResult(interp, sqlite_error_string(rc), 0);
924 Tcl_WrongNumArgs(interp, 2, objv, "KEY");
931 Tcl_AppendResult(interp, sqlite_error_string(rc), 0);
946 Tcl_WrongNumArgs(interp, 2, objv, "MILLISECONDS");
949 if( Tcl_GetIntFromObj(interp, objv[2], &ms) ) return TCL_ERROR;
962 Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?");
965 Tcl_AppendResult(interp, pDb->zTrace, 0);
981 pDb->interp = interp;
1025 static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
1037 Tcl_AppendResult(interp,sqlite_encoding,0);
1041 Tcl_AppendResult(interp,sqlite_version,0);
1046 Tcl_AppendResult(interp,"1",0);
1048 Tcl_AppendResult(interp,"0",0);
1054 Tcl_AppendResult(interp,"1",0);
1056 Tcl_AppendResult(interp,"0",0);
1069 Tcl_WrongNumArgs(interp, 1, objv,
1080 }else if( Tcl_GetIntFromObj(interp, objv[3], &mode)!=TCL_OK ){
1086 Tcl_SetResult(interp, "malloc failed", TCL_STATIC);
1097 Tcl_SetResult(interp, zErrMsg, TCL_VOLATILE);
1103 Tcl_CreateObjCommand(interp, zArg, DbObjCmd, (char*)p, DbDeleteCmd);
1111 Tcl_AppendResult(interp, zBuf, 0);
1143 int Sqlite_Init(Tcl_Interp *interp){
1144 Tcl_InitStubs(interp, "8.0", 0);
1145 Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0);
1146 Tcl_PkgProvide(interp, "sqlite", "2.0");
1149 int Tclsqlite_Init(Tcl_Interp *interp){
1150 Tcl_InitStubs(interp, "8.0", 0);
1151 Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0);
1152 Tcl_PkgProvide(interp, "sqlite", "2.0");
1155 int Sqlite_SafeInit(Tcl_Interp *interp){
1158 int Tclsqlite_SafeInit(Tcl_Interp *interp){
1167 int Et_AppInit(Tcl_Interp *interp){
1168 return Sqlite_Init(interp);
1207 int Libsqlite_Init( Tcl_Interp *interp) {
1209 if (Thread_Init(interp) == TCL_ERROR) {
1213 Sqlite_Init(interp);
1220 Sqlitetest1_Init(interp);
1221 Sqlitetest2_Init(interp);
1222 Sqlitetest3_Init(interp);
1223 Md5_Init(interp);
1224 Tcl_StaticPackage(interp, "sqlite", Libsqlite_Init, Libsqlite_Init);
1234 Tcl_Interp *interp;
1236 interp = Tcl_CreateInterp();
1237 Libsqlite_Init(interp);
1240 Tcl_SetVar(interp,"argv0",argv[1],TCL_GLOBAL_ONLY);
1241 Tcl_SetVar(interp,"argv", "", TCL_GLOBAL_ONLY);
1243 Tcl_SetVar(interp, "argv", argv[i],
1246 if( Tcl_EvalFile(interp, argv[1])!=TCL_OK ){
1247 const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
1248 if( zInfo==0 ) zInfo = interp->result;
1253 Tcl_GlobalEval(interp, zMainloop);
1273 Tcl_Interp *interp;
1276 interp = Tcl_CreateInterp();
1277 Libsqlite_Init(interp);
1278 Tcl_SetVar(interp,"argv0",argv[0],TCL_GLOBAL_ONLY);
1279 Tcl_SetVar(interp,"argv", "", TCL_GLOBAL_ONLY);
1281 Tcl_SetVar(interp, "argv", argv[i],
1284 if( Tcl_GlobalEval(interp, zAnalysis)!=TCL_OK ){
1285 const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
1286 if( zInfo==0 ) zInfo = interp->result;