Return to test_btree.c CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / src

Annotation of embedaddon/sqlite3/src/test_btree.c, revision 1.1

1.1     ! misho       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: }