Lines Matching refs:L

31 proc strip_phrase_data {L} {
32   if {[lindex $L 0] eq "PHRASE"} {
33     return [list P [lrange $L 3 end]]
36     [lindex $L 0] \
37     [strip_phrase_data [lindex $L 1]] \
38     [strip_phrase_data [lindex $L 2]] \
48   set L [list]
50     lappend L xxx
52   while {[llength $L] > 1} {
54     if {[llength $L] % 2} {
55       foreach {a b} [lrange $L 0 end-1] { lappend N [list AND $a $b] }
56       lappend N [lindex $L end]
58       foreach {a b} $L { lappend N [list AND $a $b] }
60     set L $N
62   return [lindex $L 0]