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: |
e774adce8e461a70ead9474cd64cb05c |
| 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
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
|