| blob | abb6542c5f3b39c9f86cf0cfd4d26860d3de2d75 |
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
6463 set treediff {}
6466 }
6468 proc gettreediffline {gdtf ids} {
6469 global treediff treediffs treepending diffids diffmergeid
6470 global cmitmode vfilelimit curview limitdiffs
6472 set nr 0
6479 }
6481 }
6482 }
6485 }
6488 set flist {}
6492 }
6493 }
6495 } else {
6497 }
6498 unset treepending
6502 if {![info exists diffmergeid]} {
6504 }
6505 } else {
6507 }
6508 return 0
6509 }
6511 # empty string or positive integer
6512 proc diffcontextvalidate {v} {
6514 }
6516 proc diffcontextchange {n1 n2 op} {
6517 global diffcontextstring diffcontext
6522 reselectline
6523 }
6524 }
6525 }
6527 proc changeignorespace {} {
6528 reselectline
6529 }
6531 proc getblobdiffs {ids} {
6532 global blobdifffd diffids env
6533 global diffinhdr treediffs
6534 global diffcontext
6535 global ignorespace
6536 global limitdiffs vfilelimit curview
6540 append cmd " -w"
6541 }
6544 }
6547 return
6548 }
6549 set diffinhdr 0
6553 }
6555 proc setinlist {var i val} {
6560 }
6563 } else {
6565 }
6566 }
6568 proc makediffhdr {fname ids} {
6569 global ctext curdiffstart treediffs
6574 }
6578 }
6580 proc getblobdiffline {bdf ids} {
6581 global diffids blobdifffd ctext curdiffstart
6582 global diffnexthead diffnextnote difffilestart
6583 global diffinhdr treediffs
6585 set nr 0
6590 return 0
6591 }
6593 # trim off "diff --git "
6595 set diffinhdr 1
6596 # start of a new file
6600 # If the name hasn't changed the length will be odd,
6601 # the middle char will be a space, and the two bits either
6602 # side will be a/name and b/name, or "a/name" and "b/name".
6603 # If the name has changed we'll get "rename from" and
6604 # "rename to" or "copy from" and "copy to" lines following this,
6605 # and we'll use them to get the filenames.
6606 # This complexity is necessary because spaces in the filename(s)
6607 # don't get escaped.
6613 continue
6614 }
6615 # unescape if quoted and chop off the a/ from the front
6618 } else {
6620 }
6623 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6626 set diffinhdr 0
6633 }
6637 }
6643 }
6646 # do nothing
6647 continue
6649 set diffinhdr 0
6650 continue
6651 }
6654 } else {
6661 } else {
6662 # "\ No newline at end of file",
6663 # or something else we don't recognize
6665 }
6666 }
6667 }
6671 return 0
6672 }
6674 }
6676 proc changediffdisp {} {
6677 global ctext diffelide
6681 }
6683 proc highlightfile {loc cline} {
6684 global ctext cflist cflist_top
6691 }
6693 proc prevfile {} {
6694 global difffilestart ctext cmitmode
6697 set prev 0.0
6698 set prevline 1
6703 return
6704 }
6706 incr prevline
6707 }
6709 }
6711 proc nextfile {} {
6712 global difffilestart ctext cmitmode
6716 set line 1
6718 incr line
6721 return
6722 }
6723 }
6724 }
6726 proc clear_ctext {{first 1.0}} {
6727 global ctext smarktop smarkbot
6728 global pendinglinks
6733 }
6736 }
6739 catch {unset pendinglinks}
6740 }
6741 }
6743 proc settabs {{firstab {}}} {
6744 global firsttabstop tabstop ctext have_tk85
6748 }
6749 set w [font measure textfont "0"]
6755 } else {
6757 }
6758 }
6760 proc incrsearch {name ix op} {
6761 global ctext searchstring searchdirn
6765 # no anchor set, use start of selection, or of visible area
6771 } else {
6773 }
6774 }
6779 }
6780 searchmarkvisible 1
6781 }
6782 }
6784 proc dosearch {} {
6785 global sstring ctext searchstring searchdirn
6789 set searchdirn -forwards
6795 set start "@0,0"
6796 }
6800 bell
6801 return
6802 }
6807 }
6808 }
6810 proc dosearchback {} {
6811 global sstring ctext searchstring searchdirn
6815 set searchdirn -backwards
6822 }
6826 bell
6827 return
6828 }
6833 }
6834 }
6836 proc searchmark {first last} {
6837 global ctext searchstring
6840 while {1} {
6845 }
6846 }
6848 proc searchmarkvisible {doall} {
6849 global ctext smarktop smarkbot
6854 # no overlap with previous
6858 } else {
6862 }
6866 }
6867 }
6868 }
6870 proc scrolltext {f0 f1} {
6871 global searchstring
6875 searchmarkvisible 0
6876 }
6877 }
6879 proc setcoords {} {
6880 global linespc charspc canvx0 canvy0
6881 global xspc1 xspc2 lthickness
6883 set linespc [font metrics mainfont -linespace]
6884 set charspc [font measure mainfont "m"]
6890 }
6892 proc redisplay {} {
6893 global canv
6894 global selectedline
6899 clear_display
6900 setcanvscroll
6902 drawvisible
6906 }
6907 }
6909 proc parsefont {f n} {
6910 global fontattr
6915 set s 10
6918 }
6924 "normal" -
6926 "roman" -
6928 }
6929 }
6930 }
6932 proc fontflags {f {isbold 0}} {
6933 global fontattr
6938 }
6940 proc fontname {f} {
6941 global fontattr
6945 lappend n "bold"
6946 }
6948 lappend n "italic"
6949 }
6951 }
6953 proc incrfont {inc} {
6954 global mainfont textfont ctext canv cflist showrefstop
6955 global stopped entries fontattr
6957 unmarkmatches
6961 set s 1
6962 }
6966 set mainfont [fontname mainfont]
6970 set s 1
6971 }
6975 set textfont [fontname textfont]
6976 setcoords
6977 settabs
6978 redisplay
6979 }
6981 proc clearsha1 {} {
6982 global sha1entry sha1string
6985 }
6986 }
6988 proc sha1change {n1 n2 op} {
6989 global sha1string currentid sha1but
6992 set state disabled
6993 } else {
6994 set state normal
6995 }
6999 } else {
7001 }
7002 }
7004 proc gotocommit {} {
7005 global sha1string tagids headids curview varcid
7013 } else {
7020 return
7021 }
7023 }
7024 }
7025 }
7028 return
7029 }
7032 } else {
7034 }
7036 }
7038 proc lineenter {x y id} {
7039 global hoverx hovery hoverid hovertimer
7040 global commitinfo canv
7046 if {[info exists hovertimer]} {
7048 }
7049 set hovertimer [after 500 linehover]
7051 }
7053 proc linemotion {x y id} {
7054 global hoverx hovery hoverid hovertimer
7059 if {[info exists hovertimer]} {
7061 }
7062 set hovertimer [after 500 linehover]
7063 }
7064 }
7066 proc lineleave {id} {
7067 global hoverid hovertimer canv
7071 if {[info exists hovertimer]} {
7073 unset hovertimer
7074 }
7075 unset hoverid
7076 }
7077 }
7079 proc linehover {} {
7080 global hoverx hovery hoverid hovertimer
7081 global canv linespc lthickness
7082 global commitinfo
7095 -fill \#ffff80 -outline black -width 1 -tags hover]
7098 -font mainfont]
7100 }
7102 proc clickisonarrow {id y} {
7103 global lthickness
7112 }
7113 }
7114 return {}
7115 }
7117 proc arrowjump {id n y} {
7118 global canv
7120 # 1 <-> 2, 3 <-> 4, etc...
7130 set yfrac 0
7131 }
7133 }
7135 proc lineclick {x y id isnew} {
7136 global ctext commitinfo children canv thickerline curview
7139 unmarkmatches
7140 unselectline
7141 normalline
7143 # draw this line thicker than normal
7151 }
7155 return
7156 }
7160 }
7161 # fill the details pane with info about this line
7163 clear_ctext
7164 settabs 0
7176 set i 0
7178 incr i
7188 }
7189 }
7191 init_flist {}
7192 }
7194 proc normalline {} {
7195 global thickerline
7196 if {[info exists thickerline]} {
7198 unset thickerline
7200 }
7201 }
7203 proc selbyid {id} {
7204 global curview
7207 }
7208 }
7210 proc mstime {} {
7211 global startmstime
7212 if {![info exists startmstime]} {
7213 set startmstime [clock clicks -milliseconds]
7214 }
7216 }
7218 proc rowmenu {x y id} {
7219 global rowctxmenu selectedline rowmenuid curview
7220 global nullid nullid2 fakerowmenu mainhead
7222 stopfinding
7225 set state disabled
7226 } else {
7227 set state normal
7228 }
7233 } else {
7235 }
7236 } else {
7238 }
7243 }
7245 proc diffvssel {dirn} {
7246 global rowmenuid selectedline
7252 } else {
7255 }
7258 }
7260 proc doseldiff {oldid newid} {
7261 global ctext
7262 global commitinfo
7265 clear_ctext
7266 init_flist [mc "Top"]
7281 }
7283 proc mkpatch {} {
7284 global rowmenuid currentid commitinfo patchtop patchnum
7286 if {![info exists currentid]} return
7291 set top .patch
7320 incr patchnum
7330 }
7332 proc mkpatchrev {} {
7333 global patchtop
7339 foreach e [list fromsha1 fromhead tosha1 tohead] \
7345 }
7346 }
7348 proc mkpatchgo {} {
7349 global patchtop nullid nullid2
7355 # trim off the initial "|"
7360 }
7362 unset patchtop
7363 }
7365 proc mkpatchcan {} {
7366 global patchtop
7369 unset patchtop
7370 }
7372 proc mktag {} {
7373 global rowmenuid mktagtop commitinfo
7375 set top .maketag
7401 }
7403 proc domktag {} {
7404 global mktagtop env tagids idtags
7409 error_popup [mc "No tag name specified"]
7410 return
7411 }
7414 return
7415 }
7416 if {[catch {
7418 } err]} {
7420 return
7421 }
7427 dispneartags 0
7428 run refill_reflist
7429 }
7431 proc redrawtags {id} {
7432 global canv linehtag idpos currentid curview cmitlisted
7433 global canvxmax iddrawn circleitem mainheadid circlecolors
7439 set ofill yellow
7440 } else {
7442 }
7452 setcanvscroll
7453 }
7456 }
7457 }
7459 proc mktagcan {} {
7460 global mktagtop
7463 unset mktagtop
7464 }
7466 proc mktaggo {} {
7467 domktag
7468 mktagcan
7469 }
7471 proc writecommit {} {
7472 global rowmenuid wrcomtop commitinfo wrcomcmd
7474 set top .writecommit
7504 }
7506 proc wrcomgo {} {
7507 global wrcomtop
7514 }
7516 unset wrcomtop
7517 }
7519 proc wrcomcan {} {
7520 global wrcomtop
7523 unset wrcomtop
7524 }
7526 proc mkbranch {} {
7527 global rowmenuid mkbrtop
7529 set top .makebranch
7550 }
7552 proc mkbrgo {top} {
7553 global headids idheads
7558 error_popup [mc "Please specify a name for the new branch"]
7559 return
7560 }
7562 nowbusy newbranch
7563 update
7564 if {[catch {
7566 } err]} {
7567 notbusy newbranch
7569 } else {
7573 notbusy newbranch
7575 dispneartags 0
7576 run refill_reflist
7577 }
7578 }
7580 proc cherrypick {} {
7581 global rowmenuid curview
7582 global mainhead mainheadid
7584 set oldhead [exec git rev-parse HEAD]
7587 set ok [confirm_popup [mc "Commit %s is already\
7588 included in branch %s -- really re-apply it?" \
7591 }
7592 nowbusy cherrypick [mc "Cherry-picking"]
7593 update
7594 # Unfortunately git-cherry-pick writes stuff to stderr even when
7595 # no error occurs, and exec takes that as an indication of error...
7597 notbusy cherrypick
7599 return
7600 }
7601 set newhead [exec git rev-parse HEAD]
7603 notbusy cherrypick
7604 error_popup [mc "No changes committed"]
7605 return
7606 }
7613 }
7618 }
7619 notbusy cherrypick
7620 }
7622 proc resethead {} {
7623 global mainhead rowmenuid confirm_ok resettype
7625 set confirm_ok 0
7626 set w ".confirmreset"
7632 -justify center -aspect 1000
7637 set resettype mixed
7639 -text [mc "Soft: Leave working tree and index untouched"]
7642 -text [mc "Mixed: Leave working tree untouched, reset index"]
7645 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7655 if {[catch {set fd [open \
7658 } else {
7659 dohidelocalchanges
7661 nowbusy reset [mc "Resetting"]
7663 }
7664 }
7666 proc readresetstat {fd} {
7667 global mainhead mainheadid showlocalchanges rprogcoord
7672 adjustprogress
7673 }
7674 return 1
7675 }
7676 set rprogcoord 0
7677 adjustprogress
7678 notbusy reset
7681 }
7683 set newhead [exec git rev-parse HEAD]
7690 }
7692 doshowlocalchanges
7693 }
7694 return 0
7695 }
7697 # context menu for a head
7698 proc headmenu {x y id head} {
7699 global headmenuid headmenuhead headctxmenu mainhead
7701 stopfinding
7704 set state normal
7706 set state disabled
7707 }
7711 }
7713 proc cobranch {} {
7714 global headmenuid headmenuhead headids
7715 global showlocalchanges mainheadid
7717 # check the tree is clean first??
7718 nowbusy checkout [mc "Checking out"]
7719 update
7720 dohidelocalchanges
7721 if {[catch {
7723 } err]} {
7724 notbusy checkout
7727 dodiffindex
7728 }
7729 } else {
7731 }
7732 }
7734 proc readcheckoutstat {fd newhead newheadid} {
7735 global mainhead mainheadid headids showlocalchanges progresscoords
7740 adjustprogress
7741 }
7742 return 1
7743 }
7744 set progresscoords {0 0}
7745 adjustprogress
7746 notbusy checkout
7749 }
7757 dodiffindex
7758 }
7759 }
7761 proc rmbranch {} {
7762 global headmenuid headmenuhead mainhead
7763 global idheads
7767 # this check shouldn't be needed any more...
7769 error_popup [mc "Cannot delete the currently checked-out branch"]
7770 return
7771 }
7774 # the stuff on this branch isn't on any other branch
7775 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7777 }
7778 nowbusy rmbranch
7779 update
7781 notbusy rmbranch
7783 return
7784 }
7788 notbusy rmbranch
7789 dispneartags 0
7790 run refill_reflist
7791 }
7793 # Display a list of tags and heads
7794 proc showrefs {} {
7795 global showrefstop bgcolor fgcolor selectbgcolor
7796 global bglist fglist reflistfilter reflist maincursor
7798 set top .showrefs
7802 refill_reflist
7803 return
7804 }
7811 -spacing1 1 -spacing3 1 -state disabled
7822 set reflistfilter "*"
7823 trace add variable reflistfilter write reflistfilter_change
7834 set reflist {}
7835 refill_reflist
7836 }
7838 proc sel_reflist {w x y} {
7839 global showrefstop reflist headids tagids otherrefids
7849 }
7851 }
7853 proc unsel_reflist {} {
7854 global showrefstop
7858 }
7860 proc reflistfilter_change {n1 n2 op} {
7861 global reflistfilter
7863 after cancel refill_reflist
7864 after 200 refill_reflist
7865 }
7867 proc refill_reflist {} {
7868 global reflist reflistfilter showrefstop headids tagids otherrefids
7869 global curview commitinterest
7872 set refs {}
7873 foreach n [array names headids] {
7877 } else {
7879 }
7880 }
7881 }
7882 foreach n [array names tagids] {
7886 } else {
7888 }
7889 }
7890 }
7891 foreach n [array names otherrefids] {
7895 } else {
7897 }
7898 }
7899 }
7907 set i 0
7908 set j 0
7917 }
7918 } else {
7919 set cmp -1
7920 }
7921 } else {
7922 set cmp 1
7923 }
7925 -1 {
7927 incr i
7928 }
7929 0 {
7930 incr i
7931 incr j
7932 }
7933 1 {
7938 incr j
7939 }
7940 }
7941 }
7943 # delete last newline
7946 }
7948 # Stuff for finding nearby tags
7949 proc getallcommits {} {
7950 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7951 global idheads idtags idotherrefs allparents tagobjid
7953 if {![info exists allcommits]} {
7954 set nextarc 0
7955 set allcommits 0
7956 set seeds {}
7957 set allcwait 0
7958 set cachedarcs 0
7959 set allccache [file join [gitdir] "gitk.cache"]
7960 if {![catch {
7962 set allcwait 1
7964 }]} return
7965 }
7968 return
7969 }
7970 set cmd [list | git rev-list --parents]
7973 set ids "--all"
7974 } else {
7975 set refs [concat [array names idheads] [array names idtags] \
7976 [array names idotherrefs]]
7977 set ids {}
7978 set tagobjs {}
7979 foreach name [array names tagobjid] {
7981 }
7986 }
7987 }
7991 }
7992 }
7993 }
7997 incr allcommits
7998 nowbusy allcommits
8000 } else {
8001 dispneartags 0
8002 }
8003 }
8005 # Since most commits have 1 parent and 1 child, we group strings of
8006 # such commits into "arcs" joining branch/merge points (BMPs), which
8007 # are commits that either don't have 1 parent or don't have 1 child.
8008 #
8009 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8010 # arcout(id) - outgoing arcs for BMP
8011 # arcids(a) - list of IDs on arc including end but not start
8012 # arcstart(a) - BMP ID at start of arc
8013 # arcend(a) - BMP ID at end of arc
8014 # growing(a) - arc a is still growing
8015 # arctags(a) - IDs out of arcids (excluding end) that have tags
8016 # archeads(a) - IDs out of arcids (excluding end) that have heads
8017 # The start of an arc is at the descendent end, so "incoming" means
8018 # coming from descendents, and "outgoing" means going towards ancestors.
8020 proc getallclines {fd} {
8021 global allparents allchildren idtags idheads nextarc
8022 global arcnos arcids arctags arcout arcend arcstart archeads growing
8023 global seeds allcommits cachedarcs allcupdate
8025 set nid 0
8029 # seen it already
8030 continue
8031 }
8032 set cachedarcs 0
8039 } else {
8045 }
8048 }
8050 # seen parent already
8053 }
8057 }
8060 continue
8061 }
8062 }
8067 }
8069 set ao {}
8072 set a [incr nextarc]
8081 # seen it already, may need to make a new branch
8084 }
8088 }
8090 }
8092 }
8094 global cached_dheads cached_dtags cached_atags
8095 catch {unset cached_dheads}
8096 catch {unset cached_dtags}
8097 catch {unset cached_atags}
8098 }
8101 }
8102 set cacheok 1
8103 if {[catch {
8106 } err]} {
8107 # got an error reading the list of commits
8108 # if we were updating, try rereading the whole thing again
8110 incr allcommits -1
8112 return
8113 }
8114 error_popup "[mc "Error reading commit topology information;\
8115 branch and preceding/following tag information\
8117 set cacheok 0
8118 }
8119 if {[incr allcommits -1] == 0} {
8120 notbusy allcommits
8122 run savecache
8123 }
8124 }
8125 dispneartags 0
8126 return 0
8127 }
8129 proc recalcarc {a} {
8130 global arctags archeads arcids idtags idheads
8132 set at {}
8133 set ah {}
8137 }
8140 }
8141 }
8144 }
8146 proc splitarc {p} {
8147 global arcnos arcids nextarc arctags archeads idtags idheads
8148 global arcstart arcend arcout allparents growing
8153 return
8154 }
8159 return
8160 }
8161 set na [incr nextarc]
8164 } else {
8168 }
8178 }
8183 } else {
8186 }
8187 }
8189 # reconstruct tags and heads lists
8193 } else {
8196 }
8197 }
8199 # Update things for a new commit added that is a child of one
8200 # existing commit. Used when cherry-picking.
8201 proc addnewchild {id p} {
8202 global allparents allchildren idtags nextarc
8203 global arcnos arcids arctags arcout arcend arcstart archeads growing
8204 global seeds allcommits
8212 set a [incr nextarc]
8220 }
8223 }
8225 # This implements a cache for the topology information.
8226 # The cache saves, for each arc, the start and end of the arc,
8227 # the ids on the arc, and the outgoing arcs from the end.
8228 proc readcache {f} {
8229 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8230 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8231 global allcwait
8237 }
8238 if {[catch {
8240 # finish reading the cache and setting up arctags, etc.
8244 foreach id [array names idtags] {
8250 }
8251 }
8252 }
8253 foreach id [array names idheads] {
8259 }
8260 }
8261 }
8265 }
8266 }
8267 set allcwait 0
8268 } else {
8278 }
8282 } else {
8286 }
8287 }
8293 }
8296 }
8299 }
8301 }
8302 } err]} {
8304 return 0
8305 }
8307 getallcommits
8308 }
8310 }
8312 proc getcache {f} {
8313 global nextarc cachedarcs possible_seeds
8315 if {[catch {
8318 # make sure it's an integer
8321 set nextarc 0
8322 set possible_seeds {}
8324 } err]} {
8326 }
8327 return 0
8328 }
8330 proc dropcache {err} {
8331 global allcwait nextarc cachedarcs seeds
8334 foreach v {arcnos arcout arcids arcstart arcend growing \
8335 arctags archeads allparents allchildren} {
8338 }
8339 set allcwait 0
8340 set nextarc 0
8341 set cachedarcs 0
8342 set seeds {}
8343 getallcommits
8344 }
8346 proc writecache {f} {
8347 global cachearc cachedarcs allccache
8348 global arcstart arcend arcnos arcids arcout
8354 }
8355 if {[catch {
8359 } else {
8361 }
8362 }
8363 } err]} {
8367 return 0
8368 }
8373 return 0
8374 }
8375 return 1
8376 }
8378 proc savecache {} {
8379 global nextarc cachedarcs cachearc allccache
8382 set cachearc 0
8384 catch {
8388 }
8389 }
8391 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8392 # or 0 if neither is true.
8393 proc anc_or_desc {a b} {
8394 global arcout arcstart arcend arcnos cached_isanc
8397 # Both are on the same arc(s); either both are the same BMP,
8398 # or if one is not a BMP, the other is also not a BMP or is
8399 # the BMP at end of the arc (and it only has 1 incoming arc).
8400 # Or both can be BMPs with no incoming arcs.
8402 return 0
8403 }
8409 return 1
8410 } else {
8411 return -1
8412 }
8413 }
8419 } else {
8420 set aend {}
8421 }
8423 } else {
8425 }
8430 } else {
8431 set bend {}
8432 }
8434 } else {
8436 }
8438 return 1
8439 }
8441 return -1
8442 }
8445 return 1
8446 }
8447 }
8450 return -1
8451 }
8453 return 0
8454 }
8455 }
8463 continue
8464 }
8470 return 1
8474 return -1
8475 }
8481 }
8482 }
8483 }
8486 return 0
8487 }
8491 # and returns 0 if so and 1 if not.
8492 # If we subsequently discover a tag on such a growing tip, and that
8495 # isn't a good choice to display as a descendent tag of
8499 #
8500 proc is_certain {desc anc} {
8501 global arcnos arcout arcstart arcend growing problems
8503 set certain {}
8505 # tags on the same arc are certain
8507 return 1
8508 }
8513 }
8514 }
8517 } else {
8520 }
8522 return 1
8523 }
8526 set nnh 1
8527 set ngrowanc 0
8531 incr nnh -1
8532 }
8538 incr ngrowanc
8539 }
8540 } else {
8547 incr nnh -1
8548 }
8550 incr ngrowanc -1
8551 }
8561 incr nnh -1
8562 }
8564 incr ngrowanc -1
8565 }
8567 }
8568 }
8569 }
8570 }
8571 }
8572 }
8576 } else {
8579 incr nnh
8580 }
8581 }
8582 }
8583 }
8584 foreach x [array names growanc] {
8586 return 0
8587 }
8588 return 0
8589 }
8590 return 1
8591 }
8593 proc validate_arctags {a} {
8594 global arctags idtags
8596 set i -1
8599 incr i
8602 incr i -1
8603 }
8604 }
8606 }
8608 proc validate_archeads {a} {
8609 global archeads idheads
8611 set i -1
8614 incr i
8617 incr i -1
8618 }
8619 }
8621 }
8623 # Return the list of IDs that have tags that are descendents of id,
8624 # ignoring IDs that are descendents of IDs already reported.
8625 proc desctags {id} {
8626 global arcnos arcstart arcids arctags idtags allparents
8627 global growing cached_dtags
8630 return {}
8631 }
8632 set t1 [clock clicks -milliseconds]
8635 # part-way along an arc; check that arc first
8640 set tid {}
8645 }
8648 }
8649 }
8653 }
8654 }
8657 }
8662 set nc 1
8668 incr nc -1
8669 }
8670 # ignore tags on starting node
8674 set ta 1
8677 set ta 1
8678 }
8679 }
8686 }
8687 }
8696 }
8699 }
8701 incr nc -1
8702 }
8704 }
8705 }
8706 }
8711 incr nc
8712 }
8713 }
8714 }
8715 }
8716 set tags {}
8717 foreach id [array names tagloc] {
8722 }
8723 }
8724 }
8725 }
8726 set t2 [clock clicks -milliseconds]
8729 # remove tags that are descendents of other tags
8737 incr j -1
8738 incr i -1
8741 incr i -1
8742 break
8743 }
8744 }
8745 }
8747 if {[array names growing] ne {}} {
8748 # graph isn't finished, need to check if any tag could get
8749 # eclipsed by another tag coming later. Simply ignore any
8750 # tags that could later get eclipsed.
8751 set ctags {}
8755 }
8756 }
8759 } else {
8761 }
8762 } else {
8764 }
8765 set t3 [clock clicks -milliseconds]
8769 }
8771 }
8773 proc anctags {id} {
8774 global arcnos arcids arcout arcend arctags idtags allparents
8775 global growing cached_atags
8778 return {}
8779 }
8780 set t1 [clock clicks -milliseconds]
8783 # part-way along an arc; check that arc first
8792 }
8793 }
8794 }
8796 return {}
8797 }
8801 }
8802 }
8805 }
8810 set taglist {}
8811 set nc 1
8817 incr nc -1
8818 }
8819 # ignore tags on starting node
8823 set td 1
8826 set td 1
8827 }
8828 }
8834 }
8835 }
8847 }
8848 }
8851 }
8853 incr nc -1
8854 }
8856 }
8857 }
8858 }
8863 incr nc
8864 }
8865 }
8866 }
8867 }
8868 set t2 [clock clicks -milliseconds]
8870 set tags {}
8871 foreach id [array names tagloc] {
8876 }
8877 }
8878 }
8879 }
8881 # remove tags that are ancestors of other tags
8889 incr j -1
8890 incr i -1
8893 incr i -1
8894 break
8895 }
8896 }
8897 }
8899 if {[array names growing] ne {}} {
8900 # graph isn't finished, need to check if any tag could get
8901 # eclipsed by another tag coming later. Simply ignore any
8902 # tags that could later get eclipsed.
8903 set ctags {}
8907 }
8908 }
8911 } else {
8913 }
8914 } else {
8916 }
8917 set t3 [clock clicks -milliseconds]
8921 }
8923 }
8925 # Return the list of IDs that have heads that are descendents of id,
8926 # including id itself if it has a head.
8927 proc descheads {id} {
8928 global arcnos arcstart arcids archeads idheads cached_dheads
8929 global allparents
8932 return {}
8933 }
8934 set aret {}
8936 # part-way along an arc; check it first
8945 }
8946 }
8948 }
8952 set ret {}
8957 } else {
8960 }
8966 }
8967 }
8972 }
8973 }
8974 }
8975 }
8979 }
8981 proc addedtag {id} {
8982 global arcnos arcout cached_dtags cached_atags
8987 }
8988 catch {unset cached_dtags}
8989 catch {unset cached_atags}
8990 }
8992 proc addedhead {hid head} {
8993 global arcnos arcout cached_dheads
8998 }
8999 catch {unset cached_dheads}
9000 }
9002 proc removedhead {hid head} {
9003 global cached_dheads
9005 catch {unset cached_dheads}
9006 }
9008 proc movedhead {hid head} {
9009 global arcnos arcout cached_dheads
9014 }
9015 catch {unset cached_dheads}
9016 }
9018 proc changedrefs {} {
9019 global cached_dheads cached_dtags cached_atags
9020 global arctags archeads arcnos arcout idheads idtags
9022 foreach id [concat [array names idheads] [array names idtags]] {
9028 }
9029 }
9030 }
9031 catch {unset cached_dtags}
9032 catch {unset cached_atags}
9033 catch {unset cached_dheads}
9034 }
9036 proc rereadrefs {} {
9037 global idtags idheads idotherrefs mainheadid
9039 set refids [concat [array names idtags] \
9040 [array names idheads] [array names idotherrefs]]
9044 }
9045 }
9047 readrefs
9048 changedrefs
9050 [array names idheads] [array names idotherrefs]]]
9055 }
9056 }
9060 }
9061 run refill_reflist
9062 }
9064 proc listrefs {id} {
9065 global idtags idheads idotherrefs
9067 set x {}
9070 }
9071 set y {}
9074 }
9075 set z {}
9078 }
9080 }
9082 proc showtag {tag isnew} {
9083 global ctext tagcontents tagids linknum tagobjid
9087 }
9089 clear_ctext
9090 settabs 0
9091 set linknum 0
9093 catch {
9095 }
9096 }
9099 } else {
9101 }
9104 init_flist {}
9105 }
9107 proc doquit {} {
9108 global stopped
9109 global gitktmpdir
9111 set stopped 100
9112 savestuff .
9113 destroy .
9115 if {[info exists gitktmpdir]} {
9117 }
9118 }
9120 proc mkfontdisp {font top which} {
9129 }
9131 proc choosefont {font which} {
9132 global fontparam fontlist fonttop fontattr
9140 set top .gitkfont
9143 font create sample
9149 set fontlist [lsort [font families]]
9160 -textvariable fontparam(size) \
9161 -validatecommand {string is integer -strict %s}
9163 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9164 -variable fontparam(weight) -onvalue bold -offvalue normal
9166 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9167 -variable fontparam(slant) -onvalue italic -offvalue roman
9171 -background white
9173 -fill black -tags text
9183 trace add variable fontparam write chg_fontparam
9184 } else {
9187 }
9192 }
9193 }
9195 proc centertext {w} {
9197 }
9199 proc fontok {} {
9200 global fontparam fontpref prefstop
9206 }
9209 }
9213 fontcan
9214 }
9216 proc fontcan {} {
9217 global fonttop fontparam
9219 if {[info exists fonttop]} {
9221 catch {font delete sample}
9222 unset fonttop
9223 unset fontparam
9224 }
9225 }
9227 proc selfontfam {} {
9228 global fonttop fontparam
9233 }
9234 }
9236 proc chg_fontparam {v sub op} {
9237 global fontparam
9240 }
9242 proc doprefs {} {
9243 global maxwidth maxgraphpct
9244 global oldprefs prefstop showneartags showlocalchanges
9245 global bgcolor fgcolor ctext diffcolors selectbgcolor
9246 global tabstop limitdiffs autoselect extdifftool
9248 set top .gitkprefs
9252 return
9253 }
9254 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9255 limitdiffs tabstop} {
9257 }
9264 -font optionfont
9268 -font optionfont
9301 -padx 10
9303 -command choose_extdiff
9330 "diff hunk header" \
9352 }
9354 proc choose_extdiff {} {
9355 global extdifftool
9357 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9360 }
9361 }
9363 proc choosecolor {v vi w x cmd} {
9372 }
9374 proc setselbg {c} {
9375 global bglist cflist
9378 }
9382 }
9384 proc setbg {c} {
9385 global bglist
9389 }
9390 }
9392 proc setfg {c} {
9393 global fglist canv
9397 }
9400 }
9402 proc prefscan {} {
9403 global oldprefs prefstop
9405 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9406 limitdiffs tabstop} {
9409 }
9411 unset prefstop
9412 fontcan
9413 }
9415 proc prefsok {} {
9416 global maxwidth maxgraphpct
9417 global oldprefs prefstop showneartags showlocalchanges
9418 global fontpref mainfont textfont uifont
9419 global limitdiffs treediffs
9422 unset prefstop
9423 fontcan
9424 set fontchanged 0
9428 eval font configure mainfont [fontflags mainfont]
9429 eval font configure mainfontbold [fontflags mainfont 1]
9430 setcoords
9431 set fontchanged 1
9432 }
9436 eval font configure textfont [fontflags textfont]
9437 eval font configure textfontbold [fontflags textfont 1]
9438 }
9442 eval font configure uifont [fontflags uifont]
9443 }
9444 settabs
9447 doshowlocalchanges
9448 } else {
9449 dohidelocalchanges
9450 }
9451 }
9453 # treediffs elements are limited by path
9454 catch {unset treediffs}
9455 }
9458 redisplay
9461 reselectline
9462 }
9463 }
9465 proc formatdate {d} {
9466 global datetimeformat
9469 }
9471 }
9473 # This list of encoding names and aliases is distilled from
9474 # http://www.iana.org/assignments/character-sets.
9475 # Not all of them are supported by Tcl.
9476 set encoding_aliases {
9477 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9478 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9479 { ISO-10646-UTF-1 csISO10646UTF1 }
9480 { ISO_646.basic:1983 ref csISO646basic1983 }
9481 { INVARIANT csINVARIANT }
9482 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9483 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9484 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9485 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9486 { NATS-DANO iso-ir-9-1 csNATSDANO }
9487 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9488 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9489 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9490 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9491 { ISO-2022-KR csISO2022KR }
9492 { EUC-KR csEUCKR }
9493 { ISO-2022-JP csISO2022JP }
9494 { ISO-2022-JP-2 csISO2022JP2 }
9495 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9496 csISO13JISC6220jp }
9497 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9498 { IT iso-ir-15 ISO646-IT csISO15Italian }
9499 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9500 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9501 { greek7-old iso-ir-18 csISO18Greek7Old }
9502 { latin-greek iso-ir-19 csISO19LatinGreek }
9503 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9504 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9505 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9506 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9507 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9508 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9509 { INIS iso-ir-49 csISO49INIS }
9510 { INIS-8 iso-ir-50 csISO50INIS8 }
9511 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9512 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9513 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9514 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9515 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9516 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9517 csISO60Norwegian1 }
9518 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9519 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9520 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9521 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9522 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9523 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9524 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9525 { greek7 iso-ir-88 csISO88Greek7 }
9526 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9527 { iso-ir-90 csISO90 }
9528 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9529 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9530 csISO92JISC62991984b }
9531 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9532 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9533 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9534 csISO95JIS62291984handadd }
9535 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9536 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9537 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9538 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9539 CP819 csISOLatin1 }
9540 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9541 { T.61-7bit iso-ir-102 csISO102T617bit }
9542 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9543 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9544 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9545 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9546 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9547 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9548 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9549 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9550 arabic csISOLatinArabic }
9551 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9552 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9553 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9554 greek greek8 csISOLatinGreek }
9555 { T.101-G2 iso-ir-128 csISO128T101G2 }
9556 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9557 csISOLatinHebrew }
9558 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9559 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9560 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9561 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9562 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9563 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9564 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9565 csISOLatinCyrillic }
9566 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9567 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9568 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9569 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9570 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9571 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9572 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9573 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9574 { ISO_10367-box iso-ir-155 csISO10367Box }
9575 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9576 { latin-lap lap iso-ir-158 csISO158Lap }
9577 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9578 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9579 { us-dk csUSDK }
9580 { dk-us csDKUS }
9581 { JIS_X0201 X0201 csHalfWidthKatakana }
9582 { KSC5636 ISO646-KR csKSC5636 }
9583 { ISO-10646-UCS-2 csUnicode }
9584 { ISO-10646-UCS-4 csUCS4 }
9585 { DEC-MCS dec csDECMCS }
9586 { hp-roman8 roman8 r8 csHPRoman8 }
9587 { macintosh mac csMacintosh }
9588 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9589 csIBM037 }
9590 { IBM038 EBCDIC-INT cp038 csIBM038 }
9591 { IBM273 CP273 csIBM273 }
9592 { IBM274 EBCDIC-BE CP274 csIBM274 }
9593 { IBM275 EBCDIC-BR cp275 csIBM275 }
9594 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9595 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9596 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9597 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9598 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9599 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9600 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9601 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9602 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9603 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9604 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9605 { IBM437 cp437 437 csPC8CodePage437 }
9606 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9607 { IBM775 cp775 csPC775Baltic }
9608 { IBM850 cp850 850 csPC850Multilingual }
9609 { IBM851 cp851 851 csIBM851 }
9610 { IBM852 cp852 852 csPCp852 }
9611 { IBM855 cp855 855 csIBM855 }
9612 { IBM857 cp857 857 csIBM857 }
9613 { IBM860 cp860 860 csIBM860 }
9614 { IBM861 cp861 861 cp-is csIBM861 }
9615 { IBM862 cp862 862 csPC862LatinHebrew }
9616 { IBM863 cp863 863 csIBM863 }
9617 { IBM864 cp864 csIBM864 }
9618 { IBM865 cp865 865 csIBM865 }
9619 { IBM866 cp866 866 csIBM866 }
9620 { IBM868 CP868 cp-ar csIBM868 }
9621 { IBM869 cp869 869 cp-gr csIBM869 }
9622 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9623 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9624 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9625 { IBM891 cp891 csIBM891 }
9626 { IBM903 cp903 csIBM903 }
9627 { IBM904 cp904 904 csIBBM904 }
9628 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9629 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9630 { IBM1026 CP1026 csIBM1026 }
9631 { EBCDIC-AT-DE csIBMEBCDICATDE }
9632 { EBCDIC-AT-DE-A csEBCDICATDEA }
9633 { EBCDIC-CA-FR csEBCDICCAFR }
9634 { EBCDIC-DK-NO csEBCDICDKNO }
9635 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9636 { EBCDIC-FI-SE csEBCDICFISE }
9637 { EBCDIC-FI-SE-A csEBCDICFISEA }
9638 { EBCDIC-FR csEBCDICFR }
9639 { EBCDIC-IT csEBCDICIT }
9640 { EBCDIC-PT csEBCDICPT }
9641 { EBCDIC-ES csEBCDICES }
9642 { EBCDIC-ES-A csEBCDICESA }
9643 { EBCDIC-ES-S csEBCDICESS }
9644 { EBCDIC-UK csEBCDICUK }
9645 { EBCDIC-US csEBCDICUS }
9646 { UNKNOWN-8BIT csUnknown8BiT }
9647 { MNEMONIC csMnemonic }
9648 { MNEM csMnem }
9649 { VISCII csVISCII }
9650 { VIQR csVIQR }
9651 { KOI8-R csKOI8R }
9652 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9653 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9654 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9655 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9656 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9657 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9658 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9659 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9660 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9661 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9662 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9663 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9664 { IBM1047 IBM-1047 }
9665 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9666 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9667 { UNICODE-1-1 csUnicode11 }
9668 { CESU-8 csCESU-8 }
9669 { BOCU-1 csBOCU-1 }
9670 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9671 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9672 l8 }
9673 { ISO-8859-15 ISO_8859-15 Latin-9 }
9674 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9675 { GBK CP936 MS936 windows-936 }
9676 { JIS_Encoding csJISEncoding }
9677 { Shift_JIS MS_Kanji csShiftJIS }
9678 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9679 EUC-JP }
9680 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9681 { ISO-10646-UCS-Basic csUnicodeASCII }
9682 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9683 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9684 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9685 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9686 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9687 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9688 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9689 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9690 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9691 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9692 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9693 { Ventura-US csVenturaUS }
9694 { Ventura-International csVenturaInternational }
9695 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9696 { PC8-Turkish csPC8Turkish }
9697 { IBM-Symbols csIBMSymbols }
9698 { IBM-Thai csIBMThai }
9699 { HP-Legal csHPLegal }
9700 { HP-Pi-font csHPPiFont }
9701 { HP-Math8 csHPMath8 }
9702 { Adobe-Symbol-Encoding csHPPSMath }
9703 { HP-DeskTop csHPDesktop }
9704 { Ventura-Math csVenturaMath }
9705 { Microsoft-Publishing csMicrosoftPublishing }
9706 { Windows-31J csWindows31J }
9707 { GB2312 csGB2312 }
9708 { Big5 csBig5 }
9709 }
9711 proc tcl_encoding {enc} {
9712 global encoding_aliases
9713 set names [encoding names]
9718 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9721 }
9722 }
9727 # look through the aliases for one that tcl knows about
9733 }
9734 }
9736 }
9737 break
9738 }
9739 }
9742 }
9743 return {}
9744 }
9746 # First check that Tcl/Tk is recent enough
9747 if {[catch {package require Tk 8.4} err]} {
9748 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9749 Gitk requires at least Tcl/Tk 8.4."]
9750 exit 1
9751 }
9753 # defaults...
9754 set wrcomcmd "git diff-tree --stdin -p --pretty"
9756 set gitencoding {}
9757 catch {
9758 set gitencoding [exec git config --get i18n.commitencoding]
9759 }
9761 set gitencoding "utf-8"
9762 }
9766 }
9768 set mainfont {Helvetica 9}
9769 set textfont {Courier 9}
9770 set uifont {Helvetica 9 bold}
9771 set tabstop 8
9772 set findmergefiles 0
9773 set maxgraphpct 50
9774 set maxwidth 16
9775 set revlistorder 0
9776 set fastdate 0
9777 set uparrowlen 5
9778 set downarrowlen 5
9779 set mingaplen 100
9780 set cmitmode "patch"
9781 set wrapcomment "none"
9782 set showneartags 1
9783 set maxrefs 20
9784 set maxlinelen 200
9785 set showlocalchanges 1
9786 set limitdiffs 1
9787 set datetimeformat "%Y-%m-%d %H:%M:%S"
9788 set autoselect 1
9790 set extdifftool "meld"
9792 set colors {green red blue magenta darkgrey brown orange}
9793 set bgcolor white
9794 set fgcolor black
9795 set diffcolors {red "#00a000" blue}
9796 set diffcontext 3
9797 set ignorespace 0
9798 set selectbgcolor gray85
9800 set circlecolors {white blue gray blue blue}
9802 ## For msgcat loading, first locate the installation location.
9803 if { [info exists ::env(GITK_MSGSDIR)] } {
9804 ## Msgsdir was manually set in the environment.
9805 set gitk_msgsdir $::env(GITK_MSGSDIR)
9806 } else {
9807 ## Let's guess the prefix from argv0.
9811 unset gitk_prefix
9812 }
9814 ## Internationalization (i18n) through msgcat and gettext. See
9815 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9816 package require msgcat
9817 namespace import ::msgcat::mc
9818 ## And eventually load the actual message catalog
9821 catch {source ~/.gitk}
9823 font create optionfont -family sans-serif -size -12
9826 eval font create mainfont [fontflags mainfont]
9827 eval font create mainfontbold [fontflags mainfont 1]
9830 eval font create textfont [fontflags textfont]
9831 eval font create textfontbold [fontflags textfont 1]
9834 eval font create uifont [fontflags uifont]
9836 setoptions
9838 # check that we can find a .git directory somewhere...
9839 if {[catch {set gitdir [gitdir]}]} {
9840 show_error {} . [mc "Cannot find a git repository here."]
9841 exit 1
9842 }
9845 exit 1
9846 }
9848 set revtreeargs {}
9849 set cmdline_files {}
9850 set i 0
9851 set revtreeargscmd {}
9854 "" { }
9855 "--" {
9857 break
9858 }
9859 "--argscmd=*" {
9861 }
9862 default {
9864 }
9865 }
9866 incr i
9867 }
9870 # no -- on command line, but some arguments (other than --argscmd)
9871 if {[catch {
9876 # Unfortunately git rev-parse doesn't produce an error when
9877 # something is both a revision and a filename. To be consistent
9878 # with git log and git rev-list, check revtreeargs for filenames.
9881 show_error {} . [mc "Ambiguous argument '%s': both revision\
9883 exit 1
9884 }
9885 }
9886 } err]} {
9888 # so look for "fatal:".
9892 }
9894 exit 1
9895 }
9896 }
9898 set nullid "0000000000000000000000000000000000000000"
9899 set nullid2 "0000000000000000000000000000000000000001"
9900 set nullfile "/dev/null"
9904 set runq {}
9905 set history {}
9906 set historyindex 0
9907 set fh_serial 0
9908 set nhl_names {}
9909 set highlight_paths {}
9910 set findpattern {}
9911 set searchdirn -forwards
9912 set boldrows {}
9913 set boldnamerows {}
9914 set diffelide {0 0}
9915 set markingmatches 0
9916 set linkentercount 0
9917 set need_redisplay 0
9918 set nrows_drawn 0
9919 set firsttabstop 0
9921 set nextviewnum 1
9922 set curview 0
9923 set selectedview 0
9924 set selectedhlview [mc "None"]
9925 set highlight_related [mc "None"]
9926 set highlight_files {}
9927 set viewfiles(0) {}
9928 set viewperm(0) 0
9929 set viewargs(0) {}
9930 set viewargscmd(0) {}
9932 set selectedline {}
9933 set numcommits 0
9934 set loginstance 0
9935 set cmdlineok 0
9936 set stopped 0
9937 set stuffsaved 0
9938 set patchnum 0
9939 set lserial 0
9940 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9941 setcoords
9942 makewindow
9943 # wait for the window to become visible
9944 tkwait visibility .
9946 readrefs
9949 # create a view for the files/dirs specified on the command line
9950 set curview 1
9951 set selectedview 1
9952 set nextviewnum 2
9953 set viewname(1) [mc "Command line"]
9957 set viewperm(1) 0
9958 set vdatemode(1) 0
9959 addviewmenu 1
9960 .bar.view entryconf [mc "Edit view..."] -state normal
9961 .bar.view entryconf [mc "Delete view"] -state normal
9962 }
9964 if {[info exists permviews]} {
9967 incr nextviewnum
9974 }
9975 }
9976 getcommits