Lines Matching refs:interp
24 Tcl_Interp *interp; member
41 static int dbHandleFromObj(Tcl_Interp *interp, Tcl_Obj *pObj, sqlite3 **pDb){ in dbHandleFromObj() argument
43 if( 0==Tcl_GetCommandInfo(interp, Tcl_GetString(pObj), &info) ){ in dbHandleFromObj()
44 Tcl_AppendResult(interp, "no such handle: ", Tcl_GetString(pObj), 0); in dbHandleFromObj()
106 Tcl_Interp *interp, in test_sql_exec_changeset() argument
117 Tcl_WrongNumArgs(interp, 1, objv, "DB SQL"); in test_sql_exec_changeset()
120 if( dbHandleFromObj(interp, objv[1], &db) ) return TCL_ERROR; in test_sql_exec_changeset()
125 Tcl_ResetResult(interp); in test_sql_exec_changeset()
126 Tcl_AppendResult(interp, "error in sql_exec_changeset()", 0); in test_sql_exec_changeset()
130 Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(pChangeset, nChangeset)); in test_sql_exec_changeset()
146 static int test_tcl_integer(Tcl_Interp *interp, const char *zVar){ in test_tcl_integer() argument
151 pObj = Tcl_ObjGetVar2(interp, pName, 0, TCL_GLOBAL_ONLY); in test_tcl_integer()
157 static int test_session_error(Tcl_Interp *interp, int rc, char *zErr){ in test_session_error() argument
159 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3ErrName(rc), -1)); in test_session_error()
161 Tcl_AppendResult(interp, " - ", zErr, 0); in test_session_error()
175 rc = Tcl_ListObjAppendElement(p->interp, pEval, Tcl_NewStringObj(zTbl, -1)); in test_table_filter()
177 rc = Tcl_EvalObjEx(p->interp, pEval, TCL_EVAL_GLOBAL); in test_table_filter()
180 rc = Tcl_GetBooleanFromObj(p->interp, Tcl_GetObjResult(p->interp), &bRes); in test_table_filter()
184 Tcl_BackgroundError(p->interp); in test_table_filter()
227 Tcl_Interp *interp, in test_session_cmd() argument
257 Tcl_WrongNumArgs(interp, 1, objv, "SUBCOMMAND ..."); in test_session_cmd()
260 rc = Tcl_GetIndexFromObjStruct(interp, in test_session_cmd()
265 Tcl_WrongNumArgs(interp, 2, objv, aSub[iSub].zMsg); in test_session_cmd()
275 return test_session_error(interp, rc, 0); in test_session_cmd()
283 if( test_tcl_integer(interp, SESSION_STREAM_TCL_VAR) ){ in test_session_cmd()
298 Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(o.p, o.n)); in test_session_cmd()
302 return test_session_error(interp, rc, 0); in test_session_cmd()
308 Tcl_DeleteCommand(interp, Tcl_GetString(objv[0])); in test_session_cmd()
313 if( Tcl_GetIntFromObj(interp, objv[2], &val) ) return TCL_ERROR; in test_session_cmd()
315 Tcl_SetObjResult(interp, Tcl_NewBooleanObj(val)); in test_session_cmd()
321 if( Tcl_GetIntFromObj(interp, objv[2], &val) ) return TCL_ERROR; in test_session_cmd()
323 Tcl_SetObjResult(interp, Tcl_NewBooleanObj(val)); in test_session_cmd()
330 Tcl_SetObjResult(interp, Tcl_NewBooleanObj(val)); in test_session_cmd()
336 p->interp = interp; in test_session_cmd()
352 return test_session_error(interp, rc, zErr); in test_session_cmd()
359 Tcl_SetObjResult(interp, Tcl_NewWideIntObj(nMalloc)); in test_session_cmd()
365 Tcl_SetObjResult(interp, Tcl_NewWideIntObj(nSize)); in test_session_cmd()
371 if( Tcl_GetIntFromObj(interp, objv[2], &iArg) ){ in test_session_cmd()
379 Tcl_SetObjResult(interp, Tcl_NewStringObj(sqlite3ErrName(rc), -1)); in test_session_cmd()
381 Tcl_SetObjResult(interp, Tcl_NewIntObj(iArg)); in test_session_cmd()
402 Tcl_Interp *interp, in test_sqlite3session() argument
413 Tcl_WrongNumArgs(interp, 1, objv, "CMD DB-HANDLE DB-NAME"); in test_sqlite3session()
417 if( 0==Tcl_GetCommandInfo(interp, Tcl_GetString(objv[2]), &info) ){ in test_sqlite3session()
418 Tcl_AppendResult(interp, "no such handle: ", Tcl_GetString(objv[2]), 0); in test_sqlite3session()
428 return test_session_error(interp, rc, 0); in test_sqlite3session()
439 interp, Tcl_GetString(objv[1]), test_session_cmd, (ClientData)p, in test_sqlite3session()
442 Tcl_SetObjResult(interp, objv[1]); in test_sqlite3session()
487 Tcl_Interp *interp; member
510 Tcl_Interp *interp = p->interp; in test_filter_handler() local
516 || TCL_OK!=Tcl_EvalObjEx(interp, pEval, TCL_EVAL_GLOBAL) in test_filter_handler()
517 || TCL_OK!=Tcl_GetIntFromObj(interp, Tcl_GetObjResult(interp), &res) in test_filter_handler()
519 Tcl_BackgroundError(interp); in test_filter_handler()
533 Tcl_Interp *interp = p->interp; in test_conflict_handler() local
565 Tcl_ListObjAppendElement(interp, pEval,Tcl_NewStringObj("DATA",-1)); in test_conflict_handler()
568 Tcl_ListObjAppendElement(interp, pEval,Tcl_NewStringObj("NOTFOUND",-1)); in test_conflict_handler()
571 Tcl_ListObjAppendElement(interp, pEval,Tcl_NewStringObj("CONFLICT",-1)); in test_conflict_handler()
574 Tcl_ListObjAppendElement(interp, pEval,Tcl_NewStringObj("CONSTRAINT",-1)); in test_conflict_handler()
666 if( TCL_OK!=Tcl_EvalObjEx(interp, pEval, TCL_EVAL_GLOBAL) ){ in test_conflict_handler()
667 Tcl_BackgroundError(interp); in test_conflict_handler()
669 Tcl_Obj *pRes = Tcl_GetObjResult(interp); in test_conflict_handler()
764 Tcl_Interp *interp, in testSqlite3changesetApply() argument
780 sStr.nStream = test_tcl_integer(interp, SESSION_STREAM_TCL_VAR); in testSqlite3changesetApply()
812 Tcl_WrongNumArgs(interp, 1, objv, zMsg); in testSqlite3changesetApply()
815 if( 0==Tcl_GetCommandInfo(interp, Tcl_GetString(objv[1]), &info) ){ in testSqlite3changesetApply()
816 Tcl_AppendResult(interp, "no such handle: ", Tcl_GetString(objv[1]), 0); in testSqlite3changesetApply()
823 ctx.interp = interp; in testSqlite3changesetApply()
854 return test_session_error(interp, rc, 0); in testSqlite3changesetApply()
856 Tcl_ResetResult(interp); in testSqlite3changesetApply()
858 Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(pRebase, nRebase)); in testSqlite3changesetApply()
870 Tcl_Interp *interp, in test_sqlite3changeset_apply() argument
874 return testSqlite3changesetApply(0, clientData, interp, objc, objv); in test_sqlite3changeset_apply()
881 Tcl_Interp *interp, in test_sqlite3changeset_apply_v2() argument
885 return testSqlite3changesetApply(1, clientData, interp, objc, objv); in test_sqlite3changeset_apply_v2()
893 Tcl_Interp *interp, in test_sqlite3changeset_apply_replace_all() argument
904 Tcl_WrongNumArgs(interp, 1, objv, "DB CHANGESET"); in test_sqlite3changeset_apply_replace_all()
907 if( 0==Tcl_GetCommandInfo(interp, Tcl_GetString(objv[1]), &info) ){ in test_sqlite3changeset_apply_replace_all()
908 Tcl_AppendResult(interp, "no such handle: ", Tcl_GetString(objv[2]), 0); in test_sqlite3changeset_apply_replace_all()
916 return test_session_error(interp, rc, 0); in test_sqlite3changeset_apply_replace_all()
918 Tcl_ResetResult(interp); in test_sqlite3changeset_apply_replace_all()
928 Tcl_Interp *interp, in test_sqlite3changeset_invert() argument
937 Tcl_WrongNumArgs(interp, 1, objv, "CHANGESET"); in test_sqlite3changeset_invert()
943 sIn.nStream = test_tcl_integer(interp, SESSION_STREAM_TCL_VAR); in test_sqlite3changeset_invert()
954 rc = test_session_error(interp, rc, 0); in test_sqlite3changeset_invert()
956 Tcl_SetObjResult(interp,Tcl_NewByteArrayObj((unsigned char*)sOut.p,sOut.n)); in test_sqlite3changeset_invert()
967 Tcl_Interp *interp, in test_sqlite3changeset_concat() argument
978 Tcl_WrongNumArgs(interp, 1, objv, "LEFT RIGHT"); in test_sqlite3changeset_concat()
986 sLeft.nStream = test_tcl_integer(interp, SESSION_STREAM_TCL_VAR); in test_sqlite3changeset_concat()
1002 rc = test_session_error(interp, rc, 0); in test_sqlite3changeset_concat()
1004 Tcl_SetObjResult(interp,Tcl_NewByteArrayObj((unsigned char*)sOut.p,sOut.n)); in test_sqlite3changeset_concat()
1015 Tcl_Interp *interp, in test_sqlite3session_foreach() argument
1049 interp, 1, objv, "?-next? ?-invert? VARNAME CHANGESET SCRIPT"); in test_sqlite3session_foreach()
1058 sStr.nStream = test_tcl_integer(interp, SESSION_STREAM_TCL_VAR); in test_sqlite3session_foreach()
1079 return test_session_error(interp, rc, 0); in test_sqlite3session_foreach()
1144 Tcl_ObjSetVar2(interp, pVarname, 0, pVar, 0); in test_sqlite3session_foreach()
1145 rc = Tcl_EvalObjEx(interp, pScript, 0); in test_sqlite3session_foreach()
1160 return test_session_error(interp, rc, 0); in test_sqlite3session_foreach()
1173 Tcl_Interp *interp, in test_rebaser_cmd() argument
1194 Tcl_WrongNumArgs(interp, 1, objv, "SUBCOMMAND ..."); in test_rebaser_cmd()
1197 rc = Tcl_GetIndexFromObjStruct(interp, in test_rebaser_cmd()
1202 Tcl_WrongNumArgs(interp, 2, objv, aSub[iSub].zMsg); in test_rebaser_cmd()
1217 Tcl_DeleteCommand(interp, Tcl_GetString(objv[0])); in test_rebaser_cmd()
1227 sStr.nStream = test_tcl_integer(interp, SESSION_STREAM_TCL_VAR); in test_rebaser_cmd()
1239 Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(sOut.p, sOut.n)); in test_rebaser_cmd()
1247 return test_session_error(interp, rc, 0); in test_rebaser_cmd()
1262 Tcl_Interp *interp, in test_sqlite3rebaser_create() argument
1269 Tcl_WrongNumArgs(interp, 1, objv, "NAME"); in test_sqlite3rebaser_create()
1275 return test_session_error(interp, rc, 0); in test_sqlite3rebaser_create()
1278 Tcl_CreateObjCommand(interp, Tcl_GetString(objv[1]), test_rebaser_cmd, in test_sqlite3rebaser_create()
1281 Tcl_SetObjResult(interp, objv[1]); in test_sqlite3rebaser_create()
1290 Tcl_Interp *interp, in test_sqlite3session_config() argument
1307 Tcl_WrongNumArgs(interp, 1, objv, "OP VALUE"); in test_sqlite3session_config()
1310 rc = Tcl_GetIndexFromObjStruct(interp, in test_sqlite3session_config()
1314 if( Tcl_GetIntFromObj(interp, objv[2], &iVal) ) return TCL_ERROR; in test_sqlite3session_config()
1318 return test_session_error(interp, rc, 0); in test_sqlite3session_config()
1320 Tcl_SetObjResult(interp, Tcl_NewIntObj(iVal)); in test_sqlite3session_config()
1324 int TestSession_Init(Tcl_Interp *interp){ in TestSession_Init() argument
1345 Tcl_CreateObjCommand(interp, p->zCmd, p->xProc, 0, 0); in TestSession_Init()