| blob | 087c4ac733be4b788751d0bae5b7aad22ce0dd99 |
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 commitinterest
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 }
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
427 }
428 }
431 global canv curview need_redisplay viewactive
433 initlayout
435 reset_pending_select $selid
440 }
441 }
443 proc updatecommits {} {
444 global curview vcanopt vorigargs vfilelimit viewinstances
445 global viewactive viewcomplete tclencoding
446 global startmsecs showneartags showlocalchanges
447 global mainheadid pending_select
448 global isworktree
449 global varcid vposids vnegids vflags vrevs
453 rereadrefs
456 dohidelocalchanges
457 }
459 dodiffindex
460 }
461 }
468 return
469 }
470 # note: getting the delta when negative refs change is hard,
471 # and could require multiple git log invocations, so in that
472 # case we ask git log for all the commits (not just the delta)
476 # take out positive refs that we asked for before or
477 # that we have already seen
482 lappend newrevs $rev
483 incr npos
484 }
486 lappend $newrevs $rev
487 }
488 }
492 }
496 }
502 return
503 }
506 }
512 }
516 reset_pending_select {}
519 getallcommits
520 }
521 }
523 proc reloadcommits {} {
524 global curview viewcomplete selectedline currentid thickerline
525 global showneartags treediffs commitinterest cached_commitrow
526 global targetid
531 }
534 stop_rev_list $curview
535 }
536 resetvarcs $curview
541 readrefs
542 changedrefs
544 getallcommits
545 }
546 clear_display
550 setcanvscroll
551 getcommits $selid
553 }
555 # This makes a string representation of a positive integer which
556 # sorts as a string in numerical order
564 }
566 }
568 # Procedures used in reordering commits from git log (without
569 # --topo-order) into the order for display.
572 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
573 global vtokmod varcmod vrowmod varcix vlastins
587 }
590 global varcid varccommits parents children vseedcount ordertok
596 }
597 # some commits might have children but haven't been seen yet
600 }
603 }
606 }
608 }
610 # returns a list of the commits with no children
612 global vdownptr vleftptr varcstart
619 }
621 }
624 global varcid varctok parents children vdatemode
625 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
626 global commitdata commitinfo vseedcount varccommits vlastins
633 }
637 }
640 }
646 }
655 }
656 }
661 }
668 }
672 }
679 }
685 }
694 }
697 global varcid varcstart varccommits varctok
698 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
705 # "%" sorts before "0"...
715 }
725 }
726 }
729 global parents children varctok varcstart varccommits
730 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
739 lappend todo $a
744 }
745 }
746 }
747 incr ntot
754 }
755 }
757 }
764 }
770 }
779 }
780 }
785 }
787 continue
788 }
795 }
796 }
801 modify_arc $v $ka
802 }
804 modify_arc $v $b
805 }
812 }
815 }
818 }
827 }
832 }
839 }
843 }
845 }
846 }
851 }
852 }
854 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
855 }
857 # Fix up the graph after we have found out that in view $v,
858 # $p (a commit that we have already seen) is actually the parent
859 # of the last commit in arc $a.
861 global varcid varcstart varctok vupptr
865 splitvarc $p $v
867 }
868 # seeds always need to be renumbered
872 renumbervarc $pa $v
873 }
874 }
877 global cmitlisted children parents varcid varctok vtokmod
878 global varccommits ordertok commitidx numcommits curview
879 global targetid targetrow
881 readcommit $id
889 modify_arc $v $a
890 }
896 }
897 fix_reversal $p $a $v
901 setcanvscroll
904 incr targetrow
905 }
906 }
907 }
908 }
911 global varcid varccommits parents children cmitlisted
912 global commitidx varctok vtokmod targetid targetrow curview numcommits
919 return
920 }
927 # note we deliberately don't update varcstart($v) even if $i == 0
929 modify_arc $v $a $i
932 incr targetrow
933 }
934 }
935 setcanvscroll
936 drawvisible
937 }
940 global varcid varccommits parents children commitidx
941 global varctok vtokmod cmitlisted currentid selectedline
942 global targetid curview numcommits
947 return
948 }
954 return
955 }
965 }
966 modify_arc $v $a $i
968 unset currentid
970 }
973 }
974 setcanvscroll
975 drawvisible
976 }
979 global children nullid nullid2
984 }
985 }
987 }
990 global children nullid nullid2
997 }
998 }
1000 }
1003 global varctok varcid
1007 }
1009 # This assumes that if lim is not given, the caller has checked that
1010 # arc a's token is less than $vtokmod($v)
1012 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1020 }
1021 }
1028 }
1033 }
1035 }
1037 undolayout $r
1038 }
1039 }
1042 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1043 global varcid vrownum varcorder varcix varccommits
1044 global vupptr vdownptr vleftptr varctok
1045 global displayorder parentlist curview cached_commitrow
1052 }
1054 }
1058 # go up the tree until we find something that has a row number,
1059 # or we get to a seed
1061 }
1076 }
1078 }
1082 # go down if possible
1085 # if not, go left, or go up until we can go left
1090 }
1092 }
1094 incr arcn
1099 }
1105 }
1106 }
1108 # Test whether view $v contains commit $id
1110 global varcid
1113 }
1115 # Return the row number for commit $id in the current view
1117 global varcid varccommits varcrow curview cached_commitrow
1118 global varctok vtokmod
1124 }
1127 update_arcrows $v
1128 }
1131 }
1136 }
1140 }
1142 # Returns 1 if a is on an earlier row than b, otherwise 0
1144 global varcid varctok curview
1150 }
1154 }
1156 }
1161 }
1173 }
1174 }
1176 }
1178 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1180 global vrownum curview commitidx displayorder parentlist
1181 global varccommits varcorder parents vrowmod varcrow
1182 global d_valid_start d_valid_end
1185 update_arcrows $curview
1186 }
1202 }
1204 lappend displayorder $id
1206 }
1210 lset displayorder $i $id
1212 incr i
1213 }
1214 }
1215 incr r $al
1216 }
1217 }
1220 global displayorder
1226 }
1228 }
1231 global varctok varccommits varcid parents children
1232 global cmitlisted commitidx commitinterest vtokmod
1241 # add p as a new commit
1242 incr missing_parents
1250 }
1253 modify_arc $v $b
1254 }
1260 }
1262 }
1263 }
1264 }
1268 }
1269 }
1270 }
1272 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1273 # Assumes we already have an arc for $rwid.
1275 global children parents varcid varctok vtokmod varccommits
1278 # make $rwid be $ch's parent in place of $id
1282 }
1284 # add $ch to $rwid's children and sort the list if necessary
1288 }
1289 # fix the graph after joining $id to $rwid
1291 fix_reversal $rwid $a $v
1292 # parentlist is wrong for the last element of arc $a
1293 # even if displayorder is right, hence the 3rd arg here
1295 }
1296 }
1299 global cmitlisted commitinterest leftover
1300 global commitidx commitdata vdatemode
1301 global parents children curview hlview
1302 global idpending ordertok
1303 global varccommits varcid varctok vtokmod vfilelimit
1306 # git log doesn't terminate the last commit with a null...
1309 }
1313 }
1314 global commfd viewcomplete viewactive viewname
1315 global viewinstances
1320 }
1321 # set it blocking so we wait for the process to terminate
1327 }
1330 bad arguments to git log."
1332 append err \
1333 " (Note: arguments to gitk are passed to git log\
1334 to allow selection of commits to be displayed.)"
1335 }
1338 }
1339 error_popup $err
1340 }
1343 # Check if we have seen any ids listed as parents that haven't
1344 # appeared in the list
1345 closevarcs $view
1346 notbusy $view
1347 }
1349 run chewcommits
1350 }
1352 }
1360 break
1361 }
1368 }
1381 }
1383 }
1388 break
1389 }
1390 }
1391 }
1396 }
1398 exit 1
1399 }
1406 # when doing path limiting, so work around that here
1407 # by working out the rewritten parent with git rev-list
1408 # and if we already know about it, using the rewritten
1409 # parent as a substitute parent for $id's children.
1413 }]} {
1415 # use $rwid in place of $id
1416 rewrite_commit $view $id $rwid
1417 continue
1418 }
1419 }
1420 }
1426 }
1431 }
1443 }
1444 }
1446 # new arc
1448 }
1450 modify_arc $view $a
1451 }
1456 }
1467 }
1469 fix_reversal $p $a $view
1470 }
1471 }
1472 incr i
1473 }
1478 }
1480 }
1482 }
1484 global numcommits hlview
1488 run chewcommits
1489 }
1491 # we never actually get here...
1492 run vhighlightmore
1493 }
1496 }
1497 }
1499 }
1501 proc chewcommits {} {
1502 global curview hlview viewcomplete
1503 global pending_select
1505 layoutmore
1507 global commitidx varctok
1508 global numcommits startmsecs
1511 update
1512 reset_pending_select {}
1519 }
1520 }
1522 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1523 #puts "overall $ms ms for $numcommits commits"
1524 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1527 }
1528 notbusy layout
1529 }
1531 }
1536 }
1539 global commitinfo cdate
1550 # should never happen...
1552 }
1563 }
1564 }
1566 # take the first non-blank line of the comment as the headline
1571 }
1576 }
1578 # git log indents the comment by 4 spaces;
1579 # if we got this via git cat-file, add the indentation
1582 append newcomment " "
1583 append newcomment $line
1585 }
1587 }
1590 }
1593 }
1596 global commitdata commitinfo
1601 readcommit $id
1604 }
1605 }
1607 }
1609 proc readrefs {} {
1610 global tagids idtags headids idheads tagobjid
1611 global otherrefids idotherrefs mainhead mainheadid
1615 }
1627 }
1633 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1634 # which is what we want since the former is the commit ID
1640 }
1646 }
1647 }
1651 catch {
1656 }
1657 }
1658 }
1660 # skip over fake commits
1661 proc first_real_row {} {
1662 global nullid nullid2 numcommits
1667 break
1668 }
1669 }
1671 }
1673 # update things for a head moved to a child of its previous location
1675 global headids idheads
1680 }
1682 # update things when a head has been removed
1684 global headids idheads
1692 }
1693 }
1695 }
1704 tkwait window $top
1705 }
1707 proc error_popup msg {
1708 set w .error
1709 toplevel $w
1710 wm transient $w .
1711 show_error $w $w $msg
1712 }
1714 proc confirm_popup msg {
1715 global confirm_ok
1717 set w .confirm
1718 toplevel $w
1719 wm transient $w .
1727 tkwait window $w
1729 }
1731 proc setoptions {} {
1733 option add *Panedwindow.sashRelief raised startupFile
1734 option add *Button.font uifont startupFile
1735 option add *Checkbutton.font uifont startupFile
1736 option add *Radiobutton.font uifont startupFile
1737 option add *Menu.font uifont startupFile
1738 option add *Menubutton.font uifont startupFile
1739 option add *Label.font uifont startupFile
1740 option add *Message.font uifont startupFile
1741 option add *Entry.font uifont startupFile
1742 }
1744 proc makewindow {} {
1745 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1746 global tabstop
1747 global findtype findtypemenu findloc findstring fstring geometry
1748 global entries sha1entry sha1string sha1but
1749 global diffcontextstring diffcontext
1750 global ignorespace
1751 global maincursor textcursor curtextcursor
1752 global rowctxmenu fakerowmenu mergemax wrapcomment
1753 global highlight_files gdttype
1754 global searchstring sstring
1755 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1756 global headctxmenu progresscanv progressitem progresscoords statusw
1757 global fprogitem fprogcoord lastprogupdate progupdatepending
1758 global rprogitem rprogcoord rownumsel numcommits
1759 global have_tk85
1761 menu .bar
1763 menu .bar.file
1769 menu .bar.edit
1773 menu .bar.view
1777 -state disabled
1779 .bar.view add separator
1783 menu .bar.help
1787 .bar.help configure
1788 . configure -menu .bar
1790 # the gui has upper and lower half, parts of a paned window.
1791 panedwindow .ctop -orient vertical
1793 # possibly use assumed geometry
1801 }
1803 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1805 frame .tf.histframe
1808 # create three canvases
1809 set cscroll .tf.histframe.csb
1810 set canv .tf.histframe.pwclist.canv
1811 canvas $canv \
1815 .tf.histframe.pwclist add $canv
1816 set canv2 .tf.histframe.pwclist.canv2
1817 canvas $canv2 \
1820 .tf.histframe.pwclist add $canv2
1821 set canv3 .tf.histframe.pwclist.canv3
1822 canvas $canv3 \
1825 .tf.histframe.pwclist add $canv3
1829 # a scroll bar to rule them
1833 lappend bglist $canv $canv2 $canv3
1836 # we have two button bars at bottom of top frame. Bar 1
1837 frame .tf.bar
1840 set sha1entry .tf.bar.sha1
1842 set sha1but .tf.bar.sha1label
1846 pack .tf.bar.sha1label -side left
1848 trace add variable sha1string write sha1change
1852 #define left_width 16
1853 #define left_height 16
1854 static unsigned char left_bits[] = {
1858 }
1860 #define right_width 16
1861 #define right_height 16
1862 static unsigned char right_bits[] = {
1866 }
1881 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1882 -side left
1883 global selectedline
1884 trace add variable selectedline write selectedline_change
1886 # Status label and progress bar
1887 set statusw .tf.bar.status
1891 set progresscanv .tf.bar.progress
1904 # build up the bottom bar of upper window
1909 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
1916 trace add variable gdttype write gdttype_change
1920 set fstring .tf.lbar.findstring
1921 lappend entries $fstring
1923 trace add variable findstring write find_change
1927 trace add variable findtype write findcom_change
1931 trace add variable findloc write find_change
1932 pack .tf.lbar.findloc -side right
1933 pack .tf.lbar.findtype -side right
1936 # Finish putting the upper half of the viewer together
1940 .ctop add .tf
1944 # now build up the bottom
1945 panedwindow .pwbottom -orient horizontal
1947 # lower left, a text box over search bar, scroll bar to the right
1948 # if we know window height, then that will set the lower text height, otherwise
1949 # we set lower text height which will drive window height
1954 }
1955 frame .bleft.top
1956 frame .bleft.mid
1957 frame .bleft.bottom
1961 set sstring .bleft.top.sstring
1963 lappend entries $sstring
1964 trace add variable searchstring write incrsearch
1977 -textvariable diffcontextstring
1979 trace add variable diffcontextstring write diffcontextchange
1980 lappend entries .bleft.mid.diffcontext
1981 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
1985 set ctext .bleft.bottom.ctext
1992 }
1999 grid .bleft.bottom.sbhorizontal -sticky ew
2004 lappend bglist $ctext
2005 lappend fglist $ctext
2034 .pwbottom add .bleft
2037 # lower right
2038 frame .bright
2039 frame .bright.mode
2046 set cflist .bright.cfiles
2048 text $cflist \
2051 -font mainfont \
2056 lappend bglist $cflist
2057 lappend fglist $cflist
2061 $cflist tag configure highlight \
2065 .pwbottom add .bright
2066 .ctop add .pwbottom
2068 # restore window width & height if known
2073 }
2076 }
2078 }
2079 }
2082 set M1B M1
2084 set M1B Control
2085 }
2090 #bindall <B1-Motion> {selcanvline %W %x %y}
2100 allcanvs yview scroll $delta units
2101 }
2102 }
2103 }
2125 bindkey p "selnextline -1"
2126 bindkey n "selnextline 1"
2127 bindkey z "goback"
2128 bindkey x "goforw"
2129 bindkey i "selnextline -1"
2130 bindkey k "selnextline 1"
2131 bindkey j "goback"
2132 bindkey l "goforw"
2133 bindkey b prevfile
2139 bindkey f nextfile
2151 wm protocol . WM_DELETE_WINDOW doquit
2162 set maincursor [. cget -cursor]
2166 set rowctxmenu .rowctxmenu
2169 -command {diffvssel 0}
2171 -command {diffvssel 1}
2177 -command cherrypick
2179 -command resethead
2181 set fakerowmenu .fakerowmenu
2184 -command {diffvssel 0}
2186 -command {diffvssel 1}
2192 set headctxmenu .headctxmenu
2195 -command cobranch
2197 -command rmbranch
2199 global flist_menu
2200 set flist_menu .flistctxmenu
2203 -command {flist_hl 0}
2205 -command {flist_hl 1}
2207 -command {external_diff}
2208 }
2210 # Windows sends all mouse wheel events to the current focused window, not
2211 # the one where the mouse hovers, so bind those events here and redirect
2212 # to the correct window
2213 proc windows_mousewheel_redirector {W X Y D} {
2214 global canv canv2 canv3
2220 } else {
2221 catch {
2223 }
2224 }
2225 }
2226 }
2228 # Update row number label when selectedline changes
2229 proc selectedline_change {n1 n2 op} {
2230 global selectedline rownumsel
2233 set rownumsel {}
2234 } else {
2236 }
2237 }
2239 # mouse-2 makes all windows scan vertically, but only the one
2240 # the cursor is in scans horizontally
2241 proc canvscan {op w x y} {
2242 global canv canv2 canv3
2246 } else {
2248 }
2249 }
2250 }
2252 proc scrollcanv {cscroll f0 f1} {
2254 drawvisible
2255 flushhighlights
2256 }
2258 # when we make a key binding for the toplevel, make sure
2259 # it doesn't get triggered when that key is pressed in the
2260 # find string entry widget.
2261 proc bindkey {ev script} {
2262 global entries
2266 set escript [bind Entry <Key>]
2267 }
2270 }
2271 }
2273 # set the focus back to the toplevel for any click outside
2274 # the entry widgets
2275 proc click {w} {
2276 global ctext entries
2279 }
2280 focus .
2281 }
2283 # Adjust the progress bar for a change in requested extent or canvas size
2284 proc adjustprogress {} {
2285 global progresscanv progressitem progresscoords
2286 global fprogitem fprogcoord lastprogupdate progupdatepending
2287 global rprogitem rprogcoord
2296 set now [clock clicks -milliseconds]
2298 set progupdatepending 0
2299 update
2301 set progupdatepending 1
2303 }
2304 }
2306 proc doprogupdate {} {
2307 global lastprogupdate progupdatepending
2310 set progupdatepending 0
2311 set lastprogupdate [clock clicks -milliseconds]
2312 update
2313 }
2314 }
2316 proc savestuff {w} {
2317 global canv canv2 canv3 mainfont textfont uifont tabstop
2318 global stuffsaved findmergefiles maxgraphpct
2319 global maxwidth showneartags showlocalchanges
2320 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2321 global cmitmode wrapcomment datetimeformat limitdiffs
2322 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2323 global autoselect extdifftool
2326 if {![winfo viewable .]} return
2327 catch {
2328 set f [open "~/.gitk-new" w]
2363 }
2364 }
2367 file rename -force "~/.gitk-new" "~/.gitk"
2368 }
2369 set stuffsaved 1
2370 }
2372 proc resizeclistpanes {win w} {
2373 global oldwidth
2380 } else {
2385 set sash0 30
2386 }
2389 }
2394 }
2395 }
2396 }
2399 }
2401 }
2403 proc resizecdetpanes {win w} {
2404 global oldwidth
2409 } else {
2413 set sash0 45
2414 }
2417 }
2418 }
2420 }
2422 }
2424 proc allcanvs args {
2425 global canv canv2 canv3
2429 }
2431 proc bindall {event action} {
2432 global canv canv2 canv3
2436 }
2438 proc about {} {
2439 global uifont
2440 set w .about
2443 return
2444 }
2448 Gitk - a commit viewer for git
2450 Copyright © 2005-2008 Paul Mackerras
2452 Use and redistribute under the terms of the GNU General Public License"] \
2453 -justify center -aspect 400 -border 2 -bg white -relief groove
2460 }
2462 proc keys {} {
2463 set w .keys
2466 return
2467 }
2468 if {[tk windowingsystem] eq {aqua}} {
2469 set M1T Cmd
2470 } else {
2471 set M1T Ctrl
2472 }
2476 [mc "Gitk key bindings:"]
2479 [mc "<Home> Move to first commit"]
2480 [mc "<End> Move to last commit"]
2481 [mc "<Up>, p, i Move up one commit"]
2482 [mc "<Down>, n, k Move down one commit"]
2483 [mc "<Left>, z, j Go back in history list"]
2484 [mc "<Right>, x, l Go forward in history list"]
2485 [mc "<PageUp> Move up one page in commit list"]
2486 [mc "<PageDown> Move down one page in commit list"]
2493 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2494 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2495 [mc "<Delete>, b Scroll diff view up one page"]
2496 [mc "<Backspace> Scroll diff view up one page"]
2497 [mc "<Space> Scroll diff view down one page"]
2498 [mc "u Scroll diff view up 18 lines"]
2499 [mc "d Scroll diff view down 18 lines"]
2502 [mc "<Return> Move to next find hit"]
2503 [mc "/ Move to next find hit, or redo find"]
2504 [mc "? Move to previous find hit"]
2505 [mc "f Scroll diff view to next file"]
2512 [mc "<F5> Update"]
2513 " \
2514 -justify left -bg white -border 2 -relief groove
2521 }
2523 # Procedures for manipulating the file list window at the
2524 # bottom right of the overall window.
2526 proc treeview {w l openlevs} {
2527 global treecontents treediropen treeheight treeparent treeindex
2529 set ix 0
2530 set treeindex() 0
2531 set lev 0
2532 set prefix {}
2533 set prefixend -1
2534 set prefendstack {}
2535 set htstack {}
2536 set ht 0
2537 set treecontents() {}
2544 }
2551 incr lev -1
2552 }
2556 set ht 0
2568 set ht 1
2573 set str "\n"
2581 }
2582 incr lev
2583 }
2586 incr ht
2587 set str "\n"
2591 }
2593 }
2594 }
2602 }
2604 }
2606 proc linetoelt {l} {
2607 global treeheight treecontents
2609 set y 2
2610 set prefix {}
2611 while {1} {
2615 }
2616 set n 1
2621 incr y
2622 break
2623 }
2624 }
2626 }
2627 }
2628 }
2630 proc highlight_tree {y prefix} {
2631 global treeheight treecontents cflist
2637 }
2638 incr y
2641 }
2642 }
2644 }
2646 proc treeclosedir {w dir} {
2647 global treediropen treeheight treeparent treeindex
2659 }
2660 }
2662 proc treeopendir {w dir} {
2663 global treediropen treeheight treeparent treecontents treeindex
2670 set lev 0
2671 set str "\n"
2674 incr lev
2675 append str "\t"
2677 }
2692 } else {
2695 }
2696 }
2709 }
2711 }
2712 }
2714 proc treeclick {w x y} {
2715 global treediropen cmitmode ctext cflist cflist_top
2718 if {![info exists cflist_top]} return
2725 return
2726 }
2732 } else {
2734 }
2735 }
2737 proc setfilelist {id} {
2738 global treefilelist cflist
2741 }
2743 image create bitmap tri-rt -background black -foreground blue -data {
2744 #define tri-rt_width 13
2745 #define tri-rt_height 13
2746 static unsigned char tri-rt_bits[] = {
2747 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2748 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2749 0x00, 0x00};
2750 } -maskdata {
2751 #define tri-rt-mask_width 13
2752 #define tri-rt-mask_height 13
2753 static unsigned char tri-rt-mask_bits[] = {
2754 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2755 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2756 0x08, 0x00};
2757 }
2758 image create bitmap tri-dn -background black -foreground blue -data {
2759 #define tri-dn_width 13
2760 #define tri-dn_height 13
2761 static unsigned char tri-dn_bits[] = {
2762 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2763 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2764 0x00, 0x00};
2765 } -maskdata {
2766 #define tri-dn-mask_width 13
2767 #define tri-dn-mask_height 13
2768 static unsigned char tri-dn-mask_bits[] = {
2769 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2770 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2771 0x00, 0x00};
2772 }
2774 image create bitmap reficon-T -background black -foreground yellow -data {
2775 #define tagicon_width 13
2776 #define tagicon_height 9
2777 static unsigned char tagicon_bits[] = {
2778 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2779 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2780 } -maskdata {
2781 #define tagicon-mask_width 13
2782 #define tagicon-mask_height 9
2783 static unsigned char tagicon-mask_bits[] = {
2784 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2785 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2786 }
2787 set rectdata {
2788 #define headicon_width 13
2789 #define headicon_height 9
2790 static unsigned char headicon_bits[] = {
2791 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2792 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2793 }
2794 set rectmask {
2795 #define headicon-mask_width 13
2796 #define headicon-mask_height 9
2797 static unsigned char headicon-mask_bits[] = {
2798 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2799 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2800 }
2801 image create bitmap reficon-H -background black -foreground green \
2803 image create bitmap reficon-o -background black -foreground "#ddddff" \
2806 proc init_flist {first} {
2807 global cflist cflist_top difffilestart
2813 set cflist_top 1
2815 } else {
2816 catch {unset cflist_top}
2817 }
2819 set difffilestart {}
2820 }
2822 proc highlight_tag {f} {
2823 global highlight_paths
2827 return "bold"
2828 }
2829 }
2830 return {}
2831 }
2833 proc highlight_filelist {} {
2834 global cmitmode cflist
2843 }
2844 }
2845 } else {
2846 highlight_tree 2 {}
2847 }
2849 }
2851 proc unhighlight_filelist {} {
2852 global cflist
2857 }
2859 proc add_flist {fl} {
2860 global cflist
2866 }
2868 }
2870 proc sel_flist {w x y} {
2871 global ctext difffilestart cflist cflist_top cmitmode
2874 if {![info exists cflist_top]} return
2881 } else {
2883 }
2884 }
2886 proc pop_flist_menu {w X Y x y} {
2887 global ctext cflist cmitmode flist_menu flist_menu_file
2888 global treediffs diffids
2890 stopfinding
2896 } else {
2898 }
2900 set xdiffstate "normal"
2902 set xdiffstate "disabled"
2903 }
2904 # Disable "External diff" item in tree mode
2907 }
2909 proc flist_hl {only} {
2910 global flist_menu_file findstring gdttype
2915 } else {
2917 }
2918 set gdttype [mc "touching paths:"]
2919 }
2921 proc save_file_from_commit {filename output what} {
2922 global nullfile
2927 }
2929 return {}
2930 }
2932 }
2934 proc external_diff_get_one_file {diffid filename diffdir} {
2935 global nullid nullid2 nullfile
2936 global gitdir
2942 }
2944 }
2948 }
2952 }
2954 proc external_diff {} {
2955 global gitktmpdir nullid nullid2
2956 global flist_menu_file
2957 global diffids
2958 global diffnum
2959 global gitdir extdifftool
2962 # no reference commit given
2965 # diffing working copy with index
2968 # diffing index with HEAD
2969 set diffidfrom "HEAD"
2970 } else {
2971 # use first parent commit
2972 global parentlist selectedline
2974 }
2975 } else {
2978 }
2980 # make sure that several diffs wont collide
2981 if {![info exists gitktmpdir]} {
2983 [format ".gitk-tmp.%s" [pid]]]
2986 unset gitktmpdir
2987 return
2988 }
2989 set diffnum 0
2990 }
2991 incr diffnum
2995 return
2996 }
2998 # gather files to diff
3008 } else {
3011 }
3012 }
3013 }
3016 proc delete_at_eof {f dir} {
3021 }
3023 return 0
3024 }
3025 return 1
3026 }
3028 # Functions for adding and removing shell-type quoting
3030 proc shellquote {str} {
3033 }
3036 }
3039 }
3041 }
3043 proc shellarglist {l} {
3044 set str {}
3047 append str " "
3048 }
3050 }
3052 }
3054 proc shelldequote {str} {
3055 set ret {}
3056 set used -1
3057 while {1} {
3058 incr used
3062 break
3063 }
3069 }
3071 incr used
3075 error "unmatched single-quote"
3076 }
3079 continue
3080 }
3083 error "trailing backslash"
3084 }
3086 continue
3087 }
3088 # here ch == "\""
3089 while {1} {
3091 error "unmatched double-quote"
3092 }
3098 }
3100 incr used
3102 incr used
3103 }
3104 }
3106 }
3108 proc shellsplit {str} {
3109 set l {}
3110 while {1} {
3118 }
3120 }
3122 # Code to implement multiple views
3124 proc newview {ishighlight} {
3125 global nextviewnum newviewname newviewperm newishighlight
3126 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3129 set top .gitkview
3132 return
3133 }
3139 }
3141 proc editview {} {
3142 global curview
3143 global viewname viewperm newviewname newviewperm
3144 global viewargs newviewargs viewargscmd newviewargscmd
3149 return
3150 }
3156 }
3158 proc vieweditor {top n title} {
3159 global newviewname newviewperm viewfiles bgcolor
3170 -text [mc "Commits to include (arguments to git log):"]
3177 -text [mc "Command to generate more commits to include:"]
3180 -background white
3184 -text [mc "Enter files and directories to include, one per line:"]
3191 }
3194 }
3204 }
3206 proc doviewmenu {m first cmd op argv} {
3211 break
3212 }
3213 }
3214 }
3216 proc allviewmenus {n op args} {
3217 # global viewhlmenu
3221 }
3223 proc newviewok {top n} {
3224 global nextviewnum newviewperm newviewname newishighlight
3225 global viewname viewfiles viewperm selectedview curview
3226 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3228 if {[catch {
3230 } err]} {
3234 return
3235 }
3236 set files {}
3241 }
3242 }
3244 # creating a new view
3245 incr nextviewnum
3254 } else {
3256 }
3257 } else {
3258 # editing an existing view
3266 }
3273 run reloadcommits
3274 }
3275 }
3276 }
3278 }
3280 proc delview {} {
3281 global curview viewperm hlview selectedhlview
3285 set selectedhlview [mc "None"]
3286 unset hlview
3287 }
3290 showview 0
3291 }
3293 proc addviewmenu {n} {
3294 global viewname viewhlmenu
3300 }
3302 proc showview {n} {
3303 global curview cached_commitrow ordertok
3304 global displayorder parentlist rowidlist rowisopt rowfinal
3305 global colormap rowtextx nextcolor canvxmax
3306 global numcommits viewcomplete
3307 global selectedline currentid canv canvy0
3308 global treediffs
3309 global pending_select mainheadid
3310 global commitidx
3311 global selectedview
3312 global hlview selectedhlview commitinterest
3315 set selid {}
3326 }
3327 } elseif {[info exists pending_select]} {
3329 unset pending_select
3330 }
3331 unselectline
3332 normalline
3333 catch {unset treediffs}
3334 clear_display
3336 unset hlview
3337 set selectedhlview [mc "None"]
3338 }
3339 catch {unset commitinterest}
3340 catch {unset cached_commitrow}
3341 catch {unset ordertok}
3348 run refill_reflist
3351 return
3352 }
3354 set displayorder {}
3355 set parentlist {}
3356 set rowidlist {}
3357 set rowisopt {}
3358 set rowfinal {}
3361 catch {unset colormap}
3362 catch {unset rowtextx}
3363 set nextcolor 0
3366 set row 0
3367 setcanvscroll
3368 set yf 0
3369 set row {}
3372 # try to get the selected row in the same position on the screen
3376 set ytop 0
3377 }
3379 }
3381 drawvisible
3386 } else {
3387 reset_pending_select {}
3391 } else {
3392 set row [first_real_row]
3395 }
3396 }
3397 }
3400 show_status [mc "Reading commits..."]
3401 }
3403 show_status [mc "No commits selected"]
3404 }
3405 }
3407 # Stuff relating to the highlighting facility
3409 proc ishighlighted {id} {
3410 global vhighlights fhighlights nhighlights rhighlights
3414 }
3417 }
3420 }
3423 }
3424 return 0
3425 }
3427 proc bolden {row font} {
3428 global canv linehtag selectedline boldrows
3435 -outline {{}} -tags secsel \
3438 }
3439 }
3441 proc bolden_name {row font} {
3442 global canv2 linentag selectedline boldnamerows
3449 -outline {{}} -tags secsel \
3452 }
3453 }
3455 proc unbolden {} {
3456 global boldrows
3458 set stillbold {}
3462 } else {
3464 }
3465 }
3467 }
3469 proc addvhighlight {n} {
3470 global hlview viewcomplete curview vhl_done commitidx
3472 if {[info exists hlview]} {
3473 delvhighlight
3474 }
3478 }
3481 drawvisible
3482 }
3483 }
3485 proc delvhighlight {} {
3486 global hlview vhighlights
3488 if {![info exists hlview]} return
3489 unset hlview
3490 catch {unset vhighlights}
3491 unbolden
3492 }
3494 proc vhighlightmore {} {
3495 global hlview vhl_done commitidx vhighlights curview
3498 set vr [visiblerows]
3508 }
3510 }
3511 }
3512 }
3514 return 0
3515 }
3517 proc askvhighlight {row id} {
3518 global hlview vhighlights iddrawn
3523 }
3525 } else {
3527 }
3528 }
3530 proc hfiles_change {} {
3531 global highlight_files filehighlight fhighlights fh_serial
3532 global highlight_paths gdttype
3534 if {[info exists filehighlight]} {
3535 # delete previous highlights
3537 unset filehighlight
3538 catch {unset fhighlights}
3539 unbolden
3540 unhighlight_filelist
3541 }
3542 set highlight_paths {}
3544 incr fh_serial
3547 }
3548 }
3550 proc gdttype_change {name ix op} {
3551 global gdttype highlight_files findstring findpattern
3553 stopfinding
3557 set highlight_files {}
3558 hfiles_change
3559 }
3560 findcom_change
3561 } else {
3563 set findpattern {}
3564 findcom_change
3565 }
3567 hfiles_change
3568 }
3569 drawvisible
3570 }
3571 # enable/disable findtype/findloc menus too
3572 }
3574 proc find_change {name ix op} {
3575 global gdttype findstring highlight_files
3577 stopfinding
3579 findcom_change
3580 } else {
3583 hfiles_change
3584 }
3585 }
3586 drawvisible
3587 }
3589 proc findcom_change args {
3590 global nhighlights boldnamerows
3591 global findpattern findtype findstring gdttype
3593 stopfinding
3594 # delete previous highlights, if any
3597 }
3598 set boldnamerows {}
3599 catch {unset nhighlights}
3600 unbolden
3601 unmarkmatches
3603 set findpattern {}
3606 } else {
3607 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3610 }
3611 }
3613 proc makepatterns {l} {
3614 set ret {}
3619 } else {
3622 }
3623 }
3625 }
3627 proc do_file_hl {serial} {
3628 global highlight_files filehighlight highlight_paths gdttype fhl_list
3633 highlight_filelist
3637 } else {
3638 # must be "containing:", i.e. we're searching commit info
3639 return
3640 }
3645 set fhl_list {}
3646 drawvisible
3647 flushhighlights
3648 }
3650 proc flushhighlights {} {
3651 global filehighlight fhl_list
3653 if {[info exists filehighlight]} {
3654 lappend fhl_list {}
3657 }
3658 }
3660 proc askfilehighlight {row id} {
3661 global filehighlight fhighlights fhl_list
3666 }
3668 proc readfhighlight {} {
3669 global filehighlight fhighlights curview iddrawn
3670 global fhl_list find_dirn
3672 if {![info exists filehighlight]} {
3673 return 0
3674 }
3675 set nr 0
3683 }
3690 }
3692 }
3694 # strange...
3695 puts "oops, git diff-tree died"
3697 unset filehighlight
3698 return 0
3699 }
3700 if {[info exists find_dirn]} {
3701 run findmore
3702 }
3703 return 1
3704 }
3706 proc doesmatch {f} {
3707 global findtype findpattern
3713 } else {
3715 }
3716 }
3718 proc askfindhighlight {row id} {
3719 global nhighlights commitinfo iddrawn
3720 global findloc
3721 global markingmatches
3725 }
3727 set isbold 0
3728 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3733 set isbold 2
3734 break
3735 }
3736 set isbold 1
3737 }
3738 }
3744 }
3745 }
3748 }
3749 }
3751 }
3753 proc markrowmatches {row id} {
3754 global canv canv2 linehtag linentag commitinfo findloc
3765 }
3766 }
3772 }
3773 }
3774 }
3776 proc vrel_change {name ix op} {
3777 global highlight_related
3779 rhighlight_none
3781 run drawvisible
3782 }
3783 }
3785 # prepare for testing whether commits are descendents or ancestors of a
3786 proc rhighlight_sel {a} {
3787 global descendent desc_todo ancestor anc_todo
3788 global highlight_related
3790 catch {unset descendent}
3792 catch {unset ancestor}
3795 rhighlight_none
3796 run drawvisible
3797 }
3798 }
3800 proc rhighlight_none {} {
3801 global rhighlights
3803 catch {unset rhighlights}
3804 unbolden
3805 }
3807 proc is_descendent {a} {
3808 global curview children descendent desc_todo
3813 set leftover {}
3814 set done 0
3819 continue
3820 }
3826 set done 1
3827 }
3828 }
3829 }
3832 return
3833 }
3834 }
3837 }
3839 proc is_ancestor {a} {
3840 global curview parents ancestor anc_todo
3845 set leftover {}
3846 set done 0
3851 continue
3852 }
3858 set done 1
3859 }
3860 }
3861 }
3864 return
3865 }
3866 }
3869 }
3871 proc askrelhighlight {row id} {
3872 global descendent highlight_related iddrawn rhighlights
3873 global selectedline ancestor
3876 set isbold 0
3881 }
3883 set isbold 1
3884 }
3889 }
3891 set isbold 1
3892 }
3893 }
3897 }
3898 }
3900 }
3902 # Graph layout functions
3904 proc shortids {ids} {
3905 set res {}
3911 } else {
3913 }
3914 }
3916 }
3918 proc ntimes {n o} {
3919 set ret {}
3924 }
3926 }
3928 }
3930 proc ordertoken {id} {
3931 global ordertok curview varcid varcstart varctok curview parents children
3932 global nullid nullid2
3936 }
3938 set todo {}
3939 while {1} {
3943 } else {
3945 }
3948 break
3949 }
3952 # it's a root
3954 break
3955 }
3958 } else {
3962 }
3964 }
3965 }
3970 }
3973 }
3975 # Work out where id should go in idlist so that order-token
3976 # values increase from left to right
3977 proc idcol {idlist id {i 0}} {
3980 set i 0
3981 }
3985 }
3987 incr i
3988 } else {
3992 }
3993 }
3995 }
3997 proc initlayout {} {
3998 global rowidlist rowisopt rowfinal displayorder parentlist
3999 global numcommits canvxmax canv
4000 global nextcolor
4001 global colormap rowtextx
4003 set numcommits 0
4004 set displayorder {}
4005 set parentlist {}
4006 set nextcolor 0
4007 set rowidlist {}
4008 set rowisopt {}
4009 set rowfinal {}
4011 catch {unset colormap}
4012 catch {unset rowtextx}
4013 setcanvscroll
4014 }
4016 proc setcanvscroll {} {
4017 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4018 global lastscrollset lastscrollrows
4024 set lastscrollset [clock clicks -milliseconds]
4026 }
4028 proc visiblerows {} {
4029 global canv numcommits linespc
4037 set r0 0
4038 }
4043 }
4045 }
4047 proc layoutmore {} {
4048 global commitidx viewcomplete curview
4049 global numcommits pending_select curview
4050 global lastscrollset lastscrollrows commitinterest
4054 setcanvscroll
4055 }
4056 if {[info exists pending_select] &&
4058 update
4060 }
4061 drawvisible
4062 }
4064 proc doshowlocalchanges {} {
4065 global curview mainheadid
4069 dodiffindex
4070 } else {
4072 }
4073 }
4075 proc dohidelocalchanges {} {
4076 global nullid nullid2 lserial curview
4080 }
4083 }
4084 incr lserial
4085 }
4087 # spawn off a process to do git diff-index --cached HEAD
4088 proc dodiffindex {} {
4089 global lserial showlocalchanges
4090 global isworktree
4093 incr lserial
4094 set fd [open "|git diff-index --cached HEAD" r]
4098 }
4100 proc readdiffindex {fd serial inst} {
4101 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4103 set isdiff 1
4106 return 1
4107 }
4108 set isdiff 0
4109 }
4110 # we only need to see one line and we don't really care what it says...
4114 return 0
4115 }
4117 # now see if there are any local changes not checked in to the index
4118 set fd [open "|git diff-files" r]
4124 # add the line for the changes in the index to the graph
4125 set hl [mc "Local changes checked in to index but not committed"]
4130 }
4134 }
4135 return 0
4136 }
4138 proc readdifffiles {fd serial inst} {
4139 global mainheadid nullid nullid2 curview
4140 global commitinfo commitdata lserial
4142 set isdiff 1
4145 return 1
4146 }
4147 set isdiff 0
4148 }
4149 # we only need to see one line and we don't really care what it says...
4153 return 0
4154 }
4157 # add the line for the local diff to the graph
4158 set hl [mc "Local uncommitted changes, not checked in to index"]
4163 } else {
4165 }
4169 }
4170 return 0
4171 }
4173 proc nextuse {id row} {
4174 global curview children
4179 return -1
4180 }
4183 }
4184 }
4185 }
4188 }
4189 return -1
4190 }
4192 proc prevuse {id row} {
4193 global curview children
4195 set ret -1
4201 }
4202 }
4203 }
4205 }
4207 proc make_idlist {row} {
4208 global displayorder parentlist uparrowlen downarrowlen mingaplen
4209 global commitidx curview children
4213 set r 0
4214 }
4217 set ra 0
4218 }
4222 }
4224 set ids {}
4233 }
4234 }
4235 }
4243 }
4244 }
4245 }
4253 }
4254 }
4255 incr r
4261 }
4262 }
4263 }
4264 set idlist {}
4267 }
4269 }
4271 proc rowsequal {a b} {
4274 }
4277 }
4279 }
4281 proc makeupline {id row rend col} {
4282 global rowidlist uparrowlen downarrowlen mingaplen
4288 }
4291 }
4298 }
4299 }
4300 }
4302 proc layoutrows {row endrow} {
4303 global rowidlist rowisopt rowfinal displayorder
4304 global uparrowlen downarrowlen maxwidth mingaplen
4305 global children parentlist
4306 global commitidx viewcomplete curview
4309 set idlist {}
4315 }
4316 }
4318 }
4323 set final 1
4324 } else {
4332 # if not the first child, we have to insert a line going up
4335 }
4336 }
4337 }
4347 }
4348 }
4349 }
4356 }
4357 }
4367 }
4368 }
4376 }
4377 }
4378 }
4379 }
4380 }
4384 set final 0
4385 }
4389 lappend rowisopt 0
4395 }
4397 } else {
4404 }
4405 }
4407 }
4409 proc changedrow {row} {
4410 global displayorder iddrawn rowisopt need_redisplay
4419 }
4420 }
4421 }
4424 set need_redisplay 1
4425 }
4426 }
4428 proc insert_pad {row col npad} {
4429 global rowidlist
4438 }
4441 }
4443 proc optimize_rows {row col endrow} {
4444 global rowidlist rowisopt displayorder curview children
4447 set row 1
4448 }
4451 set haspad 0
4460 } else {
4461 set pprevidlist {}
4462 }
4463 set x0 -1
4464 set xm -1
4469 set haspad 1
4470 continue
4471 }
4475 set isarrow 0
4476 set z0 {}
4481 }
4482 }
4487 set isarrow 1
4488 }
4489 }
4492 set isarrow 1
4493 }
4494 # Looking at lines from this row to the previous row,
4495 # make them go straight up if they end in an arrow on
4496 # the previous row; otherwise make them go straight up
4497 # or at 45 degrees.
4499 # Line currently goes left too much;
4500 # insert pads in the previous row, then optimize it
4505 }
4513 }
4515 # Line currently goes right too much;
4516 # insert pads in this line
4522 set haspad 1
4523 }
4530 }
4531 }
4532 # avoid lines jigging left then immediately right
4535 incr x0
4538 }
4539 }
4541 # Find the first column that doesn't have a line going right
4547 # check if this is the link to the first child
4550 # it is, work out offset to child
4552 }
4553 }
4555 }
4556 # Insert a pad at that column as long as it has a line and
4557 # isn't the last column
4562 }
4563 }
4564 }
4565 }
4567 proc xc {row col} {
4568 global canvx0 linespc
4570 }
4572 proc yc {row} {
4573 global canvy0 linespc
4575 }
4577 proc linewidth {id} {
4578 global thickerline lthickness
4583 }
4585 }
4587 proc rowranges {id} {
4588 global curview children uparrowlen downarrowlen
4589 global rowidlist
4593 return {}
4594 }
4595 set ret {}
4600 if {![info exists prev]} {
4602 } else {
4604 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4605 }
4606 # see if the line extends the whole way from prevrow to row
4610 # it doesn't, see where it ends
4615 } else {
4618 incr r -1
4619 }
4621 # see where it starts up again
4626 } else {
4629 incr r
4630 }
4632 }
4633 }
4636 }
4639 }
4641 }
4643 proc drawlineseg {id row endrow arrowlow} {
4644 global rowidlist displayorder iddrawn linesegs
4645 global canv colormap linespc curview maxlinelen parentlist
4649 set arrowhigh 1
4650 while {1} {
4653 incr le -1
4654 break
4655 }
4659 set arrowhigh 0
4660 break
4661 }
4666 set arrowhigh 0
4667 }
4668 break
4669 }
4670 incr le
4671 }
4674 }
4676 set lines {}
4677 set i 0
4678 set joinhigh 0
4685 set joinhigh 1
4686 }
4687 break
4688 }
4689 incr i
4690 }
4691 }
4692 set joinlow 0
4697 set joinlow 1
4698 }
4699 }
4712 }
4713 } else {
4715 }
4723 set arrowlow 0
4724 }
4725 }
4733 }
4735 }
4738 # join parent line to first child
4749 } else {
4751 }
4759 }
4761 }
4763 } else {
4767 }
4775 } else {
4779 }
4781 }
4782 } else {
4788 }
4792 } else {
4793 # coalesce two pieces
4798 }
4802 }
4803 }
4807 }
4809 proc drawparentlinks {id row} {
4810 global rowidlist canv colormap curview parentlist
4811 global idpos linespc
4824 # rmx = right-most X coord used
4825 set rmx 0
4830 continue
4831 }
4835 }
4838 # drawlineseg will do this one for us
4839 continue
4840 }
4842 # should handle duplicated parents here...
4845 # if attaching to a vertical segment, draw a smaller
4846 # slant for visual distinctness
4850 } else {
4852 }
4854 # segment slants towards us already
4856 } else {
4861 }
4863 }
4864 } else {
4866 }
4871 }
4875 }
4876 }
4878 proc drawlines {id} {
4879 global canv
4882 }
4884 proc drawcmittext {id row col} {
4885 global linespc canv canv2 canv3 fgcolor curview
4886 global cmitlisted commitinfo rowidlist parentlist
4887 global rowtextx idpos idtags idheads idotherrefs
4888 global linehtag linentag linedtag selectedline
4889 global canvxmax boldrows boldnamerows fgcolor
4890 global mainheadid nullid nullid2 circleitem circlecolors
4892 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4895 set ofill red
4897 set ofill green
4899 set ofill yellow
4900 } else {
4902 }
4911 # triangle pointing left for left-side commits
4917 } else {
4918 # triangle pointing right for right-side commits
4924 }
4936 }
4937 }
4938 }
4945 }
4950 set font mainfont
4951 set nfont mainfont
4955 set font mainfontbold
4958 set nfont mainfontbold
4959 }
4960 }
4970 }
4974 setcanvscroll
4975 }
4976 }
4978 proc drawcmitrow {row} {
4979 global displayorder rowidlist nrows_drawn
4980 global iddrawn markingmatches
4981 global commitinfo numcommits
4982 global filehighlight fhighlights findpattern nhighlights
4983 global hlview vhighlights
4984 global highlight_related rhighlights
4991 }
4994 }
4997 }
5000 }
5005 return
5006 }
5009 }
5013 incr nrows_drawn
5014 }
5017 }
5018 }
5020 proc drawcommits {row {endrow {}}} {
5021 global numcommits iddrawn displayorder curview need_redisplay
5022 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5025 set row 0
5026 }
5029 }
5032 }
5036 set rl1 0
5037 }
5040 set ro1 0
5041 }
5045 }
5050 }
5052 }
5053 }
5056 }
5059 clear_display
5060 drawvisible
5061 }
5063 # make the lines join to already-drawn rows either side
5067 }
5072 }
5087 # see if this is the first child of any of its parents
5090 # make this line extend up to the child
5092 }
5093 }
5094 } else {
5096 }
5097 }
5098 }
5099 }
5101 proc undolayout {row} {
5102 global uparrowlen mingaplen downarrowlen
5103 global rowidlist rowisopt rowfinal need_redisplay
5107 set r 0
5108 }
5110 incr r -1
5114 set need_redisplay 1
5115 run drawvisible
5116 }
5117 }
5119 proc drawvisible {} {
5120 global canv linespc curview vrowmod selectedline targetrow targetid
5121 global need_redisplay cscroll numcommits
5131 if {[info exists targetid]} {
5135 # Fix up the scrollregion and change the scrolling position
5136 # now that our target row has moved.
5139 setcanvscroll
5147 set need_redisplay 1
5148 }
5149 } else {
5150 unset targetid
5151 }
5152 }
5158 }
5162 } elseif {[info exists targetid]} {
5164 }
5165 if {[info exists targetrow]} {
5168 }
5170 }
5172 }
5174 proc clear_display {} {
5175 global iddrawn linesegs need_redisplay nrows_drawn
5176 global vhighlights fhighlights nhighlights rhighlights
5177 global linehtag linentag linedtag boldrows boldnamerows
5179 allcanvs delete all
5180 catch {unset iddrawn}
5181 catch {unset linesegs}
5182 catch {unset linehtag}
5183 catch {unset linentag}
5184 catch {unset linedtag}
5185 set boldrows {}
5186 set boldnamerows {}
5187 catch {unset vhighlights}
5188 catch {unset fhighlights}
5189 catch {unset nhighlights}
5190 catch {unset rhighlights}
5191 set need_redisplay 0
5192 set nrows_drawn 0
5193 }
5195 proc findcrossings {id} {
5196 global rowidlist parentlist numcommits displayorder
5198 set cross {}
5199 set ccross {}
5203 }
5222 }
5223 }
5224 }
5225 }
5226 }
5228 }
5230 proc assigncolor {id} {
5231 global colormap colors nextcolor
5232 global parents children children curview
5238 } else {
5239 set kids {}
5240 }
5246 return
5247 }
5248 }
5249 set badcolors {}
5250 set origbad {}
5253 # delimiter between corner crossings and other crossings
5256 }
5260 }
5261 }
5264 }
5271 }
5276 }
5277 }
5278 }
5281 }
5282 }
5286 set nextcolor 0
5287 }
5289 }
5291 }
5293 proc bindline {t id} {
5294 global canv
5300 }
5302 proc drawtags {id x xt y1} {
5303 global idtags idheads idotherrefs mainhead
5304 global linespc lthickness
5305 global canv rowtextx curview fgcolor bgcolor
5307 set marks {}
5308 set ntags 0
5309 set nheads 0
5313 }
5317 }
5320 }
5323 }
5328 set xvals {}
5329 set wvals {}
5330 set i -1
5332 incr i
5335 } else {
5337 }
5341 }
5348 set font mainfont
5349 if {[incr ntags -1] >= 0} {
5350 # draw a tag
5356 } else {
5357 # draw a head or other ref
5358 if {[incr nheads -1] >= 0} {
5359 set col green
5361 set font mainfontbold
5362 }
5363 } else {
5364 set col "#ddddff"
5365 }
5376 }
5377 }
5384 }
5385 }
5387 }
5389 proc xcoord {i level ln} {
5390 global canvx0 xspc1 xspc2
5397 }
5399 }
5401 proc show_status {msg} {
5402 global canv fgcolor
5404 clear_display
5407 }
5409 # Don't change the text pane cursor if it is currently the hand cursor,
5410 # showing that we are over a sha1 ID link.
5411 proc settextcursor {c} {
5412 global ctext curtextcursor
5416 }
5418 }
5420 proc nowbusy {what {name {}}} {
5421 global isbusy busyname statusw
5423 if {[array names isbusy] eq {}} {
5424 . config -cursor watch
5425 settextcursor watch
5426 }
5431 }
5432 }
5434 proc notbusy {what} {
5435 global isbusy maincursor textcursor busyname statusw
5437 catch {
5442 }
5443 }
5444 if {[array names isbusy] eq {}} {
5447 }
5448 }
5450 proc findmatches {f} {
5451 global findtype findstring
5454 } else {
5459 }
5460 set matches {}
5461 set i 0
5466 }
5467 }
5469 }
5471 proc dofind {{dirn 1} {wrap 1}} {
5472 global findstring findstartline findcurline selectedline numcommits
5473 global gdttype filehighlight fh_serial find_dirn findallowwrap
5475 if {[info exists find_dirn]} {
5477 stopfinding
5478 }
5479 focus .
5483 } else {
5485 }
5487 nowbusy finding [mc "Searching"]
5491 }
5494 run findmore
5495 }
5497 proc stopfinding {} {
5498 global find_dirn findcurline fprogcoord
5500 if {[info exists find_dirn]} {
5501 unset find_dirn
5502 unset findcurline
5503 notbusy finding
5504 set fprogcoord 0
5505 adjustprogress
5506 }
5507 }
5509 proc findmore {} {
5510 global commitdata commitinfo numcommits findpattern findloc
5511 global findstartline findcurline findallowwrap
5512 global find_dirn gdttype fhighlights fprogcoord
5513 global curview varcorder vrownum varccommits vrowmod
5515 if {![info exists find_dirn]} {
5516 return 0
5517 }
5518 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5520 set moretodo 0
5522 incr l
5524 set l 0
5525 }
5528 } else {
5531 }
5532 } else {
5535 }
5536 incr l -1
5539 } else {
5540 set lim -1
5542 }
5543 }
5546 set n 500
5547 set moretodo 1
5548 }
5551 }
5552 set found 0
5553 set domore 1
5567 }
5569 # shouldn't happen unless git log doesn't give all the commits...
5572 continue
5573 }
5576 }
5581 set found 1
5582 break
5583 }
5584 }
5586 }
5587 } else {
5595 }
5600 }
5603 break
5604 }
5607 set domore 0
5609 }
5610 }
5611 }
5612 }
5614 unset findcurline
5615 unset find_dirn
5616 notbusy finding
5617 set fprogcoord 0
5618 adjustprogress
5621 } else {
5622 bell
5623 }
5624 return 0
5625 }
5627 flushhighlights
5628 } else {
5630 }
5634 }
5636 adjustprogress
5638 }
5640 proc findselectline {l} {
5641 global findloc commentend ctext findcurline markingmatches gdttype
5643 set markingmatches 1
5647 # highlight the matches in the comments
5654 }
5655 }
5656 drawvisible
5657 }
5659 # mark the bits of a headline or author that match a find string
5660 proc markmatches {canv l str tag matches font row} {
5661 global selectedline
5679 }
5680 }
5681 }
5683 proc unmarkmatches {} {
5684 global markingmatches
5686 allcanvs delete matches
5687 set markingmatches 0
5688 stopfinding
5689 }
5691 proc selcanvline {w x y} {
5692 global canv canvy0 ctext linespc
5693 global rowtextx
5700 set l 0
5701 }
5706 }
5707 unmarkmatches
5709 }
5711 proc commit_descriptor {p} {
5712 global commitinfo
5715 }
5716 set l "..."
5719 }
5721 }
5723 # append some text to the ctext widget, and make any SHA1 ID
5724 # that we know about be a clickable link.
5725 proc appendwithlinks {text tags} {
5726 global ctext linknum curview pendinglinks
5735 incr e
5739 incr linknum
5740 }
5741 }
5743 proc setlink {id lk} {
5744 global curview ctext pendinglinks commitinterest
5751 } else {
5754 }
5755 }
5757 proc makelink {id} {
5758 global pendinglinks
5763 }
5765 }
5767 proc linkcursor {w inc} {
5768 global linkentercount curtextcursor
5772 } else {
5775 set linkentercount 0
5776 }
5777 }
5778 }
5780 proc viewnextline {dir} {
5781 global canv linespc
5789 set newtop 0
5792 }
5794 }
5796 # add a list of tag or branch names at position pos
5797 # returns the number of names inserted
5798 proc appendrefs {pos ids var} {
5802 return 0
5803 }
5806 set tags {}
5810 }
5811 }
5814 } else {
5816 set sep {}
5820 incr linknum
5825 set sep ", "
5826 }
5827 }
5830 }
5832 # called when we have finished computing the nearby tags
5833 proc dispneartags {delay} {
5834 global selectedline currentid showneartags tagphase
5837 after cancel dispnexttag
5839 after 200 dispnexttag
5840 set tagphase -1
5841 } else {
5842 after idle dispnexttag
5843 set tagphase 0
5844 }
5845 }
5847 proc dispnexttag {} {
5848 global selectedline currentid showneartags tagphase ctext
5852 0 {
5856 }
5857 }
5858 1 {
5862 }
5863 }
5864 2 {
5869 # turn "Branch" into "Branches"
5873 }
5874 }
5875 }
5876 }
5877 if {[incr tagphase] <= 2} {
5878 after idle dispnexttag
5879 }
5880 }
5882 proc make_secsel {l} {
5883 global linehtag linentag linedtag canv canv2 canv3
5898 }
5900 proc selectline {l isnew} {
5901 global canv ctext commitinfo selectedline
5902 global canvy0 linespc parents children curview
5903 global currentid sha1entry
5904 global commentend idtags linknum
5905 global mergemax numcommits pending_select
5906 global cmitmode showneartags allcommits
5907 global targetrow targetid lastscrollrows
5908 global autoselect
5910 catch {unset pending_select}
5912 normalline
5913 unsel_reflist
5914 stopfinding
5922 setcanvscroll
5923 }
5937 } else {
5941 }
5942 }
5946 } else {
5950 }
5951 }
5952 }
5955 set newtop 0
5956 }
5958 drawvisible
5959 }
5965 }
5972 }
5976 clear_ctext
5977 set linknum 0
5980 }
5990 }
5992 }
5994 set headers {}
5997 set np 0
6000 set tag mmax
6001 } else {
6003 }
6006 incr np
6007 }
6008 } else {
6011 }
6012 }
6016 }
6018 # make anything that looks like a SHA1 ID be a clickable link
6021 if {![info exists allcommits]} {
6022 getallcommits
6023 }
6034 dispneartags 1
6035 }
6040 }
6047 init_flist [mc "Comments"]
6052 } else {
6054 }
6055 }
6057 proc selfirstline {} {
6058 unmarkmatches
6059 selectline 0 1
6060 }
6062 proc sellastline {} {
6063 global numcommits
6064 unmarkmatches
6067 }
6069 proc selnextline {dir} {
6070 global selectedline
6071 focus .
6074 unmarkmatches
6076 }
6078 proc selnextpage {dir} {
6079 global canv linespc selectedline numcommits
6083 set lpp 1
6084 }
6086 drawvisible
6090 set l 0
6093 }
6094 unmarkmatches
6096 }
6098 proc unselectline {} {
6099 global selectedline currentid
6101 set selectedline {}
6102 catch {unset currentid}
6103 allcanvs delete secsel
6104 rhighlight_none
6105 }
6107 proc reselectline {} {
6108 global selectedline
6112 }
6113 }
6115 proc addtohistory {cmd} {
6116 global history historyindex curview
6121 return
6122 }
6126 } else {
6128 }
6129 incr historyindex
6131 .tf.bar.leftbut conf -state normal
6132 } else {
6133 .tf.bar.leftbut conf -state disabled
6134 }
6135 .tf.bar.rightbut conf -state disabled
6136 }
6138 proc godo {elt} {
6139 global curview
6145 }
6147 }
6149 proc goback {} {
6150 global history historyindex
6151 focus .
6154 incr historyindex -1
6156 .tf.bar.rightbut conf -state normal
6157 }
6159 .tf.bar.leftbut conf -state disabled
6160 }
6161 }
6163 proc goforw {} {
6164 global history historyindex
6165 focus .
6169 incr historyindex
6171 .tf.bar.leftbut conf -state normal
6172 }
6174 .tf.bar.rightbut conf -state disabled
6175 }
6176 }
6178 proc gettree {id} {
6179 global treefilelist treeidlist diffids diffmergeid treepending
6180 global nullid nullid2
6183 catch {unset diffmergeid}
6185 if {![info exists treepending]} {
6187 set cmd [list | git ls-files]
6189 set cmd [list | git ls-files --stage -t]
6190 } else {
6192 }
6194 return
6195 }
6201 }
6202 } else {
6204 }
6205 }
6207 proc gettreeline {gtf id} {
6208 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6210 set nl 0
6214 } else {
6223 }
6225 }
6227 }
6230 }
6232 unset treepending
6234 if {![info exists diffmergeid]} {
6236 }
6239 } else {
6241 }
6242 return 0
6243 }
6245 proc showfile {f} {
6246 global treefilelist treeidlist diffids nullid nullid2
6247 global ctext commentend
6252 return
6253 }
6257 return
6258 }
6259 } else {
6263 return
6264 }
6265 }
6274 settabs 0
6275 }
6277 proc getblobline {bf id} {
6278 global diffids cmitmode ctext
6282 return 0
6283 }
6285 set nl 0
6288 }
6290 # delete last newline
6293 return 0
6294 }
6297 }
6299 proc mergediff {id} {
6300 global diffmergeid mdifffd
6301 global diffids
6302 global parents
6303 global diffcontext
6304 global limitdiffs vfilelimit curview
6308 # this doesn't seem to actually affect anything...
6312 }
6315 return
6316 }
6322 }
6324 proc getmergediffline {mdf id np} {
6325 global diffmergeid ctext cflist mergemax
6326 global difffilestart mdifffd
6329 set nr 0
6334 return 0
6335 }
6337 # start of a new file
6348 # do nothing
6349 } else {
6350 # parse the prefix - one ' ', '-' or '+' for each parent
6351 set spaces {}
6352 set minuses {}
6353 set pluses {}
6354 set isbad 0
6363 } else {
6364 set isbad 1
6365 break
6366 }
6367 }
6368 set tags {}
6369 set num {}
6375 lappend tags mresult
6377 }
6380 set num "max"
6381 }
6383 }
6385 }
6386 }
6390 return 0
6391 }
6393 }
6395 proc startdiff {ids} {
6396 global treediffs diffids treepending diffmergeid nullid nullid2
6398 settabs 1
6400 catch {unset diffmergeid}
6404 if {![info exists treepending]} {
6406 }
6407 } else {
6409 }
6410 }
6412 proc path_filter {filter name} {
6417 return 1
6418 }
6419 } else {
6423 return 1
6424 }
6425 }
6426 }
6427 return 0
6428 }
6430 proc addtocflist {ids} {
6431 global treediffs
6435 }
6437 proc diffcmd {ids flags} {
6438 global nullid nullid2
6444 # comparing working directory with some specific revision
6448 } else {
6450 }
6451 } else {
6452 # comparing working directory with index
6455 lappend cmd -R
6456 }
6457 }
6461 # comparing index with specific revision
6464 } else {
6466 }
6467 } else {
6468 # comparing index with HEAD
6469 lappend cmd HEAD
6470 }
6471 } else {
6473 }
6475 }
6477 proc gettreediffs {ids} {
6478 global treediff treepending
6483 set treediff {}
6486 }
6488 proc gettreediffline {gdtf ids} {
6489 global treediff treediffs treepending diffids diffmergeid
6490 global cmitmode vfilelimit curview limitdiffs
6492 set nr 0
6499 }
6501 }
6502 }
6505 }
6508 set flist {}
6512 }
6513 }
6515 } else {
6517 }
6518 unset treepending
6522 if {![info exists diffmergeid]} {
6524 }
6525 } else {
6527 }
6528 return 0
6529 }
6531 # empty string or positive integer
6532 proc diffcontextvalidate {v} {
6534 }
6536 proc diffcontextchange {n1 n2 op} {
6537 global diffcontextstring diffcontext
6542 reselectline
6543 }
6544 }
6545 }
6547 proc changeignorespace {} {
6548 reselectline
6549 }
6551 proc getblobdiffs {ids} {
6552 global blobdifffd diffids env
6553 global diffinhdr treediffs
6554 global diffcontext
6555 global ignorespace
6556 global limitdiffs vfilelimit curview
6560 append cmd " -w"
6561 }
6564 }
6567 return
6568 }
6569 set diffinhdr 0
6573 }
6575 proc setinlist {var i val} {
6580 }
6583 } else {
6585 }
6586 }
6588 proc makediffhdr {fname ids} {
6589 global ctext curdiffstart treediffs
6594 }
6598 }
6600 proc getblobdiffline {bdf ids} {
6601 global diffids blobdifffd ctext curdiffstart
6602 global diffnexthead diffnextnote difffilestart
6603 global diffinhdr treediffs
6605 set nr 0
6610 return 0
6611 }
6613 # trim off "diff --git "
6615 set diffinhdr 1
6616 # start of a new file
6620 # If the name hasn't changed the length will be odd,
6621 # the middle char will be a space, and the two bits either
6622 # side will be a/name and b/name, or "a/name" and "b/name".
6623 # If the name has changed we'll get "rename from" and
6624 # "rename to" or "copy from" and "copy to" lines following this,
6625 # and we'll use them to get the filenames.
6626 # This complexity is necessary because spaces in the filename(s)
6627 # don't get escaped.
6633 continue
6634 }
6635 # unescape if quoted and chop off the a/ from the front
6638 } else {
6640 }
6643 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6646 set diffinhdr 0
6653 }
6657 }
6663 }
6666 # do nothing
6667 continue
6669 set diffinhdr 0
6670 continue
6671 }
6674 } else {
6681 } else {
6682 # "\ No newline at end of file",
6683 # or something else we don't recognize
6685 }
6686 }
6687 }
6691 return 0
6692 }
6694 }
6696 proc changediffdisp {} {
6697 global ctext diffelide
6701 }
6703 proc highlightfile {loc cline} {
6704 global ctext cflist cflist_top
6711 }
6713 proc prevfile {} {
6714 global difffilestart ctext cmitmode
6717 set prev 0.0
6718 set prevline 1
6723 return
6724 }
6726 incr prevline
6727 }
6729 }
6731 proc nextfile {} {
6732 global difffilestart ctext cmitmode
6736 set line 1
6738 incr line
6741 return
6742 }
6743 }
6744 }
6746 proc clear_ctext {{first 1.0}} {
6747 global ctext smarktop smarkbot
6748 global pendinglinks
6753 }
6756 }
6759 catch {unset pendinglinks}
6760 }
6761 }
6763 proc settabs {{firstab {}}} {
6764 global firsttabstop tabstop ctext have_tk85
6768 }
6769 set w [font measure textfont "0"]
6775 } else {
6777 }
6778 }
6780 proc incrsearch {name ix op} {
6781 global ctext searchstring searchdirn
6785 # no anchor set, use start of selection, or of visible area
6791 } else {
6793 }
6794 }
6799 }
6800 searchmarkvisible 1
6801 }
6802 }
6804 proc dosearch {} {
6805 global sstring ctext searchstring searchdirn
6809 set searchdirn -forwards
6815 set start "@0,0"
6816 }
6820 bell
6821 return
6822 }
6827 }
6828 }
6830 proc dosearchback {} {
6831 global sstring ctext searchstring searchdirn
6835 set searchdirn -backwards
6842 }
6846 bell
6847 return
6848 }
6853 }
6854 }
6856 proc searchmark {first last} {
6857 global ctext searchstring
6860 while {1} {
6865 }
6866 }
6868 proc searchmarkvisible {doall} {
6869 global ctext smarktop smarkbot
6874 # no overlap with previous
6878 } else {
6882 }
6886 }
6887 }
6888 }
6890 proc scrolltext {f0 f1} {
6891 global searchstring
6895 searchmarkvisible 0
6896 }
6897 }
6899 proc setcoords {} {
6900 global linespc charspc canvx0 canvy0
6901 global xspc1 xspc2 lthickness
6903 set linespc [font metrics mainfont -linespace]
6904 set charspc [font measure mainfont "m"]
6910 }
6912 proc redisplay {} {
6913 global canv
6914 global selectedline
6919 clear_display
6920 setcanvscroll
6922 drawvisible
6926 }
6927 }
6929 proc parsefont {f n} {
6930 global fontattr
6935 set s 10
6938 }
6944 "normal" -
6946 "roman" -
6948 }
6949 }
6950 }
6952 proc fontflags {f {isbold 0}} {
6953 global fontattr
6958 }
6960 proc fontname {f} {
6961 global fontattr
6965 lappend n "bold"
6966 }
6968 lappend n "italic"
6969 }
6971 }
6973 proc incrfont {inc} {
6974 global mainfont textfont ctext canv cflist showrefstop
6975 global stopped entries fontattr
6977 unmarkmatches
6981 set s 1
6982 }
6986 set mainfont [fontname mainfont]
6990 set s 1
6991 }
6995 set textfont [fontname textfont]
6996 setcoords
6997 settabs
6998 redisplay
6999 }
7001 proc clearsha1 {} {
7002 global sha1entry sha1string
7005 }
7006 }
7008 proc sha1change {n1 n2 op} {
7009 global sha1string currentid sha1but
7012 set state disabled
7013 } else {
7014 set state normal
7015 }
7019 } else {
7021 }
7022 }
7024 proc gotocommit {} {
7025 global sha1string tagids headids curview varcid
7033 } else {
7040 return
7041 }
7043 }
7044 }
7045 }
7048 return
7049 }
7052 } else {
7054 }
7056 }
7058 proc lineenter {x y id} {
7059 global hoverx hovery hoverid hovertimer
7060 global commitinfo canv
7066 if {[info exists hovertimer]} {
7068 }
7069 set hovertimer [after 500 linehover]
7071 }
7073 proc linemotion {x y id} {
7074 global hoverx hovery hoverid hovertimer
7079 if {[info exists hovertimer]} {
7081 }
7082 set hovertimer [after 500 linehover]
7083 }
7084 }
7086 proc lineleave {id} {
7087 global hoverid hovertimer canv
7091 if {[info exists hovertimer]} {
7093 unset hovertimer
7094 }
7095 unset hoverid
7096 }
7097 }
7099 proc linehover {} {
7100 global hoverx hovery hoverid hovertimer
7101 global canv linespc lthickness
7102 global commitinfo
7115 -fill \#ffff80 -outline black -width 1 -tags hover]
7118 -font mainfont]
7120 }
7122 proc clickisonarrow {id y} {
7123 global lthickness
7132 }
7133 }
7134 return {}
7135 }
7137 proc arrowjump {id n y} {
7138 global canv
7140 # 1 <-> 2, 3 <-> 4, etc...
7150 set yfrac 0
7151 }
7153 }
7155 proc lineclick {x y id isnew} {
7156 global ctext commitinfo children canv thickerline curview
7159 unmarkmatches
7160 unselectline
7161 normalline
7163 # draw this line thicker than normal
7171 }
7175 return
7176 }
7180 }
7181 # fill the details pane with info about this line
7183 clear_ctext
7184 settabs 0
7196 set i 0
7198 incr i
7208 }
7209 }
7211 init_flist {}
7212 }
7214 proc normalline {} {
7215 global thickerline
7216 if {[info exists thickerline]} {
7218 unset thickerline
7220 }
7221 }
7223 proc selbyid {id} {
7224 global curview
7227 }
7228 }
7230 proc mstime {} {
7231 global startmstime
7232 if {![info exists startmstime]} {
7233 set startmstime [clock clicks -milliseconds]
7234 }
7236 }
7238 proc rowmenu {x y id} {
7239 global rowctxmenu selectedline rowmenuid curview
7240 global nullid nullid2 fakerowmenu mainhead
7242 stopfinding
7245 set state disabled
7246 } else {
7247 set state normal
7248 }
7253 } else {
7255 }
7256 } else {
7258 }
7263 }
7265 proc diffvssel {dirn} {
7266 global rowmenuid selectedline
7272 } else {
7275 }
7278 }
7280 proc doseldiff {oldid newid} {
7281 global ctext
7282 global commitinfo
7285 clear_ctext
7286 init_flist [mc "Top"]
7301 }
7303 proc mkpatch {} {
7304 global rowmenuid currentid commitinfo patchtop patchnum
7306 if {![info exists currentid]} return
7311 set top .patch
7340 incr patchnum
7350 }
7352 proc mkpatchrev {} {
7353 global patchtop
7359 foreach e [list fromsha1 fromhead tosha1 tohead] \
7365 }
7366 }
7368 proc mkpatchgo {} {
7369 global patchtop nullid nullid2
7375 # trim off the initial "|"
7380 }
7382 unset patchtop
7383 }
7385 proc mkpatchcan {} {
7386 global patchtop
7389 unset patchtop
7390 }
7392 proc mktag {} {
7393 global rowmenuid mktagtop commitinfo
7395 set top .maketag
7421 }
7423 proc domktag {} {
7424 global mktagtop env tagids idtags
7429 error_popup [mc "No tag name specified"]
7430 return
7431 }
7434 return
7435 }
7436 if {[catch {
7438 } err]} {
7440 return
7441 }
7447 dispneartags 0
7448 run refill_reflist
7449 }
7451 proc redrawtags {id} {
7452 global canv linehtag idpos currentid curview cmitlisted
7453 global canvxmax iddrawn circleitem mainheadid circlecolors
7459 set ofill yellow
7460 } else {
7462 }
7472 setcanvscroll
7473 }
7476 }
7477 }
7479 proc mktagcan {} {
7480 global mktagtop
7483 unset mktagtop
7484 }
7486 proc mktaggo {} {
7487 domktag
7488 mktagcan
7489 }
7491 proc writecommit {} {
7492 global rowmenuid wrcomtop commitinfo wrcomcmd
7494 set top .writecommit
7524 }
7526 proc wrcomgo {} {
7527 global wrcomtop
7534 }
7536 unset wrcomtop
7537 }
7539 proc wrcomcan {} {
7540 global wrcomtop
7543 unset wrcomtop
7544 }
7546 proc mkbranch {} {
7547 global rowmenuid mkbrtop
7549 set top .makebranch
7570 }
7572 proc mkbrgo {top} {
7573 global headids idheads
7578 error_popup [mc "Please specify a name for the new branch"]
7579 return
7580 }
7582 nowbusy newbranch
7583 update
7584 if {[catch {
7586 } err]} {
7587 notbusy newbranch
7589 } else {
7593 notbusy newbranch
7595 dispneartags 0
7596 run refill_reflist
7597 }
7598 }
7600 proc cherrypick {} {
7601 global rowmenuid curview
7602 global mainhead mainheadid
7604 set oldhead [exec git rev-parse HEAD]
7607 set ok [confirm_popup [mc "Commit %s is already\
7608 included in branch %s -- really re-apply it?" \
7611 }
7612 nowbusy cherrypick [mc "Cherry-picking"]
7613 update
7614 # Unfortunately git-cherry-pick writes stuff to stderr even when
7615 # no error occurs, and exec takes that as an indication of error...
7617 notbusy cherrypick
7619 return
7620 }
7621 set newhead [exec git rev-parse HEAD]
7623 notbusy cherrypick
7624 error_popup [mc "No changes committed"]
7625 return
7626 }
7633 }
7638 }
7639 notbusy cherrypick
7640 }
7642 proc resethead {} {
7643 global mainhead rowmenuid confirm_ok resettype
7645 set confirm_ok 0
7646 set w ".confirmreset"
7652 -justify center -aspect 1000
7657 set resettype mixed
7659 -text [mc "Soft: Leave working tree and index untouched"]
7662 -text [mc "Mixed: Leave working tree untouched, reset index"]
7665 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7675 if {[catch {set fd [open \
7678 } else {
7679 dohidelocalchanges
7681 nowbusy reset [mc "Resetting"]
7683 }
7684 }
7686 proc readresetstat {fd} {
7687 global mainhead mainheadid showlocalchanges rprogcoord
7692 adjustprogress
7693 }
7694 return 1
7695 }
7696 set rprogcoord 0
7697 adjustprogress
7698 notbusy reset
7701 }
7703 set newhead [exec git rev-parse HEAD]
7710 }
7712 doshowlocalchanges
7713 }
7714 return 0
7715 }
7717 # context menu for a head
7718 proc headmenu {x y id head} {
7719 global headmenuid headmenuhead headctxmenu mainhead
7721 stopfinding
7724 set state normal
7726 set state disabled
7727 }
7731 }
7733 proc cobranch {} {
7734 global headmenuid headmenuhead headids
7735 global showlocalchanges mainheadid
7737 # check the tree is clean first??
7738 nowbusy checkout [mc "Checking out"]
7739 update
7740 dohidelocalchanges
7741 if {[catch {
7743 } err]} {
7744 notbusy checkout
7747 dodiffindex
7748 }
7749 } else {
7751 }
7752 }
7754 proc readcheckoutstat {fd newhead newheadid} {
7755 global mainhead mainheadid headids showlocalchanges progresscoords
7760 adjustprogress
7761 }
7762 return 1
7763 }
7764 set progresscoords {0 0}
7765 adjustprogress
7766 notbusy checkout
7769 }
7777 dodiffindex
7778 }
7779 }
7781 proc rmbranch {} {
7782 global headmenuid headmenuhead mainhead
7783 global idheads
7787 # this check shouldn't be needed any more...
7789 error_popup [mc "Cannot delete the currently checked-out branch"]
7790 return
7791 }
7794 # the stuff on this branch isn't on any other branch
7795 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7797 }
7798 nowbusy rmbranch
7799 update
7801 notbusy rmbranch
7803 return
7804 }
7808 notbusy rmbranch
7809 dispneartags 0
7810 run refill_reflist
7811 }
7813 # Display a list of tags and heads
7814 proc showrefs {} {
7815 global showrefstop bgcolor fgcolor selectbgcolor
7816 global bglist fglist reflistfilter reflist maincursor
7818 set top .showrefs
7822 refill_reflist
7823 return
7824 }
7831 -spacing1 1 -spacing3 1 -state disabled
7842 set reflistfilter "*"
7843 trace add variable reflistfilter write reflistfilter_change
7854 set reflist {}
7855 refill_reflist
7856 }
7858 proc sel_reflist {w x y} {
7859 global showrefstop reflist headids tagids otherrefids
7869 }
7871 }
7873 proc unsel_reflist {} {
7874 global showrefstop
7878 }
7880 proc reflistfilter_change {n1 n2 op} {
7881 global reflistfilter
7883 after cancel refill_reflist
7884 after 200 refill_reflist
7885 }
7887 proc refill_reflist {} {
7888 global reflist reflistfilter showrefstop headids tagids otherrefids
7889 global curview commitinterest
7892 set refs {}
7893 foreach n [array names headids] {
7897 } else {
7899 }
7900 }
7901 }
7902 foreach n [array names tagids] {
7906 } else {
7908 }
7909 }
7910 }
7911 foreach n [array names otherrefids] {
7915 } else {
7917 }
7918 }
7919 }
7927 set i 0
7928 set j 0
7937 }
7938 } else {
7939 set cmp -1
7940 }
7941 } else {
7942 set cmp 1
7943 }
7945 -1 {
7947 incr i
7948 }
7949 0 {
7950 incr i
7951 incr j
7952 }
7953 1 {
7958 incr j
7959 }
7960 }
7961 }
7963 # delete last newline
7966 }
7968 # Stuff for finding nearby tags
7969 proc getallcommits {} {
7970 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7971 global idheads idtags idotherrefs allparents tagobjid
7973 if {![info exists allcommits]} {
7974 set nextarc 0
7975 set allcommits 0
7976 set seeds {}
7977 set allcwait 0
7978 set cachedarcs 0
7979 set allccache [file join [gitdir] "gitk.cache"]
7980 if {![catch {
7982 set allcwait 1
7984 }]} return
7985 }
7988 return
7989 }
7990 set cmd [list | git rev-list --parents]
7993 set ids "--all"
7994 } else {
7995 set refs [concat [array names idheads] [array names idtags] \
7996 [array names idotherrefs]]
7997 set ids {}
7998 set tagobjs {}
7999 foreach name [array names tagobjid] {
8001 }
8006 }
8007 }
8011 }
8012 }
8013 }
8017 incr allcommits
8018 nowbusy allcommits
8020 } else {
8021 dispneartags 0
8022 }
8023 }
8025 # Since most commits have 1 parent and 1 child, we group strings of
8026 # such commits into "arcs" joining branch/merge points (BMPs), which
8027 # are commits that either don't have 1 parent or don't have 1 child.
8028 #
8029 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8030 # arcout(id) - outgoing arcs for BMP
8031 # arcids(a) - list of IDs on arc including end but not start
8032 # arcstart(a) - BMP ID at start of arc
8033 # arcend(a) - BMP ID at end of arc
8034 # growing(a) - arc a is still growing
8035 # arctags(a) - IDs out of arcids (excluding end) that have tags
8036 # archeads(a) - IDs out of arcids (excluding end) that have heads
8037 # The start of an arc is at the descendent end, so "incoming" means
8038 # coming from descendents, and "outgoing" means going towards ancestors.
8040 proc getallclines {fd} {
8041 global allparents allchildren idtags idheads nextarc
8042 global arcnos arcids arctags arcout arcend arcstart archeads growing
8043 global seeds allcommits cachedarcs allcupdate
8045 set nid 0
8049 # seen it already
8050 continue
8051 }
8052 set cachedarcs 0
8059 } else {
8065 }
8068 }
8070 # seen parent already
8073 }
8077 }
8080 continue
8081 }
8082 }
8087 }
8089 set ao {}
8092 set a [incr nextarc]
8101 # seen it already, may need to make a new branch
8104 }
8108 }
8110 }
8112 }
8114 global cached_dheads cached_dtags cached_atags
8115 catch {unset cached_dheads}
8116 catch {unset cached_dtags}
8117 catch {unset cached_atags}
8118 }
8121 }
8122 set cacheok 1
8123 if {[catch {
8126 } err]} {
8127 # got an error reading the list of commits
8128 # if we were updating, try rereading the whole thing again
8130 incr allcommits -1
8132 return
8133 }
8134 error_popup "[mc "Error reading commit topology information;\
8135 branch and preceding/following tag information\
8137 set cacheok 0
8138 }
8139 if {[incr allcommits -1] == 0} {
8140 notbusy allcommits
8142 run savecache
8143 }
8144 }
8145 dispneartags 0
8146 return 0
8147 }
8149 proc recalcarc {a} {
8150 global arctags archeads arcids idtags idheads
8152 set at {}
8153 set ah {}
8157 }
8160 }
8161 }
8164 }
8166 proc splitarc {p} {
8167 global arcnos arcids nextarc arctags archeads idtags idheads
8168 global arcstart arcend arcout allparents growing
8173 return
8174 }
8179 return
8180 }
8181 set na [incr nextarc]
8184 } else {
8188 }
8198 }
8203 } else {
8206 }
8207 }
8209 # reconstruct tags and heads lists
8213 } else {
8216 }
8217 }
8219 # Update things for a new commit added that is a child of one
8220 # existing commit. Used when cherry-picking.
8221 proc addnewchild {id p} {
8222 global allparents allchildren idtags nextarc
8223 global arcnos arcids arctags arcout arcend arcstart archeads growing
8224 global seeds allcommits
8232 set a [incr nextarc]
8240 }
8243 }
8245 # This implements a cache for the topology information.
8246 # The cache saves, for each arc, the start and end of the arc,
8247 # the ids on the arc, and the outgoing arcs from the end.
8248 proc readcache {f} {
8249 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8250 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8251 global allcwait
8257 }
8258 if {[catch {
8260 # finish reading the cache and setting up arctags, etc.
8264 foreach id [array names idtags] {
8270 }
8271 }
8272 }
8273 foreach id [array names idheads] {
8279 }
8280 }
8281 }
8285 }
8286 }
8287 set allcwait 0
8288 } else {
8298 }
8302 } else {
8306 }
8307 }
8313 }
8316 }
8319 }
8321 }
8322 } err]} {
8324 return 0
8325 }
8327 getallcommits
8328 }
8330 }
8332 proc getcache {f} {
8333 global nextarc cachedarcs possible_seeds
8335 if {[catch {
8338 # make sure it's an integer
8341 set nextarc 0
8342 set possible_seeds {}
8344 } err]} {
8346 }
8347 return 0
8348 }
8350 proc dropcache {err} {
8351 global allcwait nextarc cachedarcs seeds
8354 foreach v {arcnos arcout arcids arcstart arcend growing \
8355 arctags archeads allparents allchildren} {
8358 }
8359 set allcwait 0
8360 set nextarc 0
8361 set cachedarcs 0
8362 set seeds {}
8363 getallcommits
8364 }
8366 proc writecache {f} {
8367 global cachearc cachedarcs allccache
8368 global arcstart arcend arcnos arcids arcout
8374 }
8375 if {[catch {
8379 } else {
8381 }
8382 }
8383 } err]} {
8387 return 0
8388 }
8393 return 0
8394 }
8395 return 1
8396 }
8398 proc savecache {} {
8399 global nextarc cachedarcs cachearc allccache
8402 set cachearc 0
8404 catch {
8408 }
8409 }
8411 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8412 # or 0 if neither is true.
8413 proc anc_or_desc {a b} {
8414 global arcout arcstart arcend arcnos cached_isanc
8417 # Both are on the same arc(s); either both are the same BMP,
8418 # or if one is not a BMP, the other is also not a BMP or is
8419 # the BMP at end of the arc (and it only has 1 incoming arc).
8420 # Or both can be BMPs with no incoming arcs.
8422 return 0
8423 }
8429 return 1
8430 } else {
8431 return -1
8432 }
8433 }
8439 } else {
8440 set aend {}
8441 }
8443 } else {
8445 }
8450 } else {
8451 set bend {}
8452 }
8454 } else {
8456 }
8458 return 1
8459 }
8461 return -1
8462 }
8465 return 1
8466 }
8467 }
8470 return -1
8471 }
8473 return 0
8474 }
8475 }
8483 continue
8484 }
8490 return 1
8494 return -1
8495 }
8501 }
8502 }
8503 }
8506 return 0
8507 }
8511 # and returns 0 if so and 1 if not.
8512 # If we subsequently discover a tag on such a growing tip, and that
8515 # isn't a good choice to display as a descendent tag of
8519 #
8520 proc is_certain {desc anc} {
8521 global arcnos arcout arcstart arcend growing problems
8523 set certain {}
8525 # tags on the same arc are certain
8527 return 1
8528 }
8533 }
8534 }
8537 } else {
8540 }
8542 return 1
8543 }
8546 set nnh 1
8547 set ngrowanc 0
8551 incr nnh -1
8552 }
8558 incr ngrowanc
8559 }
8560 } else {
8567 incr nnh -1
8568 }
8570 incr ngrowanc -1
8571 }
8581 incr nnh -1
8582 }
8584 incr ngrowanc -1
8585 }
8587 }
8588 }
8589 }
8590 }
8591 }
8592 }
8596 } else {
8599 incr nnh
8600 }
8601 }
8602 }
8603 }
8604 foreach x [array names growanc] {
8606 return 0
8607 }
8608 return 0
8609 }
8610 return 1
8611 }
8613 proc validate_arctags {a} {
8614 global arctags idtags
8616 set i -1
8619 incr i
8622 incr i -1
8623 }
8624 }
8626 }
8628 proc validate_archeads {a} {
8629 global archeads idheads
8631 set i -1
8634 incr i
8637 incr i -1
8638 }
8639 }
8641 }
8643 # Return the list of IDs that have tags that are descendents of id,
8644 # ignoring IDs that are descendents of IDs already reported.
8645 proc desctags {id} {
8646 global arcnos arcstart arcids arctags idtags allparents
8647 global growing cached_dtags
8650 return {}
8651 }
8652 set t1 [clock clicks -milliseconds]
8655 # part-way along an arc; check that arc first
8660 set tid {}
8665 }
8668 }
8669 }
8673 }
8674 }
8677 }
8682 set nc 1
8688 incr nc -1
8689 }
8690 # ignore tags on starting node
8694 set ta 1
8697 set ta 1
8698 }
8699 }
8706 }
8707 }
8716 }
8719 }
8721 incr nc -1
8722 }
8724 }
8725 }
8726 }
8731 incr nc
8732 }
8733 }
8734 }
8735 }
8736 set tags {}
8737 foreach id [array names tagloc] {
8742 }
8743 }
8744 }
8745 }
8746 set t2 [clock clicks -milliseconds]
8749 # remove tags that are descendents of other tags
8757 incr j -1
8758 incr i -1
8761 incr i -1
8762 break
8763 }
8764 }
8765 }
8767 if {[array names growing] ne {}} {
8768 # graph isn't finished, need to check if any tag could get
8769 # eclipsed by another tag coming later. Simply ignore any
8770 # tags that could later get eclipsed.
8771 set ctags {}
8775 }
8776 }
8779 } else {
8781 }
8782 } else {
8784 }
8785 set t3 [clock clicks -milliseconds]
8789 }
8791 }
8793 proc anctags {id} {
8794 global arcnos arcids arcout arcend arctags idtags allparents
8795 global growing cached_atags
8798 return {}
8799 }
8800 set t1 [clock clicks -milliseconds]
8803 # part-way along an arc; check that arc first
8812 }
8813 }
8814 }
8816 return {}
8817 }
8821 }
8822 }
8825 }
8830 set taglist {}
8831 set nc 1
8837 incr nc -1
8838 }
8839 # ignore tags on starting node
8843 set td 1
8846 set td 1
8847 }
8848 }
8854 }
8855 }
8867 }
8868 }
8871 }
8873 incr nc -1
8874 }
8876 }
8877 }
8878 }
8883 incr nc
8884 }
8885 }
8886 }
8887 }
8888 set t2 [clock clicks -milliseconds]
8890 set tags {}
8891 foreach id [array names tagloc] {
8896 }
8897 }
8898 }
8899 }
8901 # remove tags that are ancestors of other tags
8909 incr j -1
8910 incr i -1
8913 incr i -1
8914 break
8915 }
8916 }
8917 }
8919 if {[array names growing] ne {}} {
8920 # graph isn't finished, need to check if any tag could get
8921 # eclipsed by another tag coming later. Simply ignore any
8922 # tags that could later get eclipsed.
8923 set ctags {}
8927 }
8928 }
8931 } else {
8933 }
8934 } else {
8936 }
8937 set t3 [clock clicks -milliseconds]
8941 }
8943 }
8945 # Return the list of IDs that have heads that are descendents of id,
8946 # including id itself if it has a head.
8947 proc descheads {id} {
8948 global arcnos arcstart arcids archeads idheads cached_dheads
8949 global allparents
8952 return {}
8953 }
8954 set aret {}
8956 # part-way along an arc; check it first
8965 }
8966 }
8968 }
8972 set ret {}
8977 } else {
8980 }
8986 }
8987 }
8992 }
8993 }
8994 }
8995 }
8999 }
9001 proc addedtag {id} {
9002 global arcnos arcout cached_dtags cached_atags
9007 }
9008 catch {unset cached_dtags}
9009 catch {unset cached_atags}
9010 }
9012 proc addedhead {hid head} {
9013 global arcnos arcout cached_dheads
9018 }
9019 catch {unset cached_dheads}
9020 }
9022 proc removedhead {hid head} {
9023 global cached_dheads
9025 catch {unset cached_dheads}
9026 }
9028 proc movedhead {hid head} {
9029 global arcnos arcout cached_dheads
9034 }
9035 catch {unset cached_dheads}
9036 }
9038 proc changedrefs {} {
9039 global cached_dheads cached_dtags cached_atags
9040 global arctags archeads arcnos arcout idheads idtags
9042 foreach id [concat [array names idheads] [array names idtags]] {
9048 }
9049 }
9050 }
9051 catch {unset cached_dtags}
9052 catch {unset cached_atags}
9053 catch {unset cached_dheads}
9054 }
9056 proc rereadrefs {} {
9057 global idtags idheads idotherrefs mainheadid
9059 set refids [concat [array names idtags] \
9060 [array names idheads] [array names idotherrefs]]
9064 }
9065 }
9067 readrefs
9068 changedrefs
9070 [array names idheads] [array names idotherrefs]]]
9075 }
9076 }
9080 }
9081 run refill_reflist
9082 }
9084 proc listrefs {id} {
9085 global idtags idheads idotherrefs
9087 set x {}
9090 }
9091 set y {}
9094 }
9095 set z {}
9098 }
9100 }
9102 proc showtag {tag isnew} {
9103 global ctext tagcontents tagids linknum tagobjid
9107 }
9109 clear_ctext
9110 settabs 0
9111 set linknum 0
9113 catch {
9115 }
9116 }
9119 } else {
9121 }
9124 init_flist {}
9125 }
9127 proc doquit {} {
9128 global stopped
9129 global gitktmpdir
9131 set stopped 100
9132 savestuff .
9133 destroy .
9135 if {[info exists gitktmpdir]} {
9137 }
9138 }
9140 proc mkfontdisp {font top which} {
9149 }
9151 proc choosefont {font which} {
9152 global fontparam fontlist fonttop fontattr
9160 set top .gitkfont
9163 font create sample
9169 set fontlist [lsort [font families]]
9180 -textvariable fontparam(size) \
9181 -validatecommand {string is integer -strict %s}
9183 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9184 -variable fontparam(weight) -onvalue bold -offvalue normal
9186 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9187 -variable fontparam(slant) -onvalue italic -offvalue roman
9191 -background white
9193 -fill black -tags text
9203 trace add variable fontparam write chg_fontparam
9204 } else {
9207 }
9212 }
9213 }
9215 proc centertext {w} {
9217 }
9219 proc fontok {} {
9220 global fontparam fontpref prefstop
9226 }
9229 }
9233 fontcan
9234 }
9236 proc fontcan {} {
9237 global fonttop fontparam
9239 if {[info exists fonttop]} {
9241 catch {font delete sample}
9242 unset fonttop
9243 unset fontparam
9244 }
9245 }
9247 proc selfontfam {} {
9248 global fonttop fontparam
9253 }
9254 }
9256 proc chg_fontparam {v sub op} {
9257 global fontparam
9260 }
9262 proc doprefs {} {
9263 global maxwidth maxgraphpct
9264 global oldprefs prefstop showneartags showlocalchanges
9265 global bgcolor fgcolor ctext diffcolors selectbgcolor
9266 global tabstop limitdiffs autoselect extdifftool
9268 set top .gitkprefs
9272 return
9273 }
9274 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9275 limitdiffs tabstop} {
9277 }
9284 -font optionfont
9288 -font optionfont
9321 -padx 10
9323 -command choose_extdiff
9350 "diff hunk header" \
9372 }
9374 proc choose_extdiff {} {
9375 global extdifftool
9377 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9380 }
9381 }
9383 proc choosecolor {v vi w x cmd} {
9392 }
9394 proc setselbg {c} {
9395 global bglist cflist
9398 }
9402 }
9404 proc setbg {c} {
9405 global bglist
9409 }
9410 }
9412 proc setfg {c} {
9413 global fglist canv
9417 }
9420 }
9422 proc prefscan {} {
9423 global oldprefs prefstop
9425 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9426 limitdiffs tabstop} {
9429 }
9431 unset prefstop
9432 fontcan
9433 }
9435 proc prefsok {} {
9436 global maxwidth maxgraphpct
9437 global oldprefs prefstop showneartags showlocalchanges
9438 global fontpref mainfont textfont uifont
9439 global limitdiffs treediffs
9442 unset prefstop
9443 fontcan
9444 set fontchanged 0
9448 eval font configure mainfont [fontflags mainfont]
9449 eval font configure mainfontbold [fontflags mainfont 1]
9450 setcoords
9451 set fontchanged 1
9452 }
9456 eval font configure textfont [fontflags textfont]
9457 eval font configure textfontbold [fontflags textfont 1]
9458 }
9462 eval font configure uifont [fontflags uifont]
9463 }
9464 settabs
9467 doshowlocalchanges
9468 } else {
9469 dohidelocalchanges
9470 }
9471 }
9473 # treediffs elements are limited by path
9474 catch {unset treediffs}
9475 }
9478 redisplay
9481 reselectline
9482 }
9483 }
9485 proc formatdate {d} {
9486 global datetimeformat
9489 }
9491 }
9493 # This list of encoding names and aliases is distilled from
9494 # http://www.iana.org/assignments/character-sets.
9495 # Not all of them are supported by Tcl.
9496 set encoding_aliases {
9497 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9498 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9499 { ISO-10646-UTF-1 csISO10646UTF1 }
9500 { ISO_646.basic:1983 ref csISO646basic1983 }
9501 { INVARIANT csINVARIANT }
9502 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9503 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9504 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9505 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9506 { NATS-DANO iso-ir-9-1 csNATSDANO }
9507 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9508 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9509 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9510 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9511 { ISO-2022-KR csISO2022KR }
9512 { EUC-KR csEUCKR }
9513 { ISO-2022-JP csISO2022JP }
9514 { ISO-2022-JP-2 csISO2022JP2 }
9515 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9516 csISO13JISC6220jp }
9517 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9518 { IT iso-ir-15 ISO646-IT csISO15Italian }
9519 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9520 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9521 { greek7-old iso-ir-18 csISO18Greek7Old }
9522 { latin-greek iso-ir-19 csISO19LatinGreek }
9523 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9524 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9525 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9526 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9527 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9528 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9529 { INIS iso-ir-49 csISO49INIS }
9530 { INIS-8 iso-ir-50 csISO50INIS8 }
9531 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9532 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9533 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9534 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9535 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9536 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9537 csISO60Norwegian1 }
9538 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9539 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9540 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9541 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9542 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9543 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9544 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9545 { greek7 iso-ir-88 csISO88Greek7 }
9546 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9547 { iso-ir-90 csISO90 }
9548 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9549 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9550 csISO92JISC62991984b }
9551 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9552 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9553 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9554 csISO95JIS62291984handadd }
9555 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9556 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9557 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9558 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9559 CP819 csISOLatin1 }
9560 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9561 { T.61-7bit iso-ir-102 csISO102T617bit }
9562 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9563 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9564 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9565 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9566 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9567 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9568 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9569 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9570 arabic csISOLatinArabic }
9571 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9572 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9573 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9574 greek greek8 csISOLatinGreek }
9575 { T.101-G2 iso-ir-128 csISO128T101G2 }
9576 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9577 csISOLatinHebrew }
9578 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9579 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9580 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9581 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9582 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9583 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9584 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9585 csISOLatinCyrillic }
9586 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9587 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9588 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9589 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9590 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9591 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9592 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9593 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9594 { ISO_10367-box iso-ir-155 csISO10367Box }
9595 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9596 { latin-lap lap iso-ir-158 csISO158Lap }
9597 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9598 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9599 { us-dk csUSDK }
9600 { dk-us csDKUS }
9601 { JIS_X0201 X0201 csHalfWidthKatakana }
9602 { KSC5636 ISO646-KR csKSC5636 }
9603 { ISO-10646-UCS-2 csUnicode }
9604 { ISO-10646-UCS-4 csUCS4 }
9605 { DEC-MCS dec csDECMCS }
9606 { hp-roman8 roman8 r8 csHPRoman8 }
9607 { macintosh mac csMacintosh }
9608 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9609 csIBM037 }
9610 { IBM038 EBCDIC-INT cp038 csIBM038 }
9611 { IBM273 CP273 csIBM273 }
9612 { IBM274 EBCDIC-BE CP274 csIBM274 }
9613 { IBM275 EBCDIC-BR cp275 csIBM275 }
9614 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9615 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9616 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9617 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9618 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9619 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9620 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9621 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9622 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9623 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9624 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9625 { IBM437 cp437 437 csPC8CodePage437 }
9626 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9627 { IBM775 cp775 csPC775Baltic }
9628 { IBM850 cp850 850 csPC850Multilingual }
9629 { IBM851 cp851 851 csIBM851 }
9630 { IBM852 cp852 852 csPCp852 }
9631 { IBM855 cp855 855 csIBM855 }
9632 { IBM857 cp857 857 csIBM857 }
9633 { IBM860 cp860 860 csIBM860 }
9634 { IBM861 cp861 861 cp-is csIBM861 }
9635 { IBM862 cp862 862 csPC862LatinHebrew }
9636 { IBM863 cp863 863 csIBM863 }
9637 { IBM864 cp864 csIBM864 }
9638 { IBM865 cp865 865 csIBM865 }
9639 { IBM866 cp866 866 csIBM866 }
9640 { IBM868 CP868 cp-ar csIBM868 }
9641 { IBM869 cp869 869 cp-gr csIBM869 }
9642 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9643 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9644 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9645 { IBM891 cp891 csIBM891 }
9646 { IBM903 cp903 csIBM903 }
9647 { IBM904 cp904 904 csIBBM904 }
9648 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9649 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9650 { IBM1026 CP1026 csIBM1026 }
9651 { EBCDIC-AT-DE csIBMEBCDICATDE }
9652 { EBCDIC-AT-DE-A csEBCDICATDEA }
9653 { EBCDIC-CA-FR csEBCDICCAFR }
9654 { EBCDIC-DK-NO csEBCDICDKNO }
9655 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9656 { EBCDIC-FI-SE csEBCDICFISE }
9657 { EBCDIC-FI-SE-A csEBCDICFISEA }
9658 { EBCDIC-FR csEBCDICFR }
9659 { EBCDIC-IT csEBCDICIT }
9660 { EBCDIC-PT csEBCDICPT }
9661 { EBCDIC-ES csEBCDICES }
9662 { EBCDIC-ES-A csEBCDICESA }
9663 { EBCDIC-ES-S csEBCDICESS }
9664 { EBCDIC-UK csEBCDICUK }
9665 { EBCDIC-US csEBCDICUS }
9666 { UNKNOWN-8BIT csUnknown8BiT }
9667 { MNEMONIC csMnemonic }
9668 { MNEM csMnem }
9669 { VISCII csVISCII }
9670 { VIQR csVIQR }
9671 { KOI8-R csKOI8R }
9672 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9673 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9674 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9675 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9676 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9677 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9678 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9679 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9680 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9681 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9682 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9683 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9684 { IBM1047 IBM-1047 }
9685 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9686 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9687 { UNICODE-1-1 csUnicode11 }
9688 { CESU-8 csCESU-8 }
9689 { BOCU-1 csBOCU-1 }
9690 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9691 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9692 l8 }
9693 { ISO-8859-15 ISO_8859-15 Latin-9 }
9694 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9695 { GBK CP936 MS936 windows-936 }
9696 { JIS_Encoding csJISEncoding }
9697 { Shift_JIS MS_Kanji csShiftJIS }
9698 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9699 EUC-JP }
9700 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9701 { ISO-10646-UCS-Basic csUnicodeASCII }
9702 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9703 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9704 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9705 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9706 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9707 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9708 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9709 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9710 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9711 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9712 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9713 { Ventura-US csVenturaUS }
9714 { Ventura-International csVenturaInternational }
9715 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9716 { PC8-Turkish csPC8Turkish }
9717 { IBM-Symbols csIBMSymbols }
9718 { IBM-Thai csIBMThai }
9719 { HP-Legal csHPLegal }
9720 { HP-Pi-font csHPPiFont }
9721 { HP-Math8 csHPMath8 }
9722 { Adobe-Symbol-Encoding csHPPSMath }
9723 { HP-DeskTop csHPDesktop }
9724 { Ventura-Math csVenturaMath }
9725 { Microsoft-Publishing csMicrosoftPublishing }
9726 { Windows-31J csWindows31J }
9727 { GB2312 csGB2312 }
9728 { Big5 csBig5 }
9729 }
9731 proc tcl_encoding {enc} {
9732 global encoding_aliases
9733 set names [encoding names]
9738 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9741 }
9742 }
9747 # look through the aliases for one that tcl knows about
9753 }
9754 }
9756 }
9757 break
9758 }
9759 }
9762 }
9763 return {}
9764 }
9766 # First check that Tcl/Tk is recent enough
9767 if {[catch {package require Tk 8.4} err]} {
9768 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9769 Gitk requires at least Tcl/Tk 8.4."]
9770 exit 1
9771 }
9773 # defaults...
9774 set wrcomcmd "git diff-tree --stdin -p --pretty"
9776 set gitencoding {}
9777 catch {
9778 set gitencoding [exec git config --get i18n.commitencoding]
9779 }
9781 set gitencoding "utf-8"
9782 }
9786 }
9788 set mainfont {Helvetica 9}
9789 set textfont {Courier 9}
9790 set uifont {Helvetica 9 bold}
9791 set tabstop 8
9792 set findmergefiles 0
9793 set maxgraphpct 50
9794 set maxwidth 16
9795 set revlistorder 0
9796 set fastdate 0
9797 set uparrowlen 5
9798 set downarrowlen 5
9799 set mingaplen 100
9800 set cmitmode "patch"
9801 set wrapcomment "none"
9802 set showneartags 1
9803 set maxrefs 20
9804 set maxlinelen 200
9805 set showlocalchanges 1
9806 set limitdiffs 1
9807 set datetimeformat "%Y-%m-%d %H:%M:%S"
9808 set autoselect 1
9810 set extdifftool "meld"
9812 set colors {green red blue magenta darkgrey brown orange}
9813 set bgcolor white
9814 set fgcolor black
9815 set diffcolors {red "#00a000" blue}
9816 set diffcontext 3
9817 set ignorespace 0
9818 set selectbgcolor gray85
9820 set circlecolors {white blue gray blue blue}
9822 ## For msgcat loading, first locate the installation location.
9823 if { [info exists ::env(GITK_MSGSDIR)] } {
9824 ## Msgsdir was manually set in the environment.
9825 set gitk_msgsdir $::env(GITK_MSGSDIR)
9826 } else {
9827 ## Let's guess the prefix from argv0.
9831 unset gitk_prefix
9832 }
9834 ## Internationalization (i18n) through msgcat and gettext. See
9835 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9836 package require msgcat
9837 namespace import ::msgcat::mc
9838 ## And eventually load the actual message catalog
9841 catch {source ~/.gitk}
9843 font create optionfont -family sans-serif -size -12
9846 eval font create mainfont [fontflags mainfont]
9847 eval font create mainfontbold [fontflags mainfont 1]
9850 eval font create textfont [fontflags textfont]
9851 eval font create textfontbold [fontflags textfont 1]
9854 eval font create uifont [fontflags uifont]
9856 setoptions
9858 # check that we can find a .git directory somewhere...
9859 if {[catch {set gitdir [gitdir]}]} {
9860 show_error {} . [mc "Cannot find a git repository here."]
9861 exit 1
9862 }
9865 exit 1
9866 }
9868 set revtreeargs {}
9869 set cmdline_files {}
9870 set i 0
9871 set revtreeargscmd {}
9874 "" { }
9875 "--" {
9877 break
9878 }
9879 "--argscmd=*" {
9881 }
9882 default {
9884 }
9885 }
9886 incr i
9887 }
9890 # no -- on command line, but some arguments (other than --argscmd)
9891 if {[catch {
9896 # Unfortunately git rev-parse doesn't produce an error when
9897 # something is both a revision and a filename. To be consistent
9898 # with git log and git rev-list, check revtreeargs for filenames.
9901 show_error {} . [mc "Ambiguous argument '%s': both revision\
9903 exit 1
9904 }
9905 }
9906 } err]} {
9908 # so look for "fatal:".
9912 }
9914 exit 1
9915 }
9916 }
9918 set nullid "0000000000000000000000000000000000000000"
9919 set nullid2 "0000000000000000000000000000000000000001"
9920 set nullfile "/dev/null"
9924 set runq {}
9925 set history {}
9926 set historyindex 0
9927 set fh_serial 0
9928 set nhl_names {}
9929 set highlight_paths {}
9930 set findpattern {}
9931 set searchdirn -forwards
9932 set boldrows {}
9933 set boldnamerows {}
9934 set diffelide {0 0}
9935 set markingmatches 0
9936 set linkentercount 0
9937 set need_redisplay 0
9938 set nrows_drawn 0
9939 set firsttabstop 0
9941 set nextviewnum 1
9942 set curview 0
9943 set selectedview 0
9944 set selectedhlview [mc "None"]
9945 set highlight_related [mc "None"]
9946 set highlight_files {}
9947 set viewfiles(0) {}
9948 set viewperm(0) 0
9949 set viewargs(0) {}
9950 set viewargscmd(0) {}
9952 set selectedline {}
9953 set numcommits 0
9954 set loginstance 0
9955 set cmdlineok 0
9956 set stopped 0
9957 set stuffsaved 0
9958 set patchnum 0
9959 set lserial 0
9960 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9961 setcoords
9962 makewindow
9963 # wait for the window to become visible
9964 tkwait visibility .
9966 readrefs
9969 # create a view for the files/dirs specified on the command line
9970 set curview 1
9971 set selectedview 1
9972 set nextviewnum 2
9973 set viewname(1) [mc "Command line"]
9977 set viewperm(1) 0
9978 set vdatemode(1) 0
9979 addviewmenu 1
9980 .bar.view entryconf [mc "Edit view..."] -state normal
9981 .bar.view entryconf [mc "Delete view"] -state normal
9982 }
9984 if {[info exists permviews]} {
9987 incr nextviewnum
9994 }
9995 }
9996 getcommits {}