/ Hex Artifact Content
Login

Artifact 8b2dc8b8848cf3a4db93f11578f075e82252a274:


0000: 2f 2a 0a 2a 2a 20 32 30 30 37 20 4d 61 79 20 30  /*.** 2007 May 0
0010: 35 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74 68  5.**.** The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c 65  place of.** a le
0060: 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65  gal notice, here
0070: 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a   is a blessing:.
0080: 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f 75  **.**    May you
0090: 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74   do good and not
00a0: 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61 79   evil..**    May
00b0: 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69 76   you find forgiv
00c0: 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73 65  eness for yourse
00d0: 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20 6f  lf and forgive o
00e0: 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61 79  thers..**    May
00f0: 20 79 6f 75 20 73 68 61 72 65 20 66 72 65 65 6c   you share freel
0100: 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67 20  y, never taking 
0110: 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67 69  more than you gi
0120: 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ve..**.*********
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 0a 2a 2a 20 43 6f 64 65 20 66 6f 72 20 74 65 73  .** Code for tes
0180: 74 69 6e 67 20 74 68 65 20 62 74 72 65 65 2e 63  ting the btree.c
0190: 20 6d 6f 64 75 6c 65 20 69 6e 20 53 51 4c 69 74   module in SQLit
01a0: 65 2e 20 20 54 68 69 73 20 63 6f 64 65 0a 2a 2a  e.  This code.**
01b0: 20 69 73 20 6e 6f 74 20 69 6e 63 6c 75 64 65 64   is not included
01c0: 20 69 6e 20 74 68 65 20 53 51 4c 69 74 65 20 6c   in the SQLite l
01d0: 69 62 72 61 72 79 2e 20 20 49 74 20 69 73 20 75  ibrary.  It is u
01e0: 73 65 64 20 66 6f 72 20 61 75 74 6f 6d 61 74 65  sed for automate
01f0: 64 0a 2a 2a 20 74 65 73 74 69 6e 67 20 6f 66 20  d.** testing of 
0200: 74 68 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61  the SQLite libra
0210: 72 79 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20  ry..*/.#include 
0220: 22 62 74 72 65 65 49 6e 74 2e 68 22 0a 23 69 66  "btreeInt.h".#if
0230: 20 64 65 66 69 6e 65 64 28 49 4e 43 4c 55 44 45   defined(INCLUDE
0240: 5f 53 51 4c 49 54 45 5f 54 43 4c 5f 48 29 0a 23  _SQLITE_TCL_H).#
0250: 20 20 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74    include "sqlit
0260: 65 5f 74 63 6c 2e 68 22 0a 23 65 6c 73 65 0a 23  e_tcl.h".#else.#
0270: 20 20 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e 68    include "tcl.h
0280: 22 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20  ".#endif../*.** 
0290: 55 73 61 67 65 3a 20 73 71 6c 69 74 65 33 5f 73  Usage: sqlite3_s
02a0: 68 61 72 65 64 5f 63 61 63 68 65 5f 72 65 70 6f  hared_cache_repo
02b0: 72 74 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  rt.**.** Return 
02c0: 61 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 20 74  a list of file t
02d0: 68 61 74 20 61 72 65 20 73 68 61 72 65 64 20 61  hat are shared a
02e0: 6e 64 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66  nd the number of
02f0: 0a 2a 2a 20 72 65 66 65 72 65 6e 63 65 73 20 74  .** references t
0300: 6f 20 65 61 63 68 20 66 69 6c 65 2e 0a 2a 2f 0a  o each file..*/.
0310: 69 6e 74 20 53 51 4c 49 54 45 5f 54 43 4c 41 50  int SQLITE_TCLAP
0320: 49 20 73 71 6c 69 74 65 33 42 74 72 65 65 53 68  I sqlite3BtreeSh
0330: 61 72 65 64 43 61 63 68 65 52 65 70 6f 72 74 28  aredCacheReport(
0340: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74  .  void * client
0350: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65  Data,.  Tcl_Inte
0360: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e  rp *interp,.  in
0370: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62  t objc,.  Tcl_Ob
0380: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a  j *CONST objv[].
0390: 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54  ){.#ifndef SQLIT
03a0: 45 5f 4f 4d 49 54 5f 53 48 41 52 45 44 5f 43 41  E_OMIT_SHARED_CA
03b0: 43 48 45 0a 20 20 65 78 74 65 72 6e 20 42 74 53  CHE.  extern BtS
03c0: 68 61 72 65 64 20 2a 73 71 6c 69 74 65 33 53 68  hared *sqlite3Sh
03d0: 61 72 65 64 43 61 63 68 65 4c 69 73 74 3b 0a 20  aredCacheList;. 
03e0: 20 42 74 53 68 61 72 65 64 20 2a 70 42 74 3b 0a   BtShared *pBt;.
03f0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 20    Tcl_Obj *pRet 
0400: 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a  = Tcl_NewObj();.
0410: 20 20 66 6f 72 28 70 42 74 3d 47 4c 4f 42 41 4c    for(pBt=GLOBAL
0420: 28 42 74 53 68 61 72 65 64 2a 2c 73 71 6c 69 74  (BtShared*,sqlit
0430: 65 33 53 68 61 72 65 64 43 61 63 68 65 4c 69 73  e3SharedCacheLis
0440: 74 29 3b 20 70 42 74 3b 20 70 42 74 3d 70 42 74  t); pBt; pBt=pBt
0450: 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20 20 63 6f  ->pNext){.    co
0460: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 20  nst char *zFile 
0470: 3d 20 73 71 6c 69 74 65 33 50 61 67 65 72 46 69  = sqlite3PagerFi
0480: 6c 65 6e 61 6d 65 28 70 42 74 2d 3e 70 50 61 67  lename(pBt->pPag
0490: 65 72 2c 20 31 29 3b 0a 20 20 20 20 54 63 6c 5f  er, 1);.    Tcl_
04a0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
04b0: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 52 65  ment(interp, pRe
04c0: 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67  t, Tcl_NewString
04d0: 4f 62 6a 28 7a 46 69 6c 65 2c 20 2d 31 29 29 3b  Obj(zFile, -1));
04e0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  .    Tcl_ListObj
04f0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e  AppendElement(in
0500: 74 65 72 70 2c 20 70 52 65 74 2c 20 54 63 6c 5f  terp, pRet, Tcl_
0510: 4e 65 77 49 6e 74 4f 62 6a 28 70 42 74 2d 3e 6e  NewIntObj(pBt->n
0520: 52 65 66 29 29 3b 0a 20 20 7d 0a 20 20 54 63 6c  Ref));.  }.  Tcl
0530: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e  _SetObjResult(in
0540: 74 65 72 70 2c 20 70 52 65 74 29 3b 0a 23 65 6e  terp, pRet);.#en
0550: 64 69 66 0a 20 20 72 65 74 75 72 6e 20 54 43 4c  dif.  return TCL
0560: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72  _OK;.}../*.** Pr
0570: 69 6e 74 20 64 65 62 75 67 67 69 6e 67 20 69 6e  int debugging in
0580: 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20  formation about 
0590: 61 6c 6c 20 63 75 72 73 6f 72 73 20 74 6f 20 73  all cursors to s
05a0: 74 61 6e 64 61 72 64 20 6f 75 74 70 75 74 2e 0a  tandard output..
05b0: 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 42  */.void sqlite3B
05c0: 74 72 65 65 43 75 72 73 6f 72 4c 69 73 74 28 42  treeCursorList(B
05d0: 74 72 65 65 20 2a 70 29 7b 0a 23 69 66 64 65 66  tree *p){.#ifdef
05e0: 20 53 51 4c 49 54 45 5f 44 45 42 55 47 0a 20 20   SQLITE_DEBUG.  
05f0: 42 74 43 75 72 73 6f 72 20 2a 70 43 75 72 3b 0a  BtCursor *pCur;.
0600: 20 20 42 74 53 68 61 72 65 64 20 2a 70 42 74 20    BtShared *pBt 
0610: 3d 20 70 2d 3e 70 42 74 3b 0a 20 20 66 6f 72 28  = p->pBt;.  for(
0620: 70 43 75 72 3d 70 42 74 2d 3e 70 43 75 72 73 6f  pCur=pBt->pCurso
0630: 72 3b 20 70 43 75 72 3b 20 70 43 75 72 3d 70 43  r; pCur; pCur=pC
0640: 75 72 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20 20  ur->pNext){.    
0650: 4d 65 6d 50 61 67 65 20 2a 70 50 61 67 65 20 3d  MemPage *pPage =
0660: 20 70 43 75 72 2d 3e 61 70 50 61 67 65 5b 70 43   pCur->apPage[pC
0670: 75 72 2d 3e 69 50 61 67 65 5d 3b 0a 20 20 20 20  ur->iPage];.    
0680: 63 68 61 72 20 2a 7a 4d 6f 64 65 20 3d 20 28 70  char *zMode = (p
0690: 43 75 72 2d 3e 63 75 72 46 6c 61 67 73 20 26 20  Cur->curFlags & 
06a0: 42 54 43 46 5f 57 72 69 74 65 46 6c 61 67 29 20  BTCF_WriteFlag) 
06b0: 3f 20 22 72 77 22 20 3a 20 22 72 6f 22 3b 0a 20  ? "rw" : "ro";. 
06c0: 20 20 20 73 71 6c 69 74 65 33 44 65 62 75 67 50     sqlite3DebugP
06d0: 72 69 6e 74 66 28 22 43 55 52 53 4f 52 20 25 70  rintf("CURSOR %p
06e0: 20 72 6f 6f 74 65 64 20 61 74 20 25 34 64 28 25   rooted at %4d(%
06f0: 73 29 20 63 75 72 72 65 6e 74 6c 79 20 61 74 20  s) currently at 
0700: 25 64 2e 25 64 25 73 5c 6e 22 2c 0a 20 20 20 20  %d.%d%s\n",.    
0710: 20 20 20 70 43 75 72 2c 20 70 43 75 72 2d 3e 70     pCur, pCur->p
0720: 67 6e 6f 52 6f 6f 74 2c 20 7a 4d 6f 64 65 2c 0a  gnoRoot, zMode,.
0730: 20 20 20 20 20 20 20 70 50 61 67 65 20 3f 20 70         pPage ? p
0740: 50 61 67 65 2d 3e 70 67 6e 6f 20 3a 20 30 2c 20  Page->pgno : 0, 
0750: 70 43 75 72 2d 3e 61 69 49 64 78 5b 70 43 75 72  pCur->aiIdx[pCur
0760: 2d 3e 69 50 61 67 65 5d 2c 0a 20 20 20 20 20 20  ->iPage],.      
0770: 20 28 70 43 75 72 2d 3e 65 53 74 61 74 65 3d 3d   (pCur->eState==
0780: 43 55 52 53 4f 52 5f 56 41 4c 49 44 29 20 3f 20  CURSOR_VALID) ? 
0790: 22 22 20 3a 20 22 20 65 6f 66 22 0a 20 20 20 20  "" : " eof".    
07a0: 29 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 7d 0a  );.  }.#endif.}.