Lines Matching refs:set

20 set testdir [file dirname $argv0]
31   set v [catch {
32     set ::p1 [pager_open ptf1.db 10]
51   set v [catch {
52     set ::p1 [pager_open ptf1.db 10]
56 #  set v [catch {
57 #    set ::g1 [page_get $::p1 0]
62   set ::gx [page_lookup $::p1 1]
68   set v [catch {
69     set ::g1 [page_get $::p1 1]
72   set v
78   set ::gx [page_lookup $::p1 1]
113   set ::g1 [page_get $::p1 1]
123   set v [catch {
135   set v [catch {
156   set v [catch {
160   set v
166   set v [catch {
175   set v [catch {
182   set ::g1 [page_get $::p1 1]
190   set v [catch {
191     set ::p1 [pager_open ptf1.db 15]
194   set v
200   set v [catch {
201     set ::g(1) [page_get $::p1 1]
204   set v
210   for {set i 2} {$i<=20} {incr i} {
211     set gx [page_get $::p1 $i]
217 for {set i 2} {$i<=20} {incr i} {
219     set gx \[page_get $::p1 $i\]
220     set v \[page_read \$gx\]
222     set v
225 for {set i 1} {$i<=20} {incr i} {
227     set ::g1 [page_get $::p1 CNT]
228     set ::g2 [page_get $::p1 CNT]
229     set ::vx [page_read $::g2]
235     set vy [page_read $::g1]
241     set gx [page_get $::p1 CNT]
242     set vy [page_read $gx]
255   set v [catch {
257     set ::p1 [pager_open ptf1.db 15]
260   set v
263   set g1 [page_get $::p1 1]
265   for {set i 2} {$i<=20} {incr i} {
266     set gx [page_get $::p1 $i]
272 for {set i 1} {$i<=20} {incr i} {
274     set gx [page_get $p1 $i]
275     set v [page_read $gx]
277     set v
287 for {set i 1} {$i<20} {incr i} {
289     set res {}
290     for {set j 2} {$j<=20} {incr j} {
291       set gx [page_get $p1 $j]
292       set value [page_read $gx]
294       set shouldbe "Page-$j v[expr {$i-1}]"
299     set res
306     for {set j 2} {$j<=20} {incr j} {
307       set gx [page_get $p1 $j]
316     set res {}
317     for {set j 2} {$j<=20} {incr j} {
318       set gx [page_get $p1 $j]
319       set value [page_read $gx]
321       set shouldbe "Page-$j v$i"
326     set res
330     set res {}
331     for {set j 2} {$j<=20} {incr j} {
332       set gx [page_get $p1 $j]
333       set value [page_read $gx]
335       set shouldbe "Page-$j v[expr {$i-1}]"
340     set res
347     for {set j 2} {$j<=20} {incr j} {
348       set gx [page_get $p1 $j]
358     for {set j 2} {$j<=20} {incr j} {
359       set gx [page_get $p1 $j]
360       set value [page_read $gx]
363         set shouldbe "Page-$j v$i"
365         set shouldbe "Page-$j v[expr {$i-1}]"
371     set res
374     for {set j 2} {$j<=20} {incr j} {
375       set gx [page_get $p1 $j]
385     for {set j 2} {$j<=20} {incr j} {
386       set gx [page_get $p1 $j]
387       set value [page_read $gx]
389       set shouldbe "Page-$j v$i"
394     set res