Eskil

Check-in [61849504cd]
Login

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

Overview
Comment:Do not parse GIT revisions.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 61849504cd33abb3f89fc9153f40940e05d918b5
User & Date: peter 2008-09-23 18:48:38.000
Context
2008-09-23
19:37
Added log button for version control. check-in: 394d532897 user: peter tags: trunk
18:48
Do not parse GIT revisions. check-in: 61849504cd user: peter tags: trunk
2008-05-23
04:59
More plugin examples check-in: c0f250b652 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/rev.tcl.
︙︙
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]
    }
︙︙