| blob | 7b02efb4fafd2879a182ad13b3830160d62c2fee |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2008 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 proc gitdir {} {
11 global env
16 }
17 }
19 # A simple scheduler for compute-intensive stuff.
20 # The aim is to make sure that event handlers for GUI actions can
21 # run at least every 50-100 ms. Unfortunately fileevent handlers are
22 # run before X event handlers, so reading from a fast source can
23 # make the GUI completely unresponsive.
24 proc run args {
25 global isonrunq runq currunq
30 after idle dorunq
31 }
34 }
38 }
41 global runq currunq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq currunq
73 unset currunq
78 # script returns 1 if it wants to be readded
79 # file readers return 2 if they could do more straight away
83 }
86 }
89 }
91 after idle dorunq
92 }
93 }
96 global commfd leftover loginstance
102 }
105 global nr_unmerged
107 # find the list of unmerged files
114 exit 1
115 }
121 incr nr_unmerged
124 }
125 }
128 }
130 proc parseviewargs {n arglist} {
131 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
135 set glflags {}
136 set diffargs {}
137 set nextisval 0
138 set revargs {}
140 set allknown 1
141 set filtered 0
142 set i -1
144 incr i
147 set nextisval 0
148 continue
149 }
151 "-d" -
152 "--date-order" {
154 # remove from origargs in case we hit an unknown option
156 incr i -1
157 }
158 # These request or affect diff output, which we don't want.
159 # Some could be used to set our defaults for diff display.
166 lappend diffargs $arg
167 }
168 # These cause our parsing of git log's output to fail, or else
169 # they're options we want to set ourselves, so ignore them.
177 }
178 # These are harmless, and some are even useful
183 lappend glflags $arg
184 }
185 # These mean that we get a subset of the commits
193 lappend glflags $arg
194 }
195 # This appears to be the only one that has a value as a
196 # separate word following it
200 lappend glflags $arg
201 }
204 lappend revargs $arg
205 }
207 lappend revargs $arg
208 }
211 # git rev-parse doesn't understand --merge
212 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
213 }
214 # Other flag arguments including -<n>
219 # a flag argument that we don't recognize;
220 # that means we can't optimize
222 }
223 lappend glflags $arg
224 }
225 # Non-flag arguments specify commits or ranges of commits
226 default {
228 lappend revargs --gitk-symmetric-diff-marker
229 }
230 lappend revargs $arg
231 }
232 }
233 }
240 }
243 global vposids vnegids
246 set revs HEAD
247 }
249 # we get stdout followed by stderr in $err
250 # for an unknown rev, git rev-parse echoes it and then errors out
263 }
266 }
267 break
268 }
269 lappend badrev $line
270 }
271 }
274 }
284 lappend ret $id
287 }
288 }
292 lappend ret $id
295 }
296 lappend pos $id
297 }
298 incr sdm -1
299 }
303 }
305 # Start off a git log process and arrange to read its output
307 global startmsecs commitidx viewcomplete curview
308 global tclencoding
309 global viewargs viewargscmd viewfiles vfilelimit
310 global showlocalchanges
311 global viewactive viewinstances vmergeonly
312 global mainheadid
313 global vcanopt vflags vrevs vorigargs
317 # these are set this way for the error exits
320 varcinit $view
329 }
331 }
338 global nr_unmerged
345 }
347 }
348 }
355 }
359 }
367 }
371 interestedin $mainheadid dodiffindex
372 }
376 }
382 }
385 global commfd leftover
388 catch {
395 }
396 }
398 nukefile $fd
401 }
403 proc stop_backends {} {
404 global commfd
407 stop_instance $inst
408 }
409 }
412 global viewinstances
415 stop_instance $inst
416 }
418 }
421 global pending_select mainheadid selectheadid
429 }
430 }
433 global canv curview need_redisplay viewactive
435 initlayout
437 reset_pending_select $selid
442 }
443 }
445 proc updatecommits {} {
446 global curview vcanopt vorigargs vfilelimit viewinstances
447 global viewactive viewcomplete tclencoding
448 global startmsecs showneartags showlocalchanges
449 global mainheadid pending_select
450 global isworktree
451 global varcid vposids vnegids vflags vrevs
455 rereadrefs
458 dohidelocalchanges
459 }
461 dodiffindex
462 }
463 }
470 return
471 }
472 # note: getting the delta when negative refs change is hard,
473 # and could require multiple git log invocations, so in that
474 # case we ask git log for all the commits (not just the delta)
478 # take out positive refs that we asked for before or
479 # that we have already seen
484 lappend newrevs $rev
485 incr npos
486 }
488 lappend $newrevs $rev
489 }
490 }
494 }
498 }
504 return
505 }
508 }
514 }
518 reset_pending_select {}
521 getallcommits
522 }
523 }
525 proc reloadcommits {} {
526 global curview viewcomplete selectedline currentid thickerline
527 global showneartags treediffs commitinterest cached_commitrow
528 global targetid
533 }
536 stop_rev_list $curview
537 }
538 resetvarcs $curview
543 readrefs
544 changedrefs
546 getallcommits
547 }
548 clear_display
552 setcanvscroll
553 getcommits $selid
555 }
557 # This makes a string representation of a positive integer which
558 # sorts as a string in numerical order
566 }
568 }
570 # Procedures used in reordering commits from git log (without
571 # --topo-order) into the order for display.
574 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
575 global vtokmod varcmod vrowmod varcix vlastins
589 }
592 global varcid varccommits parents children vseedcount ordertok
598 }
599 # some commits might have children but haven't been seen yet
602 }
605 }
608 }
610 }
612 # returns a list of the commits with no children
614 global vdownptr vleftptr varcstart
621 }
623 }
626 global varcid varctok parents children vdatemode
627 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
628 global commitdata commitinfo vseedcount varccommits vlastins
635 }
639 }
642 }
648 }
657 }
658 }
663 }
670 }
674 }
681 }
687 }
696 }
699 global varcid varcstart varccommits varctok
700 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
707 # "%" sorts before "0"...
717 }
727 }
728 }
731 global parents children varctok varcstart varccommits
732 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
741 lappend todo $a
746 }
747 }
748 }
749 incr ntot
756 }
757 }
759 }
766 }
772 }
781 }
782 }
787 }
789 continue
790 }
797 }
798 }
803 modify_arc $v $ka
804 }
806 modify_arc $v $b
807 }
814 }
817 }
820 }
829 }
834 }
841 }
845 }
847 }
848 }
853 }
854 }
856 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
857 }
859 # Fix up the graph after we have found out that in view $v,
860 # $p (a commit that we have already seen) is actually the parent
861 # of the last commit in arc $a.
863 global varcid varcstart varctok vupptr
867 splitvarc $p $v
869 }
870 # seeds always need to be renumbered
874 renumbervarc $pa $v
875 }
876 }
879 global cmitlisted children parents varcid varctok vtokmod
880 global varccommits ordertok commitidx numcommits curview
881 global targetid targetrow
883 readcommit $id
891 modify_arc $v $a
892 }
898 }
899 fix_reversal $p $a $v
903 setcanvscroll
906 incr targetrow
907 }
908 }
909 }
910 }
913 global varcid varccommits parents children cmitlisted
914 global commitidx varctok vtokmod targetid targetrow curview numcommits
921 return
922 }
929 # note we deliberately don't update varcstart($v) even if $i == 0
931 modify_arc $v $a $i
934 incr targetrow
935 }
936 }
937 setcanvscroll
938 drawvisible
939 }
942 global varcid varccommits parents children commitidx
943 global varctok vtokmod cmitlisted currentid selectedline
944 global targetid curview numcommits
949 return
950 }
956 return
957 }
967 }
968 modify_arc $v $a $i
970 unset currentid
972 }
975 }
976 setcanvscroll
977 drawvisible
978 }
981 global children nullid nullid2
986 }
987 }
989 }
992 global children nullid nullid2
999 }
1000 }
1002 }
1005 global varctok varcid
1009 }
1011 # This assumes that if lim is not given, the caller has checked that
1012 # arc a's token is less than $vtokmod($v)
1014 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1022 }
1023 }
1030 }
1035 }
1037 }
1039 undolayout $r
1040 }
1041 }
1044 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1045 global varcid vrownum varcorder varcix varccommits
1046 global vupptr vdownptr vleftptr varctok
1047 global displayorder parentlist curview cached_commitrow
1054 }
1056 }
1060 # go up the tree until we find something that has a row number,
1061 # or we get to a seed
1063 }
1078 }
1080 }
1084 # go down if possible
1087 # if not, go left, or go up until we can go left
1092 }
1094 }
1096 incr arcn
1101 }
1107 }
1108 }
1110 # Test whether view $v contains commit $id
1112 global varcid
1115 }
1117 # Return the row number for commit $id in the current view
1119 global varcid varccommits varcrow curview cached_commitrow
1120 global varctok vtokmod
1126 }
1129 update_arcrows $v
1130 }
1133 }
1138 }
1142 }
1144 # Returns 1 if a is on an earlier row than b, otherwise 0
1146 global varcid varctok curview
1152 }
1156 }
1158 }
1163 }
1175 }
1176 }
1178 }
1180 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1182 global vrownum curview commitidx displayorder parentlist
1183 global varccommits varcorder parents vrowmod varcrow
1184 global d_valid_start d_valid_end
1187 update_arcrows $curview
1188 }
1204 }
1206 lappend displayorder $id
1208 }
1212 lset displayorder $i $id
1214 incr i
1215 }
1216 }
1217 incr r $al
1218 }
1219 }
1222 global displayorder
1228 }
1230 }
1233 global varctok varccommits varcid parents children
1234 global cmitlisted commitidx vtokmod
1243 # add p as a new commit
1244 incr missing_parents
1252 }
1255 modify_arc $v $b
1256 }
1260 }
1261 }
1265 }
1266 }
1267 }
1269 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1270 # Assumes we already have an arc for $rwid.
1272 global children parents varcid varctok vtokmod varccommits
1275 # make $rwid be $ch's parent in place of $id
1279 }
1281 # add $ch to $rwid's children and sort the list if necessary
1285 }
1286 # fix the graph after joining $id to $rwid
1288 fix_reversal $rwid $a $v
1289 # parentlist is wrong for the last element of arc $a
1290 # even if displayorder is right, hence the 3rd arg here
1292 }
1293 }
1295 # Mechanism for registering a command to be executed when we come
1296 # across a particular commit. To handle the case when only the
1297 # prefix of the commit is known, the commitinterest array is now
1298 # indexed by the first 4 characters of the ID. Each element is a
1299 # list of id, cmd pairs.
1301 global commitinterest
1304 }
1307 global commitinterest
1316 lappend newlist $i $script
1317 }
1318 }
1323 }
1324 }
1326 }
1329 global cmitlisted leftover
1330 global commitidx commitdata vdatemode
1331 global parents children curview hlview
1332 global idpending ordertok
1333 global varccommits varcid varctok vtokmod vfilelimit
1336 # git log doesn't terminate the last commit with a null...
1339 }
1343 }
1344 global commfd viewcomplete viewactive viewname
1345 global viewinstances
1350 }
1351 # set it blocking so we wait for the process to terminate
1357 }
1360 bad arguments to git log."
1362 append err \
1363 " (Note: arguments to gitk are passed to git log\
1364 to allow selection of commits to be displayed.)"
1365 }
1368 }
1369 error_popup $err
1370 }
1373 # Check if we have seen any ids listed as parents that haven't
1374 # appeared in the list
1375 closevarcs $view
1376 notbusy $view
1377 }
1379 run chewcommits
1380 }
1382 }
1390 break
1391 }
1398 }
1411 }
1413 }
1418 break
1419 }
1420 }
1421 }
1426 }
1428 exit 1
1429 }
1436 # when doing path limiting, so work around that here
1437 # by working out the rewritten parent with git rev-list
1438 # and if we already know about it, using the rewritten
1439 # parent as a substitute parent for $id's children.
1443 }]} {
1445 # use $rwid in place of $id
1446 rewrite_commit $view $id $rwid
1447 continue
1448 }
1449 }
1450 }
1456 }
1461 }
1473 }
1474 }
1476 # new arc
1478 }
1480 modify_arc $view $a
1481 }
1486 }
1497 }
1499 fix_reversal $p $a $view
1500 }
1501 }
1502 incr i
1503 }
1507 }
1509 global numcommits hlview
1513 run chewcommits
1514 }
1516 # we never actually get here...
1517 run vhighlightmore
1518 }
1521 }
1522 }
1524 }
1526 proc chewcommits {} {
1527 global curview hlview viewcomplete
1528 global pending_select
1530 layoutmore
1532 global commitidx varctok
1533 global numcommits startmsecs
1536 update
1537 reset_pending_select {}
1544 }
1545 }
1547 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1548 #puts "overall $ms ms for $numcommits commits"
1549 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1552 }
1553 notbusy layout
1554 }
1556 }
1561 }
1564 global commitinfo cdate
1575 # should never happen...
1577 }
1588 }
1589 }
1591 # take the first non-blank line of the comment as the headline
1596 }
1601 }
1603 # git log indents the comment by 4 spaces;
1604 # if we got this via git cat-file, add the indentation
1607 append newcomment " "
1608 append newcomment $line
1610 }
1612 }
1615 }
1618 }
1621 global commitdata commitinfo
1626 readcommit $id
1629 }
1630 }
1632 }
1634 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1635 # and are present in the current view.
1636 # This is fairly slow...
1638 global varcid curview
1643 }
1645 }
1647 proc readrefs {} {
1648 global tagids idtags headids idheads tagobjid
1649 global otherrefids idotherrefs mainhead mainheadid
1650 global selecthead selectheadid
1654 }
1666 }
1672 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1673 # which is what we want since the former is the commit ID
1679 }
1685 }
1686 }
1690 catch {
1695 }
1696 }
1699 catch {
1701 }
1702 }
1703 }
1705 # skip over fake commits
1706 proc first_real_row {} {
1707 global nullid nullid2 numcommits
1712 break
1713 }
1714 }
1716 }
1718 # update things for a head moved to a child of its previous location
1720 global headids idheads
1725 }
1727 # update things when a head has been removed
1729 global headids idheads
1737 }
1738 }
1740 }
1749 tkwait window $top
1750 }
1752 proc error_popup msg {
1753 set w .error
1754 toplevel $w
1755 wm transient $w .
1756 show_error $w $w $msg
1757 }
1759 proc confirm_popup msg {
1760 global confirm_ok
1762 set w .confirm
1763 toplevel $w
1764 wm transient $w .
1772 tkwait window $w
1774 }
1776 proc setoptions {} {
1778 option add *Panedwindow.sashRelief raised startupFile
1779 option add *Button.font uifont startupFile
1780 option add *Checkbutton.font uifont startupFile
1781 option add *Radiobutton.font uifont startupFile
1782 option add *Menu.font uifont startupFile
1783 option add *Menubutton.font uifont startupFile
1784 option add *Label.font uifont startupFile
1785 option add *Message.font uifont startupFile
1786 option add *Entry.font uifont startupFile
1787 }
1789 # Make a menu and submenus.
1790 # m is the window name for the menu, items is the list of menu items to add.
1791 # Each item is a list {mc label type description options...}
1792 # mc is ignored; it's so we can put mc there to alert xgettext
1793 # label is the string that appears in the menu
1794 # type is cascade, command or radiobutton (should add checkbutton)
1795 # description depends on type; it's the sublist for cascade, the
1796 # command to invoke for command, or {variable value} for radiobutton
1798 menu $m
1809 }
1810 }
1815 }
1818 }
1822 }
1823 }
1827 }
1828 }
1829 }
1831 # translate string and remove ampersands
1834 }
1836 proc makewindow {} {
1837 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1838 global tabstop
1839 global findtype findtypemenu findloc findstring fstring geometry
1840 global entries sha1entry sha1string sha1but
1841 global diffcontextstring diffcontext
1842 global ignorespace
1843 global maincursor textcursor curtextcursor
1844 global rowctxmenu fakerowmenu mergemax wrapcomment
1845 global highlight_files gdttype
1846 global searchstring sstring
1847 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1848 global headctxmenu progresscanv progressitem progresscoords statusw
1849 global fprogitem fprogcoord lastprogupdate progupdatepending
1850 global rprogitem rprogcoord rownumsel numcommits
1851 global have_tk85
1853 # The "mc" arguments here are purely so that xgettext
1854 # sees the following string as needing to be translated
1855 makemenu .bar {
1862 }}
1865 }}
1872 }}
1876 }}
1877 }
1878 . configure -menu .bar
1880 # the gui has upper and lower half, parts of a paned window.
1881 panedwindow .ctop -orient vertical
1883 # possibly use assumed geometry
1891 }
1893 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1895 frame .tf.histframe
1898 # create three canvases
1899 set cscroll .tf.histframe.csb
1900 set canv .tf.histframe.pwclist.canv
1901 canvas $canv \
1905 .tf.histframe.pwclist add $canv
1906 set canv2 .tf.histframe.pwclist.canv2
1907 canvas $canv2 \
1910 .tf.histframe.pwclist add $canv2
1911 set canv3 .tf.histframe.pwclist.canv3
1912 canvas $canv3 \
1915 .tf.histframe.pwclist add $canv3
1919 # a scroll bar to rule them
1923 lappend bglist $canv $canv2 $canv3
1926 # we have two button bars at bottom of top frame. Bar 1
1927 frame .tf.bar
1930 set sha1entry .tf.bar.sha1
1932 set sha1but .tf.bar.sha1label
1936 pack .tf.bar.sha1label -side left
1938 trace add variable sha1string write sha1change
1942 #define left_width 16
1943 #define left_height 16
1944 static unsigned char left_bits[] = {
1948 }
1950 #define right_width 16
1951 #define right_height 16
1952 static unsigned char right_bits[] = {
1956 }
1971 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1972 -side left
1973 global selectedline
1974 trace add variable selectedline write selectedline_change
1976 # Status label and progress bar
1977 set statusw .tf.bar.status
1981 set progresscanv .tf.bar.progress
1994 # build up the bottom bar of upper window
1999 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2006 trace add variable gdttype write gdttype_change
2010 set fstring .tf.lbar.findstring
2011 lappend entries $fstring
2013 trace add variable findstring write find_change
2017 trace add variable findtype write findcom_change
2021 trace add variable findloc write find_change
2022 pack .tf.lbar.findloc -side right
2023 pack .tf.lbar.findtype -side right
2026 # Finish putting the upper half of the viewer together
2030 .ctop add .tf
2034 # now build up the bottom
2035 panedwindow .pwbottom -orient horizontal
2037 # lower left, a text box over search bar, scroll bar to the right
2038 # if we know window height, then that will set the lower text height, otherwise
2039 # we set lower text height which will drive window height
2044 }
2045 frame .bleft.top
2046 frame .bleft.mid
2047 frame .bleft.bottom
2051 set sstring .bleft.top.sstring
2053 lappend entries $sstring
2054 trace add variable searchstring write incrsearch
2067 -textvariable diffcontextstring
2069 trace add variable diffcontextstring write diffcontextchange
2070 lappend entries .bleft.mid.diffcontext
2071 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2075 set ctext .bleft.bottom.ctext
2082 }
2089 grid .bleft.bottom.sbhorizontal -sticky ew
2094 lappend bglist $ctext
2095 lappend fglist $ctext
2124 .pwbottom add .bleft
2127 # lower right
2128 frame .bright
2129 frame .bright.mode
2136 set cflist .bright.cfiles
2138 text $cflist \
2141 -font mainfont \
2146 lappend bglist $cflist
2147 lappend fglist $cflist
2151 $cflist tag configure highlight \
2155 .pwbottom add .bright
2156 .ctop add .pwbottom
2158 # restore window width & height if known
2163 }
2166 }
2168 }
2169 }
2172 set M1B M1
2174 set M1B Control
2175 }
2180 #bindall <B1-Motion> {selcanvline %W %x %y}
2190 allcanvs yview scroll $delta units
2191 }
2192 }
2193 }
2215 bindkey p "selnextline -1"
2216 bindkey n "selnextline 1"
2217 bindkey z "goback"
2218 bindkey x "goforw"
2219 bindkey i "selnextline -1"
2220 bindkey k "selnextline 1"
2221 bindkey j "goback"
2222 bindkey l "goforw"
2223 bindkey b prevfile
2229 bindkey f nextfile
2241 wm protocol . WM_DELETE_WINDOW doquit
2250 global ctxbut
2254 set maincursor [. cget -cursor]
2258 set rowctxmenu .rowctxmenu
2260 {mc "Diff this -> selected" command {diffvssel 0}}
2261 {mc "Diff selected -> this" command {diffvssel 1}}
2262 {mc "Make patch" command mkpatch}
2263 {mc "Create tag" command mktag}
2264 {mc "Write commit to file" command writecommit}
2265 {mc "Create new branch" command mkbranch}
2266 {mc "Cherry-pick this commit" command cherrypick}
2267 {mc "Reset HEAD branch to here" command resethead}
2268 }
2271 set fakerowmenu .fakerowmenu
2273 {mc "Diff this -> selected" command {diffvssel 0}}
2274 {mc "Diff selected -> this" command {diffvssel 1}}
2275 {mc "Make patch" command mkpatch}
2276 }
2279 set headctxmenu .headctxmenu
2281 {mc "Check out this branch" command cobranch}
2282 {mc "Remove this branch" command rmbranch}
2283 }
2286 global flist_menu
2287 set flist_menu .flistctxmenu
2289 {mc "Highlight this too" command {flist_hl 0}}
2290 {mc "Highlight this only" command {flist_hl 1}}
2291 {mc "External diff" command {external_diff}}
2292 {mc "Blame parent commit" command {external_blame 1}}
2293 }
2296 global diff_menu
2297 set diff_menu .diffctxmenu
2299 {mc "Show origin of this line" command show_line_source}
2300 {mc "Run git gui blame on this line" command {external_blame_diff}}
2301 }
2303 }
2305 # Windows sends all mouse wheel events to the current focused window, not
2306 # the one where the mouse hovers, so bind those events here and redirect
2307 # to the correct window
2308 proc windows_mousewheel_redirector {W X Y D} {
2309 global canv canv2 canv3
2315 } else {
2316 catch {
2318 }
2319 }
2320 }
2321 }
2323 # Update row number label when selectedline changes
2324 proc selectedline_change {n1 n2 op} {
2325 global selectedline rownumsel
2328 set rownumsel {}
2329 } else {
2331 }
2332 }
2334 # mouse-2 makes all windows scan vertically, but only the one
2335 # the cursor is in scans horizontally
2336 proc canvscan {op w x y} {
2337 global canv canv2 canv3
2341 } else {
2343 }
2344 }
2345 }
2347 proc scrollcanv {cscroll f0 f1} {
2349 drawvisible
2350 flushhighlights
2351 }
2353 # when we make a key binding for the toplevel, make sure
2354 # it doesn't get triggered when that key is pressed in the
2355 # find string entry widget.
2356 proc bindkey {ev script} {
2357 global entries
2361 set escript [bind Entry <Key>]
2362 }
2365 }
2366 }
2368 # set the focus back to the toplevel for any click outside
2369 # the entry widgets
2370 proc click {w} {
2371 global ctext entries
2374 }
2375 focus .
2376 }
2378 # Adjust the progress bar for a change in requested extent or canvas size
2379 proc adjustprogress {} {
2380 global progresscanv progressitem progresscoords
2381 global fprogitem fprogcoord lastprogupdate progupdatepending
2382 global rprogitem rprogcoord
2391 set now [clock clicks -milliseconds]
2393 set progupdatepending 0
2394 update
2396 set progupdatepending 1
2398 }
2399 }
2401 proc doprogupdate {} {
2402 global lastprogupdate progupdatepending
2405 set progupdatepending 0
2406 set lastprogupdate [clock clicks -milliseconds]
2407 update
2408 }
2409 }
2411 proc savestuff {w} {
2412 global canv canv2 canv3 mainfont textfont uifont tabstop
2413 global stuffsaved findmergefiles maxgraphpct
2414 global maxwidth showneartags showlocalchanges
2415 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2416 global cmitmode wrapcomment datetimeformat limitdiffs
2417 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2418 global autoselect extdifftool perfile_attrs
2421 if {![winfo viewable .]} return
2422 catch {
2423 set f [open "~/.gitk-new" w]
2459 }
2460 }
2463 file rename -force "~/.gitk-new" "~/.gitk"
2464 }
2465 set stuffsaved 1
2466 }
2468 proc resizeclistpanes {win w} {
2469 global oldwidth
2476 } else {
2481 set sash0 30
2482 }
2485 }
2490 }
2491 }
2492 }
2495 }
2497 }
2499 proc resizecdetpanes {win w} {
2500 global oldwidth
2505 } else {
2509 set sash0 45
2510 }
2513 }
2514 }
2516 }
2518 }
2520 proc allcanvs args {
2521 global canv canv2 canv3
2525 }
2527 proc bindall {event action} {
2528 global canv canv2 canv3
2532 }
2534 proc about {} {
2535 global uifont
2536 set w .about
2539 return
2540 }
2544 Gitk - a commit viewer for git
2546 Copyright © 2005-2008 Paul Mackerras
2548 Use and redistribute under the terms of the GNU General Public License"] \
2549 -justify center -aspect 400 -border 2 -bg white -relief groove
2556 }
2558 proc keys {} {
2559 set w .keys
2562 return
2563 }
2564 if {[tk windowingsystem] eq {aqua}} {
2565 set M1T Cmd
2566 } else {
2567 set M1T Ctrl
2568 }
2572 [mc "Gitk key bindings:"]
2575 [mc "<Home> Move to first commit"]
2576 [mc "<End> Move to last commit"]
2577 [mc "<Up>, p, i Move up one commit"]
2578 [mc "<Down>, n, k Move down one commit"]
2579 [mc "<Left>, z, j Go back in history list"]
2580 [mc "<Right>, x, l Go forward in history list"]
2581 [mc "<PageUp> Move up one page in commit list"]
2582 [mc "<PageDown> Move down one page in commit list"]
2589 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2590 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2591 [mc "<Delete>, b Scroll diff view up one page"]
2592 [mc "<Backspace> Scroll diff view up one page"]
2593 [mc "<Space> Scroll diff view down one page"]
2594 [mc "u Scroll diff view up 18 lines"]
2595 [mc "d Scroll diff view down 18 lines"]
2598 [mc "<Return> Move to next find hit"]
2599 [mc "/ Move to next find hit, or redo find"]
2600 [mc "? Move to previous find hit"]
2601 [mc "f Scroll diff view to next file"]
2608 [mc "<F5> Update"]
2609 " \
2610 -justify left -bg white -border 2 -relief groove
2617 }
2619 # Procedures for manipulating the file list window at the
2620 # bottom right of the overall window.
2622 proc treeview {w l openlevs} {
2623 global treecontents treediropen treeheight treeparent treeindex
2625 set ix 0
2626 set treeindex() 0
2627 set lev 0
2628 set prefix {}
2629 set prefixend -1
2630 set prefendstack {}
2631 set htstack {}
2632 set ht 0
2633 set treecontents() {}
2640 }
2647 incr lev -1
2648 }
2652 set ht 0
2664 set ht 1
2669 set str "\n"
2677 }
2678 incr lev
2679 }
2682 incr ht
2683 set str "\n"
2687 }
2689 }
2690 }
2698 }
2700 }
2702 proc linetoelt {l} {
2703 global treeheight treecontents
2705 set y 2
2706 set prefix {}
2707 while {1} {
2711 }
2712 set n 1
2717 incr y
2718 break
2719 }
2720 }
2722 }
2723 }
2724 }
2726 proc highlight_tree {y prefix} {
2727 global treeheight treecontents cflist
2733 }
2734 incr y
2737 }
2738 }
2740 }
2742 proc treeclosedir {w dir} {
2743 global treediropen treeheight treeparent treeindex
2755 }
2756 }
2758 proc treeopendir {w dir} {
2759 global treediropen treeheight treeparent treecontents treeindex
2766 set lev 0
2767 set str "\n"
2770 incr lev
2771 append str "\t"
2773 }
2788 } else {
2791 }
2792 }
2805 }
2807 }
2808 }
2810 proc treeclick {w x y} {
2811 global treediropen cmitmode ctext cflist cflist_top
2814 if {![info exists cflist_top]} return
2821 return
2822 }
2828 } else {
2830 }
2831 }
2833 proc setfilelist {id} {
2834 global treefilelist cflist jump_to_here
2841 }
2842 }
2843 }
2845 image create bitmap tri-rt -background black -foreground blue -data {
2846 #define tri-rt_width 13
2847 #define tri-rt_height 13
2848 static unsigned char tri-rt_bits[] = {
2849 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2850 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2851 0x00, 0x00};
2852 } -maskdata {
2853 #define tri-rt-mask_width 13
2854 #define tri-rt-mask_height 13
2855 static unsigned char tri-rt-mask_bits[] = {
2856 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2857 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2858 0x08, 0x00};
2859 }
2860 image create bitmap tri-dn -background black -foreground blue -data {
2861 #define tri-dn_width 13
2862 #define tri-dn_height 13
2863 static unsigned char tri-dn_bits[] = {
2864 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2865 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2866 0x00, 0x00};
2867 } -maskdata {
2868 #define tri-dn-mask_width 13
2869 #define tri-dn-mask_height 13
2870 static unsigned char tri-dn-mask_bits[] = {
2871 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2872 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2873 0x00, 0x00};
2874 }
2876 image create bitmap reficon-T -background black -foreground yellow -data {
2877 #define tagicon_width 13
2878 #define tagicon_height 9
2879 static unsigned char tagicon_bits[] = {
2880 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2881 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2882 } -maskdata {
2883 #define tagicon-mask_width 13
2884 #define tagicon-mask_height 9
2885 static unsigned char tagicon-mask_bits[] = {
2886 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2887 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2888 }
2889 set rectdata {
2890 #define headicon_width 13
2891 #define headicon_height 9
2892 static unsigned char headicon_bits[] = {
2893 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2894 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2895 }
2896 set rectmask {
2897 #define headicon-mask_width 13
2898 #define headicon-mask_height 9
2899 static unsigned char headicon-mask_bits[] = {
2900 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2901 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2902 }
2903 image create bitmap reficon-H -background black -foreground green \
2905 image create bitmap reficon-o -background black -foreground "#ddddff" \
2908 proc init_flist {first} {
2909 global cflist cflist_top difffilestart
2915 set cflist_top 1
2917 } else {
2918 catch {unset cflist_top}
2919 }
2921 set difffilestart {}
2922 }
2924 proc highlight_tag {f} {
2925 global highlight_paths
2929 return "bold"
2930 }
2931 }
2932 return {}
2933 }
2935 proc highlight_filelist {} {
2936 global cmitmode cflist
2945 }
2946 }
2947 } else {
2948 highlight_tree 2 {}
2949 }
2951 }
2953 proc unhighlight_filelist {} {
2954 global cflist
2959 }
2961 proc add_flist {fl} {
2962 global cflist
2968 }
2970 }
2972 proc sel_flist {w x y} {
2973 global ctext difffilestart cflist cflist_top cmitmode
2976 if {![info exists cflist_top]} return
2983 } else {
2985 }
2986 }
2988 proc pop_flist_menu {w X Y x y} {
2989 global ctext cflist cmitmode flist_menu flist_menu_file
2990 global treediffs diffids
2992 stopfinding
2998 } else {
3000 }
3002 set xdiffstate "normal"
3004 set xdiffstate "disabled"
3005 }
3006 # Disable "External diff" item in tree mode
3009 }
3011 proc find_ctext_fileinfo {line} {
3012 global ctext_file_names ctext_file_lines
3018 return {}
3019 } else {
3021 }
3022 }
3024 proc pop_diff_menu {w X Y x y} {
3025 global ctext diff_menu flist_menu_file
3026 global diff_menu_txtpos diff_menu_line
3027 global diff_menu_filebase
3031 # don't pop up the menu on hunk-separator or file-separator lines
3033 return
3034 }
3035 stopfinding
3041 }
3043 proc flist_hl {only} {
3044 global flist_menu_file findstring gdttype
3049 } else {
3051 }
3052 set gdttype [mc "touching paths:"]
3053 }
3055 proc save_file_from_commit {filename output what} {
3056 global nullfile
3061 }
3063 return {}
3064 }
3066 }
3068 proc external_diff_get_one_file {diffid filename diffdir} {
3069 global nullid nullid2 nullfile
3070 global gitdir
3076 }
3078 }
3082 }
3086 }
3088 proc external_diff {} {
3089 global gitktmpdir nullid nullid2
3090 global flist_menu_file
3091 global diffids
3092 global diffnum
3093 global gitdir extdifftool
3096 # no reference commit given
3099 # diffing working copy with index
3102 # diffing index with HEAD
3103 set diffidfrom "HEAD"
3104 } else {
3105 # use first parent commit
3106 global parentlist selectedline
3108 }
3109 } else {
3112 }
3114 # make sure that several diffs wont collide
3115 if {![info exists gitktmpdir]} {
3117 [format ".gitk-tmp.%s" [pid]]]
3120 unset gitktmpdir
3121 return
3122 }
3123 set diffnum 0
3124 }
3125 incr diffnum
3129 return
3130 }
3132 # gather files to diff
3142 } else {
3145 }
3146 }
3147 }
3149 proc find_hunk_blamespec {base line} {
3150 global ctext
3152 # Find and parse the hunk header
3158 s_line old_specs osz osz1 new_line nsz]} {
3159 return
3160 }
3162 # base lines for the parents
3166 old_spec old_line osz]} {
3167 return
3168 }
3170 }
3172 # Now scan the lines to determine offset within the hunk
3174 set dline 0
3177 # Determine if the line is removed
3181 # Choose a parent index
3184 } else {
3188 } else {
3189 # blame the current commit
3190 set parent -1
3191 }
3192 }
3193 # then count other lines that belong to it
3196 # Determine if the line is removed
3201 incr dline
3202 }
3203 } else {
3205 incr dline
3206 }
3207 }
3208 }
3209 incr parent
3210 } else {
3211 set parent 0
3212 }
3216 }
3218 proc external_blame_diff {} {
3219 global currentid diffmergeid cmitmode
3220 global diff_menu_txtpos diff_menu_line
3221 global diff_menu_filebase flist_menu_file
3224 set parent_idx 0
3226 } else {
3231 } else {
3232 set parent_idx 0
3233 set line 0
3234 }
3235 }
3238 }
3240 proc external_blame {parent_idx {line {}}} {
3241 global flist_menu_file
3242 global nullid nullid2
3243 global parentlist selectedline currentid
3247 } else {
3249 }
3252 error_popup [mc "No such commit"]
3253 return
3254 }
3256 set cmdline [list git gui blame]
3259 }
3263 }
3264 }
3266 proc show_line_source {} {
3267 global cmitmode currentid parents curview blamestuff blameinst
3268 global diff_menu_line diff_menu_filebase flist_menu_file
3273 } else {
3279 return
3280 }
3283 }
3284 if {[catch {
3286 } err]} {
3288 return
3289 }
3295 }
3297 proc stopblaming {} {
3298 global blameinst
3300 if {[info exists blameinst]} {
3302 unset blameinst
3303 }
3304 }
3306 proc read_line_source {fd inst} {
3307 global blamestuff curview commfd blameinst
3311 }
3313 return 1
3314 }
3316 unset blameinst
3320 return 0
3321 }
3323 set fname {}
3329 # look for "filename" line
3333 break
3334 }
3335 }
3336 }
3338 # all looks good, select it
3341 } else {
3342 error_popup [mc "That line comes from commit %s, \
3344 }
3345 } else {
3346 puts "oops couldn't parse git blame output"
3347 }
3348 return 0
3349 }
3352 proc delete_at_eof {f dir} {
3357 }
3359 return 0
3360 }
3361 return 1
3362 }
3364 # Functions for adding and removing shell-type quoting
3366 proc shellquote {str} {
3369 }
3372 }
3375 }
3377 }
3379 proc shellarglist {l} {
3380 set str {}
3383 append str " "
3384 }
3386 }
3388 }
3390 proc shelldequote {str} {
3391 set ret {}
3392 set used -1
3393 while {1} {
3394 incr used
3398 break
3399 }
3405 }
3407 incr used
3411 error "unmatched single-quote"
3412 }
3415 continue
3416 }
3419 error "trailing backslash"
3420 }
3422 continue
3423 }
3424 # here ch == "\""
3425 while {1} {
3427 error "unmatched double-quote"
3428 }
3434 }
3436 incr used
3438 incr used
3439 }
3440 }
3442 }
3444 proc shellsplit {str} {
3445 set l {}
3446 while {1} {
3454 }
3456 }
3458 # Code to implement multiple views
3460 proc newview {ishighlight} {
3461 global nextviewnum newviewname newviewperm newishighlight
3462 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3465 set top .gitkview
3468 return
3469 }
3475 }
3477 proc editview {} {
3478 global curview
3479 global viewname viewperm newviewname newviewperm
3480 global viewargs newviewargs viewargscmd newviewargscmd
3485 return
3486 }
3492 }
3494 proc vieweditor {top n title} {
3495 global newviewname newviewperm viewfiles bgcolor
3506 -text [mc "Commits to include (arguments to git log):"]
3513 -text [mc "Command to generate more commits to include:"]
3516 -background white
3520 -text [mc "Enter files and directories to include, one per line:"]
3527 }
3530 }
3540 }
3542 proc doviewmenu {m first cmd op argv} {
3547 break
3548 }
3549 }
3550 }
3552 proc allviewmenus {n op args} {
3553 # global viewhlmenu
3557 }
3559 proc newviewok {top n} {
3560 global nextviewnum newviewperm newviewname newishighlight
3561 global viewname viewfiles viewperm selectedview curview
3562 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3564 if {[catch {
3566 } err]} {
3570 return
3571 }
3572 set files {}
3577 }
3578 }
3580 # creating a new view
3581 incr nextviewnum
3590 } else {
3592 }
3593 } else {
3594 # editing an existing view
3602 }
3609 run reloadcommits
3610 }
3611 }
3612 }
3614 }
3616 proc delview {} {
3617 global curview viewperm hlview selectedhlview
3621 set selectedhlview [mc "None"]
3622 unset hlview
3623 }
3626 showview 0
3627 }
3629 proc addviewmenu {n} {
3630 global viewname viewhlmenu
3636 }
3638 proc showview {n} {
3639 global curview cached_commitrow ordertok
3640 global displayorder parentlist rowidlist rowisopt rowfinal
3641 global colormap rowtextx nextcolor canvxmax
3642 global numcommits viewcomplete
3643 global selectedline currentid canv canvy0
3644 global treediffs
3645 global pending_select mainheadid
3646 global commitidx
3647 global selectedview
3648 global hlview selectedhlview commitinterest
3651 set selid {}
3662 }
3663 } elseif {[info exists pending_select]} {
3665 unset pending_select
3666 }
3667 unselectline
3668 normalline
3669 catch {unset treediffs}
3670 clear_display
3672 unset hlview
3673 set selectedhlview [mc "None"]
3674 }
3675 catch {unset commitinterest}
3676 catch {unset cached_commitrow}
3677 catch {unset ordertok}
3684 run refill_reflist
3687 return
3688 }
3690 set displayorder {}
3691 set parentlist {}
3692 set rowidlist {}
3693 set rowisopt {}
3694 set rowfinal {}
3697 catch {unset colormap}
3698 catch {unset rowtextx}
3699 set nextcolor 0
3702 set row 0
3703 setcanvscroll
3704 set yf 0
3705 set row {}
3708 # try to get the selected row in the same position on the screen
3712 set ytop 0
3713 }
3715 }
3717 drawvisible
3722 } else {
3723 reset_pending_select {}
3727 } else {
3728 set row [first_real_row]
3731 }
3732 }
3733 }
3736 show_status [mc "Reading commits..."]
3737 }
3739 show_status [mc "No commits selected"]
3740 }
3741 }
3743 # Stuff relating to the highlighting facility
3745 proc ishighlighted {id} {
3746 global vhighlights fhighlights nhighlights rhighlights
3750 }
3753 }
3756 }
3759 }
3760 return 0
3761 }
3763 proc bolden {row font} {
3764 global canv linehtag selectedline boldrows
3771 -outline {{}} -tags secsel \
3774 }
3775 }
3777 proc bolden_name {row font} {
3778 global canv2 linentag selectedline boldnamerows
3785 -outline {{}} -tags secsel \
3788 }
3789 }
3791 proc unbolden {} {
3792 global boldrows
3794 set stillbold {}
3798 } else {
3800 }
3801 }
3803 }
3805 proc addvhighlight {n} {
3806 global hlview viewcomplete curview vhl_done commitidx
3808 if {[info exists hlview]} {
3809 delvhighlight
3810 }
3814 }
3817 drawvisible
3818 }
3819 }
3821 proc delvhighlight {} {
3822 global hlview vhighlights
3824 if {![info exists hlview]} return
3825 unset hlview
3826 catch {unset vhighlights}
3827 unbolden
3828 }
3830 proc vhighlightmore {} {
3831 global hlview vhl_done commitidx vhighlights curview
3834 set vr [visiblerows]
3844 }
3846 }
3847 }
3848 }
3850 return 0
3851 }
3853 proc askvhighlight {row id} {
3854 global hlview vhighlights iddrawn
3859 }
3861 } else {
3863 }
3864 }
3866 proc hfiles_change {} {
3867 global highlight_files filehighlight fhighlights fh_serial
3868 global highlight_paths gdttype
3870 if {[info exists filehighlight]} {
3871 # delete previous highlights
3873 unset filehighlight
3874 catch {unset fhighlights}
3875 unbolden
3876 unhighlight_filelist
3877 }
3878 set highlight_paths {}
3880 incr fh_serial
3883 }
3884 }
3886 proc gdttype_change {name ix op} {
3887 global gdttype highlight_files findstring findpattern
3889 stopfinding
3893 set highlight_files {}
3894 hfiles_change
3895 }
3896 findcom_change
3897 } else {
3899 set findpattern {}
3900 findcom_change
3901 }
3903 hfiles_change
3904 }
3905 drawvisible
3906 }
3907 # enable/disable findtype/findloc menus too
3908 }
3910 proc find_change {name ix op} {
3911 global gdttype findstring highlight_files
3913 stopfinding
3915 findcom_change
3916 } else {
3919 hfiles_change
3920 }
3921 }
3922 drawvisible
3923 }
3925 proc findcom_change args {
3926 global nhighlights boldnamerows
3927 global findpattern findtype findstring gdttype
3929 stopfinding
3930 # delete previous highlights, if any
3933 }
3934 set boldnamerows {}
3935 catch {unset nhighlights}
3936 unbolden
3937 unmarkmatches
3939 set findpattern {}
3942 } else {
3943 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3946 }
3947 }
3949 proc makepatterns {l} {
3950 set ret {}
3955 } else {
3958 }
3959 }
3961 }
3963 proc do_file_hl {serial} {
3964 global highlight_files filehighlight highlight_paths gdttype fhl_list
3969 highlight_filelist
3973 } else {
3974 # must be "containing:", i.e. we're searching commit info
3975 return
3976 }
3981 set fhl_list {}
3982 drawvisible
3983 flushhighlights
3984 }
3986 proc flushhighlights {} {
3987 global filehighlight fhl_list
3989 if {[info exists filehighlight]} {
3990 lappend fhl_list {}
3993 }
3994 }
3996 proc askfilehighlight {row id} {
3997 global filehighlight fhighlights fhl_list
4002 }
4004 proc readfhighlight {} {
4005 global filehighlight fhighlights curview iddrawn
4006 global fhl_list find_dirn
4008 if {![info exists filehighlight]} {
4009 return 0
4010 }
4011 set nr 0
4019 }
4026 }
4028 }
4030 # strange...
4031 puts "oops, git diff-tree died"
4033 unset filehighlight
4034 return 0
4035 }
4036 if {[info exists find_dirn]} {
4037 run findmore
4038 }
4039 return 1
4040 }
4042 proc doesmatch {f} {
4043 global findtype findpattern
4049 } else {
4051 }
4052 }
4054 proc askfindhighlight {row id} {
4055 global nhighlights commitinfo iddrawn
4056 global findloc
4057 global markingmatches
4061 }
4063 set isbold 0
4064 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4069 set isbold 2
4070 break
4071 }
4072 set isbold 1
4073 }
4074 }
4080 }
4081 }
4084 }
4085 }
4087 }
4089 proc markrowmatches {row id} {
4090 global canv canv2 linehtag linentag commitinfo findloc
4101 }
4102 }
4108 }
4109 }
4110 }
4112 proc vrel_change {name ix op} {
4113 global highlight_related
4115 rhighlight_none
4117 run drawvisible
4118 }
4119 }
4121 # prepare for testing whether commits are descendents or ancestors of a
4122 proc rhighlight_sel {a} {
4123 global descendent desc_todo ancestor anc_todo
4124 global highlight_related
4126 catch {unset descendent}
4128 catch {unset ancestor}
4131 rhighlight_none
4132 run drawvisible
4133 }
4134 }
4136 proc rhighlight_none {} {
4137 global rhighlights
4139 catch {unset rhighlights}
4140 unbolden
4141 }
4143 proc is_descendent {a} {
4144 global curview children descendent desc_todo
4149 set leftover {}
4150 set done 0
4155 continue
4156 }
4162 set done 1
4163 }
4164 }
4165 }
4168 return
4169 }
4170 }
4173 }
4175 proc is_ancestor {a} {
4176 global curview parents ancestor anc_todo
4181 set leftover {}
4182 set done 0
4187 continue
4188 }
4194 set done 1
4195 }
4196 }
4197 }
4200 return
4201 }
4202 }
4205 }
4207 proc askrelhighlight {row id} {
4208 global descendent highlight_related iddrawn rhighlights
4209 global selectedline ancestor
4212 set isbold 0
4217 }
4219 set isbold 1
4220 }
4225 }
4227 set isbold 1
4228 }
4229 }
4233 }
4234 }
4236 }
4238 # Graph layout functions
4240 proc shortids {ids} {
4241 set res {}
4247 } else {
4249 }
4250 }
4252 }
4254 proc ntimes {n o} {
4255 set ret {}
4260 }
4262 }
4264 }
4266 proc ordertoken {id} {
4267 global ordertok curview varcid varcstart varctok curview parents children
4268 global nullid nullid2
4272 }
4274 set todo {}
4275 while {1} {
4279 } else {
4281 }
4284 break
4285 }
4288 # it's a root
4290 break
4291 }
4294 } else {
4298 }
4300 }
4301 }
4306 }
4309 }
4311 # Work out where id should go in idlist so that order-token
4312 # values increase from left to right
4313 proc idcol {idlist id {i 0}} {
4316 set i 0
4317 }
4321 }
4323 incr i
4324 } else {
4328 }
4329 }
4331 }
4333 proc initlayout {} {
4334 global rowidlist rowisopt rowfinal displayorder parentlist
4335 global numcommits canvxmax canv
4336 global nextcolor
4337 global colormap rowtextx
4339 set numcommits 0
4340 set displayorder {}
4341 set parentlist {}
4342 set nextcolor 0
4343 set rowidlist {}
4344 set rowisopt {}
4345 set rowfinal {}
4347 catch {unset colormap}
4348 catch {unset rowtextx}
4349 setcanvscroll
4350 }
4352 proc setcanvscroll {} {
4353 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4354 global lastscrollset lastscrollrows
4360 set lastscrollset [clock clicks -milliseconds]
4362 }
4364 proc visiblerows {} {
4365 global canv numcommits linespc
4373 set r0 0
4374 }
4379 }
4381 }
4383 proc layoutmore {} {
4384 global commitidx viewcomplete curview
4385 global numcommits pending_select curview
4386 global lastscrollset lastscrollrows
4390 setcanvscroll
4391 }
4392 if {[info exists pending_select] &&
4394 update
4396 }
4397 drawvisible
4398 }
4400 proc doshowlocalchanges {} {
4401 global curview mainheadid
4405 dodiffindex
4406 } else {
4408 }
4409 }
4411 proc dohidelocalchanges {} {
4412 global nullid nullid2 lserial curview
4416 }
4419 }
4420 incr lserial
4421 }
4423 # spawn off a process to do git diff-index --cached HEAD
4424 proc dodiffindex {} {
4425 global lserial showlocalchanges
4426 global isworktree
4429 incr lserial
4430 set fd [open "|git diff-index --cached HEAD" r]
4434 }
4436 proc readdiffindex {fd serial inst} {
4437 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4439 set isdiff 1
4442 return 1
4443 }
4444 set isdiff 0
4445 }
4446 # we only need to see one line and we don't really care what it says...
4450 return 0
4451 }
4453 # now see if there are any local changes not checked in to the index
4454 set fd [open "|git diff-files" r]
4460 # add the line for the changes in the index to the graph
4461 set hl [mc "Local changes checked in to index but not committed"]
4466 }
4470 }
4471 return 0
4472 }
4474 proc readdifffiles {fd serial inst} {
4475 global mainheadid nullid nullid2 curview
4476 global commitinfo commitdata lserial
4478 set isdiff 1
4481 return 1
4482 }
4483 set isdiff 0
4484 }
4485 # we only need to see one line and we don't really care what it says...
4489 return 0
4490 }
4493 # add the line for the local diff to the graph
4494 set hl [mc "Local uncommitted changes, not checked in to index"]
4499 } else {
4501 }
4505 }
4506 return 0
4507 }
4509 proc nextuse {id row} {
4510 global curview children
4515 return -1
4516 }
4519 }
4520 }
4521 }
4524 }
4525 return -1
4526 }
4528 proc prevuse {id row} {
4529 global curview children
4531 set ret -1
4537 }
4538 }
4539 }
4541 }
4543 proc make_idlist {row} {
4544 global displayorder parentlist uparrowlen downarrowlen mingaplen
4545 global commitidx curview children
4549 set r 0
4550 }
4553 set ra 0
4554 }
4558 }
4560 set ids {}
4569 }
4570 }
4571 }
4579 }
4580 }
4581 }
4589 }
4590 }
4591 incr r
4597 }
4598 }
4599 }
4600 set idlist {}
4603 }
4605 }
4607 proc rowsequal {a b} {
4610 }
4613 }
4615 }
4617 proc makeupline {id row rend col} {
4618 global rowidlist uparrowlen downarrowlen mingaplen
4624 }
4627 }
4634 }
4635 }
4636 }
4638 proc layoutrows {row endrow} {
4639 global rowidlist rowisopt rowfinal displayorder
4640 global uparrowlen downarrowlen maxwidth mingaplen
4641 global children parentlist
4642 global commitidx viewcomplete curview
4645 set idlist {}
4651 }
4652 }
4654 }
4659 set final 1
4660 } else {
4668 # if not the first child, we have to insert a line going up
4671 }
4672 }
4673 }
4683 }
4684 }
4685 }
4692 }
4693 }
4703 }
4704 }
4712 }
4713 }
4714 }
4715 }
4716 }
4720 set final 0
4721 }
4725 lappend rowisopt 0
4731 }
4733 } else {
4740 }
4741 }
4743 }
4745 proc changedrow {row} {
4746 global displayorder iddrawn rowisopt need_redisplay
4755 }
4756 }
4757 }
4760 set need_redisplay 1
4761 }
4762 }
4764 proc insert_pad {row col npad} {
4765 global rowidlist
4774 }
4777 }
4779 proc optimize_rows {row col endrow} {
4780 global rowidlist rowisopt displayorder curview children
4783 set row 1
4784 }
4787 set haspad 0
4796 } else {
4797 set pprevidlist {}
4798 }
4799 set x0 -1
4800 set xm -1
4805 set haspad 1
4806 continue
4807 }
4811 set isarrow 0
4812 set z0 {}
4817 }
4818 }
4823 set isarrow 1
4824 }
4825 }
4828 set isarrow 1
4829 }
4830 # Looking at lines from this row to the previous row,
4831 # make them go straight up if they end in an arrow on
4832 # the previous row; otherwise make them go straight up
4833 # or at 45 degrees.
4835 # Line currently goes left too much;
4836 # insert pads in the previous row, then optimize it
4841 }
4849 }
4851 # Line currently goes right too much;
4852 # insert pads in this line
4858 set haspad 1
4859 }
4866 }
4867 }
4868 # avoid lines jigging left then immediately right
4871 incr x0
4874 }
4875 }
4877 # Find the first column that doesn't have a line going right
4883 # check if this is the link to the first child
4886 # it is, work out offset to child
4888 }
4889 }
4891 }
4892 # Insert a pad at that column as long as it has a line and
4893 # isn't the last column
4898 }
4899 }
4900 }
4901 }
4903 proc xc {row col} {
4904 global canvx0 linespc
4906 }
4908 proc yc {row} {
4909 global canvy0 linespc
4911 }
4913 proc linewidth {id} {
4914 global thickerline lthickness
4919 }
4921 }
4923 proc rowranges {id} {
4924 global curview children uparrowlen downarrowlen
4925 global rowidlist
4929 return {}
4930 }
4931 set ret {}
4936 if {![info exists prev]} {
4938 } else {
4940 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4941 }
4942 # see if the line extends the whole way from prevrow to row
4946 # it doesn't, see where it ends
4951 } else {
4954 incr r -1
4955 }
4957 # see where it starts up again
4962 } else {
4965 incr r
4966 }
4968 }
4969 }
4972 }
4975 }
4977 }
4979 proc drawlineseg {id row endrow arrowlow} {
4980 global rowidlist displayorder iddrawn linesegs
4981 global canv colormap linespc curview maxlinelen parentlist
4985 set arrowhigh 1
4986 while {1} {
4989 incr le -1
4990 break
4991 }
4995 set arrowhigh 0
4996 break
4997 }
5002 set arrowhigh 0
5003 }
5004 break
5005 }
5006 incr le
5007 }
5010 }
5012 set lines {}
5013 set i 0
5014 set joinhigh 0
5021 set joinhigh 1
5022 }
5023 break
5024 }
5025 incr i
5026 }
5027 }
5028 set joinlow 0
5033 set joinlow 1
5034 }
5035 }
5048 }
5049 } else {
5051 }
5059 set arrowlow 0
5060 }
5061 }
5069 }
5071 }
5074 # join parent line to first child
5085 } else {
5087 }
5095 }
5097 }
5099 } else {
5103 }
5111 } else {
5115 }
5117 }
5118 } else {
5124 }
5128 } else {
5129 # coalesce two pieces
5134 }
5138 }
5139 }
5143 }
5145 proc drawparentlinks {id row} {
5146 global rowidlist canv colormap curview parentlist
5147 global idpos linespc
5160 # rmx = right-most X coord used
5161 set rmx 0
5166 continue
5167 }
5171 }
5174 # drawlineseg will do this one for us
5175 continue
5176 }
5178 # should handle duplicated parents here...
5181 # if attaching to a vertical segment, draw a smaller
5182 # slant for visual distinctness
5186 } else {
5188 }
5190 # segment slants towards us already
5192 } else {
5197 }
5199 }
5200 } else {
5202 }
5207 }
5211 }
5212 }
5214 proc drawlines {id} {
5215 global canv
5218 }
5220 proc drawcmittext {id row col} {
5221 global linespc canv canv2 canv3 fgcolor curview
5222 global cmitlisted commitinfo rowidlist parentlist
5223 global rowtextx idpos idtags idheads idotherrefs
5224 global linehtag linentag linedtag selectedline
5225 global canvxmax boldrows boldnamerows fgcolor
5226 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5228 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5231 set ofill red
5233 set ofill green
5235 set ofill yellow
5236 } else {
5238 }
5247 # triangle pointing left for left-side commits
5253 } else {
5254 # triangle pointing right for right-side commits
5260 }
5272 }
5273 }
5274 }
5281 }
5286 set font mainfont
5287 set nfont mainfont
5291 set font mainfontbold
5294 set nfont mainfontbold
5295 }
5296 }
5306 }
5310 setcanvscroll
5311 }
5312 }
5314 proc drawcmitrow {row} {
5315 global displayorder rowidlist nrows_drawn
5316 global iddrawn markingmatches
5317 global commitinfo numcommits
5318 global filehighlight fhighlights findpattern nhighlights
5319 global hlview vhighlights
5320 global highlight_related rhighlights
5327 }
5330 }
5333 }
5336 }
5341 return
5342 }
5345 }
5349 incr nrows_drawn
5350 }
5353 }
5354 }
5356 proc drawcommits {row {endrow {}}} {
5357 global numcommits iddrawn displayorder curview need_redisplay
5358 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5361 set row 0
5362 }
5365 }
5368 }
5372 set rl1 0
5373 }
5376 set ro1 0
5377 }
5381 }
5386 }
5388 }
5389 }
5392 }
5395 clear_display
5396 drawvisible
5397 }
5399 # make the lines join to already-drawn rows either side
5403 }
5408 }
5423 # see if this is the first child of any of its parents
5426 # make this line extend up to the child
5428 }
5429 }
5430 } else {
5432 }
5433 }
5434 }
5435 }
5437 proc undolayout {row} {
5438 global uparrowlen mingaplen downarrowlen
5439 global rowidlist rowisopt rowfinal need_redisplay
5443 set r 0
5444 }
5446 incr r -1
5450 set need_redisplay 1
5451 run drawvisible
5452 }
5453 }
5455 proc drawvisible {} {
5456 global canv linespc curview vrowmod selectedline targetrow targetid
5457 global need_redisplay cscroll numcommits
5467 if {[info exists targetid]} {
5471 # Fix up the scrollregion and change the scrolling position
5472 # now that our target row has moved.
5475 setcanvscroll
5483 set need_redisplay 1
5484 }
5485 } else {
5486 unset targetid
5487 }
5488 }
5494 }
5498 } elseif {[info exists targetid]} {
5500 }
5501 if {[info exists targetrow]} {
5504 }
5506 }
5508 }
5510 proc clear_display {} {
5511 global iddrawn linesegs need_redisplay nrows_drawn
5512 global vhighlights fhighlights nhighlights rhighlights
5513 global linehtag linentag linedtag boldrows boldnamerows
5515 allcanvs delete all
5516 catch {unset iddrawn}
5517 catch {unset linesegs}
5518 catch {unset linehtag}
5519 catch {unset linentag}
5520 catch {unset linedtag}
5521 set boldrows {}
5522 set boldnamerows {}
5523 catch {unset vhighlights}
5524 catch {unset fhighlights}
5525 catch {unset nhighlights}
5526 catch {unset rhighlights}
5527 set need_redisplay 0
5528 set nrows_drawn 0
5529 }
5531 proc findcrossings {id} {
5532 global rowidlist parentlist numcommits displayorder
5534 set cross {}
5535 set ccross {}
5539 }
5558 }
5559 }
5560 }
5561 }
5562 }
5564 }
5566 proc assigncolor {id} {
5567 global colormap colors nextcolor
5568 global parents children children curview
5574 } else {
5575 set kids {}
5576 }
5582 return
5583 }
5584 }
5585 set badcolors {}
5586 set origbad {}
5589 # delimiter between corner crossings and other crossings
5592 }
5596 }
5597 }
5600 }
5607 }
5612 }
5613 }
5614 }
5617 }
5618 }
5622 set nextcolor 0
5623 }
5625 }
5627 }
5629 proc bindline {t id} {
5630 global canv
5636 }
5638 proc drawtags {id x xt y1} {
5639 global idtags idheads idotherrefs mainhead
5640 global linespc lthickness
5641 global canv rowtextx curview fgcolor bgcolor ctxbut
5643 set marks {}
5644 set ntags 0
5645 set nheads 0
5649 }
5653 }
5656 }
5659 }
5664 set xvals {}
5665 set wvals {}
5666 set i -1
5668 incr i
5671 } else {
5673 }
5677 }
5684 set font mainfont
5685 if {[incr ntags -1] >= 0} {
5686 # draw a tag
5692 } else {
5693 # draw a head or other ref
5694 if {[incr nheads -1] >= 0} {
5695 set col green
5697 set font mainfontbold
5698 }
5699 } else {
5700 set col "#ddddff"
5701 }
5712 }
5713 }
5720 }
5721 }
5723 }
5725 proc xcoord {i level ln} {
5726 global canvx0 xspc1 xspc2
5733 }
5735 }
5737 proc show_status {msg} {
5738 global canv fgcolor
5740 clear_display
5743 }
5745 # Don't change the text pane cursor if it is currently the hand cursor,
5746 # showing that we are over a sha1 ID link.
5747 proc settextcursor {c} {
5748 global ctext curtextcursor
5752 }
5754 }
5756 proc nowbusy {what {name {}}} {
5757 global isbusy busyname statusw
5759 if {[array names isbusy] eq {}} {
5760 . config -cursor watch
5761 settextcursor watch
5762 }
5767 }
5768 }
5770 proc notbusy {what} {
5771 global isbusy maincursor textcursor busyname statusw
5773 catch {
5778 }
5779 }
5780 if {[array names isbusy] eq {}} {
5783 }
5784 }
5786 proc findmatches {f} {
5787 global findtype findstring
5790 } else {
5795 }
5796 set matches {}
5797 set i 0
5802 }
5803 }
5805 }
5807 proc dofind {{dirn 1} {wrap 1}} {
5808 global findstring findstartline findcurline selectedline numcommits
5809 global gdttype filehighlight fh_serial find_dirn findallowwrap
5811 if {[info exists find_dirn]} {
5813 stopfinding
5814 }
5815 focus .
5819 } else {
5821 }
5823 nowbusy finding [mc "Searching"]
5827 }
5830 run findmore
5831 }
5833 proc stopfinding {} {
5834 global find_dirn findcurline fprogcoord
5836 if {[info exists find_dirn]} {
5837 unset find_dirn
5838 unset findcurline
5839 notbusy finding
5840 set fprogcoord 0
5841 adjustprogress
5842 }
5843 stopblaming
5844 }
5846 proc findmore {} {
5847 global commitdata commitinfo numcommits findpattern findloc
5848 global findstartline findcurline findallowwrap
5849 global find_dirn gdttype fhighlights fprogcoord
5850 global curview varcorder vrownum varccommits vrowmod
5852 if {![info exists find_dirn]} {
5853 return 0
5854 }
5855 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5857 set moretodo 0
5859 incr l
5861 set l 0
5862 }
5865 } else {
5868 }
5869 } else {
5872 }
5873 incr l -1
5876 } else {
5877 set lim -1
5879 }
5880 }
5883 set n 500
5884 set moretodo 1
5885 }
5888 }
5889 set found 0
5890 set domore 1
5904 }
5906 # shouldn't happen unless git log doesn't give all the commits...
5909 continue
5910 }
5913 }
5918 set found 1
5919 break
5920 }
5921 }
5923 }
5924 } else {
5932 }
5937 }
5940 break
5941 }
5944 set domore 0
5946 }
5947 }
5948 }
5949 }
5951 unset findcurline
5952 unset find_dirn
5953 notbusy finding
5954 set fprogcoord 0
5955 adjustprogress
5958 } else {
5959 bell
5960 }
5961 return 0
5962 }
5964 flushhighlights
5965 } else {
5967 }
5971 }
5973 adjustprogress
5975 }
5977 proc findselectline {l} {
5978 global findloc commentend ctext findcurline markingmatches gdttype
5980 set markingmatches 1
5984 # highlight the matches in the comments
5991 }
5992 }
5993 drawvisible
5994 }
5996 # mark the bits of a headline or author that match a find string
5997 proc markmatches {canv l str tag matches font row} {
5998 global selectedline
6016 }
6017 }
6018 }
6020 proc unmarkmatches {} {
6021 global markingmatches
6023 allcanvs delete matches
6024 set markingmatches 0
6025 stopfinding
6026 }
6028 proc selcanvline {w x y} {
6029 global canv canvy0 ctext linespc
6030 global rowtextx
6037 set l 0
6038 }
6043 }
6044 unmarkmatches
6046 }
6048 proc commit_descriptor {p} {
6049 global commitinfo
6052 }
6053 set l "..."
6056 }
6058 }
6060 # append some text to the ctext widget, and make any SHA1 ID
6061 # that we know about be a clickable link.
6062 proc appendwithlinks {text tags} {
6063 global ctext linknum curview
6072 incr e
6076 incr linknum
6077 }
6078 }
6080 proc setlink {id lk} {
6081 global curview ctext pendinglinks
6083 set known 0
6088 set known 1
6090 }
6091 } else {
6093 }
6099 } else {
6102 }
6103 }
6105 proc makelink {id} {
6106 global pendinglinks
6111 }
6113 }
6115 proc linkcursor {w inc} {
6116 global linkentercount curtextcursor
6120 } else {
6123 set linkentercount 0
6124 }
6125 }
6126 }
6128 proc viewnextline {dir} {
6129 global canv linespc
6137 set newtop 0
6140 }
6142 }
6144 # add a list of tag or branch names at position pos
6145 # returns the number of names inserted
6146 proc appendrefs {pos ids var} {
6150 return 0
6151 }
6154 set tags {}
6158 }
6159 }
6162 } else {
6164 set sep {}
6168 incr linknum
6173 set sep ", "
6174 }
6175 }
6178 }
6180 # called when we have finished computing the nearby tags
6181 proc dispneartags {delay} {
6182 global selectedline currentid showneartags tagphase
6185 after cancel dispnexttag
6187 after 200 dispnexttag
6188 set tagphase -1
6189 } else {
6190 after idle dispnexttag
6191 set tagphase 0
6192 }
6193 }
6195 proc dispnexttag {} {
6196 global selectedline currentid showneartags tagphase ctext
6200 0 {
6204 }
6205 }
6206 1 {
6210 }
6211 }
6212 2 {
6217 # turn "Branch" into "Branches"
6221 }
6222 }
6223 }
6224 }
6225 if {[incr tagphase] <= 2} {
6226 after idle dispnexttag
6227 }
6228 }
6230 proc make_secsel {l} {
6231 global linehtag linentag linedtag canv canv2 canv3
6246 }
6248 proc selectline {l isnew {desired_loc {}}} {
6249 global canv ctext commitinfo selectedline
6250 global canvy0 linespc parents children curview
6251 global currentid sha1entry
6252 global commentend idtags linknum
6253 global mergemax numcommits pending_select
6254 global cmitmode showneartags allcommits
6255 global targetrow targetid lastscrollrows
6256 global autoselect jump_to_here
6258 catch {unset pending_select}
6260 normalline
6261 unsel_reflist
6262 stopfinding
6270 setcanvscroll
6271 }
6285 } else {
6289 }
6290 }
6294 } else {
6298 }
6299 }
6300 }
6303 set newtop 0
6304 }
6306 drawvisible
6307 }
6313 }
6320 }
6324 clear_ctext
6325 set linknum 0
6328 }
6338 }
6340 }
6342 set headers {}
6345 set np 0
6348 set tag mmax
6349 } else {
6351 }
6354 incr np
6355 }
6356 } else {
6359 }
6360 }
6364 }
6366 # make anything that looks like a SHA1 ID be a clickable link
6369 if {![info exists allcommits]} {
6370 getallcommits
6371 }
6382 dispneartags 1
6383 }
6388 }
6396 init_flist [mc "Comments"]
6401 } else {
6403 }
6404 }
6406 proc selfirstline {} {
6407 unmarkmatches
6408 selectline 0 1
6409 }
6411 proc sellastline {} {
6412 global numcommits
6413 unmarkmatches
6416 }
6418 proc selnextline {dir} {
6419 global selectedline
6420 focus .
6423 unmarkmatches
6425 }
6427 proc selnextpage {dir} {
6428 global canv linespc selectedline numcommits
6432 set lpp 1
6433 }
6435 drawvisible
6439 set l 0
6442 }
6443 unmarkmatches
6445 }
6447 proc unselectline {} {
6448 global selectedline currentid
6450 set selectedline {}
6451 catch {unset currentid}
6452 allcanvs delete secsel
6453 rhighlight_none
6454 }
6456 proc reselectline {} {
6457 global selectedline
6461 }
6462 }
6464 proc addtohistory {cmd} {
6465 global history historyindex curview
6470 return
6471 }
6475 } else {
6477 }
6478 incr historyindex
6480 .tf.bar.leftbut conf -state normal
6481 } else {
6482 .tf.bar.leftbut conf -state disabled
6483 }
6484 .tf.bar.rightbut conf -state disabled
6485 }
6487 proc godo {elt} {
6488 global curview
6494 }
6496 }
6498 proc goback {} {
6499 global history historyindex
6500 focus .
6503 incr historyindex -1
6505 .tf.bar.rightbut conf -state normal
6506 }
6508 .tf.bar.leftbut conf -state disabled
6509 }
6510 }
6512 proc goforw {} {
6513 global history historyindex
6514 focus .
6518 incr historyindex
6520 .tf.bar.leftbut conf -state normal
6521 }
6523 .tf.bar.rightbut conf -state disabled
6524 }
6525 }
6527 proc gettree {id} {
6528 global treefilelist treeidlist diffids diffmergeid treepending
6529 global nullid nullid2
6532 catch {unset diffmergeid}
6534 if {![info exists treepending]} {
6536 set cmd [list | git ls-files]
6538 set cmd [list | git ls-files --stage -t]
6539 } else {
6541 }
6543 return
6544 }
6550 }
6551 } else {
6553 }
6554 }
6556 proc gettreeline {gtf id} {
6557 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6559 set nl 0
6563 } else {
6571 }
6574 }
6577 }
6580 }
6582 unset treepending
6584 if {![info exists diffmergeid]} {
6586 }
6589 } else {
6591 }
6592 return 0
6593 }
6595 proc showfile {f} {
6596 global treefilelist treeidlist diffids nullid nullid2
6597 global ctext_file_names ctext_file_lines
6598 global ctext commentend
6603 return
6604 }
6608 return
6609 }
6610 } else {
6614 return
6615 }
6616 }
6627 settabs 0
6628 }
6630 proc getblobline {bf id} {
6631 global diffids cmitmode ctext
6635 return 0
6636 }
6638 set nl 0
6641 }
6643 global jump_to_here ctext_file_names commentend
6645 # delete last newline
6653 }
6654 return 0
6655 }
6658 }
6660 proc mark_ctext_line {lnum} {
6661 global ctext
6667 }
6669 proc mergediff {id} {
6670 global diffmergeid mdifffd
6671 global diffids treediffs
6672 global parents
6673 global diffcontext
6674 global diffencoding
6675 global limitdiffs vfilelimit curview
6676 global targetline
6681 set targetline {}
6682 # this doesn't seem to actually affect anything...
6686 }
6689 return
6690 }
6694 set diffencoding [get_path_encoding {}]
6697 }
6699 proc getmergediffline {mdf id np} {
6700 global diffmergeid ctext cflist mergemax
6701 global difffilestart mdifffd treediffs
6702 global ctext_file_names ctext_file_lines
6703 global diffencoding jump_to_here targetline diffline
6706 set nr 0
6711 return 0
6712 }
6714 # start of a new file
6727 set targetline {}
6730 }
6731 set diffline 0
6737 }
6739 # do nothing
6740 } else {
6742 # parse the prefix - one ' ', '-' or '+' for each parent
6743 set spaces {}
6744 set minuses {}
6745 set pluses {}
6746 set isbad 0
6755 } else {
6756 set isbad 1
6757 break
6758 }
6759 }
6760 set tags {}
6761 set num {}
6767 lappend tags mresult
6769 }
6772 set num "max"
6773 }
6775 }
6781 set targetline {}
6782 } else {
6783 incr diffline
6784 }
6785 }
6786 }
6787 }
6791 return 0
6792 }
6794 }
6796 proc startdiff {ids} {
6797 global treediffs diffids treepending diffmergeid nullid nullid2
6799 settabs 1
6801 catch {unset diffmergeid}
6805 if {![info exists treepending]} {
6807 }
6808 } else {
6810 }
6811 }
6813 proc path_filter {filter name} {
6818 return 1
6819 }
6820 } else {
6824 return 1
6825 }
6826 }
6827 }
6828 return 0
6829 }
6831 proc addtocflist {ids} {
6832 global treediffs
6836 }
6838 proc diffcmd {ids flags} {
6839 global nullid nullid2
6845 # comparing working directory with some specific revision
6849 } else {
6851 }
6852 } else {
6853 # comparing working directory with index
6856 lappend cmd -R
6857 }
6858 }
6862 # comparing index with specific revision
6865 } else {
6867 }
6868 } else {
6869 # comparing index with HEAD
6870 lappend cmd HEAD
6871 }
6872 } else {
6874 }
6876 }
6878 proc gettreediffs {ids} {
6879 global treediff treepending
6884 set treediff {}
6887 }
6889 proc gettreediffline {gdtf ids} {
6890 global treediff treediffs treepending diffids diffmergeid
6891 global cmitmode vfilelimit curview limitdiffs perfile_attrs
6893 set nr 0
6894 set sublist {}
6895 set max 1000
6897 # cache_gitattr is slow, and even slower on win32 where we
6898 # have to invoke it for only about 30 paths at a time
6899 set max 500
6900 if {[tk windowingsystem] == "win32"} {
6901 set max 120
6902 }
6903 }
6910 }
6914 }
6915 }
6918 }
6921 }
6924 set flist {}
6928 }
6929 }
6931 } else {
6933 }
6934 unset treepending
6938 if {![info exists diffmergeid]} {
6940 }
6941 } else {
6943 }
6944 return 0
6945 }
6947 # empty string or positive integer
6948 proc diffcontextvalidate {v} {
6950 }
6952 proc diffcontextchange {n1 n2 op} {
6953 global diffcontextstring diffcontext
6958 reselectline
6959 }
6960 }
6961 }
6963 proc changeignorespace {} {
6964 reselectline
6965 }
6967 proc getblobdiffs {ids} {
6968 global blobdifffd diffids env
6969 global diffinhdr treediffs
6970 global diffcontext
6971 global ignorespace
6972 global limitdiffs vfilelimit curview
6973 global diffencoding targetline
6977 append cmd " -w"
6978 }
6981 }
6984 return
6985 }
6986 set targetline {}
6987 set diffinhdr 0
6988 set diffencoding [get_path_encoding {}]
6992 }
6994 proc setinlist {var i val} {
6999 }
7002 } else {
7004 }
7005 }
7007 proc makediffhdr {fname ids} {
7008 global ctext curdiffstart treediffs
7009 global ctext_file_names jump_to_here targetline diffline
7014 }
7019 set targetline {}
7022 }
7023 set diffline 0
7024 }
7026 proc getblobdiffline {bdf ids} {
7027 global diffids blobdifffd ctext curdiffstart
7028 global diffnexthead diffnextnote difffilestart
7029 global ctext_file_names ctext_file_lines
7030 global diffinhdr treediffs
7031 global diffencoding jump_to_here targetline diffline
7033 set nr 0
7038 return 0
7039 }
7041 # trim off "diff --git "
7043 set diffinhdr 1
7044 # start of a new file
7047 lappend ctext_file_names ""
7050 # If the name hasn't changed the length will be odd,
7051 # the middle char will be a space, and the two bits either
7052 # side will be a/name and b/name, or "a/name" and "b/name".
7053 # If the name has changed we'll get "rename from" and
7054 # "rename to" or "copy from" and "copy to" lines following this,
7055 # and we'll use them to get the filenames.
7056 # This complexity is necessary because spaces in the filename(s)
7057 # don't get escaped.
7063 continue
7064 }
7065 # unescape if quoted and chop off the a/ from the front
7068 } else {
7070 }
7075 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
7079 set diffinhdr 0
7087 }
7092 }
7098 }
7103 # do nothing
7104 continue
7106 set diffinhdr 0
7107 continue
7108 }
7111 } else {
7120 } else {
7121 # "\ No newline at end of file",
7122 # or something else we don't recognize
7124 }
7128 set targetline {}
7129 } else {
7130 incr diffline
7131 }
7132 }
7133 }
7134 }
7138 return 0
7139 }
7141 }
7143 proc changediffdisp {} {
7144 global ctext diffelide
7148 }
7150 proc highlightfile {loc cline} {
7151 global ctext cflist cflist_top
7158 }
7160 proc prevfile {} {
7161 global difffilestart ctext cmitmode
7164 set prev 0.0
7165 set prevline 1
7170 return
7171 }
7173 incr prevline
7174 }
7176 }
7178 proc nextfile {} {
7179 global difffilestart ctext cmitmode
7183 set line 1
7185 incr line
7188 return
7189 }
7190 }
7191 }
7193 proc clear_ctext {{first 1.0}} {
7194 global ctext smarktop smarkbot
7195 global ctext_file_names ctext_file_lines
7196 global pendinglinks
7201 }
7204 }
7207 catch {unset pendinglinks}
7208 }
7209 set ctext_file_names {}
7210 set ctext_file_lines {}
7211 }
7213 proc settabs {{firstab {}}} {
7214 global firsttabstop tabstop ctext have_tk85
7218 }
7219 set w [font measure textfont "0"]
7225 } else {
7227 }
7228 }
7230 proc incrsearch {name ix op} {
7231 global ctext searchstring searchdirn
7235 # no anchor set, use start of selection, or of visible area
7241 } else {
7243 }
7244 }
7249 }
7250 searchmarkvisible 1
7251 }
7252 }
7254 proc dosearch {} {
7255 global sstring ctext searchstring searchdirn
7259 set searchdirn -forwards
7265 set start "@0,0"
7266 }
7270 bell
7271 return
7272 }
7277 }
7278 }
7280 proc dosearchback {} {
7281 global sstring ctext searchstring searchdirn
7285 set searchdirn -backwards
7292 }
7296 bell
7297 return
7298 }
7303 }
7304 }
7306 proc searchmark {first last} {
7307 global ctext searchstring
7310 while {1} {
7315 }
7316 }
7318 proc searchmarkvisible {doall} {
7319 global ctext smarktop smarkbot
7324 # no overlap with previous
7328 } else {
7332 }
7336 }
7337 }
7338 }
7340 proc scrolltext {f0 f1} {
7341 global searchstring
7345 searchmarkvisible 0
7346 }
7347 }
7349 proc setcoords {} {
7350 global linespc charspc canvx0 canvy0
7351 global xspc1 xspc2 lthickness
7353 set linespc [font metrics mainfont -linespace]
7354 set charspc [font measure mainfont "m"]
7360 }
7362 proc redisplay {} {
7363 global canv
7364 global selectedline
7369 clear_display
7370 setcanvscroll
7372 drawvisible
7376 }
7377 }
7379 proc parsefont {f n} {
7380 global fontattr
7385 set s 10
7388 }
7394 "normal" -
7396 "roman" -
7398 }
7399 }
7400 }
7402 proc fontflags {f {isbold 0}} {
7403 global fontattr
7408 }
7410 proc fontname {f} {
7411 global fontattr
7415 lappend n "bold"
7416 }
7418 lappend n "italic"
7419 }
7421 }
7423 proc incrfont {inc} {
7424 global mainfont textfont ctext canv cflist showrefstop
7425 global stopped entries fontattr
7427 unmarkmatches
7431 set s 1
7432 }
7436 set mainfont [fontname mainfont]
7440 set s 1
7441 }
7445 set textfont [fontname textfont]
7446 setcoords
7447 settabs
7448 redisplay
7449 }
7451 proc clearsha1 {} {
7452 global sha1entry sha1string
7455 }
7456 }
7458 proc sha1change {n1 n2 op} {
7459 global sha1string currentid sha1but
7462 set state disabled
7463 } else {
7464 set state normal
7465 }
7469 } else {
7471 }
7472 }
7474 proc gotocommit {} {
7475 global sha1string tagids headids curview varcid
7483 } else {
7490 return
7491 }
7493 }
7494 }
7495 }
7498 return
7499 }
7502 } else {
7504 }
7506 }
7508 proc lineenter {x y id} {
7509 global hoverx hovery hoverid hovertimer
7510 global commitinfo canv
7516 if {[info exists hovertimer]} {
7518 }
7519 set hovertimer [after 500 linehover]
7521 }
7523 proc linemotion {x y id} {
7524 global hoverx hovery hoverid hovertimer
7529 if {[info exists hovertimer]} {
7531 }
7532 set hovertimer [after 500 linehover]
7533 }
7534 }
7536 proc lineleave {id} {
7537 global hoverid hovertimer canv
7541 if {[info exists hovertimer]} {
7543 unset hovertimer
7544 }
7545 unset hoverid
7546 }
7547 }
7549 proc linehover {} {
7550 global hoverx hovery hoverid hovertimer
7551 global canv linespc lthickness
7552 global commitinfo
7565 -fill \#ffff80 -outline black -width 1 -tags hover]
7568 -font mainfont]
7570 }
7572 proc clickisonarrow {id y} {
7573 global lthickness
7582 }
7583 }
7584 return {}
7585 }
7587 proc arrowjump {id n y} {
7588 global canv
7590 # 1 <-> 2, 3 <-> 4, etc...
7600 set yfrac 0
7601 }
7603 }
7605 proc lineclick {x y id isnew} {
7606 global ctext commitinfo children canv thickerline curview
7609 unmarkmatches
7610 unselectline
7611 normalline
7613 # draw this line thicker than normal
7621 }
7625 return
7626 }
7630 }
7631 # fill the details pane with info about this line
7633 clear_ctext
7634 settabs 0
7646 set i 0
7648 incr i
7658 }
7659 }
7661 init_flist {}
7662 }
7664 proc normalline {} {
7665 global thickerline
7666 if {[info exists thickerline]} {
7668 unset thickerline
7670 }
7671 }
7673 proc selbyid {id} {
7674 global curview
7677 }
7678 }
7680 proc mstime {} {
7681 global startmstime
7682 if {![info exists startmstime]} {
7683 set startmstime [clock clicks -milliseconds]
7684 }
7686 }
7688 proc rowmenu {x y id} {
7689 global rowctxmenu selectedline rowmenuid curview
7690 global nullid nullid2 fakerowmenu mainhead
7692 stopfinding
7695 set state disabled
7696 } else {
7697 set state normal
7698 }
7703 } else {
7705 }
7706 } else {
7708 }
7713 }
7715 proc diffvssel {dirn} {
7716 global rowmenuid selectedline
7722 } else {
7725 }
7728 }
7730 proc doseldiff {oldid newid} {
7731 global ctext
7732 global commitinfo
7735 clear_ctext
7736 init_flist [mc "Top"]
7751 }
7753 proc mkpatch {} {
7754 global rowmenuid currentid commitinfo patchtop patchnum
7756 if {![info exists currentid]} return
7761 set top .patch
7790 incr patchnum
7800 }
7802 proc mkpatchrev {} {
7803 global patchtop
7809 foreach e [list fromsha1 fromhead tosha1 tohead] \
7815 }
7816 }
7818 proc mkpatchgo {} {
7819 global patchtop nullid nullid2
7825 # trim off the initial "|"
7830 }
7832 unset patchtop
7833 }
7835 proc mkpatchcan {} {
7836 global patchtop
7839 unset patchtop
7840 }
7842 proc mktag {} {
7843 global rowmenuid mktagtop commitinfo
7845 set top .maketag
7871 }
7873 proc domktag {} {
7874 global mktagtop env tagids idtags
7879 error_popup [mc "No tag name specified"]
7880 return
7881 }
7884 return
7885 }
7886 if {[catch {
7888 } err]} {
7890 return
7891 }
7897 dispneartags 0
7898 run refill_reflist
7899 }
7901 proc redrawtags {id} {
7902 global canv linehtag idpos currentid curview cmitlisted
7903 global canvxmax iddrawn circleitem mainheadid circlecolors
7909 set ofill yellow
7910 } else {
7912 }
7922 setcanvscroll
7923 }
7926 }
7927 }
7929 proc mktagcan {} {
7930 global mktagtop
7933 unset mktagtop
7934 }
7936 proc mktaggo {} {
7937 domktag
7938 mktagcan
7939 }
7941 proc writecommit {} {
7942 global rowmenuid wrcomtop commitinfo wrcomcmd
7944 set top .writecommit
7974 }
7976 proc wrcomgo {} {
7977 global wrcomtop
7984 }
7986 unset wrcomtop
7987 }
7989 proc wrcomcan {} {
7990 global wrcomtop
7993 unset wrcomtop
7994 }
7996 proc mkbranch {} {
7997 global rowmenuid mkbrtop
7999 set top .makebranch
8021 }
8023 proc mkbrgo {top} {
8024 global headids idheads
8028 set cmdargs {}
8029 set old_id {}
8031 error_popup [mc "Please specify a name for the new branch"]
8032 return
8033 }
8035 if {![confirm_popup [mc \
8037 return
8038 }
8040 lappend cmdargs -f
8041 }
8044 nowbusy newbranch
8045 update
8046 if {[catch {
8048 } err]} {
8049 notbusy newbranch
8051 } else {
8052 notbusy newbranch
8058 } else {
8063 }
8064 dispneartags 0
8065 run refill_reflist
8066 }
8067 }
8069 proc cherrypick {} {
8070 global rowmenuid curview
8071 global mainhead mainheadid
8073 set oldhead [exec git rev-parse HEAD]
8076 set ok [confirm_popup [mc "Commit %s is already\
8077 included in branch %s -- really re-apply it?" \
8080 }
8081 nowbusy cherrypick [mc "Cherry-picking"]
8082 update
8083 # Unfortunately git-cherry-pick writes stuff to stderr even when
8084 # no error occurs, and exec takes that as an indication of error...
8086 notbusy cherrypick
8088 return
8089 }
8090 set newhead [exec git rev-parse HEAD]
8092 notbusy cherrypick
8093 error_popup [mc "No changes committed"]
8094 return
8095 }
8102 }
8107 }
8108 notbusy cherrypick
8109 }
8111 proc resethead {} {
8112 global mainhead rowmenuid confirm_ok resettype
8114 set confirm_ok 0
8115 set w ".confirmreset"
8121 -justify center -aspect 1000
8126 set resettype mixed
8128 -text [mc "Soft: Leave working tree and index untouched"]
8131 -text [mc "Mixed: Leave working tree untouched, reset index"]
8134 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8144 if {[catch {set fd [open \
8147 } else {
8148 dohidelocalchanges
8150 nowbusy reset [mc "Resetting"]
8152 }
8153 }
8155 proc readresetstat {fd} {
8156 global mainhead mainheadid showlocalchanges rprogcoord
8161 adjustprogress
8162 }
8163 return 1
8164 }
8165 set rprogcoord 0
8166 adjustprogress
8167 notbusy reset
8170 }
8172 set newhead [exec git rev-parse HEAD]
8179 }
8181 doshowlocalchanges
8182 }
8183 return 0
8184 }
8186 # context menu for a head
8187 proc headmenu {x y id head} {
8188 global headmenuid headmenuhead headctxmenu mainhead
8190 stopfinding
8193 set state normal
8195 set state disabled
8196 }
8200 }
8202 proc cobranch {} {
8203 global headmenuid headmenuhead headids
8204 global showlocalchanges mainheadid
8206 # check the tree is clean first??
8207 nowbusy checkout [mc "Checking out"]
8208 update
8209 dohidelocalchanges
8210 if {[catch {
8212 } err]} {
8213 notbusy checkout
8216 dodiffindex
8217 }
8218 } else {
8220 }
8221 }
8223 proc readcheckoutstat {fd newhead newheadid} {
8224 global mainhead mainheadid headids showlocalchanges progresscoords
8229 adjustprogress
8230 }
8231 return 1
8232 }
8233 set progresscoords {0 0}
8234 adjustprogress
8235 notbusy checkout
8238 }
8246 dodiffindex
8247 }
8248 }
8250 proc rmbranch {} {
8251 global headmenuid headmenuhead mainhead
8252 global idheads
8256 # this check shouldn't be needed any more...
8258 error_popup [mc "Cannot delete the currently checked-out branch"]
8259 return
8260 }
8263 # the stuff on this branch isn't on any other branch
8264 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8266 }
8267 nowbusy rmbranch
8268 update
8270 notbusy rmbranch
8272 return
8273 }
8277 notbusy rmbranch
8278 dispneartags 0
8279 run refill_reflist
8280 }
8282 # Display a list of tags and heads
8283 proc showrefs {} {
8284 global showrefstop bgcolor fgcolor selectbgcolor
8285 global bglist fglist reflistfilter reflist maincursor
8287 set top .showrefs
8291 refill_reflist
8292 return
8293 }
8300 -spacing1 1 -spacing3 1 -state disabled
8311 set reflistfilter "*"
8312 trace add variable reflistfilter write reflistfilter_change
8323 set reflist {}
8324 refill_reflist
8325 }
8327 proc sel_reflist {w x y} {
8328 global showrefstop reflist headids tagids otherrefids
8338 }
8340 }
8342 proc unsel_reflist {} {
8343 global showrefstop
8347 }
8349 proc reflistfilter_change {n1 n2 op} {
8350 global reflistfilter
8352 after cancel refill_reflist
8353 after 200 refill_reflist
8354 }
8356 proc refill_reflist {} {
8357 global reflist reflistfilter showrefstop headids tagids otherrefids
8358 global curview
8361 set refs {}
8362 foreach n [array names headids] {
8366 } else {
8368 }
8369 }
8370 }
8371 foreach n [array names tagids] {
8375 } else {
8377 }
8378 }
8379 }
8380 foreach n [array names otherrefids] {
8384 } else {
8386 }
8387 }
8388 }
8396 set i 0
8397 set j 0
8406 }
8407 } else {
8408 set cmp -1
8409 }
8410 } else {
8411 set cmp 1
8412 }
8414 -1 {
8416 incr i
8417 }
8418 0 {
8419 incr i
8420 incr j
8421 }
8422 1 {
8427 incr j
8428 }
8429 }
8430 }
8432 # delete last newline
8435 }
8437 # Stuff for finding nearby tags
8438 proc getallcommits {} {
8439 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8440 global idheads idtags idotherrefs allparents tagobjid
8442 if {![info exists allcommits]} {
8443 set nextarc 0
8444 set allcommits 0
8445 set seeds {}
8446 set allcwait 0
8447 set cachedarcs 0
8448 set allccache [file join [gitdir] "gitk.cache"]
8449 if {![catch {
8451 set allcwait 1
8453 }]} return
8454 }
8457 return
8458 }
8459 set cmd [list | git rev-list --parents]
8462 set ids "--all"
8463 } else {
8464 set refs [concat [array names idheads] [array names idtags] \
8465 [array names idotherrefs]]
8466 set ids {}
8467 set tagobjs {}
8468 foreach name [array names tagobjid] {
8470 }
8475 }
8476 }
8480 }
8481 }
8482 }
8486 incr allcommits
8487 nowbusy allcommits
8489 } else {
8490 dispneartags 0
8491 }
8492 }
8494 # Since most commits have 1 parent and 1 child, we group strings of
8495 # such commits into "arcs" joining branch/merge points (BMPs), which
8496 # are commits that either don't have 1 parent or don't have 1 child.
8497 #
8498 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8499 # arcout(id) - outgoing arcs for BMP
8500 # arcids(a) - list of IDs on arc including end but not start
8501 # arcstart(a) - BMP ID at start of arc
8502 # arcend(a) - BMP ID at end of arc
8503 # growing(a) - arc a is still growing
8504 # arctags(a) - IDs out of arcids (excluding end) that have tags
8505 # archeads(a) - IDs out of arcids (excluding end) that have heads
8506 # The start of an arc is at the descendent end, so "incoming" means
8507 # coming from descendents, and "outgoing" means going towards ancestors.
8509 proc getallclines {fd} {
8510 global allparents allchildren idtags idheads nextarc
8511 global arcnos arcids arctags arcout arcend arcstart archeads growing
8512 global seeds allcommits cachedarcs allcupdate
8514 set nid 0
8518 # seen it already
8519 continue
8520 }
8521 set cachedarcs 0
8528 } else {
8534 }
8537 }
8539 # seen parent already
8542 }
8546 }
8549 continue
8550 }
8551 }
8556 }
8558 set ao {}
8561 set a [incr nextarc]
8570 # seen it already, may need to make a new branch
8573 }
8577 }
8579 }
8581 }
8583 global cached_dheads cached_dtags cached_atags
8584 catch {unset cached_dheads}
8585 catch {unset cached_dtags}
8586 catch {unset cached_atags}
8587 }
8590 }
8591 set cacheok 1
8592 if {[catch {
8595 } err]} {
8596 # got an error reading the list of commits
8597 # if we were updating, try rereading the whole thing again
8599 incr allcommits -1
8601 return
8602 }
8603 error_popup "[mc "Error reading commit topology information;\
8604 branch and preceding/following tag information\
8606 set cacheok 0
8607 }
8608 if {[incr allcommits -1] == 0} {
8609 notbusy allcommits
8611 run savecache
8612 }
8613 }
8614 dispneartags 0
8615 return 0
8616 }
8618 proc recalcarc {a} {
8619 global arctags archeads arcids idtags idheads
8621 set at {}
8622 set ah {}
8626 }
8629 }
8630 }
8633 }
8635 proc splitarc {p} {
8636 global arcnos arcids nextarc arctags archeads idtags idheads
8637 global arcstart arcend arcout allparents growing
8642 return
8643 }
8648 return
8649 }
8650 set na [incr nextarc]
8653 } else {
8657 }
8667 }
8672 } else {
8675 }
8676 }
8678 # reconstruct tags and heads lists
8682 } else {
8685 }
8686 }
8688 # Update things for a new commit added that is a child of one
8689 # existing commit. Used when cherry-picking.
8690 proc addnewchild {id p} {
8691 global allparents allchildren idtags nextarc
8692 global arcnos arcids arctags arcout arcend arcstart archeads growing
8693 global seeds allcommits
8701 set a [incr nextarc]
8709 }
8712 }
8714 # This implements a cache for the topology information.
8715 # The cache saves, for each arc, the start and end of the arc,
8716 # the ids on the arc, and the outgoing arcs from the end.
8717 proc readcache {f} {
8718 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8719 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8720 global allcwait
8726 }
8727 if {[catch {
8729 # finish reading the cache and setting up arctags, etc.
8733 foreach id [array names idtags] {
8739 }
8740 }
8741 }
8742 foreach id [array names idheads] {
8748 }
8749 }
8750 }
8754 }
8755 }
8756 set allcwait 0
8757 } else {
8767 }
8771 } else {
8775 }
8776 }
8782 }
8785 }
8788 }
8790 }
8791 } err]} {
8793 return 0
8794 }
8796 getallcommits
8797 }
8799 }
8801 proc getcache {f} {
8802 global nextarc cachedarcs possible_seeds
8804 if {[catch {
8807 # make sure it's an integer
8810 set nextarc 0
8811 set possible_seeds {}
8813 } err]} {
8815 }
8816 return 0
8817 }
8819 proc dropcache {err} {
8820 global allcwait nextarc cachedarcs seeds
8823 foreach v {arcnos arcout arcids arcstart arcend growing \
8824 arctags archeads allparents allchildren} {
8827 }
8828 set allcwait 0
8829 set nextarc 0
8830 set cachedarcs 0
8831 set seeds {}
8832 getallcommits
8833 }
8835 proc writecache {f} {
8836 global cachearc cachedarcs allccache
8837 global arcstart arcend arcnos arcids arcout
8843 }
8844 if {[catch {
8848 } else {
8850 }
8851 }
8852 } err]} {
8856 return 0
8857 }
8862 return 0
8863 }
8864 return 1
8865 }
8867 proc savecache {} {
8868 global nextarc cachedarcs cachearc allccache
8871 set cachearc 0
8873 catch {
8877 }
8878 }
8880 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8881 # or 0 if neither is true.
8882 proc anc_or_desc {a b} {
8883 global arcout arcstart arcend arcnos cached_isanc
8886 # Both are on the same arc(s); either both are the same BMP,
8887 # or if one is not a BMP, the other is also not a BMP or is
8888 # the BMP at end of the arc (and it only has 1 incoming arc).
8889 # Or both can be BMPs with no incoming arcs.
8891 return 0
8892 }
8898 return 1
8899 } else {
8900 return -1
8901 }
8902 }
8908 } else {
8909 set aend {}
8910 }
8912 } else {
8914 }
8919 } else {
8920 set bend {}
8921 }
8923 } else {
8925 }
8927 return 1
8928 }
8930 return -1
8931 }
8934 return 1
8935 }
8936 }
8939 return -1
8940 }
8942 return 0
8943 }
8944 }
8952 continue
8953 }
8959 return 1
8963 return -1
8964 }
8970 }
8971 }
8972 }
8975 return 0
8976 }
8980 # and returns 0 if so and 1 if not.
8981 # If we subsequently discover a tag on such a growing tip, and that
8984 # isn't a good choice to display as a descendent tag of
8988 #
8989 proc is_certain {desc anc} {
8990 global arcnos arcout arcstart arcend growing problems
8992 set certain {}
8994 # tags on the same arc are certain
8996 return 1
8997 }
9002 }
9003 }
9006 } else {
9009 }
9011 return 1
9012 }
9015 set nnh 1
9016 set ngrowanc 0
9020 incr nnh -1
9021 }
9027 incr ngrowanc
9028 }
9029 } else {
9036 incr nnh -1
9037 }
9039 incr ngrowanc -1
9040 }
9050 incr nnh -1
9051 }
9053 incr ngrowanc -1
9054 }
9056 }
9057 }
9058 }
9059 }
9060 }
9061 }
9065 } else {
9068 incr nnh
9069 }
9070 }
9071 }
9072 }
9073 foreach x [array names growanc] {
9075 return 0
9076 }
9077 return 0
9078 }
9079 return 1
9080 }
9082 proc validate_arctags {a} {
9083 global arctags idtags
9085 set i -1
9088 incr i
9091 incr i -1
9092 }
9093 }
9095 }
9097 proc validate_archeads {a} {
9098 global archeads idheads
9100 set i -1
9103 incr i
9106 incr i -1
9107 }
9108 }
9110 }
9112 # Return the list of IDs that have tags that are descendents of id,
9113 # ignoring IDs that are descendents of IDs already reported.
9114 proc desctags {id} {
9115 global arcnos arcstart arcids arctags idtags allparents
9116 global growing cached_dtags
9119 return {}
9120 }
9121 set t1 [clock clicks -milliseconds]
9124 # part-way along an arc; check that arc first
9129 set tid {}
9134 }
9137 }
9138 }
9142 }
9143 }
9146 }
9151 set nc 1
9157 incr nc -1
9158 }
9159 # ignore tags on starting node
9163 set ta 1
9166 set ta 1
9167 }
9168 }
9175 }
9176 }
9185 }
9188 }
9190 incr nc -1
9191 }
9193 }
9194 }
9195 }
9200 incr nc
9201 }
9202 }
9203 }
9204 }
9205 set tags {}
9206 foreach id [array names tagloc] {
9211 }
9212 }
9213 }
9214 }
9215 set t2 [clock clicks -milliseconds]
9218 # remove tags that are descendents of other tags
9226 incr j -1
9227 incr i -1
9230 incr i -1
9231 break
9232 }
9233 }
9234 }
9236 if {[array names growing] ne {}} {
9237 # graph isn't finished, need to check if any tag could get
9238 # eclipsed by another tag coming later. Simply ignore any
9239 # tags that could later get eclipsed.
9240 set ctags {}
9244 }
9245 }
9248 } else {
9250 }
9251 } else {
9253 }
9254 set t3 [clock clicks -milliseconds]
9258 }
9260 }
9262 proc anctags {id} {
9263 global arcnos arcids arcout arcend arctags idtags allparents
9264 global growing cached_atags
9267 return {}
9268 }
9269 set t1 [clock clicks -milliseconds]
9272 # part-way along an arc; check that arc first
9281 }
9282 }
9283 }
9285 return {}
9286 }
9290 }
9291 }
9294 }
9299 set taglist {}
9300 set nc 1
9306 incr nc -1
9307 }
9308 # ignore tags on starting node
9312 set td 1
9315 set td 1
9316 }
9317 }
9323 }
9324 }
9336 }
9337 }
9340 }
9342 incr nc -1
9343 }
9345 }
9346 }
9347 }
9352 incr nc
9353 }
9354 }
9355 }
9356 }
9357 set t2 [clock clicks -milliseconds]
9359 set tags {}
9360 foreach id [array names tagloc] {
9365 }
9366 }
9367 }
9368 }
9370 # remove tags that are ancestors of other tags
9378 incr j -1
9379 incr i -1
9382 incr i -1
9383 break
9384 }
9385 }
9386 }
9388 if {[array names growing] ne {}} {
9389 # graph isn't finished, need to check if any tag could get
9390 # eclipsed by another tag coming later. Simply ignore any
9391 # tags that could later get eclipsed.
9392 set ctags {}
9396 }
9397 }
9400 } else {
9402 }
9403 } else {
9405 }
9406 set t3 [clock clicks -milliseconds]
9410 }
9412 }
9414 # Return the list of IDs that have heads that are descendents of id,
9415 # including id itself if it has a head.
9416 proc descheads {id} {
9417 global arcnos arcstart arcids archeads idheads cached_dheads
9418 global allparents
9421 return {}
9422 }
9423 set aret {}
9425 # part-way along an arc; check it first
9434 }
9435 }
9437 }
9441 set ret {}
9446 } else {
9449 }
9455 }
9456 }
9461 }
9462 }
9463 }
9464 }
9468 }
9470 proc addedtag {id} {
9471 global arcnos arcout cached_dtags cached_atags
9476 }
9477 catch {unset cached_dtags}
9478 catch {unset cached_atags}
9479 }
9481 proc addedhead {hid head} {
9482 global arcnos arcout cached_dheads
9487 }
9488 catch {unset cached_dheads}
9489 }
9491 proc removedhead {hid head} {
9492 global cached_dheads
9494 catch {unset cached_dheads}
9495 }
9497 proc movedhead {hid head} {
9498 global arcnos arcout cached_dheads
9503 }
9504 catch {unset cached_dheads}
9505 }
9507 proc changedrefs {} {
9508 global cached_dheads cached_dtags cached_atags
9509 global arctags archeads arcnos arcout idheads idtags
9511 foreach id [concat [array names idheads] [array names idtags]] {
9517 }
9518 }
9519 }
9520 catch {unset cached_dtags}
9521 catch {unset cached_atags}
9522 catch {unset cached_dheads}
9523 }
9525 proc rereadrefs {} {
9526 global idtags idheads idotherrefs mainheadid
9528 set refids [concat [array names idtags] \
9529 [array names idheads] [array names idotherrefs]]
9533 }
9534 }
9536 readrefs
9537 changedrefs
9539 [array names idheads] [array names idotherrefs]]]
9544 }
9545 }
9549 }
9550 run refill_reflist
9551 }
9553 proc listrefs {id} {
9554 global idtags idheads idotherrefs
9556 set x {}
9559 }
9560 set y {}
9563 }
9564 set z {}
9567 }
9569 }
9571 proc showtag {tag isnew} {
9572 global ctext tagcontents tagids linknum tagobjid
9576 }
9578 clear_ctext
9579 settabs 0
9580 set linknum 0
9582 catch {
9584 }
9585 }
9588 } else {
9590 }
9593 init_flist {}
9594 }
9596 proc doquit {} {
9597 global stopped
9598 global gitktmpdir
9600 set stopped 100
9601 savestuff .
9602 destroy .
9604 if {[info exists gitktmpdir]} {
9606 }
9607 }
9609 proc mkfontdisp {font top which} {
9618 }
9620 proc choosefont {font which} {
9621 global fontparam fontlist fonttop fontattr
9629 set top .gitkfont
9632 font create sample
9638 set fontlist [lsort [font families]]
9649 -textvariable fontparam(size) \
9650 -validatecommand {string is integer -strict %s}
9652 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9653 -variable fontparam(weight) -onvalue bold -offvalue normal
9655 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9656 -variable fontparam(slant) -onvalue italic -offvalue roman
9660 -background white
9662 -fill black -tags text
9672 trace add variable fontparam write chg_fontparam
9673 } else {
9676 }
9681 }
9682 }
9684 proc centertext {w} {
9686 }
9688 proc fontok {} {
9689 global fontparam fontpref prefstop
9695 }
9698 }
9702 fontcan
9703 }
9705 proc fontcan {} {
9706 global fonttop fontparam
9708 if {[info exists fonttop]} {
9710 catch {font delete sample}
9711 unset fonttop
9712 unset fontparam
9713 }
9714 }
9716 proc selfontfam {} {
9717 global fonttop fontparam
9722 }
9723 }
9725 proc chg_fontparam {v sub op} {
9726 global fontparam
9729 }
9731 proc doprefs {} {
9732 global maxwidth maxgraphpct
9733 global oldprefs prefstop showneartags showlocalchanges
9734 global bgcolor fgcolor ctext diffcolors selectbgcolor
9735 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9737 set top .gitkprefs
9741 return
9742 }
9743 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9744 limitdiffs tabstop perfile_attrs} {
9746 }
9753 -font optionfont
9757 -font optionfont
9795 -padx 10
9797 -command choose_extdiff
9824 "diff hunk header" \
9846 }
9848 proc choose_extdiff {} {
9849 global extdifftool
9851 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9854 }
9855 }
9857 proc choosecolor {v vi w x cmd} {
9866 }
9868 proc setselbg {c} {
9869 global bglist cflist
9872 }
9876 }
9878 proc setbg {c} {
9879 global bglist
9883 }
9884 }
9886 proc setfg {c} {
9887 global fglist canv
9891 }
9894 }
9896 proc prefscan {} {
9897 global oldprefs prefstop
9899 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9900 limitdiffs tabstop perfile_attrs} {
9903 }
9905 unset prefstop
9906 fontcan
9907 }
9909 proc prefsok {} {
9910 global maxwidth maxgraphpct
9911 global oldprefs prefstop showneartags showlocalchanges
9912 global fontpref mainfont textfont uifont
9913 global limitdiffs treediffs perfile_attrs
9916 unset prefstop
9917 fontcan
9918 set fontchanged 0
9922 eval font configure mainfont [fontflags mainfont]
9923 eval font configure mainfontbold [fontflags mainfont 1]
9924 setcoords
9925 set fontchanged 1
9926 }
9930 eval font configure textfont [fontflags textfont]
9931 eval font configure textfontbold [fontflags textfont 1]
9932 }
9936 eval font configure uifont [fontflags uifont]
9937 }
9938 settabs
9941 doshowlocalchanges
9942 } else {
9943 dohidelocalchanges
9944 }
9945 }
9948 # treediffs elements are limited by path;
9949 # won't have encodings cached if perfile_attrs was just turned on
9950 catch {unset treediffs}
9951 }
9954 redisplay
9957 reselectline
9958 }
9959 }
9961 proc formatdate {d} {
9962 global datetimeformat
9965 }
9967 }
9969 # This list of encoding names and aliases is distilled from
9970 # http://www.iana.org/assignments/character-sets.
9971 # Not all of them are supported by Tcl.
9972 set encoding_aliases {
9973 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9974 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9975 { ISO-10646-UTF-1 csISO10646UTF1 }
9976 { ISO_646.basic:1983 ref csISO646basic1983 }
9977 { INVARIANT csINVARIANT }
9978 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9979 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9980 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9981 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9982 { NATS-DANO iso-ir-9-1 csNATSDANO }
9983 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9984 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9985 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9986 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9987 { ISO-2022-KR csISO2022KR }
9988 { EUC-KR csEUCKR }
9989 { ISO-2022-JP csISO2022JP }
9990 { ISO-2022-JP-2 csISO2022JP2 }
9991 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9992 csISO13JISC6220jp }
9993 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9994 { IT iso-ir-15 ISO646-IT csISO15Italian }
9995 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9996 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9997 { greek7-old iso-ir-18 csISO18Greek7Old }
9998 { latin-greek iso-ir-19 csISO19LatinGreek }
9999 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10000 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10001 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10002 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10003 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10004 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10005 { INIS iso-ir-49 csISO49INIS }
10006 { INIS-8 iso-ir-50 csISO50INIS8 }
10007 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10008 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10009 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10010 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10011 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10012 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10013 csISO60Norwegian1 }
10014 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10015 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10016 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10017 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10018 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10019 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10020 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10021 { greek7 iso-ir-88 csISO88Greek7 }
10022 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10023 { iso-ir-90 csISO90 }
10024 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10025 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10026 csISO92JISC62991984b }
10027 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10028 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10029 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10030 csISO95JIS62291984handadd }
10031 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10032 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10033 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10034 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10035 CP819 csISOLatin1 }
10036 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10037 { T.61-7bit iso-ir-102 csISO102T617bit }
10038 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10039 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10040 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10041 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10042 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10043 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10044 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10045 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10046 arabic csISOLatinArabic }
10047 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10048 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10049 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10050 greek greek8 csISOLatinGreek }
10051 { T.101-G2 iso-ir-128 csISO128T101G2 }
10052 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10053 csISOLatinHebrew }
10054 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10055 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10056 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10057 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10058 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10059 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10060 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10061 csISOLatinCyrillic }
10062 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10063 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10064 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10065 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10066 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10067 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10068 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10069 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10070 { ISO_10367-box iso-ir-155 csISO10367Box }
10071 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10072 { latin-lap lap iso-ir-158 csISO158Lap }
10073 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10074 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10075 { us-dk csUSDK }
10076 { dk-us csDKUS }
10077 { JIS_X0201 X0201 csHalfWidthKatakana }
10078 { KSC5636 ISO646-KR csKSC5636 }
10079 { ISO-10646-UCS-2 csUnicode }
10080 { ISO-10646-UCS-4 csUCS4 }
10081 { DEC-MCS dec csDECMCS }
10082 { hp-roman8 roman8 r8 csHPRoman8 }
10083 { macintosh mac csMacintosh }
10084 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10085 csIBM037 }
10086 { IBM038 EBCDIC-INT cp038 csIBM038 }
10087 { IBM273 CP273 csIBM273 }
10088 { IBM274 EBCDIC-BE CP274 csIBM274 }
10089 { IBM275 EBCDIC-BR cp275 csIBM275 }
10090 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10091 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10092 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10093 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10094 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10095 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10096 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10097 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10098 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10099 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10100 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10101 { IBM437 cp437 437 csPC8CodePage437 }
10102 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10103 { IBM775 cp775 csPC775Baltic }
10104 { IBM850 cp850 850 csPC850Multilingual }
10105 { IBM851 cp851 851 csIBM851 }
10106 { IBM852 cp852 852 csPCp852 }
10107 { IBM855 cp855 855 csIBM855 }
10108 { IBM857 cp857 857 csIBM857 }
10109 { IBM860 cp860 860 csIBM860 }
10110 { IBM861 cp861 861 cp-is csIBM861 }
10111 { IBM862 cp862 862 csPC862LatinHebrew }
10112 { IBM863 cp863 863 csIBM863 }
10113 { IBM864 cp864 csIBM864 }
10114 { IBM865 cp865 865 csIBM865 }
10115 { IBM866 cp866 866 csIBM866 }
10116 { IBM868 CP868 cp-ar csIBM868 }
10117 { IBM869 cp869 869 cp-gr csIBM869 }
10118 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10119 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10120 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10121 { IBM891 cp891 csIBM891 }
10122 { IBM903 cp903 csIBM903 }
10123 { IBM904 cp904 904 csIBBM904 }
10124 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10125 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10126 { IBM1026 CP1026 csIBM1026 }
10127 { EBCDIC-AT-DE csIBMEBCDICATDE }
10128 { EBCDIC-AT-DE-A csEBCDICATDEA }
10129 { EBCDIC-CA-FR csEBCDICCAFR }
10130 { EBCDIC-DK-NO csEBCDICDKNO }
10131 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10132 { EBCDIC-FI-SE csEBCDICFISE }
10133 { EBCDIC-FI-SE-A csEBCDICFISEA }
10134 { EBCDIC-FR csEBCDICFR }
10135 { EBCDIC-IT csEBCDICIT }
10136 { EBCDIC-PT csEBCDICPT }
10137 { EBCDIC-ES csEBCDICES }
10138 { EBCDIC-ES-A csEBCDICESA }
10139 { EBCDIC-ES-S csEBCDICESS }
10140 { EBCDIC-UK csEBCDICUK }
10141 { EBCDIC-US csEBCDICUS }
10142 { UNKNOWN-8BIT csUnknown8BiT }
10143 { MNEMONIC csMnemonic }
10144 { MNEM csMnem }
10145 { VISCII csVISCII }
10146 { VIQR csVIQR }
10147 { KOI8-R csKOI8R }
10148 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10149 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10150 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10151 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10152 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10153 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10154 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10155 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10156 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10157 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10158 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10159 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10160 { IBM1047 IBM-1047 }
10161 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10162 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10163 { UNICODE-1-1 csUnicode11 }
10164 { CESU-8 csCESU-8 }
10165 { BOCU-1 csBOCU-1 }
10166 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10167 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10168 l8 }
10169 { ISO-8859-15 ISO_8859-15 Latin-9 }
10170 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10171 { GBK CP936 MS936 windows-936 }
10172 { JIS_Encoding csJISEncoding }
10173 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10174 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10175 EUC-JP }
10176 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10177 { ISO-10646-UCS-Basic csUnicodeASCII }
10178 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10179 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10180 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10181 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10182 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10183 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10184 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10185 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10186 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10187 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10188 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10189 { Ventura-US csVenturaUS }
10190 { Ventura-International csVenturaInternational }
10191 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10192 { PC8-Turkish csPC8Turkish }
10193 { IBM-Symbols csIBMSymbols }
10194 { IBM-Thai csIBMThai }
10195 { HP-Legal csHPLegal }
10196 { HP-Pi-font csHPPiFont }
10197 { HP-Math8 csHPMath8 }
10198 { Adobe-Symbol-Encoding csHPPSMath }
10199 { HP-DeskTop csHPDesktop }
10200 { Ventura-Math csVenturaMath }
10201 { Microsoft-Publishing csMicrosoftPublishing }
10202 { Windows-31J csWindows31J }
10203 { GB2312 csGB2312 }
10204 { Big5 csBig5 }
10205 }
10207 proc tcl_encoding {enc} {
10208 global encoding_aliases tcl_encoding_cache
10211 }
10212 set names [encoding names]
10217 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10220 }
10221 }
10226 # look through the aliases for one that tcl knows about
10232 }
10233 }
10235 }
10236 break
10237 }
10238 }
10239 set tclenc {}
10242 }
10245 }
10247 proc gitattr {path attr default} {
10248 global path_attr_cache
10251 } else {
10252 set r "unspecified"
10255 }
10257 }
10260 }
10262 }
10264 proc cache_gitattr {attr pathlist} {
10265 global path_attr_cache
10266 set newlist {}
10270 }
10271 }
10272 set lim 1000
10273 if {[tk windowingsystem] == "win32"} {
10274 # windows has a 32k limit on the arguments to a command...
10275 set lim 30
10276 }
10285 }
10287 }
10288 }
10289 }
10290 }
10291 }
10293 proc get_path_encoding {path} {
10294 global gui_encoding perfile_attrs
10300 }
10301 }
10303 }
10305 # First check that Tcl/Tk is recent enough
10306 if {[catch {package require Tk 8.4} err]} {
10307 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10308 Gitk requires at least Tcl/Tk 8.4."]
10309 exit 1
10310 }
10312 # defaults...
10313 set wrcomcmd "git diff-tree --stdin -p --pretty"
10315 set gitencoding {}
10316 catch {
10317 set gitencoding [exec git config --get i18n.commitencoding]
10318 }
10320 set gitencoding "utf-8"
10321 }
10325 }
10327 set gui_encoding [encoding system]
10328 catch {
10329 set enc [exec git config --get gui.encoding]
10334 } else {
10336 }
10337 }
10338 }
10340 set mainfont {Helvetica 9}
10341 set textfont {Courier 9}
10342 set uifont {Helvetica 9 bold}
10343 set tabstop 8
10344 set findmergefiles 0
10345 set maxgraphpct 50
10346 set maxwidth 16
10347 set revlistorder 0
10348 set fastdate 0
10349 set uparrowlen 5
10350 set downarrowlen 5
10351 set mingaplen 100
10352 set cmitmode "patch"
10353 set wrapcomment "none"
10354 set showneartags 1
10355 set maxrefs 20
10356 set maxlinelen 200
10357 set showlocalchanges 1
10358 set limitdiffs 1
10359 set datetimeformat "%Y-%m-%d %H:%M:%S"
10360 set autoselect 1
10361 set perfile_attrs 0
10363 set extdifftool "meld"
10365 set colors {green red blue magenta darkgrey brown orange}
10366 set bgcolor white
10367 set fgcolor black
10368 set diffcolors {red "#00a000" blue}
10369 set diffcontext 3
10370 set ignorespace 0
10371 set selectbgcolor gray85
10373 set circlecolors {white blue gray blue blue}
10375 # button for popping up context menus
10376 if {[tk windowingsystem] eq "aqua"} {
10377 set ctxbut <Button-2>
10378 } else {
10379 set ctxbut <Button-3>
10380 }
10382 ## For msgcat loading, first locate the installation location.
10383 if { [info exists ::env(GITK_MSGSDIR)] } {
10384 ## Msgsdir was manually set in the environment.
10385 set gitk_msgsdir $::env(GITK_MSGSDIR)
10386 } else {
10387 ## Let's guess the prefix from argv0.
10391 unset gitk_prefix
10392 }
10394 ## Internationalization (i18n) through msgcat and gettext. See
10395 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10396 package require msgcat
10397 namespace import ::msgcat::mc
10398 ## And eventually load the actual message catalog
10401 catch {source ~/.gitk}
10403 font create optionfont -family sans-serif -size -12
10406 eval font create mainfont [fontflags mainfont]
10407 eval font create mainfontbold [fontflags mainfont 1]
10410 eval font create textfont [fontflags textfont]
10411 eval font create textfontbold [fontflags textfont 1]
10414 eval font create uifont [fontflags uifont]
10416 setoptions
10418 # check that we can find a .git directory somewhere...
10419 if {[catch {set gitdir [gitdir]}]} {
10420 show_error {} . [mc "Cannot find a git repository here."]
10421 exit 1
10422 }
10425 exit 1
10426 }
10428 set selecthead {}
10429 set selectheadid {}
10431 set revtreeargs {}
10432 set cmdline_files {}
10433 set i 0
10434 set revtreeargscmd {}
10437 "" { }
10438 "--" {
10440 break
10441 }
10442 "--select-commit=*" {
10444 }
10445 "--argscmd=*" {
10447 }
10448 default {
10450 }
10451 }
10452 incr i
10453 }
10456 set selecthead {}
10457 }
10460 # no -- on command line, but some arguments (other than --argscmd)
10461 if {[catch {
10466 # Unfortunately git rev-parse doesn't produce an error when
10467 # something is both a revision and a filename. To be consistent
10468 # with git log and git rev-list, check revtreeargs for filenames.
10471 show_error {} . [mc "Ambiguous argument '%s': both revision\
10473 exit 1
10474 }
10475 }
10476 } err]} {
10478 # so look for "fatal:".
10482 }
10484 exit 1
10485 }
10486 }
10488 set nullid "0000000000000000000000000000000000000000"
10489 set nullid2 "0000000000000000000000000000000000000001"
10490 set nullfile "/dev/null"
10494 set runq {}
10495 set history {}
10496 set historyindex 0
10497 set fh_serial 0
10498 set nhl_names {}
10499 set highlight_paths {}
10500 set findpattern {}
10501 set searchdirn -forwards
10502 set boldrows {}
10503 set boldnamerows {}
10504 set diffelide {0 0}
10505 set markingmatches 0
10506 set linkentercount 0
10507 set need_redisplay 0
10508 set nrows_drawn 0
10509 set firsttabstop 0
10511 set nextviewnum 1
10512 set curview 0
10513 set selectedview 0
10514 set selectedhlview [mc "None"]
10515 set highlight_related [mc "None"]
10516 set highlight_files {}
10517 set viewfiles(0) {}
10518 set viewperm(0) 0
10519 set viewargs(0) {}
10520 set viewargscmd(0) {}
10522 set selectedline {}
10523 set numcommits 0
10524 set loginstance 0
10525 set cmdlineok 0
10526 set stopped 0
10527 set stuffsaved 0
10528 set patchnum 0
10529 set lserial 0
10530 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10531 setcoords
10532 makewindow
10533 # wait for the window to become visible
10534 tkwait visibility .
10536 readrefs
10539 # create a view for the files/dirs specified on the command line
10540 set curview 1
10541 set selectedview 1
10542 set nextviewnum 2
10543 set viewname(1) [mc "Command line"]
10547 set viewperm(1) 0
10548 set vdatemode(1) 0
10549 addviewmenu 1
10550 .bar.view entryconf [mca "Edit view..."] -state normal
10551 .bar.view entryconf [mca "Delete view"] -state normal
10552 }
10554 if {[info exists permviews]} {
10557 incr nextviewnum
10564 }
10565 }
10566 getcommits {}