/ Hex Artifact Content
Login

Artifact 5265a95126abcf6ab357f7efa544787e5963f439:


0000: 23 20 52 75 6e 20 74 68 69 73 20 54 43 4c 20 73  # Run this TCL s
0010: 63 72 69 70 74 20 75 73 69 6e 67 20 22 74 65 73  cript using "tes
0020: 74 66 69 78 74 75 72 65 22 20 74 6f 20 67 65 74  tfixture" to get
0030: 20 61 20 72 65 70 6f 72 74 20 74 68 61 74 20 73   a report that s
0040: 68 6f 77 73 0a 23 20 74 68 65 20 73 65 71 75 65  hows.# the seque
0050: 6e 63 65 20 6f 66 20 64 61 74 61 62 61 73 65 20  nce of database 
0060: 70 61 67 65 73 20 75 73 65 64 20 62 79 20 61 20  pages used by a 
0070: 70 61 72 74 69 63 75 6c 61 72 20 74 61 62 6c 65  particular table
0080: 20 6f 72 20 69 6e 64 65 78 2e 0a 23 20 54 68 69   or index..# Thi
0090: 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73  s information is
00a0: 20 75 73 65 64 20 66 6f 72 20 66 72 61 67 6d 65   used for fragme
00b0: 6e 74 61 74 69 6f 6e 20 61 6e 61 6c 79 73 69 73  ntation analysis
00c0: 2e 0a 23 0a 0a 23 20 47 65 74 20 74 68 65 20 6e  ..#..# Get the n
00d0: 61 6d 65 20 6f 66 20 74 68 65 20 64 61 74 61 62  ame of the datab
00e0: 61 73 65 20 74 6f 20 61 6e 61 6c 79 7a 65 0a 23  ase to analyze.#
00f0: 0a 0a 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24  ..if {[llength $
0100: 61 72 67 76 5d 21 3d 32 7d 20 7b 0a 20 20 70 75  argv]!=2} {.  pu
0110: 74 73 20 73 74 64 65 72 72 20 22 55 73 61 67 65  ts stderr "Usage
0120: 3a 20 24 61 72 67 76 30 20 64 61 74 61 62 61 73  : $argv0 databas
0130: 65 2d 6e 61 6d 65 20 74 61 62 6c 65 2d 6f 72 2d  e-name table-or-
0140: 69 6e 64 65 78 2d 6e 61 6d 65 22 0a 20 20 65 78  index-name".  ex
0150: 69 74 20 31 0a 7d 0a 73 65 74 20 66 69 6c 65 5f  it 1.}.set file_
0160: 74 6f 5f 61 6e 61 6c 79 7a 65 20 5b 6c 69 6e 64  to_analyze [lind
0170: 65 78 20 24 61 72 67 76 20 30 5d 0a 69 66 20 7b  ex $argv 0].if {
0180: 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66  ![file exists $f
0190: 69 6c 65 5f 74 6f 5f 61 6e 61 6c 79 7a 65 5d 7d  ile_to_analyze]}
01a0: 20 7b 0a 20 20 70 75 74 73 20 73 74 64 65 72 72   {.  puts stderr
01b0: 20 22 4e 6f 20 73 75 63 68 20 66 69 6c 65 3a 20   "No such file: 
01c0: 24 66 69 6c 65 5f 74 6f 5f 61 6e 61 6c 79 7a 65  $file_to_analyze
01d0: 22 0a 20 20 65 78 69 74 20 31 0a 7d 0a 69 66 20  ".  exit 1.}.if 
01e0: 7b 21 5b 66 69 6c 65 20 72 65 61 64 61 62 6c 65  {![file readable
01f0: 20 24 66 69 6c 65 5f 74 6f 5f 61 6e 61 6c 79 7a   $file_to_analyz
0200: 65 5d 7d 20 7b 0a 20 20 70 75 74 73 20 73 74 64  e]} {.  puts std
0210: 65 72 72 20 22 46 69 6c 65 20 69 73 20 6e 6f 74  err "File is not
0220: 20 72 65 61 64 61 62 6c 65 3a 20 24 66 69 6c 65   readable: $file
0230: 5f 74 6f 5f 61 6e 61 6c 79 7a 65 22 0a 20 20 65  _to_analyze".  e
0240: 78 69 74 20 31 0a 7d 0a 69 66 20 7b 5b 66 69 6c  xit 1.}.if {[fil
0250: 65 20 73 69 7a 65 20 24 66 69 6c 65 5f 74 6f 5f  e size $file_to_
0260: 61 6e 61 6c 79 7a 65 5d 3c 35 31 32 7d 20 7b 0a  analyze]<512} {.
0270: 20 20 70 75 74 73 20 73 74 64 65 72 72 20 22 45    puts stderr "E
0280: 6d 70 74 79 20 6f 72 20 6d 61 6c 66 6f 72 6d 65  mpty or malforme
0290: 64 20 64 61 74 61 62 61 73 65 3a 20 24 66 69 6c  d database: $fil
02a0: 65 5f 74 6f 5f 61 6e 61 6c 79 7a 65 22 0a 20 20  e_to_analyze".  
02b0: 65 78 69 74 20 31 0a 7d 0a 73 65 74 20 6f 62 6a  exit 1.}.set obj
02c0: 6e 61 6d 65 20 5b 6c 69 6e 64 65 78 20 24 61 72  name [lindex $ar
02d0: 67 76 20 31 5d 0a 0a 23 20 4f 70 65 6e 20 74 68  gv 1]..# Open th
02e0: 65 20 64 61 74 61 62 61 73 65 0a 23 0a 73 71 6c  e database.#.sql
02f0: 69 74 65 33 20 64 62 20 5b 6c 69 6e 64 65 78 20  ite3 db [lindex 
0300: 24 61 72 67 76 20 30 5d 0a 73 65 74 20 44 42 20  $argv 0].set DB 
0310: 5b 62 74 72 65 65 5f 6f 70 65 6e 20 5b 6c 69 6e  [btree_open [lin
0320: 64 65 78 20 24 61 72 67 76 20 30 5d 20 31 30 30  dex $argv 0] 100
0330: 30 20 30 5d 0a 0a 23 20 54 68 69 73 20 70 72 6f  0 0]..# This pro
0340: 63 20 69 73 20 61 20 77 72 61 70 70 65 72 20 61  c is a wrapper a
0350: 72 6f 75 6e 64 20 74 68 65 20 62 74 72 65 65 5f  round the btree_
0360: 63 75 72 73 6f 72 5f 69 6e 66 6f 20 63 6f 6d 6d  cursor_info comm
0370: 61 6e 64 2e 20 54 68 65 0a 23 20 73 65 63 6f 6e  and. The.# secon
0380: 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61 6e  d argument is an
0390: 20 6f 70 65 6e 20 62 74 72 65 65 20 63 75 72 73   open btree curs
03a0: 6f 72 20 72 65 74 75 72 6e 65 64 20 62 79 20 5b  or returned by [
03b0: 62 74 72 65 65 5f 63 75 72 73 6f 72 5d 2e 0a 23  btree_cursor]..#
03c0: 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75 6d   The first argum
03d0: 65 6e 74 20 69 73 20 74 68 65 20 6e 61 6d 65 20  ent is the name 
03e0: 6f 66 20 61 6e 20 61 72 72 61 79 20 76 61 72 69  of an array vari
03f0: 61 62 6c 65 20 74 68 61 74 20 65 78 69 73 74 73  able that exists
0400: 20 69 6e 0a 23 20 74 68 65 20 73 63 6f 70 65 20   in.# the scope 
0410: 6f 66 20 74 68 65 20 63 61 6c 6c 65 72 2e 20 49  of the caller. I
0420: 66 20 74 68 65 20 74 68 69 72 64 20 61 72 67 75  f the third argu
0430: 6d 65 6e 74 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f  ment is non-zero
0440: 2c 20 74 68 65 6e 0a 23 20 69 6e 66 6f 20 69 73  , then.# info is
0450: 20 72 65 74 75 72 6e 65 64 20 66 6f 72 20 74 68   returned for th
0460: 65 20 70 61 67 65 20 74 68 61 74 20 6c 69 65 73  e page that lies
0470: 20 24 75 70 20 65 6e 74 72 69 65 73 20 75 70 77   $up entries upw
0480: 61 72 64 73 20 69 6e 20 74 68 65 0a 23 20 74 72  ards in the.# tr
0490: 65 65 2d 73 74 72 75 63 74 75 72 65 2e 20 28 69  ee-structure. (i
04a0: 2e 65 2e 20 24 75 70 3d 3d 31 20 72 65 74 75 72  .e. $up==1 retur
04b0: 6e 73 20 74 68 65 20 70 61 72 65 6e 74 20 70 61  ns the parent pa
04c0: 67 65 2c 20 24 75 70 3d 3d 32 20 74 68 65 20 0a  ge, $up==2 the .
04d0: 23 20 67 72 61 6e 64 70 61 72 65 6e 74 20 65 74  # grandparent et
04e0: 63 2e 29 0a 23 0a 23 20 54 68 65 20 66 6f 6c 6c  c.).#.# The foll
04f0: 6f 77 69 6e 67 20 65 6e 74 72 69 65 73 20 69 6e  owing entries in
0500: 20 74 68 61 74 20 61 72 72 61 79 20 61 72 65 20   that array are 
0510: 66 69 6c 6c 65 64 20 69 6e 20 77 69 74 68 20 69  filled in with i
0520: 6e 66 6f 72 6d 61 74 69 6f 6e 20 72 65 74 72 69  nformation retri
0530: 65 76 65 64 0a 23 20 75 73 69 6e 67 20 5b 62 74  eved.# using [bt
0540: 72 65 65 5f 63 75 72 73 6f 72 5f 69 6e 66 6f 5d  ree_cursor_info]
0550: 3a 0a 23 0a 23 20 20 20 24 61 72 72 61 79 76 61  :.#.#   $arrayva
0560: 72 28 70 61 67 65 5f 6e 6f 29 20 20 20 20 20 20  r(page_no)      
0570: 20 20 20 20 20 20 20 3d 20 20 54 68 65 20 70 61         =  The pa
0580: 67 65 20 6e 75 6d 62 65 72 0a 23 20 20 20 24 61  ge number.#   $a
0590: 72 72 61 79 76 61 72 28 65 6e 74 72 79 5f 6e 6f  rrayvar(entry_no
05a0: 29 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 20  )            =  
05b0: 54 68 65 20 65 6e 74 72 79 20 6e 75 6d 62 65 72  The entry number
05c0: 0a 23 20 20 20 24 61 72 72 61 79 76 61 72 28 70  .#   $arrayvar(p
05d0: 61 67 65 5f 65 6e 74 72 69 65 73 29 20 20 20 20  age_entries)    
05e0: 20 20 20 20 3d 20 20 54 6f 74 61 6c 20 6e 75 6d      =  Total num
05f0: 62 65 72 20 6f 66 20 65 6e 74 72 69 65 73 20 6f  ber of entries o
0600: 6e 20 74 68 69 73 20 70 61 67 65 0a 23 20 20 20  n this page.#   
0610: 24 61 72 72 61 79 76 61 72 28 63 65 6c 6c 5f 73  $arrayvar(cell_s
0620: 69 7a 65 29 20 20 20 20 20 20 20 20 20 20 20 3d  ize)           =
0630: 20 20 43 65 6c 6c 20 73 69 7a 65 20 28 6c 6f 63    Cell size (loc
0640: 61 6c 20 70 61 79 6c 6f 61 64 20 2b 20 68 65 61  al payload + hea
0650: 64 65 72 29 0a 23 20 20 20 24 61 72 72 61 79 76  der).#   $arrayv
0660: 61 72 28 70 61 67 65 5f 66 72 65 65 62 79 74 65  ar(page_freebyte
0670: 73 29 20 20 20 20 20 20 3d 20 20 4e 75 6d 62 65  s)      =  Numbe
0680: 72 20 6f 66 20 66 72 65 65 20 62 79 74 65 73 20  r of free bytes 
0690: 6f 6e 20 74 68 69 73 20 70 61 67 65 0a 23 20 20  on this page.#  
06a0: 20 24 61 72 72 61 79 76 61 72 28 70 61 67 65 5f   $arrayvar(page_
06b0: 66 72 65 65 62 6c 6f 63 6b 73 29 20 20 20 20 20  freeblocks)     
06c0: 3d 20 20 4e 75 6d 62 65 72 20 6f 66 20 66 72 65  =  Number of fre
06d0: 65 20 62 6c 6f 63 6b 73 20 6f 6e 20 74 68 65 20  e blocks on the 
06e0: 70 61 67 65 0a 23 20 20 20 24 61 72 72 61 79 76  page.#   $arrayv
06f0: 61 72 28 70 61 79 6c 6f 61 64 5f 62 79 74 65 73  ar(payload_bytes
0700: 29 20 20 20 20 20 20 20 3d 20 20 54 6f 74 61 6c  )       =  Total
0710: 20 70 61 79 6c 6f 61 64 20 73 69 7a 65 20 28 6c   payload size (l
0720: 6f 63 61 6c 20 2b 20 6f 76 65 72 66 6c 6f 77 29  ocal + overflow)
0730: 0a 23 20 20 20 24 61 72 72 61 79 76 61 72 28 68  .#   $arrayvar(h
0740: 65 61 64 65 72 5f 62 79 74 65 73 29 20 20 20 20  eader_bytes)    
0750: 20 20 20 20 3d 20 20 48 65 61 64 65 72 20 73 69      =  Header si
0760: 7a 65 20 69 6e 20 62 79 74 65 73 0a 23 20 20 20  ze in bytes.#   
0770: 24 61 72 72 61 79 76 61 72 28 6c 6f 63 61 6c 5f  $arrayvar(local_
0780: 70 61 79 6c 6f 61 64 5f 62 79 74 65 73 29 20 3d  payload_bytes) =
0790: 20 20 4c 6f 63 61 6c 20 70 61 79 6c 6f 61 64 20    Local payload 
07a0: 73 69 7a 65 0a 23 20 20 20 24 61 72 72 61 79 76  size.#   $arrayv
07b0: 61 72 28 70 61 72 65 6e 74 29 20 20 20 20 20 20  ar(parent)      
07c0: 20 20 20 20 20 20 20 20 3d 20 20 50 61 72 65 6e          =  Paren
07d0: 74 20 70 61 67 65 20 6e 75 6d 62 65 72 0a 23 20  t page number.# 
07e0: 0a 70 72 6f 63 20 63 75 72 73 6f 72 5f 69 6e 66  .proc cursor_inf
07f0: 6f 20 7b 61 72 72 61 79 76 61 72 20 63 73 72 20  o {arrayvar csr 
0800: 7b 75 70 20 30 7d 7d 20 7b 0a 20 20 75 70 76 61  {up 0}} {.  upva
0810: 72 20 24 61 72 72 61 79 76 61 72 20 61 0a 20 20  r $arrayvar a.  
0820: 66 6f 72 65 61 63 68 20 5b 6c 69 73 74 20 61 28  foreach [list a(
0830: 70 61 67 65 5f 6e 6f 29 20 5c 0a 20 20 20 20 20  page_no) \.     
0840: 20 20 20 20 20 20 20 20 20 20 20 61 28 65 6e 74             a(ent
0850: 72 79 5f 6e 6f 29 20 5c 0a 20 20 20 20 20 20 20  ry_no) \.       
0860: 20 20 20 20 20 20 20 20 20 61 28 70 61 67 65 5f           a(page_
0870: 65 6e 74 72 69 65 73 29 20 5c 0a 20 20 20 20 20  entries) \.     
0880: 20 20 20 20 20 20 20 20 20 20 20 61 28 63 65 6c             a(cel
0890: 6c 5f 73 69 7a 65 29 20 5c 0a 20 20 20 20 20 20  l_size) \.      
08a0: 20 20 20 20 20 20 20 20 20 20 61 28 70 61 67 65            a(page
08b0: 5f 66 72 65 65 62 79 74 65 73 29 20 5c 0a 20 20  _freebytes) \.  
08c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 28                a(
08d0: 70 61 67 65 5f 66 72 65 65 62 6c 6f 63 6b 73 29  page_freeblocks)
08e0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   \.             
08f0: 20 20 20 61 28 70 61 79 6c 6f 61 64 5f 62 79 74     a(payload_byt
0900: 65 73 29 20 5c 0a 20 20 20 20 20 20 20 20 20 20  es) \.          
0910: 20 20 20 20 20 20 61 28 68 65 61 64 65 72 5f 62        a(header_b
0920: 79 74 65 73 29 20 5c 0a 20 20 20 20 20 20 20 20  ytes) \.        
0930: 20 20 20 20 20 20 20 20 61 28 6c 6f 63 61 6c 5f          a(local_
0940: 70 61 79 6c 6f 61 64 5f 62 79 74 65 73 29 20 5c  payload_bytes) \
0950: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0960: 20 61 28 70 61 72 65 6e 74 29 20 5c 0a 20 20 20   a(parent) \.   
0970: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 28 66               a(f
0980: 69 72 73 74 5f 6f 76 66 6c 29 20 5d 20 5b 62 74  irst_ovfl) ] [bt
0990: 72 65 65 5f 63 75 72 73 6f 72 5f 69 6e 66 6f 20  ree_cursor_info 
09a0: 24 63 73 72 20 24 75 70 5d 20 62 72 65 61 6b 0a  $csr $up] break.
09b0: 7d 0a 0a 23 20 44 65 74 65 72 6d 69 6e 65 20 74  }..# Determine t
09c0: 68 65 20 70 61 67 65 2d 73 69 7a 65 20 6f 66 20  he page-size of 
09d0: 74 68 65 20 64 61 74 61 62 61 73 65 2e 20 54 68  the database. Th
09e0: 69 73 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62  is global variab
09f0: 6c 65 20 69 73 20 75 73 65 64 0a 23 20 74 68 72  le is used.# thr
0a00: 6f 75 67 68 6f 75 74 20 74 68 65 20 73 63 72 69  oughout the scri
0a10: 70 74 2e 0a 23 0a 73 65 74 20 70 61 67 65 53 69  pt..#.set pageSi
0a20: 7a 65 20 5b 64 62 20 65 76 61 6c 20 7b 50 52 41  ze [db eval {PRA
0a30: 47 4d 41 20 70 61 67 65 5f 73 69 7a 65 7d 5d 0a  GMA page_size}].
0a40: 0a 23 20 46 69 6e 64 20 74 68 65 20 72 6f 6f 74  .# Find the root
0a50: 20 70 61 67 65 20 6f 66 20 74 61 62 6c 65 20 6f   page of table o
0a60: 72 20 69 6e 64 65 78 20 74 6f 20 62 65 20 61 6e  r index to be an
0a70: 61 6c 79 7a 65 64 2e 20 20 41 6c 73 6f 20 66 69  alyzed.  Also fi
0a80: 6e 64 20 6f 75 74 0a 23 20 69 66 20 74 68 65 20  nd out.# if the 
0a90: 6f 62 6a 65 63 74 20 69 73 20 61 20 74 61 62 6c  object is a tabl
0aa0: 65 20 6f 72 20 61 6e 20 69 6e 64 65 78 2e 0a 23  e or an index..#
0ab0: 0a 69 66 20 7b 24 6f 62 6a 6e 61 6d 65 3d 3d 22  .if {$objname=="
0ac0: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 22 7d 20  sqlite_master"} 
0ad0: 7b 0a 20 20 73 65 74 20 72 6f 6f 74 70 61 67 65  {.  set rootpage
0ae0: 20 31 0a 20 20 73 65 74 20 74 79 70 65 20 74 61   1.  set type ta
0af0: 62 6c 65 0a 7d 20 65 6c 73 65 20 7b 0a 20 20 64  ble.} else {.  d
0b00: 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 53 45 4c  b eval {.    SEL
0b10: 45 43 54 20 72 6f 6f 74 70 61 67 65 2c 20 74 79  ECT rootpage, ty
0b20: 70 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d  pe FROM sqlite_m
0b30: 61 73 74 65 72 0a 20 20 20 20 20 57 48 45 52 45  aster.     WHERE
0b40: 20 6e 61 6d 65 3d 24 6f 62 6a 6e 61 6d 65 0a 20   name=$objname. 
0b50: 20 7d 20 62 72 65 61 6b 0a 20 20 69 66 20 7b 21   } break.  if {!
0b60: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 72 6f 6f  [info exists roo
0b70: 74 70 61 67 65 5d 7d 20 7b 0a 20 20 20 20 70 75  tpage]} {.    pu
0b80: 74 73 20 73 74 64 65 72 72 20 22 6e 6f 20 73 75  ts stderr "no su
0b90: 63 68 20 74 61 62 6c 65 20 6f 72 20 69 6e 64 65  ch table or inde
0ba0: 78 3a 20 24 6f 62 6a 6e 61 6d 65 22 0a 20 20 20  x: $objname".   
0bb0: 20 65 78 69 74 20 31 0a 20 20 7d 0a 20 20 69 66   exit 1.  }.  if
0bc0: 20 7b 24 74 79 70 65 21 3d 22 74 61 62 6c 65 22   {$type!="table"
0bd0: 20 26 26 20 24 74 79 70 65 21 3d 22 69 6e 64 65   && $type!="inde
0be0: 78 22 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 73  x"} {.    puts s
0bf0: 74 64 65 72 72 20 22 24 6f 62 6a 6e 61 6d 65 20  tderr "$objname 
0c00: 69 73 20 73 6f 6d 65 74 68 69 6e 67 20 6f 74 68  is something oth
0c10: 65 72 20 74 68 61 6e 20 61 20 74 61 62 6c 65 20  er than a table 
0c20: 6f 72 20 69 6e 64 65 78 22 0a 20 20 20 20 65 78  or index".    ex
0c30: 69 74 20 31 0a 20 20 7d 0a 20 20 69 66 20 7b 21  it 1.  }.  if {!
0c40: 5b 73 74 72 69 6e 67 20 69 73 20 69 6e 74 65 67  [string is integ
0c50: 65 72 20 2d 73 74 72 69 63 74 20 24 72 6f 6f 74  er -strict $root
0c60: 70 61 67 65 5d 7d 20 7b 0a 20 20 20 20 70 75 74  page]} {.    put
0c70: 73 20 73 74 64 65 72 72 20 22 69 6e 76 61 6c 69  s stderr "invali
0c80: 64 20 72 6f 6f 74 20 70 61 67 65 20 66 6f 72 20  d root page for 
0c90: 24 6f 62 6a 6e 61 6d 65 3a 20 24 72 6f 6f 74 70  $objname: $rootp
0ca0: 61 67 65 22 0a 20 20 20 20 65 78 69 74 20 31 0a  age".    exit 1.
0cb0: 20 20 7d 20 0a 7d 0a 0a 23 20 54 68 65 20 63 75    } .}..# The cu
0cc0: 72 73 6f 72 20 24 63 73 72 20 69 73 20 70 6f 69  rsor $csr is poi
0cd0: 6e 74 69 6e 67 20 74 6f 20 61 6e 20 65 6e 74 72  nting to an entr
0ce0: 79 2e 20 20 50 72 69 6e 74 20 6f 75 74 20 69 6e  y.  Print out in
0cf0: 66 6f 72 6d 61 74 69 6f 6e 0a 23 20 61 62 6f 75  formation.# abou
0d00: 74 20 74 68 65 20 70 61 67 65 20 74 68 61 74 20  t the page that 
0d10: 24 75 70 20 6c 65 76 65 6c 73 20 61 62 6f 76 65  $up levels above
0d20: 20 74 68 61 74 20 70 61 67 65 20 74 68 61 74 20   that page that 
0d30: 63 6f 6e 74 61 69 6e 73 0a 23 20 74 68 65 20 65  contains.# the e
0d40: 6e 74 72 79 2e 20 20 49 66 20 24 75 70 3d 3d 30  ntry.  If $up==0
0d50: 20 75 73 65 20 74 68 65 20 70 61 67 65 20 74 68   use the page th
0d60: 61 74 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20  at contains the 
0d70: 65 6e 74 72 79 2e 0a 23 20 0a 23 20 49 66 20 69  entry..# .# If i
0d80: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74  nformation about
0d90: 20 74 68 65 20 70 61 67 65 20 68 61 73 20 62 65   the page has be
0da0: 65 6e 20 70 72 69 6e 74 65 64 20 61 6c 72 65 61  en printed alrea
0db0: 64 79 2c 20 74 68 65 6e 0a 23 20 74 68 69 73 20  dy, then.# this 
0dc0: 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 20 0a 70  is a no-op..# .p
0dd0: 72 6f 63 20 70 61 67 65 5f 69 6e 66 6f 20 7b 63  roc page_info {c
0de0: 73 72 20 75 70 7d 20 7b 0a 20 20 67 6c 6f 62 61  sr up} {.  globa
0df0: 6c 20 73 65 65 6e 0a 20 20 63 75 72 73 6f 72 5f  l seen.  cursor_
0e00: 69 6e 66 6f 20 63 69 20 24 63 73 72 20 24 75 70  info ci $csr $up
0e10: 0a 20 20 73 65 74 20 70 67 20 24 63 69 28 70 61  .  set pg $ci(pa
0e20: 67 65 5f 6e 6f 29 0a 20 20 69 66 20 7b 5b 69 6e  ge_no).  if {[in
0e30: 66 6f 20 65 78 69 73 74 73 20 73 65 65 6e 28 24  fo exists seen($
0e40: 70 67 29 5d 7d 20 72 65 74 75 72 6e 0a 20 20 73  pg)]} return.  s
0e50: 65 74 20 73 65 65 6e 28 24 70 67 29 20 31 0a 0a  et seen($pg) 1..
0e60: 20 20 23 20 44 6f 20 70 61 72 65 6e 74 20 70 61    # Do parent pa
0e70: 67 65 73 20 66 69 72 73 74 0a 20 20 23 0a 20 20  ges first.  #.  
0e80: 69 66 20 7b 24 63 69 28 70 61 72 65 6e 74 29 7d  if {$ci(parent)}
0e90: 20 7b 0a 20 20 20 20 70 61 67 65 5f 69 6e 66 6f   {.    page_info
0ea0: 20 24 63 73 72 20 5b 65 78 70 72 20 7b 24 75 70   $csr [expr {$up
0eb0: 2b 31 7d 5d 0a 20 20 7d 0a 0a 20 20 23 20 46 69  +1}].  }..  # Fi
0ec0: 6e 64 20 74 68 65 20 64 65 70 74 68 20 6f 66 20  nd the depth of 
0ed0: 74 68 69 73 20 70 61 67 65 0a 20 20 23 0a 20 20  this page.  #.  
0ee0: 73 65 74 20 64 65 70 74 68 20 31 0a 20 20 73 65  set depth 1.  se
0ef0: 74 20 69 20 24 75 70 0a 20 20 77 68 69 6c 65 20  t i $up.  while 
0f00: 7b 24 63 69 28 70 61 72 65 6e 74 29 7d 20 7b 0a  {$ci(parent)} {.
0f10: 20 20 20 20 69 6e 63 72 20 69 0a 20 20 20 20 69      incr i.    i
0f20: 6e 63 72 20 64 65 70 74 68 0a 20 20 20 20 63 75  ncr depth.    cu
0f30: 72 73 6f 72 5f 69 6e 66 6f 20 63 69 20 24 63 73  rsor_info ci $cs
0f40: 72 20 24 69 0a 20 20 7d 0a 0a 20 20 23 20 70 72  r $i.  }..  # pr
0f50: 69 6e 74 20 74 68 65 20 72 65 73 75 6c 74 73 0a  int the results.
0f60: 20 20 23 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d    #.  puts [form
0f70: 61 74 20 7b 4c 45 56 45 4c 20 25 64 3a 20 20 25  at {LEVEL %d:  %
0f80: 36 64 7d 20 24 64 65 70 74 68 20 24 70 67 5d 0a  6d} $depth $pg].
0f90: 7d 20 20 0a 0a 20 20 0a 20 20 0a 0a 23 20 4c 6f  }  ..  .  ..# Lo
0fa0: 6f 70 20 74 68 72 6f 75 67 68 20 74 68 65 20 6f  op through the o
0fb0: 62 6a 65 63 74 20 61 6e 64 20 70 72 69 6e 74 20  bject and print 
0fc0: 6f 75 74 20 70 61 67 65 20 6e 75 6d 62 65 72 73  out page numbers
0fd0: 0a 23 0a 73 65 74 20 63 73 72 20 5b 62 74 72 65  .#.set csr [btre
0fe0: 65 5f 63 75 72 73 6f 72 20 24 44 42 20 24 72 6f  e_cursor $DB $ro
0ff0: 6f 74 70 61 67 65 20 30 5d 0a 66 6f 72 20 7b 62  otpage 0].for {b
1000: 74 72 65 65 5f 66 69 72 73 74 20 24 63 73 72 7d  tree_first $csr}
1010: 20 7b 21 5b 62 74 72 65 65 5f 65 6f 66 20 24 63   {![btree_eof $c
1020: 73 72 5d 7d 20 7b 62 74 72 65 65 5f 6e 65 78 74  sr]} {btree_next
1030: 20 24 63 73 72 7d 20 7b 0a 20 20 70 61 67 65 5f   $csr} {.  page_
1040: 69 6e 66 6f 20 24 63 73 72 20 30 0a 20 20 73 65  info $csr 0.  se
1050: 74 20 69 20 31 0a 20 20 66 6f 72 65 61 63 68 20  t i 1.  foreach 
1060: 70 67 20 5b 62 74 72 65 65 5f 6f 76 66 6c 5f 69  pg [btree_ovfl_i
1070: 6e 66 6f 20 24 44 42 20 24 63 73 72 5d 20 7b 0a  nfo $DB $csr] {.
1080: 20 20 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74      puts [format
1090: 20 7b 4f 56 46 4c 20 25 33 64 3a 20 25 36 64 7d   {OVFL %3d: %6d}
10a0: 20 24 69 20 24 70 67 5d 0a 20 20 20 20 69 6e 63   $i $pg].    inc
10b0: 72 20 69 0a 20 20 7d 0a 7d 0a 65 78 69 74 20 30  r i.  }.}.exit 0
10c0: 0a                                               .