xref: /sqlite-3.40.0/tool/cg_anno.tcl (revision b1dd3db5) 
1#!/bin/sh
2# \
3exec tclsh "$0" ${1+"$@"}
4#
5# A wrapper around cg_annotate that sets appropriate command-line options
6# and rearranges the output so that annotated files occur in a consistent
7# sorted order.  Used by the speed-check.tcl script.
8#
9
10set in [open "|cg_annotate --show=Ir --auto=yes --context=40 $argv" r]
11set dest !
12set out(!) {}
13set linenum 0
14set cntlines 0      ;# true to remember cycle counts on each line
15set seenSqlite3 0   ;# true if we have seen the sqlite3.c file
16while {![eof $in]} {
17  set line [string map {\t {        }} [gets $in]]
18  if {[regexp {^-- Auto-annotated source: (.*)} $line all name]} {
19    set dest $name
20    if {[string match */sqlite3.c $dest]} {
21      set cntlines 1
22      set seenSqlite3 1
23    } else {
24      set cntlines 0
25    }
26  } elseif {[regexp {^-- line (\d+) ------} $line all ln]} {
27    set line [lreplace $line 2 2 {#}]
28    set linenum [expr {$ln-1}]
29  } elseif {[regexp {^The following files chosen for } $line]} {
30    set dest !
31  }
32  append out($dest) $line\n
33  if {$cntlines} {
34    incr linenum
35    if {[regexp {^ *([0-9,]+) } $line all x]} {
36      set x [string map {, {}} $x]
37      set cycles($linenum) $x
38    }
39  }
40}
41foreach x [lsort [array names out]] {
42  puts $out($x)
43}
44
45# If the sqlite3.c file has been seen, then output a summary of the
46# cycle counts for each file that went into making up sqlite3.c
47#
48if {$seenSqlite3} {
49  close $in
50  set in [open sqlite3.c]
51  set linenum 0
52  set fn sqlite3.c
53  set pattern1 {^/\*+ Begin file ([^ ]+) \*}
54  set pattern2 {^/\*+ Continuing where we left off in ([^ ]+) \*}
55  while {![eof $in]} {
56    set line [gets $in]
57    incr linenum
58    if {[regexp $pattern1 $line all newfn]} {
59      set fn $newfn
60    } elseif {[regexp $pattern2 $line all newfn]} {
61      set fn $newfn
62    } elseif {[info exists cycles($linenum)]} {
63      incr fcycles($fn) $cycles($linenum)
64    }
65  }
66  close $in
67  puts {**********************************************************************}
68  set lx {}
69  set sum 0
70  foreach {fn cnt} [array get fcycles] {
71    lappend lx [list $cnt $fn]
72    incr sum $cnt
73  }
74  puts [format {%20s %14d  %8.3f%%} TOTAL $sum 100]
75  foreach entry [lsort -index 0 -integer -decreasing $lx] {
76    foreach {cnt fn} $entry break
77    puts [format {%20s %14d  %8.3f%%} $fn $cnt [expr {$cnt*100.0/$sum}]]
78  }
79}
80