| blob | edef9e224eaca274efdc6904c577d9e0c6a0b2fe |
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 currunq
30 after idle dorunq
31 }
34 }
38 }
41 global runq currunq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq currunq
73 unset currunq
78 # script returns 1 if it wants to be readded
79 # file readers return 2 if they could do more straight away
83 }
86 }
89 }
91 after idle dorunq
92 }
93 }
96 global commfd leftover loginstance
102 }
105 global nr_unmerged
107 # find the list of unmerged files
114 exit 1
115 }
121 incr nr_unmerged
124 }
125 }
128 }
130 proc parseviewargs {n arglist} {
131 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
135 set glflags {}
136 set diffargs {}
137 set nextisval 0
138 set revargs {}
140 set allknown 1
141 set filtered 0
142 set i -1
144 incr i
147 set nextisval 0
148 continue
149 }
151 "-d" -
152 "--date-order" {
154 # remove from origargs in case we hit an unknown option
156 incr i -1
157 }
158 # These request or affect diff output, which we don't want.
159 # Some could be used to set our defaults for diff display.
166 lappend diffargs $arg
167 }
168 # These cause our parsing of git log's output to fail, or else
169 # they're options we want to set ourselves, so ignore them.
177 }
178 # These are harmless, and some are even useful
183 lappend glflags $arg
184 }
185 # These mean that we get a subset of the commits
193 lappend glflags $arg
194 }
195 # This appears to be the only one that has a value as a
196 # separate word following it
200 lappend glflags $arg
201 }
204 lappend revargs $arg
205 }
207 lappend revargs $arg
208 }
211 # git rev-parse doesn't understand --merge
212 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
213 }
214 # Other flag arguments including -<n>
219 # a flag argument that we don't recognize;
220 # that means we can't optimize
222 }
223 lappend glflags $arg
224 }
225 # Non-flag arguments specify commits or ranges of commits
226 default {
228 lappend revargs --gitk-symmetric-diff-marker
229 }
230 lappend revargs $arg
231 }
232 }
233 }
240 }
243 global vposids vnegids
246 set revs HEAD
247 }
249 # we get stdout followed by stderr in $err
250 # for an unknown rev, git rev-parse echoes it and then errors out
263 }
266 }
267 break
268 }
269 lappend badrev $line
270 }
271 }
274 }
284 lappend ret $id
287 }
288 }
292 lappend ret $id
295 }
296 lappend pos $id
297 }
298 incr sdm -1
299 }
303 }
305 # Start off a git log process and arrange to read its output
307 global startmsecs commitidx viewcomplete curview
308 global tclencoding
309 global viewargs viewargscmd viewfiles vfilelimit
310 global showlocalchanges
311 global viewactive viewinstances vmergeonly
312 global mainheadid
313 global vcanopt vflags vrevs vorigargs
317 # these are set this way for the error exits
320 varcinit $view
329 }
331 }
338 global nr_unmerged
345 }
347 }
348 }
355 }
359 }
367 }
371 interestedin $mainheadid dodiffindex
372 }
376 }
382 }
385 global commfd leftover
388 catch {
395 }
396 }
398 nukefile $fd
401 }
403 proc stop_backends {} {
404 global commfd
407 stop_instance $inst
408 }
409 }
412 global viewinstances
415 stop_instance $inst
416 }
418 }
421 global pending_select mainheadid selectheadid
429 }
430 }
433 global canv curview need_redisplay viewactive
435 initlayout
437 reset_pending_select $selid
442 }
443 }
445 proc updatecommits {} {
446 global curview vcanopt vorigargs vfilelimit viewinstances
447 global viewactive viewcomplete tclencoding
448 global startmsecs showneartags showlocalchanges
449 global mainheadid pending_select
450 global isworktree
451 global varcid vposids vnegids vflags vrevs
455 rereadrefs
458 dohidelocalchanges
459 }
461 dodiffindex
462 }
463 }
470 return
471 }
472 # note: getting the delta when negative refs change is hard,
473 # and could require multiple git log invocations, so in that
474 # case we ask git log for all the commits (not just the delta)
478 # take out positive refs that we asked for before or
479 # that we have already seen
484 lappend newrevs $rev
485 incr npos
486 }
488 lappend $newrevs $rev
489 }
490 }
494 }
498 }
504 return
505 }
508 }
514 }
518 reset_pending_select {}
521 getallcommits
522 }
523 }
525 proc reloadcommits {} {
526 global curview viewcomplete selectedline currentid thickerline
527 global showneartags treediffs commitinterest cached_commitrow
528 global targetid
533 }
536 stop_rev_list $curview
537 }
538 resetvarcs $curview
543 readrefs
544 changedrefs
546 getallcommits
547 }
548 clear_display
552 setcanvscroll
553 getcommits $selid
555 }
557 # This makes a string representation of a positive integer which
558 # sorts as a string in numerical order
566 }
568 }
570 # Procedures used in reordering commits from git log (without
571 # --topo-order) into the order for display.
574 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
575 global vtokmod varcmod vrowmod varcix vlastins
589 }
592 global varcid varccommits parents children vseedcount ordertok
598 }
599 # some commits might have children but haven't been seen yet
602 }
605 }
608 }
610 }
612 # returns a list of the commits with no children
614 global vdownptr vleftptr varcstart
621 }
623 }
626 global varcid varctok parents children vdatemode
627 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
628 global commitdata commitinfo vseedcount varccommits vlastins
635 }
639 }
642 }
648 }
657 }
658 }
663 }
670 }
674 }
681 }
687 }
696 }
699 global varcid varcstart varccommits varctok
700 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
707 # "%" sorts before "0"...
717 }
727 }
728 }
731 global parents children varctok varcstart varccommits
732 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
741 lappend todo $a
746 }
747 }
748 }
749 incr ntot
756 }
757 }
759 }
766 }
772 }
781 }
782 }
787 }
789 continue
790 }
797 }
798 }
803 modify_arc $v $ka
804 }
806 modify_arc $v $b
807 }
814 }
817 }
820 }
829 }
834 }
841 }
845 }
847 }
848 }
853 }
854 }
856 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
857 }
859 # Fix up the graph after we have found out that in view $v,
860 # $p (a commit that we have already seen) is actually the parent
861 # of the last commit in arc $a.
863 global varcid varcstart varctok vupptr
867 splitvarc $p $v
869 }
870 # seeds always need to be renumbered
874 renumbervarc $pa $v
875 }
876 }
879 global cmitlisted children parents varcid varctok vtokmod
880 global varccommits ordertok commitidx numcommits curview
881 global targetid targetrow
883 readcommit $id
891 modify_arc $v $a
892 }
898 }
899 fix_reversal $p $a $v
903 setcanvscroll
906 incr targetrow
907 }
908 }
909 }
910 }
913 global varcid varccommits parents children cmitlisted
914 global commitidx varctok vtokmod targetid targetrow curview numcommits
921 return
922 }
929 # note we deliberately don't update varcstart($v) even if $i == 0
931 modify_arc $v $a $i
934 incr targetrow
935 }
936 }
937 setcanvscroll
938 drawvisible
939 }
942 global varcid varccommits parents children commitidx
943 global varctok vtokmod cmitlisted currentid selectedline
944 global targetid curview numcommits
949 return
950 }
956 return
957 }
967 }
968 modify_arc $v $a $i
970 unset currentid
972 }
975 }
976 setcanvscroll
977 drawvisible
978 }
981 global children nullid nullid2
986 }
987 }
989 }
992 global children nullid nullid2
999 }
1000 }
1002 }
1005 global varctok varcid
1009 }
1011 # This assumes that if lim is not given, the caller has checked that
1012 # arc a's token is less than $vtokmod($v)
1014 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1022 }
1023 }
1030 }
1035 }
1037 }
1039 undolayout $r
1040 }
1041 }
1044 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1045 global varcid vrownum varcorder varcix varccommits
1046 global vupptr vdownptr vleftptr varctok
1047 global displayorder parentlist curview cached_commitrow
1054 }
1056 }
1060 # go up the tree until we find something that has a row number,
1061 # or we get to a seed
1063 }
1078 }
1080 }
1084 # go down if possible
1087 # if not, go left, or go up until we can go left
1092 }
1094 }
1096 incr arcn
1101 }
1107 }
1108 }
1110 # Test whether view $v contains commit $id
1112 global varcid
1115 }
1117 # Return the row number for commit $id in the current view
1119 global varcid varccommits varcrow curview cached_commitrow
1120 global varctok vtokmod
1126 }
1129 update_arcrows $v
1130 }
1133 }
1138 }
1142 }
1144 # Returns 1 if a is on an earlier row than b, otherwise 0
1146 global varcid varctok curview
1152 }
1156 }
1158 }
1163 }
1175 }
1176 }
1178 }
1180 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1182 global vrownum curview commitidx displayorder parentlist
1183 global varccommits varcorder parents vrowmod varcrow
1184 global d_valid_start d_valid_end
1187 update_arcrows $curview
1188 }
1204 }
1206 lappend displayorder $id
1208 }
1212 lset displayorder $i $id
1214 incr i
1215 }
1216 }
1217 incr r $al
1218 }
1219 }
1222 global displayorder
1228 }
1230 }
1233 global varctok varccommits varcid parents children
1234 global cmitlisted commitidx vtokmod
1243 # add p as a new commit
1244 incr missing_parents
1252 }
1255 modify_arc $v $b
1256 }
1260 }
1261 }
1265 }
1266 }
1267 }
1269 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1270 # Assumes we already have an arc for $rwid.
1272 global children parents varcid varctok vtokmod varccommits
1275 # make $rwid be $ch's parent in place of $id
1279 }
1281 # add $ch to $rwid's children and sort the list if necessary
1285 }
1286 # fix the graph after joining $id to $rwid
1288 fix_reversal $rwid $a $v
1289 # parentlist is wrong for the last element of arc $a
1290 # even if displayorder is right, hence the 3rd arg here
1292 }
1293 }
1295 # Mechanism for registering a command to be executed when we come
1296 # across a particular commit. To handle the case when only the
1297 # prefix of the commit is known, the commitinterest array is now
1298 # indexed by the first 4 characters of the ID. Each element is a
1299 # list of id, cmd pairs.
1301 global commitinterest
1304 }
1307 global commitinterest
1316 lappend newlist $i $script
1317 }
1318 }
1323 }
1324 }
1326 }
1329 global cmitlisted leftover
1330 global commitidx commitdata vdatemode
1331 global parents children curview hlview
1332 global idpending ordertok
1333 global varccommits varcid varctok vtokmod vfilelimit
1336 # git log doesn't terminate the last commit with a null...
1339 }
1343 }
1344 global commfd viewcomplete viewactive viewname
1345 global viewinstances
1350 }
1351 # set it blocking so we wait for the process to terminate
1357 }
1360 bad arguments to git log."
1362 append err \
1363 " (Note: arguments to gitk are passed to git log\
1364 to allow selection of commits to be displayed.)"
1365 }
1368 }
1369 error_popup $err
1370 }
1373 # Check if we have seen any ids listed as parents that haven't
1374 # appeared in the list
1375 closevarcs $view
1376 notbusy $view
1377 }
1379 run chewcommits
1380 }
1382 }
1390 break
1391 }
1398 }
1411 }
1413 }
1418 break
1419 }
1420 }
1421 }
1426 }
1428 exit 1
1429 }
1436 # when doing path limiting, so work around that here
1437 # by working out the rewritten parent with git rev-list
1438 # and if we already know about it, using the rewritten
1439 # parent as a substitute parent for $id's children.
1443 }]} {
1445 # use $rwid in place of $id
1446 rewrite_commit $view $id $rwid
1447 continue
1448 }
1449 }
1450 }
1456 }
1461 }
1473 }
1474 }
1476 # new arc
1478 }
1480 modify_arc $view $a
1481 }
1486 }
1497 }
1499 fix_reversal $p $a $view
1500 }
1501 }
1502 incr i
1503 }
1507 }
1509 global numcommits hlview
1513 run chewcommits
1514 }
1516 # we never actually get here...
1517 run vhighlightmore
1518 }
1521 }
1522 }
1524 }
1526 proc chewcommits {} {
1527 global curview hlview viewcomplete
1528 global pending_select
1530 layoutmore
1532 global commitidx varctok
1533 global numcommits startmsecs
1536 update
1537 reset_pending_select {}
1544 }
1545 }
1547 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1548 #puts "overall $ms ms for $numcommits commits"
1549 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1552 }
1553 notbusy layout
1554 }
1556 }
1561 }
1564 global commitinfo cdate
1575 # should never happen...
1577 }
1588 }
1589 }
1591 # take the first non-blank line of the comment as the headline
1596 }
1601 }
1603 # git log indents the comment by 4 spaces;
1604 # if we got this via git cat-file, add the indentation
1607 append newcomment " "
1608 append newcomment $line
1610 }
1612 }
1615 }
1618 }
1621 global commitdata commitinfo
1626 readcommit $id
1629 }
1630 }
1632 }
1634 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1635 # and are present in the current view.
1636 # This is fairly slow...
1638 global varcid curview
1643 }
1645 }
1647 proc readrefs {} {
1648 global tagids idtags headids idheads tagobjid
1649 global otherrefids idotherrefs mainhead mainheadid
1650 global selecthead selectheadid
1654 }
1666 }
1672 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1673 # which is what we want since the former is the commit ID
1679 }
1685 }
1686 }
1690 catch {
1695 }
1696 }
1699 catch {
1701 }
1702 }
1703 }
1705 # skip over fake commits
1706 proc first_real_row {} {
1707 global nullid nullid2 numcommits
1712 break
1713 }
1714 }
1716 }
1718 # update things for a head moved to a child of its previous location
1720 global headids idheads
1725 }
1727 # update things when a head has been removed
1729 global headids idheads
1737 }
1738 }
1740 }
1751 tkwait window $top
1752 }
1754 proc error_popup msg {
1755 set w .error
1756 toplevel $w
1757 wm transient $w .
1758 show_error $w $w $msg
1759 }
1761 proc confirm_popup msg {
1762 global confirm_ok
1764 set w .confirm
1765 toplevel $w
1766 wm transient $w .
1777 tkwait window $w
1779 }
1781 proc setoptions {} {
1783 option add *Panedwindow.sashRelief raised startupFile
1784 option add *Button.font uifont startupFile
1785 option add *Checkbutton.font uifont startupFile
1786 option add *Radiobutton.font uifont startupFile
1787 option add *Menu.font uifont startupFile
1788 option add *Menubutton.font uifont startupFile
1789 option add *Label.font uifont startupFile
1790 option add *Message.font uifont startupFile
1791 option add *Entry.font uifont startupFile
1792 }
1794 # Make a menu and submenus.
1795 # m is the window name for the menu, items is the list of menu items to add.
1796 # Each item is a list {mc label type description options...}
1797 # mc is ignored; it's so we can put mc there to alert xgettext
1798 # label is the string that appears in the menu
1799 # type is cascade, command or radiobutton (should add checkbutton)
1800 # description depends on type; it's the sublist for cascade, the
1801 # command to invoke for command, or {variable value} for radiobutton
1803 menu $m
1814 }
1815 }
1820 }
1823 }
1827 }
1828 }
1832 }
1833 }
1834 }
1836 # translate string and remove ampersands
1839 }
1841 proc makewindow {} {
1842 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1843 global tabstop
1844 global findtype findtypemenu findloc findstring fstring geometry
1845 global entries sha1entry sha1string sha1but
1846 global diffcontextstring diffcontext
1847 global ignorespace
1848 global maincursor textcursor curtextcursor
1849 global rowctxmenu fakerowmenu mergemax wrapcomment
1850 global highlight_files gdttype
1851 global searchstring sstring
1852 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1853 global headctxmenu progresscanv progressitem progresscoords statusw
1854 global fprogitem fprogcoord lastprogupdate progupdatepending
1855 global rprogitem rprogcoord rownumsel numcommits
1856 global have_tk85
1858 # The "mc" arguments here are purely so that xgettext
1859 # sees the following string as needing to be translated
1860 makemenu .bar {
1867 }}
1870 }}
1877 }}
1881 }}
1882 }
1883 . configure -menu .bar
1885 # the gui has upper and lower half, parts of a paned window.
1886 panedwindow .ctop -orient vertical
1888 # possibly use assumed geometry
1896 }
1898 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1900 frame .tf.histframe
1903 # create three canvases
1904 set cscroll .tf.histframe.csb
1905 set canv .tf.histframe.pwclist.canv
1906 canvas $canv \
1910 .tf.histframe.pwclist add $canv
1911 set canv2 .tf.histframe.pwclist.canv2
1912 canvas $canv2 \
1915 .tf.histframe.pwclist add $canv2
1916 set canv3 .tf.histframe.pwclist.canv3
1917 canvas $canv3 \
1920 .tf.histframe.pwclist add $canv3
1924 # a scroll bar to rule them
1928 lappend bglist $canv $canv2 $canv3
1931 # we have two button bars at bottom of top frame. Bar 1
1932 frame .tf.bar
1935 set sha1entry .tf.bar.sha1
1937 set sha1but .tf.bar.sha1label
1941 pack .tf.bar.sha1label -side left
1943 trace add variable sha1string write sha1change
1947 #define left_width 16
1948 #define left_height 16
1949 static unsigned char left_bits[] = {
1953 }
1955 #define right_width 16
1956 #define right_height 16
1957 static unsigned char right_bits[] = {
1961 }
1976 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1977 -side left
1978 global selectedline
1979 trace add variable selectedline write selectedline_change
1981 # Status label and progress bar
1982 set statusw .tf.bar.status
1986 set progresscanv .tf.bar.progress
1999 # build up the bottom bar of upper window
2004 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2011 trace add variable gdttype write gdttype_change
2015 set fstring .tf.lbar.findstring
2016 lappend entries $fstring
2018 trace add variable findstring write find_change
2022 trace add variable findtype write findcom_change
2026 trace add variable findloc write find_change
2027 pack .tf.lbar.findloc -side right
2028 pack .tf.lbar.findtype -side right
2031 # Finish putting the upper half of the viewer together
2035 .ctop add .tf
2039 # now build up the bottom
2040 panedwindow .pwbottom -orient horizontal
2042 # lower left, a text box over search bar, scroll bar to the right
2043 # if we know window height, then that will set the lower text height, otherwise
2044 # we set lower text height which will drive window height
2049 }
2050 frame .bleft.top
2051 frame .bleft.mid
2052 frame .bleft.bottom
2056 set sstring .bleft.top.sstring
2058 lappend entries $sstring
2059 trace add variable searchstring write incrsearch
2072 -textvariable diffcontextstring
2074 trace add variable diffcontextstring write diffcontextchange
2075 lappend entries .bleft.mid.diffcontext
2076 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2080 set ctext .bleft.bottom.ctext
2087 }
2094 grid .bleft.bottom.sbhorizontal -sticky ew
2099 lappend bglist $ctext
2100 lappend fglist $ctext
2129 .pwbottom add .bleft
2132 # lower right
2133 frame .bright
2134 frame .bright.mode
2141 set cflist .bright.cfiles
2143 text $cflist \
2146 -font mainfont \
2151 lappend bglist $cflist
2152 lappend fglist $cflist
2156 $cflist tag configure highlight \
2160 .pwbottom add .bright
2161 .ctop add .pwbottom
2163 # restore window width & height if known
2168 }
2171 }
2173 }
2174 }
2177 set M1B M1
2179 set M1B Control
2180 }
2185 #bindall <B1-Motion> {selcanvline %W %x %y}
2195 allcanvs yview scroll $delta units
2196 }
2197 }
2198 }
2220 bindkey p "selnextline -1"
2221 bindkey n "selnextline 1"
2222 bindkey z "goback"
2223 bindkey x "goforw"
2224 bindkey i "selnextline -1"
2225 bindkey k "selnextline 1"
2226 bindkey j "goback"
2227 bindkey l "goforw"
2228 bindkey b prevfile
2234 bindkey f nextfile
2246 wm protocol . WM_DELETE_WINDOW doquit
2255 global ctxbut
2259 set maincursor [. cget -cursor]
2263 set rowctxmenu .rowctxmenu
2265 {mc "Diff this -> selected" command {diffvssel 0}}
2266 {mc "Diff selected -> this" command {diffvssel 1}}
2267 {mc "Make patch" command mkpatch}
2268 {mc "Create tag" command mktag}
2269 {mc "Write commit to file" command writecommit}
2270 {mc "Create new branch" command mkbranch}
2271 {mc "Cherry-pick this commit" command cherrypick}
2272 {mc "Reset HEAD branch to here" command resethead}
2273 }
2276 set fakerowmenu .fakerowmenu
2278 {mc "Diff this -> selected" command {diffvssel 0}}
2279 {mc "Diff selected -> this" command {diffvssel 1}}
2280 {mc "Make patch" command mkpatch}
2281 }
2284 set headctxmenu .headctxmenu
2286 {mc "Check out this branch" command cobranch}
2287 {mc "Remove this branch" command rmbranch}
2288 }
2291 global flist_menu
2292 set flist_menu .flistctxmenu
2294 {mc "Highlight this too" command {flist_hl 0}}
2295 {mc "Highlight this only" command {flist_hl 1}}
2296 {mc "External diff" command {external_diff}}
2297 {mc "Blame parent commit" command {external_blame 1}}
2298 }
2301 global diff_menu
2302 set diff_menu .diffctxmenu
2304 {mc "Show origin of this line" command show_line_source}
2305 {mc "Run git gui blame on this line" command {external_blame_diff}}
2306 }
2308 }
2310 # Windows sends all mouse wheel events to the current focused window, not
2311 # the one where the mouse hovers, so bind those events here and redirect
2312 # to the correct window
2313 proc windows_mousewheel_redirector {W X Y D} {
2314 global canv canv2 canv3
2320 } else {
2321 catch {
2323 }
2324 }
2325 }
2326 }
2328 # Update row number label when selectedline changes
2329 proc selectedline_change {n1 n2 op} {
2330 global selectedline rownumsel
2333 set rownumsel {}
2334 } else {
2336 }
2337 }
2339 # mouse-2 makes all windows scan vertically, but only the one
2340 # the cursor is in scans horizontally
2341 proc canvscan {op w x y} {
2342 global canv canv2 canv3
2346 } else {
2348 }
2349 }
2350 }
2352 proc scrollcanv {cscroll f0 f1} {
2354 drawvisible
2355 flushhighlights
2356 }
2358 # when we make a key binding for the toplevel, make sure
2359 # it doesn't get triggered when that key is pressed in the
2360 # find string entry widget.
2361 proc bindkey {ev script} {
2362 global entries
2366 set escript [bind Entry <Key>]
2367 }
2370 }
2371 }
2373 # set the focus back to the toplevel for any click outside
2374 # the entry widgets
2375 proc click {w} {
2376 global ctext entries
2379 }
2380 focus .
2381 }
2383 # Adjust the progress bar for a change in requested extent or canvas size
2384 proc adjustprogress {} {
2385 global progresscanv progressitem progresscoords
2386 global fprogitem fprogcoord lastprogupdate progupdatepending
2387 global rprogitem rprogcoord
2396 set now [clock clicks -milliseconds]
2398 set progupdatepending 0
2399 update
2401 set progupdatepending 1
2403 }
2404 }
2406 proc doprogupdate {} {
2407 global lastprogupdate progupdatepending
2410 set progupdatepending 0
2411 set lastprogupdate [clock clicks -milliseconds]
2412 update
2413 }
2414 }
2416 proc savestuff {w} {
2417 global canv canv2 canv3 mainfont textfont uifont tabstop
2418 global stuffsaved findmergefiles maxgraphpct
2419 global maxwidth showneartags showlocalchanges
2420 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2421 global cmitmode wrapcomment datetimeformat limitdiffs
2422 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2423 global autoselect extdifftool perfile_attrs markbgcolor
2426 if {![winfo viewable .]} return
2427 catch {
2428 set f [open "~/.gitk-new" w]
2465 }
2466 }
2469 file rename -force "~/.gitk-new" "~/.gitk"
2470 }
2471 set stuffsaved 1
2472 }
2474 proc resizeclistpanes {win w} {
2475 global oldwidth
2482 } else {
2487 set sash0 30
2488 }
2491 }
2496 }
2497 }
2498 }
2501 }
2503 }
2505 proc resizecdetpanes {win w} {
2506 global oldwidth
2511 } else {
2515 set sash0 45
2516 }
2519 }
2520 }
2522 }
2524 }
2526 proc allcanvs args {
2527 global canv canv2 canv3
2531 }
2533 proc bindall {event action} {
2534 global canv canv2 canv3
2538 }
2540 proc about {} {
2541 global uifont
2542 set w .about
2545 return
2546 }
2550 Gitk - a commit viewer for git
2552 Copyright © 2005-2008 Paul Mackerras
2554 Use and redistribute under the terms of the GNU General Public License"] \
2555 -justify center -aspect 400 -border 2 -bg white -relief groove
2562 }
2564 proc keys {} {
2565 set w .keys
2568 return
2569 }
2570 if {[tk windowingsystem] eq {aqua}} {
2571 set M1T Cmd
2572 } else {
2573 set M1T Ctrl
2574 }
2578 [mc "Gitk key bindings:"]
2581 [mc "<Home> Move to first commit"]
2582 [mc "<End> Move to last commit"]
2583 [mc "<Up>, p, i Move up one commit"]
2584 [mc "<Down>, n, k Move down one commit"]
2585 [mc "<Left>, z, j Go back in history list"]
2586 [mc "<Right>, x, l Go forward in history list"]
2587 [mc "<PageUp> Move up one page in commit list"]
2588 [mc "<PageDown> Move down one page in commit list"]
2595 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2596 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2597 [mc "<Delete>, b Scroll diff view up one page"]
2598 [mc "<Backspace> Scroll diff view up one page"]
2599 [mc "<Space> Scroll diff view down one page"]
2600 [mc "u Scroll diff view up 18 lines"]
2601 [mc "d Scroll diff view down 18 lines"]
2604 [mc "<Return> Move to next find hit"]
2605 [mc "/ Move to next find hit, or redo find"]
2606 [mc "? Move to previous find hit"]
2607 [mc "f Scroll diff view to next file"]
2614 [mc "<F5> Update"]
2615 " \
2616 -justify left -bg white -border 2 -relief groove
2624 }
2626 # Procedures for manipulating the file list window at the
2627 # bottom right of the overall window.
2629 proc treeview {w l openlevs} {
2630 global treecontents treediropen treeheight treeparent treeindex
2632 set ix 0
2633 set treeindex() 0
2634 set lev 0
2635 set prefix {}
2636 set prefixend -1
2637 set prefendstack {}
2638 set htstack {}
2639 set ht 0
2640 set treecontents() {}
2647 }
2654 incr lev -1
2655 }
2659 set ht 0
2671 set ht 1
2676 set str "\n"
2684 }
2685 incr lev
2686 }
2689 incr ht
2690 set str "\n"
2694 }
2696 }
2697 }
2705 }
2707 }
2709 proc linetoelt {l} {
2710 global treeheight treecontents
2712 set y 2
2713 set prefix {}
2714 while {1} {
2718 }
2719 set n 1
2724 incr y
2725 break
2726 }
2727 }
2729 }
2730 }
2731 }
2733 proc highlight_tree {y prefix} {
2734 global treeheight treecontents cflist
2740 }
2741 incr y
2744 }
2745 }
2747 }
2749 proc treeclosedir {w dir} {
2750 global treediropen treeheight treeparent treeindex
2762 }
2763 }
2765 proc treeopendir {w dir} {
2766 global treediropen treeheight treeparent treecontents treeindex
2773 set lev 0
2774 set str "\n"
2777 incr lev
2778 append str "\t"
2780 }
2795 } else {
2798 }
2799 }
2812 }
2814 }
2815 }
2817 proc treeclick {w x y} {
2818 global treediropen cmitmode ctext cflist cflist_top
2821 if {![info exists cflist_top]} return
2828 return
2829 }
2835 } else {
2837 }
2838 }
2840 proc setfilelist {id} {
2841 global treefilelist cflist jump_to_here
2848 }
2849 }
2850 }
2852 image create bitmap tri-rt -background black -foreground blue -data {
2853 #define tri-rt_width 13
2854 #define tri-rt_height 13
2855 static unsigned char tri-rt_bits[] = {
2856 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2857 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2858 0x00, 0x00};
2859 } -maskdata {
2860 #define tri-rt-mask_width 13
2861 #define tri-rt-mask_height 13
2862 static unsigned char tri-rt-mask_bits[] = {
2863 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2864 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2865 0x08, 0x00};
2866 }
2867 image create bitmap tri-dn -background black -foreground blue -data {
2868 #define tri-dn_width 13
2869 #define tri-dn_height 13
2870 static unsigned char tri-dn_bits[] = {
2871 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2872 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2873 0x00, 0x00};
2874 } -maskdata {
2875 #define tri-dn-mask_width 13
2876 #define tri-dn-mask_height 13
2877 static unsigned char tri-dn-mask_bits[] = {
2878 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2879 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2880 0x00, 0x00};
2881 }
2883 image create bitmap reficon-T -background black -foreground yellow -data {
2884 #define tagicon_width 13
2885 #define tagicon_height 9
2886 static unsigned char tagicon_bits[] = {
2887 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2888 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2889 } -maskdata {
2890 #define tagicon-mask_width 13
2891 #define tagicon-mask_height 9
2892 static unsigned char tagicon-mask_bits[] = {
2893 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2894 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2895 }
2896 set rectdata {
2897 #define headicon_width 13
2898 #define headicon_height 9
2899 static unsigned char headicon_bits[] = {
2900 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2901 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2902 }
2903 set rectmask {
2904 #define headicon-mask_width 13
2905 #define headicon-mask_height 9
2906 static unsigned char headicon-mask_bits[] = {
2907 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2908 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2909 }
2910 image create bitmap reficon-H -background black -foreground green \
2912 image create bitmap reficon-o -background black -foreground "#ddddff" \
2915 proc init_flist {first} {
2916 global cflist cflist_top difffilestart
2922 set cflist_top 1
2924 } else {
2925 catch {unset cflist_top}
2926 }
2928 set difffilestart {}
2929 }
2931 proc highlight_tag {f} {
2932 global highlight_paths
2936 return "bold"
2937 }
2938 }
2939 return {}
2940 }
2942 proc highlight_filelist {} {
2943 global cmitmode cflist
2952 }
2953 }
2954 } else {
2955 highlight_tree 2 {}
2956 }
2958 }
2960 proc unhighlight_filelist {} {
2961 global cflist
2966 }
2968 proc add_flist {fl} {
2969 global cflist
2975 }
2977 }
2979 proc sel_flist {w x y} {
2980 global ctext difffilestart cflist cflist_top cmitmode
2983 if {![info exists cflist_top]} return
2990 } else {
2992 }
2993 }
2995 proc pop_flist_menu {w X Y x y} {
2996 global ctext cflist cmitmode flist_menu flist_menu_file
2997 global treediffs diffids
2999 stopfinding
3005 } else {
3007 }
3009 set xdiffstate "normal"
3011 set xdiffstate "disabled"
3012 }
3013 # Disable "External diff" item in tree mode
3016 }
3018 proc find_ctext_fileinfo {line} {
3019 global ctext_file_names ctext_file_lines
3025 return {}
3026 } else {
3028 }
3029 }
3031 proc pop_diff_menu {w X Y x y} {
3032 global ctext diff_menu flist_menu_file
3033 global diff_menu_txtpos diff_menu_line
3034 global diff_menu_filebase
3038 # don't pop up the menu on hunk-separator or file-separator lines
3040 return
3041 }
3042 stopfinding
3048 }
3050 proc flist_hl {only} {
3051 global flist_menu_file findstring gdttype
3056 } else {
3058 }
3059 set gdttype [mc "touching paths:"]
3060 }
3062 proc save_file_from_commit {filename output what} {
3063 global nullfile
3068 }
3070 return {}
3071 }
3073 }
3075 proc external_diff_get_one_file {diffid filename diffdir} {
3076 global nullid nullid2 nullfile
3077 global gitdir
3083 }
3085 }
3089 }
3093 }
3095 proc external_diff {} {
3096 global gitktmpdir nullid nullid2
3097 global flist_menu_file
3098 global diffids
3099 global diffnum
3100 global gitdir extdifftool
3103 # no reference commit given
3106 # diffing working copy with index
3109 # diffing index with HEAD
3110 set diffidfrom "HEAD"
3111 } else {
3112 # use first parent commit
3113 global parentlist selectedline
3115 }
3116 } else {
3119 }
3121 # make sure that several diffs wont collide
3122 if {![info exists gitktmpdir]} {
3124 [format ".gitk-tmp.%s" [pid]]]
3127 unset gitktmpdir
3128 return
3129 }
3130 set diffnum 0
3131 }
3132 incr diffnum
3136 return
3137 }
3139 # gather files to diff
3149 } else {
3152 }
3153 }
3154 }
3156 proc find_hunk_blamespec {base line} {
3157 global ctext
3159 # Find and parse the hunk header
3165 s_line old_specs osz osz1 new_line nsz]} {
3166 return
3167 }
3169 # base lines for the parents
3173 old_spec old_line osz]} {
3174 return
3175 }
3177 }
3179 # Now scan the lines to determine offset within the hunk
3181 set dline 0
3184 # Determine if the line is removed
3188 # Choose a parent index
3191 } else {
3195 } else {
3196 # blame the current commit
3197 set parent -1
3198 }
3199 }
3200 # then count other lines that belong to it
3203 # Determine if the line is removed
3208 incr dline
3209 }
3210 } else {
3212 incr dline
3213 }
3214 }
3215 }
3216 incr parent
3217 } else {
3218 set parent 0
3219 }
3223 }
3225 proc external_blame_diff {} {
3226 global currentid diffmergeid cmitmode
3227 global diff_menu_txtpos diff_menu_line
3228 global diff_menu_filebase flist_menu_file
3231 set parent_idx 0
3233 } else {
3238 } else {
3239 set parent_idx 0
3240 set line 0
3241 }
3242 }
3245 }
3247 proc external_blame {parent_idx {line {}}} {
3248 global flist_menu_file
3249 global nullid nullid2
3250 global parentlist selectedline currentid
3254 } else {
3256 }
3259 error_popup [mc "No such commit"]
3260 return
3261 }
3263 set cmdline [list git gui blame]
3266 }
3270 }
3271 }
3273 proc show_line_source {} {
3274 global cmitmode currentid parents curview blamestuff blameinst
3275 global diff_menu_line diff_menu_filebase flist_menu_file
3280 } else {
3286 return
3287 }
3290 }
3291 if {[catch {
3293 } err]} {
3295 return
3296 }
3302 }
3304 proc stopblaming {} {
3305 global blameinst
3307 if {[info exists blameinst]} {
3309 unset blameinst
3310 }
3311 }
3313 proc read_line_source {fd inst} {
3314 global blamestuff curview commfd blameinst
3318 }
3320 return 1
3321 }
3323 unset blameinst
3327 return 0
3328 }
3330 set fname {}
3336 # look for "filename" line
3340 break
3341 }
3342 }
3343 }
3345 # all looks good, select it
3348 } else {
3349 error_popup [mc "That line comes from commit %s, \
3351 }
3352 } else {
3353 puts "oops couldn't parse git blame output"
3354 }
3355 return 0
3356 }
3359 proc delete_at_eof {f dir} {
3364 }
3366 return 0
3367 }
3368 return 1
3369 }
3371 # Functions for adding and removing shell-type quoting
3373 proc shellquote {str} {
3376 }
3379 }
3382 }
3384 }
3386 proc shellarglist {l} {
3387 set str {}
3390 append str " "
3391 }
3393 }
3395 }
3397 proc shelldequote {str} {
3398 set ret {}
3399 set used -1
3400 while {1} {
3401 incr used
3405 break
3406 }
3412 }
3414 incr used
3418 error "unmatched single-quote"
3419 }
3422 continue
3423 }
3426 error "trailing backslash"
3427 }
3429 continue
3430 }
3431 # here ch == "\""
3432 while {1} {
3434 error "unmatched double-quote"
3435 }
3441 }
3443 incr used
3445 incr used
3446 }
3447 }
3449 }
3451 proc shellsplit {str} {
3452 set l {}
3453 while {1} {
3461 }
3463 }
3465 # Code to implement multiple views
3467 proc newview {ishighlight} {
3468 global nextviewnum newviewname newviewperm newishighlight
3469 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3472 set top .gitkview
3475 return
3476 }
3482 }
3484 proc editview {} {
3485 global curview
3486 global viewname viewperm newviewname newviewperm
3487 global viewargs newviewargs viewargscmd newviewargscmd
3492 return
3493 }
3499 }
3501 proc vieweditor {top n title} {
3502 global newviewname newviewperm viewfiles bgcolor
3513 -text [mc "Commits to include (arguments to git log):"]
3520 -text [mc "Command to generate more commits to include:"]
3523 -background white
3527 -text [mc "Enter files and directories to include, one per line:"]
3534 }
3537 }
3548 }
3550 proc doviewmenu {m first cmd op argv} {
3555 break
3556 }
3557 }
3558 }
3560 proc allviewmenus {n op args} {
3561 # global viewhlmenu
3565 }
3567 proc newviewok {top n} {
3568 global nextviewnum newviewperm newviewname newishighlight
3569 global viewname viewfiles viewperm selectedview curview
3570 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3572 if {[catch {
3574 } err]} {
3578 return
3579 }
3580 set files {}
3585 }
3586 }
3588 # creating a new view
3589 incr nextviewnum
3598 } else {
3600 }
3601 } else {
3602 # editing an existing view
3610 }
3617 run reloadcommits
3618 }
3619 }
3620 }
3622 }
3624 proc delview {} {
3625 global curview viewperm hlview selectedhlview
3629 set selectedhlview [mc "None"]
3630 unset hlview
3631 }
3634 showview 0
3635 }
3637 proc addviewmenu {n} {
3638 global viewname viewhlmenu
3644 }
3646 proc showview {n} {
3647 global curview cached_commitrow ordertok
3648 global displayorder parentlist rowidlist rowisopt rowfinal
3649 global colormap rowtextx nextcolor canvxmax
3650 global numcommits viewcomplete
3651 global selectedline currentid canv canvy0
3652 global treediffs
3653 global pending_select mainheadid
3654 global commitidx
3655 global selectedview
3656 global hlview selectedhlview commitinterest
3659 set selid {}
3670 }
3671 } elseif {[info exists pending_select]} {
3673 unset pending_select
3674 }
3675 unselectline
3676 normalline
3677 catch {unset treediffs}
3678 clear_display
3680 unset hlview
3681 set selectedhlview [mc "None"]
3682 }
3683 catch {unset commitinterest}
3684 catch {unset cached_commitrow}
3685 catch {unset ordertok}
3692 run refill_reflist
3695 return
3696 }
3698 set displayorder {}
3699 set parentlist {}
3700 set rowidlist {}
3701 set rowisopt {}
3702 set rowfinal {}
3705 catch {unset colormap}
3706 catch {unset rowtextx}
3707 set nextcolor 0
3710 set row 0
3711 setcanvscroll
3712 set yf 0
3713 set row {}
3716 # try to get the selected row in the same position on the screen
3720 set ytop 0
3721 }
3723 }
3725 drawvisible
3730 } else {
3731 reset_pending_select {}
3735 } else {
3736 set row [first_real_row]
3739 }
3740 }
3741 }
3744 show_status [mc "Reading commits..."]
3745 }
3747 show_status [mc "No commits selected"]
3748 }
3749 }
3751 # Stuff relating to the highlighting facility
3753 proc ishighlighted {id} {
3754 global vhighlights fhighlights nhighlights rhighlights
3758 }
3761 }
3764 }
3767 }
3768 return 0
3769 }
3771 proc bolden {row font} {
3772 global canv linehtag selectedline boldrows
3779 -outline {{}} -tags secsel \
3782 }
3783 }
3785 proc bolden_name {row font} {
3786 global canv2 linentag selectedline boldnamerows
3793 -outline {{}} -tags secsel \
3796 }
3797 }
3799 proc unbolden {} {
3800 global boldrows
3802 set stillbold {}
3806 } else {
3808 }
3809 }
3811 }
3813 proc addvhighlight {n} {
3814 global hlview viewcomplete curview vhl_done commitidx
3816 if {[info exists hlview]} {
3817 delvhighlight
3818 }
3822 }
3825 drawvisible
3826 }
3827 }
3829 proc delvhighlight {} {
3830 global hlview vhighlights
3832 if {![info exists hlview]} return
3833 unset hlview
3834 catch {unset vhighlights}
3835 unbolden
3836 }
3838 proc vhighlightmore {} {
3839 global hlview vhl_done commitidx vhighlights curview
3842 set vr [visiblerows]
3852 }
3854 }
3855 }
3856 }
3858 return 0
3859 }
3861 proc askvhighlight {row id} {
3862 global hlview vhighlights iddrawn
3867 }
3869 } else {
3871 }
3872 }
3874 proc hfiles_change {} {
3875 global highlight_files filehighlight fhighlights fh_serial
3876 global highlight_paths gdttype
3878 if {[info exists filehighlight]} {
3879 # delete previous highlights
3881 unset filehighlight
3882 catch {unset fhighlights}
3883 unbolden
3884 unhighlight_filelist
3885 }
3886 set highlight_paths {}
3888 incr fh_serial
3891 }
3892 }
3894 proc gdttype_change {name ix op} {
3895 global gdttype highlight_files findstring findpattern
3897 stopfinding
3901 set highlight_files {}
3902 hfiles_change
3903 }
3904 findcom_change
3905 } else {
3907 set findpattern {}
3908 findcom_change
3909 }
3911 hfiles_change
3912 }
3913 drawvisible
3914 }
3915 # enable/disable findtype/findloc menus too
3916 }
3918 proc find_change {name ix op} {
3919 global gdttype findstring highlight_files
3921 stopfinding
3923 findcom_change
3924 } else {
3927 hfiles_change
3928 }
3929 }
3930 drawvisible
3931 }
3933 proc findcom_change args {
3934 global nhighlights boldnamerows
3935 global findpattern findtype findstring gdttype
3937 stopfinding
3938 # delete previous highlights, if any
3941 }
3942 set boldnamerows {}
3943 catch {unset nhighlights}
3944 unbolden
3945 unmarkmatches
3947 set findpattern {}
3950 } else {
3951 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3954 }
3955 }
3957 proc makepatterns {l} {
3958 set ret {}
3963 } else {
3966 }
3967 }
3969 }
3971 proc do_file_hl {serial} {
3972 global highlight_files filehighlight highlight_paths gdttype fhl_list
3977 highlight_filelist
3981 } else {
3982 # must be "containing:", i.e. we're searching commit info
3983 return
3984 }
3989 set fhl_list {}
3990 drawvisible
3991 flushhighlights
3992 }
3994 proc flushhighlights {} {
3995 global filehighlight fhl_list
3997 if {[info exists filehighlight]} {
3998 lappend fhl_list {}
4001 }
4002 }
4004 proc askfilehighlight {row id} {
4005 global filehighlight fhighlights fhl_list
4010 }
4012 proc readfhighlight {} {
4013 global filehighlight fhighlights curview iddrawn
4014 global fhl_list find_dirn
4016 if {![info exists filehighlight]} {
4017 return 0
4018 }
4019 set nr 0
4027 }
4034 }
4036 }
4038 # strange...
4039 puts "oops, git diff-tree died"
4041 unset filehighlight
4042 return 0
4043 }
4044 if {[info exists find_dirn]} {
4045 run findmore
4046 }
4047 return 1
4048 }
4050 proc doesmatch {f} {
4051 global findtype findpattern
4057 } else {
4059 }
4060 }
4062 proc askfindhighlight {row id} {
4063 global nhighlights commitinfo iddrawn
4064 global findloc
4065 global markingmatches
4069 }
4071 set isbold 0
4072 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4077 set isbold 2
4078 break
4079 }
4080 set isbold 1
4081 }
4082 }
4088 }
4089 }
4092 }
4093 }
4095 }
4097 proc markrowmatches {row id} {
4098 global canv canv2 linehtag linentag commitinfo findloc
4109 }
4110 }
4116 }
4117 }
4118 }
4120 proc vrel_change {name ix op} {
4121 global highlight_related
4123 rhighlight_none
4125 run drawvisible
4126 }
4127 }
4129 # prepare for testing whether commits are descendents or ancestors of a
4130 proc rhighlight_sel {a} {
4131 global descendent desc_todo ancestor anc_todo
4132 global highlight_related
4134 catch {unset descendent}
4136 catch {unset ancestor}
4139 rhighlight_none
4140 run drawvisible
4141 }
4142 }
4144 proc rhighlight_none {} {
4145 global rhighlights
4147 catch {unset rhighlights}
4148 unbolden
4149 }
4151 proc is_descendent {a} {
4152 global curview children descendent desc_todo
4157 set leftover {}
4158 set done 0
4163 continue
4164 }
4170 set done 1
4171 }
4172 }
4173 }
4176 return
4177 }
4178 }
4181 }
4183 proc is_ancestor {a} {
4184 global curview parents ancestor anc_todo
4189 set leftover {}
4190 set done 0
4195 continue
4196 }
4202 set done 1
4203 }
4204 }
4205 }
4208 return
4209 }
4210 }
4213 }
4215 proc askrelhighlight {row id} {
4216 global descendent highlight_related iddrawn rhighlights
4217 global selectedline ancestor
4220 set isbold 0
4225 }
4227 set isbold 1
4228 }
4233 }
4235 set isbold 1
4236 }
4237 }
4241 }
4242 }
4244 }
4246 # Graph layout functions
4248 proc shortids {ids} {
4249 set res {}
4255 } else {
4257 }
4258 }
4260 }
4262 proc ntimes {n o} {
4263 set ret {}
4268 }
4270 }
4272 }
4274 proc ordertoken {id} {
4275 global ordertok curview varcid varcstart varctok curview parents children
4276 global nullid nullid2
4280 }
4282 set todo {}
4283 while {1} {
4287 } else {
4289 }
4292 break
4293 }
4296 # it's a root
4298 break
4299 }
4302 } else {
4306 }
4308 }
4309 }
4314 }
4317 }
4319 # Work out where id should go in idlist so that order-token
4320 # values increase from left to right
4321 proc idcol {idlist id {i 0}} {
4324 set i 0
4325 }
4329 }
4331 incr i
4332 } else {
4336 }
4337 }
4339 }
4341 proc initlayout {} {
4342 global rowidlist rowisopt rowfinal displayorder parentlist
4343 global numcommits canvxmax canv
4344 global nextcolor
4345 global colormap rowtextx
4347 set numcommits 0
4348 set displayorder {}
4349 set parentlist {}
4350 set nextcolor 0
4351 set rowidlist {}
4352 set rowisopt {}
4353 set rowfinal {}
4355 catch {unset colormap}
4356 catch {unset rowtextx}
4357 setcanvscroll
4358 }
4360 proc setcanvscroll {} {
4361 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4362 global lastscrollset lastscrollrows
4368 set lastscrollset [clock clicks -milliseconds]
4370 }
4372 proc visiblerows {} {
4373 global canv numcommits linespc
4381 set r0 0
4382 }
4387 }
4389 }
4391 proc layoutmore {} {
4392 global commitidx viewcomplete curview
4393 global numcommits pending_select curview
4394 global lastscrollset lastscrollrows
4398 setcanvscroll
4399 }
4400 if {[info exists pending_select] &&
4402 update
4404 }
4405 drawvisible
4406 }
4408 proc doshowlocalchanges {} {
4409 global curview mainheadid
4413 dodiffindex
4414 } else {
4416 }
4417 }
4419 proc dohidelocalchanges {} {
4420 global nullid nullid2 lserial curview
4424 }
4427 }
4428 incr lserial
4429 }
4431 # spawn off a process to do git diff-index --cached HEAD
4432 proc dodiffindex {} {
4433 global lserial showlocalchanges
4434 global isworktree
4437 incr lserial
4438 set fd [open "|git diff-index --cached HEAD" r]
4442 }
4444 proc readdiffindex {fd serial inst} {
4445 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4447 set isdiff 1
4450 return 1
4451 }
4452 set isdiff 0
4453 }
4454 # we only need to see one line and we don't really care what it says...
4458 return 0
4459 }
4461 # now see if there are any local changes not checked in to the index
4462 set fd [open "|git diff-files" r]
4468 # add the line for the changes in the index to the graph
4469 set hl [mc "Local changes checked in to index but not committed"]
4474 }
4478 }
4479 return 0
4480 }
4482 proc readdifffiles {fd serial inst} {
4483 global mainheadid nullid nullid2 curview
4484 global commitinfo commitdata lserial
4486 set isdiff 1
4489 return 1
4490 }
4491 set isdiff 0
4492 }
4493 # we only need to see one line and we don't really care what it says...
4497 return 0
4498 }
4501 # add the line for the local diff to the graph
4502 set hl [mc "Local uncommitted changes, not checked in to index"]
4507 } else {
4509 }
4513 }
4514 return 0
4515 }
4517 proc nextuse {id row} {
4518 global curview children
4523 return -1
4524 }
4527 }
4528 }
4529 }
4532 }
4533 return -1
4534 }
4536 proc prevuse {id row} {
4537 global curview children
4539 set ret -1
4545 }
4546 }
4547 }
4549 }
4551 proc make_idlist {row} {
4552 global displayorder parentlist uparrowlen downarrowlen mingaplen
4553 global commitidx curview children
4557 set r 0
4558 }
4561 set ra 0
4562 }
4566 }
4568 set ids {}
4577 }
4578 }
4579 }
4587 }
4588 }
4589 }
4597 }
4598 }
4599 incr r
4605 }
4606 }
4607 }
4608 set idlist {}
4611 }
4613 }
4615 proc rowsequal {a b} {
4618 }
4621 }
4623 }
4625 proc makeupline {id row rend col} {
4626 global rowidlist uparrowlen downarrowlen mingaplen
4632 }
4635 }
4642 }
4643 }
4644 }
4646 proc layoutrows {row endrow} {
4647 global rowidlist rowisopt rowfinal displayorder
4648 global uparrowlen downarrowlen maxwidth mingaplen
4649 global children parentlist
4650 global commitidx viewcomplete curview
4653 set idlist {}
4659 }
4660 }
4662 }
4667 set final 1
4668 } else {
4676 # if not the first child, we have to insert a line going up
4679 }
4680 }
4681 }
4691 }
4692 }
4693 }
4700 }
4701 }
4711 }
4712 }
4720 }
4721 }
4722 }
4723 }
4724 }
4728 set final 0
4729 }
4733 lappend rowisopt 0
4739 }
4741 } else {
4748 }
4749 }
4751 }
4753 proc changedrow {row} {
4754 global displayorder iddrawn rowisopt need_redisplay
4763 }
4764 }
4765 }
4768 set need_redisplay 1
4769 }
4770 }
4772 proc insert_pad {row col npad} {
4773 global rowidlist
4782 }
4785 }
4787 proc optimize_rows {row col endrow} {
4788 global rowidlist rowisopt displayorder curview children
4791 set row 1
4792 }
4795 set haspad 0
4804 } else {
4805 set pprevidlist {}
4806 }
4807 set x0 -1
4808 set xm -1
4813 set haspad 1
4814 continue
4815 }
4819 set isarrow 0
4820 set z0 {}
4825 }
4826 }
4831 set isarrow 1
4832 }
4833 }
4836 set isarrow 1
4837 }
4838 # Looking at lines from this row to the previous row,
4839 # make them go straight up if they end in an arrow on
4840 # the previous row; otherwise make them go straight up
4841 # or at 45 degrees.
4843 # Line currently goes left too much;
4844 # insert pads in the previous row, then optimize it
4849 }
4857 }
4859 # Line currently goes right too much;
4860 # insert pads in this line
4866 set haspad 1
4867 }
4874 }
4875 }
4876 # avoid lines jigging left then immediately right
4879 incr x0
4882 }
4883 }
4885 # Find the first column that doesn't have a line going right
4891 # check if this is the link to the first child
4894 # it is, work out offset to child
4896 }
4897 }
4899 }
4900 # Insert a pad at that column as long as it has a line and
4901 # isn't the last column
4906 }
4907 }
4908 }
4909 }
4911 proc xc {row col} {
4912 global canvx0 linespc
4914 }
4916 proc yc {row} {
4917 global canvy0 linespc
4919 }
4921 proc linewidth {id} {
4922 global thickerline lthickness
4927 }
4929 }
4931 proc rowranges {id} {
4932 global curview children uparrowlen downarrowlen
4933 global rowidlist
4937 return {}
4938 }
4939 set ret {}
4944 if {![info exists prev]} {
4946 } else {
4948 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4949 }
4950 # see if the line extends the whole way from prevrow to row
4954 # it doesn't, see where it ends
4959 } else {
4962 incr r -1
4963 }
4965 # see where it starts up again
4970 } else {
4973 incr r
4974 }
4976 }
4977 }
4980 }
4983 }
4985 }
4987 proc drawlineseg {id row endrow arrowlow} {
4988 global rowidlist displayorder iddrawn linesegs
4989 global canv colormap linespc curview maxlinelen parentlist
4993 set arrowhigh 1
4994 while {1} {
4997 incr le -1
4998 break
4999 }
5003 set arrowhigh 0
5004 break
5005 }
5010 set arrowhigh 0
5011 }
5012 break
5013 }
5014 incr le
5015 }
5018 }
5020 set lines {}
5021 set i 0
5022 set joinhigh 0
5029 set joinhigh 1
5030 }
5031 break
5032 }
5033 incr i
5034 }
5035 }
5036 set joinlow 0
5041 set joinlow 1
5042 }
5043 }
5056 }
5057 } else {
5059 }
5067 set arrowlow 0
5068 }
5069 }
5077 }
5079 }
5082 # join parent line to first child
5093 } else {
5095 }
5103 }
5105 }
5107 } else {
5111 }
5119 } else {
5123 }
5125 }
5126 } else {
5132 }
5136 } else {
5137 # coalesce two pieces
5142 }
5146 }
5147 }
5151 }
5153 proc drawparentlinks {id row} {
5154 global rowidlist canv colormap curview parentlist
5155 global idpos linespc
5168 # rmx = right-most X coord used
5169 set rmx 0
5174 continue
5175 }
5179 }
5182 # drawlineseg will do this one for us
5183 continue
5184 }
5186 # should handle duplicated parents here...
5189 # if attaching to a vertical segment, draw a smaller
5190 # slant for visual distinctness
5194 } else {
5196 }
5198 # segment slants towards us already
5200 } else {
5205 }
5207 }
5208 } else {
5210 }
5215 }
5219 }
5220 }
5222 proc drawlines {id} {
5223 global canv
5226 }
5228 proc drawcmittext {id row col} {
5229 global linespc canv canv2 canv3 fgcolor curview
5230 global cmitlisted commitinfo rowidlist parentlist
5231 global rowtextx idpos idtags idheads idotherrefs
5232 global linehtag linentag linedtag selectedline
5233 global canvxmax boldrows boldnamerows fgcolor
5234 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5236 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5239 set ofill red
5241 set ofill green
5243 set ofill yellow
5244 } else {
5246 }
5255 # triangle pointing left for left-side commits
5261 } else {
5262 # triangle pointing right for right-side commits
5268 }
5280 }
5281 }
5282 }
5289 }
5294 set font mainfont
5295 set nfont mainfont
5299 set font mainfontbold
5302 set nfont mainfontbold
5303 }
5304 }
5314 }
5318 setcanvscroll
5319 }
5320 }
5322 proc drawcmitrow {row} {
5323 global displayorder rowidlist nrows_drawn
5324 global iddrawn markingmatches
5325 global commitinfo numcommits
5326 global filehighlight fhighlights findpattern nhighlights
5327 global hlview vhighlights
5328 global highlight_related rhighlights
5335 }
5338 }
5341 }
5344 }
5349 return
5350 }
5353 }
5357 incr nrows_drawn
5358 }
5361 }
5362 }
5364 proc drawcommits {row {endrow {}}} {
5365 global numcommits iddrawn displayorder curview need_redisplay
5366 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5369 set row 0
5370 }
5373 }
5376 }
5380 set rl1 0
5381 }
5384 set ro1 0
5385 }
5389 }
5394 }
5396 }
5397 }
5400 }
5403 clear_display
5404 drawvisible
5405 }
5407 # make the lines join to already-drawn rows either side
5411 }
5416 }
5431 # see if this is the first child of any of its parents
5434 # make this line extend up to the child
5436 }
5437 }
5438 } else {
5440 }
5441 }
5442 }
5443 }
5445 proc undolayout {row} {
5446 global uparrowlen mingaplen downarrowlen
5447 global rowidlist rowisopt rowfinal need_redisplay
5451 set r 0
5452 }
5454 incr r -1
5458 set need_redisplay 1
5459 run drawvisible
5460 }
5461 }
5463 proc drawvisible {} {
5464 global canv linespc curview vrowmod selectedline targetrow targetid
5465 global need_redisplay cscroll numcommits
5475 if {[info exists targetid]} {
5479 # Fix up the scrollregion and change the scrolling position
5480 # now that our target row has moved.
5483 setcanvscroll
5491 set need_redisplay 1
5492 }
5493 } else {
5494 unset targetid
5495 }
5496 }
5502 }
5506 } elseif {[info exists targetid]} {
5508 }
5509 if {[info exists targetrow]} {
5512 }
5514 }
5516 }
5518 proc clear_display {} {
5519 global iddrawn linesegs need_redisplay nrows_drawn
5520 global vhighlights fhighlights nhighlights rhighlights
5521 global linehtag linentag linedtag boldrows boldnamerows
5523 allcanvs delete all
5524 catch {unset iddrawn}
5525 catch {unset linesegs}
5526 catch {unset linehtag}
5527 catch {unset linentag}
5528 catch {unset linedtag}
5529 set boldrows {}
5530 set boldnamerows {}
5531 catch {unset vhighlights}
5532 catch {unset fhighlights}
5533 catch {unset nhighlights}
5534 catch {unset rhighlights}
5535 set need_redisplay 0
5536 set nrows_drawn 0
5537 }
5539 proc findcrossings {id} {
5540 global rowidlist parentlist numcommits displayorder
5542 set cross {}
5543 set ccross {}
5547 }
5566 }
5567 }
5568 }
5569 }
5570 }
5572 }
5574 proc assigncolor {id} {
5575 global colormap colors nextcolor
5576 global parents children children curview
5582 } else {
5583 set kids {}
5584 }
5590 return
5591 }
5592 }
5593 set badcolors {}
5594 set origbad {}
5597 # delimiter between corner crossings and other crossings
5600 }
5604 }
5605 }
5608 }
5615 }
5620 }
5621 }
5622 }
5625 }
5626 }
5630 set nextcolor 0
5631 }
5633 }
5635 }
5637 proc bindline {t id} {
5638 global canv
5644 }
5646 proc drawtags {id x xt y1} {
5647 global idtags idheads idotherrefs mainhead
5648 global linespc lthickness
5649 global canv rowtextx curview fgcolor bgcolor ctxbut
5651 set marks {}
5652 set ntags 0
5653 set nheads 0
5657 }
5661 }
5664 }
5667 }
5672 set xvals {}
5673 set wvals {}
5674 set i -1
5676 incr i
5679 } else {
5681 }
5685 }
5692 set font mainfont
5693 if {[incr ntags -1] >= 0} {
5694 # draw a tag
5700 } else {
5701 # draw a head or other ref
5702 if {[incr nheads -1] >= 0} {
5703 set col green
5705 set font mainfontbold
5706 }
5707 } else {
5708 set col "#ddddff"
5709 }
5720 }
5721 }
5728 }
5729 }
5731 }
5733 proc xcoord {i level ln} {
5734 global canvx0 xspc1 xspc2
5741 }
5743 }
5745 proc show_status {msg} {
5746 global canv fgcolor
5748 clear_display
5751 }
5753 # Don't change the text pane cursor if it is currently the hand cursor,
5754 # showing that we are over a sha1 ID link.
5755 proc settextcursor {c} {
5756 global ctext curtextcursor
5760 }
5762 }
5764 proc nowbusy {what {name {}}} {
5765 global isbusy busyname statusw
5767 if {[array names isbusy] eq {}} {
5768 . config -cursor watch
5769 settextcursor watch
5770 }
5775 }
5776 }
5778 proc notbusy {what} {
5779 global isbusy maincursor textcursor busyname statusw
5781 catch {
5786 }
5787 }
5788 if {[array names isbusy] eq {}} {
5791 }
5792 }
5794 proc findmatches {f} {
5795 global findtype findstring
5798 } else {
5803 }
5804 set matches {}
5805 set i 0
5810 }
5811 }
5813 }
5815 proc dofind {{dirn 1} {wrap 1}} {
5816 global findstring findstartline findcurline selectedline numcommits
5817 global gdttype filehighlight fh_serial find_dirn findallowwrap
5819 if {[info exists find_dirn]} {
5821 stopfinding
5822 }
5823 focus .
5827 } else {
5829 }
5831 nowbusy finding [mc "Searching"]
5835 }
5838 run findmore
5839 }
5841 proc stopfinding {} {
5842 global find_dirn findcurline fprogcoord
5844 if {[info exists find_dirn]} {
5845 unset find_dirn
5846 unset findcurline
5847 notbusy finding
5848 set fprogcoord 0
5849 adjustprogress
5850 }
5851 stopblaming
5852 }
5854 proc findmore {} {
5855 global commitdata commitinfo numcommits findpattern findloc
5856 global findstartline findcurline findallowwrap
5857 global find_dirn gdttype fhighlights fprogcoord
5858 global curview varcorder vrownum varccommits vrowmod
5860 if {![info exists find_dirn]} {
5861 return 0
5862 }
5863 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5865 set moretodo 0
5867 incr l
5869 set l 0
5870 }
5873 } else {
5876 }
5877 } else {
5880 }
5881 incr l -1
5884 } else {
5885 set lim -1
5887 }
5888 }
5891 set n 500
5892 set moretodo 1
5893 }
5896 }
5897 set found 0
5898 set domore 1
5912 }
5914 # shouldn't happen unless git log doesn't give all the commits...
5917 continue
5918 }
5921 }
5926 set found 1
5927 break
5928 }
5929 }
5931 }
5932 } else {
5940 }
5945 }
5948 break
5949 }
5952 set domore 0
5954 }
5955 }
5956 }
5957 }
5959 unset findcurline
5960 unset find_dirn
5961 notbusy finding
5962 set fprogcoord 0
5963 adjustprogress
5966 } else {
5967 bell
5968 }
5969 return 0
5970 }
5972 flushhighlights
5973 } else {
5975 }
5979 }
5981 adjustprogress
5983 }
5985 proc findselectline {l} {
5986 global findloc commentend ctext findcurline markingmatches gdttype
5988 set markingmatches 1
5992 # highlight the matches in the comments
5999 }
6000 }
6001 drawvisible
6002 }
6004 # mark the bits of a headline or author that match a find string
6005 proc markmatches {canv l str tag matches font row} {
6006 global selectedline
6024 }
6025 }
6026 }
6028 proc unmarkmatches {} {
6029 global markingmatches
6031 allcanvs delete matches
6032 set markingmatches 0
6033 stopfinding
6034 }
6036 proc selcanvline {w x y} {
6037 global canv canvy0 ctext linespc
6038 global rowtextx
6045 set l 0
6046 }
6051 }
6052 unmarkmatches
6054 }
6056 proc commit_descriptor {p} {
6057 global commitinfo
6060 }
6061 set l "..."
6064 }
6066 }
6068 # append some text to the ctext widget, and make any SHA1 ID
6069 # that we know about be a clickable link.
6070 proc appendwithlinks {text tags} {
6071 global ctext linknum curview
6080 incr e
6084 incr linknum
6085 }
6086 }
6088 proc setlink {id lk} {
6089 global curview ctext pendinglinks
6091 set known 0
6096 set known 1
6098 }
6099 } else {
6101 }
6107 } else {
6110 }
6111 }
6113 proc makelink {id} {
6114 global pendinglinks
6119 }
6121 }
6123 proc linkcursor {w inc} {
6124 global linkentercount curtextcursor
6128 } else {
6131 set linkentercount 0
6132 }
6133 }
6134 }
6136 proc viewnextline {dir} {
6137 global canv linespc
6145 set newtop 0
6148 }
6150 }
6152 # add a list of tag or branch names at position pos
6153 # returns the number of names inserted
6154 proc appendrefs {pos ids var} {
6158 return 0
6159 }
6162 set tags {}
6166 }
6167 }
6170 } else {
6172 set sep {}
6176 incr linknum
6181 set sep ", "
6182 }
6183 }
6186 }
6188 # called when we have finished computing the nearby tags
6189 proc dispneartags {delay} {
6190 global selectedline currentid showneartags tagphase
6193 after cancel dispnexttag
6195 after 200 dispnexttag
6196 set tagphase -1
6197 } else {
6198 after idle dispnexttag
6199 set tagphase 0
6200 }
6201 }
6203 proc dispnexttag {} {
6204 global selectedline currentid showneartags tagphase ctext
6208 0 {
6212 }
6213 }
6214 1 {
6218 }
6219 }
6220 2 {
6225 # turn "Branch" into "Branches"
6229 }
6230 }
6231 }
6232 }
6233 if {[incr tagphase] <= 2} {
6234 after idle dispnexttag
6235 }
6236 }
6238 proc make_secsel {l} {
6239 global linehtag linentag linedtag canv canv2 canv3
6254 }
6256 proc selectline {l isnew {desired_loc {}}} {
6257 global canv ctext commitinfo selectedline
6258 global canvy0 linespc parents children curview
6259 global currentid sha1entry
6260 global commentend idtags linknum
6261 global mergemax numcommits pending_select
6262 global cmitmode showneartags allcommits
6263 global targetrow targetid lastscrollrows
6264 global autoselect jump_to_here
6266 catch {unset pending_select}
6268 normalline
6269 unsel_reflist
6270 stopfinding
6278 setcanvscroll
6279 }
6293 } else {
6297 }
6298 }
6302 } else {
6306 }
6307 }
6308 }
6311 set newtop 0
6312 }
6314 drawvisible
6315 }
6321 }
6328 }
6332 clear_ctext
6333 set linknum 0
6336 }
6346 }
6348 }
6350 set headers {}
6353 set np 0
6356 set tag mmax
6357 } else {
6359 }
6362 incr np
6363 }
6364 } else {
6367 }
6368 }
6372 }
6374 # make anything that looks like a SHA1 ID be a clickable link
6377 if {![info exists allcommits]} {
6378 getallcommits
6379 }
6390 dispneartags 1
6391 }
6396 }
6404 init_flist [mc "Comments"]
6409 } else {
6411 }
6412 }
6414 proc selfirstline {} {
6415 unmarkmatches
6416 selectline 0 1
6417 }
6419 proc sellastline {} {
6420 global numcommits
6421 unmarkmatches
6424 }
6426 proc selnextline {dir} {
6427 global selectedline
6428 focus .
6431 unmarkmatches
6433 }
6435 proc selnextpage {dir} {
6436 global canv linespc selectedline numcommits
6440 set lpp 1
6441 }
6443 drawvisible
6447 set l 0
6450 }
6451 unmarkmatches
6453 }
6455 proc unselectline {} {
6456 global selectedline currentid
6458 set selectedline {}
6459 catch {unset currentid}
6460 allcanvs delete secsel
6461 rhighlight_none
6462 }
6464 proc reselectline {} {
6465 global selectedline
6469 }
6470 }
6472 proc addtohistory {cmd} {
6473 global history historyindex curview
6478 return
6479 }
6483 } else {
6485 }
6486 incr historyindex
6488 .tf.bar.leftbut conf -state normal
6489 } else {
6490 .tf.bar.leftbut conf -state disabled
6491 }
6492 .tf.bar.rightbut conf -state disabled
6493 }
6495 proc godo {elt} {
6496 global curview
6502 }
6504 }
6506 proc goback {} {
6507 global history historyindex
6508 focus .
6511 incr historyindex -1
6513 .tf.bar.rightbut conf -state normal
6514 }
6516 .tf.bar.leftbut conf -state disabled
6517 }
6518 }
6520 proc goforw {} {
6521 global history historyindex
6522 focus .
6526 incr historyindex
6528 .tf.bar.leftbut conf -state normal
6529 }
6531 .tf.bar.rightbut conf -state disabled
6532 }
6533 }
6535 proc gettree {id} {
6536 global treefilelist treeidlist diffids diffmergeid treepending
6537 global nullid nullid2
6540 catch {unset diffmergeid}
6542 if {![info exists treepending]} {
6544 set cmd [list | git ls-files]
6546 set cmd [list | git ls-files --stage -t]
6547 } else {
6549 }
6551 return
6552 }
6558 }
6559 } else {
6561 }
6562 }
6564 proc gettreeline {gtf id} {
6565 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6567 set nl 0
6571 } else {
6579 }
6582 }
6585 }
6588 }
6590 unset treepending
6592 if {![info exists diffmergeid]} {
6594 }
6597 } else {
6599 }
6600 return 0
6601 }
6603 proc showfile {f} {
6604 global treefilelist treeidlist diffids nullid nullid2
6605 global ctext_file_names ctext_file_lines
6606 global ctext commentend
6611 return
6612 }
6616 return
6617 }
6618 } else {
6622 return
6623 }
6624 }
6635 settabs 0
6636 }
6638 proc getblobline {bf id} {
6639 global diffids cmitmode ctext
6643 return 0
6644 }
6646 set nl 0
6649 }
6651 global jump_to_here ctext_file_names commentend
6653 # delete last newline
6661 }
6662 return 0
6663 }
6666 }
6668 proc mark_ctext_line {lnum} {
6669 global ctext markbgcolor
6675 }
6677 proc mergediff {id} {
6678 global diffmergeid mdifffd
6679 global diffids treediffs
6680 global parents
6681 global diffcontext
6682 global diffencoding
6683 global limitdiffs vfilelimit curview
6684 global targetline
6689 set targetline {}
6690 # this doesn't seem to actually affect anything...
6694 }
6697 return
6698 }
6702 set diffencoding [get_path_encoding {}]
6705 }
6707 proc getmergediffline {mdf id np} {
6708 global diffmergeid ctext cflist mergemax
6709 global difffilestart mdifffd treediffs
6710 global ctext_file_names ctext_file_lines
6711 global diffencoding jump_to_here targetline diffline
6714 set nr 0
6719 return 0
6720 }
6722 # start of a new file
6735 set targetline {}
6738 }
6739 set diffline 0
6745 }
6747 # do nothing
6748 } else {
6750 # parse the prefix - one ' ', '-' or '+' for each parent
6751 set spaces {}
6752 set minuses {}
6753 set pluses {}
6754 set isbad 0
6763 } else {
6764 set isbad 1
6765 break
6766 }
6767 }
6768 set tags {}
6769 set num {}
6775 lappend tags mresult
6777 }
6780 set num "max"
6781 }
6783 }
6789 set targetline {}
6790 } else {
6791 incr diffline
6792 }
6793 }
6794 }
6795 }
6799 return 0
6800 }
6802 }
6804 proc startdiff {ids} {
6805 global treediffs diffids treepending diffmergeid nullid nullid2
6807 settabs 1
6809 catch {unset diffmergeid}
6813 if {![info exists treepending]} {
6815 }
6816 } else {
6818 }
6819 }
6821 proc path_filter {filter name} {
6826 return 1
6827 }
6828 } else {
6832 return 1
6833 }
6834 }
6835 }
6836 return 0
6837 }
6839 proc addtocflist {ids} {
6840 global treediffs
6844 }
6846 proc diffcmd {ids flags} {
6847 global nullid nullid2
6853 # comparing working directory with some specific revision
6857 } else {
6859 }
6860 } else {
6861 # comparing working directory with index
6864 lappend cmd -R
6865 }
6866 }
6870 # comparing index with specific revision
6873 } else {
6875 }
6876 } else {
6877 # comparing index with HEAD
6878 lappend cmd HEAD
6879 }
6880 } else {
6882 }
6884 }
6886 proc gettreediffs {ids} {
6887 global treediff treepending
6892 set treediff {}
6895 }
6897 proc gettreediffline {gdtf ids} {
6898 global treediff treediffs treepending diffids diffmergeid
6899 global cmitmode vfilelimit curview limitdiffs perfile_attrs
6901 set nr 0
6902 set sublist {}
6903 set max 1000
6905 # cache_gitattr is slow, and even slower on win32 where we
6906 # have to invoke it for only about 30 paths at a time
6907 set max 500
6908 if {[tk windowingsystem] == "win32"} {
6909 set max 120
6910 }
6911 }
6918 }
6922 }
6923 }
6926 }
6929 }
6932 set flist {}
6936 }
6937 }
6939 } else {
6941 }
6942 unset treepending
6946 if {![info exists diffmergeid]} {
6948 }
6949 } else {
6951 }
6952 return 0
6953 }
6955 # empty string or positive integer
6956 proc diffcontextvalidate {v} {
6958 }
6960 proc diffcontextchange {n1 n2 op} {
6961 global diffcontextstring diffcontext
6966 reselectline
6967 }
6968 }
6969 }
6971 proc changeignorespace {} {
6972 reselectline
6973 }
6975 proc getblobdiffs {ids} {
6976 global blobdifffd diffids env
6977 global diffinhdr treediffs
6978 global diffcontext
6979 global ignorespace
6980 global limitdiffs vfilelimit curview
6981 global diffencoding targetline
6985 append cmd " -w"
6986 }
6989 }
6992 return
6993 }
6994 set targetline {}
6995 set diffinhdr 0
6996 set diffencoding [get_path_encoding {}]
7000 }
7002 proc setinlist {var i val} {
7007 }
7010 } else {
7012 }
7013 }
7015 proc makediffhdr {fname ids} {
7016 global ctext curdiffstart treediffs
7017 global ctext_file_names jump_to_here targetline diffline
7022 }
7027 set targetline {}
7030 }
7031 set diffline 0
7032 }
7034 proc getblobdiffline {bdf ids} {
7035 global diffids blobdifffd ctext curdiffstart
7036 global diffnexthead diffnextnote difffilestart
7037 global ctext_file_names ctext_file_lines
7038 global diffinhdr treediffs
7039 global diffencoding jump_to_here targetline diffline
7041 set nr 0
7046 return 0
7047 }
7049 # trim off "diff --git "
7051 set diffinhdr 1
7052 # start of a new file
7055 lappend ctext_file_names ""
7058 # If the name hasn't changed the length will be odd,
7059 # the middle char will be a space, and the two bits either
7060 # side will be a/name and b/name, or "a/name" and "b/name".
7061 # If the name has changed we'll get "rename from" and
7062 # "rename to" or "copy from" and "copy to" lines following this,
7063 # and we'll use them to get the filenames.
7064 # This complexity is necessary because spaces in the filename(s)
7065 # don't get escaped.
7071 continue
7072 }
7073 # unescape if quoted and chop off the a/ from the front
7076 } else {
7078 }
7083 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
7087 set diffinhdr 0
7095 }
7100 }
7106 }
7111 # do nothing
7112 continue
7114 set diffinhdr 0
7115 continue
7116 }
7119 } else {
7128 } else {
7129 # "\ No newline at end of file",
7130 # or something else we don't recognize
7132 }
7136 set targetline {}
7137 } else {
7138 incr diffline
7139 }
7140 }
7141 }
7142 }
7146 return 0
7147 }
7149 }
7151 proc changediffdisp {} {
7152 global ctext diffelide
7156 }
7158 proc highlightfile {loc cline} {
7159 global ctext cflist cflist_top
7166 }
7168 proc prevfile {} {
7169 global difffilestart ctext cmitmode
7172 set prev 0.0
7173 set prevline 1
7178 return
7179 }
7181 incr prevline
7182 }
7184 }
7186 proc nextfile {} {
7187 global difffilestart ctext cmitmode
7191 set line 1
7193 incr line
7196 return
7197 }
7198 }
7199 }
7201 proc clear_ctext {{first 1.0}} {
7202 global ctext smarktop smarkbot
7203 global ctext_file_names ctext_file_lines
7204 global pendinglinks
7209 }
7212 }
7215 catch {unset pendinglinks}
7216 }
7217 set ctext_file_names {}
7218 set ctext_file_lines {}
7219 }
7221 proc settabs {{firstab {}}} {
7222 global firsttabstop tabstop ctext have_tk85
7226 }
7227 set w [font measure textfont "0"]
7233 } else {
7235 }
7236 }
7238 proc incrsearch {name ix op} {
7239 global ctext searchstring searchdirn
7243 # no anchor set, use start of selection, or of visible area
7249 } else {
7251 }
7252 }
7257 }
7258 searchmarkvisible 1
7259 }
7260 }
7262 proc dosearch {} {
7263 global sstring ctext searchstring searchdirn
7267 set searchdirn -forwards
7273 set start "@0,0"
7274 }
7278 bell
7279 return
7280 }
7285 }
7286 }
7288 proc dosearchback {} {
7289 global sstring ctext searchstring searchdirn
7293 set searchdirn -backwards
7300 }
7304 bell
7305 return
7306 }
7311 }
7312 }
7314 proc searchmark {first last} {
7315 global ctext searchstring
7318 while {1} {
7323 }
7324 }
7326 proc searchmarkvisible {doall} {
7327 global ctext smarktop smarkbot
7332 # no overlap with previous
7336 } else {
7340 }
7344 }
7345 }
7346 }
7348 proc scrolltext {f0 f1} {
7349 global searchstring
7353 searchmarkvisible 0
7354 }
7355 }
7357 proc setcoords {} {
7358 global linespc charspc canvx0 canvy0
7359 global xspc1 xspc2 lthickness
7361 set linespc [font metrics mainfont -linespace]
7362 set charspc [font measure mainfont "m"]
7368 }
7370 proc redisplay {} {
7371 global canv
7372 global selectedline
7377 clear_display
7378 setcanvscroll
7380 drawvisible
7384 }
7385 }
7387 proc parsefont {f n} {
7388 global fontattr
7393 set s 10
7396 }
7402 "normal" -
7404 "roman" -
7406 }
7407 }
7408 }
7410 proc fontflags {f {isbold 0}} {
7411 global fontattr
7416 }
7418 proc fontname {f} {
7419 global fontattr
7423 lappend n "bold"
7424 }
7426 lappend n "italic"
7427 }
7429 }
7431 proc incrfont {inc} {
7432 global mainfont textfont ctext canv cflist showrefstop
7433 global stopped entries fontattr
7435 unmarkmatches
7439 set s 1
7440 }
7444 set mainfont [fontname mainfont]
7448 set s 1
7449 }
7453 set textfont [fontname textfont]
7454 setcoords
7455 settabs
7456 redisplay
7457 }
7459 proc clearsha1 {} {
7460 global sha1entry sha1string
7463 }
7464 }
7466 proc sha1change {n1 n2 op} {
7467 global sha1string currentid sha1but
7470 set state disabled
7471 } else {
7472 set state normal
7473 }
7477 } else {
7479 }
7480 }
7482 proc gotocommit {} {
7483 global sha1string tagids headids curview varcid
7491 } else {
7498 return
7499 }
7501 }
7502 }
7503 }
7506 return
7507 }
7510 } else {
7512 }
7514 }
7516 proc lineenter {x y id} {
7517 global hoverx hovery hoverid hovertimer
7518 global commitinfo canv
7524 if {[info exists hovertimer]} {
7526 }
7527 set hovertimer [after 500 linehover]
7529 }
7531 proc linemotion {x y id} {
7532 global hoverx hovery hoverid hovertimer
7537 if {[info exists hovertimer]} {
7539 }
7540 set hovertimer [after 500 linehover]
7541 }
7542 }
7544 proc lineleave {id} {
7545 global hoverid hovertimer canv
7549 if {[info exists hovertimer]} {
7551 unset hovertimer
7552 }
7553 unset hoverid
7554 }
7555 }
7557 proc linehover {} {
7558 global hoverx hovery hoverid hovertimer
7559 global canv linespc lthickness
7560 global commitinfo
7573 -fill \#ffff80 -outline black -width 1 -tags hover]
7576 -font mainfont]
7578 }
7580 proc clickisonarrow {id y} {
7581 global lthickness
7590 }
7591 }
7592 return {}
7593 }
7595 proc arrowjump {id n y} {
7596 global canv
7598 # 1 <-> 2, 3 <-> 4, etc...
7608 set yfrac 0
7609 }
7611 }
7613 proc lineclick {x y id isnew} {
7614 global ctext commitinfo children canv thickerline curview
7617 unmarkmatches
7618 unselectline
7619 normalline
7621 # draw this line thicker than normal
7629 }
7633 return
7634 }
7638 }
7639 # fill the details pane with info about this line
7641 clear_ctext
7642 settabs 0
7654 set i 0
7656 incr i
7666 }
7667 }
7669 init_flist {}
7670 }
7672 proc normalline {} {
7673 global thickerline
7674 if {[info exists thickerline]} {
7676 unset thickerline
7678 }
7679 }
7681 proc selbyid {id} {
7682 global curview
7685 }
7686 }
7688 proc mstime {} {
7689 global startmstime
7690 if {![info exists startmstime]} {
7691 set startmstime [clock clicks -milliseconds]
7692 }
7694 }
7696 proc rowmenu {x y id} {
7697 global rowctxmenu selectedline rowmenuid curview
7698 global nullid nullid2 fakerowmenu mainhead
7700 stopfinding
7703 set state disabled
7704 } else {
7705 set state normal
7706 }
7711 } else {
7713 }
7714 } else {
7716 }
7721 }
7723 proc diffvssel {dirn} {
7724 global rowmenuid selectedline
7730 } else {
7733 }
7736 }
7738 proc doseldiff {oldid newid} {
7739 global ctext
7740 global commitinfo
7743 clear_ctext
7744 init_flist [mc "Top"]
7759 }
7761 proc mkpatch {} {
7762 global rowmenuid currentid commitinfo patchtop patchnum
7764 if {![info exists currentid]} return
7769 set top .patch
7798 incr patchnum
7810 }
7812 proc mkpatchrev {} {
7813 global patchtop
7819 foreach e [list fromsha1 fromhead tosha1 tohead] \
7825 }
7826 }
7828 proc mkpatchgo {} {
7829 global patchtop nullid nullid2
7835 # trim off the initial "|"
7840 }
7842 unset patchtop
7843 }
7845 proc mkpatchcan {} {
7846 global patchtop
7849 unset patchtop
7850 }
7852 proc mktag {} {
7853 global rowmenuid mktagtop commitinfo
7855 set top .maketag
7883 }
7885 proc domktag {} {
7886 global mktagtop env tagids idtags
7891 error_popup [mc "No tag name specified"]
7892 return
7893 }
7896 return
7897 }
7898 if {[catch {
7900 } err]} {
7902 return
7903 }
7909 dispneartags 0
7910 run refill_reflist
7911 }
7913 proc redrawtags {id} {
7914 global canv linehtag idpos currentid curview cmitlisted
7915 global canvxmax iddrawn circleitem mainheadid circlecolors
7921 set ofill yellow
7922 } else {
7924 }
7934 setcanvscroll
7935 }
7938 }
7939 }
7941 proc mktagcan {} {
7942 global mktagtop
7945 unset mktagtop
7946 }
7948 proc mktaggo {} {
7949 domktag
7950 mktagcan
7951 }
7953 proc writecommit {} {
7954 global rowmenuid wrcomtop commitinfo wrcomcmd
7956 set top .writecommit
7988 }
7990 proc wrcomgo {} {
7991 global wrcomtop
7998 }
8000 unset wrcomtop
8001 }
8003 proc wrcomcan {} {
8004 global wrcomtop
8007 unset wrcomtop
8008 }
8010 proc mkbranch {} {
8011 global rowmenuid mkbrtop
8013 set top .makebranch
8037 }
8039 proc mkbrgo {top} {
8040 global headids idheads
8044 set cmdargs {}
8045 set old_id {}
8047 error_popup [mc "Please specify a name for the new branch"]
8048 return
8049 }
8051 if {![confirm_popup [mc \
8053 return
8054 }
8056 lappend cmdargs -f
8057 }
8060 nowbusy newbranch
8061 update
8062 if {[catch {
8064 } err]} {
8065 notbusy newbranch
8067 } else {
8068 notbusy newbranch
8074 } else {
8079 }
8080 dispneartags 0
8081 run refill_reflist
8082 }
8083 }
8085 proc cherrypick {} {
8086 global rowmenuid curview
8087 global mainhead mainheadid
8089 set oldhead [exec git rev-parse HEAD]
8092 set ok [confirm_popup [mc "Commit %s is already\
8093 included in branch %s -- really re-apply it?" \
8096 }
8097 nowbusy cherrypick [mc "Cherry-picking"]
8098 update
8099 # Unfortunately git-cherry-pick writes stuff to stderr even when
8100 # no error occurs, and exec takes that as an indication of error...
8102 notbusy cherrypick
8104 return
8105 }
8106 set newhead [exec git rev-parse HEAD]
8108 notbusy cherrypick
8109 error_popup [mc "No changes committed"]
8110 return
8111 }
8118 }
8123 }
8124 notbusy cherrypick
8125 }
8127 proc resethead {} {
8128 global mainhead rowmenuid confirm_ok resettype
8130 set confirm_ok 0
8131 set w ".confirmreset"
8137 -justify center -aspect 1000
8142 set resettype mixed
8144 -text [mc "Soft: Leave working tree and index untouched"]
8147 -text [mc "Mixed: Leave working tree untouched, reset index"]
8150 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8161 if {[catch {set fd [open \
8164 } else {
8165 dohidelocalchanges
8167 nowbusy reset [mc "Resetting"]
8169 }
8170 }
8172 proc readresetstat {fd} {
8173 global mainhead mainheadid showlocalchanges rprogcoord
8178 adjustprogress
8179 }
8180 return 1
8181 }
8182 set rprogcoord 0
8183 adjustprogress
8184 notbusy reset
8187 }
8189 set newhead [exec git rev-parse HEAD]
8196 }
8198 doshowlocalchanges
8199 }
8200 return 0
8201 }
8203 # context menu for a head
8204 proc headmenu {x y id head} {
8205 global headmenuid headmenuhead headctxmenu mainhead
8207 stopfinding
8210 set state normal
8212 set state disabled
8213 }
8217 }
8219 proc cobranch {} {
8220 global headmenuid headmenuhead headids
8221 global showlocalchanges mainheadid
8223 # check the tree is clean first??
8224 nowbusy checkout [mc "Checking out"]
8225 update
8226 dohidelocalchanges
8227 if {[catch {
8229 } err]} {
8230 notbusy checkout
8233 dodiffindex
8234 }
8235 } else {
8237 }
8238 }
8240 proc readcheckoutstat {fd newhead newheadid} {
8241 global mainhead mainheadid headids showlocalchanges progresscoords
8246 adjustprogress
8247 }
8248 return 1
8249 }
8250 set progresscoords {0 0}
8251 adjustprogress
8252 notbusy checkout
8255 }
8263 dodiffindex
8264 }
8265 }
8267 proc rmbranch {} {
8268 global headmenuid headmenuhead mainhead
8269 global idheads
8273 # this check shouldn't be needed any more...
8275 error_popup [mc "Cannot delete the currently checked-out branch"]
8276 return
8277 }
8280 # the stuff on this branch isn't on any other branch
8281 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8283 }
8284 nowbusy rmbranch
8285 update
8287 notbusy rmbranch
8289 return
8290 }
8294 notbusy rmbranch
8295 dispneartags 0
8296 run refill_reflist
8297 }
8299 # Display a list of tags and heads
8300 proc showrefs {} {
8301 global showrefstop bgcolor fgcolor selectbgcolor
8302 global bglist fglist reflistfilter reflist maincursor
8304 set top .showrefs
8308 refill_reflist
8309 return
8310 }
8317 -spacing1 1 -spacing3 1 -state disabled
8328 set reflistfilter "*"
8329 trace add variable reflistfilter write reflistfilter_change
8341 set reflist {}
8342 refill_reflist
8343 }
8345 proc sel_reflist {w x y} {
8346 global showrefstop reflist headids tagids otherrefids
8356 }
8358 }
8360 proc unsel_reflist {} {
8361 global showrefstop
8365 }
8367 proc reflistfilter_change {n1 n2 op} {
8368 global reflistfilter
8370 after cancel refill_reflist
8371 after 200 refill_reflist
8372 }
8374 proc refill_reflist {} {
8375 global reflist reflistfilter showrefstop headids tagids otherrefids
8376 global curview
8379 set refs {}
8380 foreach n [array names headids] {
8384 } else {
8386 }
8387 }
8388 }
8389 foreach n [array names tagids] {
8393 } else {
8395 }
8396 }
8397 }
8398 foreach n [array names otherrefids] {
8402 } else {
8404 }
8405 }
8406 }
8414 set i 0
8415 set j 0
8424 }
8425 } else {
8426 set cmp -1
8427 }
8428 } else {
8429 set cmp 1
8430 }
8432 -1 {
8434 incr i
8435 }
8436 0 {
8437 incr i
8438 incr j
8439 }
8440 1 {
8445 incr j
8446 }
8447 }
8448 }
8450 # delete last newline
8453 }
8455 # Stuff for finding nearby tags
8456 proc getallcommits {} {
8457 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8458 global idheads idtags idotherrefs allparents tagobjid
8460 if {![info exists allcommits]} {
8461 set nextarc 0
8462 set allcommits 0
8463 set seeds {}
8464 set allcwait 0
8465 set cachedarcs 0
8466 set allccache [file join [gitdir] "gitk.cache"]
8467 if {![catch {
8469 set allcwait 1
8471 }]} return
8472 }
8475 return
8476 }
8477 set cmd [list | git rev-list --parents]
8480 set ids "--all"
8481 } else {
8482 set refs [concat [array names idheads] [array names idtags] \
8483 [array names idotherrefs]]
8484 set ids {}
8485 set tagobjs {}
8486 foreach name [array names tagobjid] {
8488 }
8493 }
8494 }
8498 }
8499 }
8500 }
8504 incr allcommits
8505 nowbusy allcommits
8507 } else {
8508 dispneartags 0
8509 }
8510 }
8512 # Since most commits have 1 parent and 1 child, we group strings of
8513 # such commits into "arcs" joining branch/merge points (BMPs), which
8514 # are commits that either don't have 1 parent or don't have 1 child.
8515 #
8516 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8517 # arcout(id) - outgoing arcs for BMP
8518 # arcids(a) - list of IDs on arc including end but not start
8519 # arcstart(a) - BMP ID at start of arc
8520 # arcend(a) - BMP ID at end of arc
8521 # growing(a) - arc a is still growing
8522 # arctags(a) - IDs out of arcids (excluding end) that have tags
8523 # archeads(a) - IDs out of arcids (excluding end) that have heads
8524 # The start of an arc is at the descendent end, so "incoming" means
8525 # coming from descendents, and "outgoing" means going towards ancestors.
8527 proc getallclines {fd} {
8528 global allparents allchildren idtags idheads nextarc
8529 global arcnos arcids arctags arcout arcend arcstart archeads growing
8530 global seeds allcommits cachedarcs allcupdate
8532 set nid 0
8536 # seen it already
8537 continue
8538 }
8539 set cachedarcs 0
8546 } else {
8552 }
8555 }
8557 # seen parent already
8560 }
8564 }
8567 continue
8568 }
8569 }
8574 }
8576 set ao {}
8579 set a [incr nextarc]
8588 # seen it already, may need to make a new branch
8591 }
8595 }
8597 }
8599 }
8601 global cached_dheads cached_dtags cached_atags
8602 catch {unset cached_dheads}
8603 catch {unset cached_dtags}
8604 catch {unset cached_atags}
8605 }
8608 }
8609 set cacheok 1
8610 if {[catch {
8613 } err]} {
8614 # got an error reading the list of commits
8615 # if we were updating, try rereading the whole thing again
8617 incr allcommits -1
8619 return
8620 }
8621 error_popup "[mc "Error reading commit topology information;\
8622 branch and preceding/following tag information\
8624 set cacheok 0
8625 }
8626 if {[incr allcommits -1] == 0} {
8627 notbusy allcommits
8629 run savecache
8630 }
8631 }
8632 dispneartags 0
8633 return 0
8634 }
8636 proc recalcarc {a} {
8637 global arctags archeads arcids idtags idheads
8639 set at {}
8640 set ah {}
8644 }
8647 }
8648 }
8651 }
8653 proc splitarc {p} {
8654 global arcnos arcids nextarc arctags archeads idtags idheads
8655 global arcstart arcend arcout allparents growing
8660 return
8661 }
8666 return
8667 }
8668 set na [incr nextarc]
8671 } else {
8675 }
8685 }
8690 } else {
8693 }
8694 }
8696 # reconstruct tags and heads lists
8700 } else {
8703 }
8704 }
8706 # Update things for a new commit added that is a child of one
8707 # existing commit. Used when cherry-picking.
8708 proc addnewchild {id p} {
8709 global allparents allchildren idtags nextarc
8710 global arcnos arcids arctags arcout arcend arcstart archeads growing
8711 global seeds allcommits
8719 set a [incr nextarc]
8727 }
8730 }
8732 # This implements a cache for the topology information.
8733 # The cache saves, for each arc, the start and end of the arc,
8734 # the ids on the arc, and the outgoing arcs from the end.
8735 proc readcache {f} {
8736 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8737 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8738 global allcwait
8744 }
8745 if {[catch {
8747 # finish reading the cache and setting up arctags, etc.
8751 foreach id [array names idtags] {
8757 }
8758 }
8759 }
8760 foreach id [array names idheads] {
8766 }
8767 }
8768 }
8772 }
8773 }
8774 set allcwait 0
8775 } else {
8785 }
8789 } else {
8793 }
8794 }
8800 }
8803 }
8806 }
8808 }
8809 } err]} {
8811 return 0
8812 }
8814 getallcommits
8815 }
8817 }
8819 proc getcache {f} {
8820 global nextarc cachedarcs possible_seeds
8822 if {[catch {
8825 # make sure it's an integer
8828 set nextarc 0
8829 set possible_seeds {}
8831 } err]} {
8833 }
8834 return 0
8835 }
8837 proc dropcache {err} {
8838 global allcwait nextarc cachedarcs seeds
8841 foreach v {arcnos arcout arcids arcstart arcend growing \
8842 arctags archeads allparents allchildren} {
8845 }
8846 set allcwait 0
8847 set nextarc 0
8848 set cachedarcs 0
8849 set seeds {}
8850 getallcommits
8851 }
8853 proc writecache {f} {
8854 global cachearc cachedarcs allccache
8855 global arcstart arcend arcnos arcids arcout
8861 }
8862 if {[catch {
8866 } else {
8868 }
8869 }
8870 } err]} {
8874 return 0
8875 }
8880 return 0
8881 }
8882 return 1
8883 }
8885 proc savecache {} {
8886 global nextarc cachedarcs cachearc allccache
8889 set cachearc 0
8891 catch {
8895 }
8896 }
8898 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8899 # or 0 if neither is true.
8900 proc anc_or_desc {a b} {
8901 global arcout arcstart arcend arcnos cached_isanc
8904 # Both are on the same arc(s); either both are the same BMP,
8905 # or if one is not a BMP, the other is also not a BMP or is
8906 # the BMP at end of the arc (and it only has 1 incoming arc).
8907 # Or both can be BMPs with no incoming arcs.
8909 return 0
8910 }
8916 return 1
8917 } else {
8918 return -1
8919 }
8920 }
8926 } else {
8927 set aend {}
8928 }
8930 } else {
8932 }
8937 } else {
8938 set bend {}
8939 }
8941 } else {
8943 }
8945 return 1
8946 }
8948 return -1
8949 }
8952 return 1
8953 }
8954 }
8957 return -1
8958 }
8960 return 0
8961 }
8962 }
8970 continue
8971 }
8977 return 1
8981 return -1
8982 }
8988 }
8989 }
8990 }
8993 return 0
8994 }
8998 # and returns 0 if so and 1 if not.
8999 # If we subsequently discover a tag on such a growing tip, and that
9002 # isn't a good choice to display as a descendent tag of
9006 #
9007 proc is_certain {desc anc} {
9008 global arcnos arcout arcstart arcend growing problems
9010 set certain {}
9012 # tags on the same arc are certain
9014 return 1
9015 }
9020 }
9021 }
9024 } else {
9027 }
9029 return 1
9030 }
9033 set nnh 1
9034 set ngrowanc 0
9038 incr nnh -1
9039 }
9045 incr ngrowanc
9046 }
9047 } else {
9054 incr nnh -1
9055 }
9057 incr ngrowanc -1
9058 }
9068 incr nnh -1
9069 }
9071 incr ngrowanc -1
9072 }
9074 }
9075 }
9076 }
9077 }
9078 }
9079 }
9083 } else {
9086 incr nnh
9087 }
9088 }
9089 }
9090 }
9091 foreach x [array names growanc] {
9093 return 0
9094 }
9095 return 0
9096 }
9097 return 1
9098 }
9100 proc validate_arctags {a} {
9101 global arctags idtags
9103 set i -1
9106 incr i
9109 incr i -1
9110 }
9111 }
9113 }
9115 proc validate_archeads {a} {
9116 global archeads idheads
9118 set i -1
9121 incr i
9124 incr i -1
9125 }
9126 }
9128 }
9130 # Return the list of IDs that have tags that are descendents of id,
9131 # ignoring IDs that are descendents of IDs already reported.
9132 proc desctags {id} {
9133 global arcnos arcstart arcids arctags idtags allparents
9134 global growing cached_dtags
9137 return {}
9138 }
9139 set t1 [clock clicks -milliseconds]
9142 # part-way along an arc; check that arc first
9147 set tid {}
9152 }
9155 }
9156 }
9160 }
9161 }
9164 }
9169 set nc 1
9175 incr nc -1
9176 }
9177 # ignore tags on starting node
9181 set ta 1
9184 set ta 1
9185 }
9186 }
9193 }
9194 }
9203 }
9206 }
9208 incr nc -1
9209 }
9211 }
9212 }
9213 }
9218 incr nc
9219 }
9220 }
9221 }
9222 }
9223 set tags {}
9224 foreach id [array names tagloc] {
9229 }
9230 }
9231 }
9232 }
9233 set t2 [clock clicks -milliseconds]
9236 # remove tags that are descendents of other tags
9244 incr j -1
9245 incr i -1
9248 incr i -1
9249 break
9250 }
9251 }
9252 }
9254 if {[array names growing] ne {}} {
9255 # graph isn't finished, need to check if any tag could get
9256 # eclipsed by another tag coming later. Simply ignore any
9257 # tags that could later get eclipsed.
9258 set ctags {}
9262 }
9263 }
9266 } else {
9268 }
9269 } else {
9271 }
9272 set t3 [clock clicks -milliseconds]
9276 }
9278 }
9280 proc anctags {id} {
9281 global arcnos arcids arcout arcend arctags idtags allparents
9282 global growing cached_atags
9285 return {}
9286 }
9287 set t1 [clock clicks -milliseconds]
9290 # part-way along an arc; check that arc first
9299 }
9300 }
9301 }
9303 return {}
9304 }
9308 }
9309 }
9312 }
9317 set taglist {}
9318 set nc 1
9324 incr nc -1
9325 }
9326 # ignore tags on starting node
9330 set td 1
9333 set td 1
9334 }
9335 }
9341 }
9342 }
9354 }
9355 }
9358 }
9360 incr nc -1
9361 }
9363 }
9364 }
9365 }
9370 incr nc
9371 }
9372 }
9373 }
9374 }
9375 set t2 [clock clicks -milliseconds]
9377 set tags {}
9378 foreach id [array names tagloc] {
9383 }
9384 }
9385 }
9386 }
9388 # remove tags that are ancestors of other tags
9396 incr j -1
9397 incr i -1
9400 incr i -1
9401 break
9402 }
9403 }
9404 }
9406 if {[array names growing] ne {}} {
9407 # graph isn't finished, need to check if any tag could get
9408 # eclipsed by another tag coming later. Simply ignore any
9409 # tags that could later get eclipsed.
9410 set ctags {}
9414 }
9415 }
9418 } else {
9420 }
9421 } else {
9423 }
9424 set t3 [clock clicks -milliseconds]
9428 }
9430 }
9432 # Return the list of IDs that have heads that are descendents of id,
9433 # including id itself if it has a head.
9434 proc descheads {id} {
9435 global arcnos arcstart arcids archeads idheads cached_dheads
9436 global allparents
9439 return {}
9440 }
9441 set aret {}
9443 # part-way along an arc; check it first
9452 }
9453 }
9455 }
9459 set ret {}
9464 } else {
9467 }
9473 }
9474 }
9479 }
9480 }
9481 }
9482 }
9486 }
9488 proc addedtag {id} {
9489 global arcnos arcout cached_dtags cached_atags
9494 }
9495 catch {unset cached_dtags}
9496 catch {unset cached_atags}
9497 }
9499 proc addedhead {hid head} {
9500 global arcnos arcout cached_dheads
9505 }
9506 catch {unset cached_dheads}
9507 }
9509 proc removedhead {hid head} {
9510 global cached_dheads
9512 catch {unset cached_dheads}
9513 }
9515 proc movedhead {hid head} {
9516 global arcnos arcout cached_dheads
9521 }
9522 catch {unset cached_dheads}
9523 }
9525 proc changedrefs {} {
9526 global cached_dheads cached_dtags cached_atags
9527 global arctags archeads arcnos arcout idheads idtags
9529 foreach id [concat [array names idheads] [array names idtags]] {
9535 }
9536 }
9537 }
9538 catch {unset cached_dtags}
9539 catch {unset cached_atags}
9540 catch {unset cached_dheads}
9541 }
9543 proc rereadrefs {} {
9544 global idtags idheads idotherrefs mainheadid
9546 set refids [concat [array names idtags] \
9547 [array names idheads] [array names idotherrefs]]
9551 }
9552 }
9554 readrefs
9555 changedrefs
9557 [array names idheads] [array names idotherrefs]]]
9562 }
9563 }
9567 }
9568 run refill_reflist
9569 }
9571 proc listrefs {id} {
9572 global idtags idheads idotherrefs
9574 set x {}
9577 }
9578 set y {}
9581 }
9582 set z {}
9585 }
9587 }
9589 proc showtag {tag isnew} {
9590 global ctext tagcontents tagids linknum tagobjid
9594 }
9596 clear_ctext
9597 settabs 0
9598 set linknum 0
9600 catch {
9602 }
9603 }
9606 } else {
9608 }
9611 init_flist {}
9612 }
9614 proc doquit {} {
9615 global stopped
9616 global gitktmpdir
9618 set stopped 100
9619 savestuff .
9620 destroy .
9622 if {[info exists gitktmpdir]} {
9624 }
9625 }
9627 proc mkfontdisp {font top which} {
9636 }
9638 proc choosefont {font which} {
9639 global fontparam fontlist fonttop fontattr
9647 set top .gitkfont
9650 font create sample
9656 set fontlist [lsort [font families]]
9667 -textvariable fontparam(size) \
9668 -validatecommand {string is integer -strict %s}
9670 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9671 -variable fontparam(weight) -onvalue bold -offvalue normal
9673 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9674 -variable fontparam(slant) -onvalue italic -offvalue roman
9678 -background white
9680 -fill black -tags text
9692 trace add variable fontparam write chg_fontparam
9693 } else {
9696 }
9701 }
9702 }
9704 proc centertext {w} {
9706 }
9708 proc fontok {} {
9709 global fontparam fontpref prefstop
9715 }
9718 }
9722 fontcan
9723 }
9725 proc fontcan {} {
9726 global fonttop fontparam
9728 if {[info exists fonttop]} {
9730 catch {font delete sample}
9731 unset fonttop
9732 unset fontparam
9733 }
9734 }
9736 proc selfontfam {} {
9737 global fonttop fontparam
9742 }
9743 }
9745 proc chg_fontparam {v sub op} {
9746 global fontparam
9749 }
9751 proc doprefs {} {
9752 global maxwidth maxgraphpct
9753 global oldprefs prefstop showneartags showlocalchanges
9754 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
9755 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9757 set top .gitkprefs
9761 return
9762 }
9763 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9764 limitdiffs tabstop perfile_attrs} {
9766 }
9773 -font optionfont
9777 -font optionfont
9815 -padx 10
9817 -command choose_extdiff
9844 "diff hunk header" \
9850 [mc "marked line background"] \
9874 }
9876 proc choose_extdiff {} {
9877 global extdifftool
9879 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9882 }
9883 }
9885 proc choosecolor {v vi w x cmd} {
9894 }
9896 proc setselbg {c} {
9897 global bglist cflist
9900 }
9904 }
9906 proc setbg {c} {
9907 global bglist
9911 }
9912 }
9914 proc setfg {c} {
9915 global fglist canv
9919 }
9922 }
9924 proc prefscan {} {
9925 global oldprefs prefstop
9927 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9928 limitdiffs tabstop perfile_attrs} {
9931 }
9933 unset prefstop
9934 fontcan
9935 }
9937 proc prefsok {} {
9938 global maxwidth maxgraphpct
9939 global oldprefs prefstop showneartags showlocalchanges
9940 global fontpref mainfont textfont uifont
9941 global limitdiffs treediffs perfile_attrs
9944 unset prefstop
9945 fontcan
9946 set fontchanged 0
9950 eval font configure mainfont [fontflags mainfont]
9951 eval font configure mainfontbold [fontflags mainfont 1]
9952 setcoords
9953 set fontchanged 1
9954 }
9958 eval font configure textfont [fontflags textfont]
9959 eval font configure textfontbold [fontflags textfont 1]
9960 }
9964 eval font configure uifont [fontflags uifont]
9965 }
9966 settabs
9969 doshowlocalchanges
9970 } else {
9971 dohidelocalchanges
9972 }
9973 }
9976 # treediffs elements are limited by path;
9977 # won't have encodings cached if perfile_attrs was just turned on
9978 catch {unset treediffs}
9979 }
9982 redisplay
9985 reselectline
9986 }
9987 }
9989 proc formatdate {d} {
9990 global datetimeformat
9993 }
9995 }
9997 # This list of encoding names and aliases is distilled from
9998 # http://www.iana.org/assignments/character-sets.
9999 # Not all of them are supported by Tcl.
10000 set encoding_aliases {
10001 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10002 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10003 { ISO-10646-UTF-1 csISO10646UTF1 }
10004 { ISO_646.basic:1983 ref csISO646basic1983 }
10005 { INVARIANT csINVARIANT }
10006 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10007 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10008 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10009 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10010 { NATS-DANO iso-ir-9-1 csNATSDANO }
10011 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10012 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10013 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10014 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10015 { ISO-2022-KR csISO2022KR }
10016 { EUC-KR csEUCKR }
10017 { ISO-2022-JP csISO2022JP }
10018 { ISO-2022-JP-2 csISO2022JP2 }
10019 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10020 csISO13JISC6220jp }
10021 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10022 { IT iso-ir-15 ISO646-IT csISO15Italian }
10023 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10024 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10025 { greek7-old iso-ir-18 csISO18Greek7Old }
10026 { latin-greek iso-ir-19 csISO19LatinGreek }
10027 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10028 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10029 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10030 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10031 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10032 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10033 { INIS iso-ir-49 csISO49INIS }
10034 { INIS-8 iso-ir-50 csISO50INIS8 }
10035 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10036 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10037 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10038 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10039 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10040 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10041 csISO60Norwegian1 }
10042 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10043 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10044 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10045 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10046 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10047 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10048 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10049 { greek7 iso-ir-88 csISO88Greek7 }
10050 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10051 { iso-ir-90 csISO90 }
10052 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10053 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10054 csISO92JISC62991984b }
10055 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10056 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10057 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10058 csISO95JIS62291984handadd }
10059 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10060 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10061 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10062 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10063 CP819 csISOLatin1 }
10064 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10065 { T.61-7bit iso-ir-102 csISO102T617bit }
10066 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10067 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10068 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10069 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10070 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10071 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10072 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10073 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10074 arabic csISOLatinArabic }
10075 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10076 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10077 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10078 greek greek8 csISOLatinGreek }
10079 { T.101-G2 iso-ir-128 csISO128T101G2 }
10080 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10081 csISOLatinHebrew }
10082 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10083 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10084 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10085 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10086 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10087 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10088 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10089 csISOLatinCyrillic }
10090 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10091 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10092 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10093 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10094 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10095 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10096 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10097 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10098 { ISO_10367-box iso-ir-155 csISO10367Box }
10099 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10100 { latin-lap lap iso-ir-158 csISO158Lap }
10101 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10102 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10103 { us-dk csUSDK }
10104 { dk-us csDKUS }
10105 { JIS_X0201 X0201 csHalfWidthKatakana }
10106 { KSC5636 ISO646-KR csKSC5636 }
10107 { ISO-10646-UCS-2 csUnicode }
10108 { ISO-10646-UCS-4 csUCS4 }
10109 { DEC-MCS dec csDECMCS }
10110 { hp-roman8 roman8 r8 csHPRoman8 }
10111 { macintosh mac csMacintosh }
10112 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10113 csIBM037 }
10114 { IBM038 EBCDIC-INT cp038 csIBM038 }
10115 { IBM273 CP273 csIBM273 }
10116 { IBM274 EBCDIC-BE CP274 csIBM274 }
10117 { IBM275 EBCDIC-BR cp275 csIBM275 }
10118 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10119 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10120 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10121 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10122 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10123 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10124 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10125 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10126 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10127 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10128 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10129 { IBM437 cp437 437 csPC8CodePage437 }
10130 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10131 { IBM775 cp775 csPC775Baltic }
10132 { IBM850 cp850 850 csPC850Multilingual }
10133 { IBM851 cp851 851 csIBM851 }
10134 { IBM852 cp852 852 csPCp852 }
10135 { IBM855 cp855 855 csIBM855 }
10136 { IBM857 cp857 857 csIBM857 }
10137 { IBM860 cp860 860 csIBM860 }
10138 { IBM861 cp861 861 cp-is csIBM861 }
10139 { IBM862 cp862 862 csPC862LatinHebrew }
10140 { IBM863 cp863 863 csIBM863 }
10141 { IBM864 cp864 csIBM864 }
10142 { IBM865 cp865 865 csIBM865 }
10143 { IBM866 cp866 866 csIBM866 }
10144 { IBM868 CP868 cp-ar csIBM868 }
10145 { IBM869 cp869 869 cp-gr csIBM869 }
10146 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10147 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10148 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10149 { IBM891 cp891 csIBM891 }
10150 { IBM903 cp903 csIBM903 }
10151 { IBM904 cp904 904 csIBBM904 }
10152 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10153 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10154 { IBM1026 CP1026 csIBM1026 }
10155 { EBCDIC-AT-DE csIBMEBCDICATDE }
10156 { EBCDIC-AT-DE-A csEBCDICATDEA }
10157 { EBCDIC-CA-FR csEBCDICCAFR }
10158 { EBCDIC-DK-NO csEBCDICDKNO }
10159 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10160 { EBCDIC-FI-SE csEBCDICFISE }
10161 { EBCDIC-FI-SE-A csEBCDICFISEA }
10162 { EBCDIC-FR csEBCDICFR }
10163 { EBCDIC-IT csEBCDICIT }
10164 { EBCDIC-PT csEBCDICPT }
10165 { EBCDIC-ES csEBCDICES }
10166 { EBCDIC-ES-A csEBCDICESA }
10167 { EBCDIC-ES-S csEBCDICESS }
10168 { EBCDIC-UK csEBCDICUK }
10169 { EBCDIC-US csEBCDICUS }
10170 { UNKNOWN-8BIT csUnknown8BiT }
10171 { MNEMONIC csMnemonic }
10172 { MNEM csMnem }
10173 { VISCII csVISCII }
10174 { VIQR csVIQR }
10175 { KOI8-R csKOI8R }
10176 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10177 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10178 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10179 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10180 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10181 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10182 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10183 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10184 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10185 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10186 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10187 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10188 { IBM1047 IBM-1047 }
10189 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10190 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10191 { UNICODE-1-1 csUnicode11 }
10192 { CESU-8 csCESU-8 }
10193 { BOCU-1 csBOCU-1 }
10194 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10195 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10196 l8 }
10197 { ISO-8859-15 ISO_8859-15 Latin-9 }
10198 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10199 { GBK CP936 MS936 windows-936 }
10200 { JIS_Encoding csJISEncoding }
10201 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10202 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10203 EUC-JP }
10204 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10205 { ISO-10646-UCS-Basic csUnicodeASCII }
10206 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10207 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10208 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10209 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10210 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10211 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10212 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10213 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10214 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10215 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10216 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10217 { Ventura-US csVenturaUS }
10218 { Ventura-International csVenturaInternational }
10219 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10220 { PC8-Turkish csPC8Turkish }
10221 { IBM-Symbols csIBMSymbols }
10222 { IBM-Thai csIBMThai }
10223 { HP-Legal csHPLegal }
10224 { HP-Pi-font csHPPiFont }
10225 { HP-Math8 csHPMath8 }
10226 { Adobe-Symbol-Encoding csHPPSMath }
10227 { HP-DeskTop csHPDesktop }
10228 { Ventura-Math csVenturaMath }
10229 { Microsoft-Publishing csMicrosoftPublishing }
10230 { Windows-31J csWindows31J }
10231 { GB2312 csGB2312 }
10232 { Big5 csBig5 }
10233 }
10235 proc tcl_encoding {enc} {
10236 global encoding_aliases tcl_encoding_cache
10239 }
10240 set names [encoding names]
10245 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10248 }
10249 }
10254 # look through the aliases for one that tcl knows about
10260 }
10261 }
10263 }
10264 break
10265 }
10266 }
10267 set tclenc {}
10270 }
10273 }
10275 proc gitattr {path attr default} {
10276 global path_attr_cache
10279 } else {
10280 set r "unspecified"
10283 }
10285 }
10288 }
10290 }
10292 proc cache_gitattr {attr pathlist} {
10293 global path_attr_cache
10294 set newlist {}
10298 }
10299 }
10300 set lim 1000
10301 if {[tk windowingsystem] == "win32"} {
10302 # windows has a 32k limit on the arguments to a command...
10303 set lim 30
10304 }
10313 }
10315 }
10316 }
10317 }
10318 }
10319 }
10321 proc get_path_encoding {path} {
10322 global gui_encoding perfile_attrs
10328 }
10329 }
10331 }
10333 # First check that Tcl/Tk is recent enough
10334 if {[catch {package require Tk 8.4} err]} {
10335 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10336 Gitk requires at least Tcl/Tk 8.4."]
10337 exit 1
10338 }
10340 # defaults...
10341 set wrcomcmd "git diff-tree --stdin -p --pretty"
10343 set gitencoding {}
10344 catch {
10345 set gitencoding [exec git config --get i18n.commitencoding]
10346 }
10348 set gitencoding "utf-8"
10349 }
10353 }
10355 set gui_encoding [encoding system]
10356 catch {
10357 set enc [exec git config --get gui.encoding]
10362 } else {
10364 }
10365 }
10366 }
10368 set mainfont {Helvetica 9}
10369 set textfont {Courier 9}
10370 set uifont {Helvetica 9 bold}
10371 set tabstop 8
10372 set findmergefiles 0
10373 set maxgraphpct 50
10374 set maxwidth 16
10375 set revlistorder 0
10376 set fastdate 0
10377 set uparrowlen 5
10378 set downarrowlen 5
10379 set mingaplen 100
10380 set cmitmode "patch"
10381 set wrapcomment "none"
10382 set showneartags 1
10383 set maxrefs 20
10384 set maxlinelen 200
10385 set showlocalchanges 1
10386 set limitdiffs 1
10387 set datetimeformat "%Y-%m-%d %H:%M:%S"
10388 set autoselect 1
10389 set perfile_attrs 0
10391 set extdifftool "meld"
10393 set colors {green red blue magenta darkgrey brown orange}
10394 set bgcolor white
10395 set fgcolor black
10396 set diffcolors {red "#00a000" blue}
10397 set diffcontext 3
10398 set ignorespace 0
10399 set selectbgcolor gray85
10400 set markbgcolor "#e0e0ff"
10402 set circlecolors {white blue gray blue blue}
10404 # button for popping up context menus
10405 if {[tk windowingsystem] eq "aqua"} {
10406 set ctxbut <Button-2>
10407 } else {
10408 set ctxbut <Button-3>
10409 }
10411 ## For msgcat loading, first locate the installation location.
10412 if { [info exists ::env(GITK_MSGSDIR)] } {
10413 ## Msgsdir was manually set in the environment.
10414 set gitk_msgsdir $::env(GITK_MSGSDIR)
10415 } else {
10416 ## Let's guess the prefix from argv0.
10420 unset gitk_prefix
10421 }
10423 ## Internationalization (i18n) through msgcat and gettext. See
10424 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10425 package require msgcat
10426 namespace import ::msgcat::mc
10427 ## And eventually load the actual message catalog
10430 catch {source ~/.gitk}
10432 font create optionfont -family sans-serif -size -12
10435 eval font create mainfont [fontflags mainfont]
10436 eval font create mainfontbold [fontflags mainfont 1]
10439 eval font create textfont [fontflags textfont]
10440 eval font create textfontbold [fontflags textfont 1]
10443 eval font create uifont [fontflags uifont]
10445 setoptions
10447 # check that we can find a .git directory somewhere...
10448 if {[catch {set gitdir [gitdir]}]} {
10449 show_error {} . [mc "Cannot find a git repository here."]
10450 exit 1
10451 }
10454 exit 1
10455 }
10457 set selecthead {}
10458 set selectheadid {}
10460 set revtreeargs {}
10461 set cmdline_files {}
10462 set i 0
10463 set revtreeargscmd {}
10466 "" { }
10467 "--" {
10469 break
10470 }
10471 "--select-commit=*" {
10473 }
10474 "--argscmd=*" {
10476 }
10477 default {
10479 }
10480 }
10481 incr i
10482 }
10485 set selecthead {}
10486 }
10489 # no -- on command line, but some arguments (other than --argscmd)
10490 if {[catch {
10495 # Unfortunately git rev-parse doesn't produce an error when
10496 # something is both a revision and a filename. To be consistent
10497 # with git log and git rev-list, check revtreeargs for filenames.
10500 show_error {} . [mc "Ambiguous argument '%s': both revision\
10502 exit 1
10503 }
10504 }
10505 } err]} {
10507 # so look for "fatal:".
10511 }
10513 exit 1
10514 }
10515 }
10517 set nullid "0000000000000000000000000000000000000000"
10518 set nullid2 "0000000000000000000000000000000000000001"
10519 set nullfile "/dev/null"
10523 set runq {}
10524 set history {}
10525 set historyindex 0
10526 set fh_serial 0
10527 set nhl_names {}
10528 set highlight_paths {}
10529 set findpattern {}
10530 set searchdirn -forwards
10531 set boldrows {}
10532 set boldnamerows {}
10533 set diffelide {0 0}
10534 set markingmatches 0
10535 set linkentercount 0
10536 set need_redisplay 0
10537 set nrows_drawn 0
10538 set firsttabstop 0
10540 set nextviewnum 1
10541 set curview 0
10542 set selectedview 0
10543 set selectedhlview [mc "None"]
10544 set highlight_related [mc "None"]
10545 set highlight_files {}
10546 set viewfiles(0) {}
10547 set viewperm(0) 0
10548 set viewargs(0) {}
10549 set viewargscmd(0) {}
10551 set selectedline {}
10552 set numcommits 0
10553 set loginstance 0
10554 set cmdlineok 0
10555 set stopped 0
10556 set stuffsaved 0
10557 set patchnum 0
10558 set lserial 0
10559 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10560 setcoords
10561 makewindow
10562 # wait for the window to become visible
10563 tkwait visibility .
10565 readrefs
10568 # create a view for the files/dirs specified on the command line
10569 set curview 1
10570 set selectedview 1
10571 set nextviewnum 2
10572 set viewname(1) [mc "Command line"]
10576 set viewperm(1) 0
10577 set vdatemode(1) 0
10578 addviewmenu 1
10579 .bar.view entryconf [mca "Edit view..."] -state normal
10580 .bar.view entryconf [mca "Delete view"] -state normal
10581 }
10583 if {[info exists permviews]} {
10586 incr nextviewnum
10593 }
10594 }
10595 getcommits {}