sl@0: /*
sl@0: ** 2007 May 05
sl@0: **
sl@0: ** The author disclaims copyright to this source code.  In place of
sl@0: ** a legal notice, here is a blessing:
sl@0: **
sl@0: **    May you do good and not evil.
sl@0: **    May you find forgiveness for yourself and forgive others.
sl@0: **    May you share freely, never taking more than you give.
sl@0: **
sl@0: *************************************************************************
sl@0: ** Code for testing the btree.c module in SQLite.  This code
sl@0: ** is not included in the SQLite library.  It is used for automated
sl@0: ** testing of the SQLite library.
sl@0: **
sl@0: ** $Id: test_btree.c,v 1.8 2008/09/29 11:49:48 danielk1977 Exp $
sl@0: */
sl@0: #include "btreeInt.h"
sl@0: #include "tcl.h"
sl@0: 
sl@0: /*
sl@0: ** Usage: sqlite3_shared_cache_report
sl@0: **
sl@0: ** Return a list of file that are shared and the number of
sl@0: ** references to each file.
sl@0: */
sl@0: int sqlite3BtreeSharedCacheReport(
sl@0:   void * clientData,
sl@0:   Tcl_Interp *interp,
sl@0:   int objc,
sl@0:   Tcl_Obj *CONST objv[]
sl@0: ){
sl@0: #ifndef SQLITE_OMIT_SHARED_CACHE
sl@0:   extern BtShared *sqlite3SharedCacheList;
sl@0:   BtShared *pBt;
sl@0:   Tcl_Obj *pRet = Tcl_NewObj();
sl@0:   for(pBt=GLOBAL(BtShared*,sqlite3SharedCacheList); pBt; pBt=pBt->pNext){
sl@0:     const char *zFile = sqlite3PagerFilename(pBt->pPager);
sl@0:     Tcl_ListObjAppendElement(interp, pRet, Tcl_NewStringObj(zFile, -1));
sl@0:     Tcl_ListObjAppendElement(interp, pRet, Tcl_NewIntObj(pBt->nRef));
sl@0:   }
sl@0:   Tcl_SetObjResult(interp, pRet);
sl@0: #endif
sl@0:   return TCL_OK;
sl@0: }
sl@0: 
sl@0: /*
sl@0: ** Print debugging information about all cursors to standard output.
sl@0: */
sl@0: void sqlite3BtreeCursorList(Btree *p){
sl@0: #ifdef SQLITE_DEBUG
sl@0:   BtCursor *pCur;
sl@0:   BtShared *pBt = p->pBt;
sl@0:   for(pCur=pBt->pCursor; pCur; pCur=pCur->pNext){
sl@0:     MemPage *pPage = pCur->apPage[pCur->iPage];
sl@0:     char *zMode = pCur->wrFlag ? "rw" : "ro";
sl@0:     sqlite3DebugPrintf("CURSOR %p rooted at %4d(%s) currently at %d.%d%s\n",
sl@0:        pCur, pCur->pgnoRoot, zMode,
sl@0:        pPage ? pPage->pgno : 0, pCur->aiIdx[pCur->iPage],
sl@0:        (pCur->eState==CURSOR_VALID) ? "" : " eof"
sl@0:     );
sl@0:   }
sl@0: #endif
sl@0: }
sl@0: 
sl@0: 
sl@0: /*
sl@0: ** Fill aResult[] with information about the entry and page that the
sl@0: ** cursor is pointing to.
sl@0: ** 
sl@0: **   aResult[0] =  The page number
sl@0: **   aResult[1] =  The entry number
sl@0: **   aResult[2] =  Total number of entries on this page
sl@0: **   aResult[3] =  Cell size (local payload + header)
sl@0: **   aResult[4] =  Number of free bytes on this page
sl@0: **   aResult[5] =  Number of free blocks on the page
sl@0: **   aResult[6] =  Total payload size (local + overflow)
sl@0: **   aResult[7] =  Header size in bytes
sl@0: **   aResult[8] =  Local payload size
sl@0: **   aResult[9] =  Parent page number
sl@0: **   aResult[10]=  Page number of the first overflow page
sl@0: **
sl@0: ** This routine is used for testing and debugging only.
sl@0: */
sl@0: int sqlite3BtreeCursorInfo(BtCursor *pCur, int *aResult, int upCnt){
sl@0: #if 0
sl@0:   int cnt, idx;
sl@0:   MemPage *pPage = pCur->apPage[pCur->iPage];
sl@0:   BtCursor tmpCur;
sl@0:   int rc;
sl@0: 
sl@0:   if( pCur->eState==CURSOR_REQUIRESEEK ){
sl@0:     rc = sqlite3BtreeRestoreCursorPosition(pCur);
sl@0:     if( rc!=SQLITE_OK ){
sl@0:       return rc;
sl@0:     }
sl@0:   }
sl@0: 
sl@0:   assert( pPage->isInit );
sl@0:   sqlite3BtreeGetTempCursor(pCur, &tmpCur);
sl@0:   while( upCnt-- ){
sl@0:     sqlite3BtreeMoveToParent(&tmpCur);
sl@0:   }
sl@0:   pPage = tmpCur.pPage;
sl@0:   aResult[0] = sqlite3PagerPagenumber(pPage->pDbPage);
sl@0:   assert( aResult[0]==pPage->pgno );
sl@0:   aResult[1] = tmpCur.idx;
sl@0:   aResult[2] = pPage->nCell;
sl@0:   if( tmpCur.idx>=0 && tmpCur.idx<pPage->nCell ){
sl@0:     sqlite3BtreeParseCell(tmpCur.pPage, tmpCur.idx, &tmpCur.info);
sl@0:     aResult[3] = tmpCur.info.nSize;
sl@0:     aResult[6] = tmpCur.info.nData;
sl@0:     aResult[7] = tmpCur.info.nHeader;
sl@0:     aResult[8] = tmpCur.info.nLocal;
sl@0:   }else{
sl@0:     aResult[3] = 0;
sl@0:     aResult[6] = 0;
sl@0:     aResult[7] = 0;
sl@0:     aResult[8] = 0;
sl@0:   }
sl@0:   aResult[4] = pPage->nFree;
sl@0:   cnt = 0;
sl@0:   idx = get2byte(&pPage->aData[pPage->hdrOffset+1]);
sl@0:   while( idx>0 && idx<pPage->pBt->usableSize ){
sl@0:     cnt++;
sl@0:     idx = get2byte(&pPage->aData[idx]);
sl@0:   }
sl@0:   aResult[5] = cnt;
sl@0:   if( pPage->pParent==0 || sqlite3BtreeIsRootPage(pPage) ){
sl@0:     aResult[9] = 0;
sl@0:   }else{
sl@0:     aResult[9] = pPage->pParent->pgno;
sl@0:   }
sl@0:   if( tmpCur.info.iOverflow ){
sl@0:     aResult[10] = get4byte(&tmpCur.info.pCell[tmpCur.info.iOverflow]);
sl@0:   }else{
sl@0:     aResult[10] = 0;
sl@0:   }
sl@0:   sqlite3BtreeReleaseTempCursor(&tmpCur);
sl@0: #endif
sl@0:   return SQLITE_OK;
sl@0: }