| blob | 6cf598abcae5fa54956946b7e2b14076d6f0dfaa |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2008 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 proc gitdir {} {
11 global env
16 }
17 }
19 # A simple scheduler for compute-intensive stuff.
20 # The aim is to make sure that event handlers for GUI actions can
21 # run at least every 50-100 ms. Unfortunately fileevent handlers are
22 # run before X event handlers, so reading from a fast source can
23 # make the GUI completely unresponsive.
24 proc run args {
25 global isonrunq runq
30 after idle dorunq
31 }
34 }
38 }
41 global runq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq
76 # script returns 1 if it wants to be readded
77 # file readers return 2 if they could do more straight away
81 }
84 }
87 }
89 after idle dorunq
90 }
91 }
94 global nr_unmerged
96 # find the list of unmerged files
103 exit 1
104 }
110 incr nr_unmerged
113 }
114 }
117 }
119 proc parseviewargs {n arglist} {
120 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
124 set glflags {}
125 set diffargs {}
126 set nextisval 0
127 set revargs {}
129 set allknown 1
130 set filtered 0
131 set i -1
133 incr i
136 set nextisval 0
137 continue
138 }
140 "-d" -
141 "--date-order" {
143 # remove from origargs in case we hit an unknown option
145 incr i -1
146 }
147 # These request or affect diff output, which we don't want.
148 # Some could be used to set our defaults for diff display.
155 lappend diffargs $arg
156 }
157 # These cause our parsing of git log's output to fail, or else
158 # they're options we want to set ourselves, so ignore them.
166 }
167 # These are harmless, and some are even useful
172 lappend glflags $arg
173 }
174 # These mean that we get a subset of the commits
182 lappend glflags $arg
183 }
184 # This appears to be the only one that has a value as a
185 # separate word following it
189 lappend glflags $arg
190 }
193 lappend revargs $arg
194 }
196 lappend revargs $arg
197 }
200 # git rev-parse doesn't understand --merge
201 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
202 }
203 # Other flag arguments including -<n>
208 # a flag argument that we don't recognize;
209 # that means we can't optimize
211 }
212 lappend glflags $arg
213 }
214 # Non-flag arguments specify commits or ranges of commits
215 default {
217 lappend revargs --gitk-symmetric-diff-marker
218 }
219 lappend revargs $arg
220 }
221 }
222 }
229 }
232 global vposids vnegids
235 set revs HEAD
236 }
238 # we get stdout followed by stderr in $err
239 # for an unknown rev, git rev-parse echoes it and then errors out
252 }
255 }
256 break
257 }
258 lappend badrev $line
259 }
260 }
263 }
273 lappend ret $id
276 }
277 }
281 lappend ret $id
284 }
285 lappend pos $id
286 }
287 incr sdm -1
288 }
292 }
294 # Start off a git log process and arrange to read its output
296 global startmsecs commitidx viewcomplete curview
297 global commfd leftover tclencoding
298 global viewargs viewargscmd viewfiles vfilelimit
299 global showlocalchanges commitinterest mainheadid
300 global viewactive loginstance viewinstances vmergeonly
301 global pending_select mainheadid
302 global vcanopt vflags vrevs vorigargs
306 # these are set this way for the error exits
309 varcinit $view
318 }
320 }
327 global nr_unmerged
334 }
336 }
337 }
344 }
348 }
356 }
363 }
367 }
372 }
376 }
379 global commfd viewinstances leftover
383 catch {
386 }
388 nukefile $fd
391 }
393 }
395 proc getcommits {} {
396 global canv curview need_redisplay viewactive
398 initlayout
404 }
405 }
407 proc updatecommits {} {
408 global curview vcanopt vorigargs vfilelimit viewinstances
409 global viewactive viewcomplete loginstance tclencoding mainheadid
410 global startmsecs commfd showneartags showlocalchanges leftover
411 global mainheadid pending_select
412 global isworktree
413 global varcid vposids vnegids vflags vrevs
417 rereadrefs
420 dohidelocalchanges
421 }
423 dodiffindex
424 }
425 }
432 return
433 }
434 # note: getting the delta when negative refs change is hard,
435 # and could require multiple git log invocations, so in that
436 # case we ask git log for all the commits (not just the delta)
440 # take out positive refs that we asked for before or
441 # that we have already seen
446 lappend newrevs $rev
447 incr npos
448 }
450 lappend $newrevs $rev
451 }
452 }
456 }
460 }
466 return
467 }
470 }
478 }
485 getallcommits
486 }
487 }
489 proc reloadcommits {} {
490 global curview viewcomplete selectedline currentid thickerline
491 global showneartags treediffs commitinterest cached_commitrow
492 global targetid
495 stop_rev_list $curview
496 }
497 resetvarcs $curview
502 readrefs
503 changedrefs
505 getallcommits
506 }
507 clear_display
511 setcanvscroll
512 getcommits
514 }
516 # This makes a string representation of a positive integer which
517 # sorts as a string in numerical order
525 }
527 }
529 # Procedures used in reordering commits from git log (without
530 # --topo-order) into the order for display.
533 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
534 global vtokmod varcmod vrowmod varcix vlastins
548 }
551 global varcid varccommits parents children vseedcount ordertok
557 }
558 # some commits might have children but haven't been seen yet
561 }
564 }
567 }
569 }
571 # returns a list of the commits with no children
573 global vdownptr vleftptr varcstart
580 }
582 }
585 global varcid varctok parents children vdatemode
586 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
587 global commitdata commitinfo vseedcount varccommits vlastins
594 }
598 }
601 }
607 }
616 }
617 }
622 }
629 }
633 }
640 }
646 }
655 }
658 global varcid varcstart varccommits varctok
659 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
666 # "%" sorts before "0"...
676 }
686 }
687 }
690 global parents children varctok varcstart varccommits
691 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
700 lappend todo $a
705 }
706 }
707 }
708 incr ntot
715 }
716 }
718 }
725 }
731 }
740 }
741 }
746 }
748 continue
749 }
756 }
757 }
762 modify_arc $v $ka
763 }
765 modify_arc $v $b
766 }
773 }
776 }
779 }
788 }
793 }
800 }
804 }
806 }
807 }
812 }
813 }
815 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
816 }
818 # Fix up the graph after we have found out that in view $v,
819 # $p (a commit that we have already seen) is actually the parent
820 # of the last commit in arc $a.
822 global varcid varcstart varctok vupptr
826 splitvarc $p $v
828 }
829 # seeds always need to be renumbered
833 renumbervarc $pa $v
834 }
835 }
838 global cmitlisted children parents varcid varctok vtokmod
839 global varccommits ordertok commitidx numcommits curview
840 global targetid targetrow
842 readcommit $id
850 modify_arc $v $a
851 }
857 }
858 fix_reversal $p $a $v
862 setcanvscroll
865 incr targetrow
866 }
867 }
868 }
869 }
872 global varcid varccommits parents children cmitlisted
873 global commitidx varctok vtokmod targetid targetrow curview numcommits
880 return
881 }
888 # note we deliberately don't update varcstart($v) even if $i == 0
890 modify_arc $v $a $i
893 incr targetrow
894 }
895 }
896 setcanvscroll
897 drawvisible
898 }
901 global varcid varccommits parents children commitidx
902 global varctok vtokmod cmitlisted currentid selectedline
903 global targetid curview numcommits
908 return
909 }
915 return
916 }
926 }
927 modify_arc $v $a $i
929 unset currentid
930 unset selectedline
931 }
934 }
935 setcanvscroll
936 drawvisible
937 }
940 global children nullid nullid2
945 }
946 }
948 }
951 global children nullid nullid2
958 }
959 }
961 }
964 global varctok varcid
968 }
970 # This assumes that if lim is not given, the caller has checked that
971 # arc a's token is less than $vtokmod($v)
973 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
981 }
982 }
989 }
994 }
996 }
998 undolayout $r
999 }
1000 }
1003 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1004 global varcid vrownum varcorder varcix varccommits
1005 global vupptr vdownptr vleftptr varctok
1006 global displayorder parentlist curview cached_commitrow
1013 }
1015 }
1019 # go up the tree until we find something that has a row number,
1020 # or we get to a seed
1022 }
1037 }
1039 }
1043 # go down if possible
1046 # if not, go left, or go up until we can go left
1051 }
1053 }
1055 incr arcn
1060 }
1066 }
1067 }
1069 # Test whether view $v contains commit $id
1071 global varcid
1074 }
1076 # Return the row number for commit $id in the current view
1078 global varcid varccommits varcrow curview cached_commitrow
1079 global varctok vtokmod
1085 }
1088 update_arcrows $v
1089 }
1092 }
1097 }
1101 }
1103 # Returns 1 if a is on an earlier row than b, otherwise 0
1105 global varcid varctok curview
1111 }
1115 }
1117 }
1122 }
1134 }
1135 }
1137 }
1139 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1141 global vrownum curview commitidx displayorder parentlist
1142 global varccommits varcorder parents vrowmod varcrow
1143 global d_valid_start d_valid_end
1146 update_arcrows $curview
1147 }
1163 }
1165 lappend displayorder $id
1167 }
1171 lset displayorder $i $id
1173 incr i
1174 }
1175 }
1176 incr r $al
1177 }
1178 }
1181 global displayorder
1187 }
1189 }
1192 global varctok varccommits varcid parents children
1193 global cmitlisted commitidx commitinterest vtokmod
1202 # add p as a new commit
1203 incr missing_parents
1211 }
1214 modify_arc $v $b
1215 }
1221 }
1223 }
1224 }
1225 }
1229 }
1230 }
1231 }
1233 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1234 # Assumes we already have an arc for $rwid.
1236 global children parents varcid varctok vtokmod varccommits
1239 # make $rwid be $ch's parent in place of $id
1243 }
1245 # add $ch to $rwid's children and sort the list if necessary
1249 }
1250 # fix the graph after joining $id to $rwid
1252 fix_reversal $rwid $a $v
1253 # parentlist is wrong for the last element of arc $a
1254 # even if displayorder is right, hence the 3rd arg here
1256 }
1257 }
1260 global cmitlisted commitinterest leftover
1261 global commitidx commitdata vdatemode
1262 global parents children curview hlview
1263 global idpending ordertok
1264 global varccommits varcid varctok vtokmod vfilelimit
1267 # git log doesn't terminate the last commit with a null...
1270 }
1274 }
1275 global commfd viewcomplete viewactive viewname
1276 global viewinstances
1281 }
1282 # set it blocking so we wait for the process to terminate
1288 }
1291 bad arguments to git log."
1293 append err \
1294 " (Note: arguments to gitk are passed to git log\
1295 to allow selection of commits to be displayed.)"
1296 }
1299 }
1300 error_popup $err
1301 }
1304 # Check if we have seen any ids listed as parents that haven't
1305 # appeared in the list
1306 closevarcs $view
1307 notbusy $view
1308 }
1310 run chewcommits
1311 }
1313 }
1321 break
1322 }
1329 }
1342 }
1344 }
1349 break
1350 }
1351 }
1352 }
1357 }
1359 exit 1
1360 }
1367 # when doing path limiting, so work around that here
1368 # by working out the rewritten parent with git rev-list
1369 # and if we already know about it, using the rewritten
1370 # parent as a substitute parent for $id's children.
1374 }]} {
1376 # use $rwid in place of $id
1377 rewrite_commit $view $id $rwid
1378 continue
1379 }
1380 }
1381 }
1387 }
1392 }
1404 }
1405 }
1407 # new arc
1409 }
1411 modify_arc $view $a
1412 }
1417 }
1428 }
1430 fix_reversal $p $a $view
1431 }
1432 }
1433 incr i
1434 }
1439 }
1441 }
1443 }
1445 global numcommits hlview
1449 run chewcommits
1450 }
1452 # we never actually get here...
1453 run vhighlightmore
1454 }
1457 }
1458 }
1460 }
1462 proc chewcommits {} {
1463 global curview hlview viewcomplete
1464 global pending_select
1466 layoutmore
1468 global commitidx varctok
1469 global numcommits startmsecs
1470 global mainheadid nullid
1475 }
1477 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1478 #puts "overall $ms ms for $numcommits commits"
1479 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1482 }
1483 notbusy layout
1484 }
1486 }
1491 }
1494 global commitinfo cdate
1505 # should never happen...
1507 }
1518 }
1519 }
1521 # take the first non-blank line of the comment as the headline
1526 }
1531 }
1533 # git log indents the comment by 4 spaces;
1534 # if we got this via git cat-file, add the indentation
1537 append newcomment " "
1538 append newcomment $line
1540 }
1542 }
1545 }
1548 }
1551 global commitdata commitinfo
1556 readcommit $id
1559 }
1560 }
1562 }
1564 proc readrefs {} {
1565 global tagids idtags headids idheads tagobjid
1566 global otherrefids idotherrefs mainhead mainheadid
1570 }
1582 }
1588 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1589 # which is what we want since the former is the commit ID
1595 }
1601 }
1602 }
1606 catch {
1612 }
1613 }
1614 }
1615 }
1617 # skip over fake commits
1618 proc first_real_row {} {
1619 global nullid nullid2 numcommits
1624 break
1625 }
1626 }
1628 }
1630 # update things for a head moved to a child of its previous location
1632 global headids idheads
1637 }
1639 # update things when a head has been removed
1641 global headids idheads
1649 }
1650 }
1652 }
1661 tkwait window $top
1662 }
1664 proc error_popup msg {
1665 set w .error
1666 toplevel $w
1667 wm transient $w .
1668 show_error $w $w $msg
1669 }
1671 proc confirm_popup msg {
1672 global confirm_ok
1674 set w .confirm
1675 toplevel $w
1676 wm transient $w .
1684 tkwait window $w
1686 }
1688 proc setoptions {} {
1690 option add *Panedwindow.sashRelief raised startupFile
1691 option add *Button.font uifont startupFile
1692 option add *Checkbutton.font uifont startupFile
1693 option add *Radiobutton.font uifont startupFile
1694 option add *Menu.font uifont startupFile
1695 option add *Menubutton.font uifont startupFile
1696 option add *Label.font uifont startupFile
1697 option add *Message.font uifont startupFile
1698 option add *Entry.font uifont startupFile
1699 }
1701 proc makewindow {} {
1702 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1703 global tabstop
1704 global findtype findtypemenu findloc findstring fstring geometry
1705 global entries sha1entry sha1string sha1but
1706 global diffcontextstring diffcontext
1707 global ignorespace
1708 global maincursor textcursor curtextcursor
1709 global rowctxmenu fakerowmenu mergemax wrapcomment
1710 global highlight_files gdttype
1711 global searchstring sstring
1712 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1713 global headctxmenu progresscanv progressitem progresscoords statusw
1714 global fprogitem fprogcoord lastprogupdate progupdatepending
1715 global rprogitem rprogcoord rownumsel numcommits
1716 global have_tk85
1718 menu .bar
1720 menu .bar.file
1726 menu .bar.edit
1730 menu .bar.view
1734 -state disabled
1736 .bar.view add separator
1740 menu .bar.help
1744 .bar.help configure
1745 . configure -menu .bar
1747 # the gui has upper and lower half, parts of a paned window.
1748 panedwindow .ctop -orient vertical
1750 # possibly use assumed geometry
1758 }
1760 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1762 frame .tf.histframe
1765 # create three canvases
1766 set cscroll .tf.histframe.csb
1767 set canv .tf.histframe.pwclist.canv
1768 canvas $canv \
1772 .tf.histframe.pwclist add $canv
1773 set canv2 .tf.histframe.pwclist.canv2
1774 canvas $canv2 \
1777 .tf.histframe.pwclist add $canv2
1778 set canv3 .tf.histframe.pwclist.canv3
1779 canvas $canv3 \
1782 .tf.histframe.pwclist add $canv3
1786 # a scroll bar to rule them
1790 lappend bglist $canv $canv2 $canv3
1793 # we have two button bars at bottom of top frame. Bar 1
1794 frame .tf.bar
1797 set sha1entry .tf.bar.sha1
1799 set sha1but .tf.bar.sha1label
1803 pack .tf.bar.sha1label -side left
1805 trace add variable sha1string write sha1change
1809 #define left_width 16
1810 #define left_height 16
1811 static unsigned char left_bits[] = {
1815 }
1817 #define right_width 16
1818 #define right_height 16
1819 static unsigned char right_bits[] = {
1823 }
1838 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1839 -side left
1840 global selectedline
1843 # Status label and progress bar
1844 set statusw .tf.bar.status
1848 set progresscanv .tf.bar.progress
1861 # build up the bottom bar of upper window
1866 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
1873 trace add variable gdttype write gdttype_change
1877 set fstring .tf.lbar.findstring
1878 lappend entries $fstring
1880 trace add variable findstring write find_change
1884 trace add variable findtype write findcom_change
1888 trace add variable findloc write find_change
1889 pack .tf.lbar.findloc -side right
1890 pack .tf.lbar.findtype -side right
1893 # Finish putting the upper half of the viewer together
1897 .ctop add .tf
1901 # now build up the bottom
1902 panedwindow .pwbottom -orient horizontal
1904 # lower left, a text box over search bar, scroll bar to the right
1905 # if we know window height, then that will set the lower text height, otherwise
1906 # we set lower text height which will drive window height
1911 }
1912 frame .bleft.top
1913 frame .bleft.mid
1914 frame .bleft.bottom
1918 set sstring .bleft.top.sstring
1920 lappend entries $sstring
1921 trace add variable searchstring write incrsearch
1934 -textvariable diffcontextstring
1936 trace add variable diffcontextstring write diffcontextchange
1937 lappend entries .bleft.mid.diffcontext
1938 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
1942 set ctext .bleft.bottom.ctext
1949 }
1956 grid .bleft.bottom.sbhorizontal -sticky ew
1961 lappend bglist $ctext
1962 lappend fglist $ctext
1991 .pwbottom add .bleft
1994 # lower right
1995 frame .bright
1996 frame .bright.mode
2003 set cflist .bright.cfiles
2005 text $cflist \
2008 -font mainfont \
2013 lappend bglist $cflist
2014 lappend fglist $cflist
2018 $cflist tag configure highlight \
2022 .pwbottom add .bright
2023 .ctop add .pwbottom
2025 # restore window width & height if known
2030 }
2033 }
2035 }
2036 }
2039 set M1B M1
2041 set M1B Control
2042 }
2047 #bindall <B1-Motion> {selcanvline %W %x %y}
2057 allcanvs yview scroll $delta units
2058 }
2059 }
2060 }
2082 bindkey p "selnextline -1"
2083 bindkey n "selnextline 1"
2084 bindkey z "goback"
2085 bindkey x "goforw"
2086 bindkey i "selnextline -1"
2087 bindkey k "selnextline 1"
2088 bindkey j "goback"
2089 bindkey l "goforw"
2090 bindkey b prevfile
2096 bindkey f nextfile
2108 wm protocol . WM_DELETE_WINDOW doquit
2118 set maincursor [. cget -cursor]
2122 set rowctxmenu .rowctxmenu
2125 -command {diffvssel 0}
2127 -command {diffvssel 1}
2133 -command cherrypick
2135 -command resethead
2137 set fakerowmenu .fakerowmenu
2140 -command {diffvssel 0}
2142 -command {diffvssel 1}
2148 set headctxmenu .headctxmenu
2151 -command cobranch
2153 -command rmbranch
2155 global flist_menu
2156 set flist_menu .flistctxmenu
2159 -command {flist_hl 0}
2161 -command {flist_hl 1}
2163 -command {external_diff}
2164 }
2166 # Windows sends all mouse wheel events to the current focused window, not
2167 # the one where the mouse hovers, so bind those events here and redirect
2168 # to the correct window
2169 proc windows_mousewheel_redirector {W X Y D} {
2170 global canv canv2 canv3
2176 } else {
2177 catch {
2179 }
2180 }
2181 }
2182 }
2184 # Update row number label when selectedline changes
2185 proc selectedline_change {n1 n2 op} {
2186 global selectedline rownumsel
2189 set rownumsel {}
2190 } else {
2192 }
2193 }
2195 # mouse-2 makes all windows scan vertically, but only the one
2196 # the cursor is in scans horizontally
2197 proc canvscan {op w x y} {
2198 global canv canv2 canv3
2202 } else {
2204 }
2205 }
2206 }
2208 proc scrollcanv {cscroll f0 f1} {
2210 drawvisible
2211 flushhighlights
2212 }
2214 # when we make a key binding for the toplevel, make sure
2215 # it doesn't get triggered when that key is pressed in the
2216 # find string entry widget.
2217 proc bindkey {ev script} {
2218 global entries
2222 set escript [bind Entry <Key>]
2223 }
2226 }
2227 }
2229 # set the focus back to the toplevel for any click outside
2230 # the entry widgets
2231 proc click {w} {
2232 global ctext entries
2235 }
2236 focus .
2237 }
2239 # Adjust the progress bar for a change in requested extent or canvas size
2240 proc adjustprogress {} {
2241 global progresscanv progressitem progresscoords
2242 global fprogitem fprogcoord lastprogupdate progupdatepending
2243 global rprogitem rprogcoord
2252 set now [clock clicks -milliseconds]
2254 set progupdatepending 0
2255 update
2257 set progupdatepending 1
2259 }
2260 }
2262 proc doprogupdate {} {
2263 global lastprogupdate progupdatepending
2266 set progupdatepending 0
2267 set lastprogupdate [clock clicks -milliseconds]
2268 update
2269 }
2270 }
2272 proc savestuff {w} {
2273 global canv canv2 canv3 mainfont textfont uifont tabstop
2274 global stuffsaved findmergefiles maxgraphpct
2275 global maxwidth showneartags showlocalchanges
2276 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2277 global cmitmode wrapcomment datetimeformat limitdiffs
2278 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2279 global autoselect extdifftool
2282 if {![winfo viewable .]} return
2283 catch {
2284 set f [open "~/.gitk-new" w]
2319 }
2320 }
2323 catch {file delete "~/.gitk"}
2324 file rename -force "~/.gitk-new" "~/.gitk"
2325 }
2326 set stuffsaved 1
2327 }
2329 proc resizeclistpanes {win w} {
2330 global oldwidth
2337 } else {
2342 set sash0 30
2343 }
2346 }
2351 }
2352 }
2353 }
2356 }
2358 }
2360 proc resizecdetpanes {win w} {
2361 global oldwidth
2366 } else {
2370 set sash0 45
2371 }
2374 }
2375 }
2377 }
2379 }
2381 proc allcanvs args {
2382 global canv canv2 canv3
2386 }
2388 proc bindall {event action} {
2389 global canv canv2 canv3
2393 }
2395 proc about {} {
2396 global uifont
2397 set w .about
2400 return
2401 }
2405 Gitk - a commit viewer for git
2407 Copyright © 2005-2008 Paul Mackerras
2409 Use and redistribute under the terms of the GNU General Public License"] \
2410 -justify center -aspect 400 -border 2 -bg white -relief groove
2417 }
2419 proc keys {} {
2420 set w .keys
2423 return
2424 }
2425 if {[tk windowingsystem] eq {aqua}} {
2426 set M1T Cmd
2427 } else {
2428 set M1T Ctrl
2429 }
2433 [mc "Gitk key bindings:"]
2436 [mc "<Home> Move to first commit"]
2437 [mc "<End> Move to last commit"]
2438 [mc "<Up>, p, i Move up one commit"]
2439 [mc "<Down>, n, k Move down one commit"]
2440 [mc "<Left>, z, j Go back in history list"]
2441 [mc "<Right>, x, l Go forward in history list"]
2442 [mc "<PageUp> Move up one page in commit list"]
2443 [mc "<PageDown> Move down one page in commit list"]
2450 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2451 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2452 [mc "<Delete>, b Scroll diff view up one page"]
2453 [mc "<Backspace> Scroll diff view up one page"]
2454 [mc "<Space> Scroll diff view down one page"]
2455 [mc "u Scroll diff view up 18 lines"]
2456 [mc "d Scroll diff view down 18 lines"]
2459 [mc "<Return> Move to next find hit"]
2460 [mc "/ Move to next find hit, or redo find"]
2461 [mc "? Move to previous find hit"]
2462 [mc "f Scroll diff view to next file"]
2469 [mc "<F5> Update"]
2470 " \
2471 -justify left -bg white -border 2 -relief groove
2478 }
2480 # Procedures for manipulating the file list window at the
2481 # bottom right of the overall window.
2483 proc treeview {w l openlevs} {
2484 global treecontents treediropen treeheight treeparent treeindex
2486 set ix 0
2487 set treeindex() 0
2488 set lev 0
2489 set prefix {}
2490 set prefixend -1
2491 set prefendstack {}
2492 set htstack {}
2493 set ht 0
2494 set treecontents() {}
2501 }
2508 incr lev -1
2509 }
2513 set ht 0
2525 set ht 1
2530 set str "\n"
2538 }
2539 incr lev
2540 }
2543 incr ht
2544 set str "\n"
2548 }
2550 }
2551 }
2559 }
2561 }
2563 proc linetoelt {l} {
2564 global treeheight treecontents
2566 set y 2
2567 set prefix {}
2568 while {1} {
2572 }
2573 set n 1
2578 incr y
2579 break
2580 }
2581 }
2583 }
2584 }
2585 }
2587 proc highlight_tree {y prefix} {
2588 global treeheight treecontents cflist
2594 }
2595 incr y
2598 }
2599 }
2601 }
2603 proc treeclosedir {w dir} {
2604 global treediropen treeheight treeparent treeindex
2616 }
2617 }
2619 proc treeopendir {w dir} {
2620 global treediropen treeheight treeparent treecontents treeindex
2627 set lev 0
2628 set str "\n"
2631 incr lev
2632 append str "\t"
2634 }
2649 } else {
2652 }
2653 }
2666 }
2668 }
2669 }
2671 proc treeclick {w x y} {
2672 global treediropen cmitmode ctext cflist cflist_top
2675 if {![info exists cflist_top]} return
2682 return
2683 }
2689 } else {
2691 }
2692 }
2694 proc setfilelist {id} {
2695 global treefilelist cflist
2698 }
2700 image create bitmap tri-rt -background black -foreground blue -data {
2701 #define tri-rt_width 13
2702 #define tri-rt_height 13
2703 static unsigned char tri-rt_bits[] = {
2704 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2705 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2706 0x00, 0x00};
2707 } -maskdata {
2708 #define tri-rt-mask_width 13
2709 #define tri-rt-mask_height 13
2710 static unsigned char tri-rt-mask_bits[] = {
2711 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2712 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2713 0x08, 0x00};
2714 }
2715 image create bitmap tri-dn -background black -foreground blue -data {
2716 #define tri-dn_width 13
2717 #define tri-dn_height 13
2718 static unsigned char tri-dn_bits[] = {
2719 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2720 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2721 0x00, 0x00};
2722 } -maskdata {
2723 #define tri-dn-mask_width 13
2724 #define tri-dn-mask_height 13
2725 static unsigned char tri-dn-mask_bits[] = {
2726 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2727 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2728 0x00, 0x00};
2729 }
2731 image create bitmap reficon-T -background black -foreground yellow -data {
2732 #define tagicon_width 13
2733 #define tagicon_height 9
2734 static unsigned char tagicon_bits[] = {
2735 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2736 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2737 } -maskdata {
2738 #define tagicon-mask_width 13
2739 #define tagicon-mask_height 9
2740 static unsigned char tagicon-mask_bits[] = {
2741 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2742 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2743 }
2744 set rectdata {
2745 #define headicon_width 13
2746 #define headicon_height 9
2747 static unsigned char headicon_bits[] = {
2748 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2749 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2750 }
2751 set rectmask {
2752 #define headicon-mask_width 13
2753 #define headicon-mask_height 9
2754 static unsigned char headicon-mask_bits[] = {
2755 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2756 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2757 }
2758 image create bitmap reficon-H -background black -foreground green \
2760 image create bitmap reficon-o -background black -foreground "#ddddff" \
2763 proc init_flist {first} {
2764 global cflist cflist_top difffilestart
2770 set cflist_top 1
2772 } else {
2773 catch {unset cflist_top}
2774 }
2776 set difffilestart {}
2777 }
2779 proc highlight_tag {f} {
2780 global highlight_paths
2784 return "bold"
2785 }
2786 }
2787 return {}
2788 }
2790 proc highlight_filelist {} {
2791 global cmitmode cflist
2800 }
2801 }
2802 } else {
2803 highlight_tree 2 {}
2804 }
2806 }
2808 proc unhighlight_filelist {} {
2809 global cflist
2814 }
2816 proc add_flist {fl} {
2817 global cflist
2823 }
2825 }
2827 proc sel_flist {w x y} {
2828 global ctext difffilestart cflist cflist_top cmitmode
2831 if {![info exists cflist_top]} return
2838 } else {
2840 }
2841 }
2843 proc pop_flist_menu {w X Y x y} {
2844 global ctext cflist cmitmode flist_menu flist_menu_file
2845 global treediffs diffids
2847 stopfinding
2853 } else {
2855 }
2857 set xdiffstate "normal"
2859 set xdiffstate "disabled"
2860 }
2861 # Disable "External diff" item in tree mode
2864 }
2866 proc flist_hl {only} {
2867 global flist_menu_file findstring gdttype
2872 } else {
2874 }
2875 set gdttype [mc "touching paths:"]
2876 }
2878 proc save_file_from_commit {filename output what} {
2879 global nullfile
2884 }
2886 return {}
2887 }
2889 }
2891 proc external_diff_get_one_file {diffid filename diffdir} {
2892 global nullid nullid2 nullfile
2893 global gitdir
2899 }
2901 }
2905 }
2909 }
2911 proc external_diff {} {
2912 global gitktmpdir nullid nullid2
2913 global flist_menu_file
2914 global diffids
2915 global diffnum
2916 global gitdir extdifftool
2919 # no reference commit given
2922 # diffing working copy with index
2925 # diffing index with HEAD
2926 set diffidfrom "HEAD"
2927 } else {
2928 # use first parent commit
2929 global parentlist selectedline
2931 }
2932 } else {
2935 }
2937 # make sure that several diffs wont collide
2938 if {![info exists gitktmpdir]} {
2940 [format ".gitk-tmp.%s" [pid]]]
2943 unset gitktmpdir
2944 return
2945 }
2946 set diffnum 0
2947 }
2948 incr diffnum
2952 return
2953 }
2955 # gather files to diff
2965 } else {
2968 }
2969 }
2970 }
2973 proc delete_at_eof {f dir} {
2978 }
2980 return 0
2981 }
2982 return 1
2983 }
2985 # Functions for adding and removing shell-type quoting
2987 proc shellquote {str} {
2990 }
2993 }
2996 }
2998 }
3000 proc shellarglist {l} {
3001 set str {}
3004 append str " "
3005 }
3007 }
3009 }
3011 proc shelldequote {str} {
3012 set ret {}
3013 set used -1
3014 while {1} {
3015 incr used
3019 break
3020 }
3026 }
3028 incr used
3032 error "unmatched single-quote"
3033 }
3036 continue
3037 }
3040 error "trailing backslash"
3041 }
3043 continue
3044 }
3045 # here ch == "\""
3046 while {1} {
3048 error "unmatched double-quote"
3049 }
3055 }
3057 incr used
3059 incr used
3060 }
3061 }
3063 }
3065 proc shellsplit {str} {
3066 set l {}
3067 while {1} {
3075 }
3077 }
3079 # Code to implement multiple views
3081 proc newview {ishighlight} {
3082 global nextviewnum newviewname newviewperm newishighlight
3083 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3086 set top .gitkview
3089 return
3090 }
3096 }
3098 proc editview {} {
3099 global curview
3100 global viewname viewperm newviewname newviewperm
3101 global viewargs newviewargs viewargscmd newviewargscmd
3106 return
3107 }
3113 }
3115 proc vieweditor {top n title} {
3116 global newviewname newviewperm viewfiles bgcolor
3127 -text [mc "Commits to include (arguments to git log):"]
3134 -text [mc "Command to generate more commits to include:"]
3137 -background white
3141 -text [mc "Enter files and directories to include, one per line:"]
3148 }
3151 }
3161 }
3163 proc doviewmenu {m first cmd op argv} {
3168 break
3169 }
3170 }
3171 }
3173 proc allviewmenus {n op args} {
3174 # global viewhlmenu
3178 }
3180 proc newviewok {top n} {
3181 global nextviewnum newviewperm newviewname newishighlight
3182 global viewname viewfiles viewperm selectedview curview
3183 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3185 if {[catch {
3187 } err]} {
3191 return
3192 }
3193 set files {}
3198 }
3199 }
3201 # creating a new view
3202 incr nextviewnum
3211 } else {
3213 }
3214 } else {
3215 # editing an existing view
3223 }
3230 run reloadcommits
3231 }
3232 }
3233 }
3235 }
3237 proc delview {} {
3238 global curview viewperm hlview selectedhlview
3242 set selectedhlview [mc "None"]
3243 unset hlview
3244 }
3247 showview 0
3248 }
3250 proc addviewmenu {n} {
3251 global viewname viewhlmenu
3257 }
3259 proc showview {n} {
3260 global curview cached_commitrow ordertok
3261 global displayorder parentlist rowidlist rowisopt rowfinal
3262 global colormap rowtextx nextcolor canvxmax
3263 global numcommits viewcomplete
3264 global selectedline currentid canv canvy0
3265 global treediffs
3266 global pending_select mainheadid
3267 global commitidx
3268 global selectedview
3269 global hlview selectedhlview commitinterest
3272 set selid {}
3278 if {[info exists selectedline]} {
3283 }
3284 } elseif {[info exists pending_select]} {
3286 unset pending_select
3287 }
3288 unselectline
3289 normalline
3290 catch {unset treediffs}
3291 clear_display
3293 unset hlview
3294 set selectedhlview [mc "None"]
3295 }
3296 catch {unset commitinterest}
3297 catch {unset cached_commitrow}
3298 catch {unset ordertok}
3305 run refill_reflist
3309 }
3310 getcommits
3311 return
3312 }
3314 set displayorder {}
3315 set parentlist {}
3316 set rowidlist {}
3317 set rowisopt {}
3318 set rowfinal {}
3321 catch {unset colormap}
3322 catch {unset rowtextx}
3323 set nextcolor 0
3326 set row 0
3327 setcanvscroll
3328 set yf 0
3329 set row {}
3332 # try to get the selected row in the same position on the screen
3336 set ytop 0
3337 }
3339 }
3341 drawvisible
3349 } else {
3351 }
3352 } else {
3353 set row [first_real_row]
3356 }
3357 }
3360 show_status [mc "Reading commits..."]
3361 }
3363 show_status [mc "No commits selected"]
3364 }
3365 }
3367 # Stuff relating to the highlighting facility
3369 proc ishighlighted {id} {
3370 global vhighlights fhighlights nhighlights rhighlights
3374 }
3377 }
3380 }
3383 }
3384 return 0
3385 }
3387 proc bolden {row font} {
3388 global canv linehtag selectedline boldrows
3395 -outline {{}} -tags secsel \
3398 }
3399 }
3401 proc bolden_name {row font} {
3402 global canv2 linentag selectedline boldnamerows
3409 -outline {{}} -tags secsel \
3412 }
3413 }
3415 proc unbolden {} {
3416 global boldrows
3418 set stillbold {}
3422 } else {
3424 }
3425 }
3427 }
3429 proc addvhighlight {n} {
3430 global hlview viewcomplete curview vhl_done commitidx
3432 if {[info exists hlview]} {
3433 delvhighlight
3434 }
3438 }
3441 drawvisible
3442 }
3443 }
3445 proc delvhighlight {} {
3446 global hlview vhighlights
3448 if {![info exists hlview]} return
3449 unset hlview
3450 catch {unset vhighlights}
3451 unbolden
3452 }
3454 proc vhighlightmore {} {
3455 global hlview vhl_done commitidx vhighlights curview
3458 set vr [visiblerows]
3468 }
3470 }
3471 }
3472 }
3474 return 0
3475 }
3477 proc askvhighlight {row id} {
3478 global hlview vhighlights iddrawn
3483 }
3485 } else {
3487 }
3488 }
3490 proc hfiles_change {} {
3491 global highlight_files filehighlight fhighlights fh_serial
3492 global highlight_paths gdttype
3494 if {[info exists filehighlight]} {
3495 # delete previous highlights
3497 unset filehighlight
3498 catch {unset fhighlights}
3499 unbolden
3500 unhighlight_filelist
3501 }
3502 set highlight_paths {}
3504 incr fh_serial
3507 }
3508 }
3510 proc gdttype_change {name ix op} {
3511 global gdttype highlight_files findstring findpattern
3513 stopfinding
3517 set highlight_files {}
3518 hfiles_change
3519 }
3520 findcom_change
3521 } else {
3523 set findpattern {}
3524 findcom_change
3525 }
3527 hfiles_change
3528 }
3529 drawvisible
3530 }
3531 # enable/disable findtype/findloc menus too
3532 }
3534 proc find_change {name ix op} {
3535 global gdttype findstring highlight_files
3537 stopfinding
3539 findcom_change
3540 } else {
3543 hfiles_change
3544 }
3545 }
3546 drawvisible
3547 }
3549 proc findcom_change args {
3550 global nhighlights boldnamerows
3551 global findpattern findtype findstring gdttype
3553 stopfinding
3554 # delete previous highlights, if any
3557 }
3558 set boldnamerows {}
3559 catch {unset nhighlights}
3560 unbolden
3561 unmarkmatches
3563 set findpattern {}
3566 } else {
3567 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3570 }
3571 }
3573 proc makepatterns {l} {
3574 set ret {}
3579 } else {
3582 }
3583 }
3585 }
3587 proc do_file_hl {serial} {
3588 global highlight_files filehighlight highlight_paths gdttype fhl_list
3593 highlight_filelist
3597 } else {
3598 # must be "containing:", i.e. we're searching commit info
3599 return
3600 }
3605 set fhl_list {}
3606 drawvisible
3607 flushhighlights
3608 }
3610 proc flushhighlights {} {
3611 global filehighlight fhl_list
3613 if {[info exists filehighlight]} {
3614 lappend fhl_list {}
3617 }
3618 }
3620 proc askfilehighlight {row id} {
3621 global filehighlight fhighlights fhl_list
3626 }
3628 proc readfhighlight {} {
3629 global filehighlight fhighlights curview iddrawn
3630 global fhl_list find_dirn
3632 if {![info exists filehighlight]} {
3633 return 0
3634 }
3635 set nr 0
3643 }
3650 }
3652 }
3654 # strange...
3655 puts "oops, git diff-tree died"
3657 unset filehighlight
3658 return 0
3659 }
3660 if {[info exists find_dirn]} {
3661 run findmore
3662 }
3663 return 1
3664 }
3666 proc doesmatch {f} {
3667 global findtype findpattern
3673 } else {
3675 }
3676 }
3678 proc askfindhighlight {row id} {
3679 global nhighlights commitinfo iddrawn
3680 global findloc
3681 global markingmatches
3685 }
3687 set isbold 0
3688 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3693 set isbold 2
3694 break
3695 }
3696 set isbold 1
3697 }
3698 }
3704 }
3705 }
3708 }
3709 }
3711 }
3713 proc markrowmatches {row id} {
3714 global canv canv2 linehtag linentag commitinfo findloc
3725 }
3726 }
3732 }
3733 }
3734 }
3736 proc vrel_change {name ix op} {
3737 global highlight_related
3739 rhighlight_none
3741 run drawvisible
3742 }
3743 }
3745 # prepare for testing whether commits are descendents or ancestors of a
3746 proc rhighlight_sel {a} {
3747 global descendent desc_todo ancestor anc_todo
3748 global highlight_related
3750 catch {unset descendent}
3752 catch {unset ancestor}
3755 rhighlight_none
3756 run drawvisible
3757 }
3758 }
3760 proc rhighlight_none {} {
3761 global rhighlights
3763 catch {unset rhighlights}
3764 unbolden
3765 }
3767 proc is_descendent {a} {
3768 global curview children descendent desc_todo
3773 set leftover {}
3774 set done 0
3779 continue
3780 }
3786 set done 1
3787 }
3788 }
3789 }
3792 return
3793 }
3794 }
3797 }
3799 proc is_ancestor {a} {
3800 global curview parents ancestor anc_todo
3805 set leftover {}
3806 set done 0
3811 continue
3812 }
3818 set done 1
3819 }
3820 }
3821 }
3824 return
3825 }
3826 }
3829 }
3831 proc askrelhighlight {row id} {
3832 global descendent highlight_related iddrawn rhighlights
3833 global selectedline ancestor
3835 if {![info exists selectedline]} return
3836 set isbold 0
3841 }
3843 set isbold 1
3844 }
3849 }
3851 set isbold 1
3852 }
3853 }
3857 }
3858 }
3860 }
3862 # Graph layout functions
3864 proc shortids {ids} {
3865 set res {}
3871 } else {
3873 }
3874 }
3876 }
3878 proc ntimes {n o} {
3879 set ret {}
3884 }
3886 }
3888 }
3890 proc ordertoken {id} {
3891 global ordertok curview varcid varcstart varctok curview parents children
3892 global nullid nullid2
3896 }
3898 set todo {}
3899 while {1} {
3903 } else {
3905 }
3908 break
3909 }
3912 # it's a root
3914 break
3915 }
3918 } else {
3922 }
3924 }
3925 }
3930 }
3933 }
3935 # Work out where id should go in idlist so that order-token
3936 # values increase from left to right
3937 proc idcol {idlist id {i 0}} {
3940 set i 0
3941 }
3945 }
3947 incr i
3948 } else {
3952 }
3953 }
3955 }
3957 proc initlayout {} {
3958 global rowidlist rowisopt rowfinal displayorder parentlist
3959 global numcommits canvxmax canv
3960 global nextcolor
3961 global colormap rowtextx
3963 set numcommits 0
3964 set displayorder {}
3965 set parentlist {}
3966 set nextcolor 0
3967 set rowidlist {}
3968 set rowisopt {}
3969 set rowfinal {}
3971 catch {unset colormap}
3972 catch {unset rowtextx}
3973 setcanvscroll
3974 }
3976 proc setcanvscroll {} {
3977 global canv canv2 canv3 numcommits linespc canvxmax canvy0
3978 global lastscrollset lastscrollrows
3984 set lastscrollset [clock clicks -milliseconds]
3986 }
3988 proc visiblerows {} {
3989 global canv numcommits linespc
3997 set r0 0
3998 }
4003 }
4005 }
4007 proc layoutmore {} {
4008 global commitidx viewcomplete curview
4009 global numcommits pending_select selectedline curview
4010 global lastscrollset lastscrollrows commitinterest
4014 setcanvscroll
4015 }
4016 if {[info exists pending_select] &&
4019 }
4020 drawvisible
4021 }
4023 proc doshowlocalchanges {} {
4024 global curview mainheadid
4027 dodiffindex
4028 } else {
4030 }
4031 }
4033 proc dohidelocalchanges {} {
4034 global nullid nullid2 lserial curview
4038 }
4041 }
4042 incr lserial
4043 }
4045 # spawn off a process to do git diff-index --cached HEAD
4046 proc dodiffindex {} {
4047 global lserial showlocalchanges
4048 global isworktree
4051 incr lserial
4052 set fd [open "|git diff-index --cached HEAD" r]
4055 }
4057 proc readdiffindex {fd serial} {
4058 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4060 set isdiff 1
4063 return 1
4064 }
4065 set isdiff 0
4066 }
4067 # we only need to see one line and we don't really care what it says...
4071 return 0
4072 }
4074 # now see if there are any local changes not checked in to the index
4075 set fd [open "|git diff-files" r]
4080 # add the line for the changes in the index to the graph
4081 set hl [mc "Local changes checked in to index but not committed"]
4086 }
4090 }
4091 return 0
4092 }
4094 proc readdifffiles {fd serial} {
4095 global mainheadid nullid nullid2 curview
4096 global commitinfo commitdata lserial
4098 set isdiff 1
4101 return 1
4102 }
4103 set isdiff 0
4104 }
4105 # we only need to see one line and we don't really care what it says...
4109 return 0
4110 }
4113 # add the line for the local diff to the graph
4114 set hl [mc "Local uncommitted changes, not checked in to index"]
4119 } else {
4121 }
4125 }
4126 return 0
4127 }
4129 proc nextuse {id row} {
4130 global curview children
4135 return -1
4136 }
4139 }
4140 }
4141 }
4144 }
4145 return -1
4146 }
4148 proc prevuse {id row} {
4149 global curview children
4151 set ret -1
4157 }
4158 }
4159 }
4161 }
4163 proc make_idlist {row} {
4164 global displayorder parentlist uparrowlen downarrowlen mingaplen
4165 global commitidx curview children
4169 set r 0
4170 }
4173 set ra 0
4174 }
4178 }
4180 set ids {}
4189 }
4190 }
4191 }
4199 }
4200 }
4201 }
4209 }
4210 }
4211 incr r
4217 }
4218 }
4219 }
4220 set idlist {}
4223 }
4225 }
4227 proc rowsequal {a b} {
4230 }
4233 }
4235 }
4237 proc makeupline {id row rend col} {
4238 global rowidlist uparrowlen downarrowlen mingaplen
4244 }
4247 }
4254 }
4255 }
4256 }
4258 proc layoutrows {row endrow} {
4259 global rowidlist rowisopt rowfinal displayorder
4260 global uparrowlen downarrowlen maxwidth mingaplen
4261 global children parentlist
4262 global commitidx viewcomplete curview
4265 set idlist {}
4271 }
4272 }
4274 }
4279 set final 1
4280 } else {
4288 # if not the first child, we have to insert a line going up
4291 }
4292 }
4293 }
4303 }
4304 }
4305 }
4312 }
4313 }
4323 }
4324 }
4332 }
4333 }
4334 }
4335 }
4336 }
4340 set final 0
4341 }
4345 lappend rowisopt 0
4351 }
4353 } else {
4360 }
4361 }
4363 }
4365 proc changedrow {row} {
4366 global displayorder iddrawn rowisopt need_redisplay
4375 }
4376 }
4377 }
4380 set need_redisplay 1
4381 }
4382 }
4384 proc insert_pad {row col npad} {
4385 global rowidlist
4394 }
4397 }
4399 proc optimize_rows {row col endrow} {
4400 global rowidlist rowisopt displayorder curview children
4403 set row 1
4404 }
4407 set haspad 0
4416 } else {
4417 set pprevidlist {}
4418 }
4419 set x0 -1
4420 set xm -1
4425 set haspad 1
4426 continue
4427 }
4431 set isarrow 0
4432 set z0 {}
4437 }
4438 }
4443 set isarrow 1
4444 }
4445 }
4448 set isarrow 1
4449 }
4450 # Looking at lines from this row to the previous row,
4451 # make them go straight up if they end in an arrow on
4452 # the previous row; otherwise make them go straight up
4453 # or at 45 degrees.
4455 # Line currently goes left too much;
4456 # insert pads in the previous row, then optimize it
4461 }
4469 }
4471 # Line currently goes right too much;
4472 # insert pads in this line
4478 set haspad 1
4479 }
4486 }
4487 }
4488 # avoid lines jigging left then immediately right
4491 incr x0
4494 }
4495 }
4497 # Find the first column that doesn't have a line going right
4503 # check if this is the link to the first child
4506 # it is, work out offset to child
4508 }
4509 }
4511 }
4512 # Insert a pad at that column as long as it has a line and
4513 # isn't the last column
4518 }
4519 }
4520 }
4521 }
4523 proc xc {row col} {
4524 global canvx0 linespc
4526 }
4528 proc yc {row} {
4529 global canvy0 linespc
4531 }
4533 proc linewidth {id} {
4534 global thickerline lthickness
4539 }
4541 }
4543 proc rowranges {id} {
4544 global curview children uparrowlen downarrowlen
4545 global rowidlist
4549 return {}
4550 }
4551 set ret {}
4556 if {![info exists prev]} {
4558 } else {
4560 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4561 }
4562 # see if the line extends the whole way from prevrow to row
4566 # it doesn't, see where it ends
4571 } else {
4574 incr r -1
4575 }
4577 # see where it starts up again
4582 } else {
4585 incr r
4586 }
4588 }
4589 }
4592 }
4595 }
4597 }
4599 proc drawlineseg {id row endrow arrowlow} {
4600 global rowidlist displayorder iddrawn linesegs
4601 global canv colormap linespc curview maxlinelen parentlist
4605 set arrowhigh 1
4606 while {1} {
4609 incr le -1
4610 break
4611 }
4615 set arrowhigh 0
4616 break
4617 }
4622 set arrowhigh 0
4623 }
4624 break
4625 }
4626 incr le
4627 }
4630 }
4632 set lines {}
4633 set i 0
4634 set joinhigh 0
4641 set joinhigh 1
4642 }
4643 break
4644 }
4645 incr i
4646 }
4647 }
4648 set joinlow 0
4653 set joinlow 1
4654 }
4655 }
4668 }
4669 } else {
4671 }
4679 set arrowlow 0
4680 }
4681 }
4689 }
4691 }
4694 # join parent line to first child
4705 } else {
4707 }
4715 }
4717 }
4719 } else {
4723 }
4731 } else {
4735 }
4737 }
4738 } else {
4744 }
4748 } else {
4749 # coalesce two pieces
4754 }
4758 }
4759 }
4763 }
4765 proc drawparentlinks {id row} {
4766 global rowidlist canv colormap curview parentlist
4767 global idpos linespc
4780 # rmx = right-most X coord used
4781 set rmx 0
4786 continue
4787 }
4791 }
4794 # drawlineseg will do this one for us
4795 continue
4796 }
4798 # should handle duplicated parents here...
4801 # if attaching to a vertical segment, draw a smaller
4802 # slant for visual distinctness
4806 } else {
4808 }
4810 # segment slants towards us already
4812 } else {
4817 }
4819 }
4820 } else {
4822 }
4827 }
4831 }
4832 }
4834 proc drawlines {id} {
4835 global canv
4838 }
4840 proc drawcmittext {id row col} {
4841 global linespc canv canv2 canv3 fgcolor curview
4842 global cmitlisted commitinfo rowidlist parentlist
4843 global rowtextx idpos idtags idheads idotherrefs
4844 global linehtag linentag linedtag selectedline
4845 global canvxmax boldrows boldnamerows fgcolor nullid nullid2
4847 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4850 set ofill red
4852 set ofill green
4853 } else {
4855 }
4864 # triangle pointing left for left-side commits
4870 } else {
4871 # triangle pointing right for right-side commits
4877 }
4888 }
4889 }
4890 }
4897 }
4902 set font mainfont
4903 set nfont mainfont
4907 set font mainfontbold
4910 set nfont mainfontbold
4911 }
4912 }
4922 }
4926 setcanvscroll
4927 }
4928 }
4930 proc drawcmitrow {row} {
4931 global displayorder rowidlist nrows_drawn
4932 global iddrawn markingmatches
4933 global commitinfo numcommits
4934 global filehighlight fhighlights findpattern nhighlights
4935 global hlview vhighlights
4936 global highlight_related rhighlights
4943 }
4946 }
4949 }
4952 }
4957 return
4958 }
4961 }
4965 incr nrows_drawn
4966 }
4969 }
4970 }
4972 proc drawcommits {row {endrow {}}} {
4973 global numcommits iddrawn displayorder curview need_redisplay
4974 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
4977 set row 0
4978 }
4981 }
4984 }
4988 set rl1 0
4989 }
4992 set ro1 0
4993 }
4997 }
5002 }
5004 }
5005 }
5008 }
5011 clear_display
5012 drawvisible
5013 }
5015 # make the lines join to already-drawn rows either side
5019 }
5024 }
5039 # see if this is the first child of any of its parents
5042 # make this line extend up to the child
5044 }
5045 }
5046 } else {
5048 }
5049 }
5050 }
5051 }
5053 proc undolayout {row} {
5054 global uparrowlen mingaplen downarrowlen
5055 global rowidlist rowisopt rowfinal need_redisplay
5059 set r 0
5060 }
5062 incr r -1
5066 set need_redisplay 1
5067 run drawvisible
5068 }
5069 }
5071 proc drawvisible {} {
5072 global canv linespc curview vrowmod selectedline targetrow targetid
5073 global need_redisplay cscroll numcommits
5083 if {[info exists targetid]} {
5087 # Fix up the scrollregion and change the scrolling position
5088 # now that our target row has moved.
5091 setcanvscroll
5099 set need_redisplay 1
5100 }
5101 } else {
5102 unset targetid
5103 }
5104 }
5110 }
5111 if {[info exists selectedline] &&
5114 } elseif {[info exists targetid]} {
5116 }
5117 if {[info exists targetrow]} {
5120 }
5122 }
5124 }
5126 proc clear_display {} {
5127 global iddrawn linesegs need_redisplay nrows_drawn
5128 global vhighlights fhighlights nhighlights rhighlights
5130 allcanvs delete all
5131 catch {unset iddrawn}
5132 catch {unset linesegs}
5133 catch {unset vhighlights}
5134 catch {unset fhighlights}
5135 catch {unset nhighlights}
5136 catch {unset rhighlights}
5137 set need_redisplay 0
5138 set nrows_drawn 0
5139 }
5141 proc findcrossings {id} {
5142 global rowidlist parentlist numcommits displayorder
5144 set cross {}
5145 set ccross {}
5149 }
5168 }
5169 }
5170 }
5171 }
5172 }
5174 }
5176 proc assigncolor {id} {
5177 global colormap colors nextcolor
5178 global parents children children curview
5184 } else {
5185 set kids {}
5186 }
5192 return
5193 }
5194 }
5195 set badcolors {}
5196 set origbad {}
5199 # delimiter between corner crossings and other crossings
5202 }
5206 }
5207 }
5210 }
5217 }
5222 }
5223 }
5224 }
5227 }
5228 }
5232 set nextcolor 0
5233 }
5235 }
5237 }
5239 proc bindline {t id} {
5240 global canv
5246 }
5248 proc drawtags {id x xt y1} {
5249 global idtags idheads idotherrefs mainhead
5250 global linespc lthickness
5251 global canv rowtextx curview fgcolor bgcolor
5253 set marks {}
5254 set ntags 0
5255 set nheads 0
5259 }
5263 }
5266 }
5269 }
5274 set xvals {}
5275 set wvals {}
5276 set i -1
5278 incr i
5281 } else {
5283 }
5287 }
5294 set font mainfont
5295 if {[incr ntags -1] >= 0} {
5296 # draw a tag
5302 } else {
5303 # draw a head or other ref
5304 if {[incr nheads -1] >= 0} {
5305 set col green
5307 set font mainfontbold
5308 }
5309 } else {
5310 set col "#ddddff"
5311 }
5322 }
5323 }
5330 }
5331 }
5333 }
5335 proc xcoord {i level ln} {
5336 global canvx0 xspc1 xspc2
5343 }
5345 }
5347 proc show_status {msg} {
5348 global canv fgcolor
5350 clear_display
5353 }
5355 # Don't change the text pane cursor if it is currently the hand cursor,
5356 # showing that we are over a sha1 ID link.
5357 proc settextcursor {c} {
5358 global ctext curtextcursor
5362 }
5364 }
5366 proc nowbusy {what {name {}}} {
5367 global isbusy busyname statusw
5369 if {[array names isbusy] eq {}} {
5370 . config -cursor watch
5371 settextcursor watch
5372 }
5377 }
5378 }
5380 proc notbusy {what} {
5381 global isbusy maincursor textcursor busyname statusw
5383 catch {
5388 }
5389 }
5390 if {[array names isbusy] eq {}} {
5393 }
5394 }
5396 proc findmatches {f} {
5397 global findtype findstring
5400 } else {
5405 }
5406 set matches {}
5407 set i 0
5412 }
5413 }
5415 }
5417 proc dofind {{dirn 1} {wrap 1}} {
5418 global findstring findstartline findcurline selectedline numcommits
5419 global gdttype filehighlight fh_serial find_dirn findallowwrap
5421 if {[info exists find_dirn]} {
5423 stopfinding
5424 }
5425 focus .
5427 if {![info exists selectedline]} {
5429 } else {
5431 }
5433 nowbusy finding [mc "Searching"]
5437 }
5440 run findmore
5441 }
5443 proc stopfinding {} {
5444 global find_dirn findcurline fprogcoord
5446 if {[info exists find_dirn]} {
5447 unset find_dirn
5448 unset findcurline
5449 notbusy finding
5450 set fprogcoord 0
5451 adjustprogress
5452 }
5453 }
5455 proc findmore {} {
5456 global commitdata commitinfo numcommits findpattern findloc
5457 global findstartline findcurline findallowwrap
5458 global find_dirn gdttype fhighlights fprogcoord
5459 global curview varcorder vrownum varccommits vrowmod
5461 if {![info exists find_dirn]} {
5462 return 0
5463 }
5464 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5466 set moretodo 0
5468 incr l
5470 set l 0
5471 }
5474 } else {
5477 }
5478 } else {
5481 }
5482 incr l -1
5485 } else {
5486 set lim -1
5488 }
5489 }
5492 set n 500
5493 set moretodo 1
5494 }
5497 }
5498 set found 0
5499 set domore 1
5513 }
5515 # shouldn't happen unless git log doesn't give all the commits...
5518 continue
5519 }
5522 }
5527 set found 1
5528 break
5529 }
5530 }
5532 }
5533 } else {
5541 }
5546 }
5549 break
5550 }
5553 set domore 0
5555 }
5556 }
5557 }
5558 }
5560 unset findcurline
5561 unset find_dirn
5562 notbusy finding
5563 set fprogcoord 0
5564 adjustprogress
5567 } else {
5568 bell
5569 }
5570 return 0
5571 }
5573 flushhighlights
5574 } else {
5576 }
5580 }
5582 adjustprogress
5584 }
5586 proc findselectline {l} {
5587 global findloc commentend ctext findcurline markingmatches gdttype
5589 set markingmatches 1
5593 # highlight the matches in the comments
5600 }
5601 }
5602 drawvisible
5603 }
5605 # mark the bits of a headline or author that match a find string
5606 proc markmatches {canv l str tag matches font row} {
5607 global selectedline
5625 }
5626 }
5627 }
5629 proc unmarkmatches {} {
5630 global markingmatches
5632 allcanvs delete matches
5633 set markingmatches 0
5634 stopfinding
5635 }
5637 proc selcanvline {w x y} {
5638 global canv canvy0 ctext linespc
5639 global rowtextx
5646 set l 0
5647 }
5652 }
5653 unmarkmatches
5655 }
5657 proc commit_descriptor {p} {
5658 global commitinfo
5661 }
5662 set l "..."
5665 }
5667 }
5669 # append some text to the ctext widget, and make any SHA1 ID
5670 # that we know about be a clickable link.
5671 proc appendwithlinks {text tags} {
5672 global ctext linknum curview pendinglinks
5681 incr e
5685 incr linknum
5686 }
5687 }
5689 proc setlink {id lk} {
5690 global curview ctext pendinglinks commitinterest
5697 } else {
5700 }
5701 }
5703 proc makelink {id} {
5704 global pendinglinks
5709 }
5711 }
5713 proc linkcursor {w inc} {
5714 global linkentercount curtextcursor
5718 } else {
5721 set linkentercount 0
5722 }
5723 }
5724 }
5726 proc viewnextline {dir} {
5727 global canv linespc
5735 set newtop 0
5738 }
5740 }
5742 # add a list of tag or branch names at position pos
5743 # returns the number of names inserted
5744 proc appendrefs {pos ids var} {
5748 return 0
5749 }
5752 set tags {}
5756 }
5757 }
5760 } else {
5762 set sep {}
5766 incr linknum
5771 set sep ", "
5772 }
5773 }
5776 }
5778 # called when we have finished computing the nearby tags
5779 proc dispneartags {delay} {
5780 global selectedline currentid showneartags tagphase
5783 after cancel dispnexttag
5785 after 200 dispnexttag
5786 set tagphase -1
5787 } else {
5788 after idle dispnexttag
5789 set tagphase 0
5790 }
5791 }
5793 proc dispnexttag {} {
5794 global selectedline currentid showneartags tagphase ctext
5798 0 {
5802 }
5803 }
5804 1 {
5808 }
5809 }
5810 2 {
5815 # turn "Branch" into "Branches"
5819 }
5820 }
5821 }
5822 }
5823 if {[incr tagphase] <= 2} {
5824 after idle dispnexttag
5825 }
5826 }
5828 proc make_secsel {l} {
5829 global linehtag linentag linedtag canv canv2 canv3
5844 }
5846 proc selectline {l isnew} {
5847 global canv ctext commitinfo selectedline
5848 global canvy0 linespc parents children curview
5849 global currentid sha1entry
5850 global commentend idtags linknum
5851 global mergemax numcommits pending_select
5852 global cmitmode showneartags allcommits
5853 global targetrow targetid lastscrollrows
5854 global autoselect
5856 catch {unset pending_select}
5858 normalline
5859 unsel_reflist
5860 stopfinding
5868 setcanvscroll
5869 }
5883 } else {
5887 }
5888 }
5892 } else {
5896 }
5897 }
5898 }
5901 set newtop 0
5902 }
5904 drawvisible
5905 }
5911 }
5918 }
5922 clear_ctext
5923 set linknum 0
5926 }
5936 }
5938 }
5940 set headers {}
5943 set np 0
5946 set tag mmax
5947 } else {
5949 }
5952 incr np
5953 }
5954 } else {
5957 }
5958 }
5962 }
5964 # make anything that looks like a SHA1 ID be a clickable link
5967 if {![info exists allcommits]} {
5968 getallcommits
5969 }
5980 dispneartags 1
5981 }
5986 }
5993 init_flist [mc "Comments"]
5998 } else {
6000 }
6001 }
6003 proc selfirstline {} {
6004 unmarkmatches
6005 selectline 0 1
6006 }
6008 proc sellastline {} {
6009 global numcommits
6010 unmarkmatches
6013 }
6015 proc selnextline {dir} {
6016 global selectedline
6017 focus .
6018 if {![info exists selectedline]} return
6020 unmarkmatches
6022 }
6024 proc selnextpage {dir} {
6025 global canv linespc selectedline numcommits
6029 set lpp 1
6030 }
6032 drawvisible
6033 if {![info exists selectedline]} return
6036 set l 0
6039 }
6040 unmarkmatches
6042 }
6044 proc unselectline {} {
6045 global selectedline currentid
6047 catch {unset selectedline}
6048 catch {unset currentid}
6049 allcanvs delete secsel
6050 rhighlight_none
6051 }
6053 proc reselectline {} {
6054 global selectedline
6056 if {[info exists selectedline]} {
6058 }
6059 }
6061 proc addtohistory {cmd} {
6062 global history historyindex curview
6067 return
6068 }
6072 } else {
6074 }
6075 incr historyindex
6077 .tf.bar.leftbut conf -state normal
6078 } else {
6079 .tf.bar.leftbut conf -state disabled
6080 }
6081 .tf.bar.rightbut conf -state disabled
6082 }
6084 proc godo {elt} {
6085 global curview
6091 }
6093 }
6095 proc goback {} {
6096 global history historyindex
6097 focus .
6100 incr historyindex -1
6102 .tf.bar.rightbut conf -state normal
6103 }
6105 .tf.bar.leftbut conf -state disabled
6106 }
6107 }
6109 proc goforw {} {
6110 global history historyindex
6111 focus .
6115 incr historyindex
6117 .tf.bar.leftbut conf -state normal
6118 }
6120 .tf.bar.rightbut conf -state disabled
6121 }
6122 }
6124 proc gettree {id} {
6125 global treefilelist treeidlist diffids diffmergeid treepending
6126 global nullid nullid2
6129 catch {unset diffmergeid}
6131 if {![info exists treepending]} {
6133 set cmd [list | git ls-files]
6135 set cmd [list | git ls-files --stage -t]
6136 } else {
6138 }
6140 return
6141 }
6147 }
6148 } else {
6150 }
6151 }
6153 proc gettreeline {gtf id} {
6154 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6156 set nl 0
6160 } else {
6169 }
6171 }
6173 }
6176 }
6178 unset treepending
6180 if {![info exists diffmergeid]} {
6182 }
6185 } else {
6187 }
6188 return 0
6189 }
6191 proc showfile {f} {
6192 global treefilelist treeidlist diffids nullid nullid2
6193 global ctext commentend
6198 return
6199 }
6203 return
6204 }
6205 } else {
6209 return
6210 }
6211 }
6220 settabs 0
6221 }
6223 proc getblobline {bf id} {
6224 global diffids cmitmode ctext
6228 return 0
6229 }
6231 set nl 0
6234 }
6236 # delete last newline
6239 return 0
6240 }
6243 }
6245 proc mergediff {id} {
6246 global diffmergeid mdifffd
6247 global diffids
6248 global parents
6249 global diffcontext
6250 global limitdiffs vfilelimit curview
6254 # this doesn't seem to actually affect anything...
6258 }
6261 return
6262 }
6268 }
6270 proc getmergediffline {mdf id np} {
6271 global diffmergeid ctext cflist mergemax
6272 global difffilestart mdifffd
6275 set nr 0
6280 return 0
6281 }
6283 # start of a new file
6294 # do nothing
6295 } else {
6296 # parse the prefix - one ' ', '-' or '+' for each parent
6297 set spaces {}
6298 set minuses {}
6299 set pluses {}
6300 set isbad 0
6309 } else {
6310 set isbad 1
6311 break
6312 }
6313 }
6314 set tags {}
6315 set num {}
6321 lappend tags mresult
6323 }
6326 set num "max"
6327 }
6329 }
6331 }
6332 }
6336 return 0
6337 }
6339 }
6341 proc startdiff {ids} {
6342 global treediffs diffids treepending diffmergeid nullid nullid2
6344 settabs 1
6346 catch {unset diffmergeid}
6350 if {![info exists treepending]} {
6352 }
6353 } else {
6355 }
6356 }
6358 proc path_filter {filter name} {
6363 return 1
6364 }
6365 } else {
6369 return 1
6370 }
6371 }
6372 }
6373 return 0
6374 }
6376 proc addtocflist {ids} {
6377 global treediffs
6381 }
6383 proc diffcmd {ids flags} {
6384 global nullid nullid2
6390 # comparing working directory with some specific revision
6394 } else {
6396 }
6397 } else {
6398 # comparing working directory with index
6401 lappend cmd -R
6402 }
6403 }
6407 # comparing index with specific revision
6410 } else {
6412 }
6413 } else {
6414 # comparing index with HEAD
6415 lappend cmd HEAD
6416 }
6417 } else {
6419 }
6421 }
6423 proc gettreediffs {ids} {
6424 global treediff treepending
6427 set treediff {}
6431 }
6433 proc gettreediffline {gdtf ids} {
6434 global treediff treediffs treepending diffids diffmergeid
6435 global cmitmode vfilelimit curview limitdiffs
6437 set nr 0
6444 }
6446 }
6447 }
6450 }
6453 set flist {}
6457 }
6458 }
6460 } else {
6462 }
6463 unset treepending
6467 if {![info exists diffmergeid]} {
6469 }
6470 } else {
6472 }
6473 return 0
6474 }
6476 # empty string or positive integer
6477 proc diffcontextvalidate {v} {
6479 }
6481 proc diffcontextchange {n1 n2 op} {
6482 global diffcontextstring diffcontext
6487 reselectline
6488 }
6489 }
6490 }
6492 proc changeignorespace {} {
6493 reselectline
6494 }
6496 proc getblobdiffs {ids} {
6497 global blobdifffd diffids env
6498 global diffinhdr treediffs
6499 global diffcontext
6500 global ignorespace
6501 global limitdiffs vfilelimit curview
6505 append cmd " -w"
6506 }
6509 }
6512 return
6513 }
6514 set diffinhdr 0
6518 }
6520 proc setinlist {var i val} {
6525 }
6528 } else {
6530 }
6531 }
6533 proc makediffhdr {fname ids} {
6534 global ctext curdiffstart treediffs
6539 }
6543 }
6545 proc getblobdiffline {bdf ids} {
6546 global diffids blobdifffd ctext curdiffstart
6547 global diffnexthead diffnextnote difffilestart
6548 global diffinhdr treediffs
6550 set nr 0
6555 return 0
6556 }
6558 # trim off "diff --git "
6560 set diffinhdr 1
6561 # start of a new file
6565 # If the name hasn't changed the length will be odd,
6566 # the middle char will be a space, and the two bits either
6567 # side will be a/name and b/name, or "a/name" and "b/name".
6568 # If the name has changed we'll get "rename from" and
6569 # "rename to" or "copy from" and "copy to" lines following this,
6570 # and we'll use them to get the filenames.
6571 # This complexity is necessary because spaces in the filename(s)
6572 # don't get escaped.
6578 continue
6579 }
6580 # unescape if quoted and chop off the a/ from the front
6583 } else {
6585 }
6588 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6591 set diffinhdr 0
6598 }
6602 }
6608 }
6611 # do nothing
6612 continue
6614 set diffinhdr 0
6615 continue
6616 }
6619 } else {
6626 } else {
6627 # "\ No newline at end of file",
6628 # or something else we don't recognize
6630 }
6631 }
6632 }
6636 return 0
6637 }
6639 }
6641 proc changediffdisp {} {
6642 global ctext diffelide
6646 }
6648 proc highlightfile {loc cline} {
6649 global ctext cflist cflist_top
6656 }
6658 proc prevfile {} {
6659 global difffilestart ctext cmitmode
6662 set prev 0.0
6663 set prevline 1
6668 return
6669 }
6671 incr prevline
6672 }
6674 }
6676 proc nextfile {} {
6677 global difffilestart ctext cmitmode
6681 set line 1
6683 incr line
6686 return
6687 }
6688 }
6689 }
6691 proc clear_ctext {{first 1.0}} {
6692 global ctext smarktop smarkbot
6693 global pendinglinks
6698 }
6701 }
6704 catch {unset pendinglinks}
6705 }
6706 }
6708 proc settabs {{firstab {}}} {
6709 global firsttabstop tabstop ctext have_tk85
6713 }
6714 set w [font measure textfont "0"]
6720 } else {
6722 }
6723 }
6725 proc incrsearch {name ix op} {
6726 global ctext searchstring searchdirn
6730 # no anchor set, use start of selection, or of visible area
6736 } else {
6738 }
6739 }
6744 }
6745 searchmarkvisible 1
6746 }
6747 }
6749 proc dosearch {} {
6750 global sstring ctext searchstring searchdirn
6754 set searchdirn -forwards
6760 set start "@0,0"
6761 }
6765 bell
6766 return
6767 }
6772 }
6773 }
6775 proc dosearchback {} {
6776 global sstring ctext searchstring searchdirn
6780 set searchdirn -backwards
6787 }
6791 bell
6792 return
6793 }
6798 }
6799 }
6801 proc searchmark {first last} {
6802 global ctext searchstring
6805 while {1} {
6810 }
6811 }
6813 proc searchmarkvisible {doall} {
6814 global ctext smarktop smarkbot
6819 # no overlap with previous
6823 } else {
6827 }
6831 }
6832 }
6833 }
6835 proc scrolltext {f0 f1} {
6836 global searchstring
6840 searchmarkvisible 0
6841 }
6842 }
6844 proc setcoords {} {
6845 global linespc charspc canvx0 canvy0
6846 global xspc1 xspc2 lthickness
6848 set linespc [font metrics mainfont -linespace]
6849 set charspc [font measure mainfont "m"]
6855 }
6857 proc redisplay {} {
6858 global canv
6859 global selectedline
6864 clear_display
6865 setcanvscroll
6867 drawvisible
6868 if {[info exists selectedline]} {
6871 }
6872 }
6874 proc parsefont {f n} {
6875 global fontattr
6880 set s 10
6883 }
6889 "normal" -
6891 "roman" -
6893 }
6894 }
6895 }
6897 proc fontflags {f {isbold 0}} {
6898 global fontattr
6903 }
6905 proc fontname {f} {
6906 global fontattr
6910 lappend n "bold"
6911 }
6913 lappend n "italic"
6914 }
6916 }
6918 proc incrfont {inc} {
6919 global mainfont textfont ctext canv cflist showrefstop
6920 global stopped entries fontattr
6922 unmarkmatches
6926 set s 1
6927 }
6931 set mainfont [fontname mainfont]
6935 set s 1
6936 }
6940 set textfont [fontname textfont]
6941 setcoords
6942 settabs
6943 redisplay
6944 }
6946 proc clearsha1 {} {
6947 global sha1entry sha1string
6950 }
6951 }
6953 proc sha1change {n1 n2 op} {
6954 global sha1string currentid sha1but
6957 set state disabled
6958 } else {
6959 set state normal
6960 }
6964 } else {
6966 }
6967 }
6969 proc gotocommit {} {
6970 global sha1string tagids headids curview varcid
6978 } else {
6985 return
6986 }
6988 }
6989 }
6990 }
6993 return
6994 }
6997 } else {
6999 }
7001 }
7003 proc lineenter {x y id} {
7004 global hoverx hovery hoverid hovertimer
7005 global commitinfo canv
7011 if {[info exists hovertimer]} {
7013 }
7014 set hovertimer [after 500 linehover]
7016 }
7018 proc linemotion {x y id} {
7019 global hoverx hovery hoverid hovertimer
7024 if {[info exists hovertimer]} {
7026 }
7027 set hovertimer [after 500 linehover]
7028 }
7029 }
7031 proc lineleave {id} {
7032 global hoverid hovertimer canv
7036 if {[info exists hovertimer]} {
7038 unset hovertimer
7039 }
7040 unset hoverid
7041 }
7042 }
7044 proc linehover {} {
7045 global hoverx hovery hoverid hovertimer
7046 global canv linespc lthickness
7047 global commitinfo
7060 -fill \#ffff80 -outline black -width 1 -tags hover]
7063 -font mainfont]
7065 }
7067 proc clickisonarrow {id y} {
7068 global lthickness
7077 }
7078 }
7079 return {}
7080 }
7082 proc arrowjump {id n y} {
7083 global canv
7085 # 1 <-> 2, 3 <-> 4, etc...
7095 set yfrac 0
7096 }
7098 }
7100 proc lineclick {x y id isnew} {
7101 global ctext commitinfo children canv thickerline curview
7104 unmarkmatches
7105 unselectline
7106 normalline
7108 # draw this line thicker than normal
7116 }
7120 return
7121 }
7125 }
7126 # fill the details pane with info about this line
7128 clear_ctext
7129 settabs 0
7141 set i 0
7143 incr i
7153 }
7154 }
7156 init_flist {}
7157 }
7159 proc normalline {} {
7160 global thickerline
7161 if {[info exists thickerline]} {
7163 unset thickerline
7165 }
7166 }
7168 proc selbyid {id} {
7169 global curview
7172 }
7173 }
7175 proc mstime {} {
7176 global startmstime
7177 if {![info exists startmstime]} {
7178 set startmstime [clock clicks -milliseconds]
7179 }
7181 }
7183 proc rowmenu {x y id} {
7184 global rowctxmenu selectedline rowmenuid curview
7185 global nullid nullid2 fakerowmenu mainhead
7187 stopfinding
7189 if {![info exists selectedline]
7191 set state disabled
7192 } else {
7193 set state normal
7194 }
7199 } else {
7201 }
7202 } else {
7204 }
7209 }
7211 proc diffvssel {dirn} {
7212 global rowmenuid selectedline
7214 if {![info exists selectedline]} return
7218 } else {
7221 }
7224 }
7226 proc doseldiff {oldid newid} {
7227 global ctext
7228 global commitinfo
7231 clear_ctext
7232 init_flist [mc "Top"]
7247 }
7249 proc mkpatch {} {
7250 global rowmenuid currentid commitinfo patchtop patchnum
7252 if {![info exists currentid]} return
7257 set top .patch
7286 incr patchnum
7296 }
7298 proc mkpatchrev {} {
7299 global patchtop
7305 foreach e [list fromsha1 fromhead tosha1 tohead] \
7311 }
7312 }
7314 proc mkpatchgo {} {
7315 global patchtop nullid nullid2
7321 # trim off the initial "|"
7326 }
7328 unset patchtop
7329 }
7331 proc mkpatchcan {} {
7332 global patchtop
7335 unset patchtop
7336 }
7338 proc mktag {} {
7339 global rowmenuid mktagtop commitinfo
7341 set top .maketag
7367 }
7369 proc domktag {} {
7370 global mktagtop env tagids idtags
7375 error_popup [mc "No tag name specified"]
7376 return
7377 }
7380 return
7381 }
7382 if {[catch {
7384 } err]} {
7386 return
7387 }
7393 dispneartags 0
7394 run refill_reflist
7395 }
7397 proc redrawtags {id} {
7398 global canv linehtag idpos currentid curview
7399 global canvxmax iddrawn
7412 setcanvscroll
7413 }
7416 }
7417 }
7419 proc mktagcan {} {
7420 global mktagtop
7423 unset mktagtop
7424 }
7426 proc mktaggo {} {
7427 domktag
7428 mktagcan
7429 }
7431 proc writecommit {} {
7432 global rowmenuid wrcomtop commitinfo wrcomcmd
7434 set top .writecommit
7464 }
7466 proc wrcomgo {} {
7467 global wrcomtop
7474 }
7476 unset wrcomtop
7477 }
7479 proc wrcomcan {} {
7480 global wrcomtop
7483 unset wrcomtop
7484 }
7486 proc mkbranch {} {
7487 global rowmenuid mkbrtop
7489 set top .makebranch
7510 }
7512 proc mkbrgo {top} {
7513 global headids idheads
7518 error_popup [mc "Please specify a name for the new branch"]
7519 return
7520 }
7522 nowbusy newbranch
7523 update
7524 if {[catch {
7526 } err]} {
7527 notbusy newbranch
7529 } else {
7533 notbusy newbranch
7535 dispneartags 0
7536 run refill_reflist
7537 }
7538 }
7540 proc cherrypick {} {
7541 global rowmenuid curview
7542 global mainhead mainheadid
7544 set oldhead [exec git rev-parse HEAD]
7547 set ok [confirm_popup [mc "Commit %s is already\
7548 included in branch %s -- really re-apply it?" \
7551 }
7552 nowbusy cherrypick [mc "Cherry-picking"]
7553 update
7554 # Unfortunately git-cherry-pick writes stuff to stderr even when
7555 # no error occurs, and exec takes that as an indication of error...
7557 notbusy cherrypick
7559 return
7560 }
7561 set newhead [exec git rev-parse HEAD]
7563 notbusy cherrypick
7564 error_popup [mc "No changes committed"]
7565 return
7566 }
7574 }
7578 }
7579 notbusy cherrypick
7580 }
7582 proc resethead {} {
7583 global mainhead rowmenuid confirm_ok resettype
7585 set confirm_ok 0
7586 set w ".confirmreset"
7592 -justify center -aspect 1000
7597 set resettype mixed
7599 -text [mc "Soft: Leave working tree and index untouched"]
7602 -text [mc "Mixed: Leave working tree untouched, reset index"]
7605 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7615 if {[catch {set fd [open \
7618 } else {
7619 dohidelocalchanges
7621 nowbusy reset [mc "Resetting"]
7623 }
7624 }
7626 proc readresetstat {fd} {
7627 global mainhead mainheadid showlocalchanges rprogcoord
7632 adjustprogress
7633 }
7634 return 1
7635 }
7636 set rprogcoord 0
7637 adjustprogress
7638 notbusy reset
7641 }
7643 set newhead [exec git rev-parse HEAD]
7650 }
7652 doshowlocalchanges
7653 }
7654 return 0
7655 }
7657 # context menu for a head
7658 proc headmenu {x y id head} {
7659 global headmenuid headmenuhead headctxmenu mainhead
7661 stopfinding
7664 set state normal
7666 set state disabled
7667 }
7671 }
7673 proc cobranch {} {
7674 global headmenuid headmenuhead mainhead headids
7675 global showlocalchanges mainheadid
7677 # check the tree is clean first??
7678 nowbusy checkout [mc "Checking out"]
7679 update
7680 dohidelocalchanges
7681 if {[catch {
7683 } err]} {
7684 notbusy checkout
7687 dodiffindex
7688 }
7689 } else {
7691 }
7692 }
7694 proc readcheckoutstat {fd newhead newheadid} {
7695 global mainhead mainheadid headids showlocalchanges progresscoords
7700 adjustprogress
7701 }
7702 return 1
7703 }
7704 set progresscoords {0 0}
7705 adjustprogress
7706 notbusy checkout
7709 }
7715 }
7719 dodiffindex
7720 }
7721 }
7723 proc rmbranch {} {
7724 global headmenuid headmenuhead mainhead
7725 global idheads
7729 # this check shouldn't be needed any more...
7731 error_popup [mc "Cannot delete the currently checked-out branch"]
7732 return
7733 }
7736 # the stuff on this branch isn't on any other branch
7737 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7739 }
7740 nowbusy rmbranch
7741 update
7743 notbusy rmbranch
7745 return
7746 }
7750 notbusy rmbranch
7751 dispneartags 0
7752 run refill_reflist
7753 }
7755 # Display a list of tags and heads
7756 proc showrefs {} {
7757 global showrefstop bgcolor fgcolor selectbgcolor
7758 global bglist fglist reflistfilter reflist maincursor
7760 set top .showrefs
7764 refill_reflist
7765 return
7766 }
7773 -spacing1 1 -spacing3 1 -state disabled
7784 set reflistfilter "*"
7785 trace add variable reflistfilter write reflistfilter_change
7796 set reflist {}
7797 refill_reflist
7798 }
7800 proc sel_reflist {w x y} {
7801 global showrefstop reflist headids tagids otherrefids
7811 }
7813 }
7815 proc unsel_reflist {} {
7816 global showrefstop
7820 }
7822 proc reflistfilter_change {n1 n2 op} {
7823 global reflistfilter
7825 after cancel refill_reflist
7826 after 200 refill_reflist
7827 }
7829 proc refill_reflist {} {
7830 global reflist reflistfilter showrefstop headids tagids otherrefids
7831 global curview commitinterest
7834 set refs {}
7835 foreach n [array names headids] {
7839 } else {
7841 }
7842 }
7843 }
7844 foreach n [array names tagids] {
7848 } else {
7850 }
7851 }
7852 }
7853 foreach n [array names otherrefids] {
7857 } else {
7859 }
7860 }
7861 }
7869 set i 0
7870 set j 0
7879 }
7880 } else {
7881 set cmp -1
7882 }
7883 } else {
7884 set cmp 1
7885 }
7887 -1 {
7889 incr i
7890 }
7891 0 {
7892 incr i
7893 incr j
7894 }
7895 1 {
7900 incr j
7901 }
7902 }
7903 }
7905 # delete last newline
7908 }
7910 # Stuff for finding nearby tags
7911 proc getallcommits {} {
7912 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7913 global idheads idtags idotherrefs allparents tagobjid
7915 if {![info exists allcommits]} {
7916 set nextarc 0
7917 set allcommits 0
7918 set seeds {}
7919 set allcwait 0
7920 set cachedarcs 0
7921 set allccache [file join [gitdir] "gitk.cache"]
7922 if {![catch {
7924 set allcwait 1
7926 }]} return
7927 }
7930 return
7931 }
7932 set cmd [list | git rev-list --parents]
7935 set ids "--all"
7936 } else {
7937 set refs [concat [array names idheads] [array names idtags] \
7938 [array names idotherrefs]]
7939 set ids {}
7940 set tagobjs {}
7941 foreach name [array names tagobjid] {
7943 }
7948 }
7949 }
7953 }
7954 }
7955 }
7959 incr allcommits
7960 nowbusy allcommits
7962 } else {
7963 dispneartags 0
7964 }
7965 }
7967 # Since most commits have 1 parent and 1 child, we group strings of
7968 # such commits into "arcs" joining branch/merge points (BMPs), which
7969 # are commits that either don't have 1 parent or don't have 1 child.
7970 #
7971 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
7972 # arcout(id) - outgoing arcs for BMP
7973 # arcids(a) - list of IDs on arc including end but not start
7974 # arcstart(a) - BMP ID at start of arc
7975 # arcend(a) - BMP ID at end of arc
7976 # growing(a) - arc a is still growing
7977 # arctags(a) - IDs out of arcids (excluding end) that have tags
7978 # archeads(a) - IDs out of arcids (excluding end) that have heads
7979 # The start of an arc is at the descendent end, so "incoming" means
7980 # coming from descendents, and "outgoing" means going towards ancestors.
7982 proc getallclines {fd} {
7983 global allparents allchildren idtags idheads nextarc
7984 global arcnos arcids arctags arcout arcend arcstart archeads growing
7985 global seeds allcommits cachedarcs allcupdate
7987 set nid 0
7991 # seen it already
7992 continue
7993 }
7994 set cachedarcs 0
8001 } else {
8007 }
8010 }
8012 # seen parent already
8015 }
8019 }
8022 continue
8023 }
8024 }
8029 }
8031 set ao {}
8034 set a [incr nextarc]
8043 # seen it already, may need to make a new branch
8046 }
8050 }
8052 }
8054 }
8056 global cached_dheads cached_dtags cached_atags
8057 catch {unset cached_dheads}
8058 catch {unset cached_dtags}
8059 catch {unset cached_atags}
8060 }
8063 }
8064 set cacheok 1
8065 if {[catch {
8068 } err]} {
8069 # got an error reading the list of commits
8070 # if we were updating, try rereading the whole thing again
8072 incr allcommits -1
8074 return
8075 }
8076 error_popup "[mc "Error reading commit topology information;\
8077 branch and preceding/following tag information\
8079 set cacheok 0
8080 }
8081 if {[incr allcommits -1] == 0} {
8082 notbusy allcommits
8084 run savecache
8085 }
8086 }
8087 dispneartags 0
8088 return 0
8089 }
8091 proc recalcarc {a} {
8092 global arctags archeads arcids idtags idheads
8094 set at {}
8095 set ah {}
8099 }
8102 }
8103 }
8106 }
8108 proc splitarc {p} {
8109 global arcnos arcids nextarc arctags archeads idtags idheads
8110 global arcstart arcend arcout allparents growing
8115 return
8116 }
8121 return
8122 }
8123 set na [incr nextarc]
8126 } else {
8130 }
8140 }
8145 } else {
8148 }
8149 }
8151 # reconstruct tags and heads lists
8155 } else {
8158 }
8159 }
8161 # Update things for a new commit added that is a child of one
8162 # existing commit. Used when cherry-picking.
8163 proc addnewchild {id p} {
8164 global allparents allchildren idtags nextarc
8165 global arcnos arcids arctags arcout arcend arcstart archeads growing
8166 global seeds allcommits
8174 set a [incr nextarc]
8182 }
8185 }
8187 # This implements a cache for the topology information.
8188 # The cache saves, for each arc, the start and end of the arc,
8189 # the ids on the arc, and the outgoing arcs from the end.
8190 proc readcache {f} {
8191 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8192 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8193 global allcwait
8199 }
8200 if {[catch {
8202 # finish reading the cache and setting up arctags, etc.
8206 foreach id [array names idtags] {
8212 }
8213 }
8214 }
8215 foreach id [array names idheads] {
8221 }
8222 }
8223 }
8227 }
8228 }
8229 set allcwait 0
8230 } else {
8240 }
8244 } else {
8248 }
8249 }
8255 }
8258 }
8261 }
8263 }
8264 } err]} {
8266 return 0
8267 }
8269 getallcommits
8270 }
8272 }
8274 proc getcache {f} {
8275 global nextarc cachedarcs possible_seeds
8277 if {[catch {
8280 # make sure it's an integer
8283 set nextarc 0
8284 set possible_seeds {}
8286 } err]} {
8288 }
8289 return 0
8290 }
8292 proc dropcache {err} {
8293 global allcwait nextarc cachedarcs seeds
8296 foreach v {arcnos arcout arcids arcstart arcend growing \
8297 arctags archeads allparents allchildren} {
8300 }
8301 set allcwait 0
8302 set nextarc 0
8303 set cachedarcs 0
8304 set seeds {}
8305 getallcommits
8306 }
8308 proc writecache {f} {
8309 global cachearc cachedarcs allccache
8310 global arcstart arcend arcnos arcids arcout
8316 }
8317 if {[catch {
8321 } else {
8323 }
8324 }
8325 } err]} {
8329 return 0
8330 }
8335 return 0
8336 }
8337 return 1
8338 }
8340 proc savecache {} {
8341 global nextarc cachedarcs cachearc allccache
8344 set cachearc 0
8346 catch {
8350 }
8351 }
8353 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8354 # or 0 if neither is true.
8355 proc anc_or_desc {a b} {
8356 global arcout arcstart arcend arcnos cached_isanc
8359 # Both are on the same arc(s); either both are the same BMP,
8360 # or if one is not a BMP, the other is also not a BMP or is
8361 # the BMP at end of the arc (and it only has 1 incoming arc).
8362 # Or both can be BMPs with no incoming arcs.
8364 return 0
8365 }
8371 return 1
8372 } else {
8373 return -1
8374 }
8375 }
8381 } else {
8382 set aend {}
8383 }
8385 } else {
8387 }
8392 } else {
8393 set bend {}
8394 }
8396 } else {
8398 }
8400 return 1
8401 }
8403 return -1
8404 }
8407 return 1
8408 }
8409 }
8412 return -1
8413 }
8415 return 0
8416 }
8417 }
8425 continue
8426 }
8432 return 1
8436 return -1
8437 }
8443 }
8444 }
8445 }
8448 return 0
8449 }
8453 # and returns 0 if so and 1 if not.
8454 # If we subsequently discover a tag on such a growing tip, and that
8457 # isn't a good choice to display as a descendent tag of
8461 #
8462 proc is_certain {desc anc} {
8463 global arcnos arcout arcstart arcend growing problems
8465 set certain {}
8467 # tags on the same arc are certain
8469 return 1
8470 }
8475 }
8476 }
8479 } else {
8482 }
8484 return 1
8485 }
8488 set nnh 1
8489 set ngrowanc 0
8493 incr nnh -1
8494 }
8500 incr ngrowanc
8501 }
8502 } else {
8509 incr nnh -1
8510 }
8512 incr ngrowanc -1
8513 }
8523 incr nnh -1
8524 }
8526 incr ngrowanc -1
8527 }
8529 }
8530 }
8531 }
8532 }
8533 }
8534 }
8538 } else {
8541 incr nnh
8542 }
8543 }
8544 }
8545 }
8546 foreach x [array names growanc] {
8548 return 0
8549 }
8550 return 0
8551 }
8552 return 1
8553 }
8555 proc validate_arctags {a} {
8556 global arctags idtags
8558 set i -1
8561 incr i
8564 incr i -1
8565 }
8566 }
8568 }
8570 proc validate_archeads {a} {
8571 global archeads idheads
8573 set i -1
8576 incr i
8579 incr i -1
8580 }
8581 }
8583 }
8585 # Return the list of IDs that have tags that are descendents of id,
8586 # ignoring IDs that are descendents of IDs already reported.
8587 proc desctags {id} {
8588 global arcnos arcstart arcids arctags idtags allparents
8589 global growing cached_dtags
8592 return {}
8593 }
8594 set t1 [clock clicks -milliseconds]
8597 # part-way along an arc; check that arc first
8602 set tid {}
8607 }
8610 }
8611 }
8615 }
8616 }
8619 }
8624 set nc 1
8630 incr nc -1
8631 }
8632 # ignore tags on starting node
8636 set ta 1
8639 set ta 1
8640 }
8641 }
8648 }
8649 }
8658 }
8661 }
8663 incr nc -1
8664 }
8666 }
8667 }
8668 }
8673 incr nc
8674 }
8675 }
8676 }
8677 }
8678 set tags {}
8679 foreach id [array names tagloc] {
8684 }
8685 }
8686 }
8687 }
8688 set t2 [clock clicks -milliseconds]
8691 # remove tags that are descendents of other tags
8699 incr j -1
8700 incr i -1
8703 incr i -1
8704 break
8705 }
8706 }
8707 }
8709 if {[array names growing] ne {}} {
8710 # graph isn't finished, need to check if any tag could get
8711 # eclipsed by another tag coming later. Simply ignore any
8712 # tags that could later get eclipsed.
8713 set ctags {}
8717 }
8718 }
8721 } else {
8723 }
8724 } else {
8726 }
8727 set t3 [clock clicks -milliseconds]
8731 }
8733 }
8735 proc anctags {id} {
8736 global arcnos arcids arcout arcend arctags idtags allparents
8737 global growing cached_atags
8740 return {}
8741 }
8742 set t1 [clock clicks -milliseconds]
8745 # part-way along an arc; check that arc first
8754 }
8755 }
8756 }
8758 return {}
8759 }
8763 }
8764 }
8767 }
8772 set taglist {}
8773 set nc 1
8779 incr nc -1
8780 }
8781 # ignore tags on starting node
8785 set td 1
8788 set td 1
8789 }
8790 }
8796 }
8797 }
8809 }
8810 }
8813 }
8815 incr nc -1
8816 }
8818 }
8819 }
8820 }
8825 incr nc
8826 }
8827 }
8828 }
8829 }
8830 set t2 [clock clicks -milliseconds]
8832 set tags {}
8833 foreach id [array names tagloc] {
8838 }
8839 }
8840 }
8841 }
8843 # remove tags that are ancestors of other tags
8851 incr j -1
8852 incr i -1
8855 incr i -1
8856 break
8857 }
8858 }
8859 }
8861 if {[array names growing] ne {}} {
8862 # graph isn't finished, need to check if any tag could get
8863 # eclipsed by another tag coming later. Simply ignore any
8864 # tags that could later get eclipsed.
8865 set ctags {}
8869 }
8870 }
8873 } else {
8875 }
8876 } else {
8878 }
8879 set t3 [clock clicks -milliseconds]
8883 }
8885 }
8887 # Return the list of IDs that have heads that are descendents of id,
8888 # including id itself if it has a head.
8889 proc descheads {id} {
8890 global arcnos arcstart arcids archeads idheads cached_dheads
8891 global allparents
8894 return {}
8895 }
8896 set aret {}
8898 # part-way along an arc; check it first
8907 }
8908 }
8910 }
8914 set ret {}
8919 } else {
8922 }
8928 }
8929 }
8934 }
8935 }
8936 }
8937 }
8941 }
8943 proc addedtag {id} {
8944 global arcnos arcout cached_dtags cached_atags
8949 }
8950 catch {unset cached_dtags}
8951 catch {unset cached_atags}
8952 }
8954 proc addedhead {hid head} {
8955 global arcnos arcout cached_dheads
8960 }
8961 catch {unset cached_dheads}
8962 }
8964 proc removedhead {hid head} {
8965 global cached_dheads
8967 catch {unset cached_dheads}
8968 }
8970 proc movedhead {hid head} {
8971 global arcnos arcout cached_dheads
8976 }
8977 catch {unset cached_dheads}
8978 }
8980 proc changedrefs {} {
8981 global cached_dheads cached_dtags cached_atags
8982 global arctags archeads arcnos arcout idheads idtags
8984 foreach id [concat [array names idheads] [array names idtags]] {
8990 }
8991 }
8992 }
8993 catch {unset cached_dtags}
8994 catch {unset cached_atags}
8995 catch {unset cached_dheads}
8996 }
8998 proc rereadrefs {} {
8999 global idtags idheads idotherrefs mainheadid
9001 set refids [concat [array names idtags] \
9002 [array names idheads] [array names idotherrefs]]
9006 }
9007 }
9009 readrefs
9010 changedrefs
9012 [array names idheads] [array names idotherrefs]]]
9019 }
9020 }
9021 run refill_reflist
9022 }
9024 proc listrefs {id} {
9025 global idtags idheads idotherrefs
9027 set x {}
9030 }
9031 set y {}
9034 }
9035 set z {}
9038 }
9040 }
9042 proc showtag {tag isnew} {
9043 global ctext tagcontents tagids linknum tagobjid
9047 }
9049 clear_ctext
9050 settabs 0
9051 set linknum 0
9053 catch {
9055 }
9056 }
9059 } else {
9061 }
9064 init_flist {}
9065 }
9067 proc doquit {} {
9068 global stopped
9069 global gitktmpdir
9071 set stopped 100
9072 savestuff .
9073 destroy .
9075 if {[info exists gitktmpdir]} {
9077 }
9078 }
9080 proc mkfontdisp {font top which} {
9089 }
9091 proc choosefont {font which} {
9092 global fontparam fontlist fonttop fontattr
9100 set top .gitkfont
9103 font create sample
9109 set fontlist [lsort [font families]]
9120 -textvariable fontparam(size) \
9121 -validatecommand {string is integer -strict %s}
9123 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9124 -variable fontparam(weight) -onvalue bold -offvalue normal
9126 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9127 -variable fontparam(slant) -onvalue italic -offvalue roman
9131 -background white
9133 -fill black -tags text
9143 trace add variable fontparam write chg_fontparam
9144 } else {
9147 }
9152 }
9153 }
9155 proc centertext {w} {
9157 }
9159 proc fontok {} {
9160 global fontparam fontpref prefstop
9166 }
9169 }
9173 fontcan
9174 }
9176 proc fontcan {} {
9177 global fonttop fontparam
9179 if {[info exists fonttop]} {
9181 catch {font delete sample}
9182 unset fonttop
9183 unset fontparam
9184 }
9185 }
9187 proc selfontfam {} {
9188 global fonttop fontparam
9193 }
9194 }
9196 proc chg_fontparam {v sub op} {
9197 global fontparam
9200 }
9202 proc doprefs {} {
9203 global maxwidth maxgraphpct
9204 global oldprefs prefstop showneartags showlocalchanges
9205 global bgcolor fgcolor ctext diffcolors selectbgcolor
9206 global tabstop limitdiffs autoselect extdifftool
9208 set top .gitkprefs
9212 return
9213 }
9214 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9215 limitdiffs tabstop} {
9217 }
9224 -font optionfont
9228 -font optionfont
9261 -padx 10
9263 -command choose_extdiff
9290 "diff hunk header" \
9312 }
9314 proc choose_extdiff {} {
9315 global extdifftool
9317 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9320 }
9321 }
9323 proc choosecolor {v vi w x cmd} {
9332 }
9334 proc setselbg {c} {
9335 global bglist cflist
9338 }
9342 }
9344 proc setbg {c} {
9345 global bglist
9349 }
9350 }
9352 proc setfg {c} {
9353 global fglist canv
9357 }
9360 }
9362 proc prefscan {} {
9363 global oldprefs prefstop
9365 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9366 limitdiffs tabstop} {
9369 }
9371 unset prefstop
9372 fontcan
9373 }
9375 proc prefsok {} {
9376 global maxwidth maxgraphpct
9377 global oldprefs prefstop showneartags showlocalchanges
9378 global fontpref mainfont textfont uifont
9379 global limitdiffs treediffs
9382 unset prefstop
9383 fontcan
9384 set fontchanged 0
9388 eval font configure mainfont [fontflags mainfont]
9389 eval font configure mainfontbold [fontflags mainfont 1]
9390 setcoords
9391 set fontchanged 1
9392 }
9396 eval font configure textfont [fontflags textfont]
9397 eval font configure textfontbold [fontflags textfont 1]
9398 }
9402 eval font configure uifont [fontflags uifont]
9403 }
9404 settabs
9407 doshowlocalchanges
9408 } else {
9409 dohidelocalchanges
9410 }
9411 }
9413 # treediffs elements are limited by path
9414 catch {unset treediffs}
9415 }
9418 redisplay
9421 reselectline
9422 }
9423 }
9425 proc formatdate {d} {
9426 global datetimeformat
9429 }
9431 }
9433 # This list of encoding names and aliases is distilled from
9434 # http://www.iana.org/assignments/character-sets.
9435 # Not all of them are supported by Tcl.
9436 set encoding_aliases {
9437 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9438 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9439 { ISO-10646-UTF-1 csISO10646UTF1 }
9440 { ISO_646.basic:1983 ref csISO646basic1983 }
9441 { INVARIANT csINVARIANT }
9442 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9443 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9444 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9445 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9446 { NATS-DANO iso-ir-9-1 csNATSDANO }
9447 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9448 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9449 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9450 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9451 { ISO-2022-KR csISO2022KR }
9452 { EUC-KR csEUCKR }
9453 { ISO-2022-JP csISO2022JP }
9454 { ISO-2022-JP-2 csISO2022JP2 }
9455 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9456 csISO13JISC6220jp }
9457 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9458 { IT iso-ir-15 ISO646-IT csISO15Italian }
9459 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9460 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9461 { greek7-old iso-ir-18 csISO18Greek7Old }
9462 { latin-greek iso-ir-19 csISO19LatinGreek }
9463 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9464 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9465 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9466 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9467 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9468 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9469 { INIS iso-ir-49 csISO49INIS }
9470 { INIS-8 iso-ir-50 csISO50INIS8 }
9471 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9472 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9473 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9474 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9475 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9476 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9477 csISO60Norwegian1 }
9478 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9479 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9480 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9481 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9482 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9483 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9484 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9485 { greek7 iso-ir-88 csISO88Greek7 }
9486 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9487 { iso-ir-90 csISO90 }
9488 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9489 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9490 csISO92JISC62991984b }
9491 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9492 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9493 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9494 csISO95JIS62291984handadd }
9495 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9496 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9497 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9498 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9499 CP819 csISOLatin1 }
9500 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9501 { T.61-7bit iso-ir-102 csISO102T617bit }
9502 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9503 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9504 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9505 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9506 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9507 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9508 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9509 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9510 arabic csISOLatinArabic }
9511 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9512 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9513 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9514 greek greek8 csISOLatinGreek }
9515 { T.101-G2 iso-ir-128 csISO128T101G2 }
9516 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9517 csISOLatinHebrew }
9518 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9519 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9520 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9521 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9522 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9523 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9524 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9525 csISOLatinCyrillic }
9526 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9527 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9528 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9529 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9530 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9531 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9532 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9533 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9534 { ISO_10367-box iso-ir-155 csISO10367Box }
9535 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9536 { latin-lap lap iso-ir-158 csISO158Lap }
9537 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9538 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9539 { us-dk csUSDK }
9540 { dk-us csDKUS }
9541 { JIS_X0201 X0201 csHalfWidthKatakana }
9542 { KSC5636 ISO646-KR csKSC5636 }
9543 { ISO-10646-UCS-2 csUnicode }
9544 { ISO-10646-UCS-4 csUCS4 }
9545 { DEC-MCS dec csDECMCS }
9546 { hp-roman8 roman8 r8 csHPRoman8 }
9547 { macintosh mac csMacintosh }
9548 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9549 csIBM037 }
9550 { IBM038 EBCDIC-INT cp038 csIBM038 }
9551 { IBM273 CP273 csIBM273 }
9552 { IBM274 EBCDIC-BE CP274 csIBM274 }
9553 { IBM275 EBCDIC-BR cp275 csIBM275 }
9554 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9555 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9556 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9557 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9558 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9559 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9560 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9561 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9562 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9563 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9564 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9565 { IBM437 cp437 437 csPC8CodePage437 }
9566 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9567 { IBM775 cp775 csPC775Baltic }
9568 { IBM850 cp850 850 csPC850Multilingual }
9569 { IBM851 cp851 851 csIBM851 }
9570 { IBM852 cp852 852 csPCp852 }
9571 { IBM855 cp855 855 csIBM855 }
9572 { IBM857 cp857 857 csIBM857 }
9573 { IBM860 cp860 860 csIBM860 }
9574 { IBM861 cp861 861 cp-is csIBM861 }
9575 { IBM862 cp862 862 csPC862LatinHebrew }
9576 { IBM863 cp863 863 csIBM863 }
9577 { IBM864 cp864 csIBM864 }
9578 { IBM865 cp865 865 csIBM865 }
9579 { IBM866 cp866 866 csIBM866 }
9580 { IBM868 CP868 cp-ar csIBM868 }
9581 { IBM869 cp869 869 cp-gr csIBM869 }
9582 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9583 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9584 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9585 { IBM891 cp891 csIBM891 }
9586 { IBM903 cp903 csIBM903 }
9587 { IBM904 cp904 904 csIBBM904 }
9588 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9589 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9590 { IBM1026 CP1026 csIBM1026 }
9591 { EBCDIC-AT-DE csIBMEBCDICATDE }
9592 { EBCDIC-AT-DE-A csEBCDICATDEA }
9593 { EBCDIC-CA-FR csEBCDICCAFR }
9594 { EBCDIC-DK-NO csEBCDICDKNO }
9595 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9596 { EBCDIC-FI-SE csEBCDICFISE }
9597 { EBCDIC-FI-SE-A csEBCDICFISEA }
9598 { EBCDIC-FR csEBCDICFR }
9599 { EBCDIC-IT csEBCDICIT }
9600 { EBCDIC-PT csEBCDICPT }
9601 { EBCDIC-ES csEBCDICES }
9602 { EBCDIC-ES-A csEBCDICESA }
9603 { EBCDIC-ES-S csEBCDICESS }
9604 { EBCDIC-UK csEBCDICUK }
9605 { EBCDIC-US csEBCDICUS }
9606 { UNKNOWN-8BIT csUnknown8BiT }
9607 { MNEMONIC csMnemonic }
9608 { MNEM csMnem }
9609 { VISCII csVISCII }
9610 { VIQR csVIQR }
9611 { KOI8-R csKOI8R }
9612 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9613 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9614 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9615 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9616 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9617 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9618 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9619 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9620 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9621 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9622 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9623 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9624 { IBM1047 IBM-1047 }
9625 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9626 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9627 { UNICODE-1-1 csUnicode11 }
9628 { CESU-8 csCESU-8 }
9629 { BOCU-1 csBOCU-1 }
9630 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9631 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9632 l8 }
9633 { ISO-8859-15 ISO_8859-15 Latin-9 }
9634 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9635 { GBK CP936 MS936 windows-936 }
9636 { JIS_Encoding csJISEncoding }
9637 { Shift_JIS MS_Kanji csShiftJIS }
9638 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9639 EUC-JP }
9640 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9641 { ISO-10646-UCS-Basic csUnicodeASCII }
9642 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9643 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9644 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9645 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9646 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9647 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9648 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9649 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9650 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9651 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9652 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9653 { Ventura-US csVenturaUS }
9654 { Ventura-International csVenturaInternational }
9655 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9656 { PC8-Turkish csPC8Turkish }
9657 { IBM-Symbols csIBMSymbols }
9658 { IBM-Thai csIBMThai }
9659 { HP-Legal csHPLegal }
9660 { HP-Pi-font csHPPiFont }
9661 { HP-Math8 csHPMath8 }
9662 { Adobe-Symbol-Encoding csHPPSMath }
9663 { HP-DeskTop csHPDesktop }
9664 { Ventura-Math csVenturaMath }
9665 { Microsoft-Publishing csMicrosoftPublishing }
9666 { Windows-31J csWindows31J }
9667 { GB2312 csGB2312 }
9668 { Big5 csBig5 }
9669 }
9671 proc tcl_encoding {enc} {
9672 global encoding_aliases
9673 set names [encoding names]
9678 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9681 }
9682 }
9687 # look through the aliases for one that tcl knows about
9693 }
9694 }
9696 }
9697 break
9698 }
9699 }
9702 }
9703 return {}
9704 }
9706 # First check that Tcl/Tk is recent enough
9707 if {[catch {package require Tk 8.4} err]} {
9708 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9709 Gitk requires at least Tcl/Tk 8.4."]
9710 exit 1
9711 }
9713 # defaults...
9714 set wrcomcmd "git diff-tree --stdin -p --pretty"
9716 set gitencoding {}
9717 catch {
9718 set gitencoding [exec git config --get i18n.commitencoding]
9719 }
9721 set gitencoding "utf-8"
9722 }
9726 }
9728 set mainfont {Helvetica 9}
9729 set textfont {Courier 9}
9730 set uifont {Helvetica 9 bold}
9731 set tabstop 8
9732 set findmergefiles 0
9733 set maxgraphpct 50
9734 set maxwidth 16
9735 set revlistorder 0
9736 set fastdate 0
9737 set uparrowlen 5
9738 set downarrowlen 5
9739 set mingaplen 100
9740 set cmitmode "patch"
9741 set wrapcomment "none"
9742 set showneartags 1
9743 set maxrefs 20
9744 set maxlinelen 200
9745 set showlocalchanges 1
9746 set limitdiffs 1
9747 set datetimeformat "%Y-%m-%d %H:%M:%S"
9748 set autoselect 1
9750 set extdifftool "meld"
9752 set colors {green red blue magenta darkgrey brown orange}
9753 set bgcolor white
9754 set fgcolor black
9755 set diffcolors {red "#00a000" blue}
9756 set diffcontext 3
9757 set ignorespace 0
9758 set selectbgcolor gray85
9760 ## For msgcat loading, first locate the installation location.
9761 if { [info exists ::env(GITK_MSGSDIR)] } {
9762 ## Msgsdir was manually set in the environment.
9763 set gitk_msgsdir $::env(GITK_MSGSDIR)
9764 } else {
9765 ## Let's guess the prefix from argv0.
9769 unset gitk_prefix
9770 }
9772 ## Internationalization (i18n) through msgcat and gettext. See
9773 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9774 package require msgcat
9775 namespace import ::msgcat::mc
9776 ## And eventually load the actual message catalog
9779 catch {source ~/.gitk}
9781 font create optionfont -family sans-serif -size -12
9784 eval font create mainfont [fontflags mainfont]
9785 eval font create mainfontbold [fontflags mainfont 1]
9788 eval font create textfont [fontflags textfont]
9789 eval font create textfontbold [fontflags textfont 1]
9792 eval font create uifont [fontflags uifont]
9794 setoptions
9796 # check that we can find a .git directory somewhere...
9797 if {[catch {set gitdir [gitdir]}]} {
9798 show_error {} . [mc "Cannot find a git repository here."]
9799 exit 1
9800 }
9803 exit 1
9804 }
9806 set revtreeargs {}
9807 set cmdline_files {}
9808 set i 0
9809 set revtreeargscmd {}
9812 "" { }
9813 "--" {
9815 break
9816 }
9817 "--argscmd=*" {
9819 }
9820 default {
9822 }
9823 }
9824 incr i
9825 }
9828 # no -- on command line, but some arguments (other than --argscmd)
9829 if {[catch {
9834 # Unfortunately git rev-parse doesn't produce an error when
9835 # something is both a revision and a filename. To be consistent
9836 # with git log and git rev-list, check revtreeargs for filenames.
9839 show_error {} . [mc "Ambiguous argument '%s': both revision\
9841 exit 1
9842 }
9843 }
9844 } err]} {
9846 # so look for "fatal:".
9850 }
9852 exit 1
9853 }
9854 }
9856 set nullid "0000000000000000000000000000000000000000"
9857 set nullid2 "0000000000000000000000000000000000000001"
9858 set nullfile "/dev/null"
9862 set runq {}
9863 set history {}
9864 set historyindex 0
9865 set fh_serial 0
9866 set nhl_names {}
9867 set highlight_paths {}
9868 set findpattern {}
9869 set searchdirn -forwards
9870 set boldrows {}
9871 set boldnamerows {}
9872 set diffelide {0 0}
9873 set markingmatches 0
9874 set linkentercount 0
9875 set need_redisplay 0
9876 set nrows_drawn 0
9877 set firsttabstop 0
9879 set nextviewnum 1
9880 set curview 0
9881 set selectedview 0
9882 set selectedhlview [mc "None"]
9883 set highlight_related [mc "None"]
9884 set highlight_files {}
9885 set viewfiles(0) {}
9886 set viewperm(0) 0
9887 set viewargs(0) {}
9888 set viewargscmd(0) {}
9890 set numcommits 0
9891 set loginstance 0
9892 set cmdlineok 0
9893 set stopped 0
9894 set stuffsaved 0
9895 set patchnum 0
9896 set lserial 0
9897 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9898 setcoords
9899 makewindow
9900 # wait for the window to become visible
9901 tkwait visibility .
9903 readrefs
9906 # create a view for the files/dirs specified on the command line
9907 set curview 1
9908 set selectedview 1
9909 set nextviewnum 2
9910 set viewname(1) [mc "Command line"]
9914 set viewperm(1) 0
9915 set vdatemode(1) 0
9916 addviewmenu 1
9917 .bar.view entryconf [mc "Edit view..."] -state normal
9918 .bar.view entryconf [mc "Delete view"] -state normal
9919 }
9921 if {[info exists permviews]} {
9924 incr nextviewnum
9931 }
9932 }
9933 getcommits