| blob | 998a05194204dbf238a792df19c2936c27941295 |
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 file rename -force "~/.gitk-new" "~/.gitk"
2324 }
2325 set stuffsaved 1
2326 }
2328 proc resizeclistpanes {win w} {
2329 global oldwidth
2336 } else {
2341 set sash0 30
2342 }
2345 }
2350 }
2351 }
2352 }
2355 }
2357 }
2359 proc resizecdetpanes {win w} {
2360 global oldwidth
2365 } else {
2369 set sash0 45
2370 }
2373 }
2374 }
2376 }
2378 }
2380 proc allcanvs args {
2381 global canv canv2 canv3
2385 }
2387 proc bindall {event action} {
2388 global canv canv2 canv3
2392 }
2394 proc about {} {
2395 global uifont
2396 set w .about
2399 return
2400 }
2404 Gitk - a commit viewer for git
2406 Copyright © 2005-2008 Paul Mackerras
2408 Use and redistribute under the terms of the GNU General Public License"] \
2409 -justify center -aspect 400 -border 2 -bg white -relief groove
2416 }
2418 proc keys {} {
2419 set w .keys
2422 return
2423 }
2424 if {[tk windowingsystem] eq {aqua}} {
2425 set M1T Cmd
2426 } else {
2427 set M1T Ctrl
2428 }
2432 [mc "Gitk key bindings:"]
2435 [mc "<Home> Move to first commit"]
2436 [mc "<End> Move to last commit"]
2437 [mc "<Up>, p, i Move up one commit"]
2438 [mc "<Down>, n, k Move down one commit"]
2439 [mc "<Left>, z, j Go back in history list"]
2440 [mc "<Right>, x, l Go forward in history list"]
2441 [mc "<PageUp> Move up one page in commit list"]
2442 [mc "<PageDown> Move down one page in commit list"]
2449 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2450 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2451 [mc "<Delete>, b Scroll diff view up one page"]
2452 [mc "<Backspace> Scroll diff view up one page"]
2453 [mc "<Space> Scroll diff view down one page"]
2454 [mc "u Scroll diff view up 18 lines"]
2455 [mc "d Scroll diff view down 18 lines"]
2458 [mc "<Return> Move to next find hit"]
2459 [mc "/ Move to next find hit, or redo find"]
2460 [mc "? Move to previous find hit"]
2461 [mc "f Scroll diff view to next file"]
2468 [mc "<F5> Update"]
2469 " \
2470 -justify left -bg white -border 2 -relief groove
2477 }
2479 # Procedures for manipulating the file list window at the
2480 # bottom right of the overall window.
2482 proc treeview {w l openlevs} {
2483 global treecontents treediropen treeheight treeparent treeindex
2485 set ix 0
2486 set treeindex() 0
2487 set lev 0
2488 set prefix {}
2489 set prefixend -1
2490 set prefendstack {}
2491 set htstack {}
2492 set ht 0
2493 set treecontents() {}
2500 }
2507 incr lev -1
2508 }
2512 set ht 0
2524 set ht 1
2529 set str "\n"
2537 }
2538 incr lev
2539 }
2542 incr ht
2543 set str "\n"
2547 }
2549 }
2550 }
2558 }
2560 }
2562 proc linetoelt {l} {
2563 global treeheight treecontents
2565 set y 2
2566 set prefix {}
2567 while {1} {
2571 }
2572 set n 1
2577 incr y
2578 break
2579 }
2580 }
2582 }
2583 }
2584 }
2586 proc highlight_tree {y prefix} {
2587 global treeheight treecontents cflist
2593 }
2594 incr y
2597 }
2598 }
2600 }
2602 proc treeclosedir {w dir} {
2603 global treediropen treeheight treeparent treeindex
2615 }
2616 }
2618 proc treeopendir {w dir} {
2619 global treediropen treeheight treeparent treecontents treeindex
2626 set lev 0
2627 set str "\n"
2630 incr lev
2631 append str "\t"
2633 }
2648 } else {
2651 }
2652 }
2665 }
2667 }
2668 }
2670 proc treeclick {w x y} {
2671 global treediropen cmitmode ctext cflist cflist_top
2674 if {![info exists cflist_top]} return
2681 return
2682 }
2688 } else {
2690 }
2691 }
2693 proc setfilelist {id} {
2694 global treefilelist cflist
2697 }
2699 image create bitmap tri-rt -background black -foreground blue -data {
2700 #define tri-rt_width 13
2701 #define tri-rt_height 13
2702 static unsigned char tri-rt_bits[] = {
2703 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2704 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2705 0x00, 0x00};
2706 } -maskdata {
2707 #define tri-rt-mask_width 13
2708 #define tri-rt-mask_height 13
2709 static unsigned char tri-rt-mask_bits[] = {
2710 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2711 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2712 0x08, 0x00};
2713 }
2714 image create bitmap tri-dn -background black -foreground blue -data {
2715 #define tri-dn_width 13
2716 #define tri-dn_height 13
2717 static unsigned char tri-dn_bits[] = {
2718 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2719 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2720 0x00, 0x00};
2721 } -maskdata {
2722 #define tri-dn-mask_width 13
2723 #define tri-dn-mask_height 13
2724 static unsigned char tri-dn-mask_bits[] = {
2725 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2726 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2727 0x00, 0x00};
2728 }
2730 image create bitmap reficon-T -background black -foreground yellow -data {
2731 #define tagicon_width 13
2732 #define tagicon_height 9
2733 static unsigned char tagicon_bits[] = {
2734 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2735 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2736 } -maskdata {
2737 #define tagicon-mask_width 13
2738 #define tagicon-mask_height 9
2739 static unsigned char tagicon-mask_bits[] = {
2740 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2741 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2742 }
2743 set rectdata {
2744 #define headicon_width 13
2745 #define headicon_height 9
2746 static unsigned char headicon_bits[] = {
2747 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2748 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2749 }
2750 set rectmask {
2751 #define headicon-mask_width 13
2752 #define headicon-mask_height 9
2753 static unsigned char headicon-mask_bits[] = {
2754 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2755 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2756 }
2757 image create bitmap reficon-H -background black -foreground green \
2759 image create bitmap reficon-o -background black -foreground "#ddddff" \
2762 proc init_flist {first} {
2763 global cflist cflist_top difffilestart
2769 set cflist_top 1
2771 } else {
2772 catch {unset cflist_top}
2773 }
2775 set difffilestart {}
2776 }
2778 proc highlight_tag {f} {
2779 global highlight_paths
2783 return "bold"
2784 }
2785 }
2786 return {}
2787 }
2789 proc highlight_filelist {} {
2790 global cmitmode cflist
2799 }
2800 }
2801 } else {
2802 highlight_tree 2 {}
2803 }
2805 }
2807 proc unhighlight_filelist {} {
2808 global cflist
2813 }
2815 proc add_flist {fl} {
2816 global cflist
2822 }
2824 }
2826 proc sel_flist {w x y} {
2827 global ctext difffilestart cflist cflist_top cmitmode
2830 if {![info exists cflist_top]} return
2837 } else {
2839 }
2840 }
2842 proc pop_flist_menu {w X Y x y} {
2843 global ctext cflist cmitmode flist_menu flist_menu_file
2844 global treediffs diffids
2846 stopfinding
2852 } else {
2854 }
2856 set xdiffstate "normal"
2858 set xdiffstate "disabled"
2859 }
2860 # Disable "External diff" item in tree mode
2863 }
2865 proc flist_hl {only} {
2866 global flist_menu_file findstring gdttype
2871 } else {
2873 }
2874 set gdttype [mc "touching paths:"]
2875 }
2877 proc save_file_from_commit {filename output what} {
2878 global nullfile
2883 }
2885 return {}
2886 }
2888 }
2890 proc external_diff_get_one_file {diffid filename diffdir} {
2891 global nullid nullid2 nullfile
2892 global gitdir
2898 }
2900 }
2904 }
2908 }
2910 proc external_diff {} {
2911 global gitktmpdir nullid nullid2
2912 global flist_menu_file
2913 global diffids
2914 global diffnum
2915 global gitdir extdifftool
2918 # no reference commit given
2921 # diffing working copy with index
2924 # diffing index with HEAD
2925 set diffidfrom "HEAD"
2926 } else {
2927 # use first parent commit
2928 global parentlist selectedline
2930 }
2931 } else {
2934 }
2936 # make sure that several diffs wont collide
2937 if {![info exists gitktmpdir]} {
2939 [format ".gitk-tmp.%s" [pid]]]
2942 unset gitktmpdir
2943 return
2944 }
2945 set diffnum 0
2946 }
2947 incr diffnum
2951 return
2952 }
2954 # gather files to diff
2964 } else {
2967 }
2968 }
2969 }
2972 proc delete_at_eof {f dir} {
2977 }
2979 return 0
2980 }
2981 return 1
2982 }
2984 # Functions for adding and removing shell-type quoting
2986 proc shellquote {str} {
2989 }
2992 }
2995 }
2997 }
2999 proc shellarglist {l} {
3000 set str {}
3003 append str " "
3004 }
3006 }
3008 }
3010 proc shelldequote {str} {
3011 set ret {}
3012 set used -1
3013 while {1} {
3014 incr used
3018 break
3019 }
3025 }
3027 incr used
3031 error "unmatched single-quote"
3032 }
3035 continue
3036 }
3039 error "trailing backslash"
3040 }
3042 continue
3043 }
3044 # here ch == "\""
3045 while {1} {
3047 error "unmatched double-quote"
3048 }
3054 }
3056 incr used
3058 incr used
3059 }
3060 }
3062 }
3064 proc shellsplit {str} {
3065 set l {}
3066 while {1} {
3074 }
3076 }
3078 # Code to implement multiple views
3080 proc newview {ishighlight} {
3081 global nextviewnum newviewname newviewperm newishighlight
3082 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3085 set top .gitkview
3088 return
3089 }
3095 }
3097 proc editview {} {
3098 global curview
3099 global viewname viewperm newviewname newviewperm
3100 global viewargs newviewargs viewargscmd newviewargscmd
3105 return
3106 }
3112 }
3114 proc vieweditor {top n title} {
3115 global newviewname newviewperm viewfiles bgcolor
3126 -text [mc "Commits to include (arguments to git log):"]
3133 -text [mc "Command to generate more commits to include:"]
3136 -background white
3140 -text [mc "Enter files and directories to include, one per line:"]
3147 }
3150 }
3160 }
3162 proc doviewmenu {m first cmd op argv} {
3167 break
3168 }
3169 }
3170 }
3172 proc allviewmenus {n op args} {
3173 # global viewhlmenu
3177 }
3179 proc newviewok {top n} {
3180 global nextviewnum newviewperm newviewname newishighlight
3181 global viewname viewfiles viewperm selectedview curview
3182 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3184 if {[catch {
3186 } err]} {
3190 return
3191 }
3192 set files {}
3197 }
3198 }
3200 # creating a new view
3201 incr nextviewnum
3210 } else {
3212 }
3213 } else {
3214 # editing an existing view
3222 }
3229 run reloadcommits
3230 }
3231 }
3232 }
3234 }
3236 proc delview {} {
3237 global curview viewperm hlview selectedhlview
3241 set selectedhlview [mc "None"]
3242 unset hlview
3243 }
3246 showview 0
3247 }
3249 proc addviewmenu {n} {
3250 global viewname viewhlmenu
3256 }
3258 proc showview {n} {
3259 global curview cached_commitrow ordertok
3260 global displayorder parentlist rowidlist rowisopt rowfinal
3261 global colormap rowtextx nextcolor canvxmax
3262 global numcommits viewcomplete
3263 global selectedline currentid canv canvy0
3264 global treediffs
3265 global pending_select mainheadid
3266 global commitidx
3267 global selectedview
3268 global hlview selectedhlview commitinterest
3271 set selid {}
3277 if {[info exists selectedline]} {
3282 }
3283 } elseif {[info exists pending_select]} {
3285 unset pending_select
3286 }
3287 unselectline
3288 normalline
3289 catch {unset treediffs}
3290 clear_display
3292 unset hlview
3293 set selectedhlview [mc "None"]
3294 }
3295 catch {unset commitinterest}
3296 catch {unset cached_commitrow}
3297 catch {unset ordertok}
3304 run refill_reflist
3308 }
3309 getcommits
3310 return
3311 }
3313 set displayorder {}
3314 set parentlist {}
3315 set rowidlist {}
3316 set rowisopt {}
3317 set rowfinal {}
3320 catch {unset colormap}
3321 catch {unset rowtextx}
3322 set nextcolor 0
3325 set row 0
3326 setcanvscroll
3327 set yf 0
3328 set row {}
3331 # try to get the selected row in the same position on the screen
3335 set ytop 0
3336 }
3338 }
3340 drawvisible
3348 } else {
3350 }
3351 } else {
3352 set row [first_real_row]
3355 }
3356 }
3359 show_status [mc "Reading commits..."]
3360 }
3362 show_status [mc "No commits selected"]
3363 }
3364 }
3366 # Stuff relating to the highlighting facility
3368 proc ishighlighted {id} {
3369 global vhighlights fhighlights nhighlights rhighlights
3373 }
3376 }
3379 }
3382 }
3383 return 0
3384 }
3386 proc bolden {row font} {
3387 global canv linehtag selectedline boldrows
3394 -outline {{}} -tags secsel \
3397 }
3398 }
3400 proc bolden_name {row font} {
3401 global canv2 linentag selectedline boldnamerows
3408 -outline {{}} -tags secsel \
3411 }
3412 }
3414 proc unbolden {} {
3415 global boldrows
3417 set stillbold {}
3421 } else {
3423 }
3424 }
3426 }
3428 proc addvhighlight {n} {
3429 global hlview viewcomplete curview vhl_done commitidx
3431 if {[info exists hlview]} {
3432 delvhighlight
3433 }
3437 }
3440 drawvisible
3441 }
3442 }
3444 proc delvhighlight {} {
3445 global hlview vhighlights
3447 if {![info exists hlview]} return
3448 unset hlview
3449 catch {unset vhighlights}
3450 unbolden
3451 }
3453 proc vhighlightmore {} {
3454 global hlview vhl_done commitidx vhighlights curview
3457 set vr [visiblerows]
3467 }
3469 }
3470 }
3471 }
3473 return 0
3474 }
3476 proc askvhighlight {row id} {
3477 global hlview vhighlights iddrawn
3482 }
3484 } else {
3486 }
3487 }
3489 proc hfiles_change {} {
3490 global highlight_files filehighlight fhighlights fh_serial
3491 global highlight_paths gdttype
3493 if {[info exists filehighlight]} {
3494 # delete previous highlights
3496 unset filehighlight
3497 catch {unset fhighlights}
3498 unbolden
3499 unhighlight_filelist
3500 }
3501 set highlight_paths {}
3503 incr fh_serial
3506 }
3507 }
3509 proc gdttype_change {name ix op} {
3510 global gdttype highlight_files findstring findpattern
3512 stopfinding
3516 set highlight_files {}
3517 hfiles_change
3518 }
3519 findcom_change
3520 } else {
3522 set findpattern {}
3523 findcom_change
3524 }
3526 hfiles_change
3527 }
3528 drawvisible
3529 }
3530 # enable/disable findtype/findloc menus too
3531 }
3533 proc find_change {name ix op} {
3534 global gdttype findstring highlight_files
3536 stopfinding
3538 findcom_change
3539 } else {
3542 hfiles_change
3543 }
3544 }
3545 drawvisible
3546 }
3548 proc findcom_change args {
3549 global nhighlights boldnamerows
3550 global findpattern findtype findstring gdttype
3552 stopfinding
3553 # delete previous highlights, if any
3556 }
3557 set boldnamerows {}
3558 catch {unset nhighlights}
3559 unbolden
3560 unmarkmatches
3562 set findpattern {}
3565 } else {
3566 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3569 }
3570 }
3572 proc makepatterns {l} {
3573 set ret {}
3578 } else {
3581 }
3582 }
3584 }
3586 proc do_file_hl {serial} {
3587 global highlight_files filehighlight highlight_paths gdttype fhl_list
3592 highlight_filelist
3596 } else {
3597 # must be "containing:", i.e. we're searching commit info
3598 return
3599 }
3604 set fhl_list {}
3605 drawvisible
3606 flushhighlights
3607 }
3609 proc flushhighlights {} {
3610 global filehighlight fhl_list
3612 if {[info exists filehighlight]} {
3613 lappend fhl_list {}
3616 }
3617 }
3619 proc askfilehighlight {row id} {
3620 global filehighlight fhighlights fhl_list
3625 }
3627 proc readfhighlight {} {
3628 global filehighlight fhighlights curview iddrawn
3629 global fhl_list find_dirn
3631 if {![info exists filehighlight]} {
3632 return 0
3633 }
3634 set nr 0
3642 }
3649 }
3651 }
3653 # strange...
3654 puts "oops, git diff-tree died"
3656 unset filehighlight
3657 return 0
3658 }
3659 if {[info exists find_dirn]} {
3660 run findmore
3661 }
3662 return 1
3663 }
3665 proc doesmatch {f} {
3666 global findtype findpattern
3672 } else {
3674 }
3675 }
3677 proc askfindhighlight {row id} {
3678 global nhighlights commitinfo iddrawn
3679 global findloc
3680 global markingmatches
3684 }
3686 set isbold 0
3687 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3692 set isbold 2
3693 break
3694 }
3695 set isbold 1
3696 }
3697 }
3703 }
3704 }
3707 }
3708 }
3710 }
3712 proc markrowmatches {row id} {
3713 global canv canv2 linehtag linentag commitinfo findloc
3724 }
3725 }
3731 }
3732 }
3733 }
3735 proc vrel_change {name ix op} {
3736 global highlight_related
3738 rhighlight_none
3740 run drawvisible
3741 }
3742 }
3744 # prepare for testing whether commits are descendents or ancestors of a
3745 proc rhighlight_sel {a} {
3746 global descendent desc_todo ancestor anc_todo
3747 global highlight_related
3749 catch {unset descendent}
3751 catch {unset ancestor}
3754 rhighlight_none
3755 run drawvisible
3756 }
3757 }
3759 proc rhighlight_none {} {
3760 global rhighlights
3762 catch {unset rhighlights}
3763 unbolden
3764 }
3766 proc is_descendent {a} {
3767 global curview children descendent desc_todo
3772 set leftover {}
3773 set done 0
3778 continue
3779 }
3785 set done 1
3786 }
3787 }
3788 }
3791 return
3792 }
3793 }
3796 }
3798 proc is_ancestor {a} {
3799 global curview parents ancestor anc_todo
3804 set leftover {}
3805 set done 0
3810 continue
3811 }
3817 set done 1
3818 }
3819 }
3820 }
3823 return
3824 }
3825 }
3828 }
3830 proc askrelhighlight {row id} {
3831 global descendent highlight_related iddrawn rhighlights
3832 global selectedline ancestor
3834 if {![info exists selectedline]} return
3835 set isbold 0
3840 }
3842 set isbold 1
3843 }
3848 }
3850 set isbold 1
3851 }
3852 }
3856 }
3857 }
3859 }
3861 # Graph layout functions
3863 proc shortids {ids} {
3864 set res {}
3870 } else {
3872 }
3873 }
3875 }
3877 proc ntimes {n o} {
3878 set ret {}
3883 }
3885 }
3887 }
3889 proc ordertoken {id} {
3890 global ordertok curview varcid varcstart varctok curview parents children
3891 global nullid nullid2
3895 }
3897 set todo {}
3898 while {1} {
3902 } else {
3904 }
3907 break
3908 }
3911 # it's a root
3913 break
3914 }
3917 } else {
3921 }
3923 }
3924 }
3929 }
3932 }
3934 # Work out where id should go in idlist so that order-token
3935 # values increase from left to right
3936 proc idcol {idlist id {i 0}} {
3939 set i 0
3940 }
3944 }
3946 incr i
3947 } else {
3951 }
3952 }
3954 }
3956 proc initlayout {} {
3957 global rowidlist rowisopt rowfinal displayorder parentlist
3958 global numcommits canvxmax canv
3959 global nextcolor
3960 global colormap rowtextx
3962 set numcommits 0
3963 set displayorder {}
3964 set parentlist {}
3965 set nextcolor 0
3966 set rowidlist {}
3967 set rowisopt {}
3968 set rowfinal {}
3970 catch {unset colormap}
3971 catch {unset rowtextx}
3972 setcanvscroll
3973 }
3975 proc setcanvscroll {} {
3976 global canv canv2 canv3 numcommits linespc canvxmax canvy0
3977 global lastscrollset lastscrollrows
3983 set lastscrollset [clock clicks -milliseconds]
3985 }
3987 proc visiblerows {} {
3988 global canv numcommits linespc
3996 set r0 0
3997 }
4002 }
4004 }
4006 proc layoutmore {} {
4007 global commitidx viewcomplete curview
4008 global numcommits pending_select selectedline curview
4009 global lastscrollset lastscrollrows commitinterest
4013 setcanvscroll
4014 }
4015 if {[info exists pending_select] &&
4018 }
4019 drawvisible
4020 }
4022 proc doshowlocalchanges {} {
4023 global curview mainheadid
4026 dodiffindex
4027 } else {
4029 }
4030 }
4032 proc dohidelocalchanges {} {
4033 global nullid nullid2 lserial curview
4037 }
4040 }
4041 incr lserial
4042 }
4044 # spawn off a process to do git diff-index --cached HEAD
4045 proc dodiffindex {} {
4046 global lserial showlocalchanges
4047 global isworktree
4050 incr lserial
4051 set fd [open "|git diff-index --cached HEAD" r]
4054 }
4056 proc readdiffindex {fd serial} {
4057 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4059 set isdiff 1
4062 return 1
4063 }
4064 set isdiff 0
4065 }
4066 # we only need to see one line and we don't really care what it says...
4070 return 0
4071 }
4073 # now see if there are any local changes not checked in to the index
4074 set fd [open "|git diff-files" r]
4079 # add the line for the changes in the index to the graph
4080 set hl [mc "Local changes checked in to index but not committed"]
4085 }
4089 }
4090 return 0
4091 }
4093 proc readdifffiles {fd serial} {
4094 global mainheadid nullid nullid2 curview
4095 global commitinfo commitdata lserial
4097 set isdiff 1
4100 return 1
4101 }
4102 set isdiff 0
4103 }
4104 # we only need to see one line and we don't really care what it says...
4108 return 0
4109 }
4112 # add the line for the local diff to the graph
4113 set hl [mc "Local uncommitted changes, not checked in to index"]
4118 } else {
4120 }
4124 }
4125 return 0
4126 }
4128 proc nextuse {id row} {
4129 global curview children
4134 return -1
4135 }
4138 }
4139 }
4140 }
4143 }
4144 return -1
4145 }
4147 proc prevuse {id row} {
4148 global curview children
4150 set ret -1
4156 }
4157 }
4158 }
4160 }
4162 proc make_idlist {row} {
4163 global displayorder parentlist uparrowlen downarrowlen mingaplen
4164 global commitidx curview children
4168 set r 0
4169 }
4172 set ra 0
4173 }
4177 }
4179 set ids {}
4188 }
4189 }
4190 }
4198 }
4199 }
4200 }
4208 }
4209 }
4210 incr r
4216 }
4217 }
4218 }
4219 set idlist {}
4222 }
4224 }
4226 proc rowsequal {a b} {
4229 }
4232 }
4234 }
4236 proc makeupline {id row rend col} {
4237 global rowidlist uparrowlen downarrowlen mingaplen
4243 }
4246 }
4253 }
4254 }
4255 }
4257 proc layoutrows {row endrow} {
4258 global rowidlist rowisopt rowfinal displayorder
4259 global uparrowlen downarrowlen maxwidth mingaplen
4260 global children parentlist
4261 global commitidx viewcomplete curview
4264 set idlist {}
4270 }
4271 }
4273 }
4278 set final 1
4279 } else {
4287 # if not the first child, we have to insert a line going up
4290 }
4291 }
4292 }
4302 }
4303 }
4304 }
4311 }
4312 }
4322 }
4323 }
4331 }
4332 }
4333 }
4334 }
4335 }
4339 set final 0
4340 }
4344 lappend rowisopt 0
4350 }
4352 } else {
4359 }
4360 }
4362 }
4364 proc changedrow {row} {
4365 global displayorder iddrawn rowisopt need_redisplay
4374 }
4375 }
4376 }
4379 set need_redisplay 1
4380 }
4381 }
4383 proc insert_pad {row col npad} {
4384 global rowidlist
4393 }
4396 }
4398 proc optimize_rows {row col endrow} {
4399 global rowidlist rowisopt displayorder curview children
4402 set row 1
4403 }
4406 set haspad 0
4415 } else {
4416 set pprevidlist {}
4417 }
4418 set x0 -1
4419 set xm -1
4424 set haspad 1
4425 continue
4426 }
4430 set isarrow 0
4431 set z0 {}
4436 }
4437 }
4442 set isarrow 1
4443 }
4444 }
4447 set isarrow 1
4448 }
4449 # Looking at lines from this row to the previous row,
4450 # make them go straight up if they end in an arrow on
4451 # the previous row; otherwise make them go straight up
4452 # or at 45 degrees.
4454 # Line currently goes left too much;
4455 # insert pads in the previous row, then optimize it
4460 }
4468 }
4470 # Line currently goes right too much;
4471 # insert pads in this line
4477 set haspad 1
4478 }
4485 }
4486 }
4487 # avoid lines jigging left then immediately right
4490 incr x0
4493 }
4494 }
4496 # Find the first column that doesn't have a line going right
4502 # check if this is the link to the first child
4505 # it is, work out offset to child
4507 }
4508 }
4510 }
4511 # Insert a pad at that column as long as it has a line and
4512 # isn't the last column
4517 }
4518 }
4519 }
4520 }
4522 proc xc {row col} {
4523 global canvx0 linespc
4525 }
4527 proc yc {row} {
4528 global canvy0 linespc
4530 }
4532 proc linewidth {id} {
4533 global thickerline lthickness
4538 }
4540 }
4542 proc rowranges {id} {
4543 global curview children uparrowlen downarrowlen
4544 global rowidlist
4548 return {}
4549 }
4550 set ret {}
4555 if {![info exists prev]} {
4557 } else {
4559 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4560 }
4561 # see if the line extends the whole way from prevrow to row
4565 # it doesn't, see where it ends
4570 } else {
4573 incr r -1
4574 }
4576 # see where it starts up again
4581 } else {
4584 incr r
4585 }
4587 }
4588 }
4591 }
4594 }
4596 }
4598 proc drawlineseg {id row endrow arrowlow} {
4599 global rowidlist displayorder iddrawn linesegs
4600 global canv colormap linespc curview maxlinelen parentlist
4604 set arrowhigh 1
4605 while {1} {
4608 incr le -1
4609 break
4610 }
4614 set arrowhigh 0
4615 break
4616 }
4621 set arrowhigh 0
4622 }
4623 break
4624 }
4625 incr le
4626 }
4629 }
4631 set lines {}
4632 set i 0
4633 set joinhigh 0
4640 set joinhigh 1
4641 }
4642 break
4643 }
4644 incr i
4645 }
4646 }
4647 set joinlow 0
4652 set joinlow 1
4653 }
4654 }
4667 }
4668 } else {
4670 }
4678 set arrowlow 0
4679 }
4680 }
4688 }
4690 }
4693 # join parent line to first child
4704 } else {
4706 }
4714 }
4716 }
4718 } else {
4722 }
4730 } else {
4734 }
4736 }
4737 } else {
4743 }
4747 } else {
4748 # coalesce two pieces
4753 }
4757 }
4758 }
4762 }
4764 proc drawparentlinks {id row} {
4765 global rowidlist canv colormap curview parentlist
4766 global idpos linespc
4779 # rmx = right-most X coord used
4780 set rmx 0
4785 continue
4786 }
4790 }
4793 # drawlineseg will do this one for us
4794 continue
4795 }
4797 # should handle duplicated parents here...
4800 # if attaching to a vertical segment, draw a smaller
4801 # slant for visual distinctness
4805 } else {
4807 }
4809 # segment slants towards us already
4811 } else {
4816 }
4818 }
4819 } else {
4821 }
4826 }
4830 }
4831 }
4833 proc drawlines {id} {
4834 global canv
4837 }
4839 proc drawcmittext {id row col} {
4840 global linespc canv canv2 canv3 fgcolor curview
4841 global cmitlisted commitinfo rowidlist parentlist
4842 global rowtextx idpos idtags idheads idotherrefs
4843 global linehtag linentag linedtag selectedline
4844 global canvxmax boldrows boldnamerows fgcolor nullid nullid2
4846 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4849 set ofill red
4851 set ofill green
4852 } else {
4854 }
4863 # triangle pointing left for left-side commits
4869 } else {
4870 # triangle pointing right for right-side commits
4876 }
4887 }
4888 }
4889 }
4896 }
4901 set font mainfont
4902 set nfont mainfont
4906 set font mainfontbold
4909 set nfont mainfontbold
4910 }
4911 }
4921 }
4925 setcanvscroll
4926 }
4927 }
4929 proc drawcmitrow {row} {
4930 global displayorder rowidlist nrows_drawn
4931 global iddrawn markingmatches
4932 global commitinfo numcommits
4933 global filehighlight fhighlights findpattern nhighlights
4934 global hlview vhighlights
4935 global highlight_related rhighlights
4942 }
4945 }
4948 }
4951 }
4956 return
4957 }
4960 }
4964 incr nrows_drawn
4965 }
4968 }
4969 }
4971 proc drawcommits {row {endrow {}}} {
4972 global numcommits iddrawn displayorder curview need_redisplay
4973 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
4976 set row 0
4977 }
4980 }
4983 }
4987 set rl1 0
4988 }
4991 set ro1 0
4992 }
4996 }
5001 }
5003 }
5004 }
5007 }
5010 clear_display
5011 drawvisible
5012 }
5014 # make the lines join to already-drawn rows either side
5018 }
5023 }
5038 # see if this is the first child of any of its parents
5041 # make this line extend up to the child
5043 }
5044 }
5045 } else {
5047 }
5048 }
5049 }
5050 }
5052 proc undolayout {row} {
5053 global uparrowlen mingaplen downarrowlen
5054 global rowidlist rowisopt rowfinal need_redisplay
5058 set r 0
5059 }
5061 incr r -1
5065 set need_redisplay 1
5066 run drawvisible
5067 }
5068 }
5070 proc drawvisible {} {
5071 global canv linespc curview vrowmod selectedline targetrow targetid
5072 global need_redisplay cscroll numcommits
5082 if {[info exists targetid]} {
5086 # Fix up the scrollregion and change the scrolling position
5087 # now that our target row has moved.
5090 setcanvscroll
5098 set need_redisplay 1
5099 }
5100 } else {
5101 unset targetid
5102 }
5103 }
5109 }
5110 if {[info exists selectedline] &&
5113 } elseif {[info exists targetid]} {
5115 }
5116 if {[info exists targetrow]} {
5119 }
5121 }
5123 }
5125 proc clear_display {} {
5126 global iddrawn linesegs need_redisplay nrows_drawn
5127 global vhighlights fhighlights nhighlights rhighlights
5128 global linehtag linentag linedtag
5130 allcanvs delete all
5131 catch {unset iddrawn}
5132 catch {unset linesegs}
5133 catch {unset linehtag}
5134 catch {unset linentag}
5135 catch {unset linedtag}
5136 catch {unset vhighlights}
5137 catch {unset fhighlights}
5138 catch {unset nhighlights}
5139 catch {unset rhighlights}
5140 set need_redisplay 0
5141 set nrows_drawn 0
5142 }
5144 proc findcrossings {id} {
5145 global rowidlist parentlist numcommits displayorder
5147 set cross {}
5148 set ccross {}
5152 }
5171 }
5172 }
5173 }
5174 }
5175 }
5177 }
5179 proc assigncolor {id} {
5180 global colormap colors nextcolor
5181 global parents children children curview
5187 } else {
5188 set kids {}
5189 }
5195 return
5196 }
5197 }
5198 set badcolors {}
5199 set origbad {}
5202 # delimiter between corner crossings and other crossings
5205 }
5209 }
5210 }
5213 }
5220 }
5225 }
5226 }
5227 }
5230 }
5231 }
5235 set nextcolor 0
5236 }
5238 }
5240 }
5242 proc bindline {t id} {
5243 global canv
5249 }
5251 proc drawtags {id x xt y1} {
5252 global idtags idheads idotherrefs mainhead
5253 global linespc lthickness
5254 global canv rowtextx curview fgcolor bgcolor
5256 set marks {}
5257 set ntags 0
5258 set nheads 0
5262 }
5266 }
5269 }
5272 }
5277 set xvals {}
5278 set wvals {}
5279 set i -1
5281 incr i
5284 } else {
5286 }
5290 }
5297 set font mainfont
5298 if {[incr ntags -1] >= 0} {
5299 # draw a tag
5305 } else {
5306 # draw a head or other ref
5307 if {[incr nheads -1] >= 0} {
5308 set col green
5310 set font mainfontbold
5311 }
5312 } else {
5313 set col "#ddddff"
5314 }
5325 }
5326 }
5333 }
5334 }
5336 }
5338 proc xcoord {i level ln} {
5339 global canvx0 xspc1 xspc2
5346 }
5348 }
5350 proc show_status {msg} {
5351 global canv fgcolor
5353 clear_display
5356 }
5358 # Don't change the text pane cursor if it is currently the hand cursor,
5359 # showing that we are over a sha1 ID link.
5360 proc settextcursor {c} {
5361 global ctext curtextcursor
5365 }
5367 }
5369 proc nowbusy {what {name {}}} {
5370 global isbusy busyname statusw
5372 if {[array names isbusy] eq {}} {
5373 . config -cursor watch
5374 settextcursor watch
5375 }
5380 }
5381 }
5383 proc notbusy {what} {
5384 global isbusy maincursor textcursor busyname statusw
5386 catch {
5391 }
5392 }
5393 if {[array names isbusy] eq {}} {
5396 }
5397 }
5399 proc findmatches {f} {
5400 global findtype findstring
5403 } else {
5408 }
5409 set matches {}
5410 set i 0
5415 }
5416 }
5418 }
5420 proc dofind {{dirn 1} {wrap 1}} {
5421 global findstring findstartline findcurline selectedline numcommits
5422 global gdttype filehighlight fh_serial find_dirn findallowwrap
5424 if {[info exists find_dirn]} {
5426 stopfinding
5427 }
5428 focus .
5430 if {![info exists selectedline]} {
5432 } else {
5434 }
5436 nowbusy finding [mc "Searching"]
5440 }
5443 run findmore
5444 }
5446 proc stopfinding {} {
5447 global find_dirn findcurline fprogcoord
5449 if {[info exists find_dirn]} {
5450 unset find_dirn
5451 unset findcurline
5452 notbusy finding
5453 set fprogcoord 0
5454 adjustprogress
5455 }
5456 }
5458 proc findmore {} {
5459 global commitdata commitinfo numcommits findpattern findloc
5460 global findstartline findcurline findallowwrap
5461 global find_dirn gdttype fhighlights fprogcoord
5462 global curview varcorder vrownum varccommits vrowmod
5464 if {![info exists find_dirn]} {
5465 return 0
5466 }
5467 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5469 set moretodo 0
5471 incr l
5473 set l 0
5474 }
5477 } else {
5480 }
5481 } else {
5484 }
5485 incr l -1
5488 } else {
5489 set lim -1
5491 }
5492 }
5495 set n 500
5496 set moretodo 1
5497 }
5500 }
5501 set found 0
5502 set domore 1
5516 }
5518 # shouldn't happen unless git log doesn't give all the commits...
5521 continue
5522 }
5525 }
5530 set found 1
5531 break
5532 }
5533 }
5535 }
5536 } else {
5544 }
5549 }
5552 break
5553 }
5556 set domore 0
5558 }
5559 }
5560 }
5561 }
5563 unset findcurline
5564 unset find_dirn
5565 notbusy finding
5566 set fprogcoord 0
5567 adjustprogress
5570 } else {
5571 bell
5572 }
5573 return 0
5574 }
5576 flushhighlights
5577 } else {
5579 }
5583 }
5585 adjustprogress
5587 }
5589 proc findselectline {l} {
5590 global findloc commentend ctext findcurline markingmatches gdttype
5592 set markingmatches 1
5596 # highlight the matches in the comments
5603 }
5604 }
5605 drawvisible
5606 }
5608 # mark the bits of a headline or author that match a find string
5609 proc markmatches {canv l str tag matches font row} {
5610 global selectedline
5628 }
5629 }
5630 }
5632 proc unmarkmatches {} {
5633 global markingmatches
5635 allcanvs delete matches
5636 set markingmatches 0
5637 stopfinding
5638 }
5640 proc selcanvline {w x y} {
5641 global canv canvy0 ctext linespc
5642 global rowtextx
5649 set l 0
5650 }
5655 }
5656 unmarkmatches
5658 }
5660 proc commit_descriptor {p} {
5661 global commitinfo
5664 }
5665 set l "..."
5668 }
5670 }
5672 # append some text to the ctext widget, and make any SHA1 ID
5673 # that we know about be a clickable link.
5674 proc appendwithlinks {text tags} {
5675 global ctext linknum curview pendinglinks
5684 incr e
5688 incr linknum
5689 }
5690 }
5692 proc setlink {id lk} {
5693 global curview ctext pendinglinks commitinterest
5700 } else {
5703 }
5704 }
5706 proc makelink {id} {
5707 global pendinglinks
5712 }
5714 }
5716 proc linkcursor {w inc} {
5717 global linkentercount curtextcursor
5721 } else {
5724 set linkentercount 0
5725 }
5726 }
5727 }
5729 proc viewnextline {dir} {
5730 global canv linespc
5738 set newtop 0
5741 }
5743 }
5745 # add a list of tag or branch names at position pos
5746 # returns the number of names inserted
5747 proc appendrefs {pos ids var} {
5751 return 0
5752 }
5755 set tags {}
5759 }
5760 }
5763 } else {
5765 set sep {}
5769 incr linknum
5774 set sep ", "
5775 }
5776 }
5779 }
5781 # called when we have finished computing the nearby tags
5782 proc dispneartags {delay} {
5783 global selectedline currentid showneartags tagphase
5786 after cancel dispnexttag
5788 after 200 dispnexttag
5789 set tagphase -1
5790 } else {
5791 after idle dispnexttag
5792 set tagphase 0
5793 }
5794 }
5796 proc dispnexttag {} {
5797 global selectedline currentid showneartags tagphase ctext
5801 0 {
5805 }
5806 }
5807 1 {
5811 }
5812 }
5813 2 {
5818 # turn "Branch" into "Branches"
5822 }
5823 }
5824 }
5825 }
5826 if {[incr tagphase] <= 2} {
5827 after idle dispnexttag
5828 }
5829 }
5831 proc make_secsel {l} {
5832 global linehtag linentag linedtag canv canv2 canv3
5847 }
5849 proc selectline {l isnew} {
5850 global canv ctext commitinfo selectedline
5851 global canvy0 linespc parents children curview
5852 global currentid sha1entry
5853 global commentend idtags linknum
5854 global mergemax numcommits pending_select
5855 global cmitmode showneartags allcommits
5856 global targetrow targetid lastscrollrows
5857 global autoselect
5859 catch {unset pending_select}
5861 normalline
5862 unsel_reflist
5863 stopfinding
5871 setcanvscroll
5872 }
5886 } else {
5890 }
5891 }
5895 } else {
5899 }
5900 }
5901 }
5904 set newtop 0
5905 }
5907 drawvisible
5908 }
5914 }
5921 }
5925 clear_ctext
5926 set linknum 0
5929 }
5939 }
5941 }
5943 set headers {}
5946 set np 0
5949 set tag mmax
5950 } else {
5952 }
5955 incr np
5956 }
5957 } else {
5960 }
5961 }
5965 }
5967 # make anything that looks like a SHA1 ID be a clickable link
5970 if {![info exists allcommits]} {
5971 getallcommits
5972 }
5983 dispneartags 1
5984 }
5989 }
5996 init_flist [mc "Comments"]
6001 } else {
6003 }
6004 }
6006 proc selfirstline {} {
6007 unmarkmatches
6008 selectline 0 1
6009 }
6011 proc sellastline {} {
6012 global numcommits
6013 unmarkmatches
6016 }
6018 proc selnextline {dir} {
6019 global selectedline
6020 focus .
6021 if {![info exists selectedline]} return
6023 unmarkmatches
6025 }
6027 proc selnextpage {dir} {
6028 global canv linespc selectedline numcommits
6032 set lpp 1
6033 }
6035 drawvisible
6036 if {![info exists selectedline]} return
6039 set l 0
6042 }
6043 unmarkmatches
6045 }
6047 proc unselectline {} {
6048 global selectedline currentid
6050 catch {unset selectedline}
6051 catch {unset currentid}
6052 allcanvs delete secsel
6053 rhighlight_none
6054 }
6056 proc reselectline {} {
6057 global selectedline
6059 if {[info exists selectedline]} {
6061 }
6062 }
6064 proc addtohistory {cmd} {
6065 global history historyindex curview
6070 return
6071 }
6075 } else {
6077 }
6078 incr historyindex
6080 .tf.bar.leftbut conf -state normal
6081 } else {
6082 .tf.bar.leftbut conf -state disabled
6083 }
6084 .tf.bar.rightbut conf -state disabled
6085 }
6087 proc godo {elt} {
6088 global curview
6094 }
6096 }
6098 proc goback {} {
6099 global history historyindex
6100 focus .
6103 incr historyindex -1
6105 .tf.bar.rightbut conf -state normal
6106 }
6108 .tf.bar.leftbut conf -state disabled
6109 }
6110 }
6112 proc goforw {} {
6113 global history historyindex
6114 focus .
6118 incr historyindex
6120 .tf.bar.leftbut conf -state normal
6121 }
6123 .tf.bar.rightbut conf -state disabled
6124 }
6125 }
6127 proc gettree {id} {
6128 global treefilelist treeidlist diffids diffmergeid treepending
6129 global nullid nullid2
6132 catch {unset diffmergeid}
6134 if {![info exists treepending]} {
6136 set cmd [list | git ls-files]
6138 set cmd [list | git ls-files --stage -t]
6139 } else {
6141 }
6143 return
6144 }
6150 }
6151 } else {
6153 }
6154 }
6156 proc gettreeline {gtf id} {
6157 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6159 set nl 0
6163 } else {
6172 }
6174 }
6176 }
6179 }
6181 unset treepending
6183 if {![info exists diffmergeid]} {
6185 }
6188 } else {
6190 }
6191 return 0
6192 }
6194 proc showfile {f} {
6195 global treefilelist treeidlist diffids nullid nullid2
6196 global ctext commentend
6201 return
6202 }
6206 return
6207 }
6208 } else {
6212 return
6213 }
6214 }
6223 settabs 0
6224 }
6226 proc getblobline {bf id} {
6227 global diffids cmitmode ctext
6231 return 0
6232 }
6234 set nl 0
6237 }
6239 # delete last newline
6242 return 0
6243 }
6246 }
6248 proc mergediff {id} {
6249 global diffmergeid mdifffd
6250 global diffids
6251 global parents
6252 global diffcontext
6253 global limitdiffs vfilelimit curview
6257 # this doesn't seem to actually affect anything...
6261 }
6264 return
6265 }
6271 }
6273 proc getmergediffline {mdf id np} {
6274 global diffmergeid ctext cflist mergemax
6275 global difffilestart mdifffd
6278 set nr 0
6283 return 0
6284 }
6286 # start of a new file
6297 # do nothing
6298 } else {
6299 # parse the prefix - one ' ', '-' or '+' for each parent
6300 set spaces {}
6301 set minuses {}
6302 set pluses {}
6303 set isbad 0
6312 } else {
6313 set isbad 1
6314 break
6315 }
6316 }
6317 set tags {}
6318 set num {}
6324 lappend tags mresult
6326 }
6329 set num "max"
6330 }
6332 }
6334 }
6335 }
6339 return 0
6340 }
6342 }
6344 proc startdiff {ids} {
6345 global treediffs diffids treepending diffmergeid nullid nullid2
6347 settabs 1
6349 catch {unset diffmergeid}
6353 if {![info exists treepending]} {
6355 }
6356 } else {
6358 }
6359 }
6361 proc path_filter {filter name} {
6366 return 1
6367 }
6368 } else {
6372 return 1
6373 }
6374 }
6375 }
6376 return 0
6377 }
6379 proc addtocflist {ids} {
6380 global treediffs
6384 }
6386 proc diffcmd {ids flags} {
6387 global nullid nullid2
6393 # comparing working directory with some specific revision
6397 } else {
6399 }
6400 } else {
6401 # comparing working directory with index
6404 lappend cmd -R
6405 }
6406 }
6410 # comparing index with specific revision
6413 } else {
6415 }
6416 } else {
6417 # comparing index with HEAD
6418 lappend cmd HEAD
6419 }
6420 } else {
6422 }
6424 }
6426 proc gettreediffs {ids} {
6427 global treediff treepending
6430 set treediff {}
6434 }
6436 proc gettreediffline {gdtf ids} {
6437 global treediff treediffs treepending diffids diffmergeid
6438 global cmitmode vfilelimit curview limitdiffs
6440 set nr 0
6447 }
6449 }
6450 }
6453 }
6456 set flist {}
6460 }
6461 }
6463 } else {
6465 }
6466 unset treepending
6470 if {![info exists diffmergeid]} {
6472 }
6473 } else {
6475 }
6476 return 0
6477 }
6479 # empty string or positive integer
6480 proc diffcontextvalidate {v} {
6482 }
6484 proc diffcontextchange {n1 n2 op} {
6485 global diffcontextstring diffcontext
6490 reselectline
6491 }
6492 }
6493 }
6495 proc changeignorespace {} {
6496 reselectline
6497 }
6499 proc getblobdiffs {ids} {
6500 global blobdifffd diffids env
6501 global diffinhdr treediffs
6502 global diffcontext
6503 global ignorespace
6504 global limitdiffs vfilelimit curview
6508 append cmd " -w"
6509 }
6512 }
6515 return
6516 }
6517 set diffinhdr 0
6521 }
6523 proc setinlist {var i val} {
6528 }
6531 } else {
6533 }
6534 }
6536 proc makediffhdr {fname ids} {
6537 global ctext curdiffstart treediffs
6542 }
6546 }
6548 proc getblobdiffline {bdf ids} {
6549 global diffids blobdifffd ctext curdiffstart
6550 global diffnexthead diffnextnote difffilestart
6551 global diffinhdr treediffs
6553 set nr 0
6558 return 0
6559 }
6561 # trim off "diff --git "
6563 set diffinhdr 1
6564 # start of a new file
6568 # If the name hasn't changed the length will be odd,
6569 # the middle char will be a space, and the two bits either
6570 # side will be a/name and b/name, or "a/name" and "b/name".
6571 # If the name has changed we'll get "rename from" and
6572 # "rename to" or "copy from" and "copy to" lines following this,
6573 # and we'll use them to get the filenames.
6574 # This complexity is necessary because spaces in the filename(s)
6575 # don't get escaped.
6581 continue
6582 }
6583 # unescape if quoted and chop off the a/ from the front
6586 } else {
6588 }
6591 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6594 set diffinhdr 0
6601 }
6605 }
6611 }
6614 # do nothing
6615 continue
6617 set diffinhdr 0
6618 continue
6619 }
6622 } else {
6629 } else {
6630 # "\ No newline at end of file",
6631 # or something else we don't recognize
6633 }
6634 }
6635 }
6639 return 0
6640 }
6642 }
6644 proc changediffdisp {} {
6645 global ctext diffelide
6649 }
6651 proc highlightfile {loc cline} {
6652 global ctext cflist cflist_top
6659 }
6661 proc prevfile {} {
6662 global difffilestart ctext cmitmode
6665 set prev 0.0
6666 set prevline 1
6671 return
6672 }
6674 incr prevline
6675 }
6677 }
6679 proc nextfile {} {
6680 global difffilestart ctext cmitmode
6684 set line 1
6686 incr line
6689 return
6690 }
6691 }
6692 }
6694 proc clear_ctext {{first 1.0}} {
6695 global ctext smarktop smarkbot
6696 global pendinglinks
6701 }
6704 }
6707 catch {unset pendinglinks}
6708 }
6709 }
6711 proc settabs {{firstab {}}} {
6712 global firsttabstop tabstop ctext have_tk85
6716 }
6717 set w [font measure textfont "0"]
6723 } else {
6725 }
6726 }
6728 proc incrsearch {name ix op} {
6729 global ctext searchstring searchdirn
6733 # no anchor set, use start of selection, or of visible area
6739 } else {
6741 }
6742 }
6747 }
6748 searchmarkvisible 1
6749 }
6750 }
6752 proc dosearch {} {
6753 global sstring ctext searchstring searchdirn
6757 set searchdirn -forwards
6763 set start "@0,0"
6764 }
6768 bell
6769 return
6770 }
6775 }
6776 }
6778 proc dosearchback {} {
6779 global sstring ctext searchstring searchdirn
6783 set searchdirn -backwards
6790 }
6794 bell
6795 return
6796 }
6801 }
6802 }
6804 proc searchmark {first last} {
6805 global ctext searchstring
6808 while {1} {
6813 }
6814 }
6816 proc searchmarkvisible {doall} {
6817 global ctext smarktop smarkbot
6822 # no overlap with previous
6826 } else {
6830 }
6834 }
6835 }
6836 }
6838 proc scrolltext {f0 f1} {
6839 global searchstring
6843 searchmarkvisible 0
6844 }
6845 }
6847 proc setcoords {} {
6848 global linespc charspc canvx0 canvy0
6849 global xspc1 xspc2 lthickness
6851 set linespc [font metrics mainfont -linespace]
6852 set charspc [font measure mainfont "m"]
6858 }
6860 proc redisplay {} {
6861 global canv
6862 global selectedline
6867 clear_display
6868 setcanvscroll
6870 drawvisible
6871 if {[info exists selectedline]} {
6874 }
6875 }
6877 proc parsefont {f n} {
6878 global fontattr
6883 set s 10
6886 }
6892 "normal" -
6894 "roman" -
6896 }
6897 }
6898 }
6900 proc fontflags {f {isbold 0}} {
6901 global fontattr
6906 }
6908 proc fontname {f} {
6909 global fontattr
6913 lappend n "bold"
6914 }
6916 lappend n "italic"
6917 }
6919 }
6921 proc incrfont {inc} {
6922 global mainfont textfont ctext canv cflist showrefstop
6923 global stopped entries fontattr
6925 unmarkmatches
6929 set s 1
6930 }
6934 set mainfont [fontname mainfont]
6938 set s 1
6939 }
6943 set textfont [fontname textfont]
6944 setcoords
6945 settabs
6946 redisplay
6947 }
6949 proc clearsha1 {} {
6950 global sha1entry sha1string
6953 }
6954 }
6956 proc sha1change {n1 n2 op} {
6957 global sha1string currentid sha1but
6960 set state disabled
6961 } else {
6962 set state normal
6963 }
6967 } else {
6969 }
6970 }
6972 proc gotocommit {} {
6973 global sha1string tagids headids curview varcid
6981 } else {
6988 return
6989 }
6991 }
6992 }
6993 }
6996 return
6997 }
7000 } else {
7002 }
7004 }
7006 proc lineenter {x y id} {
7007 global hoverx hovery hoverid hovertimer
7008 global commitinfo canv
7014 if {[info exists hovertimer]} {
7016 }
7017 set hovertimer [after 500 linehover]
7019 }
7021 proc linemotion {x y id} {
7022 global hoverx hovery hoverid hovertimer
7027 if {[info exists hovertimer]} {
7029 }
7030 set hovertimer [after 500 linehover]
7031 }
7032 }
7034 proc lineleave {id} {
7035 global hoverid hovertimer canv
7039 if {[info exists hovertimer]} {
7041 unset hovertimer
7042 }
7043 unset hoverid
7044 }
7045 }
7047 proc linehover {} {
7048 global hoverx hovery hoverid hovertimer
7049 global canv linespc lthickness
7050 global commitinfo
7063 -fill \#ffff80 -outline black -width 1 -tags hover]
7066 -font mainfont]
7068 }
7070 proc clickisonarrow {id y} {
7071 global lthickness
7080 }
7081 }
7082 return {}
7083 }
7085 proc arrowjump {id n y} {
7086 global canv
7088 # 1 <-> 2, 3 <-> 4, etc...
7098 set yfrac 0
7099 }
7101 }
7103 proc lineclick {x y id isnew} {
7104 global ctext commitinfo children canv thickerline curview
7107 unmarkmatches
7108 unselectline
7109 normalline
7111 # draw this line thicker than normal
7119 }
7123 return
7124 }
7128 }
7129 # fill the details pane with info about this line
7131 clear_ctext
7132 settabs 0
7144 set i 0
7146 incr i
7156 }
7157 }
7159 init_flist {}
7160 }
7162 proc normalline {} {
7163 global thickerline
7164 if {[info exists thickerline]} {
7166 unset thickerline
7168 }
7169 }
7171 proc selbyid {id} {
7172 global curview
7175 }
7176 }
7178 proc mstime {} {
7179 global startmstime
7180 if {![info exists startmstime]} {
7181 set startmstime [clock clicks -milliseconds]
7182 }
7184 }
7186 proc rowmenu {x y id} {
7187 global rowctxmenu selectedline rowmenuid curview
7188 global nullid nullid2 fakerowmenu mainhead
7190 stopfinding
7192 if {![info exists selectedline]
7194 set state disabled
7195 } else {
7196 set state normal
7197 }
7202 } else {
7204 }
7205 } else {
7207 }
7212 }
7214 proc diffvssel {dirn} {
7215 global rowmenuid selectedline
7217 if {![info exists selectedline]} return
7221 } else {
7224 }
7227 }
7229 proc doseldiff {oldid newid} {
7230 global ctext
7231 global commitinfo
7234 clear_ctext
7235 init_flist [mc "Top"]
7250 }
7252 proc mkpatch {} {
7253 global rowmenuid currentid commitinfo patchtop patchnum
7255 if {![info exists currentid]} return
7260 set top .patch
7289 incr patchnum
7299 }
7301 proc mkpatchrev {} {
7302 global patchtop
7308 foreach e [list fromsha1 fromhead tosha1 tohead] \
7314 }
7315 }
7317 proc mkpatchgo {} {
7318 global patchtop nullid nullid2
7324 # trim off the initial "|"
7329 }
7331 unset patchtop
7332 }
7334 proc mkpatchcan {} {
7335 global patchtop
7338 unset patchtop
7339 }
7341 proc mktag {} {
7342 global rowmenuid mktagtop commitinfo
7344 set top .maketag
7370 }
7372 proc domktag {} {
7373 global mktagtop env tagids idtags
7378 error_popup [mc "No tag name specified"]
7379 return
7380 }
7383 return
7384 }
7385 if {[catch {
7387 } err]} {
7389 return
7390 }
7396 dispneartags 0
7397 run refill_reflist
7398 }
7400 proc redrawtags {id} {
7401 global canv linehtag idpos currentid curview
7402 global canvxmax iddrawn
7415 setcanvscroll
7416 }
7419 }
7420 }
7422 proc mktagcan {} {
7423 global mktagtop
7426 unset mktagtop
7427 }
7429 proc mktaggo {} {
7430 domktag
7431 mktagcan
7432 }
7434 proc writecommit {} {
7435 global rowmenuid wrcomtop commitinfo wrcomcmd
7437 set top .writecommit
7467 }
7469 proc wrcomgo {} {
7470 global wrcomtop
7477 }
7479 unset wrcomtop
7480 }
7482 proc wrcomcan {} {
7483 global wrcomtop
7486 unset wrcomtop
7487 }
7489 proc mkbranch {} {
7490 global rowmenuid mkbrtop
7492 set top .makebranch
7513 }
7515 proc mkbrgo {top} {
7516 global headids idheads
7521 error_popup [mc "Please specify a name for the new branch"]
7522 return
7523 }
7525 nowbusy newbranch
7526 update
7527 if {[catch {
7529 } err]} {
7530 notbusy newbranch
7532 } else {
7536 notbusy newbranch
7538 dispneartags 0
7539 run refill_reflist
7540 }
7541 }
7543 proc cherrypick {} {
7544 global rowmenuid curview
7545 global mainhead mainheadid
7547 set oldhead [exec git rev-parse HEAD]
7550 set ok [confirm_popup [mc "Commit %s is already\
7551 included in branch %s -- really re-apply it?" \
7554 }
7555 nowbusy cherrypick [mc "Cherry-picking"]
7556 update
7557 # Unfortunately git-cherry-pick writes stuff to stderr even when
7558 # no error occurs, and exec takes that as an indication of error...
7560 notbusy cherrypick
7562 return
7563 }
7564 set newhead [exec git rev-parse HEAD]
7566 notbusy cherrypick
7567 error_popup [mc "No changes committed"]
7568 return
7569 }
7577 }
7581 }
7582 notbusy cherrypick
7583 }
7585 proc resethead {} {
7586 global mainhead rowmenuid confirm_ok resettype
7588 set confirm_ok 0
7589 set w ".confirmreset"
7595 -justify center -aspect 1000
7600 set resettype mixed
7602 -text [mc "Soft: Leave working tree and index untouched"]
7605 -text [mc "Mixed: Leave working tree untouched, reset index"]
7608 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7618 if {[catch {set fd [open \
7621 } else {
7622 dohidelocalchanges
7624 nowbusy reset [mc "Resetting"]
7626 }
7627 }
7629 proc readresetstat {fd} {
7630 global mainhead mainheadid showlocalchanges rprogcoord
7635 adjustprogress
7636 }
7637 return 1
7638 }
7639 set rprogcoord 0
7640 adjustprogress
7641 notbusy reset
7644 }
7646 set newhead [exec git rev-parse HEAD]
7653 }
7655 doshowlocalchanges
7656 }
7657 return 0
7658 }
7660 # context menu for a head
7661 proc headmenu {x y id head} {
7662 global headmenuid headmenuhead headctxmenu mainhead
7664 stopfinding
7667 set state normal
7669 set state disabled
7670 }
7674 }
7676 proc cobranch {} {
7677 global headmenuid headmenuhead mainhead headids
7678 global showlocalchanges mainheadid
7680 # check the tree is clean first??
7681 nowbusy checkout [mc "Checking out"]
7682 update
7683 dohidelocalchanges
7684 if {[catch {
7686 } err]} {
7687 notbusy checkout
7690 dodiffindex
7691 }
7692 } else {
7694 }
7695 }
7697 proc readcheckoutstat {fd newhead newheadid} {
7698 global mainhead mainheadid headids showlocalchanges progresscoords
7703 adjustprogress
7704 }
7705 return 1
7706 }
7707 set progresscoords {0 0}
7708 adjustprogress
7709 notbusy checkout
7712 }
7718 }
7722 dodiffindex
7723 }
7724 }
7726 proc rmbranch {} {
7727 global headmenuid headmenuhead mainhead
7728 global idheads
7732 # this check shouldn't be needed any more...
7734 error_popup [mc "Cannot delete the currently checked-out branch"]
7735 return
7736 }
7739 # the stuff on this branch isn't on any other branch
7740 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7742 }
7743 nowbusy rmbranch
7744 update
7746 notbusy rmbranch
7748 return
7749 }
7753 notbusy rmbranch
7754 dispneartags 0
7755 run refill_reflist
7756 }
7758 # Display a list of tags and heads
7759 proc showrefs {} {
7760 global showrefstop bgcolor fgcolor selectbgcolor
7761 global bglist fglist reflistfilter reflist maincursor
7763 set top .showrefs
7767 refill_reflist
7768 return
7769 }
7776 -spacing1 1 -spacing3 1 -state disabled
7787 set reflistfilter "*"
7788 trace add variable reflistfilter write reflistfilter_change
7799 set reflist {}
7800 refill_reflist
7801 }
7803 proc sel_reflist {w x y} {
7804 global showrefstop reflist headids tagids otherrefids
7814 }
7816 }
7818 proc unsel_reflist {} {
7819 global showrefstop
7823 }
7825 proc reflistfilter_change {n1 n2 op} {
7826 global reflistfilter
7828 after cancel refill_reflist
7829 after 200 refill_reflist
7830 }
7832 proc refill_reflist {} {
7833 global reflist reflistfilter showrefstop headids tagids otherrefids
7834 global curview commitinterest
7837 set refs {}
7838 foreach n [array names headids] {
7842 } else {
7844 }
7845 }
7846 }
7847 foreach n [array names tagids] {
7851 } else {
7853 }
7854 }
7855 }
7856 foreach n [array names otherrefids] {
7860 } else {
7862 }
7863 }
7864 }
7872 set i 0
7873 set j 0
7882 }
7883 } else {
7884 set cmp -1
7885 }
7886 } else {
7887 set cmp 1
7888 }
7890 -1 {
7892 incr i
7893 }
7894 0 {
7895 incr i
7896 incr j
7897 }
7898 1 {
7903 incr j
7904 }
7905 }
7906 }
7908 # delete last newline
7911 }
7913 # Stuff for finding nearby tags
7914 proc getallcommits {} {
7915 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7916 global idheads idtags idotherrefs allparents tagobjid
7918 if {![info exists allcommits]} {
7919 set nextarc 0
7920 set allcommits 0
7921 set seeds {}
7922 set allcwait 0
7923 set cachedarcs 0
7924 set allccache [file join [gitdir] "gitk.cache"]
7925 if {![catch {
7927 set allcwait 1
7929 }]} return
7930 }
7933 return
7934 }
7935 set cmd [list | git rev-list --parents]
7938 set ids "--all"
7939 } else {
7940 set refs [concat [array names idheads] [array names idtags] \
7941 [array names idotherrefs]]
7942 set ids {}
7943 set tagobjs {}
7944 foreach name [array names tagobjid] {
7946 }
7951 }
7952 }
7956 }
7957 }
7958 }
7962 incr allcommits
7963 nowbusy allcommits
7965 } else {
7966 dispneartags 0
7967 }
7968 }
7970 # Since most commits have 1 parent and 1 child, we group strings of
7971 # such commits into "arcs" joining branch/merge points (BMPs), which
7972 # are commits that either don't have 1 parent or don't have 1 child.
7973 #
7974 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
7975 # arcout(id) - outgoing arcs for BMP
7976 # arcids(a) - list of IDs on arc including end but not start
7977 # arcstart(a) - BMP ID at start of arc
7978 # arcend(a) - BMP ID at end of arc
7979 # growing(a) - arc a is still growing
7980 # arctags(a) - IDs out of arcids (excluding end) that have tags
7981 # archeads(a) - IDs out of arcids (excluding end) that have heads
7982 # The start of an arc is at the descendent end, so "incoming" means
7983 # coming from descendents, and "outgoing" means going towards ancestors.
7985 proc getallclines {fd} {
7986 global allparents allchildren idtags idheads nextarc
7987 global arcnos arcids arctags arcout arcend arcstart archeads growing
7988 global seeds allcommits cachedarcs allcupdate
7990 set nid 0
7994 # seen it already
7995 continue
7996 }
7997 set cachedarcs 0
8004 } else {
8010 }
8013 }
8015 # seen parent already
8018 }
8022 }
8025 continue
8026 }
8027 }
8032 }
8034 set ao {}
8037 set a [incr nextarc]
8046 # seen it already, may need to make a new branch
8049 }
8053 }
8055 }
8057 }
8059 global cached_dheads cached_dtags cached_atags
8060 catch {unset cached_dheads}
8061 catch {unset cached_dtags}
8062 catch {unset cached_atags}
8063 }
8066 }
8067 set cacheok 1
8068 if {[catch {
8071 } err]} {
8072 # got an error reading the list of commits
8073 # if we were updating, try rereading the whole thing again
8075 incr allcommits -1
8077 return
8078 }
8079 error_popup "[mc "Error reading commit topology information;\
8080 branch and preceding/following tag information\
8082 set cacheok 0
8083 }
8084 if {[incr allcommits -1] == 0} {
8085 notbusy allcommits
8087 run savecache
8088 }
8089 }
8090 dispneartags 0
8091 return 0
8092 }
8094 proc recalcarc {a} {
8095 global arctags archeads arcids idtags idheads
8097 set at {}
8098 set ah {}
8102 }
8105 }
8106 }
8109 }
8111 proc splitarc {p} {
8112 global arcnos arcids nextarc arctags archeads idtags idheads
8113 global arcstart arcend arcout allparents growing
8118 return
8119 }
8124 return
8125 }
8126 set na [incr nextarc]
8129 } else {
8133 }
8143 }
8148 } else {
8151 }
8152 }
8154 # reconstruct tags and heads lists
8158 } else {
8161 }
8162 }
8164 # Update things for a new commit added that is a child of one
8165 # existing commit. Used when cherry-picking.
8166 proc addnewchild {id p} {
8167 global allparents allchildren idtags nextarc
8168 global arcnos arcids arctags arcout arcend arcstart archeads growing
8169 global seeds allcommits
8177 set a [incr nextarc]
8185 }
8188 }
8190 # This implements a cache for the topology information.
8191 # The cache saves, for each arc, the start and end of the arc,
8192 # the ids on the arc, and the outgoing arcs from the end.
8193 proc readcache {f} {
8194 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8195 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8196 global allcwait
8202 }
8203 if {[catch {
8205 # finish reading the cache and setting up arctags, etc.
8209 foreach id [array names idtags] {
8215 }
8216 }
8217 }
8218 foreach id [array names idheads] {
8224 }
8225 }
8226 }
8230 }
8231 }
8232 set allcwait 0
8233 } else {
8243 }
8247 } else {
8251 }
8252 }
8258 }
8261 }
8264 }
8266 }
8267 } err]} {
8269 return 0
8270 }
8272 getallcommits
8273 }
8275 }
8277 proc getcache {f} {
8278 global nextarc cachedarcs possible_seeds
8280 if {[catch {
8283 # make sure it's an integer
8286 set nextarc 0
8287 set possible_seeds {}
8289 } err]} {
8291 }
8292 return 0
8293 }
8295 proc dropcache {err} {
8296 global allcwait nextarc cachedarcs seeds
8299 foreach v {arcnos arcout arcids arcstart arcend growing \
8300 arctags archeads allparents allchildren} {
8303 }
8304 set allcwait 0
8305 set nextarc 0
8306 set cachedarcs 0
8307 set seeds {}
8308 getallcommits
8309 }
8311 proc writecache {f} {
8312 global cachearc cachedarcs allccache
8313 global arcstart arcend arcnos arcids arcout
8319 }
8320 if {[catch {
8324 } else {
8326 }
8327 }
8328 } err]} {
8332 return 0
8333 }
8338 return 0
8339 }
8340 return 1
8341 }
8343 proc savecache {} {
8344 global nextarc cachedarcs cachearc allccache
8347 set cachearc 0
8349 catch {
8353 }
8354 }
8356 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8357 # or 0 if neither is true.
8358 proc anc_or_desc {a b} {
8359 global arcout arcstart arcend arcnos cached_isanc
8362 # Both are on the same arc(s); either both are the same BMP,
8363 # or if one is not a BMP, the other is also not a BMP or is
8364 # the BMP at end of the arc (and it only has 1 incoming arc).
8365 # Or both can be BMPs with no incoming arcs.
8367 return 0
8368 }
8374 return 1
8375 } else {
8376 return -1
8377 }
8378 }
8384 } else {
8385 set aend {}
8386 }
8388 } else {
8390 }
8395 } else {
8396 set bend {}
8397 }
8399 } else {
8401 }
8403 return 1
8404 }
8406 return -1
8407 }
8410 return 1
8411 }
8412 }
8415 return -1
8416 }
8418 return 0
8419 }
8420 }
8428 continue
8429 }
8435 return 1
8439 return -1
8440 }
8446 }
8447 }
8448 }
8451 return 0
8452 }
8456 # and returns 0 if so and 1 if not.
8457 # If we subsequently discover a tag on such a growing tip, and that
8460 # isn't a good choice to display as a descendent tag of
8464 #
8465 proc is_certain {desc anc} {
8466 global arcnos arcout arcstart arcend growing problems
8468 set certain {}
8470 # tags on the same arc are certain
8472 return 1
8473 }
8478 }
8479 }
8482 } else {
8485 }
8487 return 1
8488 }
8491 set nnh 1
8492 set ngrowanc 0
8496 incr nnh -1
8497 }
8503 incr ngrowanc
8504 }
8505 } else {
8512 incr nnh -1
8513 }
8515 incr ngrowanc -1
8516 }
8526 incr nnh -1
8527 }
8529 incr ngrowanc -1
8530 }
8532 }
8533 }
8534 }
8535 }
8536 }
8537 }
8541 } else {
8544 incr nnh
8545 }
8546 }
8547 }
8548 }
8549 foreach x [array names growanc] {
8551 return 0
8552 }
8553 return 0
8554 }
8555 return 1
8556 }
8558 proc validate_arctags {a} {
8559 global arctags idtags
8561 set i -1
8564 incr i
8567 incr i -1
8568 }
8569 }
8571 }
8573 proc validate_archeads {a} {
8574 global archeads idheads
8576 set i -1
8579 incr i
8582 incr i -1
8583 }
8584 }
8586 }
8588 # Return the list of IDs that have tags that are descendents of id,
8589 # ignoring IDs that are descendents of IDs already reported.
8590 proc desctags {id} {
8591 global arcnos arcstart arcids arctags idtags allparents
8592 global growing cached_dtags
8595 return {}
8596 }
8597 set t1 [clock clicks -milliseconds]
8600 # part-way along an arc; check that arc first
8605 set tid {}
8610 }
8613 }
8614 }
8618 }
8619 }
8622 }
8627 set nc 1
8633 incr nc -1
8634 }
8635 # ignore tags on starting node
8639 set ta 1
8642 set ta 1
8643 }
8644 }
8651 }
8652 }
8661 }
8664 }
8666 incr nc -1
8667 }
8669 }
8670 }
8671 }
8676 incr nc
8677 }
8678 }
8679 }
8680 }
8681 set tags {}
8682 foreach id [array names tagloc] {
8687 }
8688 }
8689 }
8690 }
8691 set t2 [clock clicks -milliseconds]
8694 # remove tags that are descendents of other tags
8702 incr j -1
8703 incr i -1
8706 incr i -1
8707 break
8708 }
8709 }
8710 }
8712 if {[array names growing] ne {}} {
8713 # graph isn't finished, need to check if any tag could get
8714 # eclipsed by another tag coming later. Simply ignore any
8715 # tags that could later get eclipsed.
8716 set ctags {}
8720 }
8721 }
8724 } else {
8726 }
8727 } else {
8729 }
8730 set t3 [clock clicks -milliseconds]
8734 }
8736 }
8738 proc anctags {id} {
8739 global arcnos arcids arcout arcend arctags idtags allparents
8740 global growing cached_atags
8743 return {}
8744 }
8745 set t1 [clock clicks -milliseconds]
8748 # part-way along an arc; check that arc first
8757 }
8758 }
8759 }
8761 return {}
8762 }
8766 }
8767 }
8770 }
8775 set taglist {}
8776 set nc 1
8782 incr nc -1
8783 }
8784 # ignore tags on starting node
8788 set td 1
8791 set td 1
8792 }
8793 }
8799 }
8800 }
8812 }
8813 }
8816 }
8818 incr nc -1
8819 }
8821 }
8822 }
8823 }
8828 incr nc
8829 }
8830 }
8831 }
8832 }
8833 set t2 [clock clicks -milliseconds]
8835 set tags {}
8836 foreach id [array names tagloc] {
8841 }
8842 }
8843 }
8844 }
8846 # remove tags that are ancestors of other tags
8854 incr j -1
8855 incr i -1
8858 incr i -1
8859 break
8860 }
8861 }
8862 }
8864 if {[array names growing] ne {}} {
8865 # graph isn't finished, need to check if any tag could get
8866 # eclipsed by another tag coming later. Simply ignore any
8867 # tags that could later get eclipsed.
8868 set ctags {}
8872 }
8873 }
8876 } else {
8878 }
8879 } else {
8881 }
8882 set t3 [clock clicks -milliseconds]
8886 }
8888 }
8890 # Return the list of IDs that have heads that are descendents of id,
8891 # including id itself if it has a head.
8892 proc descheads {id} {
8893 global arcnos arcstart arcids archeads idheads cached_dheads
8894 global allparents
8897 return {}
8898 }
8899 set aret {}
8901 # part-way along an arc; check it first
8910 }
8911 }
8913 }
8917 set ret {}
8922 } else {
8925 }
8931 }
8932 }
8937 }
8938 }
8939 }
8940 }
8944 }
8946 proc addedtag {id} {
8947 global arcnos arcout cached_dtags cached_atags
8952 }
8953 catch {unset cached_dtags}
8954 catch {unset cached_atags}
8955 }
8957 proc addedhead {hid head} {
8958 global arcnos arcout cached_dheads
8963 }
8964 catch {unset cached_dheads}
8965 }
8967 proc removedhead {hid head} {
8968 global cached_dheads
8970 catch {unset cached_dheads}
8971 }
8973 proc movedhead {hid head} {
8974 global arcnos arcout cached_dheads
8979 }
8980 catch {unset cached_dheads}
8981 }
8983 proc changedrefs {} {
8984 global cached_dheads cached_dtags cached_atags
8985 global arctags archeads arcnos arcout idheads idtags
8987 foreach id [concat [array names idheads] [array names idtags]] {
8993 }
8994 }
8995 }
8996 catch {unset cached_dtags}
8997 catch {unset cached_atags}
8998 catch {unset cached_dheads}
8999 }
9001 proc rereadrefs {} {
9002 global idtags idheads idotherrefs mainheadid
9004 set refids [concat [array names idtags] \
9005 [array names idheads] [array names idotherrefs]]
9009 }
9010 }
9012 readrefs
9013 changedrefs
9015 [array names idheads] [array names idotherrefs]]]
9022 }
9023 }
9024 run refill_reflist
9025 }
9027 proc listrefs {id} {
9028 global idtags idheads idotherrefs
9030 set x {}
9033 }
9034 set y {}
9037 }
9038 set z {}
9041 }
9043 }
9045 proc showtag {tag isnew} {
9046 global ctext tagcontents tagids linknum tagobjid
9050 }
9052 clear_ctext
9053 settabs 0
9054 set linknum 0
9056 catch {
9058 }
9059 }
9062 } else {
9064 }
9067 init_flist {}
9068 }
9070 proc doquit {} {
9071 global stopped
9072 global gitktmpdir
9074 set stopped 100
9075 savestuff .
9076 destroy .
9078 if {[info exists gitktmpdir]} {
9080 }
9081 }
9083 proc mkfontdisp {font top which} {
9092 }
9094 proc choosefont {font which} {
9095 global fontparam fontlist fonttop fontattr
9103 set top .gitkfont
9106 font create sample
9112 set fontlist [lsort [font families]]
9123 -textvariable fontparam(size) \
9124 -validatecommand {string is integer -strict %s}
9126 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9127 -variable fontparam(weight) -onvalue bold -offvalue normal
9129 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9130 -variable fontparam(slant) -onvalue italic -offvalue roman
9134 -background white
9136 -fill black -tags text
9146 trace add variable fontparam write chg_fontparam
9147 } else {
9150 }
9155 }
9156 }
9158 proc centertext {w} {
9160 }
9162 proc fontok {} {
9163 global fontparam fontpref prefstop
9169 }
9172 }
9176 fontcan
9177 }
9179 proc fontcan {} {
9180 global fonttop fontparam
9182 if {[info exists fonttop]} {
9184 catch {font delete sample}
9185 unset fonttop
9186 unset fontparam
9187 }
9188 }
9190 proc selfontfam {} {
9191 global fonttop fontparam
9196 }
9197 }
9199 proc chg_fontparam {v sub op} {
9200 global fontparam
9203 }
9205 proc doprefs {} {
9206 global maxwidth maxgraphpct
9207 global oldprefs prefstop showneartags showlocalchanges
9208 global bgcolor fgcolor ctext diffcolors selectbgcolor
9209 global tabstop limitdiffs autoselect extdifftool
9211 set top .gitkprefs
9215 return
9216 }
9217 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9218 limitdiffs tabstop} {
9220 }
9227 -font optionfont
9231 -font optionfont
9264 -padx 10
9266 -command choose_extdiff
9293 "diff hunk header" \
9315 }
9317 proc choose_extdiff {} {
9318 global extdifftool
9320 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9323 }
9324 }
9326 proc choosecolor {v vi w x cmd} {
9335 }
9337 proc setselbg {c} {
9338 global bglist cflist
9341 }
9345 }
9347 proc setbg {c} {
9348 global bglist
9352 }
9353 }
9355 proc setfg {c} {
9356 global fglist canv
9360 }
9363 }
9365 proc prefscan {} {
9366 global oldprefs prefstop
9368 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9369 limitdiffs tabstop} {
9372 }
9374 unset prefstop
9375 fontcan
9376 }
9378 proc prefsok {} {
9379 global maxwidth maxgraphpct
9380 global oldprefs prefstop showneartags showlocalchanges
9381 global fontpref mainfont textfont uifont
9382 global limitdiffs treediffs
9385 unset prefstop
9386 fontcan
9387 set fontchanged 0
9391 eval font configure mainfont [fontflags mainfont]
9392 eval font configure mainfontbold [fontflags mainfont 1]
9393 setcoords
9394 set fontchanged 1
9395 }
9399 eval font configure textfont [fontflags textfont]
9400 eval font configure textfontbold [fontflags textfont 1]
9401 }
9405 eval font configure uifont [fontflags uifont]
9406 }
9407 settabs
9410 doshowlocalchanges
9411 } else {
9412 dohidelocalchanges
9413 }
9414 }
9416 # treediffs elements are limited by path
9417 catch {unset treediffs}
9418 }
9421 redisplay
9424 reselectline
9425 }
9426 }
9428 proc formatdate {d} {
9429 global datetimeformat
9432 }
9434 }
9436 # This list of encoding names and aliases is distilled from
9437 # http://www.iana.org/assignments/character-sets.
9438 # Not all of them are supported by Tcl.
9439 set encoding_aliases {
9440 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9441 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9442 { ISO-10646-UTF-1 csISO10646UTF1 }
9443 { ISO_646.basic:1983 ref csISO646basic1983 }
9444 { INVARIANT csINVARIANT }
9445 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9446 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9447 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9448 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9449 { NATS-DANO iso-ir-9-1 csNATSDANO }
9450 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9451 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9452 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9453 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9454 { ISO-2022-KR csISO2022KR }
9455 { EUC-KR csEUCKR }
9456 { ISO-2022-JP csISO2022JP }
9457 { ISO-2022-JP-2 csISO2022JP2 }
9458 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9459 csISO13JISC6220jp }
9460 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9461 { IT iso-ir-15 ISO646-IT csISO15Italian }
9462 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9463 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9464 { greek7-old iso-ir-18 csISO18Greek7Old }
9465 { latin-greek iso-ir-19 csISO19LatinGreek }
9466 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9467 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9468 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9469 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9470 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9471 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9472 { INIS iso-ir-49 csISO49INIS }
9473 { INIS-8 iso-ir-50 csISO50INIS8 }
9474 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9475 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9476 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9477 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9478 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9479 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9480 csISO60Norwegian1 }
9481 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9482 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9483 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9484 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9485 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9486 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9487 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9488 { greek7 iso-ir-88 csISO88Greek7 }
9489 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9490 { iso-ir-90 csISO90 }
9491 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9492 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9493 csISO92JISC62991984b }
9494 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9495 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9496 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9497 csISO95JIS62291984handadd }
9498 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9499 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9500 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9501 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9502 CP819 csISOLatin1 }
9503 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9504 { T.61-7bit iso-ir-102 csISO102T617bit }
9505 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9506 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9507 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9508 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9509 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9510 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9511 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9512 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9513 arabic csISOLatinArabic }
9514 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9515 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9516 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9517 greek greek8 csISOLatinGreek }
9518 { T.101-G2 iso-ir-128 csISO128T101G2 }
9519 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9520 csISOLatinHebrew }
9521 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9522 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9523 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9524 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9525 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9526 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9527 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9528 csISOLatinCyrillic }
9529 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9530 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9531 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9532 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9533 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9534 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9535 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9536 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9537 { ISO_10367-box iso-ir-155 csISO10367Box }
9538 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9539 { latin-lap lap iso-ir-158 csISO158Lap }
9540 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9541 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9542 { us-dk csUSDK }
9543 { dk-us csDKUS }
9544 { JIS_X0201 X0201 csHalfWidthKatakana }
9545 { KSC5636 ISO646-KR csKSC5636 }
9546 { ISO-10646-UCS-2 csUnicode }
9547 { ISO-10646-UCS-4 csUCS4 }
9548 { DEC-MCS dec csDECMCS }
9549 { hp-roman8 roman8 r8 csHPRoman8 }
9550 { macintosh mac csMacintosh }
9551 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9552 csIBM037 }
9553 { IBM038 EBCDIC-INT cp038 csIBM038 }
9554 { IBM273 CP273 csIBM273 }
9555 { IBM274 EBCDIC-BE CP274 csIBM274 }
9556 { IBM275 EBCDIC-BR cp275 csIBM275 }
9557 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9558 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9559 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9560 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9561 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9562 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9563 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9564 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9565 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9566 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9567 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9568 { IBM437 cp437 437 csPC8CodePage437 }
9569 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9570 { IBM775 cp775 csPC775Baltic }
9571 { IBM850 cp850 850 csPC850Multilingual }
9572 { IBM851 cp851 851 csIBM851 }
9573 { IBM852 cp852 852 csPCp852 }
9574 { IBM855 cp855 855 csIBM855 }
9575 { IBM857 cp857 857 csIBM857 }
9576 { IBM860 cp860 860 csIBM860 }
9577 { IBM861 cp861 861 cp-is csIBM861 }
9578 { IBM862 cp862 862 csPC862LatinHebrew }
9579 { IBM863 cp863 863 csIBM863 }
9580 { IBM864 cp864 csIBM864 }
9581 { IBM865 cp865 865 csIBM865 }
9582 { IBM866 cp866 866 csIBM866 }
9583 { IBM868 CP868 cp-ar csIBM868 }
9584 { IBM869 cp869 869 cp-gr csIBM869 }
9585 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9586 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9587 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9588 { IBM891 cp891 csIBM891 }
9589 { IBM903 cp903 csIBM903 }
9590 { IBM904 cp904 904 csIBBM904 }
9591 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9592 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9593 { IBM1026 CP1026 csIBM1026 }
9594 { EBCDIC-AT-DE csIBMEBCDICATDE }
9595 { EBCDIC-AT-DE-A csEBCDICATDEA }
9596 { EBCDIC-CA-FR csEBCDICCAFR }
9597 { EBCDIC-DK-NO csEBCDICDKNO }
9598 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9599 { EBCDIC-FI-SE csEBCDICFISE }
9600 { EBCDIC-FI-SE-A csEBCDICFISEA }
9601 { EBCDIC-FR csEBCDICFR }
9602 { EBCDIC-IT csEBCDICIT }
9603 { EBCDIC-PT csEBCDICPT }
9604 { EBCDIC-ES csEBCDICES }
9605 { EBCDIC-ES-A csEBCDICESA }
9606 { EBCDIC-ES-S csEBCDICESS }
9607 { EBCDIC-UK csEBCDICUK }
9608 { EBCDIC-US csEBCDICUS }
9609 { UNKNOWN-8BIT csUnknown8BiT }
9610 { MNEMONIC csMnemonic }
9611 { MNEM csMnem }
9612 { VISCII csVISCII }
9613 { VIQR csVIQR }
9614 { KOI8-R csKOI8R }
9615 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9616 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9617 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9618 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9619 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9620 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9621 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9622 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9623 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9624 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9625 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9626 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9627 { IBM1047 IBM-1047 }
9628 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9629 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9630 { UNICODE-1-1 csUnicode11 }
9631 { CESU-8 csCESU-8 }
9632 { BOCU-1 csBOCU-1 }
9633 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9634 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9635 l8 }
9636 { ISO-8859-15 ISO_8859-15 Latin-9 }
9637 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9638 { GBK CP936 MS936 windows-936 }
9639 { JIS_Encoding csJISEncoding }
9640 { Shift_JIS MS_Kanji csShiftJIS }
9641 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9642 EUC-JP }
9643 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9644 { ISO-10646-UCS-Basic csUnicodeASCII }
9645 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9646 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9647 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9648 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9649 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9650 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9651 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9652 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9653 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9654 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9655 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9656 { Ventura-US csVenturaUS }
9657 { Ventura-International csVenturaInternational }
9658 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9659 { PC8-Turkish csPC8Turkish }
9660 { IBM-Symbols csIBMSymbols }
9661 { IBM-Thai csIBMThai }
9662 { HP-Legal csHPLegal }
9663 { HP-Pi-font csHPPiFont }
9664 { HP-Math8 csHPMath8 }
9665 { Adobe-Symbol-Encoding csHPPSMath }
9666 { HP-DeskTop csHPDesktop }
9667 { Ventura-Math csVenturaMath }
9668 { Microsoft-Publishing csMicrosoftPublishing }
9669 { Windows-31J csWindows31J }
9670 { GB2312 csGB2312 }
9671 { Big5 csBig5 }
9672 }
9674 proc tcl_encoding {enc} {
9675 global encoding_aliases
9676 set names [encoding names]
9681 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9684 }
9685 }
9690 # look through the aliases for one that tcl knows about
9696 }
9697 }
9699 }
9700 break
9701 }
9702 }
9705 }
9706 return {}
9707 }
9709 # First check that Tcl/Tk is recent enough
9710 if {[catch {package require Tk 8.4} err]} {
9711 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9712 Gitk requires at least Tcl/Tk 8.4."]
9713 exit 1
9714 }
9716 # defaults...
9717 set wrcomcmd "git diff-tree --stdin -p --pretty"
9719 set gitencoding {}
9720 catch {
9721 set gitencoding [exec git config --get i18n.commitencoding]
9722 }
9724 set gitencoding "utf-8"
9725 }
9729 }
9731 set mainfont {Helvetica 9}
9732 set textfont {Courier 9}
9733 set uifont {Helvetica 9 bold}
9734 set tabstop 8
9735 set findmergefiles 0
9736 set maxgraphpct 50
9737 set maxwidth 16
9738 set revlistorder 0
9739 set fastdate 0
9740 set uparrowlen 5
9741 set downarrowlen 5
9742 set mingaplen 100
9743 set cmitmode "patch"
9744 set wrapcomment "none"
9745 set showneartags 1
9746 set maxrefs 20
9747 set maxlinelen 200
9748 set showlocalchanges 1
9749 set limitdiffs 1
9750 set datetimeformat "%Y-%m-%d %H:%M:%S"
9751 set autoselect 1
9753 set extdifftool "meld"
9755 set colors {green red blue magenta darkgrey brown orange}
9756 set bgcolor white
9757 set fgcolor black
9758 set diffcolors {red "#00a000" blue}
9759 set diffcontext 3
9760 set ignorespace 0
9761 set selectbgcolor gray85
9763 ## For msgcat loading, first locate the installation location.
9764 if { [info exists ::env(GITK_MSGSDIR)] } {
9765 ## Msgsdir was manually set in the environment.
9766 set gitk_msgsdir $::env(GITK_MSGSDIR)
9767 } else {
9768 ## Let's guess the prefix from argv0.
9772 unset gitk_prefix
9773 }
9775 ## Internationalization (i18n) through msgcat and gettext. See
9776 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9777 package require msgcat
9778 namespace import ::msgcat::mc
9779 ## And eventually load the actual message catalog
9782 catch {source ~/.gitk}
9784 font create optionfont -family sans-serif -size -12
9787 eval font create mainfont [fontflags mainfont]
9788 eval font create mainfontbold [fontflags mainfont 1]
9791 eval font create textfont [fontflags textfont]
9792 eval font create textfontbold [fontflags textfont 1]
9795 eval font create uifont [fontflags uifont]
9797 setoptions
9799 # check that we can find a .git directory somewhere...
9800 if {[catch {set gitdir [gitdir]}]} {
9801 show_error {} . [mc "Cannot find a git repository here."]
9802 exit 1
9803 }
9806 exit 1
9807 }
9809 set revtreeargs {}
9810 set cmdline_files {}
9811 set i 0
9812 set revtreeargscmd {}
9815 "" { }
9816 "--" {
9818 break
9819 }
9820 "--argscmd=*" {
9822 }
9823 default {
9825 }
9826 }
9827 incr i
9828 }
9831 # no -- on command line, but some arguments (other than --argscmd)
9832 if {[catch {
9837 # Unfortunately git rev-parse doesn't produce an error when
9838 # something is both a revision and a filename. To be consistent
9839 # with git log and git rev-list, check revtreeargs for filenames.
9842 show_error {} . [mc "Ambiguous argument '%s': both revision\
9844 exit 1
9845 }
9846 }
9847 } err]} {
9849 # so look for "fatal:".
9853 }
9855 exit 1
9856 }
9857 }
9859 set nullid "0000000000000000000000000000000000000000"
9860 set nullid2 "0000000000000000000000000000000000000001"
9861 set nullfile "/dev/null"
9865 set runq {}
9866 set history {}
9867 set historyindex 0
9868 set fh_serial 0
9869 set nhl_names {}
9870 set highlight_paths {}
9871 set findpattern {}
9872 set searchdirn -forwards
9873 set boldrows {}
9874 set boldnamerows {}
9875 set diffelide {0 0}
9876 set markingmatches 0
9877 set linkentercount 0
9878 set need_redisplay 0
9879 set nrows_drawn 0
9880 set firsttabstop 0
9882 set nextviewnum 1
9883 set curview 0
9884 set selectedview 0
9885 set selectedhlview [mc "None"]
9886 set highlight_related [mc "None"]
9887 set highlight_files {}
9888 set viewfiles(0) {}
9889 set viewperm(0) 0
9890 set viewargs(0) {}
9891 set viewargscmd(0) {}
9893 set numcommits 0
9894 set loginstance 0
9895 set cmdlineok 0
9896 set stopped 0
9897 set stuffsaved 0
9898 set patchnum 0
9899 set lserial 0
9900 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9901 setcoords
9902 makewindow
9903 # wait for the window to become visible
9904 tkwait visibility .
9906 readrefs
9909 # create a view for the files/dirs specified on the command line
9910 set curview 1
9911 set selectedview 1
9912 set nextviewnum 2
9913 set viewname(1) [mc "Command line"]
9917 set viewperm(1) 0
9918 set vdatemode(1) 0
9919 addviewmenu 1
9920 .bar.view entryconf [mc "Edit view..."] -state normal
9921 .bar.view entryconf [mc "Delete view"] -state normal
9922 }
9924 if {[info exists permviews]} {
9927 incr nextviewnum
9934 }
9935 }
9936 getcommits