[sql] Remove SQLite 3.10.2 reference directory.

third_party/sqlite/sqlite-src-3100200/ext/fts5/tool/showfts5.tcl

-
-
-
-#-------------------------------------------------------------------------
-# Process command line arguments.
-#
-proc usage {} {
-  puts stderr "usage: $::argv0 ?OPTIONS? database table"
-  puts stderr ""
-  puts stderr "  -nterm                (count number of terms in each segment)"
-  puts stderr "  -segments             (output segment contents)"
-  puts stderr ""
-  exit 1
-}
-
-set O(nterm) 0
-set O(segments) 0
-
-if {[llength $argv]<2} usage
-foreach a [lrange $argv 0 end-2] {
-  switch -- $a {
-    -nterm {
-      set O(nterm) 1
-    }
-
-    -segments {
-      set O(segments) 1
-    }
-
-    default {
-      usage
-    }
-  }
-}
-
-set database [lindex $argv end-1]
-set tbl [lindex $argv end]
-
-
-#-------------------------------------------------------------------------
-# Count the number of terms in each segment of fts5 table $tbl. Store the
-# counts in the array variable in the parent context named by parameter
-# $arrayname, indexed by segment-id. Example:
-#
-#   count_terms fts_tbl A
-#   foreach {k v} [array get A] { puts "segid=$k nTerm=$v" }
-#
-proc count_terms {tbl arrayname} {
-  upvar A $arrayname
-  array unset A
-  db eval "SELECT fts5_decode(rowid, block) AS d FROM ${tbl}_data" {
-    set desc [lindex $d 0]
-    if {[regexp {^segid=([0-9]*)} $desc -> id]} {
-      foreach i [lrange $d 1 end] {
-        if {[string match {term=*} $i]} { incr A($id) }
-      }
-    }
-  }
-}
-
-
-#-------------------------------------------------------------------------
-# Start of main program.
-#
-sqlite3 db $database
-catch { load_static_extension db fts5 }
-
-if {$O(nterm)} { count_terms $tbl A }
-
-db eval "SELECT fts5_decode(rowid, block) AS d FROM ${tbl}_data WHERE id=10" {
-  foreach lvl [lrange $d 1 end] {
-    puts [lrange $lvl 0 2]
-
-    foreach seg [lrange $lvl 3 end] {
-      if {$::O(nterm)} {
-        regexp {^id=([0-9]*)} $seg -> id
-        set nTerm 0
-        catch { set nTerm $A($id) }
-        puts [format "        % -28s    nTerm=%d" $seg $nTerm]
-      } else {
-        puts [format "        % -28s" $seg]
-      }
-    }
-  }
-}
-
-if {$O(segments)} {
-  puts ""
-  db eval "SELECT fts5_decode(rowid, block) AS d FROM ${tbl}_data WHERE id>10" {
-    puts $d
-  }
-}
-
-
-
-
-