Eskil

Check-in [329d49a32b]
Login

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

Overview
Comment:Support revisions with -review in Git.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 329d49a32b9e10c102b90d93092e70419e4329b3
User & Date: peter.spjuth@gmail.com 2011-04-11 22:44:59.000
Context
2011-04-11
22:50
Corrected test. check-in: 8a484427e6 user: peter.spjuth@gmail.com tags: trunk
22:44
Support revisions with -review in Git. check-in: 329d49a32b user: peter.spjuth@gmail.com tags: trunk
22:22
Support files and revisions with -review in fossil. check-in: 02a3bda086 user: peter.spjuth@gmail.com tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Changes. 
1
2

3
4
5
6
7
8
9

2011-04-11
 Support files and revisions with -review in fossil.


2011-04-05
 Added -pluginlist option.
 Added Paste Patch command in Tools.

2011-04-04
 Support list of files with -review.


|
>








1
2
3
4
5
6
7
8
9
10

2011-04-11
 Support files and revisions with -review in Fossil.
 Support revisions with -review in Git.

2011-04-05
 Added -pluginlist option.
 Added Paste Patch command in Tools.

2011-04-04
 Support list of files with -review.
︙︙
Changes to src/rev.tcl.
︙︙
434
435
436
437
438
439
440
441




442




443
444
445
446
447
448
449

    cd $dir
    catch {exec git add $tail}
    cd $old
}

# Get a GIT patch
proc eskil::rev::GIT::getPatch {revs {files {}}} {
    set cmd [list exec git diff {*}$files]




    # No rev support yet





    if {[catch {eval $cmd} res]} {
        tk_messageBox -icon error -title "GIT error" -message $res
        return ""
    }
    return $res
}








|
>
>
>
>
|
>
>
>
>








434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457

    cd $dir
    catch {exec git add $tail}
    cd $old
}

# Get a GIT patch
proc eskil::rev::GIT::getPatch {revs {files {}}} {
    set cmd [list exec git diff -p]
    if {[llength $revs] == 0} {
        # Always default to HEAD to see changes regardless of index
        lappend cmd HEAD
    } else {
        foreach rev $revs {
            lappend cmd $rev
        }
    }
    lappend cmd "--" {*}$files

    if {[catch {eval $cmd} res]} {
        tk_messageBox -icon error -title "GIT error" -message $res
        return ""
    }
    return $res
}
︙︙