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*/
25int 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);
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*/
48void 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->wrFlag ? "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}
63