/ Hex Artifact Content
Login

Artifact 2614b0c929852547138d608f58535f33a49d27ec:


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 69 6e 20 6f 72 64  tfixture" in ord
0030: 65 72 20 67 65 74 20 61 20 72 65 70 6f 72 74 20  er get a report 
0040: 74 68 61 74 20 73 68 6f 77 73 0a 23 20 68 6f 77  that shows.# how
0050: 20 6d 75 63 68 20 64 69 73 6b 20 73 70 61 63 65   much disk space
0060: 20 69 73 20 75 73 65 64 20 62 79 20 61 20 70 61   is used by a pa
0070: 72 74 69 63 75 6c 61 72 20 64 61 74 61 20 74 6f  rticular data to
0080: 20 61 63 74 75 61 6c 6c 79 20 73 74 6f 72 65 20   actually store 
0090: 64 61 74 61 0a 23 20 76 65 72 73 75 73 20 68 6f  data.# versus ho
00a0: 77 20 6d 75 63 68 20 73 70 61 63 65 20 69 73 20  w much space is 
00b0: 75 6e 75 73 65 64 2e 0a 23 0a 0a 69 66 20 7b 5b  unused..#..if {[
00c0: 63 61 74 63 68 20 7b 0a 0a 23 20 47 65 74 20 74  catch {..# Get t
00d0: 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 64  he name of the d
00e0: 61 74 61 62 61 73 65 20 74 6f 20 61 6e 61 6c 79  atabase to analy
00f0: 7a 65 0a 23 0a 23 73 65 74 20 61 72 67 76 20 24  ze.#.#set argv $
0100: 61 72 67 76 30 0a 69 66 20 7b 5b 6c 6c 65 6e 67  argv0.if {[lleng
0110: 74 68 20 24 61 72 67 76 5d 21 3d 31 7d 20 7b 0a  th $argv]!=1} {.
0120: 20 20 70 75 74 73 20 73 74 64 65 72 72 20 22 55    puts stderr "U
0130: 73 61 67 65 3a 20 24 61 72 67 76 30 20 64 61 74  sage: $argv0 dat
0140: 61 62 61 73 65 2d 6e 61 6d 65 22 0a 20 20 65 78  abase-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 0a 23 20 4d 61 78 69  exit 1.}..# Maxi
02c0: 6d 75 6d 20 64 69 73 74 61 6e 63 65 20 62 65 74  mum distance bet
02d0: 77 65 65 6e 20 70 61 67 65 73 20 62 65 66 6f 72  ween pages befor
02e0: 65 20 77 65 20 63 6f 6e 73 69 64 65 72 20 69 74  e we consider it
02f0: 20 61 20 22 67 61 70 22 0a 23 0a 73 65 74 20 4d   a "gap".#.set M
0300: 41 58 47 41 50 20 33 0a 0a 23 20 4f 70 65 6e 20  AXGAP 3..# Open 
0310: 74 68 65 20 64 61 74 61 62 61 73 65 0a 23 0a 73  the database.#.s
0320: 71 6c 69 74 65 33 20 64 62 20 5b 6c 69 6e 64 65  qlite3 db [linde
0330: 78 20 24 61 72 67 76 20 30 5d 0a 73 65 74 20 44  x $argv 0].set D
0340: 42 20 5b 62 74 72 65 65 5f 6f 70 65 6e 20 5b 6c  B [btree_open [l
0350: 69 6e 64 65 78 20 24 61 72 67 76 20 30 5d 20 31  index $argv 0] 1
0360: 30 30 30 20 30 5d 0a 0a 23 20 49 6e 2d 6d 65 6d  000 0]..# In-mem
0370: 6f 72 79 20 64 61 74 61 62 61 73 65 20 66 6f 72  ory database for
0380: 20 63 6f 6c 6c 65 63 74 69 6e 67 20 73 74 61 74   collecting stat
0390: 69 73 74 69 63 73 2e 20 54 68 69 73 20 73 63 72  istics. This scr
03a0: 69 70 74 20 6c 6f 6f 70 73 20 74 68 72 6f 75 67  ipt loops throug
03b0: 68 0a 23 20 74 68 65 20 74 61 62 6c 65 73 20 61  h.# the tables a
03c0: 6e 64 20 69 6e 64 69 63 65 73 20 69 6e 20 74 68  nd indices in th
03d0: 65 20 64 61 74 61 62 61 73 65 20 62 65 69 6e 67  e database being
03e0: 20 61 6e 61 6c 79 7a 65 64 2c 20 61 64 64 69 6e   analyzed, addin
03f0: 67 20 61 20 72 6f 77 20 66 6f 72 20 65 61 63 68  g a row for each
0400: 0a 23 20 74 6f 20 61 6e 20 69 6e 2d 6d 65 6d 6f  .# to an in-memo
0410: 72 79 20 64 61 74 61 62 61 73 65 20 28 66 6f 72  ry database (for
0420: 20 77 68 69 63 68 20 74 68 65 20 73 63 68 65 6d   which the schem
0430: 61 20 69 73 20 73 68 6f 77 6e 20 62 65 6c 6f 77  a is shown below
0440: 29 2e 20 49 74 20 74 68 65 6e 0a 23 20 71 75 65  ). It then.# que
0450: 72 69 65 73 20 74 68 65 20 69 6e 2d 6d 65 6d 6f  ries the in-memo
0460: 72 79 20 64 62 20 74 6f 20 70 72 6f 64 75 63 65  ry db to produce
0470: 20 74 68 65 20 73 70 61 63 65 2d 61 6e 61 6c 79   the space-analy
0480: 73 69 73 20 72 65 70 6f 72 74 2e 0a 23 0a 73 71  sis report..#.sq
0490: 6c 69 74 65 33 20 6d 65 6d 20 3a 6d 65 6d 6f 72  lite3 mem :memor
04a0: 79 3a 0a 73 65 74 20 74 61 62 6c 65 64 65 66 5c  y:.set tabledef\
04b0: 0a 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20 73  .{CREATE TABLE s
04c0: 70 61 63 65 5f 75 73 65 64 28 0a 20 20 20 6e 61  pace_used(.   na
04d0: 6d 65 20 63 6c 6f 62 2c 20 20 20 20 20 20 20 20  me clob,        
04e0: 2d 2d 20 4e 61 6d 65 20 6f 66 20 61 20 74 61 62  -- Name of a tab
04f0: 6c 65 20 6f 72 20 69 6e 64 65 78 20 69 6e 20 74  le or index in t
0500: 68 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65  he database file
0510: 0a 20 20 20 74 62 6c 6e 61 6d 65 20 63 6c 6f 62  .   tblname clob
0520: 2c 20 20 20 20 20 2d 2d 20 4e 61 6d 65 20 6f 66  ,     -- Name of
0530: 20 61 73 73 6f 63 69 61 74 65 64 20 74 61 62 6c   associated tabl
0540: 65 0a 20 20 20 69 73 5f 69 6e 64 65 78 20 62 6f  e.   is_index bo
0550: 6f 6c 65 61 6e 2c 20 2d 2d 20 54 52 55 45 20 69  olean, -- TRUE i
0560: 66 20 69 74 20 69 73 20 61 6e 20 69 6e 64 65 78  f it is an index
0570: 2c 20 66 61 6c 73 65 20 66 6f 72 20 61 20 74 61  , false for a ta
0580: 62 6c 65 0a 20 20 20 6e 65 6e 74 72 79 20 69 6e  ble.   nentry in
0590: 74 2c 20 20 20 20 20 20 20 2d 2d 20 4e 75 6d 62  t,       -- Numb
05a0: 65 72 20 6f 66 20 65 6e 74 72 69 65 73 20 69 6e  er of entries in
05b0: 20 74 68 65 20 42 54 72 65 65 0a 20 20 20 6c 65   the BTree.   le
05c0: 61 66 5f 65 6e 74 72 69 65 73 20 69 6e 74 2c 20  af_entries int, 
05d0: 2d 2d 20 4e 75 6d 62 65 72 20 6f 66 20 6c 65 61  -- Number of lea
05e0: 66 20 65 6e 74 72 69 65 73 0a 20 20 20 70 61 79  f entries.   pay
05f0: 6c 6f 61 64 20 69 6e 74 2c 20 20 20 20 20 20 2d  load int,      -
0600: 2d 20 54 6f 74 61 6c 20 61 6d 6f 75 6e 74 20 6f  - Total amount o
0610: 66 20 64 61 74 61 20 73 74 6f 72 65 64 20 69 6e  f data stored in
0620: 20 74 68 69 73 20 74 61 62 6c 65 20 6f 72 20 69   this table or i
0630: 6e 64 65 78 0a 20 20 20 6f 76 66 6c 5f 70 61 79  ndex.   ovfl_pay
0640: 6c 6f 61 64 20 69 6e 74 2c 20 2d 2d 20 54 6f 74  load int, -- Tot
0650: 61 6c 20 61 6d 6f 75 6e 74 20 6f 66 20 64 61 74  al amount of dat
0660: 61 20 73 74 6f 72 65 64 20 6f 6e 20 6f 76 65 72  a stored on over
0670: 66 6c 6f 77 20 70 61 67 65 73 0a 20 20 20 6f 76  flow pages.   ov
0680: 66 6c 5f 63 6e 74 20 69 6e 74 2c 20 20 20 20 20  fl_cnt int,     
0690: 2d 2d 20 4e 75 6d 62 65 72 20 6f 66 20 65 6e 74  -- Number of ent
06a0: 72 69 65 73 20 74 68 61 74 20 75 73 65 20 6f 76  ries that use ov
06b0: 65 72 66 6c 6f 77 0a 20 20 20 6d 78 5f 70 61 79  erflow.   mx_pay
06c0: 6c 6f 61 64 20 69 6e 74 2c 20 20 20 2d 2d 20 4d  load int,   -- M
06d0: 61 78 69 6d 75 6d 20 70 61 79 6c 6f 61 64 20 73  aximum payload s
06e0: 69 7a 65 0a 20 20 20 69 6e 74 5f 70 61 67 65 73  ize.   int_pages
06f0: 20 69 6e 74 2c 20 20 20 20 2d 2d 20 4e 75 6d 62   int,    -- Numb
0700: 65 72 20 6f 66 20 69 6e 74 65 72 69 6f 72 20 70  er of interior p
0710: 61 67 65 73 20 75 73 65 64 0a 20 20 20 6c 65 61  ages used.   lea
0720: 66 5f 70 61 67 65 73 20 69 6e 74 2c 20 20 20 2d  f_pages int,   -
0730: 2d 20 4e 75 6d 62 65 72 20 6f 66 20 6c 65 61 66  - Number of leaf
0740: 20 70 61 67 65 73 20 75 73 65 64 0a 20 20 20 6f   pages used.   o
0750: 76 66 6c 5f 70 61 67 65 73 20 69 6e 74 2c 20 20  vfl_pages int,  
0760: 20 2d 2d 20 4e 75 6d 62 65 72 20 6f 66 20 6f 76   -- Number of ov
0770: 65 72 66 6c 6f 77 20 70 61 67 65 73 20 75 73 65  erflow pages use
0780: 64 0a 20 20 20 69 6e 74 5f 75 6e 75 73 65 64 20  d.   int_unused 
0790: 69 6e 74 2c 20 20 20 2d 2d 20 4e 75 6d 62 65 72  int,   -- Number
07a0: 20 6f 66 20 75 6e 75 73 65 64 20 62 79 74 65 73   of unused bytes
07b0: 20 6f 6e 20 69 6e 74 65 72 69 6f 72 20 70 61 67   on interior pag
07c0: 65 73 0a 20 20 20 6c 65 61 66 5f 75 6e 75 73 65  es.   leaf_unuse
07d0: 64 20 69 6e 74 2c 20 20 2d 2d 20 4e 75 6d 62 65  d int,  -- Numbe
07e0: 72 20 6f 66 20 75 6e 75 73 65 64 20 62 79 74 65  r of unused byte
07f0: 73 20 6f 6e 20 70 72 69 6d 61 72 79 20 70 61 67  s on primary pag
0800: 65 73 0a 20 20 20 6f 76 66 6c 5f 75 6e 75 73 65  es.   ovfl_unuse
0810: 64 20 69 6e 74 2c 20 20 2d 2d 20 4e 75 6d 62 65  d int,  -- Numbe
0820: 72 20 6f 66 20 75 6e 75 73 65 64 20 62 79 74 65  r of unused byte
0830: 73 20 6f 6e 20 6f 76 65 72 66 6c 6f 77 20 70 61  s on overflow pa
0840: 67 65 73 0a 20 20 20 67 61 70 5f 63 6e 74 20 69  ges.   gap_cnt i
0850: 6e 74 20 20 20 20 20 20 20 2d 2d 20 4e 75 6d 62  nt       -- Numb
0860: 65 72 20 6f 66 20 67 61 70 73 20 69 6e 20 74 68  er of gaps in th
0870: 65 20 70 61 67 65 20 6c 61 79 6f 75 74 0a 29 3b  e page layout.);
0880: 7d 0a 6d 65 6d 20 65 76 61 6c 20 24 74 61 62 6c  }.mem eval $tabl
0890: 65 64 65 66 0a 0a 70 72 6f 63 20 69 6e 74 65 67  edef..proc integ
08a0: 65 72 69 66 79 20 7b 72 65 61 6c 7d 20 7b 0a 20  erify {real} {. 
08b0: 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20 69 6e   return [expr in
08c0: 74 28 24 72 65 61 6c 29 5d 0a 7d 0a 6d 65 6d 20  t($real)].}.mem 
08d0: 66 75 6e 63 74 69 6f 6e 20 69 6e 74 20 69 6e 74  function int int
08e0: 65 67 65 72 69 66 79 0a 0a 23 20 51 75 6f 74 65  egerify..# Quote
08f0: 20 61 20 73 74 72 69 6e 67 20 66 6f 72 20 75 73   a string for us
0900: 65 20 69 6e 20 61 6e 20 53 51 4c 20 71 75 65 72  e in an SQL quer
0910: 79 2e 20 45 78 61 6d 70 6c 65 73 3a 0a 23 0a 23  y. Examples:.#.#
0920: 20 5b 71 75 6f 74 65 20 7b 68 65 6c 6c 6f 20 77   [quote {hello w
0930: 6f 72 6c 64 7d 5d 20 20 20 3d 3d 20 7b 27 68 65  orld}]   == {'he
0940: 6c 6c 6f 20 77 6f 72 6c 64 27 7d 0a 23 20 5b 71  llo world'}.# [q
0950: 75 6f 74 65 20 7b 68 65 6c 6c 6f 20 77 6f 72 6c  uote {hello worl
0960: 64 27 73 7d 5d 20 3d 3d 20 7b 27 68 65 6c 6c 6f  d's}] == {'hello
0970: 20 77 6f 72 6c 64 27 27 73 27 7d 0a 23 0a 70 72   world''s'}.#.pr
0980: 6f 63 20 71 75 6f 74 65 20 7b 74 78 74 7d 20 7b  oc quote {txt} {
0990: 0a 20 20 72 65 67 73 75 62 20 2d 61 6c 6c 20 27  .  regsub -all '
09a0: 20 24 74 78 74 20 27 27 20 71 0a 20 20 72 65 74   $txt '' q.  ret
09b0: 75 72 6e 20 27 24 71 27 0a 7d 0a 0a 23 20 54 68  urn '$q'.}..# Th
09c0: 69 73 20 70 72 6f 63 20 69 73 20 61 20 77 72 61  is proc is a wra
09d0: 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20  pper around the 
09e0: 62 74 72 65 65 5f 63 75 72 73 6f 72 5f 69 6e 66  btree_cursor_inf
09f0: 6f 20 63 6f 6d 6d 61 6e 64 2e 20 54 68 65 0a 23  o command. The.#
0a00: 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74   second argument
0a10: 20 69 73 20 61 6e 20 6f 70 65 6e 20 62 74 72 65   is an open btre
0a20: 65 20 63 75 72 73 6f 72 20 72 65 74 75 72 6e 65  e cursor returne
0a30: 64 20 62 79 20 5b 62 74 72 65 65 5f 63 75 72 73  d by [btree_curs
0a40: 6f 72 5d 2e 0a 23 20 54 68 65 20 66 69 72 73 74  or]..# The first
0a50: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74 68 65   argument is the
0a60: 20 6e 61 6d 65 20 6f 66 20 61 6e 20 61 72 72 61   name of an arra
0a70: 79 20 76 61 72 69 61 62 6c 65 20 74 68 61 74 20  y variable that 
0a80: 65 78 69 73 74 73 20 69 6e 0a 23 20 74 68 65 20  exists in.# the 
0a90: 73 63 6f 70 65 20 6f 66 20 74 68 65 20 63 61 6c  scope of the cal
0aa0: 6c 65 72 2e 20 49 66 20 74 68 65 20 74 68 69 72  ler. If the thir
0ab0: 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20 6e 6f  d argument is no
0ac0: 6e 2d 7a 65 72 6f 2c 20 74 68 65 6e 0a 23 20 69  n-zero, then.# i
0ad0: 6e 66 6f 20 69 73 20 72 65 74 75 72 6e 65 64 20  nfo is returned 
0ae0: 66 6f 72 20 74 68 65 20 70 61 67 65 20 74 68 61  for the page tha
0af0: 74 20 6c 69 65 73 20 24 75 70 20 65 6e 74 72 69  t lies $up entri
0b00: 65 73 20 75 70 77 61 72 64 73 20 69 6e 20 74 68  es upwards in th
0b10: 65 0a 23 20 74 72 65 65 2d 73 74 72 75 63 74 75  e.# tree-structu
0b20: 72 65 2e 20 28 69 2e 65 2e 20 24 75 70 3d 3d 31  re. (i.e. $up==1
0b30: 20 72 65 74 75 72 6e 73 20 74 68 65 20 70 61 72   returns the par
0b40: 65 6e 74 20 70 61 67 65 2c 20 24 75 70 3d 3d 32  ent page, $up==2
0b50: 20 74 68 65 20 0a 23 20 67 72 61 6e 64 70 61 72   the .# grandpar
0b60: 65 6e 74 20 65 74 63 2e 29 0a 23 0a 23 20 54 68  ent etc.).#.# Th
0b70: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 6e 74 72  e following entr
0b80: 69 65 73 20 69 6e 20 74 68 61 74 20 61 72 72 61  ies in that arra
0b90: 79 20 61 72 65 20 66 69 6c 6c 65 64 20 69 6e 20  y are filled in 
0ba0: 77 69 74 68 20 69 6e 66 6f 72 6d 61 74 69 6f 6e  with information
0bb0: 20 72 65 74 72 69 65 76 65 64 0a 23 20 75 73 69   retrieved.# usi
0bc0: 6e 67 20 5b 62 74 72 65 65 5f 63 75 72 73 6f 72  ng [btree_cursor
0bd0: 5f 69 6e 66 6f 5d 3a 0a 23 0a 23 20 20 20 24 61  _info]:.#.#   $a
0be0: 72 72 61 79 76 61 72 28 70 61 67 65 5f 6e 6f 29  rrayvar(page_no)
0bf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 20               =  
0c00: 54 68 65 20 70 61 67 65 20 6e 75 6d 62 65 72 0a  The page number.
0c10: 23 20 20 20 24 61 72 72 61 79 76 61 72 28 65 6e  #   $arrayvar(en
0c20: 74 72 79 5f 6e 6f 29 20 20 20 20 20 20 20 20 20  try_no)         
0c30: 20 20 20 3d 20 20 54 68 65 20 65 6e 74 72 79 20     =  The entry 
0c40: 6e 75 6d 62 65 72 0a 23 20 20 20 24 61 72 72 61  number.#   $arra
0c50: 79 76 61 72 28 70 61 67 65 5f 65 6e 74 72 69 65  yvar(page_entrie
0c60: 73 29 20 20 20 20 20 20 20 20 3d 20 20 54 6f 74  s)        =  Tot
0c70: 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 65 6e 74  al number of ent
0c80: 72 69 65 73 20 6f 6e 20 74 68 69 73 20 70 61 67  ries on this pag
0c90: 65 0a 23 20 20 20 24 61 72 72 61 79 76 61 72 28  e.#   $arrayvar(
0ca0: 63 65 6c 6c 5f 73 69 7a 65 29 20 20 20 20 20 20  cell_size)      
0cb0: 20 20 20 20 20 3d 20 20 43 65 6c 6c 20 73 69 7a       =  Cell siz
0cc0: 65 20 28 6c 6f 63 61 6c 20 70 61 79 6c 6f 61 64  e (local payload
0cd0: 20 2b 20 68 65 61 64 65 72 29 0a 23 20 20 20 24   + header).#   $
0ce0: 61 72 72 61 79 76 61 72 28 70 61 67 65 5f 66 72  arrayvar(page_fr
0cf0: 65 65 62 79 74 65 73 29 20 20 20 20 20 20 3d 20  eebytes)      = 
0d00: 20 4e 75 6d 62 65 72 20 6f 66 20 66 72 65 65 20   Number of free 
0d10: 62 79 74 65 73 20 6f 6e 20 74 68 69 73 20 70 61  bytes on this pa
0d20: 67 65 0a 23 20 20 20 24 61 72 72 61 79 76 61 72  ge.#   $arrayvar
0d30: 28 70 61 67 65 5f 66 72 65 65 62 6c 6f 63 6b 73  (page_freeblocks
0d40: 29 20 20 20 20 20 3d 20 20 4e 75 6d 62 65 72 20  )     =  Number 
0d50: 6f 66 20 66 72 65 65 20 62 6c 6f 63 6b 73 20 6f  of free blocks o
0d60: 6e 20 74 68 65 20 70 61 67 65 0a 23 20 20 20 24  n the page.#   $
0d70: 61 72 72 61 79 76 61 72 28 70 61 79 6c 6f 61 64  arrayvar(payload
0d80: 5f 62 79 74 65 73 29 20 20 20 20 20 20 20 3d 20  _bytes)       = 
0d90: 20 54 6f 74 61 6c 20 70 61 79 6c 6f 61 64 20 73   Total payload s
0da0: 69 7a 65 20 28 6c 6f 63 61 6c 20 2b 20 6f 76 65  ize (local + ove
0db0: 72 66 6c 6f 77 29 0a 23 20 20 20 24 61 72 72 61  rflow).#   $arra
0dc0: 79 76 61 72 28 68 65 61 64 65 72 5f 62 79 74 65  yvar(header_byte
0dd0: 73 29 20 20 20 20 20 20 20 20 3d 20 20 48 65 61  s)        =  Hea
0de0: 64 65 72 20 73 69 7a 65 20 69 6e 20 62 79 74 65  der size in byte
0df0: 73 0a 23 20 20 20 24 61 72 72 61 79 76 61 72 28  s.#   $arrayvar(
0e00: 6c 6f 63 61 6c 5f 70 61 79 6c 6f 61 64 5f 62 79  local_payload_by
0e10: 74 65 73 29 20 3d 20 20 4c 6f 63 61 6c 20 70 61  tes) =  Local pa
0e20: 79 6c 6f 61 64 20 73 69 7a 65 0a 23 20 20 20 24  yload size.#   $
0e30: 61 72 72 61 79 76 61 72 28 70 61 72 65 6e 74 29  arrayvar(parent)
0e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20                = 
0e50: 20 50 61 72 65 6e 74 20 70 61 67 65 20 6e 75 6d   Parent page num
0e60: 62 65 72 0a 23 20 0a 70 72 6f 63 20 63 75 72 73  ber.# .proc curs
0e70: 6f 72 5f 69 6e 66 6f 20 7b 61 72 72 61 79 76 61  or_info {arrayva
0e80: 72 20 63 73 72 20 7b 75 70 20 30 7d 7d 20 7b 0a  r csr {up 0}} {.
0e90: 20 20 75 70 76 61 72 20 24 61 72 72 61 79 76 61    upvar $arrayva
0ea0: 72 20 61 0a 20 20 66 6f 72 65 61 63 68 20 5b 6c  r a.  foreach [l
0eb0: 69 73 74 20 61 28 70 61 67 65 5f 6e 6f 29 20 5c  ist a(page_no) \
0ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0ed0: 20 61 28 65 6e 74 72 79 5f 6e 6f 29 20 5c 0a 20   a(entry_no) \. 
0ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61                 a
0ef0: 28 70 61 67 65 5f 65 6e 74 72 69 65 73 29 20 5c  (page_entries) \
0f00: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0f10: 20 61 28 63 65 6c 6c 5f 73 69 7a 65 29 20 5c 0a   a(cell_size) \.
0f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f30: 61 28 70 61 67 65 5f 66 72 65 65 62 79 74 65 73  a(page_freebytes
0f40: 29 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20  ) \.            
0f50: 20 20 20 20 61 28 70 61 67 65 5f 66 72 65 65 62      a(page_freeb
0f60: 6c 6f 63 6b 73 29 20 5c 0a 20 20 20 20 20 20 20  locks) \.       
0f70: 20 20 20 20 20 20 20 20 20 61 28 70 61 79 6c 6f           a(paylo
0f80: 61 64 5f 62 79 74 65 73 29 20 5c 0a 20 20 20 20  ad_bytes) \.    
0f90: 20 20 20 20 20 20 20 20 20 20 20 20 61 28 68 65              a(he
0fa0: 61 64 65 72 5f 62 79 74 65 73 29 20 5c 0a 20 20  ader_bytes) \.  
0fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 28                a(
0fc0: 6c 6f 63 61 6c 5f 70 61 79 6c 6f 61 64 5f 62 79  local_payload_by
0fd0: 74 65 73 29 20 5c 0a 20 20 20 20 20 20 20 20 20  tes) \.         
0fe0: 20 20 20 20 20 20 20 61 28 70 61 72 65 6e 74 29         a(parent)
0ff0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   \.             
1000: 20 20 20 61 28 66 69 72 73 74 5f 6f 76 66 6c 29     a(first_ovfl)
1010: 20 5d 20 5b 62 74 72 65 65 5f 63 75 72 73 6f 72   ] [btree_cursor
1020: 5f 69 6e 66 6f 20 24 63 73 72 20 24 75 70 5d 20  _info $csr $up] 
1030: 62 72 65 61 6b 0a 7d 0a 0a 23 20 44 65 74 65 72  break.}..# Deter
1040: 6d 69 6e 65 20 74 68 65 20 70 61 67 65 2d 73 69  mine the page-si
1050: 7a 65 20 6f 66 20 74 68 65 20 64 61 74 61 62 61  ze of the databa
1060: 73 65 2e 20 54 68 69 73 20 67 6c 6f 62 61 6c 20  se. This global 
1070: 76 61 72 69 61 62 6c 65 20 69 73 20 75 73 65 64  variable is used
1080: 0a 23 20 74 68 72 6f 75 67 68 6f 75 74 20 74 68  .# throughout th
1090: 65 20 73 63 72 69 70 74 2e 0a 23 0a 73 65 74 20  e script..#.set 
10a0: 70 61 67 65 53 69 7a 65 20 5b 64 62 20 65 76 61  pageSize [db eva
10b0: 6c 20 7b 50 52 41 47 4d 41 20 70 61 67 65 5f 73  l {PRAGMA page_s
10c0: 69 7a 65 7d 5d 0a 0a 23 20 41 6e 61 6c 79 7a 65  ize}]..# Analyze
10d0: 20 65 76 65 72 79 20 74 61 62 6c 65 20 69 6e 20   every table in 
10e0: 74 68 65 20 64 61 74 61 62 61 73 65 2c 20 6f 6e  the database, on
10f0: 65 20 61 74 20 61 20 74 69 6d 65 2e 0a 23 0a 23  e at a time..#.#
1100: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 71   The following q
1110: 75 65 72 79 20 72 65 74 75 72 6e 73 20 74 68 65  uery returns the
1120: 20 6e 61 6d 65 20 61 6e 64 20 72 6f 6f 74 2d 70   name and root-p
1130: 61 67 65 20 6f 66 20 65 61 63 68 20 74 61 62 6c  age of each tabl
1140: 65 20 69 6e 20 74 68 65 0a 23 20 64 61 74 61 62  e in the.# datab
1150: 61 73 65 2c 20 69 6e 63 6c 75 64 69 6e 67 20 74  ase, including t
1160: 68 65 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  he sqlite_master
1170: 20 74 61 62 6c 65 2e 0a 23 0a 73 65 74 20 73 71   table..#.set sq
1180: 6c 20 7b 0a 20 20 53 45 4c 45 43 54 20 6e 61 6d  l {.  SELECT nam
1190: 65 2c 20 72 6f 6f 74 70 61 67 65 20 46 52 4f 4d  e, rootpage FROM
11a0: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 0a 20   sqlite_master. 
11b0: 20 20 57 48 45 52 45 20 74 79 70 65 3d 27 74 61    WHERE type='ta
11c0: 62 6c 65 27 20 41 4e 44 20 72 6f 6f 74 70 61 67  ble' AND rootpag
11d0: 65 3e 30 0a 20 20 55 4e 49 4f 4e 20 41 4c 4c 0a  e>0.  UNION ALL.
11e0: 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65    SELECT 'sqlite
11f0: 5f 6d 61 73 74 65 72 27 2c 20 31 0a 20 20 4f 52  _master', 1.  OR
1200: 44 45 52 20 42 59 20 31 0a 7d 0a 73 65 74 20 77  DER BY 1.}.set w
1210: 69 64 65 5a 65 72 6f 20 5b 65 78 70 72 20 7b 31  ideZero [expr {1
1220: 30 30 30 30 30 30 30 30 30 30 20 2d 20 31 30 30  0000000000 - 100
1230: 30 30 30 30 30 30 30 30 7d 5d 0a 66 6f 72 65 61  00000000}].forea
1240: 63 68 20 7b 6e 61 6d 65 20 72 6f 6f 74 70 61 67  ch {name rootpag
1250: 65 7d 20 5b 64 62 20 65 76 61 6c 20 24 73 71 6c  e} [db eval $sql
1260: 5d 20 7b 0a 20 20 70 75 74 73 20 73 74 64 65 72  ] {.  puts stder
1270: 72 20 22 41 6e 61 6c 79 7a 69 6e 67 20 74 61 62  r "Analyzing tab
1280: 6c 65 20 24 6e 61 6d 65 2e 2e 2e 22 0a 0a 20 20  le $name..."..  
1290: 23 20 43 6f 64 65 20 62 65 6c 6f 77 20 74 72 61  # Code below tra
12a0: 76 65 72 73 65 73 20 74 68 65 20 74 61 62 6c 65  verses the table
12b0: 20 62 65 69 6e 67 20 61 6e 61 6c 79 7a 65 64 20   being analyzed 
12c0: 28 74 61 62 6c 65 20 6e 61 6d 65 20 24 6e 61 6d  (table name $nam
12d0: 65 29 2c 20 75 73 69 6e 67 20 74 68 65 0a 20 20  e), using the.  
12e0: 23 20 62 74 72 65 65 20 63 75 72 73 6f 72 20 24  # btree cursor $
12f0: 63 75 72 73 6f 72 2e 20 53 74 61 74 69 73 74 69  cursor. Statisti
1300: 63 73 20 72 65 6c 61 74 65 64 20 74 6f 20 74 61  cs related to ta
1310: 62 6c 65 20 24 6e 61 6d 65 20 61 72 65 20 61 63  ble $name are ac
1320: 63 75 6d 75 6c 61 74 65 64 20 69 6e 0a 20 20 23  cumulated in.  #
1330: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 76   the following v
1340: 61 72 69 61 62 6c 65 73 3a 0a 20 20 23 0a 20 20  ariables:.  #.  
1350: 73 65 74 20 74 6f 74 61 6c 5f 70 61 79 6c 6f 61  set total_payloa
1360: 64 20 24 77 69 64 65 5a 65 72 6f 20 20 20 20 20  d $wideZero     
1370: 20 20 20 3b 23 20 50 61 79 6c 6f 61 64 20 73 70     ;# Payload sp
1380: 61 63 65 20 75 73 65 64 20 62 79 20 61 6c 6c 20  ace used by all 
1390: 65 6e 74 72 69 65 73 0a 20 20 73 65 74 20 74 6f  entries.  set to
13a0: 74 61 6c 5f 6f 76 66 6c 20 24 77 69 64 65 5a 65  tal_ovfl $wideZe
13b0: 72 6f 20 20 20 20 20 20 20 20 20 20 20 3b 23 20  ro           ;# 
13c0: 50 61 79 6c 6f 61 64 20 73 70 61 63 65 20 6f 6e  Payload space on
13d0: 20 6f 76 65 72 66 6c 6f 77 20 70 61 67 65 73 0a   overflow pages.
13e0: 20 20 73 65 74 20 75 6e 75 73 65 64 5f 69 6e 74    set unused_int
13f0: 20 24 77 69 64 65 5a 65 72 6f 20 20 20 20 20 20   $wideZero      
1400: 20 20 20 20 20 3b 23 20 55 6e 75 73 65 64 20 73       ;# Unused s
1410: 70 61 63 65 20 6f 6e 20 69 6e 74 65 72 69 6f 72  pace on interior
1420: 20 6e 6f 64 65 73 0a 20 20 73 65 74 20 75 6e 75   nodes.  set unu
1430: 73 65 64 5f 6c 65 61 66 20 24 77 69 64 65 5a 65  sed_leaf $wideZe
1440: 72 6f 20 20 20 20 20 20 20 20 20 20 3b 23 20 55  ro          ;# U
1450: 6e 75 73 65 64 20 73 70 61 63 65 20 6f 6e 20 6c  nused space on l
1460: 65 61 66 20 6e 6f 64 65 73 0a 20 20 73 65 74 20  eaf nodes.  set 
1470: 75 6e 75 73 65 64 5f 6f 76 66 6c 20 24 77 69 64  unused_ovfl $wid
1480: 65 5a 65 72 6f 20 20 20 20 20 20 20 20 20 20 3b  eZero          ;
1490: 23 20 55 6e 75 73 65 64 20 73 70 61 63 65 20 6f  # Unused space o
14a0: 6e 20 6f 76 65 72 66 6c 6f 77 20 70 61 67 65 73  n overflow pages
14b0: 0a 20 20 73 65 74 20 63 6e 74 5f 6f 76 66 6c 20  .  set cnt_ovfl 
14c0: 24 77 69 64 65 5a 65 72 6f 20 20 20 20 20 20 20  $wideZero       
14d0: 20 20 20 20 20 20 3b 23 20 4e 75 6d 62 65 72 20        ;# Number 
14e0: 6f 66 20 65 6e 74 72 69 65 73 20 74 68 61 74 20  of entries that 
14f0: 75 73 65 20 6f 76 65 72 66 6c 6f 77 73 0a 20 20  use overflows.  
1500: 73 65 74 20 63 6e 74 5f 6c 65 61 66 5f 65 6e 74  set cnt_leaf_ent
1510: 72 79 20 24 77 69 64 65 5a 65 72 6f 20 20 20 20  ry $wideZero    
1520: 20 20 20 3b 23 20 4e 75 6d 62 65 72 20 6f 66 20     ;# Number of 
1530: 6c 65 61 66 20 65 6e 74 72 69 65 73 0a 20 20 73  leaf entries.  s
1540: 65 74 20 63 6e 74 5f 69 6e 74 5f 65 6e 74 72 79  et cnt_int_entry
1550: 20 24 77 69 64 65 5a 65 72 6f 20 20 20 20 20 20   $wideZero      
1560: 20 20 3b 23 20 4e 75 6d 62 65 72 20 6f 66 20 69    ;# Number of i
1570: 6e 74 65 72 6f 72 20 65 6e 74 72 69 65 73 0a 20  nteror entries. 
1580: 20 73 65 74 20 6d 78 5f 70 61 79 6c 6f 61 64 20   set mx_payload 
1590: 24 77 69 64 65 5a 65 72 6f 20 20 20 20 20 20 20  $wideZero       
15a0: 20 20 20 20 3b 23 20 4d 61 78 69 6d 75 6d 20 70      ;# Maximum p
15b0: 61 79 6c 6f 61 64 20 73 69 7a 65 0a 20 20 73 65  ayload size.  se
15c0: 74 20 6f 76 66 6c 5f 70 61 67 65 73 20 24 77 69  t ovfl_pages $wi
15d0: 64 65 5a 65 72 6f 20 20 20 20 20 20 20 20 20 20  deZero          
15e0: 20 3b 23 20 4e 75 6d 62 65 72 20 6f 66 20 6f 76   ;# Number of ov
15f0: 65 72 66 6c 6f 77 20 70 61 67 65 73 20 75 73 65  erflow pages use
1600: 64 0a 20 20 73 65 74 20 6c 65 61 66 5f 70 61 67  d.  set leaf_pag
1610: 65 73 20 24 77 69 64 65 5a 65 72 6f 20 20 20 20  es $wideZero    
1620: 20 20 20 20 20 20 20 3b 23 20 4e 75 6d 62 65 72         ;# Number
1630: 20 6f 66 20 6c 65 61 66 20 70 61 67 65 73 0a 20   of leaf pages. 
1640: 20 73 65 74 20 69 6e 74 5f 70 61 67 65 73 20 24   set int_pages $
1650: 77 69 64 65 5a 65 72 6f 20 20 20 20 20 20 20 20  wideZero        
1660: 20 20 20 20 3b 23 20 4e 75 6d 62 65 72 20 6f 66      ;# Number of
1670: 20 69 6e 74 65 72 69 6f 72 20 70 61 67 65 73 0a   interior pages.
1680: 20 20 73 65 74 20 67 61 70 5f 63 6e 74 20 30 20    set gap_cnt 0 
1690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
16a0: 20 20 20 20 20 3b 23 20 4e 75 6d 62 65 72 20 6f       ;# Number o
16b0: 66 20 68 6f 6c 65 73 20 69 6e 20 74 68 65 20 70  f holes in the p
16c0: 61 67 65 20 73 65 71 75 65 6e 63 65 0a 20 20 73  age sequence.  s
16d0: 65 74 20 70 72 65 76 5f 70 67 6e 6f 20 30 20 20  et prev_pgno 0  
16e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
16f0: 20 20 3b 23 20 4c 61 73 74 20 70 61 67 65 20 6e    ;# Last page n
1700: 75 6d 62 65 72 20 73 65 65 6e 0a 0a 20 20 23 20  umber seen..  # 
1710: 41 73 20 74 68 65 20 62 74 72 65 65 20 69 73 20  As the btree is 
1720: 74 72 61 76 65 72 73 65 64 2c 20 74 68 65 20 61  traversed, the a
1730: 72 72 61 79 20 76 61 72 69 61 62 6c 65 20 24 73  rray variable $s
1740: 65 65 6e 28 24 70 67 6e 6f 29 20 69 73 20 73 65  een($pgno) is se
1750: 74 20 74 6f 20 31 0a 20 20 23 20 74 68 65 20 66  t to 1.  # the f
1760: 69 72 73 74 20 74 69 6d 65 20 70 61 67 65 20 24  irst time page $
1770: 70 67 6e 6f 20 69 73 20 65 6e 63 6f 75 6e 74 65  pgno is encounte
1780: 72 65 64 2e 0a 20 20 23 0a 20 20 63 61 74 63 68  red..  #.  catch
1790: 20 7b 75 6e 73 65 74 20 73 65 65 6e 7d 0a 0a 20   {unset seen}.. 
17a0: 20 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67   # The following
17b0: 20 6c 6f 6f 70 20 72 75 6e 73 20 6f 6e 63 65 20   loop runs once 
17c0: 66 6f 72 20 65 61 63 68 20 65 6e 74 72 79 20 69  for each entry i
17d0: 6e 20 74 61 62 6c 65 20 24 6e 61 6d 65 2e 20 54  n table $name. T
17e0: 68 65 20 74 61 62 6c 65 0a 20 20 23 20 69 73 20  he table.  # is 
17f0: 74 72 61 76 65 72 73 65 64 20 75 73 69 6e 67 20  traversed using 
1800: 74 68 65 20 62 74 72 65 65 20 63 75 72 73 6f 72  the btree cursor
1810: 20 73 74 6f 72 65 64 20 69 6e 20 76 61 72 69 61   stored in varia
1820: 62 6c 65 20 24 63 73 72 0a 20 20 23 0a 20 20 73  ble $csr.  #.  s
1830: 65 74 20 63 73 72 20 5b 62 74 72 65 65 5f 63 75  et csr [btree_cu
1840: 72 73 6f 72 20 24 44 42 20 24 72 6f 6f 74 70 61  rsor $DB $rootpa
1850: 67 65 20 30 5d 0a 20 20 66 6f 72 20 7b 62 74 72  ge 0].  for {btr
1860: 65 65 5f 66 69 72 73 74 20 24 63 73 72 7d 20 7b  ee_first $csr} {
1870: 21 5b 62 74 72 65 65 5f 65 6f 66 20 24 63 73 72  ![btree_eof $csr
1880: 5d 7d 20 7b 62 74 72 65 65 5f 6e 65 78 74 20 24  ]} {btree_next $
1890: 63 73 72 7d 20 7b 0a 20 20 20 20 69 6e 63 72 20  csr} {.    incr 
18a0: 63 6e 74 5f 6c 65 61 66 5f 65 6e 74 72 79 0a 0a  cnt_leaf_entry..
18b0: 20 20 20 20 23 20 52 65 74 72 69 65 76 65 20 69      # Retrieve i
18c0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74  nformation about
18d0: 20 74 68 65 20 65 6e 74 72 79 20 74 68 65 20 62   the entry the b
18e0: 74 72 65 65 2d 63 75 72 73 6f 72 20 70 6f 69 6e  tree-cursor poin
18f0: 74 73 20 74 6f 20 69 6e 74 6f 0a 20 20 20 20 23  ts to into.    #
1900: 20 74 68 65 20 61 72 72 61 79 20 76 61 72 69 61   the array varia
1910: 62 6c 65 20 24 63 69 20 28 63 75 72 73 6f 72 20  ble $ci (cursor 
1920: 69 6e 66 6f 29 2e 0a 20 20 20 20 23 0a 20 20 20  info)..    #.   
1930: 20 63 75 72 73 6f 72 5f 69 6e 66 6f 20 63 69 20   cursor_info ci 
1940: 24 63 73 72 0a 0a 20 20 20 20 23 20 43 68 65 63  $csr..    # Chec
1950: 6b 20 69 66 20 74 68 65 20 70 61 79 6c 6f 61 64  k if the payload
1960: 20 6f 66 20 74 68 69 73 20 65 6e 74 72 79 20 69   of this entry i
1970: 73 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 74  s greater than t
1980: 68 65 20 63 75 72 72 65 6e 74 20 0a 20 20 20 20  he current .    
1990: 23 20 24 6d 78 5f 70 61 79 6c 6f 61 64 20 73 74  # $mx_payload st
19a0: 61 74 69 73 74 69 63 20 66 6f 72 20 74 68 65 20  atistic for the 
19b0: 74 61 62 6c 65 2e 20 41 6c 73 6f 20 69 6e 63 72  table. Also incr
19c0: 65 61 73 65 20 74 68 65 20 24 74 6f 74 61 6c 5f  ease the $total_
19d0: 70 61 79 6c 6f 61 64 0a 20 20 20 20 23 20 73 74  payload.    # st
19e0: 61 74 69 73 74 69 63 2e 0a 20 20 20 20 23 0a 20  atistic..    #. 
19f0: 20 20 20 69 66 20 7b 24 63 69 28 70 61 79 6c 6f     if {$ci(paylo
1a00: 61 64 5f 62 79 74 65 73 29 3e 24 6d 78 5f 70 61  ad_bytes)>$mx_pa
1a10: 79 6c 6f 61 64 7d 20 7b 73 65 74 20 6d 78 5f 70  yload} {set mx_p
1a20: 61 79 6c 6f 61 64 20 24 63 69 28 70 61 79 6c 6f  ayload $ci(paylo
1a30: 61 64 5f 62 79 74 65 73 29 7d 0a 20 20 20 20 69  ad_bytes)}.    i
1a40: 6e 63 72 20 74 6f 74 61 6c 5f 70 61 79 6c 6f 61  ncr total_payloa
1a50: 64 20 24 63 69 28 70 61 79 6c 6f 61 64 5f 62 79  d $ci(payload_by
1a60: 74 65 73 29 0a 0a 20 20 20 20 23 20 49 66 20 74  tes)..    # If t
1a70: 68 69 73 20 65 6e 74 72 79 20 75 73 65 73 20 6f  his entry uses o
1a80: 76 65 72 66 6c 6f 77 20 70 61 67 65 73 2c 20 74  verflow pages, t
1a90: 68 65 6e 20 75 70 64 61 74 65 20 74 68 65 20 24  hen update the $
1aa0: 63 6e 74 5f 6f 76 66 6c 2c 20 0a 20 20 20 20 23  cnt_ovfl, .    #
1ab0: 20 24 74 6f 74 61 6c 5f 6f 76 66 6c 2c 20 24 6f   $total_ovfl, $o
1ac0: 76 66 6c 5f 70 61 67 65 73 20 61 6e 64 20 24 75  vfl_pages and $u
1ad0: 6e 75 73 65 64 5f 6f 76 66 6c 20 73 74 61 74 69  nused_ovfl stati
1ae0: 73 74 69 63 73 2e 0a 20 20 20 20 23 0a 20 20 20  stics..    #.   
1af0: 20 73 65 74 20 6f 76 66 6c 20 5b 65 78 70 72 20   set ovfl [expr 
1b00: 7b 24 63 69 28 70 61 79 6c 6f 61 64 5f 62 79 74  {$ci(payload_byt
1b10: 65 73 29 2d 24 63 69 28 6c 6f 63 61 6c 5f 70 61  es)-$ci(local_pa
1b20: 79 6c 6f 61 64 5f 62 79 74 65 73 29 7d 5d 0a 20  yload_bytes)}]. 
1b30: 20 20 20 69 66 20 7b 24 6f 76 66 6c 7d 20 7b 0a     if {$ovfl} {.
1b40: 20 20 20 20 20 20 69 6e 63 72 20 63 6e 74 5f 6f        incr cnt_o
1b50: 76 66 6c 0a 20 20 20 20 20 20 69 6e 63 72 20 74  vfl.      incr t
1b60: 6f 74 61 6c 5f 6f 76 66 6c 20 24 6f 76 66 6c 0a  otal_ovfl $ovfl.
1b70: 20 20 20 20 20 20 73 65 74 20 6e 20 5b 65 78 70        set n [exp
1b80: 72 20 7b 69 6e 74 28 63 65 69 6c 28 24 6f 76 66  r {int(ceil($ovf
1b90: 6c 2f 28 24 70 61 67 65 53 69 7a 65 2d 34 2e 30  l/($pageSize-4.0
1ba0: 29 29 29 7d 5d 0a 20 20 20 20 20 20 69 6e 63 72  )))}].      incr
1bb0: 20 6f 76 66 6c 5f 70 61 67 65 73 20 24 6e 0a 20   ovfl_pages $n. 
1bc0: 20 20 20 20 20 69 6e 63 72 20 75 6e 75 73 65 64       incr unused
1bd0: 5f 6f 76 66 6c 20 5b 65 78 70 72 20 7b 24 6e 2a  _ovfl [expr {$n*
1be0: 28 24 70 61 67 65 53 69 7a 65 2d 34 29 20 2d 20  ($pageSize-4) - 
1bf0: 24 6f 76 66 6c 7d 5d 0a 20 20 20 20 20 20 73 65  $ovfl}].      se
1c00: 74 20 70 67 6c 69 73 74 20 5b 62 74 72 65 65 5f  t pglist [btree_
1c10: 6f 76 66 6c 5f 69 6e 66 6f 20 24 44 42 20 24 63  ovfl_info $DB $c
1c20: 73 72 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b  sr].    } else {
1c30: 0a 20 20 20 20 20 20 73 65 74 20 70 67 6c 69 73  .      set pglis
1c40: 74 20 7b 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20  t {}.    }..    
1c50: 23 20 49 66 20 74 68 69 73 20 69 73 20 74 68 65  # If this is the
1c60: 20 66 69 72 73 74 20 74 61 62 6c 65 20 65 6e 74   first table ent
1c70: 72 79 20 61 6e 61 6c 79 7a 65 64 20 66 6f 72 20  ry analyzed for 
1c80: 74 68 65 20 70 61 67 65 2c 20 74 68 65 6e 20 75  the page, then u
1c90: 70 64 61 74 65 0a 20 20 20 20 23 20 74 68 65 20  pdate.    # the 
1ca0: 70 61 67 65 2d 72 65 6c 61 74 65 64 20 73 74 61  page-related sta
1cb0: 74 69 73 74 69 63 73 20 24 6c 65 61 66 5f 70 61  tistics $leaf_pa
1cc0: 67 65 73 20 61 6e 64 20 24 75 6e 75 73 65 64 5f  ges and $unused_
1cd0: 6c 65 61 66 2e 20 41 6c 73 6f 2c 20 69 66 0a 20  leaf. Also, if. 
1ce0: 20 20 20 23 20 74 68 69 73 20 70 61 67 65 20 68     # this page h
1cf0: 61 73 20 61 20 70 61 72 65 6e 74 20 70 61 67 65  as a parent page
1d00: 20 74 68 61 74 20 68 61 73 20 6e 6f 74 20 62 65   that has not be
1d10: 65 6e 20 61 6e 61 6c 79 7a 65 64 2c 20 72 65 74  en analyzed, ret
1d20: 72 69 65 76 65 0a 20 20 20 20 23 20 69 6e 66 6f  rieve.    # info
1d30: 20 66 6f 72 20 74 68 65 20 70 61 72 65 6e 74 20   for the parent 
1d40: 61 6e 64 20 75 70 64 61 74 65 20 73 74 61 74 69  and update stati
1d50: 73 74 69 63 73 20 66 6f 72 20 69 74 20 74 6f 6f  stics for it too
1d60: 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66 20 7b  ..    #.    if {
1d70: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 73 65  ![info exists se
1d80: 65 6e 28 24 63 69 28 70 61 67 65 5f 6e 6f 29 29  en($ci(page_no))
1d90: 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 73  ]} {.      set s
1da0: 65 65 6e 28 24 63 69 28 70 61 67 65 5f 6e 6f 29  een($ci(page_no)
1db0: 29 20 31 0a 20 20 20 20 20 20 69 6e 63 72 20 6c  ) 1.      incr l
1dc0: 65 61 66 5f 70 61 67 65 73 0a 20 20 20 20 20 20  eaf_pages.      
1dd0: 69 6e 63 72 20 75 6e 75 73 65 64 5f 6c 65 61 66  incr unused_leaf
1de0: 20 24 63 69 28 70 61 67 65 5f 66 72 65 65 62 79   $ci(page_freeby
1df0: 74 65 73 29 0a 20 20 20 20 20 20 73 65 74 20 70  tes).      set p
1e00: 67 6c 69 73 74 20 22 24 63 69 28 70 61 67 65 5f  glist "$ci(page_
1e10: 6e 6f 29 20 24 70 67 6c 69 73 74 22 0a 0a 20 20  no) $pglist"..  
1e20: 20 20 20 20 23 20 4e 6f 77 20 63 68 65 63 6b 20      # Now check 
1e30: 69 66 20 74 68 65 20 70 61 67 65 20 68 61 73 20  if the page has 
1e40: 61 20 70 61 72 65 6e 74 20 74 68 61 74 20 68 61  a parent that ha
1e50: 73 20 6e 6f 74 20 62 65 65 6e 20 61 6e 61 6c 79  s not been analy
1e60: 7a 65 64 2e 20 49 66 0a 20 20 20 20 20 20 23 20  zed. If.      # 
1e70: 73 6f 2c 20 75 70 64 61 74 65 20 74 68 65 20 24  so, update the $
1e80: 69 6e 74 5f 70 61 67 65 73 2c 20 24 63 6e 74 5f  int_pages, $cnt_
1e90: 69 6e 74 5f 65 6e 74 72 79 20 61 6e 64 20 24 75  int_entry and $u
1ea0: 6e 75 73 65 64 5f 69 6e 74 20 73 74 61 74 69 73  nused_int statis
1eb0: 74 69 63 73 0a 20 20 20 20 20 20 23 20 61 63 63  tics.      # acc
1ec0: 6f 72 64 69 6e 67 6c 79 2e 20 54 68 65 6e 20 63  ordingly. Then c
1ed0: 68 65 63 6b 20 69 66 20 74 68 65 20 70 61 72 65  heck if the pare
1ee0: 6e 74 20 70 61 67 65 20 68 61 73 20 61 20 70 61  nt page has a pa
1ef0: 72 65 6e 74 20 74 68 61 74 20 68 61 73 0a 20 20  rent that has.  
1f00: 20 20 20 20 23 20 6e 6f 74 20 79 65 74 20 62 65      # not yet be
1f10: 65 6e 20 61 6e 61 6c 79 7a 65 64 20 65 74 63 2e  en analyzed etc.
1f20: 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 23  .      #.      #
1f30: 20 73 65 74 20 70 61 72 65 6e 74 20 24 63 69 28   set parent $ci(
1f40: 70 61 72 65 6e 74 5f 70 61 67 65 5f 6e 6f 29 0a  parent_page_no).
1f50: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 75        for {set u
1f60: 70 20 31 7d 20 5c 0a 20 20 20 20 20 20 20 20 20  p 1} \.         
1f70: 20 7b 24 63 69 28 70 61 72 65 6e 74 29 21 3d 30   {$ci(parent)!=0
1f80: 20 26 26 20 21 5b 69 6e 66 6f 20 65 78 69 73 74   && ![info exist
1f90: 73 20 73 65 65 6e 28 24 63 69 28 70 61 72 65 6e  s seen($ci(paren
1fa0: 74 29 29 5d 7d 20 7b 69 6e 63 72 20 75 70 7d 20  t))]} {incr up} 
1fb0: 5c 0a 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20  \.      {.      
1fc0: 20 20 23 20 4d 61 72 6b 20 74 68 65 20 70 61 72    # Mark the par
1fd0: 65 6e 74 20 61 73 20 73 65 65 6e 2e 0a 20 20 20  ent as seen..   
1fe0: 20 20 20 20 20 23 0a 20 20 20 20 20 20 20 20 73       #.        s
1ff0: 65 74 20 73 65 65 6e 28 24 63 69 28 70 61 72 65  et seen($ci(pare
2000: 6e 74 29 29 20 31 0a 0a 20 20 20 20 20 20 20 20  nt)) 1..        
2010: 23 20 52 65 74 72 69 65 76 65 20 69 6e 66 6f 20  # Retrieve info 
2020: 66 6f 72 20 74 68 65 20 70 61 72 65 6e 74 20 61  for the parent a
2030: 6e 64 20 75 70 64 61 74 65 20 73 74 61 74 69 73  nd update statis
2040: 74 69 63 73 2e 0a 20 20 20 20 20 20 20 20 63 75  tics..        cu
2050: 72 73 6f 72 5f 69 6e 66 6f 20 63 69 20 24 63 73  rsor_info ci $cs
2060: 72 20 24 75 70 0a 20 20 20 20 20 20 20 20 69 6e  r $up.        in
2070: 63 72 20 69 6e 74 5f 70 61 67 65 73 0a 20 20 20  cr int_pages.   
2080: 20 20 20 20 20 69 6e 63 72 20 63 6e 74 5f 69 6e       incr cnt_in
2090: 74 5f 65 6e 74 72 79 20 24 63 69 28 70 61 67 65  t_entry $ci(page
20a0: 5f 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20  _entries).      
20b0: 20 20 69 6e 63 72 20 75 6e 75 73 65 64 5f 69 6e    incr unused_in
20c0: 74 20 24 63 69 28 70 61 67 65 5f 66 72 65 65 62  t $ci(page_freeb
20d0: 79 74 65 73 29 0a 0a 20 20 20 20 20 20 20 20 23  ytes)..        #
20e0: 20 70 61 72 65 6e 74 20 70 61 67 65 73 20 63 6f   parent pages co
20f0: 6d 65 20 62 65 66 6f 72 65 20 74 68 65 69 72 20  me before their 
2100: 66 69 72 73 74 20 63 68 69 6c 64 0a 20 20 20 20  first child.    
2110: 20 20 20 20 73 65 74 20 70 67 6c 69 73 74 20 22      set pglist "
2120: 24 63 69 28 70 61 67 65 5f 6e 6f 29 20 24 70 67  $ci(page_no) $pg
2130: 6c 69 73 74 22 0a 20 20 20 20 20 20 7d 0a 20 20  list".      }.  
2140: 20 20 7d 0a 0a 20 20 20 20 23 20 43 68 65 63 6b    }..    # Check
2150: 20 74 68 65 20 70 61 67 65 20 6c 69 73 74 20 66   the page list f
2160: 6f 72 20 66 72 61 67 6d 65 6e 74 61 74 69 6f 6e  or fragmentation
2170: 0a 20 20 20 20 23 0a 20 20 20 20 66 6f 72 65 61  .    #.    forea
2180: 63 68 20 70 67 20 24 70 67 6c 69 73 74 20 7b 0a  ch pg $pglist {.
2190: 20 20 20 20 20 20 69 66 20 7b 28 24 70 67 3c 24        if {($pg<$
21a0: 70 72 65 76 5f 70 67 6e 6f 20 7c 7c 20 24 70 67  prev_pgno || $pg
21b0: 3e 24 70 72 65 76 5f 70 67 6e 6f 2b 24 4d 41 58  >$prev_pgno+$MAX
21c0: 47 41 50 29 20 26 26 20 24 70 72 65 76 5f 70 67  GAP) && $prev_pg
21d0: 6e 6f 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20 20  no>0} {.        
21e0: 69 6e 63 72 20 67 61 70 5f 63 6e 74 0a 20 20 20  incr gap_cnt.   
21f0: 20 20 20 7d 0a 20 20 20 20 20 20 73 65 74 20 70     }.      set p
2200: 72 65 76 5f 70 67 6e 6f 20 24 70 67 0a 20 20 20  rev_pgno $pg.   
2210: 20 7d 0a 20 20 7d 0a 20 20 62 74 72 65 65 5f 63   }.  }.  btree_c
2220: 6c 6f 73 65 5f 63 75 72 73 6f 72 20 24 63 73 72  lose_cursor $csr
2230: 0a 0a 20 20 23 20 48 61 6e 64 6c 65 20 74 68 65  ..  # Handle the
2240: 20 73 70 65 63 69 61 6c 20 63 61 73 65 20 77 68   special case wh
2250: 65 72 65 20 61 20 74 61 62 6c 65 20 63 6f 6e 74  ere a table cont
2260: 61 69 6e 73 20 6e 6f 20 64 61 74 61 2e 20 49 6e  ains no data. In
2270: 20 74 68 69 73 20 63 61 73 65 0a 20 20 23 20 61   this case.  # a
2280: 6c 6c 20 73 74 61 74 69 73 74 69 63 73 20 61 72  ll statistics ar
2290: 65 20 7a 65 72 6f 2c 20 65 78 63 65 70 74 20 66  e zero, except f
22a0: 6f 72 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66  or the number of
22b0: 20 6c 65 61 66 20 70 61 67 65 73 20 28 31 29 20   leaf pages (1) 
22c0: 61 6e 64 0a 20 20 23 20 74 68 65 20 75 6e 75 73  and.  # the unus
22d0: 65 64 20 62 79 74 65 73 20 6f 6e 20 6c 65 61 66  ed bytes on leaf
22e0: 20 70 61 67 65 73 20 28 24 70 61 67 65 53 69 7a   pages ($pageSiz
22f0: 65 20 2d 20 38 29 2e 0a 20 20 23 0a 20 20 23 20  e - 8)..  #.  # 
2300: 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 74 6f 20  An exception to 
2310: 74 68 65 20 61 62 6f 76 65 20 69 73 20 74 68 65  the above is the
2320: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 74   sqlite_master t
2330: 61 62 6c 65 2e 20 49 66 20 69 74 20 69 73 20 65  able. If it is e
2340: 6d 70 74 79 0a 20 20 23 20 74 68 65 6e 20 61 6c  mpty.  # then al
2350: 6c 20 73 74 61 74 69 73 74 69 63 73 20 61 72 65  l statistics are
2360: 20 7a 65 72 6f 20 65 78 63 65 70 74 20 66 6f 72   zero except for
2370: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6c   the number of l
2380: 65 61 66 20 70 61 67 65 73 20 28 31 29 2c 0a 20  eaf pages (1),. 
2390: 20 23 20 61 6e 64 20 74 68 65 20 6e 75 6d 62 65   # and the numbe
23a0: 72 20 6f 66 20 75 6e 75 73 65 64 20 62 79 74 65  r of unused byte
23b0: 73 20 6f 6e 20 6c 65 61 66 20 70 61 67 65 73 20  s on leaf pages 
23c0: 28 24 70 61 67 65 53 69 7a 65 20 2d 20 31 31 32  ($pageSize - 112
23d0: 29 2e 0a 20 20 23 0a 20 20 69 66 20 7b 5b 6c 6c  )..  #.  if {[ll
23e0: 65 6e 67 74 68 20 5b 61 72 72 61 79 20 6e 61 6d  ength [array nam
23f0: 65 73 20 73 65 65 6e 5d 5d 3d 3d 30 7d 20 7b 0a  es seen]]==0} {.
2400: 20 20 20 20 73 65 74 20 6c 65 61 66 5f 70 61 67      set leaf_pag
2410: 65 73 20 31 0a 20 20 20 20 69 66 20 7b 24 72 6f  es 1.    if {$ro
2420: 6f 74 70 61 67 65 3d 3d 31 7d 20 7b 0a 20 20 20  otpage==1} {.   
2430: 20 20 20 73 65 74 20 75 6e 75 73 65 64 5f 6c 65     set unused_le
2440: 61 66 20 5b 65 78 70 72 20 7b 24 70 61 67 65 53  af [expr {$pageS
2450: 69 7a 65 2d 31 31 32 7d 5d 0a 20 20 20 20 7d 20  ize-112}].    } 
2460: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 73 65 74  else {.      set
2470: 20 75 6e 75 73 65 64 5f 6c 65 61 66 20 5b 65 78   unused_leaf [ex
2480: 70 72 20 7b 24 70 61 67 65 53 69 7a 65 2d 38 7d  pr {$pageSize-8}
2490: 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 23  ].    }.  }..  #
24a0: 20 49 6e 73 65 72 74 20 74 68 65 20 73 74 61 74   Insert the stat
24b0: 69 73 74 69 63 73 20 66 6f 72 20 74 68 65 20 74  istics for the t
24c0: 61 62 6c 65 20 61 6e 61 6c 79 7a 65 64 20 69 6e  able analyzed in
24d0: 74 6f 20 74 68 65 20 69 6e 2d 6d 65 6d 6f 72 79  to the in-memory
24e0: 20 64 61 74 61 62 61 73 65 2e 0a 20 20 23 0a 20   database..  #. 
24f0: 20 73 65 74 20 73 71 6c 20 22 49 4e 53 45 52 54   set sql "INSERT
2500: 20 49 4e 54 4f 20 73 70 61 63 65 5f 75 73 65 64   INTO space_used
2510: 20 56 41 4c 55 45 53 28 22 0a 20 20 61 70 70 65   VALUES(".  appe
2520: 6e 64 20 73 71 6c 20 5b 71 75 6f 74 65 20 24 6e  nd sql [quote $n
2530: 61 6d 65 5d 0a 20 20 61 70 70 65 6e 64 20 73 71  ame].  append sq
2540: 6c 20 22 2c 5b 71 75 6f 74 65 20 24 6e 61 6d 65  l ",[quote $name
2550: 5d 22 0a 20 20 61 70 70 65 6e 64 20 73 71 6c 20  ]".  append sql 
2560: 22 2c 30 22 0a 20 20 61 70 70 65 6e 64 20 73 71  ",0".  append sq
2570: 6c 20 22 2c 5b 65 78 70 72 20 7b 24 63 6e 74 5f  l ",[expr {$cnt_
2580: 6c 65 61 66 5f 65 6e 74 72 79 2b 24 63 6e 74 5f  leaf_entry+$cnt_
2590: 69 6e 74 5f 65 6e 74 72 79 7d 5d 22 0a 20 20 61  int_entry}]".  a
25a0: 70 70 65 6e 64 20 73 71 6c 20 22 2c 24 63 6e 74  ppend sql ",$cnt
25b0: 5f 6c 65 61 66 5f 65 6e 74 72 79 22 0a 20 20 61  _leaf_entry".  a
25c0: 70 70 65 6e 64 20 73 71 6c 20 22 2c 24 74 6f 74  ppend sql ",$tot
25d0: 61 6c 5f 70 61 79 6c 6f 61 64 22 0a 20 20 61 70  al_payload".  ap
25e0: 70 65 6e 64 20 73 71 6c 20 22 2c 24 74 6f 74 61  pend sql ",$tota
25f0: 6c 5f 6f 76 66 6c 22 0a 20 20 61 70 70 65 6e 64  l_ovfl".  append
2600: 20 73 71 6c 20 22 2c 24 63 6e 74 5f 6f 76 66 6c   sql ",$cnt_ovfl
2610: 22 0a 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22  ".  append sql "
2620: 2c 24 6d 78 5f 70 61 79 6c 6f 61 64 22 0a 20 20  ,$mx_payload".  
2630: 61 70 70 65 6e 64 20 73 71 6c 20 22 2c 24 69 6e  append sql ",$in
2640: 74 5f 70 61 67 65 73 22 0a 20 20 61 70 70 65 6e  t_pages".  appen
2650: 64 20 73 71 6c 20 22 2c 24 6c 65 61 66 5f 70 61  d sql ",$leaf_pa
2660: 67 65 73 22 0a 20 20 61 70 70 65 6e 64 20 73 71  ges".  append sq
2670: 6c 20 22 2c 24 6f 76 66 6c 5f 70 61 67 65 73 22  l ",$ovfl_pages"
2680: 0a 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 2c  .  append sql ",
2690: 24 75 6e 75 73 65 64 5f 69 6e 74 22 0a 20 20 61  $unused_int".  a
26a0: 70 70 65 6e 64 20 73 71 6c 20 22 2c 24 75 6e 75  ppend sql ",$unu
26b0: 73 65 64 5f 6c 65 61 66 22 0a 20 20 61 70 70 65  sed_leaf".  appe
26c0: 6e 64 20 73 71 6c 20 22 2c 24 75 6e 75 73 65 64  nd sql ",$unused
26d0: 5f 6f 76 66 6c 22 0a 20 20 61 70 70 65 6e 64 20  _ovfl".  append 
26e0: 73 71 6c 20 22 2c 24 67 61 70 5f 63 6e 74 22 0a  sql ",$gap_cnt".
26f0: 20 20 61 70 70 65 6e 64 20 73 71 6c 20 29 3b 0a    append sql );.
2700: 20 20 6d 65 6d 20 65 76 61 6c 20 24 73 71 6c 0a    mem eval $sql.
2710: 7d 0a 0a 23 20 41 6e 61 6c 79 7a 65 20 65 76 65  }..# Analyze eve
2720: 72 79 20 69 6e 64 65 78 20 69 6e 20 74 68 65 20  ry index in the 
2730: 64 61 74 61 62 61 73 65 2c 20 6f 6e 65 20 61 74  database, one at
2740: 20 61 20 74 69 6d 65 2e 0a 23 0a 23 20 54 68 65   a time..#.# The
2750: 20 71 75 65 72 79 20 62 65 6c 6f 77 20 72 65 74   query below ret
2760: 75 72 6e 73 20 74 68 65 20 6e 61 6d 65 2c 20 61  urns the name, a
2770: 73 73 6f 63 69 61 74 65 64 20 74 61 62 6c 65 20  ssociated table 
2780: 61 6e 64 20 72 6f 6f 74 2d 70 61 67 65 20 6e 75  and root-page nu
2790: 6d 62 65 72 20 0a 23 20 66 6f 72 20 65 76 65 72  mber .# for ever
27a0: 79 20 69 6e 64 65 78 20 69 6e 20 74 68 65 20 64  y index in the d
27b0: 61 74 61 62 61 73 65 2e 0a 23 0a 73 65 74 20 73  atabase..#.set s
27c0: 71 6c 20 7b 0a 20 20 53 45 4c 45 43 54 20 6e 61  ql {.  SELECT na
27d0: 6d 65 2c 20 74 62 6c 5f 6e 61 6d 65 2c 20 72 6f  me, tbl_name, ro
27e0: 6f 74 70 61 67 65 20 46 52 4f 4d 20 73 71 6c 69  otpage FROM sqli
27f0: 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20  te_master WHERE 
2800: 74 79 70 65 3d 27 69 6e 64 65 78 27 0a 20 20 4f  type='index'.  O
2810: 52 44 45 52 20 42 59 20 32 2c 20 31 0a 7d 0a 66  RDER BY 2, 1.}.f
2820: 6f 72 65 61 63 68 20 7b 6e 61 6d 65 20 74 62 6c  oreach {name tbl
2830: 5f 6e 61 6d 65 20 72 6f 6f 74 70 61 67 65 7d 20  _name rootpage} 
2840: 5b 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 20 7b  [db eval $sql] {
2850: 0a 20 20 70 75 74 73 20 73 74 64 65 72 72 20 22  .  puts stderr "
2860: 41 6e 61 6c 79 7a 69 6e 67 20 69 6e 64 65 78 20  Analyzing index 
2870: 24 6e 61 6d 65 20 6f 66 20 74 61 62 6c 65 20 24  $name of table $
2880: 74 62 6c 5f 6e 61 6d 65 2e 2e 2e 22 0a 0a 20 20  tbl_name..."..  
2890: 23 20 43 6f 64 65 20 62 65 6c 6f 77 20 74 72 61  # Code below tra
28a0: 76 65 72 73 65 73 20 74 68 65 20 69 6e 64 65 78  verses the index
28b0: 20 62 65 69 6e 67 20 61 6e 61 6c 79 7a 65 64 20   being analyzed 
28c0: 28 69 6e 64 65 78 20 6e 61 6d 65 20 24 6e 61 6d  (index name $nam
28d0: 65 29 2c 20 75 73 69 6e 67 20 74 68 65 0a 20 20  e), using the.  
28e0: 23 20 62 74 72 65 65 20 63 75 72 73 6f 72 20 24  # btree cursor $
28f0: 63 75 72 73 6f 72 2e 20 53 74 61 74 69 73 74 69  cursor. Statisti
2900: 63 73 20 72 65 6c 61 74 65 64 20 74 6f 20 69 6e  cs related to in
2910: 64 65 78 20 24 6e 61 6d 65 20 61 72 65 20 61 63  dex $name are ac
2920: 63 75 6d 75 6c 61 74 65 64 20 69 6e 0a 20 20 23  cumulated in.  #
2930: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 76   the following v
2940: 61 72 69 61 62 6c 65 73 3a 0a 20 20 23 0a 20 20  ariables:.  #.  
2950: 73 65 74 20 74 6f 74 61 6c 5f 70 61 79 6c 6f 61  set total_payloa
2960: 64 20 24 77 69 64 65 5a 65 72 6f 20 20 20 20 20  d $wideZero     
2970: 20 20 20 3b 23 20 50 61 79 6c 6f 61 64 20 73 70     ;# Payload sp
2980: 61 63 65 20 75 73 65 64 20 62 79 20 61 6c 6c 20  ace used by all 
2990: 65 6e 74 72 69 65 73 0a 20 20 73 65 74 20 74 6f  entries.  set to
29a0: 74 61 6c 5f 6f 76 66 6c 20 24 77 69 64 65 5a 65  tal_ovfl $wideZe
29b0: 72 6f 20 20 20 20 20 20 20 20 20 20 20 3b 23 20  ro           ;# 
29c0: 50 61 79 6c 6f 61 64 20 73 70 61 63 65 20 6f 6e  Payload space on
29d0: 20 6f 76 65 72 66 6c 6f 77 20 70 61 67 65 73 0a   overflow pages.
29e0: 20 20 73 65 74 20 75 6e 75 73 65 64 5f 6c 65 61    set unused_lea
29f0: 66 20 24 77 69 64 65 5a 65 72 6f 20 20 20 20 20  f $wideZero     
2a00: 20 20 20 20 20 3b 23 20 55 6e 75 73 65 64 20 73       ;# Unused s
2a10: 70 61 63 65 20 6f 6e 20 6c 65 61 66 20 6e 6f 64  pace on leaf nod
2a20: 65 73 0a 20 20 73 65 74 20 75 6e 75 73 65 64 5f  es.  set unused_
2a30: 6f 76 66 6c 20 24 77 69 64 65 5a 65 72 6f 20 20  ovfl $wideZero  
2a40: 20 20 20 20 20 20 20 20 3b 23 20 55 6e 75 73 65          ;# Unuse
2a50: 64 20 73 70 61 63 65 20 6f 6e 20 6f 76 65 72 66  d space on overf
2a60: 6c 6f 77 20 70 61 67 65 73 0a 20 20 73 65 74 20  low pages.  set 
2a70: 63 6e 74 5f 6f 76 66 6c 20 24 77 69 64 65 5a 65  cnt_ovfl $wideZe
2a80: 72 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 3b  ro             ;
2a90: 23 20 4e 75 6d 62 65 72 20 6f 66 20 65 6e 74 72  # Number of entr
2aa0: 69 65 73 20 74 68 61 74 20 75 73 65 20 6f 76 65  ies that use ove
2ab0: 72 66 6c 6f 77 73 0a 20 20 73 65 74 20 63 6e 74  rflows.  set cnt
2ac0: 5f 6c 65 61 66 5f 65 6e 74 72 79 20 24 77 69 64  _leaf_entry $wid
2ad0: 65 5a 65 72 6f 20 20 20 20 20 20 20 3b 23 20 4e  eZero       ;# N
2ae0: 75 6d 62 65 72 20 6f 66 20 6c 65 61 66 20 65 6e  umber of leaf en
2af0: 74 72 69 65 73 0a 20 20 73 65 74 20 6d 78 5f 70  tries.  set mx_p
2b00: 61 79 6c 6f 61 64 20 24 77 69 64 65 5a 65 72 6f  ayload $wideZero
2b10: 20 20 20 20 20 20 20 20 20 20 20 3b 23 20 4d 61             ;# Ma
2b20: 78 69 6d 75 6d 20 70 61 79 6c 6f 61 64 20 73 69  ximum payload si
2b30: 7a 65 0a 20 20 73 65 74 20 6f 76 66 6c 5f 70 61  ze.  set ovfl_pa
2b40: 67 65 73 20 24 77 69 64 65 5a 65 72 6f 20 20 20  ges $wideZero   
2b50: 20 20 20 20 20 20 20 20 3b 23 20 4e 75 6d 62 65          ;# Numbe
2b60: 72 20 6f 66 20 6f 76 65 72 66 6c 6f 77 20 70 61  r of overflow pa
2b70: 67 65 73 20 75 73 65 64 0a 20 20 73 65 74 20 6c  ges used.  set l
2b80: 65 61 66 5f 70 61 67 65 73 20 24 77 69 64 65 5a  eaf_pages $wideZ
2b90: 65 72 6f 20 20 20 20 20 20 20 20 20 20 20 3b 23  ero           ;#
2ba0: 20 4e 75 6d 62 65 72 20 6f 66 20 6c 65 61 66 20   Number of leaf 
2bb0: 70 61 67 65 73 0a 20 20 73 65 74 20 67 61 70 5f  pages.  set gap_
2bc0: 63 6e 74 20 30 20 20 20 20 20 20 20 20 20 20 20  cnt 0           
2bd0: 20 20 20 20 20 20 20 20 20 20 20 3b 23 20 4e 75             ;# Nu
2be0: 6d 62 65 72 20 6f 66 20 68 6f 6c 65 73 20 69 6e  mber of holes in
2bf0: 20 74 68 65 20 70 61 67 65 20 73 65 71 75 65 6e   the page sequen
2c00: 63 65 0a 20 20 73 65 74 20 70 72 65 76 5f 70 67  ce.  set prev_pg
2c10: 6e 6f 20 30 20 20 20 20 20 20 20 20 20 20 20 20  no 0            
2c20: 20 20 20 20 20 20 20 20 3b 23 20 4c 61 73 74 20          ;# Last 
2c30: 70 61 67 65 20 6e 75 6d 62 65 72 20 73 65 65 6e  page number seen
2c40: 0a 0a 20 20 23 20 41 73 20 74 68 65 20 62 74 72  ..  # As the btr
2c50: 65 65 20 69 73 20 74 72 61 76 65 72 73 65 64 2c  ee is traversed,
2c60: 20 74 68 65 20 61 72 72 61 79 20 76 61 72 69 61   the array varia
2c70: 62 6c 65 20 24 73 65 65 6e 28 24 70 67 6e 6f 29  ble $seen($pgno)
2c80: 20 69 73 20 73 65 74 20 74 6f 20 31 0a 20 20 23   is set to 1.  #
2c90: 20 74 68 65 20 66 69 72 73 74 20 74 69 6d 65 20   the first time 
2ca0: 70 61 67 65 20 24 70 67 6e 6f 20 69 73 20 65 6e  page $pgno is en
2cb0: 63 6f 75 6e 74 65 72 65 64 2e 0a 20 20 23 0a 20  countered..  #. 
2cc0: 20 63 61 74 63 68 20 7b 75 6e 73 65 74 20 73 65   catch {unset se
2cd0: 65 6e 7d 0a 0a 20 20 23 20 54 68 65 20 66 6f 6c  en}..  # The fol
2ce0: 6c 6f 77 69 6e 67 20 6c 6f 6f 70 20 72 75 6e 73  lowing loop runs
2cf0: 20 6f 6e 63 65 20 66 6f 72 20 65 61 63 68 20 65   once for each e
2d00: 6e 74 72 79 20 69 6e 20 69 6e 64 65 78 20 24 6e  ntry in index $n
2d10: 61 6d 65 2e 20 54 68 65 20 69 6e 64 65 78 0a 20  ame. The index. 
2d20: 20 23 20 69 73 20 74 72 61 76 65 72 73 65 64 20   # is traversed 
2d30: 75 73 69 6e 67 20 74 68 65 20 62 74 72 65 65 20  using the btree 
2d40: 63 75 72 73 6f 72 20 73 74 6f 72 65 64 20 69 6e  cursor stored in
2d50: 20 76 61 72 69 61 62 6c 65 20 24 63 73 72 0a 20   variable $csr. 
2d60: 20 23 0a 20 20 73 65 74 20 63 73 72 20 5b 62 74   #.  set csr [bt
2d70: 72 65 65 5f 63 75 72 73 6f 72 20 24 44 42 20 24  ree_cursor $DB $
2d80: 72 6f 6f 74 70 61 67 65 20 30 5d 0a 20 20 66 6f  rootpage 0].  fo
2d90: 72 20 7b 62 74 72 65 65 5f 66 69 72 73 74 20 24  r {btree_first $
2da0: 63 73 72 7d 20 7b 21 5b 62 74 72 65 65 5f 65 6f  csr} {![btree_eo
2db0: 66 20 24 63 73 72 5d 7d 20 7b 62 74 72 65 65 5f  f $csr]} {btree_
2dc0: 6e 65 78 74 20 24 63 73 72 7d 20 7b 0a 20 20 20  next $csr} {.   
2dd0: 20 69 6e 63 72 20 63 6e 74 5f 6c 65 61 66 5f 65   incr cnt_leaf_e
2de0: 6e 74 72 79 0a 0a 20 20 20 20 23 20 52 65 74 72  ntry..    # Retr
2df0: 69 65 76 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e  ieve information
2e00: 20 61 62 6f 75 74 20 74 68 65 20 65 6e 74 72 79   about the entry
2e10: 20 74 68 65 20 62 74 72 65 65 2d 63 75 72 73 6f   the btree-curso
2e20: 72 20 70 6f 69 6e 74 73 20 74 6f 20 69 6e 74 6f  r points to into
2e30: 0a 20 20 20 20 23 20 74 68 65 20 61 72 72 61 79  .    # the array
2e40: 20 76 61 72 69 61 62 6c 65 20 24 63 69 20 28 63   variable $ci (c
2e50: 75 72 73 6f 72 20 69 6e 66 6f 29 2e 0a 20 20 20  ursor info)..   
2e60: 20 23 0a 20 20 20 20 63 75 72 73 6f 72 5f 69 6e   #.    cursor_in
2e70: 66 6f 20 63 69 20 24 63 73 72 0a 0a 20 20 20 20  fo ci $csr..    
2e80: 23 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 70  # Check if the p
2e90: 61 79 6c 6f 61 64 20 6f 66 20 74 68 69 73 20 65  ayload of this e
2ea0: 6e 74 72 79 20 69 73 20 67 72 65 61 74 65 72 20  ntry is greater 
2eb0: 74 68 61 6e 20 74 68 65 20 63 75 72 72 65 6e 74  than the current
2ec0: 20 0a 20 20 20 20 23 20 24 6d 78 5f 70 61 79 6c   .    # $mx_payl
2ed0: 6f 61 64 20 73 74 61 74 69 73 74 69 63 20 66 6f  oad statistic fo
2ee0: 72 20 74 68 65 20 74 61 62 6c 65 2e 20 41 6c 73  r the table. Als
2ef0: 6f 20 69 6e 63 72 65 61 73 65 20 74 68 65 20 24  o increase the $
2f00: 74 6f 74 61 6c 5f 70 61 79 6c 6f 61 64 0a 20 20  total_payload.  
2f10: 20 20 23 20 73 74 61 74 69 73 74 69 63 2e 0a 20    # statistic.. 
2f20: 20 20 20 23 0a 20 20 20 20 73 65 74 20 70 61 79     #.    set pay
2f30: 6c 6f 61 64 20 5b 62 74 72 65 65 5f 6b 65 79 73  load [btree_keys
2f40: 69 7a 65 20 24 63 73 72 5d 0a 20 20 20 20 69 66  ize $csr].    if
2f50: 20 7b 24 70 61 79 6c 6f 61 64 3e 24 6d 78 5f 70   {$payload>$mx_p
2f60: 61 79 6c 6f 61 64 7d 20 7b 73 65 74 20 6d 78 5f  ayload} {set mx_
2f70: 70 61 79 6c 6f 61 64 20 24 70 61 79 6c 6f 61 64  payload $payload
2f80: 7d 0a 20 20 20 20 69 6e 63 72 20 74 6f 74 61 6c  }.    incr total
2f90: 5f 70 61 79 6c 6f 61 64 20 24 70 61 79 6c 6f 61  _payload $payloa
2fa0: 64 0a 0a 20 20 20 20 23 20 49 66 20 74 68 69 73  d..    # If this
2fb0: 20 65 6e 74 72 79 20 75 73 65 73 20 6f 76 65 72   entry uses over
2fc0: 66 6c 6f 77 20 70 61 67 65 73 2c 20 74 68 65 6e  flow pages, then
2fd0: 20 75 70 64 61 74 65 20 74 68 65 20 24 63 6e 74   update the $cnt
2fe0: 5f 6f 76 66 6c 2c 20 0a 20 20 20 20 23 20 24 74  _ovfl, .    # $t
2ff0: 6f 74 61 6c 5f 6f 76 66 6c 2c 20 24 6f 76 66 6c  otal_ovfl, $ovfl
3000: 5f 70 61 67 65 73 20 61 6e 64 20 24 75 6e 75 73  _pages and $unus
3010: 65 64 5f 6f 76 66 6c 20 73 74 61 74 69 73 74 69  ed_ovfl statisti
3020: 63 73 2e 0a 20 20 20 20 23 0a 20 20 20 20 73 65  cs..    #.    se
3030: 74 20 6f 76 66 6c 20 5b 65 78 70 72 20 7b 24 70  t ovfl [expr {$p
3040: 61 79 6c 6f 61 64 2d 24 63 69 28 6c 6f 63 61 6c  ayload-$ci(local
3050: 5f 70 61 79 6c 6f 61 64 5f 62 79 74 65 73 29 7d  _payload_bytes)}
3060: 5d 0a 20 20 20 20 69 66 20 7b 24 6f 76 66 6c 7d  ].    if {$ovfl}
3070: 20 7b 0a 20 20 20 20 20 20 69 6e 63 72 20 63 6e   {.      incr cn
3080: 74 5f 6f 76 66 6c 0a 20 20 20 20 20 20 69 6e 63  t_ovfl.      inc
3090: 72 20 74 6f 74 61 6c 5f 6f 76 66 6c 20 24 6f 76  r total_ovfl $ov
30a0: 66 6c 0a 20 20 20 20 20 20 73 65 74 20 6e 20 5b  fl.      set n [
30b0: 65 78 70 72 20 7b 69 6e 74 28 63 65 69 6c 28 24  expr {int(ceil($
30c0: 6f 76 66 6c 2f 28 24 70 61 67 65 53 69 7a 65 2d  ovfl/($pageSize-
30d0: 34 2e 30 29 29 29 7d 5d 0a 20 20 20 20 20 20 69  4.0)))}].      i
30e0: 6e 63 72 20 6f 76 66 6c 5f 70 61 67 65 73 20 24  ncr ovfl_pages $
30f0: 6e 0a 20 20 20 20 20 20 69 6e 63 72 20 75 6e 75  n.      incr unu
3100: 73 65 64 5f 6f 76 66 6c 20 5b 65 78 70 72 20 7b  sed_ovfl [expr {
3110: 24 6e 2a 28 24 70 61 67 65 53 69 7a 65 2d 34 29  $n*($pageSize-4)
3120: 20 2d 20 24 6f 76 66 6c 7d 5d 0a 20 20 20 20 7d   - $ovfl}].    }
3130: 0a 0a 20 20 20 20 23 20 49 66 20 74 68 69 73 20  ..    # If this 
3140: 69 73 20 74 68 65 20 66 69 72 73 74 20 74 61 62  is the first tab
3150: 6c 65 20 65 6e 74 72 79 20 61 6e 61 6c 79 7a 65  le entry analyze
3160: 64 20 66 6f 72 20 74 68 65 20 70 61 67 65 2c 20  d for the page, 
3170: 74 68 65 6e 20 75 70 64 61 74 65 0a 20 20 20 20  then update.    
3180: 23 20 74 68 65 20 70 61 67 65 2d 72 65 6c 61 74  # the page-relat
3190: 65 64 20 73 74 61 74 69 73 74 69 63 73 20 24 6c  ed statistics $l
31a0: 65 61 66 5f 70 61 67 65 73 20 61 6e 64 20 24 75  eaf_pages and $u
31b0: 6e 75 73 65 64 5f 6c 65 61 66 2e 0a 20 20 20 20  nused_leaf..    
31c0: 23 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f  #.    if {![info
31d0: 20 65 78 69 73 74 73 20 73 65 65 6e 28 24 63 69   exists seen($ci
31e0: 28 70 61 67 65 5f 6e 6f 29 29 5d 7d 20 7b 0a 20  (page_no))]} {. 
31f0: 20 20 20 20 20 73 65 74 20 73 65 65 6e 28 24 63       set seen($c
3200: 69 28 70 61 67 65 5f 6e 6f 29 29 20 31 0a 20 20  i(page_no)) 1.  
3210: 20 20 20 20 69 6e 63 72 20 6c 65 61 66 5f 70 61      incr leaf_pa
3220: 67 65 73 0a 20 20 20 20 20 20 69 6e 63 72 20 75  ges.      incr u
3230: 6e 75 73 65 64 5f 6c 65 61 66 20 24 63 69 28 70  nused_leaf $ci(p
3240: 61 67 65 5f 66 72 65 65 62 79 74 65 73 29 0a 20  age_freebytes). 
3250: 20 20 20 20 20 73 65 74 20 70 67 20 24 63 69 28       set pg $ci(
3260: 70 61 67 65 5f 6e 6f 29 0a 20 20 20 20 20 20 69  page_no).      i
3270: 66 20 7b 24 70 72 65 76 5f 70 67 6e 6f 3e 30 20  f {$prev_pgno>0 
3280: 26 26 20 28 24 70 72 65 76 5f 70 67 6e 6f 3c 24  && ($prev_pgno<$
3290: 70 67 2d 24 4d 41 58 47 41 50 20 7c 7c 20 24 70  pg-$MAXGAP || $p
32a0: 72 65 76 5f 70 67 6e 6f 3e 24 70 67 29 7d 20 7b  rev_pgno>$pg)} {
32b0: 0a 20 20 20 20 20 20 20 20 69 6e 63 72 20 67 61  .        incr ga
32c0: 70 5f 63 6e 74 0a 20 20 20 20 20 20 7d 0a 20 20  p_cnt.      }.  
32d0: 20 20 20 20 73 65 74 20 70 72 65 76 5f 70 67 6e      set prev_pgn
32e0: 6f 20 24 63 69 28 70 61 67 65 5f 6e 6f 29 0a 20  o $ci(page_no). 
32f0: 20 20 20 7d 0a 20 20 7d 0a 20 20 62 74 72 65 65     }.  }.  btree
3300: 5f 63 6c 6f 73 65 5f 63 75 72 73 6f 72 20 24 63  _close_cursor $c
3310: 73 72 0a 0a 20 20 23 20 48 61 6e 64 6c 65 20 74  sr..  # Handle t
3320: 68 65 20 73 70 65 63 69 61 6c 20 63 61 73 65 20  he special case 
3330: 77 68 65 72 65 20 61 20 69 6e 64 65 78 20 63 6f  where a index co
3340: 6e 74 61 69 6e 73 20 6e 6f 20 64 61 74 61 2e 20  ntains no data. 
3350: 49 6e 20 74 68 69 73 20 63 61 73 65 0a 20 20 23  In this case.  #
3360: 20 61 6c 6c 20 73 74 61 74 69 73 74 69 63 73 20   all statistics 
3370: 61 72 65 20 7a 65 72 6f 2c 20 65 78 63 65 70 74  are zero, except
3380: 20 66 6f 72 20 74 68 65 20 6e 75 6d 62 65 72 20   for the number 
3390: 6f 66 20 6c 65 61 66 20 70 61 67 65 73 20 28 31  of leaf pages (1
33a0: 29 20 61 6e 64 0a 20 20 23 20 74 68 65 20 75 6e  ) and.  # the un
33b0: 75 73 65 64 20 62 79 74 65 73 20 6f 6e 20 6c 65  used bytes on le
33c0: 61 66 20 70 61 67 65 73 20 28 24 70 61 67 65 53  af pages ($pageS
33d0: 69 7a 65 20 2d 20 38 29 2e 0a 20 20 23 0a 20 20  ize - 8)..  #.  
33e0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 5b 61 72  if {[llength [ar
33f0: 72 61 79 20 6e 61 6d 65 73 20 73 65 65 6e 5d 5d  ray names seen]]
3400: 3d 3d 30 7d 20 7b 0a 20 20 20 20 73 65 74 20 6c  ==0} {.    set l
3410: 65 61 66 5f 70 61 67 65 73 20 31 0a 20 20 20 20  eaf_pages 1.    
3420: 73 65 74 20 75 6e 75 73 65 64 5f 6c 65 61 66 20  set unused_leaf 
3430: 5b 65 78 70 72 20 7b 24 70 61 67 65 53 69 7a 65  [expr {$pageSize
3440: 2d 38 7d 5d 0a 20 20 7d 0a 0a 20 20 23 20 49 6e  -8}].  }..  # In
3450: 73 65 72 74 20 74 68 65 20 73 74 61 74 69 73 74  sert the statist
3460: 69 63 73 20 66 6f 72 20 74 68 65 20 69 6e 64 65  ics for the inde
3470: 78 20 61 6e 61 6c 79 7a 65 64 20 69 6e 74 6f 20  x analyzed into 
3480: 74 68 65 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 61  the in-memory da
3490: 74 61 62 61 73 65 2e 0a 20 20 23 0a 20 20 73 65  tabase..  #.  se
34a0: 74 20 73 71 6c 20 22 49 4e 53 45 52 54 20 49 4e  t sql "INSERT IN
34b0: 54 4f 20 73 70 61 63 65 5f 75 73 65 64 20 56 41  TO space_used VA
34c0: 4c 55 45 53 28 22 0a 20 20 61 70 70 65 6e 64 20  LUES(".  append 
34d0: 73 71 6c 20 5b 71 75 6f 74 65 20 24 6e 61 6d 65  sql [quote $name
34e0: 5d 0a 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22  ].  append sql "
34f0: 2c 5b 71 75 6f 74 65 20 24 74 62 6c 5f 6e 61 6d  ,[quote $tbl_nam
3500: 65 5d 22 0a 20 20 61 70 70 65 6e 64 20 73 71 6c  e]".  append sql
3510: 20 22 2c 31 22 0a 20 20 61 70 70 65 6e 64 20 73   ",1".  append s
3520: 71 6c 20 22 2c 24 63 6e 74 5f 6c 65 61 66 5f 65  ql ",$cnt_leaf_e
3530: 6e 74 72 79 22 0a 20 20 61 70 70 65 6e 64 20 73  ntry".  append s
3540: 71 6c 20 22 2c 24 63 6e 74 5f 6c 65 61 66 5f 65  ql ",$cnt_leaf_e
3550: 6e 74 72 79 22 0a 20 20 61 70 70 65 6e 64 20 73  ntry".  append s
3560: 71 6c 20 22 2c 24 74 6f 74 61 6c 5f 70 61 79 6c  ql ",$total_payl
3570: 6f 61 64 22 0a 20 20 61 70 70 65 6e 64 20 73 71  oad".  append sq
3580: 6c 20 22 2c 24 74 6f 74 61 6c 5f 6f 76 66 6c 22  l ",$total_ovfl"
3590: 0a 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 2c  .  append sql ",
35a0: 24 63 6e 74 5f 6f 76 66 6c 22 0a 20 20 61 70 70  $cnt_ovfl".  app
35b0: 65 6e 64 20 73 71 6c 20 22 2c 24 6d 78 5f 70 61  end sql ",$mx_pa
35c0: 79 6c 6f 61 64 22 0a 20 20 61 70 70 65 6e 64 20  yload".  append 
35d0: 73 71 6c 20 22 2c 30 22 0a 20 20 61 70 70 65 6e  sql ",0".  appen
35e0: 64 20 73 71 6c 20 22 2c 24 6c 65 61 66 5f 70 61  d sql ",$leaf_pa
35f0: 67 65 73 22 0a 20 20 61 70 70 65 6e 64 20 73 71  ges".  append sq
3600: 6c 20 22 2c 24 6f 76 66 6c 5f 70 61 67 65 73 22  l ",$ovfl_pages"
3610: 0a 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 2c  .  append sql ",
3620: 30 22 0a 20 20 61 70 70 65 6e 64 20 73 71 6c 20  0".  append sql 
3630: 22 2c 24 75 6e 75 73 65 64 5f 6c 65 61 66 22 0a  ",$unused_leaf".
3640: 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 2c 24    append sql ",$
3650: 75 6e 75 73 65 64 5f 6f 76 66 6c 22 0a 20 20 61  unused_ovfl".  a
3660: 70 70 65 6e 64 20 73 71 6c 20 22 2c 24 67 61 70  ppend sql ",$gap
3670: 5f 63 6e 74 22 0a 20 20 61 70 70 65 6e 64 20 73  _cnt".  append s
3680: 71 6c 20 29 3b 0a 20 20 6d 65 6d 20 65 76 61 6c  ql );.  mem eval
3690: 20 24 73 71 6c 0a 7d 0a 0a 23 20 47 65 6e 65 72   $sql.}..# Gener
36a0: 61 74 65 20 61 20 73 69 6e 67 6c 65 20 6c 69 6e  ate a single lin
36b0: 65 20 6f 66 20 6f 75 74 70 75 74 20 69 6e 20 74  e of output in t
36c0: 68 65 20 73 74 61 74 69 73 74 69 63 73 20 73 65  he statistics se
36d0: 63 74 69 6f 6e 20 6f 66 20 74 68 65 0a 23 20 72  ction of the.# r
36e0: 65 70 6f 72 74 2e 0a 23 0a 70 72 6f 63 20 73 74  eport..#.proc st
36f0: 61 74 6c 69 6e 65 20 7b 74 69 74 6c 65 20 76 61  atline {title va
3700: 6c 75 65 20 7b 65 78 74 72 61 20 7b 7d 7d 7d 20  lue {extra {}}} 
3710: 7b 0a 20 20 73 65 74 20 6c 65 6e 20 5b 73 74 72  {.  set len [str
3720: 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 69 74 6c  ing length $titl
3730: 65 5d 0a 20 20 73 65 74 20 64 6f 74 73 20 5b 73  e].  set dots [s
3740: 74 72 69 6e 67 20 72 61 6e 67 65 20 7b 2e 2e 2e  tring range {...
3750: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e  ................
3760: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e  ................
3770: 2e 2e 2e 7d 20 24 6c 65 6e 20 65 6e 64 5d 0a 20  ...} $len end]. 
3780: 20 73 65 74 20 6c 65 6e 20 5b 73 74 72 69 6e 67   set len [string
3790: 20 6c 65 6e 67 74 68 20 24 76 61 6c 75 65 5d 0a   length $value].
37a0: 20 20 73 65 74 20 73 70 32 20 5b 73 74 72 69 6e    set sp2 [strin
37b0: 67 20 72 61 6e 67 65 20 7b 20 20 20 20 20 20 20  g range {       
37c0: 20 20 20 7d 20 24 6c 65 6e 20 65 6e 64 5d 0a 20     } $len end]. 
37d0: 20 69 66 20 7b 24 65 78 74 72 61 20 6e 65 20 22   if {$extra ne "
37e0: 22 7d 20 7b 0a 20 20 20 20 73 65 74 20 65 78 74  "} {.    set ext
37f0: 72 61 20 22 20 24 65 78 74 72 61 22 0a 20 20 7d  ra " $extra".  }
3800: 0a 20 20 70 75 74 73 20 22 24 74 69 74 6c 65 24  .  puts "$title$
3810: 64 6f 74 73 20 24 76 61 6c 75 65 24 73 70 32 24  dots $value$sp2$
3820: 65 78 74 72 61 22 0a 7d 0a 0a 23 20 47 65 6e 65  extra".}..# Gene
3830: 72 61 74 65 20 61 20 66 6f 72 6d 61 74 74 65 64  rate a formatted
3840: 20 70 65 72 63 65 6e 74 61 67 65 20 76 61 6c 75   percentage valu
3850: 65 20 66 6f 72 20 24 6e 75 6d 2f 24 64 65 6e 6f  e for $num/$deno
3860: 6d 0a 23 0a 70 72 6f 63 20 70 65 72 63 65 6e 74  m.#.proc percent
3870: 20 7b 6e 75 6d 20 64 65 6e 6f 6d 20 7b 6f 66 20   {num denom {of 
3880: 7b 7d 7d 7d 20 7b 0a 20 20 69 66 20 7b 24 64 65  {}}} {.  if {$de
3890: 6e 6f 6d 3d 3d 30 2e 30 7d 20 7b 72 65 74 75 72  nom==0.0} {retur
38a0: 6e 20 22 22 7d 0a 20 20 73 65 74 20 76 20 5b 65  n ""}.  set v [e
38b0: 78 70 72 20 7b 24 6e 75 6d 2a 31 30 30 2e 30 2f  xpr {$num*100.0/
38c0: 24 64 65 6e 6f 6d 7d 5d 0a 20 20 73 65 74 20 6f  $denom}].  set o
38d0: 66 20 7b 7d 0a 20 20 69 66 20 7b 24 76 3d 3d 31  f {}.  if {$v==1
38e0: 30 30 2e 30 20 7c 7c 20 24 76 3c 30 2e 30 30 31  00.0 || $v<0.001
38f0: 20 7c 7c 20 28 24 76 3e 31 2e 30 20 26 26 20 24   || ($v>1.0 && $
3900: 76 3c 39 39 2e 30 29 7d 20 7b 0a 20 20 20 20 72  v<99.0)} {.    r
3910: 65 74 75 72 6e 20 5b 66 6f 72 6d 61 74 20 7b 25  eturn [format {%
3920: 35 2e 31 66 25 25 20 25 73 7d 20 24 76 20 24 6f  5.1f%% %s} $v $o
3930: 66 5d 0a 20 20 7d 20 65 6c 73 65 69 66 20 7b 24  f].  } elseif {$
3940: 76 3c 30 2e 31 20 7c 7c 20 24 76 3e 39 39 2e 39  v<0.1 || $v>99.9
3950: 7d 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 5b  } {.    return [
3960: 66 6f 72 6d 61 74 20 7b 25 37 2e 33 66 25 25 20  format {%7.3f%% 
3970: 25 73 7d 20 24 76 20 24 6f 66 5d 0a 20 20 7d 20  %s} $v $of].  } 
3980: 65 6c 73 65 20 7b 0a 20 20 20 20 72 65 74 75 72  else {.    retur
3990: 6e 20 5b 66 6f 72 6d 61 74 20 7b 25 36 2e 32 66  n [format {%6.2f
39a0: 25 25 20 25 73 7d 20 24 76 20 24 6f 66 5d 0a 20  %% %s} $v $of]. 
39b0: 20 7d 0a 7d 0a 0a 70 72 6f 63 20 64 69 76 69 64   }.}..proc divid
39c0: 65 20 7b 6e 75 6d 20 64 65 6e 6f 6d 7d 20 7b 0a  e {num denom} {.
39d0: 20 20 69 66 20 7b 24 64 65 6e 6f 6d 3d 3d 30 7d    if {$denom==0}
39e0: 20 7b 72 65 74 75 72 6e 20 30 2e 30 7d 0a 20 20   {return 0.0}.  
39f0: 72 65 74 75 72 6e 20 5b 66 6f 72 6d 61 74 20 25  return [format %
3a00: 2e 32 66 20 5b 65 78 70 72 20 64 6f 75 62 6c 65  .2f [expr double
3a10: 28 24 6e 75 6d 29 2f 64 6f 75 62 6c 65 28 24 64  ($num)/double($d
3a20: 65 6e 6f 6d 29 5d 5d 0a 7d 0a 0a 23 20 47 65 6e  enom)]].}..# Gen
3a30: 65 72 61 74 65 20 61 20 73 75 62 72 65 70 6f 72  erate a subrepor
3a40: 74 20 74 68 61 74 20 63 6f 76 65 72 73 20 73 6f  t that covers so
3a50: 6d 65 20 73 75 62 73 65 74 20 6f 66 20 74 68 65  me subset of the
3a60: 20 64 61 74 61 62 61 73 65 2e 0a 23 20 74 68 65   database..# the
3a70: 20 24 77 68 65 72 65 20 63 6c 61 75 73 65 20 64   $where clause d
3a80: 65 74 65 72 6d 69 6e 65 73 20 77 68 69 63 68 20  etermines which 
3a90: 73 75 62 73 65 74 20 74 6f 20 61 6e 61 6c 79 7a  subset to analyz
3aa0: 65 2e 0a 23 0a 70 72 6f 63 20 73 75 62 72 65 70  e..#.proc subrep
3ab0: 6f 72 74 20 7b 74 69 74 6c 65 20 77 68 65 72 65  ort {title where
3ac0: 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 70 61 67  } {.  global pag
3ad0: 65 53 69 7a 65 20 66 69 6c 65 5f 70 67 63 6e 74  eSize file_pgcnt
3ae0: 0a 0a 20 20 23 20 51 75 65 72 79 20 74 68 65 20  ..  # Query the 
3af0: 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61  in-memory databa
3b00: 73 65 20 66 6f 72 20 74 68 65 20 73 75 6d 20 6f  se for the sum o
3b10: 66 20 76 61 72 69 6f 75 73 20 73 74 61 74 69 73  f various statis
3b20: 74 69 63 73 20 0a 20 20 23 20 66 6f 72 20 74 68  tics .  # for th
3b30: 65 20 73 75 62 73 65 74 20 6f 66 20 74 61 62 6c  e subset of tabl
3b40: 65 73 2f 69 6e 64 69 63 65 73 20 69 64 65 6e 74  es/indices ident
3b50: 69 66 69 65 64 20 62 79 20 74 68 65 20 57 48 45  ified by the WHE
3b60: 52 45 20 63 6c 61 75 73 65 20 69 6e 0a 20 20 23  RE clause in.  #
3b70: 20 24 77 68 65 72 65 2e 20 4e 6f 74 65 20 74 68   $where. Note th
3b80: 61 74 20 65 76 65 6e 20 69 66 20 74 68 65 20 57  at even if the W
3b90: 48 45 52 45 20 63 6c 61 75 73 65 20 6d 61 74 63  HERE clause matc
3ba0: 68 65 73 20 6e 6f 20 72 6f 77 73 2c 20 74 68 65  hes no rows, the
3bb0: 0a 20 20 23 20 66 6f 6c 6c 6f 77 69 6e 67 20 71  .  # following q
3bc0: 75 65 72 79 20 72 65 74 75 72 6e 73 20 65 78 61  uery returns exa
3bd0: 63 74 6c 79 20 6f 6e 65 20 72 6f 77 20 28 62 65  ctly one row (be
3be0: 63 61 75 73 65 20 69 74 20 69 73 20 61 6e 20 61  cause it is an a
3bf0: 67 67 72 65 67 61 74 65 29 2e 0a 20 20 23 0a 20  ggregate)..  #. 
3c00: 20 23 20 54 68 65 20 72 65 73 75 6c 74 73 20 6f   # The results o
3c10: 66 20 74 68 65 20 71 75 65 72 79 20 61 72 65 20  f the query are 
3c20: 73 74 6f 72 65 64 20 64 69 72 65 63 74 6c 79 20  stored directly 
3c30: 62 79 20 53 51 4c 69 74 65 20 69 6e 74 6f 20 6c  by SQLite into l
3c40: 6f 63 61 6c 20 0a 20 20 23 20 76 61 72 69 61 62  ocal .  # variab
3c50: 6c 65 73 20 28 69 2e 65 2e 20 24 6e 65 6e 74 72  les (i.e. $nentr
3c60: 79 2c 20 24 6e 6c 65 61 66 20 65 74 63 2e 29 2e  y, $nleaf etc.).
3c70: 0a 20 20 23 0a 20 20 6d 65 6d 20 65 76 61 6c 20  .  #.  mem eval 
3c80: 22 0a 20 20 20 20 53 45 4c 45 43 54 0a 20 20 20  ".    SELECT.   
3c90: 20 20 20 69 6e 74 28 73 75 6d 28 6e 65 6e 74 72     int(sum(nentr
3ca0: 79 29 29 20 41 53 20 6e 65 6e 74 72 79 2c 0a 20  y)) AS nentry,. 
3cb0: 20 20 20 20 20 69 6e 74 28 73 75 6d 28 6c 65 61       int(sum(lea
3cc0: 66 5f 65 6e 74 72 69 65 73 29 29 20 41 53 20 6e  f_entries)) AS n
3cd0: 6c 65 61 66 2c 0a 20 20 20 20 20 20 69 6e 74 28  leaf,.      int(
3ce0: 73 75 6d 28 70 61 79 6c 6f 61 64 29 29 20 41 53  sum(payload)) AS
3cf0: 20 70 61 79 6c 6f 61 64 2c 0a 20 20 20 20 20 20   payload,.      
3d00: 69 6e 74 28 73 75 6d 28 6f 76 66 6c 5f 70 61 79  int(sum(ovfl_pay
3d10: 6c 6f 61 64 29 29 20 41 53 20 6f 76 66 6c 5f 70  load)) AS ovfl_p
3d20: 61 79 6c 6f 61 64 2c 0a 20 20 20 20 20 20 6d 61  ayload,.      ma
3d30: 78 28 6d 78 5f 70 61 79 6c 6f 61 64 29 20 41 53  x(mx_payload) AS
3d40: 20 6d 78 5f 70 61 79 6c 6f 61 64 2c 0a 20 20 20   mx_payload,.   
3d50: 20 20 20 69 6e 74 28 73 75 6d 28 6f 76 66 6c 5f     int(sum(ovfl_
3d60: 63 6e 74 29 29 20 61 73 20 6f 76 66 6c 5f 63 6e  cnt)) as ovfl_cn
3d70: 74 2c 0a 20 20 20 20 20 20 69 6e 74 28 73 75 6d  t,.      int(sum
3d80: 28 6c 65 61 66 5f 70 61 67 65 73 29 29 20 41 53  (leaf_pages)) AS
3d90: 20 6c 65 61 66 5f 70 61 67 65 73 2c 0a 20 20 20   leaf_pages,.   
3da0: 20 20 20 69 6e 74 28 73 75 6d 28 69 6e 74 5f 70     int(sum(int_p
3db0: 61 67 65 73 29 29 20 41 53 20 69 6e 74 5f 70 61  ages)) AS int_pa
3dc0: 67 65 73 2c 0a 20 20 20 20 20 20 69 6e 74 28 73  ges,.      int(s
3dd0: 75 6d 28 6f 76 66 6c 5f 70 61 67 65 73 29 29 20  um(ovfl_pages)) 
3de0: 41 53 20 6f 76 66 6c 5f 70 61 67 65 73 2c 0a 20  AS ovfl_pages,. 
3df0: 20 20 20 20 20 69 6e 74 28 73 75 6d 28 6c 65 61       int(sum(lea
3e00: 66 5f 75 6e 75 73 65 64 29 29 20 41 53 20 6c 65  f_unused)) AS le
3e10: 61 66 5f 75 6e 75 73 65 64 2c 0a 20 20 20 20 20  af_unused,.     
3e20: 20 69 6e 74 28 73 75 6d 28 69 6e 74 5f 75 6e 75   int(sum(int_unu
3e30: 73 65 64 29 29 20 41 53 20 69 6e 74 5f 75 6e 75  sed)) AS int_unu
3e40: 73 65 64 2c 0a 20 20 20 20 20 20 69 6e 74 28 73  sed,.      int(s
3e50: 75 6d 28 6f 76 66 6c 5f 75 6e 75 73 65 64 29 29  um(ovfl_unused))
3e60: 20 41 53 20 6f 76 66 6c 5f 75 6e 75 73 65 64 2c   AS ovfl_unused,
3e70: 0a 20 20 20 20 20 20 69 6e 74 28 73 75 6d 28 67  .      int(sum(g
3e80: 61 70 5f 63 6e 74 29 29 20 41 53 20 67 61 70 5f  ap_cnt)) AS gap_
3e90: 63 6e 74 0a 20 20 20 20 46 52 4f 4d 20 73 70 61  cnt.    FROM spa
3ea0: 63 65 5f 75 73 65 64 20 57 48 45 52 45 20 24 77  ce_used WHERE $w
3eb0: 68 65 72 65 22 20 7b 7d 20 7b 7d 0a 0a 20 20 23  here" {} {}..  #
3ec0: 20 4f 75 74 70 75 74 20 74 68 65 20 73 75 62 2d   Output the sub-
3ed0: 72 65 70 6f 72 74 20 74 69 74 6c 65 2c 20 6e 69  report title, ni
3ee0: 63 65 6c 79 20 64 65 63 6f 72 61 74 65 64 20 77  cely decorated w
3ef0: 69 74 68 20 2a 20 63 68 61 72 61 63 74 65 72 73  ith * characters
3f00: 2e 0a 20 20 23 0a 20 20 70 75 74 73 20 22 22 0a  ..  #.  puts "".
3f10: 20 20 73 65 74 20 6c 65 6e 20 5b 73 74 72 69 6e    set len [strin
3f20: 67 20 6c 65 6e 67 74 68 20 24 74 69 74 6c 65 5d  g length $title]
3f30: 0a 20 20 73 65 74 20 73 74 61 72 73 20 5b 73 74  .  set stars [st
3f40: 72 69 6e 67 20 72 65 70 65 61 74 20 2a 20 5b 65  ring repeat * [e
3f50: 78 70 72 20 36 35 2d 24 6c 65 6e 5d 5d 0a 20 20  xpr 65-$len]].  
3f60: 70 75 74 73 20 22 2a 2a 2a 20 24 74 69 74 6c 65  puts "*** $title
3f70: 20 24 73 74 61 72 73 22 0a 20 20 70 75 74 73 20   $stars".  puts 
3f80: 22 22 0a 0a 20 20 23 20 43 61 6c 63 75 6c 61 74  ""..  # Calculat
3f90: 65 20 73 74 61 74 69 73 74 69 63 73 20 61 6e 64  e statistics and
3fa0: 20 73 74 6f 72 65 20 74 68 65 20 72 65 73 75 6c   store the resul
3fb0: 74 73 20 69 6e 20 54 43 4c 20 76 61 72 69 61 62  ts in TCL variab
3fc0: 6c 65 73 2c 20 61 73 20 66 6f 6c 6c 6f 77 73 3a  les, as follows:
3fd0: 0a 20 20 23 0a 20 20 23 20 74 6f 74 61 6c 5f 70  .  #.  # total_p
3fe0: 61 67 65 73 3a 20 44 61 74 61 62 61 73 65 20 70  ages: Database p
3ff0: 61 67 65 73 20 63 6f 6e 73 75 6d 65 64 2e 0a 20  ages consumed.. 
4000: 20 23 20 74 6f 74 61 6c 5f 70 61 67 65 73 5f 70   # total_pages_p
4010: 65 72 63 65 6e 74 3a 20 50 61 67 65 73 20 63 6f  ercent: Pages co
4020: 6e 73 75 6d 65 64 20 61 73 20 61 20 70 65 72 63  nsumed as a perc
4030: 65 6e 74 61 67 65 20 6f 66 20 74 68 65 20 66 69  entage of the fi
4040: 6c 65 2e 0a 20 20 23 20 73 74 6f 72 61 67 65 3a  le..  # storage:
4050: 20 42 79 74 65 73 20 63 6f 6e 73 75 6d 65 64 2e   Bytes consumed.
4060: 0a 20 20 23 20 70 61 79 6c 6f 61 64 5f 70 65 72  .  # payload_per
4070: 63 65 6e 74 3a 20 50 61 79 6c 6f 61 64 20 62 79  cent: Payload by
4080: 74 65 73 20 75 73 65 64 20 61 73 20 61 20 70 65  tes used as a pe
4090: 72 63 65 6e 74 61 67 65 20 6f 66 20 24 73 74 6f  rcentage of $sto
40a0: 72 61 67 65 2e 0a 20 20 23 20 74 6f 74 61 6c 5f  rage..  # total_
40b0: 75 6e 75 73 65 64 3a 20 55 6e 75 73 65 64 20 62  unused: Unused b
40c0: 79 74 65 73 20 6f 6e 20 70 61 67 65 73 2e 0a 20  ytes on pages.. 
40d0: 20 23 20 61 76 67 5f 70 61 79 6c 6f 61 64 3a 20   # avg_payload: 
40e0: 41 76 65 72 61 67 65 20 70 61 79 6c 6f 61 64 20  Average payload 
40f0: 70 65 72 20 62 74 72 65 65 20 65 6e 74 72 79 2e  per btree entry.
4100: 0a 20 20 23 20 61 76 67 5f 66 61 6e 6f 75 74 3a  .  # avg_fanout:
4110: 20 41 76 65 72 61 67 65 20 66 61 6e 6f 75 74 20   Average fanout 
4120: 66 6f 72 20 69 6e 74 65 72 6e 61 6c 20 70 61 67  for internal pag
4130: 65 73 2e 0a 20 20 23 20 61 76 67 5f 75 6e 75 73  es..  # avg_unus
4140: 65 64 3a 20 41 76 65 72 61 67 65 20 75 6e 75 73  ed: Average unus
4150: 65 64 20 62 79 74 65 73 20 70 65 72 20 62 74 72  ed bytes per btr
4160: 65 65 20 65 6e 74 72 79 2e 0a 20 20 23 20 6f 76  ee entry..  # ov
4170: 66 6c 5f 63 6e 74 5f 70 65 72 63 65 6e 74 3a 20  fl_cnt_percent: 
4180: 50 65 72 63 65 6e 74 61 67 65 20 6f 66 20 62 74  Percentage of bt
4190: 72 65 65 20 65 6e 74 72 69 65 73 20 74 68 61 74  ree entries that
41a0: 20 75 73 65 20 6f 76 65 72 66 6c 6f 77 20 70 61   use overflow pa
41b0: 67 65 73 2e 0a 20 20 23 0a 20 20 73 65 74 20 74  ges..  #.  set t
41c0: 6f 74 61 6c 5f 70 61 67 65 73 20 5b 65 78 70 72  otal_pages [expr
41d0: 20 7b 24 6c 65 61 66 5f 70 61 67 65 73 2b 24 69   {$leaf_pages+$i
41e0: 6e 74 5f 70 61 67 65 73 2b 24 6f 76 66 6c 5f 70  nt_pages+$ovfl_p
41f0: 61 67 65 73 7d 5d 0a 20 20 73 65 74 20 74 6f 74  ages}].  set tot
4200: 61 6c 5f 70 61 67 65 73 5f 70 65 72 63 65 6e 74  al_pages_percent
4210: 20 5b 70 65 72 63 65 6e 74 20 24 74 6f 74 61 6c   [percent $total
4220: 5f 70 61 67 65 73 20 24 66 69 6c 65 5f 70 67 63  _pages $file_pgc
4230: 6e 74 5d 0a 20 20 73 65 74 20 73 74 6f 72 61 67  nt].  set storag
4240: 65 20 5b 65 78 70 72 20 7b 24 74 6f 74 61 6c 5f  e [expr {$total_
4250: 70 61 67 65 73 2a 24 70 61 67 65 53 69 7a 65 7d  pages*$pageSize}
4260: 5d 0a 20 20 73 65 74 20 70 61 79 6c 6f 61 64 5f  ].  set payload_
4270: 70 65 72 63 65 6e 74 20 5b 70 65 72 63 65 6e 74  percent [percent
4280: 20 24 70 61 79 6c 6f 61 64 20 24 73 74 6f 72 61   $payload $stora
4290: 67 65 20 7b 6f 66 20 73 74 6f 72 61 67 65 20 63  ge {of storage c
42a0: 6f 6e 73 75 6d 65 64 7d 5d 0a 20 20 73 65 74 20  onsumed}].  set 
42b0: 74 6f 74 61 6c 5f 75 6e 75 73 65 64 20 5b 65 78  total_unused [ex
42c0: 70 72 20 7b 24 6f 76 66 6c 5f 75 6e 75 73 65 64  pr {$ovfl_unused
42d0: 2b 24 69 6e 74 5f 75 6e 75 73 65 64 2b 24 6c 65  +$int_unused+$le
42e0: 61 66 5f 75 6e 75 73 65 64 7d 5d 0a 20 20 73 65  af_unused}].  se
42f0: 74 20 61 76 67 5f 70 61 79 6c 6f 61 64 20 5b 64  t avg_payload [d
4300: 69 76 69 64 65 20 24 70 61 79 6c 6f 61 64 20 24  ivide $payload $
4310: 6e 6c 65 61 66 5d 0a 20 20 73 65 74 20 61 76 67  nleaf].  set avg
4320: 5f 75 6e 75 73 65 64 20 5b 64 69 76 69 64 65 20  _unused [divide 
4330: 24 74 6f 74 61 6c 5f 75 6e 75 73 65 64 20 24 6e  $total_unused $n
4340: 6c 65 61 66 5d 0a 20 20 73 65 74 20 66 72 61 67  leaf].  set frag
4350: 6d 65 6e 74 61 74 69 6f 6e 20 5b 70 65 72 63 65  mentation [perce
4360: 6e 74 20 24 67 61 70 5f 63 6e 74 20 24 74 6f 74  nt $gap_cnt $tot
4370: 61 6c 5f 70 61 67 65 73 20 7b 66 72 61 67 6d 65  al_pages {fragme
4380: 6e 74 61 74 69 6f 6e 7d 5d 0a 20 20 69 66 20 7b  ntation}].  if {
4390: 24 69 6e 74 5f 70 61 67 65 73 3e 30 7d 20 7b 0a  $int_pages>0} {.
43a0: 20 20 20 20 23 20 54 4f 44 4f 3a 20 49 73 20 74      # TODO: Is t
43b0: 68 69 73 20 66 6f 72 6d 75 6c 61 20 63 6f 72 72  his formula corr
43c0: 65 63 74 3f 0a 20 20 20 20 73 65 74 20 6e 54 61  ect?.    set nTa
43d0: 62 20 5b 6d 65 6d 20 65 76 61 6c 20 22 0a 20 20  b [mem eval ".  
43e0: 20 20 20 20 53 45 4c 45 43 54 20 63 6f 75 6e 74      SELECT count
43f0: 28 2a 29 20 46 52 4f 4d 20 28 0a 20 20 20 20 20  (*) FROM (.     
4400: 20 20 20 20 20 53 45 4c 45 43 54 20 44 49 53 54       SELECT DIST
4410: 49 4e 43 54 20 74 62 6c 6e 61 6d 65 20 46 52 4f  INCT tblname FRO
4420: 4d 20 73 70 61 63 65 5f 75 73 65 64 20 57 48 45  M space_used WHE
4430: 52 45 20 24 77 68 65 72 65 20 41 4e 44 20 69 73  RE $where AND is
4440: 5f 69 6e 64 65 78 3d 30 0a 20 20 20 20 20 20 29  _index=0.      )
4450: 0a 20 20 20 20 22 5d 0a 20 20 20 20 73 65 74 20  .    "].    set 
4460: 61 76 67 5f 66 61 6e 6f 75 74 20 5b 6d 65 6d 20  avg_fanout [mem 
4470: 65 76 61 6c 20 22 0a 20 20 20 20 20 20 53 45 4c  eval ".      SEL
4480: 45 43 54 20 28 73 75 6d 28 6c 65 61 66 5f 70 61  ECT (sum(leaf_pa
4490: 67 65 73 2b 69 6e 74 5f 70 61 67 65 73 29 2d 24  ges+int_pages)-$
44a0: 6e 54 61 62 29 2f 73 75 6d 28 69 6e 74 5f 70 61  nTab)/sum(int_pa
44b0: 67 65 73 29 20 46 52 4f 4d 20 73 70 61 63 65 5f  ges) FROM space_
44c0: 75 73 65 64 0a 20 20 20 20 20 20 20 20 20 20 57  used.          W
44d0: 48 45 52 45 20 24 77 68 65 72 65 20 41 4e 44 20  HERE $where AND 
44e0: 69 73 5f 69 6e 64 65 78 20 3d 20 30 0a 20 20 20  is_index = 0.   
44f0: 20 22 5d 0a 20 20 20 20 73 65 74 20 61 76 67 5f   "].    set avg_
4500: 66 61 6e 6f 75 74 20 5b 66 6f 72 6d 61 74 20 25  fanout [format %
4510: 2e 32 66 20 24 61 76 67 5f 66 61 6e 6f 75 74 5d  .2f $avg_fanout]
4520: 0a 20 20 7d 0a 20 20 73 65 74 20 6f 76 66 6c 5f  .  }.  set ovfl_
4530: 63 6e 74 5f 70 65 72 63 65 6e 74 20 5b 70 65 72  cnt_percent [per
4540: 63 65 6e 74 20 24 6f 76 66 6c 5f 63 6e 74 20 24  cent $ovfl_cnt $
4550: 6e 6c 65 61 66 20 7b 6f 66 20 61 6c 6c 20 65 6e  nleaf {of all en
4560: 74 72 69 65 73 7d 5d 0a 0a 20 20 23 20 50 72 69  tries}]..  # Pri
4570: 6e 74 20 6f 75 74 20 74 68 65 20 73 75 62 2d 72  nt out the sub-r
4580: 65 70 6f 72 74 20 73 74 61 74 69 73 74 69 63 73  eport statistics
4590: 2e 0a 20 20 23 0a 20 20 73 74 61 74 6c 69 6e 65  ..  #.  statline
45a0: 20 7b 50 65 72 63 65 6e 74 61 67 65 20 6f 66 20   {Percentage of 
45b0: 74 6f 74 61 6c 20 64 61 74 61 62 61 73 65 7d 20  total database} 
45c0: 24 74 6f 74 61 6c 5f 70 61 67 65 73 5f 70 65 72  $total_pages_per
45d0: 63 65 6e 74 0a 20 20 73 74 61 74 6c 69 6e 65 20  cent.  statline 
45e0: 7b 4e 75 6d 62 65 72 20 6f 66 20 65 6e 74 72 69  {Number of entri
45f0: 65 73 7d 20 24 6e 6c 65 61 66 0a 20 20 73 74 61  es} $nleaf.  sta
4600: 74 6c 69 6e 65 20 7b 42 79 74 65 73 20 6f 66 20  tline {Bytes of 
4610: 73 74 6f 72 61 67 65 20 63 6f 6e 73 75 6d 65 64  storage consumed
4620: 7d 20 24 73 74 6f 72 61 67 65 0a 20 20 73 74 61  } $storage.  sta
4630: 74 6c 69 6e 65 20 7b 42 79 74 65 73 20 6f 66 20  tline {Bytes of 
4640: 70 61 79 6c 6f 61 64 7d 20 24 70 61 79 6c 6f 61  payload} $payloa
4650: 64 20 24 70 61 79 6c 6f 61 64 5f 70 65 72 63 65  d $payload_perce
4660: 6e 74 0a 20 20 73 74 61 74 6c 69 6e 65 20 7b 41  nt.  statline {A
4670: 76 65 72 61 67 65 20 70 61 79 6c 6f 61 64 20 70  verage payload p
4680: 65 72 20 65 6e 74 72 79 7d 20 24 61 76 67 5f 70  er entry} $avg_p
4690: 61 79 6c 6f 61 64 0a 20 20 73 74 61 74 6c 69 6e  ayload.  statlin
46a0: 65 20 7b 41 76 65 72 61 67 65 20 75 6e 75 73 65  e {Average unuse
46b0: 64 20 62 79 74 65 73 20 70 65 72 20 65 6e 74 72  d bytes per entr
46c0: 79 7d 20 24 61 76 67 5f 75 6e 75 73 65 64 0a 20  y} $avg_unused. 
46d0: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
46e0: 73 20 61 76 67 5f 66 61 6e 6f 75 74 5d 7d 20 7b  s avg_fanout]} {
46f0: 0a 20 20 20 20 73 74 61 74 6c 69 6e 65 20 7b 41  .    statline {A
4700: 76 65 72 61 67 65 20 66 61 6e 6f 75 74 7d 20 24  verage fanout} $
4710: 61 76 67 5f 66 61 6e 6f 75 74 0a 20 20 7d 0a 20  avg_fanout.  }. 
4720: 20 69 66 20 7b 24 74 6f 74 61 6c 5f 70 61 67 65   if {$total_page
4730: 73 3e 31 7d 20 7b 0a 20 20 20 20 73 74 61 74 6c  s>1} {.    statl
4740: 69 6e 65 20 7b 46 72 61 67 6d 65 6e 74 61 74 69  ine {Fragmentati
4750: 6f 6e 7d 20 24 66 72 61 67 6d 65 6e 74 61 74 69  on} $fragmentati
4760: 6f 6e 0a 20 20 7d 0a 20 20 73 74 61 74 6c 69 6e  on.  }.  statlin
4770: 65 20 7b 4d 61 78 69 6d 75 6d 20 70 61 79 6c 6f  e {Maximum paylo
4780: 61 64 20 70 65 72 20 65 6e 74 72 79 7d 20 24 6d  ad per entry} $m
4790: 78 5f 70 61 79 6c 6f 61 64 0a 20 20 73 74 61 74  x_payload.  stat
47a0: 6c 69 6e 65 20 7b 45 6e 74 72 69 65 73 20 74 68  line {Entries th
47b0: 61 74 20 75 73 65 20 6f 76 65 72 66 6c 6f 77 7d  at use overflow}
47c0: 20 24 6f 76 66 6c 5f 63 6e 74 20 24 6f 76 66 6c   $ovfl_cnt $ovfl
47d0: 5f 63 6e 74 5f 70 65 72 63 65 6e 74 0a 20 20 69  _cnt_percent.  i
47e0: 66 20 7b 24 69 6e 74 5f 70 61 67 65 73 3e 30 7d  f {$int_pages>0}
47f0: 20 7b 0a 20 20 20 20 73 74 61 74 6c 69 6e 65 20   {.    statline 
4800: 7b 49 6e 64 65 78 20 70 61 67 65 73 20 75 73 65  {Index pages use
4810: 64 7d 20 24 69 6e 74 5f 70 61 67 65 73 0a 20 20  d} $int_pages.  
4820: 7d 0a 20 20 73 74 61 74 6c 69 6e 65 20 7b 50 72  }.  statline {Pr
4830: 69 6d 61 72 79 20 70 61 67 65 73 20 75 73 65 64  imary pages used
4840: 7d 20 24 6c 65 61 66 5f 70 61 67 65 73 0a 20 20  } $leaf_pages.  
4850: 73 74 61 74 6c 69 6e 65 20 7b 4f 76 65 72 66 6c  statline {Overfl
4860: 6f 77 20 70 61 67 65 73 20 75 73 65 64 7d 20 24  ow pages used} $
4870: 6f 76 66 6c 5f 70 61 67 65 73 0a 20 20 73 74 61  ovfl_pages.  sta
4880: 74 6c 69 6e 65 20 7b 54 6f 74 61 6c 20 70 61 67  tline {Total pag
4890: 65 73 20 75 73 65 64 7d 20 24 74 6f 74 61 6c 5f  es used} $total_
48a0: 70 61 67 65 73 0a 20 20 69 66 20 7b 24 69 6e 74  pages.  if {$int
48b0: 5f 75 6e 75 73 65 64 3e 30 7d 20 7b 0a 20 20 20  _unused>0} {.   
48c0: 20 73 65 74 20 69 6e 74 5f 75 6e 75 73 65 64 5f   set int_unused_
48d0: 70 65 72 63 65 6e 74 20 5c 0a 20 20 20 20 20 20  percent \.      
48e0: 20 20 20 5b 70 65 72 63 65 6e 74 20 24 69 6e 74     [percent $int
48f0: 5f 75 6e 75 73 65 64 20 5b 65 78 70 72 20 7b 24  _unused [expr {$
4900: 69 6e 74 5f 70 61 67 65 73 2a 24 70 61 67 65 53  int_pages*$pageS
4910: 69 7a 65 7d 5d 20 7b 6f 66 20 69 6e 64 65 78 20  ize}] {of index 
4920: 73 70 61 63 65 7d 5d 0a 20 20 20 20 73 74 61 74  space}].    stat
4930: 6c 69 6e 65 20 22 55 6e 75 73 65 64 20 62 79 74  line "Unused byt
4940: 65 73 20 6f 6e 20 69 6e 64 65 78 20 70 61 67 65  es on index page
4950: 73 22 20 24 69 6e 74 5f 75 6e 75 73 65 64 20 24  s" $int_unused $
4960: 69 6e 74 5f 75 6e 75 73 65 64 5f 70 65 72 63 65  int_unused_perce
4970: 6e 74 0a 20 20 7d 0a 20 20 73 74 61 74 6c 69 6e  nt.  }.  statlin
4980: 65 20 22 55 6e 75 73 65 64 20 62 79 74 65 73 20  e "Unused bytes 
4990: 6f 6e 20 70 72 69 6d 61 72 79 20 70 61 67 65 73  on primary pages
49a0: 22 20 24 6c 65 61 66 5f 75 6e 75 73 65 64 20 5c  " $leaf_unused \
49b0: 0a 20 20 20 20 20 5b 70 65 72 63 65 6e 74 20 24  .     [percent $
49c0: 6c 65 61 66 5f 75 6e 75 73 65 64 20 5b 65 78 70  leaf_unused [exp
49d0: 72 20 7b 24 6c 65 61 66 5f 70 61 67 65 73 2a 24  r {$leaf_pages*$
49e0: 70 61 67 65 53 69 7a 65 7d 5d 20 7b 6f 66 20 70  pageSize}] {of p
49f0: 72 69 6d 61 72 79 20 73 70 61 63 65 7d 5d 0a 20  rimary space}]. 
4a00: 20 73 74 61 74 6c 69 6e 65 20 22 55 6e 75 73 65   statline "Unuse
4a10: 64 20 62 79 74 65 73 20 6f 6e 20 6f 76 65 72 66  d bytes on overf
4a20: 6c 6f 77 20 70 61 67 65 73 22 20 24 6f 76 66 6c  low pages" $ovfl
4a30: 5f 75 6e 75 73 65 64 20 5c 0a 20 20 20 20 20 5b  _unused \.     [
4a40: 70 65 72 63 65 6e 74 20 24 6f 76 66 6c 5f 75 6e  percent $ovfl_un
4a50: 75 73 65 64 20 5b 65 78 70 72 20 7b 24 6f 76 66  used [expr {$ovf
4a60: 6c 5f 70 61 67 65 73 2a 24 70 61 67 65 53 69 7a  l_pages*$pageSiz
4a70: 65 7d 5d 20 7b 6f 66 20 6f 76 65 72 66 6c 6f 77  e}] {of overflow
4a80: 20 73 70 61 63 65 7d 5d 0a 20 20 73 74 61 74 6c   space}].  statl
4a90: 69 6e 65 20 22 55 6e 75 73 65 64 20 62 79 74 65  ine "Unused byte
4aa0: 73 20 6f 6e 20 61 6c 6c 20 70 61 67 65 73 22 20  s on all pages" 
4ab0: 24 74 6f 74 61 6c 5f 75 6e 75 73 65 64 20 5c 0a  $total_unused \.
4ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b                 [
4ad0: 70 65 72 63 65 6e 74 20 24 74 6f 74 61 6c 5f 75  percent $total_u
4ae0: 6e 75 73 65 64 20 24 73 74 6f 72 61 67 65 20 7b  nused $storage {
4af0: 6f 66 20 61 6c 6c 20 73 70 61 63 65 7d 5d 0a 20  of all space}]. 
4b00: 20 72 65 74 75 72 6e 20 31 0a 7d 0a 0a 23 20 43   return 1.}..# C
4b10: 61 6c 63 75 6c 61 74 65 20 74 68 65 20 6f 76 65  alculate the ove
4b20: 72 68 65 61 64 20 69 6e 20 70 61 67 65 73 20 63  rhead in pages c
4b30: 61 75 73 65 64 20 62 79 20 61 75 74 6f 2d 76 61  aused by auto-va
4b40: 63 75 75 6d 2e 20 0a 23 0a 23 20 54 68 69 73 20  cuum. .#.# This 
4b50: 70 72 6f 63 65 64 75 72 65 20 63 61 6c 63 75 6c  procedure calcul
4b60: 61 74 65 73 20 61 6e 64 20 72 65 74 75 72 6e 73  ates and returns
4b70: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 70   the number of p
4b80: 61 67 65 73 20 75 73 65 64 20 62 79 20 74 68 65  ages used by the
4b90: 20 0a 23 20 61 75 74 6f 2d 76 61 63 75 75 6d 20   .# auto-vacuum 
4ba0: 27 70 6f 69 6e 74 65 72 2d 6d 61 70 27 2e 20 49  'pointer-map'. I
4bb0: 66 20 74 68 65 20 64 61 74 61 62 61 73 65 20 64  f the database d
4bc0: 6f 65 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 20  oes not support 
4bd0: 61 75 74 6f 2d 76 61 63 75 75 6d 2c 0a 23 20 74  auto-vacuum,.# t
4be0: 68 65 6e 20 30 20 69 73 20 72 65 74 75 72 6e 65  hen 0 is returne
4bf0: 64 2e 20 54 68 65 20 74 77 6f 20 61 72 67 75 6d  d. The two argum
4c00: 65 6e 74 73 20 61 72 65 20 74 68 65 20 73 69 7a  ents are the siz
4c10: 65 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73  e of the databas
4c20: 65 20 66 69 6c 65 20 69 6e 0a 23 20 70 61 67 65  e file in.# page
4c30: 73 20 61 6e 64 20 74 68 65 20 70 61 67 65 20 73  s and the page s
4c40: 69 7a 65 20 75 73 65 64 20 62 79 20 74 68 65 20  ize used by the 
4c50: 64 61 74 61 62 61 73 65 20 28 69 6e 20 62 79 74  database (in byt
4c60: 65 73 29 2e 0a 70 72 6f 63 20 61 75 74 6f 76 61  es)..proc autova
4c70: 63 75 75 6d 5f 6f 76 65 72 68 65 61 64 20 7b 66  cuum_overhead {f
4c80: 69 6c 65 50 61 67 65 73 20 70 61 67 65 53 69 7a  ilePages pageSiz
4c90: 65 7d 20 7b 0a 0a 20 20 23 20 52 65 61 64 20 74  e} {..  # Read t
4ca0: 68 65 20 76 61 6c 75 65 20 6f 66 20 6d 65 74 61  he value of meta
4cb0: 20 34 2e 20 49 66 20 6e 6f 6e 2d 7a 65 72 6f 2c   4. If non-zero,
4cc0: 20 74 68 65 6e 20 74 68 65 20 64 61 74 61 62 61   then the databa
4cd0: 73 65 20 73 75 70 70 6f 72 74 73 0a 20 20 23 20  se supports.  # 
4ce0: 61 75 74 6f 2d 76 61 63 75 75 6d 2e 20 49 74 20  auto-vacuum. It 
4cf0: 77 6f 75 6c 64 20 62 65 20 70 6f 73 73 69 62 6c  would be possibl
4d00: 65 20 74 6f 20 75 73 65 20 22 50 52 41 47 4d 41  e to use "PRAGMA
4d10: 20 61 75 74 6f 5f 76 61 63 75 75 6d 22 20 69 6e   auto_vacuum" in
4d20: 73 74 65 61 64 2c 0a 20 20 23 20 62 75 74 20 74  stead,.  # but t
4d30: 68 61 74 20 77 6f 75 6c 64 20 6e 6f 74 20 77 6f  hat would not wo
4d40: 72 6b 20 69 66 20 74 68 65 20 53 51 4c 49 54 45  rk if the SQLITE
4d50: 5f 4f 4d 49 54 5f 50 52 41 47 4d 41 20 6d 61 63  _OMIT_PRAGMA mac
4d60: 72 6f 20 77 61 73 20 64 65 66 69 6e 65 64 0a 20  ro was defined. 
4d70: 20 23 20 77 68 65 6e 20 74 68 65 20 6c 69 62 72   # when the libr
4d80: 61 72 79 20 77 61 73 20 62 75 69 6c 74 2e 0a 20  ary was built.. 
4d90: 20 73 65 74 20 6d 65 74 61 34 20 5b 6c 69 6e 64   set meta4 [lind
4da0: 65 78 20 5b 62 74 72 65 65 5f 67 65 74 5f 6d 65  ex [btree_get_me
4db0: 74 61 20 24 3a 3a 44 42 5d 20 34 5d 0a 0a 20 20  ta $::DB] 4]..  
4dc0: 23 20 49 66 20 74 68 65 20 64 61 74 61 62 61 73  # If the databas
4dd0: 65 20 69 73 20 6e 6f 74 20 61 6e 20 61 75 74 6f  e is not an auto
4de0: 2d 76 61 63 75 75 6d 20 64 61 74 61 62 61 73 65  -vacuum database
4df0: 20 6f 72 20 74 68 65 20 66 69 6c 65 20 63 6f 6e   or the file con
4e00: 73 69 73 74 73 0a 20 20 23 20 6f 66 20 6f 6e 65  sists.  # of one
4e10: 20 70 61 67 65 20 6f 6e 6c 79 20 74 68 65 6e 20   page only then 
4e20: 74 68 65 72 65 20 69 73 20 6e 6f 20 6f 76 65 72  there is no over
4e30: 68 65 61 64 20 66 6f 72 20 61 75 74 6f 2d 76 61  head for auto-va
4e40: 63 75 75 6d 2e 20 52 65 74 75 72 6e 20 7a 65 72  cuum. Return zer
4e50: 6f 2e 0a 20 20 69 66 20 7b 30 3d 3d 24 6d 65 74  o..  if {0==$met
4e60: 61 34 20 7c 7c 20 24 66 69 6c 65 50 61 67 65 73  a4 || $filePages
4e70: 3d 3d 31 7d 20 7b 0a 20 20 20 20 72 65 74 75 72  ==1} {.    retur
4e80: 6e 20 30 0a 20 20 7d 0a 0a 20 20 23 20 54 68 65  n 0.  }..  # The
4e90: 20 6e 75 6d 62 65 72 20 6f 66 20 65 6e 74 72 69   number of entri
4ea0: 65 73 20 6f 6e 20 65 61 63 68 20 70 6f 69 6e 74  es on each point
4eb0: 65 72 20 6d 61 70 20 70 61 67 65 2e 20 54 68 65  er map page. The
4ec0: 20 6c 61 79 6f 75 74 20 6f 66 20 74 68 65 0a 20   layout of the. 
4ed0: 20 23 20 64 61 74 61 62 61 73 65 20 66 69 6c 65   # database file
4ee0: 20 69 73 20 6f 6e 65 20 70 6f 69 6e 74 65 72 2d   is one pointer-
4ef0: 6d 61 70 20 70 61 67 65 2c 20 66 6f 6c 6c 6f 77  map page, follow
4f00: 65 64 20 62 79 20 24 70 74 72 73 50 65 72 50 61  ed by $ptrsPerPa
4f10: 67 65 20 6f 74 68 65 72 0a 20 20 23 20 70 61 67  ge other.  # pag
4f20: 65 73 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20  es, followed by 
4f30: 61 20 70 6f 69 6e 74 65 72 2d 6d 61 70 20 70 61  a pointer-map pa
4f40: 67 65 20 65 74 63 2e 20 54 68 65 20 66 69 72 73  ge etc. The firs
4f50: 74 20 70 6f 69 6e 74 65 72 2d 6d 61 70 20 70 61  t pointer-map pa
4f60: 67 65 0a 20 20 23 20 69 73 20 74 68 65 20 73 65  ge.  # is the se
4f70: 63 6f 6e 64 20 70 61 67 65 20 6f 66 20 74 68 65  cond page of the
4f80: 20 66 69 6c 65 20 6f 76 65 72 61 6c 6c 2e 0a 20   file overall.. 
4f90: 20 73 65 74 20 70 74 72 73 50 65 72 50 61 67 65   set ptrsPerPage
4fa0: 20 5b 65 78 70 72 20 64 6f 75 62 6c 65 28 24 70   [expr double($p
4fb0: 61 67 65 53 69 7a 65 2f 35 29 5d 0a 0a 20 20 23  ageSize/5)]..  #
4fc0: 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62   Return the numb
4fd0: 65 72 20 6f 66 20 70 6f 69 6e 74 65 72 20 6d 61  er of pointer ma
4fe0: 70 20 70 61 67 65 73 20 69 6e 20 74 68 65 20 64  p pages in the d
4ff0: 61 74 61 62 61 73 65 2e 0a 20 20 72 65 74 75 72  atabase..  retur
5000: 6e 20 5b 65 78 70 72 20 69 6e 74 28 63 65 69 6c  n [expr int(ceil
5010: 28 20 28 24 66 69 6c 65 50 61 67 65 73 2d 31 2e  ( ($filePages-1.
5020: 30 29 2f 28 24 70 74 72 73 50 65 72 50 61 67 65  0)/($ptrsPerPage
5030: 2b 31 2e 30 29 20 29 29 5d 0a 7d 0a 0a 0a 23 20  +1.0) ))].}...# 
5040: 43 61 6c 63 75 6c 61 74 65 20 74 68 65 20 73 75  Calculate the su
5050: 6d 6d 61 72 79 20 73 74 61 74 69 73 74 69 63 73  mmary statistics
5060: 20 66 6f 72 20 74 68 65 20 64 61 74 61 62 61 73   for the databas
5070: 65 20 61 6e 64 20 73 74 6f 72 65 20 74 68 65 20  e and store the 
5080: 72 65 73 75 6c 74 73 0a 23 20 69 6e 20 54 43 4c  results.# in TCL
5090: 20 76 61 72 69 61 62 6c 65 73 2e 20 54 68 65 79   variables. They
50a0: 20 61 72 65 20 6f 75 74 70 75 74 20 62 65 6c 6f   are output belo
50b0: 77 2e 20 56 61 72 69 61 62 6c 65 73 20 61 72 65  w. Variables are
50c0: 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 23 0a 23   as follows:.#.#
50d0: 20 70 61 67 65 53 69 7a 65 3a 20 20 20 20 20 20   pageSize:      
50e0: 53 69 7a 65 20 6f 66 20 65 61 63 68 20 70 61 67  Size of each pag
50f0: 65 20 69 6e 20 62 79 74 65 73 2e 0a 23 20 66 69  e in bytes..# fi
5100: 6c 65 5f 62 79 74 65 73 3a 20 20 20 20 46 69 6c  le_bytes:    Fil
5110: 65 20 73 69 7a 65 20 69 6e 20 62 79 74 65 73 2e  e size in bytes.
5120: 0a 23 20 66 69 6c 65 5f 70 67 63 6e 74 3a 20 20  .# file_pgcnt:  
5130: 20 20 4e 75 6d 62 65 72 20 6f 66 20 70 61 67 65    Number of page
5140: 73 20 69 6e 20 74 68 65 20 66 69 6c 65 2e 0a 23  s in the file..#
5150: 20 66 69 6c 65 5f 70 67 63 6e 74 32 3a 20 20 20   file_pgcnt2:   
5160: 4e 75 6d 62 65 72 20 6f 66 20 70 61 67 65 73 20  Number of pages 
5170: 69 6e 20 74 68 65 20 66 69 6c 65 20 28 63 61 6c  in the file (cal
5180: 63 75 6c 61 74 65 64 29 2e 0a 23 20 61 76 5f 70  culated)..# av_p
5190: 67 63 6e 74 3a 20 20 20 20 20 20 50 61 67 65 73  gcnt:      Pages
51a0: 20 63 6f 6e 73 75 6d 65 64 20 62 79 20 74 68 65   consumed by the
51b0: 20 61 75 74 6f 2d 76 61 63 75 75 6d 20 70 6f 69   auto-vacuum poi
51c0: 6e 74 65 72 2d 6d 61 70 2e 0a 23 20 61 76 5f 70  nter-map..# av_p
51d0: 65 72 63 65 6e 74 3a 20 20 20 20 50 65 72 63 65  ercent:    Perce
51e0: 6e 74 61 67 65 20 6f 66 20 74 68 65 20 66 69 6c  ntage of the fil
51f0: 65 20 63 6f 6e 73 75 6d 65 64 20 62 79 20 61 75  e consumed by au
5200: 74 6f 2d 76 61 63 75 75 6d 20 70 6f 69 6e 74 65  to-vacuum pointe
5210: 72 2d 6d 61 70 2e 0a 23 20 69 6e 75 73 65 5f 70  r-map..# inuse_p
5220: 67 63 6e 74 3a 20 20 20 44 61 74 61 20 70 61 67  gcnt:   Data pag
5230: 65 73 20 69 6e 20 74 68 65 20 66 69 6c 65 2e 0a  es in the file..
5240: 23 20 69 6e 75 73 65 5f 70 65 72 63 65 6e 74 3a  # inuse_percent:
5250: 20 50 65 72 63 65 6e 74 61 67 65 20 6f 66 20 70   Percentage of p
5260: 61 67 65 73 20 75 73 65 64 20 74 6f 20 73 74 6f  ages used to sto
5270: 72 65 20 64 61 74 61 2e 0a 23 20 66 72 65 65 5f  re data..# free_
5280: 70 67 63 6e 74 3a 20 20 20 20 46 72 65 65 20 70  pgcnt:    Free p
5290: 61 67 65 73 20 63 61 6c 63 75 6c 61 74 65 64 20  ages calculated 
52a0: 61 73 20 28 3c 74 6f 74 61 6c 20 70 61 67 65 73  as (<total pages
52b0: 3e 20 2d 20 3c 69 6e 2d 75 73 65 20 70 61 67 65  > - <in-use page
52c0: 73 3e 29 0a 23 20 66 72 65 65 5f 70 67 63 6e 74  s>).# free_pgcnt
52d0: 32 3a 20 20 20 46 72 65 65 20 70 61 67 65 73 20  2:   Free pages 
52e0: 69 6e 20 74 68 65 20 66 69 6c 65 20 61 63 63 6f  in the file acco
52f0: 72 64 69 6e 67 20 74 6f 20 74 68 65 20 66 69 6c  rding to the fil
5300: 65 20 68 65 61 64 65 72 2e 0a 23 20 66 72 65 65  e header..# free
5310: 5f 70 65 72 63 65 6e 74 3a 20 20 50 65 72 63 65  _percent:  Perce
5320: 6e 74 61 67 65 20 6f 66 20 66 69 6c 65 20 63 6f  ntage of file co
5330: 6e 73 75 6d 65 64 20 62 79 20 66 72 65 65 20 70  nsumed by free p
5340: 61 67 65 73 20 28 63 61 6c 63 75 6c 61 74 65 64  ages (calculated
5350: 29 2e 0a 23 20 66 72 65 65 5f 70 65 72 63 65 6e  )..# free_percen
5360: 74 32 3a 20 50 65 72 63 65 6e 74 61 67 65 20 6f  t2: Percentage o
5370: 66 20 66 69 6c 65 20 63 6f 6e 73 75 6d 65 64 20  f file consumed 
5380: 62 79 20 66 72 65 65 20 70 61 67 65 73 20 28 68  by free pages (h
5390: 65 61 64 65 72 29 2e 0a 23 20 6e 74 61 62 6c 65  eader)..# ntable
53a0: 3a 20 20 20 20 20 20 20 20 4e 75 6d 62 65 72 20  :        Number 
53b0: 6f 66 20 74 61 62 6c 65 73 20 69 6e 20 74 68 65  of tables in the
53c0: 20 64 62 2e 0a 23 20 6e 69 6e 64 65 78 3a 20 20   db..# nindex:  
53d0: 20 20 20 20 20 20 4e 75 6d 62 65 72 20 6f 66 20        Number of 
53e0: 69 6e 64 69 63 65 73 20 69 6e 20 74 68 65 20 64  indices in the d
53f0: 62 2e 0a 23 20 6e 61 75 74 6f 69 6e 64 65 78 3a  b..# nautoindex:
5400: 20 20 20 20 4e 75 6d 62 65 72 20 6f 66 20 69 6e      Number of in
5410: 64 69 63 65 73 20 63 72 65 61 74 65 64 20 61 75  dices created au
5420: 74 6f 6d 61 74 69 63 61 6c 6c 79 2e 0a 23 20 6e  tomatically..# n
5430: 6d 61 6e 69 6e 64 65 78 3a 20 20 20 20 20 4e 75  manindex:     Nu
5440: 6d 62 65 72 20 6f 66 20 69 6e 64 69 63 65 73 20  mber of indices 
5450: 63 72 65 61 74 65 64 20 6d 61 6e 75 61 6c 6c 79  created manually
5460: 2e 0a 23 20 75 73 65 72 5f 70 61 79 6c 6f 61 64  ..# user_payload
5470: 3a 20 20 4e 75 6d 62 65 72 20 6f 66 20 62 79 74  :  Number of byt
5480: 65 73 20 6f 66 20 70 61 79 6c 6f 61 64 20 69 6e  es of payload in
5490: 20 74 61 62 6c 65 20 62 74 72 65 65 73 20 0a 23   table btrees .#
54a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
54b0: 28 6e 6f 74 20 69 6e 63 6c 75 64 69 6e 67 20 73  (not including s
54c0: 71 6c 69 74 65 5f 6d 61 73 74 65 72 29 0a 23 20  qlite_master).# 
54d0: 75 73 65 72 5f 70 65 72 63 65 6e 74 3a 20 20 24  user_percent:  $
54e0: 75 73 65 72 5f 70 61 79 6c 6f 61 64 20 61 73 20  user_payload as 
54f0: 61 20 70 65 72 63 65 6e 74 61 67 65 20 6f 66 20  a percentage of 
5500: 74 6f 74 61 6c 20 66 69 6c 65 20 73 69 7a 65 2e  total file size.
5510: 0a 0a 73 65 74 20 66 69 6c 65 5f 62 79 74 65 73  ..set file_bytes
5520: 20 20 5b 66 69 6c 65 20 73 69 7a 65 20 24 66 69    [file size $fi
5530: 6c 65 5f 74 6f 5f 61 6e 61 6c 79 7a 65 5d 0a 73  le_to_analyze].s
5540: 65 74 20 66 69 6c 65 5f 70 67 63 6e 74 20 20 5b  et file_pgcnt  [
5550: 65 78 70 72 20 7b 24 66 69 6c 65 5f 62 79 74 65  expr {$file_byte
5560: 73 2f 24 70 61 67 65 53 69 7a 65 7d 5d 0a 0a 73  s/$pageSize}]..s
5570: 65 74 20 61 76 5f 70 67 63 6e 74 20 20 20 20 5b  et av_pgcnt    [
5580: 61 75 74 6f 76 61 63 75 75 6d 5f 6f 76 65 72 68  autovacuum_overh
5590: 65 61 64 20 24 66 69 6c 65 5f 70 67 63 6e 74 20  ead $file_pgcnt 
55a0: 24 70 61 67 65 53 69 7a 65 5d 0a 73 65 74 20 61  $pageSize].set a
55b0: 76 5f 70 65 72 63 65 6e 74 20 20 5b 70 65 72 63  v_percent  [perc
55c0: 65 6e 74 20 24 61 76 5f 70 67 63 6e 74 20 24 66  ent $av_pgcnt $f
55d0: 69 6c 65 5f 70 67 63 6e 74 5d 0a 0a 73 65 74 20  ile_pgcnt]..set 
55e0: 73 71 6c 20 7b 53 45 4c 45 43 54 20 73 75 6d 28  sql {SELECT sum(
55f0: 6c 65 61 66 5f 70 61 67 65 73 2b 69 6e 74 5f 70  leaf_pages+int_p
5600: 61 67 65 73 2b 6f 76 66 6c 5f 70 61 67 65 73 29  ages+ovfl_pages)
5610: 20 46 52 4f 4d 20 73 70 61 63 65 5f 75 73 65 64   FROM space_used
5620: 7d 0a 73 65 74 20 69 6e 75 73 65 5f 70 67 63 6e  }.set inuse_pgcn
5630: 74 20 20 20 5b 65 78 70 72 20 69 6e 74 28 5b 6d  t   [expr int([m
5640: 65 6d 20 65 76 61 6c 20 24 73 71 6c 5d 29 5d 0a  em eval $sql])].
5650: 73 65 74 20 69 6e 75 73 65 5f 70 65 72 63 65 6e  set inuse_percen
5660: 74 20 5b 70 65 72 63 65 6e 74 20 24 69 6e 75 73  t [percent $inus
5670: 65 5f 70 67 63 6e 74 20 24 66 69 6c 65 5f 70 67  e_pgcnt $file_pg
5680: 63 6e 74 5d 0a 0a 73 65 74 20 66 72 65 65 5f 70  cnt]..set free_p
5690: 67 63 6e 74 20 20 20 20 5b 65 78 70 72 20 24 66  gcnt    [expr $f
56a0: 69 6c 65 5f 70 67 63 6e 74 2d 24 69 6e 75 73 65  ile_pgcnt-$inuse
56b0: 5f 70 67 63 6e 74 2d 24 61 76 5f 70 67 63 6e 74  _pgcnt-$av_pgcnt
56c0: 5d 0a 73 65 74 20 66 72 65 65 5f 70 65 72 63 65  ].set free_perce
56d0: 6e 74 20 20 5b 70 65 72 63 65 6e 74 20 24 66 72  nt  [percent $fr
56e0: 65 65 5f 70 67 63 6e 74 20 24 66 69 6c 65 5f 70  ee_pgcnt $file_p
56f0: 67 63 6e 74 5d 0a 73 65 74 20 66 72 65 65 5f 70  gcnt].set free_p
5700: 67 63 6e 74 32 20 20 20 5b 6c 69 6e 64 65 78 20  gcnt2   [lindex 
5710: 5b 62 74 72 65 65 5f 67 65 74 5f 6d 65 74 61 20  [btree_get_meta 
5720: 24 44 42 5d 20 30 5d 0a 73 65 74 20 66 72 65 65  $DB] 0].set free
5730: 5f 70 65 72 63 65 6e 74 32 20 5b 70 65 72 63 65  _percent2 [perce
5740: 6e 74 20 24 66 72 65 65 5f 70 67 63 6e 74 32 20  nt $free_pgcnt2 
5750: 24 66 69 6c 65 5f 70 67 63 6e 74 5d 0a 0a 73 65  $file_pgcnt]..se
5760: 74 20 66 69 6c 65 5f 70 67 63 6e 74 32 20 5b 65  t file_pgcnt2 [e
5770: 78 70 72 20 7b 24 69 6e 75 73 65 5f 70 67 63 6e  xpr {$inuse_pgcn
5780: 74 2b 24 66 72 65 65 5f 70 67 63 6e 74 32 2b 24  t+$free_pgcnt2+$
5790: 61 76 5f 70 67 63 6e 74 7d 5d 0a 0a 73 65 74 20  av_pgcnt}]..set 
57a0: 6e 74 61 62 6c 65 20 5b 64 62 20 65 76 61 6c 20  ntable [db eval 
57b0: 7b 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29  {SELECT count(*)
57c0: 2b 31 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d  +1 FROM sqlite_m
57d0: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65  aster WHERE type
57e0: 3d 27 74 61 62 6c 65 27 7d 5d 0a 73 65 74 20 6e  ='table'}].set n
57f0: 69 6e 64 65 78 20 5b 64 62 20 65 76 61 6c 20 7b  index [db eval {
5800: 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29 20  SELECT count(*) 
5810: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
5820: 65 72 20 57 48 45 52 45 20 74 79 70 65 3d 27 69  er WHERE type='i
5830: 6e 64 65 78 27 7d 5d 0a 73 65 74 20 73 71 6c 20  ndex'}].set sql 
5840: 7b 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29  {SELECT count(*)
5850: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
5860: 74 65 72 20 57 48 45 52 45 20 6e 61 6d 65 20 4c  ter WHERE name L
5870: 49 4b 45 20 27 73 71 6c 69 74 65 5f 61 75 74 6f  IKE 'sqlite_auto
5880: 69 6e 64 65 78 25 27 7d 0a 73 65 74 20 6e 61 75  index%'}.set nau
5890: 74 6f 69 6e 64 65 78 20 5b 64 62 20 65 76 61 6c  toindex [db eval
58a0: 20 24 73 71 6c 5d 0a 73 65 74 20 6e 6d 61 6e 69   $sql].set nmani
58b0: 6e 64 65 78 20 5b 65 78 70 72 20 7b 24 6e 69 6e  ndex [expr {$nin
58c0: 64 65 78 2d 24 6e 61 75 74 6f 69 6e 64 65 78 7d  dex-$nautoindex}
58d0: 5d 0a 0a 23 20 73 65 74 20 74 6f 74 61 6c 5f 70  ]..# set total_p
58e0: 61 79 6c 6f 61 64 20 5b 6d 65 6d 20 65 76 61 6c  ayload [mem eval
58f0: 20 22 53 45 4c 45 43 54 20 73 75 6d 28 70 61 79   "SELECT sum(pay
5900: 6c 6f 61 64 29 20 46 52 4f 4d 20 73 70 61 63 65  load) FROM space
5910: 5f 75 73 65 64 22 5d 0a 73 65 74 20 75 73 65 72  _used"].set user
5920: 5f 70 61 79 6c 6f 61 64 20 5b 6d 65 6d 20 6f 6e  _payload [mem on
5930: 65 20 7b 53 45 4c 45 43 54 20 69 6e 74 28 73 75  e {SELECT int(su
5940: 6d 28 70 61 79 6c 6f 61 64 29 29 20 46 52 4f 4d  m(payload)) FROM
5950: 20 73 70 61 63 65 5f 75 73 65 64 0a 20 20 20 20   space_used.    
5960: 20 57 48 45 52 45 20 4e 4f 54 20 69 73 5f 69 6e   WHERE NOT is_in
5970: 64 65 78 20 41 4e 44 20 6e 61 6d 65 20 4e 4f 54  dex AND name NOT
5980: 20 4c 49 4b 45 20 27 73 71 6c 69 74 65 5f 6d 61   LIKE 'sqlite_ma
5990: 73 74 65 72 27 7d 5d 0a 73 65 74 20 75 73 65 72  ster'}].set user
59a0: 5f 70 65 72 63 65 6e 74 20 5b 70 65 72 63 65 6e  _percent [percen
59b0: 74 20 24 75 73 65 72 5f 70 61 79 6c 6f 61 64 20  t $user_payload 
59c0: 24 66 69 6c 65 5f 62 79 74 65 73 5d 0a 0a 23 20  $file_bytes]..# 
59d0: 4f 75 74 70 75 74 20 74 68 65 20 73 75 6d 6d 61  Output the summa
59e0: 72 79 20 73 74 61 74 69 73 74 69 63 73 20 63 61  ry statistics ca
59f0: 6c 63 75 6c 61 74 65 64 20 61 62 6f 76 65 2e 0a  lculated above..
5a00: 23 0a 70 75 74 73 20 22 2f 2a 2a 20 44 69 73 6b  #.puts "/** Disk
5a10: 2d 53 70 61 63 65 20 55 74 69 6c 69 7a 61 74 69  -Space Utilizati
5a20: 6f 6e 20 52 65 70 6f 72 74 20 46 6f 72 20 24 66  on Report For $f
5a30: 69 6c 65 5f 74 6f 5f 61 6e 61 6c 79 7a 65 22 0a  ile_to_analyze".
5a40: 63 61 74 63 68 20 7b 0a 20 20 70 75 74 73 20 22  catch {.  puts "
5a50: 2a 2a 2a 20 41 73 20 6f 66 20 5b 63 6c 6f 63 6b  *** As of [clock
5a60: 20 66 6f 72 6d 61 74 20 5b 63 6c 6f 63 6b 20 73   format [clock s
5a70: 65 63 6f 6e 64 73 5d 20 2d 66 6f 72 6d 61 74 20  econds] -format 
5a80: 7b 25 59 2d 25 62 2d 25 64 20 25 48 3a 25 4d 3a  {%Y-%b-%d %H:%M:
5a90: 25 53 7d 5d 22 0a 7d 0a 70 75 74 73 20 22 22 0a  %S}]".}.puts "".
5aa0: 73 74 61 74 6c 69 6e 65 20 7b 50 61 67 65 20 73  statline {Page s
5ab0: 69 7a 65 20 69 6e 20 62 79 74 65 73 7d 20 24 70  ize in bytes} $p
5ac0: 61 67 65 53 69 7a 65 0a 73 74 61 74 6c 69 6e 65  ageSize.statline
5ad0: 20 7b 50 61 67 65 73 20 69 6e 20 74 68 65 20 77   {Pages in the w
5ae0: 68 6f 6c 65 20 66 69 6c 65 20 28 6d 65 61 73 75  hole file (measu
5af0: 72 65 64 29 7d 20 24 66 69 6c 65 5f 70 67 63 6e  red)} $file_pgcn
5b00: 74 0a 73 74 61 74 6c 69 6e 65 20 7b 50 61 67 65  t.statline {Page
5b10: 73 20 69 6e 20 74 68 65 20 77 68 6f 6c 65 20 66  s in the whole f
5b20: 69 6c 65 20 28 63 61 6c 63 75 6c 61 74 65 64 29  ile (calculated)
5b30: 7d 20 24 66 69 6c 65 5f 70 67 63 6e 74 32 0a 73  } $file_pgcnt2.s
5b40: 74 61 74 6c 69 6e 65 20 7b 50 61 67 65 73 20 74  tatline {Pages t
5b50: 68 61 74 20 73 74 6f 72 65 20 64 61 74 61 7d 20  hat store data} 
5b60: 24 69 6e 75 73 65 5f 70 67 63 6e 74 20 24 69 6e  $inuse_pgcnt $in
5b70: 75 73 65 5f 70 65 72 63 65 6e 74 0a 73 74 61 74  use_percent.stat
5b80: 6c 69 6e 65 20 7b 50 61 67 65 73 20 6f 6e 20 74  line {Pages on t
5b90: 68 65 20 66 72 65 65 6c 69 73 74 20 28 70 65 72  he freelist (per
5ba0: 20 68 65 61 64 65 72 29 7d 20 24 66 72 65 65 5f   header)} $free_
5bb0: 70 67 63 6e 74 32 20 24 66 72 65 65 5f 70 65 72  pgcnt2 $free_per
5bc0: 63 65 6e 74 32 0a 73 74 61 74 6c 69 6e 65 20 7b  cent2.statline {
5bd0: 50 61 67 65 73 20 6f 6e 20 74 68 65 20 66 72 65  Pages on the fre
5be0: 65 6c 69 73 74 20 28 63 61 6c 63 75 6c 61 74 65  elist (calculate
5bf0: 64 29 7d 20 24 66 72 65 65 5f 70 67 63 6e 74 20  d)} $free_pgcnt 
5c00: 24 66 72 65 65 5f 70 65 72 63 65 6e 74 0a 73 74  $free_percent.st
5c10: 61 74 6c 69 6e 65 20 7b 50 61 67 65 73 20 6f 66  atline {Pages of
5c20: 20 61 75 74 6f 2d 76 61 63 75 75 6d 20 6f 76 65   auto-vacuum ove
5c30: 72 68 65 61 64 7d 20 24 61 76 5f 70 67 63 6e 74  rhead} $av_pgcnt
5c40: 20 24 61 76 5f 70 65 72 63 65 6e 74 0a 73 74 61   $av_percent.sta
5c50: 74 6c 69 6e 65 20 7b 4e 75 6d 62 65 72 20 6f 66  tline {Number of
5c60: 20 74 61 62 6c 65 73 20 69 6e 20 74 68 65 20 64   tables in the d
5c70: 61 74 61 62 61 73 65 7d 20 24 6e 74 61 62 6c 65  atabase} $ntable
5c80: 0a 73 74 61 74 6c 69 6e 65 20 7b 4e 75 6d 62 65  .statline {Numbe
5c90: 72 20 6f 66 20 69 6e 64 69 63 65 73 7d 20 24 6e  r of indices} $n
5ca0: 69 6e 64 65 78 0a 73 74 61 74 6c 69 6e 65 20 7b  index.statline {
5cb0: 4e 75 6d 62 65 72 20 6f 66 20 6e 61 6d 65 64 20  Number of named 
5cc0: 69 6e 64 69 63 65 73 7d 20 24 6e 6d 61 6e 69 6e  indices} $nmanin
5cd0: 64 65 78 0a 73 74 61 74 6c 69 6e 65 20 7b 41 75  dex.statline {Au
5ce0: 74 6f 6d 61 74 69 63 61 6c 6c 79 20 67 65 6e 65  tomatically gene
5cf0: 72 61 74 65 64 20 69 6e 64 69 63 65 73 7d 20 24  rated indices} $
5d00: 6e 61 75 74 6f 69 6e 64 65 78 0a 73 74 61 74 6c  nautoindex.statl
5d10: 69 6e 65 20 7b 53 69 7a 65 20 6f 66 20 74 68 65  ine {Size of the
5d20: 20 66 69 6c 65 20 69 6e 20 62 79 74 65 73 7d 20   file in bytes} 
5d30: 24 66 69 6c 65 5f 62 79 74 65 73 0a 73 74 61 74  $file_bytes.stat
5d40: 6c 69 6e 65 20 7b 42 79 74 65 73 20 6f 66 20 75  line {Bytes of u
5d50: 73 65 72 20 70 61 79 6c 6f 61 64 20 73 74 6f 72  ser payload stor
5d60: 65 64 7d 20 24 75 73 65 72 5f 70 61 79 6c 6f 61  ed} $user_payloa
5d70: 64 20 24 75 73 65 72 5f 70 65 72 63 65 6e 74 0a  d $user_percent.
5d80: 0a 23 20 4f 75 74 70 75 74 20 74 61 62 6c 65 20  .# Output table 
5d90: 72 61 6e 6b 69 6e 67 73 0a 23 0a 70 75 74 73 20  rankings.#.puts 
5da0: 22 22 0a 70 75 74 73 20 22 2a 2a 2a 20 50 61 67  "".puts "*** Pag
5db0: 65 20 63 6f 75 6e 74 73 20 66 6f 72 20 61 6c 6c  e counts for all
5dc0: 20 74 61 62 6c 65 73 20 77 69 74 68 20 74 68 65   tables with the
5dd0: 69 72 20 69 6e 64 69 63 65 73 20 2a 2a 2a 2a 2a  ir indices *****
5de0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22  ***************"
5df0: 0a 70 75 74 73 20 22 22 0a 6d 65 6d 20 65 76 61  .puts "".mem eva
5e00: 6c 20 7b 53 45 4c 45 43 54 20 74 62 6c 6e 61 6d  l {SELECT tblnam
5e10: 65 2c 20 63 6f 75 6e 74 28 2a 29 20 41 53 20 63  e, count(*) AS c
5e20: 6e 74 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20  nt, .           
5e30: 20 20 20 69 6e 74 28 73 75 6d 28 69 6e 74 5f 70     int(sum(int_p
5e40: 61 67 65 73 2b 6c 65 61 66 5f 70 61 67 65 73 2b  ages+leaf_pages+
5e50: 6f 76 66 6c 5f 70 61 67 65 73 29 29 20 41 53 20  ovfl_pages)) AS 
5e60: 73 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 46  size.          F
5e70: 52 4f 4d 20 73 70 61 63 65 5f 75 73 65 64 20 47  ROM space_used G
5e80: 52 4f 55 50 20 42 59 20 74 62 6c 6e 61 6d 65 20  ROUP BY tblname 
5e90: 4f 52 44 45 52 20 42 59 20 73 69 7a 65 2b 30 20  ORDER BY size+0 
5ea0: 44 45 53 43 2c 20 74 62 6c 6e 61 6d 65 7d 20 7b  DESC, tblname} {
5eb0: 7d 20 7b 0a 20 20 73 74 61 74 6c 69 6e 65 20 5b  } {.  statline [
5ec0: 73 74 72 69 6e 67 20 74 6f 75 70 70 65 72 20 24  string toupper $
5ed0: 74 62 6c 6e 61 6d 65 5d 20 24 73 69 7a 65 20 5b  tblname] $size [
5ee0: 70 65 72 63 65 6e 74 20 24 73 69 7a 65 20 24 66  percent $size $f
5ef0: 69 6c 65 5f 70 67 63 6e 74 5d 0a 7d 0a 0a 23 20  ile_pgcnt].}..# 
5f00: 4f 75 74 70 75 74 20 73 75 62 72 65 70 6f 72 74  Output subreport
5f10: 73 0a 23 0a 69 66 20 7b 24 6e 69 6e 64 65 78 3e  s.#.if {$nindex>
5f20: 30 7d 20 7b 0a 20 20 73 75 62 72 65 70 6f 72 74  0} {.  subreport
5f30: 20 7b 41 6c 6c 20 74 61 62 6c 65 73 20 61 6e 64   {All tables and
5f40: 20 69 6e 64 69 63 65 73 7d 20 31 0a 7d 0a 73 75   indices} 1.}.su
5f50: 62 72 65 70 6f 72 74 20 7b 41 6c 6c 20 74 61 62  breport {All tab
5f60: 6c 65 73 7d 20 7b 4e 4f 54 20 69 73 5f 69 6e 64  les} {NOT is_ind
5f70: 65 78 7d 0a 69 66 20 7b 24 6e 69 6e 64 65 78 3e  ex}.if {$nindex>
5f80: 30 7d 20 7b 0a 20 20 73 75 62 72 65 70 6f 72 74  0} {.  subreport
5f90: 20 7b 41 6c 6c 20 69 6e 64 69 63 65 73 7d 20 7b   {All indices} {
5fa0: 69 73 5f 69 6e 64 65 78 7d 0a 7d 0a 66 6f 72 65  is_index}.}.fore
5fb0: 61 63 68 20 74 62 6c 20 5b 6d 65 6d 20 65 76 61  ach tbl [mem eva
5fc0: 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l {SELECT name F
5fd0: 52 4f 4d 20 73 70 61 63 65 5f 75 73 65 64 20 57  ROM space_used W
5fe0: 48 45 52 45 20 4e 4f 54 20 69 73 5f 69 6e 64 65  HERE NOT is_inde
5ff0: 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  x.              
6000: 20 20 20 20 20 20 20 20 20 4f 52 44 45 52 20 42           ORDER B
6010: 59 20 6e 61 6d 65 7d 5d 20 7b 0a 20 20 72 65 67  Y name}] {.  reg
6020: 73 75 62 20 27 20 24 74 62 6c 20 27 27 20 71 6e  sub ' $tbl '' qn
6030: 0a 20 20 73 65 74 20 6e 61 6d 65 20 5b 73 74 72  .  set name [str
6040: 69 6e 67 20 74 6f 75 70 70 65 72 20 24 74 62 6c  ing toupper $tbl
6050: 5d 0a 20 20 73 65 74 20 6e 20 5b 6d 65 6d 20 65  ].  set n [mem e
6060: 76 61 6c 20 22 53 45 4c 45 43 54 20 63 6f 75 6e  val "SELECT coun
6070: 74 28 2a 29 20 46 52 4f 4d 20 73 70 61 63 65 5f  t(*) FROM space_
6080: 75 73 65 64 20 57 48 45 52 45 20 74 62 6c 6e 61  used WHERE tblna
6090: 6d 65 3d 27 24 71 6e 27 22 5d 0a 20 20 69 66 20  me='$qn'"].  if 
60a0: 7b 24 6e 3e 31 7d 20 7b 0a 20 20 20 20 73 75 62  {$n>1} {.    sub
60b0: 72 65 70 6f 72 74 20 22 54 61 62 6c 65 20 24 6e  report "Table $n
60c0: 61 6d 65 20 61 6e 64 20 61 6c 6c 20 69 74 73 20  ame and all its 
60d0: 69 6e 64 69 63 65 73 22 20 22 74 62 6c 6e 61 6d  indices" "tblnam
60e0: 65 3d 27 24 71 6e 27 22 0a 20 20 20 20 73 75 62  e='$qn'".    sub
60f0: 72 65 70 6f 72 74 20 22 54 61 62 6c 65 20 24 6e  report "Table $n
6100: 61 6d 65 20 77 2f 6f 20 61 6e 79 20 69 6e 64 69  ame w/o any indi
6110: 63 65 73 22 20 22 6e 61 6d 65 3d 27 24 71 6e 27  ces" "name='$qn'
6120: 22 0a 20 20 20 20 73 75 62 72 65 70 6f 72 74 20  ".    subreport 
6130: 22 49 6e 64 69 63 65 73 20 6f 66 20 74 61 62 6c  "Indices of tabl
6140: 65 20 24 6e 61 6d 65 22 20 22 74 62 6c 6e 61 6d  e $name" "tblnam
6150: 65 3d 27 24 71 6e 27 20 41 4e 44 20 69 73 5f 69  e='$qn' AND is_i
6160: 6e 64 65 78 22 0a 20 20 7d 20 65 6c 73 65 20 7b  ndex".  } else {
6170: 0a 20 20 20 20 73 75 62 72 65 70 6f 72 74 20 22  .    subreport "
6180: 54 61 62 6c 65 20 24 6e 61 6d 65 22 20 22 6e 61  Table $name" "na
6190: 6d 65 3d 27 24 71 6e 27 22 0a 20 20 7d 0a 7d 0a  me='$qn'".  }.}.
61a0: 0a 23 20 4f 75 74 70 75 74 20 69 6e 73 74 72 75  .# Output instru
61b0: 63 74 69 6f 6e 73 20 6f 6e 20 77 68 61 74 20 74  ctions on what t
61c0: 68 65 20 6e 75 6d 62 65 72 73 20 61 62 6f 76 65  he numbers above
61d0: 20 6d 65 61 6e 2e 0a 23 0a 70 75 74 73 20 7b 0a   mean..#.puts {.
61e0: 2a 2a 2a 20 44 65 66 69 6e 69 74 69 6f 6e 73 20  *** Definitions 
61f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6200: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6210: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6220: 2a 2a 2a 2a 2a 2a 0a 0a 50 61 67 65 20 73 69 7a  ******..Page siz
6230: 65 20 69 6e 20 62 79 74 65 73 0a 0a 20 20 20 20  e in bytes..    
6240: 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79  The number of by
6250: 74 65 73 20 69 6e 20 61 20 73 69 6e 67 6c 65 20  tes in a single 
6260: 70 61 67 65 20 6f 66 20 74 68 65 20 64 61 74 61  page of the data
6270: 62 61 73 65 20 66 69 6c 65 2e 20 20 0a 20 20 20  base file.  .   
6280: 20 55 73 75 61 6c 6c 79 20 31 30 32 34 2e 0a 0a   Usually 1024...
6290: 4e 75 6d 62 65 72 20 6f 66 20 70 61 67 65 73 20  Number of pages 
62a0: 69 6e 20 74 68 65 20 77 68 6f 6c 65 20 66 69 6c  in the whole fil
62b0: 65 0a 7d 0a 70 75 74 73 20 5c 0a 22 20 20 20 20  e.}.puts \."    
62c0: 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 24 70  The number of $p
62d0: 61 67 65 53 69 7a 65 2d 62 79 74 65 20 70 61 67  ageSize-byte pag
62e0: 65 73 20 74 68 61 74 20 67 6f 20 69 6e 74 6f 20  es that go into 
62f0: 66 6f 72 6d 69 6e 67 20 74 68 65 20 63 6f 6d 70  forming the comp
6300: 6c 65 74 65 0a 20 20 20 20 64 61 74 61 62 61 73  lete.    databas
6310: 65 22 0a 70 75 74 73 20 5c 0a 7b 0a 50 61 67 65  e".puts \.{.Page
6320: 73 20 74 68 61 74 20 73 74 6f 72 65 20 64 61 74  s that store dat
6330: 61 0a 0a 20 20 20 20 54 68 65 20 6e 75 6d 62 65  a..    The numbe
6340: 72 20 6f 66 20 70 61 67 65 73 20 74 68 61 74 20  r of pages that 
6350: 73 74 6f 72 65 20 64 61 74 61 2c 20 65 69 74 68  store data, eith
6360: 65 72 20 61 73 20 70 72 69 6d 61 72 79 20 42 2a  er as primary B*
6370: 54 72 65 65 20 70 61 67 65 73 20 6f 72 0a 20 20  Tree pages or.  
6380: 20 20 61 73 20 6f 76 65 72 66 6c 6f 77 20 70 61    as overflow pa
6390: 67 65 73 2e 20 20 54 68 65 20 6e 75 6d 62 65 72  ges.  The number
63a0: 20 61 74 20 74 68 65 20 72 69 67 68 74 20 69 73   at the right is
63b0: 20 74 68 65 20 64 61 74 61 20 70 61 67 65 73 20   the data pages 
63c0: 64 69 76 69 64 65 64 20 62 79 0a 20 20 20 20 74  divided by.    t
63d0: 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20  he total number 
63e0: 6f 66 20 70 61 67 65 73 20 69 6e 20 74 68 65 20  of pages in the 
63f0: 66 69 6c 65 2e 0a 0a 50 61 67 65 73 20 6f 6e 20  file...Pages on 
6400: 74 68 65 20 66 72 65 65 6c 69 73 74 0a 0a 20 20  the freelist..  
6410: 20 20 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20    The number of 
6420: 70 61 67 65 73 20 74 68 61 74 20 61 72 65 20 6e  pages that are n
6430: 6f 74 20 63 75 72 72 65 6e 74 6c 79 20 69 6e 20  ot currently in 
6440: 75 73 65 20 62 75 74 20 61 72 65 20 72 65 73 65  use but are rese
6450: 72 76 65 64 20 66 6f 72 0a 20 20 20 20 66 75 74  rved for.    fut
6460: 75 72 65 20 75 73 65 2e 20 20 54 68 65 20 70 65  ure use.  The pe
6470: 72 63 65 6e 74 61 67 65 20 61 74 20 74 68 65 20  rcentage at the 
6480: 72 69 67 68 74 20 69 73 20 74 68 65 20 6e 75 6d  right is the num
6490: 62 65 72 20 6f 66 20 66 72 65 65 6c 69 73 74 20  ber of freelist 
64a0: 70 61 67 65 73 0a 20 20 20 20 64 69 76 69 64 65  pages.    divide
64b0: 64 20 62 79 20 74 68 65 20 74 6f 74 61 6c 20 6e  d by the total n
64c0: 75 6d 62 65 72 20 6f 66 20 70 61 67 65 73 20 69  umber of pages i
64d0: 6e 20 74 68 65 20 66 69 6c 65 2e 0a 0a 50 61 67  n the file...Pag
64e0: 65 73 20 6f 66 20 61 75 74 6f 2d 76 61 63 75 75  es of auto-vacuu
64f0: 6d 20 6f 76 65 72 68 65 61 64 0a 0a 20 20 20 20  m overhead..    
6500: 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 61  The number of pa
6510: 67 65 73 20 74 68 61 74 20 73 74 6f 72 65 20 64  ges that store d
6520: 61 74 61 20 75 73 65 64 20 62 79 20 74 68 65 20  ata used by the 
6530: 64 61 74 61 62 61 73 65 20 74 6f 20 66 61 63 69  database to faci
6540: 6c 69 74 61 74 65 0a 20 20 20 20 61 75 74 6f 2d  litate.    auto-
6550: 76 61 63 75 75 6d 2e 20 54 68 69 73 20 69 73 20  vacuum. This is 
6560: 7a 65 72 6f 20 66 6f 72 20 64 61 74 61 62 61 73  zero for databas
6570: 65 73 20 74 68 61 74 20 64 6f 20 6e 6f 74 20 73  es that do not s
6580: 75 70 70 6f 72 74 20 61 75 74 6f 2d 76 61 63 75  upport auto-vacu
6590: 75 6d 2e 0a 0a 4e 75 6d 62 65 72 20 6f 66 20 74  um...Number of t
65a0: 61 62 6c 65 73 20 69 6e 20 74 68 65 20 64 61 74  ables in the dat
65b0: 61 62 61 73 65 0a 0a 20 20 20 20 54 68 65 20 6e  abase..    The n
65c0: 75 6d 62 65 72 20 6f 66 20 74 61 62 6c 65 73 20  umber of tables 
65d0: 69 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 2c  in the database,
65e0: 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20 53   including the S
65f0: 51 4c 49 54 45 5f 4d 41 53 54 45 52 20 74 61 62  QLITE_MASTER tab
6600: 6c 65 0a 20 20 20 20 75 73 65 64 20 74 6f 20 73  le.    used to s
6610: 74 6f 72 65 20 73 63 68 65 6d 61 20 69 6e 66 6f  tore schema info
6620: 72 6d 61 74 69 6f 6e 2e 0a 0a 4e 75 6d 62 65 72  rmation...Number
6630: 20 6f 66 20 69 6e 64 69 63 65 73 0a 0a 20 20 20   of indices..   
6640: 20 54 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 65   The total numbe
6650: 72 20 6f 66 20 69 6e 64 69 63 65 73 20 69 6e 20  r of indices in 
6660: 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a 0a 4e  the database...N
6670: 75 6d 62 65 72 20 6f 66 20 6e 61 6d 65 64 20 69  umber of named i
6680: 6e 64 69 63 65 73 0a 0a 20 20 20 20 54 68 65 20  ndices..    The 
6690: 6e 75 6d 62 65 72 20 6f 66 20 69 6e 64 69 63 65  number of indice
66a0: 73 20 63 72 65 61 74 65 64 20 75 73 69 6e 67 20  s created using 
66b0: 61 6e 20 65 78 70 6c 69 63 69 74 20 43 52 45 41  an explicit CREA
66c0: 54 45 20 49 4e 44 45 58 20 73 74 61 74 65 6d 65  TE INDEX stateme
66d0: 6e 74 2e 0a 0a 41 75 74 6f 6d 61 74 69 63 61 6c  nt...Automatical
66e0: 6c 79 20 67 65 6e 65 72 61 74 65 64 20 69 6e 64  ly generated ind
66f0: 69 63 65 73 0a 0a 20 20 20 20 54 68 65 20 6e 75  ices..    The nu
6700: 6d 62 65 72 20 6f 66 20 69 6e 64 69 63 65 73 20  mber of indices 
6710: 75 73 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e  used to implemen
6720: 74 20 50 52 49 4d 41 52 59 20 4b 45 59 20 6f 72  t PRIMARY KEY or
6730: 20 55 4e 49 51 55 45 20 63 6f 6e 73 74 72 61 69   UNIQUE constrai
6740: 6e 74 73 0a 20 20 20 20 6f 6e 20 74 61 62 6c 65  nts.    on table
6750: 73 2e 0a 0a 53 69 7a 65 20 6f 66 20 74 68 65 20  s...Size of the 
6760: 66 69 6c 65 20 69 6e 20 62 79 74 65 73 0a 0a 20  file in bytes.. 
6770: 20 20 20 54 68 65 20 74 6f 74 61 6c 20 61 6d 6f     The total amo
6780: 75 6e 74 20 6f 66 20 64 69 73 6b 20 73 70 61 63  unt of disk spac
6790: 65 20 75 73 65 64 20 62 79 20 74 68 65 20 65 6e  e used by the en
67a0: 74 69 72 65 20 64 61 74 61 62 61 73 65 20 66 69  tire database fi
67b0: 6c 65 73 2e 0a 0a 42 79 74 65 73 20 6f 66 20 75  les...Bytes of u
67c0: 73 65 72 20 70 61 79 6c 6f 61 64 20 73 74 6f 72  ser payload stor
67d0: 65 64 0a 0a 20 20 20 20 54 68 65 20 74 6f 74 61  ed..    The tota
67e0: 6c 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65  l number of byte
67f0: 73 20 6f 66 20 75 73 65 72 20 70 61 79 6c 6f 61  s of user payloa
6800: 64 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20  d stored in the 
6810: 64 61 74 61 62 61 73 65 2e 20 54 68 65 0a 20 20  database. The.  
6820: 20 20 73 63 68 65 6d 61 20 69 6e 66 6f 72 6d 61    schema informa
6830: 74 69 6f 6e 20 69 6e 20 74 68 65 20 53 51 4c 49  tion in the SQLI
6840: 54 45 5f 4d 41 53 54 45 52 20 74 61 62 6c 65 20  TE_MASTER table 
6850: 69 73 20 6e 6f 74 20 63 6f 75 6e 74 65 64 20 77  is not counted w
6860: 68 65 6e 0a 20 20 20 20 63 6f 6d 70 75 74 69 6e  hen.    computin
6870: 67 20 74 68 69 73 20 6e 75 6d 62 65 72 2e 20 20  g this number.  
6880: 54 68 65 20 70 65 72 63 65 6e 74 61 67 65 20 61  The percentage a
6890: 74 20 74 68 65 20 72 69 67 68 74 20 73 68 6f 77  t the right show
68a0: 73 20 74 68 65 20 70 61 79 6c 6f 61 64 0a 20 20  s the payload.  
68b0: 20 20 64 69 76 69 64 65 64 20 62 79 20 74 68 65    divided by the
68c0: 20 74 6f 74 61 6c 20 66 69 6c 65 20 73 69 7a 65   total file size
68d0: 2e 0a 0a 50 65 72 63 65 6e 74 61 67 65 20 6f 66  ...Percentage of
68e0: 20 74 6f 74 61 6c 20 64 61 74 61 62 61 73 65 0a   total database.
68f0: 0a 20 20 20 20 54 68 65 20 61 6d 6f 75 6e 74 20  .    The amount 
6900: 6f 66 20 74 68 65 20 63 6f 6d 70 6c 65 74 65 20  of the complete 
6910: 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 74 68  database file th
6920: 61 74 20 69 73 20 64 65 76 6f 74 65 64 20 74 6f  at is devoted to
6930: 20 73 74 6f 72 69 6e 67 0a 20 20 20 20 69 6e 66   storing.    inf
6940: 6f 72 6d 61 74 69 6f 6e 20 64 65 73 63 72 69 62  ormation describ
6950: 65 64 20 62 79 20 74 68 69 73 20 63 61 74 65 67  ed by this categ
6960: 6f 72 79 2e 0a 0a 4e 75 6d 62 65 72 20 6f 66 20  ory...Number of 
6970: 65 6e 74 72 69 65 73 0a 0a 20 20 20 20 54 68 65  entries..    The
6980: 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66   total number of
6990: 20 42 2d 54 72 65 65 20 6b 65 79 2f 76 61 6c 75   B-Tree key/valu
69a0: 65 20 70 61 69 72 73 20 73 74 6f 72 65 64 20 75  e pairs stored u
69b0: 6e 64 65 72 20 74 68 69 73 20 63 61 74 65 67 6f  nder this catego
69c0: 72 79 2e 0a 0a 42 79 74 65 73 20 6f 66 20 73 74  ry...Bytes of st
69d0: 6f 72 61 67 65 20 63 6f 6e 73 75 6d 65 64 0a 0a  orage consumed..
69e0: 20 20 20 20 54 68 65 20 74 6f 74 61 6c 20 61 6d      The total am
69f0: 6f 75 6e 74 20 6f 66 20 64 69 73 6b 20 73 70 61  ount of disk spa
6a00: 63 65 20 72 65 71 75 69 72 65 64 20 74 6f 20 73  ce required to s
6a10: 74 6f 72 65 20 61 6c 6c 20 42 2d 54 72 65 65 20  tore all B-Tree 
6a20: 65 6e 74 72 69 65 73 0a 20 20 20 20 75 6e 64 65  entries.    unde
6a30: 72 20 74 68 69 73 20 63 61 74 65 67 6f 72 79 2e  r this category.
6a40: 20 20 54 68 65 20 69 73 20 74 68 65 20 74 6f 74    The is the tot
6a50: 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 70 61 67  al number of pag
6a60: 65 73 20 75 73 65 64 20 74 69 6d 65 73 0a 20 20  es used times.  
6a70: 20 20 74 68 65 20 70 61 67 65 73 20 73 69 7a 65    the pages size
6a80: 2e 0a 0a 42 79 74 65 73 20 6f 66 20 70 61 79 6c  ...Bytes of payl
6a90: 6f 61 64 0a 0a 20 20 20 20 54 68 65 20 61 6d 6f  oad..    The amo
6aa0: 75 6e 74 20 6f 66 20 70 61 79 6c 6f 61 64 20 73  unt of payload s
6ab0: 74 6f 72 65 64 20 75 6e 64 65 72 20 74 68 69 73  tored under this
6ac0: 20 63 61 74 65 67 6f 72 79 2e 20 20 50 61 79 6c   category.  Payl
6ad0: 6f 61 64 20 69 73 20 74 68 65 20 64 61 74 61 0a  oad is the data.
6ae0: 20 20 20 20 70 61 72 74 20 6f 66 20 74 61 62 6c      part of tabl
6af0: 65 20 65 6e 74 72 69 65 73 20 61 6e 64 20 74 68  e entries and th
6b00: 65 20 6b 65 79 20 70 61 72 74 20 6f 66 20 69 6e  e key part of in
6b10: 64 65 78 20 65 6e 74 72 69 65 73 2e 20 20 54 68  dex entries.  Th
6b20: 65 20 70 65 72 63 65 6e 74 61 67 65 0a 20 20 20  e percentage.   
6b30: 20 61 74 20 74 68 65 20 72 69 67 68 74 20 69 73   at the right is
6b40: 20 74 68 65 20 62 79 74 65 73 20 6f 66 20 70 61   the bytes of pa
6b50: 79 6c 6f 61 64 20 64 69 76 69 64 65 64 20 62 79  yload divided by
6b60: 20 74 68 65 20 62 79 74 65 73 20 6f 66 20 73 74   the bytes of st
6b70: 6f 72 61 67 65 20 0a 20 20 20 20 63 6f 6e 73 75  orage .    consu
6b80: 6d 65 64 2e 0a 0a 41 76 65 72 61 67 65 20 70 61  med...Average pa
6b90: 79 6c 6f 61 64 20 70 65 72 20 65 6e 74 72 79 0a  yload per entry.
6ba0: 0a 20 20 20 20 54 68 65 20 61 76 65 72 61 67 65  .    The average
6bb0: 20 61 6d 6f 75 6e 74 20 6f 66 20 70 61 79 6c 6f   amount of paylo
6bc0: 61 64 20 6f 6e 20 65 61 63 68 20 65 6e 74 72 79  ad on each entry
6bd0: 2e 20 20 54 68 69 73 20 69 73 20 6a 75 73 74 20  .  This is just 
6be0: 74 68 65 20 62 79 74 65 73 20 6f 66 0a 20 20 20  the bytes of.   
6bf0: 20 70 61 79 6c 6f 61 64 20 64 69 76 69 64 65 64   payload divided
6c00: 20 62 79 20 74 68 65 20 6e 75 6d 62 65 72 20 6f   by the number o
6c10: 66 20 65 6e 74 72 69 65 73 2e 0a 0a 41 76 65 72  f entries...Aver
6c20: 61 67 65 20 75 6e 75 73 65 64 20 62 79 74 65 73  age unused bytes
6c30: 20 70 65 72 20 65 6e 74 72 79 0a 0a 20 20 20 20   per entry..    
6c40: 54 68 65 20 61 76 65 72 61 67 65 20 61 6d 6f 75  The average amou
6c50: 6e 74 20 6f 66 20 66 72 65 65 20 73 70 61 63 65  nt of free space
6c60: 20 72 65 6d 61 69 6e 69 6e 67 20 6f 6e 20 61 6c   remaining on al
6c70: 6c 20 70 61 67 65 73 20 75 6e 64 65 72 20 74 68  l pages under th
6c80: 69 73 0a 20 20 20 20 63 61 74 65 67 6f 72 79 20  is.    category 
6c90: 6f 6e 20 61 20 70 65 72 2d 65 6e 74 72 79 20 62  on a per-entry b
6ca0: 61 73 69 73 2e 20 20 54 68 69 73 20 69 73 20 74  asis.  This is t
6cb0: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 75 6e 75  he number of unu
6cc0: 73 65 64 20 62 79 74 65 73 20 6f 6e 0a 20 20 20  sed bytes on.   
6cd0: 20 61 6c 6c 20 70 61 67 65 73 20 64 69 76 69 64   all pages divid
6ce0: 65 64 20 62 79 20 74 68 65 20 6e 75 6d 62 65 72  ed by the number
6cf0: 20 6f 66 20 65 6e 74 72 69 65 73 2e 0a 0a 4d 61   of entries...Ma
6d00: 78 69 6d 75 6d 20 70 61 79 6c 6f 61 64 20 70 65  ximum payload pe
6d10: 72 20 65 6e 74 72 79 0a 0a 20 20 20 20 54 68 65  r entry..    The
6d20: 20 6c 61 72 67 65 73 74 20 70 61 79 6c 6f 61 64   largest payload
6d30: 20 73 69 7a 65 20 6f 66 20 61 6e 79 20 65 6e 74   size of any ent
6d40: 72 79 2e 0a 0a 45 6e 74 72 69 65 73 20 74 68 61  ry...Entries tha
6d50: 74 20 75 73 65 20 6f 76 65 72 66 6c 6f 77 0a 0a  t use overflow..
6d60: 20 20 20 20 54 68 65 20 6e 75 6d 62 65 72 20 6f      The number o
6d70: 66 20 65 6e 74 72 69 65 73 20 74 68 61 74 20 75  f entries that u
6d80: 73 65 72 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20  ser one or more 
6d90: 6f 76 65 72 66 6c 6f 77 20 70 61 67 65 73 2e 0a  overflow pages..
6da0: 0a 54 6f 74 61 6c 20 70 61 67 65 73 20 75 73 65  .Total pages use
6db0: 64 0a 0a 20 20 20 20 54 68 69 73 20 69 73 20 74  d..    This is t
6dc0: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 61 67  he number of pag
6dd0: 65 73 20 75 73 65 64 20 74 6f 20 68 6f 6c 64 20  es used to hold 
6de0: 61 6c 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20  all information 
6df0: 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 0a 20  in the current. 
6e00: 20 20 20 63 61 74 65 67 6f 72 79 2e 20 20 54 68     category.  Th
6e10: 69 73 20 69 73 20 74 68 65 20 73 75 6d 20 6f 66  is is the sum of
6e20: 20 69 6e 64 65 78 2c 20 70 72 69 6d 61 72 79 2c   index, primary,
6e30: 20 61 6e 64 20 6f 76 65 72 66 6c 6f 77 20 70 61   and overflow pa
6e40: 67 65 73 2e 0a 0a 49 6e 64 65 78 20 70 61 67 65  ges...Index page
6e50: 73 20 75 73 65 64 0a 0a 20 20 20 20 54 68 69 73  s used..    This
6e60: 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f   is the number o
6e70: 66 20 70 61 67 65 73 20 69 6e 20 61 20 74 61 62  f pages in a tab
6e80: 6c 65 20 42 2d 74 72 65 65 20 74 68 61 74 20 68  le B-tree that h
6e90: 6f 6c 64 20 6f 6e 6c 79 20 6b 65 79 20 28 72 6f  old only key (ro
6ea0: 77 69 64 29 0a 20 20 20 20 69 6e 66 6f 72 6d 61  wid).    informa
6eb0: 74 69 6f 6e 20 61 6e 64 20 6e 6f 20 64 61 74 61  tion and no data
6ec0: 2e 0a 0a 50 72 69 6d 61 72 79 20 70 61 67 65 73  ...Primary pages
6ed0: 20 75 73 65 64 0a 0a 20 20 20 20 54 68 69 73 20   used..    This 
6ee0: 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66  is the number of
6ef0: 20 42 2d 74 72 65 65 20 70 61 67 65 73 20 74 68   B-tree pages th
6f00: 61 74 20 68 6f 6c 64 20 62 6f 74 68 20 6b 65 79  at hold both key
6f10: 20 61 6e 64 20 64 61 74 61 2e 0a 0a 4f 76 65 72   and data...Over
6f20: 66 6c 6f 77 20 70 61 67 65 73 20 75 73 65 64 0a  flow pages used.
6f30: 0a 20 20 20 20 54 68 65 20 74 6f 74 61 6c 20 6e  .    The total n
6f40: 75 6d 62 65 72 20 6f 66 20 6f 76 65 72 66 6c 6f  umber of overflo
6f50: 77 20 70 61 67 65 73 20 75 73 65 64 20 66 6f 72  w pages used for
6f60: 20 74 68 69 73 20 63 61 74 65 67 6f 72 79 2e 0a   this category..
6f70: 0a 55 6e 75 73 65 64 20 62 79 74 65 73 20 6f 6e  .Unused bytes on
6f80: 20 69 6e 64 65 78 20 70 61 67 65 73 0a 0a 20 20   index pages..  
6f90: 20 20 54 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62    The total numb
6fa0: 65 72 20 6f 66 20 62 79 74 65 73 20 6f 66 20 75  er of bytes of u
6fb0: 6e 75 73 65 64 20 73 70 61 63 65 20 6f 6e 20 61  nused space on a
6fc0: 6c 6c 20 69 6e 64 65 78 20 70 61 67 65 73 2e 20  ll index pages. 
6fd0: 20 54 68 65 0a 20 20 20 20 70 65 72 63 65 6e 74   The.    percent
6fe0: 61 67 65 20 61 74 20 74 68 65 20 72 69 67 68 74  age at the right
6ff0: 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f   is the number o
7000: 66 20 75 6e 75 73 65 64 20 62 79 74 65 73 20 64  f unused bytes d
7010: 69 76 69 64 65 64 20 62 79 20 74 68 65 0a 20 20  ivided by the.  
7020: 20 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f    total number o
7030: 66 20 62 79 74 65 73 20 6f 6e 20 69 6e 64 65 78  f bytes on index
7040: 20 70 61 67 65 73 2e 0a 0a 55 6e 75 73 65 64 20   pages...Unused 
7050: 62 79 74 65 73 20 6f 6e 20 70 72 69 6d 61 72 79  bytes on primary
7060: 20 70 61 67 65 73 0a 0a 20 20 20 20 54 68 65 20   pages..    The 
7070: 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20  total number of 
7080: 62 79 74 65 73 20 6f 66 20 75 6e 75 73 65 64 20  bytes of unused 
7090: 73 70 61 63 65 20 6f 6e 20 61 6c 6c 20 70 72 69  space on all pri
70a0: 6d 61 72 79 20 70 61 67 65 73 2e 20 20 54 68 65  mary pages.  The
70b0: 0a 20 20 20 20 70 65 72 63 65 6e 74 61 67 65 20  .    percentage 
70c0: 61 74 20 74 68 65 20 72 69 67 68 74 20 69 73 20  at the right is 
70d0: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 75 6e  the number of un
70e0: 75 73 65 64 20 62 79 74 65 73 20 64 69 76 69 64  used bytes divid
70f0: 65 64 20 62 79 20 74 68 65 0a 20 20 20 20 74 6f  ed by the.    to
7100: 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 62 79  tal number of by
7110: 74 65 73 20 6f 6e 20 70 72 69 6d 61 72 79 20 70  tes on primary p
7120: 61 67 65 73 2e 0a 0a 55 6e 75 73 65 64 20 62 79  ages...Unused by
7130: 74 65 73 20 6f 6e 20 6f 76 65 72 66 6c 6f 77 20  tes on overflow 
7140: 70 61 67 65 73 0a 0a 20 20 20 20 54 68 65 20 74  pages..    The t
7150: 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 62  otal number of b
7160: 79 74 65 73 20 6f 66 20 75 6e 75 73 65 64 20 73  ytes of unused s
7170: 70 61 63 65 20 6f 6e 20 61 6c 6c 20 6f 76 65 72  pace on all over
7180: 66 6c 6f 77 20 70 61 67 65 73 2e 20 20 54 68 65  flow pages.  The
7190: 0a 20 20 20 20 70 65 72 63 65 6e 74 61 67 65 20  .    percentage 
71a0: 61 74 20 74 68 65 20 72 69 67 68 74 20 69 73 20  at the right is 
71b0: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 75 6e  the number of un
71c0: 75 73 65 64 20 62 79 74 65 73 20 64 69 76 69 64  used bytes divid
71d0: 65 64 20 62 79 20 74 68 65 0a 20 20 20 20 74 6f  ed by the.    to
71e0: 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 62 79  tal number of by
71f0: 74 65 73 20 6f 6e 20 6f 76 65 72 66 6c 6f 77 20  tes on overflow 
7200: 70 61 67 65 73 2e 0a 0a 55 6e 75 73 65 64 20 62  pages...Unused b
7210: 79 74 65 73 20 6f 6e 20 61 6c 6c 20 70 61 67 65  ytes on all page
7220: 73 0a 0a 20 20 20 20 54 68 65 20 74 6f 74 61 6c  s..    The total
7230: 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73   number of bytes
7240: 20 6f 66 20 75 6e 75 73 65 64 20 73 70 61 63 65   of unused space
7250: 20 6f 6e 20 61 6c 6c 20 70 72 69 6d 61 72 79 20   on all primary 
7260: 61 6e 64 20 6f 76 65 72 66 6c 6f 77 20 0a 20 20  and overflow .  
7270: 20 20 70 61 67 65 73 2e 20 20 54 68 65 20 70 65    pages.  The pe
7280: 72 63 65 6e 74 61 67 65 20 61 74 20 74 68 65 20  rcentage at the 
7290: 72 69 67 68 74 20 69 73 20 74 68 65 20 6e 75 6d  right is the num
72a0: 62 65 72 20 6f 66 20 75 6e 75 73 65 64 20 62 79  ber of unused by
72b0: 74 65 73 20 0a 20 20 20 20 64 69 76 69 64 65 64  tes .    divided
72c0: 20 62 79 20 74 68 65 20 74 6f 74 61 6c 20 6e 75   by the total nu
72d0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 2e 0a 7d  mber of bytes..}
72e0: 0a 0a 23 20 4f 75 74 70 75 74 20 61 20 64 75 6d  ..# Output a dum
72f0: 70 20 6f 66 20 74 68 65 20 69 6e 2d 6d 65 6d 6f  p of the in-memo
7300: 72 79 20 64 61 74 61 62 61 73 65 2e 20 54 68 69  ry database. Thi
7310: 73 20 63 61 6e 20 62 65 20 75 73 65 64 20 66 6f  s can be used fo
7320: 72 20 6d 6f 72 65 0a 23 20 63 6f 6d 70 6c 65 78  r more.# complex
7330: 20 6f 66 66 6c 69 6e 65 20 61 6e 61 6c 79 73 69   offline analysi
7340: 73 2e 0a 23 0a 70 75 74 73 20 22 2a 2a 2a 2a 2a  s..#.puts "*****
7350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7360: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7370: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7380: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7390: 2a 22 0a 70 75 74 73 20 22 54 68 65 20 65 6e 74  *".puts "The ent
73a0: 69 72 65 20 74 65 78 74 20 6f 66 20 74 68 69 73  ire text of this
73b0: 20 72 65 70 6f 72 74 20 63 61 6e 20 62 65 20 73   report can be s
73c0: 6f 75 72 63 65 64 20 69 6e 74 6f 20 61 6e 79 20  ourced into any 
73d0: 53 51 4c 20 64 61 74 61 62 61 73 65 22 0a 70 75  SQL database".pu
73e0: 74 73 20 22 65 6e 67 69 6e 65 20 66 6f 72 20 66  ts "engine for f
73f0: 75 72 74 68 65 72 20 61 6e 61 6c 79 73 69 73 2e  urther analysis.
7400: 20 20 41 6c 6c 20 6f 66 20 74 68 65 20 74 65 78    All of the tex
7410: 74 20 61 62 6f 76 65 20 69 73 20 61 6e 20 53 51  t above is an SQ
7420: 4c 20 63 6f 6d 6d 65 6e 74 2e 22 0a 70 75 74 73  L comment.".puts
7430: 20 22 54 68 65 20 64 61 74 61 20 75 73 65 64 20   "The data used 
7440: 74 6f 20 67 65 6e 65 72 61 74 65 20 74 68 69 73  to generate this
7450: 20 72 65 70 6f 72 74 20 66 6f 6c 6c 6f 77 73 3a   report follows:
7460: 22 0a 70 75 74 73 20 22 2a 2f 22 0a 70 75 74 73  ".puts "*/".puts
7470: 20 22 42 45 47 49 4e 3b 22 0a 70 75 74 73 20 24   "BEGIN;".puts $
7480: 74 61 62 6c 65 64 65 66 0a 75 6e 73 65 74 20 2d  tabledef.unset -
7490: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 78 0a 6d 65 6d  nocomplain x.mem
74a0: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20   eval {SELECT * 
74b0: 46 52 4f 4d 20 73 70 61 63 65 5f 75 73 65 64 7d  FROM space_used}
74c0: 20 78 20 7b 0a 20 20 70 75 74 73 20 2d 6e 6f 6e   x {.  puts -non
74d0: 65 77 6c 69 6e 65 20 22 49 4e 53 45 52 54 20 49  ewline "INSERT I
74e0: 4e 54 4f 20 73 70 61 63 65 5f 75 73 65 64 20 56  NTO space_used V
74f0: 41 4c 55 45 53 22 0a 20 20 73 65 74 20 73 65 70  ALUES".  set sep
7500: 20 28 0a 20 20 66 6f 72 65 61 63 68 20 63 6f 6c   (.  foreach col
7510: 20 24 78 28 2a 29 20 7b 0a 20 20 20 20 73 65 74   $x(*) {.    set
7520: 20 76 20 24 78 28 24 63 6f 6c 29 0a 20 20 20 20   v $x($col).    
7530: 69 66 20 7b 24 76 3d 3d 22 22 20 7c 7c 20 21 5b  if {$v=="" || ![
7540: 73 74 72 69 6e 67 20 69 73 20 64 6f 75 62 6c 65  string is double
7550: 20 24 76 5d 7d 20 7b 73 65 74 20 76 20 5b 71 75   $v]} {set v [qu
7560: 6f 74 65 20 24 76 5d 7d 0a 20 20 20 20 70 75 74  ote $v]}.    put
7570: 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 73 65  s -nonewline $se
7580: 70 24 76 0a 20 20 20 20 73 65 74 20 73 65 70 20  p$v.    set sep 
7590: 2c 0a 20 20 7d 0a 20 20 70 75 74 73 20 22 29 3b  ,.  }.  puts ");
75a0: 22 0a 7d 0a 70 75 74 73 20 22 43 4f 4d 4d 49 54  ".}.puts "COMMIT
75b0: 3b 22 0a 0a 7d 20 65 72 72 5d 7d 20 7b 0a 20 20  ;"..} err]} {.  
75c0: 70 75 74 73 20 22 45 52 52 4f 52 3a 20 24 65 72  puts "ERROR: $er
75d0: 72 22 0a 20 20 70 75 74 73 20 24 65 72 72 6f 72  r".  puts $error
75e0: 49 6e 66 6f 0a 20 20 65 78 69 74 20 31 0a 7d 0a  Info.  exit 1.}.