| blob | 3353f4a2717ceb72634b9311985b5570f06fe560 |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2008 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 proc gitdir {} {
11 global env
16 }
17 }
19 # A simple scheduler for compute-intensive stuff.
20 # The aim is to make sure that event handlers for GUI actions can
21 # run at least every 50-100 ms. Unfortunately fileevent handlers are
22 # run before X event handlers, so reading from a fast source can
23 # make the GUI completely unresponsive.
24 proc run args {
25 global isonrunq runq currunq
30 after idle dorunq
31 }
34 }
38 }
41 global runq currunq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq currunq
73 unset currunq
78 # script returns 1 if it wants to be readded
79 # file readers return 2 if they could do more straight away
83 }
86 }
89 }
91 after idle dorunq
92 }
93 }
96 global commfd leftover loginstance
102 }
105 global nr_unmerged
107 # find the list of unmerged files
114 exit 1
115 }
121 incr nr_unmerged
124 }
125 }
128 }
130 proc parseviewargs {n arglist} {
131 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
135 set glflags {}
136 set diffargs {}
137 set nextisval 0
138 set revargs {}
140 set allknown 1
141 set filtered 0
142 set i -1
144 incr i
147 set nextisval 0
148 continue
149 }
151 "-d" -
152 "--date-order" {
154 # remove from origargs in case we hit an unknown option
156 incr i -1
157 }
158 # These request or affect diff output, which we don't want.
159 # Some could be used to set our defaults for diff display.
166 lappend diffargs $arg
167 }
168 # These cause our parsing of git log's output to fail, or else
169 # they're options we want to set ourselves, so ignore them.
177 }
178 # These are harmless, and some are even useful
183 lappend glflags $arg
184 }
185 # These mean that we get a subset of the commits
193 lappend glflags $arg
194 }
195 # This appears to be the only one that has a value as a
196 # separate word following it
200 lappend glflags $arg
201 }
204 lappend revargs $arg
205 }
207 lappend revargs $arg
208 }
211 # git rev-parse doesn't understand --merge
212 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
213 }
214 # Other flag arguments including -<n>
219 # a flag argument that we don't recognize;
220 # that means we can't optimize
222 }
223 lappend glflags $arg
224 }
225 # Non-flag arguments specify commits or ranges of commits
226 default {
228 lappend revargs --gitk-symmetric-diff-marker
229 }
230 lappend revargs $arg
231 }
232 }
233 }
240 }
243 global vposids vnegids
246 set revs HEAD
247 }
249 # we get stdout followed by stderr in $err
250 # for an unknown rev, git rev-parse echoes it and then errors out
263 }
266 }
267 break
268 }
269 lappend badrev $line
270 }
271 }
274 }
284 lappend ret $id
287 }
288 }
292 lappend ret $id
295 }
296 lappend pos $id
297 }
298 incr sdm -1
299 }
303 }
305 # Start off a git log process and arrange to read its output
307 global startmsecs commitidx viewcomplete curview
308 global tclencoding
309 global viewargs viewargscmd viewfiles vfilelimit
310 global showlocalchanges
311 global viewactive viewinstances vmergeonly
312 global mainheadid
313 global vcanopt vflags vrevs vorigargs
317 # these are set this way for the error exits
320 varcinit $view
329 }
331 }
338 global nr_unmerged
345 }
347 }
348 }
355 }
359 }
367 }
371 interestedin $mainheadid dodiffindex
372 }
376 }
382 }
385 global commfd leftover
388 catch {
395 }
396 }
398 nukefile $fd
401 }
403 proc stop_backends {} {
404 global commfd
407 stop_instance $inst
408 }
409 }
412 global viewinstances
415 stop_instance $inst
416 }
418 }
421 global pending_select mainheadid selectheadid
429 }
430 }
433 global canv curview need_redisplay viewactive
435 initlayout
437 reset_pending_select $selid
442 }
443 }
445 proc updatecommits {} {
446 global curview vcanopt vorigargs vfilelimit viewinstances
447 global viewactive viewcomplete tclencoding
448 global startmsecs showneartags showlocalchanges
449 global mainheadid pending_select
450 global isworktree
451 global varcid vposids vnegids vflags vrevs
455 rereadrefs
458 dohidelocalchanges
459 }
461 dodiffindex
462 }
463 }
470 return
471 }
472 # note: getting the delta when negative refs change is hard,
473 # and could require multiple git log invocations, so in that
474 # case we ask git log for all the commits (not just the delta)
478 # take out positive refs that we asked for before or
479 # that we have already seen
484 lappend newrevs $rev
485 incr npos
486 }
488 lappend $newrevs $rev
489 }
490 }
494 }
498 }
504 return
505 }
508 }
514 }
518 reset_pending_select {}
521 getallcommits
522 }
523 }
525 proc reloadcommits {} {
526 global curview viewcomplete selectedline currentid thickerline
527 global showneartags treediffs commitinterest cached_commitrow
528 global targetid
533 }
536 stop_rev_list $curview
537 }
538 resetvarcs $curview
543 readrefs
544 changedrefs
546 getallcommits
547 }
548 clear_display
552 setcanvscroll
553 getcommits $selid
555 }
557 # This makes a string representation of a positive integer which
558 # sorts as a string in numerical order
566 }
568 }
570 # Procedures used in reordering commits from git log (without
571 # --topo-order) into the order for display.
574 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
575 global vtokmod varcmod vrowmod varcix vlastins
589 }
592 global varcid varccommits parents children vseedcount ordertok
598 }
599 # some commits might have children but haven't been seen yet
602 }
605 }
608 }
610 }
612 # returns a list of the commits with no children
614 global vdownptr vleftptr varcstart
621 }
623 }
626 global varcid varctok parents children vdatemode
627 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
628 global commitdata commitinfo vseedcount varccommits vlastins
635 }
639 }
642 }
648 }
657 }
658 }
663 }
670 }
674 }
681 }
687 }
696 }
699 global varcid varcstart varccommits varctok
700 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
707 # "%" sorts before "0"...
717 }
727 }
728 }
731 global parents children varctok varcstart varccommits
732 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
741 lappend todo $a
746 }
747 }
748 }
749 incr ntot
756 }
757 }
759 }
766 }
772 }
781 }
782 }
787 }
789 continue
790 }
797 }
798 }
803 modify_arc $v $ka
804 }
806 modify_arc $v $b
807 }
814 }
817 }
820 }
829 }
834 }
841 }
845 }
847 }
848 }
853 }
854 }
856 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
857 }
859 # Fix up the graph after we have found out that in view $v,
860 # $p (a commit that we have already seen) is actually the parent
861 # of the last commit in arc $a.
863 global varcid varcstart varctok vupptr
867 splitvarc $p $v
869 }
870 # seeds always need to be renumbered
874 renumbervarc $pa $v
875 }
876 }
879 global cmitlisted children parents varcid varctok vtokmod
880 global varccommits ordertok commitidx numcommits curview
881 global targetid targetrow
883 readcommit $id
891 modify_arc $v $a
892 }
898 }
899 fix_reversal $p $a $v
903 setcanvscroll
906 incr targetrow
907 }
908 }
909 }
910 }
913 global varcid varccommits parents children cmitlisted
914 global commitidx varctok vtokmod targetid targetrow curview numcommits
921 return
922 }
929 # note we deliberately don't update varcstart($v) even if $i == 0
931 modify_arc $v $a $i
934 incr targetrow
935 }
936 }
937 setcanvscroll
938 drawvisible
939 }
942 global varcid varccommits parents children commitidx
943 global varctok vtokmod cmitlisted currentid selectedline
944 global targetid curview numcommits
949 return
950 }
956 return
957 }
967 }
968 modify_arc $v $a $i
970 unset currentid
972 }
975 }
976 setcanvscroll
977 drawvisible
978 }
981 global children nullid nullid2
986 }
987 }
989 }
992 global children nullid nullid2
999 }
1000 }
1002 }
1005 global varctok varcid
1009 }
1011 # This assumes that if lim is not given, the caller has checked that
1012 # arc a's token is less than $vtokmod($v)
1014 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1022 }
1023 }
1030 }
1035 }
1037 }
1039 undolayout $r
1040 }
1041 }
1044 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1045 global varcid vrownum varcorder varcix varccommits
1046 global vupptr vdownptr vleftptr varctok
1047 global displayorder parentlist curview cached_commitrow
1054 }
1056 }
1060 # go up the tree until we find something that has a row number,
1061 # or we get to a seed
1063 }
1078 }
1080 }
1084 # go down if possible
1087 # if not, go left, or go up until we can go left
1092 }
1094 }
1096 incr arcn
1101 }
1107 }
1108 }
1110 # Test whether view $v contains commit $id
1112 global varcid
1115 }
1117 # Return the row number for commit $id in the current view
1119 global varcid varccommits varcrow curview cached_commitrow
1120 global varctok vtokmod
1126 }
1129 update_arcrows $v
1130 }
1133 }
1138 }
1142 }
1144 # Returns 1 if a is on an earlier row than b, otherwise 0
1146 global varcid varctok curview
1152 }
1156 }
1158 }
1163 }
1175 }
1176 }
1178 }
1180 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1182 global vrownum curview commitidx displayorder parentlist
1183 global varccommits varcorder parents vrowmod varcrow
1184 global d_valid_start d_valid_end
1187 update_arcrows $curview
1188 }
1204 }
1206 lappend displayorder $id
1208 }
1212 lset displayorder $i $id
1214 incr i
1215 }
1216 }
1217 incr r $al
1218 }
1219 }
1222 global displayorder
1228 }
1230 }
1233 global varctok varccommits varcid parents children
1234 global cmitlisted commitidx vtokmod
1243 # add p as a new commit
1244 incr missing_parents
1252 }
1255 modify_arc $v $b
1256 }
1260 }
1261 }
1265 }
1266 }
1267 }
1269 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1270 # Assumes we already have an arc for $rwid.
1272 global children parents varcid varctok vtokmod varccommits
1275 # make $rwid be $ch's parent in place of $id
1279 }
1281 # add $ch to $rwid's children and sort the list if necessary
1285 }
1286 # fix the graph after joining $id to $rwid
1288 fix_reversal $rwid $a $v
1289 # parentlist is wrong for the last element of arc $a
1290 # even if displayorder is right, hence the 3rd arg here
1292 }
1293 }
1295 # Mechanism for registering a command to be executed when we come
1296 # across a particular commit. To handle the case when only the
1297 # prefix of the commit is known, the commitinterest array is now
1298 # indexed by the first 4 characters of the ID. Each element is a
1299 # list of id, cmd pairs.
1301 global commitinterest
1304 }
1307 global commitinterest
1316 lappend newlist $i $script
1317 }
1318 }
1323 }
1324 }
1326 }
1329 global cmitlisted leftover
1330 global commitidx commitdata vdatemode
1331 global parents children curview hlview
1332 global idpending ordertok
1333 global varccommits varcid varctok vtokmod vfilelimit
1336 # git log doesn't terminate the last commit with a null...
1339 }
1343 }
1344 global commfd viewcomplete viewactive viewname
1345 global viewinstances
1350 }
1351 # set it blocking so we wait for the process to terminate
1357 }
1360 bad arguments to git log."
1362 append err \
1363 " (Note: arguments to gitk are passed to git log\
1364 to allow selection of commits to be displayed.)"
1365 }
1368 }
1369 error_popup $err
1370 }
1373 # Check if we have seen any ids listed as parents that haven't
1374 # appeared in the list
1375 closevarcs $view
1376 notbusy $view
1377 }
1379 run chewcommits
1380 }
1382 }
1390 break
1391 }
1398 }
1411 }
1413 }
1418 break
1419 }
1420 }
1421 }
1426 }
1428 exit 1
1429 }
1436 # when doing path limiting, so work around that here
1437 # by working out the rewritten parent with git rev-list
1438 # and if we already know about it, using the rewritten
1439 # parent as a substitute parent for $id's children.
1443 }]} {
1445 # use $rwid in place of $id
1446 rewrite_commit $view $id $rwid
1447 continue
1448 }
1449 }
1450 }
1456 }
1461 }
1473 }
1474 }
1476 # new arc
1478 }
1480 modify_arc $view $a
1481 }
1486 }
1497 }
1499 fix_reversal $p $a $view
1500 }
1501 }
1502 incr i
1503 }
1507 }
1509 global numcommits hlview
1513 run chewcommits
1514 }
1516 # we never actually get here...
1517 run vhighlightmore
1518 }
1521 }
1522 }
1524 }
1526 proc chewcommits {} {
1527 global curview hlview viewcomplete
1528 global pending_select
1530 layoutmore
1532 global commitidx varctok
1533 global numcommits startmsecs
1536 update
1537 reset_pending_select {}
1544 }
1545 }
1547 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1548 #puts "overall $ms ms for $numcommits commits"
1549 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1552 }
1553 notbusy layout
1554 }
1556 }
1559 global tclencoding
1561 # Invoke git-log to handle automatic encoding conversion
1563 # Read the results using i18n.logoutputencoding
1567 }
1569 close $fd
1570 # Remove the heading line
1574 }
1579 }
1582 global commitinfo cdate
1593 # should never happen...
1595 }
1606 }
1607 }
1609 # take the first non-blank line of the comment as the headline
1614 }
1619 }
1621 # git log indents the comment by 4 spaces;
1622 # if we got this via git cat-file, add the indentation
1625 append newcomment " "
1626 append newcomment $line
1628 }
1630 }
1633 }
1636 }
1639 global commitdata commitinfo
1644 readcommit $id
1647 }
1648 }
1650 }
1652 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1653 # and are present in the current view.
1654 # This is fairly slow...
1656 global varcid curview
1661 }
1663 }
1665 proc readrefs {} {
1666 global tagids idtags headids idheads tagobjid
1667 global otherrefids idotherrefs mainhead mainheadid
1668 global selecthead selectheadid
1672 }
1684 }
1690 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1691 # which is what we want since the former is the commit ID
1697 }
1703 }
1704 }
1708 catch {
1713 }
1714 }
1717 catch {
1719 }
1720 }
1721 }
1723 # skip over fake commits
1724 proc first_real_row {} {
1725 global nullid nullid2 numcommits
1730 break
1731 }
1732 }
1734 }
1736 # update things for a head moved to a child of its previous location
1738 global headids idheads
1743 }
1745 # update things when a head has been removed
1747 global headids idheads
1755 }
1756 }
1758 }
1761 global have_tk85
1763 # In MacOS Tk 8.4 transient appears to work by setting
1764 # overrideredirect, which is utterly useless, since the
1765 # windows get no border, and are not even kept above
1766 # the parent.
1769 wm transient $window $origin
1771 # Windows fails to place transient windows normally, so
1772 # schedule a callback to center them on the parent.
1775 }
1776 }
1787 tkwait window $top
1788 }
1791 set w .error
1792 toplevel $w
1793 make_transient $w $owner
1794 show_error $w $w $msg
1795 }
1798 global confirm_ok
1800 set w .confirm
1801 toplevel $w
1802 make_transient $w $owner
1813 tkwait window $w
1815 }
1817 proc setoptions {} {
1819 option add *Panedwindow.sashRelief raised startupFile
1820 option add *Button.font uifont startupFile
1821 option add *Checkbutton.font uifont startupFile
1822 option add *Radiobutton.font uifont startupFile
1823 option add *Menu.font uifont startupFile
1824 option add *Menubutton.font uifont startupFile
1825 option add *Label.font uifont startupFile
1826 option add *Message.font uifont startupFile
1827 option add *Entry.font uifont startupFile
1828 }
1830 # Make a menu and submenus.
1831 # m is the window name for the menu, items is the list of menu items to add.
1832 # Each item is a list {mc label type description options...}
1833 # mc is ignored; it's so we can put mc there to alert xgettext
1834 # label is the string that appears in the menu
1835 # type is cascade, command or radiobutton (should add checkbutton)
1836 # description depends on type; it's the sublist for cascade, the
1837 # command to invoke for command, or {variable value} for radiobutton
1839 menu $m
1841 set Meta1 Cmd
1843 set Meta1 Ctrl
1844 }
1855 }
1856 }
1861 }
1864 }
1868 }
1869 }
1875 }
1876 }
1877 }
1879 # translate string and remove ampersands
1882 }
1884 proc makewindow {} {
1885 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1886 global tabstop
1887 global findtype findtypemenu findloc findstring fstring geometry
1888 global entries sha1entry sha1string sha1but
1889 global diffcontextstring diffcontext
1890 global ignorespace
1891 global maincursor textcursor curtextcursor
1892 global rowctxmenu fakerowmenu mergemax wrapcomment
1893 global highlight_files gdttype
1894 global searchstring sstring
1895 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1896 global headctxmenu progresscanv progressitem progresscoords statusw
1897 global fprogitem fprogcoord lastprogupdate progupdatepending
1898 global rprogitem rprogcoord rownumsel numcommits
1899 global have_tk85
1901 # The "mc" arguments here are purely so that xgettext
1902 # sees the following string as needing to be translated
1903 makemenu .bar {
1910 }}
1913 }}
1920 }}
1924 }}
1925 }
1926 . configure -menu .bar
1928 # the gui has upper and lower half, parts of a paned window.
1929 panedwindow .ctop -orient vertical
1931 # possibly use assumed geometry
1939 }
1941 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1943 frame .tf.histframe
1946 # create three canvases
1947 set cscroll .tf.histframe.csb
1948 set canv .tf.histframe.pwclist.canv
1949 canvas $canv \
1953 .tf.histframe.pwclist add $canv
1954 set canv2 .tf.histframe.pwclist.canv2
1955 canvas $canv2 \
1958 .tf.histframe.pwclist add $canv2
1959 set canv3 .tf.histframe.pwclist.canv3
1960 canvas $canv3 \
1963 .tf.histframe.pwclist add $canv3
1967 # a scroll bar to rule them
1971 lappend bglist $canv $canv2 $canv3
1974 # we have two button bars at bottom of top frame. Bar 1
1975 frame .tf.bar
1978 set sha1entry .tf.bar.sha1
1980 set sha1but .tf.bar.sha1label
1984 pack .tf.bar.sha1label -side left
1986 trace add variable sha1string write sha1change
1990 #define left_width 16
1991 #define left_height 16
1992 static unsigned char left_bits[] = {
1996 }
1998 #define right_width 16
1999 #define right_height 16
2000 static unsigned char right_bits[] = {
2004 }
2019 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2020 -side left
2021 global selectedline
2022 trace add variable selectedline write selectedline_change
2024 # Status label and progress bar
2025 set statusw .tf.bar.status
2029 set progresscanv .tf.bar.progress
2042 # build up the bottom bar of upper window
2047 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2054 trace add variable gdttype write gdttype_change
2058 set fstring .tf.lbar.findstring
2059 lappend entries $fstring
2061 trace add variable findstring write find_change
2065 trace add variable findtype write findcom_change
2069 trace add variable findloc write find_change
2070 pack .tf.lbar.findloc -side right
2071 pack .tf.lbar.findtype -side right
2074 # Finish putting the upper half of the viewer together
2078 .ctop add .tf
2082 # now build up the bottom
2083 panedwindow .pwbottom -orient horizontal
2085 # lower left, a text box over search bar, scroll bar to the right
2086 # if we know window height, then that will set the lower text height, otherwise
2087 # we set lower text height which will drive window height
2092 }
2093 frame .bleft.top
2094 frame .bleft.mid
2095 frame .bleft.bottom
2099 set sstring .bleft.top.sstring
2101 lappend entries $sstring
2102 trace add variable searchstring write incrsearch
2115 -textvariable diffcontextstring
2117 trace add variable diffcontextstring write diffcontextchange
2118 lappend entries .bleft.mid.diffcontext
2119 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2123 set ctext .bleft.bottom.ctext
2130 }
2137 grid .bleft.bottom.sbhorizontal -sticky ew
2142 lappend bglist $ctext
2143 lappend fglist $ctext
2172 .pwbottom add .bleft
2175 # lower right
2176 frame .bright
2177 frame .bright.mode
2184 set cflist .bright.cfiles
2186 text $cflist \
2189 -font mainfont \
2194 lappend bglist $cflist
2195 lappend fglist $cflist
2199 $cflist tag configure highlight \
2203 .pwbottom add .bright
2204 .ctop add .pwbottom
2206 # restore window width & height if known
2211 }
2214 }
2216 }
2217 }
2220 set M1B M1
2222 set M1B Control
2223 }
2228 #bindall <B1-Motion> {selcanvline %W %x %y}
2238 allcanvs yview scroll $delta units
2239 }
2240 }
2241 }
2263 bindkey p "selnextline -1"
2264 bindkey n "selnextline 1"
2265 bindkey z "goback"
2266 bindkey x "goforw"
2267 bindkey i "selnextline -1"
2268 bindkey k "selnextline 1"
2269 bindkey j "goback"
2270 bindkey l "goforw"
2271 bindkey b prevfile
2277 bindkey f nextfile
2294 wm protocol . WM_DELETE_WINDOW doquit
2303 global ctxbut
2307 set maincursor [. cget -cursor]
2311 set rowctxmenu .rowctxmenu
2313 {mc "Diff this -> selected" command {diffvssel 0}}
2314 {mc "Diff selected -> this" command {diffvssel 1}}
2315 {mc "Make patch" command mkpatch}
2316 {mc "Create tag" command mktag}
2317 {mc "Write commit to file" command writecommit}
2318 {mc "Create new branch" command mkbranch}
2319 {mc "Cherry-pick this commit" command cherrypick}
2320 {mc "Reset HEAD branch to here" command resethead}
2321 }
2324 set fakerowmenu .fakerowmenu
2326 {mc "Diff this -> selected" command {diffvssel 0}}
2327 {mc "Diff selected -> this" command {diffvssel 1}}
2328 {mc "Make patch" command mkpatch}
2329 }
2332 set headctxmenu .headctxmenu
2334 {mc "Check out this branch" command cobranch}
2335 {mc "Remove this branch" command rmbranch}
2336 }
2339 global flist_menu
2340 set flist_menu .flistctxmenu
2342 {mc "Highlight this too" command {flist_hl 0}}
2343 {mc "Highlight this only" command {flist_hl 1}}
2344 {mc "External diff" command {external_diff}}
2345 {mc "Blame parent commit" command {external_blame 1}}
2346 }
2349 global diff_menu
2350 set diff_menu .diffctxmenu
2352 {mc "Show origin of this line" command show_line_source}
2353 {mc "Run git gui blame on this line" command {external_blame_diff}}
2354 }
2356 }
2358 # Windows sends all mouse wheel events to the current focused window, not
2359 # the one where the mouse hovers, so bind those events here and redirect
2360 # to the correct window
2361 proc windows_mousewheel_redirector {W X Y D} {
2362 global canv canv2 canv3
2368 } else {
2369 catch {
2371 }
2372 }
2373 }
2374 }
2376 # Update row number label when selectedline changes
2377 proc selectedline_change {n1 n2 op} {
2378 global selectedline rownumsel
2381 set rownumsel {}
2382 } else {
2384 }
2385 }
2387 # mouse-2 makes all windows scan vertically, but only the one
2388 # the cursor is in scans horizontally
2389 proc canvscan {op w x y} {
2390 global canv canv2 canv3
2394 } else {
2396 }
2397 }
2398 }
2400 proc scrollcanv {cscroll f0 f1} {
2402 drawvisible
2403 flushhighlights
2404 }
2406 # when we make a key binding for the toplevel, make sure
2407 # it doesn't get triggered when that key is pressed in the
2408 # find string entry widget.
2409 proc bindkey {ev script} {
2410 global entries
2414 set escript [bind Entry <Key>]
2415 }
2418 }
2419 }
2421 # set the focus back to the toplevel for any click outside
2422 # the entry widgets
2423 proc click {w} {
2424 global ctext entries
2427 }
2428 focus .
2429 }
2431 # Adjust the progress bar for a change in requested extent or canvas size
2432 proc adjustprogress {} {
2433 global progresscanv progressitem progresscoords
2434 global fprogitem fprogcoord lastprogupdate progupdatepending
2435 global rprogitem rprogcoord
2444 set now [clock clicks -milliseconds]
2446 set progupdatepending 0
2447 update
2449 set progupdatepending 1
2451 }
2452 }
2454 proc doprogupdate {} {
2455 global lastprogupdate progupdatepending
2458 set progupdatepending 0
2459 set lastprogupdate [clock clicks -milliseconds]
2460 update
2461 }
2462 }
2464 proc savestuff {w} {
2465 global canv canv2 canv3 mainfont textfont uifont tabstop
2466 global stuffsaved findmergefiles maxgraphpct
2467 global maxwidth showneartags showlocalchanges
2468 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2469 global cmitmode wrapcomment datetimeformat limitdiffs
2470 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2471 global autoselect extdifftool perfile_attrs markbgcolor
2474 if {![winfo viewable .]} return
2475 catch {
2476 set f [open "~/.gitk-new" w]
2513 }
2514 }
2517 file rename -force "~/.gitk-new" "~/.gitk"
2518 }
2519 set stuffsaved 1
2520 }
2522 proc resizeclistpanes {win w} {
2523 global oldwidth
2530 } else {
2535 set sash0 30
2536 }
2539 }
2544 }
2545 }
2546 }
2549 }
2551 }
2553 proc resizecdetpanes {win w} {
2554 global oldwidth
2559 } else {
2563 set sash0 45
2564 }
2567 }
2568 }
2570 }
2572 }
2574 proc allcanvs args {
2575 global canv canv2 canv3
2579 }
2581 proc bindall {event action} {
2582 global canv canv2 canv3
2586 }
2588 proc about {} {
2589 global uifont
2590 set w .about
2593 return
2594 }
2599 Gitk - a commit viewer for git
2601 Copyright © 2005-2008 Paul Mackerras
2603 Use and redistribute under the terms of the GNU General Public License"] \
2604 -justify center -aspect 400 -border 2 -bg white -relief groove
2611 }
2613 proc keys {} {
2614 set w .keys
2617 return
2618 }
2619 if {[tk windowingsystem] eq {aqua}} {
2620 set M1T Cmd
2621 } else {
2622 set M1T Ctrl
2623 }
2628 [mc "Gitk key bindings:"]
2631 [mc "<Home> Move to first commit"]
2632 [mc "<End> Move to last commit"]
2633 [mc "<Up>, p, i Move up one commit"]
2634 [mc "<Down>, n, k Move down one commit"]
2635 [mc "<Left>, z, j Go back in history list"]
2636 [mc "<Right>, x, l Go forward in history list"]
2637 [mc "<PageUp> Move up one page in commit list"]
2638 [mc "<PageDown> Move down one page in commit list"]
2645 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2646 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2647 [mc "<Delete>, b Scroll diff view up one page"]
2648 [mc "<Backspace> Scroll diff view up one page"]
2649 [mc "<Space> Scroll diff view down one page"]
2650 [mc "u Scroll diff view up 18 lines"]
2651 [mc "d Scroll diff view down 18 lines"]
2654 [mc "<Return> Move to next find hit"]
2655 [mc "/ Move to next find hit, or redo find"]
2656 [mc "? Move to previous find hit"]
2657 [mc "f Scroll diff view to next file"]
2664 [mc "<F5> Update"]
2665 " \
2666 -justify left -bg white -border 2 -relief groove
2674 }
2676 # Procedures for manipulating the file list window at the
2677 # bottom right of the overall window.
2679 proc treeview {w l openlevs} {
2680 global treecontents treediropen treeheight treeparent treeindex
2682 set ix 0
2683 set treeindex() 0
2684 set lev 0
2685 set prefix {}
2686 set prefixend -1
2687 set prefendstack {}
2688 set htstack {}
2689 set ht 0
2690 set treecontents() {}
2697 }
2704 incr lev -1
2705 }
2709 set ht 0
2721 set ht 1
2726 set str "\n"
2734 }
2735 incr lev
2736 }
2739 incr ht
2740 set str "\n"
2744 }
2746 }
2747 }
2755 }
2757 }
2759 proc linetoelt {l} {
2760 global treeheight treecontents
2762 set y 2
2763 set prefix {}
2764 while {1} {
2768 }
2769 set n 1
2774 incr y
2775 break
2776 }
2777 }
2779 }
2780 }
2781 }
2783 proc highlight_tree {y prefix} {
2784 global treeheight treecontents cflist
2790 }
2791 incr y
2794 }
2795 }
2797 }
2799 proc treeclosedir {w dir} {
2800 global treediropen treeheight treeparent treeindex
2812 }
2813 }
2815 proc treeopendir {w dir} {
2816 global treediropen treeheight treeparent treecontents treeindex
2823 set lev 0
2824 set str "\n"
2827 incr lev
2828 append str "\t"
2830 }
2845 } else {
2848 }
2849 }
2862 }
2864 }
2865 }
2867 proc treeclick {w x y} {
2868 global treediropen cmitmode ctext cflist cflist_top
2871 if {![info exists cflist_top]} return
2878 return
2879 }
2885 } else {
2887 }
2888 }
2890 proc setfilelist {id} {
2891 global treefilelist cflist jump_to_here
2898 }
2899 }
2900 }
2902 image create bitmap tri-rt -background black -foreground blue -data {
2903 #define tri-rt_width 13
2904 #define tri-rt_height 13
2905 static unsigned char tri-rt_bits[] = {
2906 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2907 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2908 0x00, 0x00};
2909 } -maskdata {
2910 #define tri-rt-mask_width 13
2911 #define tri-rt-mask_height 13
2912 static unsigned char tri-rt-mask_bits[] = {
2913 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2914 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2915 0x08, 0x00};
2916 }
2917 image create bitmap tri-dn -background black -foreground blue -data {
2918 #define tri-dn_width 13
2919 #define tri-dn_height 13
2920 static unsigned char tri-dn_bits[] = {
2921 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2922 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2923 0x00, 0x00};
2924 } -maskdata {
2925 #define tri-dn-mask_width 13
2926 #define tri-dn-mask_height 13
2927 static unsigned char tri-dn-mask_bits[] = {
2928 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2929 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2930 0x00, 0x00};
2931 }
2933 image create bitmap reficon-T -background black -foreground yellow -data {
2934 #define tagicon_width 13
2935 #define tagicon_height 9
2936 static unsigned char tagicon_bits[] = {
2937 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2938 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2939 } -maskdata {
2940 #define tagicon-mask_width 13
2941 #define tagicon-mask_height 9
2942 static unsigned char tagicon-mask_bits[] = {
2943 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2944 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2945 }
2946 set rectdata {
2947 #define headicon_width 13
2948 #define headicon_height 9
2949 static unsigned char headicon_bits[] = {
2950 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2951 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2952 }
2953 set rectmask {
2954 #define headicon-mask_width 13
2955 #define headicon-mask_height 9
2956 static unsigned char headicon-mask_bits[] = {
2957 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2958 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2959 }
2960 image create bitmap reficon-H -background black -foreground green \
2962 image create bitmap reficon-o -background black -foreground "#ddddff" \
2965 proc init_flist {first} {
2966 global cflist cflist_top difffilestart
2972 set cflist_top 1
2974 } else {
2975 catch {unset cflist_top}
2976 }
2978 set difffilestart {}
2979 }
2981 proc highlight_tag {f} {
2982 global highlight_paths
2986 return "bold"
2987 }
2988 }
2989 return {}
2990 }
2992 proc highlight_filelist {} {
2993 global cmitmode cflist
3002 }
3003 }
3004 } else {
3005 highlight_tree 2 {}
3006 }
3008 }
3010 proc unhighlight_filelist {} {
3011 global cflist
3016 }
3018 proc add_flist {fl} {
3019 global cflist
3025 }
3027 }
3029 proc sel_flist {w x y} {
3030 global ctext difffilestart cflist cflist_top cmitmode
3033 if {![info exists cflist_top]} return
3040 } else {
3042 }
3043 }
3045 proc pop_flist_menu {w X Y x y} {
3046 global ctext cflist cmitmode flist_menu flist_menu_file
3047 global treediffs diffids
3049 stopfinding
3055 } else {
3057 }
3059 set xdiffstate "normal"
3061 set xdiffstate "disabled"
3062 }
3063 # Disable "External diff" item in tree mode
3066 }
3068 proc find_ctext_fileinfo {line} {
3069 global ctext_file_names ctext_file_lines
3075 return {}
3076 } else {
3078 }
3079 }
3081 proc pop_diff_menu {w X Y x y} {
3082 global ctext diff_menu flist_menu_file
3083 global diff_menu_txtpos diff_menu_line
3084 global diff_menu_filebase
3088 # don't pop up the menu on hunk-separator or file-separator lines
3090 return
3091 }
3092 stopfinding
3098 }
3100 proc flist_hl {only} {
3101 global flist_menu_file findstring gdttype
3106 } else {
3108 }
3109 set gdttype [mc "touching paths:"]
3110 }
3112 proc save_file_from_commit {filename output what} {
3113 global nullfile
3118 }
3120 return {}
3121 }
3123 }
3125 proc external_diff_get_one_file {diffid filename diffdir} {
3126 global nullid nullid2 nullfile
3127 global gitdir
3133 }
3135 }
3139 }
3143 }
3145 proc external_diff {} {
3146 global gitktmpdir nullid nullid2
3147 global flist_menu_file
3148 global diffids
3149 global diffnum
3150 global gitdir extdifftool
3153 # no reference commit given
3156 # diffing working copy with index
3159 # diffing index with HEAD
3160 set diffidfrom "HEAD"
3161 } else {
3162 # use first parent commit
3163 global parentlist selectedline
3165 }
3166 } else {
3169 }
3171 # make sure that several diffs wont collide
3172 if {![info exists gitktmpdir]} {
3174 [format ".gitk-tmp.%s" [pid]]]
3177 unset gitktmpdir
3178 return
3179 }
3180 set diffnum 0
3181 }
3182 incr diffnum
3186 return
3187 }
3189 # gather files to diff
3199 } else {
3202 }
3203 }
3204 }
3206 proc find_hunk_blamespec {base line} {
3207 global ctext
3209 # Find and parse the hunk header
3215 s_line old_specs osz osz1 new_line nsz]} {
3216 return
3217 }
3219 # base lines for the parents
3223 old_spec old_line osz]} {
3224 return
3225 }
3227 }
3229 # Now scan the lines to determine offset within the hunk
3231 set dline 0
3234 # Determine if the line is removed
3238 # Choose a parent index
3241 } else {
3245 } else {
3246 # blame the current commit
3247 set parent -1
3248 }
3249 }
3250 # then count other lines that belong to it
3253 # Determine if the line is removed
3258 incr dline
3259 }
3260 } else {
3262 incr dline
3263 }
3264 }
3265 }
3266 incr parent
3267 } else {
3268 set parent 0
3269 }
3273 }
3275 proc external_blame_diff {} {
3276 global currentid cmitmode
3277 global diff_menu_txtpos diff_menu_line
3278 global diff_menu_filebase flist_menu_file
3281 set parent_idx 0
3283 } else {
3288 } else {
3289 set parent_idx 0
3290 set line 0
3291 }
3292 }
3295 }
3298 # at stage 0 or 2
3299 proc index_sha1 {fname} {
3307 }
3308 }
3310 return {}
3311 }
3313 proc external_blame {parent_idx {line {}}} {
3314 global flist_menu_file
3315 global nullid nullid2
3316 global parentlist selectedline currentid
3320 } else {
3322 }
3325 error_popup [mc "No such commit"]
3326 return
3327 }
3329 set cmdline [list git gui blame]
3332 }
3336 }
3337 }
3339 proc show_line_source {} {
3340 global cmitmode currentid parents curview blamestuff blameinst
3341 global diff_menu_line diff_menu_filebase flist_menu_file
3342 global nullid nullid2 gitdir
3344 set from_index {}
3348 } else {
3354 return
3355 }
3356 incr pi -1
3359 # must be a merge in progress...
3360 if {[catch {
3361 # get the last line from .git/MERGE_HEAD
3365 } err]} {
3367 return
3368 }
3370 # need to do the blame from the index
3371 if {[catch {
3373 } err]} {
3375 return
3376 }
3377 }
3378 } else {
3380 }
3382 }
3383 set blameargs {}
3386 }
3389 lappend blameargs --contents -
3390 } else {
3392 }
3394 if {[catch {
3396 } err]} {
3398 return
3399 }
3405 }
3407 proc stopblaming {} {
3408 global blameinst
3410 if {[info exists blameinst]} {
3412 unset blameinst
3413 }
3414 }
3416 proc read_line_source {fd inst} {
3417 global blamestuff curview commfd blameinst nullid nullid2
3421 }
3423 return 1
3424 }
3426 unset blameinst
3430 return 0
3431 }
3433 set fname {}
3439 # look for "filename" line
3443 break
3444 }
3445 }
3446 }
3448 # all looks good, select it
3450 # blame uses all-zeroes to mean not committed,
3451 # which would mean a change in the index
3453 }
3456 } else {
3457 error_popup [mc "That line comes from commit %s, \
3459 }
3460 } else {
3461 puts "oops couldn't parse git blame output"
3462 }
3463 return 0
3464 }
3467 proc delete_at_eof {f dir} {
3472 }
3474 return 0
3475 }
3476 return 1
3477 }
3479 # Functions for adding and removing shell-type quoting
3481 proc shellquote {str} {
3484 }
3487 }
3490 }
3492 }
3494 proc shellarglist {l} {
3495 set str {}
3498 append str " "
3499 }
3501 }
3503 }
3505 proc shelldequote {str} {
3506 set ret {}
3507 set used -1
3508 while {1} {
3509 incr used
3513 break
3514 }
3520 }
3522 incr used
3526 error "unmatched single-quote"
3527 }
3530 continue
3531 }
3534 error "trailing backslash"
3535 }
3537 continue
3538 }
3539 # here ch == "\""
3540 while {1} {
3542 error "unmatched double-quote"
3543 }
3549 }
3551 incr used
3553 incr used
3554 }
3555 }
3557 }
3559 proc shellsplit {str} {
3560 set l {}
3561 while {1} {
3569 }
3571 }
3573 # Code to implement multiple views
3575 proc newview {ishighlight} {
3576 global nextviewnum newviewname newishighlight
3577 global revtreeargs viewargscmd newviewopts curview
3580 set top .gitkview
3583 return
3584 }
3590 }
3592 set known_view_options {
3593 {perm b . {} {mc "Remember this view"}}
3594 {args t50= + {} {mc "Commits to include (arguments to git log):"}}
3595 {all b * "--all" {mc "Use all refs"}}
3596 {dorder b . {"--date-order" "-d"} {mc "Strictly sort by date"}}
3597 {lright b . "--left-right" {mc "Mark branch sides"}}
3598 {since t15 + {"--since=*" "--after=*"} {mc "Since date:"}}
3599 {until t15 . {"--until=*" "--before=*"} {mc "Until date:"}}
3600 {limit t10 + "--max-count=*" {mc "Max count:"}}
3601 {skip t10 . "--skip=*" {mc "Skip:"}}
3602 {first b . "--first-parent" {mc "Limit to first parent"}}
3603 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3604 }
3606 proc encode_view_opts {n} {
3607 global known_view_options newviewopts
3609 set rargs [list]
3620 }
3621 } else {
3626 }
3627 }
3628 }
3630 }
3632 proc decode_view_opts {n view_args} {
3633 global known_view_options newviewopts
3637 set val 0
3638 } else {
3639 set val {}
3640 }
3642 }
3643 set oargs [list]
3646 && ![info exists found(limit)]} {
3648 set found(limit) 1
3649 continue
3650 }
3651 catch { unset val }
3660 } else {
3661 set val 1
3662 }
3665 break
3666 }
3667 if {[info exists val]} break
3668 }
3669 if {[info exists val]} continue
3671 }
3673 }
3675 proc edit_or_newview {} {
3676 global curview
3679 editview
3680 } else {
3681 newview 0
3682 }
3683 }
3685 proc editview {} {
3686 global curview
3687 global viewname viewperm newviewname newviewopts
3688 global viewargs viewargscmd
3693 return
3694 }
3700 }
3702 proc vieweditor {top n title} {
3703 global newviewname newviewopts viewfiles bgcolor
3704 global known_view_options
3710 # View name
3718 # View options
3720 set cexpand 0
3721 set cnt 0
3727 set lxpad 0
3731 incr cnt
3735 } else {
3736 set lxpad 5
3737 }
3755 }
3756 }
3758 # Path list
3760 -text [mc "Enter files and directories to include, one per line:"]
3767 }
3770 }
3785 }
3787 proc doviewmenu {m first cmd op argv} {
3792 break
3793 }
3794 }
3795 }
3797 proc allviewmenus {n op args} {
3798 # global viewhlmenu
3802 }
3804 proc newviewok {top n {apply 0}} {
3805 global nextviewnum newviewperm newviewname newishighlight
3806 global viewname viewfiles viewperm selectedview curview
3807 global viewargs viewargscmd newviewopts viewhlmenu
3809 if {[catch {
3811 } err]} {
3813 return
3814 }
3815 set files {}
3820 }
3821 }
3823 # creating a new view
3824 incr nextviewnum
3833 } else {
3835 }
3836 } else {
3837 # editing an existing view
3845 }
3852 run reloadcommits
3853 }
3854 }
3855 }
3858 }
3860 proc delview {} {
3861 global curview viewperm hlview selectedhlview
3865 set selectedhlview [mc "None"]
3866 unset hlview
3867 }
3870 showview 0
3871 }
3873 proc addviewmenu {n} {
3874 global viewname viewhlmenu
3880 }
3882 proc showview {n} {
3883 global curview cached_commitrow ordertok
3884 global displayorder parentlist rowidlist rowisopt rowfinal
3885 global colormap rowtextx nextcolor canvxmax
3886 global numcommits viewcomplete
3887 global selectedline currentid canv canvy0
3888 global treediffs
3889 global pending_select mainheadid
3890 global commitidx
3891 global selectedview
3892 global hlview selectedhlview commitinterest
3895 set selid {}
3906 }
3907 } elseif {[info exists pending_select]} {
3909 unset pending_select
3910 }
3911 unselectline
3912 normalline
3913 catch {unset treediffs}
3914 clear_display
3916 unset hlview
3917 set selectedhlview [mc "None"]
3918 }
3919 catch {unset commitinterest}
3920 catch {unset cached_commitrow}
3921 catch {unset ordertok}
3928 run refill_reflist
3931 return
3932 }
3934 set displayorder {}
3935 set parentlist {}
3936 set rowidlist {}
3937 set rowisopt {}
3938 set rowfinal {}
3941 catch {unset colormap}
3942 catch {unset rowtextx}
3943 set nextcolor 0
3946 set row 0
3947 setcanvscroll
3948 set yf 0
3949 set row {}
3952 # try to get the selected row in the same position on the screen
3956 set ytop 0
3957 }
3959 }
3961 drawvisible
3966 } else {
3967 reset_pending_select {}
3971 } else {
3972 set row [first_real_row]
3975 }
3976 }
3977 }
3980 show_status [mc "Reading commits..."]
3981 }
3983 show_status [mc "No commits selected"]
3984 }
3985 }
3987 # Stuff relating to the highlighting facility
3989 proc ishighlighted {id} {
3990 global vhighlights fhighlights nhighlights rhighlights
3994 }
3997 }
4000 }
4003 }
4004 return 0
4005 }
4007 proc bolden {row font} {
4008 global canv linehtag selectedline boldrows need_redisplay
4010 # need_redisplay = 1 means the display is stale and about to be redrawn
4017 -outline {{}} -tags secsel \
4020 }
4021 }
4023 proc bolden_name {row font} {
4024 global canv2 linentag selectedline boldnamerows need_redisplay
4032 -outline {{}} -tags secsel \
4035 }
4036 }
4038 proc unbolden {} {
4039 global boldrows
4041 set stillbold {}
4045 } else {
4047 }
4048 }
4050 }
4052 proc addvhighlight {n} {
4053 global hlview viewcomplete curview vhl_done commitidx
4055 if {[info exists hlview]} {
4056 delvhighlight
4057 }
4061 }
4064 drawvisible
4065 }
4066 }
4068 proc delvhighlight {} {
4069 global hlview vhighlights
4071 if {![info exists hlview]} return
4072 unset hlview
4073 catch {unset vhighlights}
4074 unbolden
4075 }
4077 proc vhighlightmore {} {
4078 global hlview vhl_done commitidx vhighlights curview
4081 set vr [visiblerows]
4091 }
4093 }
4094 }
4095 }
4097 return 0
4098 }
4100 proc askvhighlight {row id} {
4101 global hlview vhighlights iddrawn
4106 }
4108 } else {
4110 }
4111 }
4113 proc hfiles_change {} {
4114 global highlight_files filehighlight fhighlights fh_serial
4115 global highlight_paths gdttype
4117 if {[info exists filehighlight]} {
4118 # delete previous highlights
4120 unset filehighlight
4121 catch {unset fhighlights}
4122 unbolden
4123 unhighlight_filelist
4124 }
4125 set highlight_paths {}
4127 incr fh_serial
4130 }
4131 }
4133 proc gdttype_change {name ix op} {
4134 global gdttype highlight_files findstring findpattern
4136 stopfinding
4140 set highlight_files {}
4141 hfiles_change
4142 }
4143 findcom_change
4144 } else {
4146 set findpattern {}
4147 findcom_change
4148 }
4150 hfiles_change
4151 }
4152 drawvisible
4153 }
4154 # enable/disable findtype/findloc menus too
4155 }
4157 proc find_change {name ix op} {
4158 global gdttype findstring highlight_files
4160 stopfinding
4162 findcom_change
4163 } else {
4166 hfiles_change
4167 }
4168 }
4169 drawvisible
4170 }
4172 proc findcom_change args {
4173 global nhighlights boldnamerows
4174 global findpattern findtype findstring gdttype
4176 stopfinding
4177 # delete previous highlights, if any
4180 }
4181 set boldnamerows {}
4182 catch {unset nhighlights}
4183 unbolden
4184 unmarkmatches
4186 set findpattern {}
4189 } else {
4190 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4193 }
4194 }
4196 proc makepatterns {l} {
4197 set ret {}
4202 } else {
4205 }
4206 }
4208 }
4210 proc do_file_hl {serial} {
4211 global highlight_files filehighlight highlight_paths gdttype fhl_list
4216 highlight_filelist
4220 } else {
4221 # must be "containing:", i.e. we're searching commit info
4222 return
4223 }
4228 set fhl_list {}
4229 drawvisible
4230 flushhighlights
4231 }
4233 proc flushhighlights {} {
4234 global filehighlight fhl_list
4236 if {[info exists filehighlight]} {
4237 lappend fhl_list {}
4240 }
4241 }
4243 proc askfilehighlight {row id} {
4244 global filehighlight fhighlights fhl_list
4249 }
4251 proc readfhighlight {} {
4252 global filehighlight fhighlights curview iddrawn
4253 global fhl_list find_dirn
4255 if {![info exists filehighlight]} {
4256 return 0
4257 }
4258 set nr 0
4266 }
4273 }
4275 }
4277 # strange...
4278 puts "oops, git diff-tree died"
4280 unset filehighlight
4281 return 0
4282 }
4283 if {[info exists find_dirn]} {
4284 run findmore
4285 }
4286 return 1
4287 }
4289 proc doesmatch {f} {
4290 global findtype findpattern
4296 } else {
4298 }
4299 }
4301 proc askfindhighlight {row id} {
4302 global nhighlights commitinfo iddrawn
4303 global findloc
4304 global markingmatches
4308 }
4310 set isbold 0
4311 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4316 set isbold 2
4317 break
4318 }
4319 set isbold 1
4320 }
4321 }
4327 }
4328 }
4331 }
4332 }
4334 }
4336 proc markrowmatches {row id} {
4337 global canv canv2 linehtag linentag commitinfo findloc
4348 }
4349 }
4355 }
4356 }
4357 }
4359 proc vrel_change {name ix op} {
4360 global highlight_related
4362 rhighlight_none
4364 run drawvisible
4365 }
4366 }
4368 # prepare for testing whether commits are descendents or ancestors of a
4369 proc rhighlight_sel {a} {
4370 global descendent desc_todo ancestor anc_todo
4371 global highlight_related
4373 catch {unset descendent}
4375 catch {unset ancestor}
4378 rhighlight_none
4379 run drawvisible
4380 }
4381 }
4383 proc rhighlight_none {} {
4384 global rhighlights
4386 catch {unset rhighlights}
4387 unbolden
4388 }
4390 proc is_descendent {a} {
4391 global curview children descendent desc_todo
4396 set leftover {}
4397 set done 0
4402 continue
4403 }
4409 set done 1
4410 }
4411 }
4412 }
4415 return
4416 }
4417 }
4420 }
4422 proc is_ancestor {a} {
4423 global curview parents ancestor anc_todo
4428 set leftover {}
4429 set done 0
4434 continue
4435 }
4441 set done 1
4442 }
4443 }
4444 }
4447 return
4448 }
4449 }
4452 }
4454 proc askrelhighlight {row id} {
4455 global descendent highlight_related iddrawn rhighlights
4456 global selectedline ancestor
4459 set isbold 0
4464 }
4466 set isbold 1
4467 }
4472 }
4474 set isbold 1
4475 }
4476 }
4480 }
4481 }
4483 }
4485 # Graph layout functions
4487 proc shortids {ids} {
4488 set res {}
4494 } else {
4496 }
4497 }
4499 }
4501 proc ntimes {n o} {
4502 set ret {}
4507 }
4509 }
4511 }
4513 proc ordertoken {id} {
4514 global ordertok curview varcid varcstart varctok curview parents children
4515 global nullid nullid2
4519 }
4521 set todo {}
4522 while {1} {
4526 } else {
4528 }
4531 break
4532 }
4535 # it's a root
4537 break
4538 }
4541 } else {
4545 }
4547 }
4548 }
4553 }
4556 }
4558 # Work out where id should go in idlist so that order-token
4559 # values increase from left to right
4560 proc idcol {idlist id {i 0}} {
4563 set i 0
4564 }
4568 }
4570 incr i
4571 } else {
4575 }
4576 }
4578 }
4580 proc initlayout {} {
4581 global rowidlist rowisopt rowfinal displayorder parentlist
4582 global numcommits canvxmax canv
4583 global nextcolor
4584 global colormap rowtextx
4586 set numcommits 0
4587 set displayorder {}
4588 set parentlist {}
4589 set nextcolor 0
4590 set rowidlist {}
4591 set rowisopt {}
4592 set rowfinal {}
4594 catch {unset colormap}
4595 catch {unset rowtextx}
4596 setcanvscroll
4597 }
4599 proc setcanvscroll {} {
4600 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4601 global lastscrollset lastscrollrows
4607 set lastscrollset [clock clicks -milliseconds]
4609 }
4611 proc visiblerows {} {
4612 global canv numcommits linespc
4620 set r0 0
4621 }
4626 }
4628 }
4630 proc layoutmore {} {
4631 global commitidx viewcomplete curview
4632 global numcommits pending_select curview
4633 global lastscrollset lastscrollrows
4637 setcanvscroll
4638 }
4639 if {[info exists pending_select] &&
4641 update
4643 }
4644 drawvisible
4645 }
4647 proc doshowlocalchanges {} {
4648 global curview mainheadid
4652 dodiffindex
4653 } else {
4655 }
4656 }
4658 proc dohidelocalchanges {} {
4659 global nullid nullid2 lserial curview
4663 }
4666 }
4667 incr lserial
4668 }
4670 # spawn off a process to do git diff-index --cached HEAD
4671 proc dodiffindex {} {
4672 global lserial showlocalchanges
4673 global isworktree
4676 incr lserial
4677 set fd [open "|git diff-index --cached HEAD" r]
4681 }
4683 proc readdiffindex {fd serial inst} {
4684 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4686 set isdiff 1
4689 return 1
4690 }
4691 set isdiff 0
4692 }
4693 # we only need to see one line and we don't really care what it says...
4697 return 0
4698 }
4700 # now see if there are any local changes not checked in to the index
4701 set fd [open "|git diff-files" r]
4707 # add the line for the changes in the index to the graph
4708 set hl [mc "Local changes checked in to index but not committed"]
4713 }
4717 }
4718 return 0
4719 }
4721 proc readdifffiles {fd serial inst} {
4722 global mainheadid nullid nullid2 curview
4723 global commitinfo commitdata lserial
4725 set isdiff 1
4728 return 1
4729 }
4730 set isdiff 0
4731 }
4732 # we only need to see one line and we don't really care what it says...
4736 return 0
4737 }
4740 # add the line for the local diff to the graph
4741 set hl [mc "Local uncommitted changes, not checked in to index"]
4746 } else {
4748 }
4752 }
4753 return 0
4754 }
4756 proc nextuse {id row} {
4757 global curview children
4762 return -1
4763 }
4766 }
4767 }
4768 }
4771 }
4772 return -1
4773 }
4775 proc prevuse {id row} {
4776 global curview children
4778 set ret -1
4784 }
4785 }
4786 }
4788 }
4790 proc make_idlist {row} {
4791 global displayorder parentlist uparrowlen downarrowlen mingaplen
4792 global commitidx curview children
4796 set r 0
4797 }
4800 set ra 0
4801 }
4805 }
4807 set ids {}
4816 }
4817 }
4818 }
4826 }
4827 }
4828 }
4836 }
4837 }
4838 incr r
4844 }
4845 }
4846 }
4847 set idlist {}
4850 }
4852 }
4854 proc rowsequal {a b} {
4857 }
4860 }
4862 }
4864 proc makeupline {id row rend col} {
4865 global rowidlist uparrowlen downarrowlen mingaplen
4871 }
4874 }
4881 }
4882 }
4883 }
4885 proc layoutrows {row endrow} {
4886 global rowidlist rowisopt rowfinal displayorder
4887 global uparrowlen downarrowlen maxwidth mingaplen
4888 global children parentlist
4889 global commitidx viewcomplete curview
4892 set idlist {}
4898 }
4899 }
4901 }
4906 set final 1
4907 } else {
4915 # if not the first child, we have to insert a line going up
4918 }
4919 }
4920 }
4930 }
4931 }
4932 }
4939 }
4940 }
4950 }
4951 }
4959 }
4960 }
4961 }
4962 }
4963 }
4967 set final 0
4968 }
4972 lappend rowisopt 0
4978 }
4980 } else {
4987 }
4988 }
4990 }
4992 proc changedrow {row} {
4993 global displayorder iddrawn rowisopt need_redisplay
5002 }
5003 }
5004 }
5007 set need_redisplay 1
5008 }
5009 }
5011 proc insert_pad {row col npad} {
5012 global rowidlist
5021 }
5024 }
5026 proc optimize_rows {row col endrow} {
5027 global rowidlist rowisopt displayorder curview children
5030 set row 1
5031 }
5034 set haspad 0
5043 } else {
5044 set pprevidlist {}
5045 }
5046 set x0 -1
5047 set xm -1
5052 set haspad 1
5053 continue
5054 }
5058 set isarrow 0
5059 set z0 {}
5064 }
5065 }
5070 set isarrow 1
5071 }
5072 }
5075 set isarrow 1
5076 }
5077 # Looking at lines from this row to the previous row,
5078 # make them go straight up if they end in an arrow on
5079 # the previous row; otherwise make them go straight up
5080 # or at 45 degrees.
5082 # Line currently goes left too much;
5083 # insert pads in the previous row, then optimize it
5088 }
5096 }
5098 # Line currently goes right too much;
5099 # insert pads in this line
5105 set haspad 1
5106 }
5113 }
5114 }
5115 # avoid lines jigging left then immediately right
5118 incr x0
5121 }
5122 }
5124 # Find the first column that doesn't have a line going right
5130 # check if this is the link to the first child
5133 # it is, work out offset to child
5135 }
5136 }
5138 }
5139 # Insert a pad at that column as long as it has a line and
5140 # isn't the last column
5145 }
5146 }
5147 }
5148 }
5150 proc xc {row col} {
5151 global canvx0 linespc
5153 }
5155 proc yc {row} {
5156 global canvy0 linespc
5158 }
5160 proc linewidth {id} {
5161 global thickerline lthickness
5166 }
5168 }
5170 proc rowranges {id} {
5171 global curview children uparrowlen downarrowlen
5172 global rowidlist
5176 return {}
5177 }
5178 set ret {}
5183 if {![info exists prev]} {
5185 } else {
5187 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5188 }
5189 # see if the line extends the whole way from prevrow to row
5193 # it doesn't, see where it ends
5198 } else {
5201 incr r -1
5202 }
5204 # see where it starts up again
5209 } else {
5212 incr r
5213 }
5215 }
5216 }
5219 }
5222 }
5224 }
5226 proc drawlineseg {id row endrow arrowlow} {
5227 global rowidlist displayorder iddrawn linesegs
5228 global canv colormap linespc curview maxlinelen parentlist
5232 set arrowhigh 1
5233 while {1} {
5236 incr le -1
5237 break
5238 }
5242 set arrowhigh 0
5243 break
5244 }
5249 set arrowhigh 0
5250 }
5251 break
5252 }
5253 incr le
5254 }
5257 }
5259 set lines {}
5260 set i 0
5261 set joinhigh 0
5268 set joinhigh 1
5269 }
5270 break
5271 }
5272 incr i
5273 }
5274 }
5275 set joinlow 0
5280 set joinlow 1
5281 }
5282 }
5295 }
5296 } else {
5298 }
5306 set arrowlow 0
5307 }
5308 }
5316 }
5318 }
5321 # join parent line to first child
5332 } else {
5334 }
5342 }
5344 }
5346 } else {
5350 }
5358 } else {
5362 }
5364 }
5365 } else {
5371 }
5375 } else {
5376 # coalesce two pieces
5381 }
5385 }
5386 }
5390 }
5392 proc drawparentlinks {id row} {
5393 global rowidlist canv colormap curview parentlist
5394 global idpos linespc
5407 # rmx = right-most X coord used
5408 set rmx 0
5413 continue
5414 }
5418 }
5421 # drawlineseg will do this one for us
5422 continue
5423 }
5425 # should handle duplicated parents here...
5428 # if attaching to a vertical segment, draw a smaller
5429 # slant for visual distinctness
5433 } else {
5435 }
5437 # segment slants towards us already
5439 } else {
5444 }
5446 }
5447 } else {
5449 }
5454 }
5458 }
5459 }
5461 proc drawlines {id} {
5462 global canv
5465 }
5467 proc drawcmittext {id row col} {
5468 global linespc canv canv2 canv3 fgcolor curview
5469 global cmitlisted commitinfo rowidlist parentlist
5470 global rowtextx idpos idtags idheads idotherrefs
5471 global linehtag linentag linedtag selectedline
5472 global canvxmax boldrows boldnamerows fgcolor
5473 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5475 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5478 set ofill red
5480 set ofill green
5482 set ofill yellow
5483 } else {
5485 }
5494 # triangle pointing left for left-side commits
5500 } else {
5501 # triangle pointing right for right-side commits
5507 }
5519 }
5520 }
5521 }
5528 }
5533 set font mainfont
5534 set nfont mainfont
5538 set font mainfontbold
5541 set nfont mainfontbold
5542 }
5543 }
5553 }
5557 setcanvscroll
5558 }
5559 }
5561 proc drawcmitrow {row} {
5562 global displayorder rowidlist nrows_drawn
5563 global iddrawn markingmatches
5564 global commitinfo numcommits
5565 global filehighlight fhighlights findpattern nhighlights
5566 global hlview vhighlights
5567 global highlight_related rhighlights
5574 }
5577 }
5580 }
5583 }
5588 return
5589 }
5592 }
5596 incr nrows_drawn
5597 }
5600 }
5601 }
5603 proc drawcommits {row {endrow {}}} {
5604 global numcommits iddrawn displayorder curview need_redisplay
5605 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5608 set row 0
5609 }
5612 }
5615 }
5619 set rl1 0
5620 }
5623 set ro1 0
5624 }
5628 }
5633 }
5635 }
5636 }
5639 }
5642 clear_display
5643 drawvisible
5644 }
5646 # make the lines join to already-drawn rows either side
5650 }
5655 }
5670 # see if this is the first child of any of its parents
5673 # make this line extend up to the child
5675 }
5676 }
5677 } else {
5679 }
5680 }
5681 }
5682 }
5684 proc undolayout {row} {
5685 global uparrowlen mingaplen downarrowlen
5686 global rowidlist rowisopt rowfinal need_redisplay
5690 set r 0
5691 }
5693 incr r -1
5697 set need_redisplay 1
5698 run drawvisible
5699 }
5700 }
5702 proc drawvisible {} {
5703 global canv linespc curview vrowmod selectedline targetrow targetid
5704 global need_redisplay cscroll numcommits
5714 if {[info exists targetid]} {
5718 # Fix up the scrollregion and change the scrolling position
5719 # now that our target row has moved.
5722 setcanvscroll
5730 set need_redisplay 1
5731 }
5732 } else {
5733 unset targetid
5734 }
5735 }
5741 }
5745 } elseif {[info exists targetid]} {
5747 }
5748 if {[info exists targetrow]} {
5751 }
5753 }
5755 }
5757 proc clear_display {} {
5758 global iddrawn linesegs need_redisplay nrows_drawn
5759 global vhighlights fhighlights nhighlights rhighlights
5760 global linehtag linentag linedtag boldrows boldnamerows
5762 allcanvs delete all
5763 catch {unset iddrawn}
5764 catch {unset linesegs}
5765 catch {unset linehtag}
5766 catch {unset linentag}
5767 catch {unset linedtag}
5768 set boldrows {}
5769 set boldnamerows {}
5770 catch {unset vhighlights}
5771 catch {unset fhighlights}
5772 catch {unset nhighlights}
5773 catch {unset rhighlights}
5774 set need_redisplay 0
5775 set nrows_drawn 0
5776 }
5778 proc findcrossings {id} {
5779 global rowidlist parentlist numcommits displayorder
5781 set cross {}
5782 set ccross {}
5786 }
5805 }
5806 }
5807 }
5808 }
5809 }
5811 }
5813 proc assigncolor {id} {
5814 global colormap colors nextcolor
5815 global parents children children curview
5821 } else {
5822 set kids {}
5823 }
5829 return
5830 }
5831 }
5832 set badcolors {}
5833 set origbad {}
5836 # delimiter between corner crossings and other crossings
5839 }
5843 }
5844 }
5847 }
5854 }
5859 }
5860 }
5861 }
5864 }
5865 }
5869 set nextcolor 0
5870 }
5872 }
5874 }
5876 proc bindline {t id} {
5877 global canv
5883 }
5885 proc drawtags {id x xt y1} {
5886 global idtags idheads idotherrefs mainhead
5887 global linespc lthickness
5888 global canv rowtextx curview fgcolor bgcolor ctxbut
5890 set marks {}
5891 set ntags 0
5892 set nheads 0
5896 }
5900 }
5903 }
5906 }
5911 set xvals {}
5912 set wvals {}
5913 set i -1
5915 incr i
5918 } else {
5920 }
5924 }
5931 set font mainfont
5932 if {[incr ntags -1] >= 0} {
5933 # draw a tag
5939 } else {
5940 # draw a head or other ref
5941 if {[incr nheads -1] >= 0} {
5942 set col green
5944 set font mainfontbold
5945 }
5946 } else {
5947 set col "#ddddff"
5948 }
5959 }
5960 }
5967 }
5968 }
5970 }
5972 proc xcoord {i level ln} {
5973 global canvx0 xspc1 xspc2
5980 }
5982 }
5984 proc show_status {msg} {
5985 global canv fgcolor
5987 clear_display
5990 }
5992 # Don't change the text pane cursor if it is currently the hand cursor,
5993 # showing that we are over a sha1 ID link.
5994 proc settextcursor {c} {
5995 global ctext curtextcursor
5999 }
6001 }
6003 proc nowbusy {what {name {}}} {
6004 global isbusy busyname statusw
6006 if {[array names isbusy] eq {}} {
6007 . config -cursor watch
6008 settextcursor watch
6009 }
6014 }
6015 }
6017 proc notbusy {what} {
6018 global isbusy maincursor textcursor busyname statusw
6020 catch {
6025 }
6026 }
6027 if {[array names isbusy] eq {}} {
6030 }
6031 }
6033 proc findmatches {f} {
6034 global findtype findstring
6037 } else {
6042 }
6043 set matches {}
6044 set i 0
6049 }
6050 }
6052 }
6054 proc dofind {{dirn 1} {wrap 1}} {
6055 global findstring findstartline findcurline selectedline numcommits
6056 global gdttype filehighlight fh_serial find_dirn findallowwrap
6058 if {[info exists find_dirn]} {
6060 stopfinding
6061 }
6062 focus .
6066 } else {
6068 }
6070 nowbusy finding [mc "Searching"]
6074 }
6077 run findmore
6078 }
6080 proc stopfinding {} {
6081 global find_dirn findcurline fprogcoord
6083 if {[info exists find_dirn]} {
6084 unset find_dirn
6085 unset findcurline
6086 notbusy finding
6087 set fprogcoord 0
6088 adjustprogress
6089 }
6090 stopblaming
6091 }
6093 proc findmore {} {
6094 global commitdata commitinfo numcommits findpattern findloc
6095 global findstartline findcurline findallowwrap
6096 global find_dirn gdttype fhighlights fprogcoord
6097 global curview varcorder vrownum varccommits vrowmod
6099 if {![info exists find_dirn]} {
6100 return 0
6101 }
6102 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6104 set moretodo 0
6106 incr l
6108 set l 0
6109 }
6112 } else {
6115 }
6116 } else {
6119 }
6120 incr l -1
6123 } else {
6124 set lim -1
6126 }
6127 }
6130 set n 500
6131 set moretodo 1
6132 }
6135 }
6136 set found 0
6137 set domore 1
6151 }
6153 # shouldn't happen unless git log doesn't give all the commits...
6156 continue
6157 }
6160 }
6165 set found 1
6166 break
6167 }
6168 }
6170 }
6171 } else {
6179 }
6184 }
6187 break
6188 }
6191 set domore 0
6193 }
6194 }
6195 }
6196 }
6198 unset findcurline
6199 unset find_dirn
6200 notbusy finding
6201 set fprogcoord 0
6202 adjustprogress
6205 } else {
6206 bell
6207 }
6208 return 0
6209 }
6211 flushhighlights
6212 } else {
6214 }
6218 }
6220 adjustprogress
6222 }
6224 proc findselectline {l} {
6225 global findloc commentend ctext findcurline markingmatches gdttype
6227 set markingmatches 1
6231 # highlight the matches in the comments
6238 }
6239 }
6240 drawvisible
6241 }
6243 # mark the bits of a headline or author that match a find string
6244 proc markmatches {canv l str tag matches font row} {
6245 global selectedline
6263 }
6264 }
6265 }
6267 proc unmarkmatches {} {
6268 global markingmatches
6270 allcanvs delete matches
6271 set markingmatches 0
6272 stopfinding
6273 }
6275 proc selcanvline {w x y} {
6276 global canv canvy0 ctext linespc
6277 global rowtextx
6284 set l 0
6285 }
6290 }
6291 unmarkmatches
6293 }
6295 proc commit_descriptor {p} {
6296 global commitinfo
6299 }
6300 set l "..."
6303 }
6305 }
6307 # append some text to the ctext widget, and make any SHA1 ID
6308 # that we know about be a clickable link.
6309 proc appendwithlinks {text tags} {
6310 global ctext linknum curview
6319 incr e
6323 incr linknum
6324 }
6325 }
6327 proc setlink {id lk} {
6328 global curview ctext pendinglinks
6330 set known 0
6335 set known 1
6337 }
6338 } else {
6340 }
6346 } else {
6349 }
6350 }
6352 proc makelink {id} {
6353 global pendinglinks
6358 }
6360 }
6362 proc linkcursor {w inc} {
6363 global linkentercount curtextcursor
6367 } else {
6370 set linkentercount 0
6371 }
6372 }
6373 }
6375 proc viewnextline {dir} {
6376 global canv linespc
6384 set newtop 0
6387 }
6389 }
6391 # add a list of tag or branch names at position pos
6392 # returns the number of names inserted
6393 proc appendrefs {pos ids var} {
6397 return 0
6398 }
6401 set tags {}
6405 }
6406 }
6409 } else {
6411 set sep {}
6415 incr linknum
6420 set sep ", "
6421 }
6422 }
6425 }
6427 # called when we have finished computing the nearby tags
6428 proc dispneartags {delay} {
6429 global selectedline currentid showneartags tagphase
6432 after cancel dispnexttag
6434 after 200 dispnexttag
6435 set tagphase -1
6436 } else {
6437 after idle dispnexttag
6438 set tagphase 0
6439 }
6440 }
6442 proc dispnexttag {} {
6443 global selectedline currentid showneartags tagphase ctext
6447 0 {
6451 }
6452 }
6453 1 {
6457 }
6458 }
6459 2 {
6464 # turn "Branch" into "Branches"
6468 }
6469 }
6470 }
6471 }
6472 if {[incr tagphase] <= 2} {
6473 after idle dispnexttag
6474 }
6475 }
6477 proc make_secsel {l} {
6478 global linehtag linentag linedtag canv canv2 canv3
6493 }
6495 proc selectline {l isnew {desired_loc {}}} {
6496 global canv ctext commitinfo selectedline
6497 global canvy0 linespc parents children curview
6498 global currentid sha1entry
6499 global commentend idtags linknum
6500 global mergemax numcommits pending_select
6501 global cmitmode showneartags allcommits
6502 global targetrow targetid lastscrollrows
6503 global autoselect jump_to_here
6505 catch {unset pending_select}
6507 normalline
6508 unsel_reflist
6509 stopfinding
6517 setcanvscroll
6518 }
6532 } else {
6536 }
6537 }
6541 } else {
6545 }
6546 }
6547 }
6550 set newtop 0
6551 }
6553 drawvisible
6554 }
6560 }
6567 }
6571 clear_ctext
6572 set linknum 0
6575 }
6585 }
6587 }
6589 set headers {}
6592 set np 0
6595 set tag mmax
6596 } else {
6598 }
6601 incr np
6602 }
6603 } else {
6606 }
6607 }
6611 }
6613 # make anything that looks like a SHA1 ID be a clickable link
6616 if {![info exists allcommits]} {
6617 getallcommits
6618 }
6629 dispneartags 1
6630 }
6635 }
6643 init_flist [mc "Comments"]
6648 } else {
6650 }
6651 }
6653 proc selfirstline {} {
6654 unmarkmatches
6655 selectline 0 1
6656 }
6658 proc sellastline {} {
6659 global numcommits
6660 unmarkmatches
6663 }
6665 proc selnextline {dir} {
6666 global selectedline
6667 focus .
6670 unmarkmatches
6672 }
6674 proc selnextpage {dir} {
6675 global canv linespc selectedline numcommits
6679 set lpp 1
6680 }
6682 drawvisible
6686 set l 0
6689 }
6690 unmarkmatches
6692 }
6694 proc unselectline {} {
6695 global selectedline currentid
6697 set selectedline {}
6698 catch {unset currentid}
6699 allcanvs delete secsel
6700 rhighlight_none
6701 }
6703 proc reselectline {} {
6704 global selectedline
6708 }
6709 }
6711 proc addtohistory {cmd} {
6712 global history historyindex curview
6717 return
6718 }
6722 } else {
6724 }
6725 incr historyindex
6727 .tf.bar.leftbut conf -state normal
6728 } else {
6729 .tf.bar.leftbut conf -state disabled
6730 }
6731 .tf.bar.rightbut conf -state disabled
6732 }
6734 proc godo {elt} {
6735 global curview
6741 }
6743 }
6745 proc goback {} {
6746 global history historyindex
6747 focus .
6750 incr historyindex -1
6752 .tf.bar.rightbut conf -state normal
6753 }
6755 .tf.bar.leftbut conf -state disabled
6756 }
6757 }
6759 proc goforw {} {
6760 global history historyindex
6761 focus .
6765 incr historyindex
6767 .tf.bar.leftbut conf -state normal
6768 }
6770 .tf.bar.rightbut conf -state disabled
6771 }
6772 }
6774 proc gettree {id} {
6775 global treefilelist treeidlist diffids diffmergeid treepending
6776 global nullid nullid2
6779 catch {unset diffmergeid}
6781 if {![info exists treepending]} {
6783 set cmd [list | git ls-files]
6785 set cmd [list | git ls-files --stage -t]
6786 } else {
6788 }
6790 return
6791 }
6797 }
6798 } else {
6800 }
6801 }
6803 proc gettreeline {gtf id} {
6804 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6806 set nl 0
6810 } else {
6818 }
6821 }
6824 }
6827 }
6829 unset treepending
6831 if {![info exists diffmergeid]} {
6833 }
6836 } else {
6838 }
6839 return 0
6840 }
6842 proc showfile {f} {
6843 global treefilelist treeidlist diffids nullid nullid2
6844 global ctext_file_names ctext_file_lines
6845 global ctext commentend
6850 return
6851 }
6855 return
6856 }
6857 } else {
6861 return
6862 }
6863 }
6874 settabs 0
6875 }
6877 proc getblobline {bf id} {
6878 global diffids cmitmode ctext
6882 return 0
6883 }
6885 set nl 0
6888 }
6890 global jump_to_here ctext_file_names commentend
6892 # delete last newline
6900 }
6901 return 0
6902 }
6905 }
6907 proc mark_ctext_line {lnum} {
6908 global ctext markbgcolor
6914 }
6916 proc mergediff {id} {
6917 global diffmergeid
6918 global diffids treediffs
6919 global parents curview
6927 }
6929 proc startdiff {ids} {
6930 global treediffs diffids treepending diffmergeid nullid nullid2
6932 settabs 1
6934 catch {unset diffmergeid}
6938 if {![info exists treepending]} {
6940 }
6941 } else {
6943 }
6944 }
6946 proc path_filter {filter name} {
6951 return 1
6952 }
6953 } else {
6957 return 1
6958 }
6959 }
6960 }
6961 return 0
6962 }
6964 proc addtocflist {ids} {
6965 global treediffs
6969 }
6971 proc diffcmd {ids flags} {
6972 global nullid nullid2
6978 # comparing working directory with some specific revision
6982 } else {
6984 }
6985 } else {
6986 # comparing working directory with index
6989 lappend cmd -R
6990 }
6991 }
6995 # comparing index with specific revision
6998 } else {
7000 }
7001 } else {
7002 # comparing index with HEAD
7003 lappend cmd HEAD
7004 }
7005 } else {
7007 }
7009 }
7011 proc gettreediffs {ids} {
7012 global treediff treepending
7017 set treediff {}
7020 }
7022 proc gettreediffline {gdtf ids} {
7023 global treediff treediffs treepending diffids diffmergeid
7024 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7026 set nr 0
7027 set sublist {}
7028 set max 1000
7030 # cache_gitattr is slow, and even slower on win32 where we
7031 # have to invoke it for only about 30 paths at a time
7032 set max 500
7033 if {[tk windowingsystem] == "win32"} {
7034 set max 120
7035 }
7036 }
7043 }
7048 }
7049 }
7050 }
7053 }
7056 }
7059 set flist {}
7063 }
7064 }
7066 } else {
7068 }
7069 unset treepending
7073 if {![info exists diffmergeid]} {
7075 }
7076 } else {
7078 }
7079 return 0
7080 }
7082 # empty string or positive integer
7083 proc diffcontextvalidate {v} {
7085 }
7087 proc diffcontextchange {n1 n2 op} {
7088 global diffcontextstring diffcontext
7093 reselectline
7094 }
7095 }
7096 }
7098 proc changeignorespace {} {
7099 reselectline
7100 }
7102 proc getblobdiffs {ids} {
7103 global blobdifffd diffids env
7104 global diffinhdr treediffs
7105 global diffcontext
7106 global ignorespace
7107 global limitdiffs vfilelimit curview
7108 global diffencoding targetline diffnparents
7112 append cmd " -w"
7113 }
7116 }
7119 return
7120 }
7121 set targetline {}
7122 set diffnparents 0
7123 set diffinhdr 0
7124 set diffencoding [get_path_encoding {}]
7128 }
7130 proc setinlist {var i val} {
7135 }
7138 } else {
7140 }
7141 }
7143 proc makediffhdr {fname ids} {
7144 global ctext curdiffstart treediffs diffencoding
7145 global ctext_file_names jump_to_here targetline diffline
7152 }
7157 set targetline {}
7160 }
7161 set diffline 0
7162 }
7164 proc getblobdiffline {bdf ids} {
7165 global diffids blobdifffd ctext curdiffstart
7166 global diffnexthead diffnextnote difffilestart
7167 global ctext_file_names ctext_file_lines
7168 global diffinhdr treediffs mergemax diffnparents
7169 global diffencoding jump_to_here targetline diffline
7171 set nr 0
7176 return 0
7177 }
7182 continue
7183 }
7184 # start of a new file
7185 set diffinhdr 1
7188 lappend ctext_file_names ""
7193 # start of a new file in a merge diff
7198 }
7200 } else {
7202 # If the name hasn't changed the length will be odd,
7203 # the middle char will be a space, and the two bits either
7204 # side will be a/name and b/name, or "a/name" and "b/name".
7205 # If the name has changed we'll get "rename from" and
7206 # "rename to" or "copy from" and "copy to" lines following
7207 # this, and we'll use them to get the filenames.
7208 # This complexity is necessary because spaces in the
7209 # filename(s) don't get escaped.
7215 continue
7216 }
7217 # unescape if quoted and chop off the a/ from the front
7220 } else {
7222 }
7223 }
7236 }
7244 }
7246 set diffinhdr 0
7253 }
7258 }
7264 }
7267 # do nothing
7268 continue
7270 set diffinhdr 0
7271 continue
7272 }
7275 } else {
7277 # parse the prefix - one ' ', '-' or '+' for each parent
7281 # prefix only has " ", "-" and "+" in it: normal diff line
7286 set num "max"
7287 }
7289 } else {
7290 set tags {}
7292 # added line
7298 set num "max"
7299 }
7301 }
7302 }
7303 }
7307 set targetline {}
7308 } else {
7309 incr diffline
7310 }
7311 }
7313 }
7314 } else {
7315 # "\ No newline at end of file",
7316 # or something else we don't recognize
7318 }
7319 }
7320 }
7321 if {[info exists seehere]} {
7323 }
7327 return 0
7328 }
7330 }
7332 proc changediffdisp {} {
7333 global ctext diffelide
7337 }
7339 proc highlightfile {loc cline} {
7340 global ctext cflist cflist_top
7347 }
7349 proc prevfile {} {
7350 global difffilestart ctext cmitmode
7353 set prev 0.0
7354 set prevline 1
7359 return
7360 }
7362 incr prevline
7363 }
7365 }
7367 proc nextfile {} {
7368 global difffilestart ctext cmitmode
7372 set line 1
7374 incr line
7377 return
7378 }
7379 }
7380 }
7382 proc clear_ctext {{first 1.0}} {
7383 global ctext smarktop smarkbot
7384 global ctext_file_names ctext_file_lines
7385 global pendinglinks
7390 }
7393 }
7396 catch {unset pendinglinks}
7397 }
7398 set ctext_file_names {}
7399 set ctext_file_lines {}
7400 }
7402 proc settabs {{firstab {}}} {
7403 global firsttabstop tabstop ctext have_tk85
7407 }
7408 set w [font measure textfont "0"]
7414 } else {
7416 }
7417 }
7419 proc incrsearch {name ix op} {
7420 global ctext searchstring searchdirn
7424 # no anchor set, use start of selection, or of visible area
7430 } else {
7432 }
7433 }
7438 }
7439 searchmarkvisible 1
7440 }
7441 }
7443 proc dosearch {} {
7444 global sstring ctext searchstring searchdirn
7448 set searchdirn -forwards
7454 set start "@0,0"
7455 }
7459 bell
7460 return
7461 }
7466 }
7467 }
7469 proc dosearchback {} {
7470 global sstring ctext searchstring searchdirn
7474 set searchdirn -backwards
7481 }
7485 bell
7486 return
7487 }
7492 }
7493 }
7495 proc searchmark {first last} {
7496 global ctext searchstring
7499 while {1} {
7504 }
7505 }
7507 proc searchmarkvisible {doall} {
7508 global ctext smarktop smarkbot
7513 # no overlap with previous
7517 } else {
7521 }
7525 }
7526 }
7527 }
7529 proc scrolltext {f0 f1} {
7530 global searchstring
7534 searchmarkvisible 0
7535 }
7536 }
7538 proc setcoords {} {
7539 global linespc charspc canvx0 canvy0
7540 global xspc1 xspc2 lthickness
7542 set linespc [font metrics mainfont -linespace]
7543 set charspc [font measure mainfont "m"]
7549 }
7551 proc redisplay {} {
7552 global canv
7553 global selectedline
7558 clear_display
7559 setcanvscroll
7561 drawvisible
7565 }
7566 }
7568 proc parsefont {f n} {
7569 global fontattr
7574 set s 10
7577 }
7583 "normal" -
7585 "roman" -
7587 }
7588 }
7589 }
7591 proc fontflags {f {isbold 0}} {
7592 global fontattr
7597 }
7599 proc fontname {f} {
7600 global fontattr
7604 lappend n "bold"
7605 }
7607 lappend n "italic"
7608 }
7610 }
7612 proc incrfont {inc} {
7613 global mainfont textfont ctext canv cflist showrefstop
7614 global stopped entries fontattr
7616 unmarkmatches
7620 set s 1
7621 }
7625 set mainfont [fontname mainfont]
7629 set s 1
7630 }
7634 set textfont [fontname textfont]
7635 setcoords
7636 settabs
7637 redisplay
7638 }
7640 proc clearsha1 {} {
7641 global sha1entry sha1string
7644 }
7645 }
7647 proc sha1change {n1 n2 op} {
7648 global sha1string currentid sha1but
7651 set state disabled
7652 } else {
7653 set state normal
7654 }
7658 } else {
7660 }
7661 }
7663 proc gotocommit {} {
7664 global sha1string tagids headids curview varcid
7672 } else {
7679 return
7680 }
7682 }
7683 }
7684 }
7687 return
7688 }
7691 } else {
7693 }
7695 }
7697 proc lineenter {x y id} {
7698 global hoverx hovery hoverid hovertimer
7699 global commitinfo canv
7705 if {[info exists hovertimer]} {
7707 }
7708 set hovertimer [after 500 linehover]
7710 }
7712 proc linemotion {x y id} {
7713 global hoverx hovery hoverid hovertimer
7718 if {[info exists hovertimer]} {
7720 }
7721 set hovertimer [after 500 linehover]
7722 }
7723 }
7725 proc lineleave {id} {
7726 global hoverid hovertimer canv
7730 if {[info exists hovertimer]} {
7732 unset hovertimer
7733 }
7734 unset hoverid
7735 }
7736 }
7738 proc linehover {} {
7739 global hoverx hovery hoverid hovertimer
7740 global canv linespc lthickness
7741 global commitinfo
7754 -fill \#ffff80 -outline black -width 1 -tags hover]
7757 -font mainfont]
7759 }
7761 proc clickisonarrow {id y} {
7762 global lthickness
7771 }
7772 }
7773 return {}
7774 }
7776 proc arrowjump {id n y} {
7777 global canv
7779 # 1 <-> 2, 3 <-> 4, etc...
7789 set yfrac 0
7790 }
7792 }
7794 proc lineclick {x y id isnew} {
7795 global ctext commitinfo children canv thickerline curview
7798 unmarkmatches
7799 unselectline
7800 normalline
7802 # draw this line thicker than normal
7810 }
7814 return
7815 }
7819 }
7820 # fill the details pane with info about this line
7822 clear_ctext
7823 settabs 0
7835 set i 0
7837 incr i
7847 }
7848 }
7850 init_flist {}
7851 }
7853 proc normalline {} {
7854 global thickerline
7855 if {[info exists thickerline]} {
7857 unset thickerline
7859 }
7860 }
7862 proc selbyid {id} {
7863 global curview
7866 }
7867 }
7869 proc mstime {} {
7870 global startmstime
7871 if {![info exists startmstime]} {
7872 set startmstime [clock clicks -milliseconds]
7873 }
7875 }
7877 proc rowmenu {x y id} {
7878 global rowctxmenu selectedline rowmenuid curview
7879 global nullid nullid2 fakerowmenu mainhead
7881 stopfinding
7884 set state disabled
7885 } else {
7886 set state normal
7887 }
7892 } else {
7894 }
7895 } else {
7897 }
7902 }
7904 proc diffvssel {dirn} {
7905 global rowmenuid selectedline
7911 } else {
7914 }
7917 }
7919 proc doseldiff {oldid newid} {
7920 global ctext
7921 global commitinfo
7924 clear_ctext
7925 init_flist [mc "Top"]
7940 }
7942 proc mkpatch {} {
7943 global rowmenuid currentid commitinfo patchtop patchnum
7945 if {![info exists currentid]} return
7950 set top .patch
7980 incr patchnum
7992 }
7994 proc mkpatchrev {} {
7995 global patchtop
8001 foreach e [list fromsha1 fromhead tosha1 tohead] \
8007 }
8008 }
8010 proc mkpatchgo {} {
8011 global patchtop nullid nullid2
8017 # trim off the initial "|"
8022 }
8024 unset patchtop
8025 }
8027 proc mkpatchcan {} {
8028 global patchtop
8031 unset patchtop
8032 }
8034 proc mktag {} {
8035 global rowmenuid mktagtop commitinfo
8037 set top .maketag
8066 }
8068 proc domktag {} {
8069 global mktagtop env tagids idtags
8075 return 0
8076 }
8079 return 0
8080 }
8081 if {[catch {
8083 } err]} {
8085 return 0
8086 }
8092 dispneartags 0
8093 run refill_reflist
8094 return 1
8095 }
8097 proc redrawtags {id} {
8098 global canv linehtag idpos currentid curview cmitlisted
8099 global canvxmax iddrawn circleitem mainheadid circlecolors
8105 set ofill yellow
8106 } else {
8108 }
8118 setcanvscroll
8119 }
8122 }
8123 }
8125 proc mktagcan {} {
8126 global mktagtop
8129 unset mktagtop
8130 }
8132 proc mktaggo {} {
8133 if {![domktag]} return
8134 mktagcan
8135 }
8137 proc writecommit {} {
8138 global rowmenuid wrcomtop commitinfo wrcomcmd
8140 set top .writecommit
8173 }
8175 proc wrcomgo {} {
8176 global wrcomtop
8183 }
8185 unset wrcomtop
8186 }
8188 proc wrcomcan {} {
8189 global wrcomtop
8192 unset wrcomtop
8193 }
8195 proc mkbranch {} {
8196 global rowmenuid mkbrtop
8198 set top .makebranch
8223 }
8225 proc mkbrgo {top} {
8226 global headids idheads
8230 set cmdargs {}
8231 set old_id {}
8234 return
8235 }
8237 if {![confirm_popup [mc \
8239 return
8240 }
8242 lappend cmdargs -f
8243 }
8246 nowbusy newbranch
8247 update
8248 if {[catch {
8250 } err]} {
8251 notbusy newbranch
8253 } else {
8254 notbusy newbranch
8260 } else {
8265 }
8266 dispneartags 0
8267 run refill_reflist
8268 }
8269 }
8271 proc exec_citool {tool_args {baseid {}}} {
8272 global commitinfo env
8274 set save_env [array get env GIT_AUTHOR_*]
8279 }
8282 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8288 }
8289 }
8293 array unset env GIT_AUTHOR_*
8295 }
8297 proc cherrypick {} {
8298 global rowmenuid curview
8299 global mainhead mainheadid
8301 set oldhead [exec git rev-parse HEAD]
8304 set ok [confirm_popup [mc "Commit %s is already\
8305 included in branch %s -- really re-apply it?" \
8308 }
8309 nowbusy cherrypick [mc "Cherry-picking"]
8310 update
8311 # Unfortunately git-cherry-pick writes stuff to stderr even when
8312 # no error occurs, and exec takes that as an indication of error...
8314 notbusy cherrypick
8315 if {[regexp -line \
8316 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8318 error_popup [mc "Cherry-pick failed because of local changes\
8319 to file '%s'.\nPlease commit, reset or stash\
8321 } elseif {[regexp -line \
8322 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8324 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8325 conflict.\nDo you wish to run git citool to\
8326 resolve it?"]]} {
8327 # Force citool to read MERGE_MSG
8328 file delete [file join [gitdir] "GITGUI_MSG"]
8330 }
8331 } else {
8333 }
8334 run updatecommits
8335 return
8336 }
8337 set newhead [exec git rev-parse HEAD]
8339 notbusy cherrypick
8340 error_popup [mc "No changes committed"]
8341 return
8342 }
8349 }
8354 }
8355 notbusy cherrypick
8356 }
8358 proc resethead {} {
8359 global mainhead rowmenuid confirm_ok resettype
8361 set confirm_ok 0
8362 set w ".confirmreset"
8368 -justify center -aspect 1000
8373 set resettype mixed
8375 -text [mc "Soft: Leave working tree and index untouched"]
8378 -text [mc "Mixed: Leave working tree untouched, reset index"]
8381 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8392 if {[catch {set fd [open \
8395 } else {
8396 dohidelocalchanges
8398 nowbusy reset [mc "Resetting"]
8400 }
8401 }
8403 proc readresetstat {fd} {
8404 global mainhead mainheadid showlocalchanges rprogcoord
8409 adjustprogress
8410 }
8411 return 1
8412 }
8413 set rprogcoord 0
8414 adjustprogress
8415 notbusy reset
8418 }
8420 set newhead [exec git rev-parse HEAD]
8427 }
8429 doshowlocalchanges
8430 }
8431 return 0
8432 }
8434 # context menu for a head
8435 proc headmenu {x y id head} {
8436 global headmenuid headmenuhead headctxmenu mainhead
8438 stopfinding
8441 set state normal
8443 set state disabled
8444 }
8448 }
8450 proc cobranch {} {
8451 global headmenuid headmenuhead headids
8452 global showlocalchanges mainheadid
8454 # check the tree is clean first??
8455 nowbusy checkout [mc "Checking out"]
8456 update
8457 dohidelocalchanges
8458 if {[catch {
8460 } err]} {
8461 notbusy checkout
8464 dodiffindex
8465 }
8466 } else {
8468 }
8469 }
8471 proc readcheckoutstat {fd newhead newheadid} {
8472 global mainhead mainheadid headids showlocalchanges progresscoords
8477 adjustprogress
8478 }
8479 return 1
8480 }
8481 set progresscoords {0 0}
8482 adjustprogress
8483 notbusy checkout
8486 }
8494 dodiffindex
8495 }
8496 }
8498 proc rmbranch {} {
8499 global headmenuid headmenuhead mainhead
8500 global idheads
8504 # this check shouldn't be needed any more...
8506 error_popup [mc "Cannot delete the currently checked-out branch"]
8507 return
8508 }
8511 # the stuff on this branch isn't on any other branch
8512 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8514 }
8515 nowbusy rmbranch
8516 update
8518 notbusy rmbranch
8520 return
8521 }
8525 notbusy rmbranch
8526 dispneartags 0
8527 run refill_reflist
8528 }
8530 # Display a list of tags and heads
8531 proc showrefs {} {
8532 global showrefstop bgcolor fgcolor selectbgcolor
8533 global bglist fglist reflistfilter reflist maincursor
8535 set top .showrefs
8539 refill_reflist
8540 return
8541 }
8549 -spacing1 1 -spacing3 1 -state disabled
8560 set reflistfilter "*"
8561 trace add variable reflistfilter write reflistfilter_change
8573 set reflist {}
8574 refill_reflist
8575 }
8577 proc sel_reflist {w x y} {
8578 global showrefstop reflist headids tagids otherrefids
8588 }
8590 }
8592 proc unsel_reflist {} {
8593 global showrefstop
8597 }
8599 proc reflistfilter_change {n1 n2 op} {
8600 global reflistfilter
8602 after cancel refill_reflist
8603 after 200 refill_reflist
8604 }
8606 proc refill_reflist {} {
8607 global reflist reflistfilter showrefstop headids tagids otherrefids
8608 global curview
8611 set refs {}
8612 foreach n [array names headids] {
8616 } else {
8618 }
8619 }
8620 }
8621 foreach n [array names tagids] {
8625 } else {
8627 }
8628 }
8629 }
8630 foreach n [array names otherrefids] {
8634 } else {
8636 }
8637 }
8638 }
8646 set i 0
8647 set j 0
8656 }
8657 } else {
8658 set cmp -1
8659 }
8660 } else {
8661 set cmp 1
8662 }
8664 -1 {
8666 incr i
8667 }
8668 0 {
8669 incr i
8670 incr j
8671 }
8672 1 {
8677 incr j
8678 }
8679 }
8680 }
8682 # delete last newline
8685 }
8687 # Stuff for finding nearby tags
8688 proc getallcommits {} {
8689 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8690 global idheads idtags idotherrefs allparents tagobjid
8692 if {![info exists allcommits]} {
8693 set nextarc 0
8694 set allcommits 0
8695 set seeds {}
8696 set allcwait 0
8697 set cachedarcs 0
8698 set allccache [file join [gitdir] "gitk.cache"]
8699 if {![catch {
8701 set allcwait 1
8703 }]} return
8704 }
8707 return
8708 }
8709 set cmd [list | git rev-list --parents]
8712 set ids "--all"
8713 } else {
8714 set refs [concat [array names idheads] [array names idtags] \
8715 [array names idotherrefs]]
8716 set ids {}
8717 set tagobjs {}
8718 foreach name [array names tagobjid] {
8720 }
8725 }
8726 }
8730 }
8731 }
8732 }
8736 incr allcommits
8737 nowbusy allcommits
8739 } else {
8740 dispneartags 0
8741 }
8742 }
8744 # Since most commits have 1 parent and 1 child, we group strings of
8745 # such commits into "arcs" joining branch/merge points (BMPs), which
8746 # are commits that either don't have 1 parent or don't have 1 child.
8747 #
8748 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8749 # arcout(id) - outgoing arcs for BMP
8750 # arcids(a) - list of IDs on arc including end but not start
8751 # arcstart(a) - BMP ID at start of arc
8752 # arcend(a) - BMP ID at end of arc
8753 # growing(a) - arc a is still growing
8754 # arctags(a) - IDs out of arcids (excluding end) that have tags
8755 # archeads(a) - IDs out of arcids (excluding end) that have heads
8756 # The start of an arc is at the descendent end, so "incoming" means
8757 # coming from descendents, and "outgoing" means going towards ancestors.
8759 proc getallclines {fd} {
8760 global allparents allchildren idtags idheads nextarc
8761 global arcnos arcids arctags arcout arcend arcstart archeads growing
8762 global seeds allcommits cachedarcs allcupdate
8764 set nid 0
8768 # seen it already
8769 continue
8770 }
8771 set cachedarcs 0
8778 } else {
8784 }
8787 }
8789 # seen parent already
8792 }
8796 }
8799 continue
8800 }
8801 }
8806 }
8808 set ao {}
8811 set a [incr nextarc]
8820 # seen it already, may need to make a new branch
8823 }
8827 }
8829 }
8831 }
8833 global cached_dheads cached_dtags cached_atags
8834 catch {unset cached_dheads}
8835 catch {unset cached_dtags}
8836 catch {unset cached_atags}
8837 }
8840 }
8841 set cacheok 1
8842 if {[catch {
8845 } err]} {
8846 # got an error reading the list of commits
8847 # if we were updating, try rereading the whole thing again
8849 incr allcommits -1
8851 return
8852 }
8853 error_popup "[mc "Error reading commit topology information;\
8854 branch and preceding/following tag information\
8856 set cacheok 0
8857 }
8858 if {[incr allcommits -1] == 0} {
8859 notbusy allcommits
8861 run savecache
8862 }
8863 }
8864 dispneartags 0
8865 return 0
8866 }
8868 proc recalcarc {a} {
8869 global arctags archeads arcids idtags idheads
8871 set at {}
8872 set ah {}
8876 }
8879 }
8880 }
8883 }
8885 proc splitarc {p} {
8886 global arcnos arcids nextarc arctags archeads idtags idheads
8887 global arcstart arcend arcout allparents growing
8892 return
8893 }
8898 return
8899 }
8900 set na [incr nextarc]
8903 } else {
8907 }
8917 }
8922 } else {
8925 }
8926 }
8928 # reconstruct tags and heads lists
8932 } else {
8935 }
8936 }
8938 # Update things for a new commit added that is a child of one
8939 # existing commit. Used when cherry-picking.
8940 proc addnewchild {id p} {
8941 global allparents allchildren idtags nextarc
8942 global arcnos arcids arctags arcout arcend arcstart archeads growing
8943 global seeds allcommits
8951 set a [incr nextarc]
8959 }
8962 }
8964 # This implements a cache for the topology information.
8965 # The cache saves, for each arc, the start and end of the arc,
8966 # the ids on the arc, and the outgoing arcs from the end.
8967 proc readcache {f} {
8968 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8969 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8970 global allcwait
8976 }
8977 if {[catch {
8979 # finish reading the cache and setting up arctags, etc.
8983 foreach id [array names idtags] {
8989 }
8990 }
8991 }
8992 foreach id [array names idheads] {
8998 }
8999 }
9000 }
9004 }
9005 }
9006 set allcwait 0
9007 } else {
9017 }
9021 } else {
9025 }
9026 }
9032 }
9035 }
9038 }
9040 }
9041 } err]} {
9043 return 0
9044 }
9046 getallcommits
9047 }
9049 }
9051 proc getcache {f} {
9052 global nextarc cachedarcs possible_seeds
9054 if {[catch {
9057 # make sure it's an integer
9060 set nextarc 0
9061 set possible_seeds {}
9063 } err]} {
9065 }
9066 return 0
9067 }
9069 proc dropcache {err} {
9070 global allcwait nextarc cachedarcs seeds
9073 foreach v {arcnos arcout arcids arcstart arcend growing \
9074 arctags archeads allparents allchildren} {
9077 }
9078 set allcwait 0
9079 set nextarc 0
9080 set cachedarcs 0
9081 set seeds {}
9082 getallcommits
9083 }
9085 proc writecache {f} {
9086 global cachearc cachedarcs allccache
9087 global arcstart arcend arcnos arcids arcout
9093 }
9094 if {[catch {
9098 } else {
9100 }
9101 }
9102 } err]} {
9106 return 0
9107 }
9112 return 0
9113 }
9114 return 1
9115 }
9117 proc savecache {} {
9118 global nextarc cachedarcs cachearc allccache
9121 set cachearc 0
9123 catch {
9127 }
9128 }
9130 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9131 # or 0 if neither is true.
9132 proc anc_or_desc {a b} {
9133 global arcout arcstart arcend arcnos cached_isanc
9136 # Both are on the same arc(s); either both are the same BMP,
9137 # or if one is not a BMP, the other is also not a BMP or is
9138 # the BMP at end of the arc (and it only has 1 incoming arc).
9139 # Or both can be BMPs with no incoming arcs.
9141 return 0
9142 }
9148 return 1
9149 } else {
9150 return -1
9151 }
9152 }
9158 } else {
9159 set aend {}
9160 }
9162 } else {
9164 }
9169 } else {
9170 set bend {}
9171 }
9173 } else {
9175 }
9177 return 1
9178 }
9180 return -1
9181 }
9184 return 1
9185 }
9186 }
9189 return -1
9190 }
9192 return 0
9193 }
9194 }
9202 continue
9203 }
9209 return 1
9213 return -1
9214 }
9220 }
9221 }
9222 }
9225 return 0
9226 }
9230 # and returns 0 if so and 1 if not.
9231 # If we subsequently discover a tag on such a growing tip, and that
9234 # isn't a good choice to display as a descendent tag of
9238 #
9239 proc is_certain {desc anc} {
9240 global arcnos arcout arcstart arcend growing problems
9242 set certain {}
9244 # tags on the same arc are certain
9246 return 1
9247 }
9252 }
9253 }
9256 } else {
9259 }
9261 return 1
9262 }
9265 set nnh 1
9266 set ngrowanc 0
9270 incr nnh -1
9271 }
9277 incr ngrowanc
9278 }
9279 } else {
9286 incr nnh -1
9287 }
9289 incr ngrowanc -1
9290 }
9300 incr nnh -1
9301 }
9303 incr ngrowanc -1
9304 }
9306 }
9307 }
9308 }
9309 }
9310 }
9311 }
9315 } else {
9318 incr nnh
9319 }
9320 }
9321 }
9322 }
9323 foreach x [array names growanc] {
9325 return 0
9326 }
9327 return 0
9328 }
9329 return 1
9330 }
9332 proc validate_arctags {a} {
9333 global arctags idtags
9335 set i -1
9338 incr i
9341 incr i -1
9342 }
9343 }
9345 }
9347 proc validate_archeads {a} {
9348 global archeads idheads
9350 set i -1
9353 incr i
9356 incr i -1
9357 }
9358 }
9360 }
9362 # Return the list of IDs that have tags that are descendents of id,
9363 # ignoring IDs that are descendents of IDs already reported.
9364 proc desctags {id} {
9365 global arcnos arcstart arcids arctags idtags allparents
9366 global growing cached_dtags
9369 return {}
9370 }
9371 set t1 [clock clicks -milliseconds]
9374 # part-way along an arc; check that arc first
9379 set tid {}
9384 }
9387 }
9388 }
9392 }
9393 }
9396 }
9401 set nc 1
9407 incr nc -1
9408 }
9409 # ignore tags on starting node
9413 set ta 1
9416 set ta 1
9417 }
9418 }
9425 }
9426 }
9435 }
9438 }
9440 incr nc -1
9441 }
9443 }
9444 }
9445 }
9450 incr nc
9451 }
9452 }
9453 }
9454 }
9455 set tags {}
9456 foreach id [array names tagloc] {
9461 }
9462 }
9463 }
9464 }
9465 set t2 [clock clicks -milliseconds]
9468 # remove tags that are descendents of other tags
9476 incr j -1
9477 incr i -1
9480 incr i -1
9481 break
9482 }
9483 }
9484 }
9486 if {[array names growing] ne {}} {
9487 # graph isn't finished, need to check if any tag could get
9488 # eclipsed by another tag coming later. Simply ignore any
9489 # tags that could later get eclipsed.
9490 set ctags {}
9494 }
9495 }
9498 } else {
9500 }
9501 } else {
9503 }
9504 set t3 [clock clicks -milliseconds]
9508 }
9510 }
9512 proc anctags {id} {
9513 global arcnos arcids arcout arcend arctags idtags allparents
9514 global growing cached_atags
9517 return {}
9518 }
9519 set t1 [clock clicks -milliseconds]
9522 # part-way along an arc; check that arc first
9531 }
9532 }
9533 }
9535 return {}
9536 }
9540 }
9541 }
9544 }
9549 set taglist {}
9550 set nc 1
9556 incr nc -1
9557 }
9558 # ignore tags on starting node
9562 set td 1
9565 set td 1
9566 }
9567 }
9573 }
9574 }
9586 }
9587 }
9590 }
9592 incr nc -1
9593 }
9595 }
9596 }
9597 }
9602 incr nc
9603 }
9604 }
9605 }
9606 }
9607 set t2 [clock clicks -milliseconds]
9609 set tags {}
9610 foreach id [array names tagloc] {
9615 }
9616 }
9617 }
9618 }
9620 # remove tags that are ancestors of other tags
9628 incr j -1
9629 incr i -1
9632 incr i -1
9633 break
9634 }
9635 }
9636 }
9638 if {[array names growing] ne {}} {
9639 # graph isn't finished, need to check if any tag could get
9640 # eclipsed by another tag coming later. Simply ignore any
9641 # tags that could later get eclipsed.
9642 set ctags {}
9646 }
9647 }
9650 } else {
9652 }
9653 } else {
9655 }
9656 set t3 [clock clicks -milliseconds]
9660 }
9662 }
9664 # Return the list of IDs that have heads that are descendents of id,
9665 # including id itself if it has a head.
9666 proc descheads {id} {
9667 global arcnos arcstart arcids archeads idheads cached_dheads
9668 global allparents
9671 return {}
9672 }
9673 set aret {}
9675 # part-way along an arc; check it first
9684 }
9685 }
9687 }
9691 set ret {}
9696 } else {
9699 }
9705 }
9706 }
9711 }
9712 }
9713 }
9714 }
9718 }
9720 proc addedtag {id} {
9721 global arcnos arcout cached_dtags cached_atags
9726 }
9727 catch {unset cached_dtags}
9728 catch {unset cached_atags}
9729 }
9731 proc addedhead {hid head} {
9732 global arcnos arcout cached_dheads
9737 }
9738 catch {unset cached_dheads}
9739 }
9741 proc removedhead {hid head} {
9742 global cached_dheads
9744 catch {unset cached_dheads}
9745 }
9747 proc movedhead {hid head} {
9748 global arcnos arcout cached_dheads
9753 }
9754 catch {unset cached_dheads}
9755 }
9757 proc changedrefs {} {
9758 global cached_dheads cached_dtags cached_atags
9759 global arctags archeads arcnos arcout idheads idtags
9761 foreach id [concat [array names idheads] [array names idtags]] {
9767 }
9768 }
9769 }
9770 catch {unset cached_dtags}
9771 catch {unset cached_atags}
9772 catch {unset cached_dheads}
9773 }
9775 proc rereadrefs {} {
9776 global idtags idheads idotherrefs mainheadid
9778 set refids [concat [array names idtags] \
9779 [array names idheads] [array names idotherrefs]]
9783 }
9784 }
9786 readrefs
9787 changedrefs
9789 [array names idheads] [array names idotherrefs]]]
9794 }
9795 }
9799 }
9800 run refill_reflist
9801 }
9803 proc listrefs {id} {
9804 global idtags idheads idotherrefs
9806 set x {}
9809 }
9810 set y {}
9813 }
9814 set z {}
9817 }
9819 }
9821 proc showtag {tag isnew} {
9822 global ctext tagcontents tagids linknum tagobjid
9826 }
9828 clear_ctext
9829 settabs 0
9830 set linknum 0
9832 catch {
9834 }
9835 }
9838 } else {
9840 }
9843 init_flist {}
9844 }
9846 proc doquit {} {
9847 global stopped
9848 global gitktmpdir
9850 set stopped 100
9851 savestuff .
9852 destroy .
9854 if {[info exists gitktmpdir]} {
9856 }
9857 }
9859 proc mkfontdisp {font top which} {
9868 }
9870 proc choosefont {font which} {
9871 global fontparam fontlist fonttop fontattr
9872 global prefstop
9880 set top .gitkfont
9883 font create sample
9890 set fontlist [lsort [font families]]
9901 -textvariable fontparam(size) \
9902 -validatecommand {string is integer -strict %s}
9904 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9905 -variable fontparam(weight) -onvalue bold -offvalue normal
9907 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9908 -variable fontparam(slant) -onvalue italic -offvalue roman
9912 -background white
9914 -fill black -tags text
9926 trace add variable fontparam write chg_fontparam
9927 } else {
9930 }
9935 }
9936 }
9938 proc centertext {w} {
9940 }
9942 proc fontok {} {
9943 global fontparam fontpref prefstop
9949 }
9952 }
9956 fontcan
9957 }
9959 proc fontcan {} {
9960 global fonttop fontparam
9962 if {[info exists fonttop]} {
9964 catch {font delete sample}
9965 unset fonttop
9966 unset fontparam
9967 }
9968 }
9970 proc selfontfam {} {
9971 global fonttop fontparam
9976 }
9977 }
9979 proc chg_fontparam {v sub op} {
9980 global fontparam
9983 }
9985 proc doprefs {} {
9986 global maxwidth maxgraphpct
9987 global oldprefs prefstop showneartags showlocalchanges
9988 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
9989 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9991 set top .gitkprefs
9995 return
9996 }
9997 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9998 limitdiffs tabstop perfile_attrs} {
10000 }
10008 -font optionfont
10012 -font optionfont
10050 -padx 10
10052 -command choose_extdiff
10079 "diff hunk header" \
10085 [mc "marked line background"] \
10109 }
10111 proc choose_extdiff {} {
10112 global extdifftool
10114 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
10117 }
10118 }
10120 proc choosecolor {v vi w x cmd} {
10129 }
10131 proc setselbg {c} {
10132 global bglist cflist
10135 }
10139 }
10141 proc setbg {c} {
10142 global bglist
10146 }
10147 }
10149 proc setfg {c} {
10150 global fglist canv
10154 }
10157 }
10159 proc prefscan {} {
10160 global oldprefs prefstop
10162 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10163 limitdiffs tabstop perfile_attrs} {
10166 }
10168 unset prefstop
10169 fontcan
10170 }
10172 proc prefsok {} {
10173 global maxwidth maxgraphpct
10174 global oldprefs prefstop showneartags showlocalchanges
10175 global fontpref mainfont textfont uifont
10176 global limitdiffs treediffs perfile_attrs
10179 unset prefstop
10180 fontcan
10181 set fontchanged 0
10185 eval font configure mainfont [fontflags mainfont]
10186 eval font configure mainfontbold [fontflags mainfont 1]
10187 setcoords
10188 set fontchanged 1
10189 }
10193 eval font configure textfont [fontflags textfont]
10194 eval font configure textfontbold [fontflags textfont 1]
10195 }
10199 eval font configure uifont [fontflags uifont]
10200 }
10201 settabs
10204 doshowlocalchanges
10205 } else {
10206 dohidelocalchanges
10207 }
10208 }
10211 # treediffs elements are limited by path;
10212 # won't have encodings cached if perfile_attrs was just turned on
10213 catch {unset treediffs}
10214 }
10217 redisplay
10220 reselectline
10221 }
10222 }
10224 proc formatdate {d} {
10225 global datetimeformat
10228 }
10230 }
10232 # This list of encoding names and aliases is distilled from
10233 # http://www.iana.org/assignments/character-sets.
10234 # Not all of them are supported by Tcl.
10235 set encoding_aliases {
10236 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10237 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10238 { ISO-10646-UTF-1 csISO10646UTF1 }
10239 { ISO_646.basic:1983 ref csISO646basic1983 }
10240 { INVARIANT csINVARIANT }
10241 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10242 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10243 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10244 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10245 { NATS-DANO iso-ir-9-1 csNATSDANO }
10246 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10247 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10248 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10249 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10250 { ISO-2022-KR csISO2022KR }
10251 { EUC-KR csEUCKR }
10252 { ISO-2022-JP csISO2022JP }
10253 { ISO-2022-JP-2 csISO2022JP2 }
10254 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10255 csISO13JISC6220jp }
10256 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10257 { IT iso-ir-15 ISO646-IT csISO15Italian }
10258 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10259 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10260 { greek7-old iso-ir-18 csISO18Greek7Old }
10261 { latin-greek iso-ir-19 csISO19LatinGreek }
10262 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10263 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10264 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10265 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10266 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10267 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10268 { INIS iso-ir-49 csISO49INIS }
10269 { INIS-8 iso-ir-50 csISO50INIS8 }
10270 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10271 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10272 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10273 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10274 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10275 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10276 csISO60Norwegian1 }
10277 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10278 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10279 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10280 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10281 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10282 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10283 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10284 { greek7 iso-ir-88 csISO88Greek7 }
10285 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10286 { iso-ir-90 csISO90 }
10287 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10288 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10289 csISO92JISC62991984b }
10290 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10291 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10292 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10293 csISO95JIS62291984handadd }
10294 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10295 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10296 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10297 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10298 CP819 csISOLatin1 }
10299 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10300 { T.61-7bit iso-ir-102 csISO102T617bit }
10301 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10302 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10303 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10304 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10305 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10306 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10307 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10308 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10309 arabic csISOLatinArabic }
10310 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10311 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10312 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10313 greek greek8 csISOLatinGreek }
10314 { T.101-G2 iso-ir-128 csISO128T101G2 }
10315 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10316 csISOLatinHebrew }
10317 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10318 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10319 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10320 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10321 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10322 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10323 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10324 csISOLatinCyrillic }
10325 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10326 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10327 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10328 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10329 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10330 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10331 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10332 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10333 { ISO_10367-box iso-ir-155 csISO10367Box }
10334 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10335 { latin-lap lap iso-ir-158 csISO158Lap }
10336 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10337 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10338 { us-dk csUSDK }
10339 { dk-us csDKUS }
10340 { JIS_X0201 X0201 csHalfWidthKatakana }
10341 { KSC5636 ISO646-KR csKSC5636 }
10342 { ISO-10646-UCS-2 csUnicode }
10343 { ISO-10646-UCS-4 csUCS4 }
10344 { DEC-MCS dec csDECMCS }
10345 { hp-roman8 roman8 r8 csHPRoman8 }
10346 { macintosh mac csMacintosh }
10347 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10348 csIBM037 }
10349 { IBM038 EBCDIC-INT cp038 csIBM038 }
10350 { IBM273 CP273 csIBM273 }
10351 { IBM274 EBCDIC-BE CP274 csIBM274 }
10352 { IBM275 EBCDIC-BR cp275 csIBM275 }
10353 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10354 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10355 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10356 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10357 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10358 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10359 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10360 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10361 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10362 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10363 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10364 { IBM437 cp437 437 csPC8CodePage437 }
10365 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10366 { IBM775 cp775 csPC775Baltic }
10367 { IBM850 cp850 850 csPC850Multilingual }
10368 { IBM851 cp851 851 csIBM851 }
10369 { IBM852 cp852 852 csPCp852 }
10370 { IBM855 cp855 855 csIBM855 }
10371 { IBM857 cp857 857 csIBM857 }
10372 { IBM860 cp860 860 csIBM860 }
10373 { IBM861 cp861 861 cp-is csIBM861 }
10374 { IBM862 cp862 862 csPC862LatinHebrew }
10375 { IBM863 cp863 863 csIBM863 }
10376 { IBM864 cp864 csIBM864 }
10377 { IBM865 cp865 865 csIBM865 }
10378 { IBM866 cp866 866 csIBM866 }
10379 { IBM868 CP868 cp-ar csIBM868 }
10380 { IBM869 cp869 869 cp-gr csIBM869 }
10381 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10382 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10383 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10384 { IBM891 cp891 csIBM891 }
10385 { IBM903 cp903 csIBM903 }
10386 { IBM904 cp904 904 csIBBM904 }
10387 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10388 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10389 { IBM1026 CP1026 csIBM1026 }
10390 { EBCDIC-AT-DE csIBMEBCDICATDE }
10391 { EBCDIC-AT-DE-A csEBCDICATDEA }
10392 { EBCDIC-CA-FR csEBCDICCAFR }
10393 { EBCDIC-DK-NO csEBCDICDKNO }
10394 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10395 { EBCDIC-FI-SE csEBCDICFISE }
10396 { EBCDIC-FI-SE-A csEBCDICFISEA }
10397 { EBCDIC-FR csEBCDICFR }
10398 { EBCDIC-IT csEBCDICIT }
10399 { EBCDIC-PT csEBCDICPT }
10400 { EBCDIC-ES csEBCDICES }
10401 { EBCDIC-ES-A csEBCDICESA }
10402 { EBCDIC-ES-S csEBCDICESS }
10403 { EBCDIC-UK csEBCDICUK }
10404 { EBCDIC-US csEBCDICUS }
10405 { UNKNOWN-8BIT csUnknown8BiT }
10406 { MNEMONIC csMnemonic }
10407 { MNEM csMnem }
10408 { VISCII csVISCII }
10409 { VIQR csVIQR }
10410 { KOI8-R csKOI8R }
10411 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10412 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10413 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10414 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10415 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10416 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10417 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10418 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10419 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10420 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10421 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10422 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10423 { IBM1047 IBM-1047 }
10424 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10425 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10426 { UNICODE-1-1 csUnicode11 }
10427 { CESU-8 csCESU-8 }
10428 { BOCU-1 csBOCU-1 }
10429 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10430 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10431 l8 }
10432 { ISO-8859-15 ISO_8859-15 Latin-9 }
10433 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10434 { GBK CP936 MS936 windows-936 }
10435 { JIS_Encoding csJISEncoding }
10436 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10437 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10438 EUC-JP }
10439 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10440 { ISO-10646-UCS-Basic csUnicodeASCII }
10441 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10442 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10443 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10444 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10445 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10446 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10447 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10448 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10449 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10450 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10451 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10452 { Ventura-US csVenturaUS }
10453 { Ventura-International csVenturaInternational }
10454 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10455 { PC8-Turkish csPC8Turkish }
10456 { IBM-Symbols csIBMSymbols }
10457 { IBM-Thai csIBMThai }
10458 { HP-Legal csHPLegal }
10459 { HP-Pi-font csHPPiFont }
10460 { HP-Math8 csHPMath8 }
10461 { Adobe-Symbol-Encoding csHPPSMath }
10462 { HP-DeskTop csHPDesktop }
10463 { Ventura-Math csVenturaMath }
10464 { Microsoft-Publishing csMicrosoftPublishing }
10465 { Windows-31J csWindows31J }
10466 { GB2312 csGB2312 }
10467 { Big5 csBig5 }
10468 }
10470 proc tcl_encoding {enc} {
10471 global encoding_aliases tcl_encoding_cache
10474 }
10475 set names [encoding names]
10480 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10483 }
10484 }
10489 # look through the aliases for one that tcl knows about
10495 }
10496 }
10498 }
10499 break
10500 }
10501 }
10502 set tclenc {}
10505 }
10508 }
10510 proc gitattr {path attr default} {
10511 global path_attr_cache
10514 } else {
10515 set r "unspecified"
10518 }
10520 }
10523 }
10525 }
10527 proc cache_gitattr {attr pathlist} {
10528 global path_attr_cache
10529 set newlist {}
10533 }
10534 }
10535 set lim 1000
10536 if {[tk windowingsystem] == "win32"} {
10537 # windows has a 32k limit on the arguments to a command...
10538 set lim 30
10539 }
10548 }
10550 }
10551 }
10552 }
10553 }
10554 }
10556 proc get_path_encoding {path} {
10557 global gui_encoding perfile_attrs
10563 }
10564 }
10566 }
10568 # First check that Tcl/Tk is recent enough
10569 if {[catch {package require Tk 8.4} err]} {
10570 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10571 Gitk requires at least Tcl/Tk 8.4."]
10572 exit 1
10573 }
10575 # defaults...
10576 set wrcomcmd "git diff-tree --stdin -p --pretty"
10578 set gitencoding {}
10579 catch {
10580 set gitencoding [exec git config --get i18n.commitencoding]
10581 }
10582 catch {
10583 set gitencoding [exec git config --get i18n.logoutputencoding]
10584 }
10586 set gitencoding "utf-8"
10587 }
10591 }
10593 set gui_encoding [encoding system]
10594 catch {
10595 set enc [exec git config --get gui.encoding]
10600 } else {
10602 }
10603 }
10604 }
10606 set mainfont {Helvetica 9}
10607 set textfont {Courier 9}
10608 set uifont {Helvetica 9 bold}
10609 set tabstop 8
10610 set findmergefiles 0
10611 set maxgraphpct 50
10612 set maxwidth 16
10613 set revlistorder 0
10614 set fastdate 0
10615 set uparrowlen 5
10616 set downarrowlen 5
10617 set mingaplen 100
10618 set cmitmode "patch"
10619 set wrapcomment "none"
10620 set showneartags 1
10621 set maxrefs 20
10622 set maxlinelen 200
10623 set showlocalchanges 1
10624 set limitdiffs 1
10625 set datetimeformat "%Y-%m-%d %H:%M:%S"
10626 set autoselect 1
10627 set perfile_attrs 0
10629 set extdifftool "meld"
10631 set colors {green red blue magenta darkgrey brown orange}
10632 set bgcolor white
10633 set fgcolor black
10634 set diffcolors {red "#00a000" blue}
10635 set diffcontext 3
10636 set ignorespace 0
10637 set selectbgcolor gray85
10638 set markbgcolor "#e0e0ff"
10640 set circlecolors {white blue gray blue blue}
10642 # button for popping up context menus
10643 if {[tk windowingsystem] eq "aqua"} {
10644 set ctxbut <Button-2>
10645 } else {
10646 set ctxbut <Button-3>
10647 }
10649 ## For msgcat loading, first locate the installation location.
10650 if { [info exists ::env(GITK_MSGSDIR)] } {
10651 ## Msgsdir was manually set in the environment.
10652 set gitk_msgsdir $::env(GITK_MSGSDIR)
10653 } else {
10654 ## Let's guess the prefix from argv0.
10658 unset gitk_prefix
10659 }
10661 ## Internationalization (i18n) through msgcat and gettext. See
10662 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10663 package require msgcat
10664 namespace import ::msgcat::mc
10665 ## And eventually load the actual message catalog
10668 catch {source ~/.gitk}
10670 font create optionfont -family sans-serif -size -12
10673 eval font create mainfont [fontflags mainfont]
10674 eval font create mainfontbold [fontflags mainfont 1]
10677 eval font create textfont [fontflags textfont]
10678 eval font create textfontbold [fontflags textfont 1]
10681 eval font create uifont [fontflags uifont]
10683 setoptions
10685 # check that we can find a .git directory somewhere...
10686 if {[catch {set gitdir [gitdir]}]} {
10687 show_error {} . [mc "Cannot find a git repository here."]
10688 exit 1
10689 }
10692 exit 1
10693 }
10695 set selecthead {}
10696 set selectheadid {}
10698 set revtreeargs {}
10699 set cmdline_files {}
10700 set i 0
10701 set revtreeargscmd {}
10704 "" { }
10705 "--" {
10707 break
10708 }
10709 "--select-commit=*" {
10711 }
10712 "--argscmd=*" {
10714 }
10715 default {
10717 }
10718 }
10719 incr i
10720 }
10723 set selecthead {}
10724 }
10727 # no -- on command line, but some arguments (other than --argscmd)
10728 if {[catch {
10733 # Unfortunately git rev-parse doesn't produce an error when
10734 # something is both a revision and a filename. To be consistent
10735 # with git log and git rev-list, check revtreeargs for filenames.
10738 show_error {} . [mc "Ambiguous argument '%s': both revision\
10740 exit 1
10741 }
10742 }
10743 } err]} {
10745 # so look for "fatal:".
10749 }
10751 exit 1
10752 }
10753 }
10755 set nullid "0000000000000000000000000000000000000000"
10756 set nullid2 "0000000000000000000000000000000000000001"
10757 set nullfile "/dev/null"
10761 set runq {}
10762 set history {}
10763 set historyindex 0
10764 set fh_serial 0
10765 set nhl_names {}
10766 set highlight_paths {}
10767 set findpattern {}
10768 set searchdirn -forwards
10769 set boldrows {}
10770 set boldnamerows {}
10771 set diffelide {0 0}
10772 set markingmatches 0
10773 set linkentercount 0
10774 set need_redisplay 0
10775 set nrows_drawn 0
10776 set firsttabstop 0
10778 set nextviewnum 1
10779 set curview 0
10780 set selectedview 0
10781 set selectedhlview [mc "None"]
10782 set highlight_related [mc "None"]
10783 set highlight_files {}
10784 set viewfiles(0) {}
10785 set viewperm(0) 0
10786 set viewargs(0) {}
10787 set viewargscmd(0) {}
10789 set selectedline {}
10790 set numcommits 0
10791 set loginstance 0
10792 set cmdlineok 0
10793 set stopped 0
10794 set stuffsaved 0
10795 set patchnum 0
10796 set lserial 0
10797 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10798 setcoords
10799 makewindow
10800 # wait for the window to become visible
10801 tkwait visibility .
10803 readrefs
10806 # create a view for the files/dirs specified on the command line
10807 set curview 1
10808 set selectedview 1
10809 set nextviewnum 2
10810 set viewname(1) [mc "Command line"]
10814 set viewperm(1) 0
10815 set vdatemode(1) 0
10816 addviewmenu 1
10817 .bar.view entryconf [mca "Edit view..."] -state normal
10818 .bar.view entryconf [mca "Delete view"] -state normal
10819 }
10821 if {[info exists permviews]} {
10824 incr nextviewnum
10831 }
10832 }
10833 getcommits {}