Eskil

            if {[string index $lines end] eq "-"} {
                append lines $line
            } else {
                append lines \n$line
            }
        }
    }
    puts "Assuming branch '$branch'"
    puts "Found [array size ancestors] ancestors in timeline"
    #puts "Assuming branch '$branch'"
    #puts "Found [array size ancestors] ancestors in timeline"

    # Now get all commits on the file. If finfo had a tag filter,
    # this would be much easier.
    set x [exec fossil finfo -l -b $filename]
    set fAncestors {}
    foreach line [split $x \n] {
        if {[regexp {^(\w+)} $line -> artefact]} {
            if {[info exists ancestors($artefact)]} {
                lappend fAncestors $artefact
            }
        }
    }
    puts "Found [llength $fAncestors] ancestors for file"
    puts [join $fAncestors \n]
    #puts "Found [llength $fAncestors] ancestors for file"
    #puts [join $fAncestors \n]
    return $fAncestors
}

# Figure out RCS revision from arguments
proc eskil::rev::RCS::ParseRevs {filename revs} {
    if {$filename eq ""} {
        # RCS does not support tree versions