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