/ Hex Artifact Content
Login

Artifact 5b89601dcb42a33ba8b820a6b763cc9cb48bac16:


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 6e  "btreeInt.h".#in
0230: 63 6c 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 0a 2f  clude <tcl.h>../
0240: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 73 71 6c 69  *.** Usage: sqli
0250: 74 65 33 5f 73 68 61 72 65 64 5f 63 61 63 68 65  te3_shared_cache
0260: 5f 72 65 70 6f 72 74 0a 2a 2a 0a 2a 2a 20 52 65  _report.**.** Re
0270: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 66  turn a list of f
0280: 69 6c 65 20 74 68 61 74 20 61 72 65 20 73 68 61  ile that are sha
0290: 72 65 64 20 61 6e 64 20 74 68 65 20 6e 75 6d 62  red and the numb
02a0: 65 72 20 6f 66 0a 2a 2a 20 72 65 66 65 72 65 6e  er of.** referen
02b0: 63 65 73 20 74 6f 20 65 61 63 68 20 66 69 6c 65  ces to each file
02c0: 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33  ..*/.int sqlite3
02d0: 42 74 72 65 65 53 68 61 72 65 64 43 61 63 68 65  BtreeSharedCache
02e0: 52 65 70 6f 72 74 28 0a 20 20 76 6f 69 64 20 2a  Report(.  void *
02f0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54   clientData,.  T
0300: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
0310: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20  p,.  int objc,. 
0320: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20   Tcl_Obj *CONST 
0330: 6f 62 6a 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65  objv[].){.#ifnde
0340: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 53 48  f SQLITE_OMIT_SH
0350: 41 52 45 44 5f 43 41 43 48 45 0a 20 20 65 78 74  ARED_CACHE.  ext
0360: 65 72 6e 20 42 74 53 68 61 72 65 64 20 2a 73 71  ern BtShared *sq
0370: 6c 69 74 65 33 53 68 61 72 65 64 43 61 63 68 65  lite3SharedCache
0380: 4c 69 73 74 3b 0a 20 20 42 74 53 68 61 72 65 64  List;.  BtShared
0390: 20 2a 70 42 74 3b 0a 20 20 54 63 6c 5f 4f 62 6a   *pBt;.  Tcl_Obj
03a0: 20 2a 70 52 65 74 20 3d 20 54 63 6c 5f 4e 65 77   *pRet = Tcl_New
03b0: 4f 62 6a 28 29 3b 0a 20 20 66 6f 72 28 70 42 74  Obj();.  for(pBt
03c0: 3d 47 4c 4f 42 41 4c 28 42 74 53 68 61 72 65 64  =GLOBAL(BtShared
03d0: 2a 2c 73 71 6c 69 74 65 33 53 68 61 72 65 64 43  *,sqlite3SharedC
03e0: 61 63 68 65 4c 69 73 74 29 3b 20 70 42 74 3b 20  acheList); pBt; 
03f0: 70 42 74 3d 70 42 74 2d 3e 70 4e 65 78 74 29 7b  pBt=pBt->pNext){
0400: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20  .    const char 
0410: 2a 7a 46 69 6c 65 20 3d 20 73 71 6c 69 74 65 33  *zFile = sqlite3
0420: 50 61 67 65 72 46 69 6c 65 6e 61 6d 65 28 70 42  PagerFilename(pB
0430: 74 2d 3e 70 50 61 67 65 72 2c 20 31 29 3b 0a 20  t->pPager, 1);. 
0440: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70     Tcl_ListObjAp
0450: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65  pendElement(inte
0460: 72 70 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65  rp, pRet, Tcl_Ne
0470: 77 53 74 72 69 6e 67 4f 62 6a 28 7a 46 69 6c 65  wStringObj(zFile
0480: 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f  , -1));.    Tcl_
0490: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
04a0: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 52 65  ment(interp, pRe
04b0: 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a  t, Tcl_NewIntObj
04c0: 28 70 42 74 2d 3e 6e 52 65 66 29 29 3b 0a 20 20  (pBt->nRef));.  
04d0: 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65  }.  Tcl_SetObjRe
04e0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52 65  sult(interp, pRe
04f0: 74 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 74  t);.#endif.  ret
0500: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f  urn TCL_OK;.}../
0510: 2a 0a 2a 2a 20 50 72 69 6e 74 20 64 65 62 75 67  *.** Print debug
0520: 67 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e  ging information
0530: 20 61 62 6f 75 74 20 61 6c 6c 20 63 75 72 73 6f   about all curso
0540: 72 73 20 74 6f 20 73 74 61 6e 64 61 72 64 20 6f  rs to standard o
0550: 75 74 70 75 74 2e 0a 2a 2f 0a 76 6f 69 64 20 73  utput..*/.void s
0560: 71 6c 69 74 65 33 42 74 72 65 65 43 75 72 73 6f  qlite3BtreeCurso
0570: 72 4c 69 73 74 28 42 74 72 65 65 20 2a 70 29 7b  rList(Btree *p){
0580: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 44  .#ifdef SQLITE_D
0590: 45 42 55 47 0a 20 20 42 74 43 75 72 73 6f 72 20  EBUG.  BtCursor 
05a0: 2a 70 43 75 72 3b 0a 20 20 42 74 53 68 61 72 65  *pCur;.  BtShare
05b0: 64 20 2a 70 42 74 20 3d 20 70 2d 3e 70 42 74 3b  d *pBt = p->pBt;
05c0: 0a 20 20 66 6f 72 28 70 43 75 72 3d 70 42 74 2d  .  for(pCur=pBt-
05d0: 3e 70 43 75 72 73 6f 72 3b 20 70 43 75 72 3b 20  >pCursor; pCur; 
05e0: 70 43 75 72 3d 70 43 75 72 2d 3e 70 4e 65 78 74  pCur=pCur->pNext
05f0: 29 7b 0a 20 20 20 20 4d 65 6d 50 61 67 65 20 2a  ){.    MemPage *
0600: 70 50 61 67 65 20 3d 20 70 43 75 72 2d 3e 61 70  pPage = pCur->ap
0610: 50 61 67 65 5b 70 43 75 72 2d 3e 69 50 61 67 65  Page[pCur->iPage
0620: 5d 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 4d 6f  ];.    char *zMo
0630: 64 65 20 3d 20 70 43 75 72 2d 3e 77 72 46 6c 61  de = pCur->wrFla
0640: 67 20 3f 20 22 72 77 22 20 3a 20 22 72 6f 22 3b  g ? "rw" : "ro";
0650: 0a 20 20 20 20 73 71 6c 69 74 65 33 44 65 62 75  .    sqlite3Debu
0660: 67 50 72 69 6e 74 66 28 22 43 55 52 53 4f 52 20  gPrintf("CURSOR 
0670: 25 70 20 72 6f 6f 74 65 64 20 61 74 20 25 34 64  %p rooted at %4d
0680: 28 25 73 29 20 63 75 72 72 65 6e 74 6c 79 20 61  (%s) currently a
0690: 74 20 25 64 2e 25 64 25 73 5c 6e 22 2c 0a 20 20  t %d.%d%s\n",.  
06a0: 20 20 20 20 20 70 43 75 72 2c 20 70 43 75 72 2d       pCur, pCur-
06b0: 3e 70 67 6e 6f 52 6f 6f 74 2c 20 7a 4d 6f 64 65  >pgnoRoot, zMode
06c0: 2c 0a 20 20 20 20 20 20 20 70 50 61 67 65 20 3f  ,.       pPage ?
06d0: 20 70 50 61 67 65 2d 3e 70 67 6e 6f 20 3a 20 30   pPage->pgno : 0
06e0: 2c 20 70 43 75 72 2d 3e 61 69 49 64 78 5b 70 43  , pCur->aiIdx[pC
06f0: 75 72 2d 3e 69 50 61 67 65 5d 2c 0a 20 20 20 20  ur->iPage],.    
0700: 20 20 20 28 70 43 75 72 2d 3e 65 53 74 61 74 65     (pCur->eState
0710: 3d 3d 43 55 52 53 4f 52 5f 56 41 4c 49 44 29 20  ==CURSOR_VALID) 
0720: 3f 20 22 22 20 3a 20 22 20 65 6f 66 22 0a 20 20  ? "" : " eof".  
0730: 20 20 29 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a    );.  }.#endif.
0740: 7d 0a                                            }.