Index: third_party/sqlite/sqlite-src-3070603/src/test_btree.c |
diff --git a/third_party/sqlite/sqlite-src-3070603/src/test_btree.c b/third_party/sqlite/sqlite-src-3070603/src/test_btree.c |
new file mode 100644 |
index 0000000000000000000000000000000000000000..0048397e9ede9832642a11c55890effe4b7a775c |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3070603/src/test_btree.c |
@@ -0,0 +1,62 @@ |
+/* |
+** 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. |
+*/ |
+#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 |
+} |