Eskil

Check-in [f6025faa97]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed bug in Fossil handling. Rev -1 did not work.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: f6025faa97a4fc005471b76daa46717912368d554eb42ea0e1a7216679656c49
User & Date: peter 2018-05-12 22:22:48.650
Context
2018-05-12
22:46
Working on fourway check-in: a608e48144 user: peter tags: trunk
22:22
Fixed bug in Fossil handling. Rev -1 did not work. check-in: f6025faa97 user: peter tags: trunk
20:17
Rewrote fourway to snit widget check-in: 16633c04b0 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Changes. 



1
2
3
4
5
6
7




2018-05-12
 Started on fourway diff.

Released 2.8.1

2018-01-14
 Removed support for old RCS style -rREV command line.

>
>
>








1
2
3
4
5
6
7
8
9
10

2018-05-13
 Fixed bug in Fossil handling. Rev -1 did not work.

2018-05-12
 Started on fourway diff.

Released 2.8.1

2018-01-14
 Removed support for old RCS style -rREV command line.
︙︙
Changes to src/rev.tcl.
︙︙
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 ""} {
︙︙