| blob | a1d176d64359f1c4a3557d90abbca7c6ca553759 |
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
30 after idle dorunq
31 }
34 }
38 }
41 global runq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq
76 # script returns 1 if it wants to be readded
77 # file readers return 2 if they could do more straight away
81 }
84 }
87 }
89 after idle dorunq
90 }
91 }
94 global nr_unmerged
96 # find the list of unmerged files
103 exit 1
104 }
110 incr nr_unmerged
113 }
114 }
117 }
119 proc parseviewargs {n arglist} {
120 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
124 set glflags {}
125 set diffargs {}
126 set nextisval 0
127 set revargs {}
129 set allknown 1
130 set filtered 0
131 set i -1
133 incr i
136 set nextisval 0
137 continue
138 }
140 "-d" -
141 "--date-order" {
143 # remove from origargs in case we hit an unknown option
145 incr i -1
146 }
147 # These request or affect diff output, which we don't want.
148 # Some could be used to set our defaults for diff display.
155 lappend diffargs $arg
156 }
157 # These cause our parsing of git log's output to fail, or else
158 # they're options we want to set ourselves, so ignore them.
166 }
167 # These are harmless, and some are even useful
172 lappend glflags $arg
173 }
174 # These mean that we get a subset of the commits
182 lappend glflags $arg
183 }
184 # This appears to be the only one that has a value as a
185 # separate word following it
189 lappend glflags $arg
190 }
193 lappend revargs $arg
194 }
196 lappend revargs $arg
197 }
200 # git rev-parse doesn't understand --merge
201 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
202 }
203 # Other flag arguments including -<n>
208 # a flag argument that we don't recognize;
209 # that means we can't optimize
211 }
212 lappend glflags $arg
213 }
214 # Non-flag arguments specify commits or ranges of commits
215 default {
217 lappend revargs --gitk-symmetric-diff-marker
218 }
219 lappend revargs $arg
220 }
221 }
222 }
229 }
232 global vposids vnegids
235 set revs HEAD
236 }
238 # we get stdout followed by stderr in $err
239 # for an unknown rev, git rev-parse echoes it and then errors out
252 }
255 }
256 break
257 }
258 lappend badrev $line
259 }
260 }
263 }
273 lappend ret $id
276 }
277 }
281 lappend ret $id
284 }
285 lappend pos $id
286 }
287 incr sdm -1
288 }
292 }
294 # Start off a git log process and arrange to read its output
296 global startmsecs commitidx viewcomplete curview
297 global commfd leftover tclencoding
298 global viewargs viewargscmd viewfiles vfilelimit
299 global showlocalchanges commitinterest
300 global viewactive loginstance viewinstances vmergeonly
301 global pending_select mainheadid
302 global vcanopt vflags vrevs vorigargs
306 # these are set this way for the error exits
309 varcinit $view
318 }
320 }
327 global nr_unmerged
334 }
336 }
337 }
344 }
348 }
356 }
363 }
367 }
372 }
376 }
379 global commfd viewinstances leftover
383 catch {
386 }
388 nukefile $fd
391 }
393 }
395 proc getcommits {} {
396 global canv curview need_redisplay viewactive
398 initlayout
404 }
405 }
407 proc updatecommits {} {
408 global curview vcanopt vorigargs vfilelimit viewinstances
409 global viewactive viewcomplete loginstance tclencoding
410 global startmsecs commfd showneartags showlocalchanges leftover
411 global mainheadid pending_select
412 global isworktree
413 global varcid vposids vnegids vflags vrevs
417 rereadrefs
420 dohidelocalchanges
421 }
423 dodiffindex
424 }
425 }
432 return
433 }
434 # note: getting the delta when negative refs change is hard,
435 # and could require multiple git log invocations, so in that
436 # case we ask git log for all the commits (not just the delta)
440 # take out positive refs that we asked for before or
441 # that we have already seen
446 lappend newrevs $rev
447 incr npos
448 }
450 lappend $newrevs $rev
451 }
452 }
456 }
460 }
466 return
467 }
470 }
478 }
485 getallcommits
486 }
487 }
489 proc reloadcommits {} {
490 global curview viewcomplete selectedline currentid thickerline
491 global showneartags treediffs commitinterest cached_commitrow
492 global targetid
495 stop_rev_list $curview
496 }
497 resetvarcs $curview
502 readrefs
503 changedrefs
505 getallcommits
506 }
507 clear_display
511 setcanvscroll
512 getcommits
514 }
516 # This makes a string representation of a positive integer which
517 # sorts as a string in numerical order
525 }
527 }
529 # Procedures used in reordering commits from git log (without
530 # --topo-order) into the order for display.
533 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
534 global vtokmod varcmod vrowmod varcix vlastins
548 }
551 global varcid varccommits parents children vseedcount ordertok
557 }
558 # some commits might have children but haven't been seen yet
561 }
564 }
567 }
569 }
571 # returns a list of the commits with no children
573 global vdownptr vleftptr varcstart
580 }
582 }
585 global varcid varctok parents children vdatemode
586 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
587 global commitdata commitinfo vseedcount varccommits vlastins
594 }
598 }
601 }
607 }
616 }
617 }
622 }
629 }
633 }
640 }
646 }
655 }
658 global varcid varcstart varccommits varctok
659 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
666 # "%" sorts before "0"...
676 }
686 }
687 }
690 global parents children varctok varcstart varccommits
691 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
700 lappend todo $a
705 }
706 }
707 }
708 incr ntot
715 }
716 }
718 }
725 }
731 }
740 }
741 }
746 }
748 continue
749 }
756 }
757 }
762 modify_arc $v $ka
763 }
765 modify_arc $v $b
766 }
773 }
776 }
779 }
788 }
793 }
800 }
804 }
806 }
807 }
812 }
813 }
815 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
816 }
818 # Fix up the graph after we have found out that in view $v,
819 # $p (a commit that we have already seen) is actually the parent
820 # of the last commit in arc $a.
822 global varcid varcstart varctok vupptr
826 splitvarc $p $v
828 }
829 # seeds always need to be renumbered
833 renumbervarc $pa $v
834 }
835 }
838 global cmitlisted children parents varcid varctok vtokmod
839 global varccommits ordertok commitidx numcommits curview
840 global targetid targetrow
842 readcommit $id
850 modify_arc $v $a
851 }
857 }
858 fix_reversal $p $a $v
862 setcanvscroll
865 incr targetrow
866 }
867 }
868 }
869 }
872 global varcid varccommits parents children cmitlisted
873 global commitidx varctok vtokmod targetid targetrow curview numcommits
880 return
881 }
888 # note we deliberately don't update varcstart($v) even if $i == 0
890 modify_arc $v $a $i
893 incr targetrow
894 }
895 }
896 setcanvscroll
897 drawvisible
898 }
901 global varcid varccommits parents children commitidx
902 global varctok vtokmod cmitlisted currentid selectedline
903 global targetid curview numcommits
908 return
909 }
915 return
916 }
926 }
927 modify_arc $v $a $i
929 unset currentid
931 }
934 }
935 setcanvscroll
936 drawvisible
937 }
940 global children nullid nullid2
945 }
946 }
948 }
951 global children nullid nullid2
958 }
959 }
961 }
964 global varctok varcid
968 }
970 # This assumes that if lim is not given, the caller has checked that
971 # arc a's token is less than $vtokmod($v)
973 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
981 }
982 }
989 }
994 }
996 }
998 undolayout $r
999 }
1000 }
1003 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1004 global varcid vrownum varcorder varcix varccommits
1005 global vupptr vdownptr vleftptr varctok
1006 global displayorder parentlist curview cached_commitrow
1013 }
1015 }
1019 # go up the tree until we find something that has a row number,
1020 # or we get to a seed
1022 }
1037 }
1039 }
1043 # go down if possible
1046 # if not, go left, or go up until we can go left
1051 }
1053 }
1055 incr arcn
1060 }
1066 }
1067 }
1069 # Test whether view $v contains commit $id
1071 global varcid
1074 }
1076 # Return the row number for commit $id in the current view
1078 global varcid varccommits varcrow curview cached_commitrow
1079 global varctok vtokmod
1085 }
1088 update_arcrows $v
1089 }
1092 }
1097 }
1101 }
1103 # Returns 1 if a is on an earlier row than b, otherwise 0
1105 global varcid varctok curview
1111 }
1115 }
1117 }
1122 }
1134 }
1135 }
1137 }
1139 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1141 global vrownum curview commitidx displayorder parentlist
1142 global varccommits varcorder parents vrowmod varcrow
1143 global d_valid_start d_valid_end
1146 update_arcrows $curview
1147 }
1163 }
1165 lappend displayorder $id
1167 }
1171 lset displayorder $i $id
1173 incr i
1174 }
1175 }
1176 incr r $al
1177 }
1178 }
1181 global displayorder
1187 }
1189 }
1192 global varctok varccommits varcid parents children
1193 global cmitlisted commitidx commitinterest vtokmod
1202 # add p as a new commit
1203 incr missing_parents
1211 }
1214 modify_arc $v $b
1215 }
1221 }
1223 }
1224 }
1225 }
1229 }
1230 }
1231 }
1233 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1234 # Assumes we already have an arc for $rwid.
1236 global children parents varcid varctok vtokmod varccommits
1239 # make $rwid be $ch's parent in place of $id
1243 }
1245 # add $ch to $rwid's children and sort the list if necessary
1249 }
1250 # fix the graph after joining $id to $rwid
1252 fix_reversal $rwid $a $v
1253 # parentlist is wrong for the last element of arc $a
1254 # even if displayorder is right, hence the 3rd arg here
1256 }
1257 }
1260 global cmitlisted commitinterest leftover
1261 global commitidx commitdata vdatemode
1262 global parents children curview hlview
1263 global idpending ordertok
1264 global varccommits varcid varctok vtokmod vfilelimit
1267 # git log doesn't terminate the last commit with a null...
1270 }
1274 }
1275 global commfd viewcomplete viewactive viewname
1276 global viewinstances
1281 }
1282 # set it blocking so we wait for the process to terminate
1288 }
1291 bad arguments to git log."
1293 append err \
1294 " (Note: arguments to gitk are passed to git log\
1295 to allow selection of commits to be displayed.)"
1296 }
1299 }
1300 error_popup $err
1301 }
1304 # Check if we have seen any ids listed as parents that haven't
1305 # appeared in the list
1306 closevarcs $view
1307 notbusy $view
1308 }
1310 run chewcommits
1311 }
1313 }
1321 break
1322 }
1329 }
1342 }
1344 }
1349 break
1350 }
1351 }
1352 }
1357 }
1359 exit 1
1360 }
1367 # when doing path limiting, so work around that here
1368 # by working out the rewritten parent with git rev-list
1369 # and if we already know about it, using the rewritten
1370 # parent as a substitute parent for $id's children.
1374 }]} {
1376 # use $rwid in place of $id
1377 rewrite_commit $view $id $rwid
1378 continue
1379 }
1380 }
1381 }
1387 }
1392 }
1404 }
1405 }
1407 # new arc
1409 }
1411 modify_arc $view $a
1412 }
1417 }
1428 }
1430 fix_reversal $p $a $view
1431 }
1432 }
1433 incr i
1434 }
1439 }
1441 }
1443 }
1445 global numcommits hlview
1449 run chewcommits
1450 }
1452 # we never actually get here...
1453 run vhighlightmore
1454 }
1457 }
1458 }
1460 }
1462 proc chewcommits {} {
1463 global curview hlview viewcomplete
1464 global pending_select
1466 layoutmore
1468 global commitidx varctok
1469 global numcommits startmsecs
1474 }
1476 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1477 #puts "overall $ms ms for $numcommits commits"
1478 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1481 }
1482 notbusy layout
1483 }
1485 }
1490 }
1493 global commitinfo cdate
1504 # should never happen...
1506 }
1517 }
1518 }
1520 # take the first non-blank line of the comment as the headline
1525 }
1530 }
1532 # git log indents the comment by 4 spaces;
1533 # if we got this via git cat-file, add the indentation
1536 append newcomment " "
1537 append newcomment $line
1539 }
1541 }
1544 }
1547 }
1550 global commitdata commitinfo
1555 readcommit $id
1558 }
1559 }
1561 }
1563 proc readrefs {} {
1564 global tagids idtags headids idheads tagobjid
1565 global otherrefids idotherrefs mainhead mainheadid
1569 }
1581 }
1587 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1588 # which is what we want since the former is the commit ID
1594 }
1600 }
1601 }
1605 catch {
1610 }
1611 }
1612 }
1614 # skip over fake commits
1615 proc first_real_row {} {
1616 global nullid nullid2 numcommits
1621 break
1622 }
1623 }
1625 }
1627 # update things for a head moved to a child of its previous location
1629 global headids idheads
1634 }
1636 # update things when a head has been removed
1638 global headids idheads
1646 }
1647 }
1649 }
1658 tkwait window $top
1659 }
1661 proc error_popup msg {
1662 set w .error
1663 toplevel $w
1664 wm transient $w .
1665 show_error $w $w $msg
1666 }
1668 proc confirm_popup msg {
1669 global confirm_ok
1671 set w .confirm
1672 toplevel $w
1673 wm transient $w .
1681 tkwait window $w
1683 }
1685 proc setoptions {} {
1687 option add *Panedwindow.sashRelief raised startupFile
1688 option add *Button.font uifont startupFile
1689 option add *Checkbutton.font uifont startupFile
1690 option add *Radiobutton.font uifont startupFile
1691 option add *Menu.font uifont startupFile
1692 option add *Menubutton.font uifont startupFile
1693 option add *Label.font uifont startupFile
1694 option add *Message.font uifont startupFile
1695 option add *Entry.font uifont startupFile
1696 }
1698 proc makewindow {} {
1699 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1700 global tabstop
1701 global findtype findtypemenu findloc findstring fstring geometry
1702 global entries sha1entry sha1string sha1but
1703 global diffcontextstring diffcontext
1704 global ignorespace
1705 global maincursor textcursor curtextcursor
1706 global rowctxmenu fakerowmenu mergemax wrapcomment
1707 global highlight_files gdttype
1708 global searchstring sstring
1709 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1710 global headctxmenu progresscanv progressitem progresscoords statusw
1711 global fprogitem fprogcoord lastprogupdate progupdatepending
1712 global rprogitem rprogcoord rownumsel numcommits
1713 global have_tk85
1715 menu .bar
1717 menu .bar.file
1723 menu .bar.edit
1727 menu .bar.view
1731 -state disabled
1733 .bar.view add separator
1737 menu .bar.help
1741 .bar.help configure
1742 . configure -menu .bar
1744 # the gui has upper and lower half, parts of a paned window.
1745 panedwindow .ctop -orient vertical
1747 # possibly use assumed geometry
1755 }
1757 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1759 frame .tf.histframe
1762 # create three canvases
1763 set cscroll .tf.histframe.csb
1764 set canv .tf.histframe.pwclist.canv
1765 canvas $canv \
1769 .tf.histframe.pwclist add $canv
1770 set canv2 .tf.histframe.pwclist.canv2
1771 canvas $canv2 \
1774 .tf.histframe.pwclist add $canv2
1775 set canv3 .tf.histframe.pwclist.canv3
1776 canvas $canv3 \
1779 .tf.histframe.pwclist add $canv3
1783 # a scroll bar to rule them
1787 lappend bglist $canv $canv2 $canv3
1790 # we have two button bars at bottom of top frame. Bar 1
1791 frame .tf.bar
1794 set sha1entry .tf.bar.sha1
1796 set sha1but .tf.bar.sha1label
1800 pack .tf.bar.sha1label -side left
1802 trace add variable sha1string write sha1change
1806 #define left_width 16
1807 #define left_height 16
1808 static unsigned char left_bits[] = {
1812 }
1814 #define right_width 16
1815 #define right_height 16
1816 static unsigned char right_bits[] = {
1820 }
1835 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1836 -side left
1837 global selectedline
1838 trace add variable selectedline write selectedline_change
1840 # Status label and progress bar
1841 set statusw .tf.bar.status
1845 set progresscanv .tf.bar.progress
1858 # build up the bottom bar of upper window
1863 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
1870 trace add variable gdttype write gdttype_change
1874 set fstring .tf.lbar.findstring
1875 lappend entries $fstring
1877 trace add variable findstring write find_change
1881 trace add variable findtype write findcom_change
1885 trace add variable findloc write find_change
1886 pack .tf.lbar.findloc -side right
1887 pack .tf.lbar.findtype -side right
1890 # Finish putting the upper half of the viewer together
1894 .ctop add .tf
1898 # now build up the bottom
1899 panedwindow .pwbottom -orient horizontal
1901 # lower left, a text box over search bar, scroll bar to the right
1902 # if we know window height, then that will set the lower text height, otherwise
1903 # we set lower text height which will drive window height
1908 }
1909 frame .bleft.top
1910 frame .bleft.mid
1911 frame .bleft.bottom
1915 set sstring .bleft.top.sstring
1917 lappend entries $sstring
1918 trace add variable searchstring write incrsearch
1931 -textvariable diffcontextstring
1933 trace add variable diffcontextstring write diffcontextchange
1934 lappend entries .bleft.mid.diffcontext
1935 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
1939 set ctext .bleft.bottom.ctext
1946 }
1953 grid .bleft.bottom.sbhorizontal -sticky ew
1958 lappend bglist $ctext
1959 lappend fglist $ctext
1988 .pwbottom add .bleft
1991 # lower right
1992 frame .bright
1993 frame .bright.mode
2000 set cflist .bright.cfiles
2002 text $cflist \
2005 -font mainfont \
2010 lappend bglist $cflist
2011 lappend fglist $cflist
2015 $cflist tag configure highlight \
2019 .pwbottom add .bright
2020 .ctop add .pwbottom
2022 # restore window width & height if known
2027 }
2030 }
2032 }
2033 }
2036 set M1B M1
2038 set M1B Control
2039 }
2044 #bindall <B1-Motion> {selcanvline %W %x %y}
2054 allcanvs yview scroll $delta units
2055 }
2056 }
2057 }
2079 bindkey p "selnextline -1"
2080 bindkey n "selnextline 1"
2081 bindkey z "goback"
2082 bindkey x "goforw"
2083 bindkey i "selnextline -1"
2084 bindkey k "selnextline 1"
2085 bindkey j "goback"
2086 bindkey l "goforw"
2087 bindkey b prevfile
2093 bindkey f nextfile
2105 wm protocol . WM_DELETE_WINDOW doquit
2115 set maincursor [. cget -cursor]
2119 set rowctxmenu .rowctxmenu
2122 -command {diffvssel 0}
2124 -command {diffvssel 1}
2130 -command cherrypick
2132 -command resethead
2134 set fakerowmenu .fakerowmenu
2137 -command {diffvssel 0}
2139 -command {diffvssel 1}
2145 set headctxmenu .headctxmenu
2148 -command cobranch
2150 -command rmbranch
2152 global flist_menu
2153 set flist_menu .flistctxmenu
2156 -command {flist_hl 0}
2158 -command {flist_hl 1}
2160 -command {external_diff}
2161 }
2163 # Windows sends all mouse wheel events to the current focused window, not
2164 # the one where the mouse hovers, so bind those events here and redirect
2165 # to the correct window
2166 proc windows_mousewheel_redirector {W X Y D} {
2167 global canv canv2 canv3
2173 } else {
2174 catch {
2176 }
2177 }
2178 }
2179 }
2181 # Update row number label when selectedline changes
2182 proc selectedline_change {n1 n2 op} {
2183 global selectedline rownumsel
2186 set rownumsel {}
2187 } else {
2189 }
2190 }
2192 # mouse-2 makes all windows scan vertically, but only the one
2193 # the cursor is in scans horizontally
2194 proc canvscan {op w x y} {
2195 global canv canv2 canv3
2199 } else {
2201 }
2202 }
2203 }
2205 proc scrollcanv {cscroll f0 f1} {
2207 drawvisible
2208 flushhighlights
2209 }
2211 # when we make a key binding for the toplevel, make sure
2212 # it doesn't get triggered when that key is pressed in the
2213 # find string entry widget.
2214 proc bindkey {ev script} {
2215 global entries
2219 set escript [bind Entry <Key>]
2220 }
2223 }
2224 }
2226 # set the focus back to the toplevel for any click outside
2227 # the entry widgets
2228 proc click {w} {
2229 global ctext entries
2232 }
2233 focus .
2234 }
2236 # Adjust the progress bar for a change in requested extent or canvas size
2237 proc adjustprogress {} {
2238 global progresscanv progressitem progresscoords
2239 global fprogitem fprogcoord lastprogupdate progupdatepending
2240 global rprogitem rprogcoord
2249 set now [clock clicks -milliseconds]
2251 set progupdatepending 0
2252 update
2254 set progupdatepending 1
2256 }
2257 }
2259 proc doprogupdate {} {
2260 global lastprogupdate progupdatepending
2263 set progupdatepending 0
2264 set lastprogupdate [clock clicks -milliseconds]
2265 update
2266 }
2267 }
2269 proc savestuff {w} {
2270 global canv canv2 canv3 mainfont textfont uifont tabstop
2271 global stuffsaved findmergefiles maxgraphpct
2272 global maxwidth showneartags showlocalchanges
2273 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2274 global cmitmode wrapcomment datetimeformat limitdiffs
2275 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2276 global autoselect extdifftool
2279 if {![winfo viewable .]} return
2280 catch {
2281 set f [open "~/.gitk-new" w]
2316 }
2317 }
2320 catch {file delete "~/.gitk"}
2321 file rename -force "~/.gitk-new" "~/.gitk"
2322 }
2323 set stuffsaved 1
2324 }
2326 proc resizeclistpanes {win w} {
2327 global oldwidth
2334 } else {
2339 set sash0 30
2340 }
2343 }
2348 }
2349 }
2350 }
2353 }
2355 }
2357 proc resizecdetpanes {win w} {
2358 global oldwidth
2363 } else {
2367 set sash0 45
2368 }
2371 }
2372 }
2374 }
2376 }
2378 proc allcanvs args {
2379 global canv canv2 canv3
2383 }
2385 proc bindall {event action} {
2386 global canv canv2 canv3
2390 }
2392 proc about {} {
2393 global uifont
2394 set w .about
2397 return
2398 }
2402 Gitk - a commit viewer for git
2404 Copyright © 2005-2008 Paul Mackerras
2406 Use and redistribute under the terms of the GNU General Public License"] \
2407 -justify center -aspect 400 -border 2 -bg white -relief groove
2414 }
2416 proc keys {} {
2417 set w .keys
2420 return
2421 }
2422 if {[tk windowingsystem] eq {aqua}} {
2423 set M1T Cmd
2424 } else {
2425 set M1T Ctrl
2426 }
2430 [mc "Gitk key bindings:"]
2433 [mc "<Home> Move to first commit"]
2434 [mc "<End> Move to last commit"]
2435 [mc "<Up>, p, i Move up one commit"]
2436 [mc "<Down>, n, k Move down one commit"]
2437 [mc "<Left>, z, j Go back in history list"]
2438 [mc "<Right>, x, l Go forward in history list"]
2439 [mc "<PageUp> Move up one page in commit list"]
2440 [mc "<PageDown> Move down one page in commit list"]
2447 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2448 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2449 [mc "<Delete>, b Scroll diff view up one page"]
2450 [mc "<Backspace> Scroll diff view up one page"]
2451 [mc "<Space> Scroll diff view down one page"]
2452 [mc "u Scroll diff view up 18 lines"]
2453 [mc "d Scroll diff view down 18 lines"]
2456 [mc "<Return> Move to next find hit"]
2457 [mc "/ Move to next find hit, or redo find"]
2458 [mc "? Move to previous find hit"]
2459 [mc "f Scroll diff view to next file"]
2466 [mc "<F5> Update"]
2467 " \
2468 -justify left -bg white -border 2 -relief groove
2475 }
2477 # Procedures for manipulating the file list window at the
2478 # bottom right of the overall window.
2480 proc treeview {w l openlevs} {
2481 global treecontents treediropen treeheight treeparent treeindex
2483 set ix 0
2484 set treeindex() 0
2485 set lev 0
2486 set prefix {}
2487 set prefixend -1
2488 set prefendstack {}
2489 set htstack {}
2490 set ht 0
2491 set treecontents() {}
2498 }
2505 incr lev -1
2506 }
2510 set ht 0
2522 set ht 1
2527 set str "\n"
2535 }
2536 incr lev
2537 }
2540 incr ht
2541 set str "\n"
2545 }
2547 }
2548 }
2556 }
2558 }
2560 proc linetoelt {l} {
2561 global treeheight treecontents
2563 set y 2
2564 set prefix {}
2565 while {1} {
2569 }
2570 set n 1
2575 incr y
2576 break
2577 }
2578 }
2580 }
2581 }
2582 }
2584 proc highlight_tree {y prefix} {
2585 global treeheight treecontents cflist
2591 }
2592 incr y
2595 }
2596 }
2598 }
2600 proc treeclosedir {w dir} {
2601 global treediropen treeheight treeparent treeindex
2613 }
2614 }
2616 proc treeopendir {w dir} {
2617 global treediropen treeheight treeparent treecontents treeindex
2624 set lev 0
2625 set str "\n"
2628 incr lev
2629 append str "\t"
2631 }
2646 } else {
2649 }
2650 }
2663 }
2665 }
2666 }
2668 proc treeclick {w x y} {
2669 global treediropen cmitmode ctext cflist cflist_top
2672 if {![info exists cflist_top]} return
2679 return
2680 }
2686 } else {
2688 }
2689 }
2691 proc setfilelist {id} {
2692 global treefilelist cflist
2695 }
2697 image create bitmap tri-rt -background black -foreground blue -data {
2698 #define tri-rt_width 13
2699 #define tri-rt_height 13
2700 static unsigned char tri-rt_bits[] = {
2701 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2702 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2703 0x00, 0x00};
2704 } -maskdata {
2705 #define tri-rt-mask_width 13
2706 #define tri-rt-mask_height 13
2707 static unsigned char tri-rt-mask_bits[] = {
2708 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2709 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2710 0x08, 0x00};
2711 }
2712 image create bitmap tri-dn -background black -foreground blue -data {
2713 #define tri-dn_width 13
2714 #define tri-dn_height 13
2715 static unsigned char tri-dn_bits[] = {
2716 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2717 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2718 0x00, 0x00};
2719 } -maskdata {
2720 #define tri-dn-mask_width 13
2721 #define tri-dn-mask_height 13
2722 static unsigned char tri-dn-mask_bits[] = {
2723 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2724 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2725 0x00, 0x00};
2726 }
2728 image create bitmap reficon-T -background black -foreground yellow -data {
2729 #define tagicon_width 13
2730 #define tagicon_height 9
2731 static unsigned char tagicon_bits[] = {
2732 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2733 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2734 } -maskdata {
2735 #define tagicon-mask_width 13
2736 #define tagicon-mask_height 9
2737 static unsigned char tagicon-mask_bits[] = {
2738 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2739 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2740 }
2741 set rectdata {
2742 #define headicon_width 13
2743 #define headicon_height 9
2744 static unsigned char headicon_bits[] = {
2745 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2746 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2747 }
2748 set rectmask {
2749 #define headicon-mask_width 13
2750 #define headicon-mask_height 9
2751 static unsigned char headicon-mask_bits[] = {
2752 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2753 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2754 }
2755 image create bitmap reficon-H -background black -foreground green \
2757 image create bitmap reficon-o -background black -foreground "#ddddff" \
2760 proc init_flist {first} {
2761 global cflist cflist_top difffilestart
2767 set cflist_top 1
2769 } else {
2770 catch {unset cflist_top}
2771 }
2773 set difffilestart {}
2774 }
2776 proc highlight_tag {f} {
2777 global highlight_paths
2781 return "bold"
2782 }
2783 }
2784 return {}
2785 }
2787 proc highlight_filelist {} {
2788 global cmitmode cflist
2797 }
2798 }
2799 } else {
2800 highlight_tree 2 {}
2801 }
2803 }
2805 proc unhighlight_filelist {} {
2806 global cflist
2811 }
2813 proc add_flist {fl} {
2814 global cflist
2820 }
2822 }
2824 proc sel_flist {w x y} {
2825 global ctext difffilestart cflist cflist_top cmitmode
2828 if {![info exists cflist_top]} return
2835 } else {
2837 }
2838 }
2840 proc pop_flist_menu {w X Y x y} {
2841 global ctext cflist cmitmode flist_menu flist_menu_file
2842 global treediffs diffids
2844 stopfinding
2850 } else {
2852 }
2854 set xdiffstate "normal"
2856 set xdiffstate "disabled"
2857 }
2858 # Disable "External diff" item in tree mode
2861 }
2863 proc flist_hl {only} {
2864 global flist_menu_file findstring gdttype
2869 } else {
2871 }
2872 set gdttype [mc "touching paths:"]
2873 }
2875 proc save_file_from_commit {filename output what} {
2876 global nullfile
2881 }
2883 return {}
2884 }
2886 }
2888 proc external_diff_get_one_file {diffid filename diffdir} {
2889 global nullid nullid2 nullfile
2890 global gitdir
2896 }
2898 }
2902 }
2906 }
2908 proc external_diff {} {
2909 global gitktmpdir nullid nullid2
2910 global flist_menu_file
2911 global diffids
2912 global diffnum
2913 global gitdir extdifftool
2916 # no reference commit given
2919 # diffing working copy with index
2922 # diffing index with HEAD
2923 set diffidfrom "HEAD"
2924 } else {
2925 # use first parent commit
2926 global parentlist selectedline
2928 }
2929 } else {
2932 }
2934 # make sure that several diffs wont collide
2935 if {![info exists gitktmpdir]} {
2937 [format ".gitk-tmp.%s" [pid]]]
2940 unset gitktmpdir
2941 return
2942 }
2943 set diffnum 0
2944 }
2945 incr diffnum
2949 return
2950 }
2952 # gather files to diff
2962 } else {
2965 }
2966 }
2967 }
2970 proc delete_at_eof {f dir} {
2975 }
2977 return 0
2978 }
2979 return 1
2980 }
2982 # Functions for adding and removing shell-type quoting
2984 proc shellquote {str} {
2987 }
2990 }
2993 }
2995 }
2997 proc shellarglist {l} {
2998 set str {}
3001 append str " "
3002 }
3004 }
3006 }
3008 proc shelldequote {str} {
3009 set ret {}
3010 set used -1
3011 while {1} {
3012 incr used
3016 break
3017 }
3023 }
3025 incr used
3029 error "unmatched single-quote"
3030 }
3033 continue
3034 }
3037 error "trailing backslash"
3038 }
3040 continue
3041 }
3042 # here ch == "\""
3043 while {1} {
3045 error "unmatched double-quote"
3046 }
3052 }
3054 incr used
3056 incr used
3057 }
3058 }
3060 }
3062 proc shellsplit {str} {
3063 set l {}
3064 while {1} {
3072 }
3074 }
3076 # Code to implement multiple views
3078 proc newview {ishighlight} {
3079 global nextviewnum newviewname newviewperm newishighlight
3080 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3083 set top .gitkview
3086 return
3087 }
3093 }
3095 proc editview {} {
3096 global curview
3097 global viewname viewperm newviewname newviewperm
3098 global viewargs newviewargs viewargscmd newviewargscmd
3103 return
3104 }
3110 }
3112 proc vieweditor {top n title} {
3113 global newviewname newviewperm viewfiles bgcolor
3124 -text [mc "Commits to include (arguments to git log):"]
3131 -text [mc "Command to generate more commits to include:"]
3134 -background white
3138 -text [mc "Enter files and directories to include, one per line:"]
3145 }
3148 }
3158 }
3160 proc doviewmenu {m first cmd op argv} {
3165 break
3166 }
3167 }
3168 }
3170 proc allviewmenus {n op args} {
3171 # global viewhlmenu
3175 }
3177 proc newviewok {top n} {
3178 global nextviewnum newviewperm newviewname newishighlight
3179 global viewname viewfiles viewperm selectedview curview
3180 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3182 if {[catch {
3184 } err]} {
3188 return
3189 }
3190 set files {}
3195 }
3196 }
3198 # creating a new view
3199 incr nextviewnum
3208 } else {
3210 }
3211 } else {
3212 # editing an existing view
3220 }
3227 run reloadcommits
3228 }
3229 }
3230 }
3232 }
3234 proc delview {} {
3235 global curview viewperm hlview selectedhlview
3239 set selectedhlview [mc "None"]
3240 unset hlview
3241 }
3244 showview 0
3245 }
3247 proc addviewmenu {n} {
3248 global viewname viewhlmenu
3254 }
3256 proc showview {n} {
3257 global curview cached_commitrow ordertok
3258 global displayorder parentlist rowidlist rowisopt rowfinal
3259 global colormap rowtextx nextcolor canvxmax
3260 global numcommits viewcomplete
3261 global selectedline currentid canv canvy0
3262 global treediffs
3263 global pending_select mainheadid
3264 global commitidx
3265 global selectedview
3266 global hlview selectedhlview commitinterest
3269 set selid {}
3280 }
3281 } elseif {[info exists pending_select]} {
3283 unset pending_select
3284 }
3285 unselectline
3286 normalline
3287 catch {unset treediffs}
3288 clear_display
3290 unset hlview
3291 set selectedhlview [mc "None"]
3292 }
3293 catch {unset commitinterest}
3294 catch {unset cached_commitrow}
3295 catch {unset ordertok}
3302 run refill_reflist
3306 }
3307 getcommits
3308 return
3309 }
3311 set displayorder {}
3312 set parentlist {}
3313 set rowidlist {}
3314 set rowisopt {}
3315 set rowfinal {}
3318 catch {unset colormap}
3319 catch {unset rowtextx}
3320 set nextcolor 0
3323 set row 0
3324 setcanvscroll
3325 set yf 0
3326 set row {}
3329 # try to get the selected row in the same position on the screen
3333 set ytop 0
3334 }
3336 }
3338 drawvisible
3346 } else {
3348 }
3349 } else {
3350 set row [first_real_row]
3353 }
3354 }
3357 show_status [mc "Reading commits..."]
3358 }
3360 show_status [mc "No commits selected"]
3361 }
3362 }
3364 # Stuff relating to the highlighting facility
3366 proc ishighlighted {id} {
3367 global vhighlights fhighlights nhighlights rhighlights
3371 }
3374 }
3377 }
3380 }
3381 return 0
3382 }
3384 proc bolden {row font} {
3385 global canv linehtag selectedline boldrows
3392 -outline {{}} -tags secsel \
3395 }
3396 }
3398 proc bolden_name {row font} {
3399 global canv2 linentag selectedline boldnamerows
3406 -outline {{}} -tags secsel \
3409 }
3410 }
3412 proc unbolden {} {
3413 global boldrows
3415 set stillbold {}
3419 } else {
3421 }
3422 }
3424 }
3426 proc addvhighlight {n} {
3427 global hlview viewcomplete curview vhl_done commitidx
3429 if {[info exists hlview]} {
3430 delvhighlight
3431 }
3435 }
3438 drawvisible
3439 }
3440 }
3442 proc delvhighlight {} {
3443 global hlview vhighlights
3445 if {![info exists hlview]} return
3446 unset hlview
3447 catch {unset vhighlights}
3448 unbolden
3449 }
3451 proc vhighlightmore {} {
3452 global hlview vhl_done commitidx vhighlights curview
3455 set vr [visiblerows]
3465 }
3467 }
3468 }
3469 }
3471 return 0
3472 }
3474 proc askvhighlight {row id} {
3475 global hlview vhighlights iddrawn
3480 }
3482 } else {
3484 }
3485 }
3487 proc hfiles_change {} {
3488 global highlight_files filehighlight fhighlights fh_serial
3489 global highlight_paths gdttype
3491 if {[info exists filehighlight]} {
3492 # delete previous highlights
3494 unset filehighlight
3495 catch {unset fhighlights}
3496 unbolden
3497 unhighlight_filelist
3498 }
3499 set highlight_paths {}
3501 incr fh_serial
3504 }
3505 }
3507 proc gdttype_change {name ix op} {
3508 global gdttype highlight_files findstring findpattern
3510 stopfinding
3514 set highlight_files {}
3515 hfiles_change
3516 }
3517 findcom_change
3518 } else {
3520 set findpattern {}
3521 findcom_change
3522 }
3524 hfiles_change
3525 }
3526 drawvisible
3527 }
3528 # enable/disable findtype/findloc menus too
3529 }
3531 proc find_change {name ix op} {
3532 global gdttype findstring highlight_files
3534 stopfinding
3536 findcom_change
3537 } else {
3540 hfiles_change
3541 }
3542 }
3543 drawvisible
3544 }
3546 proc findcom_change args {
3547 global nhighlights boldnamerows
3548 global findpattern findtype findstring gdttype
3550 stopfinding
3551 # delete previous highlights, if any
3554 }
3555 set boldnamerows {}
3556 catch {unset nhighlights}
3557 unbolden
3558 unmarkmatches
3560 set findpattern {}
3563 } else {
3564 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3567 }
3568 }
3570 proc makepatterns {l} {
3571 set ret {}
3576 } else {
3579 }
3580 }
3582 }
3584 proc do_file_hl {serial} {
3585 global highlight_files filehighlight highlight_paths gdttype fhl_list
3590 highlight_filelist
3594 } else {
3595 # must be "containing:", i.e. we're searching commit info
3596 return
3597 }
3602 set fhl_list {}
3603 drawvisible
3604 flushhighlights
3605 }
3607 proc flushhighlights {} {
3608 global filehighlight fhl_list
3610 if {[info exists filehighlight]} {
3611 lappend fhl_list {}
3614 }
3615 }
3617 proc askfilehighlight {row id} {
3618 global filehighlight fhighlights fhl_list
3623 }
3625 proc readfhighlight {} {
3626 global filehighlight fhighlights curview iddrawn
3627 global fhl_list find_dirn
3629 if {![info exists filehighlight]} {
3630 return 0
3631 }
3632 set nr 0
3640 }
3647 }
3649 }
3651 # strange...
3652 puts "oops, git diff-tree died"
3654 unset filehighlight
3655 return 0
3656 }
3657 if {[info exists find_dirn]} {
3658 run findmore
3659 }
3660 return 1
3661 }
3663 proc doesmatch {f} {
3664 global findtype findpattern
3670 } else {
3672 }
3673 }
3675 proc askfindhighlight {row id} {
3676 global nhighlights commitinfo iddrawn
3677 global findloc
3678 global markingmatches
3682 }
3684 set isbold 0
3685 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3690 set isbold 2
3691 break
3692 }
3693 set isbold 1
3694 }
3695 }
3701 }
3702 }
3705 }
3706 }
3708 }
3710 proc markrowmatches {row id} {
3711 global canv canv2 linehtag linentag commitinfo findloc
3722 }
3723 }
3729 }
3730 }
3731 }
3733 proc vrel_change {name ix op} {
3734 global highlight_related
3736 rhighlight_none
3738 run drawvisible
3739 }
3740 }
3742 # prepare for testing whether commits are descendents or ancestors of a
3743 proc rhighlight_sel {a} {
3744 global descendent desc_todo ancestor anc_todo
3745 global highlight_related
3747 catch {unset descendent}
3749 catch {unset ancestor}
3752 rhighlight_none
3753 run drawvisible
3754 }
3755 }
3757 proc rhighlight_none {} {
3758 global rhighlights
3760 catch {unset rhighlights}
3761 unbolden
3762 }
3764 proc is_descendent {a} {
3765 global curview children descendent desc_todo
3770 set leftover {}
3771 set done 0
3776 continue
3777 }
3783 set done 1
3784 }
3785 }
3786 }
3789 return
3790 }
3791 }
3794 }
3796 proc is_ancestor {a} {
3797 global curview parents ancestor anc_todo
3802 set leftover {}
3803 set done 0
3808 continue
3809 }
3815 set done 1
3816 }
3817 }
3818 }
3821 return
3822 }
3823 }
3826 }
3828 proc askrelhighlight {row id} {
3829 global descendent highlight_related iddrawn rhighlights
3830 global selectedline ancestor
3833 set isbold 0
3838 }
3840 set isbold 1
3841 }
3846 }
3848 set isbold 1
3849 }
3850 }
3854 }
3855 }
3857 }
3859 # Graph layout functions
3861 proc shortids {ids} {
3862 set res {}
3868 } else {
3870 }
3871 }
3873 }
3875 proc ntimes {n o} {
3876 set ret {}
3881 }
3883 }
3885 }
3887 proc ordertoken {id} {
3888 global ordertok curview varcid varcstart varctok curview parents children
3889 global nullid nullid2
3893 }
3895 set todo {}
3896 while {1} {
3900 } else {
3902 }
3905 break
3906 }
3909 # it's a root
3911 break
3912 }
3915 } else {
3919 }
3921 }
3922 }
3927 }
3930 }
3932 # Work out where id should go in idlist so that order-token
3933 # values increase from left to right
3934 proc idcol {idlist id {i 0}} {
3937 set i 0
3938 }
3942 }
3944 incr i
3945 } else {
3949 }
3950 }
3952 }
3954 proc initlayout {} {
3955 global rowidlist rowisopt rowfinal displayorder parentlist
3956 global numcommits canvxmax canv
3957 global nextcolor
3958 global colormap rowtextx
3960 set numcommits 0
3961 set displayorder {}
3962 set parentlist {}
3963 set nextcolor 0
3964 set rowidlist {}
3965 set rowisopt {}
3966 set rowfinal {}
3968 catch {unset colormap}
3969 catch {unset rowtextx}
3970 setcanvscroll
3971 }
3973 proc setcanvscroll {} {
3974 global canv canv2 canv3 numcommits linespc canvxmax canvy0
3975 global lastscrollset lastscrollrows
3981 set lastscrollset [clock clicks -milliseconds]
3983 }
3985 proc visiblerows {} {
3986 global canv numcommits linespc
3994 set r0 0
3995 }
4000 }
4002 }
4004 proc layoutmore {} {
4005 global commitidx viewcomplete curview
4006 global numcommits pending_select curview
4007 global lastscrollset lastscrollrows commitinterest
4011 setcanvscroll
4012 }
4013 if {[info exists pending_select] &&
4016 }
4017 drawvisible
4018 }
4020 proc doshowlocalchanges {} {
4021 global curview mainheadid
4025 dodiffindex
4026 } else {
4028 }
4029 }
4031 proc dohidelocalchanges {} {
4032 global nullid nullid2 lserial curview
4036 }
4039 }
4040 incr lserial
4041 }
4043 # spawn off a process to do git diff-index --cached HEAD
4044 proc dodiffindex {} {
4045 global lserial showlocalchanges
4046 global isworktree
4049 incr lserial
4050 set fd [open "|git diff-index --cached HEAD" r]
4053 }
4055 proc readdiffindex {fd serial} {
4056 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4058 set isdiff 1
4061 return 1
4062 }
4063 set isdiff 0
4064 }
4065 # we only need to see one line and we don't really care what it says...
4069 return 0
4070 }
4072 # now see if there are any local changes not checked in to the index
4073 set fd [open "|git diff-files" r]
4078 # add the line for the changes in the index to the graph
4079 set hl [mc "Local changes checked in to index but not committed"]
4084 }
4088 }
4089 return 0
4090 }
4092 proc readdifffiles {fd serial} {
4093 global mainheadid nullid nullid2 curview
4094 global commitinfo commitdata lserial
4096 set isdiff 1
4099 return 1
4100 }
4101 set isdiff 0
4102 }
4103 # we only need to see one line and we don't really care what it says...
4107 return 0
4108 }
4111 # add the line for the local diff to the graph
4112 set hl [mc "Local uncommitted changes, not checked in to index"]
4117 } else {
4119 }
4123 }
4124 return 0
4125 }
4127 proc nextuse {id row} {
4128 global curview children
4133 return -1
4134 }
4137 }
4138 }
4139 }
4142 }
4143 return -1
4144 }
4146 proc prevuse {id row} {
4147 global curview children
4149 set ret -1
4155 }
4156 }
4157 }
4159 }
4161 proc make_idlist {row} {
4162 global displayorder parentlist uparrowlen downarrowlen mingaplen
4163 global commitidx curview children
4167 set r 0
4168 }
4171 set ra 0
4172 }
4176 }
4178 set ids {}
4187 }
4188 }
4189 }
4197 }
4198 }
4199 }
4207 }
4208 }
4209 incr r
4215 }
4216 }
4217 }
4218 set idlist {}
4221 }
4223 }
4225 proc rowsequal {a b} {
4228 }
4231 }
4233 }
4235 proc makeupline {id row rend col} {
4236 global rowidlist uparrowlen downarrowlen mingaplen
4242 }
4245 }
4252 }
4253 }
4254 }
4256 proc layoutrows {row endrow} {
4257 global rowidlist rowisopt rowfinal displayorder
4258 global uparrowlen downarrowlen maxwidth mingaplen
4259 global children parentlist
4260 global commitidx viewcomplete curview
4263 set idlist {}
4269 }
4270 }
4272 }
4277 set final 1
4278 } else {
4286 # if not the first child, we have to insert a line going up
4289 }
4290 }
4291 }
4301 }
4302 }
4303 }
4310 }
4311 }
4321 }
4322 }
4330 }
4331 }
4332 }
4333 }
4334 }
4338 set final 0
4339 }
4343 lappend rowisopt 0
4349 }
4351 } else {
4358 }
4359 }
4361 }
4363 proc changedrow {row} {
4364 global displayorder iddrawn rowisopt need_redisplay
4373 }
4374 }
4375 }
4378 set need_redisplay 1
4379 }
4380 }
4382 proc insert_pad {row col npad} {
4383 global rowidlist
4392 }
4395 }
4397 proc optimize_rows {row col endrow} {
4398 global rowidlist rowisopt displayorder curview children
4401 set row 1
4402 }
4405 set haspad 0
4414 } else {
4415 set pprevidlist {}
4416 }
4417 set x0 -1
4418 set xm -1
4423 set haspad 1
4424 continue
4425 }
4429 set isarrow 0
4430 set z0 {}
4435 }
4436 }
4441 set isarrow 1
4442 }
4443 }
4446 set isarrow 1
4447 }
4448 # Looking at lines from this row to the previous row,
4449 # make them go straight up if they end in an arrow on
4450 # the previous row; otherwise make them go straight up
4451 # or at 45 degrees.
4453 # Line currently goes left too much;
4454 # insert pads in the previous row, then optimize it
4459 }
4467 }
4469 # Line currently goes right too much;
4470 # insert pads in this line
4476 set haspad 1
4477 }
4484 }
4485 }
4486 # avoid lines jigging left then immediately right
4489 incr x0
4492 }
4493 }
4495 # Find the first column that doesn't have a line going right
4501 # check if this is the link to the first child
4504 # it is, work out offset to child
4506 }
4507 }
4509 }
4510 # Insert a pad at that column as long as it has a line and
4511 # isn't the last column
4516 }
4517 }
4518 }
4519 }
4521 proc xc {row col} {
4522 global canvx0 linespc
4524 }
4526 proc yc {row} {
4527 global canvy0 linespc
4529 }
4531 proc linewidth {id} {
4532 global thickerline lthickness
4537 }
4539 }
4541 proc rowranges {id} {
4542 global curview children uparrowlen downarrowlen
4543 global rowidlist
4547 return {}
4548 }
4549 set ret {}
4554 if {![info exists prev]} {
4556 } else {
4558 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4559 }
4560 # see if the line extends the whole way from prevrow to row
4564 # it doesn't, see where it ends
4569 } else {
4572 incr r -1
4573 }
4575 # see where it starts up again
4580 } else {
4583 incr r
4584 }
4586 }
4587 }
4590 }
4593 }
4595 }
4597 proc drawlineseg {id row endrow arrowlow} {
4598 global rowidlist displayorder iddrawn linesegs
4599 global canv colormap linespc curview maxlinelen parentlist
4603 set arrowhigh 1
4604 while {1} {
4607 incr le -1
4608 break
4609 }
4613 set arrowhigh 0
4614 break
4615 }
4620 set arrowhigh 0
4621 }
4622 break
4623 }
4624 incr le
4625 }
4628 }
4630 set lines {}
4631 set i 0
4632 set joinhigh 0
4639 set joinhigh 1
4640 }
4641 break
4642 }
4643 incr i
4644 }
4645 }
4646 set joinlow 0
4651 set joinlow 1
4652 }
4653 }
4666 }
4667 } else {
4669 }
4677 set arrowlow 0
4678 }
4679 }
4687 }
4689 }
4692 # join parent line to first child
4703 } else {
4705 }
4713 }
4715 }
4717 } else {
4721 }
4729 } else {
4733 }
4735 }
4736 } else {
4742 }
4746 } else {
4747 # coalesce two pieces
4752 }
4756 }
4757 }
4761 }
4763 proc drawparentlinks {id row} {
4764 global rowidlist canv colormap curview parentlist
4765 global idpos linespc
4778 # rmx = right-most X coord used
4779 set rmx 0
4784 continue
4785 }
4789 }
4792 # drawlineseg will do this one for us
4793 continue
4794 }
4796 # should handle duplicated parents here...
4799 # if attaching to a vertical segment, draw a smaller
4800 # slant for visual distinctness
4804 } else {
4806 }
4808 # segment slants towards us already
4810 } else {
4815 }
4817 }
4818 } else {
4820 }
4825 }
4829 }
4830 }
4832 proc drawlines {id} {
4833 global canv
4836 }
4838 proc drawcmittext {id row col} {
4839 global linespc canv canv2 canv3 fgcolor curview
4840 global cmitlisted commitinfo rowidlist parentlist
4841 global rowtextx idpos idtags idheads idotherrefs
4842 global linehtag linentag linedtag selectedline
4843 global canvxmax boldrows boldnamerows fgcolor
4844 global mainheadid nullid nullid2 circleitem circlecolors
4846 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4849 set ofill red
4851 set ofill green
4853 set ofill yellow
4854 } else {
4856 }
4865 # triangle pointing left for left-side commits
4871 } else {
4872 # triangle pointing right for right-side commits
4878 }
4890 }
4891 }
4892 }
4899 }
4904 set font mainfont
4905 set nfont mainfont
4909 set font mainfontbold
4912 set nfont mainfontbold
4913 }
4914 }
4924 }
4928 setcanvscroll
4929 }
4930 }
4932 proc drawcmitrow {row} {
4933 global displayorder rowidlist nrows_drawn
4934 global iddrawn markingmatches
4935 global commitinfo numcommits
4936 global filehighlight fhighlights findpattern nhighlights
4937 global hlview vhighlights
4938 global highlight_related rhighlights
4945 }
4948 }
4951 }
4954 }
4959 return
4960 }
4963 }
4967 incr nrows_drawn
4968 }
4971 }
4972 }
4974 proc drawcommits {row {endrow {}}} {
4975 global numcommits iddrawn displayorder curview need_redisplay
4976 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
4979 set row 0
4980 }
4983 }
4986 }
4990 set rl1 0
4991 }
4994 set ro1 0
4995 }
4999 }
5004 }
5006 }
5007 }
5010 }
5013 clear_display
5014 drawvisible
5015 }
5017 # make the lines join to already-drawn rows either side
5021 }
5026 }
5041 # see if this is the first child of any of its parents
5044 # make this line extend up to the child
5046 }
5047 }
5048 } else {
5050 }
5051 }
5052 }
5053 }
5055 proc undolayout {row} {
5056 global uparrowlen mingaplen downarrowlen
5057 global rowidlist rowisopt rowfinal need_redisplay
5061 set r 0
5062 }
5064 incr r -1
5068 set need_redisplay 1
5069 run drawvisible
5070 }
5071 }
5073 proc drawvisible {} {
5074 global canv linespc curview vrowmod selectedline targetrow targetid
5075 global need_redisplay cscroll numcommits
5085 if {[info exists targetid]} {
5089 # Fix up the scrollregion and change the scrolling position
5090 # now that our target row has moved.
5093 setcanvscroll
5101 set need_redisplay 1
5102 }
5103 } else {
5104 unset targetid
5105 }
5106 }
5112 }
5116 } elseif {[info exists targetid]} {
5118 }
5119 if {[info exists targetrow]} {
5122 }
5124 }
5126 }
5128 proc clear_display {} {
5129 global iddrawn linesegs need_redisplay nrows_drawn
5130 global vhighlights fhighlights nhighlights rhighlights
5131 global linehtag linentag linedtag boldrows boldnamerows
5133 allcanvs delete all
5134 catch {unset iddrawn}
5135 catch {unset linesegs}
5136 catch {unset linehtag}
5137 catch {unset linentag}
5138 catch {unset linedtag}
5139 set boldrows {}
5140 set boldnamerows {}
5141 catch {unset vhighlights}
5142 catch {unset fhighlights}
5143 catch {unset nhighlights}
5144 catch {unset rhighlights}
5145 set need_redisplay 0
5146 set nrows_drawn 0
5147 }
5149 proc findcrossings {id} {
5150 global rowidlist parentlist numcommits displayorder
5152 set cross {}
5153 set ccross {}
5157 }
5176 }
5177 }
5178 }
5179 }
5180 }
5182 }
5184 proc assigncolor {id} {
5185 global colormap colors nextcolor
5186 global parents children children curview
5192 } else {
5193 set kids {}
5194 }
5200 return
5201 }
5202 }
5203 set badcolors {}
5204 set origbad {}
5207 # delimiter between corner crossings and other crossings
5210 }
5214 }
5215 }
5218 }
5225 }
5230 }
5231 }
5232 }
5235 }
5236 }
5240 set nextcolor 0
5241 }
5243 }
5245 }
5247 proc bindline {t id} {
5248 global canv
5254 }
5256 proc drawtags {id x xt y1} {
5257 global idtags idheads idotherrefs mainhead
5258 global linespc lthickness
5259 global canv rowtextx curview fgcolor bgcolor
5261 set marks {}
5262 set ntags 0
5263 set nheads 0
5267 }
5271 }
5274 }
5277 }
5282 set xvals {}
5283 set wvals {}
5284 set i -1
5286 incr i
5289 } else {
5291 }
5295 }
5302 set font mainfont
5303 if {[incr ntags -1] >= 0} {
5304 # draw a tag
5310 } else {
5311 # draw a head or other ref
5312 if {[incr nheads -1] >= 0} {
5313 set col green
5315 set font mainfontbold
5316 }
5317 } else {
5318 set col "#ddddff"
5319 }
5330 }
5331 }
5338 }
5339 }
5341 }
5343 proc xcoord {i level ln} {
5344 global canvx0 xspc1 xspc2
5351 }
5353 }
5355 proc show_status {msg} {
5356 global canv fgcolor
5358 clear_display
5361 }
5363 # Don't change the text pane cursor if it is currently the hand cursor,
5364 # showing that we are over a sha1 ID link.
5365 proc settextcursor {c} {
5366 global ctext curtextcursor
5370 }
5372 }
5374 proc nowbusy {what {name {}}} {
5375 global isbusy busyname statusw
5377 if {[array names isbusy] eq {}} {
5378 . config -cursor watch
5379 settextcursor watch
5380 }
5385 }
5386 }
5388 proc notbusy {what} {
5389 global isbusy maincursor textcursor busyname statusw
5391 catch {
5396 }
5397 }
5398 if {[array names isbusy] eq {}} {
5401 }
5402 }
5404 proc findmatches {f} {
5405 global findtype findstring
5408 } else {
5413 }
5414 set matches {}
5415 set i 0
5420 }
5421 }
5423 }
5425 proc dofind {{dirn 1} {wrap 1}} {
5426 global findstring findstartline findcurline selectedline numcommits
5427 global gdttype filehighlight fh_serial find_dirn findallowwrap
5429 if {[info exists find_dirn]} {
5431 stopfinding
5432 }
5433 focus .
5437 } else {
5439 }
5441 nowbusy finding [mc "Searching"]
5445 }
5448 run findmore
5449 }
5451 proc stopfinding {} {
5452 global find_dirn findcurline fprogcoord
5454 if {[info exists find_dirn]} {
5455 unset find_dirn
5456 unset findcurline
5457 notbusy finding
5458 set fprogcoord 0
5459 adjustprogress
5460 }
5461 }
5463 proc findmore {} {
5464 global commitdata commitinfo numcommits findpattern findloc
5465 global findstartline findcurline findallowwrap
5466 global find_dirn gdttype fhighlights fprogcoord
5467 global curview varcorder vrownum varccommits vrowmod
5469 if {![info exists find_dirn]} {
5470 return 0
5471 }
5472 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5474 set moretodo 0
5476 incr l
5478 set l 0
5479 }
5482 } else {
5485 }
5486 } else {
5489 }
5490 incr l -1
5493 } else {
5494 set lim -1
5496 }
5497 }
5500 set n 500
5501 set moretodo 1
5502 }
5505 }
5506 set found 0
5507 set domore 1
5521 }
5523 # shouldn't happen unless git log doesn't give all the commits...
5526 continue
5527 }
5530 }
5535 set found 1
5536 break
5537 }
5538 }
5540 }
5541 } else {
5549 }
5554 }
5557 break
5558 }
5561 set domore 0
5563 }
5564 }
5565 }
5566 }
5568 unset findcurline
5569 unset find_dirn
5570 notbusy finding
5571 set fprogcoord 0
5572 adjustprogress
5575 } else {
5576 bell
5577 }
5578 return 0
5579 }
5581 flushhighlights
5582 } else {
5584 }
5588 }
5590 adjustprogress
5592 }
5594 proc findselectline {l} {
5595 global findloc commentend ctext findcurline markingmatches gdttype
5597 set markingmatches 1
5601 # highlight the matches in the comments
5608 }
5609 }
5610 drawvisible
5611 }
5613 # mark the bits of a headline or author that match a find string
5614 proc markmatches {canv l str tag matches font row} {
5615 global selectedline
5633 }
5634 }
5635 }
5637 proc unmarkmatches {} {
5638 global markingmatches
5640 allcanvs delete matches
5641 set markingmatches 0
5642 stopfinding
5643 }
5645 proc selcanvline {w x y} {
5646 global canv canvy0 ctext linespc
5647 global rowtextx
5654 set l 0
5655 }
5660 }
5661 unmarkmatches
5663 }
5665 proc commit_descriptor {p} {
5666 global commitinfo
5669 }
5670 set l "..."
5673 }
5675 }
5677 # append some text to the ctext widget, and make any SHA1 ID
5678 # that we know about be a clickable link.
5679 proc appendwithlinks {text tags} {
5680 global ctext linknum curview pendinglinks
5689 incr e
5693 incr linknum
5694 }
5695 }
5697 proc setlink {id lk} {
5698 global curview ctext pendinglinks commitinterest
5705 } else {
5708 }
5709 }
5711 proc makelink {id} {
5712 global pendinglinks
5717 }
5719 }
5721 proc linkcursor {w inc} {
5722 global linkentercount curtextcursor
5726 } else {
5729 set linkentercount 0
5730 }
5731 }
5732 }
5734 proc viewnextline {dir} {
5735 global canv linespc
5743 set newtop 0
5746 }
5748 }
5750 # add a list of tag or branch names at position pos
5751 # returns the number of names inserted
5752 proc appendrefs {pos ids var} {
5756 return 0
5757 }
5760 set tags {}
5764 }
5765 }
5768 } else {
5770 set sep {}
5774 incr linknum
5779 set sep ", "
5780 }
5781 }
5784 }
5786 # called when we have finished computing the nearby tags
5787 proc dispneartags {delay} {
5788 global selectedline currentid showneartags tagphase
5791 after cancel dispnexttag
5793 after 200 dispnexttag
5794 set tagphase -1
5795 } else {
5796 after idle dispnexttag
5797 set tagphase 0
5798 }
5799 }
5801 proc dispnexttag {} {
5802 global selectedline currentid showneartags tagphase ctext
5806 0 {
5810 }
5811 }
5812 1 {
5816 }
5817 }
5818 2 {
5823 # turn "Branch" into "Branches"
5827 }
5828 }
5829 }
5830 }
5831 if {[incr tagphase] <= 2} {
5832 after idle dispnexttag
5833 }
5834 }
5836 proc make_secsel {l} {
5837 global linehtag linentag linedtag canv canv2 canv3
5852 }
5854 proc selectline {l isnew} {
5855 global canv ctext commitinfo selectedline
5856 global canvy0 linespc parents children curview
5857 global currentid sha1entry
5858 global commentend idtags linknum
5859 global mergemax numcommits pending_select
5860 global cmitmode showneartags allcommits
5861 global targetrow targetid lastscrollrows
5862 global autoselect
5864 catch {unset pending_select}
5866 normalline
5867 unsel_reflist
5868 stopfinding
5876 setcanvscroll
5877 }
5891 } else {
5895 }
5896 }
5900 } else {
5904 }
5905 }
5906 }
5909 set newtop 0
5910 }
5912 drawvisible
5913 }
5919 }
5926 }
5930 clear_ctext
5931 set linknum 0
5934 }
5944 }
5946 }
5948 set headers {}
5951 set np 0
5954 set tag mmax
5955 } else {
5957 }
5960 incr np
5961 }
5962 } else {
5965 }
5966 }
5970 }
5972 # make anything that looks like a SHA1 ID be a clickable link
5975 if {![info exists allcommits]} {
5976 getallcommits
5977 }
5988 dispneartags 1
5989 }
5994 }
6001 init_flist [mc "Comments"]
6006 } else {
6008 }
6009 }
6011 proc selfirstline {} {
6012 unmarkmatches
6013 selectline 0 1
6014 }
6016 proc sellastline {} {
6017 global numcommits
6018 unmarkmatches
6021 }
6023 proc selnextline {dir} {
6024 global selectedline
6025 focus .
6028 unmarkmatches
6030 }
6032 proc selnextpage {dir} {
6033 global canv linespc selectedline numcommits
6037 set lpp 1
6038 }
6040 drawvisible
6044 set l 0
6047 }
6048 unmarkmatches
6050 }
6052 proc unselectline {} {
6053 global selectedline currentid
6055 set selectedline {}
6056 catch {unset currentid}
6057 allcanvs delete secsel
6058 rhighlight_none
6059 }
6061 proc reselectline {} {
6062 global selectedline
6066 }
6067 }
6069 proc addtohistory {cmd} {
6070 global history historyindex curview
6075 return
6076 }
6080 } else {
6082 }
6083 incr historyindex
6085 .tf.bar.leftbut conf -state normal
6086 } else {
6087 .tf.bar.leftbut conf -state disabled
6088 }
6089 .tf.bar.rightbut conf -state disabled
6090 }
6092 proc godo {elt} {
6093 global curview
6099 }
6101 }
6103 proc goback {} {
6104 global history historyindex
6105 focus .
6108 incr historyindex -1
6110 .tf.bar.rightbut conf -state normal
6111 }
6113 .tf.bar.leftbut conf -state disabled
6114 }
6115 }
6117 proc goforw {} {
6118 global history historyindex
6119 focus .
6123 incr historyindex
6125 .tf.bar.leftbut conf -state normal
6126 }
6128 .tf.bar.rightbut conf -state disabled
6129 }
6130 }
6132 proc gettree {id} {
6133 global treefilelist treeidlist diffids diffmergeid treepending
6134 global nullid nullid2
6137 catch {unset diffmergeid}
6139 if {![info exists treepending]} {
6141 set cmd [list | git ls-files]
6143 set cmd [list | git ls-files --stage -t]
6144 } else {
6146 }
6148 return
6149 }
6155 }
6156 } else {
6158 }
6159 }
6161 proc gettreeline {gtf id} {
6162 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6164 set nl 0
6168 } else {
6177 }
6179 }
6181 }
6184 }
6186 unset treepending
6188 if {![info exists diffmergeid]} {
6190 }
6193 } else {
6195 }
6196 return 0
6197 }
6199 proc showfile {f} {
6200 global treefilelist treeidlist diffids nullid nullid2
6201 global ctext commentend
6206 return
6207 }
6211 return
6212 }
6213 } else {
6217 return
6218 }
6219 }
6228 settabs 0
6229 }
6231 proc getblobline {bf id} {
6232 global diffids cmitmode ctext
6236 return 0
6237 }
6239 set nl 0
6242 }
6244 # delete last newline
6247 return 0
6248 }
6251 }
6253 proc mergediff {id} {
6254 global diffmergeid mdifffd
6255 global diffids
6256 global parents
6257 global diffcontext
6258 global limitdiffs vfilelimit curview
6262 # this doesn't seem to actually affect anything...
6266 }
6269 return
6270 }
6276 }
6278 proc getmergediffline {mdf id np} {
6279 global diffmergeid ctext cflist mergemax
6280 global difffilestart mdifffd
6283 set nr 0
6288 return 0
6289 }
6291 # start of a new file
6302 # do nothing
6303 } else {
6304 # parse the prefix - one ' ', '-' or '+' for each parent
6305 set spaces {}
6306 set minuses {}
6307 set pluses {}
6308 set isbad 0
6317 } else {
6318 set isbad 1
6319 break
6320 }
6321 }
6322 set tags {}
6323 set num {}
6329 lappend tags mresult
6331 }
6334 set num "max"
6335 }
6337 }
6339 }
6340 }
6344 return 0
6345 }
6347 }
6349 proc startdiff {ids} {
6350 global treediffs diffids treepending diffmergeid nullid nullid2
6352 settabs 1
6354 catch {unset diffmergeid}
6358 if {![info exists treepending]} {
6360 }
6361 } else {
6363 }
6364 }
6366 proc path_filter {filter name} {
6371 return 1
6372 }
6373 } else {
6377 return 1
6378 }
6379 }
6380 }
6381 return 0
6382 }
6384 proc addtocflist {ids} {
6385 global treediffs
6389 }
6391 proc diffcmd {ids flags} {
6392 global nullid nullid2
6398 # comparing working directory with some specific revision
6402 } else {
6404 }
6405 } else {
6406 # comparing working directory with index
6409 lappend cmd -R
6410 }
6411 }
6415 # comparing index with specific revision
6418 } else {
6420 }
6421 } else {
6422 # comparing index with HEAD
6423 lappend cmd HEAD
6424 }
6425 } else {
6427 }
6429 }
6431 proc gettreediffs {ids} {
6432 global treediff treepending
6435 set treediff {}
6439 }
6441 proc gettreediffline {gdtf ids} {
6442 global treediff treediffs treepending diffids diffmergeid
6443 global cmitmode vfilelimit curview limitdiffs
6445 set nr 0
6452 }
6454 }
6455 }
6458 }
6461 set flist {}
6465 }
6466 }
6468 } else {
6470 }
6471 unset treepending
6475 if {![info exists diffmergeid]} {
6477 }
6478 } else {
6480 }
6481 return 0
6482 }
6484 # empty string or positive integer
6485 proc diffcontextvalidate {v} {
6487 }
6489 proc diffcontextchange {n1 n2 op} {
6490 global diffcontextstring diffcontext
6495 reselectline
6496 }
6497 }
6498 }
6500 proc changeignorespace {} {
6501 reselectline
6502 }
6504 proc getblobdiffs {ids} {
6505 global blobdifffd diffids env
6506 global diffinhdr treediffs
6507 global diffcontext
6508 global ignorespace
6509 global limitdiffs vfilelimit curview
6513 append cmd " -w"
6514 }
6517 }
6520 return
6521 }
6522 set diffinhdr 0
6526 }
6528 proc setinlist {var i val} {
6533 }
6536 } else {
6538 }
6539 }
6541 proc makediffhdr {fname ids} {
6542 global ctext curdiffstart treediffs
6547 }
6551 }
6553 proc getblobdiffline {bdf ids} {
6554 global diffids blobdifffd ctext curdiffstart
6555 global diffnexthead diffnextnote difffilestart
6556 global diffinhdr treediffs
6558 set nr 0
6563 return 0
6564 }
6566 # trim off "diff --git "
6568 set diffinhdr 1
6569 # start of a new file
6573 # If the name hasn't changed the length will be odd,
6574 # the middle char will be a space, and the two bits either
6575 # side will be a/name and b/name, or "a/name" and "b/name".
6576 # If the name has changed we'll get "rename from" and
6577 # "rename to" or "copy from" and "copy to" lines following this,
6578 # and we'll use them to get the filenames.
6579 # This complexity is necessary because spaces in the filename(s)
6580 # don't get escaped.
6586 continue
6587 }
6588 # unescape if quoted and chop off the a/ from the front
6591 } else {
6593 }
6596 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6599 set diffinhdr 0
6606 }
6610 }
6616 }
6619 # do nothing
6620 continue
6622 set diffinhdr 0
6623 continue
6624 }
6627 } else {
6634 } else {
6635 # "\ No newline at end of file",
6636 # or something else we don't recognize
6638 }
6639 }
6640 }
6644 return 0
6645 }
6647 }
6649 proc changediffdisp {} {
6650 global ctext diffelide
6654 }
6656 proc highlightfile {loc cline} {
6657 global ctext cflist cflist_top
6664 }
6666 proc prevfile {} {
6667 global difffilestart ctext cmitmode
6670 set prev 0.0
6671 set prevline 1
6676 return
6677 }
6679 incr prevline
6680 }
6682 }
6684 proc nextfile {} {
6685 global difffilestart ctext cmitmode
6689 set line 1
6691 incr line
6694 return
6695 }
6696 }
6697 }
6699 proc clear_ctext {{first 1.0}} {
6700 global ctext smarktop smarkbot
6701 global pendinglinks
6706 }
6709 }
6712 catch {unset pendinglinks}
6713 }
6714 }
6716 proc settabs {{firstab {}}} {
6717 global firsttabstop tabstop ctext have_tk85
6721 }
6722 set w [font measure textfont "0"]
6728 } else {
6730 }
6731 }
6733 proc incrsearch {name ix op} {
6734 global ctext searchstring searchdirn
6738 # no anchor set, use start of selection, or of visible area
6744 } else {
6746 }
6747 }
6752 }
6753 searchmarkvisible 1
6754 }
6755 }
6757 proc dosearch {} {
6758 global sstring ctext searchstring searchdirn
6762 set searchdirn -forwards
6768 set start "@0,0"
6769 }
6773 bell
6774 return
6775 }
6780 }
6781 }
6783 proc dosearchback {} {
6784 global sstring ctext searchstring searchdirn
6788 set searchdirn -backwards
6795 }
6799 bell
6800 return
6801 }
6806 }
6807 }
6809 proc searchmark {first last} {
6810 global ctext searchstring
6813 while {1} {
6818 }
6819 }
6821 proc searchmarkvisible {doall} {
6822 global ctext smarktop smarkbot
6827 # no overlap with previous
6831 } else {
6835 }
6839 }
6840 }
6841 }
6843 proc scrolltext {f0 f1} {
6844 global searchstring
6848 searchmarkvisible 0
6849 }
6850 }
6852 proc setcoords {} {
6853 global linespc charspc canvx0 canvy0
6854 global xspc1 xspc2 lthickness
6856 set linespc [font metrics mainfont -linespace]
6857 set charspc [font measure mainfont "m"]
6863 }
6865 proc redisplay {} {
6866 global canv
6867 global selectedline
6872 clear_display
6873 setcanvscroll
6875 drawvisible
6879 }
6880 }
6882 proc parsefont {f n} {
6883 global fontattr
6888 set s 10
6891 }
6897 "normal" -
6899 "roman" -
6901 }
6902 }
6903 }
6905 proc fontflags {f {isbold 0}} {
6906 global fontattr
6911 }
6913 proc fontname {f} {
6914 global fontattr
6918 lappend n "bold"
6919 }
6921 lappend n "italic"
6922 }
6924 }
6926 proc incrfont {inc} {
6927 global mainfont textfont ctext canv cflist showrefstop
6928 global stopped entries fontattr
6930 unmarkmatches
6934 set s 1
6935 }
6939 set mainfont [fontname mainfont]
6943 set s 1
6944 }
6948 set textfont [fontname textfont]
6949 setcoords
6950 settabs
6951 redisplay
6952 }
6954 proc clearsha1 {} {
6955 global sha1entry sha1string
6958 }
6959 }
6961 proc sha1change {n1 n2 op} {
6962 global sha1string currentid sha1but
6965 set state disabled
6966 } else {
6967 set state normal
6968 }
6972 } else {
6974 }
6975 }
6977 proc gotocommit {} {
6978 global sha1string tagids headids curview varcid
6986 } else {
6993 return
6994 }
6996 }
6997 }
6998 }
7001 return
7002 }
7005 } else {
7007 }
7009 }
7011 proc lineenter {x y id} {
7012 global hoverx hovery hoverid hovertimer
7013 global commitinfo canv
7019 if {[info exists hovertimer]} {
7021 }
7022 set hovertimer [after 500 linehover]
7024 }
7026 proc linemotion {x y id} {
7027 global hoverx hovery hoverid hovertimer
7032 if {[info exists hovertimer]} {
7034 }
7035 set hovertimer [after 500 linehover]
7036 }
7037 }
7039 proc lineleave {id} {
7040 global hoverid hovertimer canv
7044 if {[info exists hovertimer]} {
7046 unset hovertimer
7047 }
7048 unset hoverid
7049 }
7050 }
7052 proc linehover {} {
7053 global hoverx hovery hoverid hovertimer
7054 global canv linespc lthickness
7055 global commitinfo
7068 -fill \#ffff80 -outline black -width 1 -tags hover]
7071 -font mainfont]
7073 }
7075 proc clickisonarrow {id y} {
7076 global lthickness
7085 }
7086 }
7087 return {}
7088 }
7090 proc arrowjump {id n y} {
7091 global canv
7093 # 1 <-> 2, 3 <-> 4, etc...
7103 set yfrac 0
7104 }
7106 }
7108 proc lineclick {x y id isnew} {
7109 global ctext commitinfo children canv thickerline curview
7112 unmarkmatches
7113 unselectline
7114 normalline
7116 # draw this line thicker than normal
7124 }
7128 return
7129 }
7133 }
7134 # fill the details pane with info about this line
7136 clear_ctext
7137 settabs 0
7149 set i 0
7151 incr i
7161 }
7162 }
7164 init_flist {}
7165 }
7167 proc normalline {} {
7168 global thickerline
7169 if {[info exists thickerline]} {
7171 unset thickerline
7173 }
7174 }
7176 proc selbyid {id} {
7177 global curview
7180 }
7181 }
7183 proc mstime {} {
7184 global startmstime
7185 if {![info exists startmstime]} {
7186 set startmstime [clock clicks -milliseconds]
7187 }
7189 }
7191 proc rowmenu {x y id} {
7192 global rowctxmenu selectedline rowmenuid curview
7193 global nullid nullid2 fakerowmenu mainhead
7195 stopfinding
7198 set state disabled
7199 } else {
7200 set state normal
7201 }
7206 } else {
7208 }
7209 } else {
7211 }
7216 }
7218 proc diffvssel {dirn} {
7219 global rowmenuid selectedline
7225 } else {
7228 }
7231 }
7233 proc doseldiff {oldid newid} {
7234 global ctext
7235 global commitinfo
7238 clear_ctext
7239 init_flist [mc "Top"]
7254 }
7256 proc mkpatch {} {
7257 global rowmenuid currentid commitinfo patchtop patchnum
7259 if {![info exists currentid]} return
7264 set top .patch
7293 incr patchnum
7303 }
7305 proc mkpatchrev {} {
7306 global patchtop
7312 foreach e [list fromsha1 fromhead tosha1 tohead] \
7318 }
7319 }
7321 proc mkpatchgo {} {
7322 global patchtop nullid nullid2
7328 # trim off the initial "|"
7333 }
7335 unset patchtop
7336 }
7338 proc mkpatchcan {} {
7339 global patchtop
7342 unset patchtop
7343 }
7345 proc mktag {} {
7346 global rowmenuid mktagtop commitinfo
7348 set top .maketag
7374 }
7376 proc domktag {} {
7377 global mktagtop env tagids idtags
7382 error_popup [mc "No tag name specified"]
7383 return
7384 }
7387 return
7388 }
7389 if {[catch {
7391 } err]} {
7393 return
7394 }
7400 dispneartags 0
7401 run refill_reflist
7402 }
7404 proc redrawtags {id} {
7405 global canv linehtag idpos currentid curview cmitlisted
7406 global canvxmax iddrawn circleitem mainheadid circlecolors
7412 set ofill yellow
7413 } else {
7415 }
7425 setcanvscroll
7426 }
7429 }
7430 }
7432 proc mktagcan {} {
7433 global mktagtop
7436 unset mktagtop
7437 }
7439 proc mktaggo {} {
7440 domktag
7441 mktagcan
7442 }
7444 proc writecommit {} {
7445 global rowmenuid wrcomtop commitinfo wrcomcmd
7447 set top .writecommit
7477 }
7479 proc wrcomgo {} {
7480 global wrcomtop
7487 }
7489 unset wrcomtop
7490 }
7492 proc wrcomcan {} {
7493 global wrcomtop
7496 unset wrcomtop
7497 }
7499 proc mkbranch {} {
7500 global rowmenuid mkbrtop
7502 set top .makebranch
7523 }
7525 proc mkbrgo {top} {
7526 global headids idheads
7531 error_popup [mc "Please specify a name for the new branch"]
7532 return
7533 }
7535 nowbusy newbranch
7536 update
7537 if {[catch {
7539 } err]} {
7540 notbusy newbranch
7542 } else {
7546 notbusy newbranch
7548 dispneartags 0
7549 run refill_reflist
7550 }
7551 }
7553 proc cherrypick {} {
7554 global rowmenuid curview
7555 global mainhead mainheadid
7557 set oldhead [exec git rev-parse HEAD]
7560 set ok [confirm_popup [mc "Commit %s is already\
7561 included in branch %s -- really re-apply it?" \
7564 }
7565 nowbusy cherrypick [mc "Cherry-picking"]
7566 update
7567 # Unfortunately git-cherry-pick writes stuff to stderr even when
7568 # no error occurs, and exec takes that as an indication of error...
7570 notbusy cherrypick
7572 return
7573 }
7574 set newhead [exec git rev-parse HEAD]
7576 notbusy cherrypick
7577 error_popup [mc "No changes committed"]
7578 return
7579 }
7586 }
7591 }
7592 notbusy cherrypick
7593 }
7595 proc resethead {} {
7596 global mainhead rowmenuid confirm_ok resettype
7598 set confirm_ok 0
7599 set w ".confirmreset"
7605 -justify center -aspect 1000
7610 set resettype mixed
7612 -text [mc "Soft: Leave working tree and index untouched"]
7615 -text [mc "Mixed: Leave working tree untouched, reset index"]
7618 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7628 if {[catch {set fd [open \
7631 } else {
7632 dohidelocalchanges
7634 nowbusy reset [mc "Resetting"]
7636 }
7637 }
7639 proc readresetstat {fd} {
7640 global mainhead mainheadid showlocalchanges rprogcoord
7645 adjustprogress
7646 }
7647 return 1
7648 }
7649 set rprogcoord 0
7650 adjustprogress
7651 notbusy reset
7654 }
7656 set newhead [exec git rev-parse HEAD]
7663 }
7665 doshowlocalchanges
7666 }
7667 return 0
7668 }
7670 # context menu for a head
7671 proc headmenu {x y id head} {
7672 global headmenuid headmenuhead headctxmenu mainhead
7674 stopfinding
7677 set state normal
7679 set state disabled
7680 }
7684 }
7686 proc cobranch {} {
7687 global headmenuid headmenuhead headids
7688 global showlocalchanges mainheadid
7690 # check the tree is clean first??
7691 nowbusy checkout [mc "Checking out"]
7692 update
7693 dohidelocalchanges
7694 if {[catch {
7696 } err]} {
7697 notbusy checkout
7700 dodiffindex
7701 }
7702 } else {
7704 }
7705 }
7707 proc readcheckoutstat {fd newhead newheadid} {
7708 global mainhead mainheadid headids showlocalchanges progresscoords
7713 adjustprogress
7714 }
7715 return 1
7716 }
7717 set progresscoords {0 0}
7718 adjustprogress
7719 notbusy checkout
7722 }
7730 dodiffindex
7731 }
7732 }
7734 proc rmbranch {} {
7735 global headmenuid headmenuhead mainhead
7736 global idheads
7740 # this check shouldn't be needed any more...
7742 error_popup [mc "Cannot delete the currently checked-out branch"]
7743 return
7744 }
7747 # the stuff on this branch isn't on any other branch
7748 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7750 }
7751 nowbusy rmbranch
7752 update
7754 notbusy rmbranch
7756 return
7757 }
7761 notbusy rmbranch
7762 dispneartags 0
7763 run refill_reflist
7764 }
7766 # Display a list of tags and heads
7767 proc showrefs {} {
7768 global showrefstop bgcolor fgcolor selectbgcolor
7769 global bglist fglist reflistfilter reflist maincursor
7771 set top .showrefs
7775 refill_reflist
7776 return
7777 }
7784 -spacing1 1 -spacing3 1 -state disabled
7795 set reflistfilter "*"
7796 trace add variable reflistfilter write reflistfilter_change
7807 set reflist {}
7808 refill_reflist
7809 }
7811 proc sel_reflist {w x y} {
7812 global showrefstop reflist headids tagids otherrefids
7822 }
7824 }
7826 proc unsel_reflist {} {
7827 global showrefstop
7831 }
7833 proc reflistfilter_change {n1 n2 op} {
7834 global reflistfilter
7836 after cancel refill_reflist
7837 after 200 refill_reflist
7838 }
7840 proc refill_reflist {} {
7841 global reflist reflistfilter showrefstop headids tagids otherrefids
7842 global curview commitinterest
7845 set refs {}
7846 foreach n [array names headids] {
7850 } else {
7852 }
7853 }
7854 }
7855 foreach n [array names tagids] {
7859 } else {
7861 }
7862 }
7863 }
7864 foreach n [array names otherrefids] {
7868 } else {
7870 }
7871 }
7872 }
7880 set i 0
7881 set j 0
7890 }
7891 } else {
7892 set cmp -1
7893 }
7894 } else {
7895 set cmp 1
7896 }
7898 -1 {
7900 incr i
7901 }
7902 0 {
7903 incr i
7904 incr j
7905 }
7906 1 {
7911 incr j
7912 }
7913 }
7914 }
7916 # delete last newline
7919 }
7921 # Stuff for finding nearby tags
7922 proc getallcommits {} {
7923 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7924 global idheads idtags idotherrefs allparents tagobjid
7926 if {![info exists allcommits]} {
7927 set nextarc 0
7928 set allcommits 0
7929 set seeds {}
7930 set allcwait 0
7931 set cachedarcs 0
7932 set allccache [file join [gitdir] "gitk.cache"]
7933 if {![catch {
7935 set allcwait 1
7937 }]} return
7938 }
7941 return
7942 }
7943 set cmd [list | git rev-list --parents]
7946 set ids "--all"
7947 } else {
7948 set refs [concat [array names idheads] [array names idtags] \
7949 [array names idotherrefs]]
7950 set ids {}
7951 set tagobjs {}
7952 foreach name [array names tagobjid] {
7954 }
7959 }
7960 }
7964 }
7965 }
7966 }
7970 incr allcommits
7971 nowbusy allcommits
7973 } else {
7974 dispneartags 0
7975 }
7976 }
7978 # Since most commits have 1 parent and 1 child, we group strings of
7979 # such commits into "arcs" joining branch/merge points (BMPs), which
7980 # are commits that either don't have 1 parent or don't have 1 child.
7981 #
7982 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
7983 # arcout(id) - outgoing arcs for BMP
7984 # arcids(a) - list of IDs on arc including end but not start
7985 # arcstart(a) - BMP ID at start of arc
7986 # arcend(a) - BMP ID at end of arc
7987 # growing(a) - arc a is still growing
7988 # arctags(a) - IDs out of arcids (excluding end) that have tags
7989 # archeads(a) - IDs out of arcids (excluding end) that have heads
7990 # The start of an arc is at the descendent end, so "incoming" means
7991 # coming from descendents, and "outgoing" means going towards ancestors.
7993 proc getallclines {fd} {
7994 global allparents allchildren idtags idheads nextarc
7995 global arcnos arcids arctags arcout arcend arcstart archeads growing
7996 global seeds allcommits cachedarcs allcupdate
7998 set nid 0
8002 # seen it already
8003 continue
8004 }
8005 set cachedarcs 0
8012 } else {
8018 }
8021 }
8023 # seen parent already
8026 }
8030 }
8033 continue
8034 }
8035 }
8040 }
8042 set ao {}
8045 set a [incr nextarc]
8054 # seen it already, may need to make a new branch
8057 }
8061 }
8063 }
8065 }
8067 global cached_dheads cached_dtags cached_atags
8068 catch {unset cached_dheads}
8069 catch {unset cached_dtags}
8070 catch {unset cached_atags}
8071 }
8074 }
8075 set cacheok 1
8076 if {[catch {
8079 } err]} {
8080 # got an error reading the list of commits
8081 # if we were updating, try rereading the whole thing again
8083 incr allcommits -1
8085 return
8086 }
8087 error_popup "[mc "Error reading commit topology information;\
8088 branch and preceding/following tag information\
8090 set cacheok 0
8091 }
8092 if {[incr allcommits -1] == 0} {
8093 notbusy allcommits
8095 run savecache
8096 }
8097 }
8098 dispneartags 0
8099 return 0
8100 }
8102 proc recalcarc {a} {
8103 global arctags archeads arcids idtags idheads
8105 set at {}
8106 set ah {}
8110 }
8113 }
8114 }
8117 }
8119 proc splitarc {p} {
8120 global arcnos arcids nextarc arctags archeads idtags idheads
8121 global arcstart arcend arcout allparents growing
8126 return
8127 }
8132 return
8133 }
8134 set na [incr nextarc]
8137 } else {
8141 }
8151 }
8156 } else {
8159 }
8160 }
8162 # reconstruct tags and heads lists
8166 } else {
8169 }
8170 }
8172 # Update things for a new commit added that is a child of one
8173 # existing commit. Used when cherry-picking.
8174 proc addnewchild {id p} {
8175 global allparents allchildren idtags nextarc
8176 global arcnos arcids arctags arcout arcend arcstart archeads growing
8177 global seeds allcommits
8185 set a [incr nextarc]
8193 }
8196 }
8198 # This implements a cache for the topology information.
8199 # The cache saves, for each arc, the start and end of the arc,
8200 # the ids on the arc, and the outgoing arcs from the end.
8201 proc readcache {f} {
8202 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8203 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8204 global allcwait
8210 }
8211 if {[catch {
8213 # finish reading the cache and setting up arctags, etc.
8217 foreach id [array names idtags] {
8223 }
8224 }
8225 }
8226 foreach id [array names idheads] {
8232 }
8233 }
8234 }
8238 }
8239 }
8240 set allcwait 0
8241 } else {
8251 }
8255 } else {
8259 }
8260 }
8266 }
8269 }
8272 }
8274 }
8275 } err]} {
8277 return 0
8278 }
8280 getallcommits
8281 }
8283 }
8285 proc getcache {f} {
8286 global nextarc cachedarcs possible_seeds
8288 if {[catch {
8291 # make sure it's an integer
8294 set nextarc 0
8295 set possible_seeds {}
8297 } err]} {
8299 }
8300 return 0
8301 }
8303 proc dropcache {err} {
8304 global allcwait nextarc cachedarcs seeds
8307 foreach v {arcnos arcout arcids arcstart arcend growing \
8308 arctags archeads allparents allchildren} {
8311 }
8312 set allcwait 0
8313 set nextarc 0
8314 set cachedarcs 0
8315 set seeds {}
8316 getallcommits
8317 }
8319 proc writecache {f} {
8320 global cachearc cachedarcs allccache
8321 global arcstart arcend arcnos arcids arcout
8327 }
8328 if {[catch {
8332 } else {
8334 }
8335 }
8336 } err]} {
8340 return 0
8341 }
8346 return 0
8347 }
8348 return 1
8349 }
8351 proc savecache {} {
8352 global nextarc cachedarcs cachearc allccache
8355 set cachearc 0
8357 catch {
8361 }
8362 }
8364 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8365 # or 0 if neither is true.
8366 proc anc_or_desc {a b} {
8367 global arcout arcstart arcend arcnos cached_isanc
8370 # Both are on the same arc(s); either both are the same BMP,
8371 # or if one is not a BMP, the other is also not a BMP or is
8372 # the BMP at end of the arc (and it only has 1 incoming arc).
8373 # Or both can be BMPs with no incoming arcs.
8375 return 0
8376 }
8382 return 1
8383 } else {
8384 return -1
8385 }
8386 }
8392 } else {
8393 set aend {}
8394 }
8396 } else {
8398 }
8403 } else {
8404 set bend {}
8405 }
8407 } else {
8409 }
8411 return 1
8412 }
8414 return -1
8415 }
8418 return 1
8419 }
8420 }
8423 return -1
8424 }
8426 return 0
8427 }
8428 }
8436 continue
8437 }
8443 return 1
8447 return -1
8448 }
8454 }
8455 }
8456 }
8459 return 0
8460 }
8464 # and returns 0 if so and 1 if not.
8465 # If we subsequently discover a tag on such a growing tip, and that
8468 # isn't a good choice to display as a descendent tag of
8472 #
8473 proc is_certain {desc anc} {
8474 global arcnos arcout arcstart arcend growing problems
8476 set certain {}
8478 # tags on the same arc are certain
8480 return 1
8481 }
8486 }
8487 }
8490 } else {
8493 }
8495 return 1
8496 }
8499 set nnh 1
8500 set ngrowanc 0
8504 incr nnh -1
8505 }
8511 incr ngrowanc
8512 }
8513 } else {
8520 incr nnh -1
8521 }
8523 incr ngrowanc -1
8524 }
8534 incr nnh -1
8535 }
8537 incr ngrowanc -1
8538 }
8540 }
8541 }
8542 }
8543 }
8544 }
8545 }
8549 } else {
8552 incr nnh
8553 }
8554 }
8555 }
8556 }
8557 foreach x [array names growanc] {
8559 return 0
8560 }
8561 return 0
8562 }
8563 return 1
8564 }
8566 proc validate_arctags {a} {
8567 global arctags idtags
8569 set i -1
8572 incr i
8575 incr i -1
8576 }
8577 }
8579 }
8581 proc validate_archeads {a} {
8582 global archeads idheads
8584 set i -1
8587 incr i
8590 incr i -1
8591 }
8592 }
8594 }
8596 # Return the list of IDs that have tags that are descendents of id,
8597 # ignoring IDs that are descendents of IDs already reported.
8598 proc desctags {id} {
8599 global arcnos arcstart arcids arctags idtags allparents
8600 global growing cached_dtags
8603 return {}
8604 }
8605 set t1 [clock clicks -milliseconds]
8608 # part-way along an arc; check that arc first
8613 set tid {}
8618 }
8621 }
8622 }
8626 }
8627 }
8630 }
8635 set nc 1
8641 incr nc -1
8642 }
8643 # ignore tags on starting node
8647 set ta 1
8650 set ta 1
8651 }
8652 }
8659 }
8660 }
8669 }
8672 }
8674 incr nc -1
8675 }
8677 }
8678 }
8679 }
8684 incr nc
8685 }
8686 }
8687 }
8688 }
8689 set tags {}
8690 foreach id [array names tagloc] {
8695 }
8696 }
8697 }
8698 }
8699 set t2 [clock clicks -milliseconds]
8702 # remove tags that are descendents of other tags
8710 incr j -1
8711 incr i -1
8714 incr i -1
8715 break
8716 }
8717 }
8718 }
8720 if {[array names growing] ne {}} {
8721 # graph isn't finished, need to check if any tag could get
8722 # eclipsed by another tag coming later. Simply ignore any
8723 # tags that could later get eclipsed.
8724 set ctags {}
8728 }
8729 }
8732 } else {
8734 }
8735 } else {
8737 }
8738 set t3 [clock clicks -milliseconds]
8742 }
8744 }
8746 proc anctags {id} {
8747 global arcnos arcids arcout arcend arctags idtags allparents
8748 global growing cached_atags
8751 return {}
8752 }
8753 set t1 [clock clicks -milliseconds]
8756 # part-way along an arc; check that arc first
8765 }
8766 }
8767 }
8769 return {}
8770 }
8774 }
8775 }
8778 }
8783 set taglist {}
8784 set nc 1
8790 incr nc -1
8791 }
8792 # ignore tags on starting node
8796 set td 1
8799 set td 1
8800 }
8801 }
8807 }
8808 }
8820 }
8821 }
8824 }
8826 incr nc -1
8827 }
8829 }
8830 }
8831 }
8836 incr nc
8837 }
8838 }
8839 }
8840 }
8841 set t2 [clock clicks -milliseconds]
8843 set tags {}
8844 foreach id [array names tagloc] {
8849 }
8850 }
8851 }
8852 }
8854 # remove tags that are ancestors of other tags
8862 incr j -1
8863 incr i -1
8866 incr i -1
8867 break
8868 }
8869 }
8870 }
8872 if {[array names growing] ne {}} {
8873 # graph isn't finished, need to check if any tag could get
8874 # eclipsed by another tag coming later. Simply ignore any
8875 # tags that could later get eclipsed.
8876 set ctags {}
8880 }
8881 }
8884 } else {
8886 }
8887 } else {
8889 }
8890 set t3 [clock clicks -milliseconds]
8894 }
8896 }
8898 # Return the list of IDs that have heads that are descendents of id,
8899 # including id itself if it has a head.
8900 proc descheads {id} {
8901 global arcnos arcstart arcids archeads idheads cached_dheads
8902 global allparents
8905 return {}
8906 }
8907 set aret {}
8909 # part-way along an arc; check it first
8918 }
8919 }
8921 }
8925 set ret {}
8930 } else {
8933 }
8939 }
8940 }
8945 }
8946 }
8947 }
8948 }
8952 }
8954 proc addedtag {id} {
8955 global arcnos arcout cached_dtags cached_atags
8960 }
8961 catch {unset cached_dtags}
8962 catch {unset cached_atags}
8963 }
8965 proc addedhead {hid head} {
8966 global arcnos arcout cached_dheads
8971 }
8972 catch {unset cached_dheads}
8973 }
8975 proc removedhead {hid head} {
8976 global cached_dheads
8978 catch {unset cached_dheads}
8979 }
8981 proc movedhead {hid head} {
8982 global arcnos arcout cached_dheads
8987 }
8988 catch {unset cached_dheads}
8989 }
8991 proc changedrefs {} {
8992 global cached_dheads cached_dtags cached_atags
8993 global arctags archeads arcnos arcout idheads idtags
8995 foreach id [concat [array names idheads] [array names idtags]] {
9001 }
9002 }
9003 }
9004 catch {unset cached_dtags}
9005 catch {unset cached_atags}
9006 catch {unset cached_dheads}
9007 }
9009 proc rereadrefs {} {
9010 global idtags idheads idotherrefs mainheadid
9012 set refids [concat [array names idtags] \
9013 [array names idheads] [array names idotherrefs]]
9017 }
9018 }
9020 readrefs
9021 changedrefs
9023 [array names idheads] [array names idotherrefs]]]
9028 }
9029 }
9033 }
9034 run refill_reflist
9035 }
9037 proc listrefs {id} {
9038 global idtags idheads idotherrefs
9040 set x {}
9043 }
9044 set y {}
9047 }
9048 set z {}
9051 }
9053 }
9055 proc showtag {tag isnew} {
9056 global ctext tagcontents tagids linknum tagobjid
9060 }
9062 clear_ctext
9063 settabs 0
9064 set linknum 0
9066 catch {
9068 }
9069 }
9072 } else {
9074 }
9077 init_flist {}
9078 }
9080 proc doquit {} {
9081 global stopped
9082 global gitktmpdir
9084 set stopped 100
9085 savestuff .
9086 destroy .
9088 if {[info exists gitktmpdir]} {
9090 }
9091 }
9093 proc mkfontdisp {font top which} {
9102 }
9104 proc choosefont {font which} {
9105 global fontparam fontlist fonttop fontattr
9113 set top .gitkfont
9116 font create sample
9122 set fontlist [lsort [font families]]
9133 -textvariable fontparam(size) \
9134 -validatecommand {string is integer -strict %s}
9136 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9137 -variable fontparam(weight) -onvalue bold -offvalue normal
9139 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9140 -variable fontparam(slant) -onvalue italic -offvalue roman
9144 -background white
9146 -fill black -tags text
9156 trace add variable fontparam write chg_fontparam
9157 } else {
9160 }
9165 }
9166 }
9168 proc centertext {w} {
9170 }
9172 proc fontok {} {
9173 global fontparam fontpref prefstop
9179 }
9182 }
9186 fontcan
9187 }
9189 proc fontcan {} {
9190 global fonttop fontparam
9192 if {[info exists fonttop]} {
9194 catch {font delete sample}
9195 unset fonttop
9196 unset fontparam
9197 }
9198 }
9200 proc selfontfam {} {
9201 global fonttop fontparam
9206 }
9207 }
9209 proc chg_fontparam {v sub op} {
9210 global fontparam
9213 }
9215 proc doprefs {} {
9216 global maxwidth maxgraphpct
9217 global oldprefs prefstop showneartags showlocalchanges
9218 global bgcolor fgcolor ctext diffcolors selectbgcolor
9219 global tabstop limitdiffs autoselect extdifftool
9221 set top .gitkprefs
9225 return
9226 }
9227 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9228 limitdiffs tabstop} {
9230 }
9237 -font optionfont
9241 -font optionfont
9274 -padx 10
9276 -command choose_extdiff
9303 "diff hunk header" \
9325 }
9327 proc choose_extdiff {} {
9328 global extdifftool
9330 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9333 }
9334 }
9336 proc choosecolor {v vi w x cmd} {
9345 }
9347 proc setselbg {c} {
9348 global bglist cflist
9351 }
9355 }
9357 proc setbg {c} {
9358 global bglist
9362 }
9363 }
9365 proc setfg {c} {
9366 global fglist canv
9370 }
9373 }
9375 proc prefscan {} {
9376 global oldprefs prefstop
9378 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9379 limitdiffs tabstop} {
9382 }
9384 unset prefstop
9385 fontcan
9386 }
9388 proc prefsok {} {
9389 global maxwidth maxgraphpct
9390 global oldprefs prefstop showneartags showlocalchanges
9391 global fontpref mainfont textfont uifont
9392 global limitdiffs treediffs
9395 unset prefstop
9396 fontcan
9397 set fontchanged 0
9401 eval font configure mainfont [fontflags mainfont]
9402 eval font configure mainfontbold [fontflags mainfont 1]
9403 setcoords
9404 set fontchanged 1
9405 }
9409 eval font configure textfont [fontflags textfont]
9410 eval font configure textfontbold [fontflags textfont 1]
9411 }
9415 eval font configure uifont [fontflags uifont]
9416 }
9417 settabs
9420 doshowlocalchanges
9421 } else {
9422 dohidelocalchanges
9423 }
9424 }
9426 # treediffs elements are limited by path
9427 catch {unset treediffs}
9428 }
9431 redisplay
9434 reselectline
9435 }
9436 }
9438 proc formatdate {d} {
9439 global datetimeformat
9442 }
9444 }
9446 # This list of encoding names and aliases is distilled from
9447 # http://www.iana.org/assignments/character-sets.
9448 # Not all of them are supported by Tcl.
9449 set encoding_aliases {
9450 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9451 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9452 { ISO-10646-UTF-1 csISO10646UTF1 }
9453 { ISO_646.basic:1983 ref csISO646basic1983 }
9454 { INVARIANT csINVARIANT }
9455 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9456 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9457 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9458 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9459 { NATS-DANO iso-ir-9-1 csNATSDANO }
9460 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9461 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9462 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9463 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9464 { ISO-2022-KR csISO2022KR }
9465 { EUC-KR csEUCKR }
9466 { ISO-2022-JP csISO2022JP }
9467 { ISO-2022-JP-2 csISO2022JP2 }
9468 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9469 csISO13JISC6220jp }
9470 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9471 { IT iso-ir-15 ISO646-IT csISO15Italian }
9472 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9473 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9474 { greek7-old iso-ir-18 csISO18Greek7Old }
9475 { latin-greek iso-ir-19 csISO19LatinGreek }
9476 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9477 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9478 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9479 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9480 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9481 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9482 { INIS iso-ir-49 csISO49INIS }
9483 { INIS-8 iso-ir-50 csISO50INIS8 }
9484 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9485 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9486 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9487 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9488 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9489 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9490 csISO60Norwegian1 }
9491 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9492 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9493 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9494 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9495 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9496 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9497 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9498 { greek7 iso-ir-88 csISO88Greek7 }
9499 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9500 { iso-ir-90 csISO90 }
9501 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9502 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9503 csISO92JISC62991984b }
9504 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9505 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9506 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9507 csISO95JIS62291984handadd }
9508 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9509 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9510 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9511 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9512 CP819 csISOLatin1 }
9513 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9514 { T.61-7bit iso-ir-102 csISO102T617bit }
9515 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9516 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9517 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9518 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9519 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9520 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9521 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9522 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9523 arabic csISOLatinArabic }
9524 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9525 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9526 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9527 greek greek8 csISOLatinGreek }
9528 { T.101-G2 iso-ir-128 csISO128T101G2 }
9529 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9530 csISOLatinHebrew }
9531 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9532 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9533 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9534 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9535 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9536 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9537 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9538 csISOLatinCyrillic }
9539 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9540 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9541 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9542 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9543 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9544 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9545 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9546 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9547 { ISO_10367-box iso-ir-155 csISO10367Box }
9548 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9549 { latin-lap lap iso-ir-158 csISO158Lap }
9550 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9551 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9552 { us-dk csUSDK }
9553 { dk-us csDKUS }
9554 { JIS_X0201 X0201 csHalfWidthKatakana }
9555 { KSC5636 ISO646-KR csKSC5636 }
9556 { ISO-10646-UCS-2 csUnicode }
9557 { ISO-10646-UCS-4 csUCS4 }
9558 { DEC-MCS dec csDECMCS }
9559 { hp-roman8 roman8 r8 csHPRoman8 }
9560 { macintosh mac csMacintosh }
9561 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9562 csIBM037 }
9563 { IBM038 EBCDIC-INT cp038 csIBM038 }
9564 { IBM273 CP273 csIBM273 }
9565 { IBM274 EBCDIC-BE CP274 csIBM274 }
9566 { IBM275 EBCDIC-BR cp275 csIBM275 }
9567 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9568 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9569 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9570 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9571 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9572 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9573 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9574 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9575 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9576 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9577 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9578 { IBM437 cp437 437 csPC8CodePage437 }
9579 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9580 { IBM775 cp775 csPC775Baltic }
9581 { IBM850 cp850 850 csPC850Multilingual }
9582 { IBM851 cp851 851 csIBM851 }
9583 { IBM852 cp852 852 csPCp852 }
9584 { IBM855 cp855 855 csIBM855 }
9585 { IBM857 cp857 857 csIBM857 }
9586 { IBM860 cp860 860 csIBM860 }
9587 { IBM861 cp861 861 cp-is csIBM861 }
9588 { IBM862 cp862 862 csPC862LatinHebrew }
9589 { IBM863 cp863 863 csIBM863 }
9590 { IBM864 cp864 csIBM864 }
9591 { IBM865 cp865 865 csIBM865 }
9592 { IBM866 cp866 866 csIBM866 }
9593 { IBM868 CP868 cp-ar csIBM868 }
9594 { IBM869 cp869 869 cp-gr csIBM869 }
9595 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9596 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9597 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9598 { IBM891 cp891 csIBM891 }
9599 { IBM903 cp903 csIBM903 }
9600 { IBM904 cp904 904 csIBBM904 }
9601 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9602 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9603 { IBM1026 CP1026 csIBM1026 }
9604 { EBCDIC-AT-DE csIBMEBCDICATDE }
9605 { EBCDIC-AT-DE-A csEBCDICATDEA }
9606 { EBCDIC-CA-FR csEBCDICCAFR }
9607 { EBCDIC-DK-NO csEBCDICDKNO }
9608 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9609 { EBCDIC-FI-SE csEBCDICFISE }
9610 { EBCDIC-FI-SE-A csEBCDICFISEA }
9611 { EBCDIC-FR csEBCDICFR }
9612 { EBCDIC-IT csEBCDICIT }
9613 { EBCDIC-PT csEBCDICPT }
9614 { EBCDIC-ES csEBCDICES }
9615 { EBCDIC-ES-A csEBCDICESA }
9616 { EBCDIC-ES-S csEBCDICESS }
9617 { EBCDIC-UK csEBCDICUK }
9618 { EBCDIC-US csEBCDICUS }
9619 { UNKNOWN-8BIT csUnknown8BiT }
9620 { MNEMONIC csMnemonic }
9621 { MNEM csMnem }
9622 { VISCII csVISCII }
9623 { VIQR csVIQR }
9624 { KOI8-R csKOI8R }
9625 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9626 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9627 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9628 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9629 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9630 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9631 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9632 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9633 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9634 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9635 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9636 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9637 { IBM1047 IBM-1047 }
9638 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9639 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9640 { UNICODE-1-1 csUnicode11 }
9641 { CESU-8 csCESU-8 }
9642 { BOCU-1 csBOCU-1 }
9643 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9644 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9645 l8 }
9646 { ISO-8859-15 ISO_8859-15 Latin-9 }
9647 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9648 { GBK CP936 MS936 windows-936 }
9649 { JIS_Encoding csJISEncoding }
9650 { Shift_JIS MS_Kanji csShiftJIS }
9651 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9652 EUC-JP }
9653 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9654 { ISO-10646-UCS-Basic csUnicodeASCII }
9655 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9656 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9657 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9658 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9659 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9660 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9661 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9662 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9663 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9664 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9665 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9666 { Ventura-US csVenturaUS }
9667 { Ventura-International csVenturaInternational }
9668 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9669 { PC8-Turkish csPC8Turkish }
9670 { IBM-Symbols csIBMSymbols }
9671 { IBM-Thai csIBMThai }
9672 { HP-Legal csHPLegal }
9673 { HP-Pi-font csHPPiFont }
9674 { HP-Math8 csHPMath8 }
9675 { Adobe-Symbol-Encoding csHPPSMath }
9676 { HP-DeskTop csHPDesktop }
9677 { Ventura-Math csVenturaMath }
9678 { Microsoft-Publishing csMicrosoftPublishing }
9679 { Windows-31J csWindows31J }
9680 { GB2312 csGB2312 }
9681 { Big5 csBig5 }
9682 }
9684 proc tcl_encoding {enc} {
9685 global encoding_aliases
9686 set names [encoding names]
9691 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9694 }
9695 }
9700 # look through the aliases for one that tcl knows about
9706 }
9707 }
9709 }
9710 break
9711 }
9712 }
9715 }
9716 return {}
9717 }
9719 # First check that Tcl/Tk is recent enough
9720 if {[catch {package require Tk 8.4} err]} {
9721 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9722 Gitk requires at least Tcl/Tk 8.4."]
9723 exit 1
9724 }
9726 # defaults...
9727 set wrcomcmd "git diff-tree --stdin -p --pretty"
9729 set gitencoding {}
9730 catch {
9731 set gitencoding [exec git config --get i18n.commitencoding]
9732 }
9734 set gitencoding "utf-8"
9735 }
9739 }
9741 set mainfont {Helvetica 9}
9742 set textfont {Courier 9}
9743 set uifont {Helvetica 9 bold}
9744 set tabstop 8
9745 set findmergefiles 0
9746 set maxgraphpct 50
9747 set maxwidth 16
9748 set revlistorder 0
9749 set fastdate 0
9750 set uparrowlen 5
9751 set downarrowlen 5
9752 set mingaplen 100
9753 set cmitmode "patch"
9754 set wrapcomment "none"
9755 set showneartags 1
9756 set maxrefs 20
9757 set maxlinelen 200
9758 set showlocalchanges 1
9759 set limitdiffs 1
9760 set datetimeformat "%Y-%m-%d %H:%M:%S"
9761 set autoselect 1
9763 set extdifftool "meld"
9765 set colors {green red blue magenta darkgrey brown orange}
9766 set bgcolor white
9767 set fgcolor black
9768 set diffcolors {red "#00a000" blue}
9769 set diffcontext 3
9770 set ignorespace 0
9771 set selectbgcolor gray85
9773 set circlecolors {white blue gray blue blue}
9775 ## For msgcat loading, first locate the installation location.
9776 if { [info exists ::env(GITK_MSGSDIR)] } {
9777 ## Msgsdir was manually set in the environment.
9778 set gitk_msgsdir $::env(GITK_MSGSDIR)
9779 } else {
9780 ## Let's guess the prefix from argv0.
9784 unset gitk_prefix
9785 }
9787 ## Internationalization (i18n) through msgcat and gettext. See
9788 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9789 package require msgcat
9790 namespace import ::msgcat::mc
9791 ## And eventually load the actual message catalog
9794 catch {source ~/.gitk}
9796 font create optionfont -family sans-serif -size -12
9799 eval font create mainfont [fontflags mainfont]
9800 eval font create mainfontbold [fontflags mainfont 1]
9803 eval font create textfont [fontflags textfont]
9804 eval font create textfontbold [fontflags textfont 1]
9807 eval font create uifont [fontflags uifont]
9809 setoptions
9811 # check that we can find a .git directory somewhere...
9812 if {[catch {set gitdir [gitdir]}]} {
9813 show_error {} . [mc "Cannot find a git repository here."]
9814 exit 1
9815 }
9818 exit 1
9819 }
9821 set revtreeargs {}
9822 set cmdline_files {}
9823 set i 0
9824 set revtreeargscmd {}
9827 "" { }
9828 "--" {
9830 break
9831 }
9832 "--argscmd=*" {
9834 }
9835 default {
9837 }
9838 }
9839 incr i
9840 }
9843 # no -- on command line, but some arguments (other than --argscmd)
9844 if {[catch {
9849 # Unfortunately git rev-parse doesn't produce an error when
9850 # something is both a revision and a filename. To be consistent
9851 # with git log and git rev-list, check revtreeargs for filenames.
9854 show_error {} . [mc "Ambiguous argument '%s': both revision\
9856 exit 1
9857 }
9858 }
9859 } err]} {
9861 # so look for "fatal:".
9865 }
9867 exit 1
9868 }
9869 }
9871 set nullid "0000000000000000000000000000000000000000"
9872 set nullid2 "0000000000000000000000000000000000000001"
9873 set nullfile "/dev/null"
9877 set runq {}
9878 set history {}
9879 set historyindex 0
9880 set fh_serial 0
9881 set nhl_names {}
9882 set highlight_paths {}
9883 set findpattern {}
9884 set searchdirn -forwards
9885 set boldrows {}
9886 set boldnamerows {}
9887 set diffelide {0 0}
9888 set markingmatches 0
9889 set linkentercount 0
9890 set need_redisplay 0
9891 set nrows_drawn 0
9892 set firsttabstop 0
9894 set nextviewnum 1
9895 set curview 0
9896 set selectedview 0
9897 set selectedhlview [mc "None"]
9898 set highlight_related [mc "None"]
9899 set highlight_files {}
9900 set viewfiles(0) {}
9901 set viewperm(0) 0
9902 set viewargs(0) {}
9903 set viewargscmd(0) {}
9905 set selectedline {}
9906 set numcommits 0
9907 set loginstance 0
9908 set cmdlineok 0
9909 set stopped 0
9910 set stuffsaved 0
9911 set patchnum 0
9912 set lserial 0
9913 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9914 setcoords
9915 makewindow
9916 # wait for the window to become visible
9917 tkwait visibility .
9919 readrefs
9922 # create a view for the files/dirs specified on the command line
9923 set curview 1
9924 set selectedview 1
9925 set nextviewnum 2
9926 set viewname(1) [mc "Command line"]
9930 set viewperm(1) 0
9931 set vdatemode(1) 0
9932 addviewmenu 1
9933 .bar.view entryconf [mc "Edit view..."] -state normal
9934 .bar.view entryconf [mc "Delete view"] -state normal
9935 }
9937 if {[info exists permviews]} {
9940 incr nextviewnum
9947 }
9948 }
9949 focus -force .
9950 getcommits