Lines Matching refs:set
18 set testdir [file dirname $argv0]
29 set v [catch {
30 set ::p1 [pager_open ptf1.db 10]
49 set v [catch {
50 set ::p1 [pager_open ptf1.db 10]
54 # set v [catch {
55 # set ::g1 [page_get $::p1 0]
60 set ::gx [page_lookup $::p1 1]
66 set v [catch {
67 set ::g1 [page_get $::p1 1]
70 set v
76 set ::gx [page_lookup $::p1 1]
111 set ::g1 [page_get $::p1 1]
121 set v [catch {
133 set v [catch {
154 set v [catch {
158 set v
164 set v [catch {
173 set v [catch {
180 set ::g1 [page_get $::p1 1]
188 set v [catch {
189 set ::p1 [pager_open ptf1.db 15]
192 set v
198 set v [catch {
199 set ::g(1) [page_get $::p1 1]
202 set v
208 for {set i 2} {$i<=20} {incr i} {
209 set gx [page_get $::p1 $i]
215 for {set i 2} {$i<=20} {incr i} {
217 set gx \[page_get $::p1 $i\]
218 set v \[page_read \$gx\]
220 set v
223 for {set i 1} {$i<=20} {incr i} {
225 set ::g1 [page_get $::p1 CNT]
226 set ::g2 [page_get $::p1 CNT]
227 set ::vx [page_read $::g2]
233 set vy [page_read $::g1]
239 set gx [page_get $::p1 CNT]
240 set vy [page_read $gx]
253 set v [catch {
255 set ::p1 [pager_open ptf1.db 15]
258 set v
261 set g1 [page_get $::p1 1]
263 for {set i 2} {$i<=20} {incr i} {
264 set gx [page_get $::p1 $i]
270 for {set i 1} {$i<=20} {incr i} {
272 set gx [page_get $p1 $i]
273 set v [page_read $gx]
275 set v
285 for {set i 1} {$i<20} {incr i} {
287 set res {}
288 for {set j 2} {$j<=20} {incr j} {
289 set gx [page_get $p1 $j]
290 set value [page_read $gx]
292 set shouldbe "Page-$j v[expr {$i-1}]"
297 set res
304 for {set j 2} {$j<=20} {incr j} {
305 set gx [page_get $p1 $j]
314 set res {}
315 for {set j 2} {$j<=20} {incr j} {
316 set gx [page_get $p1 $j]
317 set value [page_read $gx]
319 set shouldbe "Page-$j v$i"
324 set res
328 set res {}
329 for {set j 2} {$j<=20} {incr j} {
330 set gx [page_get $p1 $j]
331 set value [page_read $gx]
333 set shouldbe "Page-$j v[expr {$i-1}]"
338 set res
345 for {set j 2} {$j<=20} {incr j} {
346 set gx [page_get $p1 $j]
356 for {set j 2} {$j<=20} {incr j} {
357 set gx [page_get $p1 $j]
358 set value [page_read $gx]
361 set shouldbe "Page-$j v$i"
363 set shouldbe "Page-$j v[expr {$i-1}]"
369 set res
372 for {set j 2} {$j<=20} {incr j} {
373 set gx [page_get $p1 $j]
383 for {set j 2} {$j<=20} {incr j} {
384 set gx [page_get $p1 $j]
385 set value [page_read $gx]
387 set shouldbe "Page-$j v$i"
392 set res