/ Check-in [e774adce]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix sqlite3_analyzer so that it works when compiled against Tcl8.5. (CVS 3458)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e774adce8e461a70ead9474cd64cb05c2d633eb9
User & Date: drh 2006-10-03 12:08:54
Context
2006-10-03
17:40
Add the OS-X locking style patches to os_unix.c. Disabled by default. (CVS 3459) check-in: f4103dea user: drh tags: trunk
12:08
Fix sqlite3_analyzer so that it works when compiled against Tcl8.5. (CVS 3458) check-in: e774adce user: drh tags: trunk
12:04
Fix sqlite3_analyzer so that it works on databases containing virtual tables. (CVS 3457) check-in: 47c8567f user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tool/spaceanal.tcl.

579
580
581
582
583
584
585

586

587
588
589
590
591
592
593
set user_payload [mem one {SELECT int(sum(payload)) FROM space_used
     WHERE NOT is_index AND name NOT LIKE 'sqlite_master'}]
set user_percent [percent $user_payload $file_bytes]

# Output the summary statistics calculated above.
#
puts "/** Disk-Space Utilization Report For $file_to_analyze"

puts "*** As of [clock format [clock seconds] -format {%Y-%b-%d %H:%M:%S}]"

puts ""
statline {Page size in bytes} $pageSize
statline {Pages in the whole file (measured)} $file_pgcnt
statline {Pages in the whole file (calculated)} $file_pgcnt2
statline {Pages that store data} $inuse_pgcnt $inuse_percent
statline {Pages on the freelist (per header)} $free_pgcnt2 $free_percent2
statline {Pages on the freelist (calculated)} $free_pgcnt $free_percent







>
|
>







579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
set user_payload [mem one {SELECT int(sum(payload)) FROM space_used
     WHERE NOT is_index AND name NOT LIKE 'sqlite_master'}]
set user_percent [percent $user_payload $file_bytes]

# Output the summary statistics calculated above.
#
puts "/** Disk-Space Utilization Report For $file_to_analyze"
catch {
  puts "*** As of [clock format [clock seconds] -format {%Y-%b-%d %H:%M:%S}]"
}
puts ""
statline {Page size in bytes} $pageSize
statline {Pages in the whole file (measured)} $file_pgcnt
statline {Pages in the whole file (calculated)} $file_pgcnt2
statline {Pages that store data} $inuse_pgcnt $inuse_percent
statline {Pages on the freelist (per header)} $free_pgcnt2 $free_percent2
statline {Pages on the freelist (calculated)} $free_pgcnt $free_percent