Lines Matching refs:set

17 set testdir [file dirname $argv0]
24 set sqlout [open speed2.txt w]
37 set ones {zero one two three four five six seven eight nine
40 set tens {{} ten twenty thirty forty fifty sixty seventy eighty ninety}
43     set txt "[number_name [expr {$n/1000}]] thousand"
44     set n [expr {$n%1000}]
46     set txt {}
50     set n [expr {$n%100}]
54     set n [expr {$n%10}]
59   set txt [string trim $txt]
60   if {$txt==""} {set txt zero}
84 set sql {}
85 for {set i 1} {$i<=50000} {incr i} {
86   set r [expr {int(rand()*500000)}]
95 set sql {}
96 for {set i 1} {$i<=50000} {incr i} {
97   set r [expr {int(rand()*500000)}]
109 set sql {}
110 for {set i 0} {$i<50} {incr i} {
111   set lwr [expr {$i*100}]
112   set upr [expr {($i+10)*100}]
120 set sql {}
121 for {set i 0} {$i<50} {incr i} {
133 set sql {}
134 for {set i 0} {$i<50} {incr i} {
135   set lwr [expr {$i*100}]
136   set upr [expr {($i+10)*100}]
144 set sql {}
145 for {set i 0} {$i<50} {incr i} {
164 set sql {}
165 for {set i 0} {$i<5000} {incr i} {
166   set lwr [expr {$i*100}]
167   set upr [expr {($i+10)*100}]
174 set sql {}
175 for {set i 1} {$i<=100000} {incr i} {
176   set id [expr {int(rand()*50000)+1}]
183 set sql {}
184 for {set i 1} {$i<=100000} {incr i} {
185   set id [expr {int(rand()*50000)+1}]
192 set sql {}
205 set sql {}
206 for {set i 0} {$i<5000} {incr i} {
207   set lwr [expr {$i*100}]
208   set upr [expr {($i+10)*100}]
215 set sql {}
216 for {set i 1} {$i<=100000} {incr i} {
217   set id [expr {int(rand()*50000)+1}]
224 set sql {}
225 for {set i 1} {$i<=100000} {incr i} {
226   set id [expr {int(rand()*50000)+1}]
233 set sql {}
241 set sql {}
242 for {set i 0} {$i<5000} {incr i} {
243   set lwr [expr {$i*2}]
244   set upr [expr {($i+1)*2}]
253 set sql {}
254 for {set i 0} {$i<50000} {incr i} {
255   set r [expr {int(rand()*500000)}]
271 set sql {}
272 for {set i 1} {$i<=50000} {incr i} {
273   set r [expr {int(rand()*500000)}]