| blob | fb5220cc592e664c92e7b398c18b7bf3263e27f9 |
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 catch {file delete "~/.gitk"}
2368 file rename -force "~/.gitk-new" "~/.gitk"
2369 }
2370 set stuffsaved 1
2371 }
2373 proc resizeclistpanes {win w} {
2374 global oldwidth
2381 } else {
2386 set sash0 30
2387 }
2390 }
2395 }
2396 }
2397 }
2400 }
2402 }
2404 proc resizecdetpanes {win w} {
2405 global oldwidth
2410 } else {
2414 set sash0 45
2415 }
2418 }
2419 }
2421 }
2423 }
2425 proc allcanvs args {
2426 global canv canv2 canv3
2430 }
2432 proc bindall {event action} {
2433 global canv canv2 canv3
2437 }
2439 proc about {} {
2440 global uifont
2441 set w .about
2444 return
2445 }
2449 Gitk - a commit viewer for git
2451 Copyright © 2005-2008 Paul Mackerras
2453 Use and redistribute under the terms of the GNU General Public License"] \
2454 -justify center -aspect 400 -border 2 -bg white -relief groove
2461 }
2463 proc keys {} {
2464 set w .keys
2467 return
2468 }
2469 if {[tk windowingsystem] eq {aqua}} {
2470 set M1T Cmd
2471 } else {
2472 set M1T Ctrl
2473 }
2477 [mc "Gitk key bindings:"]
2480 [mc "<Home> Move to first commit"]
2481 [mc "<End> Move to last commit"]
2482 [mc "<Up>, p, i Move up one commit"]
2483 [mc "<Down>, n, k Move down one commit"]
2484 [mc "<Left>, z, j Go back in history list"]
2485 [mc "<Right>, x, l Go forward in history list"]
2486 [mc "<PageUp> Move up one page in commit list"]
2487 [mc "<PageDown> Move down one page in commit list"]
2494 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2495 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2496 [mc "<Delete>, b Scroll diff view up one page"]
2497 [mc "<Backspace> Scroll diff view up one page"]
2498 [mc "<Space> Scroll diff view down one page"]
2499 [mc "u Scroll diff view up 18 lines"]
2500 [mc "d Scroll diff view down 18 lines"]
2503 [mc "<Return> Move to next find hit"]
2504 [mc "/ Move to next find hit, or redo find"]
2505 [mc "? Move to previous find hit"]
2506 [mc "f Scroll diff view to next file"]
2513 [mc "<F5> Update"]
2514 " \
2515 -justify left -bg white -border 2 -relief groove
2522 }
2524 # Procedures for manipulating the file list window at the
2525 # bottom right of the overall window.
2527 proc treeview {w l openlevs} {
2528 global treecontents treediropen treeheight treeparent treeindex
2530 set ix 0
2531 set treeindex() 0
2532 set lev 0
2533 set prefix {}
2534 set prefixend -1
2535 set prefendstack {}
2536 set htstack {}
2537 set ht 0
2538 set treecontents() {}
2545 }
2552 incr lev -1
2553 }
2557 set ht 0
2569 set ht 1
2574 set str "\n"
2582 }
2583 incr lev
2584 }
2587 incr ht
2588 set str "\n"
2592 }
2594 }
2595 }
2603 }
2605 }
2607 proc linetoelt {l} {
2608 global treeheight treecontents
2610 set y 2
2611 set prefix {}
2612 while {1} {
2616 }
2617 set n 1
2622 incr y
2623 break
2624 }
2625 }
2627 }
2628 }
2629 }
2631 proc highlight_tree {y prefix} {
2632 global treeheight treecontents cflist
2638 }
2639 incr y
2642 }
2643 }
2645 }
2647 proc treeclosedir {w dir} {
2648 global treediropen treeheight treeparent treeindex
2660 }
2661 }
2663 proc treeopendir {w dir} {
2664 global treediropen treeheight treeparent treecontents treeindex
2671 set lev 0
2672 set str "\n"
2675 incr lev
2676 append str "\t"
2678 }
2693 } else {
2696 }
2697 }
2710 }
2712 }
2713 }
2715 proc treeclick {w x y} {
2716 global treediropen cmitmode ctext cflist cflist_top
2719 if {![info exists cflist_top]} return
2726 return
2727 }
2733 } else {
2735 }
2736 }
2738 proc setfilelist {id} {
2739 global treefilelist cflist
2742 }
2744 image create bitmap tri-rt -background black -foreground blue -data {
2745 #define tri-rt_width 13
2746 #define tri-rt_height 13
2747 static unsigned char tri-rt_bits[] = {
2748 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2749 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2750 0x00, 0x00};
2751 } -maskdata {
2752 #define tri-rt-mask_width 13
2753 #define tri-rt-mask_height 13
2754 static unsigned char tri-rt-mask_bits[] = {
2755 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2756 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2757 0x08, 0x00};
2758 }
2759 image create bitmap tri-dn -background black -foreground blue -data {
2760 #define tri-dn_width 13
2761 #define tri-dn_height 13
2762 static unsigned char tri-dn_bits[] = {
2763 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2764 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2765 0x00, 0x00};
2766 } -maskdata {
2767 #define tri-dn-mask_width 13
2768 #define tri-dn-mask_height 13
2769 static unsigned char tri-dn-mask_bits[] = {
2770 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2771 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2772 0x00, 0x00};
2773 }
2775 image create bitmap reficon-T -background black -foreground yellow -data {
2776 #define tagicon_width 13
2777 #define tagicon_height 9
2778 static unsigned char tagicon_bits[] = {
2779 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2780 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2781 } -maskdata {
2782 #define tagicon-mask_width 13
2783 #define tagicon-mask_height 9
2784 static unsigned char tagicon-mask_bits[] = {
2785 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2786 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2787 }
2788 set rectdata {
2789 #define headicon_width 13
2790 #define headicon_height 9
2791 static unsigned char headicon_bits[] = {
2792 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2793 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2794 }
2795 set rectmask {
2796 #define headicon-mask_width 13
2797 #define headicon-mask_height 9
2798 static unsigned char headicon-mask_bits[] = {
2799 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2800 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2801 }
2802 image create bitmap reficon-H -background black -foreground green \
2804 image create bitmap reficon-o -background black -foreground "#ddddff" \
2807 proc init_flist {first} {
2808 global cflist cflist_top difffilestart
2814 set cflist_top 1
2816 } else {
2817 catch {unset cflist_top}
2818 }
2820 set difffilestart {}
2821 }
2823 proc highlight_tag {f} {
2824 global highlight_paths
2828 return "bold"
2829 }
2830 }
2831 return {}
2832 }
2834 proc highlight_filelist {} {
2835 global cmitmode cflist
2844 }
2845 }
2846 } else {
2847 highlight_tree 2 {}
2848 }
2850 }
2852 proc unhighlight_filelist {} {
2853 global cflist
2858 }
2860 proc add_flist {fl} {
2861 global cflist
2867 }
2869 }
2871 proc sel_flist {w x y} {
2872 global ctext difffilestart cflist cflist_top cmitmode
2875 if {![info exists cflist_top]} return
2882 } else {
2884 }
2885 }
2887 proc pop_flist_menu {w X Y x y} {
2888 global ctext cflist cmitmode flist_menu flist_menu_file
2889 global treediffs diffids
2891 stopfinding
2897 } else {
2899 }
2901 set xdiffstate "normal"
2903 set xdiffstate "disabled"
2904 }
2905 # Disable "External diff" item in tree mode
2908 }
2910 proc flist_hl {only} {
2911 global flist_menu_file findstring gdttype
2916 } else {
2918 }
2919 set gdttype [mc "touching paths:"]
2920 }
2922 proc save_file_from_commit {filename output what} {
2923 global nullfile
2928 }
2930 return {}
2931 }
2933 }
2935 proc external_diff_get_one_file {diffid filename diffdir} {
2936 global nullid nullid2 nullfile
2937 global gitdir
2943 }
2945 }
2949 }
2953 }
2955 proc external_diff {} {
2956 global gitktmpdir nullid nullid2
2957 global flist_menu_file
2958 global diffids
2959 global diffnum
2960 global gitdir extdifftool
2963 # no reference commit given
2966 # diffing working copy with index
2969 # diffing index with HEAD
2970 set diffidfrom "HEAD"
2971 } else {
2972 # use first parent commit
2973 global parentlist selectedline
2975 }
2976 } else {
2979 }
2981 # make sure that several diffs wont collide
2982 if {![info exists gitktmpdir]} {
2984 [format ".gitk-tmp.%s" [pid]]]
2987 unset gitktmpdir
2988 return
2989 }
2990 set diffnum 0
2991 }
2992 incr diffnum
2996 return
2997 }
2999 # gather files to diff
3009 } else {
3012 }
3013 }
3014 }
3017 proc delete_at_eof {f dir} {
3022 }
3024 return 0
3025 }
3026 return 1
3027 }
3029 # Functions for adding and removing shell-type quoting
3031 proc shellquote {str} {
3034 }
3037 }
3040 }
3042 }
3044 proc shellarglist {l} {
3045 set str {}
3048 append str " "
3049 }
3051 }
3053 }
3055 proc shelldequote {str} {
3056 set ret {}
3057 set used -1
3058 while {1} {
3059 incr used
3063 break
3064 }
3070 }
3072 incr used
3076 error "unmatched single-quote"
3077 }
3080 continue
3081 }
3084 error "trailing backslash"
3085 }
3087 continue
3088 }
3089 # here ch == "\""
3090 while {1} {
3092 error "unmatched double-quote"
3093 }
3099 }
3101 incr used
3103 incr used
3104 }
3105 }
3107 }
3109 proc shellsplit {str} {
3110 set l {}
3111 while {1} {
3119 }
3121 }
3123 # Code to implement multiple views
3125 proc newview {ishighlight} {
3126 global nextviewnum newviewname newviewperm newishighlight
3127 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3130 set top .gitkview
3133 return
3134 }
3140 }
3142 proc editview {} {
3143 global curview
3144 global viewname viewperm newviewname newviewperm
3145 global viewargs newviewargs viewargscmd newviewargscmd
3150 return
3151 }
3157 }
3159 proc vieweditor {top n title} {
3160 global newviewname newviewperm viewfiles bgcolor
3171 -text [mc "Commits to include (arguments to git log):"]
3178 -text [mc "Command to generate more commits to include:"]
3181 -background white
3185 -text [mc "Enter files and directories to include, one per line:"]
3192 }
3195 }
3205 }
3207 proc doviewmenu {m first cmd op argv} {
3212 break
3213 }
3214 }
3215 }
3217 proc allviewmenus {n op args} {
3218 # global viewhlmenu
3222 }
3224 proc newviewok {top n} {
3225 global nextviewnum newviewperm newviewname newishighlight
3226 global viewname viewfiles viewperm selectedview curview
3227 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3229 if {[catch {
3231 } err]} {
3235 return
3236 }
3237 set files {}
3242 }
3243 }
3245 # creating a new view
3246 incr nextviewnum
3255 } else {
3257 }
3258 } else {
3259 # editing an existing view
3267 }
3274 run reloadcommits
3275 }
3276 }
3277 }
3279 }
3281 proc delview {} {
3282 global curview viewperm hlview selectedhlview
3286 set selectedhlview [mc "None"]
3287 unset hlview
3288 }
3291 showview 0
3292 }
3294 proc addviewmenu {n} {
3295 global viewname viewhlmenu
3301 }
3303 proc showview {n} {
3304 global curview cached_commitrow ordertok
3305 global displayorder parentlist rowidlist rowisopt rowfinal
3306 global colormap rowtextx nextcolor canvxmax
3307 global numcommits viewcomplete
3308 global selectedline currentid canv canvy0
3309 global treediffs
3310 global pending_select mainheadid
3311 global commitidx
3312 global selectedview
3313 global hlview selectedhlview commitinterest
3316 set selid {}
3327 }
3328 } elseif {[info exists pending_select]} {
3330 unset pending_select
3331 }
3332 unselectline
3333 normalline
3334 catch {unset treediffs}
3335 clear_display
3337 unset hlview
3338 set selectedhlview [mc "None"]
3339 }
3340 catch {unset commitinterest}
3341 catch {unset cached_commitrow}
3342 catch {unset ordertok}
3349 run refill_reflist
3352 return
3353 }
3355 set displayorder {}
3356 set parentlist {}
3357 set rowidlist {}
3358 set rowisopt {}
3359 set rowfinal {}
3362 catch {unset colormap}
3363 catch {unset rowtextx}
3364 set nextcolor 0
3367 set row 0
3368 setcanvscroll
3369 set yf 0
3370 set row {}
3373 # try to get the selected row in the same position on the screen
3377 set ytop 0
3378 }
3380 }
3382 drawvisible
3387 } else {
3388 reset_pending_select {}
3392 } else {
3393 set row [first_real_row]
3396 }
3397 }
3398 }
3401 show_status [mc "Reading commits..."]
3402 }
3404 show_status [mc "No commits selected"]
3405 }
3406 }
3408 # Stuff relating to the highlighting facility
3410 proc ishighlighted {id} {
3411 global vhighlights fhighlights nhighlights rhighlights
3415 }
3418 }
3421 }
3424 }
3425 return 0
3426 }
3428 proc bolden {row font} {
3429 global canv linehtag selectedline boldrows
3436 -outline {{}} -tags secsel \
3439 }
3440 }
3442 proc bolden_name {row font} {
3443 global canv2 linentag selectedline boldnamerows
3450 -outline {{}} -tags secsel \
3453 }
3454 }
3456 proc unbolden {} {
3457 global boldrows
3459 set stillbold {}
3463 } else {
3465 }
3466 }
3468 }
3470 proc addvhighlight {n} {
3471 global hlview viewcomplete curview vhl_done commitidx
3473 if {[info exists hlview]} {
3474 delvhighlight
3475 }
3479 }
3482 drawvisible
3483 }
3484 }
3486 proc delvhighlight {} {
3487 global hlview vhighlights
3489 if {![info exists hlview]} return
3490 unset hlview
3491 catch {unset vhighlights}
3492 unbolden
3493 }
3495 proc vhighlightmore {} {
3496 global hlview vhl_done commitidx vhighlights curview
3499 set vr [visiblerows]
3509 }
3511 }
3512 }
3513 }
3515 return 0
3516 }
3518 proc askvhighlight {row id} {
3519 global hlview vhighlights iddrawn
3524 }
3526 } else {
3528 }
3529 }
3531 proc hfiles_change {} {
3532 global highlight_files filehighlight fhighlights fh_serial
3533 global highlight_paths gdttype
3535 if {[info exists filehighlight]} {
3536 # delete previous highlights
3538 unset filehighlight
3539 catch {unset fhighlights}
3540 unbolden
3541 unhighlight_filelist
3542 }
3543 set highlight_paths {}
3545 incr fh_serial
3548 }
3549 }
3551 proc gdttype_change {name ix op} {
3552 global gdttype highlight_files findstring findpattern
3554 stopfinding
3558 set highlight_files {}
3559 hfiles_change
3560 }
3561 findcom_change
3562 } else {
3564 set findpattern {}
3565 findcom_change
3566 }
3568 hfiles_change
3569 }
3570 drawvisible
3571 }
3572 # enable/disable findtype/findloc menus too
3573 }
3575 proc find_change {name ix op} {
3576 global gdttype findstring highlight_files
3578 stopfinding
3580 findcom_change
3581 } else {
3584 hfiles_change
3585 }
3586 }
3587 drawvisible
3588 }
3590 proc findcom_change args {
3591 global nhighlights boldnamerows
3592 global findpattern findtype findstring gdttype
3594 stopfinding
3595 # delete previous highlights, if any
3598 }
3599 set boldnamerows {}
3600 catch {unset nhighlights}
3601 unbolden
3602 unmarkmatches
3604 set findpattern {}
3607 } else {
3608 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3611 }
3612 }
3614 proc makepatterns {l} {
3615 set ret {}
3620 } else {
3623 }
3624 }
3626 }
3628 proc do_file_hl {serial} {
3629 global highlight_files filehighlight highlight_paths gdttype fhl_list
3634 highlight_filelist
3638 } else {
3639 # must be "containing:", i.e. we're searching commit info
3640 return
3641 }
3646 set fhl_list {}
3647 drawvisible
3648 flushhighlights
3649 }
3651 proc flushhighlights {} {
3652 global filehighlight fhl_list
3654 if {[info exists filehighlight]} {
3655 lappend fhl_list {}
3658 }
3659 }
3661 proc askfilehighlight {row id} {
3662 global filehighlight fhighlights fhl_list
3667 }
3669 proc readfhighlight {} {
3670 global filehighlight fhighlights curview iddrawn
3671 global fhl_list find_dirn
3673 if {![info exists filehighlight]} {
3674 return 0
3675 }
3676 set nr 0
3684 }
3691 }
3693 }
3695 # strange...
3696 puts "oops, git diff-tree died"
3698 unset filehighlight
3699 return 0
3700 }
3701 if {[info exists find_dirn]} {
3702 run findmore
3703 }
3704 return 1
3705 }
3707 proc doesmatch {f} {
3708 global findtype findpattern
3714 } else {
3716 }
3717 }
3719 proc askfindhighlight {row id} {
3720 global nhighlights commitinfo iddrawn
3721 global findloc
3722 global markingmatches
3726 }
3728 set isbold 0
3729 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3734 set isbold 2
3735 break
3736 }
3737 set isbold 1
3738 }
3739 }
3745 }
3746 }
3749 }
3750 }
3752 }
3754 proc markrowmatches {row id} {
3755 global canv canv2 linehtag linentag commitinfo findloc
3766 }
3767 }
3773 }
3774 }
3775 }
3777 proc vrel_change {name ix op} {
3778 global highlight_related
3780 rhighlight_none
3782 run drawvisible
3783 }
3784 }
3786 # prepare for testing whether commits are descendents or ancestors of a
3787 proc rhighlight_sel {a} {
3788 global descendent desc_todo ancestor anc_todo
3789 global highlight_related
3791 catch {unset descendent}
3793 catch {unset ancestor}
3796 rhighlight_none
3797 run drawvisible
3798 }
3799 }
3801 proc rhighlight_none {} {
3802 global rhighlights
3804 catch {unset rhighlights}
3805 unbolden
3806 }
3808 proc is_descendent {a} {
3809 global curview children descendent desc_todo
3814 set leftover {}
3815 set done 0
3820 continue
3821 }
3827 set done 1
3828 }
3829 }
3830 }
3833 return
3834 }
3835 }
3838 }
3840 proc is_ancestor {a} {
3841 global curview parents ancestor anc_todo
3846 set leftover {}
3847 set done 0
3852 continue
3853 }
3859 set done 1
3860 }
3861 }
3862 }
3865 return
3866 }
3867 }
3870 }
3872 proc askrelhighlight {row id} {
3873 global descendent highlight_related iddrawn rhighlights
3874 global selectedline ancestor
3877 set isbold 0
3882 }
3884 set isbold 1
3885 }
3890 }
3892 set isbold 1
3893 }
3894 }
3898 }
3899 }
3901 }
3903 # Graph layout functions
3905 proc shortids {ids} {
3906 set res {}
3912 } else {
3914 }
3915 }
3917 }
3919 proc ntimes {n o} {
3920 set ret {}
3925 }
3927 }
3929 }
3931 proc ordertoken {id} {
3932 global ordertok curview varcid varcstart varctok curview parents children
3933 global nullid nullid2
3937 }
3939 set todo {}
3940 while {1} {
3944 } else {
3946 }
3949 break
3950 }
3953 # it's a root
3955 break
3956 }
3959 } else {
3963 }
3965 }
3966 }
3971 }
3974 }
3976 # Work out where id should go in idlist so that order-token
3977 # values increase from left to right
3978 proc idcol {idlist id {i 0}} {
3981 set i 0
3982 }
3986 }
3988 incr i
3989 } else {
3993 }
3994 }
3996 }
3998 proc initlayout {} {
3999 global rowidlist rowisopt rowfinal displayorder parentlist
4000 global numcommits canvxmax canv
4001 global nextcolor
4002 global colormap rowtextx
4004 set numcommits 0
4005 set displayorder {}
4006 set parentlist {}
4007 set nextcolor 0
4008 set rowidlist {}
4009 set rowisopt {}
4010 set rowfinal {}
4012 catch {unset colormap}
4013 catch {unset rowtextx}
4014 setcanvscroll
4015 }
4017 proc setcanvscroll {} {
4018 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4019 global lastscrollset lastscrollrows
4025 set lastscrollset [clock clicks -milliseconds]
4027 }
4029 proc visiblerows {} {
4030 global canv numcommits linespc
4038 set r0 0
4039 }
4044 }
4046 }
4048 proc layoutmore {} {
4049 global commitidx viewcomplete curview
4050 global numcommits pending_select curview
4051 global lastscrollset lastscrollrows commitinterest
4055 setcanvscroll
4056 }
4057 if {[info exists pending_select] &&
4059 update
4061 }
4062 drawvisible
4063 }
4065 proc doshowlocalchanges {} {
4066 global curview mainheadid
4070 dodiffindex
4071 } else {
4073 }
4074 }
4076 proc dohidelocalchanges {} {
4077 global nullid nullid2 lserial curview
4081 }
4084 }
4085 incr lserial
4086 }
4088 # spawn off a process to do git diff-index --cached HEAD
4089 proc dodiffindex {} {
4090 global lserial showlocalchanges
4091 global isworktree
4094 incr lserial
4095 set fd [open "|git diff-index --cached HEAD" r]
4099 }
4101 proc readdiffindex {fd serial inst} {
4102 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4104 set isdiff 1
4107 return 1
4108 }
4109 set isdiff 0
4110 }
4111 # we only need to see one line and we don't really care what it says...
4115 return 0
4116 }
4118 # now see if there are any local changes not checked in to the index
4119 set fd [open "|git diff-files" r]
4125 # add the line for the changes in the index to the graph
4126 set hl [mc "Local changes checked in to index but not committed"]
4131 }
4135 }
4136 return 0
4137 }
4139 proc readdifffiles {fd serial inst} {
4140 global mainheadid nullid nullid2 curview
4141 global commitinfo commitdata lserial
4143 set isdiff 1
4146 return 1
4147 }
4148 set isdiff 0
4149 }
4150 # we only need to see one line and we don't really care what it says...
4154 return 0
4155 }
4158 # add the line for the local diff to the graph
4159 set hl [mc "Local uncommitted changes, not checked in to index"]
4164 } else {
4166 }
4170 }
4171 return 0
4172 }
4174 proc nextuse {id row} {
4175 global curview children
4180 return -1
4181 }
4184 }
4185 }
4186 }
4189 }
4190 return -1
4191 }
4193 proc prevuse {id row} {
4194 global curview children
4196 set ret -1
4202 }
4203 }
4204 }
4206 }
4208 proc make_idlist {row} {
4209 global displayorder parentlist uparrowlen downarrowlen mingaplen
4210 global commitidx curview children
4214 set r 0
4215 }
4218 set ra 0
4219 }
4223 }
4225 set ids {}
4234 }
4235 }
4236 }
4244 }
4245 }
4246 }
4254 }
4255 }
4256 incr r
4262 }
4263 }
4264 }
4265 set idlist {}
4268 }
4270 }
4272 proc rowsequal {a b} {
4275 }
4278 }
4280 }
4282 proc makeupline {id row rend col} {
4283 global rowidlist uparrowlen downarrowlen mingaplen
4289 }
4292 }
4299 }
4300 }
4301 }
4303 proc layoutrows {row endrow} {
4304 global rowidlist rowisopt rowfinal displayorder
4305 global uparrowlen downarrowlen maxwidth mingaplen
4306 global children parentlist
4307 global commitidx viewcomplete curview
4310 set idlist {}
4316 }
4317 }
4319 }
4324 set final 1
4325 } else {
4333 # if not the first child, we have to insert a line going up
4336 }
4337 }
4338 }
4348 }
4349 }
4350 }
4357 }
4358 }
4368 }
4369 }
4377 }
4378 }
4379 }
4380 }
4381 }
4385 set final 0
4386 }
4390 lappend rowisopt 0
4396 }
4398 } else {
4405 }
4406 }
4408 }
4410 proc changedrow {row} {
4411 global displayorder iddrawn rowisopt need_redisplay
4420 }
4421 }
4422 }
4425 set need_redisplay 1
4426 }
4427 }
4429 proc insert_pad {row col npad} {
4430 global rowidlist
4439 }
4442 }
4444 proc optimize_rows {row col endrow} {
4445 global rowidlist rowisopt displayorder curview children
4448 set row 1
4449 }
4452 set haspad 0
4461 } else {
4462 set pprevidlist {}
4463 }
4464 set x0 -1
4465 set xm -1
4470 set haspad 1
4471 continue
4472 }
4476 set isarrow 0
4477 set z0 {}
4482 }
4483 }
4488 set isarrow 1
4489 }
4490 }
4493 set isarrow 1
4494 }
4495 # Looking at lines from this row to the previous row,
4496 # make them go straight up if they end in an arrow on
4497 # the previous row; otherwise make them go straight up
4498 # or at 45 degrees.
4500 # Line currently goes left too much;
4501 # insert pads in the previous row, then optimize it
4506 }
4514 }
4516 # Line currently goes right too much;
4517 # insert pads in this line
4523 set haspad 1
4524 }
4531 }
4532 }
4533 # avoid lines jigging left then immediately right
4536 incr x0
4539 }
4540 }
4542 # Find the first column that doesn't have a line going right
4548 # check if this is the link to the first child
4551 # it is, work out offset to child
4553 }
4554 }
4556 }
4557 # Insert a pad at that column as long as it has a line and
4558 # isn't the last column
4563 }
4564 }
4565 }
4566 }
4568 proc xc {row col} {
4569 global canvx0 linespc
4571 }
4573 proc yc {row} {
4574 global canvy0 linespc
4576 }
4578 proc linewidth {id} {
4579 global thickerline lthickness
4584 }
4586 }
4588 proc rowranges {id} {
4589 global curview children uparrowlen downarrowlen
4590 global rowidlist
4594 return {}
4595 }
4596 set ret {}
4601 if {![info exists prev]} {
4603 } else {
4605 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4606 }
4607 # see if the line extends the whole way from prevrow to row
4611 # it doesn't, see where it ends
4616 } else {
4619 incr r -1
4620 }
4622 # see where it starts up again
4627 } else {
4630 incr r
4631 }
4633 }
4634 }
4637 }
4640 }
4642 }
4644 proc drawlineseg {id row endrow arrowlow} {
4645 global rowidlist displayorder iddrawn linesegs
4646 global canv colormap linespc curview maxlinelen parentlist
4650 set arrowhigh 1
4651 while {1} {
4654 incr le -1
4655 break
4656 }
4660 set arrowhigh 0
4661 break
4662 }
4667 set arrowhigh 0
4668 }
4669 break
4670 }
4671 incr le
4672 }
4675 }
4677 set lines {}
4678 set i 0
4679 set joinhigh 0
4686 set joinhigh 1
4687 }
4688 break
4689 }
4690 incr i
4691 }
4692 }
4693 set joinlow 0
4698 set joinlow 1
4699 }
4700 }
4713 }
4714 } else {
4716 }
4724 set arrowlow 0
4725 }
4726 }
4734 }
4736 }
4739 # join parent line to first child
4750 } else {
4752 }
4760 }
4762 }
4764 } else {
4768 }
4776 } else {
4780 }
4782 }
4783 } else {
4789 }
4793 } else {
4794 # coalesce two pieces
4799 }
4803 }
4804 }
4808 }
4810 proc drawparentlinks {id row} {
4811 global rowidlist canv colormap curview parentlist
4812 global idpos linespc
4825 # rmx = right-most X coord used
4826 set rmx 0
4831 continue
4832 }
4836 }
4839 # drawlineseg will do this one for us
4840 continue
4841 }
4843 # should handle duplicated parents here...
4846 # if attaching to a vertical segment, draw a smaller
4847 # slant for visual distinctness
4851 } else {
4853 }
4855 # segment slants towards us already
4857 } else {
4862 }
4864 }
4865 } else {
4867 }
4872 }
4876 }
4877 }
4879 proc drawlines {id} {
4880 global canv
4883 }
4885 proc drawcmittext {id row col} {
4886 global linespc canv canv2 canv3 fgcolor curview
4887 global cmitlisted commitinfo rowidlist parentlist
4888 global rowtextx idpos idtags idheads idotherrefs
4889 global linehtag linentag linedtag selectedline
4890 global canvxmax boldrows boldnamerows fgcolor
4891 global mainheadid nullid nullid2 circleitem circlecolors
4893 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4896 set ofill red
4898 set ofill green
4900 set ofill yellow
4901 } else {
4903 }
4912 # triangle pointing left for left-side commits
4918 } else {
4919 # triangle pointing right for right-side commits
4925 }
4937 }
4938 }
4939 }
4946 }
4951 set font mainfont
4952 set nfont mainfont
4956 set font mainfontbold
4959 set nfont mainfontbold
4960 }
4961 }
4971 }
4975 setcanvscroll
4976 }
4977 }
4979 proc drawcmitrow {row} {
4980 global displayorder rowidlist nrows_drawn
4981 global iddrawn markingmatches
4982 global commitinfo numcommits
4983 global filehighlight fhighlights findpattern nhighlights
4984 global hlview vhighlights
4985 global highlight_related rhighlights
4992 }
4995 }
4998 }
5001 }
5006 return
5007 }
5010 }
5014 incr nrows_drawn
5015 }
5018 }
5019 }
5021 proc drawcommits {row {endrow {}}} {
5022 global numcommits iddrawn displayorder curview need_redisplay
5023 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5026 set row 0
5027 }
5030 }
5033 }
5037 set rl1 0
5038 }
5041 set ro1 0
5042 }
5046 }
5051 }
5053 }
5054 }
5057 }
5060 clear_display
5061 drawvisible
5062 }
5064 # make the lines join to already-drawn rows either side
5068 }
5073 }
5088 # see if this is the first child of any of its parents
5091 # make this line extend up to the child
5093 }
5094 }
5095 } else {
5097 }
5098 }
5099 }
5100 }
5102 proc undolayout {row} {
5103 global uparrowlen mingaplen downarrowlen
5104 global rowidlist rowisopt rowfinal need_redisplay
5108 set r 0
5109 }
5111 incr r -1
5115 set need_redisplay 1
5116 run drawvisible
5117 }
5118 }
5120 proc drawvisible {} {
5121 global canv linespc curview vrowmod selectedline targetrow targetid
5122 global need_redisplay cscroll numcommits
5132 if {[info exists targetid]} {
5136 # Fix up the scrollregion and change the scrolling position
5137 # now that our target row has moved.
5140 setcanvscroll
5148 set need_redisplay 1
5149 }
5150 } else {
5151 unset targetid
5152 }
5153 }
5159 }
5163 } elseif {[info exists targetid]} {
5165 }
5166 if {[info exists targetrow]} {
5169 }
5171 }
5173 }
5175 proc clear_display {} {
5176 global iddrawn linesegs need_redisplay nrows_drawn
5177 global vhighlights fhighlights nhighlights rhighlights
5178 global linehtag linentag linedtag boldrows boldnamerows
5180 allcanvs delete all
5181 catch {unset iddrawn}
5182 catch {unset linesegs}
5183 catch {unset linehtag}
5184 catch {unset linentag}
5185 catch {unset linedtag}
5186 set boldrows {}
5187 set boldnamerows {}
5188 catch {unset vhighlights}
5189 catch {unset fhighlights}
5190 catch {unset nhighlights}
5191 catch {unset rhighlights}
5192 set need_redisplay 0
5193 set nrows_drawn 0
5194 }
5196 proc findcrossings {id} {
5197 global rowidlist parentlist numcommits displayorder
5199 set cross {}
5200 set ccross {}
5204 }
5223 }
5224 }
5225 }
5226 }
5227 }
5229 }
5231 proc assigncolor {id} {
5232 global colormap colors nextcolor
5233 global parents children children curview
5239 } else {
5240 set kids {}
5241 }
5247 return
5248 }
5249 }
5250 set badcolors {}
5251 set origbad {}
5254 # delimiter between corner crossings and other crossings
5257 }
5261 }
5262 }
5265 }
5272 }
5277 }
5278 }
5279 }
5282 }
5283 }
5287 set nextcolor 0
5288 }
5290 }
5292 }
5294 proc bindline {t id} {
5295 global canv
5301 }
5303 proc drawtags {id x xt y1} {
5304 global idtags idheads idotherrefs mainhead
5305 global linespc lthickness
5306 global canv rowtextx curview fgcolor bgcolor
5308 set marks {}
5309 set ntags 0
5310 set nheads 0
5314 }
5318 }
5321 }
5324 }
5329 set xvals {}
5330 set wvals {}
5331 set i -1
5333 incr i
5336 } else {
5338 }
5342 }
5349 set font mainfont
5350 if {[incr ntags -1] >= 0} {
5351 # draw a tag
5357 } else {
5358 # draw a head or other ref
5359 if {[incr nheads -1] >= 0} {
5360 set col green
5362 set font mainfontbold
5363 }
5364 } else {
5365 set col "#ddddff"
5366 }
5377 }
5378 }
5385 }
5386 }
5388 }
5390 proc xcoord {i level ln} {
5391 global canvx0 xspc1 xspc2
5398 }
5400 }
5402 proc show_status {msg} {
5403 global canv fgcolor
5405 clear_display
5408 }
5410 # Don't change the text pane cursor if it is currently the hand cursor,
5411 # showing that we are over a sha1 ID link.
5412 proc settextcursor {c} {
5413 global ctext curtextcursor
5417 }
5419 }
5421 proc nowbusy {what {name {}}} {
5422 global isbusy busyname statusw
5424 if {[array names isbusy] eq {}} {
5425 . config -cursor watch
5426 settextcursor watch
5427 }
5432 }
5433 }
5435 proc notbusy {what} {
5436 global isbusy maincursor textcursor busyname statusw
5438 catch {
5443 }
5444 }
5445 if {[array names isbusy] eq {}} {
5448 }
5449 }
5451 proc findmatches {f} {
5452 global findtype findstring
5455 } else {
5460 }
5461 set matches {}
5462 set i 0
5467 }
5468 }
5470 }
5472 proc dofind {{dirn 1} {wrap 1}} {
5473 global findstring findstartline findcurline selectedline numcommits
5474 global gdttype filehighlight fh_serial find_dirn findallowwrap
5476 if {[info exists find_dirn]} {
5478 stopfinding
5479 }
5480 focus .
5484 } else {
5486 }
5488 nowbusy finding [mc "Searching"]
5492 }
5495 run findmore
5496 }
5498 proc stopfinding {} {
5499 global find_dirn findcurline fprogcoord
5501 if {[info exists find_dirn]} {
5502 unset find_dirn
5503 unset findcurline
5504 notbusy finding
5505 set fprogcoord 0
5506 adjustprogress
5507 }
5508 }
5510 proc findmore {} {
5511 global commitdata commitinfo numcommits findpattern findloc
5512 global findstartline findcurline findallowwrap
5513 global find_dirn gdttype fhighlights fprogcoord
5514 global curview varcorder vrownum varccommits vrowmod
5516 if {![info exists find_dirn]} {
5517 return 0
5518 }
5519 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5521 set moretodo 0
5523 incr l
5525 set l 0
5526 }
5529 } else {
5532 }
5533 } else {
5536 }
5537 incr l -1
5540 } else {
5541 set lim -1
5543 }
5544 }
5547 set n 500
5548 set moretodo 1
5549 }
5552 }
5553 set found 0
5554 set domore 1
5568 }
5570 # shouldn't happen unless git log doesn't give all the commits...
5573 continue
5574 }
5577 }
5582 set found 1
5583 break
5584 }
5585 }
5587 }
5588 } else {
5596 }
5601 }
5604 break
5605 }
5608 set domore 0
5610 }
5611 }
5612 }
5613 }
5615 unset findcurline
5616 unset find_dirn
5617 notbusy finding
5618 set fprogcoord 0
5619 adjustprogress
5622 } else {
5623 bell
5624 }
5625 return 0
5626 }
5628 flushhighlights
5629 } else {
5631 }
5635 }
5637 adjustprogress
5639 }
5641 proc findselectline {l} {
5642 global findloc commentend ctext findcurline markingmatches gdttype
5644 set markingmatches 1
5648 # highlight the matches in the comments
5655 }
5656 }
5657 drawvisible
5658 }
5660 # mark the bits of a headline or author that match a find string
5661 proc markmatches {canv l str tag matches font row} {
5662 global selectedline
5680 }
5681 }
5682 }
5684 proc unmarkmatches {} {
5685 global markingmatches
5687 allcanvs delete matches
5688 set markingmatches 0
5689 stopfinding
5690 }
5692 proc selcanvline {w x y} {
5693 global canv canvy0 ctext linespc
5694 global rowtextx
5701 set l 0
5702 }
5707 }
5708 unmarkmatches
5710 }
5712 proc commit_descriptor {p} {
5713 global commitinfo
5716 }
5717 set l "..."
5720 }
5722 }
5724 # append some text to the ctext widget, and make any SHA1 ID
5725 # that we know about be a clickable link.
5726 proc appendwithlinks {text tags} {
5727 global ctext linknum curview pendinglinks
5736 incr e
5740 incr linknum
5741 }
5742 }
5744 proc setlink {id lk} {
5745 global curview ctext pendinglinks commitinterest
5752 } else {
5755 }
5756 }
5758 proc makelink {id} {
5759 global pendinglinks
5764 }
5766 }
5768 proc linkcursor {w inc} {
5769 global linkentercount curtextcursor
5773 } else {
5776 set linkentercount 0
5777 }
5778 }
5779 }
5781 proc viewnextline {dir} {
5782 global canv linespc
5790 set newtop 0
5793 }
5795 }
5797 # add a list of tag or branch names at position pos
5798 # returns the number of names inserted
5799 proc appendrefs {pos ids var} {
5803 return 0
5804 }
5807 set tags {}
5811 }
5812 }
5815 } else {
5817 set sep {}
5821 incr linknum
5826 set sep ", "
5827 }
5828 }
5831 }
5833 # called when we have finished computing the nearby tags
5834 proc dispneartags {delay} {
5835 global selectedline currentid showneartags tagphase
5838 after cancel dispnexttag
5840 after 200 dispnexttag
5841 set tagphase -1
5842 } else {
5843 after idle dispnexttag
5844 set tagphase 0
5845 }
5846 }
5848 proc dispnexttag {} {
5849 global selectedline currentid showneartags tagphase ctext
5853 0 {
5857 }
5858 }
5859 1 {
5863 }
5864 }
5865 2 {
5870 # turn "Branch" into "Branches"
5874 }
5875 }
5876 }
5877 }
5878 if {[incr tagphase] <= 2} {
5879 after idle dispnexttag
5880 }
5881 }
5883 proc make_secsel {l} {
5884 global linehtag linentag linedtag canv canv2 canv3
5899 }
5901 proc selectline {l isnew} {
5902 global canv ctext commitinfo selectedline
5903 global canvy0 linespc parents children curview
5904 global currentid sha1entry
5905 global commentend idtags linknum
5906 global mergemax numcommits pending_select
5907 global cmitmode showneartags allcommits
5908 global targetrow targetid lastscrollrows
5909 global autoselect
5911 catch {unset pending_select}
5913 normalline
5914 unsel_reflist
5915 stopfinding
5923 setcanvscroll
5924 }
5938 } else {
5942 }
5943 }
5947 } else {
5951 }
5952 }
5953 }
5956 set newtop 0
5957 }
5959 drawvisible
5960 }
5966 }
5973 }
5977 clear_ctext
5978 set linknum 0
5981 }
5991 }
5993 }
5995 set headers {}
5998 set np 0
6001 set tag mmax
6002 } else {
6004 }
6007 incr np
6008 }
6009 } else {
6012 }
6013 }
6017 }
6019 # make anything that looks like a SHA1 ID be a clickable link
6022 if {![info exists allcommits]} {
6023 getallcommits
6024 }
6035 dispneartags 1
6036 }
6041 }
6048 init_flist [mc "Comments"]
6053 } else {
6055 }
6056 }
6058 proc selfirstline {} {
6059 unmarkmatches
6060 selectline 0 1
6061 }
6063 proc sellastline {} {
6064 global numcommits
6065 unmarkmatches
6068 }
6070 proc selnextline {dir} {
6071 global selectedline
6072 focus .
6075 unmarkmatches
6077 }
6079 proc selnextpage {dir} {
6080 global canv linespc selectedline numcommits
6084 set lpp 1
6085 }
6087 drawvisible
6091 set l 0
6094 }
6095 unmarkmatches
6097 }
6099 proc unselectline {} {
6100 global selectedline currentid
6102 set selectedline {}
6103 catch {unset currentid}
6104 allcanvs delete secsel
6105 rhighlight_none
6106 }
6108 proc reselectline {} {
6109 global selectedline
6113 }
6114 }
6116 proc addtohistory {cmd} {
6117 global history historyindex curview
6122 return
6123 }
6127 } else {
6129 }
6130 incr historyindex
6132 .tf.bar.leftbut conf -state normal
6133 } else {
6134 .tf.bar.leftbut conf -state disabled
6135 }
6136 .tf.bar.rightbut conf -state disabled
6137 }
6139 proc godo {elt} {
6140 global curview
6146 }
6148 }
6150 proc goback {} {
6151 global history historyindex
6152 focus .
6155 incr historyindex -1
6157 .tf.bar.rightbut conf -state normal
6158 }
6160 .tf.bar.leftbut conf -state disabled
6161 }
6162 }
6164 proc goforw {} {
6165 global history historyindex
6166 focus .
6170 incr historyindex
6172 .tf.bar.leftbut conf -state normal
6173 }
6175 .tf.bar.rightbut conf -state disabled
6176 }
6177 }
6179 proc gettree {id} {
6180 global treefilelist treeidlist diffids diffmergeid treepending
6181 global nullid nullid2
6184 catch {unset diffmergeid}
6186 if {![info exists treepending]} {
6188 set cmd [list | git ls-files]
6190 set cmd [list | git ls-files --stage -t]
6191 } else {
6193 }
6195 return
6196 }
6202 }
6203 } else {
6205 }
6206 }
6208 proc gettreeline {gtf id} {
6209 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6211 set nl 0
6215 } else {
6224 }
6226 }
6228 }
6231 }
6233 unset treepending
6235 if {![info exists diffmergeid]} {
6237 }
6240 } else {
6242 }
6243 return 0
6244 }
6246 proc showfile {f} {
6247 global treefilelist treeidlist diffids nullid nullid2
6248 global ctext commentend
6253 return
6254 }
6258 return
6259 }
6260 } else {
6264 return
6265 }
6266 }
6275 settabs 0
6276 }
6278 proc getblobline {bf id} {
6279 global diffids cmitmode ctext
6283 return 0
6284 }
6286 set nl 0
6289 }
6291 # delete last newline
6294 return 0
6295 }
6298 }
6300 proc mergediff {id} {
6301 global diffmergeid mdifffd
6302 global diffids
6303 global parents
6304 global diffcontext
6305 global limitdiffs vfilelimit curview
6309 # this doesn't seem to actually affect anything...
6313 }
6316 return
6317 }
6323 }
6325 proc getmergediffline {mdf id np} {
6326 global diffmergeid ctext cflist mergemax
6327 global difffilestart mdifffd
6330 set nr 0
6335 return 0
6336 }
6338 # start of a new file
6349 # do nothing
6350 } else {
6351 # parse the prefix - one ' ', '-' or '+' for each parent
6352 set spaces {}
6353 set minuses {}
6354 set pluses {}
6355 set isbad 0
6364 } else {
6365 set isbad 1
6366 break
6367 }
6368 }
6369 set tags {}
6370 set num {}
6376 lappend tags mresult
6378 }
6381 set num "max"
6382 }
6384 }
6386 }
6387 }
6391 return 0
6392 }
6394 }
6396 proc startdiff {ids} {
6397 global treediffs diffids treepending diffmergeid nullid nullid2
6399 settabs 1
6401 catch {unset diffmergeid}
6405 if {![info exists treepending]} {
6407 }
6408 } else {
6410 }
6411 }
6413 proc path_filter {filter name} {
6418 return 1
6419 }
6420 } else {
6424 return 1
6425 }
6426 }
6427 }
6428 return 0
6429 }
6431 proc addtocflist {ids} {
6432 global treediffs
6436 }
6438 proc diffcmd {ids flags} {
6439 global nullid nullid2
6445 # comparing working directory with some specific revision
6449 } else {
6451 }
6452 } else {
6453 # comparing working directory with index
6456 lappend cmd -R
6457 }
6458 }
6462 # comparing index with specific revision
6465 } else {
6467 }
6468 } else {
6469 # comparing index with HEAD
6470 lappend cmd HEAD
6471 }
6472 } else {
6474 }
6476 }
6478 proc gettreediffs {ids} {
6479 global treediff treepending
6484 set treediff {}
6487 }
6489 proc gettreediffline {gdtf ids} {
6490 global treediff treediffs treepending diffids diffmergeid
6491 global cmitmode vfilelimit curview limitdiffs
6493 set nr 0
6500 }
6502 }
6503 }
6506 }
6509 set flist {}
6513 }
6514 }
6516 } else {
6518 }
6519 unset treepending
6523 if {![info exists diffmergeid]} {
6525 }
6526 } else {
6528 }
6529 return 0
6530 }
6532 # empty string or positive integer
6533 proc diffcontextvalidate {v} {
6535 }
6537 proc diffcontextchange {n1 n2 op} {
6538 global diffcontextstring diffcontext
6543 reselectline
6544 }
6545 }
6546 }
6548 proc changeignorespace {} {
6549 reselectline
6550 }
6552 proc getblobdiffs {ids} {
6553 global blobdifffd diffids env
6554 global diffinhdr treediffs
6555 global diffcontext
6556 global ignorespace
6557 global limitdiffs vfilelimit curview
6561 append cmd " -w"
6562 }
6565 }
6568 return
6569 }
6570 set diffinhdr 0
6574 }
6576 proc setinlist {var i val} {
6581 }
6584 } else {
6586 }
6587 }
6589 proc makediffhdr {fname ids} {
6590 global ctext curdiffstart treediffs
6595 }
6599 }
6601 proc getblobdiffline {bdf ids} {
6602 global diffids blobdifffd ctext curdiffstart
6603 global diffnexthead diffnextnote difffilestart
6604 global diffinhdr treediffs
6606 set nr 0
6611 return 0
6612 }
6614 # trim off "diff --git "
6616 set diffinhdr 1
6617 # start of a new file
6621 # If the name hasn't changed the length will be odd,
6622 # the middle char will be a space, and the two bits either
6623 # side will be a/name and b/name, or "a/name" and "b/name".
6624 # If the name has changed we'll get "rename from" and
6625 # "rename to" or "copy from" and "copy to" lines following this,
6626 # and we'll use them to get the filenames.
6627 # This complexity is necessary because spaces in the filename(s)
6628 # don't get escaped.
6634 continue
6635 }
6636 # unescape if quoted and chop off the a/ from the front
6639 } else {
6641 }
6644 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6647 set diffinhdr 0
6654 }
6658 }
6664 }
6667 # do nothing
6668 continue
6670 set diffinhdr 0
6671 continue
6672 }
6675 } else {
6682 } else {
6683 # "\ No newline at end of file",
6684 # or something else we don't recognize
6686 }
6687 }
6688 }
6692 return 0
6693 }
6695 }
6697 proc changediffdisp {} {
6698 global ctext diffelide
6702 }
6704 proc highlightfile {loc cline} {
6705 global ctext cflist cflist_top
6712 }
6714 proc prevfile {} {
6715 global difffilestart ctext cmitmode
6718 set prev 0.0
6719 set prevline 1
6724 return
6725 }
6727 incr prevline
6728 }
6730 }
6732 proc nextfile {} {
6733 global difffilestart ctext cmitmode
6737 set line 1
6739 incr line
6742 return
6743 }
6744 }
6745 }
6747 proc clear_ctext {{first 1.0}} {
6748 global ctext smarktop smarkbot
6749 global pendinglinks
6754 }
6757 }
6760 catch {unset pendinglinks}
6761 }
6762 }
6764 proc settabs {{firstab {}}} {
6765 global firsttabstop tabstop ctext have_tk85
6769 }
6770 set w [font measure textfont "0"]
6776 } else {
6778 }
6779 }
6781 proc incrsearch {name ix op} {
6782 global ctext searchstring searchdirn
6786 # no anchor set, use start of selection, or of visible area
6792 } else {
6794 }
6795 }
6800 }
6801 searchmarkvisible 1
6802 }
6803 }
6805 proc dosearch {} {
6806 global sstring ctext searchstring searchdirn
6810 set searchdirn -forwards
6816 set start "@0,0"
6817 }
6821 bell
6822 return
6823 }
6828 }
6829 }
6831 proc dosearchback {} {
6832 global sstring ctext searchstring searchdirn
6836 set searchdirn -backwards
6843 }
6847 bell
6848 return
6849 }
6854 }
6855 }
6857 proc searchmark {first last} {
6858 global ctext searchstring
6861 while {1} {
6866 }
6867 }
6869 proc searchmarkvisible {doall} {
6870 global ctext smarktop smarkbot
6875 # no overlap with previous
6879 } else {
6883 }
6887 }
6888 }
6889 }
6891 proc scrolltext {f0 f1} {
6892 global searchstring
6896 searchmarkvisible 0
6897 }
6898 }
6900 proc setcoords {} {
6901 global linespc charspc canvx0 canvy0
6902 global xspc1 xspc2 lthickness
6904 set linespc [font metrics mainfont -linespace]
6905 set charspc [font measure mainfont "m"]
6911 }
6913 proc redisplay {} {
6914 global canv
6915 global selectedline
6920 clear_display
6921 setcanvscroll
6923 drawvisible
6927 }
6928 }
6930 proc parsefont {f n} {
6931 global fontattr
6936 set s 10
6939 }
6945 "normal" -
6947 "roman" -
6949 }
6950 }
6951 }
6953 proc fontflags {f {isbold 0}} {
6954 global fontattr
6959 }
6961 proc fontname {f} {
6962 global fontattr
6966 lappend n "bold"
6967 }
6969 lappend n "italic"
6970 }
6972 }
6974 proc incrfont {inc} {
6975 global mainfont textfont ctext canv cflist showrefstop
6976 global stopped entries fontattr
6978 unmarkmatches
6982 set s 1
6983 }
6987 set mainfont [fontname mainfont]
6991 set s 1
6992 }
6996 set textfont [fontname textfont]
6997 setcoords
6998 settabs
6999 redisplay
7000 }
7002 proc clearsha1 {} {
7003 global sha1entry sha1string
7006 }
7007 }
7009 proc sha1change {n1 n2 op} {
7010 global sha1string currentid sha1but
7013 set state disabled
7014 } else {
7015 set state normal
7016 }
7020 } else {
7022 }
7023 }
7025 proc gotocommit {} {
7026 global sha1string tagids headids curview varcid
7034 } else {
7041 return
7042 }
7044 }
7045 }
7046 }
7049 return
7050 }
7053 } else {
7055 }
7057 }
7059 proc lineenter {x y id} {
7060 global hoverx hovery hoverid hovertimer
7061 global commitinfo canv
7067 if {[info exists hovertimer]} {
7069 }
7070 set hovertimer [after 500 linehover]
7072 }
7074 proc linemotion {x y id} {
7075 global hoverx hovery hoverid hovertimer
7080 if {[info exists hovertimer]} {
7082 }
7083 set hovertimer [after 500 linehover]
7084 }
7085 }
7087 proc lineleave {id} {
7088 global hoverid hovertimer canv
7092 if {[info exists hovertimer]} {
7094 unset hovertimer
7095 }
7096 unset hoverid
7097 }
7098 }
7100 proc linehover {} {
7101 global hoverx hovery hoverid hovertimer
7102 global canv linespc lthickness
7103 global commitinfo
7116 -fill \#ffff80 -outline black -width 1 -tags hover]
7119 -font mainfont]
7121 }
7123 proc clickisonarrow {id y} {
7124 global lthickness
7133 }
7134 }
7135 return {}
7136 }
7138 proc arrowjump {id n y} {
7139 global canv
7141 # 1 <-> 2, 3 <-> 4, etc...
7151 set yfrac 0
7152 }
7154 }
7156 proc lineclick {x y id isnew} {
7157 global ctext commitinfo children canv thickerline curview
7160 unmarkmatches
7161 unselectline
7162 normalline
7164 # draw this line thicker than normal
7172 }
7176 return
7177 }
7181 }
7182 # fill the details pane with info about this line
7184 clear_ctext
7185 settabs 0
7197 set i 0
7199 incr i
7209 }
7210 }
7212 init_flist {}
7213 }
7215 proc normalline {} {
7216 global thickerline
7217 if {[info exists thickerline]} {
7219 unset thickerline
7221 }
7222 }
7224 proc selbyid {id} {
7225 global curview
7228 }
7229 }
7231 proc mstime {} {
7232 global startmstime
7233 if {![info exists startmstime]} {
7234 set startmstime [clock clicks -milliseconds]
7235 }
7237 }
7239 proc rowmenu {x y id} {
7240 global rowctxmenu selectedline rowmenuid curview
7241 global nullid nullid2 fakerowmenu mainhead
7243 stopfinding
7246 set state disabled
7247 } else {
7248 set state normal
7249 }
7254 } else {
7256 }
7257 } else {
7259 }
7264 }
7266 proc diffvssel {dirn} {
7267 global rowmenuid selectedline
7273 } else {
7276 }
7279 }
7281 proc doseldiff {oldid newid} {
7282 global ctext
7283 global commitinfo
7286 clear_ctext
7287 init_flist [mc "Top"]
7302 }
7304 proc mkpatch {} {
7305 global rowmenuid currentid commitinfo patchtop patchnum
7307 if {![info exists currentid]} return
7312 set top .patch
7341 incr patchnum
7351 }
7353 proc mkpatchrev {} {
7354 global patchtop
7360 foreach e [list fromsha1 fromhead tosha1 tohead] \
7366 }
7367 }
7369 proc mkpatchgo {} {
7370 global patchtop nullid nullid2
7376 # trim off the initial "|"
7381 }
7383 unset patchtop
7384 }
7386 proc mkpatchcan {} {
7387 global patchtop
7390 unset patchtop
7391 }
7393 proc mktag {} {
7394 global rowmenuid mktagtop commitinfo
7396 set top .maketag
7422 }
7424 proc domktag {} {
7425 global mktagtop env tagids idtags
7430 error_popup [mc "No tag name specified"]
7431 return
7432 }
7435 return
7436 }
7437 if {[catch {
7439 } err]} {
7441 return
7442 }
7448 dispneartags 0
7449 run refill_reflist
7450 }
7452 proc redrawtags {id} {
7453 global canv linehtag idpos currentid curview cmitlisted
7454 global canvxmax iddrawn circleitem mainheadid circlecolors
7460 set ofill yellow
7461 } else {
7463 }
7473 setcanvscroll
7474 }
7477 }
7478 }
7480 proc mktagcan {} {
7481 global mktagtop
7484 unset mktagtop
7485 }
7487 proc mktaggo {} {
7488 domktag
7489 mktagcan
7490 }
7492 proc writecommit {} {
7493 global rowmenuid wrcomtop commitinfo wrcomcmd
7495 set top .writecommit
7525 }
7527 proc wrcomgo {} {
7528 global wrcomtop
7535 }
7537 unset wrcomtop
7538 }
7540 proc wrcomcan {} {
7541 global wrcomtop
7544 unset wrcomtop
7545 }
7547 proc mkbranch {} {
7548 global rowmenuid mkbrtop
7550 set top .makebranch
7571 }
7573 proc mkbrgo {top} {
7574 global headids idheads
7579 error_popup [mc "Please specify a name for the new branch"]
7580 return
7581 }
7583 nowbusy newbranch
7584 update
7585 if {[catch {
7587 } err]} {
7588 notbusy newbranch
7590 } else {
7594 notbusy newbranch
7596 dispneartags 0
7597 run refill_reflist
7598 }
7599 }
7601 proc cherrypick {} {
7602 global rowmenuid curview
7603 global mainhead mainheadid
7605 set oldhead [exec git rev-parse HEAD]
7608 set ok [confirm_popup [mc "Commit %s is already\
7609 included in branch %s -- really re-apply it?" \
7612 }
7613 nowbusy cherrypick [mc "Cherry-picking"]
7614 update
7615 # Unfortunately git-cherry-pick writes stuff to stderr even when
7616 # no error occurs, and exec takes that as an indication of error...
7618 notbusy cherrypick
7620 return
7621 }
7622 set newhead [exec git rev-parse HEAD]
7624 notbusy cherrypick
7625 error_popup [mc "No changes committed"]
7626 return
7627 }
7634 }
7639 }
7640 notbusy cherrypick
7641 }
7643 proc resethead {} {
7644 global mainhead rowmenuid confirm_ok resettype
7646 set confirm_ok 0
7647 set w ".confirmreset"
7653 -justify center -aspect 1000
7658 set resettype mixed
7660 -text [mc "Soft: Leave working tree and index untouched"]
7663 -text [mc "Mixed: Leave working tree untouched, reset index"]
7666 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7676 if {[catch {set fd [open \
7679 } else {
7680 dohidelocalchanges
7682 nowbusy reset [mc "Resetting"]
7684 }
7685 }
7687 proc readresetstat {fd} {
7688 global mainhead mainheadid showlocalchanges rprogcoord
7693 adjustprogress
7694 }
7695 return 1
7696 }
7697 set rprogcoord 0
7698 adjustprogress
7699 notbusy reset
7702 }
7704 set newhead [exec git rev-parse HEAD]
7711 }
7713 doshowlocalchanges
7714 }
7715 return 0
7716 }
7718 # context menu for a head
7719 proc headmenu {x y id head} {
7720 global headmenuid headmenuhead headctxmenu mainhead
7722 stopfinding
7725 set state normal
7727 set state disabled
7728 }
7732 }
7734 proc cobranch {} {
7735 global headmenuid headmenuhead headids
7736 global showlocalchanges mainheadid
7738 # check the tree is clean first??
7739 nowbusy checkout [mc "Checking out"]
7740 update
7741 dohidelocalchanges
7742 if {[catch {
7744 } err]} {
7745 notbusy checkout
7748 dodiffindex
7749 }
7750 } else {
7752 }
7753 }
7755 proc readcheckoutstat {fd newhead newheadid} {
7756 global mainhead mainheadid headids showlocalchanges progresscoords
7761 adjustprogress
7762 }
7763 return 1
7764 }
7765 set progresscoords {0 0}
7766 adjustprogress
7767 notbusy checkout
7770 }
7778 dodiffindex
7779 }
7780 }
7782 proc rmbranch {} {
7783 global headmenuid headmenuhead mainhead
7784 global idheads
7788 # this check shouldn't be needed any more...
7790 error_popup [mc "Cannot delete the currently checked-out branch"]
7791 return
7792 }
7795 # the stuff on this branch isn't on any other branch
7796 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7798 }
7799 nowbusy rmbranch
7800 update
7802 notbusy rmbranch
7804 return
7805 }
7809 notbusy rmbranch
7810 dispneartags 0
7811 run refill_reflist
7812 }
7814 # Display a list of tags and heads
7815 proc showrefs {} {
7816 global showrefstop bgcolor fgcolor selectbgcolor
7817 global bglist fglist reflistfilter reflist maincursor
7819 set top .showrefs
7823 refill_reflist
7824 return
7825 }
7832 -spacing1 1 -spacing3 1 -state disabled
7843 set reflistfilter "*"
7844 trace add variable reflistfilter write reflistfilter_change
7855 set reflist {}
7856 refill_reflist
7857 }
7859 proc sel_reflist {w x y} {
7860 global showrefstop reflist headids tagids otherrefids
7870 }
7872 }
7874 proc unsel_reflist {} {
7875 global showrefstop
7879 }
7881 proc reflistfilter_change {n1 n2 op} {
7882 global reflistfilter
7884 after cancel refill_reflist
7885 after 200 refill_reflist
7886 }
7888 proc refill_reflist {} {
7889 global reflist reflistfilter showrefstop headids tagids otherrefids
7890 global curview commitinterest
7893 set refs {}
7894 foreach n [array names headids] {
7898 } else {
7900 }
7901 }
7902 }
7903 foreach n [array names tagids] {
7907 } else {
7909 }
7910 }
7911 }
7912 foreach n [array names otherrefids] {
7916 } else {
7918 }
7919 }
7920 }
7928 set i 0
7929 set j 0
7938 }
7939 } else {
7940 set cmp -1
7941 }
7942 } else {
7943 set cmp 1
7944 }
7946 -1 {
7948 incr i
7949 }
7950 0 {
7951 incr i
7952 incr j
7953 }
7954 1 {
7959 incr j
7960 }
7961 }
7962 }
7964 # delete last newline
7967 }
7969 # Stuff for finding nearby tags
7970 proc getallcommits {} {
7971 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7972 global idheads idtags idotherrefs allparents tagobjid
7974 if {![info exists allcommits]} {
7975 set nextarc 0
7976 set allcommits 0
7977 set seeds {}
7978 set allcwait 0
7979 set cachedarcs 0
7980 set allccache [file join [gitdir] "gitk.cache"]
7981 if {![catch {
7983 set allcwait 1
7985 }]} return
7986 }
7989 return
7990 }
7991 set cmd [list | git rev-list --parents]
7994 set ids "--all"
7995 } else {
7996 set refs [concat [array names idheads] [array names idtags] \
7997 [array names idotherrefs]]
7998 set ids {}
7999 set tagobjs {}
8000 foreach name [array names tagobjid] {
8002 }
8007 }
8008 }
8012 }
8013 }
8014 }
8018 incr allcommits
8019 nowbusy allcommits
8021 } else {
8022 dispneartags 0
8023 }
8024 }
8026 # Since most commits have 1 parent and 1 child, we group strings of
8027 # such commits into "arcs" joining branch/merge points (BMPs), which
8028 # are commits that either don't have 1 parent or don't have 1 child.
8029 #
8030 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8031 # arcout(id) - outgoing arcs for BMP
8032 # arcids(a) - list of IDs on arc including end but not start
8033 # arcstart(a) - BMP ID at start of arc
8034 # arcend(a) - BMP ID at end of arc
8035 # growing(a) - arc a is still growing
8036 # arctags(a) - IDs out of arcids (excluding end) that have tags
8037 # archeads(a) - IDs out of arcids (excluding end) that have heads
8038 # The start of an arc is at the descendent end, so "incoming" means
8039 # coming from descendents, and "outgoing" means going towards ancestors.
8041 proc getallclines {fd} {
8042 global allparents allchildren idtags idheads nextarc
8043 global arcnos arcids arctags arcout arcend arcstart archeads growing
8044 global seeds allcommits cachedarcs allcupdate
8046 set nid 0
8050 # seen it already
8051 continue
8052 }
8053 set cachedarcs 0
8060 } else {
8066 }
8069 }
8071 # seen parent already
8074 }
8078 }
8081 continue
8082 }
8083 }
8088 }
8090 set ao {}
8093 set a [incr nextarc]
8102 # seen it already, may need to make a new branch
8105 }
8109 }
8111 }
8113 }
8115 global cached_dheads cached_dtags cached_atags
8116 catch {unset cached_dheads}
8117 catch {unset cached_dtags}
8118 catch {unset cached_atags}
8119 }
8122 }
8123 set cacheok 1
8124 if {[catch {
8127 } err]} {
8128 # got an error reading the list of commits
8129 # if we were updating, try rereading the whole thing again
8131 incr allcommits -1
8133 return
8134 }
8135 error_popup "[mc "Error reading commit topology information;\
8136 branch and preceding/following tag information\
8138 set cacheok 0
8139 }
8140 if {[incr allcommits -1] == 0} {
8141 notbusy allcommits
8143 run savecache
8144 }
8145 }
8146 dispneartags 0
8147 return 0
8148 }
8150 proc recalcarc {a} {
8151 global arctags archeads arcids idtags idheads
8153 set at {}
8154 set ah {}
8158 }
8161 }
8162 }
8165 }
8167 proc splitarc {p} {
8168 global arcnos arcids nextarc arctags archeads idtags idheads
8169 global arcstart arcend arcout allparents growing
8174 return
8175 }
8180 return
8181 }
8182 set na [incr nextarc]
8185 } else {
8189 }
8199 }
8204 } else {
8207 }
8208 }
8210 # reconstruct tags and heads lists
8214 } else {
8217 }
8218 }
8220 # Update things for a new commit added that is a child of one
8221 # existing commit. Used when cherry-picking.
8222 proc addnewchild {id p} {
8223 global allparents allchildren idtags nextarc
8224 global arcnos arcids arctags arcout arcend arcstart archeads growing
8225 global seeds allcommits
8233 set a [incr nextarc]
8241 }
8244 }
8246 # This implements a cache for the topology information.
8247 # The cache saves, for each arc, the start and end of the arc,
8248 # the ids on the arc, and the outgoing arcs from the end.
8249 proc readcache {f} {
8250 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8251 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8252 global allcwait
8258 }
8259 if {[catch {
8261 # finish reading the cache and setting up arctags, etc.
8265 foreach id [array names idtags] {
8271 }
8272 }
8273 }
8274 foreach id [array names idheads] {
8280 }
8281 }
8282 }
8286 }
8287 }
8288 set allcwait 0
8289 } else {
8299 }
8303 } else {
8307 }
8308 }
8314 }
8317 }
8320 }
8322 }
8323 } err]} {
8325 return 0
8326 }
8328 getallcommits
8329 }
8331 }
8333 proc getcache {f} {
8334 global nextarc cachedarcs possible_seeds
8336 if {[catch {
8339 # make sure it's an integer
8342 set nextarc 0
8343 set possible_seeds {}
8345 } err]} {
8347 }
8348 return 0
8349 }
8351 proc dropcache {err} {
8352 global allcwait nextarc cachedarcs seeds
8355 foreach v {arcnos arcout arcids arcstart arcend growing \
8356 arctags archeads allparents allchildren} {
8359 }
8360 set allcwait 0
8361 set nextarc 0
8362 set cachedarcs 0
8363 set seeds {}
8364 getallcommits
8365 }
8367 proc writecache {f} {
8368 global cachearc cachedarcs allccache
8369 global arcstart arcend arcnos arcids arcout
8375 }
8376 if {[catch {
8380 } else {
8382 }
8383 }
8384 } err]} {
8388 return 0
8389 }
8394 return 0
8395 }
8396 return 1
8397 }
8399 proc savecache {} {
8400 global nextarc cachedarcs cachearc allccache
8403 set cachearc 0
8405 catch {
8409 }
8410 }
8412 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8413 # or 0 if neither is true.
8414 proc anc_or_desc {a b} {
8415 global arcout arcstart arcend arcnos cached_isanc
8418 # Both are on the same arc(s); either both are the same BMP,
8419 # or if one is not a BMP, the other is also not a BMP or is
8420 # the BMP at end of the arc (and it only has 1 incoming arc).
8421 # Or both can be BMPs with no incoming arcs.
8423 return 0
8424 }
8430 return 1
8431 } else {
8432 return -1
8433 }
8434 }
8440 } else {
8441 set aend {}
8442 }
8444 } else {
8446 }
8451 } else {
8452 set bend {}
8453 }
8455 } else {
8457 }
8459 return 1
8460 }
8462 return -1
8463 }
8466 return 1
8467 }
8468 }
8471 return -1
8472 }
8474 return 0
8475 }
8476 }
8484 continue
8485 }
8491 return 1
8495 return -1
8496 }
8502 }
8503 }
8504 }
8507 return 0
8508 }
8512 # and returns 0 if so and 1 if not.
8513 # If we subsequently discover a tag on such a growing tip, and that
8516 # isn't a good choice to display as a descendent tag of
8520 #
8521 proc is_certain {desc anc} {
8522 global arcnos arcout arcstart arcend growing problems
8524 set certain {}
8526 # tags on the same arc are certain
8528 return 1
8529 }
8534 }
8535 }
8538 } else {
8541 }
8543 return 1
8544 }
8547 set nnh 1
8548 set ngrowanc 0
8552 incr nnh -1
8553 }
8559 incr ngrowanc
8560 }
8561 } else {
8568 incr nnh -1
8569 }
8571 incr ngrowanc -1
8572 }
8582 incr nnh -1
8583 }
8585 incr ngrowanc -1
8586 }
8588 }
8589 }
8590 }
8591 }
8592 }
8593 }
8597 } else {
8600 incr nnh
8601 }
8602 }
8603 }
8604 }
8605 foreach x [array names growanc] {
8607 return 0
8608 }
8609 return 0
8610 }
8611 return 1
8612 }
8614 proc validate_arctags {a} {
8615 global arctags idtags
8617 set i -1
8620 incr i
8623 incr i -1
8624 }
8625 }
8627 }
8629 proc validate_archeads {a} {
8630 global archeads idheads
8632 set i -1
8635 incr i
8638 incr i -1
8639 }
8640 }
8642 }
8644 # Return the list of IDs that have tags that are descendents of id,
8645 # ignoring IDs that are descendents of IDs already reported.
8646 proc desctags {id} {
8647 global arcnos arcstart arcids arctags idtags allparents
8648 global growing cached_dtags
8651 return {}
8652 }
8653 set t1 [clock clicks -milliseconds]
8656 # part-way along an arc; check that arc first
8661 set tid {}
8666 }
8669 }
8670 }
8674 }
8675 }
8678 }
8683 set nc 1
8689 incr nc -1
8690 }
8691 # ignore tags on starting node
8695 set ta 1
8698 set ta 1
8699 }
8700 }
8707 }
8708 }
8717 }
8720 }
8722 incr nc -1
8723 }
8725 }
8726 }
8727 }
8732 incr nc
8733 }
8734 }
8735 }
8736 }
8737 set tags {}
8738 foreach id [array names tagloc] {
8743 }
8744 }
8745 }
8746 }
8747 set t2 [clock clicks -milliseconds]
8750 # remove tags that are descendents of other tags
8758 incr j -1
8759 incr i -1
8762 incr i -1
8763 break
8764 }
8765 }
8766 }
8768 if {[array names growing] ne {}} {
8769 # graph isn't finished, need to check if any tag could get
8770 # eclipsed by another tag coming later. Simply ignore any
8771 # tags that could later get eclipsed.
8772 set ctags {}
8776 }
8777 }
8780 } else {
8782 }
8783 } else {
8785 }
8786 set t3 [clock clicks -milliseconds]
8790 }
8792 }
8794 proc anctags {id} {
8795 global arcnos arcids arcout arcend arctags idtags allparents
8796 global growing cached_atags
8799 return {}
8800 }
8801 set t1 [clock clicks -milliseconds]
8804 # part-way along an arc; check that arc first
8813 }
8814 }
8815 }
8817 return {}
8818 }
8822 }
8823 }
8826 }
8831 set taglist {}
8832 set nc 1
8838 incr nc -1
8839 }
8840 # ignore tags on starting node
8844 set td 1
8847 set td 1
8848 }
8849 }
8855 }
8856 }
8868 }
8869 }
8872 }
8874 incr nc -1
8875 }
8877 }
8878 }
8879 }
8884 incr nc
8885 }
8886 }
8887 }
8888 }
8889 set t2 [clock clicks -milliseconds]
8891 set tags {}
8892 foreach id [array names tagloc] {
8897 }
8898 }
8899 }
8900 }
8902 # remove tags that are ancestors of other tags
8910 incr j -1
8911 incr i -1
8914 incr i -1
8915 break
8916 }
8917 }
8918 }
8920 if {[array names growing] ne {}} {
8921 # graph isn't finished, need to check if any tag could get
8922 # eclipsed by another tag coming later. Simply ignore any
8923 # tags that could later get eclipsed.
8924 set ctags {}
8928 }
8929 }
8932 } else {
8934 }
8935 } else {
8937 }
8938 set t3 [clock clicks -milliseconds]
8942 }
8944 }
8946 # Return the list of IDs that have heads that are descendents of id,
8947 # including id itself if it has a head.
8948 proc descheads {id} {
8949 global arcnos arcstart arcids archeads idheads cached_dheads
8950 global allparents
8953 return {}
8954 }
8955 set aret {}
8957 # part-way along an arc; check it first
8966 }
8967 }
8969 }
8973 set ret {}
8978 } else {
8981 }
8987 }
8988 }
8993 }
8994 }
8995 }
8996 }
9000 }
9002 proc addedtag {id} {
9003 global arcnos arcout cached_dtags cached_atags
9008 }
9009 catch {unset cached_dtags}
9010 catch {unset cached_atags}
9011 }
9013 proc addedhead {hid head} {
9014 global arcnos arcout cached_dheads
9019 }
9020 catch {unset cached_dheads}
9021 }
9023 proc removedhead {hid head} {
9024 global cached_dheads
9026 catch {unset cached_dheads}
9027 }
9029 proc movedhead {hid head} {
9030 global arcnos arcout cached_dheads
9035 }
9036 catch {unset cached_dheads}
9037 }
9039 proc changedrefs {} {
9040 global cached_dheads cached_dtags cached_atags
9041 global arctags archeads arcnos arcout idheads idtags
9043 foreach id [concat [array names idheads] [array names idtags]] {
9049 }
9050 }
9051 }
9052 catch {unset cached_dtags}
9053 catch {unset cached_atags}
9054 catch {unset cached_dheads}
9055 }
9057 proc rereadrefs {} {
9058 global idtags idheads idotherrefs mainheadid
9060 set refids [concat [array names idtags] \
9061 [array names idheads] [array names idotherrefs]]
9065 }
9066 }
9068 readrefs
9069 changedrefs
9071 [array names idheads] [array names idotherrefs]]]
9076 }
9077 }
9081 }
9082 run refill_reflist
9083 }
9085 proc listrefs {id} {
9086 global idtags idheads idotherrefs
9088 set x {}
9091 }
9092 set y {}
9095 }
9096 set z {}
9099 }
9101 }
9103 proc showtag {tag isnew} {
9104 global ctext tagcontents tagids linknum tagobjid
9108 }
9110 clear_ctext
9111 settabs 0
9112 set linknum 0
9114 catch {
9116 }
9117 }
9120 } else {
9122 }
9125 init_flist {}
9126 }
9128 proc doquit {} {
9129 global stopped
9130 global gitktmpdir
9132 set stopped 100
9133 savestuff .
9134 destroy .
9136 if {[info exists gitktmpdir]} {
9138 }
9139 }
9141 proc mkfontdisp {font top which} {
9150 }
9152 proc choosefont {font which} {
9153 global fontparam fontlist fonttop fontattr
9161 set top .gitkfont
9164 font create sample
9170 set fontlist [lsort [font families]]
9181 -textvariable fontparam(size) \
9182 -validatecommand {string is integer -strict %s}
9184 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9185 -variable fontparam(weight) -onvalue bold -offvalue normal
9187 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9188 -variable fontparam(slant) -onvalue italic -offvalue roman
9192 -background white
9194 -fill black -tags text
9204 trace add variable fontparam write chg_fontparam
9205 } else {
9208 }
9213 }
9214 }
9216 proc centertext {w} {
9218 }
9220 proc fontok {} {
9221 global fontparam fontpref prefstop
9227 }
9230 }
9234 fontcan
9235 }
9237 proc fontcan {} {
9238 global fonttop fontparam
9240 if {[info exists fonttop]} {
9242 catch {font delete sample}
9243 unset fonttop
9244 unset fontparam
9245 }
9246 }
9248 proc selfontfam {} {
9249 global fonttop fontparam
9254 }
9255 }
9257 proc chg_fontparam {v sub op} {
9258 global fontparam
9261 }
9263 proc doprefs {} {
9264 global maxwidth maxgraphpct
9265 global oldprefs prefstop showneartags showlocalchanges
9266 global bgcolor fgcolor ctext diffcolors selectbgcolor
9267 global tabstop limitdiffs autoselect extdifftool
9269 set top .gitkprefs
9273 return
9274 }
9275 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9276 limitdiffs tabstop} {
9278 }
9285 -font optionfont
9289 -font optionfont
9322 -padx 10
9324 -command choose_extdiff
9351 "diff hunk header" \
9373 }
9375 proc choose_extdiff {} {
9376 global extdifftool
9378 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9381 }
9382 }
9384 proc choosecolor {v vi w x cmd} {
9393 }
9395 proc setselbg {c} {
9396 global bglist cflist
9399 }
9403 }
9405 proc setbg {c} {
9406 global bglist
9410 }
9411 }
9413 proc setfg {c} {
9414 global fglist canv
9418 }
9421 }
9423 proc prefscan {} {
9424 global oldprefs prefstop
9426 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9427 limitdiffs tabstop} {
9430 }
9432 unset prefstop
9433 fontcan
9434 }
9436 proc prefsok {} {
9437 global maxwidth maxgraphpct
9438 global oldprefs prefstop showneartags showlocalchanges
9439 global fontpref mainfont textfont uifont
9440 global limitdiffs treediffs
9443 unset prefstop
9444 fontcan
9445 set fontchanged 0
9449 eval font configure mainfont [fontflags mainfont]
9450 eval font configure mainfontbold [fontflags mainfont 1]
9451 setcoords
9452 set fontchanged 1
9453 }
9457 eval font configure textfont [fontflags textfont]
9458 eval font configure textfontbold [fontflags textfont 1]
9459 }
9463 eval font configure uifont [fontflags uifont]
9464 }
9465 settabs
9468 doshowlocalchanges
9469 } else {
9470 dohidelocalchanges
9471 }
9472 }
9474 # treediffs elements are limited by path
9475 catch {unset treediffs}
9476 }
9479 redisplay
9482 reselectline
9483 }
9484 }
9486 proc formatdate {d} {
9487 global datetimeformat
9490 }
9492 }
9494 # This list of encoding names and aliases is distilled from
9495 # http://www.iana.org/assignments/character-sets.
9496 # Not all of them are supported by Tcl.
9497 set encoding_aliases {
9498 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9499 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9500 { ISO-10646-UTF-1 csISO10646UTF1 }
9501 { ISO_646.basic:1983 ref csISO646basic1983 }
9502 { INVARIANT csINVARIANT }
9503 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9504 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9505 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9506 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9507 { NATS-DANO iso-ir-9-1 csNATSDANO }
9508 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9509 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9510 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9511 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9512 { ISO-2022-KR csISO2022KR }
9513 { EUC-KR csEUCKR }
9514 { ISO-2022-JP csISO2022JP }
9515 { ISO-2022-JP-2 csISO2022JP2 }
9516 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9517 csISO13JISC6220jp }
9518 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9519 { IT iso-ir-15 ISO646-IT csISO15Italian }
9520 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9521 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9522 { greek7-old iso-ir-18 csISO18Greek7Old }
9523 { latin-greek iso-ir-19 csISO19LatinGreek }
9524 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9525 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9526 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9527 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9528 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9529 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9530 { INIS iso-ir-49 csISO49INIS }
9531 { INIS-8 iso-ir-50 csISO50INIS8 }
9532 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9533 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9534 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9535 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9536 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9537 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9538 csISO60Norwegian1 }
9539 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9540 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9541 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9542 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9543 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9544 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9545 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9546 { greek7 iso-ir-88 csISO88Greek7 }
9547 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9548 { iso-ir-90 csISO90 }
9549 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9550 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9551 csISO92JISC62991984b }
9552 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9553 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9554 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9555 csISO95JIS62291984handadd }
9556 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9557 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9558 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9559 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9560 CP819 csISOLatin1 }
9561 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9562 { T.61-7bit iso-ir-102 csISO102T617bit }
9563 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9564 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9565 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9566 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9567 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9568 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9569 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9570 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9571 arabic csISOLatinArabic }
9572 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9573 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9574 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9575 greek greek8 csISOLatinGreek }
9576 { T.101-G2 iso-ir-128 csISO128T101G2 }
9577 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9578 csISOLatinHebrew }
9579 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9580 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9581 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9582 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9583 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9584 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9585 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9586 csISOLatinCyrillic }
9587 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9588 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9589 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9590 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9591 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9592 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9593 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9594 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9595 { ISO_10367-box iso-ir-155 csISO10367Box }
9596 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9597 { latin-lap lap iso-ir-158 csISO158Lap }
9598 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9599 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9600 { us-dk csUSDK }
9601 { dk-us csDKUS }
9602 { JIS_X0201 X0201 csHalfWidthKatakana }
9603 { KSC5636 ISO646-KR csKSC5636 }
9604 { ISO-10646-UCS-2 csUnicode }
9605 { ISO-10646-UCS-4 csUCS4 }
9606 { DEC-MCS dec csDECMCS }
9607 { hp-roman8 roman8 r8 csHPRoman8 }
9608 { macintosh mac csMacintosh }
9609 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9610 csIBM037 }
9611 { IBM038 EBCDIC-INT cp038 csIBM038 }
9612 { IBM273 CP273 csIBM273 }
9613 { IBM274 EBCDIC-BE CP274 csIBM274 }
9614 { IBM275 EBCDIC-BR cp275 csIBM275 }
9615 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9616 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9617 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9618 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9619 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9620 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9621 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9622 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9623 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9624 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9625 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9626 { IBM437 cp437 437 csPC8CodePage437 }
9627 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9628 { IBM775 cp775 csPC775Baltic }
9629 { IBM850 cp850 850 csPC850Multilingual }
9630 { IBM851 cp851 851 csIBM851 }
9631 { IBM852 cp852 852 csPCp852 }
9632 { IBM855 cp855 855 csIBM855 }
9633 { IBM857 cp857 857 csIBM857 }
9634 { IBM860 cp860 860 csIBM860 }
9635 { IBM861 cp861 861 cp-is csIBM861 }
9636 { IBM862 cp862 862 csPC862LatinHebrew }
9637 { IBM863 cp863 863 csIBM863 }
9638 { IBM864 cp864 csIBM864 }
9639 { IBM865 cp865 865 csIBM865 }
9640 { IBM866 cp866 866 csIBM866 }
9641 { IBM868 CP868 cp-ar csIBM868 }
9642 { IBM869 cp869 869 cp-gr csIBM869 }
9643 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9644 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9645 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9646 { IBM891 cp891 csIBM891 }
9647 { IBM903 cp903 csIBM903 }
9648 { IBM904 cp904 904 csIBBM904 }
9649 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9650 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9651 { IBM1026 CP1026 csIBM1026 }
9652 { EBCDIC-AT-DE csIBMEBCDICATDE }
9653 { EBCDIC-AT-DE-A csEBCDICATDEA }
9654 { EBCDIC-CA-FR csEBCDICCAFR }
9655 { EBCDIC-DK-NO csEBCDICDKNO }
9656 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9657 { EBCDIC-FI-SE csEBCDICFISE }
9658 { EBCDIC-FI-SE-A csEBCDICFISEA }
9659 { EBCDIC-FR csEBCDICFR }
9660 { EBCDIC-IT csEBCDICIT }
9661 { EBCDIC-PT csEBCDICPT }
9662 { EBCDIC-ES csEBCDICES }
9663 { EBCDIC-ES-A csEBCDICESA }
9664 { EBCDIC-ES-S csEBCDICESS }
9665 { EBCDIC-UK csEBCDICUK }
9666 { EBCDIC-US csEBCDICUS }
9667 { UNKNOWN-8BIT csUnknown8BiT }
9668 { MNEMONIC csMnemonic }
9669 { MNEM csMnem }
9670 { VISCII csVISCII }
9671 { VIQR csVIQR }
9672 { KOI8-R csKOI8R }
9673 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9674 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9675 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9676 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9677 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9678 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9679 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9680 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9681 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9682 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9683 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9684 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9685 { IBM1047 IBM-1047 }
9686 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9687 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9688 { UNICODE-1-1 csUnicode11 }
9689 { CESU-8 csCESU-8 }
9690 { BOCU-1 csBOCU-1 }
9691 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9692 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9693 l8 }
9694 { ISO-8859-15 ISO_8859-15 Latin-9 }
9695 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9696 { GBK CP936 MS936 windows-936 }
9697 { JIS_Encoding csJISEncoding }
9698 { Shift_JIS MS_Kanji csShiftJIS }
9699 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9700 EUC-JP }
9701 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9702 { ISO-10646-UCS-Basic csUnicodeASCII }
9703 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9704 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9705 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9706 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9707 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9708 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9709 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9710 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9711 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9712 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9713 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9714 { Ventura-US csVenturaUS }
9715 { Ventura-International csVenturaInternational }
9716 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9717 { PC8-Turkish csPC8Turkish }
9718 { IBM-Symbols csIBMSymbols }
9719 { IBM-Thai csIBMThai }
9720 { HP-Legal csHPLegal }
9721 { HP-Pi-font csHPPiFont }
9722 { HP-Math8 csHPMath8 }
9723 { Adobe-Symbol-Encoding csHPPSMath }
9724 { HP-DeskTop csHPDesktop }
9725 { Ventura-Math csVenturaMath }
9726 { Microsoft-Publishing csMicrosoftPublishing }
9727 { Windows-31J csWindows31J }
9728 { GB2312 csGB2312 }
9729 { Big5 csBig5 }
9730 }
9732 proc tcl_encoding {enc} {
9733 global encoding_aliases
9734 set names [encoding names]
9739 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9742 }
9743 }
9748 # look through the aliases for one that tcl knows about
9754 }
9755 }
9757 }
9758 break
9759 }
9760 }
9763 }
9764 return {}
9765 }
9767 # First check that Tcl/Tk is recent enough
9768 if {[catch {package require Tk 8.4} err]} {
9769 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9770 Gitk requires at least Tcl/Tk 8.4."]
9771 exit 1
9772 }
9774 # defaults...
9775 set wrcomcmd "git diff-tree --stdin -p --pretty"
9777 set gitencoding {}
9778 catch {
9779 set gitencoding [exec git config --get i18n.commitencoding]
9780 }
9782 set gitencoding "utf-8"
9783 }
9787 }
9789 set mainfont {Helvetica 9}
9790 set textfont {Courier 9}
9791 set uifont {Helvetica 9 bold}
9792 set tabstop 8
9793 set findmergefiles 0
9794 set maxgraphpct 50
9795 set maxwidth 16
9796 set revlistorder 0
9797 set fastdate 0
9798 set uparrowlen 5
9799 set downarrowlen 5
9800 set mingaplen 100
9801 set cmitmode "patch"
9802 set wrapcomment "none"
9803 set showneartags 1
9804 set maxrefs 20
9805 set maxlinelen 200
9806 set showlocalchanges 1
9807 set limitdiffs 1
9808 set datetimeformat "%Y-%m-%d %H:%M:%S"
9809 set autoselect 1
9811 set extdifftool "meld"
9813 set colors {green red blue magenta darkgrey brown orange}
9814 set bgcolor white
9815 set fgcolor black
9816 set diffcolors {red "#00a000" blue}
9817 set diffcontext 3
9818 set ignorespace 0
9819 set selectbgcolor gray85
9821 set circlecolors {white blue gray blue blue}
9823 ## For msgcat loading, first locate the installation location.
9824 if { [info exists ::env(GITK_MSGSDIR)] } {
9825 ## Msgsdir was manually set in the environment.
9826 set gitk_msgsdir $::env(GITK_MSGSDIR)
9827 } else {
9828 ## Let's guess the prefix from argv0.
9832 unset gitk_prefix
9833 }
9835 ## Internationalization (i18n) through msgcat and gettext. See
9836 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9837 package require msgcat
9838 namespace import ::msgcat::mc
9839 ## And eventually load the actual message catalog
9842 catch {source ~/.gitk}
9844 font create optionfont -family sans-serif -size -12
9847 eval font create mainfont [fontflags mainfont]
9848 eval font create mainfontbold [fontflags mainfont 1]
9851 eval font create textfont [fontflags textfont]
9852 eval font create textfontbold [fontflags textfont 1]
9855 eval font create uifont [fontflags uifont]
9857 setoptions
9859 # check that we can find a .git directory somewhere...
9860 if {[catch {set gitdir [gitdir]}]} {
9861 show_error {} . [mc "Cannot find a git repository here."]
9862 exit 1
9863 }
9866 exit 1
9867 }
9869 set revtreeargs {}
9870 set cmdline_files {}
9871 set i 0
9872 set revtreeargscmd {}
9875 "" { }
9876 "--" {
9878 break
9879 }
9880 "--argscmd=*" {
9882 }
9883 default {
9885 }
9886 }
9887 incr i
9888 }
9891 # no -- on command line, but some arguments (other than --argscmd)
9892 if {[catch {
9897 # Unfortunately git rev-parse doesn't produce an error when
9898 # something is both a revision and a filename. To be consistent
9899 # with git log and git rev-list, check revtreeargs for filenames.
9902 show_error {} . [mc "Ambiguous argument '%s': both revision\
9904 exit 1
9905 }
9906 }
9907 } err]} {
9909 # so look for "fatal:".
9913 }
9915 exit 1
9916 }
9917 }
9919 set nullid "0000000000000000000000000000000000000000"
9920 set nullid2 "0000000000000000000000000000000000000001"
9921 set nullfile "/dev/null"
9925 set runq {}
9926 set history {}
9927 set historyindex 0
9928 set fh_serial 0
9929 set nhl_names {}
9930 set highlight_paths {}
9931 set findpattern {}
9932 set searchdirn -forwards
9933 set boldrows {}
9934 set boldnamerows {}
9935 set diffelide {0 0}
9936 set markingmatches 0
9937 set linkentercount 0
9938 set need_redisplay 0
9939 set nrows_drawn 0
9940 set firsttabstop 0
9942 set nextviewnum 1
9943 set curview 0
9944 set selectedview 0
9945 set selectedhlview [mc "None"]
9946 set highlight_related [mc "None"]
9947 set highlight_files {}
9948 set viewfiles(0) {}
9949 set viewperm(0) 0
9950 set viewargs(0) {}
9951 set viewargscmd(0) {}
9953 set selectedline {}
9954 set numcommits 0
9955 set loginstance 0
9956 set cmdlineok 0
9957 set stopped 0
9958 set stuffsaved 0
9959 set patchnum 0
9960 set lserial 0
9961 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9962 setcoords
9963 makewindow
9964 # wait for the window to become visible
9965 tkwait visibility .
9967 readrefs
9970 # create a view for the files/dirs specified on the command line
9971 set curview 1
9972 set selectedview 1
9973 set nextviewnum 2
9974 set viewname(1) [mc "Command line"]
9978 set viewperm(1) 0
9979 set vdatemode(1) 0
9980 addviewmenu 1
9981 .bar.view entryconf [mc "Edit view..."] -state normal
9982 .bar.view entryconf [mc "Delete view"] -state normal
9983 }
9985 if {[info exists permviews]} {
9988 incr nextviewnum
9995 }
9996 }
9997 getcommits {}