comparison contrib/hgk @ 13461:81af2040b586 stable

hgk: read bookmarks

13460:64bb8e586a92

    set audate {}
    set comname {}
    set comdate {}
    set rev {}
    set branch {}
    if {![info exists nchildren($id)]} {
	set children($id) {}
	set nchildren($id) 0
	set ncleft($id) 0
    }

		    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]]
		}
	    }
	} else {
	    if {$comment == {}} {
		set headline [string trim $line]
	    } else {

    if {$comdate != {}} {
	set cdate($id) $comdate
	set comdate [clock format $comdate -format "%Y-%m-%d %H:%M:%S"]
    }
    set commitinfo($id) [list $headline $auname $audate \
			     $comname $comdate $comment $rev $branch]

    if {[info exists firstparents]} {
        set i [lsearch $firstparents $id]
        if {$i != -1} {
            # remove the parent from firstparents, possible building

        }
    }
}

proc readrefs {} {
    global tagids idtags headids idheads tagcontents env curid

    set status [catch {exec $env(HG) --config ui.report_untrusted=false id} curid]
    if { $status != 0 } {
        puts $::errorInfo
        if { ![string equal $::errorCode NONE] } {

        if {$match != ""} {
        lappend idheads($sha) $id
        }
    }

}

proc readotherrefs {base dname excl} {
    global otherrefids idotherrefs

proc drawcommitline {level} {
    global parents children nparents displist
    global canv canv2 canv3 mainfont namefont canvy linespc
    global lineid linehtag linentag linedtag commitinfo
    global colormap numcommits currentparents dupparents
    global idtags idline idheads idotherrefs
    global lineno lthickness mainline mainlinearrow sidelines
    global commitlisted rowtextx idpos lastuse displist
    global oldnlines olddlevel olddisplist
    global aucolormap curid curidfont

	set xt [expr {$xt + ([llength $currentparents] - 2) * $linespc}]
    }
    set rowtextx($lineno) $xt
    set idpos($id) [list $x $xt $y1]
    if {[info exists idtags($id)] || [info exists idheads($id)]
	|| [info exists idotherrefs($id)]} {
	set xt [drawtags $id $x $xt $y1]
    }
    set headline [lindex $commitinfo($id) 0]
    set name [lindex $commitinfo($id) 1]
    assignauthorcolor $name

    catch {destroy $wrcomtop}
    unset wrcomtop
}

proc listrefs {id} {
    global idtags idheads idotherrefs

    set x {}
    if {[info exists idtags($id)]} {
	set x $idtags($id)
    }
    set y {}

    }
    set z {}
    if {[info exists idotherrefs($id)]} {
	set z $idotherrefs($id)
    }
    return [list $x $y $z]
}

proc rereadrefs {} {
    global idtags idheads idotherrefs
    global tagids headids otherrefids

    set refids [concat [array names idtags] \
		    [array names idheads] [array names idotherrefs]]
    foreach id $refids {
	if {![info exists ref($id)]} {
	    set ref($id) [listrefs $id]
	}
    }
    foreach v {tagids idtags headids idheads otherrefids idotherrefs} {
	catch {unset $v}
    }
    readrefs
    set refids [lsort -unique [concat $refids [array names idtags] \
			[array names idheads] [array names idotherrefs]]]
    foreach id $refids {
	set v [listrefs $id]
	if {![info exists ref($id)] || $ref($id) != $v} {
	    redrawtags $id
	}

13461:81af2040b586

    set audate {}
    set comname {}
    set comdate {}
    set rev {}
    set branch {}
    set bookmark {}
    if {![info exists nchildren($id)]} {
	set children($id) {}
	set nchildren($id) 0
	set ncleft($id) 0
    }

		    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]]
        }
	    }
	} else {
	    if {$comment == {}} {
		set headline [string trim $line]
	    } else {

    if {$comdate != {}} {
	set cdate($id) $comdate
	set comdate [clock format $comdate -format "%Y-%m-%d %H:%M:%S"]
    }
    set commitinfo($id) [list $headline $auname $audate \
			     $comname $comdate $comment $rev $branch $bookmark]

    if {[info exists firstparents]} {
        set i [lsearch $firstparents $id]
        if {$i != -1} {
            # remove the parent from firstparents, possible building

        }
    }
}

proc readrefs {} {
    global bookmarkcurrent bookmarkids tagids idtags idbookmarks headids idheads tagcontents env curid

    set status [catch {exec $env(HG) --config ui.report_untrusted=false id} curid]
    if { $status != 0 } {
        puts $::errorInfo
        if { ![string equal $::errorCode NONE] } {

        if {$match != ""} {
        lappend idheads($sha) $id
        }
    }

    set status [catch {exec $env(HG) --config ui.report_untrusted=false bookmarks} bookmarks]
    if { $status != 0 } {
        puts $::errorInfo
        if { ![string equal $::errorCode NONE] } {
            exit 2
        }
    }
    set lines [split $bookmarks "\n"]
    set bookmarkcurrent 0
    foreach f $lines {
	regexp {(\S+)$} $f full
	regsub {\s+(\S+)$} $f "" direct
	set sha [split $full ':']
	set bookmark [lindex $sha 1]
	set current [string first " * " $direct)]
	regsub {^\s(\*|\s)\s} $direct "" direct
	lappend bookmarkids($direct) $bookmark
	lappend idbookmarks($bookmark) $direct
	if {$current >= 0} {
		set bookmarkcurrent $direct
	}
    }
}

proc readotherrefs {base dname excl} {
    global otherrefids idotherrefs

proc drawcommitline {level} {
    global parents children nparents displist
    global canv canv2 canv3 mainfont namefont canvy linespc
    global lineid linehtag linentag linedtag commitinfo
    global colormap numcommits currentparents dupparents
    global idtags idline idheads idotherrefs idbookmarks
    global lineno lthickness mainline mainlinearrow sidelines
    global commitlisted rowtextx idpos lastuse displist
    global oldnlines olddlevel olddisplist
    global aucolormap curid curidfont

	set xt [expr {$xt + ([llength $currentparents] - 2) * $linespc}]
    }
    set rowtextx($lineno) $xt
    set idpos($id) [list $x $xt $y1]
    if {[info exists idtags($id)] || [info exists idheads($id)]
	|| [info exists idotherrefs($id)] || [info exists idbookmarks($id)]} {
	set xt [drawtags $id $x $xt $y1]
    }
    set headline [lindex $commitinfo($id) 0]
    set name [lindex $commitinfo($id) 1]
    assignauthorcolor $name

    catch {destroy $wrcomtop}
    unset wrcomtop
}

proc listrefs {id} {
    global idtags idheads idotherrefs idbookmarks

    set w {}
    if {[info exists idbookmarks($id)]} {
	set w $idbookmarks($id)
    }
    set x {}
    if {[info exists idtags($id)]} {
	set x $idtags($id)
    }
    set y {}

    }
    set z {}
    if {[info exists idotherrefs($id)]} {
	set z $idotherrefs($id)
    }
    return [list $w $x $y $z]
}

proc rereadrefs {} {
    global idbookmarks idtags idheads idotherrefs
    global bookmarkids tagids headids otherrefids

    set refids [concat [array names idtags] \
		    [array names idheads] [array names idotherrefs] \
		    [array names idbookmarks]]
    foreach id $refids {
	if {![info exists ref($id)]} {
	    set ref($id) [listrefs $id]
	}
    }
    foreach v {tagids idtags headids idheads otherrefids idotherrefs \
        bookmarkids idbookmarks} {
	catch {unset $v}
    }
    readrefs
    set refids [lsort -unique [concat $refids [array names idtags] \
			[array names idheads] [array names idotherrefs] \
			[array names idbookmarks]]]
    foreach id $refids {
	set v [listrefs $id]
	if {![info exists ref($id)] || $ref($id) != $v} {
	    redrawtags $id
	}