comparison contrib/hgk @ 4480:28cbe9e01f17

hgk - fix CR issues on windows

4479:afa1f57ae484

	    lappend revargs $opt
	}
    }
    if [catch {
	set parse_args [concat --default HEAD $revargs]
	set parsed_args [split [eval exec hg debug-rev-parse $parse_args] "\n"]
    } err] {
	# if git-rev-parse failed for some reason...
	if {$rargs == {}} {
	    set revargs HEAD
	}

	if {$start == 0} {
	    set cmit "$leftover$cmit"
	    set leftover {}
	}
	set start [expr {$i + 1}]
	set j [string first "\n" $cmit]
	set ok 0
	if {$j >= 0} {
	    set ids [string range $cmit 0 [expr {$j - 1}]]
	    set ok 1

	    lappend children($p) $id
	    incr nchildren($p)
	    incr ncleft($p)
	}
    }
    foreach line [split $contents "\n"] {
	if {$inhdr} {
	    set line [split $line]
	    if {$line == {}} {
		set inhdr 0

proc readrefs {} {
    global tagids idtags headids idheads tagcontents

    set tags [exec hg tags]
    set lines [split $tags '\n']
    foreach f $lines {
	set f [regexp -all -inline {\S+} $f]
	set direct [lindex $f 0]
	set full [lindex $f 1]
	set sha [split $full ':']

	return
    }
    if {$ids != $diffids || $bdf != $blobdifffd($ids)} {
	return
    }
    $ctext conf -state normal
    if {[regexp {^diff --git a/(.*) b/(.*)} $line match fname newname]} {
	# start of a new file
	$ctext insert end "\n"
	$ctext tag add $curdifftag $curtagstart end

	    }
	    $ctext insert end "$line\n"
	} elseif {$diffinhdr || $x == "\\"} {
	    # e.g. "\ No newline at end of file"
	    $ctext insert end "$line\n" filesep
	} else {
	    # Something else we don't recognize
	    if {$curdifftag != "Comments"} {
		$ctext insert end "\n"
		$ctext tag add $curdifftag $curtagstart end
		set curtagstart [$ctext index "end - 1c"]

4480:28cbe9e01f17

	    lappend revargs $opt
	}
    }
    if [catch {
	set parse_args [concat --default HEAD $revargs]
	set parse_temp [eval exec hg debug-rev-parse $parse_args]
	regsub -all "\r\n" $parse_temp "\n" parse_temp
	set parsed_args [split $parse_temp "\n"]
    } err] {
	# if git-rev-parse failed for some reason...
	if {$rargs == {}} {
	    set revargs HEAD
	}

	if {$start == 0} {
	    set cmit "$leftover$cmit"
	    set leftover {}
	}
	set start [expr {$i + 1}]
	regsub -all "\r\n" $cmit "\n" cmit
	set j [string first "\n" $cmit]
	set ok 0
	if {$j >= 0} {
	    set ids [string range $cmit 0 [expr {$j - 1}]]
	    set ok 1

	    lappend children($p) $id
	    incr nchildren($p)
	    incr ncleft($p)
	}
    }
    regsub -all "\r\n" $contents "\n" contents
    foreach line [split $contents "\n"] {
	if {$inhdr} {
	    set line [split $line]
	    if {$line == {}} {
		set inhdr 0

proc readrefs {} {
    global tagids idtags headids idheads tagcontents

    set tags [exec hg tags]
    regsub -all "\r\n" $tags "\n" tags
    set lines [split $tags "\n"]
    foreach f $lines {
	set f [regexp -all -inline {\S+} $f]
	set direct [lindex $f 0]
	set full [lindex $f 1]
	set sha [split $full ':']

	return
    }
    if {$ids != $diffids || $bdf != $blobdifffd($ids)} {
	return
    }
    regsub -all "\r" $line "" line
    $ctext conf -state normal
    if {[regexp {^diff --git a/(.*) b/(.*)} $line match fname newname]} {
	# start of a new file
	$ctext insert end "\n"
	$ctext tag add $curdifftag $curtagstart end

	    }
	    $ctext insert end "$line\n"
	} elseif {$diffinhdr || $x == "\\"} {
	    # e.g. "\ No newline at end of file"
	    $ctext insert end "$line\n" filesep
	} elseif  {$line != ""} {
	    # Something else we don't recognize
	    if {$curdifftag != "Comments"} {
		$ctext insert end "\n"
		$ctext tag add $curdifftag $curtagstart end
		set curtagstart [$ctext index "end - 1c"]