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
|
# Timing of the view sort operation
package require Mk4tcl
proc timedRun {tag count args} {
set usec [lindex [time $args $count] 0]
append ::stats($tag) [format {%9.2f} [expr {$count*$usec/1000.0}]]
}
proc fill {seq} {
global warray
foreach {k v} [array get warray] {
mk::row append db.words text $k$seq
}
}
set step 40000
set mult 7
#set fd [open /usr/share/dict/words]
set fd [open words]
for {set i 0} {$i < $step && [gets $fd line] >= 0} {incr i} {
set warray($line) $i
}
close $fd
puts [clock format [clock seconds]]
file delete _large.mk
mk::file open db _large.mk -nocommit
mk::view layout db.words text
for {set i 0} {$i < $mult} {incr i} {
append stats(count) [format {%9d} [expr {($i+1)*$step}]]
timedRun fill 1 fill $i
timedRun sort 1 mk::select db.words -sort text
puts -nonewline stderr .
}
timedRun commit 1 mk::file commit db
puts stderr " [mk::view size db.words] rows, [file size _large.mk] b"
for {set i 0} {$i < 3} {incr i} {
puts " $i: [mk::get db.words!$i]"
}
mk::file close db
puts [clock format [clock seconds]]
puts ""
parray stats
puts ""
puts [clock format [clock seconds]]
|
