Lines Matching refs:lindex
56 if {[lindex $L 0] eq "PHRASE"} {
60 [lindex $L 0] \
61 [strip_phrase_data [lindex $L 1]] \
62 [strip_phrase_data [lindex $L 2]] \
75 list P [lindex $phrases [rnd [llength $phrases]]]
87 set op [lindex $operators [rnd 4]]
106 set op [lindex $tree 0]
109 set phrase [lindex $tree 1]
124 set lhs [lindex $tree 1]
125 set rhs [lindex $tree 2]
134 catch {set iLeftPrec $prec([lindex $lhs 0])}
135 catch {set iRightPrec $prec([lindex $rhs 0])}