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 ./sqlite248 s2k.db <$sqlfile" 1]
51 set t [expr {[lindex $t 0]/1000000.0}]
54 set t [time "exec ./sqlite248 sns.db <$sqlfile" 1]
55 set t [expr {[lindex $t 0]/1000000.0}]
58 set t [time "exec ./sqlite2412 s2kb.db <$sqlfile" 1]
59 set t [expr {[lindex $t 0]/1000000.0}]
62 set t [time "exec ./sqlite2412 snsb.db <$sqlfile" 1]
63 set t [expr {[lindex $t 0]/1000000.0}]
65 # set t [time "exec ./sqlite-t1 st1.db <$sqlfile" 1]
66 # set t [expr {[lindex $t 0]/1000000.0}]
75 set fd [open clear.sql w]
83 set fd [open 2kinit.sql w]
91 set fd [open nosync-init.sql w]
99 set ones {zero one two three four five six seven eight nine
102 set tens {{} ten twenty thirty forty fifty sixty seventy eighty ninety}
105 set txt "[number_name [expr {$n/1000}]] thousand"
106 set n [expr {$n%1000}]
108 set txt {}
112 set n [expr {$n%100}]
116 set n [expr {$n%10}]
121 set txt [string trim $txt]
122 if {$txt==""} {set txt zero}
128 set fd [open test$cnt.sql w]
130 for {set i 1} {$i<=1000} {incr i} {
131 set r [expr {int(rand()*100000)}]
139 set fd [open test$cnt.sql w]
142 for {set i 1} {$i<=25000} {incr i} {
143 set r [expr {int(rand()*500000)}]
152 set fd [open test$cnt.sql w]
153 for {set i 0} {$i<100} {incr i} {
154 set lwr [expr {$i*100}]
155 set upr [expr {($i+10)*100}]
163 set fd [open test$cnt.sql w]
164 for {set i 1} {$i<=100} {incr i} {
172 set fd [open test$cnt.sql w]
180 set fd [open test$cnt.sql w]
181 for {set i 0} {$i<5000} {incr i} {
182 set lwr [expr {$i*100}]
183 set upr [expr {($i+1)*100}]
191 set fd [open test$cnt.sql w]
193 for {set i 0} {$i<1000} {incr i} {
194 set lwr [expr {$i*10}]
195 set upr [expr {($i+1)*10}]
196 puts $fd "UPDATE t1 SET b=b*2 WHERE a>=$lwr AND a<$upr;"
204 set fd [open test$cnt.sql w]
206 for {set i 1} {$i<=25000} {incr i} {
207 set r [expr {int(rand()*500000)}]
208 puts $fd "UPDATE t2 SET b=$r WHERE a=$i;"
215 set fd [open test$cnt.sql w]
217 for {set i 1} {$i<=25000} {incr i} {
218 set r [expr {int(rand()*500000)}]
219 puts $fd "UPDATE t2 SET c='[number_name $r]' WHERE a=$i;"
227 set fd [open test$cnt.sql w]
237 set fd [open test$cnt.sql w]
244 set fd [open test$cnt.sql w]
251 set fd [open test$cnt.sql w]
258 set fd [open test$cnt.sql w]
261 for {set i 1} {$i<=3000} {incr i} {
262 set r [expr {int(rand()*100000)}]
271 set fd [open test$cnt.sql w]