aboutsummaryrefslogtreecommitdiff
path: root/gitk
diff options
context:
space:
mode:
authorPaul Mackerras <paulus@dorrigo.(none)>2005-07-16 21:53:55 -0400
committerPaul Mackerras <paulus@dorrigo.(none)>2005-07-16 21:53:55 -0400
commit14c9dbd69bfed89011f99278c7f293b0d186ffc7 (patch)
tree2fbe09ae13cf6f42469ffe71ad8bfeb74194b148 /gitk
parentb74fd579662c9d05db5cfb4b0e2b95f8919b9916 (diff)
downloadgit-14c9dbd69bfed89011f99278c7f293b0d186ffc7.tar.gz
git-14c9dbd69bfed89011f99278c7f293b0d186ffc7.tar.xz
Make searching in files changed faster, and fix some bugs.
We now kick off a single git-diff-tree -r --stdin and feed it all the commit pairs we want to know about, instead of doing a separate git-diff-tree invocation for each.
Diffstat (limited to 'gitk')
-rwxr-xr-xgitk180
1 files changed, 137 insertions, 43 deletions
diff --git a/gitk b/gitk
index a1d65fa87..e190ce6e6 100755
--- a/gitk
+++ b/gitk
@@ -1291,6 +1291,7 @@ proc findpatches {} {
global findstring selectedline numcommits
global findprocpid findprocfile
global finddidsel ctext lineid findinprogress
+ global findinsertpos
if {$numcommits == 0} return
@@ -1317,6 +1318,7 @@ proc findpatches {} {
return
}
+ set findinsertpos end
set findprocfile $f
set findprocpid [pid $f]
fconfigure $f -blocking 0
@@ -1329,7 +1331,7 @@ proc findpatches {} {
proc readfindproc {} {
global findprocfile finddidsel
- global idline matchinglines
+ global idline matchinglines findinsertpos
set n [gets $findprocfile line]
if {$n < 0} {
@@ -1351,7 +1353,24 @@ proc readfindproc {} {
return
}
set l $idline($id)
- lappend matchinglines $l
+ insertmatch $l $id
+}
+
+proc insertmatch {l id} {
+ global matchinglines findinsertpos finddidsel
+
+ if {$findinsertpos == "end"} {
+ if {$matchinglines != {} && $l < [lindex $matchinglines 0]} {
+ set matchinglines [linsert $matchinglines 0 $l]
+ set findinsertpos 1
+ } else {
+ lappend matchinglines $l
+ }
+ } else {
+ set matchinglines [linsert $matchinglines $findinsertpos $l]
+ incr findinsertpos
+ }
+ markheadline $l $id
if {!$finddidsel} {
findselectline $l
set finddidsel 1
@@ -1359,9 +1378,11 @@ proc readfindproc {} {
}
proc findfiles {} {
- global selectedline numcommits lineid
- global ffileline finddidsel parents findstartline
- global findinprogress ctext
+ global selectedline numcommits lineid ctext
+ global ffileline finddidsel parents nparents
+ global findinprogress findstartline findinsertpos
+ global treediffs fdiffids fdiffsneeded fdiffpos
+ global findmergefiles
if {$numcommits == 0} return
@@ -1371,15 +1392,107 @@ proc findfiles {} {
set l 0
}
set ffileline $l
- set finddidsel 0
set findstartline $l
+ set diffsneeded {}
+ set fdiffsneeded {}
+ while 1 {
+ set id $lineid($l)
+ if {$findmergefiles || $nparents($id) == 1} {
+ foreach p $parents($id) {
+ if {![info exists treediffs([list $id $p])]} {
+ append diffsneeded "$id $p\n"
+ lappend fdiffsneeded [list $id $p]
+ }
+ }
+ }
+ if {[incr l] >= $numcommits} {
+ set l 0
+ }
+ if {$l == $findstartline} break
+ }
+
+ # start off a git-diff-tree process if needed
+ if {$diffsneeded ne {}} {
+ if {[catch {
+ set df [open [list | git-diff-tree -r --stdin << $diffsneeded] r]
+ } err ]} {
+ error_popup "Error starting search process: $err"
+ return
+ }
+ catch {unset fdiffids}
+ set fdiffpos 0
+ fconfigure $df -blocking 0
+ fileevent $df readable [list readfilediffs $df]
+ }
+
+ set finddidsel 0
+ set findinsertpos end
set id $lineid($l)
set p [lindex $parents($id) 0]
. config -cursor watch
$ctext config -cursor watch
set findinprogress 1
- update
findcont [list $id $p]
+ update
+}
+
+proc readfilediffs {df} {
+ global findids fdiffids fdiffs
+
+ set n [gets $df line]
+ if {$n < 0} {
+ if {[eof $df]} {
+ donefilediff
+ if {[catch {close $df} err]} {
+ stopfindproc
+ bell
+ error_popup "Error in git-diff-tree: $err"
+ } elseif {[info exists findids]} {
+ set ids $findids
+ stopfindproc
+ bell
+ error_popup "Couldn't find diffs for {$ids}"
+ }
+ }
+ return
+ }
+ if {[regexp {^([0-9a-f]{40}) \(from ([0-9a-f]{40})\)} $line match id p]} {
+ # start of a new string of diffs
+ donefilediff
+ set fdiffids [list $id $p]
+ set fdiffs {}
+ } elseif {[string match ":*" $line]} {
+ lappend fdiffs [lindex $line 5]
+ }
+}
+
+proc donefilediff {} {
+ global fdiffids fdiffs treediffs findids
+ global fdiffsneeded fdiffpos
+
+ if {[info exists fdiffids]} {
+ while {[lindex $fdiffsneeded $fdiffpos] ne $fdiffids
+ && $fdiffpos < [llength $fdiffsneeded]} {
+ # git-diff-tree doesn't output anything for a commit
+ # which doesn't change anything
+ set nullids [lindex $fdiffsneeded $fdiffpos]
+ set treediffs($nullids) {}
+ if {[info exists findids] && $nullids eq $findids} {
+ unset findids
+ findcont $nullids
+ }
+ incr fdiffpos
+ }
+ incr fdiffpos
+
+ if {![info exists treediffs($fdiffids)]} {
+ set treediffs($fdiffids) $fdiffs
+ }
+ if {[info exists findids] && $fdiffids eq $findids} {
+ unset findids
+ findcont $fdiffids
+ }
+ }
}
proc findcont {ids} {
@@ -1397,9 +1510,6 @@ proc findcont {ids} {
if {![info exists treediffs($ids)]} {
set findids $ids
set ffileline $l
- if {![info exists treepending]} {
- gettreediffs $ids
- }
return
}
set doesmatch 0
@@ -1411,12 +1521,7 @@ proc findcont {ids} {
}
}
if {$doesmatch} {
- lappend matchinglines $l
- markheadline $l $id
- if {!$finddidsel} {
- findselectline $l
- set finddidsel 1
- }
+ insertmatch $l $id
set pi $nparents($id)
}
} else {
@@ -1496,7 +1601,7 @@ proc selectline {l} {
global canv canv2 canv3 ctext commitinfo selectedline
global lineid linehtag linentag linedtag
global canvy0 linespc parents nparents
- global cflist currentid sha1entry diffids
+ global cflist currentid sha1entry
global commentend seenfile idtags
$canv delete hover
if {![info exists lineid($l)] || ![info exists linehtag($l)]} return
@@ -1550,7 +1655,6 @@ proc selectline {l} {
set id $lineid($l)
set currentid $id
- set diffids [concat $id $parents($id)]
$sha1entry delete 0 end
$sha1entry insert 0 $id
$sha1entry selection from 0
@@ -1581,20 +1685,21 @@ proc selectline {l} {
$cflist delete 0 end
$cflist insert end "Comments"
if {$nparents($id) == 1} {
- startdiff
+ startdiff [concat $id $parents($id)]
}
catch {unset seenfile}
}
-proc startdiff {} {
+proc startdiff {ids} {
global treediffs diffids treepending
- if {![info exists treediffs($diffids)]} {
+ if {![info exists treediffs($ids)]} {
+ set diffids $ids
if {![info exists treepending]} {
- gettreediffs $diffids
+ gettreediffs $ids
}
} else {
- addtocflist $diffids
+ addtocflist $ids
}
}
@@ -1626,7 +1731,7 @@ proc gettreediffs {ids} {
}
proc gettreediffline {gdtf ids} {
- global treediffs treepending diffids findids
+ global treediffs treepending diffids
set n [gets $gdtf line]
if {$n < 0} {
if {![eof $gdtf]} return
@@ -1636,18 +1741,10 @@ proc gettreediffline {gdtf ids} {
if {$ids != $diffids} {
gettreediffs $diffids
} else {
+ unset diffids
addtocflist $ids
}
}
- if {[info exists findids]} {
- if {$ids != $findids} {
- if {![info exists treepending]} {
- gettreediffs $findids
- }
- } else {
- findcont $ids
- }
- }
return
}
set file [lindex $line 5]
@@ -1655,7 +1752,7 @@ proc gettreediffline {gdtf ids} {
}
proc getblobdiffs {ids} {
- global diffopts blobdifffd env curdifftag curtagstart
+ global diffopts blobdifffd blobdiffids env curdifftag curtagstart
global diffindex difffilestart nextupdate
set id [lindex $ids 0]
@@ -1666,6 +1763,7 @@ proc getblobdiffs {ids} {
return
}
fconfigure $bdf -blocking 0
+ set blobdiffids $ids
set blobdifffd($ids) $bdf
set curdifftag Comments
set curtagstart 0.0
@@ -1676,7 +1774,7 @@ proc getblobdiffs {ids} {
}
proc getblobdiffline {bdf ids} {
- global diffids blobdifffd ctext curdifftag curtagstart seenfile
+ global blobdiffids blobdifffd ctext curdifftag curtagstart seenfile
global diffnexthead diffnextnote diffindex difffilestart
global nextupdate
@@ -1684,17 +1782,14 @@ proc getblobdiffline {bdf ids} {
if {$n < 0} {
if {[eof $bdf]} {
close $bdf
- if {[info exists diffids] && $ids == $diffids
- && $bdf == $blobdifffd($ids)} {
+ if {$ids == $blobdiffids && $bdf == $blobdifffd($ids)} {
$ctext tag add $curdifftag $curtagstart end
set seenfile($curdifftag) 1
- unset diffids
}
}
return
}
- if {![info exists diffids] || $ids != $diffids
- || $bdf != $blobdifffd($ids)} {
+ if {$ids != $blobdiffids || $bdf != $blobdifffd($ids)} {
return
}
$ctext conf -state normal
@@ -2009,7 +2104,7 @@ proc rowmenu {x y id} {
proc diffvssel {dirn} {
global rowmenuid selectedline lineid
global ctext cflist
- global diffids commitinfo
+ global commitinfo
if {![info exists selectedline]} return
if {$dirn} {
@@ -2033,8 +2128,7 @@ proc diffvssel {dirn} {
$ctext conf -state disabled
$ctext tag delete Comments
$ctext tag remove found 1.0 end
- set diffids [list $newid $oldid]
- startdiff
+ startdiff [list $newid $oldid]
}
proc mkpatch {} {