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 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 :]]]
|