[sql] Import reference version of SQLite 3.10.2.

third_party/sqlite/sqlite-src-3100200/tool/cg_anno.tcl

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
new file mode 100755
index 0000000000000000000000000000000000000000..f806c5a5af07011394721e7f0cb376ce9935b9b4
--- /dev/null
+++ b/third_party/sqlite/sqlite-src-3100200/tool/cg_anno.tcl
@@ -0,0 +1,24 @@
+#!/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)
+}