Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | bug fix (skipping of single word remaining on last line of reformatted checkin message). |
|---|---|
| Timelines: | family | ancestors | descendants | both | dresden |
| Files: | files | file ages | folders |
| SHA1: |
b84e704411c31525868a7b015a30eb6b |
| User & Date: | j 2013-01-10 20:51:00 |
Context
|
2013-01-10
| ||
| 21:13 | small fix. check-in: 34844683fd user: j tags: dresden | |
| 20:51 | bug fix (skipping of single word remaining on last line of reformatted checkin message). check-in: b84e704411 user: j tags: dresden | |
| 18:07 | tentative addition of chronological revision numbers to timeline output. check-in: abc0e49ac5 user: j tags: dresden | |
Changes
Changes to fsl.
422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 |
set message [string trim $record]
set words [split $message]
set line $indent[lindex $words 0]
set len [string length $line]
set words [lreplace $words 0 0]
foreach word $words {
set wrdlen [string length $word]
#if { $wrdlen == 0} {continue}
set len [expr {$len + 1 + $wrdlen}]
if {$len <= $maxlen} {
set line "$line $word"
set isAppended 0
} else {
lappend out $line\n
set isAppended 1
set line $indent$word
set len [string length $line]
}
}
if {$isAppended == 0} {lappend out $line\n}
lappend out \n
}
return $out
}
|
> > > < < > > > |
422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 |
set message [string trim $record]
set words [split $message]
set line $indent[lindex $words 0]
set len [string length $line]
set words [lreplace $words 0 0]
set wrdnum [llength $words]
set wrdcnt 0
foreach word $words {
incr wrdcnt
set wrdlen [string length $word]
#if { $wrdlen == 0} {continue}
set len [expr {$len + 1 + $wrdlen}]
if {$len <= $maxlen} {
set line "$line $word"
set isAppended 0
} else {
lappend out $line\n
set line $indent$word
set len [string length $line]
if {$wrdcnt < $wrdnum} {
set isAppended 1
} else {set isAppended 0} ;#since the loop stops _now_...
}
}
if {$isAppended == 0} {lappend out $line\n}
lappend out \n
}
return $out
}
|