blob: fb1f955391ae2782147796fe9848a3c156bb184d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
#!/bin/tclsh
#
# Run this script in the same directory as the "vdbe_profile.out" file.
# This script summarizes the results contained in that file.
#
if {![file readable vdbe_profile.out]} {
error "run this script in the same directory as the vdbe_profile.out file"
}
set in [open vdbe_profile.out r]
set stmt {}
set allstmt {}
while {![eof $in]} {
set line [gets $in]
if {$line==""} continue
if {[regexp {^---- } $line]} {
set stmt [lindex $line 1]
if {[info exists cnt($stmt)]} {
incr cnt($stmt)
set firsttime 0
} else {
set cnt($stmt) 1
set sql($stmt) {}
set firsttime 1
lappend allstmt $stmt
}
continue;
}
if {[regexp {^-- } $line]} {
if {$firsttime} {
append sql($stmt) [string range $line 3 end]\n
}
continue
}
if {![regexp {^ *\d+ *\d+ *\d+ *\d+ ([A-Z].*)} $line all detail]} continue
set c [lindex $line 0]
set t [lindex $line 1]
set addr [lindex $line 3]
set op [lindex $line 4]
if {[info exists opcnt($op)]} {
incr opcnt($op) $c
incr opcycle($op) $t
} else {
set opcnt($op) $c
set opcycle($op) $t
}
if {[info exists stat($stmt,$addr)]} {
foreach {cx tx detail} $stat($stmt,$addr) break
incr cx $c
incr tx $t
set stat($stmt,$addr) [list $cx $tx $detail]
} else {
set stat($stmt,$addr) [list $c $t $detail]
}
}
close $in
foreach stmt $allstmt {
puts "********************************************************************"
puts [string trim $sql($stmt)]
puts "Execution count: $cnt($stmt)"
for {set i 0} {[info exists stat($stmt,$i)]} {incr i} {
foreach {cx tx detail} $stat($stmt,$i) break
if {$cx==0} {
set ax 0
} else {
set ax [expr {$tx/$cx}]
}
puts [format {%8d %12d %12d %4d %s} $cx $tx $ax $i $detail]
}
}
puts "********************************************************************"
puts "OPCODES:"
foreach op [lsort [array names opcnt]] {
set cx $opcnt($op)
set tx $opcycle($op)
if {$cx==0} {
set ax 0
} else {
set ax [expr {$tx/$cx}]
}
puts [format {%8d %12d %12d %s} $cx $tx $ax $op]
}
|
