| blob | b523c98e4bda2167a5ea04773568db0c7f114c0b |
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
30 after idle dorunq
31 }
34 }
38 }
41 global runq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq
76 # script returns 1 if it wants to be readded
77 # file readers return 2 if they could do more straight away
81 }
84 }
87 }
89 after idle dorunq
90 }
91 }
94 global commfd leftover loginstance
100 }
103 global nr_unmerged
105 # find the list of unmerged files
112 exit 1
113 }
119 incr nr_unmerged
122 }
123 }
126 }
128 proc parseviewargs {n arglist} {
129 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
133 set glflags {}
134 set diffargs {}
135 set nextisval 0
136 set revargs {}
138 set allknown 1
139 set filtered 0
140 set i -1
142 incr i
145 set nextisval 0
146 continue
147 }
149 "-d" -
150 "--date-order" {
152 # remove from origargs in case we hit an unknown option
154 incr i -1
155 }
156 # These request or affect diff output, which we don't want.
157 # Some could be used to set our defaults for diff display.
164 lappend diffargs $arg
165 }
166 # These cause our parsing of git log's output to fail, or else
167 # they're options we want to set ourselves, so ignore them.
175 }
176 # These are harmless, and some are even useful
181 lappend glflags $arg
182 }
183 # These mean that we get a subset of the commits
191 lappend glflags $arg
192 }
193 # This appears to be the only one that has a value as a
194 # separate word following it
198 lappend glflags $arg
199 }
202 lappend revargs $arg
203 }
205 lappend revargs $arg
206 }
209 # git rev-parse doesn't understand --merge
210 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
211 }
212 # Other flag arguments including -<n>
217 # a flag argument that we don't recognize;
218 # that means we can't optimize
220 }
221 lappend glflags $arg
222 }
223 # Non-flag arguments specify commits or ranges of commits
224 default {
226 lappend revargs --gitk-symmetric-diff-marker
227 }
228 lappend revargs $arg
229 }
230 }
231 }
238 }
241 global vposids vnegids
244 set revs HEAD
245 }
247 # we get stdout followed by stderr in $err
248 # for an unknown rev, git rev-parse echoes it and then errors out
261 }
264 }
265 break
266 }
267 lappend badrev $line
268 }
269 }
272 }
282 lappend ret $id
285 }
286 }
290 lappend ret $id
293 }
294 lappend pos $id
295 }
296 incr sdm -1
297 }
301 }
303 # Start off a git log process and arrange to read its output
305 global startmsecs commitidx viewcomplete curview
306 global tclencoding
307 global viewargs viewargscmd viewfiles vfilelimit
308 global showlocalchanges commitinterest
309 global viewactive viewinstances vmergeonly
310 global pending_select mainheadid
311 global vcanopt vflags vrevs vorigargs
315 # these are set this way for the error exits
318 varcinit $view
327 }
329 }
336 global nr_unmerged
343 }
345 }
346 }
353 }
357 }
365 }
370 }
374 }
379 }
383 }
386 global commfd leftover
389 catch {
392 }
394 nukefile $fd
397 }
399 proc stop_backends {} {
400 global commfd
403 stop_instance $inst
404 }
405 }
408 global viewinstances
411 stop_instance $inst
412 }
414 }
416 proc getcommits {} {
417 global canv curview need_redisplay viewactive
419 initlayout
425 }
426 }
428 proc updatecommits {} {
429 global curview vcanopt vorigargs vfilelimit viewinstances
430 global viewactive viewcomplete tclencoding
431 global startmsecs showneartags showlocalchanges
432 global mainheadid pending_select
433 global isworktree
434 global varcid vposids vnegids vflags vrevs
438 rereadrefs
441 dohidelocalchanges
442 }
444 dodiffindex
445 }
446 }
453 return
454 }
455 # note: getting the delta when negative refs change is hard,
456 # and could require multiple git log invocations, so in that
457 # case we ask git log for all the commits (not just the delta)
461 # take out positive refs that we asked for before or
462 # that we have already seen
467 lappend newrevs $rev
468 incr npos
469 }
471 lappend $newrevs $rev
472 }
473 }
477 }
481 }
487 return
488 }
491 }
497 }
504 getallcommits
505 }
506 }
508 proc reloadcommits {} {
509 global curview viewcomplete selectedline currentid thickerline
510 global showneartags treediffs commitinterest cached_commitrow
511 global targetid
514 stop_rev_list $curview
515 }
516 resetvarcs $curview
521 readrefs
522 changedrefs
524 getallcommits
525 }
526 clear_display
530 setcanvscroll
531 getcommits
533 }
535 # This makes a string representation of a positive integer which
536 # sorts as a string in numerical order
544 }
546 }
548 # Procedures used in reordering commits from git log (without
549 # --topo-order) into the order for display.
552 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
553 global vtokmod varcmod vrowmod varcix vlastins
567 }
570 global varcid varccommits parents children vseedcount ordertok
576 }
577 # some commits might have children but haven't been seen yet
580 }
583 }
586 }
588 }
590 # returns a list of the commits with no children
592 global vdownptr vleftptr varcstart
599 }
601 }
604 global varcid varctok parents children vdatemode
605 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
606 global commitdata commitinfo vseedcount varccommits vlastins
613 }
617 }
620 }
626 }
635 }
636 }
641 }
648 }
652 }
659 }
665 }
674 }
677 global varcid varcstart varccommits varctok
678 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
685 # "%" sorts before "0"...
695 }
705 }
706 }
709 global parents children varctok varcstart varccommits
710 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
719 lappend todo $a
724 }
725 }
726 }
727 incr ntot
734 }
735 }
737 }
744 }
750 }
759 }
760 }
765 }
767 continue
768 }
775 }
776 }
781 modify_arc $v $ka
782 }
784 modify_arc $v $b
785 }
792 }
795 }
798 }
807 }
812 }
819 }
823 }
825 }
826 }
831 }
832 }
834 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
835 }
837 # Fix up the graph after we have found out that in view $v,
838 # $p (a commit that we have already seen) is actually the parent
839 # of the last commit in arc $a.
841 global varcid varcstart varctok vupptr
845 splitvarc $p $v
847 }
848 # seeds always need to be renumbered
852 renumbervarc $pa $v
853 }
854 }
857 global cmitlisted children parents varcid varctok vtokmod
858 global varccommits ordertok commitidx numcommits curview
859 global targetid targetrow
861 readcommit $id
869 modify_arc $v $a
870 }
876 }
877 fix_reversal $p $a $v
881 setcanvscroll
884 incr targetrow
885 }
886 }
887 }
888 }
891 global varcid varccommits parents children cmitlisted
892 global commitidx varctok vtokmod targetid targetrow curview numcommits
899 return
900 }
907 # note we deliberately don't update varcstart($v) even if $i == 0
909 modify_arc $v $a $i
912 incr targetrow
913 }
914 }
915 setcanvscroll
916 drawvisible
917 }
920 global varcid varccommits parents children commitidx
921 global varctok vtokmod cmitlisted currentid selectedline
922 global targetid curview numcommits
927 return
928 }
934 return
935 }
945 }
946 modify_arc $v $a $i
948 unset currentid
950 }
953 }
954 setcanvscroll
955 drawvisible
956 }
959 global children nullid nullid2
964 }
965 }
967 }
970 global children nullid nullid2
977 }
978 }
980 }
983 global varctok varcid
987 }
989 # This assumes that if lim is not given, the caller has checked that
990 # arc a's token is less than $vtokmod($v)
992 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1000 }
1001 }
1008 }
1013 }
1015 }
1017 undolayout $r
1018 }
1019 }
1022 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1023 global varcid vrownum varcorder varcix varccommits
1024 global vupptr vdownptr vleftptr varctok
1025 global displayorder parentlist curview cached_commitrow
1032 }
1034 }
1038 # go up the tree until we find something that has a row number,
1039 # or we get to a seed
1041 }
1056 }
1058 }
1062 # go down if possible
1065 # if not, go left, or go up until we can go left
1070 }
1072 }
1074 incr arcn
1079 }
1085 }
1086 }
1088 # Test whether view $v contains commit $id
1090 global varcid
1093 }
1095 # Return the row number for commit $id in the current view
1097 global varcid varccommits varcrow curview cached_commitrow
1098 global varctok vtokmod
1104 }
1107 update_arcrows $v
1108 }
1111 }
1116 }
1120 }
1122 # Returns 1 if a is on an earlier row than b, otherwise 0
1124 global varcid varctok curview
1130 }
1134 }
1136 }
1141 }
1153 }
1154 }
1156 }
1158 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1160 global vrownum curview commitidx displayorder parentlist
1161 global varccommits varcorder parents vrowmod varcrow
1162 global d_valid_start d_valid_end
1165 update_arcrows $curview
1166 }
1182 }
1184 lappend displayorder $id
1186 }
1190 lset displayorder $i $id
1192 incr i
1193 }
1194 }
1195 incr r $al
1196 }
1197 }
1200 global displayorder
1206 }
1208 }
1211 global varctok varccommits varcid parents children
1212 global cmitlisted commitidx commitinterest vtokmod
1221 # add p as a new commit
1222 incr missing_parents
1230 }
1233 modify_arc $v $b
1234 }
1240 }
1242 }
1243 }
1244 }
1248 }
1249 }
1250 }
1252 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1253 # Assumes we already have an arc for $rwid.
1255 global children parents varcid varctok vtokmod varccommits
1258 # make $rwid be $ch's parent in place of $id
1262 }
1264 # add $ch to $rwid's children and sort the list if necessary
1268 }
1269 # fix the graph after joining $id to $rwid
1271 fix_reversal $rwid $a $v
1272 # parentlist is wrong for the last element of arc $a
1273 # even if displayorder is right, hence the 3rd arg here
1275 }
1276 }
1279 global cmitlisted commitinterest leftover
1280 global commitidx commitdata vdatemode
1281 global parents children curview hlview
1282 global idpending ordertok
1283 global varccommits varcid varctok vtokmod vfilelimit
1286 # git log doesn't terminate the last commit with a null...
1289 }
1293 }
1294 global commfd viewcomplete viewactive viewname
1295 global viewinstances
1300 }
1301 # set it blocking so we wait for the process to terminate
1307 }
1310 bad arguments to git log."
1312 append err \
1313 " (Note: arguments to gitk are passed to git log\
1314 to allow selection of commits to be displayed.)"
1315 }
1318 }
1319 error_popup $err
1320 }
1323 # Check if we have seen any ids listed as parents that haven't
1324 # appeared in the list
1325 closevarcs $view
1326 notbusy $view
1327 }
1329 run chewcommits
1330 }
1332 }
1340 break
1341 }
1348 }
1361 }
1363 }
1368 break
1369 }
1370 }
1371 }
1376 }
1378 exit 1
1379 }
1386 # when doing path limiting, so work around that here
1387 # by working out the rewritten parent with git rev-list
1388 # and if we already know about it, using the rewritten
1389 # parent as a substitute parent for $id's children.
1393 }]} {
1395 # use $rwid in place of $id
1396 rewrite_commit $view $id $rwid
1397 continue
1398 }
1399 }
1400 }
1406 }
1411 }
1423 }
1424 }
1426 # new arc
1428 }
1430 modify_arc $view $a
1431 }
1436 }
1447 }
1449 fix_reversal $p $a $view
1450 }
1451 }
1452 incr i
1453 }
1458 }
1460 }
1462 }
1464 global numcommits hlview
1468 run chewcommits
1469 }
1471 # we never actually get here...
1472 run vhighlightmore
1473 }
1476 }
1477 }
1479 }
1481 proc chewcommits {} {
1482 global curview hlview viewcomplete
1483 global pending_select
1485 layoutmore
1487 global commitidx varctok
1488 global numcommits startmsecs
1493 }
1495 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1496 #puts "overall $ms ms for $numcommits commits"
1497 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1500 }
1501 notbusy layout
1502 }
1504 }
1509 }
1512 global commitinfo cdate
1523 # should never happen...
1525 }
1536 }
1537 }
1539 # take the first non-blank line of the comment as the headline
1544 }
1549 }
1551 # git log indents the comment by 4 spaces;
1552 # if we got this via git cat-file, add the indentation
1555 append newcomment " "
1556 append newcomment $line
1558 }
1560 }
1563 }
1566 }
1569 global commitdata commitinfo
1574 readcommit $id
1577 }
1578 }
1580 }
1582 proc readrefs {} {
1583 global tagids idtags headids idheads tagobjid
1584 global otherrefids idotherrefs mainhead mainheadid
1588 }
1600 }
1606 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1607 # which is what we want since the former is the commit ID
1613 }
1619 }
1620 }
1624 catch {
1629 }
1630 }
1631 }
1633 # skip over fake commits
1634 proc first_real_row {} {
1635 global nullid nullid2 numcommits
1640 break
1641 }
1642 }
1644 }
1646 # update things for a head moved to a child of its previous location
1648 global headids idheads
1653 }
1655 # update things when a head has been removed
1657 global headids idheads
1665 }
1666 }
1668 }
1677 tkwait window $top
1678 }
1680 proc error_popup msg {
1681 set w .error
1682 toplevel $w
1683 wm transient $w .
1684 show_error $w $w $msg
1685 }
1687 proc confirm_popup msg {
1688 global confirm_ok
1690 set w .confirm
1691 toplevel $w
1692 wm transient $w .
1700 tkwait window $w
1702 }
1704 proc setoptions {} {
1706 option add *Panedwindow.sashRelief raised startupFile
1707 option add *Button.font uifont startupFile
1708 option add *Checkbutton.font uifont startupFile
1709 option add *Radiobutton.font uifont startupFile
1710 option add *Menu.font uifont startupFile
1711 option add *Menubutton.font uifont startupFile
1712 option add *Label.font uifont startupFile
1713 option add *Message.font uifont startupFile
1714 option add *Entry.font uifont startupFile
1715 }
1717 proc makewindow {} {
1718 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1719 global tabstop
1720 global findtype findtypemenu findloc findstring fstring geometry
1721 global entries sha1entry sha1string sha1but
1722 global diffcontextstring diffcontext
1723 global ignorespace
1724 global maincursor textcursor curtextcursor
1725 global rowctxmenu fakerowmenu mergemax wrapcomment
1726 global highlight_files gdttype
1727 global searchstring sstring
1728 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1729 global headctxmenu progresscanv progressitem progresscoords statusw
1730 global fprogitem fprogcoord lastprogupdate progupdatepending
1731 global rprogitem rprogcoord rownumsel numcommits
1732 global have_tk85
1734 menu .bar
1736 menu .bar.file
1742 menu .bar.edit
1746 menu .bar.view
1750 -state disabled
1752 .bar.view add separator
1756 menu .bar.help
1760 .bar.help configure
1761 . configure -menu .bar
1763 # the gui has upper and lower half, parts of a paned window.
1764 panedwindow .ctop -orient vertical
1766 # possibly use assumed geometry
1774 }
1776 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1778 frame .tf.histframe
1781 # create three canvases
1782 set cscroll .tf.histframe.csb
1783 set canv .tf.histframe.pwclist.canv
1784 canvas $canv \
1788 .tf.histframe.pwclist add $canv
1789 set canv2 .tf.histframe.pwclist.canv2
1790 canvas $canv2 \
1793 .tf.histframe.pwclist add $canv2
1794 set canv3 .tf.histframe.pwclist.canv3
1795 canvas $canv3 \
1798 .tf.histframe.pwclist add $canv3
1802 # a scroll bar to rule them
1806 lappend bglist $canv $canv2 $canv3
1809 # we have two button bars at bottom of top frame. Bar 1
1810 frame .tf.bar
1813 set sha1entry .tf.bar.sha1
1815 set sha1but .tf.bar.sha1label
1819 pack .tf.bar.sha1label -side left
1821 trace add variable sha1string write sha1change
1825 #define left_width 16
1826 #define left_height 16
1827 static unsigned char left_bits[] = {
1831 }
1833 #define right_width 16
1834 #define right_height 16
1835 static unsigned char right_bits[] = {
1839 }
1854 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1855 -side left
1856 global selectedline
1857 trace add variable selectedline write selectedline_change
1859 # Status label and progress bar
1860 set statusw .tf.bar.status
1864 set progresscanv .tf.bar.progress
1877 # build up the bottom bar of upper window
1882 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
1889 trace add variable gdttype write gdttype_change
1893 set fstring .tf.lbar.findstring
1894 lappend entries $fstring
1896 trace add variable findstring write find_change
1900 trace add variable findtype write findcom_change
1904 trace add variable findloc write find_change
1905 pack .tf.lbar.findloc -side right
1906 pack .tf.lbar.findtype -side right
1909 # Finish putting the upper half of the viewer together
1913 .ctop add .tf
1917 # now build up the bottom
1918 panedwindow .pwbottom -orient horizontal
1920 # lower left, a text box over search bar, scroll bar to the right
1921 # if we know window height, then that will set the lower text height, otherwise
1922 # we set lower text height which will drive window height
1927 }
1928 frame .bleft.top
1929 frame .bleft.mid
1930 frame .bleft.bottom
1934 set sstring .bleft.top.sstring
1936 lappend entries $sstring
1937 trace add variable searchstring write incrsearch
1950 -textvariable diffcontextstring
1952 trace add variable diffcontextstring write diffcontextchange
1953 lappend entries .bleft.mid.diffcontext
1954 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
1958 set ctext .bleft.bottom.ctext
1965 }
1972 grid .bleft.bottom.sbhorizontal -sticky ew
1977 lappend bglist $ctext
1978 lappend fglist $ctext
2007 .pwbottom add .bleft
2010 # lower right
2011 frame .bright
2012 frame .bright.mode
2019 set cflist .bright.cfiles
2021 text $cflist \
2024 -font mainfont \
2029 lappend bglist $cflist
2030 lappend fglist $cflist
2034 $cflist tag configure highlight \
2038 .pwbottom add .bright
2039 .ctop add .pwbottom
2041 # restore window width & height if known
2046 }
2049 }
2051 }
2052 }
2055 set M1B M1
2057 set M1B Control
2058 }
2063 #bindall <B1-Motion> {selcanvline %W %x %y}
2073 allcanvs yview scroll $delta units
2074 }
2075 }
2076 }
2098 bindkey p "selnextline -1"
2099 bindkey n "selnextline 1"
2100 bindkey z "goback"
2101 bindkey x "goforw"
2102 bindkey i "selnextline -1"
2103 bindkey k "selnextline 1"
2104 bindkey j "goback"
2105 bindkey l "goforw"
2106 bindkey b prevfile
2112 bindkey f nextfile
2124 wm protocol . WM_DELETE_WINDOW doquit
2135 set maincursor [. cget -cursor]
2139 set rowctxmenu .rowctxmenu
2142 -command {diffvssel 0}
2144 -command {diffvssel 1}
2150 -command cherrypick
2152 -command resethead
2154 set fakerowmenu .fakerowmenu
2157 -command {diffvssel 0}
2159 -command {diffvssel 1}
2165 set headctxmenu .headctxmenu
2168 -command cobranch
2170 -command rmbranch
2172 global flist_menu
2173 set flist_menu .flistctxmenu
2176 -command {flist_hl 0}
2178 -command {flist_hl 1}
2180 -command {external_diff}
2181 }
2183 # Windows sends all mouse wheel events to the current focused window, not
2184 # the one where the mouse hovers, so bind those events here and redirect
2185 # to the correct window
2186 proc windows_mousewheel_redirector {W X Y D} {
2187 global canv canv2 canv3
2193 } else {
2194 catch {
2196 }
2197 }
2198 }
2199 }
2201 # Update row number label when selectedline changes
2202 proc selectedline_change {n1 n2 op} {
2203 global selectedline rownumsel
2206 set rownumsel {}
2207 } else {
2209 }
2210 }
2212 # mouse-2 makes all windows scan vertically, but only the one
2213 # the cursor is in scans horizontally
2214 proc canvscan {op w x y} {
2215 global canv canv2 canv3
2219 } else {
2221 }
2222 }
2223 }
2225 proc scrollcanv {cscroll f0 f1} {
2227 drawvisible
2228 flushhighlights
2229 }
2231 # when we make a key binding for the toplevel, make sure
2232 # it doesn't get triggered when that key is pressed in the
2233 # find string entry widget.
2234 proc bindkey {ev script} {
2235 global entries
2239 set escript [bind Entry <Key>]
2240 }
2243 }
2244 }
2246 # set the focus back to the toplevel for any click outside
2247 # the entry widgets
2248 proc click {w} {
2249 global ctext entries
2252 }
2253 focus .
2254 }
2256 # Adjust the progress bar for a change in requested extent or canvas size
2257 proc adjustprogress {} {
2258 global progresscanv progressitem progresscoords
2259 global fprogitem fprogcoord lastprogupdate progupdatepending
2260 global rprogitem rprogcoord
2269 set now [clock clicks -milliseconds]
2271 set progupdatepending 0
2272 update
2274 set progupdatepending 1
2276 }
2277 }
2279 proc doprogupdate {} {
2280 global lastprogupdate progupdatepending
2283 set progupdatepending 0
2284 set lastprogupdate [clock clicks -milliseconds]
2285 update
2286 }
2287 }
2289 proc savestuff {w} {
2290 global canv canv2 canv3 mainfont textfont uifont tabstop
2291 global stuffsaved findmergefiles maxgraphpct
2292 global maxwidth showneartags showlocalchanges
2293 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2294 global cmitmode wrapcomment datetimeformat limitdiffs
2295 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2296 global autoselect extdifftool
2299 if {![winfo viewable .]} return
2300 catch {
2301 set f [open "~/.gitk-new" w]
2336 }
2337 }
2340 file rename -force "~/.gitk-new" "~/.gitk"
2341 }
2342 set stuffsaved 1
2343 }
2345 proc resizeclistpanes {win w} {
2346 global oldwidth
2353 } else {
2358 set sash0 30
2359 }
2362 }
2367 }
2368 }
2369 }
2372 }
2374 }
2376 proc resizecdetpanes {win w} {
2377 global oldwidth
2382 } else {
2386 set sash0 45
2387 }
2390 }
2391 }
2393 }
2395 }
2397 proc allcanvs args {
2398 global canv canv2 canv3
2402 }
2404 proc bindall {event action} {
2405 global canv canv2 canv3
2409 }
2411 proc about {} {
2412 global uifont
2413 set w .about
2416 return
2417 }
2421 Gitk - a commit viewer for git
2423 Copyright © 2005-2008 Paul Mackerras
2425 Use and redistribute under the terms of the GNU General Public License"] \
2426 -justify center -aspect 400 -border 2 -bg white -relief groove
2433 }
2435 proc keys {} {
2436 set w .keys
2439 return
2440 }
2441 if {[tk windowingsystem] eq {aqua}} {
2442 set M1T Cmd
2443 } else {
2444 set M1T Ctrl
2445 }
2449 [mc "Gitk key bindings:"]
2452 [mc "<Home> Move to first commit"]
2453 [mc "<End> Move to last commit"]
2454 [mc "<Up>, p, i Move up one commit"]
2455 [mc "<Down>, n, k Move down one commit"]
2456 [mc "<Left>, z, j Go back in history list"]
2457 [mc "<Right>, x, l Go forward in history list"]
2458 [mc "<PageUp> Move up one page in commit list"]
2459 [mc "<PageDown> Move down one page in commit list"]
2466 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2467 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2468 [mc "<Delete>, b Scroll diff view up one page"]
2469 [mc "<Backspace> Scroll diff view up one page"]
2470 [mc "<Space> Scroll diff view down one page"]
2471 [mc "u Scroll diff view up 18 lines"]
2472 [mc "d Scroll diff view down 18 lines"]
2475 [mc "<Return> Move to next find hit"]
2476 [mc "/ Move to next find hit, or redo find"]
2477 [mc "? Move to previous find hit"]
2478 [mc "f Scroll diff view to next file"]
2485 [mc "<F5> Update"]
2486 " \
2487 -justify left -bg white -border 2 -relief groove
2494 }
2496 # Procedures for manipulating the file list window at the
2497 # bottom right of the overall window.
2499 proc treeview {w l openlevs} {
2500 global treecontents treediropen treeheight treeparent treeindex
2502 set ix 0
2503 set treeindex() 0
2504 set lev 0
2505 set prefix {}
2506 set prefixend -1
2507 set prefendstack {}
2508 set htstack {}
2509 set ht 0
2510 set treecontents() {}
2517 }
2524 incr lev -1
2525 }
2529 set ht 0
2541 set ht 1
2546 set str "\n"
2554 }
2555 incr lev
2556 }
2559 incr ht
2560 set str "\n"
2564 }
2566 }
2567 }
2575 }
2577 }
2579 proc linetoelt {l} {
2580 global treeheight treecontents
2582 set y 2
2583 set prefix {}
2584 while {1} {
2588 }
2589 set n 1
2594 incr y
2595 break
2596 }
2597 }
2599 }
2600 }
2601 }
2603 proc highlight_tree {y prefix} {
2604 global treeheight treecontents cflist
2610 }
2611 incr y
2614 }
2615 }
2617 }
2619 proc treeclosedir {w dir} {
2620 global treediropen treeheight treeparent treeindex
2632 }
2633 }
2635 proc treeopendir {w dir} {
2636 global treediropen treeheight treeparent treecontents treeindex
2643 set lev 0
2644 set str "\n"
2647 incr lev
2648 append str "\t"
2650 }
2665 } else {
2668 }
2669 }
2682 }
2684 }
2685 }
2687 proc treeclick {w x y} {
2688 global treediropen cmitmode ctext cflist cflist_top
2691 if {![info exists cflist_top]} return
2698 return
2699 }
2705 } else {
2707 }
2708 }
2710 proc setfilelist {id} {
2711 global treefilelist cflist
2714 }
2716 image create bitmap tri-rt -background black -foreground blue -data {
2717 #define tri-rt_width 13
2718 #define tri-rt_height 13
2719 static unsigned char tri-rt_bits[] = {
2720 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2721 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2722 0x00, 0x00};
2723 } -maskdata {
2724 #define tri-rt-mask_width 13
2725 #define tri-rt-mask_height 13
2726 static unsigned char tri-rt-mask_bits[] = {
2727 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2728 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2729 0x08, 0x00};
2730 }
2731 image create bitmap tri-dn -background black -foreground blue -data {
2732 #define tri-dn_width 13
2733 #define tri-dn_height 13
2734 static unsigned char tri-dn_bits[] = {
2735 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2736 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2737 0x00, 0x00};
2738 } -maskdata {
2739 #define tri-dn-mask_width 13
2740 #define tri-dn-mask_height 13
2741 static unsigned char tri-dn-mask_bits[] = {
2742 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2743 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2744 0x00, 0x00};
2745 }
2747 image create bitmap reficon-T -background black -foreground yellow -data {
2748 #define tagicon_width 13
2749 #define tagicon_height 9
2750 static unsigned char tagicon_bits[] = {
2751 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2752 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2753 } -maskdata {
2754 #define tagicon-mask_width 13
2755 #define tagicon-mask_height 9
2756 static unsigned char tagicon-mask_bits[] = {
2757 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2758 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2759 }
2760 set rectdata {
2761 #define headicon_width 13
2762 #define headicon_height 9
2763 static unsigned char headicon_bits[] = {
2764 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2765 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2766 }
2767 set rectmask {
2768 #define headicon-mask_width 13
2769 #define headicon-mask_height 9
2770 static unsigned char headicon-mask_bits[] = {
2771 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2772 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2773 }
2774 image create bitmap reficon-H -background black -foreground green \
2776 image create bitmap reficon-o -background black -foreground "#ddddff" \
2779 proc init_flist {first} {
2780 global cflist cflist_top difffilestart
2786 set cflist_top 1
2788 } else {
2789 catch {unset cflist_top}
2790 }
2792 set difffilestart {}
2793 }
2795 proc highlight_tag {f} {
2796 global highlight_paths
2800 return "bold"
2801 }
2802 }
2803 return {}
2804 }
2806 proc highlight_filelist {} {
2807 global cmitmode cflist
2816 }
2817 }
2818 } else {
2819 highlight_tree 2 {}
2820 }
2822 }
2824 proc unhighlight_filelist {} {
2825 global cflist
2830 }
2832 proc add_flist {fl} {
2833 global cflist
2839 }
2841 }
2843 proc sel_flist {w x y} {
2844 global ctext difffilestart cflist cflist_top cmitmode
2847 if {![info exists cflist_top]} return
2854 } else {
2856 }
2857 }
2859 proc pop_flist_menu {w X Y x y} {
2860 global ctext cflist cmitmode flist_menu flist_menu_file
2861 global treediffs diffids
2863 stopfinding
2869 } else {
2871 }
2873 set xdiffstate "normal"
2875 set xdiffstate "disabled"
2876 }
2877 # Disable "External diff" item in tree mode
2880 }
2882 proc flist_hl {only} {
2883 global flist_menu_file findstring gdttype
2888 } else {
2890 }
2891 set gdttype [mc "touching paths:"]
2892 }
2894 proc save_file_from_commit {filename output what} {
2895 global nullfile
2900 }
2902 return {}
2903 }
2905 }
2907 proc external_diff_get_one_file {diffid filename diffdir} {
2908 global nullid nullid2 nullfile
2909 global gitdir
2915 }
2917 }
2921 }
2925 }
2927 proc external_diff {} {
2928 global gitktmpdir nullid nullid2
2929 global flist_menu_file
2930 global diffids
2931 global diffnum
2932 global gitdir extdifftool
2935 # no reference commit given
2938 # diffing working copy with index
2941 # diffing index with HEAD
2942 set diffidfrom "HEAD"
2943 } else {
2944 # use first parent commit
2945 global parentlist selectedline
2947 }
2948 } else {
2951 }
2953 # make sure that several diffs wont collide
2954 if {![info exists gitktmpdir]} {
2956 [format ".gitk-tmp.%s" [pid]]]
2959 unset gitktmpdir
2960 return
2961 }
2962 set diffnum 0
2963 }
2964 incr diffnum
2968 return
2969 }
2971 # gather files to diff
2981 } else {
2984 }
2985 }
2986 }
2989 proc delete_at_eof {f dir} {
2994 }
2996 return 0
2997 }
2998 return 1
2999 }
3001 # Functions for adding and removing shell-type quoting
3003 proc shellquote {str} {
3006 }
3009 }
3012 }
3014 }
3016 proc shellarglist {l} {
3017 set str {}
3020 append str " "
3021 }
3023 }
3025 }
3027 proc shelldequote {str} {
3028 set ret {}
3029 set used -1
3030 while {1} {
3031 incr used
3035 break
3036 }
3042 }
3044 incr used
3048 error "unmatched single-quote"
3049 }
3052 continue
3053 }
3056 error "trailing backslash"
3057 }
3059 continue
3060 }
3061 # here ch == "\""
3062 while {1} {
3064 error "unmatched double-quote"
3065 }
3071 }
3073 incr used
3075 incr used
3076 }
3077 }
3079 }
3081 proc shellsplit {str} {
3082 set l {}
3083 while {1} {
3091 }
3093 }
3095 # Code to implement multiple views
3097 proc newview {ishighlight} {
3098 global nextviewnum newviewname newviewperm newishighlight
3099 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3102 set top .gitkview
3105 return
3106 }
3112 }
3114 proc editview {} {
3115 global curview
3116 global viewname viewperm newviewname newviewperm
3117 global viewargs newviewargs viewargscmd newviewargscmd
3122 return
3123 }
3129 }
3131 proc vieweditor {top n title} {
3132 global newviewname newviewperm viewfiles bgcolor
3143 -text [mc "Commits to include (arguments to git log):"]
3150 -text [mc "Command to generate more commits to include:"]
3153 -background white
3157 -text [mc "Enter files and directories to include, one per line:"]
3164 }
3167 }
3177 }
3179 proc doviewmenu {m first cmd op argv} {
3184 break
3185 }
3186 }
3187 }
3189 proc allviewmenus {n op args} {
3190 # global viewhlmenu
3194 }
3196 proc newviewok {top n} {
3197 global nextviewnum newviewperm newviewname newishighlight
3198 global viewname viewfiles viewperm selectedview curview
3199 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3201 if {[catch {
3203 } err]} {
3207 return
3208 }
3209 set files {}
3214 }
3215 }
3217 # creating a new view
3218 incr nextviewnum
3227 } else {
3229 }
3230 } else {
3231 # editing an existing view
3239 }
3246 run reloadcommits
3247 }
3248 }
3249 }
3251 }
3253 proc delview {} {
3254 global curview viewperm hlview selectedhlview
3258 set selectedhlview [mc "None"]
3259 unset hlview
3260 }
3263 showview 0
3264 }
3266 proc addviewmenu {n} {
3267 global viewname viewhlmenu
3273 }
3275 proc showview {n} {
3276 global curview cached_commitrow ordertok
3277 global displayorder parentlist rowidlist rowisopt rowfinal
3278 global colormap rowtextx nextcolor canvxmax
3279 global numcommits viewcomplete
3280 global selectedline currentid canv canvy0
3281 global treediffs
3282 global pending_select mainheadid
3283 global commitidx
3284 global selectedview
3285 global hlview selectedhlview commitinterest
3288 set selid {}
3299 }
3300 } elseif {[info exists pending_select]} {
3302 unset pending_select
3303 }
3304 unselectline
3305 normalline
3306 catch {unset treediffs}
3307 clear_display
3309 unset hlview
3310 set selectedhlview [mc "None"]
3311 }
3312 catch {unset commitinterest}
3313 catch {unset cached_commitrow}
3314 catch {unset ordertok}
3321 run refill_reflist
3325 }
3326 getcommits
3327 return
3328 }
3330 set displayorder {}
3331 set parentlist {}
3332 set rowidlist {}
3333 set rowisopt {}
3334 set rowfinal {}
3337 catch {unset colormap}
3338 catch {unset rowtextx}
3339 set nextcolor 0
3342 set row 0
3343 setcanvscroll
3344 set yf 0
3345 set row {}
3348 # try to get the selected row in the same position on the screen
3352 set ytop 0
3353 }
3355 }
3357 drawvisible
3365 } else {
3367 }
3368 } else {
3369 set row [first_real_row]
3372 }
3373 }
3376 show_status [mc "Reading commits..."]
3377 }
3379 show_status [mc "No commits selected"]
3380 }
3381 }
3383 # Stuff relating to the highlighting facility
3385 proc ishighlighted {id} {
3386 global vhighlights fhighlights nhighlights rhighlights
3390 }
3393 }
3396 }
3399 }
3400 return 0
3401 }
3403 proc bolden {row font} {
3404 global canv linehtag selectedline boldrows
3411 -outline {{}} -tags secsel \
3414 }
3415 }
3417 proc bolden_name {row font} {
3418 global canv2 linentag selectedline boldnamerows
3425 -outline {{}} -tags secsel \
3428 }
3429 }
3431 proc unbolden {} {
3432 global boldrows
3434 set stillbold {}
3438 } else {
3440 }
3441 }
3443 }
3445 proc addvhighlight {n} {
3446 global hlview viewcomplete curview vhl_done commitidx
3448 if {[info exists hlview]} {
3449 delvhighlight
3450 }
3454 }
3457 drawvisible
3458 }
3459 }
3461 proc delvhighlight {} {
3462 global hlview vhighlights
3464 if {![info exists hlview]} return
3465 unset hlview
3466 catch {unset vhighlights}
3467 unbolden
3468 }
3470 proc vhighlightmore {} {
3471 global hlview vhl_done commitidx vhighlights curview
3474 set vr [visiblerows]
3484 }
3486 }
3487 }
3488 }
3490 return 0
3491 }
3493 proc askvhighlight {row id} {
3494 global hlview vhighlights iddrawn
3499 }
3501 } else {
3503 }
3504 }
3506 proc hfiles_change {} {
3507 global highlight_files filehighlight fhighlights fh_serial
3508 global highlight_paths gdttype
3510 if {[info exists filehighlight]} {
3511 # delete previous highlights
3513 unset filehighlight
3514 catch {unset fhighlights}
3515 unbolden
3516 unhighlight_filelist
3517 }
3518 set highlight_paths {}
3520 incr fh_serial
3523 }
3524 }
3526 proc gdttype_change {name ix op} {
3527 global gdttype highlight_files findstring findpattern
3529 stopfinding
3533 set highlight_files {}
3534 hfiles_change
3535 }
3536 findcom_change
3537 } else {
3539 set findpattern {}
3540 findcom_change
3541 }
3543 hfiles_change
3544 }
3545 drawvisible
3546 }
3547 # enable/disable findtype/findloc menus too
3548 }
3550 proc find_change {name ix op} {
3551 global gdttype findstring highlight_files
3553 stopfinding
3555 findcom_change
3556 } else {
3559 hfiles_change
3560 }
3561 }
3562 drawvisible
3563 }
3565 proc findcom_change args {
3566 global nhighlights boldnamerows
3567 global findpattern findtype findstring gdttype
3569 stopfinding
3570 # delete previous highlights, if any
3573 }
3574 set boldnamerows {}
3575 catch {unset nhighlights}
3576 unbolden
3577 unmarkmatches
3579 set findpattern {}
3582 } else {
3583 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3586 }
3587 }
3589 proc makepatterns {l} {
3590 set ret {}
3595 } else {
3598 }
3599 }
3601 }
3603 proc do_file_hl {serial} {
3604 global highlight_files filehighlight highlight_paths gdttype fhl_list
3609 highlight_filelist
3613 } else {
3614 # must be "containing:", i.e. we're searching commit info
3615 return
3616 }
3621 set fhl_list {}
3622 drawvisible
3623 flushhighlights
3624 }
3626 proc flushhighlights {} {
3627 global filehighlight fhl_list
3629 if {[info exists filehighlight]} {
3630 lappend fhl_list {}
3633 }
3634 }
3636 proc askfilehighlight {row id} {
3637 global filehighlight fhighlights fhl_list
3642 }
3644 proc readfhighlight {} {
3645 global filehighlight fhighlights curview iddrawn
3646 global fhl_list find_dirn
3648 if {![info exists filehighlight]} {
3649 return 0
3650 }
3651 set nr 0
3659 }
3666 }
3668 }
3670 # strange...
3671 puts "oops, git diff-tree died"
3673 unset filehighlight
3674 return 0
3675 }
3676 if {[info exists find_dirn]} {
3677 run findmore
3678 }
3679 return 1
3680 }
3682 proc doesmatch {f} {
3683 global findtype findpattern
3689 } else {
3691 }
3692 }
3694 proc askfindhighlight {row id} {
3695 global nhighlights commitinfo iddrawn
3696 global findloc
3697 global markingmatches
3701 }
3703 set isbold 0
3704 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3709 set isbold 2
3710 break
3711 }
3712 set isbold 1
3713 }
3714 }
3720 }
3721 }
3724 }
3725 }
3727 }
3729 proc markrowmatches {row id} {
3730 global canv canv2 linehtag linentag commitinfo findloc
3741 }
3742 }
3748 }
3749 }
3750 }
3752 proc vrel_change {name ix op} {
3753 global highlight_related
3755 rhighlight_none
3757 run drawvisible
3758 }
3759 }
3761 # prepare for testing whether commits are descendents or ancestors of a
3762 proc rhighlight_sel {a} {
3763 global descendent desc_todo ancestor anc_todo
3764 global highlight_related
3766 catch {unset descendent}
3768 catch {unset ancestor}
3771 rhighlight_none
3772 run drawvisible
3773 }
3774 }
3776 proc rhighlight_none {} {
3777 global rhighlights
3779 catch {unset rhighlights}
3780 unbolden
3781 }
3783 proc is_descendent {a} {
3784 global curview children descendent desc_todo
3789 set leftover {}
3790 set done 0
3795 continue
3796 }
3802 set done 1
3803 }
3804 }
3805 }
3808 return
3809 }
3810 }
3813 }
3815 proc is_ancestor {a} {
3816 global curview parents ancestor anc_todo
3821 set leftover {}
3822 set done 0
3827 continue
3828 }
3834 set done 1
3835 }
3836 }
3837 }
3840 return
3841 }
3842 }
3845 }
3847 proc askrelhighlight {row id} {
3848 global descendent highlight_related iddrawn rhighlights
3849 global selectedline ancestor
3852 set isbold 0
3857 }
3859 set isbold 1
3860 }
3865 }
3867 set isbold 1
3868 }
3869 }
3873 }
3874 }
3876 }
3878 # Graph layout functions
3880 proc shortids {ids} {
3881 set res {}
3887 } else {
3889 }
3890 }
3892 }
3894 proc ntimes {n o} {
3895 set ret {}
3900 }
3902 }
3904 }
3906 proc ordertoken {id} {
3907 global ordertok curview varcid varcstart varctok curview parents children
3908 global nullid nullid2
3912 }
3914 set todo {}
3915 while {1} {
3919 } else {
3921 }
3924 break
3925 }
3928 # it's a root
3930 break
3931 }
3934 } else {
3938 }
3940 }
3941 }
3946 }
3949 }
3951 # Work out where id should go in idlist so that order-token
3952 # values increase from left to right
3953 proc idcol {idlist id {i 0}} {
3956 set i 0
3957 }
3961 }
3963 incr i
3964 } else {
3968 }
3969 }
3971 }
3973 proc initlayout {} {
3974 global rowidlist rowisopt rowfinal displayorder parentlist
3975 global numcommits canvxmax canv
3976 global nextcolor
3977 global colormap rowtextx
3979 set numcommits 0
3980 set displayorder {}
3981 set parentlist {}
3982 set nextcolor 0
3983 set rowidlist {}
3984 set rowisopt {}
3985 set rowfinal {}
3987 catch {unset colormap}
3988 catch {unset rowtextx}
3989 setcanvscroll
3990 }
3992 proc setcanvscroll {} {
3993 global canv canv2 canv3 numcommits linespc canvxmax canvy0
3994 global lastscrollset lastscrollrows
4000 set lastscrollset [clock clicks -milliseconds]
4002 }
4004 proc visiblerows {} {
4005 global canv numcommits linespc
4013 set r0 0
4014 }
4019 }
4021 }
4023 proc layoutmore {} {
4024 global commitidx viewcomplete curview
4025 global numcommits pending_select curview
4026 global lastscrollset lastscrollrows commitinterest
4030 setcanvscroll
4031 }
4032 if {[info exists pending_select] &&
4035 }
4036 drawvisible
4037 }
4039 proc doshowlocalchanges {} {
4040 global curview mainheadid
4044 dodiffindex
4045 } else {
4047 }
4048 }
4050 proc dohidelocalchanges {} {
4051 global nullid nullid2 lserial curview
4055 }
4058 }
4059 incr lserial
4060 }
4062 # spawn off a process to do git diff-index --cached HEAD
4063 proc dodiffindex {} {
4064 global lserial showlocalchanges
4065 global isworktree
4068 incr lserial
4069 set fd [open "|git diff-index --cached HEAD" r]
4073 }
4075 proc readdiffindex {fd serial inst} {
4076 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4078 set isdiff 1
4081 return 1
4082 }
4083 set isdiff 0
4084 }
4085 # we only need to see one line and we don't really care what it says...
4089 return 0
4090 }
4092 # now see if there are any local changes not checked in to the index
4093 set fd [open "|git diff-files" r]
4099 # add the line for the changes in the index to the graph
4100 set hl [mc "Local changes checked in to index but not committed"]
4105 }
4109 }
4110 return 0
4111 }
4113 proc readdifffiles {fd serial inst} {
4114 global mainheadid nullid nullid2 curview
4115 global commitinfo commitdata lserial
4117 set isdiff 1
4120 return 1
4121 }
4122 set isdiff 0
4123 }
4124 # we only need to see one line and we don't really care what it says...
4128 return 0
4129 }
4132 # add the line for the local diff to the graph
4133 set hl [mc "Local uncommitted changes, not checked in to index"]
4138 } else {
4140 }
4144 }
4145 return 0
4146 }
4148 proc nextuse {id row} {
4149 global curview children
4154 return -1
4155 }
4158 }
4159 }
4160 }
4163 }
4164 return -1
4165 }
4167 proc prevuse {id row} {
4168 global curview children
4170 set ret -1
4176 }
4177 }
4178 }
4180 }
4182 proc make_idlist {row} {
4183 global displayorder parentlist uparrowlen downarrowlen mingaplen
4184 global commitidx curview children
4188 set r 0
4189 }
4192 set ra 0
4193 }
4197 }
4199 set ids {}
4208 }
4209 }
4210 }
4218 }
4219 }
4220 }
4228 }
4229 }
4230 incr r
4236 }
4237 }
4238 }
4239 set idlist {}
4242 }
4244 }
4246 proc rowsequal {a b} {
4249 }
4252 }
4254 }
4256 proc makeupline {id row rend col} {
4257 global rowidlist uparrowlen downarrowlen mingaplen
4263 }
4266 }
4273 }
4274 }
4275 }
4277 proc layoutrows {row endrow} {
4278 global rowidlist rowisopt rowfinal displayorder
4279 global uparrowlen downarrowlen maxwidth mingaplen
4280 global children parentlist
4281 global commitidx viewcomplete curview
4284 set idlist {}
4290 }
4291 }
4293 }
4298 set final 1
4299 } else {
4307 # if not the first child, we have to insert a line going up
4310 }
4311 }
4312 }
4322 }
4323 }
4324 }
4331 }
4332 }
4342 }
4343 }
4351 }
4352 }
4353 }
4354 }
4355 }
4359 set final 0
4360 }
4364 lappend rowisopt 0
4370 }
4372 } else {
4379 }
4380 }
4382 }
4384 proc changedrow {row} {
4385 global displayorder iddrawn rowisopt need_redisplay
4394 }
4395 }
4396 }
4399 set need_redisplay 1
4400 }
4401 }
4403 proc insert_pad {row col npad} {
4404 global rowidlist
4413 }
4416 }
4418 proc optimize_rows {row col endrow} {
4419 global rowidlist rowisopt displayorder curview children
4422 set row 1
4423 }
4426 set haspad 0
4435 } else {
4436 set pprevidlist {}
4437 }
4438 set x0 -1
4439 set xm -1
4444 set haspad 1
4445 continue
4446 }
4450 set isarrow 0
4451 set z0 {}
4456 }
4457 }
4462 set isarrow 1
4463 }
4464 }
4467 set isarrow 1
4468 }
4469 # Looking at lines from this row to the previous row,
4470 # make them go straight up if they end in an arrow on
4471 # the previous row; otherwise make them go straight up
4472 # or at 45 degrees.
4474 # Line currently goes left too much;
4475 # insert pads in the previous row, then optimize it
4480 }
4488 }
4490 # Line currently goes right too much;
4491 # insert pads in this line
4497 set haspad 1
4498 }
4505 }
4506 }
4507 # avoid lines jigging left then immediately right
4510 incr x0
4513 }
4514 }
4516 # Find the first column that doesn't have a line going right
4522 # check if this is the link to the first child
4525 # it is, work out offset to child
4527 }
4528 }
4530 }
4531 # Insert a pad at that column as long as it has a line and
4532 # isn't the last column
4537 }
4538 }
4539 }
4540 }
4542 proc xc {row col} {
4543 global canvx0 linespc
4545 }
4547 proc yc {row} {
4548 global canvy0 linespc
4550 }
4552 proc linewidth {id} {
4553 global thickerline lthickness
4558 }
4560 }
4562 proc rowranges {id} {
4563 global curview children uparrowlen downarrowlen
4564 global rowidlist
4568 return {}
4569 }
4570 set ret {}
4575 if {![info exists prev]} {
4577 } else {
4579 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4580 }
4581 # see if the line extends the whole way from prevrow to row
4585 # it doesn't, see where it ends
4590 } else {
4593 incr r -1
4594 }
4596 # see where it starts up again
4601 } else {
4604 incr r
4605 }
4607 }
4608 }
4611 }
4614 }
4616 }
4618 proc drawlineseg {id row endrow arrowlow} {
4619 global rowidlist displayorder iddrawn linesegs
4620 global canv colormap linespc curview maxlinelen parentlist
4624 set arrowhigh 1
4625 while {1} {
4628 incr le -1
4629 break
4630 }
4634 set arrowhigh 0
4635 break
4636 }
4641 set arrowhigh 0
4642 }
4643 break
4644 }
4645 incr le
4646 }
4649 }
4651 set lines {}
4652 set i 0
4653 set joinhigh 0
4660 set joinhigh 1
4661 }
4662 break
4663 }
4664 incr i
4665 }
4666 }
4667 set joinlow 0
4672 set joinlow 1
4673 }
4674 }
4687 }
4688 } else {
4690 }
4698 set arrowlow 0
4699 }
4700 }
4708 }
4710 }
4713 # join parent line to first child
4724 } else {
4726 }
4734 }
4736 }
4738 } else {
4742 }
4750 } else {
4754 }
4756 }
4757 } else {
4763 }
4767 } else {
4768 # coalesce two pieces
4773 }
4777 }
4778 }
4782 }
4784 proc drawparentlinks {id row} {
4785 global rowidlist canv colormap curview parentlist
4786 global idpos linespc
4799 # rmx = right-most X coord used
4800 set rmx 0
4805 continue
4806 }
4810 }
4813 # drawlineseg will do this one for us
4814 continue
4815 }
4817 # should handle duplicated parents here...
4820 # if attaching to a vertical segment, draw a smaller
4821 # slant for visual distinctness
4825 } else {
4827 }
4829 # segment slants towards us already
4831 } else {
4836 }
4838 }
4839 } else {
4841 }
4846 }
4850 }
4851 }
4853 proc drawlines {id} {
4854 global canv
4857 }
4859 proc drawcmittext {id row col} {
4860 global linespc canv canv2 canv3 fgcolor curview
4861 global cmitlisted commitinfo rowidlist parentlist
4862 global rowtextx idpos idtags idheads idotherrefs
4863 global linehtag linentag linedtag selectedline
4864 global canvxmax boldrows boldnamerows fgcolor
4865 global mainheadid nullid nullid2 circleitem circlecolors
4867 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4870 set ofill red
4872 set ofill green
4874 set ofill yellow
4875 } else {
4877 }
4886 # triangle pointing left for left-side commits
4892 } else {
4893 # triangle pointing right for right-side commits
4899 }
4911 }
4912 }
4913 }
4920 }
4925 set font mainfont
4926 set nfont mainfont
4930 set font mainfontbold
4933 set nfont mainfontbold
4934 }
4935 }
4945 }
4949 setcanvscroll
4950 }
4951 }
4953 proc drawcmitrow {row} {
4954 global displayorder rowidlist nrows_drawn
4955 global iddrawn markingmatches
4956 global commitinfo numcommits
4957 global filehighlight fhighlights findpattern nhighlights
4958 global hlview vhighlights
4959 global highlight_related rhighlights
4966 }
4969 }
4972 }
4975 }
4980 return
4981 }
4984 }
4988 incr nrows_drawn
4989 }
4992 }
4993 }
4995 proc drawcommits {row {endrow {}}} {
4996 global numcommits iddrawn displayorder curview need_redisplay
4997 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5000 set row 0
5001 }
5004 }
5007 }
5011 set rl1 0
5012 }
5015 set ro1 0
5016 }
5020 }
5025 }
5027 }
5028 }
5031 }
5034 clear_display
5035 drawvisible
5036 }
5038 # make the lines join to already-drawn rows either side
5042 }
5047 }
5062 # see if this is the first child of any of its parents
5065 # make this line extend up to the child
5067 }
5068 }
5069 } else {
5071 }
5072 }
5073 }
5074 }
5076 proc undolayout {row} {
5077 global uparrowlen mingaplen downarrowlen
5078 global rowidlist rowisopt rowfinal need_redisplay
5082 set r 0
5083 }
5085 incr r -1
5089 set need_redisplay 1
5090 run drawvisible
5091 }
5092 }
5094 proc drawvisible {} {
5095 global canv linespc curview vrowmod selectedline targetrow targetid
5096 global need_redisplay cscroll numcommits
5106 if {[info exists targetid]} {
5110 # Fix up the scrollregion and change the scrolling position
5111 # now that our target row has moved.
5114 setcanvscroll
5122 set need_redisplay 1
5123 }
5124 } else {
5125 unset targetid
5126 }
5127 }
5133 }
5137 } elseif {[info exists targetid]} {
5139 }
5140 if {[info exists targetrow]} {
5143 }
5145 }
5147 }
5149 proc clear_display {} {
5150 global iddrawn linesegs need_redisplay nrows_drawn
5151 global vhighlights fhighlights nhighlights rhighlights
5152 global linehtag linentag linedtag boldrows boldnamerows
5154 allcanvs delete all
5155 catch {unset iddrawn}
5156 catch {unset linesegs}
5157 catch {unset linehtag}
5158 catch {unset linentag}
5159 catch {unset linedtag}
5160 set boldrows {}
5161 set boldnamerows {}
5162 catch {unset vhighlights}
5163 catch {unset fhighlights}
5164 catch {unset nhighlights}
5165 catch {unset rhighlights}
5166 set need_redisplay 0
5167 set nrows_drawn 0
5168 }
5170 proc findcrossings {id} {
5171 global rowidlist parentlist numcommits displayorder
5173 set cross {}
5174 set ccross {}
5178 }
5197 }
5198 }
5199 }
5200 }
5201 }
5203 }
5205 proc assigncolor {id} {
5206 global colormap colors nextcolor
5207 global parents children children curview
5213 } else {
5214 set kids {}
5215 }
5221 return
5222 }
5223 }
5224 set badcolors {}
5225 set origbad {}
5228 # delimiter between corner crossings and other crossings
5231 }
5235 }
5236 }
5239 }
5246 }
5251 }
5252 }
5253 }
5256 }
5257 }
5261 set nextcolor 0
5262 }
5264 }
5266 }
5268 proc bindline {t id} {
5269 global canv
5275 }
5277 proc drawtags {id x xt y1} {
5278 global idtags idheads idotherrefs mainhead
5279 global linespc lthickness
5280 global canv rowtextx curview fgcolor bgcolor
5282 set marks {}
5283 set ntags 0
5284 set nheads 0
5288 }
5292 }
5295 }
5298 }
5303 set xvals {}
5304 set wvals {}
5305 set i -1
5307 incr i
5310 } else {
5312 }
5316 }
5323 set font mainfont
5324 if {[incr ntags -1] >= 0} {
5325 # draw a tag
5331 } else {
5332 # draw a head or other ref
5333 if {[incr nheads -1] >= 0} {
5334 set col green
5336 set font mainfontbold
5337 }
5338 } else {
5339 set col "#ddddff"
5340 }
5351 }
5352 }
5359 }
5360 }
5362 }
5364 proc xcoord {i level ln} {
5365 global canvx0 xspc1 xspc2
5372 }
5374 }
5376 proc show_status {msg} {
5377 global canv fgcolor
5379 clear_display
5382 }
5384 # Don't change the text pane cursor if it is currently the hand cursor,
5385 # showing that we are over a sha1 ID link.
5386 proc settextcursor {c} {
5387 global ctext curtextcursor
5391 }
5393 }
5395 proc nowbusy {what {name {}}} {
5396 global isbusy busyname statusw
5398 if {[array names isbusy] eq {}} {
5399 . config -cursor watch
5400 settextcursor watch
5401 }
5406 }
5407 }
5409 proc notbusy {what} {
5410 global isbusy maincursor textcursor busyname statusw
5412 catch {
5417 }
5418 }
5419 if {[array names isbusy] eq {}} {
5422 }
5423 }
5425 proc findmatches {f} {
5426 global findtype findstring
5429 } else {
5434 }
5435 set matches {}
5436 set i 0
5441 }
5442 }
5444 }
5446 proc dofind {{dirn 1} {wrap 1}} {
5447 global findstring findstartline findcurline selectedline numcommits
5448 global gdttype filehighlight fh_serial find_dirn findallowwrap
5450 if {[info exists find_dirn]} {
5452 stopfinding
5453 }
5454 focus .
5458 } else {
5460 }
5462 nowbusy finding [mc "Searching"]
5466 }
5469 run findmore
5470 }
5472 proc stopfinding {} {
5473 global find_dirn findcurline fprogcoord
5475 if {[info exists find_dirn]} {
5476 unset find_dirn
5477 unset findcurline
5478 notbusy finding
5479 set fprogcoord 0
5480 adjustprogress
5481 }
5482 }
5484 proc findmore {} {
5485 global commitdata commitinfo numcommits findpattern findloc
5486 global findstartline findcurline findallowwrap
5487 global find_dirn gdttype fhighlights fprogcoord
5488 global curview varcorder vrownum varccommits vrowmod
5490 if {![info exists find_dirn]} {
5491 return 0
5492 }
5493 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5495 set moretodo 0
5497 incr l
5499 set l 0
5500 }
5503 } else {
5506 }
5507 } else {
5510 }
5511 incr l -1
5514 } else {
5515 set lim -1
5517 }
5518 }
5521 set n 500
5522 set moretodo 1
5523 }
5526 }
5527 set found 0
5528 set domore 1
5542 }
5544 # shouldn't happen unless git log doesn't give all the commits...
5547 continue
5548 }
5551 }
5556 set found 1
5557 break
5558 }
5559 }
5561 }
5562 } else {
5570 }
5575 }
5578 break
5579 }
5582 set domore 0
5584 }
5585 }
5586 }
5587 }
5589 unset findcurline
5590 unset find_dirn
5591 notbusy finding
5592 set fprogcoord 0
5593 adjustprogress
5596 } else {
5597 bell
5598 }
5599 return 0
5600 }
5602 flushhighlights
5603 } else {
5605 }
5609 }
5611 adjustprogress
5613 }
5615 proc findselectline {l} {
5616 global findloc commentend ctext findcurline markingmatches gdttype
5618 set markingmatches 1
5622 # highlight the matches in the comments
5629 }
5630 }
5631 drawvisible
5632 }
5634 # mark the bits of a headline or author that match a find string
5635 proc markmatches {canv l str tag matches font row} {
5636 global selectedline
5654 }
5655 }
5656 }
5658 proc unmarkmatches {} {
5659 global markingmatches
5661 allcanvs delete matches
5662 set markingmatches 0
5663 stopfinding
5664 }
5666 proc selcanvline {w x y} {
5667 global canv canvy0 ctext linespc
5668 global rowtextx
5675 set l 0
5676 }
5681 }
5682 unmarkmatches
5684 }
5686 proc commit_descriptor {p} {
5687 global commitinfo
5690 }
5691 set l "..."
5694 }
5696 }
5698 # append some text to the ctext widget, and make any SHA1 ID
5699 # that we know about be a clickable link.
5700 proc appendwithlinks {text tags} {
5701 global ctext linknum curview pendinglinks
5710 incr e
5714 incr linknum
5715 }
5716 }
5718 proc setlink {id lk} {
5719 global curview ctext pendinglinks commitinterest
5726 } else {
5729 }
5730 }
5732 proc makelink {id} {
5733 global pendinglinks
5738 }
5740 }
5742 proc linkcursor {w inc} {
5743 global linkentercount curtextcursor
5747 } else {
5750 set linkentercount 0
5751 }
5752 }
5753 }
5755 proc viewnextline {dir} {
5756 global canv linespc
5764 set newtop 0
5767 }
5769 }
5771 # add a list of tag or branch names at position pos
5772 # returns the number of names inserted
5773 proc appendrefs {pos ids var} {
5777 return 0
5778 }
5781 set tags {}
5785 }
5786 }
5789 } else {
5791 set sep {}
5795 incr linknum
5800 set sep ", "
5801 }
5802 }
5805 }
5807 # called when we have finished computing the nearby tags
5808 proc dispneartags {delay} {
5809 global selectedline currentid showneartags tagphase
5812 after cancel dispnexttag
5814 after 200 dispnexttag
5815 set tagphase -1
5816 } else {
5817 after idle dispnexttag
5818 set tagphase 0
5819 }
5820 }
5822 proc dispnexttag {} {
5823 global selectedline currentid showneartags tagphase ctext
5827 0 {
5831 }
5832 }
5833 1 {
5837 }
5838 }
5839 2 {
5844 # turn "Branch" into "Branches"
5848 }
5849 }
5850 }
5851 }
5852 if {[incr tagphase] <= 2} {
5853 after idle dispnexttag
5854 }
5855 }
5857 proc make_secsel {l} {
5858 global linehtag linentag linedtag canv canv2 canv3
5873 }
5875 proc selectline {l isnew} {
5876 global canv ctext commitinfo selectedline
5877 global canvy0 linespc parents children curview
5878 global currentid sha1entry
5879 global commentend idtags linknum
5880 global mergemax numcommits pending_select
5881 global cmitmode showneartags allcommits
5882 global targetrow targetid lastscrollrows
5883 global autoselect
5885 catch {unset pending_select}
5887 normalline
5888 unsel_reflist
5889 stopfinding
5897 setcanvscroll
5898 }
5912 } else {
5916 }
5917 }
5921 } else {
5925 }
5926 }
5927 }
5930 set newtop 0
5931 }
5933 drawvisible
5934 }
5940 }
5947 }
5951 clear_ctext
5952 set linknum 0
5955 }
5965 }
5967 }
5969 set headers {}
5972 set np 0
5975 set tag mmax
5976 } else {
5978 }
5981 incr np
5982 }
5983 } else {
5986 }
5987 }
5991 }
5993 # make anything that looks like a SHA1 ID be a clickable link
5996 if {![info exists allcommits]} {
5997 getallcommits
5998 }
6009 dispneartags 1
6010 }
6015 }
6022 init_flist [mc "Comments"]
6027 } else {
6029 }
6030 }
6032 proc selfirstline {} {
6033 unmarkmatches
6034 selectline 0 1
6035 }
6037 proc sellastline {} {
6038 global numcommits
6039 unmarkmatches
6042 }
6044 proc selnextline {dir} {
6045 global selectedline
6046 focus .
6049 unmarkmatches
6051 }
6053 proc selnextpage {dir} {
6054 global canv linespc selectedline numcommits
6058 set lpp 1
6059 }
6061 drawvisible
6065 set l 0
6068 }
6069 unmarkmatches
6071 }
6073 proc unselectline {} {
6074 global selectedline currentid
6076 set selectedline {}
6077 catch {unset currentid}
6078 allcanvs delete secsel
6079 rhighlight_none
6080 }
6082 proc reselectline {} {
6083 global selectedline
6087 }
6088 }
6090 proc addtohistory {cmd} {
6091 global history historyindex curview
6096 return
6097 }
6101 } else {
6103 }
6104 incr historyindex
6106 .tf.bar.leftbut conf -state normal
6107 } else {
6108 .tf.bar.leftbut conf -state disabled
6109 }
6110 .tf.bar.rightbut conf -state disabled
6111 }
6113 proc godo {elt} {
6114 global curview
6120 }
6122 }
6124 proc goback {} {
6125 global history historyindex
6126 focus .
6129 incr historyindex -1
6131 .tf.bar.rightbut conf -state normal
6132 }
6134 .tf.bar.leftbut conf -state disabled
6135 }
6136 }
6138 proc goforw {} {
6139 global history historyindex
6140 focus .
6144 incr historyindex
6146 .tf.bar.leftbut conf -state normal
6147 }
6149 .tf.bar.rightbut conf -state disabled
6150 }
6151 }
6153 proc gettree {id} {
6154 global treefilelist treeidlist diffids diffmergeid treepending
6155 global nullid nullid2
6158 catch {unset diffmergeid}
6160 if {![info exists treepending]} {
6162 set cmd [list | git ls-files]
6164 set cmd [list | git ls-files --stage -t]
6165 } else {
6167 }
6169 return
6170 }
6176 }
6177 } else {
6179 }
6180 }
6182 proc gettreeline {gtf id} {
6183 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6185 set nl 0
6189 } else {
6198 }
6200 }
6202 }
6205 }
6207 unset treepending
6209 if {![info exists diffmergeid]} {
6211 }
6214 } else {
6216 }
6217 return 0
6218 }
6220 proc showfile {f} {
6221 global treefilelist treeidlist diffids nullid nullid2
6222 global ctext commentend
6227 return
6228 }
6232 return
6233 }
6234 } else {
6238 return
6239 }
6240 }
6249 settabs 0
6250 }
6252 proc getblobline {bf id} {
6253 global diffids cmitmode ctext
6257 return 0
6258 }
6260 set nl 0
6263 }
6265 # delete last newline
6268 return 0
6269 }
6272 }
6274 proc mergediff {id} {
6275 global diffmergeid mdifffd
6276 global diffids
6277 global parents
6278 global diffcontext
6279 global limitdiffs vfilelimit curview
6283 # this doesn't seem to actually affect anything...
6287 }
6290 return
6291 }
6297 }
6299 proc getmergediffline {mdf id np} {
6300 global diffmergeid ctext cflist mergemax
6301 global difffilestart mdifffd
6304 set nr 0
6309 return 0
6310 }
6312 # start of a new file
6323 # do nothing
6324 } else {
6325 # parse the prefix - one ' ', '-' or '+' for each parent
6326 set spaces {}
6327 set minuses {}
6328 set pluses {}
6329 set isbad 0
6338 } else {
6339 set isbad 1
6340 break
6341 }
6342 }
6343 set tags {}
6344 set num {}
6350 lappend tags mresult
6352 }
6355 set num "max"
6356 }
6358 }
6360 }
6361 }
6365 return 0
6366 }
6368 }
6370 proc startdiff {ids} {
6371 global treediffs diffids treepending diffmergeid nullid nullid2
6373 settabs 1
6375 catch {unset diffmergeid}
6379 if {![info exists treepending]} {
6381 }
6382 } else {
6384 }
6385 }
6387 proc path_filter {filter name} {
6392 return 1
6393 }
6394 } else {
6398 return 1
6399 }
6400 }
6401 }
6402 return 0
6403 }
6405 proc addtocflist {ids} {
6406 global treediffs
6410 }
6412 proc diffcmd {ids flags} {
6413 global nullid nullid2
6419 # comparing working directory with some specific revision
6423 } else {
6425 }
6426 } else {
6427 # comparing working directory with index
6430 lappend cmd -R
6431 }
6432 }
6436 # comparing index with specific revision
6439 } else {
6441 }
6442 } else {
6443 # comparing index with HEAD
6444 lappend cmd HEAD
6445 }
6446 } else {
6448 }
6450 }
6452 proc gettreediffs {ids} {
6453 global treediff treepending
6456 set treediff {}
6460 }
6462 proc gettreediffline {gdtf ids} {
6463 global treediff treediffs treepending diffids diffmergeid
6464 global cmitmode vfilelimit curview limitdiffs
6466 set nr 0
6473 }
6475 }
6476 }
6479 }
6482 set flist {}
6486 }
6487 }
6489 } else {
6491 }
6492 unset treepending
6496 if {![info exists diffmergeid]} {
6498 }
6499 } else {
6501 }
6502 return 0
6503 }
6505 # empty string or positive integer
6506 proc diffcontextvalidate {v} {
6508 }
6510 proc diffcontextchange {n1 n2 op} {
6511 global diffcontextstring diffcontext
6516 reselectline
6517 }
6518 }
6519 }
6521 proc changeignorespace {} {
6522 reselectline
6523 }
6525 proc getblobdiffs {ids} {
6526 global blobdifffd diffids env
6527 global diffinhdr treediffs
6528 global diffcontext
6529 global ignorespace
6530 global limitdiffs vfilelimit curview
6534 append cmd " -w"
6535 }
6538 }
6541 return
6542 }
6543 set diffinhdr 0
6547 }
6549 proc setinlist {var i val} {
6554 }
6557 } else {
6559 }
6560 }
6562 proc makediffhdr {fname ids} {
6563 global ctext curdiffstart treediffs
6568 }
6572 }
6574 proc getblobdiffline {bdf ids} {
6575 global diffids blobdifffd ctext curdiffstart
6576 global diffnexthead diffnextnote difffilestart
6577 global diffinhdr treediffs
6579 set nr 0
6584 return 0
6585 }
6587 # trim off "diff --git "
6589 set diffinhdr 1
6590 # start of a new file
6594 # If the name hasn't changed the length will be odd,
6595 # the middle char will be a space, and the two bits either
6596 # side will be a/name and b/name, or "a/name" and "b/name".
6597 # If the name has changed we'll get "rename from" and
6598 # "rename to" or "copy from" and "copy to" lines following this,
6599 # and we'll use them to get the filenames.
6600 # This complexity is necessary because spaces in the filename(s)
6601 # don't get escaped.
6607 continue
6608 }
6609 # unescape if quoted and chop off the a/ from the front
6612 } else {
6614 }
6617 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6620 set diffinhdr 0
6627 }
6631 }
6637 }
6640 # do nothing
6641 continue
6643 set diffinhdr 0
6644 continue
6645 }
6648 } else {
6655 } else {
6656 # "\ No newline at end of file",
6657 # or something else we don't recognize
6659 }
6660 }
6661 }
6665 return 0
6666 }
6668 }
6670 proc changediffdisp {} {
6671 global ctext diffelide
6675 }
6677 proc highlightfile {loc cline} {
6678 global ctext cflist cflist_top
6685 }
6687 proc prevfile {} {
6688 global difffilestart ctext cmitmode
6691 set prev 0.0
6692 set prevline 1
6697 return
6698 }
6700 incr prevline
6701 }
6703 }
6705 proc nextfile {} {
6706 global difffilestart ctext cmitmode
6710 set line 1
6712 incr line
6715 return
6716 }
6717 }
6718 }
6720 proc clear_ctext {{first 1.0}} {
6721 global ctext smarktop smarkbot
6722 global pendinglinks
6727 }
6730 }
6733 catch {unset pendinglinks}
6734 }
6735 }
6737 proc settabs {{firstab {}}} {
6738 global firsttabstop tabstop ctext have_tk85
6742 }
6743 set w [font measure textfont "0"]
6749 } else {
6751 }
6752 }
6754 proc incrsearch {name ix op} {
6755 global ctext searchstring searchdirn
6759 # no anchor set, use start of selection, or of visible area
6765 } else {
6767 }
6768 }
6773 }
6774 searchmarkvisible 1
6775 }
6776 }
6778 proc dosearch {} {
6779 global sstring ctext searchstring searchdirn
6783 set searchdirn -forwards
6789 set start "@0,0"
6790 }
6794 bell
6795 return
6796 }
6801 }
6802 }
6804 proc dosearchback {} {
6805 global sstring ctext searchstring searchdirn
6809 set searchdirn -backwards
6816 }
6820 bell
6821 return
6822 }
6827 }
6828 }
6830 proc searchmark {first last} {
6831 global ctext searchstring
6834 while {1} {
6839 }
6840 }
6842 proc searchmarkvisible {doall} {
6843 global ctext smarktop smarkbot
6848 # no overlap with previous
6852 } else {
6856 }
6860 }
6861 }
6862 }
6864 proc scrolltext {f0 f1} {
6865 global searchstring
6869 searchmarkvisible 0
6870 }
6871 }
6873 proc setcoords {} {
6874 global linespc charspc canvx0 canvy0
6875 global xspc1 xspc2 lthickness
6877 set linespc [font metrics mainfont -linespace]
6878 set charspc [font measure mainfont "m"]
6884 }
6886 proc redisplay {} {
6887 global canv
6888 global selectedline
6893 clear_display
6894 setcanvscroll
6896 drawvisible
6900 }
6901 }
6903 proc parsefont {f n} {
6904 global fontattr
6909 set s 10
6912 }
6918 "normal" -
6920 "roman" -
6922 }
6923 }
6924 }
6926 proc fontflags {f {isbold 0}} {
6927 global fontattr
6932 }
6934 proc fontname {f} {
6935 global fontattr
6939 lappend n "bold"
6940 }
6942 lappend n "italic"
6943 }
6945 }
6947 proc incrfont {inc} {
6948 global mainfont textfont ctext canv cflist showrefstop
6949 global stopped entries fontattr
6951 unmarkmatches
6955 set s 1
6956 }
6960 set mainfont [fontname mainfont]
6964 set s 1
6965 }
6969 set textfont [fontname textfont]
6970 setcoords
6971 settabs
6972 redisplay
6973 }
6975 proc clearsha1 {} {
6976 global sha1entry sha1string
6979 }
6980 }
6982 proc sha1change {n1 n2 op} {
6983 global sha1string currentid sha1but
6986 set state disabled
6987 } else {
6988 set state normal
6989 }
6993 } else {
6995 }
6996 }
6998 proc gotocommit {} {
6999 global sha1string tagids headids curview varcid
7007 } else {
7014 return
7015 }
7017 }
7018 }
7019 }
7022 return
7023 }
7026 } else {
7028 }
7030 }
7032 proc lineenter {x y id} {
7033 global hoverx hovery hoverid hovertimer
7034 global commitinfo canv
7040 if {[info exists hovertimer]} {
7042 }
7043 set hovertimer [after 500 linehover]
7045 }
7047 proc linemotion {x y id} {
7048 global hoverx hovery hoverid hovertimer
7053 if {[info exists hovertimer]} {
7055 }
7056 set hovertimer [after 500 linehover]
7057 }
7058 }
7060 proc lineleave {id} {
7061 global hoverid hovertimer canv
7065 if {[info exists hovertimer]} {
7067 unset hovertimer
7068 }
7069 unset hoverid
7070 }
7071 }
7073 proc linehover {} {
7074 global hoverx hovery hoverid hovertimer
7075 global canv linespc lthickness
7076 global commitinfo
7089 -fill \#ffff80 -outline black -width 1 -tags hover]
7092 -font mainfont]
7094 }
7096 proc clickisonarrow {id y} {
7097 global lthickness
7106 }
7107 }
7108 return {}
7109 }
7111 proc arrowjump {id n y} {
7112 global canv
7114 # 1 <-> 2, 3 <-> 4, etc...
7124 set yfrac 0
7125 }
7127 }
7129 proc lineclick {x y id isnew} {
7130 global ctext commitinfo children canv thickerline curview
7133 unmarkmatches
7134 unselectline
7135 normalline
7137 # draw this line thicker than normal
7145 }
7149 return
7150 }
7154 }
7155 # fill the details pane with info about this line
7157 clear_ctext
7158 settabs 0
7170 set i 0
7172 incr i
7182 }
7183 }
7185 init_flist {}
7186 }
7188 proc normalline {} {
7189 global thickerline
7190 if {[info exists thickerline]} {
7192 unset thickerline
7194 }
7195 }
7197 proc selbyid {id} {
7198 global curview
7201 }
7202 }
7204 proc mstime {} {
7205 global startmstime
7206 if {![info exists startmstime]} {
7207 set startmstime [clock clicks -milliseconds]
7208 }
7210 }
7212 proc rowmenu {x y id} {
7213 global rowctxmenu selectedline rowmenuid curview
7214 global nullid nullid2 fakerowmenu mainhead
7216 stopfinding
7219 set state disabled
7220 } else {
7221 set state normal
7222 }
7227 } else {
7229 }
7230 } else {
7232 }
7237 }
7239 proc diffvssel {dirn} {
7240 global rowmenuid selectedline
7246 } else {
7249 }
7252 }
7254 proc doseldiff {oldid newid} {
7255 global ctext
7256 global commitinfo
7259 clear_ctext
7260 init_flist [mc "Top"]
7275 }
7277 proc mkpatch {} {
7278 global rowmenuid currentid commitinfo patchtop patchnum
7280 if {![info exists currentid]} return
7285 set top .patch
7314 incr patchnum
7324 }
7326 proc mkpatchrev {} {
7327 global patchtop
7333 foreach e [list fromsha1 fromhead tosha1 tohead] \
7339 }
7340 }
7342 proc mkpatchgo {} {
7343 global patchtop nullid nullid2
7349 # trim off the initial "|"
7354 }
7356 unset patchtop
7357 }
7359 proc mkpatchcan {} {
7360 global patchtop
7363 unset patchtop
7364 }
7366 proc mktag {} {
7367 global rowmenuid mktagtop commitinfo
7369 set top .maketag
7395 }
7397 proc domktag {} {
7398 global mktagtop env tagids idtags
7403 error_popup [mc "No tag name specified"]
7404 return
7405 }
7408 return
7409 }
7410 if {[catch {
7412 } err]} {
7414 return
7415 }
7421 dispneartags 0
7422 run refill_reflist
7423 }
7425 proc redrawtags {id} {
7426 global canv linehtag idpos currentid curview cmitlisted
7427 global canvxmax iddrawn circleitem mainheadid circlecolors
7433 set ofill yellow
7434 } else {
7436 }
7446 setcanvscroll
7447 }
7450 }
7451 }
7453 proc mktagcan {} {
7454 global mktagtop
7457 unset mktagtop
7458 }
7460 proc mktaggo {} {
7461 domktag
7462 mktagcan
7463 }
7465 proc writecommit {} {
7466 global rowmenuid wrcomtop commitinfo wrcomcmd
7468 set top .writecommit
7498 }
7500 proc wrcomgo {} {
7501 global wrcomtop
7508 }
7510 unset wrcomtop
7511 }
7513 proc wrcomcan {} {
7514 global wrcomtop
7517 unset wrcomtop
7518 }
7520 proc mkbranch {} {
7521 global rowmenuid mkbrtop
7523 set top .makebranch
7544 }
7546 proc mkbrgo {top} {
7547 global headids idheads
7552 error_popup [mc "Please specify a name for the new branch"]
7553 return
7554 }
7556 nowbusy newbranch
7557 update
7558 if {[catch {
7560 } err]} {
7561 notbusy newbranch
7563 } else {
7567 notbusy newbranch
7569 dispneartags 0
7570 run refill_reflist
7571 }
7572 }
7574 proc cherrypick {} {
7575 global rowmenuid curview
7576 global mainhead mainheadid
7578 set oldhead [exec git rev-parse HEAD]
7581 set ok [confirm_popup [mc "Commit %s is already\
7582 included in branch %s -- really re-apply it?" \
7585 }
7586 nowbusy cherrypick [mc "Cherry-picking"]
7587 update
7588 # Unfortunately git-cherry-pick writes stuff to stderr even when
7589 # no error occurs, and exec takes that as an indication of error...
7591 notbusy cherrypick
7593 return
7594 }
7595 set newhead [exec git rev-parse HEAD]
7597 notbusy cherrypick
7598 error_popup [mc "No changes committed"]
7599 return
7600 }
7607 }
7612 }
7613 notbusy cherrypick
7614 }
7616 proc resethead {} {
7617 global mainhead rowmenuid confirm_ok resettype
7619 set confirm_ok 0
7620 set w ".confirmreset"
7626 -justify center -aspect 1000
7631 set resettype mixed
7633 -text [mc "Soft: Leave working tree and index untouched"]
7636 -text [mc "Mixed: Leave working tree untouched, reset index"]
7639 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7649 if {[catch {set fd [open \
7652 } else {
7653 dohidelocalchanges
7655 nowbusy reset [mc "Resetting"]
7657 }
7658 }
7660 proc readresetstat {fd} {
7661 global mainhead mainheadid showlocalchanges rprogcoord
7666 adjustprogress
7667 }
7668 return 1
7669 }
7670 set rprogcoord 0
7671 adjustprogress
7672 notbusy reset
7675 }
7677 set newhead [exec git rev-parse HEAD]
7684 }
7686 doshowlocalchanges
7687 }
7688 return 0
7689 }
7691 # context menu for a head
7692 proc headmenu {x y id head} {
7693 global headmenuid headmenuhead headctxmenu mainhead
7695 stopfinding
7698 set state normal
7700 set state disabled
7701 }
7705 }
7707 proc cobranch {} {
7708 global headmenuid headmenuhead headids
7709 global showlocalchanges mainheadid
7711 # check the tree is clean first??
7712 nowbusy checkout [mc "Checking out"]
7713 update
7714 dohidelocalchanges
7715 if {[catch {
7717 } err]} {
7718 notbusy checkout
7721 dodiffindex
7722 }
7723 } else {
7725 }
7726 }
7728 proc readcheckoutstat {fd newhead newheadid} {
7729 global mainhead mainheadid headids showlocalchanges progresscoords
7734 adjustprogress
7735 }
7736 return 1
7737 }
7738 set progresscoords {0 0}
7739 adjustprogress
7740 notbusy checkout
7743 }
7751 dodiffindex
7752 }
7753 }
7755 proc rmbranch {} {
7756 global headmenuid headmenuhead mainhead
7757 global idheads
7761 # this check shouldn't be needed any more...
7763 error_popup [mc "Cannot delete the currently checked-out branch"]
7764 return
7765 }
7768 # the stuff on this branch isn't on any other branch
7769 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7771 }
7772 nowbusy rmbranch
7773 update
7775 notbusy rmbranch
7777 return
7778 }
7782 notbusy rmbranch
7783 dispneartags 0
7784 run refill_reflist
7785 }
7787 # Display a list of tags and heads
7788 proc showrefs {} {
7789 global showrefstop bgcolor fgcolor selectbgcolor
7790 global bglist fglist reflistfilter reflist maincursor
7792 set top .showrefs
7796 refill_reflist
7797 return
7798 }
7805 -spacing1 1 -spacing3 1 -state disabled
7816 set reflistfilter "*"
7817 trace add variable reflistfilter write reflistfilter_change
7828 set reflist {}
7829 refill_reflist
7830 }
7832 proc sel_reflist {w x y} {
7833 global showrefstop reflist headids tagids otherrefids
7843 }
7845 }
7847 proc unsel_reflist {} {
7848 global showrefstop
7852 }
7854 proc reflistfilter_change {n1 n2 op} {
7855 global reflistfilter
7857 after cancel refill_reflist
7858 after 200 refill_reflist
7859 }
7861 proc refill_reflist {} {
7862 global reflist reflistfilter showrefstop headids tagids otherrefids
7863 global curview commitinterest
7866 set refs {}
7867 foreach n [array names headids] {
7871 } else {
7873 }
7874 }
7875 }
7876 foreach n [array names tagids] {
7880 } else {
7882 }
7883 }
7884 }
7885 foreach n [array names otherrefids] {
7889 } else {
7891 }
7892 }
7893 }
7901 set i 0
7902 set j 0
7911 }
7912 } else {
7913 set cmp -1
7914 }
7915 } else {
7916 set cmp 1
7917 }
7919 -1 {
7921 incr i
7922 }
7923 0 {
7924 incr i
7925 incr j
7926 }
7927 1 {
7932 incr j
7933 }
7934 }
7935 }
7937 # delete last newline
7940 }
7942 # Stuff for finding nearby tags
7943 proc getallcommits {} {
7944 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7945 global idheads idtags idotherrefs allparents tagobjid
7947 if {![info exists allcommits]} {
7948 set nextarc 0
7949 set allcommits 0
7950 set seeds {}
7951 set allcwait 0
7952 set cachedarcs 0
7953 set allccache [file join [gitdir] "gitk.cache"]
7954 if {![catch {
7956 set allcwait 1
7958 }]} return
7959 }
7962 return
7963 }
7964 set cmd [list | git rev-list --parents]
7967 set ids "--all"
7968 } else {
7969 set refs [concat [array names idheads] [array names idtags] \
7970 [array names idotherrefs]]
7971 set ids {}
7972 set tagobjs {}
7973 foreach name [array names tagobjid] {
7975 }
7980 }
7981 }
7985 }
7986 }
7987 }
7991 incr allcommits
7992 nowbusy allcommits
7994 } else {
7995 dispneartags 0
7996 }
7997 }
7999 # Since most commits have 1 parent and 1 child, we group strings of
8000 # such commits into "arcs" joining branch/merge points (BMPs), which
8001 # are commits that either don't have 1 parent or don't have 1 child.
8002 #
8003 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8004 # arcout(id) - outgoing arcs for BMP
8005 # arcids(a) - list of IDs on arc including end but not start
8006 # arcstart(a) - BMP ID at start of arc
8007 # arcend(a) - BMP ID at end of arc
8008 # growing(a) - arc a is still growing
8009 # arctags(a) - IDs out of arcids (excluding end) that have tags
8010 # archeads(a) - IDs out of arcids (excluding end) that have heads
8011 # The start of an arc is at the descendent end, so "incoming" means
8012 # coming from descendents, and "outgoing" means going towards ancestors.
8014 proc getallclines {fd} {
8015 global allparents allchildren idtags idheads nextarc
8016 global arcnos arcids arctags arcout arcend arcstart archeads growing
8017 global seeds allcommits cachedarcs allcupdate
8019 set nid 0
8023 # seen it already
8024 continue
8025 }
8026 set cachedarcs 0
8033 } else {
8039 }
8042 }
8044 # seen parent already
8047 }
8051 }
8054 continue
8055 }
8056 }
8061 }
8063 set ao {}
8066 set a [incr nextarc]
8075 # seen it already, may need to make a new branch
8078 }
8082 }
8084 }
8086 }
8088 global cached_dheads cached_dtags cached_atags
8089 catch {unset cached_dheads}
8090 catch {unset cached_dtags}
8091 catch {unset cached_atags}
8092 }
8095 }
8096 set cacheok 1
8097 if {[catch {
8100 } err]} {
8101 # got an error reading the list of commits
8102 # if we were updating, try rereading the whole thing again
8104 incr allcommits -1
8106 return
8107 }
8108 error_popup "[mc "Error reading commit topology information;\
8109 branch and preceding/following tag information\
8111 set cacheok 0
8112 }
8113 if {[incr allcommits -1] == 0} {
8114 notbusy allcommits
8116 run savecache
8117 }
8118 }
8119 dispneartags 0
8120 return 0
8121 }
8123 proc recalcarc {a} {
8124 global arctags archeads arcids idtags idheads
8126 set at {}
8127 set ah {}
8131 }
8134 }
8135 }
8138 }
8140 proc splitarc {p} {
8141 global arcnos arcids nextarc arctags archeads idtags idheads
8142 global arcstart arcend arcout allparents growing
8147 return
8148 }
8153 return
8154 }
8155 set na [incr nextarc]
8158 } else {
8162 }
8172 }
8177 } else {
8180 }
8181 }
8183 # reconstruct tags and heads lists
8187 } else {
8190 }
8191 }
8193 # Update things for a new commit added that is a child of one
8194 # existing commit. Used when cherry-picking.
8195 proc addnewchild {id p} {
8196 global allparents allchildren idtags nextarc
8197 global arcnos arcids arctags arcout arcend arcstart archeads growing
8198 global seeds allcommits
8206 set a [incr nextarc]
8214 }
8217 }
8219 # This implements a cache for the topology information.
8220 # The cache saves, for each arc, the start and end of the arc,
8221 # the ids on the arc, and the outgoing arcs from the end.
8222 proc readcache {f} {
8223 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8224 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8225 global allcwait
8231 }
8232 if {[catch {
8234 # finish reading the cache and setting up arctags, etc.
8238 foreach id [array names idtags] {
8244 }
8245 }
8246 }
8247 foreach id [array names idheads] {
8253 }
8254 }
8255 }
8259 }
8260 }
8261 set allcwait 0
8262 } else {
8272 }
8276 } else {
8280 }
8281 }
8287 }
8290 }
8293 }
8295 }
8296 } err]} {
8298 return 0
8299 }
8301 getallcommits
8302 }
8304 }
8306 proc getcache {f} {
8307 global nextarc cachedarcs possible_seeds
8309 if {[catch {
8312 # make sure it's an integer
8315 set nextarc 0
8316 set possible_seeds {}
8318 } err]} {
8320 }
8321 return 0
8322 }
8324 proc dropcache {err} {
8325 global allcwait nextarc cachedarcs seeds
8328 foreach v {arcnos arcout arcids arcstart arcend growing \
8329 arctags archeads allparents allchildren} {
8332 }
8333 set allcwait 0
8334 set nextarc 0
8335 set cachedarcs 0
8336 set seeds {}
8337 getallcommits
8338 }
8340 proc writecache {f} {
8341 global cachearc cachedarcs allccache
8342 global arcstart arcend arcnos arcids arcout
8348 }
8349 if {[catch {
8353 } else {
8355 }
8356 }
8357 } err]} {
8361 return 0
8362 }
8367 return 0
8368 }
8369 return 1
8370 }
8372 proc savecache {} {
8373 global nextarc cachedarcs cachearc allccache
8376 set cachearc 0
8378 catch {
8382 }
8383 }
8385 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8386 # or 0 if neither is true.
8387 proc anc_or_desc {a b} {
8388 global arcout arcstart arcend arcnos cached_isanc
8391 # Both are on the same arc(s); either both are the same BMP,
8392 # or if one is not a BMP, the other is also not a BMP or is
8393 # the BMP at end of the arc (and it only has 1 incoming arc).
8394 # Or both can be BMPs with no incoming arcs.
8396 return 0
8397 }
8403 return 1
8404 } else {
8405 return -1
8406 }
8407 }
8413 } else {
8414 set aend {}
8415 }
8417 } else {
8419 }
8424 } else {
8425 set bend {}
8426 }
8428 } else {
8430 }
8432 return 1
8433 }
8435 return -1
8436 }
8439 return 1
8440 }
8441 }
8444 return -1
8445 }
8447 return 0
8448 }
8449 }
8457 continue
8458 }
8464 return 1
8468 return -1
8469 }
8475 }
8476 }
8477 }
8480 return 0
8481 }
8485 # and returns 0 if so and 1 if not.
8486 # If we subsequently discover a tag on such a growing tip, and that
8489 # isn't a good choice to display as a descendent tag of
8493 #
8494 proc is_certain {desc anc} {
8495 global arcnos arcout arcstart arcend growing problems
8497 set certain {}
8499 # tags on the same arc are certain
8501 return 1
8502 }
8507 }
8508 }
8511 } else {
8514 }
8516 return 1
8517 }
8520 set nnh 1
8521 set ngrowanc 0
8525 incr nnh -1
8526 }
8532 incr ngrowanc
8533 }
8534 } else {
8541 incr nnh -1
8542 }
8544 incr ngrowanc -1
8545 }
8555 incr nnh -1
8556 }
8558 incr ngrowanc -1
8559 }
8561 }
8562 }
8563 }
8564 }
8565 }
8566 }
8570 } else {
8573 incr nnh
8574 }
8575 }
8576 }
8577 }
8578 foreach x [array names growanc] {
8580 return 0
8581 }
8582 return 0
8583 }
8584 return 1
8585 }
8587 proc validate_arctags {a} {
8588 global arctags idtags
8590 set i -1
8593 incr i
8596 incr i -1
8597 }
8598 }
8600 }
8602 proc validate_archeads {a} {
8603 global archeads idheads
8605 set i -1
8608 incr i
8611 incr i -1
8612 }
8613 }
8615 }
8617 # Return the list of IDs that have tags that are descendents of id,
8618 # ignoring IDs that are descendents of IDs already reported.
8619 proc desctags {id} {
8620 global arcnos arcstart arcids arctags idtags allparents
8621 global growing cached_dtags
8624 return {}
8625 }
8626 set t1 [clock clicks -milliseconds]
8629 # part-way along an arc; check that arc first
8634 set tid {}
8639 }
8642 }
8643 }
8647 }
8648 }
8651 }
8656 set nc 1
8662 incr nc -1
8663 }
8664 # ignore tags on starting node
8668 set ta 1
8671 set ta 1
8672 }
8673 }
8680 }
8681 }
8690 }
8693 }
8695 incr nc -1
8696 }
8698 }
8699 }
8700 }
8705 incr nc
8706 }
8707 }
8708 }
8709 }
8710 set tags {}
8711 foreach id [array names tagloc] {
8716 }
8717 }
8718 }
8719 }
8720 set t2 [clock clicks -milliseconds]
8723 # remove tags that are descendents of other tags
8731 incr j -1
8732 incr i -1
8735 incr i -1
8736 break
8737 }
8738 }
8739 }
8741 if {[array names growing] ne {}} {
8742 # graph isn't finished, need to check if any tag could get
8743 # eclipsed by another tag coming later. Simply ignore any
8744 # tags that could later get eclipsed.
8745 set ctags {}
8749 }
8750 }
8753 } else {
8755 }
8756 } else {
8758 }
8759 set t3 [clock clicks -milliseconds]
8763 }
8765 }
8767 proc anctags {id} {
8768 global arcnos arcids arcout arcend arctags idtags allparents
8769 global growing cached_atags
8772 return {}
8773 }
8774 set t1 [clock clicks -milliseconds]
8777 # part-way along an arc; check that arc first
8786 }
8787 }
8788 }
8790 return {}
8791 }
8795 }
8796 }
8799 }
8804 set taglist {}
8805 set nc 1
8811 incr nc -1
8812 }
8813 # ignore tags on starting node
8817 set td 1
8820 set td 1
8821 }
8822 }
8828 }
8829 }
8841 }
8842 }
8845 }
8847 incr nc -1
8848 }
8850 }
8851 }
8852 }
8857 incr nc
8858 }
8859 }
8860 }
8861 }
8862 set t2 [clock clicks -milliseconds]
8864 set tags {}
8865 foreach id [array names tagloc] {
8870 }
8871 }
8872 }
8873 }
8875 # remove tags that are ancestors of other tags
8883 incr j -1
8884 incr i -1
8887 incr i -1
8888 break
8889 }
8890 }
8891 }
8893 if {[array names growing] ne {}} {
8894 # graph isn't finished, need to check if any tag could get
8895 # eclipsed by another tag coming later. Simply ignore any
8896 # tags that could later get eclipsed.
8897 set ctags {}
8901 }
8902 }
8905 } else {
8907 }
8908 } else {
8910 }
8911 set t3 [clock clicks -milliseconds]
8915 }
8917 }
8919 # Return the list of IDs that have heads that are descendents of id,
8920 # including id itself if it has a head.
8921 proc descheads {id} {
8922 global arcnos arcstart arcids archeads idheads cached_dheads
8923 global allparents
8926 return {}
8927 }
8928 set aret {}
8930 # part-way along an arc; check it first
8939 }
8940 }
8942 }
8946 set ret {}
8951 } else {
8954 }
8960 }
8961 }
8966 }
8967 }
8968 }
8969 }
8973 }
8975 proc addedtag {id} {
8976 global arcnos arcout cached_dtags cached_atags
8981 }
8982 catch {unset cached_dtags}
8983 catch {unset cached_atags}
8984 }
8986 proc addedhead {hid head} {
8987 global arcnos arcout cached_dheads
8992 }
8993 catch {unset cached_dheads}
8994 }
8996 proc removedhead {hid head} {
8997 global cached_dheads
8999 catch {unset cached_dheads}
9000 }
9002 proc movedhead {hid head} {
9003 global arcnos arcout cached_dheads
9008 }
9009 catch {unset cached_dheads}
9010 }
9012 proc changedrefs {} {
9013 global cached_dheads cached_dtags cached_atags
9014 global arctags archeads arcnos arcout idheads idtags
9016 foreach id [concat [array names idheads] [array names idtags]] {
9022 }
9023 }
9024 }
9025 catch {unset cached_dtags}
9026 catch {unset cached_atags}
9027 catch {unset cached_dheads}
9028 }
9030 proc rereadrefs {} {
9031 global idtags idheads idotherrefs mainheadid
9033 set refids [concat [array names idtags] \
9034 [array names idheads] [array names idotherrefs]]
9038 }
9039 }
9041 readrefs
9042 changedrefs
9044 [array names idheads] [array names idotherrefs]]]
9049 }
9050 }
9054 }
9055 run refill_reflist
9056 }
9058 proc listrefs {id} {
9059 global idtags idheads idotherrefs
9061 set x {}
9064 }
9065 set y {}
9068 }
9069 set z {}
9072 }
9074 }
9076 proc showtag {tag isnew} {
9077 global ctext tagcontents tagids linknum tagobjid
9081 }
9083 clear_ctext
9084 settabs 0
9085 set linknum 0
9087 catch {
9089 }
9090 }
9093 } else {
9095 }
9098 init_flist {}
9099 }
9101 proc doquit {} {
9102 global stopped
9103 global gitktmpdir
9105 set stopped 100
9106 savestuff .
9107 destroy .
9109 if {[info exists gitktmpdir]} {
9111 }
9112 }
9114 proc mkfontdisp {font top which} {
9123 }
9125 proc choosefont {font which} {
9126 global fontparam fontlist fonttop fontattr
9134 set top .gitkfont
9137 font create sample
9143 set fontlist [lsort [font families]]
9154 -textvariable fontparam(size) \
9155 -validatecommand {string is integer -strict %s}
9157 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9158 -variable fontparam(weight) -onvalue bold -offvalue normal
9160 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9161 -variable fontparam(slant) -onvalue italic -offvalue roman
9165 -background white
9167 -fill black -tags text
9177 trace add variable fontparam write chg_fontparam
9178 } else {
9181 }
9186 }
9187 }
9189 proc centertext {w} {
9191 }
9193 proc fontok {} {
9194 global fontparam fontpref prefstop
9200 }
9203 }
9207 fontcan
9208 }
9210 proc fontcan {} {
9211 global fonttop fontparam
9213 if {[info exists fonttop]} {
9215 catch {font delete sample}
9216 unset fonttop
9217 unset fontparam
9218 }
9219 }
9221 proc selfontfam {} {
9222 global fonttop fontparam
9227 }
9228 }
9230 proc chg_fontparam {v sub op} {
9231 global fontparam
9234 }
9236 proc doprefs {} {
9237 global maxwidth maxgraphpct
9238 global oldprefs prefstop showneartags showlocalchanges
9239 global bgcolor fgcolor ctext diffcolors selectbgcolor
9240 global tabstop limitdiffs autoselect extdifftool
9242 set top .gitkprefs
9246 return
9247 }
9248 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9249 limitdiffs tabstop} {
9251 }
9258 -font optionfont
9262 -font optionfont
9295 -padx 10
9297 -command choose_extdiff
9324 "diff hunk header" \
9346 }
9348 proc choose_extdiff {} {
9349 global extdifftool
9351 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9354 }
9355 }
9357 proc choosecolor {v vi w x cmd} {
9366 }
9368 proc setselbg {c} {
9369 global bglist cflist
9372 }
9376 }
9378 proc setbg {c} {
9379 global bglist
9383 }
9384 }
9386 proc setfg {c} {
9387 global fglist canv
9391 }
9394 }
9396 proc prefscan {} {
9397 global oldprefs prefstop
9399 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9400 limitdiffs tabstop} {
9403 }
9405 unset prefstop
9406 fontcan
9407 }
9409 proc prefsok {} {
9410 global maxwidth maxgraphpct
9411 global oldprefs prefstop showneartags showlocalchanges
9412 global fontpref mainfont textfont uifont
9413 global limitdiffs treediffs
9416 unset prefstop
9417 fontcan
9418 set fontchanged 0
9422 eval font configure mainfont [fontflags mainfont]
9423 eval font configure mainfontbold [fontflags mainfont 1]
9424 setcoords
9425 set fontchanged 1
9426 }
9430 eval font configure textfont [fontflags textfont]
9431 eval font configure textfontbold [fontflags textfont 1]
9432 }
9436 eval font configure uifont [fontflags uifont]
9437 }
9438 settabs
9441 doshowlocalchanges
9442 } else {
9443 dohidelocalchanges
9444 }
9445 }
9447 # treediffs elements are limited by path
9448 catch {unset treediffs}
9449 }
9452 redisplay
9455 reselectline
9456 }
9457 }
9459 proc formatdate {d} {
9460 global datetimeformat
9463 }
9465 }
9467 # This list of encoding names and aliases is distilled from
9468 # http://www.iana.org/assignments/character-sets.
9469 # Not all of them are supported by Tcl.
9470 set encoding_aliases {
9471 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9472 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9473 { ISO-10646-UTF-1 csISO10646UTF1 }
9474 { ISO_646.basic:1983 ref csISO646basic1983 }
9475 { INVARIANT csINVARIANT }
9476 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9477 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9478 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9479 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9480 { NATS-DANO iso-ir-9-1 csNATSDANO }
9481 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9482 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9483 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9484 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9485 { ISO-2022-KR csISO2022KR }
9486 { EUC-KR csEUCKR }
9487 { ISO-2022-JP csISO2022JP }
9488 { ISO-2022-JP-2 csISO2022JP2 }
9489 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9490 csISO13JISC6220jp }
9491 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9492 { IT iso-ir-15 ISO646-IT csISO15Italian }
9493 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9494 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9495 { greek7-old iso-ir-18 csISO18Greek7Old }
9496 { latin-greek iso-ir-19 csISO19LatinGreek }
9497 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9498 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9499 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9500 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9501 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9502 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9503 { INIS iso-ir-49 csISO49INIS }
9504 { INIS-8 iso-ir-50 csISO50INIS8 }
9505 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9506 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9507 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9508 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9509 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9510 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9511 csISO60Norwegian1 }
9512 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9513 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9514 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9515 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9516 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9517 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9518 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9519 { greek7 iso-ir-88 csISO88Greek7 }
9520 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9521 { iso-ir-90 csISO90 }
9522 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9523 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9524 csISO92JISC62991984b }
9525 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9526 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9527 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9528 csISO95JIS62291984handadd }
9529 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9530 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9531 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9532 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9533 CP819 csISOLatin1 }
9534 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9535 { T.61-7bit iso-ir-102 csISO102T617bit }
9536 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9537 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9538 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9539 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9540 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9541 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9542 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9543 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9544 arabic csISOLatinArabic }
9545 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9546 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9547 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9548 greek greek8 csISOLatinGreek }
9549 { T.101-G2 iso-ir-128 csISO128T101G2 }
9550 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9551 csISOLatinHebrew }
9552 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9553 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9554 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9555 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9556 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9557 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9558 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9559 csISOLatinCyrillic }
9560 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9561 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9562 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9563 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9564 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9565 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9566 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9567 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9568 { ISO_10367-box iso-ir-155 csISO10367Box }
9569 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9570 { latin-lap lap iso-ir-158 csISO158Lap }
9571 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9572 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9573 { us-dk csUSDK }
9574 { dk-us csDKUS }
9575 { JIS_X0201 X0201 csHalfWidthKatakana }
9576 { KSC5636 ISO646-KR csKSC5636 }
9577 { ISO-10646-UCS-2 csUnicode }
9578 { ISO-10646-UCS-4 csUCS4 }
9579 { DEC-MCS dec csDECMCS }
9580 { hp-roman8 roman8 r8 csHPRoman8 }
9581 { macintosh mac csMacintosh }
9582 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9583 csIBM037 }
9584 { IBM038 EBCDIC-INT cp038 csIBM038 }
9585 { IBM273 CP273 csIBM273 }
9586 { IBM274 EBCDIC-BE CP274 csIBM274 }
9587 { IBM275 EBCDIC-BR cp275 csIBM275 }
9588 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9589 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9590 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9591 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9592 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9593 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9594 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9595 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9596 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9597 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9598 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9599 { IBM437 cp437 437 csPC8CodePage437 }
9600 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9601 { IBM775 cp775 csPC775Baltic }
9602 { IBM850 cp850 850 csPC850Multilingual }
9603 { IBM851 cp851 851 csIBM851 }
9604 { IBM852 cp852 852 csPCp852 }
9605 { IBM855 cp855 855 csIBM855 }
9606 { IBM857 cp857 857 csIBM857 }
9607 { IBM860 cp860 860 csIBM860 }
9608 { IBM861 cp861 861 cp-is csIBM861 }
9609 { IBM862 cp862 862 csPC862LatinHebrew }
9610 { IBM863 cp863 863 csIBM863 }
9611 { IBM864 cp864 csIBM864 }
9612 { IBM865 cp865 865 csIBM865 }
9613 { IBM866 cp866 866 csIBM866 }
9614 { IBM868 CP868 cp-ar csIBM868 }
9615 { IBM869 cp869 869 cp-gr csIBM869 }
9616 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9617 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9618 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9619 { IBM891 cp891 csIBM891 }
9620 { IBM903 cp903 csIBM903 }
9621 { IBM904 cp904 904 csIBBM904 }
9622 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9623 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9624 { IBM1026 CP1026 csIBM1026 }
9625 { EBCDIC-AT-DE csIBMEBCDICATDE }
9626 { EBCDIC-AT-DE-A csEBCDICATDEA }
9627 { EBCDIC-CA-FR csEBCDICCAFR }
9628 { EBCDIC-DK-NO csEBCDICDKNO }
9629 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9630 { EBCDIC-FI-SE csEBCDICFISE }
9631 { EBCDIC-FI-SE-A csEBCDICFISEA }
9632 { EBCDIC-FR csEBCDICFR }
9633 { EBCDIC-IT csEBCDICIT }
9634 { EBCDIC-PT csEBCDICPT }
9635 { EBCDIC-ES csEBCDICES }
9636 { EBCDIC-ES-A csEBCDICESA }
9637 { EBCDIC-ES-S csEBCDICESS }
9638 { EBCDIC-UK csEBCDICUK }
9639 { EBCDIC-US csEBCDICUS }
9640 { UNKNOWN-8BIT csUnknown8BiT }
9641 { MNEMONIC csMnemonic }
9642 { MNEM csMnem }
9643 { VISCII csVISCII }
9644 { VIQR csVIQR }
9645 { KOI8-R csKOI8R }
9646 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9647 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9648 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9649 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9650 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9651 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9652 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9653 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9654 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9655 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9656 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9657 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9658 { IBM1047 IBM-1047 }
9659 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9660 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9661 { UNICODE-1-1 csUnicode11 }
9662 { CESU-8 csCESU-8 }
9663 { BOCU-1 csBOCU-1 }
9664 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9665 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9666 l8 }
9667 { ISO-8859-15 ISO_8859-15 Latin-9 }
9668 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9669 { GBK CP936 MS936 windows-936 }
9670 { JIS_Encoding csJISEncoding }
9671 { Shift_JIS MS_Kanji csShiftJIS }
9672 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9673 EUC-JP }
9674 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9675 { ISO-10646-UCS-Basic csUnicodeASCII }
9676 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9677 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9678 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9679 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9680 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9681 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9682 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9683 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9684 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9685 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9686 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9687 { Ventura-US csVenturaUS }
9688 { Ventura-International csVenturaInternational }
9689 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9690 { PC8-Turkish csPC8Turkish }
9691 { IBM-Symbols csIBMSymbols }
9692 { IBM-Thai csIBMThai }
9693 { HP-Legal csHPLegal }
9694 { HP-Pi-font csHPPiFont }
9695 { HP-Math8 csHPMath8 }
9696 { Adobe-Symbol-Encoding csHPPSMath }
9697 { HP-DeskTop csHPDesktop }
9698 { Ventura-Math csVenturaMath }
9699 { Microsoft-Publishing csMicrosoftPublishing }
9700 { Windows-31J csWindows31J }
9701 { GB2312 csGB2312 }
9702 { Big5 csBig5 }
9703 }
9705 proc tcl_encoding {enc} {
9706 global encoding_aliases
9707 set names [encoding names]
9712 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9715 }
9716 }
9721 # look through the aliases for one that tcl knows about
9727 }
9728 }
9730 }
9731 break
9732 }
9733 }
9736 }
9737 return {}
9738 }
9740 # First check that Tcl/Tk is recent enough
9741 if {[catch {package require Tk 8.4} err]} {
9742 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9743 Gitk requires at least Tcl/Tk 8.4."]
9744 exit 1
9745 }
9747 # defaults...
9748 set wrcomcmd "git diff-tree --stdin -p --pretty"
9750 set gitencoding {}
9751 catch {
9752 set gitencoding [exec git config --get i18n.commitencoding]
9753 }
9755 set gitencoding "utf-8"
9756 }
9760 }
9762 set mainfont {Helvetica 9}
9763 set textfont {Courier 9}
9764 set uifont {Helvetica 9 bold}
9765 set tabstop 8
9766 set findmergefiles 0
9767 set maxgraphpct 50
9768 set maxwidth 16
9769 set revlistorder 0
9770 set fastdate 0
9771 set uparrowlen 5
9772 set downarrowlen 5
9773 set mingaplen 100
9774 set cmitmode "patch"
9775 set wrapcomment "none"
9776 set showneartags 1
9777 set maxrefs 20
9778 set maxlinelen 200
9779 set showlocalchanges 1
9780 set limitdiffs 1
9781 set datetimeformat "%Y-%m-%d %H:%M:%S"
9782 set autoselect 1
9784 set extdifftool "meld"
9786 set colors {green red blue magenta darkgrey brown orange}
9787 set bgcolor white
9788 set fgcolor black
9789 set diffcolors {red "#00a000" blue}
9790 set diffcontext 3
9791 set ignorespace 0
9792 set selectbgcolor gray85
9794 set circlecolors {white blue gray blue blue}
9796 ## For msgcat loading, first locate the installation location.
9797 if { [info exists ::env(GITK_MSGSDIR)] } {
9798 ## Msgsdir was manually set in the environment.
9799 set gitk_msgsdir $::env(GITK_MSGSDIR)
9800 } else {
9801 ## Let's guess the prefix from argv0.
9805 unset gitk_prefix
9806 }
9808 ## Internationalization (i18n) through msgcat and gettext. See
9809 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9810 package require msgcat
9811 namespace import ::msgcat::mc
9812 ## And eventually load the actual message catalog
9815 catch {source ~/.gitk}
9817 font create optionfont -family sans-serif -size -12
9820 eval font create mainfont [fontflags mainfont]
9821 eval font create mainfontbold [fontflags mainfont 1]
9824 eval font create textfont [fontflags textfont]
9825 eval font create textfontbold [fontflags textfont 1]
9828 eval font create uifont [fontflags uifont]
9830 setoptions
9832 # check that we can find a .git directory somewhere...
9833 if {[catch {set gitdir [gitdir]}]} {
9834 show_error {} . [mc "Cannot find a git repository here."]
9835 exit 1
9836 }
9839 exit 1
9840 }
9842 set revtreeargs {}
9843 set cmdline_files {}
9844 set i 0
9845 set revtreeargscmd {}
9848 "" { }
9849 "--" {
9851 break
9852 }
9853 "--argscmd=*" {
9855 }
9856 default {
9858 }
9859 }
9860 incr i
9861 }
9864 # no -- on command line, but some arguments (other than --argscmd)
9865 if {[catch {
9870 # Unfortunately git rev-parse doesn't produce an error when
9871 # something is both a revision and a filename. To be consistent
9872 # with git log and git rev-list, check revtreeargs for filenames.
9875 show_error {} . [mc "Ambiguous argument '%s': both revision\
9877 exit 1
9878 }
9879 }
9880 } err]} {
9882 # so look for "fatal:".
9886 }
9888 exit 1
9889 }
9890 }
9892 set nullid "0000000000000000000000000000000000000000"
9893 set nullid2 "0000000000000000000000000000000000000001"
9894 set nullfile "/dev/null"
9898 set runq {}
9899 set history {}
9900 set historyindex 0
9901 set fh_serial 0
9902 set nhl_names {}
9903 set highlight_paths {}
9904 set findpattern {}
9905 set searchdirn -forwards
9906 set boldrows {}
9907 set boldnamerows {}
9908 set diffelide {0 0}
9909 set markingmatches 0
9910 set linkentercount 0
9911 set need_redisplay 0
9912 set nrows_drawn 0
9913 set firsttabstop 0
9915 set nextviewnum 1
9916 set curview 0
9917 set selectedview 0
9918 set selectedhlview [mc "None"]
9919 set highlight_related [mc "None"]
9920 set highlight_files {}
9921 set viewfiles(0) {}
9922 set viewperm(0) 0
9923 set viewargs(0) {}
9924 set viewargscmd(0) {}
9926 set selectedline {}
9927 set numcommits 0
9928 set loginstance 0
9929 set cmdlineok 0
9930 set stopped 0
9931 set stuffsaved 0
9932 set patchnum 0
9933 set lserial 0
9934 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9935 setcoords
9936 makewindow
9937 # wait for the window to become visible
9938 tkwait visibility .
9940 readrefs
9943 # create a view for the files/dirs specified on the command line
9944 set curview 1
9945 set selectedview 1
9946 set nextviewnum 2
9947 set viewname(1) [mc "Command line"]
9951 set viewperm(1) 0
9952 set vdatemode(1) 0
9953 addviewmenu 1
9954 .bar.view entryconf [mc "Edit view..."] -state normal
9955 .bar.view entryconf [mc "Delete view"] -state normal
9956 }
9958 if {[info exists permviews]} {
9961 incr nextviewnum
9968 }
9969 }
9970 getcommits