Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | small fix. |
---|---|
Timelines: | family | ancestors | descendants | both | dresden |
Files: | files | file ages | folders |
SHA1: |
ba3a1b7d983c99fb392a5d5841ce9678 |
User & Date: | j 2013-01-01 23:54:39 |
Context
2013-01-05
| ||
20:21 | fixed comment sytnax bug. check-in: 6c76c5ec8d user: j tags: dresden | |
2013-01-01
| ||
23:54 | small fix. check-in: ba3a1b7d98 user: j tags: dresden | |
23:48 | merged from trunk. check-in: 38deb932f7 user: j tags: dresden | |
Changes
Changes to fsl.
︙ | ︙ | |||
336 337 338 339 340 341 342 343 344 345 346 347 348 349 | # (maybe the \n should go away?) # # result: a new (probably shorter) list with the unwrapped lines # (multiple spaces squeezed) #----------------------------------------------------------------------- set len [llength $records] set i 0 while {$i < $len} { set record [lindex $records $i] incr i if {[regexp {^[0-9]} $record]} { set line [lindex $records $i] set line [string trimright "$line"] while {[regexp {^ } $line]} { | > | 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 | # (maybe the \n should go away?) # # result: a new (probably shorter) list with the unwrapped lines # (multiple spaces squeezed) #----------------------------------------------------------------------- set len [llength $records] set i 0 set out {} while {$i < $len} { set record [lindex $records $i] incr i if {[regexp {^[0-9]} $record]} { set line [lindex $records $i] set line [string trimright "$line"] while {[regexp {^ } $line]} { |
︙ | ︙ |