src/third_party/sqlite/src/src/test_btree.c

   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);
  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->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 }