/ Check-in [388b9262]
Login

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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
}