Fossil Wrapper

Check-in [b84e704411]
Login

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: b84e704411c31525868a7b015a30eb6ba23accfc
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
}