Fossil Wrapper

         dict set revnums $rev [expr {$numrev - $revcnt}]
      }
   }
   return $revnums
}

proc fixGrep {lines params grepflags} {
   proc cihashLookup {lines} {
      set cihashes {}
      foreach line $lines {
         # FIXME: there must be a nicer way to handle `grep -l' as well,
         # no?
         set fhash [string trimright [first [split $line :]]]

         if { [catch {dict get $cihashes $fhash}] }  {
            # no entry, yet, for this file artifact, so we do the lookup.
            # this is the rate limiting step by a large maring here.
            # hopefully `fossil grep' will report the checkin hash itself
            # at some time in the future.
            set report [split [exec fossil whatis $fhash] \n]
            set rgxpat {^[^[]+(\[[a-f\d]{10}\])}
            regexp $rgxpat [lindex $report 4] _ cihash
            dict set cihashes $fhash $cihash
         }
      }
      return $cihashes
   }
   set f1 [last $grepflags]
   set f2 [first $grepflags]
   if {$f1 + $f2 > 0} {
      set buf $lines
      set lines {}
      if {$f1} { lappend lines [first $buf] } 
      if {$f2} { lappend lines [last $buf] } 
   }
   set cihashes [cihashLookup $lines]
   set revnums [computeRevnums {}]
   set greppat [lindex $params end-1]
   foreach line $lines {
      set fhash [string trimright [first [split $line :]]]
      set cihash [dict get $cihashes $fhash]
      set revnum [dict get $revnums $cihash]
      # for now, we just preprend the chronological revision numbers and
      # add a bit of colour
      regsub -all "(.*?)($greppat)(.*)" $line \\1[coloured redbold \\2]\\3 line
      lappend out [coloured magenta $revnum]:$line
   }
   return $out
}
proc fixGrep {lines params grepflags} {
   # alternative implementation avoiding `whatis' and using `finfo'
   # output instead to map file hash to checkin hash. this is faster
   # when having lots of matching revisions but slower when `-F -L'
   # are used since we always have to process the complete `finfo'
   # output.
   set fname [last $params]
   set finfo [lrange [split [exec fossil finfo -W 0 $fname] \n] 1 end]
   set rgxdate {^\d{4}-\d\d-\d\d}
   set rgxhash {\[([a-f\d]{10})\]}
   foreach line $finfo {
      regexp "$rgxdate $rgxhash" $line _ cihash
      regexp ", artifact: $rgxhash, branch: .*\\)" $line _ fhash


      dict set cihashes $fhash \[$cihash\]
   }
   set revnums [computeRevnums {}]
   set f1 [last $grepflags]
   set f2 [first $grepflags]
   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 {





      set fhash [string trimright [first [split $line :]]]


      set cihash [dict get $cihashes $fhash]


      set revnum [dict get $revnums $cihash]



      # for now, we just preprend the chronological revision numbers and
      # add a bit of colour
      regsub -all "(.*?)($greppat)(.*)" $line \\1[coloured redbold \\2]\\3 line
      lappend out [coloured magenta $revnum]:$line
   }
   return $out
}

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