1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
|
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]} {
|