database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Perpare to fork SQLite2.0 develop into a separate tree (CVS 184)

Browse Source 
FossilOrigin-Name: 4f00e27f17a15504543c5bbb8765c88bacd7257e
This commit is contained in:
drh
2001-02-11 16:58:21 +00:00
parent 338ea13c0d
commit 03e7e9516f
5 changed files with 186 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
src/ex/sizes.tcl Normal file
View File

@ -0,0 +1,41 @@
set sizes {1024 2048 4096 8192 16384 32768}
set fmt { %-8s}
puts -nonewline "page size: "
foreach s $sizes {
puts -nonewline [format $fmt $s]
}
puts ""
puts -nonewline "on leaf: "
foreach s $sizes {
set x [expr {$s - 18*4}]
set p($s) $x
puts -nonewline [format $fmt $x]
}
puts ""
puts -nonewline "direct: "
foreach s $sizes {
set x [expr {$p($s) + 10*$s}]
set p($s) $x
puts -nonewline [format $fmt $x]
}
puts ""
puts -nonewline "indirect: "
foreach s $sizes {
set x [expr {$p($s) + ($s/4.0)*$s}]
set p($s) $x
puts -nonewline [format $fmt $x]
}
puts ""
puts -nonewline "dbl indir: "
foreach s $sizes {
set x [expr {$p($s) + ($s/4.0)*($s/4)*$s}]
set p($s) $x
puts -nonewline [format $fmt $x]
}
puts ""