Fossil Wrapper

Check-in [4e76e7d42b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:beautify the output somewhat. use alternating colors to separate between adjacent hashes/checkins in the output.
Timelines: family | ancestors | descendants | both | grep
Files: files | file ages | folders
SHA1: 4e76e7d42b31b0d0cda5fad5a3cb9b63b1a76c5d
User & Date: j 2019-07-11 17:13:06
Context
2019-07-18
20:09
fixed a regexp which was to restrictive. check-in: 2a35346a35 user: j tags: grep
2019-07-11
17:13
beautify the output somewhat. use alternating colors to separate between adjacent hashes/checkins in the output. check-in: 4e76e7d42b user: j tags: grep
15:29
removed old `fixGrep' (the newer one is superior) and account for possibility that a single file artifact belongs to multiple checkins when reporting the incremental checkin numbers. check-in: b04bf5a394 user: j tags: grep
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

582
583
584
585
586
587
588



589
590
591
592
593
594
595
...
600
601
602
603
604
605
606


607





608
609
610
611
612
613
614
   if {$f1 + $f2 > 0} {
      set buf $lines
      set lines {}
      if {$f1} { lappend lines [first $buf] } 
      if {$f2} { lappend lines [last $buf] } 
   }
   set greppat [lindex $params end-1]



   foreach line $lines {
      # need to separate file hash and line number to match `greppat'
      # against the real line content (so that anchoring of the
      # pattern works and spurious coloring of hash or line number
      # is prevented).
      set field  [split $line :]
      set fhash  [string trimright [first $field]]
................................................................................
      foreach hash $cihash {
         append revnum [dict get $revnums $hash] " "
      }
      set revnum [join $revnum ,]
      regsub -all "($greppat)" $line [coloured redbold \\1] line
      # for now, we just preprend the chronological revision numbers
      # and add a bit of colour


      lappend out [coloured magenta $revnum]:$fhash:$lino:$line





   }
   return $out
}

proc adjustWidth params {
   set widopt {}
   regexp -- {(timeline|finfo|search|descendants).*(-W)} $params widopt







>
>
>







 







>
>
|
>
>
>
>
>







582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
...
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
   if {$f1 + $f2 > 0} {
      set buf $lines
      set lines {}
      if {$f1} { lappend lines [first $buf] } 
      if {$f2} { lappend lines [last $buf] } 
   }
   set greppat [lindex $params end-1]
   set checkincols {blue green}
   set idx 0
   set lastrev 0
   foreach line $lines {
      # need to separate file hash and line number to match `greppat'
      # against the real line content (so that anchoring of the
      # pattern works and spurious coloring of hash or line number
      # is prevented).
      set field  [split $line :]
      set fhash  [string trimright [first $field]]
................................................................................
      foreach hash $cihash {
         append revnum [dict get $revnums $hash] " "
      }
      set revnum [join $revnum ,]
      regsub -all "($greppat)" $line [coloured redbold \\1] line
      # for now, we just preprend the chronological revision numbers
      # and add a bit of colour
      if {[lindex $revnum end] != $lastrev} { set idx [expr {1 - $idx}] }
      set col [lindex $checkincols $idx]
      set buf [coloured magenta $revnum]:[coloured $col $fhash]
      if {[llength $field] > 1} {
         append buf :[coloured cyan $lino]:$line
      } else { append buf \n }
      lappend out $buf
      set lastrev [lindex $revnum end]
   }
   return $out
}

proc adjustWidth params {
   set widopt {}
   regexp -- {(timeline|finfo|search|descendants).*(-W)} $params widopt