Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Sqlite3_analyzer reports an error if it runs into trouble. (CVS 3021) |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
388b9262281308d0a9dd16e2fb3df342 |
| User & Date: | drh 2006-01-24 02:19:53.000 |
Context
|
2006-01-24
| ||
| 10:58 | General test coverage improvements. (CVS 3022) (check-in: 153940af5a user: danielk1977 tags: trunk) | |
| 02:19 | Sqlite3_analyzer reports an error if it runs into trouble. (CVS 3021) (check-in: 388b926228 user: drh tags: trunk) | |
| 02:00 | Update the publish scripts to correctly build the TCL DLL for windows. (CVS 3020) (check-in: 5254874a96 user: drh tags: trunk) | |
Changes
Changes to tool/spaceanal.tcl.
1 2 3 4 5 6 7 8 9 10 11 |
# Run this TCL script using "testfixture" in order get a report that shows
# how much disk space is used by a particular data to actually store data
# versus how much space is unused.
#
# Get the name of the database to analyze
#
#set argv $argv0
if {[llength $argv]!=1} {
puts stderr "Usage: $argv0 database-name"
exit 1
| > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 |
# Run this TCL script using "testfixture" in order get a report that shows
# how much disk space is used by a particular data to actually store data
# versus how much space is unused.
#
if {[catch {
# Get the name of the database to analyze
#
#set argv $argv0
if {[llength $argv]!=1} {
puts stderr "Usage: $argv0 database-name"
exit 1
|
| ︙ | ︙ | |||
795 796 797 798 799 800 801 |
if {$v=="" || ![string is double $v]} {set v [quote $v]}
puts -nonewline $sep$v
set sep ,
}
puts ");"
}
puts "COMMIT;"
| > > > > > > | 797 798 799 800 801 802 803 804 805 806 807 808 809 |
if {$v=="" || ![string is double $v]} {set v [quote $v]}
puts -nonewline $sep$v
set sep ,
}
puts ");"
}
puts "COMMIT;"
} err]} {
puts "ERROR: $err"
puts $errorInfo
exit 1
}
|