/ Hex Artifact Content
Login

Artifact f95b0006c52cf7f0496b506343415b6ee3cdcdd3:


0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 74 63 6c 73 68  #!/usr/bin/tclsh
0010: 0a 23 0a 23 20 41 20 77 72 61 70 70 65 72 20 61  .#.# A wrapper a
0020: 72 6f 75 6e 64 20 63 67 5f 61 6e 6e 6f 74 61 74  round cg_annotat
0030: 65 20 74 68 61 74 20 73 65 74 73 20 61 70 70 72  e that sets appr
0040: 6f 70 72 69 61 74 65 20 63 6f 6d 6d 61 6e 64 2d  opriate command-
0050: 6c 69 6e 65 20 6f 70 74 69 6f 6e 73 0a 23 20 61  line options.# a
0060: 6e 64 20 72 65 61 72 72 61 6e 67 65 73 20 74 68  nd rearranges th
0070: 65 20 6f 75 74 70 75 74 20 73 6f 20 74 68 61 74  e output so that
0080: 20 61 6e 6e 6f 74 61 74 65 64 20 66 69 6c 65 73   annotated files
0090: 20 6f 63 63 75 72 20 69 6e 20 61 20 63 6f 6e 73   occur in a cons
00a0: 69 73 74 65 6e 74 0a 23 20 73 6f 72 74 65 64 20  istent.# sorted 
00b0: 6f 72 64 65 72 2e 20 20 55 73 65 64 20 62 79 20  order.  Used by 
00c0: 74 68 65 20 73 70 65 65 64 2d 63 68 65 63 6b 2e  the speed-check.
00d0: 74 63 6c 20 73 63 72 69 70 74 2e 0a 23 0a 0a 73  tcl script..#..s
00e0: 65 74 20 69 6e 20 5b 6f 70 65 6e 20 22 7c 63 67  et in [open "|cg
00f0: 5f 61 6e 6e 6f 74 61 74 65 20 2d 2d 73 68 6f 77  _annotate --show
0100: 3d 49 72 20 2d 2d 61 75 74 6f 3d 79 65 73 20 2d  =Ir --auto=yes -
0110: 2d 63 6f 6e 74 65 78 74 3d 34 30 20 24 61 72 67  -context=40 $arg
0120: 76 22 20 72 5d 0a 73 65 74 20 64 65 73 74 20 21  v" r].set dest !
0130: 0a 73 65 74 20 6f 75 74 28 21 29 20 7b 7d 0a 73  .set out(!) {}.s
0140: 65 74 20 6c 69 6e 65 6e 75 6d 20 30 0a 73 65 74  et linenum 0.set
0150: 20 63 6e 74 6c 69 6e 65 73 20 30 20 20 20 20 20   cntlines 0     
0160: 20 3b 23 20 74 72 75 65 20 74 6f 20 72 65 6d 65   ;# true to reme
0170: 6d 62 65 72 20 63 79 63 6c 65 20 63 6f 75 6e 74  mber cycle count
0180: 73 20 6f 6e 20 65 61 63 68 20 6c 69 6e 65 0a 73  s on each line.s
0190: 65 74 20 73 65 65 6e 53 71 6c 69 74 65 33 20 30  et seenSqlite3 0
01a0: 20 20 20 3b 23 20 74 72 75 65 20 69 66 20 77 65     ;# true if we
01b0: 20 68 61 76 65 20 73 65 65 6e 20 74 68 65 20 73   have seen the s
01c0: 71 6c 69 74 65 33 2e 63 20 66 69 6c 65 0a 77 68  qlite3.c file.wh
01d0: 69 6c 65 20 7b 21 5b 65 6f 66 20 24 69 6e 5d 7d  ile {![eof $in]}
01e0: 20 7b 0a 20 20 73 65 74 20 6c 69 6e 65 20 5b 73   {.  set line [s
01f0: 74 72 69 6e 67 20 6d 61 70 20 7b 5c 74 20 7b 20  tring map {\t { 
0200: 20 20 20 20 20 20 20 7d 7d 20 5b 67 65 74 73 20         }} [gets 
0210: 24 69 6e 5d 5d 0a 20 20 69 66 20 7b 5b 72 65 67  $in]].  if {[reg
0220: 65 78 70 20 7b 5e 2d 2d 20 41 75 74 6f 2d 61 6e  exp {^-- Auto-an
0230: 6e 6f 74 61 74 65 64 20 73 6f 75 72 63 65 3a 20  notated source: 
0240: 28 2e 2a 29 7d 20 24 6c 69 6e 65 20 61 6c 6c 20  (.*)} $line all 
0250: 6e 61 6d 65 5d 7d 20 7b 0a 20 20 20 20 73 65 74  name]} {.    set
0260: 20 64 65 73 74 20 24 6e 61 6d 65 0a 20 20 20 20   dest $name.    
0270: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63  if {[string matc
0280: 68 20 2a 2f 73 71 6c 69 74 65 33 2e 63 20 24 64  h */sqlite3.c $d
0290: 65 73 74 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65  est]} {.      se
02a0: 74 20 63 6e 74 6c 69 6e 65 73 20 31 0a 20 20 20  t cntlines 1.   
02b0: 20 20 20 73 65 74 20 73 65 65 6e 53 71 6c 69 74     set seenSqlit
02c0: 65 33 20 31 0a 20 20 20 20 7d 20 65 6c 73 65 20  e3 1.    } else 
02d0: 7b 0a 20 20 20 20 20 20 73 65 74 20 63 6e 74 6c  {.      set cntl
02e0: 69 6e 65 73 20 30 0a 20 20 20 20 7d 0a 20 20 7d  ines 0.    }.  }
02f0: 20 65 6c 73 65 69 66 20 7b 5b 72 65 67 65 78 70   elseif {[regexp
0300: 20 7b 5e 2d 2d 20 6c 69 6e 65 20 28 5c 64 2b 29   {^-- line (\d+)
0310: 20 2d 2d 2d 2d 2d 2d 7d 20 24 6c 69 6e 65 20 61   ------} $line a
0320: 6c 6c 20 6c 6e 5d 7d 20 7b 0a 20 20 20 20 73 65  ll ln]} {.    se
0330: 74 20 6c 69 6e 65 20 5b 6c 72 65 70 6c 61 63 65  t line [lreplace
0340: 20 24 6c 69 6e 65 20 32 20 32 20 7b 23 7d 5d 0a   $line 2 2 {#}].
0350: 20 20 20 20 73 65 74 20 6c 69 6e 65 6e 75 6d 20      set linenum 
0360: 5b 65 78 70 72 20 7b 24 6c 6e 2d 31 7d 5d 0a 20  [expr {$ln-1}]. 
0370: 20 7d 20 65 6c 73 65 69 66 20 7b 5b 72 65 67 65   } elseif {[rege
0380: 78 70 20 7b 5e 54 68 65 20 66 6f 6c 6c 6f 77 69  xp {^The followi
0390: 6e 67 20 66 69 6c 65 73 20 63 68 6f 73 65 6e 20  ng files chosen 
03a0: 66 6f 72 20 7d 20 24 6c 69 6e 65 5d 7d 20 7b 0a  for } $line]} {.
03b0: 20 20 20 20 73 65 74 20 64 65 73 74 20 21 0a 20      set dest !. 
03c0: 20 7d 0a 20 20 61 70 70 65 6e 64 20 6f 75 74 28   }.  append out(
03d0: 24 64 65 73 74 29 20 24 6c 69 6e 65 5c 6e 0a 20  $dest) $line\n. 
03e0: 20 69 66 20 7b 24 63 6e 74 6c 69 6e 65 73 7d 20   if {$cntlines} 
03f0: 7b 0a 20 20 20 20 69 6e 63 72 20 6c 69 6e 65 6e  {.    incr linen
0400: 75 6d 0a 20 20 20 20 69 66 20 7b 5b 72 65 67 65  um.    if {[rege
0410: 78 70 20 7b 5e 20 2a 28 5b 30 2d 39 2c 5d 2b 29  xp {^ *([0-9,]+)
0420: 20 7d 20 24 6c 69 6e 65 20 61 6c 6c 20 78 5d 7d   } $line all x]}
0430: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 78 20 5b   {.      set x [
0440: 73 74 72 69 6e 67 20 6d 61 70 20 7b 2c 20 7b 7d  string map {, {}
0450: 7d 20 24 78 5d 0a 20 20 20 20 20 20 73 65 74 20  } $x].      set 
0460: 63 79 63 6c 65 73 28 24 6c 69 6e 65 6e 75 6d 29  cycles($linenum)
0470: 20 24 78 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a   $x.    }.  }.}.
0480: 66 6f 72 65 61 63 68 20 78 20 5b 6c 73 6f 72 74  foreach x [lsort
0490: 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 6f 75   [array names ou
04a0: 74 5d 5d 20 7b 0a 20 20 70 75 74 73 20 24 6f 75  t]] {.  puts $ou
04b0: 74 28 24 78 29 0a 7d 0a 0a 23 20 49 66 20 74 68  t($x).}..# If th
04c0: 65 20 73 71 6c 69 74 65 33 2e 63 20 66 69 6c 65  e sqlite3.c file
04d0: 20 68 61 73 20 62 65 65 6e 20 73 65 65 6e 2c 20   has been seen, 
04e0: 74 68 65 6e 20 6f 75 74 70 75 74 20 61 20 73 75  then output a su
04f0: 6d 6d 61 72 79 20 6f 66 20 74 68 65 0a 23 20 63  mmary of the.# c
0500: 79 63 6c 65 20 63 6f 75 6e 74 73 20 66 6f 72 20  ycle counts for 
0510: 65 61 63 68 20 66 69 6c 65 20 74 68 61 74 20 77  each file that w
0520: 65 6e 74 20 69 6e 74 6f 20 6d 61 6b 69 6e 67 20  ent into making 
0530: 75 70 20 73 71 6c 69 74 65 33 2e 63 0a 23 0a 69  up sqlite3.c.#.i
0540: 66 20 7b 24 73 65 65 6e 53 71 6c 69 74 65 33 7d  f {$seenSqlite3}
0550: 20 7b 0a 20 20 63 6c 6f 73 65 20 24 69 6e 0a 20   {.  close $in. 
0560: 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e 20 73 71   set in [open sq
0570: 6c 69 74 65 33 2e 63 5d 0a 20 20 73 65 74 20 6c  lite3.c].  set l
0580: 69 6e 65 6e 75 6d 20 30 0a 20 20 73 65 74 20 66  inenum 0.  set f
0590: 6e 20 73 71 6c 69 74 65 33 2e 63 0a 20 20 73 65  n sqlite3.c.  se
05a0: 74 20 70 61 74 74 65 72 6e 31 20 7b 5e 2f 5c 2a  t pattern1 {^/\*
05b0: 2b 20 42 65 67 69 6e 20 66 69 6c 65 20 28 5b 5e  + Begin file ([^
05c0: 20 5d 2b 29 20 5c 2a 7d 0a 20 20 73 65 74 20 70   ]+) \*}.  set p
05d0: 61 74 74 65 72 6e 32 20 7b 5e 2f 5c 2a 2b 20 43  attern2 {^/\*+ C
05e0: 6f 6e 74 69 6e 75 69 6e 67 20 77 68 65 72 65 20  ontinuing where 
05f0: 77 65 20 6c 65 66 74 20 6f 66 66 20 69 6e 20 28  we left off in (
0600: 5b 5e 20 5d 2b 29 20 5c 2a 7d 0a 20 20 77 68 69  [^ ]+) \*}.  whi
0610: 6c 65 20 7b 21 5b 65 6f 66 20 24 69 6e 5d 7d 20  le {![eof $in]} 
0620: 7b 0a 20 20 20 20 73 65 74 20 6c 69 6e 65 20 5b  {.    set line [
0630: 67 65 74 73 20 24 69 6e 5d 0a 20 20 20 20 69 6e  gets $in].    in
0640: 63 72 20 6c 69 6e 65 6e 75 6d 0a 20 20 20 20 69  cr linenum.    i
0650: 66 20 7b 5b 72 65 67 65 78 70 20 24 70 61 74 74  f {[regexp $patt
0660: 65 72 6e 31 20 24 6c 69 6e 65 20 61 6c 6c 20 6e  ern1 $line all n
0670: 65 77 66 6e 5d 7d 20 7b 0a 20 20 20 20 20 20 73  ewfn]} {.      s
0680: 65 74 20 66 6e 20 24 6e 65 77 66 6e 0a 20 20 20  et fn $newfn.   
0690: 20 7d 20 65 6c 73 65 69 66 20 7b 5b 72 65 67 65   } elseif {[rege
06a0: 78 70 20 24 70 61 74 74 65 72 6e 32 20 24 6c 69  xp $pattern2 $li
06b0: 6e 65 20 61 6c 6c 20 6e 65 77 66 6e 5d 7d 20 7b  ne all newfn]} {
06c0: 0a 20 20 20 20 20 20 73 65 74 20 66 6e 20 24 6e  .      set fn $n
06d0: 65 77 66 6e 0a 20 20 20 20 7d 20 65 6c 73 65 69  ewfn.    } elsei
06e0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
06f0: 63 79 63 6c 65 73 28 24 6c 69 6e 65 6e 75 6d 29  cycles($linenum)
0700: 5d 7d 20 7b 0a 20 20 20 20 20 20 69 6e 63 72 20  ]} {.      incr 
0710: 66 63 79 63 6c 65 73 28 24 66 6e 29 20 24 63 79  fcycles($fn) $cy
0720: 63 6c 65 73 28 24 6c 69 6e 65 6e 75 6d 29 0a 20  cles($linenum). 
0730: 20 20 20 7d 0a 20 20 7d 0a 20 20 63 6c 6f 73 65     }.  }.  close
0740: 20 24 69 6e 0a 20 20 70 75 74 73 20 7b 2a 2a 2a   $in.  puts {***
0750: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0760: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0770: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0780: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0790: 2a 2a 2a 7d 0a 20 20 73 65 74 20 6c 78 20 7b 7d  ***}.  set lx {}
07a0: 0a 20 20 73 65 74 20 73 75 6d 20 30 0a 20 20 66  .  set sum 0.  f
07b0: 6f 72 65 61 63 68 20 7b 66 6e 20 63 6e 74 7d 20  oreach {fn cnt} 
07c0: 5b 61 72 72 61 79 20 67 65 74 20 66 63 79 63 6c  [array get fcycl
07d0: 65 73 5d 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e  es] {.    lappen
07e0: 64 20 6c 78 20 5b 6c 69 73 74 20 24 63 6e 74 20  d lx [list $cnt 
07f0: 24 66 6e 5d 0a 20 20 20 20 69 6e 63 72 20 73 75  $fn].    incr su
0800: 6d 20 24 63 6e 74 0a 20 20 7d 0a 20 20 70 75 74  m $cnt.  }.  put
0810: 73 20 5b 66 6f 72 6d 61 74 20 7b 25 32 30 73 20  s [format {%20s 
0820: 25 31 34 64 20 20 25 38 2e 33 66 25 25 7d 20 54  %14d  %8.3f%%} T
0830: 4f 54 41 4c 20 24 73 75 6d 20 31 30 30 5d 0a 20  OTAL $sum 100]. 
0840: 20 66 6f 72 65 61 63 68 20 65 6e 74 72 79 20 5b   foreach entry [
0850: 6c 73 6f 72 74 20 2d 69 6e 64 65 78 20 30 20 2d  lsort -index 0 -
0860: 69 6e 74 65 67 65 72 20 2d 64 65 63 72 65 61 73  integer -decreas
0870: 69 6e 67 20 24 6c 78 5d 20 7b 0a 20 20 20 20 66  ing $lx] {.    f
0880: 6f 72 65 61 63 68 20 7b 63 6e 74 20 66 6e 7d 20  oreach {cnt fn} 
0890: 24 65 6e 74 72 79 20 62 72 65 61 6b 0a 20 20 20  $entry break.   
08a0: 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b 25   puts [format {%
08b0: 32 30 73 20 25 31 34 64 20 20 25 38 2e 33 66 25  20s %14d  %8.3f%
08c0: 25 7d 20 24 66 6e 20 24 63 6e 74 20 5b 65 78 70  %} $fn $cnt [exp
08d0: 72 20 7b 24 63 6e 74 2a 31 30 30 2e 30 2f 24 73  r {$cnt*100.0/$s
08e0: 75 6d 7d 5d 5d 0a 20 20 7d 0a 7d 0a              um}]].  }.}.