Lines Matching refs:str
47 r set str "xxxx"
48 r bitcount str 4 10
52 r set str "xxxx"
53 r bitcount str -6 -7
60 r set str $vec
61 assert {[r bitcount str] == [count_bits $vec]}
67 set str [randstring 0 3000]
68 r set str $str
69 assert {[r bitcount str] == [count_bits $str]}
75 set str [randstring 0 3000]
76 r set str $str
77 set l [string length $str]
83 assert {[r bitcount str $start $end] == [count_bits [string range $str $start $end]]}
112 r del str
113 r set str ab
114 r bitcount str 1 -1
118 r del str
119 r set str __PPxxxxxxxxxxxxxxxxRR__
120 r bitcount str 2 -3
174 set str [randstring 0 1000]
175 lappend vec $str
177 r set vector_$j $str
188 set str [randstring 0 1000]
189 r set str $str
190 r bitop not target str
191 assert_equal [r get target] [simulate_bit_op not $str]
218 r del str
219 r bitpos str 0
223 r del str
224 r bitpos str 1
228 r set str "\xff\xf0\x00"
229 r bitpos str 0
233 r set str "\x00\x0f\x00"
234 r bitpos str 1
238 r set str "\xff\xf0\x00"
239 r bitpos str 0 1
243 r set str "\x00\x0f\xff"
244 r bitpos str 1 1
248 r del str
249 r set str "\xff\xff\xff" ; # Prefix
251 r append str "\xff\xff\xff\xff\xff\xff\xff\xff"
252 r append str "\xff\xff\xff\xff\xff\xff\xff\xff"
253 r append str "\xff\xff\xff\xff\xff\xff\xff\xff"
255 r append str "\x0f"
256 assert {[r bitpos str 0] == 216}
257 assert {[r bitpos str 0 1] == 216}
258 assert {[r bitpos str 0 2] == 216}
259 assert {[r bitpos str 0 3] == 216}
260 assert {[r bitpos str 0 4] == 216}
261 assert {[r bitpos str 0 5] == 216}
262 assert {[r bitpos str 0 6] == 216}
263 assert {[r bitpos str 0 7] == 216}
264 assert {[r bitpos str 0 8] == 216}
268 r del str
269 r set str "\x00\x00\x00" ; # Prefix
271 r append str "\x00\x00\x00\x00\x00\x00\x00\x00"
272 r append str "\x00\x00\x00\x00\x00\x00\x00\x00"
273 r append str "\x00\x00\x00\x00\x00\x00\x00\x00"
275 r append str "\xf0"
276 assert {[r bitpos str 1] == 216}
277 assert {[r bitpos str 1 1] == 216}
278 assert {[r bitpos str 1 2] == 216}
279 assert {[r bitpos str 1 3] == 216}
280 assert {[r bitpos str 1 4] == 216}
281 assert {[r bitpos str 1 5] == 216}
282 assert {[r bitpos str 1 6] == 216}
283 assert {[r bitpos str 1 7] == 216}
284 assert {[r bitpos str 1 8] == 216}
288 r set str ""
290 assert {[r bitpos str 1] == -1}
291 r append str "\x00"
296 r set str "\x00\xff\x00"
297 assert {[r bitpos str 0 0 -1] == 0}
298 assert {[r bitpos str 0 1 -1] == 16}
299 assert {[r bitpos str 0 2 -1] == 16}
300 assert {[r bitpos str 0 2 200] == 16}
301 assert {[r bitpos str 0 1 1] == -1}
305 r set str "\x00\xff\x00"
306 assert {[r bitpos str 1 0 -1] == 8}
307 assert {[r bitpos str 1 1 -1] == 8}
308 assert {[r bitpos str 1 2 -1] == -1}
309 assert {[r bitpos str 1 2 200] == -1}
310 assert {[r bitpos str 1 1 1] == 8}
314 r set str "\xff\xff\xff"
315 assert {[r bitpos str 0] == 24}
316 assert {[r bitpos str 0 0] == 24}
317 assert {[r bitpos str 0 0 -1] == -1}
321 r del str
325 assert {[r bitpos str 1] == $first_one_pos}
327 r setbit str $pos 1
339 r set str [string repeat "\xff" [expr $max/8]]
341 assert {[r bitpos str 0] == $first_zero_pos}
343 r setbit str $pos 0