Eskil

    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]} {