Eskil

Check-in [7e69edb4c8]
Login

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

Overview
Comment:Support more versions of fossil checkout files.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7e69edb4c8da0cc4d289207b90440225fddb6cc3
User & Date: peter 2013-09-28 05:34:26.478
Context
2013-09-28
05:40
Support direct print in patch mode. [6bce349e95] check-in: e4a6e0571c user: peter tags: trunk
05:34
Support more versions of fossil checkout files. check-in: 7e69edb4c8 user: peter tags: trunk
05:33
Handle more of u patch format check-in: d712bd927b user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/rev.tcl.
︙︙
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}
︙︙