Fossil Wrapper

Check-in [7e0ed090e2]
Login

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

Changes to fsl.

386
387
388
389
390
391
392




393
394
395
396
397
398
399
400
            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








>
>
>
>
|







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