tool/cg_anno.tcl

   1 #!/usr/bin/tclsh
   2 #
   3 # A wrapper around cg_annotate that sets appropriate command-line options
   4 # and rearranges the output so that annotated files occur in a consistent
   5 # sorted order.  Used by the run-speed-test.tcl script.
   6 #
   7
   8 set in [open "|cg_annotate --show=Ir --auto=yes --context=40 $argv" r]
   9 set dest !
  10 set out(!) {}
  11 while {![eof $in]} {
  12   set line [string map {\t {        }} [gets $in]]
  13   if {[regexp {^-- Auto-annotated source: (.*)} $line all name]} {
  14     set dest $name
  15   } elseif {[regexp {^-- line \d+ ------} $line]} {
  16     set line [lreplace $line 2 2 {#}]
  17   } elseif {[regexp {^The following files chosen for } $line]} {
  18     set dest !
  19   }
  20   append out($dest) $line\n
  21 }
  22 foreach x [lsort [array names out]] {
  23   puts $out($x)
  24 }