92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
return 1
}
}
return 0
}
proc eskil::rev::SVN::detect {file} {
if {$file eq ""} {
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
}
|
>
|
<
<
<
<
<
|
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
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 {[SearchUpwardsFromFile $file .svn]} {
if {[auto_execok svn] ne ""} {
return 1
}
}
return 0
}
|