| blob | 2048798bcf7c1207f7ea86ed5cfad2d34fd22f25 |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2008 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 proc gitdir {} {
11 global env
16 }
17 }
19 # A simple scheduler for compute-intensive stuff.
20 # The aim is to make sure that event handlers for GUI actions can
21 # run at least every 50-100 ms. Unfortunately fileevent handlers are
22 # run before X event handlers, so reading from a fast source can
23 # make the GUI completely unresponsive.
24 proc run args {
25 global isonrunq runq currunq
30 after idle dorunq
31 }
34 }
38 }
41 global runq currunq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq currunq
73 unset currunq
78 # script returns 1 if it wants to be readded
79 # file readers return 2 if they could do more straight away
83 }
86 }
89 }
91 after idle dorunq
92 }
93 }
96 global commfd leftover loginstance
102 }
105 global nr_unmerged
107 # find the list of unmerged files
114 exit 1
115 }
121 incr nr_unmerged
124 }
125 }
128 }
130 proc parseviewargs {n arglist} {
131 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
135 set glflags {}
136 set diffargs {}
137 set nextisval 0
138 set revargs {}
140 set allknown 1
141 set filtered 0
142 set i -1
144 incr i
147 set nextisval 0
148 continue
149 }
151 "-d" -
152 "--date-order" {
154 # remove from origargs in case we hit an unknown option
156 incr i -1
157 }
158 # These request or affect diff output, which we don't want.
159 # Some could be used to set our defaults for diff display.
166 lappend diffargs $arg
167 }
168 # These cause our parsing of git log's output to fail, or else
169 # they're options we want to set ourselves, so ignore them.
177 }
178 # These are harmless, and some are even useful
183 lappend glflags $arg
184 }
185 # These mean that we get a subset of the commits
193 lappend glflags $arg
194 }
195 # This appears to be the only one that has a value as a
196 # separate word following it
200 lappend glflags $arg
201 }
204 lappend revargs $arg
205 }
207 lappend revargs $arg
208 }
211 # git rev-parse doesn't understand --merge
212 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
213 }
214 # Other flag arguments including -<n>
219 # a flag argument that we don't recognize;
220 # that means we can't optimize
222 }
223 lappend glflags $arg
224 }
225 # Non-flag arguments specify commits or ranges of commits
226 default {
228 lappend revargs --gitk-symmetric-diff-marker
229 }
230 lappend revargs $arg
231 }
232 }
233 }
240 }
243 global vposids vnegids
246 set revs HEAD
247 }
249 # we get stdout followed by stderr in $err
250 # for an unknown rev, git rev-parse echoes it and then errors out
263 }
266 }
267 break
268 }
269 lappend badrev $line
270 }
271 }
274 }
284 lappend ret $id
287 }
288 }
292 lappend ret $id
295 }
296 lappend pos $id
297 }
298 incr sdm -1
299 }
303 }
305 # Start off a git log process and arrange to read its output
307 global startmsecs commitidx viewcomplete curview
308 global tclencoding
309 global viewargs viewargscmd viewfiles vfilelimit
310 global showlocalchanges
311 global viewactive viewinstances vmergeonly
312 global mainheadid
313 global vcanopt vflags vrevs vorigargs
317 # these are set this way for the error exits
320 varcinit $view
329 }
331 }
338 global nr_unmerged
345 }
347 }
348 }
355 }
359 }
367 }
371 interestedin $mainheadid dodiffindex
372 }
376 }
382 }
385 global commfd leftover
388 catch {
395 }
396 }
398 nukefile $fd
401 }
403 proc stop_backends {} {
404 global commfd
407 stop_instance $inst
408 }
409 }
412 global viewinstances
415 stop_instance $inst
416 }
418 }
421 global pending_select mainheadid selectheadid
429 }
430 }
433 global canv curview need_redisplay viewactive
435 initlayout
437 reset_pending_select $selid
442 }
443 }
445 proc updatecommits {} {
446 global curview vcanopt vorigargs vfilelimit viewinstances
447 global viewactive viewcomplete tclencoding
448 global startmsecs showneartags showlocalchanges
449 global mainheadid pending_select
450 global isworktree
451 global varcid vposids vnegids vflags vrevs
455 rereadrefs
458 dohidelocalchanges
459 }
461 dodiffindex
462 }
463 }
470 return
471 }
472 # note: getting the delta when negative refs change is hard,
473 # and could require multiple git log invocations, so in that
474 # case we ask git log for all the commits (not just the delta)
478 # take out positive refs that we asked for before or
479 # that we have already seen
484 lappend newrevs $rev
485 incr npos
486 }
488 lappend $newrevs $rev
489 }
490 }
494 }
498 }
504 return
505 }
508 }
514 }
518 reset_pending_select {}
521 getallcommits
522 }
523 }
525 proc reloadcommits {} {
526 global curview viewcomplete selectedline currentid thickerline
527 global showneartags treediffs commitinterest cached_commitrow
528 global targetid
533 }
536 stop_rev_list $curview
537 }
538 resetvarcs $curview
543 readrefs
544 changedrefs
546 getallcommits
547 }
548 clear_display
552 setcanvscroll
553 getcommits $selid
555 }
557 # This makes a string representation of a positive integer which
558 # sorts as a string in numerical order
566 }
568 }
570 # Procedures used in reordering commits from git log (without
571 # --topo-order) into the order for display.
574 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
575 global vtokmod varcmod vrowmod varcix vlastins
589 }
592 global varcid varccommits parents children vseedcount ordertok
598 }
599 # some commits might have children but haven't been seen yet
602 }
605 }
608 }
610 }
612 # returns a list of the commits with no children
614 global vdownptr vleftptr varcstart
621 }
623 }
626 global varcid varctok parents children vdatemode
627 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
628 global commitdata commitinfo vseedcount varccommits vlastins
635 }
639 }
642 }
648 }
657 }
658 }
663 }
670 }
674 }
681 }
687 }
696 }
699 global varcid varcstart varccommits varctok
700 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
707 # "%" sorts before "0"...
717 }
727 }
728 }
731 global parents children varctok varcstart varccommits
732 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
741 lappend todo $a
746 }
747 }
748 }
749 incr ntot
756 }
757 }
759 }
766 }
772 }
781 }
782 }
787 }
789 continue
790 }
797 }
798 }
803 modify_arc $v $ka
804 }
806 modify_arc $v $b
807 }
814 }
817 }
820 }
829 }
834 }
841 }
845 }
847 }
848 }
853 }
854 }
856 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
857 }
859 # Fix up the graph after we have found out that in view $v,
860 # $p (a commit that we have already seen) is actually the parent
861 # of the last commit in arc $a.
863 global varcid varcstart varctok vupptr
867 splitvarc $p $v
869 }
870 # seeds always need to be renumbered
874 renumbervarc $pa $v
875 }
876 }
879 global cmitlisted children parents varcid varctok vtokmod
880 global varccommits ordertok commitidx numcommits curview
881 global targetid targetrow
883 readcommit $id
891 modify_arc $v $a
892 }
898 }
899 fix_reversal $p $a $v
903 setcanvscroll
906 incr targetrow
907 }
908 }
909 }
910 }
913 global varcid varccommits parents children cmitlisted
914 global commitidx varctok vtokmod targetid targetrow curview numcommits
921 return
922 }
929 # note we deliberately don't update varcstart($v) even if $i == 0
931 modify_arc $v $a $i
934 incr targetrow
935 }
936 }
937 setcanvscroll
938 drawvisible
939 }
942 global varcid varccommits parents children commitidx
943 global varctok vtokmod cmitlisted currentid selectedline
944 global targetid curview numcommits
949 return
950 }
956 return
957 }
967 }
968 modify_arc $v $a $i
970 unset currentid
972 }
975 }
976 setcanvscroll
977 drawvisible
978 }
981 global children nullid nullid2
986 }
987 }
989 }
992 global children nullid nullid2
999 }
1000 }
1002 }
1005 global varctok varcid
1009 }
1011 # This assumes that if lim is not given, the caller has checked that
1012 # arc a's token is less than $vtokmod($v)
1014 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1022 }
1023 }
1030 }
1035 }
1037 }
1039 undolayout $r
1040 }
1041 }
1044 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1045 global varcid vrownum varcorder varcix varccommits
1046 global vupptr vdownptr vleftptr varctok
1047 global displayorder parentlist curview cached_commitrow
1054 }
1056 }
1060 # go up the tree until we find something that has a row number,
1061 # or we get to a seed
1063 }
1078 }
1080 }
1084 # go down if possible
1087 # if not, go left, or go up until we can go left
1092 }
1094 }
1096 incr arcn
1101 }
1107 }
1108 }
1110 # Test whether view $v contains commit $id
1112 global varcid
1115 }
1117 # Return the row number for commit $id in the current view
1119 global varcid varccommits varcrow curview cached_commitrow
1120 global varctok vtokmod
1126 }
1129 update_arcrows $v
1130 }
1133 }
1138 }
1142 }
1144 # Returns 1 if a is on an earlier row than b, otherwise 0
1146 global varcid varctok curview
1152 }
1156 }
1158 }
1163 }
1175 }
1176 }
1178 }
1180 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1182 global vrownum curview commitidx displayorder parentlist
1183 global varccommits varcorder parents vrowmod varcrow
1184 global d_valid_start d_valid_end
1187 update_arcrows $curview
1188 }
1204 }
1206 lappend displayorder $id
1208 }
1212 lset displayorder $i $id
1214 incr i
1215 }
1216 }
1217 incr r $al
1218 }
1219 }
1222 global displayorder
1228 }
1230 }
1233 global varctok varccommits varcid parents children
1234 global cmitlisted commitidx vtokmod
1243 # add p as a new commit
1244 incr missing_parents
1252 }
1255 modify_arc $v $b
1256 }
1260 }
1261 }
1265 }
1266 }
1267 }
1269 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1270 # Assumes we already have an arc for $rwid.
1272 global children parents varcid varctok vtokmod varccommits
1275 # make $rwid be $ch's parent in place of $id
1279 }
1281 # add $ch to $rwid's children and sort the list if necessary
1285 }
1286 # fix the graph after joining $id to $rwid
1288 fix_reversal $rwid $a $v
1289 # parentlist is wrong for the last element of arc $a
1290 # even if displayorder is right, hence the 3rd arg here
1292 }
1293 }
1295 # Mechanism for registering a command to be executed when we come
1296 # across a particular commit. To handle the case when only the
1297 # prefix of the commit is known, the commitinterest array is now
1298 # indexed by the first 4 characters of the ID. Each element is a
1299 # list of id, cmd pairs.
1301 global commitinterest
1304 }
1307 global commitinterest
1316 lappend newlist $i $script
1317 }
1318 }
1323 }
1324 }
1326 }
1329 global cmitlisted leftover
1330 global commitidx commitdata vdatemode
1331 global parents children curview hlview
1332 global idpending ordertok
1333 global varccommits varcid varctok vtokmod vfilelimit
1336 # git log doesn't terminate the last commit with a null...
1339 }
1343 }
1344 global commfd viewcomplete viewactive viewname
1345 global viewinstances
1350 }
1351 # set it blocking so we wait for the process to terminate
1357 }
1360 bad arguments to git log."
1362 append err \
1363 " (Note: arguments to gitk are passed to git log\
1364 to allow selection of commits to be displayed.)"
1365 }
1368 }
1369 error_popup $err
1370 }
1373 # Check if we have seen any ids listed as parents that haven't
1374 # appeared in the list
1375 closevarcs $view
1376 notbusy $view
1377 }
1379 run chewcommits
1380 }
1382 }
1390 break
1391 }
1398 }
1411 }
1413 }
1418 break
1419 }
1420 }
1421 }
1426 }
1428 exit 1
1429 }
1436 # when doing path limiting, so work around that here
1437 # by working out the rewritten parent with git rev-list
1438 # and if we already know about it, using the rewritten
1439 # parent as a substitute parent for $id's children.
1443 }]} {
1445 # use $rwid in place of $id
1446 rewrite_commit $view $id $rwid
1447 continue
1448 }
1449 }
1450 }
1456 }
1461 }
1473 }
1474 }
1476 # new arc
1478 }
1480 modify_arc $view $a
1481 }
1486 }
1497 }
1499 fix_reversal $p $a $view
1500 }
1501 }
1502 incr i
1503 }
1507 }
1509 global numcommits hlview
1513 run chewcommits
1514 }
1516 # we never actually get here...
1517 run vhighlightmore
1518 }
1521 }
1522 }
1524 }
1526 proc chewcommits {} {
1527 global curview hlview viewcomplete
1528 global pending_select
1530 layoutmore
1532 global commitidx varctok
1533 global numcommits startmsecs
1536 update
1537 reset_pending_select {}
1544 }
1545 }
1547 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1548 #puts "overall $ms ms for $numcommits commits"
1549 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1552 }
1553 notbusy layout
1554 }
1556 }
1561 }
1564 global commitinfo cdate
1575 # should never happen...
1577 }
1588 }
1589 }
1591 # take the first non-blank line of the comment as the headline
1596 }
1601 }
1603 # git log indents the comment by 4 spaces;
1604 # if we got this via git cat-file, add the indentation
1607 append newcomment " "
1608 append newcomment $line
1610 }
1612 }
1615 }
1618 }
1621 global commitdata commitinfo
1626 readcommit $id
1629 }
1630 }
1632 }
1634 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1635 # and are present in the current view.
1636 # This is fairly slow...
1638 global varcid curview
1643 }
1645 }
1647 proc readrefs {} {
1648 global tagids idtags headids idheads tagobjid
1649 global otherrefids idotherrefs mainhead mainheadid
1650 global selecthead selectheadid
1654 }
1666 }
1672 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1673 # which is what we want since the former is the commit ID
1679 }
1685 }
1686 }
1690 catch {
1695 }
1696 }
1699 catch {
1701 }
1702 }
1703 }
1705 # skip over fake commits
1706 proc first_real_row {} {
1707 global nullid nullid2 numcommits
1712 break
1713 }
1714 }
1716 }
1718 # update things for a head moved to a child of its previous location
1720 global headids idheads
1725 }
1727 # update things when a head has been removed
1729 global headids idheads
1737 }
1738 }
1740 }
1751 tkwait window $top
1752 }
1755 set w .error
1756 toplevel $w
1757 wm transient $w $owner
1758 show_error $w $w $msg
1759 }
1762 global confirm_ok
1764 set w .confirm
1765 toplevel $w
1766 wm transient $w $owner
1777 tkwait window $w
1779 }
1781 proc setoptions {} {
1783 option add *Panedwindow.sashRelief raised startupFile
1784 option add *Button.font uifont startupFile
1785 option add *Checkbutton.font uifont startupFile
1786 option add *Radiobutton.font uifont startupFile
1787 option add *Menu.font uifont startupFile
1788 option add *Menubutton.font uifont startupFile
1789 option add *Label.font uifont startupFile
1790 option add *Message.font uifont startupFile
1791 option add *Entry.font uifont startupFile
1792 }
1794 # Make a menu and submenus.
1795 # m is the window name for the menu, items is the list of menu items to add.
1796 # Each item is a list {mc label type description options...}
1797 # mc is ignored; it's so we can put mc there to alert xgettext
1798 # label is the string that appears in the menu
1799 # type is cascade, command or radiobutton (should add checkbutton)
1800 # description depends on type; it's the sublist for cascade, the
1801 # command to invoke for command, or {variable value} for radiobutton
1803 menu $m
1814 }
1815 }
1820 }
1823 }
1827 }
1828 }
1832 }
1833 }
1834 }
1836 # translate string and remove ampersands
1839 }
1841 proc makewindow {} {
1842 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1843 global tabstop
1844 global findtype findtypemenu findloc findstring fstring geometry
1845 global entries sha1entry sha1string sha1but
1846 global diffcontextstring diffcontext
1847 global ignorespace
1848 global maincursor textcursor curtextcursor
1849 global rowctxmenu fakerowmenu mergemax wrapcomment
1850 global highlight_files gdttype
1851 global searchstring sstring
1852 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1853 global headctxmenu progresscanv progressitem progresscoords statusw
1854 global fprogitem fprogcoord lastprogupdate progupdatepending
1855 global rprogitem rprogcoord rownumsel numcommits
1856 global have_tk85
1858 # The "mc" arguments here are purely so that xgettext
1859 # sees the following string as needing to be translated
1860 makemenu .bar {
1867 }}
1870 }}
1877 }}
1881 }}
1882 }
1883 . configure -menu .bar
1885 # the gui has upper and lower half, parts of a paned window.
1886 panedwindow .ctop -orient vertical
1888 # possibly use assumed geometry
1896 }
1898 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1900 frame .tf.histframe
1903 # create three canvases
1904 set cscroll .tf.histframe.csb
1905 set canv .tf.histframe.pwclist.canv
1906 canvas $canv \
1910 .tf.histframe.pwclist add $canv
1911 set canv2 .tf.histframe.pwclist.canv2
1912 canvas $canv2 \
1915 .tf.histframe.pwclist add $canv2
1916 set canv3 .tf.histframe.pwclist.canv3
1917 canvas $canv3 \
1920 .tf.histframe.pwclist add $canv3
1924 # a scroll bar to rule them
1928 lappend bglist $canv $canv2 $canv3
1931 # we have two button bars at bottom of top frame. Bar 1
1932 frame .tf.bar
1935 set sha1entry .tf.bar.sha1
1937 set sha1but .tf.bar.sha1label
1941 pack .tf.bar.sha1label -side left
1943 trace add variable sha1string write sha1change
1947 #define left_width 16
1948 #define left_height 16
1949 static unsigned char left_bits[] = {
1953 }
1955 #define right_width 16
1956 #define right_height 16
1957 static unsigned char right_bits[] = {
1961 }
1976 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1977 -side left
1978 global selectedline
1979 trace add variable selectedline write selectedline_change
1981 # Status label and progress bar
1982 set statusw .tf.bar.status
1986 set progresscanv .tf.bar.progress
1999 # build up the bottom bar of upper window
2004 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2011 trace add variable gdttype write gdttype_change
2015 set fstring .tf.lbar.findstring
2016 lappend entries $fstring
2018 trace add variable findstring write find_change
2022 trace add variable findtype write findcom_change
2026 trace add variable findloc write find_change
2027 pack .tf.lbar.findloc -side right
2028 pack .tf.lbar.findtype -side right
2031 # Finish putting the upper half of the viewer together
2035 .ctop add .tf
2039 # now build up the bottom
2040 panedwindow .pwbottom -orient horizontal
2042 # lower left, a text box over search bar, scroll bar to the right
2043 # if we know window height, then that will set the lower text height, otherwise
2044 # we set lower text height which will drive window height
2049 }
2050 frame .bleft.top
2051 frame .bleft.mid
2052 frame .bleft.bottom
2056 set sstring .bleft.top.sstring
2058 lappend entries $sstring
2059 trace add variable searchstring write incrsearch
2072 -textvariable diffcontextstring
2074 trace add variable diffcontextstring write diffcontextchange
2075 lappend entries .bleft.mid.diffcontext
2076 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2080 set ctext .bleft.bottom.ctext
2087 }
2094 grid .bleft.bottom.sbhorizontal -sticky ew
2099 lappend bglist $ctext
2100 lappend fglist $ctext
2129 .pwbottom add .bleft
2132 # lower right
2133 frame .bright
2134 frame .bright.mode
2141 set cflist .bright.cfiles
2143 text $cflist \
2146 -font mainfont \
2151 lappend bglist $cflist
2152 lappend fglist $cflist
2156 $cflist tag configure highlight \
2160 .pwbottom add .bright
2161 .ctop add .pwbottom
2163 # restore window width & height if known
2168 }
2171 }
2173 }
2174 }
2177 set M1B M1
2179 set M1B Control
2180 }
2185 #bindall <B1-Motion> {selcanvline %W %x %y}
2195 allcanvs yview scroll $delta units
2196 }
2197 }
2198 }
2220 bindkey p "selnextline -1"
2221 bindkey n "selnextline 1"
2222 bindkey z "goback"
2223 bindkey x "goforw"
2224 bindkey i "selnextline -1"
2225 bindkey k "selnextline 1"
2226 bindkey j "goback"
2227 bindkey l "goforw"
2228 bindkey b prevfile
2234 bindkey f nextfile
2246 wm protocol . WM_DELETE_WINDOW doquit
2255 global ctxbut
2259 set maincursor [. cget -cursor]
2263 set rowctxmenu .rowctxmenu
2265 {mc "Diff this -> selected" command {diffvssel 0}}
2266 {mc "Diff selected -> this" command {diffvssel 1}}
2267 {mc "Make patch" command mkpatch}
2268 {mc "Create tag" command mktag}
2269 {mc "Write commit to file" command writecommit}
2270 {mc "Create new branch" command mkbranch}
2271 {mc "Cherry-pick this commit" command cherrypick}
2272 {mc "Reset HEAD branch to here" command resethead}
2273 }
2276 set fakerowmenu .fakerowmenu
2278 {mc "Diff this -> selected" command {diffvssel 0}}
2279 {mc "Diff selected -> this" command {diffvssel 1}}
2280 {mc "Make patch" command mkpatch}
2281 }
2284 set headctxmenu .headctxmenu
2286 {mc "Check out this branch" command cobranch}
2287 {mc "Remove this branch" command rmbranch}
2288 }
2291 global flist_menu
2292 set flist_menu .flistctxmenu
2294 {mc "Highlight this too" command {flist_hl 0}}
2295 {mc "Highlight this only" command {flist_hl 1}}
2296 {mc "External diff" command {external_diff}}
2297 {mc "Blame parent commit" command {external_blame 1}}
2298 }
2301 global diff_menu
2302 set diff_menu .diffctxmenu
2304 {mc "Show origin of this line" command show_line_source}
2305 {mc "Run git gui blame on this line" command {external_blame_diff}}
2306 }
2308 }
2310 # Windows sends all mouse wheel events to the current focused window, not
2311 # the one where the mouse hovers, so bind those events here and redirect
2312 # to the correct window
2313 proc windows_mousewheel_redirector {W X Y D} {
2314 global canv canv2 canv3
2320 } else {
2321 catch {
2323 }
2324 }
2325 }
2326 }
2328 # Update row number label when selectedline changes
2329 proc selectedline_change {n1 n2 op} {
2330 global selectedline rownumsel
2333 set rownumsel {}
2334 } else {
2336 }
2337 }
2339 # mouse-2 makes all windows scan vertically, but only the one
2340 # the cursor is in scans horizontally
2341 proc canvscan {op w x y} {
2342 global canv canv2 canv3
2346 } else {
2348 }
2349 }
2350 }
2352 proc scrollcanv {cscroll f0 f1} {
2354 drawvisible
2355 flushhighlights
2356 }
2358 # when we make a key binding for the toplevel, make sure
2359 # it doesn't get triggered when that key is pressed in the
2360 # find string entry widget.
2361 proc bindkey {ev script} {
2362 global entries
2366 set escript [bind Entry <Key>]
2367 }
2370 }
2371 }
2373 # set the focus back to the toplevel for any click outside
2374 # the entry widgets
2375 proc click {w} {
2376 global ctext entries
2379 }
2380 focus .
2381 }
2383 # Adjust the progress bar for a change in requested extent or canvas size
2384 proc adjustprogress {} {
2385 global progresscanv progressitem progresscoords
2386 global fprogitem fprogcoord lastprogupdate progupdatepending
2387 global rprogitem rprogcoord
2396 set now [clock clicks -milliseconds]
2398 set progupdatepending 0
2399 update
2401 set progupdatepending 1
2403 }
2404 }
2406 proc doprogupdate {} {
2407 global lastprogupdate progupdatepending
2410 set progupdatepending 0
2411 set lastprogupdate [clock clicks -milliseconds]
2412 update
2413 }
2414 }
2416 proc savestuff {w} {
2417 global canv canv2 canv3 mainfont textfont uifont tabstop
2418 global stuffsaved findmergefiles maxgraphpct
2419 global maxwidth showneartags showlocalchanges
2420 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2421 global cmitmode wrapcomment datetimeformat limitdiffs
2422 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2423 global autoselect extdifftool perfile_attrs markbgcolor
2426 if {![winfo viewable .]} return
2427 catch {
2428 set f [open "~/.gitk-new" w]
2465 }
2466 }
2469 file rename -force "~/.gitk-new" "~/.gitk"
2470 }
2471 set stuffsaved 1
2472 }
2474 proc resizeclistpanes {win w} {
2475 global oldwidth
2482 } else {
2487 set sash0 30
2488 }
2491 }
2496 }
2497 }
2498 }
2501 }
2503 }
2505 proc resizecdetpanes {win w} {
2506 global oldwidth
2511 } else {
2515 set sash0 45
2516 }
2519 }
2520 }
2522 }
2524 }
2526 proc allcanvs args {
2527 global canv canv2 canv3
2531 }
2533 proc bindall {event action} {
2534 global canv canv2 canv3
2538 }
2540 proc about {} {
2541 global uifont
2542 set w .about
2545 return
2546 }
2551 Gitk - a commit viewer for git
2553 Copyright © 2005-2008 Paul Mackerras
2555 Use and redistribute under the terms of the GNU General Public License"] \
2556 -justify center -aspect 400 -border 2 -bg white -relief groove
2563 }
2565 proc keys {} {
2566 set w .keys
2569 return
2570 }
2571 if {[tk windowingsystem] eq {aqua}} {
2572 set M1T Cmd
2573 } else {
2574 set M1T Ctrl
2575 }
2580 [mc "Gitk key bindings:"]
2583 [mc "<Home> Move to first commit"]
2584 [mc "<End> Move to last commit"]
2585 [mc "<Up>, p, i Move up one commit"]
2586 [mc "<Down>, n, k Move down one commit"]
2587 [mc "<Left>, z, j Go back in history list"]
2588 [mc "<Right>, x, l Go forward in history list"]
2589 [mc "<PageUp> Move up one page in commit list"]
2590 [mc "<PageDown> Move down one page in commit list"]
2597 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2598 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2599 [mc "<Delete>, b Scroll diff view up one page"]
2600 [mc "<Backspace> Scroll diff view up one page"]
2601 [mc "<Space> Scroll diff view down one page"]
2602 [mc "u Scroll diff view up 18 lines"]
2603 [mc "d Scroll diff view down 18 lines"]
2606 [mc "<Return> Move to next find hit"]
2607 [mc "/ Move to next find hit, or redo find"]
2608 [mc "? Move to previous find hit"]
2609 [mc "f Scroll diff view to next file"]
2616 [mc "<F5> Update"]
2617 " \
2618 -justify left -bg white -border 2 -relief groove
2626 }
2628 # Procedures for manipulating the file list window at the
2629 # bottom right of the overall window.
2631 proc treeview {w l openlevs} {
2632 global treecontents treediropen treeheight treeparent treeindex
2634 set ix 0
2635 set treeindex() 0
2636 set lev 0
2637 set prefix {}
2638 set prefixend -1
2639 set prefendstack {}
2640 set htstack {}
2641 set ht 0
2642 set treecontents() {}
2649 }
2656 incr lev -1
2657 }
2661 set ht 0
2673 set ht 1
2678 set str "\n"
2686 }
2687 incr lev
2688 }
2691 incr ht
2692 set str "\n"
2696 }
2698 }
2699 }
2707 }
2709 }
2711 proc linetoelt {l} {
2712 global treeheight treecontents
2714 set y 2
2715 set prefix {}
2716 while {1} {
2720 }
2721 set n 1
2726 incr y
2727 break
2728 }
2729 }
2731 }
2732 }
2733 }
2735 proc highlight_tree {y prefix} {
2736 global treeheight treecontents cflist
2742 }
2743 incr y
2746 }
2747 }
2749 }
2751 proc treeclosedir {w dir} {
2752 global treediropen treeheight treeparent treeindex
2764 }
2765 }
2767 proc treeopendir {w dir} {
2768 global treediropen treeheight treeparent treecontents treeindex
2775 set lev 0
2776 set str "\n"
2779 incr lev
2780 append str "\t"
2782 }
2797 } else {
2800 }
2801 }
2814 }
2816 }
2817 }
2819 proc treeclick {w x y} {
2820 global treediropen cmitmode ctext cflist cflist_top
2823 if {![info exists cflist_top]} return
2830 return
2831 }
2837 } else {
2839 }
2840 }
2842 proc setfilelist {id} {
2843 global treefilelist cflist jump_to_here
2850 }
2851 }
2852 }
2854 image create bitmap tri-rt -background black -foreground blue -data {
2855 #define tri-rt_width 13
2856 #define tri-rt_height 13
2857 static unsigned char tri-rt_bits[] = {
2858 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2859 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2860 0x00, 0x00};
2861 } -maskdata {
2862 #define tri-rt-mask_width 13
2863 #define tri-rt-mask_height 13
2864 static unsigned char tri-rt-mask_bits[] = {
2865 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2866 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2867 0x08, 0x00};
2868 }
2869 image create bitmap tri-dn -background black -foreground blue -data {
2870 #define tri-dn_width 13
2871 #define tri-dn_height 13
2872 static unsigned char tri-dn_bits[] = {
2873 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2874 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2875 0x00, 0x00};
2876 } -maskdata {
2877 #define tri-dn-mask_width 13
2878 #define tri-dn-mask_height 13
2879 static unsigned char tri-dn-mask_bits[] = {
2880 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2881 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2882 0x00, 0x00};
2883 }
2885 image create bitmap reficon-T -background black -foreground yellow -data {
2886 #define tagicon_width 13
2887 #define tagicon_height 9
2888 static unsigned char tagicon_bits[] = {
2889 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2890 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2891 } -maskdata {
2892 #define tagicon-mask_width 13
2893 #define tagicon-mask_height 9
2894 static unsigned char tagicon-mask_bits[] = {
2895 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2896 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2897 }
2898 set rectdata {
2899 #define headicon_width 13
2900 #define headicon_height 9
2901 static unsigned char headicon_bits[] = {
2902 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2903 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2904 }
2905 set rectmask {
2906 #define headicon-mask_width 13
2907 #define headicon-mask_height 9
2908 static unsigned char headicon-mask_bits[] = {
2909 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2910 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2911 }
2912 image create bitmap reficon-H -background black -foreground green \
2914 image create bitmap reficon-o -background black -foreground "#ddddff" \
2917 proc init_flist {first} {
2918 global cflist cflist_top difffilestart
2924 set cflist_top 1
2926 } else {
2927 catch {unset cflist_top}
2928 }
2930 set difffilestart {}
2931 }
2933 proc highlight_tag {f} {
2934 global highlight_paths
2938 return "bold"
2939 }
2940 }
2941 return {}
2942 }
2944 proc highlight_filelist {} {
2945 global cmitmode cflist
2954 }
2955 }
2956 } else {
2957 highlight_tree 2 {}
2958 }
2960 }
2962 proc unhighlight_filelist {} {
2963 global cflist
2968 }
2970 proc add_flist {fl} {
2971 global cflist
2977 }
2979 }
2981 proc sel_flist {w x y} {
2982 global ctext difffilestart cflist cflist_top cmitmode
2985 if {![info exists cflist_top]} return
2992 } else {
2994 }
2995 }
2997 proc pop_flist_menu {w X Y x y} {
2998 global ctext cflist cmitmode flist_menu flist_menu_file
2999 global treediffs diffids
3001 stopfinding
3007 } else {
3009 }
3011 set xdiffstate "normal"
3013 set xdiffstate "disabled"
3014 }
3015 # Disable "External diff" item in tree mode
3018 }
3020 proc find_ctext_fileinfo {line} {
3021 global ctext_file_names ctext_file_lines
3027 return {}
3028 } else {
3030 }
3031 }
3033 proc pop_diff_menu {w X Y x y} {
3034 global ctext diff_menu flist_menu_file
3035 global diff_menu_txtpos diff_menu_line
3036 global diff_menu_filebase
3040 # don't pop up the menu on hunk-separator or file-separator lines
3042 return
3043 }
3044 stopfinding
3050 }
3052 proc flist_hl {only} {
3053 global flist_menu_file findstring gdttype
3058 } else {
3060 }
3061 set gdttype [mc "touching paths:"]
3062 }
3064 proc save_file_from_commit {filename output what} {
3065 global nullfile
3070 }
3072 return {}
3073 }
3075 }
3077 proc external_diff_get_one_file {diffid filename diffdir} {
3078 global nullid nullid2 nullfile
3079 global gitdir
3085 }
3087 }
3091 }
3095 }
3097 proc external_diff {} {
3098 global gitktmpdir nullid nullid2
3099 global flist_menu_file
3100 global diffids
3101 global diffnum
3102 global gitdir extdifftool
3105 # no reference commit given
3108 # diffing working copy with index
3111 # diffing index with HEAD
3112 set diffidfrom "HEAD"
3113 } else {
3114 # use first parent commit
3115 global parentlist selectedline
3117 }
3118 } else {
3121 }
3123 # make sure that several diffs wont collide
3124 if {![info exists gitktmpdir]} {
3126 [format ".gitk-tmp.%s" [pid]]]
3129 unset gitktmpdir
3130 return
3131 }
3132 set diffnum 0
3133 }
3134 incr diffnum
3138 return
3139 }
3141 # gather files to diff
3151 } else {
3154 }
3155 }
3156 }
3158 proc find_hunk_blamespec {base line} {
3159 global ctext
3161 # Find and parse the hunk header
3167 s_line old_specs osz osz1 new_line nsz]} {
3168 return
3169 }
3171 # base lines for the parents
3175 old_spec old_line osz]} {
3176 return
3177 }
3179 }
3181 # Now scan the lines to determine offset within the hunk
3183 set dline 0
3186 # Determine if the line is removed
3190 # Choose a parent index
3193 } else {
3197 } else {
3198 # blame the current commit
3199 set parent -1
3200 }
3201 }
3202 # then count other lines that belong to it
3205 # Determine if the line is removed
3210 incr dline
3211 }
3212 } else {
3214 incr dline
3215 }
3216 }
3217 }
3218 incr parent
3219 } else {
3220 set parent 0
3221 }
3225 }
3227 proc external_blame_diff {} {
3228 global currentid diffmergeid cmitmode
3229 global diff_menu_txtpos diff_menu_line
3230 global diff_menu_filebase flist_menu_file
3233 set parent_idx 0
3235 } else {
3240 } else {
3241 set parent_idx 0
3242 set line 0
3243 }
3244 }
3247 }
3249 proc external_blame {parent_idx {line {}}} {
3250 global flist_menu_file
3251 global nullid nullid2
3252 global parentlist selectedline currentid
3256 } else {
3258 }
3261 error_popup [mc "No such commit"]
3262 return
3263 }
3265 set cmdline [list git gui blame]
3268 }
3272 }
3273 }
3275 proc show_line_source {} {
3276 global cmitmode currentid parents curview blamestuff blameinst
3277 global diff_menu_line diff_menu_filebase flist_menu_file
3282 } else {
3288 return
3289 }
3292 }
3293 if {[catch {
3295 } err]} {
3297 return
3298 }
3304 }
3306 proc stopblaming {} {
3307 global blameinst
3309 if {[info exists blameinst]} {
3311 unset blameinst
3312 }
3313 }
3315 proc read_line_source {fd inst} {
3316 global blamestuff curview commfd blameinst
3320 }
3322 return 1
3323 }
3325 unset blameinst
3329 return 0
3330 }
3332 set fname {}
3338 # look for "filename" line
3342 break
3343 }
3344 }
3345 }
3347 # all looks good, select it
3350 } else {
3351 error_popup [mc "That line comes from commit %s, \
3353 }
3354 } else {
3355 puts "oops couldn't parse git blame output"
3356 }
3357 return 0
3358 }
3361 proc delete_at_eof {f dir} {
3366 }
3368 return 0
3369 }
3370 return 1
3371 }
3373 # Functions for adding and removing shell-type quoting
3375 proc shellquote {str} {
3378 }
3381 }
3384 }
3386 }
3388 proc shellarglist {l} {
3389 set str {}
3392 append str " "
3393 }
3395 }
3397 }
3399 proc shelldequote {str} {
3400 set ret {}
3401 set used -1
3402 while {1} {
3403 incr used
3407 break
3408 }
3414 }
3416 incr used
3420 error "unmatched single-quote"
3421 }
3424 continue
3425 }
3428 error "trailing backslash"
3429 }
3431 continue
3432 }
3433 # here ch == "\""
3434 while {1} {
3436 error "unmatched double-quote"
3437 }
3443 }
3445 incr used
3447 incr used
3448 }
3449 }
3451 }
3453 proc shellsplit {str} {
3454 set l {}
3455 while {1} {
3463 }
3465 }
3467 # Code to implement multiple views
3469 proc newview {ishighlight} {
3470 global nextviewnum newviewname newishighlight
3471 global revtreeargs viewargscmd newviewopts curview
3474 set top .gitkview
3477 return
3478 }
3484 }
3486 set known_view_options {
3487 {perm b . {} {mc "Remember this view"}}
3488 {args t50= + {} {mc "Commits to include (arguments to git log):"}}
3489 {all b * "--all" {mc "Use all refs"}}
3490 {dorder b . {"--date-order" "-d"} {mc "Strictly sort by date"}}
3491 {lright b . "--left-right" {mc "Mark branch sides"}}
3492 {since t15 + {"--since=*" "--after=*"} {mc "Since date:"}}
3493 {until t15 . {"--until=*" "--before=*"} {mc "Until date:"}}
3494 {limit t10 + "--max-count=*" {mc "Max count:"}}
3495 {skip t10 . "--skip=*" {mc "Skip:"}}
3496 {first b . "--first-parent" {mc "Limit to first parent"}}
3497 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3498 }
3500 proc encode_view_opts {n} {
3501 global known_view_options newviewopts
3503 set rargs [list]
3514 }
3515 } else {
3520 }
3521 }
3522 }
3524 }
3526 proc decode_view_opts {n view_args} {
3527 global known_view_options newviewopts
3531 set val 0
3532 } else {
3533 set val {}
3534 }
3536 }
3537 set oargs [list]
3540 && ![info exists found(limit)]} {
3542 set found(limit) 1
3543 continue
3544 }
3545 catch { unset val }
3554 } else {
3555 set val 1
3556 }
3559 break
3560 }
3561 if {[info exists val]} break
3562 }
3563 if {[info exists val]} continue
3565 }
3567 }
3569 proc editview {} {
3570 global curview
3571 global viewname viewperm newviewname newviewopts
3572 global viewargs viewargscmd
3577 return
3578 }
3584 }
3586 proc vieweditor {top n title} {
3587 global newviewname newviewopts viewfiles bgcolor
3588 global known_view_options
3594 # View name
3602 # View options
3604 set cexpand 0
3605 set cnt 0
3611 set lxpad 0
3615 incr cnt
3619 } else {
3620 set lxpad 5
3621 }
3639 }
3640 }
3642 # Path list
3644 -text [mc "Enter files and directories to include, one per line:"]
3651 }
3654 }
3669 }
3671 proc doviewmenu {m first cmd op argv} {
3676 break
3677 }
3678 }
3679 }
3681 proc allviewmenus {n op args} {
3682 # global viewhlmenu
3686 }
3688 proc newviewok {top n {apply 0}} {
3689 global nextviewnum newviewperm newviewname newishighlight
3690 global viewname viewfiles viewperm selectedview curview
3691 global viewargs viewargscmd newviewopts viewhlmenu
3693 if {[catch {
3695 } err]} {
3697 return
3698 }
3699 set files {}
3704 }
3705 }
3707 # creating a new view
3708 incr nextviewnum
3717 } else {
3719 }
3720 } else {
3721 # editing an existing view
3729 }
3736 run reloadcommits
3737 }
3738 }
3739 }
3742 }
3744 proc delview {} {
3745 global curview viewperm hlview selectedhlview
3749 set selectedhlview [mc "None"]
3750 unset hlview
3751 }
3754 showview 0
3755 }
3757 proc addviewmenu {n} {
3758 global viewname viewhlmenu
3764 }
3766 proc showview {n} {
3767 global curview cached_commitrow ordertok
3768 global displayorder parentlist rowidlist rowisopt rowfinal
3769 global colormap rowtextx nextcolor canvxmax
3770 global numcommits viewcomplete
3771 global selectedline currentid canv canvy0
3772 global treediffs
3773 global pending_select mainheadid
3774 global commitidx
3775 global selectedview
3776 global hlview selectedhlview commitinterest
3779 set selid {}
3790 }
3791 } elseif {[info exists pending_select]} {
3793 unset pending_select
3794 }
3795 unselectline
3796 normalline
3797 catch {unset treediffs}
3798 clear_display
3800 unset hlview
3801 set selectedhlview [mc "None"]
3802 }
3803 catch {unset commitinterest}
3804 catch {unset cached_commitrow}
3805 catch {unset ordertok}
3812 run refill_reflist
3815 return
3816 }
3818 set displayorder {}
3819 set parentlist {}
3820 set rowidlist {}
3821 set rowisopt {}
3822 set rowfinal {}
3825 catch {unset colormap}
3826 catch {unset rowtextx}
3827 set nextcolor 0
3830 set row 0
3831 setcanvscroll
3832 set yf 0
3833 set row {}
3836 # try to get the selected row in the same position on the screen
3840 set ytop 0
3841 }
3843 }
3845 drawvisible
3850 } else {
3851 reset_pending_select {}
3855 } else {
3856 set row [first_real_row]
3859 }
3860 }
3861 }
3864 show_status [mc "Reading commits..."]
3865 }
3867 show_status [mc "No commits selected"]
3868 }
3869 }
3871 # Stuff relating to the highlighting facility
3873 proc ishighlighted {id} {
3874 global vhighlights fhighlights nhighlights rhighlights
3878 }
3881 }
3884 }
3887 }
3888 return 0
3889 }
3891 proc bolden {row font} {
3892 global canv linehtag selectedline boldrows
3899 -outline {{}} -tags secsel \
3902 }
3903 }
3905 proc bolden_name {row font} {
3906 global canv2 linentag selectedline boldnamerows
3913 -outline {{}} -tags secsel \
3916 }
3917 }
3919 proc unbolden {} {
3920 global boldrows
3922 set stillbold {}
3926 } else {
3928 }
3929 }
3931 }
3933 proc addvhighlight {n} {
3934 global hlview viewcomplete curview vhl_done commitidx
3936 if {[info exists hlview]} {
3937 delvhighlight
3938 }
3942 }
3945 drawvisible
3946 }
3947 }
3949 proc delvhighlight {} {
3950 global hlview vhighlights
3952 if {![info exists hlview]} return
3953 unset hlview
3954 catch {unset vhighlights}
3955 unbolden
3956 }
3958 proc vhighlightmore {} {
3959 global hlview vhl_done commitidx vhighlights curview
3962 set vr [visiblerows]
3972 }
3974 }
3975 }
3976 }
3978 return 0
3979 }
3981 proc askvhighlight {row id} {
3982 global hlview vhighlights iddrawn
3987 }
3989 } else {
3991 }
3992 }
3994 proc hfiles_change {} {
3995 global highlight_files filehighlight fhighlights fh_serial
3996 global highlight_paths gdttype
3998 if {[info exists filehighlight]} {
3999 # delete previous highlights
4001 unset filehighlight
4002 catch {unset fhighlights}
4003 unbolden
4004 unhighlight_filelist
4005 }
4006 set highlight_paths {}
4008 incr fh_serial
4011 }
4012 }
4014 proc gdttype_change {name ix op} {
4015 global gdttype highlight_files findstring findpattern
4017 stopfinding
4021 set highlight_files {}
4022 hfiles_change
4023 }
4024 findcom_change
4025 } else {
4027 set findpattern {}
4028 findcom_change
4029 }
4031 hfiles_change
4032 }
4033 drawvisible
4034 }
4035 # enable/disable findtype/findloc menus too
4036 }
4038 proc find_change {name ix op} {
4039 global gdttype findstring highlight_files
4041 stopfinding
4043 findcom_change
4044 } else {
4047 hfiles_change
4048 }
4049 }
4050 drawvisible
4051 }
4053 proc findcom_change args {
4054 global nhighlights boldnamerows
4055 global findpattern findtype findstring gdttype
4057 stopfinding
4058 # delete previous highlights, if any
4061 }
4062 set boldnamerows {}
4063 catch {unset nhighlights}
4064 unbolden
4065 unmarkmatches
4067 set findpattern {}
4070 } else {
4071 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4074 }
4075 }
4077 proc makepatterns {l} {
4078 set ret {}
4083 } else {
4086 }
4087 }
4089 }
4091 proc do_file_hl {serial} {
4092 global highlight_files filehighlight highlight_paths gdttype fhl_list
4097 highlight_filelist
4101 } else {
4102 # must be "containing:", i.e. we're searching commit info
4103 return
4104 }
4109 set fhl_list {}
4110 drawvisible
4111 flushhighlights
4112 }
4114 proc flushhighlights {} {
4115 global filehighlight fhl_list
4117 if {[info exists filehighlight]} {
4118 lappend fhl_list {}
4121 }
4122 }
4124 proc askfilehighlight {row id} {
4125 global filehighlight fhighlights fhl_list
4130 }
4132 proc readfhighlight {} {
4133 global filehighlight fhighlights curview iddrawn
4134 global fhl_list find_dirn
4136 if {![info exists filehighlight]} {
4137 return 0
4138 }
4139 set nr 0
4147 }
4154 }
4156 }
4158 # strange...
4159 puts "oops, git diff-tree died"
4161 unset filehighlight
4162 return 0
4163 }
4164 if {[info exists find_dirn]} {
4165 run findmore
4166 }
4167 return 1
4168 }
4170 proc doesmatch {f} {
4171 global findtype findpattern
4177 } else {
4179 }
4180 }
4182 proc askfindhighlight {row id} {
4183 global nhighlights commitinfo iddrawn
4184 global findloc
4185 global markingmatches
4189 }
4191 set isbold 0
4192 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4197 set isbold 2
4198 break
4199 }
4200 set isbold 1
4201 }
4202 }
4208 }
4209 }
4212 }
4213 }
4215 }
4217 proc markrowmatches {row id} {
4218 global canv canv2 linehtag linentag commitinfo findloc
4229 }
4230 }
4236 }
4237 }
4238 }
4240 proc vrel_change {name ix op} {
4241 global highlight_related
4243 rhighlight_none
4245 run drawvisible
4246 }
4247 }
4249 # prepare for testing whether commits are descendents or ancestors of a
4250 proc rhighlight_sel {a} {
4251 global descendent desc_todo ancestor anc_todo
4252 global highlight_related
4254 catch {unset descendent}
4256 catch {unset ancestor}
4259 rhighlight_none
4260 run drawvisible
4261 }
4262 }
4264 proc rhighlight_none {} {
4265 global rhighlights
4267 catch {unset rhighlights}
4268 unbolden
4269 }
4271 proc is_descendent {a} {
4272 global curview children descendent desc_todo
4277 set leftover {}
4278 set done 0
4283 continue
4284 }
4290 set done 1
4291 }
4292 }
4293 }
4296 return
4297 }
4298 }
4301 }
4303 proc is_ancestor {a} {
4304 global curview parents ancestor anc_todo
4309 set leftover {}
4310 set done 0
4315 continue
4316 }
4322 set done 1
4323 }
4324 }
4325 }
4328 return
4329 }
4330 }
4333 }
4335 proc askrelhighlight {row id} {
4336 global descendent highlight_related iddrawn rhighlights
4337 global selectedline ancestor
4340 set isbold 0
4345 }
4347 set isbold 1
4348 }
4353 }
4355 set isbold 1
4356 }
4357 }
4361 }
4362 }
4364 }
4366 # Graph layout functions
4368 proc shortids {ids} {
4369 set res {}
4375 } else {
4377 }
4378 }
4380 }
4382 proc ntimes {n o} {
4383 set ret {}
4388 }
4390 }
4392 }
4394 proc ordertoken {id} {
4395 global ordertok curview varcid varcstart varctok curview parents children
4396 global nullid nullid2
4400 }
4402 set todo {}
4403 while {1} {
4407 } else {
4409 }
4412 break
4413 }
4416 # it's a root
4418 break
4419 }
4422 } else {
4426 }
4428 }
4429 }
4434 }
4437 }
4439 # Work out where id should go in idlist so that order-token
4440 # values increase from left to right
4441 proc idcol {idlist id {i 0}} {
4444 set i 0
4445 }
4449 }
4451 incr i
4452 } else {
4456 }
4457 }
4459 }
4461 proc initlayout {} {
4462 global rowidlist rowisopt rowfinal displayorder parentlist
4463 global numcommits canvxmax canv
4464 global nextcolor
4465 global colormap rowtextx
4467 set numcommits 0
4468 set displayorder {}
4469 set parentlist {}
4470 set nextcolor 0
4471 set rowidlist {}
4472 set rowisopt {}
4473 set rowfinal {}
4475 catch {unset colormap}
4476 catch {unset rowtextx}
4477 setcanvscroll
4478 }
4480 proc setcanvscroll {} {
4481 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4482 global lastscrollset lastscrollrows
4488 set lastscrollset [clock clicks -milliseconds]
4490 }
4492 proc visiblerows {} {
4493 global canv numcommits linespc
4501 set r0 0
4502 }
4507 }
4509 }
4511 proc layoutmore {} {
4512 global commitidx viewcomplete curview
4513 global numcommits pending_select curview
4514 global lastscrollset lastscrollrows
4518 setcanvscroll
4519 }
4520 if {[info exists pending_select] &&
4522 update
4524 }
4525 drawvisible
4526 }
4528 proc doshowlocalchanges {} {
4529 global curview mainheadid
4533 dodiffindex
4534 } else {
4536 }
4537 }
4539 proc dohidelocalchanges {} {
4540 global nullid nullid2 lserial curview
4544 }
4547 }
4548 incr lserial
4549 }
4551 # spawn off a process to do git diff-index --cached HEAD
4552 proc dodiffindex {} {
4553 global lserial showlocalchanges
4554 global isworktree
4557 incr lserial
4558 set fd [open "|git diff-index --cached HEAD" r]
4562 }
4564 proc readdiffindex {fd serial inst} {
4565 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4567 set isdiff 1
4570 return 1
4571 }
4572 set isdiff 0
4573 }
4574 # we only need to see one line and we don't really care what it says...
4578 return 0
4579 }
4581 # now see if there are any local changes not checked in to the index
4582 set fd [open "|git diff-files" r]
4588 # add the line for the changes in the index to the graph
4589 set hl [mc "Local changes checked in to index but not committed"]
4594 }
4598 }
4599 return 0
4600 }
4602 proc readdifffiles {fd serial inst} {
4603 global mainheadid nullid nullid2 curview
4604 global commitinfo commitdata lserial
4606 set isdiff 1
4609 return 1
4610 }
4611 set isdiff 0
4612 }
4613 # we only need to see one line and we don't really care what it says...
4617 return 0
4618 }
4621 # add the line for the local diff to the graph
4622 set hl [mc "Local uncommitted changes, not checked in to index"]
4627 } else {
4629 }
4633 }
4634 return 0
4635 }
4637 proc nextuse {id row} {
4638 global curview children
4643 return -1
4644 }
4647 }
4648 }
4649 }
4652 }
4653 return -1
4654 }
4656 proc prevuse {id row} {
4657 global curview children
4659 set ret -1
4665 }
4666 }
4667 }
4669 }
4671 proc make_idlist {row} {
4672 global displayorder parentlist uparrowlen downarrowlen mingaplen
4673 global commitidx curview children
4677 set r 0
4678 }
4681 set ra 0
4682 }
4686 }
4688 set ids {}
4697 }
4698 }
4699 }
4707 }
4708 }
4709 }
4717 }
4718 }
4719 incr r
4725 }
4726 }
4727 }
4728 set idlist {}
4731 }
4733 }
4735 proc rowsequal {a b} {
4738 }
4741 }
4743 }
4745 proc makeupline {id row rend col} {
4746 global rowidlist uparrowlen downarrowlen mingaplen
4752 }
4755 }
4762 }
4763 }
4764 }
4766 proc layoutrows {row endrow} {
4767 global rowidlist rowisopt rowfinal displayorder
4768 global uparrowlen downarrowlen maxwidth mingaplen
4769 global children parentlist
4770 global commitidx viewcomplete curview
4773 set idlist {}
4779 }
4780 }
4782 }
4787 set final 1
4788 } else {
4796 # if not the first child, we have to insert a line going up
4799 }
4800 }
4801 }
4811 }
4812 }
4813 }
4820 }
4821 }
4831 }
4832 }
4840 }
4841 }
4842 }
4843 }
4844 }
4848 set final 0
4849 }
4853 lappend rowisopt 0
4859 }
4861 } else {
4868 }
4869 }
4871 }
4873 proc changedrow {row} {
4874 global displayorder iddrawn rowisopt need_redisplay
4883 }
4884 }
4885 }
4888 set need_redisplay 1
4889 }
4890 }
4892 proc insert_pad {row col npad} {
4893 global rowidlist
4902 }
4905 }
4907 proc optimize_rows {row col endrow} {
4908 global rowidlist rowisopt displayorder curview children
4911 set row 1
4912 }
4915 set haspad 0
4924 } else {
4925 set pprevidlist {}
4926 }
4927 set x0 -1
4928 set xm -1
4933 set haspad 1
4934 continue
4935 }
4939 set isarrow 0
4940 set z0 {}
4945 }
4946 }
4951 set isarrow 1
4952 }
4953 }
4956 set isarrow 1
4957 }
4958 # Looking at lines from this row to the previous row,
4959 # make them go straight up if they end in an arrow on
4960 # the previous row; otherwise make them go straight up
4961 # or at 45 degrees.
4963 # Line currently goes left too much;
4964 # insert pads in the previous row, then optimize it
4969 }
4977 }
4979 # Line currently goes right too much;
4980 # insert pads in this line
4986 set haspad 1
4987 }
4994 }
4995 }
4996 # avoid lines jigging left then immediately right
4999 incr x0
5002 }
5003 }
5005 # Find the first column that doesn't have a line going right
5011 # check if this is the link to the first child
5014 # it is, work out offset to child
5016 }
5017 }
5019 }
5020 # Insert a pad at that column as long as it has a line and
5021 # isn't the last column
5026 }
5027 }
5028 }
5029 }
5031 proc xc {row col} {
5032 global canvx0 linespc
5034 }
5036 proc yc {row} {
5037 global canvy0 linespc
5039 }
5041 proc linewidth {id} {
5042 global thickerline lthickness
5047 }
5049 }
5051 proc rowranges {id} {
5052 global curview children uparrowlen downarrowlen
5053 global rowidlist
5057 return {}
5058 }
5059 set ret {}
5064 if {![info exists prev]} {
5066 } else {
5068 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5069 }
5070 # see if the line extends the whole way from prevrow to row
5074 # it doesn't, see where it ends
5079 } else {
5082 incr r -1
5083 }
5085 # see where it starts up again
5090 } else {
5093 incr r
5094 }
5096 }
5097 }
5100 }
5103 }
5105 }
5107 proc drawlineseg {id row endrow arrowlow} {
5108 global rowidlist displayorder iddrawn linesegs
5109 global canv colormap linespc curview maxlinelen parentlist
5113 set arrowhigh 1
5114 while {1} {
5117 incr le -1
5118 break
5119 }
5123 set arrowhigh 0
5124 break
5125 }
5130 set arrowhigh 0
5131 }
5132 break
5133 }
5134 incr le
5135 }
5138 }
5140 set lines {}
5141 set i 0
5142 set joinhigh 0
5149 set joinhigh 1
5150 }
5151 break
5152 }
5153 incr i
5154 }
5155 }
5156 set joinlow 0
5161 set joinlow 1
5162 }
5163 }
5176 }
5177 } else {
5179 }
5187 set arrowlow 0
5188 }
5189 }
5197 }
5199 }
5202 # join parent line to first child
5213 } else {
5215 }
5223 }
5225 }
5227 } else {
5231 }
5239 } else {
5243 }
5245 }
5246 } else {
5252 }
5256 } else {
5257 # coalesce two pieces
5262 }
5266 }
5267 }
5271 }
5273 proc drawparentlinks {id row} {
5274 global rowidlist canv colormap curview parentlist
5275 global idpos linespc
5288 # rmx = right-most X coord used
5289 set rmx 0
5294 continue
5295 }
5299 }
5302 # drawlineseg will do this one for us
5303 continue
5304 }
5306 # should handle duplicated parents here...
5309 # if attaching to a vertical segment, draw a smaller
5310 # slant for visual distinctness
5314 } else {
5316 }
5318 # segment slants towards us already
5320 } else {
5325 }
5327 }
5328 } else {
5330 }
5335 }
5339 }
5340 }
5342 proc drawlines {id} {
5343 global canv
5346 }
5348 proc drawcmittext {id row col} {
5349 global linespc canv canv2 canv3 fgcolor curview
5350 global cmitlisted commitinfo rowidlist parentlist
5351 global rowtextx idpos idtags idheads idotherrefs
5352 global linehtag linentag linedtag selectedline
5353 global canvxmax boldrows boldnamerows fgcolor
5354 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5356 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5359 set ofill red
5361 set ofill green
5363 set ofill yellow
5364 } else {
5366 }
5375 # triangle pointing left for left-side commits
5381 } else {
5382 # triangle pointing right for right-side commits
5388 }
5400 }
5401 }
5402 }
5409 }
5414 set font mainfont
5415 set nfont mainfont
5419 set font mainfontbold
5422 set nfont mainfontbold
5423 }
5424 }
5434 }
5438 setcanvscroll
5439 }
5440 }
5442 proc drawcmitrow {row} {
5443 global displayorder rowidlist nrows_drawn
5444 global iddrawn markingmatches
5445 global commitinfo numcommits
5446 global filehighlight fhighlights findpattern nhighlights
5447 global hlview vhighlights
5448 global highlight_related rhighlights
5455 }
5458 }
5461 }
5464 }
5469 return
5470 }
5473 }
5477 incr nrows_drawn
5478 }
5481 }
5482 }
5484 proc drawcommits {row {endrow {}}} {
5485 global numcommits iddrawn displayorder curview need_redisplay
5486 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5489 set row 0
5490 }
5493 }
5496 }
5500 set rl1 0
5501 }
5504 set ro1 0
5505 }
5509 }
5514 }
5516 }
5517 }
5520 }
5523 clear_display
5524 drawvisible
5525 }
5527 # make the lines join to already-drawn rows either side
5531 }
5536 }
5551 # see if this is the first child of any of its parents
5554 # make this line extend up to the child
5556 }
5557 }
5558 } else {
5560 }
5561 }
5562 }
5563 }
5565 proc undolayout {row} {
5566 global uparrowlen mingaplen downarrowlen
5567 global rowidlist rowisopt rowfinal need_redisplay
5571 set r 0
5572 }
5574 incr r -1
5578 set need_redisplay 1
5579 run drawvisible
5580 }
5581 }
5583 proc drawvisible {} {
5584 global canv linespc curview vrowmod selectedline targetrow targetid
5585 global need_redisplay cscroll numcommits
5595 if {[info exists targetid]} {
5599 # Fix up the scrollregion and change the scrolling position
5600 # now that our target row has moved.
5603 setcanvscroll
5611 set need_redisplay 1
5612 }
5613 } else {
5614 unset targetid
5615 }
5616 }
5622 }
5626 } elseif {[info exists targetid]} {
5628 }
5629 if {[info exists targetrow]} {
5632 }
5634 }
5636 }
5638 proc clear_display {} {
5639 global iddrawn linesegs need_redisplay nrows_drawn
5640 global vhighlights fhighlights nhighlights rhighlights
5641 global linehtag linentag linedtag boldrows boldnamerows
5643 allcanvs delete all
5644 catch {unset iddrawn}
5645 catch {unset linesegs}
5646 catch {unset linehtag}
5647 catch {unset linentag}
5648 catch {unset linedtag}
5649 set boldrows {}
5650 set boldnamerows {}
5651 catch {unset vhighlights}
5652 catch {unset fhighlights}
5653 catch {unset nhighlights}
5654 catch {unset rhighlights}
5655 set need_redisplay 0
5656 set nrows_drawn 0
5657 }
5659 proc findcrossings {id} {
5660 global rowidlist parentlist numcommits displayorder
5662 set cross {}
5663 set ccross {}
5667 }
5686 }
5687 }
5688 }
5689 }
5690 }
5692 }
5694 proc assigncolor {id} {
5695 global colormap colors nextcolor
5696 global parents children children curview
5702 } else {
5703 set kids {}
5704 }
5710 return
5711 }
5712 }
5713 set badcolors {}
5714 set origbad {}
5717 # delimiter between corner crossings and other crossings
5720 }
5724 }
5725 }
5728 }
5735 }
5740 }
5741 }
5742 }
5745 }
5746 }
5750 set nextcolor 0
5751 }
5753 }
5755 }
5757 proc bindline {t id} {
5758 global canv
5764 }
5766 proc drawtags {id x xt y1} {
5767 global idtags idheads idotherrefs mainhead
5768 global linespc lthickness
5769 global canv rowtextx curview fgcolor bgcolor ctxbut
5771 set marks {}
5772 set ntags 0
5773 set nheads 0
5777 }
5781 }
5784 }
5787 }
5792 set xvals {}
5793 set wvals {}
5794 set i -1
5796 incr i
5799 } else {
5801 }
5805 }
5812 set font mainfont
5813 if {[incr ntags -1] >= 0} {
5814 # draw a tag
5820 } else {
5821 # draw a head or other ref
5822 if {[incr nheads -1] >= 0} {
5823 set col green
5825 set font mainfontbold
5826 }
5827 } else {
5828 set col "#ddddff"
5829 }
5840 }
5841 }
5848 }
5849 }
5851 }
5853 proc xcoord {i level ln} {
5854 global canvx0 xspc1 xspc2
5861 }
5863 }
5865 proc show_status {msg} {
5866 global canv fgcolor
5868 clear_display
5871 }
5873 # Don't change the text pane cursor if it is currently the hand cursor,
5874 # showing that we are over a sha1 ID link.
5875 proc settextcursor {c} {
5876 global ctext curtextcursor
5880 }
5882 }
5884 proc nowbusy {what {name {}}} {
5885 global isbusy busyname statusw
5887 if {[array names isbusy] eq {}} {
5888 . config -cursor watch
5889 settextcursor watch
5890 }
5895 }
5896 }
5898 proc notbusy {what} {
5899 global isbusy maincursor textcursor busyname statusw
5901 catch {
5906 }
5907 }
5908 if {[array names isbusy] eq {}} {
5911 }
5912 }
5914 proc findmatches {f} {
5915 global findtype findstring
5918 } else {
5923 }
5924 set matches {}
5925 set i 0
5930 }
5931 }
5933 }
5935 proc dofind {{dirn 1} {wrap 1}} {
5936 global findstring findstartline findcurline selectedline numcommits
5937 global gdttype filehighlight fh_serial find_dirn findallowwrap
5939 if {[info exists find_dirn]} {
5941 stopfinding
5942 }
5943 focus .
5947 } else {
5949 }
5951 nowbusy finding [mc "Searching"]
5955 }
5958 run findmore
5959 }
5961 proc stopfinding {} {
5962 global find_dirn findcurline fprogcoord
5964 if {[info exists find_dirn]} {
5965 unset find_dirn
5966 unset findcurline
5967 notbusy finding
5968 set fprogcoord 0
5969 adjustprogress
5970 }
5971 stopblaming
5972 }
5974 proc findmore {} {
5975 global commitdata commitinfo numcommits findpattern findloc
5976 global findstartline findcurline findallowwrap
5977 global find_dirn gdttype fhighlights fprogcoord
5978 global curview varcorder vrownum varccommits vrowmod
5980 if {![info exists find_dirn]} {
5981 return 0
5982 }
5983 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5985 set moretodo 0
5987 incr l
5989 set l 0
5990 }
5993 } else {
5996 }
5997 } else {
6000 }
6001 incr l -1
6004 } else {
6005 set lim -1
6007 }
6008 }
6011 set n 500
6012 set moretodo 1
6013 }
6016 }
6017 set found 0
6018 set domore 1
6032 }
6034 # shouldn't happen unless git log doesn't give all the commits...
6037 continue
6038 }
6041 }
6046 set found 1
6047 break
6048 }
6049 }
6051 }
6052 } else {
6060 }
6065 }
6068 break
6069 }
6072 set domore 0
6074 }
6075 }
6076 }
6077 }
6079 unset findcurline
6080 unset find_dirn
6081 notbusy finding
6082 set fprogcoord 0
6083 adjustprogress
6086 } else {
6087 bell
6088 }
6089 return 0
6090 }
6092 flushhighlights
6093 } else {
6095 }
6099 }
6101 adjustprogress
6103 }
6105 proc findselectline {l} {
6106 global findloc commentend ctext findcurline markingmatches gdttype
6108 set markingmatches 1
6112 # highlight the matches in the comments
6119 }
6120 }
6121 drawvisible
6122 }
6124 # mark the bits of a headline or author that match a find string
6125 proc markmatches {canv l str tag matches font row} {
6126 global selectedline
6144 }
6145 }
6146 }
6148 proc unmarkmatches {} {
6149 global markingmatches
6151 allcanvs delete matches
6152 set markingmatches 0
6153 stopfinding
6154 }
6156 proc selcanvline {w x y} {
6157 global canv canvy0 ctext linespc
6158 global rowtextx
6165 set l 0
6166 }
6171 }
6172 unmarkmatches
6174 }
6176 proc commit_descriptor {p} {
6177 global commitinfo
6180 }
6181 set l "..."
6184 }
6186 }
6188 # append some text to the ctext widget, and make any SHA1 ID
6189 # that we know about be a clickable link.
6190 proc appendwithlinks {text tags} {
6191 global ctext linknum curview
6200 incr e
6204 incr linknum
6205 }
6206 }
6208 proc setlink {id lk} {
6209 global curview ctext pendinglinks
6211 set known 0
6216 set known 1
6218 }
6219 } else {
6221 }
6227 } else {
6230 }
6231 }
6233 proc makelink {id} {
6234 global pendinglinks
6239 }
6241 }
6243 proc linkcursor {w inc} {
6244 global linkentercount curtextcursor
6248 } else {
6251 set linkentercount 0
6252 }
6253 }
6254 }
6256 proc viewnextline {dir} {
6257 global canv linespc
6265 set newtop 0
6268 }
6270 }
6272 # add a list of tag or branch names at position pos
6273 # returns the number of names inserted
6274 proc appendrefs {pos ids var} {
6278 return 0
6279 }
6282 set tags {}
6286 }
6287 }
6290 } else {
6292 set sep {}
6296 incr linknum
6301 set sep ", "
6302 }
6303 }
6306 }
6308 # called when we have finished computing the nearby tags
6309 proc dispneartags {delay} {
6310 global selectedline currentid showneartags tagphase
6313 after cancel dispnexttag
6315 after 200 dispnexttag
6316 set tagphase -1
6317 } else {
6318 after idle dispnexttag
6319 set tagphase 0
6320 }
6321 }
6323 proc dispnexttag {} {
6324 global selectedline currentid showneartags tagphase ctext
6328 0 {
6332 }
6333 }
6334 1 {
6338 }
6339 }
6340 2 {
6345 # turn "Branch" into "Branches"
6349 }
6350 }
6351 }
6352 }
6353 if {[incr tagphase] <= 2} {
6354 after idle dispnexttag
6355 }
6356 }
6358 proc make_secsel {l} {
6359 global linehtag linentag linedtag canv canv2 canv3
6374 }
6376 proc selectline {l isnew {desired_loc {}}} {
6377 global canv ctext commitinfo selectedline
6378 global canvy0 linespc parents children curview
6379 global currentid sha1entry
6380 global commentend idtags linknum
6381 global mergemax numcommits pending_select
6382 global cmitmode showneartags allcommits
6383 global targetrow targetid lastscrollrows
6384 global autoselect jump_to_here
6386 catch {unset pending_select}
6388 normalline
6389 unsel_reflist
6390 stopfinding
6398 setcanvscroll
6399 }
6413 } else {
6417 }
6418 }
6422 } else {
6426 }
6427 }
6428 }
6431 set newtop 0
6432 }
6434 drawvisible
6435 }
6441 }
6448 }
6452 clear_ctext
6453 set linknum 0
6456 }
6466 }
6468 }
6470 set headers {}
6473 set np 0
6476 set tag mmax
6477 } else {
6479 }
6482 incr np
6483 }
6484 } else {
6487 }
6488 }
6492 }
6494 # make anything that looks like a SHA1 ID be a clickable link
6497 if {![info exists allcommits]} {
6498 getallcommits
6499 }
6510 dispneartags 1
6511 }
6516 }
6524 init_flist [mc "Comments"]
6529 } else {
6531 }
6532 }
6534 proc selfirstline {} {
6535 unmarkmatches
6536 selectline 0 1
6537 }
6539 proc sellastline {} {
6540 global numcommits
6541 unmarkmatches
6544 }
6546 proc selnextline {dir} {
6547 global selectedline
6548 focus .
6551 unmarkmatches
6553 }
6555 proc selnextpage {dir} {
6556 global canv linespc selectedline numcommits
6560 set lpp 1
6561 }
6563 drawvisible
6567 set l 0
6570 }
6571 unmarkmatches
6573 }
6575 proc unselectline {} {
6576 global selectedline currentid
6578 set selectedline {}
6579 catch {unset currentid}
6580 allcanvs delete secsel
6581 rhighlight_none
6582 }
6584 proc reselectline {} {
6585 global selectedline
6589 }
6590 }
6592 proc addtohistory {cmd} {
6593 global history historyindex curview
6598 return
6599 }
6603 } else {
6605 }
6606 incr historyindex
6608 .tf.bar.leftbut conf -state normal
6609 } else {
6610 .tf.bar.leftbut conf -state disabled
6611 }
6612 .tf.bar.rightbut conf -state disabled
6613 }
6615 proc godo {elt} {
6616 global curview
6622 }
6624 }
6626 proc goback {} {
6627 global history historyindex
6628 focus .
6631 incr historyindex -1
6633 .tf.bar.rightbut conf -state normal
6634 }
6636 .tf.bar.leftbut conf -state disabled
6637 }
6638 }
6640 proc goforw {} {
6641 global history historyindex
6642 focus .
6646 incr historyindex
6648 .tf.bar.leftbut conf -state normal
6649 }
6651 .tf.bar.rightbut conf -state disabled
6652 }
6653 }
6655 proc gettree {id} {
6656 global treefilelist treeidlist diffids diffmergeid treepending
6657 global nullid nullid2
6660 catch {unset diffmergeid}
6662 if {![info exists treepending]} {
6664 set cmd [list | git ls-files]
6666 set cmd [list | git ls-files --stage -t]
6667 } else {
6669 }
6671 return
6672 }
6678 }
6679 } else {
6681 }
6682 }
6684 proc gettreeline {gtf id} {
6685 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6687 set nl 0
6691 } else {
6699 }
6702 }
6705 }
6708 }
6710 unset treepending
6712 if {![info exists diffmergeid]} {
6714 }
6717 } else {
6719 }
6720 return 0
6721 }
6723 proc showfile {f} {
6724 global treefilelist treeidlist diffids nullid nullid2
6725 global ctext_file_names ctext_file_lines
6726 global ctext commentend
6731 return
6732 }
6736 return
6737 }
6738 } else {
6742 return
6743 }
6744 }
6755 settabs 0
6756 }
6758 proc getblobline {bf id} {
6759 global diffids cmitmode ctext
6763 return 0
6764 }
6766 set nl 0
6769 }
6771 global jump_to_here ctext_file_names commentend
6773 # delete last newline
6781 }
6782 return 0
6783 }
6786 }
6788 proc mark_ctext_line {lnum} {
6789 global ctext markbgcolor
6795 }
6797 proc mergediff {id} {
6798 global diffmergeid mdifffd
6799 global diffids treediffs
6800 global parents
6801 global diffcontext
6802 global diffencoding
6803 global limitdiffs vfilelimit curview
6804 global targetline
6809 set targetline {}
6810 # this doesn't seem to actually affect anything...
6814 }
6817 return
6818 }
6822 set diffencoding [get_path_encoding {}]
6825 }
6827 proc getmergediffline {mdf id np} {
6828 global diffmergeid ctext cflist mergemax
6829 global difffilestart mdifffd treediffs
6830 global ctext_file_names ctext_file_lines
6831 global diffencoding jump_to_here targetline diffline
6834 set nr 0
6839 return 0
6840 }
6842 # start of a new file
6855 set targetline {}
6858 }
6859 set diffline 0
6865 }
6867 # do nothing
6868 } else {
6870 # parse the prefix - one ' ', '-' or '+' for each parent
6871 set spaces {}
6872 set minuses {}
6873 set pluses {}
6874 set isbad 0
6883 } else {
6884 set isbad 1
6885 break
6886 }
6887 }
6888 set tags {}
6889 set num {}
6895 lappend tags mresult
6897 }
6900 set num "max"
6901 }
6903 }
6909 set targetline {}
6910 } else {
6911 incr diffline
6912 }
6913 }
6914 }
6915 }
6919 return 0
6920 }
6922 }
6924 proc startdiff {ids} {
6925 global treediffs diffids treepending diffmergeid nullid nullid2
6927 settabs 1
6929 catch {unset diffmergeid}
6933 if {![info exists treepending]} {
6935 }
6936 } else {
6938 }
6939 }
6941 proc path_filter {filter name} {
6946 return 1
6947 }
6948 } else {
6952 return 1
6953 }
6954 }
6955 }
6956 return 0
6957 }
6959 proc addtocflist {ids} {
6960 global treediffs
6964 }
6966 proc diffcmd {ids flags} {
6967 global nullid nullid2
6973 # comparing working directory with some specific revision
6977 } else {
6979 }
6980 } else {
6981 # comparing working directory with index
6984 lappend cmd -R
6985 }
6986 }
6990 # comparing index with specific revision
6993 } else {
6995 }
6996 } else {
6997 # comparing index with HEAD
6998 lappend cmd HEAD
6999 }
7000 } else {
7002 }
7004 }
7006 proc gettreediffs {ids} {
7007 global treediff treepending
7012 set treediff {}
7015 }
7017 proc gettreediffline {gdtf ids} {
7018 global treediff treediffs treepending diffids diffmergeid
7019 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7021 set nr 0
7022 set sublist {}
7023 set max 1000
7025 # cache_gitattr is slow, and even slower on win32 where we
7026 # have to invoke it for only about 30 paths at a time
7027 set max 500
7028 if {[tk windowingsystem] == "win32"} {
7029 set max 120
7030 }
7031 }
7038 }
7042 }
7043 }
7046 }
7049 }
7052 set flist {}
7056 }
7057 }
7059 } else {
7061 }
7062 unset treepending
7066 if {![info exists diffmergeid]} {
7068 }
7069 } else {
7071 }
7072 return 0
7073 }
7075 # empty string or positive integer
7076 proc diffcontextvalidate {v} {
7078 }
7080 proc diffcontextchange {n1 n2 op} {
7081 global diffcontextstring diffcontext
7086 reselectline
7087 }
7088 }
7089 }
7091 proc changeignorespace {} {
7092 reselectline
7093 }
7095 proc getblobdiffs {ids} {
7096 global blobdifffd diffids env
7097 global diffinhdr treediffs
7098 global diffcontext
7099 global ignorespace
7100 global limitdiffs vfilelimit curview
7101 global diffencoding targetline
7105 append cmd " -w"
7106 }
7109 }
7112 return
7113 }
7114 set targetline {}
7115 set diffinhdr 0
7116 set diffencoding [get_path_encoding {}]
7120 }
7122 proc setinlist {var i val} {
7127 }
7130 } else {
7132 }
7133 }
7135 proc makediffhdr {fname ids} {
7136 global ctext curdiffstart treediffs
7137 global ctext_file_names jump_to_here targetline diffline
7142 }
7147 set targetline {}
7150 }
7151 set diffline 0
7152 }
7154 proc getblobdiffline {bdf ids} {
7155 global diffids blobdifffd ctext curdiffstart
7156 global diffnexthead diffnextnote difffilestart
7157 global ctext_file_names ctext_file_lines
7158 global diffinhdr treediffs
7159 global diffencoding jump_to_here targetline diffline
7161 set nr 0
7166 return 0
7167 }
7169 # trim off "diff --git "
7171 set diffinhdr 1
7172 # start of a new file
7175 lappend ctext_file_names ""
7178 # If the name hasn't changed the length will be odd,
7179 # the middle char will be a space, and the two bits either
7180 # side will be a/name and b/name, or "a/name" and "b/name".
7181 # If the name has changed we'll get "rename from" and
7182 # "rename to" or "copy from" and "copy to" lines following this,
7183 # and we'll use them to get the filenames.
7184 # This complexity is necessary because spaces in the filename(s)
7185 # don't get escaped.
7191 continue
7192 }
7193 # unescape if quoted and chop off the a/ from the front
7196 } else {
7198 }
7203 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
7207 set diffinhdr 0
7215 }
7220 }
7226 }
7231 # do nothing
7232 continue
7234 set diffinhdr 0
7235 continue
7236 }
7239 } else {
7248 } else {
7249 # "\ No newline at end of file",
7250 # or something else we don't recognize
7252 }
7256 set targetline {}
7257 } else {
7258 incr diffline
7259 }
7260 }
7261 }
7262 }
7266 return 0
7267 }
7269 }
7271 proc changediffdisp {} {
7272 global ctext diffelide
7276 }
7278 proc highlightfile {loc cline} {
7279 global ctext cflist cflist_top
7286 }
7288 proc prevfile {} {
7289 global difffilestart ctext cmitmode
7292 set prev 0.0
7293 set prevline 1
7298 return
7299 }
7301 incr prevline
7302 }
7304 }
7306 proc nextfile {} {
7307 global difffilestart ctext cmitmode
7311 set line 1
7313 incr line
7316 return
7317 }
7318 }
7319 }
7321 proc clear_ctext {{first 1.0}} {
7322 global ctext smarktop smarkbot
7323 global ctext_file_names ctext_file_lines
7324 global pendinglinks
7329 }
7332 }
7335 catch {unset pendinglinks}
7336 }
7337 set ctext_file_names {}
7338 set ctext_file_lines {}
7339 }
7341 proc settabs {{firstab {}}} {
7342 global firsttabstop tabstop ctext have_tk85
7346 }
7347 set w [font measure textfont "0"]
7353 } else {
7355 }
7356 }
7358 proc incrsearch {name ix op} {
7359 global ctext searchstring searchdirn
7363 # no anchor set, use start of selection, or of visible area
7369 } else {
7371 }
7372 }
7377 }
7378 searchmarkvisible 1
7379 }
7380 }
7382 proc dosearch {} {
7383 global sstring ctext searchstring searchdirn
7387 set searchdirn -forwards
7393 set start "@0,0"
7394 }
7398 bell
7399 return
7400 }
7405 }
7406 }
7408 proc dosearchback {} {
7409 global sstring ctext searchstring searchdirn
7413 set searchdirn -backwards
7420 }
7424 bell
7425 return
7426 }
7431 }
7432 }
7434 proc searchmark {first last} {
7435 global ctext searchstring
7438 while {1} {
7443 }
7444 }
7446 proc searchmarkvisible {doall} {
7447 global ctext smarktop smarkbot
7452 # no overlap with previous
7456 } else {
7460 }
7464 }
7465 }
7466 }
7468 proc scrolltext {f0 f1} {
7469 global searchstring
7473 searchmarkvisible 0
7474 }
7475 }
7477 proc setcoords {} {
7478 global linespc charspc canvx0 canvy0
7479 global xspc1 xspc2 lthickness
7481 set linespc [font metrics mainfont -linespace]
7482 set charspc [font measure mainfont "m"]
7488 }
7490 proc redisplay {} {
7491 global canv
7492 global selectedline
7497 clear_display
7498 setcanvscroll
7500 drawvisible
7504 }
7505 }
7507 proc parsefont {f n} {
7508 global fontattr
7513 set s 10
7516 }
7522 "normal" -
7524 "roman" -
7526 }
7527 }
7528 }
7530 proc fontflags {f {isbold 0}} {
7531 global fontattr
7536 }
7538 proc fontname {f} {
7539 global fontattr
7543 lappend n "bold"
7544 }
7546 lappend n "italic"
7547 }
7549 }
7551 proc incrfont {inc} {
7552 global mainfont textfont ctext canv cflist showrefstop
7553 global stopped entries fontattr
7555 unmarkmatches
7559 set s 1
7560 }
7564 set mainfont [fontname mainfont]
7568 set s 1
7569 }
7573 set textfont [fontname textfont]
7574 setcoords
7575 settabs
7576 redisplay
7577 }
7579 proc clearsha1 {} {
7580 global sha1entry sha1string
7583 }
7584 }
7586 proc sha1change {n1 n2 op} {
7587 global sha1string currentid sha1but
7590 set state disabled
7591 } else {
7592 set state normal
7593 }
7597 } else {
7599 }
7600 }
7602 proc gotocommit {} {
7603 global sha1string tagids headids curview varcid
7611 } else {
7618 return
7619 }
7621 }
7622 }
7623 }
7626 return
7627 }
7630 } else {
7632 }
7634 }
7636 proc lineenter {x y id} {
7637 global hoverx hovery hoverid hovertimer
7638 global commitinfo canv
7644 if {[info exists hovertimer]} {
7646 }
7647 set hovertimer [after 500 linehover]
7649 }
7651 proc linemotion {x y id} {
7652 global hoverx hovery hoverid hovertimer
7657 if {[info exists hovertimer]} {
7659 }
7660 set hovertimer [after 500 linehover]
7661 }
7662 }
7664 proc lineleave {id} {
7665 global hoverid hovertimer canv
7669 if {[info exists hovertimer]} {
7671 unset hovertimer
7672 }
7673 unset hoverid
7674 }
7675 }
7677 proc linehover {} {
7678 global hoverx hovery hoverid hovertimer
7679 global canv linespc lthickness
7680 global commitinfo
7693 -fill \#ffff80 -outline black -width 1 -tags hover]
7696 -font mainfont]
7698 }
7700 proc clickisonarrow {id y} {
7701 global lthickness
7710 }
7711 }
7712 return {}
7713 }
7715 proc arrowjump {id n y} {
7716 global canv
7718 # 1 <-> 2, 3 <-> 4, etc...
7728 set yfrac 0
7729 }
7731 }
7733 proc lineclick {x y id isnew} {
7734 global ctext commitinfo children canv thickerline curview
7737 unmarkmatches
7738 unselectline
7739 normalline
7741 # draw this line thicker than normal
7749 }
7753 return
7754 }
7758 }
7759 # fill the details pane with info about this line
7761 clear_ctext
7762 settabs 0
7774 set i 0
7776 incr i
7786 }
7787 }
7789 init_flist {}
7790 }
7792 proc normalline {} {
7793 global thickerline
7794 if {[info exists thickerline]} {
7796 unset thickerline
7798 }
7799 }
7801 proc selbyid {id} {
7802 global curview
7805 }
7806 }
7808 proc mstime {} {
7809 global startmstime
7810 if {![info exists startmstime]} {
7811 set startmstime [clock clicks -milliseconds]
7812 }
7814 }
7816 proc rowmenu {x y id} {
7817 global rowctxmenu selectedline rowmenuid curview
7818 global nullid nullid2 fakerowmenu mainhead
7820 stopfinding
7823 set state disabled
7824 } else {
7825 set state normal
7826 }
7831 } else {
7833 }
7834 } else {
7836 }
7841 }
7843 proc diffvssel {dirn} {
7844 global rowmenuid selectedline
7850 } else {
7853 }
7856 }
7858 proc doseldiff {oldid newid} {
7859 global ctext
7860 global commitinfo
7863 clear_ctext
7864 init_flist [mc "Top"]
7879 }
7881 proc mkpatch {} {
7882 global rowmenuid currentid commitinfo patchtop patchnum
7884 if {![info exists currentid]} return
7889 set top .patch
7919 incr patchnum
7931 }
7933 proc mkpatchrev {} {
7934 global patchtop
7940 foreach e [list fromsha1 fromhead tosha1 tohead] \
7946 }
7947 }
7949 proc mkpatchgo {} {
7950 global patchtop nullid nullid2
7956 # trim off the initial "|"
7961 }
7963 unset patchtop
7964 }
7966 proc mkpatchcan {} {
7967 global patchtop
7970 unset patchtop
7971 }
7973 proc mktag {} {
7974 global rowmenuid mktagtop commitinfo
7976 set top .maketag
8005 }
8007 proc domktag {} {
8008 global mktagtop env tagids idtags
8014 return 0
8015 }
8018 return 0
8019 }
8020 if {[catch {
8022 } err]} {
8024 return 0
8025 }
8031 dispneartags 0
8032 run refill_reflist
8033 return 1
8034 }
8036 proc redrawtags {id} {
8037 global canv linehtag idpos currentid curview cmitlisted
8038 global canvxmax iddrawn circleitem mainheadid circlecolors
8044 set ofill yellow
8045 } else {
8047 }
8057 setcanvscroll
8058 }
8061 }
8062 }
8064 proc mktagcan {} {
8065 global mktagtop
8068 unset mktagtop
8069 }
8071 proc mktaggo {} {
8072 if {![domktag]} return
8073 mktagcan
8074 }
8076 proc writecommit {} {
8077 global rowmenuid wrcomtop commitinfo wrcomcmd
8079 set top .writecommit
8112 }
8114 proc wrcomgo {} {
8115 global wrcomtop
8122 }
8124 unset wrcomtop
8125 }
8127 proc wrcomcan {} {
8128 global wrcomtop
8131 unset wrcomtop
8132 }
8134 proc mkbranch {} {
8135 global rowmenuid mkbrtop
8137 set top .makebranch
8162 }
8164 proc mkbrgo {top} {
8165 global headids idheads
8169 set cmdargs {}
8170 set old_id {}
8173 return
8174 }
8176 if {![confirm_popup [mc \
8178 return
8179 }
8181 lappend cmdargs -f
8182 }
8185 nowbusy newbranch
8186 update
8187 if {[catch {
8189 } err]} {
8190 notbusy newbranch
8192 } else {
8193 notbusy newbranch
8199 } else {
8204 }
8205 dispneartags 0
8206 run refill_reflist
8207 }
8208 }
8210 proc exec_citool {tool_args {baseid {}}} {
8211 global commitinfo env
8213 set save_env [array get env GIT_AUTHOR_*]
8218 }
8221 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8227 }
8228 }
8232 array unset env GIT_AUTHOR_*
8234 }
8236 proc cherrypick {} {
8237 global rowmenuid curview
8238 global mainhead mainheadid
8240 set oldhead [exec git rev-parse HEAD]
8243 set ok [confirm_popup [mc "Commit %s is already\
8244 included in branch %s -- really re-apply it?" \
8247 }
8248 nowbusy cherrypick [mc "Cherry-picking"]
8249 update
8250 # Unfortunately git-cherry-pick writes stuff to stderr even when
8251 # no error occurs, and exec takes that as an indication of error...
8253 notbusy cherrypick
8254 if {[regexp -line \
8255 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8257 error_popup [mc "Cherry-pick failed because of local changes\
8258 to file '%s'.\nPlease commit, reset or stash\
8260 } elseif {[regexp -line \
8261 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8263 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8264 conflict.\nDo you wish to run git citool to\
8265 resolve it?"]]} {
8266 # Force citool to read MERGE_MSG
8267 file delete [file join [gitdir] "GITGUI_MSG"]
8269 }
8270 } else {
8272 }
8273 run updatecommits
8274 return
8275 }
8276 set newhead [exec git rev-parse HEAD]
8278 notbusy cherrypick
8279 error_popup [mc "No changes committed"]
8280 return
8281 }
8288 }
8293 }
8294 notbusy cherrypick
8295 }
8297 proc resethead {} {
8298 global mainhead rowmenuid confirm_ok resettype
8300 set confirm_ok 0
8301 set w ".confirmreset"
8307 -justify center -aspect 1000
8312 set resettype mixed
8314 -text [mc "Soft: Leave working tree and index untouched"]
8317 -text [mc "Mixed: Leave working tree untouched, reset index"]
8320 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8331 if {[catch {set fd [open \
8334 } else {
8335 dohidelocalchanges
8337 nowbusy reset [mc "Resetting"]
8339 }
8340 }
8342 proc readresetstat {fd} {
8343 global mainhead mainheadid showlocalchanges rprogcoord
8348 adjustprogress
8349 }
8350 return 1
8351 }
8352 set rprogcoord 0
8353 adjustprogress
8354 notbusy reset
8357 }
8359 set newhead [exec git rev-parse HEAD]
8366 }
8368 doshowlocalchanges
8369 }
8370 return 0
8371 }
8373 # context menu for a head
8374 proc headmenu {x y id head} {
8375 global headmenuid headmenuhead headctxmenu mainhead
8377 stopfinding
8380 set state normal
8382 set state disabled
8383 }
8387 }
8389 proc cobranch {} {
8390 global headmenuid headmenuhead headids
8391 global showlocalchanges mainheadid
8393 # check the tree is clean first??
8394 nowbusy checkout [mc "Checking out"]
8395 update
8396 dohidelocalchanges
8397 if {[catch {
8399 } err]} {
8400 notbusy checkout
8403 dodiffindex
8404 }
8405 } else {
8407 }
8408 }
8410 proc readcheckoutstat {fd newhead newheadid} {
8411 global mainhead mainheadid headids showlocalchanges progresscoords
8416 adjustprogress
8417 }
8418 return 1
8419 }
8420 set progresscoords {0 0}
8421 adjustprogress
8422 notbusy checkout
8425 }
8433 dodiffindex
8434 }
8435 }
8437 proc rmbranch {} {
8438 global headmenuid headmenuhead mainhead
8439 global idheads
8443 # this check shouldn't be needed any more...
8445 error_popup [mc "Cannot delete the currently checked-out branch"]
8446 return
8447 }
8450 # the stuff on this branch isn't on any other branch
8451 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8453 }
8454 nowbusy rmbranch
8455 update
8457 notbusy rmbranch
8459 return
8460 }
8464 notbusy rmbranch
8465 dispneartags 0
8466 run refill_reflist
8467 }
8469 # Display a list of tags and heads
8470 proc showrefs {} {
8471 global showrefstop bgcolor fgcolor selectbgcolor
8472 global bglist fglist reflistfilter reflist maincursor
8474 set top .showrefs
8478 refill_reflist
8479 return
8480 }
8488 -spacing1 1 -spacing3 1 -state disabled
8499 set reflistfilter "*"
8500 trace add variable reflistfilter write reflistfilter_change
8512 set reflist {}
8513 refill_reflist
8514 }
8516 proc sel_reflist {w x y} {
8517 global showrefstop reflist headids tagids otherrefids
8527 }
8529 }
8531 proc unsel_reflist {} {
8532 global showrefstop
8536 }
8538 proc reflistfilter_change {n1 n2 op} {
8539 global reflistfilter
8541 after cancel refill_reflist
8542 after 200 refill_reflist
8543 }
8545 proc refill_reflist {} {
8546 global reflist reflistfilter showrefstop headids tagids otherrefids
8547 global curview
8550 set refs {}
8551 foreach n [array names headids] {
8555 } else {
8557 }
8558 }
8559 }
8560 foreach n [array names tagids] {
8564 } else {
8566 }
8567 }
8568 }
8569 foreach n [array names otherrefids] {
8573 } else {
8575 }
8576 }
8577 }
8585 set i 0
8586 set j 0
8595 }
8596 } else {
8597 set cmp -1
8598 }
8599 } else {
8600 set cmp 1
8601 }
8603 -1 {
8605 incr i
8606 }
8607 0 {
8608 incr i
8609 incr j
8610 }
8611 1 {
8616 incr j
8617 }
8618 }
8619 }
8621 # delete last newline
8624 }
8626 # Stuff for finding nearby tags
8627 proc getallcommits {} {
8628 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8629 global idheads idtags idotherrefs allparents tagobjid
8631 if {![info exists allcommits]} {
8632 set nextarc 0
8633 set allcommits 0
8634 set seeds {}
8635 set allcwait 0
8636 set cachedarcs 0
8637 set allccache [file join [gitdir] "gitk.cache"]
8638 if {![catch {
8640 set allcwait 1
8642 }]} return
8643 }
8646 return
8647 }
8648 set cmd [list | git rev-list --parents]
8651 set ids "--all"
8652 } else {
8653 set refs [concat [array names idheads] [array names idtags] \
8654 [array names idotherrefs]]
8655 set ids {}
8656 set tagobjs {}
8657 foreach name [array names tagobjid] {
8659 }
8664 }
8665 }
8669 }
8670 }
8671 }
8675 incr allcommits
8676 nowbusy allcommits
8678 } else {
8679 dispneartags 0
8680 }
8681 }
8683 # Since most commits have 1 parent and 1 child, we group strings of
8684 # such commits into "arcs" joining branch/merge points (BMPs), which
8685 # are commits that either don't have 1 parent or don't have 1 child.
8686 #
8687 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8688 # arcout(id) - outgoing arcs for BMP
8689 # arcids(a) - list of IDs on arc including end but not start
8690 # arcstart(a) - BMP ID at start of arc
8691 # arcend(a) - BMP ID at end of arc
8692 # growing(a) - arc a is still growing
8693 # arctags(a) - IDs out of arcids (excluding end) that have tags
8694 # archeads(a) - IDs out of arcids (excluding end) that have heads
8695 # The start of an arc is at the descendent end, so "incoming" means
8696 # coming from descendents, and "outgoing" means going towards ancestors.
8698 proc getallclines {fd} {
8699 global allparents allchildren idtags idheads nextarc
8700 global arcnos arcids arctags arcout arcend arcstart archeads growing
8701 global seeds allcommits cachedarcs allcupdate
8703 set nid 0
8707 # seen it already
8708 continue
8709 }
8710 set cachedarcs 0
8717 } else {
8723 }
8726 }
8728 # seen parent already
8731 }
8735 }
8738 continue
8739 }
8740 }
8745 }
8747 set ao {}
8750 set a [incr nextarc]
8759 # seen it already, may need to make a new branch
8762 }
8766 }
8768 }
8770 }
8772 global cached_dheads cached_dtags cached_atags
8773 catch {unset cached_dheads}
8774 catch {unset cached_dtags}
8775 catch {unset cached_atags}
8776 }
8779 }
8780 set cacheok 1
8781 if {[catch {
8784 } err]} {
8785 # got an error reading the list of commits
8786 # if we were updating, try rereading the whole thing again
8788 incr allcommits -1
8790 return
8791 }
8792 error_popup "[mc "Error reading commit topology information;\
8793 branch and preceding/following tag information\
8795 set cacheok 0
8796 }
8797 if {[incr allcommits -1] == 0} {
8798 notbusy allcommits
8800 run savecache
8801 }
8802 }
8803 dispneartags 0
8804 return 0
8805 }
8807 proc recalcarc {a} {
8808 global arctags archeads arcids idtags idheads
8810 set at {}
8811 set ah {}
8815 }
8818 }
8819 }
8822 }
8824 proc splitarc {p} {
8825 global arcnos arcids nextarc arctags archeads idtags idheads
8826 global arcstart arcend arcout allparents growing
8831 return
8832 }
8837 return
8838 }
8839 set na [incr nextarc]
8842 } else {
8846 }
8856 }
8861 } else {
8864 }
8865 }
8867 # reconstruct tags and heads lists
8871 } else {
8874 }
8875 }
8877 # Update things for a new commit added that is a child of one
8878 # existing commit. Used when cherry-picking.
8879 proc addnewchild {id p} {
8880 global allparents allchildren idtags nextarc
8881 global arcnos arcids arctags arcout arcend arcstart archeads growing
8882 global seeds allcommits
8890 set a [incr nextarc]
8898 }
8901 }
8903 # This implements a cache for the topology information.
8904 # The cache saves, for each arc, the start and end of the arc,
8905 # the ids on the arc, and the outgoing arcs from the end.
8906 proc readcache {f} {
8907 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8908 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8909 global allcwait
8915 }
8916 if {[catch {
8918 # finish reading the cache and setting up arctags, etc.
8922 foreach id [array names idtags] {
8928 }
8929 }
8930 }
8931 foreach id [array names idheads] {
8937 }
8938 }
8939 }
8943 }
8944 }
8945 set allcwait 0
8946 } else {
8956 }
8960 } else {
8964 }
8965 }
8971 }
8974 }
8977 }
8979 }
8980 } err]} {
8982 return 0
8983 }
8985 getallcommits
8986 }
8988 }
8990 proc getcache {f} {
8991 global nextarc cachedarcs possible_seeds
8993 if {[catch {
8996 # make sure it's an integer
8999 set nextarc 0
9000 set possible_seeds {}
9002 } err]} {
9004 }
9005 return 0
9006 }
9008 proc dropcache {err} {
9009 global allcwait nextarc cachedarcs seeds
9012 foreach v {arcnos arcout arcids arcstart arcend growing \
9013 arctags archeads allparents allchildren} {
9016 }
9017 set allcwait 0
9018 set nextarc 0
9019 set cachedarcs 0
9020 set seeds {}
9021 getallcommits
9022 }
9024 proc writecache {f} {
9025 global cachearc cachedarcs allccache
9026 global arcstart arcend arcnos arcids arcout
9032 }
9033 if {[catch {
9037 } else {
9039 }
9040 }
9041 } err]} {
9045 return 0
9046 }
9051 return 0
9052 }
9053 return 1
9054 }
9056 proc savecache {} {
9057 global nextarc cachedarcs cachearc allccache
9060 set cachearc 0
9062 catch {
9066 }
9067 }
9069 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9070 # or 0 if neither is true.
9071 proc anc_or_desc {a b} {
9072 global arcout arcstart arcend arcnos cached_isanc
9075 # Both are on the same arc(s); either both are the same BMP,
9076 # or if one is not a BMP, the other is also not a BMP or is
9077 # the BMP at end of the arc (and it only has 1 incoming arc).
9078 # Or both can be BMPs with no incoming arcs.
9080 return 0
9081 }
9087 return 1
9088 } else {
9089 return -1
9090 }
9091 }
9097 } else {
9098 set aend {}
9099 }
9101 } else {
9103 }
9108 } else {
9109 set bend {}
9110 }
9112 } else {
9114 }
9116 return 1
9117 }
9119 return -1
9120 }
9123 return 1
9124 }
9125 }
9128 return -1
9129 }
9131 return 0
9132 }
9133 }
9141 continue
9142 }
9148 return 1
9152 return -1
9153 }
9159 }
9160 }
9161 }
9164 return 0
9165 }
9169 # and returns 0 if so and 1 if not.
9170 # If we subsequently discover a tag on such a growing tip, and that
9173 # isn't a good choice to display as a descendent tag of
9177 #
9178 proc is_certain {desc anc} {
9179 global arcnos arcout arcstart arcend growing problems
9181 set certain {}
9183 # tags on the same arc are certain
9185 return 1
9186 }
9191 }
9192 }
9195 } else {
9198 }
9200 return 1
9201 }
9204 set nnh 1
9205 set ngrowanc 0
9209 incr nnh -1
9210 }
9216 incr ngrowanc
9217 }
9218 } else {
9225 incr nnh -1
9226 }
9228 incr ngrowanc -1
9229 }
9239 incr nnh -1
9240 }
9242 incr ngrowanc -1
9243 }
9245 }
9246 }
9247 }
9248 }
9249 }
9250 }
9254 } else {
9257 incr nnh
9258 }
9259 }
9260 }
9261 }
9262 foreach x [array names growanc] {
9264 return 0
9265 }
9266 return 0
9267 }
9268 return 1
9269 }
9271 proc validate_arctags {a} {
9272 global arctags idtags
9274 set i -1
9277 incr i
9280 incr i -1
9281 }
9282 }
9284 }
9286 proc validate_archeads {a} {
9287 global archeads idheads
9289 set i -1
9292 incr i
9295 incr i -1
9296 }
9297 }
9299 }
9301 # Return the list of IDs that have tags that are descendents of id,
9302 # ignoring IDs that are descendents of IDs already reported.
9303 proc desctags {id} {
9304 global arcnos arcstart arcids arctags idtags allparents
9305 global growing cached_dtags
9308 return {}
9309 }
9310 set t1 [clock clicks -milliseconds]
9313 # part-way along an arc; check that arc first
9318 set tid {}
9323 }
9326 }
9327 }
9331 }
9332 }
9335 }
9340 set nc 1
9346 incr nc -1
9347 }
9348 # ignore tags on starting node
9352 set ta 1
9355 set ta 1
9356 }
9357 }
9364 }
9365 }
9374 }
9377 }
9379 incr nc -1
9380 }
9382 }
9383 }
9384 }
9389 incr nc
9390 }
9391 }
9392 }
9393 }
9394 set tags {}
9395 foreach id [array names tagloc] {
9400 }
9401 }
9402 }
9403 }
9404 set t2 [clock clicks -milliseconds]
9407 # remove tags that are descendents of other tags
9415 incr j -1
9416 incr i -1
9419 incr i -1
9420 break
9421 }
9422 }
9423 }
9425 if {[array names growing] ne {}} {
9426 # graph isn't finished, need to check if any tag could get
9427 # eclipsed by another tag coming later. Simply ignore any
9428 # tags that could later get eclipsed.
9429 set ctags {}
9433 }
9434 }
9437 } else {
9439 }
9440 } else {
9442 }
9443 set t3 [clock clicks -milliseconds]
9447 }
9449 }
9451 proc anctags {id} {
9452 global arcnos arcids arcout arcend arctags idtags allparents
9453 global growing cached_atags
9456 return {}
9457 }
9458 set t1 [clock clicks -milliseconds]
9461 # part-way along an arc; check that arc first
9470 }
9471 }
9472 }
9474 return {}
9475 }
9479 }
9480 }
9483 }
9488 set taglist {}
9489 set nc 1
9495 incr nc -1
9496 }
9497 # ignore tags on starting node
9501 set td 1
9504 set td 1
9505 }
9506 }
9512 }
9513 }
9525 }
9526 }
9529 }
9531 incr nc -1
9532 }
9534 }
9535 }
9536 }
9541 incr nc
9542 }
9543 }
9544 }
9545 }
9546 set t2 [clock clicks -milliseconds]
9548 set tags {}
9549 foreach id [array names tagloc] {
9554 }
9555 }
9556 }
9557 }
9559 # remove tags that are ancestors of other tags
9567 incr j -1
9568 incr i -1
9571 incr i -1
9572 break
9573 }
9574 }
9575 }
9577 if {[array names growing] ne {}} {
9578 # graph isn't finished, need to check if any tag could get
9579 # eclipsed by another tag coming later. Simply ignore any
9580 # tags that could later get eclipsed.
9581 set ctags {}
9585 }
9586 }
9589 } else {
9591 }
9592 } else {
9594 }
9595 set t3 [clock clicks -milliseconds]
9599 }
9601 }
9603 # Return the list of IDs that have heads that are descendents of id,
9604 # including id itself if it has a head.
9605 proc descheads {id} {
9606 global arcnos arcstart arcids archeads idheads cached_dheads
9607 global allparents
9610 return {}
9611 }
9612 set aret {}
9614 # part-way along an arc; check it first
9623 }
9624 }
9626 }
9630 set ret {}
9635 } else {
9638 }
9644 }
9645 }
9650 }
9651 }
9652 }
9653 }
9657 }
9659 proc addedtag {id} {
9660 global arcnos arcout cached_dtags cached_atags
9665 }
9666 catch {unset cached_dtags}
9667 catch {unset cached_atags}
9668 }
9670 proc addedhead {hid head} {
9671 global arcnos arcout cached_dheads
9676 }
9677 catch {unset cached_dheads}
9678 }
9680 proc removedhead {hid head} {
9681 global cached_dheads
9683 catch {unset cached_dheads}
9684 }
9686 proc movedhead {hid head} {
9687 global arcnos arcout cached_dheads
9692 }
9693 catch {unset cached_dheads}
9694 }
9696 proc changedrefs {} {
9697 global cached_dheads cached_dtags cached_atags
9698 global arctags archeads arcnos arcout idheads idtags
9700 foreach id [concat [array names idheads] [array names idtags]] {
9706 }
9707 }
9708 }
9709 catch {unset cached_dtags}
9710 catch {unset cached_atags}
9711 catch {unset cached_dheads}
9712 }
9714 proc rereadrefs {} {
9715 global idtags idheads idotherrefs mainheadid
9717 set refids [concat [array names idtags] \
9718 [array names idheads] [array names idotherrefs]]
9722 }
9723 }
9725 readrefs
9726 changedrefs
9728 [array names idheads] [array names idotherrefs]]]
9733 }
9734 }
9738 }
9739 run refill_reflist
9740 }
9742 proc listrefs {id} {
9743 global idtags idheads idotherrefs
9745 set x {}
9748 }
9749 set y {}
9752 }
9753 set z {}
9756 }
9758 }
9760 proc showtag {tag isnew} {
9761 global ctext tagcontents tagids linknum tagobjid
9765 }
9767 clear_ctext
9768 settabs 0
9769 set linknum 0
9771 catch {
9773 }
9774 }
9777 } else {
9779 }
9782 init_flist {}
9783 }
9785 proc doquit {} {
9786 global stopped
9787 global gitktmpdir
9789 set stopped 100
9790 savestuff .
9791 destroy .
9793 if {[info exists gitktmpdir]} {
9795 }
9796 }
9798 proc mkfontdisp {font top which} {
9807 }
9809 proc choosefont {font which} {
9810 global fontparam fontlist fonttop fontattr
9811 global prefstop
9819 set top .gitkfont
9822 font create sample
9829 set fontlist [lsort [font families]]
9840 -textvariable fontparam(size) \
9841 -validatecommand {string is integer -strict %s}
9843 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9844 -variable fontparam(weight) -onvalue bold -offvalue normal
9846 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9847 -variable fontparam(slant) -onvalue italic -offvalue roman
9851 -background white
9853 -fill black -tags text
9865 trace add variable fontparam write chg_fontparam
9866 } else {
9869 }
9874 }
9875 }
9877 proc centertext {w} {
9879 }
9881 proc fontok {} {
9882 global fontparam fontpref prefstop
9888 }
9891 }
9895 fontcan
9896 }
9898 proc fontcan {} {
9899 global fonttop fontparam
9901 if {[info exists fonttop]} {
9903 catch {font delete sample}
9904 unset fonttop
9905 unset fontparam
9906 }
9907 }
9909 proc selfontfam {} {
9910 global fonttop fontparam
9915 }
9916 }
9918 proc chg_fontparam {v sub op} {
9919 global fontparam
9922 }
9924 proc doprefs {} {
9925 global maxwidth maxgraphpct
9926 global oldprefs prefstop showneartags showlocalchanges
9927 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
9928 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9930 set top .gitkprefs
9934 return
9935 }
9936 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9937 limitdiffs tabstop perfile_attrs} {
9939 }
9947 -font optionfont
9951 -font optionfont
9989 -padx 10
9991 -command choose_extdiff
10018 "diff hunk header" \
10024 [mc "marked line background"] \
10048 }
10050 proc choose_extdiff {} {
10051 global extdifftool
10053 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
10056 }
10057 }
10059 proc choosecolor {v vi w x cmd} {
10068 }
10070 proc setselbg {c} {
10071 global bglist cflist
10074 }
10078 }
10080 proc setbg {c} {
10081 global bglist
10085 }
10086 }
10088 proc setfg {c} {
10089 global fglist canv
10093 }
10096 }
10098 proc prefscan {} {
10099 global oldprefs prefstop
10101 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10102 limitdiffs tabstop perfile_attrs} {
10105 }
10107 unset prefstop
10108 fontcan
10109 }
10111 proc prefsok {} {
10112 global maxwidth maxgraphpct
10113 global oldprefs prefstop showneartags showlocalchanges
10114 global fontpref mainfont textfont uifont
10115 global limitdiffs treediffs perfile_attrs
10118 unset prefstop
10119 fontcan
10120 set fontchanged 0
10124 eval font configure mainfont [fontflags mainfont]
10125 eval font configure mainfontbold [fontflags mainfont 1]
10126 setcoords
10127 set fontchanged 1
10128 }
10132 eval font configure textfont [fontflags textfont]
10133 eval font configure textfontbold [fontflags textfont 1]
10134 }
10138 eval font configure uifont [fontflags uifont]
10139 }
10140 settabs
10143 doshowlocalchanges
10144 } else {
10145 dohidelocalchanges
10146 }
10147 }
10150 # treediffs elements are limited by path;
10151 # won't have encodings cached if perfile_attrs was just turned on
10152 catch {unset treediffs}
10153 }
10156 redisplay
10159 reselectline
10160 }
10161 }
10163 proc formatdate {d} {
10164 global datetimeformat
10167 }
10169 }
10171 # This list of encoding names and aliases is distilled from
10172 # http://www.iana.org/assignments/character-sets.
10173 # Not all of them are supported by Tcl.
10174 set encoding_aliases {
10175 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10176 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10177 { ISO-10646-UTF-1 csISO10646UTF1 }
10178 { ISO_646.basic:1983 ref csISO646basic1983 }
10179 { INVARIANT csINVARIANT }
10180 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10181 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10182 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10183 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10184 { NATS-DANO iso-ir-9-1 csNATSDANO }
10185 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10186 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10187 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10188 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10189 { ISO-2022-KR csISO2022KR }
10190 { EUC-KR csEUCKR }
10191 { ISO-2022-JP csISO2022JP }
10192 { ISO-2022-JP-2 csISO2022JP2 }
10193 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10194 csISO13JISC6220jp }
10195 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10196 { IT iso-ir-15 ISO646-IT csISO15Italian }
10197 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10198 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10199 { greek7-old iso-ir-18 csISO18Greek7Old }
10200 { latin-greek iso-ir-19 csISO19LatinGreek }
10201 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10202 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10203 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10204 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10205 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10206 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10207 { INIS iso-ir-49 csISO49INIS }
10208 { INIS-8 iso-ir-50 csISO50INIS8 }
10209 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10210 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10211 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10212 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10213 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10214 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10215 csISO60Norwegian1 }
10216 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10217 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10218 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10219 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10220 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10221 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10222 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10223 { greek7 iso-ir-88 csISO88Greek7 }
10224 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10225 { iso-ir-90 csISO90 }
10226 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10227 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10228 csISO92JISC62991984b }
10229 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10230 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10231 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10232 csISO95JIS62291984handadd }
10233 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10234 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10235 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10236 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10237 CP819 csISOLatin1 }
10238 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10239 { T.61-7bit iso-ir-102 csISO102T617bit }
10240 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10241 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10242 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10243 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10244 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10245 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10246 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10247 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10248 arabic csISOLatinArabic }
10249 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10250 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10251 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10252 greek greek8 csISOLatinGreek }
10253 { T.101-G2 iso-ir-128 csISO128T101G2 }
10254 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10255 csISOLatinHebrew }
10256 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10257 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10258 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10259 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10260 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10261 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10262 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10263 csISOLatinCyrillic }
10264 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10265 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10266 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10267 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10268 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10269 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10270 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10271 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10272 { ISO_10367-box iso-ir-155 csISO10367Box }
10273 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10274 { latin-lap lap iso-ir-158 csISO158Lap }
10275 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10276 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10277 { us-dk csUSDK }
10278 { dk-us csDKUS }
10279 { JIS_X0201 X0201 csHalfWidthKatakana }
10280 { KSC5636 ISO646-KR csKSC5636 }
10281 { ISO-10646-UCS-2 csUnicode }
10282 { ISO-10646-UCS-4 csUCS4 }
10283 { DEC-MCS dec csDECMCS }
10284 { hp-roman8 roman8 r8 csHPRoman8 }
10285 { macintosh mac csMacintosh }
10286 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10287 csIBM037 }
10288 { IBM038 EBCDIC-INT cp038 csIBM038 }
10289 { IBM273 CP273 csIBM273 }
10290 { IBM274 EBCDIC-BE CP274 csIBM274 }
10291 { IBM275 EBCDIC-BR cp275 csIBM275 }
10292 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10293 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10294 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10295 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10296 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10297 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10298 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10299 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10300 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10301 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10302 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10303 { IBM437 cp437 437 csPC8CodePage437 }
10304 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10305 { IBM775 cp775 csPC775Baltic }
10306 { IBM850 cp850 850 csPC850Multilingual }
10307 { IBM851 cp851 851 csIBM851 }
10308 { IBM852 cp852 852 csPCp852 }
10309 { IBM855 cp855 855 csIBM855 }
10310 { IBM857 cp857 857 csIBM857 }
10311 { IBM860 cp860 860 csIBM860 }
10312 { IBM861 cp861 861 cp-is csIBM861 }
10313 { IBM862 cp862 862 csPC862LatinHebrew }
10314 { IBM863 cp863 863 csIBM863 }
10315 { IBM864 cp864 csIBM864 }
10316 { IBM865 cp865 865 csIBM865 }
10317 { IBM866 cp866 866 csIBM866 }
10318 { IBM868 CP868 cp-ar csIBM868 }
10319 { IBM869 cp869 869 cp-gr csIBM869 }
10320 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10321 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10322 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10323 { IBM891 cp891 csIBM891 }
10324 { IBM903 cp903 csIBM903 }
10325 { IBM904 cp904 904 csIBBM904 }
10326 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10327 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10328 { IBM1026 CP1026 csIBM1026 }
10329 { EBCDIC-AT-DE csIBMEBCDICATDE }
10330 { EBCDIC-AT-DE-A csEBCDICATDEA }
10331 { EBCDIC-CA-FR csEBCDICCAFR }
10332 { EBCDIC-DK-NO csEBCDICDKNO }
10333 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10334 { EBCDIC-FI-SE csEBCDICFISE }
10335 { EBCDIC-FI-SE-A csEBCDICFISEA }
10336 { EBCDIC-FR csEBCDICFR }
10337 { EBCDIC-IT csEBCDICIT }
10338 { EBCDIC-PT csEBCDICPT }
10339 { EBCDIC-ES csEBCDICES }
10340 { EBCDIC-ES-A csEBCDICESA }
10341 { EBCDIC-ES-S csEBCDICESS }
10342 { EBCDIC-UK csEBCDICUK }
10343 { EBCDIC-US csEBCDICUS }
10344 { UNKNOWN-8BIT csUnknown8BiT }
10345 { MNEMONIC csMnemonic }
10346 { MNEM csMnem }
10347 { VISCII csVISCII }
10348 { VIQR csVIQR }
10349 { KOI8-R csKOI8R }
10350 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10351 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10352 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10353 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10354 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10355 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10356 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10357 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10358 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10359 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10360 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10361 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10362 { IBM1047 IBM-1047 }
10363 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10364 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10365 { UNICODE-1-1 csUnicode11 }
10366 { CESU-8 csCESU-8 }
10367 { BOCU-1 csBOCU-1 }
10368 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10369 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10370 l8 }
10371 { ISO-8859-15 ISO_8859-15 Latin-9 }
10372 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10373 { GBK CP936 MS936 windows-936 }
10374 { JIS_Encoding csJISEncoding }
10375 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10376 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10377 EUC-JP }
10378 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10379 { ISO-10646-UCS-Basic csUnicodeASCII }
10380 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10381 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10382 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10383 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10384 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10385 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10386 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10387 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10388 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10389 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10390 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10391 { Ventura-US csVenturaUS }
10392 { Ventura-International csVenturaInternational }
10393 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10394 { PC8-Turkish csPC8Turkish }
10395 { IBM-Symbols csIBMSymbols }
10396 { IBM-Thai csIBMThai }
10397 { HP-Legal csHPLegal }
10398 { HP-Pi-font csHPPiFont }
10399 { HP-Math8 csHPMath8 }
10400 { Adobe-Symbol-Encoding csHPPSMath }
10401 { HP-DeskTop csHPDesktop }
10402 { Ventura-Math csVenturaMath }
10403 { Microsoft-Publishing csMicrosoftPublishing }
10404 { Windows-31J csWindows31J }
10405 { GB2312 csGB2312 }
10406 { Big5 csBig5 }
10407 }
10409 proc tcl_encoding {enc} {
10410 global encoding_aliases tcl_encoding_cache
10413 }
10414 set names [encoding names]
10419 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10422 }
10423 }
10428 # look through the aliases for one that tcl knows about
10434 }
10435 }
10437 }
10438 break
10439 }
10440 }
10441 set tclenc {}
10444 }
10447 }
10449 proc gitattr {path attr default} {
10450 global path_attr_cache
10453 } else {
10454 set r "unspecified"
10457 }
10459 }
10462 }
10464 }
10466 proc cache_gitattr {attr pathlist} {
10467 global path_attr_cache
10468 set newlist {}
10472 }
10473 }
10474 set lim 1000
10475 if {[tk windowingsystem] == "win32"} {
10476 # windows has a 32k limit on the arguments to a command...
10477 set lim 30
10478 }
10487 }
10489 }
10490 }
10491 }
10492 }
10493 }
10495 proc get_path_encoding {path} {
10496 global gui_encoding perfile_attrs
10502 }
10503 }
10505 }
10507 # First check that Tcl/Tk is recent enough
10508 if {[catch {package require Tk 8.4} err]} {
10509 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10510 Gitk requires at least Tcl/Tk 8.4."]
10511 exit 1
10512 }
10514 # defaults...
10515 set wrcomcmd "git diff-tree --stdin -p --pretty"
10517 set gitencoding {}
10518 catch {
10519 set gitencoding [exec git config --get i18n.commitencoding]
10520 }
10522 set gitencoding "utf-8"
10523 }
10527 }
10529 set gui_encoding [encoding system]
10530 catch {
10531 set enc [exec git config --get gui.encoding]
10536 } else {
10538 }
10539 }
10540 }
10542 set mainfont {Helvetica 9}
10543 set textfont {Courier 9}
10544 set uifont {Helvetica 9 bold}
10545 set tabstop 8
10546 set findmergefiles 0
10547 set maxgraphpct 50
10548 set maxwidth 16
10549 set revlistorder 0
10550 set fastdate 0
10551 set uparrowlen 5
10552 set downarrowlen 5
10553 set mingaplen 100
10554 set cmitmode "patch"
10555 set wrapcomment "none"
10556 set showneartags 1
10557 set maxrefs 20
10558 set maxlinelen 200
10559 set showlocalchanges 1
10560 set limitdiffs 1
10561 set datetimeformat "%Y-%m-%d %H:%M:%S"
10562 set autoselect 1
10563 set perfile_attrs 0
10565 set extdifftool "meld"
10567 set colors {green red blue magenta darkgrey brown orange}
10568 set bgcolor white
10569 set fgcolor black
10570 set diffcolors {red "#00a000" blue}
10571 set diffcontext 3
10572 set ignorespace 0
10573 set selectbgcolor gray85
10574 set markbgcolor "#e0e0ff"
10576 set circlecolors {white blue gray blue blue}
10578 # button for popping up context menus
10579 if {[tk windowingsystem] eq "aqua"} {
10580 set ctxbut <Button-2>
10581 } else {
10582 set ctxbut <Button-3>
10583 }
10585 ## For msgcat loading, first locate the installation location.
10586 if { [info exists ::env(GITK_MSGSDIR)] } {
10587 ## Msgsdir was manually set in the environment.
10588 set gitk_msgsdir $::env(GITK_MSGSDIR)
10589 } else {
10590 ## Let's guess the prefix from argv0.
10594 unset gitk_prefix
10595 }
10597 ## Internationalization (i18n) through msgcat and gettext. See
10598 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10599 package require msgcat
10600 namespace import ::msgcat::mc
10601 ## And eventually load the actual message catalog
10604 catch {source ~/.gitk}
10606 font create optionfont -family sans-serif -size -12
10609 eval font create mainfont [fontflags mainfont]
10610 eval font create mainfontbold [fontflags mainfont 1]
10613 eval font create textfont [fontflags textfont]
10614 eval font create textfontbold [fontflags textfont 1]
10617 eval font create uifont [fontflags uifont]
10619 setoptions
10621 # check that we can find a .git directory somewhere...
10622 if {[catch {set gitdir [gitdir]}]} {
10623 show_error {} . [mc "Cannot find a git repository here."]
10624 exit 1
10625 }
10628 exit 1
10629 }
10631 set selecthead {}
10632 set selectheadid {}
10634 set revtreeargs {}
10635 set cmdline_files {}
10636 set i 0
10637 set revtreeargscmd {}
10640 "" { }
10641 "--" {
10643 break
10644 }
10645 "--select-commit=*" {
10647 }
10648 "--argscmd=*" {
10650 }
10651 default {
10653 }
10654 }
10655 incr i
10656 }
10659 set selecthead {}
10660 }
10663 # no -- on command line, but some arguments (other than --argscmd)
10664 if {[catch {
10669 # Unfortunately git rev-parse doesn't produce an error when
10670 # something is both a revision and a filename. To be consistent
10671 # with git log and git rev-list, check revtreeargs for filenames.
10674 show_error {} . [mc "Ambiguous argument '%s': both revision\
10676 exit 1
10677 }
10678 }
10679 } err]} {
10681 # so look for "fatal:".
10685 }
10687 exit 1
10688 }
10689 }
10691 set nullid "0000000000000000000000000000000000000000"
10692 set nullid2 "0000000000000000000000000000000000000001"
10693 set nullfile "/dev/null"
10697 set runq {}
10698 set history {}
10699 set historyindex 0
10700 set fh_serial 0
10701 set nhl_names {}
10702 set highlight_paths {}
10703 set findpattern {}
10704 set searchdirn -forwards
10705 set boldrows {}
10706 set boldnamerows {}
10707 set diffelide {0 0}
10708 set markingmatches 0
10709 set linkentercount 0
10710 set need_redisplay 0
10711 set nrows_drawn 0
10712 set firsttabstop 0
10714 set nextviewnum 1
10715 set curview 0
10716 set selectedview 0
10717 set selectedhlview [mc "None"]
10718 set highlight_related [mc "None"]
10719 set highlight_files {}
10720 set viewfiles(0) {}
10721 set viewperm(0) 0
10722 set viewargs(0) {}
10723 set viewargscmd(0) {}
10725 set selectedline {}
10726 set numcommits 0
10727 set loginstance 0
10728 set cmdlineok 0
10729 set stopped 0
10730 set stuffsaved 0
10731 set patchnum 0
10732 set lserial 0
10733 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10734 setcoords
10735 makewindow
10736 # wait for the window to become visible
10737 tkwait visibility .
10739 readrefs
10742 # create a view for the files/dirs specified on the command line
10743 set curview 1
10744 set selectedview 1
10745 set nextviewnum 2
10746 set viewname(1) [mc "Command line"]
10750 set viewperm(1) 0
10751 set vdatemode(1) 0
10752 addviewmenu 1
10753 .bar.view entryconf [mca "Edit view..."] -state normal
10754 .bar.view entryconf [mca "Delete view"] -state normal
10755 }
10757 if {[info exists permviews]} {
10760 incr nextviewnum
10767 }
10768 }
10769 getcommits {}