Eskil

Differences From Artifact [f3d2192ddd]:

• File src/rev.tcl — part of check-in [20e5aa713f] at 2008-04-08 16:42:06 on branch trunk — Support -context with -review for CVS. (user: peter size: 22824)

To Artifact [10eb7cf43d]:

• File src/rev.tcl — part of check-in [61849504cd] at 2008-09-23 18:48:38 on branch trunk — Do not parse GIT revisions. (user: peter size: 22859)

466
467
468
469
470
471
472
473
474
475
476
477
478
479
480

}

# Figure out GIT revision from arguments
proc eskil::rev::GIT::ParseRevs {filename revs} {
    set result ""
    foreach rev $revs {
        switch -glob -- $rev {
            HEAD - master {
                lappend result $rev
            }
        }
    }
    if {[llength $result] == 0} {
        set result [list HEAD]
    }

|

466
467
468
469
470
471
472
473
474
475
476
477
478
479
480

}

# Figure out GIT revision from arguments
proc eskil::rev::GIT::ParseRevs {filename revs} {
    set result ""
    foreach rev $revs {
        switch -glob -- $rev {
            HEAD - master - * { # Let anything through for now
                lappend result $rev
            }
        }
    }
    if {[llength $result] == 0} {
        set result [list HEAD]
    }