Check-in [0a12475c4e]

Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:kettle/path/revision.git: Handle possibility of "git describe" failing (not due missing git, but due missing tags the describe wants). This needs more work to separate out a missing git command and report that as usual. This is a quick patch.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 0a12475c4e97ea90c07e94ef460a8950643434a0
User & Date: andreask 2014-05-30 20:58:26
Context
2014-05-30
20:59
Rejoin inadvertent split head. check-in: ff12632219 user: andreask tags: trunk
20:58
kettle/path/revision.git: Handle possibility of "git describe" failing (not due missing git, but due missing tags the describe wants). This needs more work to separate out a missing git command and report that as usual. This is a quick patch. check-in: 0a12475c4e user: andreask tags: trunk
2014-03-28
19:15
Split the build/install instructions for unix vs. windows. check-in: 1bc1443535 user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to path.tcl.

859
860
861
862
863
864
865

866



867
868
869
870
871
872
873
proc ::kettle::path::find.fossil {path} {
    scanup $path ::kettle::path::is.fossil
}

proc ::kettle::path::revision.git {path} {
    in $path {

	set v [::exec {*}[auto_execok git] describe]



    }
    return [string trim $v]
}

proc ::kettle::path::revision.fossil {path} {
    in $path {
	set info [::exec {*}[auto_execok fossil] info]






>
|
>
>
>







859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
proc ::kettle::path::find.fossil {path} {
    scanup $path ::kettle::path::is.fossil
}

proc ::kettle::path::revision.git {path} {
    in $path {
	try {
	    set v [::exec {*}[auto_execok git] describe]
	} on error {e o} {
	    set v [lindex [split [dict get $o -errorinfo] \n] 0]
	}
    }
    return [string trim $v]
}

proc ::kettle::path::revision.fossil {path} {
    in $path {
	set info [::exec {*}[auto_execok fossil] info]