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