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: |
ea60fe565543499d92636786d11d2e74 |
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
Changes to fsl.
︙ | ︙ | |||
582 583 584 585 586 587 588 | dict set cihashes $fhash $cihash } } return $cihashes } proc fixGrep {lines params grepflags} { | | | | | | 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 :]]] |
︙ | ︙ |