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
|
| ︙ | ︙ |