/ Hex Artifact Content
Login

Artifact b7a54595270c1d201abf1c3f3d461f27eaf24cdef623ad08a0fe5e411264c8a9:


0000: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65  .package require
0010: 20 73 71 6c 69 74 65 33 0a 70 61 63 6b 61 67 65   sqlite3.package
0020: 20 72 65 71 75 69 72 65 20 54 6b 0a 0a 23 23 23   require Tk..###
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0060: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0070: 23 23 23 23 23 23 23 23 23 23 0a 23 20 43 6f 64  ##########.# Cod
0080: 65 20 74 6f 20 73 65 74 20 75 70 20 73 63 72 6f  e to set up scro
0090: 6c 6c 62 61 72 73 20 66 6f 72 20 77 69 64 67 65  llbars for widge
00a0: 74 73 2e 20 54 68 69 73 20 69 73 20 67 65 6e 65  ts. This is gene
00b0: 72 69 63 2c 20 62 6f 72 69 6e 67 20 73 74 75 66  ric, boring stuf
00c0: 66 2e 0a 23 0a 6e 61 6d 65 73 70 61 63 65 20 65  f..#.namespace e
00d0: 76 61 6c 20 61 75 74 6f 73 63 72 6f 6c 6c 20 7b  val autoscroll {
00e0: 0a 20 20 70 72 6f 63 20 73 63 72 6f 6c 6c 61 62  .  proc scrollab
00f0: 6c 65 20 7b 77 69 64 67 65 74 20 70 61 74 68 20  le {widget path 
0100: 61 72 67 73 7d 20 7b 0a 20 20 20 20 3a 3a 74 74  args} {.    ::tt
0110: 6b 3a 3a 66 72 61 6d 65 20 24 70 61 74 68 0a 20  k::frame $path. 
0120: 20 20 20 73 65 74 20 77 20 20 5b 24 77 69 64 67     set w  [$widg
0130: 65 74 20 24 7b 70 61 74 68 7d 2e 77 69 64 67 65  et ${path}.widge
0140: 74 20 7b 2a 7d 24 61 72 67 73 5d 0a 20 20 20 20  t {*}$args].    
0150: 73 65 74 20 76 73 20 5b 3a 3a 74 74 6b 3a 3a 73  set vs [::ttk::s
0160: 63 72 6f 6c 6c 62 61 72 20 24 7b 70 61 74 68 7d  crollbar ${path}
0170: 2e 76 73 5d 0a 20 20 20 20 73 65 74 20 68 73 20  .vs].    set hs 
0180: 5b 3a 3a 74 74 6b 3a 3a 73 63 72 6f 6c 6c 62 61  [::ttk::scrollba
0190: 72 20 24 7b 70 61 74 68 7d 2e 68 73 20 2d 6f 72  r ${path}.hs -or
01a0: 69 65 6e 74 20 68 6f 72 69 7a 6f 6e 74 61 6c 5d  ient horizontal]
01b0: 0a 20 20 20 20 67 72 69 64 20 24 77 20 20 2d 72  .    grid $w  -r
01c0: 6f 77 20 30 20 2d 63 6f 6c 75 6d 6e 20 30 20 2d  ow 0 -column 0 -
01d0: 73 74 69 63 6b 79 20 6e 73 65 77 0a 20 20 0a 20  sticky nsew.  . 
01e0: 20 20 20 67 72 69 64 20 72 6f 77 63 6f 6e 66 69     grid rowconfi
01f0: 67 75 72 65 20 20 20 20 24 70 61 74 68 20 30 20  gure    $path 0 
0200: 2d 77 65 69 67 68 74 20 31 0a 20 20 20 20 67 72  -weight 1.    gr
0210: 69 64 20 63 6f 6c 75 6d 6e 63 6f 6e 66 69 67 75  id columnconfigu
0220: 72 65 20 24 70 61 74 68 20 30 20 2d 77 65 69 67  re $path 0 -weig
0230: 68 74 20 31 0a 20 20 0a 20 20 20 20 73 65 74 20  ht 1.  .    set 
0240: 67 72 69 64 20 5b 6c 69 73 74 20 67 72 69 64 20  grid [list grid 
0250: 24 76 73 20 2d 72 6f 77 20 30 20 2d 63 6f 6c 75  $vs -row 0 -colu
0260: 6d 6e 20 31 20 2d 73 74 69 63 6b 79 20 6e 73 65  mn 1 -sticky nse
0270: 77 5d 0a 20 20 20 20 24 77 20 63 6f 6e 66 69 67  w].    $w config
0280: 75 72 65 20 2d 79 73 63 72 6f 6c 6c 63 6f 6d 6d  ure -yscrollcomm
0290: 61 6e 64 20 5b 6c 69 73 74 20 3a 3a 61 75 74 6f  and [list ::auto
02a0: 73 63 72 6f 6c 6c 3a 3a 73 63 72 6f 6c 6c 63 6f  scroll::scrollco
02b0: 6d 6d 61 6e 64 20 24 67 72 69 64 20 24 76 73 5d  mmand $grid $vs]
02c0: 0a 20 20 20 20 24 76 73 20 63 6f 6e 66 69 67 75  .    $vs configu
02d0: 72 65 20 2d 63 6f 6d 6d 61 6e 64 20 20 20 20 20  re -command     
02e0: 20 20 5b 6c 69 73 74 20 24 77 20 79 76 69 65 77    [list $w yview
02f0: 5d 0a 20 20 20 20 73 65 74 20 67 72 69 64 20 5b  ].    set grid [
0300: 6c 69 73 74 20 67 72 69 64 20 24 68 73 20 2d 72  list grid $hs -r
0310: 6f 77 20 31 20 2d 63 6f 6c 75 6d 6e 20 30 20 2d  ow 1 -column 0 -
0320: 73 74 69 63 6b 79 20 6e 73 65 77 5d 0a 20 20 20  sticky nsew].   
0330: 20 24 77 20 63 6f 6e 66 69 67 75 72 65 20 2d 78   $w configure -x
0340: 73 63 72 6f 6c 6c 63 6f 6d 6d 61 6e 64 20 5b 6c  scrollcommand [l
0350: 69 73 74 20 3a 3a 61 75 74 6f 73 63 72 6f 6c 6c  ist ::autoscroll
0360: 3a 3a 73 63 72 6f 6c 6c 63 6f 6d 6d 61 6e 64 20  ::scrollcommand 
0370: 24 67 72 69 64 20 24 68 73 5d 0a 20 20 20 20 24  $grid $hs].    $
0380: 68 73 20 63 6f 6e 66 69 67 75 72 65 20 2d 63 6f  hs configure -co
0390: 6d 6d 61 6e 64 20 20 20 20 20 20 20 5b 6c 69 73  mmand       [lis
03a0: 74 20 24 77 20 78 76 69 65 77 5d 0a 20 20 0a 20  t $w xview].  . 
03b0: 20 20 20 72 65 74 75 72 6e 20 24 77 0a 20 20 7d     return $w.  }
03c0: 0a 20 20 70 72 6f 63 20 73 63 72 6f 6c 6c 63 6f  .  proc scrollco
03d0: 6d 6d 61 6e 64 20 7b 67 72 69 64 20 73 62 20 61  mmand {grid sb a
03e0: 72 67 73 7d 20 7b 0a 20 20 20 20 24 73 62 20 73  rgs} {.    $sb s
03f0: 65 74 20 7b 2a 7d 24 61 72 67 73 0a 20 20 20 20  et {*}$args.    
0400: 73 65 74 20 69 73 52 65 71 75 69 72 65 64 20 5b  set isRequired [
0410: 65 78 70 72 20 7b 5b 6c 69 6e 64 65 78 20 24 61  expr {[lindex $a
0420: 72 67 73 20 30 5d 20 21 3d 20 30 2e 30 20 7c 7c  rgs 0] != 0.0 ||
0430: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 31   [lindex $args 1
0440: 5d 20 21 3d 20 31 2e 30 7d 5d 0a 20 20 20 20 69  ] != 1.0}].    i
0450: 66 20 7b 24 69 73 52 65 71 75 69 72 65 64 20 26  f {$isRequired &
0460: 26 20 21 5b 77 69 6e 66 6f 20 69 73 6d 61 70 70  & ![winfo ismapp
0470: 65 64 20 24 73 62 5d 7d 20 7b 0a 20 20 20 20 20  ed $sb]} {.     
0480: 20 7b 2a 7d 24 67 72 69 64 0a 20 20 20 20 7d 0a   {*}$grid.    }.
0490: 20 20 20 20 69 66 20 7b 21 24 69 73 52 65 71 75      if {!$isRequ
04a0: 69 72 65 64 20 26 26 20 5b 77 69 6e 66 6f 20 69  ired && [winfo i
04b0: 73 6d 61 70 70 65 64 20 24 73 62 5d 7d 20 7b 0a  smapped $sb]} {.
04c0: 20 20 20 20 20 20 67 72 69 64 20 66 6f 72 67 65        grid forge
04d0: 74 20 24 73 62 0a 20 20 20 20 7d 0a 20 20 7d 0a  t $sb.    }.  }.
04e0: 20 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 6f    namespace expo
04f0: 72 74 20 73 63 72 6f 6c 6c 61 62 6c 65 0a 7d 0a  rt scrollable.}.
0500: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74  namespace import
0510: 20 3a 3a 61 75 74 6f 73 63 72 6f 6c 6c 3a 3a 2a   ::autoscroll::*
0520: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  .###############
0530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0550: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0560: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a  ##############..
0570: 70 72 6f 63 20 70 6f 70 75 6c 61 74 65 5f 74 65  proc populate_te
0580: 78 74 5f 77 69 64 67 65 74 20 7b 64 62 7d 20 7b  xt_widget {db} {
0590: 0a 20 20 24 3a 3a 4f 28 74 65 78 74 29 20 63 6f  .  $::O(text) co
05a0: 6e 66 69 67 75 72 65 20 2d 73 74 61 74 65 20 6e  nfigure -state n
05b0: 6f 72 6d 61 6c 0a 20 20 73 65 74 20 69 64 20 5b  ormal.  set id [
05c0: 6c 69 6e 64 65 78 20 5b 24 3a 3a 4f 28 74 72 65  lindex [$::O(tre
05d0: 65 29 20 73 65 6c 65 63 74 69 6f 6e 5d 20 30 5d  e) selection] 0]
05e0: 0a 20 20 73 65 74 20 66 72 61 6d 65 20 5b 6c 69  .  set frame [li
05f0: 6e 64 65 78 20 24 69 64 20 65 6e 64 5d 0a 0a 20  ndex $id end].. 
0600: 20 73 65 74 20 6c 69 6e 65 20 5b 24 64 62 20 6f   set line [$db o
0610: 6e 65 20 7b 53 45 4c 45 43 54 20 6c 69 6e 65 20  ne {SELECT line 
0620: 46 52 4f 4d 20 66 72 61 6d 65 20 57 48 45 52 45  FROM frame WHERE
0630: 20 66 72 61 6d 65 20 3d 20 24 66 72 61 6d 65 7d   frame = $frame}
0640: 5d 0a 20 20 69 66 20 7b 24 6c 69 6e 65 20 6e 65  ].  if {$line ne
0650: 20 22 22 7d 20 7b 0a 20 20 20 20 66 6f 72 65 61   ""} {.    forea
0660: 63 68 20 7b 66 69 6c 65 20 6c 69 6e 65 7d 20 5b  ch {file line} [
0670: 73 70 6c 69 74 20 24 6c 69 6e 65 20 3a 5d 20 7b  split $line :] {
0680: 7d 0a 20 20 20 20 73 65 74 20 63 6f 6e 74 65 6e  }.    set conten
0690: 74 20 5b 24 64 62 20 6f 6e 65 20 22 53 45 4c 45  t [$db one "SELE
06a0: 43 54 20 63 6f 6e 74 65 6e 74 20 46 52 4f 4d 20  CT content FROM 
06b0: 66 69 6c 65 20 57 48 45 52 45 20 6e 61 6d 65 20  file WHERE name 
06c0: 3d 20 27 24 66 69 6c 65 27 22 5d 0a 20 20 20 20  = '$file'"].    
06d0: 24 3a 3a 4f 28 74 65 78 74 29 20 64 65 6c 65 74  $::O(text) delet
06e0: 65 20 30 2e 30 20 65 6e 64 0a 0a 20 20 20 20 73  e 0.0 end..    s
06f0: 65 74 20 69 4c 69 6e 65 20 31 0a 20 20 20 20 66  et iLine 1.    f
0700: 6f 72 65 61 63 68 20 4c 20 5b 73 70 6c 69 74 20  oreach L [split 
0710: 24 63 6f 6e 74 65 6e 74 20 22 5c 6e 22 5d 20 7b  $content "\n"] {
0720: 0a 20 20 20 20 20 20 69 66 20 7b 24 69 4c 69 6e  .      if {$iLin
0730: 65 20 3d 3d 20 24 6c 69 6e 65 7d 20 7b 0a 20 20  e == $line} {.  
0740: 20 20 20 20 20 20 24 3a 3a 4f 28 74 65 78 74 29        $::O(text)
0750: 20 69 6e 73 65 72 74 20 65 6e 64 20 22 24 4c 5c   insert end "$L\
0760: 6e 22 20 68 69 67 68 6c 69 67 68 74 0a 20 20 20  n" highlight.   
0770: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
0780: 20 20 20 20 24 3a 3a 4f 28 74 65 78 74 29 20 69      $::O(text) i
0790: 6e 73 65 72 74 20 65 6e 64 20 22 24 4c 5c 6e 22  nsert end "$L\n"
07a0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69  .      }.      i
07b0: 6e 63 72 20 69 4c 69 6e 65 0a 20 20 20 20 7d 0a  ncr iLine.    }.
07c0: 20 20 20 20 24 3a 3a 4f 28 74 65 78 74 29 20 79      $::O(text) y
07d0: 76 69 65 77 20 2d 70 69 63 6b 70 6c 61 63 65 20  view -pickplace 
07e0: 24 7b 6c 69 6e 65 7d 2e 30 0a 20 20 7d 0a 20 20  ${line}.0.  }.  
07f0: 24 3a 3a 4f 28 74 65 78 74 29 20 63 6f 6e 66 69  $::O(text) confi
0800: 67 75 72 65 20 2d 73 74 61 74 65 20 64 69 73 61  gure -state disa
0810: 62 6c 65 64 0a 7d 0a 0a 70 72 6f 63 20 70 6f 70  bled.}..proc pop
0820: 75 6c 61 74 65 5f 69 6e 64 65 78 20 7b 64 62 7d  ulate_index {db}
0830: 20 7b 0a 20 20 24 3a 3a 4f 28 74 65 78 74 29 20   {.  $::O(text) 
0840: 63 6f 6e 66 69 67 75 72 65 20 2d 73 74 61 74 65  configure -state
0850: 20 6e 6f 72 6d 61 6c 0a 20 20 0a 20 20 24 3a 3a   normal.  .  $::
0860: 4f 28 74 65 78 74 29 20 64 65 6c 65 74 65 20 30  O(text) delete 0
0870: 2e 30 20 65 6e 64 0a 20 20 24 3a 3a 4f 28 74 65  .0 end.  $::O(te
0880: 78 74 29 20 69 6e 73 65 72 74 20 65 6e 64 20 22  xt) insert end "
0890: 5c 6e 5c 6e 22 0a 0a 20 20 73 65 74 20 4c 20 5b  \n\n"..  set L [
08a0: 66 6f 72 6d 61 74 20 22 20 20 20 20 25 20 2d 34  format "    % -4
08b0: 30 73 25 31 32 73 25 31 32 73 5c 6e 22 20 22 54  0s%12s%12s\n" "T
08c0: 65 73 74 20 43 61 73 65 22 20 22 41 6c 6c 6f 63  est Case" "Alloc
08d0: 61 74 69 6f 6e 73 22 20 22 42 79 74 65 73 22 5d  ations" "Bytes"]
08e0: 0a 20 20 24 3a 3a 4f 28 74 65 78 74 29 20 69 6e  .  $::O(text) in
08f0: 73 65 72 74 20 65 6e 64 20 24 4c 0a 20 20 24 3a  sert end $L.  $:
0900: 3a 4f 28 74 65 78 74 29 20 69 6e 73 65 72 74 20  :O(text) insert 
0910: 65 6e 64 20 22 20 20 20 20 5b 73 74 72 69 6e 67  end "    [string
0920: 20 72 65 70 65 61 74 20 2d 20 36 34 5d 5c 6e 22   repeat - 64]\n"
0930: 0a 0a 20 20 24 64 62 20 65 76 61 6c 20 7b 0a 20  ..  $db eval {. 
0940: 20 20 20 53 45 4c 45 43 54 20 27 54 4f 54 41 4c     SELECT 'TOTAL
0950: 27 20 41 53 20 7a 74 65 73 74 2c 20 73 75 6d 28  ' AS ztest, sum(
0960: 6e 63 61 6c 6c 29 20 41 53 20 63 61 6c 6c 73 2c  ncall) AS calls,
0970: 20 73 75 6d 28 6e 62 79 74 65 29 20 41 53 20 62   sum(nbyte) AS b
0980: 79 74 65 73 0a 20 20 20 20 46 52 4f 4d 20 6d 61  ytes.    FROM ma
0990: 6c 6c 6f 63 20 0a 20 20 20 20 20 20 55 4e 49 4f  lloc .      UNIO
09a0: 4e 20 41 4c 4c 0a 20 20 20 20 53 45 4c 45 43 54  N ALL.    SELECT
09b0: 20 7a 74 65 73 74 20 41 53 20 7a 74 65 73 74 2c   ztest AS ztest,
09c0: 20 73 75 6d 28 6e 63 61 6c 6c 29 20 41 53 20 63   sum(ncall) AS c
09d0: 61 6c 6c 73 2c 20 73 75 6d 28 6e 62 79 74 65 29  alls, sum(nbyte)
09e0: 20 41 53 20 62 79 74 65 73 0a 20 20 20 20 46 52   AS bytes.    FR
09f0: 4f 4d 20 6d 61 6c 6c 6f 63 20 0a 20 20 20 20 47  OM malloc .    G
0a00: 52 4f 55 50 20 42 59 20 7a 74 65 73 74 0a 0a 20  ROUP BY ztest.. 
0a10: 20 20 20 4f 52 44 45 52 20 42 59 20 33 20 44 45     ORDER BY 3 DE
0a20: 53 43 0a 20 20 7d 20 7b 0a 20 20 20 20 73 65 74  SC.  } {.    set
0a30: 20 74 61 67 73 20 5b 6c 69 73 74 20 24 7a 74 65   tags [list $zte
0a40: 73 74 5d 0a 20 20 20 20 69 66 20 7b 24 7a 74 65  st].    if {$zte
0a50: 73 74 20 65 71 20 24 3a 3a 4f 28 63 75 72 72 65  st eq $::O(curre
0a60: 6e 74 29 7d 20 7b 0a 20 20 20 20 20 20 6c 61 70  nt)} {.      lap
0a70: 70 65 6e 64 20 74 61 67 73 20 68 69 67 68 6c 69  pend tags highli
0a80: 67 68 74 0a 20 20 20 20 7d 0a 20 20 20 20 73 65  ght.    }.    se
0a90: 74 20 4c 20 5b 66 6f 72 6d 61 74 20 22 20 20 20  t L [format "   
0aa0: 20 25 20 2d 34 30 73 25 31 32 73 25 31 32 73 5c   % -40s%12s%12s\
0ab0: 6e 22 20 24 7a 74 65 73 74 20 24 63 61 6c 6c 73  n" $ztest $calls
0ac0: 20 24 62 79 74 65 73 5d 0a 20 20 20 20 24 3a 3a   $bytes].    $::
0ad0: 4f 28 74 65 78 74 29 20 69 6e 73 65 72 74 20 65  O(text) insert e
0ae0: 6e 64 20 24 4c 20 24 74 61 67 73 0a 0a 20 20 20  nd $L $tags..   
0af0: 20 24 3a 3a 4f 28 74 65 78 74 29 20 74 61 67 20   $::O(text) tag 
0b00: 62 69 6e 64 20 24 7a 74 65 73 74 20 3c 31 3e 20  bind $ztest <1> 
0b10: 5b 6c 69 73 74 20 70 6f 70 75 6c 61 74 65 5f 74  [list populate_t
0b20: 72 65 65 5f 77 69 64 67 65 74 20 24 64 62 20 24  ree_widget $db $
0b30: 7a 74 65 73 74 5d 0a 20 20 20 20 24 3a 3a 4f 28  ztest].    $::O(
0b40: 74 65 78 74 29 20 74 61 67 20 62 69 6e 64 20 24  text) tag bind $
0b50: 7a 74 65 73 74 20 3c 45 6e 74 65 72 3e 20 5b 6c  ztest <Enter> [l
0b60: 69 73 74 20 24 3a 3a 4f 28 74 65 78 74 29 20 63  ist $::O(text) c
0b70: 6f 6e 66 69 67 75 72 65 20 2d 63 75 72 73 6f 72  onfigure -cursor
0b80: 20 68 61 6e 64 32 5d 0a 20 20 20 20 24 3a 3a 4f   hand2].    $::O
0b90: 28 74 65 78 74 29 20 74 61 67 20 62 69 6e 64 20  (text) tag bind 
0ba0: 24 7a 74 65 73 74 20 3c 4c 65 61 76 65 3e 20 5b  $ztest <Leave> [
0bb0: 6c 69 73 74 20 24 3a 3a 4f 28 74 65 78 74 29 20  list $::O(text) 
0bc0: 63 6f 6e 66 69 67 75 72 65 20 2d 63 75 72 73 6f  configure -curso
0bd0: 72 20 22 22 5d 0a 20 20 7d 0a 0a 20 20 24 3a 3a  r ""].  }..  $::
0be0: 4f 28 74 65 78 74 29 20 63 6f 6e 66 69 67 75 72  O(text) configur
0bf0: 65 20 2d 73 74 61 74 65 20 64 69 73 61 62 6c 65  e -state disable
0c00: 64 0a 7d 0a 0a 70 72 6f 63 20 73 6f 72 74 5f 74  d.}..proc sort_t
0c10: 72 65 65 5f 63 6f 6d 70 61 72 65 20 7b 69 4c 65  ree_compare {iLe
0c20: 66 74 20 69 52 69 67 68 74 7d 20 7b 0a 20 20 67  ft iRight} {.  g
0c30: 6c 6f 62 61 6c 20 4f 0a 20 20 73 77 69 74 63 68  lobal O.  switch
0c40: 20 2d 2d 20 5b 65 78 70 72 20 28 69 6e 74 28 24   -- [expr (int($
0c50: 4f 28 74 72 65 65 5f 73 6f 72 74 29 2f 32 29 29  O(tree_sort)/2))
0c60: 5d 20 7b 0a 20 20 20 20 30 20 7b 0a 20 20 20 20  ] {.    0 {.    
0c70: 20 20 73 65 74 20 6c 65 66 74 20 20 5b 24 4f 28    set left  [$O(
0c80: 74 72 65 65 29 20 69 74 65 6d 20 24 69 4c 65 66  tree) item $iLef
0c90: 74 20 2d 74 65 78 74 5d 0a 20 20 20 20 20 20 73  t -text].      s
0ca0: 65 74 20 72 69 67 68 74 20 5b 24 4f 28 74 72 65  et right [$O(tre
0cb0: 65 29 20 69 74 65 6d 20 24 69 52 69 67 68 74 20  e) item $iRight 
0cc0: 2d 74 65 78 74 5d 0a 20 20 20 20 20 20 73 65 74  -text].      set
0cd0: 20 72 65 73 20 5b 73 74 72 69 6e 67 20 63 6f 6d   res [string com
0ce0: 70 61 72 65 20 24 6c 65 66 74 20 24 72 69 67 68  pare $left $righ
0cf0: 74 5d 0a 20 20 20 20 7d 0a 20 20 20 20 31 20 7b  t].    }.    1 {
0d00: 0a 20 20 20 20 20 20 73 65 74 20 6c 65 66 74 20  .      set left 
0d10: 20 5b 6c 69 6e 64 65 78 20 5b 24 4f 28 74 72 65   [lindex [$O(tre
0d20: 65 29 20 69 74 65 6d 20 24 69 4c 65 66 74 20 2d  e) item $iLeft -
0d30: 76 61 6c 75 65 73 5d 20 30 5d 0a 20 20 20 20 20  values] 0].     
0d40: 20 73 65 74 20 72 69 67 68 74 20 5b 6c 69 6e 64   set right [lind
0d50: 65 78 20 5b 24 4f 28 74 72 65 65 29 20 69 74 65  ex [$O(tree) ite
0d60: 6d 20 24 69 52 69 67 68 74 20 2d 76 61 6c 75 65  m $iRight -value
0d70: 73 5d 20 30 5d 0a 20 20 20 20 20 20 73 65 74 20  s] 0].      set 
0d80: 72 65 73 20 5b 65 78 70 72 20 24 6c 65 66 74 20  res [expr $left 
0d90: 2d 20 24 72 69 67 68 74 5d 0a 20 20 20 20 7d 0a  - $right].    }.
0da0: 20 20 20 20 32 20 7b 0a 20 20 20 20 20 20 73 65      2 {.      se
0db0: 74 20 6c 65 66 74 20 20 5b 6c 69 6e 64 65 78 20  t left  [lindex 
0dc0: 5b 24 4f 28 74 72 65 65 29 20 69 74 65 6d 20 24  [$O(tree) item $
0dd0: 69 4c 65 66 74 20 2d 76 61 6c 75 65 73 5d 20 31  iLeft -values] 1
0de0: 5d 0a 20 20 20 20 20 20 73 65 74 20 72 69 67 68  ].      set righ
0df0: 74 20 5b 6c 69 6e 64 65 78 20 5b 24 4f 28 74 72  t [lindex [$O(tr
0e00: 65 65 29 20 69 74 65 6d 20 24 69 52 69 67 68 74  ee) item $iRight
0e10: 20 2d 76 61 6c 75 65 73 5d 20 31 5d 0a 20 20 20   -values] 1].   
0e20: 20 20 20 73 65 74 20 72 65 73 20 5b 65 78 70 72     set res [expr
0e30: 20 24 6c 65 66 74 20 2d 20 24 72 69 67 68 74 5d   $left - $right]
0e40: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 20  .    }.  }.  if 
0e50: 7b 24 4f 28 74 72 65 65 5f 73 6f 72 74 29 26 30  {$O(tree_sort)&0
0e60: 78 30 31 7d 20 7b 0a 20 20 20 20 73 65 74 20 72  x01} {.    set r
0e70: 65 73 20 5b 65 78 70 72 20 2d 31 20 2a 20 24 72  es [expr -1 * $r
0e80: 65 73 5d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  es].  }.  return
0e90: 20 24 72 65 73 0a 7d 0a 0a 70 72 6f 63 20 73 6f   $res.}..proc so
0ea0: 72 74 5f 74 72 65 65 20 7b 69 4d 6f 64 65 7d 20  rt_tree {iMode} 
0eb0: 7b 0a 20 20 67 6c 6f 62 61 6c 20 4f 0a 20 20 69  {.  global O.  i
0ec0: 66 20 7b 24 4f 28 74 72 65 65 5f 73 6f 72 74 29  f {$O(tree_sort)
0ed0: 20 3d 3d 20 24 69 4d 6f 64 65 7d 20 7b 0a 20 20   == $iMode} {.  
0ee0: 20 20 69 6e 63 72 20 4f 28 74 72 65 65 5f 73 6f    incr O(tree_so
0ef0: 72 74 29 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20  rt).  } else {. 
0f00: 20 20 20 73 65 74 20 4f 28 74 72 65 65 5f 73 6f     set O(tree_so
0f10: 72 74 29 20 24 69 4d 6f 64 65 0a 20 20 7d 0a 20  rt) $iMode.  }. 
0f20: 20 73 65 74 20 54 20 24 4f 28 74 72 65 65 29 0a   set T $O(tree).
0f30: 20 20 73 65 74 20 69 74 65 6d 73 20 5b 24 54 20    set items [$T 
0f40: 63 68 69 6c 64 72 65 6e 20 7b 7d 5d 0a 20 20 73  children {}].  s
0f50: 65 74 20 69 74 65 6d 73 20 5b 6c 73 6f 72 74 20  et items [lsort 
0f60: 2d 63 6f 6d 6d 61 6e 64 20 73 6f 72 74 5f 74 72  -command sort_tr
0f70: 65 65 5f 63 6f 6d 70 61 72 65 20 24 69 74 65 6d  ee_compare $item
0f80: 73 5d 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 69  s].  for {set ii
0f90: 20 30 7d 20 7b 24 69 69 20 3c 20 5b 6c 6c 65 6e   0} {$ii < [llen
0fa0: 67 74 68 20 24 69 74 65 6d 73 5d 7d 20 7b 69 6e  gth $items]} {in
0fb0: 63 72 20 69 69 7d 20 7b 0a 20 20 20 20 24 54 20  cr ii} {.    $T 
0fc0: 6d 6f 76 65 20 5b 6c 69 6e 64 65 78 20 24 69 74  move [lindex $it
0fd0: 65 6d 73 20 24 69 69 5d 20 7b 7d 20 24 69 69 0a  ems $ii] {} $ii.
0fe0: 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 74 72 69 6d    }.}..proc trim
0ff0: 5f 66 72 61 6d 65 73 20 7b 73 74 61 63 6b 7d 20  _frames {stack} 
1000: 7b 0a 20 20 77 68 69 6c 65 20 7b 5b 69 6e 66 6f  {.  while {[info
1010: 20 65 78 69 73 74 73 20 3a 3a 4f 28 69 67 6e 6f   exists ::O(igno
1020: 72 65 2e 5b 6c 69 6e 64 65 78 20 24 73 74 61 63  re.[lindex $stac
1030: 6b 20 30 5d 29 5d 7d 20 7b 0a 20 20 20 20 73 65  k 0])]} {.    se
1040: 74 20 73 74 61 63 6b 20 5b 6c 72 61 6e 67 65 20  t stack [lrange 
1050: 24 73 74 61 63 6b 20 31 20 65 6e 64 5d 0a 20 20  $stack 1 end].  
1060: 7d 0a 20 20 72 65 74 75 72 6e 20 24 73 74 61 63  }.  return $stac
1070: 6b 0a 7d 0a 0a 70 72 6f 63 20 70 6f 70 75 6c 61  k.}..proc popula
1080: 74 65 5f 74 72 65 65 5f 77 69 64 67 65 74 20 7b  te_tree_widget {
1090: 64 62 20 7a 54 65 73 74 7d 20 7b 0a 20 20 24 3a  db zTest} {.  $:
10a0: 3a 4f 28 74 72 65 65 29 20 64 65 6c 65 74 65 20  :O(tree) delete 
10b0: 5b 24 3a 3a 4f 28 74 72 65 65 29 20 63 68 69 6c  [$::O(tree) chil
10c0: 64 72 65 6e 20 7b 7d 5d 0a 0a 20 20 66 6f 72 20  dren {}]..  for 
10d0: 7b 73 65 74 20 69 69 20 30 7d 20 7b 24 69 69 20  {set ii 0} {$ii 
10e0: 3c 20 31 35 7d 20 7b 69 6e 63 72 20 69 69 7d 20  < 15} {incr ii} 
10f0: 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20 7b  {.    $db eval {
1100: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 0a 20  .      SELECT . 
1110: 20 20 20 20 20 20 20 73 75 6d 28 6e 63 61 6c 6c         sum(ncall
1120: 29 20 41 53 20 63 61 6c 6c 73 2c 20 0a 20 20 20  ) AS calls, .   
1130: 20 20 20 20 20 73 75 6d 28 6e 62 79 74 65 29 20       sum(nbyte) 
1140: 41 53 20 62 79 74 65 73 2c 0a 20 20 20 20 20 20  AS bytes,.      
1150: 20 20 74 72 69 6d 5f 66 72 61 6d 65 73 28 6c 72    trim_frames(lr
1160: 61 6e 67 65 28 6c 73 74 61 63 6b 2c 20 30 2c 20  ange(lstack, 0, 
1170: 24 69 69 29 29 20 41 53 20 73 74 61 63 6b 0a 20  $ii)) AS stack. 
1180: 20 20 20 20 20 46 52 4f 4d 20 6d 61 6c 6c 6f 63       FROM malloc
1190: 0a 20 20 20 20 20 20 57 48 45 52 45 20 28 7a 54  .      WHERE (zT
11a0: 65 73 74 20 3d 20 24 7a 54 65 73 74 20 4f 52 20  est = $zTest OR 
11b0: 24 7a 54 65 73 74 20 3d 20 27 54 4f 54 41 4c 27  $zTest = 'TOTAL'
11c0: 29 20 41 4e 44 20 6c 6c 65 6e 67 74 68 28 6c 73  ) AND llength(ls
11d0: 74 61 63 6b 29 3e 24 69 69 0a 20 20 20 20 20 20  tack)>$ii.      
11e0: 47 52 4f 55 50 20 42 59 20 73 74 61 63 6b 0a 20  GROUP BY stack. 
11f0: 20 20 20 20 20 48 41 56 49 4e 47 20 73 74 61 63       HAVING stac
1200: 6b 20 21 3d 20 27 27 0a 20 20 20 20 7d 20 7b 0a  k != ''.    } {.
1210: 20 20 20 20 20 20 73 65 74 20 70 61 72 65 6e 74        set parent
1220: 5f 69 64 20 5b 6c 72 61 6e 67 65 20 24 73 74 61  _id [lrange $sta
1230: 63 6b 20 30 20 65 6e 64 2d 31 5d 0a 20 20 20 20  ck 0 end-1].    
1240: 20 20 73 65 74 20 66 72 61 6d 65 20 5b 6c 69 6e    set frame [lin
1250: 64 65 78 20 24 73 74 61 63 6b 20 65 6e 64 5d 0a  dex $stack end].
1260: 20 20 20 20 20 20 73 65 74 20 6c 69 6e 65 20 5b        set line [
1270: 24 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54 20  $db one {SELECT 
1280: 6c 69 6e 65 20 46 52 4f 4d 20 66 72 61 6d 65 20  line FROM frame 
1290: 57 48 45 52 45 20 66 72 61 6d 65 20 3d 20 24 66  WHERE frame = $f
12a0: 72 61 6d 65 7d 5d 0a 20 20 20 20 20 20 73 65 74  rame}].      set
12b0: 20 6c 69 6e 65 20 5b 6c 69 6e 64 65 78 20 5b 73   line [lindex [s
12c0: 70 6c 69 74 20 24 6c 69 6e 65 20 2f 5d 20 65 6e  plit $line /] en
12d0: 64 5d 0a 20 20 20 20 20 20 73 65 74 20 76 20 5b  d].      set v [
12e0: 6c 69 73 74 20 24 63 61 6c 6c 73 20 24 62 79 74  list $calls $byt
12f0: 65 73 5d 0a 0a 20 20 20 20 20 20 63 61 74 63 68  es]..      catch
1300: 20 7b 0a 20 20 20 20 20 20 20 20 24 3a 3a 4f 28   {.        $::O(
1310: 74 72 65 65 29 20 69 6e 73 65 72 74 20 24 70 61  tree) insert $pa
1320: 72 65 6e 74 5f 69 64 20 65 6e 64 20 2d 69 64 20  rent_id end -id 
1330: 24 73 74 61 63 6b 20 2d 74 65 78 74 20 24 6c 69  $stack -text $li
1340: 6e 65 20 2d 76 61 6c 75 65 73 20 24 76 0a 20 20  ne -values $v.  
1350: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a      }.    }.  }.
1360: 0a 20 20 73 65 74 20 3a 3a 4f 28 63 75 72 72 65  .  set ::O(curre
1370: 6e 74 29 20 24 7a 54 65 73 74 0a 20 20 70 6f 70  nt) $zTest.  pop
1380: 75 6c 61 74 65 5f 69 6e 64 65 78 20 24 64 62 0a  ulate_index $db.
1390: 7d 0a 0a 0a 0a 73 65 74 20 4f 28 74 72 65 65 5f  }....set O(tree_
13a0: 73 6f 72 74 29 20 30 0a 0a 3a 3a 74 74 6b 3a 3a  sort) 0..::ttk::
13b0: 70 61 6e 65 64 77 69 6e 64 6f 77 20 2e 70 61 6e  panedwindow .pan
13c0: 20 2d 6f 72 69 65 6e 74 20 68 6f 72 69 7a 6f 6e   -orient horizon
13d0: 74 61 6c 0a 73 65 74 20 4f 28 74 72 65 65 29 20  tal.set O(tree) 
13e0: 5b 73 63 72 6f 6c 6c 61 62 6c 65 20 3a 3a 74 74  [scrollable ::tt
13f0: 6b 3a 3a 74 72 65 65 76 69 65 77 20 2e 70 61 6e  k::treeview .pan
1400: 2e 74 72 65 65 5d 0a 0a 66 72 61 6d 65 20 2e 70  .tree]..frame .p
1410: 61 6e 2e 72 69 67 68 74 0a 73 65 74 20 4f 28 74  an.right.set O(t
1420: 65 78 74 29 20 5b 73 63 72 6f 6c 6c 61 62 6c 65  ext) [scrollable
1430: 20 74 65 78 74 20 2e 70 61 6e 2e 72 69 67 68 74   text .pan.right
1440: 2e 74 65 78 74 5d 0a 62 75 74 74 6f 6e 20 2e 70  .text].button .p
1450: 61 6e 2e 72 69 67 68 74 2e 69 6e 64 65 78 20 2d  an.right.index -
1460: 63 6f 6d 6d 61 6e 64 20 7b 70 6f 70 75 6c 61 74  command {populat
1470: 65 5f 69 6e 64 65 78 20 6d 64 64 62 7d 20 2d 74  e_index mddb} -t
1480: 65 78 74 20 22 53 68 6f 77 20 49 6e 64 65 78 22  ext "Show Index"
1490: 0a 70 61 63 6b 20 2e 70 61 6e 2e 72 69 67 68 74  .pack .pan.right
14a0: 2e 69 6e 64 65 78 20 2d 73 69 64 65 20 74 6f 70  .index -side top
14b0: 20 2d 66 69 6c 6c 20 78 0a 70 61 63 6b 20 2e 70   -fill x.pack .p
14c0: 61 6e 2e 72 69 67 68 74 2e 74 65 78 74 20 2d 66  an.right.text -f
14d0: 69 6c 6c 20 62 6f 74 68 20 2d 65 78 70 61 6e 64  ill both -expand
14e0: 20 74 72 75 65 0a 0a 24 4f 28 74 65 78 74 29 20   true..$O(text) 
14f0: 74 61 67 20 63 6f 6e 66 69 67 75 72 65 20 68 69  tag configure hi
1500: 67 68 6c 69 67 68 74 20 2d 62 61 63 6b 67 72 6f  ghlight -backgro
1510: 75 6e 64 20 77 68 65 61 74 0a 24 4f 28 74 65 78  und wheat.$O(tex
1520: 74 29 20 63 6f 6e 66 69 67 75 72 65 20 2d 77 72  t) configure -wr
1530: 61 70 20 6e 6f 6e 65 20 2d 68 65 69 67 68 74 20  ap none -height 
1540: 33 35 0a 0a 2e 70 61 6e 20 61 64 64 20 2e 70 61  35...pan add .pa
1550: 6e 2e 74 72 65 65 0a 2e 70 61 6e 20 61 64 64 20  n.tree..pan add 
1560: 2e 70 61 6e 2e 72 69 67 68 74 0a 0a 24 4f 28 74  .pan.right..$O(t
1570: 72 65 65 29 20 63 6f 6e 66 69 67 75 72 65 20 20  ree) configure  
1580: 20 20 20 2d 63 6f 6c 75 6d 6e 73 20 7b 63 61 6c     -columns {cal
1590: 6c 73 20 62 79 74 65 73 7d 0a 24 4f 28 74 72 65  ls bytes}.$O(tre
15a0: 65 29 20 68 65 61 64 69 6e 67 20 23 30 20 20 20  e) heading #0   
15b0: 20 2d 74 65 78 74 20 4c 69 6e 65 20 20 2d 61 6e   -text Line  -an
15c0: 63 68 6f 72 20 77 20 2d 63 6f 6d 6d 61 6e 64 20  chor w -command 
15d0: 7b 73 6f 72 74 5f 74 72 65 65 20 30 7d 0a 24 4f  {sort_tree 0}.$O
15e0: 28 74 72 65 65 29 20 68 65 61 64 69 6e 67 20 63  (tree) heading c
15f0: 61 6c 6c 73 20 2d 74 65 78 74 20 43 61 6c 6c 73  alls -text Calls
1600: 20 2d 61 6e 63 68 6f 72 20 77 20 2d 63 6f 6d 6d   -anchor w -comm
1610: 61 6e 64 20 7b 73 6f 72 74 5f 74 72 65 65 20 32  and {sort_tree 2
1620: 7d 0a 24 4f 28 74 72 65 65 29 20 68 65 61 64 69  }.$O(tree) headi
1630: 6e 67 20 62 79 74 65 73 20 2d 74 65 78 74 20 42  ng bytes -text B
1640: 79 74 65 73 20 2d 61 6e 63 68 6f 72 20 77 20 2d  ytes -anchor w -
1650: 63 6f 6d 6d 61 6e 64 20 7b 73 6f 72 74 5f 74 72  command {sort_tr
1660: 65 65 20 34 7d 0a 24 4f 28 74 72 65 65 29 20 63  ee 4}.$O(tree) c
1670: 6f 6c 75 6d 6e 20 23 30 20 20 20 20 2d 77 69 64  olumn #0    -wid
1680: 74 68 20 31 35 30 0a 24 4f 28 74 72 65 65 29 20  th 150.$O(tree) 
1690: 63 6f 6c 75 6d 6e 20 63 61 6c 6c 73 20 2d 77 69  column calls -wi
16a0: 64 74 68 20 31 30 30 0a 24 4f 28 74 72 65 65 29  dth 100.$O(tree)
16b0: 20 63 6f 6c 75 6d 6e 20 62 79 74 65 73 20 2d 77   column bytes -w
16c0: 69 64 74 68 20 31 30 30 0a 0a 70 61 63 6b 20 2e  idth 100..pack .
16d0: 70 61 6e 20 2d 66 69 6c 6c 20 62 6f 74 68 20 2d  pan -fill both -
16e0: 65 78 70 61 6e 64 20 31 0a 0a 23 2d 2d 2d 2d 2d  expand 1..#-----
16f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
1730: 23 20 4f 70 65 6e 20 74 68 65 20 64 61 74 61 62  # Open the datab
1740: 61 73 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74  ase containing t
1750: 68 65 20 6d 61 6c 6c 6f 63 20 64 61 74 61 2e 20  he malloc data. 
1760: 54 68 65 20 75 73 65 72 20 73 70 65 63 69 66 69  The user specifi
1770: 65 73 20 74 68 65 0a 23 20 64 61 74 61 62 61 73  es the.# databas
1780: 65 20 74 6f 20 75 73 65 20 62 79 20 70 61 73 73  e to use by pass
1790: 69 6e 67 20 74 68 65 20 66 69 6c 65 2d 6e 61 6d  ing the file-nam
17a0: 65 20 6f 6e 20 74 68 65 20 63 6f 6d 6d 61 6e 64  e on the command
17b0: 20 6c 69 6e 65 2e 0a 23 0a 70 72 6f 63 20 6f 70   line..#.proc op
17c0: 65 6e 5f 64 61 74 61 62 61 73 65 20 7b 7d 20 7b  en_database {} {
17d0: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .  if {[info exi
17e0: 73 74 73 20 3a 3a 42 55 49 4c 54 49 4e 5d 7d 20  sts ::BUILTIN]} 
17f0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 20 6d 64  {.    sqlite3 md
1800: 64 62 20 3a 6d 65 6d 6f 72 79 3a 0a 20 20 20 20  db :memory:.    
1810: 6d 64 64 62 20 65 76 61 6c 20 24 3a 3a 42 55 49  mddb eval $::BUI
1820: 4c 54 49 4e 0a 20 20 20 20 77 6d 20 74 69 74 6c  LTIN.    wm titl
1830: 65 20 2e 20 24 3a 3a 61 72 67 76 30 0a 20 20 7d  e . $::argv0.  }
1840: 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20   else {.    set 
1850: 7a 46 69 6c 65 6e 61 6d 65 20 5b 6c 69 6e 64 65  zFilename [linde
1860: 78 20 24 3a 3a 61 72 67 76 20 30 5d 0a 20 20 20  x $::argv 0].   
1870: 20 69 66 20 7b 24 7a 46 69 6c 65 6e 61 6d 65 20   if {$zFilename 
1880: 65 71 20 22 22 7d 20 7b 0a 20 20 20 20 20 20 73  eq ""} {.      s
1890: 65 74 20 7a 46 69 6c 65 6e 61 6d 65 20 6d 61 6c  et zFilename mal
18a0: 6c 6f 63 73 2e 73 71 6c 0a 20 20 20 20 7d 0a 20  locs.sql.    }. 
18b0: 20 20 20 73 65 74 20 66 64 20 5b 6f 70 65 6e 20     set fd [open 
18c0: 24 7a 46 69 6c 65 6e 61 6d 65 5d 0a 20 20 20 20  $zFilename].    
18d0: 73 65 74 20 7a 48 64 72 20 5b 72 65 61 64 20 24  set zHdr [read $
18e0: 66 64 20 31 35 5d 0a 20 20 20 20 69 66 20 7b 24  fd 15].    if {$
18f0: 7a 48 64 72 20 65 71 20 22 53 51 4c 69 74 65 20  zHdr eq "SQLite 
1900: 66 6f 72 6d 61 74 20 33 22 7d 20 7b 0a 20 20 20  format 3"} {.   
1910: 20 20 20 63 6c 6f 73 65 20 24 66 64 0a 20 20 20     close $fd.   
1920: 20 20 20 73 71 6c 69 74 65 33 20 6d 64 64 62 20     sqlite3 mddb 
1930: 24 7a 46 69 6c 65 6e 61 6d 65 0a 20 20 20 20 7d  $zFilename.    }
1940: 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 73 65   else {.      se
1950: 65 6b 20 24 66 64 20 30 0a 20 20 20 20 20 20 73  ek $fd 0.      s
1960: 71 6c 69 74 65 33 20 6d 64 64 62 20 3a 6d 65 6d  qlite3 mddb :mem
1970: 6f 72 79 3a 0a 20 20 20 20 20 20 6d 64 64 62 20  ory:.      mddb 
1980: 65 76 61 6c 20 5b 72 65 61 64 20 24 66 64 5d 0a  eval [read $fd].
1990: 20 20 20 20 20 20 63 6c 6f 73 65 20 24 66 64 0a        close $fd.
19a0: 20 20 20 20 7d 0a 20 20 20 20 77 6d 20 74 69 74      }.    wm tit
19b0: 6c 65 20 2e 20 24 7a 46 69 6c 65 6e 61 6d 65 0a  le . $zFilename.
19c0: 20 20 7d 0a 0a 20 20 6d 64 64 62 20 66 75 6e 63    }..  mddb func
19d0: 74 69 6f 6e 20 6c 72 61 6e 67 65 20 2d 61 72 67  tion lrange -arg
19e0: 63 6f 75 6e 74 20 33 20 6c 72 61 6e 67 65 0a 20  count 3 lrange. 
19f0: 20 6d 64 64 62 20 66 75 6e 63 74 69 6f 6e 20 6c   mddb function l
1a00: 6c 65 6e 67 74 68 20 2d 61 72 67 63 6f 75 6e 74  length -argcount
1a10: 20 31 20 6c 6c 65 6e 67 74 68 0a 20 20 6d 64 64   1 llength.  mdd
1a20: 62 20 66 75 6e 63 74 69 6f 6e 20 74 72 69 6d 5f  b function trim_
1a30: 66 72 61 6d 65 73 20 2d 61 72 67 63 6f 75 6e 74  frames -argcount
1a40: 20 31 20 74 72 69 6d 5f 66 72 61 6d 65 73 0a 0a   1 trim_frames..
1a50: 20 20 6d 64 64 62 20 65 76 61 6c 20 7b 0a 20 20    mddb eval {.  
1a60: 20 20 53 45 4c 45 43 54 20 66 72 61 6d 65 20 46    SELECT frame F
1a70: 52 4f 4d 20 66 72 61 6d 65 20 0a 20 20 20 20 57  ROM frame .    W
1a80: 48 45 52 45 20 6c 69 6e 65 20 4c 49 4b 45 20 27  HERE line LIKE '
1a90: 25 6d 61 6c 6c 6f 63 2e 63 3a 25 27 20 4f 52 20  %malloc.c:%' OR 
1aa0: 6c 69 6e 65 20 4c 49 4b 45 20 27 25 6d 65 6d 32  line LIKE '%mem2
1ab0: 2e 63 3a 25 27 0a 20 20 7d 20 7b 0a 20 20 20 20  .c:%'.  } {.    
1ac0: 73 65 74 20 3a 3a 4f 28 69 67 6e 6f 72 65 2e 24  set ::O(ignore.$
1ad0: 66 72 61 6d 65 29 20 31 0a 20 20 7d 0a 7d 0a 0a  frame) 1.  }.}..
1ae0: 6f 70 65 6e 5f 64 61 74 61 62 61 73 65 0a 62 69  open_database.bi
1af0: 6e 64 20 24 4f 28 74 72 65 65 29 20 3c 3c 54 72  nd $O(tree) <<Tr
1b00: 65 65 76 69 65 77 53 65 6c 65 63 74 3e 3e 20 5b  eeviewSelect>> [
1b10: 6c 69 73 74 20 70 6f 70 75 6c 61 74 65 5f 74 65  list populate_te
1b20: 78 74 5f 77 69 64 67 65 74 20 6d 64 64 62 5d 0a  xt_widget mddb].
1b30: 0a 70 6f 70 75 6c 61 74 65 5f 74 72 65 65 5f 77  .populate_tree_w
1b40: 69 64 67 65 74 20 6d 64 64 62 20 5b 6d 64 64 62  idget mddb [mddb
1b50: 20 6f 6e 65 20 7b 53 45 4c 45 43 54 20 7a 54 65   one {SELECT zTe
1b60: 73 74 20 46 52 4f 4d 20 6d 61 6c 6c 6f 63 20 4c  st FROM malloc L
1b70: 49 4d 49 54 20 31 7d 5d 0a 0a                    IMIT 1}]..