Fossil Wrapper

Check-in [ea60fe5655]
Login

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

Overview
Comment:reverse order of first/last report to make it consistent with the newest to oldest sorting of `grep' reporting.
Timelines: family | ancestors | descendants | both | grep
Files: files | file ages | folders
SHA1: ea60fe565543499d92636786d11d2e740ef7b562
User & Date: j 2019-07-06 16:24:25
Context
2019-07-08
16:05
another `fixGrep' which is possibly superior since overall easier and faster. check-in: ee7ec69ea7 user: j tags: grep
2019-07-06
16:24
reverse order of first/last report to make it consistent with the newest to oldest sorting of `grep' reporting. check-in: ea60fe5655 user: j tags: grep
16:18
added a `grep' interceptor to allow for further options. other small edits. check-in: 1043c97588 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
596
597
598
599
600
601
602
         dict set cihashes $fhash $cihash
      }
   }
   return $cihashes
}

proc fixGrep {lines params grepflags} {
   set f1 [first $grepflags]
   set f2 [last $grepflags]
   if {$f1 + $f2 > 0} {
      set buf $lines
      set lines {}
      if {$f1} { lappend lines [last $buf] } 
      if {$f2} { lappend lines [first $buf] } 
   }

   set cihashes [cihashLookup $lines]
   set revnums [computeRevnums {}]
   set greppat [lindex $params end-1]
   foreach line $lines {
      set fhash [string trimright [first [split $line :]]]







|
|



|
|







582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
         dict set cihashes $fhash $cihash
      }
   }
   return $cihashes
}

proc fixGrep {lines params grepflags} {
   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 :]]]