Eskil

            return 1
        }
    }
    return 0
}

proc eskil::rev::SVN::detect {file} {
    # From SVN 1.7, there is only a .svn at the top of the checkout
    if {$file eq ""} {
    if {[SearchUpwardsFromFile $file .svn]} {
        set dir [pwd]
    } else {
        set dir [file dirname $file]
    }
    if {[file isdirectory [file join $dir .svn]]} {
        if {[auto_execok svn] ne ""} {
            return 1
        }
    }
    return 0
}