Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | undo recently introduced bug and adjusted corrsponding comments a bit. |
---|---|
Timelines: | family | ancestors | descendants | both | dresden |
Files: | files | file ages | folders |
SHA1: |
7e0ed090e264b6215ab1511e8626334c |
User & Date: | j 2013-07-24 17:04:07 |
Context
2013-07-26
| ||
12:19 | marginal. check-in: c51edf73ff user: j tags: dresden | |
2013-07-24
| ||
17:04 | undo recently introduced bug and adjusted corrsponding comments a bit. check-in: 7e0ed090e2 user: j tags: dresden | |
16:43 | `timeline' output is now strictly one line per checkin, even if `-showfiles' is specified. check-in: 1626c88f0a user: j tags: dresden | |
Changes
Changes to fsl.
︙ | ︙ | |||
386 387 388 389 390 391 392 | set record "[string trimright ${record}]${line}" incr i set line [lindex $records $i] set line [string trimright $line] } } | > > > > | | 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 | set record "[string trimright ${record}]${line}" incr i set line [lindex $records $i] set line [string trimright $line] } } # we have to newline-terminate the records in order to enable # calls to `unwrapTimeline' even if `reformTimeline' is _not_ # called subsequently. set record "[string trimright $record] \n" # temporary patch (better strategy needed, probably). eliminate # a blank in the used `regsub' pattern, which is assumed(!) to be caused by # `fossil' treating `-' as word boundary (there might be other instances, # actually, in the commit message itself): regsub -all {([[:alnum:]])- ([[:alnum:]])} $record \\1-\\2 record |
︙ | ︙ | |||
430 431 432 433 434 435 436 437 438 439 440 441 442 443 | set rgxrev {\[([a-f\d]{10})([^\]]*)\]} set rgxuser {\(user: .*\)} #set rgxstat { ( (MERGED_WITH|ADDED|EDITED|DELETED|MISSING) [[:alnum:]]+)} set maxrev [dict size $revnums] foreach record $records { if {[regexp $rgxdate $record]} { # the `date' information is extracted and then prepended to the suitable checkins set date [regsub {(=== )(.*)( ===)} $record {\2}] } elseif {[regexp $rgxrev $record]} { # this line contains the checkin message: regexp $rgxtime $record time | > > | 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 | set rgxrev {\[([a-f\d]{10})([^\]]*)\]} set rgxuser {\(user: .*\)} #set rgxstat { ( (MERGED_WITH|ADDED|EDITED|DELETED|MISSING) [[:alnum:]]+)} set maxrev [dict size $revnums] foreach record $records { # first get rid of the record/line terminating newline: set record "[string trimright $record]" if {[regexp $rgxdate $record]} { # the `date' information is extracted and then prepended to the suitable checkins set date [regsub {(=== )(.*)( ===)} $record {\2}] } elseif {[regexp $rgxrev $record]} { # this line contains the checkin message: regexp $rgxtime $record time |
︙ | ︙ |