Lines Matching full:set
9 set cnt 1
12 set sqlfile test$cnt.sql
15 set fd [open $sqlfile r]
16 set sql [string trim [read $fd [file size $sqlfile]]]
18 set sx [split $sql \n]
19 set n [llength $sx]
21 set sql {}
22 for {set i 0} {$i<3} {incr i} {append sql [lindex $sx $i]<br>\n}
24 for {set i [expr {$n-3}]} {$i<$n} {incr i} {
33 set format {<tr><td>%s</td><td align="right"> %.3f</td></tr>}
34 set delay 1000
36 set t [time "exec psql drh <$sqlfile" 1]
37 set t [expr {[lindex $t 0]/1000000.0}]
40 set t [time "exec mysql -f drh <$sqlfile" 1]
41 set t [expr {[lindex $t 0]/1000000.0}]
43 # set t [time "exec ./sqlite232 s232.db <$sqlfile" 1]
44 # set t [expr {[lindex $t 0]/1000000.0}]
46 # set t [time "exec ./sqlite-100 s100.db <$sqlfile" 1]
47 # set t [expr {[lindex $t 0]/1000000.0}]
50 set t [time "exec ./sqlite240 s2k.db <$sqlfile" 1]
51 set t [expr {[lindex $t 0]/1000000.0}]
54 set t [time "exec ./sqlite240 sns.db <$sqlfile" 1]
55 set t [expr {[lindex $t 0]/1000000.0}]
57 # set t [time "exec ./sqlite-t1 st1.db <$sqlfile" 1]
58 # set t [expr {[lindex $t 0]/1000000.0}]
67 set fd [open clear.sql w]
75 set fd [open 2kinit.sql w]
83 set fd [open nosync-init.sql w]
90 set ones {zero one two three four five six seven eight nine
93 set tens {{} ten twenty thirty forty fifty sixty seventy eighty ninety}
96 set txt "[number_name [expr {$n/1000}]] thousand"
97 set n [expr {$n%1000}]
99 set txt {}
103 set n [expr {$n%100}]
107 set n [expr {$n%10}]
112 set txt [string trim $txt]
113 if {$txt==""} {set txt zero}
118 set fd [open test$cnt.sql w]
121 for {set i 1} {$i<=25000} {incr i} {
122 set r [expr {int(rand()*500000)}]
130 set fd [open test$cnt.sql w]
136 set fd [open test$cnt.sql w]
138 for {set i 1} {$i<=25000} {incr i} {
139 set r [expr {int(rand()*500000)}]
147 set fd [open test$cnt.sql w]
153 set fd [open test$cnt.sql w]
155 for {set i 1} {$i<=25000} {incr i} {
156 set r [expr {int(rand()*500000)}]
164 set fd [open test$cnt.sql w]
170 set fd [open test$cnt.sql w]
172 for {set i 1} {$i<=25000} {incr i} {
173 set r [expr {int(rand()*500000)}]
181 set fd [open test$cnt.sql w]
187 set fd [open test$cnt.sql w]
189 for {set i 1} {$i<=25000} {incr i} {
190 set r [expr {int(rand()*500000)}]
198 set fd [open test$cnt.sql w]
204 set fd [open test$cnt.sql w]