SQLite4  Check-in [33cc91541c]

  if( rc!=LSM_OK ) return rc;

  /* Format the contents of the snapshot as text */
  pTopLevel = lsmDbSnapshotLevel(pWorker);
  lsmStringInit(&s, pDb->pEnv);
  for(p=pTopLevel; rc==LSM_OK && p; p=p->pNext){
    int i;
    lsmStringAppendf(&s, "%s{%d", (s.n ? " " : ""), (int)p->iAge);
    lsmAppendSegmentList(&s, " ", &p->lhs);
    for(i=0; rc==LSM_OK && i<p->nRight; i++){
      lsmAppendSegmentList(&s, " ", &p->aRhs[i]);
    }
    lsmStringAppend(&s, "}", 1);
  }
  rc = s.n>=0 ? LSM_OK : LSM_NOMEM;

  set mySelected $tag
  $C itemconfigure $mySelected -fill grey

  eval $myScript [list $segment]
}

proc draw_level {C level tags} {
  set lhs [lindex $level 1]

  set l [lindex $tags end]
  draw_segment $C $lhs [concat $tags "$l.s0"]
  foreach {x1 y1 x2 y2} [$C bbox "$l.s0"] {}

  set i 0
  set y 0
  set x [expr $x2+10]
  foreach seg [lrange $level 2 end] {
    set tag "$l.s[incr i]"
    draw_segment $C $seg [concat $tags $tag]

    $C move $tag $x $y
    foreach {x1 y1 x2 y2} [$C bbox $tag] {}
    set y [expr $y2+$::G(vertical_padding)]
  }
}

proc draw_structure {canvas structure} {
  link_varset $canvas mySelected myVertShift

  set C $canvas
  set W [winfo width $C]

  # Figure out the scale to use.
  # 
  set nMaxWidth 0.0
  foreach level $structure {
    set nRight 0
    foreach seg [lrange $level 2 end] {
      set sz [lindex $seg 3]
      if {$sz > $nRight} { set nRight $sz }
    }
    set nLeft [lindex $level 1 3]
    set nTotal [log2 [expr max($nLeft, 2)]]
    if {$nRight} {set nTotal [expr $nTotal + [log2 [expr max($nRight, 2)]]]}
    if {$nTotal > $nMaxWidth} { set nMaxWidth $nTotal }
  }

  if { $nMaxWidth==0.0 } { set nMaxWidth 1.0 }
  set ::G(scale) [expr (($W-100) / $nMaxWidth)]

  set y [expr $::G(vertical_padding) / 2]
  set l -1
  foreach level $structure {
    set tag "l[incr l]"

    draw_level $C $level $tag
    foreach {x1 y1 x2 y2} [$C bbox $tag] {}
    $C move $tag [expr ($W-$x2)/2] $y
    incr y [expr $y2 + $::G(vertical_padding)]

    set age [lindex $level 0]
    foreach {x1 y1 x2 y2} [$C bbox $tag.text] {}
    $C create text 5 $y1 -anchor nw -text [string toupper "${tag} ($age):"]
  }

  if {[info exists myVertShift]} {
    set H [winfo height $C]
    set region [$C bbox all]
    if {$y < $H} { $C move all 0 [expr $H-$y] }
  }

  foreach {xt1 yt1 xt2 yt2} [$C bbox $to] {}

  set line [$C create line [expr ($xf1+$xf2)/2] $yf2 [expr ($xt1+$xt2)/2] $yt1]
  $C itemconfigure $line -arrow last 
}

proc draw_internal_pointers {C iLevel level} {
  set iAge [lindex $level 0]      ;# Age of this level
  set lSeg [lrange $level 1 end]  ;# List of segments that make up this level

  for {set j 2} {$j < [llength $lSeg]} {incr j} {
    if {[lindex $lSeg $j 2]==0} {
      draw_one_pointer $C "l$iLevel.s[expr $j-1]" "l$iLevel.s$j"
    }
  }
}

proc draw_pointers {C structure} {
  for {set i 0} {$i < [llength $structure]} {incr i} {
    draw_internal_pointers $C $i [lindex $structure $i]
  }

  for {set i 0} {$i < ([llength $structure]-1)} {incr i} {
    set i2 [expr $i+1]

    set l1 [lindex $structure $i]
    set l2 [lindex $structure $i2]

    # Set to true if levels $i and $i2 are currently undergoing a merge
    # (have one or more rhs segments), respectively.
    #
    set bMerge1 [expr [llength $l1]>2]
    set bMerge2 [expr [llength $l2]>2]

    if {$bMerge2} {
      if {[lindex $l2 2 2]==0} {
        draw_one_pointer $C "l$i.s0" "l$i2.s1"
        if {$bMerge1} {
          draw_one_pointer $C "l$i.s[expr [llength $l1]-2]" "l$i2.s1"
        }
      }
    } else {

      set bBtree [expr [lindex $l2 1 2]!=0]

      if {$bBtree==0 || $bMerge1} {
        draw_one_pointer $C "l$i.s0" "l$i2.s0"
      }
      if {$bBtree==0} {
        draw_one_pointer $C "l$i.s[expr [llength $l1]-2]" "l$i2.s0"
      }
    }
  }
}

# Argument $canvas is a canvas widget. Argument $db is the Tcl data 
# structure returned by an LSM_INFO_DB_STRUCTURE call. This procedure

  pack .pan -fill both -expand 1

  set mySelected "l0.s0.main"
  static_redraw $C
  bind $C <Configure>  [list static_redraw $C]
  bind $myTree <<TreeviewSelect>> [list static_treeview_select $C]

  static_select_callback $C [lindex $myData 0 1]
}

if {[llength $argv] > 2} {
  puts stderr "Usage: $argv0 ?CONFIG? ?DATABASE?"
  exit -1
}
if {[llength $argv]>0} {