| blob | 18d153e569bdadb92ce67d161596779a8b25dc6a |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2008 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 proc gitdir {} {
11 global env
16 }
17 }
19 # A simple scheduler for compute-intensive stuff.
20 # The aim is to make sure that event handlers for GUI actions can
21 # run at least every 50-100 ms. Unfortunately fileevent handlers are
22 # run before X event handlers, so reading from a fast source can
23 # make the GUI completely unresponsive.
24 proc run args {
25 global isonrunq runq currunq
30 after idle dorunq
31 }
34 }
38 }
41 global runq currunq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq currunq
73 unset currunq
78 # script returns 1 if it wants to be readded
79 # file readers return 2 if they could do more straight away
83 }
86 }
89 }
91 after idle dorunq
92 }
93 }
96 global commfd leftover loginstance
102 }
105 global nr_unmerged
107 # find the list of unmerged files
114 exit 1
115 }
121 incr nr_unmerged
124 }
125 }
128 }
130 proc parseviewargs {n arglist} {
131 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
135 set glflags {}
136 set diffargs {}
137 set nextisval 0
138 set revargs {}
140 set allknown 1
141 set filtered 0
142 set i -1
144 incr i
147 set nextisval 0
148 continue
149 }
151 "-d" -
152 "--date-order" {
154 # remove from origargs in case we hit an unknown option
156 incr i -1
157 }
158 # These request or affect diff output, which we don't want.
159 # Some could be used to set our defaults for diff display.
166 lappend diffargs $arg
167 }
168 # These cause our parsing of git log's output to fail, or else
169 # they're options we want to set ourselves, so ignore them.
177 }
178 # These are harmless, and some are even useful
183 lappend glflags $arg
184 }
185 # These mean that we get a subset of the commits
193 lappend glflags $arg
194 }
195 # This appears to be the only one that has a value as a
196 # separate word following it
200 lappend glflags $arg
201 }
204 lappend revargs $arg
205 }
207 lappend revargs $arg
208 }
211 # git rev-parse doesn't understand --merge
212 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
213 }
214 # Other flag arguments including -<n>
219 # a flag argument that we don't recognize;
220 # that means we can't optimize
222 }
223 lappend glflags $arg
224 }
225 # Non-flag arguments specify commits or ranges of commits
226 default {
228 lappend revargs --gitk-symmetric-diff-marker
229 }
230 lappend revargs $arg
231 }
232 }
233 }
240 }
243 global vposids vnegids
246 set revs HEAD
247 }
249 # we get stdout followed by stderr in $err
250 # for an unknown rev, git rev-parse echoes it and then errors out
263 }
266 }
267 break
268 }
269 lappend badrev $line
270 }
271 }
274 }
284 lappend ret $id
287 }
288 }
292 lappend ret $id
295 }
296 lappend pos $id
297 }
298 incr sdm -1
299 }
303 }
305 # Start off a git log process and arrange to read its output
307 global startmsecs commitidx viewcomplete curview
308 global tclencoding
309 global viewargs viewargscmd viewfiles vfilelimit
310 global showlocalchanges
311 global viewactive viewinstances vmergeonly
312 global mainheadid
313 global vcanopt vflags vrevs vorigargs
317 # these are set this way for the error exits
320 varcinit $view
329 }
331 }
338 global nr_unmerged
345 }
347 }
348 }
355 }
359 }
367 }
371 interestedin $mainheadid dodiffindex
372 }
376 }
382 }
385 global commfd leftover
388 catch {
395 }
396 }
398 nukefile $fd
401 }
403 proc stop_backends {} {
404 global commfd
407 stop_instance $inst
408 }
409 }
412 global viewinstances
415 stop_instance $inst
416 }
418 }
421 global pending_select mainheadid selectheadid
429 }
430 }
433 global canv curview need_redisplay viewactive
435 initlayout
437 reset_pending_select $selid
442 }
443 }
445 proc updatecommits {} {
446 global curview vcanopt vorigargs vfilelimit viewinstances
447 global viewactive viewcomplete tclencoding
448 global startmsecs showneartags showlocalchanges
449 global mainheadid pending_select
450 global isworktree
451 global varcid vposids vnegids vflags vrevs
455 rereadrefs
458 dohidelocalchanges
459 }
461 dodiffindex
462 }
463 }
470 return
471 }
472 # note: getting the delta when negative refs change is hard,
473 # and could require multiple git log invocations, so in that
474 # case we ask git log for all the commits (not just the delta)
478 # take out positive refs that we asked for before or
479 # that we have already seen
484 lappend newrevs $rev
485 incr npos
486 }
488 lappend $newrevs $rev
489 }
490 }
494 }
498 }
504 return
505 }
508 }
514 }
518 reset_pending_select {}
521 getallcommits
522 }
523 }
525 proc reloadcommits {} {
526 global curview viewcomplete selectedline currentid thickerline
527 global showneartags treediffs commitinterest cached_commitrow
528 global targetid
533 }
536 stop_rev_list $curview
537 }
538 resetvarcs $curview
543 readrefs
544 changedrefs
546 getallcommits
547 }
548 clear_display
552 setcanvscroll
553 getcommits $selid
555 }
557 # This makes a string representation of a positive integer which
558 # sorts as a string in numerical order
566 }
568 }
570 # Procedures used in reordering commits from git log (without
571 # --topo-order) into the order for display.
574 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
575 global vtokmod varcmod vrowmod varcix vlastins
589 }
592 global varcid varccommits parents children vseedcount ordertok
598 }
599 # some commits might have children but haven't been seen yet
602 }
605 }
608 }
610 }
612 # returns a list of the commits with no children
614 global vdownptr vleftptr varcstart
621 }
623 }
626 global varcid varctok parents children vdatemode
627 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
628 global commitdata commitinfo vseedcount varccommits vlastins
635 }
639 }
642 }
648 }
657 }
658 }
663 }
670 }
674 }
681 }
687 }
696 }
699 global varcid varcstart varccommits varctok
700 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
707 # "%" sorts before "0"...
717 }
727 }
728 }
731 global parents children varctok varcstart varccommits
732 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
741 lappend todo $a
746 }
747 }
748 }
749 incr ntot
756 }
757 }
759 }
766 }
772 }
781 }
782 }
787 }
789 continue
790 }
797 }
798 }
803 modify_arc $v $ka
804 }
806 modify_arc $v $b
807 }
814 }
817 }
820 }
829 }
834 }
841 }
845 }
847 }
848 }
853 }
854 }
856 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
857 }
859 # Fix up the graph after we have found out that in view $v,
860 # $p (a commit that we have already seen) is actually the parent
861 # of the last commit in arc $a.
863 global varcid varcstart varctok vupptr
867 splitvarc $p $v
869 }
870 # seeds always need to be renumbered
874 renumbervarc $pa $v
875 }
876 }
879 global cmitlisted children parents varcid varctok vtokmod
880 global varccommits ordertok commitidx numcommits curview
881 global targetid targetrow
883 readcommit $id
891 modify_arc $v $a
892 }
898 }
899 fix_reversal $p $a $v
903 setcanvscroll
906 incr targetrow
907 }
908 }
909 }
910 }
913 global varcid varccommits parents children cmitlisted
914 global commitidx varctok vtokmod targetid targetrow curview numcommits
921 return
922 }
929 # note we deliberately don't update varcstart($v) even if $i == 0
931 modify_arc $v $a $i
934 incr targetrow
935 }
936 }
937 setcanvscroll
938 drawvisible
939 }
942 global varcid varccommits parents children commitidx
943 global varctok vtokmod cmitlisted currentid selectedline
944 global targetid curview numcommits
949 return
950 }
956 return
957 }
967 }
968 modify_arc $v $a $i
970 unset currentid
972 }
975 }
976 setcanvscroll
977 drawvisible
978 }
981 global children nullid nullid2
986 }
987 }
989 }
992 global children nullid nullid2
999 }
1000 }
1002 }
1005 global varctok varcid
1009 }
1011 # This assumes that if lim is not given, the caller has checked that
1012 # arc a's token is less than $vtokmod($v)
1014 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1022 }
1023 }
1030 }
1035 }
1037 }
1039 undolayout $r
1040 }
1041 }
1044 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1045 global varcid vrownum varcorder varcix varccommits
1046 global vupptr vdownptr vleftptr varctok
1047 global displayorder parentlist curview cached_commitrow
1054 }
1056 }
1060 # go up the tree until we find something that has a row number,
1061 # or we get to a seed
1063 }
1078 }
1080 }
1084 # go down if possible
1087 # if not, go left, or go up until we can go left
1092 }
1094 }
1096 incr arcn
1101 }
1107 }
1108 }
1110 # Test whether view $v contains commit $id
1112 global varcid
1115 }
1117 # Return the row number for commit $id in the current view
1119 global varcid varccommits varcrow curview cached_commitrow
1120 global varctok vtokmod
1126 }
1129 update_arcrows $v
1130 }
1133 }
1138 }
1142 }
1144 # Returns 1 if a is on an earlier row than b, otherwise 0
1146 global varcid varctok curview
1152 }
1156 }
1158 }
1163 }
1175 }
1176 }
1178 }
1180 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1182 global vrownum curview commitidx displayorder parentlist
1183 global varccommits varcorder parents vrowmod varcrow
1184 global d_valid_start d_valid_end
1187 update_arcrows $curview
1188 }
1204 }
1206 lappend displayorder $id
1208 }
1212 lset displayorder $i $id
1214 incr i
1215 }
1216 }
1217 incr r $al
1218 }
1219 }
1222 global displayorder
1228 }
1230 }
1233 global varctok varccommits varcid parents children
1234 global cmitlisted commitidx vtokmod
1243 # add p as a new commit
1244 incr missing_parents
1252 }
1255 modify_arc $v $b
1256 }
1260 }
1261 }
1265 }
1266 }
1267 }
1269 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1270 # Assumes we already have an arc for $rwid.
1272 global children parents varcid varctok vtokmod varccommits
1275 # make $rwid be $ch's parent in place of $id
1279 }
1281 # add $ch to $rwid's children and sort the list if necessary
1285 }
1286 # fix the graph after joining $id to $rwid
1288 fix_reversal $rwid $a $v
1289 # parentlist is wrong for the last element of arc $a
1290 # even if displayorder is right, hence the 3rd arg here
1292 }
1293 }
1295 # Mechanism for registering a command to be executed when we come
1296 # across a particular commit. To handle the case when only the
1297 # prefix of the commit is known, the commitinterest array is now
1298 # indexed by the first 4 characters of the ID. Each element is a
1299 # list of id, cmd pairs.
1301 global commitinterest
1304 }
1307 global commitinterest
1316 lappend newlist $i $script
1317 }
1318 }
1323 }
1324 }
1326 }
1329 global cmitlisted leftover
1330 global commitidx commitdata vdatemode
1331 global parents children curview hlview
1332 global idpending ordertok
1333 global varccommits varcid varctok vtokmod vfilelimit
1336 # git log doesn't terminate the last commit with a null...
1339 }
1343 }
1344 global commfd viewcomplete viewactive viewname
1345 global viewinstances
1350 }
1351 # set it blocking so we wait for the process to terminate
1357 }
1360 bad arguments to git log."
1362 append err \
1363 " (Note: arguments to gitk are passed to git log\
1364 to allow selection of commits to be displayed.)"
1365 }
1368 }
1369 error_popup $err
1370 }
1373 # Check if we have seen any ids listed as parents that haven't
1374 # appeared in the list
1375 closevarcs $view
1376 notbusy $view
1377 }
1379 run chewcommits
1380 }
1382 }
1390 break
1391 }
1398 }
1411 }
1413 }
1418 break
1419 }
1420 }
1421 }
1426 }
1428 exit 1
1429 }
1436 # when doing path limiting, so work around that here
1437 # by working out the rewritten parent with git rev-list
1438 # and if we already know about it, using the rewritten
1439 # parent as a substitute parent for $id's children.
1443 }]} {
1445 # use $rwid in place of $id
1446 rewrite_commit $view $id $rwid
1447 continue
1448 }
1449 }
1450 }
1456 }
1461 }
1473 }
1474 }
1476 # new arc
1478 }
1480 modify_arc $view $a
1481 }
1486 }
1497 }
1499 fix_reversal $p $a $view
1500 }
1501 }
1502 incr i
1503 }
1507 }
1509 global numcommits hlview
1513 run chewcommits
1514 }
1516 # we never actually get here...
1517 run vhighlightmore
1518 }
1521 }
1522 }
1524 }
1526 proc chewcommits {} {
1527 global curview hlview viewcomplete
1528 global pending_select
1530 layoutmore
1532 global commitidx varctok
1533 global numcommits startmsecs
1536 update
1537 reset_pending_select {}
1544 }
1545 }
1547 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1548 #puts "overall $ms ms for $numcommits commits"
1549 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1552 }
1553 notbusy layout
1554 }
1556 }
1561 }
1564 global commitinfo cdate
1575 # should never happen...
1577 }
1588 }
1589 }
1591 # take the first non-blank line of the comment as the headline
1596 }
1601 }
1603 # git log indents the comment by 4 spaces;
1604 # if we got this via git cat-file, add the indentation
1607 append newcomment " "
1608 append newcomment $line
1610 }
1612 }
1615 }
1618 }
1621 global commitdata commitinfo
1626 readcommit $id
1629 }
1630 }
1632 }
1634 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1635 # and are present in the current view.
1636 # This is fairly slow...
1638 global varcid curview
1643 }
1645 }
1647 proc readrefs {} {
1648 global tagids idtags headids idheads tagobjid
1649 global otherrefids idotherrefs mainhead mainheadid
1650 global selecthead selectheadid
1654 }
1666 }
1672 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1673 # which is what we want since the former is the commit ID
1679 }
1685 }
1686 }
1690 catch {
1695 }
1696 }
1699 catch {
1701 }
1702 }
1703 }
1705 # skip over fake commits
1706 proc first_real_row {} {
1707 global nullid nullid2 numcommits
1712 break
1713 }
1714 }
1716 }
1718 # update things for a head moved to a child of its previous location
1720 global headids idheads
1725 }
1727 # update things when a head has been removed
1729 global headids idheads
1737 }
1738 }
1740 }
1751 tkwait window $top
1752 }
1755 set w .error
1756 toplevel $w
1757 wm transient $w $owner
1758 show_error $w $w $msg
1759 }
1762 global confirm_ok
1764 set w .confirm
1765 toplevel $w
1766 wm transient $w $owner
1777 tkwait window $w
1779 }
1781 proc setoptions {} {
1783 option add *Panedwindow.sashRelief raised startupFile
1784 option add *Button.font uifont startupFile
1785 option add *Checkbutton.font uifont startupFile
1786 option add *Radiobutton.font uifont startupFile
1787 option add *Menu.font uifont startupFile
1788 option add *Menubutton.font uifont startupFile
1789 option add *Label.font uifont startupFile
1790 option add *Message.font uifont startupFile
1791 option add *Entry.font uifont startupFile
1792 }
1794 # Make a menu and submenus.
1795 # m is the window name for the menu, items is the list of menu items to add.
1796 # Each item is a list {mc label type description options...}
1797 # mc is ignored; it's so we can put mc there to alert xgettext
1798 # label is the string that appears in the menu
1799 # type is cascade, command or radiobutton (should add checkbutton)
1800 # description depends on type; it's the sublist for cascade, the
1801 # command to invoke for command, or {variable value} for radiobutton
1803 menu $m
1814 }
1815 }
1820 }
1823 }
1827 }
1828 }
1832 }
1833 }
1834 }
1836 # translate string and remove ampersands
1839 }
1841 proc makewindow {} {
1842 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1843 global tabstop
1844 global findtype findtypemenu findloc findstring fstring geometry
1845 global entries sha1entry sha1string sha1but
1846 global diffcontextstring diffcontext
1847 global ignorespace
1848 global maincursor textcursor curtextcursor
1849 global rowctxmenu fakerowmenu mergemax wrapcomment
1850 global highlight_files gdttype
1851 global searchstring sstring
1852 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1853 global headctxmenu progresscanv progressitem progresscoords statusw
1854 global fprogitem fprogcoord lastprogupdate progupdatepending
1855 global rprogitem rprogcoord rownumsel numcommits
1856 global have_tk85
1858 # The "mc" arguments here are purely so that xgettext
1859 # sees the following string as needing to be translated
1860 makemenu .bar {
1867 }}
1870 }}
1877 }}
1881 }}
1882 }
1883 . configure -menu .bar
1885 # the gui has upper and lower half, parts of a paned window.
1886 panedwindow .ctop -orient vertical
1888 # possibly use assumed geometry
1896 }
1898 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1900 frame .tf.histframe
1903 # create three canvases
1904 set cscroll .tf.histframe.csb
1905 set canv .tf.histframe.pwclist.canv
1906 canvas $canv \
1910 .tf.histframe.pwclist add $canv
1911 set canv2 .tf.histframe.pwclist.canv2
1912 canvas $canv2 \
1915 .tf.histframe.pwclist add $canv2
1916 set canv3 .tf.histframe.pwclist.canv3
1917 canvas $canv3 \
1920 .tf.histframe.pwclist add $canv3
1924 # a scroll bar to rule them
1928 lappend bglist $canv $canv2 $canv3
1931 # we have two button bars at bottom of top frame. Bar 1
1932 frame .tf.bar
1935 set sha1entry .tf.bar.sha1
1937 set sha1but .tf.bar.sha1label
1941 pack .tf.bar.sha1label -side left
1943 trace add variable sha1string write sha1change
1947 #define left_width 16
1948 #define left_height 16
1949 static unsigned char left_bits[] = {
1953 }
1955 #define right_width 16
1956 #define right_height 16
1957 static unsigned char right_bits[] = {
1961 }
1976 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1977 -side left
1978 global selectedline
1979 trace add variable selectedline write selectedline_change
1981 # Status label and progress bar
1982 set statusw .tf.bar.status
1986 set progresscanv .tf.bar.progress
1999 # build up the bottom bar of upper window
2004 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2011 trace add variable gdttype write gdttype_change
2015 set fstring .tf.lbar.findstring
2016 lappend entries $fstring
2018 trace add variable findstring write find_change
2022 trace add variable findtype write findcom_change
2026 trace add variable findloc write find_change
2027 pack .tf.lbar.findloc -side right
2028 pack .tf.lbar.findtype -side right
2031 # Finish putting the upper half of the viewer together
2035 .ctop add .tf
2039 # now build up the bottom
2040 panedwindow .pwbottom -orient horizontal
2042 # lower left, a text box over search bar, scroll bar to the right
2043 # if we know window height, then that will set the lower text height, otherwise
2044 # we set lower text height which will drive window height
2049 }
2050 frame .bleft.top
2051 frame .bleft.mid
2052 frame .bleft.bottom
2056 set sstring .bleft.top.sstring
2058 lappend entries $sstring
2059 trace add variable searchstring write incrsearch
2072 -textvariable diffcontextstring
2074 trace add variable diffcontextstring write diffcontextchange
2075 lappend entries .bleft.mid.diffcontext
2076 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2080 set ctext .bleft.bottom.ctext
2087 }
2094 grid .bleft.bottom.sbhorizontal -sticky ew
2099 lappend bglist $ctext
2100 lappend fglist $ctext
2129 .pwbottom add .bleft
2132 # lower right
2133 frame .bright
2134 frame .bright.mode
2141 set cflist .bright.cfiles
2143 text $cflist \
2146 -font mainfont \
2151 lappend bglist $cflist
2152 lappend fglist $cflist
2156 $cflist tag configure highlight \
2160 .pwbottom add .bright
2161 .ctop add .pwbottom
2163 # restore window width & height if known
2168 }
2171 }
2173 }
2174 }
2177 set M1B M1
2179 set M1B Control
2180 }
2185 #bindall <B1-Motion> {selcanvline %W %x %y}
2195 allcanvs yview scroll $delta units
2196 }
2197 }
2198 }
2220 bindkey p "selnextline -1"
2221 bindkey n "selnextline 1"
2222 bindkey z "goback"
2223 bindkey x "goforw"
2224 bindkey i "selnextline -1"
2225 bindkey k "selnextline 1"
2226 bindkey j "goback"
2227 bindkey l "goforw"
2228 bindkey b prevfile
2234 bindkey f nextfile
2246 wm protocol . WM_DELETE_WINDOW doquit
2255 global ctxbut
2259 set maincursor [. cget -cursor]
2263 set rowctxmenu .rowctxmenu
2265 {mc "Diff this -> selected" command {diffvssel 0}}
2266 {mc "Diff selected -> this" command {diffvssel 1}}
2267 {mc "Make patch" command mkpatch}
2268 {mc "Create tag" command mktag}
2269 {mc "Write commit to file" command writecommit}
2270 {mc "Create new branch" command mkbranch}
2271 {mc "Cherry-pick this commit" command cherrypick}
2272 {mc "Reset HEAD branch to here" command resethead}
2273 }
2276 set fakerowmenu .fakerowmenu
2278 {mc "Diff this -> selected" command {diffvssel 0}}
2279 {mc "Diff selected -> this" command {diffvssel 1}}
2280 {mc "Make patch" command mkpatch}
2281 }
2284 set headctxmenu .headctxmenu
2286 {mc "Check out this branch" command cobranch}
2287 {mc "Remove this branch" command rmbranch}
2288 }
2291 global flist_menu
2292 set flist_menu .flistctxmenu
2294 {mc "Highlight this too" command {flist_hl 0}}
2295 {mc "Highlight this only" command {flist_hl 1}}
2296 {mc "External diff" command {external_diff}}
2297 {mc "Blame parent commit" command {external_blame 1}}
2298 }
2301 global diff_menu
2302 set diff_menu .diffctxmenu
2304 {mc "Show origin of this line" command show_line_source}
2305 {mc "Run git gui blame on this line" command {external_blame_diff}}
2306 }
2308 }
2310 # Windows sends all mouse wheel events to the current focused window, not
2311 # the one where the mouse hovers, so bind those events here and redirect
2312 # to the correct window
2313 proc windows_mousewheel_redirector {W X Y D} {
2314 global canv canv2 canv3
2320 } else {
2321 catch {
2323 }
2324 }
2325 }
2326 }
2328 # Update row number label when selectedline changes
2329 proc selectedline_change {n1 n2 op} {
2330 global selectedline rownumsel
2333 set rownumsel {}
2334 } else {
2336 }
2337 }
2339 # mouse-2 makes all windows scan vertically, but only the one
2340 # the cursor is in scans horizontally
2341 proc canvscan {op w x y} {
2342 global canv canv2 canv3
2346 } else {
2348 }
2349 }
2350 }
2352 proc scrollcanv {cscroll f0 f1} {
2354 drawvisible
2355 flushhighlights
2356 }
2358 # when we make a key binding for the toplevel, make sure
2359 # it doesn't get triggered when that key is pressed in the
2360 # find string entry widget.
2361 proc bindkey {ev script} {
2362 global entries
2366 set escript [bind Entry <Key>]
2367 }
2370 }
2371 }
2373 # set the focus back to the toplevel for any click outside
2374 # the entry widgets
2375 proc click {w} {
2376 global ctext entries
2379 }
2380 focus .
2381 }
2383 # Adjust the progress bar for a change in requested extent or canvas size
2384 proc adjustprogress {} {
2385 global progresscanv progressitem progresscoords
2386 global fprogitem fprogcoord lastprogupdate progupdatepending
2387 global rprogitem rprogcoord
2396 set now [clock clicks -milliseconds]
2398 set progupdatepending 0
2399 update
2401 set progupdatepending 1
2403 }
2404 }
2406 proc doprogupdate {} {
2407 global lastprogupdate progupdatepending
2410 set progupdatepending 0
2411 set lastprogupdate [clock clicks -milliseconds]
2412 update
2413 }
2414 }
2416 proc savestuff {w} {
2417 global canv canv2 canv3 mainfont textfont uifont tabstop
2418 global stuffsaved findmergefiles maxgraphpct
2419 global maxwidth showneartags showlocalchanges
2420 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2421 global cmitmode wrapcomment datetimeformat limitdiffs
2422 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2423 global autoselect extdifftool perfile_attrs markbgcolor
2426 if {![winfo viewable .]} return
2427 catch {
2428 set f [open "~/.gitk-new" w]
2465 }
2466 }
2469 file rename -force "~/.gitk-new" "~/.gitk"
2470 }
2471 set stuffsaved 1
2472 }
2474 proc resizeclistpanes {win w} {
2475 global oldwidth
2482 } else {
2487 set sash0 30
2488 }
2491 }
2496 }
2497 }
2498 }
2501 }
2503 }
2505 proc resizecdetpanes {win w} {
2506 global oldwidth
2511 } else {
2515 set sash0 45
2516 }
2519 }
2520 }
2522 }
2524 }
2526 proc allcanvs args {
2527 global canv canv2 canv3
2531 }
2533 proc bindall {event action} {
2534 global canv canv2 canv3
2538 }
2540 proc about {} {
2541 global uifont
2542 set w .about
2545 return
2546 }
2551 Gitk - a commit viewer for git
2553 Copyright © 2005-2008 Paul Mackerras
2555 Use and redistribute under the terms of the GNU General Public License"] \
2556 -justify center -aspect 400 -border 2 -bg white -relief groove
2563 }
2565 proc keys {} {
2566 set w .keys
2569 return
2570 }
2571 if {[tk windowingsystem] eq {aqua}} {
2572 set M1T Cmd
2573 } else {
2574 set M1T Ctrl
2575 }
2580 [mc "Gitk key bindings:"]
2583 [mc "<Home> Move to first commit"]
2584 [mc "<End> Move to last commit"]
2585 [mc "<Up>, p, i Move up one commit"]
2586 [mc "<Down>, n, k Move down one commit"]
2587 [mc "<Left>, z, j Go back in history list"]
2588 [mc "<Right>, x, l Go forward in history list"]
2589 [mc "<PageUp> Move up one page in commit list"]
2590 [mc "<PageDown> Move down one page in commit list"]
2597 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2598 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2599 [mc "<Delete>, b Scroll diff view up one page"]
2600 [mc "<Backspace> Scroll diff view up one page"]
2601 [mc "<Space> Scroll diff view down one page"]
2602 [mc "u Scroll diff view up 18 lines"]
2603 [mc "d Scroll diff view down 18 lines"]
2606 [mc "<Return> Move to next find hit"]
2607 [mc "/ Move to next find hit, or redo find"]
2608 [mc "? Move to previous find hit"]
2609 [mc "f Scroll diff view to next file"]
2616 [mc "<F5> Update"]
2617 " \
2618 -justify left -bg white -border 2 -relief groove
2626 }
2628 # Procedures for manipulating the file list window at the
2629 # bottom right of the overall window.
2631 proc treeview {w l openlevs} {
2632 global treecontents treediropen treeheight treeparent treeindex
2634 set ix 0
2635 set treeindex() 0
2636 set lev 0
2637 set prefix {}
2638 set prefixend -1
2639 set prefendstack {}
2640 set htstack {}
2641 set ht 0
2642 set treecontents() {}
2649 }
2656 incr lev -1
2657 }
2661 set ht 0
2673 set ht 1
2678 set str "\n"
2686 }
2687 incr lev
2688 }
2691 incr ht
2692 set str "\n"
2696 }
2698 }
2699 }
2707 }
2709 }
2711 proc linetoelt {l} {
2712 global treeheight treecontents
2714 set y 2
2715 set prefix {}
2716 while {1} {
2720 }
2721 set n 1
2726 incr y
2727 break
2728 }
2729 }
2731 }
2732 }
2733 }
2735 proc highlight_tree {y prefix} {
2736 global treeheight treecontents cflist
2742 }
2743 incr y
2746 }
2747 }
2749 }
2751 proc treeclosedir {w dir} {
2752 global treediropen treeheight treeparent treeindex
2764 }
2765 }
2767 proc treeopendir {w dir} {
2768 global treediropen treeheight treeparent treecontents treeindex
2775 set lev 0
2776 set str "\n"
2779 incr lev
2780 append str "\t"
2782 }
2797 } else {
2800 }
2801 }
2814 }
2816 }
2817 }
2819 proc treeclick {w x y} {
2820 global treediropen cmitmode ctext cflist cflist_top
2823 if {![info exists cflist_top]} return
2830 return
2831 }
2837 } else {
2839 }
2840 }
2842 proc setfilelist {id} {
2843 global treefilelist cflist jump_to_here
2850 }
2851 }
2852 }
2854 image create bitmap tri-rt -background black -foreground blue -data {
2855 #define tri-rt_width 13
2856 #define tri-rt_height 13
2857 static unsigned char tri-rt_bits[] = {
2858 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2859 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2860 0x00, 0x00};
2861 } -maskdata {
2862 #define tri-rt-mask_width 13
2863 #define tri-rt-mask_height 13
2864 static unsigned char tri-rt-mask_bits[] = {
2865 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2866 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2867 0x08, 0x00};
2868 }
2869 image create bitmap tri-dn -background black -foreground blue -data {
2870 #define tri-dn_width 13
2871 #define tri-dn_height 13
2872 static unsigned char tri-dn_bits[] = {
2873 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2874 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2875 0x00, 0x00};
2876 } -maskdata {
2877 #define tri-dn-mask_width 13
2878 #define tri-dn-mask_height 13
2879 static unsigned char tri-dn-mask_bits[] = {
2880 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2881 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2882 0x00, 0x00};
2883 }
2885 image create bitmap reficon-T -background black -foreground yellow -data {
2886 #define tagicon_width 13
2887 #define tagicon_height 9
2888 static unsigned char tagicon_bits[] = {
2889 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2890 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2891 } -maskdata {
2892 #define tagicon-mask_width 13
2893 #define tagicon-mask_height 9
2894 static unsigned char tagicon-mask_bits[] = {
2895 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2896 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2897 }
2898 set rectdata {
2899 #define headicon_width 13
2900 #define headicon_height 9
2901 static unsigned char headicon_bits[] = {
2902 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2903 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2904 }
2905 set rectmask {
2906 #define headicon-mask_width 13
2907 #define headicon-mask_height 9
2908 static unsigned char headicon-mask_bits[] = {
2909 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2910 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2911 }
2912 image create bitmap reficon-H -background black -foreground green \
2914 image create bitmap reficon-o -background black -foreground "#ddddff" \
2917 proc init_flist {first} {
2918 global cflist cflist_top difffilestart
2924 set cflist_top 1
2926 } else {
2927 catch {unset cflist_top}
2928 }
2930 set difffilestart {}
2931 }
2933 proc highlight_tag {f} {
2934 global highlight_paths
2938 return "bold"
2939 }
2940 }
2941 return {}
2942 }
2944 proc highlight_filelist {} {
2945 global cmitmode cflist
2954 }
2955 }
2956 } else {
2957 highlight_tree 2 {}
2958 }
2960 }
2962 proc unhighlight_filelist {} {
2963 global cflist
2968 }
2970 proc add_flist {fl} {
2971 global cflist
2977 }
2979 }
2981 proc sel_flist {w x y} {
2982 global ctext difffilestart cflist cflist_top cmitmode
2985 if {![info exists cflist_top]} return
2992 } else {
2994 }
2995 }
2997 proc pop_flist_menu {w X Y x y} {
2998 global ctext cflist cmitmode flist_menu flist_menu_file
2999 global treediffs diffids
3001 stopfinding
3007 } else {
3009 }
3011 set xdiffstate "normal"
3013 set xdiffstate "disabled"
3014 }
3015 # Disable "External diff" item in tree mode
3018 }
3020 proc find_ctext_fileinfo {line} {
3021 global ctext_file_names ctext_file_lines
3027 return {}
3028 } else {
3030 }
3031 }
3033 proc pop_diff_menu {w X Y x y} {
3034 global ctext diff_menu flist_menu_file
3035 global diff_menu_txtpos diff_menu_line
3036 global diff_menu_filebase
3040 # don't pop up the menu on hunk-separator or file-separator lines
3042 return
3043 }
3044 stopfinding
3050 }
3052 proc flist_hl {only} {
3053 global flist_menu_file findstring gdttype
3058 } else {
3060 }
3061 set gdttype [mc "touching paths:"]
3062 }
3064 proc save_file_from_commit {filename output what} {
3065 global nullfile
3070 }
3072 return {}
3073 }
3075 }
3077 proc external_diff_get_one_file {diffid filename diffdir} {
3078 global nullid nullid2 nullfile
3079 global gitdir
3085 }
3087 }
3091 }
3095 }
3097 proc external_diff {} {
3098 global gitktmpdir nullid nullid2
3099 global flist_menu_file
3100 global diffids
3101 global diffnum
3102 global gitdir extdifftool
3105 # no reference commit given
3108 # diffing working copy with index
3111 # diffing index with HEAD
3112 set diffidfrom "HEAD"
3113 } else {
3114 # use first parent commit
3115 global parentlist selectedline
3117 }
3118 } else {
3121 }
3123 # make sure that several diffs wont collide
3124 if {![info exists gitktmpdir]} {
3126 [format ".gitk-tmp.%s" [pid]]]
3129 unset gitktmpdir
3130 return
3131 }
3132 set diffnum 0
3133 }
3134 incr diffnum
3138 return
3139 }
3141 # gather files to diff
3151 } else {
3154 }
3155 }
3156 }
3158 proc find_hunk_blamespec {base line} {
3159 global ctext
3161 # Find and parse the hunk header
3167 s_line old_specs osz osz1 new_line nsz]} {
3168 return
3169 }
3171 # base lines for the parents
3175 old_spec old_line osz]} {
3176 return
3177 }
3179 }
3181 # Now scan the lines to determine offset within the hunk
3183 set dline 0
3186 # Determine if the line is removed
3190 # Choose a parent index
3193 } else {
3197 } else {
3198 # blame the current commit
3199 set parent -1
3200 }
3201 }
3202 # then count other lines that belong to it
3205 # Determine if the line is removed
3210 incr dline
3211 }
3212 } else {
3214 incr dline
3215 }
3216 }
3217 }
3218 incr parent
3219 } else {
3220 set parent 0
3221 }
3225 }
3227 proc external_blame_diff {} {
3228 global currentid cmitmode
3229 global diff_menu_txtpos diff_menu_line
3230 global diff_menu_filebase flist_menu_file
3233 set parent_idx 0
3235 } else {
3240 } else {
3241 set parent_idx 0
3242 set line 0
3243 }
3244 }
3247 }
3250 # at stage 0 or 2
3251 proc index_sha1 {fname} {
3259 }
3260 }
3262 return {}
3263 }
3265 proc external_blame {parent_idx {line {}}} {
3266 global flist_menu_file
3267 global nullid nullid2
3268 global parentlist selectedline currentid
3272 } else {
3274 }
3277 error_popup [mc "No such commit"]
3278 return
3279 }
3281 set cmdline [list git gui blame]
3284 }
3288 }
3289 }
3291 proc show_line_source {} {
3292 global cmitmode currentid parents curview blamestuff blameinst
3293 global diff_menu_line diff_menu_filebase flist_menu_file
3294 global nullid nullid2 gitdir
3296 set from_index {}
3300 } else {
3306 return
3307 }
3308 incr pi -1
3311 # must be a merge in progress...
3312 if {[catch {
3313 # get the last line from .git/MERGE_HEAD
3317 } err]} {
3319 return
3320 }
3322 # need to do the blame from the index
3323 if {[catch {
3325 } err]} {
3327 return
3328 }
3329 }
3330 } else {
3332 }
3334 }
3335 set blameargs {}
3338 }
3341 lappend blameargs --contents -
3342 } else {
3344 }
3346 if {[catch {
3348 } err]} {
3350 return
3351 }
3357 }
3359 proc stopblaming {} {
3360 global blameinst
3362 if {[info exists blameinst]} {
3364 unset blameinst
3365 }
3366 }
3368 proc read_line_source {fd inst} {
3369 global blamestuff curview commfd blameinst nullid nullid2
3373 }
3375 return 1
3376 }
3378 unset blameinst
3382 return 0
3383 }
3385 set fname {}
3391 # look for "filename" line
3395 break
3396 }
3397 }
3398 }
3400 # all looks good, select it
3402 # blame uses all-zeroes to mean not committed,
3403 # which would mean a change in the index
3405 }
3408 } else {
3409 error_popup [mc "That line comes from commit %s, \
3411 }
3412 } else {
3413 puts "oops couldn't parse git blame output"
3414 }
3415 return 0
3416 }
3419 proc delete_at_eof {f dir} {
3424 }
3426 return 0
3427 }
3428 return 1
3429 }
3431 # Functions for adding and removing shell-type quoting
3433 proc shellquote {str} {
3436 }
3439 }
3442 }
3444 }
3446 proc shellarglist {l} {
3447 set str {}
3450 append str " "
3451 }
3453 }
3455 }
3457 proc shelldequote {str} {
3458 set ret {}
3459 set used -1
3460 while {1} {
3461 incr used
3465 break
3466 }
3472 }
3474 incr used
3478 error "unmatched single-quote"
3479 }
3482 continue
3483 }
3486 error "trailing backslash"
3487 }
3489 continue
3490 }
3491 # here ch == "\""
3492 while {1} {
3494 error "unmatched double-quote"
3495 }
3501 }
3503 incr used
3505 incr used
3506 }
3507 }
3509 }
3511 proc shellsplit {str} {
3512 set l {}
3513 while {1} {
3521 }
3523 }
3525 # Code to implement multiple views
3527 proc newview {ishighlight} {
3528 global nextviewnum newviewname newishighlight
3529 global revtreeargs viewargscmd newviewopts curview
3532 set top .gitkview
3535 return
3536 }
3542 }
3544 set known_view_options {
3545 {perm b . {} {mc "Remember this view"}}
3546 {args t50= + {} {mc "Commits to include (arguments to git log):"}}
3547 {all b * "--all" {mc "Use all refs"}}
3548 {dorder b . {"--date-order" "-d"} {mc "Strictly sort by date"}}
3549 {lright b . "--left-right" {mc "Mark branch sides"}}
3550 {since t15 + {"--since=*" "--after=*"} {mc "Since date:"}}
3551 {until t15 . {"--until=*" "--before=*"} {mc "Until date:"}}
3552 {limit t10 + "--max-count=*" {mc "Max count:"}}
3553 {skip t10 . "--skip=*" {mc "Skip:"}}
3554 {first b . "--first-parent" {mc "Limit to first parent"}}
3555 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3556 }
3558 proc encode_view_opts {n} {
3559 global known_view_options newviewopts
3561 set rargs [list]
3572 }
3573 } else {
3578 }
3579 }
3580 }
3582 }
3584 proc decode_view_opts {n view_args} {
3585 global known_view_options newviewopts
3589 set val 0
3590 } else {
3591 set val {}
3592 }
3594 }
3595 set oargs [list]
3598 && ![info exists found(limit)]} {
3600 set found(limit) 1
3601 continue
3602 }
3603 catch { unset val }
3612 } else {
3613 set val 1
3614 }
3617 break
3618 }
3619 if {[info exists val]} break
3620 }
3621 if {[info exists val]} continue
3623 }
3625 }
3627 proc editview {} {
3628 global curview
3629 global viewname viewperm newviewname newviewopts
3630 global viewargs viewargscmd
3635 return
3636 }
3642 }
3644 proc vieweditor {top n title} {
3645 global newviewname newviewopts viewfiles bgcolor
3646 global known_view_options
3652 # View name
3660 # View options
3662 set cexpand 0
3663 set cnt 0
3669 set lxpad 0
3673 incr cnt
3677 } else {
3678 set lxpad 5
3679 }
3697 }
3698 }
3700 # Path list
3702 -text [mc "Enter files and directories to include, one per line:"]
3709 }
3712 }
3727 }
3729 proc doviewmenu {m first cmd op argv} {
3734 break
3735 }
3736 }
3737 }
3739 proc allviewmenus {n op args} {
3740 # global viewhlmenu
3744 }
3746 proc newviewok {top n {apply 0}} {
3747 global nextviewnum newviewperm newviewname newishighlight
3748 global viewname viewfiles viewperm selectedview curview
3749 global viewargs viewargscmd newviewopts viewhlmenu
3751 if {[catch {
3753 } err]} {
3755 return
3756 }
3757 set files {}
3762 }
3763 }
3765 # creating a new view
3766 incr nextviewnum
3775 } else {
3777 }
3778 } else {
3779 # editing an existing view
3787 }
3794 run reloadcommits
3795 }
3796 }
3797 }
3800 }
3802 proc delview {} {
3803 global curview viewperm hlview selectedhlview
3807 set selectedhlview [mc "None"]
3808 unset hlview
3809 }
3812 showview 0
3813 }
3815 proc addviewmenu {n} {
3816 global viewname viewhlmenu
3822 }
3824 proc showview {n} {
3825 global curview cached_commitrow ordertok
3826 global displayorder parentlist rowidlist rowisopt rowfinal
3827 global colormap rowtextx nextcolor canvxmax
3828 global numcommits viewcomplete
3829 global selectedline currentid canv canvy0
3830 global treediffs
3831 global pending_select mainheadid
3832 global commitidx
3833 global selectedview
3834 global hlview selectedhlview commitinterest
3837 set selid {}
3848 }
3849 } elseif {[info exists pending_select]} {
3851 unset pending_select
3852 }
3853 unselectline
3854 normalline
3855 catch {unset treediffs}
3856 clear_display
3858 unset hlview
3859 set selectedhlview [mc "None"]
3860 }
3861 catch {unset commitinterest}
3862 catch {unset cached_commitrow}
3863 catch {unset ordertok}
3870 run refill_reflist
3873 return
3874 }
3876 set displayorder {}
3877 set parentlist {}
3878 set rowidlist {}
3879 set rowisopt {}
3880 set rowfinal {}
3883 catch {unset colormap}
3884 catch {unset rowtextx}
3885 set nextcolor 0
3888 set row 0
3889 setcanvscroll
3890 set yf 0
3891 set row {}
3894 # try to get the selected row in the same position on the screen
3898 set ytop 0
3899 }
3901 }
3903 drawvisible
3908 } else {
3909 reset_pending_select {}
3913 } else {
3914 set row [first_real_row]
3917 }
3918 }
3919 }
3922 show_status [mc "Reading commits..."]
3923 }
3925 show_status [mc "No commits selected"]
3926 }
3927 }
3929 # Stuff relating to the highlighting facility
3931 proc ishighlighted {id} {
3932 global vhighlights fhighlights nhighlights rhighlights
3936 }
3939 }
3942 }
3945 }
3946 return 0
3947 }
3949 proc bolden {row font} {
3950 global canv linehtag selectedline boldrows
3957 -outline {{}} -tags secsel \
3960 }
3961 }
3963 proc bolden_name {row font} {
3964 global canv2 linentag selectedline boldnamerows
3971 -outline {{}} -tags secsel \
3974 }
3975 }
3977 proc unbolden {} {
3978 global boldrows
3980 set stillbold {}
3984 } else {
3986 }
3987 }
3989 }
3991 proc addvhighlight {n} {
3992 global hlview viewcomplete curview vhl_done commitidx
3994 if {[info exists hlview]} {
3995 delvhighlight
3996 }
4000 }
4003 drawvisible
4004 }
4005 }
4007 proc delvhighlight {} {
4008 global hlview vhighlights
4010 if {![info exists hlview]} return
4011 unset hlview
4012 catch {unset vhighlights}
4013 unbolden
4014 }
4016 proc vhighlightmore {} {
4017 global hlview vhl_done commitidx vhighlights curview
4020 set vr [visiblerows]
4030 }
4032 }
4033 }
4034 }
4036 return 0
4037 }
4039 proc askvhighlight {row id} {
4040 global hlview vhighlights iddrawn
4045 }
4047 } else {
4049 }
4050 }
4052 proc hfiles_change {} {
4053 global highlight_files filehighlight fhighlights fh_serial
4054 global highlight_paths gdttype
4056 if {[info exists filehighlight]} {
4057 # delete previous highlights
4059 unset filehighlight
4060 catch {unset fhighlights}
4061 unbolden
4062 unhighlight_filelist
4063 }
4064 set highlight_paths {}
4066 incr fh_serial
4069 }
4070 }
4072 proc gdttype_change {name ix op} {
4073 global gdttype highlight_files findstring findpattern
4075 stopfinding
4079 set highlight_files {}
4080 hfiles_change
4081 }
4082 findcom_change
4083 } else {
4085 set findpattern {}
4086 findcom_change
4087 }
4089 hfiles_change
4090 }
4091 drawvisible
4092 }
4093 # enable/disable findtype/findloc menus too
4094 }
4096 proc find_change {name ix op} {
4097 global gdttype findstring highlight_files
4099 stopfinding
4101 findcom_change
4102 } else {
4105 hfiles_change
4106 }
4107 }
4108 drawvisible
4109 }
4111 proc findcom_change args {
4112 global nhighlights boldnamerows
4113 global findpattern findtype findstring gdttype
4115 stopfinding
4116 # delete previous highlights, if any
4119 }
4120 set boldnamerows {}
4121 catch {unset nhighlights}
4122 unbolden
4123 unmarkmatches
4125 set findpattern {}
4128 } else {
4129 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4132 }
4133 }
4135 proc makepatterns {l} {
4136 set ret {}
4141 } else {
4144 }
4145 }
4147 }
4149 proc do_file_hl {serial} {
4150 global highlight_files filehighlight highlight_paths gdttype fhl_list
4155 highlight_filelist
4159 } else {
4160 # must be "containing:", i.e. we're searching commit info
4161 return
4162 }
4167 set fhl_list {}
4168 drawvisible
4169 flushhighlights
4170 }
4172 proc flushhighlights {} {
4173 global filehighlight fhl_list
4175 if {[info exists filehighlight]} {
4176 lappend fhl_list {}
4179 }
4180 }
4182 proc askfilehighlight {row id} {
4183 global filehighlight fhighlights fhl_list
4188 }
4190 proc readfhighlight {} {
4191 global filehighlight fhighlights curview iddrawn
4192 global fhl_list find_dirn
4194 if {![info exists filehighlight]} {
4195 return 0
4196 }
4197 set nr 0
4205 }
4212 }
4214 }
4216 # strange...
4217 puts "oops, git diff-tree died"
4219 unset filehighlight
4220 return 0
4221 }
4222 if {[info exists find_dirn]} {
4223 run findmore
4224 }
4225 return 1
4226 }
4228 proc doesmatch {f} {
4229 global findtype findpattern
4235 } else {
4237 }
4238 }
4240 proc askfindhighlight {row id} {
4241 global nhighlights commitinfo iddrawn
4242 global findloc
4243 global markingmatches
4247 }
4249 set isbold 0
4250 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4255 set isbold 2
4256 break
4257 }
4258 set isbold 1
4259 }
4260 }
4266 }
4267 }
4270 }
4271 }
4273 }
4275 proc markrowmatches {row id} {
4276 global canv canv2 linehtag linentag commitinfo findloc
4287 }
4288 }
4294 }
4295 }
4296 }
4298 proc vrel_change {name ix op} {
4299 global highlight_related
4301 rhighlight_none
4303 run drawvisible
4304 }
4305 }
4307 # prepare for testing whether commits are descendents or ancestors of a
4308 proc rhighlight_sel {a} {
4309 global descendent desc_todo ancestor anc_todo
4310 global highlight_related
4312 catch {unset descendent}
4314 catch {unset ancestor}
4317 rhighlight_none
4318 run drawvisible
4319 }
4320 }
4322 proc rhighlight_none {} {
4323 global rhighlights
4325 catch {unset rhighlights}
4326 unbolden
4327 }
4329 proc is_descendent {a} {
4330 global curview children descendent desc_todo
4335 set leftover {}
4336 set done 0
4341 continue
4342 }
4348 set done 1
4349 }
4350 }
4351 }
4354 return
4355 }
4356 }
4359 }
4361 proc is_ancestor {a} {
4362 global curview parents ancestor anc_todo
4367 set leftover {}
4368 set done 0
4373 continue
4374 }
4380 set done 1
4381 }
4382 }
4383 }
4386 return
4387 }
4388 }
4391 }
4393 proc askrelhighlight {row id} {
4394 global descendent highlight_related iddrawn rhighlights
4395 global selectedline ancestor
4398 set isbold 0
4403 }
4405 set isbold 1
4406 }
4411 }
4413 set isbold 1
4414 }
4415 }
4419 }
4420 }
4422 }
4424 # Graph layout functions
4426 proc shortids {ids} {
4427 set res {}
4433 } else {
4435 }
4436 }
4438 }
4440 proc ntimes {n o} {
4441 set ret {}
4446 }
4448 }
4450 }
4452 proc ordertoken {id} {
4453 global ordertok curview varcid varcstart varctok curview parents children
4454 global nullid nullid2
4458 }
4460 set todo {}
4461 while {1} {
4465 } else {
4467 }
4470 break
4471 }
4474 # it's a root
4476 break
4477 }
4480 } else {
4484 }
4486 }
4487 }
4492 }
4495 }
4497 # Work out where id should go in idlist so that order-token
4498 # values increase from left to right
4499 proc idcol {idlist id {i 0}} {
4502 set i 0
4503 }
4507 }
4509 incr i
4510 } else {
4514 }
4515 }
4517 }
4519 proc initlayout {} {
4520 global rowidlist rowisopt rowfinal displayorder parentlist
4521 global numcommits canvxmax canv
4522 global nextcolor
4523 global colormap rowtextx
4525 set numcommits 0
4526 set displayorder {}
4527 set parentlist {}
4528 set nextcolor 0
4529 set rowidlist {}
4530 set rowisopt {}
4531 set rowfinal {}
4533 catch {unset colormap}
4534 catch {unset rowtextx}
4535 setcanvscroll
4536 }
4538 proc setcanvscroll {} {
4539 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4540 global lastscrollset lastscrollrows
4546 set lastscrollset [clock clicks -milliseconds]
4548 }
4550 proc visiblerows {} {
4551 global canv numcommits linespc
4559 set r0 0
4560 }
4565 }
4567 }
4569 proc layoutmore {} {
4570 global commitidx viewcomplete curview
4571 global numcommits pending_select curview
4572 global lastscrollset lastscrollrows
4576 setcanvscroll
4577 }
4578 if {[info exists pending_select] &&
4580 update
4582 }
4583 drawvisible
4584 }
4586 proc doshowlocalchanges {} {
4587 global curview mainheadid
4591 dodiffindex
4592 } else {
4594 }
4595 }
4597 proc dohidelocalchanges {} {
4598 global nullid nullid2 lserial curview
4602 }
4605 }
4606 incr lserial
4607 }
4609 # spawn off a process to do git diff-index --cached HEAD
4610 proc dodiffindex {} {
4611 global lserial showlocalchanges
4612 global isworktree
4615 incr lserial
4616 set fd [open "|git diff-index --cached HEAD" r]
4620 }
4622 proc readdiffindex {fd serial inst} {
4623 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4625 set isdiff 1
4628 return 1
4629 }
4630 set isdiff 0
4631 }
4632 # we only need to see one line and we don't really care what it says...
4636 return 0
4637 }
4639 # now see if there are any local changes not checked in to the index
4640 set fd [open "|git diff-files" r]
4646 # add the line for the changes in the index to the graph
4647 set hl [mc "Local changes checked in to index but not committed"]
4652 }
4656 }
4657 return 0
4658 }
4660 proc readdifffiles {fd serial inst} {
4661 global mainheadid nullid nullid2 curview
4662 global commitinfo commitdata lserial
4664 set isdiff 1
4667 return 1
4668 }
4669 set isdiff 0
4670 }
4671 # we only need to see one line and we don't really care what it says...
4675 return 0
4676 }
4679 # add the line for the local diff to the graph
4680 set hl [mc "Local uncommitted changes, not checked in to index"]
4685 } else {
4687 }
4691 }
4692 return 0
4693 }
4695 proc nextuse {id row} {
4696 global curview children
4701 return -1
4702 }
4705 }
4706 }
4707 }
4710 }
4711 return -1
4712 }
4714 proc prevuse {id row} {
4715 global curview children
4717 set ret -1
4723 }
4724 }
4725 }
4727 }
4729 proc make_idlist {row} {
4730 global displayorder parentlist uparrowlen downarrowlen mingaplen
4731 global commitidx curview children
4735 set r 0
4736 }
4739 set ra 0
4740 }
4744 }
4746 set ids {}
4755 }
4756 }
4757 }
4765 }
4766 }
4767 }
4775 }
4776 }
4777 incr r
4783 }
4784 }
4785 }
4786 set idlist {}
4789 }
4791 }
4793 proc rowsequal {a b} {
4796 }
4799 }
4801 }
4803 proc makeupline {id row rend col} {
4804 global rowidlist uparrowlen downarrowlen mingaplen
4810 }
4813 }
4820 }
4821 }
4822 }
4824 proc layoutrows {row endrow} {
4825 global rowidlist rowisopt rowfinal displayorder
4826 global uparrowlen downarrowlen maxwidth mingaplen
4827 global children parentlist
4828 global commitidx viewcomplete curview
4831 set idlist {}
4837 }
4838 }
4840 }
4845 set final 1
4846 } else {
4854 # if not the first child, we have to insert a line going up
4857 }
4858 }
4859 }
4869 }
4870 }
4871 }
4878 }
4879 }
4889 }
4890 }
4898 }
4899 }
4900 }
4901 }
4902 }
4906 set final 0
4907 }
4911 lappend rowisopt 0
4917 }
4919 } else {
4926 }
4927 }
4929 }
4931 proc changedrow {row} {
4932 global displayorder iddrawn rowisopt need_redisplay
4941 }
4942 }
4943 }
4946 set need_redisplay 1
4947 }
4948 }
4950 proc insert_pad {row col npad} {
4951 global rowidlist
4960 }
4963 }
4965 proc optimize_rows {row col endrow} {
4966 global rowidlist rowisopt displayorder curview children
4969 set row 1
4970 }
4973 set haspad 0
4982 } else {
4983 set pprevidlist {}
4984 }
4985 set x0 -1
4986 set xm -1
4991 set haspad 1
4992 continue
4993 }
4997 set isarrow 0
4998 set z0 {}
5003 }
5004 }
5009 set isarrow 1
5010 }
5011 }
5014 set isarrow 1
5015 }
5016 # Looking at lines from this row to the previous row,
5017 # make them go straight up if they end in an arrow on
5018 # the previous row; otherwise make them go straight up
5019 # or at 45 degrees.
5021 # Line currently goes left too much;
5022 # insert pads in the previous row, then optimize it
5027 }
5035 }
5037 # Line currently goes right too much;
5038 # insert pads in this line
5044 set haspad 1
5045 }
5052 }
5053 }
5054 # avoid lines jigging left then immediately right
5057 incr x0
5060 }
5061 }
5063 # Find the first column that doesn't have a line going right
5069 # check if this is the link to the first child
5072 # it is, work out offset to child
5074 }
5075 }
5077 }
5078 # Insert a pad at that column as long as it has a line and
5079 # isn't the last column
5084 }
5085 }
5086 }
5087 }
5089 proc xc {row col} {
5090 global canvx0 linespc
5092 }
5094 proc yc {row} {
5095 global canvy0 linespc
5097 }
5099 proc linewidth {id} {
5100 global thickerline lthickness
5105 }
5107 }
5109 proc rowranges {id} {
5110 global curview children uparrowlen downarrowlen
5111 global rowidlist
5115 return {}
5116 }
5117 set ret {}
5122 if {![info exists prev]} {
5124 } else {
5126 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5127 }
5128 # see if the line extends the whole way from prevrow to row
5132 # it doesn't, see where it ends
5137 } else {
5140 incr r -1
5141 }
5143 # see where it starts up again
5148 } else {
5151 incr r
5152 }
5154 }
5155 }
5158 }
5161 }
5163 }
5165 proc drawlineseg {id row endrow arrowlow} {
5166 global rowidlist displayorder iddrawn linesegs
5167 global canv colormap linespc curview maxlinelen parentlist
5171 set arrowhigh 1
5172 while {1} {
5175 incr le -1
5176 break
5177 }
5181 set arrowhigh 0
5182 break
5183 }
5188 set arrowhigh 0
5189 }
5190 break
5191 }
5192 incr le
5193 }
5196 }
5198 set lines {}
5199 set i 0
5200 set joinhigh 0
5207 set joinhigh 1
5208 }
5209 break
5210 }
5211 incr i
5212 }
5213 }
5214 set joinlow 0
5219 set joinlow 1
5220 }
5221 }
5234 }
5235 } else {
5237 }
5245 set arrowlow 0
5246 }
5247 }
5255 }
5257 }
5260 # join parent line to first child
5271 } else {
5273 }
5281 }
5283 }
5285 } else {
5289 }
5297 } else {
5301 }
5303 }
5304 } else {
5310 }
5314 } else {
5315 # coalesce two pieces
5320 }
5324 }
5325 }
5329 }
5331 proc drawparentlinks {id row} {
5332 global rowidlist canv colormap curview parentlist
5333 global idpos linespc
5346 # rmx = right-most X coord used
5347 set rmx 0
5352 continue
5353 }
5357 }
5360 # drawlineseg will do this one for us
5361 continue
5362 }
5364 # should handle duplicated parents here...
5367 # if attaching to a vertical segment, draw a smaller
5368 # slant for visual distinctness
5372 } else {
5374 }
5376 # segment slants towards us already
5378 } else {
5383 }
5385 }
5386 } else {
5388 }
5393 }
5397 }
5398 }
5400 proc drawlines {id} {
5401 global canv
5404 }
5406 proc drawcmittext {id row col} {
5407 global linespc canv canv2 canv3 fgcolor curview
5408 global cmitlisted commitinfo rowidlist parentlist
5409 global rowtextx idpos idtags idheads idotherrefs
5410 global linehtag linentag linedtag selectedline
5411 global canvxmax boldrows boldnamerows fgcolor
5412 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5414 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5417 set ofill red
5419 set ofill green
5421 set ofill yellow
5422 } else {
5424 }
5433 # triangle pointing left for left-side commits
5439 } else {
5440 # triangle pointing right for right-side commits
5446 }
5458 }
5459 }
5460 }
5467 }
5472 set font mainfont
5473 set nfont mainfont
5477 set font mainfontbold
5480 set nfont mainfontbold
5481 }
5482 }
5492 }
5496 setcanvscroll
5497 }
5498 }
5500 proc drawcmitrow {row} {
5501 global displayorder rowidlist nrows_drawn
5502 global iddrawn markingmatches
5503 global commitinfo numcommits
5504 global filehighlight fhighlights findpattern nhighlights
5505 global hlview vhighlights
5506 global highlight_related rhighlights
5513 }
5516 }
5519 }
5522 }
5527 return
5528 }
5531 }
5535 incr nrows_drawn
5536 }
5539 }
5540 }
5542 proc drawcommits {row {endrow {}}} {
5543 global numcommits iddrawn displayorder curview need_redisplay
5544 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5547 set row 0
5548 }
5551 }
5554 }
5558 set rl1 0
5559 }
5562 set ro1 0
5563 }
5567 }
5572 }
5574 }
5575 }
5578 }
5581 clear_display
5582 drawvisible
5583 }
5585 # make the lines join to already-drawn rows either side
5589 }
5594 }
5609 # see if this is the first child of any of its parents
5612 # make this line extend up to the child
5614 }
5615 }
5616 } else {
5618 }
5619 }
5620 }
5621 }
5623 proc undolayout {row} {
5624 global uparrowlen mingaplen downarrowlen
5625 global rowidlist rowisopt rowfinal need_redisplay
5629 set r 0
5630 }
5632 incr r -1
5636 set need_redisplay 1
5637 run drawvisible
5638 }
5639 }
5641 proc drawvisible {} {
5642 global canv linespc curview vrowmod selectedline targetrow targetid
5643 global need_redisplay cscroll numcommits
5653 if {[info exists targetid]} {
5657 # Fix up the scrollregion and change the scrolling position
5658 # now that our target row has moved.
5661 setcanvscroll
5669 set need_redisplay 1
5670 }
5671 } else {
5672 unset targetid
5673 }
5674 }
5680 }
5684 } elseif {[info exists targetid]} {
5686 }
5687 if {[info exists targetrow]} {
5690 }
5692 }
5694 }
5696 proc clear_display {} {
5697 global iddrawn linesegs need_redisplay nrows_drawn
5698 global vhighlights fhighlights nhighlights rhighlights
5699 global linehtag linentag linedtag boldrows boldnamerows
5701 allcanvs delete all
5702 catch {unset iddrawn}
5703 catch {unset linesegs}
5704 catch {unset linehtag}
5705 catch {unset linentag}
5706 catch {unset linedtag}
5707 set boldrows {}
5708 set boldnamerows {}
5709 catch {unset vhighlights}
5710 catch {unset fhighlights}
5711 catch {unset nhighlights}
5712 catch {unset rhighlights}
5713 set need_redisplay 0
5714 set nrows_drawn 0
5715 }
5717 proc findcrossings {id} {
5718 global rowidlist parentlist numcommits displayorder
5720 set cross {}
5721 set ccross {}
5725 }
5744 }
5745 }
5746 }
5747 }
5748 }
5750 }
5752 proc assigncolor {id} {
5753 global colormap colors nextcolor
5754 global parents children children curview
5760 } else {
5761 set kids {}
5762 }
5768 return
5769 }
5770 }
5771 set badcolors {}
5772 set origbad {}
5775 # delimiter between corner crossings and other crossings
5778 }
5782 }
5783 }
5786 }
5793 }
5798 }
5799 }
5800 }
5803 }
5804 }
5808 set nextcolor 0
5809 }
5811 }
5813 }
5815 proc bindline {t id} {
5816 global canv
5822 }
5824 proc drawtags {id x xt y1} {
5825 global idtags idheads idotherrefs mainhead
5826 global linespc lthickness
5827 global canv rowtextx curview fgcolor bgcolor ctxbut
5829 set marks {}
5830 set ntags 0
5831 set nheads 0
5835 }
5839 }
5842 }
5845 }
5850 set xvals {}
5851 set wvals {}
5852 set i -1
5854 incr i
5857 } else {
5859 }
5863 }
5870 set font mainfont
5871 if {[incr ntags -1] >= 0} {
5872 # draw a tag
5878 } else {
5879 # draw a head or other ref
5880 if {[incr nheads -1] >= 0} {
5881 set col green
5883 set font mainfontbold
5884 }
5885 } else {
5886 set col "#ddddff"
5887 }
5898 }
5899 }
5906 }
5907 }
5909 }
5911 proc xcoord {i level ln} {
5912 global canvx0 xspc1 xspc2
5919 }
5921 }
5923 proc show_status {msg} {
5924 global canv fgcolor
5926 clear_display
5929 }
5931 # Don't change the text pane cursor if it is currently the hand cursor,
5932 # showing that we are over a sha1 ID link.
5933 proc settextcursor {c} {
5934 global ctext curtextcursor
5938 }
5940 }
5942 proc nowbusy {what {name {}}} {
5943 global isbusy busyname statusw
5945 if {[array names isbusy] eq {}} {
5946 . config -cursor watch
5947 settextcursor watch
5948 }
5953 }
5954 }
5956 proc notbusy {what} {
5957 global isbusy maincursor textcursor busyname statusw
5959 catch {
5964 }
5965 }
5966 if {[array names isbusy] eq {}} {
5969 }
5970 }
5972 proc findmatches {f} {
5973 global findtype findstring
5976 } else {
5981 }
5982 set matches {}
5983 set i 0
5988 }
5989 }
5991 }
5993 proc dofind {{dirn 1} {wrap 1}} {
5994 global findstring findstartline findcurline selectedline numcommits
5995 global gdttype filehighlight fh_serial find_dirn findallowwrap
5997 if {[info exists find_dirn]} {
5999 stopfinding
6000 }
6001 focus .
6005 } else {
6007 }
6009 nowbusy finding [mc "Searching"]
6013 }
6016 run findmore
6017 }
6019 proc stopfinding {} {
6020 global find_dirn findcurline fprogcoord
6022 if {[info exists find_dirn]} {
6023 unset find_dirn
6024 unset findcurline
6025 notbusy finding
6026 set fprogcoord 0
6027 adjustprogress
6028 }
6029 stopblaming
6030 }
6032 proc findmore {} {
6033 global commitdata commitinfo numcommits findpattern findloc
6034 global findstartline findcurline findallowwrap
6035 global find_dirn gdttype fhighlights fprogcoord
6036 global curview varcorder vrownum varccommits vrowmod
6038 if {![info exists find_dirn]} {
6039 return 0
6040 }
6041 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6043 set moretodo 0
6045 incr l
6047 set l 0
6048 }
6051 } else {
6054 }
6055 } else {
6058 }
6059 incr l -1
6062 } else {
6063 set lim -1
6065 }
6066 }
6069 set n 500
6070 set moretodo 1
6071 }
6074 }
6075 set found 0
6076 set domore 1
6090 }
6092 # shouldn't happen unless git log doesn't give all the commits...
6095 continue
6096 }
6099 }
6104 set found 1
6105 break
6106 }
6107 }
6109 }
6110 } else {
6118 }
6123 }
6126 break
6127 }
6130 set domore 0
6132 }
6133 }
6134 }
6135 }
6137 unset findcurline
6138 unset find_dirn
6139 notbusy finding
6140 set fprogcoord 0
6141 adjustprogress
6144 } else {
6145 bell
6146 }
6147 return 0
6148 }
6150 flushhighlights
6151 } else {
6153 }
6157 }
6159 adjustprogress
6161 }
6163 proc findselectline {l} {
6164 global findloc commentend ctext findcurline markingmatches gdttype
6166 set markingmatches 1
6170 # highlight the matches in the comments
6177 }
6178 }
6179 drawvisible
6180 }
6182 # mark the bits of a headline or author that match a find string
6183 proc markmatches {canv l str tag matches font row} {
6184 global selectedline
6202 }
6203 }
6204 }
6206 proc unmarkmatches {} {
6207 global markingmatches
6209 allcanvs delete matches
6210 set markingmatches 0
6211 stopfinding
6212 }
6214 proc selcanvline {w x y} {
6215 global canv canvy0 ctext linespc
6216 global rowtextx
6223 set l 0
6224 }
6229 }
6230 unmarkmatches
6232 }
6234 proc commit_descriptor {p} {
6235 global commitinfo
6238 }
6239 set l "..."
6242 }
6244 }
6246 # append some text to the ctext widget, and make any SHA1 ID
6247 # that we know about be a clickable link.
6248 proc appendwithlinks {text tags} {
6249 global ctext linknum curview
6258 incr e
6262 incr linknum
6263 }
6264 }
6266 proc setlink {id lk} {
6267 global curview ctext pendinglinks
6269 set known 0
6274 set known 1
6276 }
6277 } else {
6279 }
6285 } else {
6288 }
6289 }
6291 proc makelink {id} {
6292 global pendinglinks
6297 }
6299 }
6301 proc linkcursor {w inc} {
6302 global linkentercount curtextcursor
6306 } else {
6309 set linkentercount 0
6310 }
6311 }
6312 }
6314 proc viewnextline {dir} {
6315 global canv linespc
6323 set newtop 0
6326 }
6328 }
6330 # add a list of tag or branch names at position pos
6331 # returns the number of names inserted
6332 proc appendrefs {pos ids var} {
6336 return 0
6337 }
6340 set tags {}
6344 }
6345 }
6348 } else {
6350 set sep {}
6354 incr linknum
6359 set sep ", "
6360 }
6361 }
6364 }
6366 # called when we have finished computing the nearby tags
6367 proc dispneartags {delay} {
6368 global selectedline currentid showneartags tagphase
6371 after cancel dispnexttag
6373 after 200 dispnexttag
6374 set tagphase -1
6375 } else {
6376 after idle dispnexttag
6377 set tagphase 0
6378 }
6379 }
6381 proc dispnexttag {} {
6382 global selectedline currentid showneartags tagphase ctext
6386 0 {
6390 }
6391 }
6392 1 {
6396 }
6397 }
6398 2 {
6403 # turn "Branch" into "Branches"
6407 }
6408 }
6409 }
6410 }
6411 if {[incr tagphase] <= 2} {
6412 after idle dispnexttag
6413 }
6414 }
6416 proc make_secsel {l} {
6417 global linehtag linentag linedtag canv canv2 canv3
6432 }
6434 proc selectline {l isnew {desired_loc {}}} {
6435 global canv ctext commitinfo selectedline
6436 global canvy0 linespc parents children curview
6437 global currentid sha1entry
6438 global commentend idtags linknum
6439 global mergemax numcommits pending_select
6440 global cmitmode showneartags allcommits
6441 global targetrow targetid lastscrollrows
6442 global autoselect jump_to_here
6444 catch {unset pending_select}
6446 normalline
6447 unsel_reflist
6448 stopfinding
6456 setcanvscroll
6457 }
6471 } else {
6475 }
6476 }
6480 } else {
6484 }
6485 }
6486 }
6489 set newtop 0
6490 }
6492 drawvisible
6493 }
6499 }
6506 }
6510 clear_ctext
6511 set linknum 0
6514 }
6524 }
6526 }
6528 set headers {}
6531 set np 0
6534 set tag mmax
6535 } else {
6537 }
6540 incr np
6541 }
6542 } else {
6545 }
6546 }
6550 }
6552 # make anything that looks like a SHA1 ID be a clickable link
6555 if {![info exists allcommits]} {
6556 getallcommits
6557 }
6568 dispneartags 1
6569 }
6574 }
6582 init_flist [mc "Comments"]
6587 } else {
6589 }
6590 }
6592 proc selfirstline {} {
6593 unmarkmatches
6594 selectline 0 1
6595 }
6597 proc sellastline {} {
6598 global numcommits
6599 unmarkmatches
6602 }
6604 proc selnextline {dir} {
6605 global selectedline
6606 focus .
6609 unmarkmatches
6611 }
6613 proc selnextpage {dir} {
6614 global canv linespc selectedline numcommits
6618 set lpp 1
6619 }
6621 drawvisible
6625 set l 0
6628 }
6629 unmarkmatches
6631 }
6633 proc unselectline {} {
6634 global selectedline currentid
6636 set selectedline {}
6637 catch {unset currentid}
6638 allcanvs delete secsel
6639 rhighlight_none
6640 }
6642 proc reselectline {} {
6643 global selectedline
6647 }
6648 }
6650 proc addtohistory {cmd} {
6651 global history historyindex curview
6656 return
6657 }
6661 } else {
6663 }
6664 incr historyindex
6666 .tf.bar.leftbut conf -state normal
6667 } else {
6668 .tf.bar.leftbut conf -state disabled
6669 }
6670 .tf.bar.rightbut conf -state disabled
6671 }
6673 proc godo {elt} {
6674 global curview
6680 }
6682 }
6684 proc goback {} {
6685 global history historyindex
6686 focus .
6689 incr historyindex -1
6691 .tf.bar.rightbut conf -state normal
6692 }
6694 .tf.bar.leftbut conf -state disabled
6695 }
6696 }
6698 proc goforw {} {
6699 global history historyindex
6700 focus .
6704 incr historyindex
6706 .tf.bar.leftbut conf -state normal
6707 }
6709 .tf.bar.rightbut conf -state disabled
6710 }
6711 }
6713 proc gettree {id} {
6714 global treefilelist treeidlist diffids diffmergeid treepending
6715 global nullid nullid2
6718 catch {unset diffmergeid}
6720 if {![info exists treepending]} {
6722 set cmd [list | git ls-files]
6724 set cmd [list | git ls-files --stage -t]
6725 } else {
6727 }
6729 return
6730 }
6736 }
6737 } else {
6739 }
6740 }
6742 proc gettreeline {gtf id} {
6743 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6745 set nl 0
6749 } else {
6757 }
6760 }
6763 }
6766 }
6768 unset treepending
6770 if {![info exists diffmergeid]} {
6772 }
6775 } else {
6777 }
6778 return 0
6779 }
6781 proc showfile {f} {
6782 global treefilelist treeidlist diffids nullid nullid2
6783 global ctext_file_names ctext_file_lines
6784 global ctext commentend
6789 return
6790 }
6794 return
6795 }
6796 } else {
6800 return
6801 }
6802 }
6813 settabs 0
6814 }
6816 proc getblobline {bf id} {
6817 global diffids cmitmode ctext
6821 return 0
6822 }
6824 set nl 0
6827 }
6829 global jump_to_here ctext_file_names commentend
6831 # delete last newline
6839 }
6840 return 0
6841 }
6844 }
6846 proc mark_ctext_line {lnum} {
6847 global ctext markbgcolor
6853 }
6855 proc mergediff {id} {
6856 global diffmergeid
6857 global diffids treediffs
6858 global parents curview
6866 }
6868 proc startdiff {ids} {
6869 global treediffs diffids treepending diffmergeid nullid nullid2
6871 settabs 1
6873 catch {unset diffmergeid}
6877 if {![info exists treepending]} {
6879 }
6880 } else {
6882 }
6883 }
6885 proc path_filter {filter name} {
6890 return 1
6891 }
6892 } else {
6896 return 1
6897 }
6898 }
6899 }
6900 return 0
6901 }
6903 proc addtocflist {ids} {
6904 global treediffs
6908 }
6910 proc diffcmd {ids flags} {
6911 global nullid nullid2
6917 # comparing working directory with some specific revision
6921 } else {
6923 }
6924 } else {
6925 # comparing working directory with index
6928 lappend cmd -R
6929 }
6930 }
6934 # comparing index with specific revision
6937 } else {
6939 }
6940 } else {
6941 # comparing index with HEAD
6942 lappend cmd HEAD
6943 }
6944 } else {
6946 }
6948 }
6950 proc gettreediffs {ids} {
6951 global treediff treepending
6956 set treediff {}
6959 }
6961 proc gettreediffline {gdtf ids} {
6962 global treediff treediffs treepending diffids diffmergeid
6963 global cmitmode vfilelimit curview limitdiffs perfile_attrs
6965 set nr 0
6966 set sublist {}
6967 set max 1000
6969 # cache_gitattr is slow, and even slower on win32 where we
6970 # have to invoke it for only about 30 paths at a time
6971 set max 500
6972 if {[tk windowingsystem] == "win32"} {
6973 set max 120
6974 }
6975 }
6982 }
6987 }
6988 }
6989 }
6992 }
6995 }
6998 set flist {}
7002 }
7003 }
7005 } else {
7007 }
7008 unset treepending
7012 if {![info exists diffmergeid]} {
7014 }
7015 } else {
7017 }
7018 return 0
7019 }
7021 # empty string or positive integer
7022 proc diffcontextvalidate {v} {
7024 }
7026 proc diffcontextchange {n1 n2 op} {
7027 global diffcontextstring diffcontext
7032 reselectline
7033 }
7034 }
7035 }
7037 proc changeignorespace {} {
7038 reselectline
7039 }
7041 proc getblobdiffs {ids} {
7042 global blobdifffd diffids env
7043 global diffinhdr treediffs
7044 global diffcontext
7045 global ignorespace
7046 global limitdiffs vfilelimit curview
7047 global diffencoding targetline diffnparents
7051 append cmd " -w"
7052 }
7055 }
7058 return
7059 }
7060 set targetline {}
7061 set diffnparents 0
7062 set diffinhdr 0
7063 set diffencoding [get_path_encoding {}]
7067 }
7069 proc setinlist {var i val} {
7074 }
7077 } else {
7079 }
7080 }
7082 proc makediffhdr {fname ids} {
7083 global ctext curdiffstart treediffs diffencoding
7084 global ctext_file_names jump_to_here targetline diffline
7091 }
7096 set targetline {}
7099 }
7100 set diffline 0
7101 }
7103 proc getblobdiffline {bdf ids} {
7104 global diffids blobdifffd ctext curdiffstart
7105 global diffnexthead diffnextnote difffilestart
7106 global ctext_file_names ctext_file_lines
7107 global diffinhdr treediffs mergemax diffnparents
7108 global diffencoding jump_to_here targetline diffline
7110 set nr 0
7115 return 0
7116 }
7121 continue
7122 }
7123 # start of a new file
7124 set diffinhdr 1
7127 lappend ctext_file_names ""
7132 # start of a new file in a merge diff
7137 }
7139 } else {
7141 # If the name hasn't changed the length will be odd,
7142 # the middle char will be a space, and the two bits either
7143 # side will be a/name and b/name, or "a/name" and "b/name".
7144 # If the name has changed we'll get "rename from" and
7145 # "rename to" or "copy from" and "copy to" lines following
7146 # this, and we'll use them to get the filenames.
7147 # This complexity is necessary because spaces in the
7148 # filename(s) don't get escaped.
7154 continue
7155 }
7156 # unescape if quoted and chop off the a/ from the front
7159 } else {
7161 }
7162 }
7175 }
7183 }
7185 set diffinhdr 0
7192 }
7197 }
7203 }
7206 # do nothing
7207 continue
7209 set diffinhdr 0
7210 continue
7211 }
7214 } else {
7216 # parse the prefix - one ' ', '-' or '+' for each parent
7220 # prefix only has " ", "-" and "+" in it: normal diff line
7225 set num "max"
7226 }
7228 } else {
7229 set tags {}
7231 # added line
7237 set num "max"
7238 }
7240 }
7241 }
7242 }
7246 set targetline {}
7247 } else {
7248 incr diffline
7249 }
7250 }
7252 }
7253 } else {
7254 # "\ No newline at end of file",
7255 # or something else we don't recognize
7257 }
7258 }
7259 }
7260 if {[info exists seehere]} {
7262 }
7266 return 0
7267 }
7269 }
7271 proc changediffdisp {} {
7272 global ctext diffelide
7276 }
7278 proc highlightfile {loc cline} {
7279 global ctext cflist cflist_top
7286 }
7288 proc prevfile {} {
7289 global difffilestart ctext cmitmode
7292 set prev 0.0
7293 set prevline 1
7298 return
7299 }
7301 incr prevline
7302 }
7304 }
7306 proc nextfile {} {
7307 global difffilestart ctext cmitmode
7311 set line 1
7313 incr line
7316 return
7317 }
7318 }
7319 }
7321 proc clear_ctext {{first 1.0}} {
7322 global ctext smarktop smarkbot
7323 global ctext_file_names ctext_file_lines
7324 global pendinglinks
7329 }
7332 }
7335 catch {unset pendinglinks}
7336 }
7337 set ctext_file_names {}
7338 set ctext_file_lines {}
7339 }
7341 proc settabs {{firstab {}}} {
7342 global firsttabstop tabstop ctext have_tk85
7346 }
7347 set w [font measure textfont "0"]
7353 } else {
7355 }
7356 }
7358 proc incrsearch {name ix op} {
7359 global ctext searchstring searchdirn
7363 # no anchor set, use start of selection, or of visible area
7369 } else {
7371 }
7372 }
7377 }
7378 searchmarkvisible 1
7379 }
7380 }
7382 proc dosearch {} {
7383 global sstring ctext searchstring searchdirn
7387 set searchdirn -forwards
7393 set start "@0,0"
7394 }
7398 bell
7399 return
7400 }
7405 }
7406 }
7408 proc dosearchback {} {
7409 global sstring ctext searchstring searchdirn
7413 set searchdirn -backwards
7420 }
7424 bell
7425 return
7426 }
7431 }
7432 }
7434 proc searchmark {first last} {
7435 global ctext searchstring
7438 while {1} {
7443 }
7444 }
7446 proc searchmarkvisible {doall} {
7447 global ctext smarktop smarkbot
7452 # no overlap with previous
7456 } else {
7460 }
7464 }
7465 }
7466 }
7468 proc scrolltext {f0 f1} {
7469 global searchstring
7473 searchmarkvisible 0
7474 }
7475 }
7477 proc setcoords {} {
7478 global linespc charspc canvx0 canvy0
7479 global xspc1 xspc2 lthickness
7481 set linespc [font metrics mainfont -linespace]
7482 set charspc [font measure mainfont "m"]
7488 }
7490 proc redisplay {} {
7491 global canv
7492 global selectedline
7497 clear_display
7498 setcanvscroll
7500 drawvisible
7504 }
7505 }
7507 proc parsefont {f n} {
7508 global fontattr
7513 set s 10
7516 }
7522 "normal" -
7524 "roman" -
7526 }
7527 }
7528 }
7530 proc fontflags {f {isbold 0}} {
7531 global fontattr
7536 }
7538 proc fontname {f} {
7539 global fontattr
7543 lappend n "bold"
7544 }
7546 lappend n "italic"
7547 }
7549 }
7551 proc incrfont {inc} {
7552 global mainfont textfont ctext canv cflist showrefstop
7553 global stopped entries fontattr
7555 unmarkmatches
7559 set s 1
7560 }
7564 set mainfont [fontname mainfont]
7568 set s 1
7569 }
7573 set textfont [fontname textfont]
7574 setcoords
7575 settabs
7576 redisplay
7577 }
7579 proc clearsha1 {} {
7580 global sha1entry sha1string
7583 }
7584 }
7586 proc sha1change {n1 n2 op} {
7587 global sha1string currentid sha1but
7590 set state disabled
7591 } else {
7592 set state normal
7593 }
7597 } else {
7599 }
7600 }
7602 proc gotocommit {} {
7603 global sha1string tagids headids curview varcid
7611 } else {
7618 return
7619 }
7621 }
7622 }
7623 }
7626 return
7627 }
7630 } else {
7632 }
7634 }
7636 proc lineenter {x y id} {
7637 global hoverx hovery hoverid hovertimer
7638 global commitinfo canv
7644 if {[info exists hovertimer]} {
7646 }
7647 set hovertimer [after 500 linehover]
7649 }
7651 proc linemotion {x y id} {
7652 global hoverx hovery hoverid hovertimer
7657 if {[info exists hovertimer]} {
7659 }
7660 set hovertimer [after 500 linehover]
7661 }
7662 }
7664 proc lineleave {id} {
7665 global hoverid hovertimer canv
7669 if {[info exists hovertimer]} {
7671 unset hovertimer
7672 }
7673 unset hoverid
7674 }
7675 }
7677 proc linehover {} {
7678 global hoverx hovery hoverid hovertimer
7679 global canv linespc lthickness
7680 global commitinfo
7693 -fill \#ffff80 -outline black -width 1 -tags hover]
7696 -font mainfont]
7698 }
7700 proc clickisonarrow {id y} {
7701 global lthickness
7710 }
7711 }
7712 return {}
7713 }
7715 proc arrowjump {id n y} {
7716 global canv
7718 # 1 <-> 2, 3 <-> 4, etc...
7728 set yfrac 0
7729 }
7731 }
7733 proc lineclick {x y id isnew} {
7734 global ctext commitinfo children canv thickerline curview
7737 unmarkmatches
7738 unselectline
7739 normalline
7741 # draw this line thicker than normal
7749 }
7753 return
7754 }
7758 }
7759 # fill the details pane with info about this line
7761 clear_ctext
7762 settabs 0
7774 set i 0
7776 incr i
7786 }
7787 }
7789 init_flist {}
7790 }
7792 proc normalline {} {
7793 global thickerline
7794 if {[info exists thickerline]} {
7796 unset thickerline
7798 }
7799 }
7801 proc selbyid {id} {
7802 global curview
7805 }
7806 }
7808 proc mstime {} {
7809 global startmstime
7810 if {![info exists startmstime]} {
7811 set startmstime [clock clicks -milliseconds]
7812 }
7814 }
7816 proc rowmenu {x y id} {
7817 global rowctxmenu selectedline rowmenuid curview
7818 global nullid nullid2 fakerowmenu mainhead
7820 stopfinding
7823 set state disabled
7824 } else {
7825 set state normal
7826 }
7831 } else {
7833 }
7834 } else {
7836 }
7841 }
7843 proc diffvssel {dirn} {
7844 global rowmenuid selectedline
7850 } else {
7853 }
7856 }
7858 proc doseldiff {oldid newid} {
7859 global ctext
7860 global commitinfo
7863 clear_ctext
7864 init_flist [mc "Top"]
7879 }
7881 proc mkpatch {} {
7882 global rowmenuid currentid commitinfo patchtop patchnum
7884 if {![info exists currentid]} return
7889 set top .patch
7919 incr patchnum
7931 }
7933 proc mkpatchrev {} {
7934 global patchtop
7940 foreach e [list fromsha1 fromhead tosha1 tohead] \
7946 }
7947 }
7949 proc mkpatchgo {} {
7950 global patchtop nullid nullid2
7956 # trim off the initial "|"
7961 }
7963 unset patchtop
7964 }
7966 proc mkpatchcan {} {
7967 global patchtop
7970 unset patchtop
7971 }
7973 proc mktag {} {
7974 global rowmenuid mktagtop commitinfo
7976 set top .maketag
8005 }
8007 proc domktag {} {
8008 global mktagtop env tagids idtags
8014 return 0
8015 }
8018 return 0
8019 }
8020 if {[catch {
8022 } err]} {
8024 return 0
8025 }
8031 dispneartags 0
8032 run refill_reflist
8033 return 1
8034 }
8036 proc redrawtags {id} {
8037 global canv linehtag idpos currentid curview cmitlisted
8038 global canvxmax iddrawn circleitem mainheadid circlecolors
8044 set ofill yellow
8045 } else {
8047 }
8057 setcanvscroll
8058 }
8061 }
8062 }
8064 proc mktagcan {} {
8065 global mktagtop
8068 unset mktagtop
8069 }
8071 proc mktaggo {} {
8072 if {![domktag]} return
8073 mktagcan
8074 }
8076 proc writecommit {} {
8077 global rowmenuid wrcomtop commitinfo wrcomcmd
8079 set top .writecommit
8112 }
8114 proc wrcomgo {} {
8115 global wrcomtop
8122 }
8124 unset wrcomtop
8125 }
8127 proc wrcomcan {} {
8128 global wrcomtop
8131 unset wrcomtop
8132 }
8134 proc mkbranch {} {
8135 global rowmenuid mkbrtop
8137 set top .makebranch
8162 }
8164 proc mkbrgo {top} {
8165 global headids idheads
8169 set cmdargs {}
8170 set old_id {}
8173 return
8174 }
8176 if {![confirm_popup [mc \
8178 return
8179 }
8181 lappend cmdargs -f
8182 }
8185 nowbusy newbranch
8186 update
8187 if {[catch {
8189 } err]} {
8190 notbusy newbranch
8192 } else {
8193 notbusy newbranch
8199 } else {
8204 }
8205 dispneartags 0
8206 run refill_reflist
8207 }
8208 }
8210 proc exec_citool {tool_args {baseid {}}} {
8211 global commitinfo env
8213 set save_env [array get env GIT_AUTHOR_*]
8218 }
8221 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8227 }
8228 }
8232 array unset env GIT_AUTHOR_*
8234 }
8236 proc cherrypick {} {
8237 global rowmenuid curview
8238 global mainhead mainheadid
8240 set oldhead [exec git rev-parse HEAD]
8243 set ok [confirm_popup [mc "Commit %s is already\
8244 included in branch %s -- really re-apply it?" \
8247 }
8248 nowbusy cherrypick [mc "Cherry-picking"]
8249 update
8250 # Unfortunately git-cherry-pick writes stuff to stderr even when
8251 # no error occurs, and exec takes that as an indication of error...
8253 notbusy cherrypick
8254 if {[regexp -line \
8255 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8257 error_popup [mc "Cherry-pick failed because of local changes\
8258 to file '%s'.\nPlease commit, reset or stash\
8260 } elseif {[regexp -line \
8261 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8263 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8264 conflict.\nDo you wish to run git citool to\
8265 resolve it?"]]} {
8266 # Force citool to read MERGE_MSG
8267 file delete [file join [gitdir] "GITGUI_MSG"]
8269 }
8270 } else {
8272 }
8273 run updatecommits
8274 return
8275 }
8276 set newhead [exec git rev-parse HEAD]
8278 notbusy cherrypick
8279 error_popup [mc "No changes committed"]
8280 return
8281 }
8288 }
8293 }
8294 notbusy cherrypick
8295 }
8297 proc resethead {} {
8298 global mainhead rowmenuid confirm_ok resettype
8300 set confirm_ok 0
8301 set w ".confirmreset"
8307 -justify center -aspect 1000
8312 set resettype mixed
8314 -text [mc "Soft: Leave working tree and index untouched"]
8317 -text [mc "Mixed: Leave working tree untouched, reset index"]
8320 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8331 if {[catch {set fd [open \
8334 } else {
8335 dohidelocalchanges
8337 nowbusy reset [mc "Resetting"]
8339 }
8340 }
8342 proc readresetstat {fd} {
8343 global mainhead mainheadid showlocalchanges rprogcoord
8348 adjustprogress
8349 }
8350 return 1
8351 }
8352 set rprogcoord 0
8353 adjustprogress
8354 notbusy reset
8357 }
8359 set newhead [exec git rev-parse HEAD]
8366 }
8368 doshowlocalchanges
8369 }
8370 return 0
8371 }
8373 # context menu for a head
8374 proc headmenu {x y id head} {
8375 global headmenuid headmenuhead headctxmenu mainhead
8377 stopfinding
8380 set state normal
8382 set state disabled
8383 }
8387 }
8389 proc cobranch {} {
8390 global headmenuid headmenuhead headids
8391 global showlocalchanges mainheadid
8393 # check the tree is clean first??
8394 nowbusy checkout [mc "Checking out"]
8395 update
8396 dohidelocalchanges
8397 if {[catch {
8399 } err]} {
8400 notbusy checkout
8403 dodiffindex
8404 }
8405 } else {
8407 }
8408 }
8410 proc readcheckoutstat {fd newhead newheadid} {
8411 global mainhead mainheadid headids showlocalchanges progresscoords
8416 adjustprogress
8417 }
8418 return 1
8419 }
8420 set progresscoords {0 0}
8421 adjustprogress
8422 notbusy checkout
8425 }
8433 dodiffindex
8434 }
8435 }
8437 proc rmbranch {} {
8438 global headmenuid headmenuhead mainhead
8439 global idheads
8443 # this check shouldn't be needed any more...
8445 error_popup [mc "Cannot delete the currently checked-out branch"]
8446 return
8447 }
8450 # the stuff on this branch isn't on any other branch
8451 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8453 }
8454 nowbusy rmbranch
8455 update
8457 notbusy rmbranch
8459 return
8460 }
8464 notbusy rmbranch
8465 dispneartags 0
8466 run refill_reflist
8467 }
8469 # Display a list of tags and heads
8470 proc showrefs {} {
8471 global showrefstop bgcolor fgcolor selectbgcolor
8472 global bglist fglist reflistfilter reflist maincursor
8474 set top .showrefs
8478 refill_reflist
8479 return
8480 }
8488 -spacing1 1 -spacing3 1 -state disabled
8499 set reflistfilter "*"
8500 trace add variable reflistfilter write reflistfilter_change
8512 set reflist {}
8513 refill_reflist
8514 }
8516 proc sel_reflist {w x y} {
8517 global showrefstop reflist headids tagids otherrefids
8527 }
8529 }
8531 proc unsel_reflist {} {
8532 global showrefstop
8536 }
8538 proc reflistfilter_change {n1 n2 op} {
8539 global reflistfilter
8541 after cancel refill_reflist
8542 after 200 refill_reflist
8543 }
8545 proc refill_reflist {} {
8546 global reflist reflistfilter showrefstop headids tagids otherrefids
8547 global curview
8550 set refs {}
8551 foreach n [array names headids] {
8555 } else {
8557 }
8558 }
8559 }
8560 foreach n [array names tagids] {
8564 } else {
8566 }
8567 }
8568 }
8569 foreach n [array names otherrefids] {
8573 } else {
8575 }
8576 }
8577 }
8585 set i 0
8586 set j 0
8595 }
8596 } else {
8597 set cmp -1
8598 }
8599 } else {
8600 set cmp 1
8601 }
8603 -1 {
8605 incr i
8606 }
8607 0 {
8608 incr i
8609 incr j
8610 }
8611 1 {
8616 incr j
8617 }
8618 }
8619 }
8621 # delete last newline
8624 }
8626 # Stuff for finding nearby tags
8627 proc getallcommits {} {
8628 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8629 global idheads idtags idotherrefs allparents tagobjid
8631 if {![info exists allcommits]} {
8632 set nextarc 0
8633 set allcommits 0
8634 set seeds {}
8635 set allcwait 0
8636 set cachedarcs 0
8637 set allccache [file join [gitdir] "gitk.cache"]
8638 if {![catch {
8640 set allcwait 1
8642 }]} return
8643 }
8646 return
8647 }
8648 set cmd [list | git rev-list --parents]
8651 set ids "--all"
8652 } else {
8653 set refs [concat [array names idheads] [array names idtags] \
8654 [array names idotherrefs]]
8655 set ids {}
8656 set tagobjs {}
8657 foreach name [array names tagobjid] {
8659 }
8664 }
8665 }
8669 }
8670 }
8671 }
8675 incr allcommits
8676 nowbusy allcommits
8678 } else {
8679 dispneartags 0
8680 }
8681 }
8683 # Since most commits have 1 parent and 1 child, we group strings of
8684 # such commits into "arcs" joining branch/merge points (BMPs), which
8685 # are commits that either don't have 1 parent or don't have 1 child.
8686 #
8687 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8688 # arcout(id) - outgoing arcs for BMP
8689 # arcids(a) - list of IDs on arc including end but not start
8690 # arcstart(a) - BMP ID at start of arc
8691 # arcend(a) - BMP ID at end of arc
8692 # growing(a) - arc a is still growing
8693 # arctags(a) - IDs out of arcids (excluding end) that have tags
8694 # archeads(a) - IDs out of arcids (excluding end) that have heads
8695 # The start of an arc is at the descendent end, so "incoming" means
8696 # coming from descendents, and "outgoing" means going towards ancestors.
8698 proc getallclines {fd} {
8699 global allparents allchildren idtags idheads nextarc
8700 global arcnos arcids arctags arcout arcend arcstart archeads growing
8701 global seeds allcommits cachedarcs allcupdate
8703 set nid 0
8707 # seen it already
8708 continue
8709 }
8710 set cachedarcs 0
8717 } else {
8723 }
8726 }
8728 # seen parent already
8731 }
8735 }
8738 continue
8739 }
8740 }
8745 }
8747 set ao {}
8750 set a [incr nextarc]
8759 # seen it already, may need to make a new branch
8762 }
8766 }
8768 }
8770 }
8772 global cached_dheads cached_dtags cached_atags
8773 catch {unset cached_dheads}
8774 catch {unset cached_dtags}
8775 catch {unset cached_atags}
8776 }
8779 }
8780 set cacheok 1
8781 if {[catch {
8784 } err]} {
8785 # got an error reading the list of commits
8786 # if we were updating, try rereading the whole thing again
8788 incr allcommits -1
8790 return
8791 }
8792 error_popup "[mc "Error reading commit topology information;\
8793 branch and preceding/following tag information\
8795 set cacheok 0
8796 }
8797 if {[incr allcommits -1] == 0} {
8798 notbusy allcommits
8800 run savecache
8801 }
8802 }
8803 dispneartags 0
8804 return 0
8805 }
8807 proc recalcarc {a} {
8808 global arctags archeads arcids idtags idheads
8810 set at {}
8811 set ah {}
8815 }
8818 }
8819 }
8822 }
8824 proc splitarc {p} {
8825 global arcnos arcids nextarc arctags archeads idtags idheads
8826 global arcstart arcend arcout allparents growing
8831 return
8832 }
8837 return
8838 }
8839 set na [incr nextarc]
8842 } else {
8846 }
8856 }
8861 } else {
8864 }
8865 }
8867 # reconstruct tags and heads lists
8871 } else {
8874 }
8875 }
8877 # Update things for a new commit added that is a child of one
8878 # existing commit. Used when cherry-picking.
8879 proc addnewchild {id p} {
8880 global allparents allchildren idtags nextarc
8881 global arcnos arcids arctags arcout arcend arcstart archeads growing
8882 global seeds allcommits
8890 set a [incr nextarc]
8898 }
8901 }
8903 # This implements a cache for the topology information.
8904 # The cache saves, for each arc, the start and end of the arc,
8905 # the ids on the arc, and the outgoing arcs from the end.
8906 proc readcache {f} {
8907 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8908 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8909 global allcwait
8915 }
8916 if {[catch {
8918 # finish reading the cache and setting up arctags, etc.
8922 foreach id [array names idtags] {
8928 }
8929 }
8930 }
8931 foreach id [array names idheads] {
8937 }
8938 }
8939 }
8943 }
8944 }
8945 set allcwait 0
8946 } else {
8956 }
8960 } else {
8964 }
8965 }
8971 }
8974 }
8977 }
8979 }
8980 } err]} {
8982 return 0
8983 }
8985 getallcommits
8986 }
8988 }
8990 proc getcache {f} {
8991 global nextarc cachedarcs possible_seeds
8993 if {[catch {
8996 # make sure it's an integer
8999 set nextarc 0
9000 set possible_seeds {}
9002 } err]} {
9004 }
9005 return 0
9006 }
9008 proc dropcache {err} {
9009 global allcwait nextarc cachedarcs seeds
9012 foreach v {arcnos arcout arcids arcstart arcend growing \
9013 arctags archeads allparents allchildren} {
9016 }
9017 set allcwait 0
9018 set nextarc 0
9019 set cachedarcs 0
9020 set seeds {}
9021 getallcommits
9022 }
9024 proc writecache {f} {
9025 global cachearc cachedarcs allccache
9026 global arcstart arcend arcnos arcids arcout
9032 }
9033 if {[catch {
9037 } else {
9039 }
9040 }
9041 } err]} {
9045 return 0
9046 }
9051 return 0
9052 }
9053 return 1
9054 }
9056 proc savecache {} {
9057 global nextarc cachedarcs cachearc allccache
9060 set cachearc 0
9062 catch {
9066 }
9067 }
9069 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9070 # or 0 if neither is true.
9071 proc anc_or_desc {a b} {
9072 global arcout arcstart arcend arcnos cached_isanc
9075 # Both are on the same arc(s); either both are the same BMP,
9076 # or if one is not a BMP, the other is also not a BMP or is
9077 # the BMP at end of the arc (and it only has 1 incoming arc).
9078 # Or both can be BMPs with no incoming arcs.
9080 return 0
9081 }
9087 return 1
9088 } else {
9089 return -1
9090 }
9091 }
9097 } else {
9098 set aend {}
9099 }
9101 } else {
9103 }
9108 } else {
9109 set bend {}
9110 }
9112 } else {
9114 }
9116 return 1
9117 }
9119 return -1
9120 }
9123 return 1
9124 }
9125 }
9128 return -1
9129 }
9131 return 0
9132 }
9133 }
9141 continue
9142 }
9148 return 1
9152 return -1
9153 }
9159 }
9160 }
9161 }
9164 return 0
9165 }
9169 # and returns 0 if so and 1 if not.
9170 # If we subsequently discover a tag on such a growing tip, and that
9173 # isn't a good choice to display as a descendent tag of
9177 #
9178 proc is_certain {desc anc} {
9179 global arcnos arcout arcstart arcend growing problems
9181 set certain {}
9183 # tags on the same arc are certain
9185 return 1
9186 }
9191 }
9192 }
9195 } else {
9198 }
9200 return 1
9201 }
9204 set nnh 1
9205 set ngrowanc 0
9209 incr nnh -1
9210 }
9216 incr ngrowanc
9217 }
9218 } else {
9225 incr nnh -1
9226 }
9228 incr ngrowanc -1
9229 }
9239 incr nnh -1
9240 }
9242 incr ngrowanc -1
9243 }
9245 }
9246 }
9247 }
9248 }
9249 }
9250 }
9254 } else {
9257 incr nnh
9258 }
9259 }
9260 }
9261 }
9262 foreach x [array names growanc] {
9264 return 0
9265 }
9266 return 0
9267 }
9268 return 1
9269 }
9271 proc validate_arctags {a} {
9272 global arctags idtags
9274 set i -1
9277 incr i
9280 incr i -1
9281 }
9282 }
9284 }
9286 proc validate_archeads {a} {
9287 global archeads idheads
9289 set i -1
9292 incr i
9295 incr i -1
9296 }
9297 }
9299 }
9301 # Return the list of IDs that have tags that are descendents of id,
9302 # ignoring IDs that are descendents of IDs already reported.
9303 proc desctags {id} {
9304 global arcnos arcstart arcids arctags idtags allparents
9305 global growing cached_dtags
9308 return {}
9309 }
9310 set t1 [clock clicks -milliseconds]
9313 # part-way along an arc; check that arc first
9318 set tid {}
9323 }
9326 }
9327 }
9331 }
9332 }
9335 }
9340 set nc 1
9346 incr nc -1
9347 }
9348 # ignore tags on starting node
9352 set ta 1
9355 set ta 1
9356 }
9357 }
9364 }
9365 }
9374 }
9377 }
9379 incr nc -1
9380 }
9382 }
9383 }
9384 }
9389 incr nc
9390 }
9391 }
9392 }
9393 }
9394 set tags {}
9395 foreach id [array names tagloc] {
9400 }
9401 }
9402 }
9403 }
9404 set t2 [clock clicks -milliseconds]
9407 # remove tags that are descendents of other tags
9415 incr j -1
9416 incr i -1
9419 incr i -1
9420 break
9421 }
9422 }
9423 }
9425 if {[array names growing] ne {}} {
9426 # graph isn't finished, need to check if any tag could get
9427 # eclipsed by another tag coming later. Simply ignore any
9428 # tags that could later get eclipsed.
9429 set ctags {}
9433 }
9434 }
9437 } else {
9439 }
9440 } else {
9442 }
9443 set t3 [clock clicks -milliseconds]
9447 }
9449 }
9451 proc anctags {id} {
9452 global arcnos arcids arcout arcend arctags idtags allparents
9453 global growing cached_atags
9456 return {}
9457 }
9458 set t1 [clock clicks -milliseconds]
9461 # part-way along an arc; check that arc first
9470 }
9471 }
9472 }
9474 return {}
9475 }
9479 }
9480 }
9483 }
9488 set taglist {}
9489 set nc 1
9495 incr nc -1
9496 }
9497 # ignore tags on starting node
9501 set td 1
9504 set td 1
9505 }
9506 }
9512 }
9513 }
9525 }
9526 }
9529 }
9531 incr nc -1
9532 }
9534 }
9535 }
9536 }
9541 incr nc
9542 }
9543 }
9544 }
9545 }
9546 set t2 [clock clicks -milliseconds]
9548 set tags {}
9549 foreach id [array names tagloc] {
9554 }
9555 }
9556 }
9557 }
9559 # remove tags that are ancestors of other tags
9567 incr j -1
9568 incr i -1
9571 incr i -1
9572 break
9573 }
9574 }
9575 }
9577 if {[array names growing] ne {}} {
9578 # graph isn't finished, need to check if any tag could get
9579 # eclipsed by another tag coming later. Simply ignore any
9580 # tags that could later get eclipsed.
9581 set ctags {}
9585 }
9586 }
9589 } else {
9591 }
9592 } else {
9594 }
9595 set t3 [clock clicks -milliseconds]
9599 }
9601 }
9603 # Return the list of IDs that have heads that are descendents of id,
9604 # including id itself if it has a head.
9605 proc descheads {id} {
9606 global arcnos arcstart arcids archeads idheads cached_dheads
9607 global allparents
9610 return {}
9611 }
9612 set aret {}
9614 # part-way along an arc; check it first
9623 }
9624 }
9626 }
9630 set ret {}
9635 } else {
9638 }
9644 }
9645 }
9650 }
9651 }
9652 }
9653 }
9657 }
9659 proc addedtag {id} {
9660 global arcnos arcout cached_dtags cached_atags
9665 }
9666 catch {unset cached_dtags}
9667 catch {unset cached_atags}
9668 }
9670 proc addedhead {hid head} {
9671 global arcnos arcout cached_dheads
9676 }
9677 catch {unset cached_dheads}
9678 }
9680 proc removedhead {hid head} {
9681 global cached_dheads
9683 catch {unset cached_dheads}
9684 }
9686 proc movedhead {hid head} {
9687 global arcnos arcout cached_dheads
9692 }
9693 catch {unset cached_dheads}
9694 }
9696 proc changedrefs {} {
9697 global cached_dheads cached_dtags cached_atags
9698 global arctags archeads arcnos arcout idheads idtags
9700 foreach id [concat [array names idheads] [array names idtags]] {
9706 }
9707 }
9708 }
9709 catch {unset cached_dtags}
9710 catch {unset cached_atags}
9711 catch {unset cached_dheads}
9712 }
9714 proc rereadrefs {} {
9715 global idtags idheads idotherrefs mainheadid
9717 set refids [concat [array names idtags] \
9718 [array names idheads] [array names idotherrefs]]
9722 }
9723 }
9725 readrefs
9726 changedrefs
9728 [array names idheads] [array names idotherrefs]]]
9733 }
9734 }
9738 }
9739 run refill_reflist
9740 }
9742 proc listrefs {id} {
9743 global idtags idheads idotherrefs
9745 set x {}
9748 }
9749 set y {}
9752 }
9753 set z {}
9756 }
9758 }
9760 proc showtag {tag isnew} {
9761 global ctext tagcontents tagids linknum tagobjid
9765 }
9767 clear_ctext
9768 settabs 0
9769 set linknum 0
9771 catch {
9773 }
9774 }
9777 } else {
9779 }
9782 init_flist {}
9783 }
9785 proc doquit {} {
9786 global stopped
9787 global gitktmpdir
9789 set stopped 100
9790 savestuff .
9791 destroy .
9793 if {[info exists gitktmpdir]} {
9795 }
9796 }
9798 proc mkfontdisp {font top which} {
9807 }
9809 proc choosefont {font which} {
9810 global fontparam fontlist fonttop fontattr
9811 global prefstop
9819 set top .gitkfont
9822 font create sample
9829 set fontlist [lsort [font families]]
9840 -textvariable fontparam(size) \
9841 -validatecommand {string is integer -strict %s}
9843 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9844 -variable fontparam(weight) -onvalue bold -offvalue normal
9846 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9847 -variable fontparam(slant) -onvalue italic -offvalue roman
9851 -background white
9853 -fill black -tags text
9865 trace add variable fontparam write chg_fontparam
9866 } else {
9869 }
9874 }
9875 }
9877 proc centertext {w} {
9879 }
9881 proc fontok {} {
9882 global fontparam fontpref prefstop
9888 }
9891 }
9895 fontcan
9896 }
9898 proc fontcan {} {
9899 global fonttop fontparam
9901 if {[info exists fonttop]} {
9903 catch {font delete sample}
9904 unset fonttop
9905 unset fontparam
9906 }
9907 }
9909 proc selfontfam {} {
9910 global fonttop fontparam
9915 }
9916 }
9918 proc chg_fontparam {v sub op} {
9919 global fontparam
9922 }
9924 proc doprefs {} {
9925 global maxwidth maxgraphpct
9926 global oldprefs prefstop showneartags showlocalchanges
9927 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
9928 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9930 set top .gitkprefs
9934 return
9935 }
9936 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9937 limitdiffs tabstop perfile_attrs} {
9939 }
9947 -font optionfont
9951 -font optionfont
9989 -padx 10
9991 -command choose_extdiff
10018 "diff hunk header" \
10024 [mc "marked line background"] \
10048 }
10050 proc choose_extdiff {} {
10051 global extdifftool
10053 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
10056 }
10057 }
10059 proc choosecolor {v vi w x cmd} {
10068 }
10070 proc setselbg {c} {
10071 global bglist cflist
10074 }
10078 }
10080 proc setbg {c} {
10081 global bglist
10085 }
10086 }
10088 proc setfg {c} {
10089 global fglist canv
10093 }
10096 }
10098 proc prefscan {} {
10099 global oldprefs prefstop
10101 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10102 limitdiffs tabstop perfile_attrs} {
10105 }
10107 unset prefstop
10108 fontcan
10109 }
10111 proc prefsok {} {
10112 global maxwidth maxgraphpct
10113 global oldprefs prefstop showneartags showlocalchanges
10114 global fontpref mainfont textfont uifont
10115 global limitdiffs treediffs perfile_attrs
10118 unset prefstop
10119 fontcan
10120 set fontchanged 0
10124 eval font configure mainfont [fontflags mainfont]
10125 eval font configure mainfontbold [fontflags mainfont 1]
10126 setcoords
10127 set fontchanged 1
10128 }
10132 eval font configure textfont [fontflags textfont]
10133 eval font configure textfontbold [fontflags textfont 1]
10134 }
10138 eval font configure uifont [fontflags uifont]
10139 }
10140 settabs
10143 doshowlocalchanges
10144 } else {
10145 dohidelocalchanges
10146 }
10147 }
10150 # treediffs elements are limited by path;
10151 # won't have encodings cached if perfile_attrs was just turned on
10152 catch {unset treediffs}
10153 }
10156 redisplay
10159 reselectline
10160 }
10161 }
10163 proc formatdate {d} {
10164 global datetimeformat
10167 }
10169 }
10171 # This list of encoding names and aliases is distilled from
10172 # http://www.iana.org/assignments/character-sets.
10173 # Not all of them are supported by Tcl.
10174 set encoding_aliases {
10175 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10176 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10177 { ISO-10646-UTF-1 csISO10646UTF1 }
10178 { ISO_646.basic:1983 ref csISO646basic1983 }
10179 { INVARIANT csINVARIANT }
10180 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10181 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10182 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10183 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10184 { NATS-DANO iso-ir-9-1 csNATSDANO }
10185 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10186 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10187 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10188 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10189 { ISO-2022-KR csISO2022KR }
10190 { EUC-KR csEUCKR }
10191 { ISO-2022-JP csISO2022JP }
10192 { ISO-2022-JP-2 csISO2022JP2 }
10193 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10194 csISO13JISC6220jp }
10195 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10196 { IT iso-ir-15 ISO646-IT csISO15Italian }
10197 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10198 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10199 { greek7-old iso-ir-18 csISO18Greek7Old }
10200 { latin-greek iso-ir-19 csISO19LatinGreek }
10201 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10202 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10203 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10204 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10205 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10206 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10207 { INIS iso-ir-49 csISO49INIS }
10208 { INIS-8 iso-ir-50 csISO50INIS8 }
10209 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10210 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10211 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10212 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10213 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10214 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10215 csISO60Norwegian1 }
10216 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10217 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10218 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10219 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10220 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10221 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10222 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10223 { greek7 iso-ir-88 csISO88Greek7 }
10224 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10225 { iso-ir-90 csISO90 }
10226 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10227 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10228 csISO92JISC62991984b }
10229 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10230 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10231 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10232 csISO95JIS62291984handadd }
10233 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10234 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10235 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10236 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10237 CP819 csISOLatin1 }
10238 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10239 { T.61-7bit iso-ir-102 csISO102T617bit }
10240 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10241 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10242 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10243 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10244 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10245 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10246 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10247 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10248 arabic csISOLatinArabic }
10249 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10250 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10251 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10252 greek greek8 csISOLatinGreek }
10253 { T.101-G2 iso-ir-128 csISO128T101G2 }
10254 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10255 csISOLatinHebrew }
10256 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10257 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10258 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10259 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10260 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10261 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10262 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10263 csISOLatinCyrillic }
10264 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10265 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10266 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10267 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10268 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10269 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10270 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10271 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10272 { ISO_10367-box iso-ir-155 csISO10367Box }
10273 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10274 { latin-lap lap iso-ir-158 csISO158Lap }
10275 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10276 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10277 { us-dk csUSDK }
10278 { dk-us csDKUS }
10279 { JIS_X0201 X0201 csHalfWidthKatakana }
10280 { KSC5636 ISO646-KR csKSC5636 }
10281 { ISO-10646-UCS-2 csUnicode }
10282 { ISO-10646-UCS-4 csUCS4 }
10283 { DEC-MCS dec csDECMCS }
10284 { hp-roman8 roman8 r8 csHPRoman8 }
10285 { macintosh mac csMacintosh }
10286 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10287 csIBM037 }
10288 { IBM038 EBCDIC-INT cp038 csIBM038 }
10289 { IBM273 CP273 csIBM273 }
10290 { IBM274 EBCDIC-BE CP274 csIBM274 }
10291 { IBM275 EBCDIC-BR cp275 csIBM275 }
10292 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10293 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10294 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10295 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10296 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10297 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10298 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10299 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10300 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10301 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10302 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10303 { IBM437 cp437 437 csPC8CodePage437 }
10304 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10305 { IBM775 cp775 csPC775Baltic }
10306 { IBM850 cp850 850 csPC850Multilingual }
10307 { IBM851 cp851 851 csIBM851 }
10308 { IBM852 cp852 852 csPCp852 }
10309 { IBM855 cp855 855 csIBM855 }
10310 { IBM857 cp857 857 csIBM857 }
10311 { IBM860 cp860 860 csIBM860 }
10312 { IBM861 cp861 861 cp-is csIBM861 }
10313 { IBM862 cp862 862 csPC862LatinHebrew }
10314 { IBM863 cp863 863 csIBM863 }
10315 { IBM864 cp864 csIBM864 }
10316 { IBM865 cp865 865 csIBM865 }
10317 { IBM866 cp866 866 csIBM866 }
10318 { IBM868 CP868 cp-ar csIBM868 }
10319 { IBM869 cp869 869 cp-gr csIBM869 }
10320 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10321 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10322 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10323 { IBM891 cp891 csIBM891 }
10324 { IBM903 cp903 csIBM903 }
10325 { IBM904 cp904 904 csIBBM904 }
10326 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10327 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10328 { IBM1026 CP1026 csIBM1026 }
10329 { EBCDIC-AT-DE csIBMEBCDICATDE }
10330 { EBCDIC-AT-DE-A csEBCDICATDEA }
10331 { EBCDIC-CA-FR csEBCDICCAFR }
10332 { EBCDIC-DK-NO csEBCDICDKNO }
10333 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10334 { EBCDIC-FI-SE csEBCDICFISE }
10335 { EBCDIC-FI-SE-A csEBCDICFISEA }
10336 { EBCDIC-FR csEBCDICFR }
10337 { EBCDIC-IT csEBCDICIT }
10338 { EBCDIC-PT csEBCDICPT }
10339 { EBCDIC-ES csEBCDICES }
10340 { EBCDIC-ES-A csEBCDICESA }
10341 { EBCDIC-ES-S csEBCDICESS }
10342 { EBCDIC-UK csEBCDICUK }
10343 { EBCDIC-US csEBCDICUS }
10344 { UNKNOWN-8BIT csUnknown8BiT }
10345 { MNEMONIC csMnemonic }
10346 { MNEM csMnem }
10347 { VISCII csVISCII }
10348 { VIQR csVIQR }
10349 { KOI8-R csKOI8R }
10350 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10351 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10352 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10353 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10354 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10355 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10356 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10357 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10358 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10359 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10360 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10361 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10362 { IBM1047 IBM-1047 }
10363 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10364 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10365 { UNICODE-1-1 csUnicode11 }
10366 { CESU-8 csCESU-8 }
10367 { BOCU-1 csBOCU-1 }
10368 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10369 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10370 l8 }
10371 { ISO-8859-15 ISO_8859-15 Latin-9 }
10372 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10373 { GBK CP936 MS936 windows-936 }
10374 { JIS_Encoding csJISEncoding }
10375 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10376 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10377 EUC-JP }
10378 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10379 { ISO-10646-UCS-Basic csUnicodeASCII }
10380 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10381 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10382 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10383 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10384 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10385 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10386 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10387 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10388 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10389 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10390 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10391 { Ventura-US csVenturaUS }
10392 { Ventura-International csVenturaInternational }
10393 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10394 { PC8-Turkish csPC8Turkish }
10395 { IBM-Symbols csIBMSymbols }
10396 { IBM-Thai csIBMThai }
10397 { HP-Legal csHPLegal }
10398 { HP-Pi-font csHPPiFont }
10399 { HP-Math8 csHPMath8 }
10400 { Adobe-Symbol-Encoding csHPPSMath }
10401 { HP-DeskTop csHPDesktop }
10402 { Ventura-Math csVenturaMath }
10403 { Microsoft-Publishing csMicrosoftPublishing }
10404 { Windows-31J csWindows31J }
10405 { GB2312 csGB2312 }
10406 { Big5 csBig5 }
10407 }
10409 proc tcl_encoding {enc} {
10410 global encoding_aliases tcl_encoding_cache
10413 }
10414 set names [encoding names]
10419 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10422 }
10423 }
10428 # look through the aliases for one that tcl knows about
10434 }
10435 }
10437 }
10438 break
10439 }
10440 }
10441 set tclenc {}
10444 }
10447 }
10449 proc gitattr {path attr default} {
10450 global path_attr_cache
10453 } else {
10454 set r "unspecified"
10457 }
10459 }
10462 }
10464 }
10466 proc cache_gitattr {attr pathlist} {
10467 global path_attr_cache
10468 set newlist {}
10472 }
10473 }
10474 set lim 1000
10475 if {[tk windowingsystem] == "win32"} {
10476 # windows has a 32k limit on the arguments to a command...
10477 set lim 30
10478 }
10487 }
10489 }
10490 }
10491 }
10492 }
10493 }
10495 proc get_path_encoding {path} {
10496 global gui_encoding perfile_attrs
10502 }
10503 }
10505 }
10507 # First check that Tcl/Tk is recent enough
10508 if {[catch {package require Tk 8.4} err]} {
10509 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10510 Gitk requires at least Tcl/Tk 8.4."]
10511 exit 1
10512 }
10514 # defaults...
10515 set wrcomcmd "git diff-tree --stdin -p --pretty"
10517 set gitencoding {}
10518 catch {
10519 set gitencoding [exec git config --get i18n.commitencoding]
10520 }
10522 set gitencoding "utf-8"
10523 }
10527 }
10529 set gui_encoding [encoding system]
10530 catch {
10531 set enc [exec git config --get gui.encoding]
10536 } else {
10538 }
10539 }
10540 }
10542 set mainfont {Helvetica 9}
10543 set textfont {Courier 9}
10544 set uifont {Helvetica 9 bold}
10545 set tabstop 8
10546 set findmergefiles 0
10547 set maxgraphpct 50
10548 set maxwidth 16
10549 set revlistorder 0
10550 set fastdate 0
10551 set uparrowlen 5
10552 set downarrowlen 5
10553 set mingaplen 100
10554 set cmitmode "patch"
10555 set wrapcomment "none"
10556 set showneartags 1
10557 set maxrefs 20
10558 set maxlinelen 200
10559 set showlocalchanges 1
10560 set limitdiffs 1
10561 set datetimeformat "%Y-%m-%d %H:%M:%S"
10562 set autoselect 1
10563 set perfile_attrs 0
10565 set extdifftool "meld"
10567 set colors {green red blue magenta darkgrey brown orange}
10568 set bgcolor white
10569 set fgcolor black
10570 set diffcolors {red "#00a000" blue}
10571 set diffcontext 3
10572 set ignorespace 0
10573 set selectbgcolor gray85
10574 set markbgcolor "#e0e0ff"
10576 set circlecolors {white blue gray blue blue}
10578 # button for popping up context menus
10579 if {[tk windowingsystem] eq "aqua"} {
10580 set ctxbut <Button-2>
10581 } else {
10582 set ctxbut <Button-3>
10583 }
10585 ## For msgcat loading, first locate the installation location.
10586 if { [info exists ::env(GITK_MSGSDIR)] } {
10587 ## Msgsdir was manually set in the environment.
10588 set gitk_msgsdir $::env(GITK_MSGSDIR)
10589 } else {
10590 ## Let's guess the prefix from argv0.
10594 unset gitk_prefix
10595 }
10597 ## Internationalization (i18n) through msgcat and gettext. See
10598 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10599 package require msgcat
10600 namespace import ::msgcat::mc
10601 ## And eventually load the actual message catalog
10604 catch {source ~/.gitk}
10606 font create optionfont -family sans-serif -size -12
10609 eval font create mainfont [fontflags mainfont]
10610 eval font create mainfontbold [fontflags mainfont 1]
10613 eval font create textfont [fontflags textfont]
10614 eval font create textfontbold [fontflags textfont 1]
10617 eval font create uifont [fontflags uifont]
10619 setoptions
10621 # check that we can find a .git directory somewhere...
10622 if {[catch {set gitdir [gitdir]}]} {
10623 show_error {} . [mc "Cannot find a git repository here."]
10624 exit 1
10625 }
10628 exit 1
10629 }
10631 set selecthead {}
10632 set selectheadid {}
10634 set revtreeargs {}
10635 set cmdline_files {}
10636 set i 0
10637 set revtreeargscmd {}
10640 "" { }
10641 "--" {
10643 break
10644 }
10645 "--select-commit=*" {
10647 }
10648 "--argscmd=*" {
10650 }
10651 default {
10653 }
10654 }
10655 incr i
10656 }
10659 set selecthead {}
10660 }
10663 # no -- on command line, but some arguments (other than --argscmd)
10664 if {[catch {
10669 # Unfortunately git rev-parse doesn't produce an error when
10670 # something is both a revision and a filename. To be consistent
10671 # with git log and git rev-list, check revtreeargs for filenames.
10674 show_error {} . [mc "Ambiguous argument '%s': both revision\
10676 exit 1
10677 }
10678 }
10679 } err]} {
10681 # so look for "fatal:".
10685 }
10687 exit 1
10688 }
10689 }
10691 set nullid "0000000000000000000000000000000000000000"
10692 set nullid2 "0000000000000000000000000000000000000001"
10693 set nullfile "/dev/null"
10697 set runq {}
10698 set history {}
10699 set historyindex 0
10700 set fh_serial 0
10701 set nhl_names {}
10702 set highlight_paths {}
10703 set findpattern {}
10704 set searchdirn -forwards
10705 set boldrows {}
10706 set boldnamerows {}
10707 set diffelide {0 0}
10708 set markingmatches 0
10709 set linkentercount 0
10710 set need_redisplay 0
10711 set nrows_drawn 0
10712 set firsttabstop 0
10714 set nextviewnum 1
10715 set curview 0
10716 set selectedview 0
10717 set selectedhlview [mc "None"]
10718 set highlight_related [mc "None"]
10719 set highlight_files {}
10720 set viewfiles(0) {}
10721 set viewperm(0) 0
10722 set viewargs(0) {}
10723 set viewargscmd(0) {}
10725 set selectedline {}
10726 set numcommits 0
10727 set loginstance 0
10728 set cmdlineok 0
10729 set stopped 0
10730 set stuffsaved 0
10731 set patchnum 0
10732 set lserial 0
10733 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10734 setcoords
10735 makewindow
10736 # wait for the window to become visible
10737 tkwait visibility .
10739 readrefs
10742 # create a view for the files/dirs specified on the command line
10743 set curview 1
10744 set selectedview 1
10745 set nextviewnum 2
10746 set viewname(1) [mc "Command line"]
10750 set viewperm(1) 0
10751 set vdatemode(1) 0
10752 addviewmenu 1
10753 .bar.view entryconf [mca "Edit view..."] -state normal
10754 .bar.view entryconf [mca "Delete view"] -state normal
10755 }
10757 if {[info exists permviews]} {
10760 incr nextviewnum
10767 }
10768 }
10769 getcommits {}