| OLD | NEW |
| (Empty) |
| 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 #include <tcl.h> | |
| 18 | |
| 19 /* | |
| 20 ** Usage: sqlite3_shared_cache_report | |
| 21 ** | |
| 22 ** Return a list of file that are shared and the number of | |
| 23 ** references to each file. | |
| 24 */ | |
| 25 int sqlite3BtreeSharedCacheReport( | |
| 26 void * clientData, | |
| 27 Tcl_Interp *interp, | |
| 28 int objc, | |
| 29 Tcl_Obj *CONST objv[] | |
| 30 ){ | |
| 31 #ifndef SQLITE_OMIT_SHARED_CACHE | |
| 32 extern BtShared *sqlite3SharedCacheList; | |
| 33 BtShared *pBt; | |
| 34 Tcl_Obj *pRet = Tcl_NewObj(); | |
| 35 for(pBt=GLOBAL(BtShared*,sqlite3SharedCacheList); pBt; pBt=pBt->pNext){ | |
| 36 const char *zFile = sqlite3PagerFilename(pBt->pPager, 1); | |
| 37 Tcl_ListObjAppendElement(interp, pRet, Tcl_NewStringObj(zFile, -1)); | |
| 38 Tcl_ListObjAppendElement(interp, pRet, Tcl_NewIntObj(pBt->nRef)); | |
| 39 } | |
| 40 Tcl_SetObjResult(interp, pRet); | |
| 41 #endif | |
| 42 return TCL_OK; | |
| 43 } | |
| 44 | |
| 45 /* | |
| 46 ** Print debugging information about all cursors to standard output. | |
| 47 */ | |
| 48 void sqlite3BtreeCursorList(Btree *p){ | |
| 49 #ifdef SQLITE_DEBUG | |
| 50 BtCursor *pCur; | |
| 51 BtShared *pBt = p->pBt; | |
| 52 for(pCur=pBt->pCursor; pCur; pCur=pCur->pNext){ | |
| 53 MemPage *pPage = pCur->apPage[pCur->iPage]; | |
| 54 char *zMode = (pCur->curFlags & BTCF_WriteFlag) ? "rw" : "ro"; | |
| 55 sqlite3DebugPrintf("CURSOR %p rooted at %4d(%s) currently at %d.%d%s\n", | |
| 56 pCur, pCur->pgnoRoot, zMode, | |
| 57 pPage ? pPage->pgno : 0, pCur->aiIdx[pCur->iPage], | |
| 58 (pCur->eState==CURSOR_VALID) ? "" : " eof" | |
| 59 ); | |
| 60 } | |
| 61 #endif | |
| 62 } | |
| OLD | NEW |