Lines Matching refs:interp
29 extern int getDbPointer(Tcl_Interp *interp, const char *zA, sqlite3 **ppDb);
56 Tcl_Interp *interp, in blobHandleFromObj() argument
71 channel = Tcl_GetChannel(interp, z, ¬Used); in blobHandleFromObj()
104 Tcl_Interp *interp, /* Calling TCL interpreter */ in test_blob_open() argument
122 Tcl_WrongNumArgs(interp, 1, objv, zUsage); in test_blob_open()
125 if( getDbPointer(interp, Tcl_GetString(objv[1]), &db) ) return TCL_ERROR; in test_blob_open()
129 if( Tcl_GetWideIntFromObj(interp, objv[5], &iRowid) ) return TCL_ERROR; in test_blob_open()
130 if( Tcl_GetIntFromObj(interp, objv[6], &flags) ) return TCL_ERROR; in test_blob_open()
135 Tcl_SetVar(interp, zVarname, ptrToText(pBlob), 0); in test_blob_open()
141 Tcl_ResetResult(interp); in test_blob_open()
143 Tcl_SetResult(interp, (char*)sqlite3ErrName(rc), TCL_VOLATILE); in test_blob_open()
155 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in test_blob_close() argument
163 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE"); in test_blob_close()
167 if( blobHandleFromObj(interp, objv[1], &pBlob) ) return TCL_ERROR; in test_blob_close()
171 Tcl_SetResult(interp, (char*)sqlite3ErrName(rc), TCL_VOLATILE); in test_blob_close()
173 Tcl_ResetResult(interp); in test_blob_close()
183 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in test_blob_bytes() argument
191 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE"); in test_blob_bytes()
195 if( blobHandleFromObj(interp, objv[1], &pBlob) ) return TCL_ERROR; in test_blob_bytes()
197 Tcl_SetObjResult(interp, Tcl_NewIntObj(nByte)); in test_blob_bytes()
219 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in test_blob_read() argument
230 Tcl_WrongNumArgs(interp, 1, objv, "CHANNEL OFFSET N"); in test_blob_read()
234 if( blobHandleFromObj(interp, objv[1], &pBlob) ) return TCL_ERROR; in test_blob_read()
235 if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &iOffset) in test_blob_read()
236 || TCL_OK!=Tcl_GetIntFromObj(interp, objv[3], &nByte) in test_blob_read()
244 Tcl_AppendResult(interp, "out of memory in " __FILE__, 0); in test_blob_read()
250 Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(zBuf, nByte)); in test_blob_read()
252 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE); in test_blob_read()
275 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in test_blob_write() argument
287 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE OFFSET DATA ?NDATA?"); in test_blob_write()
291 if( blobHandleFromObj(interp, objv[1], &pBlob) ) return TCL_ERROR; in test_blob_write()
292 if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &iOffset) ){ in test_blob_write()
297 if( objc==5 && Tcl_GetIntFromObj(interp, objv[4], &nBuf) ){ in test_blob_write()
302 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE); in test_blob_write()
312 int Sqlitetest_blob_Init(Tcl_Interp *interp){ in Sqlitetest_blob_Init() argument
326 Tcl_CreateObjCommand(interp, aObjCmd[i].zName, aObjCmd[i].xProc, 0, 0); in Sqlitetest_blob_Init()