161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
return 1
}
}
return 0
}
proc eskil::rev::FOSSIL::detect {file} {
if {[SearchUpwardsFromFile $file _FOSSIL_ .fos]} {
if {[auto_execok fossil] ne ""} {
return 1
}
}
return 0
}
|
|
|
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
return 1
}
}
return 0
}
proc eskil::rev::FOSSIL::detect {file} {
if {[SearchUpwardsFromFile $file _FOSSIL_ .fslckout .fos]} {
if {[auto_execok fossil] ne ""} {
return 1
}
}
return 0
}
|
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
|
# Get a FOSSIL revision
# No support for revisions yet
proc eskil::rev::FOSSIL::get {filename outfile rev} {
set old [pwd]
set dir [file dirname $filename]
set tail [file tail $filename]
# Locate the top directory
while {![file exists $dir/_FOSSIL_]} {
set thisdir [file tail $dir]
set dir [file dirname $dir]
set tail [file join $thisdir $tail]
}
cd $dir
if {$rev eq "HEAD" || $rev eq ""} {
catch {exec fossil finfo -p $tail > $outfile}
|
|
>
>
|
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
|
# Get a FOSSIL revision
# No support for revisions yet
proc eskil::rev::FOSSIL::get {filename outfile rev} {
set old [pwd]
set dir [file dirname $filename]
set tail [file tail $filename]
# Locate the top directory
while {![file exists $dir/_FOSSIL_] &&
![file exists $dir/.fslckout] &&
![file exists $dir/.fos]} {
set thisdir [file tail $dir]
set dir [file dirname $dir]
set tail [file join $thisdir $tail]
}
cd $dir
if {$rev eq "HEAD" || $rev eq ""} {
catch {exec fossil finfo -p $tail > $outfile}
|