| blob | 26ff80284952c281f622795d64141af120e32c98 |
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 {id font} {
4008 global canv linehtag currentid boldids 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 {id font} {
4024 global canv2 linentag currentid boldnameids need_redisplay
4032 -outline {{}} -tags secsel \
4035 }
4036 }
4038 proc unbolden {} {
4039 global boldids
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 boldnameids
4174 global findpattern findtype findstring gdttype
4176 stopfinding
4177 # delete previous highlights, if any
4180 }
4181 set boldnameids {}
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 }
4272 }
4274 }
4276 # strange...
4277 puts "oops, git diff-tree died"
4279 unset filehighlight
4280 return 0
4281 }
4282 if {[info exists find_dirn]} {
4283 run findmore
4284 }
4285 return 1
4286 }
4288 proc doesmatch {f} {
4289 global findtype findpattern
4295 } else {
4297 }
4298 }
4300 proc askfindhighlight {row id} {
4301 global nhighlights commitinfo iddrawn
4302 global findloc
4303 global markingmatches
4307 }
4309 set isbold 0
4310 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4315 set isbold 2
4316 break
4317 }
4318 set isbold 1
4319 }
4320 }
4326 }
4327 }
4330 }
4331 }
4333 }
4335 proc markrowmatches {row id} {
4336 global canv canv2 linehtag linentag commitinfo findloc
4347 }
4348 }
4354 }
4355 }
4356 }
4358 proc vrel_change {name ix op} {
4359 global highlight_related
4361 rhighlight_none
4363 run drawvisible
4364 }
4365 }
4367 # prepare for testing whether commits are descendents or ancestors of a
4368 proc rhighlight_sel {a} {
4369 global descendent desc_todo ancestor anc_todo
4370 global highlight_related
4372 catch {unset descendent}
4374 catch {unset ancestor}
4377 rhighlight_none
4378 run drawvisible
4379 }
4380 }
4382 proc rhighlight_none {} {
4383 global rhighlights
4385 catch {unset rhighlights}
4386 unbolden
4387 }
4389 proc is_descendent {a} {
4390 global curview children descendent desc_todo
4395 set leftover {}
4396 set done 0
4401 continue
4402 }
4408 set done 1
4409 }
4410 }
4411 }
4414 return
4415 }
4416 }
4419 }
4421 proc is_ancestor {a} {
4422 global curview parents ancestor anc_todo
4427 set leftover {}
4428 set done 0
4433 continue
4434 }
4440 set done 1
4441 }
4442 }
4443 }
4446 return
4447 }
4448 }
4451 }
4453 proc askrelhighlight {row id} {
4454 global descendent highlight_related iddrawn rhighlights
4455 global selectedline ancestor
4458 set isbold 0
4463 }
4465 set isbold 1
4466 }
4471 }
4473 set isbold 1
4474 }
4475 }
4479 }
4480 }
4482 }
4484 # Graph layout functions
4486 proc shortids {ids} {
4487 set res {}
4493 } else {
4495 }
4496 }
4498 }
4500 proc ntimes {n o} {
4501 set ret {}
4506 }
4508 }
4510 }
4512 proc ordertoken {id} {
4513 global ordertok curview varcid varcstart varctok curview parents children
4514 global nullid nullid2
4518 }
4520 set todo {}
4521 while {1} {
4525 } else {
4527 }
4530 break
4531 }
4534 # it's a root
4536 break
4537 }
4540 } else {
4544 }
4546 }
4547 }
4552 }
4555 }
4557 # Work out where id should go in idlist so that order-token
4558 # values increase from left to right
4559 proc idcol {idlist id {i 0}} {
4562 set i 0
4563 }
4567 }
4569 incr i
4570 } else {
4574 }
4575 }
4577 }
4579 proc initlayout {} {
4580 global rowidlist rowisopt rowfinal displayorder parentlist
4581 global numcommits canvxmax canv
4582 global nextcolor
4583 global colormap rowtextx
4585 set numcommits 0
4586 set displayorder {}
4587 set parentlist {}
4588 set nextcolor 0
4589 set rowidlist {}
4590 set rowisopt {}
4591 set rowfinal {}
4593 catch {unset colormap}
4594 catch {unset rowtextx}
4595 setcanvscroll
4596 }
4598 proc setcanvscroll {} {
4599 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4600 global lastscrollset lastscrollrows
4606 set lastscrollset [clock clicks -milliseconds]
4608 }
4610 proc visiblerows {} {
4611 global canv numcommits linespc
4619 set r0 0
4620 }
4625 }
4627 }
4629 proc layoutmore {} {
4630 global commitidx viewcomplete curview
4631 global numcommits pending_select curview
4632 global lastscrollset lastscrollrows
4636 setcanvscroll
4637 }
4638 if {[info exists pending_select] &&
4640 update
4642 }
4643 drawvisible
4644 }
4646 proc doshowlocalchanges {} {
4647 global curview mainheadid
4651 dodiffindex
4652 } else {
4654 }
4655 }
4657 proc dohidelocalchanges {} {
4658 global nullid nullid2 lserial curview
4662 }
4665 }
4666 incr lserial
4667 }
4669 # spawn off a process to do git diff-index --cached HEAD
4670 proc dodiffindex {} {
4671 global lserial showlocalchanges
4672 global isworktree
4675 incr lserial
4676 set fd [open "|git diff-index --cached HEAD" r]
4680 }
4682 proc readdiffindex {fd serial inst} {
4683 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4685 set isdiff 1
4688 return 1
4689 }
4690 set isdiff 0
4691 }
4692 # we only need to see one line and we don't really care what it says...
4696 return 0
4697 }
4699 # now see if there are any local changes not checked in to the index
4700 set fd [open "|git diff-files" r]
4706 # add the line for the changes in the index to the graph
4707 set hl [mc "Local changes checked in to index but not committed"]
4712 }
4716 }
4717 return 0
4718 }
4720 proc readdifffiles {fd serial inst} {
4721 global mainheadid nullid nullid2 curview
4722 global commitinfo commitdata lserial
4724 set isdiff 1
4727 return 1
4728 }
4729 set isdiff 0
4730 }
4731 # we only need to see one line and we don't really care what it says...
4735 return 0
4736 }
4739 # add the line for the local diff to the graph
4740 set hl [mc "Local uncommitted changes, not checked in to index"]
4745 } else {
4747 }
4751 }
4752 return 0
4753 }
4755 proc nextuse {id row} {
4756 global curview children
4761 return -1
4762 }
4765 }
4766 }
4767 }
4770 }
4771 return -1
4772 }
4774 proc prevuse {id row} {
4775 global curview children
4777 set ret -1
4783 }
4784 }
4785 }
4787 }
4789 proc make_idlist {row} {
4790 global displayorder parentlist uparrowlen downarrowlen mingaplen
4791 global commitidx curview children
4795 set r 0
4796 }
4799 set ra 0
4800 }
4804 }
4806 set ids {}
4815 }
4816 }
4817 }
4825 }
4826 }
4827 }
4835 }
4836 }
4837 incr r
4843 }
4844 }
4845 }
4846 set idlist {}
4849 }
4851 }
4853 proc rowsequal {a b} {
4856 }
4859 }
4861 }
4863 proc makeupline {id row rend col} {
4864 global rowidlist uparrowlen downarrowlen mingaplen
4870 }
4873 }
4880 }
4881 }
4882 }
4884 proc layoutrows {row endrow} {
4885 global rowidlist rowisopt rowfinal displayorder
4886 global uparrowlen downarrowlen maxwidth mingaplen
4887 global children parentlist
4888 global commitidx viewcomplete curview
4891 set idlist {}
4897 }
4898 }
4900 }
4905 set final 1
4906 } else {
4914 # if not the first child, we have to insert a line going up
4917 }
4918 }
4919 }
4929 }
4930 }
4931 }
4938 }
4939 }
4949 }
4950 }
4958 }
4959 }
4960 }
4961 }
4962 }
4966 set final 0
4967 }
4971 lappend rowisopt 0
4977 }
4979 } else {
4986 }
4987 }
4989 }
4991 proc changedrow {row} {
4992 global displayorder iddrawn rowisopt need_redisplay
5001 }
5002 }
5003 }
5006 set need_redisplay 1
5007 }
5008 }
5010 proc insert_pad {row col npad} {
5011 global rowidlist
5020 }
5023 }
5025 proc optimize_rows {row col endrow} {
5026 global rowidlist rowisopt displayorder curview children
5029 set row 1
5030 }
5033 set haspad 0
5042 } else {
5043 set pprevidlist {}
5044 }
5045 set x0 -1
5046 set xm -1
5051 set haspad 1
5052 continue
5053 }
5057 set isarrow 0
5058 set z0 {}
5063 }
5064 }
5069 set isarrow 1
5070 }
5071 }
5074 set isarrow 1
5075 }
5076 # Looking at lines from this row to the previous row,
5077 # make them go straight up if they end in an arrow on
5078 # the previous row; otherwise make them go straight up
5079 # or at 45 degrees.
5081 # Line currently goes left too much;
5082 # insert pads in the previous row, then optimize it
5087 }
5095 }
5097 # Line currently goes right too much;
5098 # insert pads in this line
5104 set haspad 1
5105 }
5112 }
5113 }
5114 # avoid lines jigging left then immediately right
5117 incr x0
5120 }
5121 }
5123 # Find the first column that doesn't have a line going right
5129 # check if this is the link to the first child
5132 # it is, work out offset to child
5134 }
5135 }
5137 }
5138 # Insert a pad at that column as long as it has a line and
5139 # isn't the last column
5144 }
5145 }
5146 }
5147 }
5149 proc xc {row col} {
5150 global canvx0 linespc
5152 }
5154 proc yc {row} {
5155 global canvy0 linespc
5157 }
5159 proc linewidth {id} {
5160 global thickerline lthickness
5165 }
5167 }
5169 proc rowranges {id} {
5170 global curview children uparrowlen downarrowlen
5171 global rowidlist
5175 return {}
5176 }
5177 set ret {}
5182 if {![info exists prev]} {
5184 } else {
5186 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5187 }
5188 # see if the line extends the whole way from prevrow to row
5192 # it doesn't, see where it ends
5197 } else {
5200 incr r -1
5201 }
5203 # see where it starts up again
5208 } else {
5211 incr r
5212 }
5214 }
5215 }
5218 }
5221 }
5223 }
5225 proc drawlineseg {id row endrow arrowlow} {
5226 global rowidlist displayorder iddrawn linesegs
5227 global canv colormap linespc curview maxlinelen parentlist
5231 set arrowhigh 1
5232 while {1} {
5235 incr le -1
5236 break
5237 }
5241 set arrowhigh 0
5242 break
5243 }
5248 set arrowhigh 0
5249 }
5250 break
5251 }
5252 incr le
5253 }
5256 }
5258 set lines {}
5259 set i 0
5260 set joinhigh 0
5267 set joinhigh 1
5268 }
5269 break
5270 }
5271 incr i
5272 }
5273 }
5274 set joinlow 0
5279 set joinlow 1
5280 }
5281 }
5294 }
5295 } else {
5297 }
5305 set arrowlow 0
5306 }
5307 }
5315 }
5317 }
5320 # join parent line to first child
5331 } else {
5333 }
5341 }
5343 }
5345 } else {
5349 }
5357 } else {
5361 }
5363 }
5364 } else {
5370 }
5374 } else {
5375 # coalesce two pieces
5380 }
5384 }
5385 }
5389 }
5391 proc drawparentlinks {id row} {
5392 global rowidlist canv colormap curview parentlist
5393 global idpos linespc
5406 # rmx = right-most X coord used
5407 set rmx 0
5412 continue
5413 }
5417 }
5420 # drawlineseg will do this one for us
5421 continue
5422 }
5424 # should handle duplicated parents here...
5427 # if attaching to a vertical segment, draw a smaller
5428 # slant for visual distinctness
5432 } else {
5434 }
5436 # segment slants towards us already
5438 } else {
5443 }
5445 }
5446 } else {
5448 }
5453 }
5457 }
5458 }
5460 proc drawlines {id} {
5461 global canv
5464 }
5466 proc drawcmittext {id row col} {
5467 global linespc canv canv2 canv3 fgcolor curview
5468 global cmitlisted commitinfo rowidlist parentlist
5469 global rowtextx idpos idtags idheads idotherrefs
5470 global linehtag linentag linedtag selectedline
5471 global canvxmax boldids boldnameids fgcolor
5472 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5474 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5477 set ofill red
5479 set ofill green
5481 set ofill yellow
5482 } else {
5484 }
5493 # triangle pointing left for left-side commits
5499 } else {
5500 # triangle pointing right for right-side commits
5506 }
5518 }
5519 }
5520 }
5527 }
5532 set font mainfont
5533 set nfont mainfont
5537 set font mainfontbold
5540 set nfont mainfontbold
5541 }
5542 }
5552 }
5556 setcanvscroll
5557 }
5558 }
5560 proc drawcmitrow {row} {
5561 global displayorder rowidlist nrows_drawn
5562 global iddrawn markingmatches
5563 global commitinfo numcommits
5564 global filehighlight fhighlights findpattern nhighlights
5565 global hlview vhighlights
5566 global highlight_related rhighlights
5573 }
5576 }
5579 }
5582 }
5587 return
5588 }
5591 }
5595 incr nrows_drawn
5596 }
5599 }
5600 }
5602 proc drawcommits {row {endrow {}}} {
5603 global numcommits iddrawn displayorder curview need_redisplay
5604 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5607 set row 0
5608 }
5611 }
5614 }
5618 set rl1 0
5619 }
5622 set ro1 0
5623 }
5627 }
5632 }
5634 }
5635 }
5638 }
5641 clear_display
5642 drawvisible
5643 }
5645 # make the lines join to already-drawn rows either side
5649 }
5654 }
5669 # see if this is the first child of any of its parents
5672 # make this line extend up to the child
5674 }
5675 }
5676 } else {
5678 }
5679 }
5680 }
5681 }
5683 proc undolayout {row} {
5684 global uparrowlen mingaplen downarrowlen
5685 global rowidlist rowisopt rowfinal need_redisplay
5689 set r 0
5690 }
5692 incr r -1
5696 set need_redisplay 1
5697 run drawvisible
5698 }
5699 }
5701 proc drawvisible {} {
5702 global canv linespc curview vrowmod selectedline targetrow targetid
5703 global need_redisplay cscroll numcommits
5713 if {[info exists targetid]} {
5717 # Fix up the scrollregion and change the scrolling position
5718 # now that our target row has moved.
5721 setcanvscroll
5729 set need_redisplay 1
5730 }
5731 } else {
5732 unset targetid
5733 }
5734 }
5740 }
5744 } elseif {[info exists targetid]} {
5746 }
5747 if {[info exists targetrow]} {
5750 }
5752 }
5754 }
5756 proc clear_display {} {
5757 global iddrawn linesegs need_redisplay nrows_drawn
5758 global vhighlights fhighlights nhighlights rhighlights
5759 global linehtag linentag linedtag boldids boldnameids
5761 allcanvs delete all
5762 catch {unset iddrawn}
5763 catch {unset linesegs}
5764 catch {unset linehtag}
5765 catch {unset linentag}
5766 catch {unset linedtag}
5767 set boldids {}
5768 set boldnameids {}
5769 catch {unset vhighlights}
5770 catch {unset fhighlights}
5771 catch {unset nhighlights}
5772 catch {unset rhighlights}
5773 set need_redisplay 0
5774 set nrows_drawn 0
5775 }
5777 proc findcrossings {id} {
5778 global rowidlist parentlist numcommits displayorder
5780 set cross {}
5781 set ccross {}
5785 }
5804 }
5805 }
5806 }
5807 }
5808 }
5810 }
5812 proc assigncolor {id} {
5813 global colormap colors nextcolor
5814 global parents children children curview
5820 } else {
5821 set kids {}
5822 }
5828 return
5829 }
5830 }
5831 set badcolors {}
5832 set origbad {}
5835 # delimiter between corner crossings and other crossings
5838 }
5842 }
5843 }
5846 }
5853 }
5858 }
5859 }
5860 }
5863 }
5864 }
5868 set nextcolor 0
5869 }
5871 }
5873 }
5875 proc bindline {t id} {
5876 global canv
5882 }
5884 proc drawtags {id x xt y1} {
5885 global idtags idheads idotherrefs mainhead
5886 global linespc lthickness
5887 global canv rowtextx curview fgcolor bgcolor ctxbut
5889 set marks {}
5890 set ntags 0
5891 set nheads 0
5895 }
5899 }
5902 }
5905 }
5910 set xvals {}
5911 set wvals {}
5912 set i -1
5914 incr i
5917 } else {
5919 }
5923 }
5930 set font mainfont
5931 if {[incr ntags -1] >= 0} {
5932 # draw a tag
5938 } else {
5939 # draw a head or other ref
5940 if {[incr nheads -1] >= 0} {
5941 set col green
5943 set font mainfontbold
5944 }
5945 } else {
5946 set col "#ddddff"
5947 }
5958 }
5959 }
5966 }
5967 }
5969 }
5971 proc xcoord {i level ln} {
5972 global canvx0 xspc1 xspc2
5979 }
5981 }
5983 proc show_status {msg} {
5984 global canv fgcolor
5986 clear_display
5989 }
5991 # Don't change the text pane cursor if it is currently the hand cursor,
5992 # showing that we are over a sha1 ID link.
5993 proc settextcursor {c} {
5994 global ctext curtextcursor
5998 }
6000 }
6002 proc nowbusy {what {name {}}} {
6003 global isbusy busyname statusw
6005 if {[array names isbusy] eq {}} {
6006 . config -cursor watch
6007 settextcursor watch
6008 }
6013 }
6014 }
6016 proc notbusy {what} {
6017 global isbusy maincursor textcursor busyname statusw
6019 catch {
6024 }
6025 }
6026 if {[array names isbusy] eq {}} {
6029 }
6030 }
6032 proc findmatches {f} {
6033 global findtype findstring
6036 } else {
6041 }
6042 set matches {}
6043 set i 0
6048 }
6049 }
6051 }
6053 proc dofind {{dirn 1} {wrap 1}} {
6054 global findstring findstartline findcurline selectedline numcommits
6055 global gdttype filehighlight fh_serial find_dirn findallowwrap
6057 if {[info exists find_dirn]} {
6059 stopfinding
6060 }
6061 focus .
6065 } else {
6067 }
6069 nowbusy finding [mc "Searching"]
6073 }
6076 run findmore
6077 }
6079 proc stopfinding {} {
6080 global find_dirn findcurline fprogcoord
6082 if {[info exists find_dirn]} {
6083 unset find_dirn
6084 unset findcurline
6085 notbusy finding
6086 set fprogcoord 0
6087 adjustprogress
6088 }
6089 stopblaming
6090 }
6092 proc findmore {} {
6093 global commitdata commitinfo numcommits findpattern findloc
6094 global findstartline findcurline findallowwrap
6095 global find_dirn gdttype fhighlights fprogcoord
6096 global curview varcorder vrownum varccommits vrowmod
6098 if {![info exists find_dirn]} {
6099 return 0
6100 }
6101 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6103 set moretodo 0
6105 incr l
6107 set l 0
6108 }
6111 } else {
6114 }
6115 } else {
6118 }
6119 incr l -1
6122 } else {
6123 set lim -1
6125 }
6126 }
6129 set n 500
6130 set moretodo 1
6131 }
6134 }
6135 set found 0
6136 set domore 1
6150 }
6152 # shouldn't happen unless git log doesn't give all the commits...
6155 continue
6156 }
6159 }
6164 set found 1
6165 break
6166 }
6167 }
6169 }
6170 } else {
6178 }
6183 }
6186 break
6187 }
6190 set domore 0
6192 }
6193 }
6194 }
6195 }
6197 unset findcurline
6198 unset find_dirn
6199 notbusy finding
6200 set fprogcoord 0
6201 adjustprogress
6204 } else {
6205 bell
6206 }
6207 return 0
6208 }
6210 flushhighlights
6211 } else {
6213 }
6217 }
6219 adjustprogress
6221 }
6223 proc findselectline {l} {
6224 global findloc commentend ctext findcurline markingmatches gdttype
6226 set markingmatches 1
6230 # highlight the matches in the comments
6237 }
6238 }
6239 drawvisible
6240 }
6242 # mark the bits of a headline or author that match a find string
6243 proc markmatches {canv l str tag matches font row} {
6244 global selectedline
6262 }
6263 }
6264 }
6266 proc unmarkmatches {} {
6267 global markingmatches
6269 allcanvs delete matches
6270 set markingmatches 0
6271 stopfinding
6272 }
6274 proc selcanvline {w x y} {
6275 global canv canvy0 ctext linespc
6276 global rowtextx
6283 set l 0
6284 }
6289 }
6290 unmarkmatches
6292 }
6294 proc commit_descriptor {p} {
6295 global commitinfo
6298 }
6299 set l "..."
6302 }
6304 }
6306 # append some text to the ctext widget, and make any SHA1 ID
6307 # that we know about be a clickable link.
6308 proc appendwithlinks {text tags} {
6309 global ctext linknum curview
6318 incr e
6322 incr linknum
6323 }
6324 }
6326 proc setlink {id lk} {
6327 global curview ctext pendinglinks
6329 set known 0
6334 set known 1
6336 }
6337 } else {
6339 }
6345 } else {
6348 }
6349 }
6351 proc makelink {id} {
6352 global pendinglinks
6357 }
6359 }
6361 proc linkcursor {w inc} {
6362 global linkentercount curtextcursor
6366 } else {
6369 set linkentercount 0
6370 }
6371 }
6372 }
6374 proc viewnextline {dir} {
6375 global canv linespc
6383 set newtop 0
6386 }
6388 }
6390 # add a list of tag or branch names at position pos
6391 # returns the number of names inserted
6392 proc appendrefs {pos ids var} {
6396 return 0
6397 }
6400 set tags {}
6404 }
6405 }
6408 } else {
6410 set sep {}
6414 incr linknum
6419 set sep ", "
6420 }
6421 }
6424 }
6426 # called when we have finished computing the nearby tags
6427 proc dispneartags {delay} {
6428 global selectedline currentid showneartags tagphase
6431 after cancel dispnexttag
6433 after 200 dispnexttag
6434 set tagphase -1
6435 } else {
6436 after idle dispnexttag
6437 set tagphase 0
6438 }
6439 }
6441 proc dispnexttag {} {
6442 global selectedline currentid showneartags tagphase ctext
6446 0 {
6450 }
6451 }
6452 1 {
6456 }
6457 }
6458 2 {
6463 # turn "Branch" into "Branches"
6467 }
6468 }
6469 }
6470 }
6471 if {[incr tagphase] <= 2} {
6472 after idle dispnexttag
6473 }
6474 }
6476 proc make_secsel {id} {
6477 global linehtag linentag linedtag canv canv2 canv3
6492 }
6494 proc selectline {l isnew {desired_loc {}}} {
6495 global canv ctext commitinfo selectedline
6496 global canvy0 linespc parents children curview
6497 global currentid sha1entry
6498 global commentend idtags linknum
6499 global mergemax numcommits pending_select
6500 global cmitmode showneartags allcommits
6501 global targetrow targetid lastscrollrows
6502 global autoselect jump_to_here
6504 catch {unset pending_select}
6506 normalline
6507 unsel_reflist
6508 stopfinding
6516 setcanvscroll
6517 }
6531 } else {
6535 }
6536 }
6540 } else {
6544 }
6545 }
6546 }
6549 set newtop 0
6550 }
6552 drawvisible
6553 }
6559 }
6566 }
6570 clear_ctext
6571 set linknum 0
6574 }
6584 }
6586 }
6588 set headers {}
6591 set np 0
6594 set tag mmax
6595 } else {
6597 }
6600 incr np
6601 }
6602 } else {
6605 }
6606 }
6610 }
6612 # make anything that looks like a SHA1 ID be a clickable link
6615 if {![info exists allcommits]} {
6616 getallcommits
6617 }
6628 dispneartags 1
6629 }
6634 }
6642 init_flist [mc "Comments"]
6647 } else {
6649 }
6650 }
6652 proc selfirstline {} {
6653 unmarkmatches
6654 selectline 0 1
6655 }
6657 proc sellastline {} {
6658 global numcommits
6659 unmarkmatches
6662 }
6664 proc selnextline {dir} {
6665 global selectedline
6666 focus .
6669 unmarkmatches
6671 }
6673 proc selnextpage {dir} {
6674 global canv linespc selectedline numcommits
6678 set lpp 1
6679 }
6681 drawvisible
6685 set l 0
6688 }
6689 unmarkmatches
6691 }
6693 proc unselectline {} {
6694 global selectedline currentid
6696 set selectedline {}
6697 catch {unset currentid}
6698 allcanvs delete secsel
6699 rhighlight_none
6700 }
6702 proc reselectline {} {
6703 global selectedline
6707 }
6708 }
6710 proc addtohistory {cmd} {
6711 global history historyindex curview
6716 return
6717 }
6721 } else {
6723 }
6724 incr historyindex
6726 .tf.bar.leftbut conf -state normal
6727 } else {
6728 .tf.bar.leftbut conf -state disabled
6729 }
6730 .tf.bar.rightbut conf -state disabled
6731 }
6733 proc godo {elt} {
6734 global curview
6740 }
6742 }
6744 proc goback {} {
6745 global history historyindex
6746 focus .
6749 incr historyindex -1
6751 .tf.bar.rightbut conf -state normal
6752 }
6754 .tf.bar.leftbut conf -state disabled
6755 }
6756 }
6758 proc goforw {} {
6759 global history historyindex
6760 focus .
6764 incr historyindex
6766 .tf.bar.leftbut conf -state normal
6767 }
6769 .tf.bar.rightbut conf -state disabled
6770 }
6771 }
6773 proc gettree {id} {
6774 global treefilelist treeidlist diffids diffmergeid treepending
6775 global nullid nullid2
6778 catch {unset diffmergeid}
6780 if {![info exists treepending]} {
6782 set cmd [list | git ls-files]
6784 set cmd [list | git ls-files --stage -t]
6785 } else {
6787 }
6789 return
6790 }
6796 }
6797 } else {
6799 }
6800 }
6802 proc gettreeline {gtf id} {
6803 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6805 set nl 0
6809 } else {
6817 }
6820 }
6823 }
6826 }
6828 unset treepending
6830 if {![info exists diffmergeid]} {
6832 }
6835 } else {
6837 }
6838 return 0
6839 }
6841 proc showfile {f} {
6842 global treefilelist treeidlist diffids nullid nullid2
6843 global ctext_file_names ctext_file_lines
6844 global ctext commentend
6849 return
6850 }
6854 return
6855 }
6856 } else {
6860 return
6861 }
6862 }
6873 settabs 0
6874 }
6876 proc getblobline {bf id} {
6877 global diffids cmitmode ctext
6881 return 0
6882 }
6884 set nl 0
6887 }
6889 global jump_to_here ctext_file_names commentend
6891 # delete last newline
6899 }
6900 return 0
6901 }
6904 }
6906 proc mark_ctext_line {lnum} {
6907 global ctext markbgcolor
6913 }
6915 proc mergediff {id} {
6916 global diffmergeid
6917 global diffids treediffs
6918 global parents curview
6926 }
6928 proc startdiff {ids} {
6929 global treediffs diffids treepending diffmergeid nullid nullid2
6931 settabs 1
6933 catch {unset diffmergeid}
6937 if {![info exists treepending]} {
6939 }
6940 } else {
6942 }
6943 }
6945 proc path_filter {filter name} {
6950 return 1
6951 }
6952 } else {
6956 return 1
6957 }
6958 }
6959 }
6960 return 0
6961 }
6963 proc addtocflist {ids} {
6964 global treediffs
6968 }
6970 proc diffcmd {ids flags} {
6971 global nullid nullid2
6977 # comparing working directory with some specific revision
6981 } else {
6983 }
6984 } else {
6985 # comparing working directory with index
6988 lappend cmd -R
6989 }
6990 }
6994 # comparing index with specific revision
6997 } else {
6999 }
7000 } else {
7001 # comparing index with HEAD
7002 lappend cmd HEAD
7003 }
7004 } else {
7006 }
7008 }
7010 proc gettreediffs {ids} {
7011 global treediff treepending
7016 set treediff {}
7019 }
7021 proc gettreediffline {gdtf ids} {
7022 global treediff treediffs treepending diffids diffmergeid
7023 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7025 set nr 0
7026 set sublist {}
7027 set max 1000
7029 # cache_gitattr is slow, and even slower on win32 where we
7030 # have to invoke it for only about 30 paths at a time
7031 set max 500
7032 if {[tk windowingsystem] == "win32"} {
7033 set max 120
7034 }
7035 }
7042 }
7047 }
7048 }
7049 }
7052 }
7055 }
7058 set flist {}
7062 }
7063 }
7065 } else {
7067 }
7068 unset treepending
7072 if {![info exists diffmergeid]} {
7074 }
7075 } else {
7077 }
7078 return 0
7079 }
7081 # empty string or positive integer
7082 proc diffcontextvalidate {v} {
7084 }
7086 proc diffcontextchange {n1 n2 op} {
7087 global diffcontextstring diffcontext
7092 reselectline
7093 }
7094 }
7095 }
7097 proc changeignorespace {} {
7098 reselectline
7099 }
7101 proc getblobdiffs {ids} {
7102 global blobdifffd diffids env
7103 global diffinhdr treediffs
7104 global diffcontext
7105 global ignorespace
7106 global limitdiffs vfilelimit curview
7107 global diffencoding targetline diffnparents
7111 append cmd " -w"
7112 }
7115 }
7118 return
7119 }
7120 set targetline {}
7121 set diffnparents 0
7122 set diffinhdr 0
7123 set diffencoding [get_path_encoding {}]
7127 }
7129 proc setinlist {var i val} {
7134 }
7137 } else {
7139 }
7140 }
7142 proc makediffhdr {fname ids} {
7143 global ctext curdiffstart treediffs diffencoding
7144 global ctext_file_names jump_to_here targetline diffline
7151 }
7156 set targetline {}
7159 }
7160 set diffline 0
7161 }
7163 proc getblobdiffline {bdf ids} {
7164 global diffids blobdifffd ctext curdiffstart
7165 global diffnexthead diffnextnote difffilestart
7166 global ctext_file_names ctext_file_lines
7167 global diffinhdr treediffs mergemax diffnparents
7168 global diffencoding jump_to_here targetline diffline
7170 set nr 0
7175 return 0
7176 }
7181 continue
7182 }
7183 # start of a new file
7184 set diffinhdr 1
7187 lappend ctext_file_names ""
7192 # start of a new file in a merge diff
7197 }
7199 } else {
7201 # If the name hasn't changed the length will be odd,
7202 # the middle char will be a space, and the two bits either
7203 # side will be a/name and b/name, or "a/name" and "b/name".
7204 # If the name has changed we'll get "rename from" and
7205 # "rename to" or "copy from" and "copy to" lines following
7206 # this, and we'll use them to get the filenames.
7207 # This complexity is necessary because spaces in the
7208 # filename(s) don't get escaped.
7214 continue
7215 }
7216 # unescape if quoted and chop off the a/ from the front
7219 } else {
7221 }
7222 }
7235 }
7243 }
7245 set diffinhdr 0
7252 }
7257 }
7263 }
7266 # do nothing
7267 continue
7269 set diffinhdr 0
7270 continue
7271 }
7274 } else {
7276 # parse the prefix - one ' ', '-' or '+' for each parent
7280 # prefix only has " ", "-" and "+" in it: normal diff line
7285 set num "max"
7286 }
7288 } else {
7289 set tags {}
7291 # added line
7297 set num "max"
7298 }
7300 }
7301 }
7302 }
7306 set targetline {}
7307 } else {
7308 incr diffline
7309 }
7310 }
7312 }
7313 } else {
7314 # "\ No newline at end of file",
7315 # or something else we don't recognize
7317 }
7318 }
7319 }
7320 if {[info exists seehere]} {
7322 }
7326 return 0
7327 }
7329 }
7331 proc changediffdisp {} {
7332 global ctext diffelide
7336 }
7338 proc highlightfile {loc cline} {
7339 global ctext cflist cflist_top
7346 }
7348 proc prevfile {} {
7349 global difffilestart ctext cmitmode
7352 set prev 0.0
7353 set prevline 1
7358 return
7359 }
7361 incr prevline
7362 }
7364 }
7366 proc nextfile {} {
7367 global difffilestart ctext cmitmode
7371 set line 1
7373 incr line
7376 return
7377 }
7378 }
7379 }
7381 proc clear_ctext {{first 1.0}} {
7382 global ctext smarktop smarkbot
7383 global ctext_file_names ctext_file_lines
7384 global pendinglinks
7389 }
7392 }
7395 catch {unset pendinglinks}
7396 }
7397 set ctext_file_names {}
7398 set ctext_file_lines {}
7399 }
7401 proc settabs {{firstab {}}} {
7402 global firsttabstop tabstop ctext have_tk85
7406 }
7407 set w [font measure textfont "0"]
7413 } else {
7415 }
7416 }
7418 proc incrsearch {name ix op} {
7419 global ctext searchstring searchdirn
7423 # no anchor set, use start of selection, or of visible area
7429 } else {
7431 }
7432 }
7437 }
7438 searchmarkvisible 1
7439 }
7440 }
7442 proc dosearch {} {
7443 global sstring ctext searchstring searchdirn
7447 set searchdirn -forwards
7453 set start "@0,0"
7454 }
7458 bell
7459 return
7460 }
7465 }
7466 }
7468 proc dosearchback {} {
7469 global sstring ctext searchstring searchdirn
7473 set searchdirn -backwards
7480 }
7484 bell
7485 return
7486 }
7491 }
7492 }
7494 proc searchmark {first last} {
7495 global ctext searchstring
7498 while {1} {
7503 }
7504 }
7506 proc searchmarkvisible {doall} {
7507 global ctext smarktop smarkbot
7512 # no overlap with previous
7516 } else {
7520 }
7524 }
7525 }
7526 }
7528 proc scrolltext {f0 f1} {
7529 global searchstring
7533 searchmarkvisible 0
7534 }
7535 }
7537 proc setcoords {} {
7538 global linespc charspc canvx0 canvy0
7539 global xspc1 xspc2 lthickness
7541 set linespc [font metrics mainfont -linespace]
7542 set charspc [font measure mainfont "m"]
7548 }
7550 proc redisplay {} {
7551 global canv
7552 global selectedline
7557 clear_display
7558 setcanvscroll
7560 drawvisible
7564 }
7565 }
7567 proc parsefont {f n} {
7568 global fontattr
7573 set s 10
7576 }
7582 "normal" -
7584 "roman" -
7586 }
7587 }
7588 }
7590 proc fontflags {f {isbold 0}} {
7591 global fontattr
7596 }
7598 proc fontname {f} {
7599 global fontattr
7603 lappend n "bold"
7604 }
7606 lappend n "italic"
7607 }
7609 }
7611 proc incrfont {inc} {
7612 global mainfont textfont ctext canv cflist showrefstop
7613 global stopped entries fontattr
7615 unmarkmatches
7619 set s 1
7620 }
7624 set mainfont [fontname mainfont]
7628 set s 1
7629 }
7633 set textfont [fontname textfont]
7634 setcoords
7635 settabs
7636 redisplay
7637 }
7639 proc clearsha1 {} {
7640 global sha1entry sha1string
7643 }
7644 }
7646 proc sha1change {n1 n2 op} {
7647 global sha1string currentid sha1but
7650 set state disabled
7651 } else {
7652 set state normal
7653 }
7657 } else {
7659 }
7660 }
7662 proc gotocommit {} {
7663 global sha1string tagids headids curview varcid
7671 } else {
7678 return
7679 }
7681 }
7682 }
7683 }
7686 return
7687 }
7690 } else {
7692 }
7694 }
7696 proc lineenter {x y id} {
7697 global hoverx hovery hoverid hovertimer
7698 global commitinfo canv
7704 if {[info exists hovertimer]} {
7706 }
7707 set hovertimer [after 500 linehover]
7709 }
7711 proc linemotion {x y id} {
7712 global hoverx hovery hoverid hovertimer
7717 if {[info exists hovertimer]} {
7719 }
7720 set hovertimer [after 500 linehover]
7721 }
7722 }
7724 proc lineleave {id} {
7725 global hoverid hovertimer canv
7729 if {[info exists hovertimer]} {
7731 unset hovertimer
7732 }
7733 unset hoverid
7734 }
7735 }
7737 proc linehover {} {
7738 global hoverx hovery hoverid hovertimer
7739 global canv linespc lthickness
7740 global commitinfo
7753 -fill \#ffff80 -outline black -width 1 -tags hover]
7756 -font mainfont]
7758 }
7760 proc clickisonarrow {id y} {
7761 global lthickness
7770 }
7771 }
7772 return {}
7773 }
7775 proc arrowjump {id n y} {
7776 global canv
7778 # 1 <-> 2, 3 <-> 4, etc...
7788 set yfrac 0
7789 }
7791 }
7793 proc lineclick {x y id isnew} {
7794 global ctext commitinfo children canv thickerline curview
7797 unmarkmatches
7798 unselectline
7799 normalline
7801 # draw this line thicker than normal
7809 }
7813 return
7814 }
7818 }
7819 # fill the details pane with info about this line
7821 clear_ctext
7822 settabs 0
7834 set i 0
7836 incr i
7846 }
7847 }
7849 init_flist {}
7850 }
7852 proc normalline {} {
7853 global thickerline
7854 if {[info exists thickerline]} {
7856 unset thickerline
7858 }
7859 }
7861 proc selbyid {id} {
7862 global curview
7865 }
7866 }
7868 proc mstime {} {
7869 global startmstime
7870 if {![info exists startmstime]} {
7871 set startmstime [clock clicks -milliseconds]
7872 }
7874 }
7876 proc rowmenu {x y id} {
7877 global rowctxmenu selectedline rowmenuid curview
7878 global nullid nullid2 fakerowmenu mainhead
7880 stopfinding
7883 set state disabled
7884 } else {
7885 set state normal
7886 }
7891 } else {
7893 }
7894 } else {
7896 }
7901 }
7903 proc diffvssel {dirn} {
7904 global rowmenuid selectedline
7910 } else {
7913 }
7916 }
7918 proc doseldiff {oldid newid} {
7919 global ctext
7920 global commitinfo
7923 clear_ctext
7924 init_flist [mc "Top"]
7939 }
7941 proc mkpatch {} {
7942 global rowmenuid currentid commitinfo patchtop patchnum
7944 if {![info exists currentid]} return
7949 set top .patch
7979 incr patchnum
7991 }
7993 proc mkpatchrev {} {
7994 global patchtop
8000 foreach e [list fromsha1 fromhead tosha1 tohead] \
8006 }
8007 }
8009 proc mkpatchgo {} {
8010 global patchtop nullid nullid2
8016 # trim off the initial "|"
8021 }
8023 unset patchtop
8024 }
8026 proc mkpatchcan {} {
8027 global patchtop
8030 unset patchtop
8031 }
8033 proc mktag {} {
8034 global rowmenuid mktagtop commitinfo
8036 set top .maketag
8065 }
8067 proc domktag {} {
8068 global mktagtop env tagids idtags
8074 return 0
8075 }
8078 return 0
8079 }
8080 if {[catch {
8082 } err]} {
8084 return 0
8085 }
8091 dispneartags 0
8092 run refill_reflist
8093 return 1
8094 }
8096 proc redrawtags {id} {
8097 global canv linehtag idpos currentid curview cmitlisted
8098 global canvxmax iddrawn circleitem mainheadid circlecolors
8104 set ofill yellow
8105 } else {
8107 }
8117 setcanvscroll
8118 }
8121 }
8122 }
8124 proc mktagcan {} {
8125 global mktagtop
8128 unset mktagtop
8129 }
8131 proc mktaggo {} {
8132 if {![domktag]} return
8133 mktagcan
8134 }
8136 proc writecommit {} {
8137 global rowmenuid wrcomtop commitinfo wrcomcmd
8139 set top .writecommit
8172 }
8174 proc wrcomgo {} {
8175 global wrcomtop
8182 }
8184 unset wrcomtop
8185 }
8187 proc wrcomcan {} {
8188 global wrcomtop
8191 unset wrcomtop
8192 }
8194 proc mkbranch {} {
8195 global rowmenuid mkbrtop
8197 set top .makebranch
8222 }
8224 proc mkbrgo {top} {
8225 global headids idheads
8229 set cmdargs {}
8230 set old_id {}
8233 return
8234 }
8236 if {![confirm_popup [mc \
8238 return
8239 }
8241 lappend cmdargs -f
8242 }
8245 nowbusy newbranch
8246 update
8247 if {[catch {
8249 } err]} {
8250 notbusy newbranch
8252 } else {
8253 notbusy newbranch
8259 } else {
8264 }
8265 dispneartags 0
8266 run refill_reflist
8267 }
8268 }
8270 proc exec_citool {tool_args {baseid {}}} {
8271 global commitinfo env
8273 set save_env [array get env GIT_AUTHOR_*]
8278 }
8281 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8287 }
8288 }
8292 array unset env GIT_AUTHOR_*
8294 }
8296 proc cherrypick {} {
8297 global rowmenuid curview
8298 global mainhead mainheadid
8300 set oldhead [exec git rev-parse HEAD]
8303 set ok [confirm_popup [mc "Commit %s is already\
8304 included in branch %s -- really re-apply it?" \
8307 }
8308 nowbusy cherrypick [mc "Cherry-picking"]
8309 update
8310 # Unfortunately git-cherry-pick writes stuff to stderr even when
8311 # no error occurs, and exec takes that as an indication of error...
8313 notbusy cherrypick
8314 if {[regexp -line \
8315 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8317 error_popup [mc "Cherry-pick failed because of local changes\
8318 to file '%s'.\nPlease commit, reset or stash\
8320 } elseif {[regexp -line \
8321 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8323 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8324 conflict.\nDo you wish to run git citool to\
8325 resolve it?"]]} {
8326 # Force citool to read MERGE_MSG
8327 file delete [file join [gitdir] "GITGUI_MSG"]
8329 }
8330 } else {
8332 }
8333 run updatecommits
8334 return
8335 }
8336 set newhead [exec git rev-parse HEAD]
8338 notbusy cherrypick
8339 error_popup [mc "No changes committed"]
8340 return
8341 }
8348 }
8353 }
8354 notbusy cherrypick
8355 }
8357 proc resethead {} {
8358 global mainhead rowmenuid confirm_ok resettype
8360 set confirm_ok 0
8361 set w ".confirmreset"
8367 -justify center -aspect 1000
8372 set resettype mixed
8374 -text [mc "Soft: Leave working tree and index untouched"]
8377 -text [mc "Mixed: Leave working tree untouched, reset index"]
8380 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8391 if {[catch {set fd [open \
8394 } else {
8395 dohidelocalchanges
8397 nowbusy reset [mc "Resetting"]
8399 }
8400 }
8402 proc readresetstat {fd} {
8403 global mainhead mainheadid showlocalchanges rprogcoord
8408 adjustprogress
8409 }
8410 return 1
8411 }
8412 set rprogcoord 0
8413 adjustprogress
8414 notbusy reset
8417 }
8419 set newhead [exec git rev-parse HEAD]
8426 }
8428 doshowlocalchanges
8429 }
8430 return 0
8431 }
8433 # context menu for a head
8434 proc headmenu {x y id head} {
8435 global headmenuid headmenuhead headctxmenu mainhead
8437 stopfinding
8440 set state normal
8442 set state disabled
8443 }
8447 }
8449 proc cobranch {} {
8450 global headmenuid headmenuhead headids
8451 global showlocalchanges mainheadid
8453 # check the tree is clean first??
8454 nowbusy checkout [mc "Checking out"]
8455 update
8456 dohidelocalchanges
8457 if {[catch {
8459 } err]} {
8460 notbusy checkout
8463 dodiffindex
8464 }
8465 } else {
8467 }
8468 }
8470 proc readcheckoutstat {fd newhead newheadid} {
8471 global mainhead mainheadid headids showlocalchanges progresscoords
8476 adjustprogress
8477 }
8478 return 1
8479 }
8480 set progresscoords {0 0}
8481 adjustprogress
8482 notbusy checkout
8485 }
8493 dodiffindex
8494 }
8495 }
8497 proc rmbranch {} {
8498 global headmenuid headmenuhead mainhead
8499 global idheads
8503 # this check shouldn't be needed any more...
8505 error_popup [mc "Cannot delete the currently checked-out branch"]
8506 return
8507 }
8510 # the stuff on this branch isn't on any other branch
8511 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8513 }
8514 nowbusy rmbranch
8515 update
8517 notbusy rmbranch
8519 return
8520 }
8524 notbusy rmbranch
8525 dispneartags 0
8526 run refill_reflist
8527 }
8529 # Display a list of tags and heads
8530 proc showrefs {} {
8531 global showrefstop bgcolor fgcolor selectbgcolor
8532 global bglist fglist reflistfilter reflist maincursor
8534 set top .showrefs
8538 refill_reflist
8539 return
8540 }
8548 -spacing1 1 -spacing3 1 -state disabled
8559 set reflistfilter "*"
8560 trace add variable reflistfilter write reflistfilter_change
8572 set reflist {}
8573 refill_reflist
8574 }
8576 proc sel_reflist {w x y} {
8577 global showrefstop reflist headids tagids otherrefids
8587 }
8589 }
8591 proc unsel_reflist {} {
8592 global showrefstop
8596 }
8598 proc reflistfilter_change {n1 n2 op} {
8599 global reflistfilter
8601 after cancel refill_reflist
8602 after 200 refill_reflist
8603 }
8605 proc refill_reflist {} {
8606 global reflist reflistfilter showrefstop headids tagids otherrefids
8607 global curview
8610 set refs {}
8611 foreach n [array names headids] {
8615 } else {
8617 }
8618 }
8619 }
8620 foreach n [array names tagids] {
8624 } else {
8626 }
8627 }
8628 }
8629 foreach n [array names otherrefids] {
8633 } else {
8635 }
8636 }
8637 }
8645 set i 0
8646 set j 0
8655 }
8656 } else {
8657 set cmp -1
8658 }
8659 } else {
8660 set cmp 1
8661 }
8663 -1 {
8665 incr i
8666 }
8667 0 {
8668 incr i
8669 incr j
8670 }
8671 1 {
8676 incr j
8677 }
8678 }
8679 }
8681 # delete last newline
8684 }
8686 # Stuff for finding nearby tags
8687 proc getallcommits {} {
8688 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8689 global idheads idtags idotherrefs allparents tagobjid
8691 if {![info exists allcommits]} {
8692 set nextarc 0
8693 set allcommits 0
8694 set seeds {}
8695 set allcwait 0
8696 set cachedarcs 0
8697 set allccache [file join [gitdir] "gitk.cache"]
8698 if {![catch {
8700 set allcwait 1
8702 }]} return
8703 }
8706 return
8707 }
8708 set cmd [list | git rev-list --parents]
8711 set ids "--all"
8712 } else {
8713 set refs [concat [array names idheads] [array names idtags] \
8714 [array names idotherrefs]]
8715 set ids {}
8716 set tagobjs {}
8717 foreach name [array names tagobjid] {
8719 }
8724 }
8725 }
8729 }
8730 }
8731 }
8735 incr allcommits
8736 nowbusy allcommits
8738 } else {
8739 dispneartags 0
8740 }
8741 }
8743 # Since most commits have 1 parent and 1 child, we group strings of
8744 # such commits into "arcs" joining branch/merge points (BMPs), which
8745 # are commits that either don't have 1 parent or don't have 1 child.
8746 #
8747 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8748 # arcout(id) - outgoing arcs for BMP
8749 # arcids(a) - list of IDs on arc including end but not start
8750 # arcstart(a) - BMP ID at start of arc
8751 # arcend(a) - BMP ID at end of arc
8752 # growing(a) - arc a is still growing
8753 # arctags(a) - IDs out of arcids (excluding end) that have tags
8754 # archeads(a) - IDs out of arcids (excluding end) that have heads
8755 # The start of an arc is at the descendent end, so "incoming" means
8756 # coming from descendents, and "outgoing" means going towards ancestors.
8758 proc getallclines {fd} {
8759 global allparents allchildren idtags idheads nextarc
8760 global arcnos arcids arctags arcout arcend arcstart archeads growing
8761 global seeds allcommits cachedarcs allcupdate
8763 set nid 0
8767 # seen it already
8768 continue
8769 }
8770 set cachedarcs 0
8777 } else {
8783 }
8786 }
8788 # seen parent already
8791 }
8795 }
8798 continue
8799 }
8800 }
8805 }
8807 set ao {}
8810 set a [incr nextarc]
8819 # seen it already, may need to make a new branch
8822 }
8826 }
8828 }
8830 }
8832 global cached_dheads cached_dtags cached_atags
8833 catch {unset cached_dheads}
8834 catch {unset cached_dtags}
8835 catch {unset cached_atags}
8836 }
8839 }
8840 set cacheok 1
8841 if {[catch {
8844 } err]} {
8845 # got an error reading the list of commits
8846 # if we were updating, try rereading the whole thing again
8848 incr allcommits -1
8850 return
8851 }
8852 error_popup "[mc "Error reading commit topology information;\
8853 branch and preceding/following tag information\
8855 set cacheok 0
8856 }
8857 if {[incr allcommits -1] == 0} {
8858 notbusy allcommits
8860 run savecache
8861 }
8862 }
8863 dispneartags 0
8864 return 0
8865 }
8867 proc recalcarc {a} {
8868 global arctags archeads arcids idtags idheads
8870 set at {}
8871 set ah {}
8875 }
8878 }
8879 }
8882 }
8884 proc splitarc {p} {
8885 global arcnos arcids nextarc arctags archeads idtags idheads
8886 global arcstart arcend arcout allparents growing
8891 return
8892 }
8897 return
8898 }
8899 set na [incr nextarc]
8902 } else {
8906 }
8916 }
8921 } else {
8924 }
8925 }
8927 # reconstruct tags and heads lists
8931 } else {
8934 }
8935 }
8937 # Update things for a new commit added that is a child of one
8938 # existing commit. Used when cherry-picking.
8939 proc addnewchild {id p} {
8940 global allparents allchildren idtags nextarc
8941 global arcnos arcids arctags arcout arcend arcstart archeads growing
8942 global seeds allcommits
8950 set a [incr nextarc]
8958 }
8961 }
8963 # This implements a cache for the topology information.
8964 # The cache saves, for each arc, the start and end of the arc,
8965 # the ids on the arc, and the outgoing arcs from the end.
8966 proc readcache {f} {
8967 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8968 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8969 global allcwait
8975 }
8976 if {[catch {
8978 # finish reading the cache and setting up arctags, etc.
8982 foreach id [array names idtags] {
8988 }
8989 }
8990 }
8991 foreach id [array names idheads] {
8997 }
8998 }
8999 }
9003 }
9004 }
9005 set allcwait 0
9006 } else {
9016 }
9020 } else {
9024 }
9025 }
9031 }
9034 }
9037 }
9039 }
9040 } err]} {
9042 return 0
9043 }
9045 getallcommits
9046 }
9048 }
9050 proc getcache {f} {
9051 global nextarc cachedarcs possible_seeds
9053 if {[catch {
9056 # make sure it's an integer
9059 set nextarc 0
9060 set possible_seeds {}
9062 } err]} {
9064 }
9065 return 0
9066 }
9068 proc dropcache {err} {
9069 global allcwait nextarc cachedarcs seeds
9072 foreach v {arcnos arcout arcids arcstart arcend growing \
9073 arctags archeads allparents allchildren} {
9076 }
9077 set allcwait 0
9078 set nextarc 0
9079 set cachedarcs 0
9080 set seeds {}
9081 getallcommits
9082 }
9084 proc writecache {f} {
9085 global cachearc cachedarcs allccache
9086 global arcstart arcend arcnos arcids arcout
9092 }
9093 if {[catch {
9097 } else {
9099 }
9100 }
9101 } err]} {
9105 return 0
9106 }
9111 return 0
9112 }
9113 return 1
9114 }
9116 proc savecache {} {
9117 global nextarc cachedarcs cachearc allccache
9120 set cachearc 0
9122 catch {
9126 }
9127 }
9129 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9130 # or 0 if neither is true.
9131 proc anc_or_desc {a b} {
9132 global arcout arcstart arcend arcnos cached_isanc
9135 # Both are on the same arc(s); either both are the same BMP,
9136 # or if one is not a BMP, the other is also not a BMP or is
9137 # the BMP at end of the arc (and it only has 1 incoming arc).
9138 # Or both can be BMPs with no incoming arcs.
9140 return 0
9141 }
9147 return 1
9148 } else {
9149 return -1
9150 }
9151 }
9157 } else {
9158 set aend {}
9159 }
9161 } else {
9163 }
9168 } else {
9169 set bend {}
9170 }
9172 } else {
9174 }
9176 return 1
9177 }
9179 return -1
9180 }
9183 return 1
9184 }
9185 }
9188 return -1
9189 }
9191 return 0
9192 }
9193 }
9201 continue
9202 }
9208 return 1
9212 return -1
9213 }
9219 }
9220 }
9221 }
9224 return 0
9225 }
9229 # and returns 0 if so and 1 if not.
9230 # If we subsequently discover a tag on such a growing tip, and that
9233 # isn't a good choice to display as a descendent tag of
9237 #
9238 proc is_certain {desc anc} {
9239 global arcnos arcout arcstart arcend growing problems
9241 set certain {}
9243 # tags on the same arc are certain
9245 return 1
9246 }
9251 }
9252 }
9255 } else {
9258 }
9260 return 1
9261 }
9264 set nnh 1
9265 set ngrowanc 0
9269 incr nnh -1
9270 }
9276 incr ngrowanc
9277 }
9278 } else {
9285 incr nnh -1
9286 }
9288 incr ngrowanc -1
9289 }
9299 incr nnh -1
9300 }
9302 incr ngrowanc -1
9303 }
9305 }
9306 }
9307 }
9308 }
9309 }
9310 }
9314 } else {
9317 incr nnh
9318 }
9319 }
9320 }
9321 }
9322 foreach x [array names growanc] {
9324 return 0
9325 }
9326 return 0
9327 }
9328 return 1
9329 }
9331 proc validate_arctags {a} {
9332 global arctags idtags
9334 set i -1
9337 incr i
9340 incr i -1
9341 }
9342 }
9344 }
9346 proc validate_archeads {a} {
9347 global archeads idheads
9349 set i -1
9352 incr i
9355 incr i -1
9356 }
9357 }
9359 }
9361 # Return the list of IDs that have tags that are descendents of id,
9362 # ignoring IDs that are descendents of IDs already reported.
9363 proc desctags {id} {
9364 global arcnos arcstart arcids arctags idtags allparents
9365 global growing cached_dtags
9368 return {}
9369 }
9370 set t1 [clock clicks -milliseconds]
9373 # part-way along an arc; check that arc first
9378 set tid {}
9383 }
9386 }
9387 }
9391 }
9392 }
9395 }
9400 set nc 1
9406 incr nc -1
9407 }
9408 # ignore tags on starting node
9412 set ta 1
9415 set ta 1
9416 }
9417 }
9424 }
9425 }
9434 }
9437 }
9439 incr nc -1
9440 }
9442 }
9443 }
9444 }
9449 incr nc
9450 }
9451 }
9452 }
9453 }
9454 set tags {}
9455 foreach id [array names tagloc] {
9460 }
9461 }
9462 }
9463 }
9464 set t2 [clock clicks -milliseconds]
9467 # remove tags that are descendents of other tags
9475 incr j -1
9476 incr i -1
9479 incr i -1
9480 break
9481 }
9482 }
9483 }
9485 if {[array names growing] ne {}} {
9486 # graph isn't finished, need to check if any tag could get
9487 # eclipsed by another tag coming later. Simply ignore any
9488 # tags that could later get eclipsed.
9489 set ctags {}
9493 }
9494 }
9497 } else {
9499 }
9500 } else {
9502 }
9503 set t3 [clock clicks -milliseconds]
9507 }
9509 }
9511 proc anctags {id} {
9512 global arcnos arcids arcout arcend arctags idtags allparents
9513 global growing cached_atags
9516 return {}
9517 }
9518 set t1 [clock clicks -milliseconds]
9521 # part-way along an arc; check that arc first
9530 }
9531 }
9532 }
9534 return {}
9535 }
9539 }
9540 }
9543 }
9548 set taglist {}
9549 set nc 1
9555 incr nc -1
9556 }
9557 # ignore tags on starting node
9561 set td 1
9564 set td 1
9565 }
9566 }
9572 }
9573 }
9585 }
9586 }
9589 }
9591 incr nc -1
9592 }
9594 }
9595 }
9596 }
9601 incr nc
9602 }
9603 }
9604 }
9605 }
9606 set t2 [clock clicks -milliseconds]
9608 set tags {}
9609 foreach id [array names tagloc] {
9614 }
9615 }
9616 }
9617 }
9619 # remove tags that are ancestors of other tags
9627 incr j -1
9628 incr i -1
9631 incr i -1
9632 break
9633 }
9634 }
9635 }
9637 if {[array names growing] ne {}} {
9638 # graph isn't finished, need to check if any tag could get
9639 # eclipsed by another tag coming later. Simply ignore any
9640 # tags that could later get eclipsed.
9641 set ctags {}
9645 }
9646 }
9649 } else {
9651 }
9652 } else {
9654 }
9655 set t3 [clock clicks -milliseconds]
9659 }
9661 }
9663 # Return the list of IDs that have heads that are descendents of id,
9664 # including id itself if it has a head.
9665 proc descheads {id} {
9666 global arcnos arcstart arcids archeads idheads cached_dheads
9667 global allparents
9670 return {}
9671 }
9672 set aret {}
9674 # part-way along an arc; check it first
9683 }
9684 }
9686 }
9690 set ret {}
9695 } else {
9698 }
9704 }
9705 }
9710 }
9711 }
9712 }
9713 }
9717 }
9719 proc addedtag {id} {
9720 global arcnos arcout cached_dtags cached_atags
9725 }
9726 catch {unset cached_dtags}
9727 catch {unset cached_atags}
9728 }
9730 proc addedhead {hid head} {
9731 global arcnos arcout cached_dheads
9736 }
9737 catch {unset cached_dheads}
9738 }
9740 proc removedhead {hid head} {
9741 global cached_dheads
9743 catch {unset cached_dheads}
9744 }
9746 proc movedhead {hid head} {
9747 global arcnos arcout cached_dheads
9752 }
9753 catch {unset cached_dheads}
9754 }
9756 proc changedrefs {} {
9757 global cached_dheads cached_dtags cached_atags
9758 global arctags archeads arcnos arcout idheads idtags
9760 foreach id [concat [array names idheads] [array names idtags]] {
9766 }
9767 }
9768 }
9769 catch {unset cached_dtags}
9770 catch {unset cached_atags}
9771 catch {unset cached_dheads}
9772 }
9774 proc rereadrefs {} {
9775 global idtags idheads idotherrefs mainheadid
9777 set refids [concat [array names idtags] \
9778 [array names idheads] [array names idotherrefs]]
9782 }
9783 }
9785 readrefs
9786 changedrefs
9788 [array names idheads] [array names idotherrefs]]]
9793 }
9794 }
9798 }
9799 run refill_reflist
9800 }
9802 proc listrefs {id} {
9803 global idtags idheads idotherrefs
9805 set x {}
9808 }
9809 set y {}
9812 }
9813 set z {}
9816 }
9818 }
9820 proc showtag {tag isnew} {
9821 global ctext tagcontents tagids linknum tagobjid
9825 }
9827 clear_ctext
9828 settabs 0
9829 set linknum 0
9831 catch {
9833 }
9834 }
9837 } else {
9839 }
9842 init_flist {}
9843 }
9845 proc doquit {} {
9846 global stopped
9847 global gitktmpdir
9849 set stopped 100
9850 savestuff .
9851 destroy .
9853 if {[info exists gitktmpdir]} {
9855 }
9856 }
9858 proc mkfontdisp {font top which} {
9867 }
9869 proc choosefont {font which} {
9870 global fontparam fontlist fonttop fontattr
9871 global prefstop
9879 set top .gitkfont
9882 font create sample
9889 set fontlist [lsort [font families]]
9900 -textvariable fontparam(size) \
9901 -validatecommand {string is integer -strict %s}
9903 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9904 -variable fontparam(weight) -onvalue bold -offvalue normal
9906 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9907 -variable fontparam(slant) -onvalue italic -offvalue roman
9911 -background white
9913 -fill black -tags text
9925 trace add variable fontparam write chg_fontparam
9926 } else {
9929 }
9934 }
9935 }
9937 proc centertext {w} {
9939 }
9941 proc fontok {} {
9942 global fontparam fontpref prefstop
9948 }
9951 }
9955 fontcan
9956 }
9958 proc fontcan {} {
9959 global fonttop fontparam
9961 if {[info exists fonttop]} {
9963 catch {font delete sample}
9964 unset fonttop
9965 unset fontparam
9966 }
9967 }
9969 proc selfontfam {} {
9970 global fonttop fontparam
9975 }
9976 }
9978 proc chg_fontparam {v sub op} {
9979 global fontparam
9982 }
9984 proc doprefs {} {
9985 global maxwidth maxgraphpct
9986 global oldprefs prefstop showneartags showlocalchanges
9987 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
9988 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9990 set top .gitkprefs
9994 return
9995 }
9996 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9997 limitdiffs tabstop perfile_attrs} {
9999 }
10007 -font optionfont
10011 -font optionfont
10049 -padx 10
10051 -command choose_extdiff
10078 "diff hunk header" \
10084 [mc "marked line background"] \
10108 }
10110 proc choose_extdiff {} {
10111 global extdifftool
10113 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
10116 }
10117 }
10119 proc choosecolor {v vi w x cmd} {
10128 }
10130 proc setselbg {c} {
10131 global bglist cflist
10134 }
10138 }
10140 proc setbg {c} {
10141 global bglist
10145 }
10146 }
10148 proc setfg {c} {
10149 global fglist canv
10153 }
10156 }
10158 proc prefscan {} {
10159 global oldprefs prefstop
10161 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10162 limitdiffs tabstop perfile_attrs} {
10165 }
10167 unset prefstop
10168 fontcan
10169 }
10171 proc prefsok {} {
10172 global maxwidth maxgraphpct
10173 global oldprefs prefstop showneartags showlocalchanges
10174 global fontpref mainfont textfont uifont
10175 global limitdiffs treediffs perfile_attrs
10178 unset prefstop
10179 fontcan
10180 set fontchanged 0
10184 eval font configure mainfont [fontflags mainfont]
10185 eval font configure mainfontbold [fontflags mainfont 1]
10186 setcoords
10187 set fontchanged 1
10188 }
10192 eval font configure textfont [fontflags textfont]
10193 eval font configure textfontbold [fontflags textfont 1]
10194 }
10198 eval font configure uifont [fontflags uifont]
10199 }
10200 settabs
10203 doshowlocalchanges
10204 } else {
10205 dohidelocalchanges
10206 }
10207 }
10210 # treediffs elements are limited by path;
10211 # won't have encodings cached if perfile_attrs was just turned on
10212 catch {unset treediffs}
10213 }
10216 redisplay
10219 reselectline
10220 }
10221 }
10223 proc formatdate {d} {
10224 global datetimeformat
10227 }
10229 }
10231 # This list of encoding names and aliases is distilled from
10232 # http://www.iana.org/assignments/character-sets.
10233 # Not all of them are supported by Tcl.
10234 set encoding_aliases {
10235 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10236 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10237 { ISO-10646-UTF-1 csISO10646UTF1 }
10238 { ISO_646.basic:1983 ref csISO646basic1983 }
10239 { INVARIANT csINVARIANT }
10240 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10241 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10242 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10243 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10244 { NATS-DANO iso-ir-9-1 csNATSDANO }
10245 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10246 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10247 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10248 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10249 { ISO-2022-KR csISO2022KR }
10250 { EUC-KR csEUCKR }
10251 { ISO-2022-JP csISO2022JP }
10252 { ISO-2022-JP-2 csISO2022JP2 }
10253 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10254 csISO13JISC6220jp }
10255 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10256 { IT iso-ir-15 ISO646-IT csISO15Italian }
10257 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10258 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10259 { greek7-old iso-ir-18 csISO18Greek7Old }
10260 { latin-greek iso-ir-19 csISO19LatinGreek }
10261 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10262 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10263 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10264 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10265 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10266 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10267 { INIS iso-ir-49 csISO49INIS }
10268 { INIS-8 iso-ir-50 csISO50INIS8 }
10269 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10270 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10271 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10272 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10273 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10274 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10275 csISO60Norwegian1 }
10276 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10277 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10278 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10279 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10280 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10281 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10282 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10283 { greek7 iso-ir-88 csISO88Greek7 }
10284 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10285 { iso-ir-90 csISO90 }
10286 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10287 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10288 csISO92JISC62991984b }
10289 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10290 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10291 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10292 csISO95JIS62291984handadd }
10293 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10294 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10295 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10296 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10297 CP819 csISOLatin1 }
10298 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10299 { T.61-7bit iso-ir-102 csISO102T617bit }
10300 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10301 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10302 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10303 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10304 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10305 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10306 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10307 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10308 arabic csISOLatinArabic }
10309 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10310 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10311 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10312 greek greek8 csISOLatinGreek }
10313 { T.101-G2 iso-ir-128 csISO128T101G2 }
10314 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10315 csISOLatinHebrew }
10316 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10317 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10318 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10319 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10320 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10321 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10322 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10323 csISOLatinCyrillic }
10324 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10325 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10326 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10327 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10328 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10329 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10330 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10331 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10332 { ISO_10367-box iso-ir-155 csISO10367Box }
10333 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10334 { latin-lap lap iso-ir-158 csISO158Lap }
10335 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10336 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10337 { us-dk csUSDK }
10338 { dk-us csDKUS }
10339 { JIS_X0201 X0201 csHalfWidthKatakana }
10340 { KSC5636 ISO646-KR csKSC5636 }
10341 { ISO-10646-UCS-2 csUnicode }
10342 { ISO-10646-UCS-4 csUCS4 }
10343 { DEC-MCS dec csDECMCS }
10344 { hp-roman8 roman8 r8 csHPRoman8 }
10345 { macintosh mac csMacintosh }
10346 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10347 csIBM037 }
10348 { IBM038 EBCDIC-INT cp038 csIBM038 }
10349 { IBM273 CP273 csIBM273 }
10350 { IBM274 EBCDIC-BE CP274 csIBM274 }
10351 { IBM275 EBCDIC-BR cp275 csIBM275 }
10352 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10353 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10354 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10355 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10356 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10357 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10358 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10359 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10360 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10361 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10362 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10363 { IBM437 cp437 437 csPC8CodePage437 }
10364 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10365 { IBM775 cp775 csPC775Baltic }
10366 { IBM850 cp850 850 csPC850Multilingual }
10367 { IBM851 cp851 851 csIBM851 }
10368 { IBM852 cp852 852 csPCp852 }
10369 { IBM855 cp855 855 csIBM855 }
10370 { IBM857 cp857 857 csIBM857 }
10371 { IBM860 cp860 860 csIBM860 }
10372 { IBM861 cp861 861 cp-is csIBM861 }
10373 { IBM862 cp862 862 csPC862LatinHebrew }
10374 { IBM863 cp863 863 csIBM863 }
10375 { IBM864 cp864 csIBM864 }
10376 { IBM865 cp865 865 csIBM865 }
10377 { IBM866 cp866 866 csIBM866 }
10378 { IBM868 CP868 cp-ar csIBM868 }
10379 { IBM869 cp869 869 cp-gr csIBM869 }
10380 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10381 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10382 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10383 { IBM891 cp891 csIBM891 }
10384 { IBM903 cp903 csIBM903 }
10385 { IBM904 cp904 904 csIBBM904 }
10386 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10387 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10388 { IBM1026 CP1026 csIBM1026 }
10389 { EBCDIC-AT-DE csIBMEBCDICATDE }
10390 { EBCDIC-AT-DE-A csEBCDICATDEA }
10391 { EBCDIC-CA-FR csEBCDICCAFR }
10392 { EBCDIC-DK-NO csEBCDICDKNO }
10393 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10394 { EBCDIC-FI-SE csEBCDICFISE }
10395 { EBCDIC-FI-SE-A csEBCDICFISEA }
10396 { EBCDIC-FR csEBCDICFR }
10397 { EBCDIC-IT csEBCDICIT }
10398 { EBCDIC-PT csEBCDICPT }
10399 { EBCDIC-ES csEBCDICES }
10400 { EBCDIC-ES-A csEBCDICESA }
10401 { EBCDIC-ES-S csEBCDICESS }
10402 { EBCDIC-UK csEBCDICUK }
10403 { EBCDIC-US csEBCDICUS }
10404 { UNKNOWN-8BIT csUnknown8BiT }
10405 { MNEMONIC csMnemonic }
10406 { MNEM csMnem }
10407 { VISCII csVISCII }
10408 { VIQR csVIQR }
10409 { KOI8-R csKOI8R }
10410 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10411 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10412 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10413 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10414 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10415 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10416 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10417 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10418 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10419 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10420 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10421 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10422 { IBM1047 IBM-1047 }
10423 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10424 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10425 { UNICODE-1-1 csUnicode11 }
10426 { CESU-8 csCESU-8 }
10427 { BOCU-1 csBOCU-1 }
10428 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10429 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10430 l8 }
10431 { ISO-8859-15 ISO_8859-15 Latin-9 }
10432 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10433 { GBK CP936 MS936 windows-936 }
10434 { JIS_Encoding csJISEncoding }
10435 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10436 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10437 EUC-JP }
10438 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10439 { ISO-10646-UCS-Basic csUnicodeASCII }
10440 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10441 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10442 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10443 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10444 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10445 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10446 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10447 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10448 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10449 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10450 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10451 { Ventura-US csVenturaUS }
10452 { Ventura-International csVenturaInternational }
10453 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10454 { PC8-Turkish csPC8Turkish }
10455 { IBM-Symbols csIBMSymbols }
10456 { IBM-Thai csIBMThai }
10457 { HP-Legal csHPLegal }
10458 { HP-Pi-font csHPPiFont }
10459 { HP-Math8 csHPMath8 }
10460 { Adobe-Symbol-Encoding csHPPSMath }
10461 { HP-DeskTop csHPDesktop }
10462 { Ventura-Math csVenturaMath }
10463 { Microsoft-Publishing csMicrosoftPublishing }
10464 { Windows-31J csWindows31J }
10465 { GB2312 csGB2312 }
10466 { Big5 csBig5 }
10467 }
10469 proc tcl_encoding {enc} {
10470 global encoding_aliases tcl_encoding_cache
10473 }
10474 set names [encoding names]
10479 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10482 }
10483 }
10488 # look through the aliases for one that tcl knows about
10494 }
10495 }
10497 }
10498 break
10499 }
10500 }
10501 set tclenc {}
10504 }
10507 }
10509 proc gitattr {path attr default} {
10510 global path_attr_cache
10513 } else {
10514 set r "unspecified"
10517 }
10519 }
10522 }
10524 }
10526 proc cache_gitattr {attr pathlist} {
10527 global path_attr_cache
10528 set newlist {}
10532 }
10533 }
10534 set lim 1000
10535 if {[tk windowingsystem] == "win32"} {
10536 # windows has a 32k limit on the arguments to a command...
10537 set lim 30
10538 }
10547 }
10549 }
10550 }
10551 }
10552 }
10553 }
10555 proc get_path_encoding {path} {
10556 global gui_encoding perfile_attrs
10562 }
10563 }
10565 }
10567 # First check that Tcl/Tk is recent enough
10568 if {[catch {package require Tk 8.4} err]} {
10569 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10570 Gitk requires at least Tcl/Tk 8.4."]
10571 exit 1
10572 }
10574 # defaults...
10575 set wrcomcmd "git diff-tree --stdin -p --pretty"
10577 set gitencoding {}
10578 catch {
10579 set gitencoding [exec git config --get i18n.commitencoding]
10580 }
10581 catch {
10582 set gitencoding [exec git config --get i18n.logoutputencoding]
10583 }
10585 set gitencoding "utf-8"
10586 }
10590 }
10592 set gui_encoding [encoding system]
10593 catch {
10594 set enc [exec git config --get gui.encoding]
10599 } else {
10601 }
10602 }
10603 }
10605 set mainfont {Helvetica 9}
10606 set textfont {Courier 9}
10607 set uifont {Helvetica 9 bold}
10608 set tabstop 8
10609 set findmergefiles 0
10610 set maxgraphpct 50
10611 set maxwidth 16
10612 set revlistorder 0
10613 set fastdate 0
10614 set uparrowlen 5
10615 set downarrowlen 5
10616 set mingaplen 100
10617 set cmitmode "patch"
10618 set wrapcomment "none"
10619 set showneartags 1
10620 set maxrefs 20
10621 set maxlinelen 200
10622 set showlocalchanges 1
10623 set limitdiffs 1
10624 set datetimeformat "%Y-%m-%d %H:%M:%S"
10625 set autoselect 1
10626 set perfile_attrs 0
10628 set extdifftool "meld"
10630 set colors {green red blue magenta darkgrey brown orange}
10631 set bgcolor white
10632 set fgcolor black
10633 set diffcolors {red "#00a000" blue}
10634 set diffcontext 3
10635 set ignorespace 0
10636 set selectbgcolor gray85
10637 set markbgcolor "#e0e0ff"
10639 set circlecolors {white blue gray blue blue}
10641 # button for popping up context menus
10642 if {[tk windowingsystem] eq "aqua"} {
10643 set ctxbut <Button-2>
10644 } else {
10645 set ctxbut <Button-3>
10646 }
10648 ## For msgcat loading, first locate the installation location.
10649 if { [info exists ::env(GITK_MSGSDIR)] } {
10650 ## Msgsdir was manually set in the environment.
10651 set gitk_msgsdir $::env(GITK_MSGSDIR)
10652 } else {
10653 ## Let's guess the prefix from argv0.
10657 unset gitk_prefix
10658 }
10660 ## Internationalization (i18n) through msgcat and gettext. See
10661 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10662 package require msgcat
10663 namespace import ::msgcat::mc
10664 ## And eventually load the actual message catalog
10667 catch {source ~/.gitk}
10669 font create optionfont -family sans-serif -size -12
10672 eval font create mainfont [fontflags mainfont]
10673 eval font create mainfontbold [fontflags mainfont 1]
10676 eval font create textfont [fontflags textfont]
10677 eval font create textfontbold [fontflags textfont 1]
10680 eval font create uifont [fontflags uifont]
10682 setoptions
10684 # check that we can find a .git directory somewhere...
10685 if {[catch {set gitdir [gitdir]}]} {
10686 show_error {} . [mc "Cannot find a git repository here."]
10687 exit 1
10688 }
10691 exit 1
10692 }
10694 set selecthead {}
10695 set selectheadid {}
10697 set revtreeargs {}
10698 set cmdline_files {}
10699 set i 0
10700 set revtreeargscmd {}
10703 "" { }
10704 "--" {
10706 break
10707 }
10708 "--select-commit=*" {
10710 }
10711 "--argscmd=*" {
10713 }
10714 default {
10716 }
10717 }
10718 incr i
10719 }
10722 set selecthead {}
10723 }
10726 # no -- on command line, but some arguments (other than --argscmd)
10727 if {[catch {
10732 # Unfortunately git rev-parse doesn't produce an error when
10733 # something is both a revision and a filename. To be consistent
10734 # with git log and git rev-list, check revtreeargs for filenames.
10737 show_error {} . [mc "Ambiguous argument '%s': both revision\
10739 exit 1
10740 }
10741 }
10742 } err]} {
10744 # so look for "fatal:".
10748 }
10750 exit 1
10751 }
10752 }
10754 set nullid "0000000000000000000000000000000000000000"
10755 set nullid2 "0000000000000000000000000000000000000001"
10756 set nullfile "/dev/null"
10760 set runq {}
10761 set history {}
10762 set historyindex 0
10763 set fh_serial 0
10764 set nhl_names {}
10765 set highlight_paths {}
10766 set findpattern {}
10767 set searchdirn -forwards
10768 set boldids {}
10769 set boldnameids {}
10770 set diffelide {0 0}
10771 set markingmatches 0
10772 set linkentercount 0
10773 set need_redisplay 0
10774 set nrows_drawn 0
10775 set firsttabstop 0
10777 set nextviewnum 1
10778 set curview 0
10779 set selectedview 0
10780 set selectedhlview [mc "None"]
10781 set highlight_related [mc "None"]
10782 set highlight_files {}
10783 set viewfiles(0) {}
10784 set viewperm(0) 0
10785 set viewargs(0) {}
10786 set viewargscmd(0) {}
10788 set selectedline {}
10789 set numcommits 0
10790 set loginstance 0
10791 set cmdlineok 0
10792 set stopped 0
10793 set stuffsaved 0
10794 set patchnum 0
10795 set lserial 0
10796 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10797 setcoords
10798 makewindow
10799 # wait for the window to become visible
10800 tkwait visibility .
10802 readrefs
10805 # create a view for the files/dirs specified on the command line
10806 set curview 1
10807 set selectedview 1
10808 set nextviewnum 2
10809 set viewname(1) [mc "Command line"]
10813 set viewperm(1) 0
10814 set vdatemode(1) 0
10815 addviewmenu 1
10816 .bar.view entryconf [mca "Edit view..."] -state normal
10817 .bar.view entryconf [mca "Delete view"] -state normal
10818 }
10820 if {[info exists permviews]} {
10823 incr nextviewnum
10830 }
10831 }
10832 getcommits {}