Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix minor display bugs in sqlite3_analyzer. (CVS 2431) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | d89aaba5b0fe6b2787531cadd7806ab5a3fdeb98 |
| User & Date: | drh 2005-03-29 13:18:17 |
Context
|
2005-03-29
| ||
| 13:19 | Change the date of the 3.2.1 release. (CVS 2432) check-in: afa42e2f user: drh tags: trunk | |
| 13:18 | Fix minor display bugs in sqlite3_analyzer. (CVS 2431) check-in: d89aaba5 user: drh tags: trunk | |
| 13:17 | Fix a C++-ism in the code. (CVS 2430) check-in: 312587ac user: drh tags: trunk | |
Changes
Changes to tool/spaceanal.tcl.
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
...
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
|
# Generate a formatted percentage value for $num/$denom
#
proc percent {num denom {of {}}} {
if {$denom==0.0} {return ""}
set v [expr {$num*100.0/$denom}]
set of {}
if {$v==1.0 || $v==0.0 || ($v>1.0 && $v<99.0)} {
return [format {%5.1f%% %s} $v $of]
} elseif {$v<0.1 || $v>99.9} {
return [format {%7.3f%% %s} $v $of]
} else {
return [format {%6.2f%% %s} $v $of]
}
}
................................................................................
# Output table rankings
#
puts ""
puts "*** Page counts for all tables with their indices ********************"
puts ""
mem eval {SELECT tblname, count(*) AS cnt,
int(sum(int_pages+leaf_pages+ovfl_pages)) AS size
FROM space_used GROUP BY tblname ORDER BY size DESC, tblname} {} {
statline [string toupper $tblname] $size [percent $size $file_pgcnt]
}
# Output subreports
#
if {$nindex>0} {
subreport {All tables and indices} 1
|
|
|
|
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
...
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
|
# Generate a formatted percentage value for $num/$denom
#
proc percent {num denom {of {}}} {
if {$denom==0.0} {return ""}
set v [expr {$num*100.0/$denom}]
set of {}
if {$v==100.0 || $v<0.001 || ($v>1.0 && $v<99.0)} {
return [format {%5.1f%% %s} $v $of]
} elseif {$v<0.1 || $v>99.9} {
return [format {%7.3f%% %s} $v $of]
} else {
return [format {%6.2f%% %s} $v $of]
}
}
................................................................................
# Output table rankings
#
puts ""
puts "*** Page counts for all tables with their indices ********************"
puts ""
mem eval {SELECT tblname, count(*) AS cnt,
int(sum(int_pages+leaf_pages+ovfl_pages)) AS size
FROM space_used GROUP BY tblname ORDER BY size+0 DESC, tblname} {} {
statline [string toupper $tblname] $size [percent $size $file_pgcnt]
}
# Output subreports
#
if {$nindex>0} {
subreport {All tables and indices} 1
|