Lines Matching refs:lines
39 array set lines {}
42 set lines([incr lnum]) $line
44 return [array get lines]
87 array set lines $dict
89 foreach lnum [lsort -integer [array names lines]] {
90 lappend result $lines($lnum)
128 # to delete, and the number of lines to delete.
205 set lines [llength [split $b \n]]
207 lappend res "a$a $lines"
212 # b = #lines to delete.
243 array set lines $text
253 if {[info exists lines($a)]} {
254 append lines($a) \n $b
256 set lines($a) $b
261 # b = #lines to delete.
264 unset lines($a)
275 return [array get lines]