contrib/hgk

24511:0ecc1e42ff3f

    set startmsecs [clock clicks -milliseconds]
    set nextupdate [expr $startmsecs + 100]
    set ncmupdate 1
    set limit 0
    set revargs {}
    for {set i 0} {$i < [llength $rargs]} {incr i} {
	set opt [lindex $rargs $i]
	if {$opt == "--limit"} {
	    incr i
	    set limit [lindex $rargs $i]
	} else {
	    lappend revargs $opt
	}
    }
    if [catch {
	set parse_args [concat --default HEAD $revargs]

	}
	set parsed_args $revargs
    }
    if {$limit > 0} {
	set parsed_args [concat -n $limit $parsed_args]
    }
    if [catch {
	set commfd [open "|{$env(HG)} --config ui.report_untrusted=false debug-rev-list --header --topo-order --parents $parsed_args" r]
    } err] {
	puts stderr "Error executing hg debug-rev-list: $err"

24512:e5c5ddc3b172

    set startmsecs [clock clicks -milliseconds]
    set nextupdate [expr $startmsecs + 100]
    set ncmupdate 1
    set limit 0
    set revargs {}
    set showhidden no
    for {set i 0} {$i < [llength $rargs]} {incr i} {
	set opt [lindex $rargs $i]
	switch -- $opt --limit {
	    incr i
	    set limit [lindex $rargs $i]
	} --hidden {
	    set showhidden yes
	} default {
	    lappend revargs $opt
	}
    }
    if [catch {
	set parse_args [concat --default HEAD $revargs]

	}
	set parsed_args $revargs
    }
    if {$limit > 0} {
	set parsed_args [concat -n $limit $parsed_args]
    }
    if {$showhidden} {
	append parsed_args --hidden
    }
    if [catch {
	set commfd [open "|{$env(HG)} --config ui.report_untrusted=false debug-rev-list --header --topo-order --parents $parsed_args" r]
    } err] {
	puts stderr "Error executing hg debug-rev-list: $err"