/*

** 2007 May 05

**

** The author disclaims copyright to this source code.  In place of

** a legal notice, here is a blessing:

**

**    May you do good and not evil.

**    May you find forgiveness for yourself and forgive others.

**    May you share freely, never taking more than you give.

**

*************************************************************************

** Code for testing the btree.c module in SQLite.  This code

** is not included in the SQLite library.  It is used for automated

** testing of the SQLite library.

**

** $Id: test_btree.c,v 1.8 2008/09/29 11:49:48 danielk1977 Exp $

*/

#include "btreeInt.h"

#include "tcl.h"

/*

** Usage: sqlite3_shared_cache_report

**

** Return a list of file that are shared and the number of

** references to each file.

*/

int sqlite3BtreeSharedCacheReport(

  void * clientData,

  Tcl_Interp *interp,

  int objc,

  Tcl_Obj *CONST objv[]

){

#ifndef SQLITE_OMIT_SHARED_CACHE

  extern BtShared *sqlite3SharedCacheList;

  BtShared *pBt;

  Tcl_Obj *pRet = Tcl_NewObj();

  for(pBt=GLOBAL(BtShared*,sqlite3SharedCacheList); pBt; pBt=pBt->pNext){

    const char *zFile = sqlite3PagerFilename(pBt->pPager);

    Tcl_ListObjAppendElement(interp, pRet, Tcl_NewStringObj(zFile, -1));

    Tcl_ListObjAppendElement(interp, pRet, Tcl_NewIntObj(pBt->nRef));

  }

  Tcl_SetObjResult(interp, pRet);

#endif

  return TCL_OK;

}

/*

** Print debugging information about all cursors to standard output.

*/

void sqlite3BtreeCursorList(Btree *p){

#ifdef SQLITE_DEBUG

  BtCursor *pCur;

  BtShared *pBt = p->pBt;

  for(pCur=pBt->pCursor; pCur; pCur=pCur->pNext){

    MemPage *pPage = pCur->apPage[pCur->iPage];

    char *zMode = pCur->wrFlag ? "rw" : "ro";

    sqlite3DebugPrintf("CURSOR %p rooted at %4d(%s) currently at %d.%d%s\n",

       pCur, pCur->pgnoRoot, zMode,

       pPage ? pPage->pgno : 0, pCur->aiIdx[pCur->iPage],

       (pCur->eState==CURSOR_VALID) ? "" : " eof"

    );

  }

#endif

}

/*

** Fill aResult[] with information about the entry and page that the

** cursor is pointing to.

** 

**   aResult[0] =  The page number

**   aResult[1] =  The entry number

**   aResult[2] =  Total number of entries on this page

**   aResult[3] =  Cell size (local payload + header)

**   aResult[4] =  Number of free bytes on this page

**   aResult[5] =  Number of free blocks on the page

**   aResult[6] =  Total payload size (local + overflow)

**   aResult[7] =  Header size in bytes

**   aResult[8] =  Local payload size

**   aResult[9] =  Parent page number

**   aResult[10]=  Page number of the first overflow page

**

** This routine is used for testing and debugging only.

*/

int sqlite3BtreeCursorInfo(BtCursor *pCur, int *aResult, int upCnt){

#if 0

  int cnt, idx;

  MemPage *pPage = pCur->apPage[pCur->iPage];

  BtCursor tmpCur;

  int rc;

  if( pCur->eState==CURSOR_REQUIRESEEK ){

    rc = sqlite3BtreeRestoreCursorPosition(pCur);

    if( rc!=SQLITE_OK ){

      return rc;

    }

  }

  assert( pPage->isInit );

  sqlite3BtreeGetTempCursor(pCur, &tmpCur);

  while( upCnt-- ){

    sqlite3BtreeMoveToParent(&tmpCur);

  }

  pPage = tmpCur.pPage;

  aResult[0] = sqlite3PagerPagenumber(pPage->pDbPage);

  assert( aResult[0]==pPage->pgno );

  aResult[1] = tmpCur.idx;

  aResult[2] = pPage->nCell;

  if( tmpCur.idx>=0 && tmpCur.idx<pPage->nCell ){

    sqlite3BtreeParseCell(tmpCur.pPage, tmpCur.idx, &tmpCur.info);

    aResult[3] = tmpCur.info.nSize;

    aResult[6] = tmpCur.info.nData;

    aResult[7] = tmpCur.info.nHeader;

    aResult[8] = tmpCur.info.nLocal;

  }else{

    aResult[3] = 0;

    aResult[6] = 0;

    aResult[7] = 0;

    aResult[8] = 0;

  }

  aResult[4] = pPage->nFree;

  cnt = 0;

  idx = get2byte(&pPage->aData[pPage->hdrOffset+1]);

  while( idx>0 && idx<pPage->pBt->usableSize ){

    cnt++;

    idx = get2byte(&pPage->aData[idx]);

  }

  aResult[5] = cnt;

  if( pPage->pParent==0 || sqlite3BtreeIsRootPage(pPage) ){

    aResult[9] = 0;

  }else{

    aResult[9] = pPage->pParent->pgno;

  }

  if( tmpCur.info.iOverflow ){

    aResult[10] = get4byte(&tmpCur.info.pCell[tmpCur.info.iOverflow]);

  }else{

    aResult[10] = 0;

  }

  sqlite3BtreeReleaseTempCursor(&tmpCur);

#endif

  return SQLITE_OK;

}