Lines Matching refs:L

37   set L [list]
40     lappend L $idx
43   set L
101 set L [findall 504B $archive]
102 for {set i 0} {$i < [llength $L]} {incr i} {
103   set idx [lindex $L $i]
112 set L [findall 5554 $archive]
113 for {set i 0} {$i < [llength $L]} {incr i} {
114   set idx [lindex $L $i]
125 for {set i 0} {$i < [llength $L]} {incr i} {
126   set idx [lindex $L $i]
164 set L [findall 17000000 $archive2]
166 foreach i $L { set a [string replace $a $i [expr $i+7] 16000000] }