/ Hex Artifact Content
Login

Artifact 246d0da094856d72d2c12efec03250d71639d19f:


0000: 23 21 2f 62 69 6e 2f 74 63 6c 73 68 0a 23 0a 23  #!/bin/tclsh.#.#
0010: 20 53 55 4d 4d 41 52 59 3a 0a 23 20 52 75 6e 20   SUMMARY:.# Run 
0020: 74 68 69 73 20 73 63 72 69 70 74 20 69 6e 20 74  this script in t
0030: 68 65 20 73 61 6d 65 20 64 69 72 65 63 74 6f 72  he same director
0040: 79 20 61 73 20 74 68 65 20 22 76 64 62 65 5f 70  y as the "vdbe_p
0050: 72 6f 66 69 6c 65 2e 6f 75 74 22 20 66 69 6c 65  rofile.out" file
0060: 2e 0a 23 20 54 68 69 73 20 73 63 72 69 70 74 20  ..# This script 
0070: 73 75 6d 6d 61 72 69 7a 65 73 20 74 68 65 20 72  summarizes the r
0080: 65 73 75 6c 74 73 20 63 6f 6e 74 61 69 6e 65 64  esults contained
0090: 20 69 6e 20 74 68 61 74 20 66 69 6c 65 2e 0a 23   in that file..#
00a0: 0a 23 20 44 45 54 41 49 4c 53 3a 0a 23 20 43 6f  .# DETAILS:.# Co
00b0: 6d 70 69 6c 65 20 53 51 4c 69 74 65 20 75 73 69  mpile SQLite usi
00c0: 6e 67 20 74 68 65 20 2d 44 56 44 42 45 5f 50 52  ng the -DVDBE_PR
00d0: 4f 46 49 4c 45 20 6f 70 74 69 6f 6e 20 6f 6e 20  OFILE option on 
00e0: 4c 69 6e 75 78 2e 20 20 54 68 69 73 20 63 61 75  Linux.  This cau
00f0: 73 65 73 20 0a 23 20 70 65 72 66 6f 72 6d 61 6e  ses .# performan
0100: 63 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61  ce information a
0110: 62 6f 75 74 20 69 6e 64 69 76 69 64 75 61 6c 20  bout individual 
0120: 56 44 42 45 20 6f 70 65 72 61 74 69 6f 6e 73 20  VDBE operations 
0130: 74 6f 20 62 65 20 61 70 70 65 6e 64 65 64 0a 23  to be appended.#
0140: 20 74 6f 20 74 68 65 20 22 76 64 62 65 5f 70 72   to the "vdbe_pr
0150: 6f 66 69 6c 65 2e 6f 75 74 22 20 66 69 6c 65 2e  ofile.out" file.
0160: 20 20 41 66 74 65 72 20 63 6f 6e 74 65 6e 74 20    After content 
0170: 68 61 73 20 62 65 65 6e 20 61 63 63 75 6d 75 6c  has been accumul
0180: 61 74 65 64 20 69 6e 0a 23 20 76 64 62 65 5f 70  ated in.# vdbe_p
0190: 72 6f 66 69 6c 65 2e 6f 75 74 2c 20 72 75 6e 20  rofile.out, run 
01a0: 74 68 69 73 20 73 63 72 69 70 74 20 74 6f 20 61  this script to a
01b0: 6e 61 6c 79 7a 65 20 74 68 65 20 6f 75 74 70 75  nalyze the outpu
01c0: 74 20 61 6e 64 20 67 65 6e 65 72 61 74 65 20 61  t and generate a
01d0: 0a 23 20 72 65 70 6f 72 74 2e 0a 23 0a 69 66 20  .# report..#.if 
01e0: 7b 21 5b 66 69 6c 65 20 72 65 61 64 61 62 6c 65  {![file readable
01f0: 20 76 64 62 65 5f 70 72 6f 66 69 6c 65 2e 6f 75   vdbe_profile.ou
0200: 74 5d 7d 20 7b 0a 20 20 65 72 72 6f 72 20 22 72  t]} {.  error "r
0210: 75 6e 20 74 68 69 73 20 73 63 72 69 70 74 20 69  un this script i
0220: 6e 20 74 68 65 20 73 61 6d 65 20 64 69 72 65 63  n the same direc
0230: 74 6f 72 79 20 61 73 20 74 68 65 20 76 64 62 65  tory as the vdbe
0240: 5f 70 72 6f 66 69 6c 65 2e 6f 75 74 20 66 69 6c  _profile.out fil
0250: 65 22 0a 7d 0a 73 65 74 20 69 6e 20 5b 6f 70 65  e".}.set in [ope
0260: 6e 20 76 64 62 65 5f 70 72 6f 66 69 6c 65 2e 6f  n vdbe_profile.o
0270: 75 74 20 72 5d 0a 73 65 74 20 73 74 6d 74 20 7b  ut r].set stmt {
0280: 7d 0a 73 65 74 20 61 6c 6c 73 74 6d 74 20 7b 7d  }.set allstmt {}
0290: 0a 77 68 69 6c 65 20 7b 21 5b 65 6f 66 20 24 69  .while {![eof $i
02a0: 6e 5d 7d 20 7b 0a 20 20 73 65 74 20 6c 69 6e 65  n]} {.  set line
02b0: 20 5b 67 65 74 73 20 24 69 6e 5d 0a 20 20 69 66   [gets $in].  if
02c0: 20 7b 24 6c 69 6e 65 3d 3d 22 22 7d 20 63 6f 6e   {$line==""} con
02d0: 74 69 6e 75 65 0a 20 20 69 66 20 7b 5b 72 65 67  tinue.  if {[reg
02e0: 65 78 70 20 7b 5e 2d 2d 2d 2d 20 7d 20 24 6c 69  exp {^---- } $li
02f0: 6e 65 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 73  ne]} {.    set s
0300: 74 6d 74 20 5b 6c 69 6e 64 65 78 20 24 6c 69 6e  tmt [lindex $lin
0310: 65 20 31 5d 0a 20 20 20 20 69 66 20 7b 5b 69 6e  e 1].    if {[in
0320: 66 6f 20 65 78 69 73 74 73 20 63 6e 74 28 24 73  fo exists cnt($s
0330: 74 6d 74 29 5d 7d 20 7b 0a 20 20 20 20 20 20 69  tmt)]} {.      i
0340: 6e 63 72 20 63 6e 74 28 24 73 74 6d 74 29 0a 20  ncr cnt($stmt). 
0350: 20 20 20 20 20 73 65 74 20 66 69 72 73 74 74 69       set firstti
0360: 6d 65 20 30 0a 20 20 20 20 7d 20 65 6c 73 65 20  me 0.    } else 
0370: 7b 0a 20 20 20 20 20 20 73 65 74 20 63 6e 74 28  {.      set cnt(
0380: 24 73 74 6d 74 29 20 31 0a 20 20 20 20 20 20 73  $stmt) 1.      s
0390: 65 74 20 73 71 6c 28 24 73 74 6d 74 29 20 7b 7d  et sql($stmt) {}
03a0: 0a 20 20 20 20 20 20 73 65 74 20 66 69 72 73 74  .      set first
03b0: 74 69 6d 65 20 31 0a 20 20 20 20 20 20 6c 61 70  time 1.      lap
03c0: 70 65 6e 64 20 61 6c 6c 73 74 6d 74 20 24 73 74  pend allstmt $st
03d0: 6d 74 0a 20 20 20 20 7d 0a 20 20 20 20 63 6f 6e  mt.    }.    con
03e0: 74 69 6e 75 65 3b 0a 20 20 7d 0a 20 20 69 66 20  tinue;.  }.  if 
03f0: 7b 5b 72 65 67 65 78 70 20 7b 5e 2d 2d 20 7d 20  {[regexp {^-- } 
0400: 24 6c 69 6e 65 5d 7d 20 7b 0a 20 20 20 20 69 66  $line]} {.    if
0410: 20 7b 24 66 69 72 73 74 74 69 6d 65 7d 20 7b 0a   {$firsttime} {.
0420: 20 20 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c        append sql
0430: 28 24 73 74 6d 74 29 20 5b 73 74 72 69 6e 67 20  ($stmt) [string 
0440: 72 61 6e 67 65 20 24 6c 69 6e 65 20 33 20 65 6e  range $line 3 en
0450: 64 5d 5c 6e 0a 20 20 20 20 7d 0a 20 20 20 20 63  d]\n.    }.    c
0460: 6f 6e 74 69 6e 75 65 0a 20 20 7d 0a 20 20 69 66  ontinue.  }.  if
0470: 20 7b 21 5b 72 65 67 65 78 70 20 7b 5e 20 2a 5c   {![regexp {^ *\
0480: 64 2b 20 2a 5c 64 2b 20 2a 5c 64 2b 20 2a 5c 64  d+ *\d+ *\d+ *\d
0490: 2b 20 28 5b 41 2d 5a 5d 2e 2a 29 7d 20 24 6c 69  + ([A-Z].*)} $li
04a0: 6e 65 20 61 6c 6c 20 64 65 74 61 69 6c 5d 7d 20  ne all detail]} 
04b0: 63 6f 6e 74 69 6e 75 65 0a 20 20 73 65 74 20 63  continue.  set c
04c0: 20 5b 6c 69 6e 64 65 78 20 24 6c 69 6e 65 20 30   [lindex $line 0
04d0: 5d 0a 20 20 73 65 74 20 74 20 5b 6c 69 6e 64 65  ].  set t [linde
04e0: 78 20 24 6c 69 6e 65 20 31 5d 0a 20 20 73 65 74  x $line 1].  set
04f0: 20 61 64 64 72 20 5b 6c 69 6e 64 65 78 20 24 6c   addr [lindex $l
0500: 69 6e 65 20 33 5d 0a 20 20 73 65 74 20 6f 70 20  ine 3].  set op 
0510: 5b 6c 69 6e 64 65 78 20 24 6c 69 6e 65 20 34 5d  [lindex $line 4]
0520: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .  if {[info exi
0530: 73 74 73 20 6f 70 63 6e 74 28 24 6f 70 29 5d 7d  sts opcnt($op)]}
0540: 20 7b 0a 20 20 20 20 69 6e 63 72 20 6f 70 63 6e   {.    incr opcn
0550: 74 28 24 6f 70 29 20 24 63 0a 20 20 20 20 69 6e  t($op) $c.    in
0560: 63 72 20 6f 70 63 79 63 6c 65 28 24 6f 70 29 20  cr opcycle($op) 
0570: 24 74 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20  $t.  } else {.  
0580: 20 20 73 65 74 20 6f 70 63 6e 74 28 24 6f 70 29    set opcnt($op)
0590: 20 24 63 0a 20 20 20 20 73 65 74 20 6f 70 63 79   $c.    set opcy
05a0: 63 6c 65 28 24 6f 70 29 20 24 74 0a 20 20 7d 0a  cle($op) $t.  }.
05b0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
05c0: 74 73 20 73 74 61 74 28 24 73 74 6d 74 2c 24 61  ts stat($stmt,$a
05d0: 64 64 72 29 5d 7d 20 7b 0a 20 20 20 20 66 6f 72  ddr)]} {.    for
05e0: 65 61 63 68 20 7b 63 78 20 74 78 20 64 65 74 61  each {cx tx deta
05f0: 69 6c 7d 20 24 73 74 61 74 28 24 73 74 6d 74 2c  il} $stat($stmt,
0600: 24 61 64 64 72 29 20 62 72 65 61 6b 0a 20 20 20  $addr) break.   
0610: 20 69 6e 63 72 20 63 78 20 24 63 0a 20 20 20 20   incr cx $c.    
0620: 69 6e 63 72 20 74 78 20 24 74 0a 20 20 20 20 73  incr tx $t.    s
0630: 65 74 20 73 74 61 74 28 24 73 74 6d 74 2c 24 61  et stat($stmt,$a
0640: 64 64 72 29 20 5b 6c 69 73 74 20 24 63 78 20 24  ddr) [list $cx $
0650: 74 78 20 24 64 65 74 61 69 6c 5d 0a 20 20 7d 20  tx $detail].  } 
0660: 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 73  else {.    set s
0670: 74 61 74 28 24 73 74 6d 74 2c 24 61 64 64 72 29  tat($stmt,$addr)
0680: 20 5b 6c 69 73 74 20 24 63 20 24 74 20 24 64 65   [list $c $t $de
0690: 74 61 69 6c 5d 0a 20 20 7d 0a 7d 0a 63 6c 6f 73  tail].  }.}.clos
06a0: 65 20 24 69 6e 0a 0a 66 6f 72 65 61 63 68 20 73  e $in..foreach s
06b0: 74 6d 74 20 24 61 6c 6c 73 74 6d 74 20 7b 0a 20  tmt $allstmt {. 
06c0: 20 70 75 74 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a   puts "*********
06d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
06e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
06f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0700: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 20 20 70  ***********".  p
0710: 75 74 73 20 5b 73 74 72 69 6e 67 20 74 72 69 6d  uts [string trim
0720: 20 24 73 71 6c 28 24 73 74 6d 74 29 5d 0a 20 20   $sql($stmt)].  
0730: 70 75 74 73 20 22 45 78 65 63 75 74 69 6f 6e 20  puts "Execution 
0740: 63 6f 75 6e 74 3a 20 24 63 6e 74 28 24 73 74 6d  count: $cnt($stm
0750: 74 29 22 0a 20 20 66 6f 72 20 7b 73 65 74 20 69  t)".  for {set i
0760: 20 30 7d 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   0} {[info exist
0770: 73 20 73 74 61 74 28 24 73 74 6d 74 2c 24 69 29  s stat($stmt,$i)
0780: 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20  ]} {incr i} {.  
0790: 20 20 66 6f 72 65 61 63 68 20 7b 63 78 20 74 78    foreach {cx tx
07a0: 20 64 65 74 61 69 6c 7d 20 24 73 74 61 74 28 24   detail} $stat($
07b0: 73 74 6d 74 2c 24 69 29 20 62 72 65 61 6b 0a 20  stmt,$i) break. 
07c0: 20 20 20 69 66 20 7b 24 63 78 3d 3d 30 7d 20 7b     if {$cx==0} {
07d0: 0a 20 20 20 20 20 20 73 65 74 20 61 78 20 30 0a  .      set ax 0.
07e0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
07f0: 20 20 20 73 65 74 20 61 78 20 5b 65 78 70 72 20     set ax [expr 
0800: 7b 24 74 78 2f 24 63 78 7d 5d 0a 20 20 20 20 7d  {$tx/$cx}].    }
0810: 0a 20 20 20 20 70 75 74 73 20 5b 66 6f 72 6d 61  .    puts [forma
0820: 74 20 7b 25 38 64 20 25 31 32 64 20 25 31 32 64  t {%8d %12d %12d
0830: 20 25 34 64 20 25 73 7d 20 24 63 78 20 24 74 78   %4d %s} $cx $tx
0840: 20 24 61 78 20 24 69 20 24 64 65 74 61 69 6c 5d   $ax $i $detail]
0850: 0a 20 20 7d 0a 7d 0a 70 75 74 73 20 22 2a 2a 2a  .  }.}.puts "***
0860: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0870: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0880: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0890: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
08a0: 2a 22 0a 70 75 74 73 20 22 4f 50 43 4f 44 45 53  *".puts "OPCODES
08b0: 3a 22 0a 66 6f 72 65 61 63 68 20 6f 70 20 5b 6c  :".foreach op [l
08c0: 73 6f 72 74 20 5b 61 72 72 61 79 20 6e 61 6d 65  sort [array name
08d0: 73 20 6f 70 63 6e 74 5d 5d 20 7b 0a 20 20 73 65  s opcnt]] {.  se
08e0: 74 20 63 78 20 24 6f 70 63 6e 74 28 24 6f 70 29  t cx $opcnt($op)
08f0: 0a 20 20 73 65 74 20 74 78 20 24 6f 70 63 79 63  .  set tx $opcyc
0900: 6c 65 28 24 6f 70 29 0a 20 20 69 66 20 7b 24 63  le($op).  if {$c
0910: 78 3d 3d 30 7d 20 7b 0a 20 20 20 20 73 65 74 20  x==0} {.    set 
0920: 61 78 20 30 0a 20 20 7d 20 65 6c 73 65 20 7b 0a  ax 0.  } else {.
0930: 20 20 20 20 73 65 74 20 61 78 20 5b 65 78 70 72      set ax [expr
0940: 20 7b 24 74 78 2f 24 63 78 7d 5d 0a 20 20 7d 0a   {$tx/$cx}].  }.
0950: 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b    puts [format {
0960: 25 38 64 20 25 31 32 64 20 25 31 32 64 20 25 73  %8d %12d %12d %s
0970: 7d 20 24 63 78 20 24 74 78 20 24 61 78 20 24 6f  } $cx $tx $ax $o
0980: 70 5d 0a 7d 0a                                   p].}.