785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
|
# Figure out FOSSIL revision from arguments
proc eskil::rev::FOSSIL::ParseRevs {filename revs} {
set result ""
foreach rev $revs {
# Special cases that shortcuts to Fossil special names
if {$rev eq "_" || $rev eq "0"} {set rev current}
if {$rev eq "-1"} {set rev previous}
if {[string is integer -strict $rev] && $rev < 0} {
# A negative integer rev is a relative rev
set revList [eskil::rev::FOSSIL::GetRevList $filename]
set rev [lindex $revList [- $rev]]
if {$rev eq ""} {
|
>
|
|
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
|
# Figure out FOSSIL revision from arguments
proc eskil::rev::FOSSIL::ParseRevs {filename revs} {
set result ""
foreach rev $revs {
# Special cases that shortcuts to Fossil special names
if {$rev eq "_" || $rev eq "0"} {set rev current}
# Previous does not work for files
#if {$rev eq "-1"} {set rev previous}
if {[string is integer -strict $rev] && $rev < 0} {
# A negative integer rev is a relative rev
set revList [eskil::rev::FOSSIL::GetRevList $filename]
set rev [lindex $revList [- $rev]]
if {$rev eq ""} {
|