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]} {
|