| blob | dc2a439618ffd92a92d9ca954a8597ba31875dab |
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 }
1612 }
1613 }
1615 # take the first non-blank line of the comment as the headline
1620 }
1625 }
1627 # git log indents the comment by 4 spaces;
1628 # if we got this via git cat-file, add the indentation
1631 append newcomment " "
1632 append newcomment $line
1634 }
1636 }
1639 }
1642 }
1645 global commitdata commitinfo
1650 readcommit $id
1653 }
1654 }
1656 }
1658 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1659 # and are present in the current view.
1660 # This is fairly slow...
1662 global varcid curview
1667 }
1669 }
1671 proc readrefs {} {
1672 global tagids idtags headids idheads tagobjid
1673 global otherrefids idotherrefs mainhead mainheadid
1674 global selecthead selectheadid
1678 }
1690 }
1696 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1697 # which is what we want since the former is the commit ID
1703 }
1709 }
1710 }
1714 catch {
1719 }
1720 }
1723 catch {
1725 }
1726 }
1727 }
1729 # skip over fake commits
1730 proc first_real_row {} {
1731 global nullid nullid2 numcommits
1736 break
1737 }
1738 }
1740 }
1742 # update things for a head moved to a child of its previous location
1744 global headids idheads
1749 }
1751 # update things when a head has been removed
1753 global headids idheads
1761 }
1762 }
1764 }
1767 global have_tk85
1769 # In MacOS Tk 8.4 transient appears to work by setting
1770 # overrideredirect, which is utterly useless, since the
1771 # windows get no border, and are not even kept above
1772 # the parent.
1775 wm transient $window $origin
1777 # Windows fails to place transient windows normally, so
1778 # schedule a callback to center them on the parent.
1781 }
1782 }
1793 tkwait window $top
1794 }
1797 set w .error
1798 toplevel $w
1799 make_transient $w $owner
1800 show_error $w $w $msg
1801 }
1804 global confirm_ok
1806 set w .confirm
1807 toplevel $w
1808 make_transient $w $owner
1819 tkwait window $w
1821 }
1823 proc setoptions {} {
1825 option add *Panedwindow.sashRelief raised startupFile
1826 option add *Button.font uifont startupFile
1827 option add *Checkbutton.font uifont startupFile
1828 option add *Radiobutton.font uifont startupFile
1829 option add *Menu.font uifont startupFile
1830 option add *Menubutton.font uifont startupFile
1831 option add *Label.font uifont startupFile
1832 option add *Message.font uifont startupFile
1833 option add *Entry.font uifont startupFile
1834 }
1836 # Make a menu and submenus.
1837 # m is the window name for the menu, items is the list of menu items to add.
1838 # Each item is a list {mc label type description options...}
1839 # mc is ignored; it's so we can put mc there to alert xgettext
1840 # label is the string that appears in the menu
1841 # type is cascade, command or radiobutton (should add checkbutton)
1842 # description depends on type; it's the sublist for cascade, the
1843 # command to invoke for command, or {variable value} for radiobutton
1845 menu $m
1847 set Meta1 Cmd
1849 set Meta1 Ctrl
1850 }
1861 }
1862 }
1867 }
1870 }
1874 }
1875 }
1881 }
1882 }
1883 }
1885 # translate string and remove ampersands
1888 }
1890 proc makewindow {} {
1891 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1892 global tabstop
1893 global findtype findtypemenu findloc findstring fstring geometry
1894 global entries sha1entry sha1string sha1but
1895 global diffcontextstring diffcontext
1896 global ignorespace
1897 global maincursor textcursor curtextcursor
1898 global rowctxmenu fakerowmenu mergemax wrapcomment
1899 global highlight_files gdttype
1900 global searchstring sstring
1901 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1902 global headctxmenu progresscanv progressitem progresscoords statusw
1903 global fprogitem fprogcoord lastprogupdate progupdatepending
1904 global rprogitem rprogcoord rownumsel numcommits
1905 global have_tk85
1907 # The "mc" arguments here are purely so that xgettext
1908 # sees the following string as needing to be translated
1909 makemenu .bar {
1919 }}
1922 }}
1929 }}
1933 }}
1934 }
1935 . configure -menu .bar
1937 # the gui has upper and lower half, parts of a paned window.
1938 panedwindow .ctop -orient vertical
1940 # possibly use assumed geometry
1948 }
1950 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1952 frame .tf.histframe
1955 # create three canvases
1956 set cscroll .tf.histframe.csb
1957 set canv .tf.histframe.pwclist.canv
1958 canvas $canv \
1962 .tf.histframe.pwclist add $canv
1963 set canv2 .tf.histframe.pwclist.canv2
1964 canvas $canv2 \
1967 .tf.histframe.pwclist add $canv2
1968 set canv3 .tf.histframe.pwclist.canv3
1969 canvas $canv3 \
1972 .tf.histframe.pwclist add $canv3
1976 # a scroll bar to rule them
1980 lappend bglist $canv $canv2 $canv3
1983 # we have two button bars at bottom of top frame. Bar 1
1984 frame .tf.bar
1987 set sha1entry .tf.bar.sha1
1989 set sha1but .tf.bar.sha1label
1993 pack .tf.bar.sha1label -side left
1995 trace add variable sha1string write sha1change
1999 #define left_width 16
2000 #define left_height 16
2001 static unsigned char left_bits[] = {
2005 }
2007 #define right_width 16
2008 #define right_height 16
2009 static unsigned char right_bits[] = {
2013 }
2028 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2029 -side left
2030 global selectedline
2031 trace add variable selectedline write selectedline_change
2033 # Status label and progress bar
2034 set statusw .tf.bar.status
2038 set progresscanv .tf.bar.progress
2051 # build up the bottom bar of upper window
2056 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2063 trace add variable gdttype write gdttype_change
2067 set fstring .tf.lbar.findstring
2068 lappend entries $fstring
2070 trace add variable findstring write find_change
2074 trace add variable findtype write findcom_change
2078 trace add variable findloc write find_change
2079 pack .tf.lbar.findloc -side right
2080 pack .tf.lbar.findtype -side right
2083 # Finish putting the upper half of the viewer together
2087 .ctop add .tf
2091 # now build up the bottom
2092 panedwindow .pwbottom -orient horizontal
2094 # lower left, a text box over search bar, scroll bar to the right
2095 # if we know window height, then that will set the lower text height, otherwise
2096 # we set lower text height which will drive window height
2101 }
2102 frame .bleft.top
2103 frame .bleft.mid
2104 frame .bleft.bottom
2108 set sstring .bleft.top.sstring
2110 lappend entries $sstring
2111 trace add variable searchstring write incrsearch
2124 -textvariable diffcontextstring
2126 trace add variable diffcontextstring write diffcontextchange
2127 lappend entries .bleft.mid.diffcontext
2128 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2132 set ctext .bleft.bottom.ctext
2139 }
2146 grid .bleft.bottom.sbhorizontal -sticky ew
2151 lappend bglist $ctext
2152 lappend fglist $ctext
2181 .pwbottom add .bleft
2184 # lower right
2185 frame .bright
2186 frame .bright.mode
2193 set cflist .bright.cfiles
2195 text $cflist \
2198 -font mainfont \
2203 lappend bglist $cflist
2204 lappend fglist $cflist
2208 $cflist tag configure highlight \
2212 .pwbottom add .bright
2213 .ctop add .pwbottom
2215 # restore window width & height if known
2220 }
2223 }
2225 }
2226 }
2229 set M1B M1
2231 set M1B Control
2232 }
2237 #bindall <B1-Motion> {selcanvline %W %x %y}
2247 allcanvs yview scroll $delta units
2248 }
2249 }
2250 }
2272 bindkey p "selnextline -1"
2273 bindkey n "selnextline 1"
2274 bindkey z "goback"
2275 bindkey x "goforw"
2276 bindkey i "selnextline -1"
2277 bindkey k "selnextline 1"
2278 bindkey j "goback"
2279 bindkey l "goforw"
2280 bindkey b prevfile
2286 bindkey f nextfile
2303 wm protocol . WM_DELETE_WINDOW doquit
2312 global ctxbut
2316 set maincursor [. cget -cursor]
2320 set rowctxmenu .rowctxmenu
2322 {mc "Diff this -> selected" command {diffvssel 0}}
2323 {mc "Diff selected -> this" command {diffvssel 1}}
2324 {mc "Make patch" command mkpatch}
2325 {mc "Create tag" command mktag}
2326 {mc "Write commit to file" command writecommit}
2327 {mc "Create new branch" command mkbranch}
2328 {mc "Cherry-pick this commit" command cherrypick}
2329 {mc "Reset HEAD branch to here" command resethead}
2330 }
2333 set fakerowmenu .fakerowmenu
2335 {mc "Diff this -> selected" command {diffvssel 0}}
2336 {mc "Diff selected -> this" command {diffvssel 1}}
2337 {mc "Make patch" command mkpatch}
2338 }
2341 set headctxmenu .headctxmenu
2343 {mc "Check out this branch" command cobranch}
2344 {mc "Remove this branch" command rmbranch}
2345 }
2348 global flist_menu
2349 set flist_menu .flistctxmenu
2351 {mc "Highlight this too" command {flist_hl 0}}
2352 {mc "Highlight this only" command {flist_hl 1}}
2353 {mc "External diff" command {external_diff}}
2354 {mc "Blame parent commit" command {external_blame 1}}
2355 }
2358 global diff_menu
2359 set diff_menu .diffctxmenu
2361 {mc "Show origin of this line" command show_line_source}
2362 {mc "Run git gui blame on this line" command {external_blame_diff}}
2363 }
2365 }
2367 # Windows sends all mouse wheel events to the current focused window, not
2368 # the one where the mouse hovers, so bind those events here and redirect
2369 # to the correct window
2370 proc windows_mousewheel_redirector {W X Y D} {
2371 global canv canv2 canv3
2377 } else {
2378 catch {
2380 }
2381 }
2382 }
2383 }
2385 # Update row number label when selectedline changes
2386 proc selectedline_change {n1 n2 op} {
2387 global selectedline rownumsel
2390 set rownumsel {}
2391 } else {
2393 }
2394 }
2396 # mouse-2 makes all windows scan vertically, but only the one
2397 # the cursor is in scans horizontally
2398 proc canvscan {op w x y} {
2399 global canv canv2 canv3
2403 } else {
2405 }
2406 }
2407 }
2409 proc scrollcanv {cscroll f0 f1} {
2411 drawvisible
2412 flushhighlights
2413 }
2415 # when we make a key binding for the toplevel, make sure
2416 # it doesn't get triggered when that key is pressed in the
2417 # find string entry widget.
2418 proc bindkey {ev script} {
2419 global entries
2423 set escript [bind Entry <Key>]
2424 }
2427 }
2428 }
2430 # set the focus back to the toplevel for any click outside
2431 # the entry widgets
2432 proc click {w} {
2433 global ctext entries
2436 }
2437 focus .
2438 }
2440 # Adjust the progress bar for a change in requested extent or canvas size
2441 proc adjustprogress {} {
2442 global progresscanv progressitem progresscoords
2443 global fprogitem fprogcoord lastprogupdate progupdatepending
2444 global rprogitem rprogcoord
2453 set now [clock clicks -milliseconds]
2455 set progupdatepending 0
2456 update
2458 set progupdatepending 1
2460 }
2461 }
2463 proc doprogupdate {} {
2464 global lastprogupdate progupdatepending
2467 set progupdatepending 0
2468 set lastprogupdate [clock clicks -milliseconds]
2469 update
2470 }
2471 }
2473 proc savestuff {w} {
2474 global canv canv2 canv3 mainfont textfont uifont tabstop
2475 global stuffsaved findmergefiles maxgraphpct
2476 global maxwidth showneartags showlocalchanges
2477 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2478 global cmitmode wrapcomment datetimeformat limitdiffs
2479 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2480 global autoselect extdifftool perfile_attrs markbgcolor
2483 if {![winfo viewable .]} return
2484 catch {
2485 set f [open "~/.gitk-new" w]
2522 }
2523 }
2526 file rename -force "~/.gitk-new" "~/.gitk"
2527 }
2528 set stuffsaved 1
2529 }
2531 proc resizeclistpanes {win w} {
2532 global oldwidth
2539 } else {
2544 set sash0 30
2545 }
2548 }
2553 }
2554 }
2555 }
2558 }
2560 }
2562 proc resizecdetpanes {win w} {
2563 global oldwidth
2568 } else {
2572 set sash0 45
2573 }
2576 }
2577 }
2579 }
2581 }
2583 proc allcanvs args {
2584 global canv canv2 canv3
2588 }
2590 proc bindall {event action} {
2591 global canv canv2 canv3
2595 }
2597 proc about {} {
2598 global uifont
2599 set w .about
2602 return
2603 }
2608 Gitk - a commit viewer for git
2610 Copyright © 2005-2008 Paul Mackerras
2612 Use and redistribute under the terms of the GNU General Public License"] \
2613 -justify center -aspect 400 -border 2 -bg white -relief groove
2620 }
2622 proc keys {} {
2623 set w .keys
2626 return
2627 }
2628 if {[tk windowingsystem] eq {aqua}} {
2629 set M1T Cmd
2630 } else {
2631 set M1T Ctrl
2632 }
2637 [mc "Gitk key bindings:"]
2640 [mc "<Home> Move to first commit"]
2641 [mc "<End> Move to last commit"]
2642 [mc "<Up>, p, i Move up one commit"]
2643 [mc "<Down>, n, k Move down one commit"]
2644 [mc "<Left>, z, j Go back in history list"]
2645 [mc "<Right>, x, l Go forward in history list"]
2646 [mc "<PageUp> Move up one page in commit list"]
2647 [mc "<PageDown> Move down one page in commit list"]
2654 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2655 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2656 [mc "<Delete>, b Scroll diff view up one page"]
2657 [mc "<Backspace> Scroll diff view up one page"]
2658 [mc "<Space> Scroll diff view down one page"]
2659 [mc "u Scroll diff view up 18 lines"]
2660 [mc "d Scroll diff view down 18 lines"]
2663 [mc "<Return> Move to next find hit"]
2664 [mc "/ Focus the search box"]
2665 [mc "? Move to previous find hit"]
2666 [mc "f Scroll diff view to next file"]
2673 [mc "<F5> Update"]
2674 " \
2675 -justify left -bg white -border 2 -relief groove
2683 }
2685 # Procedures for manipulating the file list window at the
2686 # bottom right of the overall window.
2688 proc treeview {w l openlevs} {
2689 global treecontents treediropen treeheight treeparent treeindex
2691 set ix 0
2692 set treeindex() 0
2693 set lev 0
2694 set prefix {}
2695 set prefixend -1
2696 set prefendstack {}
2697 set htstack {}
2698 set ht 0
2699 set treecontents() {}
2706 }
2713 incr lev -1
2714 }
2718 set ht 0
2730 set ht 1
2735 set str "\n"
2743 }
2744 incr lev
2745 }
2748 incr ht
2749 set str "\n"
2753 }
2755 }
2756 }
2764 }
2766 }
2768 proc linetoelt {l} {
2769 global treeheight treecontents
2771 set y 2
2772 set prefix {}
2773 while {1} {
2777 }
2778 set n 1
2783 incr y
2784 break
2785 }
2786 }
2788 }
2789 }
2790 }
2792 proc highlight_tree {y prefix} {
2793 global treeheight treecontents cflist
2799 }
2800 incr y
2803 }
2804 }
2806 }
2808 proc treeclosedir {w dir} {
2809 global treediropen treeheight treeparent treeindex
2821 }
2822 }
2824 proc treeopendir {w dir} {
2825 global treediropen treeheight treeparent treecontents treeindex
2832 set lev 0
2833 set str "\n"
2836 incr lev
2837 append str "\t"
2839 }
2854 } else {
2857 }
2858 }
2871 }
2873 }
2874 }
2876 proc treeclick {w x y} {
2877 global treediropen cmitmode ctext cflist cflist_top
2880 if {![info exists cflist_top]} return
2887 return
2888 }
2894 } else {
2896 }
2897 }
2899 proc setfilelist {id} {
2900 global treefilelist cflist jump_to_here
2907 }
2908 }
2909 }
2911 image create bitmap tri-rt -background black -foreground blue -data {
2912 #define tri-rt_width 13
2913 #define tri-rt_height 13
2914 static unsigned char tri-rt_bits[] = {
2915 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2916 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2917 0x00, 0x00};
2918 } -maskdata {
2919 #define tri-rt-mask_width 13
2920 #define tri-rt-mask_height 13
2921 static unsigned char tri-rt-mask_bits[] = {
2922 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2923 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2924 0x08, 0x00};
2925 }
2926 image create bitmap tri-dn -background black -foreground blue -data {
2927 #define tri-dn_width 13
2928 #define tri-dn_height 13
2929 static unsigned char tri-dn_bits[] = {
2930 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2931 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2932 0x00, 0x00};
2933 } -maskdata {
2934 #define tri-dn-mask_width 13
2935 #define tri-dn-mask_height 13
2936 static unsigned char tri-dn-mask_bits[] = {
2937 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2938 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2939 0x00, 0x00};
2940 }
2942 image create bitmap reficon-T -background black -foreground yellow -data {
2943 #define tagicon_width 13
2944 #define tagicon_height 9
2945 static unsigned char tagicon_bits[] = {
2946 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2947 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2948 } -maskdata {
2949 #define tagicon-mask_width 13
2950 #define tagicon-mask_height 9
2951 static unsigned char tagicon-mask_bits[] = {
2952 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2953 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2954 }
2955 set rectdata {
2956 #define headicon_width 13
2957 #define headicon_height 9
2958 static unsigned char headicon_bits[] = {
2959 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2960 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2961 }
2962 set rectmask {
2963 #define headicon-mask_width 13
2964 #define headicon-mask_height 9
2965 static unsigned char headicon-mask_bits[] = {
2966 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2967 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2968 }
2969 image create bitmap reficon-H -background black -foreground green \
2971 image create bitmap reficon-o -background black -foreground "#ddddff" \
2974 proc init_flist {first} {
2975 global cflist cflist_top difffilestart
2981 set cflist_top 1
2983 } else {
2984 catch {unset cflist_top}
2985 }
2987 set difffilestart {}
2988 }
2990 proc highlight_tag {f} {
2991 global highlight_paths
2995 return "bold"
2996 }
2997 }
2998 return {}
2999 }
3001 proc highlight_filelist {} {
3002 global cmitmode cflist
3011 }
3012 }
3013 } else {
3014 highlight_tree 2 {}
3015 }
3017 }
3019 proc unhighlight_filelist {} {
3020 global cflist
3025 }
3027 proc add_flist {fl} {
3028 global cflist
3034 }
3036 }
3038 proc sel_flist {w x y} {
3039 global ctext difffilestart cflist cflist_top cmitmode
3042 if {![info exists cflist_top]} return
3049 } else {
3051 }
3052 }
3054 proc pop_flist_menu {w X Y x y} {
3055 global ctext cflist cmitmode flist_menu flist_menu_file
3056 global treediffs diffids
3058 stopfinding
3064 } else {
3066 }
3068 set xdiffstate "normal"
3070 set xdiffstate "disabled"
3071 }
3072 # Disable "External diff" item in tree mode
3075 }
3077 proc find_ctext_fileinfo {line} {
3078 global ctext_file_names ctext_file_lines
3084 return {}
3085 } else {
3087 }
3088 }
3090 proc pop_diff_menu {w X Y x y} {
3091 global ctext diff_menu flist_menu_file
3092 global diff_menu_txtpos diff_menu_line
3093 global diff_menu_filebase
3097 # don't pop up the menu on hunk-separator or file-separator lines
3099 return
3100 }
3101 stopfinding
3107 }
3109 proc flist_hl {only} {
3110 global flist_menu_file findstring gdttype
3115 } else {
3117 }
3118 set gdttype [mc "touching paths:"]
3119 }
3121 proc save_file_from_commit {filename output what} {
3122 global nullfile
3127 }
3129 return {}
3130 }
3132 }
3134 proc external_diff_get_one_file {diffid filename diffdir} {
3135 global nullid nullid2 nullfile
3136 global gitdir
3142 }
3144 }
3148 }
3152 }
3154 proc external_diff {} {
3155 global gitktmpdir nullid nullid2
3156 global flist_menu_file
3157 global diffids
3158 global diffnum
3159 global gitdir extdifftool
3162 # no reference commit given
3165 # diffing working copy with index
3168 # diffing index with HEAD
3169 set diffidfrom "HEAD"
3170 } else {
3171 # use first parent commit
3172 global parentlist selectedline
3174 }
3175 } else {
3178 }
3180 # make sure that several diffs wont collide
3181 if {![info exists gitktmpdir]} {
3183 [format ".gitk-tmp.%s" [pid]]]
3186 unset gitktmpdir
3187 return
3188 }
3189 set diffnum 0
3190 }
3191 incr diffnum
3195 return
3196 }
3198 # gather files to diff
3208 } else {
3211 }
3212 }
3213 }
3215 proc find_hunk_blamespec {base line} {
3216 global ctext
3218 # Find and parse the hunk header
3224 s_line old_specs osz osz1 new_line nsz]} {
3225 return
3226 }
3228 # base lines for the parents
3232 old_spec old_line osz]} {
3233 return
3234 }
3236 }
3238 # Now scan the lines to determine offset within the hunk
3240 set dline 0
3243 # Determine if the line is removed
3247 # Choose a parent index
3250 } else {
3254 } else {
3255 # blame the current commit
3256 set parent -1
3257 }
3258 }
3259 # then count other lines that belong to it
3262 # Determine if the line is removed
3267 incr dline
3268 }
3269 } else {
3271 incr dline
3272 }
3273 }
3274 }
3275 incr parent
3276 } else {
3277 set parent 0
3278 }
3282 }
3284 proc external_blame_diff {} {
3285 global currentid cmitmode
3286 global diff_menu_txtpos diff_menu_line
3287 global diff_menu_filebase flist_menu_file
3290 set parent_idx 0
3292 } else {
3297 } else {
3298 set parent_idx 0
3299 set line 0
3300 }
3301 }
3304 }
3307 # at stage 0 or 2
3308 proc index_sha1 {fname} {
3316 }
3317 }
3319 return {}
3320 }
3322 # Turn an absolute path into one relative to the current directory
3323 proc make_relative {f} {
3325 set here [file split [pwd]]
3326 set ei 0
3327 set hi 0
3328 set res {}
3331 lappend res ".."
3332 } else {
3333 incr ei
3334 }
3335 incr hi
3336 }
3339 }
3341 proc external_blame {parent_idx {line {}}} {
3342 global flist_menu_file gitdir
3343 global nullid nullid2
3344 global parentlist selectedline currentid
3348 } else {
3350 }
3353 error_popup [mc "No such commit"]
3354 return
3355 }
3357 set cmdline [list git gui blame]
3360 }
3362 # Unfortunately it seems git gui blame doesn't like
3363 # being given an absolute path...
3369 }
3370 }
3372 proc show_line_source {} {
3373 global cmitmode currentid parents curview blamestuff blameinst
3374 global diff_menu_line diff_menu_filebase flist_menu_file
3375 global nullid nullid2 gitdir
3377 set from_index {}
3381 } else {
3387 return
3388 }
3389 incr pi -1
3392 # must be a merge in progress...
3393 if {[catch {
3394 # get the last line from .git/MERGE_HEAD
3398 } err]} {
3400 return
3401 }
3403 # need to do the blame from the index
3404 if {[catch {
3406 } err]} {
3408 return
3409 }
3410 } else {
3412 }
3413 } else {
3415 }
3417 }
3418 set blameargs {}
3421 }
3424 lappend blameargs --contents -
3425 } else {
3427 }
3429 if {[catch {
3431 } err]} {
3433 return
3434 }
3435 nowbusy blaming [mc "Searching"]
3441 }
3443 proc stopblaming {} {
3444 global blameinst
3446 if {[info exists blameinst]} {
3448 unset blameinst
3449 notbusy blaming
3450 }
3451 }
3453 proc read_line_source {fd inst} {
3454 global blamestuff curview commfd blameinst nullid nullid2
3458 }
3460 return 1
3461 }
3463 unset blameinst
3464 notbusy blaming
3468 return 0
3469 }
3471 set fname {}
3477 # look for "filename" line
3481 break
3482 }
3483 }
3484 }
3486 # all looks good, select it
3488 # blame uses all-zeroes to mean not committed,
3489 # which would mean a change in the index
3491 }
3494 } else {
3495 error_popup [mc "That line comes from commit %s, \
3497 }
3498 } else {
3499 puts "oops couldn't parse git blame output"
3500 }
3501 return 0
3502 }
3505 proc delete_at_eof {f dir} {
3510 }
3512 return 0
3513 }
3514 return 1
3515 }
3517 # Functions for adding and removing shell-type quoting
3519 proc shellquote {str} {
3522 }
3525 }
3528 }
3530 }
3532 proc shellarglist {l} {
3533 set str {}
3536 append str " "
3537 }
3539 }
3541 }
3543 proc shelldequote {str} {
3544 set ret {}
3545 set used -1
3546 while {1} {
3547 incr used
3551 break
3552 }
3558 }
3560 incr used
3564 error "unmatched single-quote"
3565 }
3568 continue
3569 }
3572 error "trailing backslash"
3573 }
3575 continue
3576 }
3577 # here ch == "\""
3578 while {1} {
3580 error "unmatched double-quote"
3581 }
3587 }
3589 incr used
3591 incr used
3592 }
3593 }
3595 }
3597 proc shellsplit {str} {
3598 set l {}
3599 while {1} {
3607 }
3609 }
3611 # Code to implement multiple views
3613 proc newview {ishighlight} {
3614 global nextviewnum newviewname newishighlight
3615 global revtreeargs viewargscmd newviewopts curview
3618 set top .gitkview
3621 return
3622 }
3628 }
3630 set known_view_options {
3631 {perm b . {} {mc "Remember this view"}}
3632 {args t50= + {} {mc "Commits to include (arguments to git log):"}}
3633 {all b * "--all" {mc "Use all refs"}}
3634 {dorder b . {"--date-order" "-d"} {mc "Strictly sort by date"}}
3635 {lright b . "--left-right" {mc "Mark branch sides"}}
3636 {since t15 + {"--since=*" "--after=*"} {mc "Since date:"}}
3637 {until t15 . {"--until=*" "--before=*"} {mc "Until date:"}}
3638 {limit t10 + "--max-count=*" {mc "Max count:"}}
3639 {skip t10 . "--skip=*" {mc "Skip:"}}
3640 {first b . "--first-parent" {mc "Limit to first parent"}}
3641 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3642 }
3644 proc encode_view_opts {n} {
3645 global known_view_options newviewopts
3647 set rargs [list]
3658 }
3659 } else {
3664 }
3665 }
3666 }
3668 }
3670 proc decode_view_opts {n view_args} {
3671 global known_view_options newviewopts
3675 set val 0
3676 } else {
3677 set val {}
3678 }
3680 }
3681 set oargs [list]
3684 && ![info exists found(limit)]} {
3686 set found(limit) 1
3687 continue
3688 }
3689 catch { unset val }
3698 } else {
3699 set val 1
3700 }
3703 break
3704 }
3705 if {[info exists val]} break
3706 }
3707 if {[info exists val]} continue
3709 }
3711 }
3713 proc edit_or_newview {} {
3714 global curview
3717 editview
3718 } else {
3719 newview 0
3720 }
3721 }
3723 proc editview {} {
3724 global curview
3725 global viewname viewperm newviewname newviewopts
3726 global viewargs viewargscmd
3731 return
3732 }
3738 }
3740 proc vieweditor {top n title} {
3741 global newviewname newviewopts viewfiles bgcolor
3742 global known_view_options
3748 # View name
3756 # View options
3758 set cexpand 0
3759 set cnt 0
3765 set lxpad 0
3769 incr cnt
3773 } else {
3774 set lxpad 5
3775 }
3793 }
3794 }
3796 # Path list
3798 -text [mc "Enter files and directories to include, one per line:"]
3805 }
3808 }
3823 }
3825 proc doviewmenu {m first cmd op argv} {
3830 break
3831 }
3832 }
3833 }
3835 proc allviewmenus {n op args} {
3836 # global viewhlmenu
3840 }
3842 proc newviewok {top n {apply 0}} {
3843 global nextviewnum newviewperm newviewname newishighlight
3844 global viewname viewfiles viewperm selectedview curview
3845 global viewargs viewargscmd newviewopts viewhlmenu
3847 if {[catch {
3849 } err]} {
3851 return
3852 }
3853 set files {}
3858 }
3859 }
3861 # creating a new view
3862 incr nextviewnum
3871 } else {
3873 }
3874 } else {
3875 # editing an existing view
3883 }
3890 run reloadcommits
3891 }
3892 }
3893 }
3896 }
3898 proc delview {} {
3899 global curview viewperm hlview selectedhlview
3903 set selectedhlview [mc "None"]
3904 unset hlview
3905 }
3908 showview 0
3909 }
3911 proc addviewmenu {n} {
3912 global viewname viewhlmenu
3918 }
3920 proc showview {n} {
3921 global curview cached_commitrow ordertok
3922 global displayorder parentlist rowidlist rowisopt rowfinal
3923 global colormap rowtextx nextcolor canvxmax
3924 global numcommits viewcomplete
3925 global selectedline currentid canv canvy0
3926 global treediffs
3927 global pending_select mainheadid
3928 global commitidx
3929 global selectedview
3930 global hlview selectedhlview commitinterest
3933 set selid {}
3944 }
3945 } elseif {[info exists pending_select]} {
3947 unset pending_select
3948 }
3949 unselectline
3950 normalline
3951 catch {unset treediffs}
3952 clear_display
3954 unset hlview
3955 set selectedhlview [mc "None"]
3956 }
3957 catch {unset commitinterest}
3958 catch {unset cached_commitrow}
3959 catch {unset ordertok}
3966 run refill_reflist
3969 return
3970 }
3972 set displayorder {}
3973 set parentlist {}
3974 set rowidlist {}
3975 set rowisopt {}
3976 set rowfinal {}
3979 catch {unset colormap}
3980 catch {unset rowtextx}
3981 set nextcolor 0
3984 set row 0
3985 setcanvscroll
3986 set yf 0
3987 set row {}
3990 # try to get the selected row in the same position on the screen
3994 set ytop 0
3995 }
3997 }
3999 drawvisible
4004 } else {
4005 reset_pending_select {}
4009 } else {
4010 set row [first_real_row]
4013 }
4014 }
4015 }
4018 show_status [mc "Reading commits..."]
4019 }
4021 show_status [mc "No commits selected"]
4022 }
4023 }
4025 # Stuff relating to the highlighting facility
4027 proc ishighlighted {id} {
4028 global vhighlights fhighlights nhighlights rhighlights
4032 }
4035 }
4038 }
4041 }
4042 return 0
4043 }
4045 proc bolden {id font} {
4046 global canv linehtag currentid boldids need_redisplay
4048 # need_redisplay = 1 means the display is stale and about to be redrawn
4055 -outline {{}} -tags secsel \
4058 }
4059 }
4061 proc bolden_name {id font} {
4062 global canv2 linentag currentid boldnameids need_redisplay
4070 -outline {{}} -tags secsel \
4073 }
4074 }
4076 proc unbolden {} {
4077 global boldids
4079 set stillbold {}
4083 } else {
4085 }
4086 }
4088 }
4090 proc addvhighlight {n} {
4091 global hlview viewcomplete curview vhl_done commitidx
4093 if {[info exists hlview]} {
4094 delvhighlight
4095 }
4099 }
4102 drawvisible
4103 }
4104 }
4106 proc delvhighlight {} {
4107 global hlview vhighlights
4109 if {![info exists hlview]} return
4110 unset hlview
4111 catch {unset vhighlights}
4112 unbolden
4113 }
4115 proc vhighlightmore {} {
4116 global hlview vhl_done commitidx vhighlights curview
4119 set vr [visiblerows]
4129 }
4131 }
4132 }
4133 }
4135 return 0
4136 }
4138 proc askvhighlight {row id} {
4139 global hlview vhighlights iddrawn
4144 }
4146 } else {
4148 }
4149 }
4151 proc hfiles_change {} {
4152 global highlight_files filehighlight fhighlights fh_serial
4153 global highlight_paths
4155 if {[info exists filehighlight]} {
4156 # delete previous highlights
4158 unset filehighlight
4159 catch {unset fhighlights}
4160 unbolden
4161 unhighlight_filelist
4162 }
4163 set highlight_paths {}
4165 incr fh_serial
4168 }
4169 }
4171 proc gdttype_change {name ix op} {
4172 global gdttype highlight_files findstring findpattern
4174 stopfinding
4178 set highlight_files {}
4179 hfiles_change
4180 }
4181 findcom_change
4182 } else {
4184 set findpattern {}
4185 findcom_change
4186 }
4188 hfiles_change
4189 }
4190 drawvisible
4191 }
4192 # enable/disable findtype/findloc menus too
4193 }
4195 proc find_change {name ix op} {
4196 global gdttype findstring highlight_files
4198 stopfinding
4200 findcom_change
4201 } else {
4204 hfiles_change
4205 }
4206 }
4207 drawvisible
4208 }
4210 proc findcom_change args {
4211 global nhighlights boldnameids
4212 global findpattern findtype findstring gdttype
4214 stopfinding
4215 # delete previous highlights, if any
4218 }
4219 set boldnameids {}
4220 catch {unset nhighlights}
4221 unbolden
4222 unmarkmatches
4224 set findpattern {}
4227 } else {
4228 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4231 }
4232 }
4234 proc makepatterns {l} {
4235 set ret {}
4240 } else {
4243 }
4244 }
4246 }
4248 proc do_file_hl {serial} {
4249 global highlight_files filehighlight highlight_paths gdttype fhl_list
4254 highlight_filelist
4258 } else {
4259 # must be "containing:", i.e. we're searching commit info
4260 return
4261 }
4266 set fhl_list {}
4267 drawvisible
4268 flushhighlights
4269 }
4271 proc flushhighlights {} {
4272 global filehighlight fhl_list
4274 if {[info exists filehighlight]} {
4275 lappend fhl_list {}
4278 }
4279 }
4281 proc askfilehighlight {row id} {
4282 global filehighlight fhighlights fhl_list
4287 }
4289 proc readfhighlight {} {
4290 global filehighlight fhighlights curview iddrawn
4291 global fhl_list find_dirn
4293 if {![info exists filehighlight]} {
4294 return 0
4295 }
4296 set nr 0
4304 }
4310 }
4312 }
4314 # strange...
4315 puts "oops, git diff-tree died"
4317 unset filehighlight
4318 return 0
4319 }
4320 if {[info exists find_dirn]} {
4321 run findmore
4322 }
4323 return 1
4324 }
4326 proc doesmatch {f} {
4327 global findtype findpattern
4333 } else {
4335 }
4336 }
4338 proc askfindhighlight {row id} {
4339 global nhighlights commitinfo iddrawn
4340 global findloc
4341 global markingmatches
4345 }
4347 set isbold 0
4348 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4353 set isbold 2
4354 break
4355 }
4356 set isbold 1
4357 }
4358 }
4364 }
4365 }
4368 }
4369 }
4371 }
4373 proc markrowmatches {row id} {
4374 global canv canv2 linehtag linentag commitinfo findloc
4385 }
4386 }
4392 }
4393 }
4394 }
4396 proc vrel_change {name ix op} {
4397 global highlight_related
4399 rhighlight_none
4401 run drawvisible
4402 }
4403 }
4405 # prepare for testing whether commits are descendents or ancestors of a
4406 proc rhighlight_sel {a} {
4407 global descendent desc_todo ancestor anc_todo
4408 global highlight_related
4410 catch {unset descendent}
4412 catch {unset ancestor}
4415 rhighlight_none
4416 run drawvisible
4417 }
4418 }
4420 proc rhighlight_none {} {
4421 global rhighlights
4423 catch {unset rhighlights}
4424 unbolden
4425 }
4427 proc is_descendent {a} {
4428 global curview children descendent desc_todo
4433 set leftover {}
4434 set done 0
4439 continue
4440 }
4446 set done 1
4447 }
4448 }
4449 }
4452 return
4453 }
4454 }
4457 }
4459 proc is_ancestor {a} {
4460 global curview parents ancestor anc_todo
4465 set leftover {}
4466 set done 0
4471 continue
4472 }
4478 set done 1
4479 }
4480 }
4481 }
4484 return
4485 }
4486 }
4489 }
4491 proc askrelhighlight {row id} {
4492 global descendent highlight_related iddrawn rhighlights
4493 global selectedline ancestor
4496 set isbold 0
4501 }
4503 set isbold 1
4504 }
4509 }
4511 set isbold 1
4512 }
4513 }
4517 }
4518 }
4520 }
4522 # Graph layout functions
4524 proc shortids {ids} {
4525 set res {}
4531 } else {
4533 }
4534 }
4536 }
4538 proc ntimes {n o} {
4539 set ret {}
4544 }
4546 }
4548 }
4550 proc ordertoken {id} {
4551 global ordertok curview varcid varcstart varctok curview parents children
4552 global nullid nullid2
4556 }
4558 set todo {}
4559 while {1} {
4563 } else {
4565 }
4568 break
4569 }
4572 # it's a root
4574 break
4575 }
4578 } else {
4582 }
4584 }
4585 }
4590 }
4593 }
4595 # Work out where id should go in idlist so that order-token
4596 # values increase from left to right
4597 proc idcol {idlist id {i 0}} {
4600 set i 0
4601 }
4605 }
4607 incr i
4608 } else {
4612 }
4613 }
4615 }
4617 proc initlayout {} {
4618 global rowidlist rowisopt rowfinal displayorder parentlist
4619 global numcommits canvxmax canv
4620 global nextcolor
4621 global colormap rowtextx
4623 set numcommits 0
4624 set displayorder {}
4625 set parentlist {}
4626 set nextcolor 0
4627 set rowidlist {}
4628 set rowisopt {}
4629 set rowfinal {}
4631 catch {unset colormap}
4632 catch {unset rowtextx}
4633 setcanvscroll
4634 }
4636 proc setcanvscroll {} {
4637 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4638 global lastscrollset lastscrollrows
4644 set lastscrollset [clock clicks -milliseconds]
4646 }
4648 proc visiblerows {} {
4649 global canv numcommits linespc
4657 set r0 0
4658 }
4663 }
4665 }
4667 proc layoutmore {} {
4668 global commitidx viewcomplete curview
4669 global numcommits pending_select curview
4670 global lastscrollset lastscrollrows
4674 setcanvscroll
4675 }
4676 if {[info exists pending_select] &&
4678 update
4680 }
4681 drawvisible
4682 }
4684 # With path limiting, we mightn't get the actual HEAD commit,
4685 # so ask git rev-list what is the first ancestor of HEAD that
4686 # touches a file in the path limit.
4687 proc get_viewmainhead {view} {
4688 global viewmainheadid vfilelimit viewinstances mainheadid
4690 catch {
4698 }
4699 }
4702 proc getviewhead {fd inst view} {
4703 global viewmainheadid commfd curview viewinstances showlocalchanges
4705 set id {}
4708 return 1
4709 }
4712 }
4719 }
4721 doshowlocalchanges
4722 }
4723 return 0
4724 }
4726 proc doshowlocalchanges {} {
4727 global curview viewmainheadid
4731 dodiffindex
4732 } else {
4734 }
4735 }
4737 proc dohidelocalchanges {} {
4738 global nullid nullid2 lserial curview
4742 }
4745 }
4746 incr lserial
4747 }
4749 # spawn off a process to do git diff-index --cached HEAD
4750 proc dodiffindex {} {
4751 global lserial showlocalchanges vfilelimit curview
4752 global isworktree
4755 incr lserial
4756 set cmd "|git diff-index --cached HEAD"
4759 }
4764 }
4766 proc readdiffindex {fd serial inst} {
4767 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4768 global vfilelimit
4770 set isdiff 1
4773 return 1
4774 }
4775 set isdiff 0
4776 }
4777 # we only need to see one line and we don't really care what it says...
4781 return 0
4782 }
4784 # now see if there are any local changes not checked in to the index
4785 set cmd "|git diff-files"
4788 }
4795 # add the line for the changes in the index to the graph
4796 set hl [mc "Local changes checked in to index but not committed"]
4801 }
4806 }
4808 }
4809 return 0
4810 }
4812 proc readdifffiles {fd serial inst} {
4813 global viewmainheadid nullid nullid2 curview
4814 global commitinfo commitdata lserial
4816 set isdiff 1
4819 return 1
4820 }
4821 set isdiff 0
4822 }
4823 # we only need to see one line and we don't really care what it says...
4827 return 0
4828 }
4831 # add the line for the local diff to the graph
4832 set hl [mc "Local uncommitted changes, not checked in to index"]
4837 } else {
4839 }
4843 }
4844 return 0
4845 }
4847 proc nextuse {id row} {
4848 global curview children
4853 return -1
4854 }
4857 }
4858 }
4859 }
4862 }
4863 return -1
4864 }
4866 proc prevuse {id row} {
4867 global curview children
4869 set ret -1
4875 }
4876 }
4877 }
4879 }
4881 proc make_idlist {row} {
4882 global displayorder parentlist uparrowlen downarrowlen mingaplen
4883 global commitidx curview children
4887 set r 0
4888 }
4891 set ra 0
4892 }
4896 }
4898 set ids {}
4907 }
4908 }
4909 }
4917 }
4918 }
4919 }
4927 }
4928 }
4929 incr r
4935 }
4936 }
4937 }
4938 set idlist {}
4941 }
4943 }
4945 proc rowsequal {a b} {
4948 }
4951 }
4953 }
4955 proc makeupline {id row rend col} {
4956 global rowidlist uparrowlen downarrowlen mingaplen
4962 }
4965 }
4972 }
4973 }
4974 }
4976 proc layoutrows {row endrow} {
4977 global rowidlist rowisopt rowfinal displayorder
4978 global uparrowlen downarrowlen maxwidth mingaplen
4979 global children parentlist
4980 global commitidx viewcomplete curview
4983 set idlist {}
4989 }
4990 }
4992 }
4997 set final 1
4998 } else {
5006 # if not the first child, we have to insert a line going up
5009 }
5010 }
5011 }
5021 }
5022 }
5023 }
5030 }
5031 }
5041 }
5042 }
5050 }
5051 }
5052 }
5053 }
5054 }
5058 set final 0
5059 }
5063 lappend rowisopt 0
5069 }
5071 } else {
5078 }
5079 }
5081 }
5083 proc changedrow {row} {
5084 global displayorder iddrawn rowisopt need_redisplay
5093 }
5094 }
5095 }
5098 set need_redisplay 1
5099 }
5100 }
5102 proc insert_pad {row col npad} {
5103 global rowidlist
5112 }
5115 }
5117 proc optimize_rows {row col endrow} {
5118 global rowidlist rowisopt displayorder curview children
5121 set row 1
5122 }
5125 set haspad 0
5134 } else {
5135 set pprevidlist {}
5136 }
5137 set x0 -1
5138 set xm -1
5143 set haspad 1
5144 continue
5145 }
5149 set isarrow 0
5150 set z0 {}
5155 }
5156 }
5161 set isarrow 1
5162 }
5163 }
5166 set isarrow 1
5167 }
5168 # Looking at lines from this row to the previous row,
5169 # make them go straight up if they end in an arrow on
5170 # the previous row; otherwise make them go straight up
5171 # or at 45 degrees.
5173 # Line currently goes left too much;
5174 # insert pads in the previous row, then optimize it
5179 }
5187 }
5189 # Line currently goes right too much;
5190 # insert pads in this line
5196 set haspad 1
5197 }
5204 }
5205 }
5206 # avoid lines jigging left then immediately right
5209 incr x0
5212 }
5213 }
5215 # Find the first column that doesn't have a line going right
5221 # check if this is the link to the first child
5224 # it is, work out offset to child
5226 }
5227 }
5229 }
5230 # Insert a pad at that column as long as it has a line and
5231 # isn't the last column
5236 }
5237 }
5238 }
5239 }
5241 proc xc {row col} {
5242 global canvx0 linespc
5244 }
5246 proc yc {row} {
5247 global canvy0 linespc
5249 }
5251 proc linewidth {id} {
5252 global thickerline lthickness
5257 }
5259 }
5261 proc rowranges {id} {
5262 global curview children uparrowlen downarrowlen
5263 global rowidlist
5267 return {}
5268 }
5269 set ret {}
5274 if {![info exists prev]} {
5276 } else {
5278 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5279 }
5280 # see if the line extends the whole way from prevrow to row
5284 # it doesn't, see where it ends
5289 } else {
5292 incr r -1
5293 }
5295 # see where it starts up again
5300 } else {
5303 incr r
5304 }
5306 }
5307 }
5310 }
5313 }
5315 }
5317 proc drawlineseg {id row endrow arrowlow} {
5318 global rowidlist displayorder iddrawn linesegs
5319 global canv colormap linespc curview maxlinelen parentlist
5323 set arrowhigh 1
5324 while {1} {
5327 incr le -1
5328 break
5329 }
5333 set arrowhigh 0
5334 break
5335 }
5340 set arrowhigh 0
5341 }
5342 break
5343 }
5344 incr le
5345 }
5348 }
5350 set lines {}
5351 set i 0
5352 set joinhigh 0
5359 set joinhigh 1
5360 }
5361 break
5362 }
5363 incr i
5364 }
5365 }
5366 set joinlow 0
5371 set joinlow 1
5372 }
5373 }
5386 }
5387 } else {
5389 }
5397 set arrowlow 0
5398 }
5399 }
5407 }
5409 }
5412 # join parent line to first child
5423 } else {
5425 }
5433 }
5435 }
5437 } else {
5441 }
5449 } else {
5453 }
5455 }
5456 } else {
5462 }
5466 } else {
5467 # coalesce two pieces
5472 }
5476 }
5477 }
5481 }
5483 proc drawparentlinks {id row} {
5484 global rowidlist canv colormap curview parentlist
5485 global idpos linespc
5498 # rmx = right-most X coord used
5499 set rmx 0
5504 continue
5505 }
5509 }
5512 # drawlineseg will do this one for us
5513 continue
5514 }
5516 # should handle duplicated parents here...
5519 # if attaching to a vertical segment, draw a smaller
5520 # slant for visual distinctness
5524 } else {
5526 }
5528 # segment slants towards us already
5530 } else {
5535 }
5537 }
5538 } else {
5540 }
5545 }
5549 }
5550 }
5552 proc drawlines {id} {
5553 global canv
5556 }
5558 proc drawcmittext {id row col} {
5559 global linespc canv canv2 canv3 fgcolor curview
5560 global cmitlisted commitinfo rowidlist parentlist
5561 global rowtextx idpos idtags idheads idotherrefs
5562 global linehtag linentag linedtag selectedline
5563 global canvxmax boldids boldnameids fgcolor
5564 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5566 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5569 set ofill red
5571 set ofill green
5573 set ofill yellow
5574 } else {
5576 }
5585 # triangle pointing left for left-side commits
5591 } else {
5592 # triangle pointing right for right-side commits
5598 }
5610 }
5611 }
5612 }
5619 }
5624 set font mainfont
5625 set nfont mainfont
5629 set font mainfontbold
5632 set nfont mainfontbold
5633 }
5634 }
5644 }
5648 setcanvscroll
5649 }
5650 }
5652 proc drawcmitrow {row} {
5653 global displayorder rowidlist nrows_drawn
5654 global iddrawn markingmatches
5655 global commitinfo numcommits
5656 global filehighlight fhighlights findpattern nhighlights
5657 global hlview vhighlights
5658 global highlight_related rhighlights
5665 }
5668 }
5671 }
5674 }
5679 return
5680 }
5683 }
5687 incr nrows_drawn
5688 }
5691 }
5692 }
5694 proc drawcommits {row {endrow {}}} {
5695 global numcommits iddrawn displayorder curview need_redisplay
5696 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5699 set row 0
5700 }
5703 }
5706 }
5710 set rl1 0
5711 }
5714 set ro1 0
5715 }
5719 }
5724 }
5726 }
5727 }
5730 }
5733 clear_display
5734 drawvisible
5735 }
5737 # make the lines join to already-drawn rows either side
5741 }
5746 }
5761 # see if this is the first child of any of its parents
5764 # make this line extend up to the child
5766 }
5767 }
5768 } else {
5770 }
5771 }
5772 }
5773 }
5775 proc undolayout {row} {
5776 global uparrowlen mingaplen downarrowlen
5777 global rowidlist rowisopt rowfinal need_redisplay
5781 set r 0
5782 }
5784 incr r -1
5788 set need_redisplay 1
5789 run drawvisible
5790 }
5791 }
5793 proc drawvisible {} {
5794 global canv linespc curview vrowmod selectedline targetrow targetid
5795 global need_redisplay cscroll numcommits
5805 if {[info exists targetid]} {
5809 # Fix up the scrollregion and change the scrolling position
5810 # now that our target row has moved.
5813 setcanvscroll
5821 set need_redisplay 1
5822 }
5823 } else {
5824 unset targetid
5825 }
5826 }
5832 }
5836 } elseif {[info exists targetid]} {
5838 }
5839 if {[info exists targetrow]} {
5842 }
5844 }
5846 }
5848 proc clear_display {} {
5849 global iddrawn linesegs need_redisplay nrows_drawn
5850 global vhighlights fhighlights nhighlights rhighlights
5851 global linehtag linentag linedtag boldids boldnameids
5853 allcanvs delete all
5854 catch {unset iddrawn}
5855 catch {unset linesegs}
5856 catch {unset linehtag}
5857 catch {unset linentag}
5858 catch {unset linedtag}
5859 set boldids {}
5860 set boldnameids {}
5861 catch {unset vhighlights}
5862 catch {unset fhighlights}
5863 catch {unset nhighlights}
5864 catch {unset rhighlights}
5865 set need_redisplay 0
5866 set nrows_drawn 0
5867 }
5869 proc findcrossings {id} {
5870 global rowidlist parentlist numcommits displayorder
5872 set cross {}
5873 set ccross {}
5877 }
5896 }
5897 }
5898 }
5899 }
5900 }
5902 }
5904 proc assigncolor {id} {
5905 global colormap colors nextcolor
5906 global parents children children curview
5912 } else {
5913 set kids {}
5914 }
5920 return
5921 }
5922 }
5923 set badcolors {}
5924 set origbad {}
5927 # delimiter between corner crossings and other crossings
5930 }
5934 }
5935 }
5938 }
5945 }
5950 }
5951 }
5952 }
5955 }
5956 }
5960 set nextcolor 0
5961 }
5963 }
5965 }
5967 proc bindline {t id} {
5968 global canv
5974 }
5976 proc drawtags {id x xt y1} {
5977 global idtags idheads idotherrefs mainhead
5978 global linespc lthickness
5979 global canv rowtextx curview fgcolor bgcolor ctxbut
5981 set marks {}
5982 set ntags 0
5983 set nheads 0
5987 }
5991 }
5994 }
5997 }
6002 set xvals {}
6003 set wvals {}
6004 set i -1
6006 incr i
6009 } else {
6011 }
6015 }
6022 set font mainfont
6023 if {[incr ntags -1] >= 0} {
6024 # draw a tag
6030 } else {
6031 # draw a head or other ref
6032 if {[incr nheads -1] >= 0} {
6033 set col green
6035 set font mainfontbold
6036 }
6037 } else {
6038 set col "#ddddff"
6039 }
6050 }
6051 }
6058 }
6059 }
6061 }
6063 proc xcoord {i level ln} {
6064 global canvx0 xspc1 xspc2
6071 }
6073 }
6075 proc show_status {msg} {
6076 global canv fgcolor
6078 clear_display
6081 }
6083 # Don't change the text pane cursor if it is currently the hand cursor,
6084 # showing that we are over a sha1 ID link.
6085 proc settextcursor {c} {
6086 global ctext curtextcursor
6090 }
6092 }
6094 proc nowbusy {what {name {}}} {
6095 global isbusy busyname statusw
6097 if {[array names isbusy] eq {}} {
6098 . config -cursor watch
6099 settextcursor watch
6100 }
6105 }
6106 }
6108 proc notbusy {what} {
6109 global isbusy maincursor textcursor busyname statusw
6111 catch {
6116 }
6117 }
6118 if {[array names isbusy] eq {}} {
6121 }
6122 }
6124 proc findmatches {f} {
6125 global findtype findstring
6128 } else {
6133 }
6134 set matches {}
6135 set i 0
6140 }
6141 }
6143 }
6145 proc dofind {{dirn 1} {wrap 1}} {
6146 global findstring findstartline findcurline selectedline numcommits
6147 global gdttype filehighlight fh_serial find_dirn findallowwrap
6149 if {[info exists find_dirn]} {
6151 stopfinding
6152 }
6153 focus .
6157 } else {
6159 }
6161 nowbusy finding [mc "Searching"]
6165 }
6168 run findmore
6169 }
6171 proc stopfinding {} {
6172 global find_dirn findcurline fprogcoord
6174 if {[info exists find_dirn]} {
6175 unset find_dirn
6176 unset findcurline
6177 notbusy finding
6178 set fprogcoord 0
6179 adjustprogress
6180 }
6181 stopblaming
6182 }
6184 proc findmore {} {
6185 global commitdata commitinfo numcommits findpattern findloc
6186 global findstartline findcurline findallowwrap
6187 global find_dirn gdttype fhighlights fprogcoord
6188 global curview varcorder vrownum varccommits vrowmod
6190 if {![info exists find_dirn]} {
6191 return 0
6192 }
6193 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6195 set moretodo 0
6197 incr l
6199 set l 0
6200 }
6203 } else {
6206 }
6207 } else {
6210 }
6211 incr l -1
6214 } else {
6215 set lim -1
6217 }
6218 }
6221 set n 500
6222 set moretodo 1
6223 }
6226 }
6227 set found 0
6228 set domore 1
6242 }
6244 # shouldn't happen unless git log doesn't give all the commits...
6247 continue
6248 }
6251 }
6256 set found 1
6257 break
6258 }
6259 }
6261 }
6262 } else {
6270 }
6275 }
6278 break
6279 }
6282 set domore 0
6284 }
6285 }
6286 }
6287 }
6289 unset findcurline
6290 unset find_dirn
6291 notbusy finding
6292 set fprogcoord 0
6293 adjustprogress
6296 } else {
6297 bell
6298 }
6299 return 0
6300 }
6302 flushhighlights
6303 } else {
6305 }
6309 }
6311 adjustprogress
6313 }
6315 proc findselectline {l} {
6316 global findloc commentend ctext findcurline markingmatches gdttype
6323 # highlight the matches in the comments
6330 }
6331 }
6332 drawvisible
6333 }
6335 # mark the bits of a headline or author that match a find string
6336 proc markmatches {canv l str tag matches font row} {
6337 global selectedline
6355 }
6356 }
6357 }
6359 proc unmarkmatches {} {
6360 global markingmatches
6362 allcanvs delete matches
6363 set markingmatches 0
6364 stopfinding
6365 }
6367 proc selcanvline {w x y} {
6368 global canv canvy0 ctext linespc
6369 global rowtextx
6376 set l 0
6377 }
6382 }
6383 unmarkmatches
6385 }
6387 proc commit_descriptor {p} {
6388 global commitinfo
6391 }
6392 set l "..."
6395 }
6397 }
6399 # append some text to the ctext widget, and make any SHA1 ID
6400 # that we know about be a clickable link.
6401 proc appendwithlinks {text tags} {
6402 global ctext linknum curview
6411 incr e
6415 incr linknum
6416 }
6417 }
6419 proc setlink {id lk} {
6420 global curview ctext pendinglinks
6422 set known 0
6427 set known 1
6429 }
6430 } else {
6432 }
6438 } else {
6441 }
6442 }
6444 proc makelink {id} {
6445 global pendinglinks
6450 }
6452 }
6454 proc linkcursor {w inc} {
6455 global linkentercount curtextcursor
6459 } else {
6462 set linkentercount 0
6463 }
6464 }
6465 }
6467 proc viewnextline {dir} {
6468 global canv linespc
6476 set newtop 0
6479 }
6481 }
6483 # add a list of tag or branch names at position pos
6484 # returns the number of names inserted
6485 proc appendrefs {pos ids var} {
6489 return 0
6490 }
6493 set tags {}
6497 }
6498 }
6501 } else {
6503 set sep {}
6507 incr linknum
6512 set sep ", "
6513 }
6514 }
6517 }
6519 # called when we have finished computing the nearby tags
6520 proc dispneartags {delay} {
6521 global selectedline currentid showneartags tagphase
6524 after cancel dispnexttag
6526 after 200 dispnexttag
6527 set tagphase -1
6528 } else {
6529 after idle dispnexttag
6530 set tagphase 0
6531 }
6532 }
6534 proc dispnexttag {} {
6535 global selectedline currentid showneartags tagphase ctext
6539 0 {
6543 }
6544 }
6545 1 {
6549 }
6550 }
6551 2 {
6556 # turn "Branch" into "Branches"
6560 }
6561 }
6562 }
6563 }
6564 if {[incr tagphase] <= 2} {
6565 after idle dispnexttag
6566 }
6567 }
6569 proc make_secsel {id} {
6570 global linehtag linentag linedtag canv canv2 canv3
6585 }
6587 proc selectline {l isnew {desired_loc {}}} {
6588 global canv ctext commitinfo selectedline
6589 global canvy0 linespc parents children curview
6590 global currentid sha1entry
6591 global commentend idtags linknum
6592 global mergemax numcommits pending_select
6593 global cmitmode showneartags allcommits
6594 global targetrow targetid lastscrollrows
6595 global autoselect jump_to_here
6597 catch {unset pending_select}
6599 normalline
6600 unsel_reflist
6601 stopfinding
6609 setcanvscroll
6610 }
6624 } else {
6628 }
6629 }
6633 } else {
6637 }
6638 }
6639 }
6642 set newtop 0
6643 }
6645 drawvisible
6646 }
6652 }
6659 }
6663 clear_ctext
6664 set linknum 0
6667 }
6677 }
6679 }
6681 set headers {}
6684 set np 0
6687 set tag mmax
6688 } else {
6690 }
6693 incr np
6694 }
6695 } else {
6698 }
6699 }
6703 }
6705 # make anything that looks like a SHA1 ID be a clickable link
6708 if {![info exists allcommits]} {
6709 getallcommits
6710 }
6721 dispneartags 1
6722 }
6727 }
6735 init_flist [mc "Comments"]
6740 } else {
6742 }
6743 }
6745 proc selfirstline {} {
6746 unmarkmatches
6747 selectline 0 1
6748 }
6750 proc sellastline {} {
6751 global numcommits
6752 unmarkmatches
6755 }
6757 proc selnextline {dir} {
6758 global selectedline
6759 focus .
6762 unmarkmatches
6764 }
6766 proc selnextpage {dir} {
6767 global canv linespc selectedline numcommits
6771 set lpp 1
6772 }
6774 drawvisible
6778 set l 0
6781 }
6782 unmarkmatches
6784 }
6786 proc unselectline {} {
6787 global selectedline currentid
6789 set selectedline {}
6790 catch {unset currentid}
6791 allcanvs delete secsel
6792 rhighlight_none
6793 }
6795 proc reselectline {} {
6796 global selectedline
6800 }
6801 }
6803 proc addtohistory {cmd} {
6804 global history historyindex curview
6809 return
6810 }
6814 } else {
6816 }
6817 incr historyindex
6819 .tf.bar.leftbut conf -state normal
6820 } else {
6821 .tf.bar.leftbut conf -state disabled
6822 }
6823 .tf.bar.rightbut conf -state disabled
6824 }
6826 proc godo {elt} {
6827 global curview
6833 }
6835 }
6837 proc goback {} {
6838 global history historyindex
6839 focus .
6842 incr historyindex -1
6844 .tf.bar.rightbut conf -state normal
6845 }
6847 .tf.bar.leftbut conf -state disabled
6848 }
6849 }
6851 proc goforw {} {
6852 global history historyindex
6853 focus .
6857 incr historyindex
6859 .tf.bar.leftbut conf -state normal
6860 }
6862 .tf.bar.rightbut conf -state disabled
6863 }
6864 }
6866 proc gettree {id} {
6867 global treefilelist treeidlist diffids diffmergeid treepending
6868 global nullid nullid2
6871 catch {unset diffmergeid}
6873 if {![info exists treepending]} {
6875 set cmd [list | git ls-files]
6877 set cmd [list | git ls-files --stage -t]
6878 } else {
6880 }
6882 return
6883 }
6889 }
6890 } else {
6892 }
6893 }
6895 proc gettreeline {gtf id} {
6896 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6898 set nl 0
6902 } else {
6910 }
6913 }
6916 }
6919 }
6921 unset treepending
6923 if {![info exists diffmergeid]} {
6925 }
6928 } else {
6930 }
6931 return 0
6932 }
6934 proc showfile {f} {
6935 global treefilelist treeidlist diffids nullid nullid2
6936 global ctext_file_names ctext_file_lines
6937 global ctext commentend
6942 return
6943 }
6947 return
6948 }
6949 } else {
6953 return
6954 }
6955 }
6966 settabs 0
6967 }
6969 proc getblobline {bf id} {
6970 global diffids cmitmode ctext
6974 return 0
6975 }
6977 set nl 0
6980 }
6982 global jump_to_here ctext_file_names commentend
6984 # delete last newline
6992 }
6993 return 0
6994 }
6997 }
6999 proc mark_ctext_line {lnum} {
7000 global ctext markbgcolor
7006 }
7008 proc mergediff {id} {
7009 global diffmergeid
7010 global diffids treediffs
7011 global parents curview
7019 }
7021 proc startdiff {ids} {
7022 global treediffs diffids treepending diffmergeid nullid nullid2
7024 settabs 1
7026 catch {unset diffmergeid}
7030 if {![info exists treepending]} {
7032 }
7033 } else {
7035 }
7036 }
7038 proc path_filter {filter name} {
7043 return 1
7044 }
7045 } else {
7049 return 1
7050 }
7051 }
7052 }
7053 return 0
7054 }
7056 proc addtocflist {ids} {
7057 global treediffs
7061 }
7063 proc diffcmd {ids flags} {
7064 global nullid nullid2
7070 # comparing working directory with some specific revision
7074 } else {
7076 }
7077 } else {
7078 # comparing working directory with index
7081 lappend cmd -R
7082 }
7083 }
7087 # comparing index with specific revision
7090 } else {
7092 }
7093 } else {
7094 # comparing index with HEAD
7095 lappend cmd HEAD
7096 }
7097 } else {
7099 }
7101 }
7103 proc gettreediffs {ids} {
7104 global treediff treepending
7109 set treediff {}
7112 }
7114 proc gettreediffline {gdtf ids} {
7115 global treediff treediffs treepending diffids diffmergeid
7116 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7118 set nr 0
7119 set sublist {}
7120 set max 1000
7122 # cache_gitattr is slow, and even slower on win32 where we
7123 # have to invoke it for only about 30 paths at a time
7124 set max 500
7125 if {[tk windowingsystem] == "win32"} {
7126 set max 120
7127 }
7128 }
7135 }
7140 }
7141 }
7142 }
7145 }
7148 }
7151 set flist {}
7155 }
7156 }
7158 } else {
7160 }
7161 unset treepending
7165 if {![info exists diffmergeid]} {
7167 }
7168 } else {
7170 }
7171 return 0
7172 }
7174 # empty string or positive integer
7175 proc diffcontextvalidate {v} {
7177 }
7179 proc diffcontextchange {n1 n2 op} {
7180 global diffcontextstring diffcontext
7185 reselectline
7186 }
7187 }
7188 }
7190 proc changeignorespace {} {
7191 reselectline
7192 }
7194 proc getblobdiffs {ids} {
7195 global blobdifffd diffids env
7196 global diffinhdr treediffs
7197 global diffcontext
7198 global ignorespace
7199 global limitdiffs vfilelimit curview
7200 global diffencoding targetline diffnparents
7204 append cmd " -w"
7205 }
7208 }
7211 return
7212 }
7213 set targetline {}
7214 set diffnparents 0
7215 set diffinhdr 0
7216 set diffencoding [get_path_encoding {}]
7220 }
7222 proc setinlist {var i val} {
7227 }
7230 } else {
7232 }
7233 }
7235 proc makediffhdr {fname ids} {
7236 global ctext curdiffstart treediffs diffencoding
7237 global ctext_file_names jump_to_here targetline diffline
7244 }
7249 set targetline {}
7252 }
7253 set diffline 0
7254 }
7256 proc getblobdiffline {bdf ids} {
7257 global diffids blobdifffd ctext curdiffstart
7258 global diffnexthead diffnextnote difffilestart
7259 global ctext_file_names ctext_file_lines
7260 global diffinhdr treediffs mergemax diffnparents
7261 global diffencoding jump_to_here targetline diffline
7263 set nr 0
7268 return 0
7269 }
7274 continue
7275 }
7276 # start of a new file
7277 set diffinhdr 1
7280 lappend ctext_file_names ""
7285 # start of a new file in a merge diff
7290 }
7292 } else {
7294 # If the name hasn't changed the length will be odd,
7295 # the middle char will be a space, and the two bits either
7296 # side will be a/name and b/name, or "a/name" and "b/name".
7297 # If the name has changed we'll get "rename from" and
7298 # "rename to" or "copy from" and "copy to" lines following
7299 # this, and we'll use them to get the filenames.
7300 # This complexity is necessary because spaces in the
7301 # filename(s) don't get escaped.
7307 continue
7308 }
7309 # unescape if quoted and chop off the a/ from the front
7312 } else {
7314 }
7315 }
7328 }
7336 }
7338 set diffinhdr 0
7345 }
7350 }
7356 }
7359 # do nothing
7360 continue
7362 set diffinhdr 0
7363 continue
7364 }
7367 } else {
7369 # parse the prefix - one ' ', '-' or '+' for each parent
7373 # prefix only has " ", "-" and "+" in it: normal diff line
7378 set num "max"
7379 }
7381 } else {
7382 set tags {}
7384 # added line
7390 set num "max"
7391 }
7393 }
7394 }
7395 }
7399 set targetline {}
7400 } else {
7401 incr diffline
7402 }
7403 }
7405 }
7406 } else {
7407 # "\ No newline at end of file",
7408 # or something else we don't recognize
7410 }
7411 }
7412 }
7413 if {[info exists seehere]} {
7415 }
7419 return 0
7420 }
7422 }
7424 proc changediffdisp {} {
7425 global ctext diffelide
7429 }
7431 proc highlightfile {loc cline} {
7432 global ctext cflist cflist_top
7439 }
7441 proc prevfile {} {
7442 global difffilestart ctext cmitmode
7445 set prev 0.0
7446 set prevline 1
7451 return
7452 }
7454 incr prevline
7455 }
7457 }
7459 proc nextfile {} {
7460 global difffilestart ctext cmitmode
7464 set line 1
7466 incr line
7469 return
7470 }
7471 }
7472 }
7474 proc clear_ctext {{first 1.0}} {
7475 global ctext smarktop smarkbot
7476 global ctext_file_names ctext_file_lines
7477 global pendinglinks
7482 }
7485 }
7488 catch {unset pendinglinks}
7489 }
7490 set ctext_file_names {}
7491 set ctext_file_lines {}
7492 }
7494 proc settabs {{firstab {}}} {
7495 global firsttabstop tabstop ctext have_tk85
7499 }
7500 set w [font measure textfont "0"]
7506 } else {
7508 }
7509 }
7511 proc incrsearch {name ix op} {
7512 global ctext searchstring searchdirn
7516 # no anchor set, use start of selection, or of visible area
7522 } else {
7524 }
7525 }
7530 }
7531 searchmarkvisible 1
7532 }
7533 }
7535 proc dosearch {} {
7536 global sstring ctext searchstring searchdirn
7540 set searchdirn -forwards
7546 set start "@0,0"
7547 }
7551 bell
7552 return
7553 }
7558 }
7559 }
7561 proc dosearchback {} {
7562 global sstring ctext searchstring searchdirn
7566 set searchdirn -backwards
7573 }
7577 bell
7578 return
7579 }
7584 }
7585 }
7587 proc searchmark {first last} {
7588 global ctext searchstring
7591 while {1} {
7596 }
7597 }
7599 proc searchmarkvisible {doall} {
7600 global ctext smarktop smarkbot
7605 # no overlap with previous
7609 } else {
7613 }
7617 }
7618 }
7619 }
7621 proc scrolltext {f0 f1} {
7622 global searchstring
7626 searchmarkvisible 0
7627 }
7628 }
7630 proc setcoords {} {
7631 global linespc charspc canvx0 canvy0
7632 global xspc1 xspc2 lthickness
7634 set linespc [font metrics mainfont -linespace]
7635 set charspc [font measure mainfont "m"]
7641 }
7643 proc redisplay {} {
7644 global canv
7645 global selectedline
7650 clear_display
7651 setcanvscroll
7653 drawvisible
7657 }
7658 }
7660 proc parsefont {f n} {
7661 global fontattr
7666 set s 10
7669 }
7675 "normal" -
7677 "roman" -
7679 }
7680 }
7681 }
7683 proc fontflags {f {isbold 0}} {
7684 global fontattr
7689 }
7691 proc fontname {f} {
7692 global fontattr
7696 lappend n "bold"
7697 }
7699 lappend n "italic"
7700 }
7702 }
7704 proc incrfont {inc} {
7705 global mainfont textfont ctext canv cflist showrefstop
7706 global stopped entries fontattr
7708 unmarkmatches
7712 set s 1
7713 }
7717 set mainfont [fontname mainfont]
7721 set s 1
7722 }
7726 set textfont [fontname textfont]
7727 setcoords
7728 settabs
7729 redisplay
7730 }
7732 proc clearsha1 {} {
7733 global sha1entry sha1string
7736 }
7737 }
7739 proc sha1change {n1 n2 op} {
7740 global sha1string currentid sha1but
7743 set state disabled
7744 } else {
7745 set state normal
7746 }
7750 } else {
7752 }
7753 }
7755 proc gotocommit {} {
7756 global sha1string tagids headids curview varcid
7764 } else {
7771 return
7772 }
7774 }
7775 }
7776 }
7779 return
7780 }
7783 } else {
7785 }
7787 }
7789 proc lineenter {x y id} {
7790 global hoverx hovery hoverid hovertimer
7791 global commitinfo canv
7797 if {[info exists hovertimer]} {
7799 }
7800 set hovertimer [after 500 linehover]
7802 }
7804 proc linemotion {x y id} {
7805 global hoverx hovery hoverid hovertimer
7810 if {[info exists hovertimer]} {
7812 }
7813 set hovertimer [after 500 linehover]
7814 }
7815 }
7817 proc lineleave {id} {
7818 global hoverid hovertimer canv
7822 if {[info exists hovertimer]} {
7824 unset hovertimer
7825 }
7826 unset hoverid
7827 }
7828 }
7830 proc linehover {} {
7831 global hoverx hovery hoverid hovertimer
7832 global canv linespc lthickness
7833 global commitinfo
7846 -fill \#ffff80 -outline black -width 1 -tags hover]
7849 -font mainfont]
7851 }
7853 proc clickisonarrow {id y} {
7854 global lthickness
7863 }
7864 }
7865 return {}
7866 }
7868 proc arrowjump {id n y} {
7869 global canv
7871 # 1 <-> 2, 3 <-> 4, etc...
7881 set yfrac 0
7882 }
7884 }
7886 proc lineclick {x y id isnew} {
7887 global ctext commitinfo children canv thickerline curview
7890 unmarkmatches
7891 unselectline
7892 normalline
7894 # draw this line thicker than normal
7902 }
7906 return
7907 }
7911 }
7912 # fill the details pane with info about this line
7914 clear_ctext
7915 settabs 0
7927 set i 0
7929 incr i
7939 }
7940 }
7942 init_flist {}
7943 }
7945 proc normalline {} {
7946 global thickerline
7947 if {[info exists thickerline]} {
7949 unset thickerline
7951 }
7952 }
7954 proc selbyid {id} {
7955 global curview
7958 }
7959 }
7961 proc mstime {} {
7962 global startmstime
7963 if {![info exists startmstime]} {
7964 set startmstime [clock clicks -milliseconds]
7965 }
7967 }
7969 proc rowmenu {x y id} {
7970 global rowctxmenu selectedline rowmenuid curview
7971 global nullid nullid2 fakerowmenu mainhead
7973 stopfinding
7976 set state disabled
7977 } else {
7978 set state normal
7979 }
7984 } else {
7986 }
7987 } else {
7989 }
7994 }
7996 proc diffvssel {dirn} {
7997 global rowmenuid selectedline
8003 } else {
8006 }
8009 }
8011 proc doseldiff {oldid newid} {
8012 global ctext
8013 global commitinfo
8016 clear_ctext
8017 init_flist [mc "Top"]
8032 }
8034 proc mkpatch {} {
8035 global rowmenuid currentid commitinfo patchtop patchnum
8037 if {![info exists currentid]} return
8042 set top .patch
8072 incr patchnum
8084 }
8086 proc mkpatchrev {} {
8087 global patchtop
8093 foreach e [list fromsha1 fromhead tosha1 tohead] \
8099 }
8100 }
8102 proc mkpatchgo {} {
8103 global patchtop nullid nullid2
8109 # trim off the initial "|"
8114 }
8116 unset patchtop
8117 }
8119 proc mkpatchcan {} {
8120 global patchtop
8123 unset patchtop
8124 }
8126 proc mktag {} {
8127 global rowmenuid mktagtop commitinfo
8129 set top .maketag
8158 }
8160 proc domktag {} {
8161 global mktagtop env tagids idtags
8167 return 0
8168 }
8171 return 0
8172 }
8173 if {[catch {
8175 } err]} {
8177 return 0
8178 }
8184 dispneartags 0
8185 run refill_reflist
8186 return 1
8187 }
8189 proc redrawtags {id} {
8190 global canv linehtag idpos currentid curview cmitlisted
8191 global canvxmax iddrawn circleitem mainheadid circlecolors
8197 set ofill yellow
8198 } else {
8200 }
8210 setcanvscroll
8211 }
8214 }
8215 }
8217 proc mktagcan {} {
8218 global mktagtop
8221 unset mktagtop
8222 }
8224 proc mktaggo {} {
8225 if {![domktag]} return
8226 mktagcan
8227 }
8229 proc writecommit {} {
8230 global rowmenuid wrcomtop commitinfo wrcomcmd
8232 set top .writecommit
8265 }
8267 proc wrcomgo {} {
8268 global wrcomtop
8275 }
8277 unset wrcomtop
8278 }
8280 proc wrcomcan {} {
8281 global wrcomtop
8284 unset wrcomtop
8285 }
8287 proc mkbranch {} {
8288 global rowmenuid mkbrtop
8290 set top .makebranch
8314 }
8316 proc mkbrgo {top} {
8317 global headids idheads
8321 set cmdargs {}
8322 set old_id {}
8325 return
8326 }
8328 if {![confirm_popup [mc \
8330 return
8331 }
8333 lappend cmdargs -f
8334 }
8337 nowbusy newbranch
8338 update
8339 if {[catch {
8341 } err]} {
8342 notbusy newbranch
8344 } else {
8345 notbusy newbranch
8351 } else {
8356 }
8357 dispneartags 0
8358 run refill_reflist
8359 }
8360 }
8362 proc exec_citool {tool_args {baseid {}}} {
8363 global commitinfo env
8365 set save_env [array get env GIT_AUTHOR_*]
8370 }
8373 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8379 }
8380 }
8384 array unset env GIT_AUTHOR_*
8386 }
8388 proc cherrypick {} {
8389 global rowmenuid curview
8390 global mainhead mainheadid
8392 set oldhead [exec git rev-parse HEAD]
8395 set ok [confirm_popup [mc "Commit %s is already\
8396 included in branch %s -- really re-apply it?" \
8399 }
8400 nowbusy cherrypick [mc "Cherry-picking"]
8401 update
8402 # Unfortunately git-cherry-pick writes stuff to stderr even when
8403 # no error occurs, and exec takes that as an indication of error...
8405 notbusy cherrypick
8406 if {[regexp -line \
8407 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8409 error_popup [mc "Cherry-pick failed because of local changes\
8410 to file '%s'.\nPlease commit, reset or stash\
8412 } elseif {[regexp -line \
8413 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8415 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8416 conflict.\nDo you wish to run git citool to\
8417 resolve it?"]]} {
8418 # Force citool to read MERGE_MSG
8419 file delete [file join [gitdir] "GITGUI_MSG"]
8421 }
8422 } else {
8424 }
8425 run updatecommits
8426 return
8427 }
8428 set newhead [exec git rev-parse HEAD]
8430 notbusy cherrypick
8431 error_popup [mc "No changes committed"]
8432 return
8433 }
8436 # XXX this isn't right if we have a path limit...
8441 }
8446 }
8447 notbusy cherrypick
8448 }
8450 proc resethead {} {
8451 global mainhead rowmenuid confirm_ok resettype
8453 set confirm_ok 0
8454 set w ".confirmreset"
8460 -justify center -aspect 1000
8465 set resettype mixed
8467 -text [mc "Soft: Leave working tree and index untouched"]
8470 -text [mc "Mixed: Leave working tree untouched, reset index"]
8473 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8484 if {[catch {set fd [open \
8487 } else {
8488 dohidelocalchanges
8490 nowbusy reset [mc "Resetting"]
8492 }
8493 }
8495 proc readresetstat {fd} {
8496 global mainhead mainheadid showlocalchanges rprogcoord
8501 adjustprogress
8502 }
8503 return 1
8504 }
8505 set rprogcoord 0
8506 adjustprogress
8507 notbusy reset
8510 }
8512 set newhead [exec git rev-parse HEAD]
8519 }
8521 doshowlocalchanges
8522 }
8523 return 0
8524 }
8526 # context menu for a head
8527 proc headmenu {x y id head} {
8528 global headmenuid headmenuhead headctxmenu mainhead
8530 stopfinding
8533 set state normal
8535 set state disabled
8536 }
8540 }
8542 proc cobranch {} {
8543 global headmenuid headmenuhead headids
8544 global showlocalchanges
8546 # check the tree is clean first??
8547 nowbusy checkout [mc "Checking out"]
8548 update
8549 dohidelocalchanges
8550 if {[catch {
8552 } err]} {
8553 notbusy checkout
8556 dodiffindex
8557 }
8558 } else {
8560 }
8561 }
8563 proc readcheckoutstat {fd newhead newheadid} {
8564 global mainhead mainheadid headids showlocalchanges progresscoords
8565 global viewmainheadid curview
8570 adjustprogress
8571 }
8572 return 1
8573 }
8574 set progresscoords {0 0}
8575 adjustprogress
8576 notbusy checkout
8579 }
8588 dodiffindex
8589 }
8590 }
8592 proc rmbranch {} {
8593 global headmenuid headmenuhead mainhead
8594 global idheads
8598 # this check shouldn't be needed any more...
8600 error_popup [mc "Cannot delete the currently checked-out branch"]
8601 return
8602 }
8605 # the stuff on this branch isn't on any other branch
8606 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8608 }
8609 nowbusy rmbranch
8610 update
8612 notbusy rmbranch
8614 return
8615 }
8619 notbusy rmbranch
8620 dispneartags 0
8621 run refill_reflist
8622 }
8624 # Display a list of tags and heads
8625 proc showrefs {} {
8626 global showrefstop bgcolor fgcolor selectbgcolor
8627 global bglist fglist reflistfilter reflist maincursor
8629 set top .showrefs
8633 refill_reflist
8634 return
8635 }
8643 -spacing1 1 -spacing3 1 -state disabled
8654 set reflistfilter "*"
8655 trace add variable reflistfilter write reflistfilter_change
8667 set reflist {}
8668 refill_reflist
8669 }
8671 proc sel_reflist {w x y} {
8672 global showrefstop reflist headids tagids otherrefids
8682 }
8684 }
8686 proc unsel_reflist {} {
8687 global showrefstop
8691 }
8693 proc reflistfilter_change {n1 n2 op} {
8694 global reflistfilter
8696 after cancel refill_reflist
8697 after 200 refill_reflist
8698 }
8700 proc refill_reflist {} {
8701 global reflist reflistfilter showrefstop headids tagids otherrefids
8702 global curview
8705 set refs {}
8706 foreach n [array names headids] {
8710 } else {
8712 }
8713 }
8714 }
8715 foreach n [array names tagids] {
8719 } else {
8721 }
8722 }
8723 }
8724 foreach n [array names otherrefids] {
8728 } else {
8730 }
8731 }
8732 }
8740 set i 0
8741 set j 0
8750 }
8751 } else {
8752 set cmp -1
8753 }
8754 } else {
8755 set cmp 1
8756 }
8758 -1 {
8760 incr i
8761 }
8762 0 {
8763 incr i
8764 incr j
8765 }
8766 1 {
8771 incr j
8772 }
8773 }
8774 }
8776 # delete last newline
8779 }
8781 # Stuff for finding nearby tags
8782 proc getallcommits {} {
8783 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8784 global idheads idtags idotherrefs allparents tagobjid
8786 if {![info exists allcommits]} {
8787 set nextarc 0
8788 set allcommits 0
8789 set seeds {}
8790 set allcwait 0
8791 set cachedarcs 0
8792 set allccache [file join [gitdir] "gitk.cache"]
8793 if {![catch {
8795 set allcwait 1
8797 }]} return
8798 }
8801 return
8802 }
8803 set cmd [list | git rev-list --parents]
8806 set ids "--all"
8807 } else {
8808 set refs [concat [array names idheads] [array names idtags] \
8809 [array names idotherrefs]]
8810 set ids {}
8811 set tagobjs {}
8812 foreach name [array names tagobjid] {
8814 }
8819 }
8820 }
8824 }
8825 }
8826 }
8830 incr allcommits
8831 nowbusy allcommits
8833 } else {
8834 dispneartags 0
8835 }
8836 }
8838 # Since most commits have 1 parent and 1 child, we group strings of
8839 # such commits into "arcs" joining branch/merge points (BMPs), which
8840 # are commits that either don't have 1 parent or don't have 1 child.
8841 #
8842 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8843 # arcout(id) - outgoing arcs for BMP
8844 # arcids(a) - list of IDs on arc including end but not start
8845 # arcstart(a) - BMP ID at start of arc
8846 # arcend(a) - BMP ID at end of arc
8847 # growing(a) - arc a is still growing
8848 # arctags(a) - IDs out of arcids (excluding end) that have tags
8849 # archeads(a) - IDs out of arcids (excluding end) that have heads
8850 # The start of an arc is at the descendent end, so "incoming" means
8851 # coming from descendents, and "outgoing" means going towards ancestors.
8853 proc getallclines {fd} {
8854 global allparents allchildren idtags idheads nextarc
8855 global arcnos arcids arctags arcout arcend arcstart archeads growing
8856 global seeds allcommits cachedarcs allcupdate
8858 set nid 0
8862 # seen it already
8863 continue
8864 }
8865 set cachedarcs 0
8872 } else {
8878 }
8881 }
8883 # seen parent already
8886 }
8890 }
8893 continue
8894 }
8895 }
8900 }
8902 set ao {}
8905 set a [incr nextarc]
8914 # seen it already, may need to make a new branch
8917 }
8921 }
8923 }
8925 }
8927 global cached_dheads cached_dtags cached_atags
8928 catch {unset cached_dheads}
8929 catch {unset cached_dtags}
8930 catch {unset cached_atags}
8931 }
8934 }
8935 set cacheok 1
8936 if {[catch {
8939 } err]} {
8940 # got an error reading the list of commits
8941 # if we were updating, try rereading the whole thing again
8943 incr allcommits -1
8945 return
8946 }
8947 error_popup "[mc "Error reading commit topology information;\
8948 branch and preceding/following tag information\
8950 set cacheok 0
8951 }
8952 if {[incr allcommits -1] == 0} {
8953 notbusy allcommits
8955 run savecache
8956 }
8957 }
8958 dispneartags 0
8959 return 0
8960 }
8962 proc recalcarc {a} {
8963 global arctags archeads arcids idtags idheads
8965 set at {}
8966 set ah {}
8970 }
8973 }
8974 }
8977 }
8979 proc splitarc {p} {
8980 global arcnos arcids nextarc arctags archeads idtags idheads
8981 global arcstart arcend arcout allparents growing
8986 return
8987 }
8992 return
8993 }
8994 set na [incr nextarc]
8997 } else {
9001 }
9011 }
9016 } else {
9019 }
9020 }
9022 # reconstruct tags and heads lists
9026 } else {
9029 }
9030 }
9032 # Update things for a new commit added that is a child of one
9033 # existing commit. Used when cherry-picking.
9034 proc addnewchild {id p} {
9035 global allparents allchildren idtags nextarc
9036 global arcnos arcids arctags arcout arcend arcstart archeads growing
9037 global seeds allcommits
9045 set a [incr nextarc]
9053 }
9056 }
9058 # This implements a cache for the topology information.
9059 # The cache saves, for each arc, the start and end of the arc,
9060 # the ids on the arc, and the outgoing arcs from the end.
9061 proc readcache {f} {
9062 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9063 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9064 global allcwait
9070 }
9071 if {[catch {
9073 # finish reading the cache and setting up arctags, etc.
9077 foreach id [array names idtags] {
9083 }
9084 }
9085 }
9086 foreach id [array names idheads] {
9092 }
9093 }
9094 }
9098 }
9099 }
9100 set allcwait 0
9101 } else {
9111 }
9115 } else {
9119 }
9120 }
9126 }
9129 }
9132 }
9134 }
9135 } err]} {
9137 return 0
9138 }
9140 getallcommits
9141 }
9143 }
9145 proc getcache {f} {
9146 global nextarc cachedarcs possible_seeds
9148 if {[catch {
9151 # make sure it's an integer
9154 set nextarc 0
9155 set possible_seeds {}
9157 } err]} {
9159 }
9160 return 0
9161 }
9163 proc dropcache {err} {
9164 global allcwait nextarc cachedarcs seeds
9167 foreach v {arcnos arcout arcids arcstart arcend growing \
9168 arctags archeads allparents allchildren} {
9171 }
9172 set allcwait 0
9173 set nextarc 0
9174 set cachedarcs 0
9175 set seeds {}
9176 getallcommits
9177 }
9179 proc writecache {f} {
9180 global cachearc cachedarcs allccache
9181 global arcstart arcend arcnos arcids arcout
9187 }
9188 if {[catch {
9192 } else {
9194 }
9195 }
9196 } err]} {
9200 return 0
9201 }
9206 return 0
9207 }
9208 return 1
9209 }
9211 proc savecache {} {
9212 global nextarc cachedarcs cachearc allccache
9215 set cachearc 0
9217 catch {
9221 }
9222 }
9224 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9225 # or 0 if neither is true.
9226 proc anc_or_desc {a b} {
9227 global arcout arcstart arcend arcnos cached_isanc
9230 # Both are on the same arc(s); either both are the same BMP,
9231 # or if one is not a BMP, the other is also not a BMP or is
9232 # the BMP at end of the arc (and it only has 1 incoming arc).
9233 # Or both can be BMPs with no incoming arcs.
9235 return 0
9236 }
9242 return 1
9243 } else {
9244 return -1
9245 }
9246 }
9252 } else {
9253 set aend {}
9254 }
9256 } else {
9258 }
9263 } else {
9264 set bend {}
9265 }
9267 } else {
9269 }
9271 return 1
9272 }
9274 return -1
9275 }
9278 return 1
9279 }
9280 }
9283 return -1
9284 }
9286 return 0
9287 }
9288 }
9296 continue
9297 }
9303 return 1
9307 return -1
9308 }
9314 }
9315 }
9316 }
9319 return 0
9320 }
9324 # and returns 0 if so and 1 if not.
9325 # If we subsequently discover a tag on such a growing tip, and that
9328 # isn't a good choice to display as a descendent tag of
9332 #
9333 proc is_certain {desc anc} {
9334 global arcnos arcout arcstart arcend growing problems
9336 set certain {}
9338 # tags on the same arc are certain
9340 return 1
9341 }
9346 }
9347 }
9350 } else {
9353 }
9355 return 1
9356 }
9359 set nnh 1
9360 set ngrowanc 0
9364 incr nnh -1
9365 }
9371 incr ngrowanc
9372 }
9373 } else {
9380 incr nnh -1
9381 }
9383 incr ngrowanc -1
9384 }
9394 incr nnh -1
9395 }
9397 incr ngrowanc -1
9398 }
9400 }
9401 }
9402 }
9403 }
9404 }
9405 }
9409 } else {
9412 incr nnh
9413 }
9414 }
9415 }
9416 }
9417 foreach x [array names growanc] {
9419 return 0
9420 }
9421 return 0
9422 }
9423 return 1
9424 }
9426 proc validate_arctags {a} {
9427 global arctags idtags
9429 set i -1
9432 incr i
9435 incr i -1
9436 }
9437 }
9439 }
9441 proc validate_archeads {a} {
9442 global archeads idheads
9444 set i -1
9447 incr i
9450 incr i -1
9451 }
9452 }
9454 }
9456 # Return the list of IDs that have tags that are descendents of id,
9457 # ignoring IDs that are descendents of IDs already reported.
9458 proc desctags {id} {
9459 global arcnos arcstart arcids arctags idtags allparents
9460 global growing cached_dtags
9463 return {}
9464 }
9465 set t1 [clock clicks -milliseconds]
9468 # part-way along an arc; check that arc first
9473 set tid {}
9478 }
9481 }
9482 }
9486 }
9487 }
9490 }
9495 set nc 1
9501 incr nc -1
9502 }
9503 # ignore tags on starting node
9507 set ta 1
9510 set ta 1
9511 }
9512 }
9519 }
9520 }
9529 }
9532 }
9534 incr nc -1
9535 }
9537 }
9538 }
9539 }
9544 incr nc
9545 }
9546 }
9547 }
9548 }
9549 set tags {}
9550 foreach id [array names tagloc] {
9555 }
9556 }
9557 }
9558 }
9559 set t2 [clock clicks -milliseconds]
9562 # remove tags that are descendents of other tags
9570 incr j -1
9571 incr i -1
9574 incr i -1
9575 break
9576 }
9577 }
9578 }
9580 if {[array names growing] ne {}} {
9581 # graph isn't finished, need to check if any tag could get
9582 # eclipsed by another tag coming later. Simply ignore any
9583 # tags that could later get eclipsed.
9584 set ctags {}
9588 }
9589 }
9592 } else {
9594 }
9595 } else {
9597 }
9598 set t3 [clock clicks -milliseconds]
9602 }
9604 }
9606 proc anctags {id} {
9607 global arcnos arcids arcout arcend arctags idtags allparents
9608 global growing cached_atags
9611 return {}
9612 }
9613 set t1 [clock clicks -milliseconds]
9616 # part-way along an arc; check that arc first
9625 }
9626 }
9627 }
9629 return {}
9630 }
9634 }
9635 }
9638 }
9643 set taglist {}
9644 set nc 1
9650 incr nc -1
9651 }
9652 # ignore tags on starting node
9656 set td 1
9659 set td 1
9660 }
9661 }
9667 }
9668 }
9680 }
9681 }
9684 }
9686 incr nc -1
9687 }
9689 }
9690 }
9691 }
9696 incr nc
9697 }
9698 }
9699 }
9700 }
9701 set t2 [clock clicks -milliseconds]
9703 set tags {}
9704 foreach id [array names tagloc] {
9709 }
9710 }
9711 }
9712 }
9714 # remove tags that are ancestors of other tags
9722 incr j -1
9723 incr i -1
9726 incr i -1
9727 break
9728 }
9729 }
9730 }
9732 if {[array names growing] ne {}} {
9733 # graph isn't finished, need to check if any tag could get
9734 # eclipsed by another tag coming later. Simply ignore any
9735 # tags that could later get eclipsed.
9736 set ctags {}
9740 }
9741 }
9744 } else {
9746 }
9747 } else {
9749 }
9750 set t3 [clock clicks -milliseconds]
9754 }
9756 }
9758 # Return the list of IDs that have heads that are descendents of id,
9759 # including id itself if it has a head.
9760 proc descheads {id} {
9761 global arcnos arcstart arcids archeads idheads cached_dheads
9762 global allparents
9765 return {}
9766 }
9767 set aret {}
9769 # part-way along an arc; check it first
9778 }
9779 }
9781 }
9785 set ret {}
9790 } else {
9793 }
9799 }
9800 }
9805 }
9806 }
9807 }
9808 }
9812 }
9814 proc addedtag {id} {
9815 global arcnos arcout cached_dtags cached_atags
9820 }
9821 catch {unset cached_dtags}
9822 catch {unset cached_atags}
9823 }
9825 proc addedhead {hid head} {
9826 global arcnos arcout cached_dheads
9831 }
9832 catch {unset cached_dheads}
9833 }
9835 proc removedhead {hid head} {
9836 global cached_dheads
9838 catch {unset cached_dheads}
9839 }
9841 proc movedhead {hid head} {
9842 global arcnos arcout cached_dheads
9847 }
9848 catch {unset cached_dheads}
9849 }
9851 proc changedrefs {} {
9852 global cached_dheads cached_dtags cached_atags
9853 global arctags archeads arcnos arcout idheads idtags
9855 foreach id [concat [array names idheads] [array names idtags]] {
9861 }
9862 }
9863 }
9864 catch {unset cached_dtags}
9865 catch {unset cached_atags}
9866 catch {unset cached_dheads}
9867 }
9869 proc rereadrefs {} {
9870 global idtags idheads idotherrefs mainheadid
9872 set refids [concat [array names idtags] \
9873 [array names idheads] [array names idotherrefs]]
9877 }
9878 }
9880 readrefs
9881 changedrefs
9883 [array names idheads] [array names idotherrefs]]]
9888 }
9889 }
9893 }
9894 run refill_reflist
9895 }
9897 proc listrefs {id} {
9898 global idtags idheads idotherrefs
9900 set x {}
9903 }
9904 set y {}
9907 }
9908 set z {}
9911 }
9913 }
9915 proc showtag {tag isnew} {
9916 global ctext tagcontents tagids linknum tagobjid
9920 }
9922 clear_ctext
9923 settabs 0
9924 set linknum 0
9926 catch {
9928 }
9929 }
9932 } else {
9934 }
9937 init_flist {}
9938 }
9940 proc doquit {} {
9941 global stopped
9942 global gitktmpdir
9944 set stopped 100
9945 savestuff .
9946 destroy .
9948 if {[info exists gitktmpdir]} {
9950 }
9951 }
9953 proc mkfontdisp {font top which} {
9962 }
9964 proc choosefont {font which} {
9965 global fontparam fontlist fonttop fontattr
9966 global prefstop
9974 set top .gitkfont
9977 font create sample
9984 set fontlist [lsort [font families]]
9995 -textvariable fontparam(size) \
9996 -validatecommand {string is integer -strict %s}
9998 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9999 -variable fontparam(weight) -onvalue bold -offvalue normal
10001 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10002 -variable fontparam(slant) -onvalue italic -offvalue roman
10006 -background white
10008 -fill black -tags text
10020 trace add variable fontparam write chg_fontparam
10021 } else {
10024 }
10029 }
10030 }
10032 proc centertext {w} {
10034 }
10036 proc fontok {} {
10037 global fontparam fontpref prefstop
10043 }
10046 }
10050 fontcan
10051 }
10053 proc fontcan {} {
10054 global fonttop fontparam
10056 if {[info exists fonttop]} {
10058 catch {font delete sample}
10059 unset fonttop
10060 unset fontparam
10061 }
10062 }
10064 proc selfontfam {} {
10065 global fonttop fontparam
10070 }
10071 }
10073 proc chg_fontparam {v sub op} {
10074 global fontparam
10077 }
10079 proc doprefs {} {
10080 global maxwidth maxgraphpct
10081 global oldprefs prefstop showneartags showlocalchanges
10082 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10083 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10085 set top .gitkprefs
10089 return
10090 }
10091 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10092 limitdiffs tabstop perfile_attrs} {
10094 }
10102 -font optionfont
10106 -font optionfont
10110 -font optionfont -variable showlocalchanges
10113 -font optionfont -variable autoselect
10122 -font optionfont -variable showneartags
10125 -font optionfont -variable limitdiffs
10128 -font optionfont -variable perfile_attrs
10134 -padx 10
10136 -command choose_extdiff
10163 [mc "diff hunk header"] \
10169 [mc "marked line background"] \
10193 }
10195 proc choose_extdiff {} {
10196 global extdifftool
10198 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
10201 }
10202 }
10204 proc choosecolor {v vi w x cmd} {
10213 }
10215 proc setselbg {c} {
10216 global bglist cflist
10219 }
10223 }
10225 proc setbg {c} {
10226 global bglist
10230 }
10231 }
10233 proc setfg {c} {
10234 global fglist canv
10238 }
10241 }
10243 proc prefscan {} {
10244 global oldprefs prefstop
10246 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10247 limitdiffs tabstop perfile_attrs} {
10250 }
10252 unset prefstop
10253 fontcan
10254 }
10256 proc prefsok {} {
10257 global maxwidth maxgraphpct
10258 global oldprefs prefstop showneartags showlocalchanges
10259 global fontpref mainfont textfont uifont
10260 global limitdiffs treediffs perfile_attrs
10263 unset prefstop
10264 fontcan
10265 set fontchanged 0
10269 eval font configure mainfont [fontflags mainfont]
10270 eval font configure mainfontbold [fontflags mainfont 1]
10271 setcoords
10272 set fontchanged 1
10273 }
10277 eval font configure textfont [fontflags textfont]
10278 eval font configure textfontbold [fontflags textfont 1]
10279 }
10283 eval font configure uifont [fontflags uifont]
10284 }
10285 settabs
10288 doshowlocalchanges
10289 } else {
10290 dohidelocalchanges
10291 }
10292 }
10295 # treediffs elements are limited by path;
10296 # won't have encodings cached if perfile_attrs was just turned on
10297 catch {unset treediffs}
10298 }
10301 redisplay
10304 reselectline
10305 }
10306 }
10308 proc formatdate {d} {
10309 global datetimeformat
10312 }
10314 }
10316 # This list of encoding names and aliases is distilled from
10317 # http://www.iana.org/assignments/character-sets.
10318 # Not all of them are supported by Tcl.
10319 set encoding_aliases {
10320 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10321 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10322 { ISO-10646-UTF-1 csISO10646UTF1 }
10323 { ISO_646.basic:1983 ref csISO646basic1983 }
10324 { INVARIANT csINVARIANT }
10325 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10326 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10327 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10328 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10329 { NATS-DANO iso-ir-9-1 csNATSDANO }
10330 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10331 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10332 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10333 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10334 { ISO-2022-KR csISO2022KR }
10335 { EUC-KR csEUCKR }
10336 { ISO-2022-JP csISO2022JP }
10337 { ISO-2022-JP-2 csISO2022JP2 }
10338 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10339 csISO13JISC6220jp }
10340 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10341 { IT iso-ir-15 ISO646-IT csISO15Italian }
10342 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10343 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10344 { greek7-old iso-ir-18 csISO18Greek7Old }
10345 { latin-greek iso-ir-19 csISO19LatinGreek }
10346 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10347 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10348 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10349 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10350 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10351 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10352 { INIS iso-ir-49 csISO49INIS }
10353 { INIS-8 iso-ir-50 csISO50INIS8 }
10354 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10355 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10356 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10357 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10358 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10359 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10360 csISO60Norwegian1 }
10361 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10362 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10363 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10364 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10365 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10366 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10367 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10368 { greek7 iso-ir-88 csISO88Greek7 }
10369 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10370 { iso-ir-90 csISO90 }
10371 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10372 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10373 csISO92JISC62991984b }
10374 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10375 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10376 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10377 csISO95JIS62291984handadd }
10378 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10379 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10380 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10381 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10382 CP819 csISOLatin1 }
10383 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10384 { T.61-7bit iso-ir-102 csISO102T617bit }
10385 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10386 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10387 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10388 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10389 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10390 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10391 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10392 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10393 arabic csISOLatinArabic }
10394 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10395 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10396 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10397 greek greek8 csISOLatinGreek }
10398 { T.101-G2 iso-ir-128 csISO128T101G2 }
10399 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10400 csISOLatinHebrew }
10401 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10402 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10403 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10404 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10405 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10406 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10407 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10408 csISOLatinCyrillic }
10409 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10410 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10411 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10412 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10413 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10414 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10415 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10416 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10417 { ISO_10367-box iso-ir-155 csISO10367Box }
10418 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10419 { latin-lap lap iso-ir-158 csISO158Lap }
10420 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10421 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10422 { us-dk csUSDK }
10423 { dk-us csDKUS }
10424 { JIS_X0201 X0201 csHalfWidthKatakana }
10425 { KSC5636 ISO646-KR csKSC5636 }
10426 { ISO-10646-UCS-2 csUnicode }
10427 { ISO-10646-UCS-4 csUCS4 }
10428 { DEC-MCS dec csDECMCS }
10429 { hp-roman8 roman8 r8 csHPRoman8 }
10430 { macintosh mac csMacintosh }
10431 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10432 csIBM037 }
10433 { IBM038 EBCDIC-INT cp038 csIBM038 }
10434 { IBM273 CP273 csIBM273 }
10435 { IBM274 EBCDIC-BE CP274 csIBM274 }
10436 { IBM275 EBCDIC-BR cp275 csIBM275 }
10437 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10438 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10439 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10440 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10441 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10442 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10443 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10444 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10445 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10446 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10447 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10448 { IBM437 cp437 437 csPC8CodePage437 }
10449 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10450 { IBM775 cp775 csPC775Baltic }
10451 { IBM850 cp850 850 csPC850Multilingual }
10452 { IBM851 cp851 851 csIBM851 }
10453 { IBM852 cp852 852 csPCp852 }
10454 { IBM855 cp855 855 csIBM855 }
10455 { IBM857 cp857 857 csIBM857 }
10456 { IBM860 cp860 860 csIBM860 }
10457 { IBM861 cp861 861 cp-is csIBM861 }
10458 { IBM862 cp862 862 csPC862LatinHebrew }
10459 { IBM863 cp863 863 csIBM863 }
10460 { IBM864 cp864 csIBM864 }
10461 { IBM865 cp865 865 csIBM865 }
10462 { IBM866 cp866 866 csIBM866 }
10463 { IBM868 CP868 cp-ar csIBM868 }
10464 { IBM869 cp869 869 cp-gr csIBM869 }
10465 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10466 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10467 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10468 { IBM891 cp891 csIBM891 }
10469 { IBM903 cp903 csIBM903 }
10470 { IBM904 cp904 904 csIBBM904 }
10471 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10472 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10473 { IBM1026 CP1026 csIBM1026 }
10474 { EBCDIC-AT-DE csIBMEBCDICATDE }
10475 { EBCDIC-AT-DE-A csEBCDICATDEA }
10476 { EBCDIC-CA-FR csEBCDICCAFR }
10477 { EBCDIC-DK-NO csEBCDICDKNO }
10478 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10479 { EBCDIC-FI-SE csEBCDICFISE }
10480 { EBCDIC-FI-SE-A csEBCDICFISEA }
10481 { EBCDIC-FR csEBCDICFR }
10482 { EBCDIC-IT csEBCDICIT }
10483 { EBCDIC-PT csEBCDICPT }
10484 { EBCDIC-ES csEBCDICES }
10485 { EBCDIC-ES-A csEBCDICESA }
10486 { EBCDIC-ES-S csEBCDICESS }
10487 { EBCDIC-UK csEBCDICUK }
10488 { EBCDIC-US csEBCDICUS }
10489 { UNKNOWN-8BIT csUnknown8BiT }
10490 { MNEMONIC csMnemonic }
10491 { MNEM csMnem }
10492 { VISCII csVISCII }
10493 { VIQR csVIQR }
10494 { KOI8-R csKOI8R }
10495 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10496 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10497 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10498 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10499 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10500 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10501 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10502 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10503 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10504 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10505 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10506 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10507 { IBM1047 IBM-1047 }
10508 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10509 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10510 { UNICODE-1-1 csUnicode11 }
10511 { CESU-8 csCESU-8 }
10512 { BOCU-1 csBOCU-1 }
10513 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10514 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10515 l8 }
10516 { ISO-8859-15 ISO_8859-15 Latin-9 }
10517 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10518 { GBK CP936 MS936 windows-936 }
10519 { JIS_Encoding csJISEncoding }
10520 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10521 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10522 EUC-JP }
10523 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10524 { ISO-10646-UCS-Basic csUnicodeASCII }
10525 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10526 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10527 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10528 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10529 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10530 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10531 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10532 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10533 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10534 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10535 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10536 { Ventura-US csVenturaUS }
10537 { Ventura-International csVenturaInternational }
10538 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10539 { PC8-Turkish csPC8Turkish }
10540 { IBM-Symbols csIBMSymbols }
10541 { IBM-Thai csIBMThai }
10542 { HP-Legal csHPLegal }
10543 { HP-Pi-font csHPPiFont }
10544 { HP-Math8 csHPMath8 }
10545 { Adobe-Symbol-Encoding csHPPSMath }
10546 { HP-DeskTop csHPDesktop }
10547 { Ventura-Math csVenturaMath }
10548 { Microsoft-Publishing csMicrosoftPublishing }
10549 { Windows-31J csWindows31J }
10550 { GB2312 csGB2312 }
10551 { Big5 csBig5 }
10552 }
10554 proc tcl_encoding {enc} {
10555 global encoding_aliases tcl_encoding_cache
10558 }
10559 set names [encoding names]
10564 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10567 }
10568 }
10573 # look through the aliases for one that tcl knows about
10579 }
10580 }
10582 }
10583 break
10584 }
10585 }
10586 set tclenc {}
10589 }
10592 }
10594 proc gitattr {path attr default} {
10595 global path_attr_cache
10598 } else {
10599 set r "unspecified"
10602 }
10604 }
10607 }
10609 }
10611 proc cache_gitattr {attr pathlist} {
10612 global path_attr_cache
10613 set newlist {}
10617 }
10618 }
10619 set lim 1000
10620 if {[tk windowingsystem] == "win32"} {
10621 # windows has a 32k limit on the arguments to a command...
10622 set lim 30
10623 }
10632 }
10634 }
10635 }
10636 }
10637 }
10638 }
10640 proc get_path_encoding {path} {
10641 global gui_encoding perfile_attrs
10647 }
10648 }
10650 }
10652 # First check that Tcl/Tk is recent enough
10653 if {[catch {package require Tk 8.4} err]} {
10654 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10655 Gitk requires at least Tcl/Tk 8.4."]
10656 exit 1
10657 }
10659 # defaults...
10660 set wrcomcmd "git diff-tree --stdin -p --pretty"
10662 set gitencoding {}
10663 catch {
10664 set gitencoding [exec git config --get i18n.commitencoding]
10665 }
10666 catch {
10667 set gitencoding [exec git config --get i18n.logoutputencoding]
10668 }
10670 set gitencoding "utf-8"
10671 }
10675 }
10677 set gui_encoding [encoding system]
10678 catch {
10679 set enc [exec git config --get gui.encoding]
10684 } else {
10686 }
10687 }
10688 }
10690 set mainfont {Helvetica 9}
10691 set textfont {Courier 9}
10692 set uifont {Helvetica 9 bold}
10693 set tabstop 8
10694 set findmergefiles 0
10695 set maxgraphpct 50
10696 set maxwidth 16
10697 set revlistorder 0
10698 set fastdate 0
10699 set uparrowlen 5
10700 set downarrowlen 5
10701 set mingaplen 100
10702 set cmitmode "patch"
10703 set wrapcomment "none"
10704 set showneartags 1
10705 set maxrefs 20
10706 set maxlinelen 200
10707 set showlocalchanges 1
10708 set limitdiffs 1
10709 set datetimeformat "%Y-%m-%d %H:%M:%S"
10710 set autoselect 1
10711 set perfile_attrs 0
10713 set extdifftool "meld"
10715 set colors {green red blue magenta darkgrey brown orange}
10716 set bgcolor white
10717 set fgcolor black
10718 set diffcolors {red "#00a000" blue}
10719 set diffcontext 3
10720 set ignorespace 0
10721 set selectbgcolor gray85
10722 set markbgcolor "#e0e0ff"
10724 set circlecolors {white blue gray blue blue}
10726 # button for popping up context menus
10727 if {[tk windowingsystem] eq "aqua"} {
10728 set ctxbut <Button-2>
10729 } else {
10730 set ctxbut <Button-3>
10731 }
10733 ## For msgcat loading, first locate the installation location.
10734 if { [info exists ::env(GITK_MSGSDIR)] } {
10735 ## Msgsdir was manually set in the environment.
10736 set gitk_msgsdir $::env(GITK_MSGSDIR)
10737 } else {
10738 ## Let's guess the prefix from argv0.
10742 unset gitk_prefix
10743 }
10745 ## Internationalization (i18n) through msgcat and gettext. See
10746 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10747 package require msgcat
10748 namespace import ::msgcat::mc
10749 ## And eventually load the actual message catalog
10752 catch {source ~/.gitk}
10754 font create optionfont -family sans-serif -size -12
10757 eval font create mainfont [fontflags mainfont]
10758 eval font create mainfontbold [fontflags mainfont 1]
10761 eval font create textfont [fontflags textfont]
10762 eval font create textfontbold [fontflags textfont 1]
10765 eval font create uifont [fontflags uifont]
10767 setoptions
10769 # check that we can find a .git directory somewhere...
10770 if {[catch {set gitdir [gitdir]}]} {
10771 show_error {} . [mc "Cannot find a git repository here."]
10772 exit 1
10773 }
10776 exit 1
10777 }
10779 set selecthead {}
10780 set selectheadid {}
10782 set revtreeargs {}
10783 set cmdline_files {}
10784 set i 0
10785 set revtreeargscmd {}
10788 "" { }
10789 "--" {
10791 break
10792 }
10793 "--select-commit=*" {
10795 }
10796 "--argscmd=*" {
10798 }
10799 default {
10801 }
10802 }
10803 incr i
10804 }
10807 set selecthead {}
10808 }
10811 # no -- on command line, but some arguments (other than --argscmd)
10812 if {[catch {
10817 # Unfortunately git rev-parse doesn't produce an error when
10818 # something is both a revision and a filename. To be consistent
10819 # with git log and git rev-list, check revtreeargs for filenames.
10822 show_error {} . [mc "Ambiguous argument '%s': both revision\
10824 exit 1
10825 }
10826 }
10827 } err]} {
10829 # so look for "fatal:".
10833 }
10835 exit 1
10836 }
10837 }
10839 set nullid "0000000000000000000000000000000000000000"
10840 set nullid2 "0000000000000000000000000000000000000001"
10841 set nullfile "/dev/null"
10845 set runq {}
10846 set history {}
10847 set historyindex 0
10848 set fh_serial 0
10849 set nhl_names {}
10850 set highlight_paths {}
10851 set findpattern {}
10852 set searchdirn -forwards
10853 set boldids {}
10854 set boldnameids {}
10855 set diffelide {0 0}
10856 set markingmatches 0
10857 set linkentercount 0
10858 set need_redisplay 0
10859 set nrows_drawn 0
10860 set firsttabstop 0
10862 set nextviewnum 1
10863 set curview 0
10864 set selectedview 0
10865 set selectedhlview [mc "None"]
10866 set highlight_related [mc "None"]
10867 set highlight_files {}
10868 set viewfiles(0) {}
10869 set viewperm(0) 0
10870 set viewargs(0) {}
10871 set viewargscmd(0) {}
10873 set selectedline {}
10874 set numcommits 0
10875 set loginstance 0
10876 set cmdlineok 0
10877 set stopped 0
10878 set stuffsaved 0
10879 set patchnum 0
10880 set lserial 0
10881 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10882 setcoords
10883 makewindow
10884 # wait for the window to become visible
10885 tkwait visibility .
10887 readrefs
10890 # create a view for the files/dirs specified on the command line
10891 set curview 1
10892 set selectedview 1
10893 set nextviewnum 2
10894 set viewname(1) [mc "Command line"]
10898 set viewperm(1) 0
10899 set vdatemode(1) 0
10900 addviewmenu 1
10901 .bar.view entryconf [mca "Edit view..."] -state normal
10902 .bar.view entryconf [mca "Delete view"] -state normal
10903 }
10905 if {[info exists permviews]} {
10908 incr nextviewnum
10915 }
10916 }
10918 if {[tk windowingsystem] eq "win32"} {
10919 focus -force .
10920 }
10922 getcommits {}