Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove three obsolete and unused files from tool/ |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0abd65294e6e8db68e7ce6724f02f17b |
| User & Date: | drh 2015-10-07 00:35:18 |
Context
|
2015-10-07
| ||
| 03:07 | When running tests on Tcl 8.6 under Windows, skip tests 'uri-1.12.*' due to a change in Tcl behavior related to NTFS ADS (alternate data streams). check-in: 8a0a2aa5 user: mistachkin tags: trunk | |
| 02:52 | Change mkopcodeh.awk into tool/mkopcodeh.tcl. check-in: ed0ebc46 user: drh tags: omit-awk | |
| 00:35 | Remove three obsolete and unused files from tool/ check-in: 0abd6529 user: drh tags: trunk | |
|
2015-10-06
| ||
| 21:49 | Fix typo in comments. No changes to code. check-in: a05f903c user: mistachkin tags: trunk | |
Changes
Deleted tool/diffdb.c.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
/* ** A utility for printing the differences between two SQLite database files. */ #include <stdio.h> #include <ctype.h> #include <sys/types.h> #include <sys/stat.h> #include <fcntl.h> #include <unistd.h> #include <stdlib.h> #define PAGESIZE 1024 static int db1 = -1; static int db2 = -1; int main(int argc, char **argv){ int iPg; unsigned char a1[PAGESIZE], a2[PAGESIZE]; if( argc!=3 ){ fprintf(stderr,"Usage: %s FILENAME FILENAME\n", argv[0]); exit(1); } db1 = open(argv[1], O_RDONLY); if( db1<0 ){ fprintf(stderr,"%s: can't open %s\n", argv[0], argv[1]); exit(1); } db2 = open(argv[2], O_RDONLY); if( db2<0 ){ fprintf(stderr,"%s: can't open %s\n", argv[0], argv[2]); exit(1); } iPg = 1; while( read(db1, a1, PAGESIZE)==PAGESIZE && read(db2,a2,PAGESIZE)==PAGESIZE ){ if( memcmp(a1,a2,PAGESIZE) ){ printf("Page %d\n", iPg); } iPg++; } printf("%d pages checked\n", iPg-1); close(db1); close(db2); } |
< < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < |
Deleted tool/opcodeDoc.awk.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
# # Extract opcode documentation for sqliteVdbe.c and generate HTML # BEGIN { print "<html><body bgcolor=white>" print "<h1>SQLite Virtual Database Engine Opcodes</h1>" print "<table>" } / Opcode: /,/\*\// { if( $2=="Opcode:" ){ printf "<tr><td>%s %s %s %s</td>\n<td>\n", $3, $4, $5, $6 }else if( $1=="*/" ){ printf "</td></tr>\n" }else if( NF>1 ){ sub(/^ *\*\* /,"") gsub(/</,"<") gsub(/&/,"&") print } } END { print "</table></body></html>" } |
< < < < < < < < < < < < < < < < < < < < < < < |
Deleted tool/space_used.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 |
# 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 # if {[llength $argv]!=1} { puts stderr "Usage: $argv0 database-name" exit 1 } set file_to_analyze [lindex $argv 0] # Open the database # sqlite db [lindex $argv 0] set DB [btree_open [lindex $argv 0]] # Output the schema for the generated report # puts \ {BEGIN; CREATE TABLE space_used( name clob, -- Name of a table or index in the database file is_index boolean, -- TRUE if it is an index, false for a table payload int, -- Total amount of data stored in this table or index pri_pages int, -- Number of primary pages used ovfl_pages int, -- Number of overflow pages used pri_unused int, -- Number of unused bytes on primary pages ovfl_unused int -- Number of unused bytes on overflow pages );} # This query will be used to find the root page number for every index and # table in the database. # set sql { SELECT name, type, rootpage FROM sqlite_master UNION ALL SELECT 'sqlite_master', 'table', 2 ORDER BY 1 } # Initialize variables used for summary statistics. # set total_size 0 set total_primary 0 set total_overflow 0 set total_unused_primary 0 set total_unused_ovfl 0 # Analyze every table in the database, one at a time. # foreach {name type rootpage} [db eval $sql] { set cursor [btree_cursor $DB $rootpage 0] set go [btree_first $cursor] set size 0 catch {unset pg_used} set unused_ovfl 0 set n_overflow 0 while {$go==0} { set payload [btree_payload_size $cursor] incr size $payload set stat [btree_cursor_dump $cursor] set pgno [lindex $stat 0] set freebytes [lindex $stat 4] set pg_used($pgno) $freebytes if {$payload>238} { set n [expr {($payload-238+1019)/1020}] incr n_overflow $n incr unused_ovfl [expr {$n*1020+238-$payload}] } set go [btree_next $cursor] } btree_close_cursor $cursor set n_primary [llength [array names pg_used]] set unused_primary 0 foreach x [array names pg_used] {incr unused_primary $pg_used($x)} regsub -all ' $name '' name puts -nonewline "INSERT INTO space_used VALUES('$name'" puts -nonewline ",[expr {$type=="index"}]" puts ",$size,$n_primary,$n_overflow,$unused_primary,$unused_ovfl);" incr total_size $size incr total_primary $n_primary incr total_overflow $n_overflow incr total_unused_primary $unused_primary incr total_unused_ovfl $unused_ovfl } # Output summary statistics: # puts "-- Total payload size: $total_size" puts "-- Total pages used: $total_primary primary and $total_overflow overflow" set file_pgcnt [expr {[file size [lindex $argv 0]]/1024}] puts -nonewline "-- Total unused bytes on primary pages: $total_unused_primary" if {$total_primary>0} { set upp [expr {$total_unused_primary/$total_primary}] puts " (avg $upp bytes/page)" } else { puts "" } puts -nonewline "-- Total unused bytes on overflow pages: $total_unused_ovfl" if {$total_overflow>0} { set upp [expr {$total_unused_ovfl/$total_overflow}] puts " (avg $upp bytes/page)" } else { puts "" } set n_free [expr {$file_pgcnt-$total_primary-$total_overflow}] if {$n_free>0} {incr n_free -1} puts "-- Total pages on freelist: $n_free" puts "COMMIT;" |
< < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < |