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 336 # (maybe the \n should go away?) 337 337 # 338 338 # result: a new (probably shorter) list with the unwrapped lines 339 339 # (multiple spaces squeezed) 340 340 #----------------------------------------------------------------------- 341 341 set len [llength $records] 342 342 set i 0 343 + set out {} 343 344 while {$i < $len} { 344 345 set record [lindex $records $i] 345 346 incr i 346 347 if {[regexp {^[0-9]} $record]} { 347 348 set line [lindex $records $i] 348 349 set line [string trimright "$line"] 349 350 while {[regexp {^ } $line]} {