| blob | d7fea265f3e48a32c11c208749d59f86a8f5bdda |
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 commfd leftover loginstance
100 }
103 global nr_unmerged
105 # find the list of unmerged files
112 exit 1
113 }
119 incr nr_unmerged
122 }
123 }
126 }
128 proc parseviewargs {n arglist} {
129 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
133 set glflags {}
134 set diffargs {}
135 set nextisval 0
136 set revargs {}
138 set allknown 1
139 set filtered 0
140 set i -1
142 incr i
145 set nextisval 0
146 continue
147 }
149 "-d" -
150 "--date-order" {
152 # remove from origargs in case we hit an unknown option
154 incr i -1
155 }
156 # These request or affect diff output, which we don't want.
157 # Some could be used to set our defaults for diff display.
164 lappend diffargs $arg
165 }
166 # These cause our parsing of git log's output to fail, or else
167 # they're options we want to set ourselves, so ignore them.
175 }
176 # These are harmless, and some are even useful
181 lappend glflags $arg
182 }
183 # These mean that we get a subset of the commits
191 lappend glflags $arg
192 }
193 # This appears to be the only one that has a value as a
194 # separate word following it
198 lappend glflags $arg
199 }
202 lappend revargs $arg
203 }
205 lappend revargs $arg
206 }
209 # git rev-parse doesn't understand --merge
210 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
211 }
212 # Other flag arguments including -<n>
217 # a flag argument that we don't recognize;
218 # that means we can't optimize
220 }
221 lappend glflags $arg
222 }
223 # Non-flag arguments specify commits or ranges of commits
224 default {
226 lappend revargs --gitk-symmetric-diff-marker
227 }
228 lappend revargs $arg
229 }
230 }
231 }
238 }
241 global vposids vnegids
244 set revs HEAD
245 }
247 # we get stdout followed by stderr in $err
248 # for an unknown rev, git rev-parse echoes it and then errors out
261 }
264 }
265 break
266 }
267 lappend badrev $line
268 }
269 }
272 }
282 lappend ret $id
285 }
286 }
290 lappend ret $id
293 }
294 lappend pos $id
295 }
296 incr sdm -1
297 }
301 }
303 # Start off a git log process and arrange to read its output
305 global startmsecs commitidx viewcomplete curview
306 global tclencoding
307 global viewargs viewargscmd viewfiles vfilelimit
308 global showlocalchanges commitinterest
309 global viewactive viewinstances vmergeonly
310 global pending_select mainheadid
311 global vcanopt vflags vrevs vorigargs
315 # these are set this way for the error exits
318 varcinit $view
327 }
329 }
336 global nr_unmerged
343 }
345 }
346 }
353 }
357 }
365 }
370 }
374 }
379 }
383 }
386 global commfd leftover
389 catch {
396 }
397 }
399 nukefile $fd
402 }
404 proc stop_backends {} {
405 global commfd
408 stop_instance $inst
409 }
410 }
413 global viewinstances
416 stop_instance $inst
417 }
419 }
421 proc getcommits {} {
422 global canv curview need_redisplay viewactive
424 initlayout
430 }
431 }
433 proc updatecommits {} {
434 global curview vcanopt vorigargs vfilelimit viewinstances
435 global viewactive viewcomplete tclencoding
436 global startmsecs showneartags showlocalchanges
437 global mainheadid pending_select
438 global isworktree
439 global varcid vposids vnegids vflags vrevs
443 rereadrefs
446 dohidelocalchanges
447 }
449 dodiffindex
450 }
451 }
458 return
459 }
460 # note: getting the delta when negative refs change is hard,
461 # and could require multiple git log invocations, so in that
462 # case we ask git log for all the commits (not just the delta)
466 # take out positive refs that we asked for before or
467 # that we have already seen
472 lappend newrevs $rev
473 incr npos
474 }
476 lappend $newrevs $rev
477 }
478 }
482 }
486 }
492 return
493 }
496 }
502 }
509 getallcommits
510 }
511 }
513 proc reloadcommits {} {
514 global curview viewcomplete selectedline currentid thickerline
515 global showneartags treediffs commitinterest cached_commitrow
516 global targetid
519 stop_rev_list $curview
520 }
521 resetvarcs $curview
526 readrefs
527 changedrefs
529 getallcommits
530 }
531 clear_display
535 setcanvscroll
536 getcommits
538 }
540 # This makes a string representation of a positive integer which
541 # sorts as a string in numerical order
549 }
551 }
553 # Procedures used in reordering commits from git log (without
554 # --topo-order) into the order for display.
557 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
558 global vtokmod varcmod vrowmod varcix vlastins
572 }
575 global varcid varccommits parents children vseedcount ordertok
581 }
582 # some commits might have children but haven't been seen yet
585 }
588 }
591 }
593 }
595 # returns a list of the commits with no children
597 global vdownptr vleftptr varcstart
604 }
606 }
609 global varcid varctok parents children vdatemode
610 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
611 global commitdata commitinfo vseedcount varccommits vlastins
618 }
622 }
625 }
631 }
640 }
641 }
646 }
653 }
657 }
664 }
670 }
679 }
682 global varcid varcstart varccommits varctok
683 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
690 # "%" sorts before "0"...
700 }
710 }
711 }
714 global parents children varctok varcstart varccommits
715 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
724 lappend todo $a
729 }
730 }
731 }
732 incr ntot
739 }
740 }
742 }
749 }
755 }
764 }
765 }
770 }
772 continue
773 }
780 }
781 }
786 modify_arc $v $ka
787 }
789 modify_arc $v $b
790 }
797 }
800 }
803 }
812 }
817 }
824 }
828 }
830 }
831 }
836 }
837 }
839 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
840 }
842 # Fix up the graph after we have found out that in view $v,
843 # $p (a commit that we have already seen) is actually the parent
844 # of the last commit in arc $a.
846 global varcid varcstart varctok vupptr
850 splitvarc $p $v
852 }
853 # seeds always need to be renumbered
857 renumbervarc $pa $v
858 }
859 }
862 global cmitlisted children parents varcid varctok vtokmod
863 global varccommits ordertok commitidx numcommits curview
864 global targetid targetrow
866 readcommit $id
874 modify_arc $v $a
875 }
881 }
882 fix_reversal $p $a $v
886 setcanvscroll
889 incr targetrow
890 }
891 }
892 }
893 }
896 global varcid varccommits parents children cmitlisted
897 global commitidx varctok vtokmod targetid targetrow curview numcommits
904 return
905 }
912 # note we deliberately don't update varcstart($v) even if $i == 0
914 modify_arc $v $a $i
917 incr targetrow
918 }
919 }
920 setcanvscroll
921 drawvisible
922 }
925 global varcid varccommits parents children commitidx
926 global varctok vtokmod cmitlisted currentid selectedline
927 global targetid curview numcommits
932 return
933 }
939 return
940 }
950 }
951 modify_arc $v $a $i
953 unset currentid
955 }
958 }
959 setcanvscroll
960 drawvisible
961 }
964 global children nullid nullid2
969 }
970 }
972 }
975 global children nullid nullid2
982 }
983 }
985 }
988 global varctok varcid
992 }
994 # This assumes that if lim is not given, the caller has checked that
995 # arc a's token is less than $vtokmod($v)
997 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1005 }
1006 }
1013 }
1018 }
1020 }
1022 undolayout $r
1023 }
1024 }
1027 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1028 global varcid vrownum varcorder varcix varccommits
1029 global vupptr vdownptr vleftptr varctok
1030 global displayorder parentlist curview cached_commitrow
1037 }
1039 }
1043 # go up the tree until we find something that has a row number,
1044 # or we get to a seed
1046 }
1061 }
1063 }
1067 # go down if possible
1070 # if not, go left, or go up until we can go left
1075 }
1077 }
1079 incr arcn
1084 }
1090 }
1091 }
1093 # Test whether view $v contains commit $id
1095 global varcid
1098 }
1100 # Return the row number for commit $id in the current view
1102 global varcid varccommits varcrow curview cached_commitrow
1103 global varctok vtokmod
1109 }
1112 update_arcrows $v
1113 }
1116 }
1121 }
1125 }
1127 # Returns 1 if a is on an earlier row than b, otherwise 0
1129 global varcid varctok curview
1135 }
1139 }
1141 }
1146 }
1158 }
1159 }
1161 }
1163 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1165 global vrownum curview commitidx displayorder parentlist
1166 global varccommits varcorder parents vrowmod varcrow
1167 global d_valid_start d_valid_end
1170 update_arcrows $curview
1171 }
1187 }
1189 lappend displayorder $id
1191 }
1195 lset displayorder $i $id
1197 incr i
1198 }
1199 }
1200 incr r $al
1201 }
1202 }
1205 global displayorder
1211 }
1213 }
1216 global varctok varccommits varcid parents children
1217 global cmitlisted commitidx commitinterest vtokmod
1226 # add p as a new commit
1227 incr missing_parents
1235 }
1238 modify_arc $v $b
1239 }
1245 }
1247 }
1248 }
1249 }
1253 }
1254 }
1255 }
1257 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1258 # Assumes we already have an arc for $rwid.
1260 global children parents varcid varctok vtokmod varccommits
1263 # make $rwid be $ch's parent in place of $id
1267 }
1269 # add $ch to $rwid's children and sort the list if necessary
1273 }
1274 # fix the graph after joining $id to $rwid
1276 fix_reversal $rwid $a $v
1277 # parentlist is wrong for the last element of arc $a
1278 # even if displayorder is right, hence the 3rd arg here
1280 }
1281 }
1284 global cmitlisted commitinterest leftover
1285 global commitidx commitdata vdatemode
1286 global parents children curview hlview
1287 global idpending ordertok
1288 global varccommits varcid varctok vtokmod vfilelimit
1291 # git log doesn't terminate the last commit with a null...
1294 }
1298 }
1299 global commfd viewcomplete viewactive viewname
1300 global viewinstances
1305 }
1306 # set it blocking so we wait for the process to terminate
1312 }
1315 bad arguments to git log."
1317 append err \
1318 " (Note: arguments to gitk are passed to git log\
1319 to allow selection of commits to be displayed.)"
1320 }
1323 }
1324 error_popup $err
1325 }
1328 # Check if we have seen any ids listed as parents that haven't
1329 # appeared in the list
1330 closevarcs $view
1331 notbusy $view
1332 }
1334 run chewcommits
1335 }
1337 }
1345 break
1346 }
1353 }
1366 }
1368 }
1373 break
1374 }
1375 }
1376 }
1381 }
1383 exit 1
1384 }
1391 # when doing path limiting, so work around that here
1392 # by working out the rewritten parent with git rev-list
1393 # and if we already know about it, using the rewritten
1394 # parent as a substitute parent for $id's children.
1398 }]} {
1400 # use $rwid in place of $id
1401 rewrite_commit $view $id $rwid
1402 continue
1403 }
1404 }
1405 }
1411 }
1416 }
1428 }
1429 }
1431 # new arc
1433 }
1435 modify_arc $view $a
1436 }
1441 }
1452 }
1454 fix_reversal $p $a $view
1455 }
1456 }
1457 incr i
1458 }
1463 }
1465 }
1467 }
1469 global numcommits hlview
1473 run chewcommits
1474 }
1476 # we never actually get here...
1477 run vhighlightmore
1478 }
1481 }
1482 }
1484 }
1486 proc chewcommits {} {
1487 global curview hlview viewcomplete
1488 global pending_select
1490 layoutmore
1492 global commitidx varctok
1493 global numcommits startmsecs
1498 }
1500 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1501 #puts "overall $ms ms for $numcommits commits"
1502 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1505 }
1506 notbusy layout
1507 }
1509 }
1514 }
1517 global commitinfo cdate
1528 # should never happen...
1530 }
1541 }
1542 }
1544 # take the first non-blank line of the comment as the headline
1549 }
1554 }
1556 # git log indents the comment by 4 spaces;
1557 # if we got this via git cat-file, add the indentation
1560 append newcomment " "
1561 append newcomment $line
1563 }
1565 }
1568 }
1571 }
1574 global commitdata commitinfo
1579 readcommit $id
1582 }
1583 }
1585 }
1587 proc readrefs {} {
1588 global tagids idtags headids idheads tagobjid
1589 global otherrefids idotherrefs mainhead mainheadid
1593 }
1605 }
1611 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1612 # which is what we want since the former is the commit ID
1618 }
1624 }
1625 }
1629 catch {
1634 }
1635 }
1636 }
1638 # skip over fake commits
1639 proc first_real_row {} {
1640 global nullid nullid2 numcommits
1645 break
1646 }
1647 }
1649 }
1651 # update things for a head moved to a child of its previous location
1653 global headids idheads
1658 }
1660 # update things when a head has been removed
1662 global headids idheads
1670 }
1671 }
1673 }
1682 tkwait window $top
1683 }
1685 proc error_popup msg {
1686 set w .error
1687 toplevel $w
1688 wm transient $w .
1689 show_error $w $w $msg
1690 }
1692 proc confirm_popup msg {
1693 global confirm_ok
1695 set w .confirm
1696 toplevel $w
1697 wm transient $w .
1705 tkwait window $w
1707 }
1709 proc setoptions {} {
1711 option add *Panedwindow.sashRelief raised startupFile
1712 option add *Button.font uifont startupFile
1713 option add *Checkbutton.font uifont startupFile
1714 option add *Radiobutton.font uifont startupFile
1715 option add *Menu.font uifont startupFile
1716 option add *Menubutton.font uifont startupFile
1717 option add *Label.font uifont startupFile
1718 option add *Message.font uifont startupFile
1719 option add *Entry.font uifont startupFile
1720 }
1722 proc makewindow {} {
1723 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1724 global tabstop
1725 global findtype findtypemenu findloc findstring fstring geometry
1726 global entries sha1entry sha1string sha1but
1727 global diffcontextstring diffcontext
1728 global ignorespace
1729 global maincursor textcursor curtextcursor
1730 global rowctxmenu fakerowmenu mergemax wrapcomment
1731 global highlight_files gdttype
1732 global searchstring sstring
1733 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1734 global headctxmenu progresscanv progressitem progresscoords statusw
1735 global fprogitem fprogcoord lastprogupdate progupdatepending
1736 global rprogitem rprogcoord rownumsel numcommits
1737 global have_tk85
1739 menu .bar
1741 menu .bar.file
1747 menu .bar.edit
1751 menu .bar.view
1755 -state disabled
1757 .bar.view add separator
1761 menu .bar.help
1765 .bar.help configure
1766 . configure -menu .bar
1768 # the gui has upper and lower half, parts of a paned window.
1769 panedwindow .ctop -orient vertical
1771 # possibly use assumed geometry
1779 }
1781 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1783 frame .tf.histframe
1786 # create three canvases
1787 set cscroll .tf.histframe.csb
1788 set canv .tf.histframe.pwclist.canv
1789 canvas $canv \
1793 .tf.histframe.pwclist add $canv
1794 set canv2 .tf.histframe.pwclist.canv2
1795 canvas $canv2 \
1798 .tf.histframe.pwclist add $canv2
1799 set canv3 .tf.histframe.pwclist.canv3
1800 canvas $canv3 \
1803 .tf.histframe.pwclist add $canv3
1807 # a scroll bar to rule them
1811 lappend bglist $canv $canv2 $canv3
1814 # we have two button bars at bottom of top frame. Bar 1
1815 frame .tf.bar
1818 set sha1entry .tf.bar.sha1
1820 set sha1but .tf.bar.sha1label
1824 pack .tf.bar.sha1label -side left
1826 trace add variable sha1string write sha1change
1830 #define left_width 16
1831 #define left_height 16
1832 static unsigned char left_bits[] = {
1836 }
1838 #define right_width 16
1839 #define right_height 16
1840 static unsigned char right_bits[] = {
1844 }
1859 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1860 -side left
1861 global selectedline
1862 trace add variable selectedline write selectedline_change
1864 # Status label and progress bar
1865 set statusw .tf.bar.status
1869 set progresscanv .tf.bar.progress
1882 # build up the bottom bar of upper window
1887 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
1894 trace add variable gdttype write gdttype_change
1898 set fstring .tf.lbar.findstring
1899 lappend entries $fstring
1901 trace add variable findstring write find_change
1905 trace add variable findtype write findcom_change
1909 trace add variable findloc write find_change
1910 pack .tf.lbar.findloc -side right
1911 pack .tf.lbar.findtype -side right
1914 # Finish putting the upper half of the viewer together
1918 .ctop add .tf
1922 # now build up the bottom
1923 panedwindow .pwbottom -orient horizontal
1925 # lower left, a text box over search bar, scroll bar to the right
1926 # if we know window height, then that will set the lower text height, otherwise
1927 # we set lower text height which will drive window height
1932 }
1933 frame .bleft.top
1934 frame .bleft.mid
1935 frame .bleft.bottom
1939 set sstring .bleft.top.sstring
1941 lappend entries $sstring
1942 trace add variable searchstring write incrsearch
1955 -textvariable diffcontextstring
1957 trace add variable diffcontextstring write diffcontextchange
1958 lappend entries .bleft.mid.diffcontext
1959 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
1963 set ctext .bleft.bottom.ctext
1970 }
1977 grid .bleft.bottom.sbhorizontal -sticky ew
1982 lappend bglist $ctext
1983 lappend fglist $ctext
2012 .pwbottom add .bleft
2015 # lower right
2016 frame .bright
2017 frame .bright.mode
2024 set cflist .bright.cfiles
2026 text $cflist \
2029 -font mainfont \
2034 lappend bglist $cflist
2035 lappend fglist $cflist
2039 $cflist tag configure highlight \
2043 .pwbottom add .bright
2044 .ctop add .pwbottom
2046 # restore window width & height if known
2051 }
2054 }
2056 }
2057 }
2060 set M1B M1
2062 set M1B Control
2063 }
2068 #bindall <B1-Motion> {selcanvline %W %x %y}
2078 allcanvs yview scroll $delta units
2079 }
2080 }
2081 }
2103 bindkey p "selnextline -1"
2104 bindkey n "selnextline 1"
2105 bindkey z "goback"
2106 bindkey x "goforw"
2107 bindkey i "selnextline -1"
2108 bindkey k "selnextline 1"
2109 bindkey j "goback"
2110 bindkey l "goforw"
2111 bindkey b prevfile
2117 bindkey f nextfile
2129 wm protocol . WM_DELETE_WINDOW doquit
2140 set maincursor [. cget -cursor]
2144 set rowctxmenu .rowctxmenu
2147 -command {diffvssel 0}
2149 -command {diffvssel 1}
2155 -command cherrypick
2157 -command resethead
2159 set fakerowmenu .fakerowmenu
2162 -command {diffvssel 0}
2164 -command {diffvssel 1}
2170 set headctxmenu .headctxmenu
2173 -command cobranch
2175 -command rmbranch
2177 global flist_menu
2178 set flist_menu .flistctxmenu
2181 -command {flist_hl 0}
2183 -command {flist_hl 1}
2185 -command {external_diff}
2186 }
2188 # Windows sends all mouse wheel events to the current focused window, not
2189 # the one where the mouse hovers, so bind those events here and redirect
2190 # to the correct window
2191 proc windows_mousewheel_redirector {W X Y D} {
2192 global canv canv2 canv3
2198 } else {
2199 catch {
2201 }
2202 }
2203 }
2204 }
2206 # Update row number label when selectedline changes
2207 proc selectedline_change {n1 n2 op} {
2208 global selectedline rownumsel
2211 set rownumsel {}
2212 } else {
2214 }
2215 }
2217 # mouse-2 makes all windows scan vertically, but only the one
2218 # the cursor is in scans horizontally
2219 proc canvscan {op w x y} {
2220 global canv canv2 canv3
2224 } else {
2226 }
2227 }
2228 }
2230 proc scrollcanv {cscroll f0 f1} {
2232 drawvisible
2233 flushhighlights
2234 }
2236 # when we make a key binding for the toplevel, make sure
2237 # it doesn't get triggered when that key is pressed in the
2238 # find string entry widget.
2239 proc bindkey {ev script} {
2240 global entries
2244 set escript [bind Entry <Key>]
2245 }
2248 }
2249 }
2251 # set the focus back to the toplevel for any click outside
2252 # the entry widgets
2253 proc click {w} {
2254 global ctext entries
2257 }
2258 focus .
2259 }
2261 # Adjust the progress bar for a change in requested extent or canvas size
2262 proc adjustprogress {} {
2263 global progresscanv progressitem progresscoords
2264 global fprogitem fprogcoord lastprogupdate progupdatepending
2265 global rprogitem rprogcoord
2274 set now [clock clicks -milliseconds]
2276 set progupdatepending 0
2277 update
2279 set progupdatepending 1
2281 }
2282 }
2284 proc doprogupdate {} {
2285 global lastprogupdate progupdatepending
2288 set progupdatepending 0
2289 set lastprogupdate [clock clicks -milliseconds]
2290 update
2291 }
2292 }
2294 proc savestuff {w} {
2295 global canv canv2 canv3 mainfont textfont uifont tabstop
2296 global stuffsaved findmergefiles maxgraphpct
2297 global maxwidth showneartags showlocalchanges
2298 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2299 global cmitmode wrapcomment datetimeformat limitdiffs
2300 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2301 global autoselect extdifftool
2304 if {![winfo viewable .]} return
2305 catch {
2306 set f [open "~/.gitk-new" w]
2341 }
2342 }
2345 file rename -force "~/.gitk-new" "~/.gitk"
2346 }
2347 set stuffsaved 1
2348 }
2350 proc resizeclistpanes {win w} {
2351 global oldwidth
2358 } else {
2363 set sash0 30
2364 }
2367 }
2372 }
2373 }
2374 }
2377 }
2379 }
2381 proc resizecdetpanes {win w} {
2382 global oldwidth
2387 } else {
2391 set sash0 45
2392 }
2395 }
2396 }
2398 }
2400 }
2402 proc allcanvs args {
2403 global canv canv2 canv3
2407 }
2409 proc bindall {event action} {
2410 global canv canv2 canv3
2414 }
2416 proc about {} {
2417 global uifont
2418 set w .about
2421 return
2422 }
2426 Gitk - a commit viewer for git
2428 Copyright © 2005-2008 Paul Mackerras
2430 Use and redistribute under the terms of the GNU General Public License"] \
2431 -justify center -aspect 400 -border 2 -bg white -relief groove
2438 }
2440 proc keys {} {
2441 set w .keys
2444 return
2445 }
2446 if {[tk windowingsystem] eq {aqua}} {
2447 set M1T Cmd
2448 } else {
2449 set M1T Ctrl
2450 }
2454 [mc "Gitk key bindings:"]
2457 [mc "<Home> Move to first commit"]
2458 [mc "<End> Move to last commit"]
2459 [mc "<Up>, p, i Move up one commit"]
2460 [mc "<Down>, n, k Move down one commit"]
2461 [mc "<Left>, z, j Go back in history list"]
2462 [mc "<Right>, x, l Go forward in history list"]
2463 [mc "<PageUp> Move up one page in commit list"]
2464 [mc "<PageDown> Move down one page in commit list"]
2471 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2472 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2473 [mc "<Delete>, b Scroll diff view up one page"]
2474 [mc "<Backspace> Scroll diff view up one page"]
2475 [mc "<Space> Scroll diff view down one page"]
2476 [mc "u Scroll diff view up 18 lines"]
2477 [mc "d Scroll diff view down 18 lines"]
2480 [mc "<Return> Move to next find hit"]
2481 [mc "/ Move to next find hit, or redo find"]
2482 [mc "? Move to previous find hit"]
2483 [mc "f Scroll diff view to next file"]
2490 [mc "<F5> Update"]
2491 " \
2492 -justify left -bg white -border 2 -relief groove
2499 }
2501 # Procedures for manipulating the file list window at the
2502 # bottom right of the overall window.
2504 proc treeview {w l openlevs} {
2505 global treecontents treediropen treeheight treeparent treeindex
2507 set ix 0
2508 set treeindex() 0
2509 set lev 0
2510 set prefix {}
2511 set prefixend -1
2512 set prefendstack {}
2513 set htstack {}
2514 set ht 0
2515 set treecontents() {}
2522 }
2529 incr lev -1
2530 }
2534 set ht 0
2546 set ht 1
2551 set str "\n"
2559 }
2560 incr lev
2561 }
2564 incr ht
2565 set str "\n"
2569 }
2571 }
2572 }
2580 }
2582 }
2584 proc linetoelt {l} {
2585 global treeheight treecontents
2587 set y 2
2588 set prefix {}
2589 while {1} {
2593 }
2594 set n 1
2599 incr y
2600 break
2601 }
2602 }
2604 }
2605 }
2606 }
2608 proc highlight_tree {y prefix} {
2609 global treeheight treecontents cflist
2615 }
2616 incr y
2619 }
2620 }
2622 }
2624 proc treeclosedir {w dir} {
2625 global treediropen treeheight treeparent treeindex
2637 }
2638 }
2640 proc treeopendir {w dir} {
2641 global treediropen treeheight treeparent treecontents treeindex
2648 set lev 0
2649 set str "\n"
2652 incr lev
2653 append str "\t"
2655 }
2670 } else {
2673 }
2674 }
2687 }
2689 }
2690 }
2692 proc treeclick {w x y} {
2693 global treediropen cmitmode ctext cflist cflist_top
2696 if {![info exists cflist_top]} return
2703 return
2704 }
2710 } else {
2712 }
2713 }
2715 proc setfilelist {id} {
2716 global treefilelist cflist
2719 }
2721 image create bitmap tri-rt -background black -foreground blue -data {
2722 #define tri-rt_width 13
2723 #define tri-rt_height 13
2724 static unsigned char tri-rt_bits[] = {
2725 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2726 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2727 0x00, 0x00};
2728 } -maskdata {
2729 #define tri-rt-mask_width 13
2730 #define tri-rt-mask_height 13
2731 static unsigned char tri-rt-mask_bits[] = {
2732 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2733 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2734 0x08, 0x00};
2735 }
2736 image create bitmap tri-dn -background black -foreground blue -data {
2737 #define tri-dn_width 13
2738 #define tri-dn_height 13
2739 static unsigned char tri-dn_bits[] = {
2740 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2741 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2742 0x00, 0x00};
2743 } -maskdata {
2744 #define tri-dn-mask_width 13
2745 #define tri-dn-mask_height 13
2746 static unsigned char tri-dn-mask_bits[] = {
2747 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2748 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2749 0x00, 0x00};
2750 }
2752 image create bitmap reficon-T -background black -foreground yellow -data {
2753 #define tagicon_width 13
2754 #define tagicon_height 9
2755 static unsigned char tagicon_bits[] = {
2756 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2757 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2758 } -maskdata {
2759 #define tagicon-mask_width 13
2760 #define tagicon-mask_height 9
2761 static unsigned char tagicon-mask_bits[] = {
2762 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2763 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2764 }
2765 set rectdata {
2766 #define headicon_width 13
2767 #define headicon_height 9
2768 static unsigned char headicon_bits[] = {
2769 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2770 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2771 }
2772 set rectmask {
2773 #define headicon-mask_width 13
2774 #define headicon-mask_height 9
2775 static unsigned char headicon-mask_bits[] = {
2776 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2777 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2778 }
2779 image create bitmap reficon-H -background black -foreground green \
2781 image create bitmap reficon-o -background black -foreground "#ddddff" \
2784 proc init_flist {first} {
2785 global cflist cflist_top difffilestart
2791 set cflist_top 1
2793 } else {
2794 catch {unset cflist_top}
2795 }
2797 set difffilestart {}
2798 }
2800 proc highlight_tag {f} {
2801 global highlight_paths
2805 return "bold"
2806 }
2807 }
2808 return {}
2809 }
2811 proc highlight_filelist {} {
2812 global cmitmode cflist
2821 }
2822 }
2823 } else {
2824 highlight_tree 2 {}
2825 }
2827 }
2829 proc unhighlight_filelist {} {
2830 global cflist
2835 }
2837 proc add_flist {fl} {
2838 global cflist
2844 }
2846 }
2848 proc sel_flist {w x y} {
2849 global ctext difffilestart cflist cflist_top cmitmode
2852 if {![info exists cflist_top]} return
2859 } else {
2861 }
2862 }
2864 proc pop_flist_menu {w X Y x y} {
2865 global ctext cflist cmitmode flist_menu flist_menu_file
2866 global treediffs diffids
2868 stopfinding
2874 } else {
2876 }
2878 set xdiffstate "normal"
2880 set xdiffstate "disabled"
2881 }
2882 # Disable "External diff" item in tree mode
2885 }
2887 proc flist_hl {only} {
2888 global flist_menu_file findstring gdttype
2893 } else {
2895 }
2896 set gdttype [mc "touching paths:"]
2897 }
2899 proc save_file_from_commit {filename output what} {
2900 global nullfile
2905 }
2907 return {}
2908 }
2910 }
2912 proc external_diff_get_one_file {diffid filename diffdir} {
2913 global nullid nullid2 nullfile
2914 global gitdir
2920 }
2922 }
2926 }
2930 }
2932 proc external_diff {} {
2933 global gitktmpdir nullid nullid2
2934 global flist_menu_file
2935 global diffids
2936 global diffnum
2937 global gitdir extdifftool
2940 # no reference commit given
2943 # diffing working copy with index
2946 # diffing index with HEAD
2947 set diffidfrom "HEAD"
2948 } else {
2949 # use first parent commit
2950 global parentlist selectedline
2952 }
2953 } else {
2956 }
2958 # make sure that several diffs wont collide
2959 if {![info exists gitktmpdir]} {
2961 [format ".gitk-tmp.%s" [pid]]]
2964 unset gitktmpdir
2965 return
2966 }
2967 set diffnum 0
2968 }
2969 incr diffnum
2973 return
2974 }
2976 # gather files to diff
2986 } else {
2989 }
2990 }
2991 }
2994 proc delete_at_eof {f dir} {
2999 }
3001 return 0
3002 }
3003 return 1
3004 }
3006 # Functions for adding and removing shell-type quoting
3008 proc shellquote {str} {
3011 }
3014 }
3017 }
3019 }
3021 proc shellarglist {l} {
3022 set str {}
3025 append str " "
3026 }
3028 }
3030 }
3032 proc shelldequote {str} {
3033 set ret {}
3034 set used -1
3035 while {1} {
3036 incr used
3040 break
3041 }
3047 }
3049 incr used
3053 error "unmatched single-quote"
3054 }
3057 continue
3058 }
3061 error "trailing backslash"
3062 }
3064 continue
3065 }
3066 # here ch == "\""
3067 while {1} {
3069 error "unmatched double-quote"
3070 }
3076 }
3078 incr used
3080 incr used
3081 }
3082 }
3084 }
3086 proc shellsplit {str} {
3087 set l {}
3088 while {1} {
3096 }
3098 }
3100 # Code to implement multiple views
3102 proc newview {ishighlight} {
3103 global nextviewnum newviewname newviewperm newishighlight
3104 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3107 set top .gitkview
3110 return
3111 }
3117 }
3119 proc editview {} {
3120 global curview
3121 global viewname viewperm newviewname newviewperm
3122 global viewargs newviewargs viewargscmd newviewargscmd
3127 return
3128 }
3134 }
3136 proc vieweditor {top n title} {
3137 global newviewname newviewperm viewfiles bgcolor
3148 -text [mc "Commits to include (arguments to git log):"]
3155 -text [mc "Command to generate more commits to include:"]
3158 -background white
3162 -text [mc "Enter files and directories to include, one per line:"]
3169 }
3172 }
3182 }
3184 proc doviewmenu {m first cmd op argv} {
3189 break
3190 }
3191 }
3192 }
3194 proc allviewmenus {n op args} {
3195 # global viewhlmenu
3199 }
3201 proc newviewok {top n} {
3202 global nextviewnum newviewperm newviewname newishighlight
3203 global viewname viewfiles viewperm selectedview curview
3204 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3206 if {[catch {
3208 } err]} {
3212 return
3213 }
3214 set files {}
3219 }
3220 }
3222 # creating a new view
3223 incr nextviewnum
3232 } else {
3234 }
3235 } else {
3236 # editing an existing view
3244 }
3251 run reloadcommits
3252 }
3253 }
3254 }
3256 }
3258 proc delview {} {
3259 global curview viewperm hlview selectedhlview
3263 set selectedhlview [mc "None"]
3264 unset hlview
3265 }
3268 showview 0
3269 }
3271 proc addviewmenu {n} {
3272 global viewname viewhlmenu
3278 }
3280 proc showview {n} {
3281 global curview cached_commitrow ordertok
3282 global displayorder parentlist rowidlist rowisopt rowfinal
3283 global colormap rowtextx nextcolor canvxmax
3284 global numcommits viewcomplete
3285 global selectedline currentid canv canvy0
3286 global treediffs
3287 global pending_select mainheadid
3288 global commitidx
3289 global selectedview
3290 global hlview selectedhlview commitinterest
3293 set selid {}
3304 }
3305 } elseif {[info exists pending_select]} {
3307 unset pending_select
3308 }
3309 unselectline
3310 normalline
3311 catch {unset treediffs}
3312 clear_display
3314 unset hlview
3315 set selectedhlview [mc "None"]
3316 }
3317 catch {unset commitinterest}
3318 catch {unset cached_commitrow}
3319 catch {unset ordertok}
3326 run refill_reflist
3330 }
3331 getcommits
3332 return
3333 }
3335 set displayorder {}
3336 set parentlist {}
3337 set rowidlist {}
3338 set rowisopt {}
3339 set rowfinal {}
3342 catch {unset colormap}
3343 catch {unset rowtextx}
3344 set nextcolor 0
3347 set row 0
3348 setcanvscroll
3349 set yf 0
3350 set row {}
3353 # try to get the selected row in the same position on the screen
3357 set ytop 0
3358 }
3360 }
3362 drawvisible
3370 } else {
3372 }
3373 } else {
3374 set row [first_real_row]
3377 }
3378 }
3381 show_status [mc "Reading commits..."]
3382 }
3384 show_status [mc "No commits selected"]
3385 }
3386 }
3388 # Stuff relating to the highlighting facility
3390 proc ishighlighted {id} {
3391 global vhighlights fhighlights nhighlights rhighlights
3395 }
3398 }
3401 }
3404 }
3405 return 0
3406 }
3408 proc bolden {row font} {
3409 global canv linehtag selectedline boldrows
3416 -outline {{}} -tags secsel \
3419 }
3420 }
3422 proc bolden_name {row font} {
3423 global canv2 linentag selectedline boldnamerows
3430 -outline {{}} -tags secsel \
3433 }
3434 }
3436 proc unbolden {} {
3437 global boldrows
3439 set stillbold {}
3443 } else {
3445 }
3446 }
3448 }
3450 proc addvhighlight {n} {
3451 global hlview viewcomplete curview vhl_done commitidx
3453 if {[info exists hlview]} {
3454 delvhighlight
3455 }
3459 }
3462 drawvisible
3463 }
3464 }
3466 proc delvhighlight {} {
3467 global hlview vhighlights
3469 if {![info exists hlview]} return
3470 unset hlview
3471 catch {unset vhighlights}
3472 unbolden
3473 }
3475 proc vhighlightmore {} {
3476 global hlview vhl_done commitidx vhighlights curview
3479 set vr [visiblerows]
3489 }
3491 }
3492 }
3493 }
3495 return 0
3496 }
3498 proc askvhighlight {row id} {
3499 global hlview vhighlights iddrawn
3504 }
3506 } else {
3508 }
3509 }
3511 proc hfiles_change {} {
3512 global highlight_files filehighlight fhighlights fh_serial
3513 global highlight_paths gdttype
3515 if {[info exists filehighlight]} {
3516 # delete previous highlights
3518 unset filehighlight
3519 catch {unset fhighlights}
3520 unbolden
3521 unhighlight_filelist
3522 }
3523 set highlight_paths {}
3525 incr fh_serial
3528 }
3529 }
3531 proc gdttype_change {name ix op} {
3532 global gdttype highlight_files findstring findpattern
3534 stopfinding
3538 set highlight_files {}
3539 hfiles_change
3540 }
3541 findcom_change
3542 } else {
3544 set findpattern {}
3545 findcom_change
3546 }
3548 hfiles_change
3549 }
3550 drawvisible
3551 }
3552 # enable/disable findtype/findloc menus too
3553 }
3555 proc find_change {name ix op} {
3556 global gdttype findstring highlight_files
3558 stopfinding
3560 findcom_change
3561 } else {
3564 hfiles_change
3565 }
3566 }
3567 drawvisible
3568 }
3570 proc findcom_change args {
3571 global nhighlights boldnamerows
3572 global findpattern findtype findstring gdttype
3574 stopfinding
3575 # delete previous highlights, if any
3578 }
3579 set boldnamerows {}
3580 catch {unset nhighlights}
3581 unbolden
3582 unmarkmatches
3584 set findpattern {}
3587 } else {
3588 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3591 }
3592 }
3594 proc makepatterns {l} {
3595 set ret {}
3600 } else {
3603 }
3604 }
3606 }
3608 proc do_file_hl {serial} {
3609 global highlight_files filehighlight highlight_paths gdttype fhl_list
3614 highlight_filelist
3618 } else {
3619 # must be "containing:", i.e. we're searching commit info
3620 return
3621 }
3626 set fhl_list {}
3627 drawvisible
3628 flushhighlights
3629 }
3631 proc flushhighlights {} {
3632 global filehighlight fhl_list
3634 if {[info exists filehighlight]} {
3635 lappend fhl_list {}
3638 }
3639 }
3641 proc askfilehighlight {row id} {
3642 global filehighlight fhighlights fhl_list
3647 }
3649 proc readfhighlight {} {
3650 global filehighlight fhighlights curview iddrawn
3651 global fhl_list find_dirn
3653 if {![info exists filehighlight]} {
3654 return 0
3655 }
3656 set nr 0
3664 }
3671 }
3673 }
3675 # strange...
3676 puts "oops, git diff-tree died"
3678 unset filehighlight
3679 return 0
3680 }
3681 if {[info exists find_dirn]} {
3682 run findmore
3683 }
3684 return 1
3685 }
3687 proc doesmatch {f} {
3688 global findtype findpattern
3694 } else {
3696 }
3697 }
3699 proc askfindhighlight {row id} {
3700 global nhighlights commitinfo iddrawn
3701 global findloc
3702 global markingmatches
3706 }
3708 set isbold 0
3709 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3714 set isbold 2
3715 break
3716 }
3717 set isbold 1
3718 }
3719 }
3725 }
3726 }
3729 }
3730 }
3732 }
3734 proc markrowmatches {row id} {
3735 global canv canv2 linehtag linentag commitinfo findloc
3746 }
3747 }
3753 }
3754 }
3755 }
3757 proc vrel_change {name ix op} {
3758 global highlight_related
3760 rhighlight_none
3762 run drawvisible
3763 }
3764 }
3766 # prepare for testing whether commits are descendents or ancestors of a
3767 proc rhighlight_sel {a} {
3768 global descendent desc_todo ancestor anc_todo
3769 global highlight_related
3771 catch {unset descendent}
3773 catch {unset ancestor}
3776 rhighlight_none
3777 run drawvisible
3778 }
3779 }
3781 proc rhighlight_none {} {
3782 global rhighlights
3784 catch {unset rhighlights}
3785 unbolden
3786 }
3788 proc is_descendent {a} {
3789 global curview children descendent desc_todo
3794 set leftover {}
3795 set done 0
3800 continue
3801 }
3807 set done 1
3808 }
3809 }
3810 }
3813 return
3814 }
3815 }
3818 }
3820 proc is_ancestor {a} {
3821 global curview parents ancestor anc_todo
3826 set leftover {}
3827 set done 0
3832 continue
3833 }
3839 set done 1
3840 }
3841 }
3842 }
3845 return
3846 }
3847 }
3850 }
3852 proc askrelhighlight {row id} {
3853 global descendent highlight_related iddrawn rhighlights
3854 global selectedline ancestor
3857 set isbold 0
3862 }
3864 set isbold 1
3865 }
3870 }
3872 set isbold 1
3873 }
3874 }
3878 }
3879 }
3881 }
3883 # Graph layout functions
3885 proc shortids {ids} {
3886 set res {}
3892 } else {
3894 }
3895 }
3897 }
3899 proc ntimes {n o} {
3900 set ret {}
3905 }
3907 }
3909 }
3911 proc ordertoken {id} {
3912 global ordertok curview varcid varcstart varctok curview parents children
3913 global nullid nullid2
3917 }
3919 set todo {}
3920 while {1} {
3924 } else {
3926 }
3929 break
3930 }
3933 # it's a root
3935 break
3936 }
3939 } else {
3943 }
3945 }
3946 }
3951 }
3954 }
3956 # Work out where id should go in idlist so that order-token
3957 # values increase from left to right
3958 proc idcol {idlist id {i 0}} {
3961 set i 0
3962 }
3966 }
3968 incr i
3969 } else {
3973 }
3974 }
3976 }
3978 proc initlayout {} {
3979 global rowidlist rowisopt rowfinal displayorder parentlist
3980 global numcommits canvxmax canv
3981 global nextcolor
3982 global colormap rowtextx
3984 set numcommits 0
3985 set displayorder {}
3986 set parentlist {}
3987 set nextcolor 0
3988 set rowidlist {}
3989 set rowisopt {}
3990 set rowfinal {}
3992 catch {unset colormap}
3993 catch {unset rowtextx}
3994 setcanvscroll
3995 }
3997 proc setcanvscroll {} {
3998 global canv canv2 canv3 numcommits linespc canvxmax canvy0
3999 global lastscrollset lastscrollrows
4005 set lastscrollset [clock clicks -milliseconds]
4007 }
4009 proc visiblerows {} {
4010 global canv numcommits linespc
4018 set r0 0
4019 }
4024 }
4026 }
4028 proc layoutmore {} {
4029 global commitidx viewcomplete curview
4030 global numcommits pending_select curview
4031 global lastscrollset lastscrollrows commitinterest
4035 setcanvscroll
4036 }
4037 if {[info exists pending_select] &&
4040 }
4041 drawvisible
4042 }
4044 proc doshowlocalchanges {} {
4045 global curview mainheadid
4049 dodiffindex
4050 } else {
4052 }
4053 }
4055 proc dohidelocalchanges {} {
4056 global nullid nullid2 lserial curview
4060 }
4063 }
4064 incr lserial
4065 }
4067 # spawn off a process to do git diff-index --cached HEAD
4068 proc dodiffindex {} {
4069 global lserial showlocalchanges
4070 global isworktree
4073 incr lserial
4074 set fd [open "|git diff-index --cached HEAD" r]
4078 }
4080 proc readdiffindex {fd serial inst} {
4081 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4083 set isdiff 1
4086 return 1
4087 }
4088 set isdiff 0
4089 }
4090 # we only need to see one line and we don't really care what it says...
4094 return 0
4095 }
4097 # now see if there are any local changes not checked in to the index
4098 set fd [open "|git diff-files" r]
4104 # add the line for the changes in the index to the graph
4105 set hl [mc "Local changes checked in to index but not committed"]
4110 }
4114 }
4115 return 0
4116 }
4118 proc readdifffiles {fd serial inst} {
4119 global mainheadid nullid nullid2 curview
4120 global commitinfo commitdata lserial
4122 set isdiff 1
4125 return 1
4126 }
4127 set isdiff 0
4128 }
4129 # we only need to see one line and we don't really care what it says...
4133 return 0
4134 }
4137 # add the line for the local diff to the graph
4138 set hl [mc "Local uncommitted changes, not checked in to index"]
4143 } else {
4145 }
4149 }
4150 return 0
4151 }
4153 proc nextuse {id row} {
4154 global curview children
4159 return -1
4160 }
4163 }
4164 }
4165 }
4168 }
4169 return -1
4170 }
4172 proc prevuse {id row} {
4173 global curview children
4175 set ret -1
4181 }
4182 }
4183 }
4185 }
4187 proc make_idlist {row} {
4188 global displayorder parentlist uparrowlen downarrowlen mingaplen
4189 global commitidx curview children
4193 set r 0
4194 }
4197 set ra 0
4198 }
4202 }
4204 set ids {}
4213 }
4214 }
4215 }
4223 }
4224 }
4225 }
4233 }
4234 }
4235 incr r
4241 }
4242 }
4243 }
4244 set idlist {}
4247 }
4249 }
4251 proc rowsequal {a b} {
4254 }
4257 }
4259 }
4261 proc makeupline {id row rend col} {
4262 global rowidlist uparrowlen downarrowlen mingaplen
4268 }
4271 }
4278 }
4279 }
4280 }
4282 proc layoutrows {row endrow} {
4283 global rowidlist rowisopt rowfinal displayorder
4284 global uparrowlen downarrowlen maxwidth mingaplen
4285 global children parentlist
4286 global commitidx viewcomplete curview
4289 set idlist {}
4295 }
4296 }
4298 }
4303 set final 1
4304 } else {
4312 # if not the first child, we have to insert a line going up
4315 }
4316 }
4317 }
4327 }
4328 }
4329 }
4336 }
4337 }
4347 }
4348 }
4356 }
4357 }
4358 }
4359 }
4360 }
4364 set final 0
4365 }
4369 lappend rowisopt 0
4375 }
4377 } else {
4384 }
4385 }
4387 }
4389 proc changedrow {row} {
4390 global displayorder iddrawn rowisopt need_redisplay
4399 }
4400 }
4401 }
4404 set need_redisplay 1
4405 }
4406 }
4408 proc insert_pad {row col npad} {
4409 global rowidlist
4418 }
4421 }
4423 proc optimize_rows {row col endrow} {
4424 global rowidlist rowisopt displayorder curview children
4427 set row 1
4428 }
4431 set haspad 0
4440 } else {
4441 set pprevidlist {}
4442 }
4443 set x0 -1
4444 set xm -1
4449 set haspad 1
4450 continue
4451 }
4455 set isarrow 0
4456 set z0 {}
4461 }
4462 }
4467 set isarrow 1
4468 }
4469 }
4472 set isarrow 1
4473 }
4474 # Looking at lines from this row to the previous row,
4475 # make them go straight up if they end in an arrow on
4476 # the previous row; otherwise make them go straight up
4477 # or at 45 degrees.
4479 # Line currently goes left too much;
4480 # insert pads in the previous row, then optimize it
4485 }
4493 }
4495 # Line currently goes right too much;
4496 # insert pads in this line
4502 set haspad 1
4503 }
4510 }
4511 }
4512 # avoid lines jigging left then immediately right
4515 incr x0
4518 }
4519 }
4521 # Find the first column that doesn't have a line going right
4527 # check if this is the link to the first child
4530 # it is, work out offset to child
4532 }
4533 }
4535 }
4536 # Insert a pad at that column as long as it has a line and
4537 # isn't the last column
4542 }
4543 }
4544 }
4545 }
4547 proc xc {row col} {
4548 global canvx0 linespc
4550 }
4552 proc yc {row} {
4553 global canvy0 linespc
4555 }
4557 proc linewidth {id} {
4558 global thickerline lthickness
4563 }
4565 }
4567 proc rowranges {id} {
4568 global curview children uparrowlen downarrowlen
4569 global rowidlist
4573 return {}
4574 }
4575 set ret {}
4580 if {![info exists prev]} {
4582 } else {
4584 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4585 }
4586 # see if the line extends the whole way from prevrow to row
4590 # it doesn't, see where it ends
4595 } else {
4598 incr r -1
4599 }
4601 # see where it starts up again
4606 } else {
4609 incr r
4610 }
4612 }
4613 }
4616 }
4619 }
4621 }
4623 proc drawlineseg {id row endrow arrowlow} {
4624 global rowidlist displayorder iddrawn linesegs
4625 global canv colormap linespc curview maxlinelen parentlist
4629 set arrowhigh 1
4630 while {1} {
4633 incr le -1
4634 break
4635 }
4639 set arrowhigh 0
4640 break
4641 }
4646 set arrowhigh 0
4647 }
4648 break
4649 }
4650 incr le
4651 }
4654 }
4656 set lines {}
4657 set i 0
4658 set joinhigh 0
4665 set joinhigh 1
4666 }
4667 break
4668 }
4669 incr i
4670 }
4671 }
4672 set joinlow 0
4677 set joinlow 1
4678 }
4679 }
4692 }
4693 } else {
4695 }
4703 set arrowlow 0
4704 }
4705 }
4713 }
4715 }
4718 # join parent line to first child
4729 } else {
4731 }
4739 }
4741 }
4743 } else {
4747 }
4755 } else {
4759 }
4761 }
4762 } else {
4768 }
4772 } else {
4773 # coalesce two pieces
4778 }
4782 }
4783 }
4787 }
4789 proc drawparentlinks {id row} {
4790 global rowidlist canv colormap curview parentlist
4791 global idpos linespc
4804 # rmx = right-most X coord used
4805 set rmx 0
4810 continue
4811 }
4815 }
4818 # drawlineseg will do this one for us
4819 continue
4820 }
4822 # should handle duplicated parents here...
4825 # if attaching to a vertical segment, draw a smaller
4826 # slant for visual distinctness
4830 } else {
4832 }
4834 # segment slants towards us already
4836 } else {
4841 }
4843 }
4844 } else {
4846 }
4851 }
4855 }
4856 }
4858 proc drawlines {id} {
4859 global canv
4862 }
4864 proc drawcmittext {id row col} {
4865 global linespc canv canv2 canv3 fgcolor curview
4866 global cmitlisted commitinfo rowidlist parentlist
4867 global rowtextx idpos idtags idheads idotherrefs
4868 global linehtag linentag linedtag selectedline
4869 global canvxmax boldrows boldnamerows fgcolor
4870 global mainheadid nullid nullid2 circleitem circlecolors
4872 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4875 set ofill red
4877 set ofill green
4879 set ofill yellow
4880 } else {
4882 }
4891 # triangle pointing left for left-side commits
4897 } else {
4898 # triangle pointing right for right-side commits
4904 }
4916 }
4917 }
4918 }
4925 }
4930 set font mainfont
4931 set nfont mainfont
4935 set font mainfontbold
4938 set nfont mainfontbold
4939 }
4940 }
4950 }
4954 setcanvscroll
4955 }
4956 }
4958 proc drawcmitrow {row} {
4959 global displayorder rowidlist nrows_drawn
4960 global iddrawn markingmatches
4961 global commitinfo numcommits
4962 global filehighlight fhighlights findpattern nhighlights
4963 global hlview vhighlights
4964 global highlight_related rhighlights
4971 }
4974 }
4977 }
4980 }
4985 return
4986 }
4989 }
4993 incr nrows_drawn
4994 }
4997 }
4998 }
5000 proc drawcommits {row {endrow {}}} {
5001 global numcommits iddrawn displayorder curview need_redisplay
5002 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5005 set row 0
5006 }
5009 }
5012 }
5016 set rl1 0
5017 }
5020 set ro1 0
5021 }
5025 }
5030 }
5032 }
5033 }
5036 }
5039 clear_display
5040 drawvisible
5041 }
5043 # make the lines join to already-drawn rows either side
5047 }
5052 }
5067 # see if this is the first child of any of its parents
5070 # make this line extend up to the child
5072 }
5073 }
5074 } else {
5076 }
5077 }
5078 }
5079 }
5081 proc undolayout {row} {
5082 global uparrowlen mingaplen downarrowlen
5083 global rowidlist rowisopt rowfinal need_redisplay
5087 set r 0
5088 }
5090 incr r -1
5094 set need_redisplay 1
5095 run drawvisible
5096 }
5097 }
5099 proc drawvisible {} {
5100 global canv linespc curview vrowmod selectedline targetrow targetid
5101 global need_redisplay cscroll numcommits
5111 if {[info exists targetid]} {
5115 # Fix up the scrollregion and change the scrolling position
5116 # now that our target row has moved.
5119 setcanvscroll
5127 set need_redisplay 1
5128 }
5129 } else {
5130 unset targetid
5131 }
5132 }
5138 }
5142 } elseif {[info exists targetid]} {
5144 }
5145 if {[info exists targetrow]} {
5148 }
5150 }
5152 }
5154 proc clear_display {} {
5155 global iddrawn linesegs need_redisplay nrows_drawn
5156 global vhighlights fhighlights nhighlights rhighlights
5157 global linehtag linentag linedtag boldrows boldnamerows
5159 allcanvs delete all
5160 catch {unset iddrawn}
5161 catch {unset linesegs}
5162 catch {unset linehtag}
5163 catch {unset linentag}
5164 catch {unset linedtag}
5165 set boldrows {}
5166 set boldnamerows {}
5167 catch {unset vhighlights}
5168 catch {unset fhighlights}
5169 catch {unset nhighlights}
5170 catch {unset rhighlights}
5171 set need_redisplay 0
5172 set nrows_drawn 0
5173 }
5175 proc findcrossings {id} {
5176 global rowidlist parentlist numcommits displayorder
5178 set cross {}
5179 set ccross {}
5183 }
5202 }
5203 }
5204 }
5205 }
5206 }
5208 }
5210 proc assigncolor {id} {
5211 global colormap colors nextcolor
5212 global parents children children curview
5218 } else {
5219 set kids {}
5220 }
5226 return
5227 }
5228 }
5229 set badcolors {}
5230 set origbad {}
5233 # delimiter between corner crossings and other crossings
5236 }
5240 }
5241 }
5244 }
5251 }
5256 }
5257 }
5258 }
5261 }
5262 }
5266 set nextcolor 0
5267 }
5269 }
5271 }
5273 proc bindline {t id} {
5274 global canv
5280 }
5282 proc drawtags {id x xt y1} {
5283 global idtags idheads idotherrefs mainhead
5284 global linespc lthickness
5285 global canv rowtextx curview fgcolor bgcolor
5287 set marks {}
5288 set ntags 0
5289 set nheads 0
5293 }
5297 }
5300 }
5303 }
5308 set xvals {}
5309 set wvals {}
5310 set i -1
5312 incr i
5315 } else {
5317 }
5321 }
5328 set font mainfont
5329 if {[incr ntags -1] >= 0} {
5330 # draw a tag
5336 } else {
5337 # draw a head or other ref
5338 if {[incr nheads -1] >= 0} {
5339 set col green
5341 set font mainfontbold
5342 }
5343 } else {
5344 set col "#ddddff"
5345 }
5356 }
5357 }
5364 }
5365 }
5367 }
5369 proc xcoord {i level ln} {
5370 global canvx0 xspc1 xspc2
5377 }
5379 }
5381 proc show_status {msg} {
5382 global canv fgcolor
5384 clear_display
5387 }
5389 # Don't change the text pane cursor if it is currently the hand cursor,
5390 # showing that we are over a sha1 ID link.
5391 proc settextcursor {c} {
5392 global ctext curtextcursor
5396 }
5398 }
5400 proc nowbusy {what {name {}}} {
5401 global isbusy busyname statusw
5403 if {[array names isbusy] eq {}} {
5404 . config -cursor watch
5405 settextcursor watch
5406 }
5411 }
5412 }
5414 proc notbusy {what} {
5415 global isbusy maincursor textcursor busyname statusw
5417 catch {
5422 }
5423 }
5424 if {[array names isbusy] eq {}} {
5427 }
5428 }
5430 proc findmatches {f} {
5431 global findtype findstring
5434 } else {
5439 }
5440 set matches {}
5441 set i 0
5446 }
5447 }
5449 }
5451 proc dofind {{dirn 1} {wrap 1}} {
5452 global findstring findstartline findcurline selectedline numcommits
5453 global gdttype filehighlight fh_serial find_dirn findallowwrap
5455 if {[info exists find_dirn]} {
5457 stopfinding
5458 }
5459 focus .
5463 } else {
5465 }
5467 nowbusy finding [mc "Searching"]
5471 }
5474 run findmore
5475 }
5477 proc stopfinding {} {
5478 global find_dirn findcurline fprogcoord
5480 if {[info exists find_dirn]} {
5481 unset find_dirn
5482 unset findcurline
5483 notbusy finding
5484 set fprogcoord 0
5485 adjustprogress
5486 }
5487 }
5489 proc findmore {} {
5490 global commitdata commitinfo numcommits findpattern findloc
5491 global findstartline findcurline findallowwrap
5492 global find_dirn gdttype fhighlights fprogcoord
5493 global curview varcorder vrownum varccommits vrowmod
5495 if {![info exists find_dirn]} {
5496 return 0
5497 }
5498 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5500 set moretodo 0
5502 incr l
5504 set l 0
5505 }
5508 } else {
5511 }
5512 } else {
5515 }
5516 incr l -1
5519 } else {
5520 set lim -1
5522 }
5523 }
5526 set n 500
5527 set moretodo 1
5528 }
5531 }
5532 set found 0
5533 set domore 1
5547 }
5549 # shouldn't happen unless git log doesn't give all the commits...
5552 continue
5553 }
5556 }
5561 set found 1
5562 break
5563 }
5564 }
5566 }
5567 } else {
5575 }
5580 }
5583 break
5584 }
5587 set domore 0
5589 }
5590 }
5591 }
5592 }
5594 unset findcurline
5595 unset find_dirn
5596 notbusy finding
5597 set fprogcoord 0
5598 adjustprogress
5601 } else {
5602 bell
5603 }
5604 return 0
5605 }
5607 flushhighlights
5608 } else {
5610 }
5614 }
5616 adjustprogress
5618 }
5620 proc findselectline {l} {
5621 global findloc commentend ctext findcurline markingmatches gdttype
5623 set markingmatches 1
5627 # highlight the matches in the comments
5634 }
5635 }
5636 drawvisible
5637 }
5639 # mark the bits of a headline or author that match a find string
5640 proc markmatches {canv l str tag matches font row} {
5641 global selectedline
5659 }
5660 }
5661 }
5663 proc unmarkmatches {} {
5664 global markingmatches
5666 allcanvs delete matches
5667 set markingmatches 0
5668 stopfinding
5669 }
5671 proc selcanvline {w x y} {
5672 global canv canvy0 ctext linespc
5673 global rowtextx
5680 set l 0
5681 }
5686 }
5687 unmarkmatches
5689 }
5691 proc commit_descriptor {p} {
5692 global commitinfo
5695 }
5696 set l "..."
5699 }
5701 }
5703 # append some text to the ctext widget, and make any SHA1 ID
5704 # that we know about be a clickable link.
5705 proc appendwithlinks {text tags} {
5706 global ctext linknum curview pendinglinks
5715 incr e
5719 incr linknum
5720 }
5721 }
5723 proc setlink {id lk} {
5724 global curview ctext pendinglinks commitinterest
5731 } else {
5734 }
5735 }
5737 proc makelink {id} {
5738 global pendinglinks
5743 }
5745 }
5747 proc linkcursor {w inc} {
5748 global linkentercount curtextcursor
5752 } else {
5755 set linkentercount 0
5756 }
5757 }
5758 }
5760 proc viewnextline {dir} {
5761 global canv linespc
5769 set newtop 0
5772 }
5774 }
5776 # add a list of tag or branch names at position pos
5777 # returns the number of names inserted
5778 proc appendrefs {pos ids var} {
5782 return 0
5783 }
5786 set tags {}
5790 }
5791 }
5794 } else {
5796 set sep {}
5800 incr linknum
5805 set sep ", "
5806 }
5807 }
5810 }
5812 # called when we have finished computing the nearby tags
5813 proc dispneartags {delay} {
5814 global selectedline currentid showneartags tagphase
5817 after cancel dispnexttag
5819 after 200 dispnexttag
5820 set tagphase -1
5821 } else {
5822 after idle dispnexttag
5823 set tagphase 0
5824 }
5825 }
5827 proc dispnexttag {} {
5828 global selectedline currentid showneartags tagphase ctext
5832 0 {
5836 }
5837 }
5838 1 {
5842 }
5843 }
5844 2 {
5849 # turn "Branch" into "Branches"
5853 }
5854 }
5855 }
5856 }
5857 if {[incr tagphase] <= 2} {
5858 after idle dispnexttag
5859 }
5860 }
5862 proc make_secsel {l} {
5863 global linehtag linentag linedtag canv canv2 canv3
5878 }
5880 proc selectline {l isnew} {
5881 global canv ctext commitinfo selectedline
5882 global canvy0 linespc parents children curview
5883 global currentid sha1entry
5884 global commentend idtags linknum
5885 global mergemax numcommits pending_select
5886 global cmitmode showneartags allcommits
5887 global targetrow targetid lastscrollrows
5888 global autoselect
5890 catch {unset pending_select}
5892 normalline
5893 unsel_reflist
5894 stopfinding
5902 setcanvscroll
5903 }
5917 } else {
5921 }
5922 }
5926 } else {
5930 }
5931 }
5932 }
5935 set newtop 0
5936 }
5938 drawvisible
5939 }
5945 }
5952 }
5956 clear_ctext
5957 set linknum 0
5960 }
5970 }
5972 }
5974 set headers {}
5977 set np 0
5980 set tag mmax
5981 } else {
5983 }
5986 incr np
5987 }
5988 } else {
5991 }
5992 }
5996 }
5998 # make anything that looks like a SHA1 ID be a clickable link
6001 if {![info exists allcommits]} {
6002 getallcommits
6003 }
6014 dispneartags 1
6015 }
6020 }
6027 init_flist [mc "Comments"]
6032 } else {
6034 }
6035 }
6037 proc selfirstline {} {
6038 unmarkmatches
6039 selectline 0 1
6040 }
6042 proc sellastline {} {
6043 global numcommits
6044 unmarkmatches
6047 }
6049 proc selnextline {dir} {
6050 global selectedline
6051 focus .
6054 unmarkmatches
6056 }
6058 proc selnextpage {dir} {
6059 global canv linespc selectedline numcommits
6063 set lpp 1
6064 }
6066 drawvisible
6070 set l 0
6073 }
6074 unmarkmatches
6076 }
6078 proc unselectline {} {
6079 global selectedline currentid
6081 set selectedline {}
6082 catch {unset currentid}
6083 allcanvs delete secsel
6084 rhighlight_none
6085 }
6087 proc reselectline {} {
6088 global selectedline
6092 }
6093 }
6095 proc addtohistory {cmd} {
6096 global history historyindex curview
6101 return
6102 }
6106 } else {
6108 }
6109 incr historyindex
6111 .tf.bar.leftbut conf -state normal
6112 } else {
6113 .tf.bar.leftbut conf -state disabled
6114 }
6115 .tf.bar.rightbut conf -state disabled
6116 }
6118 proc godo {elt} {
6119 global curview
6125 }
6127 }
6129 proc goback {} {
6130 global history historyindex
6131 focus .
6134 incr historyindex -1
6136 .tf.bar.rightbut conf -state normal
6137 }
6139 .tf.bar.leftbut conf -state disabled
6140 }
6141 }
6143 proc goforw {} {
6144 global history historyindex
6145 focus .
6149 incr historyindex
6151 .tf.bar.leftbut conf -state normal
6152 }
6154 .tf.bar.rightbut conf -state disabled
6155 }
6156 }
6158 proc gettree {id} {
6159 global treefilelist treeidlist diffids diffmergeid treepending
6160 global nullid nullid2
6163 catch {unset diffmergeid}
6165 if {![info exists treepending]} {
6167 set cmd [list | git ls-files]
6169 set cmd [list | git ls-files --stage -t]
6170 } else {
6172 }
6174 return
6175 }
6181 }
6182 } else {
6184 }
6185 }
6187 proc gettreeline {gtf id} {
6188 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6190 set nl 0
6194 } else {
6203 }
6205 }
6207 }
6210 }
6212 unset treepending
6214 if {![info exists diffmergeid]} {
6216 }
6219 } else {
6221 }
6222 return 0
6223 }
6225 proc showfile {f} {
6226 global treefilelist treeidlist diffids nullid nullid2
6227 global ctext commentend
6232 return
6233 }
6237 return
6238 }
6239 } else {
6243 return
6244 }
6245 }
6254 settabs 0
6255 }
6257 proc getblobline {bf id} {
6258 global diffids cmitmode ctext
6262 return 0
6263 }
6265 set nl 0
6268 }
6270 # delete last newline
6273 return 0
6274 }
6277 }
6279 proc mergediff {id} {
6280 global diffmergeid mdifffd
6281 global diffids
6282 global parents
6283 global diffcontext
6284 global limitdiffs vfilelimit curview
6288 # this doesn't seem to actually affect anything...
6292 }
6295 return
6296 }
6302 }
6304 proc getmergediffline {mdf id np} {
6305 global diffmergeid ctext cflist mergemax
6306 global difffilestart mdifffd
6309 set nr 0
6314 return 0
6315 }
6317 # start of a new file
6328 # do nothing
6329 } else {
6330 # parse the prefix - one ' ', '-' or '+' for each parent
6331 set spaces {}
6332 set minuses {}
6333 set pluses {}
6334 set isbad 0
6343 } else {
6344 set isbad 1
6345 break
6346 }
6347 }
6348 set tags {}
6349 set num {}
6355 lappend tags mresult
6357 }
6360 set num "max"
6361 }
6363 }
6365 }
6366 }
6370 return 0
6371 }
6373 }
6375 proc startdiff {ids} {
6376 global treediffs diffids treepending diffmergeid nullid nullid2
6378 settabs 1
6380 catch {unset diffmergeid}
6384 if {![info exists treepending]} {
6386 }
6387 } else {
6389 }
6390 }
6392 proc path_filter {filter name} {
6397 return 1
6398 }
6399 } else {
6403 return 1
6404 }
6405 }
6406 }
6407 return 0
6408 }
6410 proc addtocflist {ids} {
6411 global treediffs
6415 }
6417 proc diffcmd {ids flags} {
6418 global nullid nullid2
6424 # comparing working directory with some specific revision
6428 } else {
6430 }
6431 } else {
6432 # comparing working directory with index
6435 lappend cmd -R
6436 }
6437 }
6441 # comparing index with specific revision
6444 } else {
6446 }
6447 } else {
6448 # comparing index with HEAD
6449 lappend cmd HEAD
6450 }
6451 } else {
6453 }
6455 }
6457 proc gettreediffs {ids} {
6458 global treediff treepending
6461 set treediff {}
6465 }
6467 proc gettreediffline {gdtf ids} {
6468 global treediff treediffs treepending diffids diffmergeid
6469 global cmitmode vfilelimit curview limitdiffs
6471 set nr 0
6478 }
6480 }
6481 }
6484 }
6487 set flist {}
6491 }
6492 }
6494 } else {
6496 }
6497 unset treepending
6501 if {![info exists diffmergeid]} {
6503 }
6504 } else {
6506 }
6507 return 0
6508 }
6510 # empty string or positive integer
6511 proc diffcontextvalidate {v} {
6513 }
6515 proc diffcontextchange {n1 n2 op} {
6516 global diffcontextstring diffcontext
6521 reselectline
6522 }
6523 }
6524 }
6526 proc changeignorespace {} {
6527 reselectline
6528 }
6530 proc getblobdiffs {ids} {
6531 global blobdifffd diffids env
6532 global diffinhdr treediffs
6533 global diffcontext
6534 global ignorespace
6535 global limitdiffs vfilelimit curview
6539 append cmd " -w"
6540 }
6543 }
6546 return
6547 }
6548 set diffinhdr 0
6552 }
6554 proc setinlist {var i val} {
6559 }
6562 } else {
6564 }
6565 }
6567 proc makediffhdr {fname ids} {
6568 global ctext curdiffstart treediffs
6573 }
6577 }
6579 proc getblobdiffline {bdf ids} {
6580 global diffids blobdifffd ctext curdiffstart
6581 global diffnexthead diffnextnote difffilestart
6582 global diffinhdr treediffs
6584 set nr 0
6589 return 0
6590 }
6592 # trim off "diff --git "
6594 set diffinhdr 1
6595 # start of a new file
6599 # If the name hasn't changed the length will be odd,
6600 # the middle char will be a space, and the two bits either
6601 # side will be a/name and b/name, or "a/name" and "b/name".
6602 # If the name has changed we'll get "rename from" and
6603 # "rename to" or "copy from" and "copy to" lines following this,
6604 # and we'll use them to get the filenames.
6605 # This complexity is necessary because spaces in the filename(s)
6606 # don't get escaped.
6612 continue
6613 }
6614 # unescape if quoted and chop off the a/ from the front
6617 } else {
6619 }
6622 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6625 set diffinhdr 0
6632 }
6636 }
6642 }
6645 # do nothing
6646 continue
6648 set diffinhdr 0
6649 continue
6650 }
6653 } else {
6660 } else {
6661 # "\ No newline at end of file",
6662 # or something else we don't recognize
6664 }
6665 }
6666 }
6670 return 0
6671 }
6673 }
6675 proc changediffdisp {} {
6676 global ctext diffelide
6680 }
6682 proc highlightfile {loc cline} {
6683 global ctext cflist cflist_top
6690 }
6692 proc prevfile {} {
6693 global difffilestart ctext cmitmode
6696 set prev 0.0
6697 set prevline 1
6702 return
6703 }
6705 incr prevline
6706 }
6708 }
6710 proc nextfile {} {
6711 global difffilestart ctext cmitmode
6715 set line 1
6717 incr line
6720 return
6721 }
6722 }
6723 }
6725 proc clear_ctext {{first 1.0}} {
6726 global ctext smarktop smarkbot
6727 global pendinglinks
6732 }
6735 }
6738 catch {unset pendinglinks}
6739 }
6740 }
6742 proc settabs {{firstab {}}} {
6743 global firsttabstop tabstop ctext have_tk85
6747 }
6748 set w [font measure textfont "0"]
6754 } else {
6756 }
6757 }
6759 proc incrsearch {name ix op} {
6760 global ctext searchstring searchdirn
6764 # no anchor set, use start of selection, or of visible area
6770 } else {
6772 }
6773 }
6778 }
6779 searchmarkvisible 1
6780 }
6781 }
6783 proc dosearch {} {
6784 global sstring ctext searchstring searchdirn
6788 set searchdirn -forwards
6794 set start "@0,0"
6795 }
6799 bell
6800 return
6801 }
6806 }
6807 }
6809 proc dosearchback {} {
6810 global sstring ctext searchstring searchdirn
6814 set searchdirn -backwards
6821 }
6825 bell
6826 return
6827 }
6832 }
6833 }
6835 proc searchmark {first last} {
6836 global ctext searchstring
6839 while {1} {
6844 }
6845 }
6847 proc searchmarkvisible {doall} {
6848 global ctext smarktop smarkbot
6853 # no overlap with previous
6857 } else {
6861 }
6865 }
6866 }
6867 }
6869 proc scrolltext {f0 f1} {
6870 global searchstring
6874 searchmarkvisible 0
6875 }
6876 }
6878 proc setcoords {} {
6879 global linespc charspc canvx0 canvy0
6880 global xspc1 xspc2 lthickness
6882 set linespc [font metrics mainfont -linespace]
6883 set charspc [font measure mainfont "m"]
6889 }
6891 proc redisplay {} {
6892 global canv
6893 global selectedline
6898 clear_display
6899 setcanvscroll
6901 drawvisible
6905 }
6906 }
6908 proc parsefont {f n} {
6909 global fontattr
6914 set s 10
6917 }
6923 "normal" -
6925 "roman" -
6927 }
6928 }
6929 }
6931 proc fontflags {f {isbold 0}} {
6932 global fontattr
6937 }
6939 proc fontname {f} {
6940 global fontattr
6944 lappend n "bold"
6945 }
6947 lappend n "italic"
6948 }
6950 }
6952 proc incrfont {inc} {
6953 global mainfont textfont ctext canv cflist showrefstop
6954 global stopped entries fontattr
6956 unmarkmatches
6960 set s 1
6961 }
6965 set mainfont [fontname mainfont]
6969 set s 1
6970 }
6974 set textfont [fontname textfont]
6975 setcoords
6976 settabs
6977 redisplay
6978 }
6980 proc clearsha1 {} {
6981 global sha1entry sha1string
6984 }
6985 }
6987 proc sha1change {n1 n2 op} {
6988 global sha1string currentid sha1but
6991 set state disabled
6992 } else {
6993 set state normal
6994 }
6998 } else {
7000 }
7001 }
7003 proc gotocommit {} {
7004 global sha1string tagids headids curview varcid
7012 } else {
7019 return
7020 }
7022 }
7023 }
7024 }
7027 return
7028 }
7031 } else {
7033 }
7035 }
7037 proc lineenter {x y id} {
7038 global hoverx hovery hoverid hovertimer
7039 global commitinfo canv
7045 if {[info exists hovertimer]} {
7047 }
7048 set hovertimer [after 500 linehover]
7050 }
7052 proc linemotion {x y id} {
7053 global hoverx hovery hoverid hovertimer
7058 if {[info exists hovertimer]} {
7060 }
7061 set hovertimer [after 500 linehover]
7062 }
7063 }
7065 proc lineleave {id} {
7066 global hoverid hovertimer canv
7070 if {[info exists hovertimer]} {
7072 unset hovertimer
7073 }
7074 unset hoverid
7075 }
7076 }
7078 proc linehover {} {
7079 global hoverx hovery hoverid hovertimer
7080 global canv linespc lthickness
7081 global commitinfo
7094 -fill \#ffff80 -outline black -width 1 -tags hover]
7097 -font mainfont]
7099 }
7101 proc clickisonarrow {id y} {
7102 global lthickness
7111 }
7112 }
7113 return {}
7114 }
7116 proc arrowjump {id n y} {
7117 global canv
7119 # 1 <-> 2, 3 <-> 4, etc...
7129 set yfrac 0
7130 }
7132 }
7134 proc lineclick {x y id isnew} {
7135 global ctext commitinfo children canv thickerline curview
7138 unmarkmatches
7139 unselectline
7140 normalline
7142 # draw this line thicker than normal
7150 }
7154 return
7155 }
7159 }
7160 # fill the details pane with info about this line
7162 clear_ctext
7163 settabs 0
7175 set i 0
7177 incr i
7187 }
7188 }
7190 init_flist {}
7191 }
7193 proc normalline {} {
7194 global thickerline
7195 if {[info exists thickerline]} {
7197 unset thickerline
7199 }
7200 }
7202 proc selbyid {id} {
7203 global curview
7206 }
7207 }
7209 proc mstime {} {
7210 global startmstime
7211 if {![info exists startmstime]} {
7212 set startmstime [clock clicks -milliseconds]
7213 }
7215 }
7217 proc rowmenu {x y id} {
7218 global rowctxmenu selectedline rowmenuid curview
7219 global nullid nullid2 fakerowmenu mainhead
7221 stopfinding
7224 set state disabled
7225 } else {
7226 set state normal
7227 }
7232 } else {
7234 }
7235 } else {
7237 }
7242 }
7244 proc diffvssel {dirn} {
7245 global rowmenuid selectedline
7251 } else {
7254 }
7257 }
7259 proc doseldiff {oldid newid} {
7260 global ctext
7261 global commitinfo
7264 clear_ctext
7265 init_flist [mc "Top"]
7280 }
7282 proc mkpatch {} {
7283 global rowmenuid currentid commitinfo patchtop patchnum
7285 if {![info exists currentid]} return
7290 set top .patch
7319 incr patchnum
7329 }
7331 proc mkpatchrev {} {
7332 global patchtop
7338 foreach e [list fromsha1 fromhead tosha1 tohead] \
7344 }
7345 }
7347 proc mkpatchgo {} {
7348 global patchtop nullid nullid2
7354 # trim off the initial "|"
7359 }
7361 unset patchtop
7362 }
7364 proc mkpatchcan {} {
7365 global patchtop
7368 unset patchtop
7369 }
7371 proc mktag {} {
7372 global rowmenuid mktagtop commitinfo
7374 set top .maketag
7400 }
7402 proc domktag {} {
7403 global mktagtop env tagids idtags
7408 error_popup [mc "No tag name specified"]
7409 return
7410 }
7413 return
7414 }
7415 if {[catch {
7417 } err]} {
7419 return
7420 }
7426 dispneartags 0
7427 run refill_reflist
7428 }
7430 proc redrawtags {id} {
7431 global canv linehtag idpos currentid curview cmitlisted
7432 global canvxmax iddrawn circleitem mainheadid circlecolors
7438 set ofill yellow
7439 } else {
7441 }
7451 setcanvscroll
7452 }
7455 }
7456 }
7458 proc mktagcan {} {
7459 global mktagtop
7462 unset mktagtop
7463 }
7465 proc mktaggo {} {
7466 domktag
7467 mktagcan
7468 }
7470 proc writecommit {} {
7471 global rowmenuid wrcomtop commitinfo wrcomcmd
7473 set top .writecommit
7503 }
7505 proc wrcomgo {} {
7506 global wrcomtop
7513 }
7515 unset wrcomtop
7516 }
7518 proc wrcomcan {} {
7519 global wrcomtop
7522 unset wrcomtop
7523 }
7525 proc mkbranch {} {
7526 global rowmenuid mkbrtop
7528 set top .makebranch
7549 }
7551 proc mkbrgo {top} {
7552 global headids idheads
7557 error_popup [mc "Please specify a name for the new branch"]
7558 return
7559 }
7561 nowbusy newbranch
7562 update
7563 if {[catch {
7565 } err]} {
7566 notbusy newbranch
7568 } else {
7572 notbusy newbranch
7574 dispneartags 0
7575 run refill_reflist
7576 }
7577 }
7579 proc cherrypick {} {
7580 global rowmenuid curview
7581 global mainhead mainheadid
7583 set oldhead [exec git rev-parse HEAD]
7586 set ok [confirm_popup [mc "Commit %s is already\
7587 included in branch %s -- really re-apply it?" \
7590 }
7591 nowbusy cherrypick [mc "Cherry-picking"]
7592 update
7593 # Unfortunately git-cherry-pick writes stuff to stderr even when
7594 # no error occurs, and exec takes that as an indication of error...
7596 notbusy cherrypick
7598 return
7599 }
7600 set newhead [exec git rev-parse HEAD]
7602 notbusy cherrypick
7603 error_popup [mc "No changes committed"]
7604 return
7605 }
7612 }
7617 }
7618 notbusy cherrypick
7619 }
7621 proc resethead {} {
7622 global mainhead rowmenuid confirm_ok resettype
7624 set confirm_ok 0
7625 set w ".confirmreset"
7631 -justify center -aspect 1000
7636 set resettype mixed
7638 -text [mc "Soft: Leave working tree and index untouched"]
7641 -text [mc "Mixed: Leave working tree untouched, reset index"]
7644 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7654 if {[catch {set fd [open \
7657 } else {
7658 dohidelocalchanges
7660 nowbusy reset [mc "Resetting"]
7662 }
7663 }
7665 proc readresetstat {fd} {
7666 global mainhead mainheadid showlocalchanges rprogcoord
7671 adjustprogress
7672 }
7673 return 1
7674 }
7675 set rprogcoord 0
7676 adjustprogress
7677 notbusy reset
7680 }
7682 set newhead [exec git rev-parse HEAD]
7689 }
7691 doshowlocalchanges
7692 }
7693 return 0
7694 }
7696 # context menu for a head
7697 proc headmenu {x y id head} {
7698 global headmenuid headmenuhead headctxmenu mainhead
7700 stopfinding
7703 set state normal
7705 set state disabled
7706 }
7710 }
7712 proc cobranch {} {
7713 global headmenuid headmenuhead headids
7714 global showlocalchanges mainheadid
7716 # check the tree is clean first??
7717 nowbusy checkout [mc "Checking out"]
7718 update
7719 dohidelocalchanges
7720 if {[catch {
7722 } err]} {
7723 notbusy checkout
7726 dodiffindex
7727 }
7728 } else {
7730 }
7731 }
7733 proc readcheckoutstat {fd newhead newheadid} {
7734 global mainhead mainheadid headids showlocalchanges progresscoords
7739 adjustprogress
7740 }
7741 return 1
7742 }
7743 set progresscoords {0 0}
7744 adjustprogress
7745 notbusy checkout
7748 }
7756 dodiffindex
7757 }
7758 }
7760 proc rmbranch {} {
7761 global headmenuid headmenuhead mainhead
7762 global idheads
7766 # this check shouldn't be needed any more...
7768 error_popup [mc "Cannot delete the currently checked-out branch"]
7769 return
7770 }
7773 # the stuff on this branch isn't on any other branch
7774 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7776 }
7777 nowbusy rmbranch
7778 update
7780 notbusy rmbranch
7782 return
7783 }
7787 notbusy rmbranch
7788 dispneartags 0
7789 run refill_reflist
7790 }
7792 # Display a list of tags and heads
7793 proc showrefs {} {
7794 global showrefstop bgcolor fgcolor selectbgcolor
7795 global bglist fglist reflistfilter reflist maincursor
7797 set top .showrefs
7801 refill_reflist
7802 return
7803 }
7810 -spacing1 1 -spacing3 1 -state disabled
7821 set reflistfilter "*"
7822 trace add variable reflistfilter write reflistfilter_change
7833 set reflist {}
7834 refill_reflist
7835 }
7837 proc sel_reflist {w x y} {
7838 global showrefstop reflist headids tagids otherrefids
7848 }
7850 }
7852 proc unsel_reflist {} {
7853 global showrefstop
7857 }
7859 proc reflistfilter_change {n1 n2 op} {
7860 global reflistfilter
7862 after cancel refill_reflist
7863 after 200 refill_reflist
7864 }
7866 proc refill_reflist {} {
7867 global reflist reflistfilter showrefstop headids tagids otherrefids
7868 global curview commitinterest
7871 set refs {}
7872 foreach n [array names headids] {
7876 } else {
7878 }
7879 }
7880 }
7881 foreach n [array names tagids] {
7885 } else {
7887 }
7888 }
7889 }
7890 foreach n [array names otherrefids] {
7894 } else {
7896 }
7897 }
7898 }
7906 set i 0
7907 set j 0
7916 }
7917 } else {
7918 set cmp -1
7919 }
7920 } else {
7921 set cmp 1
7922 }
7924 -1 {
7926 incr i
7927 }
7928 0 {
7929 incr i
7930 incr j
7931 }
7932 1 {
7937 incr j
7938 }
7939 }
7940 }
7942 # delete last newline
7945 }
7947 # Stuff for finding nearby tags
7948 proc getallcommits {} {
7949 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7950 global idheads idtags idotherrefs allparents tagobjid
7952 if {![info exists allcommits]} {
7953 set nextarc 0
7954 set allcommits 0
7955 set seeds {}
7956 set allcwait 0
7957 set cachedarcs 0
7958 set allccache [file join [gitdir] "gitk.cache"]
7959 if {![catch {
7961 set allcwait 1
7963 }]} return
7964 }
7967 return
7968 }
7969 set cmd [list | git rev-list --parents]
7972 set ids "--all"
7973 } else {
7974 set refs [concat [array names idheads] [array names idtags] \
7975 [array names idotherrefs]]
7976 set ids {}
7977 set tagobjs {}
7978 foreach name [array names tagobjid] {
7980 }
7985 }
7986 }
7990 }
7991 }
7992 }
7996 incr allcommits
7997 nowbusy allcommits
7999 } else {
8000 dispneartags 0
8001 }
8002 }
8004 # Since most commits have 1 parent and 1 child, we group strings of
8005 # such commits into "arcs" joining branch/merge points (BMPs), which
8006 # are commits that either don't have 1 parent or don't have 1 child.
8007 #
8008 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8009 # arcout(id) - outgoing arcs for BMP
8010 # arcids(a) - list of IDs on arc including end but not start
8011 # arcstart(a) - BMP ID at start of arc
8012 # arcend(a) - BMP ID at end of arc
8013 # growing(a) - arc a is still growing
8014 # arctags(a) - IDs out of arcids (excluding end) that have tags
8015 # archeads(a) - IDs out of arcids (excluding end) that have heads
8016 # The start of an arc is at the descendent end, so "incoming" means
8017 # coming from descendents, and "outgoing" means going towards ancestors.
8019 proc getallclines {fd} {
8020 global allparents allchildren idtags idheads nextarc
8021 global arcnos arcids arctags arcout arcend arcstart archeads growing
8022 global seeds allcommits cachedarcs allcupdate
8024 set nid 0
8028 # seen it already
8029 continue
8030 }
8031 set cachedarcs 0
8038 } else {
8044 }
8047 }
8049 # seen parent already
8052 }
8056 }
8059 continue
8060 }
8061 }
8066 }
8068 set ao {}
8071 set a [incr nextarc]
8080 # seen it already, may need to make a new branch
8083 }
8087 }
8089 }
8091 }
8093 global cached_dheads cached_dtags cached_atags
8094 catch {unset cached_dheads}
8095 catch {unset cached_dtags}
8096 catch {unset cached_atags}
8097 }
8100 }
8101 set cacheok 1
8102 if {[catch {
8105 } err]} {
8106 # got an error reading the list of commits
8107 # if we were updating, try rereading the whole thing again
8109 incr allcommits -1
8111 return
8112 }
8113 error_popup "[mc "Error reading commit topology information;\
8114 branch and preceding/following tag information\
8116 set cacheok 0
8117 }
8118 if {[incr allcommits -1] == 0} {
8119 notbusy allcommits
8121 run savecache
8122 }
8123 }
8124 dispneartags 0
8125 return 0
8126 }
8128 proc recalcarc {a} {
8129 global arctags archeads arcids idtags idheads
8131 set at {}
8132 set ah {}
8136 }
8139 }
8140 }
8143 }
8145 proc splitarc {p} {
8146 global arcnos arcids nextarc arctags archeads idtags idheads
8147 global arcstart arcend arcout allparents growing
8152 return
8153 }
8158 return
8159 }
8160 set na [incr nextarc]
8163 } else {
8167 }
8177 }
8182 } else {
8185 }
8186 }
8188 # reconstruct tags and heads lists
8192 } else {
8195 }
8196 }
8198 # Update things for a new commit added that is a child of one
8199 # existing commit. Used when cherry-picking.
8200 proc addnewchild {id p} {
8201 global allparents allchildren idtags nextarc
8202 global arcnos arcids arctags arcout arcend arcstart archeads growing
8203 global seeds allcommits
8211 set a [incr nextarc]
8219 }
8222 }
8224 # This implements a cache for the topology information.
8225 # The cache saves, for each arc, the start and end of the arc,
8226 # the ids on the arc, and the outgoing arcs from the end.
8227 proc readcache {f} {
8228 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8229 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8230 global allcwait
8236 }
8237 if {[catch {
8239 # finish reading the cache and setting up arctags, etc.
8243 foreach id [array names idtags] {
8249 }
8250 }
8251 }
8252 foreach id [array names idheads] {
8258 }
8259 }
8260 }
8264 }
8265 }
8266 set allcwait 0
8267 } else {
8277 }
8281 } else {
8285 }
8286 }
8292 }
8295 }
8298 }
8300 }
8301 } err]} {
8303 return 0
8304 }
8306 getallcommits
8307 }
8309 }
8311 proc getcache {f} {
8312 global nextarc cachedarcs possible_seeds
8314 if {[catch {
8317 # make sure it's an integer
8320 set nextarc 0
8321 set possible_seeds {}
8323 } err]} {
8325 }
8326 return 0
8327 }
8329 proc dropcache {err} {
8330 global allcwait nextarc cachedarcs seeds
8333 foreach v {arcnos arcout arcids arcstart arcend growing \
8334 arctags archeads allparents allchildren} {
8337 }
8338 set allcwait 0
8339 set nextarc 0
8340 set cachedarcs 0
8341 set seeds {}
8342 getallcommits
8343 }
8345 proc writecache {f} {
8346 global cachearc cachedarcs allccache
8347 global arcstart arcend arcnos arcids arcout
8353 }
8354 if {[catch {
8358 } else {
8360 }
8361 }
8362 } err]} {
8366 return 0
8367 }
8372 return 0
8373 }
8374 return 1
8375 }
8377 proc savecache {} {
8378 global nextarc cachedarcs cachearc allccache
8381 set cachearc 0
8383 catch {
8387 }
8388 }
8390 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8391 # or 0 if neither is true.
8392 proc anc_or_desc {a b} {
8393 global arcout arcstart arcend arcnos cached_isanc
8396 # Both are on the same arc(s); either both are the same BMP,
8397 # or if one is not a BMP, the other is also not a BMP or is
8398 # the BMP at end of the arc (and it only has 1 incoming arc).
8399 # Or both can be BMPs with no incoming arcs.
8401 return 0
8402 }
8408 return 1
8409 } else {
8410 return -1
8411 }
8412 }
8418 } else {
8419 set aend {}
8420 }
8422 } else {
8424 }
8429 } else {
8430 set bend {}
8431 }
8433 } else {
8435 }
8437 return 1
8438 }
8440 return -1
8441 }
8444 return 1
8445 }
8446 }
8449 return -1
8450 }
8452 return 0
8453 }
8454 }
8462 continue
8463 }
8469 return 1
8473 return -1
8474 }
8480 }
8481 }
8482 }
8485 return 0
8486 }
8490 # and returns 0 if so and 1 if not.
8491 # If we subsequently discover a tag on such a growing tip, and that
8494 # isn't a good choice to display as a descendent tag of
8498 #
8499 proc is_certain {desc anc} {
8500 global arcnos arcout arcstart arcend growing problems
8502 set certain {}
8504 # tags on the same arc are certain
8506 return 1
8507 }
8512 }
8513 }
8516 } else {
8519 }
8521 return 1
8522 }
8525 set nnh 1
8526 set ngrowanc 0
8530 incr nnh -1
8531 }
8537 incr ngrowanc
8538 }
8539 } else {
8546 incr nnh -1
8547 }
8549 incr ngrowanc -1
8550 }
8560 incr nnh -1
8561 }
8563 incr ngrowanc -1
8564 }
8566 }
8567 }
8568 }
8569 }
8570 }
8571 }
8575 } else {
8578 incr nnh
8579 }
8580 }
8581 }
8582 }
8583 foreach x [array names growanc] {
8585 return 0
8586 }
8587 return 0
8588 }
8589 return 1
8590 }
8592 proc validate_arctags {a} {
8593 global arctags idtags
8595 set i -1
8598 incr i
8601 incr i -1
8602 }
8603 }
8605 }
8607 proc validate_archeads {a} {
8608 global archeads idheads
8610 set i -1
8613 incr i
8616 incr i -1
8617 }
8618 }
8620 }
8622 # Return the list of IDs that have tags that are descendents of id,
8623 # ignoring IDs that are descendents of IDs already reported.
8624 proc desctags {id} {
8625 global arcnos arcstart arcids arctags idtags allparents
8626 global growing cached_dtags
8629 return {}
8630 }
8631 set t1 [clock clicks -milliseconds]
8634 # part-way along an arc; check that arc first
8639 set tid {}
8644 }
8647 }
8648 }
8652 }
8653 }
8656 }
8661 set nc 1
8667 incr nc -1
8668 }
8669 # ignore tags on starting node
8673 set ta 1
8676 set ta 1
8677 }
8678 }
8685 }
8686 }
8695 }
8698 }
8700 incr nc -1
8701 }
8703 }
8704 }
8705 }
8710 incr nc
8711 }
8712 }
8713 }
8714 }
8715 set tags {}
8716 foreach id [array names tagloc] {
8721 }
8722 }
8723 }
8724 }
8725 set t2 [clock clicks -milliseconds]
8728 # remove tags that are descendents of other tags
8736 incr j -1
8737 incr i -1
8740 incr i -1
8741 break
8742 }
8743 }
8744 }
8746 if {[array names growing] ne {}} {
8747 # graph isn't finished, need to check if any tag could get
8748 # eclipsed by another tag coming later. Simply ignore any
8749 # tags that could later get eclipsed.
8750 set ctags {}
8754 }
8755 }
8758 } else {
8760 }
8761 } else {
8763 }
8764 set t3 [clock clicks -milliseconds]
8768 }
8770 }
8772 proc anctags {id} {
8773 global arcnos arcids arcout arcend arctags idtags allparents
8774 global growing cached_atags
8777 return {}
8778 }
8779 set t1 [clock clicks -milliseconds]
8782 # part-way along an arc; check that arc first
8791 }
8792 }
8793 }
8795 return {}
8796 }
8800 }
8801 }
8804 }
8809 set taglist {}
8810 set nc 1
8816 incr nc -1
8817 }
8818 # ignore tags on starting node
8822 set td 1
8825 set td 1
8826 }
8827 }
8833 }
8834 }
8846 }
8847 }
8850 }
8852 incr nc -1
8853 }
8855 }
8856 }
8857 }
8862 incr nc
8863 }
8864 }
8865 }
8866 }
8867 set t2 [clock clicks -milliseconds]
8869 set tags {}
8870 foreach id [array names tagloc] {
8875 }
8876 }
8877 }
8878 }
8880 # remove tags that are ancestors of other tags
8888 incr j -1
8889 incr i -1
8892 incr i -1
8893 break
8894 }
8895 }
8896 }
8898 if {[array names growing] ne {}} {
8899 # graph isn't finished, need to check if any tag could get
8900 # eclipsed by another tag coming later. Simply ignore any
8901 # tags that could later get eclipsed.
8902 set ctags {}
8906 }
8907 }
8910 } else {
8912 }
8913 } else {
8915 }
8916 set t3 [clock clicks -milliseconds]
8920 }
8922 }
8924 # Return the list of IDs that have heads that are descendents of id,
8925 # including id itself if it has a head.
8926 proc descheads {id} {
8927 global arcnos arcstart arcids archeads idheads cached_dheads
8928 global allparents
8931 return {}
8932 }
8933 set aret {}
8935 # part-way along an arc; check it first
8944 }
8945 }
8947 }
8951 set ret {}
8956 } else {
8959 }
8965 }
8966 }
8971 }
8972 }
8973 }
8974 }
8978 }
8980 proc addedtag {id} {
8981 global arcnos arcout cached_dtags cached_atags
8986 }
8987 catch {unset cached_dtags}
8988 catch {unset cached_atags}
8989 }
8991 proc addedhead {hid head} {
8992 global arcnos arcout cached_dheads
8997 }
8998 catch {unset cached_dheads}
8999 }
9001 proc removedhead {hid head} {
9002 global cached_dheads
9004 catch {unset cached_dheads}
9005 }
9007 proc movedhead {hid head} {
9008 global arcnos arcout cached_dheads
9013 }
9014 catch {unset cached_dheads}
9015 }
9017 proc changedrefs {} {
9018 global cached_dheads cached_dtags cached_atags
9019 global arctags archeads arcnos arcout idheads idtags
9021 foreach id [concat [array names idheads] [array names idtags]] {
9027 }
9028 }
9029 }
9030 catch {unset cached_dtags}
9031 catch {unset cached_atags}
9032 catch {unset cached_dheads}
9033 }
9035 proc rereadrefs {} {
9036 global idtags idheads idotherrefs mainheadid
9038 set refids [concat [array names idtags] \
9039 [array names idheads] [array names idotherrefs]]
9043 }
9044 }
9046 readrefs
9047 changedrefs
9049 [array names idheads] [array names idotherrefs]]]
9054 }
9055 }
9059 }
9060 run refill_reflist
9061 }
9063 proc listrefs {id} {
9064 global idtags idheads idotherrefs
9066 set x {}
9069 }
9070 set y {}
9073 }
9074 set z {}
9077 }
9079 }
9081 proc showtag {tag isnew} {
9082 global ctext tagcontents tagids linknum tagobjid
9086 }
9088 clear_ctext
9089 settabs 0
9090 set linknum 0
9092 catch {
9094 }
9095 }
9098 } else {
9100 }
9103 init_flist {}
9104 }
9106 proc doquit {} {
9107 global stopped
9108 global gitktmpdir
9110 set stopped 100
9111 savestuff .
9112 destroy .
9114 if {[info exists gitktmpdir]} {
9116 }
9117 }
9119 proc mkfontdisp {font top which} {
9128 }
9130 proc choosefont {font which} {
9131 global fontparam fontlist fonttop fontattr
9139 set top .gitkfont
9142 font create sample
9148 set fontlist [lsort [font families]]
9159 -textvariable fontparam(size) \
9160 -validatecommand {string is integer -strict %s}
9162 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9163 -variable fontparam(weight) -onvalue bold -offvalue normal
9165 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9166 -variable fontparam(slant) -onvalue italic -offvalue roman
9170 -background white
9172 -fill black -tags text
9182 trace add variable fontparam write chg_fontparam
9183 } else {
9186 }
9191 }
9192 }
9194 proc centertext {w} {
9196 }
9198 proc fontok {} {
9199 global fontparam fontpref prefstop
9205 }
9208 }
9212 fontcan
9213 }
9215 proc fontcan {} {
9216 global fonttop fontparam
9218 if {[info exists fonttop]} {
9220 catch {font delete sample}
9221 unset fonttop
9222 unset fontparam
9223 }
9224 }
9226 proc selfontfam {} {
9227 global fonttop fontparam
9232 }
9233 }
9235 proc chg_fontparam {v sub op} {
9236 global fontparam
9239 }
9241 proc doprefs {} {
9242 global maxwidth maxgraphpct
9243 global oldprefs prefstop showneartags showlocalchanges
9244 global bgcolor fgcolor ctext diffcolors selectbgcolor
9245 global tabstop limitdiffs autoselect extdifftool
9247 set top .gitkprefs
9251 return
9252 }
9253 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9254 limitdiffs tabstop} {
9256 }
9263 -font optionfont
9267 -font optionfont
9300 -padx 10
9302 -command choose_extdiff
9329 "diff hunk header" \
9351 }
9353 proc choose_extdiff {} {
9354 global extdifftool
9356 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9359 }
9360 }
9362 proc choosecolor {v vi w x cmd} {
9371 }
9373 proc setselbg {c} {
9374 global bglist cflist
9377 }
9381 }
9383 proc setbg {c} {
9384 global bglist
9388 }
9389 }
9391 proc setfg {c} {
9392 global fglist canv
9396 }
9399 }
9401 proc prefscan {} {
9402 global oldprefs prefstop
9404 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9405 limitdiffs tabstop} {
9408 }
9410 unset prefstop
9411 fontcan
9412 }
9414 proc prefsok {} {
9415 global maxwidth maxgraphpct
9416 global oldprefs prefstop showneartags showlocalchanges
9417 global fontpref mainfont textfont uifont
9418 global limitdiffs treediffs
9421 unset prefstop
9422 fontcan
9423 set fontchanged 0
9427 eval font configure mainfont [fontflags mainfont]
9428 eval font configure mainfontbold [fontflags mainfont 1]
9429 setcoords
9430 set fontchanged 1
9431 }
9435 eval font configure textfont [fontflags textfont]
9436 eval font configure textfontbold [fontflags textfont 1]
9437 }
9441 eval font configure uifont [fontflags uifont]
9442 }
9443 settabs
9446 doshowlocalchanges
9447 } else {
9448 dohidelocalchanges
9449 }
9450 }
9452 # treediffs elements are limited by path
9453 catch {unset treediffs}
9454 }
9457 redisplay
9460 reselectline
9461 }
9462 }
9464 proc formatdate {d} {
9465 global datetimeformat
9468 }
9470 }
9472 # This list of encoding names and aliases is distilled from
9473 # http://www.iana.org/assignments/character-sets.
9474 # Not all of them are supported by Tcl.
9475 set encoding_aliases {
9476 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9477 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9478 { ISO-10646-UTF-1 csISO10646UTF1 }
9479 { ISO_646.basic:1983 ref csISO646basic1983 }
9480 { INVARIANT csINVARIANT }
9481 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9482 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9483 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9484 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9485 { NATS-DANO iso-ir-9-1 csNATSDANO }
9486 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9487 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9488 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9489 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9490 { ISO-2022-KR csISO2022KR }
9491 { EUC-KR csEUCKR }
9492 { ISO-2022-JP csISO2022JP }
9493 { ISO-2022-JP-2 csISO2022JP2 }
9494 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9495 csISO13JISC6220jp }
9496 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9497 { IT iso-ir-15 ISO646-IT csISO15Italian }
9498 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9499 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9500 { greek7-old iso-ir-18 csISO18Greek7Old }
9501 { latin-greek iso-ir-19 csISO19LatinGreek }
9502 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9503 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9504 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9505 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9506 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9507 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9508 { INIS iso-ir-49 csISO49INIS }
9509 { INIS-8 iso-ir-50 csISO50INIS8 }
9510 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9511 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9512 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9513 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9514 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9515 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9516 csISO60Norwegian1 }
9517 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9518 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9519 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9520 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9521 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9522 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9523 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9524 { greek7 iso-ir-88 csISO88Greek7 }
9525 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9526 { iso-ir-90 csISO90 }
9527 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9528 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9529 csISO92JISC62991984b }
9530 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9531 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9532 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9533 csISO95JIS62291984handadd }
9534 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9535 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9536 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9537 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9538 CP819 csISOLatin1 }
9539 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9540 { T.61-7bit iso-ir-102 csISO102T617bit }
9541 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9542 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9543 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9544 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9545 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9546 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9547 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9548 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9549 arabic csISOLatinArabic }
9550 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9551 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9552 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9553 greek greek8 csISOLatinGreek }
9554 { T.101-G2 iso-ir-128 csISO128T101G2 }
9555 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9556 csISOLatinHebrew }
9557 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9558 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9559 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9560 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9561 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9562 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9563 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9564 csISOLatinCyrillic }
9565 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9566 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9567 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9568 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9569 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9570 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9571 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9572 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9573 { ISO_10367-box iso-ir-155 csISO10367Box }
9574 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9575 { latin-lap lap iso-ir-158 csISO158Lap }
9576 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9577 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9578 { us-dk csUSDK }
9579 { dk-us csDKUS }
9580 { JIS_X0201 X0201 csHalfWidthKatakana }
9581 { KSC5636 ISO646-KR csKSC5636 }
9582 { ISO-10646-UCS-2 csUnicode }
9583 { ISO-10646-UCS-4 csUCS4 }
9584 { DEC-MCS dec csDECMCS }
9585 { hp-roman8 roman8 r8 csHPRoman8 }
9586 { macintosh mac csMacintosh }
9587 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9588 csIBM037 }
9589 { IBM038 EBCDIC-INT cp038 csIBM038 }
9590 { IBM273 CP273 csIBM273 }
9591 { IBM274 EBCDIC-BE CP274 csIBM274 }
9592 { IBM275 EBCDIC-BR cp275 csIBM275 }
9593 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9594 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9595 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9596 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9597 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9598 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9599 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9600 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9601 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9602 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9603 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9604 { IBM437 cp437 437 csPC8CodePage437 }
9605 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9606 { IBM775 cp775 csPC775Baltic }
9607 { IBM850 cp850 850 csPC850Multilingual }
9608 { IBM851 cp851 851 csIBM851 }
9609 { IBM852 cp852 852 csPCp852 }
9610 { IBM855 cp855 855 csIBM855 }
9611 { IBM857 cp857 857 csIBM857 }
9612 { IBM860 cp860 860 csIBM860 }
9613 { IBM861 cp861 861 cp-is csIBM861 }
9614 { IBM862 cp862 862 csPC862LatinHebrew }
9615 { IBM863 cp863 863 csIBM863 }
9616 { IBM864 cp864 csIBM864 }
9617 { IBM865 cp865 865 csIBM865 }
9618 { IBM866 cp866 866 csIBM866 }
9619 { IBM868 CP868 cp-ar csIBM868 }
9620 { IBM869 cp869 869 cp-gr csIBM869 }
9621 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9622 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9623 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9624 { IBM891 cp891 csIBM891 }
9625 { IBM903 cp903 csIBM903 }
9626 { IBM904 cp904 904 csIBBM904 }
9627 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9628 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9629 { IBM1026 CP1026 csIBM1026 }
9630 { EBCDIC-AT-DE csIBMEBCDICATDE }
9631 { EBCDIC-AT-DE-A csEBCDICATDEA }
9632 { EBCDIC-CA-FR csEBCDICCAFR }
9633 { EBCDIC-DK-NO csEBCDICDKNO }
9634 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9635 { EBCDIC-FI-SE csEBCDICFISE }
9636 { EBCDIC-FI-SE-A csEBCDICFISEA }
9637 { EBCDIC-FR csEBCDICFR }
9638 { EBCDIC-IT csEBCDICIT }
9639 { EBCDIC-PT csEBCDICPT }
9640 { EBCDIC-ES csEBCDICES }
9641 { EBCDIC-ES-A csEBCDICESA }
9642 { EBCDIC-ES-S csEBCDICESS }
9643 { EBCDIC-UK csEBCDICUK }
9644 { EBCDIC-US csEBCDICUS }
9645 { UNKNOWN-8BIT csUnknown8BiT }
9646 { MNEMONIC csMnemonic }
9647 { MNEM csMnem }
9648 { VISCII csVISCII }
9649 { VIQR csVIQR }
9650 { KOI8-R csKOI8R }
9651 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9652 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9653 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9654 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9655 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9656 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9657 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9658 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9659 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9660 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9661 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9662 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9663 { IBM1047 IBM-1047 }
9664 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9665 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9666 { UNICODE-1-1 csUnicode11 }
9667 { CESU-8 csCESU-8 }
9668 { BOCU-1 csBOCU-1 }
9669 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9670 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9671 l8 }
9672 { ISO-8859-15 ISO_8859-15 Latin-9 }
9673 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9674 { GBK CP936 MS936 windows-936 }
9675 { JIS_Encoding csJISEncoding }
9676 { Shift_JIS MS_Kanji csShiftJIS }
9677 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9678 EUC-JP }
9679 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9680 { ISO-10646-UCS-Basic csUnicodeASCII }
9681 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9682 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9683 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9684 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9685 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9686 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9687 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9688 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9689 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9690 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9691 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9692 { Ventura-US csVenturaUS }
9693 { Ventura-International csVenturaInternational }
9694 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9695 { PC8-Turkish csPC8Turkish }
9696 { IBM-Symbols csIBMSymbols }
9697 { IBM-Thai csIBMThai }
9698 { HP-Legal csHPLegal }
9699 { HP-Pi-font csHPPiFont }
9700 { HP-Math8 csHPMath8 }
9701 { Adobe-Symbol-Encoding csHPPSMath }
9702 { HP-DeskTop csHPDesktop }
9703 { Ventura-Math csVenturaMath }
9704 { Microsoft-Publishing csMicrosoftPublishing }
9705 { Windows-31J csWindows31J }
9706 { GB2312 csGB2312 }
9707 { Big5 csBig5 }
9708 }
9710 proc tcl_encoding {enc} {
9711 global encoding_aliases
9712 set names [encoding names]
9717 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9720 }
9721 }
9726 # look through the aliases for one that tcl knows about
9732 }
9733 }
9735 }
9736 break
9737 }
9738 }
9741 }
9742 return {}
9743 }
9745 # First check that Tcl/Tk is recent enough
9746 if {[catch {package require Tk 8.4} err]} {
9747 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9748 Gitk requires at least Tcl/Tk 8.4."]
9749 exit 1
9750 }
9752 # defaults...
9753 set wrcomcmd "git diff-tree --stdin -p --pretty"
9755 set gitencoding {}
9756 catch {
9757 set gitencoding [exec git config --get i18n.commitencoding]
9758 }
9760 set gitencoding "utf-8"
9761 }
9765 }
9767 set mainfont {Helvetica 9}
9768 set textfont {Courier 9}
9769 set uifont {Helvetica 9 bold}
9770 set tabstop 8
9771 set findmergefiles 0
9772 set maxgraphpct 50
9773 set maxwidth 16
9774 set revlistorder 0
9775 set fastdate 0
9776 set uparrowlen 5
9777 set downarrowlen 5
9778 set mingaplen 100
9779 set cmitmode "patch"
9780 set wrapcomment "none"
9781 set showneartags 1
9782 set maxrefs 20
9783 set maxlinelen 200
9784 set showlocalchanges 1
9785 set limitdiffs 1
9786 set datetimeformat "%Y-%m-%d %H:%M:%S"
9787 set autoselect 1
9789 set extdifftool "meld"
9791 set colors {green red blue magenta darkgrey brown orange}
9792 set bgcolor white
9793 set fgcolor black
9794 set diffcolors {red "#00a000" blue}
9795 set diffcontext 3
9796 set ignorespace 0
9797 set selectbgcolor gray85
9799 set circlecolors {white blue gray blue blue}
9801 ## For msgcat loading, first locate the installation location.
9802 if { [info exists ::env(GITK_MSGSDIR)] } {
9803 ## Msgsdir was manually set in the environment.
9804 set gitk_msgsdir $::env(GITK_MSGSDIR)
9805 } else {
9806 ## Let's guess the prefix from argv0.
9810 unset gitk_prefix
9811 }
9813 ## Internationalization (i18n) through msgcat and gettext. See
9814 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9815 package require msgcat
9816 namespace import ::msgcat::mc
9817 ## And eventually load the actual message catalog
9820 catch {source ~/.gitk}
9822 font create optionfont -family sans-serif -size -12
9825 eval font create mainfont [fontflags mainfont]
9826 eval font create mainfontbold [fontflags mainfont 1]
9829 eval font create textfont [fontflags textfont]
9830 eval font create textfontbold [fontflags textfont 1]
9833 eval font create uifont [fontflags uifont]
9835 setoptions
9837 # check that we can find a .git directory somewhere...
9838 if {[catch {set gitdir [gitdir]}]} {
9839 show_error {} . [mc "Cannot find a git repository here."]
9840 exit 1
9841 }
9844 exit 1
9845 }
9847 set revtreeargs {}
9848 set cmdline_files {}
9849 set i 0
9850 set revtreeargscmd {}
9853 "" { }
9854 "--" {
9856 break
9857 }
9858 "--argscmd=*" {
9860 }
9861 default {
9863 }
9864 }
9865 incr i
9866 }
9869 # no -- on command line, but some arguments (other than --argscmd)
9870 if {[catch {
9875 # Unfortunately git rev-parse doesn't produce an error when
9876 # something is both a revision and a filename. To be consistent
9877 # with git log and git rev-list, check revtreeargs for filenames.
9880 show_error {} . [mc "Ambiguous argument '%s': both revision\
9882 exit 1
9883 }
9884 }
9885 } err]} {
9887 # so look for "fatal:".
9891 }
9893 exit 1
9894 }
9895 }
9897 set nullid "0000000000000000000000000000000000000000"
9898 set nullid2 "0000000000000000000000000000000000000001"
9899 set nullfile "/dev/null"
9903 set runq {}
9904 set history {}
9905 set historyindex 0
9906 set fh_serial 0
9907 set nhl_names {}
9908 set highlight_paths {}
9909 set findpattern {}
9910 set searchdirn -forwards
9911 set boldrows {}
9912 set boldnamerows {}
9913 set diffelide {0 0}
9914 set markingmatches 0
9915 set linkentercount 0
9916 set need_redisplay 0
9917 set nrows_drawn 0
9918 set firsttabstop 0
9920 set nextviewnum 1
9921 set curview 0
9922 set selectedview 0
9923 set selectedhlview [mc "None"]
9924 set highlight_related [mc "None"]
9925 set highlight_files {}
9926 set viewfiles(0) {}
9927 set viewperm(0) 0
9928 set viewargs(0) {}
9929 set viewargscmd(0) {}
9931 set selectedline {}
9932 set numcommits 0
9933 set loginstance 0
9934 set cmdlineok 0
9935 set stopped 0
9936 set stuffsaved 0
9937 set patchnum 0
9938 set lserial 0
9939 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9940 setcoords
9941 makewindow
9942 # wait for the window to become visible
9943 tkwait visibility .
9945 readrefs
9948 # create a view for the files/dirs specified on the command line
9949 set curview 1
9950 set selectedview 1
9951 set nextviewnum 2
9952 set viewname(1) [mc "Command line"]
9956 set viewperm(1) 0
9957 set vdatemode(1) 0
9958 addviewmenu 1
9959 .bar.view entryconf [mc "Edit view..."] -state normal
9960 .bar.view entryconf [mc "Delete view"] -state normal
9961 }
9963 if {[info exists permviews]} {
9966 incr nextviewnum
9973 }
9974 }
9975 getcommits