Lines Matching refs:set

23 set testdir [file dirname $argv0]
30 set sqlout [open speed1.txt w]
43 set ones {zero one two three four five six seven eight nine
46 set tens {{} ten twenty thirty forty fifty sixty seventy eighty ninety}
49     set txt "[number_name [expr {$n/1000}]] thousand"
50     set n [expr {$n%1000}]
52     set txt {}
56     set n [expr {$n%100}]
60     set n [expr {$n%10}]
65   set txt [string trim $txt]
66   if {$txt==""} {set txt zero}
105 for {set jj 1} {$jj <= 3} {incr jj} {
106   set stmt [string map "%T% t$jj" {INSERT INTO %T% VALUES(NULL, $i, $t)}]
107   for {set ii 0} {$ii < 50000} {incr ii} {
108     set i [expr {int(rand()*50000)}]
109     set t [number_name $i]
121 set sql "SELECT * FROM t1, t2, t3 WHERE t1.oid = t2.oid AND t2.oid = t3.oid"
125 set sql "SELECT * FROM t1, t2, t3 WHERE t1.t = t2.t AND t2.t = t3.t"
129 set script {
130   for {set ii 1} {$ii < 10000} {incr ii} {
131     set v [expr {$ii*3}]
132     set t [expr {$ii%3+1}]
143 set script {
144   for {set ii 1} {$ii < 10000} {incr ii} {
145     set v [expr {$ii*3}]
146     set t [expr {$ii%3+1}]
154 set script {
155   for {set ii 1} {$ii < 10000} {incr ii} {
156     set v [expr {$ii*3}]
168 set script {
170   for {set ii 1} {$ii < 10000} {incr ii} {
185 set list [db eval {SELECT t FROM t5}]
186 set script {
212 set list {}
213 for {set ii 1} {$ii < 10000} {incr ii} {
216 set script {
223 set list {}
224 for {set ii 1} {$ii < 20000} {incr ii 2} {
225   set ii2 [expr {$ii*2}]
228 set script {
237 set script {
238   for {set ii 1} {$ii < 20000} {incr ii 2} {
257 set list {}
258 for {set ii 1} {$ii < 10000} {incr ii} {
261 set script {
268 set list {}
269 for {set ii 1} {$ii < 20000} {incr ii 2} {
270   set ii2 [expr {$ii*2}]
273 set script {
282 set script {
283   for {set ii 1} {$ii < 20000} {incr ii 2} {