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) |
-} |