comparison contrib/hgk @ 24531:18ee81b37928

hgk: use switch instead of a less efficient if/elseif/if

24530:2ace3b77aaef

	    set line [split $line]
	    if {$line == {}} {
		set inhdr 0
	    } else {
		set tag [lindex $line 0]
		if {$tag == "author"} {
		    set x [expr {[llength $line] - 2}]
		    set audate [lindex $line $x]
		    set auname [join [lrange $line 1 [expr {$x - 1}]]]
		} elseif {$tag == "committer"} {
		    set x [expr {[llength $line] - 2}]
		    set comdate [lindex $line $x]
		    set comname [join [lrange $line 1 [expr {$x - 1}]]]
		} elseif {$tag == "revision"} {
		    set rev [lindex $line 1]
        } elseif {$tag == "branch"} {
		    set branch [join [lrange $line 1 end]]
        } elseif {$tag == "bookmark"} {
		    set bookmark [join [lrange $line 1 end]]
        } elseif {$tag == "obsolete"} {
		    set obsolete($id) ""
        } elseif {$tag == "phase"} {
		    set phase [lindex $line 1 end]
        }
	    }
	} else {
	    if {$comment == {}} {
		set headline [string trim $line]
	    } else {

24531:18ee81b37928

	    set line [split $line]
	    if {$line == {}} {
		set inhdr 0
	    } else {
		set tag [lindex $line 0]
		switch -- $tag "author" {
		    set x [expr {[llength $line] - 2}]
		    set audate [lindex $line $x]
		    set auname [join [lrange $line 1 [expr {$x - 1}]]]
		} "committer" {
		    set x [expr {[llength $line] - 2}]
		    set comdate [lindex $line $x]
		    set comname [join [lrange $line 1 [expr {$x - 1}]]]
		} "revision" {
		    set rev [lindex $line 1]
		} "branch" {
		    set branch [join [lrange $line 1 end]]
		} "bookmark" {
		    set bookmark [join [lrange $line 1 end]]
		} "obsolete" {
		    set obsolete($id) ""
		} "phase" {
		    set phase [lindex $line 1 end]
		}
	    }
	} else {
	    if {$comment == {}} {
		set headline [string trim $line]
	    } else {