Import SQLite 3.8.7.4.

third_party/sqlite/src/tool/vdbe_profile.tcl

 #!/bin/tclsh
 #
 # Run this script in the same directory as the "vdbe_profile.out" file.
 # This script summarizes the results contained in that file.
 #
 if {![file readable vdbe_profile.out]} {
   error "run this script in the same directory as the vdbe_profile.out file"
 }
 set in [open vdbe_profile.out r]
 set stmt {}
@@ skipping 62 matching lines @@
 foreach op [lsort [array names opcnt]] {
   set cx $opcnt($op)
   set tx $opcycle($op)
   if {$cx==0} {
     set ax 0
   } else {
     set ax [expr {$tx/$cx}]
   }
   puts [format {%8d %12d %12d %s} $cx $tx $ax $op]
 }