| blob | 6d9e528d2c55e11237280dc61bf86eaf8dc299ef |
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 "-[puabwcrRBMC]" -
159 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
160 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
161 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
162 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
163 "--ignore-space-change" - "-U*" - "--unified=*" {
164 # These request or affect diff output, which we don't want.
165 # Some could be used to set our defaults for diff display.
166 lappend diffargs $arg
167 }
175 # These cause our parsing of git log's output to fail, or else
176 # they're options we want to set ourselves, so ignore them.
177 }
182 # These are harmless, and some are even useful
183 lappend glflags $arg
184 }
191 # These mean that we get a subset of the commits
193 lappend glflags $arg
194 }
196 # This appears to be the only one that has a value as a
197 # separate word following it
200 lappend glflags $arg
201 }
203 lappend revargs $arg
204 }
207 # git rev-parse doesn't understand --merge
208 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
209 }
211 # Other flag arguments including -<n>
215 # a flag argument that we don't recognize;
216 # that means we can't optimize
218 }
219 lappend glflags $arg
220 }
221 default {
222 # Non-flag arguments specify commits or ranges of commits
224 lappend revargs --gitk-symmetric-diff-marker
225 }
226 lappend revargs $arg
227 }
228 }
229 }
236 }
239 global vposids vnegids
242 set revs HEAD
243 }
245 # we get stdout followed by stderr in $err
246 # for an unknown rev, git rev-parse echoes it and then errors out
259 }
262 }
263 break
264 }
265 lappend badrev $line
266 }
267 }
270 }
280 lappend ret $id
283 }
284 }
288 lappend ret $id
291 }
292 lappend pos $id
293 }
294 incr sdm -1
295 }
299 }
301 # Start off a git log process and arrange to read its output
303 global startmsecs commitidx viewcomplete curview
304 global tclencoding
305 global viewargs viewargscmd viewfiles vfilelimit
306 global showlocalchanges
307 global viewactive viewinstances vmergeonly
308 global mainheadid viewmainheadid viewmainheadid_orig
309 global vcanopt vflags vrevs vorigargs
313 # these are set this way for the error exits
316 varcinit $view
325 }
327 }
334 global nr_unmerged
341 }
343 }
344 }
351 }
355 }
363 }
369 get_viewmainhead $view
370 }
373 }
377 }
383 }
386 global commfd leftover
389 catch {
396 }
397 }
399 nukefile $fd
402 }
404 proc stop_backends {} {
405 global commfd
408 stop_instance $inst
409 }
410 }
413 global viewinstances
416 stop_instance $inst
417 }
419 }
422 global pending_select mainheadid selectheadid
430 }
431 }
434 global canv curview need_redisplay viewactive
436 initlayout
438 reset_pending_select $selid
443 }
444 }
446 proc updatecommits {} {
447 global curview vcanopt vorigargs vfilelimit viewinstances
448 global viewactive viewcomplete tclencoding
449 global startmsecs showneartags showlocalchanges
450 global mainheadid viewmainheadid viewmainheadid_orig pending_select
451 global isworktree
452 global varcid vposids vnegids vflags vrevs
455 rereadrefs
459 dohidelocalchanges
460 }
464 get_viewmainhead $view
465 }
466 }
468 doshowlocalchanges
469 }
475 return
476 }
477 # note: getting the delta when negative refs change is hard,
478 # and could require multiple git log invocations, so in that
479 # case we ask git log for all the commits (not just the delta)
483 # take out positive refs that we asked for before or
484 # that we have already seen
489 lappend newrevs $rev
490 incr npos
491 }
493 lappend $newrevs $rev
494 }
495 }
499 }
503 }
509 return
510 }
513 }
519 }
523 reset_pending_select {}
526 getallcommits
527 }
528 }
530 proc reloadcommits {} {
531 global curview viewcomplete selectedline currentid thickerline
532 global showneartags treediffs commitinterest cached_commitrow
533 global targetid
538 }
541 stop_rev_list $curview
542 }
543 resetvarcs $curview
548 readrefs
549 changedrefs
551 getallcommits
552 }
553 clear_display
557 setcanvscroll
558 getcommits $selid
560 }
562 # This makes a string representation of a positive integer which
563 # sorts as a string in numerical order
571 }
573 }
575 # Procedures used in reordering commits from git log (without
576 # --topo-order) into the order for display.
579 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
580 global vtokmod varcmod vrowmod varcix vlastins
594 }
597 global varcid varccommits parents children vseedcount ordertok
603 }
604 # some commits might have children but haven't been seen yet
607 }
610 }
613 }
615 }
617 # returns a list of the commits with no children
619 global vdownptr vleftptr varcstart
626 }
628 }
631 global varcid varctok parents children vdatemode
632 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
633 global commitdata commitinfo vseedcount varccommits vlastins
640 }
644 }
647 }
653 }
662 }
663 }
668 }
675 }
679 }
686 }
692 }
701 }
704 global varcid varcstart varccommits varctok
705 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
712 # "%" sorts before "0"...
722 }
732 }
733 }
736 global parents children varctok varcstart varccommits
737 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
746 lappend todo $a
751 }
752 }
753 }
754 incr ntot
761 }
762 }
764 }
771 }
777 }
786 }
787 }
792 }
794 continue
795 }
802 }
803 }
808 modify_arc $v $ka
809 }
811 modify_arc $v $b
812 }
819 }
822 }
825 }
834 }
839 }
846 }
850 }
852 }
853 }
858 }
859 }
861 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
862 }
864 # Fix up the graph after we have found out that in view $v,
865 # $p (a commit that we have already seen) is actually the parent
866 # of the last commit in arc $a.
868 global varcid varcstart varctok vupptr
872 splitvarc $p $v
874 }
875 # seeds always need to be renumbered
879 renumbervarc $pa $v
880 }
881 }
884 global cmitlisted children parents varcid varctok vtokmod
885 global varccommits ordertok commitidx numcommits curview
886 global targetid targetrow
888 readcommit $id
896 modify_arc $v $a
897 }
903 }
904 fix_reversal $p $a $v
908 setcanvscroll
911 incr targetrow
912 }
913 }
914 }
915 }
918 global varcid varccommits parents children cmitlisted
919 global commitidx varctok vtokmod targetid targetrow curview numcommits
926 return
927 }
934 # note we deliberately don't update varcstart($v) even if $i == 0
936 modify_arc $v $a $i
939 incr targetrow
940 }
941 }
942 setcanvscroll
943 drawvisible
944 }
947 global varcid varccommits parents children commitidx
948 global varctok vtokmod cmitlisted currentid selectedline
949 global targetid curview numcommits
954 return
955 }
961 return
962 }
972 }
973 modify_arc $v $a $i
975 unset currentid
977 }
980 }
981 setcanvscroll
982 drawvisible
983 }
986 global children nullid nullid2
991 }
992 }
994 }
997 global children nullid nullid2
1004 }
1005 }
1007 }
1010 global varctok varcid
1014 }
1016 # This assumes that if lim is not given, the caller has checked that
1017 # arc a's token is less than $vtokmod($v)
1019 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1027 }
1028 }
1035 }
1040 }
1042 }
1044 undolayout $r
1045 }
1046 }
1049 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1050 global varcid vrownum varcorder varcix varccommits
1051 global vupptr vdownptr vleftptr varctok
1052 global displayorder parentlist curview cached_commitrow
1059 }
1061 }
1065 # go up the tree until we find something that has a row number,
1066 # or we get to a seed
1068 }
1083 }
1085 }
1089 # go down if possible
1092 # if not, go left, or go up until we can go left
1097 }
1099 }
1101 incr arcn
1106 }
1112 }
1113 }
1115 # Test whether view $v contains commit $id
1117 global varcid
1120 }
1122 # Return the row number for commit $id in the current view
1124 global varcid varccommits varcrow curview cached_commitrow
1125 global varctok vtokmod
1131 }
1134 update_arcrows $v
1135 }
1138 }
1143 }
1147 }
1149 # Returns 1 if a is on an earlier row than b, otherwise 0
1151 global varcid varctok curview
1157 }
1161 }
1163 }
1168 }
1180 }
1181 }
1183 }
1185 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1187 global vrownum curview commitidx displayorder parentlist
1188 global varccommits varcorder parents vrowmod varcrow
1189 global d_valid_start d_valid_end
1192 update_arcrows $curview
1193 }
1209 }
1211 lappend displayorder $id
1213 }
1217 lset displayorder $i $id
1219 incr i
1220 }
1221 }
1222 incr r $al
1223 }
1224 }
1227 global displayorder
1233 }
1235 }
1238 global varctok varccommits varcid parents children
1239 global cmitlisted commitidx vtokmod
1248 # add p as a new commit
1249 incr missing_parents
1257 }
1260 modify_arc $v $b
1261 }
1265 }
1266 }
1270 }
1271 }
1272 }
1274 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1275 # Assumes we already have an arc for $rwid.
1277 global children parents varcid varctok vtokmod varccommits
1280 # make $rwid be $ch's parent in place of $id
1284 }
1286 # add $ch to $rwid's children and sort the list if necessary
1290 }
1291 # fix the graph after joining $id to $rwid
1293 fix_reversal $rwid $a $v
1294 # parentlist is wrong for the last element of arc $a
1295 # even if displayorder is right, hence the 3rd arg here
1297 }
1298 }
1300 # Mechanism for registering a command to be executed when we come
1301 # across a particular commit. To handle the case when only the
1302 # prefix of the commit is known, the commitinterest array is now
1303 # indexed by the first 4 characters of the ID. Each element is a
1304 # list of id, cmd pairs.
1306 global commitinterest
1309 }
1312 global commitinterest
1321 lappend newlist $i $script
1322 }
1323 }
1328 }
1329 }
1331 }
1334 global cmitlisted leftover
1335 global commitidx commitdata vdatemode
1336 global parents children curview hlview
1337 global idpending ordertok
1338 global varccommits varcid varctok vtokmod vfilelimit
1341 # git log doesn't terminate the last commit with a null...
1344 }
1348 }
1349 global commfd viewcomplete viewactive viewname
1350 global viewinstances
1355 }
1356 # set it blocking so we wait for the process to terminate
1362 }
1365 bad arguments to git log."
1367 append err \
1368 " (Note: arguments to gitk are passed to git log\
1369 to allow selection of commits to be displayed.)"
1370 }
1373 }
1374 error_popup $err
1375 }
1378 # Check if we have seen any ids listed as parents that haven't
1379 # appeared in the list
1380 closevarcs $view
1381 notbusy $view
1382 }
1384 run chewcommits
1385 }
1387 }
1395 break
1396 }
1403 }
1416 }
1418 }
1423 break
1424 }
1425 }
1426 }
1431 }
1433 exit 1
1434 }
1441 # when doing path limiting, so work around that here
1442 # by working out the rewritten parent with git rev-list
1443 # and if we already know about it, using the rewritten
1444 # parent as a substitute parent for $id's children.
1448 }]} {
1450 # use $rwid in place of $id
1451 rewrite_commit $view $id $rwid
1452 continue
1453 }
1454 }
1455 }
1461 }
1466 }
1478 }
1479 }
1481 # new arc
1483 }
1485 modify_arc $view $a
1486 }
1491 }
1502 }
1504 fix_reversal $p $a $view
1505 }
1506 }
1507 incr i
1508 }
1512 }
1514 global numcommits hlview
1518 run chewcommits
1519 }
1521 # we never actually get here...
1522 run vhighlightmore
1523 }
1526 }
1527 }
1529 }
1531 proc chewcommits {} {
1532 global curview hlview viewcomplete
1533 global pending_select
1535 layoutmore
1537 global commitidx varctok
1538 global numcommits startmsecs
1541 update
1542 reset_pending_select {}
1549 }
1550 }
1552 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1553 #puts "overall $ms ms for $numcommits commits"
1554 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1557 }
1558 notbusy layout
1559 }
1561 }
1564 global tclencoding
1566 # Invoke git-log to handle automatic encoding conversion
1568 # Read the results using i18n.logoutputencoding
1572 }
1574 close $fd
1575 # Remove the heading line
1579 }
1584 }
1587 global commitinfo cdate
1598 # should never happen...
1600 }
1611 }
1612 }
1614 # take the first non-blank line of the comment as the headline
1619 }
1624 }
1626 # git log indents the comment by 4 spaces;
1627 # if we got this via git cat-file, add the indentation
1630 append newcomment " "
1631 append newcomment $line
1633 }
1635 }
1638 }
1641 }
1644 global commitdata commitinfo
1649 readcommit $id
1652 }
1653 }
1655 }
1657 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1658 # and are present in the current view.
1659 # This is fairly slow...
1661 global varcid curview
1666 }
1668 }
1670 proc readrefs {} {
1671 global tagids idtags headids idheads tagobjid
1672 global otherrefids idotherrefs mainhead mainheadid
1673 global selecthead selectheadid
1677 }
1689 }
1695 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1696 # which is what we want since the former is the commit ID
1702 }
1708 }
1709 }
1713 catch {
1718 }
1719 }
1722 catch {
1724 }
1725 }
1726 }
1728 # skip over fake commits
1729 proc first_real_row {} {
1730 global nullid nullid2 numcommits
1735 break
1736 }
1737 }
1739 }
1741 # update things for a head moved to a child of its previous location
1743 global headids idheads
1748 }
1750 # update things when a head has been removed
1752 global headids idheads
1760 }
1761 }
1763 }
1766 global have_tk85
1768 # In MacOS Tk 8.4 transient appears to work by setting
1769 # overrideredirect, which is utterly useless, since the
1770 # windows get no border, and are not even kept above
1771 # the parent.
1774 wm transient $window $origin
1776 # Windows fails to place transient windows normally, so
1777 # schedule a callback to center them on the parent.
1780 }
1781 }
1792 tkwait window $top
1793 }
1796 set w .error
1797 toplevel $w
1798 make_transient $w $owner
1799 show_error $w $w $msg
1800 }
1803 global confirm_ok
1805 set w .confirm
1806 toplevel $w
1807 make_transient $w $owner
1818 tkwait window $w
1820 }
1822 proc setoptions {} {
1824 option add *Panedwindow.sashRelief raised startupFile
1825 option add *Button.font uifont startupFile
1826 option add *Checkbutton.font uifont startupFile
1827 option add *Radiobutton.font uifont startupFile
1828 option add *Menu.font uifont startupFile
1829 option add *Menubutton.font uifont startupFile
1830 option add *Label.font uifont startupFile
1831 option add *Message.font uifont startupFile
1832 option add *Entry.font uifont startupFile
1833 }
1835 # Make a menu and submenus.
1836 # m is the window name for the menu, items is the list of menu items to add.
1837 # Each item is a list {mc label type description options...}
1838 # mc is ignored; it's so we can put mc there to alert xgettext
1839 # label is the string that appears in the menu
1840 # type is cascade, command or radiobutton (should add checkbutton)
1841 # description depends on type; it's the sublist for cascade, the
1842 # command to invoke for command, or {variable value} for radiobutton
1844 menu $m
1846 set Meta1 Cmd
1848 set Meta1 Ctrl
1849 }
1860 }
1861 }
1866 }
1869 }
1873 }
1874 }
1880 }
1881 }
1882 }
1884 # translate string and remove ampersands
1887 }
1889 proc makewindow {} {
1890 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1891 global tabstop
1892 global findtype findtypemenu findloc findstring fstring geometry
1893 global entries sha1entry sha1string sha1but
1894 global diffcontextstring diffcontext
1895 global ignorespace
1896 global maincursor textcursor curtextcursor
1897 global rowctxmenu fakerowmenu mergemax wrapcomment
1898 global highlight_files gdttype
1899 global searchstring sstring
1900 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1901 global headctxmenu progresscanv progressitem progresscoords statusw
1902 global fprogitem fprogcoord lastprogupdate progupdatepending
1903 global rprogitem rprogcoord rownumsel numcommits
1904 global have_tk85
1906 # The "mc" arguments here are purely so that xgettext
1907 # sees the following string as needing to be translated
1908 makemenu .bar {
1918 }}
1921 }}
1928 }}
1932 }}
1933 }
1934 . configure -menu .bar
1936 # the gui has upper and lower half, parts of a paned window.
1937 panedwindow .ctop -orient vertical
1939 # possibly use assumed geometry
1947 }
1949 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1951 frame .tf.histframe
1954 # create three canvases
1955 set cscroll .tf.histframe.csb
1956 set canv .tf.histframe.pwclist.canv
1957 canvas $canv \
1961 .tf.histframe.pwclist add $canv
1962 set canv2 .tf.histframe.pwclist.canv2
1963 canvas $canv2 \
1966 .tf.histframe.pwclist add $canv2
1967 set canv3 .tf.histframe.pwclist.canv3
1968 canvas $canv3 \
1971 .tf.histframe.pwclist add $canv3
1975 # a scroll bar to rule them
1979 lappend bglist $canv $canv2 $canv3
1982 # we have two button bars at bottom of top frame. Bar 1
1983 frame .tf.bar
1986 set sha1entry .tf.bar.sha1
1988 set sha1but .tf.bar.sha1label
1992 pack .tf.bar.sha1label -side left
1994 trace add variable sha1string write sha1change
1998 #define left_width 16
1999 #define left_height 16
2000 static unsigned char left_bits[] = {
2004 }
2006 #define right_width 16
2007 #define right_height 16
2008 static unsigned char right_bits[] = {
2012 }
2027 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2028 -side left
2029 global selectedline
2030 trace add variable selectedline write selectedline_change
2032 # Status label and progress bar
2033 set statusw .tf.bar.status
2037 set progresscanv .tf.bar.progress
2050 # build up the bottom bar of upper window
2055 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2062 trace add variable gdttype write gdttype_change
2066 set fstring .tf.lbar.findstring
2067 lappend entries $fstring
2069 trace add variable findstring write find_change
2073 trace add variable findtype write findcom_change
2077 trace add variable findloc write find_change
2078 pack .tf.lbar.findloc -side right
2079 pack .tf.lbar.findtype -side right
2082 # Finish putting the upper half of the viewer together
2086 .ctop add .tf
2090 # now build up the bottom
2091 panedwindow .pwbottom -orient horizontal
2093 # lower left, a text box over search bar, scroll bar to the right
2094 # if we know window height, then that will set the lower text height, otherwise
2095 # we set lower text height which will drive window height
2100 }
2101 frame .bleft.top
2102 frame .bleft.mid
2103 frame .bleft.bottom
2107 set sstring .bleft.top.sstring
2109 lappend entries $sstring
2110 trace add variable searchstring write incrsearch
2123 -textvariable diffcontextstring
2125 trace add variable diffcontextstring write diffcontextchange
2126 lappend entries .bleft.mid.diffcontext
2127 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2131 set ctext .bleft.bottom.ctext
2138 }
2145 grid .bleft.bottom.sbhorizontal -sticky ew
2150 lappend bglist $ctext
2151 lappend fglist $ctext
2180 .pwbottom add .bleft
2183 # lower right
2184 frame .bright
2185 frame .bright.mode
2192 set cflist .bright.cfiles
2194 text $cflist \
2197 -font mainfont \
2202 lappend bglist $cflist
2203 lappend fglist $cflist
2207 $cflist tag configure highlight \
2211 .pwbottom add .bright
2212 .ctop add .pwbottom
2214 # restore window width & height if known
2219 }
2222 }
2224 }
2225 }
2228 set M1B M1
2230 set M1B Control
2231 }
2236 #bindall <B1-Motion> {selcanvline %W %x %y}
2246 allcanvs yview scroll $delta units
2247 }
2248 }
2249 }
2271 bindkey p "selnextline -1"
2272 bindkey n "selnextline 1"
2273 bindkey z "goback"
2274 bindkey x "goforw"
2275 bindkey i "selnextline -1"
2276 bindkey k "selnextline 1"
2277 bindkey j "goback"
2278 bindkey l "goforw"
2279 bindkey b prevfile
2285 bindkey f nextfile
2302 wm protocol . WM_DELETE_WINDOW doquit
2311 global ctxbut
2315 set maincursor [. cget -cursor]
2319 set rowctxmenu .rowctxmenu
2321 {mc "Diff this -> selected" command {diffvssel 0}}
2322 {mc "Diff selected -> this" command {diffvssel 1}}
2323 {mc "Make patch" command mkpatch}
2324 {mc "Create tag" command mktag}
2325 {mc "Write commit to file" command writecommit}
2326 {mc "Create new branch" command mkbranch}
2327 {mc "Cherry-pick this commit" command cherrypick}
2328 {mc "Reset HEAD branch to here" command resethead}
2329 }
2332 set fakerowmenu .fakerowmenu
2334 {mc "Diff this -> selected" command {diffvssel 0}}
2335 {mc "Diff selected -> this" command {diffvssel 1}}
2336 {mc "Make patch" command mkpatch}
2337 }
2340 set headctxmenu .headctxmenu
2342 {mc "Check out this branch" command cobranch}
2343 {mc "Remove this branch" command rmbranch}
2344 }
2347 global flist_menu
2348 set flist_menu .flistctxmenu
2350 {mc "Highlight this too" command {flist_hl 0}}
2351 {mc "Highlight this only" command {flist_hl 1}}
2352 {mc "External diff" command {external_diff}}
2353 {mc "Blame parent commit" command {external_blame 1}}
2354 }
2357 global diff_menu
2358 set diff_menu .diffctxmenu
2360 {mc "Show origin of this line" command show_line_source}
2361 {mc "Run git gui blame on this line" command {external_blame_diff}}
2362 }
2364 }
2366 # Windows sends all mouse wheel events to the current focused window, not
2367 # the one where the mouse hovers, so bind those events here and redirect
2368 # to the correct window
2369 proc windows_mousewheel_redirector {W X Y D} {
2370 global canv canv2 canv3
2376 } else {
2377 catch {
2379 }
2380 }
2381 }
2382 }
2384 # Update row number label when selectedline changes
2385 proc selectedline_change {n1 n2 op} {
2386 global selectedline rownumsel
2389 set rownumsel {}
2390 } else {
2392 }
2393 }
2395 # mouse-2 makes all windows scan vertically, but only the one
2396 # the cursor is in scans horizontally
2397 proc canvscan {op w x y} {
2398 global canv canv2 canv3
2402 } else {
2404 }
2405 }
2406 }
2408 proc scrollcanv {cscroll f0 f1} {
2410 drawvisible
2411 flushhighlights
2412 }
2414 # when we make a key binding for the toplevel, make sure
2415 # it doesn't get triggered when that key is pressed in the
2416 # find string entry widget.
2417 proc bindkey {ev script} {
2418 global entries
2422 set escript [bind Entry <Key>]
2423 }
2426 }
2427 }
2429 # set the focus back to the toplevel for any click outside
2430 # the entry widgets
2431 proc click {w} {
2432 global ctext entries
2435 }
2436 focus .
2437 }
2439 # Adjust the progress bar for a change in requested extent or canvas size
2440 proc adjustprogress {} {
2441 global progresscanv progressitem progresscoords
2442 global fprogitem fprogcoord lastprogupdate progupdatepending
2443 global rprogitem rprogcoord
2452 set now [clock clicks -milliseconds]
2454 set progupdatepending 0
2455 update
2457 set progupdatepending 1
2459 }
2460 }
2462 proc doprogupdate {} {
2463 global lastprogupdate progupdatepending
2466 set progupdatepending 0
2467 set lastprogupdate [clock clicks -milliseconds]
2468 update
2469 }
2470 }
2472 proc savestuff {w} {
2473 global canv canv2 canv3 mainfont textfont uifont tabstop
2474 global stuffsaved findmergefiles maxgraphpct
2475 global maxwidth showneartags showlocalchanges
2476 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2477 global cmitmode wrapcomment datetimeformat limitdiffs
2478 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2479 global autoselect extdifftool perfile_attrs markbgcolor
2482 if {![winfo viewable .]} return
2483 catch {
2484 set f [open "~/.gitk-new" w]
2521 }
2522 }
2525 file rename -force "~/.gitk-new" "~/.gitk"
2526 }
2527 set stuffsaved 1
2528 }
2530 proc resizeclistpanes {win w} {
2531 global oldwidth
2538 } else {
2543 set sash0 30
2544 }
2547 }
2552 }
2553 }
2554 }
2557 }
2559 }
2561 proc resizecdetpanes {win w} {
2562 global oldwidth
2567 } else {
2571 set sash0 45
2572 }
2575 }
2576 }
2578 }
2580 }
2582 proc allcanvs args {
2583 global canv canv2 canv3
2587 }
2589 proc bindall {event action} {
2590 global canv canv2 canv3
2594 }
2596 proc about {} {
2597 global uifont
2598 set w .about
2601 return
2602 }
2607 Gitk - a commit viewer for git
2609 Copyright © 2005-2008 Paul Mackerras
2611 Use and redistribute under the terms of the GNU General Public License"] \
2612 -justify center -aspect 400 -border 2 -bg white -relief groove
2619 }
2621 proc keys {} {
2622 set w .keys
2625 return
2626 }
2627 if {[tk windowingsystem] eq {aqua}} {
2628 set M1T Cmd
2629 } else {
2630 set M1T Ctrl
2631 }
2636 [mc "Gitk key bindings:"]
2639 [mc "<Home> Move to first commit"]
2640 [mc "<End> Move to last commit"]
2641 [mc "<Up>, p, i Move up one commit"]
2642 [mc "<Down>, n, k Move down one commit"]
2643 [mc "<Left>, z, j Go back in history list"]
2644 [mc "<Right>, x, l Go forward in history list"]
2645 [mc "<PageUp> Move up one page in commit list"]
2646 [mc "<PageDown> Move down one page in commit list"]
2653 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2654 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2655 [mc "<Delete>, b Scroll diff view up one page"]
2656 [mc "<Backspace> Scroll diff view up one page"]
2657 [mc "<Space> Scroll diff view down one page"]
2658 [mc "u Scroll diff view up 18 lines"]
2659 [mc "d Scroll diff view down 18 lines"]
2662 [mc "<Return> Move to next find hit"]
2663 [mc "/ Focus the search box"]
2664 [mc "? Move to previous find hit"]
2665 [mc "f Scroll diff view to next file"]
2672 [mc "<F5> Update"]
2673 " \
2674 -justify left -bg white -border 2 -relief groove
2682 }
2684 # Procedures for manipulating the file list window at the
2685 # bottom right of the overall window.
2687 proc treeview {w l openlevs} {
2688 global treecontents treediropen treeheight treeparent treeindex
2690 set ix 0
2691 set treeindex() 0
2692 set lev 0
2693 set prefix {}
2694 set prefixend -1
2695 set prefendstack {}
2696 set htstack {}
2697 set ht 0
2698 set treecontents() {}
2705 }
2712 incr lev -1
2713 }
2717 set ht 0
2729 set ht 1
2734 set str "\n"
2742 }
2743 incr lev
2744 }
2747 incr ht
2748 set str "\n"
2752 }
2754 }
2755 }
2763 }
2765 }
2767 proc linetoelt {l} {
2768 global treeheight treecontents
2770 set y 2
2771 set prefix {}
2772 while {1} {
2776 }
2777 set n 1
2782 incr y
2783 break
2784 }
2785 }
2787 }
2788 }
2789 }
2791 proc highlight_tree {y prefix} {
2792 global treeheight treecontents cflist
2798 }
2799 incr y
2802 }
2803 }
2805 }
2807 proc treeclosedir {w dir} {
2808 global treediropen treeheight treeparent treeindex
2820 }
2821 }
2823 proc treeopendir {w dir} {
2824 global treediropen treeheight treeparent treecontents treeindex
2831 set lev 0
2832 set str "\n"
2835 incr lev
2836 append str "\t"
2838 }
2853 } else {
2856 }
2857 }
2870 }
2872 }
2873 }
2875 proc treeclick {w x y} {
2876 global treediropen cmitmode ctext cflist cflist_top
2879 if {![info exists cflist_top]} return
2886 return
2887 }
2893 } else {
2895 }
2896 }
2898 proc setfilelist {id} {
2899 global treefilelist cflist jump_to_here
2906 }
2907 }
2908 }
2910 image create bitmap tri-rt -background black -foreground blue -data {
2911 #define tri-rt_width 13
2912 #define tri-rt_height 13
2913 static unsigned char tri-rt_bits[] = {
2914 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2915 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2916 0x00, 0x00};
2917 } -maskdata {
2918 #define tri-rt-mask_width 13
2919 #define tri-rt-mask_height 13
2920 static unsigned char tri-rt-mask_bits[] = {
2921 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2922 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2923 0x08, 0x00};
2924 }
2925 image create bitmap tri-dn -background black -foreground blue -data {
2926 #define tri-dn_width 13
2927 #define tri-dn_height 13
2928 static unsigned char tri-dn_bits[] = {
2929 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2930 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2931 0x00, 0x00};
2932 } -maskdata {
2933 #define tri-dn-mask_width 13
2934 #define tri-dn-mask_height 13
2935 static unsigned char tri-dn-mask_bits[] = {
2936 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2937 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2938 0x00, 0x00};
2939 }
2941 image create bitmap reficon-T -background black -foreground yellow -data {
2942 #define tagicon_width 13
2943 #define tagicon_height 9
2944 static unsigned char tagicon_bits[] = {
2945 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2946 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2947 } -maskdata {
2948 #define tagicon-mask_width 13
2949 #define tagicon-mask_height 9
2950 static unsigned char tagicon-mask_bits[] = {
2951 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2952 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2953 }
2954 set rectdata {
2955 #define headicon_width 13
2956 #define headicon_height 9
2957 static unsigned char headicon_bits[] = {
2958 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2959 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2960 }
2961 set rectmask {
2962 #define headicon-mask_width 13
2963 #define headicon-mask_height 9
2964 static unsigned char headicon-mask_bits[] = {
2965 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2966 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2967 }
2968 image create bitmap reficon-H -background black -foreground green \
2970 image create bitmap reficon-o -background black -foreground "#ddddff" \
2973 proc init_flist {first} {
2974 global cflist cflist_top difffilestart
2980 set cflist_top 1
2982 } else {
2983 catch {unset cflist_top}
2984 }
2986 set difffilestart {}
2987 }
2989 proc highlight_tag {f} {
2990 global highlight_paths
2994 return "bold"
2995 }
2996 }
2997 return {}
2998 }
3000 proc highlight_filelist {} {
3001 global cmitmode cflist
3010 }
3011 }
3012 } else {
3013 highlight_tree 2 {}
3014 }
3016 }
3018 proc unhighlight_filelist {} {
3019 global cflist
3024 }
3026 proc add_flist {fl} {
3027 global cflist
3033 }
3035 }
3037 proc sel_flist {w x y} {
3038 global ctext difffilestart cflist cflist_top cmitmode
3041 if {![info exists cflist_top]} return
3048 } else {
3050 }
3051 }
3053 proc pop_flist_menu {w X Y x y} {
3054 global ctext cflist cmitmode flist_menu flist_menu_file
3055 global treediffs diffids
3057 stopfinding
3063 } else {
3065 }
3067 set xdiffstate "normal"
3069 set xdiffstate "disabled"
3070 }
3071 # Disable "External diff" item in tree mode
3074 }
3076 proc find_ctext_fileinfo {line} {
3077 global ctext_file_names ctext_file_lines
3083 return {}
3084 } else {
3086 }
3087 }
3089 proc pop_diff_menu {w X Y x y} {
3090 global ctext diff_menu flist_menu_file
3091 global diff_menu_txtpos diff_menu_line
3092 global diff_menu_filebase
3096 # don't pop up the menu on hunk-separator or file-separator lines
3098 return
3099 }
3100 stopfinding
3106 }
3108 proc flist_hl {only} {
3109 global flist_menu_file findstring gdttype
3114 } else {
3116 }
3117 set gdttype [mc "touching paths:"]
3118 }
3120 proc save_file_from_commit {filename output what} {
3121 global nullfile
3126 }
3128 return {}
3129 }
3131 }
3133 proc external_diff_get_one_file {diffid filename diffdir} {
3134 global nullid nullid2 nullfile
3135 global gitdir
3141 }
3143 }
3147 }
3151 }
3153 proc external_diff {} {
3154 global gitktmpdir nullid nullid2
3155 global flist_menu_file
3156 global diffids
3157 global diffnum
3158 global gitdir extdifftool
3161 # no reference commit given
3164 # diffing working copy with index
3167 # diffing index with HEAD
3168 set diffidfrom "HEAD"
3169 } else {
3170 # use first parent commit
3171 global parentlist selectedline
3173 }
3174 } else {
3177 }
3179 # make sure that several diffs wont collide
3180 if {![info exists gitktmpdir]} {
3182 [format ".gitk-tmp.%s" [pid]]]
3185 unset gitktmpdir
3186 return
3187 }
3188 set diffnum 0
3189 }
3190 incr diffnum
3194 return
3195 }
3197 # gather files to diff
3207 } else {
3210 }
3211 }
3212 }
3214 proc find_hunk_blamespec {base line} {
3215 global ctext
3217 # Find and parse the hunk header
3223 s_line old_specs osz osz1 new_line nsz]} {
3224 return
3225 }
3227 # base lines for the parents
3231 old_spec old_line osz]} {
3232 return
3233 }
3235 }
3237 # Now scan the lines to determine offset within the hunk
3239 set dline 0
3242 # Determine if the line is removed
3246 # Choose a parent index
3249 } else {
3253 } else {
3254 # blame the current commit
3255 set parent -1
3256 }
3257 }
3258 # then count other lines that belong to it
3261 # Determine if the line is removed
3266 incr dline
3267 }
3268 } else {
3270 incr dline
3271 }
3272 }
3273 }
3274 incr parent
3275 } else {
3276 set parent 0
3277 }
3281 }
3283 proc external_blame_diff {} {
3284 global currentid cmitmode
3285 global diff_menu_txtpos diff_menu_line
3286 global diff_menu_filebase flist_menu_file
3289 set parent_idx 0
3291 } else {
3296 } else {
3297 set parent_idx 0
3298 set line 0
3299 }
3300 }
3303 }
3306 # at stage 0 or 2
3307 proc index_sha1 {fname} {
3315 }
3316 }
3318 return {}
3319 }
3321 # Turn an absolute path into one relative to the current directory
3322 proc make_relative {f} {
3324 set here [file split [pwd]]
3325 set ei 0
3326 set hi 0
3327 set res {}
3330 lappend res ".."
3331 } else {
3332 incr ei
3333 }
3334 incr hi
3335 }
3338 }
3340 proc external_blame {parent_idx {line {}}} {
3341 global flist_menu_file gitdir
3342 global nullid nullid2
3343 global parentlist selectedline currentid
3347 } else {
3349 }
3352 error_popup [mc "No such commit"]
3353 return
3354 }
3356 set cmdline [list git gui blame]
3359 }
3361 # Unfortunately it seems git gui blame doesn't like
3362 # being given an absolute path...
3368 }
3369 }
3371 proc show_line_source {} {
3372 global cmitmode currentid parents curview blamestuff blameinst
3373 global diff_menu_line diff_menu_filebase flist_menu_file
3374 global nullid nullid2 gitdir
3376 set from_index {}
3380 } else {
3386 return
3387 }
3388 incr pi -1
3391 # must be a merge in progress...
3392 if {[catch {
3393 # get the last line from .git/MERGE_HEAD
3397 } err]} {
3399 return
3400 }
3402 # need to do the blame from the index
3403 if {[catch {
3405 } err]} {
3407 return
3408 }
3409 } else {
3411 }
3412 } else {
3414 }
3416 }
3417 set blameargs {}
3420 }
3423 lappend blameargs --contents -
3424 } else {
3426 }
3428 if {[catch {
3430 } err]} {
3432 return
3433 }
3434 nowbusy blaming [mc "Searching"]
3440 }
3442 proc stopblaming {} {
3443 global blameinst
3445 if {[info exists blameinst]} {
3447 unset blameinst
3448 notbusy blaming
3449 }
3450 }
3452 proc read_line_source {fd inst} {
3453 global blamestuff curview commfd blameinst nullid nullid2
3457 }
3459 return 1
3460 }
3462 unset blameinst
3463 notbusy blaming
3467 return 0
3468 }
3470 set fname {}
3476 # look for "filename" line
3480 break
3481 }
3482 }
3483 }
3485 # all looks good, select it
3487 # blame uses all-zeroes to mean not committed,
3488 # which would mean a change in the index
3490 }
3493 } else {
3494 error_popup [mc "That line comes from commit %s, \
3496 }
3497 } else {
3498 puts "oops couldn't parse git blame output"
3499 }
3500 return 0
3501 }
3504 proc delete_at_eof {f dir} {
3509 }
3511 return 0
3512 }
3513 return 1
3514 }
3516 # Functions for adding and removing shell-type quoting
3518 proc shellquote {str} {
3521 }
3524 }
3527 }
3529 }
3531 proc shellarglist {l} {
3532 set str {}
3535 append str " "
3536 }
3538 }
3540 }
3542 proc shelldequote {str} {
3543 set ret {}
3544 set used -1
3545 while {1} {
3546 incr used
3550 break
3551 }
3557 }
3559 incr used
3563 error "unmatched single-quote"
3564 }
3567 continue
3568 }
3571 error "trailing backslash"
3572 }
3574 continue
3575 }
3576 # here ch == "\""
3577 while {1} {
3579 error "unmatched double-quote"
3580 }
3586 }
3588 incr used
3590 incr used
3591 }
3592 }
3594 }
3596 proc shellsplit {str} {
3597 set l {}
3598 while {1} {
3606 }
3608 }
3610 # Code to implement multiple views
3612 proc newview {ishighlight} {
3613 global nextviewnum newviewname newishighlight
3614 global revtreeargs viewargscmd newviewopts curview
3617 set top .gitkview
3620 return
3621 }
3627 }
3629 set known_view_options {
3630 {perm b . {} {mc "Remember this view"}}
3631 {args t50= + {} {mc "Commits to include (arguments to git log):"}}
3632 {all b * "--all" {mc "Use all refs"}}
3633 {dorder b . {"--date-order" "-d"} {mc "Strictly sort by date"}}
3634 {lright b . "--left-right" {mc "Mark branch sides"}}
3635 {since t15 + {"--since=*" "--after=*"} {mc "Since date:"}}
3636 {until t15 . {"--until=*" "--before=*"} {mc "Until date:"}}
3637 {limit t10 + "--max-count=*" {mc "Max count:"}}
3638 {skip t10 . "--skip=*" {mc "Skip:"}}
3639 {first b . "--first-parent" {mc "Limit to first parent"}}
3640 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3641 }
3643 proc encode_view_opts {n} {
3644 global known_view_options newviewopts
3646 set rargs [list]
3657 }
3658 } else {
3663 }
3664 }
3665 }
3667 }
3669 proc decode_view_opts {n view_args} {
3670 global known_view_options newviewopts
3674 set val 0
3675 } else {
3676 set val {}
3677 }
3679 }
3680 set oargs [list]
3683 && ![info exists found(limit)]} {
3685 set found(limit) 1
3686 continue
3687 }
3688 catch { unset val }
3697 } else {
3698 set val 1
3699 }
3702 break
3703 }
3704 if {[info exists val]} break
3705 }
3706 if {[info exists val]} continue
3708 }
3710 }
3712 proc edit_or_newview {} {
3713 global curview
3716 editview
3717 } else {
3718 newview 0
3719 }
3720 }
3722 proc editview {} {
3723 global curview
3724 global viewname viewperm newviewname newviewopts
3725 global viewargs viewargscmd
3730 return
3731 }
3737 }
3739 proc vieweditor {top n title} {
3740 global newviewname newviewopts viewfiles bgcolor
3741 global known_view_options
3747 # View name
3755 # View options
3757 set cexpand 0
3758 set cnt 0
3764 set lxpad 0
3768 incr cnt
3772 } else {
3773 set lxpad 5
3774 }
3792 }
3793 }
3795 # Path list
3797 -text [mc "Enter files and directories to include, one per line:"]
3804 }
3807 }
3822 }
3824 proc doviewmenu {m first cmd op argv} {
3829 break
3830 }
3831 }
3832 }
3834 proc allviewmenus {n op args} {
3835 # global viewhlmenu
3839 }
3841 proc newviewok {top n {apply 0}} {
3842 global nextviewnum newviewperm newviewname newishighlight
3843 global viewname viewfiles viewperm selectedview curview
3844 global viewargs viewargscmd newviewopts viewhlmenu
3846 if {[catch {
3848 } err]} {
3850 return
3851 }
3852 set files {}
3857 }
3858 }
3860 # creating a new view
3861 incr nextviewnum
3870 } else {
3872 }
3873 } else {
3874 # editing an existing view
3882 }
3889 run reloadcommits
3890 }
3891 }
3892 }
3895 }
3897 proc delview {} {
3898 global curview viewperm hlview selectedhlview
3902 set selectedhlview [mc "None"]
3903 unset hlview
3904 }
3907 showview 0
3908 }
3910 proc addviewmenu {n} {
3911 global viewname viewhlmenu
3917 }
3919 proc showview {n} {
3920 global curview cached_commitrow ordertok
3921 global displayorder parentlist rowidlist rowisopt rowfinal
3922 global colormap rowtextx nextcolor canvxmax
3923 global numcommits viewcomplete
3924 global selectedline currentid canv canvy0
3925 global treediffs
3926 global pending_select mainheadid
3927 global commitidx
3928 global selectedview
3929 global hlview selectedhlview commitinterest
3932 set selid {}
3943 }
3944 } elseif {[info exists pending_select]} {
3946 unset pending_select
3947 }
3948 unselectline
3949 normalline
3950 catch {unset treediffs}
3951 clear_display
3953 unset hlview
3954 set selectedhlview [mc "None"]
3955 }
3956 catch {unset commitinterest}
3957 catch {unset cached_commitrow}
3958 catch {unset ordertok}
3965 run refill_reflist
3968 return
3969 }
3971 set displayorder {}
3972 set parentlist {}
3973 set rowidlist {}
3974 set rowisopt {}
3975 set rowfinal {}
3978 catch {unset colormap}
3979 catch {unset rowtextx}
3980 set nextcolor 0
3983 set row 0
3984 setcanvscroll
3985 set yf 0
3986 set row {}
3989 # try to get the selected row in the same position on the screen
3993 set ytop 0
3994 }
3996 }
3998 drawvisible
4003 } else {
4004 reset_pending_select {}
4008 } else {
4009 set row [first_real_row]
4012 }
4013 }
4014 }
4017 show_status [mc "Reading commits..."]
4018 }
4020 show_status [mc "No commits selected"]
4021 }
4022 }
4024 # Stuff relating to the highlighting facility
4026 proc ishighlighted {id} {
4027 global vhighlights fhighlights nhighlights rhighlights
4031 }
4034 }
4037 }
4040 }
4041 return 0
4042 }
4044 proc bolden {id font} {
4045 global canv linehtag currentid boldids need_redisplay
4047 # need_redisplay = 1 means the display is stale and about to be redrawn
4054 -outline {{}} -tags secsel \
4057 }
4058 }
4060 proc bolden_name {id font} {
4061 global canv2 linentag currentid boldnameids need_redisplay
4069 -outline {{}} -tags secsel \
4072 }
4073 }
4075 proc unbolden {} {
4076 global boldids
4078 set stillbold {}
4082 } else {
4084 }
4085 }
4087 }
4089 proc addvhighlight {n} {
4090 global hlview viewcomplete curview vhl_done commitidx
4092 if {[info exists hlview]} {
4093 delvhighlight
4094 }
4098 }
4101 drawvisible
4102 }
4103 }
4105 proc delvhighlight {} {
4106 global hlview vhighlights
4108 if {![info exists hlview]} return
4109 unset hlview
4110 catch {unset vhighlights}
4111 unbolden
4112 }
4114 proc vhighlightmore {} {
4115 global hlview vhl_done commitidx vhighlights curview
4118 set vr [visiblerows]
4128 }
4130 }
4131 }
4132 }
4134 return 0
4135 }
4137 proc askvhighlight {row id} {
4138 global hlview vhighlights iddrawn
4143 }
4145 } else {
4147 }
4148 }
4150 proc hfiles_change {} {
4151 global highlight_files filehighlight fhighlights fh_serial
4152 global highlight_paths
4154 if {[info exists filehighlight]} {
4155 # delete previous highlights
4157 unset filehighlight
4158 catch {unset fhighlights}
4159 unbolden
4160 unhighlight_filelist
4161 }
4162 set highlight_paths {}
4164 incr fh_serial
4167 }
4168 }
4170 proc gdttype_change {name ix op} {
4171 global gdttype highlight_files findstring findpattern
4173 stopfinding
4177 set highlight_files {}
4178 hfiles_change
4179 }
4180 findcom_change
4181 } else {
4183 set findpattern {}
4184 findcom_change
4185 }
4187 hfiles_change
4188 }
4189 drawvisible
4190 }
4191 # enable/disable findtype/findloc menus too
4192 }
4194 proc find_change {name ix op} {
4195 global gdttype findstring highlight_files
4197 stopfinding
4199 findcom_change
4200 } else {
4203 hfiles_change
4204 }
4205 }
4206 drawvisible
4207 }
4209 proc findcom_change args {
4210 global nhighlights boldnameids
4211 global findpattern findtype findstring gdttype
4213 stopfinding
4214 # delete previous highlights, if any
4217 }
4218 set boldnameids {}
4219 catch {unset nhighlights}
4220 unbolden
4221 unmarkmatches
4223 set findpattern {}
4226 } else {
4227 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4230 }
4231 }
4233 proc makepatterns {l} {
4234 set ret {}
4239 } else {
4242 }
4243 }
4245 }
4247 proc do_file_hl {serial} {
4248 global highlight_files filehighlight highlight_paths gdttype fhl_list
4253 highlight_filelist
4257 } else {
4258 # must be "containing:", i.e. we're searching commit info
4259 return
4260 }
4265 set fhl_list {}
4266 drawvisible
4267 flushhighlights
4268 }
4270 proc flushhighlights {} {
4271 global filehighlight fhl_list
4273 if {[info exists filehighlight]} {
4274 lappend fhl_list {}
4277 }
4278 }
4280 proc askfilehighlight {row id} {
4281 global filehighlight fhighlights fhl_list
4286 }
4288 proc readfhighlight {} {
4289 global filehighlight fhighlights curview iddrawn
4290 global fhl_list find_dirn
4292 if {![info exists filehighlight]} {
4293 return 0
4294 }
4295 set nr 0
4303 }
4309 }
4311 }
4313 # strange...
4314 puts "oops, git diff-tree died"
4316 unset filehighlight
4317 return 0
4318 }
4319 if {[info exists find_dirn]} {
4320 run findmore
4321 }
4322 return 1
4323 }
4325 proc doesmatch {f} {
4326 global findtype findpattern
4332 } else {
4334 }
4335 }
4337 proc askfindhighlight {row id} {
4338 global nhighlights commitinfo iddrawn
4339 global findloc
4340 global markingmatches
4344 }
4346 set isbold 0
4347 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4352 set isbold 2
4353 break
4354 }
4355 set isbold 1
4356 }
4357 }
4363 }
4364 }
4367 }
4368 }
4370 }
4372 proc markrowmatches {row id} {
4373 global canv canv2 linehtag linentag commitinfo findloc
4384 }
4385 }
4391 }
4392 }
4393 }
4395 proc vrel_change {name ix op} {
4396 global highlight_related
4398 rhighlight_none
4400 run drawvisible
4401 }
4402 }
4404 # prepare for testing whether commits are descendents or ancestors of a
4405 proc rhighlight_sel {a} {
4406 global descendent desc_todo ancestor anc_todo
4407 global highlight_related
4409 catch {unset descendent}
4411 catch {unset ancestor}
4414 rhighlight_none
4415 run drawvisible
4416 }
4417 }
4419 proc rhighlight_none {} {
4420 global rhighlights
4422 catch {unset rhighlights}
4423 unbolden
4424 }
4426 proc is_descendent {a} {
4427 global curview children descendent desc_todo
4432 set leftover {}
4433 set done 0
4438 continue
4439 }
4445 set done 1
4446 }
4447 }
4448 }
4451 return
4452 }
4453 }
4456 }
4458 proc is_ancestor {a} {
4459 global curview parents ancestor anc_todo
4464 set leftover {}
4465 set done 0
4470 continue
4471 }
4477 set done 1
4478 }
4479 }
4480 }
4483 return
4484 }
4485 }
4488 }
4490 proc askrelhighlight {row id} {
4491 global descendent highlight_related iddrawn rhighlights
4492 global selectedline ancestor
4495 set isbold 0
4500 }
4502 set isbold 1
4503 }
4508 }
4510 set isbold 1
4511 }
4512 }
4516 }
4517 }
4519 }
4521 # Graph layout functions
4523 proc shortids {ids} {
4524 set res {}
4530 } else {
4532 }
4533 }
4535 }
4537 proc ntimes {n o} {
4538 set ret {}
4543 }
4545 }
4547 }
4549 proc ordertoken {id} {
4550 global ordertok curview varcid varcstart varctok curview parents children
4551 global nullid nullid2
4555 }
4557 set todo {}
4558 while {1} {
4562 } else {
4564 }
4567 break
4568 }
4571 # it's a root
4573 break
4574 }
4577 } else {
4581 }
4583 }
4584 }
4589 }
4592 }
4594 # Work out where id should go in idlist so that order-token
4595 # values increase from left to right
4596 proc idcol {idlist id {i 0}} {
4599 set i 0
4600 }
4604 }
4606 incr i
4607 } else {
4611 }
4612 }
4614 }
4616 proc initlayout {} {
4617 global rowidlist rowisopt rowfinal displayorder parentlist
4618 global numcommits canvxmax canv
4619 global nextcolor
4620 global colormap rowtextx
4622 set numcommits 0
4623 set displayorder {}
4624 set parentlist {}
4625 set nextcolor 0
4626 set rowidlist {}
4627 set rowisopt {}
4628 set rowfinal {}
4630 catch {unset colormap}
4631 catch {unset rowtextx}
4632 setcanvscroll
4633 }
4635 proc setcanvscroll {} {
4636 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4637 global lastscrollset lastscrollrows
4643 set lastscrollset [clock clicks -milliseconds]
4645 }
4647 proc visiblerows {} {
4648 global canv numcommits linespc
4656 set r0 0
4657 }
4662 }
4664 }
4666 proc layoutmore {} {
4667 global commitidx viewcomplete curview
4668 global numcommits pending_select curview
4669 global lastscrollset lastscrollrows
4673 setcanvscroll
4674 }
4675 if {[info exists pending_select] &&
4677 update
4679 }
4680 drawvisible
4681 }
4683 # With path limiting, we mightn't get the actual HEAD commit,
4684 # so ask git rev-list what is the first ancestor of HEAD that
4685 # touches a file in the path limit.
4686 proc get_viewmainhead {view} {
4687 global viewmainheadid vfilelimit viewinstances mainheadid
4689 catch {
4697 }
4698 }
4701 proc getviewhead {fd inst view} {
4702 global viewmainheadid commfd curview viewinstances showlocalchanges
4704 set id {}
4707 return 1
4708 }
4711 }
4718 }
4720 doshowlocalchanges
4721 }
4722 return 0
4723 }
4725 proc doshowlocalchanges {} {
4726 global curview viewmainheadid
4730 dodiffindex
4731 } else {
4733 }
4734 }
4736 proc dohidelocalchanges {} {
4737 global nullid nullid2 lserial curview
4741 }
4744 }
4745 incr lserial
4746 }
4748 # spawn off a process to do git diff-index --cached HEAD
4749 proc dodiffindex {} {
4750 global lserial showlocalchanges vfilelimit curview
4751 global isworktree
4754 incr lserial
4755 set cmd "|git diff-index --cached HEAD"
4758 }
4763 }
4765 proc readdiffindex {fd serial inst} {
4766 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4767 global vfilelimit
4769 set isdiff 1
4772 return 1
4773 }
4774 set isdiff 0
4775 }
4776 # we only need to see one line and we don't really care what it says...
4780 return 0
4781 }
4783 # now see if there are any local changes not checked in to the index
4784 set cmd "|git diff-files"
4787 }
4794 # add the line for the changes in the index to the graph
4795 set hl [mc "Local changes checked in to index but not committed"]
4800 }
4805 }
4807 }
4808 return 0
4809 }
4811 proc readdifffiles {fd serial inst} {
4812 global viewmainheadid nullid nullid2 curview
4813 global commitinfo commitdata lserial
4815 set isdiff 1
4818 return 1
4819 }
4820 set isdiff 0
4821 }
4822 # we only need to see one line and we don't really care what it says...
4826 return 0
4827 }
4830 # add the line for the local diff to the graph
4831 set hl [mc "Local uncommitted changes, not checked in to index"]
4836 } else {
4838 }
4842 }
4843 return 0
4844 }
4846 proc nextuse {id row} {
4847 global curview children
4852 return -1
4853 }
4856 }
4857 }
4858 }
4861 }
4862 return -1
4863 }
4865 proc prevuse {id row} {
4866 global curview children
4868 set ret -1
4874 }
4875 }
4876 }
4878 }
4880 proc make_idlist {row} {
4881 global displayorder parentlist uparrowlen downarrowlen mingaplen
4882 global commitidx curview children
4886 set r 0
4887 }
4890 set ra 0
4891 }
4895 }
4897 set ids {}
4906 }
4907 }
4908 }
4916 }
4917 }
4918 }
4926 }
4927 }
4928 incr r
4934 }
4935 }
4936 }
4937 set idlist {}
4940 }
4942 }
4944 proc rowsequal {a b} {
4947 }
4950 }
4952 }
4954 proc makeupline {id row rend col} {
4955 global rowidlist uparrowlen downarrowlen mingaplen
4961 }
4964 }
4971 }
4972 }
4973 }
4975 proc layoutrows {row endrow} {
4976 global rowidlist rowisopt rowfinal displayorder
4977 global uparrowlen downarrowlen maxwidth mingaplen
4978 global children parentlist
4979 global commitidx viewcomplete curview
4982 set idlist {}
4988 }
4989 }
4991 }
4996 set final 1
4997 } else {
5005 # if not the first child, we have to insert a line going up
5008 }
5009 }
5010 }
5020 }
5021 }
5022 }
5029 }
5030 }
5040 }
5041 }
5049 }
5050 }
5051 }
5052 }
5053 }
5057 set final 0
5058 }
5062 lappend rowisopt 0
5068 }
5070 } else {
5077 }
5078 }
5080 }
5082 proc changedrow {row} {
5083 global displayorder iddrawn rowisopt need_redisplay
5092 }
5093 }
5094 }
5097 set need_redisplay 1
5098 }
5099 }
5101 proc insert_pad {row col npad} {
5102 global rowidlist
5111 }
5114 }
5116 proc optimize_rows {row col endrow} {
5117 global rowidlist rowisopt displayorder curview children
5120 set row 1
5121 }
5124 set haspad 0
5133 } else {
5134 set pprevidlist {}
5135 }
5136 set x0 -1
5137 set xm -1
5142 set haspad 1
5143 continue
5144 }
5148 set isarrow 0
5149 set z0 {}
5154 }
5155 }
5160 set isarrow 1
5161 }
5162 }
5165 set isarrow 1
5166 }
5167 # Looking at lines from this row to the previous row,
5168 # make them go straight up if they end in an arrow on
5169 # the previous row; otherwise make them go straight up
5170 # or at 45 degrees.
5172 # Line currently goes left too much;
5173 # insert pads in the previous row, then optimize it
5178 }
5186 }
5188 # Line currently goes right too much;
5189 # insert pads in this line
5195 set haspad 1
5196 }
5203 }
5204 }
5205 # avoid lines jigging left then immediately right
5208 incr x0
5211 }
5212 }
5214 # Find the first column that doesn't have a line going right
5220 # check if this is the link to the first child
5223 # it is, work out offset to child
5225 }
5226 }
5228 }
5229 # Insert a pad at that column as long as it has a line and
5230 # isn't the last column
5235 }
5236 }
5237 }
5238 }
5240 proc xc {row col} {
5241 global canvx0 linespc
5243 }
5245 proc yc {row} {
5246 global canvy0 linespc
5248 }
5250 proc linewidth {id} {
5251 global thickerline lthickness
5256 }
5258 }
5260 proc rowranges {id} {
5261 global curview children uparrowlen downarrowlen
5262 global rowidlist
5266 return {}
5267 }
5268 set ret {}
5273 if {![info exists prev]} {
5275 } else {
5277 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5278 }
5279 # see if the line extends the whole way from prevrow to row
5283 # it doesn't, see where it ends
5288 } else {
5291 incr r -1
5292 }
5294 # see where it starts up again
5299 } else {
5302 incr r
5303 }
5305 }
5306 }
5309 }
5312 }
5314 }
5316 proc drawlineseg {id row endrow arrowlow} {
5317 global rowidlist displayorder iddrawn linesegs
5318 global canv colormap linespc curview maxlinelen parentlist
5322 set arrowhigh 1
5323 while {1} {
5326 incr le -1
5327 break
5328 }
5332 set arrowhigh 0
5333 break
5334 }
5339 set arrowhigh 0
5340 }
5341 break
5342 }
5343 incr le
5344 }
5347 }
5349 set lines {}
5350 set i 0
5351 set joinhigh 0
5358 set joinhigh 1
5359 }
5360 break
5361 }
5362 incr i
5363 }
5364 }
5365 set joinlow 0
5370 set joinlow 1
5371 }
5372 }
5385 }
5386 } else {
5388 }
5396 set arrowlow 0
5397 }
5398 }
5406 }
5408 }
5411 # join parent line to first child
5422 } else {
5424 }
5432 }
5434 }
5436 } else {
5440 }
5448 } else {
5452 }
5454 }
5455 } else {
5461 }
5465 } else {
5466 # coalesce two pieces
5471 }
5475 }
5476 }
5480 }
5482 proc drawparentlinks {id row} {
5483 global rowidlist canv colormap curview parentlist
5484 global idpos linespc
5497 # rmx = right-most X coord used
5498 set rmx 0
5503 continue
5504 }
5508 }
5511 # drawlineseg will do this one for us
5512 continue
5513 }
5515 # should handle duplicated parents here...
5518 # if attaching to a vertical segment, draw a smaller
5519 # slant for visual distinctness
5523 } else {
5525 }
5527 # segment slants towards us already
5529 } else {
5534 }
5536 }
5537 } else {
5539 }
5544 }
5548 }
5549 }
5551 proc drawlines {id} {
5552 global canv
5555 }
5557 proc drawcmittext {id row col} {
5558 global linespc canv canv2 canv3 fgcolor curview
5559 global cmitlisted commitinfo rowidlist parentlist
5560 global rowtextx idpos idtags idheads idotherrefs
5561 global linehtag linentag linedtag selectedline
5562 global canvxmax boldids boldnameids fgcolor
5563 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5565 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5568 set ofill red
5570 set ofill green
5572 set ofill yellow
5573 } else {
5575 }
5584 # triangle pointing left for left-side commits
5590 } else {
5591 # triangle pointing right for right-side commits
5597 }
5609 }
5610 }
5611 }
5618 }
5623 set font mainfont
5624 set nfont mainfont
5628 set font mainfontbold
5631 set nfont mainfontbold
5632 }
5633 }
5643 }
5647 setcanvscroll
5648 }
5649 }
5651 proc drawcmitrow {row} {
5652 global displayorder rowidlist nrows_drawn
5653 global iddrawn markingmatches
5654 global commitinfo numcommits
5655 global filehighlight fhighlights findpattern nhighlights
5656 global hlview vhighlights
5657 global highlight_related rhighlights
5664 }
5667 }
5670 }
5673 }
5678 return
5679 }
5682 }
5686 incr nrows_drawn
5687 }
5690 }
5691 }
5693 proc drawcommits {row {endrow {}}} {
5694 global numcommits iddrawn displayorder curview need_redisplay
5695 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5698 set row 0
5699 }
5702 }
5705 }
5709 set rl1 0
5710 }
5713 set ro1 0
5714 }
5718 }
5723 }
5725 }
5726 }
5729 }
5732 clear_display
5733 drawvisible
5734 }
5736 # make the lines join to already-drawn rows either side
5740 }
5745 }
5760 # see if this is the first child of any of its parents
5763 # make this line extend up to the child
5765 }
5766 }
5767 } else {
5769 }
5770 }
5771 }
5772 }
5774 proc undolayout {row} {
5775 global uparrowlen mingaplen downarrowlen
5776 global rowidlist rowisopt rowfinal need_redisplay
5780 set r 0
5781 }
5783 incr r -1
5787 set need_redisplay 1
5788 run drawvisible
5789 }
5790 }
5792 proc drawvisible {} {
5793 global canv linespc curview vrowmod selectedline targetrow targetid
5794 global need_redisplay cscroll numcommits
5804 if {[info exists targetid]} {
5808 # Fix up the scrollregion and change the scrolling position
5809 # now that our target row has moved.
5812 setcanvscroll
5820 set need_redisplay 1
5821 }
5822 } else {
5823 unset targetid
5824 }
5825 }
5831 }
5835 } elseif {[info exists targetid]} {
5837 }
5838 if {[info exists targetrow]} {
5841 }
5843 }
5845 }
5847 proc clear_display {} {
5848 global iddrawn linesegs need_redisplay nrows_drawn
5849 global vhighlights fhighlights nhighlights rhighlights
5850 global linehtag linentag linedtag boldids boldnameids
5852 allcanvs delete all
5853 catch {unset iddrawn}
5854 catch {unset linesegs}
5855 catch {unset linehtag}
5856 catch {unset linentag}
5857 catch {unset linedtag}
5858 set boldids {}
5859 set boldnameids {}
5860 catch {unset vhighlights}
5861 catch {unset fhighlights}
5862 catch {unset nhighlights}
5863 catch {unset rhighlights}
5864 set need_redisplay 0
5865 set nrows_drawn 0
5866 }
5868 proc findcrossings {id} {
5869 global rowidlist parentlist numcommits displayorder
5871 set cross {}
5872 set ccross {}
5876 }
5895 }
5896 }
5897 }
5898 }
5899 }
5901 }
5903 proc assigncolor {id} {
5904 global colormap colors nextcolor
5905 global parents children children curview
5911 } else {
5912 set kids {}
5913 }
5919 return
5920 }
5921 }
5922 set badcolors {}
5923 set origbad {}
5926 # delimiter between corner crossings and other crossings
5929 }
5933 }
5934 }
5937 }
5944 }
5949 }
5950 }
5951 }
5954 }
5955 }
5959 set nextcolor 0
5960 }
5962 }
5964 }
5966 proc bindline {t id} {
5967 global canv
5973 }
5975 proc drawtags {id x xt y1} {
5976 global idtags idheads idotherrefs mainhead
5977 global linespc lthickness
5978 global canv rowtextx curview fgcolor bgcolor ctxbut
5980 set marks {}
5981 set ntags 0
5982 set nheads 0
5986 }
5990 }
5993 }
5996 }
6001 set xvals {}
6002 set wvals {}
6003 set i -1
6005 incr i
6008 } else {
6010 }
6014 }
6021 set font mainfont
6022 if {[incr ntags -1] >= 0} {
6023 # draw a tag
6029 } else {
6030 # draw a head or other ref
6031 if {[incr nheads -1] >= 0} {
6032 set col green
6034 set font mainfontbold
6035 }
6036 } else {
6037 set col "#ddddff"
6038 }
6049 }
6050 }
6057 }
6058 }
6060 }
6062 proc xcoord {i level ln} {
6063 global canvx0 xspc1 xspc2
6070 }
6072 }
6074 proc show_status {msg} {
6075 global canv fgcolor
6077 clear_display
6080 }
6082 # Don't change the text pane cursor if it is currently the hand cursor,
6083 # showing that we are over a sha1 ID link.
6084 proc settextcursor {c} {
6085 global ctext curtextcursor
6089 }
6091 }
6093 proc nowbusy {what {name {}}} {
6094 global isbusy busyname statusw
6096 if {[array names isbusy] eq {}} {
6097 . config -cursor watch
6098 settextcursor watch
6099 }
6104 }
6105 }
6107 proc notbusy {what} {
6108 global isbusy maincursor textcursor busyname statusw
6110 catch {
6115 }
6116 }
6117 if {[array names isbusy] eq {}} {
6120 }
6121 }
6123 proc findmatches {f} {
6124 global findtype findstring
6127 } else {
6132 }
6133 set matches {}
6134 set i 0
6139 }
6140 }
6142 }
6144 proc dofind {{dirn 1} {wrap 1}} {
6145 global findstring findstartline findcurline selectedline numcommits
6146 global gdttype filehighlight fh_serial find_dirn findallowwrap
6148 if {[info exists find_dirn]} {
6150 stopfinding
6151 }
6152 focus .
6156 } else {
6158 }
6160 nowbusy finding [mc "Searching"]
6164 }
6167 run findmore
6168 }
6170 proc stopfinding {} {
6171 global find_dirn findcurline fprogcoord
6173 if {[info exists find_dirn]} {
6174 unset find_dirn
6175 unset findcurline
6176 notbusy finding
6177 set fprogcoord 0
6178 adjustprogress
6179 }
6180 stopblaming
6181 }
6183 proc findmore {} {
6184 global commitdata commitinfo numcommits findpattern findloc
6185 global findstartline findcurline findallowwrap
6186 global find_dirn gdttype fhighlights fprogcoord
6187 global curview varcorder vrownum varccommits vrowmod
6189 if {![info exists find_dirn]} {
6190 return 0
6191 }
6192 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6194 set moretodo 0
6196 incr l
6198 set l 0
6199 }
6202 } else {
6205 }
6206 } else {
6209 }
6210 incr l -1
6213 } else {
6214 set lim -1
6216 }
6217 }
6220 set n 500
6221 set moretodo 1
6222 }
6225 }
6226 set found 0
6227 set domore 1
6241 }
6243 # shouldn't happen unless git log doesn't give all the commits...
6246 continue
6247 }
6250 }
6255 set found 1
6256 break
6257 }
6258 }
6260 }
6261 } else {
6269 }
6274 }
6277 break
6278 }
6281 set domore 0
6283 }
6284 }
6285 }
6286 }
6288 unset findcurline
6289 unset find_dirn
6290 notbusy finding
6291 set fprogcoord 0
6292 adjustprogress
6295 } else {
6296 bell
6297 }
6298 return 0
6299 }
6301 flushhighlights
6302 } else {
6304 }
6308 }
6310 adjustprogress
6312 }
6314 proc findselectline {l} {
6315 global findloc commentend ctext findcurline markingmatches gdttype
6322 # highlight the matches in the comments
6329 }
6330 }
6331 drawvisible
6332 }
6334 # mark the bits of a headline or author that match a find string
6335 proc markmatches {canv l str tag matches font row} {
6336 global selectedline
6354 }
6355 }
6356 }
6358 proc unmarkmatches {} {
6359 global markingmatches
6361 allcanvs delete matches
6362 set markingmatches 0
6363 stopfinding
6364 }
6366 proc selcanvline {w x y} {
6367 global canv canvy0 ctext linespc
6368 global rowtextx
6375 set l 0
6376 }
6381 }
6382 unmarkmatches
6384 }
6386 proc commit_descriptor {p} {
6387 global commitinfo
6390 }
6391 set l "..."
6394 }
6396 }
6398 # append some text to the ctext widget, and make any SHA1 ID
6399 # that we know about be a clickable link.
6400 proc appendwithlinks {text tags} {
6401 global ctext linknum curview
6410 incr e
6414 incr linknum
6415 }
6416 }
6418 proc setlink {id lk} {
6419 global curview ctext pendinglinks
6421 set known 0
6426 set known 1
6428 }
6429 } else {
6431 }
6437 } else {
6440 }
6441 }
6443 proc makelink {id} {
6444 global pendinglinks
6449 }
6451 }
6453 proc linkcursor {w inc} {
6454 global linkentercount curtextcursor
6458 } else {
6461 set linkentercount 0
6462 }
6463 }
6464 }
6466 proc viewnextline {dir} {
6467 global canv linespc
6475 set newtop 0
6478 }
6480 }
6482 # add a list of tag or branch names at position pos
6483 # returns the number of names inserted
6484 proc appendrefs {pos ids var} {
6488 return 0
6489 }
6492 set tags {}
6496 }
6497 }
6500 } else {
6502 set sep {}
6506 incr linknum
6511 set sep ", "
6512 }
6513 }
6516 }
6518 # called when we have finished computing the nearby tags
6519 proc dispneartags {delay} {
6520 global selectedline currentid showneartags tagphase
6523 after cancel dispnexttag
6525 after 200 dispnexttag
6526 set tagphase -1
6527 } else {
6528 after idle dispnexttag
6529 set tagphase 0
6530 }
6531 }
6533 proc dispnexttag {} {
6534 global selectedline currentid showneartags tagphase ctext
6538 0 {
6542 }
6543 }
6544 1 {
6548 }
6549 }
6550 2 {
6555 # turn "Branch" into "Branches"
6559 }
6560 }
6561 }
6562 }
6563 if {[incr tagphase] <= 2} {
6564 after idle dispnexttag
6565 }
6566 }
6568 proc make_secsel {id} {
6569 global linehtag linentag linedtag canv canv2 canv3
6584 }
6586 proc selectline {l isnew {desired_loc {}}} {
6587 global canv ctext commitinfo selectedline
6588 global canvy0 linespc parents children curview
6589 global currentid sha1entry
6590 global commentend idtags linknum
6591 global mergemax numcommits pending_select
6592 global cmitmode showneartags allcommits
6593 global targetrow targetid lastscrollrows
6594 global autoselect jump_to_here
6596 catch {unset pending_select}
6598 normalline
6599 unsel_reflist
6600 stopfinding
6608 setcanvscroll
6609 }
6623 } else {
6627 }
6628 }
6632 } else {
6636 }
6637 }
6638 }
6641 set newtop 0
6642 }
6644 drawvisible
6645 }
6651 }
6658 }
6662 clear_ctext
6663 set linknum 0
6666 }
6676 }
6678 }
6680 set headers {}
6683 set np 0
6686 set tag mmax
6687 } else {
6689 }
6692 incr np
6693 }
6694 } else {
6697 }
6698 }
6702 }
6704 # make anything that looks like a SHA1 ID be a clickable link
6707 if {![info exists allcommits]} {
6708 getallcommits
6709 }
6720 dispneartags 1
6721 }
6726 }
6734 init_flist [mc "Comments"]
6739 } else {
6741 }
6742 }
6744 proc selfirstline {} {
6745 unmarkmatches
6746 selectline 0 1
6747 }
6749 proc sellastline {} {
6750 global numcommits
6751 unmarkmatches
6754 }
6756 proc selnextline {dir} {
6757 global selectedline
6758 focus .
6761 unmarkmatches
6763 }
6765 proc selnextpage {dir} {
6766 global canv linespc selectedline numcommits
6770 set lpp 1
6771 }
6773 drawvisible
6777 set l 0
6780 }
6781 unmarkmatches
6783 }
6785 proc unselectline {} {
6786 global selectedline currentid
6788 set selectedline {}
6789 catch {unset currentid}
6790 allcanvs delete secsel
6791 rhighlight_none
6792 }
6794 proc reselectline {} {
6795 global selectedline
6799 }
6800 }
6802 proc addtohistory {cmd} {
6803 global history historyindex curview
6808 return
6809 }
6813 } else {
6815 }
6816 incr historyindex
6818 .tf.bar.leftbut conf -state normal
6819 } else {
6820 .tf.bar.leftbut conf -state disabled
6821 }
6822 .tf.bar.rightbut conf -state disabled
6823 }
6825 proc godo {elt} {
6826 global curview
6832 }
6834 }
6836 proc goback {} {
6837 global history historyindex
6838 focus .
6841 incr historyindex -1
6843 .tf.bar.rightbut conf -state normal
6844 }
6846 .tf.bar.leftbut conf -state disabled
6847 }
6848 }
6850 proc goforw {} {
6851 global history historyindex
6852 focus .
6856 incr historyindex
6858 .tf.bar.leftbut conf -state normal
6859 }
6861 .tf.bar.rightbut conf -state disabled
6862 }
6863 }
6865 proc gettree {id} {
6866 global treefilelist treeidlist diffids diffmergeid treepending
6867 global nullid nullid2
6870 catch {unset diffmergeid}
6872 if {![info exists treepending]} {
6874 set cmd [list | git ls-files]
6876 set cmd [list | git ls-files --stage -t]
6877 } else {
6879 }
6881 return
6882 }
6888 }
6889 } else {
6891 }
6892 }
6894 proc gettreeline {gtf id} {
6895 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6897 set nl 0
6901 } else {
6909 }
6912 }
6915 }
6918 }
6920 unset treepending
6922 if {![info exists diffmergeid]} {
6924 }
6927 } else {
6929 }
6930 return 0
6931 }
6933 proc showfile {f} {
6934 global treefilelist treeidlist diffids nullid nullid2
6935 global ctext_file_names ctext_file_lines
6936 global ctext commentend
6941 return
6942 }
6946 return
6947 }
6948 } else {
6952 return
6953 }
6954 }
6965 settabs 0
6966 }
6968 proc getblobline {bf id} {
6969 global diffids cmitmode ctext
6973 return 0
6974 }
6976 set nl 0
6979 }
6981 global jump_to_here ctext_file_names commentend
6983 # delete last newline
6991 }
6992 return 0
6993 }
6996 }
6998 proc mark_ctext_line {lnum} {
6999 global ctext markbgcolor
7005 }
7007 proc mergediff {id} {
7008 global diffmergeid
7009 global diffids treediffs
7010 global parents curview
7018 }
7020 proc startdiff {ids} {
7021 global treediffs diffids treepending diffmergeid nullid nullid2
7023 settabs 1
7025 catch {unset diffmergeid}
7029 if {![info exists treepending]} {
7031 }
7032 } else {
7034 }
7035 }
7037 proc path_filter {filter name} {
7042 return 1
7043 }
7044 } else {
7048 return 1
7049 }
7050 }
7051 }
7052 return 0
7053 }
7055 proc addtocflist {ids} {
7056 global treediffs
7060 }
7062 proc diffcmd {ids flags} {
7063 global nullid nullid2
7069 # comparing working directory with some specific revision
7073 } else {
7075 }
7076 } else {
7077 # comparing working directory with index
7080 lappend cmd -R
7081 }
7082 }
7086 # comparing index with specific revision
7089 } else {
7091 }
7092 } else {
7093 # comparing index with HEAD
7094 lappend cmd HEAD
7095 }
7096 } else {
7098 }
7100 }
7102 proc gettreediffs {ids} {
7103 global treediff treepending
7108 set treediff {}
7111 }
7113 proc gettreediffline {gdtf ids} {
7114 global treediff treediffs treepending diffids diffmergeid
7115 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7117 set nr 0
7118 set sublist {}
7119 set max 1000
7121 # cache_gitattr is slow, and even slower on win32 where we
7122 # have to invoke it for only about 30 paths at a time
7123 set max 500
7124 if {[tk windowingsystem] == "win32"} {
7125 set max 120
7126 }
7127 }
7134 }
7139 }
7140 }
7141 }
7144 }
7147 }
7150 set flist {}
7154 }
7155 }
7157 } else {
7159 }
7160 unset treepending
7164 if {![info exists diffmergeid]} {
7166 }
7167 } else {
7169 }
7170 return 0
7171 }
7173 # empty string or positive integer
7174 proc diffcontextvalidate {v} {
7176 }
7178 proc diffcontextchange {n1 n2 op} {
7179 global diffcontextstring diffcontext
7184 reselectline
7185 }
7186 }
7187 }
7189 proc changeignorespace {} {
7190 reselectline
7191 }
7193 proc getblobdiffs {ids} {
7194 global blobdifffd diffids env
7195 global diffinhdr treediffs
7196 global diffcontext
7197 global ignorespace
7198 global limitdiffs vfilelimit curview
7199 global diffencoding targetline diffnparents
7203 append cmd " -w"
7204 }
7207 }
7210 return
7211 }
7212 set targetline {}
7213 set diffnparents 0
7214 set diffinhdr 0
7215 set diffencoding [get_path_encoding {}]
7219 }
7221 proc setinlist {var i val} {
7226 }
7229 } else {
7231 }
7232 }
7234 proc makediffhdr {fname ids} {
7235 global ctext curdiffstart treediffs diffencoding
7236 global ctext_file_names jump_to_here targetline diffline
7243 }
7248 set targetline {}
7251 }
7252 set diffline 0
7253 }
7255 proc getblobdiffline {bdf ids} {
7256 global diffids blobdifffd ctext curdiffstart
7257 global diffnexthead diffnextnote difffilestart
7258 global ctext_file_names ctext_file_lines
7259 global diffinhdr treediffs mergemax diffnparents
7260 global diffencoding jump_to_here targetline diffline
7262 set nr 0
7267 return 0
7268 }
7273 continue
7274 }
7275 # start of a new file
7276 set diffinhdr 1
7279 lappend ctext_file_names ""
7284 # start of a new file in a merge diff
7289 }
7291 } else {
7293 # If the name hasn't changed the length will be odd,
7294 # the middle char will be a space, and the two bits either
7295 # side will be a/name and b/name, or "a/name" and "b/name".
7296 # If the name has changed we'll get "rename from" and
7297 # "rename to" or "copy from" and "copy to" lines following
7298 # this, and we'll use them to get the filenames.
7299 # This complexity is necessary because spaces in the
7300 # filename(s) don't get escaped.
7306 continue
7307 }
7308 # unescape if quoted and chop off the a/ from the front
7311 } else {
7313 }
7314 }
7327 }
7335 }
7337 set diffinhdr 0
7344 }
7349 }
7355 }
7358 # do nothing
7359 continue
7361 set diffinhdr 0
7362 continue
7363 }
7366 } else {
7368 # parse the prefix - one ' ', '-' or '+' for each parent
7372 # prefix only has " ", "-" and "+" in it: normal diff line
7377 set num "max"
7378 }
7380 } else {
7381 set tags {}
7383 # added line
7389 set num "max"
7390 }
7392 }
7393 }
7394 }
7398 set targetline {}
7399 } else {
7400 incr diffline
7401 }
7402 }
7404 }
7405 } else {
7406 # "\ No newline at end of file",
7407 # or something else we don't recognize
7409 }
7410 }
7411 }
7412 if {[info exists seehere]} {
7414 }
7418 return 0
7419 }
7421 }
7423 proc changediffdisp {} {
7424 global ctext diffelide
7428 }
7430 proc highlightfile {loc cline} {
7431 global ctext cflist cflist_top
7438 }
7440 proc prevfile {} {
7441 global difffilestart ctext cmitmode
7444 set prev 0.0
7445 set prevline 1
7450 return
7451 }
7453 incr prevline
7454 }
7456 }
7458 proc nextfile {} {
7459 global difffilestart ctext cmitmode
7463 set line 1
7465 incr line
7468 return
7469 }
7470 }
7471 }
7473 proc clear_ctext {{first 1.0}} {
7474 global ctext smarktop smarkbot
7475 global ctext_file_names ctext_file_lines
7476 global pendinglinks
7481 }
7484 }
7487 catch {unset pendinglinks}
7488 }
7489 set ctext_file_names {}
7490 set ctext_file_lines {}
7491 }
7493 proc settabs {{firstab {}}} {
7494 global firsttabstop tabstop ctext have_tk85
7498 }
7499 set w [font measure textfont "0"]
7505 } else {
7507 }
7508 }
7510 proc incrsearch {name ix op} {
7511 global ctext searchstring searchdirn
7515 # no anchor set, use start of selection, or of visible area
7521 } else {
7523 }
7524 }
7529 }
7530 searchmarkvisible 1
7531 }
7532 }
7534 proc dosearch {} {
7535 global sstring ctext searchstring searchdirn
7539 set searchdirn -forwards
7545 set start "@0,0"
7546 }
7550 bell
7551 return
7552 }
7557 }
7558 }
7560 proc dosearchback {} {
7561 global sstring ctext searchstring searchdirn
7565 set searchdirn -backwards
7572 }
7576 bell
7577 return
7578 }
7583 }
7584 }
7586 proc searchmark {first last} {
7587 global ctext searchstring
7590 while {1} {
7595 }
7596 }
7598 proc searchmarkvisible {doall} {
7599 global ctext smarktop smarkbot
7604 # no overlap with previous
7608 } else {
7612 }
7616 }
7617 }
7618 }
7620 proc scrolltext {f0 f1} {
7621 global searchstring
7625 searchmarkvisible 0
7626 }
7627 }
7629 proc setcoords {} {
7630 global linespc charspc canvx0 canvy0
7631 global xspc1 xspc2 lthickness
7633 set linespc [font metrics mainfont -linespace]
7634 set charspc [font measure mainfont "m"]
7640 }
7642 proc redisplay {} {
7643 global canv
7644 global selectedline
7649 clear_display
7650 setcanvscroll
7652 drawvisible
7656 }
7657 }
7659 proc parsefont {f n} {
7660 global fontattr
7665 set s 10
7668 }
7674 "normal" -
7676 "roman" -
7678 }
7679 }
7680 }
7682 proc fontflags {f {isbold 0}} {
7683 global fontattr
7688 }
7690 proc fontname {f} {
7691 global fontattr
7695 lappend n "bold"
7696 }
7698 lappend n "italic"
7699 }
7701 }
7703 proc incrfont {inc} {
7704 global mainfont textfont ctext canv cflist showrefstop
7705 global stopped entries fontattr
7707 unmarkmatches
7711 set s 1
7712 }
7716 set mainfont [fontname mainfont]
7720 set s 1
7721 }
7725 set textfont [fontname textfont]
7726 setcoords
7727 settabs
7728 redisplay
7729 }
7731 proc clearsha1 {} {
7732 global sha1entry sha1string
7735 }
7736 }
7738 proc sha1change {n1 n2 op} {
7739 global sha1string currentid sha1but
7742 set state disabled
7743 } else {
7744 set state normal
7745 }
7749 } else {
7751 }
7752 }
7754 proc gotocommit {} {
7755 global sha1string tagids headids curview varcid
7763 } else {
7770 return
7771 }
7773 }
7774 }
7775 }
7778 return
7779 }
7782 } else {
7784 }
7786 }
7788 proc lineenter {x y id} {
7789 global hoverx hovery hoverid hovertimer
7790 global commitinfo canv
7796 if {[info exists hovertimer]} {
7798 }
7799 set hovertimer [after 500 linehover]
7801 }
7803 proc linemotion {x y id} {
7804 global hoverx hovery hoverid hovertimer
7809 if {[info exists hovertimer]} {
7811 }
7812 set hovertimer [after 500 linehover]
7813 }
7814 }
7816 proc lineleave {id} {
7817 global hoverid hovertimer canv
7821 if {[info exists hovertimer]} {
7823 unset hovertimer
7824 }
7825 unset hoverid
7826 }
7827 }
7829 proc linehover {} {
7830 global hoverx hovery hoverid hovertimer
7831 global canv linespc lthickness
7832 global commitinfo
7845 -fill \#ffff80 -outline black -width 1 -tags hover]
7848 -font mainfont]
7850 }
7852 proc clickisonarrow {id y} {
7853 global lthickness
7862 }
7863 }
7864 return {}
7865 }
7867 proc arrowjump {id n y} {
7868 global canv
7870 # 1 <-> 2, 3 <-> 4, etc...
7880 set yfrac 0
7881 }
7883 }
7885 proc lineclick {x y id isnew} {
7886 global ctext commitinfo children canv thickerline curview
7889 unmarkmatches
7890 unselectline
7891 normalline
7893 # draw this line thicker than normal
7901 }
7905 return
7906 }
7910 }
7911 # fill the details pane with info about this line
7913 clear_ctext
7914 settabs 0
7926 set i 0
7928 incr i
7938 }
7939 }
7941 init_flist {}
7942 }
7944 proc normalline {} {
7945 global thickerline
7946 if {[info exists thickerline]} {
7948 unset thickerline
7950 }
7951 }
7953 proc selbyid {id} {
7954 global curview
7957 }
7958 }
7960 proc mstime {} {
7961 global startmstime
7962 if {![info exists startmstime]} {
7963 set startmstime [clock clicks -milliseconds]
7964 }
7966 }
7968 proc rowmenu {x y id} {
7969 global rowctxmenu selectedline rowmenuid curview
7970 global nullid nullid2 fakerowmenu mainhead
7972 stopfinding
7975 set state disabled
7976 } else {
7977 set state normal
7978 }
7983 } else {
7985 }
7986 } else {
7988 }
7993 }
7995 proc diffvssel {dirn} {
7996 global rowmenuid selectedline
8002 } else {
8005 }
8008 }
8010 proc doseldiff {oldid newid} {
8011 global ctext
8012 global commitinfo
8015 clear_ctext
8016 init_flist [mc "Top"]
8031 }
8033 proc mkpatch {} {
8034 global rowmenuid currentid commitinfo patchtop patchnum
8036 if {![info exists currentid]} return
8041 set top .patch
8071 incr patchnum
8083 }
8085 proc mkpatchrev {} {
8086 global patchtop
8092 foreach e [list fromsha1 fromhead tosha1 tohead] \
8098 }
8099 }
8101 proc mkpatchgo {} {
8102 global patchtop nullid nullid2
8108 # trim off the initial "|"
8113 }
8115 unset patchtop
8116 }
8118 proc mkpatchcan {} {
8119 global patchtop
8122 unset patchtop
8123 }
8125 proc mktag {} {
8126 global rowmenuid mktagtop commitinfo
8128 set top .maketag
8157 }
8159 proc domktag {} {
8160 global mktagtop env tagids idtags
8166 return 0
8167 }
8170 return 0
8171 }
8172 if {[catch {
8174 } err]} {
8176 return 0
8177 }
8183 dispneartags 0
8184 run refill_reflist
8185 return 1
8186 }
8188 proc redrawtags {id} {
8189 global canv linehtag idpos currentid curview cmitlisted
8190 global canvxmax iddrawn circleitem mainheadid circlecolors
8196 set ofill yellow
8197 } else {
8199 }
8209 setcanvscroll
8210 }
8213 }
8214 }
8216 proc mktagcan {} {
8217 global mktagtop
8220 unset mktagtop
8221 }
8223 proc mktaggo {} {
8224 if {![domktag]} return
8225 mktagcan
8226 }
8228 proc writecommit {} {
8229 global rowmenuid wrcomtop commitinfo wrcomcmd
8231 set top .writecommit
8264 }
8266 proc wrcomgo {} {
8267 global wrcomtop
8274 }
8276 unset wrcomtop
8277 }
8279 proc wrcomcan {} {
8280 global wrcomtop
8283 unset wrcomtop
8284 }
8286 proc mkbranch {} {
8287 global rowmenuid mkbrtop
8289 set top .makebranch
8313 }
8315 proc mkbrgo {top} {
8316 global headids idheads
8320 set cmdargs {}
8321 set old_id {}
8324 return
8325 }
8327 if {![confirm_popup [mc \
8329 return
8330 }
8332 lappend cmdargs -f
8333 }
8336 nowbusy newbranch
8337 update
8338 if {[catch {
8340 } err]} {
8341 notbusy newbranch
8343 } else {
8344 notbusy newbranch
8350 } else {
8355 }
8356 dispneartags 0
8357 run refill_reflist
8358 }
8359 }
8361 proc exec_citool {tool_args {baseid {}}} {
8362 global commitinfo env
8364 set save_env [array get env GIT_AUTHOR_*]
8369 }
8372 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8378 }
8379 }
8383 array unset env GIT_AUTHOR_*
8385 }
8387 proc cherrypick {} {
8388 global rowmenuid curview
8389 global mainhead mainheadid
8391 set oldhead [exec git rev-parse HEAD]
8394 set ok [confirm_popup [mc "Commit %s is already\
8395 included in branch %s -- really re-apply it?" \
8398 }
8399 nowbusy cherrypick [mc "Cherry-picking"]
8400 update
8401 # Unfortunately git-cherry-pick writes stuff to stderr even when
8402 # no error occurs, and exec takes that as an indication of error...
8404 notbusy cherrypick
8405 if {[regexp -line \
8406 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8408 error_popup [mc "Cherry-pick failed because of local changes\
8409 to file '%s'.\nPlease commit, reset or stash\
8411 } elseif {[regexp -line \
8412 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8414 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8415 conflict.\nDo you wish to run git citool to\
8416 resolve it?"]]} {
8417 # Force citool to read MERGE_MSG
8418 file delete [file join [gitdir] "GITGUI_MSG"]
8420 }
8421 } else {
8423 }
8424 run updatecommits
8425 return
8426 }
8427 set newhead [exec git rev-parse HEAD]
8429 notbusy cherrypick
8430 error_popup [mc "No changes committed"]
8431 return
8432 }
8435 # XXX this isn't right if we have a path limit...
8440 }
8445 }
8446 notbusy cherrypick
8447 }
8449 proc resethead {} {
8450 global mainhead rowmenuid confirm_ok resettype
8452 set confirm_ok 0
8453 set w ".confirmreset"
8459 -justify center -aspect 1000
8464 set resettype mixed
8466 -text [mc "Soft: Leave working tree and index untouched"]
8469 -text [mc "Mixed: Leave working tree untouched, reset index"]
8472 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8483 if {[catch {set fd [open \
8486 } else {
8487 dohidelocalchanges
8489 nowbusy reset [mc "Resetting"]
8491 }
8492 }
8494 proc readresetstat {fd} {
8495 global mainhead mainheadid showlocalchanges rprogcoord
8500 adjustprogress
8501 }
8502 return 1
8503 }
8504 set rprogcoord 0
8505 adjustprogress
8506 notbusy reset
8509 }
8511 set newhead [exec git rev-parse HEAD]
8518 }
8520 doshowlocalchanges
8521 }
8522 return 0
8523 }
8525 # context menu for a head
8526 proc headmenu {x y id head} {
8527 global headmenuid headmenuhead headctxmenu mainhead
8529 stopfinding
8532 set state normal
8534 set state disabled
8535 }
8539 }
8541 proc cobranch {} {
8542 global headmenuid headmenuhead headids
8543 global showlocalchanges
8545 # check the tree is clean first??
8546 nowbusy checkout [mc "Checking out"]
8547 update
8548 dohidelocalchanges
8549 if {[catch {
8551 } err]} {
8552 notbusy checkout
8555 dodiffindex
8556 }
8557 } else {
8559 }
8560 }
8562 proc readcheckoutstat {fd newhead newheadid} {
8563 global mainhead mainheadid headids showlocalchanges progresscoords
8564 global viewmainheadid curview
8569 adjustprogress
8570 }
8571 return 1
8572 }
8573 set progresscoords {0 0}
8574 adjustprogress
8575 notbusy checkout
8578 }
8587 dodiffindex
8588 }
8589 }
8591 proc rmbranch {} {
8592 global headmenuid headmenuhead mainhead
8593 global idheads
8597 # this check shouldn't be needed any more...
8599 error_popup [mc "Cannot delete the currently checked-out branch"]
8600 return
8601 }
8604 # the stuff on this branch isn't on any other branch
8605 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8607 }
8608 nowbusy rmbranch
8609 update
8611 notbusy rmbranch
8613 return
8614 }
8618 notbusy rmbranch
8619 dispneartags 0
8620 run refill_reflist
8621 }
8623 # Display a list of tags and heads
8624 proc showrefs {} {
8625 global showrefstop bgcolor fgcolor selectbgcolor
8626 global bglist fglist reflistfilter reflist maincursor
8628 set top .showrefs
8632 refill_reflist
8633 return
8634 }
8642 -spacing1 1 -spacing3 1 -state disabled
8653 set reflistfilter "*"
8654 trace add variable reflistfilter write reflistfilter_change
8666 set reflist {}
8667 refill_reflist
8668 }
8670 proc sel_reflist {w x y} {
8671 global showrefstop reflist headids tagids otherrefids
8681 }
8683 }
8685 proc unsel_reflist {} {
8686 global showrefstop
8690 }
8692 proc reflistfilter_change {n1 n2 op} {
8693 global reflistfilter
8695 after cancel refill_reflist
8696 after 200 refill_reflist
8697 }
8699 proc refill_reflist {} {
8700 global reflist reflistfilter showrefstop headids tagids otherrefids
8701 global curview
8704 set refs {}
8705 foreach n [array names headids] {
8709 } else {
8711 }
8712 }
8713 }
8714 foreach n [array names tagids] {
8718 } else {
8720 }
8721 }
8722 }
8723 foreach n [array names otherrefids] {
8727 } else {
8729 }
8730 }
8731 }
8739 set i 0
8740 set j 0
8749 }
8750 } else {
8751 set cmp -1
8752 }
8753 } else {
8754 set cmp 1
8755 }
8757 -1 {
8759 incr i
8760 }
8761 0 {
8762 incr i
8763 incr j
8764 }
8765 1 {
8770 incr j
8771 }
8772 }
8773 }
8775 # delete last newline
8778 }
8780 # Stuff for finding nearby tags
8781 proc getallcommits {} {
8782 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8783 global idheads idtags idotherrefs allparents tagobjid
8785 if {![info exists allcommits]} {
8786 set nextarc 0
8787 set allcommits 0
8788 set seeds {}
8789 set allcwait 0
8790 set cachedarcs 0
8791 set allccache [file join [gitdir] "gitk.cache"]
8792 if {![catch {
8794 set allcwait 1
8796 }]} return
8797 }
8800 return
8801 }
8802 set cmd [list | git rev-list --parents]
8805 set ids "--all"
8806 } else {
8807 set refs [concat [array names idheads] [array names idtags] \
8808 [array names idotherrefs]]
8809 set ids {}
8810 set tagobjs {}
8811 foreach name [array names tagobjid] {
8813 }
8818 }
8819 }
8823 }
8824 }
8825 }
8829 incr allcommits
8830 nowbusy allcommits
8832 } else {
8833 dispneartags 0
8834 }
8835 }
8837 # Since most commits have 1 parent and 1 child, we group strings of
8838 # such commits into "arcs" joining branch/merge points (BMPs), which
8839 # are commits that either don't have 1 parent or don't have 1 child.
8840 #
8841 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8842 # arcout(id) - outgoing arcs for BMP
8843 # arcids(a) - list of IDs on arc including end but not start
8844 # arcstart(a) - BMP ID at start of arc
8845 # arcend(a) - BMP ID at end of arc
8846 # growing(a) - arc a is still growing
8847 # arctags(a) - IDs out of arcids (excluding end) that have tags
8848 # archeads(a) - IDs out of arcids (excluding end) that have heads
8849 # The start of an arc is at the descendent end, so "incoming" means
8850 # coming from descendents, and "outgoing" means going towards ancestors.
8852 proc getallclines {fd} {
8853 global allparents allchildren idtags idheads nextarc
8854 global arcnos arcids arctags arcout arcend arcstart archeads growing
8855 global seeds allcommits cachedarcs allcupdate
8857 set nid 0
8861 # seen it already
8862 continue
8863 }
8864 set cachedarcs 0
8871 } else {
8877 }
8880 }
8882 # seen parent already
8885 }
8889 }
8892 continue
8893 }
8894 }
8899 }
8901 set ao {}
8904 set a [incr nextarc]
8913 # seen it already, may need to make a new branch
8916 }
8920 }
8922 }
8924 }
8926 global cached_dheads cached_dtags cached_atags
8927 catch {unset cached_dheads}
8928 catch {unset cached_dtags}
8929 catch {unset cached_atags}
8930 }
8933 }
8934 set cacheok 1
8935 if {[catch {
8938 } err]} {
8939 # got an error reading the list of commits
8940 # if we were updating, try rereading the whole thing again
8942 incr allcommits -1
8944 return
8945 }
8946 error_popup "[mc "Error reading commit topology information;\
8947 branch and preceding/following tag information\
8949 set cacheok 0
8950 }
8951 if {[incr allcommits -1] == 0} {
8952 notbusy allcommits
8954 run savecache
8955 }
8956 }
8957 dispneartags 0
8958 return 0
8959 }
8961 proc recalcarc {a} {
8962 global arctags archeads arcids idtags idheads
8964 set at {}
8965 set ah {}
8969 }
8972 }
8973 }
8976 }
8978 proc splitarc {p} {
8979 global arcnos arcids nextarc arctags archeads idtags idheads
8980 global arcstart arcend arcout allparents growing
8985 return
8986 }
8991 return
8992 }
8993 set na [incr nextarc]
8996 } else {
9000 }
9010 }
9015 } else {
9018 }
9019 }
9021 # reconstruct tags and heads lists
9025 } else {
9028 }
9029 }
9031 # Update things for a new commit added that is a child of one
9032 # existing commit. Used when cherry-picking.
9033 proc addnewchild {id p} {
9034 global allparents allchildren idtags nextarc
9035 global arcnos arcids arctags arcout arcend arcstart archeads growing
9036 global seeds allcommits
9044 set a [incr nextarc]
9052 }
9055 }
9057 # This implements a cache for the topology information.
9058 # The cache saves, for each arc, the start and end of the arc,
9059 # the ids on the arc, and the outgoing arcs from the end.
9060 proc readcache {f} {
9061 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9062 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9063 global allcwait
9069 }
9070 if {[catch {
9072 # finish reading the cache and setting up arctags, etc.
9076 foreach id [array names idtags] {
9082 }
9083 }
9084 }
9085 foreach id [array names idheads] {
9091 }
9092 }
9093 }
9097 }
9098 }
9099 set allcwait 0
9100 } else {
9110 }
9114 } else {
9118 }
9119 }
9125 }
9128 }
9131 }
9133 }
9134 } err]} {
9136 return 0
9137 }
9139 getallcommits
9140 }
9142 }
9144 proc getcache {f} {
9145 global nextarc cachedarcs possible_seeds
9147 if {[catch {
9150 # make sure it's an integer
9153 set nextarc 0
9154 set possible_seeds {}
9156 } err]} {
9158 }
9159 return 0
9160 }
9162 proc dropcache {err} {
9163 global allcwait nextarc cachedarcs seeds
9166 foreach v {arcnos arcout arcids arcstart arcend growing \
9167 arctags archeads allparents allchildren} {
9170 }
9171 set allcwait 0
9172 set nextarc 0
9173 set cachedarcs 0
9174 set seeds {}
9175 getallcommits
9176 }
9178 proc writecache {f} {
9179 global cachearc cachedarcs allccache
9180 global arcstart arcend arcnos arcids arcout
9186 }
9187 if {[catch {
9191 } else {
9193 }
9194 }
9195 } err]} {
9199 return 0
9200 }
9205 return 0
9206 }
9207 return 1
9208 }
9210 proc savecache {} {
9211 global nextarc cachedarcs cachearc allccache
9214 set cachearc 0
9216 catch {
9220 }
9221 }
9223 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9224 # or 0 if neither is true.
9225 proc anc_or_desc {a b} {
9226 global arcout arcstart arcend arcnos cached_isanc
9229 # Both are on the same arc(s); either both are the same BMP,
9230 # or if one is not a BMP, the other is also not a BMP or is
9231 # the BMP at end of the arc (and it only has 1 incoming arc).
9232 # Or both can be BMPs with no incoming arcs.
9234 return 0
9235 }
9241 return 1
9242 } else {
9243 return -1
9244 }
9245 }
9251 } else {
9252 set aend {}
9253 }
9255 } else {
9257 }
9262 } else {
9263 set bend {}
9264 }
9266 } else {
9268 }
9270 return 1
9271 }
9273 return -1
9274 }
9277 return 1
9278 }
9279 }
9282 return -1
9283 }
9285 return 0
9286 }
9287 }
9295 continue
9296 }
9302 return 1
9306 return -1
9307 }
9313 }
9314 }
9315 }
9318 return 0
9319 }
9323 # and returns 0 if so and 1 if not.
9324 # If we subsequently discover a tag on such a growing tip, and that
9327 # isn't a good choice to display as a descendent tag of
9331 #
9332 proc is_certain {desc anc} {
9333 global arcnos arcout arcstart arcend growing problems
9335 set certain {}
9337 # tags on the same arc are certain
9339 return 1
9340 }
9345 }
9346 }
9349 } else {
9352 }
9354 return 1
9355 }
9358 set nnh 1
9359 set ngrowanc 0
9363 incr nnh -1
9364 }
9370 incr ngrowanc
9371 }
9372 } else {
9379 incr nnh -1
9380 }
9382 incr ngrowanc -1
9383 }
9393 incr nnh -1
9394 }
9396 incr ngrowanc -1
9397 }
9399 }
9400 }
9401 }
9402 }
9403 }
9404 }
9408 } else {
9411 incr nnh
9412 }
9413 }
9414 }
9415 }
9416 foreach x [array names growanc] {
9418 return 0
9419 }
9420 return 0
9421 }
9422 return 1
9423 }
9425 proc validate_arctags {a} {
9426 global arctags idtags
9428 set i -1
9431 incr i
9434 incr i -1
9435 }
9436 }
9438 }
9440 proc validate_archeads {a} {
9441 global archeads idheads
9443 set i -1
9446 incr i
9449 incr i -1
9450 }
9451 }
9453 }
9455 # Return the list of IDs that have tags that are descendents of id,
9456 # ignoring IDs that are descendents of IDs already reported.
9457 proc desctags {id} {
9458 global arcnos arcstart arcids arctags idtags allparents
9459 global growing cached_dtags
9462 return {}
9463 }
9464 set t1 [clock clicks -milliseconds]
9467 # part-way along an arc; check that arc first
9472 set tid {}
9477 }
9480 }
9481 }
9485 }
9486 }
9489 }
9494 set nc 1
9500 incr nc -1
9501 }
9502 # ignore tags on starting node
9506 set ta 1
9509 set ta 1
9510 }
9511 }
9518 }
9519 }
9528 }
9531 }
9533 incr nc -1
9534 }
9536 }
9537 }
9538 }
9543 incr nc
9544 }
9545 }
9546 }
9547 }
9548 set tags {}
9549 foreach id [array names tagloc] {
9554 }
9555 }
9556 }
9557 }
9558 set t2 [clock clicks -milliseconds]
9561 # remove tags that are descendents of other tags
9569 incr j -1
9570 incr i -1
9573 incr i -1
9574 break
9575 }
9576 }
9577 }
9579 if {[array names growing] ne {}} {
9580 # graph isn't finished, need to check if any tag could get
9581 # eclipsed by another tag coming later. Simply ignore any
9582 # tags that could later get eclipsed.
9583 set ctags {}
9587 }
9588 }
9591 } else {
9593 }
9594 } else {
9596 }
9597 set t3 [clock clicks -milliseconds]
9601 }
9603 }
9605 proc anctags {id} {
9606 global arcnos arcids arcout arcend arctags idtags allparents
9607 global growing cached_atags
9610 return {}
9611 }
9612 set t1 [clock clicks -milliseconds]
9615 # part-way along an arc; check that arc first
9624 }
9625 }
9626 }
9628 return {}
9629 }
9633 }
9634 }
9637 }
9642 set taglist {}
9643 set nc 1
9649 incr nc -1
9650 }
9651 # ignore tags on starting node
9655 set td 1
9658 set td 1
9659 }
9660 }
9666 }
9667 }
9679 }
9680 }
9683 }
9685 incr nc -1
9686 }
9688 }
9689 }
9690 }
9695 incr nc
9696 }
9697 }
9698 }
9699 }
9700 set t2 [clock clicks -milliseconds]
9702 set tags {}
9703 foreach id [array names tagloc] {
9708 }
9709 }
9710 }
9711 }
9713 # remove tags that are ancestors of other tags
9721 incr j -1
9722 incr i -1
9725 incr i -1
9726 break
9727 }
9728 }
9729 }
9731 if {[array names growing] ne {}} {
9732 # graph isn't finished, need to check if any tag could get
9733 # eclipsed by another tag coming later. Simply ignore any
9734 # tags that could later get eclipsed.
9735 set ctags {}
9739 }
9740 }
9743 } else {
9745 }
9746 } else {
9748 }
9749 set t3 [clock clicks -milliseconds]
9753 }
9755 }
9757 # Return the list of IDs that have heads that are descendents of id,
9758 # including id itself if it has a head.
9759 proc descheads {id} {
9760 global arcnos arcstart arcids archeads idheads cached_dheads
9761 global allparents
9764 return {}
9765 }
9766 set aret {}
9768 # part-way along an arc; check it first
9777 }
9778 }
9780 }
9784 set ret {}
9789 } else {
9792 }
9798 }
9799 }
9804 }
9805 }
9806 }
9807 }
9811 }
9813 proc addedtag {id} {
9814 global arcnos arcout cached_dtags cached_atags
9819 }
9820 catch {unset cached_dtags}
9821 catch {unset cached_atags}
9822 }
9824 proc addedhead {hid head} {
9825 global arcnos arcout cached_dheads
9830 }
9831 catch {unset cached_dheads}
9832 }
9834 proc removedhead {hid head} {
9835 global cached_dheads
9837 catch {unset cached_dheads}
9838 }
9840 proc movedhead {hid head} {
9841 global arcnos arcout cached_dheads
9846 }
9847 catch {unset cached_dheads}
9848 }
9850 proc changedrefs {} {
9851 global cached_dheads cached_dtags cached_atags
9852 global arctags archeads arcnos arcout idheads idtags
9854 foreach id [concat [array names idheads] [array names idtags]] {
9860 }
9861 }
9862 }
9863 catch {unset cached_dtags}
9864 catch {unset cached_atags}
9865 catch {unset cached_dheads}
9866 }
9868 proc rereadrefs {} {
9869 global idtags idheads idotherrefs mainheadid
9871 set refids [concat [array names idtags] \
9872 [array names idheads] [array names idotherrefs]]
9876 }
9877 }
9879 readrefs
9880 changedrefs
9882 [array names idheads] [array names idotherrefs]]]
9887 }
9888 }
9892 }
9893 run refill_reflist
9894 }
9896 proc listrefs {id} {
9897 global idtags idheads idotherrefs
9899 set x {}
9902 }
9903 set y {}
9906 }
9907 set z {}
9910 }
9912 }
9914 proc showtag {tag isnew} {
9915 global ctext tagcontents tagids linknum tagobjid
9919 }
9921 clear_ctext
9922 settabs 0
9923 set linknum 0
9925 catch {
9927 }
9928 }
9931 } else {
9933 }
9936 init_flist {}
9937 }
9939 proc doquit {} {
9940 global stopped
9941 global gitktmpdir
9943 set stopped 100
9944 savestuff .
9945 destroy .
9947 if {[info exists gitktmpdir]} {
9949 }
9950 }
9952 proc mkfontdisp {font top which} {
9961 }
9963 proc choosefont {font which} {
9964 global fontparam fontlist fonttop fontattr
9965 global prefstop
9973 set top .gitkfont
9976 font create sample
9983 set fontlist [lsort [font families]]
9994 -textvariable fontparam(size) \
9995 -validatecommand {string is integer -strict %s}
9997 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9998 -variable fontparam(weight) -onvalue bold -offvalue normal
10000 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10001 -variable fontparam(slant) -onvalue italic -offvalue roman
10005 -background white
10007 -fill black -tags text
10019 trace add variable fontparam write chg_fontparam
10020 } else {
10023 }
10028 }
10029 }
10031 proc centertext {w} {
10033 }
10035 proc fontok {} {
10036 global fontparam fontpref prefstop
10042 }
10045 }
10049 fontcan
10050 }
10052 proc fontcan {} {
10053 global fonttop fontparam
10055 if {[info exists fonttop]} {
10057 catch {font delete sample}
10058 unset fonttop
10059 unset fontparam
10060 }
10061 }
10063 proc selfontfam {} {
10064 global fonttop fontparam
10069 }
10070 }
10072 proc chg_fontparam {v sub op} {
10073 global fontparam
10076 }
10078 proc doprefs {} {
10079 global maxwidth maxgraphpct
10080 global oldprefs prefstop showneartags showlocalchanges
10081 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10082 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10084 set top .gitkprefs
10088 return
10089 }
10090 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10091 limitdiffs tabstop perfile_attrs} {
10093 }
10101 -font optionfont
10105 -font optionfont
10109 -font optionfont -variable showlocalchanges
10112 -font optionfont -variable autoselect
10121 -font optionfont -variable showneartags
10124 -font optionfont -variable limitdiffs
10127 -font optionfont -variable perfile_attrs
10133 -padx 10
10135 -command choose_extdiff
10162 [mc "diff hunk header"] \
10168 [mc "marked line background"] \
10192 }
10194 proc choose_extdiff {} {
10195 global extdifftool
10197 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
10200 }
10201 }
10203 proc choosecolor {v vi w x cmd} {
10212 }
10214 proc setselbg {c} {
10215 global bglist cflist
10218 }
10222 }
10224 proc setbg {c} {
10225 global bglist
10229 }
10230 }
10232 proc setfg {c} {
10233 global fglist canv
10237 }
10240 }
10242 proc prefscan {} {
10243 global oldprefs prefstop
10245 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10246 limitdiffs tabstop perfile_attrs} {
10249 }
10251 unset prefstop
10252 fontcan
10253 }
10255 proc prefsok {} {
10256 global maxwidth maxgraphpct
10257 global oldprefs prefstop showneartags showlocalchanges
10258 global fontpref mainfont textfont uifont
10259 global limitdiffs treediffs perfile_attrs
10262 unset prefstop
10263 fontcan
10264 set fontchanged 0
10268 eval font configure mainfont [fontflags mainfont]
10269 eval font configure mainfontbold [fontflags mainfont 1]
10270 setcoords
10271 set fontchanged 1
10272 }
10276 eval font configure textfont [fontflags textfont]
10277 eval font configure textfontbold [fontflags textfont 1]
10278 }
10282 eval font configure uifont [fontflags uifont]
10283 }
10284 settabs
10287 doshowlocalchanges
10288 } else {
10289 dohidelocalchanges
10290 }
10291 }
10294 # treediffs elements are limited by path;
10295 # won't have encodings cached if perfile_attrs was just turned on
10296 catch {unset treediffs}
10297 }
10300 redisplay
10303 reselectline
10304 }
10305 }
10307 proc formatdate {d} {
10308 global datetimeformat
10311 }
10313 }
10315 # This list of encoding names and aliases is distilled from
10316 # http://www.iana.org/assignments/character-sets.
10317 # Not all of them are supported by Tcl.
10318 set encoding_aliases {
10319 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10320 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10321 { ISO-10646-UTF-1 csISO10646UTF1 }
10322 { ISO_646.basic:1983 ref csISO646basic1983 }
10323 { INVARIANT csINVARIANT }
10324 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10325 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10326 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10327 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10328 { NATS-DANO iso-ir-9-1 csNATSDANO }
10329 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10330 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10331 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10332 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10333 { ISO-2022-KR csISO2022KR }
10334 { EUC-KR csEUCKR }
10335 { ISO-2022-JP csISO2022JP }
10336 { ISO-2022-JP-2 csISO2022JP2 }
10337 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10338 csISO13JISC6220jp }
10339 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10340 { IT iso-ir-15 ISO646-IT csISO15Italian }
10341 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10342 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10343 { greek7-old iso-ir-18 csISO18Greek7Old }
10344 { latin-greek iso-ir-19 csISO19LatinGreek }
10345 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10346 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10347 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10348 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10349 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10350 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10351 { INIS iso-ir-49 csISO49INIS }
10352 { INIS-8 iso-ir-50 csISO50INIS8 }
10353 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10354 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10355 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10356 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10357 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10358 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10359 csISO60Norwegian1 }
10360 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10361 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10362 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10363 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10364 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10365 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10366 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10367 { greek7 iso-ir-88 csISO88Greek7 }
10368 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10369 { iso-ir-90 csISO90 }
10370 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10371 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10372 csISO92JISC62991984b }
10373 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10374 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10375 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10376 csISO95JIS62291984handadd }
10377 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10378 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10379 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10380 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10381 CP819 csISOLatin1 }
10382 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10383 { T.61-7bit iso-ir-102 csISO102T617bit }
10384 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10385 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10386 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10387 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10388 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10389 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10390 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10391 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10392 arabic csISOLatinArabic }
10393 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10394 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10395 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10396 greek greek8 csISOLatinGreek }
10397 { T.101-G2 iso-ir-128 csISO128T101G2 }
10398 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10399 csISOLatinHebrew }
10400 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10401 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10402 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10403 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10404 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10405 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10406 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10407 csISOLatinCyrillic }
10408 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10409 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10410 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10411 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10412 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10413 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10414 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10415 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10416 { ISO_10367-box iso-ir-155 csISO10367Box }
10417 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10418 { latin-lap lap iso-ir-158 csISO158Lap }
10419 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10420 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10421 { us-dk csUSDK }
10422 { dk-us csDKUS }
10423 { JIS_X0201 X0201 csHalfWidthKatakana }
10424 { KSC5636 ISO646-KR csKSC5636 }
10425 { ISO-10646-UCS-2 csUnicode }
10426 { ISO-10646-UCS-4 csUCS4 }
10427 { DEC-MCS dec csDECMCS }
10428 { hp-roman8 roman8 r8 csHPRoman8 }
10429 { macintosh mac csMacintosh }
10430 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10431 csIBM037 }
10432 { IBM038 EBCDIC-INT cp038 csIBM038 }
10433 { IBM273 CP273 csIBM273 }
10434 { IBM274 EBCDIC-BE CP274 csIBM274 }
10435 { IBM275 EBCDIC-BR cp275 csIBM275 }
10436 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10437 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10438 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10439 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10440 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10441 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10442 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10443 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10444 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10445 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10446 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10447 { IBM437 cp437 437 csPC8CodePage437 }
10448 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10449 { IBM775 cp775 csPC775Baltic }
10450 { IBM850 cp850 850 csPC850Multilingual }
10451 { IBM851 cp851 851 csIBM851 }
10452 { IBM852 cp852 852 csPCp852 }
10453 { IBM855 cp855 855 csIBM855 }
10454 { IBM857 cp857 857 csIBM857 }
10455 { IBM860 cp860 860 csIBM860 }
10456 { IBM861 cp861 861 cp-is csIBM861 }
10457 { IBM862 cp862 862 csPC862LatinHebrew }
10458 { IBM863 cp863 863 csIBM863 }
10459 { IBM864 cp864 csIBM864 }
10460 { IBM865 cp865 865 csIBM865 }
10461 { IBM866 cp866 866 csIBM866 }
10462 { IBM868 CP868 cp-ar csIBM868 }
10463 { IBM869 cp869 869 cp-gr csIBM869 }
10464 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10465 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10466 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10467 { IBM891 cp891 csIBM891 }
10468 { IBM903 cp903 csIBM903 }
10469 { IBM904 cp904 904 csIBBM904 }
10470 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10471 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10472 { IBM1026 CP1026 csIBM1026 }
10473 { EBCDIC-AT-DE csIBMEBCDICATDE }
10474 { EBCDIC-AT-DE-A csEBCDICATDEA }
10475 { EBCDIC-CA-FR csEBCDICCAFR }
10476 { EBCDIC-DK-NO csEBCDICDKNO }
10477 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10478 { EBCDIC-FI-SE csEBCDICFISE }
10479 { EBCDIC-FI-SE-A csEBCDICFISEA }
10480 { EBCDIC-FR csEBCDICFR }
10481 { EBCDIC-IT csEBCDICIT }
10482 { EBCDIC-PT csEBCDICPT }
10483 { EBCDIC-ES csEBCDICES }
10484 { EBCDIC-ES-A csEBCDICESA }
10485 { EBCDIC-ES-S csEBCDICESS }
10486 { EBCDIC-UK csEBCDICUK }
10487 { EBCDIC-US csEBCDICUS }
10488 { UNKNOWN-8BIT csUnknown8BiT }
10489 { MNEMONIC csMnemonic }
10490 { MNEM csMnem }
10491 { VISCII csVISCII }
10492 { VIQR csVIQR }
10493 { KOI8-R csKOI8R }
10494 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10495 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10496 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10497 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10498 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10499 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10500 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10501 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10502 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10503 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10504 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10505 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10506 { IBM1047 IBM-1047 }
10507 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10508 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10509 { UNICODE-1-1 csUnicode11 }
10510 { CESU-8 csCESU-8 }
10511 { BOCU-1 csBOCU-1 }
10512 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10513 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10514 l8 }
10515 { ISO-8859-15 ISO_8859-15 Latin-9 }
10516 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10517 { GBK CP936 MS936 windows-936 }
10518 { JIS_Encoding csJISEncoding }
10519 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10520 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10521 EUC-JP }
10522 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10523 { ISO-10646-UCS-Basic csUnicodeASCII }
10524 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10525 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10526 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10527 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10528 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10529 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10530 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10531 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10532 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10533 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10534 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10535 { Ventura-US csVenturaUS }
10536 { Ventura-International csVenturaInternational }
10537 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10538 { PC8-Turkish csPC8Turkish }
10539 { IBM-Symbols csIBMSymbols }
10540 { IBM-Thai csIBMThai }
10541 { HP-Legal csHPLegal }
10542 { HP-Pi-font csHPPiFont }
10543 { HP-Math8 csHPMath8 }
10544 { Adobe-Symbol-Encoding csHPPSMath }
10545 { HP-DeskTop csHPDesktop }
10546 { Ventura-Math csVenturaMath }
10547 { Microsoft-Publishing csMicrosoftPublishing }
10548 { Windows-31J csWindows31J }
10549 { GB2312 csGB2312 }
10550 { Big5 csBig5 }
10551 }
10553 proc tcl_encoding {enc} {
10554 global encoding_aliases tcl_encoding_cache
10557 }
10558 set names [encoding names]
10563 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10566 }
10567 }
10572 # look through the aliases for one that tcl knows about
10578 }
10579 }
10581 }
10582 break
10583 }
10584 }
10585 set tclenc {}
10588 }
10591 }
10593 proc gitattr {path attr default} {
10594 global path_attr_cache
10597 } else {
10598 set r "unspecified"
10601 }
10603 }
10606 }
10608 }
10610 proc cache_gitattr {attr pathlist} {
10611 global path_attr_cache
10612 set newlist {}
10616 }
10617 }
10618 set lim 1000
10619 if {[tk windowingsystem] == "win32"} {
10620 # windows has a 32k limit on the arguments to a command...
10621 set lim 30
10622 }
10631 }
10633 }
10634 }
10635 }
10636 }
10637 }
10639 proc get_path_encoding {path} {
10640 global gui_encoding perfile_attrs
10646 }
10647 }
10649 }
10651 # First check that Tcl/Tk is recent enough
10652 if {[catch {package require Tk 8.4} err]} {
10653 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10654 Gitk requires at least Tcl/Tk 8.4."]
10655 exit 1
10656 }
10658 # defaults...
10659 set wrcomcmd "git diff-tree --stdin -p --pretty"
10661 set gitencoding {}
10662 catch {
10663 set gitencoding [exec git config --get i18n.commitencoding]
10664 }
10665 catch {
10666 set gitencoding [exec git config --get i18n.logoutputencoding]
10667 }
10669 set gitencoding "utf-8"
10670 }
10674 }
10676 set gui_encoding [encoding system]
10677 catch {
10678 set enc [exec git config --get gui.encoding]
10683 } else {
10685 }
10686 }
10687 }
10689 set mainfont {Helvetica 9}
10690 set textfont {Courier 9}
10691 set uifont {Helvetica 9 bold}
10692 set tabstop 8
10693 set findmergefiles 0
10694 set maxgraphpct 50
10695 set maxwidth 16
10696 set revlistorder 0
10697 set fastdate 0
10698 set uparrowlen 5
10699 set downarrowlen 5
10700 set mingaplen 100
10701 set cmitmode "patch"
10702 set wrapcomment "none"
10703 set showneartags 1
10704 set maxrefs 20
10705 set maxlinelen 200
10706 set showlocalchanges 1
10707 set limitdiffs 1
10708 set datetimeformat "%Y-%m-%d %H:%M:%S"
10709 set autoselect 1
10710 set perfile_attrs 0
10712 set extdifftool "meld"
10714 set colors {green red blue magenta darkgrey brown orange}
10715 set bgcolor white
10716 set fgcolor black
10717 set diffcolors {red "#00a000" blue}
10718 set diffcontext 3
10719 set ignorespace 0
10720 set selectbgcolor gray85
10721 set markbgcolor "#e0e0ff"
10723 set circlecolors {white blue gray blue blue}
10725 # button for popping up context menus
10726 if {[tk windowingsystem] eq "aqua"} {
10727 set ctxbut <Button-2>
10728 } else {
10729 set ctxbut <Button-3>
10730 }
10732 ## For msgcat loading, first locate the installation location.
10733 if { [info exists ::env(GITK_MSGSDIR)] } {
10734 ## Msgsdir was manually set in the environment.
10735 set gitk_msgsdir $::env(GITK_MSGSDIR)
10736 } else {
10737 ## Let's guess the prefix from argv0.
10741 unset gitk_prefix
10742 }
10744 ## Internationalization (i18n) through msgcat and gettext. See
10745 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10746 package require msgcat
10747 namespace import ::msgcat::mc
10748 ## And eventually load the actual message catalog
10751 catch {source ~/.gitk}
10753 font create optionfont -family sans-serif -size -12
10756 eval font create mainfont [fontflags mainfont]
10757 eval font create mainfontbold [fontflags mainfont 1]
10760 eval font create textfont [fontflags textfont]
10761 eval font create textfontbold [fontflags textfont 1]
10764 eval font create uifont [fontflags uifont]
10766 setoptions
10768 # check that we can find a .git directory somewhere...
10769 if {[catch {set gitdir [gitdir]}]} {
10770 show_error {} . [mc "Cannot find a git repository here."]
10771 exit 1
10772 }
10775 exit 1
10776 }
10778 set selecthead {}
10779 set selectheadid {}
10781 set revtreeargs {}
10782 set cmdline_files {}
10783 set i 0
10784 set revtreeargscmd {}
10787 "" { }
10788 "--" {
10790 break
10791 }
10792 "--select-commit=*" {
10794 }
10795 "--argscmd=*" {
10797 }
10798 default {
10800 }
10801 }
10802 incr i
10803 }
10806 set selecthead {}
10807 }
10810 # no -- on command line, but some arguments (other than --argscmd)
10811 if {[catch {
10816 # Unfortunately git rev-parse doesn't produce an error when
10817 # something is both a revision and a filename. To be consistent
10818 # with git log and git rev-list, check revtreeargs for filenames.
10821 show_error {} . [mc "Ambiguous argument '%s': both revision\
10823 exit 1
10824 }
10825 }
10826 } err]} {
10828 # so look for "fatal:".
10832 }
10834 exit 1
10835 }
10836 }
10838 set nullid "0000000000000000000000000000000000000000"
10839 set nullid2 "0000000000000000000000000000000000000001"
10840 set nullfile "/dev/null"
10844 set runq {}
10845 set history {}
10846 set historyindex 0
10847 set fh_serial 0
10848 set nhl_names {}
10849 set highlight_paths {}
10850 set findpattern {}
10851 set searchdirn -forwards
10852 set boldids {}
10853 set boldnameids {}
10854 set diffelide {0 0}
10855 set markingmatches 0
10856 set linkentercount 0
10857 set need_redisplay 0
10858 set nrows_drawn 0
10859 set firsttabstop 0
10861 set nextviewnum 1
10862 set curview 0
10863 set selectedview 0
10864 set selectedhlview [mc "None"]
10865 set highlight_related [mc "None"]
10866 set highlight_files {}
10867 set viewfiles(0) {}
10868 set viewperm(0) 0
10869 set viewargs(0) {}
10870 set viewargscmd(0) {}
10872 set selectedline {}
10873 set numcommits 0
10874 set loginstance 0
10875 set cmdlineok 0
10876 set stopped 0
10877 set stuffsaved 0
10878 set patchnum 0
10879 set lserial 0
10880 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10881 setcoords
10882 makewindow
10883 # wait for the window to become visible
10884 tkwait visibility .
10886 readrefs
10889 # create a view for the files/dirs specified on the command line
10890 set curview 1
10891 set selectedview 1
10892 set nextviewnum 2
10893 set viewname(1) [mc "Command line"]
10897 set viewperm(1) 0
10898 set vdatemode(1) 0
10899 addviewmenu 1
10900 .bar.view entryconf [mca "Edit view..."] -state normal
10901 .bar.view entryconf [mca "Delete view"] -state normal
10902 }
10904 if {[info exists permviews]} {
10907 incr nextviewnum
10914 }
10915 }
10916 getcommits {}