| blob | 477590eed6a460eeeac0ff13b8b41fa3faac6948 |
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 }
1749 tkwait window $top
1750 }
1752 proc error_popup msg {
1753 set w .error
1754 toplevel $w
1755 wm transient $w .
1756 show_error $w $w $msg
1757 }
1759 proc confirm_popup msg {
1760 global confirm_ok
1762 set w .confirm
1763 toplevel $w
1764 wm transient $w .
1772 tkwait window $w
1774 }
1776 proc setoptions {} {
1778 option add *Panedwindow.sashRelief raised startupFile
1779 option add *Button.font uifont startupFile
1780 option add *Checkbutton.font uifont startupFile
1781 option add *Radiobutton.font uifont startupFile
1782 option add *Menu.font uifont startupFile
1783 option add *Menubutton.font uifont startupFile
1784 option add *Label.font uifont startupFile
1785 option add *Message.font uifont startupFile
1786 option add *Entry.font uifont startupFile
1787 }
1789 # Make a menu and submenus.
1790 # m is the window name for the menu, items is the list of menu items to add.
1791 # Each item is a list {mc label type description options...}
1792 # mc is ignored; it's so we can put mc there to alert xgettext
1793 # label is the string that appears in the menu
1794 # type is cascade, command or radiobutton (should add checkbutton)
1795 # description depends on type; it's the sublist for cascade, the
1796 # command to invoke for command, or {variable value} for radiobutton
1798 menu $m
1809 }
1810 }
1815 }
1818 }
1822 }
1823 }
1827 }
1828 }
1829 }
1831 # translate string and remove ampersands
1834 }
1836 proc makewindow {} {
1837 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1838 global tabstop
1839 global findtype findtypemenu findloc findstring fstring geometry
1840 global entries sha1entry sha1string sha1but
1841 global diffcontextstring diffcontext
1842 global ignorespace
1843 global maincursor textcursor curtextcursor
1844 global rowctxmenu fakerowmenu mergemax wrapcomment
1845 global highlight_files gdttype
1846 global searchstring sstring
1847 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1848 global headctxmenu progresscanv progressitem progresscoords statusw
1849 global fprogitem fprogcoord lastprogupdate progupdatepending
1850 global rprogitem rprogcoord rownumsel numcommits
1851 global have_tk85
1853 # The "mc" arguments here are purely so that xgettext
1854 # sees the following string as needing to be translated
1855 makemenu .bar {
1862 }}
1865 }}
1872 }}
1876 }}
1877 }
1878 . configure -menu .bar
1880 # the gui has upper and lower half, parts of a paned window.
1881 panedwindow .ctop -orient vertical
1883 # possibly use assumed geometry
1891 }
1893 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1895 frame .tf.histframe
1898 # create three canvases
1899 set cscroll .tf.histframe.csb
1900 set canv .tf.histframe.pwclist.canv
1901 canvas $canv \
1905 .tf.histframe.pwclist add $canv
1906 set canv2 .tf.histframe.pwclist.canv2
1907 canvas $canv2 \
1910 .tf.histframe.pwclist add $canv2
1911 set canv3 .tf.histframe.pwclist.canv3
1912 canvas $canv3 \
1915 .tf.histframe.pwclist add $canv3
1919 # a scroll bar to rule them
1923 lappend bglist $canv $canv2 $canv3
1926 # we have two button bars at bottom of top frame. Bar 1
1927 frame .tf.bar
1930 set sha1entry .tf.bar.sha1
1932 set sha1but .tf.bar.sha1label
1936 pack .tf.bar.sha1label -side left
1938 trace add variable sha1string write sha1change
1942 #define left_width 16
1943 #define left_height 16
1944 static unsigned char left_bits[] = {
1948 }
1950 #define right_width 16
1951 #define right_height 16
1952 static unsigned char right_bits[] = {
1956 }
1971 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1972 -side left
1973 global selectedline
1974 trace add variable selectedline write selectedline_change
1976 # Status label and progress bar
1977 set statusw .tf.bar.status
1981 set progresscanv .tf.bar.progress
1994 # build up the bottom bar of upper window
1999 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2006 trace add variable gdttype write gdttype_change
2010 set fstring .tf.lbar.findstring
2011 lappend entries $fstring
2013 trace add variable findstring write find_change
2017 trace add variable findtype write findcom_change
2021 trace add variable findloc write find_change
2022 pack .tf.lbar.findloc -side right
2023 pack .tf.lbar.findtype -side right
2026 # Finish putting the upper half of the viewer together
2030 .ctop add .tf
2034 # now build up the bottom
2035 panedwindow .pwbottom -orient horizontal
2037 # lower left, a text box over search bar, scroll bar to the right
2038 # if we know window height, then that will set the lower text height, otherwise
2039 # we set lower text height which will drive window height
2044 }
2045 frame .bleft.top
2046 frame .bleft.mid
2047 frame .bleft.bottom
2051 set sstring .bleft.top.sstring
2053 lappend entries $sstring
2054 trace add variable searchstring write incrsearch
2067 -textvariable diffcontextstring
2069 trace add variable diffcontextstring write diffcontextchange
2070 lappend entries .bleft.mid.diffcontext
2071 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2075 set ctext .bleft.bottom.ctext
2082 }
2089 grid .bleft.bottom.sbhorizontal -sticky ew
2094 lappend bglist $ctext
2095 lappend fglist $ctext
2124 .pwbottom add .bleft
2127 # lower right
2128 frame .bright
2129 frame .bright.mode
2136 set cflist .bright.cfiles
2138 text $cflist \
2141 -font mainfont \
2146 lappend bglist $cflist
2147 lappend fglist $cflist
2151 $cflist tag configure highlight \
2155 .pwbottom add .bright
2156 .ctop add .pwbottom
2158 # restore window width & height if known
2163 }
2166 }
2168 }
2169 }
2172 set M1B M1
2174 set M1B Control
2175 }
2180 #bindall <B1-Motion> {selcanvline %W %x %y}
2190 allcanvs yview scroll $delta units
2191 }
2192 }
2193 }
2215 bindkey p "selnextline -1"
2216 bindkey n "selnextline 1"
2217 bindkey z "goback"
2218 bindkey x "goforw"
2219 bindkey i "selnextline -1"
2220 bindkey k "selnextline 1"
2221 bindkey j "goback"
2222 bindkey l "goforw"
2223 bindkey b prevfile
2229 bindkey f nextfile
2241 wm protocol . WM_DELETE_WINDOW doquit
2250 global ctxbut
2254 set maincursor [. cget -cursor]
2258 set rowctxmenu .rowctxmenu
2260 {mc "Diff this -> selected" command {diffvssel 0}}
2261 {mc "Diff selected -> this" command {diffvssel 1}}
2262 {mc "Make patch" command mkpatch}
2263 {mc "Create tag" command mktag}
2264 {mc "Write commit to file" command writecommit}
2265 {mc "Create new branch" command mkbranch}
2266 {mc "Cherry-pick this commit" command cherrypick}
2267 {mc "Reset HEAD branch to here" command resethead}
2268 }
2271 set fakerowmenu .fakerowmenu
2273 {mc "Diff this -> selected" command {diffvssel 0}}
2274 {mc "Diff selected -> this" command {diffvssel 1}}
2275 {mc "Make patch" command mkpatch}
2276 }
2279 set headctxmenu .headctxmenu
2281 {mc "Check out this branch" command cobranch}
2282 {mc "Remove this branch" command rmbranch}
2283 }
2286 global flist_menu
2287 set flist_menu .flistctxmenu
2289 {mc "Highlight this too" command {flist_hl 0}}
2290 {mc "Highlight this only" command {flist_hl 1}}
2291 {mc "External diff" command {external_diff}}
2292 {mc "Blame parent commit" command {external_blame 1}}
2293 }
2296 global diff_menu
2297 set diff_menu .diffctxmenu
2299 {mc "Run git gui blame on this line" command {external_blame_diff}}
2300 }
2302 }
2304 # Windows sends all mouse wheel events to the current focused window, not
2305 # the one where the mouse hovers, so bind those events here and redirect
2306 # to the correct window
2307 proc windows_mousewheel_redirector {W X Y D} {
2308 global canv canv2 canv3
2314 } else {
2315 catch {
2317 }
2318 }
2319 }
2320 }
2322 # Update row number label when selectedline changes
2323 proc selectedline_change {n1 n2 op} {
2324 global selectedline rownumsel
2327 set rownumsel {}
2328 } else {
2330 }
2331 }
2333 # mouse-2 makes all windows scan vertically, but only the one
2334 # the cursor is in scans horizontally
2335 proc canvscan {op w x y} {
2336 global canv canv2 canv3
2340 } else {
2342 }
2343 }
2344 }
2346 proc scrollcanv {cscroll f0 f1} {
2348 drawvisible
2349 flushhighlights
2350 }
2352 # when we make a key binding for the toplevel, make sure
2353 # it doesn't get triggered when that key is pressed in the
2354 # find string entry widget.
2355 proc bindkey {ev script} {
2356 global entries
2360 set escript [bind Entry <Key>]
2361 }
2364 }
2365 }
2367 # set the focus back to the toplevel for any click outside
2368 # the entry widgets
2369 proc click {w} {
2370 global ctext entries
2373 }
2374 focus .
2375 }
2377 # Adjust the progress bar for a change in requested extent or canvas size
2378 proc adjustprogress {} {
2379 global progresscanv progressitem progresscoords
2380 global fprogitem fprogcoord lastprogupdate progupdatepending
2381 global rprogitem rprogcoord
2390 set now [clock clicks -milliseconds]
2392 set progupdatepending 0
2393 update
2395 set progupdatepending 1
2397 }
2398 }
2400 proc doprogupdate {} {
2401 global lastprogupdate progupdatepending
2404 set progupdatepending 0
2405 set lastprogupdate [clock clicks -milliseconds]
2406 update
2407 }
2408 }
2410 proc savestuff {w} {
2411 global canv canv2 canv3 mainfont textfont uifont tabstop
2412 global stuffsaved findmergefiles maxgraphpct
2413 global maxwidth showneartags showlocalchanges
2414 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2415 global cmitmode wrapcomment datetimeformat limitdiffs
2416 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2417 global autoselect extdifftool perfile_attrs
2420 if {![winfo viewable .]} return
2421 catch {
2422 set f [open "~/.gitk-new" w]
2458 }
2459 }
2462 file rename -force "~/.gitk-new" "~/.gitk"
2463 }
2464 set stuffsaved 1
2465 }
2467 proc resizeclistpanes {win w} {
2468 global oldwidth
2475 } else {
2480 set sash0 30
2481 }
2484 }
2489 }
2490 }
2491 }
2494 }
2496 }
2498 proc resizecdetpanes {win w} {
2499 global oldwidth
2504 } else {
2508 set sash0 45
2509 }
2512 }
2513 }
2515 }
2517 }
2519 proc allcanvs args {
2520 global canv canv2 canv3
2524 }
2526 proc bindall {event action} {
2527 global canv canv2 canv3
2531 }
2533 proc about {} {
2534 global uifont
2535 set w .about
2538 return
2539 }
2543 Gitk - a commit viewer for git
2545 Copyright © 2005-2008 Paul Mackerras
2547 Use and redistribute under the terms of the GNU General Public License"] \
2548 -justify center -aspect 400 -border 2 -bg white -relief groove
2555 }
2557 proc keys {} {
2558 set w .keys
2561 return
2562 }
2563 if {[tk windowingsystem] eq {aqua}} {
2564 set M1T Cmd
2565 } else {
2566 set M1T Ctrl
2567 }
2571 [mc "Gitk key bindings:"]
2574 [mc "<Home> Move to first commit"]
2575 [mc "<End> Move to last commit"]
2576 [mc "<Up>, p, i Move up one commit"]
2577 [mc "<Down>, n, k Move down one commit"]
2578 [mc "<Left>, z, j Go back in history list"]
2579 [mc "<Right>, x, l Go forward in history list"]
2580 [mc "<PageUp> Move up one page in commit list"]
2581 [mc "<PageDown> Move down one page in commit list"]
2588 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2589 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2590 [mc "<Delete>, b Scroll diff view up one page"]
2591 [mc "<Backspace> Scroll diff view up one page"]
2592 [mc "<Space> Scroll diff view down one page"]
2593 [mc "u Scroll diff view up 18 lines"]
2594 [mc "d Scroll diff view down 18 lines"]
2597 [mc "<Return> Move to next find hit"]
2598 [mc "/ Move to next find hit, or redo find"]
2599 [mc "? Move to previous find hit"]
2600 [mc "f Scroll diff view to next file"]
2607 [mc "<F5> Update"]
2608 " \
2609 -justify left -bg white -border 2 -relief groove
2616 }
2618 # Procedures for manipulating the file list window at the
2619 # bottom right of the overall window.
2621 proc treeview {w l openlevs} {
2622 global treecontents treediropen treeheight treeparent treeindex
2624 set ix 0
2625 set treeindex() 0
2626 set lev 0
2627 set prefix {}
2628 set prefixend -1
2629 set prefendstack {}
2630 set htstack {}
2631 set ht 0
2632 set treecontents() {}
2639 }
2646 incr lev -1
2647 }
2651 set ht 0
2663 set ht 1
2668 set str "\n"
2676 }
2677 incr lev
2678 }
2681 incr ht
2682 set str "\n"
2686 }
2688 }
2689 }
2697 }
2699 }
2701 proc linetoelt {l} {
2702 global treeheight treecontents
2704 set y 2
2705 set prefix {}
2706 while {1} {
2710 }
2711 set n 1
2716 incr y
2717 break
2718 }
2719 }
2721 }
2722 }
2723 }
2725 proc highlight_tree {y prefix} {
2726 global treeheight treecontents cflist
2732 }
2733 incr y
2736 }
2737 }
2739 }
2741 proc treeclosedir {w dir} {
2742 global treediropen treeheight treeparent treeindex
2754 }
2755 }
2757 proc treeopendir {w dir} {
2758 global treediropen treeheight treeparent treecontents treeindex
2765 set lev 0
2766 set str "\n"
2769 incr lev
2770 append str "\t"
2772 }
2787 } else {
2790 }
2791 }
2804 }
2806 }
2807 }
2809 proc treeclick {w x y} {
2810 global treediropen cmitmode ctext cflist cflist_top
2813 if {![info exists cflist_top]} return
2820 return
2821 }
2827 } else {
2829 }
2830 }
2832 proc setfilelist {id} {
2833 global treefilelist cflist
2836 }
2838 image create bitmap tri-rt -background black -foreground blue -data {
2839 #define tri-rt_width 13
2840 #define tri-rt_height 13
2841 static unsigned char tri-rt_bits[] = {
2842 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2843 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2844 0x00, 0x00};
2845 } -maskdata {
2846 #define tri-rt-mask_width 13
2847 #define tri-rt-mask_height 13
2848 static unsigned char tri-rt-mask_bits[] = {
2849 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2850 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2851 0x08, 0x00};
2852 }
2853 image create bitmap tri-dn -background black -foreground blue -data {
2854 #define tri-dn_width 13
2855 #define tri-dn_height 13
2856 static unsigned char tri-dn_bits[] = {
2857 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2858 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2859 0x00, 0x00};
2860 } -maskdata {
2861 #define tri-dn-mask_width 13
2862 #define tri-dn-mask_height 13
2863 static unsigned char tri-dn-mask_bits[] = {
2864 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2865 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2866 0x00, 0x00};
2867 }
2869 image create bitmap reficon-T -background black -foreground yellow -data {
2870 #define tagicon_width 13
2871 #define tagicon_height 9
2872 static unsigned char tagicon_bits[] = {
2873 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2874 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2875 } -maskdata {
2876 #define tagicon-mask_width 13
2877 #define tagicon-mask_height 9
2878 static unsigned char tagicon-mask_bits[] = {
2879 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2880 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2881 }
2882 set rectdata {
2883 #define headicon_width 13
2884 #define headicon_height 9
2885 static unsigned char headicon_bits[] = {
2886 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2887 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2888 }
2889 set rectmask {
2890 #define headicon-mask_width 13
2891 #define headicon-mask_height 9
2892 static unsigned char headicon-mask_bits[] = {
2893 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2894 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2895 }
2896 image create bitmap reficon-H -background black -foreground green \
2898 image create bitmap reficon-o -background black -foreground "#ddddff" \
2901 proc init_flist {first} {
2902 global cflist cflist_top difffilestart
2908 set cflist_top 1
2910 } else {
2911 catch {unset cflist_top}
2912 }
2914 set difffilestart {}
2915 }
2917 proc highlight_tag {f} {
2918 global highlight_paths
2922 return "bold"
2923 }
2924 }
2925 return {}
2926 }
2928 proc highlight_filelist {} {
2929 global cmitmode cflist
2938 }
2939 }
2940 } else {
2941 highlight_tree 2 {}
2942 }
2944 }
2946 proc unhighlight_filelist {} {
2947 global cflist
2952 }
2954 proc add_flist {fl} {
2955 global cflist
2961 }
2963 }
2965 proc sel_flist {w x y} {
2966 global ctext difffilestart cflist cflist_top cmitmode
2969 if {![info exists cflist_top]} return
2976 } else {
2978 }
2979 }
2981 proc pop_flist_menu {w X Y x y} {
2982 global ctext cflist cmitmode flist_menu flist_menu_file
2983 global treediffs diffids
2985 stopfinding
2991 } else {
2993 }
2995 set xdiffstate "normal"
2997 set xdiffstate "disabled"
2998 }
2999 # Disable "External diff" item in tree mode
3002 }
3004 proc find_ctext_fileinfo {line} {
3005 global ctext_file_names ctext_file_lines
3011 return {}
3012 } else {
3014 }
3015 }
3017 proc pop_diff_menu {w X Y x y} {
3018 global ctext diff_menu flist_menu_file
3019 global diff_menu_txtpos diff_menu_line
3020 global diff_menu_filebase
3024 # don't pop up the menu on hunk-separator or file-separator lines
3026 return
3027 }
3028 stopfinding
3034 }
3036 proc flist_hl {only} {
3037 global flist_menu_file findstring gdttype
3042 } else {
3044 }
3045 set gdttype [mc "touching paths:"]
3046 }
3048 proc save_file_from_commit {filename output what} {
3049 global nullfile
3054 }
3056 return {}
3057 }
3059 }
3061 proc external_diff_get_one_file {diffid filename diffdir} {
3062 global nullid nullid2 nullfile
3063 global gitdir
3069 }
3071 }
3075 }
3079 }
3081 proc external_diff {} {
3082 global gitktmpdir nullid nullid2
3083 global flist_menu_file
3084 global diffids
3085 global diffnum
3086 global gitdir extdifftool
3089 # no reference commit given
3092 # diffing working copy with index
3095 # diffing index with HEAD
3096 set diffidfrom "HEAD"
3097 } else {
3098 # use first parent commit
3099 global parentlist selectedline
3101 }
3102 } else {
3105 }
3107 # make sure that several diffs wont collide
3108 if {![info exists gitktmpdir]} {
3110 [format ".gitk-tmp.%s" [pid]]]
3113 unset gitktmpdir
3114 return
3115 }
3116 set diffnum 0
3117 }
3118 incr diffnum
3122 return
3123 }
3125 # gather files to diff
3135 } else {
3138 }
3139 }
3140 }
3142 proc find_hunk_blamespec {base line} {
3143 global ctext
3145 # Find and parse the hunk header
3151 s_line old_specs osz osz1 new_line nsz]} {
3152 return
3153 }
3155 # base lines for the parents
3159 old_spec old_line osz]} {
3160 return
3161 }
3163 }
3165 # Now scan the lines to determine offset within the hunk
3167 set dline 0
3170 # Determine if the line is removed
3174 # Choose a parent index
3177 } else {
3181 } else {
3182 # blame the current commit
3183 set parent -1
3184 }
3185 }
3186 # then count other lines that belong to it
3189 # Determine if the line is removed
3194 incr dline
3195 }
3196 } else {
3198 incr dline
3199 }
3200 }
3201 }
3202 incr parent
3203 } else {
3204 set parent 0
3205 }
3209 }
3211 proc external_blame_diff {} {
3212 global currentid diffmergeid cmitmode
3213 global diff_menu_txtpos diff_menu_line
3214 global diff_menu_filebase flist_menu_file
3217 set parent_idx 0
3219 } else {
3224 } else {
3225 set parent_idx 0
3226 set line 0
3227 }
3228 }
3231 }
3233 proc external_blame {parent_idx {line {}}} {
3234 global flist_menu_file
3235 global nullid nullid2
3236 global parentlist selectedline currentid
3240 } else {
3242 }
3245 error_popup [mc "No such commit"]
3246 return
3247 }
3249 set cmdline [list git gui blame]
3252 }
3256 }
3257 }
3260 proc delete_at_eof {f dir} {
3265 }
3267 return 0
3268 }
3269 return 1
3270 }
3272 # Functions for adding and removing shell-type quoting
3274 proc shellquote {str} {
3277 }
3280 }
3283 }
3285 }
3287 proc shellarglist {l} {
3288 set str {}
3291 append str " "
3292 }
3294 }
3296 }
3298 proc shelldequote {str} {
3299 set ret {}
3300 set used -1
3301 while {1} {
3302 incr used
3306 break
3307 }
3313 }
3315 incr used
3319 error "unmatched single-quote"
3320 }
3323 continue
3324 }
3327 error "trailing backslash"
3328 }
3330 continue
3331 }
3332 # here ch == "\""
3333 while {1} {
3335 error "unmatched double-quote"
3336 }
3342 }
3344 incr used
3346 incr used
3347 }
3348 }
3350 }
3352 proc shellsplit {str} {
3353 set l {}
3354 while {1} {
3362 }
3364 }
3366 # Code to implement multiple views
3368 proc newview {ishighlight} {
3369 global nextviewnum newviewname newviewperm newishighlight
3370 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3373 set top .gitkview
3376 return
3377 }
3383 }
3385 proc editview {} {
3386 global curview
3387 global viewname viewperm newviewname newviewperm
3388 global viewargs newviewargs viewargscmd newviewargscmd
3393 return
3394 }
3400 }
3402 proc vieweditor {top n title} {
3403 global newviewname newviewperm viewfiles bgcolor
3414 -text [mc "Commits to include (arguments to git log):"]
3421 -text [mc "Command to generate more commits to include:"]
3424 -background white
3428 -text [mc "Enter files and directories to include, one per line:"]
3435 }
3438 }
3448 }
3450 proc doviewmenu {m first cmd op argv} {
3455 break
3456 }
3457 }
3458 }
3460 proc allviewmenus {n op args} {
3461 # global viewhlmenu
3465 }
3467 proc newviewok {top n} {
3468 global nextviewnum newviewperm newviewname newishighlight
3469 global viewname viewfiles viewperm selectedview curview
3470 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3472 if {[catch {
3474 } err]} {
3478 return
3479 }
3480 set files {}
3485 }
3486 }
3488 # creating a new view
3489 incr nextviewnum
3498 } else {
3500 }
3501 } else {
3502 # editing an existing view
3510 }
3517 run reloadcommits
3518 }
3519 }
3520 }
3522 }
3524 proc delview {} {
3525 global curview viewperm hlview selectedhlview
3529 set selectedhlview [mc "None"]
3530 unset hlview
3531 }
3534 showview 0
3535 }
3537 proc addviewmenu {n} {
3538 global viewname viewhlmenu
3544 }
3546 proc showview {n} {
3547 global curview cached_commitrow ordertok
3548 global displayorder parentlist rowidlist rowisopt rowfinal
3549 global colormap rowtextx nextcolor canvxmax
3550 global numcommits viewcomplete
3551 global selectedline currentid canv canvy0
3552 global treediffs
3553 global pending_select mainheadid
3554 global commitidx
3555 global selectedview
3556 global hlview selectedhlview commitinterest
3559 set selid {}
3570 }
3571 } elseif {[info exists pending_select]} {
3573 unset pending_select
3574 }
3575 unselectline
3576 normalline
3577 catch {unset treediffs}
3578 clear_display
3580 unset hlview
3581 set selectedhlview [mc "None"]
3582 }
3583 catch {unset commitinterest}
3584 catch {unset cached_commitrow}
3585 catch {unset ordertok}
3592 run refill_reflist
3595 return
3596 }
3598 set displayorder {}
3599 set parentlist {}
3600 set rowidlist {}
3601 set rowisopt {}
3602 set rowfinal {}
3605 catch {unset colormap}
3606 catch {unset rowtextx}
3607 set nextcolor 0
3610 set row 0
3611 setcanvscroll
3612 set yf 0
3613 set row {}
3616 # try to get the selected row in the same position on the screen
3620 set ytop 0
3621 }
3623 }
3625 drawvisible
3630 } else {
3631 reset_pending_select {}
3635 } else {
3636 set row [first_real_row]
3639 }
3640 }
3641 }
3644 show_status [mc "Reading commits..."]
3645 }
3647 show_status [mc "No commits selected"]
3648 }
3649 }
3651 # Stuff relating to the highlighting facility
3653 proc ishighlighted {id} {
3654 global vhighlights fhighlights nhighlights rhighlights
3658 }
3661 }
3664 }
3667 }
3668 return 0
3669 }
3671 proc bolden {row font} {
3672 global canv linehtag selectedline boldrows
3679 -outline {{}} -tags secsel \
3682 }
3683 }
3685 proc bolden_name {row font} {
3686 global canv2 linentag selectedline boldnamerows
3693 -outline {{}} -tags secsel \
3696 }
3697 }
3699 proc unbolden {} {
3700 global boldrows
3702 set stillbold {}
3706 } else {
3708 }
3709 }
3711 }
3713 proc addvhighlight {n} {
3714 global hlview viewcomplete curview vhl_done commitidx
3716 if {[info exists hlview]} {
3717 delvhighlight
3718 }
3722 }
3725 drawvisible
3726 }
3727 }
3729 proc delvhighlight {} {
3730 global hlview vhighlights
3732 if {![info exists hlview]} return
3733 unset hlview
3734 catch {unset vhighlights}
3735 unbolden
3736 }
3738 proc vhighlightmore {} {
3739 global hlview vhl_done commitidx vhighlights curview
3742 set vr [visiblerows]
3752 }
3754 }
3755 }
3756 }
3758 return 0
3759 }
3761 proc askvhighlight {row id} {
3762 global hlview vhighlights iddrawn
3767 }
3769 } else {
3771 }
3772 }
3774 proc hfiles_change {} {
3775 global highlight_files filehighlight fhighlights fh_serial
3776 global highlight_paths gdttype
3778 if {[info exists filehighlight]} {
3779 # delete previous highlights
3781 unset filehighlight
3782 catch {unset fhighlights}
3783 unbolden
3784 unhighlight_filelist
3785 }
3786 set highlight_paths {}
3788 incr fh_serial
3791 }
3792 }
3794 proc gdttype_change {name ix op} {
3795 global gdttype highlight_files findstring findpattern
3797 stopfinding
3801 set highlight_files {}
3802 hfiles_change
3803 }
3804 findcom_change
3805 } else {
3807 set findpattern {}
3808 findcom_change
3809 }
3811 hfiles_change
3812 }
3813 drawvisible
3814 }
3815 # enable/disable findtype/findloc menus too
3816 }
3818 proc find_change {name ix op} {
3819 global gdttype findstring highlight_files
3821 stopfinding
3823 findcom_change
3824 } else {
3827 hfiles_change
3828 }
3829 }
3830 drawvisible
3831 }
3833 proc findcom_change args {
3834 global nhighlights boldnamerows
3835 global findpattern findtype findstring gdttype
3837 stopfinding
3838 # delete previous highlights, if any
3841 }
3842 set boldnamerows {}
3843 catch {unset nhighlights}
3844 unbolden
3845 unmarkmatches
3847 set findpattern {}
3850 } else {
3851 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3854 }
3855 }
3857 proc makepatterns {l} {
3858 set ret {}
3863 } else {
3866 }
3867 }
3869 }
3871 proc do_file_hl {serial} {
3872 global highlight_files filehighlight highlight_paths gdttype fhl_list
3877 highlight_filelist
3881 } else {
3882 # must be "containing:", i.e. we're searching commit info
3883 return
3884 }
3889 set fhl_list {}
3890 drawvisible
3891 flushhighlights
3892 }
3894 proc flushhighlights {} {
3895 global filehighlight fhl_list
3897 if {[info exists filehighlight]} {
3898 lappend fhl_list {}
3901 }
3902 }
3904 proc askfilehighlight {row id} {
3905 global filehighlight fhighlights fhl_list
3910 }
3912 proc readfhighlight {} {
3913 global filehighlight fhighlights curview iddrawn
3914 global fhl_list find_dirn
3916 if {![info exists filehighlight]} {
3917 return 0
3918 }
3919 set nr 0
3927 }
3934 }
3936 }
3938 # strange...
3939 puts "oops, git diff-tree died"
3941 unset filehighlight
3942 return 0
3943 }
3944 if {[info exists find_dirn]} {
3945 run findmore
3946 }
3947 return 1
3948 }
3950 proc doesmatch {f} {
3951 global findtype findpattern
3957 } else {
3959 }
3960 }
3962 proc askfindhighlight {row id} {
3963 global nhighlights commitinfo iddrawn
3964 global findloc
3965 global markingmatches
3969 }
3971 set isbold 0
3972 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3977 set isbold 2
3978 break
3979 }
3980 set isbold 1
3981 }
3982 }
3988 }
3989 }
3992 }
3993 }
3995 }
3997 proc markrowmatches {row id} {
3998 global canv canv2 linehtag linentag commitinfo findloc
4009 }
4010 }
4016 }
4017 }
4018 }
4020 proc vrel_change {name ix op} {
4021 global highlight_related
4023 rhighlight_none
4025 run drawvisible
4026 }
4027 }
4029 # prepare for testing whether commits are descendents or ancestors of a
4030 proc rhighlight_sel {a} {
4031 global descendent desc_todo ancestor anc_todo
4032 global highlight_related
4034 catch {unset descendent}
4036 catch {unset ancestor}
4039 rhighlight_none
4040 run drawvisible
4041 }
4042 }
4044 proc rhighlight_none {} {
4045 global rhighlights
4047 catch {unset rhighlights}
4048 unbolden
4049 }
4051 proc is_descendent {a} {
4052 global curview children descendent desc_todo
4057 set leftover {}
4058 set done 0
4063 continue
4064 }
4070 set done 1
4071 }
4072 }
4073 }
4076 return
4077 }
4078 }
4081 }
4083 proc is_ancestor {a} {
4084 global curview parents ancestor anc_todo
4089 set leftover {}
4090 set done 0
4095 continue
4096 }
4102 set done 1
4103 }
4104 }
4105 }
4108 return
4109 }
4110 }
4113 }
4115 proc askrelhighlight {row id} {
4116 global descendent highlight_related iddrawn rhighlights
4117 global selectedline ancestor
4120 set isbold 0
4125 }
4127 set isbold 1
4128 }
4133 }
4135 set isbold 1
4136 }
4137 }
4141 }
4142 }
4144 }
4146 # Graph layout functions
4148 proc shortids {ids} {
4149 set res {}
4155 } else {
4157 }
4158 }
4160 }
4162 proc ntimes {n o} {
4163 set ret {}
4168 }
4170 }
4172 }
4174 proc ordertoken {id} {
4175 global ordertok curview varcid varcstart varctok curview parents children
4176 global nullid nullid2
4180 }
4182 set todo {}
4183 while {1} {
4187 } else {
4189 }
4192 break
4193 }
4196 # it's a root
4198 break
4199 }
4202 } else {
4206 }
4208 }
4209 }
4214 }
4217 }
4219 # Work out where id should go in idlist so that order-token
4220 # values increase from left to right
4221 proc idcol {idlist id {i 0}} {
4224 set i 0
4225 }
4229 }
4231 incr i
4232 } else {
4236 }
4237 }
4239 }
4241 proc initlayout {} {
4242 global rowidlist rowisopt rowfinal displayorder parentlist
4243 global numcommits canvxmax canv
4244 global nextcolor
4245 global colormap rowtextx
4247 set numcommits 0
4248 set displayorder {}
4249 set parentlist {}
4250 set nextcolor 0
4251 set rowidlist {}
4252 set rowisopt {}
4253 set rowfinal {}
4255 catch {unset colormap}
4256 catch {unset rowtextx}
4257 setcanvscroll
4258 }
4260 proc setcanvscroll {} {
4261 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4262 global lastscrollset lastscrollrows
4268 set lastscrollset [clock clicks -milliseconds]
4270 }
4272 proc visiblerows {} {
4273 global canv numcommits linespc
4281 set r0 0
4282 }
4287 }
4289 }
4291 proc layoutmore {} {
4292 global commitidx viewcomplete curview
4293 global numcommits pending_select curview
4294 global lastscrollset lastscrollrows
4298 setcanvscroll
4299 }
4300 if {[info exists pending_select] &&
4302 update
4304 }
4305 drawvisible
4306 }
4308 proc doshowlocalchanges {} {
4309 global curview mainheadid
4313 dodiffindex
4314 } else {
4316 }
4317 }
4319 proc dohidelocalchanges {} {
4320 global nullid nullid2 lserial curview
4324 }
4327 }
4328 incr lserial
4329 }
4331 # spawn off a process to do git diff-index --cached HEAD
4332 proc dodiffindex {} {
4333 global lserial showlocalchanges
4334 global isworktree
4337 incr lserial
4338 set fd [open "|git diff-index --cached HEAD" r]
4342 }
4344 proc readdiffindex {fd serial inst} {
4345 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4347 set isdiff 1
4350 return 1
4351 }
4352 set isdiff 0
4353 }
4354 # we only need to see one line and we don't really care what it says...
4358 return 0
4359 }
4361 # now see if there are any local changes not checked in to the index
4362 set fd [open "|git diff-files" r]
4368 # add the line for the changes in the index to the graph
4369 set hl [mc "Local changes checked in to index but not committed"]
4374 }
4378 }
4379 return 0
4380 }
4382 proc readdifffiles {fd serial inst} {
4383 global mainheadid nullid nullid2 curview
4384 global commitinfo commitdata lserial
4386 set isdiff 1
4389 return 1
4390 }
4391 set isdiff 0
4392 }
4393 # we only need to see one line and we don't really care what it says...
4397 return 0
4398 }
4401 # add the line for the local diff to the graph
4402 set hl [mc "Local uncommitted changes, not checked in to index"]
4407 } else {
4409 }
4413 }
4414 return 0
4415 }
4417 proc nextuse {id row} {
4418 global curview children
4423 return -1
4424 }
4427 }
4428 }
4429 }
4432 }
4433 return -1
4434 }
4436 proc prevuse {id row} {
4437 global curview children
4439 set ret -1
4445 }
4446 }
4447 }
4449 }
4451 proc make_idlist {row} {
4452 global displayorder parentlist uparrowlen downarrowlen mingaplen
4453 global commitidx curview children
4457 set r 0
4458 }
4461 set ra 0
4462 }
4466 }
4468 set ids {}
4477 }
4478 }
4479 }
4487 }
4488 }
4489 }
4497 }
4498 }
4499 incr r
4505 }
4506 }
4507 }
4508 set idlist {}
4511 }
4513 }
4515 proc rowsequal {a b} {
4518 }
4521 }
4523 }
4525 proc makeupline {id row rend col} {
4526 global rowidlist uparrowlen downarrowlen mingaplen
4532 }
4535 }
4542 }
4543 }
4544 }
4546 proc layoutrows {row endrow} {
4547 global rowidlist rowisopt rowfinal displayorder
4548 global uparrowlen downarrowlen maxwidth mingaplen
4549 global children parentlist
4550 global commitidx viewcomplete curview
4553 set idlist {}
4559 }
4560 }
4562 }
4567 set final 1
4568 } else {
4576 # if not the first child, we have to insert a line going up
4579 }
4580 }
4581 }
4591 }
4592 }
4593 }
4600 }
4601 }
4611 }
4612 }
4620 }
4621 }
4622 }
4623 }
4624 }
4628 set final 0
4629 }
4633 lappend rowisopt 0
4639 }
4641 } else {
4648 }
4649 }
4651 }
4653 proc changedrow {row} {
4654 global displayorder iddrawn rowisopt need_redisplay
4663 }
4664 }
4665 }
4668 set need_redisplay 1
4669 }
4670 }
4672 proc insert_pad {row col npad} {
4673 global rowidlist
4682 }
4685 }
4687 proc optimize_rows {row col endrow} {
4688 global rowidlist rowisopt displayorder curview children
4691 set row 1
4692 }
4695 set haspad 0
4704 } else {
4705 set pprevidlist {}
4706 }
4707 set x0 -1
4708 set xm -1
4713 set haspad 1
4714 continue
4715 }
4719 set isarrow 0
4720 set z0 {}
4725 }
4726 }
4731 set isarrow 1
4732 }
4733 }
4736 set isarrow 1
4737 }
4738 # Looking at lines from this row to the previous row,
4739 # make them go straight up if they end in an arrow on
4740 # the previous row; otherwise make them go straight up
4741 # or at 45 degrees.
4743 # Line currently goes left too much;
4744 # insert pads in the previous row, then optimize it
4749 }
4757 }
4759 # Line currently goes right too much;
4760 # insert pads in this line
4766 set haspad 1
4767 }
4774 }
4775 }
4776 # avoid lines jigging left then immediately right
4779 incr x0
4782 }
4783 }
4785 # Find the first column that doesn't have a line going right
4791 # check if this is the link to the first child
4794 # it is, work out offset to child
4796 }
4797 }
4799 }
4800 # Insert a pad at that column as long as it has a line and
4801 # isn't the last column
4806 }
4807 }
4808 }
4809 }
4811 proc xc {row col} {
4812 global canvx0 linespc
4814 }
4816 proc yc {row} {
4817 global canvy0 linespc
4819 }
4821 proc linewidth {id} {
4822 global thickerline lthickness
4827 }
4829 }
4831 proc rowranges {id} {
4832 global curview children uparrowlen downarrowlen
4833 global rowidlist
4837 return {}
4838 }
4839 set ret {}
4844 if {![info exists prev]} {
4846 } else {
4848 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4849 }
4850 # see if the line extends the whole way from prevrow to row
4854 # it doesn't, see where it ends
4859 } else {
4862 incr r -1
4863 }
4865 # see where it starts up again
4870 } else {
4873 incr r
4874 }
4876 }
4877 }
4880 }
4883 }
4885 }
4887 proc drawlineseg {id row endrow arrowlow} {
4888 global rowidlist displayorder iddrawn linesegs
4889 global canv colormap linespc curview maxlinelen parentlist
4893 set arrowhigh 1
4894 while {1} {
4897 incr le -1
4898 break
4899 }
4903 set arrowhigh 0
4904 break
4905 }
4910 set arrowhigh 0
4911 }
4912 break
4913 }
4914 incr le
4915 }
4918 }
4920 set lines {}
4921 set i 0
4922 set joinhigh 0
4929 set joinhigh 1
4930 }
4931 break
4932 }
4933 incr i
4934 }
4935 }
4936 set joinlow 0
4941 set joinlow 1
4942 }
4943 }
4956 }
4957 } else {
4959 }
4967 set arrowlow 0
4968 }
4969 }
4977 }
4979 }
4982 # join parent line to first child
4993 } else {
4995 }
5003 }
5005 }
5007 } else {
5011 }
5019 } else {
5023 }
5025 }
5026 } else {
5032 }
5036 } else {
5037 # coalesce two pieces
5042 }
5046 }
5047 }
5051 }
5053 proc drawparentlinks {id row} {
5054 global rowidlist canv colormap curview parentlist
5055 global idpos linespc
5068 # rmx = right-most X coord used
5069 set rmx 0
5074 continue
5075 }
5079 }
5082 # drawlineseg will do this one for us
5083 continue
5084 }
5086 # should handle duplicated parents here...
5089 # if attaching to a vertical segment, draw a smaller
5090 # slant for visual distinctness
5094 } else {
5096 }
5098 # segment slants towards us already
5100 } else {
5105 }
5107 }
5108 } else {
5110 }
5115 }
5119 }
5120 }
5122 proc drawlines {id} {
5123 global canv
5126 }
5128 proc drawcmittext {id row col} {
5129 global linespc canv canv2 canv3 fgcolor curview
5130 global cmitlisted commitinfo rowidlist parentlist
5131 global rowtextx idpos idtags idheads idotherrefs
5132 global linehtag linentag linedtag selectedline
5133 global canvxmax boldrows boldnamerows fgcolor
5134 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5136 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5139 set ofill red
5141 set ofill green
5143 set ofill yellow
5144 } else {
5146 }
5155 # triangle pointing left for left-side commits
5161 } else {
5162 # triangle pointing right for right-side commits
5168 }
5180 }
5181 }
5182 }
5189 }
5194 set font mainfont
5195 set nfont mainfont
5199 set font mainfontbold
5202 set nfont mainfontbold
5203 }
5204 }
5214 }
5218 setcanvscroll
5219 }
5220 }
5222 proc drawcmitrow {row} {
5223 global displayorder rowidlist nrows_drawn
5224 global iddrawn markingmatches
5225 global commitinfo numcommits
5226 global filehighlight fhighlights findpattern nhighlights
5227 global hlview vhighlights
5228 global highlight_related rhighlights
5235 }
5238 }
5241 }
5244 }
5249 return
5250 }
5253 }
5257 incr nrows_drawn
5258 }
5261 }
5262 }
5264 proc drawcommits {row {endrow {}}} {
5265 global numcommits iddrawn displayorder curview need_redisplay
5266 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5269 set row 0
5270 }
5273 }
5276 }
5280 set rl1 0
5281 }
5284 set ro1 0
5285 }
5289 }
5294 }
5296 }
5297 }
5300 }
5303 clear_display
5304 drawvisible
5305 }
5307 # make the lines join to already-drawn rows either side
5311 }
5316 }
5331 # see if this is the first child of any of its parents
5334 # make this line extend up to the child
5336 }
5337 }
5338 } else {
5340 }
5341 }
5342 }
5343 }
5345 proc undolayout {row} {
5346 global uparrowlen mingaplen downarrowlen
5347 global rowidlist rowisopt rowfinal need_redisplay
5351 set r 0
5352 }
5354 incr r -1
5358 set need_redisplay 1
5359 run drawvisible
5360 }
5361 }
5363 proc drawvisible {} {
5364 global canv linespc curview vrowmod selectedline targetrow targetid
5365 global need_redisplay cscroll numcommits
5375 if {[info exists targetid]} {
5379 # Fix up the scrollregion and change the scrolling position
5380 # now that our target row has moved.
5383 setcanvscroll
5391 set need_redisplay 1
5392 }
5393 } else {
5394 unset targetid
5395 }
5396 }
5402 }
5406 } elseif {[info exists targetid]} {
5408 }
5409 if {[info exists targetrow]} {
5412 }
5414 }
5416 }
5418 proc clear_display {} {
5419 global iddrawn linesegs need_redisplay nrows_drawn
5420 global vhighlights fhighlights nhighlights rhighlights
5421 global linehtag linentag linedtag boldrows boldnamerows
5423 allcanvs delete all
5424 catch {unset iddrawn}
5425 catch {unset linesegs}
5426 catch {unset linehtag}
5427 catch {unset linentag}
5428 catch {unset linedtag}
5429 set boldrows {}
5430 set boldnamerows {}
5431 catch {unset vhighlights}
5432 catch {unset fhighlights}
5433 catch {unset nhighlights}
5434 catch {unset rhighlights}
5435 set need_redisplay 0
5436 set nrows_drawn 0
5437 }
5439 proc findcrossings {id} {
5440 global rowidlist parentlist numcommits displayorder
5442 set cross {}
5443 set ccross {}
5447 }
5466 }
5467 }
5468 }
5469 }
5470 }
5472 }
5474 proc assigncolor {id} {
5475 global colormap colors nextcolor
5476 global parents children children curview
5482 } else {
5483 set kids {}
5484 }
5490 return
5491 }
5492 }
5493 set badcolors {}
5494 set origbad {}
5497 # delimiter between corner crossings and other crossings
5500 }
5504 }
5505 }
5508 }
5515 }
5520 }
5521 }
5522 }
5525 }
5526 }
5530 set nextcolor 0
5531 }
5533 }
5535 }
5537 proc bindline {t id} {
5538 global canv
5544 }
5546 proc drawtags {id x xt y1} {
5547 global idtags idheads idotherrefs mainhead
5548 global linespc lthickness
5549 global canv rowtextx curview fgcolor bgcolor ctxbut
5551 set marks {}
5552 set ntags 0
5553 set nheads 0
5557 }
5561 }
5564 }
5567 }
5572 set xvals {}
5573 set wvals {}
5574 set i -1
5576 incr i
5579 } else {
5581 }
5585 }
5592 set font mainfont
5593 if {[incr ntags -1] >= 0} {
5594 # draw a tag
5600 } else {
5601 # draw a head or other ref
5602 if {[incr nheads -1] >= 0} {
5603 set col green
5605 set font mainfontbold
5606 }
5607 } else {
5608 set col "#ddddff"
5609 }
5620 }
5621 }
5628 }
5629 }
5631 }
5633 proc xcoord {i level ln} {
5634 global canvx0 xspc1 xspc2
5641 }
5643 }
5645 proc show_status {msg} {
5646 global canv fgcolor
5648 clear_display
5651 }
5653 # Don't change the text pane cursor if it is currently the hand cursor,
5654 # showing that we are over a sha1 ID link.
5655 proc settextcursor {c} {
5656 global ctext curtextcursor
5660 }
5662 }
5664 proc nowbusy {what {name {}}} {
5665 global isbusy busyname statusw
5667 if {[array names isbusy] eq {}} {
5668 . config -cursor watch
5669 settextcursor watch
5670 }
5675 }
5676 }
5678 proc notbusy {what} {
5679 global isbusy maincursor textcursor busyname statusw
5681 catch {
5686 }
5687 }
5688 if {[array names isbusy] eq {}} {
5691 }
5692 }
5694 proc findmatches {f} {
5695 global findtype findstring
5698 } else {
5703 }
5704 set matches {}
5705 set i 0
5710 }
5711 }
5713 }
5715 proc dofind {{dirn 1} {wrap 1}} {
5716 global findstring findstartline findcurline selectedline numcommits
5717 global gdttype filehighlight fh_serial find_dirn findallowwrap
5719 if {[info exists find_dirn]} {
5721 stopfinding
5722 }
5723 focus .
5727 } else {
5729 }
5731 nowbusy finding [mc "Searching"]
5735 }
5738 run findmore
5739 }
5741 proc stopfinding {} {
5742 global find_dirn findcurline fprogcoord
5744 if {[info exists find_dirn]} {
5745 unset find_dirn
5746 unset findcurline
5747 notbusy finding
5748 set fprogcoord 0
5749 adjustprogress
5750 }
5751 }
5753 proc findmore {} {
5754 global commitdata commitinfo numcommits findpattern findloc
5755 global findstartline findcurline findallowwrap
5756 global find_dirn gdttype fhighlights fprogcoord
5757 global curview varcorder vrownum varccommits vrowmod
5759 if {![info exists find_dirn]} {
5760 return 0
5761 }
5762 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5764 set moretodo 0
5766 incr l
5768 set l 0
5769 }
5772 } else {
5775 }
5776 } else {
5779 }
5780 incr l -1
5783 } else {
5784 set lim -1
5786 }
5787 }
5790 set n 500
5791 set moretodo 1
5792 }
5795 }
5796 set found 0
5797 set domore 1
5811 }
5813 # shouldn't happen unless git log doesn't give all the commits...
5816 continue
5817 }
5820 }
5825 set found 1
5826 break
5827 }
5828 }
5830 }
5831 } else {
5839 }
5844 }
5847 break
5848 }
5851 set domore 0
5853 }
5854 }
5855 }
5856 }
5858 unset findcurline
5859 unset find_dirn
5860 notbusy finding
5861 set fprogcoord 0
5862 adjustprogress
5865 } else {
5866 bell
5867 }
5868 return 0
5869 }
5871 flushhighlights
5872 } else {
5874 }
5878 }
5880 adjustprogress
5882 }
5884 proc findselectline {l} {
5885 global findloc commentend ctext findcurline markingmatches gdttype
5887 set markingmatches 1
5891 # highlight the matches in the comments
5898 }
5899 }
5900 drawvisible
5901 }
5903 # mark the bits of a headline or author that match a find string
5904 proc markmatches {canv l str tag matches font row} {
5905 global selectedline
5923 }
5924 }
5925 }
5927 proc unmarkmatches {} {
5928 global markingmatches
5930 allcanvs delete matches
5931 set markingmatches 0
5932 stopfinding
5933 }
5935 proc selcanvline {w x y} {
5936 global canv canvy0 ctext linespc
5937 global rowtextx
5944 set l 0
5945 }
5950 }
5951 unmarkmatches
5953 }
5955 proc commit_descriptor {p} {
5956 global commitinfo
5959 }
5960 set l "..."
5963 }
5965 }
5967 # append some text to the ctext widget, and make any SHA1 ID
5968 # that we know about be a clickable link.
5969 proc appendwithlinks {text tags} {
5970 global ctext linknum curview
5979 incr e
5983 incr linknum
5984 }
5985 }
5987 proc setlink {id lk} {
5988 global curview ctext pendinglinks
5990 set known 0
5995 set known 1
5997 }
5998 } else {
6000 }
6006 } else {
6009 }
6010 }
6012 proc makelink {id} {
6013 global pendinglinks
6018 }
6020 }
6022 proc linkcursor {w inc} {
6023 global linkentercount curtextcursor
6027 } else {
6030 set linkentercount 0
6031 }
6032 }
6033 }
6035 proc viewnextline {dir} {
6036 global canv linespc
6044 set newtop 0
6047 }
6049 }
6051 # add a list of tag or branch names at position pos
6052 # returns the number of names inserted
6053 proc appendrefs {pos ids var} {
6057 return 0
6058 }
6061 set tags {}
6065 }
6066 }
6069 } else {
6071 set sep {}
6075 incr linknum
6080 set sep ", "
6081 }
6082 }
6085 }
6087 # called when we have finished computing the nearby tags
6088 proc dispneartags {delay} {
6089 global selectedline currentid showneartags tagphase
6092 after cancel dispnexttag
6094 after 200 dispnexttag
6095 set tagphase -1
6096 } else {
6097 after idle dispnexttag
6098 set tagphase 0
6099 }
6100 }
6102 proc dispnexttag {} {
6103 global selectedline currentid showneartags tagphase ctext
6107 0 {
6111 }
6112 }
6113 1 {
6117 }
6118 }
6119 2 {
6124 # turn "Branch" into "Branches"
6128 }
6129 }
6130 }
6131 }
6132 if {[incr tagphase] <= 2} {
6133 after idle dispnexttag
6134 }
6135 }
6137 proc make_secsel {l} {
6138 global linehtag linentag linedtag canv canv2 canv3
6153 }
6155 proc selectline {l isnew} {
6156 global canv ctext commitinfo selectedline
6157 global canvy0 linespc parents children curview
6158 global currentid sha1entry
6159 global commentend idtags linknum
6160 global mergemax numcommits pending_select
6161 global cmitmode showneartags allcommits
6162 global targetrow targetid lastscrollrows
6163 global autoselect
6165 catch {unset pending_select}
6167 normalline
6168 unsel_reflist
6169 stopfinding
6177 setcanvscroll
6178 }
6192 } else {
6196 }
6197 }
6201 } else {
6205 }
6206 }
6207 }
6210 set newtop 0
6211 }
6213 drawvisible
6214 }
6220 }
6227 }
6231 clear_ctext
6232 set linknum 0
6235 }
6245 }
6247 }
6249 set headers {}
6252 set np 0
6255 set tag mmax
6256 } else {
6258 }
6261 incr np
6262 }
6263 } else {
6266 }
6267 }
6271 }
6273 # make anything that looks like a SHA1 ID be a clickable link
6276 if {![info exists allcommits]} {
6277 getallcommits
6278 }
6289 dispneartags 1
6290 }
6295 }
6302 init_flist [mc "Comments"]
6307 } else {
6309 }
6310 }
6312 proc selfirstline {} {
6313 unmarkmatches
6314 selectline 0 1
6315 }
6317 proc sellastline {} {
6318 global numcommits
6319 unmarkmatches
6322 }
6324 proc selnextline {dir} {
6325 global selectedline
6326 focus .
6329 unmarkmatches
6331 }
6333 proc selnextpage {dir} {
6334 global canv linespc selectedline numcommits
6338 set lpp 1
6339 }
6341 drawvisible
6345 set l 0
6348 }
6349 unmarkmatches
6351 }
6353 proc unselectline {} {
6354 global selectedline currentid
6356 set selectedline {}
6357 catch {unset currentid}
6358 allcanvs delete secsel
6359 rhighlight_none
6360 }
6362 proc reselectline {} {
6363 global selectedline
6367 }
6368 }
6370 proc addtohistory {cmd} {
6371 global history historyindex curview
6376 return
6377 }
6381 } else {
6383 }
6384 incr historyindex
6386 .tf.bar.leftbut conf -state normal
6387 } else {
6388 .tf.bar.leftbut conf -state disabled
6389 }
6390 .tf.bar.rightbut conf -state disabled
6391 }
6393 proc godo {elt} {
6394 global curview
6400 }
6402 }
6404 proc goback {} {
6405 global history historyindex
6406 focus .
6409 incr historyindex -1
6411 .tf.bar.rightbut conf -state normal
6412 }
6414 .tf.bar.leftbut conf -state disabled
6415 }
6416 }
6418 proc goforw {} {
6419 global history historyindex
6420 focus .
6424 incr historyindex
6426 .tf.bar.leftbut conf -state normal
6427 }
6429 .tf.bar.rightbut conf -state disabled
6430 }
6431 }
6433 proc gettree {id} {
6434 global treefilelist treeidlist diffids diffmergeid treepending
6435 global nullid nullid2
6438 catch {unset diffmergeid}
6440 if {![info exists treepending]} {
6442 set cmd [list | git ls-files]
6444 set cmd [list | git ls-files --stage -t]
6445 } else {
6447 }
6449 return
6450 }
6456 }
6457 } else {
6459 }
6460 }
6462 proc gettreeline {gtf id} {
6463 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6465 set nl 0
6469 } else {
6477 }
6480 }
6483 }
6486 }
6488 unset treepending
6490 if {![info exists diffmergeid]} {
6492 }
6495 } else {
6497 }
6498 return 0
6499 }
6501 proc showfile {f} {
6502 global treefilelist treeidlist diffids nullid nullid2
6503 global ctext_file_names ctext_file_lines
6504 global ctext commentend
6509 return
6510 }
6514 return
6515 }
6516 } else {
6520 return
6521 }
6522 }
6533 settabs 0
6534 }
6536 proc getblobline {bf id} {
6537 global diffids cmitmode ctext
6541 return 0
6542 }
6544 set nl 0
6547 }
6549 # delete last newline
6552 return 0
6553 }
6556 }
6558 proc mergediff {id} {
6559 global diffmergeid mdifffd
6560 global diffids treediffs
6561 global parents
6562 global diffcontext
6563 global diffencoding
6564 global limitdiffs vfilelimit curview
6569 # this doesn't seem to actually affect anything...
6573 }
6576 return
6577 }
6581 set diffencoding [get_path_encoding {}]
6584 }
6586 proc getmergediffline {mdf id np} {
6587 global diffmergeid ctext cflist mergemax
6588 global difffilestart mdifffd treediffs
6589 global ctext_file_names ctext_file_lines
6590 global diffencoding
6593 set nr 0
6598 return 0
6599 }
6601 # start of a new file
6618 # do nothing
6619 } else {
6621 # parse the prefix - one ' ', '-' or '+' for each parent
6622 set spaces {}
6623 set minuses {}
6624 set pluses {}
6625 set isbad 0
6634 } else {
6635 set isbad 1
6636 break
6637 }
6638 }
6639 set tags {}
6640 set num {}
6646 lappend tags mresult
6648 }
6651 set num "max"
6652 }
6654 }
6656 }
6657 }
6661 return 0
6662 }
6664 }
6666 proc startdiff {ids} {
6667 global treediffs diffids treepending diffmergeid nullid nullid2
6669 settabs 1
6671 catch {unset diffmergeid}
6675 if {![info exists treepending]} {
6677 }
6678 } else {
6680 }
6681 }
6683 proc path_filter {filter name} {
6688 return 1
6689 }
6690 } else {
6694 return 1
6695 }
6696 }
6697 }
6698 return 0
6699 }
6701 proc addtocflist {ids} {
6702 global treediffs
6706 }
6708 proc diffcmd {ids flags} {
6709 global nullid nullid2
6715 # comparing working directory with some specific revision
6719 } else {
6721 }
6722 } else {
6723 # comparing working directory with index
6726 lappend cmd -R
6727 }
6728 }
6732 # comparing index with specific revision
6735 } else {
6737 }
6738 } else {
6739 # comparing index with HEAD
6740 lappend cmd HEAD
6741 }
6742 } else {
6744 }
6746 }
6748 proc gettreediffs {ids} {
6749 global treediff treepending
6754 set treediff {}
6757 }
6759 proc gettreediffline {gdtf ids} {
6760 global treediff treediffs treepending diffids diffmergeid
6761 global cmitmode vfilelimit curview limitdiffs perfile_attrs
6763 set nr 0
6764 set sublist {}
6765 set max 1000
6767 # cache_gitattr is slow, and even slower on win32 where we
6768 # have to invoke it for only about 30 paths at a time
6769 set max 500
6770 if {[tk windowingsystem] == "win32"} {
6771 set max 120
6772 }
6773 }
6780 }
6784 }
6785 }
6788 }
6791 }
6794 set flist {}
6798 }
6799 }
6801 } else {
6803 }
6804 unset treepending
6808 if {![info exists diffmergeid]} {
6810 }
6811 } else {
6813 }
6814 return 0
6815 }
6817 # empty string or positive integer
6818 proc diffcontextvalidate {v} {
6820 }
6822 proc diffcontextchange {n1 n2 op} {
6823 global diffcontextstring diffcontext
6828 reselectline
6829 }
6830 }
6831 }
6833 proc changeignorespace {} {
6834 reselectline
6835 }
6837 proc getblobdiffs {ids} {
6838 global blobdifffd diffids env
6839 global diffinhdr treediffs
6840 global diffcontext
6841 global ignorespace
6842 global limitdiffs vfilelimit curview
6843 global diffencoding
6847 append cmd " -w"
6848 }
6851 }
6854 return
6855 }
6856 set diffinhdr 0
6857 set diffencoding [get_path_encoding {}]
6861 }
6863 proc setinlist {var i val} {
6868 }
6871 } else {
6873 }
6874 }
6876 proc makediffhdr {fname ids} {
6877 global ctext curdiffstart treediffs
6878 global ctext_file_names
6883 }
6888 }
6890 proc getblobdiffline {bdf ids} {
6891 global diffids blobdifffd ctext curdiffstart
6892 global diffnexthead diffnextnote difffilestart
6893 global ctext_file_names ctext_file_lines
6894 global diffinhdr treediffs
6895 global diffencoding
6897 set nr 0
6902 return 0
6903 }
6905 # trim off "diff --git "
6907 set diffinhdr 1
6908 # start of a new file
6911 lappend ctext_file_names ""
6914 # If the name hasn't changed the length will be odd,
6915 # the middle char will be a space, and the two bits either
6916 # side will be a/name and b/name, or "a/name" and "b/name".
6917 # If the name has changed we'll get "rename from" and
6918 # "rename to" or "copy from" and "copy to" lines following this,
6919 # and we'll use them to get the filenames.
6920 # This complexity is necessary because spaces in the filename(s)
6921 # don't get escaped.
6927 continue
6928 }
6929 # unescape if quoted and chop off the a/ from the front
6932 } else {
6934 }
6939 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6943 set diffinhdr 0
6950 }
6955 }
6961 }
6966 # do nothing
6967 continue
6969 set diffinhdr 0
6970 continue
6971 }
6974 } else {
6982 } else {
6983 # "\ No newline at end of file",
6984 # or something else we don't recognize
6986 }
6987 }
6988 }
6992 return 0
6993 }
6995 }
6997 proc changediffdisp {} {
6998 global ctext diffelide
7002 }
7004 proc highlightfile {loc cline} {
7005 global ctext cflist cflist_top
7012 }
7014 proc prevfile {} {
7015 global difffilestart ctext cmitmode
7018 set prev 0.0
7019 set prevline 1
7024 return
7025 }
7027 incr prevline
7028 }
7030 }
7032 proc nextfile {} {
7033 global difffilestart ctext cmitmode
7037 set line 1
7039 incr line
7042 return
7043 }
7044 }
7045 }
7047 proc clear_ctext {{first 1.0}} {
7048 global ctext smarktop smarkbot
7049 global ctext_file_names ctext_file_lines
7050 global pendinglinks
7055 }
7058 }
7061 catch {unset pendinglinks}
7062 }
7063 set ctext_file_names {}
7064 set ctext_file_lines {}
7065 }
7067 proc settabs {{firstab {}}} {
7068 global firsttabstop tabstop ctext have_tk85
7072 }
7073 set w [font measure textfont "0"]
7079 } else {
7081 }
7082 }
7084 proc incrsearch {name ix op} {
7085 global ctext searchstring searchdirn
7089 # no anchor set, use start of selection, or of visible area
7095 } else {
7097 }
7098 }
7103 }
7104 searchmarkvisible 1
7105 }
7106 }
7108 proc dosearch {} {
7109 global sstring ctext searchstring searchdirn
7113 set searchdirn -forwards
7119 set start "@0,0"
7120 }
7124 bell
7125 return
7126 }
7131 }
7132 }
7134 proc dosearchback {} {
7135 global sstring ctext searchstring searchdirn
7139 set searchdirn -backwards
7146 }
7150 bell
7151 return
7152 }
7157 }
7158 }
7160 proc searchmark {first last} {
7161 global ctext searchstring
7164 while {1} {
7169 }
7170 }
7172 proc searchmarkvisible {doall} {
7173 global ctext smarktop smarkbot
7178 # no overlap with previous
7182 } else {
7186 }
7190 }
7191 }
7192 }
7194 proc scrolltext {f0 f1} {
7195 global searchstring
7199 searchmarkvisible 0
7200 }
7201 }
7203 proc setcoords {} {
7204 global linespc charspc canvx0 canvy0
7205 global xspc1 xspc2 lthickness
7207 set linespc [font metrics mainfont -linespace]
7208 set charspc [font measure mainfont "m"]
7214 }
7216 proc redisplay {} {
7217 global canv
7218 global selectedline
7223 clear_display
7224 setcanvscroll
7226 drawvisible
7230 }
7231 }
7233 proc parsefont {f n} {
7234 global fontattr
7239 set s 10
7242 }
7248 "normal" -
7250 "roman" -
7252 }
7253 }
7254 }
7256 proc fontflags {f {isbold 0}} {
7257 global fontattr
7262 }
7264 proc fontname {f} {
7265 global fontattr
7269 lappend n "bold"
7270 }
7272 lappend n "italic"
7273 }
7275 }
7277 proc incrfont {inc} {
7278 global mainfont textfont ctext canv cflist showrefstop
7279 global stopped entries fontattr
7281 unmarkmatches
7285 set s 1
7286 }
7290 set mainfont [fontname mainfont]
7294 set s 1
7295 }
7299 set textfont [fontname textfont]
7300 setcoords
7301 settabs
7302 redisplay
7303 }
7305 proc clearsha1 {} {
7306 global sha1entry sha1string
7309 }
7310 }
7312 proc sha1change {n1 n2 op} {
7313 global sha1string currentid sha1but
7316 set state disabled
7317 } else {
7318 set state normal
7319 }
7323 } else {
7325 }
7326 }
7328 proc gotocommit {} {
7329 global sha1string tagids headids curview varcid
7337 } else {
7344 return
7345 }
7347 }
7348 }
7349 }
7352 return
7353 }
7356 } else {
7358 }
7360 }
7362 proc lineenter {x y id} {
7363 global hoverx hovery hoverid hovertimer
7364 global commitinfo canv
7370 if {[info exists hovertimer]} {
7372 }
7373 set hovertimer [after 500 linehover]
7375 }
7377 proc linemotion {x y id} {
7378 global hoverx hovery hoverid hovertimer
7383 if {[info exists hovertimer]} {
7385 }
7386 set hovertimer [after 500 linehover]
7387 }
7388 }
7390 proc lineleave {id} {
7391 global hoverid hovertimer canv
7395 if {[info exists hovertimer]} {
7397 unset hovertimer
7398 }
7399 unset hoverid
7400 }
7401 }
7403 proc linehover {} {
7404 global hoverx hovery hoverid hovertimer
7405 global canv linespc lthickness
7406 global commitinfo
7419 -fill \#ffff80 -outline black -width 1 -tags hover]
7422 -font mainfont]
7424 }
7426 proc clickisonarrow {id y} {
7427 global lthickness
7436 }
7437 }
7438 return {}
7439 }
7441 proc arrowjump {id n y} {
7442 global canv
7444 # 1 <-> 2, 3 <-> 4, etc...
7454 set yfrac 0
7455 }
7457 }
7459 proc lineclick {x y id isnew} {
7460 global ctext commitinfo children canv thickerline curview
7463 unmarkmatches
7464 unselectline
7465 normalline
7467 # draw this line thicker than normal
7475 }
7479 return
7480 }
7484 }
7485 # fill the details pane with info about this line
7487 clear_ctext
7488 settabs 0
7500 set i 0
7502 incr i
7512 }
7513 }
7515 init_flist {}
7516 }
7518 proc normalline {} {
7519 global thickerline
7520 if {[info exists thickerline]} {
7522 unset thickerline
7524 }
7525 }
7527 proc selbyid {id} {
7528 global curview
7531 }
7532 }
7534 proc mstime {} {
7535 global startmstime
7536 if {![info exists startmstime]} {
7537 set startmstime [clock clicks -milliseconds]
7538 }
7540 }
7542 proc rowmenu {x y id} {
7543 global rowctxmenu selectedline rowmenuid curview
7544 global nullid nullid2 fakerowmenu mainhead
7546 stopfinding
7549 set state disabled
7550 } else {
7551 set state normal
7552 }
7557 } else {
7559 }
7560 } else {
7562 }
7567 }
7569 proc diffvssel {dirn} {
7570 global rowmenuid selectedline
7576 } else {
7579 }
7582 }
7584 proc doseldiff {oldid newid} {
7585 global ctext
7586 global commitinfo
7589 clear_ctext
7590 init_flist [mc "Top"]
7605 }
7607 proc mkpatch {} {
7608 global rowmenuid currentid commitinfo patchtop patchnum
7610 if {![info exists currentid]} return
7615 set top .patch
7644 incr patchnum
7654 }
7656 proc mkpatchrev {} {
7657 global patchtop
7663 foreach e [list fromsha1 fromhead tosha1 tohead] \
7669 }
7670 }
7672 proc mkpatchgo {} {
7673 global patchtop nullid nullid2
7679 # trim off the initial "|"
7684 }
7686 unset patchtop
7687 }
7689 proc mkpatchcan {} {
7690 global patchtop
7693 unset patchtop
7694 }
7696 proc mktag {} {
7697 global rowmenuid mktagtop commitinfo
7699 set top .maketag
7725 }
7727 proc domktag {} {
7728 global mktagtop env tagids idtags
7733 error_popup [mc "No tag name specified"]
7734 return
7735 }
7738 return
7739 }
7740 if {[catch {
7742 } err]} {
7744 return
7745 }
7751 dispneartags 0
7752 run refill_reflist
7753 }
7755 proc redrawtags {id} {
7756 global canv linehtag idpos currentid curview cmitlisted
7757 global canvxmax iddrawn circleitem mainheadid circlecolors
7763 set ofill yellow
7764 } else {
7766 }
7776 setcanvscroll
7777 }
7780 }
7781 }
7783 proc mktagcan {} {
7784 global mktagtop
7787 unset mktagtop
7788 }
7790 proc mktaggo {} {
7791 domktag
7792 mktagcan
7793 }
7795 proc writecommit {} {
7796 global rowmenuid wrcomtop commitinfo wrcomcmd
7798 set top .writecommit
7828 }
7830 proc wrcomgo {} {
7831 global wrcomtop
7838 }
7840 unset wrcomtop
7841 }
7843 proc wrcomcan {} {
7844 global wrcomtop
7847 unset wrcomtop
7848 }
7850 proc mkbranch {} {
7851 global rowmenuid mkbrtop
7853 set top .makebranch
7875 }
7877 proc mkbrgo {top} {
7878 global headids idheads
7882 set cmdargs {}
7883 set old_id {}
7885 error_popup [mc "Please specify a name for the new branch"]
7886 return
7887 }
7889 if {![confirm_popup [mc \
7891 return
7892 }
7894 lappend cmdargs -f
7895 }
7898 nowbusy newbranch
7899 update
7900 if {[catch {
7902 } err]} {
7903 notbusy newbranch
7905 } else {
7906 notbusy newbranch
7912 } else {
7917 }
7918 dispneartags 0
7919 run refill_reflist
7920 }
7921 }
7923 proc cherrypick {} {
7924 global rowmenuid curview
7925 global mainhead mainheadid
7927 set oldhead [exec git rev-parse HEAD]
7930 set ok [confirm_popup [mc "Commit %s is already\
7931 included in branch %s -- really re-apply it?" \
7934 }
7935 nowbusy cherrypick [mc "Cherry-picking"]
7936 update
7937 # Unfortunately git-cherry-pick writes stuff to stderr even when
7938 # no error occurs, and exec takes that as an indication of error...
7940 notbusy cherrypick
7942 return
7943 }
7944 set newhead [exec git rev-parse HEAD]
7946 notbusy cherrypick
7947 error_popup [mc "No changes committed"]
7948 return
7949 }
7956 }
7961 }
7962 notbusy cherrypick
7963 }
7965 proc resethead {} {
7966 global mainhead rowmenuid confirm_ok resettype
7968 set confirm_ok 0
7969 set w ".confirmreset"
7975 -justify center -aspect 1000
7980 set resettype mixed
7982 -text [mc "Soft: Leave working tree and index untouched"]
7985 -text [mc "Mixed: Leave working tree untouched, reset index"]
7988 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7998 if {[catch {set fd [open \
8001 } else {
8002 dohidelocalchanges
8004 nowbusy reset [mc "Resetting"]
8006 }
8007 }
8009 proc readresetstat {fd} {
8010 global mainhead mainheadid showlocalchanges rprogcoord
8015 adjustprogress
8016 }
8017 return 1
8018 }
8019 set rprogcoord 0
8020 adjustprogress
8021 notbusy reset
8024 }
8026 set newhead [exec git rev-parse HEAD]
8033 }
8035 doshowlocalchanges
8036 }
8037 return 0
8038 }
8040 # context menu for a head
8041 proc headmenu {x y id head} {
8042 global headmenuid headmenuhead headctxmenu mainhead
8044 stopfinding
8047 set state normal
8049 set state disabled
8050 }
8054 }
8056 proc cobranch {} {
8057 global headmenuid headmenuhead headids
8058 global showlocalchanges mainheadid
8060 # check the tree is clean first??
8061 nowbusy checkout [mc "Checking out"]
8062 update
8063 dohidelocalchanges
8064 if {[catch {
8066 } err]} {
8067 notbusy checkout
8070 dodiffindex
8071 }
8072 } else {
8074 }
8075 }
8077 proc readcheckoutstat {fd newhead newheadid} {
8078 global mainhead mainheadid headids showlocalchanges progresscoords
8083 adjustprogress
8084 }
8085 return 1
8086 }
8087 set progresscoords {0 0}
8088 adjustprogress
8089 notbusy checkout
8092 }
8100 dodiffindex
8101 }
8102 }
8104 proc rmbranch {} {
8105 global headmenuid headmenuhead mainhead
8106 global idheads
8110 # this check shouldn't be needed any more...
8112 error_popup [mc "Cannot delete the currently checked-out branch"]
8113 return
8114 }
8117 # the stuff on this branch isn't on any other branch
8118 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8120 }
8121 nowbusy rmbranch
8122 update
8124 notbusy rmbranch
8126 return
8127 }
8131 notbusy rmbranch
8132 dispneartags 0
8133 run refill_reflist
8134 }
8136 # Display a list of tags and heads
8137 proc showrefs {} {
8138 global showrefstop bgcolor fgcolor selectbgcolor
8139 global bglist fglist reflistfilter reflist maincursor
8141 set top .showrefs
8145 refill_reflist
8146 return
8147 }
8154 -spacing1 1 -spacing3 1 -state disabled
8165 set reflistfilter "*"
8166 trace add variable reflistfilter write reflistfilter_change
8177 set reflist {}
8178 refill_reflist
8179 }
8181 proc sel_reflist {w x y} {
8182 global showrefstop reflist headids tagids otherrefids
8192 }
8194 }
8196 proc unsel_reflist {} {
8197 global showrefstop
8201 }
8203 proc reflistfilter_change {n1 n2 op} {
8204 global reflistfilter
8206 after cancel refill_reflist
8207 after 200 refill_reflist
8208 }
8210 proc refill_reflist {} {
8211 global reflist reflistfilter showrefstop headids tagids otherrefids
8212 global curview
8215 set refs {}
8216 foreach n [array names headids] {
8220 } else {
8222 }
8223 }
8224 }
8225 foreach n [array names tagids] {
8229 } else {
8231 }
8232 }
8233 }
8234 foreach n [array names otherrefids] {
8238 } else {
8240 }
8241 }
8242 }
8250 set i 0
8251 set j 0
8260 }
8261 } else {
8262 set cmp -1
8263 }
8264 } else {
8265 set cmp 1
8266 }
8268 -1 {
8270 incr i
8271 }
8272 0 {
8273 incr i
8274 incr j
8275 }
8276 1 {
8281 incr j
8282 }
8283 }
8284 }
8286 # delete last newline
8289 }
8291 # Stuff for finding nearby tags
8292 proc getallcommits {} {
8293 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8294 global idheads idtags idotherrefs allparents tagobjid
8296 if {![info exists allcommits]} {
8297 set nextarc 0
8298 set allcommits 0
8299 set seeds {}
8300 set allcwait 0
8301 set cachedarcs 0
8302 set allccache [file join [gitdir] "gitk.cache"]
8303 if {![catch {
8305 set allcwait 1
8307 }]} return
8308 }
8311 return
8312 }
8313 set cmd [list | git rev-list --parents]
8316 set ids "--all"
8317 } else {
8318 set refs [concat [array names idheads] [array names idtags] \
8319 [array names idotherrefs]]
8320 set ids {}
8321 set tagobjs {}
8322 foreach name [array names tagobjid] {
8324 }
8329 }
8330 }
8334 }
8335 }
8336 }
8340 incr allcommits
8341 nowbusy allcommits
8343 } else {
8344 dispneartags 0
8345 }
8346 }
8348 # Since most commits have 1 parent and 1 child, we group strings of
8349 # such commits into "arcs" joining branch/merge points (BMPs), which
8350 # are commits that either don't have 1 parent or don't have 1 child.
8351 #
8352 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8353 # arcout(id) - outgoing arcs for BMP
8354 # arcids(a) - list of IDs on arc including end but not start
8355 # arcstart(a) - BMP ID at start of arc
8356 # arcend(a) - BMP ID at end of arc
8357 # growing(a) - arc a is still growing
8358 # arctags(a) - IDs out of arcids (excluding end) that have tags
8359 # archeads(a) - IDs out of arcids (excluding end) that have heads
8360 # The start of an arc is at the descendent end, so "incoming" means
8361 # coming from descendents, and "outgoing" means going towards ancestors.
8363 proc getallclines {fd} {
8364 global allparents allchildren idtags idheads nextarc
8365 global arcnos arcids arctags arcout arcend arcstart archeads growing
8366 global seeds allcommits cachedarcs allcupdate
8368 set nid 0
8372 # seen it already
8373 continue
8374 }
8375 set cachedarcs 0
8382 } else {
8388 }
8391 }
8393 # seen parent already
8396 }
8400 }
8403 continue
8404 }
8405 }
8410 }
8412 set ao {}
8415 set a [incr nextarc]
8424 # seen it already, may need to make a new branch
8427 }
8431 }
8433 }
8435 }
8437 global cached_dheads cached_dtags cached_atags
8438 catch {unset cached_dheads}
8439 catch {unset cached_dtags}
8440 catch {unset cached_atags}
8441 }
8444 }
8445 set cacheok 1
8446 if {[catch {
8449 } err]} {
8450 # got an error reading the list of commits
8451 # if we were updating, try rereading the whole thing again
8453 incr allcommits -1
8455 return
8456 }
8457 error_popup "[mc "Error reading commit topology information;\
8458 branch and preceding/following tag information\
8460 set cacheok 0
8461 }
8462 if {[incr allcommits -1] == 0} {
8463 notbusy allcommits
8465 run savecache
8466 }
8467 }
8468 dispneartags 0
8469 return 0
8470 }
8472 proc recalcarc {a} {
8473 global arctags archeads arcids idtags idheads
8475 set at {}
8476 set ah {}
8480 }
8483 }
8484 }
8487 }
8489 proc splitarc {p} {
8490 global arcnos arcids nextarc arctags archeads idtags idheads
8491 global arcstart arcend arcout allparents growing
8496 return
8497 }
8502 return
8503 }
8504 set na [incr nextarc]
8507 } else {
8511 }
8521 }
8526 } else {
8529 }
8530 }
8532 # reconstruct tags and heads lists
8536 } else {
8539 }
8540 }
8542 # Update things for a new commit added that is a child of one
8543 # existing commit. Used when cherry-picking.
8544 proc addnewchild {id p} {
8545 global allparents allchildren idtags nextarc
8546 global arcnos arcids arctags arcout arcend arcstart archeads growing
8547 global seeds allcommits
8555 set a [incr nextarc]
8563 }
8566 }
8568 # This implements a cache for the topology information.
8569 # The cache saves, for each arc, the start and end of the arc,
8570 # the ids on the arc, and the outgoing arcs from the end.
8571 proc readcache {f} {
8572 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8573 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8574 global allcwait
8580 }
8581 if {[catch {
8583 # finish reading the cache and setting up arctags, etc.
8587 foreach id [array names idtags] {
8593 }
8594 }
8595 }
8596 foreach id [array names idheads] {
8602 }
8603 }
8604 }
8608 }
8609 }
8610 set allcwait 0
8611 } else {
8621 }
8625 } else {
8629 }
8630 }
8636 }
8639 }
8642 }
8644 }
8645 } err]} {
8647 return 0
8648 }
8650 getallcommits
8651 }
8653 }
8655 proc getcache {f} {
8656 global nextarc cachedarcs possible_seeds
8658 if {[catch {
8661 # make sure it's an integer
8664 set nextarc 0
8665 set possible_seeds {}
8667 } err]} {
8669 }
8670 return 0
8671 }
8673 proc dropcache {err} {
8674 global allcwait nextarc cachedarcs seeds
8677 foreach v {arcnos arcout arcids arcstart arcend growing \
8678 arctags archeads allparents allchildren} {
8681 }
8682 set allcwait 0
8683 set nextarc 0
8684 set cachedarcs 0
8685 set seeds {}
8686 getallcommits
8687 }
8689 proc writecache {f} {
8690 global cachearc cachedarcs allccache
8691 global arcstart arcend arcnos arcids arcout
8697 }
8698 if {[catch {
8702 } else {
8704 }
8705 }
8706 } err]} {
8710 return 0
8711 }
8716 return 0
8717 }
8718 return 1
8719 }
8721 proc savecache {} {
8722 global nextarc cachedarcs cachearc allccache
8725 set cachearc 0
8727 catch {
8731 }
8732 }
8734 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8735 # or 0 if neither is true.
8736 proc anc_or_desc {a b} {
8737 global arcout arcstart arcend arcnos cached_isanc
8740 # Both are on the same arc(s); either both are the same BMP,
8741 # or if one is not a BMP, the other is also not a BMP or is
8742 # the BMP at end of the arc (and it only has 1 incoming arc).
8743 # Or both can be BMPs with no incoming arcs.
8745 return 0
8746 }
8752 return 1
8753 } else {
8754 return -1
8755 }
8756 }
8762 } else {
8763 set aend {}
8764 }
8766 } else {
8768 }
8773 } else {
8774 set bend {}
8775 }
8777 } else {
8779 }
8781 return 1
8782 }
8784 return -1
8785 }
8788 return 1
8789 }
8790 }
8793 return -1
8794 }
8796 return 0
8797 }
8798 }
8806 continue
8807 }
8813 return 1
8817 return -1
8818 }
8824 }
8825 }
8826 }
8829 return 0
8830 }
8834 # and returns 0 if so and 1 if not.
8835 # If we subsequently discover a tag on such a growing tip, and that
8838 # isn't a good choice to display as a descendent tag of
8842 #
8843 proc is_certain {desc anc} {
8844 global arcnos arcout arcstart arcend growing problems
8846 set certain {}
8848 # tags on the same arc are certain
8850 return 1
8851 }
8856 }
8857 }
8860 } else {
8863 }
8865 return 1
8866 }
8869 set nnh 1
8870 set ngrowanc 0
8874 incr nnh -1
8875 }
8881 incr ngrowanc
8882 }
8883 } else {
8890 incr nnh -1
8891 }
8893 incr ngrowanc -1
8894 }
8904 incr nnh -1
8905 }
8907 incr ngrowanc -1
8908 }
8910 }
8911 }
8912 }
8913 }
8914 }
8915 }
8919 } else {
8922 incr nnh
8923 }
8924 }
8925 }
8926 }
8927 foreach x [array names growanc] {
8929 return 0
8930 }
8931 return 0
8932 }
8933 return 1
8934 }
8936 proc validate_arctags {a} {
8937 global arctags idtags
8939 set i -1
8942 incr i
8945 incr i -1
8946 }
8947 }
8949 }
8951 proc validate_archeads {a} {
8952 global archeads idheads
8954 set i -1
8957 incr i
8960 incr i -1
8961 }
8962 }
8964 }
8966 # Return the list of IDs that have tags that are descendents of id,
8967 # ignoring IDs that are descendents of IDs already reported.
8968 proc desctags {id} {
8969 global arcnos arcstart arcids arctags idtags allparents
8970 global growing cached_dtags
8973 return {}
8974 }
8975 set t1 [clock clicks -milliseconds]
8978 # part-way along an arc; check that arc first
8983 set tid {}
8988 }
8991 }
8992 }
8996 }
8997 }
9000 }
9005 set nc 1
9011 incr nc -1
9012 }
9013 # ignore tags on starting node
9017 set ta 1
9020 set ta 1
9021 }
9022 }
9029 }
9030 }
9039 }
9042 }
9044 incr nc -1
9045 }
9047 }
9048 }
9049 }
9054 incr nc
9055 }
9056 }
9057 }
9058 }
9059 set tags {}
9060 foreach id [array names tagloc] {
9065 }
9066 }
9067 }
9068 }
9069 set t2 [clock clicks -milliseconds]
9072 # remove tags that are descendents of other tags
9080 incr j -1
9081 incr i -1
9084 incr i -1
9085 break
9086 }
9087 }
9088 }
9090 if {[array names growing] ne {}} {
9091 # graph isn't finished, need to check if any tag could get
9092 # eclipsed by another tag coming later. Simply ignore any
9093 # tags that could later get eclipsed.
9094 set ctags {}
9098 }
9099 }
9102 } else {
9104 }
9105 } else {
9107 }
9108 set t3 [clock clicks -milliseconds]
9112 }
9114 }
9116 proc anctags {id} {
9117 global arcnos arcids arcout arcend arctags idtags allparents
9118 global growing cached_atags
9121 return {}
9122 }
9123 set t1 [clock clicks -milliseconds]
9126 # part-way along an arc; check that arc first
9135 }
9136 }
9137 }
9139 return {}
9140 }
9144 }
9145 }
9148 }
9153 set taglist {}
9154 set nc 1
9160 incr nc -1
9161 }
9162 # ignore tags on starting node
9166 set td 1
9169 set td 1
9170 }
9171 }
9177 }
9178 }
9190 }
9191 }
9194 }
9196 incr nc -1
9197 }
9199 }
9200 }
9201 }
9206 incr nc
9207 }
9208 }
9209 }
9210 }
9211 set t2 [clock clicks -milliseconds]
9213 set tags {}
9214 foreach id [array names tagloc] {
9219 }
9220 }
9221 }
9222 }
9224 # remove tags that are ancestors of other tags
9232 incr j -1
9233 incr i -1
9236 incr i -1
9237 break
9238 }
9239 }
9240 }
9242 if {[array names growing] ne {}} {
9243 # graph isn't finished, need to check if any tag could get
9244 # eclipsed by another tag coming later. Simply ignore any
9245 # tags that could later get eclipsed.
9246 set ctags {}
9250 }
9251 }
9254 } else {
9256 }
9257 } else {
9259 }
9260 set t3 [clock clicks -milliseconds]
9264 }
9266 }
9268 # Return the list of IDs that have heads that are descendents of id,
9269 # including id itself if it has a head.
9270 proc descheads {id} {
9271 global arcnos arcstart arcids archeads idheads cached_dheads
9272 global allparents
9275 return {}
9276 }
9277 set aret {}
9279 # part-way along an arc; check it first
9288 }
9289 }
9291 }
9295 set ret {}
9300 } else {
9303 }
9309 }
9310 }
9315 }
9316 }
9317 }
9318 }
9322 }
9324 proc addedtag {id} {
9325 global arcnos arcout cached_dtags cached_atags
9330 }
9331 catch {unset cached_dtags}
9332 catch {unset cached_atags}
9333 }
9335 proc addedhead {hid head} {
9336 global arcnos arcout cached_dheads
9341 }
9342 catch {unset cached_dheads}
9343 }
9345 proc removedhead {hid head} {
9346 global cached_dheads
9348 catch {unset cached_dheads}
9349 }
9351 proc movedhead {hid head} {
9352 global arcnos arcout cached_dheads
9357 }
9358 catch {unset cached_dheads}
9359 }
9361 proc changedrefs {} {
9362 global cached_dheads cached_dtags cached_atags
9363 global arctags archeads arcnos arcout idheads idtags
9365 foreach id [concat [array names idheads] [array names idtags]] {
9371 }
9372 }
9373 }
9374 catch {unset cached_dtags}
9375 catch {unset cached_atags}
9376 catch {unset cached_dheads}
9377 }
9379 proc rereadrefs {} {
9380 global idtags idheads idotherrefs mainheadid
9382 set refids [concat [array names idtags] \
9383 [array names idheads] [array names idotherrefs]]
9387 }
9388 }
9390 readrefs
9391 changedrefs
9393 [array names idheads] [array names idotherrefs]]]
9398 }
9399 }
9403 }
9404 run refill_reflist
9405 }
9407 proc listrefs {id} {
9408 global idtags idheads idotherrefs
9410 set x {}
9413 }
9414 set y {}
9417 }
9418 set z {}
9421 }
9423 }
9425 proc showtag {tag isnew} {
9426 global ctext tagcontents tagids linknum tagobjid
9430 }
9432 clear_ctext
9433 settabs 0
9434 set linknum 0
9436 catch {
9438 }
9439 }
9442 } else {
9444 }
9447 init_flist {}
9448 }
9450 proc doquit {} {
9451 global stopped
9452 global gitktmpdir
9454 set stopped 100
9455 savestuff .
9456 destroy .
9458 if {[info exists gitktmpdir]} {
9460 }
9461 }
9463 proc mkfontdisp {font top which} {
9472 }
9474 proc choosefont {font which} {
9475 global fontparam fontlist fonttop fontattr
9483 set top .gitkfont
9486 font create sample
9492 set fontlist [lsort [font families]]
9503 -textvariable fontparam(size) \
9504 -validatecommand {string is integer -strict %s}
9506 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9507 -variable fontparam(weight) -onvalue bold -offvalue normal
9509 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9510 -variable fontparam(slant) -onvalue italic -offvalue roman
9514 -background white
9516 -fill black -tags text
9526 trace add variable fontparam write chg_fontparam
9527 } else {
9530 }
9535 }
9536 }
9538 proc centertext {w} {
9540 }
9542 proc fontok {} {
9543 global fontparam fontpref prefstop
9549 }
9552 }
9556 fontcan
9557 }
9559 proc fontcan {} {
9560 global fonttop fontparam
9562 if {[info exists fonttop]} {
9564 catch {font delete sample}
9565 unset fonttop
9566 unset fontparam
9567 }
9568 }
9570 proc selfontfam {} {
9571 global fonttop fontparam
9576 }
9577 }
9579 proc chg_fontparam {v sub op} {
9580 global fontparam
9583 }
9585 proc doprefs {} {
9586 global maxwidth maxgraphpct
9587 global oldprefs prefstop showneartags showlocalchanges
9588 global bgcolor fgcolor ctext diffcolors selectbgcolor
9589 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9591 set top .gitkprefs
9595 return
9596 }
9597 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9598 limitdiffs tabstop perfile_attrs} {
9600 }
9607 -font optionfont
9611 -font optionfont
9649 -padx 10
9651 -command choose_extdiff
9678 "diff hunk header" \
9700 }
9702 proc choose_extdiff {} {
9703 global extdifftool
9705 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9708 }
9709 }
9711 proc choosecolor {v vi w x cmd} {
9720 }
9722 proc setselbg {c} {
9723 global bglist cflist
9726 }
9730 }
9732 proc setbg {c} {
9733 global bglist
9737 }
9738 }
9740 proc setfg {c} {
9741 global fglist canv
9745 }
9748 }
9750 proc prefscan {} {
9751 global oldprefs prefstop
9753 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9754 limitdiffs tabstop perfile_attrs} {
9757 }
9759 unset prefstop
9760 fontcan
9761 }
9763 proc prefsok {} {
9764 global maxwidth maxgraphpct
9765 global oldprefs prefstop showneartags showlocalchanges
9766 global fontpref mainfont textfont uifont
9767 global limitdiffs treediffs perfile_attrs
9770 unset prefstop
9771 fontcan
9772 set fontchanged 0
9776 eval font configure mainfont [fontflags mainfont]
9777 eval font configure mainfontbold [fontflags mainfont 1]
9778 setcoords
9779 set fontchanged 1
9780 }
9784 eval font configure textfont [fontflags textfont]
9785 eval font configure textfontbold [fontflags textfont 1]
9786 }
9790 eval font configure uifont [fontflags uifont]
9791 }
9792 settabs
9795 doshowlocalchanges
9796 } else {
9797 dohidelocalchanges
9798 }
9799 }
9802 # treediffs elements are limited by path;
9803 # won't have encodings cached if perfile_attrs was just turned on
9804 catch {unset treediffs}
9805 }
9808 redisplay
9811 reselectline
9812 }
9813 }
9815 proc formatdate {d} {
9816 global datetimeformat
9819 }
9821 }
9823 # This list of encoding names and aliases is distilled from
9824 # http://www.iana.org/assignments/character-sets.
9825 # Not all of them are supported by Tcl.
9826 set encoding_aliases {
9827 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9828 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9829 { ISO-10646-UTF-1 csISO10646UTF1 }
9830 { ISO_646.basic:1983 ref csISO646basic1983 }
9831 { INVARIANT csINVARIANT }
9832 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9833 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9834 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9835 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9836 { NATS-DANO iso-ir-9-1 csNATSDANO }
9837 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9838 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9839 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9840 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9841 { ISO-2022-KR csISO2022KR }
9842 { EUC-KR csEUCKR }
9843 { ISO-2022-JP csISO2022JP }
9844 { ISO-2022-JP-2 csISO2022JP2 }
9845 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9846 csISO13JISC6220jp }
9847 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9848 { IT iso-ir-15 ISO646-IT csISO15Italian }
9849 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9850 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9851 { greek7-old iso-ir-18 csISO18Greek7Old }
9852 { latin-greek iso-ir-19 csISO19LatinGreek }
9853 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9854 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9855 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9856 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9857 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9858 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9859 { INIS iso-ir-49 csISO49INIS }
9860 { INIS-8 iso-ir-50 csISO50INIS8 }
9861 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9862 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9863 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9864 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9865 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9866 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9867 csISO60Norwegian1 }
9868 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9869 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9870 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9871 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9872 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9873 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9874 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9875 { greek7 iso-ir-88 csISO88Greek7 }
9876 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9877 { iso-ir-90 csISO90 }
9878 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9879 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9880 csISO92JISC62991984b }
9881 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9882 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9883 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9884 csISO95JIS62291984handadd }
9885 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9886 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9887 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9888 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9889 CP819 csISOLatin1 }
9890 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9891 { T.61-7bit iso-ir-102 csISO102T617bit }
9892 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9893 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9894 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9895 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9896 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9897 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9898 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9899 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9900 arabic csISOLatinArabic }
9901 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9902 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9903 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9904 greek greek8 csISOLatinGreek }
9905 { T.101-G2 iso-ir-128 csISO128T101G2 }
9906 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9907 csISOLatinHebrew }
9908 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9909 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9910 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9911 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9912 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9913 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9914 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9915 csISOLatinCyrillic }
9916 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9917 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9918 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9919 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9920 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9921 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9922 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9923 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9924 { ISO_10367-box iso-ir-155 csISO10367Box }
9925 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9926 { latin-lap lap iso-ir-158 csISO158Lap }
9927 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9928 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9929 { us-dk csUSDK }
9930 { dk-us csDKUS }
9931 { JIS_X0201 X0201 csHalfWidthKatakana }
9932 { KSC5636 ISO646-KR csKSC5636 }
9933 { ISO-10646-UCS-2 csUnicode }
9934 { ISO-10646-UCS-4 csUCS4 }
9935 { DEC-MCS dec csDECMCS }
9936 { hp-roman8 roman8 r8 csHPRoman8 }
9937 { macintosh mac csMacintosh }
9938 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9939 csIBM037 }
9940 { IBM038 EBCDIC-INT cp038 csIBM038 }
9941 { IBM273 CP273 csIBM273 }
9942 { IBM274 EBCDIC-BE CP274 csIBM274 }
9943 { IBM275 EBCDIC-BR cp275 csIBM275 }
9944 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9945 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9946 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9947 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9948 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9949 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9950 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9951 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9952 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9953 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9954 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9955 { IBM437 cp437 437 csPC8CodePage437 }
9956 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9957 { IBM775 cp775 csPC775Baltic }
9958 { IBM850 cp850 850 csPC850Multilingual }
9959 { IBM851 cp851 851 csIBM851 }
9960 { IBM852 cp852 852 csPCp852 }
9961 { IBM855 cp855 855 csIBM855 }
9962 { IBM857 cp857 857 csIBM857 }
9963 { IBM860 cp860 860 csIBM860 }
9964 { IBM861 cp861 861 cp-is csIBM861 }
9965 { IBM862 cp862 862 csPC862LatinHebrew }
9966 { IBM863 cp863 863 csIBM863 }
9967 { IBM864 cp864 csIBM864 }
9968 { IBM865 cp865 865 csIBM865 }
9969 { IBM866 cp866 866 csIBM866 }
9970 { IBM868 CP868 cp-ar csIBM868 }
9971 { IBM869 cp869 869 cp-gr csIBM869 }
9972 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9973 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9974 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9975 { IBM891 cp891 csIBM891 }
9976 { IBM903 cp903 csIBM903 }
9977 { IBM904 cp904 904 csIBBM904 }
9978 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9979 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9980 { IBM1026 CP1026 csIBM1026 }
9981 { EBCDIC-AT-DE csIBMEBCDICATDE }
9982 { EBCDIC-AT-DE-A csEBCDICATDEA }
9983 { EBCDIC-CA-FR csEBCDICCAFR }
9984 { EBCDIC-DK-NO csEBCDICDKNO }
9985 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9986 { EBCDIC-FI-SE csEBCDICFISE }
9987 { EBCDIC-FI-SE-A csEBCDICFISEA }
9988 { EBCDIC-FR csEBCDICFR }
9989 { EBCDIC-IT csEBCDICIT }
9990 { EBCDIC-PT csEBCDICPT }
9991 { EBCDIC-ES csEBCDICES }
9992 { EBCDIC-ES-A csEBCDICESA }
9993 { EBCDIC-ES-S csEBCDICESS }
9994 { EBCDIC-UK csEBCDICUK }
9995 { EBCDIC-US csEBCDICUS }
9996 { UNKNOWN-8BIT csUnknown8BiT }
9997 { MNEMONIC csMnemonic }
9998 { MNEM csMnem }
9999 { VISCII csVISCII }
10000 { VIQR csVIQR }
10001 { KOI8-R csKOI8R }
10002 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10003 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10004 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10005 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10006 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10007 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10008 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10009 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10010 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10011 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10012 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10013 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10014 { IBM1047 IBM-1047 }
10015 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10016 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10017 { UNICODE-1-1 csUnicode11 }
10018 { CESU-8 csCESU-8 }
10019 { BOCU-1 csBOCU-1 }
10020 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10021 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10022 l8 }
10023 { ISO-8859-15 ISO_8859-15 Latin-9 }
10024 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10025 { GBK CP936 MS936 windows-936 }
10026 { JIS_Encoding csJISEncoding }
10027 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10028 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10029 EUC-JP }
10030 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10031 { ISO-10646-UCS-Basic csUnicodeASCII }
10032 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10033 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10034 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10035 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10036 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10037 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10038 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10039 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10040 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10041 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10042 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10043 { Ventura-US csVenturaUS }
10044 { Ventura-International csVenturaInternational }
10045 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10046 { PC8-Turkish csPC8Turkish }
10047 { IBM-Symbols csIBMSymbols }
10048 { IBM-Thai csIBMThai }
10049 { HP-Legal csHPLegal }
10050 { HP-Pi-font csHPPiFont }
10051 { HP-Math8 csHPMath8 }
10052 { Adobe-Symbol-Encoding csHPPSMath }
10053 { HP-DeskTop csHPDesktop }
10054 { Ventura-Math csVenturaMath }
10055 { Microsoft-Publishing csMicrosoftPublishing }
10056 { Windows-31J csWindows31J }
10057 { GB2312 csGB2312 }
10058 { Big5 csBig5 }
10059 }
10061 proc tcl_encoding {enc} {
10062 global encoding_aliases tcl_encoding_cache
10065 }
10066 set names [encoding names]
10071 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10074 }
10075 }
10080 # look through the aliases for one that tcl knows about
10086 }
10087 }
10089 }
10090 break
10091 }
10092 }
10093 set tclenc {}
10096 }
10099 }
10101 proc gitattr {path attr default} {
10102 global path_attr_cache
10105 } else {
10106 set r "unspecified"
10109 }
10111 }
10114 }
10116 }
10118 proc cache_gitattr {attr pathlist} {
10119 global path_attr_cache
10120 set newlist {}
10124 }
10125 }
10126 set lim 1000
10127 if {[tk windowingsystem] == "win32"} {
10128 # windows has a 32k limit on the arguments to a command...
10129 set lim 30
10130 }
10139 }
10141 }
10142 }
10143 }
10144 }
10145 }
10147 proc get_path_encoding {path} {
10148 global gui_encoding perfile_attrs
10154 }
10155 }
10157 }
10159 # First check that Tcl/Tk is recent enough
10160 if {[catch {package require Tk 8.4} err]} {
10161 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10162 Gitk requires at least Tcl/Tk 8.4."]
10163 exit 1
10164 }
10166 # defaults...
10167 set wrcomcmd "git diff-tree --stdin -p --pretty"
10169 set gitencoding {}
10170 catch {
10171 set gitencoding [exec git config --get i18n.commitencoding]
10172 }
10174 set gitencoding "utf-8"
10175 }
10179 }
10181 set gui_encoding [encoding system]
10182 catch {
10183 set enc [exec git config --get gui.encoding]
10188 } else {
10190 }
10191 }
10192 }
10194 set mainfont {Helvetica 9}
10195 set textfont {Courier 9}
10196 set uifont {Helvetica 9 bold}
10197 set tabstop 8
10198 set findmergefiles 0
10199 set maxgraphpct 50
10200 set maxwidth 16
10201 set revlistorder 0
10202 set fastdate 0
10203 set uparrowlen 5
10204 set downarrowlen 5
10205 set mingaplen 100
10206 set cmitmode "patch"
10207 set wrapcomment "none"
10208 set showneartags 1
10209 set maxrefs 20
10210 set maxlinelen 200
10211 set showlocalchanges 1
10212 set limitdiffs 1
10213 set datetimeformat "%Y-%m-%d %H:%M:%S"
10214 set autoselect 1
10215 set perfile_attrs 0
10217 set extdifftool "meld"
10219 set colors {green red blue magenta darkgrey brown orange}
10220 set bgcolor white
10221 set fgcolor black
10222 set diffcolors {red "#00a000" blue}
10223 set diffcontext 3
10224 set ignorespace 0
10225 set selectbgcolor gray85
10227 set circlecolors {white blue gray blue blue}
10229 # button for popping up context menus
10230 if {[tk windowingsystem] eq "aqua"} {
10231 set ctxbut <Button-2>
10232 } else {
10233 set ctxbut <Button-3>
10234 }
10236 ## For msgcat loading, first locate the installation location.
10237 if { [info exists ::env(GITK_MSGSDIR)] } {
10238 ## Msgsdir was manually set in the environment.
10239 set gitk_msgsdir $::env(GITK_MSGSDIR)
10240 } else {
10241 ## Let's guess the prefix from argv0.
10245 unset gitk_prefix
10246 }
10248 ## Internationalization (i18n) through msgcat and gettext. See
10249 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10250 package require msgcat
10251 namespace import ::msgcat::mc
10252 ## And eventually load the actual message catalog
10255 catch {source ~/.gitk}
10257 font create optionfont -family sans-serif -size -12
10260 eval font create mainfont [fontflags mainfont]
10261 eval font create mainfontbold [fontflags mainfont 1]
10264 eval font create textfont [fontflags textfont]
10265 eval font create textfontbold [fontflags textfont 1]
10268 eval font create uifont [fontflags uifont]
10270 setoptions
10272 # check that we can find a .git directory somewhere...
10273 if {[catch {set gitdir [gitdir]}]} {
10274 show_error {} . [mc "Cannot find a git repository here."]
10275 exit 1
10276 }
10279 exit 1
10280 }
10282 set selecthead {}
10283 set selectheadid {}
10285 set revtreeargs {}
10286 set cmdline_files {}
10287 set i 0
10288 set revtreeargscmd {}
10291 "" { }
10292 "--" {
10294 break
10295 }
10296 "--select-commit=*" {
10298 }
10299 "--argscmd=*" {
10301 }
10302 default {
10304 }
10305 }
10306 incr i
10307 }
10310 set selecthead {}
10311 }
10314 # no -- on command line, but some arguments (other than --argscmd)
10315 if {[catch {
10320 # Unfortunately git rev-parse doesn't produce an error when
10321 # something is both a revision and a filename. To be consistent
10322 # with git log and git rev-list, check revtreeargs for filenames.
10325 show_error {} . [mc "Ambiguous argument '%s': both revision\
10327 exit 1
10328 }
10329 }
10330 } err]} {
10332 # so look for "fatal:".
10336 }
10338 exit 1
10339 }
10340 }
10342 set nullid "0000000000000000000000000000000000000000"
10343 set nullid2 "0000000000000000000000000000000000000001"
10344 set nullfile "/dev/null"
10348 set runq {}
10349 set history {}
10350 set historyindex 0
10351 set fh_serial 0
10352 set nhl_names {}
10353 set highlight_paths {}
10354 set findpattern {}
10355 set searchdirn -forwards
10356 set boldrows {}
10357 set boldnamerows {}
10358 set diffelide {0 0}
10359 set markingmatches 0
10360 set linkentercount 0
10361 set need_redisplay 0
10362 set nrows_drawn 0
10363 set firsttabstop 0
10365 set nextviewnum 1
10366 set curview 0
10367 set selectedview 0
10368 set selectedhlview [mc "None"]
10369 set highlight_related [mc "None"]
10370 set highlight_files {}
10371 set viewfiles(0) {}
10372 set viewperm(0) 0
10373 set viewargs(0) {}
10374 set viewargscmd(0) {}
10376 set selectedline {}
10377 set numcommits 0
10378 set loginstance 0
10379 set cmdlineok 0
10380 set stopped 0
10381 set stuffsaved 0
10382 set patchnum 0
10383 set lserial 0
10384 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10385 setcoords
10386 makewindow
10387 # wait for the window to become visible
10388 tkwait visibility .
10390 readrefs
10393 # create a view for the files/dirs specified on the command line
10394 set curview 1
10395 set selectedview 1
10396 set nextviewnum 2
10397 set viewname(1) [mc "Command line"]
10401 set viewperm(1) 0
10402 set vdatemode(1) 0
10403 addviewmenu 1
10404 .bar.view entryconf [mca "Edit view..."] -state normal
10405 .bar.view entryconf [mca "Delete view"] -state normal
10406 }
10408 if {[info exists permviews]} {
10411 incr nextviewnum
10418 }
10419 }
10420 getcommits {}