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
393
394
395
396
397
398
399
400
...
430
431
432
433
434
435
436
437
438
439
440
441
442
443
|
set record "[string trimright ${record}]${line}"
incr i
set line [lindex $records $i]
set line [string trimright $line]
}
}
set record "[string trimright $record]"
# 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
................................................................................
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
|
>
>
>
>
|
>
>
|
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
...
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
|
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
................................................................................
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
|