| Index: third_party/sqlite/sqlite-src-3100200/tool/cg_anno.tcl
|
| diff --git a/third_party/sqlite/sqlite-src-3100200/tool/cg_anno.tcl b/third_party/sqlite/sqlite-src-3100200/tool/cg_anno.tcl
|
| deleted file mode 100755
|
| index f806c5a5af07011394721e7f0cb376ce9935b9b4..0000000000000000000000000000000000000000
|
| --- a/third_party/sqlite/sqlite-src-3100200/tool/cg_anno.tcl
|
| +++ /dev/null
|
| @@ -1,24 +0,0 @@
|
| -#!/usr/bin/tclsh
|
| -#
|
| -# A wrapper around cg_annotate that sets appropriate command-line options
|
| -# and rearranges the output so that annotated files occur in a consistent
|
| -# sorted order. Used by the run-speed-test.tcl script.
|
| -#
|
| -
|
| -set in [open "|cg_annotate --show=Ir --auto=yes --context=40 $argv" r]
|
| -set dest !
|
| -set out(!) {}
|
| -while {![eof $in]} {
|
| - set line [string map {\t { }} [gets $in]]
|
| - if {[regexp {^-- Auto-annotated source: (.*)} $line all name]} {
|
| - set dest $name
|
| - } elseif {[regexp {^-- line \d+ ------} $line]} {
|
| - set line [lreplace $line 2 2 {#}]
|
| - } elseif {[regexp {^The following files chosen for } $line]} {
|
| - set dest !
|
| - }
|
| - append out($dest) $line\n
|
| -}
|
| -foreach x [lsort [array names out]] {
|
| - puts $out($x)
|
| -}
|
|
|