Lines Matching refs:set

19 set testdir [file dirname $argv0]
26 set sqlout [open speed1.txt w]
39 set ones {zero one two three four five six seven eight nine
42 set tens {{} ten twenty thirty forty fifty sixty seventy eighty ninety}
45     set txt "[number_name [expr {$n/1000}]] thousand"
46     set n [expr {$n%1000}]
48     set txt {}
52     set n [expr {$n%100}]
56     set n [expr {$n%10}]
61   set txt [string trim $txt]
62   if {$txt==""} {set txt zero}
86 set list {}
87 for {set i 1} {$i<=50000} {incr i} {
88   set r [expr {int(rand()*500000)}]
89   set x [number_name $r]
92 set script {
104 set list {}
105 for {set i 1} {$i<=50000} {incr i} {
106   set r [expr {int(rand()*500000)}]
107   set x [number_name $r]
110 set script {
125 set list {}
126 for {set i 0} {$i<50} {incr i} {
127   set lwr [expr {$i*100}]
128   set upr [expr {($i+10)*100}]
131 set script {
144 set list {}
145 for {set i 0} {$i<50} {incr i} {
148 set script {
173 set list {}
174 for {set i 0} {$i<5000} {incr i} {
175   set lwr [expr {$i*100}]
176   set upr [expr {($i+10)*100}]
179 set script {
191 set list {}
192 for {set i 1} {$i<=100000} {incr i} {
193   set id [expr {int(rand()*50000)+1}]
196 set script {
208 set list {}
209 for {set i 1} {$i<=100000} {incr i} {
210   set id [expr {int(rand()*50000)+1}]
213 set script {
225 set list [db eval {SELECT c FROM t1 ORDER BY random() LIMIT 50000}]
226 set script {
242 set list {}
243 for {set i 0} {$i<5000} {incr i} {
244   set lwr [expr {$i*2}]
245   set upr [expr {($i+1)*2}]
248 set script {
260 set list {}
261 for {set i 0} {$i<50000} {incr i} {
262   set r [expr {int(rand()*500000)}]
265 set script {
285 set list {}
286 for {set i 1} {$i<=50000} {incr i} {
287   set r [expr {int(rand()*500000)}]
290 set script {