Lines Matching refs:tlist
56 # First test locking w/o txns. If any in tlist are 'none',
74 set tlist [list $t1 $t2 $r1 $r2]
76 [lsearch -all $tlist none]]
81 $encargs $sdb$tlet $tlist
102 set tlist $args
103 error_check_good tlist [llength $tlist] 4
104 sdb012_body $testdir $omethod $largs $encargs $sdb$tlet $tlist
108 # This proc checks the tlist values and returns the flags
112 proc sdb012_subsys { tlist } {
113 set t1 [lindex $tlist 0]
120 if { $allnone == $tlist } {
129 # This proc parses the tlist and returns a list of 4 items that
133 proc sdb012_tflags { env tlist } {
136 foreach t $tlist {
175 # This proc parses the tlist and returns a list of 4 items that
180 proc sdb012_top { tflags tlist } {
189 # out for the operation. The tlist list is needed to
192 foreach t $tlist tf $tflags {
230 proc sdb012_isabort { tlist item } {
231 set i [lindex $tlist $item]
233 set i [lindex $tlist [expr $item + 1]]
242 proc sdb012_body { testdir omethod largs encargs msg tlist } {
244 puts "\t$msg: $tlist"
249 set subsys [sdb012_subsys $tlist]
256 # Convert from our tlist txn commands into real flags we
260 set tflags [sdb012_tflags $env $tlist]
262 foreach {top1 top2 rop1 rop2} [sdb012_top $tflags $tlist] {break}
282 set t1_isabort [sdb012_isabort $tlist 0]
283 set t2_isabort [sdb012_isabort $tlist 1]
284 set r1_isabort [sdb012_isabort $tlist 2]
285 set r2_isabort [sdb012_isabort $tlist 3]