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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 388b9262281308d0a9dd16e2fb3df3425c2a491a |
| User & Date: | drh 2006-01-24 02:19:53 |
Context
|
2006-01-24
| ||
| 10:58 | General test coverage improvements. (CVS 3022) check-in: 153940af user: danielk1977 tags: trunk | |
| 02:19 | Sqlite3_analyzer reports an error if it runs into trouble. (CVS 3021) check-in: 388b9262 user: drh tags: trunk | |
| 02:00 | Update the publish scripts to correctly build the TCL DLL for windows. (CVS 3020) check-in: 5254874a user: drh tags: trunk | |
Changes
Changes to tool/spaceanal.tcl.
1
2
3
4
5
6
7
8
9
10
11
...
795
796
797
798
799
800
801
|
# 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
................................................................................
if {$v=="" || ![string is double $v]} {set v [quote $v]}
puts -nonewline $sep$v
set sep ,
}
puts ");"
}
puts "COMMIT;"
|
>
>
>
>
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
...
797
798
799
800
801
802
803
804
805
806
807
808
809
|
# 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 ................................................................................ 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 } |