proc gitdir {} {

    global env

    if {[info exists env(GIT_DIR)]} {

	return $env(GIT_DIR)

    } else {

	return ".hg"

}

proc getcommits {rargs} {

    global commits commfd phase canv mainfont env

    global startmsecs nextupdate ncmupdate

    global ctext maincursor textcursor leftover

    # check that we can find a .git directory somewhere...

    set gitdir [gitdir]

    if {![file isdirectory $gitdir]} {

	error_popup "Cannot find the git directory \"$gitdir\"."

    set commits {}

    set phase getcommits

    set startmsecs [clock clicks -milliseconds]

    set nextupdate [expr $startmsecs + 100]

    set ncmupdate 1

    if [catch {

	set parse_args [concat --default HEAD $rargs]

	set parsed_args [split [eval exec hg git-rev-parse $parse_args] "\n"]

    }] {

	# if git-rev-parse failed for some reason...

	if {$rargs == {}} {

	    set rargs HEAD

	}

	set parsed_args $rargs

    }

    if [catch {

	set commfd [open "|hg git-rev-list --header --topo-order --parents $parsed_args" r]

    } err] {

	puts stderr "Error executing hg git-rev-list: $err"

	exit 1

    }

    set leftover {}

    fconfigure $commfd -blocking 0 -translation lf

    fileevent $commfd readable [list getcommitlines $commfd]

    $canv create text 3 3 -anchor nw -text "Reading commits..." \

    . config -cursor watch

    settextcursor watch

proc getcommitlines {commfd}  {

    global commits parents cdate children

    global commitlisted phase commitinfo nextupdate

    global stopped redisplaying leftover

    set stuff [read $commfd]

    if {$stuff == {}} {

	# set it blocking so we wait for the process to terminate

	    after idle finishcommits

	    set err \

{Gitk: error reading commits: bad arguments to git-rev-list.

(Note: arguments to gitk are passed to git-rev-list

to allow selection of commits to be displayed.)}

    set start 0

    while 1 {

	set i [string first "\0" $stuff $start]

	if {$i < 0} {

	    append leftover [string range $stuff $start end]

	    return

	}

	set cmit [string range $stuff $start [expr {$i - 1}]]

	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

	    foreach id $ids {

		if {![regexp {^[0-9a-f]{40}$} $id]} {

		    set ok 0

		    break

		}

	    }

	}

	if {!$ok} {

	    set shortcmit $cmit

	    if {[string length $shortcmit] > 80} {

		set shortcmit "[string range $shortcmit 0 80]..."

	    }

	    error_popup "Can't parse hg git-rev-list output: {$shortcmit}"

	    exit 1

	}

	set id [lindex $ids 0]

	set olds [lrange $ids 1 end]

	set cmit [string range $cmit [expr {$j + 1}] end]

	lappend commits $id

	set commitlisted($id) 1

	parsecommit $id $cmit 1 [lrange $ids 1 end]

	drawcommit $id

	if {[clock clicks -milliseconds] >= $nextupdate} {

	    doupdate 1

	}

	while {$redisplaying} {

	    set redisplaying 0

	    if {$stopped == 1} {

		set stopped 0

		set phase "getcommits"

		foreach id $commits {

		    drawcommit $id

		    if {$stopped} break

		    if {[clock clicks -milliseconds] >= $nextupdate} {

			doupdate 1

		    }

		}

	    }

	}

proc doupdate {reading} {

    global commfd nextupdate numcommits ncmupdate

    if {$reading} {

	fileevent $commfd readable {}

    update

    set nextupdate [expr {[clock clicks -milliseconds] + 100}]

    if {$numcommits < 100} {

	set ncmupdate [expr {$numcommits + 1}]

    } elseif {$numcommits < 10000} {

	set ncmupdate [expr {$numcommits + 10}]

    } else {

	set ncmupdate [expr {$numcommits + 100}]

    }

    if {$reading} {

	fileevent $commfd readable [list getcommitlines $commfd]

    }

proc readcommit {id} {

    if [catch {set contents [exec hg git-cat-file commit $id]}] return

    parsecommit $id $contents 0 {}

}

proc parsecommit {id contents listed olds} {

    global commitinfo children nchildren parents nparents cdate ncleft

	set ncleft($id) 0

    set parents($id) $olds

    set nparents($id) [llength $olds]

    foreach p $olds {

	if {![info exists nchildren($p)]} {

	    set children($p) [list $id]

	    set nchildren($p) 1

	    set ncleft($p) 1

	} elseif {[lsearch -exact $children($p) $id] < 0} {

	    lappend children($p) $id

	    incr nchildren($p)

	    incr ncleft($p)

	}

    }

		if {$tag == "author"} {

		set headline [string trim $line]

	    if {!$listed} {

		# git-rev-list indents the comment by 4 spaces;

		# if we got this via git-cat-file, add the indentation

		append comment "    "

	    }

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 ':']

	set tag [lindex $sha 1]

	lappend tagids($direct) $tag

	lappend idtags($tag) $direct

proc readotherrefs {base dname excl} {

    global otherrefids idotherrefs

    set git [gitdir]

    set files [glob -nocomplain -types f [file join $git $base *]]

    foreach f $files {

	    set line [read $fd 40]

		set name "$dname[file tail $f]"

		set otherrefids($name) $id

		lappend idotherrefs($id) $name

	    close $fd

    set dirs [glob -nocomplain -types d [file join $git $base *]]

    foreach d $dirs {

	set dir [file tail $d]

	if {[lsearch -exact $excl $dir] >= 0} continue

	readotherrefs [file join $base $dir] "$dname$dir/" {}

    }

    global findtype findtypemenu findloc findstring fstring geometry

    global maincursor textcursor curtextcursor

    global rowctxmenu gaudydiff mergemax

    .bar.file add command -label "Reread references" -command rereadrefs

    image create bitmap bm-left -data {

	#define left_width 16

	#define left_height 16

	static unsigned char left_bits[] = {

	0x00, 0x00, 0xc0, 0x01, 0xe0, 0x00, 0x70, 0x00, 0x38, 0x00, 0x1c, 0x00,

	0x0e, 0x00, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x0e, 0x00, 0x1c, 0x00,

	0x38, 0x00, 0x70, 0x00, 0xe0, 0x00, 0xc0, 0x01};

    }

    image create bitmap bm-right -data {

	#define right_width 16

	#define right_height 16

	static unsigned char right_bits[] = {

	0x00, 0x00, 0xc0, 0x01, 0x80, 0x03, 0x00, 0x07, 0x00, 0x0e, 0x00, 0x1c,

	0x00, 0x38, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x00, 0x38, 0x00, 0x1c,

	0x00, 0x0e, 0x00, 0x07, 0x80, 0x03, 0xc0, 0x01};

    }

    button .ctop.top.bar.leftbut -image bm-left -command goback \

	-state disabled -width 26

    pack .ctop.top.bar.leftbut -side left -fill y

    button .ctop.top.bar.rightbut -image bm-right -command goforw \

	-state disabled -width 26

    pack .ctop.top.bar.rightbut -side left -fill y

    set findtypemenu [tk_optionMenu .ctop.top.bar.findtype \

			  findtype Exact IgnCase Regexp]

	Comments Author Committer Files Pickaxe

    # for making sure type==Exact whenever loc==Pickaxe

    trace add variable findloc write findlocchange

	-yscrollcommand ".ctop.cdet.left.sb set" -wrap none

    $ctext tag conf filesep -font [concat $textfont bold] -back "#aaaaaa"

    if {$gaudydiff} {

	$ctext tag conf hunksep -back blue -fore white

	$ctext tag conf d0 -back "#ff8080"

	$ctext tag conf d1 -back green

    } else {

	$ctext tag conf hunksep -fore blue

	$ctext tag conf d0 -fore red

	$ctext tag conf d1 -fore "#00a000"

	$ctext tag conf m0 -fore red

	$ctext tag conf m1 -fore blue

	$ctext tag conf m2 -fore green

	$ctext tag conf m3 -fore purple

	$ctext tag conf m4 -fore brown

	$ctext tag conf mmax -fore darkgrey

	set mergemax 5

	$ctext tag conf mresult -font [concat $textfont bold]

	$ctext tag conf msep -font [concat $textfont bold]

	$ctext tag conf found -back yellow

    }

    bindall <1> {selcanvline %W %x %y}

    #bindall <B1-Motion> {selcanvline %W %x %y}

    bindkey / {findnext 1}

    bindkey <Key-Return> {findnext 0}

    bind . <Control-g> {findnext 0}

    bind $sha1entry <<PasteSelection>> clearsha1

    set maincursor [. cget -cursor]

    set textcursor [$ctext cget -cursor]

    set curtextcursor $textcursor

    set rowctxmenu .rowctxmenu

    menu $rowctxmenu -tearoff 0

    $rowctxmenu add command -label "Diff this -> selected" \

	-command {diffvssel 0}

    $rowctxmenu add command -label "Diff selected -> this" \

	-command {diffvssel 1}

    $rowctxmenu add command -label "Make patch" -command mkpatch

    $rowctxmenu add command -label "Create tag" -command mktag

    $rowctxmenu add command -label "Write commit to file" -command writecommit