Lines Matching refs:k

11             set k [lindex $res 1]
12             lappend keys {*}$k
29             set k [lindex $res 1]
30             lappend keys {*}$k
47             set k [lindex $res 1]
48             lappend keys {*}$k
80                 set k [lindex $res 1]
81                 lappend keys {*}$k
114                 set k [lindex $res 1]
115                 lappend keys {*}$k
120             foreach {k v} $keys {
121                 assert {$k eq "key:$v"}
122                 lappend keys2 $k
154                 set k [lindex $res 1]
155                 lappend keys {*}$k
160             foreach {k v} $keys {
161                 assert {$k eq "key:$v"}
162                 lappend keys2 $k
180             set k [lindex $res 1]
181             lappend keys {*}$k
190         foreach k $keys {
191             if {[string length $k] > 6} continue
192             lappend keys2 $k