Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Log View support for Fossil |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
b9f391ecdb1f1b171e78b0be22898991 |
| User & Date: | peter 2021-02-28 15:37:20.343 |
Context
|
2021-02-28
| ||
| 23:39 | Typo check-in: e5b412df12 user: peter tags: trunk | |
| 15:37 | Log View support for Fossil check-in: b9f391ecdb user: peter tags: trunk | |
| 15:36 | Support pdftotext flags in pdf plugin check-in: 4792598887 user: peter tags: trunk | |
Changes
Changes to src/rev.tcl.
| ︙ | ︙ | |||
1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 |
set cmd [list exec hg log]
foreach rev $revs {
lappend cmd -r $rev
}
lappend cmd $filename
if {[catch {eval $cmd} result]} {
#return
}
ViewLog $top $filename $result
}
proc eskil::rev::CT::current {filename} {
# Figure out stream and current version
if {[catch {exec cleartool ls $filename} info]} {
| > > > > > > > > > > > > > > | 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 |
set cmd [list exec hg log]
foreach rev $revs {
lappend cmd -r $rev
}
lappend cmd $filename
if {[catch {eval $cmd} result]} {
#return
}
ViewLog $top $filename $result
}
proc eskil::rev::FOSSIL::viewLog {top filename revs} {
set cmd [list exec fossil timeline]
foreach rev $revs {
lappend cmd after $rev
# Only support for one at this point.
break
}
lappend cmd --limit 0 --path $filename
if {[catch {eval $cmd} result]} {
#return
}
ViewLog $top $filename $result
}
proc eskil::rev::CT::current {filename} {
# Figure out stream and current version
if {[catch {exec cleartool ls $filename} info]} {
|
| ︙ | ︙ |