1 /* 2 ** 2007 May 05 3 ** 4 ** The author disclaims copyright to this source code. In place of 5 ** a legal notice, here is a blessing: 6 ** 7 ** May you do good and not evil. 8 ** May you find forgiveness for yourself and forgive others. 9 ** May you share freely, never taking more than you give. 10 ** 11 ************************************************************************* 12 ** Code for testing the btree.c module in SQLite. This code 13 ** is not included in the SQLite library. It is used for automated 14 ** testing of the SQLite library. 15 */ 16 #include "btreeInt.h" 17 #if defined(INCLUDE_SQLITE_TCL_H) 18 # include "sqlite_tcl.h" 19 #else 20 # include "tcl.h" 21 #endif 22 23 /* 24 ** Usage: sqlite3_shared_cache_report 25 ** 26 ** Return a list of file that are shared and the number of 27 ** references to each file. 28 */ 29 int SQLITE_TCLAPI sqlite3BtreeSharedCacheReport( 30 void * clientData, 31 Tcl_Interp *interp, 32 int objc, 33 Tcl_Obj *CONST objv[] 34 ){ 35 #ifndef SQLITE_OMIT_SHARED_CACHE 36 extern BtShared *sqlite3SharedCacheList; 37 BtShared *pBt; 38 Tcl_Obj *pRet = Tcl_NewObj(); 39 for(pBt=GLOBAL(BtShared*,sqlite3SharedCacheList); pBt; pBt=pBt->pNext){ 40 const char *zFile = sqlite3PagerFilename(pBt->pPager, 1); 41 Tcl_ListObjAppendElement(interp, pRet, Tcl_NewStringObj(zFile, -1)); 42 Tcl_ListObjAppendElement(interp, pRet, Tcl_NewIntObj(pBt->nRef)); 43 } 44 Tcl_SetObjResult(interp, pRet); 45 #endif 46 return TCL_OK; 47 } 48 49 /* 50 ** Print debugging information about all cursors to standard output. 51 */ 52 void sqlite3BtreeCursorList(Btree *p){ 53 #ifdef SQLITE_DEBUG 54 BtCursor *pCur; 55 BtShared *pBt = p->pBt; 56 for(pCur=pBt->pCursor; pCur; pCur=pCur->pNext){ 57 MemPage *pPage = pCur->apPage[pCur->iPage]; 58 char *zMode = (pCur->curFlags & BTCF_WriteFlag) ? "rw" : "ro"; 59 sqlite3DebugPrintf("CURSOR %p rooted at %4d(%s) currently at %d.%d%s\n", 60 pCur, pCur->pgnoRoot, zMode, 61 pPage ? pPage->pgno : 0, pCur->aiIdx[pCur->iPage], 62 (pCur->eState==CURSOR_VALID) ? "" : " eof" 63 ); 64 } 65 #endif 66 } 67