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 |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
d89aaba5b0fe6b2787531cadd7806ab5 |
User & Date: | drh 2005-03-29 13:18:17.000 |
Context
2005-03-29
| ||
13:19 | Change the date of the 3.2.1 release. (CVS 2432) (check-in: afa42e2fa4 user: drh tags: trunk) | |
13:18 | Fix minor display bugs in sqlite3_analyzer. (CVS 2431) (check-in: d89aaba5b0 user: drh tags: trunk) | |
13:17 | Fix a C++-ism in the code. (CVS 2430) (check-in: 312587acf9 user: drh tags: trunk) | |
Changes
Changes to tool/spaceanal.tcl.
︙ | ︙ | |||
371 372 373 374 375 376 377 | # 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 {} | | | 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 | # 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] } } |
︙ | ︙ | |||
598 599 600 601 602 603 604 | # 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 | | | 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 | # 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 |
︙ | ︙ |