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 |